diff --git a/.gitignore b/.gitignore index bba3fa4..787b0b4 100644 --- a/.gitignore +++ b/.gitignore @@ -1,3 +1,12 @@ -*.o -/bwbasic -/renum +# compile artifcats +*.o +/bwbasic +/renum + +# maintainer artifacts +editfl +editfl.bas +*.geany +*.orig +*.rej + diff --git a/Bwbasic-1.1-Manual.txt b/Bwbasic-1.1-Manual.txt new file mode 100644 index 0000000..c331447 --- /dev/null +++ b/Bwbasic-1.1-Manual.txt @@ -0,0 +1,441 @@ + + + Bywater BASIC Interpreter/Shell, version 1.10 + --------------------------------------------- + + Copyright (c) 1992, Ted A. Campbell + for bwBASIC version 1.10, 1 November 1992 + + +CONTENTS: + + 1. DESCRIPTION + 2. TERMS OF USE + 3. COMMANDS AND FUNCTIONS IMPLEMENTED + 4. SOME NOTES ON USAGE + 5. UNIMPLEMENTED COMMANDS AND FUNCTIONS + 6. SOME NOTES ON COMPILATION + 7. THE STORY OF BYWATER BASIC + 8. COMMUNICATIONS + + +1. DESCRIPTION + + The Bywater BASIC Interpreter (bwBASIC) implements a large + superset of the ANSI Standard for Minimal BASIC (X3.60-1978) + in ANSI C and offers shell program facilities as an extension + of BASIC. + + The set of BASIC commands and functions implemented is fairly + limited (see section three below), although more commands and + functions are implemented than appear in the specification + for Minimal BASIC. There are no commands that are terminal- or + hardware specific. (Seriously -- CLS may work under bwBASIC + on your DOS-based pc, but that is because bwBASIC shells + out to DOS when it does not recognize CLS and executes CLS there.) + + The interpreter is slow. Whenever faced with a choice between + conceptual clarity and speed, I have consistently chosen + the former. The interpreter is the simplest design available, + and utilizes no system of intermediate code, which would speed + up considerably its operation. As it is, each line is interpreted + afresh as the interpreter comes to it. + + bwBASIC implements one feature not available in previous BASIC + interpreters: a shell command can be entered interactively at the + bwBASIC prompt, and the interpreter will execute it under a + command shell. For instance, the command "dir *.bas" can be + entered in bwBASIC (under DOS, or "ls -l *.bas" under UNIX) and + it will be executed as from the operating system command line. + Shell commands can also be given on numbered lines in a bwBASIC + program, so that bwBASIC can be used as a shell programming + language. bwBASIC's implementation of the RMDIR, CHDIR, MKDIR, + NAME, KILL, ENVIRON, and ENVIRON$() commands and functions + offer further shell-processing capabilities. + + +2. TERMS OF USE: + + The bwBASIC source code and executables produced from it can be + used subject to the following statement which is included in + the header to all the source code files: + + All U.S. and international copyrights are claimed by the + author. The author grants permission to use this code + and software based on it under the following conditions: + (a) in general, the code and software based upon it may be + used by individuals and by non-profit organizations; (b) it + may also be utilized by governmental agencies in any country, + with the exception of military agencies; (c) the code and/or + software based upon it may not be sold for a profit without + an explicit and specific permission from the author, except + that a minimal fee may be charged for media on which it is + copied, and for copying and handling; (d) the code must be + distributed in the form in which it has been released by the + author; and (e) the code and software based upon it may not + be used for illegal activities. + + +3. BASIC COMMANDS AND FUNCTIONS IMPLEMENTED: + + ABS( number ) + ASC( string$ ) + ATN( number ) + CHAIN [MERGE] file-name [, line-number] [, ALL] + CHR$( number ) + CINT( number ) + CLEAR + CLOSE [[#]file-number]... + COMMON variable [, variable...] + COS( number ) + CSNG( number ) + CVD( string$ ) + CVI( string$ ) + CVS( string$ ) + DATA constant[,constant]... + DATE$ + DEF FNname(arg...)] = expression + DEFDBL letter[-letter](, letter[-letter])... + DEFINT letter[-letter](, letter[-letter])... + DEFSNG letter[-letter](, letter[-letter])... + DEFSTR letter[-letter](, letter[-letter])... + DELETE line[-line] + DIM variable(elements...)[variable(elements...)]... + END + ENVIRON variable-string = string + ENVIRON$( variable-string ) + EOF( device-number ) + ERASE variable[, variable]... + ERL + ERR + ERROR number + EXP( number ) + FIELD [#] device-number, number AS string-variable [, number AS string-variable...] + FOR counter = start TO finish [STEP increment] + GET [#] device-number [, record-number] + GOSUB line + GOTO line + HEX$( number ) + IF expression THEN statement [ELSE statement] + INPUT [# device-number]|[;]["prompt string";]list of variables + INSTR( [start-position,] string-searched$, string-pattern$ ) + INT( number ) + KILL file-name + LEFT$( string$, number-of-spaces ) + LEN( string$ ) + LET variable = expression + LINE INPUT [[#] device-number,]["prompt string";] string-variable$ + LIST line[-line] + LOAD file-name + LOC( device-number ) + LOF( device-number ) + LOG( number ) + LSET string-variable$ = expression + MERGE file-name + MID$( string$, start-position-in-string[, number-of-spaces ] ) + MKD$( double-value# ) + MKI$( integer-value% ) + MKS$( single-value! ) + NAME old-file-name AS new-file-name + NEW + NEXT counter + OCT$( number ) + ON variable GOTO|GOSUB line[,line,line,...] + ON ERROR GOSUB line + OPEN O|I|R, [#]device-number, file-name [,record length] + file-name FOR INPUT|OUTPUT|APPEND AS [#]device-number [LEN = record-length] + OPTION BASE number + POS + PRINT [# device-number,][USING format-string$;] expressions... + PUT [#] device-number [, record-number] + RANDOMIZE number + READ variable[, variable]... + REM string + RESTORE line + RETURN + RIGHT$( string$, number-of-spaces ) + RND( number ) + RSET string-variable$ = expression + RUN [line][file-name] + SAVE file-name + SGN( number ) + SIN( number ) + SPACE$( number ) + SPC( number ) + SQR( number ) + STOP + STR$( number ) + STRING$( number, ascii-value|string$ ) + SWAP variable, variable + SYSTEM + TAB( number ) + TAN( number ) + TIME$ + TIMER + TROFF + TRON + VAL( string$ ) + WEND + WHILE expression + WIDTH [# device-number,] number + WRITE [# device-number,] element [, element ].... + + If DIRECTORY_CMDS is set to TRUE when the program is compiled, + then the following commands will be available: + + CHDIR pathname + MKDIR pathname + RMDIR pathname + + If DEBUG is set to TRUE when the program is compiled then + the following debugging commands (unique to bwBASIC) will + be available: + + VARS (prints a list of all variables) + CMDS (prints a list of all commands) + FNCS (prints a list of all functions) + + If COMMAND_SHELL is set to TRUE when the program is compiled, + then the user may enter a shell command at the bwBASIC prompt. + + +4. SOME NOTES ON USAGE: + + An interactive environment is provided, so that a line with a + line number can be entered at the bwBASIC prompt and it will be + added to the program in memory. + + Line numbers are not strictly required, but are useful if the + interactive enviroment is used for programming. For longer + program entry one might prefer to use an ASCII text editor, and + in this case lines can be entered without numbers. In this case, + however, one will not be able to alter the numberless lines + within the interactive environment. + + Command names and function names are not case sensitive, + so that "Run" and "RUN" and "run" are equivalent and "abs()" + and "ABS()" and "Abs()" are equivalent. HOWEVER: variable + names ARE case sensitive in bwbASIC, so that "d$" and "D$" + are different variables. This differs from some BASIC + implementations where variable names are not case sensitive. + + A filename can be specified on the command line and will be + LOADed and RUN immediately, so that the command line + + bwbasic prog.bas + + will load and execute "prog.bas". + + All programs are stored as ASCII text files. + + TRUE is defined as -1 and FALSE is defined as 0 in the default + distribution of bwBASIC. These definitions can be changed by + those compiling bwBASIC (see file BWBASIC.H). + + Assignment must be made to variables. This differs from some + implementations of BASIC where assignment can be made to a + function. Implication: "INSTR( 3, x$, y$ ) = z$" will not + work under bwBASIC. + + Notes on the implementation of specific commands: + + CVI(), CVD(), CVS(), MKI$(), MKD$(), MKS$(): These functions + are implemented, but are dependent on a) the sizes for integer, + float, and double values on particular systems, and b) how + particular versions of C store these numerical values. The + implication is that data files created using these functions + on a DOS-based microcomputer may not be translated correctly + by bwBASIC running on a Unix-based computer. Similarly, data + files created by bwBASIC compiled by one version of C may not be + readable by bwBASIC compiled by another version of C (even under + the same operating system). So be careful with these. + + ENVIRON: The ENVIRON command requires BASIC strings on either + side of the equals sign. Thus: + + environ "PATH" = "/usr/bin" + + It might be noted that this differs from the implementation + of ENVIRON in some versions of BASIC, but bwBASIC's ENVIRON + allows BASIC variables to be used on either side of the equals + sign. Note that the function ENVIRON$() is different from the + command, and be aware of the fact that in some operating systems + an environment variable set within a program will not be passed + to its parent shell. + + ERR: Note that if PROG_ERRORS has been defined when bwBASIC is + compiled, the ERR variable will not be set correctly upon + errors. It only works when standard error messages are used. + + FOR and NEXT: In this implementation of bwBASIC, a NEXT + statement must appear in the first position in a program + line; it cannot appear in a line segment beyond a colon. + + INPUT: bwBASIC cannot support the optional feature of INPUT + that suppresses the carriage-return and line-feed at the end + of the input. This is because ANSI C does not provide for any + means of input other than CR-LF-terminated strings. + + +5. UNIMPLEMENTED COMMANDS AND FUNCTIONS + + There are a few items not implemented that have been so long + a part of standard BASICs that their absence will seem surprising. + In each case, though, their implementation would require opera- + ting-system-specific functions or terminal-specific functions + that ANSI C cannot provide. Some specific examples: + + CALL In some versions of BASIC, CALL is used to call a + machine language subroutine, but machine language + routines are highly system-specific. In other + BASICs (conforming to the more complete ANSI + definition of BASIC), CALL is used to call a + named subroutine. Although it's possible that + bwBASIC could develop as a numberless BASIC + with named subroutine calls, these features + are not implemented in this earliest released + version. + + CLOAD See CALL above (machine language subroutines). + + CONT See RESUME below (programmer ignorance?). + + DEF USR See CALL above (machine language subroutines). + + EDIT EDIT would be especially nice, but requires some + specific knowledge of how particular computers + handle interaction between the screen and the + keyboard. This knowledge isn't available within + the bounds of ANSI C alone ("innerhalb die Grenzen + der reinen Vernunft," with apologies to Immanuel + Kant). + + FRE() The ability to report the amount of free memory + remaining is system-specific due to varying patterns + of memory allocation and access; consequently this + ability is not present in ANSI C and this function + is not available in bwBASIC. + + FILES The FILES command requires a list of files conforming + to a specifier; ANSI C does not provide this. When + COMMAND_SHELL is defined as TRUE, users might want + to issue operating-system commands such as "DIR" + (DOS) or "ls -l" (Unix) to get a list of files. + + INKEY$ This function requires a keyboard scan to indicate + whether a key is pending. Although this facility + is easily available on microcomputers (it is part + of the minimal CP/M Operating System), it is not + easily available on some more complex systems. + Consequently, it's not part of the C standard and + bwBASIC has not implemented INKEY$. + + INPUT$() Similar to INKEY$ above, ANSI C by itself is not + able to read unechoed keyboard input, and can read + keyboard input only after a Carriage-Return has + been entered. + + INP Calls to hardware ports, like machine-language + routines, are highly system-specific and cannot + be implemented in ANSI C alone. + + LLIST See LPRINT below. + + LPOS See LPRINT below. + + LPRINT and LLIST, etc., require access to a printer device, + and this varies from one system to another. Users + might try OPENing the printer device on their own + operating system (e.g., "/dev/lp" on Unix systems, + or "PRN" under DOS) and see if printing can be done + from bwBASIC in this way. + + NULL In this case, I am convinced that NULL is no longer + necessary, since very few printers now require NULLs + at the end of lines. + + OUT See INP above (calls to hardware ports). + + PEEK() PEEK and POKE enabled earlier BASICs to address + particular memory locations. Although bwBASIC + could possibly implement this command (POKE) and + this function (PEEK()), the limitation would be + highly limited by the different systems for + memory access in different systems. + + POKE see PEEK() above. + + RENUM Since unnumbered lines can be entered and + executed under bwBASIC, it would not be + possible to implement a RENUM routine. + + RESUME Is this possible under ANSI C? If so, I + simply have failed to figure it out yet. + Mea culpa (but not maxima). + + USR See CALL and DEF USR above (machine language + subroutines). + + VARPTR See PEEK and POKE above. + + WAIT See INP and OUT above. + + +6. SOME NOTES ON COMPILATION + + bwBASIC is written in ANSI C and takes advantage of some of the + enhancements of ANSI C over the older K&R standard. The program + expects to find standard ANSI C include files (such as ). + Because there is nothing terminal- or hardware-specific about it, + I should hope that it would compile correctly under any ANSI C + compiler, but you may have to construct your own makefile. + + Two makefiles are currently provided: "makefile.qcl" will compile + the program utilizing the Microsoft QuickC (tm) line-oriented + compiler on DOS-based p.c.'s, and "makefile.gcc" will compile + the program utilizing the ANSI option of Gnu C++. I have also + compiled the program utilizing Borland's Turbo C++ (tm) on DOS- + based machines. + + No alterations to flags are necessary for varied environments, + but the beginning of file allows the user to set + some debugging flags and to control some program defaults. + The file has a number of language-specific message + sets that can be controlled by setting the appropriate language + flag. + + +7. THE STORY OF BYWATER BASIC + + This program was originally begun in 1982 by my grandmother, Mrs. + Verda Spell of Beaumont, TX. She was writing the program using + an ANSI C compiler on an Osborne I CP/M computer and although my + grandfather (Lockwood Spell) had bought an IBM PC with 256k of + RAM my grandmother would not use it, paraphrasing George Herbert + to the effect that "He who cannot in 64k program, cannot in 512k." + She had used Microsoft BASIC and although she had nothing against + it she said repeatedly that she didn't understand why Digital + Research didn't "sue the socks off of Microsoft" for version 1.0 + of MSDOS and so I reckon that she hoped to undercut Microsoft's + entire market and eventually build a new software empire on + the North End of Beaumont. Her programming efforts were cut + tragically short when she was thrown from a Beaumont to Port + Arthur commuter train in the summer of 1986. I found the source + code to bwBASIC on a single-density Osborne diskette in her knitting + bag and eventually managed to have it all copied over to a PC + diskette. I have revised it slightly prior to this release. You + should know, though, that I myself am an historian, not a programmer. + + +8. COMMUNICATIONS: + + Ted A. Campbell + Bywater Software + P.O. Box 4023 + Duke Station + Durham, NC 27706 + USA + + email: tcamp@acpub.duke.edu + + diff --git a/Bwbasic-2.1-Manual.txt b/Bwbasic-2.1-Manual.txt new file mode 100644 index 0000000..934691c --- /dev/null +++ b/Bwbasic-2.1-Manual.txt @@ -0,0 +1,1881 @@ + + + + + Bywater BASIC Interpreter/Shell, version 2.10 + --------------------------------------------- + + Copyright (c) 1993, Ted A. Campbell + for bwBASIC version 2.10, 11 October 1993 + + +CONTENTS: + + 1. DESCRIPTION + 2. TERMS OF USE + 3. QUICK REFERENCE LIST OF COMMANDS AND FUNCTIONS + 4. GENERAL NOTES ON USAGE + 5. EXPANDED REFERENCE FOR COMMANDS AND FUNCTIONS + 6. PREDEFINED VARIABLES + 7. UNIMPLEMENTED COMMANDS AND FUNCTIONS + and AGENDA FOR DEVELOPMENT + 8. THE STORY OF BYWATER BASIC + 9. COMMUNICATIONS + + The author wishes to express his thanks to Mr. David MacKenzie, + who assisted in the development Unix installation and configuration + for this version. + + +1. DESCRIPTION + + The Bywater BASIC Interpreter (bwBASIC) implements a large + superset of the ANSI Standard for Minimal BASIC (X3.60-1978) + and a significant subset of the ANSI Standard for Full BASIC + (X3.113-1987) in C. It also offers shell programming facilities + as an extension of BASIC. bwBASIC seeks to be as portable + as possible. + + bwBASIC can be configured to emulate features, commands, and + functions available on different types of BASIC interpreters; + see the file INSTALL for further installation information. + + The interpreter is fairly slow. Whenever faced with a choice + between conceptual clarity and speed, I have consistently chosen + the former. The interpreter is the simplest design available, + and utilizes no system of intermediate code, which would speed + up considerably its operation. As it is, each line is interpreted + afresh as the interpreter comes to it. + + bwBASIC implements one feature not available in previous BASIC + interpreters: a shell command can be entered interactively at the + bwBASIC prompt, and the interpreter will execute it under a + command shell. For instance, the command "dir *.bas" can be + entered in bwBASIC (under DOS, or "ls -l *.bas" under UNIX) and + it will be executed as from the operating system command line. + Shell commands can also be given on numbered lines in a bwBASIC + program, so that bwBASIC can be used as a shell programming + language. bwBASIC's implementation of the RMDIR, CHDIR, MKDIR, + NAME, KILL, ENVIRON, and ENVIRON$() commands and functions + offer further shell-processing capabilities. + + +2. TERMS OF USE: + + This version of Bywater BASIC is released under the terms of the + GNU General Public License (GPL), which is distributed with this + software in the file "COPYING". The GPL specifies the terms + under which users may copy and use the software in this distribution. + + A separate license is available for commercial distribution, + for information on which you should contact the author. + + +3. QUICK REFERENCE LIST OF COMMANDS AND FUNCTIONS + + Be aware that many of these commands and functions will not be + available unless you have set certain flags in the header files + (see the expanded reference section below for dependencies). + + ABS( number ) + ASC( string$ ) + ATN( number ) + CALL subroutine-name + CASE ELSE | IF partial-expression | constant + CHAIN [MERGE] file-name [, line-number] [, ALL] + CHDIR pathname + CHR$( number ) + CINT( number ) + CLEAR + CLOSE [[#]file-number]... + CLS + COMMON variable [, variable...] + COS( number ) + CSNG( number ) + CVD( string$ ) + CVI( string$ ) + CVS( string$ ) + DATA constant[,constant]... + DATE$ + DEF FNname(arg...)] = expression + DEFDBL letter[-letter](, letter[-letter])... + DEFINT letter[-letter](, letter[-letter])... + DEFSNG letter[-letter](, letter[-letter])... + DEFSTR letter[-letter](, letter[-letter])... + DELETE line[-line] + DIM variable(elements...)[variable(elements...)]... + DO NUM|UNNUM + DO [WHILE expression] + EDIT + ELSE + ELSEIF + END IF | FUNCTION | SELECT | SUB + ENVIRON variable-string = string + ENVIRON$( variable-string ) + EOF( device-number ) + ERASE variable[, variable]... + ERL + ERR + ERROR number + EXP( number ) + FIELD [#] device-number, number AS string-variable [, number AS string-variable...] + FILES filespec$ + FUNCTION + FOR counter = start TO finish [STEP increment] + GET [#] device-number [, record-number] + GOSUB line | label + GOTO line | label + HEX$( number ) + IF expression THEN [statement [ELSE statement]] + INKEY$ + INPUT [# device-number]|[;]["prompt string";]list of variables + INSTR( [start-position,] string-searched$, string-pattern$ ) + INT( number ) + KILL file-name + LEFT$( string$, number-of-spaces ) + LEN( string$ ) + LET variable = expression + LINE INPUT [[#] device-number,]["prompt string";] string-variable$ + LIST line[-line] + LOAD file-name + LOC( device-number ) + LOCATE line, column + LOF( device-number ) + LOG( number ) + LOOP [UNTIL expression] + LSET string-variable$ = expression + MERGE file-name + MID$( string$, start-position-in-string[, number-of-spaces ] ) + MKD$( number ) + MKDIR pathname + MKI$( number ) + MKS$( number ) + NAME old-file-name AS new-file-name + NEW + NEXT [counter] + OCT$( number ) + ON variable GOTO|GOSUB line[,line,line,...] + ON ERROR GOSUB line + OPEN "O"|"I"|"R", [#]device-number, file-name [,record length] + file-name FOR INPUT|OUTPUT|APPEND AS [#]device-number [LEN = record-length] + OPTION BASE number + POS + PRINT [# device-number,][USING format-string$;] expressions... + PUT [#] device-number [, record-number] + QUIT + RANDOMIZE number + READ variable[, variable]... + REM string + RESTORE line + RETURN + RIGHT$( string$, number-of-spaces ) + RMDIR pathname + RND( number ) + RSET string-variable$ = expression + RUN [line][file-name] + SAVE file-name + SELECT CASE expression + SGN( number ) + SIN( number ) + SPACE$( number ) + SPC( number ) + SQR( number ) + STOP + STR$( number ) + STRING$( number, ascii-value|string$ ) + SUB subroutine-name + SWAP variable, variable + SYSTEM + TAB( number ) + TAN( number ) + TIME$ + TIMER + TROFF + TRON + VAL( string$ ) + WEND + WHILE expression + WIDTH [# device-number,] number + WRITE [# device-number,] element [, element ].... + + +4. GENERAL NOTES ON USAGE: + + 4.a. Interactive Environment + + An interactive environment is provided if the flag INTERACTIVE + is defined as TRUE in bwbasic.h, so that a line with a + line number can be entered at the bwBASIC prompt and it will be + added to the program in memory. + + Line numbers are not strictly required, but are useful if the + interactive enviroment is used for programming. For longer + program entry one might prefer to use an ASCII text editor, and + in this case lines can be entered without numbers. One can use + DO NUM and DO UNNUM to number or unnumber lines. See also the + documentation below for the pseudo-command EDIT. + + 4.b. Naming Conventions + + Command names and function names are not case sensitive, + so that "Run" and "RUN" and "run" are equivalent and "abs()" + and "ABS()" and "Abs()" are equivalent. HOWEVER, variable + names ARE case sensitive in bwbASIC, so that "d$" and "D$" + are different variables. This differs from some BASIC + implementations where variable names are not case sensitive. + + Variable names can use any alphabetic characters, the period + and underscore characters and decimal digits (but not in the + first position). They can be terminated with '#' or '!' to + allow Microsoft-type names, even though the precision is + irrelevant to bwBASIC. + + 4.c. Numerical Constants + + Numerical constants may begin with a digit 0-9 (decimal), with + the "&H" or "&h" (hexadecimal) or the "&o" or "&O" (octal). + Decimal numbers may terminated with 'E', 'e', 'D', or 'd' + followed by an exponent number to denote exponential notation. + Decimal constants may also be terminated by the '#' or '!' + to comply with Microsoft-style precision terminators, although + the precision specified will be irrelevant to bwBASIC. + + 4.d. Command-Line Execution + + A filename can be specified on the command line and will be + LOADed and RUN immediately, so that the command line + + bwbasic prog.bas + + will load and execute "prog.bas". + + 4.e. Program Storage + + All programs are stored as ASCII text files. + + 4.f. TRUE and FALSE + + TRUE is defined as -1 and FALSE is defined as 0 in the default + distribution of bwBASIC. These definitions can be changed by + those compiling bwBASIC (see file BWBASIC.H). + + 4.g. Assignments + + Assignment must be made to variables. This differs from some + implementations of BASIC where assignment can be made to a + function. Implication: "INSTR( 3, x$, y$ ) = z$" will not + work under bwBASIC. + + 4.h. Operators and Precedence + + bwBASIC recognizes the following operators, with their level + of precedence given (1 = highest): + + ^ 1 exponentiation + * 2 multiplication + / 2 division + \ 3 integer division + + 5 addition + - 5 subtraction + = 6 equality or assignment + MOD 4 modulus (remainder) arithmetic + <> 7 inequality + < 8 less than + > 9 greater than + <= 10 less than or equal to + =< 10 less than or equal to + >= 11 greater than or equal to + => 11 greater than or equal to + NOT 12 negation + AND 13 conjunction + OR 14 disjunction + XOR 15 exclusive or + IMP 16 implication + EQV 17 equivalence + + 4.h. Numerical Precision (NOT) + + bwBASIC utilizes numbers with only one level of precision. If + the flag NUMBER_DOUBLE is defined as TRUE in bwbasic.h, the + precision implemented will be that of the C "double" data type; + otherwise (default) the precision will be that of the C "float" + type. At a number of points there are commands (or pseudo- + commands) that seem to recognize Microsoft-style precision + distinctions, but for the most part these are just work-around + aliases to allow Microsoft-style programs to be run. + + +5. EXPANDED REFERENCE FOR COMMANDS AND FUNCTIONS + + The "Dependencies" listed in the folowing reference materials + refers to flags that must be set to TRUE in bwbasic.h for the + associated command or function to be implemented. These flags + are as follows: + + (core) Commands and Functions in any implementation of + bwBASIC; these are the ANSI Minimal BASIC core + + INTERACTIVE Commands supporting the interactive programming + environment + + COMMON_CMDS Commands beyond ANSI Minimal BASIC which are common + to Full ANSI BASIC and Microsoft BASICs + + COMMON_FUNCS Functions beyond the ANSI Mimimal BASIC core, but + common to both ANSI Full BASIC and Microsoft-style + BASIC varieties + + UNIX_CMDS Commands which require Unix-style directory and + environment routines not specified in C + + STRUCT_CMDS Commands related to structured programming; all + of these are part of the Full ANSI BASIC standard + + ANSI_FUNCS Functions unique to ANSI Full BASIC + + MS_CMDS Commands unique to Microsoft BASICs + + MS_FUNCS Functions unique to Microsoft BASICs + + + ------------------------------------------ + + Function: ABS( number ) + + Description: ABS returns the absolute value of the argument 'number'. + + Dependencies: (core) + + ------------------------------------------ + + Function: ASC( string$ ) + + Description: ASC returns the ASCII code for the first letter in + the argument string$. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: ATN( number ) + + Description: ATN returns the arctangent value of the argument 'number' + in radians. + + Dependencies: (core) + + ------------------------------------------ + + Command: CALL subroutine-name + + Description: CALL calls a named subroutine (see SUB and END SUB). + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: CASE ELSE | IF partial-expression | constant + + Description: CASE introduces an element of a SELECT CASE statement + (see SELECT CASE). CASE IF introduces a conditional + SELECT CASE element, and CASE ELSE introduces a + default SELECT CASE element. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: CHAIN [MERGE] file-name [, line-number] [, ALL] + + Description: CHAIN passes control to another BASIC program. + Variables declared COMMON (q.v.) will be passed + to the new program. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: CHDIR pathname$ + + Description: CHDIR changes the current directory to that indicated + by the argument pathname$. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Function: CHR$( number ) + + Description: CHR$ returns a one-character string with the character + corresponding to the ASCII code indicated by argument + 'number'. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Function: CINT( number ) + + Description: CINT returns the truncated integer for the argument + 'number'. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: CLEAR + + Description: CLEAR sets all numerical variables to 0, and all + string variables to null. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: CLOSE [[#]file-number]... + + Description: CLOSE closes the file indicated by file-number + (see OPEN). + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: CLS + + Description: CLS clears the display screen (IBM and compatibles + only as of version 2.10). + + Dependencies: IMP_IQC and IMP_CMDLOC + + ------------------------------------------ + + Command: CMDS + + Description: CMDS is a debugging command that prints a list + of all implemented bwBASIC commands. + + Dependencies: DEBUG + + ------------------------------------------ + + Command: COMMON variable [, variable...] + + Description: COMMON designates variables to be passed to a CHAINed + program (see CHAIN). + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Function: COS( number ) + + Description: COS returns the cosine of the argument 'number' + in radians. + + Dependencies: (core) + + ------------------------------------------ + + Function: CSNG( number ) + + Description: CSNG is a pseudo-function that has no effect under + bwBASIC. It replicates a Microsoft-type command + that would convert the 'number' to single-precision. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: CVD( string$ ) + + Description: CVD converts the argument string$ into a bwBASIC + number (precision is irrelevant in bwBASIC since + bwBASIC numbers have only one precision). + + Implenentation-Specific Notes: + + CVD(), CVI(), CVS(), MKI$(), MKD$(), MKS$(): These functions + are implemented, but are dependent on a) the sizes for integer, + float, and double values on particular systems, and b) how + particular versions of C store these numerical values. The + implication is that data files created using these functions + on a DOS-based microcomputer may not be translated correctly + by bwBASIC running on a Unix-based computer. Similarly, data + files created by bwBASIC compiled by one version of C may not be + readable by bwBASIC compiled by another version of C (even under + the same operating system). So be careful with these. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: CVI( string$ ) + + Description: CVI converts the argument string$ into a bwBASIC + number (precision is irrelevant in bwBASIC since + bwBASIC numbers have only one precision; see also + the note on CVD). + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: CVS( string$ ) + + Description: CVI converts the argument string$ into a bwBASIC + number (precision is irrelevant in bwBASIC since + bwBASIC numbers have only one precision; see also + the note on CVD). + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: DATA constant[,constant]... + + Description: DATA stores numerical and string constants to be + accessed by READ (q.v.). + + Dependencies: (core) + + ------------------------------------------ + + Function: DATE$ + + Description: DATE$ returns the current date based on the computer's + internal clock as a string in the form "YYYY-MM-DD". + As implemented under bwBASIC, DATE$ cannot be used for + assignment (i.e., to set the system date). + + Note: bwBASIC presently (v2.10) does not allow assignment + to a function. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Command: DEF FNname(arg...)] = expression + + Description: DEF defines a user-written function. This function + corresponds to Microsoft-type implementation, although + in bwBASIC DEF is a working equivalent of FUNCTION. + + Dependencies: (core) + + ------------------------------------------ + + Command: DEFDBL letter[-letter](, letter[-letter])... + + Description: DEFDBL declares variables with single-letter names + as numerical variables (precision is irrelevant in + bwBASIC). + + Dependencies: MS_CMDS + + ------------------------------------------ + + Command: DEFINT letter[-letter](, letter[-letter])... + + Description: DEFINT declares variables with single-letter names + as numerical variables (precision is irrelevant in + bwBASIC). + + Dependencies: MS_CMDS + + ------------------------------------------ + + Command: DEFSNG letter[-letter](, letter[-letter])... + + Description: DEFSNG declares variables with single-letter names + as numerical variables (precision is irrelevant in + bwBASIC). + + Dependencies: MS_CMDS + + ------------------------------------------ + + Command: DEFSTR letter[-letter](, letter[-letter])... + + Description: DEFSTR declares variables with single-letter names + as string variables. + + Dependencies: MS_CMDS + + ------------------------------------------ + + Command: DELETE line[-line] + + Description: DELETE deletes program lines indicated by the + argument(s). If you want to use DELETE for non- + numbered programs, first use DO NUM, then DELETE, + then DO UNNUM. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: DIM variable(elements...)[variable(elements...)]... + + Description: DIM specifies variables that have more than one + element in a single dimension, i.e., arrayed + variables. + + Note: As implemented under bwBASIC, DIM accepts only + parentheses as delimiters for variable fields. + (Some BASICs allow the use of square brackets.) + + Dependencies: (core) + + ------------------------------------------ + + Command: DO NUM|UNNUM + + Description: DO NUM numbers all lines in a program. The first + line is given the number 10, and subsequent lines + are numbered consecutively in multiples of 10. DO + UNNUM removes all line numbers from a program. + NOTE that these functions do nothing to line + numbers, e.g., following a GOSUB or GOTO statement; + these commands cannot be used as a replacement for + RENUM (available in some systems, but not bwBASIC). + With these commands, however, one can develop + unnumbered programs by entering new lines with numbers, + then running DO UNNUM to remove the line numbers. + Together with LOAD and SAVE (q.v.) one can use + bwBASIC as a primitive text editor. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: DO [WHILE expression] + + Description: DO implements a number of forms of program loops. + DO...LOOP simply loops; the only way out is by + EXIT; DO WHILE...LOOP loops while "expression" is + true (this is equivalent to the older WHILE-WEND + loop, also implemented in bwBASIC); DO...LOOP UNTIL + loops until the expression following UNTIL is true. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: EDIT + + Description: EDIT is a pseudo-command which calls the text editor + specified in the variable BWB.EDITOR$ to edit the + program in memory. After the call to the text editor, + the (edited) prgram is reloaded into memory. The user + normally must specific a valid path and filename in + BWB.EDITOR$ before this command will be useful. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: ELSE + + Description: ELSE introduces a default condition in a multi-line IF + statement. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: ELSEIF + + Description: ELSEIF introduces a secondary condition in a multi- + line IF statement. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: END IF | FUNCTION | SELECT | SUB + + Description: END IF ends a multi-line IF statement. END FUNCTION + ends a multi-line function definition. END SELECT + ends a SELECT CASE statement. END SUB ends a multi- + line subroutine definition. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: ENVIRON variable-string$ = string$ + + Description: ENVIRON sets the environment variable identified by + variable-string$ to string$. + + It might be noted that this differs from the implementation + of ENVIRON in some versions of BASIC, but bwBASIC's ENVIRON + allows BASIC variables to be used on either side of the equals + sign. Note that the function ENVIRON$() is different from the + command, and be aware of the fact that in some operating systems + an environment variable set within a program will not be passed + to its parent shell. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Function: ENVIRON$( variable-string$ ) + + Description: ENVIRON$ returns the environment variable associated with + the name variable-string$. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: EOF( device-number ) + + Description: EOF returns TRUE (-1) if the device associated with + device-number is at the end-of-file, otherwise it + returns FALSE (0). + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: ERASE variable[, variable]... + + Description: ERASE eliminates arrayed variables from a program. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Function: ERL + + Description: ERL returns the line number of the most recent error. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: ERR + + Description: ERR returns the error number of the most recent error. + + Note that if PROG_ERRORS has been defined when bwBASIC is + compiled, the ERR variable will not be set correctly upon + errors. It only works when standard error messages are used. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: ERROR number + + Description: ERROR simulates an error, i.e., displays the message + appropriate for that error. This command is helpful + in writing ON ERROR GOSUB routines that can identify + a few errors for special treatment and then ERROR ERR + (i.e., default handling) for all others. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: EXIT [FOR] + + Description: EXIT by itself exits from a DO...LOOP loop; + EXIT FOR exits from a FOR...NEXT loop. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Function: EXP( number ) + + Description: EXP returns the exponential value of 'number'. + + Dependencies: (core) + + ------------------------------------------ + + Command: FIELD [#] device-number, number AS string-variable$ [, number AS string-variable$...] + + Description: FIELD allocates space in a random file buffer for device + indicated by device-number, allocating 'number' bytes + and assigning the bytes at this position to the variable + string-variable$. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: FILES filespec$ + + Description: FILES is a pseudocommand that invokes the directory program + specified in the variable BWB.FILES$ with the argument + filespec$. Normally, the user must set this variable + before FILES can be used. E.g., for PC-type computers, + + BWB.FILES$ = "DIR" + + will work, for Unix machines, + + BWB.FILES$ = "ls -l" + + etc. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: FNCS + + Description: CMDS is a debugging command that prints a list + of all pre-defined bwBASIC functions. + + Dependencies: DEBUG + + ------------------------------------------ + + Command: FUNCTION + + Description: FUNCTION introduces a function definition, normally + ending with END FUNCTION. In bwBASIC, FUNCTION and + DEF are qorking equivalents, so either can be used + with single-line function definitions or with multi- + line definitions terminated by END FUNCTION. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: FOR counter = start TO finish [STEP increment] + + Description: FOR initiates a FOR-NEXT loop with the variable + 'counter' initially set to 'start' and incrementing + in 'increment' steps (default is 1) until 'counter' + equals 'finish'. + + Dependencies: (core) + + ------------------------------------------ + + Command: GET [#] device-number [, record-number] + + Description: GET reads the next reacord from a random-access file + or device into the buffer associated with that file. + If record-number is specified, the GET command reads the + specified record. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: GOSUB line | label + + Description: GOSUB initiates a subroutine call to the line (or label) + specified. The subroutine must end with RETURN. + + Dependencies: (core), but STRUCT_CMDS for labels + + ------------------------------------------ + + Command: GOTO line | label + + Description: GOTO branches program execution to the specified line + (or label). + + Dependencies: (core), but STRUCT_CMDS for labels + + ------------------------------------------ + + Function: HEX$( number ) + + Description: HEX$ returns a string giving the hexadecimal (base 16) + value for the 'number'. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: IF expression THEN [statement [ELSE statement]] + + Description: IF evaluates 'expression' and performs the THEN + statement if it is true or (optionally) the + ELSE statement if it is FALSE. If STRUCT_CMDS + is set to TRUE, bwBASIC allows multi-line IF + statements with ELSE and ELSEIF cases, ending + with END IF. + + Dependencies: (core), STRUCT_CMDS for multi-line IF statements + + ------------------------------------------ + + Function: INKEY$ + + Description: INKEY$ reads the status of the keyboard, and a single + keypress, if available. If a keypress is not available, + then INKEY$ immediately returns a null string (""). + Currently (v2.10) implemented in bwx_iqc.c only. + + Dependencies: IMP_IQC and IMP_CMDLOC + + ------------------------------------------ + + Command: INPUT [# device-number]|[;]["prompt string";]list of variables + + Description: INPUT allows input from the terminal or a device + specified by device-number. If terminal, the "prompt + string" is output, and input is assigned to the + appropriate variables specified. + + bwBASIC does not support the optional feature of INPUT + that suppresses the carriage-return and line-feed at the end + of the input. This is because C alone does not provide for any + means of input other than CR-LF-terminated strings. + + Dependencies: (core) + + ------------------------------------------ + + Function: INSTR( [start-position,] string-searched$, string-pattern$ ) + + Description: INSTR returns the position at which string-pattern$ + occurs in string-searched$, beginning at start-position. + As implemented in bwBASIC, INSTR cannot be used for + assignments. + + Note: bwBASIC presently (v2.10) does not allow assignment + to a function. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: INT( number ) + + Description: INT returns the largest integer less than or equal to + the argument 'number'. NOTE that this is not a "truncated" + integer function, for which see CINT. + + Dependencies: (core) + + ------------------------------------------ + + Command: KILL file-name$ + + Description: KILL deletes the file specified by file-name$. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Function: LEFT$( string$, number-of-spaces ) + + Description: LEFT$ returns a substring a string$ with number-of-spaces + from the left (beginning) of the string). As implemented + under bwBASIC, it cannot be used for assignment. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: LEN( string$ ) + + Description: LEN returns the length in bytes of string$. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Command: LET variable = expression + + Description: LET assigns the value of 'expression' to the variable. + As currently implemented, bwBASIC supports implied LET + statements (e.g., "X = 4.5678" at the beginning of + a line or line segment, but does not support assignment + to multiple variables (e.g., "x, y, z = 3.141596"). + + Dependencies: (core) + + ------------------------------------------ + + Command: LINE INPUT [[#] device-number,]["prompt string";] string-variable$ + + Description: LINE INPUT reads entire line from the keyboard or a file + or device into string-variable$. If input is from the + keyboard (stdin), then "prompt string" will be printed + first. Unlike INPUT, LINE INPUT reads a whole line, + not stopping for comma-delimited data items. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: LIST line[-line] + + Description: LIST lists program lines as specified in its argument. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: LOAD file-name + + Description: LOAD loads an ASCII BASIC program into memory. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Function: LOC( device-number ) + + Description: LOC returns the next record that GET or PUT statements + will use. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: LOCATE line, column + + Description: LOCATE addresses trhe curor to a specified line and + column. Currently (v2.10) implemented in bwx_iqc.c only. + + Dependencies: IMP_IQC and IMP_CMDLOC + + ------------------------------------------ + + Function: LOF( device-number ) + + Description: LOF returns the length of a file (specified by device-number) + in bytes. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: LOG( number ) + + Description: LOG returns the natural logarithm of the argument 'number'. + + Dependencies: (core) + + ------------------------------------------ + + Command: LOOP [UNTIL expression] + + Description: LOOP terminates a program loop: see DO. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: LSET string-variable$ = expression + + Description: LSET transfers data from 'expression' to the left-hand + side of a string variable or random access buffer field. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: MERGE file-name + + Description: MERGE adds program lines from 'file-name' to the program + in memory. Unlike LOAD, it does not clear the program + currently in memory. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Function: MID$( string$, start-position-in-string[, number-of-spaces ] ) + + Description: MID$ returns a substring of string$ beginning at + start-position-in-string and continuing for + number-of-spaces bytes. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: MKDIR pathname$ + + Description: MKDIR creates a new directory path as specified by + pathname$. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Function: MKD$( number ) + + Description: MKD$, MKI$, and MKS$ are all equivalent in bwBASIC. + They convert the numerical value 'number' into a string + which can be stored in a more compressed form in a file + (especially for random file access). Since bwBASIC does + not recognize differences in precision, these commands + are effectively equivalent. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: MKI$( number ) + + Description: Equivalent to MKD$ (q.v.) + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: MKS$( number ) + + Description: Equivalent to MKD$ (q.v.). + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: NAME old-file-name AS new-file-name + + Description: NAME renames an existing file (old-file-name) as + new-file-name. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Command: NEW + + Description: NEW deletes the program in memory and clears all + variables. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: NEXT [counter-variable] + + Description: NEXT comes at the end of a FOR-NEXT loop; see FOR. + + Dependencies: (core) + + ------------------------------------------ + + Function: OCT$( number ) + + Description: OCT$ returns a string giving the octal (base 8) + representation of 'number'. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: ON variable GOTO|GOSUB line[,line,line,...] + + Description: ON either branches (GOTO) or calls a subroutine + (GOSUB) based on the rounded value of variable; + if it is 1, the first line is called, if 2, the second + line is called, etc. + + Dependencies: (core) + + ------------------------------------------ + + Command: ON ERROR GOSUB line|label + + Description: ON ERROR sets up an error handling subroutine. See + also ERROR. + + Dependencies: COMMON_CMDS, STRUCT_CMDS for labels + + ------------------------------------------ + + Command: OPEN "O"|"I"|"R", [#]device-number, file-name [,record length] + file-name FOR INPUT|OUTPUT|APPEND AS [#]device-number [LEN = record-length] + + Description: OPEN allocates random access memory for access to a disk + file or other device. Note that two quite different forms + of the OPEN statement are supported. In the first form, + "O" (note that these letters must be encased in quotation + marks) denotes sequential output, "I" denotes sequential + input, and "R" denotes random-access input and output. + Once OPEN, any number of operations can be performed + on a device (see WRITE #, INPUT #, PRINT #, etc.). + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: OPTION BASE number + + Description: OPTION BASE sets the lowest value for array subscripts, + either 0 or 1. + + Dependencies: (core) + + ------------------------------------------ + + Function: POS + + Description: POS returns the current cursor position in the line. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Command: PRINT [# device-number,][USING format-string$;] expressions... + + Description: PRINT outputs text to the screen or to a file or device + specified by device-number. In the current implementation + of bwBASIC, expressions to be printed must be separated by + the comma (tabbed output), the semicolon (immediate + sequential output) or the plus sign (immediate sequential + output by string concatenation). Expressions separated + by blanks or tabs are not supported. If USING is specified, + a number of formatting marks may appear in the format + string: + + ! prints the first character of a string + + \\ prints 2+x characters of a string, where x = + the number of spaces between the backslashes + + & variable-length string field + + # represents a single digit in output format for + a number + + . decimal point in a number + + + sign of a number (will output + or -) + + - trailing minus after a number + + ** fill leading spaces with asterisks + + $$ output dollar sign in front of a number + + ^^ output number in exponential format + + _ output next character literally + + As currently implemented, the exponential format + will be that used by the C compiler. + + Dependencies: (core), COMMON_FUNCS for USING + + ------------------------------------------ + + Command: PUT [#] device-number [, record-number] + + Description: PUT outputs the next available record or the record + specified by record-number to the file or device + denoted by device-number. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: QUIT + + Description: QUIT is a synonym for SYSTEM; with INTERACTIVE + environment, it exits the program to the + operating system (or the calling program). + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: RANDOMIZE number + + Description: RANDOMIZE seeds the random number generator (see RND). + Under bwBASIC, the TIMER function (q.v.) can be used + to supply a 'number' seed for the random number + generator. + + Dependencies: (core) + + ------------------------------------------ + + Command: READ variable[, variable]... + + Description: READ reads values from DATA statements and assigns these + values to the named variables. Variable types in a READ + statement must match the data types in DATA statements + as they are occurred. See also DATA and RESTORE. + + Dependencies: (core) + + ------------------------------------------ + + Command: REM string + + Description: REM allows remarks to be included in a program. As + currently implemented, the entire line following + REM is ignored by the interpreter (thus, even if + MULTISEG_LINES is set, a REM line will not be able + to find a segment delimiter (":") followed by another + line segment with command. bwBASIC does not currently + implement the Microsoft-style use of the single quotation + mark to denote remarks. + + Dependencies: (core) + + ------------------------------------------ + + Command: RESTORE line + + Description: RESTORE resets the line and position counters for DATA + and READ statements to the top of the program file or + to the beginning of the specified line. (Currently this + must be a line number.) + + Dependencies: (core) + + ------------------------------------------ + + Command: RETURN + + Description: RETURN concludes a subroutine called by GOSUB. + + Dependencies: (core) + + ------------------------------------------ + + Function: RIGHT$( string$, number-of-spaces ) + + Description: RIGHT$ returns a substring a string$ with number-of-spaces + from the right (end) of the string). As implemented + under bwBASIC, it cannot be used for assignment. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: RMDIR pathname + + Description: RMDIR deletes the directory path indicated by pathname. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Function: RND( number ) + + Description: RND returns a pseudo-random number. The 'number' value + is ignored by bwBASIC if supplied. The RANDOMIZE + command (q.v.) reseeds the random-number generator. + + Dependencies: (core) + + ------------------------------------------ + + Command: RSET string-variable$ = expression + + Description: RSET transfers data from 'expression' to the right-hand + side of a string variable or random access buffer field. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: RUN [line][file-name$] + + Description: RUN executes the program in memory. If a file-name$ is + supplied, then the specified file is loaded into memory + and executed. If a line number is supplied, then execution + begins at that line. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: SAVE file-name$ + + Description: SAVE saves the program in memory to file-name$. bwBASIC + only saves files in ASCII format. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: SELECT CASE expression + + Description: SELECT CASE introduces a multi-line conditional selection + statement. The expression given as the argument to SELECT + CASE will be evaluated by CASE statements following. The + SELECT CASE statement conclludes with an END SELECT + statement. + + As currently implemented, CASE statements may be followed + by string values, but in this case only simple comparisons + (equals, not equals) can be performed. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Function: SGN( number ) + + Description: SGN returns the sign of the argument 'number', +1 + for positive numbers, 0 for 0, and -1 for negative numbers. + + Dependencies: (core) + + ------------------------------------------ + + Function: SIN( number ) + + Description: SIN returns the sine of the argument 'number' + in radians. + + Dependencies: (core) + + ------------------------------------------ + + Function: SPACE$( number ) + + Description: SPACE$ returns a string of blank spaces 'number' + bytes long. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: SPC( number ) + + Description: SPC returns a string of blank spaces 'number' + bytes long. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: SQR( number ) + + Description: SQR returns the square root of the argument 'number'. + + Dependencies: (core) + + ------------------------------------------ + + Command: STOP + + Description: STOP interrupts program execution. As implemented under + bwBASIC, STOP issues a SIGINT signal. + + Dependencies: (core) + + ------------------------------------------ + + Function: STR$( number ) + + Description: STR$ returns a string giving the decimal (base 10) + representation of the argument 'number'. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Function: STRING$( number, ascii-value|string$ ) + + Description: STRING$ returns a string 'number' bytes long consisting + of either the first character of string$ or the character + answering to the ASCII value ascii-value. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: SUB subroutine-name + + Description: SUB introduces a named, multi-line subroutine. The + subroutine is called by a CALL statement, and concludes + with an END SUB statement. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: SWAP variable, variable + + Description: SWAP swaps the values of two variables. The two variables + must be of the same type (either numerical or string). + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: SYSTEM + + Description: SYSTEM exits from bwBASIC to the calling program or + (more usually) the operating system. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Function: TAB( number ) + + Description: TAB outputs spaces until the column indicated by + 'number' has been reached. + + Dependencies: (core) + + ------------------------------------------ + + Function: TAN( number ) + + Description: TAN returns the tangent of the argument 'number' + in radians. + + Dependencies: (core) + + ------------------------------------------ + + Function: TIME$ + + Description: TIME$ returns the current time based on the computer's + internal clock as a string in the form "HH-MM-SS". + As implemented under bwBASIC, TIME$ cannot be used for + assignment (i.e., to set the system time). + + Note: bwBASIC presently (v2.10) does not allow assignment + to a function. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Function: TIMER + + Description: TIMER returns the time in the system clock in seconds + elapsed since midnight. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: TROFF + + Description: TROFF turns of the trace facility; see TRON. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: TRON + + Description: TRON turns on the trace facility. This facility will print + each line number in square brackets as the program is + executed. This is useful in debugging programs with + line numbers. To debug an unnumbered program with + TRON, call DO NUM first, but remember to call DO UNNUM + before you save the program later. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Function: VAL( string$ ) + + Description: VAL returns the numerical value of the string$. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Command: VARS + + Description: VARS is a debugging command which prints a list of + all variables defined which have global scope. + + Dependencies: DEBUG + + ------------------------------------------ + + Command: WEND + + Description: WEND concludes a WHILE-WEND loop; see WHILE. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: WHILE expression + + Description: WHILE initiates a WHILE-WEND loop. The loop ends with + WEND, and execution reiterates through the loop as + long as the 'expression' is TRUE (-1). + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: WIDTH [# device-number,] number + + Description: WIDTH sets screen or device output to 'number' + columns. device-number specifies the device + or file for oputput. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: WRITE [# device-number,] element [, element ].... + + Description: WRITE outputs variables to the screen or to a file + or device specified by device-number. Commas + are inserted between expressions output, and strings + are enclosed in quotation marks. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + +6. PREDEFINED VARIABLES + + BWB.EDITOR$ + BWB.FILES$ + BWB.PROMPT$ + BWB.IMPLEMENTATION$ + + The commands EDIT and FILES are pseudo-commands that launch + shell programs named in the variables BWB.EDITOR$ and BWB.FILES$, + respectively. The default values for these variables can + be changed in bwbasic.h (DEF_EDITOR and DEF_FILES), or they + can be changed on the fly by the user. An idea might be to + initialize these variables in "profile.bas" for specific + implementations; for instance, BWB.FILES$ might be defined as + "ls -l" on Unix systems or "dir" on DOS systems. + + The preset variable BWB.PROMPT$ can be used to set the prompt + string for bwBASIC. Again, it is suggested that a user- + selected promptcan be set up in a "profile.bas" to be + initialized each time bwBASIC starts. Note that special + characters can be added to the prompt string, e.g., + + BWB.PROMPT$ = "Ok"+CHR$(10) + + will give an "Ok" prompt followed by a linefeed. + + The preset variable BWB.IMPLEMENTATION$ will return "TTY" for + the bwx_tty implementation and will return "IQC" for the + IBM PC or Compatibles with QuickC (bwx_iqc) implementation. + This may be useful in determing which commands and functions + (specifically CLS, LOCATE, and INKEY$) may be available. + + +7. UNIMPLEMENTED COMMANDS AND FUNCTIONS, and AGENDA FOR DEVELOPMENT + + There are some items not implemented that have been so long + a part of standard BASICs that their absence will seem surprising. + In each case, though, their implementation would require opera- + ting-system-specific functions or terminal-specific functions + that cannot be universally provided. Some specific examples: + + CLOAD Relies on CP/M or MSDOS conventions for binary + executable files. + + CONT See RESUME below (programmer ignorance?). + + DEF USR Relies on CP/M or MSDOS conventions for binary + executable files. + + FRE() The ability to report the amount of free memory + remaining is system-specific due to varying patterns + of memory allocation and access; consequently this + ability is not present in ANSI or earlier versions + of C and this function is not available in bwBASIC. + + INPUT$() C by itself is not able to read unechoed keyboard + input, and can read keyboard input only after a + Carriage-Return has been entered. + + INP Calls to hardware ports, like machine-language + routines, are highly system-specific and cannot + be implemented in C alone. + + LLIST See LPRINT below. + + LPOS See LPRINT below. + + LPRINT and LLIST, etc., require access to a printer device, + and this varies from one system to another. Users + might try OPENing the printer device on their own + operating system (e.g., "/dev/lp" on Unix systems, + or "PRN" under DOS) and see if printing can be done + from bwBASIC in this way. + + NULL In this case, I am convinced that NULL is no longer + necessary, since very few printers now require NULLs + at the end of lines. + + OUT See INP above (calls to hardware ports). + + PEEK() PEEK and POKE enabled earlier BASICs to address + particular memory locations. Although bwBASIC + could possibly implement this command (POKE) and + this function (PEEK()), the limitation would be + highly limited by the different systems for + memory access in different systems. + + POKE see PEEK() above. + + RENUM Since unnumbered lines can be entered and + executed under bwBASIC, it would not be + possible to implement a RENUM routine. + Instead, bwBASIC uses DO NUM and DO UNNUM. + + RESUME Is this possible under C? If so, I + simply have failed to figure it out yet. + Mea culpa (but not maxima). + + USR See CALL and DEF USR above (machine language + subroutines). + + VARPTR See PEEK and POKE above. + + WAIT See INP and OUT above. + + There are other commands, functions, and implementation details + that I am working on, and which are on the agenda list for future + versions of bwBASIC. These agenda include: + + PARACT i.e., the ability to execute PARallel ACTions. This + is described in ANSI BASIC, although I have not seen it + implemented before. It will offer a rough, non- + preemptive form of multitasking within the scope + of a BASIC program. Programmers will note points at which + there are already hooks for PARACT in bwBASIC. + + XMEM PC-type computers need to be able to use extended + memory. If we could use extended memory for program + lines, variables, and function defitions, we could + write much longer programs. This would entail, + however, a fairly serious rewriting of the program + to utilize memory handles for these storage features + instead of direct memory pointers. + + Windows The addition of memory handles in addition to the + non-preemptive execution of program lines (in a + crude form, already present) will make it possible + to develop implementations for Windows and perhaps + for other graphical user interfaces. But what form + should this take? I have in mind presently a BASIC + that would run in the background, appearing only + as an icon in the GUI space, with pop-up editors + and output windows. Thus, the interpreted language + would serve a purpose something like 'cron' (a task + scheduler) under Unix systems. You may have some + reflections that would help me in this. + + Graphics Here we face fairly critical differences in different + styles and implementations of graphics, e.g., between + GWBASIC, ANSI BASIC, VisualBASIC, etc. But it's + possible that Graphics commands and functions could + be added. These would all be implementation-specific. + + The ANSI Standard for full BASIC does not specify which particular + commands or functions must be implemented, and in fact the standard + is very robust. Perhaps no implementation of BASIC would ever + include all of the items, but some ANSI commands and functions which + remain unimplemented are: + + ACCESS + ANGLE + AREA + ARITHMETIC + ARRAY + ASK + BSTR + BVAL + CEIL + CELLS + CLIP + COLLATE + CONNECT + COSH + DATUM + DEBUG + DECIMAL + DECLARE + DEGREES + DEVICE + DISCONNECT + DISPLAY + DOT + DRAW + ERASE + EVENT + EXCEPTION + GRAPH + HANDLER + IMAGE + KEY + LCASE + LINES + LOG10 + LOG2 + MAT + MIX + MULTIPOINT + OUTIN + OUTPUT + PARACT + PICTURE + PIXEL + PLOT + POINTS + RADIANS + RECEIVE + RENUMBER + REWRITE + ROTATE + ROUND + SEIZE + SEND + SHIFT + SINH + TANH + TIMEOUT + TRACE + TRANSFORM + TRUNCATE + UBOUND + UCASE + VIEWPORT + WAIT + VIEWPORT + ZONEWIDTH + + +8. THE STORY OF BYWATER BASIC + + This program was originally begun in 1982 by my grandmother, Mrs. + Verda Spell of Beaumont, TX. She was writing the program using + an ANSI C compiler on an Osborne I CP/M computer and although my + grandfather (Lockwood Spell) had bought an IBM PC with 256k of + RAM my grandmother would not use it, paraphrasing George Herbert + to the effect that "He who cannot in 64k program, cannot in 512k." + She had used Microsoft BASIC and although she had nothing against + it she said repeatedly that she didn't understand why Digital + Research didn't "sue the socks off of Microsoft" for version 1.0 + of MSDOS and so I reckon that she hoped to undercut Microsoft's + entire market and eventually build a new software empire on + the North End of Beaumont. Her programming efforts were cut + tragically short when she was thrown from a Beaumont to Port + Arthur commuter train in the summer of 1986. I found the source + code to bwBASIC on a single-density Osborne diskette in her knitting + bag and eventually managed to have it all copied over to a PC + diskette. I have revised it slightly prior to this release. You + should know, though, that I myself am an historian, not a programmer. + + +9. COMMUNICATIONS: + + email: tcamp@delphi.com + diff --git a/DMCDOS32.CMD b/DMCDOS32.CMD index 36a725f..3be4ae8 100644 --- a/DMCDOS32.CMD +++ b/DMCDOS32.CMD @@ -1,35 +1,35 @@ -@echo off -rem Filename: DMCDOS32.CMD -rem Purpose: Build Bywater BASIC for MS-DOS (32-bit) using Digital Mars Compiler Version 8.42n -rem Author: Howard Wulf, AF5NE -rem Date: 2015-01-29 -rem Uasage: implementation defined -rem Example: -rem cd \sdcard\Download\BASIC\bwbasic3\ -rem DMCDOS32.CMD -rem -rem This is the location of DMC.EXE -rem -set BINDIR=C:\DOS\dm\bin; -rem -rem Cleanup before compile -rem -DEL BW*.EXE 1> NUL 2> NUL -DEL BW*.OBJ 1> NUL 2> NUL -DEL BW*.MAP 1> NUL 2> NUL -rem -rem Compile -rem -set OLDPATH=%PATH% -set PATH=%BINDIR%;%PATH% -dmc.exe > DMCDOS32.TXT -dmc.exe -mx -A89 -oBWBASIC.EXE -DHAVE_MSDOS=1 bwbasic.c bwb_cmd.c bwb_cnd.c bwb_dio.c bwb_exp.c bwb_fnc.c bwb_inp.c bwb_int.c bwb_prn.c bwb_stc.c bwb_str.c bwb_tbl.c bwb_var.c bwd_cmd.c bwd_fun.c bwx_tty.c X32.LIB >> DMCDOS32.TXT -set PATH=%OLDPATH% -set OLDPATH= -set BINDIR= -rem -rem Cleanup after compile -rem -DEL BW*.OBJ 1> NUL 2> NUL -DEL BW*.MAP 1> NUL 2> NUL -rem EOF +@echo off +rem Filename: DMCDOS32.CMD +rem Purpose: Build Bywater BASIC for MS-DOS (32-bit) using Digital Mars Compiler Version 8.42n +rem Author: Howard Wulf, AF5NE +rem Date: 2015-01-29 +rem Uasage: implementation defined +rem Example: +rem cd \sdcard\Download\BASIC\bwbasic3\ +rem DMCDOS32.CMD +rem +rem This is the location of DMC.EXE +rem +set BINDIR=C:\DOS\dm\bin; +rem +rem Cleanup before compile +rem +DEL BW*.EXE 1> NUL 2> NUL +DEL BW*.OBJ 1> NUL 2> NUL +DEL BW*.MAP 1> NUL 2> NUL +rem +rem Compile +rem +set OLDPATH=%PATH% +set PATH=%BINDIR%;%PATH% +dmc.exe > DMCDOS32.TXT +dmc.exe -mx -A89 -oBWBASIC.EXE -DHAVE_MSDOS=1 bwbasic.c bwb_cmd.c bwb_cnd.c bwb_dio.c bwb_exp.c bwb_fnc.c bwb_inp.c bwb_int.c bwb_prn.c bwb_stc.c bwb_str.c bwb_tbl.c bwb_var.c bwd_cmd.c bwd_fun.c bwx_tty.c X32.LIB >> DMCDOS32.TXT +set PATH=%OLDPATH% +set OLDPATH= +set BINDIR= +rem +rem Cleanup after compile +rem +DEL BW*.OBJ 1> NUL 2> NUL +DEL BW*.MAP 1> NUL 2> NUL +rem EOF diff --git a/DMCWIN32.CMD b/DMCWIN32.CMD index 441e0df..d563a92 100644 --- a/DMCWIN32.CMD +++ b/DMCWIN32.CMD @@ -1,35 +1,35 @@ -@echo off -rem Filename: DMCWIN32.CMD -rem Purpose: Build Bywater BASIC for MS-WINDOWS (32-bit) using Digital Mars Compiler Version 8.42n -rem Author: Howard Wulf, AF5NE -rem Date: 2015-01-29 -rem Uasage: implementation defined -rem Example: -rem cd \sdcard\Download\BASIC\bwbasic3\ -rem DMCWIN32.CMD -rem -rem This is the location of DMC.EXE -rem -set BINDIR=C:\DOS\dm\bin -rem -rem Cleanup before compile -rem -DEL BW*.EXE 1> NUL 2> NUL -DEL BW*.OBJ 1> NUL 2> NUL -DEL BW*.MAP 1> NUL 2> NUL -rem -rem Compile -rem -set OLDPATH=%PATH% -set PATH=%BINDIR%;%PATH% -dmc.exe > DMCWIN32.TXT -dmc.exe -mn -A89 -oBWBASIC.EXE -DHAVE_MSDOS=1 bwbasic.c bwb_cmd.c bwb_cnd.c bwb_dio.c bwb_exp.c bwb_fnc.c bwb_inp.c bwb_int.c bwb_prn.c bwb_stc.c bwb_str.c bwb_tbl.c bwb_var.c bwd_cmd.c bwd_fun.c bwx_tty.c >> DMCWIN32.TXT -set PATH=%OLDPATH% -set OLDPATH= -set BINDIR= -rem -rem Cleanup after compile -rem -DEL BW*.OBJ 1> NUL 2> NUL -DEL BW*.MAP 1> NUL 2> NUL -rem EOF +@echo off +rem Filename: DMCWIN32.CMD +rem Purpose: Build Bywater BASIC for MS-WINDOWS (32-bit) using Digital Mars Compiler Version 8.42n +rem Author: Howard Wulf, AF5NE +rem Date: 2015-01-29 +rem Uasage: implementation defined +rem Example: +rem cd \sdcard\Download\BASIC\bwbasic3\ +rem DMCWIN32.CMD +rem +rem This is the location of DMC.EXE +rem +set BINDIR=C:\DOS\dm\bin +rem +rem Cleanup before compile +rem +DEL BW*.EXE 1> NUL 2> NUL +DEL BW*.OBJ 1> NUL 2> NUL +DEL BW*.MAP 1> NUL 2> NUL +rem +rem Compile +rem +set OLDPATH=%PATH% +set PATH=%BINDIR%;%PATH% +dmc.exe > DMCWIN32.TXT +dmc.exe -mn -A89 -oBWBASIC.EXE -DHAVE_MSDOS=1 bwbasic.c bwb_cmd.c bwb_cnd.c bwb_dio.c bwb_exp.c bwb_fnc.c bwb_inp.c bwb_int.c bwb_prn.c bwb_stc.c bwb_str.c bwb_tbl.c bwb_var.c bwd_cmd.c bwd_fun.c bwx_tty.c >> DMCWIN32.TXT +set PATH=%OLDPATH% +set OLDPATH= +set BINDIR= +rem +rem Cleanup after compile +rem +DEL BW*.OBJ 1> NUL 2> NUL +DEL BW*.MAP 1> NUL 2> NUL +rem EOF diff --git a/DOCS/CMDS.HTM b/DOCS/CMDS.HTM index 4062fe7..778107f 100644 --- a/DOCS/CMDS.HTM +++ b/DOCS/CMDS.HTM @@ -1,394 +1,394 @@ -CMDS -

LEGEND


- - - - - - - - - - - - - - - - - - - - - - - - - - -
IDNAMEDESCRIPTION
B15BYWATERBywater BASIC 3
B93BYWATER-2Bywater BASIC 2
S70CALL/360SBC CALL/360 Mainframe BASIC
C77CBASIC-IICBASIC-II for CP/M
D64DARTMOUTHDartmouth DTSS BASIC
E78ECMA-55ANSI Minimal BASIC
E86ECMA-116ANSI Full BASIC
G74GCOSGE 600 Mainframe BASIC
H14HAARDTbas 2.4 by Michael Haardt
HB1HANDBOOK1The BASIC Handbook, 1st Edition
HB2HANDBOOK2The BASIC Handbook, 2nd Edition
H80HEATHHeath Benton Harbor BASIC
G65MARK-IGE 265 Mainframe BASIC
G67MARK-IIGE 435 Mainframe BASIC
M80MBASICMicrosoft BASIC-80 for Xenix
D73PDP-8DEC PDP-8 BASIC
D70PDP-11DEC PDP-11 BASIC
R86RBASICMicronics RBASIC for 6809 FLEX
D71RSTS-11DEC RSTS-11 BASIC-PLUS
I70SYSTEM/360IBM System/360 Mainframe BASIC
I73SYSTEM/370IBM System/370 Mainframe BASIC
T80TRS-80TRS-80 Model I/III/4 LBASIC
V09VINTAGEVintage BASIC 1.0.1
T79XBASICTSC XBASIC for 6800 FLEX
-
-

DETAILS


- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COMMANDB15B93S70C77D64E78E86G74H14HB1HB2H80G65G67M80D73D70R86D71I70I73T80V09T79
APPEND filename$X X X X
APPEND # filenumber X X XX
ASXX X X XX X X
AUTO [start [, increment]]X XX X X X
BACKSPACE # X X X XX
BREAK line [, ...]]X XX
BUILD [start [, increment]] X
BYEX X XX XXXX XX X
CALL subname( [parameter [, ...] ] )XX X X
CASE constant [TO constant]XX X X
CASE IF operator constantXX X X
CASE IS operator constantXX X X
CASE ELSEXX X X
CHAIN filename$ [, linenumber]XXXX X XXXXXX XXXXX X
CHANGE A$ TO XX X X X XX X
CHANGE X TO A$X X X X XX X
CLEARXX XXXX X XX X X
CLOAD [filename$]X XX X X X
CLOAD* arraynameX XX X X X
CLOSE X XX
CLOSE filename$ [, ...] X XX
CLOSE filenumber [, ...] X XX
CLR XX
CMDSXX
COMMON variable [, ...]XX X X X X X X
CONSOLE [WIDTH width] X
CONST variable [, ...] = valueX
CONTX XX X XX X X
CONTINUE X
COPY source$ TO target$ X
CREATE filename$ [ RECL reclen ] AS filenum -[ BUFF number ] [ RECS size ] X
CSAVE [filename$]X XX X X X
CSAVE* ArrayNameX XX X X X
DATA constant [, ...]XXXXXXXXXXXXXXXXXXXXXXXX
DEC variable [,...] X
DEF FNname[( arg [,...] )] = valueXXXXXXXX XXXXXXXXXXXXXXX
DEF FNname[( arg [,...] )]X X X XXX X XX XXXX
DEFBYT letter[-letter] [, ...]X
DEFCUR letter[-letter] [, ...]X
DEFDBL letter[-letter] [, ...]XX XXX X X X
DEFINT letter[-letter] [, ...]XX XXX X X X
DEFLNG letter[-letter] [, ...]X
DEFSNG letter[-letter] [, ...]XX XX X X X
DEFSTR letter[-letter] [, ...]XX XXX X X X
DELETE filenumber X
DELETE line [- line]XX XXXX XXX X X
DELIMIT # X, A$ X XX
DIM [# filenum,] variable([ lower TO ] upper)XXXXXXXXXXXXXXXXXXXXXXXX
DISPLAY source$ X
DO UNTIL valueXX X X
DOXX X X
DO WHILE valueXX X X
DOS X
DSP variable [, ...]]X XX
EDITXXXXXXXX XXXXXX XXXXX X
ELSEXX X X XXXX XXXXX XXX
ELSEIFXX X X XXXX XXXXX XXX
ENDXXXXXXXXXXXXXXXXXXXXXXXX
END FUNCTIONXX X X
END IFXX X X XXXX XXXXX XXX
END SELECTXX X X
END SUBXX X X
ERASE variable [, ...]XX XXX X X X
EXCHANGE variable, variableX X
EXITXX X X X
EXIT DOXX X X
EXIT FORXX X X X
EXIT FUNCTIONXX X X
EXIT REPEATX X X
EXIT SUBXX X X
EXIT WHILEXX X
FEND X
FIELD [#] filenum, number AS variable$ [, ...]XX X X XX X X
FILE filename$ [( reclen )] X
FILE # X, A$ XX X XX
FILES A$[, ...] X X XX
FLEX X
FNCSXX
FNENDX X X XXX X XX XXXX
FOR variable = start TO finish [STEP increment]XXXXXXXXXXXXXXXXXXXXXXXX
FUNCTION [ ( parameter [, ... ] ) ]XX X X
GET # file_number , [ byte_number ] , scalar [,...] X
GET # file_number [ , RECORD record_number ] XX X
GET # file_number [ , RECORD record_number ] XX X
GET filename$ , scalar [, ...] X XX
GET # file_number [ , record_number ] X
GOX XXXXXXXXXXXXXXXXXXXXXX
GO SUB lineX XXXXXXXXXXXXXXXXXXXXXX
GO TO lineX XXXXXXXXXXXXXXXXXXXXXX
GOODBYEX X X X XX X
GOSUB lineXXXXXXXXXXXXXXXXXXXXXXXX
GOTO lineXXXXXXXXXXXXXXXXXXXXXXXX
HELP nameX
IF value THEN line1 [ELSE line2]XXXXXXXXXXXXXXXXXXXXXXXX
IF END # filenum THEN line1 [ELSE line2] XX X XX
IF MORE # filenum THEN line1 [ELSE line2] X X XX
IF value THENXX X X XXXX XXXXX XXX
IMAGE "format string" X XXX XX
INC variable [,...] X
INPUT "prompt string" , variable [, ...]XXXXXXXXXXXXXXXXXXXXXX X
INPUT # filenum , variable [, ...]sXXXXXXXXXXXXXXXXXXXXXX X
INPUT variable [, ...]XXXXXXXXXXXXXXXXXXXXXX X
INPUT LINE variable$X X X XX X X
INPUT LINE # filenum , variable$X X X XX X X
INPUT LINE "prompt string" , variable$X X X XX X X
[LET] variable [, ...] = valueXXXXXXXXXXXXXXXXXXXXXXXX
LINEXX X XX X XX X X
LINE INPUT [[#] filenum,]["prompt string";] variable$XX X XX X XX X X
LIST line1 [- line2]XXXXXXXXXXXXXXXXXXXXXX X
LISTNH line1 [- line2]X XXX X XX XXX
LLIST line1 [- line2]X X X X X X X
LOAD [filename$]XXXXXXXXXXX XXX XXXXX X
LOCAL [# filenum,] variable([ lower TO ] upper) X
LOOP UNTIL valueXX X X
LOOP WHILE valueXX X X
LOOPXX X X
LPRINT [USING format-string$;] value ...X X XX X X X XXXX
LPRINTER [WIDTH width] X
LPT [filename$] X
LSET variable$ = valueXX X X XX X X
MAINTAINERXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDSXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS HTMLXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS IDXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS MANUALXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS_SWITCHXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS TABLEXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER DEBUGXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER DEBUG OFFXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER DEBUG ONXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCSXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS HTMLXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS IDXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS MANUALXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS SWITCHXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS TABLEXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER MANUALXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER STACKXXXXXXXXXXXXXXXXXXXXXXXX
MARGIN # filenumber, widthX X X X XX
MAT arrayname = value X X XXXX XX XXX
MAT GET filename$, arrayname X X XX XX
MAT INPUT arrayname X X XXXX XX XXX
MAT PRINT arrayname X X XXXX XX XXX
MAT PUT filename$, arrayname X X XX XX
MAT READ arrayname X X XXXX XX XXX
MAT WRITE arrayname X XXXX XX
MERGE filename$XX X X X X
MID$( variable$, start [, count ] ) = valueXX X X X X X X
MON X
NAME old$ AS new$XX X X X X
NEWXXXXXXXXXXX XXXXXXXXXX X
NEXT [variable]XXXXXXXXXXXXXXXXXXXXXXXX
OFX XXXXXX XX XXX XXXXX X
OLD [filename$] X X XXX XX X
ON value GOSUB line [, ...]XXXXXXXXXXXXXXX XXXXXXX
ON value GOTO line [, ...]XXXXXXXXXXXXXXX XXXXXXX
ON ERRORXX XXX X XX X X
ON ERROR GOSUB errlineXX
ON ERROR GOTO errlineX XXX X XX X X
ON ERROR RESUMEX X X XX X X
ON ERROR RESUME NEXTX X X XX X X
ON ERROR RETURNX
ON ERROR RETURN NEXTX
ON TIMER count GOSUB lineX
OPEN NEW|OLD|VIRTUAL filename$ -AS filenumber X X
OPEN filename$ -FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL -AS [#] fileenumber -[LEN [=] record-length]XX X X X X
OPEN filename$ -FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL -AS FILE filenumber -[ ,RECORDSIZE ignored ] -[ ,CLUSTERSIZE ignored ] -[ ,MODE ignored ] X
OPEN filename -FOR READ|WRITE|VIRTUAL -AS FILE filenumber X
OPEN filename$ -[ RECL reclen ] -AS filenumber -[ BUFF ignored ] -[ RECS ignored ] X
OPEN filenumber, -filename$, -INPUT|OUTPUT|APPEND|VIRTUAL X XX
OPTIONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLE DEGREESXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLE GRADIANSXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLE RADIANSXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETICXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETIC DECIMALXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETIC FIXEDXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETIC NATIVEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BASE integerXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGSXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGS BOOLEANXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGS OFFXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGS ONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPAREXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPARE BINARYXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPARE DATABASEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPARE TEXTXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COVERAGEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COVERAGE OFFXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COVERAGE ONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DATE format$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION DIGITS integerXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLE COMMAND name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLE FUNCTION name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLE OPERATOR name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION EDIT string$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLE COMMAND name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLE FUNCTION name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLE OPERATOR name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ERRORXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ERROR GOSUBXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ERROR GOTOXXXXXXXXXXXXXXXXXXXXXXXX
OPTION EXPLICITXXXXXXXXXXXXXXXXXXXXXXXX
OPTION EXTENSION string$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION FILES string$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION IMPLICITXXXXXXXXXXXXXXXXXXXXXXXX
OPTION INDENT integerXXXXXXXXXXXXXXXXXXXXXXXX
OPTION LABELSXXXXXXXXXXXXXXXXXXXXXXXX
OPTION LABELS OFFXXXXXXXXXXXXXXXXXXXXXXXX
OPTION LABELS ONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PROMPT string$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCTXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT AT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT BYTE char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT COMMENT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT CURRENCY char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT DOUBLE char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT FILENUM char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT IMAGE char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT INPUT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT INTEGER char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT LONG char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT LPAREN char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT_PRINT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT QUOTE char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT RPAREN char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT SINGLE char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT STATEMENT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT STRING char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION RECLEN integerXXXXXXXXXXXXXXXXXXXXXXXX
OPTION RENUM string$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUNDXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUND BANKXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUND MATHXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUND TRUNCATEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION SCALE integerXXXXXXXXXXXXXXXXXXXXXXXX
OPTION SLEEP doubleXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STDERR filename$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION STDIN filename$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION STDOUT filename$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION STRICTXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STRICT OFFXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STRICT ONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINALXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINAL ADMXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINAL ANSIXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINAL NONEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TIME format$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION TRACEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TRACE OFFXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TRACE ONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USINGXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING ALL char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING COMMA char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING DIGIT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING DOLLAR char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING EXRAD char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING FILLER char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING FIRST char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING LENGTH char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING LITERAL char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING MINUS char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING PERIOD char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING PLUS char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION VERSION version$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ZONE integerXXXXXXXXXXXXXXXXXXXXXXXX
PAUSE [comment] X XX
PDEL line [- line] X X
POPX X
PRINT # filenum , [USING format$;] value ...XXXXXXXXXXXXXXXXXXXXXX X
PRINT [USING format$;] value ...XXXXXXXXXXXXXXXXXXXXXXXX
PTP [filename$] X
PTR [filename$] X
PUT # file_number , [ byte_number ] , scalar [,...] X
PUT filename$ , value [, ...] X XX
PUT # file_number [ , RECORD record_number ] XX X
PUT # file_number [ , record_number ] X
QUITX XXXXXX XX XXX
READ variable [, ...]XXXXXXXXXXXXXXXXXXXXXXXX
RECALL ArrayNameX X
REM ...XXXXXXXXXXXXXXXXXXXXXXXX
RENAME from$ TO to$ X
RENAME [filename$] X X XX X
RENUMXX XXX X XX X X
RENUMBER XX
REPEATX X X
REPLACE [filename$] X
RESET filename$ [, ...] X XX
RESTORE [line]XXXXXXXXXXXXXXXXXXXXXXXX
RESUMEX XXX X XX X X
RESUME lineX XXX X XX X X
RESUME NEXTX XXX X XX X X
RESUME 0X XXX X XX X X
RETURNXXXXXXXXXXXXXXXXXXXXXXXX
RSET variable$ = valueXX X X XX X X
RUN filename$XXXXXXXXXXXXXXXXXXXXXX X
RUN lineXXXXXXXXXXXXXXXXXXXXXX X
RUNXXXXXXXXXXXXXXXXXXXXXX X
RUNNH lineX XXX X XX XXX
RUNNH filename$X XXX X XX XXX
RUNNHX XXX X XX XXX
SAVE [filename$]XXXXXXXXXXXXXXXXXXXXXX X
SCRATCH [# X] X XXXX
SELECTXX X X
SELECT CASE valueXX X X
STEPXXXXXXXXXXXXXXXXXXXXXXXX
STOPXXXXXXXXXXXXXXXXXXXXXXXX
STORE ArrayNameX X
SUB name [ ( parameter [,...] ) ]XX X X X
SUB END X
SUB EXIT X
SUBENDX X X
SUBEXIT X
SWAP variable, variableXX X X X XX X X
SYSTEMXXXXXXXXXXX XXX XXXXX
TEXT letter[-letter] [, ...] XX
THENX XXXXXXXXXXXXXXXXXXXXXX
TIMERX
TIMER OFFX
TIMER ONX
TIMER STOPX
TLOAD [filename$]X X
TOXXXXXXXXXXXXXXXXXXXXXXXX
TRACE X XX X
TRACE OFF X XX X
TRACE ON X XX X
TSAVE [filename$]X X
TTY X
TTY IN X
TTY OUT X
UNTIL valueX X X
USE parameter$ X XX
VARSXX
WENDXX X XXX X X X
WHILE valueXX X XXX X X X
WRITE # filenum, value [, .... ]XX XX XXX X X
WRITE value [, .... ]XX XX XXX X X
- - +CMDS +

LEGEND


+ + + + + + + + + + + + + + + + + + + + + + + + + + +
IDNAMEDESCRIPTION
B15BYWATERBywater BASIC 3
B93BYWATER-2Bywater BASIC 2
S70CALL/360SBC CALL/360 Mainframe BASIC
C77CBASIC-IICBASIC-II for CP/M
D64DARTMOUTHDartmouth DTSS BASIC
E78ECMA-55ANSI Minimal BASIC
E86ECMA-116ANSI Full BASIC
G74GCOSGE 600 Mainframe BASIC
H14HAARDTbas 2.4 by Michael Haardt
HB1HANDBOOK1The BASIC Handbook, 1st Edition
HB2HANDBOOK2The BASIC Handbook, 2nd Edition
H80HEATHHeath Benton Harbor BASIC
G65MARK-IGE 265 Mainframe BASIC
G67MARK-IIGE 435 Mainframe BASIC
M80MBASICMicrosoft BASIC-80 for Xenix
D73PDP-8DEC PDP-8 BASIC
D70PDP-11DEC PDP-11 BASIC
R86RBASICMicronics RBASIC for 6809 FLEX
D71RSTS-11DEC RSTS-11 BASIC-PLUS
I70SYSTEM/360IBM System/360 Mainframe BASIC
I73SYSTEM/370IBM System/370 Mainframe BASIC
T80TRS-80TRS-80 Model I/III/4 LBASIC
V09VINTAGEVintage BASIC 1.0.1
T79XBASICTSC XBASIC for 6800 FLEX
+
+

DETAILS


+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
COMMANDB15B93S70C77D64E78E86G74H14HB1HB2H80G65G67M80D73D70R86D71I70I73T80V09T79
APPEND filename$X X X X
APPEND # filenumber X X XX
ASXX X X XX X X
AUTO [start [, increment]]X XX X X X
BACKSPACE # X X X XX
BREAK line [, ...]]X XX
BUILD [start [, increment]] X
BYEX X XX XXXX XX X
CALL subname( [parameter [, ...] ] )XX X X
CASE constant [TO constant]XX X X
CASE IF operator constantXX X X
CASE IS operator constantXX X X
CASE ELSEXX X X
CHAIN filename$ [, linenumber]XXXX X XXXXXX XXXXX X
CHANGE A$ TO XX X X X XX X
CHANGE X TO A$X X X X XX X
CLEARXX XXXX X XX X X
CLOAD [filename$]X XX X X X
CLOAD* arraynameX XX X X X
CLOSE X XX
CLOSE filename$ [, ...] X XX
CLOSE filenumber [, ...] X XX
CLR XX
CMDSXX
COMMON variable [, ...]XX X X X X X X
CONSOLE [WIDTH width] X
CONST variable [, ...] = valueX
CONTX XX X XX X X
CONTINUE X
COPY source$ TO target$ X
CREATE filename$ [ RECL reclen ] AS filenum +[ BUFF number ] [ RECS size ] X
CSAVE [filename$]X XX X X X
CSAVE* ArrayNameX XX X X X
DATA constant [, ...]XXXXXXXXXXXXXXXXXXXXXXXX
DEC variable [,...] X
DEF FNname[( arg [,...] )] = valueXXXXXXXX XXXXXXXXXXXXXXX
DEF FNname[( arg [,...] )]X X X XXX X XX XXXX
DEFBYT letter[-letter] [, ...]X
DEFCUR letter[-letter] [, ...]X
DEFDBL letter[-letter] [, ...]XX XXX X X X
DEFINT letter[-letter] [, ...]XX XXX X X X
DEFLNG letter[-letter] [, ...]X
DEFSNG letter[-letter] [, ...]XX XX X X X
DEFSTR letter[-letter] [, ...]XX XXX X X X
DELETE filenumber X
DELETE line [- line]XX XXXX XXX X X
DELIMIT # X, A$ X XX
DIM [# filenum,] variable([ lower TO ] upper)XXXXXXXXXXXXXXXXXXXXXXXX
DISPLAY source$ X
DO UNTIL valueXX X X
DOXX X X
DO WHILE valueXX X X
DOS X
DSP variable [, ...]]X XX
EDITXXXXXXXX XXXXXX XXXXX X
ELSEXX X X XXXX XXXXX XXX
ELSEIFXX X X XXXX XXXXX XXX
ENDXXXXXXXXXXXXXXXXXXXXXXXX
END FUNCTIONXX X X
END IFXX X X XXXX XXXXX XXX
END SELECTXX X X
END SUBXX X X
ERASE variable [, ...]XX XXX X X X
EXCHANGE variable, variableX X
EXITXX X X X
EXIT DOXX X X
EXIT FORXX X X X
EXIT FUNCTIONXX X X
EXIT REPEATX X X
EXIT SUBXX X X
EXIT WHILEXX X
FEND X
FIELD [#] filenum, number AS variable$ [, ...]XX X X XX X X
FILE filename$ [( reclen )] X
FILE # X, A$ XX X XX
FILES A$[, ...] X X XX
FLEX X
FNCSXX
FNENDX X X XXX X XX XXXX
FOR variable = start TO finish [STEP increment]XXXXXXXXXXXXXXXXXXXXXXXX
FUNCTION [ ( parameter [, ... ] ) ]XX X X
GET # file_number , [ byte_number ] , scalar [,...] X
GET # file_number [ , RECORD record_number ] XX X
GET # file_number [ , RECORD record_number ] XX X
GET filename$ , scalar [, ...] X XX
GET # file_number [ , record_number ] X
GOX XXXXXXXXXXXXXXXXXXXXXX
GO SUB lineX XXXXXXXXXXXXXXXXXXXXXX
GO TO lineX XXXXXXXXXXXXXXXXXXXXXX
GOODBYEX X X X XX X
GOSUB lineXXXXXXXXXXXXXXXXXXXXXXXX
GOTO lineXXXXXXXXXXXXXXXXXXXXXXXX
HELP nameX
IF value THEN line1 [ELSE line2]XXXXXXXXXXXXXXXXXXXXXXXX
IF END # filenum THEN line1 [ELSE line2] XX X XX
IF MORE # filenum THEN line1 [ELSE line2] X X XX
IF value THENXX X X XXXX XXXXX XXX
IMAGE "format string" X XXX XX
INC variable [,...] X
INPUT "prompt string" , variable [, ...]XXXXXXXXXXXXXXXXXXXXXX X
INPUT # filenum , variable [, ...]sXXXXXXXXXXXXXXXXXXXXXX X
INPUT variable [, ...]XXXXXXXXXXXXXXXXXXXXXX X
INPUT LINE variable$X X X XX X X
INPUT LINE # filenum , variable$X X X XX X X
INPUT LINE "prompt string" , variable$X X X XX X X
[LET] variable [, ...] = valueXXXXXXXXXXXXXXXXXXXXXXXX
LINEXX X XX X XX X X
LINE INPUT [[#] filenum,]["prompt string";] variable$XX X XX X XX X X
LIST line1 [- line2]XXXXXXXXXXXXXXXXXXXXXX X
LISTNH line1 [- line2]X XXX X XX XXX
LLIST line1 [- line2]X X X X X X X
LOAD [filename$]XXXXXXXXXXX XXX XXXXX X
LOCAL [# filenum,] variable([ lower TO ] upper) X
LOOP UNTIL valueXX X X
LOOP WHILE valueXX X X
LOOPXX X X
LPRINT [USING format-string$;] value ...X X XX X X X XXXX
LPRINTER [WIDTH width] X
LPT [filename$] X
LSET variable$ = valueXX X X XX X X
MAINTAINERXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDSXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS HTMLXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS IDXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS MANUALXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS_SWITCHXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS TABLEXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER DEBUGXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER DEBUG OFFXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER DEBUG ONXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCSXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS HTMLXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS IDXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS MANUALXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS SWITCHXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS TABLEXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER MANUALXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER STACKXXXXXXXXXXXXXXXXXXXXXXXX
MARGIN # filenumber, widthX X X X XX
MAT arrayname = value X X XXXX XX XXX
MAT GET filename$, arrayname X X XX XX
MAT INPUT arrayname X X XXXX XX XXX
MAT PRINT arrayname X X XXXX XX XXX
MAT PUT filename$, arrayname X X XX XX
MAT READ arrayname X X XXXX XX XXX
MAT WRITE arrayname X XXXX XX
MERGE filename$XX X X X X
MID$( variable$, start [, count ] ) = valueXX X X X X X X
MON X
NAME old$ AS new$XX X X X X
NEWXXXXXXXXXXX XXXXXXXXXX X
NEXT [variable]XXXXXXXXXXXXXXXXXXXXXXXX
OFX XXXXXX XX XXX XXXXX X
OLD [filename$] X X XXX XX X
ON value GOSUB line [, ...]XXXXXXXXXXXXXXX XXXXXXX
ON value GOTO line [, ...]XXXXXXXXXXXXXXX XXXXXXX
ON ERRORXX XXX X XX X X
ON ERROR GOSUB errlineXX
ON ERROR GOTO errlineX XXX X XX X X
ON ERROR RESUMEX X X XX X X
ON ERROR RESUME NEXTX X X XX X X
ON ERROR RETURNX
ON ERROR RETURN NEXTX
ON TIMER count GOSUB lineX
OPEN NEW|OLD|VIRTUAL filename$ +AS filenumber X X
OPEN filename$ +FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL +AS [#] fileenumber +[LEN [=] record-length]XX X X X X
OPEN filename$ +FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL +AS FILE filenumber +[ ,RECORDSIZE ignored ] +[ ,CLUSTERSIZE ignored ] +[ ,MODE ignored ] X
OPEN filename +FOR READ|WRITE|VIRTUAL +AS FILE filenumber X
OPEN filename$ +[ RECL reclen ] +AS filenumber +[ BUFF ignored ] +[ RECS ignored ] X
OPEN filenumber, +filename$, +INPUT|OUTPUT|APPEND|VIRTUAL X XX
OPTIONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLE DEGREESXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLE GRADIANSXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLE RADIANSXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETICXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETIC DECIMALXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETIC FIXEDXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETIC NATIVEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BASE integerXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGSXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGS BOOLEANXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGS OFFXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGS ONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPAREXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPARE BINARYXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPARE DATABASEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPARE TEXTXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COVERAGEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COVERAGE OFFXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COVERAGE ONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DATE format$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION DIGITS integerXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLE COMMAND name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLE FUNCTION name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLE OPERATOR name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION EDIT string$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLE COMMAND name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLE FUNCTION name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLE OPERATOR name$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ERRORXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ERROR GOSUBXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ERROR GOTOXXXXXXXXXXXXXXXXXXXXXXXX
OPTION EXPLICITXXXXXXXXXXXXXXXXXXXXXXXX
OPTION EXTENSION string$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION FILES string$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION IMPLICITXXXXXXXXXXXXXXXXXXXXXXXX
OPTION INDENT integerXXXXXXXXXXXXXXXXXXXXXXXX
OPTION LABELSXXXXXXXXXXXXXXXXXXXXXXXX
OPTION LABELS OFFXXXXXXXXXXXXXXXXXXXXXXXX
OPTION LABELS ONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PROMPT string$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCTXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT AT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT BYTE char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT COMMENT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT CURRENCY char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT DOUBLE char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT FILENUM char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT IMAGE char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT INPUT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT INTEGER char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT LONG char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT LPAREN char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT_PRINT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT QUOTE char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT RPAREN char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT SINGLE char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT STATEMENT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT STRING char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION RECLEN integerXXXXXXXXXXXXXXXXXXXXXXXX
OPTION RENUM string$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUNDXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUND BANKXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUND MATHXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUND TRUNCATEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION SCALE integerXXXXXXXXXXXXXXXXXXXXXXXX
OPTION SLEEP doubleXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STDERR filename$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION STDIN filename$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION STDOUT filename$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION STRICTXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STRICT OFFXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STRICT ONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINALXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINAL ADMXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINAL ANSIXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINAL NONEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TIME format$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION TRACEXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TRACE OFFXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TRACE ONXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USINGXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING ALL char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING COMMA char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING DIGIT char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING DOLLAR char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING EXRAD char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING FILLER char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING FIRST char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING LENGTH char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING LITERAL char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING MINUS char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING PERIOD char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING PLUS char$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION VERSION version$XXXXXXXXXXXXXXXXXXXXXXXX
OPTION ZONE integerXXXXXXXXXXXXXXXXXXXXXXXX
PAUSE [comment] X XX
PDEL line [- line] X X
POPX X
PRINT # filenum , [USING format$;] value ...XXXXXXXXXXXXXXXXXXXXXX X
PRINT [USING format$;] value ...XXXXXXXXXXXXXXXXXXXXXXXX
PTP [filename$] X
PTR [filename$] X
PUT # file_number , [ byte_number ] , scalar [,...] X
PUT filename$ , value [, ...] X XX
PUT # file_number [ , RECORD record_number ] XX X
PUT # file_number [ , record_number ] X
QUITX XXXXXX XX XXX
READ variable [, ...]XXXXXXXXXXXXXXXXXXXXXXXX
RECALL ArrayNameX X
REM ...XXXXXXXXXXXXXXXXXXXXXXXX
RENAME from$ TO to$ X
RENAME [filename$] X X XX X
RENUMXX XXX X XX X X
RENUMBER XX
REPEATX X X
REPLACE [filename$] X
RESET filename$ [, ...] X XX
RESTORE [line]XXXXXXXXXXXXXXXXXXXXXXXX
RESUMEX XXX X XX X X
RESUME lineX XXX X XX X X
RESUME NEXTX XXX X XX X X
RESUME 0X XXX X XX X X
RETURNXXXXXXXXXXXXXXXXXXXXXXXX
RSET variable$ = valueXX X X XX X X
RUN filename$XXXXXXXXXXXXXXXXXXXXXX X
RUN lineXXXXXXXXXXXXXXXXXXXXXX X
RUNXXXXXXXXXXXXXXXXXXXXXX X
RUNNH lineX XXX X XX XXX
RUNNH filename$X XXX X XX XXX
RUNNHX XXX X XX XXX
SAVE [filename$]XXXXXXXXXXXXXXXXXXXXXX X
SCRATCH [# X] X XXXX
SELECTXX X X
SELECT CASE valueXX X X
STEPXXXXXXXXXXXXXXXXXXXXXXXX
STOPXXXXXXXXXXXXXXXXXXXXXXXX
STORE ArrayNameX X
SUB name [ ( parameter [,...] ) ]XX X X X
SUB END X
SUB EXIT X
SUBENDX X X
SUBEXIT X
SWAP variable, variableXX X X X XX X X
SYSTEMXXXXXXXXXXX XXX XXXXX
TEXT letter[-letter] [, ...] XX
THENX XXXXXXXXXXXXXXXXXXXXXX
TIMERX
TIMER OFFX
TIMER ONX
TIMER STOPX
TLOAD [filename$]X X
TOXXXXXXXXXXXXXXXXXXXXXXXX
TRACE X XX X
TRACE OFF X XX X
TRACE ON X XX X
TSAVE [filename$]X X
TTY X
TTY IN X
TTY OUT X
UNTIL valueX X X
USE parameter$ X XX
VARSXX
WENDXX X XXX X X X
WHILE valueXX X XXX X X X
WRITE # filenum, value [, .... ]XX XX XXX X X
WRITE value [, .... ]XX XX XXX X X
+ + diff --git a/DOCS/FNCS.HTM b/DOCS/FNCS.HTM index 530fd42..e0fe706 100644 --- a/DOCS/FNCS.HTM +++ b/DOCS/FNCS.HTM @@ -1,373 +1,373 @@ -FNCS -

LEGEND


- - - - - - - - - - - - - - - - - - - - - - - - - - -
IDNAMEDESCRIPTION
B15BYWATERBywater BASIC 3
B93BYWATER-2Bywater BASIC 2
S70CALL/360SBC CALL/360 Mainframe BASIC
C77CBASIC-IICBASIC-II for CP/M
D64DARTMOUTHDartmouth DTSS BASIC
E78ECMA-55ANSI Minimal BASIC
E86ECMA-116ANSI Full BASIC
G74GCOSGE 600 Mainframe BASIC
H14HAARDTbas 2.4 by Michael Haardt
HB1HANDBOOK1The BASIC Handbook, 1st Edition
HB2HANDBOOK2The BASIC Handbook, 2nd Edition
H80HEATHHeath Benton Harbor BASIC
G65MARK-IGE 265 Mainframe BASIC
G67MARK-IIGE 435 Mainframe BASIC
M80MBASICMicrosoft BASIC-80 for Xenix
D73PDP-8DEC PDP-8 BASIC
D70PDP-11DEC PDP-11 BASIC
R86RBASICMicronics RBASIC for 6809 FLEX
D71RSTS-11DEC RSTS-11 BASIC-PLUS
I70SYSTEM/360IBM System/360 Mainframe BASIC
I73SYSTEM/370IBM System/370 Mainframe BASIC
T80TRS-80TRS-80 Model I/III/4 LBASIC
V09VINTAGEVintage BASIC 1.0.1
T79XBASICTSC XBASIC for 6800 FLEX
-
-

DETAILS


- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
FUNCTIONB15B93S70C77D64E78E86G74H14HB1HB2H80G65G67M80D73D70R86D71I70I73T80V09T79
N = ABS( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = ACOS( X )X X
N = ACS( X )X X X XX
N = ACSD( X )X X
N = ACSG( X )X X
N = ANGLE( X, Y )X X
N = ARCCOS( X ) X X
N = ARCSIN( X )X X X X
N = ARCTAN( X )X XX X X
N = ARGCX
S$ = ARGT$( X )X
N = ARGV( X )X
S$ = ARGV$( X )X
N = ASC( A$ )XXXXXXXXXXXXXXX X XXXXX
N = ASC( A$, X )X XX
N = ASCII( A$ )X X X
N = ASIN( X )X X
N = ASN( X )X X XX XX
N = ASND( X )X X
N = ASNG( X )X X
N = ATAN( X )X XX
N = ATN( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = ATND( X )X X
N = ATNG( X )X X
N = BASEX
S$ = BIN$( X ) X
S$ = BIN$( X, Y ) X
N = CATALOG X X XX X
N = CATALOG( A$ ) X X XX X
N = CCUR( X )X
N = CDBL( X )X XX X X X
N = CEIL( X )X X
S$ = CHAR( X, Y )X XX
S$ = CHAR$( X )X XX
N = CHDIR( A$ )XX X X X X
S$ = CHR( X )X XX
S$ = CHR( X ) X XX
S$ = CHR$( X )XX XXXXXXXXXXXX XX XXX
N = CIN( X ) X
N = CINT( X )XX XXX X X X
N = CLG( X )X XX
N = CLK( X ) X XX
S$ = CLK( X )X XX
S$ = CLK$X X XX X
N = CLNG( X )X X X X
N = CLOG( X )X XX
N = CLOSEXX X X X X X
N = CLOSE( X )XX X X XX X XX X X
N = CLSXX XXX X X
N = CNTRL( X, Y ) X
N = CODE( A$ )X X X
N = COLOR( X, Y )X X X X
S$ = COMMAND$ X
S$ = COMMAND$( X )X X X
N = COS( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = COSD( X )X X
N = COSG( X )X X
N = COSH( X )X X
N = COT( X )X X XX X XX
N = COUNTX X
N = CSC( X )X X X XX
N = CSH( X )X X
N = CSNG( X )XX XX X X X
S$ = CUR( X, Y )X X
N = CVC( A$ )X
N = CVD( A$ )XX X X XX X X
N = CVI( A$ )XX X X XX X X
N = CVL( A$ )X X XX X X
N = CVS( A$ )XX X X XX X X
S$ = DAT$ X X
N = DATEX X
S$ = DATE$XX X X X XX X X
S$ = DATE$( X ) X
N = DEGX XX
N = DEG( X ) X
N = DEG( X )X X X XXX XX
N = DEGREEX X
N = DEGREE( X )X X
N = DETX X XX X X XXX
N = DIGITS( X ) X X
N = DIGITS( X, Y ) X X X
N = DIM( ... )X
N = DPEEK( X ) X X
N = DPOKE( X, Y ) X X
S$ = EDIT$( A$, X ) X
N = ENVIRON( A$ )XX X X X X
S$ = ENVIRON$( A$ )XX X X X X
N = EOF( X )XX X X X X X
N = EPS( X )X X
N = ERLXX XXX X XX X X
N = ERRXX XXX X XX X X
S$ = ERR$X X X X
N = ERRLX X
N = ERRNX X
N = ERROR( X )XX XX X X X
N = ERROR( X, A$ )X XX
S$ = ERROR$X X X X
N = EXAM( X ) XX
N = EXEC( A$ ) X X
N = EXF( ... ) X
N = EXP( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = FALSE X
N = FETCH( X ) XX
N = FILEATTR( X, Y )X X X X
N = FILESXX X X X
N = FILES( A$ )XX X X X
N = FILL( X, Y ) XX
N = FIX( X )X X XXXXXXX XXX XXXX
N = FLOAT( X ) X
N = FLOWX X
N = FP( X )X X X
N = FRAC( X )X X X
N = FREX X XX X XX X X
N = FRE( A$ )X XX X XX X X
N = FRE( X )X XX X XX X X
N = FREE XXX
N = FREE( X ) XX
N = FREE( A$ ) XX
N = FREEFILEX X
N = GET( X )XX X X X X
N = GET( X ) X
N = GET( X, Y )XX X X X X
N = GRADX X
N = GRADIANX X
N = HCS( X ) X XX
N = HEX( A$ ) X X
S$ = HEX$( X )XX X X X X
S$ = HEX$( X, Y ) X
N = HOMEX XXX
N = HSN( X ) X XX
N = HTN( X ) X XX
S$ = INCH$ X X
N = INDEX( A$, B$ )X X
N = INITIALIZE X
S$ = INKEY$XX XXX X X X
N = INP( X )X X XXX X X X
S$ = INPUT$( X )X X X X X X
S$ = INPUT$( X, Y )X X X X X
N = INSTR( A$, B$ )XX X X X X X
N = INSTR( A$, B$, X ) X
N = INSTR( X, A$, B$ )XX X X X XX X X
N = INT( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = INT( X ) X X
N = IP( X )X X X
S$ = KEYX X
S$ = KEY$X X
N = KILL( A$ )XX X X XX X X
N = LBOUND( ... )X X
S$ = LCASE$( A$ )X X X X X X X
S$ = LEFT( A$, X ) XX X
S$ = LEFT$( A$, X )XX X X XXXX X X XX
N = LEN( A$ )XXXXXXXXXXXXXXX XXXXXXX
N = LGT( X ) X XX XX
S$ = LIN( X ) XX
N = LN( X ) XX
N = LNO( X ) X
N = LOC( X )XX XXX XXX X X
N = LOCATE( X, Y )XX X X X X
N = LOCK( X ) X
N = LOF( X )XX XXX XXX X X
N = LOG( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = LOG10( X )X X XXX X
N = LOG2( X )X X X
N = LOGE( X ) XX
S$ = LOWER$( A$ ) X
N = LPOSX X X X
S$ = LTRIM$( A$ )X X X X X X
N = LTW( X ) X XX
N = LWIDTH( X )X X X X
N = MATCH( A$, B$, X ) X X X
S$ = MAX( A$, B$ )X X XX XX
N = MAX( X, Y )X X X X XX XX
N = MAXBYTX
N = MAXCURX
N = MAXDBLX
N = MAXDEVX
N = MAXINTX
N = MAXLENX X
N = MAXLEN( A$ )X X
N = MAXLNGX
N = MAXLVLX
N = MAXNUMX X
N = MAXSNGX
N = MEM XX
S$ = MID( A$, X ) XX X
S$ = MID( A$, X, Y ) XX X
S$ = MID$( A$, X )XX X X XXXX X XX XXX
S$ = MID$( A$, X, Y )XX X X XXXX X XX XXX
N = MIN( X, Y )X X X X XX XX
S$ = MIN( A$, B$ )X X XX XX
N = MINBYTX
N = MINCURX
N = MINDBLX
N = MINDEVX
N = MININTX
N = MINLNGX
N = MINNUMX
N = MINSNGX
S$ = MKC$( X )X
S$ = MKD$( X )XX X X XX X X
N = MKDIR( A$ )XX X X X X
S$ = MKI$( X )XX X X XX X X
S$ = MKL$( X )X X XX X X
S$ = MKS$( X )XX X X XX X X
N = MOD( X, Y ) X
N = NAME( A$, B$ )X X X X
N = NAME( ... ) X X
N = NOFLOWX X
N = NOTRACE XX
N = NULL( X )X X X X
N = NUMX X X X
N = NUM( A$ )X X X XX
S$ = NUM$( X )X X XXXX XX XXX XXXX
S$ = OCT$( X )XX X X X X
S$ = OCT$( X, Y ) X
N = OPEN( A$, X, B$ )XX X X X X X
N = OPEN( A$, X, B$, Y )XX X X X X X
N = ORD( A$ )X X
N = OUT( X, Y )X X XXXX X X X
N = PAD( X ) X
N = PAUSE( X )X XX
N = PDL( X ) XX
N = PEEK( X )X X XXXX X XX X X
N = PIX X XXX X
N = PI( X )X X
N = PIN( X ) XXX
N = POKE( X, Y )X X XXXX X XX X X
N = POSXX X X X X XX X X
N = POS( X )X X XX X XX X X
N = POS( A$, B$ )X X X X
N = POS( A$, B$, X )X X X X
N = PRECISION( X ) X
N = PTR( ... ) X X
N = PUT( X ) X
N = PUT( X )XX X X X X
N = PUT( X, Y )XX X X X X
N = RADX XX
N = RAD( X )X X X X X XX
N = RADIANX XX
N = RAN XX
N = RAN( X ) XX
N = RANDOM X X XX XX
N = RANDOM( X ) XX X
N = RANDOMIZEXXXXXXXXXXXXXXXXX XXXXX
N = RANDOMIZE( X )XXXXXXXXXXXXXXX XXXX
N = REMAINDER( X, Y )X X
N = RENAME( A$, B$ ) X X X
S$ = REPEAT$( X, A$ )X X X X
S$ = REPEAT$( X, Y )X X X X
N = RESETX XX X X X
N = RESIDUE X
S$ = RIGHT( A$, X ) XX X
S$ = RIGHT$( A$, X )XX X X XXXX X XX XXX
N = RMDIR( A$ )XX X X X
N = RNDXXXXXXXXXXXXXXXXXXXXXXXX
N = RND( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = ROUND( X, Y )X X
S$ = RTRIM$( A$ )X X X X X X
N = SCALE( X ) X X
N = SEC( X )X X X XX
N = SEEK( X )X X X X X
N = SEEK( X, Y )X X X X
N = SEG( X ) X
S$ = SEG( A$, X, Y )X X
S$ = SEG$( A$, X, Y )X X X
N = SGN( X )XXXXXXXXX XXXXXXXXXXXXXX
N = SHELL( A$ )X X X X X
N = SIN( X )XXXXXXXXXXXXXXXXXXXXXX X
N = SIND( X )X X
N = SING( X )X X
N = SINH( X )X X X
N = SIZE( A$ ) X
N = SIZE( ... ) X
N = SLEEP( X )X XXX X
N = SNH( X )X X
S$ = SPA( X ) XX
S$ = SPACE( X ) XX X
S$ = SPACE$( X )XX XXX X X X
S$ = SPC( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = SQR( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = SQRT( X ) XX
S$ = STR( X, Y )X X
S$ = STR$( X )XXXXXXXXXXXXXXX XXXXXXX
S$ = STRING( X, Y )X X
S$ = STRING$( X, A$ )XX X XXX X X X
S$ = STRING$( X, Y )XX X XXX X X X
S$ = STRIP$( A$ ) X
N = STUFF( X, Y ) XX
S$ = TAB( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = TAN( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = TAND( X )X X
N = TANG( X )X X
N = TANH( X )X X X
N = TI XX
S$ = TI$ XX
N = TIM X X XX X XX
N = TIM( X ) X XX XX
N = TIMEX X XXX X
N = TIME( X ) XX X
S$ = TIME$XX X XXX X X X
S$ = TIME$( X )X X X
N = TIMERXX X X X X
N = TOP X
N = TRACE XX
N = TRACE( X ) X
S$ = TRIM$( A$ )X X X X X
N = TROFFXX X XXX X X X X
N = TRONXX X XXX X X X X
N = TRUE X
N = TRUNCATE( X, Y )X X
N = UBOUND( ... )X X
S$ = UCASE$( A$ )X X X X X X X
N = UNLOCK( X ) X
N = UNSAVE( A$ ) X X XXX X
S$ = UPPER$( A$ ) X
N = USR( ... ) X X X X
N = USR0( ... ) X X X X
N = USR1( ... ) X X X X
N = USR2( ... ) X X X X
N = USR3( ... ) X X X X
N = USR4( ... ) X X X X
N = USR5( ... ) X X X X
N = USR6( ... ) X X X X
N = USR7( ... ) X X X X
N = USR8( ... ) X X X X
N = USR9( ... ) X X X X
N = UUF( ... ) X
N = VAL( A$ )XXXXXXXXXXXXXXX XXXXXXX
N = VARPTR( ... ) X
N = VTAB( X ) XX
N = WAIT( X )X XX X
N = WAIT( X, Y )X XXX X X X
N = WAIT( X, Y, Z )X XXX X X X
N = WIDTH( X )XX X X X X
N = WIDTH( X, Y )XX XXX X X X
N = ZONE( X ) X
N = ZONE( X, Y ) X
- - +FNCS +

LEGEND


+ + + + + + + + + + + + + + + + + + + + + + + + + + +
IDNAMEDESCRIPTION
B15BYWATERBywater BASIC 3
B93BYWATER-2Bywater BASIC 2
S70CALL/360SBC CALL/360 Mainframe BASIC
C77CBASIC-IICBASIC-II for CP/M
D64DARTMOUTHDartmouth DTSS BASIC
E78ECMA-55ANSI Minimal BASIC
E86ECMA-116ANSI Full BASIC
G74GCOSGE 600 Mainframe BASIC
H14HAARDTbas 2.4 by Michael Haardt
HB1HANDBOOK1The BASIC Handbook, 1st Edition
HB2HANDBOOK2The BASIC Handbook, 2nd Edition
H80HEATHHeath Benton Harbor BASIC
G65MARK-IGE 265 Mainframe BASIC
G67MARK-IIGE 435 Mainframe BASIC
M80MBASICMicrosoft BASIC-80 for Xenix
D73PDP-8DEC PDP-8 BASIC
D70PDP-11DEC PDP-11 BASIC
R86RBASICMicronics RBASIC for 6809 FLEX
D71RSTS-11DEC RSTS-11 BASIC-PLUS
I70SYSTEM/360IBM System/360 Mainframe BASIC
I73SYSTEM/370IBM System/370 Mainframe BASIC
T80TRS-80TRS-80 Model I/III/4 LBASIC
V09VINTAGEVintage BASIC 1.0.1
T79XBASICTSC XBASIC for 6800 FLEX
+
+

DETAILS


+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
FUNCTIONB15B93S70C77D64E78E86G74H14HB1HB2H80G65G67M80D73D70R86D71I70I73T80V09T79
N = ABS( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = ACOS( X )X X
N = ACS( X )X X X XX
N = ACSD( X )X X
N = ACSG( X )X X
N = ANGLE( X, Y )X X
N = ARCCOS( X ) X X
N = ARCSIN( X )X X X X
N = ARCTAN( X )X XX X X
N = ARGCX
S$ = ARGT$( X )X
N = ARGV( X )X
S$ = ARGV$( X )X
N = ASC( A$ )XXXXXXXXXXXXXXX X XXXXX
N = ASC( A$, X )X XX
N = ASCII( A$ )X X X
N = ASIN( X )X X
N = ASN( X )X X XX XX
N = ASND( X )X X
N = ASNG( X )X X
N = ATAN( X )X XX
N = ATN( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = ATND( X )X X
N = ATNG( X )X X
N = BASEX
S$ = BIN$( X ) X
S$ = BIN$( X, Y ) X
N = CATALOG X X XX X
N = CATALOG( A$ ) X X XX X
N = CCUR( X )X
N = CDBL( X )X XX X X X
N = CEIL( X )X X
S$ = CHAR( X, Y )X XX
S$ = CHAR$( X )X XX
N = CHDIR( A$ )XX X X X X
S$ = CHR( X )X XX
S$ = CHR( X ) X XX
S$ = CHR$( X )XX XXXXXXXXXXXX XX XXX
N = CIN( X ) X
N = CINT( X )XX XXX X X X
N = CLG( X )X XX
N = CLK( X ) X XX
S$ = CLK( X )X XX
S$ = CLK$X X XX X
N = CLNG( X )X X X X
N = CLOG( X )X XX
N = CLOSEXX X X X X X
N = CLOSE( X )XX X X XX X XX X X
N = CLSXX XXX X X
N = CNTRL( X, Y ) X
N = CODE( A$ )X X X
N = COLOR( X, Y )X X X X
S$ = COMMAND$ X
S$ = COMMAND$( X )X X X
N = COS( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = COSD( X )X X
N = COSG( X )X X
N = COSH( X )X X
N = COT( X )X X XX X XX
N = COUNTX X
N = CSC( X )X X X XX
N = CSH( X )X X
N = CSNG( X )XX XX X X X
S$ = CUR( X, Y )X X
N = CVC( A$ )X
N = CVD( A$ )XX X X XX X X
N = CVI( A$ )XX X X XX X X
N = CVL( A$ )X X XX X X
N = CVS( A$ )XX X X XX X X
S$ = DAT$ X X
N = DATEX X
S$ = DATE$XX X X X XX X X
S$ = DATE$( X ) X
N = DEGX XX
N = DEG( X ) X
N = DEG( X )X X X XXX XX
N = DEGREEX X
N = DEGREE( X )X X
N = DETX X XX X X XXX
N = DIGITS( X ) X X
N = DIGITS( X, Y ) X X X
N = DIM( ... )X
N = DPEEK( X ) X X
N = DPOKE( X, Y ) X X
S$ = EDIT$( A$, X ) X
N = ENVIRON( A$ )XX X X X X
S$ = ENVIRON$( A$ )XX X X X X
N = EOF( X )XX X X X X X
N = EPS( X )X X
N = ERLXX XXX X XX X X
N = ERRXX XXX X XX X X
S$ = ERR$X X X X
N = ERRLX X
N = ERRNX X
N = ERROR( X )XX XX X X X
N = ERROR( X, A$ )X XX
S$ = ERROR$X X X X
N = EXAM( X ) XX
N = EXEC( A$ ) X X
N = EXF( ... ) X
N = EXP( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = FALSE X
N = FETCH( X ) XX
N = FILEATTR( X, Y )X X X X
N = FILESXX X X X
N = FILES( A$ )XX X X X
N = FILL( X, Y ) XX
N = FIX( X )X X XXXXXXX XXX XXXX
N = FLOAT( X ) X
N = FLOWX X
N = FP( X )X X X
N = FRAC( X )X X X
N = FREX X XX X XX X X
N = FRE( A$ )X XX X XX X X
N = FRE( X )X XX X XX X X
N = FREE XXX
N = FREE( X ) XX
N = FREE( A$ ) XX
N = FREEFILEX X
N = GET( X )XX X X X X
N = GET( X ) X
N = GET( X, Y )XX X X X X
N = GRADX X
N = GRADIANX X
N = HCS( X ) X XX
N = HEX( A$ ) X X
S$ = HEX$( X )XX X X X X
S$ = HEX$( X, Y ) X
N = HOMEX XXX
N = HSN( X ) X XX
N = HTN( X ) X XX
S$ = INCH$ X X
N = INDEX( A$, B$ )X X
N = INITIALIZE X
S$ = INKEY$XX XXX X X X
N = INP( X )X X XXX X X X
S$ = INPUT$( X )X X X X X X
S$ = INPUT$( X, Y )X X X X X
N = INSTR( A$, B$ )XX X X X X X
N = INSTR( A$, B$, X ) X
N = INSTR( X, A$, B$ )XX X X X XX X X
N = INT( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = INT( X ) X X
N = IP( X )X X X
S$ = KEYX X
S$ = KEY$X X
N = KILL( A$ )XX X X XX X X
N = LBOUND( ... )X X
S$ = LCASE$( A$ )X X X X X X X
S$ = LEFT( A$, X ) XX X
S$ = LEFT$( A$, X )XX X X XXXX X X XX
N = LEN( A$ )XXXXXXXXXXXXXXX XXXXXXX
N = LGT( X ) X XX XX
S$ = LIN( X ) XX
N = LN( X ) XX
N = LNO( X ) X
N = LOC( X )XX XXX XXX X X
N = LOCATE( X, Y )XX X X X X
N = LOCK( X ) X
N = LOF( X )XX XXX XXX X X
N = LOG( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = LOG10( X )X X XXX X
N = LOG2( X )X X X
N = LOGE( X ) XX
S$ = LOWER$( A$ ) X
N = LPOSX X X X
S$ = LTRIM$( A$ )X X X X X X
N = LTW( X ) X XX
N = LWIDTH( X )X X X X
N = MATCH( A$, B$, X ) X X X
S$ = MAX( A$, B$ )X X XX XX
N = MAX( X, Y )X X X X XX XX
N = MAXBYTX
N = MAXCURX
N = MAXDBLX
N = MAXDEVX
N = MAXINTX
N = MAXLENX X
N = MAXLEN( A$ )X X
N = MAXLNGX
N = MAXLVLX
N = MAXNUMX X
N = MAXSNGX
N = MEM XX
S$ = MID( A$, X ) XX X
S$ = MID( A$, X, Y ) XX X
S$ = MID$( A$, X )XX X X XXXX X XX XXX
S$ = MID$( A$, X, Y )XX X X XXXX X XX XXX
N = MIN( X, Y )X X X X XX XX
S$ = MIN( A$, B$ )X X XX XX
N = MINBYTX
N = MINCURX
N = MINDBLX
N = MINDEVX
N = MININTX
N = MINLNGX
N = MINNUMX
N = MINSNGX
S$ = MKC$( X )X
S$ = MKD$( X )XX X X XX X X
N = MKDIR( A$ )XX X X X X
S$ = MKI$( X )XX X X XX X X
S$ = MKL$( X )X X XX X X
S$ = MKS$( X )XX X X XX X X
N = MOD( X, Y ) X
N = NAME( A$, B$ )X X X X
N = NAME( ... ) X X
N = NOFLOWX X
N = NOTRACE XX
N = NULL( X )X X X X
N = NUMX X X X
N = NUM( A$ )X X X XX
S$ = NUM$( X )X X XXXX XX XXX XXXX
S$ = OCT$( X )XX X X X X
S$ = OCT$( X, Y ) X
N = OPEN( A$, X, B$ )XX X X X X X
N = OPEN( A$, X, B$, Y )XX X X X X X
N = ORD( A$ )X X
N = OUT( X, Y )X X XXXX X X X
N = PAD( X ) X
N = PAUSE( X )X XX
N = PDL( X ) XX
N = PEEK( X )X X XXXX X XX X X
N = PIX X XXX X
N = PI( X )X X
N = PIN( X ) XXX
N = POKE( X, Y )X X XXXX X XX X X
N = POSXX X X X X XX X X
N = POS( X )X X XX X XX X X
N = POS( A$, B$ )X X X X
N = POS( A$, B$, X )X X X X
N = PRECISION( X ) X
N = PTR( ... ) X X
N = PUT( X ) X
N = PUT( X )XX X X X X
N = PUT( X, Y )XX X X X X
N = RADX XX
N = RAD( X )X X X X X XX
N = RADIANX XX
N = RAN XX
N = RAN( X ) XX
N = RANDOM X X XX XX
N = RANDOM( X ) XX X
N = RANDOMIZEXXXXXXXXXXXXXXXXX XXXXX
N = RANDOMIZE( X )XXXXXXXXXXXXXXX XXXX
N = REMAINDER( X, Y )X X
N = RENAME( A$, B$ ) X X X
S$ = REPEAT$( X, A$ )X X X X
S$ = REPEAT$( X, Y )X X X X
N = RESETX XX X X X
N = RESIDUE X
S$ = RIGHT( A$, X ) XX X
S$ = RIGHT$( A$, X )XX X X XXXX X XX XXX
N = RMDIR( A$ )XX X X X
N = RNDXXXXXXXXXXXXXXXXXXXXXXXX
N = RND( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = ROUND( X, Y )X X
S$ = RTRIM$( A$ )X X X X X X
N = SCALE( X ) X X
N = SEC( X )X X X XX
N = SEEK( X )X X X X X
N = SEEK( X, Y )X X X X
N = SEG( X ) X
S$ = SEG( A$, X, Y )X X
S$ = SEG$( A$, X, Y )X X X
N = SGN( X )XXXXXXXXX XXXXXXXXXXXXXX
N = SHELL( A$ )X X X X X
N = SIN( X )XXXXXXXXXXXXXXXXXXXXXX X
N = SIND( X )X X
N = SING( X )X X
N = SINH( X )X X X
N = SIZE( A$ ) X
N = SIZE( ... ) X
N = SLEEP( X )X XXX X
N = SNH( X )X X
S$ = SPA( X ) XX
S$ = SPACE( X ) XX X
S$ = SPACE$( X )XX XXX X X X
S$ = SPC( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = SQR( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = SQRT( X ) XX
S$ = STR( X, Y )X X
S$ = STR$( X )XXXXXXXXXXXXXXX XXXXXXX
S$ = STRING( X, Y )X X
S$ = STRING$( X, A$ )XX X XXX X X X
S$ = STRING$( X, Y )XX X XXX X X X
S$ = STRIP$( A$ ) X
N = STUFF( X, Y ) XX
S$ = TAB( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = TAN( X )XXXXXXXXXXXXXXXXXXXXXXXX
N = TAND( X )X X
N = TANG( X )X X
N = TANH( X )X X X
N = TI XX
S$ = TI$ XX
N = TIM X X XX X XX
N = TIM( X ) X XX XX
N = TIMEX X XXX X
N = TIME( X ) XX X
S$ = TIME$XX X XXX X X X
S$ = TIME$( X )X X X
N = TIMERXX X X X X
N = TOP X
N = TRACE XX
N = TRACE( X ) X
S$ = TRIM$( A$ )X X X X X
N = TROFFXX X XXX X X X X
N = TRONXX X XXX X X X X
N = TRUE X
N = TRUNCATE( X, Y )X X
N = UBOUND( ... )X X
S$ = UCASE$( A$ )X X X X X X X
N = UNLOCK( X ) X
N = UNSAVE( A$ ) X X XXX X
S$ = UPPER$( A$ ) X
N = USR( ... ) X X X X
N = USR0( ... ) X X X X
N = USR1( ... ) X X X X
N = USR2( ... ) X X X X
N = USR3( ... ) X X X X
N = USR4( ... ) X X X X
N = USR5( ... ) X X X X
N = USR6( ... ) X X X X
N = USR7( ... ) X X X X
N = USR8( ... ) X X X X
N = USR9( ... ) X X X X
N = UUF( ... ) X
N = VAL( A$ )XXXXXXXXXXXXXXX XXXXXXX
N = VARPTR( ... ) X
N = VTAB( X ) XX
N = WAIT( X )X XX X
N = WAIT( X, Y )X XXX X X X
N = WAIT( X, Y, Z )X XXX X X X
N = WIDTH( X )XX X X X X
N = WIDTH( X, Y )XX XXX X X X
N = ZONE( X ) X
N = ZONE( X, Y ) X
+ + diff --git a/Junk/Bwbasic-1.1-Manual.txt b/Junk/Bwbasic-1.1-Manual.txt new file mode 100644 index 0000000..c331447 --- /dev/null +++ b/Junk/Bwbasic-1.1-Manual.txt @@ -0,0 +1,441 @@ + + + Bywater BASIC Interpreter/Shell, version 1.10 + --------------------------------------------- + + Copyright (c) 1992, Ted A. Campbell + for bwBASIC version 1.10, 1 November 1992 + + +CONTENTS: + + 1. DESCRIPTION + 2. TERMS OF USE + 3. COMMANDS AND FUNCTIONS IMPLEMENTED + 4. SOME NOTES ON USAGE + 5. UNIMPLEMENTED COMMANDS AND FUNCTIONS + 6. SOME NOTES ON COMPILATION + 7. THE STORY OF BYWATER BASIC + 8. COMMUNICATIONS + + +1. DESCRIPTION + + The Bywater BASIC Interpreter (bwBASIC) implements a large + superset of the ANSI Standard for Minimal BASIC (X3.60-1978) + in ANSI C and offers shell program facilities as an extension + of BASIC. + + The set of BASIC commands and functions implemented is fairly + limited (see section three below), although more commands and + functions are implemented than appear in the specification + for Minimal BASIC. There are no commands that are terminal- or + hardware specific. (Seriously -- CLS may work under bwBASIC + on your DOS-based pc, but that is because bwBASIC shells + out to DOS when it does not recognize CLS and executes CLS there.) + + The interpreter is slow. Whenever faced with a choice between + conceptual clarity and speed, I have consistently chosen + the former. The interpreter is the simplest design available, + and utilizes no system of intermediate code, which would speed + up considerably its operation. As it is, each line is interpreted + afresh as the interpreter comes to it. + + bwBASIC implements one feature not available in previous BASIC + interpreters: a shell command can be entered interactively at the + bwBASIC prompt, and the interpreter will execute it under a + command shell. For instance, the command "dir *.bas" can be + entered in bwBASIC (under DOS, or "ls -l *.bas" under UNIX) and + it will be executed as from the operating system command line. + Shell commands can also be given on numbered lines in a bwBASIC + program, so that bwBASIC can be used as a shell programming + language. bwBASIC's implementation of the RMDIR, CHDIR, MKDIR, + NAME, KILL, ENVIRON, and ENVIRON$() commands and functions + offer further shell-processing capabilities. + + +2. TERMS OF USE: + + The bwBASIC source code and executables produced from it can be + used subject to the following statement which is included in + the header to all the source code files: + + All U.S. and international copyrights are claimed by the + author. The author grants permission to use this code + and software based on it under the following conditions: + (a) in general, the code and software based upon it may be + used by individuals and by non-profit organizations; (b) it + may also be utilized by governmental agencies in any country, + with the exception of military agencies; (c) the code and/or + software based upon it may not be sold for a profit without + an explicit and specific permission from the author, except + that a minimal fee may be charged for media on which it is + copied, and for copying and handling; (d) the code must be + distributed in the form in which it has been released by the + author; and (e) the code and software based upon it may not + be used for illegal activities. + + +3. BASIC COMMANDS AND FUNCTIONS IMPLEMENTED: + + ABS( number ) + ASC( string$ ) + ATN( number ) + CHAIN [MERGE] file-name [, line-number] [, ALL] + CHR$( number ) + CINT( number ) + CLEAR + CLOSE [[#]file-number]... + COMMON variable [, variable...] + COS( number ) + CSNG( number ) + CVD( string$ ) + CVI( string$ ) + CVS( string$ ) + DATA constant[,constant]... + DATE$ + DEF FNname(arg...)] = expression + DEFDBL letter[-letter](, letter[-letter])... + DEFINT letter[-letter](, letter[-letter])... + DEFSNG letter[-letter](, letter[-letter])... + DEFSTR letter[-letter](, letter[-letter])... + DELETE line[-line] + DIM variable(elements...)[variable(elements...)]... + END + ENVIRON variable-string = string + ENVIRON$( variable-string ) + EOF( device-number ) + ERASE variable[, variable]... + ERL + ERR + ERROR number + EXP( number ) + FIELD [#] device-number, number AS string-variable [, number AS string-variable...] + FOR counter = start TO finish [STEP increment] + GET [#] device-number [, record-number] + GOSUB line + GOTO line + HEX$( number ) + IF expression THEN statement [ELSE statement] + INPUT [# device-number]|[;]["prompt string";]list of variables + INSTR( [start-position,] string-searched$, string-pattern$ ) + INT( number ) + KILL file-name + LEFT$( string$, number-of-spaces ) + LEN( string$ ) + LET variable = expression + LINE INPUT [[#] device-number,]["prompt string";] string-variable$ + LIST line[-line] + LOAD file-name + LOC( device-number ) + LOF( device-number ) + LOG( number ) + LSET string-variable$ = expression + MERGE file-name + MID$( string$, start-position-in-string[, number-of-spaces ] ) + MKD$( double-value# ) + MKI$( integer-value% ) + MKS$( single-value! ) + NAME old-file-name AS new-file-name + NEW + NEXT counter + OCT$( number ) + ON variable GOTO|GOSUB line[,line,line,...] + ON ERROR GOSUB line + OPEN O|I|R, [#]device-number, file-name [,record length] + file-name FOR INPUT|OUTPUT|APPEND AS [#]device-number [LEN = record-length] + OPTION BASE number + POS + PRINT [# device-number,][USING format-string$;] expressions... + PUT [#] device-number [, record-number] + RANDOMIZE number + READ variable[, variable]... + REM string + RESTORE line + RETURN + RIGHT$( string$, number-of-spaces ) + RND( number ) + RSET string-variable$ = expression + RUN [line][file-name] + SAVE file-name + SGN( number ) + SIN( number ) + SPACE$( number ) + SPC( number ) + SQR( number ) + STOP + STR$( number ) + STRING$( number, ascii-value|string$ ) + SWAP variable, variable + SYSTEM + TAB( number ) + TAN( number ) + TIME$ + TIMER + TROFF + TRON + VAL( string$ ) + WEND + WHILE expression + WIDTH [# device-number,] number + WRITE [# device-number,] element [, element ].... + + If DIRECTORY_CMDS is set to TRUE when the program is compiled, + then the following commands will be available: + + CHDIR pathname + MKDIR pathname + RMDIR pathname + + If DEBUG is set to TRUE when the program is compiled then + the following debugging commands (unique to bwBASIC) will + be available: + + VARS (prints a list of all variables) + CMDS (prints a list of all commands) + FNCS (prints a list of all functions) + + If COMMAND_SHELL is set to TRUE when the program is compiled, + then the user may enter a shell command at the bwBASIC prompt. + + +4. SOME NOTES ON USAGE: + + An interactive environment is provided, so that a line with a + line number can be entered at the bwBASIC prompt and it will be + added to the program in memory. + + Line numbers are not strictly required, but are useful if the + interactive enviroment is used for programming. For longer + program entry one might prefer to use an ASCII text editor, and + in this case lines can be entered without numbers. In this case, + however, one will not be able to alter the numberless lines + within the interactive environment. + + Command names and function names are not case sensitive, + so that "Run" and "RUN" and "run" are equivalent and "abs()" + and "ABS()" and "Abs()" are equivalent. HOWEVER: variable + names ARE case sensitive in bwbASIC, so that "d$" and "D$" + are different variables. This differs from some BASIC + implementations where variable names are not case sensitive. + + A filename can be specified on the command line and will be + LOADed and RUN immediately, so that the command line + + bwbasic prog.bas + + will load and execute "prog.bas". + + All programs are stored as ASCII text files. + + TRUE is defined as -1 and FALSE is defined as 0 in the default + distribution of bwBASIC. These definitions can be changed by + those compiling bwBASIC (see file BWBASIC.H). + + Assignment must be made to variables. This differs from some + implementations of BASIC where assignment can be made to a + function. Implication: "INSTR( 3, x$, y$ ) = z$" will not + work under bwBASIC. + + Notes on the implementation of specific commands: + + CVI(), CVD(), CVS(), MKI$(), MKD$(), MKS$(): These functions + are implemented, but are dependent on a) the sizes for integer, + float, and double values on particular systems, and b) how + particular versions of C store these numerical values. The + implication is that data files created using these functions + on a DOS-based microcomputer may not be translated correctly + by bwBASIC running on a Unix-based computer. Similarly, data + files created by bwBASIC compiled by one version of C may not be + readable by bwBASIC compiled by another version of C (even under + the same operating system). So be careful with these. + + ENVIRON: The ENVIRON command requires BASIC strings on either + side of the equals sign. Thus: + + environ "PATH" = "/usr/bin" + + It might be noted that this differs from the implementation + of ENVIRON in some versions of BASIC, but bwBASIC's ENVIRON + allows BASIC variables to be used on either side of the equals + sign. Note that the function ENVIRON$() is different from the + command, and be aware of the fact that in some operating systems + an environment variable set within a program will not be passed + to its parent shell. + + ERR: Note that if PROG_ERRORS has been defined when bwBASIC is + compiled, the ERR variable will not be set correctly upon + errors. It only works when standard error messages are used. + + FOR and NEXT: In this implementation of bwBASIC, a NEXT + statement must appear in the first position in a program + line; it cannot appear in a line segment beyond a colon. + + INPUT: bwBASIC cannot support the optional feature of INPUT + that suppresses the carriage-return and line-feed at the end + of the input. This is because ANSI C does not provide for any + means of input other than CR-LF-terminated strings. + + +5. UNIMPLEMENTED COMMANDS AND FUNCTIONS + + There are a few items not implemented that have been so long + a part of standard BASICs that their absence will seem surprising. + In each case, though, their implementation would require opera- + ting-system-specific functions or terminal-specific functions + that ANSI C cannot provide. Some specific examples: + + CALL In some versions of BASIC, CALL is used to call a + machine language subroutine, but machine language + routines are highly system-specific. In other + BASICs (conforming to the more complete ANSI + definition of BASIC), CALL is used to call a + named subroutine. Although it's possible that + bwBASIC could develop as a numberless BASIC + with named subroutine calls, these features + are not implemented in this earliest released + version. + + CLOAD See CALL above (machine language subroutines). + + CONT See RESUME below (programmer ignorance?). + + DEF USR See CALL above (machine language subroutines). + + EDIT EDIT would be especially nice, but requires some + specific knowledge of how particular computers + handle interaction between the screen and the + keyboard. This knowledge isn't available within + the bounds of ANSI C alone ("innerhalb die Grenzen + der reinen Vernunft," with apologies to Immanuel + Kant). + + FRE() The ability to report the amount of free memory + remaining is system-specific due to varying patterns + of memory allocation and access; consequently this + ability is not present in ANSI C and this function + is not available in bwBASIC. + + FILES The FILES command requires a list of files conforming + to a specifier; ANSI C does not provide this. When + COMMAND_SHELL is defined as TRUE, users might want + to issue operating-system commands such as "DIR" + (DOS) or "ls -l" (Unix) to get a list of files. + + INKEY$ This function requires a keyboard scan to indicate + whether a key is pending. Although this facility + is easily available on microcomputers (it is part + of the minimal CP/M Operating System), it is not + easily available on some more complex systems. + Consequently, it's not part of the C standard and + bwBASIC has not implemented INKEY$. + + INPUT$() Similar to INKEY$ above, ANSI C by itself is not + able to read unechoed keyboard input, and can read + keyboard input only after a Carriage-Return has + been entered. + + INP Calls to hardware ports, like machine-language + routines, are highly system-specific and cannot + be implemented in ANSI C alone. + + LLIST See LPRINT below. + + LPOS See LPRINT below. + + LPRINT and LLIST, etc., require access to a printer device, + and this varies from one system to another. Users + might try OPENing the printer device on their own + operating system (e.g., "/dev/lp" on Unix systems, + or "PRN" under DOS) and see if printing can be done + from bwBASIC in this way. + + NULL In this case, I am convinced that NULL is no longer + necessary, since very few printers now require NULLs + at the end of lines. + + OUT See INP above (calls to hardware ports). + + PEEK() PEEK and POKE enabled earlier BASICs to address + particular memory locations. Although bwBASIC + could possibly implement this command (POKE) and + this function (PEEK()), the limitation would be + highly limited by the different systems for + memory access in different systems. + + POKE see PEEK() above. + + RENUM Since unnumbered lines can be entered and + executed under bwBASIC, it would not be + possible to implement a RENUM routine. + + RESUME Is this possible under ANSI C? If so, I + simply have failed to figure it out yet. + Mea culpa (but not maxima). + + USR See CALL and DEF USR above (machine language + subroutines). + + VARPTR See PEEK and POKE above. + + WAIT See INP and OUT above. + + +6. SOME NOTES ON COMPILATION + + bwBASIC is written in ANSI C and takes advantage of some of the + enhancements of ANSI C over the older K&R standard. The program + expects to find standard ANSI C include files (such as ). + Because there is nothing terminal- or hardware-specific about it, + I should hope that it would compile correctly under any ANSI C + compiler, but you may have to construct your own makefile. + + Two makefiles are currently provided: "makefile.qcl" will compile + the program utilizing the Microsoft QuickC (tm) line-oriented + compiler on DOS-based p.c.'s, and "makefile.gcc" will compile + the program utilizing the ANSI option of Gnu C++. I have also + compiled the program utilizing Borland's Turbo C++ (tm) on DOS- + based machines. + + No alterations to flags are necessary for varied environments, + but the beginning of file allows the user to set + some debugging flags and to control some program defaults. + The file has a number of language-specific message + sets that can be controlled by setting the appropriate language + flag. + + +7. THE STORY OF BYWATER BASIC + + This program was originally begun in 1982 by my grandmother, Mrs. + Verda Spell of Beaumont, TX. She was writing the program using + an ANSI C compiler on an Osborne I CP/M computer and although my + grandfather (Lockwood Spell) had bought an IBM PC with 256k of + RAM my grandmother would not use it, paraphrasing George Herbert + to the effect that "He who cannot in 64k program, cannot in 512k." + She had used Microsoft BASIC and although she had nothing against + it she said repeatedly that she didn't understand why Digital + Research didn't "sue the socks off of Microsoft" for version 1.0 + of MSDOS and so I reckon that she hoped to undercut Microsoft's + entire market and eventually build a new software empire on + the North End of Beaumont. Her programming efforts were cut + tragically short when she was thrown from a Beaumont to Port + Arthur commuter train in the summer of 1986. I found the source + code to bwBASIC on a single-density Osborne diskette in her knitting + bag and eventually managed to have it all copied over to a PC + diskette. I have revised it slightly prior to this release. You + should know, though, that I myself am an historian, not a programmer. + + +8. COMMUNICATIONS: + + Ted A. Campbell + Bywater Software + P.O. Box 4023 + Duke Station + Durham, NC 27706 + USA + + email: tcamp@acpub.duke.edu + + diff --git a/Junk/Bwbasic-2.1-Manual.txt b/Junk/Bwbasic-2.1-Manual.txt new file mode 100644 index 0000000..934691c --- /dev/null +++ b/Junk/Bwbasic-2.1-Manual.txt @@ -0,0 +1,1881 @@ + + + + + Bywater BASIC Interpreter/Shell, version 2.10 + --------------------------------------------- + + Copyright (c) 1993, Ted A. Campbell + for bwBASIC version 2.10, 11 October 1993 + + +CONTENTS: + + 1. DESCRIPTION + 2. TERMS OF USE + 3. QUICK REFERENCE LIST OF COMMANDS AND FUNCTIONS + 4. GENERAL NOTES ON USAGE + 5. EXPANDED REFERENCE FOR COMMANDS AND FUNCTIONS + 6. PREDEFINED VARIABLES + 7. UNIMPLEMENTED COMMANDS AND FUNCTIONS + and AGENDA FOR DEVELOPMENT + 8. THE STORY OF BYWATER BASIC + 9. COMMUNICATIONS + + The author wishes to express his thanks to Mr. David MacKenzie, + who assisted in the development Unix installation and configuration + for this version. + + +1. DESCRIPTION + + The Bywater BASIC Interpreter (bwBASIC) implements a large + superset of the ANSI Standard for Minimal BASIC (X3.60-1978) + and a significant subset of the ANSI Standard for Full BASIC + (X3.113-1987) in C. It also offers shell programming facilities + as an extension of BASIC. bwBASIC seeks to be as portable + as possible. + + bwBASIC can be configured to emulate features, commands, and + functions available on different types of BASIC interpreters; + see the file INSTALL for further installation information. + + The interpreter is fairly slow. Whenever faced with a choice + between conceptual clarity and speed, I have consistently chosen + the former. The interpreter is the simplest design available, + and utilizes no system of intermediate code, which would speed + up considerably its operation. As it is, each line is interpreted + afresh as the interpreter comes to it. + + bwBASIC implements one feature not available in previous BASIC + interpreters: a shell command can be entered interactively at the + bwBASIC prompt, and the interpreter will execute it under a + command shell. For instance, the command "dir *.bas" can be + entered in bwBASIC (under DOS, or "ls -l *.bas" under UNIX) and + it will be executed as from the operating system command line. + Shell commands can also be given on numbered lines in a bwBASIC + program, so that bwBASIC can be used as a shell programming + language. bwBASIC's implementation of the RMDIR, CHDIR, MKDIR, + NAME, KILL, ENVIRON, and ENVIRON$() commands and functions + offer further shell-processing capabilities. + + +2. TERMS OF USE: + + This version of Bywater BASIC is released under the terms of the + GNU General Public License (GPL), which is distributed with this + software in the file "COPYING". The GPL specifies the terms + under which users may copy and use the software in this distribution. + + A separate license is available for commercial distribution, + for information on which you should contact the author. + + +3. QUICK REFERENCE LIST OF COMMANDS AND FUNCTIONS + + Be aware that many of these commands and functions will not be + available unless you have set certain flags in the header files + (see the expanded reference section below for dependencies). + + ABS( number ) + ASC( string$ ) + ATN( number ) + CALL subroutine-name + CASE ELSE | IF partial-expression | constant + CHAIN [MERGE] file-name [, line-number] [, ALL] + CHDIR pathname + CHR$( number ) + CINT( number ) + CLEAR + CLOSE [[#]file-number]... + CLS + COMMON variable [, variable...] + COS( number ) + CSNG( number ) + CVD( string$ ) + CVI( string$ ) + CVS( string$ ) + DATA constant[,constant]... + DATE$ + DEF FNname(arg...)] = expression + DEFDBL letter[-letter](, letter[-letter])... + DEFINT letter[-letter](, letter[-letter])... + DEFSNG letter[-letter](, letter[-letter])... + DEFSTR letter[-letter](, letter[-letter])... + DELETE line[-line] + DIM variable(elements...)[variable(elements...)]... + DO NUM|UNNUM + DO [WHILE expression] + EDIT + ELSE + ELSEIF + END IF | FUNCTION | SELECT | SUB + ENVIRON variable-string = string + ENVIRON$( variable-string ) + EOF( device-number ) + ERASE variable[, variable]... + ERL + ERR + ERROR number + EXP( number ) + FIELD [#] device-number, number AS string-variable [, number AS string-variable...] + FILES filespec$ + FUNCTION + FOR counter = start TO finish [STEP increment] + GET [#] device-number [, record-number] + GOSUB line | label + GOTO line | label + HEX$( number ) + IF expression THEN [statement [ELSE statement]] + INKEY$ + INPUT [# device-number]|[;]["prompt string";]list of variables + INSTR( [start-position,] string-searched$, string-pattern$ ) + INT( number ) + KILL file-name + LEFT$( string$, number-of-spaces ) + LEN( string$ ) + LET variable = expression + LINE INPUT [[#] device-number,]["prompt string";] string-variable$ + LIST line[-line] + LOAD file-name + LOC( device-number ) + LOCATE line, column + LOF( device-number ) + LOG( number ) + LOOP [UNTIL expression] + LSET string-variable$ = expression + MERGE file-name + MID$( string$, start-position-in-string[, number-of-spaces ] ) + MKD$( number ) + MKDIR pathname + MKI$( number ) + MKS$( number ) + NAME old-file-name AS new-file-name + NEW + NEXT [counter] + OCT$( number ) + ON variable GOTO|GOSUB line[,line,line,...] + ON ERROR GOSUB line + OPEN "O"|"I"|"R", [#]device-number, file-name [,record length] + file-name FOR INPUT|OUTPUT|APPEND AS [#]device-number [LEN = record-length] + OPTION BASE number + POS + PRINT [# device-number,][USING format-string$;] expressions... + PUT [#] device-number [, record-number] + QUIT + RANDOMIZE number + READ variable[, variable]... + REM string + RESTORE line + RETURN + RIGHT$( string$, number-of-spaces ) + RMDIR pathname + RND( number ) + RSET string-variable$ = expression + RUN [line][file-name] + SAVE file-name + SELECT CASE expression + SGN( number ) + SIN( number ) + SPACE$( number ) + SPC( number ) + SQR( number ) + STOP + STR$( number ) + STRING$( number, ascii-value|string$ ) + SUB subroutine-name + SWAP variable, variable + SYSTEM + TAB( number ) + TAN( number ) + TIME$ + TIMER + TROFF + TRON + VAL( string$ ) + WEND + WHILE expression + WIDTH [# device-number,] number + WRITE [# device-number,] element [, element ].... + + +4. GENERAL NOTES ON USAGE: + + 4.a. Interactive Environment + + An interactive environment is provided if the flag INTERACTIVE + is defined as TRUE in bwbasic.h, so that a line with a + line number can be entered at the bwBASIC prompt and it will be + added to the program in memory. + + Line numbers are not strictly required, but are useful if the + interactive enviroment is used for programming. For longer + program entry one might prefer to use an ASCII text editor, and + in this case lines can be entered without numbers. One can use + DO NUM and DO UNNUM to number or unnumber lines. See also the + documentation below for the pseudo-command EDIT. + + 4.b. Naming Conventions + + Command names and function names are not case sensitive, + so that "Run" and "RUN" and "run" are equivalent and "abs()" + and "ABS()" and "Abs()" are equivalent. HOWEVER, variable + names ARE case sensitive in bwbASIC, so that "d$" and "D$" + are different variables. This differs from some BASIC + implementations where variable names are not case sensitive. + + Variable names can use any alphabetic characters, the period + and underscore characters and decimal digits (but not in the + first position). They can be terminated with '#' or '!' to + allow Microsoft-type names, even though the precision is + irrelevant to bwBASIC. + + 4.c. Numerical Constants + + Numerical constants may begin with a digit 0-9 (decimal), with + the "&H" or "&h" (hexadecimal) or the "&o" or "&O" (octal). + Decimal numbers may terminated with 'E', 'e', 'D', or 'd' + followed by an exponent number to denote exponential notation. + Decimal constants may also be terminated by the '#' or '!' + to comply with Microsoft-style precision terminators, although + the precision specified will be irrelevant to bwBASIC. + + 4.d. Command-Line Execution + + A filename can be specified on the command line and will be + LOADed and RUN immediately, so that the command line + + bwbasic prog.bas + + will load and execute "prog.bas". + + 4.e. Program Storage + + All programs are stored as ASCII text files. + + 4.f. TRUE and FALSE + + TRUE is defined as -1 and FALSE is defined as 0 in the default + distribution of bwBASIC. These definitions can be changed by + those compiling bwBASIC (see file BWBASIC.H). + + 4.g. Assignments + + Assignment must be made to variables. This differs from some + implementations of BASIC where assignment can be made to a + function. Implication: "INSTR( 3, x$, y$ ) = z$" will not + work under bwBASIC. + + 4.h. Operators and Precedence + + bwBASIC recognizes the following operators, with their level + of precedence given (1 = highest): + + ^ 1 exponentiation + * 2 multiplication + / 2 division + \ 3 integer division + + 5 addition + - 5 subtraction + = 6 equality or assignment + MOD 4 modulus (remainder) arithmetic + <> 7 inequality + < 8 less than + > 9 greater than + <= 10 less than or equal to + =< 10 less than or equal to + >= 11 greater than or equal to + => 11 greater than or equal to + NOT 12 negation + AND 13 conjunction + OR 14 disjunction + XOR 15 exclusive or + IMP 16 implication + EQV 17 equivalence + + 4.h. Numerical Precision (NOT) + + bwBASIC utilizes numbers with only one level of precision. If + the flag NUMBER_DOUBLE is defined as TRUE in bwbasic.h, the + precision implemented will be that of the C "double" data type; + otherwise (default) the precision will be that of the C "float" + type. At a number of points there are commands (or pseudo- + commands) that seem to recognize Microsoft-style precision + distinctions, but for the most part these are just work-around + aliases to allow Microsoft-style programs to be run. + + +5. EXPANDED REFERENCE FOR COMMANDS AND FUNCTIONS + + The "Dependencies" listed in the folowing reference materials + refers to flags that must be set to TRUE in bwbasic.h for the + associated command or function to be implemented. These flags + are as follows: + + (core) Commands and Functions in any implementation of + bwBASIC; these are the ANSI Minimal BASIC core + + INTERACTIVE Commands supporting the interactive programming + environment + + COMMON_CMDS Commands beyond ANSI Minimal BASIC which are common + to Full ANSI BASIC and Microsoft BASICs + + COMMON_FUNCS Functions beyond the ANSI Mimimal BASIC core, but + common to both ANSI Full BASIC and Microsoft-style + BASIC varieties + + UNIX_CMDS Commands which require Unix-style directory and + environment routines not specified in C + + STRUCT_CMDS Commands related to structured programming; all + of these are part of the Full ANSI BASIC standard + + ANSI_FUNCS Functions unique to ANSI Full BASIC + + MS_CMDS Commands unique to Microsoft BASICs + + MS_FUNCS Functions unique to Microsoft BASICs + + + ------------------------------------------ + + Function: ABS( number ) + + Description: ABS returns the absolute value of the argument 'number'. + + Dependencies: (core) + + ------------------------------------------ + + Function: ASC( string$ ) + + Description: ASC returns the ASCII code for the first letter in + the argument string$. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: ATN( number ) + + Description: ATN returns the arctangent value of the argument 'number' + in radians. + + Dependencies: (core) + + ------------------------------------------ + + Command: CALL subroutine-name + + Description: CALL calls a named subroutine (see SUB and END SUB). + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: CASE ELSE | IF partial-expression | constant + + Description: CASE introduces an element of a SELECT CASE statement + (see SELECT CASE). CASE IF introduces a conditional + SELECT CASE element, and CASE ELSE introduces a + default SELECT CASE element. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: CHAIN [MERGE] file-name [, line-number] [, ALL] + + Description: CHAIN passes control to another BASIC program. + Variables declared COMMON (q.v.) will be passed + to the new program. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: CHDIR pathname$ + + Description: CHDIR changes the current directory to that indicated + by the argument pathname$. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Function: CHR$( number ) + + Description: CHR$ returns a one-character string with the character + corresponding to the ASCII code indicated by argument + 'number'. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Function: CINT( number ) + + Description: CINT returns the truncated integer for the argument + 'number'. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: CLEAR + + Description: CLEAR sets all numerical variables to 0, and all + string variables to null. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: CLOSE [[#]file-number]... + + Description: CLOSE closes the file indicated by file-number + (see OPEN). + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: CLS + + Description: CLS clears the display screen (IBM and compatibles + only as of version 2.10). + + Dependencies: IMP_IQC and IMP_CMDLOC + + ------------------------------------------ + + Command: CMDS + + Description: CMDS is a debugging command that prints a list + of all implemented bwBASIC commands. + + Dependencies: DEBUG + + ------------------------------------------ + + Command: COMMON variable [, variable...] + + Description: COMMON designates variables to be passed to a CHAINed + program (see CHAIN). + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Function: COS( number ) + + Description: COS returns the cosine of the argument 'number' + in radians. + + Dependencies: (core) + + ------------------------------------------ + + Function: CSNG( number ) + + Description: CSNG is a pseudo-function that has no effect under + bwBASIC. It replicates a Microsoft-type command + that would convert the 'number' to single-precision. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: CVD( string$ ) + + Description: CVD converts the argument string$ into a bwBASIC + number (precision is irrelevant in bwBASIC since + bwBASIC numbers have only one precision). + + Implenentation-Specific Notes: + + CVD(), CVI(), CVS(), MKI$(), MKD$(), MKS$(): These functions + are implemented, but are dependent on a) the sizes for integer, + float, and double values on particular systems, and b) how + particular versions of C store these numerical values. The + implication is that data files created using these functions + on a DOS-based microcomputer may not be translated correctly + by bwBASIC running on a Unix-based computer. Similarly, data + files created by bwBASIC compiled by one version of C may not be + readable by bwBASIC compiled by another version of C (even under + the same operating system). So be careful with these. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: CVI( string$ ) + + Description: CVI converts the argument string$ into a bwBASIC + number (precision is irrelevant in bwBASIC since + bwBASIC numbers have only one precision; see also + the note on CVD). + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: CVS( string$ ) + + Description: CVI converts the argument string$ into a bwBASIC + number (precision is irrelevant in bwBASIC since + bwBASIC numbers have only one precision; see also + the note on CVD). + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: DATA constant[,constant]... + + Description: DATA stores numerical and string constants to be + accessed by READ (q.v.). + + Dependencies: (core) + + ------------------------------------------ + + Function: DATE$ + + Description: DATE$ returns the current date based on the computer's + internal clock as a string in the form "YYYY-MM-DD". + As implemented under bwBASIC, DATE$ cannot be used for + assignment (i.e., to set the system date). + + Note: bwBASIC presently (v2.10) does not allow assignment + to a function. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Command: DEF FNname(arg...)] = expression + + Description: DEF defines a user-written function. This function + corresponds to Microsoft-type implementation, although + in bwBASIC DEF is a working equivalent of FUNCTION. + + Dependencies: (core) + + ------------------------------------------ + + Command: DEFDBL letter[-letter](, letter[-letter])... + + Description: DEFDBL declares variables with single-letter names + as numerical variables (precision is irrelevant in + bwBASIC). + + Dependencies: MS_CMDS + + ------------------------------------------ + + Command: DEFINT letter[-letter](, letter[-letter])... + + Description: DEFINT declares variables with single-letter names + as numerical variables (precision is irrelevant in + bwBASIC). + + Dependencies: MS_CMDS + + ------------------------------------------ + + Command: DEFSNG letter[-letter](, letter[-letter])... + + Description: DEFSNG declares variables with single-letter names + as numerical variables (precision is irrelevant in + bwBASIC). + + Dependencies: MS_CMDS + + ------------------------------------------ + + Command: DEFSTR letter[-letter](, letter[-letter])... + + Description: DEFSTR declares variables with single-letter names + as string variables. + + Dependencies: MS_CMDS + + ------------------------------------------ + + Command: DELETE line[-line] + + Description: DELETE deletes program lines indicated by the + argument(s). If you want to use DELETE for non- + numbered programs, first use DO NUM, then DELETE, + then DO UNNUM. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: DIM variable(elements...)[variable(elements...)]... + + Description: DIM specifies variables that have more than one + element in a single dimension, i.e., arrayed + variables. + + Note: As implemented under bwBASIC, DIM accepts only + parentheses as delimiters for variable fields. + (Some BASICs allow the use of square brackets.) + + Dependencies: (core) + + ------------------------------------------ + + Command: DO NUM|UNNUM + + Description: DO NUM numbers all lines in a program. The first + line is given the number 10, and subsequent lines + are numbered consecutively in multiples of 10. DO + UNNUM removes all line numbers from a program. + NOTE that these functions do nothing to line + numbers, e.g., following a GOSUB or GOTO statement; + these commands cannot be used as a replacement for + RENUM (available in some systems, but not bwBASIC). + With these commands, however, one can develop + unnumbered programs by entering new lines with numbers, + then running DO UNNUM to remove the line numbers. + Together with LOAD and SAVE (q.v.) one can use + bwBASIC as a primitive text editor. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: DO [WHILE expression] + + Description: DO implements a number of forms of program loops. + DO...LOOP simply loops; the only way out is by + EXIT; DO WHILE...LOOP loops while "expression" is + true (this is equivalent to the older WHILE-WEND + loop, also implemented in bwBASIC); DO...LOOP UNTIL + loops until the expression following UNTIL is true. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: EDIT + + Description: EDIT is a pseudo-command which calls the text editor + specified in the variable BWB.EDITOR$ to edit the + program in memory. After the call to the text editor, + the (edited) prgram is reloaded into memory. The user + normally must specific a valid path and filename in + BWB.EDITOR$ before this command will be useful. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: ELSE + + Description: ELSE introduces a default condition in a multi-line IF + statement. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: ELSEIF + + Description: ELSEIF introduces a secondary condition in a multi- + line IF statement. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: END IF | FUNCTION | SELECT | SUB + + Description: END IF ends a multi-line IF statement. END FUNCTION + ends a multi-line function definition. END SELECT + ends a SELECT CASE statement. END SUB ends a multi- + line subroutine definition. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: ENVIRON variable-string$ = string$ + + Description: ENVIRON sets the environment variable identified by + variable-string$ to string$. + + It might be noted that this differs from the implementation + of ENVIRON in some versions of BASIC, but bwBASIC's ENVIRON + allows BASIC variables to be used on either side of the equals + sign. Note that the function ENVIRON$() is different from the + command, and be aware of the fact that in some operating systems + an environment variable set within a program will not be passed + to its parent shell. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Function: ENVIRON$( variable-string$ ) + + Description: ENVIRON$ returns the environment variable associated with + the name variable-string$. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: EOF( device-number ) + + Description: EOF returns TRUE (-1) if the device associated with + device-number is at the end-of-file, otherwise it + returns FALSE (0). + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: ERASE variable[, variable]... + + Description: ERASE eliminates arrayed variables from a program. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Function: ERL + + Description: ERL returns the line number of the most recent error. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: ERR + + Description: ERR returns the error number of the most recent error. + + Note that if PROG_ERRORS has been defined when bwBASIC is + compiled, the ERR variable will not be set correctly upon + errors. It only works when standard error messages are used. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: ERROR number + + Description: ERROR simulates an error, i.e., displays the message + appropriate for that error. This command is helpful + in writing ON ERROR GOSUB routines that can identify + a few errors for special treatment and then ERROR ERR + (i.e., default handling) for all others. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: EXIT [FOR] + + Description: EXIT by itself exits from a DO...LOOP loop; + EXIT FOR exits from a FOR...NEXT loop. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Function: EXP( number ) + + Description: EXP returns the exponential value of 'number'. + + Dependencies: (core) + + ------------------------------------------ + + Command: FIELD [#] device-number, number AS string-variable$ [, number AS string-variable$...] + + Description: FIELD allocates space in a random file buffer for device + indicated by device-number, allocating 'number' bytes + and assigning the bytes at this position to the variable + string-variable$. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: FILES filespec$ + + Description: FILES is a pseudocommand that invokes the directory program + specified in the variable BWB.FILES$ with the argument + filespec$. Normally, the user must set this variable + before FILES can be used. E.g., for PC-type computers, + + BWB.FILES$ = "DIR" + + will work, for Unix machines, + + BWB.FILES$ = "ls -l" + + etc. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: FNCS + + Description: CMDS is a debugging command that prints a list + of all pre-defined bwBASIC functions. + + Dependencies: DEBUG + + ------------------------------------------ + + Command: FUNCTION + + Description: FUNCTION introduces a function definition, normally + ending with END FUNCTION. In bwBASIC, FUNCTION and + DEF are qorking equivalents, so either can be used + with single-line function definitions or with multi- + line definitions terminated by END FUNCTION. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: FOR counter = start TO finish [STEP increment] + + Description: FOR initiates a FOR-NEXT loop with the variable + 'counter' initially set to 'start' and incrementing + in 'increment' steps (default is 1) until 'counter' + equals 'finish'. + + Dependencies: (core) + + ------------------------------------------ + + Command: GET [#] device-number [, record-number] + + Description: GET reads the next reacord from a random-access file + or device into the buffer associated with that file. + If record-number is specified, the GET command reads the + specified record. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: GOSUB line | label + + Description: GOSUB initiates a subroutine call to the line (or label) + specified. The subroutine must end with RETURN. + + Dependencies: (core), but STRUCT_CMDS for labels + + ------------------------------------------ + + Command: GOTO line | label + + Description: GOTO branches program execution to the specified line + (or label). + + Dependencies: (core), but STRUCT_CMDS for labels + + ------------------------------------------ + + Function: HEX$( number ) + + Description: HEX$ returns a string giving the hexadecimal (base 16) + value for the 'number'. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: IF expression THEN [statement [ELSE statement]] + + Description: IF evaluates 'expression' and performs the THEN + statement if it is true or (optionally) the + ELSE statement if it is FALSE. If STRUCT_CMDS + is set to TRUE, bwBASIC allows multi-line IF + statements with ELSE and ELSEIF cases, ending + with END IF. + + Dependencies: (core), STRUCT_CMDS for multi-line IF statements + + ------------------------------------------ + + Function: INKEY$ + + Description: INKEY$ reads the status of the keyboard, and a single + keypress, if available. If a keypress is not available, + then INKEY$ immediately returns a null string (""). + Currently (v2.10) implemented in bwx_iqc.c only. + + Dependencies: IMP_IQC and IMP_CMDLOC + + ------------------------------------------ + + Command: INPUT [# device-number]|[;]["prompt string";]list of variables + + Description: INPUT allows input from the terminal or a device + specified by device-number. If terminal, the "prompt + string" is output, and input is assigned to the + appropriate variables specified. + + bwBASIC does not support the optional feature of INPUT + that suppresses the carriage-return and line-feed at the end + of the input. This is because C alone does not provide for any + means of input other than CR-LF-terminated strings. + + Dependencies: (core) + + ------------------------------------------ + + Function: INSTR( [start-position,] string-searched$, string-pattern$ ) + + Description: INSTR returns the position at which string-pattern$ + occurs in string-searched$, beginning at start-position. + As implemented in bwBASIC, INSTR cannot be used for + assignments. + + Note: bwBASIC presently (v2.10) does not allow assignment + to a function. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: INT( number ) + + Description: INT returns the largest integer less than or equal to + the argument 'number'. NOTE that this is not a "truncated" + integer function, for which see CINT. + + Dependencies: (core) + + ------------------------------------------ + + Command: KILL file-name$ + + Description: KILL deletes the file specified by file-name$. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Function: LEFT$( string$, number-of-spaces ) + + Description: LEFT$ returns a substring a string$ with number-of-spaces + from the left (beginning) of the string). As implemented + under bwBASIC, it cannot be used for assignment. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: LEN( string$ ) + + Description: LEN returns the length in bytes of string$. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Command: LET variable = expression + + Description: LET assigns the value of 'expression' to the variable. + As currently implemented, bwBASIC supports implied LET + statements (e.g., "X = 4.5678" at the beginning of + a line or line segment, but does not support assignment + to multiple variables (e.g., "x, y, z = 3.141596"). + + Dependencies: (core) + + ------------------------------------------ + + Command: LINE INPUT [[#] device-number,]["prompt string";] string-variable$ + + Description: LINE INPUT reads entire line from the keyboard or a file + or device into string-variable$. If input is from the + keyboard (stdin), then "prompt string" will be printed + first. Unlike INPUT, LINE INPUT reads a whole line, + not stopping for comma-delimited data items. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: LIST line[-line] + + Description: LIST lists program lines as specified in its argument. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: LOAD file-name + + Description: LOAD loads an ASCII BASIC program into memory. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Function: LOC( device-number ) + + Description: LOC returns the next record that GET or PUT statements + will use. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: LOCATE line, column + + Description: LOCATE addresses trhe curor to a specified line and + column. Currently (v2.10) implemented in bwx_iqc.c only. + + Dependencies: IMP_IQC and IMP_CMDLOC + + ------------------------------------------ + + Function: LOF( device-number ) + + Description: LOF returns the length of a file (specified by device-number) + in bytes. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: LOG( number ) + + Description: LOG returns the natural logarithm of the argument 'number'. + + Dependencies: (core) + + ------------------------------------------ + + Command: LOOP [UNTIL expression] + + Description: LOOP terminates a program loop: see DO. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: LSET string-variable$ = expression + + Description: LSET transfers data from 'expression' to the left-hand + side of a string variable or random access buffer field. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: MERGE file-name + + Description: MERGE adds program lines from 'file-name' to the program + in memory. Unlike LOAD, it does not clear the program + currently in memory. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Function: MID$( string$, start-position-in-string[, number-of-spaces ] ) + + Description: MID$ returns a substring of string$ beginning at + start-position-in-string and continuing for + number-of-spaces bytes. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: MKDIR pathname$ + + Description: MKDIR creates a new directory path as specified by + pathname$. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Function: MKD$( number ) + + Description: MKD$, MKI$, and MKS$ are all equivalent in bwBASIC. + They convert the numerical value 'number' into a string + which can be stored in a more compressed form in a file + (especially for random file access). Since bwBASIC does + not recognize differences in precision, these commands + are effectively equivalent. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: MKI$( number ) + + Description: Equivalent to MKD$ (q.v.) + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: MKS$( number ) + + Description: Equivalent to MKD$ (q.v.). + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: NAME old-file-name AS new-file-name + + Description: NAME renames an existing file (old-file-name) as + new-file-name. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Command: NEW + + Description: NEW deletes the program in memory and clears all + variables. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: NEXT [counter-variable] + + Description: NEXT comes at the end of a FOR-NEXT loop; see FOR. + + Dependencies: (core) + + ------------------------------------------ + + Function: OCT$( number ) + + Description: OCT$ returns a string giving the octal (base 8) + representation of 'number'. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: ON variable GOTO|GOSUB line[,line,line,...] + + Description: ON either branches (GOTO) or calls a subroutine + (GOSUB) based on the rounded value of variable; + if it is 1, the first line is called, if 2, the second + line is called, etc. + + Dependencies: (core) + + ------------------------------------------ + + Command: ON ERROR GOSUB line|label + + Description: ON ERROR sets up an error handling subroutine. See + also ERROR. + + Dependencies: COMMON_CMDS, STRUCT_CMDS for labels + + ------------------------------------------ + + Command: OPEN "O"|"I"|"R", [#]device-number, file-name [,record length] + file-name FOR INPUT|OUTPUT|APPEND AS [#]device-number [LEN = record-length] + + Description: OPEN allocates random access memory for access to a disk + file or other device. Note that two quite different forms + of the OPEN statement are supported. In the first form, + "O" (note that these letters must be encased in quotation + marks) denotes sequential output, "I" denotes sequential + input, and "R" denotes random-access input and output. + Once OPEN, any number of operations can be performed + on a device (see WRITE #, INPUT #, PRINT #, etc.). + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: OPTION BASE number + + Description: OPTION BASE sets the lowest value for array subscripts, + either 0 or 1. + + Dependencies: (core) + + ------------------------------------------ + + Function: POS + + Description: POS returns the current cursor position in the line. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Command: PRINT [# device-number,][USING format-string$;] expressions... + + Description: PRINT outputs text to the screen or to a file or device + specified by device-number. In the current implementation + of bwBASIC, expressions to be printed must be separated by + the comma (tabbed output), the semicolon (immediate + sequential output) or the plus sign (immediate sequential + output by string concatenation). Expressions separated + by blanks or tabs are not supported. If USING is specified, + a number of formatting marks may appear in the format + string: + + ! prints the first character of a string + + \\ prints 2+x characters of a string, where x = + the number of spaces between the backslashes + + & variable-length string field + + # represents a single digit in output format for + a number + + . decimal point in a number + + + sign of a number (will output + or -) + + - trailing minus after a number + + ** fill leading spaces with asterisks + + $$ output dollar sign in front of a number + + ^^ output number in exponential format + + _ output next character literally + + As currently implemented, the exponential format + will be that used by the C compiler. + + Dependencies: (core), COMMON_FUNCS for USING + + ------------------------------------------ + + Command: PUT [#] device-number [, record-number] + + Description: PUT outputs the next available record or the record + specified by record-number to the file or device + denoted by device-number. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: QUIT + + Description: QUIT is a synonym for SYSTEM; with INTERACTIVE + environment, it exits the program to the + operating system (or the calling program). + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: RANDOMIZE number + + Description: RANDOMIZE seeds the random number generator (see RND). + Under bwBASIC, the TIMER function (q.v.) can be used + to supply a 'number' seed for the random number + generator. + + Dependencies: (core) + + ------------------------------------------ + + Command: READ variable[, variable]... + + Description: READ reads values from DATA statements and assigns these + values to the named variables. Variable types in a READ + statement must match the data types in DATA statements + as they are occurred. See also DATA and RESTORE. + + Dependencies: (core) + + ------------------------------------------ + + Command: REM string + + Description: REM allows remarks to be included in a program. As + currently implemented, the entire line following + REM is ignored by the interpreter (thus, even if + MULTISEG_LINES is set, a REM line will not be able + to find a segment delimiter (":") followed by another + line segment with command. bwBASIC does not currently + implement the Microsoft-style use of the single quotation + mark to denote remarks. + + Dependencies: (core) + + ------------------------------------------ + + Command: RESTORE line + + Description: RESTORE resets the line and position counters for DATA + and READ statements to the top of the program file or + to the beginning of the specified line. (Currently this + must be a line number.) + + Dependencies: (core) + + ------------------------------------------ + + Command: RETURN + + Description: RETURN concludes a subroutine called by GOSUB. + + Dependencies: (core) + + ------------------------------------------ + + Function: RIGHT$( string$, number-of-spaces ) + + Description: RIGHT$ returns a substring a string$ with number-of-spaces + from the right (end) of the string). As implemented + under bwBASIC, it cannot be used for assignment. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: RMDIR pathname + + Description: RMDIR deletes the directory path indicated by pathname. + + Dependencies: UNIX_CMDS + + ------------------------------------------ + + Function: RND( number ) + + Description: RND returns a pseudo-random number. The 'number' value + is ignored by bwBASIC if supplied. The RANDOMIZE + command (q.v.) reseeds the random-number generator. + + Dependencies: (core) + + ------------------------------------------ + + Command: RSET string-variable$ = expression + + Description: RSET transfers data from 'expression' to the right-hand + side of a string variable or random access buffer field. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: RUN [line][file-name$] + + Description: RUN executes the program in memory. If a file-name$ is + supplied, then the specified file is loaded into memory + and executed. If a line number is supplied, then execution + begins at that line. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: SAVE file-name$ + + Description: SAVE saves the program in memory to file-name$. bwBASIC + only saves files in ASCII format. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Command: SELECT CASE expression + + Description: SELECT CASE introduces a multi-line conditional selection + statement. The expression given as the argument to SELECT + CASE will be evaluated by CASE statements following. The + SELECT CASE statement conclludes with an END SELECT + statement. + + As currently implemented, CASE statements may be followed + by string values, but in this case only simple comparisons + (equals, not equals) can be performed. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Function: SGN( number ) + + Description: SGN returns the sign of the argument 'number', +1 + for positive numbers, 0 for 0, and -1 for negative numbers. + + Dependencies: (core) + + ------------------------------------------ + + Function: SIN( number ) + + Description: SIN returns the sine of the argument 'number' + in radians. + + Dependencies: (core) + + ------------------------------------------ + + Function: SPACE$( number ) + + Description: SPACE$ returns a string of blank spaces 'number' + bytes long. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: SPC( number ) + + Description: SPC returns a string of blank spaces 'number' + bytes long. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Function: SQR( number ) + + Description: SQR returns the square root of the argument 'number'. + + Dependencies: (core) + + ------------------------------------------ + + Command: STOP + + Description: STOP interrupts program execution. As implemented under + bwBASIC, STOP issues a SIGINT signal. + + Dependencies: (core) + + ------------------------------------------ + + Function: STR$( number ) + + Description: STR$ returns a string giving the decimal (base 10) + representation of the argument 'number'. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Function: STRING$( number, ascii-value|string$ ) + + Description: STRING$ returns a string 'number' bytes long consisting + of either the first character of string$ or the character + answering to the ASCII value ascii-value. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: SUB subroutine-name + + Description: SUB introduces a named, multi-line subroutine. The + subroutine is called by a CALL statement, and concludes + with an END SUB statement. + + Dependencies: STRUCT_CMDS + + ------------------------------------------ + + Command: SWAP variable, variable + + Description: SWAP swaps the values of two variables. The two variables + must be of the same type (either numerical or string). + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: SYSTEM + + Description: SYSTEM exits from bwBASIC to the calling program or + (more usually) the operating system. + + Dependencies: INTERACTIVE + + ------------------------------------------ + + Function: TAB( number ) + + Description: TAB outputs spaces until the column indicated by + 'number' has been reached. + + Dependencies: (core) + + ------------------------------------------ + + Function: TAN( number ) + + Description: TAN returns the tangent of the argument 'number' + in radians. + + Dependencies: (core) + + ------------------------------------------ + + Function: TIME$ + + Description: TIME$ returns the current time based on the computer's + internal clock as a string in the form "HH-MM-SS". + As implemented under bwBASIC, TIME$ cannot be used for + assignment (i.e., to set the system time). + + Note: bwBASIC presently (v2.10) does not allow assignment + to a function. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Function: TIMER + + Description: TIMER returns the time in the system clock in seconds + elapsed since midnight. + + Dependencies: MS_FUNCS + + ------------------------------------------ + + Command: TROFF + + Description: TROFF turns of the trace facility; see TRON. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: TRON + + Description: TRON turns on the trace facility. This facility will print + each line number in square brackets as the program is + executed. This is useful in debugging programs with + line numbers. To debug an unnumbered program with + TRON, call DO NUM first, but remember to call DO UNNUM + before you save the program later. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Function: VAL( string$ ) + + Description: VAL returns the numerical value of the string$. + + Dependencies: COMMON_FUNCS + + ------------------------------------------ + + Command: VARS + + Description: VARS is a debugging command which prints a list of + all variables defined which have global scope. + + Dependencies: DEBUG + + ------------------------------------------ + + Command: WEND + + Description: WEND concludes a WHILE-WEND loop; see WHILE. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: WHILE expression + + Description: WHILE initiates a WHILE-WEND loop. The loop ends with + WEND, and execution reiterates through the loop as + long as the 'expression' is TRUE (-1). + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: WIDTH [# device-number,] number + + Description: WIDTH sets screen or device output to 'number' + columns. device-number specifies the device + or file for oputput. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + Command: WRITE [# device-number,] element [, element ].... + + Description: WRITE outputs variables to the screen or to a file + or device specified by device-number. Commas + are inserted between expressions output, and strings + are enclosed in quotation marks. + + Dependencies: COMMON_CMDS + + ------------------------------------------ + + +6. PREDEFINED VARIABLES + + BWB.EDITOR$ + BWB.FILES$ + BWB.PROMPT$ + BWB.IMPLEMENTATION$ + + The commands EDIT and FILES are pseudo-commands that launch + shell programs named in the variables BWB.EDITOR$ and BWB.FILES$, + respectively. The default values for these variables can + be changed in bwbasic.h (DEF_EDITOR and DEF_FILES), or they + can be changed on the fly by the user. An idea might be to + initialize these variables in "profile.bas" for specific + implementations; for instance, BWB.FILES$ might be defined as + "ls -l" on Unix systems or "dir" on DOS systems. + + The preset variable BWB.PROMPT$ can be used to set the prompt + string for bwBASIC. Again, it is suggested that a user- + selected promptcan be set up in a "profile.bas" to be + initialized each time bwBASIC starts. Note that special + characters can be added to the prompt string, e.g., + + BWB.PROMPT$ = "Ok"+CHR$(10) + + will give an "Ok" prompt followed by a linefeed. + + The preset variable BWB.IMPLEMENTATION$ will return "TTY" for + the bwx_tty implementation and will return "IQC" for the + IBM PC or Compatibles with QuickC (bwx_iqc) implementation. + This may be useful in determing which commands and functions + (specifically CLS, LOCATE, and INKEY$) may be available. + + +7. UNIMPLEMENTED COMMANDS AND FUNCTIONS, and AGENDA FOR DEVELOPMENT + + There are some items not implemented that have been so long + a part of standard BASICs that their absence will seem surprising. + In each case, though, their implementation would require opera- + ting-system-specific functions or terminal-specific functions + that cannot be universally provided. Some specific examples: + + CLOAD Relies on CP/M or MSDOS conventions for binary + executable files. + + CONT See RESUME below (programmer ignorance?). + + DEF USR Relies on CP/M or MSDOS conventions for binary + executable files. + + FRE() The ability to report the amount of free memory + remaining is system-specific due to varying patterns + of memory allocation and access; consequently this + ability is not present in ANSI or earlier versions + of C and this function is not available in bwBASIC. + + INPUT$() C by itself is not able to read unechoed keyboard + input, and can read keyboard input only after a + Carriage-Return has been entered. + + INP Calls to hardware ports, like machine-language + routines, are highly system-specific and cannot + be implemented in C alone. + + LLIST See LPRINT below. + + LPOS See LPRINT below. + + LPRINT and LLIST, etc., require access to a printer device, + and this varies from one system to another. Users + might try OPENing the printer device on their own + operating system (e.g., "/dev/lp" on Unix systems, + or "PRN" under DOS) and see if printing can be done + from bwBASIC in this way. + + NULL In this case, I am convinced that NULL is no longer + necessary, since very few printers now require NULLs + at the end of lines. + + OUT See INP above (calls to hardware ports). + + PEEK() PEEK and POKE enabled earlier BASICs to address + particular memory locations. Although bwBASIC + could possibly implement this command (POKE) and + this function (PEEK()), the limitation would be + highly limited by the different systems for + memory access in different systems. + + POKE see PEEK() above. + + RENUM Since unnumbered lines can be entered and + executed under bwBASIC, it would not be + possible to implement a RENUM routine. + Instead, bwBASIC uses DO NUM and DO UNNUM. + + RESUME Is this possible under C? If so, I + simply have failed to figure it out yet. + Mea culpa (but not maxima). + + USR See CALL and DEF USR above (machine language + subroutines). + + VARPTR See PEEK and POKE above. + + WAIT See INP and OUT above. + + There are other commands, functions, and implementation details + that I am working on, and which are on the agenda list for future + versions of bwBASIC. These agenda include: + + PARACT i.e., the ability to execute PARallel ACTions. This + is described in ANSI BASIC, although I have not seen it + implemented before. It will offer a rough, non- + preemptive form of multitasking within the scope + of a BASIC program. Programmers will note points at which + there are already hooks for PARACT in bwBASIC. + + XMEM PC-type computers need to be able to use extended + memory. If we could use extended memory for program + lines, variables, and function defitions, we could + write much longer programs. This would entail, + however, a fairly serious rewriting of the program + to utilize memory handles for these storage features + instead of direct memory pointers. + + Windows The addition of memory handles in addition to the + non-preemptive execution of program lines (in a + crude form, already present) will make it possible + to develop implementations for Windows and perhaps + for other graphical user interfaces. But what form + should this take? I have in mind presently a BASIC + that would run in the background, appearing only + as an icon in the GUI space, with pop-up editors + and output windows. Thus, the interpreted language + would serve a purpose something like 'cron' (a task + scheduler) under Unix systems. You may have some + reflections that would help me in this. + + Graphics Here we face fairly critical differences in different + styles and implementations of graphics, e.g., between + GWBASIC, ANSI BASIC, VisualBASIC, etc. But it's + possible that Graphics commands and functions could + be added. These would all be implementation-specific. + + The ANSI Standard for full BASIC does not specify which particular + commands or functions must be implemented, and in fact the standard + is very robust. Perhaps no implementation of BASIC would ever + include all of the items, but some ANSI commands and functions which + remain unimplemented are: + + ACCESS + ANGLE + AREA + ARITHMETIC + ARRAY + ASK + BSTR + BVAL + CEIL + CELLS + CLIP + COLLATE + CONNECT + COSH + DATUM + DEBUG + DECIMAL + DECLARE + DEGREES + DEVICE + DISCONNECT + DISPLAY + DOT + DRAW + ERASE + EVENT + EXCEPTION + GRAPH + HANDLER + IMAGE + KEY + LCASE + LINES + LOG10 + LOG2 + MAT + MIX + MULTIPOINT + OUTIN + OUTPUT + PARACT + PICTURE + PIXEL + PLOT + POINTS + RADIANS + RECEIVE + RENUMBER + REWRITE + ROTATE + ROUND + SEIZE + SEND + SHIFT + SINH + TANH + TIMEOUT + TRACE + TRANSFORM + TRUNCATE + UBOUND + UCASE + VIEWPORT + WAIT + VIEWPORT + ZONEWIDTH + + +8. THE STORY OF BYWATER BASIC + + This program was originally begun in 1982 by my grandmother, Mrs. + Verda Spell of Beaumont, TX. She was writing the program using + an ANSI C compiler on an Osborne I CP/M computer and although my + grandfather (Lockwood Spell) had bought an IBM PC with 256k of + RAM my grandmother would not use it, paraphrasing George Herbert + to the effect that "He who cannot in 64k program, cannot in 512k." + She had used Microsoft BASIC and although she had nothing against + it she said repeatedly that she didn't understand why Digital + Research didn't "sue the socks off of Microsoft" for version 1.0 + of MSDOS and so I reckon that she hoped to undercut Microsoft's + entire market and eventually build a new software empire on + the North End of Beaumont. Her programming efforts were cut + tragically short when she was thrown from a Beaumont to Port + Arthur commuter train in the summer of 1986. I found the source + code to bwBASIC on a single-density Osborne diskette in her knitting + bag and eventually managed to have it all copied over to a PC + diskette. I have revised it slightly prior to this release. You + should know, though, that I myself am an historian, not a programmer. + + +9. COMMUNICATIONS: + + email: tcamp@delphi.com + diff --git a/Junk/COPYING b/Junk/COPYING new file mode 100644 index 0000000..86cf81a --- /dev/null +++ b/Junk/COPYING @@ -0,0 +1,341 @@ + + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc. + 675 Mass Ave, Cambridge, MA 02139, USA + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Library General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) 19yy + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) 19yy name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Library General +Public License instead of this License. + diff --git a/Junk/bwb_cmd.c b/Junk/bwb_cmd.c new file mode 100644 index 0000000..be2ba2d --- /dev/null +++ b/Junk/bwb_cmd.c @@ -0,0 +1,10219 @@ +/*************************************************************** + + bwb_cmd.c Miscellaneous Commands + for Bywater BASIC Interpreter + + Copyright (c) 1993, Ted A. Campbell + Bywater Software + + email: tcamp@delphi.com + + Copyright and Permissions Information: + + All U.S. and international rights are claimed by the author, + Ted A. Campbell. + + This software is released under the terms of the GNU General + Public License (GPL), which is distributed with this software + in the file "COPYING". The GPL specifies the terms under + which users may copy and use the software in this distribution. + + A separate license is available for commercial distribution, + for information on which you should contact the author. + +***************************************************************/ + +/*---------------------------------------------------------------*/ +/* NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, */ +/* 11/1995 (eidetics@cerf.net). */ +/* */ +/* Those additionally marked with "DD" were at the suggestion of */ +/* Dale DePriest (daled@cadence.com). */ +/* */ +/* Version 3.00 by Howard Wulf, AF5NE */ +/* */ +/* Version 3.10 by Howard Wulf, AF5NE */ +/* */ +/* Version 3.20 by Howard Wulf, AF5NE */ +/* */ +/* Version 3.20A by Ken Martin Mainly corrected fprint issues */ +/* */ +/*---------------------------------------------------------------*/ + + + +#include "bwbasic.h" + +static void bwb_copy_file (char *Source, char *Target); +static LineType *bwb_delete (LineType * l); +static void bwb_display_file (char *Source); +static LineType *bwb_load (LineType * Line, char *Prompt, int IsNew); +static void bwb_new (void); +static LineType *bwb_run_filename_or_linenumber (LineType * L); +static LineType *bwb_save (LineType * Line, char *Prompt); +static LineType *bwb_system (LineType * l); +static LineType *bwb_xlist (LineType * l, FILE * file); +static LineType *bwx_run (LineType * Line, char *ProgramName); +static void CommandOptionVersion (int n, char *OutputLine); +static void CommandUniqueID (int i, char *UniqueID); +static void CommandVector (int i, char *Vector); +static VariableType *find_variable_by_type (char *name, int dimensions, + char VariableTypeCode); +static void FixUp (char *Name); +static LineType *H14_RENAME (LineType * l); +static int line_read_matrix_redim (LineType * l, VariableType * v); +static void ProcessEscapeChars (const char *Input, char *Output); +static int xl_line (FILE * file, LineType * l); + + +/* + fprintf( file, "------------------------------------------------------------\n"); + 123456789012345678901234567890123456789012345678901234567890 + fprintf( file, " SYNTAX: %s\n", IntrinsicCommandTable[n].Syntax); + sprintf( tbuf, "DESCRIPTION: %s\n", IntrinsicCommandTable[n].Description); + fprintf( file, " " ); + fprintf( file, " [%c] %s\n", X, bwb_vertable[i].Name); + 1234567890123 +*/ +#define LEFT_LENGTH 13 +#define RIGHT_LENGTH 47 +#define TOTAL_LENGTH ( LEFT_LENGTH + RIGHT_LENGTH ) + +/* +-------------------------------------------------------------------------------------------- + EDIT, RENUM, RENUMBER +-------------------------------------------------------------------------------------------- +*/ + +static LineType * +bwx_run (LineType * Line, char *ProgramName) +{ + size_t n; + char *tbuf; + + assert (Line != NULL); + assert( My != NULL ); + + if (is_empty_string (ProgramName)) + { + WARN_BAD_FILE_NAME; + return (Line); + } + if (is_empty_string (My->ProgramFilename)) + { + WARN_BAD_FILE_NAME; + return (Line); + } + n = bwb_strlen (ProgramName) + 1 + bwb_strlen (My->ProgramFilename); + if ((tbuf = (char *) calloc (n + 1 /* NulChar */ , sizeof (char))) == NULL) + { + WARN_OUT_OF_MEMORY; + return (Line); + } + bwb_strcpy (tbuf, ProgramName); + bwb_strcat (tbuf, " "); + bwb_strcat (tbuf, My->ProgramFilename); + system (tbuf); + free (tbuf); + tbuf = NULL; + + /* open edited file for read */ + bwb_NEW (Line); /* Relocated by JBV (bug found by DD) */ + if (bwb_fload (NULL) == FALSE) + { + WARN_BAD_FILE_NAME; + return (Line); + } + return (Line); +} + + + +/*************************************************************** + + FUNCTION: bwb_edit() + + DESCRIPTION: This function implements the BASIC EDIT + program by shelling out to a default editor + specified by the variable BWB.EDITOR$. + + SYNTAX: EDIT + +***************************************************************/ + +LineType * +bwb_EDIT (LineType * Line) +{ + /* + SYNTAX: EDIT + */ + + assert (Line != NULL); + assert( My != NULL ); + + return bwx_run (Line, My->OptionEditString); +} + +/*************************************************************** + + FUNCTION: bwb_renum() + + DESCRIPTION: This function implements the BASIC RENUM + command by shelling out to a default + renumbering program called "renum". + Added by JBV 10/95 + + SYNTAX: RENUM + +***************************************************************/ + +LineType * +bwb_RENUM (LineType * Line) +{ + /* + SYNTAX: RENUM + */ + + assert (Line != NULL); + assert( My != NULL ); + + return bwx_run (Line, My->OptionRenumString); +} + +LineType * +bwb_RENUMBER (LineType * Line) +{ + /* + SYNTAX: RENUMBER + */ + + assert (Line != NULL); + assert( My != NULL ); + + return bwx_run (Line, My->OptionRenumString); +} + +/* +-------------------------------------------------------------------------------------------- + REM +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_REM (LineType * L) +{ + /* + SYNTAX: REM comment + */ + /* + This line holds BASIC comments. + */ + + assert (L != NULL); + + line_skip_eol (L); + return L; +} + +/* +-------------------------------------------------------------------------------------------- + IMAGE +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_IMAGE (LineType * L) +{ + /* + SYNTAX: IMAGE print-using-format + */ + + assert (L != NULL); + + line_skip_eol (L); + return L; +} + +/* +-------------------------------------------------------------------------------------------- + LET +-------------------------------------------------------------------------------------------- +*/ + + +LineType * +bwb_LET (LineType * L) +{ + /* + SYNTAX: LET variable [,...] = expression + */ + VariableType *v; + VariantType x; + VariantType *X; + + assert (L != NULL); + X = &x; + CLEAR_VARIANT (X); + /* read the list of variables */ + do + { + if ((v = line_read_scalar (L)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + } + while (line_skip_seperator (L)); + + /* skip the equal sign */ + if (line_skip_EqualChar (L)) + { + /* OK */ + } + else if (line_skip_word (L, "EQ")) + { + /* OK */ + } + else if (line_skip_word (L, ".EQ.")) + { + /* OK */ + } + else + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + + /* evaluate the expression */ + if (line_read_expression (L, X)) /* bwb_LET */ + { + /* save the value */ + if (line_is_eol (L) == FALSE) + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + L->position = L->Startpos; + + /* for each variable, assign the value */ + do + { + /* read a variable */ + if ((v = line_read_scalar (L)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + assert (v != NULL); + assert (X != NULL); + if (var_set (v, X) == FALSE) + { + WARN_TYPE_MISMATCH; + goto EXIT; + } + } + while (line_skip_seperator (L)); + + /* we are now at the equals sign */ + line_skip_eol (L); + } + else + { + WARN_SYNTAX_ERROR; + } +EXIT: + RELEASE_VARIANT (X); + return L; +} + + +LineType * +bwb_CONST (LineType * L) +{ + /* + SYNTAX: CONST variable [,...] = expression + */ + VariableType *v; + VariantType x; + VariantType *X; + + assert (L != NULL); + + X = &x; + CLEAR_VARIANT (X); + /* read the list of variables */ + do + { + if ((v = line_read_scalar (L)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + } + while (line_skip_seperator (L)); + /* we are now at the equals sign */ + + /* skip the equal sign */ + if (line_skip_EqualChar (L)) + { + /* OK */ + } + else if (line_skip_word (L, "EQ")) + { + /* OK */ + } + else if (line_skip_word (L, ".EQ.")) + { + /* OK */ + } + else + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + + /* evaluate the expression */ + if (line_read_expression (L, X)) /* bwb_LET */ + { + /* save the value */ + if (line_is_eol (L) == FALSE) + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + + /* for each variable, assign the value */ + L->position = L->Startpos; + do + { + /* read a variable */ + if ((v = line_read_scalar (L)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + assert (v != NULL); + assert (X != NULL); + if (var_set (v, X) == FALSE) + { + WARN_TYPE_MISMATCH; + goto EXIT; + } + } + while (line_skip_seperator (L)); + /* we are now at the equals sign */ + + /* for each variable, mark as constant */ + L->position = L->Startpos; + do + { + /* read a variable */ + if ((v = line_read_scalar (L)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + assert (v != NULL); + v->VariableFlags |= VARIABLE_CONSTANT; + } + while (line_skip_seperator (L)); + /* we are now at the equals sign */ + + line_skip_eol (L); + } + else + { + WARN_SYNTAX_ERROR; + } +EXIT: + RELEASE_VARIANT (X); + return L; +} + +LineType * +bwb_DEC (LineType * L) +{ + /* + SYNTAX: DEC variable [,...] + */ + VariableType *v; + VariantType x; + VariantType *X; + + assert (L != NULL); + + X = &x; + CLEAR_VARIANT (X); + /* read the list of variables */ + do + { + if ((v = line_read_scalar (L)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + if (v->VariableTypeCode == StringTypeCode) + { + WARN_TYPE_MISMATCH; + goto EXIT; + } + } + while (line_skip_seperator (L)); + /* we are now at the end of the line */ + + if (line_is_eol (L) == FALSE) + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + L->position = L->Startpos; + + /* for each variable, assign the value */ + do + { + /* read a variable */ + if ((v = line_read_scalar (L)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + assert (v != NULL); + assert (X != NULL); + if (var_get (v, X) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + X->Number--; + if (var_set (v, X) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + } + while (line_skip_seperator (L)); + /* we are now at the end of the line */ +EXIT: + RELEASE_VARIANT (X); + return L; +} + +LineType * +bwb_INC (LineType * L) +{ + /* + SYNTAX: INC variable [,...] + */ + VariableType *v; + VariantType x; + VariantType *X; + + assert (L != NULL); + + X = &x; + CLEAR_VARIANT (X); + /* read the list of variables */ + do + { + if ((v = line_read_scalar (L)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + if (v->VariableTypeCode == StringTypeCode) + { + WARN_TYPE_MISMATCH; + goto EXIT; + } + } + while (line_skip_seperator (L)); + /* we are now at the end of the line */ + + if (line_is_eol (L) == FALSE) + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + L->position = L->Startpos; + + /* for each variable, assign the value */ + do + { + /* read a variable */ + if ((v = line_read_scalar (L)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + assert (v != NULL); + assert (X != NULL); + if (var_get (v, X) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + X->Number++; + if (var_set (v, X) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + } + while (line_skip_seperator (L)); + /* we are now at the end of the line */ +EXIT: + RELEASE_VARIANT (X); + return L; +} + + + +/* +-------------------------------------------------------------------------------------------- + GO +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_GO (LineType * L) +{ + + assert (L != NULL); + WARN_SYNTAX_ERROR; + return L; +} + +LineType * +bwb_THEN (LineType * L) +{ + + assert (L != NULL); + WARN_SYNTAX_ERROR; + return L; +} + +LineType * +bwb_TO (LineType * L) +{ + + assert (L != NULL); + WARN_SYNTAX_ERROR; + return L; +} + +LineType * +bwb_STEP (LineType * L) +{ + + assert (L != NULL); + WARN_SYNTAX_ERROR; + return L; +} + +LineType * +bwb_OF (LineType * L) +{ + + assert (L != NULL); + WARN_SYNTAX_ERROR; + return L; +} + +LineType * +bwb_AS (LineType * L) +{ + + assert (L != NULL); + WARN_SYNTAX_ERROR; + return L; +} + + +/* +-------------------------------------------------------------------------------------------- + AUTO +-------------------------------------------------------------------------------------------- +*/ + + +LineType * +bwb_BUILD (LineType * L) +{ + /* + SYNTAX: BUILD + SYNTAX: BUILD start + SYNTAX: BUILD start, increment + */ + + assert (L != NULL); + return bwb_AUTO (L); +} + +LineType * +bwb_AUTO (LineType * L) +{ + /* + SYNTAX: AUTO + SYNTAX: AUTO start + SYNTAX: AUTO start , increment + */ + + assert (L != NULL); + assert( My != NULL ); + + My->AutomaticLineNumber = 0; + My->AutomaticLineIncrement = 0; + + if (line_is_eol (L)) + { + /* AUTO */ + My->AutomaticLineNumber = 10; + My->AutomaticLineIncrement = 10; + return L; + } + if (line_read_line_number (L, &My->AutomaticLineNumber)) + { + /* AUTO ### ... */ + if (My->AutomaticLineNumber < MINLIN || My->AutomaticLineNumber > MAXLIN) + { + WARN_UNDEFINED_LINE; + return L; + } + if (line_is_eol (L)) + { + /* AUTO start */ + My->AutomaticLineIncrement = 10; + return L; + } + else if (line_skip_seperator (L)) + { + /* AUTO ### , ... */ + if (line_read_line_number (L, &My->AutomaticLineIncrement)) + { + /* AUTO start , increment */ + if (My->AutomaticLineIncrement < MINLIN + || My->AutomaticLineIncrement > MAXLIN) + { + WARN_UNDEFINED_LINE; + return L; + } + return L; + } + } + } + My->AutomaticLineNumber = 0; + My->AutomaticLineIncrement = 0; + WARN_SYNTAX_ERROR; + return L; +} + +/* +-------------------------------------------------------------------------------------------- + BREAK +-------------------------------------------------------------------------------------------- +*/ + + +LineType * +bwb_BREAK (LineType * l) +{ + /* + SYNTAX: BREAK + SYNTAX: BREAK line [,...] + SYNTAX: BREAK line - line + */ + + assert (l != NULL); + assert( My != NULL ); + assert( My->StartMarker != NULL ); + assert( My->EndMarker != NULL ); + + if (line_is_eol (l)) + { + /* BREAK */ + /* remove all line breaks */ + LineType *x; + for (x = My->StartMarker->next; x != My->EndMarker; x = x->next) + { + x->LineFlags &= ~LINE_BREAK; + } + return (l); + } + else + { + do + { + int head; + int tail; + + if (line_read_line_sequence (l, &head, &tail)) + { + /* BREAK 's' - 'e' */ + LineType *x; + if (head < MINLIN || head > MAXLIN) + { + WARN_UNDEFINED_LINE; + return (l); + } + if (tail < MINLIN || tail > MAXLIN) + { + WARN_UNDEFINED_LINE; + return (l); + } + if (head > tail) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* valid range */ + /* now go through and list appropriate lines */ + for (x = My->StartMarker->next; x != My->EndMarker; x = x->next) + { + if (head <= x->number && x->number <= tail) + { + if (x->LineFlags & LINE_NUMBERED) + { + x->LineFlags |= LINE_BREAK; + } + } + } + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + } + while (line_skip_seperator (l)); + } + return (l); +} + + +/* +-------------------------------------------------------------------------------------------- + DSP +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_DSP (LineType * l) +{ + /* + SYNTAX: DSP + SYNTAX: DSP variablename [,...] + */ + VariableType *v; + + assert (l != NULL); + assert( My != NULL ); + + + if (line_is_eol (l)) + { + /* DSP */ + /* remove all variable displays */ + for (v = My->VariableHead; v != NULL; v = v->next) + { + v->VariableFlags &= ~VARIABLE_DISPLAY; /* bwb_DSP() */ + } + return (l); + } + /* DSP variablename [,...] */ + do + { + char varname[NameLengthMax + 1]; + + if (line_read_varname (l, varname)) + { + /* mark the variable */ + for (v = My->VariableHead; v != NULL; v = v->next) + { + if (bwb_stricmp (v->name, varname) == 0) + { + v->VariableFlags |= VARIABLE_DISPLAY; /* bwb_DSP() */ + } + } + } + } + while (line_skip_seperator (l)); + return (l); +} + + +/* +-------------------------------------------------------------------------------------------- + GOTO +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_GO_TO (LineType * l) +{ + + assert (l != NULL); + return bwb_GOTO (l); +} + +LineType * +bwb_GOTO (LineType * l) +{ + /* + SYNTAX: GOTO line ' standard GOTO + SYNTAX: GOTO expression ' calculated GOTO + SYNTAX: GOTO expression OF line,... ' indexed GOTO, same as ON expression GOTO line,... + SYNTAX: GOTO line [,...] ON expression ' indexed GOTO, same as ON expression GOTO line,... + */ + int Value; + int LineNumber; + LineType *x; + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + Value = 0; + LineNumber = 0; + if (l->LineFlags & (LINE_USER)) + { + WARN_ILLEGAL_DIRECT; + return (l); + } + + if (line_is_eol (l)) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_integer_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if (line_is_eol (l)) + { + /* GOTO linenumber */ + /* 'Value' is the line number */ + LineNumber = Value; + } + else if (line_skip_word (l, "OF")) + { + /* GOTO expression OF line, ... */ + /* 'Value' is an index into a list of line numbers */ + if (line_read_index_item (l, Value, &LineNumber)) + { + /* found 'LineNumber' */ + } + else if (My->CurrentVersion->OptionFlags & (OPTION_BUGS_ON) ) /* GOTO X OF ... */ + { + /* silently fall-thru to the following line */ + line_skip_eol (l); + return (l); + } + else + { + /* ERROR */ + WARN_UNDEFINED_LINE; + return (l); + } + } + else if (My->CurrentVersion->OptionVersionValue & (S70 | I70 | I73)) + { + /* GOTO line [,...] ON expression */ + while (line_skip_seperator (l)) + { + if (line_read_integer_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + } + if (line_skip_word (l, "ON") == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_integer_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* 'Value' is an index into a list of line numbers */ + l->position = l->Startpos; + if (line_read_index_item (l, Value, &LineNumber)) + { + /* found 'LineNumber' */ + } + else + { + /* silently fall-thru to the following line */ + line_skip_eol (l); + return (l); + } + line_skip_eol (l); + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + + if (LineNumber < MINLIN || LineNumber > MAXLIN) + { + WARN_UNDEFINED_LINE; + return (l); + } + /* valid range */ + x = NULL; +#if THE_PRICE_IS_RIGHT + if (l->OtherLine != NULL) + { + /* look in the cache */ + if (l->OtherLine->number == LineNumber) + { + x = l->OtherLine; /* found in cache */ + } + } +#endif /* THE_PRICE_IS_RIGHT */ + if (x == NULL) + { + x = find_line_number (LineNumber); /* not found in the cache */ + } + if (x != NULL) + { + /* FOUND */ + line_skip_eol (l); + x->position = 0; +#if THE_PRICE_IS_RIGHT + l->OtherLine = x; /* save in cache */ +#endif /* THE_PRICE_IS_RIGHT */ + return x; + } + /* NOT FOUND */ + WARN_UNDEFINED_LINE; + return (l); +} + + +/* +-------------------------------------------------------------------------------------------- + GOSUB +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_GO_SUB (LineType * l) +{ + + assert (l != NULL); + return bwb_GOSUB (l); +} + +LineType * +bwb_GOSUB (LineType * l) +{ + /* + SYNTAX: GOSUB line ' standard GOSUB + SYNTAX: GOSUB expression ' calculated GOSUB + SYNTAX: GOSUB expression OF line,... ' indexed GOSUB, same as ON expression GOSUB line,... + SYNTAX: GOSUB line [,...] ON expression ' indexed GOSUB, same as ON expression GOSUB line,... + */ + int Value; + int LineNumber; + LineType *x; + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + Value = 0; + LineNumber = 0; + x = NULL; + if (l->LineFlags & (LINE_USER)) + { + WARN_ILLEGAL_DIRECT; + return (l); + } + + if (line_is_eol (l)) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_integer_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if (line_is_eol (l)) + { + /* GOSUB linenumber */ + /* 'Value' is the line number */ + LineNumber = Value; + } + else if (line_skip_word (l, "OF")) + { + /* GOSUB linenumber [,...] OF expression */ + /* 'Value' is an index into a list of line numbers */ + if (line_read_index_item (l, Value, &LineNumber)) + { + /* found 'LineNumber' */ + } + else if (My->CurrentVersion->OptionFlags & (OPTION_BUGS_ON) ) /* GOSUB X OF ... */ + { + /* silently fall-thru to the following line */ + line_skip_eol (l); + return (l); + } + else + { + /* ERROR */ + WARN_UNDEFINED_LINE; + return (l); + } + } + else if (My->CurrentVersion->OptionVersionValue & (S70 | I70 | I73)) + { + /* GOSUB line [,...] ON expression */ + while (line_skip_seperator (l)) + { + if (line_read_integer_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + } + if (line_skip_word (l, "ON") == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_integer_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* 'Value' is an index into a list of line numbers */ + l->position = l->Startpos; + if (line_read_index_item (l, Value, &LineNumber)) + { + /* found 'LineNumber' */ + } + else + { + /* silently fall-thru to the following line */ + line_skip_eol (l); + return (l); + } + line_skip_eol (l); + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + + if (LineNumber < MINLIN || LineNumber > MAXLIN) + { + WARN_UNDEFINED_LINE; + return (l); + } + /* valid range */ + x = NULL; +#if THE_PRICE_IS_RIGHT + if (l->OtherLine != NULL) + { + /* look in the cache */ + if (l->OtherLine->number == LineNumber) + { + x = l->OtherLine; /* found in cache */ + } + } +#endif /* THE_PRICE_IS_RIGHT */ + if (x == NULL) + { + x = find_line_number (LineNumber); /* not found in the cache */ + } + if (x != NULL) + { + /* FOUND */ + line_skip_eol (l); + /* save current stack level */ + My->StackHead->line = l; + /* increment exec stack */ + if (bwb_incexec ()) + { + /* set the new position to x and return x */ + x->position = 0; + My->StackHead->line = x; + My->StackHead->ExecCode = EXEC_GOSUB; +#if THE_PRICE_IS_RIGHT + l->OtherLine = x; /* save in cache */ +#endif /* THE_PRICE_IS_RIGHT */ + return x; + } + else + { + /* ERROR */ + WARN_OUT_OF_MEMORY; + return My->EndMarker; + } + } + /* NOT FOUND */ + WARN_UNDEFINED_LINE; + return (l); +} + + + +/* +-------------------------------------------------------------------------------------------- + RETURN +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_RETURN (LineType * l) +{ + /* + SYNTAX: RETURN + */ + + assert (l != NULL); + assert (My != NULL); + assert (My->CurrentVersion != NULL); + assert (My->StackHead != NULL); + + if (My->CurrentVersion->OptionVersionValue & (S70 | I70 | I73)) + { + /* RETURN [comment] */ + line_skip_eol (l); + } + + if (My->CurrentVersion->OptionVersionValue & (C77)) + { + /* CBASIC-II: RETURN exits the first FUNCTION or GOSUB */ + + while (My->StackHead->ExecCode != EXEC_GOSUB + && My->StackHead->ExecCode != EXEC_FUNCTION) + { + bwb_decexec (); + if (My->StackHead == NULL) + { + WARN_RETURN_WITHOUT_GOSUB; + return (l); + } + if (My->StackHead->ExecCode == EXEC_NORM) /* End of the line? */ + { + WARN_RETURN_WITHOUT_GOSUB; + return (l); + } + } + } + else + { + /* RETURN exits the first GOSUB */ + + while (My->StackHead->ExecCode != EXEC_GOSUB) + { + bwb_decexec (); + if (My->StackHead == NULL) + { + WARN_RETURN_WITHOUT_GOSUB; + return (l); + } + if (My->StackHead->ExecCode == EXEC_NORM) /* End of the line? */ + { + WARN_RETURN_WITHOUT_GOSUB; + return (l); + } + } + } + + + /* decrement the EXEC stack counter */ + + bwb_decexec (); + assert (My->StackHead != NULL); + return My->StackHead->line; +} + +/* +-------------------------------------------------------------------------------------------- + POP +-------------------------------------------------------------------------------------------- +*/ + + +LineType * +bwb_POP (LineType * l) +{ + /* + SYNTAX: POP + */ + StackType *StackItem; + + assert (l != NULL); + assert (My != NULL); + assert (My->CurrentVersion != NULL); + assert (My->StackHead != NULL); + + StackItem = My->StackHead; + while (StackItem->ExecCode != EXEC_GOSUB) + { + StackItem = StackItem->next; + if (StackItem == NULL) + { + WARN_RETURN_WITHOUT_GOSUB; + return (l); + } + if (StackItem->ExecCode == EXEC_NORM) + { + /* End of the line */ + WARN_RETURN_WITHOUT_GOSUB; + return (l); + } + } + /* hide the GOSUB */ + StackItem->ExecCode = EXEC_POPPED; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + ON +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_ON (LineType * l) +{ + /* + SYNTAX: ON expression GOTO line,... ' expression evaluates to an index + SYNTAX: ON expression GOSUB line,... ' expression evaluates to an index + */ + int Value; + int command; + int LineNumber; + LineType *x; + + assert (l != NULL); + assert (My != NULL); + assert (My->CurrentVersion != NULL); + + Value = 0; + command = 0; + LineNumber = 0; + x = NULL; + if (l->LineFlags & (LINE_USER)) + { + WARN_ILLEGAL_DIRECT; + return (l); + } + + if (line_is_eol (l)) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_integer_expression (l, &Value) == FALSE) + { + WARN_UNDEFINED_LINE; + return (l); + } + if (line_skip_word (l, "GO")) + { + if (line_skip_word (l, "TO")) + { + command = C_GOTO; + } + else if (line_skip_word (l, "SUB")) + { + command = C_GOSUB; + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + } + else if (line_skip_word (l, "GOTO")) + { + command = C_GOTO; + } + else if (line_skip_word (l, "GOSUB")) + { + command = C_GOSUB; + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + + /* 'Value' is an index into a list of line numbers */ + if (line_read_index_item (l, Value, &LineNumber)) + { + /* found 'LineNumber' */ + } + else if (My->CurrentVersion->OptionFlags & (OPTION_BUGS_ON) ) /* ON X GOTO|GOSUB ... */ + { + /* silently fall-thru to the following line */ + line_skip_eol (l); + return (l); + } + else + { + /* ERROR */ + WARN_UNDEFINED_LINE; + return (l); + } + + if (LineNumber < MINLIN || LineNumber > MAXLIN) + { + WARN_UNDEFINED_LINE; + return (l); + } + /* valid range */ + x = NULL; +#if THE_PRICE_IS_RIGHT + if (l->OtherLine != NULL) + { + /* look in the cache */ + if (l->OtherLine->number == LineNumber) + { + x = l->OtherLine; /* found in cache */ + } + } +#endif /* THE_PRICE_IS_RIGHT */ + if (x == NULL) + { + x = find_line_number (LineNumber); /* not found in the cache */ + } + if (x != NULL) + { + /* FOUND */ + if (command == C_GOTO) + { + /* ON ... GOTO ... */ + line_skip_eol (l); + x->position = 0; +#if THE_PRICE_IS_RIGHT + l->OtherLine = x; /* save in cache */ +#endif /* THE_PRICE_IS_RIGHT */ + return x; + } + else if (command == C_GOSUB) + { + /* ON ... GOSUB ... */ + line_skip_eol (l); + /* save current stack level */ + My->StackHead->line = l; + /* increment exec stack */ + if (bwb_incexec ()) + { + /* set the new position to x and return x */ + x->position = 0; + My->StackHead->line = x; + My->StackHead->ExecCode = EXEC_GOSUB; +#if THE_PRICE_IS_RIGHT + l->OtherLine = x; /* save in cache */ +#endif /* THE_PRICE_IS_RIGHT */ + return x; + } + else + { + /* ERROR */ + WARN_OUT_OF_MEMORY; + return My->EndMarker; + } + } + else + { + /* ERROR */ + WARN_SYNTAX_ERROR; + return (l); + } + } + /* NOT FOUND */ + WARN_UNDEFINED_LINE; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + PAUSE +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_PAUSE (LineType * l) +{ + /* + SYNTAX: PAUSE + */ + char *pstring; + char *tbuf; + int tlen; + + assert (l != NULL); + assert (My != NULL); + assert (My->CurrentVersion != NULL); + assert (My->ConsoleOutput != NULL); + assert (My->ConsoleInput != NULL); + + pstring = My->ConsoleOutput; + tbuf = My->ConsoleInput; + tlen = MAX_LINE_LENGTH; + if (My->CurrentVersion->OptionVersionValue & (S70 | I70 | I73)) + { + /* PAUSE [comment] */ + line_skip_eol (l); + } + sprintf (pstring, "PAUSE AT %d\n", l->number); + bwx_input (pstring, FALSE, tbuf, tlen); + return (l); +} + + +/* +-------------------------------------------------------------------------------------------- + STOP +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_STOP (LineType * l) +{ + /* + SYNTAX: STOP + */ + + assert (l != NULL); + assert (My != NULL); + assert (My->CurrentVersion != NULL); + + if (My->CurrentVersion->OptionVersionValue & (S70 | I70 | I73)) + { + /* STOP [comment] */ + line_skip_eol (l); + } + My->ContinueLine = l->next; + bwx_STOP (TRUE); + return bwb_END (l); +} + + +/* +-------------------------------------------------------------------------------------------- + END +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_END (LineType * l) +{ + /* + SYNTAX: END + */ + + assert (l != NULL); + assert (My != NULL); + assert (My->CurrentVersion != NULL); + + if (My->CurrentVersion->OptionVersionValue & (S70 | I70 | I73)) + { + /* END [comment] */ + line_skip_eol (l); + } + My->ContinueLine = l->next; + bwx_STOP (FALSE); + return My->EndMarker; +} + +/* +-------------------------------------------------------------------------------------------- + RUN +-------------------------------------------------------------------------------------------- +*/ + +static LineType * +bwb_run_filename_or_linenumber (LineType * L) +{ + LineType *current = NULL; + VariantType x; + VariantType *X; + + assert (L != NULL); + assert (My != NULL); + assert (My->StartMarker != NULL); + + X = &x; + CLEAR_VARIANT (X); + if (line_read_expression (L, X) == FALSE) /* bwb_run_filename_or_linenumber */ + { + WARN_SYNTAX_ERROR; + return L; + } + if (X->VariantTypeCode == StringTypeCode) + { + /* RUN "filename" */ + /* RUN A$ */ + if (is_empty_string (X->Buffer)) + { + WARN_BAD_FILE_NAME; + return L; + } + /* open the file and execute it */ + bwb_new (); /* clear memory */ + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + My->ProgramFilename = bwb_strdup (X->Buffer); + if (bwb_fload (NULL) == FALSE) + { + WARN_BAD_FILE_NAME; + return L; + } + /* + ** + ** FORCE SCAN + ** + */ + if (bwb_scan () == FALSE) + { + WARN_CANT_CONTINUE; + return L; + } + current = My->StartMarker->next; + } + else + { + /* RUN 100 */ + /* RUN N */ + /* execute the line */ + int LineNumber; + + + LineNumber = (int) bwb_rint (X->Number); + /* + ** + ** FORCE SCAN + ** + */ + if (bwb_scan () == FALSE) + { + WARN_CANT_CONTINUE; + goto EXIT; + } + current = find_line_number (LineNumber); /* RUN 100 */ + if (current == NULL) + { + WARN_CANT_CONTINUE; + return L; + } + } +EXIT: + RELEASE_VARIANT (X); + return current; +} + +LineType * +bwb_RUNNH (LineType * L) +{ + + assert (L != NULL); + return bwb_RUN (L); +} + +LineType * +bwb_RUN (LineType * L) +{ + /* + SYNTAX: RUN + SYNTAX: RUN filename$ + SYNTAX: RUN linenumber + */ + LineType *current; + + assert (L != NULL); + assert (My != NULL); + assert (My->EndMarker != NULL); + assert (My->DefaultVariableType != NULL); + + /* clear the STACK */ + bwb_clrexec (); + if (bwb_incexec ()) + { + /* OK */ + } + else + { + /* ERROR */ + WARN_OUT_OF_MEMORY; + return My->EndMarker; + } + + if (line_is_eol (L)) + { + /* RUN */ + + var_CLEAR (); + + /* if( TRUE ) */ + { + int n; + for (n = 0; n < 26; n++) + { + My->DefaultVariableType[n] = DoubleTypeCode; + } + } + /* + ** + ** FORCE SCAN + ** + */ + if (bwb_scan () == FALSE) + { + WARN_CANT_CONTINUE; + return My->EndMarker; + } + current = My->StartMarker->next; + } + else + { + /* RUN 100 : RUN filename$ */ + current = bwb_run_filename_or_linenumber (L); + if (current == NULL) + { + WARN_UNDEFINED_LINE; + return My->EndMarker; + } + } + current->position = 0; + + assert (My->StackHead != NULL); + My->StackHead->line = current; + My->StackHead->ExecCode = EXEC_NORM; + + /* RUN */ + WARN_CLEAR; /* bwb_RUN */ + My->ContinueLine = NULL; + SetOnError (0); + + /* if( TRUE ) */ + { + time_t t; + struct tm *lt; + + time (&t); + lt = localtime (&t); + My->StartTimeInteger = lt->tm_hour; + My->StartTimeInteger *= 60; + My->StartTimeInteger += lt->tm_min; + My->StartTimeInteger *= 60; + My->StartTimeInteger += lt->tm_sec; + /* number of seconds since midnight */ + } + + return current; +} + +/* +-------------------------------------------------------------------------------------------- + CONT +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_CONTINUE (LineType * l) +{ + /* + SYNTAX: CONTINUE + */ + + assert (l != NULL); + return bwb_CONT (l); +} + +LineType * +bwb_CONT (LineType * l) +{ + /* + SYNTAX: CONT + */ + LineType *current; + + assert (l != NULL); + assert (My != NULL); + assert (My->EndMarker != NULL); + assert (My->StartMarker != NULL); + + current = NULL; + /* see if there is an element */ + if (line_is_eol (l)) + { + /* CONT */ + current = My->ContinueLine; + } + else + { + /* CONT 100 */ + int LineNumber; + + LineNumber = 0; + if (line_read_line_number (l, &LineNumber)) + { + current = find_line_number (LineNumber); /* CONT 100 */ + } + } + + + if (current == NULL || current == My->EndMarker) + { + /* same as RUN */ + current = My->StartMarker->next; + } + /* + ** + ** FORCE SCAN + ** + */ + if (bwb_scan () == FALSE) + { + WARN_CANT_CONTINUE; + return (l); + } + current->position = 0; + bwb_clrexec (); + if (bwb_incexec ()) + { + /* OK */ + My->StackHead->line = current; + My->StackHead->ExecCode = EXEC_NORM; + } + else + { + /* ERROR */ + WARN_OUT_OF_MEMORY; + return My->EndMarker; + } + + + /* CONT */ + My->ContinueLine = NULL; + return current; +} + + +/* +-------------------------------------------------------------------------------------------- + NEW +-------------------------------------------------------------------------------------------- +*/ + +void +bwb_xnew (LineType * l) +{ + LineType *current; + LineType *previous; + int wait; + + assert (l != NULL); + assert (My != NULL); + assert (My->EndMarker != NULL); + + previous = NULL; /* JBV */ + wait = TRUE; + for (current = l->next; current != My->EndMarker; current = current->next) + { + assert (current != NULL); + if (wait == FALSE) + { + free (previous); + previous = NULL; + } + wait = FALSE; + previous = current; + } + l->next = My->EndMarker; +} + +static void +bwb_new () +{ + assert (My != NULL); + assert (My->StartMarker != NULL); + assert (My->DefaultVariableType != NULL); + + + /* clear program in memory */ + bwb_xnew (My->StartMarker); + + /* clear all variables */ + var_CLEAR (); + /* if( TRUE ) */ + { + int n; + for (n = 0; n < 26; n++) + { + My->DefaultVariableType[n] = DoubleTypeCode; + } + } + + /* NEW */ + WARN_CLEAR; /* bwb_new */ + My->ContinueLine = NULL; + SetOnError (0); +} + +LineType * +bwb_NEW (LineType * l) +{ + /* + SYNTAX: NEW + */ + + assert (l != NULL); + assert (My != NULL); + assert (My->CurrentVersion != NULL); + + bwb_new (); + if (My->CurrentVersion->OptionVersionValue & (D64 | G65 | G67 | G74)) + { + if (line_is_eol (l)) + { + /* NEW */ + char *tbuf; + int tlen; + + tbuf = My->ConsoleInput; + tlen = MAX_LINE_LENGTH; + /* prompt for the program name */ + bwx_input ("NEW PROBLEM NAME:", FALSE, tbuf, tlen); + if (is_empty_string (tbuf)) + { + WARN_BAD_FILE_NAME; + return l; + } + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + My->ProgramFilename = bwb_strdup (tbuf); + } + else + { + /* NEW filename$ */ + /* the parameter is the program name */ + + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (is_empty_string (Value)) + { + WARN_BAD_FILE_NAME; + return l; + } + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + My->ProgramFilename = Value; + } + } + else + { + /* ignore any parameters */ + line_skip_eol (l); + } + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + SCRATCH +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_SCRATCH (LineType * l) +{ + /* + SYNTAX: SCRATCH -- same as NEW + SYNTAX: SCRATCH # filenumber -- close file and re-open for output + */ + + assert (l != NULL); + + if (line_is_eol (l)) + { + /* SCRATCH */ + bwb_new (); + return (l); + } + if (line_skip_FilenumChar (l)) + { + /* SCRATCH # X */ + int FileNumber; + + if (line_read_integer_expression (l, &FileNumber) == FALSE) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (FileNumber < 0) + { + /* SCRATCH # -1 is silently ignored */ + return (l); + } + if (FileNumber == 0) + { + /* SCRATCH # 0 is silently ignored */ + return (l); + } + My->CurrentFile = find_file_by_number (FileNumber); + if (My->CurrentFile == NULL) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (My->CurrentFile->DevMode != DEVMODE_CLOSED) + { + My->CurrentFile->DevMode = DEVMODE_CLOSED; + } + if (My->CurrentFile->cfp != NULL) + { + bwb_fclose (My->CurrentFile->cfp); + My->CurrentFile->cfp = NULL; + } + if (My->CurrentFile->buffer != NULL) + { + free (My->CurrentFile->buffer); + My->CurrentFile->buffer = NULL; + } + My->CurrentFile->width = 0; + My->CurrentFile->col = 1; + My->CurrentFile->row = 1; + My->CurrentFile->delimit = ','; + if (is_empty_string (My->CurrentFile->FileName)) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (bwb_strcmp (My->CurrentFile->FileName, "*") != 0) + { + if ((My->CurrentFile->cfp = + fopen (My->CurrentFile->FileName, "w")) == NULL) + { + WARN_BAD_FILE_NAME; + return (l); + } + My->CurrentFile->DevMode = DEVMODE_OUTPUT; + } + /* OK */ + return (l); + } + WARN_SYNTAX_ERROR; + return (l); +} + +/* +============================================================================================ + SYSTEM and so on +============================================================================================ +*/ +static LineType * +bwb_system (LineType * l) +{ + /* + SYNTAX: SYSTEM + */ + assert (l != NULL); + assert (My != NULL); + assert (My->SYSOUT != NULL); + assert (My->SYSOUT->cfp != NULL); + + fprintf (My->SYSOUT->cfp, "\n"); + fflush (My->SYSOUT->cfp); + bwx_terminate (); + return (l); /* never reached */ +} + +/* +-------------------------------------------------------------------------------------------- + BYE +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_BYE (LineType * l) +{ + /* + SYNTAX: BYE + */ + + assert (l != NULL); + return bwb_system (l); +} + +/* +-------------------------------------------------------------------------------------------- + DOS +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_DOS (LineType * l) +{ + /* + SYNTAX: DOS + */ + + assert (l != NULL); + return bwb_system (l); +} + +/* +-------------------------------------------------------------------------------------------- + FLEX +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_FLEX (LineType * l) +{ + /* + SYNTAX: FLEX + */ + + assert (l != NULL); + return bwb_system (l); +} + +/* +-------------------------------------------------------------------------------------------- + GOODBYE +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_GOODBYE (LineType * l) +{ + /* + SYNTAX: GOODBYE + */ + + assert (l != NULL); + return bwb_system (l); +} + +/* +-------------------------------------------------------------------------------------------- + MON +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_MON (LineType * l) +{ + /* + SYNTAX: MON + */ + + assert (l != NULL); + return bwb_system (l); +} + +/* +-------------------------------------------------------------------------------------------- + QUIT +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_QUIT (LineType * l) +{ + /* + SYNTAX: QUIT + */ + + assert (l != NULL); + return bwb_system (l); +} + +/* +-------------------------------------------------------------------------------------------- + SYSTEM +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_SYSTEM (LineType * l) +{ + /* + SYNTAX: SYSTEM + */ + + assert (l != NULL); + return bwb_system (l); +} + + +/* +============================================================================================ + LOAD and so on +============================================================================================ +*/ + +static LineType * +bwb_load (LineType * Line, char *Prompt, int IsNew) +{ + /* + ** + ** load a BASIC program from a file + ** + */ + /* + SYNTAX: ... [filename$] + */ + + assert (Line != NULL); + assert (Prompt != NULL); + assert (My != NULL); + assert (My->CurrentVersion != NULL); + + if (IsNew) + { + /* TRUE == LOAD */ + bwb_new (); + } + else + { + /* FALSE == MERGE */ + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + } + if (line_is_eol (Line)) + { + /* default is the last filename used by LOAD or SAVE */ + /* if( My->CurrentVersion->OptionVersionValue & (D64 | G65 | G67 | G74) ) */ + if (is_empty_string (My->ProgramFilename)) + { + /* prompt for the program name */ + char *tbuf; + int tlen; + + tbuf = My->ConsoleInput; + tlen = MAX_LINE_LENGTH; + bwx_input (Prompt, FALSE, tbuf, tlen); + if (is_empty_string (tbuf)) + { + WARN_BAD_FILE_NAME; + return (Line); + } + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + My->ProgramFilename = bwb_strdup (tbuf); + } + fprintf (My->SYSOUT->cfp, "Loading %s\n", My->ProgramFilename); + ResetConsoleColumn (); + } + else + { + /* Get an argument for filename */ + char *Value; + + Value = NULL; + if (line_read_string_expression (Line, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (Line); + } + if (is_empty_string (Value)) + { + WARN_BAD_FILE_NAME; + return (Line); + } + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + My->ProgramFilename = Value; + } + if (bwb_fload (NULL) == FALSE) + { + WARN_BAD_FILE_NAME; + return (Line); + } + if (IsNew) + { + /* TRUE == LOAD */ + } + else + { + /* FALSE == MERGE */ + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + } + /* + ** + ** FORCE SCAN + ** + */ + if (bwb_scan () == FALSE) + { + WARN_CANT_CONTINUE; + } + return (Line); +} + +/* +-------------------------------------------------------------------------------------------- + CLOAD +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_CLOAD (LineType * Line) +{ + /* + SYNTAX: CLOAD [filename$] + */ + + assert (Line != NULL); + return bwb_load (Line, "CLOAD FILE NAME:", TRUE); +} + +/* +-------------------------------------------------------------------------------------------- + LOAD +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_LOAD (LineType * Line) +{ + /* + SYNTAX: LOAD [filename$] + */ + + assert (Line != NULL); + return bwb_load (Line, "LOAD FILE NAME:", TRUE); +} + +/* +-------------------------------------------------------------------------------------------- + MERGE +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_MERGE (LineType * l) +{ + /* + SYNTAX: MERGE [filename$] + */ + + assert (l != NULL); + return bwb_load (l, "MERGE FILE NAME:", FALSE); +} + +/* +-------------------------------------------------------------------------------------------- + OLD +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_OLD (LineType * Line) +{ + /* + SYNTAX: OLD [filename$] + */ + + assert (Line != NULL); + return bwb_load (Line, "OLD PROBLEM NAME:", TRUE); +} + +/* +-------------------------------------------------------------------------------------------- + TLOAD +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_TLOAD (LineType * Line) +{ + /* + SYNTAX: TLOAD [filename$] + */ + + assert (Line != NULL); + return bwb_load (Line, "TLOAD FILE NAME:", TRUE); +} + + +/* +-------------------------------------------------------------------------------------------- + RENAME +-------------------------------------------------------------------------------------------- +*/ +static LineType * +H14_RENAME (LineType * l) +{ + /* + SYNTAX: RENAME from$ TO to$ + */ + char *From; + char *To; + + assert (l != NULL); + + From = NULL; + To = NULL; + if (line_read_string_expression (l, &From) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (is_empty_string (From)) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (line_skip_word (l, "TO") == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_string_expression (l, &To) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (is_empty_string (To)) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (rename (From, To)) + { + WARN_BAD_FILE_NAME; + return (l); + } + return (l); +} + +LineType * +bwb_RENAME (LineType * l) +{ + /* + SYNTAX: RENAME filename$ + */ + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + assert( My->ConsoleInput != NULL ); + + if (My->CurrentVersion->OptionVersionValue & (H14)) + { + /* RENAME == change an exisiting file's name */ + return H14_RENAME (l); + } + /* RENAME == change the BASIC program's name for a later SAVE */ + if (line_is_eol (l)) + { + /* RENAME */ + if (My->CurrentVersion->OptionVersionValue & (D64 | G65 | G67 | G74)) + { + /* prompt for the program name */ + char *tbuf; + int tlen; + + tbuf = My->ConsoleInput; + tlen = MAX_LINE_LENGTH; + bwx_input ("RENAME PROBLEM NAME:", FALSE, tbuf, tlen); + if (is_empty_string (tbuf)) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + My->ProgramFilename = bwb_strdup (tbuf); + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + } + else + { + /* RENAME value$ */ + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (is_empty_string (Value)) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + My->ProgramFilename = Value; + } + return (l); +} + + +/* +-------------------------------------------------------------------------------------------- + MAT +-------------------------------------------------------------------------------------------- +*/ + +extern void +Determinant (VariableType * v) +{ + /* http://easy-learn-c-language.blogspot.com/search/label/Numerical%20Methods */ + /* Numerical Methods: Determinant of nxn matrix using C */ + + DoubleType **matrix; + DoubleType ratio; + + int i; + int j; + int k; + int n; + + assert (v != NULL); + assert( My != NULL ); + + + My->LastDeterminant = 0; /* default */ + + n = v->UBOUND[0] - v->LBOUND[0] + 1; + + if ((matrix = (DoubleType **) calloc (n, sizeof (DoubleType *))) == NULL) + { + goto EXIT; + } + assert( matrix != NULL ); + for (i = 0; i < n; i++) + { + if ((matrix[i] = (DoubleType *) calloc (n, sizeof (DoubleType))) == NULL) + { + goto EXIT; + } + assert( matrix[i] != NULL ); + } + + for (i = 0; i < n; i++) + { + for (j = 0; j < n; j++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + v->VINDEX[0] = v->LBOUND[0] + i; + v->VINDEX[1] = v->LBOUND[1] + j; + if (var_get (v, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + if (variant.VariantTypeCode == StringTypeCode) + { + WARN_TYPE_MISMATCH; + goto EXIT; + } + matrix[i][j] = variant.Number; + } + } + + /* Conversion of matrix to upper triangular */ + + for (i = 0; i < n; i++) + { + for (j = 0; j < n; j++) + { + if (j > i) + { + if (matrix[i][i] == 0) + { + /* - Evaluation of an expression results in division + * by zero (nonfatal, the recommended recovery + * procedure is to supply machine infinity with the + * sign of the numerator and continue) + */ + if (WARN_DIVISION_BY_ZERO) + { + /* ERROR */ + goto EXIT; + } + /* CONTINUE */ + if (matrix[j][i] < 0) + { + ratio = MINDBL; + } + else + { + ratio = MAXDBL; + } + } + else + { + ratio = matrix[j][i] / matrix[i][i]; + } + for (k = 0; k < n; k++) + { + matrix[j][k] -= ratio * matrix[i][k]; + } + } + } + } + + + My->LastDeterminant = 1; /* storage for determinant */ + + for (i = 0; i < n; i++) + { + DoubleType Value; + + Value = matrix[i][i]; + My->LastDeterminant *= Value; + } + +EXIT: + if( matrix != NULL ) + { + for (i = 0; i < n; i++) + { + if( matrix[i] != NULL ) + { + free (matrix[i]); + /* matrix[i] = NULL; */ + } + } + free (matrix); + /* matrix = NULL; */ + } +} + +int +InvertMatrix (VariableType * vOut, VariableType * vIn) +{ + /* http://easy-learn-c-language.blogspot.com/search/label/Numerical%20Methods */ + /* Numerical Methods: Inverse of nxn matrix using C */ + + int Result; + DoubleType **matrix; + DoubleType ratio; + + int i; + int j; + int k; + int n; + + assert (vOut != NULL); + assert (vIn != NULL); + + Result = FALSE; + n = vIn->UBOUND[0] - vIn->LBOUND[0] + 1; + + if ((matrix = (DoubleType **) calloc (n, sizeof (DoubleType *))) == NULL) + { + goto EXIT; + } + assert( matrix != NULL ); + + for (i = 0; i < n; i++) + { + if ((matrix[i] = + (DoubleType *) calloc (n + n, sizeof (DoubleType))) == NULL) + { + goto EXIT; + } + assert( matrix[i] != NULL ); + } + + for (i = 0; i < n; i++) + { + for (j = 0; j < n; j++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + vIn->VINDEX[0] = vIn->LBOUND[0] + i; + vIn->VINDEX[1] = vIn->LBOUND[1] + j; + if (var_get (vIn, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + if (variant.VariantTypeCode == StringTypeCode) + { + WARN_TYPE_MISMATCH; + goto EXIT; + } + matrix[i][j] = variant.Number; + } + } + + for (i = 0; i < n; i++) + { + for (j = n; j < 2 * n; j++) + { + if (i == (j - n)) + { + matrix[i][j] = 1.0; + } + else + { + matrix[i][j] = 0.0; + } + } + } + + for (i = 0; i < n; i++) + { + for (j = 0; j < n; j++) + { + if (i != j) + { + if (matrix[i][i] == 0) + { + /* - Evaluation of an expression results in division + * by zero (nonfatal, the recommended recovery + * procedure is to supply machine infinity with the + * sign of the numerator and continue) + */ + if (WARN_DIVISION_BY_ZERO) + { + /* ERROR */ + goto EXIT; + } + /* CONTINUE */ + if (matrix[j][i] < 0) + { + ratio = MINDBL; + } + else + { + ratio = MAXDBL; + } + } + else + { + ratio = matrix[j][i] / matrix[i][i]; + } + for (k = 0; k < 2 * n; k++) + { + matrix[j][k] -= ratio * matrix[i][k]; + } + } + } + } + + for (i = 0; i < n; i++) + { + DoubleType a; + + a = matrix[i][i]; + if (a == 0) + { + /* - Evaluation of an expression results in division + * by zero (nonfatal, the recommended recovery + * procedure is to supply machine infinity with the + * sign of the numerator and continue) + */ + if (WARN_DIVISION_BY_ZERO) + { + /* ERROR */ + goto EXIT; + } + /* CONTINUE */ + for (j = 0; j < 2 * n; j++) + { + if (matrix[i][j] < 0) + { + matrix[i][j] = MINDBL; + } + else + { + matrix[i][j] = MAXDBL; + } + } + } + else + { + for (j = 0; j < 2 * n; j++) + { + matrix[i][j] /= a; + } + } + } + + for (i = 0; i < n; i++) + { + for (j = 0; j < n; j++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + vOut->VINDEX[0] = vOut->LBOUND[0] + i; + vOut->VINDEX[1] = vOut->LBOUND[0] + j; + variant.VariantTypeCode = vOut->VariableTypeCode; + variant.Number = matrix[i][j + n]; + if (var_set (vOut, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + goto EXIT; + } + } + } + /* + ** + ** Everything is OK + ** + */ + Result = TRUE; + + +EXIT: + if (matrix != NULL) + { + for (i = 0; i < n; i++) + { + if (matrix[i] != NULL) + { + free (matrix[i]); + /* matrix[i] = NULL; */ + } + } + free (matrix); + /* matrix = NULL; */ + } + return Result; +} + +static int +line_read_matrix_redim (LineType * l, VariableType * v) +{ + /* get OPTIONAL parameters if the variable is dimensioned */ + + assert (l != NULL); + assert (v != NULL); + + if (line_peek_LparenChar (l)) + { + /* get requested size, which is <= original array size */ + size_t array_units; + int n; + int dimensions; + int LBOUND[MAX_DIMS]; + int UBOUND[MAX_DIMS]; + + if (line_read_array_redim (l, &dimensions, LBOUND, UBOUND) == FALSE) + { + WARN_SYNTAX_ERROR; + return FALSE; + } + /* update array dimensions */ + array_units = 1; + for (n = 0; n < dimensions; n++) + { + if (UBOUND[n] < LBOUND[n]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return FALSE; + } + array_units *= UBOUND[n] - LBOUND[n] + 1; + } + if (array_units > v->array_units) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return FALSE; + } + v->dimensions = dimensions; + for (n = 0; n < dimensions; n++) + { + v->LBOUND[n] = LBOUND[n]; + v->UBOUND[n] = UBOUND[n]; + } + } + return TRUE; +} + +LineType * +bwb_MAT (LineType * l) +{ + /* + SYNTAX: MAT A = CON + SYNTAX: MAT A = IDN + SYNTAX: MAT A = ZER + SYNTAX: MAT A = INV B + SYNTAX: MAT A = TRN B + SYNTAX: MAT A = (k) * B + SYNTAX: MAT A = B + SYNTAX: MAT A = B + C + SYNTAX: MAT A = B - C + SYNTAX: MAT A = B * C + */ + VariableType *v_A; + char varname_A[NameLengthMax + 1]; + + assert (l != NULL); + + /* just a placeholder for now. this will grow. */ + + if (line_read_varname (l, varname_A) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + v_A = mat_find (varname_A); + if (v_A == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* variable MUST be numeric */ + if (VAR_IS_STRING (v_A)) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_matrix_redim (l, v_A) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_skip_EqualChar (l) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* MAT A = ... */ + if (line_skip_word (l, "CON")) + { + /* MAT A = CON */ + /* MAT A = CON(I) */ + /* MAT A = CON(I,J) */ + /* MAT A = CON(I,J,K) */ + /* OK */ + int i; + int j; + int k; + + if (line_read_matrix_redim (l, v_A) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + /* both arrays are of the same size */ + switch (v_A->dimensions) + { + case 1: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + variant.VariantTypeCode = v_A->VariableTypeCode; + variant.Number = 1; + v_A->VINDEX[0] = i; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + break; + case 2: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + variant.VariantTypeCode = v_A->VariableTypeCode; + variant.Number = 1; + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + break; + case 3: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + for (k = v_A->LBOUND[2]; k <= v_A->UBOUND[2]; k++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + variant.VariantTypeCode = v_A->VariableTypeCode; + variant.Number = 1; + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + v_A->VINDEX[2] = k; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + } + break; + default: + WARN_SYNTAX_ERROR; + return (l); + } + } + else if (line_skip_word (l, "IDN")) + { + /* MAT A = IDN */ + /* MAT A = IDN(I,J) */ + /* OK */ + int i; + int j; + + if (line_read_matrix_redim (l, v_A) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if (v_A->dimensions != 2) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (v_A->LBOUND[0] != v_A->LBOUND[1]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (v_A->UBOUND[0] != v_A->UBOUND[1]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + /* square matrix */ + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + variant.VariantTypeCode = v_A->VariableTypeCode; + if (i == j) + { + variant.Number = 1; + } + else + { + variant.Number = 0; + } + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + } + else if (line_skip_word (l, "ZER")) + { + /* MAT A = ZER */ + /* MAT A = ZER(I) */ + /* MAT A = ZER(I,J) */ + /* MAT A = ZER(I,J,K) */ + /* OK */ + int i; + int j; + int k; + + if (line_read_matrix_redim (l, v_A) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* both arrays are of the same size */ + switch (v_A->dimensions) + { + case 1: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + variant.VariantTypeCode = v_A->VariableTypeCode; + variant.Number = 0; + v_A->VINDEX[0] = i; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + break; + case 2: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + variant.VariantTypeCode = v_A->VariableTypeCode; + variant.Number = 0; + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + break; + case 3: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + for (k = v_A->LBOUND[2]; k <= v_A->UBOUND[2]; k++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + variant.VariantTypeCode = v_A->VariableTypeCode; + variant.Number = 0; + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + v_A->VINDEX[2] = k; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + } + break; + default: + WARN_SYNTAX_ERROR; + return (l); + } + } + else if (line_skip_word (l, "INV")) + { + /* MAT A = INV B */ + /* MAT A = INV( B ) */ + /* OK */ + VariableType *v_B; + char varname_B[NameLengthMax + 1]; + + if (v_A->dimensions != 2) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (v_A->LBOUND[0] != v_A->LBOUND[1] || v_A->UBOUND[0] != v_A->UBOUND[1]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (line_skip_LparenChar (l)) + { + /* optional */ + } + if (line_read_varname (l, varname_B) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if ((v_B = mat_find (varname_B)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* variable MUST be numeric */ + if (VAR_IS_STRING (v_B)) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_matrix_redim (l, v_B) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_skip_RparenChar (l)) + { + /* optional */ + } + if (v_B->dimensions != 2) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (v_B->LBOUND[0] != v_B->LBOUND[1] || v_B->UBOUND[0] != v_B->UBOUND[1]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (v_A->LBOUND[0] != v_B->LBOUND[0] || v_A->UBOUND[0] != v_B->UBOUND[0]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + /* square matrix */ + Determinant (v_B); + if (My->LastDeterminant == 0) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + if (InvertMatrix (v_A, v_B) == FALSE) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + } + else if (line_skip_word (l, "TRN")) + { + /* MAT A = TRN B */ + /* MAT A = TRN( B ) */ + /* OK */ + int i; + int j; + VariableType *v_B; + char varname_B[NameLengthMax + 1]; + + if (v_A->dimensions != 2) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_skip_LparenChar (l)) + { + /* optional */ + } + if (line_read_varname (l, varname_B) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if ((v_B = mat_find (varname_B)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* variable MUST be numeric */ + if (VAR_IS_STRING (v_B)) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_matrix_redim (l, v_B) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_skip_RparenChar (l)) + { + /* optional */ + } + if (v_B->dimensions != 2) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* MxN */ + if (v_A->LBOUND[0] != v_B->LBOUND[1] || v_A->UBOUND[0] != v_B->UBOUND[1]) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (v_A->LBOUND[1] != v_B->LBOUND[0] || v_A->UBOUND[1] != v_B->UBOUND[0]) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* transpose matrix */ + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + v_B->VINDEX[1] = i; + v_B->VINDEX[0] = j; + if (var_get (v_B, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + } + else if (line_peek_LparenChar (l)) + { + /* MAT A = (k) * B */ + DoubleType Multiplier; + VariableType *v_B; + int i; + int j; + int k; + char *E; + int p; + char varname_B[NameLengthMax + 1]; + char *tbuf; + + tbuf = My->ConsoleInput; + bwb_strcpy (tbuf, &(l->buffer[l->position])); + E = bwb_strrchr (tbuf, '*'); + if (E == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + *E = NulChar; + p = 0; + if (buff_read_numeric_expression (tbuf, &p, &Multiplier) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + l->position += p; + if (line_skip_StarChar (l) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_varname (l, varname_B) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if ((v_B = mat_find (varname_B)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* variable MUST be numeric */ + if (VAR_IS_STRING (v_B)) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_matrix_redim (l, v_B) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (v_A->dimensions != v_B->dimensions) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* both arrays are of the same size */ + switch (v_A->dimensions) + { + case 1: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + v_B->VINDEX[0] = i; + if (var_get (v_B, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + variant.Number *= Multiplier; + + v_A->VINDEX[0] = i; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + break; + case 2: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + v_B->VINDEX[0] = i; + v_B->VINDEX[1] = j; + if (var_get (v_B, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + variant.Number *= Multiplier; + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + break; + case 3: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + for (k = v_A->LBOUND[2]; k <= v_A->UBOUND[2]; k++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + v_B->VINDEX[0] = i; + v_B->VINDEX[1] = j; + v_B->VINDEX[2] = k; + if (var_get (v_B, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + variant.Number *= Multiplier; + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + v_A->VINDEX[2] = k; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + } + break; + default: + WARN_SYNTAX_ERROR; + return (l); + } + } + else + { + /* MAT A = B */ + /* MAT A = B + C */ + /* MAT A = B - C */ + /* MAT A = B * C */ + VariableType *v_B; + char varname_B[NameLengthMax + 1]; + + if (line_read_varname (l, varname_B) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if ((v_B = mat_find (varname_B)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* variable MUST be numeric */ + if (VAR_IS_STRING (v_B)) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_matrix_redim (l, v_B) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_is_eol (l)) + { + /* MAT A = B */ + /* OK */ + int i; + int j; + int k; + + if (v_A->dimensions != v_B->dimensions) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* both arrays are of the same size */ + switch (v_A->dimensions) + { + case 1: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + v_B->VINDEX[0] = i; + if (var_get (v_B, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_A->VINDEX[0] = i; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + break; + case 2: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + v_B->VINDEX[0] = i; + v_B->VINDEX[1] = j; + if (var_get (v_B, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + break; + case 3: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + for (k = v_A->LBOUND[2]; k <= v_A->UBOUND[2]; k++) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + v_B->VINDEX[0] = i; + v_B->VINDEX[1] = j; + v_B->VINDEX[2] = k; + if (var_get (v_B, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + v_A->VINDEX[2] = k; + if (var_set (v_A, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + } + break; + default: + WARN_SYNTAX_ERROR; + return (l); + } + } + else if (line_skip_PlusChar (l)) + { + /* MAT A = B + C */ + /* OK */ + int i; + int j; + int k; + VariableType *v_C; + char varname_C[NameLengthMax + 1]; + + if (v_A->dimensions != v_B->dimensions) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* both arrays are of the same size */ + + if (line_read_varname (l, varname_C) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if ((v_C = mat_find (varname_C)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* variable MUST be numeric */ + if (VAR_IS_STRING (v_C)) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_matrix_redim (l, v_C) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (v_B->dimensions != v_C->dimensions) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* both arrays are of the same size */ + switch (v_A->dimensions) + { + case 1: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + VariantType variant_L; + VariantType variant_R; + CLEAR_VARIANT (&variant_L); + CLEAR_VARIANT (&variant_R); + + v_B->VINDEX[0] = i; + if (var_get (v_B, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_C->VINDEX[0] = i; + if (var_get (v_C, &variant_R) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + variant_L.Number += variant_R.Number; + + v_A->VINDEX[0] = i; + if (var_set (v_A, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + break; + case 2: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + VariantType variant_L; + VariantType variant_R; + CLEAR_VARIANT (&variant_L); + CLEAR_VARIANT (&variant_R); + + v_B->VINDEX[0] = i; + v_B->VINDEX[1] = j; + if (var_get (v_B, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_C->VINDEX[0] = i; + v_C->VINDEX[1] = j; + if (var_get (v_C, &variant_R) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + variant_L.Number += variant_R.Number; + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_set (v_A, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + break; + case 3: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + for (k = v_A->LBOUND[2]; k <= v_A->UBOUND[2]; k++) + { + VariantType variant_L; + VariantType variant_R; + CLEAR_VARIANT (&variant_L); + CLEAR_VARIANT (&variant_R); + + v_B->VINDEX[0] = i; + v_B->VINDEX[1] = j; + v_B->VINDEX[2] = k; + if (var_get (v_B, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_C->VINDEX[0] = i; + v_C->VINDEX[1] = j; + v_C->VINDEX[2] = k; + if (var_get (v_C, &variant_R) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + variant_L.Number += variant_R.Number; + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + v_A->VINDEX[2] = k; + if (var_set (v_A, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + } + break; + default: + WARN_SYNTAX_ERROR; + return (l); + } + } + else if (line_skip_MinusChar (l)) + { + /* MAT A = B - C */ + /* OK */ + int i; + int j; + int k; + VariableType *v_C; + char varname_C[NameLengthMax + 1]; + + if (v_A->dimensions != v_B->dimensions) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* both arrays are of the same size */ + + if (line_read_varname (l, varname_C) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if ((v_C = mat_find (varname_C)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* variable MUST be numeric */ + if (VAR_IS_STRING (v_C)) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_matrix_redim (l, v_C) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (v_B->dimensions != v_C->dimensions) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* both arrays are of the same dimension */ + switch (v_A->dimensions) + { + case 1: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + VariantType variant_L; + VariantType variant_R; + CLEAR_VARIANT (&variant_L); + CLEAR_VARIANT (&variant_R); + + v_B->VINDEX[0] = i; + if (var_get (v_B, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_C->VINDEX[0] = i; + if (var_get (v_C, &variant_R) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + variant_L.Number -= variant_R.Number; + + v_A->VINDEX[0] = i; + if (var_set (v_A, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + break; + case 2: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + VariantType variant_L; + VariantType variant_R; + CLEAR_VARIANT (&variant_L); + CLEAR_VARIANT (&variant_R); + + v_B->VINDEX[0] = i; + v_B->VINDEX[1] = j; + if (var_get (v_B, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_C->VINDEX[0] = i; + v_C->VINDEX[1] = j; + if (var_get (v_C, &variant_R) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + variant_L.Number -= variant_R.Number; + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_set (v_A, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + break; + case 3: + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + for (k = v_A->LBOUND[2]; k <= v_A->UBOUND[2]; k++) + { + VariantType variant_L; + VariantType variant_R; + CLEAR_VARIANT (&variant_L); + CLEAR_VARIANT (&variant_R); + + v_B->VINDEX[0] = i; + v_B->VINDEX[1] = j; + v_B->VINDEX[2] = k; + if (var_get (v_B, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_C->VINDEX[0] = i; + v_C->VINDEX[1] = j; + v_C->VINDEX[2] = k; + if (var_get (v_C, &variant_R) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + variant_L.Number -= variant_R.Number; + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + v_A->VINDEX[2] = k; + if (var_set (v_A, &variant_L) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + } + break; + default: + WARN_SYNTAX_ERROR; + return (l); + } + } + else if (line_skip_StarChar (l)) + { + /* MAT A = B * C */ + int i; + int j; + int k; + VariableType *v_C; + char varname_C[NameLengthMax + 1]; + + + if (v_A->dimensions != 2) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (v_B->dimensions != 2) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (line_read_varname (l, varname_C) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if ((v_C = mat_find (varname_C)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* variable MUST be numeric */ + if (VAR_IS_STRING (v_C)) + { + WARN_TYPE_MISMATCH; + return (l); + } + if (line_read_matrix_redim (l, v_C) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (v_C->dimensions != 2) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (v_A->LBOUND[0] != v_B->LBOUND[0]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (v_A->UBOUND[0] != v_B->UBOUND[0]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (v_A->LBOUND[1] != v_C->LBOUND[1]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (v_A->UBOUND[1] != v_C->UBOUND[1]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (v_B->LBOUND[1] != v_C->LBOUND[0]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (v_B->UBOUND[1] != v_C->UBOUND[0]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + for (i = v_A->LBOUND[0]; i <= v_A->UBOUND[0]; i++) + { + for (j = v_A->LBOUND[1]; j <= v_A->UBOUND[1]; j++) + { + VariantType variant_A; + CLEAR_VARIANT (&variant_A); + + variant_A.VariantTypeCode = v_A->VariableTypeCode; + variant_A.Number = 0; + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_set (v_A, &variant_A) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + for (k = v_C->LBOUND[0]; k <= v_C->UBOUND[0]; k++) + { + VariantType variant_B; + VariantType variant_C; + CLEAR_VARIANT (&variant_B); + CLEAR_VARIANT (&variant_C); + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_get (v_A, &variant_A) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_B->VINDEX[0] = i; + v_B->VINDEX[1] = k; + if (var_get (v_B, &variant_B) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + v_C->VINDEX[0] = k; + v_C->VINDEX[1] = j; + if (var_get (v_C, &variant_C) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + variant_A.Number += variant_B.Number * variant_C.Number; + + v_A->VINDEX[0] = i; + v_A->VINDEX[1] = j; + if (var_set (v_A, &variant_A) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + } + } + } + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + } + return (l); +} + + + +/* +-------------------------------------------------------------------------------------------- + STORE +-------------------------------------------------------------------------------------------- +*/ + + +LineType * +bwb_STORE (LineType * l) +{ + /* + SYNTAX: STORE NumericArrayName + */ + + assert (l != NULL); + return bwb_CSAVE8 (l); +} + + +/* +-------------------------------------------------------------------------------------------- + CSAVE* +-------------------------------------------------------------------------------------------- +*/ + +#define CSAVE_VERSION_1 0x20150218L + +LineType * +bwb_CSAVE8 (LineType * l) +{ + /* + SYNTAX: CSAVE* NumericArrayName + */ + VariableType *v = NULL; + FILE *f; + unsigned long n; + size_t t; + char varname[NameLengthMax + 1]; + + assert (l != NULL); + + if (line_read_varname (l, varname) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + v = mat_find (varname); + if (v == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* variable MUST be numeric */ + if (VAR_IS_STRING (v)) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* variable MUST be an array */ + if (v->dimensions == 0) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_matrix_redim (l, v) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* variable storage is a mess, we bypass that tradition here. */ + t = v->array_units; + if (t <= 1) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* open file */ + f = fopen (v->name, "w"); + if (f == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* write version number */ + n = CSAVE_VERSION_1; + fwrite (&n, sizeof (long), 1, f); + /* write total number of elements */ + fwrite (&t, sizeof (long), 1, f); + /* write data */ + fwrite (v->Value.Number, sizeof (DoubleType), t, f); + /* OK */ + bwb_fclose (f); + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + RECALL +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_RECALL (LineType * l) +{ + /* + SYNTAX: RECALL NumericArrayName + */ + + assert (l != NULL); + return bwb_CLOAD8 (l); +} + +/* +-------------------------------------------------------------------------------------------- + CLOAD* +-------------------------------------------------------------------------------------------- +*/ + + +LineType * +bwb_CLOAD8 (LineType * l) +{ + /* + SYNTAX: CLOAD* NumericArrayName + */ + VariableType *v = NULL; + FILE *f; + unsigned long n; + size_t t; + char varname[NameLengthMax + 1]; + + assert (l != NULL); + + if (line_read_varname (l, varname) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + v = mat_find (varname); + if (v == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + /* variable MUST be numeric */ + if (VAR_IS_STRING (v)) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* variable MUST be an array */ + if (v->dimensions == 0) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_matrix_redim (l, v) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* variable storage is a mess, we bypass that tradition here. */ + t = v->array_units; + if (t <= 1) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* open file */ + f = fopen (v->name, "r"); + if (f == NULL) + { + WARN_BAD_FILE_NAME; + return (l); + } + /* read version number */ + n = 0; + fread (&n, sizeof (long), 1, f); + if (n != CSAVE_VERSION_1) + { + bwb_fclose (f); + WARN_BAD_FILE_NAME; + return (l); + } + /* read total number of elements */ + n = 0; + fread (&n, sizeof (long), 1, f); + if (n != t) + { + bwb_fclose (f); + WARN_BAD_FILE_NAME; + return (l); + } + /* read data */ + fread (v->Value.Number, sizeof (DoubleType), t, f); + /* OK */ + bwb_fclose (f); + return (l); +} + + + + +/* +============================================================================================ + SAVE and so on +============================================================================================ +*/ + +static LineType * +bwb_save (LineType * Line, char *Prompt) +{ + /* + SYNTAX: SAVE [filename$] + */ + FILE *outfile; + + assert (Line != NULL); + assert (Prompt != NULL); + assert( My != NULL ); + assert( My->ConsoleInput != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + + /* Get an argument for filename */ + if (line_is_eol (Line)) + { + /* default is the last filename used by LOAD or SAVE */ + if (is_empty_string (My->ProgramFilename) && Prompt != NULL) + { + /* prompt for the program name */ + char *tbuf; + int tlen; + + tbuf = My->ConsoleInput; + tlen = MAX_LINE_LENGTH; + bwx_input (Prompt, FALSE, tbuf, tlen); + if (is_empty_string (tbuf)) + { + WARN_BAD_FILE_NAME; + return (Line); + } + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + My->ProgramFilename = bwb_strdup (tbuf); + } + assert( My->ProgramFilename != NULL ); + fprintf (My->SYSOUT->cfp, "Saving %s\n", My->ProgramFilename); + ResetConsoleColumn (); + } + else + { + char *Value; + + Value = NULL; + if (line_read_string_expression (Line, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (Line); + } + if (is_empty_string (Value)) + { + WARN_BAD_FILE_NAME; + return (Line); + } + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + } + My->ProgramFilename = Value; + } + assert( My->ProgramFilename != NULL ); + if ((outfile = fopen (My->ProgramFilename, "w")) == NULL) + { + WARN_BAD_FILE_NAME; + return (Line); + } + bwb_xlist (Line, outfile); + bwb_fclose (outfile); + return (Line); +} + +/* +-------------------------------------------------------------------------------------------- + CSAVE +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_CSAVE (LineType * Line) +{ + /* + SYNTAX: CSAVE [filename$] + */ + + assert (Line != NULL); + return bwb_save (Line, "CSAVE FILE NAME:"); +} + +/* +-------------------------------------------------------------------------------------------- + REPLACE +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_REPLACE (LineType * Line) +{ + /* + SYNTAX: REPLACE [filename$] + */ + + assert (Line != NULL); + return bwb_save (Line, "REPLACE FILE NAME:"); +} + +/* +-------------------------------------------------------------------------------------------- + SAVE +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_SAVE (LineType * l) +{ + /* + SYNTAX: SAVE [filename$] + */ + + assert (l != NULL); + return bwb_save (l, "SAVE FILE NAME:"); +} + +/* +-------------------------------------------------------------------------------------------- + TSAVE +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_TSAVE (LineType * Line) +{ + /* + SYNTAX: TSAVE [filename$] + */ + + assert (Line != NULL); + return bwb_save (Line, "TSAVE FILE NAME:"); +} + + +/* +============================================================================================ + LIST and so on +============================================================================================ +*/ +static int +xl_line (FILE * file, LineType * l) +{ + char LineExecuted; + char *C; /* start of comment text */ + char *buffer; /* 0...99999 */ + + assert (file != NULL); + assert (l != NULL); + assert( My != NULL ); + assert( My->NumLenBuffer != NULL ); + assert( My->CurrentVersion != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + assert( My->SYSPRN != NULL ); + assert( My->SYSPRN->cfp != NULL ); + + /* + ** The only difference between LIST, LLIST and SAVE is: + ** LIST and LLIST display an '*' + ** when a line has been executed + ** and OPTION COVERAGE ON is enabled. + */ + + buffer = My->NumLenBuffer; + LineExecuted = ' '; + if (My->CurrentVersion->OptionFlags & (OPTION_COVERAGE_ON)) + { + if (l->LineFlags & LINE_EXECUTED) + { + if (file == My->SYSOUT->cfp || file == My->SYSPRN->cfp) + { + /* LIST */ + /* LLIST */ + LineExecuted = '*'; + } + else + { + /* SAVE */ + /* EDIT implies SAVE */ + } + } + } + + C = l->buffer; + if (l->LineFlags & LINE_NUMBERED) + { + /* explicitly numbered */ + sprintf (buffer, "%*d", LineNumberDigits, l->number); + /* ##### xxx */ + } + else + { + /* implicitly numbered */ + if (My->LastLineNumber == l->number) + { + /* multi-statement line */ + if (l->cmdnum == C_REM + && IS_CHAR (l->buffer[0], My->CurrentVersion->OptionCommentChar)) + { + /* trailing comment */ + sprintf (buffer, "%*s%c", LineNumberDigits - 1, "", + My->CurrentVersion->OptionCommentChar); + C++; /* skip comment char */ + while (*C == ' ') + { + /* skip spaces */ + C++; + } + /* ____' xxx */ + } + else if (My->CurrentVersion->OptionStatementChar) + { + /* all other commands, add a colon */ + sprintf (buffer, "%*s%c", LineNumberDigits - 1, "", + My->CurrentVersion->OptionStatementChar); + /* ____: xxx */ + } + else + { + /* + The user is trying to list a multi-line statement + in a dialect that does NOT support multi-line statements. + This could occur when LOADing in one dialect and then SAVEing as another dialect, such as: + OPTION VERSION BASIC-80 + LOAD "TEST1.BAS" + 100 REM TEST + 110 PRINT:PRINT:PRINT + OPTION VERSION MARK-I + EDIT + 100 REM TEST + 110 PRINT + PRINT + PRINT + The only thing we can reasonably do is put spaces for the line number, + since the user will have to edit the results manually anyways. + */ + sprintf (buffer, "%*s", LineNumberDigits, ""); + /* _____ xxx */ + } + } + else + { + /* single-statement line */ + sprintf (buffer, "%*s", LineNumberDigits, ""); + /* _____ xxx */ + } + } + + fprintf (file, "%s", buffer); + fprintf (file, "%c", LineExecuted); + + /* if( TRUE ) */ + { + /* %INCLUDE */ + int i; + for (i = 0; i < l->IncludeLevel; i++) + { + fputc (' ', file); + } + } + if (My->OptionIndentInteger > 0) + { + int i; + + for (i = 0; i < l->Indention; i++) + { + int j; + for (j = 0; j < My->OptionIndentInteger; j++) + { + fputc (' ', file); + } + } + } + fprintf (file, "%s\n", C); + + My->LastLineNumber = l->number; + + return TRUE; +} + +static LineType * +bwb_xlist (LineType * l, FILE * file) +{ + + assert (l != NULL); + assert (file != NULL); + assert( My != NULL ); + assert( My->StartMarker != NULL ); + assert( My->EndMarker != NULL ); + + /* + ** + ** FORCE SCAN + ** + */ + if (bwb_scan () == FALSE) + { + /* + ** + ** we are used by bwb_SAVE and bwb_EDIT + ** + WARN_CANT_CONTINUE; + return (l); + */ + } + + if (line_is_eol (l)) + { + /* LIST */ + LineType *x; + /* now go through and list appropriate lines */ + My->LastLineNumber = -1; + for (x = My->StartMarker->next; x != My->EndMarker; x = x->next) + { + xl_line (file, x); + } + fprintf (file, "\n"); + } + else + { + do + { + int head; + int tail; + + if (line_read_line_sequence (l, &head, &tail)) + { + /* LIST 's' - 'e' */ + LineType *x; + if (head < MINLIN || head > MAXLIN) + { + WARN_UNDEFINED_LINE; + return (l); + } + if (tail < MINLIN || tail > MAXLIN) + { + WARN_UNDEFINED_LINE; + return (l); + } + if (head > tail) + { + WARN_UNDEFINED_LINE; + return (l); + } + /* valid range */ + /* now go through and list appropriate lines */ + My->LastLineNumber = -1; + for (x = My->StartMarker->next; x != My->EndMarker; x = x->next) + { + if (head <= x->number && x->number <= tail) + { + xl_line (file, x); + } + } + fprintf (file, "\n"); + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + } + while (line_skip_seperator (l)); + } + if (file == My->SYSOUT->cfp) + { + ResetConsoleColumn (); + } + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + LIST +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_LIST (LineType * l) +{ + /* + SYNTAX: LIST + SYNTAX: LIST line [,...] + SYNTAX: LIST line - line + */ + + assert (l != NULL); + + return bwb_xlist (l, My->SYSOUT->cfp); +} + +/* +-------------------------------------------------------------------------------------------- + LISTNH +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_LISTNH (LineType * l) +{ + /* + SYNTAX: LISTNH + SYNTAX: LISTNH line [,...] + SYNTAX: LISTNH line - line + */ + + assert (l != NULL); + + return bwb_xlist (l, My->SYSOUT->cfp); +} + +/* +-------------------------------------------------------------------------------------------- + LLIST +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_LLIST (LineType * l) +{ + /* + SYNTAX: LLIST + SYNTAX: LLIST line [,...] + SYNTAX: LLIST line - line + */ + + assert (l != NULL); + + return bwb_xlist (l, My->SYSPRN->cfp); +} + + + +/* +============================================================================================ + DELETE and so on +============================================================================================ +*/ + +static LineType * +bwb_delete (LineType * l) +{ + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + assert( My->StartMarker != NULL ); + assert( My->EndMarker != NULL ); + + if (line_is_eol (l)) + { + /* DELETE */ + WARN_SYNTAX_ERROR; + return (l); + } + else if (My->CurrentVersion->OptionVersionValue & (C77)) + { + /* + SYNTAX: DELETE filenum [,...] + */ + do + { + int FileNumber; + + FileNumber = 0; + if (line_read_integer_expression (l, &FileNumber) == FALSE) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (FileNumber <= 0) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + + My->CurrentFile = find_file_by_number (FileNumber); + if (My->CurrentFile == NULL) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (My->CurrentFile->DevMode == DEVMODE_CLOSED) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (My->CurrentFile->cfp != NULL) + { + bwb_fclose (My->CurrentFile->cfp); + My->CurrentFile->cfp = NULL; + } + if (My->CurrentFile->buffer != NULL) + { + free (My->CurrentFile->buffer); + My->CurrentFile->buffer = NULL; + } + My->CurrentFile->width = 0; + My->CurrentFile->col = 1; + My->CurrentFile->row = 1; + My->CurrentFile->delimit = ','; + My->CurrentFile->DevMode = DEVMODE_CLOSED; + if (My->CurrentFile->FileName == NULL) + { + WARN_BAD_FILE_NAME; + return (l); + } + remove (My->CurrentFile->FileName); + free (My->CurrentFile->FileName); + My->CurrentFile->FileName = NULL; + } + while (line_skip_seperator (l)); + /* OK */ + return (l); + } + else + { + /* + SYNTAX: DELETE line [,...] + SYNTAX: DELETE line - line + */ + + do + { + int head; + int tail; + + if (line_read_line_sequence (l, &head, &tail)) + { + /* DELETE 's' - 'e' */ + LineType *x; + LineType *previous; + if (head < MINLIN || head > MAXLIN) + { + WARN_UNDEFINED_LINE; + return (l); + } + if (tail < MINLIN || tail > MAXLIN) + { + WARN_UNDEFINED_LINE; + return (l); + } + if (head > tail) + { + WARN_UNDEFINED_LINE; + return (l); + } + /* valid range */ + + /* avoid deleting ourself */ + + if (l->LineFlags & (LINE_USER)) + { + /* console line (immediate mode) */ + } + else if (head <= l->number && l->number <= tail) + { + /* 100 DELETE 100 */ + WARN_CANT_CONTINUE; + return (l); + } + /* now go through and list appropriate lines */ + previous = My->StartMarker; + for (x = My->StartMarker->next; x != My->EndMarker;) + { + LineType *next; + + next = x->next; + if (x->number < head) + { + previous = x; + } + else if (head <= x->number && x->number <= tail) + { + if (x == l) + { + /* 100 DELETE 100 */ + WARN_CANT_CONTINUE; + return (l); + } + bwb_freeline (x); + previous->next = next; + } + x = next; + } + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + } + while (line_skip_seperator (l)); + /* + ** + ** FORCE SCAN + ** + */ + if (bwb_scan () == FALSE) + { + WARN_CANT_CONTINUE; + return (l); + } + } + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + DELETE +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_DELETE (LineType * l) +{ + + assert (l != NULL); + + return bwb_delete (l); +} + +/* +-------------------------------------------------------------------------------------------- + PDEL +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_PDEL (LineType * l) +{ + + assert (l != NULL); + + return bwb_delete (l); +} + +#if FALSE /* keep the source to DONUM and DOUNNUM */ + +/* +-------------------------------------------------------------------------------------------- + DONUM +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_donum (LineType * l) +{ + /* + SYNTAX: DONUM + */ + LineType *current; + int lnumber; + + assert (l != NULL); + assert( My != NULL ); + assert( My->StartMarker != NULL ); + assert( My->EndMarker != NULL ); + + lnumber = 10; + for (current = My->StartMarker->next; current != My->EndMarker; + current = current->next) + { + current->number = lnumber; + + lnumber += 10; + if (lnumber > MAXLIN) + { + return (l); + } + } + + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + DOUNUM +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_dounnum (LineType * l) +{ + /* + SYNTAX: DOUNNUM + */ + LineType *current; + + assert (l != NULL); + assert( My != NULL ); + assert( My->StartMarker != NULL ); + assert( My->EndMarker != NULL ); + + for (current = My->StartMarker->next; current != My->EndMarker; + current = current->next) + { + current->number = 0; + } + + return (l); +} + +#endif /* FALSE */ + + + +/* +-------------------------------------------------------------------------------------------- + FILES +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_FILES (LineType * l) +{ + /* + SYNTAX: FILES A$ [, ...] + */ + /* open a list of files in READ mode */ + + assert (l != NULL); + assert( My != NULL ); + + do + { + int FileNumber; + + FileNumber = My->LastFileNumber; + FileNumber++; + if (FileNumber < 0) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (FileNumber == 0) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + My->CurrentFile = find_file_by_number (FileNumber); + if (My->CurrentFile == NULL) + { + My->CurrentFile = file_new (); + My->CurrentFile->FileNumber = FileNumber; + } + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (My->CurrentFile->FileName != NULL) + { + free (My->CurrentFile->FileName); + My->CurrentFile->FileName = NULL; + } + My->CurrentFile->FileName = Value; + Value = NULL; + } + if (My->CurrentFile->DevMode != DEVMODE_CLOSED) + { + My->CurrentFile->DevMode = DEVMODE_CLOSED; + } + if (My->CurrentFile->cfp != NULL) + { + bwb_fclose (My->CurrentFile->cfp); + My->CurrentFile->cfp = NULL; + } + if (My->CurrentFile->buffer != NULL) + { + free (My->CurrentFile->buffer); + My->CurrentFile->buffer = NULL; + } + My->CurrentFile->width = 0; + My->CurrentFile->col = 1; + My->CurrentFile->row = 1; + My->CurrentFile->delimit = ','; + if (is_empty_string (My->CurrentFile->FileName)) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (bwb_strcmp (My->CurrentFile->FileName, "*") != 0) + { + if ((My->CurrentFile->cfp = + fopen (My->CurrentFile->FileName, "r")) == NULL) + { + WARN_BAD_FILE_NAME; + return (l); + } + My->CurrentFile->DevMode = DEVMODE_INPUT; + } + My->LastFileNumber = FileNumber; + /* OK */ + } + while (line_skip_seperator (l)); + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + FILE +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_FILE (LineType * l) +{ + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + if (My->CurrentVersion->OptionVersionValue & (C77)) + { + /* + CBASIC-II: + FILE file_name$ ' filename$ must be a simple string scalar (no arrays) + FILE file_name$ ( record_length% ) ' filename$ must be a simple string scalar (no arrays) + -- if the file exists, + then it is used, + else it is created. + -- Does not trigger IF END # + */ + do + { + int FileNumber; + VariableType *v; + char varname[NameLengthMax + 1]; + + if (line_read_varname (l, varname) == FALSE) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (is_empty_string (varname)) + { + WARN_BAD_FILE_NAME; + return (l); + } + v = find_variable_by_type (varname, 0, StringTypeCode); + if (v == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + if (VAR_IS_STRING (v)) + { + /* OK */ + } + else + { + WARN_TYPE_MISMATCH; + return (l); + } + + FileNumber = My->LastFileNumber; + FileNumber++; + if (FileNumber < 0) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (FileNumber == 0) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + My->CurrentFile = find_file_by_number (FileNumber); + if (My->CurrentFile == NULL) + { + My->CurrentFile = file_new (); + My->CurrentFile->FileNumber = FileNumber; + } + if (My->CurrentFile->DevMode != DEVMODE_CLOSED) + { + My->CurrentFile->DevMode = DEVMODE_CLOSED; + } + if (My->CurrentFile->cfp != NULL) + { + bwb_fclose (My->CurrentFile->cfp); + My->CurrentFile->cfp = NULL; + } + if (My->CurrentFile->buffer != NULL) + { + free (My->CurrentFile->buffer); + My->CurrentFile->buffer = NULL; + } + My->CurrentFile->width = 0; + My->CurrentFile->col = 1; + My->CurrentFile->row = 1; + My->CurrentFile->delimit = ','; + /* OK */ + if (line_skip_LparenChar (l)) + { + /* RANDOM file */ + int RecLen; + + if (line_read_integer_expression (l, &RecLen) == FALSE) + { + WARN_FIELD_OVERFLOW; + return (l); + } + if (RecLen <= 0) + { + WARN_FIELD_OVERFLOW; + return (l); + } + if (line_skip_RparenChar (l) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if ((My->CurrentFile->buffer = + (char *) calloc (RecLen + 1 /* NulChar */ , + sizeof (char))) == NULL) + { + WARN_OUT_OF_MEMORY; + return (l); + } + My->CurrentFile->width = RecLen; + } + + /* if( TRUE ) */ + { + VariantType variant; + CLEAR_VARIANT (&variant); + + if (var_get (v, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + if (variant.VariantTypeCode == StringTypeCode) + { + if (My->CurrentFile->FileName != NULL) + { + free (My->CurrentFile->FileName); + My->CurrentFile->FileName = NULL; + } + My->CurrentFile->FileName = variant.Buffer; + variant.Buffer = NULL; + } + else + { + WARN_TYPE_MISMATCH; + return (l); + } + } + if (is_empty_string (My->CurrentFile->FileName)) + { + WARN_BAD_FILE_NAME; + return (l); + } + My->CurrentFile->cfp = fopen (My->CurrentFile->FileName, "r+"); + if (My->CurrentFile->cfp == NULL) + { + My->CurrentFile->cfp = fopen (My->CurrentFile->FileName, "w"); + if (My->CurrentFile->cfp != NULL) + { + bwb_fclose (My->CurrentFile->cfp); + My->CurrentFile->cfp = fopen (My->CurrentFile->FileName, "r+"); + } + } + if (My->CurrentFile->cfp == NULL) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (My->CurrentFile->width > 0) + { + /* RANDOM file */ + My->CurrentFile->DevMode = DEVMODE_RANDOM; + } + else + { + /* SERIAL file */ + My->CurrentFile->DevMode = DEVMODE_INPUT | DEVMODE_OUTPUT; + } + /* OK */ + My->LastFileNumber = FileNumber; + } + while (line_skip_seperator (l)); + /* OK */ + return (l); + } + if (line_skip_FilenumChar (l)) + { + /* + SYNTAX: FILE # X, A$ + */ + int FileNumber; + + if (line_read_integer_expression (l, &FileNumber) == FALSE) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (line_skip_seperator (l)) + { + /* OK */ + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + if (FileNumber < 0) + { + /* "FILE # -1" is an ERROR */ + WARN_BAD_FILE_NUMBER; + return (l); + } + if (FileNumber == 0) + { + /* "FILE # 0" is an ERROR */ + WARN_BAD_FILE_NUMBER; + return (l); + } + My->CurrentFile = find_file_by_number (FileNumber); + if (My->CurrentFile == NULL) + { + My->CurrentFile = file_new (); + My->CurrentFile->FileNumber = FileNumber; + } + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (My->CurrentFile->FileName != NULL) + { + free (My->CurrentFile->FileName); + My->CurrentFile->FileName = NULL; + } + My->CurrentFile->FileName = Value; + Value = NULL; + } + if (My->CurrentFile->DevMode != DEVMODE_CLOSED) + { + My->CurrentFile->DevMode = DEVMODE_CLOSED; + } + if (My->CurrentFile->cfp != NULL) + { + bwb_fclose (My->CurrentFile->cfp); + My->CurrentFile->cfp = NULL; + } + if (My->CurrentFile->buffer != NULL) + { + free (My->CurrentFile->buffer); + My->CurrentFile->buffer = NULL; + } + My->CurrentFile->width = 0; + My->CurrentFile->col = 1; + My->CurrentFile->row = 1; + My->CurrentFile->delimit = ','; + if (is_empty_string (My->CurrentFile->FileName)) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (bwb_strcmp (My->CurrentFile->FileName, "*") != 0) + { + if ((My->CurrentFile->cfp = + fopen (My->CurrentFile->FileName, "r")) == NULL) + { + WARN_BAD_FILE_NAME; + return (l); + } + My->CurrentFile->DevMode = DEVMODE_INPUT; + } + /* OK */ + return (l); + } + WARN_SYNTAX_ERROR; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + DELIMIT +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_DELIMIT (LineType * l) +{ + /* + SYNTAX: DELIMIT # X, A$ + */ + + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSIN != NULL ); + + if (line_skip_FilenumChar (l)) + { + /* DELIMIT # */ + int FileNumber; + char delimit; + + My->CurrentFile = My->SYSIN; + + if (line_read_integer_expression (l, &FileNumber) == FALSE) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (line_skip_seperator (l)) + { + /* OK */ + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + delimit = Value[0]; + free (Value); + Value = NULL; + if (bwb_ispunct (delimit)) + { + /* OK */ + } + else + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + } + if (FileNumber < 0) + { + /* "DELIMIT # -1" is SYSPRN */ + My->SYSPRN->delimit = delimit; + return (l); + } + if (FileNumber == 0) + { + /* "DELIMIT # 0" is SYSOUT */ + My->SYSOUT->delimit = delimit; + return (l); + } + /* normal file */ + My->CurrentFile = find_file_by_number (FileNumber); + if (My->CurrentFile == NULL) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + My->CurrentFile->delimit = delimit; + /* OK */ + return (l); + } + WARN_SYNTAX_ERROR; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + MARGIN +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_MARGIN (LineType * l) +{ + /* + SYNTAX: MARGIN # X, Y + */ + /* set width for OUTPUT */ + int FileNumber; + int Value; + + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSIN != NULL ); + + if (line_skip_FilenumChar (l)) + { + /* MARGIN # */ + My->CurrentFile = My->SYSIN; + + if (line_read_integer_expression (l, &FileNumber) == FALSE) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (line_skip_seperator (l)) + { + /* OK */ + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_integer_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value < 0) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + if (FileNumber < 0) + { + /* "MARGIN # -1" is SYSPRN */ + My->SYSPRN->width = Value; + return (l); + } + if (FileNumber == 0) + { + /* "MARGIN # 0" is SYSOUT */ + My->SYSOUT->width = Value; + return (l); + } + /* normal file */ + My->CurrentFile = find_file_by_number (FileNumber); + if (My->CurrentFile == NULL) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if ((My->CurrentFile->DevMode & DEVMODE_WRITE) == 0) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + My->CurrentFile->width = Value; + /* OK */ + return (l); + } + WARN_SYNTAX_ERROR; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + USE +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_USE (LineType * l) +{ + /* + SYNTAX: USE parameter$ ' CALL/360, System/360, System/370 + */ + VariableType *v; + + assert (l != NULL); + assert( My != NULL ); + + if ((v = line_read_scalar (l)) == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (v->VariableTypeCode != StringTypeCode) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + if (My->UseParameterString) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + variant.VariantTypeCode = StringTypeCode; + variant.Buffer = My->UseParameterString; + variant.Length = bwb_strlen (My->UseParameterString); + var_set (v, &variant); + } + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + CHAIN +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_CHAIN (LineType * l) +{ + /* + SYNTAX: CHAIN file-name$ [, linenumber] ' most dialects + SYNTAX: CHAIN file-name$ [, parameter$] ' CALL/360, System/360, System/370 + */ + /* originally based upon bwb_load() */ + int LineNumber; + LineType *x; + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + assert( My->StartMarker != NULL ); + assert( My->EndMarker != NULL ); + + /* Get an argument for filename */ + if (line_is_eol (l)) + { + WARN_BAD_FILE_NAME; + return (l); + } + else + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (is_empty_string (Value)) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + My->ProgramFilename = NULL; + } + My->ProgramFilename = Value; + } + /* optional linenumber */ + LineNumber = 0; + if (line_skip_seperator (l)) + { + if (My->CurrentVersion->OptionVersionValue & (S70 | I70 | I73)) + { + /* CHAIN filename$, parameter$ */ + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (My->UseParameterString) + { + free (My->UseParameterString); + My->UseParameterString = NULL; + } + My->UseParameterString = Value; + } + } + else + { + /* CHAIN filename$, linenumber */ + if (line_read_integer_expression (l, &LineNumber) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (LineNumber < MINLIN || LineNumber > MAXLIN) + { + WARN_UNDEFINED_LINE; + return (l); + } + } + } + + /* deallocate all variables except common ones */ + var_delcvars (); + + /* remove old program from memory */ + bwb_xnew (My->StartMarker); + + /* load new program in memory */ + if (bwb_fload (NULL) == FALSE) + { + WARN_BAD_FILE_NAME; + return (l); + } + /* FIXME */ + x = My->StartMarker; + if (MINLIN <= LineNumber && LineNumber <= MAXLIN) + { + /* search for a matching line number */ + while (x->number != LineNumber && x != My->EndMarker) + { + x = x->next; + } + if (x == My->EndMarker) + { + /* NOT FOUND */ + x = My->StartMarker; + } + } + x->position = 0; + /* + ** + ** FORCE SCAN + ** + */ + if (bwb_scan () == FALSE) + { + WARN_CANT_CONTINUE; + return (l); + } + /* reset all stack counters */ + bwb_clrexec (); + if (bwb_incexec ()) + { + /* OK */ + My->StackHead->line = x; + My->StackHead->ExecCode = EXEC_NORM; + } + else + { + /* ERROR */ + WARN_OUT_OF_MEMORY; + return My->EndMarker; + } + + /* run the program */ + + /* CHAIN */ + WARN_CLEAR; /* bwb_CHAIN */ + My->ContinueLine = NULL; + SetOnError (0); + return x; +} + +/* +-------------------------------------------------------------------------------------------- + APPEND +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_APPEND (LineType * l) +{ + /* + SYNTAX: APPEND # filenumber ' Dartmouth, Mark-I, Mark-II, GCOS + SYNTAX: APPEND [filename$] ' all others + */ + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + if (My->CurrentVersion->OptionVersionValue & (D64 | G65 | G67 | G74)) + { + if (line_skip_FilenumChar (l)) + { + /* APPEND # filenumber */ + int FileNumber; + + if (line_read_integer_expression (l, &FileNumber) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (FileNumber < 0) + { + /* "APPEND # -1" is silently ignored */ + return (l); + } + if (FileNumber == 0) + { + /* "APPEND # 0" is silently ignored */ + return (l); + } + My->CurrentFile = find_file_by_number (FileNumber); + if (My->CurrentFile == NULL) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + /* normal file */ + fseek (My->CurrentFile->cfp, 0, SEEK_END); + My->CurrentFile->DevMode = DEVMODE_APPEND; + /* OK */ + return (l); + } + } + /* APPEND filename$ */ + return bwb_load (l, "APPEND FILE NAME:", FALSE); +} + + + +/* +-------------------------------------------------------------------------------------------- + ON ERROR and so on +-------------------------------------------------------------------------------------------- +*/ + +extern void +SetOnError (int LineNumber) +{ + /* scan the stack looking for a FUNCTION/SUB */ + StackType *StackItem; + assert( My != NULL ); + + + if (My->StackHead == NULL) + { + return; + } + + for (StackItem = My->StackHead; StackItem->next != NULL; + StackItem = StackItem->next) + { + LineType *current; + + current = StackItem->LoopTopLine; + if (current != NULL) + { + switch (current->cmdnum) + { + case C_FUNCTION: + case C_SUB: + /* FOUND */ + /* we are in a FUNCTION/SUB, so this is LOCAL */ + StackItem->OnErrorGoto = LineNumber; + return; + /* break; */ + } + } + } + /* StackItem->next == NULL */ + /* NOT FOUND */ + /* we are NOT in a FUNCTION/SUB */ + assert (StackItem != NULL); + StackItem->OnErrorGoto = LineNumber; +} + + +extern int +GetOnError (void) +{ + /* scan the stack looking for an active "ON ERROR GOTO linenumber" */ + StackType *StackItem; + assert( My != NULL ); + + + for (StackItem = My->StackHead; StackItem != NULL; + StackItem = StackItem->next) + { + if (StackItem->OnErrorGoto != 0) + { + /* FOUND */ + return StackItem->OnErrorGoto; + } + } + /* NOT FOUND */ + return 0; +} + +/* +-------------------------------------------------------------------------------------------- + ON ERROR +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_ON_ERROR (LineType * l) +{ + + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + ON ERROR GOTO +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_ON_ERROR_GOTO (LineType * l) +{ + /* ON ERROR GOTO line */ + int LineNumber; + + assert (l != NULL); + + WARN_CLEAR; /* bwb_ON_ERROR_GOTO */ + + /* get the line number */ + LineNumber = 0; + if (line_is_eol (l)) + { + /* ON ERROR GOTO */ + SetOnError (0); + return (l); + } + if (line_read_integer_expression (l, &LineNumber) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* ON ERORR GOTO linenumber */ + if (LineNumber == 0) + { + /* ON ERROR GOTO 0 */ + SetOnError (0); + return (l); + } + if (LineNumber < MINLIN || LineNumber > MAXLIN) + { + /* ERROR */ + WARN_UNDEFINED_LINE; + return (l); + } + /* OK */ + SetOnError (LineNumber); + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + ON ERROR GOSUB +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_ON_ERROR_GOSUB (LineType * l) +{ + /* ON ERROR GOSUB line */ + + assert (l != NULL); + return bwb_ON_ERROR_GOTO (l); +} + +/* +-------------------------------------------------------------------------------------------- + ON ERROR RESUME +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_ON_ERROR_RESUME (LineType * l) +{ + + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + ON ERROR RESUME NEXT +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_ON_ERROR_RESUME_NEXT (LineType * l) +{ + + assert (l != NULL); + WARN_CLEAR; /* bwb_ON_ERROR_RESUME_NEXT */ + SetOnError (-1); + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + ON ERROR RETURN +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_ON_ERROR_RETURN (LineType * l) +{ + + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + ON ERROR RETURN NEXT +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_ON_ERROR_RETURN_NEXT (LineType * l) +{ + + assert (l != NULL); + return bwb_ON_ERROR_RESUME_NEXT (l); +} + +/* +-------------------------------------------------------------------------------------------- + ON TIMER +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_ON_TIMER (LineType * l) +{ + /* ON TIMER(...) GOSUB ... */ + DoubleType v; + DoubleType minv; + int LineNumber; + + assert (l != NULL); + assert( My != NULL ); + + My->IsTimerOn = FALSE; /* bwb_ON_TIMER */ + My->OnTimerLineNumber = 0; + My->OnTimerCount = 0; + + + /* get the SECOMDS parameter */ + if (line_read_numeric_expression (l, &v) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + minv = 1; + assert (CLOCKS_PER_SEC > 0); + minv /= CLOCKS_PER_SEC; + if (v < minv) + { + /* ERROR */ + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + + /* get the GOSUB keyword */ + if (line_skip_word (l, "GOSUB") == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* ON TIMER(X) GOSUB line */ + if (line_read_integer_expression (l, &LineNumber) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (LineNumber < MINLIN || LineNumber > MAXLIN) + { + /* ERROR */ + WARN_UNDEFINED_LINE; + return (l); + } + /* OK */ + My->OnTimerLineNumber = LineNumber; + My->OnTimerCount = v; + return (l); +} + + +/* +-------------------------------------------------------------------------------------------- + TIMER +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_TIMER (LineType * l) +{ + + assert (l != NULL); + assert( My != NULL ); + + My->IsTimerOn = FALSE; /* bwb_TIMER */ + WARN_SYNTAX_ERROR; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + TIMER OFF +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_TIMER_OFF (LineType * l) +{ + + assert (l != NULL); + assert( My != NULL ); + + /* TIMER OFF */ + My->IsTimerOn = FALSE; /* bwb_TIMER_OFF */ + My->OnTimerLineNumber = 0; + My->OnTimerCount = 0; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + TIMER ON +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_TIMER_ON (LineType * l) +{ + + assert (l != NULL); + assert( My != NULL ); + + My->IsTimerOn = FALSE; /* bwb_TIMER_ON */ + /* TIMER ON */ + if (My->OnTimerCount > 0 && My->OnTimerLineNumber > 0) + { + My->OnTimerExpires = bwx_TIMER (My->OnTimerCount); + My->IsTimerOn = TRUE; /* bwb_TIMER_ON */ + } + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + TIMER STOP +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_TIMER_STOP (LineType * l) +{ + + assert (l != NULL); + assert( My != NULL ); + + My->IsTimerOn = FALSE; /* bwb_TIMER_STOP */ + + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + RESUME +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_RESUME (LineType * l) +{ + int LineNumber; + LineType *x; + + assert (l != NULL); + assert( My != NULL ); + + LineNumber = 0; + x = My->ERL; /* bwb_RESUME */ + WARN_CLEAR; /* bwb_RESUME */ + + if (l->LineFlags & (LINE_USER)) + { + WARN_ILLEGAL_DIRECT; + return (l); + } + + if (x == NULL) + { + WARN_RESUME_WITHOUT_ERROR; + return (l); + } + /* Get optional argument for RESUME */ + if (line_is_eol (l)) + { + /* RESUME */ + /* + Execution resumes at the statement which caused the error + For structured commands, this is the top line of the structure. + */ + x->position = 0; + return x; + } + if (line_skip_word (l, "NEXT")) + { + /* RESUME NEXT */ + /* + Execution resumes at the statement immediately following the one which caused the error. + For structured commands, this is the bottom line of the structure. + */ + switch (x->cmdnum) + { + case C_IF8THEN: + /* skip to END_IF */ + assert (x->OtherLine != NULL); + for (x = x->OtherLine; x->cmdnum != C_END_IF; x = x->OtherLine); + break; + case C_SELECT_CASE: + /* skip to END_SELECT */ + assert (x->OtherLine != NULL); + for (x = x->OtherLine; x->cmdnum != C_END_SELECT; x = x->OtherLine); + break; + default: + x = x->next; + } + x->position = 0; + return x; + } + /* RESUME ### */ + if (line_read_integer_expression (l, &LineNumber) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (LineNumber == 0) + { + /* SPECIAL CASE */ + /* RESUME 0 */ + /* Execution resumes at the statement which caused the error */ + x->position = 0; + return x; + } + /* VERIFY LINE EXISTS */ + x = find_line_number (LineNumber); /* RESUME 100 */ + if (x != NULL) + { + /* FOUND */ + x->position = 0; + return x; + } + /* NOT FOUND */ + WARN_UNDEFINED_LINE; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + CMDS +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_CMDS (LineType * l) +{ + int n; + int t; + + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + My->CurrentFile = My->SYSOUT; + fprintf (My->SYSOUT->cfp, "BWBASIC COMMANDS AVAILABLE:\n"); + + /* run through the command table and print comand names */ + + t = 0; + for (n = 0; n < NUM_COMMANDS; n++) + { + fprintf (My->SYSOUT->cfp, "%s", IntrinsicCommandTable[n].name); + if (t < 4) + { + fprintf (My->SYSOUT->cfp, "\t"); + t++; + } + else + { + fprintf (My->SYSOUT->cfp, "\n"); + t = 0; + } + } + if (t > 0) + { + fprintf (My->SYSOUT->cfp, "\n"); + } + ResetConsoleColumn (); + return (l); +} + +static void +FixUp (char *Name) +{ + char *C; + + assert (Name != NULL); + + C = Name; + while (*C) + { + if (bwb_isalnum (*C)) + { + /* OK */ + } + else + { + /* FIX */ + switch (*C) + { + case '!': + *C = '1'; + break; + case '@': + *C = '2'; + break; + case '#': + *C = '3'; + break; + case '$': + *C = '4'; + break; + case '%': + *C = '5'; + break; + case '^': + *C = '6'; + break; + case '&': + *C = '7'; + break; + case '*': + *C = '8'; + break; + case '(': + *C = '9'; + break; + case ')': + *C = '0'; + break; + default: + *C = '_'; + } + } + C++; + } +} + + +static void +CommandUniqueID (int i, char *UniqueID) +{ + + assert (UniqueID != NULL); + + bwb_strcpy (UniqueID, "C_"); + bwb_strcat (UniqueID, IntrinsicCommandTable[i].name); + FixUp (UniqueID); +} + +static void +CommandVector (int i, char *Vector) +{ + + assert (Vector != NULL); + + bwb_strcpy (Vector, "bwb_"); + bwb_strcat (Vector, IntrinsicCommandTable[i].name); + FixUp (Vector); +} + +static void +CommandOptionVersion (int n, char *OutputLine) +{ + int i; + int j; + + assert (OutputLine != NULL); + + bwb_strcpy (OutputLine, ""); + j = 0; + for (i = 0; i < NUM_VERSIONS; i++) + { + if (IntrinsicCommandTable[n].OptionVersionBitmask & bwb_vertable[i]. + OptionVersionValue) + { + if (j > 0) + { + bwb_strcat (OutputLine, " | "); + } + bwb_strcat (OutputLine, bwb_vertable[i].ID); + j++; + } + } +} + + +void +SortAllCommands (void) +{ + /* sort by name */ + int i; + assert( My != NULL ); + + + for (i = 0; i < NUM_COMMANDS - 1; i++) + { + int j; + int k; + k = i; + for (j = i + 1; j < NUM_COMMANDS; j++) + { + if (bwb_stricmp + (IntrinsicCommandTable[j].name, IntrinsicCommandTable[k].name) < 0) + { + k = j; + } + } + if (k > i) + { + CommandType t; + bwb_memcpy (&t, &(IntrinsicCommandTable[i]), sizeof (CommandType)); + bwb_memcpy (&(IntrinsicCommandTable[i]), &(IntrinsicCommandTable[k]), + sizeof (CommandType)); + bwb_memcpy (&(IntrinsicCommandTable[k]), &t, sizeof (CommandType)); + } + } +#if THE_PRICE_IS_RIGHT + for (i = 0; i < 26; i++) + { + My->CommandStart[i] = -1; + } + for (i = 0; i < NUM_COMMANDS; i++) + { + int j; + j = VarTypeIndex (IntrinsicCommandTable[i].name[0]); + if (j < 0) + { + /* non-alpha */ + } + else if (My->CommandStart[j] < 0) + { + /* this is the first command starting with this letter */ + My->CommandStart[j] = i; + } + } +#endif /* THE_PRICE_IS_RIGHT */ +} + +void +SortAllFunctions (void) +{ + /* sort by name then number of parameters */ + int i; + assert( My != NULL ); + + + for (i = 0; i < NUM_FUNCTIONS - 1; i++) + { + int j; + int k; + k = i; + for (j = i + 1; j < NUM_FUNCTIONS; j++) + { + int n; + n = + bwb_stricmp (IntrinsicFunctionTable[j].Name, + IntrinsicFunctionTable[k].Name); + if (n < 0) + { + k = j; + } + else if (n == 0) + { + if (IntrinsicFunctionTable[j].ParameterCount < + IntrinsicFunctionTable[k].ParameterCount) + { + k = j; + } + } + } + if (k > i) + { + IntrinsicFunctionType t; + bwb_memcpy (&t, &(IntrinsicFunctionTable[i]), + sizeof (IntrinsicFunctionType)); + bwb_memcpy (&(IntrinsicFunctionTable[i]), &(IntrinsicFunctionTable[k]), + sizeof (IntrinsicFunctionType)); + bwb_memcpy (&(IntrinsicFunctionTable[k]), &t, + sizeof (IntrinsicFunctionType)); + } + } +#if THE_PRICE_IS_RIGHT + for (i = 0; i < 26; i++) + { + My->IntrinsicFunctionStart[i] = -1; + } + for (i = 0; i < NUM_FUNCTIONS; i++) + { + int j; + j = VarTypeIndex (IntrinsicFunctionTable[i].Name[0]); + if (j < 0) + { + /* non-alpha */ + } + else if (My->IntrinsicFunctionStart[j] < 0) + { + /* this is the first command starting with this letter */ + My->IntrinsicFunctionStart[j] = i; + } + } +#endif /* THE_PRICE_IS_RIGHT */ +} + + +void +DumpAllCommandUniqueID (FILE * file) +{ + int i; + int j; + char LastUniqueID[NameLengthMax + 1]; + + assert (file != NULL); + + j = 0; + LastUniqueID[0] = NulChar; + + fprintf (file, "/* COMMANDS */\n"); + + /* run through the command table and print comand #define */ + + for (i = 0; i < NUM_COMMANDS; i++) + { + char UniqueID[NameLengthMax + 1]; + + CommandUniqueID (i, UniqueID); + if (bwb_stricmp (LastUniqueID, UniqueID) != 0) + { + /* not a duplicate */ + bwb_strcpy (LastUniqueID, UniqueID); + j = j + 1; + fprintf (file, "#define %-30s %3d /* %-30s */\n", UniqueID, j, + IntrinsicCommandTable[i].name); + } + } + fprintf (file, "#define NUM_COMMANDS %d\n", j); + fflush (file); +} + +static void +ProcessEscapeChars (const char *Input, char *Output) +{ + int n; + + assert (Input != NULL); + assert (Output != NULL); + + n = 0; + + while (*Input) + { + /* \a \b \f \n \r \t \v \" \\ */ + switch (*Input) + { + case '\a': + *Output = '\\'; + Output++; + *Output = 'a'; + Output++; + break; + case '\b': + *Output = '\\'; + Output++; + *Output = 'b'; + Output++; + break; + case '\f': + *Output = '\\'; + Output++; + *Output = 'f'; + Output++; + break; + case '\n': + *Output = '\\'; + Output++; + *Output = 'n'; + Output++; + break; + case '\r': + *Output = '\\'; + Output++; + *Output = 'r'; + Output++; + break; + case '\t': + *Output = '\\'; + Output++; + *Output = 't'; + Output++; + break; + case '\v': + *Output = '\\'; + Output++; + *Output = 'n'; + Output++; + break; + case '\"': + *Output = '\\'; + Output++; + *Output = '"'; + Output++; + break; + case '\\': + *Output = '\\'; + Output++; + *Output = '\\'; + Output++; + break; + default: + *Output = *Input; + Output++; + break; + } + *Output = NulChar; + n++; + if (n > 60 && *Input == ' ') + { + *Output = '\"'; + Output++; + *Output = '\n'; + Output++; + *Output = ' '; + Output++; + *Output = ' '; + Output++; + *Output = '\"'; + Output++; + *Output = NulChar; + n = 0; + } + Input++; + } +} + +void +DumpAllCommandTableDefinitions (FILE * file) +{ + /* generate bwd_cmd.c */ + + int i; + + assert (file != NULL); + + fprintf (file, "/* COMMAND TABLE */\n\n"); + fprintf (file, "#include \"bwbasic.h\"\n\n"); + fprintf (file, + "CommandType IntrinsicCommandTable[ /* NUM_COMMANDS */ ] =\n"); + fprintf (file, "{\n"); + + /* run through the command table and print comand #define */ + + for (i = 0; i < NUM_COMMANDS; i++) + { + char tbuf[MAINTAINER_BUFFER_LENGTH + 1]; /* DumpAllCommandTableDefinitions */ + + + fprintf (file, "{\n"); + + fprintf (file, " "); + CommandUniqueID (i, tbuf); + fprintf (file, "%s", tbuf); + fprintf (file, ", /* UniqueID */\n"); + + fprintf (file, " "); + fprintf (file, "\""); + ProcessEscapeChars (IntrinsicCommandTable[i].Syntax, tbuf); + fprintf (file, "%s", tbuf); + fprintf (file, "\""); + fprintf (file, ", /* Syntax */\n"); + + fprintf (file, " "); + fprintf (file, "\""); + ProcessEscapeChars (IntrinsicCommandTable[i].Description, tbuf); + fprintf (file, "%s", tbuf); + fprintf (file, "\""); + fprintf (file, ", /* Description */\n"); + + fprintf (file, " "); + fprintf (file, "\""); + fprintf (file, "%s", IntrinsicCommandTable[i].name); + fprintf (file, "\""); + fprintf (file, ", /* Name */\n"); + + fprintf (file, " "); + CommandOptionVersion (i, tbuf); + fprintf (file, "%s", tbuf); + fprintf (file, " /* OptionVersionBitmask */\n"); + + fprintf (file, "},\n"); + } + fprintf (file, "};\n"); + fprintf (file, "\n"); + fprintf (file, + "const size_t NUM_COMMANDS = sizeof( IntrinsicCommandTable ) / sizeof( CommandType );\n"); + fprintf (file, "\n"); + fflush (file); +} + +void +DumpAllCommandSwitchStatement (FILE * file) +{ + int i; + char LastUniqueID[NameLengthMax + 1]; + + assert (file != NULL); + + LastUniqueID[0] = NulChar; + + /* run through the command table and print comand #define */ + fprintf (file, "/* SWITCH */\n"); + fprintf (file, "LineType *bwb_vector( LineType *l )\n"); + fprintf (file, "{\n"); + + fprintf (file, " "); + fprintf (file, "LineType *r;\n"); + + fprintf (file, " "); + fprintf (file, "switch( l->cmdnum )\n"); + + fprintf (file, " "); + fprintf (file, "{\n"); + + for (i = 0; i < NUM_COMMANDS; i++) + { + char tbuf[NameLengthMax + 1]; + + CommandUniqueID (i, tbuf); + if (bwb_stricmp (LastUniqueID, tbuf) != 0) + { + /* not a duplicate */ + bwb_strcpy (LastUniqueID, tbuf); + + fprintf (file, " "); + fprintf (file, "case "); + CommandUniqueID (i, tbuf); + fprintf (file, "%s", tbuf); + fprintf (file, ":\n"); + + fprintf (file, " "); + fprintf (file, " "); + fprintf (file, "r = "); + CommandVector (i, tbuf); + fprintf (file, "%s", tbuf); + fprintf (file, "( l );\n"); + + fprintf (file, " "); + fprintf (file, " "); + fprintf (file, "break;\n"); + } + } + + fprintf (file, " "); + fprintf (file, "default:\n"); + + fprintf (file, " "); + fprintf (file, " "); + fprintf (file, "WARN_INTERNAL_ERROR;\n"); + + fprintf (file, " "); + fprintf (file, " "); + fprintf (file, "r = l;\n"); + + fprintf (file, " "); + fprintf (file, " "); + fprintf (file, "break;\n"); + + + fprintf (file, " "); + fprintf (file, "}\n"); + + fprintf (file, " "); + fprintf (file, "return r;\n"); + + fprintf (file, "}\n"); + + fflush (file); +} + +void +FixDescription (FILE * file, const char *left, const char *right) +{ + char buffer[MAINTAINER_BUFFER_LENGTH + 1]; /* FixDescription */ + int l; /* length of left side */ + int p; /* current position */ + int n; /* position of the last space character, zero means none yet seen */ + int i; /* number of characters since last '\n' */ + + assert (left != NULL); + assert (right != NULL); + + l = bwb_strlen (left); + p = 0; + n = 0; + i = 0; + bwb_strcpy (buffer, right); + + while (buffer[p]) + { + if (buffer[p] == '\n') + { + n = p; + i = 0; + } + if (buffer[p] == ' ') + { + n = p; + } + if (i > 45 && n > 0) + { + buffer[n] = '\n'; + i = p - n; + } + p++; + i++; + } + fputs (left, file); + p = 0; + while (buffer[p]) + { + if (buffer[p] == '\n') + { + fputc (buffer[p], file); + p++; + while (buffer[p] == ' ') + { + p++; + } + for (i = 0; i < l; i++) + { + fputc (' ', file); + } + } + else + { + fputc (buffer[p], file); + p++; + } + } + fputc ('\n', file); + +} + +void +DumpOneCommandSyntax (FILE * file, int IsXref, int n) +{ + + assert (file != NULL); + + if (n < 0 || n >= NUM_COMMANDS) + { + return; + } + /* NAME */ + { + FixDescription (file, " SYNTAX: ", IntrinsicCommandTable[n].Syntax); + } + /* DESCRIPTION */ + { + FixDescription (file, "DESCRIPTION: ", + IntrinsicCommandTable[n].Description); + } + /* COMPATIBILITY */ + if (IsXref) + { + int i; + fprintf (file, " VERSIONS:\n"); + for (i = 0; i < NUM_VERSIONS; i++) + { + char X; + if (IntrinsicCommandTable[n].OptionVersionBitmask & bwb_vertable[i]. + OptionVersionValue) + { + /* SUPPORTED */ + X = 'X'; + } + else + { + /* NOT SUPPORTED */ + X = '_'; + } + fprintf (file, " [%c] %s\n", X, bwb_vertable[i].Name); + } + } + + fflush (file); +} + +void +DumpAllCommandSyntax (FILE * file, int IsXref, + OptionVersionType OptionVersionValue) +{ + /* for the C maintainer */ + int i; + + assert (file != NULL); + + fprintf (file, + "============================================================\n"); + fprintf (file, + " COMMANDS \n"); + fprintf (file, + "============================================================\n"); + fprintf (file, "\n"); + fprintf (file, "\n"); + for (i = 0; i < NUM_COMMANDS; i++) + { + if (IntrinsicCommandTable[i].OptionVersionBitmask & OptionVersionValue) + { + fprintf (file, + "------------------------------------------------------------\n"); + DumpOneCommandSyntax (file, IsXref, i); + } + + } + fprintf (file, + "------------------------------------------------------------\n"); + + + fprintf (file, "\n"); + fprintf (file, "\n"); + fflush (file); +} + + +void +DumpAllCommandHtmlTable (FILE * file) +{ + /* generate bwd_cmd.htm */ + + int i; + int j; + + assert (file != NULL); + + + /* LEGEND */ + fprintf (file, "CMDS\n"); + fprintf (file, "

LEGEND


\n"); + fprintf (file, "\n"); + + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, "\n"); + + for (j = 0; j < NUM_VERSIONS; j++) + { + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, "\n"); + } + fprintf (file, "
"); + fprintf (file, ""); + fprintf (file, "ID"); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, "NAME"); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, "DESCRIPTION"); + fprintf (file, ""); + fprintf (file, "
"); + fprintf (file, "%s", bwb_vertable[j].ID); + fprintf (file, ""); + fprintf (file, "%s", bwb_vertable[j].Name); + fprintf (file, ""); + fprintf (file, "%s", bwb_vertable[j].Description); + fprintf (file, "
\n"); + fprintf (file, "
\n"); + + + /* DETAILS */ + fprintf (file, "

DETAILS


\n"); + fprintf (file, "\n"); + + fprintf (file, ""); + fprintf (file, ""); + for (j = 0; j < NUM_VERSIONS; j++) + { + fprintf (file, ""); + } + fprintf (file, "\n"); + + + /* run through the command table and print comand -vs- OPTION VERSION */ + + for (i = 0; i < NUM_COMMANDS; i++) + { + fprintf (file, ""); + fprintf (file, ""); + + for (j = 0; j < NUM_VERSIONS; j++) + { + fprintf (file, ""); + } + fprintf (file, "\n"); + } + fprintf (file, "
"); + fprintf (file, ""); + fprintf (file, "COMMAND"); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, "%s", bwb_vertable[j].ID); + fprintf (file, ""); + fprintf (file, "
"); + fprintf (file, "%s", (char *) IntrinsicCommandTable[i].Syntax); + fprintf (file, ""); + if (IntrinsicCommandTable[i].OptionVersionBitmask & bwb_vertable[j]. + OptionVersionValue) + { + fprintf (file, "X"); + } + else + { + fprintf (file, " "); + } + fprintf (file, "
\n"); + fprintf (file, "\n"); + fprintf (file, "\n"); + + fflush (file); +} + +/* +-------------------------------------------------------------------------------------------- + HELP +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_HELP (LineType * l) +{ + /* HELP ... */ + int n; + int Found; + char *C; + char *tbuf; + + assert (l != NULL); + assert( My != NULL ); + assert( My->ConsoleInput != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + tbuf = My->ConsoleInput; + Found = FALSE; + + C = l->buffer; + C += l->position; + bwb_strcpy (tbuf, C); + + /* RTRIM$ */ + C = tbuf; + if (*C != 0) + { + /* not an empty line, so remove one (or more) trailing spaces */ + char *E; + + E = bwb_strchr (tbuf, 0); + E--; + while (E >= tbuf && *E == ' ') + { + *E = 0; + E--; + } + } + + + /* EXACT match */ + for (n = 0; n < NUM_COMMANDS; n++) + { + if (bwb_stricmp (IntrinsicCommandTable[n].name, tbuf) == 0) + { + fprintf (My->SYSOUT->cfp, + "------------------------------------------------------------\n"); + DumpOneCommandSyntax (My->SYSOUT->cfp, FALSE, n); + Found = TRUE; + } + } + + for (n = 0; n < NUM_FUNCTIONS; n++) + { + if (bwb_stricmp (IntrinsicFunctionTable[n].Name, tbuf) == 0) + { + fprintf (My->SYSOUT->cfp, + "------------------------------------------------------------\n"); + DumpOneFunctionSyntax (My->SYSOUT->cfp, FALSE, n); + Found = TRUE; + } + } + + if (Found == FALSE) + { + /* PARTIAL match */ + int Length; + Length = bwb_strlen (tbuf); + + for (n = 0; n < NUM_COMMANDS; n++) + { + if (bwb_strnicmp (IntrinsicCommandTable[n].name, tbuf, Length) == 0) + { + if (Found == FALSE) + { + fprintf (My->SYSOUT->cfp, + "The following topics are a partial match:\n"); + } + fprintf (My->SYSOUT->cfp, "%s", IntrinsicCommandTable[n].name); + fprintf (My->SYSOUT->cfp, "\t"); + Found = TRUE; + } + } + + for (n = 0; n < NUM_FUNCTIONS; n++) + { + if (bwb_strnicmp (IntrinsicFunctionTable[n].Name, tbuf, Length) == 0) + { + if (Found == FALSE) + { + fprintf (My->SYSOUT->cfp, + "The following topics are a partial match:\n"); + } + fprintf (My->SYSOUT->cfp, "%s", IntrinsicFunctionTable[n].Name); + fprintf (My->SYSOUT->cfp, "\t"); + Found = TRUE; + } + } + if (Found == TRUE) + { + /* match */ + fprintf (My->SYSOUT->cfp, "\n"); + } + } + if (Found == FALSE) + { + /* NO match */ + fprintf (My->SYSOUT->cfp, "No help found.\n"); + } + ResetConsoleColumn (); + line_skip_eol (l); + return (l); + +} + +int +NumberValueCheck (ParamTestType ParameterTests, DoubleType X) +{ + DoubleType XR; /* rounded value */ + unsigned char TestNibble; + + + + /* VerifyNumeric */ + if (isnan (X)) + { + /* INTERNAL ERROR */ + return -1; + } + if (isinf (X)) + { + /* - Evaluation of an expression results in an overflow + * (nonfatal, the recommended recovery procedure is to supply + * machine in- finity with the algebraically correct sign and + * continue). */ + if (X < 0) + { + X = MINDBL; + } + else + { + X = MAXDBL; + } + if (WARN_OVERFLOW) + { + /* ERROR */ + return -1; + } + /* CONTINUE */ + } + /* OK */ + /* VALID NUMERIC VALUE */ + XR = bwb_rint (X); + ParameterTests &= 0x0000000F; + TestNibble = (unsigned char) ParameterTests; + switch (TestNibble) + { + case P1ERR: + /* INTERNAL ERROR */ + return -1; + /* break; */ + case P1ANY: + if (X < MINDBL || X > MAXDBL) + { + /* ERROR */ + return -1; + } + /* OK */ + return 0; + /* break; */ + case P1BYT: + if (XR < MINBYT || XR > MAXBYT) + { + /* ERROR */ + return -1; + } + /* OK */ + return 0; + /* break; */ + case P1INT: + if (XR < MININT || XR > MAXINT) + { + /* ERROR */ + return -1; + } + /* OK */ + return 0; + /* break; */ + case P1LNG: + if (XR < MINLNG || XR > MAXLNG) + { + /* ERROR */ + return -1; + } + /* OK */ + return 0; + /* break; */ + case P1CUR: + if (XR < MINCUR || XR > MAXCUR) + { + /* ERROR */ + return -1; + } + /* OK */ + return 0; + /* break; */ + case P1FLT: + if (X < MINSNG || X > MAXSNG) + { + /* ERROR */ + return -1; + } + /* OK */ + return 0; + /* break; */ + case P1DBL: + if (X < MINDBL || X > MAXDBL) + { + /* ERROR */ + return -1; + } + /* OK */ + return 0; + /* break; */ + case P1DEV: + /* ERROR */ + return -1; + /* break; */ + case P1LEN: + if (XR < MINLEN || XR > MAXLEN) + { + /* ERROR */ + return -1; + } + /* OK */ + return 0; + /* break; */ + case P1POS: + if (XR < 1 || XR > MAXLEN) + { + /* ERROR */ + return -1; + } + /* OK */ + return 0; + /* break; */ + case P1COM: + /* ERROR */ + return -1; + /* break; */ + case P1LPT: + /* ERROR */ + return -1; + /* break; */ + case P1GTZ: + if (X > 0) + { + /* OK */ + return 0; + } + break; + case P1GEZ: + if (X >= 0) + { + /* OK */ + return 0; + } + break; + case P1NEZ: + if (X != 0) + { + /* OK */ + return 0; + } + break; + } + /* ERROR */ + return -1; +} + +int +StringLengthCheck (ParamTestType ParameterTests, int s) +{ + unsigned char TestNibble; + + + /* check for invalid string length */ + if (s < 0 || s > MAXLEN) + { + /* INTERNAL ERROR */ + return -1; + } + /* VALID STRING LENGTH */ + ParameterTests &= 0x0000000F; + TestNibble = (unsigned char) ParameterTests; + switch (TestNibble) + { + case P1ERR: + /* INTERNAL ERROR */ + return -1; + /* break; */ + case P1ANY: + /* OK */ + return 0; + /* break; */ + case P1BYT: + if (s >= sizeof (ByteType)) + { + /* OK */ + return 0; + } + break; + case P1INT: + if (s >= sizeof (IntegerType)) + { + /* OK */ + return 0; + } + break; + case P1LNG: + if (s >= sizeof (LongType)) + { + /* OK */ + return 0; + } + break; + case P1CUR: + if (s >= sizeof (CurrencyType)) + { + /* OK */ + return 0; + } + break; + case P1FLT: + if (s >= sizeof (SingleType)) + { + /* OK */ + return 0; + } + break; + case P1DBL: + if (s >= sizeof (DoubleType)) + { + /* OK */ + return 0; + } + break; + case P1DEV: + /* ERROR */ + return -1; + /* break; */ + case P1LEN: + /* ERROR */ + return -1; + /* break; */ + case P1POS: + /* ERROR */ + return -1; + /* break; */ + case P1GEZ: + /* ERROR */ + return -1; + /* break; */ + case P1GTZ: + /* ERROR */ + return -1; + /* break; */ + case P1NEZ: + /* ERROR */ + return -1; + /* break; */ + } + /* ERROR */ + return -1; +} + +void +IntrinsicFunctionDefinitionCheck (IntrinsicFunctionType * f) +{ + /* function definition check -- look for obvious errors */ + + assert (f != NULL); + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + + /* sanity check */ + if (f->ParameterCount == PNONE || f->ParameterCount == 0xFF) + { + /* function has NO explicit parameters */ + if (f->ParameterTypes == PNONE) + { + /* OK */ + } + else + { + /* oops */ + fprintf (My->SYSOUT->cfp, "invalid ParameterTypes <%s>\n", f->Name); + } + if (f->ParameterTests == PNONE) + { + /* OK */ + } + else + { + /* oops */ + fprintf (My->SYSOUT->cfp, "invalid ParameterTests <%s>\n", f->Name); + } + } + else + { + /* function HAS an explicit number of parameters */ + int i; + ParamTestType ParameterTests; + + ParameterTests = f->ParameterTests; + for (i = 0; i < f->ParameterCount; i++) + { + /* sanity check this parameter */ + ParamTestType thischeck; + thischeck = ParameterTests & 0x0000000F; + /* verify parameter check */ + if (f->ParameterTypes & (1 << i)) + { + /* STRING */ + if (thischeck >= P1ANY && thischeck <= P1DBL) + { + /* OK */ + } + else + { + /* oops */ + fprintf (My->SYSOUT->cfp, + "invalid ParameterTests <%s> parameter %d\n", f->Name, + i + 1); + } + } + else + { + /* NUMBER */ + if (thischeck >= P1ANY && thischeck <= P1NEZ) + { + /* OK */ + } + else + { + /* oops */ + fprintf (My->SYSOUT->cfp, + "invalid ParameterTests <%s> parameter %d\n", f->Name, + i + 1); + } + } + ParameterTests = ParameterTests >> 4; + } + if (ParameterTests != 0) + { + /* oops */ + fprintf (My->SYSOUT->cfp, "invalid ParameterTests <%s> parameter %d\n", + f->Name, i + 1); + } + } +} + +void +IntrinsicFunctionUniqueID (IntrinsicFunctionType * f, char *UniqueID) +{ + /* generate the function's UniqueID */ + /* manual fixup required for duplicates */ + char NumVar; + char StrVar; + + assert (f != NULL); + assert (UniqueID != NULL); + + + NumVar = 'X'; + StrVar = 'A'; + + /* F_ */ + bwb_strcpy (UniqueID, "F_"); + /* NAME */ + bwb_strcat (UniqueID, f->Name); + /* PARAMETERS */ + if (f->ParameterCount == PNONE || f->ParameterCount == 0xFF) + { + /* function has NO explicit parameters */ + } + else + { + /* function HAS explicit parameters */ + int i; + ParamBitsType ParameterTypes; + ParameterTypes = f->ParameterTypes; + for (i = 0; i < f->ParameterCount; i++) + { + char VarName[NameLengthMax + 1]; + if (ParameterTypes & 1) + { + /* STRING */ + sprintf (VarName, "_%c", StrVar); + StrVar++; + } + else + { + /* NUMBER */ + sprintf (VarName, "_%c", NumVar); + NumVar++; + } + bwb_strcat (UniqueID, VarName); + ParameterTypes = ParameterTypes >> 1; + } + } + /* RETURN TYPE */ + if (f->ReturnTypeCode == StringTypeCode) + { + bwb_strcat (UniqueID, "_S"); + } + else + { + bwb_strcat (UniqueID, "_N"); + } + /* fixup illegal characters, "DEF FN" "BLOAD:", "CLOAD*" */ + FixUp (UniqueID); +} + + +void +IntrinsicFunctionSyntax (IntrinsicFunctionType * f, char *Syntax) +{ + /* generate the function's Syntax */ + char NumVar; + char StrVar; + + assert (f != NULL); + assert (Syntax != NULL); + + + NumVar = 'X'; + StrVar = 'A'; + + /* RETURN TYPE */ + if (f->ReturnTypeCode == StringTypeCode) + { + bwb_strcpy (Syntax, "S$ = "); + } + else + { + bwb_strcpy (Syntax, "N = "); + } + /* NAME */ + bwb_strcat (Syntax, f->Name); + /* PARAMETERS */ + if (f->ParameterCount == PNONE) + { + /* function has NO explicit parameters */ + } + else if (f->ParameterCount == 0xFF) + { + /* function has a variable number of parameters */ + bwb_strcat (Syntax, "( ... )"); + } + else + { + /* function HAS explicit parameters */ + int i; + ParamBitsType ParameterTypes; + ParameterTypes = f->ParameterTypes; + + if (f->ReturnTypeCode == StringTypeCode) + { + bwb_strcat (Syntax, "( "); + } + else + { + bwb_strcat (Syntax, "( "); + } + + for (i = 0; i < f->ParameterCount; i++) + { + char VarName[NameLengthMax + 1]; + if (i > 0) + { + bwb_strcat (Syntax, ", "); + } + /* verify parameter check */ + if (ParameterTypes & 1) + { + /* STRING */ + sprintf (VarName, "%c$", StrVar); + StrVar++; + } + else + { + /* NUMBER */ + sprintf (VarName, "%c", NumVar); + NumVar++; + } + bwb_strcat (Syntax, VarName); + ParameterTypes = ParameterTypes >> 1; + } + if (f->ReturnTypeCode == StringTypeCode) + { + bwb_strcat (Syntax, " )"); + } + else + { + bwb_strcat (Syntax, " )"); + } + } +} + +void +DumpAllFunctionUniqueID (FILE * file) +{ + /* for the C maintainer */ + int i; + int j; + char LastUniqueID[NameLengthMax + 1]; + + assert (file != NULL); + + j = 0; + LastUniqueID[0] = NulChar; + + fprintf (file, "/* FUNCTIONS */\n"); + for (i = 0; i < NUM_FUNCTIONS; i++) + { + char UniqueID[NameLengthMax + 1]; + + IntrinsicFunctionUniqueID (&(IntrinsicFunctionTable[i]), UniqueID); + if (bwb_stricmp (LastUniqueID, UniqueID) != 0) + { + /* not a duplicate */ + char Syntax[NameLengthMax + 1]; + + bwb_strcpy (LastUniqueID, UniqueID); + j = j + 1; + IntrinsicFunctionSyntax (&(IntrinsicFunctionTable[i]), Syntax); + fprintf (file, "#define %-30s %3d /* %-30s */\n", UniqueID, j, Syntax); + } + } + fprintf (file, "#define NUM_FUNCTIONS %d\n", j); + fflush (file); +} + +void +DumpAllFunctionSwitch (FILE * file) +{ + /* for the C maintainer */ + int i; + + assert (file != NULL); + + + fprintf (file, "/* SWITCH */\n"); + fprintf (file, "switch( UniqueID )\n"); + fprintf (file, "{\n"); + for (i = 0; i < NUM_FUNCTIONS; i++) + { + char tbuf[MAINTAINER_BUFFER_LENGTH + 1]; /* DumpAllFunctionSwitch */ + + fprintf (file, "case "); + IntrinsicFunctionUniqueID (&(IntrinsicFunctionTable[i]), tbuf); + fprintf (file, "%s", tbuf); + fprintf (file, ":\n"); + fprintf (file, " break;\n"); + } + fprintf (file, "}\n"); + fflush (file); +} + +static const char *ParameterRangeID[16] = { + "P%dERR", + "P%dANY", + "P%dBYT", + "P%dINT", + "P%dLNG", + "P%dCUR", + "P%dFLT", + "P%dDBL", + "P%dDEV", + "P%dLEN", + "P%dPOS", + "P%dCOM", + "P%dLPT", + "P%dGTZ", + "P%dGEZ", + "P%dNEZ", +}; + +static const char *NumberVariableRange[16] = { + /* P1ERR */ " PARAMETER: %c is a number, INTERNAL ERROR", + /* P1ANY */ " PARAMETER: %c is a number", + /* P1BYT */ " PARAMETER: %c is a number, [0,255]", + /* P1INT */ " PARAMETER: %c is a number, [MININT,MAXINT]", + /* P1LNG */ " PARAMETER: %c is a number, [MINLNG,MAXLNG]", + /* P1CUR */ " PARAMETER: %c is a number, [MINCUR,MAXCUR]", + /* P1FLT */ " PARAMETER: %c is a number, [MINFLT,MAXFLT]", + /* P1DBL */ " PARAMETER: %c is a number, [MINDBL,MAXDBL]", + /* P1DEV */ " PARAMETER: %c is a number, RESERVED", + /* P1LEN */ " PARAMETER: %c is a number, [0,MAXLEN]", + /* P1POS */ " PARAMETER: %c is a number, [1,MAXLEN]", + /* P1COM */ " PARAMETER: %c is a number, RESERVED", + /* P1LPT */ " PARAMETER: %c is a number, RESERVED", + /* P1GTZ */ " PARAMETER: %c is a number, > 0", + /* P1GEZ */ " PARAMETER: %c is a number, >= 0", + /* P1NEZ */ " PARAMETER: %c is a number, <> 0", +}; + +static const char *StringVariableRange[16] = { + /* P1ERR */ " PARAMETER: %c$ is a string, INTERNAL ERROR", + /* P1ANY */ " PARAMETER: %c$ is a string, LEN >= 0", + /* P1BYT */ " PARAMETER: %c$ is a string, LEN >= 1", + /* P1INT */ " PARAMETER: %c$ is a string, LEN >= sizeof(INT)", + /* P1LNG */ " PARAMETER: %c$ is a string, LEN >= sizeof(LNG)", + /* P1CUR */ " PARAMETER: %c$ is a string, LEN >= sizeof(CUR)", + /* P1FLT */ " PARAMETER: %c$ is a string, LEN >= sizeof(FLT)", + /* P1DBL */ " PARAMETER: %c$ is a string, LEN >= sizeof(DBL)", + /* P1DEV */ " PARAMETER: %c$ is a string, RESERVED", + /* P1LEN */ " PARAMETER: %c$ is a string, RESERVED", + /* P1POS */ " PARAMETER: %c$ is a string, RESERVED", + /* P1COM */ " PARAMETER: %c$ is a string, RESERVED", + /* P1LPT */ " PARAMETER: %c$ is a string, RESERVED", + /* P1GTZ */ " PARAMETER: %c$ is a string, RESERVED", + /* P1GEZ */ " PARAMETER: %c$ is a string, RESERVED", + /* P1NEZ */ " PARAMETER: %c$ is a string, RESERVED", +}; + +void +DumpAllFuctionTableDefinitions (FILE * file) +{ + /* generate bwd_fun.c */ + int n; + + assert (file != NULL); + + + fprintf (file, "/* FUNCTION TABLE */\n"); + fprintf (file, "\n"); + fprintf (file, "#include \"bwbasic.h\"\n"); + fprintf (file, "\n"); + fprintf (file, + "IntrinsicFunctionType IntrinsicFunctionTable[ /* NUM_FUNCTIONS */ ] =\n"); + fprintf (file, "{\n"); + for (n = 0; n < NUM_FUNCTIONS; n++) + { + int i; + int j; + char tbuf[MAINTAINER_BUFFER_LENGTH + 1]; /* DumpAllFuctionTableDefinitions */ + char UniqueID[MAINTAINER_BUFFER_LENGTH + 1]; /* DumpAllFuctionTableDefinitions */ + char Syntax[MAINTAINER_BUFFER_LENGTH + 1]; /* DumpAllFuctionTableDefinitions */ + IntrinsicFunctionType *f; + + f = &(IntrinsicFunctionTable[n]); + + IntrinsicFunctionUniqueID (f, UniqueID); + IntrinsicFunctionSyntax (f, Syntax); + fprintf (file, "{\n"); + fprintf (file, " %s, /* UniqueID */\n", UniqueID); + fprintf (file, " \"%s\", /* Syntax */\n", Syntax); + fprintf (file, " "); + fprintf (file, "\""); + ProcessEscapeChars (f->Description, tbuf); + fprintf (file, "%s", tbuf); + fprintf (file, "\""); + fprintf (file, ", /* Description */\n"); + fprintf (file, " \"%s\", /* Name */\n", f->Name); + switch (f->ReturnTypeCode) + { + case ByteTypeCode: + fprintf (file, " %s, /* ReturnTypeCode */\n", "ByteTypeCode"); + break; + case IntegerTypeCode: + fprintf (file, " %s, /* ReturnTypeCode */\n", "IntegerTypeCode"); + break; + case LongTypeCode: + fprintf (file, " %s, /* ReturnTypeCode */\n", "LongTypeCode"); + break; + case CurrencyTypeCode: + fprintf (file, " %s, /* ReturnTypeCode */\n", "CurrencyTypeCode"); + break; + case SingleTypeCode: + fprintf (file, " %s, /* ReturnTypeCode */\n", "SingleTypeCode"); + break; + case DoubleTypeCode: + fprintf (file, " %s, /* ReturnTypeCode */\n", "DoubleTypeCode"); + break; + case StringTypeCode: + fprintf (file, " %s, /* ReturnTypeCode */\n", "StringTypeCode"); + break; + default: + fprintf (file, " %s, /* ReturnTypeCode */\n", "INTERNAL ERROR"); + break; + } + fprintf (file, " %d, /* ParameterCount */\n", f->ParameterCount); + if (f->ParameterCount == 0 || f->ParameterCount == 0xFF) + { + /* function has NO explicit parameters */ + fprintf (file, " %s, /* ParameterTypes */\n", "PNONE"); + fprintf (file, " %s, /* ParameterTests */\n", "PNONE"); + } + else + { + /* function has explicit parameters */ + bwb_strcpy (tbuf, " "); + for (i = 0; i < f->ParameterCount; i++) + { + ParamBitsType ParameterTypes; + ParameterTypes = f->ParameterTypes >> i; + ParameterTypes &= 0x1; + if (i > 0) + { + bwb_strcat (tbuf, " | "); + } + if (ParameterTypes) + { + sprintf (bwb_strchr (tbuf, NulChar), "P%dSTR", i + 1); + } + else + { + sprintf (bwb_strchr (tbuf, NulChar), "P%dNUM", i + 1); + } + } + bwb_strcat (tbuf, ", /* ParameterTypes */\n"); + fprintf (file, "%s", tbuf); + + + bwb_strcpy (tbuf, " "); + for (i = 0; i < f->ParameterCount; i++) + { + ParamTestType ParameterTests; + ParameterTests = f->ParameterTests >> (i * 4); + ParameterTests &= 0xF; + + if (i > 0) + { + bwb_strcat (tbuf, " | "); + } + sprintf (bwb_strchr (tbuf, 0), ParameterRangeID[ParameterTests], + i + 1); + /* Conversion may lose significant digits */ + } + bwb_strcat (tbuf, ", /* ParameterTests */\n"); + fprintf (file, "%s", tbuf); + } + bwb_strcpy (tbuf, " "); + j = 0; + for (i = 0; i < NUM_VERSIONS; i++) + { + if (f->OptionVersionBitmask & bwb_vertable[i].OptionVersionValue) + { + if (j > 0) + { + bwb_strcat (tbuf, " | "); + } + bwb_strcat (tbuf, bwb_vertable[i].ID); + j++; + } + } + bwb_strcat (tbuf, " /* OptionVersionBitmask */\n"); + fprintf (file, "%s", tbuf); + fprintf (file, "},\n"); + } + fprintf (file, "};\n"); + fprintf (file, "\n"); + fprintf (file, + "const size_t NUM_FUNCTIONS = sizeof( IntrinsicFunctionTable ) / sizeof( IntrinsicFunctionType );\n"); + fprintf (file, "\n"); + fflush (file); +} + +void +DumpOneFunctionSyntax (FILE * file, int IsXref, int n) +{ + IntrinsicFunctionType *f; + assert (file != NULL); + + + + if (n < 0 || n >= NUM_FUNCTIONS) + { + return; + } + f = &(IntrinsicFunctionTable[n]); + /* NAME */ + { + char UniqueID[MAINTAINER_BUFFER_LENGTH + 1]; /* DumpOneFunctionSyntax */ + char Syntax[MAINTAINER_BUFFER_LENGTH + 1]; /* DumpOneFunctionSyntax */ + + IntrinsicFunctionUniqueID (f, UniqueID); + IntrinsicFunctionSyntax (f, Syntax); + fprintf (file, " SYNTAX: %s\n", Syntax); + } + /* PARAMETERS */ + if (f->ParameterCount == PNONE || f->ParameterCount == 0xFF) + { + /* function has NO explicit parameters */ + } + else + { + /* function HAS explicit parameters */ + int i; + ParamBitsType ParameterTypes; + ParamTestType ParameterTests; + char NumVar; + char StrVar; + ParameterTypes = f->ParameterTypes; + ParameterTests = f->ParameterTests; + NumVar = 'X'; + StrVar = 'A'; + for (i = 0; i < f->ParameterCount; i++) + { + /* sanity check this parameter */ + unsigned long thischeck; + char tbuf[MAINTAINER_BUFFER_LENGTH + 1]; /* DumpOneFunctionSyntax */ + + thischeck = ParameterTests & 0x0000000F; + /* verify parameter check */ + if (ParameterTypes & 1) + { + /* STRING */ + sprintf (tbuf, StringVariableRange[thischeck], StrVar); + /* Conversion may lose significant digits */ + StrVar++; + } + else + { + /* NUMBER */ + sprintf (tbuf, NumberVariableRange[thischeck], NumVar); + /* Conversion may lose significant digits */ + NumVar++; + } + fprintf (file, "%s", tbuf); + fprintf (file, "\n"); + ParameterTypes = ParameterTypes >> 1; + ParameterTests = ParameterTests >> 4; + } + } + /* DESCRIPTION */ + { + FixDescription (file, "DESCRIPTION: ", f->Description); + } + /* COMPATIBILITY */ + if (IsXref) + { + int i; + fprintf (file, " VERSIONS:\n"); + for (i = 0; i < NUM_VERSIONS; i++) + { + char X; + if (f->OptionVersionBitmask & bwb_vertable[i].OptionVersionValue) + { + /* SUPPORTED */ + X = 'X'; + } + else + { + /* NOT SUPPORTED */ + X = '_'; + } + fprintf (file, " [%c] %s\n", X, bwb_vertable[i].Name); + } + } + + fflush (file); +} + +void +DumpAllFunctionSyntax (FILE * file, int IsXref, + OptionVersionType OptionVersionValue) +{ + /* for the C maintainer */ + int i; + + assert (file != NULL); + + + fprintf (file, + "============================================================\n"); + fprintf (file, + " FUNCTIONS \n"); + fprintf (file, + "============================================================\n"); + fprintf (file, "\n"); + fprintf (file, "\n"); + for (i = 0; i < NUM_FUNCTIONS; i++) + { + if (IntrinsicFunctionTable[i].OptionVersionBitmask & OptionVersionValue) + { + fprintf (file, + "------------------------------------------------------------\n"); + DumpOneFunctionSyntax (file, IsXref, i); + } + } + fprintf (file, + "------------------------------------------------------------\n"); + fprintf (file, "\n"); + fprintf (file, "\n"); + fflush (file); +} + +void +DumpAllFunctionHtmlTable (FILE * file) +{ + /* generate bwd_cmd.htm */ + int i; + int j; + + assert (file != NULL); + + + /* LEGEND */ + fprintf (file, "FNCS\n"); + fprintf (file, "

LEGEND


\n"); + fprintf (file, "\n"); + + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, "\n"); + + for (j = 0; j < NUM_VERSIONS; j++) + { + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, "\n"); + } + fprintf (file, "
"); + fprintf (file, ""); + fprintf (file, "ID"); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, "NAME"); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, "DESCRIPTION"); + fprintf (file, ""); + fprintf (file, "
"); + fprintf (file, "%s", bwb_vertable[j].ID); + fprintf (file, ""); + fprintf (file, "%s", bwb_vertable[j].Name); + fprintf (file, ""); + fprintf (file, "%s", bwb_vertable[j].Description); + fprintf (file, "
\n"); + fprintf (file, "
\n"); + + + /* DETAILS */ + fprintf (file, "

DETAILS


\n"); + fprintf (file, "\n"); + + fprintf (file, ""); + fprintf (file, ""); + for (j = 0; j < NUM_VERSIONS; j++) + { + fprintf (file, ""); + } + fprintf (file, "\n"); + + + /* run through the command table and print comand -vs- OPTION VERSION */ + + for (i = 0; i < NUM_FUNCTIONS; i++) + { + fprintf (file, ""); + fprintf (file, ""); + + for (j = 0; j < NUM_VERSIONS; j++) + { + fprintf (file, ""); + } + fprintf (file, "\n"); + } + fprintf (file, "
"); + fprintf (file, ""); + fprintf (file, "FUNCTION"); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, ""); + fprintf (file, "%s", bwb_vertable[j].ID); + fprintf (file, ""); + fprintf (file, "
"); + fprintf (file, "%s", (char *) IntrinsicFunctionTable[i].Syntax); + fprintf (file, ""); + if (IntrinsicFunctionTable[i].OptionVersionBitmask & bwb_vertable[j]. + OptionVersionValue) + { + fprintf (file, "X"); + } + else + { + fprintf (file, " "); + } + fprintf (file, "
\n"); + fprintf (file, "\n"); + fprintf (file, "\n"); + + fflush (file); +} + +/* +-------------------------------------------------------------------------------------------- + FNCS +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_FNCS (LineType * l) +{ + int n; + int t; + + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + + My->CurrentFile = My->SYSOUT; + fprintf (My->SYSOUT->cfp, "BWBASIC FUNCTIONS AVAILABLE:\n"); + + /* run through the command table and print comand names */ + + t = 0; + for (n = 0; n < NUM_FUNCTIONS; n++) + { + fprintf (My->SYSOUT->cfp, "%s", IntrinsicFunctionTable[n].Name); + if (t < 4) + { + fprintf (My->SYSOUT->cfp, "\t"); + t++; + } + else + { + fprintf (My->SYSOUT->cfp, "\n"); + t = 0; + } + } + if (t > 0) + { + fprintf (My->SYSOUT->cfp, "\n"); + } + ResetConsoleColumn (); + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + MAINTAINER +-------------------------------------------------------------------------------------------- +*/ +LineType * +bwb_MAINTAINER (LineType * l) +{ + + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_MAINTAINER_CMDS (LineType * l) +{ + + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_MAINTAINER_CMDS_HTML (LineType * l) +{ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + DumpAllCommandHtmlTable (My->SYSPRN->cfp); + return (l); +} + +LineType * +bwb_MAINTAINER_CMDS_ID (LineType * l) +{ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + DumpAllCommandUniqueID (My->SYSPRN->cfp); + return (l); +} + +LineType * +bwb_MAINTAINER_CMDS_MANUAL (LineType * l) +{ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + DumpAllCommandSyntax (My->SYSPRN->cfp, TRUE, (OptionVersionType)(-1)); + return (l); +} + +LineType * +bwb_MAINTAINER_CMDS_SWITCH (LineType * l) +{ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + DumpAllCommandSwitchStatement (My->SYSPRN->cfp); + return (l); +} + +LineType * +bwb_MAINTAINER_CMDS_TABLE (LineType * l) +{ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + DumpAllCommandTableDefinitions (My->SYSPRN->cfp); + return (l); +} + +LineType * +bwb_MAINTAINER_DEBUG (LineType * l) +{ + + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_MAINTAINER_DEBUG_ON (LineType * l) +{ + + assert (l != NULL); + return (l); +} + +LineType * +bwb_MAINTAINER_DEBUG_OFF (LineType * l) +{ + + assert (l != NULL); + return (l); +} + +LineType * +bwb_MAINTAINER_FNCS (LineType * l) +{ + + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_MAINTAINER_FNCS_HTML (LineType * l) +{ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + DumpAllFunctionHtmlTable (My->SYSPRN->cfp); + return (l); +} + +LineType * +bwb_MAINTAINER_FNCS_ID (LineType * l) +{ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + DumpAllFunctionUniqueID (My->SYSPRN->cfp); + return (l); +} + +LineType * +bwb_MAINTAINER_FNCS_MANUAL (LineType * l) +{ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + DumpAllFunctionSyntax (My->SYSPRN->cfp, TRUE, (OptionVersionType)(-1)); + DumpAllOperatorSyntax (My->SYSPRN->cfp, TRUE, (OptionVersionType)(-1)); + return (l); +} + +LineType * +bwb_MAINTAINER_FNCS_SWITCH (LineType * l) +{ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + DumpAllFunctionSwitch (My->SYSPRN->cfp); + return (l); +} + +LineType * +bwb_MAINTAINER_FNCS_TABLE (LineType * l) +{ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + DumpAllFuctionTableDefinitions (My->SYSPRN->cfp); + return (l); +} + +void +DumpHeader (FILE * file) +{ + char c; + + assert (file != NULL); + assert(My != NULL); + assert(My->CurrentVersion != NULL); + + fprintf (file, + "============================================================\n"); + fprintf (file, + " GENERAL \n"); + fprintf (file, + "============================================================\n"); + fprintf (file, "\n"); + fprintf (file, "\n"); + + fprintf (file, "OPTION VERSION \"%s\"\n", My->CurrentVersion->Name); + fprintf (file, "REM INTERNAL ID: %s\n", My->CurrentVersion->ID); + fprintf (file, "REM DESCRIPTION: %s\n", My->CurrentVersion->Description); + fprintf (file, "REM REFERENCE: %s\n", My->CurrentVersion->ReferenceTitle); + fprintf (file, "REM %s\n", + My->CurrentVersion->ReferenceAuthor); + fprintf (file, "REM %s\n", + My->CurrentVersion->ReferenceCopyright); + fprintf (file, "REM %s\n", My->CurrentVersion->ReferenceURL1); + fprintf (file, "REM %s\n", My->CurrentVersion->ReferenceURL2); + fprintf (file, "REM\n"); + + if (My->CurrentVersion->OptionFlags & (OPTION_STRICT_ON)) + { + fprintf (file, "OPTION STRICT ON\n"); + } + else + { + fprintf (file, "OPTION STRICT OFF\n"); + } + + if (My->CurrentVersion->OptionFlags & (OPTION_ANGLE_DEGREES)) + { + fprintf (file, "OPTION ANGLE DEGREES\n"); + } + else if (My->CurrentVersion->OptionFlags & (OPTION_ANGLE_GRADIANS)) + { + fprintf (file, "OPTION ANGLE GRADIANS\n"); + } + else + { + fprintf (file, "OPTION ANGLE RADIANS\n"); + } + + if (My->CurrentVersion->OptionFlags & (OPTION_BUGS_ON)) + { + fprintf (file, "OPTION BUGS ON\n"); + } + else + { + fprintf (file, "OPTION BUGS OFF\n"); + } + + if (My->CurrentVersion->OptionFlags & (OPTION_LABELS_ON)) + { + fprintf (file, "OPTION LABELS ON\n"); + } + else + { + fprintf (file, "OPTION LABELS OFF\n"); + } + + if (My->CurrentVersion->OptionFlags & (OPTION_COMPARE_TEXT)) + { + fprintf (file, "OPTION COMPARE TEXT\n"); + } + else + { + fprintf (file, "OPTION COMPARE BINARY\n"); + } + + if (My->CurrentVersion->OptionFlags & (OPTION_COVERAGE_ON)) + { + fprintf (file, "OPTION COVERAGE ON\n"); + } + else + { + fprintf (file, "OPTION COVERAGE OFF\n"); + } + + if (My->CurrentVersion->OptionFlags & (OPTION_TRACE_ON)) + { + fprintf (file, "OPTION TRACE ON\n"); + } + else + { + fprintf (file, "OPTION TRACE OFF\n"); + } + + if (My->CurrentVersion->OptionFlags & (OPTION_ERROR_GOSUB)) + { + fprintf (file, "OPTION ERROR GOSUB\n"); + } + else + { + fprintf (file, "OPTION ERROR GOTO\n"); + } + + if (My->CurrentVersion->OptionFlags & (OPTION_EXPLICIT_ON)) + { + fprintf (file, "OPTION EXPLICIT\n"); + } + else + { + fprintf (file, "OPTION IMPLICIT\n"); + } + + fprintf (file, "OPTION BASE %d\n", + My->CurrentVersion->OptionBaseInteger); + fprintf (file, "OPTION RECLEN %d\n", + My->CurrentVersion->OptionReclenInteger); + fprintf (file, "OPTION DATE \"%s\"\n", + My->CurrentVersion->OptionDateFormat); + fprintf (file, "OPTION TIME \"%s\"\n", + My->CurrentVersion->OptionTimeFormat); + + c = My->CurrentVersion->OptionStringChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT STRING \"%c\"\n", c); + + c = My->CurrentVersion->OptionDoubleChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT DOUBLE \"%c\"\n", c); + + c = My->CurrentVersion->OptionSingleChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT SINGLE \"%c\"\n", c); + + c = My->CurrentVersion->OptionCurrencyChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT CURRENCY \"%c\"\n", c); + + c = My->CurrentVersion->OptionLongChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT LONG \"%c\"\n", c); + + c = My->CurrentVersion->OptionIntegerChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT INTEGER \"%c\"\n", c); + + c = My->CurrentVersion->OptionByteChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT BYTE \"%c\"\n", c); + + c = My->CurrentVersion->OptionQuoteChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT QUOTE \"%c\"\n", c); + + c = My->CurrentVersion->OptionCommentChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT COMMENT \"%c\"\n", c); + + c = My->CurrentVersion->OptionStatementChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT STATEMENT \"%c\"\n", c); + + c = My->CurrentVersion->OptionPrintChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT PRINT \"%c\"\n", c); + + c = My->CurrentVersion->OptionInputChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT INPUT \"%c\"\n", c); + + c = My->CurrentVersion->OptionImageChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT IMAGE \"%c\"\n", c); + + c = My->CurrentVersion->OptionLparenChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT LPAREN \"%c\"\n", c); + + c = My->CurrentVersion->OptionRparenChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT RPAREN \"%c\"\n", c); + + c = My->CurrentVersion->OptionFilenumChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT FILENUM \"%c\"\n", c); + + c = My->CurrentVersion->OptionAtChar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION PUNCT AT \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingDigit; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING DIGIT \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingComma; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING COMMA \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingPeriod; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING PERIOD \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingPlus; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING PLUS \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingMinus; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING MINUS \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingExrad; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING EXRAD \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingDollar; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING DOLLAR \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingFiller; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING FILLER \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingLiteral; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING LITERAL \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingFirst; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING FIRST \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingAll; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING ALL \"%c\"\n", c); + + c = My->CurrentVersion->OptionUsingLength; + if (!bwb_isgraph (c)) + { + c = ' '; + }; + fprintf (file, "OPTION USING LENGTH \"%c\"\n", c); + + fprintf (file, "\n"); + fprintf (file, "\n"); + fflush (file); +} + +LineType * +bwb_MAINTAINER_MANUAL (LineType * l) +{ + + assert (l != NULL); + + DumpHeader (My->SYSPRN->cfp); + DumpAllCommandSyntax (My->SYSPRN->cfp, FALSE, + My->CurrentVersion->OptionVersionValue); + DumpAllFunctionSyntax (My->SYSPRN->cfp, FALSE, + My->CurrentVersion->OptionVersionValue); + DumpAllOperatorSyntax (My->SYSPRN->cfp, FALSE, + My->CurrentVersion->OptionVersionValue); + return (l); +} + +LineType * +bwb_MAINTAINER_STACK (LineType * l) +{ + /* + dump the current execution stack, + Leftmost is the top, + Rigthmost is the bottom. + */ + StackType *StackItem; + + assert (l != NULL); + + for (StackItem = My->StackHead; StackItem != NULL; + StackItem = StackItem->next) + { + LineType *l; + + l = StackItem->line; + if (l != NULL) + { + fprintf (My->SYSOUT->cfp, "%d:", l->number); + } + } + fprintf (My->SYSOUT->cfp, "\n"); + ResetConsoleColumn (); + return (l); +} + + +/*************************************************************** + + FUNCTION: IntrinsicFunction_init() + + DESCRIPTION: This command initializes the function + linked list, placing all predefined functions + in the list. + +***************************************************************/ + +int +IntrinsicFunction_init (void) +{ + int n; + + + for (n = 0; n < NUM_FUNCTIONS; n++) + { + IntrinsicFunctionDefinitionCheck (&(IntrinsicFunctionTable[n])); + } + return TRUE; +} + + + +VariableType * +IntrinsicFunction_deffn (int argc, VariableType * argv, UserFunctionType * f) +{ + /* + The generic handler for user defined functions. + When called by exp_function(), f->id will be set to the line number of a specific DEF USR. + */ + VariableType *v; + VariableType *argn; + int i; + LineType *call_line; + StackType *save_elevel; + + assert (argc >= 0); + assert (argv != NULL); + assert (f != NULL); + assert(My != NULL); + + /* initialize the variable if necessary */ + + /* these errors should not occur */ + if (f == NULL) + { + WARN_INTERNAL_ERROR; + return NULL; + } + if (f->line == NULL) + { + WARN_INTERNAL_ERROR; + return NULL; + } + if (argv == NULL) + { + WARN_INTERNAL_ERROR; + return NULL; + } + if (f->ParameterCount == 0xFF) + { + /* VARIANT */ + } + else if (argc != f->ParameterCount) + { + WARN_INTERNAL_ERROR; + return NULL; + } + if (f->ParameterCount == 0xFF) + { + /* VARIANT */ + f->local_variable = argv; + } + else if (argc > 0) + { + v = f->local_variable; + argn = argv; + for (i = 0; i < argc; i++) + { + argn = argn->next; + if (v == NULL) + { + WARN_INTERNAL_ERROR; + return NULL; + } + if (argn == NULL) + { + WARN_INTERNAL_ERROR; + return NULL; + } + if (VAR_IS_STRING (v) != VAR_IS_STRING (argn)) + { + WARN_INTERNAL_ERROR; + return NULL; + } + if (is_empty_string (v->name) == FALSE) + { + int IsError; + IsError = 0; + switch (v->VariableTypeCode) + { + case ByteTypeCode: + IsError = NumberValueCheck (P1BYT, PARAM_NUMBER); + break; + case IntegerTypeCode: + IsError = NumberValueCheck (P1INT, PARAM_NUMBER); + break; + case LongTypeCode: + IsError = NumberValueCheck (P1LNG, PARAM_NUMBER); + break; + case CurrencyTypeCode: + IsError = NumberValueCheck (P1CUR, PARAM_NUMBER); + break; + case SingleTypeCode: + IsError = NumberValueCheck (P1FLT, PARAM_NUMBER); + break; + case DoubleTypeCode: + IsError = NumberValueCheck (P1DBL, PARAM_NUMBER); + break; + case StringTypeCode: + IsError = StringLengthCheck (P1ANY, PARAM_LENGTH); + break; + default: + WARN_TYPE_MISMATCH; + return NULL; + } + if (IsError != 0) + { + WARN_ILLEGAL_FUNCTION_CALL; + return argv; + } + } + v = v->next; + } + } + /* OK */ + call_line = f->line; /* line to call for function */ + call_line->position = f->startpos; + + if (call_line->cmdnum == C_DEF) + { + if (line_skip_EqualChar (call_line) == FALSE) + { + WARN_INTERNAL_ERROR; + return NULL; + } + } +/* PUSH STACK */ + + save_elevel = My->StackHead; + if (bwb_incexec ()) + { + /* OK */ + My->StackHead->line = call_line; + My->StackHead->ExecCode = EXEC_FUNCTION; + } + else + { + /* ERROR */ + WARN_OUT_OF_MEMORY; + return NULL; + } + + + /* create variable chain */ + if (f->ParameterCount == 0xFF) + { + /* VARIANT */ + } + else if (argc > 0) + { + VariableType *source = NULL; /* source variable */ + source = f->local_variable; + argn = argv; + for (i = 0; i < argc; i++) + { + argn = argn->next; + /* copy the name */ + bwb_strcpy (argn->name, source->name); + + if (VAR_IS_STRING (source)) + { + } + else + { + int IsError; + double Value; + VariantType variant; + CLEAR_VARIANT (&variant); + + if (var_get (argn, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return NULL; + } + if (variant.VariantTypeCode == StringTypeCode) + { + WARN_TYPE_MISMATCH; + return NULL; + } + Value = variant.Number; + IsError = 0; + switch (source->VariableTypeCode) + { + case ByteTypeCode: + IsError = NumberValueCheck (P1BYT, Value); + Value = bwb_rint (Value); + break; + case IntegerTypeCode: + IsError = NumberValueCheck (P1INT, Value); + Value = bwb_rint (Value); + break; + case LongTypeCode: + IsError = NumberValueCheck (P1LNG, Value); + Value = bwb_rint (Value); + break; + case CurrencyTypeCode: + IsError = NumberValueCheck (P1CUR, Value); + Value = bwb_rint (Value); + break; + case SingleTypeCode: + IsError = NumberValueCheck (P1FLT, Value); + break; + case DoubleTypeCode: + IsError = NumberValueCheck (P1DBL, Value); + break; + case StringTypeCode: + WARN_TYPE_MISMATCH; + return NULL; + /* break; */ + default: + WARN_TYPE_MISMATCH; + return NULL; + } + if (IsError != 0) + { + WARN_ILLEGAL_FUNCTION_CALL; + return argv; + } + variant.Number = Value; + if (var_set (argn, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return NULL; + } + } + source = source->next; + } + } + if (call_line->cmdnum == C_DEF) + { + VariantType x; + VariantType *X; + + X = &x; + CLEAR_VARIANT (X); + /* the function return variable is hidden */ + My->StackHead->local_variable = argv->next; + /* var_islocal() uses the LoopTopLine to find local variables */ + My->StackHead->LoopTopLine = call_line; /* FUNCTION, SUB */ + + /* evaluate the expression */ + if (line_read_expression (call_line, X) == FALSE) /* IntrinsicFunction_deffn */ + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + + /* save the value */ + switch (X->VariantTypeCode) + { + case ByteTypeCode: + case IntegerTypeCode: + case LongTypeCode: + case CurrencyTypeCode: + case SingleTypeCode: + case DoubleTypeCode: + if (argv->VariableTypeCode == StringTypeCode) + { + WARN_TYPE_MISMATCH; + goto EXIT; + } + /* OK */ + { + int IsError; + double Value; + + IsError = 0; + Value = X->Number; + /* VerifyNumeric */ + if (isnan (Value)) + { + /*** FATAL - INTERNAL ERROR - SHOULD NEVER HAPPEN ***/ + WARN_INTERNAL_ERROR; + return FALSE; + } + if (isinf (Value)) + { + /* - Evaluation of an expression results in an overflow + * (nonfatal, the recommended recovery procedure is to supply + * machine in- finity with the algebraically correct sign and + * continue). */ + if (Value < 0) + { + Value = MINDBL; + } + else + { + Value = MAXDBL; + } + if (WARN_OVERFLOW) + { + /* ERROR */ + goto EXIT; + } + /* CONTINUE */ + } + /* OK */ + switch (argv->VariableTypeCode) + { + case ByteTypeCode: + IsError = NumberValueCheck (P1BYT, Value); + Value = bwb_rint (Value); + break; + case IntegerTypeCode: + IsError = NumberValueCheck (P1INT, Value); + Value = bwb_rint (Value); + break; + case LongTypeCode: + IsError = NumberValueCheck (P1LNG, Value); + Value = bwb_rint (Value); + break; + case CurrencyTypeCode: + IsError = NumberValueCheck (P1CUR, Value); + Value = bwb_rint (Value); + break; + case SingleTypeCode: + IsError = NumberValueCheck (P1FLT, Value); + break; + case DoubleTypeCode: + IsError = NumberValueCheck (P1DBL, Value); + break; + default: + WARN_TYPE_MISMATCH; + goto EXIT; + /* break; */ + } + if (IsError != 0) + { + if (WARN_OVERFLOW) + { + /* ERROR */ + goto EXIT; + } + /* CONTINUE */ + } + /* assign Value */ + RESULT_NUMBER = Value; + } + break; + case StringTypeCode: + if (argv->VariableTypeCode != StringTypeCode) + { + WARN_TYPE_MISMATCH; + goto EXIT; + } + /* OK */ + if (RESULT_BUFFER != My->MaxLenBuffer) + { + WARN_INTERNAL_ERROR; + goto EXIT; + } + if (X->Length > MAXLEN) + { + WARN_STRING_TOO_LONG; /* IntrinsicFunction_deffn */ + X->Length = MAXLEN; + } + bwb_memcpy (RESULT_BUFFER, X->Buffer, X->Length); + RESULT_LENGTH = X->Length; + break; + default: + WARN_TYPE_MISMATCH; + goto EXIT; + /* break; */ + } + EXIT: + RELEASE_VARIANT (X); + + + /* break variable chain */ + My->StackHead->local_variable = NULL; + + + +/* POP STACK */ + bwb_decexec (); + + } + else + { + /* the function return variable is visible */ + My->StackHead->local_variable = argv; + /* var_islocal() uses the LoopTopLine to find local variables */ + My->StackHead->LoopTopLine = call_line; /* FUNCTION, SUB */ + /* execute until function returns */ + while (My->StackHead != save_elevel) + { + bwb_execline (); + } + } + + if (f->ParameterCount == 0xFF) + { + /* VARIANT */ + f->local_variable = NULL; + } + + if (is_empty_string (argv->name) == FALSE) + { + int IsError; + + IsError = 0; + switch (argv->VariableTypeCode) + { + case ByteTypeCode: + IsError = NumberValueCheck (P1BYT, RESULT_NUMBER); + break; + case IntegerTypeCode: + IsError = NumberValueCheck (P1INT, RESULT_NUMBER); + break; + case LongTypeCode: + IsError = NumberValueCheck (P1LNG, RESULT_NUMBER); + break; + case CurrencyTypeCode: + IsError = NumberValueCheck (P1CUR, RESULT_NUMBER); + break; + case SingleTypeCode: + IsError = NumberValueCheck (P1FLT, RESULT_NUMBER); + break; + case DoubleTypeCode: + IsError = NumberValueCheck (P1DBL, RESULT_NUMBER); + break; + case StringTypeCode: + IsError = StringLengthCheck (P1ANY, RESULT_LENGTH); + break; + default: + /* no check */ + break; + } + if (IsError != 0) + { + if (WARN_OVERFLOW) + { + /* ERROR */ + } + /* CONTINUE */ + } + } + return argv; +} + +/*************************************************************** + + FUNCTION: IntrinsicFunction_find() + + DESCRIPTION: This C function attempts to locate + a BASIC function with the specified name. + If successful, it returns a pointer to + the C structure for the BASIC function, + if not successful, it returns NULL. + +***************************************************************/ + +extern int +IntrinsicFunction_name (char *name) +{ + /* search INTRINSIC functions */ + IntrinsicFunctionType *f; + int i; + + assert (name != NULL); + assert(My != NULL); + assert(My->CurrentVersion != NULL); + + +#if THE_PRICE_IS_RIGHT + /* start with the closest function, without going over */ + i = VarTypeIndex (name[0]); + if (i < 0) + { + /* non-alpha */ + return FALSE; + } + i = My->IntrinsicFunctionStart[i]; /* first function starting with this letter */ + if (i < 0) + { + /* NOT FOUND */ + return FALSE; + } +#else /* THE_PRICE_IS_RIGHT */ + i = 0; +#endif /* THE_PRICE_IS_RIGHT */ + for (; i < NUM_FUNCTIONS; i++) + { + f = &IntrinsicFunctionTable[i]; + if (My->CurrentVersion->OptionVersionValue & f->OptionVersionBitmask) + { + int result; + + result = bwb_stricmp (f->Name, name); + + if (result == 0) + { + /* FOUND */ + return TRUE; + } + if (result > 0 /* found > searched */ ) + { + /* NOT FOUND */ + return FALSE; + } + } + } + /* NOT FOUND */ + return FALSE; +} + + +IntrinsicFunctionType * +IntrinsicFunction_find_exact (char *name, int ParameterCount, + ParamBitsType ParameterTypes) +{ + IntrinsicFunctionType *f; + int i; + + assert (name != NULL); + assert(My != NULL); + assert(My->CurrentVersion != NULL); + + /* search INTRINSIC functions */ +#if THE_PRICE_IS_RIGHT + /* start with the closest function, without going over */ + i = VarTypeIndex (name[0]); + if (i < 0) + { + /* non-alpha */ + return NULL; + } + i = My->IntrinsicFunctionStart[i]; /* first function starting with this letter */ + if (i < 0) + { + /* NOT FOUND */ + return NULL; + } +#else /* THE_PRICE_IS_RIGHT */ + i = 0; +#endif /* THE_PRICE_IS_RIGHT */ + for (; i < NUM_FUNCTIONS; i++) + { + f = &IntrinsicFunctionTable[i]; + if (My->CurrentVersion->OptionVersionValue & f->OptionVersionBitmask) + { + if (f->ParameterCount == ParameterCount) + { + if (f->ParameterTypes == ParameterTypes) + { + int result; + + result = bwb_stricmp (f->Name, name); + + if (result == 0) + { + /* FOUND */ + return f; + } + if (result > 0 /* found > searched */ ) + { + /* NOT FOUND */ + return NULL; + } + } + } + } + } + /* NOT FOUND */ + return NULL; +} + +static VariableType * +find_variable_by_type (char *name, int dimensions, char VariableTypeCode) +{ + VariableType *v = NULL; + + assert (name != NULL); + + v = var_find (name, dimensions, FALSE); + if (v) + { + if (VAR_IS_STRING (v)) + { + if (VariableTypeCode == StringTypeCode) + { + /* found */ + return v; + } + } + else + { + if (VariableTypeCode != StringTypeCode) + { + /* found */ + return v; + } + } + } + /* not found */ + return NULL; +} + +/* +-------------------------------------------------------------------------------------------- + CHANGE +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_CHANGE (LineType * l) +{ + /* SYNTAX: CHANGE A$ TO X */ + /* SYNTAX: CHANGE X TO A$ */ + char varname[NameLengthMax + 1]; + VariableType *v; + VariableType *A; + VariableType *X; + int IsStringToArray; + + assert (l != NULL); + + v = NULL; + A = NULL; + X = NULL; + IsStringToArray = FALSE; + + /* get 1st variable */ + if (line_read_varname (l, varname) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + v = find_variable_by_type (varname, 0, StringTypeCode); + if (v) + { + /* STRING to ARRAY */ + A = v; + IsStringToArray = TRUE; + } + else + { + /* ARRAY to STRING */ + v = find_variable_by_type (varname, 1, DoubleTypeCode); + if (v) + { + X = v; + IsStringToArray = FALSE; + } + } + if (v == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + /* get "TO" */ + if (line_skip_word (l, "TO") == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* get 2nd variable */ + if (line_read_varname (l, varname) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if (IsStringToArray) + { + /* STRING to ARRAY */ + v = find_variable_by_type (varname, 1, DoubleTypeCode); + if (v == NULL) + { + v = var_find (varname, 1, TRUE); + } + if (v) + { + X = v; + } + } + else + { + /* ARRAY to STRING */ + v = find_variable_by_type (varname, 0, StringTypeCode); + if (v == NULL) + { + v = var_find (varname, 0, TRUE); + } + if (v) + { + A = v; + } + } + + if (v == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + assert(A != NULL); + assert(X != NULL); + if (IsStringToArray) + { + /* CHANGE A$ TO X */ + int i; + int n; + char *a; + DoubleType *x; + unsigned long t; + + if (A->Value.String == NULL) + { + WARN_INTERNAL_ERROR; + return (l); + } + if (A->Value.String->sbuffer == NULL) + { + WARN_INTERNAL_ERROR; + return (l); + } + /* variable storage is a mess, we bypass that tradition here. */ + t = 1; + for (n = 0; n < X->dimensions; n++) + { + t *= X->UBOUND[n] - X->LBOUND[n] + 1; + } + if (t <= A->Value.String->length) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + n = A->Value.String->length; + a = A->Value.String->sbuffer; + x = X->Value.Number; + *x = n; + x++; + for (i = 0; i < n; i++) + { + char C; + DoubleType V; + + C = *a; + V = C; + *x = V; + x++; + a++; + } + } + else + { + /* CHANGE X TO A$ */ + int i; + int n; + char *a; + DoubleType *x; + unsigned long t; + + /* variable storage is a mess, we bypass that tradition here. */ + t = 1; + for (n = 0; n < X->dimensions; n++) + { + t *= X->UBOUND[n] - X->LBOUND[n] + 1; + } + if (t <= 1) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + if (t > MAXLEN) + { + WARN_STRING_TOO_LONG; /* bwb_CHANGE */ + t = MAXLEN; + } + if (A->Value.String == NULL) + { + if ((A->Value.String = + (StringType *) calloc (1, sizeof (StringType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return (l); + } + A->Value.String->sbuffer = NULL; + A->Value.String->length = 0; + } + if (A->Value.String->sbuffer != NULL) + { + free (A->Value.String->sbuffer); + A->Value.String->sbuffer = NULL; + A->Value.String->length = 0; + } + if (A->Value.String->sbuffer == NULL) + { + A->Value.String->length = 0; + if ((A->Value.String->sbuffer = + (char *) calloc (t + 1 /* NulChar */ , sizeof (char))) == NULL) + { + WARN_OUT_OF_MEMORY; + return (l); + } + } + a = A->Value.String->sbuffer; + x = X->Value.Number; + n = (int) bwb_rint (*x); + if (n > MAXLEN) + { + WARN_STRING_TOO_LONG; /* bwb_CHANGE */ + n = MAXLEN; + } + A->Value.String->length = n; + x++; + for (i = 0; i < n; i++) + { + char C; + DoubleType V; + + V = *x; + C = V; + *a = C; + x++; + a++; + } + } + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + CONSOLE +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_CONSOLE (LineType * l) +{ + /* SYNTAX: CONSOLE */ + /* SYNTAX: CONSOLE WIDTH width */ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + assert(My->SYSOUT != NULL); + assert(My->SYSOUT->cfp != NULL); + + + if (My->IsPrinter == TRUE) + { + /* reset printer column */ + if (My->SYSPRN->col != 1) + { + fputc ('\n', My->SYSPRN->cfp); + My->SYSPRN->col = 1; + } + My->IsPrinter = FALSE; + } + if (line_skip_word (l, "WIDTH")) + { + int width; + + width = 0; + if (line_read_integer_expression (l, &width) == FALSE) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + if (width < 0) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + My->SYSOUT->width = width; + } + + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + LPRINTER +-------------------------------------------------------------------------------------------- +*/ + + +LineType * +bwb_LPRINTER (LineType * l) +{ + /* SYNTAX: LPRINTER */ + /* SYNTAX: LPRINTER WIDTH width */ + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSPRN != NULL); + assert(My->SYSPRN->cfp != NULL); + assert(My->SYSOUT != NULL); + assert(My->SYSOUT->cfp != NULL); + + + if (My->IsPrinter == FALSE) + { + /* reset console column */ + if (My->SYSOUT->col != 1) + { + fputc ('\n', My->SYSOUT->cfp); + My->SYSOUT->col = 1; + } + My->IsPrinter = TRUE; + } + if (line_skip_word (l, "WIDTH")) + { + int width; + + width = 0; + if (line_read_integer_expression (l, &width) == FALSE) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + if (width < 0) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + My->SYSPRN->width = width; + } + return (l); +} + +extern void +bwb_fclose (FILE * file) +{ + if (file == NULL) + { + /* don't close */ + } + else if (file == stdin) + { + /* don't close */ + } + else if (file == stdout) + { + /* don't close */ + } + else if (file == stderr) + { + /* don't close */ + } + else + { + fclose (file); + } +} +LineType * +bwb_LPT (LineType * l) +{ + /* SYNTAX: LPT */ + /* SYNTAX: LPT filename$ */ + FILE *file; + char *filename; + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSOUT != NULL); + assert(My->SYSOUT->cfp != NULL); + + + file = NULL; + filename = NULL; + if (line_is_eol (l)) + { + /* OK */ + file = stderr; + } + else if (line_read_string_expression (l, &filename)) + { + /* OK */ + if (is_empty_string (filename)) + { + WARN_BAD_FILE_NAME; + return (l); + } + file = fopen (filename, "w"); + free (filename); + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + if (file == NULL) + { + WARN_BAD_FILE_NAME; + return (l); + } + bwb_fclose (My->SYSOUT->cfp); + My->SYSOUT->cfp = file; + return (l); +} + +LineType * +bwb_PTP (LineType * l) +{ + /* SYNTAX: PTP */ + /* SYNTAX: PTP filename$ */ + FILE *file; + char *filename; + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSOUT != NULL); + assert(My->SYSOUT->cfp != NULL); + + file = NULL; + filename = NULL; + if (line_is_eol (l)) + { + /* OK */ + file = fopen ("PTP", "w"); + } + else if (line_read_string_expression (l, &filename)) + { + /* OK */ + if (is_empty_string (filename)) + { + WARN_BAD_FILE_NAME; + return (l); + } + file = fopen (filename, "w"); + free (filename); + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + if (file == NULL) + { + WARN_BAD_FILE_NAME; + return (l); + } + bwb_fclose (My->SYSOUT->cfp); + My->SYSOUT->cfp = file; + return (l); +} + +LineType * +bwb_PTR (LineType * l) +{ + /* SYNTAX: PTR */ + /* SYNTAX: PTR filename$ */ + FILE *file; + char *filename; + + assert (l != NULL); + assert(My != NULL); + assert(My->SYSIN != NULL); + assert(My->SYSIN->cfp != NULL); + + file = NULL; + filename = NULL; + if (line_is_eol (l)) + { + /* OK */ + file = fopen ("PTR", "r"); + } + else if (line_read_string_expression (l, &filename)) + { + /* OK */ + if (is_empty_string (filename)) + { + WARN_BAD_FILE_NAME; + return (l); + } + file = fopen (filename, "r"); + free (filename); + } + else + { + WARN_SYNTAX_ERROR; + return (l); + } + if (file == NULL) + { + WARN_BAD_FILE_NAME; + return (l); + } + bwb_fclose (My->SYSIN->cfp); + My->SYSIN->cfp = file; + return (l); +} + +LineType * +bwb_TTY (LineType * l) +{ + /* SYNTAX: TTY */ + assert (l != NULL); + + bwb_TTY_IN (l); + bwb_TTY_OUT (l); + return (l); +} + +LineType * +bwb_TTY_IN (LineType * l) +{ + /* SYNTAX: TTY IN */ + assert (l != NULL); + assert(My != NULL); + assert(My->SYSIN != NULL); + assert(My->SYSIN->cfp != NULL); + + bwb_fclose (My->SYSIN->cfp); + My->SYSIN->cfp = stdin; + return (l); +} + +LineType * +bwb_TTY_OUT (LineType * l) +{ + /* SYNTAX: TTY OUT */ + assert (l != NULL); + assert(My != NULL); + assert(My->SYSOUT != NULL); + assert(My->SYSOUT->cfp != NULL); + + bwb_fclose (My->SYSOUT->cfp); + My->SYSOUT->cfp = stdout; + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + CREATE +-------------------------------------------------------------------------------------------- +*/ + +LineType * +bwb_CREATE (LineType * l) +{ + /* SYNTAX: CREATE filename$ [ RECL reclen ] AS filenum [ BUFF number ] [ RECS size ] */ + int FileNumber; + int width; + int buffnum; + int recsnum; + char *filename; + + assert (l != NULL); + assert(My != NULL); + + + FileNumber = 0; + width = 0; + buffnum = 0; + recsnum = 0; + filename = NULL; + if (line_read_string_expression (l, &filename) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (is_empty_string (filename)) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (line_skip_word (l, "RECL")) + { + if (line_read_integer_expression (l, &width) == FALSE) + { + WARN_FIELD_OVERFLOW; + return (l); + } + if (width <= 0) + { + WARN_FIELD_OVERFLOW; + return (l); + } + } + if (line_skip_word (l, "AS") == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_integer_expression (l, &FileNumber) == FALSE) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (FileNumber <= 0) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (line_skip_word (l, "BUFF")) + { + if (line_read_integer_expression (l, &buffnum) == FALSE) + { + WARN_FIELD_OVERFLOW; + return (l); + } + if (buffnum <= 0) + { + WARN_FIELD_OVERFLOW; + return (l); + } + } + if (line_skip_word (l, "RECS")) + { + if (line_read_integer_expression (l, &recsnum) == FALSE) + { + WARN_FIELD_OVERFLOW; + return (l); + } + if (recsnum <= 0) + { + WARN_FIELD_OVERFLOW; + return (l); + } + } + /* now, we are ready to create the file */ + My->CurrentFile = find_file_by_number (FileNumber); + if (My->CurrentFile == NULL) + { + My->CurrentFile = file_new (); + My->CurrentFile->FileNumber = FileNumber; + } + if (My->CurrentFile->FileName != NULL) + { + free (My->CurrentFile->FileName); + My->CurrentFile->FileName = NULL; + } + My->CurrentFile->FileName = filename; + filename = NULL; + if (My->CurrentFile->DevMode != DEVMODE_CLOSED) + { + My->CurrentFile->DevMode = DEVMODE_CLOSED; + } + if (My->CurrentFile->cfp != NULL) + { + bwb_fclose (My->CurrentFile->cfp); + My->CurrentFile->cfp = NULL; + } + if (My->CurrentFile->buffer != NULL) + { + free (My->CurrentFile->buffer); + My->CurrentFile->buffer = NULL; + } + My->CurrentFile->width = 0; + My->CurrentFile->col = 1; + My->CurrentFile->row = 1; + My->CurrentFile->delimit = ','; + /* truncate to zero length or create text file for update (reading and writing) */ + if (is_empty_string (My->CurrentFile->FileName)) + { + WARN_BAD_FILE_NAME; + return (l); + } + if ((My->CurrentFile->cfp = + fopen (My->CurrentFile->FileName, "w+")) == NULL) + { + WARN_BAD_FILE_NAME; + return (l); + } + if (width > 0) + { + My->CurrentFile->width = width; + My->CurrentFile->DevMode = DEVMODE_RANDOM; + } + else + { + My->CurrentFile->DevMode = DEVMODE_INPUT | DEVMODE_OUTPUT; + } + return (l); +} + +/* +-------------------------------------------------------------------------------------------- + COPY +-------------------------------------------------------------------------------------------- +*/ + +static void +bwb_copy_file (char *Source, char *Target) +{ + FILE *source; + FILE *target; + + source = NULL; + target = NULL; + + if (is_empty_string (Source)) + { + WARN_BAD_FILE_NAME; + goto EXIT; + } + if (is_empty_string (Target)) + { + WARN_BAD_FILE_NAME; + goto EXIT; + } + source = fopen (Source, "rb"); + if (source == NULL) + { + WARN_BAD_FILE_NAME; + goto EXIT; + } + target = fopen (Target, "wb"); + if (target == NULL) + { + WARN_BAD_FILE_NAME; + goto EXIT; + } + /* OK */ + while (TRUE) + { + int C; + + C = fgetc (source); + if (C < 0 /* EOF */ || feof (source) || ferror (source)) + { + break; + } + fputc (C, target); + if (ferror (target)) + { + break; + } + } + /* DONE */ +EXIT: + if (source) + { + fclose (source); + } + if (target) + { + fclose (target); + } +} + +LineType * +bwb_COPY (LineType * Line) +{ + /* SYNTAX: COPY source$ TO target$ */ + char *Source; + char *Target; + + assert (Line != NULL); + + Source = NULL; + Target = NULL; + if (line_read_string_expression (Line, &Source) == FALSE) + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + if (line_skip_word (Line, "TO") == FALSE) + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + if (line_read_string_expression (Line, &Target) == FALSE) + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + bwb_copy_file (Source, Target); +EXIT: + if (Source) + { + free (Source); + } + if (Target) + { + free (Target); + } + return (Line); +} + +/* +-------------------------------------------------------------------------------------------- + DISPLAY +-------------------------------------------------------------------------------------------- +*/ + +static void +bwb_display_file (char *Source) +{ + FILE *source; + + assert (My->SYSOUT != NULL); + assert (My->SYSOUT->cfp != NULL); + + source = NULL; + + if (is_empty_string (Source)) + { + WARN_BAD_FILE_NAME; + goto EXIT; + } + source = fopen (Source, "rb"); + if (source == NULL) + { + WARN_BAD_FILE_NAME; + goto EXIT; + } + /* OK */ + while (TRUE) + { + int C; + + C = fgetc (source); + if (C < 0 /* EOF */ || feof (source) || ferror (source)) + { + break; + } + fputc (C, My->SYSOUT->cfp); + } + /* DONE */ +EXIT: + if (source) + { + fclose (source); + } +} + +LineType * +bwb_DISPLAY (LineType * Line) +{ + /* SYNTAX: DISPLAY source$ */ + char *Source; + + assert (Line != NULL); + Source = NULL; + if (line_read_string_expression (Line, &Source) == FALSE) + { + WARN_SYNTAX_ERROR; + goto EXIT; + } + bwb_display_file (Source); +EXIT: + if (Source) + { + free (Source); + } + return (Line); +} + +/* +-------------------------------------------------------------------------------------------- + EOF +-------------------------------------------------------------------------------------------- +*/ + + + +/* EOF */ diff --git a/Junk/bwb_var.c b/Junk/bwb_var.c new file mode 100644 index 0000000..2e90020 --- /dev/null +++ b/Junk/bwb_var.c @@ -0,0 +1,5068 @@ +/*************************************************************** + + bwb_var.c Variable-Handling Routines + for Bywater BASIC Interpreter + + Copyright (c) 1993, Ted A. Campbell + Bywater Software + + email: tcamp@delphi.com + + Copyright and Permissions Information: + + All U.S. and international rights are claimed by the author, + Ted A. Campbell. + + This software is released under the terms of the GNU General + Public License (GPL), which is distributed with this software + in the file "COPYING". The GPL specifies the terms under + which users may copy and use the software in this distribution. + + A separate license is available for commercial distribution, + for information on which you should contact the author. + +***************************************************************/ + +/*---------------------------------------------------------------*/ +/* NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, */ +/* 11/1995 (eidetics@cerf.net). */ +/* */ +/* Those additionally marked with "DD" were at the suggestion of */ +/* Dale DePriest (daled@cadence.com). */ +/* */ +/* Version 3.00 by Howard Wulf, AF5NE */ +/* */ +/* Version 3.10 by Howard Wulf, AF5NE */ +/* */ +/* Version 3.20 by Howard Wulf, AF5NE */ +/* */ +/*---------------------------------------------------------------*/ + + + +#include "bwbasic.h" + + +/* Prototypes for functions visible to this file only */ + +static void clear_virtual (VirtualType * Z); +static void clear_virtual_by_variable (VariableType * Variable); +static int dim_check (VariableType * variable); +static size_t dim_unit (VariableType * v, int *pp); +static LineType *dio_lrset (LineType * l, int rset); +static void field_clear (FieldType * Field); +static FieldType *field_new (void); +static VirtualType *find_virtual_by_variable (VariableType * Variable); +static LineType *internal_swap (LineType * l); +static VariableType *mat_islocal (char *buffer); +static VirtualType *new_virtual (void); +static int var_defx (LineType * l, int TypeCode); +static VariableType *var_islocal (char *buffer, int dimensions); +static void var_link_new_variable (VariableType * v); + +extern int +var_init (void) +{ + assert( My != NULL ); + + My->VariableHead = NULL; + + return TRUE; +} + +extern LineType * +bwb_COMMON (LineType * l) +{ + /* + SYNTAX: COMMON scalar + SYNTAX: COMMON matrix( dimnesions ) ' COMMON A(1), B(2), C(3) + SYNTAX: COMMON matrix( [, [,]] ) ' COMMON A(), B(,), C(,,) + */ + + assert (l != NULL); + + do + { + int dimensions; + VariableType *variable; + char varname[NameLengthMax + 1]; + + dimensions = 0; + /* get variable name and find variable */ + if (line_read_varname (l, varname) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_skip_LparenChar (l)) + { + line_skip_spaces (l); /* keep this */ + if (bwb_isdigit (l->buffer[l->position])) + { + /* COMMON A(3) : DIM A( 5, 10, 20 ) */ + if (line_read_integer_expression (l, &dimensions) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + } + else + { + /* COMMON A(,,) : DIM A( 5, 10, 20 ) */ + dimensions++; + while (line_skip_seperator (l)) + { + dimensions++; + } + } + if (line_skip_RparenChar (l) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + } + if ((variable = var_find (varname, dimensions, TRUE)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + /* mark as COMMON */ + variable->VariableFlags |= VARIABLE_COMMON; + } + while (line_skip_seperator (l)); + + return (l); +} + +extern LineType * +bwb_ERASE (LineType * l) +{ + /* + SYNTAX: ERASE variable [, ...] ' ERASE A, B, C + */ + + assert (l != NULL); + assert( My != NULL ); + + do + { + char varname[NameLengthMax + 1]; + + /* get variable name and find variable */ + + if (line_read_varname (l, varname)) + { + /* erase all matching SCALAR and ARRAY variables */ + int dimensions; + + for (dimensions = 0; dimensions < MAX_DIMS; dimensions++) + { + VariableType *variable; + + variable = var_find (varname, dimensions, FALSE); + if (variable != NULL) + { + /* found a variable */ + VariableType *p; /* previous variable in linked list */ + + /* find then previous variable in chain */ + if (variable == My->VariableHead) + { + /* free head */ + My->VariableHead = variable->next; + variable->next = NULL; + var_free (variable); + } + else + { + /* free tail */ + for (p = My->VariableHead; p != NULL && p->next != variable; + p = p->next) + { + ; + } + if (p == NULL) + { + /* this should never happen */ + WARN_INTERNAL_ERROR; + return NULL; + } + if (p->next != variable) + { + /* this should never happen */ + WARN_INTERNAL_ERROR; + return NULL; + } + /* reassign linkage */ + p->next = variable->next; + variable->next = NULL; + var_free (variable); + } + } + } + } + } + while (line_skip_seperator (l)); + return (l); +} + +static LineType * +internal_swap (LineType * l) +{ + VariableType *lhs; + VariableType *rhs; + + assert (l != NULL); + + if (line_skip_LparenChar (l)) + { + /* optional */ + } + + /* get left variable */ + if ((lhs = line_read_scalar (l)) == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + + /* get required comma */ + if (line_skip_seperator (l) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + /* get right variable */ + if ((rhs = line_read_scalar (l)) == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if (line_skip_RparenChar (l)) + { + /* optional */ + } + + /* check to be sure that both variables are compatible */ + if (VAR_IS_STRING (rhs) != VAR_IS_STRING (lhs)) + { + WARN_TYPE_MISMATCH; + return (l); + } + + /* swap the values */ + { + VariantType L; + VariantType R; + CLEAR_VARIANT (&L); + CLEAR_VARIANT (&R); + + if (var_get (lhs, &L) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (var_get (rhs, &R) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + if (var_set (lhs, &R) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (var_set (rhs, &L) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + } + /* return */ + return (l); +} + +extern LineType * +bwb_EXCHANGE (LineType * l) +{ + /* + SYNTAX: EXCHANGE variable, variable + SYNTAX: EXCHANGE ( variable, variable ) + */ + + assert (l != NULL); + return internal_swap (l); +} + + + +extern LineType * +bwb_SWAP (LineType * l) +{ + /* + SYNTAX: SWAP variable, variable + SYNTAX: SWAP ( variable, variable ) + */ + + assert (l != NULL); + return internal_swap (l); +} + +extern VariableType * +var_free (VariableType * variable) +{ + /* + Release all the memory associated with a specific variable. + This function returns NULL, so you can use it like this: + variable = var_new(...); + ... + variable = var_free( variable ); + */ + + + if (variable != NULL) + { + if (variable->next != NULL) + { + /* This allows variable chains to be easily released. */ + variable->next = var_free (variable->next); + } + /* cleanup this variable */ + field_free_variable (variable); + clear_virtual_by_variable (variable); + if (VAR_IS_STRING (variable)) + { + if (variable->Value.String != NULL) + { + int j; + for (j = 0; j < variable->array_units; j++) + { + if (variable->Value.String[j].sbuffer != NULL) + { + free (variable->Value.String[j].sbuffer); + } + variable->Value.String[j].length = 0; + } + free (variable->Value.String); + variable->Value.String = NULL; + } + } + else + { + if (variable->Value.Number != NULL) + { + free (variable->Value.Number); + variable->Value.Number = NULL; + } + } + free (variable); + } + return NULL; +} + +extern void +var_CLEAR (void) +{ + /* + free all variables except PRESET + */ + VariableType *variable; + assert( My != NULL ); + + + for (variable = My->VariableHead; variable != NULL;) + { + if (variable->VariableFlags & VARIABLE_PRESET) + { + /* keep */ + variable = variable->next; + } + else if (variable == My->VariableHead) + { + /* free head */ + My->VariableHead = variable->next; + variable->next = NULL; + var_free (variable); + variable = My->VariableHead; + } + else + { + /* free tail */ + VariableType *z; + z = variable->next; + variable->next = NULL; + var_free (variable); + variable = z; + } + } +} + +extern LineType * +bwb_CLEAR (LineType * l) +{ + /* + SYNTAX: CLEAR + */ + + assert (l != NULL); + var_CLEAR (); + line_skip_eol (l); + return (l); +} + + +LineType * +bwb_CLR (LineType * l) +{ + + assert (l != NULL); + return bwb_CLEAR (l); +} + +/*********************************************************** + + FUNCTION: var_delcvars() + + DESCRIPTION: This function deletes all variables + in memory except those previously marked + as common. + +***********************************************************/ + +int +var_delcvars (void) +{ + VariableType *v; + + assert( My != NULL ); + + for (v = My->VariableHead; v != NULL;) + { + if (v->VariableFlags & VARIABLE_PRESET) + { + /* keep */ + v = v->next; + } + else if (v->VariableFlags & VARIABLE_COMMON) + { + /* keep */ + v = v->next; + } + else if (v == My->VariableHead) + { + /* free head */ + My->VariableHead = v->next; + v->next = NULL; + var_free (v); + v = My->VariableHead; + } + else + { + /* free tail */ + VariableType *z; /* next variable */ + + z = v->next; + v->next = NULL; + var_free (v); + v = z; + } + } + return TRUE; +} + +/*********************************************************** + + FUNCTION: bwb_mid() + + DESCRIPTION: This function implements the BASIC + MID$ command. + + Same as MID$ function, except it will set + the desired substring and not return its + value. Added by JBV 10/95 + + SYNTAX: MID$( string-variable$, start-position-in-string + [, number-of-spaces ] ) = expression + +***********************************************************/ + +LineType * +bwb_MID4 (LineType * l) +{ + /* MID$( target$, start% [ , length% ] ) = source$ */ + VariableType *variable; + VariantType target; + int start; + int length; + VariantType source; + int maxlen; + + assert (l != NULL); + + CLEAR_VARIANT (&source); + CLEAR_VARIANT (&target); + start = 0; + length = 0; + maxlen = 0; + if (line_skip_LparenChar (l) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if ((variable = line_read_scalar (l)) == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (VAR_IS_STRING (variable)) + { + /* OK */ + } + else + { + /* ERROR */ + WARN_TYPE_MISMATCH; + return (l); + } + if (var_get (variable, &target) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (target.VariantTypeCode != StringTypeCode) + { + WARN_TYPE_MISMATCH; + return (l); + } + if (line_skip_seperator (l) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_integer_expression (l, &start) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (start < 1) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + if (start > target.Length) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + maxlen = 1 + target.Length - start; + if (line_skip_seperator (l)) + { + if (line_read_integer_expression (l, &length) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (length < 0) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + } + else + { + length = -1; /* MAGIC */ + } + if (line_skip_RparenChar (l) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* skip the equal sign */ + if (line_skip_EqualChar (l) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (line_read_expression (l, &source) == FALSE) /* bwb_MID4 */ + { + WARN_SYNTAX_ERROR; + return (l); + } + if (source.VariantTypeCode != StringTypeCode) + { + WARN_TYPE_MISMATCH; + return (l); + } + if (length == -1 /* MAGIC */ ) + { + length = source.Length; + } + length = MIN (length, maxlen); + length = MIN (length, source.Length); + if (length < 0) + { + WARN_INTERNAL_ERROR; + return (l); + } + if (length > 0) + { + int i; + + start--; /* BASIC to C */ + for (i = 0; i < length; i++) + { + target.Buffer[start + i] = source.Buffer[i]; + } + target.Buffer[target.Length] = NulChar; + if (var_set (variable, &target) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + } + RELEASE_VARIANT (&source); + RELEASE_VARIANT (&target); + return (l); +} + + +/*********************************************************** + + FUNCTION: bwb_ddbl() + + DESCRIPTION: This function implements the BASIC + DEFDBL command. + + SYNTAX: DEFDBL letter[-letter](, letter[-letter])... + +***********************************************************/ + +LineType * +bwb_DEFBYT (LineType * l) +{ + /* + DEFBYT letter[-letter](, letter[-letter])... + */ + + assert (l != NULL); + var_defx (l, ByteTypeCode); + return (l); +} + +LineType * +bwb_DEFCUR (LineType * l) +{ + /* + DEFCUR letter[-letter](, letter[-letter])... + */ + + assert (l != NULL); + var_defx (l, CurrencyTypeCode); + return (l); +} + +LineType * +bwb_DEFDBL (LineType * l) +{ + /* + DEFDBL letter[-letter](, letter[-letter])... + */ + + assert (l != NULL); + var_defx (l, DoubleTypeCode); + return (l); +} + +/*********************************************************** + + FUNCTION: bwb_dint() + + DESCRIPTION: This function implements the BASIC + DEFINT command. + + SYNTAX: DEFINT letter[-letter](, letter[-letter])... + +***********************************************************/ + +LineType * +bwb_DEFINT (LineType * l) +{ + /* + DEFINT letter[-letter](, letter[-letter])... + */ + + assert (l != NULL); + var_defx (l, IntegerTypeCode); + return (l); +} + +LineType * +bwb_DEFLNG (LineType * l) +{ + /* + DEFLNG letter[-letter](, letter[-letter])... + */ + + assert (l != NULL); + var_defx (l, LongTypeCode); + return (l); +} + +/*********************************************************** + + FUNCTION: bwb_dsng() + + DESCRIPTION: This function implements the BASIC + DEFSNG command. + + SYNTAX: DEFSNG letter[-letter](, letter[-letter])... + +***********************************************************/ + +LineType * +bwb_DEFSNG (LineType * l) +{ + /* + DEFSNG letter[-letter](, letter[-letter])... + */ + + assert (l != NULL); + var_defx (l, SingleTypeCode); + return (l); +} + +/*********************************************************** + + FUNCTION: bwb_dstr() + + DESCRIPTION: This function implements the BASIC + DEFSTR command. + + SYNTAX: DEFSTR letter[-letter](, letter[-letter])... + +***********************************************************/ + +LineType * +bwb_DEFSTR (LineType * l) +{ + /* + DEFSTR letter[-letter](, letter[-letter])... + */ + + assert (l != NULL); + var_defx (l, StringTypeCode); + return (l); +} + +LineType * +bwb_TEXT (LineType * l) +{ + /* + TEXT letter[-letter](, letter[-letter])... + */ + + assert (l != NULL); + var_defx (l, StringTypeCode); + return (l); +} + +LineType * +bwb_TRACE (LineType * l) +{ + assert (l != NULL); + + return bwb_TRACE_ON(l); +} + +LineType * +bwb_TRACE_ON (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + fprintf (My->SYSOUT->cfp, "Trace is ON\n"); + ResetConsoleColumn (); + My->IsTraceOn = TRUE; + + return (l); +} + +LineType * +bwb_TRACE_OFF (LineType * l) +{ + + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + fprintf (My->SYSOUT->cfp, "Trace is OFF\n"); + ResetConsoleColumn (); + My->IsTraceOn = FALSE; + + return (l); +} + +int +VarTypeIndex (char C) +{ + + switch (C) + { + case 'A': + return 0; + case 'B': + return 1; + case 'C': + return 2; + case 'D': + return 3; + case 'E': + return 4; + case 'F': + return 5; + case 'G': + return 6; + case 'H': + return 7; + case 'I': + return 8; + case 'J': + return 9; + case 'K': + return 10; + case 'L': + return 11; + case 'M': + return 12; + case 'N': + return 13; + case 'O': + return 14; + case 'P': + return 15; + case 'Q': + return 16; + case 'R': + return 17; + case 'S': + return 18; + case 'T': + return 19; + case 'U': + return 20; + case 'V': + return 21; + case 'W': + return 22; + case 'X': + return 23; + case 'Y': + return 24; + case 'Z': + return 25; + case 'a': + return 0; + case 'b': + return 1; + case 'c': + return 2; + case 'd': + return 3; + case 'e': + return 4; + case 'f': + return 5; + case 'g': + return 6; + case 'h': + return 7; + case 'i': + return 8; + case 'j': + return 9; + case 'k': + return 10; + case 'l': + return 11; + case 'm': + return 12; + case 'n': + return 13; + case 'o': + return 14; + case 'p': + return 15; + case 'q': + return 16; + case 'r': + return 17; + case 's': + return 18; + case 't': + return 19; + case 'u': + return 20; + case 'v': + return 21; + case 'w': + return 22; + case 'x': + return 23; + case 'y': + return 24; + case 'z': + return 25; + } + return -1; +} + +/*********************************************************** + + Function: var_defx() + + DESCRIPTION: This function is a generalized DEFxxx handler. + +***********************************************************/ + +static int +var_defx (LineType * l, int TypeCode) +{ + /* + DEFxxx letter[-letter](, letter[-letter])... + */ + + assert (l != NULL); + assert( My != NULL ); + assert( My->DefaultVariableType != NULL ); + + do + { + char firstc; + char lastc; + int first; + int last; + int c; + + /* find a sequence of letters for variables */ + if (line_read_letter_sequence (l, &firstc, &lastc) == FALSE) + { + /* DEFINT 0-9 */ + WARN_SYNTAX_ERROR; + return FALSE; + } + first = VarTypeIndex (firstc); + if (first < 0) + { + /* DEFINT 0-Z */ + WARN_SYNTAX_ERROR; + return FALSE; + } + last = VarTypeIndex (lastc); + if (last < 0) + { + /* DEFINT A-9 */ + WARN_SYNTAX_ERROR; + return FALSE; + } + if (first > last) + { + /* DEFINT Z-A */ + WARN_SYNTAX_ERROR; + return FALSE; + } + for (c = first; c <= last; c++) + { + My->DefaultVariableType[c] = TypeCode; /* var_defx */ + } + } + while (line_skip_seperator (l)); + + return TRUE; + +} + +/*************************************************************** + + FUNCTION: var_find() + + DESCRIPTION: This C function attempts to find a variable + name matching the argument in buffer. If + it fails to find a matching name, it + sets up a new variable with that name. + +***************************************************************/ + +VariableType * +mat_find (char *name) +{ + /* + similar to var_find, but returns the first matrix found + */ + VariableType *v; + assert( My != NULL ); + + + /* check for NULL variable name */ + if (name == NULL) + { + WARN_INTERNAL_ERROR; + return NULL; + } + if (is_empty_string (name)) + { + WARN_SYNTAX_ERROR; + return NULL; + } + /* check for a local variable at this EXEC level */ + + v = mat_islocal (name); + if (v != NULL) + { + return v; + } + /* now run through the global variable list and try to find a match */ + for (v = My->VariableHead; v != NULL; v = v->next) + { + assert( v != NULL ); + if (v->dimensions > 0) + { + if (bwb_stricmp (v->name, name) == 0) + { + return v; + } + } + } + return NULL; +} + +VariableType * +var_find (char *name, int dimensions, int IsImplicit) +{ + VariableType *v; + int n; + + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + assert( My->DefaultVariableType != NULL ); + + /* check for NULL variable name */ + if (name == NULL) + { + WARN_INTERNAL_ERROR; + return NULL; + } + if (is_empty_string (name)) + { + WARN_SYNTAX_ERROR; + return NULL; + } + if (dimensions < 0) + { + WARN_INTERNAL_ERROR; + return NULL; + } + + /* check for a local variable at this EXEC level */ + + v = var_islocal (name, dimensions); + if (v != NULL) + { + return v; + } + /* now run through the global variable list and try to find a match */ + for (v = My->VariableHead; v != NULL; v = v->next) + { + assert( v != NULL ); + if (v->dimensions == dimensions) + { + if (bwb_stricmp (v->name, name) == 0) + { + return v; + } + } + } + if (IsImplicit == FALSE) + { + return NULL; + } + if (My->CurrentVersion->OptionFlags & OPTION_EXPLICIT_ON) + { + /* NO implicit creation - all variables must be created via DIM */ + WARN_VARIABLE_NOT_DECLARED; + return NULL; + } + if (My->CurrentVersion->OptionFlags & OPTION_STRICT_ON) + { + if (dimensions > 0) + { + /* Implicit ARRAY is not allowed */ + WARN_VARIABLE_NOT_DECLARED; + return NULL; + } + } + + /* this is a IMPLICIT variable, so initialize it... */ + + /* initialize new variable */ + if ((v = (VariableType *) calloc (1, sizeof (VariableType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return NULL; + } + + /* copy the name into the appropriate structure */ + + assert( v != NULL ); + bwb_strcpy (v->name, name); + + /* determine variable TypeCode */ + v->VariableTypeCode = var_nametype (name); + if (v->VariableTypeCode == NulChar) + { + /* variable name has no declared TypeCode */ + n = VarTypeIndex (name[0]); + if (n < 0) + { + v->VariableTypeCode = DoubleTypeCode; /* default */ + } + else + { + v->VariableTypeCode = My->DefaultVariableType[n]; + } + } + v->VariableFlags = 0; + v->dimensions = dimensions; + v->array_units = 1; + for (n = 0; n < v->dimensions; n++) + { + v->LBOUND[n] = My->CurrentVersion->OptionBaseInteger; /* implicit lower bound */ + v->UBOUND[n] = 10; /* implicit upper bound */ + if (v->UBOUND[n] < v->LBOUND[n]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return NULL; + } + v->VINDEX[n] = v->LBOUND[n]; + v->array_units *= v->UBOUND[n] - v->LBOUND[n] + 1; + } + + /* assign array memory */ + if (VAR_IS_STRING (v)) + { + if ((v->Value.String = + (StringType *) calloc (v->array_units, sizeof (StringType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return NULL; + } + } + else + { + if ((v->Value.Number = + (DoubleType *) calloc (v->array_units, sizeof (DoubleType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return NULL; + } + } + + /* insert variable at the beginning of the variable chain */ + v->next = My->VariableHead; + My->VariableHead = v; + return v; +} + +/*************************************************************** + + FUNCTION: var_new() + + DESCRIPTION: This function assigns memory for a new variable. + +***************************************************************/ + +VariableType * +var_new (char *name, char TypeCode) +{ + VariableType *v; + + + /* get memory for new variable */ + + if (name == NULL) + { + WARN_INTERNAL_ERROR; + return NULL; + } + if (is_empty_string (name)) + { + WARN_SYNTAX_ERROR; + return NULL; + } + if ((v = (VariableType *) calloc (1, sizeof (VariableType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return NULL; + } + /* copy the name into the appropriate structure */ + + assert( v != NULL ); + bwb_strcpy (v->name, name); + + /* set memory in the new variable */ + var_make (v, TypeCode); + + /* and return */ + + return v; + +} + + +/*************************************************************** + + FUNCTION: bwb_dim() + + DESCRIPTION: This function implements the BASIC DIM + statement, allocating memory for a + dimensioned array of variables. + + SYNTAX: DIM variable(elements...)[,variable(elements...)] + +***************************************************************/ + +static void +var_link_new_variable (VariableType * v) +{ + /* + We are called by DIM, so this is an explicitly created variable. + There are only two possibilities: + 1. We are a LOCAL variable of a SUB or FUNCTION. + 2. We are a GLOBAL variable. + */ + + assert (v != NULL); + assert( My != NULL ); + + if (My->StackHead != NULL) + { + StackType *StackItem; + for (StackItem = My->StackHead; StackItem != NULL; + StackItem = StackItem->next) + { + if (StackItem->LoopTopLine != NULL) + { + switch (StackItem->LoopTopLine->cmdnum) + { + case C_FUNCTION: + case C_SUB: + /* we have found a FUNCTION or SUB boundary, must be LOCAL */ + v->next = StackItem->local_variable; + StackItem->local_variable = v; + return; + /* break; */ + } + } + } + } + /* no FUNCTION or SUB on the stack, must be GLOBAL */ + v->next = My->VariableHead; + My->VariableHead = v; +} + + +static VirtualType * +new_virtual (void) +{ + VirtualType *Z; + assert( My != NULL ); + + + /* look for an empty slot */ + for (Z = My->VirtualHead; Z != NULL; Z = Z->next) + { + if (Z->Variable == NULL) + { + /* FOUND */ + return Z; + } + } + /* NOT FOUND */ + if ((Z = (VirtualType *) calloc (1, sizeof (VirtualType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return NULL; + } + Z->next = My->VirtualHead; + My->VirtualHead = Z; + return Z; +} +static void +clear_virtual (VirtualType * Z) +{ + + assert (Z != NULL); + + Z->Variable = NULL; + Z->FileNumber = 0; + Z->FileOffset = 0; + Z->FileLength = 0; +} +static void +clear_virtual_by_variable (VariableType * Variable) +{ + VirtualType *Z; + + assert (Variable != NULL); + assert( My != NULL ); + + for (Z = My->VirtualHead; Z != NULL; Z = Z->next) + { + if (Z->Variable == Variable) + { + /* FOUND */ + clear_virtual (Z); + } + } +} +extern void +clear_virtual_by_file (int FileNumber) +{ + /* called by file_clear() */ + VirtualType *Z; + + assert( My != NULL ); + + for (Z = My->VirtualHead; Z != NULL; Z = Z->next) + { + if (Z->FileNumber == FileNumber) + { + /* FOUND */ + clear_virtual (Z); + } + } +} +static VirtualType * +find_virtual_by_variable (VariableType * Variable) +{ + VirtualType *Z; + + assert (Variable != NULL); + assert( My != NULL ); + + for (Z = My->VirtualHead; Z != NULL; Z = Z->next) + { + if (Z->Variable == Variable) + { + /* FOUND */ + return Z; + } + } + /* NOT FOUND */ + return NULL; +} + +LineType * +bwb_LOCAL (LineType * l) +{ + /* only supported inside a FUNCTION or SUB */ + + assert (l != NULL); + return bwb_DIM (l); +} + +LineType * +bwb_DIM (LineType * l) +{ + int FileNumber; /* the file might not be OPEN when the variable is declared */ + size_t FileOffset; /* from beginning of file */ + int FileLength; /* sizeof( DoubleType ) or Fixed String Length */ + + assert (l != NULL); + assert( My != NULL ); + assert( My->DefaultVariableType != NULL ); + + + FileNumber = 0; + FileOffset = 0; + FileLength = 0; + if (line_skip_FilenumChar (l)) + { + /* DIM # filenum , ... */ + if (line_read_integer_expression (l, &FileNumber) == FALSE) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (FileNumber <= 0) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (line_skip_seperator (l) == FALSE) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + FileOffset = 0; + FileLength = 0; + } + + do + { + VariableType *v; + int n; + int dimensions; + int LBOUND[MAX_DIMS]; + int UBOUND[MAX_DIMS]; + char TypeCode; + char varname[NameLengthMax + 1]; + + + /* Get variable name */ + if (line_read_varname (l, varname) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + /* read parameters */ + dimensions = 0; + if (line_peek_LparenChar (l)) + { + if (line_read_array_redim (l, &dimensions, LBOUND, UBOUND) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* check array dimensions */ + for (n = 0; n < dimensions; n++) + { + if (UBOUND[n] < LBOUND[n]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return (l); + } + } + } + + /* determine variable TypeCode */ + TypeCode = var_nametype (varname); + if (TypeCode == NulChar) + { + /* variable has no explicit TypeCode char */ + TypeCode = line_read_type_declaration (l); /* AS DOUBLE and so on */ + if (TypeCode == NulChar) + { + /* variable has no declared TypeCode */ + int i; + i = VarTypeIndex (varname[0]); + if (i < 0) + { + TypeCode = DoubleTypeCode; /* default */ + } + else + { + TypeCode = My->DefaultVariableType[i]; + } + } + } + + switch (TypeCode) + { + case ByteTypeCode: + /* DIM # file_num , var_name AS BYTE */ + FileLength = sizeof (ByteType); + break; + case IntegerTypeCode: + /* DIM # file_num , var_name AS INTEGER */ + FileLength = sizeof (IntegerType); + break; + case LongTypeCode: + /* DIM # file_num , var_name AS LONG */ + FileLength = sizeof (LongType); + break; + case CurrencyTypeCode: + /* DIM # file_num , var_name AS CURRENCY */ + FileLength = sizeof (CurrencyType); + break; + case SingleTypeCode: + /* DIM # file_num , var_name AS SINGLE */ + FileLength = sizeof (SingleType); + break; + case DoubleTypeCode: + /* DIM # file_num , var_name AS DOUBLE */ + FileLength = sizeof (DoubleType); + break; + case StringTypeCode: + /* DIM # file_num , var_name AS STRING * fixed_length */ + + FileLength = 16; /* default */ + if (line_skip_StarChar (l) || line_skip_EqualChar (l)) + { + /* optional fixed length */ + if (line_read_integer_expression (l, &FileLength) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (FileLength <= 0) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (FileLength > MAXLEN) + { + WARN_STRING_TOO_LONG; /* bwb_DIM */ + FileLength = MAXLEN; + } + } + break; + default: + { + WARN_INTERNAL_ERROR; + return (l); + } + } + + v = var_find (varname, dimensions, FALSE); + if (v == NULL) + { + /* a new variable */ + if ((v = (VariableType *) calloc (1, sizeof (VariableType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return (l); + } + bwb_strcpy (v->name, varname); + v->VariableTypeCode = TypeCode; + /* assign array dimensions */ + v->dimensions = dimensions; + for (n = 0; n < dimensions; n++) + { + v->LBOUND[n] = LBOUND[n]; + v->UBOUND[n] = UBOUND[n]; + } + /* assign initial array position */ + for (n = 0; n < dimensions; n++) + { + v->VINDEX[n] = v->LBOUND[n]; + } + /* calculate the array size */ + v->array_units = 1; + for (n = 0; n < dimensions; n++) + { + v->array_units *= v->UBOUND[n] - v->LBOUND[n] + 1; + } + /* assign array memory */ + + if (FileNumber > 0) + { + /* the new variable is VIRTUAL */ + v->VariableFlags = VARIABLE_VIRTUAL; + /* if( TRUE ) */ + { + /* OK */ + VirtualType *Z; + Z = find_virtual_by_variable (v); + if (Z == NULL) + { + Z = new_virtual (); + if (Z == NULL) + { + WARN_OUT_OF_MEMORY; + return (l); + } + Z->Variable = v; + } + /* update file information */ + Z->FileNumber = FileNumber; + Z->FileOffset = FileOffset; + Z->FileLength = FileLength; + FileOffset += FileLength * v->array_units; + } + } + else if (VAR_IS_STRING (v)) + { + if ((v->Value.String = + (StringType *) calloc (v->array_units, + sizeof (StringType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return (l); + } + } + else + { + if ((v->Value.Number = + (DoubleType *) calloc (v->array_units, + sizeof (DoubleType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return (l); + } + } + /* set place at beginning of variable chain */ + var_link_new_variable (v); + + /* end of conditional for new variable */ + } + else + { + /* old variable */ + if (v->VariableTypeCode != TypeCode) + { + WARN_TYPE_MISMATCH; + return (l); + } + + /* check to be sure the number of dimensions is the same */ + if (v->dimensions != dimensions) + { + WARN_REDIMENSION_ARRAY; + return (l); + } + /* check to be sure sizes for each dimension are the same */ + for (n = 0; n < dimensions; n++) + { + if (v->LBOUND[n] != LBOUND[n]) + { + WARN_REDIMENSION_ARRAY; + return (l); + } + if (v->UBOUND[n] != UBOUND[n]) + { + WARN_REDIMENSION_ARRAY; + return (l); + } + } + if (FileNumber > 0) + { + /* the existing variable MUST be Virtual */ + if (v->VariableFlags & VARIABLE_VIRTUAL) + { + /* OK */ + VirtualType *Z; + Z = find_virtual_by_variable (v); + if (Z == NULL) + { + Z = new_virtual (); + if (Z == NULL) + { + WARN_OUT_OF_MEMORY; + return (l); + } + Z->Variable = v; + } + /* update file information */ + Z->FileNumber = FileNumber; + Z->FileOffset = FileOffset; + Z->FileLength = FileLength; + FileOffset += FileLength * v->array_units; + } + else + { + /* the existing variable is NOT virtual */ + WARN_TYPE_MISMATCH; + return (l); + } + } + else + { + /* the existing variable CANNOT be Virtual */ + if (v->VariableFlags & VARIABLE_VIRTUAL) + { + /* the existing variable IS virtual */ + WARN_TYPE_MISMATCH; + return (l); + } + else + { + /* OK */ + } + } + /* end of conditional for old variable */ + } + + } + while (line_skip_seperator (l)); + + /* return */ + return (l); +} + + + + +/*************************************************************** + + FUNCTION: dim_unit() + + DESCRIPTION: This function calculates the unit + position for an array. + +***************************************************************/ + +static size_t +dim_unit (VariableType * v, int *pp) +{ + size_t r; + size_t b; + int n; + + assert (v != NULL); + assert (pp != NULL); + + /* Calculate and return the address of the dimensioned array */ + + /* Check EACH dimension for out-of-bounds, AND check correct number + * of dimensions. NBS_P076_0250 errors correctly. */ + + /* + Ux = Upper bound of dimension + Lx = Lower bound of dimension + Ix = Selected idex in dimension + + dimensions b + 0 1 + 1 b0 * ( U0 - L0 + 1 ) + 2 b1 * ( U1 - L1 + 1 ) + 3 b2 * ( U2 - L2 + 1 ) + + + dimensions r + 0 0 + 1 r0 + ( I0 - L0 ) * b0 + 2 r1 + ( I1 - L1 ) * b1 + 3 r2 + ( I2 - L2 ) * b2 + + */ + + r = 0; + b = 1; + for (n = 0; n < v->dimensions; n++) + { + if (pp[n] < v->LBOUND[n] || pp[n] > v->UBOUND[n]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return 0; + } + r += b * (pp[n] - v->LBOUND[n]); + b *= v->UBOUND[n] - v->LBOUND[n] + 1; + } + + + if (r > v->array_units) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return 0; + } + return r; + +} + + +/*************************************************************** + + FUNCTION: bwb_option() + + DESCRIPTION: This function implements the BASIC OPTION + BASE statement, designating the base (1 or + 0) for addressing DIM arrays. + + SYNTAX: OPTION BASE number + +***************************************************************/ + +void +OptionVersionSet (int i) +{ + assert( i >= 0 && i < NUM_VERSIONS ); + assert( My != NULL ); + + My->CurrentVersion = &bwb_vertable[i]; +} + +LineType * +bwb_OPTION (LineType * l) +{ + assert (l != NULL); + + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_ANGLE (LineType * l) +{ + assert (l != NULL); + + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_ANGLE_DEGREES (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION ANGLE DEGREES */ + My->CurrentVersion->OptionFlags |= OPTION_ANGLE_DEGREES; + My->CurrentVersion->OptionFlags &= ~OPTION_ANGLE_GRADIANS; + return (l); +} + +LineType * +bwb_OPTION_ANGLE_GRADIANS (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION ANGLE GRADIANS */ + My->CurrentVersion->OptionFlags &= ~OPTION_ANGLE_DEGREES; + My->CurrentVersion->OptionFlags |= OPTION_ANGLE_GRADIANS; + return (l); +} + +LineType * +bwb_OPTION_ANGLE_RADIANS (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION ANGLE RADIANS */ + My->CurrentVersion->OptionFlags &= ~OPTION_ANGLE_DEGREES; + My->CurrentVersion->OptionFlags &= ~OPTION_ANGLE_GRADIANS; + return (l); +} + +LineType * +bwb_OPTION_ARITHMETIC (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_ARITHMETIC_DECIMAL (LineType * l) +{ + /* OPTION ARITHMETIC DECIMAL */ + assert (l != NULL); + return (l); +} + +LineType * +bwb_OPTION_ARITHMETIC_FIXED (LineType * l) +{ + /* OPTION ARITHMETIC FIXED */ + assert (l != NULL); + return (l); +} + +LineType * +bwb_OPTION_ARITHMETIC_NATIVE (LineType * l) +{ + /* OPTION ARITHMETIC NATIVE */ + assert (l != NULL); + return (l); +} + +LineType * +bwb_OPTION_BASE (LineType * l) +{ + /* OPTION BASE integer */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_range_integer (l, + &(My->CurrentVersion->OptionBaseInteger), + MININT, MAXINT); +} + +LineType * +bwb_OPTION_BUGS (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_BUGS_BOOLEAN (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION BUGS BOOLEAN */ + My->CurrentVersion->OptionFlags |= OPTION_BUGS_BOOLEAN; + return (l); +} + +LineType * +bwb_OPTION_BUGS_ON (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION BUGS ON */ + My->CurrentVersion->OptionFlags |= OPTION_BUGS_ON; + return (l); +} + +LineType * +bwb_OPTION_BUGS_OFF (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION BUGS OFF */ + My->CurrentVersion->OptionFlags &= ~OPTION_BUGS_ON; + My->CurrentVersion->OptionFlags &= ~OPTION_BUGS_BOOLEAN; + return (l); +} + +LineType * +bwb_option_punct_char (LineType * l, char *c) +{ + /* OPTION ... char$ */ + + assert (l != NULL); + assert (c != NULL); + + { + char *Value; + char C; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + C = Value[0]; + free (Value); + /* OK */ + if (bwb_ispunct (C)) + { + /* enable */ + *c = C; + } + else + { + /* disable */ + *c = NulChar; + } + } + return (l); +} + +LineType * +bwb_option_range_integer (LineType * l, int *Integer, int MinVal, int MaxVal) +{ + /* OPTION ... integer */ + + assert (l != NULL); + assert (Integer != NULL); + assert (MinVal < MaxVal); + + { + int Value; + + Value = 0; + if (line_read_integer_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value < MinVal || Value > MaxVal) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + *Integer = Value; + } + return (l); +} + +LineType * +bwb_OPTION_PUNCT_COMMENT (LineType * l) +{ + /* OPTION PUNCT COMMENT char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionCommentChar)); +} + +LineType * +bwb_OPTION_COMPARE (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_COMPARE_BINARY (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION COMPARE BINARY */ + My->CurrentVersion->OptionFlags &= ~OPTION_COMPARE_TEXT; + return (l); +} + +LineType * +bwb_OPTION_COMPARE_DATABASE (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION COMPARE DATABASE */ + My->CurrentVersion->OptionFlags |= OPTION_COMPARE_TEXT; + return (l); +} + +LineType * +bwb_OPTION_COMPARE_TEXT (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION COMPARE TEXT */ + My->CurrentVersion->OptionFlags |= OPTION_COMPARE_TEXT; + return (l); +} + +LineType * +bwb_OPTION_COVERAGE (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_COVERAGE_ON (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION COVERAGE ON */ + My->CurrentVersion->OptionFlags |= OPTION_COVERAGE_ON; + return (l); +} + +LineType * +bwb_OPTION_COVERAGE_OFF (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION COVERAGE OFF */ + My->CurrentVersion->OptionFlags &= ~OPTION_COVERAGE_ON; + return (l); +} + +LineType * +bwb_OPTION_DATE (LineType * l) +{ + /* OPTION DATE format$ */ + char *Value; + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + My->CurrentVersion->OptionDateFormat = Value; +#if FALSE /* keep this ... */ + /* + ** Yes, this can theoretically cause a memory leak. + ** No, we are not going to fix it. + ** This command is only supported in the profile. + ** This will only execute at most once, + ** so there is no actual memory leak. + ** + */ + free (Value); +#endif + return (l); +} + +LineType * +bwb_OPTION_DIGITS (LineType * l) +{ + int Value; + + assert (l != NULL); + assert( My != NULL ); + + /* OPTION DIGITS integer */ + Value = 0; + if (line_read_integer_expression (l, &Value)) + { + /* OK */ + if (Value == 0) + { + /* default */ + Value = SIGNIFICANT_DIGITS; + } + if (Value < MINIMUM_DIGITS || Value > MAXIMUM_DIGITS) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + My->OptionDigitsInteger = Value; + } + return (l); +} + +LineType * +bwb_OPTION_DISABLE (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_DISABLE_COMMAND (LineType * l) +{ + /* OPTION DISABLE COMMAND name$ */ + int IsFound; + char *Value; + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + + IsFound = FALSE; + Value = NULL; + + /* Get COMMAND */ + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + { + /* Name */ + int i; + for (i = 0; i < NUM_COMMANDS; i++) + { + if (bwb_stricmp (Value, IntrinsicCommandTable[i].name) == 0) + { + /* FOUND */ + /* DISABLE COMMAND */ + IntrinsicCommandTable[i].OptionVersionBitmask &= + ~My->CurrentVersion->OptionVersionValue; + IsFound = TRUE; + } + } + } + free (Value); + if (IsFound == FALSE) + { + /* display warning message */ + fprintf (My->SYSOUT->cfp, "IGNORED: %s\n", l->buffer); + ResetConsoleColumn (); + } + return (l); +} + + +LineType * +bwb_OPTION_DISABLE_FUNCTION (LineType * l) +{ + /* OPTION DISABLE FUNCTION name$ */ + int IsFound; + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + + IsFound = FALSE; + /* Get FUNCTION */ + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + { + /* Name */ + int i; + for (i = 0; i < NUM_FUNCTIONS; i++) + { + if (bwb_stricmp (Value, IntrinsicFunctionTable[i].Name) == 0) + { + /* FOUND */ + /* DISABLE FUNCTION */ + IntrinsicFunctionTable[i].OptionVersionBitmask &= + ~My->CurrentVersion->OptionVersionValue; + IsFound = TRUE; + } + } + } + free (Value); + } + if (IsFound == FALSE) + { + /* display warning message */ + fprintf (My->SYSOUT->cfp, "IGNORED: %s\n", l->buffer); + ResetConsoleColumn (); + } + return (l); +} + +LineType * +bwb_OPTION_EDIT (LineType * l) +{ + /* OPTION EDIT string$ */ + char *Value; + + assert (l != NULL); + assert( My != NULL ); + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + My->OptionEditString = Value; +#if FALSE /* keep this ... */ + /* + ** Yes, this can theoretically cause a memory leak. + ** No, we are not going to fix it. + ** This command is only supported in the profile. + ** This will only execute at most once, + ** so there is no actual memory leak. + ** + */ + free (Value); +#endif + return (l); +} + +LineType * +bwb_OPTION_EXTENSION (LineType * l) +{ + /* OPTION EXTENSION ext$ */ + char *Value; + + assert (l != NULL); + assert( My != NULL ); + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + My->OptionExtensionString = Value; +#if FALSE /* keep this ... */ + /* + ** Yes, this can theoretically cause a memory leak. + ** No, we are not going to fix it. + ** This command is only supported in the profile. + ** This command will only execute at most once, + ** so there is no actual memory leak. + ** + */ + free (Value); +#endif + return (l); +} + +LineType * +bwb_OPTION_FILES (LineType * l) +{ + /* OPTION FILES name$ */ + char *Value; + + assert (l != NULL); + assert( My != NULL ); + + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + My->OptionFilesString = Value; +#if FALSE /* keep this ... */ + /* + ** Yes, this can theoretically cause a memory leak. + ** No, we are not going to fix it. + ** This command is only supported in the profile. + ** This will only execute at most once, + ** so there is no actual memory leak. + ** + */ + free (Value); +#endif + return (l); +} + +LineType * +bwb_OPTION_PROMPT (LineType * l) +{ + /* OPTION PROMPT prompt$ */ + char *Value; + + assert (l != NULL); + assert( My != NULL ); + + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + My->OptionPromptString = Value; +#if FALSE /* keep this ... */ + /* + ** Yes, this can theoretically cause a memory leak. + ** No, we are not going to fix it. + ** This command is only supported in the profile. + ** This will only execute at most once, + ** so there is no actual memory leak. + ** + */ + free (Value); +#endif + return (l); +} + +LineType * +bwb_OPTION_RENUM (LineType * l) +{ + /* OPTION RENUM name$ */ + char *Value; + + assert (l != NULL); + assert( My != NULL ); + + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + My->OptionRenumString = Value; +#if FALSE /* keep this ... */ + /* + ** Yes, this can theoretically cause a memory leak. + ** No, we are not going to fix it. + ** This command is only supported in the profile. + ** This will only execute at most once, + ** so there is no actual memory leak. + ** + */ + free (Value); +#endif + return (l); +} + +LineType * +bwb_OPTION_ENABLE (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_ENABLE_COMMAND (LineType * l) +{ + /* OPTION ENABLE COMMAND name$ */ + int IsFound; + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + + IsFound = FALSE; + /* Get COMMAND */ + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + { + /* Name */ + int i; + for (i = 0; i < NUM_COMMANDS; i++) + { + if (bwb_stricmp (Value, IntrinsicCommandTable[i].name) == 0) + { + /* FOUND */ + /* ENABLE COMMAND */ + IntrinsicCommandTable[i].OptionVersionBitmask |= + My->CurrentVersion->OptionVersionValue; + IsFound = TRUE; + } + } + } + free (Value); + } + if (IsFound == FALSE) + { + /* display warning message */ + fprintf (My->SYSOUT->cfp, "IGNORED: %s\n", l->buffer); + ResetConsoleColumn (); + } + return (l); +} + +LineType * +bwb_OPTION_ENABLE_FUNCTION (LineType * l) +{ + /* OPTION ENABLE FUNCTION name$ */ + int IsFound; + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + + IsFound = FALSE; + /* Get FUNCTION */ + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + { + /* Name */ + int i; + for (i = 0; i < NUM_FUNCTIONS; i++) + { + if (bwb_stricmp (Value, IntrinsicFunctionTable[i].Name) == 0) + { + /* FOUND */ + /* ENABLE FUNCTION */ + IntrinsicFunctionTable[i].OptionVersionBitmask |= + My->CurrentVersion->OptionVersionValue; + IsFound = TRUE; + } + } + } + free (Value); + } + if (IsFound == FALSE) + { + /* display warning message */ + fprintf (My->SYSOUT->cfp, "IGNORED: %s\n", l->buffer); + ResetConsoleColumn (); + } + return (l); +} + +LineType * +bwb_OPTION_ERROR (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_ERROR_GOSUB (LineType * l) +{ + /* OPTION ERROR GOSUB */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + My->CurrentVersion->OptionFlags |= OPTION_ERROR_GOSUB; + return (l); +} + +LineType * +bwb_OPTION_ERROR_GOTO (LineType * l) +{ + /* OPTION ERROR GOTO */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + My->CurrentVersion->OptionFlags &= ~OPTION_ERROR_GOSUB; + return (l); +} + +LineType * +bwb_OPTION_EXPLICIT (LineType * l) +{ + /* OPTION EXPLICIT */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + My->CurrentVersion->OptionFlags |= OPTION_EXPLICIT_ON; + return (l); +} + + +LineType * +bwb_OPTION_PUNCT_IMAGE (LineType * l) +{ + /* OPTION PUNCT IMAGE char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionImageChar)); +} + +LineType * +bwb_OPTION_IMPLICIT (LineType * l) +{ + /* OPTION IMPLICIT */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + My->CurrentVersion->OptionFlags &= ~OPTION_EXPLICIT_ON; + return (l); +} + +LineType * +bwb_OPTION_INDENT (LineType * l) +{ + /* OPTION INDENT integer */ + assert (l != NULL); + assert( My != NULL ); + + return bwb_option_range_integer (l, &(My->OptionIndentInteger), 0, 7); +} + +LineType * +bwb_OPTION_PUNCT_INPUT (LineType * l) +{ + /* OPTION PUNCT INPUT char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionInputChar)); +} + +LineType * +bwb_OPTION_LABELS (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_LABELS_ON (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION LABELS ON */ + My->CurrentVersion->OptionFlags |= OPTION_LABELS_ON; + return (l); +} + +LineType * +bwb_OPTION_LABELS_OFF (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION LABELS OFF */ + My->CurrentVersion->OptionFlags &= ~OPTION_LABELS_ON; + return (l); +} + +LineType * +bwb_OPTION_PUNCT_PRINT (LineType * l) +{ + /* OPTION PUNCT PRINT char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionPrintChar)); +} + +LineType * +bwb_OPTION_PUNCT_QUOTE (LineType * l) +{ + /* OPTION PUNCT QUOTE char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionQuoteChar)); +} + +LineType * +bwb_OPTION_ROUND (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_ROUND_BANK (LineType * l) +{ + /* OPTION ROUND BANK */ + assert (l != NULL); + assert( My != NULL ); + + My->OptionRoundType = C_OPTION_ROUND_BANK; + return (l); +} + +LineType * +bwb_OPTION_ROUND_MATH (LineType * l) +{ + /* OPTION ROUND MATH */ + assert (l != NULL); + assert( My != NULL ); + + My->OptionRoundType = C_OPTION_ROUND_MATH; + return (l); +} + +LineType * +bwb_OPTION_ROUND_TRUNCATE (LineType * l) +{ + /* OPTION ROUND TRUNCATE */ + assert (l != NULL); + assert( My != NULL ); + + My->OptionRoundType = C_OPTION_ROUND_TRUNCATE; + return (l); +} + +LineType * +bwb_OPTION_SCALE (LineType * l) +{ + /* OPTION SCALE integer */ + assert (l != NULL); + assert( My != NULL ); + + return bwb_option_range_integer (l, &(My->OptionScaleInteger), + MINIMUM_SCALE, MAXIMUM_SCALE); +} + + +LineType * +bwb_OPTION_SLEEP (LineType * l) +{ + /* OPTION SLEEP number */ + assert (l != NULL); + assert( My != NULL ); + + if (line_read_numeric_expression (l, &My->OptionSleepDouble) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + return (l); +} + +LineType * +bwb_OPTION_STDERR (LineType * l) +{ + /* OPTION STDERR filename$ */ + + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSPRN != NULL ); + assert( My->SYSPRN->cfp != NULL ); + + + if (line_is_eol (l)) + { + bwb_fclose (My->SYSPRN->cfp); + My->SYSPRN->cfp = stderr; + } + else + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + if (is_empty_string (Value)) + { + bwb_fclose (My->SYSPRN->cfp); + My->SYSPRN->cfp = stderr; + } + else + { + bwb_fclose (My->SYSPRN->cfp); + My->SYSPRN->cfp = fopen (Value, "w+"); + if (My->SYSPRN->cfp == NULL) + { + /* sane default */ + My->SYSPRN->cfp = stderr; + WARN_BAD_FILE_NAME; + } + } + free (Value); + } + return (l); +} + +LineType * +bwb_OPTION_STDIN (LineType * l) +{ + /* OPTION STDIN filename$ */ + + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSIN != NULL ); + assert( My->SYSIN->cfp != NULL ); + + if (line_is_eol (l)) + { + bwb_fclose (My->SYSIN->cfp); + My->SYSIN->cfp = stdin; + } + else + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + if (is_empty_string (Value)) + { + bwb_fclose (My->SYSIN->cfp); + My->SYSIN->cfp = stdin; + } + else + { + bwb_fclose (My->SYSIN->cfp); + My->SYSIN->cfp = fopen (Value, "r"); + if (My->SYSIN->cfp == NULL) + { + /* sane default */ + My->SYSIN->cfp = stdin; + WARN_BAD_FILE_NAME; + } + } + free (Value); + } + return (l); +} + +LineType * +bwb_OPTION_STDOUT (LineType * l) +{ + /* OPTION STDOUT filename$ */ + + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + if (line_is_eol (l)) + { + bwb_fclose (My->SYSOUT->cfp); + My->SYSOUT->cfp = stdout; + } + else + { + char *Value; + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + if (is_empty_string (Value)) + { + bwb_fclose (My->SYSOUT->cfp); + My->SYSOUT->cfp = stdout; + } + else + { + bwb_fclose (My->SYSOUT->cfp); + My->SYSOUT->cfp = fopen (Value, "w+"); + if (My->SYSOUT->cfp == NULL) + { + /* sane default */ + My->SYSOUT->cfp = stdout; + WARN_BAD_FILE_NAME; + } + } + free (Value); + } + return (l); +} + +LineType * +bwb_OPTION_PUNCT_STATEMENT (LineType * l) +{ + /* OPTION PUNCT STATEMENT char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, + &(My->CurrentVersion->OptionStatementChar)); +} + +LineType * +bwb_OPTION_STRICT (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_STRICT_ON (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION STRICT ON */ + My->CurrentVersion->OptionFlags |= OPTION_STRICT_ON; + return (l); +} + +LineType * +bwb_OPTION_STRICT_OFF (LineType * l) +{ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + /* OPTION STRICT OFF */ + My->CurrentVersion->OptionFlags &= ~OPTION_STRICT_ON; + return (l); +} + +LineType * +bwb_OPTION_PUNCT (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_PUNCT_STRING (LineType * l) +{ + /* OPTION PUNCT STRING char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionStringChar)); +} + +LineType * +bwb_OPTION_PUNCT_DOUBLE (LineType * l) +{ + /* OPTION PUNCT DOUBLE char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionDoubleChar)); +} + +LineType * +bwb_OPTION_PUNCT_SINGLE (LineType * l) +{ + /* OPTION PUNCT SINGLE char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionSingleChar)); +} + +LineType * +bwb_OPTION_PUNCT_CURRENCY (LineType * l) +{ + /* OPTION PUNCT CURRENCY char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionCurrencyChar)); +} + +LineType * +bwb_OPTION_PUNCT_LONG (LineType * l) +{ + /* OPTION PUNCT LONG char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionLongChar)); +} + +LineType * +bwb_OPTION_PUNCT_INTEGER (LineType * l) +{ + /* OPTION PUNCT INTEGER char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionIntegerChar)); +} + +LineType * +bwb_OPTION_PUNCT_BYTE (LineType * l) +{ + /* OPTION PUNCT BYTE char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionByteChar)); +} + +LineType * +bwb_OPTION_PUNCT_LPAREN (LineType * l) +{ + /* OPTION PUNCT LPAREN char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionLparenChar)); +} + +LineType * +bwb_OPTION_PUNCT_RPAREN (LineType * l) +{ + /* OPTION PUNCT RPAREN char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionRparenChar)); +} + +LineType * +bwb_OPTION_PUNCT_FILENUM (LineType * l) +{ + /* OPTION PUNCT FILENUM char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionFilenumChar)); +} + +LineType * +bwb_OPTION_PUNCT_AT (LineType * l) +{ + /* OPTION PUNCT AT char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionAtChar)); +} + +LineType * +bwb_OPTION_RECLEN (LineType * l) +{ + /* OPTION RECLEN integer */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_range_integer (l, + &(My->CurrentVersion->OptionReclenInteger), + 0, MAXINT); +} + +LineType * +bwb_OPTION_TERMINAL (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_TERMINAL_NONE (LineType * l) +{ + /* OPTION TERMINAL NONE */ + assert (l != NULL); + assert( My != NULL ); + + My->OptionTerminalType = C_OPTION_TERMINAL_NONE; + return (l); +} + +LineType * +bwb_OPTION_TERMINAL_ADM (LineType * l) +{ + /* OPTION TERMINAL ADM-3A */ + assert (l != NULL); + assert( My != NULL ); + + My->OptionTerminalType = C_OPTION_TERMINAL_ADM; + return (l); +} + +LineType * +bwb_OPTION_TERMINAL_ANSI (LineType * l) +{ + /* OPTION TERMINAL ANSI */ + assert (l != NULL); + assert( My != NULL ); + + My->OptionTerminalType = C_OPTION_TERMINAL_ANSI; + return (l); +} + +LineType * +bwb_OPTION_TIME (LineType * l) +{ + /* OPTION TIME format$ */ + char *Value; + + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + Value = NULL; + if (line_read_string_expression (l, &Value) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (Value == NULL) + { + WARN_SYNTAX_ERROR; + return (l); + } + /* OK */ + My->CurrentVersion->OptionTimeFormat = Value; +#if FALSE /* keep this ... */ + /* + ** Yes, this can theoretically cause a memory leak. + ** No, we are not going to fix it. + ** This command is only supported in the profile. + ** This will only execute at most once, + ** so there is no actual memory leak. + ** + */ + free (Value); +#endif + return (l); +} + +LineType * +bwb_OPTION_TRACE (LineType * l) +{ + + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_TRACE_ON (LineType * l) +{ + /* OPTION TRACE ON */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + My->CurrentVersion->OptionFlags |= OPTION_TRACE_ON; + return (l); +} + +LineType * +bwb_OPTION_TRACE_OFF (LineType * l) +{ + /* OPTION TRACE OFF */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + My->CurrentVersion->OptionFlags &= ~OPTION_TRACE_ON; + return (l); +} + +LineType * +bwb_OPTION_USING (LineType * l) +{ + assert (l != NULL); + WARN_SYNTAX_ERROR; + return (l); +} + +LineType * +bwb_OPTION_USING_DIGIT (LineType * l) +{ + /* OPTION USING DIGIT char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingDigit)); +} + +LineType * +bwb_OPTION_USING_COMMA (LineType * l) +{ + /* OPTION USING COMMA char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingComma)); +} + +LineType * +bwb_OPTION_USING_PERIOD (LineType * l) +{ + /* OPTION USING PERIOD char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingPeriod)); +} + +LineType * +bwb_OPTION_USING_PLUS (LineType * l) +{ + /* OPTION USING PLUS char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingPlus)); +} + +LineType * +bwb_OPTION_USING_MINUS (LineType * l) +{ + /* OPTION USING MINUS char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingMinus)); +} + +LineType * +bwb_OPTION_USING_EXRAD (LineType * l) +{ + /* OPTION USING EXRAD char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingExrad)); +} + +LineType * +bwb_OPTION_USING_DOLLAR (LineType * l) +{ + /* OPTION USING DOLLAR char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingDollar)); +} + +LineType * +bwb_OPTION_USING_FILLER (LineType * l) +{ + /* OPTION USING FILLER char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingFiller)); +} + +LineType * +bwb_OPTION_USING_LITERAL (LineType * l) +{ + /* OPTION USING LITERAL char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingLiteral)); +} + +LineType * +bwb_OPTION_USING_FIRST (LineType * l) +{ + /* OPTION USING FIRST char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingFirst)); +} + +LineType * +bwb_OPTION_USING_ALL (LineType * l) +{ + /* OPTION USING ALL char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingAll)); +} + +LineType * +bwb_OPTION_USING_LENGTH (LineType * l) +{ + /* OPTION USING LENGTH char$ */ + assert (l != NULL); + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + return bwb_option_punct_char (l, &(My->CurrentVersion->OptionUsingLength)); +} + +extern LineType * +bwb_OPTION_VERSION (LineType * l) +{ + /* OPTION VERSION [version$] */ + char *Name; + int i; + + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + + Name = NULL; + if (line_is_eol (l)) + { + /* OPTIONAL */ + } + else if (line_read_string_expression (l, &Name)) + { + if (is_empty_string (Name) == FALSE) + { + /* a version was specified */ + for (i = 0; i < NUM_VERSIONS; i++) + { + if (bwb_stricmp (Name, bwb_vertable[i].Name) == 0) + { + /* FOUND */ + OptionVersionSet (i); + return (l); + } + } + /* NOT FOUND */ + fprintf (My->SYSOUT->cfp, "OPTION VERSION \"%s\" IS INVALID\n", Name); + } + } + fprintf (My->SYSOUT->cfp, "VALID CHOICES ARE:\n"); + for (i = 0; i < NUM_VERSIONS; i++) + { + char *tbuf; + + tbuf = My->ConsoleOutput; + bwb_strcpy (tbuf, "\""); + bwb_strcat (tbuf, bwb_vertable[i].Name); + bwb_strcat (tbuf, "\""); + fprintf (My->SYSOUT->cfp, "OPTION VERSION %-16s ' %s\n", tbuf, + bwb_vertable[i].Description); + } + ResetConsoleColumn (); + line_skip_eol (l); + return (l); +} + +LineType * +bwb_OPTION_ZONE (LineType * l) +{ + /* OPTION ZONE integer */ + int Value; + + assert (l != NULL); + assert( My != NULL ); + + Value = 0; + if (line_read_integer_expression (l, &Value)) + { + /* OK */ + if (Value == 0) + { + /* default */ + Value = ZONE_WIDTH; + } + if (Value < MINIMUM_ZONE || Value > MAXIMUM_ZONE) + { + WARN_ILLEGAL_FUNCTION_CALL; + return (l); + } + My->OptionZoneInteger = Value; + } + return (l); +} + + + +int +var_get (VariableType * variable, VariantType * variant) +{ + size_t offset; + + /* check sanity */ + if (variable == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + if (variant == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + + /* Check subscripts */ + if (dim_check (variable) == FALSE) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return FALSE; + } + + /* Determine offset from array base ( for scalars the offset is always zero ) */ + offset = dim_unit (variable, variable->VINDEX); + + CLEAR_VARIANT (variant); + + /* Force compatibility */ + variant->VariantTypeCode = variable->VariableTypeCode; + + if (variable->VariableTypeCode == StringTypeCode) + { + /* Variable is a STRING */ + StringType Value; + + Value.sbuffer = NULL; + Value.length = 0; + /* both STRING */ + + if (variable->VariableFlags & VARIABLE_VIRTUAL) /* var_get() */ + { + /* get file information */ + VirtualType *Z; + FileType *F; + + Z = find_virtual_by_variable (variable); + if (Z == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + offset *= Z->FileLength; /* Byte offset */ + offset += Z->FileOffset; /* Beginning of this data */ + /* update file information */ + F = find_file_by_number (Z->FileNumber); + if (F == NULL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (F->DevMode != DEVMODE_VIRTUAL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (F->cfp == NULL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (fseek (F->cfp, offset, SEEK_SET) != 0) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + Value.length = Z->FileLength; + if ((Value.sbuffer = + (char *) calloc (Value.length + 1 /* NulChar */ , + sizeof (char))) == NULL) + { + WARN_OUT_OF_MEMORY; + return FALSE; + } + if (fread (Value.sbuffer, Value.length, 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + } + else + { + StringType *string; + + string = variable->Value.String; + if (string == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + string += offset; + if (str_btob (&Value, string) == FALSE) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + } + variant->Buffer = Value.sbuffer; + variant->Length = Value.length; + } + else + { + /* Variable is a NUMBER */ + DoubleType Value; + /* both NUMBER */ + + if (variable->VariableFlags & VARIABLE_VIRTUAL) /* var_get() */ + { + /* get file information */ + VirtualType *Z; + FileType *F; + + Z = find_virtual_by_variable (variable); + if (Z == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + offset *= Z->FileLength; /* Byte offset */ + offset += Z->FileOffset; /* Beginning of this data */ + /* update file information */ + F = find_file_by_number (Z->FileNumber); + if (F == NULL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (F->DevMode != DEVMODE_VIRTUAL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (F->cfp == NULL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (fseek (F->cfp, offset, SEEK_SET) != 0) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + switch (variable->VariableTypeCode) + { + case ByteTypeCode: + { + ByteType X; + if (fread (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + Value = X; + } + break; + case IntegerTypeCode: + { + IntegerType X; + if (fread (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + Value = X; + } + break; + case LongTypeCode: + { + LongType X; + if (fread (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + Value = X; + } + break; + case CurrencyTypeCode: + { + CurrencyType X; + if (fread (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + Value = X; + } + break; + case SingleTypeCode: + { + SingleType X; + if (fread (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + Value = X; + } + break; + case DoubleTypeCode: + { + DoubleType X; + if (fread (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + Value = X; + } + break; + case StringTypeCode: + { + WARN_INTERNAL_ERROR; + return FALSE; + } + /* break; */ + default: + { + WARN_INTERNAL_ERROR; + return FALSE; + } + } + } + else + { + DoubleType *number; + + number = variable->Value.Number; + if (number == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + number += offset; + /* copy value */ + Value = *number; + } + + /* VerifyNumeric */ + if (isnan (Value)) + { + /*** FATAL - INTERNAL ERROR - SHOULD NEVER HAPPEN ***/ + WARN_INTERNAL_ERROR; + return FALSE; + } + if (isinf (Value)) + { + /* - Evaluation of an expression results in an overflow + * (nonfatal, the recommended recovery procedure is to supply + * machine in- finity with the algebraically correct sign and + * continue). */ + if (Value < 0) + { + Value = MINDBL; + } + else + { + Value = MAXDBL; + } + if (WARN_OVERFLOW) + { + /* ERROR */ + return FALSE; + } + /* CONTINUE */ + } + /* OK */ + switch (variable->VariableTypeCode) + { + case ByteTypeCode: + case IntegerTypeCode: + case LongTypeCode: + case CurrencyTypeCode: + /* integer values */ + Value = bwb_rint (Value); + break; + case SingleTypeCode: + case DoubleTypeCode: + /* float values */ + break; + default: + /* ERROR */ + WARN_INTERNAL_ERROR; + return FALSE; + /* break; */ + } + variant->Number = Value; + } + return TRUE; +} + +int +var_set (VariableType * variable, VariantType * variant) +{ + size_t offset; + + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + /* check sanity */ + if (variable == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + if (variant == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + + /* check CONST */ + if (variable->VariableFlags & (VARIABLE_CONSTANT)) + { + /* attempting to assign to a constant */ + WARN_VARIABLE_NOT_DECLARED; + return FALSE; + } + + /* Check subscripts */ + if (dim_check (variable) == FALSE) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return FALSE; + } + + /* Determine offset from array base ( for scalars the offset is always zero ) */ + offset = dim_unit (variable, variable->VINDEX); + + /* Verify compatibility */ + if (variable->VariableTypeCode == StringTypeCode) + { + /* Variable is a STRING */ + StringType Value; + + /* Verify value is a STRING */ + if (variant->VariantTypeCode != StringTypeCode) + { + WARN_TYPE_MISMATCH; + return FALSE; + } + Value.sbuffer = variant->Buffer; + Value.length = variant->Length; + /* both STRING */ + + if (variable->VariableFlags & VARIABLE_VIRTUAL) /* var_set() */ + { + /* get file information */ + VirtualType *Z; + FileType *F; + int count; + + Z = find_virtual_by_variable (variable); + if (Z == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + offset *= Z->FileLength; /* Byte offset */ + offset += Z->FileOffset; /* Beginning of this data */ + /* update file information */ + F = find_file_by_number (Z->FileNumber); + if (F == NULL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (F->DevMode != DEVMODE_VIRTUAL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (F->cfp == NULL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (fseek (F->cfp, offset, SEEK_SET) != 0) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + count = MIN (Value.length, Z->FileLength); + if (fwrite (Value.sbuffer, sizeof (char), count, F->cfp) != count) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + /* PADR */ + while (count < Z->FileLength) + { + if (fputc (' ', F->cfp) == EOF) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + count++; + } + } + else + { + StringType *string; + + string = variable->Value.String; + if (string == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + string += offset; + if (str_btob (string, &Value) == FALSE) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + } + if (variable->VariableFlags & VARIABLE_DISPLAY) /* var_set() */ + { + if (My->ThisLine) /* var_set() */ + { + if (My->ThisLine->LineFlags & (LINE_USER)) /* var_set() */ + { + /* immediate mode */ + } + else + { + fprintf (My->SYSOUT->cfp, "#%d %s=%s\n", My->ThisLine->number, variable->name, variant->Buffer); /* var_set() */ + ResetConsoleColumn (); + } + } + } + } + else + { + /* Variable is a NUMBER */ + DoubleType Value; + + /* Verify value is a NUMBER */ + if (variant->VariantTypeCode == StringTypeCode) + { + WARN_TYPE_MISMATCH; + return FALSE; + } + + /* both NUMBER */ + + /* VerifyNumeric */ + if (isnan (variant->Number)) + { + /*** FATAL - INTERNAL ERROR - SHOULD NEVER HAPPEN ***/ + WARN_INTERNAL_ERROR; + return FALSE; + } + if (isinf (variant->Number)) + { + /* - Evaluation of an expression results in an overflow + * (nonfatal, the recommended recovery procedure is to supply + * machine in- finity with the algebraically correct sign and + * continue). */ + if (variant->Number < 0) + { + variant->Number = MINDBL; + } + else + { + variant->Number = MAXDBL; + } + if (WARN_OVERFLOW) + { + /* ERROR */ + return FALSE; + } + /* CONTINUE */ + } + /* OK */ + switch (variable->VariableTypeCode) + { + case ByteTypeCode: + variant->Number = bwb_rint (variant->Number); + if (variant->Number < MINBYT) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MINBYT; + } + else if (variant->Number > MAXBYT) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MAXBYT; + } + break; + case IntegerTypeCode: + variant->Number = bwb_rint (variant->Number); + if (variant->Number < MININT) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MININT; + } + else if (variant->Number > MAXINT) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MAXINT; + } + break; + case LongTypeCode: + variant->Number = bwb_rint (variant->Number); + if (variant->Number < MINLNG) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MINLNG; + } + else if (variant->Number > MAXLNG) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MAXLNG; + } + break; + case CurrencyTypeCode: + variant->Number = bwb_rint (variant->Number); + if (variant->Number < MINCUR) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MINCUR; + } + else if (variant->Number > MAXCUR) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MAXCUR; + } + break; + case SingleTypeCode: + if (variant->Number < MINSNG) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MINSNG; + } + else if (variant->Number > MAXSNG) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MAXSNG; + } + break; + case DoubleTypeCode: + if (variant->Number < MINDBL) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MINDBL; + } + else if (variant->Number > MAXDBL) + { + if (WARN_OVERFLOW) + { + return FALSE; + } + variant->Number = MAXDBL; + } + break; + default: + WARN_INTERNAL_ERROR; + return FALSE; + /* break; */ + } + Value = variant->Number; + if (variable->VariableFlags & VARIABLE_VIRTUAL) /* var_set() */ + { + /* get file information */ + VirtualType *Z; + FileType *F; + + Z = find_virtual_by_variable (variable); + if (Z == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + offset *= Z->FileLength; /* Byte offset */ + offset += Z->FileOffset; /* Beginning of this data */ + /* update file information */ + F = find_file_by_number (Z->FileNumber); + if (F == NULL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (F->DevMode != DEVMODE_VIRTUAL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (F->cfp == NULL) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + if (fseek (F->cfp, offset, SEEK_SET) != 0) + { + WARN_BAD_FILE_MODE; + return FALSE; + } + switch (variable->VariableTypeCode) + { + case ByteTypeCode: + { + ByteType X; + X = Value; + if (fwrite (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + } + break; + case IntegerTypeCode: + { + IntegerType X; + X = Value; + if (fwrite (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + } + break; + case LongTypeCode: + { + LongType X; + X = Value; + if (fwrite (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + } + break; + case CurrencyTypeCode: + { + CurrencyType X; + X = Value; + if (fwrite (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + } + break; + case SingleTypeCode: + { + SingleType X; + X = Value; + if (fwrite (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + } + break; + case DoubleTypeCode: + { + DoubleType X; + X = Value; + if (fwrite (&X, sizeof (X), 1, F->cfp) != 1) + { + WARN_DISK_IO_ERROR; + return FALSE; + } + } + break; + case StringTypeCode: + { + WARN_INTERNAL_ERROR; + return FALSE; + } + /* break; */ + default: + { + WARN_INTERNAL_ERROR; + return FALSE; + } + } + } + else + { + DoubleType *number; + number = variable->Value.Number; + if (number == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + number += offset; + *number = Value; + } + if (variable->VariableFlags & VARIABLE_DISPLAY) /* var_set() */ + { + if (My->ThisLine) /* var_set() */ + { + if (My->ThisLine->LineFlags & (LINE_USER)) /* var_set() */ + { + /* immediate mode */ + } + else + { + FormatBasicNumber (Value, My->NumLenBuffer); + fprintf (My->SYSOUT->cfp, "#%d %s=%s\n", My->ThisLine->number, variable->name, My->NumLenBuffer); /* var_set() */ + ResetConsoleColumn (); + } + } + } + } + return TRUE; +} + +/*************************************************************** + + FUNCTION: dim_check() + + DESCRIPTION: This function checks subscripts of a + specific variable to be sure that they + are within the correct range. + +***************************************************************/ + +static int +dim_check (VariableType * variable) +{ + /* Check for validly allocated array */ + int n; + + assert (variable != NULL); + + + if (variable->VariableFlags & VARIABLE_VIRTUAL) /* var_set() */ + { + if (variable->Value.String != NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + if (variable->Value.Number != NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + } + else if (VAR_IS_STRING (variable)) + { + if (variable->Value.String == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + } + else + { + if (variable->Value.Number == NULL) + { + WARN_INTERNAL_ERROR; + return FALSE; + } + } + /* Now check subscript values */ + for (n = 0; n < variable->dimensions; n++) + { + if (variable->VINDEX[n] < variable->LBOUND[n] + || variable->VINDEX[n] > variable->UBOUND[n]) + { + WARN_SUBSCRIPT_OUT_OF_RANGE; + return FALSE; + } + } + /* No problems found */ + return TRUE; +} + +/*************************************************************** + + FUNCTION: var_make() + + DESCRIPTION: This function initializes a variable, + allocating necessary memory for it. + +***************************************************************/ + +int +var_make (VariableType * variable, char TypeCode) +{ + /* ALL variables are created here */ + + assert (variable != NULL); + + switch (TypeCode) + { + case ByteTypeCode: + case IntegerTypeCode: + case LongTypeCode: + case CurrencyTypeCode: + case SingleTypeCode: + case DoubleTypeCode: + case StringTypeCode: + /* OK */ + break; + default: + /* ERROR */ + WARN_TYPE_MISMATCH; + return FALSE; + } + + variable->VariableTypeCode = TypeCode; + + /* get memory for array */ + + /* First cleanup the joint (JBV) */ + if (variable->Value.Number != NULL) + { + free (variable->Value.Number); + variable->Value.Number = NULL; + } + if (variable->Value.String != NULL) + { + /* Remember to deallocate those far-flung branches! (JBV) */ + StringType *sp; /* JBV */ + int n; /* JBV */ + + sp = variable->Value.String; + for (n = 0; n < (int) variable->array_units; n++) + { + if (sp[n].sbuffer != NULL) + { + free (sp[n].sbuffer); + sp[n].sbuffer = NULL; + } + sp[n].length = 0; + } + free (variable->Value.String); + variable->Value.String = NULL; + } + + variable->dimensions = 0; + variable->array_units = 1; + + if (VAR_IS_STRING (variable)) + { + if ((variable->Value.String = + calloc (variable->array_units, sizeof (StringType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return FALSE; + } + } + else + { + if ((variable->Value.Number = + calloc (variable->array_units, sizeof (DoubleType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return FALSE; + } + } + return TRUE; + +} + +/*************************************************************** + + FUNCTION: var_islocal() + + DESCRIPTION: This function determines whether the string + pointed to by 'buffer' has the name of + a local variable at the present EXEC stack + level. + +***************************************************************/ + +static VariableType * +mat_islocal (char *buffer) +{ + /* + similar to var_islocal, but returns first matrix found. + */ + + assert (buffer != NULL); + assert( My != NULL ); + + if (My->StackHead != NULL) + { + StackType *StackItem; + for (StackItem = My->StackHead; StackItem != NULL; + StackItem = StackItem->next) + { + if (StackItem->LoopTopLine != NULL) + { + switch (StackItem->LoopTopLine->cmdnum) + { + case C_DEF: + case C_FUNCTION: + case C_SUB: + /* we have found a FUNCTION or SUB boundary */ + { + VariableType *variable; + + for (variable = StackItem->local_variable; variable != NULL; + variable = variable->next) + { + if (variable->dimensions > 0) + { + if (bwb_stricmp (variable->name, buffer) == 0) + { + /* FOUND */ + return variable; + } + } + } + } + /* we have checked all the way to a FUNCTION or SUB boundary */ + /* NOT FOUND */ + return NULL; + /* break; */ + } + } + } + } + /* NOT FOUND */ + return NULL; +} + + +static VariableType * +var_islocal (char *buffer, int dimensions) +{ + + assert (buffer != NULL); + assert( My != NULL ); + + if (My->StackHead != NULL) + { + StackType *StackItem; + for (StackItem = My->StackHead; StackItem != NULL; + StackItem = StackItem->next) + { + if (StackItem->LoopTopLine != NULL) + { + switch (StackItem->LoopTopLine->cmdnum) + { + case C_DEF: + case C_FUNCTION: + case C_SUB: + /* we have found a FUNCTION or SUB boundary */ + { + VariableType *variable; + + for (variable = StackItem->local_variable; variable != NULL; + variable = variable->next) + { + if (variable->dimensions == dimensions) + { + if (bwb_stricmp (variable->name, buffer) == 0) + { + /* FOUND */ + return variable; + } + } + } + } + /* we have checked all the way to a FUNCTION or SUB boundary */ + /* NOT FOUND */ + return NULL; + /* break; */ + } + } + } + } + /* NOT FOUND */ + return NULL; +} + +/*************************************************************** + + FUNCTION: bwb_vars() + + DESCRIPTION: This function implements the Bywater- + specific debugging command VARS, which + gives a list of all variables defined + in memory. + +***************************************************************/ + + +LineType * +bwb_VARS (LineType * l) +{ + VariableType *variable; + + assert (l != NULL); + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + /* run through the variable list and print variables */ + + + fprintf (My->SYSOUT->cfp, "%-*s %-6s %-4s %s\n", NameLengthMax, "Name", + "Type", "Dims", "Value"); + + for (variable = My->VariableHead; variable != NULL; + variable = variable->next) + { + VariantType variant; + CLEAR_VARIANT (&variant); + + if (var_get (variable, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + if (variant.VariantTypeCode == StringTypeCode) + { + fprintf (My->SYSOUT->cfp, "%-*s %-6s %-4d %s\n", NameLengthMax, + variable->name, "STRING", variable->dimensions, + variant.Buffer); + } + else + { + FormatBasicNumber (variant.Number, My->NumLenBuffer); + fprintf (My->SYSOUT->cfp, "%-*s %-6s %-4d %s\n", NameLengthMax, + variable->name, "NUMBER", variable->dimensions, + My->NumLenBuffer); + } + RELEASE_VARIANT (&variant); + } + ResetConsoleColumn (); + return (l); +} + +/*************************************************************** + + FUNCTION: bwb_field() + + DESCRIPTION: This C function implements the BASIC + FIELD command. + +***************************************************************/ + +static void +field_clear (FieldType * Field) +{ + int i; + + assert (Field != NULL); + + Field->File = NULL; + Field->FieldOffset = 0; + Field->FieldLength = 0; + Field->Var = NULL; + for (i = 0; i < MAX_DIMS; i++) + { + Field->VINDEX[i] = 0; + } +} + +static FieldType * +field_new (void) +{ + /* search for an empty slot */ + FieldType *Field; + + assert( My != NULL ); + + for (Field = My->FieldHead; Field != NULL; Field = Field->next) + { + if (Field->File == NULL || Field->Var == NULL) + { + field_clear (Field); + return Field; + } + } + /* not found */ + if ((Field = calloc (1, sizeof (FieldType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return NULL; + } + Field->next = My->FieldHead; + My->FieldHead = Field; + return Field; +} + +void +field_close_file (FileType * File) +{ + /* a CLOSE of a file is in progress, release associated fields */ + FieldType *Field; + + assert (File != NULL); + assert( My != NULL ); + + for (Field = My->FieldHead; Field != NULL; Field = Field->next) + { + if (Field->File == File) + { + Field->File = NULL; + Field->Var = NULL; + } + } +} +void +field_free_variable (VariableType * Var) +{ + /* an ERASE of a variable is in progress, release associated fields */ + FieldType *Field; + + assert (Var != NULL); + assert( My != NULL ); + + for (Field = My->FieldHead; Field != NULL; Field = Field->next) + { + if (Field->Var == Var) + { + Field->File = NULL; + Field->Var = NULL; + } + } +} + + +void +field_get (FileType * File) +{ + /* a GET of the RANDOM file is in progress, update variables from FILE buffer */ + FieldType *Field; + + assert( My != NULL ); + + if (File == NULL) + { + WARN_BAD_FILE_NUMBER; + return; + } + if (File->buffer == NULL) + { + WARN_BAD_FILE_MODE; + return; + } + for (Field = My->FieldHead; Field != NULL; Field = Field->next) + { + if (Field->File == File && Field->Var != NULL) + { + /* from file to variable */ + VariantType variant; + CLEAR_VARIANT (&variant); + + if (Field->FieldOffset < 0) + { + WARN_FIELD_OVERFLOW; + return; + } + if (Field->FieldLength <= 0) + { + WARN_FIELD_OVERFLOW; + return; + } + if ((Field->FieldOffset + Field->FieldLength) > File->width) + { + WARN_FIELD_OVERFLOW; + return; + } + variant.VariantTypeCode = StringTypeCode; + variant.Length = Field->FieldLength; + if ((variant.Buffer = + (char *) calloc (variant.Length + 1 /* NulChar */ , + sizeof (char))) == NULL) + { + WARN_OUT_OF_MEMORY; + return; + } + /* if( TRUE ) */ + { + int i; + + for (i = 0; i < Field->Var->dimensions; i++) + { + Field->Var->VINDEX[i] = Field->VINDEX[i]; + } + } + /* if( TRUE ) */ + { + int i; + char *Buffer; + + Buffer = File->buffer; + Buffer += Field->FieldOffset; + for (i = 0; i < variant.Length; i++) + { + variant.Buffer[i] = Buffer[i]; + } + variant.Buffer[variant.Length] = NulChar; + } + if (var_set (Field->Var, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return; + } + RELEASE_VARIANT (&variant); + } + } +} +void +field_put (FileType * File) +{ + /* a PUT of the RANDOM file is in progress, update FILE buffer from variables */ + FieldType *Field; + + assert( My != NULL ); + + if (File == NULL) + { + WARN_BAD_FILE_NUMBER; + return; + } + if (File->buffer == NULL) + { + WARN_BAD_FILE_MODE; + return; + } + for (Field = My->FieldHead; Field != NULL; Field = Field->next) + { + if (Field->File == File && Field->Var != NULL) + { + /* from variable to file */ + VariantType variant; + CLEAR_VARIANT (&variant); + + if (Field->FieldOffset < 0) + { + WARN_FIELD_OVERFLOW; + return; + } + if (Field->FieldLength <= 0) + { + WARN_FIELD_OVERFLOW; + return; + } + if ((Field->FieldOffset + Field->FieldLength) > File->width) + { + WARN_FIELD_OVERFLOW; + return; + } + /* if( TRUE ) */ + { + int i; + + for (i = 0; i < Field->Var->dimensions; i++) + { + Field->Var->VINDEX[i] = Field->VINDEX[i]; + } + } + if (var_get (Field->Var, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return; + } + if (variant.VariantTypeCode != StringTypeCode) + { + WARN_TYPE_MISMATCH; + return; + } + /* if( TRUE ) */ + { + int i; + int n; + char *Buffer; + + i = 0; + n = 0; + Buffer = File->buffer; + Buffer += Field->FieldOffset; + + if (variant.Buffer != NULL) + { + n = MIN (variant.Length, Field->FieldLength); + } + for (i = 0; i < n; i++) + { + Buffer[i] = variant.Buffer[i]; + } + for (i = n; i < Field->FieldLength; i++) + { + /* Pad on the right with spaces */ + Buffer[i] = ' '; + } + } + RELEASE_VARIANT (&variant); + } + } +} + + +LineType * +bwb_FIELD (LineType * l) +{ + FileType *File; + int FileNumber; + int FieldOffset; + + assert (l != NULL); + + FileNumber = 0; + FieldOffset = 0; + + /* first read device number */ + if (line_skip_FilenumChar (l)) + { + /* optional */ + } + if (line_read_integer_expression (l, &FileNumber) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (FileNumber <= 0) + { + /* FIELD # 0 is an error */ + WARN_BAD_FILE_NUMBER; + return (l); + } + File = find_file_by_number (FileNumber); + if (File == NULL) + { + WARN_BAD_FILE_NUMBER; + return (l); + } + if (File->DevMode != DEVMODE_RANDOM) + { + WARN_BAD_FILE_MODE; + return (l); + } + /* loop to read variables */ + + + /* read the comma and advance beyond it */ + while (line_skip_seperator (l)) + { + int FieldLength; + VariableType *variable; + VariantType variant; + + CLEAR_VARIANT (&variant); + + /* first find the size of the field */ + FieldLength = 0; + if (line_read_integer_expression (l, &FieldLength) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + if (FieldLength <= 0) + { + WARN_SYNTAX_ERROR; + return (l); + } + + /* read the AS */ + if (line_skip_word (l, "AS") == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + /* read the string variable name */ + if ((variable = line_read_scalar (l)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + + if (VAR_IS_STRING (variable)) + { + /* OK */ + } + else + { + WARN_TYPE_MISMATCH; + return (l); + } + /* check for overflow of record length */ + if ((FieldOffset + FieldLength) > File->width) + { + WARN_FIELD_OVERFLOW; + return (l); + } + /* set buffer */ + variant.VariantTypeCode = StringTypeCode; + /* if( TRUE ) */ + { + FieldType *Field; + int i; + + Field = field_new (); + if (Field == NULL) + { + WARN_OUT_OF_MEMORY; + return (l); + } + Field->File = File; + Field->FieldOffset = FieldOffset; + Field->FieldLength = FieldLength; + Field->Var = variable; + for (i = 0; i < variable->dimensions; i++) + { + Field->VINDEX[i] = variable->VINDEX[i]; + } + variant.Length = FieldLength; + if ((variant.Buffer = + (char *) calloc (variant.Length + 1 /* NulChar */ , + sizeof (char))) == NULL) + { + WARN_OUT_OF_MEMORY; + return (l); + } + bwb_memset (variant.Buffer, ' ', variant.Length); + variant.Buffer[variant.Length] = NulChar; + } + if (var_set (variable, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + RELEASE_VARIANT (&variant); + FieldOffset += FieldLength; + } + /* return */ + return (l); +} + +/*************************************************************** + + FUNCTION: bwb_lset() + + DESCRIPTION: This C function implements the BASIC + LSET command. + + SYNTAX: LSET string-variable$ = expression + +***************************************************************/ + +LineType * +bwb_LSET (LineType * l) +{ + + assert (l != NULL); + return dio_lrset (l, FALSE); +} + +/*************************************************************** + + FUNCTION: bwb_rset() + + DESCRIPTION: This C function implements the BASIC + RSET command. + + SYNTAX: RSET string-variable$ = expression + +***************************************************************/ + +LineType * +bwb_RSET (LineType * l) +{ + + assert (l != NULL); + return dio_lrset (l, TRUE); +} + +/*************************************************************** + + FUNCTION: dio_lrset() + + DESCRIPTION: This C function implements the BASIC + RSET and LSET commands. + +***************************************************************/ + +static LineType * +dio_lrset (LineType * l, int rset) +{ + /* LSET and RSET */ + VariantType variant; + int n; + int i; + int startpos; + VariableType *v; + VariantType t; + VariantType *T; + + assert (l != NULL); + + T = &t; + CLEAR_VARIANT (T); + CLEAR_VARIANT (&variant); + /* get the variable */ + if ((v = line_read_scalar (l)) == NULL) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + if (VAR_IS_STRING (v) == FALSE) + { + WARN_TYPE_MISMATCH; + return (l); + } + + /* skip the equals sign */ + if (line_skip_EqualChar (l) == FALSE) + { + WARN_SYNTAX_ERROR; + return (l); + } + + /* get the value */ + if (line_read_expression (l, T) == FALSE) /* dio_lrset */ + { + WARN_SYNTAX_ERROR; + return (l); + } + if (T->VariantTypeCode != StringTypeCode) + { + WARN_TYPE_MISMATCH; + return (l); + } + if (var_get (v, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* determine starting position */ + startpos = 0; + if (rset == TRUE && T->Length < variant.Length) + { + /* + LET A$ = "123_456" ' variant.Length = 7 + LET B$ = "789" ' T->Length = 3 + RSET A$ = B$ ' startpos = 4 + PRINT "[";A$;"]" ' [123_789] + */ + startpos = variant.Length - T->Length; + } + /* write characters to new position */ + for (n = startpos, i = 0; + (n < (int) variant.Length) && (i < (int) T->Length); n++, i++) + { + variant.Buffer[n] = T->Buffer[i]; + } + if (var_set (v, &variant) == FALSE) + { + WARN_VARIABLE_NOT_DECLARED; + return (l); + } + /* OK */ + RELEASE_VARIANT (T); + RELEASE_VARIANT (&variant); + + return (l); +} + +/* EOF */ diff --git a/Junk/bwbasic.c b/Junk/bwbasic.c new file mode 100644 index 0000000..cfd80f2 --- /dev/null +++ b/Junk/bwbasic.c @@ -0,0 +1,3641 @@ +/*************************************************************** + + bwbasic.c Main Program File + for Bywater BASIC Interpreter + + Copyright (c) 1993, Ted A. Campbell + Bywater Software + + email: tcamp@delphi.com + + Copyright and Permissions Information: + + All U.S. and international rights are claimed by the author, + Ted A. Campbell. + + This software is released under the terms of the GNU General + Public License (GPL), which is distributed with this software + in the file "COPYING". The GPL specifies the terms under + which users may copy and use the software in this distribution. + + A separate license is available for commercial distribution, + for information on which you should contact the author. + +***************************************************************/ + +/*---------------------------------------------------------------*/ +/* NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, */ +/* 11/1995 (eidetics@cerf.net). */ +/* */ +/* Those additionally marked with "DD" were at the suggestion of */ +/* Dale DePriest (daled@cadence.com). */ +/* */ +/* Version 3.00 by Howard Wulf, AF5NE */ +/* */ +/* Version 3.10 by Howard Wulf, AF5NE */ +/* */ +/* Version 3.20 by Howard Wulf, AF5NE */ +/* */ +/* Version 3.20A by Ken Martin */ +/* */ +/*---------------------------------------------------------------*/ + + + +#include "bwbasic.h" + +static void break_handler (void); +static void break_mes (int x); +static int bwb_init (void); +static void bwb_initialize_warnings (void); +static void bwb_interact (void); +static int bwb_ladd (char *buffer, LineType * p, int IsUser); +static void bwb_single_step (char *buffer); +static void bwb_xtxtline (char *buffer); +static int bwx_signon (void); +static void execute_profile (char *FileName); +static void execute_program (char *FileName); +static char *FindClassicStatementEnd (char *C); +static int FixQuotes (char *tbuf); +static void ImportClassicIfThenElse (char *InBuffer); +static int is_ln (char *buffer); +static int is_numconst (char *buffer); +static void mark_preset_variables (void); +static FILE *nice_open (char *BaseName); +static void process_basic_line (char *buffer); + +GlobalType *My = NULL; + +static char *Banner[] = { + "######## ## ## ## ## ### ######## ######## ######## ", + "## ## ## ## ## ## ## ## ## ## ## ## ## ", + "## ## #### ## ## ## ## ## ## ## ## ## ", + "######## ## ## ## ## ## ## ## ###### ######## ", + "## ## ## ## ## ## ######### ## ## ## ## ", + "## ## ## ## ## ## ## ## ## ## ## ## ", + "######## ## ### ### ## ## ## ######## ## ## ", + " ", + " ######## ### ###### #### ###### ", + " ## ## ## ## ## ## ## ## ##", + " ## ## ## ## ## ## ## ", + " ######## ## ## ###### ## ## ", + " ## ## ######### ## ## ## ", + " ## ## ## ## ## ## ## ## ##", + " ######## ## ## ###### #### ###### ", + " ", + "Bywater BASIC Interpreter, version 3.20A ", + "Copyright (c) 1993, Ted A. Campbell ", + "Copyright (c) 1995-1997 , Jon B. Volkoff ", + "Copyright (c) 2014-2017 , Howard Wulf, AF5NE ", + "Copyright (c) 11/2019 , Ken Martin ", + " ", + NULL +}; + +#define NUM_WARNINGS 80 + +static char *ERROR4[NUM_WARNINGS]; + +static void +bwb_initialize_warnings (void) +{ + int i; + for (i = 0; i < NUM_WARNINGS; i++) + { + ERROR4[i] = NULL; + } + ERROR4[1] = "NEXT without FOR"; + ERROR4[2] = "Syntax error"; + ERROR4[3] = "RETURN without GOSUB"; + ERROR4[4] = "Out of DATA"; + ERROR4[5] = "Illegal function call"; + ERROR4[6] = "Overflow"; + ERROR4[7] = "Out of memory"; + ERROR4[8] = "Undefined line"; + ERROR4[9] = "Subscript out of range"; + ERROR4[10] = "Redimensioned array"; + ERROR4[11] = "Division by zero"; + ERROR4[12] = "Illegal direct"; + ERROR4[13] = "Type mismatch"; + ERROR4[14] = "Out of string space"; + ERROR4[15] = "String too long"; + ERROR4[16] = "String formula too complex"; + ERROR4[17] = "Can't continue"; + ERROR4[18] = "Undefined user function"; + ERROR4[19] = "No RESUME"; + ERROR4[20] = "RESUME without error"; + ERROR4[21] = "Unprintable error"; + ERROR4[22] = "Missing operand"; + ERROR4[23] = "Line buffer overflow"; + ERROR4[26] = "FOR without NEXT"; + ERROR4[27] = "Bad DATA"; + ERROR4[29] = "WHILE without WEND"; + ERROR4[30] = "WEND without WHILE"; + ERROR4[31] = "EXIT FUNCTION without FUNCTION"; + ERROR4[32] = "END FUNCTION without FUNCTION"; + ERROR4[33] = "EXIT SUB without SUB"; + ERROR4[34] = "END SUB without SUB"; + ERROR4[35] = "EXIT FOR without FOR"; + ERROR4[50] = "Field overflow"; + ERROR4[51] = "Internal error"; + ERROR4[52] = "Bad file number"; + ERROR4[53] = "File not found"; + ERROR4[54] = "Bad file mode"; + ERROR4[55] = "File already open"; + ERROR4[57] = "Disk I/O error"; + ERROR4[58] = "File already exists"; + ERROR4[61] = "Disk full"; + ERROR4[62] = "Input past end"; + ERROR4[63] = "Bad record number"; + ERROR4[64] = "Bad file name"; + ERROR4[66] = "Direct statement in file"; + ERROR4[67] = "Too many files"; + ERROR4[70] = "Variable Not Declared"; + ERROR4[73] = "Advanced Feature"; +} + +/*************************************************************** + + FUNCTION: bwx_terminate() + + DESCRIPTION: This function terminates program execution. + +***************************************************************/ + +void +bwx_terminate (void) +{ + + exit (0); +} + + + +/*************************************************************** + + FUNCTION: break_handler() + + DESCRIPTION: This function is called by break_mes() + and handles program interruption by break + (or by the STOP command). + +***************************************************************/ +static void +break_handler (void) +{ + /* + ** + ** + */ + assert( My != NULL ); + + My->AutomaticLineNumber = 0; + My->AutomaticLineIncrement = 0; + + if (My->IsInteractive) + { + /* INTERACTIVE: terminate program */ + + /* reset all stack counters */ + bwb_clrexec (); + SetOnError (0); + + My->ERR = -1; /* in break_handler() */ + + + /* reset the break handler */ + signal (SIGINT, break_mes); + + longjmp (My->mark, -1); + + + return; + } + /* NOT INTERACTIVE: terminate immediately */ + bwx_terminate (); +} + +/*************************************************************** + + FUNCTION: break_mes() + + DESCRIPTION: This function is called (a) by a SIGINT + signal or (b) by bwb_STOP via bwx_STOP. + It prints an error message then calls + break_handler() to terminate the program. + +***************************************************************/ + +static void +break_mes (int x /* Parameter 'x' is never used */ ) +{ + /* + ** + ** break_mes is FATAL. + ** x == SIGINT for control-C + ** x == 0 for bwx_STOP + ** + */ + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + assert( My->CurrentVersion != NULL ); + + + if (My->ERR < 0) /* in break_mes(), do not make a bad situation worse */ + { + /* an error has already ben reported */ + } + else + { + fputc ('\n', My->SYSOUT->cfp); + ResetConsoleColumn (); + if (My->CurrentVersion->OptionVersionValue & (C77)) + { + if (is_empty_string (My->ProgramFilename) == FALSE) + { + fprintf (My->SYSOUT->cfp, "FILE:%s, ", My->ProgramFilename); + } + } + fprintf (My->SYSOUT->cfp, "Program interrupted"); + if (My->ThisLine) /* break_mes */ + { + if (My->ThisLine->LineFlags & (LINE_USER)) /* break_mes */ + { + /* don't print the line number */ + } + else + { + fprintf (My->SYSOUT->cfp, " at line %d", My->ThisLine->number); /* break_mes */ + } + } + fputc ('\n', My->SYSOUT->cfp); + ResetConsoleColumn (); + fflush (My->SYSOUT->cfp); + } + break_handler (); +} + +extern void +bwx_STOP (int IsShowMessage) +{ + + if (IsShowMessage) + { + break_mes (0); + } + else + { + break_handler (); + } +} + +static int +bwx_signon (void) +{ + /* + ** + ** Display a sign-on banner. + ** NOT called if a file is provided on the command line. + ** + */ + int i; + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + + for (i = 0; Banner[i] != NULL; i++) + { + fprintf (My->SYSOUT->cfp, "%s\n", Banner[i]); + } + ResetConsoleColumn (); + return TRUE; +} + + + +DoubleType +bwx_TIMER (DoubleType Seconds) +{ + /* + ** + ** Return a number representing Seconds in the future. Seconds >= 0. + ** Seconds may be non-integer, such as 0.001 or 86399.999. The + ** maximum allowed Seconds is MAXDBL. This is used two ways: + ** + ** 1) in bwb_TIMER(), the ON TIMER count (>0) is used to determine + ** the expiration time. In this case, simply return what the value + ** will be in the future. Note that ON TIMER enforces + ** Seconds > (1 / CLOCKS_PER_SEC), and + ** + ** 2) in bwb_execline(), zero (=0) is used to determine the current + ** time and compare it to #1. In this case, simply return what the + ** value is now. + ** + ** Both the resolution of the timer, and the frequency of update, + ** are implementation defined. + ** + */ + + if (Seconds < 0) + { + WARN_INTERNAL_ERROR; + return 0; + } + else + { + DoubleType Result; + Result = clock (); + assert (CLOCKS_PER_SEC > 0); + Result /= CLOCKS_PER_SEC; + if (Seconds > 0) + { + Result += Seconds; + } + return Result; + } +} + +void +CleanLine (char *buffer) +{ + /* + ** + ** cleanup the line, so it is easier to parse + ** + */ + char *newbuffer; + + + + if (is_empty_string (buffer)) + { + /* do nothing */ + return; + } + + /* remove CR/LF */ + newbuffer = bwb_strchr (buffer, '\r'); + if (newbuffer != NULL) + { + *newbuffer = NulChar; + } + newbuffer = bwb_strchr (buffer, '\n'); + if (newbuffer != NULL) + { + *newbuffer = NulChar; + } + + /* remove ALL embedded control characters */ + /* if you want a control character, then use CHR$ */ + newbuffer = buffer; + while (*newbuffer != NulChar) + { + if (bwb_isprint (*newbuffer)) + { + /* OK */ + } + else + { + *newbuffer = ' '; + } + newbuffer++; + } + /* LTRIM$ */ + newbuffer = buffer; + if (*newbuffer != NulChar) + { + /* not an empty line, so remove one (or more) leading spaces */ + while (*newbuffer == ' ') + { + newbuffer++; + } + if (newbuffer > buffer) + { + bwb_strcpy (buffer, newbuffer); + } + } + /* RTRIM$ */ + newbuffer = buffer; + if (*newbuffer != NulChar) + { + /* not an empty line, so remove one (or more) trailing spaces */ + char *E; + + E = bwb_strchr (newbuffer, NulChar); + E--; + while (E >= newbuffer && *E == ' ') + { + *E = NulChar; + E--; + } + } +} + +static int +bwb_init (void) +{ + /* + ** + ** initialize Bywater BASIC + ** + */ + int n; + static char start_buf[] = ""; + static char end_buf[] = ""; + + /* Memory allocation */ + if ((My = (GlobalType *) calloc (1, sizeof (GlobalType))) == NULL) + { + return FALSE; + } + if ((My->MaxLenBuffer = + (char *) calloc (MAXLEN + 1 /* NulChar */ , sizeof (char))) == NULL) + { + return FALSE; + } + if ((My->NumLenBuffer = + (char *) calloc (NUMLEN + 1 /* NulChar */ , sizeof (char))) == NULL) + { + return FALSE; + } + if ((My->ConsoleOutput = + (char *) calloc (MAX_LINE_LENGTH + 1 /* NulChar */ , + sizeof (char))) == NULL) + { + return FALSE; + } + if ((My->ConsoleInput = + (char *) calloc (MAX_LINE_LENGTH + 1 /* NulChar */ , + sizeof (char))) == NULL) + { + return FALSE; + } + if ((My->SYSIN = (FileType *) calloc (1, sizeof (FileType))) == NULL) + { + return FALSE; + } + if ((My->SYSOUT = (FileType *) calloc (1, sizeof (FileType))) == NULL) + { + return FALSE; + } + if ((My->SYSPRN = (FileType *) calloc (1, sizeof (FileType))) == NULL) + { + return FALSE; + } + if ((My->StartMarker = (LineType *) calloc (1, sizeof (LineType))) == NULL) + { + return FALSE; + } + if ((My->UserMarker = (LineType *) calloc (1, sizeof (LineType))) == NULL) + { + return FALSE; + } + if ((My->EndMarker = (LineType *) calloc (1, sizeof (LineType))) == NULL) + { + return FALSE; + } + if ((My->EndMarker = (LineType *) calloc (1, sizeof (LineType))) == NULL) + { + return FALSE; + } + if ((My->ERROR4 = + (char *) calloc (MAX_ERR_LENGTH + 1 /* NulChar */ , + sizeof (char))) == NULL) + { + return FALSE; + } + + My->CurrentVersion = &bwb_vertable[0]; + My->IsInteractive = TRUE; + My->OptionSleepDouble = 1; + My->OptionIndentInteger = 2; + My->OptionTerminalType = C_OPTION_TERMINAL_NONE; + My->OptionRoundType = C_OPTION_ROUND_BANK; + My->NextValidLineNumber = MINLIN; + My->IncludeLevel = 0; /* %INCLUDE */ + My->IsCommandLineFile = FALSE; + My->ExternalInputFile = NULL; /* for automated testing, --TAPE command line parameter */ + My->IsPrinter = FALSE; /* CBASIC-II: CONSOLE and LPRINTER commands */ + My->OptionPromptString = DEF_PROMPT; + My->OptionEditString = DEF_EDITOR; + My->OptionFilesString = DEF_FILES; + My->OptionRenumString = DEF_RENUM; + My->OptionExtensionString = DEF_EXTENSION; + My->OptionScaleInteger = 0; + My->OptionDigitsInteger = SIGNIFICANT_DIGITS; + My->OptionZoneInteger = ZONE_WIDTH; + My->UseParameterString = NULL; + My->ProgramFilename = NULL; + + My->StartMarker->number = MINLIN - 1; + My->StartMarker->next = My->EndMarker; + My->StartMarker->position = 0; + My->StartMarker->buffer = start_buf; + + My->EndMarker->number = MAXLIN + 1; + My->EndMarker->next = My->EndMarker; + My->EndMarker->position = 0; + My->EndMarker->buffer = end_buf; + + My->UserMarker->number = MINLIN - 1; + My->UserMarker->next = My->EndMarker; + My->UserMarker->position = 0; + My->UserMarker->buffer = NULL; + + My->DataLine = My->EndMarker; + My->DataPosition = 0; + + My->StackHead = NULL; + My->StackDepthInteger = 0; + + My->FieldHead = NULL; + + My->VirtualHead = NULL; + My->FileHead = NULL; + My->ThisLine = My->StartMarker; /* bwb_init */ + + My->SYSIN->DevMode = DEVMODE_INPUT; + My->SYSIN->width = 80; + My->SYSIN->col = 1; + My->SYSIN->row = 1; + My->SYSIN->delimit = ','; + My->SYSIN->cfp = stdin; + + My->SYSOUT->DevMode = DEVMODE_OUTPUT; + My->SYSOUT->width = 80; + My->SYSOUT->col = 1; + My->SYSOUT->row = 1; + My->SYSOUT->delimit = ','; + My->SYSOUT->cfp = stdout; + + My->SYSPRN->DevMode = DEVMODE_OUTPUT; + My->SYSPRN->width = 80; + My->SYSPRN->col = 1; + My->SYSPRN->row = 1; + My->SYSPRN->delimit = ','; + My->SYSPRN->cfp = stderr; + + My->LPRINT_NULLS = 0; + My->SCREEN_ROWS = 24; + + /* OPEN #0 is an ERROR. */ + /* CLOSE #0 is an ERROR. */ + /* WIDTH #0, 80 is the same as WIDTH 80. */ + /* LPRINT and LLIST are sent to bwx_LPRINT() */ + + /* default variable type */ + for (n = 0; n < 26; n++) + { + My->DefaultVariableType[n] = DoubleTypeCode; + } + /* default COMMAND$(0-9) */ + for (n = 0; n < 10; n++) + { + My->COMMAND4[n] = NULL; + } + + /* initialize tables of variables, functions */ + bwb_initialize_warnings (); + SortAllCommands (); + SortAllFunctions (); + SortAllOperators (); + var_init (); + IntrinsicFunction_init (); + UserFunction_init (); + OptionVersionSet (0); + /* OK */ + return TRUE; +} + +/*************************************************************** + + FUNCTION: main() + + DESCRIPTION: As in any C program, main() is the basic + function from which the rest of the + program is called. Some environments, + however, provide their own main() functions + (Microsoft Windows (tm) is an example). + In these cases, the following code will + have to be included in the initialization + function that is called by the environment. + +***************************************************************/ + +static void +process_basic_line (char *buffer) +{ + CleanLine (buffer); + if (is_empty_string (buffer)) + { + /* empty -- do nothing */ + } + else if (is_ln (buffer) == FALSE) + { + /* If there is no line number, then execute the line as received */ + /* RUN */ + WARN_CLEAR; /* process_basic_line */ + SetOnError (0); + bwb_xtxtline (buffer); /* process_basic_line */ + } + else if (is_numconst (buffer) == TRUE) + { + /*-----------------------------------------------------------------*/ + /* Another possibility: if buffer is a numeric constant, */ + /* then delete the indicated line number (JBV) */ + /*-----------------------------------------------------------------*/ + /* 100 */ + int LineNumber; + LineNumber = atoi (buffer); + WARN_CLEAR; /* process_basic_line */ + SetOnError (0); + sprintf (buffer, "delete %d", LineNumber); + bwb_xtxtline (buffer); /* process_basic_line */ + } + else + { + /* If there is a line number, then add it to the BASIC program */ + /* 100 REM */ + bwb_ladd (buffer, My->StartMarker, FALSE); + } +} +static void +bwb_single_step (char *buffer) +{ + assert( My != NULL ); + assert (buffer != NULL); + + process_basic_line (buffer); + while (My->StackHead != NULL) + { + bwb_execline (); + } +} + +static void +mark_preset_variables (void) +{ + /* mark all existing variables as preset */ + /* this includes all variables declared in any PROFILE */ + VariableType *v; + assert( My != NULL ); + + + for (v = My->VariableHead; v != NULL; v = v->next) + { + v->VariableFlags |= VARIABLE_PRESET; + v->VariableFlags |= VARIABLE_COMMON; + } +} + + +static void +execute_profile (char *FileName) +{ + FILE *profile; + assert( My != NULL ); + assert (FileName != NULL); + + My->NextValidLineNumber = MINLIN; + profile = fopen (FileName, "r"); + if (profile == NULL) + { + /* NOT FOUND */ + /* OPTIONAL */ + return; + } + /* FOUND */ + if (My->IsInteractive) + { + /* + ** + ** set a buffer for jump: program execution returns to this point in + ** case of a jump (error, interrupt, or finish program) + ** + */ + My->program_run = 0; + signal (SIGINT, break_mes); + setjmp (My->mark); + if (My->program_run > 0) + { + /* error in PROFILE */ + exit (1); + } + My->program_run++; + } + + /* + The profile only exists to allow executing OPTION ... commands. No other use is supported. + */ + { + char *tbuf; + int tlen; + + tbuf = My->ConsoleInput; + tlen = MAX_LINE_LENGTH; + while (fgets (tbuf, tlen, profile)) /* execute_profile */ + { + tbuf[tlen] = NulChar; + bwb_single_step (tbuf); /* in execute_profile() */ + } + bwb_fclose (profile); + mark_preset_variables (); + } +} + + + +static void +execute_program (char *FileName) +{ + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + + assert (FileName != NULL); + + My->NextValidLineNumber = MINLIN; + My->IsCommandLineFile = TRUE; + if (bwb_fload (FileName) == FALSE) + { + fprintf (My->SYSOUT->cfp, "Failed to open file %s\n", FileName); + /* the file load has failed, so do NOT run the program */ + exit (1); + } + if (My->ERR < 0 /* in execute_program(), file load failed */ ) + { + /* the file load has failed, so do NOT run the program */ + exit (1); + } + bwb_RUN (My->StartMarker); +} + +extern int +main (int argc, char **argv) +{ + int i; + assert (argc >= 0); + assert (argv != NULL); + + if (bwb_init () == FALSE) + { + /* FATAL */ + puts ("Out of memory"); + return 1; + } + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + assert( My->SYSIN != NULL ); + assert( My->SYSIN->cfp != NULL ); + + /* Signon message banner */ + if (argc < 2) + { + /* no parameters */ + if (My->IsInteractive) + { + bwx_signon (); + } + else + { + /* if INTERACTIVE is FALSE, then we must have a program file */ + fputs ("Program file not specified\n", My->SYSOUT->cfp); + return 1; + } + } + + if (My->IsInteractive) + { + /* + ** + ** set a buffer for jump: program execution returns to this point in + ** case of a jump (error, interrupt, or finish program) + ** + */ + My->program_run = 0; + signal (SIGINT, break_mes); + setjmp (My->mark); + if (My->program_run > 0) + { + /* error in profile */ + return 1; + } + My->program_run++; + } + +#if PROFILE + execute_profile (PROFILENAME); +#endif + + /* check to see if there is a program file: but do this only the first time around! */ + for (i = 1; i < argc; i++) + { + /* + SYNTAX: bwbasic [ --profile profile.bas ] [ --tape tapefile.inp ] [ program.bas ] + */ + if (bwb_stricmp (argv[i], "--profile") == 0 + || bwb_stricmp (argv[i], "-p") == 0 + || bwb_stricmp (argv[i], "/profile") == 0 + || bwb_stricmp (argv[i], "/p") == 0) + { + i++; + if (i < argc) + { + /* --profile profile.bas */ + execute_profile (argv[i]); + } + } + else + if (bwb_stricmp (argv[i], "--tape") == 0 + || bwb_stricmp (argv[i], "-t") == 0 + || bwb_stricmp (argv[i], "/tape") == 0 + || bwb_stricmp (argv[i], "/t") == 0) + { + i++; + if (i < argc) + { + /* --tape tapefile.inp */ + My->ExternalInputFile = fopen (argv[i], "r"); + } + } + else + { + /* program.bas */ + { + int j; + int n; + + j = i; + for (n = 0; n < 10 && j < argc; n++, j++) + { + My->COMMAND4[n] = argv[j]; + } + } + execute_program (argv[i]); + break; + } + } + + if (My->IsInteractive) + { + /* + ** + ** set a buffer for jump: program execution returns to this point in + ** case of a jump (error, interrupt, or finish program) + ** + */ + My->program_run = 0; + signal (SIGINT, break_mes); + setjmp (My->mark); + if (My->program_run > 0) + { + /* error in console mode */ + } + My->program_run++; + } + + /* main program loop */ + My->NextValidLineNumber = MINLIN; + while (!feof (My->SYSIN->cfp)) /* condition !feof( My->SYSIN->cfp ) added in v1.11 */ + { + bwb_mainloop (); + } + + bwx_terminate (); /* allow ^D (Unix) exit with grace */ + + return 0; +} + + + +/*************************************************************** + + FUNCTION: bwb_interact() + + DESCRIPTION: This function gets a line from the user + and processes it. + +***************************************************************/ + +static void +bwb_interact (void) +{ + char *tbuf; + int tlen; + assert( My != NULL ); + + + tbuf = My->ConsoleInput; + tlen = MAX_LINE_LENGTH; + My->NextValidLineNumber = MINLIN; + /* take input from keyboard */ + if (My->AutomaticLineNumber > 0 && My->AutomaticLineIncrement > 0) + { + /* AUTO 100, 10 */ + char *zbuf; /* end of the prompt, start of the response */ + int zlen; /* length of the prompt */ + char LineExists; + LineType *l; + + LineExists = ' '; + for (l = My->StartMarker->next; l != My->EndMarker; l = l->next) + { + if (l->number == My->AutomaticLineNumber) + { + /* FOUND */ + LineExists = '*'; + break; + } + else if (l->number > My->AutomaticLineNumber) + { + /* NOT FOUND */ + LineExists = ' '; + break; + } + } + sprintf (tbuf, "%d%c", My->AutomaticLineNumber, LineExists); + zbuf = bwb_strchr (tbuf, NulChar); + zlen = bwb_strlen (tbuf); + bwx_input (tbuf, FALSE, zbuf, tlen - zlen); + zbuf[-1] = ' '; /* remove LineExists indicator */ + CleanLine (zbuf); /* JBV */ + if (is_empty_string (zbuf)) + { + /* empty response */ + if (LineExists == '*') + { + /* + An empty response with an existing line, + causes AUTO to continue with the next line, + leaving the current line intact. + */ + My->AutomaticLineNumber += My->AutomaticLineIncrement; + } + else + { + /* + An empty response with a non-existing line, + causes AUTO to terminate. + */ + My->AutomaticLineNumber = 0; + My->AutomaticLineIncrement = 0; + } + } + else + { + /* non-empty response */ + if (bwb_stricmp (zbuf, "MAN") == 0) + { + /* MAN terminates AUTO mode */ + My->AutomaticLineNumber = 0; + My->AutomaticLineIncrement = 0; + } + else + { + /* overwrite any existing line */ + bwb_ladd (tbuf, My->StartMarker, FALSE); + My->AutomaticLineNumber += My->AutomaticLineIncrement; + } + } + } + else + { + bwx_input (My->OptionPromptString, FALSE, tbuf, tlen); + process_basic_line (tbuf); + } +} + + + +/*************************************************************** + + FUNCTION: bwb_fload() + + DESCRIPTION: This function loads a BASIC program + file into memory given a FILE pointer. + +***************************************************************/ + +static int +FixQuotes (char *tbuf) +{ + /* fix unbalanced quotes */ + /* 'tbuf' shall be declared "char tbuf[ tlen + 1]". */ + int p; + int QuoteCount; + int tlen; + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + assert (tbuf != NULL); + + QuoteCount = 0; + tlen = MAX_LINE_LENGTH; + tbuf[tlen] = NulChar; + p = 0; + while (tbuf[p]) + { + if (tbuf[p] == My->CurrentVersion->OptionQuoteChar) + { + QuoteCount++; + } + p++; + } + if (QuoteCount & 1) + { + /* odd == missing trailing quote */ + if (p < tlen) + { + /* we have room to put the missig quote */ + tbuf[p] = My->CurrentVersion->OptionQuoteChar; + p++; + tbuf[p] = NulChar; + } + else + { + /* we cannot fix it */ + return FALSE; + } + } + /* OK */ + return TRUE; +} + +static FILE * +nice_open (char *BaseName) +{ + FILE *file; + assert( My != NULL ); + + if (BaseName == NULL) + { + BaseName = My->ProgramFilename; + } + if (is_empty_string (BaseName)) + { + WARN_BAD_FILE_NAME; + return NULL; + } + + file = fopen (BaseName, "r"); + if (file == NULL) + if (is_empty_string (My->OptionExtensionString) == FALSE) + { + char *FileName; + + FileName = bwb_strdup2 (BaseName, My->OptionExtensionString); + if (FileName == NULL) + { + WARN_OUT_OF_MEMORY; + return NULL; + } + file = fopen (FileName, "r"); + if (file == NULL) + { + free (FileName); + } + else if (BaseName == My->ProgramFilename) + { + if (My->ProgramFilename != NULL) + { + free (My->ProgramFilename); + } + My->ProgramFilename = FileName; + } + } + return file; +} + +extern int +bwb_fload (char *FileName) +{ + /* + ** + ** Load a BASIC program from the specified 'FileName'. + ** If 'FileName' is NULL, then load from My->ProgramFilename, + ** + */ + char *Magic_Word; /* SYNTAX: %INCLUDE literal.file.name */ + int Magic_Length; + FILE *file; + char *tbuf; + int tlen; + + + + + Magic_Word = "%INCLUDE "; /* SYNTAX: %INCLUDE literal.file.name */ + Magic_Length = bwb_strlen (Magic_Word); + tbuf = My->MaxLenBuffer; + tlen = MAXLEN; + + + /* + Just in case you are wondering... + Although this handles the most common cases, it does not handle all possible cases. + The correct solution is to provide the actual filename (with extension), + as it exists in the operating system. + */ + file = nice_open (FileName); + if (file == NULL) + { + WARN_BAD_FILE_NAME; + return FALSE; + } + My->NextValidLineNumber = MINLIN; + while (fgets (tbuf, tlen, file)) /* bwb_fload */ + { + tbuf[tlen] = NulChar; + CleanLine (tbuf); + if (is_empty_string (tbuf)) + { + /* ignore */ + } + else if (bwb_strnicmp (tbuf, Magic_Word, Magic_Length) == 0) + { + /* %iNCLUDE */ + int Result; + int p; + char varname[NameLengthMax + 1]; + + p = Magic_Length; + if (buff_read_varname (tbuf, &p, varname) == FALSE) + { + fprintf (My->SYSOUT->cfp, "%s Filename\n", Magic_Word); + ResetConsoleColumn (); + return FALSE; + } + My->IncludeLevel++; /* %INCLUDE */ + Result = bwb_fload (varname); + My->IncludeLevel--; /* %INCLUDE */ + if (Result == FALSE) + { + fprintf (My->SYSOUT->cfp, "%s %s Failed\n", Magic_Word, varname); + ResetConsoleColumn (); + return FALSE; + } + } + else + { + /* normal */ + bwb_ladd (tbuf, My->StartMarker, FALSE); + } + } + + /* close file stream */ + + bwb_fclose (file); /* file != NULL */ + + My->NextValidLineNumber = MINLIN; + + return TRUE; +} + + +static char * +FindClassicStatementEnd (char *C) +{ + /* + ** find the end of the current statement + */ + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + + assert (C != NULL); + + + if (My->CurrentVersion->OptionStatementChar == NulChar + && My->CurrentVersion->OptionCommentChar == NulChar) + { + /* DO NOTHING: Multi-statment lines are not possible */ + return NULL; + } + /* skip line number */ + while (bwb_isdigit (*C)) + { + C++; + } + /* skip spaces */ + while (*C == ' ') + { + C++; + } + if (IS_CHAR (*C, My->CurrentVersion->OptionCommentChar)) + { + /* The entire line is a comment */ + return NULL; + } + if (bwb_strnicmp (C, "REM", 3) == 0) + { + /* The entire line is a comment */ + return NULL; + } + if ((My->CurrentVersion->OptionFlags & OPTION_LABELS_ON) + && (My->CurrentVersion->OptionStatementChar != NulChar)) + { + /* determine if this line is a LABEL */ + int p; + char label[NameLengthMax + 1]; + + p = 0; + if (buff_read_label (C, &p, label)) + { + if (buff_skip_char (C, &p, My->CurrentVersion->OptionStatementChar)) + { + if (buff_is_eol (C, &p)) + { + /* The entire line is a label */ + /* LABEL : \0 */ + return NULL; + } + } + } + } + /* not a special case, so split on the first unquoted OptionCommentChar or OptionStatementChar */ + while (*C != NulChar) + { + if (*C == My->CurrentVersion->OptionQuoteChar) + { + /* skip leading quote */ + C++; + while (*C != NulChar && *C != My->CurrentVersion->OptionQuoteChar) + { + /* skip string constant */ + C++; + } + if (*C == My->CurrentVersion->OptionQuoteChar) + { + /* skip trailing quote */ + C++; + } + } + else if (IS_CHAR (*C, My->CurrentVersion->OptionCommentChar) /* ', ! */ ) + { + /* FOUND */ + return C; + } + else + if (IS_CHAR (*C, My->CurrentVersion->OptionStatementChar) /* :, \ */ ) + { + /* FOUND */ + return C; + } + else + { + C++; + } + } + /* NOT FOUND */ + return NULL; +} + + +static void +ImportClassicIfThenElse (char *InBuffer) +{ +/* +** +** Determine the type of IF command: +** +** a) STANDARD: +** IF x THEN line ELSE line +** +** b) CLASSIC: +** IF x THEN stmt(s) ELSE stmt(s) +** +** c) STRUCTURED: +** IF x THEN +** stmts +** ELSE +** stmts +** END IF +** +** The STANDARD and STRUCTURED forms +** are natively supported. +** +** The CLASSIC form is converted to +** the STRUCTURED form. +** +*/ + + int i; + + int nIF = 0; + int nTHEN = 0; + int nELSE = 0; + int nENDIF = 0; + +#define NO_COMMAND 0 +#define IF_COMMAND 1 +#define THEN_COMMAND 2 +#define ELSE_COMMAND 3 +#define ENDIF_COMMAND 4 + int LastCommand = NO_COMMAND; + + const char *REM = "REM "; + const char *IF = "IF "; + const char *THEN = "THEN "; + const char *THEN2 = "THEN"; + const char *ELSE = "ELSE "; + const char *ENDIF = "END IF"; + const char *GOTO = "GOTO "; + const char *DATA = "DATA "; + const char *CASE = "CASE "; + char *OutBuffer = My->ConsoleOutput; + char *Input; + char *Output; + char LastChar = My->CurrentVersion->OptionStatementChar; + + int REM_len = bwb_strlen (REM); + int IF_len = bwb_strlen (IF); + int THEN_len = bwb_strlen (THEN); + int THEN2_len = bwb_strlen (THEN2); + int ELSE_len = bwb_strlen (ELSE); + int ENDIF_len = bwb_strlen (ENDIF); + int GOTO_len = bwb_strlen (GOTO); + int DATA_len = bwb_strlen (DATA); + int CASE_len = bwb_strlen (CASE); + +#define OUTPUTCHAR( c ) { *Output = c; Output++; } +#define COPYCHAR { LastChar = *Input; *Output = *Input; Output++; Input++; } +#define COPY_LINENUMBER while( bwb_isdigit( *Input ) ) COPYCHAR; +#define COPY_SPACES while( *Input == ' ' ) COPYCHAR; +#define COPY_IF for( i = 0; i < IF_len; i++ ) COPYCHAR; +#define COPY_THEN for( i = 0; i < THEN_len; i++ ) COPYCHAR; +#define COPY_THEN2 for( i = 0; i < THEN2_len; i++ ) COPYCHAR; +#define COPY_ELSE for( i = 0; i < ELSE_len; i++ ) COPYCHAR; +#define COPY_ENDIF for( i = 0; i < ENDIF_len; i++ ) COPYCHAR; +#define FORCE_ENDIF for( i = 0; i < ENDIF_len; i++ ) OUTPUTCHAR( ENDIF[ i ] ); +#define FORCE_GOTO for( i = 0; i < GOTO_len; i++ ) OUTPUTCHAR( GOTO[ i ] ); +#define FORCE_COLON if( LastChar != My->CurrentVersion->OptionStatementChar ) OUTPUTCHAR( My->CurrentVersion->OptionStatementChar ); + + assert( My != NULL ); + assert( My->CurrentVersion != NULL ); + assert (InBuffer != NULL); + + + Input = InBuffer; + Output = OutBuffer; + + + + + + if (My->CurrentVersion->OptionStatementChar == NulChar) + { + /* DO NOTHING: All IFs must be STANDARD or STRUCTURED */ + return; + } + + + COPY_LINENUMBER; + COPY_SPACES; + LastChar = My->CurrentVersion->OptionStatementChar; + + + while (*Input != NulChar) + { + if (*Input == My->CurrentVersion->OptionCommentChar) + { + /* comment */ + break; + } + else if (*Input == My->CurrentVersion->OptionQuoteChar) + { + /* string constant */ + COPYCHAR; + while (*Input != NulChar + && *Input != My->CurrentVersion->OptionQuoteChar) + { + COPYCHAR; + } + if (*Input == My->CurrentVersion->OptionQuoteChar) + { + COPYCHAR; + } + else + { + /* add missing Quote */ + OUTPUTCHAR (My->CurrentVersion->OptionQuoteChar); + } + COPY_SPACES; + } + else if (bwb_isalnum (LastChar)) + { + /* can NOT be the start of a command */ + COPYCHAR; + } + else if (!bwb_isalpha (*Input)) + { + /* can NOT be the start of a command */ + COPYCHAR; + } + else if (bwb_strnicmp (Input, REM, REM_len) == 0) + { + break; + } + else if (bwb_strnicmp (Input, DATA, DATA_len) == 0) + { + /* DATA ... */ + break; + } + else if (bwb_strnicmp (Input, CASE, CASE_len) == 0) + { + /* CASE ... */ + break; + } + else if (bwb_strnicmp (Input, IF, IF_len) == 0) + { + /* IF */ + LastCommand = IF_COMMAND; + nIF++; + COPY_IF; + COPY_SPACES; + } + else if (bwb_strnicmp (Input, GOTO, GOTO_len) == 0 && nIF > nTHEN) + { + /* IF x GOTO line ELSE line */ + LastCommand = THEN_COMMAND; + nTHEN++; + COPY_THEN; + COPY_SPACES; + COPY_LINENUMBER; + COPY_SPACES; + if (bwb_strnicmp (Input, ELSE, ELSE_len) == 0) + { + /* ELSE line */ + COPY_ELSE; + COPY_SPACES; + COPY_LINENUMBER; + COPY_SPACES; + } + /* IS STANDARD, NOT CLASSIC */ + nENDIF++; + LastCommand = ENDIF_COMMAND; + } + else if (bwb_strnicmp (Input, THEN, THEN_len) == 0) + { + /* THEN */ + LastCommand = THEN_COMMAND; + nTHEN++; + COPY_THEN; + COPY_SPACES; + if (bwb_isdigit (*Input)) + { + /* STANDARD: IF x THEN line ELSE line */ + char *SavedInput; + char *SavedOutput; + SavedInput = Input; + SavedOutput = Output; + + COPY_LINENUMBER; + COPY_SPACES; + if (bwb_strnicmp (Input, ELSE, ELSE_len) == 0) + { + /* ELSE line */ + COPY_ELSE; + COPY_SPACES; + if (bwb_isdigit (*Input)) + { + COPY_LINENUMBER; + COPY_SPACES; + /* IS STANDARD, NOT CLASSIC */ + nENDIF++; + LastCommand = ENDIF_COMMAND; + } + else + { + /* IF x THEN line ELSE stmts */ + Input = SavedInput; + Output = SavedOutput; + FORCE_COLON; + FORCE_GOTO; + COPY_LINENUMBER; + COPY_SPACES; + } + } + else + { + /* IS STANDARD, NOT CLASSIC */ + nENDIF++; + LastCommand = ENDIF_COMMAND; + } + } + else + if (*Input == My->CurrentVersion->OptionCommentChar + || *Input == NulChar) + { + /* IS STRUCTURED, NOT CLASSIC */ + nENDIF++; + LastCommand = ENDIF_COMMAND; + } + else + { + /* CLASSIC: IF x THEN stmts ELSE stmts */ + } + FORCE_COLON; + } + else if (bwb_strnicmp (Input, THEN2, THEN2_len) == 0) + { + /* trailing THEN ? */ + char *PeekInput; + + PeekInput = Input; + PeekInput += THEN2_len; + while (*PeekInput == ' ') + { + PeekInput++; + } + if (*PeekInput == My->CurrentVersion->OptionCommentChar + || *PeekInput == NulChar) + { + /* IS STRUCTURED, NOT CLASSIC */ + nTHEN++; + COPY_THEN2; + nENDIF++; + LastCommand = ENDIF_COMMAND; + FORCE_COLON; + } + else + { + /* THEN line */ + } + } + else if (bwb_strnicmp (Input, ELSE, ELSE_len) == 0) + { + /* ELSE */ + if (LastCommand == ELSE_COMMAND) + { + /* we need an ENDIF here */ + FORCE_COLON; + FORCE_ENDIF; + FORCE_COLON; + nENDIF++; + } + LastCommand = ELSE_COMMAND; + nELSE++; + FORCE_COLON; + COPY_ELSE; + FORCE_COLON; + COPY_SPACES; + if (bwb_isdigit (*Input)) + { + /* IF x THEN stmts ELSE line */ + FORCE_GOTO; + COPY_LINENUMBER; + COPY_SPACES; + } + FORCE_COLON; + } + else if (bwb_strnicmp (Input, ENDIF, ENDIF_len) == 0) + { + /* ENDIF */ + LastCommand = ENDIF_COMMAND; + nENDIF++; + COPY_ENDIF; + FORCE_COLON; + } + else + { + /* was NOT the start of a command */ + COPYCHAR; + } + } + /* end of input */ + if (nENDIF < nIF) + { + while (nENDIF < nIF) + { + /* we need trailing ENDIF's */ + nENDIF++; + FORCE_COLON; + FORCE_ENDIF; + } + } + /* fixup trailing REMark command */ + if (bwb_strnicmp (Input, REM, REM_len) == 0) + { + /* REMark */ + /* 100 A=1 REMark */ + /* 100 A=1:REMark */ + /* 100 A=1'REMark */ + FORCE_COLON; + } + /* copy the comments */ + while (*Input != NulChar) + { + COPYCHAR; + /* cppcheck: (style) Variable 'LastChar' is assigned a value that is never used. */ + } + OUTPUTCHAR (NulChar); + bwb_strcpy (InBuffer, OutBuffer); +} + + +/*************************************************************** + + FUNCTION: bwb_ladd() + + DESCRIPTION: This function adds a new line (in the + buffer) to the program in memory. + +***************************************************************/ +static int +bwb_ladd (char *buffer, LineType * p, int IsUser) +{ + LineType *l; + LineType *previous; + char *newbuffer; + char *NextStatement; + char *ThisStatement; + int Replace; + char BreakChar; + + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + assert( My->CurrentVersion != NULL ); + assert (buffer != NULL); + assert (p != NULL); + + + Replace = TRUE; + BreakChar = NulChar; + CleanLine (buffer); + if (is_empty_string (buffer)) + { + /* silengtly ignore blank lines */ + return FALSE; + } + /* + from here, the line WILL be added so the user can EDIT it, + we just complain and refuse to run if any error is detected. + */ + My->IsScanRequired = TRUE; /* program needs to be scanned again */ + + /* AUTO-FIX UNBALANCED QUOTES */ + if (FixQuotes (buffer) == FALSE) + { + /* ERROR */ + fprintf (My->SYSOUT->cfp, "UNBALANCED QUOTES: %s\n", buffer); + ResetConsoleColumn (); + My->ERR = -1; /* bwb_ladd, UNBALANCED QUOTES */ + } + + if (IS_CHAR (*buffer, My->CurrentVersion->OptionStatementChar)) + { + /* part of a multi-statement line */ + } + else if (IS_CHAR (*buffer, My->CurrentVersion->OptionCommentChar)) + { + /* part of a multi-statement line */ + } + else + { + ImportClassicIfThenElse (buffer); + } + ThisStatement = buffer; + NextStatement = NULL; + BreakChar = NulChar; + + do + { + if (BreakChar == NulChar) + { + /* first pass thru the do{} while loop, do nothing */ + } + else if (IS_CHAR (BreakChar, My->CurrentVersion->OptionCommentChar)) + { + /* ThisStatment will turn out to be the last */ + *ThisStatement = My->CurrentVersion->OptionCommentChar; + } + else if (IS_CHAR (BreakChar, My->CurrentVersion->OptionStatementChar)) + { + /* we are NOT the last statement, skip over the OptionStatementChar */ + ThisStatement++; + } + else + { + /* Internal Error */ + } + + if (BreakChar == NulChar + && IS_CHAR (*buffer, My->CurrentVersion->OptionStatementChar)) + { + /* first pass thru and line begins with colon */ + /* part of a multi-statement line */ + NextStatement = NULL; + if (My->NextValidLineNumber > 1) + { + My->NextValidLineNumber--; + } + Replace = FALSE; + } + else + if (BreakChar == NulChar + && IS_CHAR (*buffer, My->CurrentVersion->OptionCommentChar)) + { + /* first pass thru and line begins with apostrophe */ + /* part of a multi-statement line */ + NextStatement = NULL; + if (My->NextValidLineNumber > 1) + { + My->NextValidLineNumber--; + } + Replace = FALSE; + } + else + { + NextStatement = FindClassicStatementEnd (ThisStatement); + } + + if (NextStatement == NULL) + { + /* we are the last statement */ + } + else + { + /* another statement follows */ + BreakChar = *NextStatement; + *NextStatement = NulChar; + } + CleanLine (ThisStatement); + if (is_empty_string (ThisStatement) == FALSE) + { + + /* get memory for this line */ + if ((l = (LineType *) calloc (1, sizeof (LineType))) == NULL) + { + /* ERROR */ + fprintf (My->SYSOUT->cfp, "Out of memory\n"); + ResetConsoleColumn (); + My->ERR = -1; /* bwb_ladd, Out of memory */ + return FALSE; + } + + /* this line has not been executed or numbered */ + l->LineFlags = 0; + if (IsUser) + { + l->LineFlags |= LINE_USER; + } + l->IncludeLevel = My->IncludeLevel; /* %INCLUDE */ + l->position = 0; + + /* + ** + ** ALL lines have a line number. + ** If a line number is not provided, + ** then the next available line number is assigned. + ** + */ + newbuffer = ThisStatement; + l->number = My->NextValidLineNumber; + + if (buff_read_line_number (newbuffer, &(l->position), &l->number)) + { + if (l->number < My->NextValidLineNumber) + { + /* ERROR */ + fprintf (My->SYSOUT->cfp, "%d < %d - LINE OUT OF ORDER: %s\n", + l->number, My->NextValidLineNumber, buffer); + ResetConsoleColumn (); + My->ERR = -1; /* bwb_ladd, LINE OUT OF ORDER */ + l->number = My->NextValidLineNumber; /* sane default */ + } + else if (l->number < MINLIN || l->number > MAXLIN) + { + /* ERROR */ + fprintf (My->SYSOUT->cfp, "INVALID LINE NUMBER: %s\n", buffer); + ResetConsoleColumn (); + My->ERR = -1; /* bwb_ladd, INVALID LINE NUMBER */ + l->number = My->NextValidLineNumber; /* sane default */ + } + else + { + /* OK */ + My->NextValidLineNumber = l->number; + l->LineFlags |= LINE_NUMBERED; /* line was manually numbered */ + } + /* A SPACE IS REQUIRED AFTER THE LINE NUMBER -- NO EXCEPTIONS */ + if (newbuffer[l->position] != ' ') + { + /* ERROR */ + fprintf (My->SYSOUT->cfp, "MISSING SPACE AFTER LINE NUMBER: %s\n", + buffer); + ResetConsoleColumn (); + My->ERR = -1; /* bwb_ladd, MISSING SPACE AFTER LINE NUMBER */ + } + /* newuffer does NOT contain the line number */ + newbuffer += l->position; + } + /* the next valid line number is this line number plus one */ + CleanLine (newbuffer); + if (*newbuffer != NulChar + && *newbuffer == My->CurrentVersion->OptionStatementChar) + { + /* this is part of a multi-statement line */ + newbuffer++; + CleanLine (newbuffer); + } + /* + ** + ** copy into the line buffer + ** + */ + if (l->buffer != NULL) + { + free (l->buffer); + l->buffer = NULL; /* JBV */ + } + if ((l->buffer = + (char *) calloc (bwb_strlen (newbuffer) + 1 /* NulChar */ , + sizeof (char))) == NULL) + { + /* ERROR */ + fprintf (My->SYSOUT->cfp, "Out of memory\n"); + ResetConsoleColumn (); + My->ERR = -1; /* bwb_ladd, Out of memory */ + return FALSE; /* we cannot determine the command */ + } + bwb_strcpy (l->buffer, newbuffer); + /* + ** + ** determine command + ** + */ + line_start (l); + if (l->cmdnum) + { + /* OK */ + } + else + { + /* ERROR */ + fprintf (My->SYSOUT->cfp, + "ILLEGAL COMMAND AFTER LINE NUMBER: %d %s\n", l->number, + l->buffer); + ResetConsoleColumn (); + My->ERR = -1; /* bwb_ladd, ILLEGAL COMMAND AFTER LINE NUMBER */ + } + /* + ** + ** add the line to the linked-list of lines + ** + */ + for (previous = p; previous != My->EndMarker; previous = previous->next) + { + if (previous->number == l->number) + { + if (Replace == TRUE) + { + /* REPLACE 'previous' */ + while (previous->number == l->number) + { + LineType *z; + + z = previous; + previous = previous->next; + bwb_freeline (z); + } + l->next = previous; + p->next = l; + + } + else + { + /* APPEND after 'previous' */ + while (previous->next->number == l->number) + { + previous = previous->next; + } + l->next = previous->next; + previous->next = l; + } + break; + } + else + if (previous->number < l->number + && l->number < previous->next->number) + { + /* INSERT BETWEEN 'previous' AND 'previous->next' */ + l->next = previous->next; + previous->next = l; + break; + } + p = previous; + } + + } + /* another statement may follow */ + ThisStatement = NextStatement; + Replace = FALSE; + } + while (ThisStatement != NULL); + My->NextValidLineNumber++; + return TRUE; +} + +/*************************************************************** + + FUNCTION: bwb_xtxtline() + + DESCRIPTION: This function executes a text line, i.e., + places it in memory and then relinquishes + control. + +***************************************************************/ + +static void +bwb_xtxtline (char *buffer) +{ + assert( My != NULL ); + assert (buffer != NULL); + + /* remove old program from memory */ + bwb_xnew (My->UserMarker); + + CleanLine (buffer); + if (is_empty_string (buffer)) + { + /* silengtly ignore blank lines */ + return; + } + + /* add to the user line list */ + bwb_ladd (buffer, My->UserMarker, TRUE); + + /* execute the line as BASIC command line */ + if (bwb_incexec ()) + { + My->StackHead->line = My->UserMarker->next; /* and set current line in it */ + My->StackHead->ExecCode = EXEC_NORM; + } +} + +/*************************************************************** + + FUNCTION: bwb_incexec() + + DESCRIPTION: This function increments the EXEC + stack counter. + +***************************************************************/ + +int +bwb_incexec (void) +{ + StackType *StackItem; + assert( My != NULL ); + + + if (My->StackDepthInteger >= EXECLEVELS) + { + WARN_OUT_OF_MEMORY; + return FALSE; + } + if ((StackItem = (StackType *) calloc (1, sizeof (StackType))) == NULL) + { + WARN_OUT_OF_MEMORY; + return FALSE; + } + StackItem->ExecCode = EXEC_NORM; /* sane default */ + StackItem->line = My->ThisLine; /* bwb_incexec */ + StackItem->LoopTopLine = NULL; + StackItem->local_variable = NULL; + StackItem->OnErrorGoto = 0; + StackItem->next = My->StackHead; + My->StackHead = StackItem; + My->StackDepthInteger++; + return TRUE; +} + +/*************************************************************** + + FUNCTION: bwb_decexec() + + DESCRIPTION: This function decrements the EXEC + stack counter. + +***************************************************************/ +void +bwb_clrexec (void) +{ + assert( My != NULL ); + + while (My->StackHead != NULL) + { + bwb_decexec (); + } +} + +void +bwb_decexec (void) +{ + StackType *StackItem; + assert( My != NULL ); + + + if (My->StackHead == NULL) + { + WARN_RETURN_WITHOUT_GOSUB; + return; + } + StackItem = My->StackHead; + My->StackHead = StackItem->next; + free (StackItem); + My->StackDepthInteger--; +} + +/*************************************************************** + + FUNCTION: bwb_mainloop() + + DESCRIPTION: This C function performs one iteration + of the interpreter. In a non-preemptive + scheduler, this function should be called + by the scheduler, not by bwBASIC code. + +***************************************************************/ + +void +bwb_mainloop (void) +{ + assert( My != NULL ); + + + if (My->StackHead) + { + /* BASIC program running */ + bwb_execline (); /* execute one line of program */ + return; + } + /* BASIC program completed */ + + if (My->ExternalInputFile != NULL) + { + /* for automated testing, --TAPE command line parameter */ + if (bwb_is_eof (My->ExternalInputFile) == FALSE) + { + /* --TAPE command line parameter is active */ + bwb_interact (); /* get user interaction */ + return; + } + } + /* TAPE command inactive or completed */ + + if (My->IsCommandLineFile) + { + /* BASIC program was started from command line */ + bwx_terminate (); + return; + } + /* BASIC program was not started from command line */ + + if (My->IsInteractive) + { + /* interactive */ + bwb_interact (); /* get user interaction */ + return; + } + /* non-interactive */ + + bwx_terminate (); +} + +/*************************************************************** + + FUNCTION: bwb_execline() + + DESCRIPTION: This function executes a single line of + a program in memory. This function is + called by bwb_mainloop(). + +***************************************************************/ + +extern int +bwx_Error (int ERR, char *ErrorMessage) +{ + /* + ERR is the error number + ErrorMessage is used to override the default error message, and is usually NULL + */ + assert( My != NULL ); + + switch (ERR) + { + case 0: + /* + ** + ** Clear any existing error + ** + */ + My->IsErrorPending = FALSE; /* bwx_Error, ERR == 0 */ + My->ERR = 0; /* bwx_Error, ERR == 0 */ + My->ERL = NULL; /* bwx_Error, ERR == 0 */ + bwb_strcpy (My->ERROR4, ""); /* bwx_Error, ERR == 0 */ + return FALSE; + case 6: /* WARN_OVERFLOW */ + case 11: /* WARN_DIVISION_BY_ZERO */ + case 15: /* WARN_STRING_TOO_LONG */ + /* + ** + ** Behavior depends upon whether an Error handler is active. + ** + */ + if (GetOnError () == 0) + { + /* + ** + ** Error handler is NOT active. + ** Do NOT set ERL, ERR, and ERROR$. + ** Continue processing. + ** + */ + if (ErrorMessage == NULL) + { + /* use the default error message */ + if (ERR > 0 && ERR < NUM_WARNINGS) + { + ErrorMessage = ERROR4[ERR]; + } + } + if (ErrorMessage != NULL) + { + if (bwb_strlen (ErrorMessage) > 0) + { + fprintf (My->SYSOUT->cfp, "%s\n", ErrorMessage); + ResetConsoleColumn (); + } + } + return FALSE; /* continue processing */ + } + /* + ** + ** Error handler IS active. + ** Fall-thru to set ERL, ERR, and ERROR$. + ** Abort processing. + ** + */ + } + if (My->IsErrorPending == FALSE) /* no errors pending */ + { + /* + ** + ** only keep the first pending error to occur + ** + */ + My->IsErrorPending = TRUE; /* bwx_Error, ERR != 0 */ + My->ERR = ERR; /* bwx_Error, ERR != 0 */ + My->ERL = NULL; /* bwx_Error, ERR != 0 */ + bwb_strcpy (My->ERROR4, ""); /* bwx_Error, ERR != 0 */ + if (My->StackHead) + { + My->ERL = My->StackHead->line; + } + if (ErrorMessage == NULL) + { + /* use the default error message */ + if (ERR > 0 && ERR < NUM_WARNINGS) + { + ErrorMessage = ERROR4[ERR]; + } + } + if (ErrorMessage != NULL) + { + if (bwb_strlen (ErrorMessage) > MAX_ERR_LENGTH) + { + ErrorMessage[MAX_ERR_LENGTH] = NulChar; + } + bwb_strcpy (My->ERROR4, ErrorMessage); + } + } + return TRUE; /* abort processing */ +} + +void +bwb_execline (void) +{ + LineType *r, *l; + assert( My != NULL ); + assert( My->SYSOUT != NULL ); + assert( My->SYSOUT->cfp != NULL ); + assert( My->CurrentVersion != NULL ); + + if (My->StackHead == NULL) /* in bwb_execline(), FATAL ERROR PENDING */ + { + return; + } + + l = My->StackHead->line; + + /* if the line is My->EndMarker, then break out of EXEC loops */ + if (l == NULL || l == My->EndMarker || My->ERR < 0) /* in bwb_execline(), FATAL ERROR PENDING */ + { + bwb_clrexec (); + return; + } + + My->ThisLine = l; /* bwb_execline */ + + /* Print line number if trace is on */ + if (My->IsTraceOn == TRUE) + { + if (l->LineFlags & (LINE_USER)) + { + /* USER line in console */ + } + else if (l->number > 0) + { + fprintf (My->SYSOUT->cfp, "[ %d %s ]", l->number, l->buffer); + } + } + l->position = l->Startpos; + + /* if there is a BASIC command in the line, execute it here */ + if (l->cmdnum) + { + /* OK */ + } + else + { + WARN_ILLEGAL_DIRECT; + l->cmdnum = C_REM; + } + /* l->cmdnum != 0 */ + + if (l->LineFlags & LINE_BREAK) + { + /* BREAK line */ + l->LineFlags &= ~LINE_BREAK; + My->ContinueLine = l; + bwx_STOP (TRUE); + return; + } + + /* advance beyond whitespace */ + line_skip_spaces (l); /* keep this */ + + /* execute the command vector */ + if (My->CurrentVersion->OptionFlags & (OPTION_COVERAGE_ON)) + { + /* We do this here so "END" and "STOP" are marked */ + if (l->cmdnum == C_DATA) + { + /* DATA lines are marked when they are READ */ + } + else + { + /* this line was executed */ + l->LineFlags |= LINE_EXECUTED; + } + } + r = bwb_vector (l); + if (r == NULL) + { + WARN_INTERNAL_ERROR; + return; + } + assert (r != NULL); + + if (My->ERR < 0) /* in bwb_execline(), FATAL ERROR PENDING */ + { + /* FATAL */ + bwb_clrexec (); + return; + } + + if (My->IsErrorPending /* Keep This */ ) + { + /* we are probably not at the end-of-the-line */ + } + else if (r == l) + { + /* we should be at the end-of-the-line */ + if (line_is_eol (l)) + { + /* OK */ + } + else + { + WARN_SYNTAX_ERROR; + return; + } + } + else + { + /* we are probably not at the end-of-the-line */ + } + + if (My->IsErrorPending /* Keep This */ ) + { + /* + ** + ** a NON-FATAL ERROR has occurred. ERR, ERL, and ERROR$ were + ** already set using bwb_warning(ERR,ERROR$) + ** + */ + int err_gotol; + My->IsErrorPending = FALSE; /* Error Recognized */ + err_gotol = GetOnError (); + if (l->LineFlags & (LINE_USER)) + { + /* + ** + ** ------------------------------------------------------------------------- + ** USER line in console + ** ------------------------------------------------------------------------- + ** + ** fall thru to the DEFAULT ERROR HANDLER + ** + */ + } + else if (l->number == 0) + { + /* fall thru to the DEFAULT ERROR HANDLER */ + } + else if (My->ERL == NULL) + { + /* fall thru to the DEFAULT ERROR HANDLER */ + } + else if (My->ERL->number == 0) + { + /* fall thru to the DEFAULT ERROR HANDLER */ + } + else if (err_gotol == -1) + { + /* + ** + ** ------------------------------------------------------------------------- + ** ON ERROR RESUME NEXT + ** ------------------------------------------------------------------------- + ** + */ + assert (r != NULL); + assert (r->next != NULL); + + r->next->position = 0; + assert (My->StackHead != NULL); + My->StackHead->line = r->next; + return; + } + else if (err_gotol == 0) + { + /* + ** + ** ------------------------------------------------------------------------- + ** ON ERROR GOTO 0 + ** ------------------------------------------------------------------------- + ** + ** fall thru to the DEFAULT ERROR HANDLER + ** + */ + } + else if (err_gotol == My->ERL->number) + { + /* + ** + ** ------------------------------------------------------------------------- + ** RECURSION + ** ------------------------------------------------------------------------- + ** + ** For example: + ** 10 ON ERROR GOTO 20 + ** 20 ERROR 1 + ** + ** fall thru to the DEFAULT ERROR HANDLER + ** + */ + } + else + { + /* USER ERROR HANDLER SPECIFIED */ + /* find the user-specified error handler and jump there */ + LineType *x; + for (x = My->StartMarker->next; x != My->EndMarker; x = x->next) + { + if (x->number == err_gotol) + { + /* FOUND */ + if (My->CurrentVersion->OptionFlags & (OPTION_ERROR_GOSUB)) + { + /* + ** + ** ------------------------------------------------------------------------- + ** OPTION ERROR GOSUB + ** ------------------------------------------------------------------------- + ** + ** RETURN should act like RESUME NEXT... + ** Execution resumes at the statement immediately following the one which caused the error. + ** For structured commands, this is the bottom line of the structure. + ** + */ + switch (l->cmdnum) + { + case C_IF8THEN: + /* skip to END_IF */ + assert (l->OtherLine != NULL); + for (l = l->OtherLine; l->cmdnum != C_END_IF; l = l->OtherLine); + break; + case C_SELECT_CASE: + /* skip to END_SELECT */ + assert (l->OtherLine != NULL); + for (l = l->OtherLine; l->cmdnum != C_END_SELECT; + l = l->OtherLine); + break; + default: + l = l->next; + } + l->position = 0; + My->StackHead->line = l; + if (bwb_incexec ()) + { + x->position = 0; + assert (My->StackHead != NULL); + My->StackHead->line = x; + My->StackHead->ExecCode = EXEC_GOSUB; + } + else + { + /* ERROR -- OUT OF MEMORY */ + assert (My->StackHead != NULL); + My->StackHead->line = My->EndMarker; + } + } + else + { + /* + ** + ** ------------------------------------------------------------------------- + ** OPTION ERROR GOTO + ** ------------------------------------------------------------------------- + ** + */ + x->position = 0; /* start of line */ + assert (My->StackHead != NULL); + My->StackHead->line = x; + } + return; + } + } + /* NOT FOUND */ + /* fall thru to the DEFAULT ERROR HANDLER */ + } + /* + ** + ** ------------------------------------------------------------------------- + ** DEFAULT ERROR HANDLER (FATAL) + ** ------------------------------------------------------------------------- + ** + */ + /* + ** + ** display error message + ** + */ + if (l->LineFlags & (LINE_USER) || l->number <= 0) + { + /* USER line in console */ + fprintf (My->SYSOUT->cfp, "\nERROR: %s\n", My->ERROR4); + ResetConsoleColumn (); + } + else + { + /* BASIC program line */ + fprintf (My->SYSOUT->cfp, "\nERROR in line %d: %s\n", l->number, + My->ERROR4); + ResetConsoleColumn (); + /* + ** + ** display stack trace + ** + */ + if (My->CurrentVersion->OptionFlags & (OPTION_TRACE_ON)) + { + /* + ** Dump the BASIC stack trace when a FATAL error occurs. + ** First line is the TOP of the stack. + ** Last line is the BOTTOM of the stack. + */ + StackType *StackItem; + fprintf (My->SYSOUT->cfp, "\nSTACK TRACE:\n"); + for (StackItem = My->StackHead; StackItem != NULL; + StackItem = StackItem->next) + { + LineType *l; + + l = StackItem->line; + if (l != NULL) + { + if (MINLIN <= l->number && l->number <= MAXLIN) + { + /* BASIC program line */ + if (l->buffer == NULL) + { + fprintf (My->SYSOUT->cfp, "%d\n", l->number); + } + else + { + fprintf (My->SYSOUT->cfp, "%d:%s\n", l->number, l->buffer); + } + } + } + } + ResetConsoleColumn (); + } + } + + My->AutomaticLineNumber = 0; + My->AutomaticLineIncrement = 0; + + if (My->IsInteractive) + { + /* INTERACTIVE: terminate program */ + + /* reset all stack counters */ + bwb_clrexec (); + SetOnError (0); + + My->ERR = -1; /* in bwb_execline(), default error handler */ + + + /* reset the break handler */ + signal (SIGINT, break_mes); + + + return; + } + /* NOT INTERACTIVE: terminate immediately */ + bwx_terminate (); + return; /* never reached */ + } + if (l->number > 0) + { + /* These events only occur in running programs */ + if (My->IsTimerOn) + { + /* TIMER ON */ + if (My->OnTimerCount > 0) + { + if (bwx_TIMER (0) > My->OnTimerExpires) + { + My->IsTimerOn = FALSE; + if (My->OnTimerLineNumber > 0) + { + /* ON TIMER( My->OnTimerCount ) GOSUB My->OnTimerLineNumber */ + LineType *x; + + for (x = My->StartMarker->next; x != My->EndMarker; x = x->next) + { + if (x->number == My->OnTimerLineNumber) + { + /* FOUND */ + /* save current stack level */ + assert (My->StackHead != NULL); + My->StackHead->line = r; + /* increment exec stack */ + if (bwb_incexec ()) + { + /* set the new position to x and return x */ + x->position = 0; + assert (My->StackHead != NULL); + My->StackHead->line = x; + My->StackHead->ExecCode = EXEC_GOSUB; + } + else + { + /* ERROR */ + assert (My->StackHead != NULL); + My->StackHead->line = My->EndMarker; + } + return; + } + } + /* NOT FOUND */ + } + } + } + } + } + /* check for end of line: if so, advance to next line and return */ + if (r == l) + { + /* advance to the next line */ + l->next->position = 0; + r = l->next; + } + else if (line_is_eol (r)) + { + /* we could be at the end-of-the-line, added for RETURN */ + /* advance to the next line */ + r->next->position = 0; + r = r->next; + } + /* else reset with the value in r */ + assert (My->StackHead != NULL); + My->StackHead->line = r; +} + +/*************************************************************** + + FUNCTION: is_ln() + + DESCRIPTION: This function determines whether a program + line (in buffer) begins with a line number. + +***************************************************************/ + +static int +is_ln (char *buffer) +{ + int position; + + assert (buffer != NULL); + + position = 0; + buff_skip_spaces (buffer, &position); /* keep this */ + if (bwb_isdigit (buffer[position])) + { + return TRUE; + } + return FALSE; +} + +/*************************************************************** + + FUNCTION: is_numconst() + + DESCRIPTION: This function reads the string in + and returns TRUE if it is a numerical + constant and FALSE if it is not. At + this point, only decimal (base 10) + constants are detected. + +***************************************************************/ + +static int +is_numconst (char *buffer) +{ + char *p; + + assert (buffer != NULL); + + /* Return FALSE for empty buffer */ + + if (buffer[0] == NulChar) + { + return FALSE; + } + /* else check digits */ + + p = buffer; + while (*p != NulChar) + { + switch (*p) + { + case '0': + case '1': + case '2': + case '3': + case '4': + case '5': + case '6': + case '7': + case '8': + case '9': + break; + default: + return FALSE; + } + p++; + } + + /* only numerical characters detected */ + + return TRUE; + +} + +/* SWITCH */ +LineType * +bwb_vector( LineType *l ) +{ + LineType *r; + assert (l != NULL); + switch( l->cmdnum ) + { + case C_DEF8LBL: + r = bwb_DEF8LBL( l ); + break; + case C_APPEND: + r = bwb_APPEND( l ); + break; + case C_AS: + r = bwb_AS( l ); + break; + case C_AUTO: + r = bwb_AUTO( l ); + break; + case C_BACKSPACE: + r = bwb_BACKSPACE( l ); + break; + case C_BREAK: + r = bwb_BREAK( l ); + break; + case C_BUILD: + r = bwb_BUILD( l ); + break; + case C_BYE: + r = bwb_BYE( l ); + break; + case C_CALL: + r = bwb_CALL( l ); + break; + case C_CASE: + r = bwb_CASE( l ); + break; + case C_CASE_ELSE: + r = bwb_CASE_ELSE( l ); + break; + case C_CHAIN: + r = bwb_CHAIN( l ); + break; + case C_CHANGE: + r = bwb_CHANGE( l ); + break; + case C_CLEAR: + r = bwb_CLEAR( l ); + break; + case C_CLOAD: + r = bwb_CLOAD( l ); + break; + case C_CLOAD8: + r = bwb_CLOAD8( l ); + break; + case C_CLOSE: + r = bwb_CLOSE( l ); + break; + case C_CLR: + r = bwb_CLR( l ); + break; + case C_CMDS: + r = bwb_CMDS( l ); + break; + case C_COMMON: + r = bwb_COMMON( l ); + break; + case C_CONSOLE: + r = bwb_CONSOLE( l ); + break; + case C_CONST: + r = bwb_CONST( l ); + break; + case C_CONT: + r = bwb_CONT( l ); + break; + case C_CONTINUE: + r = bwb_CONTINUE( l ); + break; + case C_COPY: + r = bwb_COPY( l ); + break; + case C_CREATE: + r = bwb_CREATE( l ); + break; + case C_CSAVE: + r = bwb_CSAVE( l ); + break; + case C_CSAVE8: + r = bwb_CSAVE8( l ); + break; + case C_DATA: + r = bwb_DATA( l ); + break; + case C_DEC: + r = bwb_DEC( l ); + break; + case C_DEF: + r = bwb_DEF( l ); + break; + case C_DEFBYT: + r = bwb_DEFBYT( l ); + break; + case C_DEFCUR: + r = bwb_DEFCUR( l ); + break; + case C_DEFDBL: + r = bwb_DEFDBL( l ); + break; + case C_DEFINT: + r = bwb_DEFINT( l ); + break; + case C_DEFLNG: + r = bwb_DEFLNG( l ); + break; + case C_DEFSNG: + r = bwb_DEFSNG( l ); + break; + case C_DEFSTR: + r = bwb_DEFSTR( l ); + break; + case C_DELETE: + r = bwb_DELETE( l ); + break; + case C_DELIMIT: + r = bwb_DELIMIT( l ); + break; + case C_DIM: + r = bwb_DIM( l ); + break; + case C_DISPLAY: + r = bwb_DISPLAY( l ); + break; + case C_DO: + r = bwb_DO( l ); + break; + case C_DOS: + r = bwb_DOS( l ); + break; + case C_DSP: + r = bwb_DSP( l ); + break; + case C_EDIT: + r = bwb_EDIT( l ); + break; + case C_ELSE: + r = bwb_ELSE( l ); + break; + case C_ELSEIF: + r = bwb_ELSEIF( l ); + break; + case C_END: + r = bwb_END( l ); + break; + case C_END_FUNCTION: + r = bwb_END_FUNCTION( l ); + break; + case C_END_IF: + r = bwb_END_IF( l ); + break; + case C_END_SELECT: + r = bwb_END_SELECT( l ); + break; + case C_END_SUB: + r = bwb_END_SUB( l ); + break; + case C_ERASE: + r = bwb_ERASE( l ); + break; + case C_EXCHANGE: + r = bwb_EXCHANGE( l ); + break; + case C_EXIT: + r = bwb_EXIT( l ); + break; + case C_EXIT_DO: + r = bwb_EXIT_DO( l ); + break; + case C_EXIT_FOR: + r = bwb_EXIT_FOR( l ); + break; + case C_EXIT_FUNCTION: + r = bwb_EXIT_FUNCTION( l ); + break; + case C_EXIT_REPEAT: + r = bwb_EXIT_REPEAT( l ); + break; + case C_EXIT_SUB: + r = bwb_EXIT_SUB( l ); + break; + case C_EXIT_WHILE: + r = bwb_EXIT_WHILE( l ); + break; + case C_FEND: + r = bwb_FEND( l ); + break; + case C_FIELD: + r = bwb_FIELD( l ); + break; + case C_FILE: + r = bwb_FILE( l ); + break; + case C_FILES: + r = bwb_FILES( l ); + break; + case C_FLEX: + r = bwb_FLEX( l ); + break; + case C_FNCS: + r = bwb_FNCS( l ); + break; + case C_FNEND: + r = bwb_FNEND( l ); + break; + case C_FOR: + r = bwb_FOR( l ); + break; + case C_FUNCTION: + r = bwb_FUNCTION( l ); + break; + case C_GET: + r = bwb_GET( l ); + break; + case C_GO: + r = bwb_GO( l ); + break; + case C_GO_SUB: + r = bwb_GO_SUB( l ); + break; + case C_GO_TO: + r = bwb_GO_TO( l ); + break; + case C_GOODBYE: + r = bwb_GOODBYE( l ); + break; + case C_GOSUB: + r = bwb_GOSUB( l ); + break; + case C_GOTO: + r = bwb_GOTO( l ); + break; + case C_HELP: + r = bwb_HELP( l ); + break; + case C_IF: + r = bwb_IF( l ); + break; + case C_IF_END: + r = bwb_IF_END( l ); + break; + case C_IF_MORE: + r = bwb_IF_MORE( l ); + break; + case C_IF8THEN: + r = bwb_IF8THEN( l ); + break; + case C_IMAGE: + r = bwb_IMAGE( l ); + break; + case C_INC: + r = bwb_INC( l ); + break; + case C_INPUT: + r = bwb_INPUT( l ); + break; + case C_INPUT_LINE: + r = bwb_INPUT_LINE( l ); + break; + case C_LET: + r = bwb_LET( l ); + break; + case C_LINE: + r = bwb_LINE( l ); + break; + case C_LINE_INPUT: + r = bwb_LINE_INPUT( l ); + break; + case C_LIST: + r = bwb_LIST( l ); + break; + case C_LISTNH: + r = bwb_LISTNH( l ); + break; + case C_LLIST: + r = bwb_LLIST( l ); + break; + case C_LOAD: + r = bwb_LOAD( l ); + break; + case C_LOCAL: + r = bwb_LOCAL( l ); + break; + case C_LOOP: + r = bwb_LOOP( l ); + break; + case C_LPRINT: + r = bwb_LPRINT( l ); + break; + case C_LPRINTER: + r = bwb_LPRINTER( l ); + break; + case C_LPT: + r = bwb_LPT( l ); + break; + case C_LSET: + r = bwb_LSET( l ); + break; + case C_MAINTAINER: + r = bwb_MAINTAINER( l ); + break; + case C_MAINTAINER_CMDS: + r = bwb_MAINTAINER_CMDS( l ); + break; + case C_MAINTAINER_CMDS_HTML: + r = bwb_MAINTAINER_CMDS_HTML( l ); + break; + case C_MAINTAINER_CMDS_ID: + r = bwb_MAINTAINER_CMDS_ID( l ); + break; + case C_MAINTAINER_CMDS_MANUAL: + r = bwb_MAINTAINER_CMDS_MANUAL( l ); + break; + case C_MAINTAINER_CMDS_SWITCH: + r = bwb_MAINTAINER_CMDS_SWITCH( l ); + break; + case C_MAINTAINER_CMDS_TABLE: + r = bwb_MAINTAINER_CMDS_TABLE( l ); + break; + case C_MAINTAINER_DEBUG: + r = bwb_MAINTAINER_DEBUG( l ); + break; + case C_MAINTAINER_DEBUG_OFF: + r = bwb_MAINTAINER_DEBUG_OFF( l ); + break; + case C_MAINTAINER_DEBUG_ON: + r = bwb_MAINTAINER_DEBUG_ON( l ); + break; + case C_MAINTAINER_FNCS: + r = bwb_MAINTAINER_FNCS( l ); + break; + case C_MAINTAINER_FNCS_HTML: + r = bwb_MAINTAINER_FNCS_HTML( l ); + break; + case C_MAINTAINER_FNCS_ID: + r = bwb_MAINTAINER_FNCS_ID( l ); + break; + case C_MAINTAINER_FNCS_MANUAL: + r = bwb_MAINTAINER_FNCS_MANUAL( l ); + break; + case C_MAINTAINER_FNCS_SWITCH: + r = bwb_MAINTAINER_FNCS_SWITCH( l ); + break; + case C_MAINTAINER_FNCS_TABLE: + r = bwb_MAINTAINER_FNCS_TABLE( l ); + break; + case C_MAINTAINER_MANUAL: + r = bwb_MAINTAINER_MANUAL( l ); + break; + case C_MAINTAINER_STACK: + r = bwb_MAINTAINER_STACK( l ); + break; + case C_MARGIN: + r = bwb_MARGIN( l ); + break; + case C_MAT: + r = bwb_MAT( l ); + break; + case C_MAT_GET: + r = bwb_MAT_GET( l ); + break; + case C_MAT_INPUT: + r = bwb_MAT_INPUT( l ); + break; + case C_MAT_PRINT: + r = bwb_MAT_PRINT( l ); + break; + case C_MAT_PUT: + r = bwb_MAT_PUT( l ); + break; + case C_MAT_READ: + r = bwb_MAT_READ( l ); + break; + case C_MAT_WRITE: + r = bwb_MAT_WRITE( l ); + break; + case C_MERGE: + r = bwb_MERGE( l ); + break; + case C_MID4: + r = bwb_MID4( l ); + break; + case C_MON: + r = bwb_MON( l ); + break; + case C_NAME: + r = bwb_NAME( l ); + break; + case C_NEW: + r = bwb_NEW( l ); + break; + case C_NEXT: + r = bwb_NEXT( l ); + break; + case C_OF: + r = bwb_OF( l ); + break; + case C_OLD: + r = bwb_OLD( l ); + break; + case C_ON: + r = bwb_ON( l ); + break; + case C_ON_ERROR: + r = bwb_ON_ERROR( l ); + break; + case C_ON_ERROR_GOSUB: + r = bwb_ON_ERROR_GOSUB( l ); + break; + case C_ON_ERROR_GOTO: + r = bwb_ON_ERROR_GOTO( l ); + break; + case C_ON_ERROR_RESUME: + r = bwb_ON_ERROR_RESUME( l ); + break; + case C_ON_ERROR_RESUME_NEXT: + r = bwb_ON_ERROR_RESUME_NEXT( l ); + break; + case C_ON_ERROR_RETURN: + r = bwb_ON_ERROR_RETURN( l ); + break; + case C_ON_ERROR_RETURN_NEXT: + r = bwb_ON_ERROR_RETURN_NEXT( l ); + break; + case C_ON_TIMER: + r = bwb_ON_TIMER( l ); + break; + case C_OPEN: + r = bwb_OPEN( l ); + break; + case C_OPTION: + r = bwb_OPTION( l ); + break; + case C_OPTION_ANGLE: + r = bwb_OPTION_ANGLE( l ); + break; + case C_OPTION_ANGLE_DEGREES: + r = bwb_OPTION_ANGLE_DEGREES( l ); + break; + case C_OPTION_ANGLE_GRADIANS: + r = bwb_OPTION_ANGLE_GRADIANS( l ); + break; + case C_OPTION_ANGLE_RADIANS: + r = bwb_OPTION_ANGLE_RADIANS( l ); + break; + case C_OPTION_ARITHMETIC: + r = bwb_OPTION_ARITHMETIC( l ); + break; + case C_OPTION_ARITHMETIC_DECIMAL: + r = bwb_OPTION_ARITHMETIC_DECIMAL( l ); + break; + case C_OPTION_ARITHMETIC_FIXED: + r = bwb_OPTION_ARITHMETIC_FIXED( l ); + break; + case C_OPTION_ARITHMETIC_NATIVE: + r = bwb_OPTION_ARITHMETIC_NATIVE( l ); + break; + case C_OPTION_BASE: + r = bwb_OPTION_BASE( l ); + break; + case C_OPTION_BUGS: + r = bwb_OPTION_BUGS( l ); + break; + case C_OPTION_BUGS_BOOLEAN: + r = bwb_OPTION_BUGS_BOOLEAN( l ); + break; + case C_OPTION_BUGS_OFF: + r = bwb_OPTION_BUGS_OFF( l ); + break; + case C_OPTION_BUGS_ON: + r = bwb_OPTION_BUGS_ON( l ); + break; + case C_OPTION_COMPARE: + r = bwb_OPTION_COMPARE( l ); + break; + case C_OPTION_COMPARE_BINARY: + r = bwb_OPTION_COMPARE_BINARY( l ); + break; + case C_OPTION_COMPARE_DATABASE: + r = bwb_OPTION_COMPARE_DATABASE( l ); + break; + case C_OPTION_COMPARE_TEXT: + r = bwb_OPTION_COMPARE_TEXT( l ); + break; + case C_OPTION_COVERAGE: + r = bwb_OPTION_COVERAGE( l ); + break; + case C_OPTION_COVERAGE_OFF: + r = bwb_OPTION_COVERAGE_OFF( l ); + break; + case C_OPTION_COVERAGE_ON: + r = bwb_OPTION_COVERAGE_ON( l ); + break; + case C_OPTION_DATE: + r = bwb_OPTION_DATE( l ); + break; + case C_OPTION_DIGITS: + r = bwb_OPTION_DIGITS( l ); + break; + case C_OPTION_DISABLE: + r = bwb_OPTION_DISABLE( l ); + break; + case C_OPTION_DISABLE_COMMAND: + r = bwb_OPTION_DISABLE_COMMAND( l ); + break; + case C_OPTION_DISABLE_FUNCTION: + r = bwb_OPTION_DISABLE_FUNCTION( l ); + break; + case C_OPTION_DISABLE_OPERATOR: + r = bwb_OPTION_DISABLE_OPERATOR( l ); + break; + case C_OPTION_EDIT: + r = bwb_OPTION_EDIT( l ); + break; + case C_OPTION_ENABLE: + r = bwb_OPTION_ENABLE( l ); + break; + case C_OPTION_ENABLE_COMMAND: + r = bwb_OPTION_ENABLE_COMMAND( l ); + break; + case C_OPTION_ENABLE_FUNCTION: + r = bwb_OPTION_ENABLE_FUNCTION( l ); + break; + case C_OPTION_ENABLE_OPERATOR: + r = bwb_OPTION_ENABLE_OPERATOR( l ); + break; + case C_OPTION_ERROR: + r = bwb_OPTION_ERROR( l ); + break; + case C_OPTION_ERROR_GOSUB: + r = bwb_OPTION_ERROR_GOSUB( l ); + break; + case C_OPTION_ERROR_GOTO: + r = bwb_OPTION_ERROR_GOTO( l ); + break; + case C_OPTION_EXPLICIT: + r = bwb_OPTION_EXPLICIT( l ); + break; + case C_OPTION_EXTENSION: + r = bwb_OPTION_EXTENSION( l ); + break; + case C_OPTION_FILES: + r = bwb_OPTION_FILES( l ); + break; + case C_OPTION_IMPLICIT: + r = bwb_OPTION_IMPLICIT( l ); + break; + case C_OPTION_INDENT: + r = bwb_OPTION_INDENT( l ); + break; + case C_OPTION_LABELS: + r = bwb_OPTION_LABELS( l ); + break; + case C_OPTION_LABELS_OFF: + r = bwb_OPTION_LABELS_OFF( l ); + break; + case C_OPTION_LABELS_ON: + r = bwb_OPTION_LABELS_ON( l ); + break; + case C_OPTION_PROMPT: + r = bwb_OPTION_PROMPT( l ); + break; + case C_OPTION_PUNCT: + r = bwb_OPTION_PUNCT( l ); + break; + case C_OPTION_PUNCT_AT: + r = bwb_OPTION_PUNCT_AT( l ); + break; + case C_OPTION_PUNCT_BYTE: + r = bwb_OPTION_PUNCT_BYTE( l ); + break; + case C_OPTION_PUNCT_COMMENT: + r = bwb_OPTION_PUNCT_COMMENT( l ); + break; + case C_OPTION_PUNCT_CURRENCY: + r = bwb_OPTION_PUNCT_CURRENCY( l ); + break; + case C_OPTION_PUNCT_DOUBLE: + r = bwb_OPTION_PUNCT_DOUBLE( l ); + break; + case C_OPTION_PUNCT_FILENUM: + r = bwb_OPTION_PUNCT_FILENUM( l ); + break; + case C_OPTION_PUNCT_IMAGE: + r = bwb_OPTION_PUNCT_IMAGE( l ); + break; + case C_OPTION_PUNCT_INPUT: + r = bwb_OPTION_PUNCT_INPUT( l ); + break; + case C_OPTION_PUNCT_INTEGER: + r = bwb_OPTION_PUNCT_INTEGER( l ); + break; + case C_OPTION_PUNCT_LONG: + r = bwb_OPTION_PUNCT_LONG( l ); + break; + case C_OPTION_PUNCT_LPAREN: + r = bwb_OPTION_PUNCT_LPAREN( l ); + break; + case C_OPTION_PUNCT_PRINT: + r = bwb_OPTION_PUNCT_PRINT( l ); + break; + case C_OPTION_PUNCT_QUOTE: + r = bwb_OPTION_PUNCT_QUOTE( l ); + break; + case C_OPTION_PUNCT_RPAREN: + r = bwb_OPTION_PUNCT_RPAREN( l ); + break; + case C_OPTION_PUNCT_SINGLE: + r = bwb_OPTION_PUNCT_SINGLE( l ); + break; + case C_OPTION_PUNCT_STATEMENT: + r = bwb_OPTION_PUNCT_STATEMENT( l ); + break; + case C_OPTION_PUNCT_STRING: + r = bwb_OPTION_PUNCT_STRING( l ); + break; + case C_OPTION_RECLEN: + r = bwb_OPTION_RECLEN( l ); + break; + case C_OPTION_RENUM: + r = bwb_OPTION_RENUM( l ); + break; + case C_OPTION_ROUND: + r = bwb_OPTION_ROUND( l ); + break; + case C_OPTION_ROUND_BANK: + r = bwb_OPTION_ROUND_BANK( l ); + break; + case C_OPTION_ROUND_MATH: + r = bwb_OPTION_ROUND_MATH( l ); + break; + case C_OPTION_ROUND_TRUNCATE: + r = bwb_OPTION_ROUND_TRUNCATE( l ); + break; + case C_OPTION_SCALE: + r = bwb_OPTION_SCALE( l ); + break; + case C_OPTION_SLEEP: + r = bwb_OPTION_SLEEP( l ); + break; + case C_OPTION_STDERR: + r = bwb_OPTION_STDERR( l ); + break; + case C_OPTION_STDIN: + r = bwb_OPTION_STDIN( l ); + break; + case C_OPTION_STDOUT: + r = bwb_OPTION_STDOUT( l ); + break; + case C_OPTION_STRICT: + r = bwb_OPTION_STRICT( l ); + break; + case C_OPTION_STRICT_OFF: + r = bwb_OPTION_STRICT_OFF( l ); + break; + case C_OPTION_STRICT_ON: + r = bwb_OPTION_STRICT_ON( l ); + break; + case C_OPTION_TERMINAL: + r = bwb_OPTION_TERMINAL( l ); + break; + case C_OPTION_TERMINAL_ADM: + r = bwb_OPTION_TERMINAL_ADM( l ); + break; + case C_OPTION_TERMINAL_ANSI: + r = bwb_OPTION_TERMINAL_ANSI( l ); + break; + case C_OPTION_TERMINAL_NONE: + r = bwb_OPTION_TERMINAL_NONE( l ); + break; + case C_OPTION_TIME: + r = bwb_OPTION_TIME( l ); + break; + case C_OPTION_TRACE: + r = bwb_OPTION_TRACE( l ); + break; + case C_OPTION_TRACE_OFF: + r = bwb_OPTION_TRACE_OFF( l ); + break; + case C_OPTION_TRACE_ON: + r = bwb_OPTION_TRACE_ON( l ); + break; + case C_OPTION_USING: + r = bwb_OPTION_USING( l ); + break; + case C_OPTION_USING_ALL: + r = bwb_OPTION_USING_ALL( l ); + break; + case C_OPTION_USING_COMMA: + r = bwb_OPTION_USING_COMMA( l ); + break; + case C_OPTION_USING_DIGIT: + r = bwb_OPTION_USING_DIGIT( l ); + break; + case C_OPTION_USING_DOLLAR: + r = bwb_OPTION_USING_DOLLAR( l ); + break; + case C_OPTION_USING_EXRAD: + r = bwb_OPTION_USING_EXRAD( l ); + break; + case C_OPTION_USING_FILLER: + r = bwb_OPTION_USING_FILLER( l ); + break; + case C_OPTION_USING_FIRST: + r = bwb_OPTION_USING_FIRST( l ); + break; + case C_OPTION_USING_LENGTH: + r = bwb_OPTION_USING_LENGTH( l ); + break; + case C_OPTION_USING_LITERAL: + r = bwb_OPTION_USING_LITERAL( l ); + break; + case C_OPTION_USING_MINUS: + r = bwb_OPTION_USING_MINUS( l ); + break; + case C_OPTION_USING_PERIOD: + r = bwb_OPTION_USING_PERIOD( l ); + break; + case C_OPTION_USING_PLUS: + r = bwb_OPTION_USING_PLUS( l ); + break; + case C_OPTION_VERSION: + r = bwb_OPTION_VERSION( l ); + break; + case C_OPTION_ZONE: + r = bwb_OPTION_ZONE( l ); + break; + case C_PAUSE: + r = bwb_PAUSE( l ); + break; + case C_PDEL: + r = bwb_PDEL( l ); + break; + case C_POP: + r = bwb_POP( l ); + break; + case C_PRINT: + r = bwb_PRINT( l ); + break; + case C_PTP: + r = bwb_PTP( l ); + break; + case C_PTR: + r = bwb_PTR( l ); + break; + case C_PUT: + r = bwb_PUT( l ); + break; + case C_QUIT: + r = bwb_QUIT( l ); + break; + case C_READ: + r = bwb_READ( l ); + break; + case C_RECALL: + r = bwb_RECALL( l ); + break; + case C_REM: + r = bwb_REM( l ); + break; + case C_RENAME: + r = bwb_RENAME( l ); + break; + case C_RENUM: + r = bwb_RENUM( l ); + break; + case C_RENUMBER: + r = bwb_RENUMBER( l ); + break; + case C_REPEAT: + r = bwb_REPEAT( l ); + break; + case C_REPLACE: + r = bwb_REPLACE( l ); + break; + case C_RESET: + r = bwb_RESET( l ); + break; + case C_RESTORE: + r = bwb_RESTORE( l ); + break; + case C_RESUME: + r = bwb_RESUME( l ); + break; + case C_RETURN: + r = bwb_RETURN( l ); + break; + case C_RSET: + r = bwb_RSET( l ); + break; + case C_RUN: + r = bwb_RUN( l ); + break; + case C_RUNNH: + r = bwb_RUNNH( l ); + break; + case C_SAVE: + r = bwb_SAVE( l ); + break; + case C_SCRATCH: + r = bwb_SCRATCH( l ); + break; + case C_SELECT: + r = bwb_SELECT( l ); + break; + case C_SELECT_CASE: + r = bwb_SELECT_CASE( l ); + break; + case C_STEP: + r = bwb_STEP( l ); + break; + case C_STOP: + r = bwb_STOP( l ); + break; + case C_STORE: + r = bwb_STORE( l ); + break; + case C_SUB: + r = bwb_SUB( l ); + break; + case C_SUB_END: + r = bwb_SUB_END( l ); + break; + case C_SUB_EXIT: + r = bwb_SUB_EXIT( l ); + break; + case C_SUBEND: + r = bwb_SUBEND( l ); + break; + case C_SUBEXIT: + r = bwb_SUBEXIT( l ); + break; + case C_SWAP: + r = bwb_SWAP( l ); + break; + case C_SYSTEM: + r = bwb_SYSTEM( l ); + break; + case C_TEXT: + r = bwb_TEXT( l ); + break; + case C_THEN: + r = bwb_THEN( l ); + break; + case C_TIMER: + r = bwb_TIMER( l ); + break; + case C_TIMER_OFF: + r = bwb_TIMER_OFF( l ); + break; + case C_TIMER_ON: + r = bwb_TIMER_ON( l ); + break; + case C_TIMER_STOP: + r = bwb_TIMER_STOP( l ); + break; + case C_TLOAD: + r = bwb_TLOAD( l ); + break; + case C_TO: + r = bwb_TO( l ); + break; + case C_TRACE: + r = bwb_TRACE( l ); + break; + case C_TRACE_OFF: + r = bwb_TRACE_OFF( l ); + break; + case C_TRACE_ON: + r = bwb_TRACE_ON( l ); + break; + case C_TSAVE: + r = bwb_TSAVE( l ); + break; + case C_TTY: + r = bwb_TTY( l ); + break; + case C_TTY_IN: + r = bwb_TTY_IN( l ); + break; + case C_TTY_OUT: + r = bwb_TTY_OUT( l ); + break; + case C_UNTIL: + r = bwb_UNTIL( l ); + break; + case C_USE: + r = bwb_USE( l ); + break; + case C_VARS: + r = bwb_VARS( l ); + break; + case C_WEND: + r = bwb_WEND( l ); + break; + case C_WHILE: + r = bwb_WHILE( l ); + break; + case C_WRITE: + r = bwb_WRITE( l ); + break; + default: + WARN_INTERNAL_ERROR; + r = l; + break; + } + return r; +} + +/* EOF */ diff --git a/Junk/bwbasic.desktop b/Junk/bwbasic.desktop new file mode 100644 index 0000000..add1fac --- /dev/null +++ b/Junk/bwbasic.desktop @@ -0,0 +1,11 @@ +#!/usr/bin/env xdg-open +[Desktop Entry] +Encoding=UTF-8 +Name=Bywater BASIC +GenericName=Bywater BASIC +Type=Application +Exec=bwbasic +Icon=/usr/share/pixmaps/bwbasic.png +StartupNotify=true +Terminal=true +Categories=Development diff --git a/Junk/bwbasic.doc b/Junk/bwbasic.doc new file mode 100644 index 0000000..2c37ba9 --- /dev/null +++ b/Junk/bwbasic.doc @@ -0,0 +1,1156 @@ + + Bywater BASIC Interpreter, version 3.20 + --------------------------------------------- + + Copyright (c) 1993, Ted A. Campbell + for bwBASIC version 2.10, 11 October 1993 + + Copyright (c) 2014-2015, Howatd Wulf, AF5NE + for bwBASIC version 3.00, 12 May 2015 + + Copyright (c) 2015-2016, Howatd Wulf, AF5NE + for bwBASIC version 3.10, 27 July 2016 + + Copyright (c) 2016-2017, Howatd Wulf, AF5NE + for bwBASIC version 3.20, 4 June 2017 + +CONTENTS: + + + 1. DESCRIPTION + 2. TERMS OF USE + 3. QUICK REFERENCE LIST OF COMMANDS, FUNCTIONS AND OPERATORS + 4. GENERAL NOTES ON USAGE + 5. PREDEFINED VARIABLES + 6. UNIMPLEMENTED COMMANDS AND FUNCTIONS + and AGENDA FOR DEVELOPMENT + 7. THE STORY OF Bywater BASIC + 8. COMMUNICATIONS + 9. EXPANDED REFERENCE FOR COMMANDS, FUNCTIONS AND OPERATORS + + The author wishes to express his thanks to Mr. David MacKenzie, + who assisted in the development Unix installation and configuration + for this version. + +1. DESCRIPTION + + + The Bywater BASIC Interpreter (bwBASIC) implements a large superset + of the ANSI Standard for Minimal BASIC (X3.60-1978) and a significant + subset of the ANSI Standard for Full BASIC (X3.113-1987), and many + classic BASIC dialects in C. + + bwBASIC can be configured to enable commands, functions, operators + and punctuation characters available in many classic dialects of BASIC; + these are controlled by various OPTION commands. bwBASIC does not attempt + bug-level compatibility with any particular BASIC dialect nor does it + currently support graphics. bwBASIC seeks to be as portable as possible. + + The interpreter is fairly slow. Whenever faced with a choice + between conceptual clarity and speed, I have consistently chosen the + former. The interpreter is the simplest design available, and + utilizes no system of intermediate code, which could speed up + considerably its operation. As it is, each line has only one + command. Multi-statement lines are internally broken into distinct + lines as they are loaded. + + +2. TERMS OF USE: + + + This version of Bywater BASIC is released under the terms of the + GNU General Public License (GPL), which is distributed with this + software in the file "COPYING". The GPL specifies the terms under + which users may copy and use the software in this distribution. + + A separate license is available for commercial distribution, + for information on which you should contact the author. + + +3. QUICK REFERENCE LIST OF COMMANDS, FUNCTIONS AND OPERATORS + + + The complete list of over 500 commands, functions and operators is + in the file "ALL.txt" in the DOCS directory. Documentation for each + BASIC dialect is in the other text files in the DOCS directory. + + A BASIC dialect is a selection of commands, functions, operators, + punctuation characters and other behaviors. The OPTION VERSION + command is used to choose a specific BASIC dialect. Additional + OPTION commands are available to fine-tune the behavior. + + In bwBASIC, any function can be executed as a command. For example, + the function "OUT(X, Y)" can be executed as the command "OUT X, Y". + You can overload functions by parameter signature (the number + and types of parameters), and user defined functions can replace + any instrinsic function, including INP, OUT, PEEK, POKE, and WAIT. + + +4. GENERAL NOTES ON USAGE: + + + 4.a. Interactive Environment + + + An interactive environment is provided if the flag INTERACTIVE + is defined as TRUE in bwBASIC.h, so that a line with a + line number can be entered at the bwBASIC prompt and it will be + added to the program in memory. + + Line numbers are not strictly required, but are useful if the + interactive enviroment is used for programming. For longer + program entry one might prefer to use an ASCII text editor, and + in this case lines can be entered without numbers. See also the + documentation below for the pseudo-command EDIT, in section 5. + + + 4.b. Naming Conventions + + + Command, function, label, and variable names are not case sensitive, + so that "Run" and "RUN" and "run" are equivalent. + + The characters allowed in variable names depends upon the specific + BASIC dialect selected with the OPTION VERSION command. Usually, + variable names can use any alphabetic characters, the period + and underscore characters and decimal digits (but not in the + first position) and they can be terminated with the various numeric + type characters (!,@,#,%,&,~) or the string type character ($). + + + 4.c. Numerical Constants + + + Numerical constants may begin with a digit 0-9 (decimal), with + the "&H" or "&h" (hexadecimal) or the "&o" or "&O" (octal). + Numerical constants may include 'E' or 'e' followed by an + exponent number to denote exponential notation. Numerical + constants may also be terminated by the various numeric type + characters (!,@,#,%,&,~). + + + 4.d. Command-Line Execution + + + A filename can be specified on the command line and will be + loaded and executed immediately, so that the command line + + bwBASIC prog.bas + + will load and execute "prog.bas". If a program is executed + from the command line, control is returned to the operating + system when the program terminates. + + + 4.e. Program Storage + + + All programs are stored as ASCII text files. + + + 4.f. TRUE and FALSE + + + TRUE is defined as -1 and FALSE is defined as 0 in the default + distribution of bwBASIC. Alhtough these definitions can be changed + by those compiling bwBASIC (see file bwBASIC.h), any other values + are not supported. + + + 4.g. Assignments + + + Assignment must be made to variables. This differs from some + implementations of BASIC where assignment can be made to a + function. Implication: "INSTR( 3, x$, y$ ) = z$" will not + work under bwBASIC. The command "MID$(X$,...) = ..." is + implemented and should be used instead. + + Some BASIC dialects allow the multiple variable assignments, + such as: + 100 LET A = B = C = 0 + In bwBASIC, only the first '=' is considered an assignment. + All other '=' are considered comparison operators. To resolve + this issue, use commas to seperate the variables, such as: + 100 LET A, B, C = 0 + If these statements are only used to initialize the variable + values, then they may not needed in bwBASIC, since all numeric + variables are initialized to zero (0) and all string variables + are initialized to the empty string (""). + + + 4.h. Operators and Precedence + + + The available operators are determined by the OPTION VERSION + setting. bwBASIC recognizes many operators, with their level of + precedence fixed. The precedence levels chosen for the various + operators in bwBASIC were selected to be compatible with many + dialects of BASIC. If your application requires a specific order + of evaluation, then use parentheses. + + The collating sequence (ASCII, EBCDIC, and so on) is determined + by the C compiler. As a consequenece, the results of string + comparisons may vary. A simple check for collating sequence is + shown in the following example: + + 100 REM Purpose: Verify collating sequence (sort order) + 110 REM Author: Howard Wulf, AF5NE + 120 REM Date: 2015-11-28 + 130 REM + 200 IF "1" < "A" THEN 300 + 210 PRINT "EBCDIC" + 220 GOTO 999 + 300 PRINT "ASCII" + 999 END + + + 4.i. Numerical Precision (NOT) + + + bwBASIC utilizes numbers with only one level of precision. + All numbers are internally represented using a C double. + + The various numeric type suffix characters (!,@,#,%,&,~), + just like the string type suffix character ($), are part + of the variable name. + + This version also supports type declarations, such as: + 100 DIM X AS INTEGER + 110 FUNCTION ABC( X AS INTEGER ) AS INTEGER + 120 LET ABC = X * 2 + 130 END FUNCTION + + For each type character there is an equivalent type declaration. + Type Equivalent + Char declaration + ==== =========== + $ STRING + # DOUBLE + ! SINGLE + @ CURRENCY + & LONG + % INTEGER + ~ BYTE + + However, combining both a type suffix character and a type + declaration in the same statement is not supported. + 100 DIM A$ AS INTEGER ' this is not supported + + The type of a variable is used to range-check the values. + This allows many programs to run correctly, but does not + handle all possible cases. The current implementation is not + complete for all possible uses of numeric type declarations. + + In the current version, the type of numeric values is used + to select the appropriate operation. As a consequence, + integer division is used when dividing two integer values. + The MOD and \ operators use the rounded integer values of + their parameters and return a rounded integer result. + + Within an expression, the result of an operation is promoted + to the greater of: + the type of the left parameter, + the type of the right parameter, and + the type required to hold the result. + + In bwBASIC, numeric constants are DOUBLE by default. If you + wish to coerce a numeric constant, then add the appropriate + numeric type character immediately after the numeric digits. + Many BASIC dialects that allow numeric constants to have a + numeric type character adopt this convention. + + + 4.j. OPTION VERSION and so on + + + OPTION commands change how a BASIC program is parsed. All OPTION commands + should be in "profile.bas" so they are effective when a BASIC program + is loaded. The first OPTION command should be OPTION VERSION to select a + specific BASIC dialect. Additional OPTION commands fine-tune the available + commands, functions, operators, punctuation characters and so on to support + programs written in many different BASIC dialects. All other OPTION commands + must follow the OPTION VERSION command. Conflicting and pathological OPTION + combinations are not supported. + + The OPTION VERSION command selects a specific BASIC dialect. + OPTION VERSION "BYWATER" ' Bywater BASIC 3 + OPTION VERSION "BYWATER-2" ' Bywater BASIC 2 + OPTION VERSION "CALL/360" ' SBC CALL/360 Mainframe BASIC + OPTION VERSION "CBASIC-II" ' CBASIC-II for CP/M + OPTION VERSION "DARTMOUTH" ' Dartmouth DTSS BASIC + OPTION VERSION "ECMA-55" ' ANSI Minimal BASIC + OPTION VERSION "ECMA-116" ' ANSI Full BASIC + OPTION VERSION "GCOS" ' GE 600 Mainframe BASIC + OPTION VERSION "HAARDT" ' bas 2.4 by Michael Haardt + OPTION VERSION "HANDBOOK1" ' The BASIC Handbook, 1st Edition + OPTION VERSION "HANDBOOK2" ' The BASIC Handbook, 2nd Edition + OPTION VERSION "HEATH" ' Heath Benton Harbor BASIC + OPTION VERSION "MARK-I" ' GE 265 Mainframe BASIC + OPTION VERSION "MARK-II" ' GE 435 Mainframe BASIC + OPTION VERSION "MBASIC" ' Microsoft BASIC-80 for Xenix + OPTION VERSION "PDP-8" ' DEC PDP-8 BASIC + OPTION VERSION "PDP-11" ' DEC PDP-11 BASIC + OPTION VERSION "RBASIC" ' Micronics RBASIC for 6809 FLEX + OPTION VERSION "RSTS-11" ' DEC RSTS-11 BASIC-PLUS + OPTION VERSION "SYSTEM/360" ' IBM System/360 Mainframe BASIC + OPTION VERSION "SYSTEM/370" ' IBM System/370 Mainframe BASIC + OPTION VERSION "TRS-80" ' TRS-80 Model I/III/4 LBASIC + OPTION VERSION "VINTAGE" ' Vintage BASIC 1.0.1 + OPTION VERSION "XBASIC" ' TSC XBASIC for 6800 FLEX + + For example, MOD is a function in OPTION VERSION "ECMA-116", + MOD is an operator in OPTION VERSION "MBASIC", and + MOD is a valid variable name in OPTION VERSION "CALL/360". + + The OPTION VERSION command also sets the following OPTION commands: + OPTION STRICT ON | OFF + OPTION ANGLE DEGREES | RADIANS | GRADIANS + OPTION BUGS ON | OFF + OPTION LABELS ON | OFF + OPTION COMPARE BINARY | DATABASE | TEXT + OPTION BASE integer + OPTION RECLEN integer + OPTION COVERAGE ON | OFF + OPTION TRACE ON | OFF + OPTION ERROR GOTO | GOSUB + OPTION DATE "format" + OPTION TIME "format" + OPTION PUNCT COMMENT "char" + OPTION PUNCT STATEMENT "char" + OPTION PUNCT PRINT "char" + OPTION PUNCT IMAGE "char" + OPTION PUNCT INPUT "char" + OPTION USING DIGIT "char" + OPTION USING COMMA "char" + OPTION USING PERIOD "char" + OPTION USING PLUS "char" + OPTION USING MINUS "char" + OPTION USING EXRAD "char" + OPTION USING DOLLAR "char" + OPTION USING FILLER "char" + OPTION USING LITERAL "char" + OPTION USING FIRST "char" + OPTION USING ALL "char" + OPTION USING LENGTH "char" + OPTION PUNCT QUOTE "char" + OPTION PUNCT STRING "char" + OPTION PUNCT DOUBLE "char" + OPTION PUNCT SINGLE "char" + OPTION PUNCT CURRENCY "char" + OPTION PUNCT LONG "char" + OPTION PUNCT INTEGER "char" + OPTION PUNCT BYTE "char" + OPTION PUNCT LPAREN "char" + OPTION PUNCT RPAREN "char" + OPTION PUNCT FILENUM "char" + OPTION PUNCT AT "char" + + The commands, functions, operators and settings for each BASIC dialect + is documented in the text files in the DOCS directory. + + OPTION DISABLE COMMAND + Disable a specific command. + + OPTION DISABLE FUNCTION + Disable a specific function. + + OPTION DISABLE OPERATOR + Disable a specific operator. + + OPTION ENABLE COMMAND + Enable a specific command. + + OPTION ENABLE FUNCTION + Enable a specific function. + + OPTION ENABLE OPERATOR + Enable a specific operator. + + OPTION ERROR GOSUB + The program will GOSUB to the error handler. + The error handler exits with the RETURN command. + + OPTION ERROR GOTO + The program will GOTO to the error handler. + The error handler exits with the RESUME command. + + OPTION LABELS OFF + Disables textual labels. + + OPTION LABELS ON + Enables textual labels. + + Regardless of the OPTION LABELS setting, statements of the form + IF x THEN label + are not allowed, instead use the form + IF x THEN GOTO label + The reason for this rule is because + IF x THEN y + is considered to be the same as + IF x THEN + y + END IF + where "y" is a command, function, or subroutine. Many BASIC dialects + that allow textual labels adopt this convention. + + OPTION ROUND controls how floating point values are converted to + whole number values. OPTION ROUNG MATH rounds toward the nearest + whole number, with halves rounding up to the next larger whole number, + as commonly expected by many scientific applications. OPTION ROUND + BANK rounds halves to the even whole numbers, as commonly expected + by many financial applications. OPTION ROUND TRUNCATE truncates to + the next smaller whole number, as commonly expected by many + applications written for an integer BASIC. The selected rounding + method is used whenever a whole number is required, including: + a) selection value for ON ... GOTO and ON ... GOSUB + b) any function parameter requiring a whole number + c) array subscripts and dimensions + d) string positions and lengths + e) CINT() and similar + The OPTION ROUND command does not change the results of INT() or FIX(). + The default rounding method is OPTION ROUND BANK. + + A comparison of the different OPTION ROUND settings upon the results of CINT() + + BANK MATH TRUNCATE + X int(X) fix(X) cint(X) cint(X) cint(X) + -2.0 -2 -2 -2 -2 -2 + -1.6 -2 -1 -2 -2 -1 + -1.5 -2 -1 -2 -2 -1 + -1.4 -2 -1 -1 -1 -1 + -1.0 -1 -1 -1 -1 -1 + -0.6 -1 0 -1 -1 0 + -0.5 -1 0 0 -1 0 + -0.4 -1 0 0 0 0 + 0.0 0 0 0 0 0 + 0.4 0 0 0 0 0 + 0.5 0 0 0 1 0 + 0.6 0 0 1 1 0 + 1.0 1 1 1 1 1 + 1.4 1 1 1 1 1 + 1.5 1 1 2 2 1 + 1.6 1 1 2 2 1 + 2.0 2 2 2 2 2 + + The OPTION BUGS command determines the behavior of a number of BASIC keywords. + BASIC programs which rely on these behaviors are non-portable and non-standard. + I have considered several different names for this command, but have not yet + thought of a better short name. + + OPTION BUGS ON disables the ANSI/ECMA/ISO standard behavior: + + FOR ... ' values are evaluated left-to-right + GOTO X OF ... ' an invalid value for X falls thru without ERROR + GOSUB X OF ... ' an invalid value for X falls thru without ERROR + ON X GOTO ... ' an invalid value for X falls thru without ERROR + ON X GOSUB ... ' an invalid value for X falls thru without ERROR + X = VAL("X") ' returns zero without ERROR + INPUT X ' empty string returns zero without ERROR + INPUT X$ ' empty string returns "" without ERROR + INPUT X$ ' allows unquoted character strings + variable names ' period and underscore are allowed + variable types ' the type characters #!@&% are allowed + PRINT "a" X ' string concatenation is implied + 1.2% is 1 ' the type characters #!@&% are allowed + 1D1 is ERROR ' 'D' is not allowed as exponent seperator + + OPTION BUGS OFF enables the ANSI/ECMA/ISO standard behavior: + + FOR ... ' values are evaluated according to standard + GOTO X OF ... ' an invalid value for X is an ERROR + GOSUB X OF ... ' an invalid value for X is an ERROR + ON X GOTO ... ' an invalid value for X is an ERROR + ON X GOSUB ... ' an invalid value for X is an ERROR + X = VAL("X") ' raises an illegal function call (ERROR 5) + INPUT X ' empty string retries input + INPUT X$ ' empty string retries input + INPUT X$ ' unquoted character strings retries input + variable names ' period and underscore are not allowed + variable types ' the type characters #!@&% are not allowed + PRINT "a";X ' string concatenation is not implied + 1.2% is ERROR ' the type characters #!@&% are not allowed + 1D1 is ERROR ' 'D' is not allowed as exponent seperator + + + 4.k. ERROR handling + + + bwBASIC implements a simplified error handling strategy. + Errors are seperated into two categories: + + a) Fatal errors. These errors include: + - Unknown command + - FOR without NEXT + - NEXT without FOR + - WHILE without WEND + - WEND without WHILE + - and so on. + The program is scanned prior to running and if any of these errors is + detected, then the program is not allowed to run. If these errors + occur as the result of a DELETE or MERGE in a running program, then the + program is terminated. + + b) Non-fatal errors. If an error handler exists, then it is executed, + otherwise the default behaivor is performed. The correct action to + take in an error handler depends upon the specific application. + - Overflow (ERROR 6) + - the default behavior is to display a warning message. + - Division by zero (ERROR 11) + - the default behavior is to display a warning message. + - String too long (ERROR 15) + - the default behavior is to display a warning message. + - All other non-fatal errors + - the default behavior is to terminate the program. + + bwBASIC 2.61 used ON ERROR GOSUB for error trapping. + This version defaults to ON ERROR GOTO instead. + + + 4.l. Implementation rules for functions and commands + + + In many BASIC dialects, keywords are seperated into three distinct groups: + Commands, Statements, and Functions. In bwBASIC, keywords are seperated + into only two groups: Commands and Functions. A keyword documented as a + Command or Statament in a specific BASIC dialect may have been implemented + in bwBASIC as a Function. This is merely an implementation decision, which + may change in the future. Each keyword should only be used as described in + the reference document. The following rules are considered when deciding + whether a BASIC keyword is implemented as a command or a function: + + a) If the keyword requires significant parsing, + then it is implemented as a command. An example is "PRINT". + + b) If the keyword requires access to variables BYREF, + then it is implemented as a command. An example is "SWAP". + + c) If the keyword changes the flow of control, + then it is implemented as a command. An example is "GOTO". + + d) A function may be used as though it were a command, + but a command cannot be used as though it were a function. + + e) The BASIC program can redefine a function, + but the BASIC program cannot redefine a command. + + f) The BASIC program can overload a function, + but the BASIC program cannot overload a command. + + g) Other than semantics, there is no practical difference + between a BASIC function and a BASIC subroutine. The + return value of a BASIC subroutine, when called as a + function, is zero. Calling a BASIC function as if it + were a subroutine simply discards the return value. + + These rules were chosen to maintain compatibility with + many BASIC dialects. + + An example of the results of the above rules is "OUT". + Since "OUT" is implemented as a function, you may: + a) call it as a subroutine like this: + 100 OUT X, Y + b) call it as a function like this: + 100 LET N = OUT( X, Y ) ' N = 0 + c) redefine it as a subroutine like this: + SUB OUT( X, Y ) + REM ... + END SUB + d) redefine it as a function like this: + FUNCTION OUT( X, Y ) + REM ... + END FUNCTION + e) overload it using subroutines like these: + SUB OUT( X, Y ) + REM ... + END SUB + SUB OUT( X, A$ ) + REM ... + END SUB + SUB OUT( A$, X ) + REM ... + END SUB + SUB OUT( A$, B$ ) + REM ... + END SUB + f) overload it using functions like these: + FUNCTION OUT( X, Y ) + REM ... + END FUNCTION + FUNCTION OUT( X, A$ ) + REM ... + END FUNCTION + FUNCTION OUT( A$, X ) + REM ... + END FUNCTION + FUNCTION OUT( A$, B$ ) + REM ... + END FUNCTION + + + 4.m. Reference documentation + + + bwBASIC is preconfigured to support a number of specific BASIC dialects which were + implemented using the following references, however bwBASIC does not attempt to be + bug-level compatible and does not implement non-portable design choices. A manual + for each dialect is in the DOCS directory to make you aware that a specific keyword + is implemented, however you should refer to the reference document for a proper + understanding of how to use each keyword. There are many other good books which + describe these BASIC dialects in detail. + + OPTION VERSION "BYWATER" ' Bywater BASIC 3 + MANUAL: + BYWATER.TXT + + OPTION VERSION "BYWATER-2" ' Bywater BASIC 2 + MANUAL: + BYWATER-2.TXT + NOT IMPLEMENTED: + DO NUM, DO UNNUM + NOTES: + SUB MAIN is not automatically called. + CALL requires parentheses around the function/subroutine parameters, + so instead of + CALL abc 1, 2, 3 + use + CALL abc( 1, 2, 3 ) + + OPTION VERSION "CALL/360" ' SBC CALL/360 Mainframe BASIC + MANUAL: + CALL-360.TXT + NOT IMPLEMENTED: + MAT PRINT USING. + NOTES: + The APPENDIXES are implementation specific and are not supported. + + OPTION VERSION "CBASIC-II" ' CBASIC-II for CP/M + MANUAL: + CBASIC-II.TXT + ADDITIONAL INFORMATION: + "CBASIC Language Reference Manual, 2nd Edition" + by Diigital Research + (c) 1982, Diigital Research + http://bitsavers.trailing-edge.com/pdf/digitalResearch/cb80/ + CBASIC_Language_Reference_Manual_Oct82.pdf + NOT IMPLEMENTED: + CONSTAT%, CONCHAR% and compiler directives. + NOTES: + The APPENDIXES are implementation specific and are not supported. + The %INCLUDE directive is implemented, but only supports literal + unquoted filesnames without drive or directory, such as: + %INCLUDE LIBRARY.BAS + Note that the %INCLUDE directive is executed as a file is being loaded, + and as a result the %INCLUDE does not appear in the resulting listing. + Machine language functions and commands are not supported. + The parsing of command line parameters is implementation defined. + The specification of an array in a COMMON statement is the same as + the specification in a DIM statement. + The SIZE() function assumes 1024 bytes and does not support wild-cards; + if the file does not exist then SIZE() returns zero, otherwise SIZE() + returns the number of 1024 bytes blocks required to contain the file; + an existing file of zero bytes returns a value of 1. + + OPTION VERSION "DARTMOUTH" ' Dartmouth DTSS BASIC + MANUAL: + DARTMOUTH.TXT + NOTES: + The APPENDICES are implementation specific and are not supported. + Sections 4.2 and 4.3 are implementation specific and are not supported. + Lines containing data to be READ must have a line number and a DATA command. + NOT IMPLEMENTED: + Card punch codes are not supported, use a comma or semicolon instead. + + OPTION VERSION "ECMA-55" ' ANSI Minimal BASIC + MANUAL: + ECMA-55.TXT + NOTES: + The APPENDICES are implementation specific and are not supported. + DIM is an executed statement in bwBASIC. + This is a design decision to support the following example. + 100 INPUT "How many?"; N + 110 DIM A$(N) + + OPTION VERSION "ECMA-116" ' ANSI Full BASIC + MANUAL: + ECMA-116.TXT + NOT IMPLEMENTED: + Graphic commands, chapters 11 thru 15. + NOTES: + The APPENDICES are implementation specific and are not supported. + WORK-IN-PROGRESS. + + OPTION VERSION "GCOS" ' GE 600 Mainframe BASIC + MANUAL: + GCOS.TXT + NOT IMPLEMENTED: + HPS, LIN, RESTORE*, RESTORE$, VPS and binary files. + NOTES: + The APPENDIXES are implementation specific and are not supported. + Local variables in a multiline DEF are declared using DIM. + Line numbers are not written to, nor read from, data files. + FILES does not support passwords. + Literal values for file names are not supported, use string values instead. + This is a design decision to support the following: + 100 INPUT "Which files?"; A$, B$, C$ + 110 FILES A$, B$, C$ + + OPTION VERSION "HAARDT" ' bas 2.4 by Michael Haardt + MANUAL: + HAARDT.TXT + NOT IMPLEMENTED: + BBC syntax, use ANSI syntax instead. + ON ERROR statement(s) is not supported, use ON ERROR GOTO instead. + ON ERROR OFF, use ON ERROR GOTO 0 instead. + MAT REDIM, OPTION RUN, OPTION STOP, TRUNCATE, UNNUM and XREF. + DEC$(X,A$), ENVIRON$(X), FIND$(A$[,X]) and INSTR(A$,B$,X,Y). + NOTES: + POS and TAB are 1-based instead of 0-based. + ON ERROR GOTO 0 does not cause any error to occur, instead + ON ERROR GOTO 0 removes the current error handler and clears + ERL, ERR and ERROR$. + + OPTION VERSION "HANDBOOK1" ' The BASIC Handbook, 1st Edition + MANUAL: + HANDBOOK1.TXT + NOT IMPLEMENTED: + Abbreviated commands (such as A.) and graphic commands. + NOTES: + The APPENDICES are implementation specific and are not supported. + The ERR function returns different values. + + OPTION VERSION "HANDBOOK2" ' The BASIC Handbook, 2nd Edition + MANUAL: + HANDBOOK2.TXT + NOT IMPLEMENTED: + Abbreviated commands (such as A.) and graphic commands. + NOTES: + The APPENDICES are implementation specific and are not supported. + The ERR function returns different values. + + OPTION VERSION "HEATH" ' Heath Benton Harbor BASIC + NOT IMPLEMENTED: + FREEZE, UNFREEZE, LOCK, UNLOCK, STEP + NOTES: + The APPENDICES are implementation specific and are not supported. + PRINT #-1 is sent to the printer. + INPUT #-1 is an ERROR. + + OPTION VERSION "MARK-I" ' GE 265 Mainframe BASIC + MANUAL: + MARK-I.TXT + ADDITIONAL REFERENCE: + "Time-Sharing Service BASIC LANGUAGE EXTENSIONS Reference Manual" + by Time-Sharing Service, Information Service Department, General Electric + (c) 1968, General Electric Company and Trustees of Dartmouth College + http://www.bitsavers.org/pdf/ge/MarkI_Timesharing/ + 802207A_Time-SharingServiceBASICLanguageExtensionsReferenceManual_Feb1968.pdf + NOTES: + The APPENDIXES are implementation specific and are not supported. + NOT IMPLEMENTED: + A series of variables seperated by equal signs is not supported, + use a series of variables seperated by commas instead. + Literal values for file names are not supported, use string values instead. + This is a design decision to support the following: + 100 INPUT "Which files?"; A$, B$, C$ + 110 FILES A$, B$, C$ + CALL, to execute another compiled program, is not supported, use SHELL instead. + + OPTION VERSION "MARK-II" ' GE 435 Mainframe BASIC + MANUAL: + MARK-II.TXT + ADDITIONAL INFORMATION: + "Basic Software Library" (Volumes 1 to 8) + by R. W. Brown + (c) 1977, Scientific Research Inst. + NOT IMPLEMENTED: + HPS, LIN, RESTORE*, RESTORE$, VPS and binary files. + NOTES: + The APPENDIXES are implementation specific and are not supported. + Local variables in a multiline DEF are declared using DIM. + Line numbers are not written to, nor read from, data files. + Literal values for file names are not supported, use string values instead. + This is a design decision to support the following: + 100 INPUT "Which files?"; A$, B$, C$ + 110 FILES A$, B$, C$ + FILES does not support passwords. + + OPTION VERSION "MBASIC" ' Microsoft BASIC-80 for Xenix + MANUAL: + MBASIC.TXT + NOTES: + The APPENDICES are implementation specific and are not supported. + The ERR function returns different values. + Specifying "D" in the exponent is not supported, instead use "E". + + OPTION VERSION "PDP-8" ' DEC PDP-8 BASIC + MANUAL: + PDP-8.TXT + NOT IMPLEMENTED: + NO RUBOUTS, RUBOUTS + NOTES: + The APPENDICES are implementation specific and are not supported. + + OPTION VERSION "PDP-11" ' DEC PDP-11 BASIC + MANUAL: + PDP-11.TXT + NOTES: + The APPENDICES are implementation specific and are not supported. + + OPTION VERSION "RBASIC" ' Micronics RBASIC for 6809 FLEX + MANUAL: + RBASIC.TXT + NOT IMPLEMENTED: + "+" command, COMPILE, CVT$, CVTF$, CVT$%, CVT$F + NOTES: + The APPENDICES are implementation specific and are not supported. + The ERR function returns different values. + + OPTION VERSION "RSTS-11" ' DEC RSTS-11 BASIC-PLUS + MANUAL: + RSTS-11.TXT + ADDITIONAL INFORMATION: + "BASIC-PLUS Language Manual : for use with RSTS-11 (PDP-11 Resource Time-Sharing System)" + by Digital Equipment Corporation + (c) 1972, Digital Equipment Corporation + http://bitsavers.trailing-edge.com/pdf/dec/pdp11/rsts/V04/ + DEC-11-ORBPA-A-D_BASIC-PLUS_LangMan_Oct72.pdf + ADDITIONAL INFORMATION: + "PDP-11 : BASIC-PLUS Language Manual" + by Digital Equipment Corporation + (c) 1975, Digital Equipment Corporation + http://bitsavers.trailing-edge.com/pdf/dec/pdp11/rsts/V06/ + DEC-11-ORBPB-A-D_BASIC-PLUS_LangMan_Jul75.pdf + NOT IMPLEMENTED: + HELLO, RENAME, REPLACE, COMPILE, LENGTH, TAPE, KEY, ASSIGN, DEASSIGN. + FOR ... WHILE, FOR ... UNTIL, statement modifiers. + NOTES: + The APPENDIXES are implementation specific and are not supported. + The ERR function returns different values. + The statemnet NAME ... AS does not support the specifier. + + OPTION VERSION "SYSTEM/360" ' IBM System/360 Mainframe BASIC + MANUAL: + SYSTEM-360.TXT + ADDITIONAL INFORMATION: + "IBM System/360 0S(TS0) ITF:BASIC Terminal User's Guide" + by International Business Machines Corporation + (c) 1971, International Business Machines Corporation + http://bitsavers.org/pdf/ibm/360/os/tso/ + SC28-6840-0_TSO_ITF_BASIC_Terminal_UG_Apr71.pdf + NOT IMPLEMENTED: + MAT PRINT USING. + NOTES: + The APPENDIXES are implementation specific and are not supported. + + OPTION VERSION "SYSTEM/370" ' IBM System/370 Mainframe BASIC + MANUAL: + SYSTEM-370.TXT + NOT IMPLEMENTED: + MAT PRINT USING. + NOTES: + The APPENDIXES are implementation specific and are not supported. + + OPTION VERSION "TRS-80" ' TRS-80 Model I/III/4 LBASIC + MANUAL: + TRS-80.TXT + NOT IMPLEMENTED: + CMD, SET EOF, cassette I/O. + NOTES: + The APPENDICES are implementation specific and are not supported. + The ERR function returns different values. + For the TRS-80 Model I use "WIDTH 16,64" in "profile.bas". + For the TRS-80 Model III use "WIDTH 16,64" in "profile.bas". + For the TRS-80 Model 4 use "WIDTH 24,80" in "profile.bas". + bwBASIC requires a space around all keywords, so the LINEINPUT + command must be written as LINE INPUT, and so on. + PRINT #-1 is sent to the printer. + INPUT #-1 is an ERROR. + + OPTION VERSION "VINTAGE" ' Vintage BASIC 1.0.1 + MANUAL: + VINTAGE.TXT + NOTES: + The APPENDICES are implementation specific and are not supported. + + OPTION VERSION "XBASIC" ' TSC XBASIC for 6800 FLEX + MANUAL: + XBASIC.TXT + NOT IMPLEMENTED: + "+" command, COMPILE, CVT$, CVTF$, CVT$%, CVT$F + NOTES: + The APPENDICES are implementation specific and are not supported. + The ERR function returns different values. + + +5. PREDEFINED VARIABLES - no longer exist + + + BWB.EDITOR$ + BWB.FILES$ + BWB.PROMPT$ + BWB.IMPLEMENTATION$ + + These preset variables no longer exist in bwBASIC. They have + been replaced with OPTION EDIT, OPTION FILES and OPTION PROMPT + commands. + + The commands EDIT and FILES are pseudo-commands that launch + shell programs set by OPTION EDIT and OPTION FILES commands, + respectively. The default values for these commands can + be changed in bwBASIC.h (DEF_EDITOR and DEF_FILES), and they + can be changed on the fly by the user. It is expected that + the user will add the appropriate commands to "profile.bas" + for their specific implementation; OPTION FILES "ls -l" on Unix + systems and OPTION FILES "dir" on DOS systems. + + The command OPTION PROMPT can be used to set the prompt + string for bwBASIC. Again, it is suggested that a user- + selected prompt can be set up in a "profile.bas" to be + initialized each time bwBASIC starts. Note that special + characters can be added to the prompt string, e.g., + + OPTION PROMPT "Ok"+CHR$(10) + + will give an "Ok" prompt followed by a linefeed. + + In previous versions, the preset variable BWB.IMPLEMENTATION$ + would return "TTY" (IMP_IDSTRING) for the bwx_tty implementation. + In previous versions of bwBASIC, the existance of the keywords CLS, + COLOR and LOCATE were determined at compile and BWB.IMPLEMENTATION$ + was used at runtime to determine whether these keywords existed. + In the current version, these keywords always exist and are now + controlled at runtime using the OPTION TERMINAL commands. With + OPTION TERMINAL NONE these keywords output nothing. + + +6. UNIMPLEMENTED COMMANDS AND FUNCTIONS, and AGENDA FOR DEVELOPMENT + + + There are some items not implemented that have been so long + a part of some BASIC dialects that their absence may seem surprising. + In each case, though, their implementation would require + operating-system-specific functions or terminal-specific functions + that cannot be universally provided. Some specific examples are + detailed below. + + + INP reads a value from a hardware port. In the current version, + using INP() will generate ERROR 73. It is expected that you will + provide a suitable implementation for your specific application. + For example: + FUNCTION INP( X ) + REM Return whatever value your application requires + INP = 0 + END FUNCTION + + + OUT writes a value to a hardware port. In the current version, + using OUT() will generate ERROR 73. It is expected that you will + provide a suitable implementation for your specific application. + For example: + SUB OUT( X, Y ) + REM do whatever your application requires + END SUB + + + PEEK reads a value from a memory location. In the current version, + using PEEK() will generate ERROR 73. It is expected that you will + provide a suitable implementation for your specific application. + For example: + FUNCTION PEEK( X ) + REM Return whatever value your application requires + PEEK = 0 + END FUNCTION + + + POKE writes a value to a memory location. In the current version, + using POKE() will generate ERROR 73. It is expected that you will + provide a suitable implementation for your specific application. + For example: + SUB POKE( X, Y ) + REM do whatever your application requires + END SUB + + + WAIT reads a value from a hardware port. In the current version, + using WAIT() will generate ERROR 73. It is expected that you will + provide a suitable implementation for your specific application. + For example: + SUB WAIT( X, Y ) + REM do whatever your application requires + END SUB + SUB WAIT( X, Y, Z ) + REM do whatever your application requires + END SUB + + + USR executes a machine code routine. In the current version, + using USR() will generate ERROR 73. It is expected that you will + provide a suitable implementation for your specific application. + For example: + FUNCTION USR( ... ) + REM Return whatever value your application requires + USR = 0 + END FUNCTION + + + VARPTR reads a value from a memory location. In the current version, + using VARPTR() will generate ERROR 73. It is expected that you will + provide a suitable implementation for your specific application. + For example: + FUNCTION VARPTR( ... ) + REM Return whatever value your application requires + VARPTR = 0 + END FUNCTION + + + There are other commands, functions, and implementation details + that I am working on, and which are on the agenda list for future + versions of bwBASIC. These agenda include: + + + PARACT i.e., the ability to execute PARallel ACTions. This + is described in ANSI BASIC, although I have not seen it + implemented before. It will offer a rough, non-preemptive + form of multitasking within the scope of a BASIC program. + Programmers will note that the global My pointer provides + one possible hook mechanism for PARACT in bwBASIC. In the + interim, you might use the "ON TIMER" command to implement + a simple multitasking BASIC program. + + + XMEM PC-type computers usually are able to use extended + memory. If we could use extended memory for program + lines, variables, and function defitions, we could + write much longer programs. This would entail, + however, a fairly serious rewriting of the program + to utilize memory handles for these storage features + instead of direct memory pointers. In the interim, + you might use a "DOS Extender" which hooks calloc() + and free() to enable transparent access to EMS or XMS + memory. + + + Windows The addition of memory handles in addition to the + non-preemptive execution of program lines (in a + crude form, already present) will make it possible + to develop implementations for Windows and perhaps + for other graphical user interfaces. But what form + should this take? I have in mind presently a BASIC + that would run in the background, appearing only + as an icon in the GUI space, with pop-up editors + and output windows. Thus, the interpreted language + would serve a purpose something like 'cron' (a task + scheduler) under Unix systems. You may have some + reflections that would help me in this. + + + Graphics Here we face fairly critical differences in different + styles and implementations of graphics, e.g., between + GWBASIC, ANSI BASIC, VisualBASIC, etc. But it's + possible that Graphics commands and functions could + be added. These would all be OPTION VERSION specific. + In the interim, you might consider using ReGIS or Tektronix + graphics (ESC codes) with xterm. + + + The ANSI Standard for full BASIC does not specify which particular + commands or functions must be implemented, and in fact the standard + is very robust. Perhaps no implementation of BASIC would ever + include all of the items, but some ANSI commands and functions which + remain unimplemented are: + + ACCESS + AREA + ARRAY + ASK + BSTR + BVAL + CELLS + CLIP + COLLATE + CONNECT + DATUM + DEBUG + DECLARE + DEVICE + DISCONNECT + DISPLAY + DOT + DRAW + ERASE + EVENT + EXCEPTION + GRAPH + HANDLER + IMAGE + KEY + LINES + MIX + MULTIPOINT + OUTIN + OUTPUT + PARACT + PICTURE + PIXEL + PLOT + POINTS + RECEIVE + RENUMBER + REWRITE + ROTATE + SEIZE + SEND + SHIFT + TIMEOUT + TRACE + TRANSFORM + VIEWPORT + WAIT + VIEWPORT + ZONEWIDTH + + +7. THE STORY OF Bywater BASIC + + + This program was originally begun in 1982 by my grandmother, Mrs. + Verda Spell of Beaumont, TX. She was writing the program using + an ANSI C compiler on an Osborne I CP/M computer and although my + grandfather (Lockwood Spell) had bought an IBM PC with 256k of + RAM my grandmother would not use it, paraphrasing George Herbert + to the effect that "He who cannot in 64k program, cannot in 512k." + She had used Microsoft BASIC and although she had nothing against + it she said repeatedly that she didn't understand why Digital + Research didn't "sue the socks off of Microsoft" for version 1.0 + of MSDOS and so I reckon that she hoped to undercut Microsoft's + entire market and eventually build a new software empire on + the North End of Beaumont. Her programming efforts were cut + tragically short when she was thrown from a Beaumont to Port + Arthur commuter train in the summer of 1986. I found the source + code to bwBASIC on a single-density Osborne diskette in her knitting + bag and eventually managed to have it all copied over to a PC + diskette. I have revised it slightly prior to this release. You + should know, though, that I myself am an historian, not a programmer. + + +8. COMMUNICATIONS: + + + email: tcamp@delphi.com + + +9. EXPANDED REFERENCE FOR COMMANDS, FUNCTIONS AND OPERATORS + + + bwBASIC provides a simple "HELP" command to refresh your memory + regarding the appropriate syntax for a specific command or function. + In the DOCS directory are text files which provide brief descriptions + of every intrinsic command, function and operator available in BASIC + dialect available in bwBASIC; these files are not intented to be an + authoritative or exhaustive reference. Refer to the reference document + for each dialect for details regarding each keyword. + + +THE END diff --git a/Junk/bwbasic.png b/Junk/bwbasic.png new file mode 100644 index 0000000..9745723 Binary files /dev/null and b/Junk/bwbasic.png differ diff --git a/bwbtest/HB2X/cms.bas.old b/Junk/cms.bas similarity index 72% rename from bwbtest/HB2X/cms.bas.old rename to Junk/cms.bas index 0cd6b1e..2dd98f3 100644 --- a/bwbtest/HB2X/cms.bas.old +++ b/Junk/cms.bas @@ -18,14 +18,17 @@ rem L$ The input line read from "bwbasic.h" rem M$ The next line from "bwbasic.h" when L$ does not contain a semicolon rem X The location of special characters in L$ rem H$ The hexadecimal value of N +rem T Read count rem ------------------------------------------------------------------------------- rem let N = 0 let E$ = "extern " let E = len( E$ ) open "bwbasic.h" for input as #1 -open "cms.h" for output as #2 +open "cms.txt" for output as #2 +T = 0 while not eof( #1 ) + T = T + 1 line input #1, L$ L$ = trim$( L$ ) if left$( L$, E ) = E$ then @@ -63,10 +66,38 @@ while not eof( #1 ) while left$( L$, 1 ) = "*" L$ = trim$(mid$( L$, 2 )) wend - if L$ = "main" then + if L$ = "main" or L$ = "putenv" or L$="sleep" then ' ignore magic function name else ' pad for alignment + REM L$ = L$ + space$(32) + REM L$ = left$( L$, 32 ) + REM H$ = "00000" + hex$(N) + REM H$ = right$( H$, 5 ) + REM print #2, "#define ";L$;" X";H$ + REM N = N + 1 + if len( L$ ) > 0 then + print #2, L$ + end if + end if + end if +wend +print "Lines read from bwbasic.h :"; T +close #2 +close #1 +REM sort before assigning value +print "Sorting" +if shell( "sort < cms.txt > cms.out" ) = 0 then + N = 0 + open "cms.out" for input as #1 + open "cms.h" for output as #2 + T = 0 + while not eof(#1) + T = T + 1 + line input #1, L$ + L$ = trim$(L$) + if len(L$) then + ' pad for alignment L$ = L$ + space$(32) L$ = left$( L$, 32 ) H$ = "00000" + hex$(N) @@ -74,8 +105,13 @@ while not eof( #1 ) print #2, "#define ";L$;" X";H$ N = N + 1 end if - end if -wend -close #2 -close #1 + wend + print "Lines read from cms.out : "; T + close #2 + close #1 + rem Cleanup temporary files +print "Output in cms.h" +kill "cms.txt" +kill "cms.out" +end if end diff --git a/Junk/compile b/Junk/compile new file mode 100755 index 0000000..1227be2 --- /dev/null +++ b/Junk/compile @@ -0,0 +1,35 @@ +echo "12/13/2019 Ken. Works under Ubuntu Linux 18.04, 19.10" +echo "Ubuntu Mate 20.04 Debian 10 and Ubuntu under Windows WSL." +echo " " +rm -f bwbasic renum +echo "Compile in progress..." +gcc -ansi -o bwbasic bw*.c -lm +gcc -ansi -o renum renum.c -lm +dir -l bwbasic renum +echo " " +echo -e "Be sure you are NOT running this as root. You are ($USER).\a" +echo -e -n "Results look OK?? If yes press ENTER otherwise press Ctrl/c: \a" +read j +echo " " +echo "Copying in progress" +sudo cp bwbasic /usr/local/bin/bwbasic +sudo cp bwbasic.png /usr/share/pixmaps/bwbasic.png +sudo cp renum /usr/local/bin/renum +echo "Setting up mode and ownership to root." +sudo chmod 755 /usr/local/bin/bwbasic +sudo chown root /usr/local/bin/bwbasic +sudo chmod 755 /usr/local/bin/renum +sudo chown root /usr/local/bin/renum +echo "Copying Desktop entry and icon for bwbasic on a GUI." +echo "Entry should appear on the Desktop for $USER" +sudo cp bwbasic.desktop /home/$USER/Desktop/. +echo "Setting up mode and ownership for desktop entry for $USER" +sudo chmod 777 /home/$USER/Desktop/bwbasic.desktop +sudo chown $USER /home/$USER/Desktop/bwbasic.desktop +echo "Copying completed" +echo " " +echo "You should now be able to run bwbasic from the command line or desktop." +echo "And use renum (renumbering tool) from the command line." +echo " " +echo -e "-- Done --\a" + diff --git a/Junk/compile.bat b/Junk/compile.bat new file mode 100644 index 0000000..38791bc --- /dev/null +++ b/Junk/compile.bat @@ -0,0 +1,51 @@ +@echo off +echo 12/13/2019 Ken. bwbasic. Works under Windows 10 using gcc 7.4.0 +echo and gcc 8.1.0 64 bit +echo Wait +echo. + +if exist *.o del *.o +if exist bwbasic.exe del bwbasic.exe +if exist renum.exe del renum.exe + +call stdcomp bwbasic.c +call stdcomp bwb_int.c +call stdcomp bwb_tbl.c +call stdcomp bwb_cmd.c +call stdcomp bwb_prn.c +call stdcomp bwb_exp.c +call stdcomp bwb_var.c +call stdcomp bwb_inp.c +call stdcomp bwb_fnc.c +call stdcomp bwb_cnd.c +call stdcomp bwb_dio.c +call stdcomp bwb_str.c +call stdcomp bwb_stc.c +call stdcomp bwx_tty.c +call stdcomp bwd_cmd.c +call stdcomp bwd_fun.c + +gcc -s -ansi -o bwbasic.exe bwb_cmd.o bwb_cnd.o bwb_dio.o bwb_exp.o bwb_fnc.o bwb_inp.o bwb_int.o bwb_prn.o bwb_stc.o bwb_str.o bwb_tbl.o bwb_var.o bwbasic.o bwd_cmd.o bwd_fun.o bwx_tty.o + +gcc -s -ansi -DMSDOS -o renum.exe renum.c + +if exist "renum.exe" ( + echo. + echo Compile suceeded for renum.exe. +) else ( + echo. + echo Compile FAILED for renum.exe. +) + +if exist "bwbasic.exe" ( + echo. + echo Compile suceeded for bwbasic.exe. +) else ( + echo. + echo Compile FAILED. Bwbasic.exe was not created. +) + +echo. +echo --Done-- +echo. +@echo on diff --git a/Junk/factorials.bas b/Junk/factorials.bas new file mode 100644 index 0000000..3f59829 --- /dev/null +++ b/Junk/factorials.bas @@ -0,0 +1,6 @@ +100 f = 1 +200 FOR i = 0 TO 16 +300 PRINT i; "! ="; f +400 f = f * (i + 1) +500 NEXT i + diff --git a/Junk/renum.c b/Junk/renum.c new file mode 100644 index 0000000..bb34a9c --- /dev/null +++ b/Junk/renum.c @@ -0,0 +1,608 @@ +/*-------------------------------------------------------------------*/ +/* renum.c -- Renumbers a BASIC program in an ASCII file. */ +/* Originally written in HP 2000 BASIC by David Lance Robinson, 1977 */ +/* Adapted to MS BASIC and translated to C 4/1995 by Jon B. Volkoff */ +/* (eidetics@cerf.net) */ +/*-------------------------------------------------------------------*/ + +#include +#include +#include + +#define MAX_LINE_LENGTH 255 +#define MAX_LINE_COUNT 1500 + +int instr(); +char *midstr1(); +char *midstr2(); +void binary_search(void); + +int f2, l2, n, x; +int sidx[MAX_LINE_COUNT][2]; +char rstr[MAX_LINE_LENGTH]; + +int main(argc, argv) + int argc; + char *argv[]; +{ + int f, d, s, p, s1, t, l, g; + int c, f1, c1, i, f8, r, l1, l3; + int v1, f6, l6, b, f9, x9, b1, p8, p9, a, d9; + char pstr[MAX_LINE_LENGTH]; + char sstr[MAX_LINE_LENGTH]; + char f9str[MAX_LINE_LENGTH]; + char s9str[MAX_LINE_LENGTH]; + char tempstr[MAX_LINE_LENGTH + 64]; + FILE *fdin; + FILE *fdout; + int skip, bp, temp, getout, disp_msg; + + f = 1; + + printf("Version 12/13/2019\n"); + + if (argc > 1) strcpy(pstr, argv[1]); + else + { + printf("Program in file? "); + fgets(pstr,MAX_LINE_LENGTH, stdin); + if (strchr(pstr, '\n') != NULL) + { + pstr[strlen(pstr)-1] = '\0'; + } + + } + if (strlen(pstr) == 0) strcpy(pstr, "0.doc"); + + fdin = fopen(pstr, "r"); + if (fdin == NULL) + { + printf("Unable to open input file\n"); + exit(1); + } + strcpy(f9str, pstr); + +#if defined(__MVS__) || defined(__CMS__) + strcpy(pstr, "dd:editfl"); +#else + strcpy(pstr, "editfl"); +#endif + + fdout = fopen(pstr, "w"); + if (fdout == NULL) + { + printf("Unable to open temporary file editfl for output\n"); + exit(1); + } + + /* Main program begins here */ + s = 0; l2 = 0; d = 0; + f2 = 10000; + printf ("PLEASE WAIT A FEW SECONDS!\n"); + while (fgets(pstr, MAX_LINE_LENGTH, fdin) != NULL) + { + pstr[strlen(pstr) - 1] = '\0'; + p = instr(pstr, " "); + if (p != 0 && p <= 5) + { + n = atoi(midstr2(pstr, 1, p)); + if (n != 0) + { + s++; + if( s < MAX_LINE_COUNT ) + { + /* OK */ + } + else + { + printf("Too many lines\n"); + exit(1); + } + sidx[s][0] = n; + s1 = s; + while (s1 >= 2) + { + s1--; + if (sidx[s1][0] < sidx[s1 + 1][0]) break; + if (sidx[s1][0] == sidx[s1 + 1][0]) + { + printf("ERROR !!! MORE THAN ONE STATEMENT FOR A "); + printf("STATEMENT NUMBER\n"); + exit(1); + } + + t = sidx[s1][0]; + sidx[s1][0] = sidx[s1 + 1][0]; + sidx[s1 + 1][0] = t; + } + } + } + } + fclose(fdin); + + strcpy(pstr, ""); + + if (s == 0) + { + printf("NO PROGRAM IS IN THE FILE!\n"); + exit(1); + } + + for (l = 1; l <= s; l++) + sidx[l][1] = sidx[l][0]; + g = 1; + disp_msg = 1; + + /*------------------------------------------------------------------------*/ + /* Find out how and what to renumber (using HP BASIC renumber parameters) */ + /* MS BASIC renumber is: RENUM (newnum) (,(oldnum) (,increment)) */ + /*------------------------------------------------------------------------*/ + + while(1) + { + if (disp_msg == 1) + { + printf("RENUMBER (-starting number (,interval (,first statement "); + printf("(,last))))\n"); + disp_msg = 0; + } + + skip = 0; + bp = 0; + printf("RENUMBER-"); + fgets(pstr,MAX_LINE_LENGTH,stdin); + p = strlen(pstr); + + if (g == 0) + { + if (strlen(pstr) == 0) break; + if (p == 0) skip = 1; + else + { + t = atoi(midstr2(pstr, 1, 1)); + if (t == 0) break; + } + } + + if (strlen(pstr) == 0) skip = 1; + + if (skip == 0) + { + c = instr(pstr, ","); + temp = 0; if (c != 0) temp = -1; + f1 = atoi(midstr2(pstr, 1, p + temp*(p - c + 1))); + if (f1 == 0) bp = 1; + if (c == 0) skip = 2; + } + + if (skip == 0 && bp == 0) + { + c1 = instr(midstr1(pstr, c + 1), ",") + c; + temp = 0; if (c1 != c) temp = -1; + i = atoi(midstr2(pstr, c + 1, p + temp*(p - c1 + 1) - c)); + if (i == 0) bp = 1; + if (c1 == c) skip = 3; + } + + if (skip == 0 && bp == 0) + { + c = instr(midstr1(pstr, c1 + 1), ",") + c1; + temp = 0; if (c != c1) temp = -1; + f8 = atoi(midstr2(pstr, c1 + 1, p + temp*(p - c + 1) - c1)); + if (f8 == 0) bp = 1; + if (c == c1) skip = 4; + } + + if (skip == 0 && bp == 0) + { + l = atoi(midstr1(pstr, c + 1)); + if (l == 0) bp = 1; + } + + if (bp == 0) switch (skip) + { + case 1: + f1 = 10; + i = 10; + f8 = 1; + l = 99999; + break; + + case 2: + i = 10; + f8 = 1; + l = 99999; + break; + + case 3: + f8 = 1; + l = 99999; + break; + + case 4: + l = 99999; + break; + } + + if (f1 < 1 || i == 0 || f8 < 1 || l < 1) bp = 1; + + if (f1 > 99999 || i > 99999 || f8 > 99999 || l > 99999 || f8 > l) + bp = 1; + + c = 0; + for (r = 1; r <= s; r++) + if (sidx[r][0] >= f8 && sidx[r][0] <= l) c = c + 1; + if (c == 0) + { + printf("There is nothing to renumber !!\n"); + disp_msg = 1; + } + + /*------------------------------------*/ + /* Make list of new statement numbers */ + /*------------------------------------*/ + + l1 = f1 + (c - 1)*i; + if (l1 < 1 || l1 > 99999) bp = 1; + + x = 0; c = 0; + if (bp == 0 && disp_msg == 0) for (r = 1; r <= s; r++) + { + if (sidx[r][0] < f8 || sidx[r][0] > l) + if (sidx[r][1] >= f1 && sidx[r][1] <= l1) + { + printf("SEQUENCE NUMBER OVERLAP\n"); + exit(1); + } + else {} + else + { + if (sidx[r][0] != f1 + c*i) + { + if (x == 0) + { + if (r < f2) f2 = r; + x = 1; + } + + if (r > l2) l2 = r; + } + + sidx[r][1] = f1 + c*i; + c++; + l3 = r; + } + } + + if (bp == 0 && disp_msg == 0) g = 0; + + if (bp == 1) printf("BAD PARAMETER\n"); + } + + /*-------------------*/ + /* Start renumbering */ + /*-------------------*/ + + if (l2 == 0) + { + printf("NOTHING RENUMBERED!\n"); + exit(1); + } + + printf("RENUMBERING\n"); + +/* + for (r = 1; r <= s; r ++) + printf("%d -> %d\n", sidx[r][0], sidx[r][1]); + */ + + printf("VERIFY? N or n cancels:"); + fgets(pstr,MAX_LINE_LENGTH,stdin); + v1 = 0; + if (strcmp(midstr2(pstr, 1, 1), "N") == 0) v1 = 1; + if (strcmp(midstr2(pstr, 1, 1), "n") == 0) v1 = 1; + + if (v1 == 1) { + printf("Operation cancelled\n"); + exit(1); + } + + fdin = fopen(f9str, "r"); + if (fdin == NULL) + { + printf("Unable to open input file\n"); + exit(1); + } + + f6 = sidx[f2][0]; + l6 = sidx[l2][0]; + + while (fgets(pstr, MAX_LINE_LENGTH, fdin) != NULL) + { + pstr[strlen(pstr) - 1] = '\0'; + b = instr(pstr, " "); + if (b != 0) + { + n = atoi(midstr2(pstr, 1, b)); + if (n != 0) + { + if (n >= f6 && n <= l6) + { + binary_search(); + if (x == 0) + { + strcat(rstr, midstr1(pstr, b)); + strcpy(pstr, rstr); + b = instr(pstr, " "); + } + } + b++; + + /*-------------------------------------------------------------*/ + /* There are differences, of course, between processing for HP */ + /* BASIC and MS BASIC. */ + /* */ + /* CONVERT, PRINT USING, and MAT PRINT USING changes are not */ + /* applicable in MS BASIC. */ + /* */ + /* Had to also add capability for multiple statements here. */ + /*-------------------------------------------------------------*/ + + while(1) + { + if (strcmp(midstr2(pstr, b, 3), "REM") == 0 || + strcmp(midstr2(pstr, b, 1), "'") == 0) break; + + f9 = 0; + skip = 0; + for (x9 = b; x9 <= strlen(pstr); x9++) + { + if ((char)(*midstr2(pstr, x9, 1)) == 34) + { + if (f9 == 0) + f9 = 1; + else + f9 = 0; + } + else if (strcmp(midstr2(pstr, x9, 1), ":") == 0 && + f9 == 0) + { + b1 = x9 - 1; + skip = 1; + break; + } + } + if (skip == 0) b1 = strlen(pstr); + + t = instr("GOSGOTIF ON RESRET", midstr2(pstr, b, 3)); + + temp = (t + 5)/3; + if (temp != 1) + { + if (temp == 2 || temp == 3 || temp == 4 || temp == 6 || + temp == 7) + { + /*-------------------------------------------------*/ + /* Change GOSUB, GOTO, IF, RESTORE, RESUME, RETURN */ + /* routine. */ + /* Go word by word through the statement. */ + /*-------------------------------------------------*/ + getout = 0; + p8 = b; + strcpy(s9str, " "); + } + else if (temp == 5) + { + /*---------------------------------------------------*/ + /* Change ON event/expression GOSUB/GOTO routine. */ + /* Find starting point appropriate to this statement */ + /* type. */ + /*---------------------------------------------------*/ + getout = 1; + for (x9 = b1; x9 >= b; x9--) + { + if (strcmp(midstr2(pstr, x9, 1), " ") == 0) + { + p8 = x9 + 1; + getout = 0; + break; + } + } + + if (getout == 0) strcpy(s9str, ","); + } + + /* Start looping here */ + if (getout == 0) while(1) + { + f9 = 0; + skip = 0; + for (x9 = p8; x9 <= b1; x9++) + { + if ((char)(*midstr2(pstr, x9, 1)) == 34) + { + if (f9 == 0) + f9 = 1; + else + f9 = 0; + } + else if (strcmp(midstr2(pstr, x9, 1), s9str) == 0 && + f9 == 0) + { + p9 = x9 - 1; + skip = 1; + break; + } + } + if (skip == 0) p9 = b1; + + skip = 0; + for (x9 = p8; x9 <= p9; x9++) + { + a = (char)(*midstr2(pstr, x9, 1)); + if (a < 48 || a > 57) + { + skip = 1; + break; + } + } + + if (skip == 0) + { + /*---------------------*/ + /* Found a line number */ + /*---------------------*/ + n = atoi(midstr2(pstr, p8, p9 - p8 + 1)); + if (n != 0) + { + if (n >= f6 && n <= l6) + { + binary_search(); + if (x == 0) + { + if (p9 == strlen(pstr)) + { + strcpy(tempstr, midstr2(pstr, 1, p8 - 1)); + strcat(tempstr, rstr); + strcpy(pstr, tempstr); + } + else + { + strcpy(tempstr, midstr2(pstr, 1, p8 - 1)); + strcat(tempstr, rstr); + strcat(tempstr, midstr1(pstr, p9 + 1)); + strcpy(pstr, tempstr); + } + + /*-----------------------------------*/ + /* Adjust indices to account for new */ + /* substring length, if any. */ + /*-----------------------------------*/ + d9 = strlen(rstr) - (p9 - p8 + 1); + p9 = p9 + d9; + b1 = b1 + d9; + } + } + } + } + + p8 = p9 + 2; + if (p8 > b1) break; + } + } + + /*--------------------------------------------------*/ + /* No more words to process in the statement, go to */ + /* next statement. */ + /*--------------------------------------------------*/ + if (b1 == strlen(pstr)) break; + b = b1 + 2; + } + } + } + + fprintf(fdout, "%s\n", pstr); + if (v1 == 0) printf("%s\n", pstr); + } + + fclose(fdin); + fclose(fdout); + +#if !defined(__MVS__) && !defined(__CMS__) && !defined(MSDOS) + tempstr[strlen(tempstr)] = '\0'; + sprintf(tempstr, "cp editfl %s", f9str); + system(tempstr); +#endif +#if defined(MSDOS) + tempstr[strlen(tempstr)] = '\0'; + sprintf(tempstr, "copy editfl %s", f9str); + system(tempstr); +#endif + + return (0); +} + + +int instr(astr, bstr) + char *astr, *bstr; +{ + char *p; + int q; + + p = strstr(astr, bstr); + if (p == NULL) + { + q = 0; + } + else + { + q = (p - astr) + 1; + } + return q; +} + + +char *midstr1(astr, start) + char *astr; + int start; +{ + static char tempstr[MAX_LINE_LENGTH]; + char *startptr; + + strcpy(tempstr, astr); + startptr = (char *)((long)(tempstr) + start - 1); + + return startptr; +} + + +char *midstr2(astr, start, len) + char *astr; + int start, len; +{ + static char tempstr[MAX_LINE_LENGTH]; + char *startptr, *endptr; + + strcpy(tempstr, astr); + startptr = (char *)((long)(tempstr) + start - 1); + endptr = (char *)((long)(tempstr) + start + len - 1); + strcpy(endptr, "\0"); + + return startptr; +} + + +void binary_search(void) +{ + int f5, l5; + + f5 = f2; + l5 = l2 + 1; + + while(1) + { + int m; + + m = (f5 + l5)/2; + + if (sidx[m][0] == n) + { + rstr[strlen(rstr)] = '\0'; + sprintf(rstr, "%d", sidx[m][1]); + x = 0; + return; + } + + if (m == f5 || m == l5) + { + x = 1; + return; + } + + if (sidx[m][0] < n) + f5 = m; + else + l5 = m; + } +} + diff --git a/Junk/res.bas b/Junk/res.bas new file mode 100644 index 0000000..c620f70 --- /dev/null +++ b/Junk/res.bas @@ -0,0 +1,7 @@ + 100 for j = 1 to 22 + 200 print j + 300 next j + 400 for j = 1 to 80 + 500 print "I"; + 600 next j + diff --git a/Junk/stdcomp.bat b/Junk/stdcomp.bat new file mode 100644 index 0000000..3df173b --- /dev/null +++ b/Junk/stdcomp.bat @@ -0,0 +1 @@ +gcc -w -c -ansi -I . %1 %2 %3 %4 %5 %6 %7 %8 %9 diff --git a/Makefile.in b/Makefile.in index 5e6b018..bf4058e 100644 --- a/Makefile.in +++ b/Makefile.in @@ -1,115 +1,115 @@ -# Unix Makefile for Bywater BASIC Interpreter - -##---------------------------------------------------------------## -## NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, ## -## 11/1995 (eidetics@cerf.net). ## -##---------------------------------------------------------------## - -srcdir = @srcdir@ -VPATH = @srcdir@ - -CC = @CC@ - -INSTALL = @INSTALL@ -INSTALL_PROGRAM = @INSTALL_PROGRAM@ -INSTALL_DATA = @INSTALL_DATA@ - -DEFS = @DEFS@ - -# Revised by JBV -#CFLAGS = -O -CFLAGS = -g -ansi -DHAVE_UNIX - -# Revised by JBV -#LDFLAGS = -s - -prefix = /usr/local -exec_prefix = $(prefix) -bindir = $(exec_prefix)/bin - -SHELL = /bin/sh - -CFILES= bwbasic.c bwb_cmd.c bwb_cnd.c bwb_dio.c\ - bwb_exp.c bwb_fnc.c bwb_inp.c bwb_int.c\ - bwb_prn.c bwb_stc.c bwb_str.c bwb_tbl.c\ - bwb_var.c bwd_cmd.c bwd_fun.c bwx_tty.c - -OFILES= bwbasic.o bwb_cmd.o bwb_cnd.o bwb_dio.o\ - bwb_exp.o bwb_fnc.o bwb_inp.o bwb_int.o\ - bwb_prn.o bwb_stc.o bwb_str.o bwb_tbl.o\ - bwb_var.o bwd_cmd.o bwd_fun.o bwx_tty.o - -HFILES= bwbasic.h - -MISCFILES= COPYING INSTALL Makefile.in README bwbasic.doc\ - bwbasic.mak configure.in configure makefile.qcl\ - bwb_tcc.c bwx_iqc.c bwx_iqc.h - -TESTFILES= \ - abs.bas assign.bas callfunc.bas callsub.bas chain1.bas\ - chain2.bas dataread.bas deffn.bas dim.bas doloop.bas\ - dowhile.bas elseif.bas end.bas err.bas fncallfn.bas\ - fornext.bas function.bas gosub.bas gotolabl.bas ifline.bas\ - index.txt input.bas lof.bas loopuntl.bas main.bas\ - mlifthen.bas on.bas onerr.bas onerrlbl.bas ongosub.bas\ - opentest.bas option.bas putget.bas random.bas selcase.bas\ - snglfunc.bas stop.bas term.bas whilwend.bas width.bas\ - writeinp.bas pascaltr.bas - -DISTFILES= $(CFILES) $(HFILES) $(MISCFILES) - -# Revised by JBV -#all: bwbasic -all: bwbasic renum - -bwbasic: $(OFILES) - $(CC) $(OFILES) -lm -o $@ $(LDFLAGS) - -# Added by JBV -renum: - $(CC) renum.c -o renum - -$(OFILES): $(HFILES) - -.c.o: - $(CC) -c $(CPPFLAGS) -I$(srcdir) $(DEFS) $(CFLAGS) $< - -install: all - $(INSTALL_PROGRAM) bwbasic $(bindir)/bwbasic - -uninstall: - rm -f $(bindir)/bwbasic - -Makefile: Makefile.in config.status - $(SHELL) config.status -config.status: configure - $(SHELL) config.status --recheck -configure: configure.in - cd $(srcdir); autoconf - -TAGS: $(CFILES) - etags $(CFILES) - -clean: - rm -f *.o bwbasic core - -mostlyclean: clean - -distclean: clean - rm -f Makefile config.status - -realclean: distclean - rm -f TAGS - -dist: $(DISTFILES) - echo bwbasic-2.61 > .fname - rm -rf `cat .fname` - mkdir `cat .fname` - ln $(DISTFILES) `cat .fname` - mkdir `cat .fname`/bwbtest - cd bwbtest; ln $(TESTFILES) ../`cat ../.fname`/bwbtest - tar czhf `cat .fname`.tar.gz `cat .fname` - rm -rf `cat .fname` .fname - -# Prevent GNU make v3 from overflowing arg limit on SysV. -.NOEXPORT: +# Unix Makefile for Bywater BASIC Interpreter + +##---------------------------------------------------------------## +## NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, ## +## 11/1995 (eidetics@cerf.net). ## +##---------------------------------------------------------------## + +srcdir = @srcdir@ +VPATH = @srcdir@ + +CC = @CC@ + +INSTALL = @INSTALL@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_DATA = @INSTALL_DATA@ + +DEFS = @DEFS@ + +# Revised by JBV +#CFLAGS = -O +CFLAGS = -g -ansi -DHAVE_UNIX + +# Revised by JBV +#LDFLAGS = -s + +prefix = /usr/local +exec_prefix = $(prefix) +bindir = $(exec_prefix)/bin + +SHELL = /bin/sh + +CFILES= bwbasic.c bwb_cmd.c bwb_cnd.c bwb_dio.c\ + bwb_exp.c bwb_fnc.c bwb_inp.c bwb_int.c\ + bwb_prn.c bwb_stc.c bwb_str.c bwb_tbl.c\ + bwb_var.c bwd_cmd.c bwd_fun.c bwx_tty.c + +OFILES= bwbasic.o bwb_cmd.o bwb_cnd.o bwb_dio.o\ + bwb_exp.o bwb_fnc.o bwb_inp.o bwb_int.o\ + bwb_prn.o bwb_stc.o bwb_str.o bwb_tbl.o\ + bwb_var.o bwd_cmd.o bwd_fun.o bwx_tty.o + +HFILES= bwbasic.h + +MISCFILES= COPYING INSTALL Makefile.in README bwbasic.doc\ + bwbasic.mak configure.in configure makefile.qcl\ + bwb_tcc.c bwx_iqc.c bwx_iqc.h + +TESTFILES= \ + abs.bas assign.bas callfunc.bas callsub.bas chain1.bas\ + chain2.bas dataread.bas deffn.bas dim.bas doloop.bas\ + dowhile.bas elseif.bas end.bas err.bas fncallfn.bas\ + fornext.bas function.bas gosub.bas gotolabl.bas ifline.bas\ + index.txt input.bas lof.bas loopuntl.bas main.bas\ + mlifthen.bas on.bas onerr.bas onerrlbl.bas ongosub.bas\ + opentest.bas option.bas putget.bas random.bas selcase.bas\ + snglfunc.bas stop.bas term.bas whilwend.bas width.bas\ + writeinp.bas pascaltr.bas + +DISTFILES= $(CFILES) $(HFILES) $(MISCFILES) + +# Revised by JBV +#all: bwbasic +all: bwbasic renum + +bwbasic: $(OFILES) + $(CC) $(OFILES) -lm -o $@ $(LDFLAGS) + +# Added by JBV +renum: + $(CC) renum.c -o renum + +$(OFILES): $(HFILES) + +.c.o: + $(CC) -c $(CPPFLAGS) -I$(srcdir) $(DEFS) $(CFLAGS) $< + +install: all + $(INSTALL_PROGRAM) bwbasic $(bindir)/bwbasic + +uninstall: + rm -f $(bindir)/bwbasic + +Makefile: Makefile.in config.status + $(SHELL) config.status +config.status: configure + $(SHELL) config.status --recheck +configure: configure.in + cd $(srcdir); autoconf + +TAGS: $(CFILES) + etags $(CFILES) + +clean: + rm -f *.o bwbasic core + +mostlyclean: clean + +distclean: clean + rm -f Makefile config.status + +realclean: distclean + rm -f TAGS + +dist: $(DISTFILES) + echo bwbasic-2.61 > .fname + rm -rf `cat .fname` + mkdir `cat .fname` + ln $(DISTFILES) `cat .fname` + mkdir `cat .fname`/bwbtest + cd bwbtest; ln $(TESTFILES) ../`cat ../.fname`/bwbtest + tar czhf `cat .fname`.tar.gz `cat .fname` + rm -rf `cat .fname` .fname + +# Prevent GNU make v3 from overflowing arg limit on SysV. +.NOEXPORT: diff --git a/Makefile.ncu b/Makefile.ncu index 70f2c4b..ec4e8e9 100644 --- a/Makefile.ncu +++ b/Makefile.ncu @@ -1,121 +1,121 @@ -# Generated automatically from Makefile.in by configure. -# Unix Makefile for Bywater BASIC Interpreter - -##---------------------------------------------------------------## -## NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, ## -## 10/1995 (eidetics@cerf.net). ## -##---------------------------------------------------------------## - -# 2015-04-25 Updated for version 3.00 by Howard Wulf, AF5NE - -srcdir = . -VPATH = . - -CC = cc - -INSTALL = cp -INSTALL_PROGRAM = $(INSTALL) -INSTALL_DATA = $(INSTALL) - -DEFS = -DHAVE_STRING=1 -DHAVE_STDLIB=1 -DHAVE_RAISE=1 -DHAVE_UNISTD=1 - -# Revised by JBV -#CFLAGS = -O -CFLAGS = -g -ansi -DHAVE_UNIX - -# Revised by JBV -#LDFLAGS = -s - -prefix = /usr/local -exec_prefix = $(prefix) -bindir = $(exec_prefix)/bin - -SHELL = /bin/sh - -CFILES= bwbasic.c bwb_cmd.c bwb_cnd.c bwb_dio.c\ - bwb_exp.c bwb_fnc.c bwb_inp.c bwb_int.c\ - bwb_prn.c bwb_stc.c bwb_str.c bwb_tbl.c\ - bwb_var.c bwd_cmd.c bwd_fun.c bwx_tty.c - -OFILES= bwbasic.o bwb_cmd.o bwb_cnd.o bwb_dio.o\ - bwb_exp.o bwb_fnc.o bwb_inp.o bwb_int.o\ - bwb_prn.o bwb_stc.o bwb_str.o bwb_tbl.o\ - bwb_var.o bwd_cmd.o bwd_fun.o bwx_tty.o - - -HFILES= bwbasic.h - -MISCFILES= COPYING INSTALL Makefile.in README bwbasic.doc\ - bwbasic.mak configure.in configure makefile.qcl - -TESTFILES= \ - abs.bas assign.bas callfunc.bas callsub.bas chain1.bas\ - chain2.bas dataread.bas deffn.bas dim.bas doloop.bas\ - dowhile.bas elseif.bas end.bas err.bas fncallfn.bas\ - fornext.bas function.bas gosub.bas gotolabl.bas ifline.bas\ - index.txt input.bas lof.bas loopuntl.bas main.bas\ - mlifthen.bas on.bas onerr.bas onerrlbl.bas ongosub.bas\ - opentest.bas option.bas putget.bas random.bas selcase.bas\ - snglfunc.bas stop.bas term.bas whilwend.bas width.bas\ - writeinp.bas pascaltr.bas - -DISTFILES= $(CFILES) $(HFILES) $(MISCFILES) - -# Revised by JBV -#all: bwbasic -all: bwbasic renum - -bwbasic: $(OFILES) - $(CC) $(OFILES) -lm -o $@ $(LDFLAGS) - -# Added by JBV -renum: - $(CC) renum.c -o renum - -$(OFILES): $(HFILES) - -.c.o: - $(CC) -c $(CPPFLAGS) -I$(srcdir) $(DEFS) $(CFLAGS) $< - -install: all - $(INSTALL_PROGRAM) bwbasic $(bindir)/bwbasic - -uninstall: - rm -f $(bindir)/bwbasic - -Makefile: Makefile.in config.status - $(SHELL) config.status -config.status: configure - $(SHELL) config.status --recheck -configure: configure.in - cd $(srcdir); autoconf - -TAGS: $(CFILES) - etags $(CFILES) - -clean: - rm -f *.o bwbasic core - -mostlyclean: clean - -distclean: clean - rm -f Makefile config.status - -realclean: distclean - rm -f TAGS - -# Version number changed to 2.61 by PE -dist: $(DISTFILES) - echo bwbasic-3.00 > .fname - rm -rf `cat .fname` - mkdir `cat .fname` - ln $(DISTFILES) `cat .fname` - mkdir `cat .fname`/bwbtest - cd bwbtest; ln $(TESTFILES) ../`cat ../.fname`/bwbtest - tar czhf `cat .fname`.tar.gz `cat .fname` - rm -rf `cat .fname` .fname - -# Prevent GNU make v3 from overflowing arg limit on SysV. -.NOEXPORT: - -# EOF +# Generated automatically from Makefile.in by configure. +# Unix Makefile for Bywater BASIC Interpreter + +##---------------------------------------------------------------## +## NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, ## +## 10/1995 (eidetics@cerf.net). ## +##---------------------------------------------------------------## + +# 2015-04-25 Updated for version 3.00 by Howard Wulf, AF5NE + +srcdir = . +VPATH = . + +CC = cc + +INSTALL = cp +INSTALL_PROGRAM = $(INSTALL) +INSTALL_DATA = $(INSTALL) + +DEFS = -DHAVE_STRING=1 -DHAVE_STDLIB=1 -DHAVE_RAISE=1 -DHAVE_UNISTD=1 + +# Revised by JBV +#CFLAGS = -O +CFLAGS = -g -ansi -DHAVE_UNIX + +# Revised by JBV +#LDFLAGS = -s + +prefix = /usr/local +exec_prefix = $(prefix) +bindir = $(exec_prefix)/bin + +SHELL = /bin/sh + +CFILES= bwbasic.c bwb_cmd.c bwb_cnd.c bwb_dio.c\ + bwb_exp.c bwb_fnc.c bwb_inp.c bwb_int.c\ + bwb_prn.c bwb_stc.c bwb_str.c bwb_tbl.c\ + bwb_var.c bwd_cmd.c bwd_fun.c bwx_tty.c + +OFILES= bwbasic.o bwb_cmd.o bwb_cnd.o bwb_dio.o\ + bwb_exp.o bwb_fnc.o bwb_inp.o bwb_int.o\ + bwb_prn.o bwb_stc.o bwb_str.o bwb_tbl.o\ + bwb_var.o bwd_cmd.o bwd_fun.o bwx_tty.o + + +HFILES= bwbasic.h + +MISCFILES= COPYING INSTALL Makefile.in README bwbasic.doc\ + bwbasic.mak configure.in configure makefile.qcl + +TESTFILES= \ + abs.bas assign.bas callfunc.bas callsub.bas chain1.bas\ + chain2.bas dataread.bas deffn.bas dim.bas doloop.bas\ + dowhile.bas elseif.bas end.bas err.bas fncallfn.bas\ + fornext.bas function.bas gosub.bas gotolabl.bas ifline.bas\ + index.txt input.bas lof.bas loopuntl.bas main.bas\ + mlifthen.bas on.bas onerr.bas onerrlbl.bas ongosub.bas\ + opentest.bas option.bas putget.bas random.bas selcase.bas\ + snglfunc.bas stop.bas term.bas whilwend.bas width.bas\ + writeinp.bas pascaltr.bas + +DISTFILES= $(CFILES) $(HFILES) $(MISCFILES) + +# Revised by JBV +#all: bwbasic +all: bwbasic renum + +bwbasic: $(OFILES) + $(CC) $(OFILES) -lm -o $@ $(LDFLAGS) + +# Added by JBV +renum: + $(CC) renum.c -o renum + +$(OFILES): $(HFILES) + +.c.o: + $(CC) -c $(CPPFLAGS) -I$(srcdir) $(DEFS) $(CFLAGS) $< + +install: all + $(INSTALL_PROGRAM) bwbasic $(bindir)/bwbasic + +uninstall: + rm -f $(bindir)/bwbasic + +Makefile: Makefile.in config.status + $(SHELL) config.status +config.status: configure + $(SHELL) config.status --recheck +configure: configure.in + cd $(srcdir); autoconf + +TAGS: $(CFILES) + etags $(CFILES) + +clean: + rm -f *.o bwbasic core + +mostlyclean: clean + +distclean: clean + rm -f Makefile config.status + +realclean: distclean + rm -f TAGS + +# Version number changed to 2.61 by PE +dist: $(DISTFILES) + echo bwbasic-3.00 > .fname + rm -rf `cat .fname` + mkdir `cat .fname` + ln $(DISTFILES) `cat .fname` + mkdir `cat .fname`/bwbtest + cd bwbtest; ln $(TESTFILES) ../`cat ../.fname`/bwbtest + tar czhf `cat .fname`.tar.gz `cat .fname` + rm -rf `cat .fname` .fname + +# Prevent GNU make v3 from overflowing arg limit on SysV. +.NOEXPORT: + +# EOF diff --git a/abs.bas b/abs.bas new file mode 100644 index 0000000..ebc2813 --- /dev/null +++ b/abs.bas @@ -0,0 +1,5 @@ +500 rem ABS.BAS -- Test ABS() function +505 X = -1.23456789 +510 ABSX = ABS( X ) +515 print "The absolute value of "; X; " is"; ABSX +520 print "Is that correct?" diff --git a/allcms.exec b/allcms.exec index ef8f686..fa47cdf 100644 --- a/allcms.exec +++ b/allcms.exec @@ -1,28 +1,28 @@ -* Usage - ALLCMS - -* This script compiles all the files on SRC disk (default is A) -* and copies the resultant modules to the EXE disk (default B) - -&SRC = A -&EXE = B - - -&IF &INDEX EQ 0 &GOTO -FINARGS -&SRC = &1 -&ARGS &2 &3 &4 &5 &6 &7 &8 &9 - -&IF &INDEX EQ 0 &GOTO -FINARGS -&EXE = &1 - --FINARGS - - -FILEDEF INPUT TAP1 (LRECL 0 BLKSIZE 32760 RECFM U -MVSUNZIP DD:INPUT &SRC -FILEDEF INPUT CLEAR - - -EXEC COMPILE &SRC &EXE - - -VMARC PACK * * &EXE (TAP2 BLOCK 80 +* Usage - ALLCMS + +* This script compiles all the files on SRC disk (default is A) +* and copies the resultant modules to the EXE disk (default B) + +&SRC = A +&EXE = B + + +&IF &INDEX EQ 0 &GOTO -FINARGS +&SRC = &1 +&ARGS &2 &3 &4 &5 &6 &7 &8 &9 + +&IF &INDEX EQ 0 &GOTO -FINARGS +&EXE = &1 + +-FINARGS + + +FILEDEF INPUT TAP1 (LRECL 0 BLKSIZE 32760 RECFM U +MVSUNZIP DD:INPUT &SRC +FILEDEF INPUT CLEAR + + +EXEC COMPILE &SRC &EXE + + +VMARC PACK * * &EXE (TAP2 BLOCK 80 diff --git a/bwbtest/B15A/abs.bas b/bas/abs.bas similarity index 100% rename from bwbtest/B15A/abs.bas rename to bas/abs.bas diff --git a/bwbtest/B93/assign.bas b/bas/assign.bas similarity index 100% rename from bwbtest/B93/assign.bas rename to bas/assign.bas diff --git a/bwbtest/B93/callfunc.bas b/bas/callfunc.bas similarity index 85% rename from bwbtest/B93/callfunc.bas rename to bas/callfunc.bas index 30f7178..e19d489 100644 --- a/bwbtest/B93/callfunc.bas +++ b/bas/callfunc.bas @@ -30,7 +30,5 @@ Function TestFnc( xarg, yarg$, tvar ) tvar = 99 Print "The value of variable is reset to "; tvar TestFnc = xarg + tvar -REM bwBASIC 3.20 using the function in expressions is recursion - REM Print "The Function should return "; TestFnc - Print "The Function should return "; xarg + tvar + Print "The Function should return "; TestFnc End Function diff --git a/bwbtest/B15A/callsub.bas b/bas/callsub.bas similarity index 96% rename from bwbtest/B15A/callsub.bas rename to bas/callsub.bas index 1315eff..4682909 100644 --- a/bwbtest/B15A/callsub.bas +++ b/bas/callsub.bas @@ -8,7 +8,7 @@ Print "The next printed line should be from the Subroutine." Print testvar = 17 -Call TestSub( 5, "Hello", testvar) +Call TestSub 5, "Hello", testvar Print Print "This is back at the main program. " diff --git a/bwbtest/B93/chain1.bas b/bas/chain1.bas similarity index 100% rename from bwbtest/B93/chain1.bas rename to bas/chain1.bas diff --git a/bwbtest/B93/chain2.bas b/bas/chain2.bas similarity index 100% rename from bwbtest/B93/chain2.bas rename to bas/chain2.bas diff --git a/bas/curve2.bas b/bas/curve2.bas new file mode 100644 index 0000000..cb6c78d --- /dev/null +++ b/bas/curve2.bas @@ -0,0 +1,13 @@ + 50 rem 12/13/2019 Ken curve + 100 REM PLOT A NORMAL DISTRIBUTION CURVE + 120 DEF FNN(X) = EXP(-(X^2/2))/SQR(2*3.14159265) + 140 FOR X = -2 TO 2 STEP .1 + 150 LET Y = FNN(X) + 160 LET Y = INT(100*Y) + 170 FOR Z = 1 TO Y + 180 PRINT " "; + 190 NEXT Z + 200 PRINT "*" + 210 NEXT X + 220 END + diff --git a/bwbtest/B93/dataread.bas b/bas/dataread.bas similarity index 100% rename from bwbtest/B93/dataread.bas rename to bas/dataread.bas diff --git a/bwbtest/B93/deffn.bas b/bas/deffn.bas similarity index 100% rename from bwbtest/B93/deffn.bas rename to bas/deffn.bas diff --git a/bwbtest/B93/dim.bas b/bas/dim.bas similarity index 100% rename from bwbtest/B93/dim.bas rename to bas/dim.bas diff --git a/bwbtest/B93/doloop.bas b/bas/doloop.bas similarity index 100% rename from bwbtest/B93/doloop.bas rename to bas/doloop.bas diff --git a/bwbtest/B93/dowhile.bas b/bas/dowhile.bas similarity index 100% rename from bwbtest/B93/dowhile.bas rename to bas/dowhile.bas diff --git a/bas/eliza.bas b/bas/eliza.bas new file mode 100644 index 0000000..b4c13e9 --- /dev/null +++ b/bas/eliza.bas @@ -0,0 +1,259 @@ + 1 rem start 12/13/2019 Ken + 4 CALL CLS + 5 PRINT TAB(16)"**************************" + 10 PRINT TAB(26)"ELIZA" + 20 PRINT TAB(20)"CREATIVE COMPUTING" + 30 PRINT TAB(18)"MORRISTOWN, NEW JERSEY" + : PRINT + 40 PRINT TAB(19)"ADAPTED FOR IBM PC BY" + 50 PRINT TAB(20)"PATRICIA DANIELSON AND PAUL HASHFIELD" + 52 PRINT TAB(21)"BE SURE THAT THE CAPS LOCK IS ON" + 53 PRINT + : PRINT TAB(16)"PLEASE DON'T USE COMMAS OR PERIODS IN YOUR INPUTS" + : PRINT + 55 PRINT TAB(16)"*************************" + 60 PRINT + : PRINT + : PRINT + 80 REM*****INITIALIZATION********** + 100 DIM S(36),R(36),N(36) + 105 DIM KEYWORD$(36),WORDIN$(7),WORDOUT$(7),REPLIES$(112) + 110 N1=36 + : N2=14 + : N3=112 + 112 FOR X = 1 TO N1 + : READ KEYWORD$(X) + : NEXT X + 114 FOR X = 1 TO N2/2 + : READ WORDIN$(X) + : READ WORDOUT$(X) + : NEXT X + 116 FOR X = 1 TO N3 + : READ REPLIES$(X) + : NEXT X + 130 FOR X=1 TO N1 + 140 READ S(X),L + : R(X)=S(X) + : N(X)=S(X)+L-1 + 150 NEXT X + 160 PRINT "HI! I'M ELIZA. WHAT'S YOUR PROBLEM?" + 170 REM *********************************** + 180 REM *******USER INPUT SECTION********** + 190 REM *********************************** + 200 INPUT I$ + 201 I$=" "+I$+" " + 210 REM GET RID OF APOSTROPHES + 220 FOR L=1 TO LEN(I$) + 230 REM IF MID$(I$,L,1)="'"THEN I$=LEFT$(I$,L-1)+RIGHT$(I$,LEN(I$)-L):GOTO 230 + 240 IF L+4>LEN(I$)THEN 250 + 241 IF MID$(I$,L,4) <> "SHUT" THEN 250 + 242 PRINT "O.K. IF YOU FEEL THAT WAY I'LL SHUT UP...." + 243 END + 250 NEXT L + 255 IF I$=P$ THEN + : PRINT "PLEASE DON'T REPEAT YOURSELF!" + : GOTO 170 + : END IF + 260 REM *********************************** + 270 REM ********FIND KEYWORD IN I$********* + 280 REM *********************************** + 300 FOR K=1 TO N1 + 320 FOR L=1 TO LEN (I$)-LEN (KEYWORD$(K))+1 + 340 IF MID$(I$,L,LEN(KEYWORD$(K)))<>KEYWORD$(K) THEN 350 + 341 IF K <> 13 THEN 349 + 342 IF MID$(I$,L,LEN(KEYWORD$(29)))=KEYWORD$(29) THEN + : K = 29 + : END IF + 349 F$ = KEYWORD$(K) + : GOTO 390 + 350 NEXT L + 360 NEXT K + 370 K=36 + : GOTO 570 + : REM WE DIDN'T FIND ANY KEYWORDS + 380 REM ****************************************** + 390 REM **TAKE PART OF STRING AND CONJUGATE IT**** + 400 REM **USING THE LIST OF STRINGS TO BE SWAPPED* + 410 REM ****************************************** + 430 C$=" "+RIGHT$(I$,LEN(I$)-LEN(F$)-L+1)+" " + 440 FOR X=1 TO N2/2 + 460 FOR L=1 TO LEN(C$) + 470 IF L+LEN(WORDIN$(X))>LEN(C$) THEN 510 + 480 IF MID$(C$,L,LEN(WORDIN$(X)))<>WORDIN$(X) THEN 510 + 490 C$=LEFT$(C$,L-1)+WORDOUT$(X)+RIGHT$(C$,LEN(C$)-L-LEN(WORDIN$(X))+1) + 495 L = L+LEN(WORDOUT$(X)) + 500 GOTO 540 + 510 IF L+LEN(WORDOUT$(X))>LEN(C$)THEN 540 + 520 IF MID$(C$,L,LEN(WORDOUT$(X)))<>WORDOUT$(X) THEN 540 + 530 C$=LEFT$(C$,L-1)+WORDIN$(X)+RIGHT$(C$,LEN(C$)-L-LEN(WORDOUT$(X))+1) + 535 L=L+LEN(WORDIN$(X)) + 540 NEXT L + 550 NEXT X + 555 IF MID$(C$,2,1)=" "THEN + : C$=RIGHT$(C$,LEN(C$)-1) + : END IFREM ONLY 1 SPACE + 556 FOR L=1 TO LEN(C$) + 557 IF MID$(C$,L,1)="!" THEN + : C$=LEFT$(C$,L-1)+RIGHT$(C$,LEN(C$)-L) + : GOTO 557 + : END IF + 558 NEXT L + 560 REM ********************************************** + 570 REM **NOW USING THE KEYWORD NUMBER (K) GET REPLY** + 580 REM ********************************************** + 600 F$ = REPLIES$(R(K)) + 610 R(K)=R(K)+1 + : IF R(K)>N(K) THEN + : R(K)=S(K) + : END IF + 620 IF RIGHT$(F$,1)<>"*" THEN + : PRINT F$ + : P$=I$ + : GOTO 170 + : END IF + 625 IF C$<>" " THEN 630 + 626 PRINT "YOU WILL HAVE TO ELABORATE MORE FOR ME TO HELP YOU" + 627 GOTO 170 + 630 PRINT LEFT$(F$,LEN(F$)-1);C$ + 640 P$=I$ + : GOTO 170 + 1000 REM ******************************* + 1010 REM *****PROGRAM DATA FOLLOWS****** + 1020 REM ******************************* + 1030 REM *********KEYWORDS************** + 1049 REM ******************************* + 1050 DATA "CAN YOU ","CAN I ","YOU ARE ","YOU'RE ","I DON'T ","I FEEL " + 1060 DATA "WHY DON'T YOU ","WHY CAN'T I ","ARE YOU ","I CAN'T ","I AM ","I'M " + 1070 DATA "YOU ","I WANT ","WHAT ","HOW ","WHO ","WHERE ","WHEN ","WHY " + 1080 DATA "NAME ","CAUSE ","SORRY ","DREAM ","HELLO ","HI ","MAYBE " + 1090 DATA "NO","YOUR ","ALWAYS ","THINK ","ALIKE ","YES ","FRIEND " + 1100 DATA "COMPUTER", "NOKEYFOUND" + 1200 REM ********************************* + 1210 REM ***STRING DATA FOR CONJUGATIONS** + 1220 REM ********************************* + 1230 DATA " ARE "," AM "," WERE "," WAS "," YOU "," I "," YOUR"," MY " + 1235 DATA " I'VE "," YOU'VE "," I'M "," YOU'RE " + 1240 DATA " ME "," YOU " + 1300 REM ****************************** + 1310 REM *********REPLIES************** + 1320 REM ****************************** + 1330 DATA "DON'T YOU BELIEVE THAT I CAN*" + 1340 DATA "PERHAPS YOU WOULD LIKE TO BE LIKE ME*" + 1350 DATA "YOU WANT ME TO BE ABLE TO*" + 1360 DATA "PERHAPS YOU DON'T WANT TO*" + 1365 DATA "DO YOU WANT TO BE ABLE TO*" + 1370 DATA "WHAT MAKES YOU THINK I AM*" + 1380 DATA "DOES IT PLEASE YOU TO BELIEVE I AM*" + 1390 DATA "PERHAPS YOU WOULD LIKE TO BE*" + 1400 DATA "DO YOU SOMETIMES WISH YOU WERE*" + 1410 DATA "DON'T YOU REALLY*" + 1420 DATA "WHY DON'T YOU*" + 1430 DATA "DO YOU WISH TO BE ABLE TO*" + 1440 DATA "DOES THAT TROUBLE YOU*" + 1450 DATA "DO YOU OFTEN FEEL*" + 1460 DATA "DO YOU OFTEN FEEL*" + 1470 DATA "DO YOU ENJOY FEELING*" + 1480 DATA "DO YOU REALLY BELIEVE I DON'T*" + 1490 DATA "PERHAPS IN GOOD TIME I WILL*" + 1500 DATA "DO YOU WANT ME TO*" + 1510 DATA "DO YOU THINK YOU SHOULD BE ABLE TO*" + 1520 DATA "WHY CAN'T YOU*" + 1530 DATA "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*" + 1540 DATA "WOULD YOU PREFER IF I WERE NOT*" + 1550 DATA "PERHAPS IN YOUR FANTASIES I AM*" + 1560 DATA "HOW DO YOU KNOW YOU CAN'T*" + 1570 DATA "HAVE YOU TRIED?" + 1580 DATA "PERHAPS YOU CAN NOW*" + 1590 DATA "DID YOU COME TO ME BECAUSE YOU ARE*" + 1600 DATA "HOW LONG HAVE YOU BEEN*" + 1610 DATA "DO YOU BELIEVE IT IS NORMAL TO BE*" + 1620 DATA "DO YOU ENJOY BEING*" + 1630 DATA "WE WERE DISCUSSING YOU--NOT ME." + 1640 DATA "OH, I*" + 1650 DATA "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?" + 1660 DATA "WHAT WOULD IT MEAN TO YOU IF YOU GOT*" + 1670 DATA "WHY DO YOU WANT*" + 1680 DATA "SUPPOSE YOU SOON GOT*" + 1690 DATA "WHAT IF YOU NEVER GOT*" + 1700 DATA "I SOMETIMES ALSO WANT*" + 1710 DATA "WHY DO YOU ASK?" + 1720 DATA "DOES THAT QUESTION INTEREST YOU?" + 1730 DATA "WHAT ANSWER WOULD PLEASE YOU THE MOST?" + 1740 DATA "WHAT DO YOU THINK?" + 1750 DATA "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?" + 1760 DATA "WHAT IS IT THAT YOU REALLY WANT TO KNOW?" + 1770 DATA "HAVE YOU ASKED ANYONE ELSE?" + 1780 DATA "HAVE YOU ASKED SUCH QUESTIONS BEFORE?" + 1790 DATA "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?" + 1800 DATA "NAMES DON'T INTEREST ME." + 1810 DATA "I DON'T CARE ABOUT NAMES --PLEASE GO ON." + 1820 DATA "IS THAT THE REAL REASON?" + 1830 DATA "DON'T ANY OTHER REASONS COME TO MIND?" + 1840 DATA "DOES THAT REASON EXPLAIN ANYTHING ELSE?" + 1850 DATA "WHAT OTHER REASONS MIGHT THERE BE?" + 1860 DATA "PLEASE DON'T APOLOGIZE!" + 1870 DATA "APOLOGIES ARE NOT NECESSARY." + 1880 DATA "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?" + 1890 DATA "DON'T BE SO DEFENSIVE!" + 1900 DATA "WHAT DOES THAT DREAM SUGGEST TO YOU?" + 1910 DATA "DO YOU DREAM OFTEN?" + 1920 DATA "WHAT PERSONS APPEAR IN YOUR DREAMS?" + 1930 DATA "ARE YOU DISTURBED BY YOUR DREAMS?" + 1940 DATA "HOW DO YOU DO ...PLEASE STATE YOUR PROBLEM." + 1950 DATA "YOU DON'T SEEM QUITE CERTAIN." + 1960 DATA "WHY THE UNCERTAIN TONE?" + 1970 DATA "CAN'T YOU BE MORE POSITIVE?" + 1980 DATA "YOU AREN'T SURE?" + 1990 DATA "DON'T YOU KNOW?" + 2000 DATA "ARE YOU SAYING NO JUST TO BE NEGATIVE?" + 2010 DATA "YOU ARE BEING A BIT NEGATIVE." + 2020 DATA "WHY NOT?" + 2030 DATA "ARE YOU SURE?" + 2040 DATA "WHY NO?" + 2050 DATA "WHY ARE YOU CONCERNED ABOUT MY*" + 2060 DATA "WHAT ABOUT YOUR OWN*" + 2070 DATA "CAN YOU THINK OF A SPECIFIC EXAMPLE?" + 2080 DATA "WHEN?" + 2090 DATA "WHAT ARE YOU THINKING OF?" + 2100 DATA "REALLY, ALWAYS?" + 2110 DATA "DO YOU REALLY THINK SO?" + 2120 DATA "BUT YOU ARE NOT SURE YOU*" + 2130 DATA "DO YOU DOUBT YOU*" + 2140 DATA "IN WHAT WAY?" + 2150 DATA "WHAT RESEMBLANCE DO YOU SEE?" + 2160 DATA "WHAT DOES THE SIMILARITY SUGGEST TO YOU?" + 2170 DATA "WHAT OTHER CONNECTIONS DO YOU SEE?" + 2180 DATA "COULD THERE REALLY BE SOME CONNECTION?" + 2190 DATA "HOW?" + 2200 DATA "YOU SEEM QUITE POSITIVE." + 2210 DATA "ARE YOU SURE?" + 2220 DATA "I SEE." + 2230 DATA "I UNDERSTAND." + 2240 DATA "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?" + 2250 DATA "DO YOUR FRIENDS WORRY YOU?" + 2260 DATA "DO YOUR FRIENDS PICK ON YOU?" + 2270 DATA "ARE YOU SURE YOU HAVE ANY FRIENDS?" + 2280 DATA "DO YOU IMPOSE ON YOUR FRIENDS?" + 2290 DATA "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU." + 2300 DATA "DO COMPUTERS WORRY YOU?" + 2310 DATA "ARE YOU TALKING ABOUT ME IN PARTICULAR?" + 2320 DATA "ARE YOU FRIGHTENED BY MACHINES?" + 2330 DATA "WHY DO YOU MENTION COMPUTERS?" + 2340 DATA "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?" + 2350 DATA "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?" + 2360 DATA "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?" + 2370 DATA "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?" + 2380 DATA "WHAT DOES THAT SUGGEST TO YOU?" + 2390 DATA "I SEE." + 2400 DATA "I'M NOT SURE I UNDERSTAND YOU FULLY." + 2410 DATA "COME COME ELUCIDATE YOUR THOUGHTS." + 2420 DATA "CAN YOU ELABORATE ON THAT?" + 2430 DATA "THAT IS QUITE INTERESTING." + 2500 REM ************************* + 2510 REM *****DATA FOR FINDING RIGHT REPLIES + 2520 REM ************************* + 2530 DATA 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3 + 2540 DATA 28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9 + 2550 DATA 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4 + 2560 DATA 80,3,83,7,90,3,93,6,99,7,106,6 + diff --git a/bwbtest/B93/elseif.bas b/bas/elseif.bas similarity index 100% rename from bwbtest/B93/elseif.bas rename to bas/elseif.bas diff --git a/bwbtest/B93/end.bas b/bas/end.bas similarity index 100% rename from bwbtest/B93/end.bas rename to bas/end.bas diff --git a/bwbtest/B93/err.bas b/bas/err.bas similarity index 100% rename from bwbtest/B93/err.bas rename to bas/err.bas diff --git a/bas/factorials.bas b/bas/factorials.bas new file mode 100644 index 0000000..9f9a47e --- /dev/null +++ b/bas/factorials.bas @@ -0,0 +1,7 @@ + 10 rem 12/13/2019 Ken Factorials + 100 f = 1 + 200 FOR i = 0 TO 16 + 300 PRINT i; "! ="; f + 400 f = f * (i + 1) + 500 NEXT i + diff --git a/bas/fibonacci.bas b/bas/fibonacci.bas new file mode 100644 index 0000000..8a5adfe --- /dev/null +++ b/bas/fibonacci.bas @@ -0,0 +1,14 @@ + 10 rem 12/13/2019 Ken Fibonacci + 100 DIM F(16) + 150 F(1) = 1 + 200 F(2) = 1 + 250 FOR i = 3 TO 16 + 260 F(i) = F(i - 1) + F(i - 2) + 270 NEXT i + 280 S$ = "" + 290 FOR i = 1 TO 16 + 300 S$ = S$ + STR$(F(i)) + "," + 350 NEXT i + 400 S$ = S$ + " ..." + 500 PRINT S$ + diff --git a/bwbtest/B93/fncallfn.bas b/bas/fncallfn.bas similarity index 100% rename from bwbtest/B93/fncallfn.bas rename to bas/fncallfn.bas diff --git a/bwbtest/B93/fornext.bas b/bas/fornext.bas similarity index 100% rename from bwbtest/B93/fornext.bas rename to bas/fornext.bas diff --git a/bwbtest/B93/function.bas b/bas/function.bas similarity index 100% rename from bwbtest/B93/function.bas rename to bas/function.bas diff --git a/bwbtest/B93/gosub.bas b/bas/gosub.bas similarity index 100% rename from bwbtest/B93/gosub.bas rename to bas/gosub.bas diff --git a/bwbtest/B93/gotolabl.bas b/bas/gotolabl.bas similarity index 100% rename from bwbtest/B93/gotolabl.bas rename to bas/gotolabl.bas diff --git a/bas/guess2.bas b/bas/guess2.bas new file mode 100644 index 0000000..41d902a --- /dev/null +++ b/bas/guess2.bas @@ -0,0 +1,21 @@ + 10 rem 12/13/2019 Ken guess a number game + 100 REM GUESSING GAME + 120 PRINT "GUESS THE NUMBER BETWEEN 1 AND 100." + 140 LET X = INT(100*RND(0)+1) + 150 LET N = 0 + 160 PRINT "YOUR GUESS"; + 170 INPUT G + 180 LET N = N+1 + 190 IF G = X THEN 300 + 200 IF G < X THEN 250 + 210 PRINT "TOO LARGE, GUESS AGAIN" + 220 GOTO 160 + 250 PRINT "TOO SMALL, GUESS AGAIN" + 260 GOTO 160 + 300 PRINT "YOU GUESSED IT, IN"; N; "TRIES" + 310 PRINT "ANOTHER GAME (YES = 1, NO = 0)"; + 320 INPUT A + 330 IF A = 1 THEN 140 + 340 PRINT "THANKS FOR PLAYING" + 350 END + diff --git a/bwbtest/B93/ifline.bas b/bas/ifline.bas similarity index 100% rename from bwbtest/B93/ifline.bas rename to bas/ifline.bas diff --git a/bwbtest/B93/input.bas b/bas/input.bas similarity index 100% rename from bwbtest/B93/input.bas rename to bas/input.bas diff --git a/bwbtest/B93/lof.bas b/bas/lof.bas similarity index 100% rename from bwbtest/B93/lof.bas rename to bas/lof.bas diff --git a/bwbtest/B93/loopuntl.bas b/bas/loopuntl.bas similarity index 100% rename from bwbtest/B93/loopuntl.bas rename to bas/loopuntl.bas diff --git a/bwbtest/B15A/main.bas b/bas/main.bas similarity index 98% rename from bwbtest/B15A/main.bas rename to bas/main.bas index 4562510..c527072 100644 --- a/bwbtest/B15A/main.bas +++ b/bas/main.bas @@ -14,6 +14,4 @@ Sub Subsequent Print "This should not print." End Sub -Main - diff --git a/bwbtest/B93/mlifthen.bas b/bas/mlifthen.bas similarity index 100% rename from bwbtest/B93/mlifthen.bas rename to bas/mlifthen.bas diff --git a/bwbtest/B93/on.bas b/bas/on.bas similarity index 100% rename from bwbtest/B93/on.bas rename to bas/on.bas diff --git a/bwbtest/B93/onerr.bas b/bas/onerr.bas similarity index 100% rename from bwbtest/B93/onerr.bas rename to bas/onerr.bas diff --git a/bwbtest/B93/onerrlbl.bas b/bas/onerrlbl.bas similarity index 100% rename from bwbtest/B93/onerrlbl.bas rename to bas/onerrlbl.bas diff --git a/bwbtest/B93/ongosub.bas b/bas/ongosub.bas similarity index 100% rename from bwbtest/B93/ongosub.bas rename to bas/ongosub.bas diff --git a/bwbtest/B93/opentest.bas b/bas/opentest.bas similarity index 100% rename from bwbtest/B93/opentest.bas rename to bas/opentest.bas diff --git a/bwbtest/B93/option.bas b/bas/option.bas similarity index 100% rename from bwbtest/B93/option.bas rename to bas/option.bas diff --git a/bwbtest/B93/pascaltr.bas b/bas/pascaltr.bas similarity index 100% rename from bwbtest/B93/pascaltr.bas rename to bas/pascaltr.bas diff --git a/bwbtest/B93/putget.bas b/bas/putget.bas similarity index 100% rename from bwbtest/B93/putget.bas rename to bas/putget.bas diff --git a/bwbtest/B93/random.bas b/bas/random.bas similarity index 100% rename from bwbtest/B93/random.bas rename to bas/random.bas diff --git a/bwbtest/B93/selcase.bas b/bas/selcase.bas similarity index 100% rename from bwbtest/B93/selcase.bas rename to bas/selcase.bas diff --git a/bwbtest/B93/snglfunc.bas b/bas/snglfunc.bas similarity index 100% rename from bwbtest/B93/snglfunc.bas rename to bas/snglfunc.bas diff --git a/bwbtest/B93/stop.bas b/bas/stop.bas similarity index 100% rename from bwbtest/B93/stop.bas rename to bas/stop.bas diff --git a/bas/tab.bas b/bas/tab.bas new file mode 100644 index 0000000..3237231 --- /dev/null +++ b/bas/tab.bas @@ -0,0 +1,7 @@ + 10 rem Showing TAB function + 15 rem 12/13/2019 Ken + 30 for x = 0 to 15 step .5 + 40 print tab(30+15*sin(x)*exp(-.1*x));"*" + 50 next x + 60 end + diff --git a/bwbtest/B93/term.bas b/bas/term.bas similarity index 100% rename from bwbtest/B93/term.bas rename to bas/term.bas diff --git a/bwbtest/B93/whilwend.bas b/bas/whilwend.bas similarity index 100% rename from bwbtest/B93/whilwend.bas rename to bas/whilwend.bas diff --git a/bwbtest/B93/width.bas b/bas/width.bas similarity index 100% rename from bwbtest/B93/width.bas rename to bas/width.bas diff --git a/bwbtest/B93/writeinp.bas b/bas/writeinp.bas similarity index 100% rename from bwbtest/B93/writeinp.bas rename to bas/writeinp.bas diff --git a/bwb_cmd.c b/bwb_cmd.c index d627d34..be2ba2d 100644 --- a/bwb_cmd.c +++ b/bwb_cmd.c @@ -36,6 +36,8 @@ /* */ /* Version 3.20 by Howard Wulf, AF5NE */ /* */ +/* Version 3.20A by Ken Martin Mainly corrected fprint issues */ +/* */ /*---------------------------------------------------------------*/ @@ -6260,7 +6262,7 @@ bwb_CMDS (LineType * l) t = 0; for (n = 0; n < NUM_COMMANDS; n++) { - fprintf (My->SYSOUT->cfp, IntrinsicCommandTable[n].name); + fprintf (My->SYSOUT->cfp, "%s", IntrinsicCommandTable[n].name); if (t < 4) { fprintf (My->SYSOUT->cfp, "\t"); @@ -6659,32 +6661,32 @@ DumpAllCommandTableDefinitions (FILE * file) fprintf (file, " "); CommandUniqueID (i, tbuf); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); fprintf (file, ", /* UniqueID */\n"); fprintf (file, " "); fprintf (file, "\""); ProcessEscapeChars (IntrinsicCommandTable[i].Syntax, tbuf); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); fprintf (file, "\""); fprintf (file, ", /* Syntax */\n"); fprintf (file, " "); fprintf (file, "\""); ProcessEscapeChars (IntrinsicCommandTable[i].Description, tbuf); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); fprintf (file, "\""); fprintf (file, ", /* Description */\n"); fprintf (file, " "); fprintf (file, "\""); - fprintf (file, IntrinsicCommandTable[i].name); + fprintf (file, "%s", IntrinsicCommandTable[i].name); fprintf (file, "\""); fprintf (file, ", /* Name */\n"); fprintf (file, " "); CommandOptionVersion (i, tbuf); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); fprintf (file, " /* OptionVersionBitmask */\n"); fprintf (file, "},\n"); @@ -6734,14 +6736,14 @@ DumpAllCommandSwitchStatement (FILE * file) fprintf (file, " "); fprintf (file, "case "); CommandUniqueID (i, tbuf); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); fprintf (file, ":\n"); fprintf (file, " "); fprintf (file, " "); fprintf (file, "r = "); CommandVector (i, tbuf); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); fprintf (file, "( l );\n"); fprintf (file, " "); @@ -6961,13 +6963,13 @@ DumpAllCommandHtmlTable (FILE * file) { fprintf (file, ""); fprintf (file, ""); - fprintf (file, bwb_vertable[j].ID); + fprintf (file, "%s", bwb_vertable[j].ID); fprintf (file, ""); fprintf (file, ""); - fprintf (file, bwb_vertable[j].Name); + fprintf (file, "%s", bwb_vertable[j].Name); fprintf (file, ""); fprintf (file, ""); - fprintf (file, bwb_vertable[j].Description); + fprintf (file, "%s", bwb_vertable[j].Description); fprintf (file, ""); fprintf (file, "\n"); } @@ -6989,7 +6991,7 @@ DumpAllCommandHtmlTable (FILE * file) { fprintf (file, ""); fprintf (file, ""); - fprintf (file, bwb_vertable[j].ID); + fprintf (file, "%s", bwb_vertable[j].ID); fprintf (file, ""); fprintf (file, ""); } @@ -7002,7 +7004,7 @@ DumpAllCommandHtmlTable (FILE * file) { fprintf (file, ""); fprintf (file, ""); - fprintf (file, (char *) IntrinsicCommandTable[i].Syntax); + fprintf (file, "%s", (char *) IntrinsicCommandTable[i].Syntax); fprintf (file, ""); for (j = 0; j < NUM_VERSIONS; j++) @@ -7110,7 +7112,7 @@ bwb_HELP (LineType * l) fprintf (My->SYSOUT->cfp, "The following topics are a partial match:\n"); } - fprintf (My->SYSOUT->cfp, IntrinsicCommandTable[n].name); + fprintf (My->SYSOUT->cfp, "%s", IntrinsicCommandTable[n].name); fprintf (My->SYSOUT->cfp, "\t"); Found = TRUE; } @@ -7125,7 +7127,7 @@ bwb_HELP (LineType * l) fprintf (My->SYSOUT->cfp, "The following topics are a partial match:\n"); } - fprintf (My->SYSOUT->cfp, IntrinsicFunctionTable[n].Name); + fprintf (My->SYSOUT->cfp, "%s", IntrinsicFunctionTable[n].Name); fprintf (My->SYSOUT->cfp, "\t"); Found = TRUE; } @@ -7696,7 +7698,7 @@ DumpAllFunctionSwitch (FILE * file) fprintf (file, "case "); IntrinsicFunctionUniqueID (&(IntrinsicFunctionTable[i]), tbuf); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); fprintf (file, ":\n"); fprintf (file, " break;\n"); } @@ -7796,7 +7798,7 @@ DumpAllFuctionTableDefinitions (FILE * file) fprintf (file, " "); fprintf (file, "\""); ProcessEscapeChars (f->Description, tbuf); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); fprintf (file, "\""); fprintf (file, ", /* Description */\n"); fprintf (file, " \"%s\", /* Name */\n", f->Name); @@ -7857,7 +7859,7 @@ DumpAllFuctionTableDefinitions (FILE * file) } } bwb_strcat (tbuf, ", /* ParameterTypes */\n"); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); bwb_strcpy (tbuf, " "); @@ -7876,7 +7878,7 @@ DumpAllFuctionTableDefinitions (FILE * file) /* Conversion may lose significant digits */ } bwb_strcat (tbuf, ", /* ParameterTests */\n"); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); } bwb_strcpy (tbuf, " "); j = 0; @@ -7893,7 +7895,7 @@ DumpAllFuctionTableDefinitions (FILE * file) } } bwb_strcat (tbuf, " /* OptionVersionBitmask */\n"); - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); fprintf (file, "},\n"); } fprintf (file, "};\n"); @@ -7965,7 +7967,7 @@ DumpOneFunctionSyntax (FILE * file, int IsXref, int n) /* Conversion may lose significant digits */ NumVar++; } - fprintf (file, tbuf); + fprintf (file, "%s", tbuf); fprintf (file, "\n"); ParameterTypes = ParameterTypes >> 1; ParameterTests = ParameterTests >> 4; @@ -8071,13 +8073,13 @@ DumpAllFunctionHtmlTable (FILE * file) { fprintf (file, ""); fprintf (file, ""); - fprintf (file, bwb_vertable[j].ID); + fprintf (file, "%s", bwb_vertable[j].ID); fprintf (file, ""); fprintf (file, ""); - fprintf (file, bwb_vertable[j].Name); + fprintf (file, "%s", bwb_vertable[j].Name); fprintf (file, ""); fprintf (file, ""); - fprintf (file, bwb_vertable[j].Description); + fprintf (file, "%s", bwb_vertable[j].Description); fprintf (file, ""); fprintf (file, "\n"); } @@ -8099,7 +8101,7 @@ DumpAllFunctionHtmlTable (FILE * file) { fprintf (file, ""); fprintf (file, ""); - fprintf (file, bwb_vertable[j].ID); + fprintf (file, "%s", bwb_vertable[j].ID); fprintf (file, ""); fprintf (file, ""); } @@ -8112,7 +8114,7 @@ DumpAllFunctionHtmlTable (FILE * file) { fprintf (file, ""); fprintf (file, ""); - fprintf (file, (char *) IntrinsicFunctionTable[i].Syntax); + fprintf (file, "%s", (char *) IntrinsicFunctionTable[i].Syntax); fprintf (file, ""); for (j = 0; j < NUM_VERSIONS; j++) @@ -8163,7 +8165,7 @@ bwb_FNCS (LineType * l) t = 0; for (n = 0; n < NUM_FUNCTIONS; n++) { - fprintf (My->SYSOUT->cfp, IntrinsicFunctionTable[n].Name); + fprintf (My->SYSOUT->cfp, "%s", IntrinsicFunctionTable[n].Name); if (t < 4) { fprintf (My->SYSOUT->cfp, "\t"); diff --git a/bwb_var.c b/bwb_var.c index 5f8e62e..2e90020 100644 --- a/bwb_var.c +++ b/bwb_var.c @@ -110,7 +110,7 @@ bwb_COMMON (LineType * l) { /* COMMON A(,,) : DIM A( 5, 10, 20 ) */ dimensions++; - while (line_skip_seperator (l)); + while (line_skip_seperator (l)) { dimensions++; } diff --git a/bwbasic.c b/bwbasic.c index 4549495..cfd80f2 100644 --- a/bwbasic.c +++ b/bwbasic.c @@ -36,6 +36,8 @@ /* */ /* Version 3.20 by Howard Wulf, AF5NE */ /* */ +/* Version 3.20A by Ken Martin */ +/* */ /*---------------------------------------------------------------*/ @@ -73,7 +75,6 @@ static char *Banner[] = { "## ## ## ## ## ## ## ## ## ## ## ## ", "######## ## ### ### ## ## ## ######## ## ## ", " ", - " ", " ######## ### ###### #### ###### ", " ## ## ## ## ## ## ## ## ##", " ## ## ## ## ## ## ## ", @@ -82,10 +83,11 @@ static char *Banner[] = { " ## ## ## ## ## ## ## ## ##", " ######## ## ## ###### #### ###### ", " ", - "Bywater BASIC Interpreter, version 3.20 ", + "Bywater BASIC Interpreter, version 3.20A ", "Copyright (c) 1993, Ted A. Campbell ", - "Copyright (c) 1995-1997, Jon B. Volkoff ", - "Copyright (c) 2014-2017, Howard Wulf, AF5NE ", + "Copyright (c) 1995-1997 , Jon B. Volkoff ", + "Copyright (c) 2014-2017 , Howard Wulf, AF5NE ", + "Copyright (c) 11/2019 , Ken Martin ", " ", NULL }; diff --git a/bwbasic.desktop b/bwbasic.desktop new file mode 100644 index 0000000..add1fac --- /dev/null +++ b/bwbasic.desktop @@ -0,0 +1,11 @@ +#!/usr/bin/env xdg-open +[Desktop Entry] +Encoding=UTF-8 +Name=Bywater BASIC +GenericName=Bywater BASIC +Type=Application +Exec=bwbasic +Icon=/usr/share/pixmaps/bwbasic.png +StartupNotify=true +Terminal=true +Categories=Development diff --git a/bwbasic.mak b/bwbasic.mak index 1627117..d03a022 100644 --- a/bwbasic.mak +++ b/bwbasic.mak @@ -1,85 +1,85 @@ -PROJ =BWBASIC -DEBUG =0 -CC =qcl -CFLAGS_G = /AL /W3 /Za /DMSDOS -CFLAGS_D = /Zd /Gi$(PROJ).mdt /Od -CFLAGS_R = /O /Ot /Gs /DNDEBUG -CFLAGS =$(CFLAGS_G) $(CFLAGS_R) -LFLAGS_G = /CP:0xffff /NOI /NOE /SE:0x80 /ST:0x1fa0 -LFLAGS_D = /INCR -LFLAGS_R = -LFLAGS =$(LFLAGS_G) $(LFLAGS_R) -RUNFLAGS = -OBJS_EXT = -LIBS_EXT = - -all: $(PROJ).exe - -bwbasic.obj: bwbasic.c - -bwb_cmd.obj: bwb_cmd.c - -bwb_cnd.obj: bwb_cnd.c - -bwb_dio.obj: bwb_dio.c - -bwb_elx.obj: bwb_elx.c - -bwb_exp.obj: bwb_exp.c - -bwb_fnc.obj: bwb_fnc.c - -bwb_inp.obj: bwb_inp.c - -bwb_int.obj: bwb_int.c - -bwb_mth.obj: bwb_mth.c - -bwb_ops.obj: bwb_ops.c - -bwb_par.obj: bwb_par.c - -bwb_prn.obj: bwb_prn.c - -bwb_stc.obj: bwb_stc.c - -bwb_str.obj: bwb_str.c - -bwb_tbl.obj: bwb_tbl.c - -bwb_var.obj: bwb_var.c - -bwx_tty.obj: bwx_tty.c - -$(PROJ).exe: bwbasic.obj bwb_cmd.obj bwb_cnd.obj bwb_dio.obj bwb_elx.obj bwb_exp.obj \ - bwb_fnc.obj bwb_inp.obj bwb_int.obj bwb_mth.obj bwb_ops.obj bwb_par.obj bwb_prn.obj \ - bwb_stc.obj bwb_str.obj bwb_tbl.obj bwb_var.obj bwx_tty.obj $(OBJS_EXT) - echo >NUL @<<$(PROJ).crf -bwbasic.obj + -bwb_cmd.obj + -bwb_cnd.obj + -bwb_dio.obj + -bwb_elx.obj + -bwb_exp.obj + -bwb_fnc.obj + -bwb_inp.obj + -bwb_int.obj + -bwb_mth.obj + -bwb_ops.obj + -bwb_par.obj + -bwb_prn.obj + -bwb_stc.obj + -bwb_str.obj + -bwb_tbl.obj + -bwb_var.obj + -bwx_tty.obj + -$(OBJS_EXT) -$(PROJ).exe - -$(LIBS_EXT); -<< - link $(LFLAGS) @$(PROJ).crf - -run: $(PROJ).exe - $(PROJ) $(RUNFLAGS) - +PROJ =BWBASIC +DEBUG =0 +CC =qcl +CFLAGS_G = /AL /W3 /Za /DMSDOS +CFLAGS_D = /Zd /Gi$(PROJ).mdt /Od +CFLAGS_R = /O /Ot /Gs /DNDEBUG +CFLAGS =$(CFLAGS_G) $(CFLAGS_R) +LFLAGS_G = /CP:0xffff /NOI /NOE /SE:0x80 /ST:0x1fa0 +LFLAGS_D = /INCR +LFLAGS_R = +LFLAGS =$(LFLAGS_G) $(LFLAGS_R) +RUNFLAGS = +OBJS_EXT = +LIBS_EXT = + +all: $(PROJ).exe + +bwbasic.obj: bwbasic.c + +bwb_cmd.obj: bwb_cmd.c + +bwb_cnd.obj: bwb_cnd.c + +bwb_dio.obj: bwb_dio.c + +bwb_elx.obj: bwb_elx.c + +bwb_exp.obj: bwb_exp.c + +bwb_fnc.obj: bwb_fnc.c + +bwb_inp.obj: bwb_inp.c + +bwb_int.obj: bwb_int.c + +bwb_mth.obj: bwb_mth.c + +bwb_ops.obj: bwb_ops.c + +bwb_par.obj: bwb_par.c + +bwb_prn.obj: bwb_prn.c + +bwb_stc.obj: bwb_stc.c + +bwb_str.obj: bwb_str.c + +bwb_tbl.obj: bwb_tbl.c + +bwb_var.obj: bwb_var.c + +bwx_tty.obj: bwx_tty.c + +$(PROJ).exe: bwbasic.obj bwb_cmd.obj bwb_cnd.obj bwb_dio.obj bwb_elx.obj bwb_exp.obj \ + bwb_fnc.obj bwb_inp.obj bwb_int.obj bwb_mth.obj bwb_ops.obj bwb_par.obj bwb_prn.obj \ + bwb_stc.obj bwb_str.obj bwb_tbl.obj bwb_var.obj bwx_tty.obj $(OBJS_EXT) + echo >NUL @<<$(PROJ).crf +bwbasic.obj + +bwb_cmd.obj + +bwb_cnd.obj + +bwb_dio.obj + +bwb_elx.obj + +bwb_exp.obj + +bwb_fnc.obj + +bwb_inp.obj + +bwb_int.obj + +bwb_mth.obj + +bwb_ops.obj + +bwb_par.obj + +bwb_prn.obj + +bwb_stc.obj + +bwb_str.obj + +bwb_tbl.obj + +bwb_var.obj + +bwx_tty.obj + +$(OBJS_EXT) +$(PROJ).exe + +$(LIBS_EXT); +<< + link $(LFLAGS) @$(PROJ).crf + +run: $(PROJ).exe + $(PROJ) $(RUNFLAGS) + diff --git a/bwbasic.png b/bwbasic.png new file mode 100644 index 0000000..9745723 Binary files /dev/null and b/bwbasic.png differ diff --git a/bwbasic1.jcl b/bwbasic1.jcl index 8def5b0..af4fc57 100644 --- a/bwbasic1.jcl +++ b/bwbasic1.jcl @@ -1,9 +1,9 @@ -//BWBGEN JOB CLASS=C,REGION=0K -//IDCAMS EXEC PGM=IDCAMS -//SYSPRINT DD SYSOUT=* -//SYSIN DD * - DEFINE ALIAS (NAME(BWBASIC) RELATE(SYS1.UCAT.TSO)) - - CATALOG(SYS1.VMASTCAT/SECRET) - SET MAXCC=0 -/* -// +//BWBGEN JOB CLASS=C,REGION=0K +//IDCAMS EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE ALIAS (NAME(BWBASIC) RELATE(SYS1.UCAT.TSO)) - + CATALOG(SYS1.VMASTCAT/SECRET) + SET MAXCC=0 +/* +// diff --git a/bwbasic2.jcl b/bwbasic2.jcl index 1cda0a8..553938d 100644 --- a/bwbasic2.jcl +++ b/bwbasic2.jcl @@ -1,35 +1,35 @@ -//BWBGEN JOB CLASS=C,REGION=0K -//* -//CREATE PROC BWBPREF='BWBASIC' -//DELETE EXEC PGM=IEFBR14 -//DD1 DD DSN=&BWBPREF..SOURCE,DISP=(MOD,DELETE), -// UNIT=SYSALLDA,SPACE=(TRK,(0)) -//DD2 DD DSN=&BWBPREF..INCLUDE,DISP=(MOD,DELETE), -// UNIT=SYSALLDA,SPACE=(TRK,(0)) -//DD3 DD DSN=&BWBPREF..NCALIB,DISP=(MOD,DELETE), -// UNIT=SYSALLDA,SPACE=(TRK,(0)) -//DD4 DD DSN=&BWBPREF..LINKLIB,DISP=(MOD,DELETE), -// UNIT=SYSALLDA,SPACE=(TRK,(0)) -//DD5 DD DSN=&BWBPREF..JCL,DISP=(MOD,DELETE), -// UNIT=SYSALLDA,SPACE=(TRK,(0)) -//* -//ALLOC EXEC PGM=IEFBR14 -//DD1 DD DSN=&BWBPREF..SOURCE,DISP=(,CATLG), -// DCB=(RECFM=VB,LRECL=255,BLKSIZE=6233), -// SPACE=(6233,(180,180,44)),UNIT=SYSALLDA -//DD2 DD DSN=&BWBPREF..INCLUDE,DISP=(,CATLG), -// DCB=(RECFM=VB,LRECL=255,BLKSIZE=6233), -// SPACE=(6233,(26,26,44)),UNIT=SYSALLDA -//DD3 DD DSN=&BWBPREF..NCALIB,DISP=(,CATLG), -// DCB=(RECFM=U,LRECL=0,BLKSIZE=6144), -// SPACE=(6144,(130,130,44)),UNIT=SYSALLDA -//DD4 DD DSN=&BWBPREF..LINKLIB,DISP=(,CATLG), -// DCB=(RECFM=U,LRECL=0,BLKSIZE=6144), -// SPACE=(6144,(130,130,44)),UNIT=SYSALLDA -//DD5 DD DSN=&BWBPREF..JCL,DISP=(,CATLG), -// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080), -// SPACE=(6080,(130,130,44)),UNIT=SYSALLDA -// PEND -//* -//S1 EXEC CREATE -// +//BWBGEN JOB CLASS=C,REGION=0K +//* +//CREATE PROC BWBPREF='BWBASIC' +//DELETE EXEC PGM=IEFBR14 +//DD1 DD DSN=&BWBPREF..SOURCE,DISP=(MOD,DELETE), +// UNIT=SYSALLDA,SPACE=(TRK,(0)) +//DD2 DD DSN=&BWBPREF..INCLUDE,DISP=(MOD,DELETE), +// UNIT=SYSALLDA,SPACE=(TRK,(0)) +//DD3 DD DSN=&BWBPREF..NCALIB,DISP=(MOD,DELETE), +// UNIT=SYSALLDA,SPACE=(TRK,(0)) +//DD4 DD DSN=&BWBPREF..LINKLIB,DISP=(MOD,DELETE), +// UNIT=SYSALLDA,SPACE=(TRK,(0)) +//DD5 DD DSN=&BWBPREF..JCL,DISP=(MOD,DELETE), +// UNIT=SYSALLDA,SPACE=(TRK,(0)) +//* +//ALLOC EXEC PGM=IEFBR14 +//DD1 DD DSN=&BWBPREF..SOURCE,DISP=(,CATLG), +// DCB=(RECFM=VB,LRECL=255,BLKSIZE=6233), +// SPACE=(6233,(180,180,44)),UNIT=SYSALLDA +//DD2 DD DSN=&BWBPREF..INCLUDE,DISP=(,CATLG), +// DCB=(RECFM=VB,LRECL=255,BLKSIZE=6233), +// SPACE=(6233,(26,26,44)),UNIT=SYSALLDA +//DD3 DD DSN=&BWBPREF..NCALIB,DISP=(,CATLG), +// DCB=(RECFM=U,LRECL=0,BLKSIZE=6144), +// SPACE=(6144,(130,130,44)),UNIT=SYSALLDA +//DD4 DD DSN=&BWBPREF..LINKLIB,DISP=(,CATLG), +// DCB=(RECFM=U,LRECL=0,BLKSIZE=6144), +// SPACE=(6144,(130,130,44)),UNIT=SYSALLDA +//DD5 DD DSN=&BWBPREF..JCL,DISP=(,CATLG), +// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080), +// SPACE=(6080,(130,130,44)),UNIT=SYSALLDA +// PEND +//* +//S1 EXEC CREATE +// diff --git a/bwbasic3.jcl b/bwbasic3.jcl index a07da5f..8a7fcbc 100644 --- a/bwbasic3.jcl +++ b/bwbasic3.jcl @@ -1,22 +1,22 @@ -//BWBGEN JOB CLASS=C,REGION=0K -//* -//TRANSFER PROC BWBPREF='BWBASIC',PDPPREF='PDPCLIB' -//DELETE EXEC PGM=IEFBR14 -//DD1 DD DSN=&BWBPREF..ALLZIPS,DISP=(MOD,DELETE), -// UNIT=SYSALLDA,SPACE=(TRK,(0)) -//* -//COPY EXEC PGM=COPYFILE,PARM='-bb dd:in dd:out' -//STEPLIB DD DSN=&PDPPREF..LINKLIB,DISP=SHR -//IN DD DSN=HERC02.IN,DISP=OLD, -// UNIT=TAPE,VOL=SER=PCTOMF,LABEL=(1,NL), -// DCB=(RECFM=U,LRECL=0,BLKSIZE=32760) -//OUT DD DSN=&BWBPREF..ALLZIPS,DISP=(,CATLG), -// SPACE=(6233,(220,220),RLSE),UNIT=SYSALLDA, -// DCB=(RECFM=U,LRECL=0,BLKSIZE=6233) -//SYSIN DD DUMMY -//SYSPRINT DD SYSOUT=* -//SYSTERM DD SYSOUT=* -// PEND -//* -//S1 EXEC TRANSFER -// +//BWBGEN JOB CLASS=C,REGION=0K +//* +//TRANSFER PROC BWBPREF='BWBASIC',PDPPREF='PDPCLIB' +//DELETE EXEC PGM=IEFBR14 +//DD1 DD DSN=&BWBPREF..ALLZIPS,DISP=(MOD,DELETE), +// UNIT=SYSALLDA,SPACE=(TRK,(0)) +//* +//COPY EXEC PGM=COPYFILE,PARM='-bb dd:in dd:out' +//STEPLIB DD DSN=&PDPPREF..LINKLIB,DISP=SHR +//IN DD DSN=HERC02.IN,DISP=OLD, +// UNIT=TAPE,VOL=SER=PCTOMF,LABEL=(1,NL), +// DCB=(RECFM=U,LRECL=0,BLKSIZE=32760) +//OUT DD DSN=&BWBPREF..ALLZIPS,DISP=(,CATLG), +// SPACE=(6233,(220,220),RLSE),UNIT=SYSALLDA, +// DCB=(RECFM=U,LRECL=0,BLKSIZE=6233) +//SYSIN DD DUMMY +//SYSPRINT DD SYSOUT=* +//SYSTERM DD SYSOUT=* +// PEND +//* +//S1 EXEC TRANSFER +// diff --git a/bwbasic4.jcl b/bwbasic4.jcl index 3ba3868..0e30f0f 100644 --- a/bwbasic4.jcl +++ b/bwbasic4.jcl @@ -1,32 +1,32 @@ -//BWBGEN JOB CLASS=C,REGION=0K -//* -//CREATE EXEC PGM=IEFBR14 -//DD1 DD DSN=&&ZIPS,DISP=(,PASS), -// DCB=(RECFM=U,LRECL=0,BLKSIZE=6233), -// SPACE=(6233,(220,220,44)),UNIT=SYSALLDA -//* -//UNZIP1 PROC MINPREF='MINIZIP',BWBPREF='BWBASIC' -//MINI EXEC PGM=MINIUNZ,PARM='dd:input dd:output' -//STEPLIB DD DSN=&MINPREF..LINKLIB,DISP=SHR -//INPUT DD DSN=&BWBPREF..ALLZIPS,DISP=SHR -//OUTPUT DD DSN=&&ZIPS,DISP=(OLD,PASS) -//SYSIN DD DUMMY -//SYSPRINT DD SYSOUT=* -//SYSTERM DD SYSOUT=* -// PEND -//* -//UNZIP2 PROC IN=,OUT=,MINPREF='MINIZIP',BWBPREF='BWBASIC' -//MINI EXEC PGM=MINIUNZ,PARM='-a dd:input dd:output' -//STEPLIB DD DSN=&MINPREF..LINKLIB,DISP=SHR -//INPUT DD DSN=&&ZIPS(&IN),DISP=(OLD,PASS) -//OUTPUT DD DSN=&BWBPREF..&OUT,DISP=SHR -//SYSIN DD DUMMY -//SYSPRINT DD SYSOUT=* -//SYSTERM DD SYSOUT=* -// PEND -//* -//S1 EXEC UNZIP1 -//S2 EXEC UNZIP2,IN='BWBSRC',OUT='SOURCE' -//S3 EXEC UNZIP2,IN='BWBINC',OUT='INCLUDE' -//S4 EXEC UNZIP2,IN='BWBJCL',OUT='JCL' -// +//BWBGEN JOB CLASS=C,REGION=0K +//* +//CREATE EXEC PGM=IEFBR14 +//DD1 DD DSN=&&ZIPS,DISP=(,PASS), +// DCB=(RECFM=U,LRECL=0,BLKSIZE=6233), +// SPACE=(6233,(220,220,44)),UNIT=SYSALLDA +//* +//UNZIP1 PROC MINPREF='MINIZIP',BWBPREF='BWBASIC' +//MINI EXEC PGM=MINIUNZ,PARM='dd:input dd:output' +//STEPLIB DD DSN=&MINPREF..LINKLIB,DISP=SHR +//INPUT DD DSN=&BWBPREF..ALLZIPS,DISP=SHR +//OUTPUT DD DSN=&&ZIPS,DISP=(OLD,PASS) +//SYSIN DD DUMMY +//SYSPRINT DD SYSOUT=* +//SYSTERM DD SYSOUT=* +// PEND +//* +//UNZIP2 PROC IN=,OUT=,MINPREF='MINIZIP',BWBPREF='BWBASIC' +//MINI EXEC PGM=MINIUNZ,PARM='-a dd:input dd:output' +//STEPLIB DD DSN=&MINPREF..LINKLIB,DISP=SHR +//INPUT DD DSN=&&ZIPS(&IN),DISP=(OLD,PASS) +//OUTPUT DD DSN=&BWBPREF..&OUT,DISP=SHR +//SYSIN DD DUMMY +//SYSPRINT DD SYSOUT=* +//SYSTERM DD SYSOUT=* +// PEND +//* +//S1 EXEC UNZIP1 +//S2 EXEC UNZIP2,IN='BWBSRC',OUT='SOURCE' +//S3 EXEC UNZIP2,IN='BWBINC',OUT='INCLUDE' +//S4 EXEC UNZIP2,IN='BWBJCL',OUT='JCL' +// diff --git a/bwbasic5.jcl b/bwbasic5.jcl index 982964e..cbe69fa 100644 --- a/bwbasic5.jcl +++ b/bwbasic5.jcl @@ -1,64 +1,64 @@ -//BWBGEN JOB CLASS=C,REGION=0K -//* -//BWBCMP PROC BWBPREF='BWBASIC',MEMBER='',GCCPREF='GCC', -// PDPPREF='PDPCLIB', -// COS1='-Os -S -ansi', -// COS2='-o dd:out -' -//* -//COMP EXEC PGM=GCC, -// PARM='&COS1 &COS2' -//STEPLIB DD DSN=&GCCPREF..LINKLIB,DISP=SHR -//SYSIN DD DSN=&BWBPREF..SOURCE(&MEMBER),DISP=SHR -//INCLUDE DD DSN=&BWBPREF..INCLUDE,DISP=SHR,DCB=BLKSIZE=32720 -// DD DSN=&PDPPREF..INCLUDE,DISP=SHR -//SYSINCL DD DSN=&BWBPREF..INCLUDE,DISP=SHR,DCB=BLKSIZE=32720 -// DD DSN=&PDPPREF..INCLUDE,DISP=SHR -//OUT DD DSN=&&TEMP1,DISP=(,PASS),UNIT=SYSALLDA, -// DCB=(LRECL=80,BLKSIZE=6080,RECFM=FB), -// SPACE=(6080,(500,500)) -//SYSPRINT DD SYSOUT=* -//SYSTERM DD SYSOUT=* -//* -//ASM EXEC PGM=ASMA90, -// PARM='DECK,NOLIST', -// COND=(4,LT,COMP) -//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR -// DD DSN=&PDPPREF..MACLIB,DISP=SHR -//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(20,10)) -//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(20,10)) -//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1)) -//SYSPRINT DD SYSOUT=* -//SYSLIN DD DUMMY -//SYSGO DD DUMMY -//SYSPUNCH DD DSN=&&OBJSET,UNIT=SYSALLDA,SPACE=(80,(240,200)), -// DISP=(,PASS) -//SYSIN DD DSN=&&TEMP1,DISP=(OLD,DELETE) -//* -//LKED EXEC PGM=IEWL,PARM='NCAL', -// COND=((4,LT,COMP),(0,LT,ASM)) -//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) -//SYSLMOD DD DSN=&BWBPREF..NCALIB(&MEMBER),DISP=SHR -//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1)) -//SYSPRINT DD SYSOUT=* -// PEND -//* -//BWBASIC EXEC BWBCMP,MEMBER=BWBASIC -//BWB@INT EXEC BWBCMP,MEMBER=BWB@INT -//BWB@TBL EXEC BWBCMP,MEMBER=BWB@TBL -//BWB@CMD EXEC BWBCMP,MEMBER=BWB@CMD -//BWB@PRN EXEC BWBCMP,MEMBER=BWB@PRN -//BWB@EXP EXEC BWBCMP,MEMBER=BWB@EXP -//BWB@VAR EXEC BWBCMP,MEMBER=BWB@VAR -//BWB@INP EXEC BWBCMP,MEMBER=BWB@INP -//BWB@FNC EXEC BWBCMP,MEMBER=BWB@FNC -//BWB@CND EXEC BWBCMP,MEMBER=BWB@CND -//BWB@DIO EXEC BWBCMP,MEMBER=BWB@DIO -//BWB@STR EXEC BWBCMP,MEMBER=BWB@STR -//BWB@STC EXEC BWBCMP,MEMBER=BWB@STC -//BWX@TTY EXEC BWBCMP,MEMBER=BWX@TTY -//BWD@CMD EXEC BWBCMP,MEMBER=BWD@CMD -//BWD@FUN EXEC BWBCMP,MEMBER=BWD@FUN -//UNIXIO EXEC BWBCMP,MEMBER=UNIXIO -//RENUM EXEC BWBCMP,MEMBER=RENUM -//* -// +//BWBGEN JOB CLASS=C,REGION=0K +//* +//BWBCMP PROC BWBPREF='BWBASIC',MEMBER='',GCCPREF='GCC', +// PDPPREF='PDPCLIB', +// COS1='-Os -S -ansi', +// COS2='-o dd:out -' +//* +//COMP EXEC PGM=GCC, +// PARM='&COS1 &COS2' +//STEPLIB DD DSN=&GCCPREF..LINKLIB,DISP=SHR +//SYSIN DD DSN=&BWBPREF..SOURCE(&MEMBER),DISP=SHR +//INCLUDE DD DSN=&BWBPREF..INCLUDE,DISP=SHR,DCB=BLKSIZE=32720 +// DD DSN=&PDPPREF..INCLUDE,DISP=SHR +//SYSINCL DD DSN=&BWBPREF..INCLUDE,DISP=SHR,DCB=BLKSIZE=32720 +// DD DSN=&PDPPREF..INCLUDE,DISP=SHR +//OUT DD DSN=&&TEMP1,DISP=(,PASS),UNIT=SYSALLDA, +// DCB=(LRECL=80,BLKSIZE=6080,RECFM=FB), +// SPACE=(6080,(500,500)) +//SYSPRINT DD SYSOUT=* +//SYSTERM DD SYSOUT=* +//* +//ASM EXEC PGM=ASMA90, +// PARM='DECK,NOLIST', +// COND=(4,LT,COMP) +//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR +// DD DSN=&PDPPREF..MACLIB,DISP=SHR +//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(20,10)) +//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(20,10)) +//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1)) +//SYSPRINT DD SYSOUT=* +//SYSLIN DD DUMMY +//SYSGO DD DUMMY +//SYSPUNCH DD DSN=&&OBJSET,UNIT=SYSALLDA,SPACE=(80,(240,200)), +// DISP=(,PASS) +//SYSIN DD DSN=&&TEMP1,DISP=(OLD,DELETE) +//* +//LKED EXEC PGM=IEWL,PARM='NCAL', +// COND=((4,LT,COMP),(0,LT,ASM)) +//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE) +//SYSLMOD DD DSN=&BWBPREF..NCALIB(&MEMBER),DISP=SHR +//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1)) +//SYSPRINT DD SYSOUT=* +// PEND +//* +//BWBASIC EXEC BWBCMP,MEMBER=BWBASIC +//BWB@INT EXEC BWBCMP,MEMBER=BWB@INT +//BWB@TBL EXEC BWBCMP,MEMBER=BWB@TBL +//BWB@CMD EXEC BWBCMP,MEMBER=BWB@CMD +//BWB@PRN EXEC BWBCMP,MEMBER=BWB@PRN +//BWB@EXP EXEC BWBCMP,MEMBER=BWB@EXP +//BWB@VAR EXEC BWBCMP,MEMBER=BWB@VAR +//BWB@INP EXEC BWBCMP,MEMBER=BWB@INP +//BWB@FNC EXEC BWBCMP,MEMBER=BWB@FNC +//BWB@CND EXEC BWBCMP,MEMBER=BWB@CND +//BWB@DIO EXEC BWBCMP,MEMBER=BWB@DIO +//BWB@STR EXEC BWBCMP,MEMBER=BWB@STR +//BWB@STC EXEC BWBCMP,MEMBER=BWB@STC +//BWX@TTY EXEC BWBCMP,MEMBER=BWX@TTY +//BWD@CMD EXEC BWBCMP,MEMBER=BWD@CMD +//BWD@FUN EXEC BWBCMP,MEMBER=BWD@FUN +//UNIXIO EXEC BWBCMP,MEMBER=UNIXIO +//RENUM EXEC BWBCMP,MEMBER=RENUM +//* +// diff --git a/bwbasic6.jcl b/bwbasic6.jcl index a97e1d6..deff54b 100644 --- a/bwbasic6.jcl +++ b/bwbasic6.jcl @@ -1,38 +1,38 @@ -//BWBGEN JOB CLASS=C,REGION=0K -//LINK PROC BWBPREF='BWBASIC',PDPPREF='PDPCLIB',EXE='' -//LKED EXEC PGM=IEWL,PARM='MAP,LIST,SIZE=(999424,65536)' -//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(30,10)) -//SYSPRINT DD SYSOUT=* -//SYSLIB DD DSN=&PDPPREF..NCALIB,DISP=SHR,DCB=BLKSIZE=32760 -// DD DSN=&BWBPREF..NCALIB,DISP=SHR -//SYSLMOD DD DSN=&BWBPREF..LINKLIB(&EXE),DISP=SHR -// PEND -//DOLINK1 EXEC LINK,EXE=BWBASIC -//LKED.SYSLIN DD * - INCLUDE SYSLIB(BWBASIC) - INCLUDE SYSLIB(BWB@INT) - INCLUDE SYSLIB(BWB@TBL) - INCLUDE SYSLIB(BWB@CMD) - INCLUDE SYSLIB(BWB@PRN) - INCLUDE SYSLIB(BWB@EXP) - INCLUDE SYSLIB(BWB@VAR) - INCLUDE SYSLIB(BWB@INP) - INCLUDE SYSLIB(BWB@FNC) - INCLUDE SYSLIB(BWB@CND) - INCLUDE SYSLIB(BWB@DIO) - INCLUDE SYSLIB(BWB@STR) - INCLUDE SYSLIB(BWB@STC) - INCLUDE SYSLIB(BWX@TTY) - INCLUDE SYSLIB(BWD@CMD) - INCLUDE SYSLIB(BWD@FUN) - INCLUDE SYSLIB(UNIXIO) - ENTRY @@MAIN -/* -//* -//DOLINK2 EXEC LINK,EXE=RENUM -//LKED.SYSLIN DD * - INCLUDE SYSLIB(RENUM) - ENTRY @@MAIN -/* -//* -// +//BWBGEN JOB CLASS=C,REGION=0K +//LINK PROC BWBPREF='BWBASIC',PDPPREF='PDPCLIB',EXE='' +//LKED EXEC PGM=IEWL,PARM='MAP,LIST,SIZE=(999424,65536)' +//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(30,10)) +//SYSPRINT DD SYSOUT=* +//SYSLIB DD DSN=&PDPPREF..NCALIB,DISP=SHR,DCB=BLKSIZE=32760 +// DD DSN=&BWBPREF..NCALIB,DISP=SHR +//SYSLMOD DD DSN=&BWBPREF..LINKLIB(&EXE),DISP=SHR +// PEND +//DOLINK1 EXEC LINK,EXE=BWBASIC +//LKED.SYSLIN DD * + INCLUDE SYSLIB(BWBASIC) + INCLUDE SYSLIB(BWB@INT) + INCLUDE SYSLIB(BWB@TBL) + INCLUDE SYSLIB(BWB@CMD) + INCLUDE SYSLIB(BWB@PRN) + INCLUDE SYSLIB(BWB@EXP) + INCLUDE SYSLIB(BWB@VAR) + INCLUDE SYSLIB(BWB@INP) + INCLUDE SYSLIB(BWB@FNC) + INCLUDE SYSLIB(BWB@CND) + INCLUDE SYSLIB(BWB@DIO) + INCLUDE SYSLIB(BWB@STR) + INCLUDE SYSLIB(BWB@STC) + INCLUDE SYSLIB(BWX@TTY) + INCLUDE SYSLIB(BWD@CMD) + INCLUDE SYSLIB(BWD@FUN) + INCLUDE SYSLIB(UNIXIO) + ENTRY @@MAIN +/* +//* +//DOLINK2 EXEC LINK,EXE=RENUM +//LKED.SYSLIN DD * + INCLUDE SYSLIB(RENUM) + ENTRY @@MAIN +/* +//* +// diff --git a/bwbasic7.jcl b/bwbasic7.jcl index a2e164b..5dbf5eb 100644 --- a/bwbasic7.jcl +++ b/bwbasic7.jcl @@ -1,45 +1,45 @@ -//BWBGEN JOB CLASS=C,REGION=0K -//* -//RUNBW PROC BWBPREF='BWBASIC' -//BWBASIC EXEC PGM=BWBASIC,PARM='DD:INPUT' -//STEPLIB DD DSN=&BWBPREF..LINKLIB,DISP=SHR -//SYSIN DD DUMMY -//SYSPRINT DD SYSOUT=* -//SYSTERM DD SYSOUT=* -// PEND -//* -//RUNRE PROC BWBPREF='BWBASIC' -//BWBASIC EXEC PGM=RENUM,PARM='DD:INPUT' -//STEPLIB DD DSN=&BWBPREF..LINKLIB,DISP=SHR -//SYSIN DD DUMMY -//SYSPRINT DD SYSOUT=* -//SYSTERM DD SYSOUT=* -// PEND -//* -//CLEAN PROC BWBPREF='BWBASIC' -//DELETE EXEC PGM=IEFBR14 -//DD0 DD DSN=&BWBPREF..ALLZIPS,DISP=(MOD,DELETE), -// UNIT=SYSALLDA,SPACE=(TRK,(0)) -//DD3 DD DSN=&BWBPREF..NCALIB,DISP=(MOD,DELETE), -// UNIT=SYSALLDA,SPACE=(TRK,(0)) -// PEND -//* -//S1 EXEC RUNBW -//INPUT DD * -x = 1 -print "hello, world",x -x = 2 -print "hello, world",x -end -/* -//* -//S2 EXEC RUNRE -//INPUT DD * -5 hi -7 folks -9 there -/* -//EDITFL DD SYSOUT=* -//* -//S3 EXEC CLEAN -// +//BWBGEN JOB CLASS=C,REGION=0K +//* +//RUNBW PROC BWBPREF='BWBASIC' +//BWBASIC EXEC PGM=BWBASIC,PARM='DD:INPUT' +//STEPLIB DD DSN=&BWBPREF..LINKLIB,DISP=SHR +//SYSIN DD DUMMY +//SYSPRINT DD SYSOUT=* +//SYSTERM DD SYSOUT=* +// PEND +//* +//RUNRE PROC BWBPREF='BWBASIC' +//BWBASIC EXEC PGM=RENUM,PARM='DD:INPUT' +//STEPLIB DD DSN=&BWBPREF..LINKLIB,DISP=SHR +//SYSIN DD DUMMY +//SYSPRINT DD SYSOUT=* +//SYSTERM DD SYSOUT=* +// PEND +//* +//CLEAN PROC BWBPREF='BWBASIC' +//DELETE EXEC PGM=IEFBR14 +//DD0 DD DSN=&BWBPREF..ALLZIPS,DISP=(MOD,DELETE), +// UNIT=SYSALLDA,SPACE=(TRK,(0)) +//DD3 DD DSN=&BWBPREF..NCALIB,DISP=(MOD,DELETE), +// UNIT=SYSALLDA,SPACE=(TRK,(0)) +// PEND +//* +//S1 EXEC RUNBW +//INPUT DD * +x = 1 +print "hello, world",x +x = 2 +print "hello, world",x +end +/* +//* +//S2 EXEC RUNRE +//INPUT DD * +5 hi +7 folks +9 there +/* +//EDITFL DD SYSOUT=* +//* +//S3 EXEC CLEAN +// diff --git a/bwbtest/B15A/00readme.txt b/bwbtest/B15A/00readme.txt deleted file mode 100644 index 0000c2a..0000000 --- a/bwbtest/B15A/00readme.txt +++ /dev/null @@ -1 +0,0 @@ -These programs are part of regression testing. diff --git a/bwbtest/B15A/00test.sh b/bwbtest/B15A/00test.sh deleted file mode 100644 index 3183201..0000000 --- a/bwbtest/B15A/00test.sh +++ /dev/null @@ -1,85 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-02-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/bwbtest -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile B15.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- - -testcase abs -testcase assign -testcase callfunc -testcase callsub -testcase chain1 -testcase chain2 -testcase dataread -testcase deffn -testcase dim -testcase doloop -testcase dowhile -testcase elseif -testcase end -testcase err -testcase fncallfn -testcase fornext -testcase function -testcase gosub -testcase gotolabl -testcase ifline -testcase input -testcase lof -testcase loopuntl -testcase main -testcase mlifthen -testcase on -testcase onerr -testcase onerrlbl -testcase ongosub -testcase opentest -testcase option -testcase pascaltr -testcase putget -testcase random -testcase selcase -testcase snglfunc -testcase stop -testcase term -testcase whilwend -testcase width -testcase writeinp -testcase error1 -testcase error2 -testcase error3 -testcase error4 -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/B15A/01test.sh b/bwbtest/B15A/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/B15A/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/B15A/02ok.sh b/bwbtest/B15A/02ok.sh deleted file mode 100644 index 118fddc..0000000 --- a/bwbtest/B15A/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/bwskytel -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/B15A/99test.sh b/bwbtest/B15A/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/B15A/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/B15A/B15.PRO b/bwbtest/B15A/B15.PRO deleted file mode 100644 index 0450560..0000000 --- a/bwbtest/B15A/B15.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" - diff --git a/bwbtest/B15A/PAD80.BAS b/bwbtest/B15A/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/B15A/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/B15A/PAD80.INP b/bwbtest/B15A/PAD80.INP deleted file mode 100644 index 4693f02..0000000 --- a/bwbtest/B15A/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA error4.OUT, error4.80 diff --git a/bwbtest/B15A/PAD80.PRO b/bwbtest/B15A/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/B15A/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/B15A/abs.run b/bwbtest/B15A/abs.run deleted file mode 100644 index cb01bcc..0000000 --- a/bwbtest/B15A/abs.run +++ /dev/null @@ -1,2 +0,0 @@ -The absolute value of -1.23457 is 1.23457 -Is that correct? diff --git a/bwbtest/B15A/assign.bas b/bwbtest/B15A/assign.bas deleted file mode 100644 index 625eb93..0000000 --- a/bwbtest/B15A/assign.bas +++ /dev/null @@ -1,3 +0,0 @@ -10 Print "TEST.BAS -- TEST" -20 X=7 -30 print "X is ";X diff --git a/bwbtest/B15A/assign.run b/bwbtest/B15A/assign.run deleted file mode 100644 index f160add..0000000 --- a/bwbtest/B15A/assign.run +++ /dev/null @@ -1,2 +0,0 @@ -TEST.BAS -- TEST -X is 7 diff --git a/bwbtest/B15A/callfunc.bas b/bwbtest/B15A/callfunc.bas deleted file mode 100644 index 62c63c1..0000000 --- a/bwbtest/B15A/callfunc.bas +++ /dev/null @@ -1,39 +0,0 @@ - -rem ---------------------------------------------------- -rem CallFunc.BAS -rem ---------------------------------------------------- - -Print "CallFunc.BAS -- Test BASIC User-defined Function Statements" -Print "The next printed line should be from the Function." -Print -testvar = 17 - -x = TestFnc( 5, "Hello", testvar ) - -Print -Print "This is back at the main program. " -Print "The value of variable is now "; testvar -Print "The returned value from the function is "; x - -Print "Did it work?" -End - -rem ---------------------------------------------------- -rem Subroutine TestFnc -rem ---------------------------------------------------- - -Function TestFnc( xarg, yarg$, tvar ) - Print "This is written from the Function." - Print "The value of variable is"; xarg - Print "The value of variable is "; yarg$ - Print "The value of variable is "; tvar - tvar = 99 - Print "The value of variable is reset to "; tvar - TestFnc = xarg + tvar - rem - rem The following is considered a recursive call: - rem Print "The Function should return "; TestFnc - rem Instead of using the above, use the following: - Result = xarg + tvar - Print "The Function should return "; Result -End Function diff --git a/bwbtest/B15A/callfunc.run b/bwbtest/B15A/callfunc.run deleted file mode 100644 index edfedfb..0000000 --- a/bwbtest/B15A/callfunc.run +++ /dev/null @@ -1,14 +0,0 @@ -CallFunc.BAS -- Test BASIC User-defined Function Statements -The next printed line should be from the Function. - -This is written from the Function. -The value of variable is 5 -The value of variable is Hello -The value of variable is 17 -The value of variable is reset to 99 -The Function should return 104 - -This is back at the main program. -The value of variable is now 17 -The returned value from the function is 104 -Did it work? diff --git a/bwbtest/B15A/callsub.run b/bwbtest/B15A/callsub.run deleted file mode 100644 index ce661ec..0000000 --- a/bwbtest/B15A/callsub.run +++ /dev/null @@ -1,12 +0,0 @@ -CallSub.BAS -- Test BASIC Call and Sub Statements -The next printed line should be from the Subroutine. - -This is written from the Subroutine. -The value of variable is 5 -The value of variable is Hello -The value of variable is 17 -The value of variable is reset to 99 - -This is back at the main program. -The value of variable is now 17 -Did it work? diff --git a/bwbtest/B15A/chain1.bas b/bwbtest/B15A/chain1.bas deleted file mode 100644 index aa5a85e..0000000 --- a/bwbtest/B15A/chain1.bas +++ /dev/null @@ -1,7 +0,0 @@ -REM CHAIN1.BAS -print "This is program CHAIN1.BAS" -X = 5.6789 -common X -print "The value of X is";X -print "We shall no pass execution to program CHAIN2.BAS..." -chain "chain2.bas" diff --git a/bwbtest/B15A/chain1.run b/bwbtest/B15A/chain1.run deleted file mode 100644 index dc7fb99..0000000 --- a/bwbtest/B15A/chain1.run +++ /dev/null @@ -1,6 +0,0 @@ -This is program CHAIN1.BAS -The value of X is 5.6789 -We shall no pass execution to program CHAIN2.BAS... -This is program CHAIN2.BAS -The value of X is now 5.6789 -This concludes our CHAIN test. diff --git a/bwbtest/B15A/chain2.bas b/bwbtest/B15A/chain2.bas deleted file mode 100644 index bbe2c36..0000000 --- a/bwbtest/B15A/chain2.bas +++ /dev/null @@ -1,4 +0,0 @@ -REM CHAIN2.BAS -print "This is program CHAIN2.BAS" -print "The value of X is now";X -print "This concludes our CHAIN test." diff --git a/bwbtest/B15A/chain2.run b/bwbtest/B15A/chain2.run deleted file mode 100644 index 944fef8..0000000 --- a/bwbtest/B15A/chain2.run +++ /dev/null @@ -1,3 +0,0 @@ -This is program CHAIN2.BAS -The value of X is now 0 -This concludes our CHAIN test. diff --git a/bwbtest/B15A/data.tmp b/bwbtest/B15A/data.tmp deleted file mode 100644 index 408b6b0..0000000 --- a/bwbtest/B15A/data.tmp +++ /dev/null @@ -1 +0,0 @@ -"String 1",1.12346,"String 2",2.23457,"String 3",3.34568 diff --git a/bwbtest/B15A/dataread.bas b/bwbtest/B15A/dataread.bas deleted file mode 100644 index b2d4ff6..0000000 --- a/bwbtest/B15A/dataread.bas +++ /dev/null @@ -1,14 +0,0 @@ -10 rem DATAREAD.BAS -- Test DATA, READ, and RESTORE Statements -20 print "DATAREAD.BAS -- Test DATA, READ, and RESTORE Statements" -30 DATA "Ted", 56.789 -40 REM just to see if it advances correctly -50 DATA "Dale", 45.678 - 60 READ N$, NUMBER, ANOTHER$ - 70 READ ANUMBER - 80 PRINT "Data read: ";N$;" ";NUMBER;" ";ANOTHER$;" ";ANUMBER -90 RESTORE 30 - 100 READ ANOTHER$ - 110 READ ANUMBER, N$,NUMBER - 120 PRINT "After RESTORE:" - 130 PRINT "Data read: ";ANOTHER$;" ";ANUMBER;" ";N$;" ";NUMBER -140 END diff --git a/bwbtest/B15A/dataread.run b/bwbtest/B15A/dataread.run deleted file mode 100644 index 60299f5..0000000 --- a/bwbtest/B15A/dataread.run +++ /dev/null @@ -1,4 +0,0 @@ -DATAREAD.BAS -- Test DATA, READ, and RESTORE Statements -Data read: Ted 56.789 Dale 45.678 -After RESTORE: -Data read: Ted 56.789 Dale 45.678 diff --git a/bwbtest/B15A/deffn.bas b/bwbtest/B15A/deffn.bas deleted file mode 100644 index d3a52a4..0000000 --- a/bwbtest/B15A/deffn.bas +++ /dev/null @@ -1,7 +0,0 @@ -10 REM ------------------------------------------ -20 PRINT "DEFFN.BAS -- Test DEF FN Statement" -30 DEF fnadd( x, y ) = x + y -40 PRINT fnadd( 2, 3 ) -50 DEF fnjoin$( a$, b$ ) = a$ + b$ -60 PRINT fnjoin$( chr$( &h43 ), "orrect" ) -70 END diff --git a/bwbtest/B15A/deffn.run b/bwbtest/B15A/deffn.run deleted file mode 100644 index 5c4be7f..0000000 --- a/bwbtest/B15A/deffn.run +++ /dev/null @@ -1,3 +0,0 @@ -DEFFN.BAS -- Test DEF FN Statement - 5 -Correct diff --git a/bwbtest/B15A/dim.bas b/bwbtest/B15A/dim.bas deleted file mode 100644 index fefb6dd..0000000 --- a/bwbtest/B15A/dim.bas +++ /dev/null @@ -1,6 +0,0 @@ -10 DIM n(5) -20 FOR i = 0 to 5 -30 LET n(i) = i + 2 -40 PRINT "The value at position ";i;" is ";n(i) -50 NEXT i -60 END diff --git a/bwbtest/B15A/dim.run b/bwbtest/B15A/dim.run deleted file mode 100644 index e104629..0000000 --- a/bwbtest/B15A/dim.run +++ /dev/null @@ -1,6 +0,0 @@ -The value at position 0 is 2 -The value at position 1 is 3 -The value at position 2 is 4 -The value at position 3 is 5 -The value at position 4 is 6 -The value at position 5 is 7 diff --git a/bwbtest/B15A/doloop.bas b/bwbtest/B15A/doloop.bas deleted file mode 100644 index f8eddda..0000000 --- a/bwbtest/B15A/doloop.bas +++ /dev/null @@ -1,9 +0,0 @@ -10 i = 0 -20 do -30 i = i + 1 -40 print "i is";i -50 if i > 12 then - exit do - end if -60 loop -70 print "End" diff --git a/bwbtest/B15A/doloop.run b/bwbtest/B15A/doloop.run deleted file mode 100644 index 46d5c3c..0000000 --- a/bwbtest/B15A/doloop.run +++ /dev/null @@ -1,14 +0,0 @@ -i is 1 -i is 2 -i is 3 -i is 4 -i is 5 -i is 6 -i is 7 -i is 8 -i is 9 -i is 10 -i is 11 -i is 12 -i is 13 -End diff --git a/bwbtest/B15A/dowhile.bas b/bwbtest/B15A/dowhile.bas deleted file mode 100644 index ff3ce05..0000000 --- a/bwbtest/B15A/dowhile.bas +++ /dev/null @@ -1,13 +0,0 @@ -10 REM DOWHILE.BAS -- Test DO WHILE-LOOP -20 PRINT "START" -30 LET X = 0 -40 DO WHILE X < 25 -50 PRINT "x is ";X -60 LET X = X + 1 -70 LET Y = 0 -80 DO WHILE Y < 2 -90 PRINT "y is "; Y -100 LET Y = Y + 1 -110 LOOP -120 LOOP -130 PRINT "END" diff --git a/bwbtest/B15A/dowhile.run b/bwbtest/B15A/dowhile.run deleted file mode 100644 index 90353ba..0000000 --- a/bwbtest/B15A/dowhile.run +++ /dev/null @@ -1,77 +0,0 @@ -START -x is 0 -y is 0 -y is 1 -x is 1 -y is 0 -y is 1 -x is 2 -y is 0 -y is 1 -x is 3 -y is 0 -y is 1 -x is 4 -y is 0 -y is 1 -x is 5 -y is 0 -y is 1 -x is 6 -y is 0 -y is 1 -x is 7 -y is 0 -y is 1 -x is 8 -y is 0 -y is 1 -x is 9 -y is 0 -y is 1 -x is 10 -y is 0 -y is 1 -x is 11 -y is 0 -y is 1 -x is 12 -y is 0 -y is 1 -x is 13 -y is 0 -y is 1 -x is 14 -y is 0 -y is 1 -x is 15 -y is 0 -y is 1 -x is 16 -y is 0 -y is 1 -x is 17 -y is 0 -y is 1 -x is 18 -y is 0 -y is 1 -x is 19 -y is 0 -y is 1 -x is 20 -y is 0 -y is 1 -x is 21 -y is 0 -y is 1 -x is 22 -y is 0 -y is 1 -x is 23 -y is 0 -y is 1 -x is 24 -y is 0 -y is 1 -END diff --git a/bwbtest/B15A/elseif.INP b/bwbtest/B15A/elseif.INP deleted file mode 100644 index 7ed6ff8..0000000 --- a/bwbtest/B15A/elseif.INP +++ /dev/null @@ -1 +0,0 @@ -5 diff --git a/bwbtest/B15A/elseif.bas b/bwbtest/B15A/elseif.bas deleted file mode 100644 index f91e2a0..0000000 --- a/bwbtest/B15A/elseif.bas +++ /dev/null @@ -1,26 +0,0 @@ - -rem ----------------------------------------------------- -rem elseif.bas -- Test MultiLine IF-ELSEIF-THEN statement -rem ----------------------------------------------------- - -Print "ELSEIF.BAS -- Test MultiLine IF-THEN-ELSE Constructions" - -Print -Print "The program should detect if the number you enter is 4 or 5 or 6." -Input "Please enter a number, 1-9"; x - -If x = 4 then - Print "The number is 4." - -Elseif x = 5 then - Print "The number is 5." - -Elseif x = 6 then - Print "The number is 6." - -Else - Print "The number is neither 4 nor 5 nor 6." - -End If - -Print "This concludes our test." diff --git a/bwbtest/B15A/elseif.run b/bwbtest/B15A/elseif.run deleted file mode 100644 index f1b51f0..0000000 --- a/bwbtest/B15A/elseif.run +++ /dev/null @@ -1,6 +0,0 @@ -ELSEIF.BAS -- Test MultiLine IF-THEN-ELSE Constructions - -The program should detect if the number you enter is 4 or 5 or 6. -Please enter a number, 1-9? 5 -The number is 5. -This concludes our test. diff --git a/bwbtest/B15A/end.bas b/bwbtest/B15A/end.bas deleted file mode 100644 index 6ca2807..0000000 --- a/bwbtest/B15A/end.bas +++ /dev/null @@ -1,6 +0,0 @@ -10 REM END.BAS -- Test END Statement -20 PRINT "END.BAS -- Test END Statement" -30 PRINT "If the program ends after this line, END worked OK." -40 END -50 PRINT "But if this line printed, then it did not work." -60 END diff --git a/bwbtest/B15A/end.run b/bwbtest/B15A/end.run deleted file mode 100644 index f89e2f5..0000000 --- a/bwbtest/B15A/end.run +++ /dev/null @@ -1,2 +0,0 @@ -END.BAS -- Test END Statement -If the program ends after this line, END worked OK. diff --git a/bwbtest/B15A/err.bas b/bwbtest/B15A/err.bas deleted file mode 100644 index 92fa7a2..0000000 --- a/bwbtest/B15A/err.bas +++ /dev/null @@ -1,3 +0,0 @@ -10 dim n(5) -20 print n(7) -30 end diff --git a/bwbtest/B15A/err.run b/bwbtest/B15A/err.run deleted file mode 100644 index 2bead3b..0000000 --- a/bwbtest/B15A/err.run +++ /dev/null @@ -1,5 +0,0 @@ - -ERROR in line 20: Subscript out of range - -STACK TRACE: -20:print n(7) diff --git a/bwbtest/B15A/error1.bas b/bwbtest/B15A/error1.bas deleted file mode 100644 index e5fb795..0000000 --- a/bwbtest/B15A/error1.bas +++ /dev/null @@ -1,8 +0,0 @@ - 100 rem test - 110 on error goto 200 - 120 for x == 1 to 10 - 130 print x - 140 next x - 150 goto 999 - 200 print "ERL="; ERL; ",ERR="; ERR; ", ERR$="; ERR$ - 999 end diff --git a/bwbtest/B15A/error1.run b/bwbtest/B15A/error1.run deleted file mode 100644 index d3488e7..0000000 --- a/bwbtest/B15A/error1.run +++ /dev/null @@ -1 +0,0 @@ -ERL= 120 ,ERR= 2 , ERR$=Syntax error diff --git a/bwbtest/B15A/error2.bas b/bwbtest/B15A/error2.bas deleted file mode 100644 index 41e7872..0000000 --- a/bwbtest/B15A/error2.bas +++ /dev/null @@ -1,16 +0,0 @@ - 100 rem Test ERROR( X ) - 105 rem NOTE: ERROR 0 should NOT cause any error whatsoever (it clears the error status) - 110 on error goto 200 - 120 for i = 0 to 255 - 125 rem print "i="; i - 130 error i - 134 rem print "RESUME NEXT should have cleared ERR"; ERR - 135 if ERR <> 0 goto 999 - 140 next i - 150 goto 999 - 200 print "ERL="; ERL; ", ERR="; ERR; ", ERR$="; ERR$ - 202 if ERL <> 130 goto 999 - 205 if ERR = 0 goto 999 - 210 resume next - 999 end - diff --git a/bwbtest/B15A/error2.run b/bwbtest/B15A/error2.run deleted file mode 100644 index a45769e..0000000 --- a/bwbtest/B15A/error2.run +++ /dev/null @@ -1,255 +0,0 @@ -ERL= 130 , ERR= 1 , ERR$=NEXT without FOR -ERL= 130 , ERR= 2 , ERR$=Syntax error -ERL= 130 , ERR= 3 , ERR$=RETURN without GOSUB -ERL= 130 , ERR= 4 , ERR$=Out of DATA -ERL= 130 , ERR= 5 , ERR$=Illegal function call -ERL= 130 , ERR= 6 , ERR$=Overflow -ERL= 130 , ERR= 7 , ERR$=Out of memory -ERL= 130 , ERR= 8 , ERR$=Undefined line -ERL= 130 , ERR= 9 , ERR$=Subscript out of range -ERL= 130 , ERR= 10 , ERR$=Redimensioned array -ERL= 130 , ERR= 11 , ERR$=Division by zero -ERL= 130 , ERR= 12 , ERR$=Illegal direct -ERL= 130 , ERR= 13 , ERR$=Type mismatch -ERL= 130 , ERR= 14 , ERR$=Out of string space -ERL= 130 , ERR= 15 , ERR$=String too long -ERL= 130 , ERR= 16 , ERR$=String formula too complex -ERL= 130 , ERR= 17 , ERR$=Can't continue -ERL= 130 , ERR= 18 , ERR$=Undefined user function -ERL= 130 , ERR= 19 , ERR$=No RESUME -ERL= 130 , ERR= 20 , ERR$=RESUME without error -ERL= 130 , ERR= 21 , ERR$=Unprintable error -ERL= 130 , ERR= 22 , ERR$=Missing operand -ERL= 130 , ERR= 23 , ERR$=Line buffer overflow -ERL= 130 , ERR= 24 , ERR$= -ERL= 130 , ERR= 25 , ERR$= -ERL= 130 , ERR= 26 , ERR$=FOR without NEXT -ERL= 130 , ERR= 27 , ERR$=Bad DATA -ERL= 130 , ERR= 28 , ERR$= -ERL= 130 , ERR= 29 , ERR$=WHILE without WEND -ERL= 130 , ERR= 30 , ERR$=WEND without WHILE -ERL= 130 , ERR= 31 , ERR$=EXIT FUNCTION without FUNCTION -ERL= 130 , ERR= 32 , ERR$=END FUNCTION without FUNCTION -ERL= 130 , ERR= 33 , ERR$=EXIT SUB without SUB -ERL= 130 , ERR= 34 , ERR$=END SUB without SUB -ERL= 130 , ERR= 35 , ERR$=EXIT FOR without FOR -ERL= 130 , ERR= 36 , ERR$= -ERL= 130 , ERR= 37 , ERR$= -ERL= 130 , ERR= 38 , ERR$= -ERL= 130 , ERR= 39 , ERR$= -ERL= 130 , ERR= 40 , ERR$= -ERL= 130 , ERR= 41 , ERR$= -ERL= 130 , ERR= 42 , ERR$= -ERL= 130 , ERR= 43 , ERR$= -ERL= 130 , ERR= 44 , ERR$= -ERL= 130 , ERR= 45 , ERR$= -ERL= 130 , ERR= 46 , ERR$= -ERL= 130 , ERR= 47 , ERR$= -ERL= 130 , ERR= 48 , ERR$= -ERL= 130 , ERR= 49 , ERR$= -ERL= 130 , ERR= 50 , ERR$=Field overflow -ERL= 130 , ERR= 51 , ERR$=Internal error -ERL= 130 , ERR= 52 , ERR$=Bad file number -ERL= 130 , ERR= 53 , ERR$=File not found -ERL= 130 , ERR= 54 , ERR$=Bad file mode -ERL= 130 , ERR= 55 , ERR$=File already open -ERL= 130 , ERR= 56 , ERR$= -ERL= 130 , ERR= 57 , ERR$=Disk I/O error -ERL= 130 , ERR= 58 , ERR$=File already exists -ERL= 130 , ERR= 59 , ERR$= -ERL= 130 , ERR= 60 , ERR$= -ERL= 130 , ERR= 61 , ERR$=Disk full -ERL= 130 , ERR= 62 , ERR$=Input past end -ERL= 130 , ERR= 63 , ERR$=Bad record number -ERL= 130 , ERR= 64 , ERR$=Bad file name -ERL= 130 , ERR= 65 , ERR$= -ERL= 130 , ERR= 66 , ERR$=Direct statement in file -ERL= 130 , ERR= 67 , ERR$=Too many files -ERL= 130 , ERR= 68 , ERR$= -ERL= 130 , ERR= 69 , ERR$= -ERL= 130 , ERR= 70 , ERR$=Variable Not Declared -ERL= 130 , ERR= 71 , ERR$= -ERL= 130 , ERR= 72 , ERR$= -ERL= 130 , ERR= 73 , ERR$=Advanced Feature -ERL= 130 , ERR= 74 , ERR$= -ERL= 130 , ERR= 75 , ERR$= -ERL= 130 , ERR= 76 , ERR$= -ERL= 130 , ERR= 77 , ERR$= -ERL= 130 , ERR= 78 , ERR$= -ERL= 130 , ERR= 79 , ERR$= -ERL= 130 , ERR= 80 , ERR$= -ERL= 130 , ERR= 81 , ERR$= -ERL= 130 , ERR= 82 , ERR$= -ERL= 130 , ERR= 83 , ERR$= -ERL= 130 , ERR= 84 , ERR$= -ERL= 130 , ERR= 85 , ERR$= -ERL= 130 , ERR= 86 , ERR$= -ERL= 130 , ERR= 87 , ERR$= -ERL= 130 , ERR= 88 , ERR$= -ERL= 130 , ERR= 89 , ERR$= -ERL= 130 , ERR= 90 , ERR$= -ERL= 130 , ERR= 91 , ERR$= -ERL= 130 , ERR= 92 , ERR$= -ERL= 130 , ERR= 93 , ERR$= -ERL= 130 , ERR= 94 , ERR$= -ERL= 130 , ERR= 95 , ERR$= -ERL= 130 , ERR= 96 , ERR$= -ERL= 130 , ERR= 97 , ERR$= -ERL= 130 , ERR= 98 , ERR$= -ERL= 130 , ERR= 99 , ERR$= -ERL= 130 , ERR= 100 , ERR$= -ERL= 130 , ERR= 101 , ERR$= -ERL= 130 , ERR= 102 , ERR$= -ERL= 130 , ERR= 103 , ERR$= -ERL= 130 , ERR= 104 , ERR$= -ERL= 130 , ERR= 105 , ERR$= -ERL= 130 , ERR= 106 , ERR$= -ERL= 130 , ERR= 107 , ERR$= -ERL= 130 , ERR= 108 , ERR$= -ERL= 130 , ERR= 109 , ERR$= -ERL= 130 , ERR= 110 , ERR$= -ERL= 130 , ERR= 111 , ERR$= -ERL= 130 , ERR= 112 , ERR$= -ERL= 130 , ERR= 113 , ERR$= -ERL= 130 , ERR= 114 , ERR$= -ERL= 130 , ERR= 115 , ERR$= -ERL= 130 , ERR= 116 , ERR$= -ERL= 130 , ERR= 117 , ERR$= -ERL= 130 , ERR= 118 , ERR$= -ERL= 130 , ERR= 119 , ERR$= -ERL= 130 , ERR= 120 , ERR$= -ERL= 130 , ERR= 121 , ERR$= -ERL= 130 , ERR= 122 , ERR$= -ERL= 130 , ERR= 123 , ERR$= -ERL= 130 , ERR= 124 , ERR$= -ERL= 130 , ERR= 125 , ERR$= -ERL= 130 , ERR= 126 , ERR$= -ERL= 130 , ERR= 127 , ERR$= -ERL= 130 , ERR= 128 , ERR$= -ERL= 130 , ERR= 129 , ERR$= -ERL= 130 , ERR= 130 , ERR$= -ERL= 130 , ERR= 131 , ERR$= -ERL= 130 , ERR= 132 , ERR$= -ERL= 130 , ERR= 133 , ERR$= -ERL= 130 , ERR= 134 , ERR$= -ERL= 130 , ERR= 135 , ERR$= -ERL= 130 , ERR= 136 , ERR$= -ERL= 130 , ERR= 137 , ERR$= -ERL= 130 , ERR= 138 , ERR$= -ERL= 130 , ERR= 139 , ERR$= -ERL= 130 , ERR= 140 , ERR$= -ERL= 130 , ERR= 141 , ERR$= -ERL= 130 , ERR= 142 , ERR$= -ERL= 130 , ERR= 143 , ERR$= -ERL= 130 , ERR= 144 , ERR$= -ERL= 130 , ERR= 145 , ERR$= -ERL= 130 , ERR= 146 , ERR$= -ERL= 130 , ERR= 147 , ERR$= -ERL= 130 , ERR= 148 , ERR$= -ERL= 130 , ERR= 149 , ERR$= -ERL= 130 , ERR= 150 , ERR$= -ERL= 130 , ERR= 151 , ERR$= -ERL= 130 , ERR= 152 , ERR$= -ERL= 130 , ERR= 153 , ERR$= -ERL= 130 , ERR= 154 , ERR$= -ERL= 130 , ERR= 155 , ERR$= -ERL= 130 , ERR= 156 , ERR$= -ERL= 130 , ERR= 157 , ERR$= -ERL= 130 , ERR= 158 , ERR$= -ERL= 130 , ERR= 159 , ERR$= -ERL= 130 , ERR= 160 , ERR$= -ERL= 130 , ERR= 161 , ERR$= -ERL= 130 , ERR= 162 , ERR$= -ERL= 130 , ERR= 163 , ERR$= -ERL= 130 , ERR= 164 , ERR$= -ERL= 130 , ERR= 165 , ERR$= -ERL= 130 , ERR= 166 , ERR$= -ERL= 130 , ERR= 167 , ERR$= -ERL= 130 , ERR= 168 , ERR$= -ERL= 130 , ERR= 169 , ERR$= -ERL= 130 , ERR= 170 , ERR$= -ERL= 130 , ERR= 171 , ERR$= -ERL= 130 , ERR= 172 , ERR$= -ERL= 130 , ERR= 173 , ERR$= -ERL= 130 , ERR= 174 , ERR$= -ERL= 130 , ERR= 175 , ERR$= -ERL= 130 , ERR= 176 , ERR$= -ERL= 130 , ERR= 177 , ERR$= -ERL= 130 , ERR= 178 , ERR$= -ERL= 130 , ERR= 179 , ERR$= -ERL= 130 , ERR= 180 , ERR$= -ERL= 130 , ERR= 181 , ERR$= -ERL= 130 , ERR= 182 , ERR$= -ERL= 130 , ERR= 183 , ERR$= -ERL= 130 , ERR= 184 , ERR$= -ERL= 130 , ERR= 185 , ERR$= -ERL= 130 , ERR= 186 , ERR$= -ERL= 130 , ERR= 187 , ERR$= -ERL= 130 , ERR= 188 , ERR$= -ERL= 130 , ERR= 189 , ERR$= -ERL= 130 , ERR= 190 , ERR$= -ERL= 130 , ERR= 191 , ERR$= -ERL= 130 , ERR= 192 , ERR$= -ERL= 130 , ERR= 193 , ERR$= -ERL= 130 , ERR= 194 , ERR$= -ERL= 130 , ERR= 195 , ERR$= -ERL= 130 , ERR= 196 , ERR$= -ERL= 130 , ERR= 197 , ERR$= -ERL= 130 , ERR= 198 , ERR$= -ERL= 130 , ERR= 199 , ERR$= -ERL= 130 , ERR= 200 , ERR$= -ERL= 130 , ERR= 201 , ERR$= -ERL= 130 , ERR= 202 , ERR$= -ERL= 130 , ERR= 203 , ERR$= -ERL= 130 , ERR= 204 , ERR$= -ERL= 130 , ERR= 205 , ERR$= -ERL= 130 , ERR= 206 , ERR$= -ERL= 130 , ERR= 207 , ERR$= -ERL= 130 , ERR= 208 , ERR$= -ERL= 130 , ERR= 209 , ERR$= -ERL= 130 , ERR= 210 , ERR$= -ERL= 130 , ERR= 211 , ERR$= -ERL= 130 , ERR= 212 , ERR$= -ERL= 130 , ERR= 213 , ERR$= -ERL= 130 , ERR= 214 , ERR$= -ERL= 130 , ERR= 215 , ERR$= -ERL= 130 , ERR= 216 , ERR$= -ERL= 130 , ERR= 217 , ERR$= -ERL= 130 , ERR= 218 , ERR$= -ERL= 130 , ERR= 219 , ERR$= -ERL= 130 , ERR= 220 , ERR$= -ERL= 130 , ERR= 221 , ERR$= -ERL= 130 , ERR= 222 , ERR$= -ERL= 130 , ERR= 223 , ERR$= -ERL= 130 , ERR= 224 , ERR$= -ERL= 130 , ERR= 225 , ERR$= -ERL= 130 , ERR= 226 , ERR$= -ERL= 130 , ERR= 227 , ERR$= -ERL= 130 , ERR= 228 , ERR$= -ERL= 130 , ERR= 229 , ERR$= -ERL= 130 , ERR= 230 , ERR$= -ERL= 130 , ERR= 231 , ERR$= -ERL= 130 , ERR= 232 , ERR$= -ERL= 130 , ERR= 233 , ERR$= -ERL= 130 , ERR= 234 , ERR$= -ERL= 130 , ERR= 235 , ERR$= -ERL= 130 , ERR= 236 , ERR$= -ERL= 130 , ERR= 237 , ERR$= -ERL= 130 , ERR= 238 , ERR$= -ERL= 130 , ERR= 239 , ERR$= -ERL= 130 , ERR= 240 , ERR$= -ERL= 130 , ERR= 241 , ERR$= -ERL= 130 , ERR= 242 , ERR$= -ERL= 130 , ERR= 243 , ERR$= -ERL= 130 , ERR= 244 , ERR$= -ERL= 130 , ERR= 245 , ERR$= -ERL= 130 , ERR= 246 , ERR$= -ERL= 130 , ERR= 247 , ERR$= -ERL= 130 , ERR= 248 , ERR$= -ERL= 130 , ERR= 249 , ERR$= -ERL= 130 , ERR= 250 , ERR$= -ERL= 130 , ERR= 251 , ERR$= -ERL= 130 , ERR= 252 , ERR$= -ERL= 130 , ERR= 253 , ERR$= -ERL= 130 , ERR= 254 , ERR$= -ERL= 130 , ERR= 255 , ERR$= diff --git a/bwbtest/B15A/error3.bas b/bwbtest/B15A/error3.bas deleted file mode 100644 index 99f7ad5..0000000 --- a/bwbtest/B15A/error3.bas +++ /dev/null @@ -1,15 +0,0 @@ - 100 rem Test ERROR( X, A$ ) - 105 rem NOTE: ERROR 0 should NOT cause any error whatsoever (it clears the error status) - 110 on error goto 200 - 120 for i = 0 to 255 - 130 error i, "#" & str$(i) - 134 rem RESUME NEXT on line 210 should have cleared ERR - 135 if ERR <> 0 goto 999 - 140 next i - 150 goto 999 - 200 print "ERL="; ERL; ", ERR="; ERR; ", ERR$="; ERR$ - 202 if ERL <> 130 goto 999 - 205 if ERR = 0 goto 999 - 210 resume next - 999 end - diff --git a/bwbtest/B15A/error3.run b/bwbtest/B15A/error3.run deleted file mode 100644 index da96246..0000000 --- a/bwbtest/B15A/error3.run +++ /dev/null @@ -1,255 +0,0 @@ -ERL= 130 , ERR= 1 , ERR$=# 1 -ERL= 130 , ERR= 2 , ERR$=# 2 -ERL= 130 , ERR= 3 , ERR$=# 3 -ERL= 130 , ERR= 4 , ERR$=# 4 -ERL= 130 , ERR= 5 , ERR$=# 5 -ERL= 130 , ERR= 6 , ERR$=# 6 -ERL= 130 , ERR= 7 , ERR$=# 7 -ERL= 130 , ERR= 8 , ERR$=# 8 -ERL= 130 , ERR= 9 , ERR$=# 9 -ERL= 130 , ERR= 10 , ERR$=# 10 -ERL= 130 , ERR= 11 , ERR$=# 11 -ERL= 130 , ERR= 12 , ERR$=# 12 -ERL= 130 , ERR= 13 , ERR$=# 13 -ERL= 130 , ERR= 14 , ERR$=# 14 -ERL= 130 , ERR= 15 , ERR$=# 15 -ERL= 130 , ERR= 16 , ERR$=# 16 -ERL= 130 , ERR= 17 , ERR$=# 17 -ERL= 130 , ERR= 18 , ERR$=# 18 -ERL= 130 , ERR= 19 , ERR$=# 19 -ERL= 130 , ERR= 20 , ERR$=# 20 -ERL= 130 , ERR= 21 , ERR$=# 21 -ERL= 130 , ERR= 22 , ERR$=# 22 -ERL= 130 , ERR= 23 , ERR$=# 23 -ERL= 130 , ERR= 24 , ERR$=# 24 -ERL= 130 , ERR= 25 , ERR$=# 25 -ERL= 130 , ERR= 26 , ERR$=# 26 -ERL= 130 , ERR= 27 , ERR$=# 27 -ERL= 130 , ERR= 28 , ERR$=# 28 -ERL= 130 , ERR= 29 , ERR$=# 29 -ERL= 130 , ERR= 30 , ERR$=# 30 -ERL= 130 , ERR= 31 , ERR$=# 31 -ERL= 130 , ERR= 32 , ERR$=# 32 -ERL= 130 , ERR= 33 , ERR$=# 33 -ERL= 130 , ERR= 34 , ERR$=# 34 -ERL= 130 , ERR= 35 , ERR$=# 35 -ERL= 130 , ERR= 36 , ERR$=# 36 -ERL= 130 , ERR= 37 , ERR$=# 37 -ERL= 130 , ERR= 38 , ERR$=# 38 -ERL= 130 , ERR= 39 , ERR$=# 39 -ERL= 130 , ERR= 40 , ERR$=# 40 -ERL= 130 , ERR= 41 , ERR$=# 41 -ERL= 130 , ERR= 42 , ERR$=# 42 -ERL= 130 , ERR= 43 , ERR$=# 43 -ERL= 130 , ERR= 44 , ERR$=# 44 -ERL= 130 , ERR= 45 , ERR$=# 45 -ERL= 130 , ERR= 46 , ERR$=# 46 -ERL= 130 , ERR= 47 , ERR$=# 47 -ERL= 130 , ERR= 48 , ERR$=# 48 -ERL= 130 , ERR= 49 , ERR$=# 49 -ERL= 130 , ERR= 50 , ERR$=# 50 -ERL= 130 , ERR= 51 , ERR$=# 51 -ERL= 130 , ERR= 52 , ERR$=# 52 -ERL= 130 , ERR= 53 , ERR$=# 53 -ERL= 130 , ERR= 54 , ERR$=# 54 -ERL= 130 , ERR= 55 , ERR$=# 55 -ERL= 130 , ERR= 56 , ERR$=# 56 -ERL= 130 , ERR= 57 , ERR$=# 57 -ERL= 130 , ERR= 58 , ERR$=# 58 -ERL= 130 , ERR= 59 , ERR$=# 59 -ERL= 130 , ERR= 60 , ERR$=# 60 -ERL= 130 , ERR= 61 , ERR$=# 61 -ERL= 130 , ERR= 62 , ERR$=# 62 -ERL= 130 , ERR= 63 , ERR$=# 63 -ERL= 130 , ERR= 64 , ERR$=# 64 -ERL= 130 , ERR= 65 , ERR$=# 65 -ERL= 130 , ERR= 66 , ERR$=# 66 -ERL= 130 , ERR= 67 , ERR$=# 67 -ERL= 130 , ERR= 68 , ERR$=# 68 -ERL= 130 , ERR= 69 , ERR$=# 69 -ERL= 130 , ERR= 70 , ERR$=# 70 -ERL= 130 , ERR= 71 , ERR$=# 71 -ERL= 130 , ERR= 72 , ERR$=# 72 -ERL= 130 , ERR= 73 , ERR$=# 73 -ERL= 130 , ERR= 74 , ERR$=# 74 -ERL= 130 , ERR= 75 , ERR$=# 75 -ERL= 130 , ERR= 76 , ERR$=# 76 -ERL= 130 , ERR= 77 , ERR$=# 77 -ERL= 130 , ERR= 78 , ERR$=# 78 -ERL= 130 , ERR= 79 , ERR$=# 79 -ERL= 130 , ERR= 80 , ERR$=# 80 -ERL= 130 , ERR= 81 , ERR$=# 81 -ERL= 130 , ERR= 82 , ERR$=# 82 -ERL= 130 , ERR= 83 , ERR$=# 83 -ERL= 130 , ERR= 84 , ERR$=# 84 -ERL= 130 , ERR= 85 , ERR$=# 85 -ERL= 130 , ERR= 86 , ERR$=# 86 -ERL= 130 , ERR= 87 , ERR$=# 87 -ERL= 130 , ERR= 88 , ERR$=# 88 -ERL= 130 , ERR= 89 , ERR$=# 89 -ERL= 130 , ERR= 90 , ERR$=# 90 -ERL= 130 , ERR= 91 , ERR$=# 91 -ERL= 130 , ERR= 92 , ERR$=# 92 -ERL= 130 , ERR= 93 , ERR$=# 93 -ERL= 130 , ERR= 94 , ERR$=# 94 -ERL= 130 , ERR= 95 , ERR$=# 95 -ERL= 130 , ERR= 96 , ERR$=# 96 -ERL= 130 , ERR= 97 , ERR$=# 97 -ERL= 130 , ERR= 98 , ERR$=# 98 -ERL= 130 , ERR= 99 , ERR$=# 99 -ERL= 130 , ERR= 100 , ERR$=# 100 -ERL= 130 , ERR= 101 , ERR$=# 101 -ERL= 130 , ERR= 102 , ERR$=# 102 -ERL= 130 , ERR= 103 , ERR$=# 103 -ERL= 130 , ERR= 104 , ERR$=# 104 -ERL= 130 , ERR= 105 , ERR$=# 105 -ERL= 130 , ERR= 106 , ERR$=# 106 -ERL= 130 , ERR= 107 , ERR$=# 107 -ERL= 130 , ERR= 108 , ERR$=# 108 -ERL= 130 , ERR= 109 , ERR$=# 109 -ERL= 130 , ERR= 110 , ERR$=# 110 -ERL= 130 , ERR= 111 , ERR$=# 111 -ERL= 130 , ERR= 112 , ERR$=# 112 -ERL= 130 , ERR= 113 , ERR$=# 113 -ERL= 130 , ERR= 114 , ERR$=# 114 -ERL= 130 , ERR= 115 , ERR$=# 115 -ERL= 130 , ERR= 116 , ERR$=# 116 -ERL= 130 , ERR= 117 , ERR$=# 117 -ERL= 130 , ERR= 118 , ERR$=# 118 -ERL= 130 , ERR= 119 , ERR$=# 119 -ERL= 130 , ERR= 120 , ERR$=# 120 -ERL= 130 , ERR= 121 , ERR$=# 121 -ERL= 130 , ERR= 122 , ERR$=# 122 -ERL= 130 , ERR= 123 , ERR$=# 123 -ERL= 130 , ERR= 124 , ERR$=# 124 -ERL= 130 , ERR= 125 , ERR$=# 125 -ERL= 130 , ERR= 126 , ERR$=# 126 -ERL= 130 , ERR= 127 , ERR$=# 127 -ERL= 130 , ERR= 128 , ERR$=# 128 -ERL= 130 , ERR= 129 , ERR$=# 129 -ERL= 130 , ERR= 130 , ERR$=# 130 -ERL= 130 , ERR= 131 , ERR$=# 131 -ERL= 130 , ERR= 132 , ERR$=# 132 -ERL= 130 , ERR= 133 , ERR$=# 133 -ERL= 130 , ERR= 134 , ERR$=# 134 -ERL= 130 , ERR= 135 , ERR$=# 135 -ERL= 130 , ERR= 136 , ERR$=# 136 -ERL= 130 , ERR= 137 , ERR$=# 137 -ERL= 130 , ERR= 138 , ERR$=# 138 -ERL= 130 , ERR= 139 , ERR$=# 139 -ERL= 130 , ERR= 140 , ERR$=# 140 -ERL= 130 , ERR= 141 , ERR$=# 141 -ERL= 130 , ERR= 142 , ERR$=# 142 -ERL= 130 , ERR= 143 , ERR$=# 143 -ERL= 130 , ERR= 144 , ERR$=# 144 -ERL= 130 , ERR= 145 , ERR$=# 145 -ERL= 130 , ERR= 146 , ERR$=# 146 -ERL= 130 , ERR= 147 , ERR$=# 147 -ERL= 130 , ERR= 148 , ERR$=# 148 -ERL= 130 , ERR= 149 , ERR$=# 149 -ERL= 130 , ERR= 150 , ERR$=# 150 -ERL= 130 , ERR= 151 , ERR$=# 151 -ERL= 130 , ERR= 152 , ERR$=# 152 -ERL= 130 , ERR= 153 , ERR$=# 153 -ERL= 130 , ERR= 154 , ERR$=# 154 -ERL= 130 , ERR= 155 , ERR$=# 155 -ERL= 130 , ERR= 156 , ERR$=# 156 -ERL= 130 , ERR= 157 , ERR$=# 157 -ERL= 130 , ERR= 158 , ERR$=# 158 -ERL= 130 , ERR= 159 , ERR$=# 159 -ERL= 130 , ERR= 160 , ERR$=# 160 -ERL= 130 , ERR= 161 , ERR$=# 161 -ERL= 130 , ERR= 162 , ERR$=# 162 -ERL= 130 , ERR= 163 , ERR$=# 163 -ERL= 130 , ERR= 164 , ERR$=# 164 -ERL= 130 , ERR= 165 , ERR$=# 165 -ERL= 130 , ERR= 166 , ERR$=# 166 -ERL= 130 , ERR= 167 , ERR$=# 167 -ERL= 130 , ERR= 168 , ERR$=# 168 -ERL= 130 , ERR= 169 , ERR$=# 169 -ERL= 130 , ERR= 170 , ERR$=# 170 -ERL= 130 , ERR= 171 , ERR$=# 171 -ERL= 130 , ERR= 172 , ERR$=# 172 -ERL= 130 , ERR= 173 , ERR$=# 173 -ERL= 130 , ERR= 174 , ERR$=# 174 -ERL= 130 , ERR= 175 , ERR$=# 175 -ERL= 130 , ERR= 176 , ERR$=# 176 -ERL= 130 , ERR= 177 , ERR$=# 177 -ERL= 130 , ERR= 178 , ERR$=# 178 -ERL= 130 , ERR= 179 , ERR$=# 179 -ERL= 130 , ERR= 180 , ERR$=# 180 -ERL= 130 , ERR= 181 , ERR$=# 181 -ERL= 130 , ERR= 182 , ERR$=# 182 -ERL= 130 , ERR= 183 , ERR$=# 183 -ERL= 130 , ERR= 184 , ERR$=# 184 -ERL= 130 , ERR= 185 , ERR$=# 185 -ERL= 130 , ERR= 186 , ERR$=# 186 -ERL= 130 , ERR= 187 , ERR$=# 187 -ERL= 130 , ERR= 188 , ERR$=# 188 -ERL= 130 , ERR= 189 , ERR$=# 189 -ERL= 130 , ERR= 190 , ERR$=# 190 -ERL= 130 , ERR= 191 , ERR$=# 191 -ERL= 130 , ERR= 192 , ERR$=# 192 -ERL= 130 , ERR= 193 , ERR$=# 193 -ERL= 130 , ERR= 194 , ERR$=# 194 -ERL= 130 , ERR= 195 , ERR$=# 195 -ERL= 130 , ERR= 196 , ERR$=# 196 -ERL= 130 , ERR= 197 , ERR$=# 197 -ERL= 130 , ERR= 198 , ERR$=# 198 -ERL= 130 , ERR= 199 , ERR$=# 199 -ERL= 130 , ERR= 200 , ERR$=# 200 -ERL= 130 , ERR= 201 , ERR$=# 201 -ERL= 130 , ERR= 202 , ERR$=# 202 -ERL= 130 , ERR= 203 , ERR$=# 203 -ERL= 130 , ERR= 204 , ERR$=# 204 -ERL= 130 , ERR= 205 , ERR$=# 205 -ERL= 130 , ERR= 206 , ERR$=# 206 -ERL= 130 , ERR= 207 , ERR$=# 207 -ERL= 130 , ERR= 208 , ERR$=# 208 -ERL= 130 , ERR= 209 , ERR$=# 209 -ERL= 130 , ERR= 210 , ERR$=# 210 -ERL= 130 , ERR= 211 , ERR$=# 211 -ERL= 130 , ERR= 212 , ERR$=# 212 -ERL= 130 , ERR= 213 , ERR$=# 213 -ERL= 130 , ERR= 214 , ERR$=# 214 -ERL= 130 , ERR= 215 , ERR$=# 215 -ERL= 130 , ERR= 216 , ERR$=# 216 -ERL= 130 , ERR= 217 , ERR$=# 217 -ERL= 130 , ERR= 218 , ERR$=# 218 -ERL= 130 , ERR= 219 , ERR$=# 219 -ERL= 130 , ERR= 220 , ERR$=# 220 -ERL= 130 , ERR= 221 , ERR$=# 221 -ERL= 130 , ERR= 222 , ERR$=# 222 -ERL= 130 , ERR= 223 , ERR$=# 223 -ERL= 130 , ERR= 224 , ERR$=# 224 -ERL= 130 , ERR= 225 , ERR$=# 225 -ERL= 130 , ERR= 226 , ERR$=# 226 -ERL= 130 , ERR= 227 , ERR$=# 227 -ERL= 130 , ERR= 228 , ERR$=# 228 -ERL= 130 , ERR= 229 , ERR$=# 229 -ERL= 130 , ERR= 230 , ERR$=# 230 -ERL= 130 , ERR= 231 , ERR$=# 231 -ERL= 130 , ERR= 232 , ERR$=# 232 -ERL= 130 , ERR= 233 , ERR$=# 233 -ERL= 130 , ERR= 234 , ERR$=# 234 -ERL= 130 , ERR= 235 , ERR$=# 235 -ERL= 130 , ERR= 236 , ERR$=# 236 -ERL= 130 , ERR= 237 , ERR$=# 237 -ERL= 130 , ERR= 238 , ERR$=# 238 -ERL= 130 , ERR= 239 , ERR$=# 239 -ERL= 130 , ERR= 240 , ERR$=# 240 -ERL= 130 , ERR= 241 , ERR$=# 241 -ERL= 130 , ERR= 242 , ERR$=# 242 -ERL= 130 , ERR= 243 , ERR$=# 243 -ERL= 130 , ERR= 244 , ERR$=# 244 -ERL= 130 , ERR= 245 , ERR$=# 245 -ERL= 130 , ERR= 246 , ERR$=# 246 -ERL= 130 , ERR= 247 , ERR$=# 247 -ERL= 130 , ERR= 248 , ERR$=# 248 -ERL= 130 , ERR= 249 , ERR$=# 249 -ERL= 130 , ERR= 250 , ERR$=# 250 -ERL= 130 , ERR= 251 , ERR$=# 251 -ERL= 130 , ERR= 252 , ERR$=# 252 -ERL= 130 , ERR= 253 , ERR$=# 253 -ERL= 130 , ERR= 254 , ERR$=# 254 -ERL= 130 , ERR= 255 , ERR$=# 255 diff --git a/bwbtest/B15A/error4.bas b/bwbtest/B15A/error4.bas deleted file mode 100644 index f0a384a..0000000 --- a/bwbtest/B15A/error4.bas +++ /dev/null @@ -1,8 +0,0 @@ - 100 rem Test ERROR 73 - 110 on error goto 200 - 120 out 1, 2 - 130 print "test failed" - 140 goto 999 - 200 print "ERL="; ERL; ", ERR="; ERR; ", ERR$="; ERR$ - 999 end - diff --git a/bwbtest/B15A/error4.run b/bwbtest/B15A/error4.run deleted file mode 100644 index 789545a..0000000 --- a/bwbtest/B15A/error4.run +++ /dev/null @@ -1 +0,0 @@ -ERL= 120 , ERR= 73 , ERR$=Advanced Feature diff --git a/bwbtest/B15A/fncallfn.bas b/bwbtest/B15A/fncallfn.bas deleted file mode 100644 index 809a29b..0000000 --- a/bwbtest/B15A/fncallfn.bas +++ /dev/null @@ -1,9 +0,0 @@ -10 rem FNCALLFN.BAS -- Test User-defined function called -20 rem from user-defined function -30 def fnabs(x) = abs(x) -40 def fncmp(y) = 1.45678+fnabs(y) -50 print "Test user-defined function calling user-defined function" -60 print "The result should be: ";2.45678 -70 q = -1.000 -80 print "The result is: : "; fncmp( q ) -90 end diff --git a/bwbtest/B15A/fncallfn.run b/bwbtest/B15A/fncallfn.run deleted file mode 100644 index bbb61b1..0000000 --- a/bwbtest/B15A/fncallfn.run +++ /dev/null @@ -1,3 +0,0 @@ -Test user-defined function calling user-defined function -The result should be: 2.45678 -The result is: : 2.45678 diff --git a/bwbtest/B15A/fornext.bas b/bwbtest/B15A/fornext.bas deleted file mode 100644 index 67fab86..0000000 --- a/bwbtest/B15A/fornext.bas +++ /dev/null @@ -1,13 +0,0 @@ -10 REM FORNEXT.BAS -- Test FOR-NEXT Statements -20 REM -30 PRINT "FORNEXT.BAS: Test FOR-NEXT Statements" -40 PRINT "A FOR-NEXT Loop with STEP statement:" -50 FOR i=1 to 30 step 2 -60 PRINT "FOR: i is ";i -70 NEXT i -80 REM -90 PRINT "A FOR-NEXT Loop without STEP statement:" -100 FOR i = 2 to 7 -110 PRINT "FOR: i is ";i -120 NEXT i -130 END diff --git a/bwbtest/B15A/fornext.run b/bwbtest/B15A/fornext.run deleted file mode 100644 index 2ba3db4..0000000 --- a/bwbtest/B15A/fornext.run +++ /dev/null @@ -1,24 +0,0 @@ -FORNEXT.BAS: Test FOR-NEXT Statements -A FOR-NEXT Loop with STEP statement: -FOR: i is 1 -FOR: i is 3 -FOR: i is 5 -FOR: i is 7 -FOR: i is 9 -FOR: i is 11 -FOR: i is 13 -FOR: i is 15 -FOR: i is 17 -FOR: i is 19 -FOR: i is 21 -FOR: i is 23 -FOR: i is 25 -FOR: i is 27 -FOR: i is 29 -A FOR-NEXT Loop without STEP statement: -FOR: i is 2 -FOR: i is 3 -FOR: i is 4 -FOR: i is 5 -FOR: i is 6 -FOR: i is 7 diff --git a/bwbtest/B15A/function.INP b/bwbtest/B15A/function.INP deleted file mode 100644 index 88f774c..0000000 --- a/bwbtest/B15A/function.INP +++ /dev/null @@ -1,3 +0,0 @@ -c -A -B diff --git a/bwbtest/B15A/function.bas b/bwbtest/B15A/function.bas deleted file mode 100644 index 04d152e..0000000 --- a/bwbtest/B15A/function.bas +++ /dev/null @@ -1,43 +0,0 @@ -1000 PRINT "ABS(-2.2): "; ABS(-2.2) -1010 PRINT "DATE$: <"; DATE$; ">" -1020 PRINT "TIME$: <"; TIME$; ">" -1030 PRINT "ATN(-2.2): "; ATN(-2.2) -1040 PRINT "COS(-2.2): "; COS(-2.2) -1050 PRINT "LOG(2.2): "; LOG(2.2) -1060 PRINT "SIN(-2.2): "; SIN(-2.2) -1070 PRINT "SQR(2.2): "; SQR(2.2) -1080 PRINT "TAN(-2.2): "; TAN(-2.2) -1090 PRINT "SGN(-2.2): "; SGN(-2.2) -1100 PRINT "INT(-2.2): "; INT(-2.2) -1102 INPUT "Paused";X$ -1110 PRINT "RND(-2.2): "; RND(-2.2) -1120 PRINT "CHR$(&h60): "; CHR$(&H60) -1130 PRINT "TAB(52): <"; TAB(52); ">" -1140 PRINT "SPC(5): <"; SPC(5); ">" -1150 PRINT "SPACE$(5): <"; SPACE$(5); ">" -1160 PRINT "STRING$(5,X): <"; STRING$(5,"X"); ">" -1170 PRINT "MID$(0123456789, 5, 4): <"; MID$("0123456789", 5, 4); ">" -1180 PRINT "LEFT$(0123456789, 5): <"; LEFT$("0123456789", 5); ">" -1190 PRINT "RIGHT$(0123456789, 5): <"; RIGHT$("0123456789", 5); ">" -1200 PRINT "TIMER: "; TIMER -1202 INPUT "Paused";X$ -1210 PRINT "VAL(X): "; VAL("X") -1230 PRINT "ERR: "; ERR -1240 PRINT "ERL: "; ERL -1250 PRINT "LEN(0123456789): "; LEN("0123456789") -1260 PRINT "CSNG(-2.2): "; CSNG(-2.2) -1270 PRINT "EXP(-2.2): "; EXP(-2.2) -1280 PRINT "INSTR(0123456789, 234): "; INSTR("0123456789", "234") -1290 PRINT "STR$(-2.2): <"; STR$(-2.2); ">" -1300 PRINT "HEX$(27): <"; HEX$(27); ">" -1302 INPUT "Paused";X$ -1310 PRINT "OCT$(27): <"; OCT$(27); ">" -1320 PRINT "CINT(-2.2): "; CINT(-2.2) -1330 PRINT "ASC(0123456789): "; ASC("0123456789") -1340 PRINT "ENVIRON$(PATH): <"; ENVIRON$("PATH"); ">" -1350 PRINT "MKD$(17): <"; MKD$(17); ">" -1360 PRINT "MKI$(17): <"; MKI$(17); ">" -1370 PRINT "MKS$(17): <"; MKS$(17); ">" -1380 PRINT "CVD(MKD$(17)): "; CVD(MKD$(17)) -1390 PRINT "CVS(MKS$(17)): "; CVS(MKS$(17)) -1400 PRINT "CVI(MKI$(17)): "; CVI(MKI$(17)) diff --git a/bwbtest/B15A/function.run b/bwbtest/B15A/function.run deleted file mode 100644 index 4d49c13..0000000 --- a/bwbtest/B15A/function.run +++ /dev/null @@ -1,48 +0,0 @@ -ABS(-2.2): 2.2 -DATE$: <03/07/2017> -TIME$: <07:41:18> -ATN(-2.2): -1.14417 -COS(-2.2): -.588501 -LOG(2.2): .788457 -SIN(-2.2): -.808496 -SQR(2.2): 1.48324 -TAN(-2.2): 1.37382 -SGN(-2.2): -1 -INT(-2.2): -3 -Paused? c -RND(-2.2): .396465 -CHR$(&h60): ` -TAB(52): < > -SPC(5): < > -SPACE$(5): < > -STRING$(5,X): -MID$(0123456789, 5, 4): <4567> -LEFT$(0123456789, 5): <01234> -RIGHT$(0123456789, 5): <56789> -TIMER: 27678 -Paused? A -VAL(X): 0 -ERR: 0 -ERL: 0 -LEN(0123456789): 10 -CSNG(-2.2): -2.2 -EXP(-2.2): .110803 -INSTR(0123456789, 234): 3 -STR$(-2.2): <-2.2> -HEX$(27): <1B> -Paused? B -OCT$(27): <33> -CINT(-2.2): -2 -ASC(0123456789): 48 -ENVIRON$(PATH): -MKD$(17): <> -MKI$(17): < > -MKS$(17): <> -CVD(MKD$(17)): 17 -CVS(MKS$(17)): 17 -CVI(MKI$(17)): 17 diff --git a/bwbtest/B15A/gosub.INP b/bwbtest/B15A/gosub.INP deleted file mode 100644 index c9046ae..0000000 --- a/bwbtest/B15A/gosub.INP +++ /dev/null @@ -1,3 +0,0 @@ -1 -a -9 diff --git a/bwbtest/B15A/gosub.bas b/bwbtest/B15A/gosub.bas deleted file mode 100644 index 1f666b1..0000000 --- a/bwbtest/B15A/gosub.bas +++ /dev/null @@ -1,62 +0,0 @@ -10 REM -------------------------------------------------------- -20 REM GOSUB.BAS Test Bywater BASIC Interpreter GOSUB Statement -30 REM -------------------------------------------------------- -40 GOSUB 160 -50 PRINT "Test GOSUB Statements" -60 PRINT "---------------------" -70 PRINT -80 PRINT "1 - Run Subroutine" -90 PRINT "9 - Exit to system" -92 PRINT "x - Exit to BASIC" -100 PRINT -110 INPUT c$ -120 IF c$ = "1" then - gosub 430 - end if -125 IF c$ = "9" then - goto 600 - end if -130 IF c$ = "x" then - end - end if -135 IF c$ = "X" then - end - end if -140 GOTO 10 -150 END -160 REM subroutine to clear screen -170 PRINT -180 PRINT -190 PRINT -200 PRINT -210 PRINT -220 PRINT -230 PRINT -240 PRINT -250 PRINT -260 PRINT -270 PRINT -280 PRINT -290 PRINT -300 PRINT -310 PRINT -320 PRINT -330 PRINT -340 PRINT -350 PRINT -360 PRINT -370 PRINT -380 PRINT -390 PRINT -400 PRINT -410 PRINT -420 RETURN -430 REM subroutine to test branching -435 GOSUB 160 -440 PRINT "This is the subroutine." -445 PRINT "Press any key: "; -450 INPUT x$ -460 RETURN -600 GOSUB 160 -610 PRINT "Exit from Bywater BASIC Test Program" -620 SYSTEM diff --git a/bwbtest/B15A/gosub.run b/bwbtest/B15A/gosub.run deleted file mode 100644 index 1ff06e3..0000000 --- a/bwbtest/B15A/gosub.run +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - -Test GOSUB Statements ---------------------- - -1 - Run Subroutine -9 - Exit to system -x - Exit to BASIC - -? 1 - - - - - - - - - - - - - - - - - - - - - - - - - -This is the subroutine. -Press any key: ? a - - - - - - - - - - - - - - - - - - - - - - - - - -Test GOSUB Statements ---------------------- - -1 - Run Subroutine -9 - Exit to system -x - Exit to BASIC - -? 9 - - - - - - - - - - - - - - - - - - - - - - - - - -Exit from Bywater BASIC Test Program - diff --git a/bwbtest/B15A/gotolabl.bas b/bwbtest/B15A/gotolabl.bas deleted file mode 100644 index 2827ab1..0000000 --- a/bwbtest/B15A/gotolabl.bas +++ /dev/null @@ -1,22 +0,0 @@ -Print "Hello" - - -goto test_label -Print "This should NOT print" - - -test_label: -gosub test_sub -Print "Goodbye" -End - - -test_sub: - Print "This is the subroutine." - gosub test_subsub - Return - - -test_subsub: - Print "This is the sub-subroutine." - Return diff --git a/bwbtest/B15A/gotolabl.run b/bwbtest/B15A/gotolabl.run deleted file mode 100644 index f8404bf..0000000 --- a/bwbtest/B15A/gotolabl.run +++ /dev/null @@ -1,4 +0,0 @@ -Hello -This is the subroutine. -This is the sub-subroutine. -Goodbye diff --git a/bwbtest/B15A/ifline.bas b/bwbtest/B15A/ifline.bas deleted file mode 100644 index 11a4201..0000000 --- a/bwbtest/B15A/ifline.bas +++ /dev/null @@ -1,6 +0,0 @@ -10 rem test if then followed by line number -20 if 5 = 5 then 80 -30 print "The statement failed" -40 stop -80 print "The program succeeded" -90 end diff --git a/bwbtest/B15A/ifline.run b/bwbtest/B15A/ifline.run deleted file mode 100644 index 963f2f7..0000000 --- a/bwbtest/B15A/ifline.run +++ /dev/null @@ -1 +0,0 @@ -The program succeeded diff --git a/bwbtest/B15A/index.txt b/bwbtest/B15A/index.txt deleted file mode 100644 index 39c8b94..0000000 --- a/bwbtest/B15A/index.txt +++ /dev/null @@ -1,43 +0,0 @@ -Test Programs for bwBASIC: -------------------------- - -___ ___ ABS BAS -___ ___ ASSIGN BAS -___ ___ CALLFUNC BAS * STRUCT_CMDS -___ ___ CALLSUB BAS * STRUCT_CMDS -___ ___ CHAIN1 BAS -___ ___ CHAIN2 BAS * called from CHAIN1.BAS -___ ___ DATAREAD BAS -___ ___ DEFFN BAS -___ ___ DIM BAS -___ ___ DOLOOP BAS * STRUCT_CMDS -___ ___ DOWHILE BAS * STRUCT_CMDS -___ ___ ELSEIF BAS * STRUCT_CMDS -___ ___ END BAS -___ ___ ERR BAS -___ ___ FORNEXT BAS -___ ___ FUNCTION BAS -___ ___ GOSUB BAS -___ ___ GOTOLABL BAS * STRUCT_CMDS -___ ___ IFLINE BAS -___ ___ INPUT BAS -___ ___ LOF BAS * LOF(): IMPLEMENTATION-SPECIFIC -___ ___ LOOPUNTL BAS * STRUCT_CMDS -___ ___ MAIN BAS * STRUCT_CMDS -___ ___ MLIFTHEN BAS * STRUCT_CMDS -___ ___ ON BAS -___ ___ ONERR BAS -___ ___ ONERRLBL BAS * STRUCT_CMDS -___ ___ ONGOSUB BAS -___ ___ OPENTEST BAS -___ ___ OPTION BAS -___ ___ PUTGET BAS * KILL: IMPLEMENTATION-SPECIFIC -___ ___ RANDOM BAS -___ ___ SELCASE BAS * STRUCT_CMDS -___ ___ SNGLFUNC BAS -___ ___ STOP BAS -___ ___ TERM BAS -___ ___ WHILWEND BAS -___ ___ WIDTH BAS -___ ___ WRITEINP BAS - diff --git a/bwbtest/B15A/input.INP b/bwbtest/B15A/input.INP deleted file mode 100644 index 7e00f52..0000000 --- a/bwbtest/B15A/input.INP +++ /dev/null @@ -1 +0,0 @@ -abc,123 diff --git a/bwbtest/B15A/input.bas b/bwbtest/B15A/input.bas deleted file mode 100644 index 79311ce..0000000 --- a/bwbtest/B15A/input.bas +++ /dev/null @@ -1,7 +0,0 @@ -10 REM INPUT.BAS -- Test INPUT Statement -20 PRINT "INPUT.BAS -- Test INPUT Statement" -30 REM -40 INPUT "Input string, number: "; s$, n -50 PRINT "The string is: ";s$ -60 PRINT "The number is: ";n -70 END diff --git a/bwbtest/B15A/input.run b/bwbtest/B15A/input.run deleted file mode 100644 index 95e528d..0000000 --- a/bwbtest/B15A/input.run +++ /dev/null @@ -1,4 +0,0 @@ -INPUT.BAS -- Test INPUT Statement -Input string, number: ? abc,123 -The string is: abc -The number is: 123 diff --git a/bwbtest/B15A/lof.INP b/bwbtest/B15A/lof.INP deleted file mode 100644 index 7e1bde0..0000000 --- a/bwbtest/B15A/lof.INP +++ /dev/null @@ -1 +0,0 @@ -lof.bas diff --git a/bwbtest/B15A/lof.bas b/bwbtest/B15A/lof.bas deleted file mode 100644 index fb02ae6..0000000 --- a/bwbtest/B15A/lof.bas +++ /dev/null @@ -1,5 +0,0 @@ -10 print "Test LOF() Function" -20 input "Filename";F$ -30 open "i", 1, F$ -40 print "Length of file ";F$;" is ";LOF(1);" bytes" -50 close 1 diff --git a/bwbtest/B15A/lof.run b/bwbtest/B15A/lof.run deleted file mode 100644 index 1fcc4fa..0000000 --- a/bwbtest/B15A/lof.run +++ /dev/null @@ -1,3 +0,0 @@ -Test LOF() Function -Filename? lof.bas -Length of file lof.bas is 142 bytes diff --git a/bwbtest/B15A/loopuntl.bas b/bwbtest/B15A/loopuntl.bas deleted file mode 100644 index 535c9d2..0000000 --- a/bwbtest/B15A/loopuntl.bas +++ /dev/null @@ -1,6 +0,0 @@ -10 rem LOOPUNTL.BAS -20 i = 0 -30 do -40 i = i + 1 -50 print "Value of i is";i -60 loop until i > 12 diff --git a/bwbtest/B15A/loopuntl.run b/bwbtest/B15A/loopuntl.run deleted file mode 100644 index 255bc69..0000000 --- a/bwbtest/B15A/loopuntl.run +++ /dev/null @@ -1,13 +0,0 @@ -Value of i is 1 -Value of i is 2 -Value of i is 3 -Value of i is 4 -Value of i is 5 -Value of i is 6 -Value of i is 7 -Value of i is 8 -Value of i is 9 -Value of i is 10 -Value of i is 11 -Value of i is 12 -Value of i is 13 diff --git a/bwbtest/B15A/main.run b/bwbtest/B15A/main.run deleted file mode 100644 index fc4edc9..0000000 --- a/bwbtest/B15A/main.run +++ /dev/null @@ -1,2 +0,0 @@ -This is the MAIN subroutine. -This should print. diff --git a/bwbtest/B15A/mlifthen.bas b/bwbtest/B15A/mlifthen.bas deleted file mode 100644 index 6ac0706..0000000 --- a/bwbtest/B15A/mlifthen.bas +++ /dev/null @@ -1,16 +0,0 @@ - -rem ------------------------------------------------- -rem mlifthen.bas -- Test MultiLine IF-THEN statement -rem ------------------------------------------------- - -Print "MLIFTHEN.BAS -- Test MultiLine IF-THEN-ELSE Constructions" - -If 3 = 4 then - Print "The Condition is true." - Print "And it still is true." -Else - Print "The condition is false." - Print "And it still is false." -End If - -Print "This concludes our test." diff --git a/bwbtest/B15A/mlifthen.run b/bwbtest/B15A/mlifthen.run deleted file mode 100644 index b153c40..0000000 --- a/bwbtest/B15A/mlifthen.run +++ /dev/null @@ -1,4 +0,0 @@ -MLIFTHEN.BAS -- Test MultiLine IF-THEN-ELSE Constructions -The condition is false. -And it still is false. -This concludes our test. diff --git a/bwbtest/B15A/on.INP b/bwbtest/B15A/on.INP deleted file mode 100644 index 7ed6ff8..0000000 --- a/bwbtest/B15A/on.INP +++ /dev/null @@ -1 +0,0 @@ -5 diff --git a/bwbtest/B15A/on.bas b/bwbtest/B15A/on.bas deleted file mode 100644 index fa72374..0000000 --- a/bwbtest/B15A/on.bas +++ /dev/null @@ -1,14 +0,0 @@ -10 print "ON.BAS -- Test ON...GOTO Statement" -20 input "Enter a number 1-5:";n -30 on n goto 40, 60, 80, 100, 120 -40 print "You entered 1" -50 goto 140 -60 print "You entered 2" -70 goto 140 -80 print "You entered 3" -90 goto 140 -100 print "You entered 4" -110 goto 140 -120 print "You entered 5" -130 goto 140 -140 end diff --git a/bwbtest/B15A/on.run b/bwbtest/B15A/on.run deleted file mode 100644 index 778dcd6..0000000 --- a/bwbtest/B15A/on.run +++ /dev/null @@ -1,3 +0,0 @@ -ON.BAS -- Test ON...GOTO Statement -Enter a number 1-5:? 5 -You entered 5 diff --git a/bwbtest/B15A/onerr.bas b/bwbtest/B15A/onerr.bas deleted file mode 100644 index 5fdb84b..0000000 --- a/bwbtest/B15A/onerr.bas +++ /dev/null @@ -1,13 +0,0 @@ -1 OPTION ERROR GOSUB -10 rem onerr.bas -- test bwBASIC ON ERROR GOSUB statement -20 print "Test bwBASIC ON ERROR GOSUB statement" -30 on error gosub 100 -40 print "The next line will include an error" -50 READ d$ ' if d$ = 78.98 then print "This should not print" -60 print "This is the line after the error" -70 end -100 rem Error handler -110 print "This is the error handler" -120 print "The error number is ";err -130 print "The error line is ";erl -150 return diff --git a/bwbtest/B15A/onerr.run b/bwbtest/B15A/onerr.run deleted file mode 100644 index 5ec02e9..0000000 --- a/bwbtest/B15A/onerr.run +++ /dev/null @@ -1,6 +0,0 @@ -Test bwBASIC ON ERROR GOSUB statement -The next line will include an error -This is the error handler -The error number is 4 -The error line is 50 -This is the line after the error diff --git a/bwbtest/B15A/onerrlbl.bas b/bwbtest/B15A/onerrlbl.bas deleted file mode 100644 index 061e4aa..0000000 --- a/bwbtest/B15A/onerrlbl.bas +++ /dev/null @@ -1,13 +0,0 @@ -1 OPTION ERROR GOSUB -1000 rem onerrlbl.bas -- test bwBASIC ON ERROR GOSUB statement with label -1010 print "Test bwBASIC ON ERROR GOSUB statement" -1020 on error gosub handler -1030 print "The next line will include an error" -1040 READ d$ ' if d$ = 78.98 then print "This should not print" -1050 print "This is the line after the error" -1060 end -1070 handler: -1080 print "This is the error handler" -1090 print "The error number is ";err -1100 print "The error line is ";erl -1110 return diff --git a/bwbtest/B15A/onerrlbl.run b/bwbtest/B15A/onerrlbl.run deleted file mode 100644 index db8d090..0000000 --- a/bwbtest/B15A/onerrlbl.run +++ /dev/null @@ -1,6 +0,0 @@ -Test bwBASIC ON ERROR GOSUB statement -The next line will include an error -This is the error handler -The error number is 4 -The error line is 1040 -This is the line after the error diff --git a/bwbtest/B15A/ongosub.INP b/bwbtest/B15A/ongosub.INP deleted file mode 100644 index 7ed6ff8..0000000 --- a/bwbtest/B15A/ongosub.INP +++ /dev/null @@ -1 +0,0 @@ -5 diff --git a/bwbtest/B15A/ongosub.bas b/bwbtest/B15A/ongosub.bas deleted file mode 100644 index 8cf1573..0000000 --- a/bwbtest/B15A/ongosub.bas +++ /dev/null @@ -1,15 +0,0 @@ -10 print "ONGOSUB.BAS -- Test ON..GOSUB Statement" -20 input "Enter a number 1-5";n -30 on n gosub 60, 80, 100, 120, 140 -40 print "The End" -50 end -60 print "You entered 1" -70 return -80 print "You entered 2" -90 return -100 print "You entered 3" -110 return -120 print "You entered 4" -130 return -140 print "You entered 5" -150 return diff --git a/bwbtest/B15A/ongosub.run b/bwbtest/B15A/ongosub.run deleted file mode 100644 index 66af63b..0000000 --- a/bwbtest/B15A/ongosub.run +++ /dev/null @@ -1,4 +0,0 @@ -ONGOSUB.BAS -- Test ON..GOSUB Statement -Enter a number 1-5? 5 -You entered 5 -The End diff --git a/bwbtest/B15A/opentest.bas b/bwbtest/B15A/opentest.bas deleted file mode 100644 index 2f1b3c8..0000000 --- a/bwbtest/B15A/opentest.bas +++ /dev/null @@ -1,12 +0,0 @@ -10 PRINT "OPENTEST.BAS -- Test OPEN, PRINT#, LINE INPUT#, and CLOSE" -20 OPEN "test.out" FOR OUTPUT AS # 1 -30 PRINT #1,"This is line 1." -40 PRINT #1, "This is line 2." -50 CLOSE #1 -60 OPEN "test.out" FOR INPUT AS #1 -70 LINE INPUT #1,A$ -80 LINE INPUT #1,B$ -90 PRINT "Read from file:" -100 PRINT ">";A$ -110 PRINT ">";B$ -120 CLOSE #1 diff --git a/bwbtest/B15A/opentest.run b/bwbtest/B15A/opentest.run deleted file mode 100644 index 05008fe..0000000 --- a/bwbtest/B15A/opentest.run +++ /dev/null @@ -1,4 +0,0 @@ -OPENTEST.BAS -- Test OPEN, PRINT#, LINE INPUT#, and CLOSE -Read from file: ->This is line 1. ->This is line 2. diff --git a/bwbtest/B15A/option.bas b/bwbtest/B15A/option.bas deleted file mode 100644 index 4bae33f..0000000 --- a/bwbtest/B15A/option.bas +++ /dev/null @@ -1,8 +0,0 @@ -1 PRINT "OPTION.BAS -- Test OPTION BASE Statement" -5 OPTION BASE 1 -10 DIM n(5) -20 FOR i = 1 to 5 -30 LET n(i) = i + 2 -40 PRINT "The value at position ";i;" is ";n(i) -50 NEXT i -60 END diff --git a/bwbtest/B15A/option.run b/bwbtest/B15A/option.run deleted file mode 100644 index 5d64184..0000000 --- a/bwbtest/B15A/option.run +++ /dev/null @@ -1,6 +0,0 @@ -OPTION.BAS -- Test OPTION BASE Statement -The value at position 1 is 3 -The value at position 2 is 4 -The value at position 3 is 5 -The value at position 4 is 6 -The value at position 5 is 7 diff --git a/bwbtest/B15A/pascaltr.bas b/bwbtest/B15A/pascaltr.bas deleted file mode 100644 index 09e7555..0000000 --- a/bwbtest/B15A/pascaltr.bas +++ /dev/null @@ -1,16 +0,0 @@ -100 dim pascal(14,14) -110 pascal(1,1) = 1 -120 for i = 2 to 14 -130 pascal(i,1) = 1 -140 for j = 2 to i -150 pascal(i,j) = pascal(i-1,j)+pascal(i-1,j-1) -160 next j -170 next i -180 for i = 1 to 14 -190 print i-1; ": "; -200 for j = 1 to i -210 print pascal(i,j); -220 next j -230 print -240 next i -250 end diff --git a/bwbtest/B15A/pascaltr.run b/bwbtest/B15A/pascaltr.run deleted file mode 100644 index 3e69331..0000000 --- a/bwbtest/B15A/pascaltr.run +++ /dev/null @@ -1,14 +0,0 @@ - 0 : 1 - 1 : 1 1 - 2 : 1 2 1 - 3 : 1 3 3 1 - 4 : 1 4 6 4 1 - 5 : 1 5 10 10 5 1 - 6 : 1 6 15 20 15 6 1 - 7 : 1 7 21 35 35 21 7 1 - 8 : 1 8 28 56 70 56 28 8 1 - 9 : 1 9 36 84 126 126 84 36 9 1 - 10 : 1 10 45 120 210 252 210 120 45 10 1 - 11 : 1 11 55 165 330 462 462 330 165 55 11 1 - 12 : 1 12 66 220 495 792 924 792 495 220 66 12 1 - 13 : 1 13 78 286 715 1287 1716 1716 1287 715 286 78 13 1 diff --git a/bwbtest/B15A/putget.INP b/bwbtest/B15A/putget.INP deleted file mode 100644 index 2f51905..0000000 --- a/bwbtest/B15A/putget.INP +++ /dev/null @@ -1,6 +0,0 @@ -abc -123 main -111-222-3333 -xyz -987 any street -999-888-7777 diff --git a/bwbtest/B15A/putget.bas b/bwbtest/B15A/putget.bas deleted file mode 100644 index 9185ba1..0000000 --- a/bwbtest/B15A/putget.bas +++ /dev/null @@ -1,22 +0,0 @@ -rem PUTGET.BAS -- Test PUT and GET statements -open "r", 1, "test.dat", 48 -field 1, 20 as r1$, 20 as r2$, 8 as r3$ -for l = 1 to 2 -line input "name: "; n$ -line input "address: "; m$ -line input "phone: "; p$ -lset r1$ = n$ -lset r2$ = m$ -lset r3$ = p$ -put #1, l -next l -close #1 -open "r", 1, "test.dat", 48 -field 1, 20 as r1$, 20 as r2$, 8 as r3$ -for l = 1 to 2 -get #1, l -print r1$, r2$, r3$ -next l -close #1 -kill "test.dat" -end diff --git a/bwbtest/B15A/putget.run b/bwbtest/B15A/putget.run deleted file mode 100644 index 8c8335a..0000000 --- a/bwbtest/B15A/putget.run +++ /dev/null @@ -1,8 +0,0 @@ -name: abc -address: 123 main -phone: 111-222-3333 -name: xyz -address: 987 any street -phone: 999-888-7777 -abc 123 main 111-222- -xyz 987 any street 999-888- diff --git a/bwbtest/B15A/random.bas b/bwbtest/B15A/random.bas deleted file mode 100644 index 09107e8..0000000 --- a/bwbtest/B15A/random.bas +++ /dev/null @@ -1,13 +0,0 @@ -100 rem RANDOM.BAS -- Test RANDOMIZE and RND -110 print "This is a first sequence of three RND numbers:" -120 randomize timer -130 print rnd -140 print rnd -150 print rnd -160 print "This is a second sequence of three RND numbers:" -170 randomize timer + 18 -180 print rnd -190 print rnd -200 print rnd -210 print "The second sequence should have been differrent" -220 print "from the first." diff --git a/bwbtest/B15A/random.run b/bwbtest/B15A/random.run deleted file mode 100644 index 40a1a81..0000000 --- a/bwbtest/B15A/random.run +++ /dev/null @@ -1,10 +0,0 @@ -This is a first sequence of three RND numbers: - .10793 - .109362 - .531097 -This is a second sequence of three RND numbers: - .782371 - .79199 - .823117 -The second sequence should have been differrent -from the first. diff --git a/bwbtest/B15A/selcase.bas b/bwbtest/B15A/selcase.bas deleted file mode 100644 index 8fca268..0000000 --- a/bwbtest/B15A/selcase.bas +++ /dev/null @@ -1,31 +0,0 @@ -rem SelCase.bas -- test SELECT CASE - -Sub Main - Print "SelCase.bas -- test SELECT CASE statement" - Input "Enter a number"; d - - Select Case d - - Case 3 to 5 - Print "The number is between 3 and 5." - - Case 6 - Print "The number you entered is 6." - - Case 7 to 9 - Print "The number is between 7 and 9." - - Case If > 10 - Print "The number is greater than 10" - - Case If < 0 - Print "The number is less than 0" - - Case Else - Print "The number is 1, 2 or 10." - - End Select - -End Sub - - diff --git a/bwbtest/B15A/selcase.run b/bwbtest/B15A/selcase.run deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/B15A/snglfunc.bas b/bwbtest/B15A/snglfunc.bas deleted file mode 100644 index b707b5b..0000000 --- a/bwbtest/B15A/snglfunc.bas +++ /dev/null @@ -1,15 +0,0 @@ - -rem ---------------------------------------------------- -rem SnglFunc.BAS -rem ---------------------------------------------------- - -Print "SnglFunc.BAS -- Test Single-Line User-defined Function Statement" -Print - -Def Sum( x, y ) = x + y - -Print -Print "The sum of 6 and 4 is "; Sum( 6, 4 ) - -Print "Did it work properly?" -End diff --git a/bwbtest/B15A/snglfunc.run b/bwbtest/B15A/snglfunc.run deleted file mode 100644 index 4e2f96c..0000000 --- a/bwbtest/B15A/snglfunc.run +++ /dev/null @@ -1,5 +0,0 @@ -SnglFunc.BAS -- Test Single-Line User-defined Function Statement - - -The sum of 6 and 4 is 10 -Did it work properly? diff --git a/bwbtest/B15A/stop.bas b/bwbtest/B15A/stop.bas deleted file mode 100644 index 3454e75..0000000 --- a/bwbtest/B15A/stop.bas +++ /dev/null @@ -1,6 +0,0 @@ -10 REM STOP.BAS -- Test STOP Statement -20 PRINT "STOP.BAS -- Test STOP Statement" -30 PRINT "If the program is interrupted after this line, STOP worked OK" -40 STOP -50 PRINT "But if this line printed, then it did not work." -60 END diff --git a/bwbtest/B15A/stop.run b/bwbtest/B15A/stop.run deleted file mode 100644 index 838ba4c..0000000 --- a/bwbtest/B15A/stop.run +++ /dev/null @@ -1,4 +0,0 @@ -STOP.BAS -- Test STOP Statement -If the program is interrupted after this line, STOP worked OK - -Program interrupted at line 40 diff --git a/bwbtest/B15A/term.INP b/bwbtest/B15A/term.INP deleted file mode 100644 index 8baef1b..0000000 --- a/bwbtest/B15A/term.INP +++ /dev/null @@ -1 +0,0 @@ -abc diff --git a/bwbtest/B15A/term.bas b/bwbtest/B15A/term.bas deleted file mode 100644 index af6b3e9..0000000 --- a/bwbtest/B15A/term.bas +++ /dev/null @@ -1,10 +0,0 @@ -10 REM BWBASIC Program to Demonstrate Terminal-Specific Use -20 REM The following definitions are for an ANSI Terminal. -30 REM You may have to define different variables for your -40 REM particular terminal -50 REM -60 LET CL$ = chr$(&h1b)+"[2J" -70 PRINT CL$; -80 PRINT " Bywater BASIC" -90 INPUT c$ -100 END diff --git a/bwbtest/B15A/term.run b/bwbtest/B15A/term.run deleted file mode 100644 index e49fe2d..0000000 --- a/bwbtest/B15A/term.run +++ /dev/null @@ -1,2 +0,0 @@ - [2J Bywater BASIC -? abc diff --git a/bwbtest/B15A/test.out b/bwbtest/B15A/test.out deleted file mode 100644 index f9d10fb..0000000 --- a/bwbtest/B15A/test.out +++ /dev/null @@ -1,2 +0,0 @@ -This is line 1. -This is line 2. diff --git a/bwbtest/B15A/whilwend.bas b/bwbtest/B15A/whilwend.bas deleted file mode 100644 index d469622..0000000 --- a/bwbtest/B15A/whilwend.bas +++ /dev/null @@ -1,13 +0,0 @@ -10 REM WHILWEND.BAS -- Test WHILE-WEND Loops -20 PRINT "START" -30 LET X = 0 -40 WHILE X < 25 -50 PRINT "x is ";X -60 LET X = X + 1 -70 LET Y = 0 -80 WHILE Y < 2 -90 PRINT "y is "; Y -100 LET Y = Y + 1 -110 WEND -120 WEND -130 PRINT "END" diff --git a/bwbtest/B15A/whilwend.run b/bwbtest/B15A/whilwend.run deleted file mode 100644 index 90353ba..0000000 --- a/bwbtest/B15A/whilwend.run +++ /dev/null @@ -1,77 +0,0 @@ -START -x is 0 -y is 0 -y is 1 -x is 1 -y is 0 -y is 1 -x is 2 -y is 0 -y is 1 -x is 3 -y is 0 -y is 1 -x is 4 -y is 0 -y is 1 -x is 5 -y is 0 -y is 1 -x is 6 -y is 0 -y is 1 -x is 7 -y is 0 -y is 1 -x is 8 -y is 0 -y is 1 -x is 9 -y is 0 -y is 1 -x is 10 -y is 0 -y is 1 -x is 11 -y is 0 -y is 1 -x is 12 -y is 0 -y is 1 -x is 13 -y is 0 -y is 1 -x is 14 -y is 0 -y is 1 -x is 15 -y is 0 -y is 1 -x is 16 -y is 0 -y is 1 -x is 17 -y is 0 -y is 1 -x is 18 -y is 0 -y is 1 -x is 19 -y is 0 -y is 1 -x is 20 -y is 0 -y is 1 -x is 21 -y is 0 -y is 1 -x is 22 -y is 0 -y is 1 -x is 23 -y is 0 -y is 1 -x is 24 -y is 0 -y is 1 -END diff --git a/bwbtest/B15A/width.bas b/bwbtest/B15A/width.bas deleted file mode 100644 index 291f257..0000000 --- a/bwbtest/B15A/width.bas +++ /dev/null @@ -1,5 +0,0 @@ -10 open "o", #1, "data.tmp" -20 width #1, 35 -30 print #1, "123456789012345678901234567890123456789012345678901234567890" -40 close #1 -50 print "Check file to see if the printing wrapped at col 35" diff --git a/bwbtest/B15A/width.run b/bwbtest/B15A/width.run deleted file mode 100644 index 4476b6e..0000000 --- a/bwbtest/B15A/width.run +++ /dev/null @@ -1 +0,0 @@ -Check file to see if the printing wrapped at col 35 diff --git a/bwbtest/B15A/writeinp.bas b/bwbtest/B15A/writeinp.bas deleted file mode 100644 index c172500..0000000 --- a/bwbtest/B15A/writeinp.bas +++ /dev/null @@ -1,20 +0,0 @@ -10 rem WRITEINP.BAS -- Test WRITE # and INPUT # Statements -20 print "WRITEINP.BAS -- Test WRITE # and INPUT # Statements" -30 s1$ = "String 1" -40 s2$ = "String 2" -50 s3$ = "String 3" -60 x1 = 1.1234567 -70 x2 = 2.2345678 -80 x3 = 3.3456789 -90 open "o", #1, "data.tmp" -100 write #1, s1$, x1, s2$, x2, s3$, x3 -110 close #1 -120 print "This is what was written:" -130 write s1$, x1, s2$, x2, s3$, x3 -140 open "i", #2, "data.tmp" -150 input #2, b1$, n1, b2$, n2, b3$, n3 -160 close #2 -170 print "This is what was read:" -180 write b1$, n1, b2$, n2, b3$, n3 -190 print "End of WRITEINP.BAS" -200 end diff --git a/bwbtest/B15A/writeinp.run b/bwbtest/B15A/writeinp.run deleted file mode 100644 index 5e42a4f..0000000 --- a/bwbtest/B15A/writeinp.run +++ /dev/null @@ -1,6 +0,0 @@ -WRITEINP.BAS -- Test WRITE # and INPUT # Statements -This is what was written: -"String 1",1.12346,"String 2",2.23457,"String 3",3.34568 -This is what was read: -"String 1",1.12346,"String 2",2.23457,"String 3",3.34568 -End of WRITEINP.BAS diff --git a/bwbtest/B15B/00readme.txt b/bwbtest/B15B/00readme.txt deleted file mode 100644 index 739f685..0000000 --- a/bwbtest/B15B/00readme.txt +++ /dev/null @@ -1,246 +0,0 @@ -These programs appear to work, and are part of regression testing. - -Changes made: -a) add missing semicolon/comma in PRINT statements -b) change array names so they were not identical to scalar variable names -c) add spaces around reserved words -d) CASSETTE is not supported, use DISKETTE instead -e) add missing THEN after IF -f) change PRINT #1,X,Y to WRITE #1,X,Y -g) add exit for autmated testing - -These programs were downloaded from: -http://www.skyandtelescope.com/astronomy-resources/basic-programs-from-sky-telescope/ - - -BASIC Programs from Sky & Telescope -By: The Editors of Sky Telescope | July 22, 2006 - -Sky & Telescope magazine is pleased to make available in machine-readable form the programs that have been published in its monthly Astronomical Computing department, which first appeared in April 1984, and later in the Computers in Astronomy department. These are offered as-is and without support. -The table on the following three pages lists the programs in reverse chronological order. Each name is a hyperlink; if you select the name and your Web browser supports simple ASCII file transfers, you'll automatically download the BASIC program. - -Whenever possible the programs are written in simple generic BASIC, but there are unavoidable variations from one interpreter to another. In case of difficulties, check your BASIC manual. A few programs require specific graphics adapters or printers. To run these programs, you will need a BASIC interpreter for your computer. If you do not know if your computer has one, see Stuart Goldman's article, "BASICally Speaking," adapted from the April 1996 issue of S&T. - -At the end of each program is a block indicating the issue of the magazine in which the program appeared together with supporting text and instructions. If you have any questions, please consult the original articles. - -BASIC Programs from Sky & Telescope -Magazine -File Name Issue Brief Description -ROCKET.BAS Feb 02, -p. 66 Travel time for a space trip at relativistic speed -DAYSOLD.BAS Nov 01, -p. 63 Determine date after input number of days after -birthday -LOOKBAK2.BAS Aug 01, -p. 62 Cosmological quantities of an accelerating universe -PILLAR.BAS May 99, -p. 71 Simulate the appearance of a Sun pillar -MSACHART.BAS Oct 98, -p. 63 Millennium Star Atlas chart number -SUPERNUM.BAS Sep 98, -p. 70 Emergence angles of supernumerary rainbows -VISLIMIT.BAS May 98, -p. 57 Visual limiting magnitude from any site -CCDLIMI2.BAS May 98, -p. 117 Limiting magnitude of a CCD camera -LOOKBACK.BAS Sep 97, -p. 59 Age and distance of a galaxy of known redshift -SOLAROSC.BAS Jun 97, -p. 92 Visualize global solar oscillation modes -SUNDOG.BAS Jan 97, -p. 103 Simulate the appearance of sundogs -CRATER.BAS Nov 96, -p. 90 Find the dimensions of an impact crater -BLKHOLE1.BAS May 96, -p. 92 Determine the mass of a black hole -BLKHOLE2.BAS May 96, -p. 92 Calculate black-hole tidal forces -BLKHOLE3.BAS May 96, -p. 92 Generate a black-hole "accelergram" -FACECIRC.BAS Mar 96, -p. 84 Print setting-circle disks on a LaserJet -SCALES.BAS Mar 96, -p. 84 Print setting-circle strips on a LaserJet -AGEUNIV.BAS Jan 96, -p. 92 Age of the universe since the Big Bang -PULSAR.BAS Oct 95, -p. 86 Relativistic precession in binary orbits -CHANCE.BAS Jun 95, -p. 86 Odds of witnessing certain astronomical events -SATRINGS.BAS May 95, -p. 92 Saturn ring-plane crossings -JACK.BAS Sep 94, -p. 78 Demo of perturbed planetary motion -SUNUP.BAS Aug 94, -p. 84 Times of sunrise/set at any place on Earth -MOONFX.BAS Apr 94, -p. 86 Moon phase and distance on any given date -CAPTURE.BAS Feb 94, -p. 85 Best film/camera combos for capturing meteors -SUNTAN.BAS Jul 93, -p. 83 Effects of ozone, haze, on suntanning time -ASTEROID.BAS Jun 93, -p. 83 The size of an asteroid from its brightness -CCDLIMIT.BAS Feb 93, -p. 84 Compute the signal-to-noise ratio of a CCD -OCCVIS.BAS Jan 93, -p. 89 Compute the visibility of a star near the Moon -ROTATE.BAS Sep 92, -p. 318 Field rotation in a misaligned telescope -GFLASH.BAS Feb 92, -p. 200 Simulate the appearance of the "green flash" -PRECESS.BAS Oct 91, -p. 408 Rigorous precession of a star's coordinates -LIST.BAS Aug 91, -p. 182 Make index lists of objects on star atlases -SOLARECL.BAS Jul 91, -p. 71 Predictions of July 11, 1991, solar eclipse -FIREBALL.BAS Jun 91, -p. 640 Calculate descent of a fireball - -BASIC Programs from Sky & Telescope -Magazine -File Name Issue Brief Description -RONCHI.BAS Apr 91, -p. 416 Ronchi test simulation -RAINBOW.BAS Feb 91, -p. 199 Graphic simulation of a rainbow -SPIRAL.BAS Dec 90, -p. 654 Modeling spiral galaxies -MARS.BAS Sep 90, -p. 296 Physical ephemeris of Mars -MARCHE.BAS Jul 90, -p. 71 Astrometric positions of a comet or asteroid -MALLAM.BAS May 90, -p. 543 Precession of a satellite's orbit -ORIGAM.BAS Apr 90, -p. 424 Make a paper model of a comet orbit -MIRROR.BAS Feb 90, -p. 195 Foucault mirror test analysis -HARTLEY.BAS Jan 90, -p. 86 Globe- and grid-drawing program (Macintosh) -JMERID.BAS Dec 89, -p. 640 Jupiter's central meridian for any date/time -LIMMAG.BAS Nov 89, -p. 522 Limiting magnitude of a telescope -GOSS.BAS Oct 89, -p. 410 Light curves of eclipsing binaries -SHOWER.BAS Aug 89, -p. 195 Dates of meteor showers -SINE.BAS Aug 89, -p. 139 Demonstration of chaotic behavior -MOONUP.BAS Jul 89, -p. 78 Compute moonrise-moonset times for any place -GALISA.BAS Jun 89, -p. 650 Plot Galilean moons of Jupiter (Apple II) -SPACE.BAS May 89, -p. 531 Space motion of a star -CHART.BAS Apr 89, -p. 420 Find atlas charts for any celestial coordinates -REFR1.BAS Mar 89, -p. 311 Compute atmospheric refraction -TAKI.BAS Feb 89, -p. 194 How to aim an alt-az (Dobsonian) telescope -FRACTS.BAS Jan 89, -p. 80 Represent a decimal as a continued fraction -PERIOD.BAS Sep 88, -p. 288 Period search by Fourier transform -LUNAR.BAS Jun 88, -p. 640 Compute dates of lunar eclipses -SHADOW.BAS Apr 88, -p. 417 Modeling mountain shadows -CIRCLE.BAS Mar 88, -p. 304 Make setting circles and scales on a printer -DIAL.BAS Dec 87, -p. 646 Design a vertical sundial -PERIAP.BAS Nov 87, -p. 527 Compute lunar apogee and perigee -STEREO.BAS Oct 87, -p. 407 Plot stars in stereographic projection -DIFPAT.BAS Sep 87, -p. 294 Compute and display diffraction patterns -BINARY.BAS Jul 87, -p. 71 Orbital ephemeris of a binary star -CLOCK.BAS May 87, -p. 535 Add Moon to a real-time clock (Apple II) -ORBITS.BAS May 87, -p. 535 Positions in near-parabolic orbits -EXTINC.BAS Apr 87, -p. 426 Compute extinction of starlight -PATH.BAS Feb 87, -p. 196 Interpolate comet positions - -BASIC Programs from Sky & Telescope -Magazine -File Name Issue Brief Description -METEOR.BAS Jan 87, -p. 83 Compute flight of meteors -OBSCUR.BAS Nov 86, -p. 515 Obscuration at a solar eclipse -SURF.BAS Oct 86, -p. 392 Surface brightness of an extended object -SPHE.BAS Sep 86, -p. 278 Measure radius of curvature with a spherometer -REACT.BAS Aug 86, -p. 174 Test your personal reaction time -ALTAZ2.BAS Jul 86, -p. 70 How to correct altitudes for refraction -MODEL.BAS Apr 86, -p. 398 Create model of star cluster -EASTER.BAS Mar 86, -p. 294 Compute date of Easter -TRACK.BAS Feb 86, -p. 190 Astrophoto tracking tolerances -COMET.BAS Dec 85, -p. 590 Compute the ephemeris of a comet -XYZ.BAS Nov 85, -p. 470 X,Y,Z coordinates of the Sun -SAROS.BAS Oct 85, -p. 366 Saros numbers for solar eclipses -HELIAC.BAS Sep 85, -p. 261 Heliacal rise and set times -KEPLER.BAS Aug 85, -p. 158 Solve Kepler's equation (celestial mechanics) -CALENDAR.BAS Jul 85, -p. 62 Perpetual calendar (Gregorian) -SHUTTR.BAS Jun 85, -p. 158 Shutter speeds for astrophotography -WAVEL.BAS Jun 85, -p. 544 Positions of absorption lines in a spectrum -STEPPR.BAS Apr 85, -p. 350 Controlling a stepper motor -MOONS.BAS Mar 85, -p. 254 Dates and times of new and full Moon -PHOTOM.BAS Feb 85, -p. 158 Reducing photometric observations -LHEIGHT.BAS Jan 85, -p. 62 Compute heights of lunar features -GLOB1.BAS Dec 84, -p. 555 Distribution of globular clusters (Apple II) -GLOB2.BAS Dec 84, -p. 555 Distribution of globular clusters (Apple II) -LENS.BAS Nov 84, -p. 450 Calculate curves for an aplanatic lens -GWMONTH.BAS Oct 84, -p. 347 Convert month number to name -SUNSHINE.BAS Sep 84, -p. 254 Hours of sunshine for a specific latitude -ANGSEP.BAS Aug 84, -p. 159 Angular separation of two celestial objects -STAY.BAS Jul 84, -p. 62 Comet's time spent inside Earth's orbit -ALTAZ.BAS Jun 84, -p. 558 Star altitude and azimuth at a given time -GMST.BAS Jun 84, -p. 558 Sidereal time for Greenwich meridian -CALJD.BAS May 84, -p. 454 Convert calendar date to Julian day -JDCAL.BAS May 84, -p. 454 Convert Julian day to calendar date -ADDMAG.BAS Apr 84, -p. 359 Combined magnitude of two or more stars -INTERP.BAS Apr 84, -p. 359 Lagrange interpolation (multiple data points) - - -EOF diff --git a/bwbtest/B15B/00test.sh b/bwbtest/B15B/00test.sh deleted file mode 100644 index d63e4cc..0000000 --- a/bwbtest/B15B/00test.sh +++ /dev/null @@ -1,124 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/SKYTEL -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile B15.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- -# -# various dialects of BASIC -# - - -testcase addmag -testcase altaz -testcase altaz2 -testcase angsep -testcase asteroid -testcase binary -testcase blkhole1 -testcase blkhole2 -testcase blkhole3 -testcase calendar -testcase caljd -testcase capture -testcase ccdlimi2 -testcase ccdlimit -testcase chance -testcase chart -testcase circle -testcase comet -testcase crater -testcase daysold -testcase dial -testcase difpat -testcase easter -testcase extinc -testcase facecirc -testcase fireball -testcase fracts -testcase gflash -testcase glob1 -testcase gmst -testcase gwmonth -testcase interp -testcase jdcal -testcase jmerid -testcase kepler -testcase lens -testcase lheight -testcase limmag -testcase lookback -testcase lookbak2 -testcase lunar -testcase mallam -testcase mars -testcase meteor -testcase moonfx -testcase moons -testcase moonup -testcase msachart -testcase obscur -testcase occvis -testcase orbits -testcase path -testcase period -testcase photom -testcase precess -testcase refr1 -testcase rocket -testcase rotate -testcase saros -testcase satrings -testcase scales -testcase shadow -testcase shower -testcase shuttr -testcase solarecl -testcase space -testcase sphe -testcase stay -testcase steppr -testcase stereo -testcase sunshine -testcase suntan -testcase sunup -testcase supernum -testcase surf -testcase taki -testcase track -testcase vislimit -testcase wavel -testcase xyz -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/B15B/01test.sh b/bwbtest/B15B/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/B15B/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/B15B/02ok.sh b/bwbtest/B15B/02ok.sh deleted file mode 100644 index 118fddc..0000000 --- a/bwbtest/B15B/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/bwskytel -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/B15B/99test.sh b/bwbtest/B15B/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/B15B/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/B15B/B15.PRO b/bwbtest/B15B/B15.PRO deleted file mode 100644 index 5fe6743..0000000 --- a/bwbtest/B15B/B15.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "BYWATER" diff --git a/bwbtest/B15B/BOW.DAT b/bwbtest/B15B/BOW.DAT deleted file mode 100644 index a759f6e..0000000 --- a/bwbtest/B15B/BOW.DAT +++ /dev/null @@ -1,101 +0,0 @@ - 38.313 0.001 - 38.380 0.083 - 38.413 0.270 - 38.479 0.510 - 38.511 0.746 - 38.576 0.921 - 38.640 0.998 - 38.672 0.963 - 38.736 0.828 - 38.767 0.624 - 38.830 0.398 - 38.861 0.194 - 38.922 0.054 - 38.953 0.000 - 39.013 0.041 - 39.043 0.164 - 39.103 0.346 - 39.162 0.551 - 39.191 0.746 - 39.249 0.897 - 39.278 0.984 - 39.335 0.995 - 39.364 0.931 - 39.420 0.806 - 39.476 0.639 - 39.503 0.454 - 39.558 0.279 - 39.585 0.135 - 39.639 0.039 - 39.692 0.001 - 39.719 0.022 - 39.771 0.098 - 39.797 0.218 - 39.848 0.367 - 39.899 0.527 - 39.925 0.682 - 39.974 0.816 - 39.999 0.919 - 40.048 0.981 - 40.097 1.000 - 40.121 0.975 - 40.169 0.911 - 40.216 0.815 - 40.239 0.697 - 40.285 0.565 - 40.331 0.432 - 40.353 0.305 - 40.398 0.194 - 40.442 0.104 - 40.464 0.041 - 40.507 0.007 - 40.550 0.001 - 40.571 0.024 - 40.613 0.072 - 40.654 0.141 - 40.675 0.226 - 40.715 0.323 - 40.755 0.426 - 40.775 0.530 - 40.814 0.630 - 40.852 0.723 - 40.890 0.806 - 40.909 0.876 - 40.946 0.930 - 40.983 0.970 - 41.019 0.993 - 41.037 1.000 - 41.072 0.993 - 41.106 0.971 - 41.140 0.938 - 41.157 0.895 - 41.190 0.842 - 41.223 0.784 - 41.255 0.720 - 41.271 0.654 - 41.303 0.586 - 41.333 0.518 - 41.364 0.452 - 41.393 0.389 - 41.408 0.329 - 41.437 0.273 - 41.465 0.222 - 41.493 0.176 - 41.521 0.136 - 41.534 0.101 - 41.561 0.072 - 41.587 0.048 - 41.612 0.029 - 41.637 0.015 - 41.661 0.006 - 41.685 0.001 - 41.697 0.000 - 41.720 0.003 - 41.743 0.008 - 41.765 0.017 - 41.787 0.028 - 41.808 0.041 - 41.828 0.055 - 41.849 0.072 - 41.868 0.089 - 41.887 0.107 diff --git a/bwbtest/B15B/OUTPUT.TXT b/bwbtest/B15B/OUTPUT.TXT deleted file mode 100644 index 640b93e..0000000 --- a/bwbtest/B15B/OUTPUT.TXT +++ /dev/null @@ -1,170 +0,0 @@ --0.013 -0.008 0.000 0.000 --0.156 -0.033 -0.155 -0.033 --0.007 -0.001 0.000 0.000 - 0.056 -0.034 0.044 -0.027 --0.125 0.012 -0.123 0.012 - 0.002 0.045 0.000 0.000 --0.052 0.042 -0.042 0.033 - 0.011 -0.052 0.006 -0.027 --0.029 0.011 0.000 0.000 --0.107 0.104 -0.106 0.103 - 0.121 -0.014 0.119 -0.014 --0.041 -0.036 -0.023 -0.020 --0.027 0.027 0.000 0.000 --0.027 0.005 0.000 0.000 --0.011 -0.104 -0.011 -0.101 - 0.019 0.117 0.019 0.115 --0.013 0.044 -0.001 0.004 - 0.061 -0.014 0.045 -0.010 --0.042 -0.146 -0.042 -0.145 --0.023 -0.018 0.000 0.000 --0.040 -0.026 -0.008 -0.006 --0.053 0.083 -0.051 0.080 - 0.039 0.045 0.027 0.030 - 0.051 -0.133 0.051 -0.131 --0.084 0.088 -0.082 0.087 - 0.008 0.028 0.000 0.000 --0.151 -0.046 -0.150 -0.046 - 0.024 0.063 0.019 0.051 - 0.065 0.027 0.054 0.022 - 0.016 -0.076 0.015 -0.068 - 0.002 0.126 0.002 0.124 - 0.012 -0.006 0.000 0.000 --0.042 0.153 -0.042 0.152 --0.066 0.031 -0.057 0.026 --0.011 -0.099 -0.011 -0.095 - 0.001 0.001 0.000 0.000 - 0.062 -0.013 0.047 -0.010 - 0.116 -0.056 0.115 -0.055 --0.108 -0.105 -0.107 -0.104 - 0.081 -0.115 0.080 -0.114 --0.062 0.025 -0.050 0.020 - 0.024 -0.023 0.000 0.000 - 0.010 -0.002 0.000 0.000 - 0.027 -0.094 0.025 -0.090 --0.031 0.029 0.000 0.000 --0.071 0.135 -0.071 0.134 --0.080 -0.094 -0.079 -0.093 - 0.002 -0.013 0.000 0.000 --0.075 -0.026 -0.067 -0.024 - 0.013 -0.076 0.011 -0.067 --0.131 0.082 -0.130 0.081 - 0.012 -0.026 0.000 0.000 --0.080 0.011 -0.072 0.010 --0.065 -0.114 -0.064 -0.112 --0.086 0.120 -0.085 0.119 --0.017 0.010 0.000 0.000 - 0.017 0.058 0.012 0.041 - 0.126 0.032 0.125 0.032 --0.073 -0.016 -0.064 -0.014 - 0.075 0.002 0.065 0.002 --0.068 -0.036 -0.061 -0.032 - 0.112 -0.016 0.109 -0.015 --0.017 -0.029 0.000 0.000 --0.019 -0.023 0.000 0.000 --0.023 -0.153 -0.022 -0.152 - 0.029 -0.054 0.020 -0.038 - 0.011 0.123 0.011 0.121 - 0.034 0.058 0.028 0.047 --0.004 -0.003 0.000 0.000 - 0.034 0.092 0.033 0.088 - 0.118 0.040 0.116 0.040 - 0.041 0.069 0.037 0.062 --0.001 0.027 0.000 0.000 --0.062 0.100 -0.061 0.098 - 0.027 0.145 0.027 0.144 - 0.042 0.003 0.000 0.000 - 0.124 -0.069 0.123 -0.068 - 0.018 0.150 0.018 0.149 --0.069 -0.009 -0.058 -0.007 - 0.010 -0.006 0.000 0.000 --0.068 -0.071 -0.065 -0.068 --0.081 0.080 -0.079 0.078 - 0.051 0.003 0.020 0.001 --0.015 0.015 0.000 0.000 - 0.046 0.130 0.045 0.129 --0.012 -0.015 0.000 0.000 - 0.015 -0.056 0.010 -0.037 - 0.133 -0.045 0.132 -0.045 --0.104 0.111 -0.103 0.110 --0.032 0.079 -0.029 0.073 - 0.108 -0.115 0.107 -0.114 - 0.051 0.046 0.042 0.037 --0.157 0.015 -0.156 0.015 - 0.084 -0.043 0.080 -0.041 - 0.042 -0.114 0.042 -0.112 --0.030 0.010 0.000 0.000 - 0.003 0.146 0.003 0.144 --0.071 0.003 -0.060 0.003 - 0.002 0.007 0.000 0.000 --0.045 0.074 -0.042 0.069 - 0.013 -0.063 0.010 -0.048 - 0.013 0.009 0.000 0.000 - 0.099 0.096 0.098 0.095 --0.062 -0.091 -0.060 -0.088 - 0.024 0.039 0.002 0.003 --0.032 -0.076 -0.029 -0.069 --0.080 -0.129 -0.080 -0.128 - 0.113 0.029 0.111 0.028 --0.070 0.087 -0.068 0.085 --0.096 0.015 -0.091 0.014 --0.041 -0.126 -0.041 -0.124 --0.003 0.064 -0.003 0.048 - 0.149 0.014 0.148 0.014 --0.013 -0.110 -0.013 -0.107 - 0.073 0.096 0.071 0.094 --0.044 0.073 -0.040 0.067 - 0.089 0.084 0.087 0.082 - 0.014 -0.007 0.000 0.000 - 0.079 0.036 0.073 0.033 --0.040 0.107 -0.039 0.104 --0.106 0.069 -0.104 0.068 --0.011 0.001 0.000 0.000 - 0.134 0.032 0.132 0.031 --0.117 0.053 -0.116 0.052 --0.079 -0.005 -0.071 -0.005 - 0.063 0.019 0.049 0.015 --0.103 0.045 -0.100 0.044 - 0.004 -0.002 0.000 0.000 - 0.103 -0.051 0.101 -0.050 --0.103 -0.028 -0.100 -0.027 - 0.007 0.020 0.000 0.000 --0.040 0.008 0.000 0.000 - 0.004 0.071 0.003 0.059 - 0.005 0.006 0.000 0.000 --0.085 -0.045 -0.081 -0.043 - 0.050 0.127 0.049 0.126 - 0.016 -0.062 0.012 -0.048 --0.019 0.015 0.000 0.000 - 0.144 -0.043 0.142 -0.043 --0.027 0.043 -0.011 0.018 --0.025 -0.081 -0.023 -0.075 - 0.053 0.101 0.052 0.099 --0.006 0.093 -0.006 0.088 --0.019 0.108 -0.019 0.105 - 0.029 -0.046 0.016 -0.025 - 0.025 -0.003 0.000 0.000 --0.037 0.065 -0.032 0.056 --0.100 -0.087 -0.098 -0.086 --0.140 0.065 -0.139 0.064 --0.015 -0.038 0.000 0.000 - 0.077 -0.015 0.069 -0.014 --0.133 0.013 -0.131 0.013 - 0.060 -0.061 0.055 -0.056 --0.030 0.014 0.000 0.000 - 0.019 -0.002 0.000 0.000 - 0.047 0.089 0.045 0.086 - 0.102 0.082 0.101 0.081 --0.064 -0.134 -0.063 -0.133 --0.136 0.047 -0.135 0.046 --0.047 -0.031 -0.029 -0.018 --0.077 -0.133 -0.076 -0.132 - 0.136 0.032 0.134 0.031 - 0.006 0.002 0.000 0.000 --0.002 -0.014 0.000 0.000 --0.040 -0.073 -0.037 -0.067 --0.022 0.045 -0.008 0.016 --0.014 0.129 -0.014 0.127 - 0.031 0.042 0.015 0.020 - 0.045 -0.023 0.016 -0.008 --0.022 -0.014 0.000 0.000 diff --git a/bwbtest/B15B/PAD80.BAS b/bwbtest/B15B/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/B15B/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/B15B/PAD80.INP b/bwbtest/B15B/PAD80.INP deleted file mode 100644 index 3fdeacc..0000000 --- a/bwbtest/B15B/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA xyz.OUT, xyz.80 diff --git a/bwbtest/B15B/PAD80.PRO b/bwbtest/B15B/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/B15B/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/B15B/addmag.INP b/bwbtest/B15B/addmag.INP deleted file mode 100644 index 7083f64..0000000 --- a/bwbtest/B15B/addmag.INP +++ /dev/null @@ -1,3 +0,0 @@ -2 -3 -X diff --git a/bwbtest/B15B/addmag.bas b/bwbtest/B15B/addmag.bas deleted file mode 100644 index 4c5ddec..0000000 --- a/bwbtest/B15B/addmag.bas +++ /dev/null @@ -1,20 +0,0 @@ -10 REM ADDING MAGNITUDES -15 REM -20 B=100^.2: N=2: C=LOG(10) -25 INPUT "1ST STAR MAG";M1 -30 INPUT "2ND STAR MAG";M2 -35 M = B^(-M1) + B^(-M2) -40 M = -2.5*LOG(M)/C -45 PRINT "TOTAL MAG: ";M -50 M1=M: N=N+1: PRINT -55 INPUT "ANOTHER STAR";M$ -60 IF M$="X" THEN 75 -70 M2=VAL(M$): GOTO 35 -75 PRINT "STAR COUNT: ";N-1 -80 END -81 REM ------------------------ -82 REM APPEARED IN ASTRONOMICAL -83 REM COMPUTING, SKY & TELE- -84 REM SCOPE, APRIL, 1984 -85 REM ------------------------ - diff --git a/bwbtest/B15B/addmag.run b/bwbtest/B15B/addmag.run deleted file mode 100644 index 104c383..0000000 --- a/bwbtest/B15B/addmag.run +++ /dev/null @@ -1,6 +0,0 @@ -1ST STAR MAG? 2 -2ND STAR MAG? 3 -TOTAL MAG: 1.63615 - -ANOTHER STAR? X -STAR COUNT: 2 diff --git a/bwbtest/B15B/altaz.INP b/bwbtest/B15B/altaz.INP deleted file mode 100644 index 1a20282..0000000 --- a/bwbtest/B15B/altaz.INP +++ /dev/null @@ -1,4 +0,0 @@ -5,45,32 -180,55,22 -120,45 -8,21,32 diff --git a/bwbtest/B15B/altaz.bas b/bwbtest/B15B/altaz.bas deleted file mode 100644 index 31306f1..0000000 --- a/bwbtest/B15B/altaz.bas +++ /dev/null @@ -1,43 +0,0 @@ -10 REM ALTITUDE AND AZIMUTH -12 REM -14 P=3.14159265: R1=P/180 -16 INPUT "R A (H,M,S) ";A$,A2,A3 -18 GOSUB 72: R=A*15*R1 -20 INPUT "DEC (D,M,S) ";A$,A2,A3 -22 GOSUB 72: D=A*R1 -24 INPUT "LAT, LONG ";B,L -26 B=B*R1: L=L*R1 -28 INPUT "GST (H,M,S) ";A$,A2,A3 -30 GOSUB 72: T=A*15*R1 -32 T5=T-R+L: REM LHA -34 S1=SIN(B)*SIN(D) -36 S1=S1+COS(B)*COS(D)*COS(T5) -38 C1=1-S1*S1 -40 IF C1>0 THEN C1=SQR(C1) -42 IF C1<=0 THEN 46 -44 H=ATN(S1/C1): GOTO 48 -46 H=SGN(S1)*P/2 -48 C2=COS(B)*SIN(D) -50 C2=C2-SIN(B)*COS(D)*COS(T5) -52 S2=-COS(D)*SIN(T5) -54 IF C2=0 THEN A=SGN(S2)*P/2 -56 IF C2=0 THEN 62 -58 A=ATN(S2/C2) -60 IF C2<0 THEN A=A+P -62 IF A<0 THEN A=A+2*P -64 PRINT -66 PRINT "ALTITUDE: ";H/R1 -68 PRINT "AZIMUTH: ";A/R1 -70 END -72 REM SEXAGESIMAL TO DECIMAL -74 REM -76 S=1: A1=ABS(VAL(A$)) -78 IF LEFT$(A$,1)="-" THEN S=-1 -80 A=S*(A1+A2/60+A3/3600) -82 RETURN -84 REM ------------------------ -86 REM APPEARED IN ASTRONOMICAL -88 REM COMPUTING, SKY & TELE- -90 REM SCOPE, JUNE, 1984 -92 REM ------------------------ - diff --git a/bwbtest/B15B/altaz.run b/bwbtest/B15B/altaz.run deleted file mode 100644 index 061eb64..0000000 --- a/bwbtest/B15B/altaz.run +++ /dev/null @@ -1,7 +0,0 @@ -R A (H,M,S) ? 5,45,32 -DEC (D,M,S) ? 180,55,22 -LAT, LONG ? 120,45 -GST (H,M,S) ? 8,21,32 - -ALTITUDE: 2.19555 -AZIMUTH: 84.3393 diff --git a/bwbtest/B15B/altaz2.INP b/bwbtest/B15B/altaz2.INP deleted file mode 100644 index 1a20282..0000000 --- a/bwbtest/B15B/altaz2.INP +++ /dev/null @@ -1,4 +0,0 @@ -5,45,32 -180,55,22 -120,45 -8,21,32 diff --git a/bwbtest/B15B/altaz2.bas b/bwbtest/B15B/altaz2.bas deleted file mode 100644 index 060a9b4..0000000 --- a/bwbtest/B15B/altaz2.bas +++ /dev/null @@ -1,55 +0,0 @@ -10 REM ALTITUDE AND AZIMUTH -12 REM -14 P=3.14159265: R1=P/180 -16 INPUT "R A (H,M,S) ";A$,A2,A3 -18 GOSUB 72: R=A*15*R1 -20 INPUT "DEC (D,M,S) ";A$,A2,A3 -22 GOSUB 72: D=A*R1 -24 INPUT "LAT, LONG ";B,L -26 B=B*R1: L=L*R1 -28 INPUT "GST (H,M,S) ";A$,A2,A3 -30 GOSUB 72: T=A*15*R1 -32 T5=T-R+L: REM LHA -34 S1=SIN(B)*SIN(D) -36 S1=S1+COS(B)*COS(D)*COS(T5) -38 C1=1-S1*S1 -40 IF C1>0 THEN C1=SQR(C1) -42 IF C1<=0 THEN 46 -44 H=ATN(S1/C1): GOTO 48 -46 H=SGN(S1)*P/2 -48 C2=COS(B)*SIN(D) -50 C2=C2-SIN(B)*COS(D)*COS(T5) -52 S2=-COS(D)*SIN(T5) -54 IF C2=0 THEN A=SGN(S2)*P/2 -56 IF C2=0 THEN 62 -58 A=ATN(S2/C2) -60 IF C2<0 THEN A=A+P -62 IF A<0 THEN A=A+2*P -64 PRINT -65 GOSUB 200 -66 PRINT "ALTITUDE: ";H/R1 -68 PRINT "AZIMUTH: ";A/R1 -70 END -72 REM SEXAGESIMAL TO DECIMAL -74 REM -76 S=1: A1=ABS(VAL(A$)) -78 IF LEFT$(A$,1)="-" THEN S=-1 -80 A=S*(A1+A2/60+A3/3600) -82 RETURN -200 REM TRUE ALT TO APP ALT -210 REM -220 H5=H/R1 -230 V5=(H5+10.3/(H5+5.11))*R1 -240 R5=1.02*COS(V5)/SIN(V5) -250 H=H+R5*R1/60 -260 RETURN -284 REM ------------------------ -286 REM APPEARED IN ASTRONOMICAL -288 REM COMPUTING, SKY & TELE- -290 REM SCOPE, JUNE, 1984, -292 REM AND MODIFIED IN THE JULY, -294 REM 1986, ISSUE TO CONVERT -296 REM FROM TRUE TO APPARENT -298 REM ALTITUDE -300 REM ------------------------ - diff --git a/bwbtest/B15B/altaz2.run b/bwbtest/B15B/altaz2.run deleted file mode 100644 index 66bb2a5..0000000 --- a/bwbtest/B15B/altaz2.run +++ /dev/null @@ -1,7 +0,0 @@ -R A (H,M,S) ? 5,45,32 -DEC (D,M,S) ? 180,55,22 -LAT, LONG ? 120,45 -GST (H,M,S) ? 8,21,32 - -ALTITUDE: 2.46535 -AZIMUTH: 84.3393 diff --git a/bwbtest/B15B/angsep.INP b/bwbtest/B15B/angsep.INP deleted file mode 100644 index d69ce58..0000000 --- a/bwbtest/B15B/angsep.INP +++ /dev/null @@ -1,4 +0,0 @@ -5,45,32 -180,55,44 -7,21,34 -45,23,45 diff --git a/bwbtest/B15B/angsep.bas b/bwbtest/B15B/angsep.bas deleted file mode 100644 index 495c351..0000000 --- a/bwbtest/B15B/angsep.bas +++ /dev/null @@ -1,37 +0,0 @@ -10 REM ANGULAR SEPARATION -12 REM -14 P=3.14159265: C=P/180 -16 PRINT "FIRST STAR --" -18 INPUT "R A (H,M,S) ";A$,A2,A3 -20 GOSUB 60 : R1=A*15*C -22 INPUT "DEC (D,M,S) ";A$,A2,A3 -24 GOSUB 60 : D1=A*C -26 PRINT -28 PRINT "SECOND STAR --" -30 INPUT "R A (H,M,S) ";A$,A2,A3 -32 GOSUB 60 : R2=A*15*C -34 INPUT "DEC (D,M,S) ";A$,A2,A3 -36 GOSUB 60 : D2=A*C -38 REM -40 D=SIN((D1-D2)/2): H1=D*D -42 A=SIN((R1-R2)/2): H2=A*A -44 H3=H1+COS(D1)*COS(D2)*H2 -46 S1=SQR(H3): C1=SQR(1-S1*S1) -48 S=2*ATN(S1/C1)/C -50 PRINT -52 PRINT "SEPARATION --" -54 PRINT "IN DEGREES: ";S -56 PRINT "IN ARC SEC: ";S*3600 -58 END -60 REM SEXAGESIMAL TO DECIMAL -62 REM -64 F=1: A1=ABS(VAL(A$)) -66 IF LEFT$(A$,1)="-" THEN F=-1 -68 A=F*(A1+A2/60+A3/3600) -70 RETURN -80 REM ------------------------ -85 REM APPEARED IN ASTRONOMICAL -90 REM COMPUTING, SKY & TELE- -95 REM SCOPE, AUGUST, 1984 -99 REM ------------------------ - diff --git a/bwbtest/B15B/angsep.run b/bwbtest/B15B/angsep.run deleted file mode 100644 index e13445f..0000000 --- a/bwbtest/B15B/angsep.run +++ /dev/null @@ -1,11 +0,0 @@ -FIRST STAR -- -R A (H,M,S) ? 5,45,32 -DEC (D,M,S) ? 180,55,44 - -SECOND STAR -- -R A (H,M,S) ? 7,21,34 -DEC (D,M,S) ? 45,23,45 - -SEPARATION -- -IN DEGREES: 130.762 -IN ARC SEC: 470742. diff --git a/bwbtest/B15B/asteroid.INP b/bwbtest/B15B/asteroid.INP deleted file mode 100644 index f3ccbcd..0000000 --- a/bwbtest/B15B/asteroid.INP +++ /dev/null @@ -1,6 +0,0 @@ -1.1 -2.2 -3.3 -1.23 -C -0.14 diff --git a/bwbtest/B15B/asteroid.bas b/bwbtest/B15B/asteroid.bas deleted file mode 100644 index 04f0cdf..0000000 --- a/bwbtest/B15B/asteroid.bas +++ /dev/null @@ -1,37 +0,0 @@ -10 ' The Size of an Asteroid -20 ' -30 RD=180/3.14159: ' Radians to degrees -40 INPUT "Apparent visual magnitude, V";V -50 INPUT "Distance from Sun (au) ";R0 -60 INPUT "Distance from Earth (au) ";D0 -70 INPUT "Earth-Sun distance (au) ";R -80 PRINT "Asteroid type --" -90 INPUT " C, S, or O(ther)";T$ -100 IF T$="c" OR T$="C" THEN P=.037 -110 IF T$="s" OR T$="S" THEN P=.14 -120 IF T$="o" OR T$="O" THEN INPUT "What is the albedo";P -130 IF P>1 OR P<=0 THEN 120 -140 PRINT "Now enter the photometric slope" -142 PRINT "parameter (G), or if unknown" -143 INPUT "enter 0.15. Value of G ";G -150 PRINT -160 CI=(R0^2+D0^2-R^2)/(2*R0*D0) -170 F=ATN(SQR(1-CI*CI)/CI) -180 IF CI<0 THEN F=F+3.14159 -190 ' F = solar phase angle in radians -200 PRINT USING "Solar phase angle, phi: ###.#";F*RD -210 P1=EXP(-3.33*(TAN(F/2))^.63) -220 P2=EXP(-1.87*(TAN(F/2))^1.22) -230 H=V-5*LOG(D0*R0)/LOG(10)+2.5*LOG((1-G)*P1+G*P2)/LOG(10) -240 PRINT USING "Absolute mag (H): ###.#";H -250 LD=3.12-.2*H-.5*LOG(P)/LOG(10) -260 D=10^LD -270 PRINT USING "Diameter (km): ####.#";D -280 END -290 ' -300 ' Basil Rowe's program calculates the size of an asteroid from -310 ' its apparent brightness and an assumption about its reflectivity -320 ' (albedo). The calculation is explained on page 83 of the -330 ' June 1993 issue of Sky & Telescope. Carbonaceous asteroids -340 ' have albedos of about 0.04, while S-type (stony) asteroids -350 ' reflect about 0.14 of the light. diff --git a/bwbtest/B15B/asteroid.run b/bwbtest/B15B/asteroid.run deleted file mode 100644 index 5a8788d..0000000 --- a/bwbtest/B15B/asteroid.run +++ /dev/null @@ -1,13 +0,0 @@ -Apparent visual magnitude, V? 1.1 -Distance from Sun (au) ? 2.2 -Distance from Earth (au) ? 3.3 -Earth-Sun distance (au) ? 1.23 -Asteroid type -- - C, S, or O(ther)? C -Now enter the photometric slope -parameter (G), or if unknown -enter 0.15. Value of G ? 0.14 - -Solar phase angle, phi: 11.7 -Absolute mag (H): -3.9 -Diameter (km): 41837.6 diff --git a/bwbtest/B15B/binary.INP b/bwbtest/B15B/binary.INP deleted file mode 100644 index 1eb46a6..0000000 --- a/bwbtest/B15B/binary.INP +++ /dev/null @@ -1,9 +0,0 @@ -7 -0.9 -5 -10 -1.2 -3.4 -5.6 -2000 -N diff --git a/bwbtest/B15B/binary.bas b/bwbtest/B15B/binary.bas deleted file mode 100644 index 95acb29..0000000 --- a/bwbtest/B15B/binary.bas +++ /dev/null @@ -1,47 +0,0 @@ -10 REM BINARY STAR ORBIT -12 REM -14 P1=4*ATN(1): R1=180/P1 -16 C=2*P1: A1=0.0000005 -18 REM -20 INPUT "SEMIMAJOR AXIS";A -22 INPUT "ECCENTRICITY ";E0 -24 IF INT(E0)=0 THEN 30 -26 PRINT "NOT VALID; REENTER" -28 GOTO 22 -30 INPUT "EPOCH OF PERIASTRON";T -32 INPUT "PERIOD IN YEARS ";P -34 INPUT "INCLINATION ";I -36 INPUT "ARG OF PERIASTRON ";W -38 INPUT "P.A. OF ASC NODE ";L -40 I=I/R1: W=W/R1: L=L/R1 -42 REM -44 INPUT "DATE OF OBS (YR) ";D -46 T1=D-T: M=C*T1/P -48 E=M+E0*SIN(M)+E0*E0*SIN(2*M)/2 -50 N=E-E0*SIN(E): G=M-N -52 F=G/(1-E0*COS(E)): E=E+F -54 IF ABS(G)>A1 THEN 50 -56 U=(1+E0)/(1-E0): H=COS(E/2) -58 IF H=0 THEN V=P1: GOTO 62 -60 V=2*ATN(SQR(U)*SIN(E/2)/H) -62 K=V+W: Y=SIN(K)*COS(I) -64 X=COS(K): Q=ATN(Y/X) -66 IF X<0 THEN Q=Q+P1 -68 IF X<0 THEN 72 -70 IF Y<0 THEN Q=Q+C -72 P2=Q+L: IF P2>C THEN P2=P2-C -74 R=A-A*E0*COS(E) -76 S=R*X/COS(Q) -78 P3=INT(P2*R1*10+0.5)/10 -80 S3=INT(S*100+0.5)/100 -82 PRINT "P.A. ";P3;" DEG" -84 PRINT "SEP. ";S3;" ARC SEC" -86 PRINT -88 INPUT "ANOTHER (Y OR N)";Q$ -90 IF Q$<>"N" THEN 44 -92 REM ======================== -94 REM FROM "ASTRONOMICAL -96 REM COMPUTING," SKY & TELE- -98 REM SCOPE, JULY, 1987 -100 REM ======================== -102 END diff --git a/bwbtest/B15B/binary.run b/bwbtest/B15B/binary.run deleted file mode 100644 index ddebd31..0000000 --- a/bwbtest/B15B/binary.run +++ /dev/null @@ -1,12 +0,0 @@ -SEMIMAJOR AXIS? 7 -ECCENTRICITY ? 0.9 -EPOCH OF PERIASTRON? 5 -PERIOD IN YEARS ? 10 -INCLINATION ? 1.2 -ARG OF PERIASTRON ? 3.4 -P.A. OF ASC NODE ? 5.6 -DATE OF OBS (YR) ? 2000 -P.A. 189 DEG -SEP. 13.3 ARC SEC - -ANOTHER (Y OR N)? N diff --git a/bwbtest/B15B/blkhole1.INP b/bwbtest/B15B/blkhole1.INP deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/B15B/blkhole1.bas b/bwbtest/B15B/blkhole1.bas deleted file mode 100644 index d6587b5..0000000 --- a/bwbtest/B15B/blkhole1.bas +++ /dev/null @@ -1,22 +0,0 @@ -10 REM Compute Mass of Black Hole -20 REM Print Data for M vs C vs P Plot -30 REM C0 = orbital circumference, km -40 REM P0 = orbital period, seconds -50 REM G = gravitational constant -60 G=1.327E11 -70 P=3.14159 -80 OPEN "OUTPUT.TXT" FOR OUTPUT AS #1 -90 FOR C0=1E5 TO 1E7 STEP 2E5 -100 PRINT#1, "C0 is: "; C0 -110 FOR P0=10 TO 1000 STEP 10 -120 M=C0*C0*C0/(2*P*G*P0*P0) -130 PRINT#1, P0, M -140 NEXT P0 -150 NEXT C0 -160 CLOSE#1 -170 REM ======================== -180 REM FROM "ASTRONOMICAL -190 REM COMPUTING," SKY & TELE- -200 REM SCOPE, MAY 1996 -210 REM ======================== -220 END diff --git a/bwbtest/B15B/blkhole1.run b/bwbtest/B15B/blkhole1.run deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/B15B/blkhole2.INP b/bwbtest/B15B/blkhole2.INP deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/B15B/blkhole2.bas b/bwbtest/B15B/blkhole2.bas deleted file mode 100644 index eea8729..0000000 --- a/bwbtest/B15B/blkhole2.bas +++ /dev/null @@ -1,22 +0,0 @@ -10 REM Compute Black-Hole Tidal Force Upon Body -20 REM G = Grav. constant -30 REM M = Mass, solar masses -40 REM L = separation, km -50 REM C = circumference, km -60 REM A = difference in acceleration, km/sec**2 -70 C=100000 -80 G=1.327E11 -90 P=3.14159 -100 M=303 -110 FOR L=.002 TO .004 STEP .001 -120 A=16*P*P*P*G*M*L/(C*C*C) -130 REM Convert to meters and g units -140 L1=L*1000: A=(A*1000)/9.81 -150 PRINT USING "Length: ###.# meters, Tidal Force: ###.# g";L1;A -160 NEXT L -170 REM ======================== -180 REM FROM "ASTRONOMICAL -190 REM COMPUTING," SKY & TELE- -200 REM SCOPE, MAY 1996 -210 REM ======================== -220 END diff --git a/bwbtest/B15B/blkhole2.run b/bwbtest/B15B/blkhole2.run deleted file mode 100644 index b4560d2..0000000 --- a/bwbtest/B15B/blkhole2.run +++ /dev/null @@ -1,3 +0,0 @@ -Length: 2.0 meters, Tidal Force: 4.1 g -Length: 3.0 meters, Tidal Force: 6.1 g -Length: 4.0 meters, Tidal Force: 8.1 g diff --git a/bwbtest/B15B/blkhole3.INP b/bwbtest/B15B/blkhole3.INP deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/B15B/blkhole3.bas b/bwbtest/B15B/blkhole3.bas deleted file mode 100644 index b4e9327..0000000 --- a/bwbtest/B15B/blkhole3.bas +++ /dev/null @@ -1,27 +0,0 @@ -10 REM Compute Black-Hole Accelergram -20 P = 3.14159 -30 A$="##.### ##.### ##.### ##.###" -40 OPEN "OUTPUT.TXT" FOR OUTPUT AS #1 -50 FOR I=0 TO 1000 -60 REM Generate random circumference -70 C=2!*P*RND -80 REM Generate random angle -90 T=2!*P*RND: R=C/(2!*P) -100 X1=R*COS(T): Y1=R*SIN(T) -110 REM Determine vector length -120 R=R-.001/(C*C*C) -130 IF R<0 THEN R=0 -140 X2=R*COS(T): Y2=R*SIN(T) -150 D=SQR((X2-X1)*(X2-X1)+(Y2-Y1)*(Y2-Y1)) -160 REM Don't plot vectors too small to see -170 REM Print end-points for plot package -180 IF D<.001 THEN GOTO 200 -190 PRINT#1, USING A$;X1;Y1;X2;Y2 -200 NEXT I -210 CLOSE#1 -220 REM ======================== -230 REM FROM "ASTRONOMICAL -240 REM COMPUTING," SKY & TELE- -250 REM SCOPE, MAY 1996 -260 REM ======================== -270 END diff --git a/bwbtest/B15B/blkhole3.run b/bwbtest/B15B/blkhole3.run deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/B15B/broken/00readme.txt b/bwbtest/B15B/broken/00readme.txt deleted file mode 100644 index 8a33069..0000000 --- a/bwbtest/B15B/broken/00readme.txt +++ /dev/null @@ -1,6 +0,0 @@ -These programs: -1) use commands that are not supported by bwBASIC at this time, and/or -2) are not easy to test using the current automated method, and/or -3) there are no plans to support graphics at this time. - -EOF diff --git a/bwbtest/B15B/broken/ageuniv.bas b/bwbtest/B15B/broken/ageuniv.bas deleted file mode 100644 index e4d18b6..0000000 --- a/bwbtest/B15B/broken/ageuniv.bas +++ /dev/null @@ -1,64 +0,0 @@ -10 ' AGE OF THE UNIVERSE -20 ' -30 DEFDBL A-H,J-Z: DEFINT I: SCREEN 9: KEY OFF -40 LOCATE 15,1: PRINT "Hubble constant [ 25 to 150 (km/s)/Mpc ] "; -50 INPUT H0: IF H0<25# OR H0>150# THEN CLS: GOTO 40 -60 HT=(3.085678D+19)/(H0*31557600#) -70 LOCATE 17,1: PRINT "Omega zero [ 0 to 5 ]"; -80 PRINT SPC(40);: LOCATE 17,23 -90 INPUT OZ: PRINT: IF OZ<0# OR OZ>5# THEN GOTO 70 -100 IF OZ=0# THEN OS=1#: GOTO 180 -110 IF OZ=1# THEN OS=1.5#*SQR(3#): GOTO 180 -120 IF OZ<=.5# THEN GM=(1#-OZ+SQR(1#-2#*OZ))/OZ -130 IF OZ<=.5# THEN X=.5#*(GM^(1#/3#)+GM^(-1#/3#)) -140 IF OZ>.5# THEN AL=ATN(SQR(2#*OZ-1#)/(1#-OZ)) -150 IF AL<0# THEN AL=AL+4#*ATN(1#) -160 IF OZ>.5# THEN X=COS(AL/3#) -170 OS=4#*OZ*X*X*X -180 PRINT USING "Omega lambda < #.########## gives Big Bang"; OS -190 PRINT USING "Omega lambda > #.########## gives no Big Bang"; OS -200 LOCATE 22,1: PRINT "Omega lambda [ -10 to 10 ]"; -210 PRINT SPC(40);: LOCATE 22,28: INPUT OL -220 IF OL<-10# OR OL>10# THEN GOTO 200 -230 CLS: LOCATE 22,17 -240 PRINT " Hubble constant Omega zero Omega lambda" -250 LOCATE 23,17: PRINT USING " ### (km/s)/Mpc ";H0; -260 PRINT USING " ##.#### ###.##########";OZ;OL; -270 LINE (0,5)-(639,260),7,B: TL=-5#: TR=5# -280 LOCATE 1,29: COLOR 15: PRINT " Scale Factor vs. Time " -290 FOR I=1 TO 4: TN=0#: RN=1#: DN=1# -300 COLOR 12: IF I=4 THEN COLOR 9 -310 HN=.0025#: IF I=1 OR I=3 THEN HN=-HN -320 T=TN: R=RN: D=DN: DP=DN: TP=TN -330 F=OL*R-OZ/(2#*R*R): K1=HN*F: L1=HN*D -340 T=TN+HN/2#: R=RN+L1/2#: D=DN+K1/2# -350 F=OL*R-OZ/(2#*R*R): K2=HN*F: L2=HN*D -360 T=TN+HN/2#: R=RN+L2/2#: D=DN+K2/2# -370 F=OL*R-OZ/(2#*R*R): K3=HN*F: L3=HN*D -380 T=TN+HN: R=RN+L3: D=DN+K3 -390 F=OL*R-OZ/(2#*R*R): K4=HN*F: L4=HN*D -400 TN=TN+HN: RP=RN: DP=DN -410 RN=RN+(L1+2#*L2+2#*L3+L4)/6# -420 DN=DN+(K1+2#*K2+2#*K3+K4)/6# -430 IF RN<0# OR RN>3# OR TNTR THEN GOTO 460 -440 IF I>2 THEN PSET (640*(TN-TL)/(TR-TL),260-RN*85) -450 GOTO 320 -460 IF I=1 THEN TL=TN -470 IF I=2 THEN TR=TN*1.1# -480 IF I=2 THEN XP=640/(1-TR/TL): CIRCLE (XP,175),3,14 -490 IF I=2 THEN LINE (XP,260)-(XP,250),15 -500 IF I=3 THEN LOCATE 19,XP/16: COLOR 12: PRINT "PAST"; -510 IF I=3 AND RN<0# THEN LOCATE 20,1: COLOR 7: PRINT "0"; -520 A=XP/8-2: IF ABS(A-32)>30 THEN A=32+30*SGN(A-32) -530 T=TN-HN-RP/DP: IF OZ>0# THEN T=T+RP/(3#*DP) -540 LOCATE 20,A: COLOR 14: AG=ABS(T*HT/10 ^ 9) -550 IF I=3 AND RN<0# THEN PRINT USING "###.# billion years"; AG; -560 IF I=4 THEN LOCATE 19,37+XP/16: COLOR 9: PRINT "FUTURE"; -570 NEXT I -580 LOCATE 22,1: END -900 REM ********************************************* -910 REM THIS PROGRAM COMPUTES THE AGE OF THE UNIVERSE -920 REM FOR DIFFERENT VALUES OF THE HUBBLE PARAMETER, -930 REM DENSITY PARAMETER, AND COSMOLOGICAL CONSTANT. -940 REM FROM SKY & TELESCOPE, JANUARY 1996, PAGE 92. -950 REM ********************************************* diff --git a/bwbtest/B15B/broken/clock.bas b/bwbtest/B15B/broken/clock.bas deleted file mode 100644 index ab3bc27..0000000 --- a/bwbtest/B15B/broken/clock.bas +++ /dev/null @@ -1,20 +0,0 @@ -200 REM BEFORE RUNNING THESE LINES, READ THE CLOCK AND OBTAIN THE -210 REM UT DATE AND TIME IN THE FORM Y,M,D,H1,M1,S1 -220 REM -230 D=D+H1/24+M1/1440+S1/86400 -250 G=1: GOSUB 820: V=(J+F)/29.53058868: C=V-INT(V) -260 IF C<0.02 THEN 340 -270 IF C<0.11 THEN PRINT "LAST QUARTER MOON": GOTO 350 -280 IF C<0.27 THEN PRINT "MOON IS A MORNING CRESCENT": GOTO 350 -290 IF C<0.35 THEN PRINT "NEW MOON": GOTO 350 -300 IF C<0.51 THEN PRINT "MOON IS AN EVENING CRESCENT": GOTO 350 -310 IF C<0.61 THEN PRINT "FIRST QUARTER MOON": GOTO 350 -320 IF C<0.77 THEN PRINT "MOON IS WAXING GIBBOUS": GOTO 350 -330 IF C<0.85 THEN PRINT "FULL MOON": GOTO 350 -340 PRINT "MOON IS WANING GIBBOUS" -350 END -867 RETURN -900 REM ************************************************************* -901 REM FROM SKY & TELESCOPE, MAY, 1987, PAGE 536-537. FOR APPLE -902 REM COMPUTERS ONLY. MERGE WITH CALJD.BAS (MAY, 1984, PAGE 455). -903 REM ************************************************************* diff --git a/bwbtest/B15B/broken/galisa.bas b/bwbtest/B15B/broken/galisa.bas deleted file mode 100644 index d564306..0000000 --- a/bwbtest/B15B/broken/galisa.bas +++ /dev/null @@ -1,98 +0,0 @@ -10 REM GALISAT -15 REM -20 TEXT: HOME: PRINT -25 PRINT "WHICH IS TOWARD LEFT:" -30 INPUT "EAST OR WEST? ";A$ -35 IF LEFT$(A$,1)="W" THEN 50 -40 IF LEFT$(A$,1)="E" THEN 60 -45 GOTO 30 -50 L=1: L$="WEST": R$="EAST" -55 GOTO 65 -60 L=-1: L$="EAST": R$="WEST" -65 GOSUB 800 -70 N=J-2415020+F -75 PI=3.14159265: P=PI/180 -80 VTAB 21: INVERSE: PRINT L$; -85 HTAB 37: PRINT R$: NORMAL -90 VTAB 21:HTAB 7:PRINT "YEAR ";Y; -95 HTAB 19: PRINT "MONTH ";M; -100 HTAB 30: PRINT "DAY " -105 V=0: HGR : HCOLOR=3 -110 GOSUB 295 -115 DL=INT((N-INT(N))*20+0.5)/20 -120 IF DL=0.5 THEN GOSUB 335 -125 MT=(358.476+0.9856003*N)*P -130 MJ=(225.328+0.0830853*N)*P -135 JJ=221.647+0.9025179*N -140 VT=1.92*SIN(MT)+0.02*SIN(2*MT) -145 VJ=5.55*SIN(MJ)+0.17*SIN(2*MJ) -150 K=(JJ+VT-VJ)*P -155 DT=SQR(28.07-10.406*COS(K)) -160 Z=SIN(K)/DT -165 I=ATN(Z/SQR(1-Z*Z)) -170 I=I/P -175 F=(N-DT/173) -180 F1=I-VJ -185 U1=84.5506+203.405863*F+F1 -190 U2=41.5015+101.2916323*F+F1 -195 U3=109.9770+50.2345169*F+F1 -200 U4=176.3586+21.4879802*F+F1 -205 X1=5.906*SIN(U1*P+PI) -210 X=X1: GOSUB 315 -215 X2=9.397*SIN(U2*P+PI) -220 X=X2: GOSUB 315 -225 X3=14.989*SIN(U3*P+PI) -230 X=X3: GOSUB 315 -235 X4=26.364*SIN(U4*P+PI) -240 X=X4: GOSUB 315 -245 V=V+1: N=N+0.05 -250 IF V>=155 THEN 265 -255 IF D>=33 THEN 275 -260 GOTO 115 -265 INPUT "CONTINUE (Y OR N)?";A$ -270 IF A$<>"N" THEN 105 -275 INPUT "ANOTHER MONTH? ";A$ -280 IF A$<>"N" THEN 20 -285 TEXT: HOME -290 END -291 REM -295 REM JUPITER DISPLAY -300 HPLOT 136,0 TO 136,155 -305 HPLOT 142,0 TO 142,155 -310 RETURN -315 REM SATELLITE DISPLAY -320 X=139+L*INT(X*3.5+0.5) -325 HPLOT X,V -330 RETURN -335 REM CHANGE OF DATE -340 VTAB 21: HTAB 34: PRINT D -345 HPLOT 5,V TO 25,V -350 HPLOT 255,V TO 275,V -355 D=D+1 -360 RETURN -365 REM -800 REM CALENDAR --> JD -805 REM -810 INPUT "Y,M,D? ";Y,M,D -811 D=INT(D) -815 G=1: IF Y<=1582 THEN G=0 -820 D1=INT(D): F=D-D1-0.5 -825 J=-INT(7*(INT((M+9)/12)+Y)/4) -830 IF G=0 THEN 850 -835 S=SGN(M-9): A=ABS(M-9) -840 J1=INT(Y+S*INT(A/7)) -845 J1=-INT((INT(J1/100)+1)*3/4) -850 J=J+INT(275*M/9)+D1+G*J1 -855 J=J+1721027+2*G+367*Y -860 IF F>=0 THEN 870 -865 F=F+1: J=J-1 -870 RETURN -900 REM ********************** -910 REM THIS PROGRAM COMPUTES -920 REM POSITIONS OF THE FOUR -930 REM BRIGHT MOONS OF JUPITER -940 REM ON APPLE II COMPUTERS. -950 REM IT IS DESCRIBED IN SKY -960 REM & TELESCOPE MAGAZINE, -970 REM JUNE, 1989, PAGE 650. -980 REM ********************** diff --git a/bwbtest/B15B/broken/glob2.bas b/bwbtest/B15B/broken/glob2.bas deleted file mode 100644 index 99579fc..0000000 --- a/bwbtest/B15B/broken/glob2.bas +++ /dev/null @@ -1,53 +0,0 @@ -13 DIM X(30),Y(30),Z(30) -15 J=0 -23 J=J+1 -45 X(J)=X -51 Y(J)=Y -57 Z(J)=Z -64 GOTO 100 -100 PRINT: PRINT: PRINT -110 FOR I=1 TO J -120 IF S=1 THEN Y(I)=Z(I) -130 IF S=3 THEN X(I)=-Y(I): Y(I)=Z(I) -140 NEXT -150 HGR: C=0.00105: X=100: Y=70 -160 IF S=3 THEN X=130 -170 GOSUB 370: DX=0: DY=0: GOTO 240 -180 DX=0: DY=0: GET C$ -190 IF C$="L" THEN DX=-1 -200 IF C$="U" THEN DY=-1 -210 IF C$="D" THEN DY=+1 -220 IF C$="R" THEN DX=+1 -230 IF DX=0 AND DY=0 THEN 180 -240 FOR I=1 TO J: GOSUB 290: NEXT: GOSUB 480 -250 X=X+DX: Y=Y+DY: HCOLOR=3: GOSUB 500: IF S=3 THEN 180 -260 D=SQR((XC-X)*(XC-X)+(YC-Y)*(YC-Y))/C: VTAB 22: HTAB 1 -270 PRINT "DISTANCE TO CENTER: ";INT(D);" L.Y. ": GOTO 180 -280 REM -290 X0=X(I)*C+X: Y0=-Y(I)*C+Y -300 IF X0<0 OR X0>279 OR Y0<0 OR Y0>160 THEN 320 -310 HCOLOR=0: HPLOT X0,Y0 -320 X0=X0+DX: YO=Y0+DY -330 IF X0<0 OR X0>279 OR Y0<0 OR Y0>160 THEN 350 -340 HCOLOR=3: HPLOT X0,Y0 -350 RETURN -360 REM -370 HCOLOR=3: REM MILKY WAY -380 RM=5*5: XC=140: YC=80: XR=50: YR=0.03*XR -390 IF S=2 THEN YR=XR -400 HPLOT XR+XC,YC -410 FOR T=0 TO 6.3 STEP 0.1 -420 X1=XR*COS(T): Y1=YR*SIN(T) -430 IF X1*X1+Y1*Y11 THEN 210 -205 X1=.6: X2=.6: E=.1 -210 IF Q<>2 THEN 220 -215 X1=.8: X2=.4: E=.05 -220 IF Q<>3 THEN 230 -225 X1=.8: X2=.4: E=.02 -230 IF Q<>4 THEN 240 -235 X1=.8: X2=.4: E=0 -240 IF X1=0 THEN 90 -250 GOSUB 1500 -260 PRINT "LIMB-DARKENING COEFFS:" -265 PRINT " FOR LARGER STAR ";X1 -270 PRINT " FOR SECONDARY ";X2 -280 PRINT -290 PRINT "OBLATENESS COEFF: ";E -300 PRINT -320 INPUT "CHANGES (Y OR N) ";A$ -330 IF A$<>"Y" THEN 460 -340 PRINT "ENTER NEW LIMB-DARKEN-" -341 PRINT "ING COEFFICIENTS:" -350 INPUT " FOR LARGER STAR ";X1 -360 INPUT " FOR SECONDARY ";X2 -410 PRINT: PRINT -430 INPUT "OBLATENESS COEFF ";E -450 REM -460 REM GET CHARACTERISTICS -480 GOSUB 1500 -490 INPUT "ORBITAL RADIUS ";R -500 INPUT "INCLINATION ";I -520 INPUT "PRIMARY'S RADIUS ";R1 -530 INPUT " LUMINOSITY ";L1 -540 INPUT "SECONDARY RADIUS ";R2 -560 INPUT " LUMINOSITY ";L2 -570 P=100 -580 REM : REM HGR: HCOLOR=3 -582 GOSUB 1500: LOCATE 21 : REM GOSUB 1500: VTAB 21 -590 REM -600 REM PLOT AXES -620 LINE (35,159)-(235,159) : REM HPLOT 35,159 TO 235,159 -630 FOR J=0 TO 10 -640 PSET (20*J+35,158) : REM HPLOT (20*J)+35,158 -650 NEXT J -660 LINE (35,159)-(35,9) : REM HPLOT 35,159 TO 35,9 -670 FOR K=0 TO 10 -680 PSET (36,159-15*K) : REM HPLOT 36,159-(15*K) -690 NEXT K -700 PI=3.14159: RD=180/PI: DR=1/RD -710 REM -720 REM COMPUTE STAR POSITION -740 FOR V=1.8 TO 360 STEP 1.8 -750 D=R*SIN(V*DR) -760 IF V>=180 THEN D=ABS(D) -770 REM -780 REM COMPUTE LUMINOSITIES FOR -781 REM TOTAL & ANNULAR ECLIPSES -800 IF I<90 THEN GOSUB 1250 -810 GOSUB 1320 -820 IF D>=(R1-R2) THEN 850 -830 IF V>90 AND V<270 THEN B=L1-L2 -835 IF V>90 AND V<270 THEN 850 -840 K5=L1*(PI*R1^2-PI*R2^2) -845 B=L2+C1*K5/(PI*R1^2) -850 IF D>=(R1+R2) THEN B=L1+L2 -860 IF D<(R1+R2) THEN GOSUB 970 -870 PV=(V/1.8)+35 -880 GOSUB 1380: GOSUB 1430 -900 B0=139 -905 B=B0-((B*OL)-DL)*P -910 B=INT(B+.5) -920 IF V<>1.8 THEN 930 -925 PSET (PV,B): GOTO 940 : REM HPLOT PV,B: GOTO 940 -930 LINE -(PV,B) : REM HPLOT TO PV,B -940 NEXT V -950 GOTO 1530 -960 REM -970 REM COMPUTE OBSCUR'N ANGLES -980 K0=(R2^2)/(2*D*R1) -990 C5=K0*((D/R2)^2+(R1/R2)^2-1) -1000 D1=R1*C5: D2=D-D1 -1020 H=SQR(R1*R1-D1*D1): S5=H/R1 -1050 A1=ABS(ATN(S5/C5))*RD -1060 C6=D2/R2: S6=H/R2 -1090 A2=ABS(ATN(S6/C6))*RD -1100 REM -1110 REM COMPUTE SECTOR AREAS & -1120 REM PARTIAL ECLIPSES -1130 T1=(H*D1)/2: T2=(H*D2)/2 -1150 S2=PI*R2^2*2*A2/360 -1160 S1=PI*R1^2*2*A1/360 -1170 OB=(S1-T1)+(S2-T2) -1180 IF V>90 AND V<270 THEN 1205 -1190 K1=L1*C1*(PI*R1^2-OB) -1195 B=L2+K1/(PI*R1^2) -1200 GOTO 1230 -1205 K2=L2*C2*(PI*R2^2-OB) -1210 B=L1+K2/(PI*R2^2) -1220 IF V=360 THEN 1530 -1230 RETURN -1240 REM -1250 REM CORRECT FOR INCLINATION -1260 K3=SIN((90-I)*DR) -1270 OP=R*SIN((V-90)*DR)*K3 -1280 S=SQR(OP^2+D^2): D=S -1300 RETURN -1310 REM -1320 REM CORRECT FOR L-DARKENING -1340 C1=1-X1+X1*ABS(COS(V*DR)) -1350 C2=1-X2+X2*ABS(COS(V*DR)) -1360 RETURN -1370 REM -1380 REM CORRECT FOR OBLATENESS -1390 K4=(SIN(I*DR))^2*(COS(V*DR))^2 -1400 OL=1-E*K4 -1410 RETURN -1420 REM -1430 REM CORRECT FOR REFLECTION -1440 REM AND RERADIATION -1450 SH=.4*L1*R2^2: SC=.4*L2*R1^2 -1460 SI=SIN(I*DR): CV=ABS(COS(V*DR)) -1470 DL=.5*(SC+SH)+(SC-SH)*SI*CV -1471 DL=DL+.5*(SC+SH)*SI^2*CV^2 -1475 DL=DL/3 -1480 RETURN -1490 REM -1500 REM BLANK THE SCREEN -1510 CLS: RETURN : REM HOME: RETURN -1530 END -1540 REM ************************************ -1550 REM APPEARED IN ASTRONOMICAL COMPUTING -1560 REM SKY & TELESCOPE - OCTOBER 1989 ISSUE -1570 REM ************************************ diff --git a/bwbtest/B15B/broken/hartley.bas b/bwbtest/B15B/broken/hartley.bas deleted file mode 100644 index 3f7c826..0000000 --- a/bwbtest/B15B/broken/hartley.bas +++ /dev/null @@ -1,93 +0,0 @@ -10 REM GLOBE-DRAWING PROGRAM -15 REM -20 FF=1: REM FLATTENING FACTOR -40 RM=80: REM RADIUS OF GLOBE -50 INPUT "TILT ANGLE ";T -60 DR=3.14159/180: TI=T*DR -80 XC=250: YC=150: REM SCR CENTER -90 CT=COS(TI): ST=SIN(TI) -95 REM -100 REM DRAW LATITUDE LINES -110 FOR LA=-75 TO 75 STEP 15 -120 IF T>0 THEN 150 -130 IF 90+TLA THEN 270 -160 L=LA*DR:SL=SIN(L):R=RM*COS(L) -170 GOSUB 570 -190 FOR P1=PS+5 TO -PS STEP 5 -200 P=P1*DR: X=R*SIN(P)+XC -210 Y1=RM*SL: Z1=R*COS(P) -220 Z=Z1*CT+Y1*ST -225 Y=-Z1*ST+Y1*CT+YC -230 IF Z<0 THEN 250 -240 LINE (XS,YS*FF)-(X,Y*FF) -250 XS=X: YS=Y -260 NEXT P1 -270 NEXT LA -280 REM DRAW LONGITUDE LINES -290 FOR L=-180 TO 165 STEP 15 -300 LO=L*DR -310 IF TI<0 THEN 340 -320 TH=90*DR: DT=-5*DR: GOTO 350 -340 TH=-90*DR: DT=5*DR -350 GOSUB 750 -360 Z=1: TH=TH+DT -380 CH=COS(TH): X=RM*SIN(LO)*CH+XC -390 Y1=RM*SIN(TH):Z1=RM*COS(LO)*CH -400 Z=Y1*ST+Z1*CT:Y=Y1*CT-Z1*ST+YC -410 IF Z<0 THEN 430 -420 LINE (XS,YS*FF)-(X,Y*FF) -430 XS=X: YS=Y: TH=TH+DT -440 IF Z>=0 THEN 380 -450 NEXT L -460 REM DRAW LIMB OF GLOBE -470 XS=RM+XC: YS=YC -480 FOR I=0 TO 360 STEP 10 -490 IA=I*DR: X=RM*COS(IA)+XC -500 Y=RM*SIN(IA)+YC -510 LINE (XS,YS*FF)-(X,Y*FF) -520 XS=X: YS=Y -530 NEXT I -540 INPUT A$ -550 END -560 REM STARTING LATITUDE LINE -570 CP=-ST*SIN(L)/(CT*COS(L)) -580 IF CP>=1 OR CP<=-1 THEN 640 -590 IF CP*CP>.001 THEN 620 -600 P=-90*DR: GOTO 650 -620 TP=SQR(1-CP*CP)/CP: P=ATN(TP) -630 GOTO 650 -640 P=0 -650 IF P<=0 THEN 680 -660 P=-P: GOTO 690 -680 P=-180*DR-P -690 X=R*SIN(P)+XC -700 Y1=RM*SIN(L): Z1=R*COS(P) -710 Y=-Z1*SIN(TI)+Y1*COS(TI)+YC -720 XS=X: YS=Y: PS=P/DR -730 RETURN -740 REM STARTING LONGITUDE LINE -750 X=RM*SIN(LO)*COS(TH)+XC -760 Y1=RM*SIN(TH) -770 Z1=RM*COS(LO)*COS(TH) -780 Y=-Z1*ST+Y1*CT+YC: XS=X: YS=Y -790 RETURN -800 REM This program is used -810 REM to draw an outline of a -811 REM planet's disk with latitude -812 REM and longitude lines as an -813 REM aid to sketching in features -814 REM at the telescope and identi- -815 REM fying them on a published map. -816 REM How it works is discussed by -817 REM Charles Hartley in the Jan- -818 REM uary, 1990, issue of Sky & -819 REM Telescope magazine. Intended -820 REM for Macintosh, but works on -821 REM IBM PC's with very little -822 REM modification. For example, -823 REM add line 95 SCREEN 9 if you -824 REM have VGA graphics, and try -825 REM setting FF=0.7 in line 20 to -826 REM get a disk that looks right. diff --git a/bwbtest/B15B/broken/heliac.bas b/bwbtest/B15B/broken/heliac.bas deleted file mode 100644 index 70038de..0000000 --- a/bwbtest/B15B/broken/heliac.bas +++ /dev/null @@ -1,82 +0,0 @@ -10 REM HELIACAL RISE AND SET -11 P1=3.14159265 : R=P1/180 -12 P2=P1/2 : P3=1.5*P1 : P4=2*P1 -13 A8=LOG(10) : R1=.017202 -14 INPUT "EXTINCTION";K -15 INPUT "LIMITING MAG";M0 -16 INPUT "STAR MAG.";M -17 INPUT "STAR R.A. (HOURS)";A1 -18 INPUT " DEC. (DEG.) ";D1 -19 INPUT "OBS LATITUDE ";L -20 A1=A1*15*R : D1=D1*R : L=L*R -21 S1=SIN(D1) : C1=COS(D1) -22 S7=SIN(L) : C7=COS(L) -23 INPUT "RISE OR SET";R$ -24 R$=LEFT$(R$,1) -25 IF R$="R" THEN F=1 -26 IF R$="S" THEN F=-1 -27 V1=-S7*S1/(C7*C1) -28 IF V1=0 THEN H1=P1/2 -29 IF V1=0 THEN 32 -30 IF V1<-1 THEN V1=-1 -31 H1=ATN(SQR(1-V1*V1)/V1) -32 IF V1<0 THEN H1=H1+P1 -33 H1=A1-F*H1 -34 X=-.2*(M0-7.93+K) -35 B0=79.4*(10^X-1)^2-K*589 -36 D=80+A1*58.13-60*F -37 D=D+F : G=D*R1-.062 -38 PRINT " TRIAL DAY: ";INT(D) -39 L0=D*R1-1.406+.033*SIN(G) -40 A0=ATN(.917*SIN(L0)/COS(L0)) -41 D0=.398*SIN(L0) -42 D0=ATN(D0/SQR(1-D0*D0)) -43 IF L0P3 THEN 45 -44 A0=A0+P1 -45 IF L0>P3 THEN A0=A0+P4 -46 C0=-S7*SIN(D0)/(C7*COS(D0)) -47 H0=ATN(SQR(1-C0*C0)/C0) -48 IF C0<0 THEN H0=H0+P1 -49 H0=A0-F*H0 -50 IF F*(H1-H0)>0 THEN 37 -51 N=-100 : T=H1-F/30 -52 T=T+F/30 -53 IF F*(T-H0)>0 THEN 37 -54 N0=N : REM LIMITING MAG. -55 A9=S7*S1+C7*C1*COS(A1-T) -56 IF A9<-1 THEN A9=-1 -57 IF A9=0 THEN Z1=P1/2 -58 IF A9=0 THEN 60 -59 Z1=ATN(SQR(1-A9*A9)/A9) -60 A9=C7*COS(D0)*COS(T-A0) -61 A9=A9+S7*SIN(D0) -62 H5=ATN(A9/SQR(1-A9*A9)) -63 A9=C1*COS(D0)*COS(A0-A1) -64 C2=A9+S1*SIN(D0) -65 A9=C2-COS(Z1)*SIN(H5) -66 A9=A9/(SIN(Z1)*COS(H5)) -67 IF A9<-1 THEN A9=-1 -68 T1=ATN(SQR(1-A9*A9)/A9) -69 A5=.025*EXP(-11*COS(Z1)) -70 A5=1/(COS(Z1)+A5) -71 L5=H5*(8.2*Z1+12)+2.86*Z1 -72 L5=4.75-T1*Z1/3+L5 -73 B=B0+(K/.2)*(10^L5) -74 IF L5<2.07 THEN B=B0+K*589 -75 C5=4.466E-09 : K5=1.258E-06 -76 IF B<1649 THEN C5=1.58E-10 -77 IF B<1649 THEN K5=.0126 -78 N=C5*(1+SQR(K5*B))^2 -79 N=-16.57-K*A5-2.5*LOG(N)/A8 -80 IF N>N0 THEN 52 -81 IF N0=366 THEN D=D-365.25 -83 PRINT "DAY OF YEAR: ";INT(D) -84 PRINT "STAR: ";INT(90.5-Z1/R) -85 PRINT "SUN: ";INT(H5/R+.5) -86 END -87 REM ------------------------ -88 REM APPEARED IN ASTRONOMICAL -89 REM COMPUTING, SKY & TELE- -90 REM SCOPE, SEPTEMBER, 1985 -91 REM ------------------------ diff --git a/bwbtest/B15B/broken/jack.bas b/bwbtest/B15B/broken/jack.bas deleted file mode 100644 index 4b92299..0000000 --- a/bwbtest/B15B/broken/jack.bas +++ /dev/null @@ -1,69 +0,0 @@ -10 ' Orbit of Jack -11 ' -12 DEFDBL A-Z -20 SR=5/7 -30 X0=320 -40 Y0=175 -50 CLS -60 PI=3.14159 -70 INPUT "Days in A's year ";YA -80 INPUT "Mass of A ";K -90 INPUT "Jack's initial velocity ";VY -100 CLS -110 M=70 -120 W=2*PI/YA -130 RA=200 -140 X=100 -150 Y=0 -160 T=0 -170 VX=0 -180 SCREEN 9 -190 LINE(1,Y0)-(630,Y0) -200 LINE(X0-1,Y0+1)-(X0+1,Y0+1) -201 LINE(X0-1,Y0-1)-(X0+1,Y0-1) -210 AX=RA*COS(W*T) -220 AY=RA*SIN(W*T) -230 T=T+1 -240 R3=(X^2+Y^2)^1.5 -250 Z3=((X-AX)^2+(Y-AY)^2)^1.5 -260 VX=VX-M*X/R3+K*(AX-X)/Z3 -270 VY=VY-M*Y/R3+K*(AY-Y)/Z3 -280 X=X+VX -290 Y=Y+VY -300 PSET (X0+PX,Y0-PY*SR),0 -310 PSET (X0+QX,Y0-QY*SR),6 -320 PSET (X0+X,Y0-Y*SR) -330 PSET (X0+AX,Y0-AY*SR) -340 PX=AX -350 PY=AY -360 QX=X -370 QY=Y -380 IF Y<0 THEN SB=0 -390 IF Y>0 AND SB=0 THEN 410 -400 GOTO 210 -410 SB=1 -420 R$=INKEY$ -430 IF R$<>"" THEN 500 -450 PB=T-TA -460 TA=T -470 LOCATE 24,30 -480 PRINT "Jack's period is ";PB;" days"; -490 GOTO 210 -500 END -510 ' -520 ' Written by Caxton Foster, this program displays the motion of -530 ' two planets around a central star in a hypothetical solar system. -540 ' The inner planet is called Jack; it is considered to have negligible -550 ' mass, but you can specify its starting velocity (a number from 0 to -560 ' 1.6 works best -- if the velocity is greater than 1.6, Jack escapes -570 ' the solar system). The outer planet moves in a circular orbit, and -580 ' you can specify its period (typically 300 to 2,000 "days") and mass -590 ' (10 or less). No matter what period you select, its orbit is a -600 ' circular one with a radius twice that of Jack's starting orbit. -610 ' (Thus, Kepler's laws apply to Jack, but not to this arbitrary outer -620 ' planet.) The program runs on IBM PCs or clones with VGA color -630 ' graphics. By playing around with input values it is possible to -640 ' make Jack's orbit have resonance, show apsidal motion, or put it on a -650 ' near-collision course with planet A that ejects Jack from the solar -660 ' system. The program is discussed on page 660 of the September 1994 -670 ' issue of Sky & Telescope. diff --git a/bwbtest/B15B/broken/list.bas b/bwbtest/B15B/broken/list.bas deleted file mode 100644 index 8c75757..0000000 --- a/bwbtest/B15B/broken/list.bas +++ /dev/null @@ -1,83 +0,0 @@ -10 REM INDEX-PRINTING PROGRAM -20 OPEN "R",1,"NGC2000.DAT",24 -22 OPEN "R",2,"INDEX.DAT",2 -24 FIELD 1,5 AS N$,1 AS T$,2 AS H$,3 AS M$,3 AS D$,2 AS M1$,4 AS S$ -26 FIELD 2,2 AS I$ -30 WIDTH "LPT1:",132 -40 LPRINT CHR$(15);SPC(25);"OBJECT";SPC(4);"R.A.";SPC(12);"DEC";SPC(14);"ATLAS 2000";SPC(5);"URANOMETRIA" -50 LPRINT -60 FOR I=1 TO 50 -70 GET #2,I: J=CVI(I$): GET#1,J -80 K$=LEFT$(M$,2)+"."+RIGHT$(M$,1) -90 H=VAL(H$):M=VAL(K$):D=VAL(D$) -100 H=H+M/60:M1=VAL(M1$):D=D+M1/60 -110 IF D$="-" THEN D=-D -200 IF ABS(D)>18.5 THEN 280 -250 S=9+INT(H/3+1/1.2) -260 IF S=9 THEN S=17 -270 GOTO 340 -280 IF ABS(D)>=52 THEN 320 -290 S=4+INT(H/4) -300 IF D<0 THEN S=S+14 -310 GOTO 340 -320 S=1+INT(H/8) -330 IF D<0 THEN S=S+23 -340 IF ABS(D)>=5.5 THEN 390 -350 U=215+INT(H*1.875+.5) -360 IF U=260 THEN U=215 -370 V$="Vol I,II" -380 GOTO 780 -390 IF D>0 THEN V$="Vol I" -400 IF D<0 THEN V$="Vol II" -410 IF ABS(D)>=50 THEN 610 -420 IF ABS(D)>=28 THEN 520 -430 IF ABS(D)>=17 THEN 480 -440 U=170+INT(H*1.875+.5) -450 IF U=215 THEN U=170 -460 IF D<0 THEN U=U+90 -470 GOTO 780 -480 U=125+INT(H*1.875+.5) -490 IF U=170 THEN U=125 -500 IF D<0 THEN U=U+180 -510 GOTO 780 -520 IF ABS(D)>=39 THEN 570 -530 U=89+INT(H*1.5+.5) -540 IF U=125 THEN U=89 -550 IF D<0 THEN U=U+261 -560 GOTO 780 -570 U=59+INT(H/.8+.5) -580 IF U=89 THEN U=59 -590 IF D<0 THEN U=U+327 -600 GOTO 780 -610 IF ABS(D)>=72.5 THEN 710 -620 IF ABS(D)>= 61 THEN 670 -630 U=35+INT(H+.5) -640 IF U=59 THEN U=35 -650 IF D<0 THEN U=U+381 -660 GOTO 780 -670 U=15+INT(H/1.2+.5) -680 IF U=35 THEN U=15 -690 IF D<0 THEN U=U+425 -700 GOTO 780 -710 IF ABS(D)>= 84.5 THEN 760 -720 U=3+INT(H/2+1/2.4) -730 IF U=15 THEN U=3 -740 IF D<0 THEN U=U+457 -750 GOTO 780 -760 U=1+INT(H/12) -770 IF D<0 THEN U=474-U -780 LPRINT SPC(25);N$;SPC(4);H$;"hrs ";K$;"min. ";SPC(2);D$;"deg ";M1$;"min. ";SPC(3);"CHART";S;TAB(84);"CHART";U;V$ -790 K=K+1: IF K<25 THEN 850 -810 LPRINT -820 LPRINT CHR$(15);SPC(25);"OBJECT";SPC(4);"R.A.";SPC(12);"DEC";SPC(14);"ATLAS 2000";SPC(5);"URANOMETRIA" -830 K=0: LPRINT -850 NEXT I -860 WIDTH "LPT1:",80 -870 LPRINT CHR$(18): END -900 ' -910 ' Written by Tim Hunter, MD, this program for IBM PC and compatible -920 ' machines prints an index that tells which charts in Sky Atlas 2000.0 -930 ' and Uranometria 2000.0 show various NGC and IC objects. To work, it -940 ' assumes you have the machine-readable version of NGC 2000.0 (available -950 ' separately from Sky Publishing Corp.) in the same directory. For -960 ' more about the program, see Sky & Telescope, August 1991, p. 182. diff --git a/bwbtest/B15B/broken/marche.bas b/bwbtest/B15B/broken/marche.bas deleted file mode 100644 index 675845f..0000000 --- a/bwbtest/B15B/broken/marche.bas +++ /dev/null @@ -1,124 +0,0 @@ -100 REM ASTROMETRIC REDUCTION -105 REM -110 DIM XZ(10),YZ(10),X1(10),Y1(10) -115 DIM AA(10),DXZ(10),RR(10,9),RAA(10),RDXZ(10) -120 DEFDBL A-H,K-Z -125 ' PI=3.141592653589793: -126 DR=PI/180 -130 INPUT "Camera focal length";L -135 PRINT "R.A. of plate center (h,m,s)"; -140 GOSUB 630: A0=V*15*DR -145 PRINT "Dec. of plate center (d,m,s)"; -150 GOSUB 630: D0=V*DR: SD=SIN(D0): CD=COS(D0) -160 INPUT "Equinox, epoch";EQ,EP -165 T=EP-EQ -170 INPUT "How many stars (4-10)";N -175 FOR J=1 TO N -180 PRINT -185 PRINT "R.A. of star ";J;"(h,m,s)"; -190 GOSUB 630 -195 INPUT "Proper motion (sec/yr)";M1 -200 AA(J)=(V+T*M1/3600)*15*DR -205 PRINT "Dec. (d,m,s)"; -210 GOSUB 630 -215 INPUT "Proper motion (arcsec/yr)";M2 -220 DXZ(J)=(V+T*M2/3600)*DR: SJ=SIN(DXZ(J)): CJ=COS(DXZ(J)) -225 H=SJ*SD+CJ*CD*COS(AA(J)-A0) -230 X1(J)=CJ*SIN(AA(J)-A0)/H -235 Y1(J)=(SJ*CD-CJ*SD*COS(AA(J)-A0))/H -240 INPUT "Measured X,Y";XZ(J),YZ(J) -245 NEXT J -250 PRINT -255 INPUT "Measured X,Y of target";X,Y -260 R1=0: R2=0: R3=0: R7=0: R8=0: R9=0: XS=0: YS=0 -265 FOR J=1 TO N -270 XS=XS+XZ(J): YS=YS+YZ(J): RR(J,1)=XZ(J)*XZ(J) -275 R1=R1+RR(J,1): RR(J,2)=YZ(J)*YZ(J): R2=R2+RR(J,2) -280 RR(J,3)=XZ(J)*YZ(J): R3=R3+RR(J,3) -285 RR(J,7)=Y1(J)-YZ(J)/L: R7=R7+RR(J,7) -290 RR(J,8)=RR(J,7)*XZ(J): R8=R8+RR(J,8) -295 RR(J,9)=RR(J,7)*YZ(J): R9=R9+RR(J,9) -300 NEXT J -305 REM Now solve for D, E, F, by Cramer's Rule -310 DD=R1*(R2*N-YS*YS)-R3*(R3*N-XS*YS)+XS*(R3*YS-XS*R2) -315 D=R8*(R2*N-YS*YS)-R3*(R9*N-R7*YS)+XS*(R9*YS-R7*R2) -320 E=R1*(R9*N-R7*YS)-R8*(R3*N-XS*YS)+XS*(R3*R7-XS*R9) -325 F=R1*(R2*R7-YS*R9)-R3*(R3*R7-XS*R9)+R8*(R3*YS-XS*R2) -330 D=D/DD: E=E/DD: F=F/DD -335 REM -340 R4=0: R5=0: R6=0 -345 FOR J=1 TO N -350 RR(J,4)=X1(J)-XZ(J)/L: R4=R4+RR(J,4) -355 RR(J,5)=RR(J,4)*XZ(J): R5=R5+RR(J,5) -360 RR(J,6)=RR(J,4)*YZ(J): R6=R6+RR(J,6) -365 NEXT J -370 REM Now solve for A ,B, C, by Cramer's Rule -375 A=R5*(R2*N-YS*YS)-R3*(R6*N-R4*YS)+XS*(R6*YS-R4*R2) -380 B=R1*(R6*N-R4*YS)-R5*(R3*N-XS*YS)+XS*(R3*R4-XS*R6) -385 C=R1*(R2*R4-YS*R6)-R3*(R3*R4-XS*R6)+R5*(R3*YS-XS*R2) -390 A=A/DD: B=B/DD: C=C/DD -395 PRINT -400 PRINT " Plate Constants " -405 PRINT " R.A. Dec. -410 PRINT USING "A = ##.##### D = ##.#####";A;D -415 PRINT USING "B = ##.##### E = ##.#####";B;E -420 PRINT USING "C = ##.##### F = ##.#####";C;F -425 REM -430 REM NOW FIND RESIDUALS -435 AS=0: DS=0 -440 FOR J=1 TO N -445 RAA(J)=XZ(J)-L*(X1(J)-(A*XZ(J)+B*YZ(J)+C)) -450 RDXZ(J)=YZ(J)-L*(Y1(J)-(D*XZ(J)+E*YZ(J)+F)) -455 AS=AS+((RAA(J)/L)*3600/(DR*15*COS(D0)))^2 -460 DS=DS+((RDXZ(J)/L)*3600/DR)^2 -465 NEXT J -470 S1=SQR(AS/(N-3)): S2=SQR(DS/(N-3)) -475 PRINT -480 PRINT "Residuals R.A. Dec." -482 A$=" Star ## #.##### #.#####" -485 FOR J=1 TO N -490 PRINT USING A$;J;RAA(J);RDXZ(J) -495 NEXT J -500 PRINT -505 REM Find standard coordinates of target -510 XX=A*X+B*Y+C+X/L: YY=D*X+E*Y+F+Y/L -515 B=CD-YY*SD: G=SQR(XX*XX+B*B) -520 REM -525 REM Find right ascension of target -530 A5=ATN(XX/B): IF B<0 THEN A5=A5+PI -535 A6=A5+A0: IF A6>2*PI THEN A6=A6-2*PI -540 IF A6<0 THEN A6=A6+2*PI -545 V=A6/(DR*15): GOSUB 660: A1=V1: A2=V2: A3=V3 -550 REM -555 REM Find declination of target -560 D6=ATN((SD+YY*CD)/G): V=D6/DR: GOSUB 660 -570 D1=V1: D2=V2: D3=V3 -575 REM -580 PRINT "For target:" -585 PRINT -590 PRINT "Right ascension "; -592 PRINT USING "## ## ##.###";A1;A2;A3 -595 PRINT USING " Std. dev. ##.###";S1 -600 PRINT -605 PRINT "Declination ";S$; -610 PRINT USING "## ## ##.##";D1;D2;D3 -615 PRINT USING " Std. dev. ##.##";S2 -620 END -625 REM -630 REM Input of sexagesimal values -635 INPUT V$,V2,V3 -640 S=1: IF LEFT$(V$,1)="-" THEN S=-1 -645 V1=ABS(VAL(V$)): V=S*(V1+V2/60+V3/3600) -655 RETURN -660 REM Output of sexagesimal values -665 S$="+": IF V<0 THEN S$="-" -670 V=ABS(V): V1=INT(V): VM=60*(V-V1) -675 V2=INT(VM): V3=60*(VM-V2) -680 RETURN -690 REM -700 REM This program is used to analyze measurements -710 REM of minor planet or comet positions on a -720 REM photographic plate and deduce precise -730 REM coordinates. Written by Jordan D. Marche -740 REM and explained by him in Sky & Telescope -750 REM for July, 1990, page 71. diff --git a/bwbtest/B15B/broken/mirror.bas b/bwbtest/B15B/broken/mirror.bas deleted file mode 100644 index d7871f6..0000000 --- a/bwbtest/B15B/broken/mirror.bas +++ /dev/null @@ -1,84 +0,0 @@ -10 REM FOUCAULT MIRROR TEST AT FOUR ZONES -20 REM -30 DIM A(4,9) -40 INPUT "Mirror's diameter ";W -50 INPUT "Radius of curvature";RR -60 R=W/2 -70 Z1=.3: Z2=.6: Z3=.8: Z4=.95: REM ZONES -80 X1=Z1*R: X2=Z2*R: X3=Z3*R: X4=Z4*R -90 L=.000022: REM WAVELENGTH IN INCHES -100 INPUT "Four zonal measurements";V1,V2,V3,V4 -110 F1=(X1/(2*RR*RR*L))*(X1*X1/RR-V1) -120 F2=(X2/(2*RR*RR*L))*(X2*X2/RR-V2) -130 F3=(X3/(2*RR*RR*L))*(X3*X3/RR-V3) -140 F4=(X4/(2*RR*RR*L))*(X4*X4/RR-V4) -150 A1=(X1)^7: B1=(X1)^5: C1=(X1)^3: D1=X1 -160 A2=(X2)^7: B2=(X2)^5: C2=(X2)^3: D2=X2 -170 A3=(X3)^7: B3=(X3)^5: C3=(X3)^3: D3=X3 -180 A4=(X4)^7: B4=(X4)^5: C4=(X4)^3: D4=X4 -190 M(1,1)=A1: M(1,2)=B1: M(1,3)=C1: M(1,4)=D1 -200 M(2,1)=A2: M(2,2)=B2: M(2,3)=C2: M(2,4)=D2 -210 M(3,1)=A3: M(3,2)=B3: M(3,3)=C3: M(3,4)=D3 -220 M(4,1)=A4: M(4,2)=B4: M(4,3)=C4: M(4,4)=D4 -230 M(1,5)=F1: M(2,5)=F2: M(3,5)=F3: M(4,5)=F4 -240 N=4: GOSUB 480: H=0: L=0 -250 A=M(1,5): B=M(2,5): C=M(3,5): D=M(4,5) -260 D=-A*R^6/4-B*R^4/3-C*R^2/2 -270 GOSUB 570: LINE (H0,YC)-(H0+1,YC) -280 FOR I=0 TO 1.001 STEP .05 -290 X=I*R: Y=A*X^8/8+B*X^6/6+C*X^4/4+D*X^2/2 -300 LINE -(H0+I*W1,YC-Y*W1) -310 REM PRINT "Zone ";I;TAB(20);"Surface error ";Y -320 IF Y>HI THEN HI=Y -330 IF Y"y" AND Q$<>"Y" THEN 440 -420 INPUT "New value for D";D -430 HI=0: LO=0: GOTO 270 -440 END -450 REM Solve 4 linear equations for 4 unknowns -460 REM (BYTE, August, 1983, page 396) -470 DE=1 -480 Y=N+1: FOR X=1 TO N: Y=Y+1: M(X,Y)=1: NEXT X -490 FOR G=1 TO N -500 J=2*N+1: DV=M(G,G): DE=DE*DV -510 FOR H=1 TO J: M(G,H)=M(G,H)/DV: NEXT H -520 FOR S=1 TO N -530 Q=M(S,G): IF S=G THEN 550 -540 FOR T=1 TO J: M(S,T)=M(S,T)-M(G,T)*Q: NEXT T -550 NEXT S: NEXT G -560 RETURN -570 REM PREPARE CHART -580 CLS: SCREEN 9 : Y1=85: Y2=95: YC=90 -590 W1=400: H0=100: H1=110: H3=H0+W1 -600 P1=H0+W1*Z1:P2=H0+W1*Z2:P3=H0+W1*Z3:P4=H0+W1*Z4 -610 LINE (H0,10)-(H0,170): LINE (H0,YC)-(H3,YC) -620 LINE (H0,10)-(H1,10): LINE (H0,50)-(H1,50) -630 LINE (H0,130)-(H1,130): LINE (H0,170)-(H1,170) -640 LINE (P1,Y1)-(P1,Y2): LINE (P2,Y1)-(P2,Y2) -650 LINE (P3,Y1)-(P3,Y2): LINE (P4,Y1)-(P4,Y2) -660 LINE (H3,Y1)-(H3,Y2) -670 LOCATE 1,1: PRINT "+0.2 wave" -680 LOCATE 4,1: PRINT "+0.1 wave" -690 LOCATE 7,1: PRINT " 0 wave" -700 LOCATE 10,1: PRINT "-0.1 wave" -710 LOCATE 13,1: PRINT "-0.2 wave" -720 LOCATE 14,13: PRINT "Center" -730 LOCATE 14,61: PRINT "Edge" -740 RETURN -800 REM -810 REM For IBM PCs with VGA graphics, this -820 REM program analyzes the results of a -830 REM Foucault knife-edge test of a parab- -840 REM oloidal telescope mirror, giving the -850 REM surface and wavefront error in wave- -860 REM lengths of light. Written by Roger -870 REM Sinnott, it is discussed in Sky & -880 REM Telescope magazine for February, 1990, -890 REM page 195. diff --git a/bwbtest/B15B/broken/model.bas b/bwbtest/B15B/broken/model.bas deleted file mode 100644 index 66b65c7..0000000 --- a/bwbtest/B15B/broken/model.bas +++ /dev/null @@ -1,52 +0,0 @@ -10 REM MAKE A GLOBULAR -12 REM -14 R0=20: R2=R0*R0: R3=R2*R0 -16 P1=3.14159265# -18 C0=P1*P1*R3/4 -20 R1=R0/SQR(2) -22 XM=512: YM=512 -24 X2=XM/2: Y2=YM/2: S=5 -26 INPUT "HOW MANY STARS ";T -27 RANDOMIZE TIMER -28 CLS: REM CLEAR SCREEN -30 FOR I=1 TO T -32 C=C0*RND: R=R1 -34 REM -36 REM NOW FIND R -38 FOR K=1 TO 5 -40 GOSUB 100 -42 R=R+(C-C1)/D -44 NEXT K -46 REM 3-DIMENSIONAL PLACE -48 X=RND-.5 -50 Y=RND-.5 -52 Z=RND-.5 -54 S1=SQR(X*X+Y*Y+Z*Z) -56 IF S1>.5 THEN GOTO 48 -58 REM POINT IS NOW IN SPHERE -60 R=R*S1: X=X*R: Y=Y*R: Z=Z*R -62 GOSUB 200 -64 NEXT I -66 END -68 REM -100 REM NEWTON-RAPHSON ITERATION -105 A=R/R0 -110 C1=ATN(A)*.5*R3 -115 A=1+A*A -120 C1=C1+R*.5*R2/A -125 C1=P1*(C1-R*R2/(A*A)) -130 D=4*P1*R*R/(A*A*A) -135 RETURN -140 REM -200 REM 2-DIMENSIONAL PLOT -203 SCREEN 9 -205 X=X*S+X2: Y=Y*S+Y2 -210 IF X<0 OR Y<0 THEN 225 -215 IF X>=XM OR Y>=YM THEN 225 -220 PSET(X,Y) -225 RETURN -230 REM ------------------------ -240 REM APPEARED IN ASTRONOMICAL -250 REM COMPUTING, SKY & TELE- -260 REM SCOPE, APRIL, 1986 -270 REM ------------------------ diff --git a/bwbtest/B15B/broken/origam.bas b/bwbtest/B15B/broken/origam.bas deleted file mode 100644 index e2f760b..0000000 --- a/bwbtest/B15B/broken/origam.bas +++ /dev/null @@ -1,103 +0,0 @@ -10 REM MODEL A COMET ORBIT -11 F$="&HAAAA": REM FINE DOTS -12 C$="&H1010": REM COARSE DOTS -13 DR=3.14159265/180: K=.0172021 -14 FC=1.575: LB=10: SD=360/365.25 -15 SC=.82: REM ADJ FOR PRINTER -16 INPUT "Eccentricity ";EC -17 IF EC>.99 THEN EC=1 -18 INPUT "q ";QC: REM PERI DIST. -19 INPUT "w ";W: REM ARG. PERI. -20 INPUT "Node ";OM: -21 INPUT "(D)irect or (R)etro";Q$ -22 IF Q$="R" THEN W=360-W -23 L=W+180:IF L>360 THEN L=L-360 -24 INPUT "Day increment";ID -25 INPUT "Scale (mm/a.u.)";MM -26 AU=MM*FC: REM 1 A.U. IN MM -27 AR=266*SD: OM=AR+OM: -28 IF OM>360 THEN OM=OM-360: -29 CLS: SCREEN 1: KEY OFF -30 REM --- MODEL THE COMET --- -31 IF EC<1 THEN FF=(1+EC)/(1-EC) -32 W0=3*K/(QC*SQR(2*QC)) -33 Q=QC*AU: REM Q IN MM -34 X1=LB+Q: Y1=100: REM SUN LOC -35 CIRCLE (X1,Y1),2 -36 F=0: GOSUB 77: REM PERI LINE -37 LINE (X1,Y1)-(X3,Y3) -38 IF QC>.1 THEN CIRCLE (X3,Y3),2 -39 FOR F=1 TO 359 -40 IF EC=1 AND F=180 THEN 42 -41 GOSUB 77: PSET (X3,Y3) -42 NEXT F -43 F=-W: GOSUB 77 -44 LINE (X1,Y1)-(X3,Y3),,,VAL(C$) -45 F=-L: GOSUB 77 -46 LINE (X1,Y1)-(X3,Y3),,,VAL(F$) -47 FOR I=1 TO 5 -48 T=I*ID: IF EC=1 THEN GOSUB 92 -49 IF EC<1 THEN GOSUB 84 -50 GOSUB 77: CIRCLE (X3,Y3),2 -51 F=-F:GOSUB 77:CIRCLE (X3,Y3),2 -52 NEXT I -53 PRINT "Comet": INPUT Q$ -54 REM --- MODEL THE EARTH --- -55 DIM T(12):REM START OF MONTHS -56 DATA 0,31,59,90,120,151 -57 DATA 181,212,243,273,304,334 -58 FOR I=1 TO 12 : READ T(I) -59 NEXT I -60 EC=0: Q=AU: X1=LB+Q: Y1=100 -61 CLS: CIRCLE (X1,Y1),2 -62 FOR I=1 TO 12 -63 F=T(I)*SD: GOSUB 77: -64 LINE (X1,Y1)-(X3,Y3),,,VAL(F$) -65 CIRCLE (X3,Y3),1 -66 F=(T(I)+10)*SD: GOSUB 77 -67 CIRCLE (X3,Y3),1 -68 F=(T(I)+20)*SD: GOSUB 77 -69 CIRCLE (X3,Y3),1 -70 NEXT I -71 F=AR: GOSUB 77: REM ARIES -72 LINE (X1,Y1)-(X3,Y3),,,VAL(C$) -73 F=OM: GOSUB 77: REM ASC NODE -74 LINE (X1,Y1)-(X3,Y3) -75 PRINT "Earth": INPUT Q$ -76 END -77 REM FIND POINT ALONG ORBIT -78 R=Q*(1+EC)/(1+EC*COS(F*DR)) -79 X=R*COS(F*DR): Y=R*SIN(F*DR) -80 X3=X1-X: Y3=Y1+SC*Y: N=32000 -81 IF SQR(X3*X3+Y3*Y3)1/10000 THEN 94 -97 F=2*ATN(S)/DR -98 RETURN -99 REM -100 REM Written by R. B. Minton, -110 REM this program for IBM PCs -120 REM with CGA graphics prints -130 REM paper outlines of the -140 REM orbits of the Earth and -150 REM a comet, which can then -160 REM be cut out and folded to -170 REM make a 3-dimensional -180 REM model that helps you -190 REM visualize the orbit in -200 REM space. Fully explained5 -210 REM in Sky & Telescope for -220 REM April, 1990, page 424. diff --git a/bwbtest/B15B/broken/periap.bas b/bwbtest/B15B/broken/periap.bas deleted file mode 100644 index 1e52fd1..0000000 --- a/bwbtest/B15B/broken/periap.bas +++ /dev/null @@ -1,78 +0,0 @@ -10 REM LUNAR PERIGEE AND APOGEE -11 INPUT "STARTING JD";J0 -12 P0=2415024.89: M0=27.554551 -13 J0=P0+M0*INT((J0-P0)/M0) -14 GOSUB 40 :REM GET CONSTANTS -15 FOR I=1 TO 3: P1=0: P2=0 -16 T=(J0-2415020)/36525: T2=T*T -17 M1=R*(296.105+R1*T+0.009192*T2) -18 D=R*(350.737+R2*T-0.001436*T2) -19 M=R*(358.476+R3*T-0.000150*T2) -20 F=R*(11.251+R4*T-0.003211*T2) -21 E=1-0.002495*T-0.00000752*T2 -22 FOR J=1 TO 30 -23 A(J)=A1(J)*E^C0(J) -24 B(J)=C1(J)*M1+C2(J)*D+C3(J)*M -25 B(J)=B(J)+C4(J)*F -26 P1=P1+A(J)*SIN(B(J))*R(J) -27 P2=P2+A(J)*COS(B(J))*R(J)*R(J) -28 NEXT J -29 J0=J0-(36525/R)*(P1/P2) -30 NEXT I -31 P=950724 -32 FOR J=1 TO 30: -33 P=P+A(J)*COS(B(J)) -34 NEXT J -35 K=6378.14/SIN(R*P*0.000001) -36 K=INT(K+0.5): PA$="PERIGEE " -37 IF P2<0 THEN PA$="APOGEE " -38 PRINT PA$;K;" KM JD ";J0 -39 J0=J0+13.78: GOTO 15 -40 REM CONSTANTS -41 DIM A(30),B(30),R(30),A1(30) -42 DIM C0(30),C1(30),C2(30),C3(30) -43 DIM C4(30): R=3.1415926536/180 -44 R1=477198.8491: R2=445267.1142 -45 R3=35999.0498: R4=483202.0251 -46 FOR J=1 TO 30 -47 READ A1(J),C0(J),C1(J) -48 READ C2(J),C3(J),C4(J) -49 R(J)=C1(J)*R1+C2(J)*R2 -50 R(J)=R(J)+C3(J)*R3+C4(J)*R4 -51 NEXT J -52 RETURN -53 DATA 51818,0,1,0,0,0 -54 DATA 9531,0,-1,2,0,0 -55 DATA 7843,0,0,2,0,0 -56 DATA 2824,0,2,0,0,0 -57 DATA 857,0,1,2,0,0 -58 DATA 533,1,0,2,-1,0 -59 DATA 401,1,-1,2,-1,0 -60 DATA 320,1,1,0,-1,0 -61 DATA -271,0,0,1,0,0 -62 DATA -264,1,1,0,1,0 -63 DATA -198,0,-1,0,0,2 -64 DATA 173,0,3,0,0,0 -65 DATA 167,0,-1,4,0,0 -66 DATA -111,1,0,0,1,0 -67 DATA 103,0,-2,4,0,0 -68 DATA -84,0,2,-2,0,0 -69 DATA -83,1,0,2,1,0 -70 DATA 79,0,2,2,0,0 -71 DATA 72,0,0,4,0,0 -72 DATA 64,1,1,2,-1,0 -73 DATA -63,1,-1,2,1,0 -74 DATA 41,1,0,1,1,0 -75 DATA 35,1,2,0,-1,0 -76 DATA -33,0,3,-2,0,0 -77 DATA -30,0,1,1,0,0 -78 DATA -29,0,0,-2,0,2 -79 DATA -29,1,2,0,1,0 -80 DATA 26,2,0,2,-2,0 -81 DATA -23,0,1,-2,0,2 -82 DATA 19,1,-1,4,-1,0 -83 REM ************************* -84 REM FROM ASTRONOMICAL COM- -85 REM COMPUTING, SKY & TELE- -86 REM SCOPE, NOV 87, PAGE 529 -87 REM ************************* diff --git a/bwbtest/B15B/broken/pillar.bas b/bwbtest/B15B/broken/pillar.bas deleted file mode 100644 index d3ebbe2..0000000 --- a/bwbtest/B15B/broken/pillar.bas +++ /dev/null @@ -1,44 +0,0 @@ -10 REM PILLAR.BAS by Rodney Kubesh -20 SCREEN 12 -30 REM Set Theta, the maximum angle of crystal tilt -40 TH = 4 -50 REM Sun angle Alpha, varied from 6 deg. -60 REM above horizon to 6 deg. below horizon -70 FOR I = 0 TO 12 -80 A = 6 - I -90 REM Calculate sky color -100 B& = 63 * (1 - .06 * I) : REM Blue -110 G& = 40 * (1 - .06 * I) : REM Green -120 R& = 45 * (1 - .06 * I) : REM Red -130 PALETTE 3, B& * 65536 + G& * 256 + R& -140 PAINT (320, 320), 3 -150 IF A >= 0 THEN -160 HI = 2 * TH - A -170 LO = -(2 * TH + A) -180 END IF -190 IF A < 0 THEN -200 HI = 2 * TH + ABS(A) -210 LO = ABS(A) - 2 * TH -220 END IF -230 FOR AN = LO TO HI STEP .5 -240 REM Draw the Sun -250 SU = 450 - (1000 * TAN(A * 3.14159 / 180)) -260 CIRCLE (320, SU), 10, 1 -270 PAINT (320, SU), 1, 1 -280 SP = 450 - (1000 * TAN(AN * 3.14159 / 180)) -290 PALETTE 1, 334143 -300 CIRCLE (320, SP), 3, 1 -310 PAINT (320, SP), 1, 1 -320 REM Draw the ground -330 LINE (0, 450)-(639, 480), , BF -340 NEXT AN -350 REM Hold screen for one second, then clear it -360 SLEEP 1 -370 IF I < 12 THEN CLS -380 NEXT I -390 END -900 REM --------------------------- -910 REM APPEARED IN ASTRONOMICAL -920 REM COMPUTING, SKY & TELESCOPE, -930 REM MAY 1999, PAGE 70 -940 REM --------------------------- diff --git a/bwbtest/B15B/broken/pulsar.bas b/bwbtest/B15B/broken/pulsar.bas deleted file mode 100644 index b475ccd..0000000 --- a/bwbtest/B15B/broken/pulsar.bas +++ /dev/null @@ -1,54 +0,0 @@ -10 ' RELATIVISTIC PRECESSION -20 DEFDBL A-Z -30 PI=4#*(ATN(1#)): XC=320: YC=165: SCREEN 9: KEY OFF -40 LOCATE 15,1: PRINT "Eccentricity (0 to 0.9) "; -50 INPUT EC: IF EC<0 OR EC>.9 THEN CLS : GOTO 40 -60 LOCATE 17,1: PRINT "Relativity strength (0 to 0.999)"; -70 PRINT SPC(40);: LOCATE 17,34 -80 INPUT SG: IF SG<0 OR SG>.999 THEN GOTO 60 -90 LOCATE 19,1: PRINT "Simulation speed (1 to 10)"; -100 PRINT SPC(40);: LOCATE 19,28: INPUT SS -110 IF SS<1 OR SS>10 THEN GOTO 90 -120 SS=.0009#*(SS-.9#)*(1#-.9#*EXP(10#*EC-9#)) -130 CLS: LOCATE 19,1: PRINT "Eccentricity" -140 PRINT USING " .######";EC; -150 LOCATE 22,1: PRINT "Relativity": PRINT "strength" -160 PRINT USING " .######";SG;: LOCATE 25,52 -170 COLOR 14: PRINT "(Press any key to interrupt)"; -180 SY=YC/(1+EC): SX=SY*1.33 -190 C0=(1#-SG*(3#+EC*EC)/(6#+2#*EC))/(1#-EC*EC) -200 RH=SG*(1#-EC*EC)/(3#+EC): C2=1.5#*RH -210 CIRCLE (XC,YC),SX*RH,8: PAINT (XC,YC),8 -220 LINE (0,YC)-(640,YC),7: LINE (XC,0)-(XC,350),7 -230 SN=0: QN=1#/(1#+EC): DN=0 -240 S=SN: Q=QN: D=DN: DP=DN: SP=SN: HN=SS*Q*Q -250 F=C0-Q+C2*Q*Q: K1=HN*F: L1=HN*D -260 S=SN+HN/2#: Q=QN+L1/2#: D=DN+K1/2# -270 F=C0-Q+C2*Q*Q: K2=HN*F: L2=HN*D -280 S=SN+HN/2#: Q=QN+L2/2#: D=DN+K2/2# -290 F=C0-Q+C2*Q*Q: K3=HN*F: L3=HN*D -300 S=SN+HN: Q=QN+L3: D=DN+K3 -310 F=C0-Q+C2*Q*Q: K4=HN*F: L4=HN*D -320 QN=QN+(L1+2#*L2+2#*L3+L4)/6# -330 DN=DN+(K1+2#*K2+2#*K3+K4)/6# -340 SN=SN+HN -350 PX=XC+SX*COS(SN)/QN: PY=YC-SY*SIN(SN)/QN -360 COLOR 9: PSET (PX,PY) -370 IF EC*DN>0 AND DP<0 THEN GOSUB 410 -380 IF INKEY$<>"" THEN END -390 GOTO 240 -400 ' -410 ' DRAW LINE TO APASTRON & COUNT ORBITS -420 COLOR 4: LINE (XC,YC)-(PX,PY) -430 N=N+1: LOCATE 1,56: COLOR 15 -440 PRINT "Number of orbits ";N; -450 IF N>1 THEN GOTO 500 -460 SA=(SP+(SN-SP)*DP/(DP-DN))*180/PI-360 -470 LOCATE 1,1: PRINT "Precession per orbit" -480 IF SA<360 THEN PRINT USING "######.#### deg"; SA -490 IF SA>=360 THEN PRINT USING "######.# deg"; SA -500 RETURN -610 ' This program by Jonathan Gallmeier, Mark Loewe, and -620 ' Donald W. Olson appeared in the article "Precession -630 ' and the Pulsar," Sky & Telescope, Oct. 1995, p. 86. - \ No newline at end of file diff --git a/bwbtest/B15B/broken/rainbow.bas b/bwbtest/B15B/broken/rainbow.bas deleted file mode 100644 index 9d40d88..0000000 --- a/bwbtest/B15B/broken/rainbow.bas +++ /dev/null @@ -1,57 +0,0 @@ -10 REM RAINBOW SIMULATION -20 REM -25 R0=180/3.14159 -30 REM RANDOM IMPACT PARAMETER -35 X=-1+2*RND(1) -40 Y=-1+2*RND(1) -45 B=SQR(X*X+Y*Y) -50 IF B>=1 THEN 30 -55 REM COLOR & INDEX OF REFR. -60 C=1+INT(3*RND(1)) -65 N=1.33+.01*(C-1) -70 REM COMPUTE ANGLES -75 I=ATN(B/SQR(1-B*B)) -80 R=ATN(B/SQR(N*N-B*B)) -85 T1=(4*R-2*I)*R0 -90 T2=(6*R-2*I)*R0-180 -95 REM INTENSITY FACTORS -100 RS=(SIN(I-R)/SIN(I+R))^2 -105 RP=(TAN(I-R)/TAN(I+R))^2 -110 RB=(1-RP)*(1-RP) -115 RC=(1-RS)*(1-RS) -120 I1=(RS*RC+RP*RB)/2 -125 I2=(RS*RS*RC+RP*RP*RB)/2 -130 IF I1<.04*RND(1) THEN 140 -135 TH=T1: GOSUB 180 -140 IF I2<.02*RND(1) THEN 150 -145 TH=T2: GOSUB 180 -150 GOTO 30 -155 REM COLORS & SCREEN -160 SCREEN 9: CLS: KEY OFF: NP=0 -165 PALETTE 1,4: PALETTE 2,2 -170 PALETTE 3,9 -175 RETURN -180 REM PLOT ON SCREEN -185 TH=ABS(TH) -190 IF TH>60 THEN RETURN -195 XP=320+320*(TH/60)*(X/B) -200 YP=325-300*(TH/60)*ABS(Y/B) -205 PSET(XP,YP),C: NP=NP+1 -210 LOCATE 1,1: PRINT NP: RETURN -215 REM VTAB23: PRINT NP: RETURN -220 REM FOR APPLE II COMPUTERS -225 REM COLORS & SCREEN -230 REM HGR: HOME: NP=0 -235 REM CC(1)=5: CC(2)=1: CC(3)=6 -240 REM RETURN -245 REM PLOT ON SCREEN -250 REM TH=ABS(TH) -255 REM IF TH>60 THEN RETURN -260 REM XP=139+139*(TH/60)*(X/B) -265 REM YP=159-159*(TH/60)*ABS(Y/B) -270 REM HCOLOR=CC(C): NP=NP+1 -275 REM HPLOT XP,YP TO XP+1,YP -280 REM ************************************** -285 REM APPEARED IN ASTRONOMICAL COMPUTING -290 REM SKY & TELESCOPE, FEBRUARY 1991 ISSUE -300 REM ************************************** diff --git a/bwbtest/B15B/broken/react.bas b/bwbtest/B15B/broken/react.bas deleted file mode 100644 index 07be29f..0000000 --- a/bwbtest/B15B/broken/react.bas +++ /dev/null @@ -1,68 +0,0 @@ -100 REM REACTION TIME -110 REM -120 CLS: DIM R(2,101) -130 J=0: K=0: C=60.9: REM TIME CONSTANT -140 INPUT "FLASH AT RANDOM OR FIXED POSITIONS (R/F)";A1$ -150 IF A1$<>"R" AND A1$<>"F" THEN GOTO 140 -160 CLS: F=1: I=0: S=0: S2=0: S3=0: S4=0: M1=200: M2=2500: H=0: L=10 -170 T=M2*RND(1)+M1 -180 FOR D=0 TO T: NEXT: REM TIME DELAY BEFORE NEXT EVENT -190 IF F<>1 THEN GOTO 230 -200 IF A1$="F" THEN PSET(64,24) -210 IF A1$="R" THEN PSET(127*RND,48*RND) -220 GOTO 240 -230 CLS -240 P$=INKEY$: IF P$<>"" THEN GOTO 260 -250 I=I+1: GOTO 240 -260 IF P$="X" THEN GOTO 340 -270 IF I=0 THEN GOTO 340 -280 IF J>100 OR K>100 THEN GOTO 340 -290 IF F=2 THEN GOTO 310 -300 J=J+1: R(F,J)=I/C: GOTO 320 -310 K=K+1: R(F,K)=I/C -320 I=0: F=F+1: IF F>2 THEN F=1 -330 GOTO 170 -340 CLS -350 IF I=0 THEN PRINT "*** OUT OF SYNCH ***" -360 IF J>100 OR K>100 THEN PRINT "*** OUT OF SPACE ***" -370 INPUT "LIST DISAPPEARANCES OR REAPPEARANCES (D/R)";A2$ -380 IF A2$<>"D" AND A2$<>"R" THEN GOTO 370 -390 IF A2$="D" THEN GOTO 410 -400 F=1: U=J-1: GOTO 420 -410 F=2: U=K-1 -420 FOR P=1 TO U -430 PRINT R(F,P);: S=S+R(F,P) -440 IF HR(F,P) THEN L=R(F,P) -460 NEXT -470 IF U<3 THEN GOTO 640 -480 PRINT: PRINT -490 PRINT "NUMBER OF DATA POINTS = ";U -500 PRINT "MAX = ";H -510 PRINT "MIN = ";L -520 PRINT "MEAN = ";S/U -530 FOR Q=1 TO U -540 S2=S2+(R(F,Q)-S/U)^2 -550 S3=S3+(R(F,Q)-S/U)^3 -560 S4=S4+(R(F,Q)-S/U)^4 -570 NEXT -580 S2=SQR(S2/U) -590 S3=S3/(U*S2^3) -600 S4=S4/(U*S2^4) -610 PRINT "STANDARD DEVIATION = ";S2 -620 PRINT "SKEWNESS = ";S3 -630 PRINT "KURTOSIS = ";S4 -640 PRINT -650 INPUT "ANOTHER LIST (Y/N)";A3$ -660 IF A3$<>"Y" THEN GOTO 680 -670 S=0: S2=0: S3=0: S4=0: H=0: L=10: CLS: GOTO 370 -680 IF A3$<>"N" THEN GOTO 650 -690 INPUT "CONTINUE TO ADD DATA (Y/N)";A4$ -700 IF A4$="N" THEN GOTO 730 -710 IF A4$="Y" THEN GOTO 160 -720 GOTO 650 -730 REM ========================================== -740 REM FROM ASTRONOMICAL COMPUTING DEPARTMENT OF -750 REM SKY & TELESCOPE, AUGUST, 1986, PAGE 174 -760 REM ========================================== -770 END diff --git a/bwbtest/B15B/broken/ronchi.bas b/bwbtest/B15B/broken/ronchi.bas deleted file mode 100644 index 61e8844..0000000 --- a/bwbtest/B15B/broken/ronchi.bas +++ /dev/null @@ -1,51 +0,0 @@ -10 REM RONCHI.BAS -20 REM -30 INPUT "Mirror diameter ";D -40 INPUT "Radius of curvature";R -50 INPUT "Grating frequency ";F -60 PRINT "Grating distance Delta" -70 PRINT " from the mirror's -80 PRINT " center of curvature" -90 INPUT " (+ is outside) ";DL -100 W=1/(2*F): REM Line width -120 CLS -130 SCREEN 2 -140 X0=300: Y0=100: C=300 -150 K=.42 -160 CIRCLE (X0,Y0),C/2 -170 FOR I=1 TO 10000 -180 X=D*(RND(1)-.5) -190 Y=D*(RND(1)-.5) -200 REM X and Y are the ray's -210 REM coordinates on the face -220 REM of the mirror -230 S2=X*X+Y*Y -240 IF SQR(S2)>D/2 THEN 390 -250 Z=R+S2/R -260 L=R+DL-Z -270 U=L*X/Z -280 REM Now, test to see if the -290 REM ray is blocked (FL=0) -300 REM or transmitted (FL=1) -310 REM by the grating -320 FL=0: REM Reset flag -330 T=INT(ABS(U/W)+.5) -340 IF T/2=INT(T/2) THEN FL=1 -350 IF FL=0 THEN 390 -360 XP=X0+X*C/D -370 YP=Y0+Y*K*C/D -380 PSET(XP,YP): REM Plot point -390 NEXT I -400 LOCATE 1,1 -410 PRINT "Diameter = ";D -420 LOCATE 2,1 -430 PRINT "R of C = ";R -440 LOCATE 3,1 -450 PRINT "Ronchi freq =";F -460 LOCATE 4,1 -470 PRINT "Delta = ";DL -480 END -490 REM ************************************ -500 REM APPEARED IN ASTRONOMICAL COMPUTING -510 REM SKY & TELESCOPE - APRIL 1991 ISSUE -520 REM ************************************ diff --git a/bwbtest/B15B/broken/sine.bas b/bwbtest/B15B/broken/sine.bas deleted file mode 100644 index 465d00e..0000000 --- a/bwbtest/B15B/broken/sine.bas +++ /dev/null @@ -1,73 +0,0 @@ - 10 ' ----- set up dimensions (in pixels) of display ----- - 11 DX = 310 - 12 DY = 199 - 13 CLS - 14 SCREEN 2 - 15 KEY OFF - 17 PRINT "This program generates the Julia sets of the function" - 18 PRINT "lambda*sin(X + iY), where lambda = P + iQ and i * i = -1," - 19 PRINT "in a portion of the complex plane with origin (in upper" - 20 PRINT "left corner) ACORNER,BCORNER and size SIDEX,SIDEY." - 21 PRINT "To get acquainted with this function set:" - 22 PRINT "lambda = 1, 0 corner = -7, -7 size = 14, 14" - 23 PRINT "To reproduce the images on page 137 of the August S&T set," - 24 PRINT "Right image: lambda = 1, 0.1 corner = -3, -3 size 6, 6" - 25 PRINT "Left image: lambda = 1, 0.8 corner = -3, -3 size 6, 6" - 26 PRINT "More details are in Chapter 3 of 'The Science of Fractal" - 27 PRINT "Images,' Heinz-Otto Peitgen and Dietmas Saupe editors," - 28 PRINT "Springer -Verlag, 1988." - 29 PRINT "Good luck," - 30 PRINT "David H. Smith July, 1989" - 31 PRINT "" - 32 PRINT "" - 33 PRINT "P.S. This program takes about an hour to run on a 6 MHz 286" - 34 PRINT "machine equipped with a 287 coprocessor running Quick Basic." - 35 PRINT "If you are running GW Basic expect it to take 10-times longer." - 36 PRINT "A color graphics card is essential." - 85 INPUT "enter value of lambda"; P, Q - 90 INPUT "enter corner of region to be displayed"; ACORNER, BCORNER - 100 INPUT "enter size of region"; SIDEX, SIDEY - 105 CLS - 106 SCREEN 1 - 107 COLOR 0, 2 - 110 GAPX = SIDEX / DX - 115 GAPY = SIDEY / DY - 210 '----- start main loops ----- - 220 FOR X = 1 TO DX - 230 FOR Y = 1 TO DY - 260 AZ = (X * GAPX) + ACORNER - 270 BZ = (Y * GAPY) + BCORNER - 300 COUNT = 0 - 302 EPBZ = EXP(BZ) - 303 EMBZ = 1 / EPBZ - 304 COSH = (EPBZ + EMBZ) / 2! - 305 SINH = (EPBZ - EMBZ) / 2! - 310 REAL = SIN(AZ) * COSH - 315 IMAG = COS(AZ) * SINH - 320 REALZ = P * REAL - Q * IMAG - 325 IMAGZ = Q * REAL + P * IMAG - 326 IMAGZ2 = IMAGZ * IMAGZ - 330 ABSZ = SQR(IMAGZ2) - 340 COUNT = COUNT + 1 - 350 ' - 360 '---- check for divergence or count = 30 ----- - 370 IF ((ABSZ > 30) OR (COUNT = 30)) THEN 430 - 380 AZ = REALZ - 390 BZ = IMAGZ - 400 GOTO 302 - 410 ' - 420 '----- set pixel color according to count ----- - 430 COLOUR = 1 + COUNT MOD 3 - 550 IF (COUNT = 30) THEN COLOUR = 0 - 560 ' - 600 '----- turn pixel on ----- - 610 PSET (X, Y), COLOUR - 620 ' - 630 NEXT Y - 640 NEXT X - 700 END - 800 REM ************************************************ - 810 REM FOR MORE INFORMATION ON THIS PROGRAM, SEE THE - 820 REM ARTICLE "COMPUTER CHAOS AT HOME" IN THE AUGUST, - 830 REM 1989, ISSUE OF SKY & TELESCOPE, PAGE 139. - 840 REM ************************************************ diff --git a/bwbtest/B15B/broken/solarosc.bas b/bwbtest/B15B/broken/solarosc.bas deleted file mode 100644 index e792219..0000000 --- a/bwbtest/B15B/broken/solarosc.bas +++ /dev/null @@ -1,46 +0,0 @@ -10 REM Solar Surface Oscillations -20 REM SOLAROSC.BAS by John Kennewell -30 DIM P(200) -40 SCREEN 12: PH=1.570795: MX=0 -50 RD=1: GN=256: BL=65536! -60 PRINT "Solar Oscillation Modes" -70 INPUT "Degree L [0 to 28]";L -80 INPUT "Order M [0 to L ]";M -90 REM Generate Legendre function -100 FOR XI=0 TO 200 -110 X=(XI-100)/100: D=SQR(1-X*X) -120 P1=D^L: P2=0 -130 FOR LI=1 TO (2*L-1) STEP 2 -140 P1=P1*LI: NEXT LI -150 IF M>=L OR P1=0 THEN 200 -160 FOR MI=L-1 TO M STEP -1 -170 PM=2*(MI+1)*X*P1/D-P2 -180 PM=PM/(L-MI)/(L+MI+1) -190 P2=P1: P1=PM: NEXT MI -200 P(XI)=P1: MT=ABS(P1) -210 IF MT>MX THEN MX=MT -220 NEXT XI -230 CLS : COLOR 1: LOCATE 2,3 -240 PRINT "Solar Global Oscillations" -250 LOCATE 28,3 -260 PRINT "MODE : L ="; L;" M =";M -270 REM Show color palette -280 FOR I=1 TO 15 -290 LINE (600,-15+30*I)-(620,15+30*I),I,BF -300 RC=RD*INT((15-I)*4.5) -310 BC=BL*INT((I-1)*4.5) -320 GC=GN*INT((7-ABS(8-I))*4.5) -330 PALETTE I,RC+BC+GC: NEXT I -340 REM Plotting -350 FOR CT=-1 TO 1 STEP .005 -360 ST=SQR(1-CT*CT) -370 PM=P(CT*100+100)/MX -380 FOR SF=-1 TO 1 STEP .005 -390 CF=SQR(1-SF*SF) -400 FI=PH*SGN(SF) -410 IF CF<>0 THEN FI=ATN(SF/CF) -420 S=PM*COS(M*FI)*ST*CF -430 X%=300+200*SF*ST -440 Y%=240-200*CT -450 PSET (X%,Y%),8-7*S -460 NEXT SF: NEXT CT: END diff --git a/bwbtest/B15B/broken/spiral.bas b/bwbtest/B15B/broken/spiral.bas deleted file mode 100644 index 0873a31..0000000 --- a/bwbtest/B15B/broken/spiral.bas +++ /dev/null @@ -1,39 +0,0 @@ -100 REM SPIRAL.BAS -- A PROGRAM -110 REM TO CREATE SPIRAL GAL- -120 REM AXIES OF MANY TYPES -130 REM -140 REM PH = angle phi -150 REM W = orientation angle -160 REM I = inclination angle -170 REM -180 PI=3.14159: DR=PI/180 -190 REM DR = radians per degree -200 PRINT "Input values:" -210 INPUT " Alpha, beta";A1,B1 -220 INPUT " Inclination (deg)";I -230 INPUT " Orientation (deg)";W -240 XC=300: YC=150: MX=40: MY=28 -250 I=I*DR: W=W*DR -260 CLS -270 SCREEN 9 -280 CIRCLE (XC,YC),10 -290 F=0: GOSUB 320: REM 1st arm -300 F=PI: GOSUB 320: REM 2nd arm -310 END -320 REM DRAW AN ARM -330 PSET(XC,YC) -340 FOR J=1 TO 100 -350 R=J/20 -360 IF R<1 THEN PH=(A1-B1)*R -370 IF R<1 THEN 390 -380 PH=A1-B1*R+A1*LOG(R) -390 X=MX*R*COS(PH+W+F)+XC -400 Y=MY*R*SIN(PH+W+F)*COS(I)+YC -410 REM PRINT X;Y -420 LINE -(X,Y) -430 NEXT J -440 RETURN -450 REM *************************************** -460 REM APPEARED IN ASTRONOMICAL COMPUTING -470 REM SKY & TELESCOPE - DECEMBER 1990 ISSUE -480 REM *************************************** diff --git a/bwbtest/B15B/broken/sundog.bas b/bwbtest/B15B/broken/sundog.bas deleted file mode 100644 index 452b733..0000000 --- a/bwbtest/B15B/broken/sundog.bas +++ /dev/null @@ -1,72 +0,0 @@ -10 REM SUNDOG.BAS by Rodney Kubesh -20 REM -30 SCREEN 9 -40 WINDOW (-125,80)-(125,-10) -50 PI=3.14159 -60 REM Choose solar elevation angle -70 INPUT "Solar elevation in degrees";SA -80 LN=COS(SA*PI/180) -90 LM=COS((90-SA)*PI/180) -95 REM Choose rays from various locations across solar disk -100 FOR J=1 TO 6 -110 EL=SA-(J-1)*.1 -115 REM Choose angle between ray and crystal face -120 FOR I=0 TO 90 STEP 2 -130 N0=COS(EL*PI/180) -140 M0=COS((90-EL)*PI/180) -150 IF ABS(1!-M0*M0-N0*N0)<.000001 THEN L0=0! -160 GOTO 180 -170 L0=(1!-M0*M0-N0*N0)^.5 -180 REM First crystal face, introduce tilt -190 N=1! -200 NP=1.31 -210 AN=I*PI/180! -220 GOSUB 460 -230 REM Tilt it back -240 AN=-AN -250 GOSUB 580 -260 REM Next crystal face, 60 deg. tilt -270 N=NP: NP=1! -280 AN=-(60-I)*PI/180! -290 GOSUB 460 -300 REM tilt it back -310 AN=-AN -320 GOSUB 580 -330 IF IR%<>0 THEN GOTO 390 -340 REM Plot point on image plane -350 XS=-200!*L0/N0 -360 YS=200!*MS/N0 -370 PSET (XS,YS) -380 PSET (-XS,YS) -390 NEXT I -400 NEXT J -405 REM Plot the Sun -410 SX=0: SY=200*LM/LN -420 CIRCLE (SX,SY),2 -430 PAINT (SX,SY) -440 LINE (-125,0)-(125,0) -450 END -460 REM Tilt subroutine -470 IR%=0 -480 MU=N/NP -490 LI=L0: NI=N0 -500 PH=SIN(AN): HP=COS(AN) -510 L0=LI*HP+NI*PH -520 N0=NI*HP-LI*PH -530 LS=MU*L0 : MS=MU*M0 -540 IN=MU*MU*(N0*N0-1!)+1! -550 IF IN>=0 THEN NS=IN^.5 -560 IF IN<0 THEN IR%=1 -570 RETURN -580 REM Tiltback subroutine -590 LI=LS: NI=NS -600 PH=SIN(AN): HP=COS(AN) -610 L0=LI*HP+NI*PH -620 N0=NI*HP-LI*PH -630 M0=MS -640 RETURN -650 REM ======================== -660 REM FROM "ASTRONOMICAL -670 REM COMPUTING," SKY & TELE- -680 REM SCOPE, JANUARY 1997 -690 REM ======================== diff --git a/bwbtest/B15B/calendar.INP b/bwbtest/B15B/calendar.INP deleted file mode 100644 index 73ddaf4..0000000 --- a/bwbtest/B15B/calendar.INP +++ /dev/null @@ -1,2 +0,0 @@ -03,2015 -N diff --git a/bwbtest/B15B/calendar.bas b/bwbtest/B15B/calendar.bas deleted file mode 100644 index 2ea8f93..0000000 --- a/bwbtest/B15B/calendar.bas +++ /dev/null @@ -1,30 +0,0 @@ -10 REM PERPETUAL GREGORIAN CALENDAR -12 REM -14 DIM C$(42), D$(31), E(12) -16 FOR I=1 TO 31: READ D$(I): NEXT I -18 FOR I=1 TO 12: READ E(I): NEXT I -20 DATA " 1"," 2"," 3"," 4"," 5"," 6"," 7"," 8"," 9"," 10" -22 DATA " 11"," 12"," 13"," 14"," 15"," 16"," 17"," 18"," 19"," 20" -24 DATA " 21"," 22"," 23"," 24"," 25"," 26"," 27"," 28"," 29"," 30"," 31" -26 DATA 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 -28 PRINT: INPUT "MONTH, YEAR";M,Y: IF Y<100 THEN Y=Y+1900 -30 PRINT: PRINT " SU MO TU WE TH FR SA": PRINT -32 J=367*Y-INT(7*(Y+INT((M+9)/12))/4)+INT(275*M/9)+1721031 -34 K=0: IF M<=2 THEN K=-1 -36 J=J-INT(3*(INT((Y+K)/100)+1)/4) -38 K=E(M): IF M<>2 THEN 48 -40 W=INT(Y-100*INT(Y/100)): X=INT(Y-4*INT(Y/4)): Z=INT(Y-400*INT(Y/400)) -42 IF X<>0 THEN 48 -44 IF W=0 AND Z<>0 THEN 48 -46 K=29 -48 X=J-7*INT(J/7) -50 FOR I=1 TO 42: C$(I)=" ": NEXT I -52 FOR I=1 TO K: C$(I+X)=D$(I): NEXT I -54 FOR I=1 TO 6: J=7*I -56 PRINT C$(J-6);C$(J-5);C$(J-4);C$(J-3);C$(J-2);C$(J-1);C$(J) -58 NEXT I -60 PRINT: INPUT "ANOTHER";A$: IF A$="Y" THEN 28 -62 END -63 REM --------------------------------------------------------------- -64 REM APPEARED IN ASTRONOMICAL COMPUTING, SKY & TELESCOPE, JULY, 1985 -65 REM --------------------------------------------------------------- diff --git a/bwbtest/B15B/calendar.run b/bwbtest/B15B/calendar.run deleted file mode 100644 index 2cb7819..0000000 --- a/bwbtest/B15B/calendar.run +++ /dev/null @@ -1,13 +0,0 @@ - -MONTH, YEAR? 03,2015 - - SU MO TU WE TH FR SA - - 1 2 3 4 5 6 7 - 8 9 10 11 12 13 14 - 15 16 17 18 19 20 21 - 22 23 24 25 26 27 28 - 29 30 31 - - -ANOTHER? N diff --git a/bwbtest/B15B/caljd.INP b/bwbtest/B15B/caljd.INP deleted file mode 100644 index 4cbc196..0000000 --- a/bwbtest/B15B/caljd.INP +++ /dev/null @@ -1,2 +0,0 @@ -2015,03,01 -0 diff --git a/bwbtest/B15B/caljd.bas b/bwbtest/B15B/caljd.bas deleted file mode 100644 index 98d34aa..0000000 --- a/bwbtest/B15B/caljd.bas +++ /dev/null @@ -1,21 +0,0 @@ -800 REM CALENDAR --> JD -805 REM -810 INPUT "Y,M,D ";Y,M,D -815 INPUT "JC (0) OR GC (1) ";G -820 D1=INT(D): F=D-D1-0.5 -825 J=-INT(7*(INT((M+9)/12)+Y)/4) -830 IF G=0 THEN 850 -835 S=SGN(M-9): A=ABS(M-9) -840 J1=INT(Y+S*INT(A/7)) -845 J1=-INT((INT(J1/100)+1)*3/4) -850 J=J+INT(275*M/9)+D1+G*J1 -855 J=J+1721027+2*G+367*Y -860 IF F>=0 THEN 870 -865 F=F+1: J=J-1 -870 PRINT "J.D.: ";J;F -875 END -880 REM ------------------------ -885 REM APPEARED IN ASTRONOMICAL -890 REM COMPUTING, SKY & TELE- -895 REM SCOPE, MAY, 1984 -900 REM ------------------------ diff --git a/bwbtest/B15B/caljd.run b/bwbtest/B15B/caljd.run deleted file mode 100644 index 0d6b919..0000000 --- a/bwbtest/B15B/caljd.run +++ /dev/null @@ -1,3 +0,0 @@ -Y,M,D ? 2015,03,01 -JC (0) OR GC (1) ? 0 -J.D.: 2.4571E+6 .5 diff --git a/bwbtest/B15B/capture.INP b/bwbtest/B15B/capture.INP deleted file mode 100644 index 90731b7..0000000 --- a/bwbtest/B15B/capture.INP +++ /dev/null @@ -1,4 +0,0 @@ -2.34 -30 -1 -n diff --git a/bwbtest/B15B/capture.bas b/bwbtest/B15B/capture.bas deleted file mode 100644 index 8b900ca..0000000 --- a/bwbtest/B15B/capture.bas +++ /dev/null @@ -1,50 +0,0 @@ -10 ' A Camera's Efficiency for Meteors -20 ' -30 RD=180/3.14159 -35 C=4*RD^2 -40 L=0: W=0: Q=0 -50 K=0.003667: ' Constant -60 N=1: ' Exponent for focal length -70 X=0: ' Closed/open ratio -80 INPUT "F/ratio ";FR -90 INPUT "Focal length (mm)"; FL -100 AP=FL/FR: ' Aperture in mm -110 PRINT "Select film/image format:" -120 PRINT " (1) 35-mm" -130 PRINT " (2) 120 square" -140 PRINT " (3) 4 x 5" -150 PRINT " (4) 8 x 10" -160 PRINT " (5) Special area" -170 PRINT " (6) Fisheye (180 deg)" -180 INPUT "Selection";Q -190 IF Q<1 OR Q>6 THEN GOTO 180 -200 ON Q GOTO 210,220,230,240,250,260 -210 L=36: W=24: GOTO 270 -220 L=55: W=55: GOTO 270 -230 L=119: W=94: GOTO 270 -240 L=240: W=190: GOTO 270 -250 INPUT "Sky area (sq deg)";S -255 GOTO 310 -260 S=20626: GOTO 290 -265 ' -266 ' Compute sky area covered -267 ' by a rectangular film frame -270 S=C*ATN(0.5*L/FL)*ATN(0.5*W/FL) -280 IF S>50 THEN S=INT(S+0.5) -290 PRINT "Sky area (sq deg): ";S -300 ' -310 ' Now, evaluate McKinley formula -320 E=K*AP^2*S/((1+X)*FL^N) -330 PRINT USING "Efficiency ####.#";E -340 PRINT -350 INPUT "Another (y or n)";Q$ -360 IF Q$<>"n" THEN GOTO 40 -370 END -380 ' -390 ' Written by Roger W. Sinnott, this program calculates the relative -400 ' efficiency of any given camera lens and film format for capturing -410 ' meteors. The efficiency is expressed as a number that ranges from -420 ' less than 10 for poor combinations (such as a 35-mm camera with a -430 ' long telephoto lens) to more than 1,000 for highly specialized systems -440 ' such as the Baker Super-Schmidt. The program was described in -450 ' Sky & Telescope for February 1994, page 85. diff --git a/bwbtest/B15B/capture.run b/bwbtest/B15B/capture.run deleted file mode 100644 index 1f63017..0000000 --- a/bwbtest/B15B/capture.run +++ /dev/null @@ -1,14 +0,0 @@ -F/ratio ? 2.34 -Focal length (mm)? 30 -Select film/image format: - (1) 35-mm - (2) 120 square - (3) 4 x 5 - (4) 8 x 10 - (5) Special area - (6) Fisheye (180 deg) -Selection? 1 -Sky area (sq deg): 2700 -Efficiency 54.2 - -Another (y or n)? n diff --git a/bwbtest/B15B/ccdlimi2.INP b/bwbtest/B15B/ccdlimi2.INP deleted file mode 100644 index 472db0d..0000000 --- a/bwbtest/B15B/ccdlimi2.INP +++ /dev/null @@ -1,3 +0,0 @@ -30 -7 -360 diff --git a/bwbtest/B15B/ccdlimi2.bas b/bwbtest/B15B/ccdlimi2.bas deleted file mode 100644 index 44e5740..0000000 --- a/bwbtest/B15B/ccdlimi2.bas +++ /dev/null @@ -1,176 +0,0 @@ -10 REM CCDLIMIT.BAS CCD Limits -20 REM by Bradley E. Schaefer -30 FOR I=1 TO 5 : READ WA(I) : NEXT I -40 DATA 0.365, 0.44, 0.55, 0.7, 0.9 -50 FOR I=1 TO 5 : READ Q(I) : NEXT I -60 DATA 15.0, 25.0, 40.0, 56.0, 26.0 -70 FOR I=1 TO 5 : READ MO(I) : NEXT I -80 DATA -10.93, -10.45, -11.05, -11.90, -12.70 -90 REM Input for position -100 RD=3.14159/180.0 -110 INPUT "Zenith distance (deg.) : ";Z -120 AM=180.0 : REM Moon phase (deg.; 0=FM, 90=FQ/LQ, 180=NM) -130 ZM=180.0 : REM Zenith distance of Moon (deg.) -140 RM=180.0 : REM Angular distance to Moon (deg.) -150 ZS=180.0 : REM Zenith distance of Sun (deg.) -160 RS=180.0 : REM Angular distance to Sun (deg.) -170 REM Input for the Site and Date -180 TS=1.0 : REM FWHM of seeing in V at zenith -190 RH=40.0 : REM relative humidity (%) -200 TE=15.0 : REM Air temperature (deg. C) -210 LA=30.0 : REM Latitude (deg.) -220 AL=1000.0 : REM Altitude above sea level (m) -230 M=2.0 : REM Month (1=Jan, 12=Dec) -240 Y=1998.0 : REM Year -250 REM Input for the telescope and detector -260 D=20.32 : REM Telescope aperture (cm) -270 TP=.91 : REM Pixel size (") -280 DS=4.0 : REM Diameter of secondary (cm) -290 NM=2 : REM Number of mirrors (-) -300 NL=2 : REM Number of lens/glass in path (-) -310 RN=15.0 : REM Read noise of CCD (electrons) -320 INPUT "Enter V-band magnitude of star: ";MV -330 CI=.7 : REM Color index [B-V] for star (mag) -340 INPUT "Exposure time (seconds): ";E -350 NR=1 : REM Number of CCD readouts (-) -360 TA=1.0 : REM Radius of photometry aperture (") [best : TA=~TS] -370 GOSUB 1000 : REM Extinction subroutine -380 GOSUB 2000 : REM Sky subroutine -390 REM Calculate counts from star and sky -400 MA(1)=MV+2.35*CI-.6 : REM U -410 MA(2)=MV+CI : REM B -420 MA(3)=MV : REM V -430 MA(4)=MV-.75*CI : REM R -440 MA(5)=MV-1.6*CI : REM I -450 GOSUB 3000 : REM CT subroutine -460 REM Calculate SNR (see PASP article for exact formula) -470 P=3.14159*(TA/TP)^2 -480 IF P<1.0 THEN P=1.0 -490 FOR I=1 TO 5 -500 VA=NS(I)+P*NB(I)+P*NR*RN*RN -510 SN(I)=NS(I)/SQR(VA) -520 SI(I)=1.086/SN(I) -530 NEXT I -540 PRINT : PRINT "For star with U, B, V, R, I "; -550 PRINT USING " #####.##"; MA(1), MA(2), MA(3), MA(4), MA(5) -560 PRINT " their respective SNR are "; -570 PRINT USING " #####.##"; SN(1), SN(2), SN(3), SN(4), SN(5) -580 PRINT " with 1-sigma errors (mag.) of "; -590 PRINT USING " #####.##"; SI(1), SI(2), SI(3), SI(4), SI(5) -600 END -1000 REM Extinction Subroutine -1010 FOR I=1 TO 5: READ OZ(I): NEXT I -1020 DATA 0.000, 0.000, 0.031, 0.008, 0.000 -1030 FOR I=1 TO 5: READ WT(I): NEXT I -1040 DATA 0.074, 0.045, 0.031, 0.020, 0.015 -1050 LT=LA*RD -1060 RA=(M-3)*30.0*RD -1070 SL=LA/ABS(LA) -1080 REM Airmass for each component -1090 ZZ=Z*RD -1100 XG=1/(COS(ZZ)+.0286*EXP(-10.5*COS(ZZ))) -1110 XA=1/(COS(ZZ)+.0123*EXP(-24.5*COS(ZZ))) -1120 XO=1/SQR(1.0-(SIN(ZZ)/(1.0+(20.0/6378.0)))^2) -1130 REM UBVRI extinction for each component -1140 FOR I=1 TO 5 -1150 KR=.1066*EXP(-1*AL/8200)*((WA(I)/.55)^(-4)) -1160 KA=.1*((WA(I)/.55)^(-1.3))*EXP(-1*AL/1500) -1170 KA=KA*((1-.32/LOG(RH/100.0))^1.33)*(1+SL*SIN(RA)) -1180 KO=OZ(I)*(3.0+.4*(LT*COS(RA)-COS(3*LT)))/3.0 -1190 KW=WT(I)*.94*(RH/100.0)*EXP(TE/15)*EXP(-1*AL/8200) -1200 K(I)=KR+KA+KO+KW -1210 DM(I)=KR*XG+KA*XA+KO*XO+KW*XG -1220 NEXT I -1230 REM Write results and return -1240 PRINT : PRINT "Airmass (gas, aerosol, ozone): "; -1250 PRINT USING "####.## "; XG, XA, XO -1260 PRINT "Extinction Coefficients (UBVRI): "; -1270 PRINT USING "####.## "; K(1), K(2), K(3), K(4), K(5) -1280 PRINT "Total Extinction (UBVRI): "; -1290 PRINT USING "####.## "; DM(1), DM(2), DM(3), DM(4), DM(5) -1300 RETURN -2000 REM SKY Subroutine -2010 FOR I=1 TO 5: READ BO(I): NEXT I -2020 DATA 8.0E-14, 7.0E-14, 1.0E-13, 1.0E-13, 3.0E-13 -2030 FOR I=1 TO 5: READ CM(I): NEXT I -2040 DATA 1.36, 0.91, 0.00, -0.76, -1.17 -2050 FOR I=1 TO 5: READ MS(I): NEXT I -2060 DATA -25.96, -26.09, -26.74, -27.26, -27.55 -2070 X=1/(COS(ZZ)+.025*EXP(-11*COS(ZZ))) : REM air mass -2080 XM=1/(COS(ZM*RD)+.025*EXP(-11*COS(ZM*RD))) : REM air mass Moon -2090 IF ZM>90.0 THEN XM=40.0 -2100 XS=1/(COS(ZS*RD)+.025*EXP(-11*COS(ZS*RD))) : REM air mass Sun -2110 IF ZS>90.0 THEN XS=40.0 -2120 FOR I=1 TO 5 -2130 REM Dark night sky brightness -2140 BN=BO(I)*(1+.3*COS(6.283*(Y-1992)/11)) -2150 BN=BN*(.4+.6/SQR(1.0-.96*((SIN(ZZ))^2))) -2160 BN=BN*(10^(-.4*K(I)*X)) -2170 REM Moonlight brightness -2180 MM=-12.73+.026*ABS(AM)+4E-09*(AM^4) : REM moon mag in V -2190 MM=MM+CM(I) : REM Moon mag -2200 C3=10.0^(-.4*K(I)*XM) -2210 FM=6.2E+07*(RM^(-2))+(10^(6.15-RM/40)) -2220 FM=FM+(10^5.36)*(1.06+((COS(RM*RD))^2)) -2230 BM=10^(-.4*(MM-MO(I)+43.27)) -2240 BM=BM*(1-10^(-.4*K(I)*X)) -2250 BM=BM*(FM*C3+440000.0*(1-C3)) -2260 REM Twilight brightness -2270 HS=90.0-ZS : REM Height of Sun -2280 BT=10^(-.4*(MS(I)-MO(I)+32.5-HS-(Z/(360*K(I))))) -2290 BT=BT*(100/RS)*(1.0-10.0^(-.4*K(I))) -2300 REM Daylight brightness -2310 C4=10.0^(-.4*K(I)*XS) -2320 FS=6.2E+07*(RS^(-2))+(10^(6.15-RS/40)) -2330 FS=FS+(10^5.36)*(1.06+((COS(RS*RD))^2)) -2340 BD=10^(-.4*(MS(I)-MO(I)+43.27)) -2350 BD=BD*(1-10^(-.4*K(I)*X)) -2360 BD=BD*(FS*C4+440000.0*(1-C4)) -2370 REM Total sky brightness -2380 IF BD>BT THEN GOTO 2410 -2390 B(I)=BN+BD -2400 GOTO 2420 -2410 B(I)=BN+BT -2420 IF ZM<90.0 THEN B(I)=B(I)+BM -2430 NEXT I -2440 PRINT "Sky brightness (UBVRI):"; -2450 PRINT USING " ##.#^^^^"; B(1), B(2), B(3), B(4), B(5) -2460 RETURN -3000 REM Subroutine CT -3010 FOR I=1 TO 5 : READ DL(I) : NEXT I -3020 DATA 0.068, 0.098, 0.089, 0.22, 0.24 -3030 FOR I=1 TO 5 : READ RE(I) : NEXT I -3040 DATA 0.83, 0.86, 0.88, 0.87, 0.90 -3050 FOR I=1 TO 5 : READ TR(I) : NEXT I -3060 DATA 0.970, 0.983, 0.987, 0.983, 0.980 -3070 FOR I=1 TO 5 : READ TF(I) : NEXT I -3080 DATA 0.70, 0.70, 0.70, 0.70, 0.70 -3090 REM Seeing -3100 FOR I=1 TO 5 -3110 X=1.0/(COS(Z/57.28)) -3120 T1=(TS^2)*(X^1.2)*((WA(I)/.55)^(-.4)) -3130 T2=5.54*((3600.0*57.28*(WA(I)/10000.0)/D)^2) -3140 TT(I)=SQR(T1+T2) : REM TOTAL SEEING FWHM (") -3150 NEXT I -3160 REM Efficiencies -3170 FOR I=1 TO 5 -3180 EF(I)=(Q(I)/100.0)*TF(I)*(RE(I)^NM)*(TR(I)^(2.0*NL)) -3190 F(I)=1-EXP(-2.77*((TA/TT(I))^2)) : REM Fraction in photometry aperture -3200 NEXT I -3210 A=(3.14159/4.0)*(D^2-DS^2) : REM Light-collecting area -3220 REM Source and sky counts -3230 FOR I=1 TO 5 -3240 IN=10^(-.4*(MA(I)-MO(I)+DM(I))) -3250 PE=(WA(I)/10000.0)/(6.62E-27*2.997E+10) -3260 NS(I)=IN*F(I)*A*EF(I)*E*DL(I)*PE -3270 NB(I)=B(I)*A*EF(I)*E*DL(I)*PE*(TP^2) -3280 NEXT I -3290 PRINT : PRINT "Star counts in photometry aperture (UBVRI):"; -3300 PRINT USING " #####."; NS(1), NS(2), NS(3), NS(4), NS(5) -3310 PRINT "Sky counts per pixel (UBVRI): "; -3320 PRINT USING " #####."; NB(1), NB(2), NB(3), NB(4), NB(5) -3330 RETURN -9991 REM ============================== -9992 REM FROM "ASTRONOMICAL COMPUTING," -9993 REM SKY & TELESCOPE, MAY 1998 -9994 REM ============================== diff --git a/bwbtest/B15B/ccdlimi2.run b/bwbtest/B15B/ccdlimi2.run deleted file mode 100644 index c15d35b..0000000 --- a/bwbtest/B15B/ccdlimi2.run +++ /dev/null @@ -1,17 +0,0 @@ -Zenith distance (deg.) : ? 30 -Enter V-band magnitude of star: ? 7 -Exposure time (seconds): ? 360 - -Airmass (gas, aerosol, ozone): 1.15 1.15 1.15 -Extinction Coefficients (UBVRI): 0.62 0.32 0.19 0.09 0.05 -Total Extinction (UBVRI): 0.71 0.37 0.22 0.10 0.05 -Sky brightness (UBVRI): 3.21121e-14 3.85106e-14 6.30832e-14 7.03885e-14 -2.21187e-13 - -Star counts in photometry aperture (UBVRI): 864817 7865884 17142814 50004318 -22816746 -Sky counts per pixel (UBVRI): 2 9 30 141 304 - -For star with U, B, V, R, I 8.04 7.70 7.00 6.47 5.88 - their respective SNR are 929.49 2804.46 4140.27 7071.28 4776.48 - with 1-sigma errors (mag.) of 0.00 0.00 0.00 0.00 0.00 diff --git a/bwbtest/B15B/ccdlimit.INP b/bwbtest/B15B/ccdlimit.INP deleted file mode 100644 index 056d5a4..0000000 --- a/bwbtest/B15B/ccdlimit.INP +++ /dev/null @@ -1,3 +0,0 @@ -/ - -Q diff --git a/bwbtest/B15B/ccdlimit.bas b/bwbtest/B15B/ccdlimit.bas deleted file mode 100644 index f3f1500..0000000 --- a/bwbtest/B15B/ccdlimit.bas +++ /dev/null @@ -1,80 +0,0 @@ -10 ' Program to compute the signal-to-noise ratio -20 ' for a stellar image in a CCD camera. -30 ' Written by Anthony Mallama, September 1992. -40 ' -50 DIM SN(5) :' PI=3.14159 -60 S0=2000000: ' Star-signal constant (the number of -70 ' electrons per second for a 0-magnitude -80 ' star and a 1-inch scope) -90 SB=18: ' Sky brightness in mag per sq arc second -100 PS=1.5: ' Pixel size in arc seconds of sky -110 DD=3: ' Detection diameter in arc seconds -120 RN=100: ' Readout noise in electrons per pixel -130 TH=70: ' Thermal electrons/pixel/sec -140 AP=8: ' Aperture of telescope in inches -150 ET=100: ' Time before a readout in seconds -160 PRINT -170 PRINT "Signal-to-noise ratios for stellar CCD images," -180 PRINT "based on:" -190 PRINT USING " A) #####.# inch aperture scope";AP -200 PRINT USING " B) #####.# mag per sq arcsec of sky";SB -210 PRINT USING " C) ####### arcsec detection circle";DD -220 PRINT USING " D) ####### sec longest single exp.";ET -230 PRINT USING " E) #####.# arcsec-per-pixel scale";PS -240 PRINT USING " F) ####### elec/pixel readout noise";RN -250 PRINT USING " G) ####### thermal elec/pixel/sec";TH -260 PRINT USING " H) ####### star-signal constant";S0 -270 PRINT " Q) Quit" -280 PRINT -290 INPUT "Choose a letter or type '/' to continue";P$ -300 IF P$="A" OR P$="a" THEN INPUT AP -310 IF P$="B" OR P$="b" THEN INPUT SB -320 IF P$="C" OR P$="c" THEN INPUT DD -330 IF P$="D" OR P$="d" THEN INPUT ET -340 IF P$="E" OR P$="e" THEN INPUT PS -350 IF P$="F" OR P$="f" THEN INPUT RN -360 IF P$="G" OR P$="g" THEN INPUT TH -370 IF P$="H" OR P$="h" THEN INPUT S0 -380 IF P$="Q" OR P$="q" THEN 720 -390 IF P$="/" THEN GOTO 410 -400 GOTO 160 -410 PRINT -420 AR=PI*(DD/2)^2: 'Detection area in square arcsec -430 PX=AR/PS^2: 'Detection area in pixels -440 IF PX>1 GOTO 500 -450 PRINT "Warning: Detection area is less" -460 PRINT "than 1 pixel. Increase size." -470 PRINT -480 INPUT "Press to continue";X$ -490 GOTO 160 -500 EN=DD/10 ' Fraction of star's total image encircled -510 ' by the detection or measurement area -520 IF EN>1 THEN EN=1 -530 PRINT " Mag. 1 sec 10s 100s "; -540 PRINT "1000s 10000s" -550 FOR M=10 TO 20 -560 L=1/(10^(M/2.5)): ' Luminosity -570 PRINT USING " ##.#"; M; -580 FOR I=1 TO 5 -590 S=10^(I-1): ' Exposure time in seconds -600 SG=L*S*S0*EN*AP^2: ' Signal total -610 SK=S*S0*AR*AP^2/10^(SB/2.5): ' Sky total -620 TT=TH*PX*S: ' Thermal total -630 N=S/ET: ' Total number of frames -640 IF N<>INT(N) THEN N=INT(N)+1 -650 SN(I)=SG/SQR(SG+TT+SK+N*PX*RN^2) -660 NEXT I -670 PRINT USING "######";SN(1);SN(2);SN(3);SN(4);SN(5) -680 NEXT M -690 PRINT -700 INPUT "Press to continue";X$ -710 GOTO 160 -720 END -730 ' -740 ' This program computes the signal-to-noise (SNR) ratio expected -750 ' when a CCD camera is used under specific conditions and -760 ' with a given telescope. Since an SNR of at least 3 is needed -770 ' for reliable visiblity of a star image, the program can be -780 ' used to estimate the magnitude limit reached. It was written -790 ' by Anthony Mallama and appeared in Sky & Telescope for -800 ' February 1993, page 84. diff --git a/bwbtest/B15B/ccdlimit.run b/bwbtest/B15B/ccdlimit.run deleted file mode 100644 index 93c057b..0000000 --- a/bwbtest/B15B/ccdlimit.run +++ /dev/null @@ -1,43 +0,0 @@ - -Signal-to-noise ratios for stellar CCD images, -based on: - A) 8.0 inch aperture scope - B) 18.0 mag per sq arcsec of sky - C) 3 arcsec detection circle - D) 100 sec longest single exp. - E) 1.5 arcsec-per-pixel scale - F) 100 elec/pixel readout noise - G) 70 thermal elec/pixel/sec - H) 2000000 star-signal constant - Q) Quit - -Choose a letter or type '/' to continue? / - - Mag. 1 sec 10s 100s 1000s 10000s - 10.0 20 143 577 1824 5769 - 11.0 8 69 332 1050 3320 - 12.0 3 30 176 556 1757 - 13.0 1 13 84 265 839 - 14.0 1 5 37 116 368 - 15.0 0 2 15 48 153 - 16.0 0 1 6 20 62 - 17.0 0 0 2 8 25 - 18.0 0 0 1 3 10 - 19.0 0 0 0 1 4 - 20.0 0 0 0 0 2 - -Press to continue? - -Signal-to-noise ratios for stellar CCD images, -based on: - A) 8.0 inch aperture scope - B) 18.0 mag per sq arcsec of sky - C) 3 arcsec detection circle - D) 100 sec longest single exp. - E) 1.5 arcsec-per-pixel scale - F) 100 elec/pixel readout noise - G) 70 thermal elec/pixel/sec - H) 2000000 star-signal constant - Q) Quit - -Choose a letter or type '/' to continue? Q diff --git a/bwbtest/B15B/chance.INP b/bwbtest/B15B/chance.INP deleted file mode 100644 index 96db77c..0000000 --- a/bwbtest/B15B/chance.INP +++ /dev/null @@ -1,2 +0,0 @@ -1.1 -2.2 diff --git a/bwbtest/B15B/chance.bas b/bwbtest/B15B/chance.bas deleted file mode 100644 index d200392..0000000 --- a/bwbtest/B15B/chance.bas +++ /dev/null @@ -1,80 +0,0 @@ -10 ' Poisson Distribution -20 ' by Mark Gingrich -30 MP=.1 -40 A1$="Probability (and odds) of..." -50 A2$="# events fewer than" -60 A3$="exactly greater than" -70 A4$=" (n) n events " -80 A5$="n events n events " -90 A6$ = "-------------------------" -100 A7$=" " -110 ' -120 ' Get input and print header -130 PRINT:PRINT -140 INPUT "Event rate (lambda)";L -150 INPUT "Interval (t)";T -160 IF EXP(-L*T)>0 THEN 190 -170 PRINT "Sorry, out of range" -180 GOTO 420 -190 PRINT:PRINT SPC(29); A1$ -200 PRINT:PRINT A2$;A7$;A3$ -210 PRINT A4$;A7$;A5$ -220 PRINT A6$;A6$;A6$ -230 ' -240 ' Initialize loop variables -250 N=0 -260 MU=L*T -270 PF=0: ' Prob of fewer than n -280 PE=100*EXP(-MU): ' Prob of exactly n -290 ' -300 ' Compute Probabilities (and odds) -310 ' -320 PG=100-PF-PE: ' Prob of greater than n -330 IF PG>99.999 THEN 380 -340 PRINT USING " ##"; N; -350 P=PF: C=13: GOSUB 440 -360 P=PE: C=34: GOSUB 440 -370 P=PG: C=55: GOSUB 440: PRINT -380 N=N+1 -390 PF=PF+PE -400 PE=PE*MU/N -410 IF PG>=MP THEN 320 -420 END -430 ' -440 ' Print probability (and odds) -450 PRINT TAB(C); -460 IF P>.001 AND P<99.999 THEN 480 -470 PRINT " - - -";: GOTO 560 -480 PRINT USING "###.#% (";P; -490 IF P>50 THEN 530 -500 PRINT " 1 :"; -510 V=((100-P)/P) -520 GOSUB 580: GOTO 550 -530 V=(P/(100-P)) -540 GOSUB 580: PRINT ": 1 "; -550 PRINT ")"; -560 RETURN -570 ' -580 ' Format odds -590 IF V>=9.5 THEN 620 -600 PRINT USING " #.# ";V; -610 GOTO 630 -620 PRINT INT(V+.5); -630 RETURN -640 ' -650 ' Poisson statistics are used to -660 ' predict how likely it is for bunches or -670 ' gaps to occur in a stream of random -680 ' events, such as appearances of bright -690 ' comets, novae, cosmic rays, meteors, or -700 ' even the way stars are sprinkled across -710 ' a section of sky. By comparing this -720 ' program's output to actual -730 ' observations, it is often possible to -740 ' decide whether the events of a given -750 ' class do, in fact, have a random -760 ' distribution in time or space. Mark -770 ' Gingrich explores this subject in his -780 ' article, "Great Comets, Novae, and Lady -790 ' Luck," in Sky & Telescope for June -800 ' 1995, pages 86-89. diff --git a/bwbtest/B15B/chance.run b/bwbtest/B15B/chance.run deleted file mode 100644 index 0dcb230..0000000 --- a/bwbtest/B15B/chance.run +++ /dev/null @@ -1,19 +0,0 @@ - - -Event rate (lambda)? 1.1 -Interval (t)? 2.2 - - Probability (and odds) of... - -# events fewer than exactly greater than - (n) n events n events n events ---------------------------------------------------------------------------- - 0 - - - 8.9% ( 1 : 10 ) 91.1% ( 10 : 1 ) - 1 8.9% ( 1 : 10 ) 21.5% ( 1 : 3.6 ) 69.6% ( 2.3 : 1 ) - 2 30.4% ( 1 : 2.3 ) 26.0% ( 1 : 2.8 ) 43.6% ( 1 : 1.3 ) - 3 56.4% ( 1.3 : 1 ) 21.0% ( 1 : 3.8 ) 22.5% ( 1 : 3.4 ) - 4 77.5% ( 3.4 : 1 ) 12.7% ( 1 : 6.9 ) 9.8% ( 1 : 9.2 ) - 5 90.2% ( 9.2 : 1 ) 6.2% ( 1 : 15 ) 3.7% ( 1 : 26 ) - 6 96.3% ( 26 : 1 ) 2.5% ( 1 : 39 ) 1.2% ( 1 : 82 ) - 7 98.8% ( 82 : 1 ) 0.9% ( 1 : 116 ) 0.4% ( 1 : 284 ) - 8 99.6% ( 284 : 1 ) 0.3% ( 1 : 384 ) 0.1% ( 1 : 1095 ) diff --git a/bwbtest/B15B/chart.INP b/bwbtest/B15B/chart.INP deleted file mode 100644 index b36c1c4..0000000 --- a/bwbtest/B15B/chart.INP +++ /dev/null @@ -1,5 +0,0 @@ -8 -45 -+ -30 -45 diff --git a/bwbtest/B15B/chart.bas b/bwbtest/B15B/chart.bas deleted file mode 100644 index f550739..0000000 --- a/bwbtest/B15B/chart.bas +++ /dev/null @@ -1,93 +0,0 @@ -100 REM CHART NUMBER PROGRAM -110 REM -120 PRINT -130 PRINT "Enter 2000.0 position" -140 PRINT -150 INPUT "R.A. hrs.";H -160 IF H<0 OR H>=24 THEN 150 -170 INPUT "R.A. min.";M -180 IF M<0 OR M>=60 THEN 170 -190 H=H+M/60 -200 PRINT -210 INPUT " + or - ";D$ -220 IF LEN(D$)>1 THEN 210 -230 INPUT "DEC. degrees";D -240 IF D<0 OR D>90 THEN 230 -250 INPUT "DEC. min. ";M -260 IF M<0 OR M>=60 THEN 250 -270 D=D+M/60 -280 IF D$="-" THEN D=-D -290 REM -300 REM -310 REM SKY ATLAS 2000.0 -320 REM -330 IF ABS(D)>=18.5 THEN 370 -340 S=9+INT(H/3+1/1.2) -350 IF S=9 THEN S=17 -360 GOTO 460 -370 IF ABS(D)>=52 THEN 410 -380 S=4+INT(H/4) -390 IF D<0 THEN S=S+14 -400 GOTO 460 -410 S=1+INT(H/8) -420 IF D<0 THEN S=S+23 -430 REM -440 REM URANOMETRIA 2000.0 -450 REM -460 IF ABS(D)>=5.5 THEN 510 -470 U=215+INT(H*1.875+.5) -480 IF U=260 THEN U=215 -490 V$="Volume I & II" -500 GOTO 900 -510 IF D>0 THEN V$="Volume I" -520 IF D<0 THEN V$="Volume II" -530 IF ABS(D)>=50 THEN 730 -540 IF ABS(D)>=28 THEN 640 -550 IF ABS(D)>=17 THEN 600 -560 U=170+INT(H*1.875+.5): -570 IF U=215 THEN U=170 -580 IF D<0 THEN U=U+90 -590 GOTO 900 -600 U=125+INT(H*1.875+.5) -610 IF U=170 THEN U=125 -620 IF D<0 THEN U=U+180 -630 GOTO 900 -640 IF ABS(D)>=39 THEN 690 -650 U=89+INT(H*1.5+.5) -660 IF U=125 THEN U=89 -670 IF D<0 THEN U=U+261 -680 GOTO 900 -690 U=59+INT(H/.8+.5) -700 IF U=89 THEN U=59 -710 IF D<0 THEN U=U+327 -720 GOTO 900 -730 IF ABS(D)>=72.5 THEN 830 -740 IF ABS(D)>=61 THEN 790 -750 U=35+INT(H+.5) -760 IF U=59 THEN U=35 -770 IF D<0 THEN U=U+381 -780 GOTO 900 -790 U=15+INT(H/1.2+.5) -800 IF U=35 THEN U=15 -810 IF D<0 THEN U=U+425 -820 GOTO 900 -830 IF ABS(D)>=84.5 THEN 880 -840 U=3+INT(H/2+1/2.4) -850 IF U=15 THEN U=3 -860 IF D<0 THEN U=U+457 -870 GOTO 900 -880 U=1+INT(H/12) -890 IF D<0 THEN U=474-U -900 PRINT: PRINT -910 PRINT "SKY ATLAS 2000.0 --" -920 PRINT " Chart ";S -930 PRINT -940 PRINT "URANOMETRIA 2000.0 --" -950 PRINT " Chart ";U;" in ";V$ -960 PRINT -970 REM ************************ -975 REM FROM SKY & TELESCOPE'S -980 REM ASTRONOMICAL COMPUTING -985 REM FOR APRIL, 1989, P. 420 -990 REM ************************ -995 END diff --git a/bwbtest/B15B/chart.run b/bwbtest/B15B/chart.run deleted file mode 100644 index 29393e1..0000000 --- a/bwbtest/B15B/chart.run +++ /dev/null @@ -1,17 +0,0 @@ - -Enter 2000.0 position - -R.A. hrs.? 8 -R.A. min.? 45 - - + or - ? + -DEC. degrees? 30 -DEC. min. ? 45 - - -SKY ATLAS 2000.0 -- - Chart 6 - -URANOMETRIA 2000.0 -- - Chart 102 in Volume I - diff --git a/bwbtest/B15B/circle.INP b/bwbtest/B15B/circle.INP deleted file mode 100644 index bbd2775..0000000 --- a/bwbtest/B15B/circle.INP +++ /dev/null @@ -1,2 +0,0 @@ -200 -N diff --git a/bwbtest/B15B/circle.bas b/bwbtest/B15B/circle.bas deleted file mode 100644 index c51a3f9..0000000 --- a/bwbtest/B15B/circle.bas +++ /dev/null @@ -1,47 +0,0 @@ -10 REM CIRCLE-DIVIDING PROGRAM -12 REM -14 N=9: DIM P1(N), P2(N) -16 I0=180: C$=CHR$(27)+"3"+CHR$(1) -18 H=8: REM MINIMUM VERTICAL -20 REM LETTER SPACE IN MM -22 DATA 4,6,9,12,18,36,72,180,360 -24 FOR I=1 TO N: READ P1(I): NEXT -26 DATA 9,6,8,6,4,5,10,8,6 -28 FOR I=1 TO N: READ P2(I): NEXT -30 REM -32 INPUT "SCALE LENGTH (MM)";S -34 IF S<30 THEN 32 -36 I1=0 -38 I1=I1+1: IF I1=N THEN 42 -40 IF S>=P1(I1)*H THEN 38 -42 PRINT "PRINTING...": LPRINT C$ -44 FOR I=1 TO I0/4: LPRINT: NEXT -46 LPRINT S;" MM STRIP DIVIDED "; -48 LPRINT "INTO ";P1(I1);" PARTS" -50 FOR I=1 TO I0/4: LPRINT: NEXT -52 REM -54 REM PRINTING LOOP -55 REM SET UP FOR DOT-MATRIX PRINTERS -56 W=0: S0=INT(360/P1(I1)) -58 S1=S*I0/(25.4*360) -60 FOR I=0 TO 360 STEP S0 -62 B=INT(I*S1-W): F=W -64 FOR J=0 TO P2(I1) -66 I3=INT(J*B/P2(I1)-F) -68 IF I3<0 THEN 76 -70 FOR K=1 TO I3: LPRINT: NEXT K -72 IF I3<=0 OR J>=P2(I1) THEN 76 -74 LPRINT " -"; -76 F=F+I3 -78 NEXT J -80 LPRINT USING " #### --";I; -82 W=W+B -84 NEXT I -86 FOR I=1 TO I0/4: LPRINT: NEXT -88 INPUT "ANOTHER (Y/N)";Q$ -90 IF Q$="Y" THEN 32 -92 END -94 REM ************************* -96 REM ASTRONOMICAL COMPUTING -97 REM SKY & TELESCOPE, MARCH 88 -98 REM ************************* diff --git a/bwbtest/B15B/circle.run b/bwbtest/B15B/circle.run deleted file mode 100644 index a565ffe..0000000 --- a/bwbtest/B15B/circle.run +++ /dev/null @@ -1,3 +0,0 @@ -SCALE LENGTH (MM)? 200 -PRINTING... -ANOTHER (Y/N)? N diff --git a/bwbtest/B15B/comet.INP b/bwbtest/B15B/comet.INP deleted file mode 100644 index 8f9ddd6..0000000 --- a/bwbtest/B15B/comet.INP +++ /dev/null @@ -1,8 +0,0 @@ -2000,01,31 -1.2 -0.9 -4.5 -6.7 -8.9 -2015,03,01 -N diff --git a/bwbtest/B15B/comet.bas b/bwbtest/B15B/comet.bas deleted file mode 100644 index 10c02e7..0000000 --- a/bwbtest/B15B/comet.bas +++ /dev/null @@ -1,240 +0,0 @@ -5 GOSUB 69: GOTO 200 -10 REM KEPLER'S EQUATION -11 REM -12 P1=3.14159265: R1=180/P1 -13 K=0.01720209895 -18 IF E0>=0.95 THEN GOTO 40 -19 IF E0>=1 THEN 85 -20 A1=Q/(1-E0): M=K*T*A1^(-1.5) -21 REM -22 REM BINARY SEARCH -23 REM -24 F=SGN(M): M=ABS(M)/(2*P1) -25 M=(M-INT(M))*2*P1*F -26 IF M<0 THEN M=M+2*P1 -27 F=1: IF M>P1 THEN F=-1 -28 IF M>P1 THEN M=2*P1-M -29 E=P1/2: D=P1/4 -30 FOR I1=1 TO 23 -31 M1=E-E0*SIN(E) -32 E=E+SGN(M-M1)*D: D=D/2 -33 NEXT I1 -34 V=SQR((1+E0)/(1-E0)): E=E*F -35 V=2*ATN(V*SIN(E/2)/COS(E/2)) -36 R=A1*(1-E0*COS(E)) -38 GOTO 81 -39 REM -40 REM GAUSS METHOD -41 REM -43 A=SQR((1+9*E0)/10) -44 B=5*(1-E0)/(1+9*E0) -45 C=SQR(5*(1+E0)/(1+9*E0)) -46 B1=3*A*K*T/SQR(2*Q*Q*Q) -47 B2=1: REM INITIAL VALUE -48 W1=B2*B1: B3=ATN(2/W1) -49 T1=SIN(B3/2)/COS(B3/2) -50 S1=SGN(T1): T1=ABS(T1) -51 T2=T1^(1/3)*S1: G=ATN(T2) -52 S=2*COS(2*G)/SIN(2*G) -53 A2=B*S*S: B0=B2: B2=0 -54 IF ABS(A2)>0.3 THEN 19 -55 FOR J=0 TO 7 -56 B2=B2+B(J)*A2^J -57 NEXT J -58 IF ABS(B2-B0)>1E-8 THEN 48 -59 C1=0 -60 FOR J=0 TO 7 -61 C1=C1+S(J)*A2^J -62 NEXT J -63 C1=SQR(1/C1) -64 V1=C*C1*S: D1=1/(1+A2*C1*C1) -65 V=2*ATN(V1): R=Q*D1*(1+V1*V1) -67 GOTO 81 -68 REM -69 REM COEFFICIENTS -70 FOR J=0 TO 7: READ B(J): NEXT -71 FOR J=0 TO 7: READ S(J): NEXT -72 RETURN -73 DATA 1,0,-0.017142857 -74 DATA -0.003809524, -0.001104267 -75 DATA -0.000367358,-0.000131675 -76 DATA -0.000049577,1,-0.8 -77 DATA 0.04571429,0.01523810 -78 DATA 0.00562820, 0.00218783 -79 DATA 0.00087905,0.00036155 -80 RETURN -81 IF V<0 THEN V=V+2*P1 -84 GOTO 86 -85 PRINT "OUT OF RANGE" -86 RETURN -200 REM COMET POSITION IN SKY -203 REM -206 PRINT "PERI DATE "; -207 GOSUB 800: J9=J: F9=F -208 INPUT "PERI DIST Q ";Q -209 INPUT "ECCENTRICITY ";E0 -212 INPUT "ARG OF PERIHELION ";W -215 INPUT "LONG OF ASC NODE ";N -218 INPUT "INCLINATION ";I -233 P1=3.14159265: R1=P1/180 -236 E=23.4457889*R1: REM OBLIQUITY -239 W=W*R1: N=N*R1: I=I*R1 -242 GOSUB 338 -245 PRINT -246 PRINT "DATE "; -247 GOSUB 800: J1=J: F1=F -248 GOSUB 500: T=(J1-J9)+(F1-F9) -249 GOSUB 10 -251 REM POSITION IN ORBIT PLANE -254 X1=R*COS(V): Y1=R*SIN(V) -257 REM -260 REM HELIOCENTRIC EQUATORIAL -261 REM COORDINATES -263 X2=P7*X1+Q7*Y1 -266 Y2=P8*X1+Q8*Y1 -269 Z2=P9*X1+Q9*Y1 -272 REM -275 REM GEOCENTRIC EQUATORIAL -276 REM COORDINATES -278 X3=X+X2: Y3=Y+Y2: Z3=Z+Z2 -281 GOSUB 392: REM FOR 2000.0! -284 D3=SQR(X3*X3+Y3*Y3+Z3*Z3) -287 R1=P1/180 -290 A=ATN(Y3/X3)/(15*R1) -293 IF X3<0 THEN A=A+12 -296 IF A<0 THEN A=A+24 -299 D=ATN(Z3/SQR(X3*X3+Y3*Y3))/R1 -301 REM NOW ROUND OFF -302 A=A+0.05/60 -305 H=INT(A): M=60*(A-H) -308 M=INT(10*M)/10 -311 S=SGN(D): D=ABS(D)+0.5/60 -314 D1=INT(D): M1=INT(60*(D-D1)) -317 S$="+": IF S=-1 THEN S$="-" -320 PRINT "R.A. ";H;"H ";M;"M" -323 PRINT "DEC. ";S$;D1;"D ";M1;"M" -326 PRINT "COMET-EARTH DIST:";D3 -329 PRINT "COMET-SUN DIST: ";R -330 INPUT "ANOTHER (Y OR N) ";Q$ -331 IF Q$="Y" THEN 245 -332 END -335 REM -338 REM P'S AND Q'S -344 W1=SIN(W): W2=COS(W) -347 N1=SIN(N): N2=COS(N) -350 I1=SIN(I): I2=COS(I) -353 E1=SIN(E): E2=COS(E) -356 P7=W2*N2-W1*N1*I2 -359 P8=(W2*N1+W1*N2*I2)*E2 -362 P8=P8-W1*I1*E1 -365 P9=(W2*N1+W1*N2*I2)*E1 -368 P9=P9+W1*I1*E2 -371 Q7=-W1*N2-W2*N1*I2 -374 Q8=(-W1*N1+W2*N2*I2)*E2 -377 Q8=Q8-W2*I1*E1 -380 Q9=(-W1*N1+W2*N2*I2)*E1 -383 Q9=Q9+W2*I1*E2 -386 RETURN -389 REM -392 REM 1950.0 --> 2000.0 -395 A7=+0.9999257: A8=-0.0111789 -398 A9=-0.0048590: B7=+0.0111789 -401 B8=+0.9999375: B9=-0.0000272 -404 C7=+0.0048590: C8=-0.0000272 -407 C9=+0.9999882 -410 X4=A7*X3+A8*Y3+A9*Z3 -413 Y4=B7*X3+B8*Y3+B9*Z3 -416 Z4=C7*X3+C8*Y3+C9*Z3 -419 X3=X4: Y3=Y4: Z3=Z4 -422 RETURN -500 REM X,Y,Z OF THE SUN -501 REM (EQUINOX 1950.0) -502 REM -504 J8=J-2415020: R1=3.14159265/180 -505 T=(J8+F)/36525 -506 P0=1.396041+0.000308*(T+0.5) -507 P0=P0*(T-0.499998) -508 A=100:GOSUB 529:G0=A+358.475833 -509 L0=A+279.696678-P0 -510 A=1336: GOSUB 529 -511 C0=A+270.434164-P0 -512 A=162: GOSUB 529 -513 V0=A+212.603219 -514 A=53:GOSUB 529: M0=A+319.529425 -515 A=8: GOSUB 529: J0=A+225.444651 -516 G=G0+T*(-0.950250-0.000150*T) -517 C=C0+T*(307.883142-0.001133*T) -518 L=L0+T*(0.768920+0.000303*T) -519 V=V0+T*(197.803875+0.001286*T) -520 M=M0+T*(59.8585+0.000181*T) -521 J=J0+T*154.906654 -522 G=G*R1: C=C*R1: L=L*R1 -523 V=V*R1: M=M*R1: J=J*R1 -524 GOSUB 532 -528 RETURN -529 REM NORMALIZATION -530 A=360*(A*T-INT(A*T)): RETURN -531 REM -532 X=0.000011*COS(2*G-L-2*J) -533 X=X+0.000011*COS(2*G+L-2*V) -534 X=X-0.000012*COS(G+L-V) -535 X=X-0.000012*COS(4*G-L-8*M+3*J) -536 X=X+0.000012*COS(4*G+L-8*M+3*J) -537 X=X-0.000014*COS(C-2*L) -538 X=X+0.000017*COS(C) -539 X=X+0.000018*SIN(2*G+L-2*V) -540 X=X-0.000021*T*COS(G+L) -541 X=X-0.000026*SIN(G-L-J) -542 X=X+0.000035*COS(2*G-L) -543 X=X+0.000063*T*COS(G-L) -544 X=X+0.000105*COS(2*G+L) -545 X=X+0.008374*COS(G+L) -546 X=X-0.025127*COS(G-L) -547 X=X+0.999860*COS(L) -548 REM -549 Y=0.000010*SIN(2*G+L-2*V) -550 Y=Y-0.000010*SIN(2*G-L-2*J) -551 Y=Y-0.000011*SIN(G+L-V) -552 Y=Y+0.000011*SIN(4*G-L-8*M+3*J) -553 Y=Y+0.000011*SIN(4*G+L-8*M+3*J) -554 Y=Y+0.000013*SIN(C-2*L) -555 Y=Y+0.000016*SIN(C) -556 Y=Y-0.000017*COS(2*G+L-2*V) -557 Y=Y-0.000019*T*SIN(G+L) -558 Y=Y-0.000024*COS(G-L-J) -559 Y=Y-0.000032*SIN(2*G-L) -560 Y=Y-0.000057*T*SIN(G-L) -561 Y=Y+0.000097*SIN(2*G+L) -562 Y=Y+0.007683*SIN(G+L) -563 Y=Y+0.023053*SIN(G-L) -564 Y=Y+0.917308*SIN(L) -565 REM -566 Z=-0.000010*COS(G-L-J) -567 Z=Z-0.000014*SIN(2*G-L) -568 Z=Z-0.000025*T*SIN(G-L) -569 Z=Z+0.000042*SIN(2*G+L) -570 Z=Z+0.003332*SIN(G+L) -571 Z=Z+0.009998*SIN(G-L) -572 Z=Z+0.397825*SIN(L) -573 RETURN -800 REM CALENDAR --> JD -805 REM -810 INPUT "Y,M,D ";Y,M,D -815 G=1 -820 D1=INT(D): F=D-D1-0.5 -825 J=-INT(7*(INT((M+9)/12)+Y)/4) -830 IF G=0 THEN 850 -835 S=SGN(M-9): A=ABS(M-9) -840 J3=INT(Y+S*INT(A/7)) -845 J3=-INT((INT(J3/100)+1)*3/4) -850 J=J+INT(275*M/9)+D1+G*J3 -855 J=J+1721027+2*G+367*Y -860 IF F>=0 THEN 870 -865 F=F+1: J=J-1 -870 RETURN -875 END -880 REM ------------------------ -890 REM APPEARED IN ASTRONOMICAL -900 REM COMPUTING, SKY & TELE- -910 REM SCOPE, DECEMBER, 1985 -920 REM ------------------------ diff --git a/bwbtest/B15B/comet.run b/bwbtest/B15B/comet.run deleted file mode 100644 index 4001d7e..0000000 --- a/bwbtest/B15B/comet.run +++ /dev/null @@ -1,13 +0,0 @@ -PERI DATE Y,M,D ? 2000,01,31 -PERI DIST Q ? 1.2 -ECCENTRICITY ? 0.9 -ARG OF PERIHELION ? 4.5 -LONG OF ASC NODE ? 6.7 -INCLINATION ? 8.9 - -DATE Y,M,D ? 2015,03,01 -R.A. 12 H 25.9 M -DEC. - 2 D 31 M -COMET-EARTH DIST: 20.7833 -COMET-SUN DIST: 21.6701 -ANOTHER (Y OR N) ? N diff --git a/bwbtest/B15B/crater.INP b/bwbtest/B15B/crater.INP deleted file mode 100644 index 1c858dc..0000000 --- a/bwbtest/B15B/crater.INP +++ /dev/null @@ -1,4 +0,0 @@ -543 -12.34 -5000 -67 diff --git a/bwbtest/B15B/crater.bas b/bwbtest/B15B/crater.bas deleted file mode 100644 index 6e2df35..0000000 --- a/bwbtest/B15B/crater.bas +++ /dev/null @@ -1,36 +0,0 @@ -10 REM - IMPACT CRATER DIMENSIONS -20 CLS ' : PI=3.14159 -30 CR1=18: CD1=9 -40 PRINT "Terrestrial Impact Crater" -50 INPUT " Impactor diameter (m)";ID -60 INPUT " Impactor density (kg/m^3)";IR -70 INPUT " Impactor velocity (km/s)";IK -80 INPUT " Graze angle (deg. from horiz.)";GA -90 IV=IK*1000: VI=PI*ID*ID*ID/6 -100 GF=(SIN(GA/180*PI))^.33 -110 MI=IR*VI: KE=.5*MI*IV*IV -120 KT=KE/4.2E+12: REM impactor KE in kT TNT -130 PRINT: PRINT "Impactor Parameters" -140 PRINT USING " Volume ##.##^^^^ m^3"; VI -150 PRINT USING " Mass ##.##^^^^ kg"; MI -160 PRINT USING " KE ##.##^^^^ J"; KE -170 PRINT USING " ##.##^^^^ kT TNT"; KT -180 CD=2*CR1*KT^.3*GF: CA=CD*1.25 -190 CZ=CD1*KT^.3*GF: CL=CZ*1.25 -200 CV=.5*PI*CD*CD/4*CZ -210 CE=2.15*CD -220 PRINT: PRINT "Crater Parameters" -230 PRINT " Diameter --" -240 PRINT USING " Actual ###### m"; CD -250 PRINT USING " Apparent ###### m"; CA -260 PRINT " Depth --" -270 PRINT USING " Actual ##### m"; CZ -280 PRINT USING " Apparent ##### m"; CL -290 PRINT USING " Target removed ##.##^^^^ m^3"; CV -300 PRINT USING " Ejecta spread ###### m"; CE -310 REM ======================== -320 REM FROM "ASTRONOMICAL -330 REM COMPUTING," SKY & TELE- -340 REM SCOPE, NOVEMBER 1996 -350 REM ======================== -360 END diff --git a/bwbtest/B15B/crater.run b/bwbtest/B15B/crater.run deleted file mode 100644 index 4d96da2..0000000 --- a/bwbtest/B15B/crater.run +++ /dev/null @@ -1,21 +0,0 @@ -Terrestrial Impact Crater - Impactor diameter (m)? 543 - Impactor density (kg/m^3)? 12.34 - Impactor velocity (km/s)? 5000 - Graze angle (deg. from horiz.)? 67 - -Impactor Parameters - Volume 8.382974e+07 m^3 - Mass 1.034459e+09 kg - KE 1.293074e+22 J - 3.078747e+09 kT TNT - -Crater Parameters - Diameter -- - Actual 24600 m - Apparent 30751 m - Depth -- - Actual 6150 m - Apparent 7688 m - Target removed 1.461604e+12 m^3 - Ejecta spread 52891 m diff --git a/bwbtest/B15B/daysold.INP b/bwbtest/B15B/daysold.INP deleted file mode 100644 index 4b11972..0000000 --- a/bwbtest/B15B/daysold.INP +++ /dev/null @@ -1,3 +0,0 @@ -01,02,1903 -128000 -0 diff --git a/bwbtest/B15B/daysold.bas b/bwbtest/B15B/daysold.bas deleted file mode 100644 index 50bba24..0000000 --- a/bwbtest/B15B/daysold.bas +++ /dev/null @@ -1,33 +0,0 @@ -10 REM DAYSOLD.BAS -20 INPUT "Enter your birthday (M,D,Y)";M,D,Y -30 REM Compute Julian Day Number -40 J=-INT(7*(INT((M+9)/12)+Y)/4) -50 S=SGN(M-9) -60 A=ABS(M-9) -70 J1=INT(Y+S*INT(A/7)) -80 J1=-INT((INT(J1/100)+1)*3/4) -90 J=J+INT(275*M/9)+D+J1 -100 J=J+1721028+367*Y -110 INPUT "Enter desired age in days ";A9 -120 IF A9=0 THEN 280 -130 REM Compute calendar date from new JD number -140 J2=J+A9+1 -150 A1=INT((J2/36524.25)-51.12264) -160 A=J2+1+A1-INT(A1/4) -170 B=A+1524 -180 C=INT((B/365.25)-0.3343) -190 D=INT(365.25*C) -200 E=INT((B-D)/30.61) -210 D=B-D-INT(30.61*E) -220 M=E-1 -230 Y=C-4716 -240 IF E>13.5 THEN M=M-12 -250 IF M<2.5 THEN Y=Y+1 -260 PRINT USING "You will be ##### days old on ##/##/####";A9;M;D;Y -270 GOTO 110 -280 END -900 REM --------------------------- -910 REM APPEARED IN COMPUTERS IN -920 REM ASTRONOMY, SKY & TELESCOPE, -930 REM NOVEMBER 2001, PAGE 63 -940 REM --------------------------- diff --git a/bwbtest/B15B/daysold.run b/bwbtest/B15B/daysold.run deleted file mode 100644 index d116356..0000000 --- a/bwbtest/B15B/daysold.run +++ /dev/null @@ -1,4 +0,0 @@ -Enter your birthday (M,D,Y)? 01,02,1903 -Enter desired age in days ? 128000 -You will be 128000 days old on 6/15/2253 -Enter desired age in days ? 0 diff --git a/bwbtest/B15B/dial.INP b/bwbtest/B15B/dial.INP deleted file mode 100644 index 03a5247..0000000 --- a/bwbtest/B15B/dial.INP +++ /dev/null @@ -1,8 +0,0 @@ -180,80 -6 -123 -W -6 -5 -2 -N diff --git a/bwbtest/B15B/dial.bas b/bwbtest/B15B/dial.bas deleted file mode 100644 index 5509f09..0000000 --- a/bwbtest/B15B/dial.bas +++ /dev/null @@ -1,78 +0,0 @@ -10 REM VERTICAL SUNDIALS -11 INPUT "LAT, LONG ";B,L -12 IF B<0 THEN 11 -13 INPUT "TIME-ZONE MERIDIAN";L0 -14 INPUT "AZIMUTH DIAL FACES";F -15 IF F<=90 OR F>=270 THEN 14 -16 P1=3.14159265: R1=P1/180 -17 B1=B*R1: S=0 -18 INPUT "SUN E OR W";S$ -19 IF S$="E" THEN S=-1 -20 IF S$="W" THEN S=1 -21 IF S=0 THEN 18 -22 INPUT "DIAL HEIGHT";H5 -23 INPUT "WIDTH OF THIS PART";W5 -24 INPUT "STEP SIZE IN MIN";G -25 F1=P1/2+S*R1*(180-F): PRINT -26 R5=W5/H5: Z5=S*R1*(L0-L) -27 PRINT "LAT: ";B;" LONG: ";L; -28 PRINT " MERID: ";L0 -29 PRINT "DIAL FACES AZIMUTH ";F -30 GOSUB 73 -31 PRINT "SUN ";S$;" ";W5; -32 PRINT "WIDE BY";H5;"HIGH" -33 PRINT: H=12-S: G=S*G/60 -34 REM -35 REM CALCULATING LOOP -36 Q=Z5+S*P1*(H-12)/12 -37 IF Q<0 THEN 47 -38 IF H<4 OR H>20 THEN 48 -39 IF Q<>0 THEN 41 -40 K=0: GOTO 45 -41 K0=SIN(F1)*TAN(P1/2-Q) -42 K1=COS(F1)*SIN(B1)+K0 -43 IF K1=0 THEN K1=1E-10 -44 K=COS(B1)/K1 -45 GOSUB 52 -46 IF K>=0 THEN GOSUB 57 -47 H=H+G: GOTO 35 -48 PRINT -49 INPUT "AGAIN (Y OR N)";Q$ -50 S=0: IF Q$="Y" THEN 18 -51 END -52 REM DECIDE X OR Y -53 D=S*K*H5: D$=" X=" -54 IF K12 THEN 66 -65 IF M1=0 THEN P$=" NOON" -66 IF H1>12 THEN H1=H1-12 -67 H1$=STR$(H1) -68 IF H1<10 THEN H1$=" "+H1$ -69 D=INT(D*1000+0.5)/1000 -70 PRINT H1$;M1$;P$; -71 PRINT TAB(15);D$;D -72 RETURN -73 REM COMPUTE END OF STYLE -74 P5=TAN(P1/2-B1)*H5 -75 Z=SIN(F1)*P5 -76 Z=INT(Z*1000+0.5)/1000 -77 X=S*TAN(P1/2-F1)*Z -78 X=INT(X*1000+0.5)/1000 -79 Y=-H5 -80 PRINT "STYLE END COORDINATES:" -81 PRINT "X=";X;", Y=";Y;", Z=";Z -82 RETURN -83 REM ************************* -84 REM FROM "ASTRONOMICAL COM- -85 REM PUTING," SKY & TELESCOPE -86 REM DECEMEBR, 1987 -87 REM ************************* diff --git a/bwbtest/B15B/dial.run b/bwbtest/B15B/dial.run deleted file mode 100644 index b049a45..0000000 --- a/bwbtest/B15B/dial.run +++ /dev/null @@ -1,16 +0,0 @@ -LAT, LONG ? 180,80 -TIME-ZONE MERIDIAN? 6 -AZIMUTH DIAL FACES? 123 -SUN E OR W? W -DIAL HEIGHT? 6 -WIDTH OF THIS PART? 5 -STEP SIZE IN MIN? 2 - -LAT: 180 LONG: 80 MERID: 6 -DIAL FACES AZIMUTH 123 -STYLE END COORDINATES: -X= 2.80352E+9 , Y=-6 , Z=-1.82063E+9 -SUN W 5 WIDE BY 6 HIGH - - -AGAIN (Y OR N)? N diff --git a/bwbtest/B15B/difpat.INP b/bwbtest/B15B/difpat.INP deleted file mode 100644 index 84315dc..0000000 --- a/bwbtest/B15B/difpat.INP +++ /dev/null @@ -1,2 +0,0 @@ -2 -Y diff --git a/bwbtest/B15B/difpat.bas b/bwbtest/B15B/difpat.bas deleted file mode 100644 index 338eb56..0000000 --- a/bwbtest/B15B/difpat.bas +++ /dev/null @@ -1,73 +0,0 @@ -10 REM DIFFRACTION PATTERN -20 REM -40 DIM II(40,24),AA(40,24),BB(40,24) -50 R=3: REM 6-INCH APERTURE -60 L=.000022: REM WAVELENGTH -70 GOSUB 530 -80 INPUT "HOW MANY RAYS";H -90 FOR I1=1 TO H -100 X=R*(2*RND-1) -110 Y=R*(2*RND-1) -115 REM NOTE THAT THE RND STATEMENT OPERATES -117 REM DIFFERENTLY ON DIFFERENT MACHINES -120 GOSUB 390 -130 IF F=0 THEN 100 -140 PRINT "DOING RAY ";I1 -150 GOSUB 450 -160 NEXT -170 REM -180 PRINT "NOW FINDING INTENSITY" -190 C=II(20,12)^2 -200 FOR I=0 TO 40: FOR J=0 TO 24 -210 II(I,J)=II(I,J)*II(I,J)/C -220 NEXT J: NEXT I -230 REM -240 REM PRINT PICTURE -250 REM -260 INPUT "PRINTER ON";Q$ -270 I$=" ./:;XH8M#": GOSUB 620 -280 FOR J=0 TO 24: LPRINT "I"; -290 FOR I=0 TO 40 -300 V=INT(9.99*II(I,J)^.47)+1 -310 LPRINT MID$(I$,V,1); -320 NEXT I -330 LPRINT "I": NEXT J -340 GOSUB 620 -350 LPRINT -360 LPRINT "1 ARC SEC: I---------I" -370 GOTO 720 -380 REM -390 REM APERTURE FILTER -400 REM -410 F=1 -420 R1=SQR(X*X+Y*Y) -430 IF R1>R THEN F=0 -440 RETURN -450 REM PHASE CALCULATION -460 REM -470 FOR I=0 TO 40 -480 FOR J=0 TO 24 -490 P=X*AA(I,J)+Y*BB(I,J) -500 II(I,J)=II(I,J)+COS(P) -510 NEXT J: NEXT I -520 RETURN -530 REM COMPUTE COEFFICIENTS -540 REM -550 K=2*3.14159265#/(L*206265!) -560 FOR I=0 TO 40: FOR J=0 TO 24 -570 AA(I,J)=K*(I-20)/10 -580 BB(I,J)=K*(12-J)/6 -590 NEXT J: NEXT I -600 RETURN -610 REM -620 REM PRINT A LINE -630 LPRINT " "; -640 FOR I=0 TO 40: LPRINT "-"; -650 NEXT: LPRINT -660 RETURN -670 REM ======================= -680 REM FROM "ASTRONOMICAL -690 REM COMPUTING," SKY & TELE- -700 REM SCOPE, SEPTEMBER, 1987 -710 REM ======================= -720 END diff --git a/bwbtest/B15B/difpat.run b/bwbtest/B15B/difpat.run deleted file mode 100644 index 96ccc25..0000000 --- a/bwbtest/B15B/difpat.run +++ /dev/null @@ -1,5 +0,0 @@ -HOW MANY RAYS? 2 -DOING RAY 1 -DOING RAY 2 -NOW FINDING INTENSITY -PRINTER ON? Y diff --git a/bwbtest/B15B/easter.INP b/bwbtest/B15B/easter.INP deleted file mode 100644 index e56d616..0000000 --- a/bwbtest/B15B/easter.INP +++ /dev/null @@ -1,2 +0,0 @@ -2015 -N diff --git a/bwbtest/B15B/easter.bas b/bwbtest/B15B/easter.bas deleted file mode 100644 index 9a0ffdb..0000000 --- a/bwbtest/B15B/easter.bas +++ /dev/null @@ -1,32 +0,0 @@ -10 REM EASTER -12 REM -14 INPUT "YEAR ";Y -16 IF Y<1583 THEN 14 -18 Y1=Y/19 -20 A=INT((Y1-INT(Y1))*19+.001) -22 B1=Y/100: B=INT(B1) -24 C=INT((B1-INT(B1))*100+.001) -26 D1=B/4: D=INT(D1) -28 E=INT((D1-INT(D1))*4+.001) -30 F=INT(((B+8)/25)+.001) -32 G=INT((B-F+1)/3) -34 H1=(19*A+B-D-G+15)/30 -36 H=INT((H1-INT(H1))*30+.001) -38 C1=C/4: I=INT(C1) -40 K=INT((C1-I)*4+.001) -42 L1=(32+2*E+2*I-H-K)/7 -44 L=INT((L1-INT(L1))*7+.001) -46 M=INT((A+11*H+22*L)/451) -48 N1=(H+L-7*M+114)/31: N=INT(N1) -50 P=INT((N1-N)*31+.001) -52 N$="APRIL" -54 IF N=3 THEN N$="MARCH" -56 PRINT "EASTER IS ON ";N$;P+1 -58 INPUT "ANOTHER (Y OR N) ";Q$ -60 IF Q$="Y" THEN 14 -62 END -70 REM ------------------------ -80 REM APPEARED IN ASTRONOMICAL -90 REM COMPUTING, SKY & TELE- -95 REM SCOPE, MARCH, 1986 -99 REM ------------------------ diff --git a/bwbtest/B15B/easter.run b/bwbtest/B15B/easter.run deleted file mode 100644 index 1dedbb6..0000000 --- a/bwbtest/B15B/easter.run +++ /dev/null @@ -1,3 +0,0 @@ -YEAR ? 2015 -EASTER IS ON APRIL 5 -ANOTHER (Y OR N) ? N diff --git a/bwbtest/B15B/extinc.INP b/bwbtest/B15B/extinc.INP deleted file mode 100644 index 31fe728..0000000 --- a/bwbtest/B15B/extinc.INP +++ /dev/null @@ -1,3 +0,0 @@ -7 -4 -1.234 diff --git a/bwbtest/B15B/extinc.bas b/bwbtest/B15B/extinc.bas deleted file mode 100644 index 15e72d7..0000000 --- a/bwbtest/B15B/extinc.bas +++ /dev/null @@ -1,34 +0,0 @@ -10 REM EXTINCTION ANGLE -12 REM -14 R=180/3.14159265 -16 INPUT "STAR'S MAG";M -18 INPUT "LIM MAG AT ZEN";M0 -20 INPUT "EXT COEFF, K";K -22 REM FIND BACKGROUND -24 K0=0.0126: K1=M0+K -26 IF K1<4.21 THEN K0=0.00000126 -28 C=-9.80 -30 IF M0+K<4.21 THEN C=-8.35 -32 X0=(M0+16.57+K+2.5*C)/(-5.0) -34 B0=(10^X0-1)^2/K0-K*118/0.2 -36 REM FIND DESIRED AIRMASS -38 B=B0+236*(K/0.20) -40 K0=0.0126 -42 IF B>1650 THEN K0=0.00000126 -44 C=-9.80 -46 IF B>1650 THEN C=-8.35 -48 I=C+2*LOG(1+SQR(K0*B))/LOG(10) -50 A=(M+16.57+2.5*I)/(-K) -52 REM FIND EXT ANGLE -54 Z=90.1/R: D=0.1/R -56 Z=Z-D -58 X=COS(Z)+0.025*EXP(-11*COS(Z)) -60 IF (1/X)>A THEN 56 -62 Z=Z*R -64 PRINT "EXT ANGLE: ";Z -66 END -68 REM ****************************** -70 REM FROM ASTRONOMICAL COMPUTING, -72 REM SKY & TELESCOPE, APRIL, 1987, -74 REM PAGE 426 -76 REM ****************************** diff --git a/bwbtest/B15B/extinc.run b/bwbtest/B15B/extinc.run deleted file mode 100644 index f4c62a9..0000000 --- a/bwbtest/B15B/extinc.run +++ /dev/null @@ -1,4 +0,0 @@ -STAR'S MAG? 7 -LIM MAG AT ZEN? 4 -EXT COEFF, K? 1.234 -EXT ANGLE: -92.2 diff --git a/bwbtest/B15B/facecirc.INP b/bwbtest/B15B/facecirc.INP deleted file mode 100644 index d2500e5..0000000 --- a/bwbtest/B15B/facecirc.INP +++ /dev/null @@ -1,2 +0,0 @@ -250 -d diff --git a/bwbtest/B15B/facecirc.bas b/bwbtest/B15B/facecirc.bas deleted file mode 100644 index 2041174..0000000 --- a/bwbtest/B15B/facecirc.bas +++ /dev/null @@ -1,77 +0,0 @@ -10 REM - THIS IS FACECIRC.BAS -20 CLS -30 REM - Constants -40 A = 4080: C = 5100: HF = 180: PLU = 40: E = 80: FA = 1: FB = 10: FC = 350 -50 K = .017453293#: REM - This is PI/180 -60 INPUT "Please Enter the Outside DIAMETER in MM - "; DIA: OR1 = DIA / 2: PRINT : PRINT -70 IR1 = OR1 - 3: PRINT : PRINT -80 IR2 = IR1 - 2: IR3 = IR1 - 1 -90 REM - Radius is converted to plotter units (PLU) -100 OR2 = OR1 * PLU: IR4 = IR1 * PLU: IR5 = IR2 * PLU: IR6 = IR3 * PLU -110 PRINT : PRINT "Do you want the scale in Degrees or Hours and Minutes?" -120 INPUT " Please indicate 'd' for Degrees or 'h' for Hours... "; A$: PRINT -130 IF A$ = "h" OR A$ = "H" THEN QQ = 1 -140 REM - Clear, set into HP-GL/2 mode, and initialize the printer -150 LPRINT CHR$(27); "E" : LPRINT CHR$(27); "%0B" : LPRINT "IN;" -160 REM - Select a pen and set the width -170 LPRINT "SP1;": LPRINT "PW.1;" -180 PRINT : PRINT : PRINT "Printing......." -190 PRINT : PRINT "NOTE: This will take up to 70 seconds to print." -200 REM - Plot outside and inside circles -210 LPRINT "PA"; A; ","; C; ";": LPRINT "CI"; OR2; : LPRINT "PU;" -220 LPRINT "PA"; A; ","; C; ";": LPRINT "CI"; IR4; : LPRINT "PU;" -230 REM - Put in the Degrees or Hours -240 IF QQ = 1 THEN FA = 1.25 -250 FOR I = -HF TO HF STEP FA -260 LPRINT "PU;" -270 LPRINT "PA"; A + SIN(I * K) * IR4; ","; C + COS(I * K) * IR4; ";" -280 LPRINT "PD;" -290 LPRINT "PA"; A + SIN(I * K) * OR2; ","; C + COS(I * K) * OR2; ";" -300 LPRINT "PU;" -310 NEXT I -320 REM - Put in longer tick marks -330 IF QQ = 1 THEN FB = 15 -340 FOR I = -HF TO HF STEP FB -350 LPRINT "PU;" -360 LPRINT "PA"; A + SIN(I * K) * IR5; ","; C + COS(I * K) * IR5; ";" -370 LPRINT "PD;" -380 LPRINT "PA"; A + SIN(I * K) * OR2; ","; C + COS(I * K) * OR2; ";" -390 LPRINT "PU;" -400 NEXT I -410 REM - Put in shorter tick marks -420 FOR I = -HF TO HF STEP 5 -430 LPRINT "PU;" -440 LPRINT "PA"; A + SIN(I * K) * IR6; ","; C + COS(I * K) * IR6; ";" -450 LPRINT "PD;" -460 LPRINT "PA"; A + SIN(I * K) * OR2; ","; C + COS(I * K) * OR2; ";" -470 LPRINT "PU;" -480 NEXT I -490 REM - Select Font and Label -500 LPRINT "SD1,21,2,1,4,8,7,4148;" -510 IF QQ = 1 THEN GOTO 530 -520 IF OR1 < 45 THEN LPRINT "DV1;" -530 LPRINT "DT*,1;" -540 LPRINT "SS;" -550 LPRINT "LO16;" -560 IF QQ = 1 THEN FC = 345: FB = 15 -570 FOR J = 0 TO FC STEP FB -580 LPRINT "PU;" -590 IF QQ = 1 THEN GOTO 610 -600 IF OR1 < 45 THEN LPRINT "PA"; A + SIN(J * K) * (IR5 + E); ","; C + COS(J * K) * (IR5 + E); ";": GOTO 620 -610 LPRINT "PA"; A + SIN(J * K) * IR5; ","; C + COS(J * K) * IR5; ";" -620 LPRINT "DI"; COS(-J * K); ","; SIN(-J * K); ";" -630 IF J = 90 THEN LPRINT "DI0,-1;" -640 IF J = 180 THEN LPRINT "DI-1,0;" -650 IF J = 270 THEN LPRINT "DI0,1;" -660 IF QQ = 1 THEN LPRINT "LB"; INT(J / 15); "*;": GOTO 680 -670 LPRINT "LB"; INT(J); "*;" -680 LPRINT "PU;" -690 NEXT J -700 REM - Reset the printer -710 LPRINT CHR$(27); "%0A": LPRINT CHR$(27); "E" -720 END -900 REM *********************************************** -910 REM THIS PROGRAM BY RONALD KOCELA PRODUCES CIRCULAR -920 REM SETTING CIRCLES ON HP LASERJET PRINTERS. -930 REM FROM SKY & TELESCOPE, MARCH 1996, PAGE 84. -940 REM *********************************************** diff --git a/bwbtest/B15B/facecirc.run b/bwbtest/B15B/facecirc.run deleted file mode 100644 index d25d1bc..0000000 --- a/bwbtest/B15B/facecirc.run +++ /dev/null @@ -1,14 +0,0 @@ -Please Enter the Outside DIAMETER in MM - ? 250 - - - - - -Do you want the scale in Degrees or Hours and Minutes? - Please indicate 'd' for Degrees or 'h' for Hours... ? d - - - -Printing....... - -NOTE: This will take up to 70 seconds to print. diff --git a/bwbtest/B15B/fireball.INP b/bwbtest/B15B/fireball.INP deleted file mode 100644 index 952e36f..0000000 --- a/bwbtest/B15B/fireball.INP +++ /dev/null @@ -1,5 +0,0 @@ -567890 -2.345 -123456 -76.54 -0.123 diff --git a/bwbtest/B15B/fireball.bas b/bwbtest/B15B/fireball.bas deleted file mode 100644 index c81fb57..0000000 --- a/bwbtest/B15B/fireball.bas +++ /dev/null @@ -1,62 +0,0 @@ -10 REM FIREBALL -12 PRINT -14 INPUT "INITIAL MASS (KG) ";MM -16 INPUT "DENSITY (KG/M^3) ";D -18 INPUT "SPEED (KM/S) ";V -20 INPUT "ZENITH ANGLE (DEG) ";Z -22 INPUT "TIME STEP (SEC) ";DT -24 GOSUB 98: PRINT: GOSUB 114 -26 A=1.2: L=.001: G=1: H0=.2 -28 H1=500000: SG=H0/(2*G*H1) -30 H=155000: T=0: FM=10: FL=FM -32 M=MM: V=V*1000 -34 RE=6371000: ZR=Z*3.14159/180 -36 VV=-V*COS(ZR): VH=V*SIN(ZR) -38 REM DENSITY OF ATMOSPHERE -40 I=INT(H/10000) -42 IF I>15 THEN I=15 -44 FR=(H/10000)-I -46 R=10^(LR(I)*(1-FR)+FR*LR(I+1)) -48 REM RATES OF CHANGE -50 A2=G*A*R*V*V/(M*D*D)^.33333 -52 GV=9.810001/(1+H/RE)^2 -54 AV=-GV-A2*VV/V+VH*VH/(RE+H) -56 AH=-A2*VH/V-VV*VH/(RE+H) -58 M0=SG*M*V*A2 -60 IF FL=FM THEN GOSUB 76 -62 REM INCREMENT VARIABLES -64 T=T+DT: S=S+VH*DT*RE/(RE+H) -66 H=H+VV*DT: M=M-M0*DT -68 VV=VV+AV*DT: VH=VH+AH*DT -70 V=SQR(VH*VH+VV*VV) -72 IF M<0 OR H<0 THEN END -74 FL=FL+1: GOTO 38 -76 REM OUTPUT -78 PRINT INT(.5+T*10)/10; -80 PRINT TAB(10);INT(.5+S/1000); -82 PRINT TAB(20);INT(.5+H/1000); -84 PRINT TAB(30);INT(.5+V/100)/10; -86 PRINT TAB(40);INT(.5+A2); -88 PRINT TAB(50);INT(.5+100*M/MM); -90 LV=.5*V*V*M0*L*1E+10/(H*H) -92 MV=6.8-1.086*LOG(LV) -94 PRINT TAB(60);INT(.5+10*MV)/10 -96 FL=0: RETURN -98 REM LOG(DENSITY) OF ATMOSPHERE -100 DIM LR(16) -102 FOR I=0 TO 16: READ LR(I): NEXT -104 DATA .09,-.38,-1.05,-1.74,-2.39 -106 DATA -2.98,-3.50,-4.07,-4.72 -108 DATA -5.45,-6.30,-7.00,-7.62 -110 DATA -7.97,-8.32,-8.67,-8.81 -112 RETURN -114 REM HEADING -116 PRINT" GROUND"; -118 PRINT TAB(39);"ATMOS" -120 PRINT"TIME TRACK HEIGHT"; -122 PRINT TAB(30);"SPEED DECEL"; -124 PRINT TAB(50);"MASS VISUAL" -126 PRINT" (S) (KM) (KM)"; -128 PRINT TAB(30);"(KM/S) (M/S/S)"; -130 PRINT TAB(50);" (%) MAG" -132 RETURN diff --git a/bwbtest/B15B/fireball.run b/bwbtest/B15B/fireball.run deleted file mode 100644 index d20d8d9..0000000 --- a/bwbtest/B15B/fireball.run +++ /dev/null @@ -1,11 +0,0 @@ - -INITIAL MASS (KG) ? 567890 -DENSITY (KG/M^3) ? 2.345 -SPEED (KM/S) ? 123456 -ZENITH ANGLE (DEG) ? 76.54 -TIME STEP (SEC) ? 0.123 - - GROUND ATMOS -TIME TRACK HEIGHT SPEED DECEL MASS VISUAL - (S) (KM) (KM) (KM/S) (M/S/S) (%) MAG - 0 0 155 123456 227707 100 -55.7 diff --git a/bwbtest/B15B/fracts.INP b/bwbtest/B15B/fracts.INP deleted file mode 100644 index 1036e4e..0000000 --- a/bwbtest/B15B/fracts.INP +++ /dev/null @@ -1 +0,0 @@ -0.1234 diff --git a/bwbtest/B15B/fracts.bas b/bwbtest/B15B/fracts.bas deleted file mode 100644 index 93579ad..0000000 --- a/bwbtest/B15B/fracts.bas +++ /dev/null @@ -1,42 +0,0 @@ -10 REM REPRESENTING A DECIMAL -12 REM VALUE BY A CONTINUED -14 REM FRACTION -16 REM -18 ' DEFDBL A-H,K-Z -20 ' DEFINT I,J -22 C1=1: O=99999 -24 O1$="##### ########## /" -26 O2$="= ##.#############" -28 REM -30 P=1E12 -32 DIM F(100) -34 INPUT "DECIMAL VALUE";K -36 PRINT -38 I=-1 -40 I=I+1 -42 F(I)=INT(K): IF I>=1 THEN 46 -44 N=F(I): D=1: GOTO 48 -46 GOSUB 68 -48 R=N/D -50 IF ABS(N)>P THEN 66 -52 IF ABS(D)>P THEN 66 -54 PRINT USING O1$;F(I);N; -56 PRINT D;TAB(30); -58 PRINT USING O2$;R -60 K1=K-INT(K): IF K1=0 THEN 66 -62 IF ABS(R-O)<1/P THEN 66 -64 K=C1/K1: O=R: GOTO 40 -66 END -68 D=F(I): N=1 -70 FOR J=I-1 TO 0 STEP -1 -72 N1=D -74 D1=F(J)*D+N -76 N=N1: D=D1 -78 NEXT J -80 N=D1: D=N1 -82 RETURN -100 REM ************************ -110 REM FROM SKY & TELESCOPE'S -120 REM ASTRONOMICAL COMPUTING -130 REM FOR JANUARY, 1989 -140 REM ************************ diff --git a/bwbtest/B15B/fracts.run b/bwbtest/B15B/fracts.run deleted file mode 100644 index 9a7ebda..0000000 --- a/bwbtest/B15B/fracts.run +++ /dev/null @@ -1,13 +0,0 @@ -DECIMAL VALUE? 0.1234 - - 0 0 / 1 = 0.0000000000000 - 8 1 / 8 = 0.1250000000000 - 9 9 / 73 = 0.1232876712329 - 1 10 / 81 = 0.1234567901235 - 1 19 / 154 = 0.1233766233766 - 1 29 / 235 = 0.1234042553191 - 3 106 / 859 = 0.1233993015134 - 1 135 / 1094 = 0.1234003656307 - 1 241 / 1953 = 0.1233998975934 - 1 376 / 3047 = 0.1234000656383 - 1 617 / 5000 = 0.1234000000000 diff --git a/bwbtest/B15B/gflash.INP b/bwbtest/B15B/gflash.INP deleted file mode 100644 index ed1d0e7..0000000 --- a/bwbtest/B15B/gflash.INP +++ /dev/null @@ -1,4 +0,0 @@ -15000 -89 -0.9 -B diff --git a/bwbtest/B15B/gflash.bas b/bwbtest/B15B/gflash.bas deleted file mode 100644 index c9d6534..0000000 --- a/bwbtest/B15B/gflash.bas +++ /dev/null @@ -1,202 +0,0 @@ -10 ' THE GREEN FLASH -20 ' -30 INPUT "Height of observer in feet";H -40 INPUT "Zenith dist. of occulting edge (deg)";Z0 -50 INPUT "Aerosol extinction (mag/air mass)";KD -60 INPUT "Occult bottom (B) or top (T) of Sun";Q$ -70 TB=1: IF Q$="T" OR Q$="t" THEN TB=-1 -80 PRINT: GOSUB 1590 -90 DS=1: ' Sun's distance in a.u. -100 RS=1: ' Sun's radius in solar radii -110 TS=5700: ' Sun's temperature (Kelvin) -120 D=0: ' Sun's declination in degrees -130 MP=1: ' Planet's mass in Earth masses -140 PE=1: ' Planet's rotation period in days -150 R0=1: ' Planet's radius in Earth radii -160 L=40: ' Observer's latitude in degrees -170 P=1: ' Sea-level pressure, bars -180 T0=10: ' Air temperature in degrees Celsius -190 OZ=3: ' Ozone layer thickness (mm at STP) -200 HS=12: ' Ozone ht. (miles above sea level) -210 AA=-1.3: ' Aerosol exponent (unitless) -220 AH=1: ' Aerosol scale height (miles) -230 PP(1)=78: ' Nitrogen percentage by volume -240 PP(2)=22: ' Oxygen percentage -250 PP(3)=0: ' Carbon dioxide -260 PP(4)=0: ' Hydrogen -270 PP(5)=0: ' Helium -280 PP(6)=0: ' Methane -290 PP(7)=0: ' Ammonia -300 PP(8)=0: ' Argon -310 ' -330 ' Convert input data to cgs units -340 DS=DS*1.496E+13: RS=RS*6.96E+10: ' cm -350 R0=R0*6.378E+8: H=H*30.48: ' cm -360 HS=HS*1.609E+5: AH=AH*1.609E+5: ' cm -370 D=D*PI/180: L=L*PI/180: Z0=Z0*PI/180: ' radians -380 MP=MP*5.976E+27: ' grams -390 PE=PE*24*3600: ' seconds -400 T0=T0+273.1: ' degrees Kelvin -410 ' -420 ' Calculate average molecular weight -430 MW=0 -440 FOR IG=1 TO 8: MW=MW+MX(IG)*PP(IG)*.01: NEXT IG -450 ' -460 ' Calculate atmospheric parameters -470 G=6.67E-8*MP*(R0^(-2)):' Acceleration of gravity -480 S=8.31E+7*T0/(G*MW): ' Atmospheric scale height -490 LA=-.4*T0/S: ' Adiabatic lapse rate -500 ' -510 ' Choose a color -520 FOR IC=1 TO 11 -530 W=(IC*500+2500)*1E-8 -540 ' Calculate index of refraction -550 N0=0 -560 FOR IG=1 TO 8 -570 NS=(A(IG)*.00001)*(1+(B(IG)*1E-11)/(W^2)) -580 N0=N0+NS*PP(IG)*.01*P*273.1/T0 -590 NEXT IG -600 N=1+N0*EXP(-H/S): ' At observer -610 N0=N0+1: ' At sea level -620 ' -630 ' Calc. refraction and air mass for each color -640 GOSUB 1510: ' Refraction subroutine -650 IF RF>RX THEN RX=RF -660 IF RF90 THEN KX=90 -760 TR(IC)=10^(-.4*KX) -770 ' -780 ' Calculate Sun's flux above atmosphere -790 BB=.0000374*(W^(-5))/(EXP(1.43/(W*TS))-1) -800 FA(IC)=((RS/DS)^2)*BB*1E-8: ' in erg/cm2/s/A -810 NEXT IC -820 ' -830 ' Pick relevant time range for calculations -840 CZ=COS(Z0+RN+TB*RS/DS) -850 HC=(CZ-SIN(D)*SIN(L))/(COS(D)*COS(L)) -860 HA=ATN(SQR(1-HC*HC)/HC): IF HC<0 THEN HA=HA+PI -870 T1=HA*PE*.5/PI: ' Time when lowest disk sets -880 CZ=COS(Z0+RX+TB*RS/DS) -890 HC=(CZ-SIN(D)*SIN(L))/(COS(D)*COS(L)) -900 HA=ATN(SQR(1-HC*HC)/HC): IF HC<0 THEN HA=HA+PI -910 T2=HA*PE*.5/PI: ' Time when highest disk sets -920 DT=(T2-T1)/50: ' Choose a time increment -930 T0=T1-DT: ' Define a fiducial time -940 PRINT " Time x y V mag. Color" -950 ' -960 ' ***** Main loop starts here ***** -970 FOR IT=-1 TO 48 -980 T=T1+IT*DT: ' Choose a time -990 TT=T-T0: ' Seconds from start time -1000 ' -1010 ' Cycle through wavelengths -1020 FOR IC=1 TO 11 -1030 ' Calc. altitude of solar disk for that color -1040 HA=2*PI*T/PE: ' Hour angle of Sun -1050 CZ=SIN(D)*SIN(L)+COS(D)*COS(L)*COS(HA) -1060 ZA=ATN(SQR(1-CZ*CZ)/CZ): IF CZ<0 THEN ZA=ZA+PI -1070 ZA=ZA-R(IC): ' Zenith distance of Sun -1080 ' -1090 ' Calculate the fraction of disk visible -1100 CC=(ZA-Z0)*TB*DS/RS -1110 IF CC>1 THEN CC=1: ' If nothing visible -1120 TH(IC)=ATN(SQR(1-CC*CC)/CC) -1130 IF CC<0 THEN TH(IC)=TH(IC)+PI -1140 FR=(TH(IC)-CC*SIN(TH(IC)))/PI -1150 ' -1160 ' Calculate visible flux from Sun -1170 F(IC)=FA(IC)*TR(IC)*FR -1180 NEXT IC -1190 ' -1200 ' (Could print out flux, F(IC) [ergs/cm2/s/A], -1210 ' as well as the Sun's stellar magnitude, -1220 ' M(IC)=-2.5*LOG(F(IC))/B0-(M0(IC)+20), -1230 ' as a function of the color IC, where -1240 ' 1=3000A, 2=3500A, 3=4000A, ... , 11=8000A.) -1250 ' -1260 XX=0: YY=0: ZZ=0 -1270 FOR IC=1 TO 11 -1280 XX=XX+X1(IC)*F(IC): ' X from CIE standard -1290 YY=YY+Y1(IC)*F(IC): ' Y from CIE standard -1300 ZZ=ZZ+Z1(IC)*F(IC): ' Z from CIE standard -1310 NEXT IC -1320 IF XX+YY+ZZ=0 THEN 1480 -1330 X=XX/(XX+YY+ZZ): ' x -1340 Y=YY/(XX+YY+ZZ): ' y -1350 IF Y<=.01 THEN 1480: ' If invisible to eye -1360 PH=ATN((.333-X)/(Y-.333)): ' Angle from white -1370 IF (Y-.333)<0 THEN PH=PH+PI:' in color diagram -1380 CO$="Violet" -1390 IF PH<4.229 THEN CO$= " Blue" -1400 IF PH<2.580 THEN CO$= " Green" -1410 IF PH<1.106 THEN CO$= "Yellow" -1420 IF PH<0.359 THEN CO$= "Orange" -1430 IF PH<0.000 THEN CO$= " Red" -1440 V=-2.5*LOG(.034*YY/2.54E-10)/B0: ' Visual mag. -1450 PRINT USING "##.## ";TT; -1460 PRINT USING "##.## ##.## ###.# ";X;Y;V; -1470 PRINT CO$ -1480 NEXT IT -1490 END -1500 ' -1510 ' Refraction subroutine (quick version) -1520 N=1+(N0-1)*EXP(-H/S): ' At observer -1530 BS=R0*SIN(Z0)/(R0+.5*S): BE=ATN(BS/SQR(1-BS*BS)) -1540 R5=N*BS: RF=ATN(R5/SQR(1-R5*R5))-BE: CZ=COS(Z0) -1560 AM=1/(CZ+.8*SQR(S/R0)*EXP(-.38*CZ*SQR(R0/S))) -1570 RETURN -1580 ' -1590 ' Constants and data statements -1600 RX=-1: RN=1 -1610 ' PI=3.14159: -1615 B0=LOG(10): ' Pi and log-10 factor -1620 DIM A(8),B(8),PP(8),MX(8),KS(11),M0(11),X1(11) -1630 DIM Y1(11),Z1(11),R1(11),G1(11),B1(11),M(11) -1640 DIM R(11),TR(11),F(11),FA(11),LF(11),TH(11) -1650 FOR I=1 TO 8: READ A(I): NEXT I -1660 DATA 29.1, 26.6, 43.9, 13.6, 3.5, 43, 37, 27.9 -1670 FOR I=1 TO 8: READ B(I): NEXT I -1680 DATA 7.7, 5.1, 6.4, 7.5, 2.3, 6.0, 12.0, 5.6 -1690 FOR I=1 TO 8: READ MX(I): NEXT I -1700 DATA 28, 32, 44, 2, 4, 16, 17, 39.9 -1710 FOR I=1 TO 11: READ KS(I): NEXT I -1720 DATA 3.2, .005, 0, .001, .012, .031, .044 -1730 DATA .023, .008, .005, .001 -1740 FOR I=1 TO 11: READ M0(I): NEXT I -1750 DATA 1.19, 0.95, 0.52, 0.46, 0.74, 1.06, 1.33 -1760 DATA 1.6, 1.88, 2.1, 2.3 -1770 FOR I=1 TO 11: READ X1(I): NEXT I -1780 DATA 0, 0, .014, .336, .005, .433, 1.062 -1790 DATA .283, .011, 0, 0 -1800 FOR I=1 TO 11: READ Y1(I): NEXT I -1810 DATA 0, 0, .0004, .038, .323, .995, .631 -1820 DATA .107, .004, .0001, 0 -1830 FOR I=1 TO 11: READ Z1(I): NEXT I -1840 DATA 0, 0, .068, 1.773, .272, .009, 0,0,0,0,0 -1850 FOR I=1 TO 11: READ R1(I): NEXT I -1860 DATA 0, 0, .025, -.039, -1.16, .097 -1870 DATA .847, .989, 1, 0, 0 -1880 FOR I=1 TO 11: READ G1(I): NEXT I -1890 DATA 0, 0, -.011, .0218, 1.39, .905, .154 -1900 DATA .011, 0, 0, 0 -1910 FOR I=1 TO 11: READ B1(I): NEXT I -1920 DATA 0, 0, .986, 1.017, .778, -.0025 -1930 DATA -.0012, 0, 0, 0, 0 -1940 RETURN -2000 ' -2010 ' GFLASH.BAS -- This program by Dr. Bradley -2020 ' E. Schaefer predicts how the "green flash" -2030 ' should look to an observer watching the -2040 ' setting Sun. Inputs can be varied to see -2050 ' the effect of different atmospheric conditions -2060 ' and elevation above sea level. The program -2070 ' is discussed in detail in Sky & Telescope, -2080 ' February 1992, page 200. diff --git a/bwbtest/B15B/gflash.run b/bwbtest/B15B/gflash.run deleted file mode 100644 index a52057f..0000000 --- a/bwbtest/B15B/gflash.run +++ /dev/null @@ -1,25 +0,0 @@ -Height of observer in feet? 15000 -Zenith dist. of occulting edge (deg)? 89 -Aerosol extinction (mag/air mass)? 0.9 -Occult bottom (B) or top (T) of Sun? B - - Time x y V mag. Color - 0.00 0.70 0.30 13.5 Violet - 0.11 0.70 0.30 13.9 Violet - 0.22 0.70 0.30 14.3 Violet - 0.33 0.69 0.31 14.9 Violet - 0.44 0.67 0.33 15.6 Violet - 0.55 0.61 0.39 16.7 Red - 0.66 0.58 0.41 17.6 Red - 0.76 0.48 0.51 19.1 Red - 0.87 0.29 0.69 20.3 Orange - 0.98 0.29 0.68 21.4 Orange - 1.09 0.13 0.59 24.6 Yellow - 1.20 0.02 0.51 25.8 Yellow - 1.31 0.02 0.50 26.6 Yellow - 1.42 0.04 0.44 28.0 Green - 1.53 0.16 0.02 33.6 Blue - 1.64 0.16 0.02 34.0 Blue - 1.75 0.16 0.02 34.5 Blue - 1.86 0.16 0.02 35.3 Blue - 1.97 0.16 0.02 36.9 Blue diff --git a/bwbtest/B15B/glob1.INP b/bwbtest/B15B/glob1.INP deleted file mode 100644 index d4ea418..0000000 --- a/bwbtest/B15B/glob1.INP +++ /dev/null @@ -1,7 +0,0 @@ -1 -ABC -7 -2 -156 -123 -N diff --git a/bwbtest/B15B/glob1.bas b/bwbtest/B15B/glob1.bas deleted file mode 100644 index 7ddad90..0000000 --- a/bwbtest/B15B/glob1.bas +++ /dev/null @@ -1,39 +0,0 @@ -10 REM GLOBULAR CLUSTER PLOT -12 REM -14 R1=3.14159265/180 -16 M0=+0.6: REM RR LYRAE STARS -18 GOSUB 66 -20 PRINT -22 INPUT "NAME ";N$ -24 INPUT "APPAR. MAG. (H.B.)";M1 -26 INPUT "VISUAL EXTINCTION ";M2 -28 D=10^(.2*(M1-M2-M0)-2) -30 D=D*3262: REM LIGHT-YEARS -32 INPUT "LONGITUDE";L -34 INPUT "LATITUDE ";B -36 L=L*R1: B=B*R1 -38 PRINT -40 PRINT "DISTANCE = ";D -42 IF S>2 THEN 50 -44 X=D*COS(L)*COS(B) -46 PRINT " X = ";X -48 IF S<2 THEN 56 -50 Y=D*SIN(L)*COS(B) -52 PRINT " Y = ";Y -54 IF S=2 THEN 60 -56 Z=D*SIN(B) -58 PRINT " Z + ";Z -60 INPUT "ANOTHER (Y OR N) ";Q$ -62 IF Q$<>"N" THEN 20 -64 END -66 PRINT "(1) X-Z EDGE-ON VIEW" -68 PRINT "(2) X-Y FACE-ON VIEW" -70 PRINT "(3) Y-Z EDGE-ON VIEW" -72 PRINT -74 INPUT "YOUR SELECTION ";S -76 RETURN -80 REM ------------------------ -82 REM APPEARED IN ASTRONOMICAL -84 REM COMPUTING, SKY & TELE- -86 REM SCOPE, DECEMBER, 1984 -88 REM ------------------------ diff --git a/bwbtest/B15B/glob1.run b/bwbtest/B15B/glob1.run deleted file mode 100644 index 3a67035..0000000 --- a/bwbtest/B15B/glob1.run +++ /dev/null @@ -1,16 +0,0 @@ -(1) X-Z EDGE-ON VIEW -(2) X-Y FACE-ON VIEW -(3) Y-Z EDGE-ON VIEW - -YOUR SELECTION ? 1 - -NAME ? ABC -APPAR. MAG. (H.B.)? 7 -VISUAL EXTINCTION ? 2 -LONGITUDE? 156 -LATITUDE ? 123 - -DISTANCE = 247.448 - X = 123.118 - Z + 207.527 -ANOTHER (Y OR N) ? N diff --git a/bwbtest/B15B/gmst.INP b/bwbtest/B15B/gmst.INP deleted file mode 100644 index 0405193..0000000 --- a/bwbtest/B15B/gmst.INP +++ /dev/null @@ -1 +0,0 @@ -6,7 diff --git a/bwbtest/B15B/gmst.bas b/bwbtest/B15B/gmst.bas deleted file mode 100644 index fd36ac8..0000000 --- a/bwbtest/B15B/gmst.bas +++ /dev/null @@ -1,25 +0,0 @@ -700 REM GREENWICH MEAN -702 REM SIDEREAL TIME -704 REM -706 INPUT "J,F ";J,F -708 D=J-2451545 -710 T=D/36525: T1=INT(T) -712 J0=T1*36525+2451545 -714 T2=(J-J0+0.5)/36525 -716 S=24110.54841+184.812866*T1 -718 S=S+8640184.812866*T2 -720 S=S+0.093104*T*T -722 S=S-0.0000062*T*T*T -724 S=S/86400: S=S-INT(S) -726 S=24*(S+(F-0.5)*1.002737909) -728 IF S<0 THEN S=S+24 -730 IF S>24 THEN S=S-24 -732 H=INT(S): M1=60*(S-H) -734 M=INT(M1): S=60*(M1-M) -736 PRINT "GMST: ";H;M;S -738 END -740 REM ------------------------ -745 REM APPERAED IN ASTRONOMICAL -750 REM COMPUTING, SKY & TELE- -755 REM SCOPE. JUNE, 1984 -760 REM ------------------------ diff --git a/bwbtest/B15B/gmst.run b/bwbtest/B15B/gmst.run deleted file mode 100644 index 7565568..0000000 --- a/bwbtest/B15B/gmst.run +++ /dev/null @@ -1,2 +0,0 @@ -J,F ? 6,7 -GMST: 137 4 37.6587 diff --git a/bwbtest/B15B/gwmonth.INP b/bwbtest/B15B/gwmonth.INP deleted file mode 100644 index 00750ed..0000000 --- a/bwbtest/B15B/gwmonth.INP +++ /dev/null @@ -1 +0,0 @@ -3 diff --git a/bwbtest/B15B/gwmonth.bas b/bwbtest/B15B/gwmonth.bas deleted file mode 100644 index a8a27d4..0000000 --- a/bwbtest/B15B/gwmonth.bas +++ /dev/null @@ -1,12 +0,0 @@ -10 REM NAME OF MONTH -20 REM -25 DIM A$(150) -27 DIM M$(25) -30 LET A$="320125799653785534469788JANUARYFEBRUARYMARCHAPRILMAYJUNEJULYAUGUSTSEPTEMBEROCTOBERNOVEMBERDECEMBER" -40 INPUT A -50 LET M$=MID$(A$,(A*6+22-VAL(MID$(A$,A,1))),VAL(MID$(A$,A+12,1))) -60 PRINT M$ -70 REM *********************************** -80 REM APPEARED IN ASTRONOMICAL COMPUTING -90 REM SKY & TELESCOPE, OCTOBER 1984 ISSUE -100 REM ********************************** diff --git a/bwbtest/B15B/gwmonth.run b/bwbtest/B15B/gwmonth.run deleted file mode 100644 index 96fcf51..0000000 --- a/bwbtest/B15B/gwmonth.run +++ /dev/null @@ -1,2 +0,0 @@ -? 3 -MARCH diff --git a/bwbtest/B15B/interp.INP b/bwbtest/B15B/interp.INP deleted file mode 100644 index 86755a2..0000000 --- a/bwbtest/B15B/interp.INP +++ /dev/null @@ -1,7 +0,0 @@ -3 -1,6 -2,8 -3,10 -1.5 -2.5 -X diff --git a/bwbtest/B15B/interp.bas b/bwbtest/B15B/interp.bas deleted file mode 100644 index f465bf9..0000000 --- a/bwbtest/B15B/interp.bas +++ /dev/null @@ -1,39 +0,0 @@ -10 REM LAGRANGE INTERPOLATION -12 REM -14 INPUT "HOW MANY POINTS";N -16 PRINT -18 DIM X(N),F(N),L(N) -20 FOR I=1 TO N -22 INPUT "X,F";X(I),F(I) -24 NEXT I -26 FOR I=1 TO N: L(I)=1 -28 FOR J=1 TO N -30 IF J=I THEN 34 -32 L(I)=L(I)*(X(I)-X(J)) -34 NEXT J -36 L(I)=F(I)/L(I) -38 NEXT I -40 PRINT -42 INPUT "DESIRED X";X$ -44 IF X$="X" THEN 78 -48 X=VAL(X$): F1=0 -50 FOR I=1 TO N -52 IF X<>X(I) THEN 56 -54 F=F(I): F1=1 -56 NEXT I -58 IF F1=1 THEN 74 -60 T=1: F=0 -62 FOR I=1 TO N -64 T=T*(X-X(I)) -66 NEXT I -68 FOR I=1 TO N -70 F=F+L(I)*T/(X-X(I)) -72 NEXT I -74 PRINT "F: ";F -76 PRINT: GOTO 42 -78 END -80 REM ------------------------ -85 REM APPEARED IN ASTRONOMICAL -90 REM COMPUTING, SKY & TELE- -95 REM SCOPE, APRIL, 1984 -99 REM ------------------------ diff --git a/bwbtest/B15B/interp.run b/bwbtest/B15B/interp.run deleted file mode 100644 index f624977..0000000 --- a/bwbtest/B15B/interp.run +++ /dev/null @@ -1,13 +0,0 @@ -HOW MANY POINTS? 3 - -X,F? 1,6 -X,F? 2,8 -X,F? 3,10 - -DESIRED X? 1.5 -F: 7 - -DESIRED X? 2.5 -F: 9 - -DESIRED X? X diff --git a/bwbtest/B15B/jdcal.INP b/bwbtest/B15B/jdcal.INP deleted file mode 100644 index c09b760..0000000 --- a/bwbtest/B15B/jdcal.INP +++ /dev/null @@ -1,2 +0,0 @@ -6,9 -1 diff --git a/bwbtest/B15B/jdcal.bas b/bwbtest/B15B/jdcal.bas deleted file mode 100644 index e5c8144..0000000 --- a/bwbtest/B15B/jdcal.bas +++ /dev/null @@ -1,26 +0,0 @@ -900 REM JD --> CALENDAR -905 REM -910 INPUT "J,F ";J,F -915 INPUT "JC (0) OR GC (1) ";G -920 F=F+0.5 -925 IF F<1 THEN 935 -930 F=F-1: J=J+1 -935 IF G=1 THEN 945 -940 A=J: GOTO 955 -945 A1=INT((J/36524.25)-51.12264) -950 A=J+1+A1-INT(A1/4) -955 B=A+1524 -960 C=INT((B/365.25)-0.3343) -965 D=INT(365.25*C) -970 E=INT((B-D)/30.61) -975 D=B-D-INT(30.61*E)+F -980 M=E-1: Y=C-4716 -985 IF E>13.5 THEN M=M-12 -990 IF M<2.5 THEN Y=Y+1 -995 PRINT "DATE: ";Y;M;D -997 END -1000 REM ------------------------ -1001 REM APPEARED IN ASTRONOMICAL -1002 REM COMPUTING, SKY & TELE- -1003 REM SCOPE, MAY, 1984 -1004 REM ------------------------ diff --git a/bwbtest/B15B/jdcal.run b/bwbtest/B15B/jdcal.run deleted file mode 100644 index 792d70a..0000000 --- a/bwbtest/B15B/jdcal.run +++ /dev/null @@ -1,3 +0,0 @@ -J,F ? 6,9 -JC (0) OR GC (1) ? 1 -DATE: -4713 12 9.5 diff --git a/bwbtest/B15B/jmerid.INP b/bwbtest/B15B/jmerid.INP deleted file mode 100644 index 8df3b33..0000000 --- a/bwbtest/B15B/jmerid.INP +++ /dev/null @@ -1,2 +0,0 @@ -2015,03,01 -12,34,56 diff --git a/bwbtest/B15B/jmerid.bas b/bwbtest/B15B/jmerid.bas deleted file mode 100644 index 5f201ea..0000000 --- a/bwbtest/B15B/jmerid.bas +++ /dev/null @@ -1,129 +0,0 @@ -100 REM JUPITER'S CENTRAL MERIDIAN -105 REM -110 DT=57: REM Value of ET-UT (sec) -111 REM in 1990; change DT for -112 REM other years as needed!! -115 P1=3.14159265 -120 P2=2*P1: RD=180/P1: DR=1/RD -125 GOSUB 330: REM Get date and UT -130 D=(J-2451545)+F -135 D=D+DT/86400: REM UT to ET -140 GOSUB 405 -145 READ A1,A2,D1,D2 -150 T=T-1: REM Cent from 2000.0 -155 A1=A1+A2*T -160 D1=D1+D2*T -165 Q=A1: GOSUB 710: A1=Q*DR -170 Q=D1: GOSUB 710: D1=Q*DR -175 D9=COS(D5)*SIN(A1-A5) -180 N9=SIN(D1)*COS(D5)*COS(A1-A5) -185 N9=N9-COS(D1)*SIN(D5) -190 K=RD*ATN(N9/D9) -195 IF D9<0 THEN K=K+180 -200 REM -205 READ W0,W1,W2: REM System I -210 GOSUB 245 -215 PRINT "C-MERID (I): ";C -220 REM -225 READ W0,W1,W2: REM System II -230 GOSUB 245 -235 PRINT "C-MERID (II): ";C -240 END -245 REM Rotations from epoch -250 W=W0+W1*(D-.0057755*RR)+W2*T -255 Q=W-K: GOSUB 710: C=Q -260 C=INT(100*C+.5)/100 -265 RETURN -275 REM North Pole R.A. -280 DATA 268.05, +0.107 -285 REM North Pole Dec. -290 DATA 64.49, -0.015 -295 REM System I -300 DATA 67.10, 877.9000, 1.291 -305 REM System II -310 DATA 43.30, 870.2700, 1.291 -315 REM -320 REM Calendar --> JD -325 REM -330 INPUT "YR,MO,DAY ";Y,M,D -335 INPUT "UT (H,M,S) ";H1,M1,S1 -340 D=D+H1/24+M1/1440+S1/86400 -345 G=1: IF Y<1582 THEN G=0 -350 D1=INT(D): F=D-D1-.5 -355 J=-INT(7*(INT((M+9)/12)+Y)/4) -360 IF G=0 THEN 380 -365 S=SGN(M-9): A=ABS(M-9) -370 J3=INT(Y+S*INT(A/7)) -375 J3=-INT((INT(J3/100)+1)*3/4) -380 J=J+INT(275*M/9)+D1+G*J3 -385 J=J+1721027+2*G+367*Y -390 IF F>=0 THEN 400 -395 F=F+1: J=J-1 -400 RETURN -405 REM Fundamental Arguments -410 REM -415 T=D/36525+1 -420 REM T=Centuries from 1900.0 -425 L0=.779072+.00273790931*D -430 G0=.993126+.0027377785*D -435 L5=.089608+.00023080893*D -440 G5=.056531+.00023080893*D -445 G6=.882987+.00009294371*D -450 L0=(L0-INT(L0))*P2 -455 G0=(G0-INT(G0))*P2 -460 L5=(L5-INT(L5))*P2 -465 G5=(G5-INT(G5))*P2 -470 G6=(G6-INT(G6))*P2 -475 REM Sun -480 L=6910*SIN(G0) -485 L=L+72*SIN(2*G0) -490 L=L-17*T*SIN(G0) -495 L=L-7*COS(G0-G5) -500 R=1.00014-.01675*COS(G0) -505 R=R-.00014*COS(2*G0) -510 L=L0+L/206265 -515 REM Jupiter -520 J=19934*SIN(G5) -525 J=J+5023*T+2511 -530 J=J+1093*COS(2*G5-5*G6) -535 J=J+601*SIN(2*G5) -540 J=J-479*SIN(2*G5-5*G6) -545 J=J-185*SIN(2*G5-2*G6) -550 J=J+137*SIN(3*G5-5*G6) -555 J=J-131*SIN(G5-2*G6) -560 B=-4692*COS(G5) -565 B=B+259*SIN(G5) -570 B=B+227-227*COS(2*G5) -575 B=B+30*T*SIN(G5) -580 R5=5.20883-.25122*COS(G5) -585 R5=R5-.00604*COS(2*G5) -590 R5=R5+.0026*COS(2*G5-2*G6) -595 R5=R5-.0017*COS(3*G5-5*G6) -600 R5=R5-.00106*SIN(2*G5-2*G6) -605 R5=R5-.00091*T*SIN(G5) -610 R5=R5-.00084*T*COS(G5) -615 L5=L5+J/206265: B5=B/206265 -620 N9=R5*COS(B5)*SIN(L5-L) -625 D9=R5*COS(B5)*COS(L5-L)+R -630 L1=ATN(N9/D9) -635 IF D9<0 THEN L1=L1+P1 -640 LL=L1+L -645 V=N9*N9+D9*D9 -650 RR=SQR(V+(R5*SIN(B5))^2) -655 S=R5*SIN(B5)/RR -660 BB=ATN(S/SQR(1-S*S)) -665 E=(84428-47*T)/206265 -670 N9=SIN(LL)*COS(E)-TAN(BB)*SIN(E) -675 D9=COS(LL): A5=ATN(N9/D9) -680 IF D9<0 THEN A5=A5+P1 -685 S=SIN(BB)*COS(E) -690 S=S+COS(BB)*SIN(E)*SIN(LL) -695 D5=ATN(S/SQR(1-S*S)) -700 RETURN -705 REM -710 REM Normalize Degrees -715 Q=Q/360: Q=Q-INT(Q): Q=Q*360 -720 RETURN -800 REM This program computes the longtude of Jupiter's central -810 REM meridian for any date and time. From SKY & TELESCOPE -820 REM magazine for December, 1989, page 641. diff --git a/bwbtest/B15B/jmerid.run b/bwbtest/B15B/jmerid.run deleted file mode 100644 index 0027e4a..0000000 --- a/bwbtest/B15B/jmerid.run +++ /dev/null @@ -1,4 +0,0 @@ -YR,MO,DAY ? 2015,03,01 -UT (H,M,S) ? 12,34,56 -C-MERID (I): 120.42 -C-MERID (II): 321.68 diff --git a/bwbtest/B15B/kepler.INP b/bwbtest/B15B/kepler.INP deleted file mode 100644 index 81cf0ad..0000000 --- a/bwbtest/B15B/kepler.INP +++ /dev/null @@ -1,3 +0,0 @@ -4567890 -0.89 -1,2 diff --git a/bwbtest/B15B/kepler.bas b/bwbtest/B15B/kepler.bas deleted file mode 100644 index 944016e..0000000 --- a/bwbtest/B15B/kepler.bas +++ /dev/null @@ -1,129 +0,0 @@ -10 REM KEPLER'S EQUATION -20 REM -30 P1=PI : D7=P1/180 : R1=1/D7 -40 K=.01720209895 -50 GOSUB 1060 -60 REM -70 PRINT "PERIHELION DISTANCE Q: "; : INPUT Q -90 PRINT "ECCENTRICITY "; : INPUT E0 -92 PRINT "STARTING AND ENDING T "; : INPUT T7,T8 -95 FOR T=T7 TO T8 STEP .1 -100 A1=Q/(1-E0) : IF A1<0 THEN M=0 : GO TO 120 -110 N0=K*A1^(-1.5) : M=N0*T -120 PRINT "MEAN ANOMALY IS ";M*R1;" DEGREES" -122 PRINT : PRINT -123 PRINT "METHOD I V R" -124 PRINT -130 IF A1<0 THEN 205 -140 IF E0>.99 THEN 170 -150 PRINT "SIMPLE "; -160 GOSUB 490 : GOSUB 400 -170 PRINT "ENCKE "; -180 GOSUB 560 : GOSUB 400 -190 PRINT "BINARY "; -200 GOSUB 260 : GOSUB 400 -205 REM -210 PRINT "HERRICK "; -220 GOSUB 640 : GOSUB 440 -230 PRINT "GAUSS "; -240 GOSUB 850 : GOSUB 440 -245 NEXT T -250 GO TO 2000 -260 REM BINARY METHOD -270 REM -280 F=SGN(M) : M=ABS(M)/(2*P1) : M=(M-INT(M))*2*P1*F -290 IF M<0 THEN M=M+2*P1 -300 F=1 : IF M>P1 THEN M=2*P1-M : F=-1 -310 E=P1/2 : D=P1/4 -320 FOR I1=1 TO 47 -330 M1=E-E0*SIN(E) -340 E=E+SGN(M-M1)*D : D=D/2 -350 E1=E -360 NEXT I1 -370 E=E*F : I=I1-1 -380 RETURN -390 REM -400 REM TRUE ANOMALY FROM ECCENTRIC ANOMALY -410 REM -420 V=2*ATN(SQR((1+E0)/(1-E0))*SIN(E/2)/COS(E/2)) -430 R=A1*(1-E0*COS(E)) -440 PRINT USING " #### ###.###### ##.#######";I;V*R1;R -470 RETURN -480 REM -490 REM SIMPLE ITERATION -500 REM -510 E=M : I=0 -520 E1=M+E0*SIN(E) : I=I+1 -530 IF ABS(E-E1)>1.0000000000000E-10 THEN E=E1 : GO TO 520 -540 RETURN -550 REM -560 REM ENCKE ITERATION -570 REM -580 E=M : I=0 -590 E1=E+(M+E0*SIN(E)-E)/(1-E0*COS(E)) : I=I+1 -600 IF ABS(E-E1)>1.0000000000000E-10 THEN E=E1 : GO TO 590 -610 RETURN -620 REM -640 REM HERRICK'S METHOD -650 REM -660 REM ENTER WITH T,E0,Q -670 REM EXIT WITH TRUE ANOMALY -680 REM -682 I=0 -690 P=Q*(1+E0) -700 C=K*(1+E0)*(1+E0)/(2*P^1.5) -710 X=SGN(T) : REM ASSUME V +90 OR -90 TO START -720 L=(1-E0)/(1+E0) -730 D2=C*(1+L*X*X)/(1+X*X) -740 C2=X/(1+L*X*X) : K1=X*X*X/(1+E0) -750 C2=C2+K1*(1/(1+L*X*X)-1/3) -760 N=0 : S=-1 -770 N=N+1 -775 I=I+1 -780 S=-S -790 F=K1*S*(L*X*X)^N/(2*N+3) -800 C2=C2+F : IF ABS(F)>1.0000000000000E-12 THEN 770 -810 D3=T-C2/C : IF ABS(D3)<1.0000000000000E-10 THEN 830 -820 X=X+D2*D3 : GO TO 730 -830 V=2*ATN(X) : R=Q*(1+E0)/(1+E0*COS(V)) -840 RETURN -850 REM GAUSS METHOD -860 REM -870 REM ENTER WITH T,E0,Q; EXIT WITH V,R -880 REM -882 I=0 -890 A=SQR((1+9*E0)/10) : B=5*(1-E0)/(1+9*E0) -900 C=SQR(5*(1+E0)/(1+9*E0)) -910 B1=3*A*K*T/SQR(2*Q*Q*Q) -920 B2=1 : REM INITIAL ASSUMPTION -930 W1=B2*B1 -940 B3=ATN(2/W1) : T1=SIN(B3/2)/COS(B3/2) -950 S1=SGN(T1) : T1=ABS(T1) : T2=T1^(1/3)*S1 -960 G=ATN(T2) : S=2/(SIN(2*G)/COS(2*G)) -970 A2=B*S*S -980 B0=B2 : B2=0 -982 FOR J=0 TO 7 : B2=B2+B(J)*A2^J : NEXT J -984 I=I+1 -990 IF ABS(B2-B0)>1.0000000000000E-13 THEN 930 -1000 C1=0 : FOR J=0 TO 7 : C1=C1+G(J)*A2^J : NEXT J -1010 V1=C*C1*S -1020 D1=1/(1+A2*C1*C1) : R=Q*D1*(1+V1*V1) -1030 V=2*ATN(V1) -1040 RETURN -1050 REM -1060 REM COEFFICIENTS -1080 FOR J=0 TO 7 : READ B(J) : NEXT J -1090 FOR J=0 TO 7 : READ G(J) : NEXT J -1100 FOR J=0 TO 7 : READ S(J) : NEXT J -1110 RETURN -1120 DATA 1,0,-0.017142857,-0.003809524,-0.001104267 -1130 DATA -0.000367358,-0.000131675,-0.000049577 -1140 DATA 1,0.4,0.21714286,0.12495238,0.07339814 -1150 DATA 0.04351610,0.02592289,0.01548368 -1160 DATA 1,-0.8,0.04571429,0.01523810,0.00562820 -1170 DATA 0.00218783,0.00087905,0.00036155 -2000 END -2010 REM ------------------------------------------ -2020 REM APPEARED IN ASTRONOMICAL COMPUTING, SKY & -2030 REM TELESCOPE, AUGUST, 1985 -2040 REM ------------------------------------------ diff --git a/bwbtest/B15B/kepler.run b/bwbtest/B15B/kepler.run deleted file mode 100644 index 800b79e..0000000 --- a/bwbtest/B15B/kepler.run +++ /dev/null @@ -1,103 +0,0 @@ -PERIHELION DISTANCE Q: ? 4567890 -ECCENTRICITY ? 0.89 -STARTING AND ENDING T ? 1,2 -MEAN ANOMALY IS 3.68315E-12 DEGREES - - -METHOD I V R - -SIMPLE 1 0.000000 4567890.0000000 -ENCKE 1 0.000000 4567890.0000000 -BINARY 47 0.000000 4567890.0000000 -HERRICK 19 0.000000 4567890.0000000 -GAUSS 1 0.000000 4567890.0000000 -MEAN ANOMALY IS 4.05147E-12 DEGREES - - -METHOD I V R - -SIMPLE 1 0.000000 4567890.0000000 -ENCKE 1 0.000000 4567890.0000000 -BINARY 47 0.000000 4567890.0000000 -HERRICK 19 0.000000 4567890.0000000 -GAUSS 1 0.000000 4567890.0000000 -MEAN ANOMALY IS 4.41978E-12 DEGREES - - -METHOD I V R - -SIMPLE 1 0.000000 4567890.0000000 -ENCKE 1 0.000000 4567890.0000000 -BINARY 47 0.000000 4567890.0000000 -HERRICK 19 0.000000 4567890.0000000 -GAUSS 1 0.000000 4567890.0000000 -MEAN ANOMALY IS 4.7881E-12 DEGREES - - -METHOD I V R - -SIMPLE 1 0.000000 4567890.0000000 -ENCKE 1 0.000000 4567890.0000000 -BINARY 47 0.000000 4567890.0000000 -HERRICK 19 0.000000 4567890.0000000 -GAUSS 1 0.000000 4567890.0000000 -MEAN ANOMALY IS 5.15641E-12 DEGREES - - -METHOD I V R - -SIMPLE 1 0.000000 4567890.0000000 -ENCKE 1 0.000000 4567890.0000000 -BINARY 47 0.000000 4567890.0000000 -HERRICK 19 0.000000 4567890.0000000 -GAUSS 1 0.000000 4567890.0000000 -MEAN ANOMALY IS 5.52473E-12 DEGREES - - -METHOD I V R - -SIMPLE 1 0.000000 4567890.0000000 -ENCKE 1 0.000000 4567890.0000000 -BINARY 47 0.000000 4567890.0000000 -HERRICK 19 0.000000 4567890.0000000 -GAUSS 1 0.000000 4567890.0000000 -MEAN ANOMALY IS 5.89304E-12 DEGREES - - -METHOD I V R - -SIMPLE 1 0.000000 4567890.0000000 -ENCKE 1 0.000000 4567890.0000000 -BINARY 47 0.000000 4567890.0000000 -HERRICK 19 0.000000 4567890.0000000 -GAUSS 1 0.000000 4567890.0000000 -MEAN ANOMALY IS 6.26136E-12 DEGREES - - -METHOD I V R - -SIMPLE 1 0.000000 4567890.0000000 -ENCKE 1 0.000000 4567890.0000000 -BINARY 47 0.000000 4567890.0000000 -HERRICK 19 0.000000 4567890.0000000 -GAUSS 1 0.000000 4567890.0000000 -MEAN ANOMALY IS 6.62967E-12 DEGREES - - -METHOD I V R - -SIMPLE 1 0.000000 4567890.0000000 -ENCKE 1 0.000000 4567890.0000000 -BINARY 47 0.000000 4567890.0000000 -HERRICK 19 0.000000 4567890.0000000 -GAUSS 1 0.000000 4567890.0000000 -MEAN ANOMALY IS 6.99799E-12 DEGREES - - -METHOD I V R - -SIMPLE 1 0.000000 4567890.0000000 -ENCKE 1 0.000000 4567890.0000000 -BINARY 47 0.000000 4567890.0000000 -HERRICK 19 0.000000 4567890.0000000 -GAUSS 1 0.000000 4567890.0000000 diff --git a/bwbtest/B15B/lens.INP b/bwbtest/B15B/lens.INP deleted file mode 100644 index 82637ec..0000000 --- a/bwbtest/B15B/lens.INP +++ /dev/null @@ -1,3 +0,0 @@ -1,2,3 -4,5,6 -7 diff --git a/bwbtest/B15B/lens.bas b/bwbtest/B15B/lens.bas deleted file mode 100644 index 0e223e0..0000000 --- a/bwbtest/B15B/lens.bas +++ /dev/null @@ -1,35 +0,0 @@ -10 REM APLANATIC DOUBLET DESIGN -12 REM -14 INPUT "FRONT INDEXES";A,B,C -16 INPUT "REAR INDEXES ";D,E,F -18 INPUT "FOCAL LENGTH ";FL -20 PRINT -22 G=B/(B-1): H=E/(E-1) -24 I=(B-1)/(C-A): J=(E-1)/(F-D) -26 K=I^2: L=I^3: M=J^2: N=J^3 -28 O=(3-2/G)*I: P=(3-2/H)*J -30 Q=(3*G-1)*K -32 R=(8-4/H)*I*J-(3*H-1)*M -34 S=(G^2)*L-(5-2/H)*K*J -36 T=(4*H-1)*I*M-(H^2)*N -38 U=(2-1/G)*I: V=(2-1/H)*J -40 W=G*K-(3-1/H)*I*J+H*M -42 X=(U^2)*P-(V^2)*O -44 Y=2*U*W*P-(V^2)*Q+U*V*R -46 Z=(W^2)*P-(V^2)*(S+T)+V*W*R -48 A1=(Y-SQR(Y^2-4*X*Z))/(2*X) -50 A2=(U*A1)/V-W/V -52 R1=((I-J)/A1)*FL -54 R2=((I-J)/(A1-(I*(G-1))))*FL -56 R3=((I-J)/A2)*FL -58 R4=((I-J)/(A2+(J*(H-1))))*FL -60 PRINT "R1 = ";R1 -62 PRINT "R2 = ";R2 -64 PRINT "R3 = ";R3 -66 PRINT "R4 = ";R4 -68 END -70 REM ------------------------ -80 REM APPEARED IN ASTRONOMICAL -90 REM COMPUTING, SKY & TELE- -92 REM SCOPE, NOVEMBER, 1984 -94 REM ------------------------ diff --git a/bwbtest/B15B/lens.run b/bwbtest/B15B/lens.run deleted file mode 100644 index 7ab3277..0000000 --- a/bwbtest/B15B/lens.run +++ /dev/null @@ -1,8 +0,0 @@ -FRONT INDEXES? 1,2,3 -REAR INDEXES ? 4,5,6 -FOCAL LENGTH ? 7 - -R1 = -4.27217 -R2 = -5.36326 -R3 = 17.2997 -R4 = 98.1781 diff --git a/bwbtest/B15B/lheight.INP b/bwbtest/B15B/lheight.INP deleted file mode 100644 index 3b767a8..0000000 --- a/bwbtest/B15B/lheight.INP +++ /dev/null @@ -1,10 +0,0 @@ -56789 -4 -123 -145 -167 -189 -154 -165 -9876 -N diff --git a/bwbtest/B15B/lheight.bas b/bwbtest/B15B/lheight.bas deleted file mode 100644 index 7de40ce..0000000 --- a/bwbtest/B15B/lheight.bas +++ /dev/null @@ -1,61 +0,0 @@ -100 REM COMPUTING LUNAR HEIGHTS -110 REM -120 INPUT "HALF-HEIGHT CHORD (MM) ";L1 -130 INPUT "SEGMENT ";L2 -140 PRINT -150 PRINT "USE VALUES IN DEGREES" -160 PRINT -170 INPUT "EARTH SEL. LONG. ";LE -180 INPUT "EARTH SEL. LAT. ";BE -190 INPUT "SUN SEL. COLONG. ";CS -200 INPUT "SUN SEL. LAT. ";BS -210 REM CONVERT DEGREES TO RADIANS -220 DR = 3.14159/180 -230 LS = 90-CS -240 IF LS900 THEN FR=SQR(TH/900) : REM APPEAR EXTENDED -530 FC=10^(0.4*(CI/2-1)) : REM COLOR OF STAR -540 FS=1.0 : REM OBSERVER'S SENSITIVITY -550 REM -560 REM CALCULATE SKY BRIGHTNESS -570 REM -580 IF MZ>=(7-K) THEN 620 : REM -590 XX=0.2*(8.68-K-MZ) : REM FS ASSUMED = 1 -600 BS=39.7*(10^XX-1)^2 : REM SKY BRIGHTNESS FOR MZ -610 GOTO 650 -620 BS=54 : REM BEST POSS. SKY BRIGHT- -630 FS=10^(0.4*(7-K-MZ)) : REM NESS & GOOD EYESIGHT -640 REM -650 BS=BS*(Z*Z*0.5+1) : REM ZENITH HAS DARKEST SKY -660 B=BS/(FB*FT*FPX*FA*FM*FC) : REM BACKGROUND BRIGHTNESS -670 REM IN TELESCOPE -690 REM CALCULATE LIMITING MAGNITUDE -700 REM -710 I=CC*(1+SQR(KK*B))^2 : REM Hecht (JOSA,v37,p59,1947) -720 IS=I*FB*FE*FT*FPX*FA*FR*FC*FS : REM FOR NO SCOPE, NO AIR -730 M=-16.57-2.5*LOG(IS)/LOG(10) : REM INTENSITY TO V MAG -740 M=M+(EX-6)*0.16 : REM EMPIRICAL EXPERIENCE -750 REM CORRECTION -760 PRINT "VISUAL LIMITING MAGNITUDE = ";M -770 END -800 REM -810 REM This program by Bradley Schaefer calculates the -820 REM limiting stellar magnitude an observer can expect -830 REM to see with various types and sizes of telescopes, -840 REM and under various conditions. It is fully discussed -850 REM in SKY & TELESCOPE magazine, November, 1989, page 522. diff --git a/bwbtest/B15B/limmag.run b/bwbtest/B15B/limmag.run deleted file mode 100644 index 69f7a71..0000000 --- a/bwbtest/B15B/limmag.run +++ /dev/null @@ -1,12 +0,0 @@ -SCOPE APERTURE ? 7 -POWER ? 9 -LIM MAG AT ZENITH ? 2 -OBSERVER'S AGE ? 3 -TELESCOPE TYPE (1-3) ? 2 -CLEANLINESS (1-9) ? 8 -COLOR INDEX OF STAR ? 4 -ZENITH DISTANCE ? 56789 -EXTINCTION COEFF ? 1.2 -SEEING DISK RADIUS ? 2.3 -EXPERIENCE (1-9) ? 3 -VISUAL LIMITING MAGNITUDE = 61.4254 diff --git a/bwbtest/B15B/lookback.INP b/bwbtest/B15B/lookback.INP deleted file mode 100644 index 4fe64b8..0000000 --- a/bwbtest/B15B/lookback.INP +++ /dev/null @@ -1,4 +0,0 @@ -A -16 -T -1 diff --git a/bwbtest/B15B/lookback.bas b/bwbtest/B15B/lookback.bas deleted file mode 100644 index 01e2e70..0000000 --- a/bwbtest/B15B/lookback.bas +++ /dev/null @@ -1,48 +0,0 @@ -10 REM LOOKBACK.BAS - Lookback Time -20 REM by Thomas A. Weil -30 RM = 3700 / 2.7-1 -40 INPUT "Will you enter the (A)ge of the universe or the (H)ubble parameter"; AH$ -50 IF AH$ = "H" OR AH$ = "h" GOTO 90 -60 IF AH$ <> "A" AND AH$ <> "a" GOTO 40 -70 INPUT "Enter age of the universe NOW in billions of years"; TN -80 TN = TN * 1E+09: GOTO 110 -90 INPUT "Enter Hubble parameter in km/sec/Mpc"; HN -100 TN = (2 / 3) / (HN / 9.7781E+11) -110 INPUT "Enter (T)ime THEN or (R)edshift of the light we see NOW"; TR$ -120 IF TR$ = "R" OR TR$ = "r" GOTO 190 -130 IF TR$ <> "T" AND TR$ <> "t" GOTO 110 -140 INPUT "Enter age of the universe THEN in billions of years"; TT -150 TT = TT * 1E+09: SC = (TN / TT) ^ (2 / 3): RS = SC - 1: IF RS < RM GOTO 230 -160 SM = RM + 1: TM = TN / (SM ^ 1.5) -170 PRINT : PRINT USING "You can't look back to a time earlier than ####### years"; TM -180 PRINT : GOTO 110 -190 INPUT "Enter redshift value for the light we see NOW"; RS -200 SC = RS + 1: TT = TN / (SC ^ 1.5): IF RS < RM GOTO 230 -210 PRINT : PRINT USING "Redshift value too large; nothing at redshift beyond ##### can be seen"; RM -220 GOTO 160 -230 PRINT : PRINT USING "Age of the universe NOW = ###.#### billion years"; TN / 1E+09 -240 PRINT USING "Age of the universe THEN = ###.#### billion years"; TT / 1E+09 -250 TV = TN - TT -260 PRINT USING "Light travel time = ###.#### billion years"; TV / 1E+09 -270 SC = (TN / TT) ^ (2 / 3) -280 PRINT USING "Scale of the universe NOW versus THEN = ####.###"; SC -290 RS = SC - 1 -300 PRINT USING "Redshift of the light we see NOW = ####.###"; RS -310 DT = 3 * TT * ((TN / TT) ^ (1 / 3) - 1) -320 PRINT USING "Distance of object THEN = ##.### billion light-years"; DT / 1E+09 -330 DN = DT * SC -340 PRINT USING "Distance of object NOW = ##.### billion light-years"; DN / 1E+09 -350 ST = 2 * ((TN / TT) ^ (1 / 3) - 1) -360 PRINT USING "Speed away from us THEN = ##.### x speed of light"; ST -370 SN = 2 * ((TN / TT) ^ (1 / 3) - 1) / (TN / TT) ^ (1 / 3) -380 PRINT USING "Speed away from us NOW = ##.### x speed of light"; SN -390 HT = (2 / 3) / TT * 9.7781E+11 -400 PRINT USING "Hubble parameter THEN = #######.# km/sec/megaparsec"; HT -410 HN = (2 / 3) / TN * 9.7781E+11 -420 PRINT USING "Hubble parameter NOW = #######.# km/sec/megaparsec"; HN -500 REM ======================== -510 REM FROM "ASTRONOMICAL -520 REM COMPUTING," SKY & TELE- -530 REM SCOPE, SEPTEMBER 1997 -540 REM ======================== -550 END diff --git a/bwbtest/B15B/lookback.run b/bwbtest/B15B/lookback.run deleted file mode 100644 index e6beb87..0000000 --- a/bwbtest/B15B/lookback.run +++ /dev/null @@ -1,16 +0,0 @@ -Will you enter the (A)ge of the universe or the (H)ubble parameter? A -Enter age of the universe NOW in billions of years? 16 -Enter (T)ime THEN or (R)edshift of the light we see NOW? T -Enter age of the universe THEN in billions of years? 1 - -Age of the universe NOW = 16.0000 billion years -Age of the universe THEN = 1.0000 billion years -Light travel time = 15.0000 billion years -Scale of the universe NOW versus THEN = 6.350 -Redshift of the light we see NOW = 5.350 -Distance of object THEN = 4.560 billion light-years -Distance of object NOW = 28.951 billion light-years -Speed away from us THEN = 3.040 x speed of light -Speed away from us NOW = 1.206 x speed of light -Hubble parameter THEN = 651.9 km/sec/megaparsec -Hubble parameter NOW = 40.7 km/sec/megaparsec diff --git a/bwbtest/B15B/lookbak2.INP b/bwbtest/B15B/lookbak2.INP deleted file mode 100644 index c6b87a7..0000000 --- a/bwbtest/B15B/lookbak2.INP +++ /dev/null @@ -1,6 +0,0 @@ -0.1 -0.9 -A -16 -T -1 diff --git a/bwbtest/B15B/lookbak2.bas b/bwbtest/B15B/lookbak2.bas deleted file mode 100644 index 1f4eb39..0000000 --- a/bwbtest/B15B/lookbak2.bas +++ /dev/null @@ -1,123 +0,0 @@ -100 REM LOOKBAK2.BAS - May 2001; Updated Sept. 2003 -110 REM by Thomas A. Weil, taweil@aol.com -112 REM Now handles user-specified values for both OmegaM and OmegaL. -114 REM Includes some code from Ned Wright's Cosmology Calculator, -116 REM http://www.astro.ucla.edu/~wright/CosmoCalc.html -120 INPUT "Enter Matter Density of the universe, OmegaM (0 - 2.0)"; OMG -130 IF OMG<0 OR OMG>2 GOTO 120 -140 INPUT "Enter Cosmological Constant, OmegaL (0. - 1.0)"; LAM -150 IF LAM<0 OR LAM>1 GOTO 140 -160 INPUT "Will you enter (A)ge of the universe or (H)ubble constant"; AH$ -170 IF AH$="H" OR AH$="h" GOTO 210 -180 IF AH$<>"A" AND AH$<>"a" GOTO 160 -190 INPUT "Enter Age of the universe NOW in billions of years"; TN -200 TN=TN*1E+09 : HN=60 : M=8 : GOTO 220 -210 INPUT "Enter Hubble constant in km/sec/Mpc"; HN : M=1 -212 REM N is the number of iterations to be used in each FOR-NEXT. -214 REM Ned Wright's Cosmology Calculator uses N=1000, but N=200 -216 REM is faster and still seems to be quite accurate. -218 REM HFAC converts the Hubble constant to units of km/sec/Mpc from speed -219 REM as a fraction of the speed of light per light year of distance. -220 N=200 : DELTA=.0000001 : HFAC=9.7782E+11 : E=2.718282 : PARSEC=3.2616 -222 REM For user-specified TN, we now calculate HN, but since ORDX depends -224 REM on HN, we need to iterate AgeFac until the results converge. -226 REM AgeFac is the factor to multiply the inverse of the Hubble -228 REM constant by to determine the age of the universe. -230 FOR J=1 TO M -232 REM OMC is Omega(Curvature); OMC=0 gives us a "flat" universe. -234 REM ORDX is Omega(Radiation), which is radiation pressure, which was a -236 REM major contributor to expansion when the universe was very young. -240 ORDX=.4165/(HN*HN) : OMC=1-OMG-LAM-ORDX : Z=5 : AZ=1/(1+Z) : AA=0 -242 REM Calc. age at redshift Z, and lookback time, and add them to get Age -244 REM Now (TN). For this calculation we assume Z=5, but any value would do. -250 TRS=0 : TLB=0 : FOR I=1 TO N : A=AZ*(I-.5)/N : AA=AZ+(1-AZ)*(I-.5)/N -260 TRS=TRS+1/SQR(OMC+(OMG/A)+(ORDX/(A*A))+(LAM*A*A)) -270 TLB=TLB+1/SQR(OMC+(OMG/AA)+(ORDX/(AA*AA))+(LAM*AA*AA)) : NEXT I -280 AGEFAC=TLB/N*(1-AZ)+TRS/N*AZ -290 IF AH$="H" OR AH$="h" GOTO 310 -300 HN=AGEFAC/TN*HFAC -310 NEXT J -320 TN=AGEFAC/HN*HFAC -330 INPUT "Will you enter (T)ime THEN or (R)edshift of the light we see NOW"; TR$ -340 IF TR$="R" OR TR$="r" GOTO 470 -350 IF TR$<>"T" AND TR$<>"t" GOTO 330 -360 INPUT "Enter Age of the universe THEN, in billions of years"; TTT -370 TTT=TTT*1E+09 : IF TTT>299999 GOTO 410 -380 PRINT -390 PRINT " You cannot see back to a time earlier than about 300,000 years" -392 REM My first article in S&T, Sept. 1997, page 59, explains why. -400 PRINT : GOTO 330 -410 PRINT " Finding what redshift matches Age THEN ......" : Z=(TN-TTT)/TN -420 AZ=1/(1+Z) : TRS=0 : FOR I=1 TO N : A=AZ*(I-.5)/N -430 TRS=TRS+1/SQR(OMC+OMG/A+ORDX/(A*A)+LAM*A*A) : NEXT I -440 TT=TRS/N*HFAC/HN*AZ : TOL=TOL+DELTA -450 IF TT/TTT>1-TOL AND TT/TTT<1+TOL GOTO 480 -452 REM If Time Then (TT) doesn't match yet, adjust Z accordingly -460 Z=Z*(.2+.8*TT/TTT) : GOTO 420 -470 INPUT "Enter redshift value for the light we see NOW"; Z -472 REM Calculate Distances -480 DCMR=0 : AZ=1/(1+Z) : FOR I=1 TO N -490 A=AZ+(1-AZ)*(I-.5)/N : ADOT=SQR(OMC+(OMG/A)+(ORDX/(A*A))+(LAM*A*A)) -500 DCMR=DCMR+1/(A*ADOT) : NEXT I -510 DCMR=(1-AZ)*DCMR/N : X=SQR(ABS(OMC))*DCMR : IF X<=.1 GOTO 550 -520 IF OMC>0 GOTO 540 -530 RATIO=SIN(X)/X : GOTO 580 -540 RATIO=.5*(E^X-E^(-X))/X : GOTO 580 -550 Y=X*X : IF OMC>=0 GOTO 570 -560 Y=(-Y) -570 RATIO=1+Y/6+Y*Y/120 -580 DL=AZ*RATIO*DCMR/(AZ*AZ)*977.82/HN : DN=DL/(1+Z) : DT=DN/(1+Z) -582 REM Calculate Time Then (TT) at redshift Z -590 AZ=1/(1+Z) : AGE=0 : FOR I=1 TO N -600 A=AZ*(I-.5)/N : AGE=AGE+1/SQR(OMC+OMG/A+ORDX/(A*A)+LAM*A*A) : NEXT I -610 TT=HFAC/HN*AZ*AGE/N : TV=TN-TT : DMOD=5*.4343*LOG(DL*1E+09/(10*PARSEC)) -620 IF TT<300000 GOTO 380 -630 HT=HN*SQR(OMG*(1+Z)^3+(1-OMG-LAM-ORDX)*(1+Z)^2+LAM+ORDX*(1+Z)^4) -640 ST=HT*DT/977.82 : SC=Z+1 : SN=HN*DN*1E+09/HFAC -650 PRINT USING "Age Factor NOW (Age=Fac/H0) = ##.####";AGEFAC -660 PRINT USING "Age of the universe NOW =####.#### billion years"; TN/1E+09 -670 PRINT USING "Age of the universe THEN =####.#### billion years"; TT/1E+09 -680 PRINT USING "Light travel time =####.#### billion years"; TV/1E+09 -690 PRINT USING "Redshift of the light we see NOW =#####.###"; Z -700 PRINT USING "Scale of the universe NOW versus THEN =#####.###"; SC -710 PRINT USING "Distance of object THEN = #####.### billion light-years"; DT -720 PRINT USING "Distance of object NOW = ######.### billion light-years"; DN -730 PRINT USING "Luminosity Distance NOW =#######.### billion light-years"; DL -740 PRINT USING "Distance Modulus = ######.###"; DMOD -750 PRINT USING "Speed away from us THEN =####.### x speed of light*"; ST -760 PRINT USING "Speed away from us NOW =####.### x speed of light*"; SN -770 PRINT USING "Hubble constant THEN =########.## km/sec/megaparsec"; HT -780 PRINT USING "Hubble constant NOW =########.## km/sec/megaparsec"; HN -790 PRINT " * Not the object's own speed, but caused by the expansion of space." -800 END -900 REM --------------------------- -910 REM APPEARED IN COMPUTERS IN ASTRONOMY, -920 REM SKY & TELESCOPE, AUGUST 2001, PAGE 62. -930 REM Corrections made Sept. 2003 to lines 232, 550, and 630, with -932 REM many thanks to Bruce Nelson, a great mathematician whose hobby -934 REM is cosmology and who decided to re-derive all these equations! -936 REM The updates give smoother results when OMC is small and more -938 REM accurate results for HT and ST for very large values of Z. -940 REM --------------------------- -950 REM ** SAMPLE RUN, for OmegaM=.35, OmegaL=.65, H0=61, and Z=1.7 ** -960 REM Enter Matter Density of the Universe, OmegaM (0 - 2.0)? .35 -970 REM Enter Cosmological Constant, OmegaL (0. - 1.0)? .65 -980 REM Will you enter (A)ge of the universe or (H)ubble constant? H -990 REM Enter Hubble constant in km/sec/Mpc? 61 -1000 REM Will you enter (T)ime THEN or (R)edshift of the light we see NOW? R -1010 REM Enter redshift value for the light we see NOW? 1.7 -1020 REM Age Factor NOW (Age=Fac/H0) = 0.9226 -1030 REM Age of the universe NOW = 14.7887 billion years -1040 REM Age of the universe THEN = 4.0054 billion years -1050 REM Light travel time = 10.7833 billion years -1060 REM Redshift of the light we see NOW = 1.700 -1070 REM Scale of the universe NOW versus THEN = 2.700 -1080 REM Distance of object THEN = 6.292 billion light-years -1090 REM Distance of object NOW = 16.987 billion light-years -1100 REM Luminosity Distance NOW = 45.865 billion light-years -1110 REM Distance Modulus = 45.741 -1120 REM Speed away from us THEN = 1.078 x speed of light* -1130 REM Speed away from us NOW = 1.060 x speed of light* -1140 REM Hubble constant THEN = 167.55 km/sec/megaparsec -1150 REM Hubble constant NOW = 61.00 km/sec/megaparsec -1160 REM * Not the object's own speed, but caused by the expansion of space. diff --git a/bwbtest/B15B/lookbak2.run b/bwbtest/B15B/lookbak2.run deleted file mode 100644 index 1bdcecf..0000000 --- a/bwbtest/B15B/lookbak2.run +++ /dev/null @@ -1,22 +0,0 @@ -Enter Matter Density of the universe, OmegaM (0 - 2.0)? 0.1 -Enter Cosmological Constant, OmegaL (0. - 1.0)? 0.9 -Will you enter (A)ge of the universe or (H)ubble constant? A -Enter Age of the universe NOW in billions of years? 16 -Will you enter (T)ime THEN or (R)edshift of the light we see NOW? T -Enter Age of the universe THEN, in billions of years? 1 - Finding what redshift matches Age THEN ...... -Age Factor NOW (Age=Fac/H0) = 1.2766 -Age of the universe NOW = 16.0000 billion years -Age of the universe THEN = 1.0000 billion years -Light travel time = 15.0000 billion years -Redshift of the light we see NOW = 7.810 -Scale of the universe NOW versus THEN = 8.810 -Distance of object THEN = 4.235 billion light-years -Distance of object NOW = 37.310 billion light-years -Luminosity Distance NOW = 328.712 billion light-years -Distance Modulus = 50.018 -Speed away from us THEN = 2.821 x speed of light* -Speed away from us NOW = 2.977 x speed of light* -Hubble constant THEN = 651.33 km/sec/megaparsec -Hubble constant NOW = 78.02 km/sec/megaparsec - * Not the object's own speed, but caused by the expansion of space. diff --git a/bwbtest/B15B/lunar.INP b/bwbtest/B15B/lunar.INP deleted file mode 100644 index 9b3c236..0000000 --- a/bwbtest/B15B/lunar.INP +++ /dev/null @@ -1 +0,0 @@ -2015 diff --git a/bwbtest/B15B/lunar.bas b/bwbtest/B15B/lunar.bas deleted file mode 100644 index 036324d..0000000 --- a/bwbtest/B15B/lunar.bas +++ /dev/null @@ -1,122 +0,0 @@ -10 REM NEW AND FULL MOONS -12 REM -14 REM -16 R1=3.14159265/180: U=0 -18 INPUT "YEAR ";Y -19 G=1: IF Y<1583 THEN G=0 -20 PRINT -22 K0=INT((Y-1900)*12.3685) -24 T=(Y-1899.5)/100 -26 T2=T*T: T3=T*T*T -28 J0=2415020+29*K0 -30 F0=0.0001178*T2-0.000000155*T3 -32 F0=F0+0.75933+0.53058868*K0 -34 F0=F0-0.000837*T-0.000335*T2 -36 J0=J0+INT(F0): F0=F0-INT(F0) -38 M0=K0*0.08084821133 -40 M0=360*(M0-INT(M0))+359.2242 -42 M0=M0-0.0000333*T2 -44 M0=M0-0.00000347*T3 -46 M1=K0*0.07171366128 -48 M1=360*(M1-INT(M1))+306.0253 -50 M1=M1+0.0107306*T2 -52 M1=M1+0.00001236*T3 -54 B1=K0*0.08519585128 -56 B1=360*(B1-INT(B1))+21.2964 -58 B1=B1-0.0016528*T2 -60 B1=B1-0.00000239*T3 -62 FOR K9=1 TO 27 STEP 2 -64 J=J0+14*K9: F=F0+0.765294*K9 -66 K=K9/2 -68 M5=(M0+K*29.10535608)*R1 -69 M6=(M1+K*385.81691806)*R1 -70 B6=(B1+K*390.67050646)*R1 -71 F=F-0.4068*SIN(M6) -72 F=F+(0.1734-0.000393*T)*SIN(M5) -73 F=F+0.0161*SIN(2*M6) -74 F=F-0.0104*SIN(2*B6) -75 F=F-0.0074*SIN(M5-M6) -76 F=F-0.0051*SIN(M5+M6) -77 F=F+0.0021*SIN(2*M5) -81 F=F+0.5/1440 -82 J=J+INT(F): F=F-INT(F) -86 GOSUB 100 -92 NEXT -94 GO TO 999 -100 REM LUNAR ECLIPSE SUBROUTINE -102 D7=0 -104 IF ABS(SIN(B6))>0.36 THEN 196 -106 S=5.19595-0.0048*COS(M5) -108 S=S+0.0020*COS(2*M5) -110 S=S-0.3283*COS(M6) -112 S=S-0.0060*COS(M5+M6) -114 S=S+0.0041*COS(M5-M6) -116 C1=0.2070*SIN(M5) -118 C1=C1+0.0024*SIN(2*M5) -120 C1=C1-0.0390*SIN(M6) -122 C1=C1+0.0115*SIN(2*M6) -124 C1=C1-0.0073*SIN(M5+M6) -126 C1=C1-0.0067*SIN(M5-M6) -128 C1=C1+0.0117*SIN(2*B6) -130 D9=ABS(S*SIN(B6)+C1*COS(B6)) -132 U=0.0059+0.0046*COS(M5) -134 U=U-0.0182*COS(M6) -136 U=U+0.0004*COS(2*M6) -138 U=U-0.0005*COS(M5+M6) -140 RP=1.2847+U: RU=0.7404-U -142 MP=(1.5572+U-D9)/0.545 -144 IF MP<0 THEN 196 -146 MU=(1.0129-U-D9)/0.545 -148 D5=1.5572+U: D6=1.0129-U -150 D7=0.4679-U -152 N=(0.5458+0.04*COS(M6))/60 -154 D5=SQR(D5*D5-D9*D9)/N -156 IF MU<=0 THEN 164 -158 D6=SQR(D6*D6-D9*D9)/N -160 IF MU<=1 THEN 164 -162 D7=SQR(D7*D7-D9*D9)/N -164 GOSUB 900: PRINT -166 PRINT "ECLIPSE DATE: ";Y;M;D1 -168 PRINT " MAXIMUM PHASE: "; -170 PRINT H1;"h ";M9;"m UT" -172 MP=INT(1000*MP+0.5)/1000 -174 PRINT " PENUMBRAL MAG: ";MP -176 IF MU<=0 THEN 182 -178 MU=INT(1000*MU+0.5)/1000 -180 PRINT " UMBRAL MAG: ";MU -182 PRINT " SEMIDURATIONS --" -184 D5=INT(D5+0.5): REM ROUND OFF -186 PRINT " PENUMBRA: ";D5;"m" -188 IF MU<0 THEN 196 -190 D6=INT(D6+0.5): D7=INT(D7+0.5) -192 PRINT " UMBRA: ";D6;"m" -194 PRINT " TOTALITY: ";D7;"m" -196 RETURN -900 REM JD --> CALENDAR -905 REM -920 F=F+0.5 -925 IF F<1 THEN 935 -930 F=F-1: J=J+1 -935 IF G=1 THEN 945 -940 A=J: GOTO 955 -945 A1=INT((J/36524.25)-51.12264) -950 A=J+1+A1-INT(A1/4) -955 B=A+1524 -960 C=INT((B/365.25)-0.3343) -965 D=INT(365.25*C) -970 E=INT((B-D)/30.61) -975 D=B-D-INT(30.61*E)+F -980 M=E-1: Y=C-4716 -985 IF E>13.5 THEN M=M-12 -990 IF M<2.5 THEN Y=Y+1 -993 D1=INT(D): H=24*(D-D1) -994 H1=INT(H): M9=INT(60*(H-H1)) -997 RETURN -999 END -1000 REM *********************** -1001 REM THIS IS THE *COMPLETE* -1002 REM PROGRAM FOR PREDICTING -1003 REM LUNAR ECLIPSES (SEE -1004 REM SKY & TELESCOPE, JUNE, -1005 REM 1988, PAGE 640) -1006 REM *********************** diff --git a/bwbtest/B15B/lunar.run b/bwbtest/B15B/lunar.run deleted file mode 100644 index e13c2ab..0000000 --- a/bwbtest/B15B/lunar.run +++ /dev/null @@ -1,20 +0,0 @@ -YEAR ? 2015 - - -ECLIPSE DATE: 2015 4 4 - MAXIMUM PHASE: 12 h 0 m UT - PENUMBRAL MAG: 2.074 - UMBRAL MAG: .994 - SEMIDURATIONS -- - PENUMBRA: 178 m - UMBRA: 104 m - TOTALITY: 0 m - -ECLIPSE DATE: 2015 9 28 - MAXIMUM PHASE: 2 h 46 m UT - PENUMBRAL MAG: 2.228 - UMBRAL MAG: 1.275 - SEMIDURATIONS -- - PENUMBRA: 155 m - UMBRA: 99 m - TOTALITY: 36 m diff --git a/bwbtest/B15B/mallam.INP b/bwbtest/B15B/mallam.INP deleted file mode 100644 index a96b328..0000000 --- a/bwbtest/B15B/mallam.INP +++ /dev/null @@ -1,3 +0,0 @@ -MARS -987 -65 diff --git a/bwbtest/B15B/mallam.bas b/bwbtest/B15B/mallam.bas deleted file mode 100644 index 87fa3a0..0000000 --- a/bwbtest/B15B/mallam.bas +++ /dev/null @@ -1,56 +0,0 @@ -10 REM PRECESSION OF A SATELLITE'S ORBIT DUE TO J2 -20 REM -30 GOSUB 260: J=0 -40 INPUT "Planet's name"; P$ -50 FOR K=1 TO 9 -60 IF P$=PL$(K) THEN J=K -70 NEXT -80 IF J=0 THEN 40 -90 REM -100 INPUT "Altitude of the satellite orbit (km)"; A -110 INPUT "Inclination to the equator (degrees)"; I -120 I=I/RD: REM Convert to radians -130 REM -140 K1=R(J)*R(J) * (R(J)+A)^(-3.5) * SQR(GM(J)) -150 N=-1.5*K1*J2(J)*COS(I) -160 P=.75*K1*J2(J) * (5*COS(I)*COS(I)-1) -170 N=N*RD*S: P=P*RD*S: REM Radians/sec to deg/day -180 REM -190 PRINT "Precession of the node: " -200 PRINT " ";N;"deg/day, ";N*Y;"deg/yr" -210 PRINT -220 PRINT "Precession of pericenter: " -230 PRINT " ";P;"deg/day, ";P*Y;"deg/yr" -240 REM -250 END -260 REM READ IN DATA -270 DIM PL$(9), GM(9), J2(9), R(9) -280 RD=180/3.14159265#: REM Radians to degrees -290 Y=365.2422: REM Days per year -300 S=86400: REM Seconds per day -310 REM -320 DATA "MERCURY","VENUS","EARTH","MOON","MARS" -330 DATA "JUPITER","SATURN","URANUS","NEPTUNE" -340 FOR J=1 TO 9: READ PL$(J): NEXT -350 REM -360 REM PLANETARY GM'S (KM^3/S^2) -370 DATA 22032, 324860, 398600, 4902, 42828 -380 DATA 125680000, 37931000, 5793900, 6835000 -390 FOR J=1 TO 9: READ GM(J): NEXT -400 REM -410 REM PLANETARY J2'S -420 DATA 0.00006, 0.0000186, 0.001083, 0.0002027 -430 DATA 0.00196,0.014736,0.016480,0.003345,0.0043 -440 FOR J=1 TO 9: READ J2(J): NEXT -450 REM -460 REM PLANETARY RADII (KM) -470 DATA 2440, 6050, 6378, 1738, 3398 -480 DATA 71492, 60268, 25559, 24760 -490 FOR J=1 TO 9: READ R(J): NEXT -500 RETURN -510 REM -520 REM This program by Anthony Mallama predicts how -530 REM a satellite in a low orbit around the Earth -540 REM or any other planet will change due to the -550 REM planet's equatorial bulge. It is described -560 REM fully in Sky & Telescope, May, 1990, page 543. diff --git a/bwbtest/B15B/mallam.run b/bwbtest/B15B/mallam.run deleted file mode 100644 index 24fd8e9..0000000 --- a/bwbtest/B15B/mallam.run +++ /dev/null @@ -1,8 +0,0 @@ -Planet's name? MARS -Altitude of the satellite orbit (km)? 987 -Inclination to the equator (degrees)? 65 -Precession of the node: - -2.63238 deg/day, -961.457 deg/yr - -Precession of pericenter: - -.333142 deg/day, -121.677 deg/yr diff --git a/bwbtest/B15B/mars.INP b/bwbtest/B15B/mars.INP deleted file mode 100644 index 8df3b33..0000000 --- a/bwbtest/B15B/mars.INP +++ /dev/null @@ -1,2 +0,0 @@ -2015,03,01 -12,34,56 diff --git a/bwbtest/B15B/mars.bas b/bwbtest/B15B/mars.bas deleted file mode 100644 index c795691..0000000 --- a/bwbtest/B15B/mars.bas +++ /dev/null @@ -1,173 +0,0 @@ -100 REM PHYSICAL EPHEMERIS OF MARS -105 REM -106 DEFDBL A-Z -110 DT=57: REM Value of ET-UT (sec) -111 REM in 1990; change DT for -112 REM other years as needed!! -115 P1=3.14159265# -120 P2=2*P1: RD=180/P1: DR=1/RD -125 GOSUB 330: REM Get date and UT -130 D=(J-2451545!)+F -135 D=D+DT/86400!: REM UT to ET -140 GOSUB 405: PRINT -145 READ A1,A2,D1,D2 -150 T=T-1: REM Cent from 2000.0 -155 A1=A1+A2*T -160 D1=D1+D2*T -165 Q=A1: GOSUB 710: A1=Q*DR -170 Q=D1: GOSUB 710: D1=Q*DR -175 D9=COS(D5)*SIN(A1-A5) -180 N9=SIN(D1)*COS(D5)*COS(A1-A5) -185 N9=N9-COS(D1)*SIN(D5) -190 K=RD*ATN(N9/D9) -195 IF D9<0 THEN K=K+180 -205 READ W0,W1,W2: GOSUB 304 -215 REM -220 REM Planetocentric decl. Earth -222 SD=-SIN(D1)*SIN(D5) -224 SD=SD-COS(D1)*COS(D5)*COS(A1-A5) -226 DE=RD*ATN(SD/SQR(1-SD*SD)) -228 REM -230 REM P.A. of Axis -232 SP=COS(D1)*SIN(A1-A5) -234 CP=SIN(D1)*COS(D5) -236 CP=CP-COS(D1)*SIN(D5)*COS(A1-A5) -238 PA=RD*ATN(SP/CP) -240 IF CP<0 THEN PA=PA+180 -242 IF PA<0 THEN PA=PA+360 -244 IF PA>=360 THEN PA=PA-360 -248 REM -250 REM Phase and magnitude -252 K4=((R4+RR)^2-R*R)/(4*R4*RR) -254 CI=(R4*R4+RR*RR-R*R)/(2*R4*RR) -256 I=RD*ATN(SQR(1-CI*CI)/CI) -258 M4=5*LOG(RR*R4)/LOG(10) -260 M4=-1.52+.016*I+M4 -262 REM -270 A1$="Central meridian: ###.##" -272 A2$="P.A. of axis: ###.##" -274 A3$="Decl. of Earth: ###.##" -276 A4$="Angular diameter: ###.#" -278 A5$="Phase: ###.###" -280 A6$="Magnitude: ###.#" -282 PRINT USING A1$;C -284 PRINT USING A2$;PA -286 PRINT USING A3$;DE -288 PRINT USING A4$;9.359999/RR -290 PRINT USING A5$;K4 -292 PRINT USING A6$;M4 -300 END -304 REM Rotations from epoch -305 W=W0+W1*(D-.0057755*RR)+W2*T -306 Q=W-K: GOSUB 710: C=Q -308 RETURN -309 REM North Pole R.A. -310 DATA 317.681, +0.678 -311 REM North Pole Dec. -312 DATA 52.886, +0.352 -313 REM Rotation -314 DATA 176.655,350.8919830,0.62 -315 REM -320 REM Calendar --> JD -325 REM -330 INPUT "YR,MO,DAY ";Y,M,D -335 INPUT "UT (H,M,S) ";H1,M1,S1 -340 D=D+H1/24+M1/1440+S1/86400! -345 G=1: IF Y<1582 THEN G=0 -350 D1=INT(D): F=D-D1-.5 -355 J=-INT(7*(INT((M+9)/12)+Y)/4) -360 IF G=0 THEN 380 -365 S=SGN(M-9): A=ABS(M-9) -370 J3=INT(Y+S*INT(A/7)) -375 J3=-INT((INT(J3/100)+1)*3/4) -380 J=J+INT(275*M/9)+D1+G*J3 -385 J=J+1721027!+2*G+367*Y -390 IF F>=0 THEN 400 -395 F=F+1: J=J-1 -400 RETURN -405 REM Fundamental Arguments -410 REM -415 T=D/36525!+1 -420 REM T=Centuries from 1900.0 -425 L0=.779072+.00273790931#*D -430 G0=.993126+.0027377785#*D -431 L4=.987353+.00145575328#*D -432 G4=.053856+.00145561327#*D -433 F4=.849694+.00145569465#*D -435 L5=.089608+.00023080893#*D -440 G5=.056531+.00023080893#*D -445 G6=.882987+9.294371E-05*D -450 L0=(L0-INT(L0))*P2 -455 G0=(G0-INT(G0))*P2 -456 L4=(L4-INT(L4))*P2 -457 G4=(G4-INT(G4))*P2 -458 F4=(F4-INT(F4))*P2 -460 L5=(L5-INT(L5))*P2 -465 G5=(G5-INT(G5))*P2 -470 G6=(G6-INT(G6))*P2 -475 REM Sun -480 L=6910*SIN(G0) -485 L=L+72*SIN(2*G0) -490 L=L-17*T*SIN(G0) -495 L=L-7*COS(G0-G5) -500 R=1.00014-.01675*COS(G0) -505 R=R-.00014*COS(2*G0) -510 L=L0+L/206265! -515 REM Mars -520 M=38451!*SIN(G4) -525 M=M+2238*SIN(2*G4) -530 M=M+181*SIN(3*G4) -535 M=M-52*SIN(2*F4) -540 M=M+37*T*SIN(G4) -545 M=M-22*COS(G4-2*G5) -550 M=M-19*SIN(G4-G5) -555 M=M+17*COS(G4-G5) -556 M=M+17*SIN(4*G4) -557 M=M-16*COS(2*G4-2*G5) -558 M=M+13*COS(G0-2*G4) -559 M=M-10*SIN(G4-2*F4) -560 M=M+7*COS(G0-G4) -561 M=M-7*COS(2*G0-3*G4) -564 B=6603*SIN(F4) -565 B=B+622*SIN(G4-F4) -570 B=B+615*SIN(G4+F4) -575 B=B+64*SIN(2*G4+F4) -580 R4=1.53031-.1417*COS(G4) -585 R4=R4-.0066*COS(2*G4) -590 R4=R4-.00047*COS(3*G4) -615 L4=L4+M/206265!: B4=B/206265! -620 N9=R4*COS(B4)*SIN(L4-L) -625 D9=R4*COS(B4)*COS(L4-L)+R -630 L1=ATN(N9/D9) -635 IF D9<0 THEN L1=L1+P1 -640 LL=L1+L -645 V=N9*N9+D9*D9 -650 RR=SQR(V+(R4*SIN(B4))^2) -655 S=R4*SIN(B4)/RR -660 BB=ATN(S/SQR(1-S*S)) -665 E=(84428!-47*T)/206265! -670 N9=SIN(LL)*COS(E)-TAN(BB)*SIN(E) -675 D9=COS(LL): A5=ATN(N9/D9) -680 IF D9<0 THEN A5=A5+P1 -685 S=SIN(BB)*COS(E) -690 S=S+COS(BB)*SIN(E)*SIN(LL) -695 D5=ATN(S/SQR(1-S*S)) -700 RETURN -705 REM -710 REM Normalize Degrees -715 Q=Q/360: Q=Q-INT(Q): Q=Q*360 -720 RETURN -800 REM This program computes -810 REM a number of interesting -811 REM things about Mars' tele- -812 REM scopic appearance at any -813 REM date and time (UT). Valid -814 REM for several centuries, pro- -815 REM vided that you reset -816 REM the value of 'Delta-T' in -817 REM line 110 to an appropriate -818 REM value. Written by Roger -819 REM Sinnott, this program is -820 REM explained more fully in -821 REM Sky & Telescope magazine -822 REM for Sept. 1990, page 296. diff --git a/bwbtest/B15B/mars.run b/bwbtest/B15B/mars.run deleted file mode 100644 index 3b8f1af..0000000 --- a/bwbtest/B15B/mars.run +++ /dev/null @@ -1,9 +0,0 @@ -YR,MO,DAY ? 2015,03,01 -UT (H,M,S) ? 12,34,56 - -Central meridian: 354.05 -P.A. of axis: 329.72 -Decl. of Earth: -25.36 -Angular diameter: 4.2 -Phase: 0.975 -Magnitude: 1.3 diff --git a/bwbtest/B15B/meteor.INP b/bwbtest/B15B/meteor.INP deleted file mode 100644 index 638a86c..0000000 --- a/bwbtest/B15B/meteor.INP +++ /dev/null @@ -1,4 +0,0 @@ -987 -65.43 -2109 -87.65 diff --git a/bwbtest/B15B/meteor.bas b/bwbtest/B15B/meteor.bas deleted file mode 100644 index 372c55b..0000000 --- a/bwbtest/B15B/meteor.bas +++ /dev/null @@ -1,36 +0,0 @@ -10 REM METEOR FLIGHT -12 PRINT -14 INPUT "INITIAL MASS (KG)";MM -16 INPUT "DENSITY (KG PER CUBIC METER)";D -18 INPUT "SPEED AT ENTRY (KM/S)";V -20 INPUT "ZENITH ANGLE (DEG)";Z -22 A=1: L=0.001: G=0.75: H0=0.2: H1=500000 -24 H=150000: T=0: T9=0.01: T0=0: T1=0.1 -26 M=MM: Z=COS(Z*3.1416/180): V=V*1000 -28 PRINT: GOSUB 64 -30 R=EXP(-H/6500): IF H<=130000 THEN GOTO 34 -32 R=2E-9*EXP(-(H-130000)/40000) -34 A2=G*A*R*V*V/((M^0.33333)*(D^0.66667)) -36 M0=H0*A*R*V*V*V*((M/D)^0.66667)/(2*H1) -38 V9=A2*T9: M9=M0*T9: T=T+T9: H=H-V*T9*Z -40 V=V-V9: M=M-M9 -42 IF V<100 OR M<0 OR H<0 THEN GOTO 82 -44 IF M0/M<0.1 AND T0=0 THEN GOTO 30 -46 IF (T-T0)=12 THEN MM=MM-12 -70 K1=INT(365.25*(YY+4712)) -80 K2=INT(30.6*MM+.5) -90 K3=INT(INT((YY/100)+49)*.75)-38 -100 J=K1+K2+D+59: ' JD for dates in Julian calendar -110 IF J>2299160 THEN J=J-K3: ' For Gregorian calendar -120 ' J is the Julian date at 12h UT on day in question -130 ' -140 ' Calculate illumination (synodic) phase -150 V=(J-2451550.1 )/29.530588853 : GOSUB 400: IPX=V -160 AG=IPX*29.53: ' Moon's age in days -170 IPX=IPX*P2: ' Convert phase to radians -180 ' -190 ' Calculate distance from anomalistic phase -200 V=(J-2451562.2 )/27.55454988 : GOSUB 400: DP=V -210 DP=DP*P2: ' Convert to radians -220 DI=60.4-3.3*COS(DP)-.6*COS(2*IPX-DP)-.5*COS(2*IPX) -230 ' -240 ' Calculate latitude from nodal (draconic) phase -250 V=(J-2451565.2 )/27.212220817 : GOSUB 400: NP=V -260 NP=NP*P2: ' Convert to radians -270 LA=5.1*SIN(NP) -280 ' -290 ' Calculate longitude from sidereal motion -300 V=(J-2451555.8 )/27.321582241 : GOSUB 400: RP=V -310 LO=360*RP+6.3*SIN(DP)+1.3*SIN(2*IPX-DP)+.7*SIN(2*IPX) -320 ' -330 PRINT "Moon's age from new (days): ";AG -340 PRINT "Distance (Earth radii): ";DI -350 PRINT "Ecliptic latitude (degrees): ";LA -360 PRINT "Ecliptic longitude (degrees): ";LO -370 PRINT: INPUT "Continue (y or n)";Q$ -380 IF Q$<>"N" AND Q$<>"n" THEN GOTO 40 -390 END -400 ' Normalize values to range 0 to 1 -410 V=V-INT(V): IF V<0 THEN V=V+1 -420 RETURN -430 ' -440 ' This program helps anyone who needs to know the Moon's -450 ' phase (age), distance, and position along the ecliptic on -460 ' any date within several thousand years in the past or future. -470 ' To illustrate its application, Bradley Schaefer applied it -480 ' to a number of famous events influenced by the Moon in -490 ' World War II. His article appeared in Sky & Telescope for -500 ' April 1994, page 86. diff --git a/bwbtest/B15B/moonfx.run b/bwbtest/B15B/moonfx.run deleted file mode 100644 index caff243..0000000 --- a/bwbtest/B15B/moonfx.run +++ /dev/null @@ -1,7 +0,0 @@ -Year, month, day? 2015,03,01 -Moon's age from new (days): 10.6797 -Distance (Earth radii): 62.9648 -Ecliptic latitude (degrees): -5.06297 -Ecliptic longitude (degrees): 113.748 - -Continue (y or n)? n diff --git a/bwbtest/B15B/moons.INP b/bwbtest/B15B/moons.INP deleted file mode 100644 index 9b3c236..0000000 --- a/bwbtest/B15B/moons.INP +++ /dev/null @@ -1 +0,0 @@ -2015 diff --git a/bwbtest/B15B/moons.bas b/bwbtest/B15B/moons.bas deleted file mode 100644 index 50f7f25..0000000 --- a/bwbtest/B15B/moons.bas +++ /dev/null @@ -1,52 +0,0 @@ -10 REM NEW AND FULL MOONS -12 REM -14 REM -16 R1=3.14159265/180: U=0 -18 INPUT "YEAR ";Y -20 PRINT -22 K0=INT((Y-1900)*12.3685) -24 T=(Y-1899.5)/100 -26 T2=T*T: T3=T*T*T -28 J0=2415020+29*K0 -30 F0=0.0001178*T2-0.000000155*T3 -32 F0=F0+0.75933+0.53058868*K0 -34 F0=F0-0.000837*T-0.000335*T2 -36 J=J+INT(F): F=F-INT(F) -38 M0=K0*0.08084821133 -40 M0=360*(M0-INT(M0))+359.2242 -42 M0=M0-0.0000333*T2 -44 M0=M0-0.00000347*T3 -46 M1=K0*0.07171366128 -48 M1=360*(M1-INT(M1))+306.0253 -50 M1=M1+0.0107306*T2 -52 M1=M1+0.00001236*T3 -54 B1=K0*0.08519585128 -56 B1=360*(B1-INT(B1))+21.2964 -58 B1=B1-0.0016528*T2 -60 B1=B1-0.00000239*T3 -62 FOR K9=0 TO 28 -64 J=J0+14*K9: F=F0+0.765294*K9 -66 K=K9/2 -68 M5=(M0+K*29.10535608)*R1 -69 M6=(M1+K*385.81691806)*R1 -70 B6=(B1+K*390.67050646)*R1 -71 F=F-0.4068*SIN(M6) -72 F=F+(0.1734-0.000393*T)*SIN(M5) -73 F=F+0.0161*SIN(2*M6) -74 F=F+0.0104*SIN(2*B6) -75 F=F-0.0074*SIN(M5-M6) -76 F=F-0.0051*SIN(M5+M6) -77 F=F+0.0021*SIN(2*M5) -78 F=F+0.0010*SIN(2*B6-M6) -82 J=J+INT(F): F=F-INT(F) -84 IF U=0 THEN PRINT " NEW MOON "; -86 IF U=1 THEN PRINT "FULL MOON "; -88 PRINT J;F -90 U=U+1: IF U=2 THEN U=0 -92 NEXT -94 END -95 REM ------------------------ -96 REM APPEARED IN ASTRONOMICAL -97 REM COMPUTING, SKY & TELE- -98 REM SCOPE, MARCH, 1985 -99 REM ------------------------ diff --git a/bwbtest/B15B/moons.run b/bwbtest/B15B/moons.run deleted file mode 100644 index 7a1be2d..0000000 --- a/bwbtest/B15B/moons.run +++ /dev/null @@ -1,31 +0,0 @@ -YEAR ? 2015 - - NEW MOON 2.45701E+6 .566477 -FULL MOON 2.45703E+6 .703339 - NEW MOON 2.45704E+6 5.11149E-2 -FULL MOON 2.45706E+6 .465169 - NEW MOON 2.45707E+6 .490342 -FULL MOON 2.45709E+6 .252979 - NEW MOON 2.4571E+6 .899635 -FULL MOON 2.45712E+6 2.10313E-3 - NEW MOON 2.45713E+6 .290326 -FULL MOON 2.45715E+6 .654318 - NEW MOON 2.45716E+6 .67698 -FULL MOON 2.45718E+6 .181986 - NEW MOON 2.45719E+6 8.68665E-2 -FULL MOON 2.4572E+6 .598315 - NEW MOON 2.45722E+6 .55781 -FULL MOON 2.45723E+6 .946217 - NEW MOON 2.45725E+6 .120929 -FULL MOON 2.45726E+6 .274565 - NEW MOON 2.45728E+6 .779877 -FULL MOON 2.45729E+6 .61981 - NEW MOON 2.45731E+6 .503566 -FULL MOON 2.45732E+6 4.23133E-3 - NEW MOON 2.45734E+6 .239214 -FULL MOON 2.45735E+6 .445782 - NEW MOON 2.45737E+6 .936132 -FULL MOON 2.45738E+6 .96412 - NEW MOON 2.4574E+6 .563102 -FULL MOON 2.45741E+6 .572861 - NEW MOON 2.45743E+6 .109838 diff --git a/bwbtest/B15B/moonup.INP b/bwbtest/B15B/moonup.INP deleted file mode 100644 index 7af8670..0000000 --- a/bwbtest/B15B/moonup.INP +++ /dev/null @@ -1,3 +0,0 @@ -123,145 -6 -2015,03,01 diff --git a/bwbtest/B15B/moonup.bas b/bwbtest/B15B/moonup.bas deleted file mode 100644 index bc30850..0000000 --- a/bwbtest/B15B/moonup.bas +++ /dev/null @@ -1,171 +0,0 @@ -10 REM MOONRISE-MOONSET -15 GOSUB 170 -20 INPUT "LAT, LONG (DEG)";B5,L5 -25 INPUT "TIME ZONE (HRS)";H -30 L5=L5/360: Z0=H/24 -35 GOSUB 760: T=(J-2451545)+F -40 GOSUB 245: T=T+Z0 -45 REM -50 REM POSITION LOOP -55 FOR I=1 TO 3 -60 GOSUB 495: MM(I,1)=A5 -65 MM(I,2)=D5: MM(I,3)=R5: T=T+0.5 -70 NEXT -75 IF MM(2,1)>MM(1,1) THEN 85 -80 MM(2,1)=MM(2,1)+P2 -85 IF MM(3,1)>MM(2,1) THEN 95 -90 MM(3,1)=MM(3,1)+P2 -95 Z1=R1*(90.567-41.685/MM(2,3)) -100 S=SIN(B5*R1): C=COS(B5*R1) -105 Z=COS(Z1): M8=0: W8=0: PRINT -110 A0=MM(1,1): D0=MM(1,2) -115 FOR C0=0 TO 23 -120 P=(C0+1)/24 -125 F0=MM(1,1):F1=MM(2,1):F2=MM(3,1) -130 GOSUB 225: A2=F -135 F0=MM(1,2):F1=MM(2,2):F2=MM(3,2) -140 GOSUB 225: D2=F -145 GOSUB 285: A0=A2:D0=D2:V0=V2 -150 NEXT -155 GOSUB 450: REM SPECIAL MSG? -160 END -165 REM -170 REM CONSTANTS -175 DIM MM(3,3) -180 P1=3.14159265: P2=2*P1 -185 R1=P1/180: K1=15*R1*1.0027379 -190 S$="MOONSET AT " -195 R$="MOONRISE AT " -200 M1$="NO MOONRISE THIS DATE" -205 M2$="NO MOONSET THIS DATE" -210 M3$="MOON DOWN ALL DAY" -215 M4$="MOON UP ALL DAY" -220 RETURN -225 REM 3-POINT INTERPOLATION -230 A=F1-F0: B=F2-F1-A -235 F=F0+P*(2*A+B*(2*P-1)) -240 RETURN -245 REM LST AT 0H ZONE TIME -250 T0=T/36525 -255 S=24110.5+8640184.813*T0 -260 S=S+86636.6*Z0+86400*L5 -265 S=S/86400: S=S-INT(S) -270 T0=S*360*R1 -275 RETURN -280 REM -285 REM TEST AN HOUR FOR AN EVENT -290 L0=T0+C0*K1: L2=L0+K1 -295 IF A20 THEN 325 -320 V0=S*SIN(D0)+C*COS(D0)*COS(H0)-Z -325 V2=S*SIN(D2)+C*COS(D2)*COS(H2)-Z -330 IF SGN(V0)=SGN(V2) THEN 440 -335 V1=S*SIN(D1)+C*COS(D1)*COS(H1)-Z -340 A=2*V2-4*V1+2*V0: B=4*V1-3*V0-V2 -345 D=B*B-4*A*V0: IF D<0 THEN 440 -350 D=SQR(D) -355 IF V0<0 AND V2>0 THEN PRINT R$; -360 IF V0<0 AND V2>0 THEN M8=1 -365 IF V0>0 AND V2<0 THEN PRINT S$; -370 IF V0>0 AND V2<0 THEN W8=1 -375 E=(-B+D)/(2*A) -380 IF E>1 OR E<0 THEN E=(-B-D)/(2*A) -385 T3=C0+E+1/120: REM ROUND OFF -390 H3=INT(T3): M3=INT((T3-H3)*60) -395 PRINT USING "##:##";H3;M3; -400 H7=H0+E*(H2-H0) -405 N7=-COS(D1)*SIN(H7) -410 D7=C*SIN(D1)-S*COS(D1)*COS(H7) -415 A7=ATN(N7/D7)/R1 -420 IF D7<0 THEN A7=A7+180 -425 IF A7<0 THEN A7=A7+360 -430 IF A7>360 THEN A7=A7-360 -435 PRINT USING ", AZ ###.#";A7 -440 RETURN -445 REM -450 REM SPECIAL MESSAGE ROUTINE -455 IF M8=0 AND W8=0 THEN 475 -460 IF M8=0 THEN PRINT M1$ -465 IF W8=0 THEN PRINT M2$ -470 GOTO 485 -475 IF V2<0 THEN PRINT M3$ -480 IF V2>0 THEN PRINT M4$ -485 RETURN -490 REM -495 REM FUNDAMENTAL ARGUMENTS -500 L=0.606434+0.03660110129*T -505 M=0.374897+0.03629164709*T -510 F=0.259091+0.03674819520*T -515 D=0.827362+0.03386319198*T -520 N=0.347343-0.00014709391*T -525 G=0.993126+0.00273777850*T -530 L=L-INT(L): M=M-INT(M) -535 F=F-INT(F): D=D-INT(D) -540 N=N-INT(N): G=G-INT(G) -545 L=L*P2: M=M*P2: F=F*P2 -550 D=D*P2: N=N*P2: G=G*P2 -555 V=0.39558*SIN(F+N) -560 V=V+0.08200*SIN(F) -565 V=V+0.03257*SIN(M-F-N) -570 V=V+0.01092*SIN(M+F+N) -575 V=V+0.00666*SIN(M-F) -580 V=V-0.00644*SIN(M+F-2*D+N) -585 V=V-0.00331*SIN(F-2*D+N) -590 V=V-0.00304*SIN(F-2*D) -595 V=V-0.00240*SIN(M-F-2*D-N) -600 V=V+0.00226*SIN(M+F) -605 V=V-0.00108*SIN(M+F-2*D) -610 V=V-0.00079*SIN(F-N) -615 V=V+0.00078*SIN(F+2*D+N) -620 U=1-0.10828*COS(M) -625 U=U-0.01880*COS(M-2*D) -630 U=U-0.01479*COS(2*D) -635 U=U+0.00181*COS(2*M-2*D) -640 U=U-0.00147*COS(2*M) -645 U=U-0.00105*COS(2*D-G) -650 U=U-0.00075*COS(M-2*D+G) -655 W=0.10478*SIN(M) -660 W=W-0.04105*SIN(2*F+2*N) -665 W=W-0.02130*SIN(M-2*D) -670 W=W-0.01779*SIN(2*F+N) -675 W=W+0.01774*SIN(N) -680 W=W+0.00987*SIN(2*D) -685 W=W-0.00338*SIN(M-2*F-2*N) -690 W=W-0.00309*SIN(G) -695 W=W-0.00190*SIN(2*F) -700 W=W-0.00144*SIN(M+N) -705 W=W-0.00144*SIN(M-2*F-N) -710 W=W-0.00113*SIN(M+2*F+2*N) -715 W=W-0.00094*SIN(M-2*D+G) -720 W=W-0.00092*SIN(2*M-2*D) -725 REM -730 REM COMPUTE RA, DEC, DIST -735 S=W/SQR(U-V*V) -740 A5=L+ATN(S/SQR(1-S*S)) -745 S=V/SQR(U):D5=ATN(S/SQR(1-S*S)) -750 R5=60.40974*SQR(U) -755 RETURN -760 REM CALENDAR --> JD -765 INPUT "Y,M,D ";Y,M,D -770 G=1: IF Y<1582 THEN G=0 -775 D1=INT(D): F=D-D1-0.5 -780 J=-INT(7*(INT((M+9)/12)+Y)/4) -785 IF G=0 THEN 805 -790 S=SGN(M-9): A=ABS(M-9) -795 J3=INT(Y+S*INT(A/7)) -800 J3=-INT((INT(J3/100)+1)*3/4) -805 J=J+INT(275*M/9)+D1+G*J3 -810 J=J+1721027+2*G+367*Y -815 IF F>=0 THEN 825 -820 F=F+1: J=J-1 -825 RETURN -900 REM *************************** -910 REM THIS PROGRAM COMPUTES THE -920 REM TIMES OF MOONRISE AND MOON- -930 REM SET ANYWHERE IN THE WORLD. -940 REM FROM SKY & TELESCOPE, JULY, -950 REM 1989, PAGE 78. -960 REM *************************** diff --git a/bwbtest/B15B/moonup.run b/bwbtest/B15B/moonup.run deleted file mode 100644 index 45df6ab..0000000 --- a/bwbtest/B15B/moonup.run +++ /dev/null @@ -1,6 +0,0 @@ -LAT, LONG (DEG)? 123,145 -TIME ZONE (HRS)? 6 -Y,M,D ? 2015,03,01 - -MOONSET AT 1: 4, AZ 121.5 -MOONRISE AT 9:48, AZ 239.8 diff --git a/bwbtest/B15B/msachart.INP b/bwbtest/B15B/msachart.INP deleted file mode 100644 index 8e2f6ed..0000000 --- a/bwbtest/B15B/msachart.INP +++ /dev/null @@ -1,2 +0,0 @@ -5,6,7 -1,2,3 diff --git a/bwbtest/B15B/msachart.bas b/bwbtest/B15B/msachart.bas deleted file mode 100644 index 9d732f2..0000000 --- a/bwbtest/B15B/msachart.bas +++ /dev/null @@ -1,56 +0,0 @@ -10 REM Chart number for -20 REM The Millennium Star Atlas -30 REM by Laurent Corp -40 CLS -50 PRINT : PRINT "Enter 2000.0 position" -60 PRINT : INPUT "R.A. (h,m,s)";H,M,S -70 IF H<0 OR H>=24 THEN 60 -80 IF M<0 OR M>=60 THEN 60 -90 IF S<0 OR S>=60 THEN 60 -100 HM=H -110 H=H+M/60+S/3600 -120 PRINT : INPUT "Dec. (d,m,s)";D$,M,S -130 D=ABS(VAL(D$)) -140 IF D>90 THEN 120 -150 IF M<0 OR M>=60 THEN 120 -160 IF S<0 OR S>=60 THEN 120 -170 D=D+M/60+S/3600 -180 IF LEFT$(D$,1)="-" THEN D=-D -190 PRINT: PRINT "Millennium Star Atlas" -200 IF ABS(D)>87 THEN H=0 -210 IF H>=0 AND H<=8 THEN V$="Volume I": VL=0 -220 IF H>8 AND H<=16 THEN V$="Volume II": VL=1 -230 IF H>16 AND H<24 THEN V$="Volume III": VL=2 -240 QT=0 : PA=0 : QN=0 -250 IF ABS(D)>90 THEN D=90 -260 IF ABS(D)<=90 THEN PA=240: QT=QT+2: QN=2 -270 IF ABS(D)<87 THEN PA=120: QT=QT+4: QN=4 -280 IF ABS(D)<81 THEN PA=60: QT=QT+8: QN=8 -290 IF ABS(D)<75 THEN PA=48: QT=QT+10: QN=10 -300 IF ABS(D)<69 THEN PA=40: QT=QT+12: QN=12 -310 IF ABS(D)<63 THEN PA=480/14: QT=QT+14: QN=14 -320 IF ABS(D)<57 THEN PA=30: QT=QT+16: QN=16 -330 IF ABS(D)<51 THEN PA=24: QT=QT+20: QN=20 -340 IF ABS(D)<45 THEN PA=24: QT=QT+20: QN=20 -350 IF ABS(D)<39 THEN PA=480/22: QT=QT+22: QN=22 -360 IF ABS(D)<33 THEN PA=480/22: QT=QT+22: QN=22 -370 IF ABS(D)<27 THEN PA=20: QT=QT+24: QN=24 -380 IF ABS(D)<21 THEN PA=20: QT=QT+24: QN=24 -390 IF ABS(D)<15 THEN PA=20: QT=QT+24: QN=24 -400 IF ABS(D)<9 THEN PA=20: QT=QT+24: QN=24 -410 IF ABS(D)<3 THEN PA=20: QT=QT+24: QN=24 -420 IF H=8 THEN H=7.99 -430 IF H=16 THEN H=15.99 -440 IF H=24 THEN H=23.99 -450 IF H>VL*8 THEN H=H-(VL*8) -460 CA=INT((H*60)/PA) -470 IF ABS(D)>87 AND (HM>4 AND HM<16) THEN QT=1: QN=0 -480 CH=QT-CA+(VL*516) -490 IF LEFT$(D$,1)="-" THEN CH=(516+(VL*516)-QT+QN-CA) -500 PRINT "Chart ";CH;"in ";V$ -510 END -900 REM --------------------------- -910 REM APPEARED IN ASTRONOMICAL -920 REM COMPUTING, SKY & TELESCOPE, -930 REM OCTOBER 1998, PAGE 63 -940 REM --------------------------- diff --git a/bwbtest/B15B/msachart.run b/bwbtest/B15B/msachart.run deleted file mode 100644 index ddd1303..0000000 --- a/bwbtest/B15B/msachart.run +++ /dev/null @@ -1,9 +0,0 @@ - -Enter 2000.0 position - -R.A. (h,m,s)? 5,6,7 - -Dec. (d,m,s)? 1,2,3 - -Millennium Star Atlas -Chart 255 in Volume I diff --git a/bwbtest/B15B/obscur.INP b/bwbtest/B15B/obscur.INP deleted file mode 100644 index 71181b5..0000000 --- a/bwbtest/B15B/obscur.INP +++ /dev/null @@ -1,3 +0,0 @@ -9 -8.8 -0.123 diff --git a/bwbtest/B15B/obscur.bas b/bwbtest/B15B/obscur.bas deleted file mode 100644 index 9302815..0000000 --- a/bwbtest/B15B/obscur.bas +++ /dev/null @@ -1,48 +0,0 @@ -10 REM OBSCURED FRACTION -12 REM AT A SOLAR ECLIPSE -14 REM -16 P=3.14159265 -18 INPUT "SUN'S SEMIDIAMETER ";S1 -20 INPUT "MOON'S SEMIDIAMETER";S2 -22 S=S2/S1 -24 INPUT "ECLIPSE MAGNITUDE ";M -26 IF M>(S+1)/2 OR M<0 THEN 24 -28 REM -30 W=M*2 -32 D=1+S-W -34 IF M<1 AND D<>0 THEN 46 -36 IF S>=1 THEN F=1: REM TOTAL -38 IF S<1 THEN F=S*S: REM ANNULAR -40 F=F*P -42 GOTO 90 -44 REM -46 REM ANGLE B -48 B1=(D*D+1-S*S)/(2*D) -50 IF B1>1 THEN B1=1 -52 IF B1<-1 THEN B1=-1 -54 IF B1<>0 THEN 58 -56 B=P/2: GOTO 64 -58 B=ATN(SQR(1-B1*B1)/B1) -60 IF B1<0 THEN B=B+P -62 REM -64 REM ANGLE C -66 C1=(S*S+1-D*D)/(2*S) -68 IF C1>1 THEN C1=1 -70 IF C1<-1 THEN C1=-1 -72 IF C1<>0 THEN 76 -74 C=P/2: GOTO 82 -76 C=ATN(SQR(1-C1*C1)/C1) -78 IF C1<0 THEN C=C+P -80 REM -82 REM ANGLE A -84 A=P-B-C -86 REM -88 F=S*S*A+B-S*SIN(C) -90 PRINT "OBSCURATION: ";F/P -92 END -100 REM *********************** -110 REM FROM SKY & TELESCOPE'S -120 REM ASTRONOMICAL COMPUTING -130 REM DEPARTMENT, NOVEMBER, -140 REM 1986, PAGES 515-516. -150 REM *********************** diff --git a/bwbtest/B15B/obscur.run b/bwbtest/B15B/obscur.run deleted file mode 100644 index 26fbfe0..0000000 --- a/bwbtest/B15B/obscur.run +++ /dev/null @@ -1,4 +0,0 @@ -SUN'S SEMIDIAMETER ? 9 -MOON'S SEMIDIAMETER? 8.8 -ECLIPSE MAGNITUDE ? 0.123 -OBSCURATION: 5.05196E-2 diff --git a/bwbtest/B15B/occvis.INP b/bwbtest/B15B/occvis.INP deleted file mode 100644 index 846733a..0000000 --- a/bwbtest/B15B/occvis.INP +++ /dev/null @@ -1,5 +0,0 @@ -98 -76 -54 -32 -2 diff --git a/bwbtest/B15B/occvis.bas b/bwbtest/B15B/occvis.bas deleted file mode 100644 index 373902f..0000000 --- a/bwbtest/B15B/occvis.bas +++ /dev/null @@ -1,121 +0,0 @@ -10 ' Visibility of an Occultation -20 INPUT "Moon's sunlit percentage";SF -30 INPUT "Zenith distance of star (degrees)";Z -40 INPUT "Height of Sun above horizon";HS -50 INPUT "Cusp angle (<0 for bright side) in deg";C -60 BV=.7: ' Star's color index, B-V (in mags.) -70 K=.3 : ' Vis. extinction coeff. (mag./airmass) -80 BC=0: ' Brightness from light pollution (nL) -90 SE=1: ' Seeing disk diameter at zenith (arcsec) -100 FV=20: ' Moon fraction in field of view (%) -110 D=6: ' Telescope aperture (inches) -120 M=150: ' Magnification -130 TR=80: ' Telescope throughput (%) -140 AG=30: ' Observer's age (years) -150 RS=1: ' Snellen ratio (20/20=1, 20/40=0.5,...) -160 EX=5: ' Experience (1-9; 5=average, 9=expert) -170 MS=8.61: ' Star's visual magnitude -180 PRINT "Choose program mode --" -190 PRINT " (1) Minimum aperture" -200 PRINT " (2) Limiting magnitude" -210 INPUT Q$: IF Q$<>"1" AND Q$<>"2" THEN 210 -220 IF Q$="2" THEN 270 -230 D=.5: ' Find minimum telescope aperture -240 D=D+.1: M=25*D: GOSUB 290: IF MS>ML THEN 240 -250 PRINT "Aperture should be at least" ;D;" inches" -260 GOTO 280 -270 GOSUB 290: PRINT "Limiting magnitude is ";ML -280 END -290 ' Routine to find lim. mag. for given conditions -300 XX=COS(Z/57.295): ' First, estimate corrections -310 X=1/(XX+.025*EXP(-11*XX)): ' Airmass of Moon -320 ZE=SQR(2.89*X*SE^2+(17.9/D)^2):'2nd moment of image -330 F1=10^(.4*K*X): ' Extinction -340 F2=1.41: ' Binocular vision -350 F3=100/TR: ' Transmission of scope -360 DE=4: ' Guess that pupil is 4mm -370 F4=(25.4*D/(M*DE))^2: ' Light outside pupil -380 IF F4<1 THEN F4=1 -390 F5=(DE/(25.4*D))^2: ' Light gathering power -400 XX=1-EXP(-.026*DE^2) -410 YY=1-EXP(-.026*(25.4*D/M)^2) -420 F6=(25.4*D/(DE*M))^2*XX/YY:'Stiles-Crawford effect -430 IF F6>1 THEN F6=1 -440 F7=(1+.03*(M*ZE/100)^2)/RS^2: ' Resolving the star -450 FI=F1*F2*F3*F4*F5*F6*F7:' Corr. for intensities -460 FB=M^2*F2*F3*F4*F5*F6:'Corr. for surface brightness -470 ' Calculate brightness of Moon -480 CP=SF/50-1 -490 IF CP=0 THEN PH=3.14159/2: GOTO 520 -500 PH=ATN(SQR(1-CP*CP)/CP): ' Lunar phase (0 is full) -510 IF CP<0 THEN PH=PH+3.14159 -520 DM=1.49*PH+.043*(PH^4)-12.73 : ' Moon's magnitude -530 IM=10^(-.4*(DM+16.57)): ' Intensity of Moon -540 BM=5.67E+12*IM/(F1*SF): ' Moon brightness (nL) -550 SP=3.14159-PH: ' Earth's phase from Moon -560 XX=1.49*SP+.043*(SP^4)-12.73 -570 BE=1.1E+07*10^(-.4*(XX+16.57))/F1: ' Earthshine -580 ' Calculate glare brightness -590 XX=(COS(C/57.295))^2+(1-SF/100+SIN(C/57.295))^2 -600 YY=(1-.4*EXP(-1*C/30)) -610 IF YY<.6 THEN YY=.6 -620 TH=.25*SQR(XX)*YY: ' Effective distance to Moon -630 B1=6.25E+07*IM*(F1-1)/(TH*F1)^2:'Scattering in air -640 B2=4.63E+07*IM*(FV/100)/(TH^2*F1):'Scat. in eye -650 B3=443000*IM/(TH^3*D*F1): ' Diffraction -660 B4=2.6E+08*IM*EXP(-1*(TH/.4)^2)/F1: ' By mirror -670 BG=B1+B2+B3+B4: ' Glare brightness -680 ' Calculate effective background brightness -690 XX=1-.96*(SIN(Z/57.295))^2 -700 BN=180*(.4+.6/SQR(XX))/F1: ' Night sky -710 XX=10^(PH/1.571-1.1): IF XX<1 THEN XX=1 -720 BT=XX*10^(8.45+.4*HS)*(F1-1)/F1: ' Twilight sky -730 PM=10^5.36*(1.06+(COS(PH))^2): ' Mie scattering -740 PA=10^(1.65+1.43*PH): ' Aerosol scattering -750 XX=-.4*K/(SQR(1-.96*(SIN((90-HS)/57.295))^2)) -760 BD=11700*10^XX*(PM+PA)*(F1-1)/F1: ' Daytime sky -770 BS=BN+BT+BC: ' Sky brightness -780 IF BD1 THEN F6=1 -1010 F7=(1+.03*(M*ZE/RE)^2)/RS^2:'Resolving the star -1020 F8=10^(-.4*(1-.5*BV)): 'Color corr (night) -1030 IF BA>1480 THEN F8=1: 'Color corr (day) -1040 FI=F1*F2*F3*F4*F5*F6*F7*F8: 'Corr for intensities -1050 FB=M^2*F2*F3*F4*F5*F6*F8: 'For surface brightness -1060 ' Calculate limiting magnitude -1070 B=BA/FB: ' Perceived brightness -1080 ID=4.46E-09*(1+SQR(1.26E-06*B))^2: 'Day vision -1090 IN=1.59E-10*(1+SQR(.0126*B))^2: 'Night vision -1100 I=ID: IF IN0 THEN 40 -36 R=Q: V=0: GOTO 90 -38 REM -40 REM FIND TRUE ANOMALY -42 REM -44 Q1=K*SQR((1+E0)/Q)/(Q*2) -46 Q1=Q1*T -48 S=2/(3*ABS(Q1)) -50 X=2/TAN(2*ATN(TAN(ATN(S)/2)^C)) -52 IF T<0 THEN X=-X -54 G=(1-E0)/(1+E0): L0=0 -56 REM -58 X0=X: W=1: Y=X*X: G1=-Y*X -60 Q3=Q1+2*G*X*Y/3 -62 W=W+1 -64 G1=-G1*G*Y -66 W1=(W-(W+1)*G)/(2*W+1) -68 F=W1*G1 -70 Q3=Q3+F -72 IF W>50 OR ABS(F)>D1 THEN 96 -74 IF ABS(F)>D THEN 62 -76 L0=L0+1: IF L0>50 THEN 96 -78 X1=X: X=(2*X*X*X/3+Q3)/(X*X+1) -80 IF ABS(X-X1)>D THEN 78 -82 IF ABS(X-X0)>D THEN 58 -84 V=2*ATN(X) -86 R=Q*(1+E0)/(1+E0*COS(V)) -88 IF V<0 THEN V=V+2*P1 -90 PRINT "TRUE ANOMALY: ";V*R1 -92 PRINT "DISTANCE (AU): ";R -94 GOTO 98 -96 PRINT "NO CONVERGENCE" -98 END -99 REM ************************* -100 REM FROM SKY & TELESCOPE, -101 REM MAY, 1987, PAGE 535 -102 REM ************************ diff --git a/bwbtest/B15B/orbits.run b/bwbtest/B15B/orbits.run deleted file mode 100644 index 3f2dc2d..0000000 --- a/bwbtest/B15B/orbits.run +++ /dev/null @@ -1,6 +0,0 @@ -PERI DISTANCE Q ? 9876 -ECCENTRICITY ? 0.543 -DAYS FROM PERI ? 21 - -TRUE ANOMALY: 2.6196E-5 -DISTANCE (AU): 9876. diff --git a/bwbtest/B15B/path.INP b/bwbtest/B15B/path.INP deleted file mode 100644 index a8e188e..0000000 --- a/bwbtest/B15B/path.INP +++ /dev/null @@ -1,6 +0,0 @@ -AAA -MAR -2 -1,2.3,4.5 -31,6.7,8.9 -1 diff --git a/bwbtest/B15B/path.bas b/bwbtest/B15B/path.bas deleted file mode 100644 index 1c76e58..0000000 --- a/bwbtest/B15B/path.bas +++ /dev/null @@ -1,94 +0,0 @@ -100 REM TRACK A COMET -105 REM -110 GOSUB 485 -115 INPUT "NAME OF COMET";N$ -120 INPUT "MONTH (3 LETTERS)";M$ -125 INPUT "HOW MANY DATES (2-5)";L -130 PRINT "DAY, RA(H.M), DE(D.M):" -135 FOR I=1 TO L -140 INPUT " ";C(I,1),C(I,2),C(I,3) -145 D=C(I,2): GOSUB 430: C(I,2)=D -150 D=C(I,3): GOSUB 430: C(I,3)=D -155 NEXT I -160 INPUT "STARTING DATE";W -165 PRINT: PRINT N$ -170 FOR N4=1 TO 30 -175 IF W>C(L,1)+18 THEN 545 -180 PRINT: PRINT M$;W;TAB(13); -185 PRINT " RA(H.M) DE(D.M)" -190 X=W-2 -195 FOR J=1 TO 3 -200 X=X+1: Y=0: Z=0 -205 FOR N=1 TO L -210 S=1 -215 FOR K=1 TO L -220 IF K=N THEN 230 -225 S=S*(X-C(K,1))/(C(N,1)-C(K,1)) -230 NEXT K -235 Y=Y+S*C(N,2): Z=Z+S*C(N,3) -240 NEXT N -245 Q=M1+N1*SIN(Y*15*K9)*TAN(Z*K9) -250 Q=Y+Z3*Q -255 R=Z+15*Z3*N1*COS(Y*15*K9) -260 IF J<>2 THEN 305 -265 P=COS(R*K9) -270 D=Y: GOSUB 460 : Y1=D -275 D=Z: GOSUB 460 : Z1=D -280 D=Q: GOSUB 460 : Q1=D -285 D=R: GOSUB 460 : R1=D -290 PRINT Y0$;Y1;TAB(26);Z1 -295 PRINT Y1$;Q1;TAB(26);R1 -300 GOTO 315 -305 IF J<>1 THEN 315 -310 K1=Q: L1=R -315 NEXT J -320 Y=R-L1: REM DEGREES -325 X=(Q-K1)*P*15: REM DEGREES -330 R=SQR(X*X+Y*Y)/2: REM DEG/DAY -335 R=R*2.5 -340 PRINT " ARCSEC/MIN ";R -345 T=ATN(X/Y)/K9 -350 IF Y<0 THEN T=T+180 -355 IF T<0 THEN T=T+360 -360 T=INT(T+0.5) -365 PRINT " POS ANGLE ";T -370 Z6=R*U/143.24: Z=Z6: J=0 -375 Z=Z*2 -380 IF Z>8000 THEN 390 -385 J=J+1: IF J<=30 THEN 375 -390 J=J-5: Z=0.001*Z -395 PRINT " STEPS ";Z6;"HZ" -400 PRINT " RATIO ";J -405 PRINT " FREQ ";Z;" KHZ" -410 W=W+1 -415 NEXT N4 -420 GOTO 545 -425 REM -430 REM H.M --> HOURS -435 S1=SGN(D): D=ABS(D) -440 D1=INT(D): D2=D-D1 -445 D=S1*(D1+D2/0.6) -450 RETURN -455 REM -460 REM HOURS --> H.M -465 S1=SGN(D): D=ABS(D) -470 D1=INT(D): D2=D-D1 -475 D=S1*(D1+D2*0.6) -480 RETURN -485 REM CONSTANTS -490 DIM C(5,3) -495 U=178.27: REM FOCAL LENGTH -500 Y0=1950: REM INPUT EQUINOX -505 Y1=1987: REM CURRENT EQUINOX -510 Z3=Y1-Y0 -515 Y0$=" ("+STR$(Y0)+".0) " -520 Y1$=" ("+STR$(Y1)+".0) " -525 M1=0.0008538: N1=0.0003711 -530 P1=3.1415926536: K9=P1/180 -535 RETURN -536 REM ************************ -537 REM FROM "SKY & TELESCOPE" -538 REM ASTRONOMICAL COMPUTING -539 REM FEB. 1987, PAGE 196 -540 REM ************************ -545 END diff --git a/bwbtest/B15B/path.run b/bwbtest/B15B/path.run deleted file mode 100644 index 463f38d..0000000 --- a/bwbtest/B15B/path.run +++ /dev/null @@ -1,279 +0,0 @@ -NAME OF COMET? AAA -MONTH (3 LETTERS)? MAR -HOW MANY DATES (2-5)? 2 -DAY, RA(H.M), DE(D.M): - ? 1,2.3,4.5 - ? 31,6.7,8.9 -STARTING DATE? 1 - -AAA - -MAR 1 RA(H.M) DE(D.M) - ( 1950.0) 2.3 4.5 - ( 1987.0) 2.31938 4.59804 - ARCSEC/MIN 5.82557 - POS ANGLE 86 - STEPS 7.25024 HZ - RATIO 5 - FREQ 14.8485 KHZ - -MAR 2 RA(H.M) DE(D.M) - ( 1950.0) 2.39333 4.59333 - ( 1987.0) 2.41275 5.08823 - ARCSEC/MIN 5.82422 - POS ANGLE 86 - STEPS 7.24856 HZ - RATIO 5 - FREQ 14.8451 KHZ - -MAR 3 RA(H.M) DE(D.M) - ( 1950.0) 2.48667 5.08667 - ( 1987.0) 2.50612 5.17826 - ARCSEC/MIN 5.82283 - POS ANGLE 86 - STEPS 7.24683 HZ - RATIO 5 - FREQ 14.8415 KHZ - -MAR 4 RA(H.M) DE(D.M) - ( 1950.0) 2.58 5.18 - ( 1987.0) 2.59949 5.26814 - ARCSEC/MIN 5.8214 - POS ANGLE 86 - STEPS 7.24505 HZ - RATIO 5 - FREQ 14.8379 KHZ - -MAR 5 RA(H.M) DE(D.M) - ( 1950.0) 3.07333 5.27333 - ( 1987.0) 3.09286 5.35787 - ARCSEC/MIN 5.81992 - POS ANGLE 86 - STEPS 7.24321 HZ - RATIO 5 - FREQ 14.8341 KHZ - -MAR 6 RA(H.M) DE(D.M) - ( 1950.0) 3.16667 5.36667 - ( 1987.0) 3.18623 5.44747 - ARCSEC/MIN 5.8184 - POS ANGLE 86 - STEPS 7.24131 HZ - RATIO 5 - FREQ 14.8302 KHZ - -MAR 7 RA(H.M) DE(D.M) - ( 1950.0) 3.26 5.46 - ( 1987.0) 3.27961 5.53693 - ARCSEC/MIN 5.81683 - POS ANGLE 86 - STEPS 7.23937 HZ - RATIO 5 - FREQ 14.8262 KHZ - -MAR 8 RA(H.M) DE(D.M) - ( 1950.0) 3.35333 5.55333 - ( 1987.0) 3.37298 6.02626 - ARCSEC/MIN 5.81523 - POS ANGLE 86 - STEPS 7.23737 HZ - RATIO 5 - FREQ 14.8221 KHZ - -MAR 9 RA(H.M) DE(D.M) - ( 1950.0) 3.44667 6.04667 - ( 1987.0) 3.46635 6.11547 - ARCSEC/MIN 5.81358 - POS ANGLE 86 - STEPS 7.23532 HZ - RATIO 5 - FREQ 14.8179 KHZ - -MAR 10 RA(H.M) DE(D.M) - ( 1950.0) 3.54 6.14 - ( 1987.0) 3.55972 6.20457 - ARCSEC/MIN 5.81189 - POS ANGLE 86 - STEPS 7.23321 HZ - RATIO 5 - FREQ 14.8136 KHZ - -MAR 11 RA(H.M) DE(D.M) - ( 1950.0) 4.03333 6.23333 - ( 1987.0) 4.05309 6.29356 - ARCSEC/MIN 5.81015 - POS ANGLE 86 - STEPS 7.23105 HZ - RATIO 5 - FREQ 14.8092 KHZ - -MAR 12 RA(H.M) DE(D.M) - ( 1950.0) 4.12667 6.32667 - ( 1987.0) 4.14646 6.38245 - ARCSEC/MIN 5.80838 - POS ANGLE 86 - STEPS 7.22884 HZ - RATIO 5 - FREQ 14.8047 KHZ - -MAR 13 RA(H.M) DE(D.M) - ( 1950.0) 4.22 6.42 - ( 1987.0) 4.23984 6.47125 - ARCSEC/MIN 5.80656 - POS ANGLE 86 - STEPS 7.22658 HZ - RATIO 5 - FREQ 14.8 KHZ - -MAR 14 RA(H.M) DE(D.M) - ( 1950.0) 4.31333 6.51333 - ( 1987.0) 4.3332 6.55996 - ARCSEC/MIN 5.80469 - POS ANGLE 86 - STEPS 7.22426 HZ - RATIO 5 - FREQ 14.7953 KHZ - -MAR 15 RA(H.M) DE(D.M) - ( 1950.0) 4.40667 7.00667 - ( 1987.0) 4.42657 7.04859 - ARCSEC/MIN 5.80279 - POS ANGLE 86 - STEPS 7.22189 HZ - RATIO 5 - FREQ 14.7904 KHZ - -MAR 16 RA(H.M) DE(D.M) - ( 1950.0) 4.5 7.1 - ( 1987.0) 4.51994 7.13716 - ARCSEC/MIN 5.80084 - POS ANGLE 86 - STEPS 7.21946 HZ - RATIO 5 - FREQ 14.7855 KHZ - -MAR 17 RA(H.M) DE(D.M) - ( 1950.0) 4.59333 7.19333 - ( 1987.0) 5.01331 7.22566 - ARCSEC/MIN 5.79885 - POS ANGLE 86 - STEPS 7.21698 HZ - RATIO 5 - FREQ 14.7804 KHZ - -MAR 18 RA(H.M) DE(D.M) - ( 1950.0) 5.08667 7.28667 - ( 1987.0) 5.10668 7.31411 - ARCSEC/MIN 5.79682 - POS ANGLE 86 - STEPS 7.21445 HZ - RATIO 5 - FREQ 14.7752 KHZ - -MAR 19 RA(H.M) DE(D.M) - ( 1950.0) 5.18 7.38 - ( 1987.0) 5.20004 7.40252 - ARCSEC/MIN 5.79474 - POS ANGLE 86 - STEPS 7.21187 HZ - RATIO 5 - FREQ 14.7699 KHZ - -MAR 20 RA(H.M) DE(D.M) - ( 1950.0) 5.27333 7.47333 - ( 1987.0) 5.2934 7.49089 - ARCSEC/MIN 5.79262 - POS ANGLE 86 - STEPS 7.20923 HZ - RATIO 5 - FREQ 14.7645 KHZ - -MAR 21 RA(H.M) DE(D.M) - ( 1950.0) 5.36667 7.56667 - ( 1987.0) 5.38676 7.57923 - ARCSEC/MIN 5.79046 - POS ANGLE 86 - STEPS 7.20654 HZ - RATIO 5 - FREQ 14.759 KHZ - -MAR 22 RA(H.M) DE(D.M) - ( 1950.0) 5.46 8.06 - ( 1987.0) 5.48012 8.06754 - ARCSEC/MIN 5.78825 - POS ANGLE 86 - STEPS 7.2038 HZ - RATIO 5 - FREQ 14.7534 KHZ - -MAR 23 RA(H.M) DE(D.M) - ( 1950.0) 5.55333 8.15333 - ( 1987.0) 5.57348 8.15585 - ARCSEC/MIN 5.78601 - POS ANGLE 86 - STEPS 7.201 HZ - RATIO 5 - FREQ 14.7476 KHZ - -MAR 24 RA(H.M) DE(D.M) - ( 1950.0) 6.04667 8.24667 - ( 1987.0) 6.06684 8.24415 - ARCSEC/MIN 5.78372 - POS ANGLE 86 - STEPS 7.19815 HZ - RATIO 5 - FREQ 14.7418 KHZ - -MAR 25 RA(H.M) DE(D.M) - ( 1950.0) 6.14 8.34 - ( 1987.0) 6.16019 8.33246 - ARCSEC/MIN 5.78138 - POS ANGLE 86 - STEPS 7.19525 HZ - RATIO 5 - FREQ 14.7359 KHZ - -MAR 26 RA(H.M) DE(D.M) - ( 1950.0) 6.23333 8.43333 - ( 1987.0) 6.25355 8.42077 - ARCSEC/MIN 5.77901 - POS ANGLE 86 - STEPS 7.19229 HZ - RATIO 5 - FREQ 14.7298 KHZ - -MAR 27 RA(H.M) DE(D.M) - ( 1950.0) 6.32667 8.52667 - ( 1987.0) 6.34689 8.50911 - ARCSEC/MIN 5.77659 - POS ANGLE 86 - STEPS 7.18928 HZ - RATIO 5 - FREQ 14.7236 KHZ - -MAR 28 RA(H.M) DE(D.M) - ( 1950.0) 6.42 9.02 - ( 1987.0) 6.44024 8.59748 - ARCSEC/MIN 5.77413 - POS ANGLE 86 - STEPS 7.18622 HZ - RATIO 5 - FREQ 14.7174 KHZ - -MAR 29 RA(H.M) DE(D.M) - ( 1950.0) 6.51333 9.11333 - ( 1987.0) 6.53359 9.08589 - ARCSEC/MIN 5.77163 - POS ANGLE 86 - STEPS 7.1831 HZ - RATIO 5 - FREQ 14.711 KHZ - -MAR 30 RA(H.M) DE(D.M) - ( 1950.0) 7.00667 9.20667 - ( 1987.0) 7.02693 9.17434 - ARCSEC/MIN 5.76908 - POS ANGLE 86 - STEPS 7.17994 HZ - RATIO 5 - FREQ 14.7045 KHZ diff --git a/bwbtest/B15B/period.INP b/bwbtest/B15B/period.INP deleted file mode 100644 index d0da546..0000000 --- a/bwbtest/B15B/period.INP +++ /dev/null @@ -1,4 +0,0 @@ -31 -C -24 -11 diff --git a/bwbtest/B15B/period.bas b/bwbtest/B15B/period.bas deleted file mode 100644 index 40d44cd..0000000 --- a/bwbtest/B15B/period.bas +++ /dev/null @@ -1,76 +0,0 @@ -10 REM PERIOD SEARCH BY A DISCRETE FOURIER -20 REM TRANSFORM -- MARIA MITCHELL OBSERVATORY -25 REM -30 DIM X(100),Y(100) -40 GOSUB 360 -50 REM -60 REM ***************** THE DFT ***************** -70 REM -80 Z9=0: A5=0: F0=F1-F4: C0=(N-1)/(N*Q) -90 PRINT "TRIAL #";TAB(15);"PERIOD"; -100 PRINT TAB(30);"FREQUENCY";TAB(45);"STRENGTH" -110 FOR K=1 TO M -120 F=F0+K*F4: B=P2*F: C=0: S=0 -130 FOR I=1 TO N -140 A=B*X(I) -150 S=S+Y(I)*SIN(A): C=C+Y(I)*COS(A) -160 NEXT I -170 Z=(C*C+S*S)*C0: A5=A5+Z -180 IF Z<=Z9 THEN 200 -190 Z9=Z: F9=F: REM NEW MAXIMUM STRENGTH -200 IF Z rectangular -1020 SA=SIN(A0): CA=COS(A0) -1030 SD=SIN(D0): CD=COS(D0) -1040 X0=CA*CD: Y0=SA*CD: Z0=SD -1050 REM 3-D transformation -1060 X1=X0*XX+Y0*YX+Z0*ZX -1070 Y1=X0*XY+Y0*YY+Z0*ZY -1080 Z1=X0*XZ+Y0*YZ+Z0*ZZ -1090 REM Rectangular--> spherical -1100 A1=ATN(Y1/X1) -1110 IF X1<0 THEN A1=A1+P1 -1120 IF A1<0 THEN A1=A1+2*P1 -1130 A1=A1/(R1*15): REM Final R.A. -1140 D1=ATN(Z1/SQR(X1*X1+Y1*Y1)) -1150 D1=D1/R1: REM Final Dec. -1160 RETURN -2000 REM -2010 REM This program for pre- -2020 REM cessing a star's coor- -2030 REM dinates is described in -2040 REM Sky & Telescope for -2050 REM October, 1991, page 408. -2060 REM It was written by -2070 REM Zbigniew S. Krzeminski. diff --git a/bwbtest/B15B/precess.run b/bwbtest/B15B/precess.run deleted file mode 100644 index a80890a..0000000 --- a/bwbtest/B15B/precess.run +++ /dev/null @@ -1,21 +0,0 @@ -Initial epoch (yr)? 2000 -Final epoch (yr) ? 2015 -Initial epoch 2000 - R.A. (h,m,s)? 1,2,3 - Dec. (d,m,s)? 4,5,6 -Proper motion in - R.A. (sec/yr) ? 7 - Dec. (arcsec/yr)? 8 - -Final epoch 2015 - R.A. (h,m,s): 1 4 34.529 - Dec. (d,m,s): + 4 11 54.92 -Proper motion in - R.A. (sec/yr): 7.0009 - Dec. (arcsec/yr): 7.958 - -Select one: - (A)nother star - (N)ew final epoch - (Q)uit -? Q diff --git a/bwbtest/B15B/refr1.INP b/bwbtest/B15B/refr1.INP deleted file mode 100644 index f35605d..0000000 --- a/bwbtest/B15B/refr1.INP +++ /dev/null @@ -1,4 +0,0 @@ -7654 -87 -0.9 -54 diff --git a/bwbtest/B15B/refr1.bas b/bwbtest/B15B/refr1.bas deleted file mode 100644 index 915a4c6..0000000 --- a/bwbtest/B15B/refr1.bas +++ /dev/null @@ -1,129 +0,0 @@ -10 REM REFRACTION -20 REM -30 DEFSNG A-Z: REM <<<<< -40 INPUT "APPARENT ZENITH DIST";Z0 -50 INPUT "AIR TEMP (F) ";T0 -60 INPUT "REFR INDEX ";N0 -70 INPUT "HEIGHT (FEET)";H -80 R0=1: REM PLANET RADIUS -90 M=1: REM PLANET MASS -100 W=28.97: REM MOL WT OF AIR -105 P=3.14159: P2=1.5708 -106 RD=57.2957 -110 REM -120 REM CONVERT TO CGS UNITS -130 Z0=Z0/RD -140 H=H*30.48 -150 T0=(T0-32)/1.8+273.1 -160 W=W*1.665E-24 -170 R0=R0*6.378E+08 -180 M=M*5.976E+27 -190 REM -200 REM CALC ATMOS QUANTITIES AT R0 -210 G=6.67E-08*M/(R0*R0) -220 S=1.38E-16*T0/(G*W) -230 LA=-.4*W*G/1.38E-16 -240 GOSUB 350 -250 REM PRINT RESULTS -260 ZA=Z0*RD -270 ZR=(Z0+RF)*RD -280 RF=RF*3600*RD -290 PRINT "REFRACTION IS ";RF;" ARC SEC" -300 PRINT "PATHLENGTH IS ";AM;" AIR MASSES" -310 PRINT "APPAR ZENITH DIST ";ZA -320 PRINT "REAL ZENITH DIST ";ZR -330 END -340 REM -350 REM REFRACTION SUBR -360 REM -370 N=N0: DH=S/200: IF H<0 THEN DH=-DH -380 H1=0 -390 T=T1: GOSUB 1110: T1=T -400 IF (H1-H)/DH>=0 THEN 450 -410 H1=H1+DH: GOSUB 1110 -420 EX=-1-(T0/(S*LR)) -430 N=1+(N-1)*((T/T1)^EX) -440 T1=T: GOTO 400 -450 REM INITIALIZE PARAMETERS -460 RF=0: L=0: LZ=0: R=R0+H -470 L1=LR: Z=Z0 -480 REM -490 REM LAYER THICKNESS -500 IF R>R0+H+5*S THEN DR=S/10 -510 IF R<=R0+H+5*S THEN DR=S/20 -520 IF R<=R0+H+2*S THEN DR=S/50 -530 IF R<=R0+H+.2*S THEN DR=S/200 -540 F=1-DR/R: GOSUB 1170 : ZG=P-F -550 IF Z<=P2 THEN IN=1 -560 IF Z>P2 THEN IN=0 -570 IF Z>ZG THEN IN=-1 -580 REM INDEX OF REFR FOR SHELL -590 H1=R-R0: GOSUB 1110 -600 T1=T-L1*DR*IN -610 EX=-1-(T0/(S*L1)) -620 N=1+(N-1)*((T/T1)^EX) -630 L1=LR -640 IF IN=-1 THEN 690 -650 IF IN=0 THEN 840 -660 IF IN=1 THEN 940 -670 REM -680 REM -690 REM INWARD RAY -700 T1=T-LR*DR -710 N1=1+(N-1)*((T1/T)^EX) -720 T2=T-LR*DR*2 -730 N2=1+(N-1)*((T2/T)^EX) -740 F=SIN(Z)*R/(R-DR): GOSUB 1170 : A=P-F -750 L=L+(N1-1)*R*SIN(Z-A)/SIN(A) -760 IF SIN(A)>N2/N1 THEN 800 -770 F=SIN(A)*N1/N2: GOSUB 1170 : Z=P-F -780 RF=RF+(Z-A) -790 GOTO 820 -800 Z=P-A -810 RF=RF-(P-2*Z) -820 GOTO 1050 -830 REM -840 REM GRAZING RAY -850 T1=T-LR*DR -860 N1=1+(N-1)*((T1/T)^EX) -870 A=P-Z -880 L=L+(N1-1)*(-2)*R*COS(Z) -890 F=SIN(A)*N1/N: IF F>1 THEN F=1 -900 GOSUB 1170 : Z=F -910 RF=RF+(Z-A) -920 GOTO 1050 -930 REM -940 REM OUTGOING RAY -950 T2=T+LR*DR -960 N2=1+(N-1)*((T2/T)^EX) -970 F=SIN(Z)*R/(R+DR): GOSUB 1170 : A=F -980 L=L+(N-1)*R*SIN(Z-A)/SIN(A) -990 IF R>=R0+H THEN LZ=LZ+(N-1)*DR -1000 IF SIN(A)>N2/N THEN 1020 -1010 F=SIN(A)*N/N2: GOSUB 1170 : Z=F: GOTO 1030 -1020 Z=P-A -1030 RF=RF+(Z-A) -1040 REM -1050 REM END SUBROUTINE -1060 R=R+DR*IN -1070 IF R<=R0+8*S THEN 490 -1080 AM=L/LZ -1090 RETURN -1100 REM -1110 REM TEMPERATURE SUBR -1120 LR=.5*LA: T=T0+LR*H1 -1130 IF H1<=2*S THEN 1150 -1135 LR=-.16*LA -1140 T=T0+S*LA+LR*(H1-2*S) -1150 RETURN -1160 REM -1170 REM ARC SINE FUNCTION -1180 IF F<1 THEN 1200 -1190 F=P2: GOTO 1210 -1200 F=ATN(F/SQR(1-F*F)) -1210 RETURN -1220 REM -1230 REM ************************************ -1240 REM APPEARED IN ASTRONOMICAL COMPUTING -1250 REM SKY & TELESCOPE - MARCH 1989 ISSUE -1260 REM ************************************ diff --git a/bwbtest/B15B/refr1.run b/bwbtest/B15B/refr1.run deleted file mode 100644 index aae1f8a..0000000 --- a/bwbtest/B15B/refr1.run +++ /dev/null @@ -1,8 +0,0 @@ -APPARENT ZENITH DIST? 7654 -AIR TEMP (F) ? 87 -REFR INDEX ? 0.9 -HEIGHT (FEET)? 54 -REFRACTION IS -105902. ARC SEC -PATHLENGTH IS 5.594 AIR MASSES -APPAR ZENITH DIST 7654. -REAL ZENITH DIST 7624.58 diff --git a/bwbtest/B15B/rocket.INP b/bwbtest/B15B/rocket.INP deleted file mode 100644 index f6b91e0..0000000 --- a/bwbtest/B15B/rocket.INP +++ /dev/null @@ -1 +0,0 @@ -56 diff --git a/bwbtest/B15B/rocket.bas b/bwbtest/B15B/rocket.bas deleted file mode 100644 index fb65fdd..0000000 --- a/bwbtest/B15B/rocket.bas +++ /dev/null @@ -1,35 +0,0 @@ -10 REM ROCKET.BAS by Brian Tung -20 REM -30 DEFDBL A-Z -40 A=1.032: REM Earth gravity in light-years per year squared -50 INPUT "Distance in light-years (0-100 million)"; D -60 IF D>=0 AND D<=100000000 THEN 80 -70 PRINT "Distance must be between 0 and 100 million l-y": GOTO 50 -80 D1=D/2 -90 T=SQR(D1*D1+(2*D1/A)) -100 X=A*T -110 M=1: REM Lines 110-180 compute inverse sinh -120 IF X<0 THEN M=-1 -130 S=LOG(ABS(X)+1) -140 S1=S+1 -150 X1=(EXP(S)-EXP(-S))/2-ABS(X) -160 S1=X1/(EXP(S)+EXP(-S))/2 -170 S=S-S1 -180 IF ABS(S1)>.0000001 THEN 150 -190 T1=1/A*S*M -200 V=A*T/SQR(1+(A*T)*(A*T)) -210 PRINT USING "Time on Earth: #########.### years"; 2*T -220 PRINT USING "Time on board: #########.### years"; 2*T1 -230 Z$ = "Top speed: #.###" -240 IF D<1 THEN 280 -250 Z1=INT(2*LOG(D)/LOG(10)) -260 IF D>=1 AND D<10000000 THEN Z$=Z$+STRING$(Z1,"#") -270 IF D>=10000000 THEN Z$=Z$+"#############" -280 Z$=Z$+" c" -290 PRINT USING Z$; V -300 END -900 REM --------------------------- -910 REM APPEARED IN COMPUTERS IN -920 REM ASTRONOMY, SKY & TELESCOPE, -930 REM FEBRUARY 2002, PAGE 66 -940 REM --------------------------- diff --git a/bwbtest/B15B/rocket.run b/bwbtest/B15B/rocket.run deleted file mode 100644 index e1b352e..0000000 --- a/bwbtest/B15B/rocket.run +++ /dev/null @@ -1,4 +0,0 @@ -Distance in light-years (0-100 million)? 56 -Time on Earth: 57.906 years -Time on board: 7.928 years -Top speed: 0.999440 c diff --git a/bwbtest/B15B/rotate.INP b/bwbtest/B15B/rotate.INP deleted file mode 100644 index 10a7326..0000000 --- a/bwbtest/B15B/rotate.INP +++ /dev/null @@ -1,7 +0,0 @@ -147 -6 -3 -9,54 -76 -7,54 -6,43 diff --git a/bwbtest/B15B/rotate.bas b/bwbtest/B15B/rotate.bas deleted file mode 100644 index 791ad6a..0000000 --- a/bwbtest/B15B/rotate.bas +++ /dev/null @@ -1,81 +0,0 @@ -10 ' FIELD ROTATION -20 ' -30 ' PI=ATN(1)*4: -31 DR=PI/180: RD=180/PI -40 INPUT "Observer's latitude (deg) ";LA -50 LA=LA*DR: CL=COS(LA): SL=SIN(LA) -60 INPUT "Day of the month (1-31)";J -70 INPUT "Month (1-12) ";M -80 INPUT "Right ascension (h,m) ";H5,M5 -90 INPUT "Declination (deg) ";DE -100 AD=H5+M5/60: DE=DE*DR: ' Hours and radians -110 SD=SIN(DE): CD=COS(DE): TD=SD/CD -120 GOSUB 650: PRINT -130 INPUT "From (h,m): ";H1,M1 -140 T1=H1+M1/60: ' Starting time (hours) -150 INPUT "To (h,m): ";H2,M2 -160 T2=H2+M2/60: ' Ending time (hours) -170 IF T20 THEN 270 -260 C=SGN(DD)*PI/2: GOTO 280: ' In case DS=0 -270 C=ATN(DD/DS): IF DS<0 THEN C=C+PI -280 Q=C*RD: ' Parallactic angle in degrees -290 IF T<>0 THEN 310 -300 Q0=Q: Q1=Q: ' Save initial value of Q -310 XX=Q-Q1: XT=Q-Q0 -320 IF ABS(XX)<=180 THEN 340 -330 XX=XX-360*SGN(XX): Q=Q-360*SGN(Q) -340 Q1=Q -350 IF T<>0 THEN GOSUB 470 -360 IF T=0 THEN GOSUB 700 -370 IF XT>MX THEN MX=XT -380 IF XT=24 THEN LT=LT-24 -480 PRINT USING " ##h ##m ";INT(LT);(LT-INT(LT))*60; -490 PRINT USING " Rotation +###.## deg/min ";XX -500 RETURN -510 ' Compute hour angle, altitude, and azimuth -520 HD=15*(1.002737*LT+ST-AD): ' Hour angle (deg) -530 IF HD>=360 THEN HD=HD-360 -540 AH=HD*DR: CH=COS(AH): SA=SL*SD+CL*CD*CH -550 IF ABS(SA)<1 THEN 580 -560 IF ABS(SA)>1 THEN SA=1*SGN(SA) -570 H=SA*90: GOTO 590: ' If zenith or nadir -580 H=ATN(SA/SQR(1-SA*SA))*RD: ' Altitude (degrees) -590 A1=SIN(AH): A2=CH*SL-TD*CL: IF A2<>0 THEN 610 -600 AZ=SGN(A1)*PI/2: GOTO 620: ' Special case A2=0 -610 AZ=ATN(A1/A2): IF A2<0 THEN AZ=AZ+PI -620 AZ=AZ*RD+180: ' Azimuth in degrees from north -630 IF AZ>=360 THEN AZ=AZ-360 -640 RETURN -650 ' Find approx. sidereal time at midnight -660 N=INT(275*M/9)-2*INT((M+9)/12)+J-30 -670 ST=(6.61+.06571*N)/24 -680 ST=(ST-INT(ST))*24: ' Express in hours -690 RETURN -700 ' Initialize values -710 MX=XX: MN=XX: A0=A: H0=H -720 RETURN -800 ' -810 ' ROTATE.BAS -- This program by Alphonse -820 ' Pouplier computes the rate at which -830 ' the field will rotate for a telescope -840 ' whose polar axis is misaligned on the -850 ' celestial pole. This subject is discussed -860 ' in detail in Sky & Telescope, September -870 ' 1992, page 318. diff --git a/bwbtest/B15B/rotate.run b/bwbtest/B15B/rotate.run deleted file mode 100644 index b476ee4..0000000 --- a/bwbtest/B15B/rotate.run +++ /dev/null @@ -1,1384 +0,0 @@ -Observer's latitude (deg) ? 147 -Day of the month (1-31)? 6 -Month (1-12) ? 3 -Right ascension (h,m) ? 9,54 -Declination (deg) ? 76 - -From (h,m): ? 7,54 -To (h,m): ? 6,43 - -Positive rotation rates are clockwise: - 7h 55m Rotation -0.27 deg/min - 7h 56m Rotation -0.28 deg/min - 7h 57m Rotation -0.28 deg/min - 7h 58m Rotation -0.28 deg/min - 7h 59m Rotation -0.28 deg/min - 8h 0m Rotation -0.28 deg/min - 8h 1m Rotation -0.28 deg/min - 8h 2m Rotation -0.28 deg/min - 8h 3m Rotation -0.28 deg/min - 8h 4m Rotation -0.28 deg/min - 8h 5m Rotation -0.28 deg/min - 8h 6m Rotation -0.28 deg/min - 8h 7m Rotation -0.28 deg/min - 8h 8m Rotation -0.28 deg/min - 8h 9m Rotation -0.28 deg/min - 8h 10m Rotation -0.28 deg/min - 8h 11m Rotation -0.28 deg/min - 8h 12m Rotation -0.28 deg/min - 8h 13m Rotation -0.28 deg/min - 8h 14m Rotation -0.28 deg/min - 8h 15m Rotation -0.28 deg/min - 8h 16m Rotation -0.28 deg/min - 8h 17m Rotation -0.28 deg/min - 8h 18m Rotation -0.28 deg/min - 8h 19m Rotation -0.28 deg/min - 8h 20m Rotation -0.28 deg/min - 8h 21m Rotation -0.28 deg/min - 8h 22m Rotation -0.28 deg/min - 8h 23m Rotation -0.28 deg/min - 8h 24m Rotation -0.28 deg/min - 8h 25m Rotation -0.28 deg/min - 8h 26m Rotation -0.28 deg/min - 8h 27m Rotation -0.28 deg/min - 8h 28m Rotation -0.28 deg/min - 8h 29m Rotation -0.28 deg/min - 8h 30m Rotation -0.28 deg/min - 8h 31m Rotation -0.28 deg/min - 8h 32m Rotation -0.28 deg/min - 8h 33m Rotation -0.28 deg/min - 8h 34m Rotation -0.29 deg/min - 8h 35m Rotation -0.29 deg/min - 8h 36m Rotation -0.29 deg/min - 8h 37m Rotation -0.29 deg/min - 8h 38m Rotation -0.29 deg/min - 8h 39m Rotation -0.29 deg/min - 8h 40m Rotation -0.29 deg/min - 8h 41m Rotation -0.29 deg/min - 8h 42m Rotation -0.29 deg/min - 8h 43m Rotation -0.29 deg/min - 8h 44m Rotation -0.29 deg/min - 8h 45m Rotation -0.29 deg/min - 8h 46m Rotation -0.29 deg/min - 8h 47m Rotation -0.29 deg/min - 8h 48m Rotation -0.29 deg/min - 8h 49m Rotation -0.29 deg/min - 8h 50m Rotation -0.29 deg/min - 8h 51m Rotation -0.29 deg/min - 8h 52m Rotation -0.29 deg/min - 8h 53m Rotation -0.29 deg/min - 8h 54m Rotation -0.29 deg/min - 8h 55m Rotation -0.29 deg/min - 8h 56m Rotation -0.29 deg/min - 8h 57m Rotation -0.29 deg/min - 8h 58m Rotation -0.29 deg/min - 8h 59m Rotation -0.29 deg/min - 9h 0m Rotation -0.29 deg/min - 9h 1m Rotation -0.29 deg/min - 9h 2m Rotation -0.29 deg/min - 9h 3m Rotation -0.29 deg/min - 9h 4m Rotation -0.29 deg/min - 9h 5m Rotation -0.29 deg/min - 9h 6m Rotation -0.29 deg/min - 9h 7m Rotation -0.29 deg/min - 9h 8m Rotation -0.29 deg/min - 9h 9m Rotation -0.29 deg/min - 9h 10m Rotation -0.29 deg/min - 9h 11m Rotation -0.29 deg/min - 9h 12m Rotation -0.29 deg/min - 9h 13m Rotation -0.29 deg/min - 9h 14m Rotation -0.30 deg/min - 9h 15m Rotation -0.30 deg/min - 9h 16m Rotation -0.30 deg/min - 9h 17m Rotation -0.30 deg/min - 9h 18m Rotation -0.30 deg/min - 9h 19m Rotation -0.30 deg/min - 9h 20m Rotation -0.30 deg/min - 9h 21m Rotation -0.30 deg/min - 9h 22m Rotation -0.30 deg/min - 9h 23m Rotation -0.30 deg/min - 9h 24m Rotation -0.30 deg/min - 9h 25m Rotation -0.30 deg/min - 9h 26m Rotation -0.30 deg/min - 9h 27m Rotation -0.30 deg/min - 9h 28m Rotation -0.30 deg/min - 9h 29m Rotation -0.30 deg/min - 9h 30m Rotation -0.30 deg/min - 9h 31m Rotation -0.30 deg/min - 9h 32m Rotation -0.30 deg/min - 9h 33m Rotation -0.30 deg/min - 9h 34m Rotation -0.30 deg/min - 9h 35m Rotation -0.30 deg/min - 9h 36m Rotation -0.30 deg/min - 9h 37m Rotation -0.30 deg/min - 9h 38m Rotation -0.30 deg/min - 9h 39m Rotation -0.30 deg/min - 9h 40m Rotation -0.30 deg/min - 9h 41m Rotation -0.30 deg/min - 9h 42m Rotation -0.30 deg/min - 9h 43m Rotation -0.30 deg/min - 9h 44m Rotation -0.30 deg/min - 9h 45m Rotation -0.30 deg/min - 9h 46m Rotation -0.30 deg/min - 9h 47m Rotation -0.30 deg/min - 9h 48m Rotation -0.30 deg/min - 9h 49m Rotation -0.30 deg/min - 9h 50m Rotation -0.30 deg/min - 9h 51m Rotation -0.30 deg/min - 9h 52m Rotation -0.30 deg/min - 9h 53m Rotation -0.30 deg/min - 9h 54m Rotation -0.30 deg/min - 9h 55m Rotation -0.30 deg/min - 9h 56m Rotation -0.30 deg/min - 9h 57m Rotation -0.30 deg/min - 9h 58m Rotation -0.30 deg/min - 9h 59m Rotation -0.30 deg/min - 10h 0m Rotation -0.30 deg/min - 10h 1m Rotation -0.30 deg/min - 10h 2m Rotation -0.30 deg/min - 10h 3m Rotation -0.30 deg/min - 10h 4m Rotation -0.30 deg/min - 10h 5m Rotation -0.30 deg/min - 10h 6m Rotation -0.30 deg/min - 10h 7m Rotation -0.30 deg/min - 10h 8m Rotation -0.30 deg/min - 10h 9m Rotation -0.30 deg/min - 10h 10m Rotation -0.31 deg/min - 10h 11m Rotation -0.31 deg/min - 10h 12m Rotation -0.31 deg/min - 10h 13m Rotation -0.31 deg/min - 10h 14m Rotation -0.31 deg/min - 10h 15m Rotation -0.31 deg/min - 10h 16m Rotation -0.31 deg/min - 10h 17m Rotation -0.31 deg/min - 10h 18m Rotation -0.31 deg/min - 10h 19m Rotation -0.31 deg/min - 10h 20m Rotation -0.31 deg/min - 10h 21m Rotation -0.31 deg/min - 10h 22m Rotation -0.31 deg/min - 10h 23m Rotation -0.31 deg/min - 10h 24m Rotation -0.31 deg/min - 10h 25m Rotation -0.31 deg/min - 10h 26m Rotation -0.31 deg/min - 10h 27m Rotation -0.31 deg/min - 10h 28m Rotation -0.31 deg/min - 10h 29m Rotation -0.31 deg/min - 10h 30m Rotation -0.31 deg/min - 10h 31m Rotation -0.31 deg/min - 10h 32m Rotation -0.31 deg/min - 10h 33m Rotation -0.31 deg/min - 10h 34m Rotation -0.31 deg/min - 10h 35m Rotation -0.31 deg/min - 10h 36m Rotation -0.31 deg/min - 10h 37m Rotation -0.31 deg/min - 10h 38m Rotation -0.31 deg/min - 10h 39m Rotation -0.31 deg/min - 10h 40m Rotation -0.31 deg/min - 10h 41m Rotation -0.31 deg/min - 10h 42m Rotation -0.31 deg/min - 10h 43m Rotation -0.31 deg/min - 10h 44m Rotation -0.31 deg/min - 10h 45m Rotation -0.31 deg/min - 10h 46m Rotation -0.31 deg/min - 10h 47m Rotation -0.31 deg/min - 10h 48m Rotation -0.31 deg/min - 10h 49m Rotation -0.31 deg/min - 10h 50m Rotation -0.31 deg/min - 10h 51m Rotation -0.31 deg/min - 10h 52m Rotation -0.31 deg/min - 10h 53m Rotation -0.31 deg/min - 10h 54m Rotation -0.31 deg/min - 10h 55m Rotation -0.31 deg/min - 10h 56m Rotation -0.31 deg/min - 10h 57m Rotation -0.31 deg/min - 10h 58m Rotation -0.31 deg/min - 10h 59m Rotation -0.31 deg/min - 11h 0m Rotation -0.31 deg/min - 11h 1m Rotation -0.31 deg/min - 11h 2m Rotation -0.31 deg/min - 11h 3m Rotation -0.31 deg/min - 11h 4m Rotation -0.31 deg/min - 11h 5m Rotation -0.31 deg/min - 11h 6m Rotation -0.31 deg/min - 11h 7m Rotation -0.31 deg/min - 11h 8m Rotation -0.31 deg/min - 11h 9m Rotation -0.31 deg/min - 11h 10m Rotation -0.31 deg/min - 11h 11m Rotation -0.31 deg/min - 11h 12m Rotation -0.31 deg/min - 11h 13m Rotation -0.31 deg/min - 11h 14m Rotation -0.31 deg/min - 11h 15m Rotation -0.31 deg/min - 11h 16m Rotation -0.31 deg/min - 11h 17m Rotation -0.31 deg/min - 11h 18m Rotation -0.31 deg/min - 11h 19m Rotation -0.31 deg/min - 11h 20m Rotation -0.31 deg/min - 11h 21m Rotation -0.31 deg/min - 11h 22m Rotation -0.31 deg/min - 11h 23m Rotation -0.31 deg/min - 11h 24m Rotation -0.31 deg/min - 11h 25m Rotation -0.31 deg/min - 11h 26m Rotation -0.31 deg/min - 11h 27m Rotation -0.31 deg/min - 11h 28m Rotation -0.31 deg/min - 11h 29m Rotation -0.31 deg/min - 11h 30m Rotation -0.31 deg/min - 11h 31m Rotation -0.31 deg/min - 11h 32m Rotation -0.31 deg/min - 11h 33m Rotation -0.31 deg/min - 11h 34m Rotation -0.31 deg/min - 11h 35m Rotation -0.31 deg/min - 11h 36m Rotation -0.31 deg/min - 11h 37m Rotation -0.31 deg/min - 11h 38m Rotation -0.31 deg/min - 11h 39m Rotation -0.31 deg/min - 11h 40m Rotation -0.31 deg/min - 11h 41m Rotation -0.31 deg/min - 11h 42m Rotation -0.31 deg/min - 11h 43m Rotation -0.31 deg/min - 11h 44m Rotation -0.31 deg/min - 11h 45m Rotation -0.31 deg/min - 11h 46m Rotation -0.31 deg/min - 11h 47m Rotation -0.31 deg/min - 11h 48m Rotation -0.31 deg/min - 11h 49m Rotation -0.31 deg/min - 11h 50m Rotation -0.31 deg/min - 11h 51m Rotation -0.30 deg/min - 11h 52m Rotation -0.30 deg/min - 11h 53m Rotation -0.30 deg/min - 11h 54m Rotation -0.30 deg/min - 11h 55m Rotation -0.30 deg/min - 11h 56m Rotation -0.30 deg/min - 11h 57m Rotation -0.30 deg/min - 11h 58m Rotation -0.30 deg/min - 11h 59m Rotation -0.30 deg/min - 12h 0m Rotation -0.30 deg/min - 12h 1m Rotation -0.30 deg/min - 12h 2m Rotation -0.30 deg/min - 12h 3m Rotation -0.30 deg/min - 12h 4m Rotation -0.30 deg/min - 12h 5m Rotation -0.30 deg/min - 12h 6m Rotation -0.30 deg/min - 12h 7m Rotation -0.30 deg/min - 12h 8m Rotation -0.30 deg/min - 12h 9m Rotation -0.30 deg/min - 12h 10m Rotation -0.30 deg/min - 12h 11m Rotation -0.30 deg/min - 12h 12m Rotation -0.30 deg/min - 12h 13m Rotation -0.30 deg/min - 12h 14m Rotation -0.30 deg/min - 12h 15m Rotation -0.30 deg/min - 12h 16m Rotation -0.30 deg/min - 12h 17m Rotation -0.30 deg/min - 12h 18m Rotation -0.30 deg/min - 12h 19m Rotation -0.30 deg/min - 12h 20m Rotation -0.30 deg/min - 12h 21m Rotation -0.30 deg/min - 12h 22m Rotation -0.30 deg/min - 12h 23m Rotation -0.30 deg/min - 12h 24m Rotation -0.30 deg/min - 12h 25m Rotation -0.30 deg/min - 12h 26m Rotation -0.30 deg/min - 12h 27m Rotation -0.30 deg/min - 12h 28m Rotation -0.30 deg/min - 12h 29m Rotation -0.30 deg/min - 12h 30m Rotation -0.30 deg/min - 12h 31m Rotation -0.30 deg/min - 12h 32m Rotation -0.30 deg/min - 12h 33m Rotation -0.30 deg/min - 12h 34m Rotation -0.30 deg/min - 12h 35m Rotation -0.30 deg/min - 12h 36m Rotation -0.30 deg/min - 12h 37m Rotation -0.30 deg/min - 12h 38m Rotation -0.30 deg/min - 12h 39m Rotation -0.30 deg/min - 12h 40m Rotation -0.30 deg/min - 12h 41m Rotation -0.30 deg/min - 12h 42m Rotation -0.30 deg/min - 12h 43m Rotation -0.30 deg/min - 12h 44m Rotation -0.30 deg/min - 12h 45m Rotation -0.30 deg/min - 12h 46m Rotation -0.29 deg/min - 12h 47m Rotation -0.29 deg/min - 12h 48m Rotation -0.29 deg/min - 12h 49m Rotation -0.29 deg/min - 12h 50m Rotation -0.29 deg/min - 12h 51m Rotation -0.29 deg/min - 12h 52m Rotation -0.29 deg/min - 12h 53m Rotation -0.29 deg/min - 12h 54m Rotation -0.29 deg/min - 12h 55m Rotation -0.29 deg/min - 12h 56m Rotation -0.29 deg/min - 12h 57m Rotation -0.29 deg/min - 12h 58m Rotation -0.29 deg/min - 12h 59m Rotation -0.29 deg/min - 13h 0m Rotation -0.29 deg/min - 13h 1m Rotation -0.29 deg/min - 13h 2m Rotation -0.29 deg/min - 13h 3m Rotation -0.29 deg/min - 13h 4m Rotation -0.29 deg/min - 13h 5m Rotation -0.29 deg/min - 13h 6m Rotation -0.29 deg/min - 13h 7m Rotation -0.29 deg/min - 13h 8m Rotation -0.29 deg/min - 13h 9m Rotation -0.29 deg/min - 13h 10m Rotation -0.29 deg/min - 13h 11m Rotation -0.29 deg/min - 13h 12m Rotation -0.29 deg/min - 13h 13m Rotation -0.29 deg/min - 13h 14m Rotation -0.29 deg/min - 13h 15m Rotation -0.29 deg/min - 13h 16m Rotation -0.29 deg/min - 13h 17m Rotation -0.29 deg/min - 13h 18m Rotation -0.29 deg/min - 13h 19m Rotation -0.29 deg/min - 13h 20m Rotation -0.29 deg/min - 13h 21m Rotation -0.29 deg/min - 13h 22m Rotation -0.29 deg/min - 13h 23m Rotation -0.29 deg/min - 13h 24m Rotation -0.29 deg/min - 13h 25m Rotation -0.29 deg/min - 13h 26m Rotation -0.29 deg/min - 13h 27m Rotation -0.28 deg/min - 13h 28m Rotation -0.28 deg/min - 13h 29m Rotation -0.28 deg/min - 13h 30m Rotation -0.28 deg/min - 13h 31m Rotation -0.28 deg/min - 13h 32m Rotation -0.28 deg/min - 13h 33m Rotation -0.28 deg/min - 13h 34m Rotation -0.28 deg/min - 13h 35m Rotation -0.28 deg/min - 13h 36m Rotation -0.28 deg/min - 13h 37m Rotation -0.28 deg/min - 13h 38m Rotation -0.28 deg/min - 13h 39m Rotation -0.28 deg/min - 13h 40m Rotation -0.28 deg/min - 13h 41m Rotation -0.28 deg/min - 13h 42m Rotation -0.28 deg/min - 13h 43m Rotation -0.28 deg/min - 13h 44m Rotation -0.28 deg/min - 13h 45m Rotation -0.28 deg/min - 13h 46m Rotation -0.28 deg/min - 13h 47m Rotation -0.28 deg/min - 13h 48m Rotation -0.28 deg/min - 13h 49m Rotation -0.28 deg/min - 13h 50m Rotation -0.28 deg/min - 13h 51m Rotation -0.28 deg/min - 13h 52m Rotation -0.28 deg/min - 13h 53m Rotation -0.28 deg/min - 13h 54m Rotation -0.28 deg/min - 13h 55m Rotation -0.28 deg/min - 13h 56m Rotation -0.28 deg/min - 13h 57m Rotation -0.28 deg/min - 13h 58m Rotation -0.28 deg/min - 13h 59m Rotation -0.28 deg/min - 14h 0m Rotation -0.28 deg/min - 14h 1m Rotation -0.28 deg/min - 14h 2m Rotation -0.28 deg/min - 14h 3m Rotation -0.28 deg/min - 14h 4m Rotation -0.27 deg/min - 14h 5m Rotation -0.27 deg/min - 14h 6m Rotation -0.27 deg/min - 14h 7m Rotation -0.27 deg/min - 14h 8m Rotation -0.27 deg/min - 14h 9m Rotation -0.27 deg/min - 14h 10m Rotation -0.27 deg/min - 14h 11m Rotation -0.27 deg/min - 14h 12m Rotation -0.27 deg/min - 14h 13m Rotation -0.27 deg/min - 14h 14m Rotation -0.27 deg/min - 14h 15m Rotation -0.27 deg/min - 14h 16m Rotation -0.27 deg/min - 14h 17m Rotation -0.27 deg/min - 14h 18m Rotation -0.27 deg/min - 14h 19m Rotation -0.27 deg/min - 14h 20m Rotation -0.27 deg/min - 14h 21m Rotation -0.27 deg/min - 14h 22m Rotation -0.27 deg/min - 14h 23m Rotation -0.27 deg/min - 14h 24m Rotation -0.27 deg/min - 14h 25m Rotation -0.27 deg/min - 14h 26m Rotation -0.27 deg/min - 14h 27m Rotation -0.27 deg/min - 14h 28m Rotation -0.27 deg/min - 14h 29m Rotation -0.27 deg/min - 14h 30m Rotation -0.27 deg/min - 14h 31m Rotation -0.27 deg/min - 14h 32m Rotation -0.27 deg/min - 14h 33m Rotation -0.27 deg/min - 14h 34m Rotation -0.27 deg/min - 14h 35m Rotation -0.27 deg/min - 14h 36m Rotation -0.27 deg/min - 14h 37m Rotation -0.27 deg/min - 14h 38m Rotation -0.27 deg/min - 14h 39m Rotation -0.27 deg/min - 14h 40m Rotation -0.27 deg/min - 14h 41m Rotation -0.27 deg/min - 14h 42m Rotation -0.26 deg/min - 14h 43m Rotation -0.26 deg/min - 14h 44m Rotation -0.26 deg/min - 14h 45m Rotation -0.26 deg/min - 14h 46m Rotation -0.26 deg/min - 14h 47m Rotation -0.26 deg/min - 14h 48m Rotation -0.26 deg/min - 14h 49m Rotation -0.26 deg/min - 14h 50m Rotation -0.26 deg/min - 14h 51m Rotation -0.26 deg/min - 14h 52m Rotation -0.26 deg/min - 14h 53m Rotation -0.26 deg/min - 14h 54m Rotation -0.26 deg/min - 14h 55m Rotation -0.26 deg/min - 14h 56m Rotation -0.26 deg/min - 14h 57m Rotation -0.26 deg/min - 14h 58m Rotation -0.26 deg/min - 14h 59m Rotation -0.26 deg/min - 15h 0m Rotation -0.26 deg/min - 15h 1m Rotation -0.26 deg/min - 15h 2m Rotation -0.26 deg/min - 15h 3m Rotation -0.26 deg/min - 15h 4m Rotation -0.26 deg/min - 15h 5m Rotation -0.26 deg/min - 15h 6m Rotation -0.26 deg/min - 15h 7m Rotation -0.26 deg/min - 15h 8m Rotation -0.26 deg/min - 15h 9m Rotation -0.26 deg/min - 15h 10m Rotation -0.26 deg/min - 15h 11m Rotation -0.26 deg/min - 15h 12m Rotation -0.26 deg/min - 15h 13m Rotation -0.26 deg/min - 15h 14m Rotation -0.26 deg/min - 15h 15m Rotation -0.26 deg/min - 15h 16m Rotation -0.26 deg/min - 15h 17m Rotation -0.26 deg/min - 15h 18m Rotation -0.26 deg/min - 15h 19m Rotation -0.26 deg/min - 15h 20m Rotation -0.26 deg/min - 15h 21m Rotation -0.26 deg/min - 15h 22m Rotation -0.26 deg/min - 15h 23m Rotation -0.26 deg/min - 15h 24m Rotation -0.25 deg/min - 15h 25m Rotation -0.25 deg/min - 15h 26m Rotation -0.25 deg/min - 15h 27m Rotation -0.25 deg/min - 15h 28m Rotation -0.25 deg/min - 15h 29m Rotation -0.25 deg/min - 15h 30m Rotation -0.25 deg/min - 15h 31m Rotation -0.25 deg/min - 15h 32m Rotation -0.25 deg/min - 15h 33m Rotation -0.25 deg/min - 15h 34m Rotation -0.25 deg/min - 15h 35m Rotation -0.25 deg/min - 15h 36m Rotation -0.25 deg/min - 15h 37m Rotation -0.25 deg/min - 15h 38m Rotation -0.25 deg/min - 15h 39m Rotation -0.25 deg/min - 15h 40m Rotation -0.25 deg/min - 15h 41m Rotation -0.25 deg/min - 15h 42m Rotation -0.25 deg/min - 15h 43m Rotation -0.25 deg/min - 15h 44m Rotation -0.25 deg/min - 15h 45m Rotation -0.25 deg/min - 15h 46m Rotation -0.25 deg/min - 15h 47m Rotation -0.25 deg/min - 15h 48m Rotation -0.25 deg/min - 15h 49m Rotation -0.25 deg/min - 15h 50m Rotation -0.25 deg/min - 15h 51m Rotation -0.25 deg/min - 15h 52m Rotation -0.25 deg/min - 15h 53m Rotation -0.25 deg/min - 15h 54m Rotation -0.25 deg/min - 15h 55m Rotation -0.25 deg/min - 15h 56m Rotation -0.25 deg/min - 15h 57m Rotation -0.25 deg/min - 15h 58m Rotation -0.25 deg/min - 15h 59m Rotation -0.25 deg/min - 16h 0m Rotation -0.25 deg/min - 16h 1m Rotation -0.25 deg/min - 16h 2m Rotation -0.25 deg/min - 16h 3m Rotation -0.25 deg/min - 16h 4m Rotation -0.25 deg/min - 16h 5m Rotation -0.25 deg/min - 16h 6m Rotation -0.25 deg/min - 16h 7m Rotation -0.25 deg/min - 16h 8m Rotation -0.25 deg/min - 16h 9m Rotation -0.25 deg/min - 16h 10m Rotation -0.25 deg/min - 16h 11m Rotation -0.25 deg/min - 16h 12m Rotation -0.24 deg/min - 16h 13m Rotation -0.24 deg/min - 16h 14m Rotation -0.24 deg/min - 16h 15m Rotation -0.24 deg/min - 16h 16m Rotation -0.24 deg/min - 16h 17m Rotation -0.24 deg/min - 16h 18m Rotation -0.24 deg/min - 16h 19m Rotation -0.24 deg/min - 16h 20m Rotation -0.24 deg/min - 16h 21m Rotation -0.24 deg/min - 16h 22m Rotation -0.24 deg/min - 16h 23m Rotation -0.24 deg/min - 16h 24m Rotation -0.24 deg/min - 16h 25m Rotation -0.24 deg/min - 16h 26m Rotation -0.24 deg/min - 16h 27m Rotation -0.24 deg/min - 16h 28m Rotation -0.24 deg/min - 16h 29m Rotation -0.24 deg/min - 16h 30m Rotation -0.24 deg/min - 16h 31m Rotation -0.24 deg/min - 16h 32m Rotation -0.24 deg/min - 16h 33m Rotation -0.24 deg/min - 16h 34m Rotation -0.24 deg/min - 16h 35m Rotation -0.24 deg/min - 16h 36m Rotation -0.24 deg/min - 16h 37m Rotation -0.24 deg/min - 16h 38m Rotation -0.24 deg/min - 16h 39m Rotation -0.24 deg/min - 16h 40m Rotation -0.24 deg/min - 16h 41m Rotation -0.24 deg/min - 16h 42m Rotation -0.24 deg/min - 16h 43m Rotation -0.24 deg/min - 16h 44m Rotation -0.24 deg/min - 16h 45m Rotation -0.24 deg/min - 16h 46m Rotation -0.24 deg/min - 16h 47m Rotation -0.24 deg/min - 16h 48m Rotation -0.24 deg/min - 16h 49m Rotation -0.24 deg/min - 16h 50m Rotation -0.24 deg/min - 16h 51m Rotation -0.24 deg/min - 16h 52m Rotation -0.24 deg/min - 16h 53m Rotation -0.24 deg/min - 16h 54m Rotation -0.24 deg/min - 16h 55m Rotation -0.24 deg/min - 16h 56m Rotation -0.24 deg/min - 16h 57m Rotation -0.24 deg/min - 16h 58m Rotation -0.24 deg/min - 16h 59m Rotation -0.24 deg/min - 17h 0m Rotation -0.24 deg/min - 17h 1m Rotation -0.24 deg/min - 17h 2m Rotation -0.24 deg/min - 17h 3m Rotation -0.24 deg/min - 17h 4m Rotation -0.24 deg/min - 17h 5m Rotation -0.24 deg/min - 17h 6m Rotation -0.24 deg/min - 17h 7m Rotation -0.24 deg/min - 17h 8m Rotation -0.24 deg/min - 17h 9m Rotation -0.24 deg/min - 17h 10m Rotation -0.24 deg/min - 17h 11m Rotation -0.24 deg/min - 17h 12m Rotation -0.24 deg/min - 17h 13m Rotation -0.24 deg/min - 17h 14m Rotation -0.24 deg/min - 17h 15m Rotation -0.24 deg/min - 17h 16m Rotation -0.24 deg/min - 17h 17m Rotation -0.23 deg/min - 17h 18m Rotation -0.23 deg/min - 17h 19m Rotation -0.23 deg/min - 17h 20m Rotation -0.23 deg/min - 17h 21m Rotation -0.23 deg/min - 17h 22m Rotation -0.23 deg/min - 17h 23m Rotation -0.23 deg/min - 17h 24m Rotation -0.23 deg/min - 17h 25m Rotation -0.23 deg/min - 17h 26m Rotation -0.23 deg/min - 17h 27m Rotation -0.23 deg/min - 17h 28m Rotation -0.23 deg/min - 17h 29m Rotation -0.23 deg/min - 17h 30m Rotation -0.23 deg/min - 17h 31m Rotation -0.23 deg/min - 17h 32m Rotation -0.23 deg/min - 17h 33m Rotation -0.23 deg/min - 17h 34m Rotation -0.23 deg/min - 17h 35m Rotation -0.23 deg/min - 17h 36m Rotation -0.23 deg/min - 17h 37m Rotation -0.23 deg/min - 17h 38m Rotation -0.23 deg/min - 17h 39m Rotation -0.23 deg/min - 17h 40m Rotation -0.23 deg/min - 17h 41m Rotation -0.23 deg/min - 17h 42m Rotation -0.23 deg/min - 17h 43m Rotation -0.23 deg/min - 17h 44m Rotation -0.23 deg/min - 17h 45m Rotation -0.23 deg/min - 17h 46m Rotation -0.23 deg/min - 17h 47m Rotation -0.23 deg/min - 17h 48m Rotation -0.23 deg/min - 17h 49m Rotation -0.23 deg/min - 17h 50m Rotation -0.23 deg/min - 17h 51m Rotation -0.23 deg/min - 17h 52m Rotation -0.23 deg/min - 17h 53m Rotation -0.23 deg/min - 17h 54m Rotation -0.23 deg/min - 17h 55m Rotation -0.23 deg/min - 17h 56m Rotation -0.23 deg/min - 17h 57m Rotation -0.23 deg/min - 17h 58m Rotation -0.23 deg/min - 17h 59m Rotation -0.23 deg/min - 18h 0m Rotation -0.23 deg/min - 18h 1m Rotation -0.23 deg/min - 18h 2m Rotation -0.23 deg/min - 18h 3m Rotation -0.23 deg/min - 18h 4m Rotation -0.23 deg/min - 18h 5m Rotation -0.23 deg/min - 18h 6m Rotation -0.23 deg/min - 18h 7m Rotation -0.23 deg/min - 18h 8m Rotation -0.23 deg/min - 18h 9m Rotation -0.23 deg/min - 18h 10m Rotation -0.23 deg/min - 18h 11m Rotation -0.23 deg/min - 18h 12m Rotation -0.23 deg/min - 18h 13m Rotation -0.23 deg/min - 18h 14m Rotation -0.23 deg/min - 18h 15m Rotation -0.23 deg/min - 18h 16m Rotation -0.23 deg/min - 18h 17m Rotation -0.23 deg/min - 18h 18m Rotation -0.23 deg/min - 18h 19m Rotation -0.23 deg/min - 18h 20m Rotation -0.23 deg/min - 18h 21m Rotation -0.23 deg/min - 18h 22m Rotation -0.23 deg/min - 18h 23m Rotation -0.23 deg/min - 18h 24m Rotation -0.23 deg/min - 18h 25m Rotation -0.23 deg/min - 18h 26m Rotation -0.23 deg/min - 18h 27m Rotation -0.23 deg/min - 18h 28m Rotation -0.23 deg/min - 18h 29m Rotation -0.23 deg/min - 18h 30m Rotation -0.23 deg/min - 18h 31m Rotation -0.23 deg/min - 18h 32m Rotation -0.23 deg/min - 18h 33m Rotation -0.23 deg/min - 18h 34m Rotation -0.23 deg/min - 18h 35m Rotation -0.23 deg/min - 18h 36m Rotation -0.23 deg/min - 18h 37m Rotation -0.23 deg/min - 18h 38m Rotation -0.23 deg/min - 18h 39m Rotation -0.23 deg/min - 18h 40m Rotation -0.23 deg/min - 18h 41m Rotation -0.23 deg/min - 18h 42m Rotation -0.23 deg/min - 18h 43m Rotation -0.23 deg/min - 18h 44m Rotation -0.23 deg/min - 18h 45m Rotation -0.23 deg/min - 18h 46m Rotation -0.23 deg/min - 18h 47m Rotation -0.23 deg/min - 18h 48m Rotation -0.23 deg/min - 18h 49m Rotation -0.23 deg/min - 18h 50m Rotation -0.23 deg/min - 18h 51m Rotation -0.23 deg/min - 18h 52m Rotation -0.23 deg/min - 18h 53m Rotation -0.23 deg/min - 18h 54m Rotation -0.23 deg/min - 18h 55m Rotation -0.23 deg/min - 18h 56m Rotation -0.23 deg/min - 18h 57m Rotation -0.23 deg/min - 18h 58m Rotation -0.23 deg/min - 18h 59m Rotation -0.23 deg/min - 19h 0m Rotation -0.23 deg/min - 19h 1m Rotation -0.23 deg/min - 19h 2m Rotation -0.23 deg/min - 19h 3m Rotation -0.23 deg/min - 19h 4m Rotation -0.23 deg/min - 19h 5m Rotation -0.23 deg/min - 19h 6m Rotation -0.23 deg/min - 19h 7m Rotation -0.23 deg/min - 19h 8m Rotation -0.23 deg/min - 19h 9m Rotation -0.23 deg/min - 19h 10m Rotation -0.23 deg/min - 19h 11m Rotation -0.23 deg/min - 19h 12m Rotation -0.23 deg/min - 19h 13m Rotation -0.23 deg/min - 19h 14m Rotation -0.23 deg/min - 19h 15m Rotation -0.23 deg/min - 19h 16m Rotation -0.23 deg/min - 19h 17m Rotation -0.23 deg/min - 19h 18m Rotation -0.23 deg/min - 19h 19m Rotation -0.23 deg/min - 19h 20m Rotation -0.23 deg/min - 19h 21m Rotation -0.23 deg/min - 19h 22m Rotation -0.23 deg/min - 19h 23m Rotation -0.23 deg/min - 19h 24m Rotation -0.22 deg/min - 19h 25m Rotation -0.22 deg/min - 19h 26m Rotation -0.22 deg/min - 19h 27m Rotation -0.22 deg/min - 19h 28m Rotation -0.22 deg/min - 19h 29m Rotation -0.22 deg/min - 19h 30m Rotation -0.22 deg/min - 19h 31m Rotation -0.22 deg/min - 19h 32m Rotation -0.22 deg/min - 19h 33m Rotation -0.22 deg/min - 19h 34m Rotation -0.22 deg/min - 19h 35m Rotation -0.22 deg/min - 19h 36m Rotation -0.22 deg/min - 19h 37m Rotation -0.22 deg/min - 19h 38m Rotation -0.22 deg/min - 19h 39m Rotation -0.22 deg/min - 19h 40m Rotation -0.22 deg/min - 19h 41m Rotation -0.22 deg/min - 19h 42m Rotation -0.22 deg/min - 19h 43m Rotation -0.22 deg/min - 19h 44m Rotation -0.22 deg/min - 19h 45m Rotation -0.22 deg/min - 19h 46m Rotation -0.22 deg/min - 19h 47m Rotation -0.22 deg/min - 19h 48m Rotation -0.22 deg/min - 19h 49m Rotation -0.22 deg/min - 19h 50m Rotation -0.22 deg/min - 19h 51m Rotation -0.22 deg/min - 19h 52m Rotation -0.22 deg/min - 19h 53m Rotation -0.22 deg/min - 19h 54m Rotation -0.22 deg/min - 19h 55m Rotation -0.22 deg/min - 19h 56m Rotation -0.22 deg/min - 19h 57m Rotation -0.22 deg/min - 19h 58m Rotation -0.22 deg/min - 19h 59m Rotation -0.22 deg/min - 20h 0m Rotation -0.22 deg/min - 20h 1m Rotation -0.22 deg/min - 20h 2m Rotation -0.22 deg/min - 20h 3m Rotation -0.22 deg/min - 20h 4m Rotation -0.22 deg/min - 20h 5m Rotation -0.22 deg/min - 20h 6m Rotation -0.22 deg/min - 20h 7m Rotation -0.22 deg/min - 20h 8m Rotation -0.22 deg/min - 20h 9m Rotation -0.22 deg/min - 20h 10m Rotation -0.22 deg/min - 20h 11m Rotation -0.22 deg/min - 20h 12m Rotation -0.22 deg/min - 20h 13m Rotation -0.22 deg/min - 20h 14m Rotation -0.22 deg/min - 20h 15m Rotation -0.22 deg/min - 20h 16m Rotation -0.22 deg/min - 20h 17m Rotation -0.22 deg/min - 20h 18m Rotation -0.22 deg/min - 20h 19m Rotation -0.22 deg/min - 20h 20m Rotation -0.22 deg/min - 20h 21m Rotation -0.22 deg/min - 20h 22m Rotation -0.22 deg/min - 20h 23m Rotation -0.22 deg/min - 20h 24m Rotation -0.22 deg/min - 20h 25m Rotation -0.22 deg/min - 20h 26m Rotation -0.22 deg/min - 20h 27m Rotation -0.22 deg/min - 20h 28m Rotation -0.22 deg/min - 20h 29m Rotation -0.22 deg/min - 20h 30m Rotation -0.22 deg/min - 20h 31m Rotation -0.22 deg/min - 20h 32m Rotation -0.22 deg/min - 20h 33m Rotation -0.22 deg/min - 20h 34m Rotation -0.22 deg/min - 20h 35m Rotation -0.22 deg/min - 20h 36m Rotation -0.22 deg/min - 20h 37m Rotation -0.22 deg/min - 20h 38m Rotation -0.22 deg/min - 20h 39m Rotation -0.22 deg/min - 20h 40m Rotation -0.22 deg/min - 20h 41m Rotation -0.22 deg/min - 20h 42m Rotation -0.22 deg/min - 20h 43m Rotation -0.22 deg/min - 20h 44m Rotation -0.22 deg/min - 20h 45m Rotation -0.22 deg/min - 20h 46m Rotation -0.22 deg/min - 20h 47m Rotation -0.22 deg/min - 20h 48m Rotation -0.22 deg/min - 20h 49m Rotation -0.22 deg/min - 20h 50m Rotation -0.22 deg/min - 20h 51m Rotation -0.22 deg/min - 20h 52m Rotation -0.22 deg/min - 20h 53m Rotation -0.22 deg/min - 20h 54m Rotation -0.22 deg/min - 20h 55m Rotation -0.22 deg/min - 20h 56m Rotation -0.22 deg/min - 20h 57m Rotation -0.22 deg/min - 20h 58m Rotation -0.22 deg/min - 20h 59m Rotation -0.22 deg/min - 21h 0m Rotation -0.22 deg/min - 21h 1m Rotation -0.22 deg/min - 21h 2m Rotation -0.22 deg/min - 21h 3m Rotation -0.22 deg/min - 21h 4m Rotation -0.22 deg/min - 21h 5m Rotation -0.22 deg/min - 21h 6m Rotation -0.22 deg/min - 21h 7m Rotation -0.22 deg/min - 21h 8m Rotation -0.22 deg/min - 21h 9m Rotation -0.22 deg/min - 21h 10m Rotation -0.22 deg/min - 21h 11m Rotation -0.22 deg/min - 21h 12m Rotation -0.22 deg/min - 21h 13m Rotation -0.22 deg/min - 21h 14m Rotation -0.22 deg/min - 21h 15m Rotation -0.22 deg/min - 21h 16m Rotation -0.22 deg/min - 21h 17m Rotation -0.22 deg/min - 21h 18m Rotation -0.22 deg/min - 21h 19m Rotation -0.22 deg/min - 21h 20m Rotation -0.22 deg/min - 21h 21m Rotation -0.22 deg/min - 21h 22m Rotation -0.22 deg/min - 21h 23m Rotation -0.22 deg/min - 21h 24m Rotation -0.22 deg/min - 21h 25m Rotation -0.22 deg/min - 21h 26m Rotation -0.22 deg/min - 21h 27m Rotation -0.22 deg/min - 21h 28m Rotation -0.22 deg/min - 21h 29m Rotation -0.22 deg/min - 21h 30m Rotation -0.22 deg/min - 21h 31m Rotation -0.22 deg/min - 21h 32m Rotation -0.22 deg/min - 21h 33m Rotation -0.22 deg/min - 21h 34m Rotation -0.22 deg/min - 21h 35m Rotation -0.22 deg/min - 21h 36m Rotation -0.22 deg/min - 21h 37m Rotation -0.22 deg/min - 21h 38m Rotation -0.22 deg/min - 21h 39m Rotation -0.22 deg/min - 21h 40m Rotation -0.22 deg/min - 21h 41m Rotation -0.22 deg/min - 21h 42m Rotation -0.22 deg/min - 21h 43m Rotation -0.22 deg/min - 21h 44m Rotation -0.22 deg/min - 21h 45m Rotation -0.22 deg/min - 21h 46m Rotation -0.22 deg/min - 21h 47m Rotation -0.22 deg/min - 21h 48m Rotation -0.22 deg/min - 21h 49m Rotation -0.22 deg/min - 21h 50m Rotation -0.22 deg/min - 21h 51m Rotation -0.22 deg/min - 21h 52m Rotation -0.22 deg/min - 21h 53m Rotation -0.22 deg/min - 21h 54m Rotation -0.22 deg/min - 21h 55m Rotation -0.22 deg/min - 21h 56m Rotation -0.22 deg/min - 21h 57m Rotation -0.22 deg/min - 21h 58m Rotation -0.22 deg/min - 21h 59m Rotation -0.22 deg/min - 22h 0m Rotation -0.22 deg/min - 22h 1m Rotation -0.22 deg/min - 22h 2m Rotation -0.22 deg/min - 22h 3m Rotation -0.22 deg/min - 22h 4m Rotation -0.22 deg/min - 22h 5m Rotation -0.22 deg/min - 22h 6m Rotation -0.22 deg/min - 22h 7m Rotation -0.22 deg/min - 22h 8m Rotation -0.22 deg/min - 22h 9m Rotation -0.22 deg/min - 22h 10m Rotation -0.22 deg/min - 22h 11m Rotation -0.22 deg/min - 22h 12m Rotation -0.22 deg/min - 22h 13m Rotation -0.22 deg/min - 22h 14m Rotation -0.22 deg/min - 22h 15m Rotation -0.22 deg/min - 22h 16m Rotation -0.22 deg/min - 22h 17m Rotation -0.22 deg/min - 22h 18m Rotation -0.22 deg/min - 22h 19m Rotation -0.22 deg/min - 22h 20m Rotation -0.22 deg/min - 22h 21m Rotation -0.22 deg/min - 22h 22m Rotation -0.22 deg/min - 22h 23m Rotation -0.22 deg/min - 22h 24m Rotation -0.22 deg/min - 22h 25m Rotation -0.22 deg/min - 22h 26m Rotation -0.22 deg/min - 22h 27m Rotation -0.22 deg/min - 22h 28m Rotation -0.22 deg/min - 22h 29m Rotation -0.22 deg/min - 22h 30m Rotation -0.22 deg/min - 22h 31m Rotation -0.22 deg/min - 22h 32m Rotation -0.22 deg/min - 22h 33m Rotation -0.22 deg/min - 22h 34m Rotation -0.22 deg/min - 22h 35m Rotation -0.22 deg/min - 22h 36m Rotation -0.22 deg/min - 22h 37m Rotation -0.22 deg/min - 22h 38m Rotation -0.22 deg/min - 22h 39m Rotation -0.22 deg/min - 22h 40m Rotation -0.22 deg/min - 22h 41m Rotation -0.22 deg/min - 22h 42m Rotation -0.22 deg/min - 22h 43m Rotation -0.22 deg/min - 22h 44m Rotation -0.22 deg/min - 22h 45m Rotation -0.22 deg/min - 22h 46m Rotation -0.22 deg/min - 22h 47m Rotation -0.22 deg/min - 22h 48m Rotation -0.22 deg/min - 22h 49m Rotation -0.22 deg/min - 22h 50m Rotation -0.22 deg/min - 22h 51m Rotation -0.22 deg/min - 22h 52m Rotation -0.22 deg/min - 22h 53m Rotation -0.22 deg/min - 22h 54m Rotation -0.22 deg/min - 22h 55m Rotation -0.22 deg/min - 22h 56m Rotation -0.22 deg/min - 22h 57m Rotation -0.22 deg/min - 22h 58m Rotation -0.22 deg/min - 22h 59m Rotation -0.22 deg/min - 23h 0m Rotation -0.22 deg/min - 23h 1m Rotation -0.22 deg/min - 23h 2m Rotation -0.22 deg/min - 23h 3m Rotation -0.22 deg/min - 23h 4m Rotation -0.22 deg/min - 23h 5m Rotation -0.22 deg/min - 23h 6m Rotation -0.22 deg/min - 23h 7m Rotation -0.22 deg/min - 23h 8m Rotation -0.22 deg/min - 23h 9m Rotation -0.22 deg/min - 23h 10m Rotation -0.22 deg/min - 23h 11m Rotation -0.22 deg/min - 23h 12m Rotation -0.22 deg/min - 23h 13m Rotation -0.22 deg/min - 23h 14m Rotation -0.22 deg/min - 23h 15m Rotation -0.22 deg/min - 23h 16m Rotation -0.22 deg/min - 23h 17m Rotation -0.22 deg/min - 23h 18m Rotation -0.22 deg/min - 23h 19m Rotation -0.22 deg/min - 23h 20m Rotation -0.22 deg/min - 23h 21m Rotation -0.22 deg/min - 23h 22m Rotation -0.22 deg/min - 23h 23m Rotation -0.22 deg/min - 23h 24m Rotation -0.22 deg/min - 23h 25m Rotation -0.22 deg/min - 23h 26m Rotation -0.22 deg/min - 23h 27m Rotation -0.22 deg/min - 23h 28m Rotation -0.22 deg/min - 23h 29m Rotation -0.22 deg/min - 23h 30m Rotation -0.22 deg/min - 23h 31m Rotation -0.22 deg/min - 23h 32m Rotation -0.22 deg/min - 23h 33m Rotation -0.22 deg/min - 23h 34m Rotation -0.22 deg/min - 23h 35m Rotation -0.22 deg/min - 23h 36m Rotation -0.22 deg/min - 23h 37m Rotation -0.22 deg/min - 23h 38m Rotation -0.22 deg/min - 23h 39m Rotation -0.22 deg/min - 23h 40m Rotation -0.22 deg/min - 23h 41m Rotation -0.22 deg/min - 23h 42m Rotation -0.22 deg/min - 23h 43m Rotation -0.22 deg/min - 23h 44m Rotation -0.22 deg/min - 23h 45m Rotation -0.22 deg/min - 23h 46m Rotation -0.22 deg/min - 23h 47m Rotation -0.22 deg/min - 23h 48m Rotation -0.22 deg/min - 23h 49m Rotation -0.22 deg/min - 23h 50m Rotation -0.22 deg/min - 23h 51m Rotation -0.22 deg/min - 23h 52m Rotation -0.22 deg/min - 23h 53m Rotation -0.22 deg/min - 23h 54m Rotation -0.22 deg/min - 23h 55m Rotation -0.22 deg/min - 23h 56m Rotation -0.22 deg/min - 23h 57m Rotation -0.22 deg/min - 23h 58m Rotation -0.22 deg/min - 23h 59m Rotation -0.22 deg/min - 0h 0m Rotation -0.22 deg/min - 0h 1m Rotation -0.22 deg/min - 0h 2m Rotation -0.22 deg/min - 0h 3m Rotation -0.22 deg/min - 0h 4m Rotation -0.22 deg/min - 0h 5m Rotation -0.22 deg/min - 0h 6m Rotation -0.22 deg/min - 0h 7m Rotation -0.22 deg/min - 0h 8m Rotation -0.22 deg/min - 0h 9m Rotation -0.22 deg/min - 0h 10m Rotation -0.22 deg/min - 0h 11m Rotation -0.22 deg/min - 0h 12m Rotation -0.22 deg/min - 0h 13m Rotation -0.22 deg/min - 0h 14m Rotation -0.22 deg/min - 0h 15m Rotation -0.22 deg/min - 0h 16m Rotation -0.22 deg/min - 0h 17m Rotation -0.22 deg/min - 0h 18m Rotation -0.22 deg/min - 0h 19m Rotation -0.22 deg/min - 0h 20m Rotation -0.22 deg/min - 0h 21m Rotation -0.22 deg/min - 0h 22m Rotation -0.22 deg/min - 0h 23m Rotation -0.22 deg/min - 0h 24m Rotation -0.22 deg/min - 0h 25m Rotation -0.22 deg/min - 0h 26m Rotation -0.22 deg/min - 0h 27m Rotation -0.22 deg/min - 0h 28m Rotation -0.22 deg/min - 0h 29m Rotation -0.22 deg/min - 0h 30m Rotation -0.22 deg/min - 0h 31m Rotation -0.22 deg/min - 0h 32m Rotation -0.22 deg/min - 0h 33m Rotation -0.22 deg/min - 0h 34m Rotation -0.22 deg/min - 0h 35m Rotation -0.22 deg/min - 0h 36m Rotation -0.22 deg/min - 0h 37m Rotation -0.22 deg/min - 0h 38m Rotation -0.22 deg/min - 0h 39m Rotation -0.22 deg/min - 0h 40m Rotation -0.22 deg/min - 0h 41m Rotation -0.22 deg/min - 0h 42m Rotation -0.22 deg/min - 0h 43m Rotation -0.22 deg/min - 0h 44m Rotation -0.22 deg/min - 0h 45m Rotation -0.22 deg/min - 0h 46m Rotation -0.22 deg/min - 0h 47m Rotation -0.22 deg/min - 0h 48m Rotation -0.22 deg/min - 0h 49m Rotation -0.22 deg/min - 0h 50m Rotation -0.22 deg/min - 0h 51m Rotation -0.22 deg/min - 0h 52m Rotation -0.22 deg/min - 0h 53m Rotation -0.22 deg/min - 0h 54m Rotation -0.22 deg/min - 0h 55m Rotation -0.22 deg/min - 0h 56m Rotation -0.22 deg/min - 0h 57m Rotation -0.22 deg/min - 0h 58m Rotation -0.22 deg/min - 0h 59m Rotation -0.22 deg/min - 1h 0m Rotation -0.22 deg/min - 1h 1m Rotation -0.22 deg/min - 1h 2m Rotation -0.22 deg/min - 1h 3m Rotation -0.22 deg/min - 1h 4m Rotation -0.22 deg/min - 1h 5m Rotation -0.22 deg/min - 1h 6m Rotation -0.22 deg/min - 1h 7m Rotation -0.22 deg/min - 1h 8m Rotation -0.22 deg/min - 1h 9m Rotation -0.22 deg/min - 1h 10m Rotation -0.22 deg/min - 1h 11m Rotation -0.22 deg/min - 1h 12m Rotation -0.22 deg/min - 1h 13m Rotation -0.22 deg/min - 1h 14m Rotation -0.22 deg/min - 1h 15m Rotation -0.22 deg/min - 1h 16m Rotation -0.22 deg/min - 1h 17m Rotation -0.22 deg/min - 1h 18m Rotation -0.22 deg/min - 1h 19m Rotation -0.22 deg/min - 1h 20m Rotation -0.22 deg/min - 1h 21m Rotation -0.22 deg/min - 1h 22m Rotation -0.22 deg/min - 1h 23m Rotation -0.22 deg/min - 1h 24m Rotation -0.22 deg/min - 1h 25m Rotation -0.22 deg/min - 1h 26m Rotation -0.22 deg/min - 1h 27m Rotation -0.22 deg/min - 1h 28m Rotation -0.22 deg/min - 1h 29m Rotation -0.22 deg/min - 1h 30m Rotation -0.22 deg/min - 1h 31m Rotation -0.22 deg/min - 1h 32m Rotation -0.22 deg/min - 1h 33m Rotation -0.22 deg/min - 1h 34m Rotation -0.22 deg/min - 1h 35m Rotation -0.22 deg/min - 1h 36m Rotation -0.22 deg/min - 1h 37m Rotation -0.22 deg/min - 1h 38m Rotation -0.22 deg/min - 1h 39m Rotation -0.22 deg/min - 1h 40m Rotation -0.22 deg/min - 1h 41m Rotation -0.22 deg/min - 1h 42m Rotation -0.22 deg/min - 1h 43m Rotation -0.22 deg/min - 1h 44m Rotation -0.22 deg/min - 1h 45m Rotation -0.22 deg/min - 1h 46m Rotation -0.22 deg/min - 1h 47m Rotation -0.22 deg/min - 1h 48m Rotation -0.22 deg/min - 1h 49m Rotation -0.22 deg/min - 1h 50m Rotation -0.22 deg/min - 1h 51m Rotation -0.22 deg/min - 1h 52m Rotation -0.22 deg/min - 1h 53m Rotation -0.22 deg/min - 1h 54m Rotation -0.22 deg/min - 1h 55m Rotation -0.22 deg/min - 1h 56m Rotation -0.22 deg/min - 1h 57m Rotation -0.22 deg/min - 1h 58m Rotation -0.22 deg/min - 1h 59m Rotation -0.22 deg/min - 2h 0m Rotation -0.22 deg/min - 2h 1m Rotation -0.22 deg/min - 2h 2m Rotation -0.22 deg/min - 2h 3m Rotation -0.22 deg/min - 2h 4m Rotation -0.22 deg/min - 2h 5m Rotation -0.22 deg/min - 2h 6m Rotation -0.22 deg/min - 2h 7m Rotation -0.22 deg/min - 2h 8m Rotation -0.22 deg/min - 2h 9m Rotation -0.22 deg/min - 2h 10m Rotation -0.22 deg/min - 2h 11m Rotation -0.22 deg/min - 2h 12m Rotation -0.22 deg/min - 2h 13m Rotation -0.22 deg/min - 2h 14m Rotation -0.22 deg/min - 2h 15m Rotation -0.22 deg/min - 2h 16m Rotation -0.22 deg/min - 2h 17m Rotation -0.22 deg/min - 2h 18m Rotation -0.22 deg/min - 2h 19m Rotation -0.22 deg/min - 2h 20m Rotation -0.22 deg/min - 2h 21m Rotation -0.22 deg/min - 2h 22m Rotation -0.22 deg/min - 2h 23m Rotation -0.22 deg/min - 2h 24m Rotation -0.22 deg/min - 2h 25m Rotation -0.22 deg/min - 2h 26m Rotation -0.22 deg/min - 2h 27m Rotation -0.22 deg/min - 2h 28m Rotation -0.22 deg/min - 2h 29m Rotation -0.22 deg/min - 2h 30m Rotation -0.22 deg/min - 2h 31m Rotation -0.22 deg/min - 2h 32m Rotation -0.23 deg/min - 2h 33m Rotation -0.23 deg/min - 2h 34m Rotation -0.23 deg/min - 2h 35m Rotation -0.23 deg/min - 2h 36m Rotation -0.23 deg/min - 2h 37m Rotation -0.23 deg/min - 2h 38m Rotation -0.23 deg/min - 2h 39m Rotation -0.23 deg/min - 2h 40m Rotation -0.23 deg/min - 2h 41m Rotation -0.23 deg/min - 2h 42m Rotation -0.23 deg/min - 2h 43m Rotation -0.23 deg/min - 2h 44m Rotation -0.23 deg/min - 2h 45m Rotation -0.23 deg/min - 2h 46m Rotation -0.23 deg/min - 2h 47m Rotation -0.23 deg/min - 2h 48m Rotation -0.23 deg/min - 2h 49m Rotation -0.23 deg/min - 2h 50m Rotation -0.23 deg/min - 2h 51m Rotation -0.23 deg/min - 2h 52m Rotation -0.23 deg/min - 2h 53m Rotation -0.23 deg/min - 2h 54m Rotation -0.23 deg/min - 2h 55m Rotation -0.23 deg/min - 2h 56m Rotation -0.23 deg/min - 2h 57m Rotation -0.23 deg/min - 2h 58m Rotation -0.23 deg/min - 2h 59m Rotation -0.23 deg/min - 3h 0m Rotation -0.23 deg/min - 3h 1m Rotation -0.23 deg/min - 3h 2m Rotation -0.23 deg/min - 3h 3m Rotation -0.23 deg/min - 3h 4m Rotation -0.23 deg/min - 3h 5m Rotation -0.23 deg/min - 3h 6m Rotation -0.23 deg/min - 3h 7m Rotation -0.23 deg/min - 3h 8m Rotation -0.23 deg/min - 3h 9m Rotation -0.23 deg/min - 3h 10m Rotation -0.23 deg/min - 3h 11m Rotation -0.23 deg/min - 3h 12m Rotation -0.23 deg/min - 3h 13m Rotation -0.23 deg/min - 3h 14m Rotation -0.23 deg/min - 3h 15m Rotation -0.23 deg/min - 3h 16m Rotation -0.23 deg/min - 3h 17m Rotation -0.23 deg/min - 3h 18m Rotation -0.23 deg/min - 3h 19m Rotation -0.23 deg/min - 3h 20m Rotation -0.23 deg/min - 3h 21m Rotation -0.23 deg/min - 3h 22m Rotation -0.23 deg/min - 3h 23m Rotation -0.23 deg/min - 3h 24m Rotation -0.23 deg/min - 3h 25m Rotation -0.23 deg/min - 3h 26m Rotation -0.23 deg/min - 3h 27m Rotation -0.23 deg/min - 3h 28m Rotation -0.23 deg/min - 3h 29m Rotation -0.23 deg/min - 3h 30m Rotation -0.23 deg/min - 3h 31m Rotation -0.23 deg/min - 3h 32m Rotation -0.23 deg/min - 3h 33m Rotation -0.23 deg/min - 3h 34m Rotation -0.23 deg/min - 3h 35m Rotation -0.23 deg/min - 3h 36m Rotation -0.23 deg/min - 3h 37m Rotation -0.23 deg/min - 3h 38m Rotation -0.23 deg/min - 3h 39m Rotation -0.23 deg/min - 3h 40m Rotation -0.23 deg/min - 3h 41m Rotation -0.23 deg/min - 3h 42m Rotation -0.23 deg/min - 3h 43m Rotation -0.23 deg/min - 3h 44m Rotation -0.23 deg/min - 3h 45m Rotation -0.23 deg/min - 3h 46m Rotation -0.23 deg/min - 3h 47m Rotation -0.23 deg/min - 3h 48m Rotation -0.23 deg/min - 3h 49m Rotation -0.23 deg/min - 3h 50m Rotation -0.23 deg/min - 3h 51m Rotation -0.23 deg/min - 3h 52m Rotation -0.23 deg/min - 3h 53m Rotation -0.23 deg/min - 3h 54m Rotation -0.23 deg/min - 3h 55m Rotation -0.23 deg/min - 3h 56m Rotation -0.23 deg/min - 3h 57m Rotation -0.23 deg/min - 3h 58m Rotation -0.23 deg/min - 3h 59m Rotation -0.23 deg/min - 4h 0m Rotation -0.23 deg/min - 4h 1m Rotation -0.23 deg/min - 4h 2m Rotation -0.23 deg/min - 4h 3m Rotation -0.23 deg/min - 4h 4m Rotation -0.23 deg/min - 4h 5m Rotation -0.23 deg/min - 4h 6m Rotation -0.23 deg/min - 4h 7m Rotation -0.23 deg/min - 4h 8m Rotation -0.23 deg/min - 4h 9m Rotation -0.23 deg/min - 4h 10m Rotation -0.23 deg/min - 4h 11m Rotation -0.23 deg/min - 4h 12m Rotation -0.23 deg/min - 4h 13m Rotation -0.23 deg/min - 4h 14m Rotation -0.23 deg/min - 4h 15m Rotation -0.23 deg/min - 4h 16m Rotation -0.23 deg/min - 4h 17m Rotation -0.23 deg/min - 4h 18m Rotation -0.23 deg/min - 4h 19m Rotation -0.23 deg/min - 4h 20m Rotation -0.23 deg/min - 4h 21m Rotation -0.23 deg/min - 4h 22m Rotation -0.23 deg/min - 4h 23m Rotation -0.23 deg/min - 4h 24m Rotation -0.23 deg/min - 4h 25m Rotation -0.23 deg/min - 4h 26m Rotation -0.23 deg/min - 4h 27m Rotation -0.23 deg/min - 4h 28m Rotation -0.23 deg/min - 4h 29m Rotation -0.23 deg/min - 4h 30m Rotation -0.23 deg/min - 4h 31m Rotation -0.23 deg/min - 4h 32m Rotation -0.23 deg/min - 4h 33m Rotation -0.23 deg/min - 4h 34m Rotation -0.23 deg/min - 4h 35m Rotation -0.23 deg/min - 4h 36m Rotation -0.23 deg/min - 4h 37m Rotation -0.23 deg/min - 4h 38m Rotation -0.23 deg/min - 4h 39m Rotation -0.24 deg/min - 4h 40m Rotation -0.24 deg/min - 4h 41m Rotation -0.24 deg/min - 4h 42m Rotation -0.24 deg/min - 4h 43m Rotation -0.24 deg/min - 4h 44m Rotation -0.24 deg/min - 4h 45m Rotation -0.24 deg/min - 4h 46m Rotation -0.24 deg/min - 4h 47m Rotation -0.24 deg/min - 4h 48m Rotation -0.24 deg/min - 4h 49m Rotation -0.24 deg/min - 4h 50m Rotation -0.24 deg/min - 4h 51m Rotation -0.24 deg/min - 4h 52m Rotation -0.24 deg/min - 4h 53m Rotation -0.24 deg/min - 4h 54m Rotation -0.24 deg/min - 4h 55m Rotation -0.24 deg/min - 4h 56m Rotation -0.24 deg/min - 4h 57m Rotation -0.24 deg/min - 4h 58m Rotation -0.24 deg/min - 4h 59m Rotation -0.24 deg/min - 5h 0m Rotation -0.24 deg/min - 5h 1m Rotation -0.24 deg/min - 5h 2m Rotation -0.24 deg/min - 5h 3m Rotation -0.24 deg/min - 5h 4m Rotation -0.24 deg/min - 5h 5m Rotation -0.24 deg/min - 5h 6m Rotation -0.24 deg/min - 5h 7m Rotation -0.24 deg/min - 5h 8m Rotation -0.24 deg/min - 5h 9m Rotation -0.24 deg/min - 5h 10m Rotation -0.24 deg/min - 5h 11m Rotation -0.24 deg/min - 5h 12m Rotation -0.24 deg/min - 5h 13m Rotation -0.24 deg/min - 5h 14m Rotation -0.24 deg/min - 5h 15m Rotation -0.24 deg/min - 5h 16m Rotation -0.24 deg/min - 5h 17m Rotation -0.24 deg/min - 5h 18m Rotation -0.24 deg/min - 5h 19m Rotation -0.24 deg/min - 5h 20m Rotation -0.24 deg/min - 5h 21m Rotation -0.24 deg/min - 5h 22m Rotation -0.24 deg/min - 5h 23m Rotation -0.24 deg/min - 5h 24m Rotation -0.24 deg/min - 5h 25m Rotation -0.24 deg/min - 5h 26m Rotation -0.24 deg/min - 5h 27m Rotation -0.24 deg/min - 5h 28m Rotation -0.24 deg/min - 5h 29m Rotation -0.24 deg/min - 5h 30m Rotation -0.24 deg/min - 5h 31m Rotation -0.24 deg/min - 5h 32m Rotation -0.24 deg/min - 5h 33m Rotation -0.24 deg/min - 5h 34m Rotation -0.24 deg/min - 5h 35m Rotation -0.24 deg/min - 5h 36m Rotation -0.24 deg/min - 5h 37m Rotation -0.24 deg/min - 5h 38m Rotation -0.24 deg/min - 5h 39m Rotation -0.24 deg/min - 5h 40m Rotation -0.24 deg/min - 5h 41m Rotation -0.24 deg/min - 5h 42m Rotation -0.24 deg/min - 5h 43m Rotation -0.24 deg/min - 5h 44m Rotation -0.25 deg/min - 5h 45m Rotation -0.25 deg/min - 5h 46m Rotation -0.25 deg/min - 5h 47m Rotation -0.25 deg/min - 5h 48m Rotation -0.25 deg/min - 5h 49m Rotation -0.25 deg/min - 5h 50m Rotation -0.25 deg/min - 5h 51m Rotation -0.25 deg/min - 5h 52m Rotation -0.25 deg/min - 5h 53m Rotation -0.25 deg/min - 5h 54m Rotation -0.25 deg/min - 5h 55m Rotation -0.25 deg/min - 5h 56m Rotation -0.25 deg/min - 5h 57m Rotation -0.25 deg/min - 5h 58m Rotation -0.25 deg/min - 5h 59m Rotation -0.25 deg/min - 6h 0m Rotation -0.25 deg/min - 6h 1m Rotation -0.25 deg/min - 6h 2m Rotation -0.25 deg/min - 6h 3m Rotation -0.25 deg/min - 6h 4m Rotation -0.25 deg/min - 6h 5m Rotation -0.25 deg/min - 6h 6m Rotation -0.25 deg/min - 6h 7m Rotation -0.25 deg/min - 6h 8m Rotation -0.25 deg/min - 6h 9m Rotation -0.25 deg/min - 6h 10m Rotation -0.25 deg/min - 6h 11m Rotation -0.25 deg/min - 6h 12m Rotation -0.25 deg/min - 6h 13m Rotation -0.25 deg/min - 6h 14m Rotation -0.25 deg/min - 6h 15m Rotation -0.25 deg/min - 6h 16m Rotation -0.25 deg/min - 6h 17m Rotation -0.25 deg/min - 6h 18m Rotation -0.25 deg/min - 6h 19m Rotation -0.25 deg/min - 6h 20m Rotation -0.25 deg/min - 6h 21m Rotation -0.25 deg/min - 6h 22m Rotation -0.25 deg/min - 6h 23m Rotation -0.25 deg/min - 6h 24m Rotation -0.25 deg/min - 6h 25m Rotation -0.25 deg/min - 6h 26m Rotation -0.25 deg/min - 6h 27m Rotation -0.25 deg/min - 6h 28m Rotation -0.25 deg/min - 6h 29m Rotation -0.25 deg/min - 6h 30m Rotation -0.25 deg/min - 6h 31m Rotation -0.25 deg/min - 6h 32m Rotation -0.25 deg/min - 6h 33m Rotation -0.26 deg/min - 6h 34m Rotation -0.26 deg/min - 6h 35m Rotation -0.26 deg/min - 6h 36m Rotation -0.26 deg/min - 6h 37m Rotation -0.26 deg/min - 6h 38m Rotation -0.26 deg/min - 6h 39m Rotation -0.26 deg/min - 6h 40m Rotation -0.26 deg/min - 6h 41m Rotation -0.26 deg/min - 6h 42m Rotation -0.26 deg/min - 6h 43m Rotation -0.26 deg/min - -Cumulative field rotation: 359.76 deg - -Start alt. 42 Az. 194 -Ending alt. 38 Az. 196 diff --git a/bwbtest/B15B/saros.INP b/bwbtest/B15B/saros.INP deleted file mode 100644 index 9c9ddc2..0000000 --- a/bwbtest/B15B/saros.INP +++ /dev/null @@ -1 +0,0 @@ -5678 diff --git a/bwbtest/B15B/saros.bas b/bwbtest/B15B/saros.bas deleted file mode 100644 index 8171ead..0000000 --- a/bwbtest/B15B/saros.bas +++ /dev/null @@ -1,27 +0,0 @@ -10 REM SAROS SERIES -14 REM -18 PRINT -22 INPUT "JULIAN DAY NUMBER";J -26 Q=J/29.530588-82064 -30 B=INT(Q): N=Q-B -34 IF N>0.28 AND N<0.36 THEN 42 -38 PRINT "WARNING: NOT NEW MOON!" -42 PRINT " BROWN LUNATION ";B -46 D=B-848 -50 S=136+38*D -54 X=-61*D -58 C=INT(X/358+0.5-D/(12*358*358)) -62 S=S+223*C -66 X=X-358*C -70 IF ABS(X-(S-136)/12)<55 THEN 78 -74 PRINT "WARNING: NO ECLIPSE!" -78 PRINT " SAROS NUMBER ";S -82 PRINT " RELATIVE ECLIPSE "; -86 PRINT INT(X-(S-136)/12+0.5) -90 PRINT -94 END -95 REM ------------------------ -96 REM APPEARED IN ASTRONOMICAL -97 REM COMPUTING, SKY & TELE- -98 REM SCOPE, OCTOBER, 1985 -99 REM ------------------------ diff --git a/bwbtest/B15B/saros.run b/bwbtest/B15B/saros.run deleted file mode 100644 index def4f59..0000000 --- a/bwbtest/B15B/saros.run +++ /dev/null @@ -1,8 +0,0 @@ - -JULIAN DAY NUMBER? 5678 -WARNING: NOT NEW MOON! - BROWN LUNATION -81872 -WARNING: NO ECLIPSE! - SAROS NUMBER -39 - RELATIVE ECLIPSE -75 - diff --git a/bwbtest/B15B/satrings.INP b/bwbtest/B15B/satrings.INP deleted file mode 100644 index 9b3c236..0000000 --- a/bwbtest/B15B/satrings.INP +++ /dev/null @@ -1 +0,0 @@ -2015 diff --git a/bwbtest/B15B/satrings.bas b/bwbtest/B15B/satrings.bas deleted file mode 100644 index a10daca..0000000 --- a/bwbtest/B15B/satrings.bas +++ /dev/null @@ -1,136 +0,0 @@ -10 ' RINGS OF SATURN -20 DEFDBL A-Z -30 CLS ' : PI=4 *ATN(1 ): -35 RD=PI/180 : DL=9 -40 INPUT "Year of interest"; Y -50 A=INT((Y-1 )/100 ): B=2 -A+INT(A/4 ) -60 IF Y<1583 THEN B=0 -70 JD=INT(365.25*(Y+4715))+INT(30.6001*(14)) -80 JD=JD+B-1523.5 -90 JE=JD+365 -100 T=(JD-2451545 )/365250 -110 I=(28.04922 -.13 *T+.0004 *T*T)*RD -120 OM=(169.53 +13.826 *T+.04 *T*T)*RD -130 GOSUB 550: ' Get planet positions -140 X=SR*COS(SB)*COS(SL)-ER*COS(EL) -150 Y=SR*COS(SB)*SIN(SL)-ER*SIN(EL) -160 Z=SR*SIN(SB)-ER*SIN(EB) -170 DL=SQR(X*X+Y*Y+Z*Z) -180 LA=ATN(Y/X): IF X<0 THEN LA=LA+PI -190 BE=ATN(Z/SQR(X*X+Y*Y)) -200 S=SIN(I)*COS(BE)*SIN(LA-OM)-COS(I)*SIN(BE) -210 B=ATN(S/SQR(1 -S*S)) -220 SP=SIN(I)*COS(SB)*SIN(SL-OM)-COS(I)*SIN(SB) -230 BP=ATN(SP/SQR(1 -SP*SP)) -240 ' Check for crossing of ring plane -250 IF B*XB>=0 THEN GOTO 280 -260 N$="(N to S)": IF B>0 THEN N$="(S to N)" -270 PRINT "< Earth crosses ring plane "; N$; " >" -280 IF BP*XP>=0 THEN GOTO 310 -290 N$="(N to S)": IF BP>0 THEN N$="(S to N)" -300 PRINT "< Sun crosses ring plane "; N$; " >" -310 Z=INT(JD+1): AL=INT((Z-1867216.25 )/36524.25 ) -320 AJ=Z+1 +AL-INT(AL/4 ): IF Z<2299161 THEN AJ=Z -330 BJ=AJ+1524: CJ=INT((BJ-122.1)/365.25) -340 DJ=INT(365.25 *CJ): EJ=INT((BJ-DJ)/30.6001) -350 D=BJ-DJ-INT(30.6001*EJ) -360 M=EJ-1: IF EJ>13.5 THEN M=M-12 -370 Y=CJ-4715: IF M>2 THEN Y=Y-1 -380 PRINT USING "## ## #####"; M; D; Y; -390 PRINT USING " B =###.## deg"; B/RD; -400 PRINT USING " B'=###.## deg"; BP/RD; -440 ' -450 CI=(SR^2+DL^2-ER^2)/(2*SR*DL) -460 ID=ATN(SQR(1-CI*CI)/CI)/RD -470 MV=-8.88+5*LOG(SR*DL)/LOG(10) -480 MV=MV+.044*ID-2.6*ABS(S)+1.25*S*S -490 PRINT USING " Mv =##.#"; MV -500 IF B*XB<0 THEN WHILE INKEY$="": WEND -510 IF BP*XP<0 THEN WHILE INKEY$="": WEND -520 JD=JD+1 : XB=B: XP=BP -530 IF JD<=JE THEN GOTO 100 -540 END -550 ' Calculate position of Earth -560 L0=175347046 -570 L0=L0+3341656 *COS(4.66926+6283.07585 *T) -580 L0=L0+34894 *COS(4.6261+12566.1517 *T) -590 L1=628331966747 -600 L1=L1+206059 *COS(2.67824+6283.07585 *T) -610 L2=52919 -620 EL=(L0+L1*T+L2*T*T)/(1E+08): EB=0 -630 R0=100013989 -640 R0=R0+1670700 *COS(3.09846+6283.07585 *T) -650 R0=R0+13956 *COS(3.05525+12566.1517 *T) -660 R1=103019 *COS(1.10749+6283.07585 *T) -670 R2=4359 *COS(5.7846+6283.0758 *T) -680 ER=(R0+R1*T+R2*T*T)/(1E+08) -690 ' Calculate position of Saturn -700 T=T-(.00578 *DL)/365250 -710 L0=87401354 -720 L0=L0+11107660 *COS(3.96205+213.2991 *T) -730 L0=L0+1414151 *COS(4.58582+7.11355*T) -740 L0=L0+398379 *COS(.52112+206.18555 *T) -750 L0=L0+350769 *COS(3.3033+426.598191 *T) -760 L0=L0+206816 *COS(.24658+103.09277 *T) -770 L0=L0+79271 *COS(3.84007+220.41264 *T) -780 L0=L0+23990*COS(4.66977+110.20632 *T) -790 L0=L0+16574*COS(.43719+419.48464 *T) -800 L0=L0+15820*COS(.93809+632.78374 *T) -810 L0=L0+15054*COS(2.7167+639.89729 *T) -820 L0=L0+14907*COS(5.76903+316.39187 *T) -830 L0=L0+14610*COS(1.56519+3.93215*T) -840 L0=L0+13160*COS(4.44891+14.22709*T) -850 L0=L0+13005*COS(5.98119+11.0457*T) -860 L0=L0+10725*COS(3.1294+202.2534*T) -870 L1=21354295596 -880 L1=L1+1296855 *COS(1.82821+213.2991 *T) -890 L1=L1+564348 *COS(2.885+7.11355*T) -900 L1=L1+107679 *COS(2.2777+206.18555 *T) -910 L1=L1+98323 *COS(1.0807+426.59819 *T) -920 L1=L1+40255 *COS(2.04128+220.41264 *T) -930 L2=116441 *COS(1.17988+7.11355*T) -940 L2=L2+91921 *COS(.07425+213.2991*T) -950 L2=L2+90592 -960 L2=L2+15277*COS(4.06492+206.18555 *T) -970 L3=16039*COS(5.73945+7.11355*T) -980 L4=1662*COS(3.9983+7.1135*T) -990 SL=(L0+L1*T+L2*T*T+L3*T^3+L4*T^4)/(1E+08) -1000 B0=4330678 *COS(3.60284+213.2991 *T) -1010 B0=B0+240348 *COS(2.85238+426.59819 *T) -1020 B0=B0+84746 -1030 B0=B0+34116 *COS(.57297+206.18555 *T) -1040 B0=B0+30863*COS(3.48442+220.41264 *T) -1050 B0=B0+14734*COS(2.11847+639.89729 *T) -1060 B0=B0+9917*COS(5.79+419.4846*T) -1070 B0=B0+6994*COS(4.736+7.1135*T) -1080 B1=397555 *COS(5.3329+213.2991 *T) -1090 B1=B1+49479 *COS(3.14159) -1100 B1=B1+18572*COS(6.09919+426.59819 *T) -1110 B1=B1+14801*COS(2.30586+206.18555 *T) -1120 B1=B1+9644*COS(1.6967+220.4126*T) -1130 B2=20630*COS(.50482+213.2991*T) -1140 SB=(B0+B1*T+B2*T*T)/(1E+08) -1150 R0=955758136 -1160 R0=R0+52921382 *COS(2.39226+213.2991 *T) -1170 R0=R0+1873680 *COS(5.2355+206.18555 *T) -1180 R0=R0+1464664 *COS(1.64763+426.59819 *T) -1190 R0=R0+821891 *COS(5.9352+316.39187 *T) -1200 R0=R0+547507 *COS(5.01533+103.09277 *T) -1210 R0=R0+371684 *COS(2.27115+220.41264 *T) -1220 R0=R0+361778 *COS(3.13904+7.11355*T) -1230 R1=6182981 *COS(.25844+213.2991 *T) -1240 R1=R1+506578 *COS(.71115+206.18555 *T) -1250 R1=R1+341394 *COS(5.79636+426.59819 *T) -1260 R2=436902 *COS(4.78672+213.2991 *T) -1270 R3=20315*COS(3.02187+213.2991*T) -1280 SR=(R0+R1*T+R2*T*T+R3*T^3)/(1E+08) -1290 RETURN -1300 ' -1310 ' This program by Donald W. Olson, Russell L. Doescher, and -1320 ' Jonathan Gallmeier appeared in an article titled "The Rings -1330 ' of Saturn" in Sky & Telescope for May 1995, pages 92-95. -1340 ' It computes the tilt of the rings as seen from the Earth (B) -1350 ' and the Sun (B'). The program pauses when ring-plane crossings -1360 ' occur. It also computes the apparent visual magnitude of -1370 ' Saturn (Mv), a quantity that depends strongly on the amount -1380 ' of ring tilt on a given date. Valid for at least 2,000 years. diff --git a/bwbtest/B15B/satrings.run b/bwbtest/B15B/satrings.run deleted file mode 100644 index 21a9888..0000000 --- a/bwbtest/B15B/satrings.run +++ /dev/null @@ -1,367 +0,0 @@ -Year of interest? 2015 - 1 1 2015 B = 24.52 deg B'= 23.72 deg Mv = 0.6 - 1 2 2015 B = 24.53 deg B'= 23.73 deg Mv = 0.6 - 1 3 2015 B = 24.55 deg B'= 23.74 deg Mv = 0.6 - 1 4 2015 B = 24.56 deg B'= 23.74 deg Mv = 0.6 - 1 5 2015 B = 24.58 deg B'= 23.75 deg Mv = 0.6 - 1 6 2015 B = 24.59 deg B'= 23.76 deg Mv = 0.6 - 1 7 2015 B = 24.61 deg B'= 23.76 deg Mv = 0.6 - 1 8 2015 B = 24.62 deg B'= 23.77 deg Mv = 0.6 - 1 9 2015 B = 24.63 deg B'= 23.78 deg Mv = 0.6 - 1 10 2015 B = 24.65 deg B'= 23.78 deg Mv = 0.6 - 1 11 2015 B = 24.66 deg B'= 23.79 deg Mv = 0.6 - 1 12 2015 B = 24.67 deg B'= 23.80 deg Mv = 0.6 - 1 13 2015 B = 24.68 deg B'= 23.80 deg Mv = 0.6 - 1 14 2015 B = 24.70 deg B'= 23.81 deg Mv = 0.6 - 1 15 2015 B = 24.71 deg B'= 23.82 deg Mv = 0.6 - 1 16 2015 B = 24.72 deg B'= 23.82 deg Mv = 0.6 - 1 17 2015 B = 24.73 deg B'= 23.83 deg Mv = 0.6 - 1 18 2015 B = 24.74 deg B'= 23.84 deg Mv = 0.5 - 1 19 2015 B = 24.75 deg B'= 23.84 deg Mv = 0.5 - 1 20 2015 B = 24.76 deg B'= 23.85 deg Mv = 0.5 - 1 21 2015 B = 24.78 deg B'= 23.86 deg Mv = 0.5 - 1 22 2015 B = 24.79 deg B'= 23.86 deg Mv = 0.5 - 1 23 2015 B = 24.80 deg B'= 23.87 deg Mv = 0.5 - 1 24 2015 B = 24.80 deg B'= 23.88 deg Mv = 0.5 - 1 25 2015 B = 24.81 deg B'= 23.88 deg Mv = 0.5 - 1 26 2015 B = 24.82 deg B'= 23.89 deg Mv = 0.5 - 1 27 2015 B = 24.83 deg B'= 23.90 deg Mv = 0.5 - 1 28 2015 B = 24.84 deg B'= 23.90 deg Mv = 0.5 - 1 29 2015 B = 24.85 deg B'= 23.91 deg Mv = 0.5 - 1 30 2015 B = 24.86 deg B'= 23.92 deg Mv = 0.5 - 1 31 2015 B = 24.86 deg B'= 23.92 deg Mv = 0.5 - 2 1 2015 B = 24.87 deg B'= 23.93 deg Mv = 0.5 - 2 2 2015 B = 24.88 deg B'= 23.93 deg Mv = 0.5 - 2 3 2015 B = 24.89 deg B'= 23.94 deg Mv = 0.5 - 2 4 2015 B = 24.89 deg B'= 23.95 deg Mv = 0.5 - 2 5 2015 B = 24.90 deg B'= 23.95 deg Mv = 0.5 - 2 6 2015 B = 24.90 deg B'= 23.96 deg Mv = 0.5 - 2 7 2015 B = 24.91 deg B'= 23.97 deg Mv = 0.5 - 2 8 2015 B = 24.92 deg B'= 23.97 deg Mv = 0.5 - 2 9 2015 B = 24.92 deg B'= 23.98 deg Mv = 0.5 - 2 10 2015 B = 24.93 deg B'= 23.99 deg Mv = 0.5 - 2 11 2015 B = 24.93 deg B'= 23.99 deg Mv = 0.5 - 2 12 2015 B = 24.94 deg B'= 24.00 deg Mv = 0.5 - 2 13 2015 B = 24.94 deg B'= 24.01 deg Mv = 0.5 - 2 14 2015 B = 24.94 deg B'= 24.01 deg Mv = 0.5 - 2 15 2015 B = 24.95 deg B'= 24.02 deg Mv = 0.5 - 2 16 2015 B = 24.95 deg B'= 24.03 deg Mv = 0.5 - 2 17 2015 B = 24.96 deg B'= 24.03 deg Mv = 0.5 - 2 18 2015 B = 24.96 deg B'= 24.04 deg Mv = 0.5 - 2 19 2015 B = 24.96 deg B'= 24.04 deg Mv = 0.5 - 2 20 2015 B = 24.96 deg B'= 24.05 deg Mv = 0.5 - 2 21 2015 B = 24.97 deg B'= 24.06 deg Mv = 0.5 - 2 22 2015 B = 24.97 deg B'= 24.06 deg Mv = 0.5 - 2 23 2015 B = 24.97 deg B'= 24.07 deg Mv = 0.5 - 2 24 2015 B = 24.97 deg B'= 24.08 deg Mv = 0.5 - 2 25 2015 B = 24.97 deg B'= 24.08 deg Mv = 0.5 - 2 26 2015 B = 24.97 deg B'= 24.09 deg Mv = 0.5 - 2 27 2015 B = 24.98 deg B'= 24.10 deg Mv = 0.5 - 2 28 2015 B = 24.98 deg B'= 24.10 deg Mv = 0.5 - 3 1 2015 B = 24.98 deg B'= 24.11 deg Mv = 0.4 - 3 2 2015 B = 24.98 deg B'= 24.11 deg Mv = 0.4 - 3 3 2015 B = 24.98 deg B'= 24.12 deg Mv = 0.4 - 3 4 2015 B = 24.98 deg B'= 24.13 deg Mv = 0.4 - 3 5 2015 B = 24.98 deg B'= 24.13 deg Mv = 0.4 - 3 6 2015 B = 24.98 deg B'= 24.14 deg Mv = 0.4 - 3 7 2015 B = 24.97 deg B'= 24.15 deg Mv = 0.4 - 3 8 2015 B = 24.97 deg B'= 24.15 deg Mv = 0.4 - 3 9 2015 B = 24.97 deg B'= 24.16 deg Mv = 0.4 - 3 10 2015 B = 24.97 deg B'= 24.16 deg Mv = 0.4 - 3 11 2015 B = 24.97 deg B'= 24.17 deg Mv = 0.4 - 3 12 2015 B = 24.97 deg B'= 24.18 deg Mv = 0.4 - 3 13 2015 B = 24.96 deg B'= 24.18 deg Mv = 0.4 - 3 14 2015 B = 24.96 deg B'= 24.19 deg Mv = 0.4 - 3 15 2015 B = 24.96 deg B'= 24.20 deg Mv = 0.4 - 3 16 2015 B = 24.96 deg B'= 24.20 deg Mv = 0.4 - 3 17 2015 B = 24.95 deg B'= 24.21 deg Mv = 0.4 - 3 18 2015 B = 24.95 deg B'= 24.21 deg Mv = 0.4 - 3 19 2015 B = 24.95 deg B'= 24.22 deg Mv = 0.4 - 3 20 2015 B = 24.94 deg B'= 24.23 deg Mv = 0.4 - 3 21 2015 B = 24.94 deg B'= 24.23 deg Mv = 0.4 - 3 22 2015 B = 24.94 deg B'= 24.24 deg Mv = 0.4 - 3 23 2015 B = 24.93 deg B'= 24.25 deg Mv = 0.3 - 3 24 2015 B = 24.93 deg B'= 24.25 deg Mv = 0.3 - 3 25 2015 B = 24.92 deg B'= 24.26 deg Mv = 0.3 - 3 26 2015 B = 24.92 deg B'= 24.26 deg Mv = 0.3 - 3 27 2015 B = 24.91 deg B'= 24.27 deg Mv = 0.3 - 3 28 2015 B = 24.91 deg B'= 24.28 deg Mv = 0.3 - 3 29 2015 B = 24.90 deg B'= 24.28 deg Mv = 0.3 - 3 30 2015 B = 24.90 deg B'= 24.29 deg Mv = 0.3 - 3 31 2015 B = 24.89 deg B'= 24.29 deg Mv = 0.3 - 4 1 2015 B = 24.88 deg B'= 24.30 deg Mv = 0.3 - 4 2 2015 B = 24.88 deg B'= 24.31 deg Mv = 0.3 - 4 3 2015 B = 24.87 deg B'= 24.31 deg Mv = 0.3 - 4 4 2015 B = 24.86 deg B'= 24.32 deg Mv = 0.3 - 4 5 2015 B = 24.86 deg B'= 24.32 deg Mv = 0.3 - 4 6 2015 B = 24.85 deg B'= 24.33 deg Mv = 0.3 - 4 7 2015 B = 24.84 deg B'= 24.34 deg Mv = 0.3 - 4 8 2015 B = 24.84 deg B'= 24.34 deg Mv = 0.3 - 4 9 2015 B = 24.83 deg B'= 24.35 deg Mv = 0.3 - 4 10 2015 B = 24.82 deg B'= 24.35 deg Mv = 0.2 - 4 11 2015 B = 24.81 deg B'= 24.36 deg Mv = 0.2 - 4 12 2015 B = 24.81 deg B'= 24.37 deg Mv = 0.2 - 4 13 2015 B = 24.80 deg B'= 24.37 deg Mv = 0.2 - 4 14 2015 B = 24.79 deg B'= 24.38 deg Mv = 0.2 - 4 15 2015 B = 24.78 deg B'= 24.38 deg Mv = 0.2 - 4 16 2015 B = 24.77 deg B'= 24.39 deg Mv = 0.2 - 4 17 2015 B = 24.76 deg B'= 24.40 deg Mv = 0.2 - 4 18 2015 B = 24.76 deg B'= 24.40 deg Mv = 0.2 - 4 19 2015 B = 24.75 deg B'= 24.41 deg Mv = 0.2 - 4 20 2015 B = 24.74 deg B'= 24.41 deg Mv = 0.2 - 4 21 2015 B = 24.73 deg B'= 24.42 deg Mv = 0.2 - 4 22 2015 B = 24.72 deg B'= 24.43 deg Mv = 0.2 - 4 23 2015 B = 24.71 deg B'= 24.43 deg Mv = 0.2 - 4 24 2015 B = 24.70 deg B'= 24.44 deg Mv = 0.2 - 4 25 2015 B = 24.69 deg B'= 24.44 deg Mv = 0.2 - 4 26 2015 B = 24.68 deg B'= 24.45 deg Mv = 0.2 - 4 27 2015 B = 24.67 deg B'= 24.46 deg Mv = 0.2 - 4 28 2015 B = 24.66 deg B'= 24.46 deg Mv = 0.1 - 4 29 2015 B = 24.65 deg B'= 24.47 deg Mv = 0.1 - 4 30 2015 B = 24.64 deg B'= 24.47 deg Mv = 0.1 - 5 1 2015 B = 24.63 deg B'= 24.48 deg Mv = 0.1 - 5 2 2015 B = 24.62 deg B'= 24.49 deg Mv = 0.1 - 5 3 2015 B = 24.61 deg B'= 24.49 deg Mv = 0.1 - 5 4 2015 B = 24.60 deg B'= 24.50 deg Mv = 0.1 - 5 5 2015 B = 24.59 deg B'= 24.50 deg Mv = 0.1 - 5 6 2015 B = 24.58 deg B'= 24.51 deg Mv = 0.1 - 5 7 2015 B = 24.57 deg B'= 24.51 deg Mv = 0.1 - 5 8 2015 B = 24.56 deg B'= 24.52 deg Mv = 0.1 - 5 9 2015 B = 24.54 deg B'= 24.53 deg Mv = 0.1 - 5 10 2015 B = 24.53 deg B'= 24.53 deg Mv = 0.1 - 5 11 2015 B = 24.52 deg B'= 24.54 deg Mv = 0.1 - 5 12 2015 B = 24.51 deg B'= 24.54 deg Mv = 0.1 - 5 13 2015 B = 24.50 deg B'= 24.55 deg Mv = 0.1 - 5 14 2015 B = 24.49 deg B'= 24.56 deg Mv = 0.1 - 5 15 2015 B = 24.48 deg B'= 24.56 deg Mv = 0.1 - 5 16 2015 B = 24.47 deg B'= 24.57 deg Mv = 0.1 - 5 17 2015 B = 24.46 deg B'= 24.57 deg Mv = 0.0 - 5 18 2015 B = 24.45 deg B'= 24.58 deg Mv = 0.0 - 5 19 2015 B = 24.43 deg B'= 24.58 deg Mv = 0.0 - 5 20 2015 B = 24.42 deg B'= 24.59 deg Mv = 0.0 - 5 21 2015 B = 24.41 deg B'= 24.60 deg Mv = 0.0 - 5 22 2015 B = 24.40 deg B'= 24.60 deg Mv = 0.0 - 5 23 2015 B = 24.39 deg B'= 24.61 deg Mv = 0.0 - 5 24 2015 B = 24.38 deg B'= 24.61 deg Mv = 0.0 - 5 25 2015 B = 24.37 deg B'= 24.62 deg Mv = 0.0 - 5 26 2015 B = 24.36 deg B'= 24.62 deg Mv = 0.0 - 5 27 2015 B = 24.35 deg B'= 24.63 deg Mv = 0.0 - 5 28 2015 B = 24.33 deg B'= 24.64 deg Mv = 0.0 - 5 29 2015 B = 24.32 deg B'= 24.64 deg Mv = 0.1 - 5 30 2015 B = 24.31 deg B'= 24.65 deg Mv = 0.1 - 5 31 2015 B = 24.30 deg B'= 24.65 deg Mv = 0.1 - 6 1 2015 B = 24.29 deg B'= 24.66 deg Mv = 0.1 - 6 2 2015 B = 24.28 deg B'= 24.66 deg Mv = 0.1 - 6 3 2015 B = 24.27 deg B'= 24.67 deg Mv = 0.1 - 6 4 2015 B = 24.26 deg B'= 24.68 deg Mv = 0.1 - 6 5 2015 B = 24.25 deg B'= 24.68 deg Mv = 0.1 - 6 6 2015 B = 24.24 deg B'= 24.69 deg Mv = 0.1 - 6 7 2015 B = 24.23 deg B'= 24.69 deg Mv = 0.1 - 6 8 2015 B = 24.22 deg B'= 24.70 deg Mv = 0.1 - 6 9 2015 B = 24.21 deg B'= 24.70 deg Mv = 0.1 - 6 10 2015 B = 24.20 deg B'= 24.71 deg Mv = 0.1 - 6 11 2015 B = 24.19 deg B'= 24.71 deg Mv = 0.1 - 6 12 2015 B = 24.18 deg B'= 24.72 deg Mv = 0.1 - 6 13 2015 B = 24.17 deg B'= 24.73 deg Mv = 0.1 - 6 14 2015 B = 24.16 deg B'= 24.73 deg Mv = 0.1 - 6 15 2015 B = 24.15 deg B'= 24.74 deg Mv = 0.1 - 6 16 2015 B = 24.14 deg B'= 24.74 deg Mv = 0.2 - 6 17 2015 B = 24.14 deg B'= 24.75 deg Mv = 0.2 - 6 18 2015 B = 24.13 deg B'= 24.75 deg Mv = 0.2 - 6 19 2015 B = 24.12 deg B'= 24.76 deg Mv = 0.2 - 6 20 2015 B = 24.11 deg B'= 24.76 deg Mv = 0.2 - 6 21 2015 B = 24.10 deg B'= 24.77 deg Mv = 0.2 - 6 22 2015 B = 24.10 deg B'= 24.78 deg Mv = 0.2 - 6 23 2015 B = 24.09 deg B'= 24.78 deg Mv = 0.2 - 6 24 2015 B = 24.08 deg B'= 24.79 deg Mv = 0.2 - 6 25 2015 B = 24.07 deg B'= 24.79 deg Mv = 0.2 - 6 26 2015 B = 24.07 deg B'= 24.80 deg Mv = 0.2 - 6 27 2015 B = 24.06 deg B'= 24.80 deg Mv = 0.2 - 6 28 2015 B = 24.05 deg B'= 24.81 deg Mv = 0.2 - 6 29 2015 B = 24.05 deg B'= 24.81 deg Mv = 0.2 - 6 30 2015 B = 24.04 deg B'= 24.82 deg Mv = 0.2 - 7 1 2015 B = 24.04 deg B'= 24.82 deg Mv = 0.2 - 7 2 2015 B = 24.03 deg B'= 24.83 deg Mv = 0.3 - 7 3 2015 B = 24.03 deg B'= 24.84 deg Mv = 0.3 - 7 4 2015 B = 24.02 deg B'= 24.84 deg Mv = 0.3 - 7 5 2015 B = 24.02 deg B'= 24.85 deg Mv = 0.3 - 7 6 2015 B = 24.01 deg B'= 24.85 deg Mv = 0.3 - 7 7 2015 B = 24.01 deg B'= 24.86 deg Mv = 0.3 - 7 8 2015 B = 24.00 deg B'= 24.86 deg Mv = 0.3 - 7 9 2015 B = 24.00 deg B'= 24.87 deg Mv = 0.3 - 7 10 2015 B = 24.00 deg B'= 24.87 deg Mv = 0.3 - 7 11 2015 B = 24.00 deg B'= 24.88 deg Mv = 0.3 - 7 12 2015 B = 23.99 deg B'= 24.88 deg Mv = 0.3 - 7 13 2015 B = 23.99 deg B'= 24.89 deg Mv = 0.3 - 7 14 2015 B = 23.99 deg B'= 24.89 deg Mv = 0.3 - 7 15 2015 B = 23.99 deg B'= 24.90 deg Mv = 0.3 - 7 16 2015 B = 23.99 deg B'= 24.90 deg Mv = 0.3 - 7 17 2015 B = 23.98 deg B'= 24.91 deg Mv = 0.3 - 7 18 2015 B = 23.98 deg B'= 24.92 deg Mv = 0.3 - 7 19 2015 B = 23.98 deg B'= 24.92 deg Mv = 0.4 - 7 20 2015 B = 23.98 deg B'= 24.93 deg Mv = 0.4 - 7 21 2015 B = 23.98 deg B'= 24.93 deg Mv = 0.4 - 7 22 2015 B = 23.98 deg B'= 24.94 deg Mv = 0.4 - 7 23 2015 B = 23.98 deg B'= 24.94 deg Mv = 0.4 - 7 24 2015 B = 23.98 deg B'= 24.95 deg Mv = 0.4 - 7 25 2015 B = 23.99 deg B'= 24.95 deg Mv = 0.4 - 7 26 2015 B = 23.99 deg B'= 24.96 deg Mv = 0.4 - 7 27 2015 B = 23.99 deg B'= 24.96 deg Mv = 0.4 - 7 28 2015 B = 23.99 deg B'= 24.97 deg Mv = 0.4 - 7 29 2015 B = 23.99 deg B'= 24.97 deg Mv = 0.4 - 7 30 2015 B = 24.00 deg B'= 24.98 deg Mv = 0.4 - 7 31 2015 B = 24.00 deg B'= 24.98 deg Mv = 0.4 - 8 1 2015 B = 24.00 deg B'= 24.99 deg Mv = 0.4 - 8 2 2015 B = 24.01 deg B'= 24.99 deg Mv = 0.4 - 8 3 2015 B = 24.01 deg B'= 25.00 deg Mv = 0.4 - 8 4 2015 B = 24.02 deg B'= 25.00 deg Mv = 0.4 - 8 5 2015 B = 24.02 deg B'= 25.01 deg Mv = 0.4 - 8 6 2015 B = 24.03 deg B'= 25.01 deg Mv = 0.4 - 8 7 2015 B = 24.03 deg B'= 25.02 deg Mv = 0.4 - 8 8 2015 B = 24.04 deg B'= 25.02 deg Mv = 0.5 - 8 9 2015 B = 24.04 deg B'= 25.03 deg Mv = 0.5 - 8 10 2015 B = 24.05 deg B'= 25.04 deg Mv = 0.5 - 8 11 2015 B = 24.06 deg B'= 25.04 deg Mv = 0.5 - 8 12 2015 B = 24.06 deg B'= 25.05 deg Mv = 0.5 - 8 13 2015 B = 24.07 deg B'= 25.05 deg Mv = 0.5 - 8 14 2015 B = 24.08 deg B'= 25.06 deg Mv = 0.5 - 8 15 2015 B = 24.08 deg B'= 25.06 deg Mv = 0.5 - 8 16 2015 B = 24.09 deg B'= 25.07 deg Mv = 0.5 - 8 17 2015 B = 24.10 deg B'= 25.07 deg Mv = 0.5 - 8 18 2015 B = 24.11 deg B'= 25.08 deg Mv = 0.5 - 8 19 2015 B = 24.12 deg B'= 25.08 deg Mv = 0.5 - 8 20 2015 B = 24.13 deg B'= 25.09 deg Mv = 0.5 - 8 21 2015 B = 24.14 deg B'= 25.09 deg Mv = 0.5 - 8 22 2015 B = 24.15 deg B'= 25.10 deg Mv = 0.5 - 8 23 2015 B = 24.16 deg B'= 25.10 deg Mv = 0.5 - 8 24 2015 B = 24.17 deg B'= 25.11 deg Mv = 0.5 - 8 25 2015 B = 24.18 deg B'= 25.11 deg Mv = 0.5 - 8 26 2015 B = 24.19 deg B'= 25.12 deg Mv = 0.5 - 8 27 2015 B = 24.20 deg B'= 25.12 deg Mv = 0.5 - 8 28 2015 B = 24.21 deg B'= 25.13 deg Mv = 0.5 - 8 29 2015 B = 24.22 deg B'= 25.13 deg Mv = 0.5 - 8 30 2015 B = 24.23 deg B'= 25.14 deg Mv = 0.5 - 8 31 2015 B = 24.25 deg B'= 25.14 deg Mv = 0.5 - 9 1 2015 B = 24.26 deg B'= 25.15 deg Mv = 0.5 - 9 2 2015 B = 24.27 deg B'= 25.15 deg Mv = 0.5 - 9 3 2015 B = 24.28 deg B'= 25.16 deg Mv = 0.5 - 9 4 2015 B = 24.30 deg B'= 25.16 deg Mv = 0.5 - 9 5 2015 B = 24.31 deg B'= 25.17 deg Mv = 0.5 - 9 6 2015 B = 24.32 deg B'= 25.17 deg Mv = 0.5 - 9 7 2015 B = 24.34 deg B'= 25.18 deg Mv = 0.5 - 9 8 2015 B = 24.35 deg B'= 25.18 deg Mv = 0.6 - 9 9 2015 B = 24.36 deg B'= 25.19 deg Mv = 0.6 - 9 10 2015 B = 24.38 deg B'= 25.19 deg Mv = 0.6 - 9 11 2015 B = 24.39 deg B'= 25.20 deg Mv = 0.6 - 9 12 2015 B = 24.41 deg B'= 25.20 deg Mv = 0.6 - 9 13 2015 B = 24.42 deg B'= 25.21 deg Mv = 0.6 - 9 14 2015 B = 24.44 deg B'= 25.21 deg Mv = 0.6 - 9 15 2015 B = 24.45 deg B'= 25.21 deg Mv = 0.6 - 9 16 2015 B = 24.47 deg B'= 25.22 deg Mv = 0.6 - 9 17 2015 B = 24.48 deg B'= 25.22 deg Mv = 0.6 - 9 18 2015 B = 24.50 deg B'= 25.23 deg Mv = 0.6 - 9 19 2015 B = 24.51 deg B'= 25.23 deg Mv = 0.6 - 9 20 2015 B = 24.53 deg B'= 25.24 deg Mv = 0.6 - 9 21 2015 B = 24.55 deg B'= 25.24 deg Mv = 0.6 - 9 22 2015 B = 24.56 deg B'= 25.25 deg Mv = 0.6 - 9 23 2015 B = 24.58 deg B'= 25.25 deg Mv = 0.6 - 9 24 2015 B = 24.59 deg B'= 25.26 deg Mv = 0.6 - 9 25 2015 B = 24.61 deg B'= 25.26 deg Mv = 0.6 - 9 26 2015 B = 24.63 deg B'= 25.27 deg Mv = 0.6 - 9 27 2015 B = 24.64 deg B'= 25.27 deg Mv = 0.6 - 9 28 2015 B = 24.66 deg B'= 25.28 deg Mv = 0.6 - 9 29 2015 B = 24.68 deg B'= 25.28 deg Mv = 0.6 - 9 30 2015 B = 24.69 deg B'= 25.29 deg Mv = 0.6 -10 1 2015 B = 24.71 deg B'= 25.29 deg Mv = 0.6 -10 2 2015 B = 24.73 deg B'= 25.30 deg Mv = 0.6 -10 3 2015 B = 24.75 deg B'= 25.30 deg Mv = 0.6 -10 4 2015 B = 24.76 deg B'= 25.31 deg Mv = 0.6 -10 5 2015 B = 24.78 deg B'= 25.31 deg Mv = 0.6 -10 6 2015 B = 24.80 deg B'= 25.31 deg Mv = 0.6 -10 7 2015 B = 24.82 deg B'= 25.32 deg Mv = 0.6 -10 8 2015 B = 24.83 deg B'= 25.32 deg Mv = 0.6 -10 9 2015 B = 24.85 deg B'= 25.33 deg Mv = 0.6 -10 10 2015 B = 24.87 deg B'= 25.33 deg Mv = 0.6 -10 11 2015 B = 24.89 deg B'= 25.34 deg Mv = 0.6 -10 12 2015 B = 24.91 deg B'= 25.34 deg Mv = 0.6 -10 13 2015 B = 24.92 deg B'= 25.35 deg Mv = 0.6 -10 14 2015 B = 24.94 deg B'= 25.35 deg Mv = 0.6 -10 15 2015 B = 24.96 deg B'= 25.36 deg Mv = 0.6 -10 16 2015 B = 24.98 deg B'= 25.36 deg Mv = 0.6 -10 17 2015 B = 24.99 deg B'= 25.37 deg Mv = 0.6 -10 18 2015 B = 25.01 deg B'= 25.37 deg Mv = 0.6 -10 19 2015 B = 25.03 deg B'= 25.38 deg Mv = 0.6 -10 20 2015 B = 25.05 deg B'= 25.38 deg Mv = 0.6 -10 21 2015 B = 25.07 deg B'= 25.38 deg Mv = 0.6 -10 22 2015 B = 25.08 deg B'= 25.39 deg Mv = 0.6 -10 23 2015 B = 25.10 deg B'= 25.39 deg Mv = 0.6 -10 24 2015 B = 25.12 deg B'= 25.40 deg Mv = 0.6 -10 25 2015 B = 25.14 deg B'= 25.40 deg Mv = 0.5 -10 26 2015 B = 25.15 deg B'= 25.41 deg Mv = 0.5 -10 27 2015 B = 25.17 deg B'= 25.41 deg Mv = 0.5 -10 28 2015 B = 25.19 deg B'= 25.42 deg Mv = 0.5 -10 29 2015 B = 25.21 deg B'= 25.42 deg Mv = 0.5 -10 30 2015 B = 25.23 deg B'= 25.43 deg Mv = 0.5 -10 31 2015 B = 25.24 deg B'= 25.43 deg Mv = 0.5 -11 1 2015 B = 25.26 deg B'= 25.43 deg Mv = 0.5 -11 2 2015 B = 25.28 deg B'= 25.44 deg Mv = 0.5 -11 3 2015 B = 25.30 deg B'= 25.44 deg Mv = 0.5 -11 4 2015 B = 25.31 deg B'= 25.45 deg Mv = 0.5 -11 5 2015 B = 25.33 deg B'= 25.45 deg Mv = 0.5 -11 6 2015 B = 25.35 deg B'= 25.46 deg Mv = 0.5 -11 7 2015 B = 25.36 deg B'= 25.46 deg Mv = 0.5 -11 8 2015 B = 25.38 deg B'= 25.47 deg Mv = 0.5 -11 9 2015 B = 25.40 deg B'= 25.47 deg Mv = 0.5 -11 10 2015 B = 25.41 deg B'= 25.47 deg Mv = 0.5 -11 11 2015 B = 25.43 deg B'= 25.48 deg Mv = 0.5 -11 12 2015 B = 25.45 deg B'= 25.48 deg Mv = 0.5 -11 13 2015 B = 25.46 deg B'= 25.49 deg Mv = 0.5 -11 14 2015 B = 25.48 deg B'= 25.49 deg Mv = 0.5 -11 15 2015 B = 25.50 deg B'= 25.50 deg Mv = 0.5 -11 16 2015 B = 25.51 deg B'= 25.50 deg Mv = 0.5 -11 17 2015 B = 25.53 deg B'= 25.51 deg Mv = 0.5 -11 18 2015 B = 25.54 deg B'= 25.51 deg Mv = 0.5 -11 19 2015 B = 25.56 deg B'= 25.51 deg Mv = 0.5 -11 20 2015 B = 25.57 deg B'= 25.52 deg Mv = 0.5 -11 21 2015 B = 25.59 deg B'= 25.52 deg Mv = 0.5 -11 22 2015 B = 25.61 deg B'= 25.53 deg Mv = 0.5 -11 23 2015 B = 25.62 deg B'= 25.53 deg Mv = 0.5 -11 24 2015 B = 25.64 deg B'= 25.54 deg Mv = 0.5 -11 25 2015 B = 25.65 deg B'= 25.54 deg Mv = 0.5 -11 26 2015 B = 25.66 deg B'= 25.54 deg Mv = 0.5 -11 27 2015 B = 25.68 deg B'= 25.55 deg Mv = 0.4 -11 28 2015 B = 25.69 deg B'= 25.55 deg Mv = 0.4 -11 29 2015 B = 25.71 deg B'= 25.56 deg Mv = 0.4 -11 30 2015 B = 25.72 deg B'= 25.56 deg Mv = 0.4 -12 1 2015 B = 25.74 deg B'= 25.57 deg Mv = 0.4 -12 2 2015 B = 25.75 deg B'= 25.57 deg Mv = 0.4 -12 3 2015 B = 25.76 deg B'= 25.57 deg Mv = 0.4 -12 4 2015 B = 25.78 deg B'= 25.58 deg Mv = 0.4 -12 5 2015 B = 25.79 deg B'= 25.58 deg Mv = 0.5 -12 6 2015 B = 25.80 deg B'= 25.59 deg Mv = 0.5 -12 7 2015 B = 25.82 deg B'= 25.59 deg Mv = 0.5 -12 8 2015 B = 25.83 deg B'= 25.60 deg Mv = 0.5 -12 9 2015 B = 25.84 deg B'= 25.60 deg Mv = 0.5 -12 10 2015 B = 25.85 deg B'= 25.60 deg Mv = 0.5 -12 11 2015 B = 25.87 deg B'= 25.61 deg Mv = 0.5 -12 12 2015 B = 25.88 deg B'= 25.61 deg Mv = 0.5 -12 13 2015 B = 25.89 deg B'= 25.62 deg Mv = 0.5 -12 14 2015 B = 25.90 deg B'= 25.62 deg Mv = 0.5 -12 15 2015 B = 25.91 deg B'= 25.62 deg Mv = 0.5 -12 16 2015 B = 25.92 deg B'= 25.63 deg Mv = 0.5 -12 17 2015 B = 25.93 deg B'= 25.63 deg Mv = 0.5 -12 18 2015 B = 25.95 deg B'= 25.64 deg Mv = 0.5 -12 19 2015 B = 25.96 deg B'= 25.64 deg Mv = 0.5 -12 20 2015 B = 25.97 deg B'= 25.65 deg Mv = 0.5 -12 21 2015 B = 25.98 deg B'= 25.65 deg Mv = 0.5 -12 22 2015 B = 25.99 deg B'= 25.65 deg Mv = 0.5 -12 23 2015 B = 26.00 deg B'= 25.66 deg Mv = 0.5 -12 24 2015 B = 26.01 deg B'= 25.66 deg Mv = 0.5 -12 25 2015 B = 26.02 deg B'= 25.67 deg Mv = 0.5 -12 26 2015 B = 26.03 deg B'= 25.67 deg Mv = 0.5 -12 27 2015 B = 26.03 deg B'= 25.67 deg Mv = 0.5 -12 28 2015 B = 26.04 deg B'= 25.68 deg Mv = 0.5 -12 29 2015 B = 26.05 deg B'= 25.68 deg Mv = 0.5 -12 30 2015 B = 26.06 deg B'= 25.69 deg Mv = 0.5 -12 31 2015 B = 26.07 deg B'= 25.69 deg Mv = 0.5 - 1 1 2016 B = 26.08 deg B'= 25.69 deg Mv = 0.5 diff --git a/bwbtest/B15B/scales.INP b/bwbtest/B15B/scales.INP deleted file mode 100644 index d2500e5..0000000 --- a/bwbtest/B15B/scales.INP +++ /dev/null @@ -1,2 +0,0 @@ -250 -d diff --git a/bwbtest/B15B/scales.bas b/bwbtest/B15B/scales.bas deleted file mode 100644 index 47482e7..0000000 --- a/bwbtest/B15B/scales.bas +++ /dev/null @@ -1,78 +0,0 @@ -10 REM - THIS IS SCALES.BAS -20 CLS : A = 340: BT = 254: C = BT: DIV = 1: G = A: H1 = 7650: TICK = 127 -30 M = 1016: PLU = 40: CI = 360 -40 INPUT "Please Enter SCALE LENGTH in mm - "; S: S1 = S -50 IF S > 2000 THEN GOTO 400 -60 IF S1 > 250 THEN S1 = S1 - 250: DIV = DIV + 1: GOTO 60 -70 PRINT : PRINT "Do you want the scale in Degrees or Hours and Minutes?" -80 INPUT " Please indicate 'd' for Degrees or 'h' for Hours... "; A$: PRINT -90 IF A$ = "h" OR A$ = "H" THEN CI = 288: QQ = 1 -100 PRINT : PRINT : PRINT "Printing......." -110 PRINT : PRINT "NOTE: This will take up to 90 seconds to print." -120 S = S / DIV: SP = S * PLU: REM - Convert Scale Length to plotter units -130 REM - Clear, set into HP-GL/2 mode, and initialize the printer -140 LPRINT CHR$(27); "E": LPRINT CHR$(27); "%0B": LPRINT "IN;" -150 DEGREES = (SP / CI) * DIV: REM - Calculate the # of deg (or hrs) to print per column -160 LPRINT "SP1;": LPRINT "PW0;": REM - Select a pen and set the width -170 REM - Using the Scale Length per column, insert tick marks for the whole column -180 REM - there will be one Tick Mark for each degree -190 FOR Z = 1 TO DIV -200 A = A + Q -210 FOR I = 0 TO SP STEP DEGREES -220 LPRINT "PU;" -230 LPRINT "PA"; A + TICK; ","; C + I; ";" -240 LPRINT "PD;" -250 LPRINT "PA"; A + BT; ","; C + I; ";" -260 LPRINT "PU;" -270 P = P + 1: R = R + 1: T = T + 1 -280 IF QQ = 1 THEN GOTO 330 -290 IF T = 360 THEN T = 0 -300 IF P = 5 THEN GOSUB 540 -310 IF R = 10 THEN GOSUB 620 -320 GOTO 360 -330 IF T = 288 THEN T = 0 -340 IF P = 4 THEN GOSUB 540 -350 IF R = 12 THEN GOSUB 620 -360 NEXT I -370 A = 340: Q = Q + M -380 NEXT Z -390 GOTO 420 -400 PRINT : PRINT "Value is too high for this program," -410 PRINT " Please enter another SMALLER value": PRINT : GOTO 40: -420 REM - Draw registration dots at bottom of the scales -430 LPRINT "UL8,5,20,5,20,5,20,5,20;" -440 LPRINT "LT8;" -450 LPRINT "PU;" -460 LPRINT "PA"; G; ","; C - DEGREES; ";" -470 LPRINT "PD;" -480 LPRINT "PA"; H1; ","; C - DEGREES; ";" -490 LPRINT "PU;" -500 REM - Reset the Printer -510 LPRINT CHR$(27); "%0A": LPRINT CHR$(27); "E" -520 END -530 REM - "Make every fifth degree or 20th minute longer" SUB-ROUTINE -540 LPRINT "PU;" -550 LPRINT "PA"; A; ","; C + I; ";" -560 LPRINT "PD;" -570 LPRINT "PA"; A + BT; ","; C + I; ";" -580 LPRINT "PU;" -590 P = 0 -600 RETURN -610 REM - "Number the scales with degrees or hours" SUB-ROUTINE -620 LPRINT "SD1,21,2,1,4,10,7,4148;" -630 IF DIV > 2 THEN LPRINT "DI0,-1;": LPRINT "LO16;": GOTO 650 -640 LPRINT "LO18;" -650 LPRINT "DT*,1;" -660 LPRINT "PU;" -670 LPRINT "PA"; A; ","; C + I; ";" -680 IF QQ = 1 THEN LPRINT "LB"; (T / 12); "*;": GOTO 710 -690 LPRINT "PD;" -700 LPRINT "LB"; T; "*;" -710 LPRINT "PU;" -720 R = 0 -730 RETURN -900 REM ********************************************* -910 REM THIS PROGRAM BY RONALD KOCELA PRODUCES LINEAR -920 REM SETTING CIRCLE SCALES ON HP LASERJET PRINTERS -930 REM FROM SKY & TELESCOPE, MARCH 1996, PAGE 84. -940 REM ********************************************* diff --git a/bwbtest/B15B/scales.run b/bwbtest/B15B/scales.run deleted file mode 100644 index 8e42fef..0000000 --- a/bwbtest/B15B/scales.run +++ /dev/null @@ -1,10 +0,0 @@ -Please Enter SCALE LENGTH in mm - ? 250 - -Do you want the scale in Degrees or Hours and Minutes? - Please indicate 'd' for Degrees or 'h' for Hours... ? d - - - -Printing....... - -NOTE: This will take up to 90 seconds to print. diff --git a/bwbtest/B15B/shadow.INP b/bwbtest/B15B/shadow.INP deleted file mode 100644 index a2209b6..0000000 --- a/bwbtest/B15B/shadow.INP +++ /dev/null @@ -1,6 +0,0 @@ -8765 -6 -2 -53 -34 -7 diff --git a/bwbtest/B15B/shadow.bas b/bwbtest/B15B/shadow.bas deleted file mode 100644 index 1709d01..0000000 --- a/bwbtest/B15B/shadow.bas +++ /dev/null @@ -1,68 +0,0 @@ -10 REM MOUNTAIN SHADOWS -11 REM -12 DIM M(70): C=-0.4 -13 DR=2*3.14159265/360: FM=1/5280 -14 INPUT "MOUNTAIN HEIGHT (FT)";H1 -15 INPUT "OBSERVER HEIGHT (FT)";H0 -16 INPUT "HORIZON HEIGHT (FT) ";H -17 H1=H1*FM: H0=H0*FM: H=H*FM -18 INPUT "SLOPE ";S: S=S*DR -19 INPUT "SUN ALT";A: A=A*DR -20 INPUT "OBS'R AZ";Z: Z=Z*DR -21 E=0.30: B=0.005: B9=0.9+B -22 H9=60: V9=30: W=1*DR -23 S9=2.5*LOG(B9)/LOG(10) -24 S0=2.5*LOG(B)/LOG(10) -25 REM OBSERVER'S LOCATION -26 X0=COS(Z)*(H1-H0)/TAN(S) -27 Y0=SIN(Z)*(H0-H1)/TAN(S) -28 Z0=H0-H1 -29 REM SET UP GRID OF DIRECTIONS -30 FOR J=1 TO V9 -31 AL=W*(V9/2-J) -32 FOR I=1 TO H9 -33 AZ=W*(I-H9/2) -34 REM DISTANCE TO 'NORTH' SLOPE -35 REM SHADOW PLANE -36 A0=SQR(TAN(S)^2-TAN(A)^2) -37 A1=-1*TAN(AL)/COS(AZ)-TAN(A) -38 A2=A0*TAN(AZ) -39 A3=-X0*TAN(AL)/COS(AZ)-Z0 -40 A4=A0*(Y0+X0*TAN(AZ)) -41 XI=(A3+A4)/(A1+A2) -42 F1=0: D=TAN(AZ) -43 IF XI>=X0 THEN F1=1 -44 A5=1+D^2+(TAN(AL)/COS(AZ))^2 -45 D1=ABS(XI-X0)*SQR(A5) -46 REM DIST TO 'SOUTH' SLOPE -47 REM SHADOW PLANE -48 XI=(A3-A4)/(A1-A2) -49 F2=0 -50 IF XI>=X0 THEN F2=1 -51 D2=ABS(XI-X0)*SQR(A5) -52 REM DISTANCE TO HORIZON PLANE -53 F3=0: IF AL>=0 THEN F3=1 -54 D3=(H0-H)/SIN(ABS(AL)+0.001) -55 REM INTEGRATE ALONG ILLUMINATED -56 REM PORTION OF LINE OF SIGHT -57 D0=100*E -58 IF D1B9-B THEN B0=B9-B -65 G=S9-S0 -66 SK=2.5*LOG(B0+B)/LOG(10) -67 M(I)=INT(0.05+9.9*(SK-S0)/G) -68 NEXT I -69 FOR I9=1 TO H9 -70 PRINT RIGHT$(STR$(M(I9)),1); -71 NEXT I9: PRINT -72 NEXT J -73 END -74 REM ************************** -75 REM ASTRONOMICAL COMPUTING -76 REM SKY & TELESCOPE, APRIL 88 -77 REM ************************** diff --git a/bwbtest/B15B/shadow.run b/bwbtest/B15B/shadow.run deleted file mode 100644 index dbd6347..0000000 --- a/bwbtest/B15B/shadow.run +++ /dev/null @@ -1,36 +0,0 @@ -MOUNTAIN HEIGHT (FT)? 8765 -OBSERVER HEIGHT (FT)? 6 -HORIZON HEIGHT (FT) ? 2 -SLOPE ? 53 -SUN ALT? 34 -OBS'R AZ? 7 -999999999999999999999888888888888888888888888888999999999999 -999999999999999999998888888888888888888888888888899999999999 -999999999999999999988888888888888888888888888888889999999999 -999999999999999999888888888888888888888888888888888999999999 -999999999999999999888888888888888888888888888888888899999999 -999999999999999998888888888888888888888888888888888889999999 -999999999999999988888888888888888888888888888888888888999999 -999999999999999888888888888888888888888888888888888888899999 -999999999999998888888888888888888888888888888888888888889999 -999999999999988888888888888888888888888888888888888888888999 -999999999999888888888888888888888888888888888888888888888889 -999999999998888888888888888888888888888888888888888888888888 -999999999988888888888888888888888888888888888888888888888888 -999999999888888888888888888888888888888888888888888888888888 -999999988888888888888888888888888888888888888888888888888888 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 -000000000000000000000000000000000000000000000000000000000000 diff --git a/bwbtest/B15B/shower.INP b/bwbtest/B15B/shower.INP deleted file mode 100644 index 9b3c236..0000000 --- a/bwbtest/B15B/shower.INP +++ /dev/null @@ -1 +0,0 @@ -2015 diff --git a/bwbtest/B15B/shower.bas b/bwbtest/B15B/shower.bas deleted file mode 100644 index 374e164..0000000 --- a/bwbtest/B15B/shower.bas +++ /dev/null @@ -1,67 +0,0 @@ - 10 REM METEOR SHOWERS - 12 R1=3.1415927/180: DIM M$(12) - 14 DIM N$(9),S0(9),S1(9),J5(9) - 16 FOR I=1 TO 12: READ M$(I): NEXT - 18 DATA JAN,FEB,MAR,APR,MAY,JUN - 20 DATA JUL,AUG,SEP,OCT,NOV,DEC - 22 FOR I=1 TO 9 - 24 READ N$(I),S0(I),S1(I),J5(I) - 26 NEXT I - 28 INPUT "YEAR";Y: T5=(Y-1950)/100 - 30 FOR I=1 TO 9 - 32 IF ABS(T5)<1.5 THEN 36 - 34 IF I=1 OR I=4 OR I=9 THEN 70 - 36 S=S0(I)+S1(I)*T5 - 38 S=S+1.39663*T5+.0003*T5*T5 - 40 S=S-360*INT(S/360) - 42 J=J5(I)+36525.636*T5+S1(I)*T5 - 44 FOR K=1 TO 2 - 46 T=(J+2433000-2415020)/36525 - 48 L=279.7+36000.769*T+.0003*T*T - 50 M=358.48+35999.05*T-.0002*T*T - 52 S5=L+(1.92-.005*T)*SIN(M*R1) - 54 S5=S5+.02*SIN(2*M*R1) - 56 S5=S5-360*INT(S5/360) - 58 J=J-(S5-S)/(.986+.033*COS(M*R1)) - 60 NEXT K - 62 F=J-INT(J): J=INT(J)+2433000 - 64 GOSUB 96 - 66 PRINT N$(I);TAB(15);M$(M); - 68 PRINT USING "###.#";D - 70 NEXT I - 72 END - 74 REM SHOWER DATA - 76 DATA "QU'DNTDS",282.9,-0.4,285.3 - 78 DATA "LYRIDS ",31.7,0.06,393.9 - 80 DATA "ETA AQR ",44.0,0.3,406.6 - 82 DATA "DLT AQR ",125.0,-1.0,491.2 - 84 DATA "PERSEIDS",139.2,0.03,506.0 - 86 DATA "ORIONIDS",207.7,0.4,576.2 - 88 DATA "TAURIDS ",220.0,0.44,588.5 - 90 DATA "LEONIDS ",234.3,1.5,602.7 - 92 DATA "GEMINIDS",261.4,0,629.5 - 94 REM - 96 REM JD --> CALENDAR - 98 G=1: IF J<2299161 THEN G=0 - 100 F=F+.5: IF F<1 THEN 104 - 102 F=F-1: J=J+1 - 104 IF G=1 THEN 108 - 106 A=J: GOTO 112 - 108 A1=INT((J/36524.25)-51.12264) - 110 A=J+1+A1-INT(A1/4) - 112 B=A+1524 - 114 C=INT((B/365.25)-.3343) - 116 D=INT(365.25*C) - 118 E=INT((B-D)/30.61) - 120 D=B-D-INT(30.61*E)+F - 122 M=E-1: Y=C-4716 - 124 IF E>13.5 THEN M=M-12 - 126 IF M<2.5 THEN Y=Y+1 - 128 RETURN - 200 REM ******************************* - 210 REM FOR ANY GIVEN YEAR, THIS - 220 REM PROGRAM LISTS THE MAJOR METEOR - 230 REM SHOWERS AND THE UT DATES OF - 240 REM MAXIMUM ACTIVITY. FROM SKY - 250 REM & TELESCOPE, AUG '89, P. 195. - 260 REM ******************************* diff --git a/bwbtest/B15B/shower.run b/bwbtest/B15B/shower.run deleted file mode 100644 index cfe5270..0000000 --- a/bwbtest/B15B/shower.run +++ /dev/null @@ -1,10 +0,0 @@ -YEAR? 2015 -QU'DNTDS JAN 4.2 -LYRIDS APR 23.1 -ETA AQR MAY 5.9 -DLT AQR JUL 28.6 -PERSEIDS AUG 13.2 -ORIONIDS OCT 22.6 -TAURIDS NOV 3.9 -LEONIDS NOV 18.9 -GEMINIDS DEC 14.6 diff --git a/bwbtest/B15B/shuttr.INP b/bwbtest/B15B/shuttr.INP deleted file mode 100644 index f2c4df9..0000000 --- a/bwbtest/B15B/shuttr.INP +++ /dev/null @@ -1,9 +0,0 @@ -A -7.89 -1.23 -2.5 -600 -360 -1200 - -E diff --git a/bwbtest/B15B/shuttr.bas b/bwbtest/B15B/shuttr.bas deleted file mode 100644 index 0193f05..0000000 --- a/bwbtest/B15B/shuttr.bas +++ /dev/null @@ -1,54 +0,0 @@ -100 REM SHUTTER SPEEDS -110 REM -120 PRINT "SELECT PHOTO METHOD--" -130 PRINT " (A) PRIME FOCUS" -140 PRINT " (B) BARLOW PROJ." -150 PRINT " (C) EYEPIECE PROJ." -160 PRINT " (D) AFOCAL METHOD" -170 PRINT " (E) QUIT" -180 INPUT A$: PRINT -190 IF A$="A" THEN 250 -200 IF A$="B" THEN 250 -210 IF A$="C" THEN 330 -220 IF A$="D" THEN 410 -230 IF A$="E" THEN END -240 GOTO 120 -250 REM CALCULATE F/NUMBER -260 INPUT "OBJECTIVE F.L.";A -270 INPUT "APERTURE";B -280 C=A/B: IF A$="A" THEN K=C -290 IF A$="A" THEN 470 -300 INPUT "BARLOW POWER";D -310 K=C*D: GOTO 470 -320 REM -330 REM EYEPIECE PROJECTION -340 PRINT "SPACE FROM EYEPIECE" -350 INPUT " TO FILM (INCHES)";A -360 INPUT "EYEPIECE F.L. (IN.)";B -370 INPUT "OBJECTIVE F.L.(IN.)";D -380 INPUT "APERTURE (IN.)";F -390 K=(A*D)/(B*F): GOTO 470 -400 REM -410 REM AFOCAL METHOD -420 INPUT "SCOPE POWER";A -430 INPUT "APERTURE (IN.)";D -440 INPUT "CAMERA F.L. (IN.)";B -450 C=A*B: K=C/D -460 REM -470 REM CALC. SHUTTER SPEEDS -480 PRINT -490 INPUT "EXAMPLE F/NUMBER";L -500 INPUT "EXAMPLE FILM INDEX";M -510 INPUT "EXAMPLE TIME";O -520 PRINT -530 INPUT "YOUR FILM INDEX";N -540 R=(K*K)/(L*L) -550 V=R*O*M/N -560 PRINT V;" IS YOUR TIME" -570 PRINT: INPUT "NEXT";A$ -580 GOTO 120 -590 REM ------------------------ -600 REM APPEARED IN ASTRONOMICAL -610 REM COMPUTING, SKY & TELE- -620 REM SCOPE, JUNE, 1985 -630 REM ------------------------ diff --git a/bwbtest/B15B/shuttr.run b/bwbtest/B15B/shuttr.run deleted file mode 100644 index 7166739..0000000 --- a/bwbtest/B15B/shuttr.run +++ /dev/null @@ -1,27 +0,0 @@ -SELECT PHOTO METHOD-- - (A) PRIME FOCUS - (B) BARLOW PROJ. - (C) EYEPIECE PROJ. - (D) AFOCAL METHOD - (E) QUIT -? A - -OBJECTIVE F.L.? 7.89 -APERTURE? 1.23 - -EXAMPLE F/NUMBER? 2.5 -EXAMPLE FILM INDEX? 600 -EXAMPLE TIME? 360 - -YOUR FILM INDEX? 1200 - 1185.05 IS YOUR TIME - -NEXT? -SELECT PHOTO METHOD-- - (A) PRIME FOCUS - (B) BARLOW PROJ. - (C) EYEPIECE PROJ. - (D) AFOCAL METHOD - (E) QUIT -? E - diff --git a/bwbtest/B15B/solarecl.INP b/bwbtest/B15B/solarecl.INP deleted file mode 100644 index 4414262..0000000 --- a/bwbtest/B15B/solarecl.INP +++ /dev/null @@ -1,7 +0,0 @@ -56 -43 -765 -6,25 -11,37 -21,45 -99,99 diff --git a/bwbtest/B15B/solarecl.bas b/bwbtest/B15B/solarecl.bas deleted file mode 100644 index b0f2497..0000000 --- a/bwbtest/B15B/solarecl.bas +++ /dev/null @@ -1,109 +0,0 @@ -10 REM LOCAL CIRCUMSTANCES OF A -20 REM SOLAR ECLIPSE -30 REM -40 DEFDBL A-Z -50 GOSUB 760: PRINT D$: PRINT -60 GOSUB 630 -70 INPUT "Universal time (h,m)";HH,MM -80 IF HH=99 THEN 110 -90 UT=HH+MM/60: REM UT in hours -100 GOSUB 140: GOTO 70 -110 END -120 REM **** SUBROUTINES **** -130 REM -140 REM Compute details at time UT -150 T=UT+DT/3600-T0: REM "Element time" -160 X=FNX(T): REM x -170 Y=FNY(T): REM y -180 CD=FNC(T): REM cos(d) -190 SD=FNS(T): REM sin(d) -200 M=DR*FNM(T): REM mu -210 REM -220 REM Now find H.A. in radians -230 H=M+LO-DT/13713 -240 REM -250 REM Now find xi, eta, zeta -260 X8=P9*SIN(H) -270 Y8=P8*CD-P9*SD*COS(H) -280 Z8=P8*SD+P9*CD*COS(H) -290 U0=X-X8: REM u -300 V0=Y-Y8: REM v -310 L1=FNL1(T): REM l1 -320 L2=FNL2(T): REM l2 -330 W1=L1-Z8*F1: REM L1 -340 W2=L2-Z8*F2: REM L2 -350 REM -360 REM Magnitude -370 G1=SQR(U0*U0+V0*V0) -380 G=(W1-G1)/(W1+W2) -390 REM -400 REM Position angle -410 PA=RD*ATN(U0/V0) -420 IF V0<0 THEN PA=PA+180 -430 IF PA<0 THEN PA=PA+360 -440 IF PA>360 THEN PA=PA-360 -450 REM -460 REM Sun's altitude -470 A8=SD*SIN(LA) -480 A8=A8+CD*COS(LA)*COS(H) -490 AL=RD*ATN(A8/SQR(1-A8*A8)) -500 REM -505 REM -510 REM Print out a line of data -520 REM -530 UT=T-DT/3600+T0: REM "Element time" back to UT -540 UT=UT+.5/3600: REM Round to whole second -550 HH=INT(UT): M3=60*(UT-HH): MM=INT(M3) -560 SS=INT(60*(M3-MM)) -570 PA=INT(PA+.5): AR=INT(AL+.5): REM Whole degrees -580 IF AL<0 THEN PRINT "Sun below horizon": GOTO 610 -590 IF G<0 THEN PRINT "No eclipse at this time": GOTO 610 -600 PRINT USING A2$;HH;MM;SS;PA;AR;G -610 RETURN -620 REM -630 REM Geocentric Coordinates of Observer -640 REM -650 INPUT "North latitude (deg) ";LA -660 INPUT "East longitude (deg) ";LO -670 INPUT "Elevation (feet) ";EL -680 LA=LA*DR: LO=LO*DR: REM Lat, long in radians -690 EL=EL*12/39.37: REM Elevation in meters -700 U=ATN(.99664719#*TAN(LA)) -710 P8=.99664719#*SIN(U)+EL*SIN(LA)/6378140# -720 P9=COS(U)+EL*COS(LA)/6378140# -730 REM P8 = rho sin(phi'); P9 = rho cos(phi') -740 RETURN -750 REM -760 REM Constants -770 ' PI=3.141592653589793#: -775 DR=PI/180: RD=1/DR -780 A2$=" UT ##:##:## PA ### Alt ### Mag #.###" -790 REM -800 REM -810 REM Eclipse elements -820 D$="Total Solar Eclipse of July 11, 1991" -830 T0=16: REM Reference time (hr) -840 DT=0: REM Delta-T (sec) in sense ET-UT -850 DEF FNX(T)=-1.75954169#+T*(+.56710171#+T*(+4.902E-05-T*9.60E-06)) -860 DEF FNY(T)=+.42232901#+T*(-.13699808#+T*(-1.7527E-04+T*.0000025)) -870 DEF FNS(T)=+.37643393#+T*(-8.389E-05+T*(-.0000001)) -880 DEF FNC(T)=+.92644352#+T*(+3.404E-05+T*(+4E-08)) -890 DEF FNM(T)=58.6389581#+T*(15.0000486#+T*(+1.65E-06-T*2E-08)) -900 DEF FNL1(T)=.53024501#+T*(+1.0153E-04+T*(-1.278E-05)) -910 DEF FNL2(T)=-.01606+T*(.000101+T*(-1.272E-05)) -920 F1=.004599: REM tan(f1) -930 F2=.004576: REM tan(f2) -940 M1=.2618: REM mu' (radians/hr) -950 D1=-.000091: REM d' (radians/hr) -960 RETURN -1000 REM For the partial and total phases of the July 11, 1991, -1010 REM solar eclipse, when you enter a series of Universal times, -1020 REM this program computes the position angle of the Moon's -1030 REM center from the Sun, the Sun's altitude, and the "magnitude" -1040 REM of the eclipse (that is, the fraction of the solar disk -1050 REM diameter that is hidden). When entering your longitude and -1060 REM longitude, use positive degrees for north latitude and -1070 REM *negative* degrees for west longitude. The results of this -1080 REM program agree exactly with those published by the U. S. Naval -1090 REM Observatory in its eclipse circular. The program was written -1100 REM by Roger W. Sinnott. diff --git a/bwbtest/B15B/solarecl.run b/bwbtest/B15B/solarecl.run deleted file mode 100644 index 781670f..0000000 --- a/bwbtest/B15B/solarecl.run +++ /dev/null @@ -1,12 +0,0 @@ -Total Solar Eclipse of July 11, 1991 - -North latitude (deg) ? 56 -East longitude (deg) ? 43 -Elevation (feet) ? 765 -Universal time (h,m)? 6,25 -No eclipse at this time -Universal time (h,m)? 11,37 -No eclipse at this time -Universal time (h,m)? 21,45 -Sun below horizon -Universal time (h,m)? 99,99 diff --git a/bwbtest/B15B/space.INP b/bwbtest/B15B/space.INP deleted file mode 100644 index 2b72b90..0000000 --- a/bwbtest/B15B/space.INP +++ /dev/null @@ -1,9 +0,0 @@ -5,34 -7 -9,32 -8 -2345 -2.1 -8.9 -1 -N diff --git a/bwbtest/B15B/space.bas b/bwbtest/B15B/space.bas deleted file mode 100644 index 54f45f0..0000000 --- a/bwbtest/B15B/space.bas +++ /dev/null @@ -1,54 +0,0 @@ -10 REM SPACE MOTION OF A STAR -12 REM -14 P1=3.14159265 -16 INPUT "R.A. (H,M)";H,M -18 A=(H+M/60)*15*P1/180 -20 INPUT "ANNUAL PM (SEC)";DA -22 INPUT "DEC. (D,M)";D$,M -24 D=ABS(VAL(D$)): S=1 -26 IF LEFT$(D$,1)="-" THEN S=-1 -28 D=S*(D+M/60)*P1/180 -30 INPUT "ANNUAL PM (ARCSEC)";DD -32 DA=DA/13751: DD=DD/206265 -34 INPUT "R.V. (KM/SEC)";DR -36 DR=DR/977820 -38 INPUT "DISTANCE (LY)";R -40 R=R/3.2616: REM LY TO PARSECS -42 INPUT "MAGNITUDE";M0 -44 X=R*COS(D)*COS(A) -46 Y=R*COS(D)*SIN(A) -48 Z=R*SIN(D) -50 DX=(X/R)*DR-Z*COS(A)*DD-Y*DA -52 DY=(Y/R)*DR-Z*SIN(A)*DD+X*DA -54 DZ=(Z/R)*DR+R*COS(D)*DD -56 REM -58 PRINT: REM LOOP -60 INPUT "YEARS FROM PRESENT";T -62 X1=X+T*DX:Y1=Y+T*DY:Z1=Z+T*DZ -64 R1=SQR(X1*X1+Y1*Y1+Z1*Z1) -66 B=(R1/R)*(R1/R) -68 M1=M0+2.5*LOG(B)/LOG(10) -70 S5=Z1/R1: C5=SQR(1-S5*S5) -72 D1=ATN(S5/C5)*180/P1 -74 A1=ATN(Y1/X1)*180/(P1*15) -76 IF X1<0 THEN A1=A1+12 -78 IF A1>24 THEN A1=A1-24 -80 IF A1<0 THEN A1=A1+24 -82 PRINT "R.A. (HOURS) ";A1 -84 PRINT "DEC. (DEGREES)";D1 -86 PRINT "DISTANCE ";R1*3.2616 -88 PRINT "MAGNITUDE ";M1 -90 PRINT -92 INPUT "AGAIN (Y OR N)";Q$ -94 IF Q$<>"N" THEN 58 -96 END -100 REM ************************ -110 REM THIS PROGRAM USES A STAR'S -120 REM CURRENT POSITION, PROPER -130 REM MOTION, DISTANCE, AND BRIGHT- -140 REM NESS TO COMPUTE ITS PATH -150 REM ACROSS THE SKY IN THE REMOTE -160 REM PAST OR FUTURE. DESCRIBED IN -170 REM SKY & TELESCOPE MAGAZINE FOR -180 REM MAY, 1989, PAGE 531. -190 REM ************************* diff --git a/bwbtest/B15B/space.run b/bwbtest/B15B/space.run deleted file mode 100644 index c67c023..0000000 --- a/bwbtest/B15B/space.run +++ /dev/null @@ -1,15 +0,0 @@ -R.A. (H,M)? 5,34 -ANNUAL PM (SEC)? 7 -DEC. (D,M)? 9,32 -ANNUAL PM (ARCSEC)? 8 -R.V. (KM/SEC)? 2345 -DISTANCE (LY)? 2.1 -MAGNITUDE? 8.9 - -YEARS FROM PRESENT? 1 -R.A. (HOURS) 5.5686 -DEC. (DEGREES) 9.53555 -DISTANCE 2.10782 -MAGNITUDE 8.90807 - -AGAIN (Y OR N)? N diff --git a/bwbtest/B15B/sphe.INP b/bwbtest/B15B/sphe.INP deleted file mode 100644 index 010880a..0000000 --- a/bwbtest/B15B/sphe.INP +++ /dev/null @@ -1,5 +0,0 @@ -2 -9876 -54 -1 -1234 diff --git a/bwbtest/B15B/sphe.bas b/bwbtest/B15B/sphe.bas deleted file mode 100644 index 314f65a..0000000 --- a/bwbtest/B15B/sphe.bas +++ /dev/null @@ -1,47 +0,0 @@ -10 REM SPHEROMETER PROGRAM -12 REM -14 PRINT "WHICH DO YOU WANT --" -16 PRINT " (1) SAGITTA" -18 PRINT " (2) RADIUS OF CURV." -20 PRINT " (3) SPHEROMETER SPAN" -22 INPUT Q -24 IF Q<1 OR Q>3 THEN 22 -26 IF Q=3 THEN 30 -28 INPUT "SPHEROMETER SPAN";C -30 INPUT "BALL DIAMETER ";B -32 PRINT "TYPE OF SURFACE --" -34 PRINT " (1) CONCAVE" -36 PRINT " (2) CONVEX" -38 INPUT T -40 IF T<>1 AND T<>2 THEN 38 -42 IF T=2 THEN T=-1 -44 IF Q=1 THEN 50 -46 INPUT "MEASURED SAGITTA";S -48 IF Q=2 THEN 52 -50 INPUT "RADIUS OF CURVATURE";R -52 IF Q=1 AND R>0 AND C>0 THEN 62 -54 IF Q=2 AND S>0 AND C>0 THEN 72 -56 IF Q=3 AND R>0 AND S>0 THEN 86 -58 PRINT "INPUT ERROR": GOTO 14 -60 REM -62 REM COMPUTE THE SAGITTA -64 R=R-T*B/2: S=R-SQR(R*R-C*C/4) -66 PRINT "SAGITTA FOR SPHERE ";S -68 GOTO 92 -70 REM -72 REM COMPUTE THE R.O.C. -74 R=(C*C/4+S*S)/(2*S)+T*B/2 -76 PRINT "RADIUS OF CURVATURE ";R -78 IF T=-1 THEN 82 -80 PRINT "MIRROR F.L. ";R/2 -82 GOTO 92 -84 REM -86 REM COMPUTE THE SPAN -88 R=R-T*B/2: C=2*SQR(2*R*S+S*S) -90 PRINT "SPHEROMETER SPAN ";C -92 END -100 REM ============================== -110 REM FROM SKY & TELESCOPE'S ASTRO- -120 REM COMPUTING DEPARTMENT FOR -130 REM SEPTEMBER, 1986, PAGE 278 -140 REM ============================= diff --git a/bwbtest/B15B/sphe.run b/bwbtest/B15B/sphe.run deleted file mode 100644 index 2fb1208..0000000 --- a/bwbtest/B15B/sphe.run +++ /dev/null @@ -1,14 +0,0 @@ -WHICH DO YOU WANT -- - (1) SAGITTA - (2) RADIUS OF CURV. - (3) SPHEROMETER SPAN -? 2 -SPHEROMETER SPAN? 9876 -BALL DIAMETER ? 54 -TYPE OF SURFACE -- - (1) CONCAVE - (2) CONVEX -? 1 -MEASURED SAGITTA? 1234 -RADIUS OF CURVATURE 10524. -MIRROR F.L. 5262. diff --git a/bwbtest/B15B/stay.INP b/bwbtest/B15B/stay.INP deleted file mode 100644 index e75a0ac..0000000 --- a/bwbtest/B15B/stay.INP +++ /dev/null @@ -1,2 +0,0 @@ -987 -0.123 diff --git a/bwbtest/B15B/stay.bas b/bwbtest/B15B/stay.bas deleted file mode 100644 index 21b6567..0000000 --- a/bwbtest/B15B/stay.bas +++ /dev/null @@ -1,45 +0,0 @@ -10 REM LENGTH OF STAY -12 REM INSIDE 1 A.U. -14 REM -16 K=0.01720209895 -18 P=3.1415926536 -20 INPUT "PERIHELION DIST. ";Q -22 INPUT "ECCENTRICITY ";E -24 PRINT -26 T=0 -28 IF E>1 OR E<0 THEN 22 -30 IF Q>=1 THEN 78 -32 IF Q<0.0046524 THEN 82 -34 IF E<1 THEN 54 -36 REM -38 REM PARABOLIC CASE -40 REM -42 T2=1/Q-1 -44 T1=SQR(T2) -46 Q3=Q*Q*Q -48 T=SQR(2*Q3)*(3*T1+T1*T2)/(3*K) -50 GOTO 78 -52 REM -54 REM ELLIPTICAL CASE -56 REM -58 IF E=0 THEN 86 -60 IF Q*(1+E)/(1-E)<=1 THEN 86 -62 A=Q/(1-E) -64 C=(A-1)/(A*E) -66 IF C<>0 THEN 70 -68 E1=P/2: GOTO 76 -70 S=SQR(1-C*C) -72 E1=ATN(S/C) -74 IF C<0 THEN E1=E1+P -76 T=A*SQR(A)*(E1-E*SIN(E1))/K -78 PRINT "DAYS: ";2*T -80 GOTO 88 -82 PRINT "COLLISION WITH SUN" -84 GOTO 88 -86 PRINT "ALWAYS INSIDE 1 A.U." -88 END -90 REM ------------------------ -92 REM APPEARED IN ASTRONOMICAL -94 REM COMPUTING, SKY & TELE- -96 REM SCOPE, JULY, 1984 -98 REM ------------------------ diff --git a/bwbtest/B15B/stay.run b/bwbtest/B15B/stay.run deleted file mode 100644 index df261ba..0000000 --- a/bwbtest/B15B/stay.run +++ /dev/null @@ -1,4 +0,0 @@ -PERIHELION DIST. ? 987 -ECCENTRICITY ? 0.123 - -DAYS: 0 diff --git a/bwbtest/B15B/steppr.INP b/bwbtest/B15B/steppr.INP deleted file mode 100644 index c1efc75..0000000 --- a/bwbtest/B15B/steppr.INP +++ /dev/null @@ -1 +0,0 @@ -13,87 diff --git a/bwbtest/B15B/steppr.bas b/bwbtest/B15B/steppr.bas deleted file mode 100644 index 1701979..0000000 --- a/bwbtest/B15B/steppr.bas +++ /dev/null @@ -1,21 +0,0 @@ -1 SUB POKE( X, Y ) -2 PRINT "Address=";X,"Byte=";Y -3 END SUB -4 ' --------------------------- -10 REM STEPPER-MOTOR DEMO -15 REM -20 X=49152: REM PORT ADDRESS -25 DATA 9,1,3,2,6,4,12,8 -30 DIM A(8) -35 FOR I=0 TO 7: READ A(I): NEXT I -40 INPUT "START, STOP ";C,D -45 FOR J=C TO D STEP SGN(D-C) -50 K=8*((J/8)-INT(J/8)) -55 POKE X,A(K) -60 NEXT J -65 END -70 REM ------------------------ -80 REM APPEARED IN ASTRONOMICAL -90 REM COMPUTING, SKY & TELE- -95 REM SCOPE, APRIL, 1985 -99 REM ------------------------ diff --git a/bwbtest/B15B/steppr.run b/bwbtest/B15B/steppr.run deleted file mode 100644 index f262bff..0000000 --- a/bwbtest/B15B/steppr.run +++ /dev/null @@ -1,76 +0,0 @@ -START, STOP ? 13,87 -Address= 49152 Byte= 4 -Address= 49152 Byte= 12 -Address= 49152 Byte= 8 -Address= 49152 Byte= 9 -Address= 49152 Byte= 1 -Address= 49152 Byte= 3 -Address= 49152 Byte= 2 -Address= 49152 Byte= 6 -Address= 49152 Byte= 4 -Address= 49152 Byte= 12 -Address= 49152 Byte= 8 -Address= 49152 Byte= 9 -Address= 49152 Byte= 1 -Address= 49152 Byte= 3 -Address= 49152 Byte= 2 -Address= 49152 Byte= 6 -Address= 49152 Byte= 4 -Address= 49152 Byte= 12 -Address= 49152 Byte= 8 -Address= 49152 Byte= 9 -Address= 49152 Byte= 1 -Address= 49152 Byte= 3 -Address= 49152 Byte= 2 -Address= 49152 Byte= 6 -Address= 49152 Byte= 4 -Address= 49152 Byte= 12 -Address= 49152 Byte= 8 -Address= 49152 Byte= 9 -Address= 49152 Byte= 1 -Address= 49152 Byte= 3 -Address= 49152 Byte= 2 -Address= 49152 Byte= 6 -Address= 49152 Byte= 4 -Address= 49152 Byte= 12 -Address= 49152 Byte= 8 -Address= 49152 Byte= 9 -Address= 49152 Byte= 1 -Address= 49152 Byte= 3 -Address= 49152 Byte= 2 -Address= 49152 Byte= 6 -Address= 49152 Byte= 4 -Address= 49152 Byte= 12 -Address= 49152 Byte= 8 -Address= 49152 Byte= 9 -Address= 49152 Byte= 1 -Address= 49152 Byte= 3 -Address= 49152 Byte= 2 -Address= 49152 Byte= 6 -Address= 49152 Byte= 4 -Address= 49152 Byte= 12 -Address= 49152 Byte= 8 -Address= 49152 Byte= 9 -Address= 49152 Byte= 1 -Address= 49152 Byte= 3 -Address= 49152 Byte= 2 -Address= 49152 Byte= 6 -Address= 49152 Byte= 4 -Address= 49152 Byte= 12 -Address= 49152 Byte= 8 -Address= 49152 Byte= 9 -Address= 49152 Byte= 1 -Address= 49152 Byte= 3 -Address= 49152 Byte= 2 -Address= 49152 Byte= 6 -Address= 49152 Byte= 4 -Address= 49152 Byte= 12 -Address= 49152 Byte= 8 -Address= 49152 Byte= 9 -Address= 49152 Byte= 1 -Address= 49152 Byte= 3 -Address= 49152 Byte= 2 -Address= 49152 Byte= 6 -Address= 49152 Byte= 4 -Address= 49152 Byte= 12 -Address= 49152 Byte= 8 diff --git a/bwbtest/B15B/stereo.INP b/bwbtest/B15B/stereo.INP deleted file mode 100644 index 50e467b..0000000 --- a/bwbtest/B15B/stereo.INP +++ /dev/null @@ -1,6 +0,0 @@ -987 -123,87 -11,22,33 -ABC -9,8,7 -6,5,4 diff --git a/bwbtest/B15B/stereo.bas b/bwbtest/B15B/stereo.bas deleted file mode 100644 index 00b57d6..0000000 --- a/bwbtest/B15B/stereo.bas +++ /dev/null @@ -1,64 +0,0 @@ -1 REM STEREOGRAPHIC SKY PROJECTION -2 P=3.14159265: R1=P/180 -3 INPUT "RADIUS ";K -4 INPUT "LAT, LONG ";B,L -5 REM W LONG NEG, E LONG POSITIVE -6 B=B*R1: L=L*R1 -7 INPUT "LST (H,M,S) ";A$,A2,A3 -8 GOSUB 72: T=A*15*R1-L -10 INPUT "OBJECT NAME ";B$ -12 INPUT "RA (H,M,S) ";A$,A2,A3 -14 GOSUB 72: R=A*15*R1 -16 INPUT "DEC (D,M,S) ";A$,A2,A3 -17 GOSUB 72: D=A*R1 -18 PRINT: PRINT B$ -19 GOSUB 32: GOSUB 100 -20 PRINT: PRINT "STARS" -21 N=8: REM NUMBER OF STARS -22 FOR I=1 TO N -23 READ R,D -24 R=R*15*R1: D=D*R1 -25 GOSUB 32: GOSUB 100 -26 NEXT I -29 END -30 REM ALTITUDE AND AZIMUTH -32 T5=T-R+L: REM LOCAL HR ANGLE -34 S1=SIN(B)*SIN(D) -36 S1=S1+COS(B)*COS(D)*COS(T5) -38 C1=1-S1*S1 -40 IF C1>0 THEN C1=SQR(C1) -42 IF C1<=0 THEN 46 -44 H=ATN(S1/C1): GOTO 48 -46 H=SGN(S1)*P/2 -48 C2=COS(B)*SIN(D) -50 C2=C2-SIN(B)*COS(D)*COS(T5) -52 S2=-COS(D)*SIN(T5) -54 IF C2=0 THEN A=SGN(S2)*P/2 -56 IF C2=0 THEN 62 -58 A=ATN(S2/C2) -60 IF C2<0 THEN A=A+P -62 IF A<0 THEN A=A+2*P -70 RETURN -72 REM SEXAGESIMAL TO DECIMAL -76 S=1: A1=ABS(VAL(A$)) -78 IF LEFT$(A$,1)="-" THEN S=-1 -80 A=S*(A1+A2/60+A3/3600) -82 RETURN -100 REM STEREOGRAPHIC PROJECTION -105 REM H=ALTITUDE, A=AZIMUTH -110 Q=P/4-H/2 -115 X=K*SIN(Q)/COS(Q)*SIN(2*P-A) -120 Y=K*SIN(Q)/COS(Q)*COS(2*P-A) -125 PRINT " X= ";INT(X*1000)/1000; -126 PRINT " Y= ";INT(Y*1000)/1000 -130 RETURN -200 REM STAR DATA FOR TAURUS -205 REM RA, DEC -210 DATA 5.58, 21.0, 5.38, 28.5 -215 DATA 4.55, 16.3, 4.43, 15.9 -220 DATA 4.43, 19.0, 4.38, 18.0 -225 DATA 4.33, 17.5, 4.29, 15.5 -230 REM ************************ -235 REM FROM SKY & TELESCOPE, -240 REM OCTOBER, 1987, P. 408 -245 REM ************************ diff --git a/bwbtest/B15B/stereo.run b/bwbtest/B15B/stereo.run deleted file mode 100644 index 4bd9cf3..0000000 --- a/bwbtest/B15B/stereo.run +++ /dev/null @@ -1,19 +0,0 @@ -RADIUS ? 987 -LAT, LONG ? 123,87 -LST (H,M,S) ? 11,22,33 -OBJECT NAME ? ABC -RA (H,M,S) ? 9,8,7 -DEC (D,M,S) ? 6,5,4 - -ABC - X= 851.67 Y= -1164.05 - -STARS - X= 722.582 Y= -183.707 - X= 619.717 Y= -183.827 - X= 686.644 Y= 14.517 - X= 677.605 Y= 35.232 - X= 646.6 Y= 12.018 - X= 651.241 Y= 26.432 - X= 650.745 Y= 37.205 - X= 665.733 Y= 58.377 diff --git a/bwbtest/B15B/sunshine.INP b/bwbtest/B15B/sunshine.INP deleted file mode 100644 index 9738964..0000000 --- a/bwbtest/B15B/sunshine.INP +++ /dev/null @@ -1,3 +0,0 @@ -38 -74 -91 diff --git a/bwbtest/B15B/sunshine.bas b/bwbtest/B15B/sunshine.bas deleted file mode 100644 index 9d50945..0000000 --- a/bwbtest/B15B/sunshine.bas +++ /dev/null @@ -1,41 +0,0 @@ -10 REM SUNSHINE -12 REM -14 P=3.14159265: R=P/180 -16 INPUT "LATITUDE (DEGREES)";F -18 F=F*R -20 S=SIN(F): C=COS(F) -22 INPUT "START DAY IN 1986 ";J1 -24 INPUT "END DAY IN 1986 ";J2 -26 IF J21 THEN 70 -56 Z=Z+1440: GOTO 70 -58 F=0.9043+0.03023*COS(M) -60 F=F/(1-0.15825*SIN(L)*SIN(L)) -62 A=ATN(SQR(1-U*U)/U) -64 A=A/R -66 IF U<0 THEN A=A+180 -68 Z=Z+2880*A/(360.985647-F) -70 NEXT D -72 PRINT -74 PRINT "SUNSHINE = " -76 PRINT INT(Z+0.5);" MINUTES" -78 PRINT INT((Z+30)/60);" HOURS" -80 END -85 REM ------------------------ -88 REM APPEARED IN ASTRONOMICAL -89 REM COMPUTING, SKY & TELE- -90 REM SCOPE, SEPTERMBER, 1984 -92 REM ------------------------ diff --git a/bwbtest/B15B/sunshine.run b/bwbtest/B15B/sunshine.run deleted file mode 100644 index f7490b8..0000000 --- a/bwbtest/B15B/sunshine.run +++ /dev/null @@ -1,7 +0,0 @@ -LATITUDE (DEGREES)? 38 -START DAY IN 1986 ? 74 -END DAY IN 1986 ? 91 - -SUNSHINE = - 13246 MINUTES - 221 HOURS diff --git a/bwbtest/B15B/suntan.INP b/bwbtest/B15B/suntan.INP deleted file mode 100644 index 1d2f7cc..0000000 --- a/bwbtest/B15B/suntan.INP +++ /dev/null @@ -1,6 +0,0 @@ -45 -6 -2 -5432 -2.2 -75 diff --git a/bwbtest/B15B/suntan.bas b/bwbtest/B15B/suntan.bas deleted file mode 100644 index d4a6181..0000000 --- a/bwbtest/B15B/suntan.bas +++ /dev/null @@ -1,121 +0,0 @@ -10 ' Suntan Program -20 ' -30 GOSUB 920: ' Initialize data arrays -40 ' -50 INPUT "Latitude in degrees";L: LA=L/57.296 -60 INPUT "Month (1-12)";M -70 INPUT "Hours from local noon";T: T=ABS(T) -80 DS=.408*SIN(.523*(M-3.7)): ' Decl. of Sun (radians) -90 HA=.262*T: ' Hour angle of Sun (radians) -100 CZ=SIN(LA)*SIN(DS)+COS(LA)*COS(DS)*COS(HA) -110 IF CZ<=0 THEN 70 -120 ZS=ATN(SQR(1-CZ*CZ)/CZ): ' Sun's zenith dist. (rad) -130 ' -140 ' OPTION -- These two lines could replace 50-120: -150 ' INPUT "Altitude of Sun (deg)";AL -160 ' ZS=(90-AL)/57.296 -170 ' -180 INPUT "Height above sea level (feet)";HH: H=HH/3280 -190 INPUT "Aerosol extinction (V mag/airmass)";KK -200 BE=KK/2.36 -210 INPUT "Surface albedo (%)";S1: SA=S1/100 -220 ' -230 ' Other adjustable parameters -240 ' -250 ET=3600: ' Exposure time (seconds) -260 ZP=ZS: ' Angle (rad), zenith to surface normal -270 SS=0: ' Angle (rad), Sun to surface normal -280 TW=1: ' UV frac. transmitted by window, lotion... -290 F1=1: ' Fraction of sky that is clear -300 F2=1: ' Fraction of ground in sunlight -310 SH=1: ' Is Sun being shaded? (no=1, yes=0) -320 N=1: ' Normalization for skin type -330 RE=6378: ' Earth radius (km) -340 OL=0: ' Ozone loss (%) -350 HO=23: ' Height of ozone layer (km) -360 HG=8.2: ' Gas scale height (km) -370 HA=1.5: ' Aerosol scale height (km) -380 DS=1: ' Distance from Sun (a.u.) -390 ' -400 ' Thickness of ozone layer -410 ' -420 RA=30*(M-3.7)/57.296 -430 DOSE=(1-OL/100)*(3+.4*(LA*COS(RA)-COS(3*LA))) -440 ' -450 ' Airmass for each component -460 ' -470 XO=(1-(SIN(ZS)/(1+((HO-H)/RE)))^2)^(-.5) -480 XG=1/(COS(ZS)+.01*SQR(HG)*EXP(-30*COS(ZS)/SQR(HG))) -490 XA=1/(COS(ZS)+.01*SQR(HA)*EXP(-30*COS(ZS)/SQR(HA))) -500 ' -510 ' Do for each wavelength -520 ' -530 PRINT "Wavelength Ozone Air Action Dose" -540 PRINT "(angstroms) trans. trans. spectr. " -550 ED=0 -560 FOR J=1 TO 20 -570 W=.275+J*.005: ' Wavelength (microns) -580 ' -590 ' Brightness of sunlight, diffuse sky light, -600 ' and ground light -610 KO=OZ(J)*(DOSE/3) -620 KG=.0107*EXP(-H/HG)*(W^(-4)) -630 KA=BE*(W^(-1.3)) -640 OT=10^(-.4*(KO*XO)) -650 TA=10^(-.4*(KG*XG+KA*XA)) -660 D=.5*(COS(ZS)^.33) -670 IS=FS(J)*OT*TA*TW*SH*COS(SS)*(DS^(-2)) -680 ID=FS(J)*OT*(1-TA)*D -690 ID=FS(J)*OT*(1-TA)*D*TA*SA+ID -700 ID=FS(J)*OT*((1-TA)^2)*SA*(D^2)+ID -710 ID=ID*TW*F1*(COS(ZS/2)^2)*(DS^(-2)) -720 IG=FS(J)*OT*SA*(TA+D*(1-TA)) -730 IG=IG*TW*F2*(SIN(ZS/2)^2)*(DS^(-2)) -740 I=IS+ID+IG: ' Total flux on skin (erg/cm^2/sec/A) -750 ' -760 ' Find effective dose by numerical integration -770 ' The "minimum erythema dose" at 2900A -780 ' is 2.3E6 erg/cm^2 (Parrish) -790 ' -800 EF=I*ET*(AX(J)*N)*50/2.3E6 -810 ED=ED+EF -820 PRINT USING F1$;W*10000;OT;TA;AX(J);EF -830 NEXT J -840 ' -850 ' Report result -860 ' -870 PRINT -880 PRINT USING "Total effective dose: ##.###";ED -890 PRINT USING " (exposure time ##.## hr)";ET/3600 -895 PRINT USING "Burning starts after ##.## hr";ET/(3600*ED) -899 ' -900 END -910 ' -920 ' Set up data arrays -930 ' -940 F1$= " ##### ##.#### ##.#### ##.## ##.###" -950 DIM OZ(20),FS(20),AX(20) -960 FOR J=1 TO 20: READ OZ(J): NEXT J -970 FOR J=1 TO 20: READ FS(J): NEXT J -980 FOR J=1 TO 20: READ AX(J): NEXT J -990 RETURN -1000 ' -1010 ' OZ array (ozone effect) -1020 DATA 34, 25, 18, 9, 3.2, 1.8, .9, .46, .24, .17 -1030 DATA .06, .05, .02, .01, .002, .001, 0, 0, 0, 0 -1040 ' -1050 ' FS array (solar flux at 1 A.U. in erg/cm^2/sec/A) -1060 DATA 24, 31, 38, 45, 52, 58, 64, 70, 75, 79 -1070 DATA 83, 87, 91, 93, 95, 97, 99, 104, 107, 104 -1080 ' -1090 ' AX array (action spectrum, McKinley & Diffey) -1100 DATA 1, 1, 1, 1, .65, .22, .074, .025, .0086, .003 -1110 DATA .0014, .0012, .00097, .00081, .00068, .00057 -1120 DATA .00048, .0004, .00034, .00029 -1200 ' -1210 ' Bradley E. Schaefer's program takes into account many factors, -1220 ' including the ozone content of the atmosphere, and calculates -1230 ' the risk of getting a sunburn at any month of the year, at any -1240 ' hour of the day, and at any latitude on Earth. He explained how -1250 ' to interpret the results in the July 1993 issue of Sky & Telescope, -1260 ' page 83. diff --git a/bwbtest/B15B/suntan.run b/bwbtest/B15B/suntan.run deleted file mode 100644 index a894dcc..0000000 --- a/bwbtest/B15B/suntan.run +++ /dev/null @@ -1,32 +0,0 @@ -Latitude in degrees? 45 -Month (1-12)? 6 -Hours from local noon? 2 -Height above sea level (feet)? 5432 -Aerosol extinction (V mag/airmass)? 2.2 -Surface albedo (%)? 75 -Wavelength Ozone Air Action Dose -(angstroms) trans. trans. spectr. - 2800 0.0000 0.0009 1.00 0.000 - 2850 0.0000 0.0012 1.00 0.000 - 2900 0.0000 0.0015 1.00 0.000 - 2950 0.0000 0.0018 1.00 0.000 - 3000 0.0182 0.0022 0.65 0.030 - 3050 0.1050 0.0026 0.22 0.064 - 3100 0.3240 0.0031 0.07 0.074 - 3150 0.5621 0.0036 0.03 0.047 - 3200 0.7404 0.0042 0.01 0.023 - 3250 0.8082 0.0049 0.00 0.009 - 3300 0.9276 0.0056 0.00 0.005 - 3350 0.9393 0.0064 0.00 0.005 - 3400 0.9753 0.0073 0.00 0.004 - 3450 0.9876 0.0082 0.00 0.004 - 3500 0.9975 0.0092 0.00 0.003 - 3550 0.9987 0.0103 0.00 0.003 - 3600 1.0000 0.0114 0.00 0.002 - 3650 1.0000 0.0126 0.00 0.002 - 3700 1.0000 0.0139 0.00 0.002 - 3750 1.0000 0.0152 0.00 0.001 - -Total effective dose: 0.278 - (exposure time 1.00 hr) -Burning starts after 3.59 hr diff --git a/bwbtest/B15B/sunup.INP b/bwbtest/B15B/sunup.INP deleted file mode 100644 index 13a5e07..0000000 --- a/bwbtest/B15B/sunup.INP +++ /dev/null @@ -1,3 +0,0 @@ -45,134 -6 -2015,03,01 diff --git a/bwbtest/B15B/sunup.bas b/bwbtest/B15B/sunup.bas deleted file mode 100644 index 8a4cc87..0000000 --- a/bwbtest/B15B/sunup.bas +++ /dev/null @@ -1,140 +0,0 @@ -10 ' Sunrise-Sunset -20 GOSUB 300 -30 INPUT "Lat, Long (deg)";B5,L5 -40 INPUT "Time zone (hrs)";H -50 L5=L5/360: Z0=H/24 -60 GOSUB 1170: T=(J-2451545)+F -70 TT=T/36525+1: ' TT = centuries -80 ' from 1900.0 -90 GOSUB 410: T=T+Z0 -100 ' -110 ' Get Sun's Position -120 GOSUB 910: A(1)=A5: D(1)=D5 -130 T=T+1 -140 GOSUB 910: A(2)=A5: D(2)=D5 -150 IF A(2)0 THEN 570 -560 V0=S*SIN(D0)+C*COS(D0)*COS(H0)-Z -570 V2=S*SIN(D2)+C*COS(D2)*COS(H2)-Z -580 IF SGN(V0)=SGN(V2) THEN 800 -590 V1=S*SIN(D1)+C*COS(D1)*COS(H1)-Z -600 A=2*V2-4*V1+2*V0: B=4*V1-3*V0-V2 -610 D=B*B-4*A*V0: IF D<0 THEN 800 -620 D=SQR(D) -630 IF V0<0 AND V2>0 THEN PRINT R$; -640 IF V0<0 AND V2>0 THEN M8=1 -650 IF V0>0 AND V2<0 THEN PRINT S$; -660 IF V0>0 AND V2<0 THEN W8=1 -670 E=(-B+D)/(2*A) -680 IF E>1 OR E<0 THEN E=(-B-D)/(2*A) -690 T3=C0+E+1/120: ' Round off -700 H3=INT(T3): M3=INT((T3-H3)*60) -710 PRINT USING "##:##";H3;M3; -720 H7=H0+E*(H2-H0) -730 N7=-COS(D1)*SIN(H7) -740 D7=C*SIN(D1)-S*COS(D1)*COS(H7) -750 AZ=ATN(N7/D7)/DR -760 IF D7<0 THEN AZ=AZ+180 -770 IF AZ<0 THEN AZ=AZ+360 -780 IF AZ>360 THEN AZ=AZ-360 -790 PRINT USING ", azimuth ###.#";AZ -800 RETURN -810 ' -820 ' Special-message routine -830 IF M8=0 AND W8=0 THEN 870 -840 IF M8=0 THEN PRINT M1$ -850 IF W8=0 THEN PRINT M2$ -860 GOTO 890 -870 IF V2<0 THEN PRINT M3$ -880 IF V2>0 THEN PRINT M4$ -890 RETURN -900 ' -910 ' Fundamental arguments -920 ' (Van Flandern & -930 ' Pulkkinen, 1979) -940 L=.779072+.00273790931*T -950 G=.993126+.0027377785*T -960 L=L-INT(L): G=G-INT(G) -970 L=L*P2: G=G*P2 -980 V=.39785*SIN(L) -990 V=V-.01000*SIN(L-G) -1000 V=V+.00333*SIN(L+G) -1010 V=V-.00021*TT*SIN(L) -1020 U=1-.03349*COS(G) -1030 U=U-.00014*COS(2*L) -1040 U=U+.00008*COS(L) -1050 W=-.00010-.04129*SIN(2*L) -1060 W=W+.03211*SIN(G) -1070 W=W+.00104*SIN(2*L-G) -1080 W=W-.00035*SIN(2*L+G) -1090 W=W-.00008*TT*SIN(G) -1100 ' -1110 ' Compute Sun's RA and Dec -1120 S=W/SQR(U-V*V) -1130 A5=L+ATN(S/SQR(1-S*S)) -1140 S=V/SQR(U):D5=ATN(S/SQR(1-S*S)) -1150 R5=1.00021*SQR(U) -1160 RETURN -1165 ' -1170 ' Calendar --> JD -1180 INPUT "Year, Month, Day";Y,M,D -1190 G=1: IF Y<1583 THEN G=0 -1200 D1=INT(D): F=D-D1-.5 -1210 J=-INT(7*(INT((M+9)/12)+Y)/4) -1220 IF G=0 THEN 1260 -1230 S=SGN(M-9): A=ABS(M-9) -1240 J3=INT(Y+S*INT(A/7)) -1250 J3=-INT((INT(J3/100)+1)*3/4) -1260 J=J+INT(275*M/9)+D1+G*J3 -1270 J=J+1721027+2*G+367*Y -1280 IF F>=0 THEN 1300 -1290 F=F+1: J=J-1 -1300 RETURN -1310 ' -1320 ' This program by Roger W. Sinnott calculates the times of sunrise -1330 ' and sunset on any date, accurate to the minute within several -1340 ' centuries of the present. It correctly describes what happens in the -1350 ' arctic and antarctic regions, where the Sun may not rise or set on -1360 ' a given date. Enter north latitudes positive, west longitudes -1370 ' negative. For the time zone, enter the number of hours west of -1380 ' Greenwich (e.g., 5 for EST, 4 for EDT). The calculation is -1390 ' discussed in Sky & Telescope for August 1994, page 84. diff --git a/bwbtest/B15B/sunup.run b/bwbtest/B15B/sunup.run deleted file mode 100644 index bf84b40..0000000 --- a/bwbtest/B15B/sunup.run +++ /dev/null @@ -1,6 +0,0 @@ -Lat, Long (deg)? 45,134 -Time zone (hrs)? 6 -Year, Month, Day? 2015,03,01 - -Sunset at 2:50, azimuth 260.0 -Sunrise at 15:42, azimuth 99.7 diff --git a/bwbtest/B15B/supernum.INP b/bwbtest/B15B/supernum.INP deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/B15B/supernum.bas b/bwbtest/B15B/supernum.bas deleted file mode 100644 index 40a7967..0000000 --- a/bwbtest/B15B/supernum.bas +++ /dev/null @@ -1,72 +0,0 @@ -10 REM SUPERNUM.BAS -20 REM by Rodney Kubesh -30 OPEN "BOW.DAT" FOR OUTPUT AS #1 -40 CLS -50 ' PI=3.14159 -60 A0=1.5707288# : A1=-.2121144 -70 A2=.074261 : A3=-.0187293 -80 N=1.3318 : REM Refractive index -90 RA=250 : REM Drop radius in microns -100 L=.6563 : REM Wavelength in microns -110 FOR J=450 TO 550 -120 REM Choose angle of incidence for ray A -130 I=J*.1*PI/180 -140 AN=SIN(I)/N -150 REM Snell's Law gives angle of refraction -160 R=PI/2-(1-AN)^.5*(A0+A1*AN+A2*AN^2+A3*AN^3) -170 TH=4*R-2*I -180 LOCATE 12,15 -190 PRINT "Computing intensity for emergence angle = "; -200 PRINT USING "###.##"; TH*180/PI -210 REM D and S are path lengths outside the drop for ray A -220 D=1-COS(I) -230 X0=-COS(4*R-I) : Y0=-SIN(4*R-I) -240 X1=X0 : X2=X0-1 : X3=X0-2 -250 Y1=Y0-1/TAN(TH) -260 Y2=Y0 -270 Y3=Y0-2*TAN(TH) -280 S1=(Y2-Y1)/(X2-X1) -290 S2=(Y3-Y0)/(X3-X0) -300 I2=I -310 X=(Y0-Y1+S1*X1-S2*X0)/(S1-S2) -320 Y=(X-X1)*S1+Y1 -330 S=((Y-Y0)^2+(X-X0)^2)^.5 -340 REM Find total path length -350 P1=RA*(D+S+4*N*COS(R)) -360 IN=59.5 -370 REM Choose possible angles of incidence for ray B -380 IN=IN+.05 -390 I=IN*PI/180 -400 AN=SIN(I)/N -410 R=PI/2-(1-AN)^.5*(A0+A1*AN+A2*AN^2+A3*AN^3) -420 REM Find companion rays emerging in same direction -430 TL=ABS(TH-4*R+2*I) -440 IF TL>.001 GOTO 380 -450 TH=4*R-2*I -460 REM Path lengths D and S for ray B -470 D=1-COS(I) -480 X0=-COS(4*R-I) : Y0=-SIN(4*R-I) -490 X3=X0-2 -500 Y3=Y0-2*TAN(TH) -510 S1=(Y2-Y1)/(X2-X1) -520 S2=(Y3-Y0)/(X3-X0) -530 X=(Y0-Y1+S1*X1-S2*X0)/(S1-S2) -540 Y=(X-X1)*S1+Y1 -550 S=((Y-Y0)^2+(X-X0)^2)^.5 -560 REM Total path length for ray B -570 P2=RA*(D+S+4*N*COS(R)) -580 REM Find difference in path length -590 PD=P1-P2 -600 PH=2*PI*PD/L-PI/2 -610 REM Find amplitude -620 AM=COS(PH/2) -630 REM Print emergence angle and intensity -640 PRINT#1, USING "###.###"; TH*180/PI; AM^2 -650 NEXT J -660 CLOSE#1 -670 END -900 REM --------------------------- -910 REM APPEARED IN ASTRONOMICAL -920 REM COMPUTING, SKY & TELESCOPE, -930 REM SEPTEMBER 1998, PAGE 70 -940 REM --------------------------- diff --git a/bwbtest/B15B/supernum.run b/bwbtest/B15B/supernum.run deleted file mode 100644 index c412ff2..0000000 --- a/bwbtest/B15B/supernum.run +++ /dev/null @@ -1,101 +0,0 @@ -Computing intensity for emergence angle = 38.29 -Computing intensity for emergence angle = 38.34 -Computing intensity for emergence angle = 38.39 -Computing intensity for emergence angle = 38.44 -Computing intensity for emergence angle = 38.49 -Computing intensity for emergence angle = 38.53 -Computing intensity for emergence angle = 38.58 -Computing intensity for emergence angle = 38.63 -Computing intensity for emergence angle = 38.68 -Computing intensity for emergence angle = 38.73 -Computing intensity for emergence angle = 38.78 -Computing intensity for emergence angle = 38.83 -Computing intensity for emergence angle = 38.87 -Computing intensity for emergence angle = 38.92 -Computing intensity for emergence angle = 38.97 -Computing intensity for emergence angle = 39.01 -Computing intensity for emergence angle = 39.06 -Computing intensity for emergence angle = 39.11 -Computing intensity for emergence angle = 39.15 -Computing intensity for emergence angle = 39.20 -Computing intensity for emergence angle = 39.24 -Computing intensity for emergence angle = 39.29 -Computing intensity for emergence angle = 39.33 -Computing intensity for emergence angle = 39.38 -Computing intensity for emergence angle = 39.42 -Computing intensity for emergence angle = 39.46 -Computing intensity for emergence angle = 39.51 -Computing intensity for emergence angle = 39.55 -Computing intensity for emergence angle = 39.59 -Computing intensity for emergence angle = 39.64 -Computing intensity for emergence angle = 39.68 -Computing intensity for emergence angle = 39.72 -Computing intensity for emergence angle = 39.76 -Computing intensity for emergence angle = 39.80 -Computing intensity for emergence angle = 39.84 -Computing intensity for emergence angle = 39.89 -Computing intensity for emergence angle = 39.93 -Computing intensity for emergence angle = 39.97 -Computing intensity for emergence angle = 40.01 -Computing intensity for emergence angle = 40.05 -Computing intensity for emergence angle = 40.08 -Computing intensity for emergence angle = 40.12 -Computing intensity for emergence angle = 40.16 -Computing intensity for emergence angle = 40.20 -Computing intensity for emergence angle = 40.24 -Computing intensity for emergence angle = 40.28 -Computing intensity for emergence angle = 40.31 -Computing intensity for emergence angle = 40.35 -Computing intensity for emergence angle = 40.39 -Computing intensity for emergence angle = 40.42 -Computing intensity for emergence angle = 40.46 -Computing intensity for emergence angle = 40.50 -Computing intensity for emergence angle = 40.53 -Computing intensity for emergence angle = 40.57 -Computing intensity for emergence angle = 40.60 -Computing intensity for emergence angle = 40.64 -Computing intensity for emergence angle = 40.67 -Computing intensity for emergence angle = 40.70 -Computing intensity for emergence angle = 40.74 -Computing intensity for emergence angle = 40.77 -Computing intensity for emergence angle = 40.80 -Computing intensity for emergence angle = 40.84 -Computing intensity for emergence angle = 40.87 -Computing intensity for emergence angle = 40.90 -Computing intensity for emergence angle = 40.93 -Computing intensity for emergence angle = 40.96 -Computing intensity for emergence angle = 40.99 -Computing intensity for emergence angle = 41.02 -Computing intensity for emergence angle = 41.05 -Computing intensity for emergence angle = 41.08 -Computing intensity for emergence angle = 41.11 -Computing intensity for emergence angle = 41.14 -Computing intensity for emergence angle = 41.17 -Computing intensity for emergence angle = 41.20 -Computing intensity for emergence angle = 41.23 -Computing intensity for emergence angle = 41.26 -Computing intensity for emergence angle = 41.28 -Computing intensity for emergence angle = 41.31 -Computing intensity for emergence angle = 41.34 -Computing intensity for emergence angle = 41.36 -Computing intensity for emergence angle = 41.39 -Computing intensity for emergence angle = 41.41 -Computing intensity for emergence angle = 41.44 -Computing intensity for emergence angle = 41.46 -Computing intensity for emergence angle = 41.49 -Computing intensity for emergence angle = 41.51 -Computing intensity for emergence angle = 41.54 -Computing intensity for emergence angle = 41.56 -Computing intensity for emergence angle = 41.58 -Computing intensity for emergence angle = 41.61 -Computing intensity for emergence angle = 41.63 -Computing intensity for emergence angle = 41.65 -Computing intensity for emergence angle = 41.67 -Computing intensity for emergence angle = 41.69 -Computing intensity for emergence angle = 41.71 -Computing intensity for emergence angle = 41.74 -Computing intensity for emergence angle = 41.76 -Computing intensity for emergence angle = 41.78 -Computing intensity for emergence angle = 41.79 -Computing intensity for emergence angle = 41.81 -Computing intensity for emergence angle = 41.83 diff --git a/bwbtest/B15B/surf.INP b/bwbtest/B15B/surf.INP deleted file mode 100644 index ba0aaab..0000000 --- a/bwbtest/B15B/surf.INP +++ /dev/null @@ -1,4 +0,0 @@ -8 -C -46 -X diff --git a/bwbtest/B15B/surf.bas b/bwbtest/B15B/surf.bas deleted file mode 100644 index bf7678a..0000000 --- a/bwbtest/B15B/surf.bas +++ /dev/null @@ -1,46 +0,0 @@ -10 REM SURFACE BRIGHTNESS -12 PRINT -14 INPUT "TOTAL MAGNITUDE";M$ -16 IF M$="X" THEN 88 -18 M=VAL(M$): PRINT -20 PRINT "TYPE OF AREA:" -22 PRINT " (C) CIRCULAR" -24 PRINT " (E) ELLIPTICAL" -26 PRINT " (R) RECTANGULAR" -28 PRINT " (I) IRREGULAR" -30 INPUT "CHOICE";C$: PRINT -32 IF C$="C" THEN 42 -34 IF C$="E" THEN 48 -36 IF C$="R" THEN 58 -38 IF C$="I" THEN 68 -40 GOTO 30 -42 REM CIRCULAR -44 INPUT "DIAM IN ARC MIN";D -46 A=3.14159265*D*D/4: GOTO 72 -48 REM ELLIPTICAL -50 PRINT "ENTER ARC MIN --" -52 INPUT " MAJOR AXIS";A1 -54 INPUT " MINOR AXIS";A2 -56 A=3.14159265*A1*A2/4: GOTO 72 -58 REM RECTANGULAR -60 PRINT "ENTER ARC MIN --" -62 INPUT " LONG SIDE";A1 -64 INPUT " SHORT SIDE";A2 -66 A=A1*A2: GOTO 72 -68 REM IRREGULAR -70 INPUT "AREA IN SQ ARC MIN";A -72 PRINT: IF A>=1/3600 THEN 76 -74 PRINT "STARLIKE": GOTO 86 -76 S1=M+LOG(A)/LOG(100^(1/5)) -78 S2=S1+8.890756 -80 PRINT "SURFACE MAGNITUDE --" -82 PRINT " PER SQ ARC MIN: ";S1 -84 PRINT " PER SQ ARC SEC: ";S2 -86 GOTO 12 -88 END -90 REM ========================== -100 REM FROM SKY & TELESCOPE'S -110 REM ASTRONOMICAL COMPUTING -120 REM DEPARTMENT FOR OCTOBER, -130 REM 1986, PAGE 392 -140 REM ========================= diff --git a/bwbtest/B15B/surf.run b/bwbtest/B15B/surf.run deleted file mode 100644 index f01b5af..0000000 --- a/bwbtest/B15B/surf.run +++ /dev/null @@ -1,17 +0,0 @@ - -TOTAL MAGNITUDE? 8 - -TYPE OF AREA: - (C) CIRCULAR - (E) ELLIPTICAL - (R) RECTANGULAR - (I) IRREGULAR -CHOICE? C - -DIAM IN ARC MIN? 46 - -SURFACE MAGNITUDE -- - PER SQ ARC MIN: 16.0515 - PER SQ ARC SEC: 24.9423 - -TOTAL MAGNITUDE? X diff --git a/bwbtest/B15B/taki.INP b/bwbtest/B15B/taki.INP deleted file mode 100644 index 27ebbc8..0000000 --- a/bwbtest/B15B/taki.INP +++ /dev/null @@ -1,17 +0,0 @@ -B GEM -7 -120 -30 -A VIR -8 -202 --11 -1 -100 -30 -9 -2 -100 -30 -9 --999 diff --git a/bwbtest/B15B/taki.bas b/bwbtest/B15B/taki.bas deleted file mode 100644 index 3d154a8..0000000 --- a/bwbtest/B15B/taki.bas +++ /dev/null @@ -1,180 +0,0 @@ -100 REM PROGRAM FOR POINTING A TELESCOPE -105 REM BY T. TAKI -110 REM -111 REM -115 DIM S$(17),B(17),D(17),Q(3,3) -120 DIM V(3,3),R(3,3),X(3,3),Y(3,3) -125 REM -130 REM STAR DATA -135 FOR J=1 TO 17: READ S$(J),B(J),D(J): NEXT J -140 REM -145 REM CONSTANTS -150 K=1.002738: G=57.2958 -155 Z1=0: Z2=0: Z3=0: REM MOUNT ERROR, IF ANY <<<<<<<<< -160 REM -165 FOR I=1 TO 2 -166 PRINT -170 INPUT "NAME OF BASIC STAR ";S$(0) -175 INPUT "TIME (MIN) ";T -180 INPUT "TELESCOPE DIRECTION ";F -185 INPUT "TELESCOPE ELEVATION ";H -195 N=0 -200 N=N+1: IF S$(0)=S$(N) THEN 215 -205 IF N=17 THEN 170 -210 GOTO 200 -215 D(0)=D(N)/G: B(0)=(B(N)-K*T*0.25)/G -220 X(1,I)=COS(D(0))*COS(B(0)) -225 X(2,I)=COS(D(0))*SIN(B(0)) -230 X(3,I)=SIN(D(0)) -235 F=F/G: H=(H+Z3)/G: GOSUB 750 -240 Y(1,I)=Y(1,0): Y(2,I)=Y(2,0): Y(3,I)=Y(3,0) -245 NEXT I -250 REM -255 X(1,3)=X(2,1)*X(3,2)-X(3,1)*X(2,2) -260 X(2,3)=X(3,1)*X(1,2)-X(1,1)*X(3,2) -265 X(3,3)=X(1,1)*X(2,2)-X(2,1)*X(1,2) -270 A=SQR(X(1,3)^2+X(2,3)^2+X(3,3)^2) -275 FOR I=1 TO 3: X(I,3)=X(I,3)/A: NEXT I -280 REM -285 Y(1,3)=Y(2,1)*Y(3,2)-Y(3,1)*Y(2,2) -290 Y(2,3)=Y(3,1)*Y(1,2)-Y(1,1)*Y(3,2) -295 Y(3,3)=Y(1,1)*Y(2,2)-Y(2,1)*Y(1,2) -300 A=SQR(Y(1,3)^2+Y(2,3)^2+Y(3,3)^2) -305 FOR I=1 TO 3: Y(I,3)=Y(I,3)/A: NEXT I -310 REM -311 REM -315 REM TRANSFORM MATRIX -320 FOR I=1 TO 3: FOR J=1 TO 3 -325 V(I,J)=X(I,J) -330 NEXT J: NEXT I -335 GOSUB 650: E=W -340 REM -345 FOR M=1 TO 3: FOR I=1 TO 3: FOR J=1 TO 3 -350 V(I,J)=X(I,J) -355 NEXT J: NEXT I -360 FOR N=1 TO 3 -365 V(1,M)=0: V(2,M)=0: V(3,M)=0: V(N,M)=1 -370 GOSUB 650: Q(M,N)=W/E -375 NEXT N -380 NEXT M -385 REM -390 FOR I=1 TO 3: FOR J=1 TO 3: R(I,J)=0: NEXT J: NEXT I -395 FOR I=1 TO 3: FOR J=1 TO 3: FOR L=1 TO 3 -400 R(I,J)=R(I,J)+Y(I,L)*Q(L,J) -405 NEXT L: NEXT J: NEXT I -410 REM -415 FOR M=1 TO 3 -420 FOR I=1 TO 3: FOR J=1 TO 3 -425 V(I,J)=R(I,J) -430 NEXT J: NEXT I -435 GOSUB 650: E=W -440 FOR N=1 TO 3 -445 V(1,M)=0: V(2,M)=0: V(3,M)=0: V(N,M)=1 -450 GOSUB 650: Q(M,N)=W/E -455 NEXT N -460 NEXT M -461 REM -462 REM -465 REM TRANSFORMATION -470 PRINT " ------" -475 INPUT "OPTION 1 OR 2";E -480 IF E=2 THEN 570 -481 IF E = -999 THEN 9999 -482 IF E<>1 THEN 475 -483 REM -485 REM CONVERT EQUATORIAL --> TELESCOPE -490 INPUT " RIGHT ASCENSION (DEG) ";B(0) -495 INPUT " DECLINATION (DEG) ";D(0) -500 INPUT " TIME (MIN) ";T -505 D(0)=D(0)/G: B(0)=(B(0)-K*T*0.25)/G -510 X(1,1)=COS(D(0))*COS(B(0)) -515 X(2,1)=COS(D(0))*SIN(B(0)) -520 X(3,1)=SIN(D(0)) -525 Y(1,1)=0: Y(2,1)=0: Y(3,1)=0 -530 FOR I=1 TO 3: FOR J=1 TO 3 -535 Y(I,1)=Y(I,1)+R(I,J)*X(J,1) -540 NEXT J: NEXT I -545 GOSUB 685: F=F/G: H=H/G: GOSUB 785 -550 GOSUB 685: H=H-Z3 -555 PRINT USING "TELESCOPE DIRECTION (DEG):####.##";F -560 PRINT USING "TELESCOPE ELEVATION (DEG):####.##";H -565 GOTO 465 -566 REM -570 REM CONVERT TELESCOPE --> EQUATORIAL -575 INPUT " TELESCOPE DIRECTION (DEG) ";F -580 INPUT " TELESCOPE ELEVATION (DEG) ";H -585 INPUT " TIME (MIN) ";T -590 F=F/G: H=(H+Z3)/G: GOSUB 750 -595 X(1,1)=Y(1,0): X(2,1)=Y(2,0): X(3,1)=Y(3,0) -600 Y(1,1)=0: Y(2,1)=0: Y(3,1)=0 -605 FOR I=1 TO 3: FOR J=1 TO 3 -610 Y(I,1)=Y(I,1)+Q(I,J)*X(J,1) -615 NEXT J: NEXT I -620 GOSUB 685: F=F+K*T*0.25: F=F-INT(F/360)*360 -625 PRINT USING "RIGHT ASCENSION (DEG):####.##";F -630 PRINT USING "DECLINATION (DEG): ####.##";H -635 GOTO 465 -640 END -645 REM -650 REM DETERMINANT SUBROUTINE -655 W=V(1,1)*V(2,2)*V(3,3)+V(1,2)*V(2,3)*V(3,1) -660 W=W+V(1,3)*V(3,2)*V(2,1) -665 W=W-V(1,3)*V(2,2)*V(3,1)-V(1,1)*V(3,2)*V(2,3) -670 W=W-V(1,2)*V(2,1)*V(3,3) -675 RETURN -680 REM -685 REM ANGLE SUBROUTINE -690 C=SQR(Y(1,1)*Y(1,1)+Y(2,1)*Y(2,1)) -695 IF C=0 AND Y(3,1)>0 THEN H=90 -700 IF C=0 AND Y(3,1)<0 THEN H=-90 -705 IF C<>0 THEN H=ATN(Y(3,1)/C)*G -710 REM -715 IF C=0 THEN F=1000 -720 IF C<>0 AND Y(1,1)=0 AND Y(2,1)>0 THEN F=90 -725 IF C<>0 AND Y(1,1)=0 AND Y(2,1)<0 THEN F=270 -730 IF Y(1,1)>0 THEN F=ATN(Y(2,1)/Y(1,1))*G -735 IF Y(1,1)<0 THEN F=ATN(Y(2,1)/Y(1,1))*G+180 -740 F=F-INT(F/360)*360 -745 RETURN -746 REM -750 REM SUBROUTINE -755 Y(1,0)=COS(F)*COS(H)-SIN(F)*(Z2/G) -760 Y(1,0)=Y(1,0)+SIN(F)*SIN(H)*(Z1/G) -765 Y(2,0)=SIN(F)*COS(H)+COS(F)*(Z2/G) -770 Y(2,0)=Y(2,0)-COS(F)*SIN(H)*(Z1/G) -775 Y(3,0)=SIN(H) -780 RETURN -781 REM -785 REM SUBROUTINE -790 Y(1,1)=COS(F)*COS(H)+SIN(F)*(Z2/G) -795 Y(1,1)=Y(1,1)-SIN(F)*SIN(H)*(Z1/G) -800 Y(2,1)=SIN(F)*COS(H)-COS(F)*(Z2/G) -805 Y(2,1)=Y(2,1)+COS(F)*SIN(H)*(Z1/G) -810 Y(3,1)=SIN(H) -815 RETURN -816 REM -817 REM STAR LIST -820 DATA "A UMI", 37.960, 89.264 -825 DATA "A TAU", 68.980, 16.509 -830 DATA "B ORI", 78.634, -8.202 -835 DATA "A AUR", 79.172, 45.998 -840 DATA "A ORI", 88.793, 7.407 -845 DATA "A CMA", 101.287, -16.716 -850 DATA "A GEM", 113.650, 31.888 -855 DATA "A CMI", 114.825, 5.225 -860 DATA "B GEM", 116.329, 28.026 -865 DATA "A LEO", 152.093, 11.967 -870 DATA "A VIR", 201.298, -11.161 -875 DATA "A BOO", 213.915, 19.183 -880 DATA "A SCO", 247.352, -26.432 -885 DATA "A LYR", 279.234, 38.784 -890 DATA "A AQL", 297.695, 8.868 -895 DATA "A CYG", 310.358, 45.280 -900 DATA "A PSA", 344.413, -29.622 -1000 REM ***************************************** -1010 REM FROM SKY & TELESCOPE, FEBRUARY, 1989, -1020 REM PAGES 194-196. LINES 760 AND 795 -1030 REM CONTAINED ERRORS AS PRINTED IN THE -1040 REM MAGAZINE; THEY ARE CORRECTED HERE. -1050 REM ***************************************** -9999 END diff --git a/bwbtest/B15B/taki.run b/bwbtest/B15B/taki.run deleted file mode 100644 index b9d7a5d..0000000 --- a/bwbtest/B15B/taki.run +++ /dev/null @@ -1,26 +0,0 @@ - -NAME OF BASIC STAR ? B GEM -TIME (MIN) ? 7 -TELESCOPE DIRECTION ? 120 -TELESCOPE ELEVATION ? 30 - -NAME OF BASIC STAR ? A VIR -TIME (MIN) ? 8 -TELESCOPE DIRECTION ? 202 -TELESCOPE ELEVATION ? -11 - ------ -OPTION 1 OR 2? 1 - RIGHT ASCENSION (DEG) ? 100 - DECLINATION (DEG) ? 30 - TIME (MIN) ? 9 -TELESCOPE DIRECTION (DEG): 102.70 -TELESCOPE ELEVATION (DEG): 32.20 - ------ -OPTION 1 OR 2? 2 - TELESCOPE DIRECTION (DEG) ? 100 - TELESCOPE ELEVATION (DEG) ? 30 - TIME (MIN) ? 9 -RIGHT ASCENSION (DEG): 97.42 -DECLINATION (DEG): 27.81 - ------ -OPTION 1 OR 2? -999 diff --git a/bwbtest/B15B/track.INP b/bwbtest/B15B/track.INP deleted file mode 100644 index d5576f3..0000000 --- a/bwbtest/B15B/track.INP +++ /dev/null @@ -1,6 +0,0 @@ -Y -4.56 -23.4 -F -2.345 -360 diff --git a/bwbtest/B15B/track.bas b/bwbtest/B15B/track.bas deleted file mode 100644 index b9e015a..0000000 --- a/bwbtest/B15B/track.bas +++ /dev/null @@ -1,35 +0,0 @@ -10 REM TRACKING TOLERANCES -12 REM -14 R=3.14159265/180: REM RAD/DEG -16 K=206265: REM ARC SEC/RAD -18 INPUT "WITH DRIVE (Y OR N)";Q$ -20 IF Q$="Y" THEN 26 -22 INPUT "DECLINATION (DEG)";D -24 M=360*COS(D*R): GOTO 30 -26 INPUT "MOTION (DEG/DAY)";M -28 IF M=0 THEN 26 -30 INPUT "E.F.L. (MM)";F -32 INPUT "FILM GRAIN (F OR C)";A$ -34 IF A$<>"F" AND A$<>"C" THEN 32 -36 INPUT "ENLARGEMENT FACTOR";E -38 INPUT "PLANNED EXP (MIN)";T -40 S=1/(R*F*E): REM DEG/MM -42 R1=M/(S*24*60): REM MM/MIN -44 IF A$="F" THEN G=K/(F*100) -46 IF A$="C" THEN G=K/(F*20) -48 PRINT -50 PRINT "MOTION IN ";T;" MIN EXP:" -52 PRINT " ";INT(T*R1*S*3600+0.5); -54 PRINT " ARC SEC, OR" -56 PRINT " ";T*R1;" MM ON PRINT" -58 PRINT "LIMITS BASED ON GRAIN:" -60 PRINT " MAX EXPOSURE "; -62 PRINT G/(S*3600*R1);" MIN" -64 PRINT " RESOLUTION "; -66 PRINT INT(G+0.5);" ARC SEC" -68 END -70 REM ------------------------ -80 REM APPEARED IN ASTRONOMICAL -90 REM COMPUTING, SKY & TELE- -95 REM SCOPE, FEBRUARY, 1986 -99 REM ------------------------ diff --git a/bwbtest/B15B/track.run b/bwbtest/B15B/track.run deleted file mode 100644 index 22dc0f1..0000000 --- a/bwbtest/B15B/track.run +++ /dev/null @@ -1,13 +0,0 @@ -WITH DRIVE (Y OR N)? Y -MOTION (DEG/DAY)? 4.56 -E.F.L. (MM)? 23.4 -FILM GRAIN (F OR C)? F -ENLARGEMENT FACTOR? 2.345 -PLANNED EXP (MIN)? 360 - -MOTION IN 360 MIN EXP: - 4104 ARC SEC, OR - 1.09179 MM ON PRINT -LIMITS BASED ON GRAIN: - MAX EXPOSURE 7.73223 MIN - RESOLUTION 88 ARC SEC diff --git a/bwbtest/B15B/vislimit.INP b/bwbtest/B15B/vislimit.INP deleted file mode 100644 index c5356ba..0000000 --- a/bwbtest/B15B/vislimit.INP +++ /dev/null @@ -1 +0,0 @@ -174 diff --git a/bwbtest/B15B/vislimit.bas b/bwbtest/B15B/vislimit.bas deleted file mode 100644 index 91f0fca..0000000 --- a/bwbtest/B15B/vislimit.bas +++ /dev/null @@ -1,118 +0,0 @@ -10 REM VISLIMIT.BAS Visual Limits -20 REM by Bradley E. Schaefer -30 FOR I=1 TO 5 : READ WA(I) : NEXT I -40 DATA 0.365, 0.44, 0.55, 0.7, 0.9 -50 FOR I=1 TO 5 : READ MO(I) : NEXT I -60 DATA -10.93, -10.45, -11.05, -11.90, -12.70 -70 RD=3.14159/180.0 -80 REM Input for Moon and Sun -90 AM=180.0 : REM Moon phase (deg.; 0=FM, 90=FQ/LQ, 180=NM) -100 ZM=180.0 : REM Zenith distance of Moon (deg.) -110 RM=180.0 : REM Angular distance to Moon (deg.) -120 ZS=180.0 : REM Zenith distance of Sun (deg.) -130 RS=180.0 : REM Angular distance to Sun (deg.) -140 REM Input for the Site, Date, Observer -150 RH=40.0 : REM relative humidity (%) -160 TE=15.0 : REM Air temperature (deg. C) -170 LA=30.0 : REM Latitude (deg.) -180 AL=1000.0 : REM Altitude above sea level (m) -190 M=2.0 : REM Month (1=Jan, 12=Dec) -200 Y=1998.0 : REM Year -210 SN=1.0 : REM Snellen Ratio (20/20=1.0, good 20/10=2.0) -220 INPUT "Zenith distance (deg.): ";Z -230 GOSUB 1000 : REM Extinction -240 GOSUB 2000 : REM Sky -250 REM Visual limiting magnitude -260 BL=B(3)/1.11E-15 : REM in nanolamberts -270 IF BL>1500.0 THEN GOTO 300 -280 C1=10.0^(-9.8): C2=10.0^(-1.9) -290 GOTO 310 -300 C1=10.0^(-8.350001) : C2=10.0^(-5.9) -310 TH=C1*((1.0+SQR(C2*BL))^2.0) : REM in foot-candles -320 MN=-16.57-2.5*(LOG(TH)/LOG(10))-DM(3)+5.0*(LOG(SN)/LOG(10)) -330 PRINT : REM Write results and stop program -340 PRINT USING "Visual Sky Brightness (nL): ######"; BL -350 PRINT USING "Visual Limiting Magnitude: ###.##"; MN -360 END -1000 REM Extinction Subroutine -1010 FOR I=1 TO 5: READ OZ(I): NEXT I -1020 DATA 0.000, 0.000, 0.031, 0.008, 0.000 -1030 FOR I=1 TO 5: READ WT(I): NEXT I -1040 DATA 0.074, 0.045, 0.031, 0.020, 0.015 -1050 LT=LA*RD -1060 RA=(M-3)*30.0*RD -1070 SL=LA/ABS(LA) -1080 REM Airmass for each component -1090 ZZ=Z*RD -1100 XG=1/(COS(ZZ)+.0286*EXP(-10.5*COS(ZZ))) -1110 XA=1/(COS(ZZ)+.0123*EXP(-24.5*COS(ZZ))) -1120 XO=1/SQR(1.0-(SIN(ZZ)/(1.0+(20.0/6378.0)))^2) -1130 REM UBVRI extinction for each component -1140 FOR I=1 TO 5 -1150 KR=.1066*EXP(-1*AL/8200)*((WA(I)/.55)^(-4)) -1160 KA=.1*((WA(I)/.55)^(-1.3))*EXP(-1*AL/1500) -1170 KA=KA*((1-.32/LOG(RH/100.0))^1.33)*(1+0.33*SL*SIN(RA)) -1180 KO=OZ(I)*(3.0+.4*(LT*COS(RA)-COS(3*LT)))/3.0 -1190 KW=WT(I)*.94*(RH/100.0)*EXP(TE/15)*EXP(-1*AL/8200) -1200 K(I)=KR+KA+KO+KW -1210 DM(I)=KR*XG+KA*XA+KO*XO+KW*XG -1220 NEXT I -1230 REM Write results and return -1240 PRINT : PRINT "Airmass (gas, aerosol, ozone): "; -1250 PRINT USING "####.## "; XG, XA, XO -1260 PRINT "Extinction Coefficients (UBVRI): "; -1270 PRINT USING "####.## "; K(1), K(2), K(3), K(4), K(5) -1280 PRINT "Total Extinction (UBVRI): "; -1290 PRINT USING "####.## "; DM(1), DM(2), DM(3), DM(4), DM(5) -1300 RETURN -2000 REM SKY Subroutine -2010 FOR I=1 TO 5: READ BO(I): NEXT I -2020 DATA 8.0E-14, 7.0E-14, 1.0E-13, 1.0E-13, 3.0E-13 -2030 FOR I=1 TO 5: READ CM(I): NEXT I -2040 DATA 1.36, 0.91, 0.00, -0.76, -1.17 -2050 FOR I=1 TO 5: READ MS(I): NEXT I -2060 DATA -25.96, -26.09, -26.74, -27.26, -27.55 -2070 X=1/(COS(ZZ)+.025*EXP(-11*COS(ZZ))) : REM air mass -2080 XM=1/(COS(ZM*RD)+.025*EXP(-11*COS(ZM*RD))) : REM air mass Moon -2090 IF ZM>90.0 THEN XM=40.0 -2100 XS=1/(COS(ZS*RD)+.025*EXP(-11*COS(ZS*RD))) : REM air mass Sun -2110 IF ZS>90.0 THEN XS=40.0 -2120 FOR I=1 TO 5 -2130 REM Dark night sky brightness -2140 BN=BO(I)*(1+.3*COS(6.283*(Y-1992)/11)) -2150 BN=BN*(.4+.6/SQR(1.0-.96*((SIN(ZZ))^2))) -2160 BN=BN*(10^(-.4*K(I)*X)) -2170 REM Moonlight brightness -2180 MM=-12.73+.026*ABS(AM)+4E-09*(AM^4) : REM moon mag in V -2190 MM=MM+CM(I) : REM Moon mag -2200 C3=10.0^(-.4*K(I)*XM) -2210 FM=6.2E+07*(RM^(-2))+(10^(6.15-RM/40)) -2220 FM=FM+(10^5.36)*(1.06+((COS(RM*RD))^2)) -2230 BM=10^(-.4*(MM-MO(I)+43.27)) -2240 BM=BM*(1-10^(-.4*K(I)*X)) -2250 BM=BM*(FM*C3+440000.0*(1-C3)) -2260 REM Twilight brightness -2270 HS=90.0-ZS : REM Height of Sun -2280 BT=10^(-.4*(MS(I)-MO(I)+32.5-HS-(Z/(360*K(I))))) -2290 BT=BT*(100/RS)*(1.0-10.0^(-.4*K(I)*X)) -2300 REM Daylight brightness -2310 C4=10.0^(-.4*K(I)*XS) -2320 FS=6.2E+07*(RS^(-2))+(10^(6.15-RS/40)) -2330 FS=FS+(10^5.36)*(1.06+((COS(RS*RD))^2)) -2340 BD=10^(-.4*(MS(I)-MO(I)+43.27)) -2350 BD=BD*(1-10^(-.4*K(I)*X)) -2360 BD=BD*(FS*C4+440000.0*(1-C4)) -2370 REM Total sky brightness -2380 IF BD>BT THEN GOTO 2410 -2390 B(I)=BN+BD -2400 GOTO 2420 -2410 B(I)=BN+BT -2420 IF ZM<90.0 THEN B(I)=B(I)+BM -2430 NEXT I -2440 PRINT "Sky brightness (UBVRI):"; -2450 PRINT USING " ##.#^^^^"; B(1), B(2), B(3), B(4), B(5) -2460 RETURN -9991 REM ============================== -9992 REM FROM "ASTRONOMICAL COMPUTING," -9993 REM SKY & TELESCOPE, MAY 1998 -9994 REM ============================== diff --git a/bwbtest/B15B/vislimit.run b/bwbtest/B15B/vislimit.run deleted file mode 100644 index 8b10ca0..0000000 --- a/bwbtest/B15B/vislimit.run +++ /dev/null @@ -1,10 +0,0 @@ -Zenith distance (deg.): ? 174 - -Airmass (gas, aerosol, ozone): 0.00 0.00 1.01 -Extinction Coefficients (UBVRI): 0.66 0.36 0.22 0.11 0.06 -Total Extinction (UBVRI): 0.00 0.00 0.03 0.01 0.00 -Sky brightness (UBVRI): 5.71274e-14 4.99965e-14 7.14300e-14 7.14351e-14 -2.14312e-13 - -Visual Sky Brightness (nL): 64 -Visual Limiting Magnitude: 6.50 diff --git a/bwbtest/B15B/wavel.INP b/bwbtest/B15B/wavel.INP deleted file mode 100644 index 9381451..0000000 --- a/bwbtest/B15B/wavel.INP +++ /dev/null @@ -1,3 +0,0 @@ -98765 -43321 --1 diff --git a/bwbtest/B15B/wavel.bas b/bwbtest/B15B/wavel.bas deleted file mode 100644 index ac70da8..0000000 --- a/bwbtest/B15B/wavel.bas +++ /dev/null @@ -1,27 +0,0 @@ -100 REM WAVELENGTHS -110 REM -120 DATA 6563,14.5 -130 DATA 4861,49.0 -140 DATA 3889,85.0 -150 READ W1,S1 -160 READ W2,S2 -170 READ W3,S3 -180 P=W2-W1: Q=W3-W1: R=S2-S1 -190 S=S3-S1: T=S3-S2 -200 A=R/P: B=S/Q -210 U=A-B: V=T/U: L=W1-V -220 D1=A*(W2-L): D2=D1+S1 -230 C=(D1*T)/U -240 PRINT -250 INPUT "DISTANCE";D -260 IF D<0 THEN 310 -270 W=L+(C/(D2-D)) -280 W=INT(W+0.5) -290 PRINT "WAVELENGTH = ";W -300 GOTO 240 -310 END -320 REM ------------------------ -330 REM APPEARED IN ASTRONOMICAL -340 REM COMPUTING, SKY & TELE- -350 REM SCOPE, JUNE, 1985 -360 REM ------------------------ diff --git a/bwbtest/B15B/wavel.run b/bwbtest/B15B/wavel.run deleted file mode 100644 index c67527d..0000000 --- a/bwbtest/B15B/wavel.run +++ /dev/null @@ -1,8 +0,0 @@ - -DISTANCE? 98765 -WAVELENGTH = 661 - -DISTANCE? 43321 -WAVELENGTH = 668 - -DISTANCE? -1 diff --git a/bwbtest/B15B/xyz.INP b/bwbtest/B15B/xyz.INP deleted file mode 100644 index 3de7669..0000000 --- a/bwbtest/B15B/xyz.INP +++ /dev/null @@ -1 +0,0 @@ -2.3456,6.789 diff --git a/bwbtest/B15B/xyz.bas b/bwbtest/B15B/xyz.bas deleted file mode 100644 index 469bbab..0000000 --- a/bwbtest/B15B/xyz.bas +++ /dev/null @@ -1,79 +0,0 @@ -500 REM X,Y,Z OF THE SUN -501 REM (EQUINOX 1950.0) -502 REM -503 INPUT "J,F ";J,F -504 J8=J-2415020: R1=3.14159265/180 -505 T=(J8+F)/36525 -506 P0=1.396041+0.000308*(T+0.5) -507 P0=P0*(T-0.499998) -508 A=100: GOSUB 529: G0=A+358.475833 -509 L0=A+279.696678-P0 -510 A=1336: GOSUB 529 -511 C0=A+270.434164-P0 -512 A=162: GOSUB 529 -513 V0=A+212.603219 -514 A=53: GOSUB 529: M0=A+319.529425 -515 A=8: GOSUB 529: J0=A+225.444651 -516 G=G0+T*(-0.950250-0.000150*T) -517 C=C0+T*(307.883142-0.001133*T) -518 L=L0+T*(0.768920+0.000303*T) -519 V=V0+T*(197.803875+0.001286*T) -520 M=M0+T*(59.8585+0.000181*T) -521 J=J0+T*154.906654 -522 G=G*R1: C=C*R1: L=L*R1 -523 V=V*R1: M=M*R1: J=J*R1 -524 GOSUB 532 -525 PRINT "X: ";X -526 PRINT "Y: ";Y -527 PRINT "Z: ";Z -528 END -529 REM NORMALIZATION -530 A=360*(A*T-INT(A*T)): RETURN -531 REM -532 X=0.000011*COS(2*G-L-2*J) -533 X=X+0.000011*COS(2*G+L-2*V) -534 X=X-0.000012*COS(G+L-V) -535 X=X-0.000012*COS(4*G-L-8*M+3*J) -536 X=X+0.000012*COS(4*G+L-8*M+3*J) -537 X=X-0.000014*COS(C-2*L) -538 X=X+0.000017*COS(C) -539 X=X+0.000018*SIN(2*G+L-2*V) -540 X=X-0.000021*T*COS(G+L) -541 X=X-0.000026*SIN(G-L-J) -542 X=X+0.000035*COS(2*G-L) -543 X=X+0.000063*T*COS(G-L) -544 X=X+0.000105*COS(2*G+L) -545 X=X+0.008374*COS(G+L) -546 X=X-0.025127*COS(G-L) -547 X=X+0.999860*COS(L) -548 REM -549 Y=0.000010*SIN(2*G+L-2*V) -550 Y=Y-0.000010*SIN(2*G-L-2*J) -551 Y=Y-0.000011*SIN(G+L-V) -552 Y=Y+0.000011*SIN(4*G-L-8*M+3*J) -553 Y=Y+0.000011*SIN(4*G+L-8*M+3*J) -554 Y=Y+0.000013*SIN(C-2*L) -555 Y=Y+0.000016*SIN(C) -556 Y=Y-0.000017*COS(2*G+L-2*V) -557 Y=Y-0.000019*T*SIN(G+L) -558 Y=Y-0.000024*COS(G-L-J) -559 Y=Y-0.000032*SIN(2*G-L) -560 Y=Y-0.000057*T*SIN(G-L) -561 Y=Y+0.000097*SIN(2*G+L) -562 Y=Y+0.007683*SIN(G+L) -563 Y=Y+0.023053*SIN(G-L) -564 Y=Y+0.917308*SIN(L) -565 REM -566 Z=-0.000010*COS(G-L-J) -567 Z=Z-0.000014*SIN(2*G-L) -568 Z=Z-0.000025*T*SIN(G-L) -569 Z=Z+0.000042*SIN(2*G+L) -570 Z=Z+0.003332*SIN(G+L) -571 Z=Z+0.009998*SIN(G-L) -572 Z=Z+0.397825*SIN(L) -573 RETURN -575 REM ------------------------ -576 REM APPEARED IN ASTRONOMICAL -577 REM COMPUTING, SKY & TELE- -578 REM SCOPE, NOVEMBER, 1985 -579 REM ------------------------ diff --git a/bwbtest/B15B/xyz.run b/bwbtest/B15B/xyz.run deleted file mode 100644 index af19c2f..0000000 --- a/bwbtest/B15B/xyz.run +++ /dev/null @@ -1,4 +0,0 @@ -J,F ? 2.3456,6.789 -X: .96775 -Y: -.223455 -Z: -9.73883E-2 diff --git a/bwbtest/B84/SUBSGEN.BAS b/bwbtest/B84/SUBSGEN.BAS deleted file mode 100644 index 4bc0fea..0000000 --- a/bwbtest/B84/SUBSGEN.BAS +++ /dev/null @@ -1,59 +0,0 @@ - 100 REM Filename: SUBSGEN.BAS - 110 REM Purpose: Generate sub-string assignment tests - 120 REM Author: Howarsd Wulf, AF5NE - 130 REM Date: 2017-06-23 - 140 REM Notes: OPTION VERSION "BYWATER" - 150 REM - 160 REM - 170 REM - 180 REM - 190 LET Q$ = """" - 200 REM -------------------------------------------------- - 210 LET L = 1000 - 220 LET A$ = "ABCDEFG" - 230 LET B$ = "WXYZ" - 240 GOSUB 900 - 300 REM -------------------------------------------------- - 310 LET L = 3000 - 320 LET A$ = "ABCDEFG" - 330 LET B$ = "" - 340 GOSUB 900 - 400 REM -------------------------------------------------- - 410 LET L = 5000 - 420 LET A$ = "" - 430 LET B$ = "WXYZ" - 440 GOSUB 900 - 500 REM -------------------------------------------------- - 510 LET L = 7000 - 520 LET A$ = "" - 530 LET B$ = "" - 540 GOSUB 900 - 600 REM -------------------------------------------------- - 610 LET L = 7500 - 620 LET A$ = "A" - 630 LET B$ = "W" - 640 GOSUB 900 - 700 REM -------------------------------------------------- - 710 LET L = 8000 - 720 LET A$ = "A" - 730 LET B$ = "" - 740 GOSUB 900 - 800 REM -------------------------------------------------- - 810 LET L = 8500 - 820 LET A$ = "" - 830 LET B$ = "W" - 840 GOSUB 900 - 850 REM -------------------------------------------------- - 860 GOTO 999 - 900 REM -------------------------------------------------- - 910 LET A = LEN( A$ ) - 920 FOR M = -2 TO A + 2 - 930 FOR N = -2 TO A + 2 - 940 PRINT L; " DATA "; Q$; A$; Q$; ","; M; ","; N; ","; Q$; B$; Q$ - 950 LET L = L + 10 - 960 NEXT N - 970 NEXT M - 980 RETURN - 990 REM -------------------------------------------------- - 999 END - diff --git a/bwbtest/B84/SUBSTR1.BAS b/bwbtest/B84/SUBSTR1.BAS deleted file mode 100644 index 8e25771..0000000 --- a/bwbtest/B84/SUBSTR1.BAS +++ /dev/null @@ -1,462 +0,0 @@ - 90 REM Filename: SUBSTR1.BAS - 100 REM Purpose: Verify sub-string assignments - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2017-06-23 - 130 REM Notes: OPTION VERSION "BYWATER" - 140 REM - 150 REM - 160 REM - 170 REM - 180 RESTORE - 190 READ A$ - 200 IF A$ = "*" THEN 9999 - 210 READ M, N, B$ - 220 PRINT "A$=["; A$; "], M="; M ; ", N="; N; ", B$=["; B$; "], "; - 230 LET A$ [ M, N ] = B$ - 240 PRINT "RESULT=["; A$; "]" - 250 GOTO 190 - 260 REM - 270 REM - 280 REM - 290 REM - 300 REM ------------------------------------------------ - 310 REM DATA FORMAT: - 320 REM A$, M, N, B$ - 340 REM - 1000 DATA "ABCDEFG",-2 ,-2 ,"WXYZ" - 1010 DATA "ABCDEFG",-2 ,-1 ,"WXYZ" - 1020 DATA "ABCDEFG",-2 , 0 ,"WXYZ" - 1030 DATA "ABCDEFG",-2 , 1 ,"WXYZ" - 1040 DATA "ABCDEFG",-2 , 2 ,"WXYZ" - 1050 DATA "ABCDEFG",-2 , 3 ,"WXYZ" - 1060 DATA "ABCDEFG",-2 , 4 ,"WXYZ" - 1070 DATA "ABCDEFG",-2 , 5 ,"WXYZ" - 1080 DATA "ABCDEFG",-2 , 6 ,"WXYZ" - 1090 DATA "ABCDEFG",-2 , 7 ,"WXYZ" - 1100 DATA "ABCDEFG",-2 , 8 ,"WXYZ" - 1110 DATA "ABCDEFG",-2 , 9 ,"WXYZ" - 1120 DATA "ABCDEFG",-1 ,-2 ,"WXYZ" - 1130 DATA "ABCDEFG",-1 ,-1 ,"WXYZ" - 1140 DATA "ABCDEFG",-1 , 0 ,"WXYZ" - 1150 DATA "ABCDEFG",-1 , 1 ,"WXYZ" - 1160 DATA "ABCDEFG",-1 , 2 ,"WXYZ" - 1170 DATA "ABCDEFG",-1 , 3 ,"WXYZ" - 1180 DATA "ABCDEFG",-1 , 4 ,"WXYZ" - 1190 DATA "ABCDEFG",-1 , 5 ,"WXYZ" - 1200 DATA "ABCDEFG",-1 , 6 ,"WXYZ" - 1210 DATA "ABCDEFG",-1 , 7 ,"WXYZ" - 1220 DATA "ABCDEFG",-1 , 8 ,"WXYZ" - 1230 DATA "ABCDEFG",-1 , 9 ,"WXYZ" - 1240 DATA "ABCDEFG", 0 ,-2 ,"WXYZ" - 1250 DATA "ABCDEFG", 0 ,-1 ,"WXYZ" - 1260 DATA "ABCDEFG", 0 , 0 ,"WXYZ" - 1270 DATA "ABCDEFG", 0 , 1 ,"WXYZ" - 1280 DATA "ABCDEFG", 0 , 2 ,"WXYZ" - 1290 DATA "ABCDEFG", 0 , 3 ,"WXYZ" - 1300 DATA "ABCDEFG", 0 , 4 ,"WXYZ" - 1310 DATA "ABCDEFG", 0 , 5 ,"WXYZ" - 1320 DATA "ABCDEFG", 0 , 6 ,"WXYZ" - 1330 DATA "ABCDEFG", 0 , 7 ,"WXYZ" - 1340 DATA "ABCDEFG", 0 , 8 ,"WXYZ" - 1350 DATA "ABCDEFG", 0 , 9 ,"WXYZ" - 1360 DATA "ABCDEFG", 1 ,-2 ,"WXYZ" - 1370 DATA "ABCDEFG", 1 ,-1 ,"WXYZ" - 1380 DATA "ABCDEFG", 1 , 0 ,"WXYZ" - 1390 DATA "ABCDEFG", 1 , 1 ,"WXYZ" - 1400 DATA "ABCDEFG", 1 , 2 ,"WXYZ" - 1410 DATA "ABCDEFG", 1 , 3 ,"WXYZ" - 1420 DATA "ABCDEFG", 1 , 4 ,"WXYZ" - 1430 DATA "ABCDEFG", 1 , 5 ,"WXYZ" - 1440 DATA "ABCDEFG", 1 , 6 ,"WXYZ" - 1450 DATA "ABCDEFG", 1 , 7 ,"WXYZ" - 1460 DATA "ABCDEFG", 1 , 8 ,"WXYZ" - 1470 DATA "ABCDEFG", 1 , 9 ,"WXYZ" - 1480 DATA "ABCDEFG", 2 ,-2 ,"WXYZ" - 1490 DATA "ABCDEFG", 2 ,-1 ,"WXYZ" - 1500 DATA "ABCDEFG", 2 , 0 ,"WXYZ" - 1510 DATA "ABCDEFG", 2 , 1 ,"WXYZ" - 1520 DATA "ABCDEFG", 2 , 2 ,"WXYZ" - 1530 DATA "ABCDEFG", 2 , 3 ,"WXYZ" - 1540 DATA "ABCDEFG", 2 , 4 ,"WXYZ" - 1550 DATA "ABCDEFG", 2 , 5 ,"WXYZ" - 1560 DATA "ABCDEFG", 2 , 6 ,"WXYZ" - 1570 DATA "ABCDEFG", 2 , 7 ,"WXYZ" - 1580 DATA "ABCDEFG", 2 , 8 ,"WXYZ" - 1590 DATA "ABCDEFG", 2 , 9 ,"WXYZ" - 1600 DATA "ABCDEFG", 3 ,-2 ,"WXYZ" - 1610 DATA "ABCDEFG", 3 ,-1 ,"WXYZ" - 1620 DATA "ABCDEFG", 3 , 0 ,"WXYZ" - 1630 DATA "ABCDEFG", 3 , 1 ,"WXYZ" - 1640 DATA "ABCDEFG", 3 , 2 ,"WXYZ" - 1650 DATA "ABCDEFG", 3 , 3 ,"WXYZ" - 1660 DATA "ABCDEFG", 3 , 4 ,"WXYZ" - 1670 DATA "ABCDEFG", 3 , 5 ,"WXYZ" - 1680 DATA "ABCDEFG", 3 , 6 ,"WXYZ" - 1690 DATA "ABCDEFG", 3 , 7 ,"WXYZ" - 1700 DATA "ABCDEFG", 3 , 8 ,"WXYZ" - 1710 DATA "ABCDEFG", 3 , 9 ,"WXYZ" - 1720 DATA "ABCDEFG", 4 ,-2 ,"WXYZ" - 1730 DATA "ABCDEFG", 4 ,-1 ,"WXYZ" - 1740 DATA "ABCDEFG", 4 , 0 ,"WXYZ" - 1750 DATA "ABCDEFG", 4 , 1 ,"WXYZ" - 1760 DATA "ABCDEFG", 4 , 2 ,"WXYZ" - 1770 DATA "ABCDEFG", 4 , 3 ,"WXYZ" - 1780 DATA "ABCDEFG", 4 , 4 ,"WXYZ" - 1790 DATA "ABCDEFG", 4 , 5 ,"WXYZ" - 1800 DATA "ABCDEFG", 4 , 6 ,"WXYZ" - 1810 DATA "ABCDEFG", 4 , 7 ,"WXYZ" - 1820 DATA "ABCDEFG", 4 , 8 ,"WXYZ" - 1830 DATA "ABCDEFG", 4 , 9 ,"WXYZ" - 1840 DATA "ABCDEFG", 5 ,-2 ,"WXYZ" - 1850 DATA "ABCDEFG", 5 ,-1 ,"WXYZ" - 1860 DATA "ABCDEFG", 5 , 0 ,"WXYZ" - 1870 DATA "ABCDEFG", 5 , 1 ,"WXYZ" - 1880 DATA "ABCDEFG", 5 , 2 ,"WXYZ" - 1890 DATA "ABCDEFG", 5 , 3 ,"WXYZ" - 1900 DATA "ABCDEFG", 5 , 4 ,"WXYZ" - 1910 DATA "ABCDEFG", 5 , 5 ,"WXYZ" - 1920 DATA "ABCDEFG", 5 , 6 ,"WXYZ" - 1930 DATA "ABCDEFG", 5 , 7 ,"WXYZ" - 1940 DATA "ABCDEFG", 5 , 8 ,"WXYZ" - 1950 DATA "ABCDEFG", 5 , 9 ,"WXYZ" - 1960 DATA "ABCDEFG", 6 ,-2 ,"WXYZ" - 1970 DATA "ABCDEFG", 6 ,-1 ,"WXYZ" - 1980 DATA "ABCDEFG", 6 , 0 ,"WXYZ" - 1990 DATA "ABCDEFG", 6 , 1 ,"WXYZ" - 2000 DATA "ABCDEFG", 6 , 2 ,"WXYZ" - 2010 DATA "ABCDEFG", 6 , 3 ,"WXYZ" - 2020 DATA "ABCDEFG", 6 , 4 ,"WXYZ" - 2030 DATA "ABCDEFG", 6 , 5 ,"WXYZ" - 2040 DATA "ABCDEFG", 6 , 6 ,"WXYZ" - 2050 DATA "ABCDEFG", 6 , 7 ,"WXYZ" - 2060 DATA "ABCDEFG", 6 , 8 ,"WXYZ" - 2070 DATA "ABCDEFG", 6 , 9 ,"WXYZ" - 2080 DATA "ABCDEFG", 7 ,-2 ,"WXYZ" - 2090 DATA "ABCDEFG", 7 ,-1 ,"WXYZ" - 2100 DATA "ABCDEFG", 7 , 0 ,"WXYZ" - 2110 DATA "ABCDEFG", 7 , 1 ,"WXYZ" - 2120 DATA "ABCDEFG", 7 , 2 ,"WXYZ" - 2130 DATA "ABCDEFG", 7 , 3 ,"WXYZ" - 2140 DATA "ABCDEFG", 7 , 4 ,"WXYZ" - 2150 DATA "ABCDEFG", 7 , 5 ,"WXYZ" - 2160 DATA "ABCDEFG", 7 , 6 ,"WXYZ" - 2170 DATA "ABCDEFG", 7 , 7 ,"WXYZ" - 2180 DATA "ABCDEFG", 7 , 8 ,"WXYZ" - 2190 DATA "ABCDEFG", 7 , 9 ,"WXYZ" - 2200 DATA "ABCDEFG", 8 ,-2 ,"WXYZ" - 2210 DATA "ABCDEFG", 8 ,-1 ,"WXYZ" - 2220 DATA "ABCDEFG", 8 , 0 ,"WXYZ" - 2230 DATA "ABCDEFG", 8 , 1 ,"WXYZ" - 2240 DATA "ABCDEFG", 8 , 2 ,"WXYZ" - 2250 DATA "ABCDEFG", 8 , 3 ,"WXYZ" - 2260 DATA "ABCDEFG", 8 , 4 ,"WXYZ" - 2270 DATA "ABCDEFG", 8 , 5 ,"WXYZ" - 2280 DATA "ABCDEFG", 8 , 6 ,"WXYZ" - 2290 DATA "ABCDEFG", 8 , 7 ,"WXYZ" - 2300 DATA "ABCDEFG", 8 , 8 ,"WXYZ" - 2310 DATA "ABCDEFG", 8 , 9 ,"WXYZ" - 2320 DATA "ABCDEFG", 9 ,-2 ,"WXYZ" - 2330 DATA "ABCDEFG", 9 ,-1 ,"WXYZ" - 2340 DATA "ABCDEFG", 9 , 0 ,"WXYZ" - 2350 DATA "ABCDEFG", 9 , 1 ,"WXYZ" - 2360 DATA "ABCDEFG", 9 , 2 ,"WXYZ" - 2370 DATA "ABCDEFG", 9 , 3 ,"WXYZ" - 2380 DATA "ABCDEFG", 9 , 4 ,"WXYZ" - 2390 DATA "ABCDEFG", 9 , 5 ,"WXYZ" - 2400 DATA "ABCDEFG", 9 , 6 ,"WXYZ" - 2410 DATA "ABCDEFG", 9 , 7 ,"WXYZ" - 2420 DATA "ABCDEFG", 9 , 8 ,"WXYZ" - 2430 DATA "ABCDEFG", 9 , 9 ,"WXYZ" - 3000 DATA "ABCDEFG",-2 ,-2 ,"" - 3010 DATA "ABCDEFG",-2 ,-1 ,"" - 3020 DATA "ABCDEFG",-2 , 0 ,"" - 3030 DATA "ABCDEFG",-2 , 1 ,"" - 3040 DATA "ABCDEFG",-2 , 2 ,"" - 3050 DATA "ABCDEFG",-2 , 3 ,"" - 3060 DATA "ABCDEFG",-2 , 4 ,"" - 3070 DATA "ABCDEFG",-2 , 5 ,"" - 3080 DATA "ABCDEFG",-2 , 6 ,"" - 3090 DATA "ABCDEFG",-2 , 7 ,"" - 3100 DATA "ABCDEFG",-2 , 8 ,"" - 3110 DATA "ABCDEFG",-2 , 9 ,"" - 3120 DATA "ABCDEFG",-1 ,-2 ,"" - 3130 DATA "ABCDEFG",-1 ,-1 ,"" - 3140 DATA "ABCDEFG",-1 , 0 ,"" - 3150 DATA "ABCDEFG",-1 , 1 ,"" - 3160 DATA "ABCDEFG",-1 , 2 ,"" - 3170 DATA "ABCDEFG",-1 , 3 ,"" - 3180 DATA "ABCDEFG",-1 , 4 ,"" - 3190 DATA "ABCDEFG",-1 , 5 ,"" - 3200 DATA "ABCDEFG",-1 , 6 ,"" - 3210 DATA "ABCDEFG",-1 , 7 ,"" - 3220 DATA "ABCDEFG",-1 , 8 ,"" - 3230 DATA "ABCDEFG",-1 , 9 ,"" - 3240 DATA "ABCDEFG", 0 ,-2 ,"" - 3250 DATA "ABCDEFG", 0 ,-1 ,"" - 3260 DATA "ABCDEFG", 0 , 0 ,"" - 3270 DATA "ABCDEFG", 0 , 1 ,"" - 3280 DATA "ABCDEFG", 0 , 2 ,"" - 3290 DATA "ABCDEFG", 0 , 3 ,"" - 3300 DATA "ABCDEFG", 0 , 4 ,"" - 3310 DATA "ABCDEFG", 0 , 5 ,"" - 3320 DATA "ABCDEFG", 0 , 6 ,"" - 3330 DATA "ABCDEFG", 0 , 7 ,"" - 3340 DATA "ABCDEFG", 0 , 8 ,"" - 3350 DATA "ABCDEFG", 0 , 9 ,"" - 3360 DATA "ABCDEFG", 1 ,-2 ,"" - 3370 DATA "ABCDEFG", 1 ,-1 ,"" - 3380 DATA "ABCDEFG", 1 , 0 ,"" - 3390 DATA "ABCDEFG", 1 , 1 ,"" - 3400 DATA "ABCDEFG", 1 , 2 ,"" - 3410 DATA "ABCDEFG", 1 , 3 ,"" - 3420 DATA "ABCDEFG", 1 , 4 ,"" - 3430 DATA "ABCDEFG", 1 , 5 ,"" - 3440 DATA "ABCDEFG", 1 , 6 ,"" - 3450 DATA "ABCDEFG", 1 , 7 ,"" - 3460 DATA "ABCDEFG", 1 , 8 ,"" - 3470 DATA "ABCDEFG", 1 , 9 ,"" - 3480 DATA "ABCDEFG", 2 ,-2 ,"" - 3490 DATA "ABCDEFG", 2 ,-1 ,"" - 3500 DATA "ABCDEFG", 2 , 0 ,"" - 3510 DATA "ABCDEFG", 2 , 1 ,"" - 3520 DATA "ABCDEFG", 2 , 2 ,"" - 3530 DATA "ABCDEFG", 2 , 3 ,"" - 3540 DATA "ABCDEFG", 2 , 4 ,"" - 3550 DATA "ABCDEFG", 2 , 5 ,"" - 3560 DATA "ABCDEFG", 2 , 6 ,"" - 3570 DATA "ABCDEFG", 2 , 7 ,"" - 3580 DATA "ABCDEFG", 2 , 8 ,"" - 3590 DATA "ABCDEFG", 2 , 9 ,"" - 3600 DATA "ABCDEFG", 3 ,-2 ,"" - 3610 DATA "ABCDEFG", 3 ,-1 ,"" - 3620 DATA "ABCDEFG", 3 , 0 ,"" - 3630 DATA "ABCDEFG", 3 , 1 ,"" - 3640 DATA "ABCDEFG", 3 , 2 ,"" - 3650 DATA "ABCDEFG", 3 , 3 ,"" - 3660 DATA "ABCDEFG", 3 , 4 ,"" - 3670 DATA "ABCDEFG", 3 , 5 ,"" - 3680 DATA "ABCDEFG", 3 , 6 ,"" - 3690 DATA "ABCDEFG", 3 , 7 ,"" - 3700 DATA "ABCDEFG", 3 , 8 ,"" - 3710 DATA "ABCDEFG", 3 , 9 ,"" - 3720 DATA "ABCDEFG", 4 ,-2 ,"" - 3730 DATA "ABCDEFG", 4 ,-1 ,"" - 3740 DATA "ABCDEFG", 4 , 0 ,"" - 3750 DATA "ABCDEFG", 4 , 1 ,"" - 3760 DATA "ABCDEFG", 4 , 2 ,"" - 3770 DATA "ABCDEFG", 4 , 3 ,"" - 3780 DATA "ABCDEFG", 4 , 4 ,"" - 3790 DATA "ABCDEFG", 4 , 5 ,"" - 3800 DATA "ABCDEFG", 4 , 6 ,"" - 3810 DATA "ABCDEFG", 4 , 7 ,"" - 3820 DATA "ABCDEFG", 4 , 8 ,"" - 3830 DATA "ABCDEFG", 4 , 9 ,"" - 3840 DATA "ABCDEFG", 5 ,-2 ,"" - 3850 DATA "ABCDEFG", 5 ,-1 ,"" - 3860 DATA "ABCDEFG", 5 , 0 ,"" - 3870 DATA "ABCDEFG", 5 , 1 ,"" - 3880 DATA "ABCDEFG", 5 , 2 ,"" - 3890 DATA "ABCDEFG", 5 , 3 ,"" - 3900 DATA "ABCDEFG", 5 , 4 ,"" - 3910 DATA "ABCDEFG", 5 , 5 ,"" - 3920 DATA "ABCDEFG", 5 , 6 ,"" - 3930 DATA "ABCDEFG", 5 , 7 ,"" - 3940 DATA "ABCDEFG", 5 , 8 ,"" - 3950 DATA "ABCDEFG", 5 , 9 ,"" - 3960 DATA "ABCDEFG", 6 ,-2 ,"" - 3970 DATA "ABCDEFG", 6 ,-1 ,"" - 3980 DATA "ABCDEFG", 6 , 0 ,"" - 3990 DATA "ABCDEFG", 6 , 1 ,"" - 4000 DATA "ABCDEFG", 6 , 2 ,"" - 4010 DATA "ABCDEFG", 6 , 3 ,"" - 4020 DATA "ABCDEFG", 6 , 4 ,"" - 4030 DATA "ABCDEFG", 6 , 5 ,"" - 4040 DATA "ABCDEFG", 6 , 6 ,"" - 4050 DATA "ABCDEFG", 6 , 7 ,"" - 4060 DATA "ABCDEFG", 6 , 8 ,"" - 4070 DATA "ABCDEFG", 6 , 9 ,"" - 4080 DATA "ABCDEFG", 7 ,-2 ,"" - 4090 DATA "ABCDEFG", 7 ,-1 ,"" - 4100 DATA "ABCDEFG", 7 , 0 ,"" - 4110 DATA "ABCDEFG", 7 , 1 ,"" - 4120 DATA "ABCDEFG", 7 , 2 ,"" - 4130 DATA "ABCDEFG", 7 , 3 ,"" - 4140 DATA "ABCDEFG", 7 , 4 ,"" - 4150 DATA "ABCDEFG", 7 , 5 ,"" - 4160 DATA "ABCDEFG", 7 , 6 ,"" - 4170 DATA "ABCDEFG", 7 , 7 ,"" - 4180 DATA "ABCDEFG", 7 , 8 ,"" - 4190 DATA "ABCDEFG", 7 , 9 ,"" - 4200 DATA "ABCDEFG", 8 ,-2 ,"" - 4210 DATA "ABCDEFG", 8 ,-1 ,"" - 4220 DATA "ABCDEFG", 8 , 0 ,"" - 4230 DATA "ABCDEFG", 8 , 1 ,"" - 4240 DATA "ABCDEFG", 8 , 2 ,"" - 4250 DATA "ABCDEFG", 8 , 3 ,"" - 4260 DATA "ABCDEFG", 8 , 4 ,"" - 4270 DATA "ABCDEFG", 8 , 5 ,"" - 4280 DATA "ABCDEFG", 8 , 6 ,"" - 4290 DATA "ABCDEFG", 8 , 7 ,"" - 4300 DATA "ABCDEFG", 8 , 8 ,"" - 4310 DATA "ABCDEFG", 8 , 9 ,"" - 4320 DATA "ABCDEFG", 9 ,-2 ,"" - 4330 DATA "ABCDEFG", 9 ,-1 ,"" - 4340 DATA "ABCDEFG", 9 , 0 ,"" - 4350 DATA "ABCDEFG", 9 , 1 ,"" - 4360 DATA "ABCDEFG", 9 , 2 ,"" - 4370 DATA "ABCDEFG", 9 , 3 ,"" - 4380 DATA "ABCDEFG", 9 , 4 ,"" - 4390 DATA "ABCDEFG", 9 , 5 ,"" - 4400 DATA "ABCDEFG", 9 , 6 ,"" - 4410 DATA "ABCDEFG", 9 , 7 ,"" - 4420 DATA "ABCDEFG", 9 , 8 ,"" - 4430 DATA "ABCDEFG", 9 , 9 ,"" - 5000 DATA "",-2 ,-2 ,"WXYZ" - 5010 DATA "",-2 ,-1 ,"WXYZ" - 5020 DATA "",-2 , 0 ,"WXYZ" - 5030 DATA "",-2 , 1 ,"WXYZ" - 5040 DATA "",-2 , 2 ,"WXYZ" - 5050 DATA "",-1 ,-2 ,"WXYZ" - 5060 DATA "",-1 ,-1 ,"WXYZ" - 5070 DATA "",-1 , 0 ,"WXYZ" - 5080 DATA "",-1 , 1 ,"WXYZ" - 5090 DATA "",-1 , 2 ,"WXYZ" - 5100 DATA "", 0 ,-2 ,"WXYZ" - 5110 DATA "", 0 ,-1 ,"WXYZ" - 5120 DATA "", 0 , 0 ,"WXYZ" - 5130 DATA "", 0 , 1 ,"WXYZ" - 5140 DATA "", 0 , 2 ,"WXYZ" - 5150 DATA "", 1 ,-2 ,"WXYZ" - 5160 DATA "", 1 ,-1 ,"WXYZ" - 5170 DATA "", 1 , 0 ,"WXYZ" - 5180 DATA "", 1 , 1 ,"WXYZ" - 5190 DATA "", 1 , 2 ,"WXYZ" - 5200 DATA "", 2 ,-2 ,"WXYZ" - 5210 DATA "", 2 ,-1 ,"WXYZ" - 5220 DATA "", 2 , 0 ,"WXYZ" - 5230 DATA "", 2 , 1 ,"WXYZ" - 5240 DATA "", 2 , 2 ,"WXYZ" - 7000 DATA "",-2 ,-2 ,"" - 7010 DATA "",-2 ,-1 ,"" - 7020 DATA "",-2 , 0 ,"" - 7030 DATA "",-2 , 1 ,"" - 7040 DATA "",-2 , 2 ,"" - 7050 DATA "",-1 ,-2 ,"" - 7060 DATA "",-1 ,-1 ,"" - 7070 DATA "",-1 , 0 ,"" - 7080 DATA "",-1 , 1 ,"" - 7090 DATA "",-1 , 2 ,"" - 7100 DATA "", 0 ,-2 ,"" - 7110 DATA "", 0 ,-1 ,"" - 7120 DATA "", 0 , 0 ,"" - 7130 DATA "", 0 , 1 ,"" - 7140 DATA "", 0 , 2 ,"" - 7150 DATA "", 1 ,-2 ,"" - 7160 DATA "", 1 ,-1 ,"" - 7170 DATA "", 1 , 0 ,"" - 7180 DATA "", 1 , 1 ,"" - 7190 DATA "", 1 , 2 ,"" - 7200 DATA "", 2 ,-2 ,"" - 7210 DATA "", 2 ,-1 ,"" - 7220 DATA "", 2 , 0 ,"" - 7230 DATA "", 2 , 1 ,"" - 7240 DATA "", 2 , 2 ,"" - 7500 DATA "A",-2 ,-2 ,"W" - 7510 DATA "A",-2 ,-1 ,"W" - 7520 DATA "A",-2 , 0 ,"W" - 7530 DATA "A",-2 , 1 ,"W" - 7540 DATA "A",-2 , 2 ,"W" - 7550 DATA "A",-2 , 3 ,"W" - 7560 DATA "A",-1 ,-2 ,"W" - 7570 DATA "A",-1 ,-1 ,"W" - 7580 DATA "A",-1 , 0 ,"W" - 7590 DATA "A",-1 , 1 ,"W" - 7600 DATA "A",-1 , 2 ,"W" - 7610 DATA "A",-1 , 3 ,"W" - 7620 DATA "A", 0 ,-2 ,"W" - 7630 DATA "A", 0 ,-1 ,"W" - 7640 DATA "A", 0 , 0 ,"W" - 7650 DATA "A", 0 , 1 ,"W" - 7660 DATA "A", 0 , 2 ,"W" - 7670 DATA "A", 0 , 3 ,"W" - 7680 DATA "A", 1 ,-2 ,"W" - 7690 DATA "A", 1 ,-1 ,"W" - 7700 DATA "A", 1 , 0 ,"W" - 7710 DATA "A", 1 , 1 ,"W" - 7720 DATA "A", 1 , 2 ,"W" - 7730 DATA "A", 1 , 3 ,"W" - 7740 DATA "A", 2 ,-2 ,"W" - 7750 DATA "A", 2 ,-1 ,"W" - 7760 DATA "A", 2 , 0 ,"W" - 7770 DATA "A", 2 , 1 ,"W" - 7780 DATA "A", 2 , 2 ,"W" - 7790 DATA "A", 2 , 3 ,"W" - 7800 DATA "A", 3 ,-2 ,"W" - 7810 DATA "A", 3 ,-1 ,"W" - 7820 DATA "A", 3 , 0 ,"W" - 7830 DATA "A", 3 , 1 ,"W" - 7840 DATA "A", 3 , 2 ,"W" - 7850 DATA "A", 3 , 3 ,"W" - 8000 DATA "A",-2 ,-2 ,"" - 8010 DATA "A",-2 ,-1 ,"" - 8020 DATA "A",-2 , 0 ,"" - 8030 DATA "A",-2 , 1 ,"" - 8040 DATA "A",-2 , 2 ,"" - 8050 DATA "A",-2 , 3 ,"" - 8060 DATA "A",-1 ,-2 ,"" - 8070 DATA "A",-1 ,-1 ,"" - 8080 DATA "A",-1 , 0 ,"" - 8090 DATA "A",-1 , 1 ,"" - 8100 DATA "A",-1 , 2 ,"" - 8110 DATA "A",-1 , 3 ,"" - 8120 DATA "A", 0 ,-2 ,"" - 8130 DATA "A", 0 ,-1 ,"" - 8140 DATA "A", 0 , 0 ,"" - 8150 DATA "A", 0 , 1 ,"" - 8160 DATA "A", 0 , 2 ,"" - 8170 DATA "A", 0 , 3 ,"" - 8180 DATA "A", 1 ,-2 ,"" - 8190 DATA "A", 1 ,-1 ,"" - 8200 DATA "A", 1 , 0 ,"" - 8210 DATA "A", 1 , 1 ,"" - 8220 DATA "A", 1 , 2 ,"" - 8230 DATA "A", 1 , 3 ,"" - 8240 DATA "A", 2 ,-2 ,"" - 8250 DATA "A", 2 ,-1 ,"" - 8260 DATA "A", 2 , 0 ,"" - 8270 DATA "A", 2 , 1 ,"" - 8280 DATA "A", 2 , 2 ,"" - 8290 DATA "A", 2 , 3 ,"" - 8300 DATA "A", 3 ,-2 ,"" - 8310 DATA "A", 3 ,-1 ,"" - 8320 DATA "A", 3 , 0 ,"" - 8330 DATA "A", 3 , 1 ,"" - 8340 DATA "A", 3 , 2 ,"" - 8350 DATA "A", 3 , 3 ,"" - 8500 DATA "",-2 ,-2 ,"W" - 8510 DATA "",-2 ,-1 ,"W" - 8520 DATA "",-2 , 0 ,"W" - 8530 DATA "",-2 , 1 ,"W" - 8540 DATA "",-2 , 2 ,"W" - 8550 DATA "",-1 ,-2 ,"W" - 8560 DATA "",-1 ,-1 ,"W" - 8570 DATA "",-1 , 0 ,"W" - 8580 DATA "",-1 , 1 ,"W" - 8590 DATA "",-1 , 2 ,"W" - 8600 DATA "", 0 ,-2 ,"W" - 8610 DATA "", 0 ,-1 ,"W" - 8620 DATA "", 0 , 0 ,"W" - 8630 DATA "", 0 , 1 ,"W" - 8640 DATA "", 0 , 2 ,"W" - 8650 DATA "", 1 ,-2 ,"W" - 8660 DATA "", 1 ,-1 ,"W" - 8670 DATA "", 1 , 0 ,"W" - 8680 DATA "", 1 , 1 ,"W" - 8690 DATA "", 1 , 2 ,"W" - 8700 DATA "", 2 ,-2 ,"W" - 8710 DATA "", 2 ,-1 ,"W" - 8720 DATA "", 2 , 0 ,"W" - 8730 DATA "", 2 , 1 ,"W" - 8740 DATA "", 2 , 2 ,"W" - 9990 DATA "*" - 9999 END diff --git a/bwbtest/B84/SUBSTR2.BAS b/bwbtest/B84/SUBSTR2.BAS deleted file mode 100644 index 08b407b..0000000 --- a/bwbtest/B84/SUBSTR2.BAS +++ /dev/null @@ -1,462 +0,0 @@ - 90 REM Filename: SUBSTR2.BAS - 100 REM Purpose: Verify sub-string selection - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2017-06-23 - 130 REM Notes: OPTION VERSION "BYWATER" - 140 REM - 150 REM - 160 REM - 170 REM - 180 RESTORE - 190 READ A$ - 200 IF A$ = "*" THEN 9999 - 210 READ M, N, B$ - 220 PRINT "A$=["; A$; "], M="; M ; ", N="; N; ", B$=["; B$; "], "; - 230 LET A$ = B$ [ M, N ] - 240 PRINT "RESULT=["; A$; "]" - 250 GOTO 190 - 260 REM - 270 REM - 280 REM - 290 REM - 300 REM ------------------------------------------------ - 310 REM DATA FORMAT: - 320 REM A$, M, N, B$ - 340 REM - 1000 DATA "ABCDEFG",-2 ,-2 ,"WXYZ" - 1010 DATA "ABCDEFG",-2 ,-1 ,"WXYZ" - 1020 DATA "ABCDEFG",-2 , 0 ,"WXYZ" - 1030 DATA "ABCDEFG",-2 , 1 ,"WXYZ" - 1040 DATA "ABCDEFG",-2 , 2 ,"WXYZ" - 1050 DATA "ABCDEFG",-2 , 3 ,"WXYZ" - 1060 DATA "ABCDEFG",-2 , 4 ,"WXYZ" - 1070 DATA "ABCDEFG",-2 , 5 ,"WXYZ" - 1080 DATA "ABCDEFG",-2 , 6 ,"WXYZ" - 1090 DATA "ABCDEFG",-2 , 7 ,"WXYZ" - 1100 DATA "ABCDEFG",-2 , 8 ,"WXYZ" - 1110 DATA "ABCDEFG",-2 , 9 ,"WXYZ" - 1120 DATA "ABCDEFG",-1 ,-2 ,"WXYZ" - 1130 DATA "ABCDEFG",-1 ,-1 ,"WXYZ" - 1140 DATA "ABCDEFG",-1 , 0 ,"WXYZ" - 1150 DATA "ABCDEFG",-1 , 1 ,"WXYZ" - 1160 DATA "ABCDEFG",-1 , 2 ,"WXYZ" - 1170 DATA "ABCDEFG",-1 , 3 ,"WXYZ" - 1180 DATA "ABCDEFG",-1 , 4 ,"WXYZ" - 1190 DATA "ABCDEFG",-1 , 5 ,"WXYZ" - 1200 DATA "ABCDEFG",-1 , 6 ,"WXYZ" - 1210 DATA "ABCDEFG",-1 , 7 ,"WXYZ" - 1220 DATA "ABCDEFG",-1 , 8 ,"WXYZ" - 1230 DATA "ABCDEFG",-1 , 9 ,"WXYZ" - 1240 DATA "ABCDEFG", 0 ,-2 ,"WXYZ" - 1250 DATA "ABCDEFG", 0 ,-1 ,"WXYZ" - 1260 DATA "ABCDEFG", 0 , 0 ,"WXYZ" - 1270 DATA "ABCDEFG", 0 , 1 ,"WXYZ" - 1280 DATA "ABCDEFG", 0 , 2 ,"WXYZ" - 1290 DATA "ABCDEFG", 0 , 3 ,"WXYZ" - 1300 DATA "ABCDEFG", 0 , 4 ,"WXYZ" - 1310 DATA "ABCDEFG", 0 , 5 ,"WXYZ" - 1320 DATA "ABCDEFG", 0 , 6 ,"WXYZ" - 1330 DATA "ABCDEFG", 0 , 7 ,"WXYZ" - 1340 DATA "ABCDEFG", 0 , 8 ,"WXYZ" - 1350 DATA "ABCDEFG", 0 , 9 ,"WXYZ" - 1360 DATA "ABCDEFG", 1 ,-2 ,"WXYZ" - 1370 DATA "ABCDEFG", 1 ,-1 ,"WXYZ" - 1380 DATA "ABCDEFG", 1 , 0 ,"WXYZ" - 1390 DATA "ABCDEFG", 1 , 1 ,"WXYZ" - 1400 DATA "ABCDEFG", 1 , 2 ,"WXYZ" - 1410 DATA "ABCDEFG", 1 , 3 ,"WXYZ" - 1420 DATA "ABCDEFG", 1 , 4 ,"WXYZ" - 1430 DATA "ABCDEFG", 1 , 5 ,"WXYZ" - 1440 DATA "ABCDEFG", 1 , 6 ,"WXYZ" - 1450 DATA "ABCDEFG", 1 , 7 ,"WXYZ" - 1460 DATA "ABCDEFG", 1 , 8 ,"WXYZ" - 1470 DATA "ABCDEFG", 1 , 9 ,"WXYZ" - 1480 DATA "ABCDEFG", 2 ,-2 ,"WXYZ" - 1490 DATA "ABCDEFG", 2 ,-1 ,"WXYZ" - 1500 DATA "ABCDEFG", 2 , 0 ,"WXYZ" - 1510 DATA "ABCDEFG", 2 , 1 ,"WXYZ" - 1520 DATA "ABCDEFG", 2 , 2 ,"WXYZ" - 1530 DATA "ABCDEFG", 2 , 3 ,"WXYZ" - 1540 DATA "ABCDEFG", 2 , 4 ,"WXYZ" - 1550 DATA "ABCDEFG", 2 , 5 ,"WXYZ" - 1560 DATA "ABCDEFG", 2 , 6 ,"WXYZ" - 1570 DATA "ABCDEFG", 2 , 7 ,"WXYZ" - 1580 DATA "ABCDEFG", 2 , 8 ,"WXYZ" - 1590 DATA "ABCDEFG", 2 , 9 ,"WXYZ" - 1600 DATA "ABCDEFG", 3 ,-2 ,"WXYZ" - 1610 DATA "ABCDEFG", 3 ,-1 ,"WXYZ" - 1620 DATA "ABCDEFG", 3 , 0 ,"WXYZ" - 1630 DATA "ABCDEFG", 3 , 1 ,"WXYZ" - 1640 DATA "ABCDEFG", 3 , 2 ,"WXYZ" - 1650 DATA "ABCDEFG", 3 , 3 ,"WXYZ" - 1660 DATA "ABCDEFG", 3 , 4 ,"WXYZ" - 1670 DATA "ABCDEFG", 3 , 5 ,"WXYZ" - 1680 DATA "ABCDEFG", 3 , 6 ,"WXYZ" - 1690 DATA "ABCDEFG", 3 , 7 ,"WXYZ" - 1700 DATA "ABCDEFG", 3 , 8 ,"WXYZ" - 1710 DATA "ABCDEFG", 3 , 9 ,"WXYZ" - 1720 DATA "ABCDEFG", 4 ,-2 ,"WXYZ" - 1730 DATA "ABCDEFG", 4 ,-1 ,"WXYZ" - 1740 DATA "ABCDEFG", 4 , 0 ,"WXYZ" - 1750 DATA "ABCDEFG", 4 , 1 ,"WXYZ" - 1760 DATA "ABCDEFG", 4 , 2 ,"WXYZ" - 1770 DATA "ABCDEFG", 4 , 3 ,"WXYZ" - 1780 DATA "ABCDEFG", 4 , 4 ,"WXYZ" - 1790 DATA "ABCDEFG", 4 , 5 ,"WXYZ" - 1800 DATA "ABCDEFG", 4 , 6 ,"WXYZ" - 1810 DATA "ABCDEFG", 4 , 7 ,"WXYZ" - 1820 DATA "ABCDEFG", 4 , 8 ,"WXYZ" - 1830 DATA "ABCDEFG", 4 , 9 ,"WXYZ" - 1840 DATA "ABCDEFG", 5 ,-2 ,"WXYZ" - 1850 DATA "ABCDEFG", 5 ,-1 ,"WXYZ" - 1860 DATA "ABCDEFG", 5 , 0 ,"WXYZ" - 1870 DATA "ABCDEFG", 5 , 1 ,"WXYZ" - 1880 DATA "ABCDEFG", 5 , 2 ,"WXYZ" - 1890 DATA "ABCDEFG", 5 , 3 ,"WXYZ" - 1900 DATA "ABCDEFG", 5 , 4 ,"WXYZ" - 1910 DATA "ABCDEFG", 5 , 5 ,"WXYZ" - 1920 DATA "ABCDEFG", 5 , 6 ,"WXYZ" - 1930 DATA "ABCDEFG", 5 , 7 ,"WXYZ" - 1940 DATA "ABCDEFG", 5 , 8 ,"WXYZ" - 1950 DATA "ABCDEFG", 5 , 9 ,"WXYZ" - 1960 DATA "ABCDEFG", 6 ,-2 ,"WXYZ" - 1970 DATA "ABCDEFG", 6 ,-1 ,"WXYZ" - 1980 DATA "ABCDEFG", 6 , 0 ,"WXYZ" - 1990 DATA "ABCDEFG", 6 , 1 ,"WXYZ" - 2000 DATA "ABCDEFG", 6 , 2 ,"WXYZ" - 2010 DATA "ABCDEFG", 6 , 3 ,"WXYZ" - 2020 DATA "ABCDEFG", 6 , 4 ,"WXYZ" - 2030 DATA "ABCDEFG", 6 , 5 ,"WXYZ" - 2040 DATA "ABCDEFG", 6 , 6 ,"WXYZ" - 2050 DATA "ABCDEFG", 6 , 7 ,"WXYZ" - 2060 DATA "ABCDEFG", 6 , 8 ,"WXYZ" - 2070 DATA "ABCDEFG", 6 , 9 ,"WXYZ" - 2080 DATA "ABCDEFG", 7 ,-2 ,"WXYZ" - 2090 DATA "ABCDEFG", 7 ,-1 ,"WXYZ" - 2100 DATA "ABCDEFG", 7 , 0 ,"WXYZ" - 2110 DATA "ABCDEFG", 7 , 1 ,"WXYZ" - 2120 DATA "ABCDEFG", 7 , 2 ,"WXYZ" - 2130 DATA "ABCDEFG", 7 , 3 ,"WXYZ" - 2140 DATA "ABCDEFG", 7 , 4 ,"WXYZ" - 2150 DATA "ABCDEFG", 7 , 5 ,"WXYZ" - 2160 DATA "ABCDEFG", 7 , 6 ,"WXYZ" - 2170 DATA "ABCDEFG", 7 , 7 ,"WXYZ" - 2180 DATA "ABCDEFG", 7 , 8 ,"WXYZ" - 2190 DATA "ABCDEFG", 7 , 9 ,"WXYZ" - 2200 DATA "ABCDEFG", 8 ,-2 ,"WXYZ" - 2210 DATA "ABCDEFG", 8 ,-1 ,"WXYZ" - 2220 DATA "ABCDEFG", 8 , 0 ,"WXYZ" - 2230 DATA "ABCDEFG", 8 , 1 ,"WXYZ" - 2240 DATA "ABCDEFG", 8 , 2 ,"WXYZ" - 2250 DATA "ABCDEFG", 8 , 3 ,"WXYZ" - 2260 DATA "ABCDEFG", 8 , 4 ,"WXYZ" - 2270 DATA "ABCDEFG", 8 , 5 ,"WXYZ" - 2280 DATA "ABCDEFG", 8 , 6 ,"WXYZ" - 2290 DATA "ABCDEFG", 8 , 7 ,"WXYZ" - 2300 DATA "ABCDEFG", 8 , 8 ,"WXYZ" - 2310 DATA "ABCDEFG", 8 , 9 ,"WXYZ" - 2320 DATA "ABCDEFG", 9 ,-2 ,"WXYZ" - 2330 DATA "ABCDEFG", 9 ,-1 ,"WXYZ" - 2340 DATA "ABCDEFG", 9 , 0 ,"WXYZ" - 2350 DATA "ABCDEFG", 9 , 1 ,"WXYZ" - 2360 DATA "ABCDEFG", 9 , 2 ,"WXYZ" - 2370 DATA "ABCDEFG", 9 , 3 ,"WXYZ" - 2380 DATA "ABCDEFG", 9 , 4 ,"WXYZ" - 2390 DATA "ABCDEFG", 9 , 5 ,"WXYZ" - 2400 DATA "ABCDEFG", 9 , 6 ,"WXYZ" - 2410 DATA "ABCDEFG", 9 , 7 ,"WXYZ" - 2420 DATA "ABCDEFG", 9 , 8 ,"WXYZ" - 2430 DATA "ABCDEFG", 9 , 9 ,"WXYZ" - 3000 DATA "ABCDEFG",-2 ,-2 ,"" - 3010 DATA "ABCDEFG",-2 ,-1 ,"" - 3020 DATA "ABCDEFG",-2 , 0 ,"" - 3030 DATA "ABCDEFG",-2 , 1 ,"" - 3040 DATA "ABCDEFG",-2 , 2 ,"" - 3050 DATA "ABCDEFG",-2 , 3 ,"" - 3060 DATA "ABCDEFG",-2 , 4 ,"" - 3070 DATA "ABCDEFG",-2 , 5 ,"" - 3080 DATA "ABCDEFG",-2 , 6 ,"" - 3090 DATA "ABCDEFG",-2 , 7 ,"" - 3100 DATA "ABCDEFG",-2 , 8 ,"" - 3110 DATA "ABCDEFG",-2 , 9 ,"" - 3120 DATA "ABCDEFG",-1 ,-2 ,"" - 3130 DATA "ABCDEFG",-1 ,-1 ,"" - 3140 DATA "ABCDEFG",-1 , 0 ,"" - 3150 DATA "ABCDEFG",-1 , 1 ,"" - 3160 DATA "ABCDEFG",-1 , 2 ,"" - 3170 DATA "ABCDEFG",-1 , 3 ,"" - 3180 DATA "ABCDEFG",-1 , 4 ,"" - 3190 DATA "ABCDEFG",-1 , 5 ,"" - 3200 DATA "ABCDEFG",-1 , 6 ,"" - 3210 DATA "ABCDEFG",-1 , 7 ,"" - 3220 DATA "ABCDEFG",-1 , 8 ,"" - 3230 DATA "ABCDEFG",-1 , 9 ,"" - 3240 DATA "ABCDEFG", 0 ,-2 ,"" - 3250 DATA "ABCDEFG", 0 ,-1 ,"" - 3260 DATA "ABCDEFG", 0 , 0 ,"" - 3270 DATA "ABCDEFG", 0 , 1 ,"" - 3280 DATA "ABCDEFG", 0 , 2 ,"" - 3290 DATA "ABCDEFG", 0 , 3 ,"" - 3300 DATA "ABCDEFG", 0 , 4 ,"" - 3310 DATA "ABCDEFG", 0 , 5 ,"" - 3320 DATA "ABCDEFG", 0 , 6 ,"" - 3330 DATA "ABCDEFG", 0 , 7 ,"" - 3340 DATA "ABCDEFG", 0 , 8 ,"" - 3350 DATA "ABCDEFG", 0 , 9 ,"" - 3360 DATA "ABCDEFG", 1 ,-2 ,"" - 3370 DATA "ABCDEFG", 1 ,-1 ,"" - 3380 DATA "ABCDEFG", 1 , 0 ,"" - 3390 DATA "ABCDEFG", 1 , 1 ,"" - 3400 DATA "ABCDEFG", 1 , 2 ,"" - 3410 DATA "ABCDEFG", 1 , 3 ,"" - 3420 DATA "ABCDEFG", 1 , 4 ,"" - 3430 DATA "ABCDEFG", 1 , 5 ,"" - 3440 DATA "ABCDEFG", 1 , 6 ,"" - 3450 DATA "ABCDEFG", 1 , 7 ,"" - 3460 DATA "ABCDEFG", 1 , 8 ,"" - 3470 DATA "ABCDEFG", 1 , 9 ,"" - 3480 DATA "ABCDEFG", 2 ,-2 ,"" - 3490 DATA "ABCDEFG", 2 ,-1 ,"" - 3500 DATA "ABCDEFG", 2 , 0 ,"" - 3510 DATA "ABCDEFG", 2 , 1 ,"" - 3520 DATA "ABCDEFG", 2 , 2 ,"" - 3530 DATA "ABCDEFG", 2 , 3 ,"" - 3540 DATA "ABCDEFG", 2 , 4 ,"" - 3550 DATA "ABCDEFG", 2 , 5 ,"" - 3560 DATA "ABCDEFG", 2 , 6 ,"" - 3570 DATA "ABCDEFG", 2 , 7 ,"" - 3580 DATA "ABCDEFG", 2 , 8 ,"" - 3590 DATA "ABCDEFG", 2 , 9 ,"" - 3600 DATA "ABCDEFG", 3 ,-2 ,"" - 3610 DATA "ABCDEFG", 3 ,-1 ,"" - 3620 DATA "ABCDEFG", 3 , 0 ,"" - 3630 DATA "ABCDEFG", 3 , 1 ,"" - 3640 DATA "ABCDEFG", 3 , 2 ,"" - 3650 DATA "ABCDEFG", 3 , 3 ,"" - 3660 DATA "ABCDEFG", 3 , 4 ,"" - 3670 DATA "ABCDEFG", 3 , 5 ,"" - 3680 DATA "ABCDEFG", 3 , 6 ,"" - 3690 DATA "ABCDEFG", 3 , 7 ,"" - 3700 DATA "ABCDEFG", 3 , 8 ,"" - 3710 DATA "ABCDEFG", 3 , 9 ,"" - 3720 DATA "ABCDEFG", 4 ,-2 ,"" - 3730 DATA "ABCDEFG", 4 ,-1 ,"" - 3740 DATA "ABCDEFG", 4 , 0 ,"" - 3750 DATA "ABCDEFG", 4 , 1 ,"" - 3760 DATA "ABCDEFG", 4 , 2 ,"" - 3770 DATA "ABCDEFG", 4 , 3 ,"" - 3780 DATA "ABCDEFG", 4 , 4 ,"" - 3790 DATA "ABCDEFG", 4 , 5 ,"" - 3800 DATA "ABCDEFG", 4 , 6 ,"" - 3810 DATA "ABCDEFG", 4 , 7 ,"" - 3820 DATA "ABCDEFG", 4 , 8 ,"" - 3830 DATA "ABCDEFG", 4 , 9 ,"" - 3840 DATA "ABCDEFG", 5 ,-2 ,"" - 3850 DATA "ABCDEFG", 5 ,-1 ,"" - 3860 DATA "ABCDEFG", 5 , 0 ,"" - 3870 DATA "ABCDEFG", 5 , 1 ,"" - 3880 DATA "ABCDEFG", 5 , 2 ,"" - 3890 DATA "ABCDEFG", 5 , 3 ,"" - 3900 DATA "ABCDEFG", 5 , 4 ,"" - 3910 DATA "ABCDEFG", 5 , 5 ,"" - 3920 DATA "ABCDEFG", 5 , 6 ,"" - 3930 DATA "ABCDEFG", 5 , 7 ,"" - 3940 DATA "ABCDEFG", 5 , 8 ,"" - 3950 DATA "ABCDEFG", 5 , 9 ,"" - 3960 DATA "ABCDEFG", 6 ,-2 ,"" - 3970 DATA "ABCDEFG", 6 ,-1 ,"" - 3980 DATA "ABCDEFG", 6 , 0 ,"" - 3990 DATA "ABCDEFG", 6 , 1 ,"" - 4000 DATA "ABCDEFG", 6 , 2 ,"" - 4010 DATA "ABCDEFG", 6 , 3 ,"" - 4020 DATA "ABCDEFG", 6 , 4 ,"" - 4030 DATA "ABCDEFG", 6 , 5 ,"" - 4040 DATA "ABCDEFG", 6 , 6 ,"" - 4050 DATA "ABCDEFG", 6 , 7 ,"" - 4060 DATA "ABCDEFG", 6 , 8 ,"" - 4070 DATA "ABCDEFG", 6 , 9 ,"" - 4080 DATA "ABCDEFG", 7 ,-2 ,"" - 4090 DATA "ABCDEFG", 7 ,-1 ,"" - 4100 DATA "ABCDEFG", 7 , 0 ,"" - 4110 DATA "ABCDEFG", 7 , 1 ,"" - 4120 DATA "ABCDEFG", 7 , 2 ,"" - 4130 DATA "ABCDEFG", 7 , 3 ,"" - 4140 DATA "ABCDEFG", 7 , 4 ,"" - 4150 DATA "ABCDEFG", 7 , 5 ,"" - 4160 DATA "ABCDEFG", 7 , 6 ,"" - 4170 DATA "ABCDEFG", 7 , 7 ,"" - 4180 DATA "ABCDEFG", 7 , 8 ,"" - 4190 DATA "ABCDEFG", 7 , 9 ,"" - 4200 DATA "ABCDEFG", 8 ,-2 ,"" - 4210 DATA "ABCDEFG", 8 ,-1 ,"" - 4220 DATA "ABCDEFG", 8 , 0 ,"" - 4230 DATA "ABCDEFG", 8 , 1 ,"" - 4240 DATA "ABCDEFG", 8 , 2 ,"" - 4250 DATA "ABCDEFG", 8 , 3 ,"" - 4260 DATA "ABCDEFG", 8 , 4 ,"" - 4270 DATA "ABCDEFG", 8 , 5 ,"" - 4280 DATA "ABCDEFG", 8 , 6 ,"" - 4290 DATA "ABCDEFG", 8 , 7 ,"" - 4300 DATA "ABCDEFG", 8 , 8 ,"" - 4310 DATA "ABCDEFG", 8 , 9 ,"" - 4320 DATA "ABCDEFG", 9 ,-2 ,"" - 4330 DATA "ABCDEFG", 9 ,-1 ,"" - 4340 DATA "ABCDEFG", 9 , 0 ,"" - 4350 DATA "ABCDEFG", 9 , 1 ,"" - 4360 DATA "ABCDEFG", 9 , 2 ,"" - 4370 DATA "ABCDEFG", 9 , 3 ,"" - 4380 DATA "ABCDEFG", 9 , 4 ,"" - 4390 DATA "ABCDEFG", 9 , 5 ,"" - 4400 DATA "ABCDEFG", 9 , 6 ,"" - 4410 DATA "ABCDEFG", 9 , 7 ,"" - 4420 DATA "ABCDEFG", 9 , 8 ,"" - 4430 DATA "ABCDEFG", 9 , 9 ,"" - 5000 DATA "",-2 ,-2 ,"WXYZ" - 5010 DATA "",-2 ,-1 ,"WXYZ" - 5020 DATA "",-2 , 0 ,"WXYZ" - 5030 DATA "",-2 , 1 ,"WXYZ" - 5040 DATA "",-2 , 2 ,"WXYZ" - 5050 DATA "",-1 ,-2 ,"WXYZ" - 5060 DATA "",-1 ,-1 ,"WXYZ" - 5070 DATA "",-1 , 0 ,"WXYZ" - 5080 DATA "",-1 , 1 ,"WXYZ" - 5090 DATA "",-1 , 2 ,"WXYZ" - 5100 DATA "", 0 ,-2 ,"WXYZ" - 5110 DATA "", 0 ,-1 ,"WXYZ" - 5120 DATA "", 0 , 0 ,"WXYZ" - 5130 DATA "", 0 , 1 ,"WXYZ" - 5140 DATA "", 0 , 2 ,"WXYZ" - 5150 DATA "", 1 ,-2 ,"WXYZ" - 5160 DATA "", 1 ,-1 ,"WXYZ" - 5170 DATA "", 1 , 0 ,"WXYZ" - 5180 DATA "", 1 , 1 ,"WXYZ" - 5190 DATA "", 1 , 2 ,"WXYZ" - 5200 DATA "", 2 ,-2 ,"WXYZ" - 5210 DATA "", 2 ,-1 ,"WXYZ" - 5220 DATA "", 2 , 0 ,"WXYZ" - 5230 DATA "", 2 , 1 ,"WXYZ" - 5240 DATA "", 2 , 2 ,"WXYZ" - 7000 DATA "",-2 ,-2 ,"" - 7010 DATA "",-2 ,-1 ,"" - 7020 DATA "",-2 , 0 ,"" - 7030 DATA "",-2 , 1 ,"" - 7040 DATA "",-2 , 2 ,"" - 7050 DATA "",-1 ,-2 ,"" - 7060 DATA "",-1 ,-1 ,"" - 7070 DATA "",-1 , 0 ,"" - 7080 DATA "",-1 , 1 ,"" - 7090 DATA "",-1 , 2 ,"" - 7100 DATA "", 0 ,-2 ,"" - 7110 DATA "", 0 ,-1 ,"" - 7120 DATA "", 0 , 0 ,"" - 7130 DATA "", 0 , 1 ,"" - 7140 DATA "", 0 , 2 ,"" - 7150 DATA "", 1 ,-2 ,"" - 7160 DATA "", 1 ,-1 ,"" - 7170 DATA "", 1 , 0 ,"" - 7180 DATA "", 1 , 1 ,"" - 7190 DATA "", 1 , 2 ,"" - 7200 DATA "", 2 ,-2 ,"" - 7210 DATA "", 2 ,-1 ,"" - 7220 DATA "", 2 , 0 ,"" - 7230 DATA "", 2 , 1 ,"" - 7240 DATA "", 2 , 2 ,"" - 7500 DATA "A",-2 ,-2 ,"W" - 7510 DATA "A",-2 ,-1 ,"W" - 7520 DATA "A",-2 , 0 ,"W" - 7530 DATA "A",-2 , 1 ,"W" - 7540 DATA "A",-2 , 2 ,"W" - 7550 DATA "A",-2 , 3 ,"W" - 7560 DATA "A",-1 ,-2 ,"W" - 7570 DATA "A",-1 ,-1 ,"W" - 7580 DATA "A",-1 , 0 ,"W" - 7590 DATA "A",-1 , 1 ,"W" - 7600 DATA "A",-1 , 2 ,"W" - 7610 DATA "A",-1 , 3 ,"W" - 7620 DATA "A", 0 ,-2 ,"W" - 7630 DATA "A", 0 ,-1 ,"W" - 7640 DATA "A", 0 , 0 ,"W" - 7650 DATA "A", 0 , 1 ,"W" - 7660 DATA "A", 0 , 2 ,"W" - 7670 DATA "A", 0 , 3 ,"W" - 7680 DATA "A", 1 ,-2 ,"W" - 7690 DATA "A", 1 ,-1 ,"W" - 7700 DATA "A", 1 , 0 ,"W" - 7710 DATA "A", 1 , 1 ,"W" - 7720 DATA "A", 1 , 2 ,"W" - 7730 DATA "A", 1 , 3 ,"W" - 7740 DATA "A", 2 ,-2 ,"W" - 7750 DATA "A", 2 ,-1 ,"W" - 7760 DATA "A", 2 , 0 ,"W" - 7770 DATA "A", 2 , 1 ,"W" - 7780 DATA "A", 2 , 2 ,"W" - 7790 DATA "A", 2 , 3 ,"W" - 7800 DATA "A", 3 ,-2 ,"W" - 7810 DATA "A", 3 ,-1 ,"W" - 7820 DATA "A", 3 , 0 ,"W" - 7830 DATA "A", 3 , 1 ,"W" - 7840 DATA "A", 3 , 2 ,"W" - 7850 DATA "A", 3 , 3 ,"W" - 8000 DATA "A",-2 ,-2 ,"" - 8010 DATA "A",-2 ,-1 ,"" - 8020 DATA "A",-2 , 0 ,"" - 8030 DATA "A",-2 , 1 ,"" - 8040 DATA "A",-2 , 2 ,"" - 8050 DATA "A",-2 , 3 ,"" - 8060 DATA "A",-1 ,-2 ,"" - 8070 DATA "A",-1 ,-1 ,"" - 8080 DATA "A",-1 , 0 ,"" - 8090 DATA "A",-1 , 1 ,"" - 8100 DATA "A",-1 , 2 ,"" - 8110 DATA "A",-1 , 3 ,"" - 8120 DATA "A", 0 ,-2 ,"" - 8130 DATA "A", 0 ,-1 ,"" - 8140 DATA "A", 0 , 0 ,"" - 8150 DATA "A", 0 , 1 ,"" - 8160 DATA "A", 0 , 2 ,"" - 8170 DATA "A", 0 , 3 ,"" - 8180 DATA "A", 1 ,-2 ,"" - 8190 DATA "A", 1 ,-1 ,"" - 8200 DATA "A", 1 , 0 ,"" - 8210 DATA "A", 1 , 1 ,"" - 8220 DATA "A", 1 , 2 ,"" - 8230 DATA "A", 1 , 3 ,"" - 8240 DATA "A", 2 ,-2 ,"" - 8250 DATA "A", 2 ,-1 ,"" - 8260 DATA "A", 2 , 0 ,"" - 8270 DATA "A", 2 , 1 ,"" - 8280 DATA "A", 2 , 2 ,"" - 8290 DATA "A", 2 , 3 ,"" - 8300 DATA "A", 3 ,-2 ,"" - 8310 DATA "A", 3 ,-1 ,"" - 8320 DATA "A", 3 , 0 ,"" - 8330 DATA "A", 3 , 1 ,"" - 8340 DATA "A", 3 , 2 ,"" - 8350 DATA "A", 3 , 3 ,"" - 8500 DATA "",-2 ,-2 ,"W" - 8510 DATA "",-2 ,-1 ,"W" - 8520 DATA "",-2 , 0 ,"W" - 8530 DATA "",-2 , 1 ,"W" - 8540 DATA "",-2 , 2 ,"W" - 8550 DATA "",-1 ,-2 ,"W" - 8560 DATA "",-1 ,-1 ,"W" - 8570 DATA "",-1 , 0 ,"W" - 8580 DATA "",-1 , 1 ,"W" - 8590 DATA "",-1 , 2 ,"W" - 8600 DATA "", 0 ,-2 ,"W" - 8610 DATA "", 0 ,-1 ,"W" - 8620 DATA "", 0 , 0 ,"W" - 8630 DATA "", 0 , 1 ,"W" - 8640 DATA "", 0 , 2 ,"W" - 8650 DATA "", 1 ,-2 ,"W" - 8660 DATA "", 1 ,-1 ,"W" - 8670 DATA "", 1 , 0 ,"W" - 8680 DATA "", 1 , 1 ,"W" - 8690 DATA "", 1 , 2 ,"W" - 8700 DATA "", 2 ,-2 ,"W" - 8710 DATA "", 2 ,-1 ,"W" - 8720 DATA "", 2 , 0 ,"W" - 8730 DATA "", 2 , 1 ,"W" - 8740 DATA "", 2 , 2 ,"W" - 9990 DATA "*" - 9999 END diff --git a/bwbtest/B93/00readme.txt b/bwbtest/B93/00readme.txt deleted file mode 100644 index 0000c2a..0000000 --- a/bwbtest/B93/00readme.txt +++ /dev/null @@ -1 +0,0 @@ -These programs are part of regression testing. diff --git a/bwbtest/B93/00test.sh b/bwbtest/B93/00test.sh deleted file mode 100644 index ce3b337..0000000 --- a/bwbtest/B93/00test.sh +++ /dev/null @@ -1,85 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-02-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/bwbtest -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile B93.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- - -# testcase abs -testcase assign -testcase callfunc -testcase callsub -testcase chain1 -testcase chain2 -testcase dataread -testcase deffn -testcase dim -testcase doloop -testcase dowhile -testcase elseif -testcase end -testcase err -testcase fncallfn -testcase fornext -testcase function -testcase gosub -testcase gotolabl -testcase ifline -testcase input -testcase lof -testcase loopuntl -testcase main -testcase mlifthen -testcase on -testcase onerr -testcase onerrlbl -testcase ongosub -testcase opentest -testcase option -testcase pascaltr -testcase putget -testcase random -testcase selcase -testcase snglfunc -testcase stop -testcase term -testcase whilwend -testcase width -testcase writeinp -#testcase error1 -#testcase error2 -#testcase error3 -#testcase error4 -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/B93/01test.sh b/bwbtest/B93/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/B93/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/B93/02ok.sh b/bwbtest/B93/02ok.sh deleted file mode 100644 index 118fddc..0000000 --- a/bwbtest/B93/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/bwskytel -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/B93/99test.sh b/bwbtest/B93/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/B93/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/B93/B93.PRO b/bwbtest/B93/B93.PRO deleted file mode 100644 index 256baf5..0000000 --- a/bwbtest/B93/B93.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "BYWATER-2" diff --git a/bwbtest/B93/PAD80.BAS b/bwbtest/B93/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/B93/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/B93/PAD80.INP b/bwbtest/B93/PAD80.INP deleted file mode 100644 index 2712f34..0000000 --- a/bwbtest/B93/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA writeinp.OUT, writeinp.80 diff --git a/bwbtest/B93/PAD80.PRO b/bwbtest/B93/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/B93/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/B93/assign.run b/bwbtest/B93/assign.run deleted file mode 100644 index f160add..0000000 --- a/bwbtest/B93/assign.run +++ /dev/null @@ -1,2 +0,0 @@ -TEST.BAS -- TEST -X is 7 diff --git a/bwbtest/B93/callfunc.run b/bwbtest/B93/callfunc.run deleted file mode 100644 index edfedfb..0000000 --- a/bwbtest/B93/callfunc.run +++ /dev/null @@ -1,14 +0,0 @@ -CallFunc.BAS -- Test BASIC User-defined Function Statements -The next printed line should be from the Function. - -This is written from the Function. -The value of variable is 5 -The value of variable is Hello -The value of variable is 17 -The value of variable is reset to 99 -The Function should return 104 - -This is back at the main program. -The value of variable is now 17 -The returned value from the function is 104 -Did it work? diff --git a/bwbtest/B93/callsub.bas b/bwbtest/B93/callsub.bas deleted file mode 100644 index e08e04d..0000000 --- a/bwbtest/B93/callsub.bas +++ /dev/null @@ -1,34 +0,0 @@ - -rem ---------------------------------------------------- -rem CallSub.BAS -rem ---------------------------------------------------- - -Print "CallSub.BAS -- Test BASIC Call and Sub Statements" -Print "The next printed line should be from the Subroutine." -Print -testvar = 17 - -REM bwBASIC 3.20 CALL requires parenthesis -REM Call TestSub 5, "Hello", testvar -Call TestSub( 5, "Hello", testvar ) - -Print -Print "This is back at the main program. " -Print "The value of variable is now "; testvar - -Print "Did it work?" -End - -rem ---------------------------------------------------- -rem Subroutine TestSub -rem ---------------------------------------------------- - -Sub TestSub( xarg, yarg$, tvar ) - Print "This is written from the Subroutine." - Print "The value of variable is"; xarg - Print "The value of variable is "; yarg$ - Print "The value of variable is "; tvar - tvar = 99 - Print "The value of variable is reset to "; tvar -End Sub - diff --git a/bwbtest/B93/callsub.run b/bwbtest/B93/callsub.run deleted file mode 100644 index ce661ec..0000000 --- a/bwbtest/B93/callsub.run +++ /dev/null @@ -1,12 +0,0 @@ -CallSub.BAS -- Test BASIC Call and Sub Statements -The next printed line should be from the Subroutine. - -This is written from the Subroutine. -The value of variable is 5 -The value of variable is Hello -The value of variable is 17 -The value of variable is reset to 99 - -This is back at the main program. -The value of variable is now 17 -Did it work? diff --git a/bwbtest/B93/chain1.run b/bwbtest/B93/chain1.run deleted file mode 100644 index dc7fb99..0000000 --- a/bwbtest/B93/chain1.run +++ /dev/null @@ -1,6 +0,0 @@ -This is program CHAIN1.BAS -The value of X is 5.6789 -We shall no pass execution to program CHAIN2.BAS... -This is program CHAIN2.BAS -The value of X is now 5.6789 -This concludes our CHAIN test. diff --git a/bwbtest/B93/chain2.run b/bwbtest/B93/chain2.run deleted file mode 100644 index 944fef8..0000000 --- a/bwbtest/B93/chain2.run +++ /dev/null @@ -1,3 +0,0 @@ -This is program CHAIN2.BAS -The value of X is now 0 -This concludes our CHAIN test. diff --git a/bwbtest/B93/data.tmp b/bwbtest/B93/data.tmp deleted file mode 100644 index 408b6b0..0000000 --- a/bwbtest/B93/data.tmp +++ /dev/null @@ -1 +0,0 @@ -"String 1",1.12346,"String 2",2.23457,"String 3",3.34568 diff --git a/bwbtest/B93/dataread.run b/bwbtest/B93/dataread.run deleted file mode 100644 index 60299f5..0000000 --- a/bwbtest/B93/dataread.run +++ /dev/null @@ -1,4 +0,0 @@ -DATAREAD.BAS -- Test DATA, READ, and RESTORE Statements -Data read: Ted 56.789 Dale 45.678 -After RESTORE: -Data read: Ted 56.789 Dale 45.678 diff --git a/bwbtest/B93/deffn.run b/bwbtest/B93/deffn.run deleted file mode 100644 index 5c4be7f..0000000 --- a/bwbtest/B93/deffn.run +++ /dev/null @@ -1,3 +0,0 @@ -DEFFN.BAS -- Test DEF FN Statement - 5 -Correct diff --git a/bwbtest/B93/dim.run b/bwbtest/B93/dim.run deleted file mode 100644 index e104629..0000000 --- a/bwbtest/B93/dim.run +++ /dev/null @@ -1,6 +0,0 @@ -The value at position 0 is 2 -The value at position 1 is 3 -The value at position 2 is 4 -The value at position 3 is 5 -The value at position 4 is 6 -The value at position 5 is 7 diff --git a/bwbtest/B93/doloop.run b/bwbtest/B93/doloop.run deleted file mode 100644 index 46d5c3c..0000000 --- a/bwbtest/B93/doloop.run +++ /dev/null @@ -1,14 +0,0 @@ -i is 1 -i is 2 -i is 3 -i is 4 -i is 5 -i is 6 -i is 7 -i is 8 -i is 9 -i is 10 -i is 11 -i is 12 -i is 13 -End diff --git a/bwbtest/B93/dowhile.run b/bwbtest/B93/dowhile.run deleted file mode 100644 index 90353ba..0000000 --- a/bwbtest/B93/dowhile.run +++ /dev/null @@ -1,77 +0,0 @@ -START -x is 0 -y is 0 -y is 1 -x is 1 -y is 0 -y is 1 -x is 2 -y is 0 -y is 1 -x is 3 -y is 0 -y is 1 -x is 4 -y is 0 -y is 1 -x is 5 -y is 0 -y is 1 -x is 6 -y is 0 -y is 1 -x is 7 -y is 0 -y is 1 -x is 8 -y is 0 -y is 1 -x is 9 -y is 0 -y is 1 -x is 10 -y is 0 -y is 1 -x is 11 -y is 0 -y is 1 -x is 12 -y is 0 -y is 1 -x is 13 -y is 0 -y is 1 -x is 14 -y is 0 -y is 1 -x is 15 -y is 0 -y is 1 -x is 16 -y is 0 -y is 1 -x is 17 -y is 0 -y is 1 -x is 18 -y is 0 -y is 1 -x is 19 -y is 0 -y is 1 -x is 20 -y is 0 -y is 1 -x is 21 -y is 0 -y is 1 -x is 22 -y is 0 -y is 1 -x is 23 -y is 0 -y is 1 -x is 24 -y is 0 -y is 1 -END diff --git a/bwbtest/B93/elseif.INP b/bwbtest/B93/elseif.INP deleted file mode 100644 index 7ed6ff8..0000000 --- a/bwbtest/B93/elseif.INP +++ /dev/null @@ -1 +0,0 @@ -5 diff --git a/bwbtest/B93/elseif.run b/bwbtest/B93/elseif.run deleted file mode 100644 index f1b51f0..0000000 --- a/bwbtest/B93/elseif.run +++ /dev/null @@ -1,6 +0,0 @@ -ELSEIF.BAS -- Test MultiLine IF-THEN-ELSE Constructions - -The program should detect if the number you enter is 4 or 5 or 6. -Please enter a number, 1-9? 5 -The number is 5. -This concludes our test. diff --git a/bwbtest/B93/end.run b/bwbtest/B93/end.run deleted file mode 100644 index f89e2f5..0000000 --- a/bwbtest/B93/end.run +++ /dev/null @@ -1,2 +0,0 @@ -END.BAS -- Test END Statement -If the program ends after this line, END worked OK. diff --git a/bwbtest/B93/err.run b/bwbtest/B93/err.run deleted file mode 100644 index f2b87d8..0000000 --- a/bwbtest/B93/err.run +++ /dev/null @@ -1,2 +0,0 @@ - -ERROR in line 20: Subscript out of range diff --git a/bwbtest/B93/fncallfn.run b/bwbtest/B93/fncallfn.run deleted file mode 100644 index bbb61b1..0000000 --- a/bwbtest/B93/fncallfn.run +++ /dev/null @@ -1,3 +0,0 @@ -Test user-defined function calling user-defined function -The result should be: 2.45678 -The result is: : 2.45678 diff --git a/bwbtest/B93/fornext.run b/bwbtest/B93/fornext.run deleted file mode 100644 index 2ba3db4..0000000 --- a/bwbtest/B93/fornext.run +++ /dev/null @@ -1,24 +0,0 @@ -FORNEXT.BAS: Test FOR-NEXT Statements -A FOR-NEXT Loop with STEP statement: -FOR: i is 1 -FOR: i is 3 -FOR: i is 5 -FOR: i is 7 -FOR: i is 9 -FOR: i is 11 -FOR: i is 13 -FOR: i is 15 -FOR: i is 17 -FOR: i is 19 -FOR: i is 21 -FOR: i is 23 -FOR: i is 25 -FOR: i is 27 -FOR: i is 29 -A FOR-NEXT Loop without STEP statement: -FOR: i is 2 -FOR: i is 3 -FOR: i is 4 -FOR: i is 5 -FOR: i is 6 -FOR: i is 7 diff --git a/bwbtest/B93/function.INP b/bwbtest/B93/function.INP deleted file mode 100644 index 88f774c..0000000 --- a/bwbtest/B93/function.INP +++ /dev/null @@ -1,3 +0,0 @@ -c -A -B diff --git a/bwbtest/B93/function.run b/bwbtest/B93/function.run deleted file mode 100644 index 4d49c13..0000000 --- a/bwbtest/B93/function.run +++ /dev/null @@ -1,48 +0,0 @@ -ABS(-2.2): 2.2 -DATE$: <03/07/2017> -TIME$: <07:41:18> -ATN(-2.2): -1.14417 -COS(-2.2): -.588501 -LOG(2.2): .788457 -SIN(-2.2): -.808496 -SQR(2.2): 1.48324 -TAN(-2.2): 1.37382 -SGN(-2.2): -1 -INT(-2.2): -3 -Paused? c -RND(-2.2): .396465 -CHR$(&h60): ` -TAB(52): < > -SPC(5): < > -SPACE$(5): < > -STRING$(5,X): -MID$(0123456789, 5, 4): <4567> -LEFT$(0123456789, 5): <01234> -RIGHT$(0123456789, 5): <56789> -TIMER: 27678 -Paused? A -VAL(X): 0 -ERR: 0 -ERL: 0 -LEN(0123456789): 10 -CSNG(-2.2): -2.2 -EXP(-2.2): .110803 -INSTR(0123456789, 234): 3 -STR$(-2.2): <-2.2> -HEX$(27): <1B> -Paused? B -OCT$(27): <33> -CINT(-2.2): -2 -ASC(0123456789): 48 -ENVIRON$(PATH): -MKD$(17): <> -MKI$(17): < > -MKS$(17): <> -CVD(MKD$(17)): 17 -CVS(MKS$(17)): 17 -CVI(MKI$(17)): 17 diff --git a/bwbtest/B93/gosub.INP b/bwbtest/B93/gosub.INP deleted file mode 100644 index c9046ae..0000000 --- a/bwbtest/B93/gosub.INP +++ /dev/null @@ -1,3 +0,0 @@ -1 -a -9 diff --git a/bwbtest/B93/gosub.run b/bwbtest/B93/gosub.run deleted file mode 100644 index 1ff06e3..0000000 --- a/bwbtest/B93/gosub.run +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - -Test GOSUB Statements ---------------------- - -1 - Run Subroutine -9 - Exit to system -x - Exit to BASIC - -? 1 - - - - - - - - - - - - - - - - - - - - - - - - - -This is the subroutine. -Press any key: ? a - - - - - - - - - - - - - - - - - - - - - - - - - -Test GOSUB Statements ---------------------- - -1 - Run Subroutine -9 - Exit to system -x - Exit to BASIC - -? 9 - - - - - - - - - - - - - - - - - - - - - - - - - -Exit from Bywater BASIC Test Program - diff --git a/bwbtest/B93/gotolabl.run b/bwbtest/B93/gotolabl.run deleted file mode 100644 index f8404bf..0000000 --- a/bwbtest/B93/gotolabl.run +++ /dev/null @@ -1,4 +0,0 @@ -Hello -This is the subroutine. -This is the sub-subroutine. -Goodbye diff --git a/bwbtest/B93/ifline.run b/bwbtest/B93/ifline.run deleted file mode 100644 index 963f2f7..0000000 --- a/bwbtest/B93/ifline.run +++ /dev/null @@ -1 +0,0 @@ -The program succeeded diff --git a/bwbtest/B93/index.txt b/bwbtest/B93/index.txt deleted file mode 100644 index 39c8b94..0000000 --- a/bwbtest/B93/index.txt +++ /dev/null @@ -1,43 +0,0 @@ -Test Programs for bwBASIC: -------------------------- - -___ ___ ABS BAS -___ ___ ASSIGN BAS -___ ___ CALLFUNC BAS * STRUCT_CMDS -___ ___ CALLSUB BAS * STRUCT_CMDS -___ ___ CHAIN1 BAS -___ ___ CHAIN2 BAS * called from CHAIN1.BAS -___ ___ DATAREAD BAS -___ ___ DEFFN BAS -___ ___ DIM BAS -___ ___ DOLOOP BAS * STRUCT_CMDS -___ ___ DOWHILE BAS * STRUCT_CMDS -___ ___ ELSEIF BAS * STRUCT_CMDS -___ ___ END BAS -___ ___ ERR BAS -___ ___ FORNEXT BAS -___ ___ FUNCTION BAS -___ ___ GOSUB BAS -___ ___ GOTOLABL BAS * STRUCT_CMDS -___ ___ IFLINE BAS -___ ___ INPUT BAS -___ ___ LOF BAS * LOF(): IMPLEMENTATION-SPECIFIC -___ ___ LOOPUNTL BAS * STRUCT_CMDS -___ ___ MAIN BAS * STRUCT_CMDS -___ ___ MLIFTHEN BAS * STRUCT_CMDS -___ ___ ON BAS -___ ___ ONERR BAS -___ ___ ONERRLBL BAS * STRUCT_CMDS -___ ___ ONGOSUB BAS -___ ___ OPENTEST BAS -___ ___ OPTION BAS -___ ___ PUTGET BAS * KILL: IMPLEMENTATION-SPECIFIC -___ ___ RANDOM BAS -___ ___ SELCASE BAS * STRUCT_CMDS -___ ___ SNGLFUNC BAS -___ ___ STOP BAS -___ ___ TERM BAS -___ ___ WHILWEND BAS -___ ___ WIDTH BAS -___ ___ WRITEINP BAS - diff --git a/bwbtest/B93/input.INP b/bwbtest/B93/input.INP deleted file mode 100644 index 7e00f52..0000000 --- a/bwbtest/B93/input.INP +++ /dev/null @@ -1 +0,0 @@ -abc,123 diff --git a/bwbtest/B93/input.run b/bwbtest/B93/input.run deleted file mode 100644 index 95e528d..0000000 --- a/bwbtest/B93/input.run +++ /dev/null @@ -1,4 +0,0 @@ -INPUT.BAS -- Test INPUT Statement -Input string, number: ? abc,123 -The string is: abc -The number is: 123 diff --git a/bwbtest/B93/lof.INP b/bwbtest/B93/lof.INP deleted file mode 100644 index 7e1bde0..0000000 --- a/bwbtest/B93/lof.INP +++ /dev/null @@ -1 +0,0 @@ -lof.bas diff --git a/bwbtest/B93/lof.run b/bwbtest/B93/lof.run deleted file mode 100644 index 1fcc4fa..0000000 --- a/bwbtest/B93/lof.run +++ /dev/null @@ -1,3 +0,0 @@ -Test LOF() Function -Filename? lof.bas -Length of file lof.bas is 142 bytes diff --git a/bwbtest/B93/loopuntl.run b/bwbtest/B93/loopuntl.run deleted file mode 100644 index 255bc69..0000000 --- a/bwbtest/B93/loopuntl.run +++ /dev/null @@ -1,13 +0,0 @@ -Value of i is 1 -Value of i is 2 -Value of i is 3 -Value of i is 4 -Value of i is 5 -Value of i is 6 -Value of i is 7 -Value of i is 8 -Value of i is 9 -Value of i is 10 -Value of i is 11 -Value of i is 12 -Value of i is 13 diff --git a/bwbtest/B93/main.bas b/bwbtest/B93/main.bas deleted file mode 100644 index 0c7f72e..0000000 --- a/bwbtest/B93/main.bas +++ /dev/null @@ -1,18 +0,0 @@ - -Sub Prior - Print "This is a subroutine prior to MAIN." - Print "This should not print." -End Sub - -Sub Main - Print "This is the MAIN subroutine." - Print "This should print." -End Sub - -Sub Subsequent - Print "This is a subroutine subsequent to MAIN." - Print "This should not print." -End Sub - -REM bwBASIC 3.20 does not automatically call SUB MAIN -main diff --git a/bwbtest/B93/main.run b/bwbtest/B93/main.run deleted file mode 100644 index fc4edc9..0000000 --- a/bwbtest/B93/main.run +++ /dev/null @@ -1,2 +0,0 @@ -This is the MAIN subroutine. -This should print. diff --git a/bwbtest/B93/mlifthen.run b/bwbtest/B93/mlifthen.run deleted file mode 100644 index b153c40..0000000 --- a/bwbtest/B93/mlifthen.run +++ /dev/null @@ -1,4 +0,0 @@ -MLIFTHEN.BAS -- Test MultiLine IF-THEN-ELSE Constructions -The condition is false. -And it still is false. -This concludes our test. diff --git a/bwbtest/B93/on.INP b/bwbtest/B93/on.INP deleted file mode 100644 index 7ed6ff8..0000000 --- a/bwbtest/B93/on.INP +++ /dev/null @@ -1 +0,0 @@ -5 diff --git a/bwbtest/B93/on.run b/bwbtest/B93/on.run deleted file mode 100644 index 778dcd6..0000000 --- a/bwbtest/B93/on.run +++ /dev/null @@ -1,3 +0,0 @@ -ON.BAS -- Test ON...GOTO Statement -Enter a number 1-5:? 5 -You entered 5 diff --git a/bwbtest/B93/onerr.run b/bwbtest/B93/onerr.run deleted file mode 100644 index d0419fd..0000000 --- a/bwbtest/B93/onerr.run +++ /dev/null @@ -1,6 +0,0 @@ -Test bwBASIC ON ERROR GOSUB statement -The next line will include an error -This is the error handler -The error number is 13 -The error line is 50 -This is the line after the error diff --git a/bwbtest/B93/onerrlbl.run b/bwbtest/B93/onerrlbl.run deleted file mode 100644 index acc9477..0000000 --- a/bwbtest/B93/onerrlbl.run +++ /dev/null @@ -1,6 +0,0 @@ -Test bwBASIC ON ERROR GOSUB statement -The next line will include an error -This is the error handler -The error number is 13 -The error line is 5 -This is the line after the error diff --git a/bwbtest/B93/ongosub.INP b/bwbtest/B93/ongosub.INP deleted file mode 100644 index 7ed6ff8..0000000 --- a/bwbtest/B93/ongosub.INP +++ /dev/null @@ -1 +0,0 @@ -5 diff --git a/bwbtest/B93/ongosub.run b/bwbtest/B93/ongosub.run deleted file mode 100644 index 66af63b..0000000 --- a/bwbtest/B93/ongosub.run +++ /dev/null @@ -1,4 +0,0 @@ -ONGOSUB.BAS -- Test ON..GOSUB Statement -Enter a number 1-5? 5 -You entered 5 -The End diff --git a/bwbtest/B93/opentest.run b/bwbtest/B93/opentest.run deleted file mode 100644 index 05008fe..0000000 --- a/bwbtest/B93/opentest.run +++ /dev/null @@ -1,4 +0,0 @@ -OPENTEST.BAS -- Test OPEN, PRINT#, LINE INPUT#, and CLOSE -Read from file: ->This is line 1. ->This is line 2. diff --git a/bwbtest/B93/option.run b/bwbtest/B93/option.run deleted file mode 100644 index 5d64184..0000000 --- a/bwbtest/B93/option.run +++ /dev/null @@ -1,6 +0,0 @@ -OPTION.BAS -- Test OPTION BASE Statement -The value at position 1 is 3 -The value at position 2 is 4 -The value at position 3 is 5 -The value at position 4 is 6 -The value at position 5 is 7 diff --git a/bwbtest/B93/pascaltr.run b/bwbtest/B93/pascaltr.run deleted file mode 100644 index 3e69331..0000000 --- a/bwbtest/B93/pascaltr.run +++ /dev/null @@ -1,14 +0,0 @@ - 0 : 1 - 1 : 1 1 - 2 : 1 2 1 - 3 : 1 3 3 1 - 4 : 1 4 6 4 1 - 5 : 1 5 10 10 5 1 - 6 : 1 6 15 20 15 6 1 - 7 : 1 7 21 35 35 21 7 1 - 8 : 1 8 28 56 70 56 28 8 1 - 9 : 1 9 36 84 126 126 84 36 9 1 - 10 : 1 10 45 120 210 252 210 120 45 10 1 - 11 : 1 11 55 165 330 462 462 330 165 55 11 1 - 12 : 1 12 66 220 495 792 924 792 495 220 66 12 1 - 13 : 1 13 78 286 715 1287 1716 1716 1287 715 286 78 13 1 diff --git a/bwbtest/B93/putget.INP b/bwbtest/B93/putget.INP deleted file mode 100644 index 2f51905..0000000 --- a/bwbtest/B93/putget.INP +++ /dev/null @@ -1,6 +0,0 @@ -abc -123 main -111-222-3333 -xyz -987 any street -999-888-7777 diff --git a/bwbtest/B93/putget.run b/bwbtest/B93/putget.run deleted file mode 100644 index 8c8335a..0000000 --- a/bwbtest/B93/putget.run +++ /dev/null @@ -1,8 +0,0 @@ -name: abc -address: 123 main -phone: 111-222-3333 -name: xyz -address: 987 any street -phone: 999-888-7777 -abc 123 main 111-222- -xyz 987 any street 999-888- diff --git a/bwbtest/B93/random.run b/bwbtest/B93/random.run deleted file mode 100644 index 40a1a81..0000000 --- a/bwbtest/B93/random.run +++ /dev/null @@ -1,10 +0,0 @@ -This is a first sequence of three RND numbers: - .10793 - .109362 - .531097 -This is a second sequence of three RND numbers: - .782371 - .79199 - .823117 -The second sequence should have been differrent -from the first. diff --git a/bwbtest/B93/selcase.run b/bwbtest/B93/selcase.run deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/B93/snglfunc.run b/bwbtest/B93/snglfunc.run deleted file mode 100644 index 4e2f96c..0000000 --- a/bwbtest/B93/snglfunc.run +++ /dev/null @@ -1,5 +0,0 @@ -SnglFunc.BAS -- Test Single-Line User-defined Function Statement - - -The sum of 6 and 4 is 10 -Did it work properly? diff --git a/bwbtest/B93/stop.run b/bwbtest/B93/stop.run deleted file mode 100644 index 838ba4c..0000000 --- a/bwbtest/B93/stop.run +++ /dev/null @@ -1,4 +0,0 @@ -STOP.BAS -- Test STOP Statement -If the program is interrupted after this line, STOP worked OK - -Program interrupted at line 40 diff --git a/bwbtest/B93/term.INP b/bwbtest/B93/term.INP deleted file mode 100644 index 8baef1b..0000000 --- a/bwbtest/B93/term.INP +++ /dev/null @@ -1 +0,0 @@ -abc diff --git a/bwbtest/B93/term.run b/bwbtest/B93/term.run deleted file mode 100644 index e49fe2d..0000000 --- a/bwbtest/B93/term.run +++ /dev/null @@ -1,2 +0,0 @@ - [2J Bywater BASIC -? abc diff --git a/bwbtest/B93/test.out b/bwbtest/B93/test.out deleted file mode 100644 index f9d10fb..0000000 --- a/bwbtest/B93/test.out +++ /dev/null @@ -1,2 +0,0 @@ -This is line 1. -This is line 2. diff --git a/bwbtest/B93/whilwend.run b/bwbtest/B93/whilwend.run deleted file mode 100644 index 90353ba..0000000 --- a/bwbtest/B93/whilwend.run +++ /dev/null @@ -1,77 +0,0 @@ -START -x is 0 -y is 0 -y is 1 -x is 1 -y is 0 -y is 1 -x is 2 -y is 0 -y is 1 -x is 3 -y is 0 -y is 1 -x is 4 -y is 0 -y is 1 -x is 5 -y is 0 -y is 1 -x is 6 -y is 0 -y is 1 -x is 7 -y is 0 -y is 1 -x is 8 -y is 0 -y is 1 -x is 9 -y is 0 -y is 1 -x is 10 -y is 0 -y is 1 -x is 11 -y is 0 -y is 1 -x is 12 -y is 0 -y is 1 -x is 13 -y is 0 -y is 1 -x is 14 -y is 0 -y is 1 -x is 15 -y is 0 -y is 1 -x is 16 -y is 0 -y is 1 -x is 17 -y is 0 -y is 1 -x is 18 -y is 0 -y is 1 -x is 19 -y is 0 -y is 1 -x is 20 -y is 0 -y is 1 -x is 21 -y is 0 -y is 1 -x is 22 -y is 0 -y is 1 -x is 23 -y is 0 -y is 1 -x is 24 -y is 0 -y is 1 -END diff --git a/bwbtest/B93/width.run b/bwbtest/B93/width.run deleted file mode 100644 index 4476b6e..0000000 --- a/bwbtest/B93/width.run +++ /dev/null @@ -1 +0,0 @@ -Check file to see if the printing wrapped at col 35 diff --git a/bwbtest/B93/writeinp.run b/bwbtest/B93/writeinp.run deleted file mode 100644 index 5e42a4f..0000000 --- a/bwbtest/B93/writeinp.run +++ /dev/null @@ -1,6 +0,0 @@ -WRITEINP.BAS -- Test WRITE # and INPUT # Statements -This is what was written: -"String 1",1.12346,"String 2",2.23457,"String 3",3.34568 -This is what was read: -"String 1",1.12346,"String 2",2.23457,"String 3",3.34568 -End of WRITEINP.BAS diff --git a/bwbtest/C77A/00test.sh b/bwbtest/C77A/00test.sh deleted file mode 100644 index 3281d19..0000000 --- a/bwbtest/C77A/00test.sh +++ /dev/null @@ -1,71 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif -rm *.TXT - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile C77.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- - -testcase FILE_1 -testcase FILE_2 -testcase FILE_3 -testcase FILE_4 -testcase FILE_5 -testcase FILE_6 -testcase QUOTE_1 -testcase QUOTE_2 -testcase QUOTE_3 -testcase INPUT_1 -testcase CONSOLE_1 -testcase LPRINTER_1 -testcase CREATE_1 -testcase CREATE_2 -testcase IF_END_1 -testcase IF_END_2 -testcase RETURN_1 -testcase RETURN_2 -testcase RETURN_3 -testcase DELETE_1 -testcase MATCH_1 -testcase USING_1 -testcase READ_1 -testcase READ_2 -testcase EX_1 -testcase EX_2 -testcase EX_3 -testcase EX_4 -testcase SIZE_1 - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/C77A/01test.sh b/bwbtest/C77A/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/C77A/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/C77A/02ok.sh b/bwbtest/C77A/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/C77A/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/C77A/99test.sh b/bwbtest/C77A/99test.sh deleted file mode 100644 index 3b7101d..0000000 --- a/bwbtest/C77A/99test.sh +++ /dev/null @@ -1,18 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif -rm *.TXT - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/C77A/C77.PRO b/bwbtest/C77A/C77.PRO deleted file mode 100644 index f272d01..0000000 --- a/bwbtest/C77A/C77.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "CBASIC-II" diff --git a/bwbtest/C77A/CONSOLE_1.BAS b/bwbtest/C77A/CONSOLE_1.BAS deleted file mode 100644 index e277037..0000000 --- a/bwbtest/C77A/CONSOLE_1.BAS +++ /dev/null @@ -1,15 +0,0 @@ -100 REM Purpose: Verify CONSOLE command -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-22 -130 REM -200 REM The following string is 70 characters long -210 LET A$ = "....+....|....+....|....+....|....+....|....+....|....+....|....+....|" -300 CONSOLE -310 PRINT A$ -320 CONSOLE WIDTH 70 -330 PRINT A$ -340 CONSOLE WIDTH 40 -350 PRINT A$ -360 CONSOLE WIDTH 80 -370 PRINT A$ -999 END diff --git a/bwbtest/C77A/CONSOLE_1.run b/bwbtest/C77A/CONSOLE_1.run deleted file mode 100644 index 323819f..0000000 --- a/bwbtest/C77A/CONSOLE_1.run +++ /dev/null @@ -1,6 +0,0 @@ -....+....|....+....|....+....|....+....|....+....|....+....|....+....| -....+....|....+....|....+....|....+....|....+....|....+....|....+....| - -....+....|....+....|....+....|....+....| -....+....|....+....|....+....| -....+....|....+....|....+....|....+....|....+....|....+....|....+....| diff --git a/bwbtest/C77A/CREATE_1.BAS b/bwbtest/C77A/CREATE_1.BAS deleted file mode 100644 index 8563744..0000000 --- a/bwbtest/C77A/CREATE_1.BAS +++ /dev/null @@ -1,18 +0,0 @@ -100 REM Purpose: Verify CREATE command -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM -200 CREATE "CREATE_1.TXT" AS 777 -210 FOR I = 1 TO 10 -220 LET A$ = "THIS IS LINE " + STR$(I) -230 PRINT # 777; A$ -240 NEXT I -250 CLOSE 777 -300 OPEN "CREATE_1.TXT" AS 333 -310 FOR I = 1 TO 10 -320 READ # 333; B$ -330 PRINT B$ -340 NEXT I -350 CLOSE 333 -999 END - diff --git a/bwbtest/C77A/CREATE_1.run b/bwbtest/C77A/CREATE_1.run deleted file mode 100644 index 45ea093..0000000 --- a/bwbtest/C77A/CREATE_1.run +++ /dev/null @@ -1,10 +0,0 @@ -THIS IS LINE 1 -THIS IS LINE 2 -THIS IS LINE 3 -THIS IS LINE 4 -THIS IS LINE 5 -THIS IS LINE 6 -THIS IS LINE 7 -THIS IS LINE 8 -THIS IS LINE 9 -THIS IS LINE 10 diff --git a/bwbtest/C77A/CREATE_2.BAS b/bwbtest/C77A/CREATE_2.BAS deleted file mode 100644 index f897e9f..0000000 --- a/bwbtest/C77A/CREATE_2.BAS +++ /dev/null @@ -1,19 +0,0 @@ -100 REM Purpose: Verify CREATE command -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM - -200 CREATE "CREATE_2.TXT" RECL 64 AS 777 -210 FOR I = 10 TO 1 STEP -1 -220 LET A$ = "THIS IS LINE " + STR$(I) -230 PRINT # 777, I; A$ -240 NEXT I -250 CLOSE 777 -300 OPEN "CREATE_2.TXT" RECL 64 AS 333 -310 FOR I = 10 TO 1 STEP -1 -320 READ # 333, I; B$ -330 PRINT B$ -340 NEXT I -350 CLOSE 333 -999 END - diff --git a/bwbtest/C77A/CREATE_2.run b/bwbtest/C77A/CREATE_2.run deleted file mode 100644 index 61e8d70..0000000 --- a/bwbtest/C77A/CREATE_2.run +++ /dev/null @@ -1,10 +0,0 @@ -THIS IS LINE 10 -THIS IS LINE 9 -THIS IS LINE 8 -THIS IS LINE 7 -THIS IS LINE 6 -THIS IS LINE 5 -THIS IS LINE 4 -THIS IS LINE 3 -THIS IS LINE 2 -THIS IS LINE 1 diff --git a/bwbtest/C77A/DELETE_1.BAS b/bwbtest/C77A/DELETE_1.BAS deleted file mode 100644 index 6dea688..0000000 --- a/bwbtest/C77A/DELETE_1.BAS +++ /dev/null @@ -1,16 +0,0 @@ -100 REM Purpose: Verify CREATE command -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM -200 CREATE "DELETE_1.TXT" AS 777 -210 FOR I = 1 TO 10 -220 LET A$ = "THIS IS LINE " + STR$(I) -230 PRINT # 777; A$ -240 NEXT I -250 DELETE 777 -300 IF END 333 THEN 500 -310 OPEN "DELETE_1.TXT" AS 333 -320 PRINT "TEST FAILED - FILE NOT DELETED" -330 GOTO 999 -500 PRINT "TEST PASSED" -999 END diff --git a/bwbtest/C77A/DELETE_1.run b/bwbtest/C77A/DELETE_1.run deleted file mode 100644 index 113ce39..0000000 --- a/bwbtest/C77A/DELETE_1.run +++ /dev/null @@ -1 +0,0 @@ -TEST PASSED diff --git a/bwbtest/C77A/EX_1.BAS b/bwbtest/C77A/EX_1.BAS deleted file mode 100644 index bc73d58..0000000 --- a/bwbtest/C77A/EX_1.BAS +++ /dev/null @@ -1,14 +0,0 @@ -REM Purpose: Verify example program -REM Refer: -REM Page: 3 -REM - - -PRINT -FOR I% = 1 TO 10 -PRINT I%; "TESTING CBASIC!" -NEXT I% -PRINT -PRINT "FINISHED" -END - \ No newline at end of file diff --git a/bwbtest/C77A/EX_1.run b/bwbtest/C77A/EX_1.run deleted file mode 100644 index dce276f..0000000 --- a/bwbtest/C77A/EX_1.run +++ /dev/null @@ -1,13 +0,0 @@ - - 1 TESTING CBASIC! - 2 TESTING CBASIC! - 3 TESTING CBASIC! - 4 TESTING CBASIC! - 5 TESTING CBASIC! - 6 TESTING CBASIC! - 7 TESTING CBASIC! - 8 TESTING CBASIC! - 9 TESTING CBASIC! - 10 TESTING CBASIC! - -FINISHED diff --git a/bwbtest/C77A/EX_2.BAS b/bwbtest/C77A/EX_2.BAS deleted file mode 100644 index 74ac069..0000000 --- a/bwbtest/C77A/EX_2.BAS +++ /dev/null @@ -1,22 +0,0 @@ -REM Purpose: Verify exmple program -REM Refer: -REM Page: 6 -REM - -LET A$ = """Hello,"" said Tom." -PRINT "[";A$;"]" - -LET A$ = "July 4, 1778" -PRINT "[";A$;"]" - -LET A$ = "Enter your naMe please:" -PRINT "[";A$;"]" - -LET A$ = """\"" has no special Meanin!f inside a string." -PRINT "[";A$;"]" - -LET A$ = "" -PRINT "[";A$;"]" - -END - diff --git a/bwbtest/C77A/EX_2.run b/bwbtest/C77A/EX_2.run deleted file mode 100644 index 9c70324..0000000 --- a/bwbtest/C77A/EX_2.run +++ /dev/null @@ -1,5 +0,0 @@ -["Hello," said Tom.] -[July 4, 1778] -[Enter your naMe please:] -["\" has no special Meanin!f inside a string.] -[] diff --git a/bwbtest/C77A/EX_3.BAS b/bwbtest/C77A/EX_3.BAS deleted file mode 100644 index dae97a2..0000000 --- a/bwbtest/C77A/EX_3.BAS +++ /dev/null @@ -1,56 +0,0 @@ -REM Purpose: Verify example program -REM Refer: -REM Page: 7 -REM - - -LET X = 1 -PRINT X - -LET X = 1.0 -PRINT X - -LET X = -88 -PRINT X - -LET X = 123458.788 -PRINT X - -LET X = 1.883 -PRINT X - -LET X = .01 -PRINT X - -LET X = 11E12 -PRINT X - -LET X = 1.77E-8 -PRINT X - -LET X = 1.5E+3 -PRINT X - -LET X = 1500 -PRINT X - -LET X = 1.5E-3 -PRINT X - -LET X = .0015 -PRINT X - -REM LET I% = 1abOH -LET I% = &h1ab0 -PRINT I% - -REM LET I% = 10111110B -LET I% = &hDE -PRINT I% - -REM LET I% = 07FFFH -LET I% = &h07FFF -PRINT I% - - -END diff --git a/bwbtest/C77A/EX_3.run b/bwbtest/C77A/EX_3.run deleted file mode 100644 index 98601e4..0000000 --- a/bwbtest/C77A/EX_3.run +++ /dev/null @@ -1,15 +0,0 @@ - 1 - 1 --88 - 123459. - 1.883 - .01 - 1.1E+13 - 1.77E-8 - 1500 - 1500 - .0015 - .0015 - 6832 - 222 - 32767 diff --git a/bwbtest/C77A/EX_4.BAS b/bwbtest/C77A/EX_4.BAS deleted file mode 100644 index 5162069..0000000 --- a/bwbtest/C77A/EX_4.BAS +++ /dev/null @@ -1,23 +0,0 @@ -REM Purpose: Verify example program -REM Refer: -REM Page: 11 -REM - - -PRINT 12 AND 3 -PRINT &HC AND &H5 -PRINT NOT -1 -PRINT NOT &H3 -PRINT 12 OR 3 -PRINT &H0C OR &H5 - -LET I% = 12.11 -LET J% = 3.2 -PRINT I% XOR J% - -LET I% = 12.11 -LET J% = 3.7 -PRINT I% XOR J% - - -END diff --git a/bwbtest/C77A/EX_4.run b/bwbtest/C77A/EX_4.run deleted file mode 100644 index 43a17e5..0000000 --- a/bwbtest/C77A/EX_4.run +++ /dev/null @@ -1,8 +0,0 @@ - 0 - 4 - 0 --4 - 15 - 13 - 15 - 8 diff --git a/bwbtest/C77A/FILE_1.BAS b/bwbtest/C77A/FILE_1.BAS deleted file mode 100644 index 539def5..0000000 --- a/bwbtest/C77A/FILE_1.BAS +++ /dev/null @@ -1,50 +0,0 @@ - 100 rem Purpose: verify the FILE command - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-12-20 - 130 rem Note: OPTION VERSION CBASIC-II - 140 rem - 200 RESTORE - : LET A$ = "FILE.TXT" - 210 PRINT "ABOUT TO OPEN FILE" - : FILE A$(64) - : PRINT "FILE WAS OPENED" - 230 READ B,B$ - : IF B = 0 OR B$ = "ZZZ" GOTO 250 - : LET B$ = "THIS IS THE " + B$ + " RECORD" - : PRINT #1, B; B$ - : GOTO 230 - 250 PRINT "ABOUT TO CLOSE FILE" - : CLOSE 1 - : PRINT "FILE WAS CLOSED" - 260 PRINT "ABOUT TO OPEN FILE" - : FILE A$(64) - : PRINT "FILE WAS OPENED" - 270 FOR I = 1 TO 9 - : READ #2, I; B$ - : PRINT B$ - : NEXT I - 300 FOR I = 9 TO 1 STEP -1 - : READ #2, I; B$ - : PRINT B$ - : NEXT I - 310 READ #2, 1 ; - 320 FOR I = 1 TO 9 - : READ #2 ; B$ - : PRINT B$ - : NEXT I - 330 PRINT "ABOUT TO CLOSE FILE" - : CLOSE 2 - : PRINT "FILE WAS CLOSED" - 800 REM quasi-random order - 810 DATA 7,7th - 820 DATA 2,2nd - 830 DATA 9,9th - 840 DATA 4,4th - 850 DATA 6,6th - 860 DATA 1,1st - 870 DATA 5,5th - 880 DATA 3,3rd - 890 DATA 8,8th - 900 DATA 0,ZZZ - 999 END - diff --git a/bwbtest/C77A/FILE_1.run b/bwbtest/C77A/FILE_1.run deleted file mode 100644 index 99c8edd..0000000 --- a/bwbtest/C77A/FILE_1.run +++ /dev/null @@ -1,35 +0,0 @@ -ABOUT TO OPEN FILE -FILE WAS OPENED -ABOUT TO CLOSE FILE -FILE WAS CLOSED -ABOUT TO OPEN FILE -FILE WAS OPENED -THIS IS THE 1st RECORD -THIS IS THE 2nd RECORD -THIS IS THE 3rd RECORD -THIS IS THE 4th RECORD -THIS IS THE 5th RECORD -THIS IS THE 6th RECORD -THIS IS THE 7th RECORD -THIS IS THE 8th RECORD -THIS IS THE 9th RECORD -THIS IS THE 9th RECORD -THIS IS THE 8th RECORD -THIS IS THE 7th RECORD -THIS IS THE 6th RECORD -THIS IS THE 5th RECORD -THIS IS THE 4th RECORD -THIS IS THE 3rd RECORD -THIS IS THE 2nd RECORD -THIS IS THE 1st RECORD -THIS IS THE 1st RECORD -THIS IS THE 2nd RECORD -THIS IS THE 3rd RECORD -THIS IS THE 4th RECORD -THIS IS THE 5th RECORD -THIS IS THE 6th RECORD -THIS IS THE 7th RECORD -THIS IS THE 8th RECORD -THIS IS THE 9th RECORD -ABOUT TO CLOSE FILE -FILE WAS CLOSED diff --git a/bwbtest/C77A/FILE_2.BAS b/bwbtest/C77A/FILE_2.BAS deleted file mode 100644 index ea916b4..0000000 --- a/bwbtest/C77A/FILE_2.BAS +++ /dev/null @@ -1,42 +0,0 @@ - 100 rem Purpose: verify the FILE command - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-12-20 - 130 rem Note: OPTION VERSION CBASIC-II - 140 rem - 200 RESTORE - : LET A$ = "FILE.TXT" - 210 PRINT "ABOUT TO OPEN FILE" - : FILE A$(64) - : PRINT "FILE WAS OPENED" - 230 READ B,B$ - : IF B = 0 OR B$ = "ZZZ" GOTO 250 - : LET B$ = "THIS IS THE " + B$ + " RECORD" - : PRINT #1, B; B$ - : GOTO 230 - 250 REM - 270 FOR I = 1 TO 9 - : READ #1, I; B$ - : PRINT B$ - : NEXT I - 300 FOR I = 9 TO 1 STEP -1 - : READ #1, I; B$ - : PRINT B$ - : NEXT I - 310 READ #1, 1 ; - 320 FOR I = 1 TO 9 - : READ #1 ; B$ - : PRINT B$ - : NEXT I - 800 REM quasi-random order - 810 DATA 7,7th - 820 DATA 2,2nd - 830 DATA 9,9th - 840 DATA 4,4th - 850 DATA 6,6th - 860 DATA 1,1st - 870 DATA 5,5th - 880 DATA 3,3rd - 890 DATA 8,8th - 900 DATA 0,ZZZ - 999 END - diff --git a/bwbtest/C77A/FILE_2.run b/bwbtest/C77A/FILE_2.run deleted file mode 100644 index 343191d..0000000 --- a/bwbtest/C77A/FILE_2.run +++ /dev/null @@ -1,29 +0,0 @@ -ABOUT TO OPEN FILE -FILE WAS OPENED -THIS IS THE 1st RECORD -THIS IS THE 2nd RECORD -THIS IS THE 3rd RECORD -THIS IS THE 4th RECORD -THIS IS THE 5th RECORD -THIS IS THE 6th RECORD -THIS IS THE 7th RECORD -THIS IS THE 8th RECORD -THIS IS THE 9th RECORD -THIS IS THE 9th RECORD -THIS IS THE 8th RECORD -THIS IS THE 7th RECORD -THIS IS THE 6th RECORD -THIS IS THE 5th RECORD -THIS IS THE 4th RECORD -THIS IS THE 3rd RECORD -THIS IS THE 2nd RECORD -THIS IS THE 1st RECORD -THIS IS THE 1st RECORD -THIS IS THE 2nd RECORD -THIS IS THE 3rd RECORD -THIS IS THE 4th RECORD -THIS IS THE 5th RECORD -THIS IS THE 6th RECORD -THIS IS THE 7th RECORD -THIS IS THE 8th RECORD -THIS IS THE 9th RECORD diff --git a/bwbtest/C77A/FILE_3.BAS b/bwbtest/C77A/FILE_3.BAS deleted file mode 100644 index e9c3758..0000000 --- a/bwbtest/C77A/FILE_3.BAS +++ /dev/null @@ -1,44 +0,0 @@ - 100 rem Purpose: verify the FILE command - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-12-20 - 130 rem Note: OPTION VERSION CBASIC-II - 140 rem - 200 RESTORE - : LET A$ = "FILE.TXT" - 210 PRINT "ABOUT TO OPEN FILE" - : FILE A$(64) - : PRINT "FILE WAS OPENED" - 230 READ B,B$ - : IF B = 0 OR B$ = "ZZZ" GOTO 250 - : LET B$ = "THIS IS THE " + B$ + " RECORD" - : LET C = B - : LET D = 10 - C - : PRINT #1, B; B$,C,D - : GOTO 230 - 250 REM - 270 FOR I = 1 TO 9 - : READ #1, I; B$,C,D - : PRINT B$,C,D - : NEXT I - 300 FOR I = 9 TO 1 STEP -1 - : READ #1, I; B$,C,D - : PRINT B$,C,D - : NEXT I - 310 READ #1, 1 ; - 320 FOR I = 1 TO 9 - : READ #1 ; B$,C,D - : PRINT B$,C,D - : NEXT I - 800 REM quasi-random order - 810 DATA 7,7th - 820 DATA 2,2nd - 830 DATA 9,9th - 840 DATA 4,4th - 850 DATA 6,6th - 860 DATA 1,1st - 870 DATA 5,5th - 880 DATA 3,3rd - 890 DATA 8,8th - 900 DATA 0,ZZZ - 999 END - diff --git a/bwbtest/C77A/FILE_3.run b/bwbtest/C77A/FILE_3.run deleted file mode 100644 index 76c2f52..0000000 --- a/bwbtest/C77A/FILE_3.run +++ /dev/null @@ -1,29 +0,0 @@ -ABOUT TO OPEN FILE -FILE WAS OPENED -THIS IS THE 1st RECORD 1 9 -THIS IS THE 2nd RECORD 2 8 -THIS IS THE 3rd RECORD 3 7 -THIS IS THE 4th RECORD 4 6 -THIS IS THE 5th RECORD 5 5 -THIS IS THE 6th RECORD 6 4 -THIS IS THE 7th RECORD 7 3 -THIS IS THE 8th RECORD 8 2 -THIS IS THE 9th RECORD 9 1 -THIS IS THE 9th RECORD 9 1 -THIS IS THE 8th RECORD 8 2 -THIS IS THE 7th RECORD 7 3 -THIS IS THE 6th RECORD 6 4 -THIS IS THE 5th RECORD 5 5 -THIS IS THE 4th RECORD 4 6 -THIS IS THE 3rd RECORD 3 7 -THIS IS THE 2nd RECORD 2 8 -THIS IS THE 1st RECORD 1 9 -THIS IS THE 1st RECORD 1 9 -THIS IS THE 2nd RECORD 2 8 -THIS IS THE 3rd RECORD 3 7 -THIS IS THE 4th RECORD 4 6 -THIS IS THE 5th RECORD 5 5 -THIS IS THE 6th RECORD 6 4 -THIS IS THE 7th RECORD 7 3 -THIS IS THE 8th RECORD 8 2 -THIS IS THE 9th RECORD 9 1 diff --git a/bwbtest/C77A/FILE_4.BAS b/bwbtest/C77A/FILE_4.BAS deleted file mode 100644 index 33f158c..0000000 --- a/bwbtest/C77A/FILE_4.BAS +++ /dev/null @@ -1,45 +0,0 @@ - 100 rem Purpose: verify the FILE command - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-12-20 - 130 rem Note: OPTION VERSION CBASIC-II - 140 rem - 200 RESTORE - : LET A$ = "FILE.TXT" - 210 PRINT "ABOUT TO OPEN FILE" - : FILE A$(64) - : PRINT "FILE WAS OPENED" - 230 READ B,B$ - : IF B = 0 OR B$ = "ZZZ" GOTO 250 - : LET B$ = "THIS IS THE "+B$+" RECORD" - : LET C = B - : LET D = 10 - C - : LET E$ = "NOT " + STR$(D) - : PRINT #1, B; B$,C,D,E$ - : GOTO 230 - 250 REM - 270 FOR I = 1 TO 9 - : READ #1, I; B$,C,D,E$ - : PRINT B$,C,D,E$ - : NEXT I - 300 FOR I = 9 TO 1 STEP -1 - : READ #1, I; B$,C,D,E$ - : PRINT B$,C,D,E$ - : NEXT I - 310 READ #1, 1 ; - 320 FOR I = 1 TO 9 - : READ #1 ; B$,C,D,E$ - : PRINT B$,C,D,E$ - : NEXT I - 800 REM quasi-random order - 810 DATA 7,7th - 820 DATA 2,2nd - 830 DATA 9,9th - 840 DATA 4,4th - 850 DATA 6,6th - 860 DATA 1,1st - 870 DATA 5,5th - 880 DATA 3,3rd - 890 DATA 8,8th - 900 DATA 0,ZZZ - 999 END - diff --git a/bwbtest/C77A/FILE_4.run b/bwbtest/C77A/FILE_4.run deleted file mode 100644 index 68a7494..0000000 --- a/bwbtest/C77A/FILE_4.run +++ /dev/null @@ -1,29 +0,0 @@ -ABOUT TO OPEN FILE -FILE WAS OPENED -THIS IS THE 1st RECORD 1 9 NOT 9 -THIS IS THE 2nd RECORD 2 8 NOT 8 -THIS IS THE 3rd RECORD 3 7 NOT 7 -THIS IS THE 4th RECORD 4 6 NOT 6 -THIS IS THE 5th RECORD 5 5 NOT 5 -THIS IS THE 6th RECORD 6 4 NOT 4 -THIS IS THE 7th RECORD 7 3 NOT 3 -THIS IS THE 8th RECORD 8 2 NOT 2 -THIS IS THE 9th RECORD 9 1 NOT 1 -THIS IS THE 9th RECORD 9 1 NOT 1 -THIS IS THE 8th RECORD 8 2 NOT 2 -THIS IS THE 7th RECORD 7 3 NOT 3 -THIS IS THE 6th RECORD 6 4 NOT 4 -THIS IS THE 5th RECORD 5 5 NOT 5 -THIS IS THE 4th RECORD 4 6 NOT 6 -THIS IS THE 3rd RECORD 3 7 NOT 7 -THIS IS THE 2nd RECORD 2 8 NOT 8 -THIS IS THE 1st RECORD 1 9 NOT 9 -THIS IS THE 1st RECORD 1 9 NOT 9 -THIS IS THE 2nd RECORD 2 8 NOT 8 -THIS IS THE 3rd RECORD 3 7 NOT 7 -THIS IS THE 4th RECORD 4 6 NOT 6 -THIS IS THE 5th RECORD 5 5 NOT 5 -THIS IS THE 6th RECORD 6 4 NOT 4 -THIS IS THE 7th RECORD 7 3 NOT 3 -THIS IS THE 8th RECORD 8 2 NOT 2 -THIS IS THE 9th RECORD 9 1 NOT 1 diff --git a/bwbtest/C77A/FILE_5.BAS b/bwbtest/C77A/FILE_5.BAS deleted file mode 100644 index bf81f6c..0000000 --- a/bwbtest/C77A/FILE_5.BAS +++ /dev/null @@ -1,47 +0,0 @@ - 100 rem Purpose: verify the FILE command - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-12-20 - 130 rem Note: OPTION VERSION CBASIC-II - 140 rem - 200 RESTORE - : LET A$ = "FILE.TXT" - 210 PRINT "ABOUT TO OPEN FILE" - : FILE A$(64) - : PRINT "FILE WAS OPENED" - 230 READ B,B$ - : IF B = 0 OR B$ = "ZZZ" GOTO 250 - : LET B$ = "THIS IS THE "+B$+" RECORD" - : LET C = B - : LET D = 10 - C - : LET E$ = "NOT " + STR$(D) - : LET F$ = "*****" - : PRINT #1, B; B$,C,D,E$,F$ - : GOTO 230 - 250 REM test imcomplete RANDOM READ - 260 REM note F$ is not READ below - 270 FOR I = 1 TO 9 - : READ #1, I; B$,C,D,E$ - : PRINT B$,C,D,E$ - : NEXT I - 300 FOR I = 9 TO 1 STEP -1 - : READ #1, I; B$,C,D,E$ - : PRINT B$,C,D,E$ - : NEXT I - 310 READ #1, 1 ; - 320 FOR I = 1 TO 9 - : READ #1 ; B$,C,D,E$ - : PRINT B$,C,D,E$ - : NEXT I - 800 REM quasi-random order - 810 DATA 7,7th - 820 DATA 2,2nd - 830 DATA 9,9th - 840 DATA 4,4th - 850 DATA 6,6th - 860 DATA 1,1st - 870 DATA 5,5th - 880 DATA 3,3rd - 890 DATA 8,8th - 900 DATA 0,ZZZ - 999 END - diff --git a/bwbtest/C77A/FILE_5.run b/bwbtest/C77A/FILE_5.run deleted file mode 100644 index 68a7494..0000000 --- a/bwbtest/C77A/FILE_5.run +++ /dev/null @@ -1,29 +0,0 @@ -ABOUT TO OPEN FILE -FILE WAS OPENED -THIS IS THE 1st RECORD 1 9 NOT 9 -THIS IS THE 2nd RECORD 2 8 NOT 8 -THIS IS THE 3rd RECORD 3 7 NOT 7 -THIS IS THE 4th RECORD 4 6 NOT 6 -THIS IS THE 5th RECORD 5 5 NOT 5 -THIS IS THE 6th RECORD 6 4 NOT 4 -THIS IS THE 7th RECORD 7 3 NOT 3 -THIS IS THE 8th RECORD 8 2 NOT 2 -THIS IS THE 9th RECORD 9 1 NOT 1 -THIS IS THE 9th RECORD 9 1 NOT 1 -THIS IS THE 8th RECORD 8 2 NOT 2 -THIS IS THE 7th RECORD 7 3 NOT 3 -THIS IS THE 6th RECORD 6 4 NOT 4 -THIS IS THE 5th RECORD 5 5 NOT 5 -THIS IS THE 4th RECORD 4 6 NOT 6 -THIS IS THE 3rd RECORD 3 7 NOT 7 -THIS IS THE 2nd RECORD 2 8 NOT 8 -THIS IS THE 1st RECORD 1 9 NOT 9 -THIS IS THE 1st RECORD 1 9 NOT 9 -THIS IS THE 2nd RECORD 2 8 NOT 8 -THIS IS THE 3rd RECORD 3 7 NOT 7 -THIS IS THE 4th RECORD 4 6 NOT 6 -THIS IS THE 5th RECORD 5 5 NOT 5 -THIS IS THE 6th RECORD 6 4 NOT 4 -THIS IS THE 7th RECORD 7 3 NOT 3 -THIS IS THE 8th RECORD 8 2 NOT 2 -THIS IS THE 9th RECORD 9 1 NOT 1 diff --git a/bwbtest/C77A/FILE_6.BAS b/bwbtest/C77A/FILE_6.BAS deleted file mode 100644 index e2c2710..0000000 --- a/bwbtest/C77A/FILE_6.BAS +++ /dev/null @@ -1,34 +0,0 @@ - 100 rem Purpose: verify the FILE command - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-12-20 - 130 rem Note: OPTION VERSION CBASIC-II - 140 rem - 200 RESTORE - : LET A$ = "FILE.TXT" - 210 PRINT "ABOUT TO OPEN FILE" - : FILE A$(64) - : PRINT "FILE WAS OPENED" - 230 PRINT #1; "THIS IS THE 1st RECORD" - : PRINT #1; "THIS IS THE 2nd RECORD" - : PRINT #1; "THIS IS THE 3rd RECORD" - : PRINT #1; "THIS IS THE 4th RECORD" - : PRINT #1; "THIS IS THE 5th RECORD" - : PRINT #1; "THIS IS THE 6th RECORD" - : PRINT #1; "THIS IS THE 7th RECORD" - : PRINT #1; "THIS IS THE 8th RECORD" - : PRINT #1; "THIS IS THE 9th RECORD" - 270 FOR I = 1 TO 9 - : READ #1, I; B$ - : PRINT B$ - : NEXT I - 300 FOR I = 9 TO 1 STEP -1 - : READ #1, I; B$ - : PRINT B$ - : NEXT I - 310 READ #1, 1 ; - 320 FOR I = 1 TO 9 - : READ #1 ; B$ - : PRINT B$ - : NEXT I - 999 END - diff --git a/bwbtest/C77A/FILE_6.run b/bwbtest/C77A/FILE_6.run deleted file mode 100644 index 343191d..0000000 --- a/bwbtest/C77A/FILE_6.run +++ /dev/null @@ -1,29 +0,0 @@ -ABOUT TO OPEN FILE -FILE WAS OPENED -THIS IS THE 1st RECORD -THIS IS THE 2nd RECORD -THIS IS THE 3rd RECORD -THIS IS THE 4th RECORD -THIS IS THE 5th RECORD -THIS IS THE 6th RECORD -THIS IS THE 7th RECORD -THIS IS THE 8th RECORD -THIS IS THE 9th RECORD -THIS IS THE 9th RECORD -THIS IS THE 8th RECORD -THIS IS THE 7th RECORD -THIS IS THE 6th RECORD -THIS IS THE 5th RECORD -THIS IS THE 4th RECORD -THIS IS THE 3rd RECORD -THIS IS THE 2nd RECORD -THIS IS THE 1st RECORD -THIS IS THE 1st RECORD -THIS IS THE 2nd RECORD -THIS IS THE 3rd RECORD -THIS IS THE 4th RECORD -THIS IS THE 5th RECORD -THIS IS THE 6th RECORD -THIS IS THE 7th RECORD -THIS IS THE 8th RECORD -THIS IS THE 9th RECORD diff --git a/bwbtest/C77A/IF_END_1.BAS b/bwbtest/C77A/IF_END_1.BAS deleted file mode 100644 index 46ac562..0000000 --- a/bwbtest/C77A/IF_END_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ -100 REM Purpose: Verify IF END command -110 REM /Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM - -200 IF END # 777 THEN 500 -210 PRINT "ABOUT TO EXECUTE TEST" -220 OPEN "NO SUCH FILE" AS # 777 -230 PRINT "TEST FAILED - 'IF END' DID NOT EXECUTE" -240 GOTO 999 -500 PRINT "TEST PASSED" -999 END diff --git a/bwbtest/C77A/IF_END_1.run b/bwbtest/C77A/IF_END_1.run deleted file mode 100644 index b2ba5fa..0000000 --- a/bwbtest/C77A/IF_END_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ABOUT TO EXECUTE TEST -TEST PASSED diff --git a/bwbtest/C77A/IF_END_2.BAS b/bwbtest/C77A/IF_END_2.BAS deleted file mode 100644 index b87cd34..0000000 --- a/bwbtest/C77A/IF_END_2.BAS +++ /dev/null @@ -1,35 +0,0 @@ -100 REM Purpose: Verify IF END command -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM -200 REM ----------------------------------- -210 REM CREATE A FILE WITH 10 LINES -220 REM ----------------------------------- -230 CREATE "IF_END_2.TXT" AS 777 -240 FOR I = 1 TO 10 -250 LET A$ = "THIS IS LINE " + STR$(I) -260 PRINT # 777; A$ -270 NEXT I -280 CLOSE 777 -300 REM ----------------------------------- -310 REM READ ALL 10 LINES -320 REM ----------------------------------- -330 OPEN "IF_END_2.TXT" AS 333 -340 FOR I = 1 TO 10 -350 READ # 333; B$ -360 PRINT B$ -370 NEXT I -400 REM ----------------------------------- -410 REM THE NEXT READ SHOULD CAUSE BRANCH -420 REM ----------------------------------- -430 IF END #333 THEN 500 -440 PRINT "ABOUT TO EXECUTE TEST" -450 READ # 333; B$ -460 PRINT "TEST FAILED - 'IF END' DID NOT EXECUTE" -470 GOTO 999 -500 REM ----------------------------------- -510 REM END-OF-FILE HANDLER -520 REM ----------------------------------- -530 PRINT "TEST PASSED" -540 CLOSE 333 -999 END diff --git a/bwbtest/C77A/IF_END_2.run b/bwbtest/C77A/IF_END_2.run deleted file mode 100644 index 26b459c..0000000 --- a/bwbtest/C77A/IF_END_2.run +++ /dev/null @@ -1,12 +0,0 @@ -THIS IS LINE 1 -THIS IS LINE 2 -THIS IS LINE 3 -THIS IS LINE 4 -THIS IS LINE 5 -THIS IS LINE 6 -THIS IS LINE 7 -THIS IS LINE 8 -THIS IS LINE 9 -THIS IS LINE 10 -ABOUT TO EXECUTE TEST -TEST PASSED diff --git a/bwbtest/C77A/INPUT_1.BAS b/bwbtest/C77A/INPUT_1.BAS deleted file mode 100644 index aac3ff0..0000000 --- a/bwbtest/C77A/INPUT_1.BAS +++ /dev/null @@ -1,51 +0,0 @@ - 100 REM Purpose: Verify INPUT statment - 110 REM Author: Howard Wulf, AF5NE - 120 REM - 130 REM - 200 LET N = 0 - 210 LET A$ = "123456789012345678901234567890" - - 300 PRINT "INPUT B$" - :INPUT B$ - :GOSUB 8000 - - 310 PRINT "INPUT LINE B$" - :INPUT LINE B$ - :GOSUB 8000 - - 320 PRINT "INPUT prompt B$" - :INPUT "prompt" B$ - :GOSUB 8000 - - 330 PRINT "INPUT prompt LINE B$" - :INPUT "prompt" LINE B$ - :GOSUB 8000 - - 340 PRINT "INPUT ; B$" - :INPUT ; B$ - :GOSUB 8000 - - 350 PRINT "INPUT ; LINE B$" - :INPUT ; LINE B$ - :GOSUB 8000 - - 360 PRINT "INPUT prompt ; B$" - :INPUT "prompt" ; B$ - :GOSUB 8000 - - 370 PRINT "INPUT prompt ; LINE B$" - :INPUT "prompt" ; LINE B$ - :GOSUB 8000 - - 7999 GOTO 9999 - 8000 REM ------------------------------- - 8010 REM PRINT RESULTS - 8020 REM ------------------------- - 8030 LET N = N + 1 - 8040 PRINT "TESTCASE #";N - 8050 PRINT "LENGTH", "[";A$;"]" - 8060 PRINT LEN(B$) , "[";B$;"]" - 8070 PRINT - 8080 RETURN - 9999 END - diff --git a/bwbtest/C77A/INPUT_1.INP b/bwbtest/C77A/INPUT_1.INP deleted file mode 100644 index 442f089..0000000 --- a/bwbtest/C77A/INPUT_1.INP +++ /dev/null @@ -1,8 +0,0 @@ -abc -abc,def,ghi,jkl -abc -abc,def,ghi,jkl -abc -abc,def,ghi,jkl -abc -abc,def,ghi,jkl diff --git a/bwbtest/C77A/INPUT_1.run b/bwbtest/C77A/INPUT_1.run deleted file mode 100644 index 431f740..0000000 --- a/bwbtest/C77A/INPUT_1.run +++ /dev/null @@ -1,48 +0,0 @@ -INPUT B$ -? abc -TESTCASE # 1 -LENGTH [123456789012345678901234567890] - 3 [abc] - -INPUT LINE B$ -? abc,def,ghi,jkl -TESTCASE # 2 -LENGTH [123456789012345678901234567890] - 15 [abc,def,ghi,jkl] - -INPUT prompt B$ -prompt? abc -TESTCASE # 3 -LENGTH [123456789012345678901234567890] - 3 [abc] - -INPUT prompt LINE B$ -prompt? abc,def,ghi,jkl -TESTCASE # 4 -LENGTH [123456789012345678901234567890] - 15 [abc,def,ghi,jkl] - -INPUT ; B$ -abc -TESTCASE # 5 -LENGTH [123456789012345678901234567890] - 3 [abc] - -INPUT ; LINE B$ -abc,def,ghi,jkl -TESTCASE # 6 -LENGTH [123456789012345678901234567890] - 15 [abc,def,ghi,jkl] - -INPUT prompt ; B$ -prompt? abc -TESTCASE # 7 -LENGTH [123456789012345678901234567890] - 3 [abc] - -INPUT prompt ; LINE B$ -prompt? abc,def,ghi,jkl -TESTCASE # 8 -LENGTH [123456789012345678901234567890] - 15 [abc,def,ghi,jkl] - diff --git a/bwbtest/C77A/LPRINTER_1.BAS b/bwbtest/C77A/LPRINTER_1.BAS deleted file mode 100644 index 0a10029..0000000 --- a/bwbtest/C77A/LPRINTER_1.BAS +++ /dev/null @@ -1,15 +0,0 @@ -100 REM Purpose: Verify CONSOLE command -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-22 -130 REM -200 REM The following string is 70 characters long -210 LET A$ = "....+....|....+....|....+....|....+....|....+....|....+....|....+....|" -300 LPRINTER -310 PRINT A$ -320 LPRINTER WIDTH 70 -330 PRINT A$ -340 LPRINTER WIDTH 40 -350 PRINT A$ -360 LPRINTER WIDTH 80 -370 PRINT A$ -999 END diff --git a/bwbtest/C77A/LPRINTER_1.run b/bwbtest/C77A/LPRINTER_1.run deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/C77A/MATCH_1.BAS b/bwbtest/C77A/MATCH_1.BAS deleted file mode 100644 index 74745c3..0000000 --- a/bwbtest/C77A/MATCH_1.BAS +++ /dev/null @@ -1,36 +0,0 @@ -100 REM Purpose: Verify MATCH command -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-25 -130 REM - - -1000 REM -------------------------------------- -1010 READ Test.Case.Number -1020 IF Test.Case.Number < 0 THEN 2000 -1030 READ A$, B$, I%, N% -1040 PRINT "TEST CASE #" ; Test.Case.Number ; ": "; -1050 PRINT "A$=[";A$;"], B$=[";B$;"], I%=";I%;", N%=";N% -1060 J% = MATCH( A$, B$, I% ) -1070 IF J% = N% THEN 1000 - -1100 PRINT "TEST FAILED" -1110 GOTO 9999 - -2000 PRINT "TEST PASSED" -2010 GOTO 9999 - -8000 REM Test #, A$, B$, I%, N -8010 DATA 1, "is", "Now is the", 1, 5 -8020 DATA 2, "##", "October 8, 1876", 1, 12 -8030 DATA 3, "a?", "character", 4, 5 -8040 DATA 4, "\#", "123#45", 1, 4 -8050 DATA 5, "ABCD", "ABC", 1, 0 -8060 DATA 6, "\#1\\\?", "1#1\?2#", 1, 2 -8070 DATA 7, " ", " ", 2, 0 -8080 DATA 8, " ", "", 1, 0 -8090 DATA 9, "", " ", 1, 1 -8100 DATA 10, "", "", 1, 0 -8110 DATA -1 - -9999 END - diff --git a/bwbtest/C77A/MATCH_1.run b/bwbtest/C77A/MATCH_1.run deleted file mode 100644 index f0a92da..0000000 --- a/bwbtest/C77A/MATCH_1.run +++ /dev/null @@ -1,11 +0,0 @@ -TEST CASE # 1 : A$=[is], B$=[Now is the], I%= 1 , N%= 5 -TEST CASE # 2 : A$=[##], B$=[October 8, 1876], I%= 1 , N%= 12 -TEST CASE # 3 : A$=[a?], B$=[character], I%= 4 , N%= 5 -TEST CASE # 4 : A$=[\#], B$=[123#45], I%= 1 , N%= 4 -TEST CASE # 5 : A$=[ABCD], B$=[ABC], I%= 1 , N%= 0 -TEST CASE # 6 : A$=[\#1\\\?], B$=[1#1\?2#], I%= 1 , N%= 2 -TEST CASE # 7 : A$=[ ], B$=[ ], I%= 2 , N%= 0 -TEST CASE # 8 : A$=[ ], B$=[], I%= 1 , N%= 0 -TEST CASE # 9 : A$=[], B$=[ ], I%= 1 , N%= 1 -TEST CASE # 10 : A$=[], B$=[], I%= 1 , N%= 0 -TEST PASSED diff --git a/bwbtest/C77A/PAD80.BAS b/bwbtest/C77A/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/C77A/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/C77A/PAD80.INP b/bwbtest/C77A/PAD80.INP deleted file mode 100644 index 8d6530c..0000000 --- a/bwbtest/C77A/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA SIZE_1.OUT, SIZE_1.80 diff --git a/bwbtest/C77A/PAD80.PRO b/bwbtest/C77A/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/C77A/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/C77A/QUOTE_1.BAS b/bwbtest/C77A/QUOTE_1.BAS deleted file mode 100644 index 32a06b6..0000000 --- a/bwbtest/C77A/QUOTE_1.BAS +++ /dev/null @@ -1,48 +0,0 @@ - 100 REM Purpose: Verify quoted strings - 110 REM Author: Howard Wulf, AF5NE - 120 REM - 130 REM - 200 LET N = 0 - 210 LET A$ = "123456789012345678901234567890" - - 300 LET B$ = "" - 310 GOSUB 8000 - 320 LET B$ = """" - 330 GOSUB 8000 - 340 LET B$ = "THIS HAS ""EMBEDDED"" STRING" - 350 GOSUB 8000 - 360 LET B$ = """THIS HAS LEADING QUOTE" - 370 GOSUB 8000 - 380 LET B$ = "THIS HAS TRAILING QUOTE""" - 390 GOSUB 8000 - 400 LET B$ = """THIS"" ""HAS"" ""MANY"" ""STRINGS""" - 410 GOSUB 8000 - - - - 1300 LET B$ = " - 1310 GOSUB 8000 - 1320 LET B$ = """ - 1330 GOSUB 8000 - 1340 LET B$ = "THIS HAS ""EMBEDDED"" STRING - 1350 GOSUB 8000 - 1360 LET B$ = """THIS HAS LEADING QUOTE - 1370 GOSUB 8000 - 1380 LET B$ = "THIS HAS TRAILING QUOTE"" - 1390 GOSUB 8000 - 1400 LET B$ = """THIS"" ""HAS"" ""MANY"" ""STRINGS"" - 1410 GOSUB 8000 - - - 7999 GOTO 9999 - 8000 REM ------------------------------- - 8010 REM PRINT RESULTS - 8020 REM ------------------------- - 8030 LET N = N + 1 - 8040 PRINT "TESTCASE #";N - 8050 PRINT "LENGTH", "[";A$;"]" - 8060 PRINT LEN(B$) , "[";B$;"]" - 8070 PRINT - 8080 RETURN - 9999 END - diff --git a/bwbtest/C77A/QUOTE_1.run b/bwbtest/C77A/QUOTE_1.run deleted file mode 100644 index bf1e475..0000000 --- a/bwbtest/C77A/QUOTE_1.run +++ /dev/null @@ -1,48 +0,0 @@ -TESTCASE # 1 -LENGTH [123456789012345678901234567890] - 0 [] - -TESTCASE # 2 -LENGTH [123456789012345678901234567890] - 1 ["] - -TESTCASE # 3 -LENGTH [123456789012345678901234567890] - 26 [THIS HAS "EMBEDDED" STRING] - -TESTCASE # 4 -LENGTH [123456789012345678901234567890] - 23 ["THIS HAS LEADING QUOTE] - -TESTCASE # 5 -LENGTH [123456789012345678901234567890] - 24 [THIS HAS TRAILING QUOTE"] - -TESTCASE # 6 -LENGTH [123456789012345678901234567890] - 29 ["THIS" "HAS" "MANY" "STRINGS"] - -TESTCASE # 7 -LENGTH [123456789012345678901234567890] - 0 [] - -TESTCASE # 8 -LENGTH [123456789012345678901234567890] - 1 ["] - -TESTCASE # 9 -LENGTH [123456789012345678901234567890] - 26 [THIS HAS "EMBEDDED" STRING] - -TESTCASE # 10 -LENGTH [123456789012345678901234567890] - 23 ["THIS HAS LEADING QUOTE] - -TESTCASE # 11 -LENGTH [123456789012345678901234567890] - 24 [THIS HAS TRAILING QUOTE"] - -TESTCASE # 12 -LENGTH [123456789012345678901234567890] - 29 ["THIS" "HAS" "MANY" "STRINGS"] - diff --git a/bwbtest/C77A/QUOTE_2.BAS b/bwbtest/C77A/QUOTE_2.BAS deleted file mode 100644 index dee0dd7..0000000 --- a/bwbtest/C77A/QUOTE_2.BAS +++ /dev/null @@ -1,61 +0,0 @@ - 100 REM Purpose: Verify quoted strings - 110 REM Author: Howard Wulf, AF5NE - 120 REM - 130 REM - 200 LET N = 0 - 210 LET A$ = "123456789012345678901234567890" - 220 RESTORE - - 300 READ B$ - 305 DATA "" - 310 GOSUB 8000 - 320 READ B$ - 325 DATA """" - 330 GOSUB 8000 - 340 READ B$ - 345 DATA "THIS HAS ""EMBEDDED"" STRING" - 350 GOSUB 8000 - 360 READ B$ - 365 DATA"""THIS HAS LEADING QUOTE" - 370 GOSUB 8000 - 380 READ B$ - 385 DATA "THIS HAS TRAILING QUOTE""" - 390 GOSUB 8000 - 400 READ B$ - 405 DATA """THIS"" ""HAS"" ""MANY"" ""STRINGS""" - 410 GOSUB 8000 - - - - 1300 READ B$ - 1305 DATA " - 1310 GOSUB 8000 - 1320 READ B$ - 1325 DATA """ - 1330 GOSUB 8000 - 1340 READ B$ - 1345 DATA "THIS HAS ""EMBEDDED"" STRING - 1350 GOSUB 8000 - 1360 READ B$ - 1365 DATA """THIS HAS LEADING QUOTE - 1370 GOSUB 8000 - 1380 READ B$ - 1385 DATA "THIS HAS TRAILING QUOTE"" - 1390 GOSUB 8000 - 1400 READ B$ - 1405 DATA """THIS"" ""HAS"" ""MANY"" ""STRINGS"" - 1410 GOSUB 8000 - - - 7999 GOTO 9999 - 8000 REM ------------------------------- - 8010 REM PRINT RESULTS - 8020 REM ------------------------- - 8030 LET N = N + 1 - 8040 PRINT "TESTCASE #";N - 8050 PRINT "LENGTH", "[";A$;"]" - 8060 PRINT LEN(B$) , "[";B$;"]" - 8070 PRINT - 8080 RETURN - 9999 END - diff --git a/bwbtest/C77A/QUOTE_2.run b/bwbtest/C77A/QUOTE_2.run deleted file mode 100644 index bf1e475..0000000 --- a/bwbtest/C77A/QUOTE_2.run +++ /dev/null @@ -1,48 +0,0 @@ -TESTCASE # 1 -LENGTH [123456789012345678901234567890] - 0 [] - -TESTCASE # 2 -LENGTH [123456789012345678901234567890] - 1 ["] - -TESTCASE # 3 -LENGTH [123456789012345678901234567890] - 26 [THIS HAS "EMBEDDED" STRING] - -TESTCASE # 4 -LENGTH [123456789012345678901234567890] - 23 ["THIS HAS LEADING QUOTE] - -TESTCASE # 5 -LENGTH [123456789012345678901234567890] - 24 [THIS HAS TRAILING QUOTE"] - -TESTCASE # 6 -LENGTH [123456789012345678901234567890] - 29 ["THIS" "HAS" "MANY" "STRINGS"] - -TESTCASE # 7 -LENGTH [123456789012345678901234567890] - 0 [] - -TESTCASE # 8 -LENGTH [123456789012345678901234567890] - 1 ["] - -TESTCASE # 9 -LENGTH [123456789012345678901234567890] - 26 [THIS HAS "EMBEDDED" STRING] - -TESTCASE # 10 -LENGTH [123456789012345678901234567890] - 23 ["THIS HAS LEADING QUOTE] - -TESTCASE # 11 -LENGTH [123456789012345678901234567890] - 24 [THIS HAS TRAILING QUOTE"] - -TESTCASE # 12 -LENGTH [123456789012345678901234567890] - 29 ["THIS" "HAS" "MANY" "STRINGS"] - diff --git a/bwbtest/C77A/QUOTE_3.BAS b/bwbtest/C77A/QUOTE_3.BAS deleted file mode 100644 index 1d4f05b..0000000 --- a/bwbtest/C77A/QUOTE_3.BAS +++ /dev/null @@ -1,48 +0,0 @@ - 100 REM Purpose: Verify quoted strings - 110 REM Author: Howard Wulf, AF5NE - 120 REM - 130 REM - 200 LET N = 0 - 210 LET A$ = "123456789012345678901234567890" - - 300 INPUT B$ - 310 GOSUB 8000 - 320 INPUT B$ - 330 GOSUB 8000 - 340 INPUT B$ - 350 GOSUB 8000 - 360 INPUT B$ - 370 GOSUB 8000 - 380 INPUT B$ - 390 GOSUB 8000 - 400 INPUT B$ - 410 GOSUB 8000 - - - - 1300 INPUT B$ - 1310 GOSUB 8000 - 1320 INPUT B$ - 1330 GOSUB 8000 - 1340 INPUT B$ - 1350 GOSUB 8000 - 1360 INPUT B$ - 1370 GOSUB 8000 - 1380 INPUT B$ - 1390 GOSUB 8000 - 1400 INPUT B$ - 1410 GOSUB 8000 - - - 7999 GOTO 9999 - 8000 REM ------------------------------- - 8010 REM PRINT RESULTS - 8020 REM ------------------------- - 8030 LET N = N + 1 - 8040 PRINT "TESTCASE #";N - 8050 PRINT "LENGTH", "[";A$;"]" - 8060 PRINT LEN(B$) , "[";B$;"]" - 8070 PRINT - 8080 RETURN - 9999 END - diff --git a/bwbtest/C77A/QUOTE_3.INP b/bwbtest/C77A/QUOTE_3.INP deleted file mode 100644 index 01141aa..0000000 --- a/bwbtest/C77A/QUOTE_3.INP +++ /dev/null @@ -1,12 +0,0 @@ -"" -"""" -"THIS HAS ""EMBEDDED"" STRING" -"""THIS HAS LEADING QUOTE" -"THIS HAS TRAILING QUOTE""" -"""THIS"" ""HAS"" ""MANY"" ""STRINGS""" -" -""" -"THIS HAS ""EMBEDDED"" STRING -"""THIS HAS LEADING QUOTE -"THIS HAS TRAILING QUOTE"" -"""THIS"" ""HAS"" ""MANY"" ""STRINGS"" diff --git a/bwbtest/C77A/QUOTE_3.run b/bwbtest/C77A/QUOTE_3.run deleted file mode 100644 index 31e6f4a..0000000 --- a/bwbtest/C77A/QUOTE_3.run +++ /dev/null @@ -1,60 +0,0 @@ -? "" -TESTCASE # 1 -LENGTH [123456789012345678901234567890] - 0 [] - -? """" -TESTCASE # 2 -LENGTH [123456789012345678901234567890] - 1 ["] - -? "THIS HAS ""EMBEDDED"" STRING" -TESTCASE # 3 -LENGTH [123456789012345678901234567890] - 26 [THIS HAS "EMBEDDED" STRING] - -? """THIS HAS LEADING QUOTE" -TESTCASE # 4 -LENGTH [123456789012345678901234567890] - 23 ["THIS HAS LEADING QUOTE] - -? "THIS HAS TRAILING QUOTE""" -TESTCASE # 5 -LENGTH [123456789012345678901234567890] - 24 [THIS HAS TRAILING QUOTE"] - -? """THIS"" ""HAS"" ""MANY"" ""STRINGS""" -TESTCASE # 6 -LENGTH [123456789012345678901234567890] - 29 ["THIS" "HAS" "MANY" "STRINGS"] - -? " -TESTCASE # 7 -LENGTH [123456789012345678901234567890] - 0 [] - -? """ -TESTCASE # 8 -LENGTH [123456789012345678901234567890] - 1 ["] - -? "THIS HAS ""EMBEDDED"" STRING -TESTCASE # 9 -LENGTH [123456789012345678901234567890] - 26 [THIS HAS "EMBEDDED" STRING] - -? """THIS HAS LEADING QUOTE -TESTCASE # 10 -LENGTH [123456789012345678901234567890] - 23 ["THIS HAS LEADING QUOTE] - -? "THIS HAS TRAILING QUOTE"" -TESTCASE # 11 -LENGTH [123456789012345678901234567890] - 24 [THIS HAS TRAILING QUOTE"] - -? """THIS"" ""HAS"" ""MANY"" ""STRINGS"" -TESTCASE # 12 -LENGTH [123456789012345678901234567890] - 29 ["THIS" "HAS" "MANY" "STRINGS"] - diff --git a/bwbtest/C77A/READ_1.BAS b/bwbtest/C77A/READ_1.BAS deleted file mode 100644 index 9825106..0000000 --- a/bwbtest/C77A/READ_1.BAS +++ /dev/null @@ -1,20 +0,0 @@ -100 REM Purpose: Verify READ LINE # command -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM -180 LET Record.Length% = 64 -190 LET File.Name$ = "READ_1.TXT" -200 CREATE File.Name$ RECL Record.Length% AS 777 -210 FOR I = 1 TO 10 -220 LET A$ = "THIS IS LINE" -230 PRINT # 777; A$, I, -235 PRINT # 777; "extra stuff", I * 10 + I -240 NEXT I -250 CLOSE 777 -300 OPEN File.Name$ RECL Record.Length% AS 333 -310 FOR I = 1 TO 10 -320 READ # 333; LINE B$ -330 PRINT B$ -340 NEXT I -350 CLOSE 333 -999 END diff --git a/bwbtest/C77A/READ_1.run b/bwbtest/C77A/READ_1.run deleted file mode 100644 index f5ddc2e..0000000 --- a/bwbtest/C77A/READ_1.run +++ /dev/null @@ -1,10 +0,0 @@ -"THIS IS LINE",1,"extra stuff",11 -"THIS IS LINE",2,"extra stuff",22 -"THIS IS LINE",3,"extra stuff",33 -"THIS IS LINE",4,"extra stuff",44 -"THIS IS LINE",5,"extra stuff",55 -"THIS IS LINE",6,"extra stuff",66 -"THIS IS LINE",7,"extra stuff",77 -"THIS IS LINE",8,"extra stuff",88 -"THIS IS LINE",9,"extra stuff",99 -"THIS IS LINE",10,"extra stuff",110 diff --git a/bwbtest/C77A/READ_2.BAS b/bwbtest/C77A/READ_2.BAS deleted file mode 100644 index 31ba440..0000000 --- a/bwbtest/C77A/READ_2.BAS +++ /dev/null @@ -1,20 +0,0 @@ -100 REM Purpose: Verify READ LINE # command -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM -180 LET Record.Length% = 64 -190 LET File.Name$ = "READ_1.TXT" -200 CREATE File.Name$ RECL Record.Length% AS 777 -210 FOR I = 1 TO 10 -220 LET A$ = "THIS IS LINE" -230 PRINT # 777, I; A$, I, -235 PRINT # 777; "extra stuff", I * 10 + I -240 NEXT I -250 CLOSE 777 -300 OPEN File.Name$ RECL Record.Length% AS 333 -310 FOR I = 10 TO 1 STEP -1 -320 READ # 333, I; LINE B$ -330 PRINT B$ -340 NEXT I -350 CLOSE 333 -999 END diff --git a/bwbtest/C77A/READ_2.run b/bwbtest/C77A/READ_2.run deleted file mode 100644 index 776a53b..0000000 --- a/bwbtest/C77A/READ_2.run +++ /dev/null @@ -1,10 +0,0 @@ -"THIS IS LINE",10,"extra stuff",110 -"THIS IS LINE",9,"extra stuff",99 -"THIS IS LINE",8,"extra stuff",88 -"THIS IS LINE",7,"extra stuff",77 -"THIS IS LINE",6,"extra stuff",66 -"THIS IS LINE",5,"extra stuff",55 -"THIS IS LINE",4,"extra stuff",44 -"THIS IS LINE",3,"extra stuff",33 -"THIS IS LINE",2,"extra stuff",22 -"THIS IS LINE",1,"extra stuff",11 diff --git a/bwbtest/C77A/RETURN_1.BAS b/bwbtest/C77A/RETURN_1.BAS deleted file mode 100644 index 1cc3cd1..0000000 --- a/bwbtest/C77A/RETURN_1.BAS +++ /dev/null @@ -1,21 +0,0 @@ -100 REM Purpose: Verify RETURN exits a FUNCTION -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM - -200 DEF TEST( X ) -210 LET TEST = X * 7 -220 RETURN -230 PRINT "TEST FAILED - RETURN NOT EXECUTED" -240 STOP -250 FEND - -300 PRINT "ABOUT TO EXECUTE TEST" -310 LET N = TEST( 2 ) -320 IF N = 14 THEN 400 -330 PRINT "TEST FAILED - WRONG RESULT" -340 GOTO 999 - -400 PRINT "TEST PASSED" - -999 END diff --git a/bwbtest/C77A/RETURN_1.run b/bwbtest/C77A/RETURN_1.run deleted file mode 100644 index b2ba5fa..0000000 --- a/bwbtest/C77A/RETURN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ABOUT TO EXECUTE TEST -TEST PASSED diff --git a/bwbtest/C77A/RETURN_2.BAS b/bwbtest/C77A/RETURN_2.BAS deleted file mode 100644 index afa1585..0000000 --- a/bwbtest/C77A/RETURN_2.BAS +++ /dev/null @@ -1,26 +0,0 @@ -100 REM Purpose: Verify RETURN exits a FUNCTION -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM - -200 DEF TEST( X ) -210 LET TEST = X * 7 -220 RETURN -230 PRINT "TEST FAILED - RETURN NOT EXECUTED" -240 STOP -250 FEND - -300 PRINT "ABOUT TO EXECUTE TEST" -310 GOSUB 1300 -320 PRINT "TEST FAILED - RETURNED HERE" -330 GOTO 9999 - -1300 REM THIS IS A SUBROUTINE -1310 LET N = TEST( 3 ) -1320 IF N = 21 THEN 1400 -1330 PRINT "TEST FAILED - WRONG RESULT" -1340 GOTO 9999 - -1400 PRINT "TEST PASSED" - -9999 END diff --git a/bwbtest/C77A/RETURN_2.run b/bwbtest/C77A/RETURN_2.run deleted file mode 100644 index b2ba5fa..0000000 --- a/bwbtest/C77A/RETURN_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ABOUT TO EXECUTE TEST -TEST PASSED diff --git a/bwbtest/C77A/RETURN_3.BAS b/bwbtest/C77A/RETURN_3.BAS deleted file mode 100644 index 2998099..0000000 --- a/bwbtest/C77A/RETURN_3.BAS +++ /dev/null @@ -1,26 +0,0 @@ -100 REM Purpose: Verify RETURN exits a FUNCTION -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM - -200 DEF TEST( X ) -210 GOSUB 400 -220 LET TEST = X * 7 -230 RETURN -240 PRINT "TEST FAILED - RETURN NOT EXECUTED" -250 STOP -260 FEND - -300 PRINT "ABOUT TO EXECUTE TEST" -310 LET N = TEST( 2 ) -320 IF N = 14 THEN 500 -330 PRINT "TEST FAILED - WRONG RESULT" -340 GOTO 999 - -400 REM SUBROUTINE CALLED FROM WITHIN DEF...FEND -410 PRINT "EXECUTED SUBROUTINE" -420 RETURN - -500 PRINT "TEST PASSED" - -999 END diff --git a/bwbtest/C77A/RETURN_3.run b/bwbtest/C77A/RETURN_3.run deleted file mode 100644 index 64c5c17..0000000 --- a/bwbtest/C77A/RETURN_3.run +++ /dev/null @@ -1,3 +0,0 @@ -ABOUT TO EXECUTE TEST -EXECUTED SUBROUTINE -TEST PASSED diff --git a/bwbtest/C77A/SIZE_1.BAS b/bwbtest/C77A/SIZE_1.BAS deleted file mode 100644 index 8455746..0000000 --- a/bwbtest/C77A/SIZE_1.BAS +++ /dev/null @@ -1,55 +0,0 @@ -100 REM Purpose: Verify SIZE function -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM - -200 REM ----------------------------------------------------- -210 LET File.Name$ = "SIZE_1.TXT" -220 REM ----------------------------------------------------- - -1100 REM ----------------------------------------------------- -1110 PRINT "SIZE() of non-existing file is zero" -1120 LET N = SIZE( File.Name$ ) -1130 PRINT "N=";N -1140 IF N <> 0 THEN 2000 -1150 PRINT " TEST PASSED" - -1200 REM ----------------------------------------------------- -1210 PRINT "SIZE() of zero length file is zero" -1220 CREATE File.Name$ AS 1200 -1230 CLOSE 1200 -1240 LET N = SIZE( File.Name$ ) -1250 PRINT "N=";N -1260 IF N <> 0 THEN 2000 -1270 PRINT " TEST PASSED" - -1300 REM ----------------------------------------------------- -1310 PRINT "SIZE() of < 1024 length file is 1" -1320 CREATE File.Name$ AS 1300 -1330 PRINT # 1300; "anything" -1340 CLOSE 1300 -1350 LET N = SIZE( File.Name$ ) -1360 PRINT "N=";N -1370 IF N <> 1 THEN 2000 -1380 PRINT " TEST PASSED" - -1400 REM ----------------------------------------------------- -1410 PRINT "SIZE() of 1024 length file is 1" -1420 CREATE File.Name$ RECL 1024 AS 1400 -1430 PRINT # 1400; "anything" -1440 CLOSE 1400 -1450 LET N = SIZE( File.Name$ ) -1460 PRINT "N=";N -1470 IF N <> 1 THEN 2000 -1480 PRINT " TEST PASSED" - -1900 REM ----------------------------------------------------- -1910 REM Cleanup -1920 CREATE File.Name$ AS 1900 -1930 DELETE 1900 -1999 GOTO 9999 - -2000 REM ----------------------------------------------------- -2010 PRINT "TEST FAILED" - -9999 END diff --git a/bwbtest/C77A/SIZE_1.run b/bwbtest/C77A/SIZE_1.run deleted file mode 100644 index 07e879a..0000000 --- a/bwbtest/C77A/SIZE_1.run +++ /dev/null @@ -1,12 +0,0 @@ -SIZE() of non-existing file is zero -N= 0 - TEST PASSED -SIZE() of zero length file is zero -N= 0 - TEST PASSED -SIZE() of < 1024 length file is 1 -N= 1 - TEST PASSED -SIZE() of 1024 length file is 1 -N= 1 - TEST PASSED diff --git a/bwbtest/C77A/USING_1.BAS b/bwbtest/C77A/USING_1.BAS deleted file mode 100644 index 4c196f0..0000000 --- a/bwbtest/C77A/USING_1.BAS +++ /dev/null @@ -1,18 +0,0 @@ -100 REM Purpose: Verify PRINT USING # command -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-12-23 -130 REM -190 LET F$ = "USING_1.TXT" -200 CREATE F$ AS 777 -210 FOR I = 1 TO 10 -220 LET A$ = "THIS IS LINE ###" -230 PRINT # 777; USING A$; I -240 NEXT I -250 CLOSE 777 -300 OPEN F$ AS 333 -310 FOR I = 1 TO 10 -320 READ # 333; B$ -330 PRINT B$ -340 NEXT I -350 CLOSE 333 -999 END diff --git a/bwbtest/C77A/USING_1.run b/bwbtest/C77A/USING_1.run deleted file mode 100644 index d6379e3..0000000 --- a/bwbtest/C77A/USING_1.run +++ /dev/null @@ -1,10 +0,0 @@ -THIS IS LINE 1 -THIS IS LINE 2 -THIS IS LINE 3 -THIS IS LINE 4 -THIS IS LINE 5 -THIS IS LINE 6 -THIS IS LINE 7 -THIS IS LINE 8 -THIS IS LINE 9 -THIS IS LINE 10 diff --git a/bwbtest/C77B/00README.TXT b/bwbtest/C77B/00README.TXT deleted file mode 100644 index ba624d4..0000000 --- a/bwbtest/C77B/00README.TXT +++ /dev/null @@ -1,96 +0,0 @@ -2015-12-25 Minor changes for bwBASIC by Howard Wulf, AF5NE. ------------------------------------------------------------------ - -CPMUG ABSTRACT: - -CPMUG volumes 86-90 contain "BusinessMaster II", a comprehensive small -business software package for CBASIC-II. There were seven single -density disks originally contributed: five program disks, one -documentation disk, and one sample file disk. I combined these seven -disks to produce five CPMUG volumes. Thus not all references in the -various documentation will directly apply disk by disk, but all the -files submitted are included. - -Only the files "CRJOSORT.BAS", "VPJOSORT.BAS", and the submit files for -copying, XREFing, pipping, and compiling with printing which are in the -documentation, were not included. The contributor felt the two missing -".BAS" programs to be unnecessary. Also a minor bit of REM -documentation seems to be missing off of the front of GLJOSORT.BAS. - -I generated a compile submit file for each disk. The submit files have -the form: - - $1 $2filename.typ $3 $4 - -Thus to compile them from the A: disk to the B: disk, type: - - submit compile CBASIC2 A: B: $B - -There are six .BAS files which are on every disk: ALL, FORMAT, CONTROL, -CHECK, READFILE, AND BIZMII. - -The reminder of this abstract is the press release officially releasing -BusinessMaster II into the public domain. - -09/21/82 Ward Christensen - - - ------------- - - PRESS RELEASE - - - BusinessMaster II Released into Public Domain - -For the protection of those who have purchased a package of General -Business Software known as BusinessMaster II or Visaccount (which was, -as of March 1982, at least 95% derivative of Business-Master II) from -either OEM software (a Star Computer Systems company), Computer Services -Corporation of America, 800-Software or other dealers OEM Software has -established we are hereby declaring this old version of BusinessMaster -II in Public Domain. The Copyright notices were removed by OEM Software -and the package was then sold to over 400 dealers for $375. - -One of many dealers purchasing the package was Computer Services -Corporation of America. Buck Lindsey CEO of Computer Services -Corporation of America advised me last year that he felt the package was -in the public domain and whether it was then or not, it is now. - -Computer Services Corporation of America made some minor changes to the -package and renamed it VisAccount. Additionally they made 800-Software -a discount dealer. - -We are placing this package in [the] Public Domain to clear up a problem -that has been generated for literally thousands of people who purchased -this package from one source or another and currently do not know where -they stand. - -For those End-Users who are not satisfied with their Version of -BusinessMaster II or Visaccount we will exchange your package for the -new and much improved BusinessMaster II+ for $100. Simply mail your -original diskettes (OEM or Visaccount) and license to us. We will put -the new package on your diskettes with new labels, a new licensing -agreement and a new manual and return it to you. - -For dealers who purchased BusinessMaster II from OEM software, you may -continue to do as you wish with the package but we cannot upgrade your -package to BusinessMaster II+. However we do offer dealer discounts on -our newer packages. - -We have offered the package to the CP/M Users Group for inclusion in -their library on the understanding that it may be used in any way, -either commercial or non-commercial by anyone who chooses to use it -provided credit is given for such use. - -We will continue to supply BusinessMaster II+ to end-users for $159 and -Businessmaster Plus with fully-formatted fill in the blanks screen and B -Tree Indexing for $289. These packages are compileable with minor -changes under CB-80. - - (signed) - - Bud Aaron - - BusinessMaster - 4317 Sea Bright Dr. - Carlsbad, CA 92008 diff --git a/bwbtest/C77B/00test.sh b/bwbtest/C77B/00test.sh deleted file mode 100644 index e13a301..0000000 --- a/bwbtest/C77B/00test.sh +++ /dev/null @@ -1,49 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BIZMII/ -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile C77.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# ---------------------------------------------- -# the regression tests assume these data files -# ---------------------------------------------- -cp ./DATA/* . - -# ---------------------------------------------- -# now, we are ready to test -# ---------------------------------------------- -# ~/bwbasic --tape BIZMII.INP --profile C77.PRO BIZMII.BAS -testcase BIZMII - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/C77B/01test.sh b/bwbtest/C77B/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/C77B/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/C77B/02ok.sh b/bwbtest/C77B/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/C77B/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/C77B/03run.sh b/bwbtest/C77B/03run.sh deleted file mode 100644 index 36ee58b..0000000 --- a/bwbtest/C77B/03run.sh +++ /dev/null @@ -1,3 +0,0 @@ -# run BIZMII -cp ./DATA/* . -~/bwbasic --tape BIZMII.INP --profile C77.PRO BIZMII.BAS diff --git a/bwbtest/C77B/99test.sh b/bwbtest/C77B/99test.sh deleted file mode 100644 index bbf7cad..0000000 --- a/bwbtest/C77B/99test.sh +++ /dev/null @@ -1,64 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -rm AP -rm AR -rm CG -rm CGSIZE -rm CHK -rm CR -rm CRSIZE -rm DATE -rm EDEP -rm EDEPSIZE -rm EF -rm EP -rm EPC -rm EPSIZE -rm EPT -rm ES -rm FG -rm FGSIZE -rm GL -rm GLCD -rm GLCDSIZE -rm GLCK -rm GLCKSIZE -rm GLF -rm GLH -rm GLHSIZE -rm GLJO -rm GLJOSIZE -rm GLREF -rm GLS -rm GLSIZE -rm GLSSIZE -rm GLT -rm INV -rm IR -rm IRSIZE -rm MA0 -rm MA0SIZE -rm NM -rm NMSIZE -rm PO -rm POE -rm POSIZE -rm TM -rm VP -rm VPSIZE - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/C77B/ALL.BAS b/bwbtest/C77B/ALL.BAS deleted file mode 100644 index da9a7c5..0000000 --- a/bwbtest/C77B/ALL.BAS +++ /dev/null @@ -1,4 +0,0 @@ -2 rem This is ALL.BAS used to include FORMAT and CONTROL - -%INCLUDE FORMAT.BAS -%INCLUDE CONTROL.BAS diff --git a/bwbtest/C77B/APPENDA.TXT b/bwbtest/C77B/APPENDA.TXT deleted file mode 100644 index 400e839..0000000 --- a/bwbtest/C77B/APPENDA.TXT +++ /dev/null @@ -1,35 +0,0 @@ -.pl 66 - APPENDIX A - - Handling the Diskettes - -(1) To load the diskette, remove it from its protective jacket. - Insert the diskette with label up and the slot exposing the - magnetic surface into the drive first. After the diskette - "clicks" into place, gently close the compartment door. - -(2) Always place the diskette back in its protective envelope - after use. NEVER place your fingers or thumb on the diskette - through the window slot exposing the magnetic surface. - -(3) Do not leave the diskette lying around. Dirt, dust, or - stains on the diskette could cause the loss of data. Never - leave the diskette lying on the video unit or near an - electric motor, since the presence of a magnetic field may - also cause loss or scrambling of data. - -(4) Use a felt-tip pen to make any notes on the label of the - diskette. Using a ballpoint pen or pencil could damage the - diskette inside the envelope. - -(5) Never load the diskette with the disk drive off. - -(6) Never remove the diskette from the disk drive compartment - with the red "BUSY" light on. - -(7) Never insert a diskette into the drive before powering the - drive up; also never power the drive down while a diskette - is still inserted. - -(8) Keep the disks stored at a temputure of 10 to 52 degrees - centigrade or 50 to 125 degrees fahrenheit. diff --git a/bwbtest/C77B/APPENDB.TXT b/bwbtest/C77B/APPENDB.TXT deleted file mode 100644 index 3e85fa9..0000000 --- a/bwbtest/C77B/APPENDB.TXT +++ /dev/null @@ -1,31 +0,0 @@ -.pl 66 - APPENDIX B - - Disk File Capacities For A Single Sided, Single Density Disk - Containing 250 K.Bytes of space. -_____________________________________________________________________________ -|File Name |Record Size | # Records per Diskette | # Records per Diskette if| -| | | | sorting is to be done | -|----------|------------|------------------------|--------------------------| -|NM |170 |1400 |700 | -|GLH |150 |1600 |800 | -|GLS |150 |1600 |800 | -|GL |138 |1800 |900 | -|GLJO |250 |1000 |500 | -|GLCD |250 |1000 |500 | -|GLCS |250 |1000 |500 | -|GLCK |250 |1000 |500 | -|GLCR |250 |1000 |500 | -|EP |512 |350 |175 | -|TM |128 |350 |175 | -|EDEP |64 |3800 |1900 | -|CR |384 |600 |300 | -|IR |384 |600 |300 | -|VP |384 |600 |300 | -|PO |384 |600 |300 | -|FG |256 |900 |450 | -|RG |256 |900 |450 | -|CG |256 |900 |450 | -|MA |150 |1600 |800 | ------------------------------------------------------------------------------ - diff --git a/bwbtest/C77B/APPENDC.TXT b/bwbtest/C77B/APPENDC.TXT deleted file mode 100644 index 9110a9a..0000000 --- a/bwbtest/C77B/APPENDC.TXT +++ /dev/null @@ -1,122 +0,0 @@ -.pl 66 - APPENDIX C - - Data File Diskette Set-up - - The next step involves setting up data disks. Normally -data disk run in drive B:. The exceptions will be where some -posting and printing require data disks in drives A: and B: -simultaneously. When this is required, an appropriate message is -built into the system to advise you when to change disks. The -basic Data diskette requirements are as follows: - - All Data diskettes should be preformatted. - -1. General Ledger File Diskette - - Transfer the following files from the sample data disk as -supplied. These can be modified later as required. - - a. NM Company Name File - b. DATE File Containing 8 System Dates. - c. GL Sample General Ledger File. - d. GLF Numeric Formats File. - e. GLT General Ledger Tabs File. - f. GLREF General Ledger Account # Reference File. - g. GLH General Ledger Headings File. - h. GLS General Ledger Subheadings File. - -2. Journal Files Diskette - - This must be a separate diskette from the General Ledger -Diskette above. These files will be created by the user as -required. - - a. GLJO General Journal File. - b. GLCD Check DIsbursements File. - c. GLCS Cash Disbursment File. - d. GLCK Check Receipts File. - e. GLCR Cash Receipts File. -.pa - Data File Diskette Set-up - -3. Payroll File Diskette - - Transfer the following files from the sample files diskette. -These can be modified later as required. - - a. NM - b. DATE - c. GLF - d. GLT - e. EF Federal Withholding Tables. - f. ES California Withholding Tables. - g. EPC Payroll Cutoffs and Percentages. - h. EPT Payroll Check Printing Tabs. - - The following files will be created when appropriate - programs are run. - - i. EP Employee Master Information File. - - j. TM Time Card File. - k. EDEP Federal 501 Deposit File. - -4. Customer Receivables Files Diskette - - Transfer the following files from the sample data diskette. - These can be modified later as required. - - a. NM - b. DATE - c. GLF - d. GLT - - The following files will be created when appropriate -programs are run. - - e. Customer Master Information File. - -5. Invoice Register (Order Entry) File Diskette - - Place the AR/AP runtime disk in drive A:. Place the invoice -register disk in drive B:. - Type ctrl. "C" (hold the control key down and type the -letter C). - Type "CRUN2 INVENT". Creates INV (Invoice # File). - The system will prompt you to allow Invoice # set-up. - If you enter a "0", Invoices can be radomly numbered. - If you desire "Forced Sequintial" Invoice numbers, type in -the number of your first invoice. - - The system will take care of the rest. Other files will be -created when appropriate programs are run. - - a. IR Invoice Register (Order) File. - Data File Diskette Set-up - -6. Vendor Payables File Diskette - - This is as #4 a through d - - e. VP Vendor Master Information File. - -7. Purchase Order Register Diskette - - This is the same as #5 but do CRUN2 POENT to set Purchase -order numbers. Creates POE. - - a. PR Purchase Order Register File. - -8. Inventory / Finished Goods File Diskette - - This file, if under 50 records, can be placed on the -customer information diskette to speed order entry processing. If -more items are required, make a seperate diskette and include NM, -DATE, GLF, and GLT. - -9. All Other Diskettes - - All other diskettes except the mailing list files will -require at least NM, DATE, GLF, and GLT. - diff --git a/bwbtest/C77B/APPENDD.TXT b/bwbtest/C77B/APPENDD.TXT deleted file mode 100644 index 18bbb65..0000000 --- a/bwbtest/C77B/APPENDD.TXT +++ /dev/null @@ -1,36 +0,0 @@ -.pl 66 - - APPENDIX D - - Programs Not Accessed Through The Menu. - - The entire system runs through menu control. The four -exception are the following : - - GLCLEAR - This program can be run separately to clear all - DOLLAR values in the GL file. In this way you - can repost the General Ledger for testing - purposes. To run this program install the GL - program disk in drive A: and type : - CRUN2 GLCLEAR. - - EPCLEAR - This program can be run separately to clear all - DOLLAR values in the Employee payroll (EP) file. - To run this program install the payroll program - disk in drive A: and type : CRUN2 EPCLEAR. - - INVENT - This short program allows the first sequential - invoice number to be set. If the number is set to - 0 (zero), the operator can enter random invoice - numbers. Any other setting will be the first - invoice number in a FORCED sequence over which - the operator has no control. This is an accounting - safeguard. To run this program insert the AR/AP - program disk in drive A: then type : - CRUN2 INVENT - - POENT - This short program allows the first sequential - purchase order number to be set. It functions like - INVENT. To run this program insert the AR/AP - program disk in drive A: then type : - CRUN2 POENT diff --git a/bwbtest/C77B/APPENDE.TXT b/bwbtest/C77B/APPENDE.TXT deleted file mode 100644 index fe3ec87..0000000 --- a/bwbtest/C77B/APPENDE.TXT +++ /dev/null @@ -1,453 +0,0 @@ -.pl 66 - APPENDIX E - - COMPILATION OF PROGRAMS FOR BUSINESSMASTER II - - Creating a set of "RUNTIME" programs - -CPMUG note: The SUB files mentioned below were NOT contributed, -and are NOT part of the CPMUG volumes. Each volume 87-90 which -contains .SUB programs DOES contain a COMPILE.BAS, which may be -used via symbolic parameter substitution. Each line of the file -contains lines like: - -$1 $2EPTABS.BAS $3 $4 - -$1 is the compiler name (e.g. CBASIC2) -$2 is the disk containing the .BAS programs, (e.g. B:) -$3 is the output disk for the INT file (e.g. C:) -$4 is for the options, such as $b. - -To compile only, $3 may be "$BC" - -Thus to compile all the .BAS files on a volume in your B: drive, -placing the .INT files on the C: drive, and suppress listing, -type: - -submit b:compile cbasic2 b: c: $b - -If you have a two disk system, you will have to make a system -disk which contains the minimal necessities: SUBMIT.COM, -CBASIC2.COM, etc. - -Also note the split-out of files by disk does not exactly match -the documentation below. - -Here is the original appendix E information: - ----------------------------------------------------------------- - -Your Businessmaster II software is supplied on five diskettes -(North Star single density requires 22 diskettes. SUB files -should be edited accordingly on each diskette). Each diskette -contains .BAS files plus six auxiliary .SUB files. A separate -diskette contains sample data files. - - The .SUB files are: - -1. COPYA-B.SUB Copies program files from Drive A to Drive B. - -2. COPYB-A.SUB Copies program files from Drive B to Drive A. - -3. PIPPRN.SUB Allows the batch printing of all .BAS files. - -4. XREFPRN.SUB Allows the batch application of the CBASIC - XREF to all .BAS files. - -5. COMPILE.SUB Allows the batch compilation of all programs - on the diskette using CBAS2 aaaaaaaa B: $B. The diskette with - the .BAS files must be in Drive A along with CBAS2. A - preformatted diskette must be in Drive B. - -6. COMPILEP.SUB Allows the above operation but with a hard- - copy print-out of the compilation. Uses CBAS2 aaaaaaaa B: $BF. - - - - Tables 1 through 5 list the files contained on each diskette. - -A Word of caution - in all the following operations, always use -the "verify" function with PIP. i.e. PIP A:aaaaaaaa.xxx = B:[v]. -This gives some degree of file integrity regardless of rumors to -the contrary. - - - -bizmii.bas -master1.bas -master11.bas -master12.bas -glentry.bas -glsort.bas -gljotran.bas -gljosort.bas -gljopost.bas -glcdtran.bas -glcdsort.bas -glcdpost.bas -glcktran.bas -glcksort.bas -glckpost.bas -glchart.bas -gltbal.bas -glbalsht.bas -glincome.bas -gcincome.bas -glbudget.bas -gdchecks.bas -glclear.bas -format.bas -control.bas -readfile.bas -all.bas -check.bas -copyb-a.sub -copya-b.sub -compile.sub -compilep.sub -pipprn.sub -xrefprn.sub - - - - - - Table 1 - -epentry.bas -tmentry.bas -epjotran.bas -epsumary.bas -epjopost.bas -epchecks.bas -eplist.bas -epsort.bas -fed941pr.bas -w2print.bas -epdposit.bas -epclear.bas -master5.bas -master14.bas -bizmii.bas -format.bas -control.bas -readfile.bas -all.bas -check.bas -copyb-a.sub -copya-b.sub -compile.sub -compilep.sub -pipprn.sub -xrefprn.sub - - - - - - Table 2 -.pa - -crentry.bas -crsort.bas -crjotran.bas -crjolist.bas -crjopost.bas -crfminv.bas -crppinv.bas -crrpt.bas -invent.bas -crlabels.bas -vpentry.bas -vpsort.bas -vpjotran.bas -vpjolist.bas -vpjopost.bas -vpfmpo.bas -vppppo.bas -vprpt.bas -poent.bas -vplabels.bas -master2.bas -master3.bas -bizmii.bas -format.bas -control.bas -readfile.bas -all.bas -check.bas -copyb-a.sub -copya-b.sub -compile.sub -compilep.sub -pipprn.sub -xrefprn.sub - - - - - Table 3 - -maentry.bas -masort.bas -malabels.bas -crlabels.bas -vplabels.bas -eplabels.bas -fgentry.bas -fgsort.bas -rgentry.bas -rgsort.bas -fgrpt.bas -rgrpt.bas -fgalert.bas -rgalert.bas -cgentry.bas -cgsort.bas -cgdepcal.bas -cgfm4562.bas -cgrpt.bas -master4.bas -master16.bas -master6.bas -bizmii.bas -format.bas -control.bas -readfile.bas -all.bas -check.bas -copyb-a.sub -copya-b.sub -compile.sub -compilep.sub -pipprn.sub -xrefprn.sub - - - - - Table 4 - -namentry.bas -nmsort.bas -glhentry.bas -glhsort.bas -glsentry.bas -glssort.bas -daentry.bas -taentry.bas -fmtentry.bas -eptabs.bas -epcuts.bas -efentry.bas -esentry.bas -mmaint.bas -qmaint.bas -ymaint.bas -bizmii.bas -master7.bas -master8.bas -master9.bas -master15.bas -format.bas -control.bas -readfile.bas -all.bas -check.bas -copyb-a.sub (*) -copya-b.sub (*) -compile.sub -compilep.sub (*) -pipprn.sub (*) -xrefprn.sub (*) -nm -date -gl -glref -glh -gls -glt -glf -ef -es -epc -ept -ma0 - -(*) Not on CPMUG disks. - - - - Table 5 -.pa - Here is a step-by-step list of the operations necessary to get your -system up and running: - -1. Make backup copies of the diskettes supplied. - -2. Put a "system" on each copied diskette using SYSGEN. - -3. PIP a copy of PIP.COM and SUBMIT.COM to each copied diskette. - -4. PIP a copy of CBAS2.COM and XREF.COM to each copied diskette. - -5. Place the copied Program diskette #1 in Drive A. - -6. Place a preformatted diskette labeled "Diskette #1 - .INT - files" in Drive B. - -7. Type "SUBMIT COMPILE " to start the batch compilation of - all .BAS files on the disk. Although the operation will - proceed without your intervention, it is a good idea to - monitor the operation to catch any erroneous compilations or - disk failures. Note any errors and recompile any programs - that fail to compile correctly the first time. - -8. Repeat steps 4, 5, and 6 for diskettes 2 through 5. Label - each .INT diskette with its proper number. - -9. Now SYSGEN a "system" to each .INT diskette. Also PIP a copy - of CRUN2 to each diskette. - -10. You now have an operational set of program diskettes. These - diskettes will always be run in Drive A and are started up - with CRUN2 BIZMII. You must ALWAYS start from BIZMII which - sets up several variables and the %CHAIN function for the - rest of the programs. - -The next step involves creating DATA diskettes for the system. -Normally DATA diskettes will run in Drive B. The exceptions will -be where some posting and printing programs require DATA -diskettes in Drive A and Drive B simultaneously. When this is -required, an appropriate message is built into the system to -advise you. The basic DATA diskette requirements are as follows: - - All DATA diskettes should be preformatted. - -1. GENERAL LEDGER FILE DISKETTE - - PIP the following files from diskette #5 as supplied. These - can be modified later as required. - - a. NM Company name file - b. DATE File containing 8 system dates. - c. GL Sample General Ledger file. - d. GLF Numeric Formats file. - e. GLT General Ledger Tabs file. - f. GLREF General Ledger Account # Reference file. - g. GLH General Ledger HEADINGs file. - h. GLS General Ledger SUBHEADINGs file. - - -2. JOURNAL FILES DISKETTE - - This must be a separate diskette from the GENERAL LEDGER - DISKETTE above. These files will be created by the user as - required. - - a. GLJO General Journal file. - b. GLCD Check Disbursements file. - c. GLCK Check Receipts file. - - -3. PAYROLL FILE DISKETTE - - PIP the following files from diskette #5. These can be - modified later as required. - - a. NM - b. DATE - c. GLF - d. GLT - e. EF Federal Withholding Tables. - f. ES California Withholding Tables. - g. EPC Payroll Cutoffs and percentages. - h. EPT Payroll Check Printing Tabs. - - The following files will be created when appropriate programs - are run. - - i. EP Employee Master Information file. - j. TM Time Card file. - k. EDEP Federal 501 Deposit file. - - -4. CUSTOMER RECEIVABLES FILE DISKETTE - - PIP the following files from diskette #5. These can be - modified later as required. - - a. NM - b. DATE - c. GLF - d. GLT - - The following files will be created when appropriate programs - are run. - - e. CR Customer Master Information file. - - -5. INVOICE REGISTER (ORDER ENTRY) FILE DISKETTE - - Place program diskette #3 in Drive A. Place the INVOICE - REGISTER diskette in Drive B. - - Issue a Control C (hold control key and type letter C). - - Type "CRUN2 INVENT". Creates INV (Invoice # file). - - The system will prompt you to allow Invoice # set-up. - - If you enter a "0", invoices can be randomly numbered. - - If you desire "forced sequential" Invoice numbers, type in - the number of your first invoice. - - The system will take care of the rest. Other files will be - created when appropriate programs are run. - - a. IR Invoice Register (Order) file. - - -6. VENDOR PAYABLES FILE DISKETTE - - This is as #4, Customer diskette. - - e. VP Vendor Master Information file. - - - -7. PURCHASE ORDER REGISTER DISKETTE - - This is as #5 but do CRUN2 POENT to set number. Creates POE. - a. PR Purchase Order Register file. - - -8. INVENTORY / FINISHED GOODS FILE DISKETTE - - This file, if under 50 records, can be placed on the Customer - Information diskette to speed order entry processing. If more - items are required, make a separate diskette and include NM, - DATE, GLF, and GLT. - - -9. ALL OTHER DISKETTES - - All other diskettes except the mailing list files will - require at least NM, DATE, GLF, and GLT. - - - - - *** N O T I C E *** - -In all of the following operations, the first two entries labeled -TAG and REFERENCE # or ACCOUNT #, must be NON-ZERO. - -If the TAG is zero (0), the record is assumed to be deleted and -is ignored. - -If the REFERENCE # or ACCOUNT # is zero (0), the system treats -that record as the last record in the file (end-of-file). - diff --git a/bwbtest/C77B/APPENDF.TXT b/bwbtest/C77B/APPENDF.TXT deleted file mode 100644 index 47ced93..0000000 --- a/bwbtest/C77B/APPENDF.TXT +++ /dev/null @@ -1,617 +0,0 @@ -.pl 66 - APPENDIX F - - General File Information - - Perhaps the most important aspect of any business system is -the general DATA file structure and the way data files are -handled. In this system, all access to general DATA files is -RANDOM or DIRECT. This means that we call each DATA file entry by -a relative record number. - - The records are established via the ??ENTRY and ????TRAN -programs. If a program that requires DATA files is entered and -the file is NOT found on the disk in drive "B", the program -"defaults" to the create new file part. It will ask you to either -insert a diskette with the appropriate file in the drive and type -"c" to continue or, if you want to create the file for the first -time, typing an "n" will cause the system to ask you how many -records you want. - - You should have some notion of the number of records -required. In payroll for example if you have 10 employees, it -would be reasonable to create between 15 and 25 records. In this -way your data files can be established without sample files but -for test purposes, running the sample files included can be very -educational. - - In the file layouts that follow, the contents of each DATA -record are shown. A group of DATA records makes up a file. In -each of the layouts that follow the generic name of the file is -indicated first, followed by the name used on the file diskette. -COMPANY NAME ENTRY FILE is a generic name, NM is the actual file -name on the diskette. Each record is 170 total bytes or -characters long and contains the entries shown as Items 1 through -11. - - The Item is followed by a description and a byte or character -length for each item. The variable name most commonly used is the -last entry. - - - - -NAME ENTRY FILE NA (170 bytes) - -Item # Description Bytes Expression - -1 Tag 4 N(2,1) -2 Ref Number 10 N(2,2) -3 Name 24 K$(3,3) -4 Company 24 K$(3,4) -5 Address 24 K$(3,5) -6 City 17 K$(3,6) -7 State 2 K$(3,7) -8 Zip Code 5 K$(3,8) -9 Telephone 14 K$(3,9) -10 Federal Tax ID # 20 K$(3,10) -11 State Tax ID # 20 K$(3,11) - - -DATE INFORMATION DATE - - -Item # Description Bytes Expression - -1 Current date 8 D$(1) -2 Period ending 8 D$(2) -3 Prev period ending 8 D$(3) -4 Month ending 8 D$(4) -5 Quarter ending 8 D$(5) -6 Year ending 8 D$(6) -7 Reserved 8 D$(7) -8 Fiscal ending 8 D$(8) - - - - - - - - - - -GENERAL LEDGER REPORT TABS GLT - - -Item # Description Bytes Expression - -1 Page width 3 T%(1) -2 Tag tab 3 T%(2) -3 Account number tab 3 T%(3) -4 Major heading tab 3 T%(4) -5 Subheading tab 3 T%(5) -6 Partial total tab 3 T%(6) -7 Partial tot dollar tab 3 T%(7) -8 Final total tab 3 T%(8) -9 Final tot dollar tab 3 T%(9) -10 Date tab 3 T%(10) -11 Page number tab 3 T%(11) -12 Comp Name in Use Tag 3 T%(12) -13 Lowest Bal Sht Acct # 10 T(13) -14 Highest Bal Sht Acct # 10 T(14) -15 Low Cost of Gds Acct # 10 T(15) -16 Hi Cost of Gds Acct # 10 T(16) - - -GENERAL LEDGER FORMATS GLF - - -Item # Description Bytes Expression - -1 Dollar formats 20 L$ -2 Percentage formats 20 P$ - - - - - - - - - - -GENERAL LEDGER HEADING FILE GLH (150 bytes) - - -Item # Description Bytes Expression - -1 Tag 4 N(2,1) -2 Ledger Acct Number 10 N(2,2) -3 Description 30 K$(3,3) -4 First Acct Number 10 N(2,4) -5 Last Acct Number 10 N(2,5) -6 M-T-D Amount 12 N(2,6) -7 Q-T-D Amount 12 N(2,7) -8 Y-T-D Amount 12 N(2,8) -9 M-T-D Percent 12 N(2,9) -10 Q-T-D Percent 12 N(2,10) -11 Y-T-D Percent 12 N(2,11) - - -GENERAL LEDGER SUBHEADING FILE GLS (150 bytes) - - -Item # Description Bytes Expression - -1 Tag 4 N(2,1) -2 Ledger Acct Number 10 N(2,2) -3 Description 30 K$(3,3) -4 First Acct Number 10 N(2,4) -5 Last Acct Number 10 N(2,5) -6 M-T-D Amount 12 N(2,6) -7 Q-T-D Amount 12 N(2,7) -8 Y-T-D Amount 12 N(2,8) -9 M-T-D Percent 12 N(2,9) -10 Q-T-D Percent 12 N(2,10) -11 Y-T-D Percent 12 N(2,11) - - - - - - -PAYROLL CUTOFF AMOUNTS EPC - - -Item # Description Bytes Expression - -1 FICA Cutoff 12 C(1) -2 FICA Percent 12 C(2) -3 SDI Cutoff 12 C(3) -4 SDI Percent 12 C(4) -5 FUTA Cutoff 12 C(5) -6 FUTA Percent 12 C(6) -7 SUTA Cutoff 12 C(7) -8 SUTA Percent 12 C(8) - -Settings -FICA 29,700 .0665 -SDI 11,400 .01 -FUTA 6,000 .007 -SUTA 6,000 ? - - -.pa -GENERAL LEDGER FILE GL (138 bytes) - - -Item # Description Bytes Expression - -1 Tag 4 N(2,1) -2 Ledger Acct Number 10 N(2,2) -3 Description 30 K$(3,3) -4 Month to date amt 12 N(2,4) -5 Quarter to date amt 12 N(2,5) -6 Year to date amt 12 N(2,6) -7 Prev m to date 12 N(2,7) -8 Prev q to date 12 N(2,8) -9 Prev y to date 12 N(2,9) -10 Budgeted amt 12 N(2,10) - - -GENERAL JOURNAL GLJO (250 bytes) - -Item # Description Bytes Expression - -1 Tag 8 N(2,1) -2 Major Acct # 10 N(2,2) -3 Date 8 K$(3,3) -4 To record 24 K$(3,4) -5 Remarks 24 K$(3,5) -6 Not used 1 K$(3,6) -7 Major Amt 12 N(2,7) -8 #1 Acct # 10 N(2,8) -9 #1 Amount 12 N(2,9) -10 #2 Acct # 10 N(2,10) -11 #2 Amount 12 N(2,11) -12 #3 Acct # 10 N(2,12) -13 #3 Amount 12 N(2,13) -14 #4 Acct # 10 N(2,14) -15 #4 Amount 12 N(2,15) -16 #5 Acct # 10 N(2,16) -17 #5 Amount 12 N(2,17) -18 #6 Acct # 10 N(2,18) -19 #6 Amount 12 N(2,19) -CHECK DISBURSEMENTS GLCD (250 bytes) - -Item # Description Bytes Expression - -1 Check # 8 N(2,1) -2 Bank Acct # 10 N(2,2) -3 Date 8 K$(3,3) -4 In favor of 24 K$(3,4) -5 Remarks 24 K$(3,5) -6 Print Check(Y/N) 1 K$(3,6) -7 Amount of check 12 N(2,7) -8 #1 Acct # 10 N(2,8) -9 #1 Amount 12 N(2,9) -10 #2 Acct # 10 N(2,10) -11 #2 Amount 12 N(2,11) -12 #3 Acct # 10 N(2,12) -13 #3 Amount 12 N(2,13) -14 #4 Acct # 10 N(2,14) -15 #4 Amount 12 N(2,15) -16 #5 Acct # 10 N(2,16) -17 #5 Amount 12 N(2,17) -18 #6 Acct # 10 N(2,18) -19 #6 Amount 12 N(2,19) - - -CHECK RECEIPTS GLCK (250 bytes) - -Item # Description Bytes Expression - -1 Cust Tag # 8 N(2,1) -2 Deposit Acct # 10 N(2,2) -3 Date 8 K$(3,3) -4 From 24 K$(3,4) -5 For(remarks) 24 K$(3,5) -6 Deposit Slip(Y/N) 1 K$(3,6) -7 Amount of check 12 N(2,7) -8 #1 Acct # 10 N(2,8) -9 #1 Amount 12 N(2,9) -10 #2 Acct # 10 N(2,10) -11 #2 Amount 12 N(2,11) -12 #3 Acct # 10 N(2,12) -13 #3 Amount 12 N(2,13) -14 #4 Acct # 10 N(2,14) -15 #4 Amount 12 N(2,15) -16 #5 Acct # 10 N(2,16) -17 #5 Amount 12 N(2,17) -18 #6 Acct # 10 N(2,18) -19 #6 Amount 12 N(2,19) - - -CONSOLIDATED EMPLOYEE PAYROLL EP (512 bytes) - -Item # Description Bytes Expression - -1 Employee # 8 N(2,1) -2 Acct Number 10 N(2,2) -3 Name 24 K$(3,3) -4 Company 24 K$(3,4) -5 Address 24 K$(3,5) -6 City 17 K$(3,6) -7 State 2 K$(3,7) -8 Zip Code 5 K$(3,8) -9 Telephone 14 K$(3,9) -10 Soc Sec # 11 K$(3,10) -11 Emp Date 8 K$(3,11) -12 Term Date 8 K$(3,12) -13 Marital Stat 2 K$(3,13) -14 Hourly of salaried 1 K$(3,14) -15 Pay periods - W/B/S/M 1 K$(3,15) -16 Num of Exemptions 4 N(2,16) -17 Hourly Rate 6 N(2,17) -18 Hours this period 6 N(2,18) -19 Quar to date hrs 6 N(2,19) -20 Year to date hrs 6 N(2,20) - -Record X+1 - -1 Gross Pay 12 N(0,1) -2 Q-T-D Gross Pay 12 N(0,2) -3 Y-T-D Gross Pay 12 N(0,3) -4 FICA 12 N(0,4) -5 Q-T-D FICA 12 N(0,5) -6 Y-T-D FICA 12 N(0,6) -7 Federal Tax 12 N(0,7) -8 Q-T-D Federal Tax 12 N(0,8) -9 Y-T-D Federal Tax 12 N(0,9) -10 State Tax 12 N(0,10) -11 Q-T-D State Tax 12 N(0,11) -12 Y-T-D State Tax 12 N(0,12) -13 State Disability 12 N(0,13) -14 Q-T-D SDI 12 N(0,14) -15 Y-T-D SDI 12 N(0,15) -16 Misc Deductions 12 N(0,16) -17 Q-T-D Misc Ded 12 N(0,17) -18 Y-T-D Misc Ded 12 N(0,18) - - -TIME CARD RECORD TM (128 bytes) - -Item # Description Bytes Expression - -1 Employee # 8 N(2,1) -2 Acct Number 10 N(2,2) -3 Name 24 K$(3,3) -4 Pay period # 4 N(2,4) -5 Reportable tips 12 N(2,5) -6 Misc deductions 12 N(2,6) -7 Regular hours 4 N(2,7) -8 Time & 1/2 hours 4 N(2,8) -9 Double time hours 4 N(2,9) -10 Sick time hours 4 N(2,10) -11 Holiday time hours 4 N(2,11) -12 Vacation hours 4 N(2,12) - -.pa -CONSOLIDATED EMPLOYEE PAYROLL CEP - -Item # Description Bytes Expression - -16 Num of Exemptions 4 N -17 Hourly Rate 6 R -18 Hours this period 6 H1 -19 Quar to date hrs 6 H2 -20 Year to date hrs 6 H3 - -Record X+1 - -1 Gross pay 12 E0 -2 Q-T-D Gross pay 12 E1 -3 Y-T-D Gross pay 12 E2 -4 FICA 12 F1 -5 Q-T-D FICA 12 F2 -6 Y-T-D FICA 12 F3 -7 Federal Tax 12 E3 -8 Q-T-D Federal Tax 12 E4 -9 Y-T-D Federal Tax 12 E5 -10 State Tax 12 E6 -11 Q-T-D State Tax 12 E7 -12 Y-T-D State Tax 12 E8 -13 State Disability 12 S1 -14 Q-T-D SDI 12 S2 -15 Y-T-D SDI 12 S3 -16 Misc Deductions 12 M1 -17 Q-T-D Misc Ded 12 M2 -18 Y-T-D Misc Ded 12 M3 - -.pa -Hourly payroll is calculated on full hours worked. - -For salaried employees, actual hours worked is carried -but payroll is calculated on number of hours in the -payroll period. - -WEEKLY=W 52 periods/year 7 days 40 hours -BIWEEKLY=B 26 periods/year 14 days 80 hours -SEMIMON=S 24 periods/year 15.2 days 86.66667 hours -MONTHLY=M 12 periods/year 30.4 days 173.33333 hours - - -FEDERAL DEPOSIT RECORD EDEP (64 bytes) - -Item # Description Bytes Expression - -1 Quarter(1,2,3 or 4) 1 N(2,1) -2 Month(1,2,3) 1 N(2,2) -3 Period(1,2,3 or 4) 1 N(2,3) -4 Tax liability 12 N(2,4) -5 Amt of deposit 12 N(2,5) -6 Check # 8 K$(2,6) -7 Date of deposit 8 K$(2,7) -.pa -CUSTOMER RECEIVABLES FILE CR (384 bytes) - -Item # Description Bytes Expression - -1 Tag 4 N(2,1) -2 Acct Number 10 N(2,2) -3 Name (attention) 24 K$(3,3) -4 Company 24 K$(3,4) -5 Address 24 K$(3,5) -6 City 17 K$(3,6) -7 State 2 K$(3,7) -8 Zip Code 5 K$(3,8) -9 Phone 14 K$(3,9) - -Shipping - -10 Name (attention) 24 K$(3,10) -11 Company 24 K$(3,11) -12 Address 24 K$(3,12) -13 City 17 K$(3,13) -14 State 2 K$(3,14) -15 Zip Code 5 K$(3,15) -16 Phone 14 K$(3,16) -17 Date of last pmnt 8 K$(3,17) - -Record X+1 - -1 Amt of last pmnt 12 N(2,3) -2 Total y to date 12 N(2,4) -3 Current charges 12 N(2,5) -4 30-60 days 12 N(2,6) -5 61-90 days 12 N(2,7) -6 Over 90 days 12 N(2,8) - - -.pa -INVOICE REGISTER IR (384 bytes) - -Item # Description Bytes Expression - -1 Tag 8 N(2,1) -2 A/R Acct # 10 N(2,2) -3 Invoice # 10 N(2,3) -4 Salesman 24 K$(3,4) -5 Cust. Order # 24 K$(3,5) -6 Shipping date 8 K$(3,6) -7 Carrier (via) 8 K$(3,7) -8 FOB Point 10 K$(3,8) -9 Terms 10 K$(3,9) -10 Tax Code 1 K$(3,10) -11 Post,invoice,register 4 K$(3,11) -12 Customer Tag # 4 N(2,12) -13 Shipping Chgs 12 N(2,13) - -Record X+1 - -1 - 10 Finished Goods Tag 4 G(1) - G(10) -1 - 10 Quantity 10 Q(1) - Q(10) - -Calculate total invoice amount -Calculate sales tax - -Questions: -1. Do you want a picture of finished invoice -2. Do you want order pick slips -3. Shall we backorder low of out-of-stock items - - -.pa -VENDOR PAYABLES FILE VP (384 bytes) - -Item # Description Bytes Expression - -1 Tag 4 N(2,1) -2 Acct Number 10 N(2,2) -3 Name (attention) 24 K$(3,3) -4 Company 24 K$(3,4) -5 Address 24 K$(3,5) -6 City 17 K$(3,6) -7 State 2 K$(3,7) -8 Zip Code 5 K$(3,8) -9 Phone 14 K$(3,9) - -Shipping - -10 Name (attention) 24 K$(3,10) -11 Company 24 K$(3,11) -12 Address 24 K$(3,12) -13 City 17 K$(3,13) -14 State 2 K$(3,14) -15 Zip Code 5 K$(3,15) -16 Phone 14 K$(3,16) -17 Date of last pmnt 8 K$(3,17) - -Record X+1 - -1 Amt of last pmnt 12 N(2,3) -2 Total y to date 12 N(2,4) -3 Current charges 12 N(2,5) -4 30-60 days 12 N(2,6) -5 61-90 days 12 N(2,7) -6 Over 90 days 12 N(2,8) - - -.pa -PURCHASE ORDER REGISTER PO (384 bytes) - -Item # Description Bytes Expression - -1 Tag 8 N(2,1) -2 A/P Acct # 10 N(2,2) -3 Purchase order # 10 N(2,3) -4 Buyer 24 K$(3,4) -5 Our Order # 24 K$(3,5) -6 Required date 8 K$(3,6) -7 Carrier (via) 8 K$(3,7) -8 FOB Point 10 K$(3,8) -9 Terms 10 K$(3,9) -10 Tax Code 1 K$(3,10) -11 Post,invoice,register 4 K$(3,11) -12 Vendor Tag # 4 N(2,12) -13 Shipping chgs 12 N(2,13) - -Record X+1 - -1 - 10 Finished Goods Tag 4 G(1) - G(10) -1 - 10 Quantity 10 Q(1) - Q(10) -.pa -FINISHED GOODS INVENTORY FG (256 bytes) - -Item # Description Bytes Expression - -1 Tag 4 N(2,1) -2 Acct Number 10 N(2,2) -3 Item # 7 K$(3,3) -4 Part # 12 K$(3,4) -5 Description 24 K$(3,5) -6 Location(shelf,bin) 24 K$(3,6) -7 Date of last issue 8 K$(3,7) -8 Date of last receipt 8 K$(3,8) -9 Vendor Code 10 K$(3,9) -10 Vendor Tag # 4 N(2,10) -11 Unit Cost 12 N(2,11) -12 Selling Price 12 N(2,12) -13 Quan on hand 8 N(2,13) -14 Quan on order 8 N(2,14) -15 Quan issued m-t-d 10 N(2,15) -16 Quan issued q-t-d 10 N(2,16) -17 Quan issued y-t-d 10 N(2,17) -18 Min quan (stock) 10 N(2,18) -19 Max quan (stock) 10 N(2,19) - -Calculate average cost -Calculate reorder quantity - - -.pa -RAW GOODS INVENTORY RG (256 bytes) - -Item # Description Bytes Expression - -1 Tag 4 N(2,1) -2 Acct Number 10 N(2,2) -3 Item # 7 K$(3,3) -4 Part # 12 K$(3,4) -5 Description 24 K$(3,5) -6 Location(shelf,bin) 24 K$(3,6) -7 Date of last issue 8 K$(3,7) -8 Date of last receipt 8 K$(3,8) -9 Vendor Code 10 K$(3,9) -10 Vendor Tag # 4 N(2,10) -11 Unit Cost 12 N(2,11) -12 Selling Price 12 N(2,12) -13 Quan on hand 8 N(2,13) -14 Quan on order 8 N(2,14) -15 Quan issued m-t-d 10 N(2,15) -16 Quan issued q-t-d 10 N(2,16) -17 Quan issued y-t-d 10 N(2,17) -18 Min quan (stock) 10 N(2,18) -19 Max quan (stock) 10 N(2,19) - - -Calculate average cost -Calculate reorder quantity -.pa -MAILING LIST FILE MA (150 bytes) - -Item # Description Bytes Expression - -1 Tag 4 N(2,1) -2 Ref Number 10 N(2,2) -3 Name 24 K$(3,3) -4 Company 24 K$(3,4) -5 Address 24 K$(3,5) -6 City 17 K$(3,6) -7 State 2 K$(3,7) -8 Zip Code 5 K$(3,8) -9 Telephone 14 K$(3,9) -.pa -CAPITAL GOODS INVENTORY CG (256 bytes) - -Item # Description Bytes Expression - -1 Tag 4 N(2,1) -2 Fixed Asset Acct # 10 N(2,2) -3 Depreciation Acct # 10 N(2,3) -4 Description 24 K$(3,4) -5 Location 24 K$(3,5) -6 New or Used 1 K$(3,6) -7 Date acquired 8 K$(3,7) -8 Depreciation method 2 K$(3,8) -9 Cost or Basis 12 N(2,9) D1 -10 Depreciable basis 12 N(2,10) D2 -11 Prior years dep. 12 N(2,11) D3 -12 Useful life 4 N(2,12) D4 -13 Remaining life 4 N(2,13) D5 -14 Month to date dep. 12 N(2,14) D6 -15 Quarter to date dep. 12 N(2,15) D7 -16 Year to date dep. 12 N(2,16) D8 -17 Salvage value 12 N(2,17) D9 - diff --git a/bwbtest/C77B/APPENDG.TXT b/bwbtest/C77B/APPENDG.TXT deleted file mode 100644 index 0ad1bf6..0000000 --- a/bwbtest/C77B/APPENDG.TXT +++ /dev/null @@ -1,257 +0,0 @@ -.pl 66 - APPENDIX G - -ASSETS - -Tag Account # Description -*********************************************************** -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ - -.pa -LIABILITIES - -Tag Account # Description -*********************************************************** -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ - -.pa -EQUITY - -Tag Account # Description -*********************************************************** -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ - -.pa -SALES - -Tag Account # Description -*********************************************************** -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ - -.pa -EXPENSES - -Tag Account # Description -*********************************************************** -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ - -.pa -HEADINGS - -Tag Account # Description 1st Acct 2nd Acct - Number Number -*********************************************************** -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ - -.pa -SUBHEADINGS - -Tag Account # Description 1st Acct 2nd Acct - Number Number -*********************************************************** -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ - - diff --git a/bwbtest/C77B/APPENDH.TXT b/bwbtest/C77B/APPENDH.TXT deleted file mode 100644 index a77045c..0000000 --- a/bwbtest/C77B/APPENDH.TXT +++ /dev/null @@ -1,37 +0,0 @@ -.pl 66 - APPENDIX H - - It is possible to increase the size of a file. Each file has -an associated SIZE file created with it and maintained throughout -its life. For the GL file (for example) this file is called -GLSIZE. - - When examined using any CPM Editor this file will be found to -contain two numbers separated by a comma such as 38,100. The -first number is the NEXT AVAILABLE RECORD. The second number is -the TOTAL RECORDS. - - The following steps will allow the file size to be increased. - -1. Use any CPM Editor to enter the xxSIZE file as you would - enter any document file. - -2. Change the number AFTER the comma to the new file size you - desire. - -3. Exit from the editor and erase any .BAK file. - -4. Immediately start the system and proceed with the necessary - menu calls to the General Ledger Entry program (in this - example) or whatever file you are changing. - -5. Immediately do a BACK-UP AND SORT operation. The numbers - shown in the menu before the BACK-UP AND SORT operation will - be the new numbers you have entered but the actual data file - WILL NOT have been increased in size to accomodate the extra - records. Running the BACK-UP AND SORT operation is the ONLY - way to physically increase the size of the data file. - - Obviously it is better to create a file with ample space to -begin with but Murphy's Law DOES prevail. - \ No newline at end of file diff --git a/bwbtest/C77B/BIZMII.BAS b/bwbtest/C77B/BIZMII.BAS deleted file mode 100644 index b954176..0000000 --- a/bwbtest/C77B/BIZMII.BAS +++ /dev/null @@ -1,100 +0,0 @@ -1 rem This is the Master Menu Businessmaster II. (bizmii) - -%INCLUDE ALL.BAS -%INCLUDE CHECK.BAS - -500 CONSOLE -RESTORE -1025 print clear$:print -print "*** BusinessMaster II Master Menu ***" -print -2000 PRINT "1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS" : REM MASTER1 -2010 PRINT -2020 PRINT "2 - ORDER ENTRY/RECEIVABLES OPERATIONS" : REM MASTER2 -2030 PRINT -2040 PRINT "3 - PURCHASE ORDER/PAYABLES OPERATIONS" : REM MASTER3 -2050 PRINT -2060 PRINT "4 - INVENTORY OPERATIONS" : REM MASTER4 -2070 PRINT -2080 PRINT "5 - EMPLOYEE PAYROLL OPERATIONS" : REM MASTER5 -2090 PRINT -2100 PRINT "6 - MAILING LIST OPERATIONS" : REM MASTER6 -2110 PRINT -IF CHECK5<>1 THEN PRINT ON$; -2120 PRINT "7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM";"/ * DAILY DATE CHANGE *" : REM MASTER7 -IF CHECK5<>1 THEN PRINT OFF$; -2130 PRINT -2140 PRINT "8 - PERIODIC FILE MAINTENANCE" : REM MASTER8 -2150 PRINT -2160 PRINT "9 - FINISHED" -3000 PRINT -3010 INPUT Z -IF Z=20 THEN GOSUB 9600:GOTO 1025 -3020 IF Z<1 OR Z>9 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400 -9000 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #1." -9010 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$ -initialize -9020 CHAIN "MASTER1" -9050 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #3." -9060 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$ -initialize -9070 CHAIN "MASTER2" -9100 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #3." -9110 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$ -initialize -9120 CHAIN "MASTER3" -9150 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #4." -9160 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$ -initialize -9170 CHAIN "MASTER4" -9200 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #2." -9210 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$ -initialize -9220 CHAIN "MASTER5" -9250 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #4." -9260 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$ -initialize -9270 CHAIN "MASTER6" -initialize -9300 CHAIN "MASTER7" -9350 PRINT clear$:PRINT:PRINT"INSTALL PROGRAM DISK #5." -9360 PRINT:INPUT "TYPE RETURN WHEN READY.";line temp$ -initialize -9370 CHAIN "MASTER8" -9400 IF Z>8 THEN 9700 -9500 GOTO 1025 -9600 PRINT CLEAR$; -PRINT "DATES FOR THIS RUN :" -FOR I%=1 TO 8 -PRINT I%,DATE1$(I%),D$(I%) -NEXT I% -PRINT -PRINT "NAME FOR THIS RUN :" -PRINT -PRINT LEFT$(CO.NAME$,48) -PRINT -PRINT "TABS FOR THIS RUN :" -L$="#####" -PRINT USING L$;T%(1);T%(2);T%(3);T%(4);T%(5);T%(6);T%(7);T%(8) -PRINT USING L$;T%(9);T%(10);T%(11);T%(12);A(13);A(14);A(15);A(16) -PRINT -PRINT "PRINT FORMATS FOR THIS RUN :" -PRINT LLL$,PPP$ -input "To continue type ";line temp$ -RETURN -9700 REM SETUP BOOT -REM CREATE "$$$.SUB" RECL 128 AS 20 -REM PRINT #20;"CRUN2 BIZMII.INT$ " -REM CLOSE 20 -PRINT CLEAR$ -PRINT CUR$ -PRINT " *********** SYSTEM SHUT-DOWN ***********" -PRINT:PRINT -PRINT " TAKE YOUR DISKS OUT OF ALL DRIVES" -PRINT -PRINT " THEN TURN YOUR SYSTEM OFF" -9800 REM GOTO 9800 -REM %CHAIN 50,10500,700,1000 -END - diff --git a/bwbtest/C77B/BIZMII.INP b/bwbtest/C77B/BIZMII.INP deleted file mode 100644 index c243667..0000000 --- a/bwbtest/C77B/BIZMII.INP +++ /dev/null @@ -1,253 +0,0 @@ -1 -OK -2 -OK -5 -OK -6 -OK -Y -O -7 -OK -O -Y -8 -OK -9 -OK -2 -OK -3 -OK -OK -OK -OK -OK -OK -4 -OK -OK -OK -OK -OK -OK -5 -OK -OK -OK -OK -OK -OK -8 -OK -2 -2.6 -2 -6 -OK -3 -OK -3 -OK -OK -OK -OK -4 -OK -OK -OK -OK -4 -OK -OK -OK -OK -5 -OK -OK -OK -OK -7 -OK -OK -8 -OK -2 -2.6 -2 -6 -OK -4 -OK -3 -OK -4 -OK -5 -OK -6 -OK -7 -OK -3 -OK -OK -4 -OK -OK -1234567890 -5 -8 -OK -5 -OK -3 -OK -4 -OK -5 -OK -N -OK -8 -OK -1 -OK -0 -0 -0 -4 -0 -0 -12/31/78 -8 -OK -2 -8 -OK -3 -OK -NO -NO -NO -TX -OK -9 -OK -6 -OK -2 -OK -MA0 -2 -2.6 -2 -3 -OK -2 -2.6 -2 -4 -OK -2 -2.6 -2 -5 -OK -2 -2.6 -2 -6 -OK -7 -1 -OK -2 -NO -OK -6 -2 -OK -2 -OK -6 -OK -7 -3 -OK -2 -NO -OK -6 -4 -1 -OK -8 -2 -1 -F -9 -OK -7 -4 -2 -OK -8 -2 -1 -F -9 -OK -7 -4 -3 -5 -OK -2 -1 -F -8 -9 -OK - -1 -OK -1 -OK -1 -100 -110 -THIS IS A TEST -11 -NO -YES -8 -3 -70 -10 -111111.11 -YES -4 -2222.22 -YES -5 -33333.33 -YES -11 -NO -YES -8 -3 -70 -6 -44444.44 -NO -YES -8 -9 -8 -OK -9 -OK -9 diff --git a/bwbtest/C77B/BIZMII.run b/bwbtest/C77B/BIZMII.run deleted file mode 100644 index e784b0f..0000000 --- a/bwbtest/C77B/BIZMII.run +++ /dev/null @@ -1,3190 +0,0 @@ - - -LOADING DATES - -LOADING FORMATS - -LOADING TABS - -LOADING NAMES - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 1 - - -INSTALL PROGRAM DISK #1. - -TYPE RETURN WHEN READY.? OK - - -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPTS TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED - -? 2 - - -Install appropriate General Ledger disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING CHART OF ACCOUNTS - - -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPTS TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED - -? 5 - - -Install appropriate General Ledger disk in Drive B: - -Type return to continue.? OK -6403 < 6404 - LINE OUT OF ORDER: 6403 IF N(2,2)=0 THEN - - - - -PRINTING TRIAL BALANCE - - -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPTS TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED - -? 6 - - -Install appropriate General Ledger disk in Drive B: - -Type return to continue.? OK - - -IS THIS BALANCE SHEET TO BE FOR THE MONTH TO DATE, -QUARTER TO DATE, OR YEAR TO DATE (M, Q, OR Y)? -? Y - -DO YOU WANT AN ORDINARY OR A COMPARATIVE -BALANCE SHEET (O OR C) ? -? O - - - - -PRINTING BALANCE SHEET - - -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPTS TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED - -? 7 - - -Install appropriate General Ledger disk in Drive B: - -Type return to continue.? OK - - -DO YOU WANT AN ORDINARY OR A COMPARATIVE INCOME STATEMENT (O OR C) ? ? O - -IS THIS INCOME STATEMENT TO BE FOR THE MONTH TO DATE, -QUARTER TO DATE, OR YEAR TO DATE (M, Q, OR Y)? -? Y - - - - -PRINTING INCOME STATEMENT - - -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPTS TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED - -? 8 - - -Install appropriate General Ledger disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING EXPENSE BUDGET ANALYSIS - - -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPTS TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED - -? 9 - - -Replace program disk #5 in drive A. -Type return to continue. -? OK - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 2 - - -INSTALL PROGRAM DISK #3. - -TYPE RETURN WHEN READY.? OK - - -*** SALES ORDER ENTRY / CUSTOMER RECEIVABLES MENU *** - -1 - ENTER NEW CUSTOMER INFORMATION - -2 - ENTER CUSTOMER ORDERS - -3 - LIST CUSTOMER ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) INVOICES - -5 - PRINT PRE-PRINTED INVOICES - -6 - POST ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS RECEIVABLE REPORT - -8 - PRINT CUSTOMER LABELS - -9 - FINISHED - -? 3 - - -Install appropriate Customer Information disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING INVOICE REGISTER - -INSTALL INVOICE REGISTER DISK IN DRIVE A - -INSTALL A CUSTOMER DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - - -RECORDS TO BE PRINTED 4 - - -TO PRINT REGISTER, TYPE RETURN.? OK - - -INSTALL THE APPROPRIATE FINISHED GOODS DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - -INSTALL CUSTOMER DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - -INSTALL PROGRAM DISK IN DRIVE A - - -TYPE RETURN TO CONTINUE ? OK - - -*** SALES ORDER ENTRY / CUSTOMER RECEIVABLES MENU *** - -1 - ENTER NEW CUSTOMER INFORMATION - -2 - ENTER CUSTOMER ORDERS - -3 - LIST CUSTOMER ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) INVOICES - -5 - PRINT PRE-PRINTED INVOICES - -6 - POST ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS RECEIVABLE REPORT - -8 - PRINT CUSTOMER LABELS - -9 - FINISHED - -? 4 - - -Install appropriate Customer Information disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING INVOICES - -INSTALL INVOICE REGISTER DISK IN DRIVE A - -INSTALL A CUSTOMER DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - - -INVOICES TO BE PRINTED 4 - - -TO PRINT INVOICES, TYPE RETURN.? OK - - -INSTALL THE APPROPRIATE FINISHED GOODS DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - -INSTALL CUSTOMER DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - -INSTALL PROGRAM DISK IN DRIVE A - - -TYPE RETURN TO CONTINUE ? OK - - -*** SALES ORDER ENTRY / CUSTOMER RECEIVABLES MENU *** - -1 - ENTER NEW CUSTOMER INFORMATION - -2 - ENTER CUSTOMER ORDERS - -3 - LIST CUSTOMER ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) INVOICES - -5 - PRINT PRE-PRINTED INVOICES - -6 - POST ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS RECEIVABLE REPORT - -8 - PRINT CUSTOMER LABELS - -9 - FINISHED - -? 5 - - -Install appropriate Customer Information disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING INVOICES - -INSTALL INVOICE REGISTER DISK IN DRIVE A - -INSTALL A CUSTOMER DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - - -INVOICES TO BE PRINTED 4 - - -TO PRINT INVOICES, TYPE RETURN.? OK - - -INSTALL THE APPROPRIATE FINISHED GOODS DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - -INSTALL CUSTOMER DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - -INSTALL PROGRAM DISK IN DRIVE A - - -TYPE RETURN TO CONTINUE ? OK - - -*** SALES ORDER ENTRY / CUSTOMER RECEIVABLES MENU *** - -1 - ENTER NEW CUSTOMER INFORMATION - -2 - ENTER CUSTOMER ORDERS - -3 - LIST CUSTOMER ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) INVOICES - -5 - PRINT PRE-PRINTED INVOICES - -6 - POST ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS RECEIVABLE REPORT - -8 - PRINT CUSTOMER LABELS - -9 - FINISHED - -? 8 - - -Install appropriate Customer Information disk in Drive B: - -Type return to continue.? OK - - - -THIS IS THE MAILING LABEL PRINTING ROUTINE. - -IF YOU ARE NOT FAMILIAR WITH ITS OPERATION, PLEASE -READ THE INSTRUCTIONS BEFORE PROCEEDING. - - -HOW MANY LABELS ACROSS THE PAGE (1 TO 5)? 2 - - -INDICATE THE DISTANCE BETWEEN THE LEFT EDGES OF -ANY TWO LABELS IN DECIMAL INCHES (I.E. 2.6). -? 2.6 - - -INDICATE THE NUMBER OF SPACES BETWEEN LABELS (I.E. 2). -? 2 - - - -LABELS TO PRINT 3 - - - - -*** MAILING LIST MENU *** - -1 - UPDATE MAILING LIST - -2 - PRINT MAILING LABELS - -3 - PRINT CUSTOMER LABELS - -4 - PRINT VENDOR LABELS - -5 - PRINT EMPLOYEE LABELS - -6 - FINISHED - -? 6 - - -Replace program disk #5 in drive A. -Type return to continue. -? OK - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 3 - - -INSTALL PROGRAM DISK #3. - -TYPE RETURN WHEN READY.? OK - - -*** PURCHASE ORDER ENTRY / VENDOR PAYABLES MENU *** - -1 - ENTER NEW VENDOR INFORMATION - -2 - ENTER PURCHASE ORDERS - -3 - LIST PURCHASE ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) PURCHASE ORDERS - -5 - PRINT PRE-PRINTED PURCHASE ORDERS - -6 - POST PURCHASE ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS PAYABLE REPORT - -8 - PRINT VENDOR LABELS - -9 - FINISHED - -? 3 - - -Install appropriate Vendor Information disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING PURCHASE ORDER REGISTER - -INSTALL PURCHASE ORDER REGISTER DISK IN DRIVE A - -INSTALL A VENDOR DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - - -RECORDS TO BE PRINTED 1 - - -TO PRINT REGISTER, TYPE RETURN.? OK - - -INSTALL PROGRAM DISK IN DRIVE A - - -TYPE RETURN TO CONTINUE ? OK - - -*** PURCHASE ORDER ENTRY / VENDOR PAYABLES MENU *** - -1 - ENTER NEW VENDOR INFORMATION - -2 - ENTER PURCHASE ORDERS - -3 - LIST PURCHASE ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) PURCHASE ORDERS - -5 - PRINT PRE-PRINTED PURCHASE ORDERS - -6 - POST PURCHASE ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS PAYABLE REPORT - -8 - PRINT VENDOR LABELS - -9 - FINISHED - -? 4 - - -Install appropriate Vendor Information disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING PURCHASE ORDERS - -INSTALL PURCHASE ORDER REGISTER DISK IN DRIVE A - -INSTALL A VENDOR DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - - -PURCHASE ORDERS TO BE PRINTED 1 - - -TO PRINT PURCHASE ORDERS, TYPE RETURN.? OK - - -INSTALL PROGRAM DISK IN DRIVE A - - -TYPE RETURN TO CONTINUE ? OK - - -*** PURCHASE ORDER ENTRY / VENDOR PAYABLES MENU *** - -1 - ENTER NEW VENDOR INFORMATION - -2 - ENTER PURCHASE ORDERS - -3 - LIST PURCHASE ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) PURCHASE ORDERS - -5 - PRINT PRE-PRINTED PURCHASE ORDERS - -6 - POST PURCHASE ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS PAYABLE REPORT - -8 - PRINT VENDOR LABELS - -9 - FINISHED - -? 4 - - -Install appropriate Vendor Information disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING PURCHASE ORDERS - -INSTALL PURCHASE ORDER REGISTER DISK IN DRIVE A - -INSTALL A VENDOR DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - - -PURCHASE ORDERS TO BE PRINTED 1 - - -TO PRINT PURCHASE ORDERS, TYPE RETURN.? OK - - -INSTALL PROGRAM DISK IN DRIVE A - - -TYPE RETURN TO CONTINUE ? OK - - -*** PURCHASE ORDER ENTRY / VENDOR PAYABLES MENU *** - -1 - ENTER NEW VENDOR INFORMATION - -2 - ENTER PURCHASE ORDERS - -3 - LIST PURCHASE ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) PURCHASE ORDERS - -5 - PRINT PRE-PRINTED PURCHASE ORDERS - -6 - POST PURCHASE ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS PAYABLE REPORT - -8 - PRINT VENDOR LABELS - -9 - FINISHED - -? 5 - - -Install appropriate Vendor Information disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING PURCHASE ORDERS - -INSTALL PURCHASE ORDER REGISTER DISK IN DRIVE A - -INSTALL A VENDOR DISK IN DRIVE B - - -TYPE RETURN TO CONTINUE ? OK - - - -PURCHASE ORDERS TO BE PRINTED 1 - - -TO PRINT PURCHASE ORDERS, TYPE RETURN.? OK - - -INSTALL PROGRAM DISK IN DRIVE A - - -TYPE RETURN TO CONTINUE ? OK - - -*** PURCHASE ORDER ENTRY / VENDOR PAYABLES MENU *** - -1 - ENTER NEW VENDOR INFORMATION - -2 - ENTER PURCHASE ORDERS - -3 - LIST PURCHASE ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) PURCHASE ORDERS - -5 - PRINT PRE-PRINTED PURCHASE ORDERS - -6 - POST PURCHASE ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS PAYABLE REPORT - -8 - PRINT VENDOR LABELS - -9 - FINISHED - -? 7 - - -Install appropriate Vendor Information disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING AGED ACCOUNTS PAYABLE REPORT - -RECORDS TO BE PRINTED 1 - -TO DO PRINT REPORT, TYPE RETURN.? OK - - -*** PURCHASE ORDER ENTRY / VENDOR PAYABLES MENU *** - -1 - ENTER NEW VENDOR INFORMATION - -2 - ENTER PURCHASE ORDERS - -3 - LIST PURCHASE ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) PURCHASE ORDERS - -5 - PRINT PRE-PRINTED PURCHASE ORDERS - -6 - POST PURCHASE ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS PAYABLE REPORT - -8 - PRINT VENDOR LABELS - -9 - FINISHED - -? 8 - - -Install appropriate Vendor Information disk in Drive B: - -Type return to continue.? OK - - - -THIS IS THE MAILING LABEL PRINTING ROUTINE. - -IF YOU ARE NOT FAMILIAR WITH ITS OPERATION, PLEASE -READ THE INSTRUCTIONS BEFORE PROCEEDING. - - -HOW MANY LABELS ACROSS THE PAGE (1 TO 5)? 2 - - -INDICATE THE DISTANCE BETWEEN THE LEFT EDGES OF -ANY TWO LABELS IN DECIMAL INCHES (I.E. 2.6). -? 2.6 - - -INDICATE THE NUMBER OF SPACES BETWEEN LABELS (I.E. 2). -? 2 - - - -LABELS TO PRINT 1 - - - - -*** MAILING LIST MENU *** - -1 - UPDATE MAILING LIST - -2 - PRINT MAILING LABELS - -3 - PRINT CUSTOMER LABELS - -4 - PRINT VENDOR LABELS - -5 - PRINT EMPLOYEE LABELS - -6 - FINISHED - -? 6 - - -Replace program disk #5 in drive A. -Type return to continue. -? OK - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 4 - - -INSTALL PROGRAM DISK #4. - -TYPE RETURN WHEN READY.? OK - - -*** FINISHED / CAPITAL / RAW GOODS INVENTORY MENU *** - -1 - UPDATE FINISHED GOODS INVENTORY - -2 - UPDATE RAW GOODS INVENTORY - -3 - PRINT FINISHED GOODS REPORT - -4 - PRINT RAW GOODS REPORT - -5 - PRINT FINISHED GOODS ALERT - -6 - PRINT RAW GOODS ALERT - -7 - FIXED ASSET OPERATIONS - -8 - FINISHED - -? 3 - - -Install appropriate Finished Goods disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING FINISHED GOODS REPORT - - -*** FINISHED / CAPITAL / RAW GOODS INVENTORY MENU *** - -1 - UPDATE FINISHED GOODS INVENTORY - -2 - UPDATE RAW GOODS INVENTORY - -3 - PRINT FINISHED GOODS REPORT - -4 - PRINT RAW GOODS REPORT - -5 - PRINT FINISHED GOODS ALERT - -6 - PRINT RAW GOODS ALERT - -7 - FIXED ASSET OPERATIONS - -8 - FINISHED - -? 4 - - -Install appropriate Raw Goods disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING RAW GOODS REPORT - - -*** FINISHED / CAPITAL / RAW GOODS INVENTORY MENU *** - -1 - UPDATE FINISHED GOODS INVENTORY - -2 - UPDATE RAW GOODS INVENTORY - -3 - PRINT FINISHED GOODS REPORT - -4 - PRINT RAW GOODS REPORT - -5 - PRINT FINISHED GOODS ALERT - -6 - PRINT RAW GOODS ALERT - -7 - FIXED ASSET OPERATIONS - -8 - FINISHED - -? 5 - - -Install appropriate Finished Goods disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING FINISHED GOODS ALERT - - -*** FINISHED / CAPITAL / RAW GOODS INVENTORY MENU *** - -1 - UPDATE FINISHED GOODS INVENTORY - -2 - UPDATE RAW GOODS INVENTORY - -3 - PRINT FINISHED GOODS REPORT - -4 - PRINT RAW GOODS REPORT - -5 - PRINT FINISHED GOODS ALERT - -6 - PRINT RAW GOODS ALERT - -7 - FIXED ASSET OPERATIONS - -8 - FINISHED - -? 6 - - -Install appropriate Raw Goods disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING RAW GOODS ALERT - - -*** FINISHED / CAPITAL / RAW GOODS INVENTORY MENU *** - -1 - UPDATE FINISHED GOODS INVENTORY - -2 - UPDATE RAW GOODS INVENTORY - -3 - PRINT FINISHED GOODS REPORT - -4 - PRINT RAW GOODS REPORT - -5 - PRINT FINISHED GOODS ALERT - -6 - PRINT RAW GOODS ALERT - -7 - FIXED ASSET OPERATIONS - -8 - FINISHED - -? 7 - - -Install appropriate Capital Goods disk in Drive B: - -Type return to continue.? OK - - -*** FIXED ASSET ACCOUNTING MENU *** - -1 - ENTER OR MODIFY CAPITAL GOODS - -2 - CALCULATE YEARS DEPRECIATION - -3 - PRINT DEPRECIATION REPORT - -4 - PRINT IRS FORM 4562 - DEPRECIATION - -5 - FINISHED - -? 3 - - -Install appropriate Capital Goods disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING DEPRECIATION REPORT - -RECORDS TO BE PRINTED 1 - -TO PRINT REPORT, TYPE RETURN.? OK - - -*** FIXED ASSET ACCOUNTING MENU *** - -1 - ENTER OR MODIFY CAPITAL GOODS - -2 - CALCULATE YEARS DEPRECIATION - -3 - PRINT DEPRECIATION REPORT - -4 - PRINT IRS FORM 4562 - DEPRECIATION - -5 - FINISHED - -? 4 - - -Install appropriate Capital Goods disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING DEPRECIATION REPORT - -RECORDS TO BE PRINTED 1 - -TO PRINT REPORT, TYPE RETURN.? OK - - -ENTER DEPRECIATION FROM ANY FORM 4832 (CLADR). -? 1234567890 - - -*** FIXED ASSET ACCOUNTING MENU *** - -1 - ENTER OR MODIFY CAPITAL GOODS - -2 - CALCULATE YEARS DEPRECIATION - -3 - PRINT DEPRECIATION REPORT - -4 - PRINT IRS FORM 4562 - DEPRECIATION - -5 - FINISHED - -? 5 - - -*** FINISHED / CAPITAL / RAW GOODS INVENTORY MENU *** - -1 - UPDATE FINISHED GOODS INVENTORY - -2 - UPDATE RAW GOODS INVENTORY - -3 - PRINT FINISHED GOODS REPORT - -4 - PRINT RAW GOODS REPORT - -5 - PRINT FINISHED GOODS ALERT - -6 - PRINT RAW GOODS ALERT - -7 - FIXED ASSET OPERATIONS - -8 - FINISHED - -? 8 - - -Replace program disk #5 in drive A. -Type return to continue. -? OK - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 5 - - -INSTALL PROGRAM DISK #2. - -TYPE RETURN WHEN READY.? OK - - -*** EMPLOYEE PAYROLL SYSTEM MENU *** - -1 - UPDATE EMPLOYEE RECORDS - -2 - ENTER EMPLOYEE TIME CARDS - -3 - CALCULATE EMPLOYEE PAYROLL - -4 - PRINT PAYROLL SUMMARY - -5 - PRINT EMPLOYEE CHECKS - -6 - POST PAYROLL OPERATIONS - -7 - RECORD FEDERAL DEPOSITS (501) - -8 - PRINT FEDERAL AND STATE TAX FORMS (941/W2, ETC) - -9 - FINISHED - -? 3 - - -Install appropriate Employee Information disk in Drive B: - -Type return to continue.? OK - - - - - -PAYROLL CALCULATION PROGRAM ---------------------------- - -THERE ARE 20 AVAILABLE RECORDS -OF THESE THERE ARE: 16 RECORDS OPEN - 4 RECORDS USED - -NUMBER OF EMPLOYEES 4 - -CALCULATING PAYROLL - -*** PLEASE WAIT *** - - -*** EMPLOYEE PAYROLL SYSTEM MENU *** - -1 - UPDATE EMPLOYEE RECORDS - -2 - ENTER EMPLOYEE TIME CARDS - -3 - CALCULATE EMPLOYEE PAYROLL - -4 - PRINT PAYROLL SUMMARY - -5 - PRINT EMPLOYEE CHECKS - -6 - POST PAYROLL OPERATIONS - -7 - RECORD FEDERAL DEPOSITS (501) - -8 - PRINT FEDERAL AND STATE TAX FORMS (941/W2, ETC) - -9 - FINISHED - -? 4 - - -Install appropriate Employee Information disk in Drive B: - -Type return to continue.? OK - - -PRINTING PAYROLL REGISTER - - -*** EMPLOYEE PAYROLL SYSTEM MENU *** - -1 - UPDATE EMPLOYEE RECORDS - -2 - ENTER EMPLOYEE TIME CARDS - -3 - CALCULATE EMPLOYEE PAYROLL - -4 - PRINT PAYROLL SUMMARY - -5 - PRINT EMPLOYEE CHECKS - -6 - POST PAYROLL OPERATIONS - -7 - RECORD FEDERAL DEPOSITS (501) - -8 - PRINT FEDERAL AND STATE TAX FORMS (941/W2, ETC) - -9 - FINISHED - -? 5 - - -Install appropriate Employee Information disk in Drive B: - -Type return to continue.? OK -8400 < 8403 - LINE OUT OF ORDER: 8400 REM *** AND PRINT THE CHECK *** - - - - -THIS IS THE PAYROLL CHECK PRINTING PROGRAM. - -SET PRINTER TO TOP OF FORM **** - -Would you like a ***VOID*** check printed to -establish print positions ? (Y/N) -? N - - -CHECKS TO BE PRINTED = 4 - -TO PRINT CHECKS, DO CARRIAGE RETURN. ? OK - - -*** EMPLOYEE PAYROLL SYSTEM MENU *** - -1 - UPDATE EMPLOYEE RECORDS - -2 - ENTER EMPLOYEE TIME CARDS - -3 - CALCULATE EMPLOYEE PAYROLL - -4 - PRINT PAYROLL SUMMARY - -5 - PRINT EMPLOYEE CHECKS - -6 - POST PAYROLL OPERATIONS - -7 - RECORD FEDERAL DEPOSITS (501) - -8 - PRINT FEDERAL AND STATE TAX FORMS (941/W2, ETC) - -9 - FINISHED - -? 8 - - -Install appropriate Employee Information disk in Drive B: - -Type return to continue.? OK - - -*** FEDERAL AND STATE FORMS PRINTING MENU *** - -1 - PRINT 941 FORMS - -2 - PRINT STATE TAX RETURNS - -3 - PRINT FEDERAL AND STATE W2 FORMS - -4 - FINISHED - -? 1 - - -Install appropriate Employee Information disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING FEDERAL FORM 941 - - -ENTER ADJUSTMENT OF WITHHELD INCOME TAX FOR PRECEDING -QUARTER - LINE 4. ENTER INCREASE AS +, DECREASE AS - - -? 0 - - -ENTER TAXABLE TIPS REPORTED - LINE 7. - -? 0 - - -ENTER ADJUSTMENT OF FICA TAXES - LINE 9. ENTER INCREASE -AS +, DECREASE AS - - -? 0 - - -SET FORM 941 TO FIRST PRINT LINE. - -ENTER QUARTER NUMBER (1,2,3 OR 4). ? 4 - - -ENTER OVERPAYMENT FROM PREVIOUS QUARTER. - -? 0 - - -ENTER FINAL DEPOSIT MADE IF NOT INCLUDED ABOVE. - -? 0 -ENTER DATE OF FINAL DEPOSIT IF ANY. - -? 12/31/78 - - -*** EMPLOYEE PAYROLL SYSTEM MENU *** - -1 - UPDATE EMPLOYEE RECORDS - -2 - ENTER EMPLOYEE TIME CARDS - -3 - CALCULATE EMPLOYEE PAYROLL - -4 - PRINT PAYROLL SUMMARY - -5 - PRINT EMPLOYEE CHECKS - -6 - POST PAYROLL OPERATIONS - -7 - RECORD FEDERAL DEPOSITS (501) - -8 - PRINT FEDERAL AND STATE TAX FORMS (941/W2, ETC) - -9 - FINISHED - -? 8 - - -Install appropriate Employee Information disk in Drive B: - -Type return to continue.? OK - - -*** FEDERAL AND STATE FORMS PRINTING MENU *** - -1 - PRINT 941 FORMS - -2 - PRINT STATE TAX RETURNS - -3 - PRINT FEDERAL AND STATE W2 FORMS - -4 - FINISHED - -? 2 -This program not implemented! - - -*** EMPLOYEE PAYROLL SYSTEM MENU *** - -1 - UPDATE EMPLOYEE RECORDS - -2 - ENTER EMPLOYEE TIME CARDS - -3 - CALCULATE EMPLOYEE PAYROLL - -4 - PRINT PAYROLL SUMMARY - -5 - PRINT EMPLOYEE CHECKS - -6 - POST PAYROLL OPERATIONS - -7 - RECORD FEDERAL DEPOSITS (501) - -8 - PRINT FEDERAL AND STATE TAX FORMS (941/W2, ETC) - -9 - FINISHED - -? 8 - - -Install appropriate Employee Information disk in Drive B: - -Type return to continue.? OK - - -*** FEDERAL AND STATE FORMS PRINTING MENU *** - -1 - PRINT 941 FORMS - -2 - PRINT STATE TAX RETURNS - -3 - PRINT FEDERAL AND STATE W2 FORMS - -4 - FINISHED - -? 3 - - -Install appropriate Employee Information disk in Drive B: - -Type return to continue.? OK - - - - -IS PENSION PLAN COVERAGE PROVIDED YOUR EMPLOYEES? - -? NO - - -DID YOU FAIL TO COLLECT FICA TAX ON EMPLOYEES TIPS, PROVIDE -MORE THAN $50,000 GROUP-TERM LIFE INSURANCE, OR HAVE ANY -STATUTORY EMPLOYEES WHOSE EARNINGS ARE SUBJECT TO FICA BUT -NOT SUBJECT TO FEDERAL INCOME TAX (YES OR NO TO ANY ONE, -TWO, OR ALL THREE)? - -? NO - - -DID ANY EMPLOYEES HAVE TIPS THAT MUST BE INCLUDED IN BOX 18 - -? NO - - -ENTER STATE NAME FOR BOX 22. - -? TX - - -PRINTING W2 FORMS -TYPE RETURN TO CONTINUE ? OK - - -*** EMPLOYEE PAYROLL SYSTEM MENU *** - -1 - UPDATE EMPLOYEE RECORDS - -2 - ENTER EMPLOYEE TIME CARDS - -3 - CALCULATE EMPLOYEE PAYROLL - -4 - PRINT PAYROLL SUMMARY - -5 - PRINT EMPLOYEE CHECKS - -6 - POST PAYROLL OPERATIONS - -7 - RECORD FEDERAL DEPOSITS (501) - -8 - PRINT FEDERAL AND STATE TAX FORMS (941/W2, ETC) - -9 - FINISHED - -? 9 - - -Replace disk #5 in drive A. -Type return to continue. -? OK - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 6 - - -INSTALL PROGRAM DISK #4. - -TYPE RETURN WHEN READY.? OK - - -*** MAILING LIST MENU *** - -1 - UPDATE MAILING LIST - -2 - PRINT MAILING LABELS - -3 - PRINT CUSTOMER LABELS - -4 - PRINT VENDOR LABELS - -5 - PRINT EMPLOYEE LABELS - -6 - FINISHED - -? 2 - - -Install appropriate Mailing List disk in Drive B: - -Type return to continue.? OK - - - -THIS IS THE MAILING LABEL PRINTING ROUTINE. - -IF YOU ARE NOT FAMILIAR WITH ITS OPERATION, PLEASE -READ THE INSTRUCTIONS BEFORE PROCEEDING. - - -Enter the name of the mailing list file, i.e. MA0. -? MA0 - -HOW MANY LABELS ACROSS THE PAGE (1 TO 5)? 2 - - -INDICATE THE DISTANCE BETWEEN THE LEFT EDGES OF -ANY TWO LABELS IN DECIMAL INCHES (I.E. 2.6). -? 2.6 - - -INDICATE THE NUMBER OF SPACES BETWEEN LABELS (I.E. 2). -? 2 - - - -LABELS TO PRINT 1 - - - - -*** MAILING LIST MENU *** - -1 - UPDATE MAILING LIST - -2 - PRINT MAILING LABELS - -3 - PRINT CUSTOMER LABELS - -4 - PRINT VENDOR LABELS - -5 - PRINT EMPLOYEE LABELS - -6 - FINISHED - -? 3 - - -Install appropriate Customer Information disk in Drive B: - -Type return to continue.? OK - - - -THIS IS THE MAILING LABEL PRINTING ROUTINE. - -IF YOU ARE NOT FAMILIAR WITH ITS OPERATION, PLEASE -READ THE INSTRUCTIONS BEFORE PROCEEDING. - - -HOW MANY LABELS ACROSS THE PAGE (1 TO 5)? 2 - - -INDICATE THE DISTANCE BETWEEN THE LEFT EDGES OF -ANY TWO LABELS IN DECIMAL INCHES (I.E. 2.6). -? 2.6 - - -INDICATE THE NUMBER OF SPACES BETWEEN LABELS (I.E. 2). -? 2 - - - -LABELS TO PRINT 3 - - - - -*** MAILING LIST MENU *** - -1 - UPDATE MAILING LIST - -2 - PRINT MAILING LABELS - -3 - PRINT CUSTOMER LABELS - -4 - PRINT VENDOR LABELS - -5 - PRINT EMPLOYEE LABELS - -6 - FINISHED - -? 4 - - -Install appropriate Vendor Information disk in Drive B: - -Type return to continue.? OK - - - -THIS IS THE MAILING LABEL PRINTING ROUTINE. - -IF YOU ARE NOT FAMILIAR WITH ITS OPERATION, PLEASE -READ THE INSTRUCTIONS BEFORE PROCEEDING. - - -HOW MANY LABELS ACROSS THE PAGE (1 TO 5)? 2 - - -INDICATE THE DISTANCE BETWEEN THE LEFT EDGES OF -ANY TWO LABELS IN DECIMAL INCHES (I.E. 2.6). -? 2.6 - - -INDICATE THE NUMBER OF SPACES BETWEEN LABELS (I.E. 2). -? 2 - - - -LABELS TO PRINT 1 - - - - -*** MAILING LIST MENU *** - -1 - UPDATE MAILING LIST - -2 - PRINT MAILING LABELS - -3 - PRINT CUSTOMER LABELS - -4 - PRINT VENDOR LABELS - -5 - PRINT EMPLOYEE LABELS - -6 - FINISHED - -? 5 - - -Install appropriate Employee Information disk in Drive B: - -Type return to continue.? OK - - - -THIS IS THE EMPLOYEE MAILING LABEL PRINTING ROUTINE. - -IF YOU ARE NOT FAMILIAR WITH ITS OPERATION, PLEASE -READ THE INSTRUCTIONS BEFORE PROCEEDING. - - - -HOW MANY LABELS ACROSS THE PAGE (1 TO 5)? 2 - - -INDICATE THE DISTANCE BETWEEN THE LEFT EDGES OF -ANY TWO LABELS IN DECIMAL INCHES (I.E. 2.6). -? 2.6 - - -INDICATE THE NUMBER OF SPACES BETWEEN LABELS (I.E. 2). -? 2 - - - -LABELS TO PRINT 4 - - - - -*** MAILING LIST MENU *** - -1 - UPDATE MAILING LIST - -2 - PRINT MAILING LABELS - -3 - PRINT CUSTOMER LABELS - -4 - PRINT VENDOR LABELS - -5 - PRINT EMPLOYEE LABELS - -6 - FINISHED - -? 6 - - -Replace program disk #5 in drive A. -Type return to continue. -? OK - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 7 - - - -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS AND PAYROLL CUTOFFS - -9 - FINISHED - -? 1 - - -Install appropriate disk in Drive B: - -The date file must be on all file disks!! - -Type return to continue.? OK - - - - -THIS IS A LIST OF OPERATIONS. - -1 - ENTER DATES -2 - EXAMINE DATES -3 - MODIFY DATES -4 - CREATE NEW FILE -5 - CLEAR EXISTING FILE -6 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 2 - - - -Should this be a 'hard-copy' listing (Y or N)? -? NO -CURRENT DATE 12/19/79 -PERIOD ENDING DATE 08/06/79 -PREVIOUS PERIOD ENDING DATE 07/27/79 -MONTH ENDING DATE 08/31/79 -QUARTER ENDING DATE 09/30/79 -YEAR ENDING DATE 12/31/79 -RESERVED -FISCAL YEAR ENDING DATE 12/31/79 - - - -IF FINISHED, TYPE RETURN. - -? OK - - -THIS IS A LIST OF OPERATIONS. - -1 - ENTER DATES -2 - EXAMINE DATES -3 - MODIFY DATES -4 - CREATE NEW FILE -5 - CLEAR EXISTING FILE -6 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 6 - - - -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS AND PAYROLL CUTOFFS - -9 - FINISHED - -? 2 - - -Install appropriate disk in Drive B: - -The format file must be on all file disks!! - -Type return to continue.? OK - - - - -THIS IS A LIST OF OPERATIONS. - -1 - ENTER $ 0R % FORMATS -2 - EXAMINE $ 0R % FORMATS -3 - MODIFY $ OR % FORMATS -4 - CREATE NEW FILE -5 - CLEAR EXISTING FILE -6 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 2 - - - -DOLLAR FORMAT ##,###,###.## -PERCENT FORMAT ###.# - -IF FINISHED, TYPE RETURN.? OK - - -THIS IS A LIST OF OPERATIONS. - -1 - ENTER $ 0R % FORMATS -2 - EXAMINE $ 0R % FORMATS -3 - MODIFY $ OR % FORMATS -4 - CREATE NEW FILE -5 - CLEAR EXISTING FILE -6 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 6 - - -Replace disk #5 in drive A. -Type return to continue. -? OK - - -LOADING DATES - -LOADING FORMATS - -LOADING TABS - -LOADING NAMES - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 7 - - - -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS AND PAYROLL CUTOFFS - -9 - FINISHED - -? 3 - - -Install appropriate disk in Drive B: - -The tabs file must be on all file disks!! - -Type return to continue.? OK - - - - -THIS IS A LIST OF OPERATIONS. - -1 - ENTER TABS -2 - EXAMINE TABS -3 - MODIFY TABS -4 - CREATE NEW FILE -5 - CLEAR EXISTING FILE -6 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 2 - - - -Should this be a 'hard-copy' listing (Y or N)? -? NO -PAGE WIDTH 80 -TAG TAB 2 -ACCOUNT NUMBER TAB 10 -MAJOR HEADING TAB 22 -SUBHEADING TAB 8 -PARTIAL TOTAL TAB 12 -PARTIAL TOTAL DOLLAR TAB 42 -FINAL TOTAL TAB 14 -FINAL TOTAL DOLLAR TAB 42 -DATE TAB 8 -PAGE NUMBER TAB 57 -COMPANY NAME TAG # 101 -LOWEST BALANCE SHEET ACCT # 101 -HIGHEST BALANCE SHEET ACCT # 295 -LOW COST OF GOODS ACCT # 401 -HIGH COST OF GOODS ACCT # 401 - - - -IF FINISHED, TYPE RETURN.? OK - - -THIS IS A LIST OF OPERATIONS. - -1 - ENTER TABS -2 - EXAMINE TABS -3 - MODIFY TABS -4 - CREATE NEW FILE -5 - CLEAR EXISTING FILE -6 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 6 - - - -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS AND PAYROLL CUTOFFS - -9 - FINISHED - -? 4 - - - -1 - CHANGE GENERAL LEDGER HEADINGS - -2 - CHANGE GENERAL LEDGER SUBHEADINGS - -3 - FINISHED - -? 1 - - -Install appropriate General Ledger disk in Drive B: - -Type return to continue.? OK - - - - - -GENERAL LEDGER HEADING ENTRY PROGRAM ------------------------------------- - -THERE ARE 11 AVAILABLE RECORDS -OF THESE THERE ARE: 6 RECORDS OPEN - 5 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 8 - - -LISTING -GENERAL LEDGER HEADING ENTRY PROGRAM ------------------------------------- - -THERE ARE 11 AVAILABLE RECORDS -OF THESE THERE ARE: 6 RECORDS OPEN - 5 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 2 - - -RECORD NUMBER? 1 - -TAG 100 -LEDGER ACCOUNT NUMBER 198 -DESCRIPTION HAASSETS -FIRST ACCOUNT NUMBER 101 -LAST ACCOUNT NUMBER 198 -6 - M-T-D TOTAL 0.00 -7 - Q-T-D TOTAL 0.00 -8 - Y-T-D TOTAL 0.00 -9 - M-T-D PERCENTAGE % 0 -10- Q-T-D PERCENTAGE % 0 -11- Y-T-D PERCENTAGE % 0 - -FOR A NEW RECORD NUMBER, TYPE N - RETURN. - -IF FINISHED, TYPE F - RETURN. - -? F - -GENERAL LEDGER HEADING ENTRY PROGRAM ------------------------------------- - -THERE ARE 11 AVAILABLE RECORDS -OF THESE THERE ARE: 6 RECORDS OPEN - 5 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 9 - - -Replace disk #5 in drive A. -Type return to continue. -? OK - - -LOADING DATES - -LOADING FORMATS - -LOADING TABS - -LOADING NAMES - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 7 - - - -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS AND PAYROLL CUTOFFS - -9 - FINISHED - -? 4 - - - -1 - CHANGE GENERAL LEDGER HEADINGS - -2 - CHANGE GENERAL LEDGER SUBHEADINGS - -3 - FINISHED - -? 2 - - -Install appropriate General Ledger disk in Drive B: - -Type return to continue.? OK - - - - - -GENERAL LEDGER SUBHEADING ENTRY PROGRAM ---------------------------------------- - -THERE ARE 25 AVAILABLE RECORDS -OF THESE THERE ARE: 15 RECORDS OPEN - 10 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 8 - - -LISTING - -GENERAL LEDGER SUBHEADING ENTRY PROGRAM ---------------------------------------- - -THERE ARE 25 AVAILABLE RECORDS -OF THESE THERE ARE: 15 RECORDS OPEN - 10 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 2 - - -RECORD NUMBER? 1 - -TAG 100 -LEDGER ACCOUNT NUMBER 132 -DESCRIPTION SACurrent Assets -FIRST ACCOUNT NUMBER 101 -LAST ACCOUNT NUMBER 132 -6 - M-T-D TOTAL 0.00 -7 - Q-T-D TOTAL 0.00 -8 - Y-T-D TOTAL 0.00 -9 - M-T-D PERCENTAGE % 0 -10- Q-T-D PERCENTAGE % 0 -11- Y-T-D PERCENTAGE % 0 - -FOR A NEW RECORD NUMBER, TYPE N - RETURN. - -IF FINISHED, TYPE F - RETURN. - -? F - -GENERAL LEDGER SUBHEADING ENTRY PROGRAM ---------------------------------------- - -THERE ARE 25 AVAILABLE RECORDS -OF THESE THERE ARE: 15 RECORDS OPEN - 10 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 9 - - -Replace disk #5 in drive A. -Type return to continue. -? OK - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 7 - - - -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS AND PAYROLL CUTOFFS - -9 - FINISHED - -? 4 - - - -1 - CHANGE GENERAL LEDGER HEADINGS - -2 - CHANGE GENERAL LEDGER SUBHEADINGS - -3 - FINISHED - -? 3 - - - -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS AND PAYROLL CUTOFFS - -9 - FINISHED - -? 5 - - -Install appropriate disk in Drive B: - -The company name file must be on all file disks!! - -Type return to continue.? OK - - - - - -COMPANY NAME ENTRY PROGRAM --------------------------- - -THERE ARE 4 AVAILABLE RECORDS -OF THESE THERE ARE: 3 RECORDS OPEN - 1 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 2 - - -RECORD NUMBER? 1 - -TAG 101 -REFERENCE NUMBER 100 -NAME -COMPANY Aaron Associates Inc. -ADDRESS 102 Ave de la Estrella -CITY San Clemente -STATE CA -ZIP CODE 92672 -PHONE (AAA) NNN NNNN (714) 492 7633 -FEDERAL TAX ID # 123 -STATE TAX ID # 123 - -FOR A NEW RECORD NUMBER, TYPE N - RETURN. - -IF FINISHED, TYPE F - RETURN. - -? F - -COMPANY NAME ENTRY PROGRAM --------------------------- - -THERE ARE 4 AVAILABLE RECORDS -OF THESE THERE ARE: 3 RECORDS OPEN - 1 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 8 - - - -COMPANY NAME ENTRY PROGRAM --------------------------- - -THERE ARE 4 AVAILABLE RECORDS -OF THESE THERE ARE: 3 RECORDS OPEN - 1 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 9 - - -Replace disk #5 in drive A. -Type return to continue. -? OK - - -LOADING DATES - -LOADING FORMATS - -LOADING TABS - -LOADING NAMES - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 1 - - -INSTALL PROGRAM DISK #1. - -TYPE RETURN WHEN READY.? OK - - -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPTS TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED - -? 1 - - -Install appropriate General Ledger disk in Drive B: - -Type return to continue.? OK - - - - - -GENERAL LEDGER ENTRY PROGRAM ----------------------------- - -THERE ARE 101 AVAILABLE RECORDS -OF THESE THERE ARE: 32 RECORDS OPEN - 69 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 1 - - -RECORD NUMBER 70 - - - ---- -TAG ? 100 - - - - ---------- -LEDGER ACCOUNT NUMBER ? 110 - - - - ------------------------------ -DESCRIPTION ? THIS IS A TEST - -RECORD NUMBER 70 - -1 - TAG 100 -2 - LEDGER ACCOUNT NUMBER 110 -3 - DESCRIPTION THIS IS A TEST -4 - MONTH TO DATE AMOUNT 0.00 -5 - QUARTER TO DATE AMOUNT 0.00 -6 - YEAR TO DATE AMOUNT 0.00 -7 - PREV MONTH TO DATE AMT 0.00 -8 - PREV QUARTER TO DATE AMT 0.00 -9 - PREV YEAR TO DATE AMT 0.00 -10 - BUDGETED AMOUNT 0.00 -11 - NONE - -IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER. - -? 11 - -ANY MORE CHANGES? NO - -IS RECORD TO BE ENTERED? YES - - -GENERAL LEDGER ENTRY PROGRAM ----------------------------- - -THERE ARE 101 AVAILABLE RECORDS -OF THESE THERE ARE: 31 RECORDS OPEN - 70 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 8 - - -LISTING - -GENERAL LEDGER ENTRY PROGRAM ----------------------------- - -THERE ARE 101 AVAILABLE RECORDS -OF THESE THERE ARE: 31 RECORDS OPEN - 70 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 3 - - -RECORD NUMBER? 70 -RECORD NUMBER 70 - -1 - TAG 100 -2 - LEDGER ACCOUNT NUMBER 110 -3 - DESCRIPTION THIS IS A TEST -4 - MONTH TO DATE AMOUNT 0.00 -5 - QUARTER TO DATE AMOUNT 0.00 -6 - YEAR TO DATE AMOUNT 0.00 -7 - PREV MONTH TO DATE AMT 0.00 -8 - PREV QUARTER TO DATE AMT 0.00 -9 - PREV YEAR TO DATE AMT 0.00 -10 - BUDGETED AMOUNT 0.00 -11 - NONE - -IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER. - -? 10 - - ------------ -BUDGETED AMOUNT ? 111111.11 -ANY MORE CHANGES? YES -RECORD NUMBER 70 - -1 - TAG 100 -2 - LEDGER ACCOUNT NUMBER 110 -3 - DESCRIPTION THIS IS A TEST -4 - MONTH TO DATE AMOUNT 0.00 -5 - QUARTER TO DATE AMOUNT 0.00 -6 - YEAR TO DATE AMOUNT 0.00 -7 - PREV MONTH TO DATE AMT 0.00 -8 - PREV QUARTER TO DATE AMT 0.00 -9 - PREV YEAR TO DATE AMT 0.00 -10 - BUDGETED AMOUNT 111,111.11 -11 - NONE - -IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER. - -? 4 - - ------------ -MONTH TO DATE AMOUNT ? 2222.22 -ANY MORE CHANGES? YES -RECORD NUMBER 70 - -1 - TAG 100 -2 - LEDGER ACCOUNT NUMBER 110 -3 - DESCRIPTION THIS IS A TEST -4 - MONTH TO DATE AMOUNT 2,222.22 -5 - QUARTER TO DATE AMOUNT 0.00 -6 - YEAR TO DATE AMOUNT 0.00 -7 - PREV MONTH TO DATE AMT 0.00 -8 - PREV QUARTER TO DATE AMT 0.00 -9 - PREV YEAR TO DATE AMT 0.00 -10 - BUDGETED AMOUNT 111,111.11 -11 - NONE - -IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER. - -? 5 - - ------------ -QUARTER TO DATE AMOUNT ? 33333.33 -ANY MORE CHANGES? YES -RECORD NUMBER 70 - -1 - TAG 100 -2 - LEDGER ACCOUNT NUMBER 110 -3 - DESCRIPTION THIS IS A TEST -4 - MONTH TO DATE AMOUNT 2,222.22 -5 - QUARTER TO DATE AMOUNT 33,333.33 -6 - YEAR TO DATE AMOUNT 0.00 -7 - PREV MONTH TO DATE AMT 0.00 -8 - PREV QUARTER TO DATE AMT 0.00 -9 - PREV YEAR TO DATE AMT 0.00 -10 - BUDGETED AMOUNT 111,111.11 -11 - NONE - -IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER. - -? 11 - -ANY MORE CHANGES? NO - -IS RECORD TO BE ENTERED? YES - - -GENERAL LEDGER ENTRY PROGRAM ----------------------------- - -THERE ARE 101 AVAILABLE RECORDS -OF THESE THERE ARE: 31 RECORDS OPEN - 70 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 8 - - -LISTING - -GENERAL LEDGER ENTRY PROGRAM ----------------------------- - -THERE ARE 101 AVAILABLE RECORDS -OF THESE THERE ARE: 31 RECORDS OPEN - 70 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 3 - - -RECORD NUMBER? 70 -RECORD NUMBER 70 - -1 - TAG 100 -2 - LEDGER ACCOUNT NUMBER 110 -3 - DESCRIPTION THIS IS A TEST -4 - MONTH TO DATE AMOUNT 2,222.22 -5 - QUARTER TO DATE AMOUNT 33,333.30 -6 - YEAR TO DATE AMOUNT 0.00 -7 - PREV MONTH TO DATE AMT 0.00 -8 - PREV QUARTER TO DATE AMT 0.00 -9 - PREV YEAR TO DATE AMT 0.00 -10 - BUDGETED AMOUNT 111,111.00 -11 - NONE - -IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER. - -? 6 - - ------------ -YEAR TO DATE AMOUNT ? 44444.44 -ANY MORE CHANGES? NO - -IS RECORD TO BE ENTERED? YES - - -GENERAL LEDGER ENTRY PROGRAM ----------------------------- - -THERE ARE 101 AVAILABLE RECORDS -OF THESE THERE ARE: 31 RECORDS OPEN - 70 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 8 - - -LISTING - -GENERAL LEDGER ENTRY PROGRAM ----------------------------- - -THERE ARE 101 AVAILABLE RECORDS -OF THESE THERE ARE: 31 RECORDS OPEN - 70 RECORDS USED - -THIS IS A LIST OF OPERATIONS. - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 9 - - -A NEW GENERAL LEDGER REFERENCE FILE IS BEING -CREATED. - -*** PLEASE WAIT *** - 100 101 - 100 102 - 100 105 - 100 110 - 100 112 - 100 120 - 100 130 - 100 131 - 100 132 - 100 160 - 100 161 - 100 163 - 100 165 - 100 171 - 100 173 - 100 174 - 100 175 - 100 190 - 100 195 - 100 196 - 100 197 - 100 198 - 200 201 - 200 202 - 200 203 - 200 204 - 200 209 - 200 210 - 200 220 - 200 225 - 200 270 - 200 272 - 200 276 - 200 282 - 200 285 - 200 288 - 200 292 - 200 293 - 200 294 - 200 295 - 300 301 - 300 302 - 300 303 - 400 401 - 800 801 - 800 804 - 800 806 - 800 808 - 800 810 - 800 814 - 800 820 - 800 822 - 800 825 - 800 828 - 800 830 - 800 838 - 800 841 - 800 852 - 800 854 - 800 855 - 800 860 - 800 864 - 800 866 - 800 868 - 800 870 - 800 872 - 800 874 - 800 880 - 800 884 - 100 110 - - -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPTS TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED - -? 8 - - -Install appropriate General Ledger disk in Drive B: - -Type return to continue.? OK - - - - -PRINTING EXPENSE BUDGET ANALYSIS - - -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPTS TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED - -? 9 - - -Replace program disk #5 in drive A. -Type return to continue. -? OK - - -*** BusinessMaster II Master Menu *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM/ * DAILY DATE CHANGE * - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - -? 9 - - - *********** SYSTEM SHUT-DOWN *********** - - - TAKE YOUR DISKS OUT OF ALL DRIVES - - THEN TURN YOUR SYSTEM OFF diff --git a/bwbtest/C77B/C77.PRO b/bwbtest/C77B/C77.PRO deleted file mode 100644 index f272d01..0000000 --- a/bwbtest/C77B/C77.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "CBASIC-II" diff --git a/bwbtest/C77B/CGDEPCAL.BAS b/bwbtest/C77B/CGDEPCAL.BAS deleted file mode 100644 index f8810f5..0000000 --- a/bwbtest/C77B/CGDEPCAL.BAS +++ /dev/null @@ -1,163 +0,0 @@ -1 rem This is the Depreciation Calculator - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(3,20) - z5$="cg" - RESTORE - DATA 0,28,31,30,31,30,31,31,30,31,30,31 - DATA 24,24,24,17,2,5,14,20,20 - DATA 4,10,10,24,24,1,8,2,12,12,12,4,4,12,12,12,12 - FOR Z=1 TO 12:READ N(1,1):NEXT Z:N(1,1)=0: REM DUMMY READ TO SET POINTER -1008 DIM H(9),S(9),T(4,9) -1009 PRINT clear$:PRINT -1090 U$="##,###,###" -1095 FOR Z=1 TO 104:A$=A$+"-":NEXT Z -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) - FOR Z=3 TO 11:READ N(1,Z):NEXT Z -3085 Z9=1:FOR Z=3 TO 11:K$(0,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -3090 N$="":FOR Z=1 TO 20:N(1,Z)=0:NEXT Z -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=3 TO 6 - l9=len(k$(0,i)) -3140 FOR Z=l9 TO l8 STEP -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM CALCULATE DEPRECIATION ON ASSETS -6005 PRINT clear$:PRINT -6010 PRINT "CALCULATING DEPRECIATION FOR THE YEAR" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0:P0=1 -6035 X=1 -6200 open z5$ recl 256 as 1 -6205 z3=(size(z5$)*block.size)/256 -6210 FOR Z2=1 TO Z3 -6215 read #1,z2;N(2,1),N(2,2),N(2,3),N$ -6220 IF N(2,2)=0 THEN 6230 -6225 NEXT Z2 -6230 close 1 -6235 Z2=Z2-1 -6240 PRINT:PRINT "RECORDS TO BE CALCULATED ";Z2 -6245 PRINT:INPUT "TO DO CALCULATION, TYPE RETURN.";line temp$ - FOR Z=1 TO 17:READ N(1,Z):NEXT Z - RESTORE : REM RESTORE POINTER TO READ DAYS PER MONTH -6300 open z5$ recl 256 as 1 -6310 FOR Z1=1 TO Z2 -6320 read #1,z1;N(2,1),N(2,2),N(2,3),N$,D1,D2,D3,D4,D5,D6,D7,D8,D9 -6325 D6=0:D7=0:D8=0 -6330 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -6400 IF RIGHT$(K$(3,7),2)=RIGHT$(D$(6),2) THEN GOSUB 10000 -6420 IF K$(3,8)="SL" THEN GOSUB 20000 -6430 IF K$(3,8)="D1" THEN GOSUB 20200 -6440 IF K$(3,8)="D2" THEN GOSUB 20400 -6450 IF K$(3,8)="D3" THEN GOSUB 20600 -6460 IF K$(3,8)="SD" THEN GOSUB 20800 -6500 print #1,z1;N(2,1),N(2,2),N(2,3),n$,D1,D2,D3,D4,D5,D6,D7,D8,D9 -6600 NEXT Z1 -6700 GOTO 30000 -10000 REM THIS ROUTINE RETURNS A DECIMAL PART OF THE YEAR BASED -10005 REM ON THE YEAR END DATE AND ASSET ACQUISITION DATE -10010 REM FOR BOTH ORDINARY AND CLADR DEPRECIATION SYSTEMS -10015 REM FOR FIRST YEAR DEPRECIATION PURPOSES -10050 PRINT clear$:PRINT -10060 PRINT "DO YOU WISH TO TAKE THE ADDITIONAL 20% FIRST YEAR" -10070 PRINT "DEPRECIATION ALLOWED FOR THIS ASSET?" -10080 PRINT:INPUT line temp$ -10085 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN 10100 -10090 IF left$(temp$,1)<>"y" AND left$(temp$,1)<>"Y" THEN 10050 -10095 GOSUB 10600 -10100 IF LEFT$(K$(3,7),1)="H" THEN Y1=.5:GOTO 10595 -10105 IF LEFT$(K$(3,7),3)="M01" THEN Y1=1:GOTO 10595 -10110 IF LEFT$(K$(3,7),3)="M02" THEN Y1=0:GOTO 10595 -10310 FOR Z=0 TO 11 -10315 IF Z=VAL(LEFT$(K$(3,7),2)) THEN 10450 -10320 READ X -10330 Y1=Y1+X -10340 NEXT Z -10450 Y1=Y1+VAL(MID$(K$(3,7),4,2)) -10460 RESTORE -10465 Y1=365-Y1 -10470 Z9=80 -10475 FOR Z=1 TO 25 -10480 IF VAL(RIGHT$(K$(3,7),2))=Z9 THEN Y1=Y1+1:Y1=Y1/366:GOTO 10595 -10485 Z9=Z9+4 -10490 NEXT Z -10580 Y1=Y1/365 -10595 RETURN -10600 IF K$(3,6)<>"N" THEN 10695 -10610 D2=D2-D1*.2:D3=D3+D1*.2 -10695 RETURN -20000 REM THIS ROUTINE CALCULATES STRAIGHT LINE DEPRECIATION -20005 Z9=D2-D9:REM Z9 = DEPRECIABLE BASIS LESS SALVAGE -20010 Z9=Z9/D5:REM Z9 = ADJUSTED BASIS/REMAINING YEARS -20015 D5=D5-1:REM REDUCE REMAINING LIFE FIGURE -20020 IF Y1<>0 THEN Z9=Z9*Y1 -20025 IF D2-Z90 THEN Z9=Z9*Y1 -20225 IF D2-Z90 THEN Z9=Z9*Y1 -20425 IF D2-Z90 THEN Z9=Z9*Y1 -20625 IF D2-Z90 THEN Z9=Z9*Y1 -20825 IF D2-Z9z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "CAPITAL GOODS ENTRY PROGRAM" - PRINT "---------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:N$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -1702 new$="" -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2015 FOR Z=1 TO 3 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2036 FOR Z=4 TO 8 - PRINT CUR$ -2037 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2038 PRINT K$(1,Z);TAB(30); -2039 INPUT line K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2040 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ -2045 NEXT Z -2065 FOR Z=9 TO 17 - PRINT CUR$ -2070 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2075 PRINT K$(1,Z);TAB(30); -2080 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2085 NEXT Z -2090 N$="" -2095 FOR Z=4 TO 8:N$=N$+K$(3,Z):NEXT Z -2100 Z1=Z2 -2105 PRINT clear$; -2110 PRINT "RECORD NUMBER";Z1;TAB(31);"CAPITAL GOODS ENTRY" -2115 FOR Z=1 TO 3 -2116 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -2118 NEXT Z -2120 FOR Z=4 TO 8 -2122 PRINT K$(2,Z);TAB(30);K$(3,Z) -2124 NEXT Z -2125 FOR Z=9 TO 11 -2126 PRINT K$(2,Z);TAB(30);:print using l$;n(2,z) -2127 NEXT Z -2128 FOR Z=12 TO 13 -2130 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -2132 NEXT Z -2134 FOR Z=14 TO 17 -2136 PRINT K$(2,Z);TAB(30);:print using l$;n(2,z) -2138 NEXT Z -2140 PRINT K$(2,18) -2163 PRINT"TO MAKE A CHANGE, TYPE THE APPROPRIATE #." -2164 INPUT Z -2165 IF Z>17 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>3 AND Z<9 THEN 2200 - CL=10:CC=50:GOSUB 50:PRINT CUR2$; -2180 PRINT left$(repeat$,n(1,z)) - CL=12:GOSUB 50:PRINT CUR2$; -2185 PRINT K$(1,Z) - CL=10:CC=48:GOSUB 50:PRINT CUR2$; -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 CL=10:CC=50:GOSUB 50:PRINT CUR2$; :PRINT left$(repeat$,n(1,z)) - CL=12:GOSUB 50:PRINT CUR2$; -2205 PRINT K$(1,Z) - CL=10:CC=48:GOSUB 50:PRINT CUR2$; -2210 INPUT line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2220 FOR Z=4 TO 8:N$=N$+K$(3,Z):NEXT Z -2225 CL=14:CC=50:GOSUB 50:PRINT CUR2$; - INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT CUR2$; -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 256 as 1 - print #1,z1;n(2,1),n(2,2),n(2,3),n$,n(2,9),n(2,10),n(2,11), n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN - open z5$ recl 256 as 1 - read #1,z1;n(2,1),n(2,2),n(2,3),n$,n(2,9),n(2,10),n(2,11), n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17) -3022 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):next z -3025 close 1 -3105 GOSUB 11000 -3170 PRINT"FOR A NEW RECORD, TYPE N - TYPE F IF FINISHED.":input line temp$ -3190 IF left$(temp$,1)="n" or left$(temp$,1)="N" THEN 3000 -3195 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 - open z5$ recl 256 as 1 - read #1,z1;n(2,1),n(2,2),n(2,3),n$,n(2,9),n(2,10),n(2,11), n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17) -4036 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -4040 close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 - open z5$ recl 256 as 1 - read #1,z1;n(2,1),n(2,2),n(2,3),n$,n(2,9),n(2,10),n(2,11), n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17) -5036 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -5040 close 1 -5105 GOSUB 11000 -5200 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5205 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5210 IF ucase$(temp$) <> "YES" THEN 5200 -5215 N(2,1)=0 - open z5$ recl 256 as 1 - print #1,z1;n(2,1),n(2,2),n(2,3),n$,n(2,9),n(2,10),n(2,11), n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17) - close 1 -5235 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A CAPITAL GOODS FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF left$(temp$,1)="c" or left$(temp$,1)="C" THEN initialize:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";z3 -6055 PRINT -6060 n$="":for z=1 to 70:n$=n$+" ":next z:FOR Z=1 TO 20:N(2,Z)=0:NEXT Z -6065 create z5$ recl 256 as 1 -6070 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n(2,3),n$,n(2,9),n(2,10),n(2,11), n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17) -6085 NEXT Z1 -6090 close 1 -6095 PRINT clear$:PRINT -6100 PRINT "CAPITAL GOODS FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 z2=(size(z5$)*block.size)/256:for z=1 to 20:n(2,z)=0:next z - n$="":for z=1 to 70:n$=n$+" ":next z -7006 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF ucase$(temp$)<>"YES" THEN RETURN - open z5$ recl 256 as 1 -7010 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n(2,3),n$,n(2,9),n(2,10),n(2,11), n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17) -7025 NEXT Z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "CAPITAL GOODS FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 chain "cgsort" -9000 lprinter -9005 PRINT clear$:PRINT -9010 open z5$ recl 256 as 1 -9015 FOR I=1 TO Z2-1 - read #1,i;n(2,1),n(2,2),n(2,3),n$,n(2,9),n(2,10),n(2,11), n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17) -9035 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -9110 print "RECORD NUMBER";i;TAB(31);"CAPITAL GOODS ENTRY" -9115 FOR Z=1 TO 3 -9116 print K$(2,Z);TAB(30);:print using u$;n(2,z) -9118 NEXT Z -9120 FOR Z=4 TO 8 -9122 print K$(2,Z);TAB(30);K$(3,Z) -9124 NEXT Z -9125 FOR Z=9 TO 11 -9126 print K$(2,Z);TAB(30);:print using l$;n(2,z) -9127 NEXT Z -9128 FOR Z=12 TO 13 -9130 print K$(2,Z);TAB(30);:print using u$;n(2,z) -9132 NEXT Z -9134 FOR Z=14 TO 17 -9136 print K$(2,Z);TAB(30);:print using l$;n(2,z) -9138 NEXT Z -9145 print chr$(12) -9150 NEXT I -9155 close 1 - console -9900 RETURN -10000 CHAIN "master16" -11000 PRINT clear$:PRINT -11110 PRINT "RECORD NUMBER";Z1;TAB(31);"CAPITAL GOODS ENTRY" -11115 FOR Z=1 TO 3 -11116 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -11118 NEXT Z -11120 FOR Z=4 TO 8 -11122 PRINT K$(2,Z);TAB(30);K$(3,Z) -11124 NEXT Z -11125 FOR Z=9 TO 11 -11126 PRINT K$(2,Z);TAB(30);:print using l$;n(2,z) -11127 NEXT Z -11128 FOR Z=12 TO 13 -11130 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -11132 NEXT Z -11134 FOR Z=14 TO 17 -11136 PRINT K$(2,Z);TAB(30);:print using l$;n(2,z) -11138 NEXT Z -11140 RETURN -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 256 as 1 - z3=(size(z5$)*block.size)/256 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/CGFM4562.BAS b/bwbtest/C77B/CGFM4562.BAS deleted file mode 100644 index c078121..0000000 --- a/bwbtest/C77B/CGFM4562.BAS +++ /dev/null @@ -1,86 +0,0 @@ -1 rem This is the IRS Form 4652 - Depreciation Printer - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(3,20) - z5$="cg" - RESTORE -1008 DIM H(9),S(9),T(4,9) -1009 PRINT clear$:PRINT -1090 U$="##,###,###" -1095 FOR Z=1 TO 104:A$=A$+"-":NEXT Z -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) - for z=3 to 11:read n(1,z):next z - data 24,24,24,17,2,5,14,20,20 -3085 Z9=1:FOR Z=3 TO 11:K$(0,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -3090 N$="":FOR Z=1 TO 20:N(1,Z)=0:NEXT Z -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 for I=3 TO 6 - l9=len(k$(0,i)) -3140 FOR Z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PROGRAM TO PRINT DEPRECIATION REPORT -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING DEPRECIATION REPORT" -6030 T1=0:T2=0:T3=0:T4=0:P0=1 -6035 X=1 -6040 for z=4 to 8:read n(1,z):next z - data 24,24,1,8,2 -6200 open z5$ recl 256 as 1 -6205 z3=(size(z5$)*block.size)/256 -6210 FOR Z2=1 TO Z3 -6215 read #1,z2;n(2,1),n(2,2),n(2,3),n$ -6220 IF N(2,2)=0 THEN 6230 -6225 NEXT Z2 -6230 close 1 -6235 Z2=Z2-1 -6240 PRINT:PRINT "RECORDS TO BE PRINTED ";Z2 -6245 PRINT:INPUT "TO PRINT REPORT, TYPE RETURN.";line temp$ - lprinter:P9=0 -6300 open z5$ recl 256 as 1 -6310 FOR Z1=1 TO Z2 -6320 read #1,z1;N(2,1),N(2,2),N(2,3),N$,D1,D2,D3,D4,D5,D6,D7,D8,D9 -6330 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -6340 IF RIGHT$(K$(3,7),2)=RIGHT$(D$(6),2) AND D3>D8 THEN T3=T3+D3-D8 -6350 NEXT Z1 -6360 print TAB(7);K$(0,4);TAB(61);K$(0,10):P9=P9+1 -6370 FOR Z=1 TO 5:print:NEXT Z:P9=P9+5 -6380 print TAB(67);:print using u$;t3:P9=P9+1 - console -6390 PRINT clear$:PRINT -6395 PRINT "ENTER DEPRECIATION FROM ANY FORM 4832 (CLADR)." -6400 INPUT T9 - lprinter -6405 print TAB(67);:print using u$;t9:P9=P9+1 -6410 FOR Z=1 TO 6:print:NEXT Z:P9=P9+6:T3=T3+T9 -6500 FOR Z1=1 TO Z2 -6510 read #1,z1;N(2,1),N(2,2),N(2,3),N$,D1,D2,D3,D4,D5,D6,D7,D8,D9 -6520 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -6530 print TAB(7);LEFT$(K$(3,4),15);TAB(24);K$(3,7);TAB(33); -6540 print using u$;d1;tab(44);d3;tab(56);:print k$(3,8);tab(61); -6550 print using "####";d4;tab(67);:print using u$;d8 -6560 T1=T1+D1:T2=T2+D8:P9=P9+1 - console -6570 IF P9>38 THEN PRINT "INSERT ANOTHER SHEET AND ADVANCE TO FIRST DESC LINE" -6575 IF P9>38 THEN INPUT "TYPE RETURN TO CONTINUE ";line temp$ - lprinter -6580 NEXT Z1 -6590 FOR Z=P9 TO 39:print:NEXT Z -6600 print using u$;tab(33);t1;tab(67);t2+t3 -6995 GOTO 20000 -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master16 - print chr$(12) -20005 close 1 -20040 console -20050 CHAIN "master16" diff --git a/bwbtest/C77B/CGRPT.BAS b/bwbtest/C77B/CGRPT.BAS deleted file mode 100644 index 28d4306..0000000 --- a/bwbtest/C77B/CGRPT.BAS +++ /dev/null @@ -1,99 +0,0 @@ -1 rem This is the Depreciation Report Printer - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(3,20) - z5$="cg" - RESTORE -1008 DIM H(9),S(9),T(4,9) -1009 PRINT clear$:PRINT -1090 U$="##,###,###" -1095 FOR Z=1 TO 104:A$=A$+"-":NEXT Z -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) - for z=3 to 11:read n(1,z):next z - data 24,24,24,17,2,5,14,20,20 -3085 Z9=1:FOR Z=3 TO 11:K$(0,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -3090 N$="":FOR Z=1 TO 20:N(1,Z)=0:NEXT Z -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=3 TO 6 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PROGRAM TO PRINT DEPRECIATION REPORT -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING DEPRECIATION REPORT" -6030 T1=0:T2=0:T3=0:T4=0:P0=1 -6035 X=1 -6040 for z=4 to 8:read n(1,z):next z - data 24,24,1,8,2 -6200 open z5$ recl 256 as 1 -6205 z3=(size(z5$)*block.size)/256 -6210 FOR Z2=1 TO Z3 -6215 read #1,z2;n(2,1),n(2,2),n(2,3),n$ -6220 IF N(2,2)=0 THEN 6230 -6225 NEXT Z2 -6230 close 1 -6235 Z2=Z2-1 -6240 PRINT:PRINT "RECORDS TO BE PRINTED ";Z2 -6245 PRINT:INPUT "TO PRINT REPORT, TYPE RETURN.";line temp$ - lprinter:P9=0 -6300 open z5$ recl 256 as 1 -6310 FOR Z1=1 TO Z2 -6320 read #1,z1;N(2,1),N(2,2),N(2,3),N$,D1,D2,D3,D4,D5,D6,D7,D8,D9 -6330 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -6340 IF RIGHT$(K$(3,7),2)=RIGHT$(D$(6),2) AND D3>D8 THEN T3=T3+D3-D8 -6350 NEXT Z1 -6400 print K$(0,4);TAB(46);K$(0,10);TAB(65);" ";TAB(88);"PAGE "; -6405 print P0;" OF ":P9=P9+1 -6410 print "STATEMENT OF DEPRECIATION FOR YEAR ENDING";TAB(46);D$(6) -6415 print A$:P9=P9+1 -6420 print "DESCRIPTION";TAB(17);"N-NEW";TAB(26);"N";TAB(29);"DATE"; -6425 print TAB(42);"COST OR";TAB(52);"DEPRECIABLE";TAB(64); -6430 print "DEPRECIATION";TAB(77);"METHOD";TAB(85);"USEFUL"; -6435 print TAB(96);"CURRENT":P9=P9+1 -6450 print "OF PROPERTY";TAB(17);"U-USED";TAB(26);"U";TAB(29);"ACQUIRED"; -6455 print TAB(39);"OTHER";TAB(46);"BASIS";TAB(55);"BASIS";TAB(64); -6460 print "PRIOR YEARS";TAB(84);"LIFE YRS DEPRECIATION":P9=P9+1 -6465 print A$:P9=P9+1 -6470 T9=T3:T3=0 -6500 FOR Z1=1 TO Z2 -6510 read #1,z1;N(2,1),N(2,2),N(2,3),N$,D1,D2,D3,D4,D5,D6,D7,D8,D9 -6520 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -6525 print K$(3,4);TAB(26);K$(3,6);TAB(29);K$(3,7);TAB(39);:print using u$;d1; -6530 print TAB(52);:print using u$;d2;TAB(64);:print using u$;d3; - print TAB(79);K$(3,8); -6535 print TAB(86);:print using "####";d4;TAB(93);:print using u$;d8:P9=P9+1 -6560 T1=T1+D1:T2=T2+D2:T3=T3+D3:T4=T4+D8 -6565 IF P9>38 THEN GOSUB 30000 -6570 IF P9>38 THEN console - IF P9>38 THEN PRINT "INSERT ANOTHER SHEET AND ADVANCE TO FIRST DESC LINE" -6575 IF P9>38 THEN INPUT "TYPE RETURN TO CONTINUE ";line temp$ -6576 IF P9>38 THEN lprinter: GOSUB 30500:P9=0 -6580 NEXT Z1 -6585 print:print TAB(10);"ADDITIONAL FIRST YEAR DEPRECIATION";TAB(93); -6586 print using u$;t9 -6590 print:print:print tab(10);"Totals";tab(39); - print using u$;t1;tab(52);t2;tab(64);t3;tab(93);t4+t9 -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master16 - IF P9<=38 THEN PRINT CHR$(12) -20005 close 1 -20040 console -20050 CHAIN "master16" -30000 print:print tab(10);"Subtotals";tab(39); - print using u$;t1;tab(52);t2;tab(64);t3;tab(93);t4 -30010 print chr$(12) -30015 RETURN -30500 print:print tab(10);"Subtotals";tab(39); - print using u$;t1;tab(52);t2;tab(64);t3;tab(93);t4 -30515 RETURN diff --git a/bwbtest/C77B/CGSORT.BAS b/bwbtest/C77B/CGSORT.BAS deleted file mode 100644 index 47ab1c7..0000000 --- a/bwbtest/C77B/CGSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the Capital Goods Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="cg":z6$="cgback":z7$="cgsize":RL=256 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N(2,3),N$,N(2,9),N(2,10),N(2,11),N(2,12), N(2,13),N(2,14),N(2,15),N(2,16),N(2,17) - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N(2,3),N$,N(2,9),N(2,10),N(2,11),N(2,12), N(2,13),N(2,14),N(2,15),N(2,16),N(2,17) - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N(2,3),N$,N(2,9),N(2,10),N(2,11),N(2,12), N(2,13),N(2,14),N(2,15),N(2,16),N(2,17) - PRINT #1,Z;N(2,1),N(2,2),N(2,3),N$,N(2,9),N(2,10),N(2,11),N(2,12), N(2,13),N(2,14),N(2,15),N(2,16),N(2,17) - NEXT Z - - for z=1 to 20:n(2,z)=0:next z:n$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N(2,3),N$,N(2,9),N(2,10),N(2,11),N(2,12), N(2,13),N(2,14),N(2,15),N(2,16),N(2,17) - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "cgentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "cgentry" diff --git a/bwbtest/C77B/CHECK.BAS b/bwbtest/C77B/CHECK.BAS deleted file mode 100644 index f408487..0000000 --- a/bwbtest/C77B/CHECK.BAS +++ /dev/null @@ -1,42 +0,0 @@ -200 rem This is CHECK.BAS used to check for needed files - - - IF BIZMII.FLAG=1 THEN CHECK5=1 :GOTO 360 -300 CHECK1=SIZE("DATE") - CHECK2=SIZE("GLF") - CHECK3=SIZE("GLT") - CHECK4=SIZE("NM") - CHECK5=1 - IF CHECK1<1 OR CHECK2<1 OR CHECK3<1 OR CHECK4<1 THEN CHECK5=0 - IF CHECK5 THEN 350 - AAA=AAA+1 - IF AAA>1 THEN 360 - print clear$ - print "Here are the files that are missing from your data disk." - print "That's drive 'B':" - print - IF CHECK1<1 THEN PRINT "1 - CHANGE REPORT DATE" - IF CHECK2<1 THEN PRINT "2 - CHANGE DOLLAR VALUE" - IF CHECK3<1 THEN PRINT "3 - CHANGE PAGE WIDTH ,TABS OR COMPANY" - IF CHECK4<1 THEN PRINT "5 - ADD NEW COMPANY NAMES" - PRINT - print "You can get to these programs by typing '7' in the" - print "main menu. If you have already used these programs," - print "then the files you need are on your data disk #5" - print - print "Remember that these four files must be on your "; - print "data disk #5 :" - print - print " DATE" - print " GLF" - print " GLT" - print " NM" - print - PRINT "Put the appropriate disk in "; - input "drive 'B' then (return)";LINE JRF$ - print clear$ - INITIALIZE - GOTO 300 -350 REM WE MADE IT - IF BIZMII.FLAG<>1 THEN CHAIN "READFILE" -360 REM diff --git a/bwbtest/C77B/CONTROL.BAS b/bwbtest/C77B/CONTROL.BAS deleted file mode 100644 index 04cc9b4..0000000 --- a/bwbtest/C77B/CONTROL.BAS +++ /dev/null @@ -1,17 +0,0 @@ -20 rem This is CONTROL.BAS used to set up control characters for - rem your terminal. - - clear$=chr$(27)+"+" : clear$ = "" - - block.size=1024 - - ON$=chr$(27)+chr$(41) : ON$ = "" : rem background ON - OFF$=chr$(27)+chr$(40) : OFF$ = "" : rem background OFF - - pagelen=51 - - UP$=CHR$(11) : UP$ = "" - CUR$=CHR$(27)+CHR$(61)+CHR$(44)+CHR$(32) : CUR$ = "" - GOTO 51 -50 CUR2$=CHR$(27)+CHR$(61)+CHR$(CL+32)+CHR$(CC+32): CUR2$ = "" :RETURN -51 REM diff --git a/bwbtest/C77B/CRENTRY.BAS b/bwbtest/C77B/CRENTRY.BAS deleted file mode 100644 index 400d3d0..0000000 --- a/bwbtest/C77B/CRENTRY.BAS +++ /dev/null @@ -1,329 +0,0 @@ -1 rem This is the Customer Information Entry Program - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(6,20) - z5$="cr":z6$=z5$+"back":z7$=z5$+"size" - repeat$="--------------------------------" - fill$=" " - delim$="":for z=1 to 72:delim$=delim$+"=":delim1$=delim1$+"*":next z - l$="##,###,###.##" - RESTORE -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - DELETE EXISTING ENTRY" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - BACK-UP AND SORT FILE":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" - print clear$:print -1100 K$(1,1)="TAG":K$(1,2)="ACCOUNT NUMBER":K$(1,3)="NAME (ATTENTION)" -1105 K$(1,4)="COMPANY":K$(1,5)="ADDRESS":K$(1,6)="CITY":K$(1,7)="STATE" -1110 K$(1,8)="ZIP CODE":K$(1,9)="PHONE (AAA) NNN NNNN" -1130 K$(1,10)="NAME (ATTENTION)":K$(1,11)="COMPANY":K$(1,12)="ADDRESS" -1135 K$(1,13)="CITY":K$(1,14)="STATE":K$(1,15)="ZIP CODE" -1140 K$(1,16)="PHONE (AAA) NNN NNNN" -1145 K$(1,17)="DATE OF LAST PMNT MM/DD/YY" -1150 K$(2,1)="AMOUNT OF LAST PAYMENT":K$(2,2)="TOTAL Y-TO-D PAYMENTS" -1155 K$(2,3)="CURRENT CHARGES":K$(2,4)="30-60 DAY CHARGES" -1160 K$(2,5)="61-90 DAY CHARGES":K$(2,6)="OVER 90 DAY CHARGES" -1165 K$(3,1)=" 1 - TAG":K$(3,2)=" 2 - ACCOUNT NO.":K$(3,3)=" 3 - NAME" -1170 K$(3,4)=" 4 - COMP":K$(3,5)=" 5 - ADDR":K$(3,6)=" 6 - CITY" -1175 K$(3,7)=" 7 - STA":K$(3,8)=" 8 - ZIP" -1180 K$(3,9)=" 9 - PHO" -1185 K$(3,10)="10 - NAME":K$(3,11)="11 - COMP":K$(3,12)="12 - ADDR" -1190 K$(3,13)="13 - CITY":K$(3,14)="14 - STA":K$(3,15)="15 - ZIP" -1195 K$(3,16)="16 - PHO" -1200 K$(3,17)="17 - DATE OF LAST PMNT" -1205 K$(4,1)="18 - AMOUNT OF LAST PAYMENT" -1210 K$(4,2)="19 - TOTAL Y-TO-D PAYMENTS" -1215 K$(4,3)="20 - CURRENT CHARGES":K$(4,4)="21 - 30-60 DAY CHARGES" -1220 K$(4,5)="22 - 61-90 DAY CHARGES":K$(4,6)="23 - OVER 90 DAY CHARGES" -1300 N(0,1)=4:N(0,2)=10:N(0,3)=24:N(0,4)=24:N(0,5)=24:N(0,6)=17 -1305 N(0,7)=2:N(0,8)=5:N(0,9)=14:N(0,10)=24:N(0,11)=24:N(0,12)=24 -1310 N(0,13)=17:N(0,14)=2:N(0,15)=5:N(0,16)=14:N(0,17)=8 -1315 N(1,1)=12:N(1,2)=12:N(1,3)=12:N(1,4)=12:N(1,5)=12:N(1,6)=12 - print clear$:print - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 384 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "CUSTOMER INFORMATION ENTRY PROGRAM" - PRINT "----------------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z -1695 N$="":new$="" -1700 FOR Z=1 TO 20:K$(5,Z)="":NEXT Z -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(0,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2040 FOR Z=3 TO 17 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(0,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 INPUT line K$(5,Z):PRINT chr$(13) - if len(k$(5,z))>n(0,z) then k$(5,z)=left$(k$(5,z),n(0,z)) -2060 I=(N(0,Z)-LEN(K$(5,Z))):K$(5,Z)=K$(5,Z)+left$(fill$,i) - PRINT CLEAR$ -2065 NEXT Z -2066 N$="" -2070 FOR Z=3 TO 17:N$=N$+K$(5,Z):NEXT Z -2100 Z1=Z2 -2105 PRINT clear$; -2110 PRINT "RECORD NUMBER";z1 -2115 PRINT K$(3,1);TAB(11);N(2,1);TAB(40);K$(3,2);TAB(60);N(2,2) -2124 PRINT "SOLD TO";TAB(40);"SHIP TO" -2126 PRINT delim$ -2128 FOR Z=3 TO 9 -2130 PRINT K$(3,Z);TAB(11);K$(5,Z);TAB(40);K$(3,Z+7);TAB(50);K$(5,Z+7) -2132 NEXT Z -2134 Z=17:PRINT delim$ -2136 PRINT K$(3,Z);TAB(40);K$(5,Z) -2141 FOR Z=18 TO 23:PRINT K$(4,Z-17);TAB(30);:print using l$;n(2,z-15):NEXT Z -2142 PRINT "24 - NONE" -2145 PRINT -2150 INPUT "IF AN ITEM IS TO BE CHANGED, TYPE THE NUMBER ";Z -2165 IF Z>23 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>2 AND Z<18 THEN 2200 -2176 IF Z>17 THEN 2220 - CL=18:CC=50:GOSUB 50:PRINT CUR2$; -2180 PRINT left$(repeat$,n(0,z)) - CL=20:CC=50:GOSUB 50:PRINT CUR2$; -2185 PRINT K$(1,Z) - CL=18:CC=48:GOSUB 50:PRINT CUR2$; -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 CL=18:CC=50:GOSUB 50:PRINT CUR2$; :PRINT left$(repeat$,n(0,z)) - CL=20:CC=50:GOSUB 50:PRINT CUR2$; -2205 PRINT K$(1,Z) - CL=18:CC=48:GOSUB 50:PRINT CUR2$; -2210 INPUT line K$(5,Z) - if len(k$(5,z))>n(0,z) then k$(5,z)=left$(k$(5,z),n(0,z)) -2215 I=(N(0,Z)-LEN(K$(5,Z))):K$(5,Z)=K$(5,Z)+left$(fill$,i) -2216 N$="" -2217 FOR I=3 TO 17:N$=N$+K$(5,I):NEXT I -2218 GOTO 2225 -2220 CL=18:CC=50:GOSUB 50:PRINT CUR2$; - PRINT left$(repeat$,n(1,z-17)) - CL=20:CC=50:GOSUB 50:PRINT CUR2$; -2221 PRINT K$(4,Z-17) - CL=18:CC=48:GOSUB 50:PRINT CUR2$; -2222 INPUT N(2,Z-15) -2225 CL=22:CC=50:GOSUB 50:PRINT CUR2$; - INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT CUR2$; -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 REM -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 384 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN -3020 open z5$ recl 384 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) - close 1 -3022 Z9=1:FOR Z=3 TO 17:K$(5,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -3030 PRINT MID$(K$(3,1),6,30);TAB(11);N(2,1);TAB(40);MID$(K$(3,2),6,30); -3032 PRINT TAB(55);N(2,2) -3034 PRINT "SOLD TO";TAB(40);"SHIP TO" -3036 PRINT delim$ -3038 FOR Z=3 TO 9 -3040 PRINT MID$(K$(3,Z),6,30);TAB(11);K$(5,Z);TAB(40);MID$(K$(3,Z+7),6,30); -3042 PRINT TAB(50);K$(5,Z+7) -3044 NEXT Z -3046 Z=17:PRINT delim$ -3048 PRINT MID$(K$(3,Z),6,30);TAB(40);K$(5,Z) -3050 FOR Z=18 TO 23:PRINT MID$(K$(4,Z-17),6,30);TAB(30); -3052 print using l$;n(2,z-15):NEXT Z -3054 PRINT -3075 PRINT "FOR NEW RECORD, TYPE N-RETURN , OTHERWISE F-RETURN" -3085 INPUT line temp$ -3090 IF ucase$(temp$)="N" THEN 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOSUB 4100:GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOSUB 4100:GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";z1:GOSUB 4100:GOTO 1620 -4030 open z5$ recl 384 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) - close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4050 Z9=1 -4055 FOR Z=3 TO 17 -4060 K$(5,Z)=MID$(N$,Z9,N(0,Z)) -4065 Z9=Z9+N(0,Z) -4070 NEXT Z -4075 GOTO 2105 -4100 FOR AAA=1 TO 200 :NEXT AAA :RETURN -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOSUB 4100:GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOSUB 4100:GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";z1:GOSUB 4100:GOTO 1620 -5030 open z5$ recl 384 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) - close 1 -5045 PRINT "RECORD NUMBER";z1 -5048 Z9=1:FOR Z=3 TO 17:K$(5,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -5050 PRINT MID$(K$(3,1),6,30);TAB(11);N(2,1);TAB(40);MID$(K$(3,2),6,30); -5052 PRINT TAB(55);N(2,2) -5054 PRINT "SOLD TO";TAB(40);"SHIP TO" -5056 PRINT delim$ -5058 FOR Z=3 TO 9 -5060 PRINT MID$(K$(3,Z),6,30);TAB(11);K$(5,Z);TAB(40);MID$(K$(3,Z+7),6,30); -5062 PRINT TAB(50);K$(5,Z+7) -5064 NEXT Z -5066 Z=17:PRINT delim$ -5068 PRINT MID$(K$(3,Z),6,30);TAB(40);K$(5,Z) -5070 FOR Z=18 TO 23:PRINT MID$(K$(4,Z-17),6,30);TAB(30); -5072 PRINT :print using l$;n(2,z-15):NEXT Z -5074 PRINT -5100 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5105 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5110 IF left$(temp$,1)<>"YES" THEN 5100 -5115 N(2,1)=0 -5120 open z5$ recl 384 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) - close 1 -5135 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A CUSTOMER FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF ucase$(temp$)="C" THEN initialize:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";z3 -6055 PRINT -6060 n$="":for z=1 to 228:n$=n$+" ":next z:for i=1 to 20:n(2,i)=0:next i -6055 create z5$ recl 384 as 1 -6070 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) -6085 NEXT Z1 -6090 close 1 -6092 Z1=Z1+1 -6095 PRINT clear$:PRINT -6100 PRINT "CUSTOMER FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF ucase$(temp$)<>"YES" THEN RETURN - n$="":for z=1 to 228:n$=n$+" ":next z:for i=1 to 20:n(2,i)=0:next i - open z5$ recl 384 as 1 -7010 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) -7025 NEXT Z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "CUSTOMER FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 chain "crsort" -9000 PRINT clear$:PRINT - print "Do you want the entire file (Yes or No)?":input line temp$ - IF ucase$(temp$)="Y" then first=1:last=z2-1:GOTO 9005 - - IF ucase$(temp$)<>"N" then 9000 - -9001 print clear$:print - input "Enter first record number to print - ";first - input "Enter last record to print - ";last - IF last>z2-1 then 9001 - IF first>last then 9001 - IF first<1 then 9001 -9005 lprinter - open z5$ recl 384 as 1 -9015 FOR Z1=first TO last - read #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) -9022 Z9=1 -9023 FOR Z=3 TO 17:K$(5,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -9024 print delim1$:print:print "RECORD NO.";z1:print -9025 print MID$(K$(3,1),6,30);TAB(11);N(2,1);TAB(40);MID$(K$(3,2),6,30); -9030 print TAB(55);N(2,2) -9031 print -9035 print "SOLD TO";TAB(40);"SHIP TO" -9040 print delim$ -9041 print -9045 FOR Z=3 TO 9 -9050 print MID$(K$(3,Z),6,30);TAB(11);K$(5,Z);TAB(40);MID$(K$(3,Z+7),6,30); -9055 print TAB(50);K$(5,Z+7) -9060 NEXT Z -9061 print -9065 Z=17:print delim$ -9070 print MID$(K$(3,Z),6,30);TAB(40);K$(5,Z) -9075 FOR Z=18 TO 23:print MID$(K$(4,Z-17),6,30);TAB(30); -9080 print using l$;n(2,z-15):NEXT Z -9085 print -9100 print chr$(12) -9105 NEXT Z1 -9110 CLOSE 1 -9115 console -9120 RETURN -10000 CHAIN "master2" -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 384 as 1 - z3=(size(z5$)*block.size)/384 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/CRFMINV.BAS b/bwbtest/C77B/CRFMINV.BAS deleted file mode 100644 index 9f82ee7..0000000 --- a/bwbtest/C77B/CRFMINV.BAS +++ /dev/null @@ -1,179 +0,0 @@ -1 rem This is the Formatted Invoice Printing Program - -%INCLUDE ALL.BAS -500 RESTORE - dim n(5,20),k$(5,20),h(9),s(9),t(4,9),g(10),q(10) - for z=4 to 11:read n(0,z):next z - for z=3 to 17:read n(1,z):next z - for z=3 to 9:read n(2,z):next z - data 14,10,8,8,10,10,1,4 - data 24,24,24,17,2,5,14,24,24,24,17,2,5,14,8 - data 7,12,24,24,8,8,10 - z5$="ir":z6$="cr":z7$="fg" - for z=1 to 80:del$=del$+"*":del1$=del1$+"=":del2$=del2$+"-":next z -fmt1$ =" /...5...10...15...20.../" -fmt2$ =" /...5...10...15...20.../" -fmt3$ =" /...5...10...15...20.../ Invoice No. ####" -fmt4$ =" Invoice Date Salesman" -fmt5$ =" /....../ /........./" - -fmta$ =" SOLD TO SHIP TO" - -fmt6$ =" /...5...10...15...20.../ /...5...10...15...20.../" -fmt7$ =" /....................../ /....................../" -fmt8$ =" /....................../ /....................../" -fmt9$ =" /.............../, // /.../ /.............../, // /.../" -fmt10$=" Your Ord No. Shipped Via FOB Point Terms" -fmt11$=" /........../ /....../ /........../ /......./ /.........../" -fmt12$=" Quan Quan B.O. Description Unit " -fmt12$=fmt12$+"Total" -fmt13$=" ###### ###### /...5...10...15...2/ $$#,###.## " -fmt13$=fmt13$+"$$##,###.##" - u$="$$##,###.##" - print clear$:print -1080 Q$="I N V O I C E R E G I S T E R" -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT INVOICES -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING INVOICES" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0:T5=0:T6=0:P0=1 -6035 X=1 -6040 PRINT:PRINT "INSTALL INVOICE REGISTER DISK IN DRIVE A" -6045 PRINT:PRINT "INSTALL A CUSTOMER DISK IN DRIVE B":PRINT -6046 PRINT chr$(07) -6050 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -6100 p9=0 -6200 open z5$ recl 384 as 1 -6205 z3=(size(z5$)*block.size)/384 -6210 FOR Z2=1 TO Z3 - read #1,z2;z5,z6,n$ -6220 IF Z6=0 THEN 6230 -6225 NEXT Z2 -6230 close 1 -6235 Z2=Z2-1 -6240 PRINT clear$:PRINT -6245 PRINT:PRINT "INVOICES TO BE PRINTED ";Z2 -6246 PRINT chr$(07) -6250 PRINT:INPUT "TO PRINT INVOICES, TYPE RETURN.";line temp$ - lprinter -6300 open z5$ recl 384 as 1 -6310 open z6$ recl 384 as 2 -6320 FOR I=1 TO Z2 -6350 GOSUB 15000 -6380 NEXT I -6410 GOTO 20000 -15000 IF I>Z2 THEN 15595 - read #1,i;N(3,1),N(3,2),N(3,3),N$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15060 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -15065 if mid$(k$(3,11),2,1)="I" then 15595 -15070 z$="":z$=left$(k$(3,11),1)+"I"+right$(k$(3,11),2):k$(3,11)=z$ -15105 read #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15115 close 2 -15120 Z9=1:FOR Z=3 TO 17:K$(4,Z)=MID$(O$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -15200 print using fmt1$;k$(0,2) - print using fmt2$;k$(0,3) - print using fmt3$;k$(0,4),n(3,3) - print fmt4$ - print using fmt5$;d$(1),k$(3,4) - print:print fmta$:print - print using fmt6$;k$(4,3),k$(4,10) - print using fmt7$;k$(4,4),k$(4,11) - print using fmt8$;k$(4,5),k$(4,12) - print using fmt9$;k$(4,6),k$(4,7),k$(4,8),k$(4,13),k$(4,14),k$(4,15) -15240 FOR Z=1 TO 2:print:NEXT Z:print del1$ -15270 IF VAL(K$(3,9))=1 THEN terms$= "PREPAID" -15275 IF VAL(K$(3,9))=2 THEN terms$= "COD" -15280 IF VAL(K$(3,9))=3 THEN terms$= "1% 10, NET 30" -15285 Z$=K$(3,9) -15286 IF VAL(Z$)<>1 AND VAL(Z$)<>2 AND VAL(Z$)<>3 THEN terms$= K$(3,9) - print fmt10$ - print using fmt11$;k$(3,5),k$(3,6),k$(3,7),k$(3,8),terms$ -15290 print del1$ - print fmt12$ -15310 print del2$ -15315 print - console -15350 PRINT clear$:PRINT -15352 PRINT "INSTALL THE APPROPRIATE FINISHED GOODS DISK IN DRIVE B" -15353 PRINT chr$(07) -15354 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ -: lprinter -: initialize -: open z7$ recl 256 as 3 -: if end #3 then 15570 -15358 FOR J=1 TO 10 -15360 IF G(J)=0 THEN 15500 -15365 read #3,g(j);Z,Z,F$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -15370 IF Q(J)<=F3 THEN quan=q(j):F3=F3-q(j) - if q(j)>f3 then quan=f3:b.o.=q(j)-f3:F3=0 -15380 Z9=1:FOR Z=3 TO 9:K$(5,Z)=MID$(F$,Z9,N(2,Z)):Z9=Z9+N(2,Z):NEXT Z - print using fmt13$;quan,b.o.,k$(5,5),f2,f2*q(j) - print #3,g(j);Z,Z,F$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 - quan=0:b.o.=0 -15395 D3=D3+(Q(J)*F2):T2=T2+(Q(J)*F1) -15400 IF ucase$(k$(3,10))<>"T" AND ucase$(k$(3,10))<>"Y" then 15410 -15405 D5=D5+(D3*.06) -15410 IF VAL(K$(3,9))=1 THEN S1=S1+D3:GOTO 15500 -15415 S2=S2+D3 -15500 NEXT J -15505 T4=T4+D4:T5=T5+D5 -15510 print TAB(70);"-----------" -15512 print:print TAB(58);"TOTAL";TAB(70);:print using u$;d3 -15514 print:print TAB(58);"SALES TAX";TAB(70);:print using u$;d5 -15516 print:print TAB(58);"SHIPPING";TAB(70);:print using u$;d4 -15518 print TAB(70);"===========" -15520 print TAB(70);:print using u$;d3+d4+d5 -15540 N$="":FOR Z=4 TO 11:N$=N$+K$(3,Z):NEXT Z -15545 print #1,i;N(3,1),N(3,2),N(3,3),n$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15550 IF VAL(K$(3,9))=1 THEN K$(4,17)=D$(1):C1=D3+D4+D5:C2=C2+D3+D4+D5 - if val(k$(3,9))=1 then 15560 -15555 C3=C3+D3+D4+D5 -15560 D3=0:D4=0:D5=0 -15565 O$="":FOR Z=3 TO 17:O$=O$+K$(4,Z):NEXT Z -15570 close 3 - console -15575 PRINT clear$:PRINT:PRINT "INSTALL CUSTOMER DISK IN DRIVE B" -15576 PRINT chr$(07) -15580 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ -: lprinter -: print chr$(12) -: initialize -15582 open z6$ recl 384 as 2 - print #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15595 RETURN -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master2 -20005 close 1 -20010 close 2 - print chr$(12):for z=1 to 100:next z:print chr$(12) -20015 console -20020 PRINT clear$:PRINT -20025 PRINT "INSTALL PROGRAM DISK IN DRIVE A":PRINT -20026 PRINT chr$(07) -20030 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -20050 CHAIN "master2" diff --git a/bwbtest/C77B/CRJOLIST.BAS b/bwbtest/C77B/CRJOLIST.BAS deleted file mode 100644 index f972cbf..0000000 --- a/bwbtest/C77B/CRJOLIST.BAS +++ /dev/null @@ -1,220 +0,0 @@ -1 rem This is the Invoice Register Printing Program - -%INCLUDE ALL.BAS -500 RESTORE - dim n(5,20),k$(5,20),h(9),s(9),t(4,9),g(10),q(10) - for z=4 to 11:read n(0,z):next z - for z=3 to 17:read n(1,z):next z - for z=3 to 9:read n(2,z):next z - data 14,10,8,8,10,10,1,4 - data 24,24,24,17,2,5,14,24,24,24,17,2,5,14,8 - data 7,12,24,24,8,8,10 - z5$="ir":z6$="cr":z7$="fg" - for z=1 to 80:del$=del$+"*":del1$=del1$+"=":del2$=del2$+"-":next z -fmt1$ =" /...5...10...15...20.../" -fmt2$ =" /...5...10...15...20.../" -fmt3$ =" /...5...10...15...20.../ Invoice No. ####" -fmt4$ =" Invoice Date Salesman" -fmt5$ =" /....../ /........./" -fmt6$ =" /...5...10...15...20.../ /...5...10...15...20.../" -fmt7$ =" /....................../ /....................../" -fmt8$ =" /....................../ /....................../" -fmt9$ =" /.............../, // /.../ /.............../, // /.../" -fmt10$=" Your Ord No. Shipped Via FOB Point Terms" -fmt11$=" /........../ /....../ /........../ /......./ /.........../" -fmt12$=" Quan Quan B.O. Description Unit " -fmt12$=fmt12$+"Total" -fmt13$=" ###### ###### /...5...10...15...2/ $$#,###.## " -fmt13$=fmt13$+"$$##,###.##" - u$="$$##,###.##" - print clear$:print -1080 Q$="I N V O I C E R E G I S T E R" -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT INVOICE REGISTER -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING INVOICE REGISTER" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0:T5=0:T6=0:P0=1 -6035 X=1 -6040 PRINT:PRINT "INSTALL INVOICE REGISTER DISK IN DRIVE A" -6045 PRINT:PRINT "INSTALL A CUSTOMER DISK IN DRIVE B":PRINT -6046 PRINT chr$(07) -6050 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -6100 p9=0 -6200 open z5$ recl 384 as 1 -6205 z3=(size(z5$)*block.size)/384 -6210 FOR Z2=1 TO Z3 - read #1,z2;z5,z6,n$ -6220 IF Z6=0 THEN 6230 -6225 NEXT Z2 -6230 close 1 -6235 Z2=Z2-1 -6240 PRINT clear$:PRINT -6245 PRINT:PRINT "RECORDS TO BE PRINTED ";Z2 -6246 PRINT chr$(07) -6250 PRINT:INPUT "TO PRINT REGISTER, TYPE RETURN.";line temp$ - lprinter -6300 open z5$ recl 384 as 1 -6310 open z6$ recl 384 as 2 -6320 FOR I=1 TO Z2 -6330 GOSUB 9600 -6350 GOSUB 15000 -6370 GOSUB 9700 -6380 NEXT I -6390 GOSUB 15600 -6400 GOSUB 9800 -6410 GOTO 20000 -9600 REM PRINT PAGE HEADING SUBROUTINE -9610 print del$:P9=P9+1 -9615 print:P9=P9+1 -9616 print TAB((T%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((T%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(T%(10));"DATE ";D$(X);TAB(T%(11));"PAGE #";P0 -9642 P9=P9+1 -9645 print del1$:P9=P9+1 -9695 RETURN -9700 REM REPORT CONTINUED SUBROUTINE -9705 print del1$ - print "Report continues on next page" -9715 print del1$ -9720 print chr$(12):P9=0 -9725 P0=P0+1 -9740 RETURN -9800 REM End of report ROUTINE -9810 print del1$ -9820 print "End of report" -9830 print del$ -9840 print chr$(12) -9845 FOR Z=1 TO 100:NEXT Z:print chr$(12) -9850 RETURN -15000 IF I>Z2 THEN 15595 - read #1,i;N(3,1),N(3,2),N(3,3),N$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15060 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -15070 IF MID$(K$(3,11),3,1)="R" THEN 15595 -15080 IF VAL(K$(3,9))=1 THEN K$(3,11)="P RP":GOTO 15105 -15085 K$(3,11)="P R " -15105 read #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15115 close 2 -15120 Z9=1:FOR Z=3 TO 17:K$(4,Z)=MID$(O$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -15200 print using fmt1$;k$(0,2) - print using fmt2$;k$(0,3) - print using fmt3$;k$(0,4),n(3,3) - print fmt4$ - print using fmt5$;d$(1),k$(3,4) - print using fmt6$;k$(4,3),k$(4,10) - print using fmt7$;k$(4,4),k$(4,11) - print using fmt8$;k$(4,5),k$(4,12) - print using fmt9$;k$(4,6),k$(4,7),k$(4,8),k$(4,13),k$(4,14),k$(4,15) -15240 FOR Z=1 TO 2:print:NEXT Z:print del1$ -15270 IF VAL(K$(3,9))=1 THEN terms$= "PREPAID" -15275 IF VAL(K$(3,9))=2 THEN terms$= "COD" -15280 IF VAL(K$(3,9))=3 THEN terms$= "1% 10, NET 30" -15285 Z$=K$(3,9) -15286 IF VAL(Z$)<>1 AND VAL(Z$)<>2 AND VAL(Z$)<>3 THEN terms$= K$(3,9) - print fmt10$ - print using fmt11$;k$(3,5),k$(3,6),k$(3,7),k$(3,8),terms$ -15290 print del1$ - print fmt12$ -15310 print del2$ -15315 print - console -15350 PRINT clear$:PRINT -15352 PRINT "INSTALL THE APPROPRIATE FINISHED GOODS DISK IN DRIVE B" -15353 PRINT chr$(07) -15354 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ -: lprinter -: initialize -: open z7$ recl 256 as 3 -: if end #3 then 15570 -15358 FOR J=1 TO 10 -15360 IF G(J)=0 THEN 15500 -15365 read #3,g(j);Z,Z,F$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -15370 IF Q(J)<=F3 THEN quan=q(j) - if q(j)>f3 then quan=f3:b.o.=q(j)-f3 -15380 Z9=1:FOR Z=3 TO 9:K$(5,Z)=MID$(F$,Z9,N(2,Z)):Z9=Z9+N(2,Z):NEXT Z - print using fmt13$;quan,b.o.,k$(5,5),f2,f2*q(j) - quan=0:b.o.=0 -15395 D3=D3+(Q(J)*F2):T2=T2+(Q(J)*F1) -15400 IF ucase$(k$(3,10))<>"T" AND ucase$(k$(3,10))<>"Y" then 15410 -15405 D5=D5+((q(j)*f2)*.06) -15410 IF VAL(K$(3,9))=1 THEN S1=S1+(q(j)*f2):GOTO 15500 -15415 S2=S2+(q(j)*f2) -15500 NEXT J -15505 T4=T4+D4:T5=T5+D5 -15510 print TAB(70);"-----------" -15512 print:print TAB(58);"TOTAL";TAB(70);:print using u$;d3 -15514 print:print TAB(58);"SALES TAX";TAB(70);:print using u$;d5 -15516 print:print TAB(58);"SHIPPING";TAB(70);:print using u$;d4 -15518 print TAB(70);"===========" -15520 print TAB(70);:print using u$;d3+d4+d5 -15540 N$="":FOR Z=4 TO 11:N$=N$+K$(3,Z):NEXT Z -15545 print #1,i;N(3,1),N(3,2),N(3,3),n$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15560 D3=0:D4=0:D5=0 -15565 O$="":FOR Z=3 TO 17:O$=O$+K$(4,Z):NEXT Z -15570 close 3 - console -15575 PRINT clear$:PRINT:PRINT "INSTALL CUSTOMER DISK IN DRIVE B" -15576 PRINT chr$(07) -15580 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ -: lprinter -: initialize -15582 open z6$ recl 384 as 2 - print #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15595 RETURN -15600 print :print -15610 print del1$ -15620 print "TOTAL REVENUES (SALES) ";TAB(40);:print using u$;s1+s2 -15630 print "TOTAL COST OF GOODS ";TAB(40);:print using u$;t2 -15640 print TAB(40);"------------" -15650 print:print "GROSS PROFIT MARGIN ";TAB(40); - print using u$;(s1+s2)-t2 -15660 print:print "SHIPPING CHARGES";TAB(40);:print using u$;t4 -15670 print "SALES TAX";TAB(40);:print using u$;t5 -15680 print TAB(40);"============" -15690 print "TOTAL SALES,TAX AND SHIPPING";TAB(40);:print using u$;s1+s2+t4+t5 - if end #4 then 15800 -15700 open "ar" as 4 -15710 print #4;s1,s2,t2,t4,t5 - close 4 -15795 return -15800 create "ar" as 4 - goto 15710 -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master2 -20005 close 1 -20010 close 2 -20015 console -20020 PRINT clear$:PRINT -20025 PRINT "INSTALL PROGRAM DISK IN DRIVE A":PRINT -20026 PRINT chr$(07) -20030 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -20050 CHAIN "master2" diff --git a/bwbtest/C77B/CRJOPOST.BAS b/bwbtest/C77B/CRJOPOST.BAS deleted file mode 100644 index ebe8efa..0000000 --- a/bwbtest/C77B/CRJOPOST.BAS +++ /dev/null @@ -1,139 +0,0 @@ -1 rem This is the Accounts Receivable Posting Program - -%INCLUDE ALL.BAS -500 RESTORE - dim n(2,20),k$(2,20) - l$="$$#,###,###.##" - - before1$="Before POSTING " - after1$="After POSTING " - numbers1$="##,###,###.## ##,###,###.## ##,###,###.##" - before$=before1$+numbers1$:after$=after1$+numbers1$ - - temp$="Totals for Acct ########## /...5...10...15...20...25../" - zero$=temp$+" #.##" - credit$=temp$+" ##,###,###.## cr" - debit$=temp$+" ##,###,###.## db" - temp$="" - - print clear$:print -1002 PRINT "BEFORE PROCEEDING, IT IS A GOOD PRACTICE TO BACK UP" -1005 PRINT "BOTH THE GENERAL LEDGER AND AR FILE" -1010 PRINT "BY MAKING COPIES USING THE DISKCOPY FACILITY OF YOUR DOS." -1015 PRINT:PRINT"IF YOU ARE UNFAMILIAR WITH THE PROCESS, ASK YOUR" -1020 PRINT "SYSTEM SUPERVISOR FOR HELP.":PRINT -1025 PRINT "IF THIS HAS BEEN DONE; TYPE Y TO CONTINUE!" -1030 INPUT line temp$ -1035 IF left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" THEN CHAIN "master2" - print clear$:print -1545 PRINT "INSTALL THE GENERAL LEDGER DISK IN DRIVE A":PRINT -1550 PRINT "INSTALL THE CUSTOMER DISK WITH AR FILE IN DRIVE B":PRINT -1555 PRINT "TYPE RETURN WHEN READY":INPUT line temp$ - initialize - - rem get dates - z9=0 - print clear$:print -2005 PRINT "LOADING ACCOUNT NUMBER TABLES":PRINT -2010 PRINT "*** PLEASE WAIT ***" - open "glref" as 1 - read #1;z2 - dim h(z2) - for z=1 to z2 - read #1;h(z) - next z - close 1 -3070 N(2,1)=8:N(2,2)=24:N(2,3)=24:N(2,4)=1 -4000 REM THIS IS THE ACTUAL POSTING PROGRAM - open "ar" as 1 - read #1;s1,s2,t2,t4,t5 - close 1 - s3=0 - open "ar" as 1 - print #1;s3,s3,s3,s3,s3 - close 1 - open "gl" recl 138 as 1 -4100 print clear$:print -4105 PRINT "THIS POSTING PROGRAM POSTS: ":PRINT -4110 PRINT "PREPAID SALES TO APPROPRIATE SALES ACCOUNT (BANK IS POSTED" -4115 PRINT "THROUGH CHECK RECEIPTS ROUTINE)." -4120 PRINT "SALES ON TERMS TO APPROPRIATE SALES ACCOUNT AND A/R" -4125 PRINT "COST OF GOODS TO INVENTORY" -4130 PRINT "SHIPPING CHARGES TO EXPENSES" -4135 PRINT "SALES TAX TO EXPENSES AND SALES TAX PAYABLE" -4140 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ - lprinter - print "ACCOUNTS RECEIVABLE AUDIT TRAIL RECORD FOR ";D$(1) - print "=======================================================":print - console -4150 print clear$:print -4200 PRINT "ENTER ACCOUNT NUMBER FOR PREPAID SALES ":INPUT N(0,1):PRINT -4205 GOSUB 20000 -4210 IF A=1 THEN 4200 -4220 N(0,2)=S1*(-1) -4225 GOSUB 9000 -4300 PRINT "ENTER ACCOUNT NUMBER FOR ACCOUNTS RECEIVABLE ":INPUT N(0,1):PRINT -4305 GOSUB 20000 -4310 IF A=1 THEN 4300 -4320 N(0,2)=S2 -4325 GOSUB 9000 -4400 PRINT "ENTER ACCOUNT NUMBER FOR SALES ON TERMS ":INPUT N(0,1):PRINT -4405 GOSUB 20000 -4410 IF A=1 THEN 4400 -4420 N(0,2)=S2*(-1) -4425 GOSUB 9000 -4600 PRINT "ENTER ACCOUNT NUMBER FOR INVENTORY ":INPUT N(0,1):PRINT -4605 GOSUB 20000 -4610 IF A=1 THEN 4600 -4620 N(0,2)=T2*(-1) -4625 GOSUB 9000 -4700 PRINT "ENTER ACCOUNT NUMBER FOR SHIPPING EXPENSE ":INPUT N(0,1):PRINT -4705 GOSUB 20000 -4710 IF A=1 THEN 4700 -4720 N(0,2)=T4 -4725 GOSUB 9000 -4900 PRINT "ENTER ACCOUNT NUMBER FOR SALE TAX EXPENSE ":INPUT N(0,1):PRINT -4905 GOSUB 20000 -4910 IF A=1 THEN 4900 -4920 N(0,2)=T5 -4925 GOSUB 9000 -5000 PRINT "ENTER ACCOUNT NUMBER FOR SALES TAX PAYABLE ":INPUT N(0,1):PRINT -5005 GOSUB 20000 -5010 IF A=1 THEN 5000 -5015 A=0 -5020 N(0,2)=T5*(-1) -5025 GOSUB 9000 -6000 GOTO 10000 -9000 REM SUBROUTINE TO POST AND PRINT TOTALS -9025 FOR Z4=1 TO Z2 -9030 IF N(0,1)=H(Z4) THEN read #1,z4;N(1,1),N(1,2),R$,N(1,4),N(1,5), N(1,6),N(1,7),N(1,8),N(1,9),N(1,10):GOTO 9040 -9035 NEXT Z4 -9040 lprinter - print - if n(0,2)=0 then print using zero$;n(1,2),r$,n(0,2) - if n(0,2)<0 then print using credit$;n(1,2),r$,n(0,2) - if n(0,2)>0 then print using debit$;n(1,2),r$,n(0,2) - print using before$;n(1,4),n(1,5),n(1,6) - FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,2):NEXT X - print #1,z4;N(1,1),N(1,2),R$,N(1,4),N(1,5),N(1,6),N(1,7), N(1,8),N(1,9),N(1,10) - print using after$;n(1,4),n(1,5),n(1,6) - console -9235 RETURN -10000 close 1 -10005 PRINT "REPLACE DISK #3 IN DRIVE A - TYPE RETURN TO CONTINUE" -10010 INPUT line temp$ - lprinter -10015 print chr$(12):for z=1 to 100:next z:print chr$(12):console - console -10020 chain "master2" -20000 print clear$:print -20005 A=0 -20010 PRINT "*** VALIDATING ACCOUNT NUMBER ***" -20020 PRINT:PRINT "PLEASE WAIT" -20080 FOR Z4=1 TO Z2 -20085 IF N(0,1)=0 THEN 20510 -20090 IF N(0,1)=H(Z4) THEN print clear$:print:GOTO 21000 -20100 NEXT Z4 -20500 print N(0,1);" IS NOT A VALID ACCOUNT NUMBER" -20510 A=1 -21000 RETURN diff --git a/bwbtest/C77B/CRJOTRAN.BAS b/bwbtest/C77B/CRJOTRAN.BAS deleted file mode 100644 index 64e12df..0000000 --- a/bwbtest/C77B/CRJOTRAN.BAS +++ /dev/null @@ -1,345 +0,0 @@ -1 rem This is the Order/Invoice Entry Program - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(4,20),g(10),q(10) - l$="$$##,###.##":u$="##########":v$="####" - repeat$="--------------------------------" - fill$=" " - z5$="ir":z6$=z5$+"back":z7$=z5$+"size" - RESTORE - for z=1 to 70:delim1$=delim1$+"*":delim2$=delim2$+"=":next z -fmt1$ ="Rec No. #### 1 - Tag ######## 2 - A/R Account No. ##########" -fmt2$ ="3 - Invoice No. ########## 4 - Salesman / /" -fmt3$ ="5 - Cust Ord No. / / 6 - Ship Date / /" -fmt4$ ="7 - Carrier (Via) / / 8 - FOB Point / /" -fmt5$ ="9 - Terms / / 10- Tax Code ! Flags / /" -fmt6$ ="12- Customer Rec No. #### 13- Shipping Chgs $##########.##" -fmt7$ =" Item Record No Quantity Item Record No Quantity" -fmt8$ ="No 1 #### ########## No 2 #### ##########" -fmt9$ ="No 3 #### ########## No 4 #### ##########" -fmt10$="No 5 #### ########## No 6 #### ##########" -fmt11$="No 7 #### ########## No 8 #### ##########" -fmt12$="No 9 #### ########## No 10 #### ##########" -540 K$(4,1)="1 - NEW ENTRY":K$(4,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(4,3)="3 - MODIFY EXISTING ENTRY" -560 K$(4,4)="4 - DELETE EXISTING ENTRY" -570 K$(4,5)="5 - CREATE NEW FILE":K$(4,6)="6 - CLEAR EXISTING FILE" -580 K$(4,7)="7 - BACK-UP AND SORT FILE":K$(4,8)="8 - LIST FILE" -590 K$(4,9)="9 - FINISHED" - print clear$:print -1100 K$(1,1)="TAG":K$(1,2)="A/R ACCT #":K$(1,3)="INVOICE #" -1105 K$(1,4)="SALESMAN":K$(1,5)="CUST. ORDER #":K$(1,6)="SHIPPING DATE" -1110 K$(1,7)="CARRIER (VIA)":K$(1,8)="FOB POINT":K$(1,9)="TERMS (1,2, OR 3)" -1130 K$(1,10)="TAX CODE":K$(1,11)="FLAGS" -1132 K$(1,12)="CUSTOMER REC #" -1135 K$(1,13)="SHIPPING CHARGES" -1200 K$(2,1)="1 - TAG":K$(2,2)="2 - A/R ACCT #":K$(2,3)="3 - INVOICE #" -1205 K$(2,4)="4 - SALESMAN":K$(2,5)="5 - CUST. ORDER #" -1206 K$(2,6)="6 - SHIPPING DATE":K$(2,7)="7 - CARRIER(VIA)" -1210 K$(2,8)="8 - FOB POINT":K$(2,9)="9 - TERMS (1,2, OR 3)" -1230 K$(2,10)="10- TAX CODE":K$(2,11)="11- FLAGS" -1232 K$(2,12)="12- CUSTOMER REC #" -1235 K$(2,13)="13- SHIPPING CHARGES" -1300 N(1,1)=8:N(1,2)=10:N(1,3)=10:N(1,4)=14:N(1,5)=10:N(1,6)=8 -1305 N(1,7)=8:N(1,8)=10:N(1,9)=10:N(1,10)=1:N(1,11)=4:N(1,12)=4 -1310 N(1,13)=12:G(0)=4:Q(0)=10 - print clear$:print - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 384 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "INVOICE REGISTER ENTRY PROGRAM" - PRINT "------------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(4,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:N(0,Z)=0:NEXT Z -1695 N$="":new$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z - for z=1 to 10:g(z)=0:q(z)=0:next z -1720 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2036 Z=0:GOSUB 24000 -2040 FOR Z=4 TO 10 - PRINT CUR$ -2042 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2044 PRINT K$(1,Z);TAB(30); -2046 INPUT line K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2048 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ -2050 NEXT Z -2052 N$="" -2054 FOR Z=4 TO 10:N$=N$+K$(3,Z):NEXT Z -2056 FOR Z=12 TO 13 - PRINT CUR$ -2058 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2060 PRINT K$(1,Z);TAB(30); -2062 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2064 NEXT Z -2066 FOR Z=1 TO 10 - PRINT CUR$ -2068 PRINT TAB(30);left$(repeat$,g(0)) - PRINT UP$; -2070 PRINT "FINISHED GOODS REC # ";TAB(30); -2072 INPUT G(Z):PRINT chr$(13) - PRINT CLEAR$ - PRINT CUR$ -2074 PRINT TAB(30);left$(repeat$,q(0)) - PRINT UP$; -2076 PRINT "QUANTITY ";TAB(30); -2078 INPUT Q(Z):PRINT chr$(13) -2080 PRINT:INPUT "IS THIS THE LAST ITEM? ";line temp$ -2082 IF left$(temp$,1)="y" or left$(temp$,1)="Y" THEN 2100 - PRINT CLEAR$ -2084 NEXT Z -2100 Z1=Z2 -2105 PRINT clear$; -2110 GOSUB 20000 -2115 PRINT "IF A FINISHED GOODS REC # OR QUANTITY IS TO BE CHANGED" -2116 PRINT "TYPE # - RETURN. OTHERWISE TYPE THE NUMBER PRECEEDING AN ENTRY" -2117 PRINT "FOLLOWED BY RETURN.":PRINT -2118 PRINT "IF YOU ARE FINISHED, TYPE 14 - RETURN"; -2119 INPUT line temp$ -2120 IF temp$="#" THEN GOSUB 25000 -2125 Z=VAL(temp$) -2150 IF Z>13 THEN 2216 -2160 IF Z=3 THEN GOSUB 24000 -2177 IF Z<1 THEN 2105 -2178 IF Z>3 AND Z<12 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2205 PRINT K$(1,Z);TAB(30); -2210 INPUT line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2217 FOR I=4 TO 11:N$=N$+K$(3,I):NEXT I -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" or left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 384 as 1 - print #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT:INPUT "RECORD NUMBER";Z1:PRINT clear$:PRINT -3003 IF Z1>=Z2 THEN 3000 -3004 IF Z1<1 THEN RETURN -3005 open z5$ recl 384 as 1 - read #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -3008 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -3009 CLOSE 1 -3015 PRINT clear$:PRINT -3020 GOSUB 20000 -3075 PRINT "FOR NEW RECORD, TYPE N-RETURN , OTHERWISE F-RETURN" -3085 INPUT line temp$ -3090 IF ucase$(temp$)="N" THEN 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOSUB 4100:GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOSUB 4100:GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOSUB 4100:GOTO 1620 -4030 open z5$ recl 384 as 1 - read #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) - close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4050 Z9=1 -4055 FOR Z=4 TO 11 -4060 K$(3,Z)=MID$(N$,Z9,N(1,Z)) -4065 Z9=Z9+N(1,Z) -4070 NEXT Z -4075 GOTO 2105 -4100 FOR AAA=1 TO 200 :NEXT AAA :RETURN -5000 PRINT clear$:PRINT:INPUT "RECORD NUMBER";Z1:PRINT clear$:PRINT -5002 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOSUB 4100:GOTO 1620 -5004 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOSUB 4100:GOTO 1620 -5005 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOSUB 4100:GOTO 1620 -5006 open z5$ recl 384 as 1 - read #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) - close 1 -5010 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -5015 PRINT clear$:PRINT -5020 GOSUB 20000 -5100 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5105 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5110 IF ucase$(temp$)<>"YES" THEN 5100 -5115 N(2,1)=0 -5120 open z5$ recl 384 as 1 - print #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -5130 close 1 -5135 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A INVOICE REG FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF ucase$(temp$)="C" then initialize:goto 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";z3 -6055 PRINT -6060 n$="":for z=1 to 150:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:n(0,z)=0:next z -6062 FOR Z=1 TO 10:G(Z)=0:Q(Z)=0:NEXT Z -6065 create z5$ recl 384 as 1 -6070 FOR Z1=1 TO z3+2 - print #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -6085 NEXT Z1 -6090 close 1 -6095 PRINT clear$:PRINT -6100 PRINT "INVOICE REG FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF ucase$(temp$)<>"YES" THEN RETURN -7008 n$="":for z=1 to 150:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:n(0,z)=0:next z - for z=1 to 10:g(z)=0:q(z)=0:next z - open z5$ recl 384 as 1 -7010 FOR Z1=1 TO z3+2 - print #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -7025 NEXT Z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "INVOICE REG FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 chain "crjosort" -9000 PRINT clear$:PRINT -9100 lprinter -9105 open z5$ recl 384 as 1 -9110 FOR I=1 TO Z2-1 - read #1,i;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -9140 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z - print using fmt1$;i,n(2,1),n(2,2) - print using fmt2$;n(2,3),k$(3,4) - print using fmt3$;k$(3,5),k$(3,6) - print using fmt4$;k$(3,7),k$(3,8) - print using fmt5$;k$(3,9),k$(3,10),k$(3,11) - print using fmt6$;n(2,12),n(2,13) - print delim2$ - print fmt7$ - print using fmt8$;g(1),q(1),g(2),q(2) - print using fmt9$;g(3),q(3),g(4),q(4) - print using fmt10$;g(5),q(5),g(6),q(6) - print using fmt11$;g(7),q(7),g(8),q(8) - print using fmt12$;g(9),q(9),g(10),q(10) - print -9800 NEXT I - CLOSE 1 -9995 RETURN -10000 CHAIN "master2" -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 384 as 1 - z3=(size(z5$)*block.size)/384 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 -20000 print using fmt1$;z1,n(2,1),n(2,2) - print using fmt2$;n(2,3),k$(3,4) - print using fmt3$;k$(3,5),k$(3,6) - print using fmt4$;k$(3,7),k$(3,8) - print using fmt5$;k$(3,9),k$(3,10),k$(3,11) - print using fmt6$;n(2,12),n(2,13) - print delim2$ - print fmt7$ - print using fmt8$;g(1),q(1),g(2),q(2) - print using fmt9$;g(3),q(3),g(4),q(4) - print using fmt10$;g(5),q(5),g(6),q(6) - print using fmt11$;g(7),q(7),g(8),q(8) - print using fmt12$;g(9),q(9),g(10),q(10) - print -20250 RETURN -24000 open "inv" as 1 - read #1;n(2,3) - close 1 -24030 IF N(2,3)<>0 THEN 24800 - PRINT CUR$ -24040 PRINT TAB(30);left$(repeat$,n(1,3)) - PRINT UP$; -24050 PRINT K$(1,3);TAB(30); -24060 INPUT N(2,3):PRINT chr$(13) - PRINT CLEAR$ -24070 GOTO 24995 -24800 IF Z=3 THEN 24995 -24900 A=N(2,3)+1 -24910 open "inv" as 1 - print #1;a - close 1 -24995 RETURN -25000 INPUT "ENTER INVOICE ITEM # ";Z -25010 PRINT TAB(30);left$(repeat$,g(0)) - PRINT UP$; -25020 PRINT "FINISHED GOODS REC # ";TAB(30); -25030 INPUT G(Z):PRINT chr$(13) -25040 PRINT TAB(30);left$(repeat$,q(0)) - PRINT UP$; -25050 PRINT "QUANTITY ";TAB(30); -25060 INPUT Q(Z):PRINT chr$(13) -25070 temp$="14" -25995 RETURN diff --git a/bwbtest/C77B/CRLABELS.BAS b/bwbtest/C77B/CRLABELS.BAS deleted file mode 100644 index bac314b..0000000 --- a/bwbtest/C77B/CRLABELS.BAS +++ /dev/null @@ -1,89 +0,0 @@ -1 rem This is the customer mailing label printing program. - -%INCLUDE ALL.BAS -500 RESTORE -1000 DIM K$(14),N(2,14) -1020 DIM A$(5),B$(5),C$(5),D$(8),E$(5),F$(5) - for z=3 to 8:read n(0,z):next z - data 24,24,24,17,2,5 - print clear$:print -1050 PRINT -1060 PRINT "THIS IS THE MAILING LABEL PRINTING ROUTINE." -1070 PRINT -1080 PRINT "IF YOU ARE NOT FAMILIAR WITH ITS OPERATION, PLEASE" -1090 PRINT "READ THE INSTRUCTIONS BEFORE PROCEEDING." -1100 PRINT:PRINT - z5$="cr" -1110 INPUT"HOW MANY LABELS ACROSS THE PAGE (1 TO 5)";M -1120 PRINT:PRINT -1125 PRINT "INDICATE THE DISTANCE BETWEEN THE LEFT EDGES OF" -1130 PRINT "ANY TWO LABELS IN DECIMAL INCHES (I.E. 2.6)." -1135 INPUT K -1140 K=(K*10)+1 -1142 IF M=1 THEN 1146 -1145 IF K<25 THEN PRINT "*** LABEL TO SHORT ***":GOTO 1125 -1146 IF K>110 THEN PRINT "*** LABEL TO LONG ***":GOTO 1125 -1150 PRINT:PRINT -1160 PRINT "INDICATE THE NUMBER OF SPACES BETWEEN LABELS (I.E. 2)." -1165 INPUT L -2000 IF M<1 OR M>5 THEN 1110 - if end #1 then 1100 -2030 open z5$ recl 384 as 1 -2040 Z3=(size(z5$)*block.size)/384:Z2=0 -2050 FOR Z2=1 TO Z3 -2060 read #1,z2;n(2,1),n(2,2),n$ -2070 IF N(2,2)=0 THEN 2100 -2090 NEXT Z2 -2100 Z2=Z2-1 -2105 close 1 -2110 Z3=Z3-2 - print clear$:print:print -2150 PRINT "LABELS TO PRINT ";Z2 -2160 PRINT -3000 NA=INT(Z2/M)+1 -3004 N(0,9)=14:N(0,10)=11:N(0,11)=8:N(0,12)=8:N(0,13)=1 -3010 Z1=0 -3020 open z5$ recl 384 as 1 -3025 lprinter -3030 FOR J=1 TO NA -3035 Z5=0 -3040 FOR I=1 TO M - read #1,z1+1;n(2,1),n(2,2),n$ -3055 Z9=1:FOR Z=3 TO 13:K$(Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -3060 A$(I)=K$(3) -3070 B$(I)=K$(4) -3080 C$(I)=K$(5) -3090 D$(I)=LEFT$(K$(6),15) -4000 E$(I)=K$(7) -4010 F$(I)=K$(8) -4020 Z1=Z1+1 -4025 Z5=Z5+1 -4027 IF Z1=Z2 THEN 4040 -4030 NEXT I -4040 FOR I=1 TO Z5-1 -4045 IF Z5=1 THEN print TAB(K);:GOTO 4070 -4050 print A$(I);TAB((I*K)-I+1); -4060 NEXT I -4070 print A$(Z5) -4080 FOR I=1 TO Z5-1 -4085 IF Z5=1 THEN print TAB(K);:GOTO 5010 -4090 print B$(I);TAB((I*K)-I+1); -5000 NEXT I -5010 print B$(Z5) -5020 FOR I=1 TO Z5-1 -5025 IF Z5=1 THEN print TAB(K);:GOTO 5050 -5030 print C$(I);TAB((I*K)-I+1); -5040 NEXT I -5050 print C$(Z5) -5060 FOR I=1 TO Z5-1 -5065 IF Z5=1 THEN print TAB(K);:GOTO 6000 -5070 print D$(I);",";E$(I);" "; -5080 print F$(I);TAB((I*K)-I+1); -5090 NEXT I -6000 print D$(Z5);",";E$(Z5);" ";F$(Z5) -6010 FOR Z=1 TO L:print:NEXT Z -6030 NEXT J -6040 close 1 -6045 console -6050 PRINT clear$ -6060 chain "master6" diff --git a/bwbtest/C77B/CRPPINV.BAS b/bwbtest/C77B/CRPPINV.BAS deleted file mode 100644 index cbff479..0000000 --- a/bwbtest/C77B/CRPPINV.BAS +++ /dev/null @@ -1,201 +0,0 @@ -1 rem This is the Preprinted Invoice Printing Program - -%INCLUDE ALL.BAS -500 RESTORE - dim n(5,20),k$(5,20),h(9),s(9),t(4,9),g(10),q(10) - for z=4 to 11:read n(0,z):next z - for z=3 to 17:read n(1,z):next z - for z=3 to 9:read n(2,z):next z - data 14,10,8,8,10,10,1,4 - data 24,24,24,17,2,5,14,24,24,24,17,2,5,14,8 - data 7,12,24,24,8,8,10 - z5$="ir":z6$="cr":z7$="fg" - - for z=1 to 49:fmttemp$=fmttemp$+" ":next z - - fmt5$=fmttemp$+"##########" - fmt8$=fmttemp$+"/...5...10...15/ /...5../" - - fmt10$=" /...5...10...15...20.../ " - fmt10$=fmt10$+"/...5...10...15...20.../" - - fmt11$=fmt10$ - fmt12$=fmt10$ - - fmt13$=" /...5...10...15./, // /.../ " - fmt13$=fmt13$+"/...5...10...15./, // /.../" - - fmt18$="########## /...5../ /...5../ /...5...1/ " - fmt18$=fmt18$+"/...5...1/ /...5...10.../" - - fmt21$="########## ########## /...5...10...15...20.../" - fmt21$=fmt21$+" ##,###.## ###,###.##" - - fmttemp$="":for z=1 to 74:fmttemp$=fmttemp$+" ":next z - fmt39$=fmttemp$+"###,###.##" - - u$="###,###.##" - print clear$:print -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT INVOICES -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING INVOICES" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0:T5=0:T6=0:P0=1 -6035 X=1 -6040 PRINT:PRINT "INSTALL INVOICE REGISTER DISK IN DRIVE A" -6045 PRINT:PRINT "INSTALL A CUSTOMER DISK IN DRIVE B":PRINT -6046 PRINT chr$(07) -6050 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -6100 p9=0 - - open "irsize" as 1 - read #1;z2,z3 - close 1 - z2=z2-1 - -6240 PRINT clear$:PRINT -6245 PRINT:PRINT "INVOICES TO BE PRINTED ";Z2 -6246 PRINT chr$(07) -6250 PRINT:INPUT "TO PRINT INVOICES, TYPE RETURN.";line temp$ - lprinter -6300 open z5$ recl 384 as 1 -6310 open z6$ recl 384 as 2 -6320 FOR I=1 TO Z2 -6350 GOSUB 15000 -6380 NEXT I -6410 GOTO 20000 -15000 IF I>Z2 THEN 15595 - read #1,i;N(3,1),N(3,2),N(3,3),N$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15060 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -15065 if mid$(k$(3,11),2,1)="I" then 15595 -15070 z$="":z$=left$(k$(3,11),1)+"I"+right$(k$(3,11),2):k$(3,11)=z$ -15105 read #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15115 close 2 -15120 Z9=1:FOR Z=3 TO 17:K$(4,Z)=MID$(O$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -15200 for z=1 to 4:print:next z - - print using fmt5$;n(3,3) - print:print - print using fmt8$;k$(3,4),d$(1) - - print - print using fmt10$;k$(4,3),k$(4,10) - print using fmt11$;k$(4,4),k$(4,11) - print using fmt12$;k$(4,5),k$(4,12) - print using fmt13$;k$(4,6),k$(4,7),k$(4,8),k$(4,13),k$(4,14),k$(4,15) - -15240 FOR Z=1 TO 4:print:NEXT Z - -15270 IF VAL(K$(3,9))=1 THEN terms$= "PREPAID" -15275 IF VAL(K$(3,9))=2 THEN terms$= "COD" -15280 IF VAL(K$(3,9))=3 THEN terms$= "1% 10, NET 30" -15285 Z$=K$(3,9) -15286 IF VAL(Z$)<>1 AND VAL(Z$)<>2 AND VAL(Z$)<>3 THEN terms$= K$(3,9) - - print using fmt18$;n(4,2),k$(3,6),k$(3,7),k$(3,8),terms$,k$(3,5) -15290 print:print - - console - -15350 PRINT clear$:PRINT -15352 PRINT "INSTALL THE APPROPRIATE FINISHED GOODS DISK IN DRIVE B" -15353 PRINT chr$(07) -15354 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ -: lprinter -: initialize -: open z7$ recl 256 as 3 -: if end #3 then 15570 -: lines=20 - -15358 FOR J=1 TO 10 -15360 IF G(J)=0 THEN 15500 -15365 read #3,g(j);Z,Z,F$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -15370 IF Q(J)<=F3 THEN quan=q(j):F3=F3-q(j) - if q(j)>f3 then quan=f3:b.o.=q(j)-f3:F3=0 -15380 Z9=1:FOR Z=3 TO 9:K$(5,Z)=MID$(F$,Z9,N(2,Z)):Z9=Z9+N(2,Z):NEXT Z - - print using fmt21$;quan,b.o.,k$(5,5),f2,f2*q(j):lines=lines+1 - - print #3,g(j);Z,Z,F$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 - - quan=0:b.o.=0 - -15395 D3=D3+(Q(J)*F2):T2=T2+(Q(J)*F1) -15400 IF ucase$(k$(3,10))<>"T" AND ucase$(k$(3,10))<>"Y" then 15410 -15405 D5=D5+(D3*.06) -15410 IF VAL(K$(3,9))=1 THEN S1=S1+D3:GOTO 15500 -15415 S2=S2+D3 -15500 NEXT J -15505 T4=T4+D4:T5=T5+D5 -15510 print TAB(75);"-----------":lines=lines+1 -15512 print TAB(45);"Total Goods";TAB(75);:print using u$;d3:lines=lines+1 - - if d5=0 then 15515 - -15514 print:print TAB(50);"Sales Tax";TAB(75);:print using u$;d5:lines=lines+2 - -15515 if d4=0 then 15518 - -15516 print TAB(50);"Shipping";TAB(75);:print using u$;d4:lines=lines+1 -15518 print TAB(75);"===========":lines=lines+1 - - for z=1 to 38-lines:print:next z - -15520 print using fmt39$;d3+d4+d5 - - for z=1 to 4:print:next z - -15540 N$="":FOR Z=4 TO 11:N$=N$+K$(3,Z):NEXT Z -15545 print #1,i;N(3,1),N(3,2),N(3,3),n$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15550 IF VAL(K$(3,9))=1 THEN K$(4,17)=D$(1):C1=D3+D4+D5:C2=C2+D3+D4+D5 - if val(k$(3,9))=1 then 15560 -15555 C3=C3+D3+D4+D5 -15560 D3=0:D4=0:D5=0 -15565 O$="":FOR Z=3 TO 17:O$=O$+K$(4,Z):NEXT Z -15570 close 3 - console -15575 PRINT clear$:PRINT:PRINT "INSTALL CUSTOMER DISK IN DRIVE B" -15576 PRINT chr$(07) -15580 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ -: lprinter -: initialize -15582 open z6$ recl 384 as 2 - print #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15595 RETURN -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master2 -20005 close 1 -20010 close 2 - print chr$(12):for z=1 to 100:next z:print chr$(12) -20015 console -20020 PRINT clear$:PRINT -20025 PRINT "INSTALL PROGRAM DISK IN DRIVE A":PRINT -20026 PRINT chr$(07) -20030 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -20050 CHAIN "master2" diff --git a/bwbtest/C77B/CRRPT.BAS b/bwbtest/C77B/CRRPT.BAS deleted file mode 100644 index 6e6a9f7..0000000 --- a/bwbtest/C77B/CRRPT.BAS +++ /dev/null @@ -1,124 +0,0 @@ -1 rem This is the Aged Accounts Receivable Statement Printer - -%INCLUDE ALL.BAS -500 RESTORE - dim n(2,20),k$(3,20),h(9),s(9),t(4,9) -1009 PRINT clear$:PRINT -1020 N(1,3)=24:N(1,4)=24:N(1,5)=24:N(1,6)=17:N(1,7)=2:N(1,8)=5 -1025 N(1,9)=14:N(1,10)=24:N(1,11)=24:N(1,12)=24:N(1,13)=17:N(1,14)=2 -1030 N(1,15)=5:N(1,16)=14:N(1,17)=8 -1080 Q$="A G E D A C C O U N T S R E C E I V A B L E R E P O R T" -1090 U$="#,###,###.##":u1$="##########":u2$="###,###.##" -1100 REM GET DATES ROUTINE - for z=1 to t%(1):del$=del$+"*":del1$=del1$+"=":del2$=del2$+"-":next z -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT AGED ACCOUNTS RECEIVABLE REPORT -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING AGED ACCOUNTS RECEIVABLE REPORT" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0:P0=1:ytd=0 -6035 X=1 -6100 P9=0 -6200 open "cr" recl 384 as 1 -6205 z3=(size("cr")*block.size)/384 -6210 FOR Z2=1 TO Z3 -6215 read #1,z2;n(2,1),n(2,2),n$ -6220 IF N(2,2)=0 THEN 6230 -6225 NEXT Z2 -6230 close 1 -6235 Z2=Z2-1 -6240 PRINT:PRINT "RECORDS TO BE PRINTED ";Z2 -6245 PRINT:INPUT "TO PRINT REPORT, TYPE RETURN.";line temp$ - lprinter -6300 open "cr" recl 384 as 1 -6310 J=1 -6320 FOR K=1 TO (Z2/7)+1 -6330 GOSUB 9600 -6340 FOR I=J TO J+6 -6350 GOSUB 15000 -6360 NEXT I -6370 GOSUB 9700:J=J+7 -6380 NEXT K -6390 GOSUB 15600 -6400 GOSUB 9800 -6410 GOTO 20000 -9600 REM PRINT PAGE HEADING SUBROUTINE -9610 print del$:P9=P9+1 -9615 print:P9=P9+1 - IF J>1 then 9635 -9616 print TAB((T%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((T%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(T%(10));"DATE ";D$(X);TAB(T%(11));"PAGE #";P0 -9642 P9=P9+1 -9645 print del1$:P9=P9+1 -9650 print " REC# - NAME";TAB(36);"DATE OF LAST PAYMENT - AMOUNT"; -9655 print TAB(67);"YTD PAYMENTS" -9660 print "ACCT# - PHONE#";TAB(29);"CUR-CHGS";" 30-60/CHGS"; -9665 print " 60-90/CHGS 90+/CHGS" -9670 print del1$:P9=P9+1 -9695 RETURN -9700 REM REPORT CONTINUED SUBROUTINE -9705 print del1$ -9710 print "Report continues on next page" -9715 print del1$ -9720 print chr$(12):P9=0 -9725 P0=P0+1 -9740 RETURN -9800 REM End of report ROUTINE -9810 print del1$ -9820 print "End of report" -9830 print del$ -9840 print chr$(12) -9845 FOR Z=1 TO 100:NEXT Z:print chr$(12) -9850 RETURN -15000 IF I>Z2 THEN 15595 -15005 read #1,i;n(2,1),n(2,2),n$,c1,c2,c3,c4,c5,c6 -15020 Z9=1:FOR Z=3 TO 17:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -15030 print I;" - ";K$(3,4);TAB(43);K$(3,17);TAB(53); - print using u$;c1;tab(68);c2 -15050 print using u1$;n(2,2);:print " ";k$(3,9);:print using u2$;c3; - print using u$;tab(38);c4;tab(53);c5;tab(68);c6 -15070 IF C3+C4+C5+C6>=0 THEN 15090 -15080 print TAB(57);"*** CREDIT BALANCE ***" -15090 T1=T1+C3:T2=T2+C4:T3=T3+C5:T4=T4+C6 - ytd=ytd+c2 -15550 print:print -15595 RETURN -15600 print :print -15700 print del1$ -15710 T5=T4+T3+T2+T1 -15720 print "TOTALS:";TAB(27);:print using u2$;t1;tab(38); - print using u$;t2;tab(53);t3;tab(68);t4 -15730 print "REPORT TOTAL:";TAB(68);:print using u$;t5 - print:print "TOTAL Y-T-D RECEIPTS";TAB(68);:print using u$;ytd -15740 print del1$ -15795 RETURN -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master2 -20005 close 1 -20040 console -20050 CHAIN "master2" diff --git a/bwbtest/C77B/CRSORT.BAS b/bwbtest/C77B/CRSORT.BAS deleted file mode 100644 index 35ee8f1..0000000 --- a/bwbtest/C77B/CRSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the Customer Information Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="cr":z6$="crback":z7$="crsize":RL=384 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,3),N(2,4),N(2,5), N(2,6),N(2,7),N(2,8) - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,3),N(2,4),N(2,5), N(2,6),N(2,7),N(2,8) - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,3),N(2,4),N(2,5), N(2,6),N(2,7),N(2,8) - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,3),N(2,4),N(2,5), N(2,6),N(2,7),N(2,8) - NEXT Z - - N(2,1)=0:N(2,2)=0:N$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,3),N(2,4),N(2,5), N(2,6),N(2,7),N(2,8) - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "crentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "crentry" diff --git a/bwbtest/C77B/DAENTRY.BAS b/bwbtest/C77B/DAENTRY.BAS deleted file mode 100644 index ab0a931..0000000 --- a/bwbtest/C77B/DAENTRY.BAS +++ /dev/null @@ -1,169 +0,0 @@ -1 rem This is the Date Entry Program - -%INCLUDE ALL.BAS -500 RESTORE - DIM T%(20),A(16),D$(8),DATE1$(8) - BIZMII.FLAG=0 -505 z5$="date" -506 z6$="dateback" -515 repeat$="------------------------------" -516 fill$=" " -520 dim z$(5,5),n(2,20),k$(6,20) -540 K$(6,1)="1 - ENTER DATES":K$(6,2)="2 - EXAMINE DATES" -550 K$(6,3)="3 - MODIFY DATES" -570 K$(6,4)="4 - CREATE NEW FILE":K$(6,5)="5 - CLEAR EXISTING FILE" -590 K$(6,6)="6 - FINISHED" - print clear$:print -1075 K$(1,1)="CURRENT DATE":K$(1,2)="PERIOD ENDING DATE" -1080 K$(1,3)="PREVIOUS PERIOD ENDING DATE" -1085 K$(1,4)="MONTH ENDING DATE" -1090 K$(1,5)="QUARTER ENDING DATE" -1095 K$(1,6)="YEAR ENDING DATE" -1100 K$(1,7)="RESERVED" -1105 K$(1,8)="FISCAL YEAR ENDING DATE" -1110 K$(2,1)="1 - CURRENT DATE":K$(2,2)="2 - PERIOD ENDING DATE" -1115 K$(2,3)="3 - PREV PERIOD ENDING DATE" -1120 K$(2,4)="4 - MONTH ENDING DATE" -1125 K$(2,5)="5 - QUARTER ENDING DATE" -1130 K$(2,6)="6 - YEAR ENDING DATE" -1135 K$(2,7)="7 - RESERVED" -1140 K$(2,8)="8 - FISCAL YEAR ENDING DATE" -1145 K$(2,9)="9 - NONE" -1150 N(1,1)=8:N(1,2)=8:N(1,3)=8:N(1,4)=8:N(1,5)=8:N(1,6)=8 -1155 N(1,7)=8:N(1,8)=8 - if end #1 then 6000 - open z5$ as 1 - close 1 -1180 Z1=1:Z2=1 -1600 PRINT clear$ -1605 PRINT -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 6:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>6 then 1600 -1685 ON Z GOSUB 2000,3000,4000,6000,7000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:N$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -1705 GOTO 1600 -2000 PRINT clear$:PRINT -2010 PRINT "ENTER DATES IN THE FORMAT MM-DD-YY. FACILITIES" -2015 PRINT "ARE PROVIDED FOR EXAMINING DATES FOR CORRECTNESS" -2020 PRINT "BEFORE THEY ARE STORED ON THE DISK" -2025 PRINT -2040 FOR Z=1 TO 8 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 input line K$(3,Z):PRINT chr$(13) -2065 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,I) - PRINT CLEAR$ -2085 NEXT Z -2090 N$="" -2095 FOR Z=1 TO 8 - N$=N$+K$(3,Z) - D$(Z)=K$(3,Z) - DATE1$(Z)=D$(Z) - NEXT Z -2105 PRINT clear$:PRINT -2115 FOR Z=1 TO 9 -2120 PRINT K$(2,Z);TAB(30);K$(3,Z) -2125 NEXT Z -2145 PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>8 THEN 2216 -2170 IF Z<1 THEN 2105 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT K$(3,Z) -2200 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,I) -2216 N$="" -2220 FOR Z=1 TO 8 - N$=N$+K$(3,Z) - D$(Z)=K$(3,Z) - DATE1$(Z)=D$(Z) - NEXT Z -2225 INPUT "ANY MORE CHANGES";line temp$ - if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT - if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2280 - if left$(temp$,1)<>"n" and left$(temp$,1)<>"N" then 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2276 Z1=1 -2280 open z5$ as 1 - print #1; n$ - close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 Z1=1 -3015 open z5$ as 1 - read #1; n$ - close 1 -3030 PRINT - :PRINT "Should this be a 'hard-copy' listing (Y or N)?" - :INPUT LINE LIST$ - :IF LIST$="y" OR LIST$="Y" THEN LPRINTER -3032 Z9=1 -3035 FOR Z=1 TO 8 -3040 PRINT K$(1,Z);TAB(30);MID$(N$,Z9,N(1,Z)) -3045 Z9=Z9+N(1,Z) -3065 NEXT Z - PRINT CHR$(13):PRINT CHR$(12) - CONSOLE -3070 PRINT -3080 PRINT "IF FINISHED, TYPE RETURN.":PRINT -3085 input line temp$ -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 Z1=1 -4030 open z5$ as 1 - read #1; n$ - close 1 -4045 Z9=1 -4050 FOR Z=1 TO 8 -4055 K$(3,Z)=MID$(N$,Z9,N(1,Z)) -4060 Z9=Z9+N(1,Z) -4065 NEXT Z -4070 GOTO 2105 -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A DATE FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE letter c FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE letter n" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 input line temp$ -6040 IF left$(temp$,1)="c" or left$(temp$,1)="C" THEN INITIALIZE:GOTO 1600 -6045 PRINT clear$:PRINT -6050 n$="":for z=1 to 80:n$=n$+" ":next z -6055 Z1=1 -6065 create z5$ as 1 - print #1; n$ - close 1 -6095 PRINT clear$:PRINT -6100 PRINT "DATE FILE CREATED AND CLEARED.":PRINT -6110 input "TO CONTINUE, TYPE RETURN.";line temp$ -6115 GOTO 1600 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF temp$<>"YES" THEN RETURN -7010 n$="":for z=1 to 80:n$=n$+" ":next z -7012 open z5$ as 1 - print #1; n$ - close 1 -7035 PRINT clear$:PRINT -7040 PRINT "DATE FILE CLEARED!":PRINT -7045 input "TO CONTINUE, TYPE RETURN.";line temp$ -7060 RETURN -10000 CHAIN "MASTER7" diff --git a/bwbtest/C77B/DATA/AP b/bwbtest/C77B/DATA/AP deleted file mode 100644 index 3113057..0000000 --- a/bwbtest/C77B/DATA/AP +++ /dev/null @@ -1,2 +0,0 @@ - 0 0 0 0 0 - diff --git a/bwbtest/C77B/DATA/AR b/bwbtest/C77B/DATA/AR deleted file mode 100644 index 615900a..0000000 --- a/bwbtest/C77B/DATA/AR +++ /dev/null @@ -1 +0,0 @@ - 0 0 0 0 0 diff --git a/bwbtest/C77B/DATA/CG b/bwbtest/C77B/DATA/CG deleted file mode 100644 index 797b497..0000000 --- a/bwbtest/C77B/DATA/CG +++ /dev/null @@ -1,22 +0,0 @@ -100,140,135,"Truck Parking lot N06-01-79SD",7000,7000,0,5,5,0,0,0,200 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/CGSIZE b/bwbtest/C77B/DATA/CGSIZE deleted file mode 100644 index 59be291..0000000 --- a/bwbtest/C77B/DATA/CGSIZE +++ /dev/null @@ -1 +0,0 @@ -2,20 diff --git a/bwbtest/C77B/DATA/CHK b/bwbtest/C77B/DATA/CHK deleted file mode 100644 index a592cc6..0000000 --- a/bwbtest/C77B/DATA/CHK +++ /dev/null @@ -1 +0,0 @@ -1012 diff --git a/bwbtest/C77B/DATA/CR b/bwbtest/C77B/DATA/CR deleted file mode 100644 index 25e1bc6..0000000 --- a/bwbtest/C77B/DATA/CR +++ /dev/null @@ -1,22 +0,0 @@ - 1 , 102 ,"Mr. B. McLaine The Computer Store 20 S. Bedford Avenue South Plains NY12312(212) 540 9987HIROSHI OKUBO same same same same 12/19/79", 94.91 , 474.55 , 0 , 0 , 0 , 0 - 2 , 102 ,"Mr. Wagoner The Truck Stop 12351 Westlake Blvd. Remada IL30543none c/o Mr. Jensen Jensen Truck Inc. 12 Circle Street Hobb's Corner IL30543 12/19/79", 254 , 1270 , 61.5 , 0 , 0 , 0 -1,100,"JOSEEPH S. KILANOSKI, JRSORD USA,INC. 8300 N.E. UNDERGROUND DRKANSAS CITY MO64161(816) 454 6300 ",1200,1000000,12000,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/CRSIZE b/bwbtest/C77B/DATA/CRSIZE deleted file mode 100644 index b3985cb..0000000 --- a/bwbtest/C77B/DATA/CRSIZE +++ /dev/null @@ -1 +0,0 @@ -4,20 diff --git a/bwbtest/C77B/DATA/DATE b/bwbtest/C77B/DATA/DATE deleted file mode 100644 index 1873e8e..0000000 Binary files a/bwbtest/C77B/DATA/DATE and /dev/null differ diff --git a/bwbtest/C77B/DATA/EDEP b/bwbtest/C77B/DATA/EDEP deleted file mode 100644 index 643ffab..0000000 --- a/bwbtest/C77B/DATA/EDEP +++ /dev/null @@ -1,50 +0,0 @@ -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " -0,0,0,0,0," " diff --git a/bwbtest/C77B/DATA/EDEPSIZE b/bwbtest/C77B/DATA/EDEPSIZE deleted file mode 100644 index e2b26d7..0000000 --- a/bwbtest/C77B/DATA/EDEPSIZE +++ /dev/null @@ -1 +0,0 @@ -1,48 diff --git a/bwbtest/C77B/DATA/EF b/bwbtest/C77B/DATA/EF deleted file mode 100644 index 05205ae..0000000 --- a/bwbtest/C77B/DATA/EF +++ /dev/null @@ -1,16 +0,0 @@ -0,1420,0,0,0 -0,2400,0,0,0 -1420,3300,0,0.15,1420 -2400,6600,0,0.15,2400 -3300,6800,282,0.18,3300 -6600,10900,630,0.18,6600 -6800,10200,912,0.21,6800 -10900,15000,1404,0.21,10900 -10200,14200,1626,0.26,10200 -15000,19200,2265,0.24,15000 -14200,17200,2666,0.3,14200 -19200,23600,3273,0.28,19200 -17200,22500,3566,0.34,17200 -23600,28900,4505,0.32,23600 -22500,99999,5368,0.39,22500 -28900,99999,6201,0.37,28900 diff --git a/bwbtest/C77B/DATA/EP b/bwbtest/C77B/DATA/EP deleted file mode 100644 index 3103210..0000000 --- a/bwbtest/C77B/DATA/EP +++ /dev/null @@ -1,22 +0,0 @@ - 1001 , 864 ,"Jim Rathbone Highlight Auto Sales 132 The Street Citrus Heights CA92776(714) 889 3990597-28-135612/01/77 MSW", 4 , 4.25 , 0 , 0 , 0 , 170 , 0 , 0 , 10.421 , 0 , 0 , 7.03846 , 0 , 0 , 0 , 0 , 0 , 1.7 , 0 , 0 , 0 , 0 , 0 - 1002 , 864 ,"Robert Ranger Highlight Auto Sales 10234 James Blvd Villa Nova CA95465(415) 934 2448546-87-915403/22/75 SHW", 0 , 12.25 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 - 1003 , 864 ,"Geraldine Smith Highlight Auto Sales 459 The Avenue The City CA98765(714) 457 2946254-68-754807/04/77 MHW", 3 , 2.85 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 - 1004 , 864 ,"Bob Niles Highlight Auto Sales 5987 Jerry Street Vista Nova CA93547(714) 297 6497548-76-525808/10/78 SHW", 2 , 6.25 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/EPC b/bwbtest/C77B/DATA/EPC deleted file mode 100644 index 3b6abbf..0000000 Binary files a/bwbtest/C77B/DATA/EPC and /dev/null differ diff --git a/bwbtest/C77B/DATA/EPSIZE b/bwbtest/C77B/DATA/EPSIZE deleted file mode 100644 index a9b4aeb..0000000 --- a/bwbtest/C77B/DATA/EPSIZE +++ /dev/null @@ -1 +0,0 @@ -5,20,0 diff --git a/bwbtest/C77B/DATA/EPT b/bwbtest/C77B/DATA/EPT deleted file mode 100644 index 7b18a6c..0000000 --- a/bwbtest/C77B/DATA/EPT +++ /dev/null @@ -1 +0,0 @@ -6,67,3,17,82,3,20,15,11,28,53,66,76,86,6,6,11,21,26,32,41,52,59,65,71,77,86,4 diff --git a/bwbtest/C77B/DATA/ES b/bwbtest/C77B/DATA/ES deleted file mode 100644 index a8c1c39..0000000 --- a/bwbtest/C77B/DATA/ES +++ /dev/null @@ -1,63 +0,0 @@ -1,2000,0,0.01,1 -1,4000,0,0.01,1 -1,4000,0,0.01,1 -2000,3500,20,0.02,2000 -4000,7000,40,0.02,4000 -4000,6000,40,0.02,4000 -3500,5000,50,0.03,3500 -7000,10000,100,0.03,7000 -6000,7500,80,0.03,6000 -5000,6500,95,0.04,5000 -10000,13000,190,0.04,10000 -7500,9000,125,0.04,7500 -6500,8000,155,0.05,6500 -13000,16000,310,0.05,13000 -9000,10500,185,0.05,9000 -8000,9500,230,0.06,8000 -16000,19000,460,0.06,16000 -10500,12000,260,0.06,10500 -9500,11000,320,0.07,9500 -19000,22000,640,0.07,19000 -12000,13500,350,0.07,12000 -11000,12500,425,0.08,11000 -22000,25000,850,0.08,22000 -13500,15000,455,0.08,13500 -12500,14000,545,0.09,12500 -25000,28000,1090,0.09,25000 -15000,16500,575,0.09,15000 -14000,15500,680,0.1,14000 -28000,31000,1360,0.1,28000 -16500,18000,710,0.1,16500 -15500,99999,830,0.11,15500 -31000,99999,1660,0.11,31000 -18000,99999,860,0.11,18000 -25 -33 -41 -49 -57 -65 -73 -81 -25 -50 -58 -66 -74 -82 -90 -98 -15500 -31000,99999,1660,0.11,31000 -18000,99999,860,0.11,18000 -25 -33 -41 -49 -57 -65 -73 -81 -25 -50 -58 diff --git a/bwbtest/C77B/DATA/FG b/bwbtest/C77B/DATA/FG deleted file mode 100644 index f6f3892..0000000 --- a/bwbtest/C77B/DATA/FG +++ /dev/null @@ -1,21 +0,0 @@ - 10 , 10 ,"2220 AB-220 widget showroom 12-31-7712-31-76none ", 1 , 2.5 , 5.55 , 0 , 50 , 0 , 0 , 0 , 2 , 30 - 10 , 10 ,"2221 AC-221 gidget showroom 12-31-7712-31-76none ", 2 , 2.5 , 5.55 , 0 , 0 , 0 , 0 , 0 , 5 , 30 - 10 , 10 ,"2222 AD-223 gadget showroom 12-31-7712-31-763 ", 1 , 3.577 , 6.55 , 0 , 0 , 0 , 0 , 0 , 5 , 30 -0,0,"",0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/FGSIZE b/bwbtest/C77B/DATA/FGSIZE deleted file mode 100644 index 2c4c286..0000000 --- a/bwbtest/C77B/DATA/FGSIZE +++ /dev/null @@ -1 +0,0 @@ -4,8 diff --git a/bwbtest/C77B/DATA/GL b/bwbtest/C77B/DATA/GL deleted file mode 100644 index 01d7031..0000000 --- a/bwbtest/C77B/DATA/GL +++ /dev/null @@ -1,102 +0,0 @@ -100,101,"Petty Cash ",0,0,0,0,0,0,0 -100,102,"Bank of America ",7000,7000,7000,0,0,0,0 -100,105,"Securities ",8000,8000,8000,0,0,0,0 -100,110,"Accounts Receivable - Trade ",10000,10000,10000,0,0,0,0 -100,112,"Accounts Receivable - Other ",0,0,0,0,0,0,0 -100,120,"Loans Receivable ",0,0,0,0,0,0,0 -100,130,"Inventory - Raw Material ",0,0,0,0,0,0,0 -100,131,"Inventory - Work in Proc ",0,0,0,0,0,0,0 -100,132,"Inventory - Finished ",15000,15000,15000,0,0,0,0 -100,160,"Land ",10000,10000,10000,0,0,0,0 -100,161,"Buildings ",30000,30000,30000,0,0,0,0 -100,163,"Automotive Equipment ",0,0,0,0,0,0,0 -100,165,"Furniture and Fixtures ",0,0,0,0,0,0,0 -100,171,"Leasehold Improvements ",0,0,0,0,0,0,0 -100,173,"Machinery and Equipment ",40000,40000,40000,0,0,0,0 -100,174,"Office Equipment ",0,0,0,0,0,0,0 -100,175,"(less depreciation) ",-25000,-25000,-25000,0,0,0,0 -100,190,"Deposits ",0,0,0,0,0,0,0 -100,195,"Prepaid Expenses ",2000,2000,2000,0,0,0,0 -100,196,"Patents ",4999,4999,4999,0,0,0,0 -100,197,"Good Will ",1,1,1,0,0,0,0 -100,198,"Organization Expenses ",0,0,0,0,0,0,0 -200,201,"Accounts Payable - Trade ",-12000,-12000,-12000,0,0,0,0 -200,202,"Accounts Payable - Other ",0,0,0,0,0,0,0 -200,203,"Dividends Payable ",-2500,-2500,-2500,0,0,0,0 -200,204,"Miscellaneous Payable ",-3500,-3500,-3500,0,0,0,0 -200,209,"Bonds Payable ",-15000,-15000,-15000,0,0,0,0 -200,210,"Sales Tax Payable ",-4000,-4000,-4000,0,0,0,0 -200,220,"Federal Payroll Taxes ",0,0,0,0,0,0,0 -200,225,"State Payroll Taxes ",0,0,0,0,0,0,0 -200,270,"Contracts and Loans ",0,0,0,0,0,0,0 -200,272,"Notes Payable ",0,0,0,0,0,0,0 -200,276,"Mortgage Payable ",0,0,0,0,0,0,0 -200,282,"Deferred Income ",0,0,0,0,0,0,0 -200,285,"Refundable Deposits ",0,0,0,0,0,0,0 -200,288,"Treasury Stock ",0,0,0,0,0,0,0 -200,292,"Common Stock ",-50000,-50000,-50000,0,0,0,0 -200,293,"Paid in Capital ",0,0,0,0,0,0,0 -200,294,"Retained Earnings ",-15000,-15000,-15000,0,0,0,0 -200,295,"Surplus ",0,0,0,0,0,0,0 -300,301,"Sales - Dealer ",-50000,-50000,-50000,0,0,0,0 -300,302,"Sales - Mfgrs ",0,0,0,0,0,0,0 -300,303,"Sales - Retail ",0,0,0,0,0,0,0 -400,401,"Cost of Goods ",12000,12000,12000,0,0,0,0 -800,801,"Accounting and Legal ",0,0,0,0,0,0,0 -800,804,"Advertising ",0,0,0,0,0,0,0 -800,806,"Auto and Travel ",0,0,0,0,0,0,0 -800,808,"Bank Charges ",0,0,0,0,0,0,0 -800,810,"Bad Debts ",0,0,0,0,0,0,0 -800,814,"Cash (over) - short ",0,0,0,0,0,0,0 -800,820,"Delivery Expense ",0,0,0,0,0,0,0 -800,822,"Depreciation ",0,0,0,0,0,0,0 -800,825,"Discounts Allowed ",500,500,500,0,0,0,0 -800,828,"Dues and Subscriptions ",20,20,20,0,0,0,0 -800,830,"Entertainment and Promotion ",0,0,0,0,0,0,0 -800,838,"Insurance ",400,400,400,0,0,0,0 -800,841,"Interest ",0,0,0,0,0,0,0 -800,852,"Officer's Salaries ",6000,6000,6000,0,0,0,0 -800,854,"Office Supplies ",0,0,0,0,0,0,0 -800,855,"Postage and Shipping ",0,0,0,0,0,0,0 -800,860,"Rent ",0,0,0,0,0,0,0 -800,864,"Salaries ",0,0,0,0,0,0,0 -800,866,"Supplies ",0,0,0,0,0,0,0 -800,868,"Security Service ",0,0,0,0,0,0,0 -800,870,"Taxes and Licenses ",0,0,0,0,0,0,0 -800,872,"Taxes - Payroll ",0,0,0,0,0,0,0 -800,874,"Telephone ",0,0,0,0,0,0,0 -800,880,"Wages ",15000,15000,15000,0,0,0,0 -800,884,"Miscellaneous Expenses ",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/GLCD b/bwbtest/C77B/DATA/GLCD deleted file mode 100644 index 03ed6e1..0000000 --- a/bwbtest/C77B/DATA/GLCD +++ /dev/null @@ -1,22 +0,0 @@ -1008,102,"12/19/79JIM JONES Y",-100,835,100,0,0,0,0,0,0,0,0,0,0 -1009,102,"12/19/79DAVE HARPER THIS IS A TEST Y",-100,875,100,0,0,0,0,0,0,0,0,0,0 -1010,102,"12/19/79THE COMPUTER STORE TTTTTT Y",-100,845,100,0,0,0,0,0,0,0,0,0,0 -1011,102,"12/19/79RRRR RRR Y",-50,987,50,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/GLCDSIZE b/bwbtest/C77B/DATA/GLCDSIZE deleted file mode 100644 index f9a125c..0000000 --- a/bwbtest/C77B/DATA/GLCDSIZE +++ /dev/null @@ -1 +0,0 @@ -5,20 diff --git a/bwbtest/C77B/DATA/GLCK b/bwbtest/C77B/DATA/GLCK deleted file mode 100644 index 42e119f..0000000 --- a/bwbtest/C77B/DATA/GLCK +++ /dev/null @@ -1,7 +0,0 @@ -100,102,"12-07-79Jim Hale on account Y",100,220,-100,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/GLCKSIZE b/bwbtest/C77B/DATA/GLCKSIZE deleted file mode 100644 index ddddc6a..0000000 --- a/bwbtest/C77B/DATA/GLCKSIZE +++ /dev/null @@ -1 +0,0 @@ -2,5 diff --git a/bwbtest/C77B/DATA/GLF b/bwbtest/C77B/DATA/GLF deleted file mode 100644 index 4fbc316..0000000 --- a/bwbtest/C77B/DATA/GLF +++ /dev/null @@ -1 +0,0 @@ -"##,###,###.##","###.#" diff --git a/bwbtest/C77B/DATA/GLH b/bwbtest/C77B/DATA/GLH deleted file mode 100644 index 9ae8739..0000000 --- a/bwbtest/C77B/DATA/GLH +++ /dev/null @@ -1,13 +0,0 @@ - 100 , 198 ,"HAASSETS ", 101 , 198 , 0 , 0 , 0 , 0 , 0 , 0 - 200 , 295 ,"HLLIABILITIES & EQUITY ", 201 , 295 , 0 , 0 , 0 , 0 , 0 , 0 - 300 , 303 ,"HSINCOME ", 301 , 303 , 0 , 0 , 0 , 0 , 0 , 0 - 400 , 401 ,"HXCOST OF GOODS ", 401 , 401 , 0 , 0 , 0 , 0 , 0 , 0 - 800 , 884 ,"HXEXPENSES ", 801 , 884 , 0 , 0 , 0 , 0 , 0 , 0 -0,0,"",0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0 -0,0,"",0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/GLHSIZE b/bwbtest/C77B/DATA/GLHSIZE deleted file mode 100644 index 002309e..0000000 --- a/bwbtest/C77B/DATA/GLHSIZE +++ /dev/null @@ -1 +0,0 @@ -6,11 diff --git a/bwbtest/C77B/DATA/GLJO b/bwbtest/C77B/DATA/GLJO deleted file mode 100644 index 9d92a4e..0000000 --- a/bwbtest/C77B/DATA/GLJO +++ /dev/null @@ -1,53 +0,0 @@ -1,102," ",5000,105,8000,110,10000,132,15000,195,2000,160,10000,161,30000 -2,173," ",40000,175,-25000,196,4999,197,1,201,-12000,210,-4000,203,-2500 -3,204," ",-1500,209,-15000,292,-50000,294,-15000,0,0,0,0,0,0 -4,301," ",-50000,401,12000,852,6000,880,15000,825,500,828,20,838,400 -0,102," ",2000,204,-2000,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/GLJOSIZE b/bwbtest/C77B/DATA/GLJOSIZE deleted file mode 100644 index 445e510..0000000 --- a/bwbtest/C77B/DATA/GLJOSIZE +++ /dev/null @@ -1 +0,0 @@ -6,51 diff --git a/bwbtest/C77B/DATA/GLREF b/bwbtest/C77B/DATA/GLREF deleted file mode 100644 index 1528fd8..0000000 --- a/bwbtest/C77B/DATA/GLREF +++ /dev/null @@ -1,70 +0,0 @@ -69 -101 -102 -105 -110 -112 -120 -130 -131 -132 -160 -161 -163 -165 -171 -173 -174 -175 -190 -195 -196 -197 -198 -201 -202 -203 -204 -209 -210 -220 -225 -270 -272 -276 -282 -285 -288 -292 -293 -294 -295 -301 -302 -303 -401 -801 -804 -806 -808 -810 -814 -820 -822 -825 -828 -830 -838 -841 -852 -854 -855 -860 -864 -866 -868 -870 -872 -874 -880 -884 diff --git a/bwbtest/C77B/DATA/GLS b/bwbtest/C77B/DATA/GLS deleted file mode 100644 index ae6f18c..0000000 --- a/bwbtest/C77B/DATA/GLS +++ /dev/null @@ -1,21 +0,0 @@ - 100 , 132 ,"SACurrent Assets ", 101 , 132 , 0 , 0 , 0 , 0 , 0 , 0 - 100 , 175 ,"SAFixed Assets ", 160 , 175 , 0 , 0 , 0 , 0 , 0 , 0 - 100 , 198 ,"SAOther Assets ", 190 , 198 , 0 , 0 , 0 , 0 , 0 , 0 - 200 , 225 ,"SLCurrent Liabilities ", 201 , 225 , 0 , 0 , 0 , 0 , 0 , 0 - 200 , 276 ,"SLLong Term Liabilities ", 270 , 276 , 0 , 0 , 0 , 0 , 0 , 0 - 200 , 288 ,"SLOther Liabilities ", 282 , 288 , 0 , 0 , 0 , 0 , 0 , 0 - 200 , 295 ,"SEStockholder's Equity ", 292 , 295 , 0 , 0 , 0 , 0 , 0 , 0 - 300 , 303 ,"SSIncome ", 300 , 303 , 0 , 0 , 0 , 0 , 0 , 0 - 400 , 401 ,"SXCost of Goods ", 401 , 401 , 0 , 0 , 0 , 0 , 0 , 0 - 800 , 884 ,"SXOperating Expenses ", 801 , 884 , 0 , 0 , 0 , 0 , 0 , 0 -0,0," ",0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/GLSIZE b/bwbtest/C77B/DATA/GLSIZE deleted file mode 100644 index ea6ff69..0000000 --- a/bwbtest/C77B/DATA/GLSIZE +++ /dev/null @@ -1 +0,0 @@ -70,101 diff --git a/bwbtest/C77B/DATA/GLSSIZE b/bwbtest/C77B/DATA/GLSSIZE deleted file mode 100644 index 49060b4..0000000 --- a/bwbtest/C77B/DATA/GLSSIZE +++ /dev/null @@ -1 +0,0 @@ -11,25 diff --git a/bwbtest/C77B/DATA/GLT b/bwbtest/C77B/DATA/GLT deleted file mode 100644 index 630351e..0000000 --- a/bwbtest/C77B/DATA/GLT +++ /dev/null @@ -1 +0,0 @@ -80,2,10,22,8,12,42,14,42,8,57,101,101,295,401,401 diff --git a/bwbtest/C77B/DATA/INV b/bwbtest/C77B/DATA/INV deleted file mode 100644 index 48c9469..0000000 --- a/bwbtest/C77B/DATA/INV +++ /dev/null @@ -1 +0,0 @@ -1003 diff --git a/bwbtest/C77B/DATA/IR b/bwbtest/C77B/DATA/IR deleted file mode 100644 index 94435d7..0000000 --- a/bwbtest/C77B/DATA/IR +++ /dev/null @@ -1,22 +0,0 @@ - 2 , 110 , 1004 ,"Jim 123454 06/15/79Emery dest. 1% 10 net nPIRP", 2 , 12 , 3 , 20 , 1 , 5 , 2 , 15 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 - 100 , 102 , 1003 ,"Jeremy A-540 6/12/79 UPS dest. 1 yPIRP", 1 , 5 , 1 , 5 , 2 , 10 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 - 3 , 110 , 1001 ,"harry 4444 12/1/79 ups dest net 30 nPIR ", 2 , 3 , 1 , 5 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 -0,102,1002,"JOE KIUJJ887 12/30/79UPS KC.MO 1 Y",1,10,99,10,92,98,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,1003,"",1,5,1,5,2,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/IRSIZE b/bwbtest/C77B/DATA/IRSIZE deleted file mode 100644 index f9a125c..0000000 --- a/bwbtest/C77B/DATA/IRSIZE +++ /dev/null @@ -1 +0,0 @@ -5,20 diff --git a/bwbtest/C77B/DATA/MA0 b/bwbtest/C77B/DATA/MA0 deleted file mode 100644 index b6d4609..0000000 --- a/bwbtest/C77B/DATA/MA0 +++ /dev/null @@ -1,52 +0,0 @@ -1,70352," The Computer Place 587 N. Bristol Brownsville TX70352(715) 223 4567" -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " -0,0," " diff --git a/bwbtest/C77B/DATA/MA0SIZE b/bwbtest/C77B/DATA/MA0SIZE deleted file mode 100644 index bfef422..0000000 --- a/bwbtest/C77B/DATA/MA0SIZE +++ /dev/null @@ -1 +0,0 @@ -2,50 diff --git a/bwbtest/C77B/DATA/NM b/bwbtest/C77B/DATA/NM deleted file mode 100644 index 86d3fbd..0000000 --- a/bwbtest/C77B/DATA/NM +++ /dev/null @@ -1,6 +0,0 @@ -101,100," Aaron Associates Inc. 102 Ave de la Estrella San Clemente CA92672(714) 492 7633123 123 " -0,0,"" -0,0,"" -0,0,"" -0,0,"" -0,0,"" diff --git a/bwbtest/C77B/DATA/NMSIZE b/bwbtest/C77B/DATA/NMSIZE deleted file mode 100644 index 061fb6e..0000000 --- a/bwbtest/C77B/DATA/NMSIZE +++ /dev/null @@ -1 +0,0 @@ -2,4 diff --git a/bwbtest/C77B/DATA/PO b/bwbtest/C77B/DATA/PO deleted file mode 100644 index 209e2cd..0000000 --- a/bwbtest/C77B/DATA/PO +++ /dev/null @@ -1,7 +0,0 @@ - 100 , 220 , 1001 ,"Jim 1003 12-10-79UPS dest 1 nPIRP", 1 , 2 , 1 , 50 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 -0,0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -0,0,0," ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/POE b/bwbtest/C77B/DATA/POE deleted file mode 100644 index a9b8266..0000000 --- a/bwbtest/C77B/DATA/POE +++ /dev/null @@ -1 +0,0 @@ -1002 diff --git a/bwbtest/C77B/DATA/POSIZE b/bwbtest/C77B/DATA/POSIZE deleted file mode 100644 index ddddc6a..0000000 --- a/bwbtest/C77B/DATA/POSIZE +++ /dev/null @@ -1 +0,0 @@ -2,5 diff --git a/bwbtest/C77B/DATA/TM b/bwbtest/C77B/DATA/TM deleted file mode 100644 index d80feff..0000000 --- a/bwbtest/C77B/DATA/TM +++ /dev/null @@ -1,22 +0,0 @@ -1001,864,"Jim Rathbone ",2,0,0,0,0,0,0,0,0 -1002,864,"Robert Ranger ",2,0,0,0,0,0,0,0,0 -1003,864,"Geraldine Smith ",2,0,0,0,0,0,0,0,0 -1004,864,"Bob Niles ",2,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/VP b/bwbtest/C77B/DATA/VP deleted file mode 100644 index d0a7d32..0000000 --- a/bwbtest/C77B/DATA/VP +++ /dev/null @@ -1,12 +0,0 @@ - 100 , 220 ,"Jim Hale The Paper Works 102 Anywhere The City CA97654(213) 555 2343 KANSAS CITY ", 127 , 127 , 0 , 0 , 0 , 0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 -0,0," ",0,0,0,0,0,0 diff --git a/bwbtest/C77B/DATA/VPSIZE b/bwbtest/C77B/DATA/VPSIZE deleted file mode 100644 index fce22ae..0000000 --- a/bwbtest/C77B/DATA/VPSIZE +++ /dev/null @@ -1 +0,0 @@ -2,10 diff --git a/bwbtest/C77B/EFENTRY.BAS b/bwbtest/C77B/EFENTRY.BAS deleted file mode 100644 index 0edc93f..0000000 --- a/bwbtest/C77B/EFENTRY.BAS +++ /dev/null @@ -1,202 +0,0 @@ -1 rem This is the Federal Tax Table Entry Program - -%INCLUDE ALL.BAS -500 dim c(8,5),b(8,5) - dim n(2,20),k$(3,20) - l$="$##,###.##":u$=".###":r$="###.## " - z5$="ef" - RESTORE -540 K$(3,1)="1 - ENTER FED TABLES":K$(3,2)="2 - EXAMINE FED TABLES" -550 K$(3,3)="3 - MODIFY FED TABLES" -570 K$(3,4)="4 - CREATE NEW FILE":K$(3,5)="5 - CLEAR EXISTING FILE" -590 K$(3,6)="6 - LIST FED TABLES":K$(3,7)="7 - FINISHED" - print clear$:print -1100 K$(1,1)="AT LEAST":K$(1,2)="BUT NOT OVER" -1110 K$(1,3)="BASE":K$(1,4)="%":K$(1,5)="OF EXCESS OVER" -1200 K$(2,1)="SINGLE TAXPAYER ANNUAL TABLES" -1210 K$(2,2)="MARRIED TAXPAYER ANNUAL TABLE" -1220 K$(2,3)="HEAD OF HOUSEHOLD ANNUAL TABLE" -1230 K$(2,4)="CALIFORNIA TAX CREDIT TABLE" -1250 N(1,1)=12:N(1,2)=12:N(1,3)=12:N(1,4)=12:N(1,5)=12 - if end #1 then 6000 -1500 open z5$ as 1 - close 1 -1510 Z1=1:Z2=1 -1600 PRINT clear$ -1605 PRINT -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 7:PRINT K$(3,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z -1685 ON Z GOSUB 2000,3000,4000,6000,7000,9000,10000 -1690 FOR X=1 to 8:FOR Y=1 TO 5:c(X,Y)=0:B(X,Y)=0:NEXT Y:NEXT X -1705 GOTO 1600 -2000 GOSUB 20000 -2105 PRINT clear$:print -2110 GOSUB 40000 -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ as 1 - for x=1 to 8 - print #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - print #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5) - next x - close 1 -2995 RETURN -3000 PRINT clear$:PRINT -3002 open z5$ as 1 - for x=1 to 8 - read #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - read #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5) - next x - close 1 -3400 PRINT clear$ -3506 PRINT K$(2,1) -3508 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -3510 PRINT K$(1,4);TAB(61);K$(1,5) -3512 FOR X=1 to 8 -3516 print x;tab(6);:print using l$;c(x,1);tab(21);c(x,2);tab(36);c(x,3); - print using u$;tab(51);c(x,4);:print using l$;tab(61);c(x,5) -3520 NEXT X -3525 INPUT "FOR NEXT CHART TYPE RETURN.";line temp$ -3600 PRINT clear$:PRINT:PRINT K$(2,2) -3608 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -3610 PRINT K$(1,4);TAB(61);K$(1,5) -3612 FOR X=1 to 8 -3616 print x;tab(6);:print using l$;b(x,1);tab(21);b(x,2);tab(36);b(x,3); - print using u$;tab(51);b(x,4);:print using l$;tab(61);b(x,5) -3620 NEXT X -3895 PRINT -3950 INPUT "WHEN FINISHED TYPE RETURN.";line temp$ -3995 RETURN -4000 PRINT clear$:PRINT -4002 open z5$ as 1 - for x=1 to 8 - read #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - read #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5) - next x - close 1 -4995 GOTO 2105 -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A FED TABLES FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF temp$="c" OR temp$="C" THEN INITIALIZE:GOTO 1500 -6045 PRINT clear$:PRINT -6065 create z5$ as 1 - for x=1 to 8 - print #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - print #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5) - next x - close 1 -6495 PRINT clear$:PRINT -6500 PRINT "FED TABLES FILE CREATED AND CLEARED.":PRINT -6510 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ -6515 GOTO 1600 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7002 IF temp$<>"YES" THEN RETURN - for x=1 to 8:for y=1 to 5:c(x,y)=0:b(x,y)=0:next y:next x -7004 open z5$ as 1 - for x=1 to 8 - print #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - print #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5) - next x - close 1 -7935 PRINT clear$:PRINT -7940 PRINT "FED TABLES FILE CLEARED!":PRINT -7945 PRINT "TO CONTINUE, TYPE RETURN." -7950 INPUT line temp$ -7960 RETURN -9000 PRINT clear$:PRINT - print "Listing":print - lprinter -9002 open z5$ as 1 - for x=1 to 8 - read #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - read #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5) - next x - close 1 -9506 PRINT K$(2,1) -9508 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -9510 PRINT K$(1,4);TAB(61);K$(1,5) -9512 FOR X=1 to 8 -9516 print x;tab(6);:print using l$;c(x,1);tab(21);c(x,2);tab(36);c(x,3); - print using u$;tab(51);c(x,4);:print using l$;tab(61);c(x,5) -9520 NEXT X -9600 PRINT:PRINT K$(2,2) -9608 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -9610 PRINT K$(1,4);TAB(61);K$(1,5) -9612 FOR X=1 to 8 -9616 print x;tab(6);:print using l$;b(x,1);tab(21);b(x,2);tab(36);b(x,3); - print using u$;tab(51);b(x,4);:print using l$;tab(61);b(x,5) -9620 NEXT X -9895 PRINT - print chr$(12):for z=1 to 100:next z:print chr$(12) - console -9995 RETURN -10000 CHAIN "bizmii" -20000 PRINT clear$:PRINT -20010 Z1=1 -20020 PRINT K$(2,Z1) -20030 FOR X=1 to 8 -20040 PRINT "VALUES FOR ROW ";X -20050 FOR Y=1 TO 5 -20060 PRINT TAB(30);"------------" - PRINT UP$; -20070 PRINT K$(1,Y);TAB(30); -20080 IF Z1=1 THEN INPUT c(X,Y):PRINT chr$(13) -20090 IF Z1=2 THEN INPUT B(X,Y):PRINT chr$(13) -20110 NEXT Y -20120 PRINT clear$:PRINT:PRINT K$(2,Z1) -20130 NEXT X -20140 IF Z1<2 THEN Z1=Z1+1:PRINT clear$:PRINT:GOTO 20020 -20150 RETURN -40000 PRINT K$(2,1) -40008 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -40010 PRINT K$(1,4);TAB(61);K$(1,5) -40012 FOR X=1 to 8 -40016 print x;tab(6);:print using l$;c(x,1);tab(21);c(x,2);tab(36);c(x,3); - print using u$;tab(51);c(x,4);:print using l$;tab(61);c(x,5) -40020 NEXT X -40030 PRINT "TO CHANGE AN ITEM TYPE S FOLLOWED BY ROW AND COLUMN" -40040 PRINT "TYPE F FOLLOWED BY RETURN IF NO CHANGES" -40050 INPUT line temp$ -40055 IF temp$="F" THEN 41000 -40060 INPUT "ROW ";X:INPUT "COLUMN ";Y -40065 IF temp$<>"S" THEN PRINT clear$:PRINT:GOTO 40000 -40070 PRINT TAB(30);"------------" - PRINT UP$; -40075 PRINT K$(1,Y);TAB(30); -40080 INPUT c(X,Y):PRINT clear$:PRINT:GOTO 40000 -41000 PRINT clear$:PRINT:PRINT K$(2,2) -41008 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -41010 PRINT K$(1,4);TAB(61);K$(1,5) -41012 FOR X=1 to 8 -41016 print x;tab(6);:print using l$;b(x,1);tab(21);b(x,2);tab(36);b(x,3); - print using u$;tab(51);b(x,4);:print using l$;tab(61);b(x,5) -41020 NEXT X -41030 PRINT "TO CHANGE AN ITEM TYPE M FOLLOWED BY ROW AND COLUMN" -41040 PRINT "TYPE F FOLLOWED BY RETURN IF NO CHANGES" -41050 INPUT line temp$ -41055 IF temp$="F" THEN return -41060 INPUT "ROW ";X:INPUT "COLUMN ";Y -41065 IF temp$<>"M" THEN PRINT clear$:PRINT:GOTO 41000 -41070 PRINT TAB(30);"------------" - PRINT UP$; -41075 PRINT K$(1,Y);TAB(30); -41080 INPUT B(X,Y):PRINT clear$:PRINT:GOTO 41000 diff --git a/bwbtest/C77B/EPCHECKS.BAS b/bwbtest/C77B/EPCHECKS.BAS deleted file mode 100644 index 5f09993..0000000 --- a/bwbtest/C77B/EPCHECKS.BAS +++ /dev/null @@ -1,172 +0,0 @@ -1 rem This is the Payroll Check Printer - - -%INCLUDE ALL.BAS - -500 dim TC%(28),n(2,20),k$(3,20),h(9),s(9),t(4,9) - print clear$:print - - z5$="ep":z6$="tm":z7$="epsize" - - - fmt6$=" " - fmt6$=fmt6$+" /...5../" - - fmt9$=" #### #### ##.## ####.## ####.## - - ####.##" - fmt9$=fmt9$+" ####.## ####.##" - - fmt12$=" SDI MISC" - - fmt13$=" " - fmt13$=fmt13$+" ########" - - fmt16$=" ####.## ####.## ####.## ####.## ####.## " - fmt16$=fmt16$+" ####.##" - - fmt19$=" /...5...10...15...20.../" - - fmt20$=" /...5...10/ " - fmt20$=fmt20$+" ####.##" - - fmt32$=" " - fmt32$=fmt32$+"/...5../ ######## $$#####.##" - - fmt33$=" /...5...10...15...20.../" - fmt34$=" /...5...10...15...20.../" - fmt35$=" /...5...10...15./, // /.../" - - RESTORE -1075 N(1,3)=24:N(1,4)=24:N(1,5)=24:N(1,6)=17:N(1,7)=2:N(1,8)=5 -1080 N(1,9)=14:N(1,10)=11:N(1,11)=8:N(1,12)=8:N(1,13)=1:N(1,14)=1:N(1,15)=1 - - N$="" - -8000 PRINT clear$:PRINT -8050 PRINT "THIS IS THE PAYROLL CHECK PRINTING PROGRAM." -8060 PRINT -8070 PRINT "SET PRINTER TO TOP OF FORM ****" -8080 PRINT -8100 print "Would you like a ***VOID*** check printed to" - print "establish print positions ? (Y/N)" - - input line temp$ - - if ucase$(left$(temp$,1))="Y" then GOSUB 10000 - if ucase$(left$(temp$,1))<>"N" then 8000 - - - open z7$ as 1 - read #1;z2,z3 - close 1 - -8240 Z2=z2-1 -8270 PRINT clear$:PRINT -8290 PRINT "CHECKS TO BE PRINTED = ",Z2 -8300 PRINT -8310 INPUT "TO PRINT CHECKS, DO CARRIAGE RETURN. ";line temp$ - - open z5$ recl 512 as 1 - open z6$ recl 128 as 2 - -8325 lprinter -8330 FOR Z5=1 TO Z2 -8340 read #1,z5;N(2,1),N(2,2),N$,N,R,H1,H2,H3, E0,E1,E2,F1,F2,F3,E3,E4,E5,E6,E7,E8,S1,S2,S3,M1,M2,M3 - - read #2,z5;temp1,temp2,o$,temp3,tips,temp4,temp5, ot,dt,st,ht,vt - -8390 P4=E0-S1-M1-E3-E6-F1 - -8395 Z9=1:FOR Z=3 TO 15:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z - - temp5=temp5+st+ht+vt - - if ucase$(k$(3,14))="S" then ot=0:dt=0 - - if ucase$(k$(3,14))="S" and ucase$(k$(3,15))="W" then temp5=40 - if ucase$(k$(3,14))="S" and ucase$(k$(3,15))="B" then temp5=80 - if ucase$(k$(3,14))="S" and ucase$(k$(3,15))="S" then temp5=86.66667 - if ucase$(k$(3,14))="S" and ucase$(k$(3,15))="M" then temp5=173.33333 - - if E0=0 then 8720 rem skip checks with zero gross pay - -8400 REM *** AND PRINT THE CHECK *** - - for z=1 to 5:print:next z - - print using fmt6$;d$(2) - - print:print - - print using fmt9$;temp5,ot+dt,r,temp5*r,(ot*r*1.5)+(dt*r*2), tips,e0-tips,e0 - - print:print - - print fmt12$ - - print using fmt13$;temp1 - - print:print - - print using fmt16$;f1,e3,e6,s1,m1,s1+f1+e3+e6+m1 - - print:print - - print using fmt19$;o$ - print using fmt20$;k$(3,10),p4 - - for z=1 to 11:print:next z - - print using fmt32$;d$(1),temp1,p4 - print using fmt33$;k$(3,3) - print using fmt34$;k$(3,5) - print using fmt35$;k$(3,6),k$(3,7),k$(3,8) - - for z=1 to 7:print:next z - - -8720 NEXT Z5 -8730 close 1:close 2 -8740 console -8750 CHAIN "master5" - - -10000 REM *** AND PRINT A ***VOID*** CHECK *** - - lprinter - - k$(3,3)="*** VOID ***" - - for z=1 to 5:print:next z - - print using fmt6$;d$(2) - - print:print - - print using fmt9$;temp5,ot+dt,r,temp5*r,(ot*r*1.5)+(dt*r*2), tips,e0-tips,e0 - - print:print - - print fmt12$ - - print using fmt13$;temp1 - - print:print - - print using fmt16$;f1,e3,e6,s1,m1,s1+f1+e3+e6+m1 - - print:print - - print using fmt19$;o$ - print using fmt20$;k$(3,10),p4 - - for z=1 to 11:print:next z - - print using fmt32$;d$(1),temp1,p4 - print using fmt33$;k$(3,3) - print using fmt34$;k$(3,5) - print using fmt35$;k$(3,6),k$(3,7),k$(3,8) - - for z=1 to 7:print:next z - - console - RETURN diff --git a/bwbtest/C77B/EPCLEAR.BAS b/bwbtest/C77B/EPCLEAR.BAS deleted file mode 100644 index e50c738..0000000 --- a/bwbtest/C77B/EPCLEAR.BAS +++ /dev/null @@ -1,27 +0,0 @@ -1000 rem THIS IS THE EMPLOYEE PAYROLL CLEARING PROGRAM (EPCLEAR) -1300 DIM N(2,5),N$(250) - z5$="ep" - if end #1 then 10000 -1500 open z5$ recl 512 as 1 - z3=(size(z5$)*2048)/512 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2),n$ - if n(2,2)=0 then 1530 - next z2 -1530 z3=int(z3)-1 - close 1 -1610 z2=z2-1 -6000 open z5$ recl 512 as 1 -6010 N$="" -6020 FOR I=1 TO Z2 - read #1,I;n(2,1),n(2,2),n$,n,r,h1,h2,h3,e0,e1,e2,f1,f2,f3, e3,e4,e5,e6,e7,e8,s1,s2,s3,m1,m2,m3 -8000 H1=0:H2=0:H3=0:E0=0:E1=0:E2=0:E3=0:E4=0:E5=0:E6=0:E7=0:E8=0 -8010 F1=0:F2=0:F3=0:S1=0:S2=0:S3=0:M1=0:M2=0:M3=0 - print #1,I;n(2,1),n(2,2),n$,n,r,h1,h2,h3,e0,e1,e2,f1,f2,f3, e3,e4,e5,e6,e7,e8,s1,s2,s3,m1,m2,m3 -9015 N$="" -9020 NEXT I - STOP -10000 print:print:print "Please install employee payroll file in" - print "drive B, then type return to continue.":print - input line temp$ - goto 1500 diff --git a/bwbtest/C77B/EPCUTS.BAS b/bwbtest/C77B/EPCUTS.BAS deleted file mode 100644 index f97d36a..0000000 --- a/bwbtest/C77B/EPCUTS.BAS +++ /dev/null @@ -1,139 +0,0 @@ -1 rem This is the Payroll Cutoff and Percentage Entry Program - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(6,20),c(10) - z5$="epc":z6$=z5$+"back" - repeat$="--------------------------------" - fill$=" " - RESTORE -540 K$(6,1)="1 - ENTER CUTOFFS":K$(6,2)="2 - EXAMINE CUTOFFS" -550 K$(6,3)="3 - MODIFY CUTOFFS" -570 K$(6,4)="4 - CREATE NEW FILE":K$(6,5)="5 - CLEAR EXISTING FILE" -590 K$(6,6)="6 - FINISHED" - print clear$:print -1100 K$(1,1)="FICA CUTOFF":K$(1,2)="FICA PERCENT" -1105 K$(1,3)="STATE DIS INS" -1110 K$(1,4)="SDI PERCENT" -1115 K$(1,5)="FED UNEMPLOYMENT" -1120 K$(1,6)="FUTA PERCENT" -1125 K$(1,7)="STATE UNEMPLOYMENT" -1130 K$(1,8)="SUTA PERCENT" -1200 K$(2,1)="1 - FICA CUTOFF":K$(2,2)="2 - FICA PERCENT" -1205 K$(2,3)="3 - STATE DIS INS" -1210 K$(2,4)="4 - SDI PERCENT" -1215 K$(2,5)="5 - FED UNEMPLOYMENT" -1220 K$(2,6)="6 - FUTA PERCENT" -1225 K$(2,7)="7 - STATE UNEMPLOYMENT" -1230 K$(2,8)="8 - SUTA PERCENT" -1235 K$(2,9)="9 - NONE" -1300 N(1,1)=12:N(1,2)=12:N(1,3)=12:N(1,4)=12:N(1,5)=12:N(1,6)=12 -1305 N(1,7)=12:N(1,8)=12 - if end #1 then 6000 -1500 open z5$ as 1 - close 1 -1510 Z1=1:Z2=1 -1600 PRINT clear$ -1605 PRINT -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 6:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>6 then 1600 -1685 ON Z GOSUB 2000,3000,4000,6000,7000,10000 -1690 FOR Z=1 TO 10:C(Z)=0:NEXT Z:N$="" -1705 GOTO 1600 -2000 PRINT clear$:PRINT -2005 PRINT "PAYROLL CUTOFF FIGURES ARE USED IN CALCULATING VARIOUS" -2010 PRINT "PAYROLL DEDUCTIONS. BE SURE THE SUTA PERCENTAGE FIGURE" -2015 PRINT "IS SET FOR THE CURRENT FIGURE ON YOUR STATE FORMS." -2025 PRINT -2040 FOR Z=1 TO 8 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(28); -2055 INPUT C(Z):PRINT chr$(13) - PRINT CLEAR$ -2060 NEXT Z -2105 PRINT clear$:PRINT -2115 FOR Z=1 TO 9 -2120 PRINT K$(2,Z);TAB(30);C(Z) -2125 NEXT Z -2145 PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>8 THEN 2225 -2170 IF Z<1 THEN 2105 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(28); -2190 INPUT C(Z) -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2276 Z1=1 -2280 open z5$ as 1 - print #1;c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8) - close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3010 open z5$ as 1 - read #1;c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8) - close 1 -3030 PRINT - PRINT "Should this be a 'hard-copy' listing (Y or N)?" - INPUT LINE LIST$ - IF LIST$="y" OR LIST$="Y" THEN LPRINTER -3035 FOR Z=1 TO 8 -3040 PRINT K$(1,Z);TAB(30);C(Z) -3045 NEXT Z - PRINT CHR$(13):PRINT CHR$(12) - CONSOLE -3070 PRINT -3080 PRINT "IF FINISHED, TYPE F - RETURN.":PRINT -3085 INPUT line temp$ -3095 RETURN -4000 PRINT clear$:PRINT -4010 open z5$ as 1 - read #1;c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8) - close 1 -4070 GOTO 2105 -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A CUTOFF FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF temp$="c" OR temp$="C" THEN INITIALIZE:GOTO 1500 -6045 PRINT clear$:PRINT -6055 create z5$ as 1 - print #1;c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8) - close 1 -6095 PRINT clear$:PRINT -6100 PRINT "CUTOFF FILE CREATED AND CLEARED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ -6115 GOTO 1600 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF temp$<>"YES" THEN RETURN -7010 open z5$ as 1 - print #1;c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8) - close 1 -7035 PRINT clear$:PRINT -7040 PRINT "CUTOFF FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ -7060 RETURN -10000 CHAIN "MASTER15" diff --git a/bwbtest/C77B/EPDPOSIT.BAS b/bwbtest/C77B/EPDPOSIT.BAS deleted file mode 100644 index 21dac7c..0000000 --- a/bwbtest/C77B/EPDPOSIT.BAS +++ /dev/null @@ -1,240 +0,0 @@ -1 rem This is the Federal Tax Deposit Entry Program - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(6,20) - z5$="edep":z6$=z5$+"back":z7$=z5$+"size" - repeat$="-------------------------------" - fill$=" " - l$="$#,###,###.##" - RESTORE -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - NOT USED" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - NOT USED":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" -1075 K$(1,1)="QUARTER (1,2,3 OR 4)":K$(1,2)="MONTH (1,2 OR 3)" -1080 K$(1,3)="PERIOD (1,2,3 OR 4)":K$(1,4)="TAX LIABILITY" -1085 K$(1,5)="AMOUNT OF ANY DEPOSIT":K$(1,6)="CHECK NO." -1090 K$(1,7)="DATE OF DEPOSIT" -1095 K$(2,1)="1 - QUARTER (1,2,3 OR 4)":K$(2,2)="2 - MONTH (1,2 OR 3)" -1100 K$(2,3)="3 - PERIOD (1,2,3 OR 4)":K$(2,4)="4 - TAX LIABILITY" -1110 K$(2,5)="5 - AMOUNT OF ANY DEPOSIT":K$(2,6)="6 - CHECK NO." -1115 K$(2,7)="7 - DATE OF DEPOSIT":K$(2,8)="8 - NONE" -1135 N(1,1)=1:N(1,2)=1:N(1,3)=1:N(1,4)=12:N(1,5)=12:N(1,6)=8:N(1,7)=8 - print clear$:print - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 64 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "FEDERAL PAYROLL DEPOSIT ENTRY PROGRAM" - PRINT "-------------------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:N$=" " -1700 FOR Z=1 TO 20:K$(3,Z)=" ":NEXT Z -1702 new$="" -1705 GOTO 1600 -2000 PRINT clear$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2015 FOR Z=1 TO 5 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2040 FOR Z=6 TO 7 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 INPUT line K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2060 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ -2065 NEXT Z -2090 N$="" -2095 FOR Z=6 TO 7:N$=N$+K$(3,Z):NEXT Z -2100 Z1=Z2 -2105 PRINT clear$:PRINT -2110 PRINT "RECORD NUMBER";Z1:PRINT -2115 FOR Z=1 TO 5 -2120 PRINT K$(2,Z);TAB(30);N(2,Z) -2125 NEXT Z -2130 FOR Z=6 TO 7 -2135 PRINT K$(2,Z);TAB(30);K$(3,Z) -2140 NEXT Z -2142 PRINT K$(2,8) -2145 PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>7 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>5 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2205 PRINT K$(1,Z);TAB(30); -2210 INPUT line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2220 FOR Z=6 TO 7:N$=N$+K$(3,Z):NEXT Z -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 64 as 1 - print #1,z1;n(2,1),n(2,2),n(2,3),n(2,4),n(2,5),n$ - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN -3020 open z5$ recl 64 as 1 - read #1,z1;n(2,1),n(2,2),n(2,3),n(2,4),n(2,5),n$ - close 1 -3026 Z9=1:FOR Z=6 TO 7:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -3030 PRINT -3035 FOR Z=1 TO 5 -3040 PRINT K$(1,Z);TAB(30);N(2,Z) -3045 NEXT Z -3050 FOR Z=6 TO 7 -3055 PRINT K$(1,Z);TAB(30);K$(3,Z) -3060 NEXT Z -3070 PRINT -3075 PRINT "FOR A NEW RECORD NUMBER, TYPE N - RETURN.":PRINT -3080 PRINT "IF FINISHED, TYPE F - RETURN.":PRINT -3085 INPUT line temp$ -3090 IF ucase$(temp$)="N" THEN 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -4030 open z5$ recl 64 as 1 - read #1,z1;n(2,1),n(2,2),n(2,3),n(2,4),n(2,5),n$ - close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4050 Z9=1:FOR Z=6 TO 7:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -4075 GOTO 2105 -5000 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A FED DEPOSIT FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF ucase$(temp$)="C" THEN initialize:GOTO 1500 -6045 PRINT clear$:PRINT - z3=48 -6055 PRINT - n$="":for z=1 to 30:n$=n$+" ":next z - for z=1 to 10:n(2,z)=0:next z -6065 create z5$ recl 64 as 1 -6070 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n(2,3),n(2,4),n(2,5),n$ -6085 NEXT Z1 -6090 close 1 -6095 PRINT clear$:PRINT -6100 PRINT "FED DEPOSIT FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 n$="":for z=1 to 30:n$=n$+" ":next z - for z=1 to 10:n(2,z)=0:next z -7006 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF ucase$(temp$)<>"YES" THEN RETURN - open z5$ recl 64 as 1 -7010 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n(2,3),n(2,4),n(2,5),n$ -7025 NEXT Z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "FED DEPOSIT FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 RETURN -9000 PRINT clear$:PRINT:PRINT "LISTING" -9010 P1=1:P2=1:P3=12 -9020 lprinter -9030 open z5$ recl 64 as 1 -9040 print chr$(12) -9045 print "FEDERAL DEPOSIT RECORD LISTING" -9050 print -9055 print "QUARTER";TAB(10);"MONTH";TAB(20);"PERIOD";TAB(30); -9060 print "TAX LIABILITY";TAB(50);"AMOUNT OF DEPOSIT";TAB(70); -9065 print "CHECK #";TAB(80);"DATE OF DEPOSIT" -9070 print -9075 FOR Z1=1 TO Z2-1 - read #1,z1;n(2,1),n(2,2),n(2,3),n(2,4),n(2,5),n$ -9085 Z9=1:FOR Z=6 TO 7:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -9090 print N(2,1);TAB(10);N(2,2);TAB(20);N(2,3);TAB(30); - print using l$;n(2,4);tab(50);n(2,5); -9095 print TAB(70);K$(3,6);TAB(80);K$(3,7) -9100 NEXT Z1 -9110 print chr$(12):FOR Z=1 TO 100:NEXT Z:print chr$(12) -9115 close 1 - console - return -10000 chain "master5" -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 64 as 1 - z3=(size(z5$)*block.size)/64 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=48 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/EPENTRY.BAS b/bwbtest/C77B/EPENTRY.BAS deleted file mode 100644 index fcdcdff..0000000 --- a/bwbtest/C77B/EPENTRY.BAS +++ /dev/null @@ -1,329 +0,0 @@ -1 rem This is the Employee Payroll Record Entry Program - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(4,20) - z5$="ep" - z6$=z5$+"back":z7$=z5$+"size" - repeat$="-----------------------------" - fill$=" " - l$="$$##,###.##":u$="##########":v$="####" - for z=1 to 70:delim$=delim$+"=":next z - false=0:true=-1 - RESTORE -540 K$(4,1)="1 - NEW ENTRY":K$(4,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(4,3)="3 - MODIFY EXISTING ENTRY" -560 K$(4,4)="4 - DELETE EXISTING ENTRY" -570 K$(4,5)="5 - CREATE NEW FILE":K$(4,6)="6 - CLEAR EXISTING FILE" -580 K$(4,7)="7 - BACK-UP AND SORT FILE":K$(4,8)="8 - LIST FILE" -590 K$(4,9)="9 - FINISHED" -1100 K$(1,1)="EMPLOYEE #":K$(1,2)="ACCT NUMBER":K$(1,3)="NAME" -1105 K$(1,4)="COMPANY":K$(1,5)="ADDRESS":K$(1,6)="CITY":K$(1,7)="STATE" -1110 K$(1,8)="ZIP CODE":K$(1,9)="PHONE (AAA) NNN NNNN" -1130 K$(1,10)="SOC SEC #":K$(1,11)="EMPLOYMENT DATE" -1132 K$(1,12)="TERMINATION DATE" -1135 K$(1,13)="MARITAL STATUS":K$(1,14)="HOURLY OR SALARIED (H OR S)" -1140 K$(1,15)="PAY PERIODS - W/B/S/M":K$(1,16)="NUMBER OF EXEMPTIONS" -1145 K$(1,17)="HOURLY RATE":K$(1,18)="HOURS THIS PERIOD" -1146 K$(1,19)="Q-T-D HOURS":K$(1,20)="Y-T-D HOURS" -1200 K$(2,1)="1 - EMPLOYEE #":K$(2,2)="2 - ACCT NUMBER":K$(2,3)="3 - NAME" -1205 K$(2,4)="4 - COMPANY":K$(2,5)="5 - ADDRESS":K$(2,6)="6 - CITY" -1206 K$(2,7)="7 - STATE" -1210 K$(2,8)="8 - ZIP CODE":K$(2,9)="9 - PHONE (AAA) NNN NNNN" -1230 K$(2,10)="10- SOC SEC #":K$(2,11)="11- EMPLOYMENT DATE" -1232 K$(2,12)="12- TERMINATION DATE" -1235 K$(2,13)="13- MARITAL STATUS":K$(2,14)="14- HMUR OR SALARY (H OR S)" -1240 K$(2,15)="15- PAY PERIODS - W/B/S/M":K$(2,16)="16- NUMBER OF EXEMPTIONS" -1245 K$(2,17)="17- HOURLY RATE" - for z=1 to 17:read n(1,z):next z - data 8,10,24,24,24,17,2,5,14,11,8,8,1,1,1,4,6 - print clear$:print - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 512 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3,flag - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "EMPLOYEE INFORMATION ENTRY PROGRAM" - PRINT "----------------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(4,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:N(0,Z)=0:NEXT Z -1695 N$="":new$="" -1700 FOR Z=1 TO 20:K$(3,Z)=" ":NEXT Z -1705 GOTO 1600 -2000 PRINT clear$:PRINT -2005 PRINT "RECORD NUMBER";z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2040 FOR Z=3 TO 15 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 INPUT line K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2060 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ -2065 NEXT Z -2066 N$="" -2070 FOR Z=3 TO 15:N$=N$+K$(3,Z):NEXT Z -2075 FOR Z=16 TO 17 - PRINT CUR$ -2080 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2085 PRINT K$(1,Z);TAB(30); -2090 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2095 NEXT Z -2100 Z1=Z2 -2105 PRINT clear$; -2110 PRINT "RECORD NUMBER";z1;TAB(31); -2112 PRINT "1 - EMPLOYEE #";TAB(46);:print using u$;n(2,1) -2114 PRINT "2 - ACCT NUMBER";TAB(18);:print using u$;n(2,2); -2116 PRINT TAB(31);"3 - NAME";TAB(46);K$(3,3) -2118 PRINT TAB(31);"4 - COMPANY";TAB(46);K$(3,4) -2120 PRINT TAB(31);"5 - ADDRESS";TAB(46);K$(3,5) -2122 PRINT TAB(31);"6 - CITY";TAB(46);K$(3,6) -2124 PRINT TAB(31);"7 - STATE";TAB(46);K$(3,7);TAB(51);"8 - ZIP"; -2126 PRINT TAB(61);K$(3,8) -2128 PRINT "9 - PHONE";TAB(16);K$(3,9);TAB(31);"10- SOC SEC #"; -2130 PRINT TAB(46);K$(3,10) -2132 PRINT "11- EMPLOYED";TAB(16);K$(3,11);TAB(31);"12- TERMINATED"; -2134 PRINT TAB(46);K$(3,12) -2136 PRINT "13- MARITAL";TAB(16);K$(3,13);TAB(31);"14- HOUR OR SA"; -2138 PRINT TAB(46);K$(3,14) -2140 PRINT "15- PAY PERIOD";TAB(16);K$(3,15);TAB(31);"16- # OF EXEM"; -2142 PRINT TAB(46);:print using v$;n(2,16);:PRINT TAB(51);"17- RATE"; - print using l$;n(2,17) - print delim$ -2146 PRINT TAB(16);"CURRENT";TAB(36);"QUARTER TO DATE";TAB(56);"YEAR TO DATE" - print "Hours";tab(16); - print using u$;n(2,18);tab(36);n(2,19);tab(56);n(2,20) - print "Gross Pay";tab(16); - print using l$;n(0,1);tab(36);n(0,2);tab(56);n(0,3) - print "FICA";tab(16); - print using l$;n(0,4);tab(36);n(0,5);tab(56);n(0,6) - print "Fed Tax";tab(16); - print using l$;n(0,7);tab(36);n(0,8);tab(56);n(0,9) - print "State Tax";tab(16); - print using l$;n(0,10);tab(36);n(0,11);tab(56);n(0,12) - print "SDI";tab(16); - print using l$;n(0,13);tab(36);n(0,14);tab(56);n(0,15) - print "Misc Ded";tab(16); - print using l$;n(0,16);tab(36);n(0,17);tab(56);n(0,18) -2175 INPUT "IF AN ITEM IS TO BE CHANGED, TYPE THE NUMBER - ELSE 18 ";Z -2176 IF Z>17 THEN 2216 -2177 IF Z<1 THEN 2105 -2178 IF Z>2 AND Z<16 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2205 PRINT K$(1,Z);TAB(30); -2210 INPUT line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2217 FOR I=3 TO 15:N$=N$+K$(3,I):NEXT I -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 512 as 1 - print #1,z1;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18),N(2,19),N(2,20), N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) - close 1 -2295 IF new$="N" THEN Z2=Z2+1 - IF new$="N" THEN flag=true:open z7$ as 1:print #1;z2,z3,flag:close 1 -2300 RETURN -3000 PRINT clear$:PRINT:INPUT "RECORD NUMBER";Z1:PRINT clear$; -3003 IF Z1>=Z2 THEN 3000 -3004 IF Z1<1 THEN RETURN -3005 open z5$ recl 512 as 1 - read #1,z1;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18),N(2,19),N(2,20), N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) -3008 Z9=1:FOR Z=3 TO 15:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -3009 close 1 -3010 PRINT "RECORD NUMBER";z1;TAB(31); -3012 PRINT "EMPLOYEE #";TAB(46);:print using u$;n(2,1) -3014 PRINT "ACCT NUMBER";TAB(18);:print using u$;n(2,2); -3016 PRINT TAB(31);"NAME";TAB(46);K$(3,3) -3018 PRINT TAB(31);"COMPANY";TAB(46);K$(3,4) -3020 PRINT TAB(31);"ADDRESS";TAB(46);K$(3,5) -3022 PRINT TAB(31);"CITY";TAB(46);K$(3,6) -3024 PRINT TAB(31);"STATE";TAB(46);K$(3,7);TAB(51);"ZIP"; -3026 PRINT TAB(61);K$(3,8) -3028 PRINT "PHONE";TAB(16);K$(3,9);TAB(31);"SOC SEC #"; -3030 PRINT TAB(46);K$(3,10) -3032 PRINT "EMPLOYED";TAB(16);K$(3,11);TAB(31);"TERMINATED"; -3034 PRINT TAB(46);K$(3,12) -3036 PRINT "MARITAL";TAB(16);K$(3,13);TAB(31);"HOUR OR SA"; -3038 PRINT TAB(46);K$(3,14) -3040 PRINT "PAY PERIOD";TAB(16);K$(3,15);TAB(31);"# OF EXEM"; -3042 PRINT TAB(46);:print using v$;n(2,16);:PRINT TAB(51);"RATE"; - print using l$;n(2,17) - print delim$ -3046 PRINT TAB(16);"CURRENT";TAB(36);"QUARTER TO DATE";TAB(56);"YEAR TO DATE" - print "Hours";tab(16); - print using u$;n(2,18);tab(36);n(2,19);tab(56);n(2,20) - print "Gross Pay";tab(16); - print using l$;n(0,1);tab(36);n(0,2);tab(56);n(0,3) - print "FICA";tab(16); - print using l$;n(0,4);tab(36);n(0,5);tab(56);n(0,6) - print "Fed Tax";tab(16); - print using l$;n(0,7);tab(36);n(0,8);tab(56);n(0,9) - print "State Tax";tab(16); - print using l$;n(0,10);tab(36);n(0,11);tab(56);n(0,12) - print "SDI";tab(16); - print using l$;n(0,13);tab(36);n(0,14);tab(56);n(0,15) - print "Misc Ded";tab(16); - print using l$;n(0,16);tab(36);n(0,17);tab(56);n(0,18) -3075 PRINT "FOR NEW RECORD, TYPE N-RETURN , OTHERWISE F-RETURN" -3085 INPUT temp$ -3090 IF left$(temp$,1)="n" or left$(temp$,1)="N" THEN 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";z1:GOTO 1620 -4030 open z5$ recl 512 as 1 - read #1,z1;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18),N(2,19),N(2,20), N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) -4040 close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4050 Z9=1 -4055 FOR Z=3 TO 15 -4060 K$(3,Z)=MID$(N$,Z9,N(1,Z)) -4065 Z9=Z9+N(1,Z) -4070 NEXT Z -4075 GOTO 2105 -5000 PRINT clear$:PRINT:INPUT "RECORD NUMBER";Z1:PRINT clear$:PRINT -5002 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5004 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5005 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";z1:GOTO 1620 -5006 open z5$ recl 512 as 1 - read #1,z1;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18),N(2,19),N(2,20), N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) -5009 close 1 -5010 Z9=1:FOR Z=3 TO 15:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -5011 PRINT "RECORD NUMBER";z1;TAB(31); -5012 PRINT "EMPLOYEE #";TAB(46);:print using u$;n(2,1) -5014 PRINT "ACCT NUMBER";TAB(18);:print using u$;n(2,2); -5016 PRINT TAB(31);"NAME";TAB(46);K$(3,3) -5018 PRINT TAB(31);"COMPANY";TAB(46);K$(3,4) -5020 PRINT TAB(31);"ADDRESS";TAB(46);K$(3,5) -5022 PRINT TAB(31);"CITY";TAB(46);K$(3,6) -5024 PRINT TAB(31);"STATE";TAB(46);K$(3,7);TAB(51);"ZIP"; -5026 PRINT TAB(61);K$(3,8) -5028 PRINT "PHONE";TAB(16);K$(3,9);TAB(31);"SOC SEC #"; -5030 PRINT TAB(46);K$(3,10) -5032 PRINT "EMPLOYED";TAB(16);K$(3,11);TAB(31);"TERMINATED"; -5034 PRINT TAB(46);K$(3,12) -5036 PRINT "MARITAL";TAB(16);K$(3,13);TAB(31);"HOUR OR SA"; -5038 PRINT TAB(46);K$(3,14) -5040 PRINT "PAY PERIOD";TAB(16);K$(3,15);TAB(31);"# OF EXEM"; -5042 PRINT TAB(46);:print using v$;n(2,16);:PRINT TAB(51);"RATE"; - print using l$;n(2,17) -5074 PRINT -5100 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5105 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5110 IF ucase$(temp$)<>"YES" THEN 5100 -5115 N(2,1)=0 -5120 open z5$ recl 512 as 1 - print #1,z1;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18),N(2,19),N(2,20), N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) -5130 close 1 -5135 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE AN EMPLOYEE FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF ucase$(temp$)="C" then initialize:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";z3 -6055 PRINT - n$="":for z=1 to 150:n$=n$+" ":next z -6060 FOR I=1 TO 20:N(2,I)=0:N(0,I)=0:NEXT I -6065 create z5$ recl 512 as 1 -6070 FOR Z1=1 TO z3+2 - print #1,z1;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18),N(2,19),N(2,20), N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) -6085 NEXT Z1 -6090 close 1 -6095 PRINT clear$:PRINT -6100 PRINT "EMPLOYEE FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 n$="":for z=1 to 150:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:n(0,z)=0:next z -7006 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF ucase$(temp$)<>"YES" THEN RETURN - open z5$ recl 512 as 1 -7010 FOR Z1=1 TO z3+2 - print #1,z1;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18),N(2,19),N(2,20), N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) -7025 NEXT Z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "EMPLOYEE FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 CHAIN "EPSORT" -9000 CHAIN "EPLIST" -10000 CHAIN "master5" -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - CLOSE 2 - open z5$ recl 512 as 1 - z3=(size(z5$)*block.size)/512 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - flag=false - create z7$ as 1 - print #1;z2,z3,flag - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/EPJOPOST.BAS b/bwbtest/C77B/EPJOPOST.BAS deleted file mode 100644 index 502e969..0000000 --- a/bwbtest/C77B/EPJOPOST.BAS +++ /dev/null @@ -1,152 +0,0 @@ -1 rem This is the Payroll Journal Posting Program - -%INCLUDE ALL.BAS -500 dim n(2,20) - L$="$#,###,###.##" - RESTORE -1040 PRINT clear$ -1050 PRINT -1060 PRINT "THIS IS THE PAYROLL REGISTER POSTING PROGRAM." -1070 PRINT - print "Be sure the employee payroll disk is installed in drive B" - PRINT:INPUT "Then type return to continue.";LINE temp$ - INITIALIZE -1145 Z9=0 -1500 open "epsize" as 1 - read #1;z2,z3,flag - close 1 - z2=z2-1 -1600 PRINT clear$:PRINT -2000 PRINT "RECORDS TO BE POSTED = ",Z2 -2010 PRINT -2015 INPUT "TO DO POSTING, TYPE CARRIAGE RETURN. ";line temp$ -2220 open "ep" recl 512 as 1 -2230 FOR Z=1 TO Z2 -2240 read #1,z;N(2,1),N(2,2),N$,N,R,H1,H2,H3, E0,E1,E2,F1,F2,F3,E3,E4,E5,E6,E7,E8,S1,S2,S3,M1,M2,M3 -2260 H2=H2+H1:H3=H3+H1:S2=S2+S1:S3=S3+S1:M2=M2+M1:M3=M3+M1 -2270 E1=E1+E0:E2=E2+E0:E4=E4+E3:E5=E5+E3:E7=E7+E6:E8=E8+E6 -2280 F2=F2+F1:F3=F3+F1 -2290 S4=S4+S1:M4=M4+M1:T0=T0+E0:T3=T3+E3:T6=T6+E6:F4=F4+F1 -2300 H1=0:S1=0:M1=0:E0=0:E3=0:E6=0:F1=0 -2310 print #1,z;N(2,1),N(2,2),N$,N,R,H1,H2,H3, E0,E1,E2,F1,F2,F3,E3,E4,E5,E6,E7,E8,S1,S2,S3,M1,M2,M3 -2330 NEXT Z -2340 close 1 -2350 P4=T0-S4-M4-T3-T6-F4 -2360 PRINT clear$ -2370 PRINT "INSTALL GENERAL LEDGER (GL) DISK IN DRIVE B." -2380 PRINT -2390 INPUT "THEN TYPE CARRIAGE RETURN TO CONTINUE. ";line temp$ - initialize -3010 PRINT clear$:print -3030 open "gl" recl 138 as 1 -3040 INPUT "ENTER NET SALARIES ACCOUNT RECORD # - ";Z -3050 read #1,z; N(2,1),N(2,2),G$,G1,G2,G3,G4,G5,G6,G7 -3060 PRINT -3070 PRINT "IS ";N(2,2);" ";G$;" THE CORRECT ACCOUNT?" -3080 PRINT :INPUT "(Y OR N) ";line temp$ -3090 if left$(temp$,1)="n" or left$(temp$,1)="N" then 3040 -3500 if left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" then 3060 -3510 G1=G1+P4:G2=G2+P4:G3=G3+P4 -3520 print #1,z; n(2,1),n(2,2),g$,g1,g2,g3,g4,g5,g6,g7 - LPRINTER - - for z=1 to 72:delim$=delim$+"*":delim1$=delim1$+"=":next z - print delim$:print - print "Payroll posting to General Ledger for period ending ";d$(2) - print:print delim1$:print - -3530 print -3540 print "(X)";tab(5);"TOTAL NET SALARIES POSTED";tab(62); - print using l$;P4 - CONSOLE -3550 PRINT -3560 INPUT "ENTER STATE DISABILITY INS PAYABLE ACCOUNT RECORD # - ";Z -3570 read #1,z; N(2,1),N(2,2),G$,G1,G2,G3,G4,G5,G6,G7 -3580 PRINT -3590 PRINT "IS ";N(2,2);" ";G$;" THE CORRECT ACCOUNT?" -3600 PRINT :INPUT "(Y OR N) ";line temp$ -3610 if left$(temp$,1)="n" or left$(temp$,1)="N" then 3560 -3620 if left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" then 3580 -3630 G1=G1+S4:G2=G2+S4:G3=G3+S4 -3640 print #1,z; n(2,1),n(2,2),g$,g1,g2,g3,g4,g5,g6,g7 - LPRINTER -3650 print -3660 print "(X)";tab(5);"TOTAL STATE DIS INS PAYABLE POSTED";tab(62); - print using l$;s4 - CONSOLE -3670 PRINT -3680 INPUT "ENTER MISC DEDUCTIONS PAYABLE ACCOUNT RECORD # - ";Z -3690 read #1,z; N(2,1),N(2,2),G$,G1,G2,G3,G4,G5,G6,G7 -3700 PRINT -3710 PRINT "IS ";N(2,2);" ";G$;" THE CORRECT ACCOUNT?" -3720 PRINT :INPUT "(Y OR N) ";line temp$ -3730 if left$(temp$,1)="n" or left$(temp$,1)="N" then 3680 -3740 if left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" then 3700 -3750 G1=G1+M4:G2=G2+M4:G3=G3+M4 -3760 print #1,z; n(2,1),n(2,2),g$,g1,g2,g3,g4,g5,g6,g7 - LPRINTER -3770 print -3780 print "(X)";tab(5);"TOTAL MISC DED PAYABLE POSTED";tab(62); - print using l$;m4 - CONSOLE -3790 PRINT -3800 INPUT "ENTER FICA PAYABLE ACCOUNT RECORD # - ";Z -3810 read #1,z; N(2,1),N(2,2),G$,G1,G2,G3,G4,G5,G6,G7 -3820 PRINT -3830 PRINT "IS ";N(2,2);" ";G$;" THE CORRECT ACCOUNT?" -3840 PRINT :INPUT "(Y OR N) ";line temp$ -3850 if left$(temp$,1)="n" or left$(temp$,1)="N" then 3800 -3860 if left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" then 3820 -3870 G1=G1+(F4*2):G2=G2+(F4*2):G3=G3+(F4*2) -3880 print #1,z; n(2,1),n(2,2),g$,g1,g2,g3,g4,g5,g6,g7 - LPRINTER -3890 print -3900 print "(X)";tab(5);"TOTAL FICA PAYABLE POSTED";tab(62); - print using l$;f4*2 - CONSOLE -3910 PRINT -3920 INPUT "ENTER FEDERAL TAX PAYABLE ACCOUNT RECORD # - ";Z -3930 read #1,z; N(2,1),N(2,2),G$,G1,G2,G3,G4,G5,G6,G7 -3940 PRINT -3950 PRINT "IS ";N(2,2);" ";G$;" THE CORRECT ACCOUNT?" -3960 PRINT :INPUT "(Y OR N) ";line temp$ -3970 if left$(temp$,1)="n" or left$(temp$,1)="N" then 3920 -3980 if left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" then 3940 -3990 G1=G1+T3:G2=G2+T3:G3=G3+T3 -4000 print #1,z; n(2,1),n(2,2),g$,g1,g2,g3,g4,g5,g6,g7 - LPRINTER -4010 print -4020 print "(X)";tab(5);"TOTAL FED TAX PAYABLE POSTED";tab(62); - print using l$;t3 - CONSOLE -4030 PRINT -4040 INPUT "ENTER STATE TAX PAYABLE ACCOUNT RECORD # - ";Z -4050 read #1,z; N(2,1),N(2,2),G$,G1,G2,G3,G4,G5,G6,G7 -4060 PRINT -4070 PRINT "IS ";N(2,2);" ";G$;" THE CORRECT ACCOUNT?" -4080 PRINT :INPUT "(Y OR N) ";line temp$ -4090 if left$(temp$,1)="n" or left$(temp$,1)="N" then 4040 -4100 if left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" then 4060 -4110 G1=G1+T6:G2=G2+T6:G3=G3+T6 -4120 print #1,z; n(2,1),n(2,2),g$,g1,g2,g3,g4,g5,g6,g7 - LPRINTER -4130 print -4140 print "(X)";tab(5);"TOTAL STATE TAX PAYABLE POSTED";tab(62); - print using l$;t6 -4150 print -4160 print TAB(62);"----------------" -4170 print "TOTAL NET SALARIES AND DEDUCTIONS POSTED"; -4180 print TAB(62);:print using l$;P4+S4+M4+F4+T3+T6 -4190 print -4200 print TAB(62);"================" -4210 print -4220 print "GROSS PAY TOTAL";tab(62);:print using l$;t0 -4230 print TAB(62);"================" -4240 print chr$(12):for z=1 to 100:next z:print chr$(12) -4250 close 1 -4260 console - print "Replace payroll file disk in drive B." - Input "Type RETURN to continue - ";line temp$ - initialize -4290 PRINT clear$ -4300 chain "master5" diff --git a/bwbtest/C77B/EPJOTRAN.BAS b/bwbtest/C77B/EPJOTRAN.BAS deleted file mode 100644 index d59c703..0000000 --- a/bwbtest/C77B/EPJOTRAN.BAS +++ /dev/null @@ -1,241 +0,0 @@ -1 rem This is the Payroll Calculation Program - -%INCLUDE ALL.BAS -500 dim aa(11,5),b(11,5),c(11,5),d(11,5),e(11,5),f(2,10) - dim n(2,20),k$(6,20) - z5$="ep":z7$=z5$+"size" - l$="$##,###.##":u$="##########":v$="####" - print clear$:print - RESTORE -1300 N(1,1)=8:N(1,2)=10:N(1,3)=24:N(1,4)=24:N(1,5)=24:N(1,6)=17 -1305 N(1,7)=2:N(1,8)=5:N(1,9)=14:N(1,10)=11:N(1,11)=8:N(1,12)=8 -1310 N(1,13)=1:N(1,14)=1:N(1,15)=1:N(1,16)=4:N(1,17)=6 -1460 print clear$:print - -1500 if end #1 then 40000 - if end #2 then 15000 - open z5$ recl 512 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 if z2>z3 then print "*** OUT OF RECORD SPACE ***" -1620 print clear$:PRINT "PAYROLL CALCULATION PROGRAM" - PRINT "---------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - - z2=z2-1 -1635 PRINT "NUMBER OF EMPLOYEES";Z2 -1650 PRINT:PRINT "CALCULATING PAYROLL":PRINT:PRINT"*** PLEASE WAIT ***" -1690 FOR Z=1 TO 20:N(2,Z)=0:N(0,Z)=0:NEXT Z -1695 N$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -2000 open "es" as 1 - for x=1 to 11 - read #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - read #1;d(x,1),d(x,2),d(x,3),d(x,4),d(x,5) - read #1;e(x,1),e(x,2),e(x,3),e(x,4),e(x,5) - next x - for x=1 to 8 - read #1;f(1,x) - next x - for x=1 to 8 - read #1;f(2,x) - next x - close 1 -3000 open "ef" as 1 - for x=1 to 8 - read #1;aa(x,1),aa(x,2),aa(x,3),aa(x,4),aa(x,5) - read #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5) - next x - close 1 -5200 REM THIS PART GETS THE CUTOFF VALUES - C1=FICA CUTOFF; C2=FICA % -5205 REM C3=SDI CUTOFF; C4=SDI %; C5= FUTA CUTOFF; C6=FUTA %; C7=SUTA CUTOFF -5210 open "epc" as 1 - read #1;c1,c2,c3,c4,c5,c6,c7,c8 - close 1 -5500 REM IN THE PAYROLL CALCULATIONS THAT FOLLOW, THESE GENERAL -5505 REM CONSIDERATIONS ARE USED. IF THE EMPLOYEE IS AN HOURLY EMPLOYEE, -5510 REM HIS PAY IS CALCULATED ON THE FULL HOURS ENTERED. HIS OVERTIME -5515 REM HOURS ARE MULTIPLIED BY 1.5 AND 2 AND ADDED TO REGULAR OR OTHER -5520 REM HOURS TO GET TOTAL HOURS. IF THE EMPLOYEE IS A SALARIED EMPLOYEE, -5525 REM THE FULL HOURS ARE POSTED BUT PAY IS CALCULATED ON 40 HOURS FOR -5530 REM WEEKLY; 80 HOURS FOR BIWEEKLY; 86.66667 HOURS FOR SEMIMONTHLY; AND -5535 REM 173.33333 HOURS FOR MONTHLY. THE PAY PERIODS PER YEAR ARE 52 FOR -5540 REM WEEKLY; 26 FOR BIWEEKLY; 24 FOR SEMIMONTHLY; AND 12 FOR MONTHLY. -6000 open "ep" recl 512 as 1 -6010 open "tm" recl 128 as 2 -6015 N$="" -6020 FOR I=1 TO Z2 -6030 read #1,i;n(2,1),n(2,2),n$,n,r,h1,h2,h3,e0,e1,e2,f1,f2,f3, e3,e4,e5,e6,e7,e8,s1,s2,s3,m1,m2,m3 - read #2,i;n(0,1),n(0,2),k$(3,3),t1,t2,t3,t4,t5,t6,t7,t8,t9 -6060 M1=T3:REM SAVE MISCELLANEOUS DEDUCTIONS -6070 Z9=1:FOR Z=3 TO 15:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z - - if k$(3,12)<>" " then 9020 - -6080 GOSUB 20000 -6090 GOSUB 30000 -8018 REM -8020 REM THIS PART CALCULATES FICA USING YTD GROSS (E2) AND CURRENT (E0) -8022 REM -8024 IF E2>C1 THEN F1=0 -8026 IF E2>C1 THEN 8040 -8028 IF E2+E0>C1 THEN F1=(E2+E0-C1)*C2 -8030 IF E2+E0>C1 THEN 8040 -8035 IF E2+E0<=C1 THEN F1=E0*C2 -8036 REM -8038 REM NOW CALCULATE STATE DISABILITY INSURANCE -8039 REM -8040 IF E2>C3 THEN S1=0 -8041 IF E2>C3 THEN 8050 -8042 IF E2+E0>C3 THEN S1=(E2+E0-C3)*C4 -8043 IF E2+E0>C3 THEN 8050 -8044 IF E2+E0<=C3 THEN S1=E0*C4 -8045 REM -8046 REM NOW COMES FEDERAL INCOME TAX CALCULATION -8047 REM -8050 P3=P1-(N*1000): REM ANNUALIZED AMOUNT SUBJECT TO WH -8052 Z=0 -8056 IF K$(3,13)="M" THEN 8100 -8057 IF K$(3,13)="H" THEN 8100 -8058 FOR X=1 TO 8 -8059 IF P3>AA(X,1) AND P3<=AA(X,2) THEN Z=AA(X,3)+((P3-AA(X,5))*AA(X,4)) -8060 IF P3>AA(X,1) AND P3<=AA(X,2) THEN 8070 -8062 NEXT X -8070 IF K$(3,15)="W" THEN E3=Z/52 -8071 IF K$(3,15)="B" THEN E3=Z/26 -8072 IF K$(3,15)="S" THEN E3=Z/24 -8074 IF K$(3,15)="M" THEN E3=Z/12 -8080 GOTO 8200 -8100 FOR X=1 TO 8 -8102 IF P3>B(X,1) AND P3<=B(X,2) THEN Z=B(X,3)+((P3-B(X,5))*B(X,4)) -8104 IF P3>B(X,1) AND P3<=B(X,2) THEN 8120 -8106 NEXT X -8120 IF K$(3,15)="W" THEN E3=Z/52 -8121 IF K$(3,15)="B" THEN E3=Z/26 -8122 IF K$(3,15)="S" THEN E3=Z/24 -8124 IF K$(3,15)="M" THEN E3=Z/12 -8130 GOTO 8200 -8200 REM -8202 REM THIS IS THE CALIFORNIA STATE INCOME TAX CALCULATION -8204 REM WHICH USES TABLES IN A SIMILAR MANNER TO THE FEDERAL TAX -8206 REM CALCULATIONS. IT HAS BEEN DELIBERATELY AND CAREFULLY -8208 REM PARTITIONED AND EXPLAINED IN ORDER TO ALLOW YOUR PARTICULAR -8210 REM STATE INCOME TAX CALCULATIONS TO BE INSERTED. THESE MAY -8212 REM FOLLOW THE TABLES PROCEDURES OF CALIFORNIA OR THEY MAY BE -8214 REM SIMPLY A PERCENTAGE OF THE FEDERAL. -8216 REM -8218 REM THESE CALIFORNIA CALCULATIONS FOLLOW THE DE 44 FORM FOR THE -8220 REM "EXACT CALCULATION" METHOD AS DESCRIBED IN THAT BOOKLET. -8222 REM THEY DO NOT ALLOW FOR THE CALCULATION OF EXTRA ALLOWANCES -8224 REM FOR ITEMIZED DEDUCTIONS. THIS WOULD REQUIRE A COMPLETE -8226 REM REARRANGEMENT OF THE PAYROLL UNIT RECORD, AN EXTRA TABLE, -8228 REM AND AN ADDITIONAL SET OF CALCULATIONS. -8230 REM -8231 Z=0 -8232 IF K$(3,13)="S" THEN GOSUB 8300 -8234 IF K$(3,13)="M" THEN GOSUB 8400 -8236 IF K$(3,13)="H" THEN GOSUB 8500 -8238 GOTO 9000 -8300 IF P1<=5000 THEN E6=0 -8302 IF P1<=5000 THEN RETURN -8304 P1=P1-1000 -8306 FOR X=1 TO 11 -8308 IF P1>=C(X,1) AND P1=C(X,1) AND P18 THEN N=8 -8352 Z=Z-F(1,N) -8360 IF Z<=0 THEN E6=0 -8362 IF Z<=0 THEN RETURN -8364 IF K$(3,15)="W" THEN E6=Z/52 -8365 IF K$(3,15)="B" THEN E6=Z/26 -8366 IF K$(3,15)="S" THEN E6=Z/24 -8367 IF K$(3,15)="M" THEN E6=Z/12 -8370 RETURN -8400 IF N<=1 AND P1<=5000 THEN E6=0 -8401 IF N<=1 AND P1<=5000 THEN RETURN -8402 IF N>1 AND P1<=10000 THEN E6=0 -8403 IF N>1 AND P1<=10000 THEN RETURN -8404 IF N<=1 THEN P1=P1-1000 -8405 IF N>1 THEN P1=P1-2000 -8406 FOR X=1 TO 11 -8408 IF P1>=D(X,1) AND P1=D(X,1) AND P18 THEN N=8 -8452 Z=Z-F(2,N) -8460 IF Z<=0 THEN E6=0 -8462 IF Z<=0 THEN RETURN -8464 IF K$(3,15)="W" THEN E6=Z/52 -8465 IF K$(3,15)="B" THEN E6=Z/26 -8466 IF K$(3,15)="S" THEN E6=Z/24 -8467 IF K$(3,15)="M" THEN E6=Z/12 -8470 RETURN -8500 IF P1<=10000 THEN E6=0 -8502 IF P1<=10000 THEN RETURN -8504 P1=P1-2000 -8506 FOR X=1 TO 11 -8508 IF P1>=E(X,1) AND P1=E(X,1) AND P18 THEN N=8 -8552 Z=Z-F(2,N) -8560 IF Z<=0 THEN E6=0 -8562 IF Z<=0 THEN RETURN -8564 IF K$(3,15)="W" THEN E6=Z/52 -8565 IF K$(3,15)="B" THEN E6=Z/26 -8566 IF K$(3,15)="S" THEN E6=Z/24 -8567 IF K$(3,15)="M" THEN E6=Z/12 -8570 RETURN -9000 print #1,i;n(2,1),n(2,2),n$,n,r,h1,h2,h3,e0,e1,e2,f1,f2,f3, e3,e4,e5,e6,e7,e8,s1,s2,s3,m1,m2,m3 -9015 N$="" -9020 NEXT I -9030 close 1 -9040 close 2 -10000 chain "master5" -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 512 as 1 - z3=(size(z5$)*block.size)/512 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 -20000 REM THIS PART CALCULATES TOTAL HOURS -20010 H4=T4+(T5*1.5)+(T6*2)+T7+T8+T9:REM H4=HOURS FOR CALCULATION PURPOSES -20020 H1=T4+T5+T6+T7+T8+T9 -20030 IF K$(3,14)="S" THEN GOSUB 25000 -20500 RETURN -25000 REM THIS PART SETS H4 FOR PAYROLL CALCULATIONS TO A VALUE -25010 REM DETERMINED BY THE PAYROLL PERIOD -25020 IF K$(3,15)="W" THEN H4=40 -25030 IF K$(3,15)="B" THEN H4=80 -25040 IF K$(3,15)="S" THEN H4=86.66667 -25050 IF K$(3,15)="M" THEN H4=173.33333 -25500 RETURN -30000 REM THIS CALCULATES ANNUALIZED PAY BASED ON LENGTH OF PAY PERIOD -30010 E0=(H4*R)+T2: REM - GROSS PAY FOR PAYROLL PERIOD -30020 IF K$(3,15)="W" THEN P1=E0*52 -30030 IF K$(3,15)="B" THEN P1=E0*26 -30040 IF K$(3,15)="S" THEN P1=E0*24 -30050 IF K$(3,15)="M" THEN P1=E0*12 -34995 RETURN -40000 print "Install payroll disk in drive B." - input "Type return to continue ";line temp$ - initialize - goto 1460 diff --git a/bwbtest/C77B/EPLABELS.BAS b/bwbtest/C77B/EPLABELS.BAS deleted file mode 100644 index 9d4aa84..0000000 --- a/bwbtest/C77B/EPLABELS.BAS +++ /dev/null @@ -1,90 +0,0 @@ -1 rem This is the employee mailing label printing program. - -%INCLUDE ALL.BAS -500 dim k$(14),n(2,14) - RESTORE -1020 DIM A$(5),B$(5),C$(5),DA$(5),E$(5),F$(5) - for z=3 to 8:read n(0,z):next z - data 24,24,24,17,2,5 - print clear$:print -1050 PRINT -1060 PRINT "THIS IS THE EMPLOYEE MAILING LABEL PRINTING ROUTINE." -1070 PRINT -1080 PRINT "IF YOU ARE NOT FAMILIAR WITH ITS OPERATION, PLEASE" -1090 PRINT "READ THE INSTRUCTIONS BEFORE PROCEEDING." -1100 PRINT:PRINT - z5$="ep" - print -1110 INPUT"HOW MANY LABELS ACROSS THE PAGE (1 TO 5)";M -1120 PRINT:PRINT -1125 PRINT "INDICATE THE DISTANCE BETWEEN THE LEFT EDGES OF" -1130 PRINT "ANY TWO LABELS IN DECIMAL INCHES (I.E. 2.6)." -1135 INPUT K -1140 K=(K*10)+1 -1142 IF M=1 THEN 1146 -1145 IF K<25 THEN PRINT "*** LABEL TO SHORT ***":GOTO 1125 -1146 IF K>110 THEN PRINT "*** LABEL TO LONG ***":GOTO 1125 -1150 PRINT:PRINT -1160 PRINT "INDICATE THE NUMBER OF SPACES BETWEEN LABELS (I.E. 2)." -1165 INPUT L -2000 IF M<1 OR M>5 THEN 1110 - if end #1 then 1100 -2030 open z5$ recl 512 as 1 -2040 Z3=(size(z5$)*block.size)/512 -2050 FOR Z2=1 TO Z3 -2060 read #1,z2;N(2,1),N(2,2) -2070 IF N(2,2)=0 THEN 2100 -2090 NEXT Z2 -2100 Z2=Z2-1 -2105 close 1 -2110 Z3=Z3-2 - print clear$:print:print -2150 PRINT "LABELS TO PRINT ";Z2 -2160 PRINT -3000 NA=INT(Z2/M)+1 -3004 N(0,9)=14:N(0,10)=11:N(0,11)=8:N(0,12)=8:N(0,13)=1 -3010 Z1=0 -3020 open z5$ recl 512 as 1 -3025 lprinter -3030 FOR J=1 TO NA -3035 Z5=0 -3040 FOR I=1 TO M - read #1,z1+1;n(2,1),n(2,2),n$ -3055 Z9=1:FOR Z=3 TO 13:K$(Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -3060 A$(I)=K$(3) -3070 B$(I)=K$(4) -3080 C$(I)=K$(5) -3090 DA$(I)=left$(K$(6),15) -4000 E$(I)=K$(7) -4010 F$(I)=K$(8) -4020 Z1=Z1+1 -4025 Z5=Z5+1 -4027 IF Z1=Z2 THEN 4040 -4030 NEXT I -4040 FOR I=1 TO Z5-1 -4045 IF Z5=1 THEN print TAB(K);:GOTO 4070 -4050 print A$(I);TAB((I*K)-I+1); -4060 NEXT I -4070 print A$(Z5) -4080 FOR I=1 TO Z5-1 -4085 IF Z5=1 THEN print TAB(K);:GOTO 5010 -4090 print B$(I);TAB((I*K)-I+1); -5000 NEXT I -5010 print B$(Z5) -5020 FOR I=1 TO Z5-1 -5025 IF Z5=1 THEN print TAB(K);:GOTO 5050 -5030 print C$(I);TAB((I*K)-I+1); -5040 NEXT I -5050 print C$(Z5) -5060 FOR I=1 TO Z5-1 -5065 IF Z5=1 THEN print TAB(K);:GOTO 6000 -5070 print DA$(I);",";E$(I);" "; -5080 print F$(I);TAB((I*K)-I+1); -5090 NEXT I -6000 print DA$(Z5);",";E$(Z5);" ";F$(Z5) -6010 FOR Z=1 TO L:print:NEXT Z -6030 NEXT J -6040 close 1 -6045 console -6050 PRINT clear$ -6060 chain "master6" diff --git a/bwbtest/C77B/EPLIST.BAS b/bwbtest/C77B/EPLIST.BAS deleted file mode 100644 index 65475ff..0000000 --- a/bwbtest/C77B/EPLIST.BAS +++ /dev/null @@ -1,57 +0,0 @@ -1 rem This is the Payroll File Listing Program - -%INCLUDE ALL.BAS -500 dim k$(4,20),n(2,20) - l$="$$##,###.##":u$="##########":v$="####" - z5$="ep":z6$=z5$+"back" - RESTORE - FOR Z=1 TO 17:READ N(1,Z):NEXT Z - DATA 8,10,24,24,24,17,2,5,14,11,8,8,1,1,1,4,6 -1010 PRINT clear$:PRINT -1020 PRINT "*** LISTING ***" -9001 lprinter -9002 open z5$ recl 512 as 1 -9003 FOR Z1=1 TO Z2-1 - read #1,z1;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18),N(2,19),N(2,20), N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) -9006 Z9=1 -9007 FOR Z=3 TO 15:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z - print delim$:print:print -9010 PRINT "RECORD NUMBER";z1;TAB(31); -9012 PRINT "EMPLOYEE #";TAB(46);:print using u$;n(2,1) -9014 PRINT "ACCT NUMBER";TAB(18);:print using u$;n(2,2); -9016 PRINT TAB(31);"NAME";TAB(46);K$(3,3) -9018 PRINT TAB(31);"COMPANY";TAB(46);K$(3,4) -9020 PRINT TAB(31);"ADDRESS";TAB(46);K$(3,5) -9022 PRINT TAB(31);"CITY";TAB(46);K$(3,6) -9024 PRINT TAB(31);"STATE";TAB(46);K$(3,7);TAB(51);"ZIP"; -9026 PRINT TAB(61);K$(3,8) -9028 PRINT "PHONE";TAB(16);K$(3,9);TAB(31);"SOC SEC #"; -9030 PRINT TAB(46);K$(3,10) -9032 PRINT "EMPLOYED";TAB(16);K$(3,11);TAB(31);"TERMINATED"; -9034 PRINT TAB(46);K$(3,12) -9036 PRINT "MARITAL";TAB(16);K$(3,13);TAB(31);"HOUR OR SA"; -9038 PRINT TAB(46);K$(3,14) -9040 PRINT "PAY PERIOD";TAB(16);K$(3,15);TAB(31);"# OF EXEM"; -9042 PRINT TAB(46);:print using v$;n(2,16);:PRINT TAB(51);"RATE"; - print using l$;n(2,17) - print delim$ -9046 PRINT TAB(16);"CURRENT";TAB(36);"QUARTER TO DATE";TAB(56);"YEAR TO DATE" - print "Hours";tab(16); - print using u$;n(2,18);tab(36);n(2,19);tab(56);n(2,20) - print "Gross Pay";tab(16); - print using l$;n(0,1);tab(36);n(0,2);tab(56);n(0,3) - print "FICA";tab(16); - print using l$;n(0,4);tab(36);n(0,5);tab(56);n(0,6) - print "Fed Tax";tab(16); - print using l$;n(0,7);tab(36);n(0,8);tab(56);n(0,9) - print "State Tax";tab(16); - print using l$;n(0,10);tab(36);n(0,11);tab(56);n(0,12) - print "SDI";tab(16); - print using l$;n(0,13);tab(36);n(0,14);tab(56);n(0,15) - print "Misc Ded";tab(16); - print using l$;n(0,16);tab(36);n(0,17);tab(56);n(0,18) -9100 print chr$(12) -9105 NEXT Z1 -9110 close 1 -9115 console -9120 CHAIN "epentry" diff --git a/bwbtest/C77B/EPSORT.BAS b/bwbtest/C77B/EPSORT.BAS deleted file mode 100644 index afb2f63..0000000 --- a/bwbtest/C77B/EPSORT.BAS +++ /dev/null @@ -1,138 +0,0 @@ -1 rem This is the Employee Information Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="ep":z6$="epback":z7$="epsize":RL=512 - - false=0:true=-1 - -2000 print clear$:print - print "Sorting the Employee Information file will make any old" - print "Time card files invalid and inaccessable. If you wish to" - print "use any of these old files, just type 'abort' and go to" - print "the time card entry operation to make a listing." - print:print "If you wish to continue, type 'C' " - - input line temp$ - - if ucase$(temp$)="ABORT" then chain "epentry" - - if ucase$(temp$)<>"C" then 2000 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18), N(2,19),N(2,20),N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) - - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18), N(2,19),N(2,20),N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) - - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18), N(2,19),N(2,20),N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) - - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18), N(2,19),N(2,20),N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) - - NEXT Z - - for z=1 to 20:n(0,z)=0:n(2,z)=0:next z:n$="":flag=true - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18), N(2,19),N(2,20),N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7), N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13), N(0,14),N(0,15),N(0,16),N(0,17),N(0,18) - - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3,flag:close 3 - -chain "epentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "epentry" diff --git a/bwbtest/C77B/EPSUMARY.BAS b/bwbtest/C77B/EPSUMARY.BAS deleted file mode 100644 index ad95687..0000000 --- a/bwbtest/C77B/EPSUMARY.BAS +++ /dev/null @@ -1,146 +0,0 @@ -1 rem This is the Payroll Register Printer - -%INCLUDE ALL.BAS -500 DIM K$(3,20) - dim h(9),s(9),t(4,9),N(2,20) - t$="#,###.##":u$="##,###.##":v$="###,###.##" - t5$="##########":t6$="####" - fmt$="/.../ ###,###.## ##,###.## #,###.## #,###.## ##,###.##" - fmt$=fmt$+" ##,###.## ###,###.## ###,###.## ##,###.## ##,###.##" - RESTORE -1050 Q$="E M P L O Y E E P A Y R O L L R E G I S T E R" -1075 N(1,3)=24:N(1,4)=24:N(1,5)=24:N(1,6)=17:N(1,7)=2:N(1,8)=5 -1080 N(1,9)=14:N(1,10)=11:N(1,11)=8:N(1,12)=8:N(1,13)=1:N(1,14)=1:N(1,15)=1 -1235 T%(1)=132 -1240 FOR Z=1 TO 131:A$=A$+"=":B$=B$+"-":c5$=c5$+"*":NEXT Z -1400 rem this part gets cutoffs for futa and suta - open "epc" as 1 - read #1;c1,c2,c3,c4,c5,c6,c7,c8 - close 1 -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) - Z=24:Z9=1 - FOR Z0=1 TO 4 - K$(0,Z0)=MID$(N$,Z9,Z) - Z9=Z9+Z - NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 FOR Z=l9 TO l8 STEP -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT PAYROLL REGISTER -6005 PRINT clear$:PRINT:PRINT "PRINTING PAYROLL REGISTER":P0=1 -6010 lprinter -6015 open "ep" recl 512 as 1 - z3=(size("ep")*block.size)/512 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 6045 - next z2 -6045 close 1 - z2=z2-1 -6090 P1=1:P2=8 -6095 open "ep" recl 512 as 1 -6100 FOR I=1 TO (Z2/8)+1 -6105 Z=0 -6110 GOSUB 9600 -6120 FOR Z1=P1 TO P2 -6130 GOSUB 9000 -6200 NEXT Z1 -6210 GOSUB 9400 -6220 P1=P1+8:P2=P2+8 -6250 NEXT I -6300 GOSUB 9800 -6400 GOTO 9900 -9000 REM GET RECORD AND PRINT -9010 read #1,z1;n(2,1),n(2,2),n$,n,r,h1,h2,h3,e0,e1,e2,f1,f2,f3, e3,e4,e5,e6,e7,e8,s1,s2,s3,m1,m2,m3 -9020 IF N(2,2)=0 THEN 9395 -9050 H2=H2+H1:H3=H3+H1:S2=S2+S1:S3=S3+S1:M2=M2+M1:M3=M3+M1 -9052 E1=E1+E0:E2=E2+E0:E4=E4+E3:E5=E5+E3:E7=E7+E6:E8=E8+E6 -9054 F2=F2+F1:F3=F3+F1 -9095 Z9=1:FOR Z=3 TO 15:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -9100 N$="" -9105 open "tm" recl 128 as 2 - read #2,z1;a,b,n$,y1,y2 - close 2 -9120 Y4=Y4+Y2 -9176 H4=H4+H1:H5=H5+H2:H6=H6+H3:S4=S4+S1:S5=S5+S2:S6=S6+S3:M4=M4+M1 -9178 M5=M5+M2:M6=M6+M3:T0=T0+E0:T1=T1+E1:T2=T2+E2:T3=T3+E3:T4=T4+E4 -9180 T5=T5+E5:T6=T6+E6:T7=T7+E7:T8=T8+E8:F4=F4+F1:F5=F5+F2:F6=F6+F3 -9200 IF E2-E0>C5 THEN A4=0 -9205 IF E2-E0>C5 THEN GOTO 9225 -9210 IF E2>C5 THEN A4=((E2-C5)*C6) -9215 IF E2>C5 THEN GOTO 9225 -9220 IF E2<=C5 THEN A4=E0*C6 -9225 A6=A6+A4 -9230 IF E2-E0>C7 THEN A5=0 -9235 IF E2-E0>C7 THEN GOTO 9255 -9240 IF E2>C7 THEN A5=((E2-C7)*C8) -9245 IF E2>C7 THEN GOTO 9255 -9250 IF E2<=C7 THEN A5=E0*C8 -9255 A7=A7+A5 -9260 print tab(11);k$(3,3);tab(41); k$(3,10);tab(66);h1;tab(76);h2;tab(88);h3;tab(101);r -9280 print using fmt$;left$(d$(1),5),e0,e3,f1,s1,e6,m1,e0-e3-f1-s1-e6-m1, y2,a4,a5 - print using fmt$;"Q-T-D",e1,e4,f2,s2,e7,m2,e1-e4-f2-s2-e7-m2 - print using fmt$;"Y-T-D",e2,e5,f3,s3,e8,m3,e2-e5-f3-s3-e8-m3 -9335 print:print -9340 H2=0:H3=0:S2=0:S3=0:M2=0:M3=0:E1=0:E2=0:E4=0:E5=0:E7=0:E8=0 -9345 F2=0:F3=0:Y1=0:Y2=0:A4=0:A5=0 -9395 RETURN -9400 print -9410 print A$ -9420 print "Report continues on next page" -9430 print A$ -9440 print chr$(12) -9450 RETURN -9600 REM PRINT PAGE HEADING SUBROUTINE -9610 print c5$ -9615 print:P9=P9+1 -9616 print TAB((T%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9625 print K$(0,2);TAB(101);"FOR PERIOD ENDING ";D$(2) -9630 print B$ -9632 IF Z=1 THEN 9645 -9635 print "EMP #";TAB(11);"NAME";TAB(41);"SOC. SEC #";TAB(65);"HOURS"; -9640 print TAB(76);"HOURS QTD";TAB(88);"HOURS YTD";TAB(101);"RATE" -9645 print "DATE";TAB(11);"GROSS";TAB(23);"F/W";TAB(34);"FICA";TAB(44); -9650 print "SDI";TAB(54);"S/W";TAB(65);"MISC DED";TAB(76);"NET PAY"; -9655 print TAB(88);"OTHER";TAB(100);"FUTA";TAB(112);"SUTA" -9665 print B$ -9670 RETURN -9800 q$="":Q$="P A Y R O L L R E G I S T E R S U M M A R Y" -9802 Z=1 -9805 GOSUB 9600 -9810 print using fmt$;left$(d$(1),5),t0,t3,f4,s4,t6,m4,t0-t3-f4-s4-t6-m4, y4,a6,a7 - print using fmt$;"Q-T-D",t1,t4,f5,s5,t7,m5,t1-t4-f5-s5-t7-m5 - print using fmt$;"Y-T-D",t2,t5,f6,s6,t8,m6,t2-t4-f6-s6-t8-m6 -9862 print -9864 IF T4+(F5*2)>200 THEN print "Q-T-D FED TAX LIABILITY IS "; - if t4+(f5*2)>200 then print using v$;t4+(f5*2) -9866 IF T4+(F5*2)>200 THEN print "YOU SHOULD MAKE A DEPOSIT WITHIN 15 DAYS." -9868 IF T4+(F5*2)>2000 THEN print "*** ALERT *** Q-T-D FED TAX LIABILITY IS "; - if t4+(f5*2)>2000 then print using v$;t4+(f5*2) -9872 if t4+(f5*2)>2000 then print "You should make a deposit within 3 banking days!!" -9873 print -9874 print "CURRENT FEDERAL TAX LIABILITY IS ";:print using v$;t3+(f4*2) -9876 print "PLEASE ENTER THIS AMOUNT IN FEDERAL DEPOSIT FILE." -9882 print -9884 print :print :print -9886 print A$ -9888 print "End of Report" -9890 print A$ -9892 print chr$(12) -9895 RETURN -9900 print chr$(12) -9910 close 1 -9915 console -10000 chain "master5" diff --git a/bwbtest/C77B/EPTABS.BAS b/bwbtest/C77B/EPTABS.BAS deleted file mode 100644 index 4ff5d96..0000000 --- a/bwbtest/C77B/EPTABS.BAS +++ /dev/null @@ -1,175 +0,0 @@ -1 rem This is the Payroll Check Tab Entry Program - rem Copyright (c) 1978 Aaron Associates Inc. -%INCLUDE ALL.BAS -500 dim n(2,20),k$(6,30) - z5$="ept":z6$=z5$+"back" - repeat$="--------------------------------" - fill$=" " - RESTORE -540 K$(0,1)="1 - ENTER TABS":K$(0,2)="2 - EXAMINE TABS" -550 K$(0,3)="3 - MODIFY TABS" -570 K$(0,4)="4 - CREATE NEW FILE":K$(0,5)="5 - CLEAR EXISTING FILE" -590 K$(0,6)="6 - FINISHED" - print clear$:print -1100 K$(1,1)="LS TO DATE LINE":K$(1,2)="TAB TO DATE" -1105 K$(1,3)="LS TO AMOUNT LINE" -1110 K$(1,4)="TAB TO AMOUNT":K$(1,5)="TAB TO $" -1115 K$(1,6)="LS TO PAY TO LINE" -1120 K$(1,7)="TAB TO PAY TO" -1125 K$(1,8)="LS TO SUMMARY LINE" -1130 K$(1,9)="DATE TAB" -1135 K$(1,10)="NAME TAB" -1140 K$(1,11)="SOC SEC TAB" -1145 K$(1,12)="GROSS TAB" -1150 K$(1,13)="DEDUCTION TAB" -1155 K$(1,14)="NET TAB" -1160 K$(1,15)="LS TO CURRENT BREAKDOWN" -1165 K$(1,16)="LS TO Y-T-D BREAKDOWN" -1170 K$(1,17)="DATE TAB" -1172 K$(1,18)="HOURS TAB":K$(1,19)="RATE TAB":K$(1,20)="1ST GROSS TAB" -1174 K$(1,21)="2ND GROSS TAB":K$(1,22)="FICA TAB":K$(1,23)="FIT TAB" -1176 K$(1,24)="SIT TAB":K$(1,25)="SDI TAB":K$(1,26)="MISC TAB" -1178 K$(1,27)="NET TAB" -1180 K$(1,28)="LS TO NEXT CHECK" -1200 K$(2,1)="1 - LS TO DATE LINE":K$(2,2)="2 - TAB TO DATE" -1205 K$(2,3)="3 - LS TO AMOUNT LINE" -1210 K$(2,4)="4 - TAB TO AMOUNT":K$(2,5)="5 - TAB TO $" -1215 K$(2,6)="6 - LS TO PAY TO LINE" -1220 K$(2,7)="7 - TAB TO PAY TO" -1225 K$(2,8)="8 - LS TO SUMMARY LINE" -1230 K$(2,9)="9 - DATE TAB" -1235 K$(2,10)="10- NAME TAB" -1240 K$(2,11)="11- SOC SEC TAB" -1245 K$(2,12)="12- GROSS TAB" -1250 K$(2,13)="13- DEDUCTION TAB" -1255 K$(2,14)="14- NET TAB" -1260 K$(2,15)="15- LS TO CURRENT BREAKDOWN" -1265 K$(2,16)="16- LS TO Y-T-D BREAKDOWN" -1270 K$(2,17)="17- DATE TAB" -1272 K$(2,18)="18- HOURS TAB":K$(2,19)="19- RATE TAB" -1273 K$(2,20)="20- 1ST GROSS TAB" -1274 K$(2,21)="21- 2ND GROSS TAB":K$(2,22)="22- FICA TAB" -1275 K$(2,23)="23- FIT TAB" -1276 K$(2,24)="24- SIT TAB":K$(2,25)="25- SDI TAB":K$(2,26)="26- MISC TAB" -1278 K$(2,27)="27- NET TAB":K$(2,28)="28- LS TO NEXT CHECK" -1279 K$(2,29)="29- NONE" -1300 FOR Z=1 TO 30:N(1,Z)=3:NEXT Z - if end #1 then 6000 -1500 open z5$ as 1 - close 1 -1510 Z1=1:Z2=1 -1600 PRINT clear$ -1605 PRINT -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 6:PRINT K$(0,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>6 then 1600 -1685 ON Z GOSUB 2000,3000,4000,6000,7000,10000 -1690 FOR Z=1 TO 30:T%(Z)=0:NEXT Z:N$="" -1705 GOTO 1600 -2000 PRINT clear$:PRINT -2005 PRINT "TABS ARE USED IN ALL PAYROLL CHECK PRINTOUTS. A" -2010 PRINT "TEST SHOULD BE MADE BY RUNNING PAYROLL CHECKS TO" -2015 PRINT "ENSURE THAT TABS ARE CORRECTLY SET." -2025 PRINT -2040 FOR Z=1 TO 28 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 INPUT T%(Z):PRINT chr$(13) - PRINT CLEAR$ -2060 NEXT Z -2105 PRINT clear$:PRINT -2110 T$="###" -2115 FOR Z=1 TO 14 -2120 PRINT K$(2,Z);TAB(30);:print using t$;t%(z) -2125 NEXT Z -2126 PRINT:INPUT "TO EXAMINE REMAINING TAB SETTINGS - PRESS RETURN ";line temp$ -2130 FOR Z=15 TO 29 -2135 PRINT K$(2,Z);TAB(30);:print using t$;t%(z) -2140 NEXT Z -2145 PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>28 THEN 2225 -2170 IF Z<1 THEN 2105 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT T%(Z) -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ as 1 - print #1;t%(1),t%(2),t%(3),t%(4),t%(5),t%(6),t%(7),t%(8), t%(9),t%(10),t%(11),t%(12),t%(13),t%(14),t%(15),t%(16), t%(17),t%(18),t%(19),t%(20),t%(21),t%(22),t%(23),t%(24), t%(25),t%(26),t%(27),t%(28) - close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3010 open z5$ as 1 - read #1;t%(1),t%(2),t%(3),t%(4),t%(5),t%(6),t%(7),t%(8), t%(9),t%(10),t%(11),t%(12),t%(13),t%(14),t%(15),t%(16), t%(17),t%(18),t%(19),t%(20),t%(21),t%(22),t%(23),t%(24), t%(25),t%(26),t%(27),t%(28) - close 1 -3030 PRINT - PRINT "Should this be a 'hard-copy' listing (Y or N)?" - INPUT LINE LIST$ - IF LIST$="y" OR LIST$="Y" THEN LPRINTER -3031 T$="###" -3035 FOR Z=1 TO 14 -3040 PRINT K$(1,Z);TAB(30);:print using t$;t%(z) -3045 NEXT Z - IF LIST$="y" OR LIST$="Y" THEN 3050 -3047 PRINT:INPUT "TO EXAMINE REMAINING TABS - PRESS RETURN ";line temp$ -3050 FOR Z=15 TO 28 -3055 PRINT K$(1,Z);TAB(30);:print using t$;t%(z) -3060 NEXT Z - PRINT CHR$(13):PRINT CHR$(12) - CONSOLE -3070 PRINT -3080 PRINT "IF FINISHED, TYPE F - RETURN.":PRINT -3085 INPUT line temp$ -3095 RETURN -4000 PRINT clear$:PRINT -4010 open z5$ as 1 - read #1;t%(1),t%(2),t%(3),t%(4),t%(5),t%(6),t%(7),t%(8), t%(9),t%(10),t%(11),t%(12),t%(13),t%(14),t%(15),t%(16), t%(17),t%(18),t%(19),t%(20),t%(21),t%(22),t%(23),t%(24), t%(25),t%(26),t%(27),t%(28) - close 1 -4070 GOTO 2105 -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A TABS FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF temp$="c" OR temp$="C" THEN INITIALIZE:GOTO 1500 -6045 PRINT clear$:PRINT -6050 create z5$ as 1 - print #1;t%(1),t%(2),t%(3),t%(4),t%(5),t%(6),t%(7),t%(8), t%(9),t%(10),t%(11),t%(12),t%(13),t%(14),t%(15),t%(16), t%(17),t%(18),t%(19),t%(20),t%(21),t%(22),t%(23),t%(24), t%(25),t%(26),t%(27),t%(28) - close 1 -6095 PRINT clear$:PRINT -6100 PRINT "TABS FILE CREATED AND CLEARED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ -6115 GOTO 1600 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF temp$<>"YES" THEN RETURN -7010 open z5$ as 1 - print #1;t%(1),t%(2),t%(3),t%(4),t%(5),t%(6),t%(7),t%(8), t%(9),t%(10),t%(11),t%(12),t%(13),t%(14),t%(15),t%(16), t%(17),t%(18),t%(19),t%(20),t%(21),t%(22),t%(23),t%(24), t%(25),t%(26),t%(27),t%(28) - close 1 -7035 PRINT clear$:PRINT -7040 PRINT "TABS FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ -7060 RETURN -10000 CHAIN "MASTER15" diff --git a/bwbtest/C77B/ESENTRY.BAS b/bwbtest/C77B/ESENTRY.BAS deleted file mode 100644 index 526e947..0000000 --- a/bwbtest/C77B/ESENTRY.BAS +++ /dev/null @@ -1,311 +0,0 @@ -1 rem This is the California State Tax Table Entry Program - -%INCLUDE ALL.BAS -500 dim G(11,5),b(11,5),c(11,5),d(11,5),e(11,5),f(20) - dim n(2,20),k$(3,20) - l$="$##,###.##":u$=".###":r$="###.## " - z5$="es" - RESTORE -540 K$(3,1)="1 - ENTER STATE TABLES":K$(3,2)="2 - EXAMINE STATE TABLES" -550 K$(3,3)="3 - MODIFY STATE TABLES" -570 K$(3,4)="4 - CREATE NEW FILE":K$(3,5)="5 - CLEAR EXISTING FILE" -590 K$(3,6)="6 - LIST STATE TABLES":K$(3,7)="7 - FINISHED" - print clear$:print -1100 K$(1,1)="AT LEAST":K$(1,2)="BUT NOT OVER" -1110 K$(1,3)="BASE":K$(1,4)="%":K$(1,5)="OF EXCESS OVER" -1200 K$(2,1)="SINGLE TAXPAYER ANNUAL TABLES" -1210 K$(2,2)="MARRIED TAXPAYER ANNUAL TABLE" -1220 K$(2,3)="HEAD OF HOUSEHOLD ANNUAL TABLE" -1230 K$(2,4)="CALIFORNIA TAX CREDIT TABLE" -1250 N(1,1)=12:N(1,2)=12:N(1,3)=12:N(1,4)=12:N(1,5)=12 - if end #1 then 6000 -1500 open z5$ as 1 - close 1 -1510 Z1=1:Z2=1 -1600 PRINT clear$ -1605 PRINT -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 7:PRINT K$(3,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z -1685 ON Z GOSUB 2000,3000,4000,6000,7000,9000,10000 -1690 FOR X=1 TO 11:FOR Y=1 TO 5:G(X,Y)=0:B(X,Y)=0:NEXT Y:NEXT X -1695 FOR X=1 TO 11:FOR Y=1 TO 5:C(X,Y)=0:D(X,Y)=0:E(X,Y)=0:NEXT Y:NEXT X -1696 FOR Z=1 TO 20:F(Z)=0: NEXT Z -1705 GOTO 1600 -2000 GOSUB 20000 -2010 GOSUB 30000 -2105 PRINT clear$:print -2110 GOSUB 40000 -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ as 1 - for x=1 to 11 - print #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - print #1;d(x,1),d(x,2),d(x,3),d(x,4),d(x,5) - print #1;e(x,1),e(x,2),e(x,3),e(x,4),e(x,5) - next x - for x=1 to 16 - print #1;f(x) - next x - close 1 -2995 RETURN -3000 PRINT clear$:PRINT -3002 open z5$ as 1 - for x=1 to 11 - read #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - read #1;d(x,1),d(x,2),d(x,3),d(x,4),d(x,5) - read #1;e(x,1),e(x,2),e(x,3),e(x,4),e(x,5) - next x - for x=1 to 16 - read #1;f(x) - next x - close 1 -3400 PRINT clear$ -3506 PRINT K$(2,1) -3508 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -3510 PRINT K$(1,4);TAB(61);K$(1,5) -3512 FOR X=1 TO 11 -3516 print x;tab(6);:print using l$;c(x,1);tab(21);c(x,2);tab(36);c(x,3); - print using u$;tab(51);c(x,4);:print using l$;tab(61);c(x,5) -3520 NEXT X -3525 INPUT "FOR NEXT CHART TYPE RETURN.";line temp$ -3600 PRINT clear$:PRINT:PRINT K$(2,2) -3608 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -3610 PRINT K$(1,4);TAB(61);K$(1,5) -3612 FOR X=1 TO 11 -3616 print x;tab(6);:print using l$;d(x,1);tab(21);d(x,2);tab(36);d(x,3); - print using u$;tab(51);d(x,4);:print using l$;tab(61);d(x,5) -3620 NEXT X -3625 INPUT "FOR NEXT CHART TYPE RETURN.";line temp$ -3700 PRINT clear$:PRINT:PRINT K$(2,3) -3708 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -3710 PRINT K$(1,4);TAB(61);K$(1,5) -3712 FOR X=1 TO 11 -3716 print x;tab(6);:print using l$;e(x,1);tab(21);e(x,2);tab(36);e(x,3); - print using u$;tab(51);e(x,4);:print using l$;tab(61);e(x,5) -3720 NEXT X -3725 INPUT "FOR NEXT CHART TYPE RETURN.";line temp$ -3800 PRINT clear$:PRINT:PRINT K$(2,4):PRINT -3820 FOR Z=1 TO 7 -3830 print using r$;f(z); -3840 NEXT Z -3850 print using r$;f(8) -3860 FOR Z=9 TO 15 -3870 print using r$;f(z); -3880 NEXT Z -3890 print using r$;f(16) -3895 PRINT -3950 INPUT "WHEN FINISHED TYPE RETURN.";line temp$ -3995 RETURN -4000 PRINT clear$:PRINT -4002 open z5$ as 1 - for x=1 to 11 - read #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - read #1;d(x,1),d(x,2),d(x,3),d(x,4),d(x,5) - read #1;e(x,1),e(x,2),e(x,3),e(x,4),e(x,5) - next x - for x=1 to 16 - read #1;f(x) - next x - close 1 -4995 GOTO 2105 -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A STATE TABLES FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF temp$="c" OR temp$="C" THEN INITIALIZE:GOTO 1500 -6045 PRINT clear$:PRINT -6065 create z5$ as 1 - for x=1 to 11 - print #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - print #1;d(x,1),d(x,2),d(x,3),d(x,4),d(x,5) - print #1;e(x,1),e(x,2),e(x,3),e(x,4),e(x,5) - next x - for x=1 to 16 - print #1;f(x) - next x - close 1 -6495 PRINT clear$:PRINT -6500 PRINT "STATE TABLES FILE CREATED AND CLEARED.":PRINT -6510 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ -6515 GOTO 1600 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7002 IF temp$<>"YES" THEN RETURN - for x=1 to 11:for y=1 to 5:c(x,y)=0:d(x,y)=0:e(x,y)=0:next y:next x - for z=1 to 16:f(z)=0:next z -7004 open z5$ as 1 - for x=1 to 11 - print #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - print #1;d(x,1),d(x,2),d(x,3),d(x,4),d(x,5) - print #1;e(x,1),e(x,2),e(x,3),e(x,4),e(x,5) - next x - for x=1 to 16 - print #1;f(x) - next x - close 1 -7935 PRINT clear$:PRINT -7940 PRINT "STATE TABLES FILE CLEARED!":PRINT -7945 PRINT "TO CONTINUE, TYPE RETURN." -7950 INPUT line temp$ -7960 RETURN -9000 PRINT clear$:PRINT - print "Listing":print - lprinter -9002 open z5$ as 1 - for x=1 to 11 - read #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5) - read #1;d(x,1),d(x,2),d(x,3),d(x,4),d(x,5) - read #1;e(x,1),e(x,2),e(x,3),e(x,4),e(x,5) - next x - for x=1 to 16 - read #1;f(x) - next x - close 1 -9506 PRINT K$(2,1) -9508 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(5:GOTO 40000 -41000 PRINT clear$:PRINT:PRINT K$(2,2) -41008 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -41010 PRINT K$(1,4);TAB(61);K$(1,5) -41012 FOR X=1 TO 11 -41016 print x;tab(6);:print using l$;d(x,1);tab(21);d(x,2);tab(36);d(x,3); - print using u$;tab(51);d(x,4);:print using l$;tab(61);d(x,5) -41020 NEXT X -41030 PRINT "TO CHANGE AN ITEM TYPE M FOLLOWED BY ROW AND COLUMN" -41040 PRINT "TYPE F FOLLOWED BY RETURN IF NO CHANGES" -41050 INPUT line temp$ -41055 IF temp$="F" THE -9620 NEXT X -9700 PRINT:PRINT K$(2,3) -9708 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -9710 PRINT K$(1,4);TAB(61);K$(1,5) -9712 FOR X=1 TO 11 -9716 print x;tab(6);:print using l$;e(x,1);tab(21);e(x,2);tab(36);e(x,3); - print using u$;tab(51);e(x,4);:print using l$;tab(61);e(x,5) -9720 NEXT X -9800 PRINT:PRINT K$(2,4):PRINT -9820 FOR Z=1 TO 7 -9830 print using r$;f(z); -9840 NEXT Z -9850 print using r$;f(8) -9860 FOR Z=9 TO 15 -9870 print using r$;f(z); -9880 NEXT Z -9890 print using r$;f(16) -9895 PRINT - print chr$(12):for z=1 to 100:next z:print chr$(12) - console -9995 RETURN -10000 CHAIN "bizmii" -20000 PRINT clear$:PRINT -20010 Z1=1 -20020 PRINT K$(2,Z1) -20030 FOR X=1 TO 11 -20040 PRINT "VALUES FOR ROW ";X -20050 FOR Y=1 TO 5 -20060 PRINT TAB(30);"------------" - PRINT UP$; -20070 PRINT K$(1,Y);TAB(30); -20080 IF Z1=1 THEN INPUT C(X,Y):PRINT chr$(13) -20090 IF Z1=2 THEN INPUT D(X,Y):PRINT chr$(13) -20100 IF Z1=3 THEN INPUT E(X,Y):PRINT chr$(13) -20110 NEXT Y -20120 PRINT clear$:PRINT:PRINT K$(2,Z1) -20130 NEXT X -20140 IF Z1<3 THEN Z1=Z1+1:PRINT clear$:PRINT:GOTO 20020 -20150 RETURN -30000 PRINT clear$:PRINT -30010 PRINT K$(2,4) -30020 FOR X=1 TO 16 -30030 PRINT TAB(30);"------------" - PRINT UP$; - print TAB(30); -30040 INPUT F(X):PRINT chr$(13) -30050 NEXT X -30060 RETURN -40000 PRINT K$(2,1) -40008 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -40010 PRINT K$(1,4);TAB(61);K$(1,5) -40012 FOR X=1 TO 11 -40016 print x;tab(6);:print using l$;c(x,1);tab(21);c(x,2);tab(36);c(x,3); - print using u$;tab(51);c(x,4);:print using l$;tab(61);c(x,5) -40020 NEXT X -40030 PRINT "TO CHANGE AN ITEM TYPE S FOLLOWED BY ROW AND COLUMN" -40040 PRINT "TYPE F FOLLOWED BY RETURN IF NO CHANGES" -40050 INPUT line temp$ -40055 IF temp$="F" THEN 41000 -40060 INPUT "ROW ";X:INPUT "COLUMN ";Y -40065 IF temp$<>"S" THEN PRINT clear$:PRINT:GOTO 40000 -40070 PRINT TAB(30);"------------" - PRINT UP$; -40075 PRINT K$(1,Y);TAB(30); -40080 INPUT C(X,Y):PRINT clear$:PRINT:GOTO 40000 -41000 PRINT clear$:PRINT:PRINT K$(2,2) -41008 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -41010 PRINT K$(1,4);TAB(61);K$(1,5) -41012 FOR X=1 TO 11 -41016 print x;tab(6);:print using l$;d(x,1);tab(21);d(x,2);tab(36);d(x,3); - print using u$;tab(51);d(x,4);:print using l$;tab(61);d(x,5) -41020 NEXT X -41030 PRINT "TO CHANGE AN ITEM TYPE M FOLLOWED BY ROW AND COLUMN" -41040 PRINT "TYPE F FOLLOWED BY RETURN IF NO CHANGES" -41050 INPUT line temp$ -41055 IF temp$="F" THEN 42000 -41060 INPUT "ROW ";X:INPUT "COLUMN ";Y -41065 IF temp$<>"M" THEN PRINT clear$:PRINT:GOTO 41000 -41070 PRINT TAB(30);"------------" - PRINT UP$; -41075 PRINT K$(1,Y);TAB(30); -41080 INPUT D(X,Y):PRINT clear$:PRINT:GOTO 41000 -42000 PRINT clear$:PRINT:PRINT K$(2,3) -42008 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51); -42010 PRINT K$(1,4);TAB(61);K$(1,5) -42012 FOR X=1 TO 11 -42016 print x;tab(6);:print using l$;e(x,1);tab(21);e(x,2);tab(36);e(x,3); - print using u$;tab(51);e(x,4);:print using l$;tab(61);e(x,5) -42020 NEXT X -42030 PRINT "TO CHANGE AN ITEM TYPE H FOLLOWED BY ROW AND COLUMN" -42040 PRINT "TYPE F FOLLOWED BY RETURN IF NO CHANGES" -42050 INPUT line temp$ -42055 IF temp$="F" THEN 43000 -42060 INPUT "ROW ";X:INPUT "COLUMN ";Y -42065 IF temp$<>"H" THEN PRINT clear$:PRINT:GOTO 42000 -42070 PRINT TAB(30);"------------" - PRINT UP$; -42075 PRINT K$(1,Y);TAB(30); -42080 INPUT E(X,Y):PRINT clear$:PRINT:GOTO 42000 -43000 PRINT clear$:PRINT:PRINT K$(2,4):PRINT -43020 FOR Z=1 TO 7 -43030 print using r$;f(z); -43040 NEXT Z -43050 print using r$;f(8) -43060 FOR Z=9 TO 15 -43070 print using r$;f(z); -43080 NEXT Z -43090 print using r$;f(16) -43100 PRINT:PRINT"TO CHANGE AN ITEM TYPE C FOLLOWED BY THE NUMBER (1 TO 16)" -43110 PRINT "TYPE F FOLLOWED BY RETURN IF NO CHANGES" -43115 INPUT line temp$ -43120 IF temp$="F" THEN RETURN -43125 INPUT Z -43130 IF temp$<>"C" THEN 43000 -43135 PRINT TAB(30);"------------" - PRINT UP$; -43140 PRINT TAB(30); -43145 INPUT F(Z) -43150 GOTO 43000 diff --git a/bwbtest/C77B/FED941PR.BAS b/bwbtest/C77B/FED941PR.BAS deleted file mode 100644 index 8bff722..0000000 --- a/bwbtest/C77B/FED941PR.BAS +++ /dev/null @@ -1,128 +0,0 @@ -1 rem This is the Federal Form 941 Quarterly Tax Return Printer - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(3,20),h(9),s(9),t(4,9) - print clear$:print - RESTORE -1055 T$="#,###.##" -1060 U$="##,###.##" -1065 V$="###,###.##" -1075 N(1,3)=24:N(1,4)=24:N(1,5)=24:N(1,6)=17:N(1,7)=2:N(1,8)=5 -1080 N(1,9)=14:N(1,10)=11:N(1,11)=8:N(1,12)=8:N(1,13)=1:N(1,14)=1:N(1,15)=1 -1120 Z9=1 -1145 Z9=0 -1400 REM THIS PART GETS CUTOFFS FOR FICA,SDI,FUTA AND SUTA - open "epc" as 1 - read #1;c1,c2,c3,c4,c5,c6,c7,c8 - close 1 -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 N(1,10)=20:N(1,11)=20 -3085 Z9=1:FOR Z=3 TO 11:K$(0,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -3090 N(1,10)=11:N(1,11)=8 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=3 TO 11 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT FEDERAL FORM 941 -6005 PRINT clear$:PRINT:PRINT "PRINTING FEDERAL FORM 941":P0=1 -6015 open "ep" recl 512 as 1 -6020 z3=(size("ep")*block.size)/512 -6025 FOR Z2=1 TO Z3 -6030 read #1,z2;N(2,1),N(2,2),N$,N,R,H1,H2,H3 -6035 IF N(2,2)=0 THEN 6045 -6040 NEXT Z2 -6045 close 1 -6050 Z2=Z2-1 -6090 P1=1:P2=8 -6095 open "ep" recl 512 as 1 -6100 FOR Z1=1 TO Z2 -9000 REM GET RECORD AND PRINT -9010 read #1,z1;N(2,1),N(2,2),N$,N,R,H1,H2,H3, E0,E1,E2,F1,F2,F3,E3,E4,E5,E6,E7,E8,S1,S2,S3,M1,M2,M3 -9050 T1=T1+E2:T2=T2+E5 -9060 IF E2>C1 THEN Z6=Z6+C1:GOTO 9080 -9070 Z6=Z6+E2 -9080 NEXT Z1 -9085 close 1 -9100 PRINT clear$:PRINT -9105 PRINT "ENTER ADJUSTMENT OF WITHHELD INCOME TAX FOR PRECEDING" -9110 PRINT "QUARTER - LINE 4. ENTER INCREASE AS +, DECREASE AS -" -9115 PRINT:INPUT T3 -9150 PRINT clear$:PRINT -9155 PRINT "ENTER TAXABLE TIPS REPORTED - LINE 7." -9160 PRINT:INPUT Z7 -9200 PRINT clear$:PRINT -9205 PRINT "ENTER ADJUSTMENT OF FICA TAXES - LINE 9. ENTER INCREASE" -9210 PRINT "AS +, DECREASE AS -" -9215 PRINT:INPUT T7 -9250 PRINT clear$:PRINT -9255 PRINT "SET FORM 941 TO FIRST PRINT LINE.":PRINT -9260 INPUT "ENTER QUARTER NUMBER (1,2,3 OR 4). ";line temp$ - lprinter -9270 IF VAL(temp$)=1 THEN print TAB(78);Z2:GOTO 9280 -9280 print TAB(74);:print using v$;t1 -9285 T4=Z6*C2*2:T5=Z7*C2:T6=T4+T5 -9290 print TAB(74);:print using v$;t2 -9295 print TAB(74);:print using v$;t3 -9300 print TAB(74);:print using v$;t2+t3 -9310 print using v$;tab(41);z6;tab(74);t4 -9315 print using v$;tab(41);z7;tab(74);t5 -9320 print using v$;tab(74);t6 -9325 print using v$;tab(74);t7 -9330 print using v$;tab(74);t6+t7 -9335 print using v$;tab(74);t2+t3+t6+t7 -9340 print -9350 T9=T2+T3+T6+T7 - console -9400 PRINT clear$:PRINT -9410 PRINT "ENTER OVERPAYMENT FROM PREVIOUS QUARTER." -9415 PRINT:INPUT Z - lprinter -9420 T4=Z -9500 T1=0:T2=0:T3=0:T5=0:T6=0 -9510 print TAB(62);:print using v$;z -9520 open "edep" recl 64 as 1 -9525 I=1 -9530 FOR Z1=1 TO 48 -9540 read #1,z1;N(2,1),N(2,2),N(2,3),N(2,4),N(2,5),N$ -9545 IF N(2,1)<>VAL(temp$) THEN 9600 -9550 IF N(2,3)<>4 THEN GOSUB 20000 -9555 IF N(2,3)=4 THEN GOSUB 20500 -9600 NEXT Z1 -9605 close 1 -9610 print using v$;tab(39);t3;tab(62);t4 - console -9630 PRINT clear$:PRINT -9640 PRINT "ENTER FINAL DEPOSIT MADE IF NOT INCLUDED ABOVE." -9650 PRINT:INPUT Z -9660 PRINT "ENTER DATE OF FINAL DEPOSIT IF ANY." -9670 PRINT:INPUT Z$ - lprinter -9680 IF Z>0 THEN print TAB(51);Z$;TAB(62);:print using v$;z:T4=T4+Z:GOTO 9700 -9690 print TAB(62);:print using v$;z -9700 print:print -9710 print TAB(74);:print using v$;t4 -9720 print:print:print -9730 print TAB(74);:print using v$;t9-t4 - print chr$(12) -9915 console -9920 CHAIN "master5" -20000 T1=T1+N(2,4):T2=T2+N(2,5) -20005 print using v$;tab(39);n(2,4);tab(51); - PRINT RIGHT$(N$,8);:PRINT USING V$;TAB(62);N(2,5) -20030 RETURN -20500 T1=T1+N(2,4):T2=T2+N(2,5) -20505 print using v$;tab(39);n(2,4);tab(51); - PRINT RIGHT$(N$,8);:PRINT USING V$;TAB(62);N(2,5) - print using v$;tab(39);t1;tab(62);t2 -20530 T3=T3+T1:T4=T4+T2:T1=0:T2=0 -20550 RETURN diff --git a/bwbtest/C77B/FGALERT.BAS b/bwbtest/C77B/FGALERT.BAS deleted file mode 100644 index e43b9dd..0000000 --- a/bwbtest/C77B/FGALERT.BAS +++ /dev/null @@ -1,115 +0,0 @@ -1 rem This is the Finished Goods Inventory Alert Printer - -%INCLUDE ALL.BAS -500 RESTORE -1005 DIM N(2,20) - dim k$(3,20) - z5$="fg" - fmt1$="$$#,###,###.##" - fmt2$="#,###,###" - for z=1 to 130:repeat1$=repeat1$+"-":repeat2$=repeat2$+"=" - repeat3$=repeat3$+"*":next z -1020 DIM H(9),S(9),T(4,9) -1025 PRINT clear$:PRINT -1050 Q$="F I N I S H E D G O O D S (I N V E N T O R Y) A L E R T" -1065 L$="###,###.##" -1070 U$="#,###.#" - for z=3 to 9:read n(1,z):next z - data 7,12,24,24,8,8,10 -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE - JRF%=T%(1) -1235 T%(1)=130 -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT FINISHED GOODS ALERT - P9=0 -6005 PRINT clear$:PRINT:PRINT "PRINTING FINISHED GOODS ALERT":P0=1 -6010 lprinter - N(2,2)=1 - open z5$ recl 256 as 1 - IF END#1 THEN 6060 -6020 GOSUB 9600 -6030 GOSUB 9100 -6040 IF P9>56 THEN GOSUB 9300 -6050 IF N(2,2)<>0 THEN 6030 -6060 GOSUB 9800 -6070 GOTO 9900 -9100 N$="" -9105 A9=A9+1 - read #1,a9;n(2,1),n(2,2),n$,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9 -9115 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -9120 IF N(2,2)=0 THEN 9295 -9125 IF F3>F9 THEN 9150 -9130 IF F3F9 THEN print "QUANTITY OVER MAXIMUM BY ";F3-F9; -9175 IF F3>F9 THEN print TAB(61);"QUANTITY ON ORDER ";F4 -9180 IF F3z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "FINISHED GOODS INVENTORY ENTRY PROGRAM" - PRINT "--------------------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:N$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -1702 new$="" -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2036 FOR Z=3 TO 9 - PRINT CUR$ -2037 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2038 PRINT K$(1,Z);TAB(30); -2039 INPUT line K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2040 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ -2045 NEXT Z -2065 FOR Z=10 TO 19 - PRINT CUR$ -2070 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2075 PRINT K$(1,Z);TAB(30); -2080 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2085 NEXT Z -2090 N$="" -2095 FOR Z=3 TO 9:N$=N$+K$(3,Z):NEXT Z -2100 Z1=Z2 -2105 PRINT clear$; -2110 PRINT "RECORD NUMBER";Z1;TAB(31);"FINISHED GOODS ENTRY" -2115 FOR Z=1 TO 2 -2116 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -2118 NEXT Z -2120 FOR Z=3 TO 9 -2122 PRINT K$(2,Z);TAB(30);K$(3,Z) -2124 NEXT Z -2126 Z=10:PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -2128 FOR Z=11 TO 12 -2130 PRINT K$(2,Z);TAB(30);:print using l$;n(2,z) -2132 NEXT Z -2134 FOR Z=13 TO 19 -2136 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -2138 NEXT Z -2140 PRINT K$(2,20) -2163 PRINT"TO MAKE A CHANGE, TYPE THE APPROPRIATE #." -2164 INPUT Z -2165 IF Z>19 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>2 AND Z<10 THEN 2200 - CL=10:CC=50:GOSUB 50:PRINT CUR2$; -2180 PRINT left$(repeat$,n(1,z)) - CL=12:GOSUB 50:PRINT CUR2$; -2185 PRINT K$(1,Z) - CL=10:CC=48:GOSUB 50:PRINT CUR2$; -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 CL=10:CC=50:GOSUB 50:PRINT CUR2$; :PRINT left$(repeat$,n(1,z)) - CL=12:GOSUB 50:PRINT CUR2$; -2205 PRINT K$(1,Z) - CL=10:CC=48:GOSUB 50:PRINT CUR2$; -2210 INPUT line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2220 FOR Z=3 TO 9:N$=N$+K$(3,Z):NEXT Z -2225 CL=14:CC=50:GOSUB 50:PRINT CUR2$; - INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT CUR2$; -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 256 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN -3015 open z5$ recl 256 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -3022 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):next z -3025 close 1 -3105 GOSUB 11000 -3170 PRINT"FOR A NEW RECORD, TYPE N - TYPE F IF FINISHED.":INPUT line temp$ -3190 IF ucase$(temp$)="N" THEN 3000 -3195 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -4030 open z5$ recl 256 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -4036 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -4040 close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -5030 open z5$ recl 256 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -5036 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -5040 close 1 -5105 GOSUB 11000 -5200 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5205 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5210 IF ucase$(temp$)<>"YES" THEN 5200 -5215 N(2,1)=0 -5220 open z5$ recl 256 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -5230 close 1 -5235 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A FINISHED GOODS FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT temp$ -6040 IF ucase$(temp$)="C" THEN initialize:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";z3 -6055 PRINT -6060 n$="":for z=1 to 80:n$=n$+" ":next z:FOR Z=1 TO 20:N(2,Z)=0:NEXT Z -6065 create z5$ recl 256 as 1 -6070 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -6085 NEXT Z1 -6090 close 1 -6095 PRINT clear$:PRINT -6100 PRINT "FINISHED GOODS FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 z2=z3:n$="":for z=1 to 80:n$=n$+" ":next z:FOR Z=1 TO 20:N(2,Z)=0:NEXT Z -7006 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF ucase$(temp$)<>"YES" THEN RETURN - open z5$ recl 256 as 1 -7010 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -7025 NEXT Z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "FINISHED GOODS FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 chain "fgsort" -9000 lprinter -9005 PRINT clear$:PRINT -9010 open z5$ recl 256 as 1 -9015 FOR I=1 TO Z2-1 - read #1,i;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -9035 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -9110 print "RECORD NUMBER";i;TAB(31);"FINISHED GOODS ENTRY" -9115 FOR Z=1 TO 2 -9116 print K$(2,Z);TAB(30);:print using u$;n(2,z) -9118 NEXT Z -9120 FOR Z=3 TO 9 -9122 print K$(2,Z);TAB(30);K$(3,Z) -9124 NEXT Z -9126 Z=10:print K$(2,Z);TAB(30);:print using u$;n(2,z) -9128 FOR Z=11 TO 12 -9130 print K$(2,Z);TAB(30);:print using l$;n(2,z) -9132 NEXT Z -9134 FOR Z=13 TO 19 -9136 print K$(2,Z);TAB(30);:print using u$;n(2,z) -9138 NEXT Z -9145 print chr$(12) -9150 NEXT I - print chr$(12):for z=1 to 100:next z:print chr$(12) -9155 console - close 1 -9900 RETURN -10000 CHAIN "master4" -11000 PRINT clear$:PRINT -11110 PRINT "RECORD NUMBER";Z1;TAB(31);"FINISHED GOODS ENTRY" -11115 FOR Z=1 TO 2 -11116 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -11118 NEXT Z -11120 FOR Z=3 TO 9 -11122 PRINT K$(2,Z);TAB(30);K$(3,Z) -11124 NEXT Z -11126 Z=10:PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -11128 FOR Z=11 TO 12 -11130 PRINT K$(2,Z);TAB(30);:print using l$;n(2,z) -11132 NEXT Z -11134 FOR Z=13 TO 19 -11136 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -11138 NEXT Z -11140 RETURN -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 256 as 1 - z3=(size(z5$)*block.size)/256 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/FGRPT.BAS b/bwbtest/C77B/FGRPT.BAS deleted file mode 100644 index b046a90..0000000 --- a/bwbtest/C77B/FGRPT.BAS +++ /dev/null @@ -1,120 +0,0 @@ -1 rem This is the Finished Goods Inventory Report Printer - -%INCLUDE ALL.BAS -500 RESTORE -1005 DIM N(2,20) - dim k$(3,20) - z5$="fg" - fmt1$="$$#,###,###.##" - fmt2$="#,###,###" - for z=1 to 130:repeat1$=repeat1$+"-":repeat2$=repeat2$+"=" - repeat3$=repeat3$+"*":next z -1020 DIM H(9),S(9),T(4,9) -1025 PRINT clear$:PRINT -1050 Q$="F I N I S H E D G O O D S (I N V E N T O R Y) R E P O R T" -1065 L$="###,###.##" -1070 U$="#,###.#" - for z=3 to 9:read n(1,z):next z - data 7,12,24,24,8,8,10 -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE - JRF%=T%(1) -1235 T%(1)=130 -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT FINISHED GOODS REPORT -6005 PRINT clear$:PRINT:PRINT "PRINTING FINISHED GOODS REPORT":P0=1 -6010 lprinter - open "fg" recl 256 as 1 - IF END#1 THEN 6060 - N(2,2)=10 -6020 GOSUB 9600 -6030 GOSUB 9100 -6040 IF P9>56 THEN GOSUB 9300 -6050 IF N(2,2)<>0 THEN 6030 -6060 GOSUB 9800 -6070 GOTO 9900 -9100 N$="" -9105 A9=A9+1 - read #1,a9;n(2,1),n(2,2),n$,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9 -9115 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -9120 IF N(2,2)=0 THEN 9295 -9150 print A9;TAB(11);K$(3,9);TAB(26);F0 -9152 print N(2,1);TAB(7);N(2,2);TAB(18);K$(3,3);TAB(27); -9155 print K$(3,4);TAB(41);K$(3,5);TAB(67);K$(3,6);TAB(93);K$(3,7); -9160 print TAB(105);K$(3,8) -9165 print:P9=P9+3 - print using fmt1$;f1;tab(21);:print using fmt2$;f8;tab(41); - print using fmt2$;f3;tab(101);:print using fmt1$;f1*f3 - print using fmt1$;f2;tab(21);:print using fmt2$;f9;tab(41);f4; tab(61);f5;tab(71);f6;tab(81);f7;tab(101); - print using fmt1$;f2*f3 -9200 print repeat1$ -9205 print:P9=P9+3 -9210 T1=T1+(F1*F3):T2=T2+(F2*F3) -9295 RETURN -9300 P9=0 - IF N(2,2)=0 THEN 9350 -9305 print -9310 print repeat2$ -9320 print "report continues on next page" -9330 print repeat2$ -9340 print chr$(12) - GOSUB 9600 -9350 RETURN -9600 REM PRINT PAGE HEADING SUBROUTINE -9605 IF N(2,2)=0 THEN 9795 -9610 print repeat3$:p9=p9+1 -9615 print:P9=P9+1 -9616 print TAB((T%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((T%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(T%(10));"FOR PERIOD ENDING ";D$(2);TAB(T%(11));"PAGE #";P0 -9642 P9=P9+1 -9645 print repeat2$:p9=p9+1 -9650 print "RECORD #";TAB(11);"VEND CODE";TAB(26);"VEND TAG #" -9652 print "TAG";TAB(7);"ACCT #";TAB(18); -9655 print "ITEM #";TAB(27);"PART #";TAB(41);"DESCRIPTION";TAB(67); -9660 print "LOCATION";TAB(93);"LAST ISSUE";TAB(105);"LAST RECEIPT" -9670 print:P9=P9+3 -9680 print "UNIT COST";TAB(21);"MIN QUAN";TAB(41);"QUAN ON HAND"; -9685 print TAB(61);"QUANTITY ISSUED";TAB(101);"TOTAL COST":P9=P9+1 -9695 print "SELLING PRICE";TAB(21);"MAX QUAN";TAB(41);"QUAN ON ORDER"; -9700 print TAB(61);"MTD";TAB(71);"QTD";TAB(81);"YTD";TAB(101);"REVENUE AT LIST" -9710 print repeat2$:p9=p9+2 - P0=P0+1 -9795 RETURN -9800 print repeat2$ -9810 print "Total Value";tab(21);:print using fmt1$;t1;tab(41); -9820 print "Total Revenue at List";tab(71);:print using fmt1$;t2;tab(91); -9830 print "Gross Profit Potential";:print using fmt1$;t2-t1 - print repeat2$ - print "end of report" - print repeat2$ -9895 RETURN -9900 PRINT CHR$(12) -9910 close 1 -9915 console -9920 T%(1)=JRF% - CHAIN "master4" diff --git a/bwbtest/C77B/FGSORT.BAS b/bwbtest/C77B/FGSORT.BAS deleted file mode 100644 index db08ca6..0000000 --- a/bwbtest/C77B/FGSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the Finished Goods Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="fg":z6$="fgback":z7$="fgsize":RL=256 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,10),N(2,11),N(2,12),N(2,13), N(2,14),N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,10),N(2,11),N(2,12),N(2,13), N(2,14),N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,10),N(2,11),N(2,12),N(2,13), N(2,14),N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,10),N(2,11),N(2,12),N(2,13), N(2,14),N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - NEXT Z - - for z=1 to 20:n(2,z)=0:next z:n$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,10),N(2,11),N(2,12),N(2,13), N(2,14),N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "fgentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "fgentry" diff --git a/bwbtest/C77B/FMTENTRY.BAS b/bwbtest/C77B/FMTENTRY.BAS deleted file mode 100644 index 36385fc..0000000 --- a/bwbtest/C77B/FMTENTRY.BAS +++ /dev/null @@ -1,137 +0,0 @@ -1 rem This is the Dollar and Percentage Format Entry Program - -%INCLUDE ALL.BAS -500 RESTORE - DIM T%(20),A(16),D$(8),N(2,20),DATE1$(8) - BIZMII.FLAG=0 -505 z5$="glf" -506 z6$="glfback" -515 repeat$="-------------------------------" -516 fill$=" " -520 dim z$(5,5),n(2,20),k$(6,20) -540 K$(6,1)="1 - ENTER $ 0R % FORMATS":K$(6,2)="2 - EXAMINE $ 0R % FORMATS" -550 K$(6,3)="3 - MODIFY $ OR % FORMATS" -570 K$(6,4)="4 - CREATE NEW FILE":K$(6,5)="5 - CLEAR EXISTING FILE" -590 K$(6,6)="6 - FINISHED" -1000 rem THIS IS THE $ OR % FORMAT ENTRY PROGRAM -1005 PRINT clear$ -1010 PRINT -1075 K$(1,1)="DOLLAR FORMAT":K$(1,2)="PERCENT FORMAT" -1110 K$(2,1)="1 - DOLLAR FORMAT":K$(2,2)="2 - PERCENT FORMAT" -1145 K$(2,3)="3 - NONE" -1150 N(1,1)=20:N(1,2)=10 - if end #1 then 6000 -1500 open z5$ as 1 - close 1 -1580 Z1=1:Z2=1 -1600 PRINT clear$ -1605 PRINT -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 6:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>6 then 1600 -1685 ON Z GOSUB 2000,3000,4000,6000,7000,10000 -1705 GOTO 1600 -2000 PRINT clear$:PRINT -2002 PRINT "FORMATTING NUMBERS IS RELATIVELY SIMPLE. FOR EACH" -2004 PRINT "DIGIT POSITION DESIRED, INSERT A #." -2012 PRINT "IF A DOLLAR SIGN IS REQUIRED, PLACE IT FIRST" -2014 PRINT "IN THE STRING. POSITIONS AFTER THE DECIMAL POINT ARE" -2016 PRINT "INDICATED BY '.##' FOR AS MANY DECIMAL POSITIONS AS" -2018 PRINT "DESIRED." -2041 PRINT -2044 FOR Z=1 TO 2 -: PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) -: PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 input line K$(3,Z):PRINT chr$(13) -: PRINT CLEAR$ -2085 NEXT Z -2090 L$=K$(3,1):P$=K$(3,2) -2105 PRINT clear$:PRINT -2115 FOR Z=1 TO 3 -2120 PRINT K$(2,Z);TAB(30);K$(3,Z) -2125 NEXT Z -2145 PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>2 THEN 2216 -2170 IF Z<1 THEN 2105 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 input line K$(3,Z) -2216 L$="":P$="" -2220 L$=K$(3,1):P$=K$(3,2) -2225 input "ANY MORE CHANGES";line temp$ -2230 if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2280 -2235 PRINT -2240 input "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT - if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2280 - if left$(temp$,1)<>"n" and left$(temp$,1)<>"N" then 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ as 1 - print #1;l$,p$ - close 1 -2300 RETURN -3000 PRINT clear$:PRINT - open z5$ as 1 - read #1;l$,p$ - close 1 -3030 PRINT -3032 K$(3,1)=L$:K$(3,2)=P$ -3035 FOR Z=1 TO 2 -3040 PRINT K$(1,Z);TAB(30);K$(3,Z) -3065 NEXT Z -3070 PRINT -3080 input "IF FINISHED, TYPE RETURN.";line temp$ -3095 RETURN -4000 PRINT clear$:PRINT -4005 L$="":P$="" -4010 open z5$ as 1 - read #1;l$,p$ - close 1 -4045 K$(3,1)=L$:K$(3,2)=P$ -4070 GOTO 2105 -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A FORMAT FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE letter c FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE letter n" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 input line temp$ - if left$(temp$,1)="c" or left$(temp$,1)="C" then initialize:GOTO 1500 -6045 PRINT clear$:PRINT - l$="":p$="":for z=1 to 20:l$=l$+" ":p$=p$+" ":next z -6055 create z5$ as 1 - print #1;l$,p$ - close 1 -6095 PRINT clear$:PRINT -6100 PRINT "FORMAT FILE CREATED AND CLEARED.":PRINT -6110 input "TO CONTINUE, TYPE RETURN.";line temp$ -6115 GOTO 1600 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ - if left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" then return - l$="":p$="":for z=1 to 20:l$=l$+" ":p$=p$+" ":next z -7015 open z5$ as 1 - print #1;l$,p$ - close 1 -7035 PRINT clear$:PRINT -7040 PRINT "FORMAT FILE CLEARED!":PRINT -7045 input "TO CONTINUE, TYPE RETURN.";line temp$ -7060 RETURN -10000 print clear$:print:print "Replace disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" diff --git a/bwbtest/C77B/FORMAT.BAS b/bwbtest/C77B/FORMAT.BAS deleted file mode 100644 index d9c05ec..0000000 --- a/bwbtest/C77B/FORMAT.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 rem This is FORMAT.BAS used to set common and formats. - - console - - DIM BLOCK.SIZE,PAGELEN,Z2,RX,T%(20),A(16),CLEAR$,CO.NAME$,D$(8),LLL$,PPP$,DATE1$(8),BIZMII.FLAG - COMMON BLOCK.SIZE,PAGELEN,Z2,RX,T%(1) ,A(1) ,CLEAR$,CO.NAME$,D$(1),LLL$,PPP$,DATE1$(1),BIZMII.FLAG - - N$=CO.NAME$ - L$=LLL$:P$=PPP$ - diff --git a/bwbtest/C77B/GCINCOME.BAS b/bwbtest/C77B/GCINCOME.BAS deleted file mode 100644 index 5067aba..0000000 --- a/bwbtest/C77B/GCINCOME.BAS +++ /dev/null @@ -1,320 +0,0 @@ -1 rem This is the Comparative Income Statement Printer - -%INCLUDE ALL.BAS -500 dim TC%(11),n(2,12),k$(2,10),h(9),s(9),t(4,9) - RESTORE - P0=1 - HEAD2$="MONTH TO DATE" - HEAD3$="QUARTER T/DATE" - HEAD4$="YEAR TO DATE" -1009 PRINT clear$:PRINT -: HEAD=0 -1010 PRINT "IS THIS INCOME STATEMENT TO BE FOR THE :" -: PRINT -: PRINT "MONTH TO DATE" -: PRINT:PRINT "QUARTER TO DATE" -: PRINT:PRINT "YEAR TO DATE" -: PRINT -: INPUT " (M, Q, OR Y) ";LINE LA$ - IF UCASE$(LA$)="M" THEN X=4:GOTO 1020 - IF UCASE$(LA$)="Q" THEN X=5:GOTO 1020 - IF UCASE$(LA$)="Y" THEN X=6:GOTO 1020 - GOTO 1009 -1020 REM NOW FOR THE COMPARATIVE SIDE - IF X=4 THEN HEAD$=HEAD2$ - IF X=5 THEN HEAD$=HEAD3$ - IF X=6 THEN HEAD$=HEAD4$ - PRINT CLEAR$ -: PRINT "WHAT KIND OF COMPARATIVE STATEMENT WILL THIS BE :" -: PRINT:PRINT "MONTH TO DATE" -: PRINT:PRINT "QUARTER TO DATE" -: PRINT:PRINT "YEAR TO DATE" -: PRINT:PRINT "PREVIOUS MONTH TO DATE" -: PRINT:PRINT "PREVIOUS QUARTER TO DATE" -: PRINT:PRINT "PREVIOUS YEAR TO DATE" -: PRINT -1040 INPUT " (M, Q, Y, PM, PQ, OR PY) ";LINE LA1$ - IF UCASE$(LA1$)="M" THEN LA=4:GOTO 1050 - IF UCASE$(LA1$)="Q" THEN LA=5:GOTO 1050 - IF UCASE$(LA1$)="Y" THEN LA=6:GOTO 1050 - IF UCASE$(LA1$)="PM" THEN LA=7:GOTO 1050 - IF UCASE$(LA1$)="PQ" THEN LA=8:GOTO 1050 - IF UCASE$(LA1$)="PY" THEN LA=9:GOTO 1050 - GOTO 1020 -1050 HEAD=0 - IF LEFT$(LA1$,1)="P" OR LEFT$(LA1$,1)="p" THEN HEAD=1 - IF LA=4 OR LA=7 THEN HEAD1$=HEAD2$:GOTO 1065 - IF LA=5 OR LA=8 THEN HEAD1$=HEAD3$:GOTO 1065 - IF LA=6 OR LA=9 THEN HEAD1$=HEAD4$ -1065 REM -1075 Q$="COMPARATIVE INCOME STATEMENT" -1200 REM READ TAB VALUES ROUTINE - for z=1 to 11:read TC%(z):next z - data 72,2,10,22,2,4,36,6,36,2,57 -1300 REM READ FORMAT STRINGS FOR % AND $ VALUES - l$="##,###,###":p$="###.#" -3000 REM READ NAME FILE SUBROUTINE -3005 a5=t%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -4000 REM GET TOTAL SALES AND COST OF GOODS SOLD AS P1/P3 AND P2/P4 -4001 REM GET TOTAL OPERATING EXPENSES AS P7/P8 -4002 P1=0:P2=0:P3=0:P4=0:P5=0:P6=0:P7=0:P8=0 -4005 open "glh" recl 150 as 1 -4010 FOR Z=1 TO 30 -4015 read #1,z;n(2,1),n(2,2),h$,h(0),h(1),h(2),h(3),h(4),h(5),h(6),h(7) -4020 IF LEFT$(H$,2)="HS" THEN 4030 -4025 NEXT Z -4030 close 1 -4035 open "gl" recl 138 as 1 -4040 A(9)=A(9)+1 -4045 read #1,a(9);N(2,1),N(2,2),K$,N(2,4), N(2,5),N(2,6),N(2,7),N(2,8),N(2,9),N(2,10) -4070 IF N(2,2)=0 THEN 4100 -4075 IF N(2,2)>=H(0) AND N(2,2)<=H(1) THEN P1=P1+N(2,X):P3=P3+N(2,LA) -4080 IF N(2,2)>=A(15) AND N(2,2)<=A(16) THEN P2=P2+N(2,X):P4=P4+N(2,LA) -4085 IF N(2,2)>A(16) THEN P7=P7+N(2,X):P8=P8+N(2,LA) -4090 GOTO 4040 -4100 IF P1<>0 THEN P1=P1*(-1) -4105 IF P1=0 THEN P1=999999999999 -4110 IF P2=0 THEN P2=999999999999 -4115 IF P3<>0 THEN P3=P3*(-1) -4120 IF P3=0 THEN P3=999999999999 -4130 IF P4=0 THEN P4=999999999999 -4140 IF P5=0 THEN P5=999999999999 -4150 IF P6=0 THEN P6=999999999999 -4160 IF P7=0 THEN P7=999999999999 -4170 IF P8=0 THEN P8=999999999999 -4990 A(9)=1 -4995 close 1 -6000 REM PRINT INCOME STATEMENT -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING INCOME STATEMENT" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0 -6100 lprinter:P9=0 - open "gl" recl 138 as 1 - open "glh" recl 150 as 2 - open "gls" recl 150 as 3 -6200 GOSUB 9600 -6250 GOSUB 10000 -6255 IF N(2,2)=0 THEN 6400 -6300 GOSUB 11000 -6350 GOSUB 15000 -6355 IF LEFT$(S$,2)<>"SS" AND LEFT$(S$,2)<>"SX" THEN 6980 -6400 REM DO PARTIAL TOTALS OR TOTALS AND TEST - - -6403 IF N(2,2)=0 THEN GOSUB 14500 -6404 IF N(2,2)=0 THEN FOR Z=1 TO 51-P9:print:NEXT Z:GOSUB 9800 -6405 IF N(2,2)=0 THEN 20000 -6410 GOSUB 13000 - IF S(1)=H(1) THEN GOSUB 12000 -6415 IF S(1)=A(16) THEN GOSUB 14000 -6980 IF P9>56 THEN GOSUB 9700 - IF S(1)< H(1) THEN 6300 -6995 GOTO 6250 -9600 REM PRINT PAGE HEADING SUBROUTINE -9610 print:P9=P9+1 - REM 9615 print:P9=P9+1 -9616 print TAB((TC%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((TC%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(TC%(10));"FOR PERIOD ENDING ";D$(X);TAB(TC%(11));"PAGE #";P0 -: P9=P9+1 -: PRINT - IF HEAD=1 THEN PRINT TAB(62);"PREVIOUS" - IF HEAD=0 THEN PRINT -9650 PRINT - PRINT TAB(40);HEAD$;TAB(60);HEAD1$:P9=P9+1 - print tab(40);"-------------";tab(60);"-------------" - print tab(40);"Amount";tab(50);"Pct";tab(60);"Amount";tab(70);"Pct" - p9=p9+2 - print:P9=P9+1 -9670 RETURN -9700 REM REPORT CONTINUED SUBROUTINE - print - print "report continues on next page" - print -9720 print chr$(12):P9=0 -9725 P0=P0+1 - GOSUB 9600 -9740 RETURN -9800 REM END OF REPORT ROUTINE - print - print "end of report" - print -9840 print chr$(12) -9845 REM -9850 RETURN -10000 REM GET HEADING LINE AND PRINT -10005 H(9)=H(9)+1 - read #2,h(9);n(2,1),n(2,2),h$,h(0),h(1),h(2),h(3),h(4),h(5),h(6),h(7) -10015 IF LEFT$(H$,2)<>"HS" AND LEFT$(H$,2)<>"HX" THEN 10995 -10020 print:print:print TAB(TC%(4));RIGHT$(H$,30):P9=P9+1 -10995 RETURN -11000 REM GET SUBHEADING LINE AND PRINT -11005 S(9)=S(9)+1 - read #3,s(9);n(2,1),n(2,2),s$,s(0),s(1),s(2),s(3),s(4),s(5),s(6),s(7) -11012 IF LEFT$(S$,2)<>"SS" AND LEFT$(S$,2)<>"SX" THEN 11995 -11015 print TAB(TC%(5));RIGHT$(S$,30):P9=P9+1 -11995 RETURN -12000 REM PRINT FINAL TOTAL LINE -12005 IF LEFT$(H$,2)<>"HS" AND LEFT$(H$,2)<>"HX" THEN 12995 -12010 print:P9=P9+1 -12015 GOSUB 32000 -12020 print TAB(TC%(8));"TOTAL "+MID$(H$,3,20);TAB(TC%(9));:print using l$;t2; -12025 print TAB(TC%(9)+12);:print using p$;p5; -12035 print TAB(TC%(9)+20);:print using l$;t4; -12040 print TAB(TC%(9)+32);:print using p$;p6:P9=P9+1 - print tab(TC%(9));"----------";tab(TC%(9)+12);"-----"; - print tab(TC%(9)+20);"----------";tab(TC%(9)+32);"-----":p9=p9+1 -12990 T1=0:T2=0:T3=0:T4=0 -12995 RETURN -13000 REM PRINT SUBTOTAL LINE -13005 GOSUB 31000 -13010 print TAB(TC%(6));"TOTAL "+MID$(S$,3,20);TAB(TC%(7));:print using l$;t1; -13015 print TAB(TC%(7)+12);:print using p$;p5; -13025 print TAB(TC%(7)+20);:print using l$;t3; -13030 print TAB(TC%(7)+32);:print using p$;p6:T3=0:T1=0:P9=P9+1 -13995 RETURN -14000 REM PRINT GROSS PROFIT (LOSS) LINE -14005 print:P9=P9+1 -14010 GOSUB 33000 -14015 IF P1-(P2)<0 THEN 14035 -14020 print TAB(TC%(8));"GROSS PROFIT (LOSS)";TAB(TC%(9)); - print using l$;p1-(p2); -14025 print TAB(TC%(9)+12);:print using p$;p5; -14030 GOTO 14050 -14035 print TAB(TC%(8));"GROSS PROFIT (LOSS)";TAB(TC%(9)-1);"("; - print using l$;p1-(p2);:PRINT ")"; -14040 print TAB(TC%(9)+11);"(";:print using p$;p5;:PRINT ")"; -14050 IF P3-(P4)<0 THEN 14135 -14120 print TAB(TC%(9)+20);:print using l$;p3-(p4); -14125 print TAB(TC%(9)+32);:print using p$;p6:P9=P9+1 -14130 GOTO 14490 -14135 print TAB(TC%(9)+19);"(";:print using l$;p3-(p4);:PRINT ")"; -14140 print TAB(TC%(9)+31);"(";:print using p$;p6;:PRINT ")":P9=P9+1 -14490 print tab(TC%(9));"==========";tab(TC%(9)+12);"====="; - print tab(TC%(9)+20);"==========";tab(TC%(9)+32);"=====":p9=p9+1 -14495 RETURN -14500 REM PRINT NET PROFIT (LOSS) LINE -14505 print:P9=P9+1 -14510 GOSUB 34000 -14515 IF P1-(P2+P7)<0 THEN 14535 -14520 print TAB(TC%(8));"NET PROFIT (LOSS)";TAB(TC%(9)); - print using l$;p1-(p2+p7); -14525 print TAB(TC%(9)+12);:print using p$;p5; -14530 GOTO 14550 -14535 print TAB(TC%(8));"NET PROFIT (LOSS)";TAB(TC%(9)-1); -14540 print "(";:print using l$;p1-(p2+p7); - print ")";TAB(TC%(9)+12);:print using p$;p5; -14550 IF P3-(P4+P8)<0 THEN 14635 -14620 print TAB(TC%(9)+20);:print using l$;p3-(p4+p8); -14625 print TAB(TC%(9)+32);:print using p$;p6:P9=P9+1 -14630 GOTO 14995 -14635 print TAB(TC%(9)+19);"("; - print using l$;p3-(p4+p8);:PRINT ")"; -14640 print TAB(TC%(9)+31);"(";:print using p$;p6;:PRINT ")":P9=P9+1 -14995 print tab(TC%(9));"**********";tab(TC%(9)+12);"*****"; - print tab(TC%(9)+20);"**********";tab(TC%(9)+32);"*****":p9=p9+1 - return -15000 REM GET ACCOUNTS IN SUBHEAD RANGE AND PRINT -15005 A(9)=A(9)+1 -15006 IF P9>51 THEN GOSUB 9700 - read #1,a(9);n(2,1),n(2,2),k$(1,3),n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) -15105 IF N(2,2)=0 THEN 15995 - if n(2,x)=0 then 15990 -15110 IF LEFT$(S$,2)<>"SS" AND LEFT$(S$,2)<>"SX" THEN 15990 -15112 IF LEFT$(S$,2)="SS" THEN GOSUB 16000 -15115 GOSUB 30000 -15200 print TAB(TC%(5)+2);K$(1,3);TAB(TC%(5)+34);:print using l$;n(2,x); -15202 print TAB(TC%(5)+46);:print using p$;p5; -15215 print TAB(TC%(5)+54);:print using l$;n(2,(LA)); -15220 print TAB(TC%(5)+66);:print using p$;p6:P9=P9+1 -15230 T1=T1+N(2,X):T2=T2+N(2,X):T3=T3+N(2,(LA)):T4=T4+N(2,(LA)) -15990 IF N(2,2)< S(1) THEN 15005 -15995 RETURN -16000 FOR Z=4 TO 10:N(2,Z)=N(2,Z)*(-1):NEXT Z -16995 RETURN -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO MASTER1 -20010 CLOSE 1 -20015 CLOSE 2 -20040 CLOSE 3 -20041 CONSOLE -20050 CHAIN "master1" -30000 REM THESE ROUTINES CALCULATE PERCENTAGES AND ROUND TO ONE -30001 REM DECIMAL PLACE FOR INDIVIDUAL ACCOUNTS -30005 P5=0:P6=0 -30010 P5=((N(2,X)/P1)*1000):P6=((N(2,LA)/P3)*1000) -30015 Z=P5-INT(P5) -30020 IF Z<.5 THEN P5=P5/10 -30025 IF Z>=.5 THEN P5=(P5+1)/10 -30115 Z=P6-INT(P6) -30120 IF Z<.5 THEN P6=P6/10 -30125 IF Z>=.5 THEN P6=(P6+1)/10 -30995 RETURN -31000 REM THESE ROUTINES CALCULATE PERCENTAGES AND ROUND TO ONE -31001 REM DECIMAL PLACE FOR SUBTOTALS -31005 P5=0:P6=0 -31010 P5=((T1/P1)*1000):P6=((T3/P3)*1000) -31015 Z=P5-INT(P5) -31020 IF Z<.5 THEN P5=P5/10 -31025 IF Z>=.5 THEN P5=(P5+1)/10 -31115 Z=P6-INT(P6) -31120 IF Z<.5 THEN P6=P6/10 -31125 IF Z>=.5 THEN P6=(P6+1)/10 -31995 RETURN -32000 REM THESE ROUTINES CALCULATE PERCENTAGES AND ROUND TO ONE -32001 REM DECIMAL PLACE FOR FINAL TOTALS -32005 P5=0:P6=0 -32010 P5=((T2/P1)*1000):P6=((T4/P3)*1000) -32015 Z=P5-INT(P5) -32020 IF Z<.5 THEN P5=P5/10 -32025 IF Z>=.5 THEN P5=(P5+1)/10 -32115 Z=P6-INT(P6) -32120 IF Z<.5 THEN P6=P6/10 -32125 IF Z>=.5 THEN P6=(P6+1)/10 -32995 RETURN -33000 REM THESE ROUTINES CALCULATE PERCENTAGES AND ROUND TO ONE -33001 REM DECIMAL PLACE FOR GROSS PROFIT -33005 P5=0:P6=0 -33010 P5=(((P1-P2)/P1)*1000):P6=(((P3-P4)/P3)*1000) -33015 Z=P5-INT(P5) -33020 IF Z<.5 THEN P5=P5/10 -33025 IF Z>=.5 THEN P5=(P5+1)/10 -33115 Z=P6-INT(P6) -33120 IF Z<.5 THEN P6=P6/10 -33125 IF Z>=.5 THEN P6=(P6+1)/10 -33995 RETURN -34000 REM THESE ROUTINES CALCULATE PERCENTAGES AND ROUND TO ONE -34001 REM DECIMAL PLACE FOR NET PROFIT -34005 P5=0:P6=0 -34010 P5=(((P1-P2-P7)/P1)*1000):P6=(((P3-P4-P8)/P3)*1000) -34015 Z=P5-INT(P5) -34020 IF Z<.5 THEN P5=P5/10 -34025 IF Z>=.5 THEN P5=(P5+1)/10 -34115 Z=P6-INT(P6) -34120 IF Z<.5 THEN P6=P6/10 -34125 IF Z>=.5 THEN P6=(P6+1)/10 -34995 RETURN diff --git a/bwbtest/C77B/GDCHECKS.BAS b/bwbtest/C77B/GDCHECKS.BAS deleted file mode 100644 index 6ce194c..0000000 --- a/bwbtest/C77B/GDCHECKS.BAS +++ /dev/null @@ -1,138 +0,0 @@ -1 rem This is the General Check Printer - - -%INCLUDE ALL.BAS -500 fmt2$=" /...5../ /...5....0....5....0.../" -fmt3$=" " -fmt4$=fmt3$+" /...5....0....5....0./" -fmt6$=fmt3$+" ########## ###,###.##-" -fmt15$=" ##########"+fmt3$ -fmt15$=fmt15$+" $$###,###.##" -fmt30$=" /...5....0....5....0.../ /...5../" -fmt30$=fmt30$+" ########## $$######.##" - - - dim TC%(28),n(2,20),k$(3,20),h(9),s(9),t(4,9) - print clear$:print - uline$="":for h%=1 to 22:uline$=uline$+"-":next h% - z5$="glcd":z7$="glcdsize" - - RESTORE -1075 N(1,3)=8:N(1,4)=24:N(1,5)=24:N(1,6)=1 - - N$="" - -8000 PRINT clear$:PRINT -8050 PRINT "THIS IS THE GENERAL CHECK PRINTING PROGRAM." -8060 PRINT:PRINT:PRINT:PRINT - print"Before you begin--set the FORM LENGTH SELECTION" - print"DIAL on the printer to the 7 inch form length" - print"position ***" - print - print"Now set the checks to the top-of-form position" - print"for your printer/check combination." - print - print"Be sure that you have posted the CHECK DISBURSEMENTS" - print"FILE--the checks will NOT be printed if this has not" - print"been done first ***" - print - input "Type to continue";line temp$ -8080 PRINT clear$:print -8100 print "Would you like a ***VOID*** check printed to" - print "establish print positions ? (Y/N)" - - input line temp$ - - if ucase$(left$(temp$,1))="Y" then 10000 - if ucase$(left$(temp$,1))<>"N" then 8000 - - - open z7$ as 1 - read #1;z2,z3 - close 1 - -8240 Z2=z2-1 -8270 PRINT clear$:PRINT -8300 PRINT -8310 INPUT "TO PRINT CHECKS, DO CARRIAGE RETURN. ";line temp$ - - open z5$ recl 250 as 1 - -8325 lprinter -8330 FOR Z5=1 TO Z2 -8340 read #1,z5;N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9), N(2,10),N(2,11),N(2,12),N(2,13),N(2,14),N(2,15),N(2,16), N(2,17),N(2,18),N(2,19),FLAG$ - -8395 Z9=1:FOR Z=3 TO 6:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z - - if FLAG$<>"P" then 12000 rem file not posted - if K$(3,6)="N" then 8720 rem skip checks - if N(2,7)=0 then 8720 rem skip checks with zero amount - -8400 REM *** AND PRINT THE CHECK *** -8410 PRINT - print using fmt2$;k$(3,3),k$(3,5) - print - print using fmt4$;"Account Control Number" - print using fmt4$;uline$ -8450 for i%=8 to 18 step 2 - if N(2,i%)=0 then print:goto 8470 - print using fmt6$;N(2,i%),N(2,i%+1) -8470 next i% - print:print:print - print using fmt15$;N(2,2),ABS(N(2,7)) -8480 for j%=1 to 14:print:next j% - print using fmt30$;k$(3,4),d$(1),N(2,2),ABS(N(2,7)) - print chr$(12) - - - K$(3,6)="N" - N$="" - FOR Z=3 TO 6:N$=N$+K$(3,Z):NEXT Z - -8600 print #1,z5;N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9), N(2,10),N(2,11),N(2,12),N(2,13),N(2,14),N(2,15),N(2,16), N(2,17),N(2,18),N(2,19),FLAG$ - -8720 NEXT Z5 -8730 close 1 -8740 console -8745 print clear$:print - print "All checks have been printed" - print:print - print "It is a good idea to review the check" - print "numbers in the CHECK DISBURSEMENTS FILE," - print "especially if you have printed any ***VOID***" - print "checks that you did not anticipate" - print - input "Type to continue";line temp$ -8747 print clear$:print - print "*** Return the printer FORM LENGTH CONTROL " - print "to its normal setting (11 inches) ***" - print - input "Type to continue ";line temp$ -8750 CHAIN "MASTER11" - - -10000 REM *** AND PRINT A ***VOID*** CHECK *** - - lprinter - - k$(3,5)="*** VOID ***" -10010 print - print using fmt2$;D$(1),k$(3,5) - -10020 for i%=1 to 12:print:next i% - - print using fmt15$;N(2,2),N(2,7) -10030 for j%=1 to 14:print:next j% - print using fmt30$;k$(3,5),d$(1),N(2,2),N(2,7) - print chr$(12) - - console - goto 8100 - -12000 print clear$:print - print "The CHECK DISBURSEMENTS have not been posted!!" - print "You must do so before the checks can be printed!!" - print - input "Type to continue ";line temp$ -12040 console -12050 goto 8747 diff --git a/bwbtest/C77B/GLBALSHT.BAS b/bwbtest/C77B/GLBALSHT.BAS deleted file mode 100644 index ee4db21..0000000 --- a/bwbtest/C77B/GLBALSHT.BAS +++ /dev/null @@ -1,142 +0,0 @@ -1 rem This is the General Ledger Balance Sheet Printer - -%INCLUDE ALL.BAS -500 dim n(2,12),k$(2,10),h(9),s(9),t(4,9) - RESTORE -1009 PRINT clear$:PRINT -: A(9)=0 -1010 PRINT "IS THIS BALANCE SHEET TO BE FOR THE MONTH TO DATE," -1011 PRINT "QUARTER TO DATE, OR YEAR TO DATE (M, Q, OR Y)?" -1015 INPUT Z$ -1017 IF ucase$(Z$)="M" THEN X=4:GOTO 1025 -1020 IF ucase$(Z$)="Q" THEN X=5:GOTO 1025 -1021 IF ucase$(Z$)="Y" THEN X=6:GOTO 1025 -1023 GOTO 1010 -1025 PRINT:PRINT"DO YOU WANT AN ORDINARY OR A COMPARATIVE" -1028 PRINT"BALANCE SHEET (O OR C) ?" -1030 INPUT U$ -1050 PRINT clear$:PRINT -1075 IF ucase$(U$)="C" THEN Q$="COMPARATIVE BALANCE SHEET" -1076 IF ucase$(U$)="C" THEN GOTO 1100 -1080 Q$="B A L A N C E S H E E T" -1100 REM -3000 rem READ NAME FILE SUBROUTINE -3005 a5=t%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 rem ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 rem PRINT BALANCE SHEET -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING BALANCE SHEET" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0 - lprinter - open "gl" recl 138 as 1 - open "glh" recl 150 as 2 - open "gls" recl 150 as 3 -6200 GOSUB 9600 -6250 GOSUB 10000 -6255 IF N(2,2)=0 THEN 6403 -6300 GOSUB 11000 -6350 GOSUB 15000 -6400 rem DO PARTIAL TOTALS OR TOTALS AND TEST -6403 IF N(2,2)=0 THEN FOR Z=1 TO 51-P9:print:NEXT Z:GOSUB 9800 -6405 IF N(2,2)=0 THEN 20000 -6410 print:print TAB(t%(6));"TOTAL "+MID$(S$,3,20);TAB(t%(7)); - print using l$;abs(t1):T1=0:P9=P9+1 - print tab(t%(7));"-------------":p9=p9+1 -6415 IF ucase$(U$)<>"C" THEN 6980 -6420 print TAB(t%(6));"PREVIOUS";TAB(t%(7)); - print using l$;abs(t3):T3=0:P9=P9+1 - print tab(t%(7));"-------------":p9=p9+1 -6980 IF P9>51 THEN GOSUB 9700 -6985 IF S(1)< H(1) THEN 6300 -6990 IF S(1)=H(1) THEN GOSUB 12000 -6995 GOTO 6250 -9600 rem PRINT PAGE HEADING SUBROUTINE -9605 P0=1 - GOSUB 9610 - RETURN -9610 print:P9=P9+1 -9615 print:P9=P9+1 -9616 print TAB((t%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((t%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(t%(10));"AS OF ";D$(X);TAB(t%(11));"PAGE #";P0:P9=P9+1 -9645 print:P9=P9+1 -9670 RETURN -9700 rem REPORT CONTINUED SUBROUTINE - print:print -9710 print "report continues on next page" -9720 print chr$(12):P9=0 -9725 P0=P0+1 - GOSUB 9610 -9740 RETURN -9800 rem end of report ROUTINE -9820 print "end of report" -9840 print chr$(12) -9850 RETURN -10000 rem GET HEADING LINE AND PRINT -10005 H(9)=H(9)+1 -10006 if p9>51 then gosub 9700 - read #2,h(9);n(2,1),n(2,2),h$,h(0),h(1),h(2),h(3), h(4),h(5),h(6),h(7) -10015 IF LEFT$(H$,2)="HS" OR LEFT$(H$,2)="HX" THEN N(2,2)=0:GOTO 10995 -10020 print TAB(t%(4));mid$(h$,3,28):print:P9=P9+2 -10995 RETURN -11000 rem GET SUBHEADING LINE AND PRINT -11005 S(9)=S(9)+1 -11006 if p9>51 then gosub 9700 - read #3,s(9);n(2,1),n(2,2),s$,s(0),s(1),s(2),s(3), s(4),s(5),s(6),s(7) -11015 print:print TAB(t%(5));mid$(s$,3,28):print:P9=P9+3 -11995 RETURN -12000 rem PRINT FINAL TOTAL LINE -12010 print:P9=P9+1 -12020 print TAB(t%(8));"TOTAL "+MID$(H$,3,20);TAB(t%(9)); - print using l$;abs(t2):P9=P9+1 - print tab(t%(9));"=============":p9=p9+1 -12025 IF ucase$(U$)<>"C" THEN 12990 -12030 print TAB(t%(8));"PREVIOUS";TAB(t%(9)); - print using l$;abs(t4):P9=P9+1 - print tab(t%(9));"=============":p9=p9+1 -12990 print:print:p9=p9+2:T1=0:T2=0:T3=0:T4=0 -12995 RETURN -15000 rem GET ACCOUNTS IN SUBHEAD RANGE AND PRINT -15005 A(9)=A(9)+1 -15006 IF P9>51 THEN GOSUB 9700 - read #1,a(9);n(2,1),n(2,2),k$(1,3),n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) - if n(2,2)=0 then 15995 - if n(2,x)=0 AND n(2,(x+3))=0 then 15990 -15200 print TAB(t%(5)+2);K$(1,3);TAB(t%(5)+34); - print using l$;abs(n(2,x)):P9=P9+1 -15205 T1=T1+N(2,X):T2=T2+N(2,X):T3=T3+N(2,(X+3)):T4=T4+N(2,(X+3)) -15210 IF ucase$(U$)<>"C" THEN 15990 -15215 print TAB(t%(5)+2);"PREVIOUS";TAB(t%(5)+34); - print using l$;abs(n(2,(x+3))):P9=P9+1 -15990 IF N(2,2)< S(1) THEN 15005 -15995 RETURN -20000 rem ROUTINE TO CLOSE FILES AND RETURN TO MASTER1 - close 1 - close 2 - close 3 - console -20050 CHAIN "master1" diff --git a/bwbtest/C77B/GLBUDGET.BAS b/bwbtest/C77B/GLBUDGET.BAS deleted file mode 100644 index 7735453..0000000 --- a/bwbtest/C77B/GLBUDGET.BAS +++ /dev/null @@ -1,101 +0,0 @@ -1 rem This is the General Ledger Budget Analysis Printer - -%INCLUDE ALL.BAS -500 dim n(2,12),K$(2,10),h(9),s(9),t(4,9) - RESTORE -1010 L$="##,###,###":U$="###.##" -1050 PRINT clear$:PRINT -1075 Q$="E X P E N S E B U D G E T A N A L Y S I S" -3000 REM READ NAME FILE SUBROUTINE -3005 a5=t%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT EXPENSE BUDGET ANALYSIS -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING EXPENSE BUDGET ANALYSIS" -6012 LPRINTER -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0 -6105 open "gl" recl 138 as 1 - N(2,2)=10 -6200 GOSUB 9600 -6255 IF N(2,2)=0 THEN 6404 -6350 GOSUB 15000 -6404 IF N(2,2)=0 THEN FOR Z=1 TO 56-P9:print:NEXT Z:GOSUB 9800 -6405 IF N(2,2)=0 THEN 20000 -6980 IF P9>56 THEN GOSUB 9700 -6995 GOTO 6255 -9600 REM PRINT PAGE HEADING SUBROUTINE -9605 P0=P0+1 -9610 print :P9=P9+1 -9615 print:P9=P9+1 -9616 print TAB((t%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((t%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(t%(10));"FOR PERIOD ENDING ";D$(2);TAB(t%(11));"PAGE #";P0 -9642 P9=P9+1 -9645 print :P9=P9+1 -9650 print:print TAB(36);"ACTUAL";TAB(46);"BUDGETED";TAB(56); -9655 print "DIFFERENCE";TAB(69);"PERCENTAGE":print:P9=P9+3 -9670 RETURN -9700 REM REPORT CONTINUED SUBROUTINE -9705 print -9710 print "REPORT CONTINUED ON NEXT PAGE" -9715 print -9720 print CHR$(12):P9=0 -9725 GOSUB 9600 -9740 RETURN -9800 REM END OF REPORT ROUTINE -9810 print -9820 print "END OF REPORT" -9830 print -9840 print CHR$(12) -9845 FOR Z=1 TO 100:NEXT Z:print CHR$(12) -9850 RETURN -15000 REM GET ACCOUNTS IN SUBHEAD RANGE AND PRINT -15005 a(9)=a(9)+1 -15006 if p9>51 then gosub 9700 -15010 read #1,a(9);n(2,1),n(2,2),K$(1,3),n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) -15105 IF N(2,2)=0 THEN 15800 -15110 IF N(2,10)=0 THEN 15005 -15115 print K$(1,3);TAB(32);:print using L$;n(2,4);TAB(44); - print using L$;n(2,10); -15120 print TAB(56);:print using L$;n(2,4)-n(2,10);TAB(72); -15125 print using U$;(n(2,4)/n(2,10))*100; - print "%":P9=P9+1 -15130 T1=T1+N(2,4):T2=T2+N(2,10) -15135 GOTO 15005 -15800 print:print: -15801 IF T1=0 AND T2=0 THEN PRINT "NO BUDGET INFORMATION ON FILE" -15802 IF T1=0 AND T2=0 THEN 15995 -15805 print "TOTALS";TAB(32);:print using L$;T1;TAB(44); - :print using L$;T2;TAB(56); -15810 print using L$;T2-T1;TAB(72);:print using U$;((T1/T2)*100); - print "%" -15815 P9=P9+3 -15995 RETURN -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO MASTER1 -20005 close 1 -20010 CONSOLE -20050 chain "master1" diff --git a/bwbtest/C77B/GLCDPOST.BAS b/bwbtest/C77B/GLCDPOST.BAS deleted file mode 100644 index 71309ab..0000000 --- a/bwbtest/C77B/GLCDPOST.BAS +++ /dev/null @@ -1,209 +0,0 @@ -1 rem This is the Check Disbursement Posting Program - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(3,20) - first=8:last=18 - -fa$="DATE /...5../ /...5...10...15...20.../ " -fa$=fa$+" PAGE ####" -fb$=" *** CASH/CHECK DISBURSEMENTS ***" -fb1$=" --------------------------------" -fc$=" CHECK # DATE DESCRIPTION ACCOUNT #" -fc$=fc$+" AMOUNT NET" -fd$="######## /...5../ /...5...10...15...20.../ ##########" -fd$=fd$+" ###,###.##-" -fd1$=" /...5../ /...5...10...15...20.../ ##########" -fd1$=fd1$+" ###,###.##-" -fd2$="######## /...5../ /...5...10...15...20.../ " -fd2$=fd2$+" ###,###.##-" -fe$=" ##########" -fe$=fe$+" ###,###.##-" -fe1$=" ##########" -fe1$=fe1$+" ###,###.##- ###,###.##-" -ff$=" /...5...10...1/" -ff$=ff$+" ##,###,###.##-*" - -fg$="DATE /...5../ /...5...10...15...20.../ " -fg$=fg$+" PAGE ####" -fh$=" *** GENERAL LEDGER ***" -fh1$=" ----------------------" -fi$=" ACCOUNT # DESCRIPTION REF # " -fi$=fi$+"BAL.FWRD. CURRENT BALANCE" -fj$="########## /...5...10...15...20...25...3/ ##,###,###.##-" -fk$=" /.../ /...5...10...15...20.../ ######## " -fk$=fk$+" ##,###,###.##-" -fl$=" " -fl$=fl$+" ##,###,###.##-* ##,###,###.##-" - -1000 PRINT clear$:PRINT -1002 PRINT "BEFORE PROCEEDING, IT IS A GOOD PRACTICE TO BACK UP" -1005 PRINT "BOTH THE GENERAL LEDGER FILE AND THE CHECK DISBURSEMENTS FILE" -1010 PRINT "BY MAKING COPIES USING THE DISKCOPY FACILITY OF YOUR DOS." -1015 PRINT:PRINT"IF YOU ARE UNFAMILIAR WITH THE PROCESS, ASK YOUR" -1020 PRINT "SYSTEM SUPERVISOR FOR HELP.":PRINT -1025 PRINT "IF THIS HAS BEEN DONE; TYPE Y TO CONTINUE!" -1030 INPUT line temp$ -1035 IF left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" THEN CHAIN "master11" - -1540 PRINT clear$:PRINT -1545 PRINT "PUT THE GENERAL LEDGER DISK IN DRIVE B":PRINT -1550 PRINT "PUT THE CHECK DISBURSEMENTS DISK IN DRIVE A":PRINT -1555 PRINT "TYPE RETURN WHEN READY":INPUT line temp$ - initialize -2000 PRINT clear$:PRINT -2005 PRINT "LOADING ACCOUNT NUMBER TABLES":PRINT -2010 PRINT "*** PLEASE WAIT ***" -2020 open "glref" as 1 - read #1;z2 - zn%=z2+2 - dim h(zn%),ref%(zn%) - for z=1 to z2 - read #1;h(z) - next z - close 1 -3070 N(2,1)=8:N(2,2)=24:N(2,3)=24:N(2,4)=1 -4000 REM THIS IS THE ACTUAL POSTING PROGRAM -4010 open "gl" recl 138 as 1 - open "glcd" recl 250 as 2 -4015 P9=100:PAGE=0 -4030 GOSUB 20000 -4100 LPRINTER -4500 I=1 -4505 read #2,i;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -4510 IF N(0,2)=0 THEN GOTO 10000 rem Get out when finished -4515 IF FLAG$="P" THEN 4540 -4525 IF P9>60 THEN GOSUB 9000 -4530 GOSUB 5000 -4531 IF FLAG.CR<>1 THEN GOSUB 9100 -4532 IF P9>60 THEN GOSUB 9000 -4534 GOSUB 5100 -4536 IF P9>60 THEN GOSUB 9000 -4540 I=I+1:GOTO 4505 -5000 REM SUBROUTINE TO POST AND PRINT TOTALS -5002 IF N(0,2)=0 THEN 5050 -5003 FOR Z4=1 TO Z2 -5004 IF N(0,2)=H(Z4) THEN read #1,z4;n(1,1),n(1,2),r$,n(1,4),n(1,5), n(1,6),n(1,7),n(1,8),n(1,9),n(1,10):goto 5006 -5005 NEXT Z4 -5006 FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,7):NEXT X -5050 RETURN - -5100 NU.LEFT%=0:NU.TRAN%=0:NET.AMT=0 - FOR B=FIRST TO LAST STEP 2 - IF N(0,B)<>0 THEN NU.TRAN%=NU.TRAN%+1: NET.AMT=NET.AMT+N(0,B+1) - NEXT B -5110 IF N(0,7)=0 THEN PRINT USING FD2$;N(0,1),LEFT$(Q$,8), MID$(Q$,9,24),N(0,7):P9=P9+1:GOTO 5235 -5115 FOR J=first to last STEP 2 -5120 IF N(0,J)=0 THEN 5220 -5125 FOR Z4=1 TO Z2 -5130 IF N(0,j)=H(Z4) THEN read #1,z4;n(1,1),n(1,2),r$,n(1,4),n(1,5), n(1,6),n(1,7),n(1,8),n(1,9),n(1,10):goto 5140 -5135 NEXT Z4 -5140 IF NU.TRAN%>1 THEN GOSUB 5400 ELSE GOTO 5142 - GOTO 5145 -5142 PRINT USING FD$;N(0,1),LEFT$(Q$,8),MID$(Q$,9,24),N(0,J),N(0,J+1) -5145 P9=P9+1 -5170 FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,J+1):NEXT X -5220 NEXT J -5225 IF N(0,7)=0 THEN PRINT USING FD2$;N(0,1),LEFT$(Q$,8), MID$(Q$,9,24),N(0,7):P9=P9+1 -5235 RETURN -5400 IF NU.LEFT%=1 THEN PRINT USING FE1$;N(0,J),N(0,J+1),NET.AMT: NU.LEFT%=NU.LEFT%-1:RETURN -5420 IF NU.LEFT%>1 THEN PRINT USING FE$;N(0,J),N(0,J+1): NU.LEFT%=NU.LEFT%-1:RETURN -5430 PRINT USING FD$;N(0,1),LEFT$(Q$,8),MID$(Q$,9,24), N(0,J),N(0,J+1):NU.LEFT%=NU.TRAN%-1 -5440 RETURN - -9000 P9=0:PAGE=PAGE+1 -9005 PRINT CHR$(12) -9010 PRINT USING FA$;D$(4),MID$(CO.NAME$,25,24),PAGE -9015 PRINT FB$ -9020 PRINT FB1$ -9025 PRINT FC$ -9030 PRINT:P9=P9+6 -9095 RETURN -9100 PRINT USING FD1$;D$(4),"CHECK DISBURSEMENTS",ACCT.NUM,CASH.OUT -9105 FLAG.CR=1 -9195 RETURN -10000 dr$="TOTAL DEBITS":cr$="TOTAL CREDITS" -10010 PRINT USING FF$;dr$,DEBIT -10020 PRINT USING FF$;cr$,CREDIT -10030 GOSUB 30000 -10040 console -10050 CLOSE 1:CLOSE 2 -10100 PRINT "PUT DISK #1 BACK IN DRIVE A - TYPE TO CONTINUE" -10105 INPUT line temp$ - if size("master11.int")<1 then 10100 -10110 lprinter -10115 print chr$(12):for z=1 to 100:next z:print chr$(12) -10120 console -10195 chain"master11" -20000 console:PRINT clear$:PRINT -20010 PRINT "*** VALIDATING ACCOUNT NUMBERS ***" -20020 PRINT:PRINT "PLEASE WAIT" -20030 I=1 -20040 read #2,i;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -20050 IF N(0,2)=0 THEN 29975 -20055 IF FLAG$="P" THEN 21010 -20062 FOR Z4=1 TO Z2 - IF N(0,2)=H(Z4) THEN 20070 - NEXT Z4 -20064 J=2:GOTO 20500 -20070 CASH.OUT=CASH.OUT+N(0,7):ACCT.NUM=N(0,2) -20072 IF N(0,7)<0 THEN CREDIT=CREDIT+N(0,7):REF%(Z4)=REF%(Z4)+1 -20074 IF N(0,7)>0 THEN DEBIT=DEBIT+N(0,7):REF%(Z4)=REF%(Z4)+1 -20076 FOR J=first to last STEP 2 -20080 FOR Z4=1 TO Z2 -20085 IF N(0,J)=0 THEN 21000 -20090 IF N(0,J)=H(Z4) THEN 21000 -20100 NEXT Z4 -20500 lprinter - print:print n(0,j);" in record ";i;" is not a VALID account number!" - abort = 1 - console - IF J=2 THEN 20076 -21000 IF N(0,J+1)<0 THEN CREDIT=CREDIT+N(0,J+1):REF%(Z4)=REF%(Z4)+1 -21002 IF N(0,J+1)>0 THEN DEBIT=DEBIT+N(0,J+1):REF%(Z4)=REF%(Z4)+1 -21004 NEXT J -21010 I=I+1 -21020 GOTO 20040 -29975 PRINT clear$:PRINT - if abort = 1 then print "*** POSTING ABORTED !!! ***":GOTO 10050 -29980 PRINT "*** POSTING ***" -29985 PRINT:PRINT "PLEASE WAIT" -29995 RETURN -30000 P9=100:PAGE=0 -30005 IF P9>60 THEN GOSUB 31000 -30010 OPEN "GLCDSIZE" AS 20:READ #20;LIMIT,DUMMY:CLOSE 20 - LIMIT=LIMIT-1 -30100 FOR I=1 TO Z2 -30200 IF REF%(I)=0 THEN 30795 -30300 READ #1,I;N(1,1),N(1,2),R$,N(1,4),N(1,5),N(1,6),N(1,7), N(1,8),N(1,9),N(1,10) -30305 PRINT USING FJ$;N(1,2),R$,N(1,6):P9=P9+1 -30310 CURRENT=0 -30500 FOR K=1 TO LIMIT -30510 read #2,K;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -30512 IF FLAG$="P" THEN 30580 -30515 IF N(0,2)=N(1,2) AND N(0,7)<>0 THEN PRINT USING FK$;LEFT$(Q$,5), MID$(Q$,9,24),N(0,1),N(0,7):FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,7):NEXT X: CURRENT=CURRENT+N(0,7):P9=P9+1:REF%(I)=REF%(I)-1 -30520 IF P9>60 THEN GOSUB 31000 -30530 IF REF%(I)=0 THEN K=LIMIT:GOTO 30580 -30550 FOR J1=FIRST TO LAST STEP 2 -30555 IF N(0,J1)=N(1,2) AND N(0,J1+1)<>0 THEN PRINT USING FK$;LEFT$(Q$,5), MID$(Q$,9,24),N(0,1),N(0,J1+1):FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,J1+1): NEXT X:CURRENT=CURRENT+N(0,J1+1):P9=P9+1:REF%(I)=REF%(I)-1 -30560 IF P9>60 THEN GOSUB 31000 -30566 IF REF%(I)=0 THEN K=LIMIT:GOTO 30580 -30570 NEXT J1 -30580 NEXT K -30600 PRINT USING FL$;CURRENT,N(1,6):P9=P9+1 -30650 PRINT #1,I;N(1,1),N(1,2),R$,N(1,4),N(1,5),N(1,6),N(1,7), N(1,8),N(1,9),N(1,10) -30655 PRINT:PRINT:P9=P9+2 -30660 IF P9>60 THEN GOSUB 31000 -30795 NEXT I -30800 FOR I=1 TO LIMIT -30810 read #2,I;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -30815 FLAG$="P" -30820 print #2,I;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -30825 NEXT I -30995 RETURN -31000 PRINT CHR$(12):P9=0:PAGE=PAGE+1 -31005 PRINT USING FG$;D$(4),MID$(CO.NAME$,25,24),PAGE -31010 PRINT FH$ -31015 PRINT FH1$ -31020 PRINT FI$ -31025 PRINT:P9=P9+6 -31095 RETURN diff --git a/bwbtest/C77B/GLCDSORT.BAS b/bwbtest/C77B/GLCDSORT.BAS deleted file mode 100644 index 46c01af..0000000 --- a/bwbtest/C77B/GLCDSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the Check Disbursements Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="glcd":z6$="glcdback":z7$="glcdsize":RL=250 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - NEXT Z - - for z=1 to 20:n(2,z)=0:next z:n$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "glcdtran" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "glcdtran" diff --git a/bwbtest/C77B/GLCDTRAN.BAS b/bwbtest/C77B/GLCDTRAN.BAS deleted file mode 100644 index 3fdc69a..0000000 --- a/bwbtest/C77B/GLCDTRAN.BAS +++ /dev/null @@ -1,377 +0,0 @@ -1 rem This is the Check Disbursements Journal Entry Program - -%INCLUDE ALL.BAS -500 dim k$(6,20),n(2,20) - repeat$="-----------------------------" - fill$=" " - z5$="glcd":z6$="glcdback":z7$="glcdsize" - L$="$#,###,###,###.##" -535 FOR Z=1 TO 72:delim$=delim$+"=":NEXT Z -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - DELETE EXISTING ENTRY" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - BACK-UP AND SORT FILE":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" -1200 K$(2,1)="1 - CHECK #":K$(2,2)="2 - BANK ACCT #":K$(2,3)="3 - DATE" -1205 K$(2,4)="4 - IN FAVOR OF":K$(2,5)="5 - REMARKS" -1210 K$(2,6)="6 - PRINT CHECKS(Y/N)":K$(2,7)="7 - AMOUNT OF CHECK" - k$(2,8)="1st Entry Acct #" - k$(2,9)="1st Entry Amount" - k$(2,10)="2nd Entry Acct #" - k$(2,11)="2nd Entry Amount" - k$(2,12)="3rd Entry Acct #" - k$(2,13)="3rd Entry Amount" - k$(2,14)="4th Entry Acct #" - k$(2,15)="4th Entry Amount" - k$(2,16)="5th Entry Acct #" - k$(2,17)="5th Entry Amount" - k$(2,18)="6th Entry Acct #" - k$(2,19)="6th Entry Amount" -1280 K$(2,20)="20- NONE" -1285 N(1,1)=6:N(1,2)=10:N(1,3)=8:N(1,4)=24:N(1,5)=24:N(1,6)=1 -1290 N(1,7)=12:N(1,8)=10:N(1,9)=12:N(1,10)=10:N(1,11)=12:N(1,12)=10 -1292 N(1,13)=12:N(1,14)=10:N(1,15)=12:N(1,16)=10:N(1,17)=12 -1295 N(1,18)=10:N(1,19)=12 - print clear$:print -1300 PRINT "This program does a number of things to speed data entry." -1302 PRINT -1310 PRINT "1. It assigns CHECK NUMBERS automatically. To set the CHECK #" -1312 PRINT " run the program CHKENT. If a '0' is entered, check numbers can" -1314 PRINT " be entered manually (out of sequence). Any other number will be" -1316 PRINT " considered the first number in a sequence and the number will" -1318 PRINT " be entered automatically, then incremented to the next number." -1340 PRINT -1342 PRINT "2. You will be asked to enter the BANK ACCOUNT # to be credited." -1344 PRINT " This number will be entered automatically in all records" -1346 PRINT " prepared during the rest of this set of entry operations." -1348 PRINT -1350 PRINT "3. The date will be entered as the CURRENT DATE." -1360 PRINT -1362 PRINT "4. The PRINT CHECKS (Y/N) will automatically be set to 'Y'." -1364 PRINT " Should you wish to override this entry, select MENU option" -1366 PRINT " #6 when the program asks for any changes." -1370 PRINT -1372 PRINT "5. The amount of check should be entered as figures without a" -1374 PRINT " minus sign. The program will force it to a negative (credit)" -1376 PRINT " amount. Distributions will be set positive (debit)." -1378 PRINT:INPUT "Type to continue. ";LINE TEMP$ -1400 PRINT CLEAR$:PRINT -1410 PRINT "Enter GENERAL LEDGER account number of the Bank Account for" -1415 PRINT "credit. Although account number validity will be checked before" -1420 PRINT "posting, time will be saved if the account number is entered" -1425 PRINT "correctly here." -1430 PRINT -1450 INPUT LINE BANKNUM$:BANKNUM=VAL(BANKNUM$) -1455 PRINT "Is ";BANKNUM;" the correct account number? (Y or N)." -1460 PRINT:INPUT LINE TEMP$ -1465 IF UCASE$(LEFT$(TEMP$,1)) <> "Y" THEN 1400 - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 250 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "CHECK DISBURSEMENT ENTRY PROGRAM" - PRINT "--------------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:N$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -1702 new$="" -1703 FLAG$=" " -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2010 GOSUB 24000 -2015 N(2,2)=BANKNUM -2020 K$(3,3)=D$(1) -2025 K$(3,6)="Y" -2030 FOR Z=4 TO 5 - PRINT CUR$ -2034 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2038 PRINT k$(2,Z);TAB(28); -2040 INPUT LINE K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2044 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ -2048 NEXT Z -2050 Z=7 - PRINT CUR$ -2054 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2058 PRINT k$(2,Z);TAB(28); -2060 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2064 IF N(2,7)>0 THEN N(2,7)=N(2,7)*(-1) -2066 FOR Z=8.0 TO 19.0 STEP 2.0 - PRINT CUR$ -2070 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2074 PRINT k$(2,Z);TAB(28); -2076 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ - PRINT CUR$ -2082 PRINT TAB(30);left$(repeat$,n(1,z+1)) - PRINT UP$; -2086 PRINT k$(2,Z+1);TAB(28); -2088 INPUT N(2,Z+1):PRINT chr$(13) - PRINT CLEAR$ - PRINT CUR$ -2090 INPUT "Is this the last entry (Y or N)";LINE TEMP$ -2092 IF UCASE$(LEFT$(TEMP$,1))="Y" THEN 2096 -2094 NEXT Z -2096 N$="" -2098 FOR Z=3 TO 6:N$=N$+K$(3,Z):NEXT Z -2100 Z1=Z2 -2105 gosub 11000 -2163 PRINT"TO MAKE A CHANGE, TYPE THE APPROPRIATE #. IF NONE TYPE 20, RETURN" -2164 INPUT Z -2165 IF Z>19 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>2 AND Z<7 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT k$(2,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2205 PRINT k$(2,Z);TAB(30); -2210 INPUT LINE K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2220 FOR Z=3 TO 6:N$=N$+K$(3,Z):NEXT Z -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 250 as 1 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN -3015 open z5$ recl 250 as 1 - read #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ -3022 Z9=1:FOR Z=3 TO 6:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):next z -3025 CLOSE 1 -3105 GOSUB 11000 -3170 PRINT"FOR A NEW RECORD, TYPE N - TYPE F IF FINISHED.":INPUT line temp$ -3190 IF temp$="n" or temp$="N" THEN 3000 -3195 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -4030 open z5$ recl 250 as 1 - read #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ -4036 Z9=1:FOR Z=3 TO 6:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -4040 CLOSE 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -5030 open z5$ recl 250 as 1 - read #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ -5036 Z9=1:FOR Z=3 TO 6:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -5040 CLOSE 1 -5105 GOSUB 11000 -5200 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5205 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5210 IF temp$<>"YES" THEN 5200 -5215 N(2,1)=0 -5220 open z5$ recl 250 as 1 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ -5230 close 1 -5235 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A CHECK DISBURSEMENTS FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF temp$="c" OR temp$="C" THEN INITIALIZE:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";Z3 -6055 PRINT -6060 n$="":for z=1 to 70:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:next z - create z5$ recl 250 as 1 -6070 for z1=1 to z3+2 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - next z1 - close 1 -6095 PRINT clear$:PRINT -6100 PRINT "CHECK DISBURSEMENTS FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 open z5$ recl 250 as 1 - n$="":for z=1 to 70:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:next z -7006 INPUT "ARE YOU SURE !!! (YES OR NO)";temp$ -7007 IF temp$<>"YES" THEN close 1:return -7010 FOR Z1=1 TO z3+2 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ -7025 next z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "CHECK DISBURSEMENTS FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 CHAIN "GLCDSORT" -9000 print clear$:print:print "listing" - p1=1:p2=1:p3=2 - t3=0:t4=0:t5=0 - lprinter - open z5$ recl 250 as 1 - for z0=1 to (z2/2)+1 - gosub 9500 - gosub 9100 - if n(2,2)=0 then gosub 9800:goto 9090 - gosub 9300 - next z0 - print chr$(12) - console -9090 return -9100 for z1=p2 to p3 - read #1,z1;n(2,1),n(2,2),n$,n(2,7),n(2,8),n(2,9),n(2,10), n(2,11),n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17), n(2,18),n(2,19),FLAG$ - z9=1:for z=3 to 10:k$(3,z)=mid$(n$,z9,n(1,z)):z9=z9+n(1,z):next z - if n(2,2)=0 then 9170 - t5=t5+n(2,7) - t1=0:t2=0 - print:print:print - gosub 11000 - next z1 - p2=p2+2:p3=p3+2 -9170 return -9300 print - print "report continues on next page" - print - print chr$(12) - return -9500 print - print - print tab(66);"Page Number ";p1:p1=p1+1 - print:print - return -9800 print - print "*** Summary ***":print - print "Total Debits";tab(35);:print using l$;t3 - print "Total Credits";tab(55);:print using l$;t4 - print "Difference";tab(55);:print using l$;t3+t4:print - print - print "end of report" - print chr$(12):for z=1 to 100:next z: print chr$(12) - close 1 - return -10000 CHAIN "master11" -11000 PRINT clear$; - T1=0:T2=0 - PRINT "RECORD NUMBER";Z1;TAB(31);"CHECK DISBURSEMENT ENTRY" - PRINT K$(2,1);TAB(16);N(2,1);TAB(24);K$(2,2);N(2,2); - PRINT TAB(51);K$(2,3);TAB(62);K$(3,3) - PRINT K$(2,4);TAB(21);K$(3,4) - PRINT K$(2,5);TAB(21);K$(3,5);TAB(51);K$(2,6);K$(3,6) - PRINT K$(2,7);TAB(21);:print using l$;n(2,7):T2=T2+N(2,7) - PRINT delim$ - PRINT "POSTING #";TAB(11);"ACCT #";TAB(35);"DEBIT";TAB(55);"CREDIT" - PRINT delim$ - PRINT "#1";TAB(11);"8 -";N(2,8);TAB(31);"9 -"; - IF N(2,9)<=0 THEN PRINT TAB(55);:print using l$;n(2,9):T2=T2+N(2,9) - IF N(2,9)>0 THEN PRINT TAB(35);:print using l$;n(2,9):T1=T1+N(2,9) - PRINT "#2";TAB(11);"10-";N(2,10);TAB(31);"11-"; - IF N(2,11)<=0 THEN PRINT TAB(55);:print using l$;n(2,11):T2=T2+N(2,11) - IF N(2,11)>0 THEN PRINT TAB(35);:print using l$;n(2,11):T1=T1+N(2,11) - PRINT "#3";TAB(11);"12-";N(2,12);TAB(31);"13-"; - IF N(2,13)<=0 THEN PRINT TAB(55);:print using l$;n(2,13):T2=T2+N(2,13) - IF N(2,13)>0 THEN PRINT TAB(35);:print using l$;n(2,13):T1=T1+N(2,13) - PRINT "#4";TAB(11);"14-";N(2,14);TAB(31);"15-"; - IF N(2,15)<=0 THEN PRINT TAB(55);:print using l$;n(2,15):T2=T2+N(2,15) - IF N(2,15)>0 THEN PRINT TAB(35);:print using l$;n(2,15):T1=T1+N(2,15) - PRINT "#5";TAB(11);"16-";N(2,16);TAB(31);"17-"; - IF N(2,17)<=0 THEN PRINT TAB(55);:print using l$;n(2,17):T2=T2+N(2,17) - IF N(2,17)>0 THEN PRINT TAB(35);:print using l$;n(2,17):T1=T1+N(2,17) - PRINT "#6";TAB(11);"18-";N(2,18);TAB(31);"19-"; - IF N(2,19)<=0 THEN PRINT TAB(55);:print using l$;n(2,19):T2=T2+N(2,19) - IF N(2,19)>0 THEN PRINT TAB(35);:print using l$;n(2,19):T1=T1+N(2,19) - PRINT TAB(35);"=================";TAB(55);"=================" - PRINT "TOTALS";TAB(35);:print using l$;t1;TAB(55);:print using l$;t2 - PRINT:PRINT "DIFFERENCE";TAB(55);:print using l$;t1+t2:PRINT - t3=t3+t1:t4=t4+t2 - return -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 250 as 1 - z3=(size(z5$)*block.size)/250 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 -24000 OPEN "CHK" AS 1 -24005 READ #1;N(2,1) -24010 CLOSE 1 -24030 IF N(2,1)<>0 THEN 24800 -24035 PRINT CUR$ -24040 PRINT TAB(30);LEFT$(REPEAT$,N(1,1)) -24045 PRINT UP$; -24050 PRINT K$(2,1);TAB(28); -24060 INPUT N(2,1):PRINT CHR$(13) -24065 PRINT CLEAR$ -24070 GOTO 24995 -24800 IF Z=3 THEN 24995 -24900 A=N(2,1)+1 -24910 OPEN "CHK" AS 1 -24915 PRINT #1;A -24920 CLOSE 1 -24995 RETURN diff --git a/bwbtest/C77B/GLCHART.BAS b/bwbtest/C77B/GLCHART.BAS deleted file mode 100644 index 01facf6..0000000 --- a/bwbtest/C77B/GLCHART.BAS +++ /dev/null @@ -1,115 +0,0 @@ -1 rem This is the General Ledger Chart of Accounts Printer - -%INCLUDE ALL.BAS -500 dim n(2,12),k$(2,10),h(9),s(9),t(4,9) - RESTORE -1025 PRINT clear$:PRINT -1045 Q$="G E N E R A L L E D G E R C H A R T O F A C C O U N T S" -3005 a5=t%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 rem ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 FOR Z=l9 TO l8 STEP -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 rem PRINT CHART OF ACCOUNTS -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING CHART OF ACCOUNTS" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z - lprinter - open "gl" recl 138 as 1 - open "glh" recl 150 as 2 - open "gls" recl 150 as 3 - p9=0 -6200 GOSUB 9600 -6250 GOSUB 10000 -6300 GOSUB 11000 -6350 GOSUB 15000 -6400 rem DO PARTIAL TOTALS OR TOTALS AND TEST -6410 print TAB(t%(6));"TOTAL "+mid$(s$,3,28):P9=P9+1 -6415 IF P9>51 THEN GOSUB 9700 -6420 IF S(1)< H(1) THEN 6300 -6430 IF S(1)=H(1) THEN GOSUB 12000 -6435 IF N(2,2)=0 THEN FOR Z=1 TO 51-P9:print:next z:GOSUB 9800 -6440 IF N(2,2)=0 THEN 20000 -6450 GOTO 6250 -9600 rem PRINT PAGE HEADING SUBROUTINE -9605 P0=1 -9610 print -9615 print:P9=P9+2 -9616 print TAB((t%(1)-LEN(Q$))/2);Q$:print:P9=P9+2 -9620 FOR Z=2 TO 3 -9625 print TAB((t%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9631 PRINT TAB((T%(1)-LEN(K$(0,4)))/2);LEFT$(K$(0,4),17); -9632 PRINT MID$(K$(0,4),18,2);" ";MID$(K$(0,4),20,5) -9635 print:P9=P9+1 -9640 print TAB(t%(10));D$(1);TAB(t%(11));"PAGE #";P0:P9=P9+1 -9645 print -9650 print:P9=P9+2 -9655 RETURN -9700 rem REPORT CONTINUED SUBROUTINE - print - print "report continues on next page" - print -9720 print chr$(12):P9=0 -9725 P0=P0+1 -9730 FOR Z=1 TO 3:print:P9=P9+1:next z:print TAB(t%(11));"PAGE #";P0:P9=P9+1 -9735 print:P9=P9+1 -9740 RETURN -9800 rem END OF REPORT ROUTINE - print - print "end of report" - print -9840 print chr$(12) -9845 FOR Z=1 TO 100:NEXT Z:print chr$(12) -9850 RETURN -10000 rem GET HEADING LINE AND PRINT -10005 H(9)=H(9)+1 -10006 IF P9>51 THEN GOSUB 9700 - read #2,h(9);n(2,1),n(2,2),h$,h(0),h(1),h(2),h(3), h(4),h(5),h(6),h(7) -10015 print TAB(t%(4));mid$(h$,3,28):P9=P9+1 -10995 RETURN -11000 rem GET SUBHEADING LINE AND PRINT -11005 S(9)=S(9)+1 -11006 IF P9>51 THEN GOSUB 9700 - read #3,s(9);n(2,1),n(2,2),s$,s(0),s(1),s(2),s(3), s(4),s(5),s(6),s(7) -11015 print TAB(t%(5));mid$(s$,3,28):P9=P9+1 -11995 RETURN -12000 rem PRINT FINAL TOTAL LINE -12010 print:P9=P9+1 -12020 print TAB(t%(8));"TOTAL "+mid$(h$,3,28):P9=P9+1 -12025 IF P9>51 THEN GOSUB 9700 -12030 print :P9=P9+1 -12040 RETURN -15000 rem GET ACCOUNTS IN SUBHEAD RANGE AND PRINT -15005 A(9)=A(9)+1 -15010 IF P9>51 THEN GOSUB 9700 - read #1,a(9);n(2,1),n(2,2),k$(0,3),n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) -15105 IF N(2,2)=0 THEN 15995 -15106 IF N(2,2)<=S(1) THEN 15110 -15107 A(9)=A(9)-1 -15108 GOTO 15995 -15110 print A(9);TAB(6);N(2,2);K$(0,3):P9=P9+1 -15111 GOTO 15005 -15995 RETURN -20000 rem ROUTINE TO CLOSE FILES AND RETURN TO BIZMII -20010 CLOSE 1 -20015 CLOSE 2 -20040 CLOSE 3 - console -20050 chain "master1" diff --git a/bwbtest/C77B/GLCKPOST.BAS b/bwbtest/C77B/GLCKPOST.BAS deleted file mode 100644 index cbbd73f..0000000 --- a/bwbtest/C77B/GLCKPOST.BAS +++ /dev/null @@ -1,209 +0,0 @@ -1 rem This is the Check Receipt Posting Program - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(3,20) - first=8:last=18 - -fa$="DATE /...5../ /...5...10...15...20.../ " -fa$=fa$+" PAGE ####" -fb$=" *** CASH/CHECK RECEIPTS ***" -fb1$=" ---------------------------" -fc$=" CUST # DATE DESCRIPTION ACCOUNT #" -fc$=fc$+" AMOUNT NET" -fd$="######## /...5../ /...5...10...15...20.../ ##########" -fd$=fd$+" ###,###.##-" -fd1$=" /...5../ /...5...10...15...20.../ ##########" -fd1$=fd1$+" ###,###.##-" -fd2$="######## /...5../ /...5...10...15...20.../ " -fd2$=fd2$+" ###,###.##-" -fe$=" ##########" -fe$=fe$+" ###,###.##-" -fe1$=" ##########" -fe1$=fe1$+" ###,###.##- ###,###.##-" -ff$=" /...5...10...1/" -ff$=ff$+" ##,###,###.##-*" - -fg$="DATE /...5../ /...5...10...15...20.../ " -fg$=fg$+" PAGE ####" -fh$=" *** GENERAL LEDGER ***" -fh1$=" ----------------------" -fi$=" ACCOUNT # DESCRIPTION REF # " -fi$=fi$+"BAL.FWRD. CURRENT BALANCE" -fj$="########## /...5...10...15...20...25...3/ ##,###,###.##-" -fk$=" /.../ /...5...10...15...20.../ ######## " -fk$=fk$+" ##,###,###.##-" -fl$=" " -fl$=fl$+" ##,###,###.##-* ##,###,###.##-" - -1000 PRINT clear$:PRINT -1002 PRINT "BEFORE PROCEEDING, IT IS A GOOD PRACTICE TO BACK UP" -1005 PRINT "BOTH THE GENERAL LEDGER FILE AND THE CHECK RECEIPTS FILE" -1010 PRINT "BY MAKING COPIES USING THE DISKCOPY FACILITY OF YOUR DOS." -1015 PRINT:PRINT"IF YOU ARE UNFAMILIAR WITH THE PROCESS, ASK YOUR" -1020 PRINT "SYSTEM SUPERVISOR FOR HELP.":PRINT -1025 PRINT "IF THIS HAS BEEN DONE; TYPE Y TO CONTINUE!" -1030 INPUT line temp$ -1035 IF left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" THEN CHAIN "master12" - -1540 PRINT clear$:PRINT -1545 PRINT "PUT THE GENERAL LEDGER DISK IN DRIVE B":PRINT -1550 PRINT "PUT THE CHECK RECEIPTS DISK IN DRIVE A":PRINT -1555 PRINT "TYPE RETURN WHEN READY":INPUT line temp$ - initialize -2000 PRINT clear$:PRINT -2005 PRINT "LOADING ACCOUNT NUMBER TABLES":PRINT -2010 PRINT "*** PLEASE WAIT ***" -2020 open "glref" as 1 - read #1;z2 - zn%=z2+2 - dim h(zn%),ref%(zn%) - for z=1 to z2 - read #1;h(z) - next z - close 1 -3070 N(2,1)=8:N(2,2)=24:N(2,3)=24:N(2,4)=1 -4000 REM THIS IS THE ACTUAL POSTING PROGRAM -4010 open "gl" recl 138 as 1 - open "glck" recl 250 as 2 -4015 P9=100:PAGE=0 -4030 GOSUB 20000 -4100 LPRINTER -4500 I=1 -4505 read #2,i;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -4510 IF N(0,2)=0 THEN GOTO 10000 rem Get out when finished -4515 IF FLAG$="P" THEN 4540 -4525 IF P9>60 THEN GOSUB 9000 -4530 GOSUB 5000 -4531 IF FLAG.CR<>1 THEN GOSUB 9100 -4532 IF P9>60 THEN GOSUB 9000 -4534 GOSUB 5100 -4536 IF P9>60 THEN GOSUB 9000 -4540 I=I+1:GOTO 4505 -5000 REM SUBROUTINE TO POST AND PRINT TOTALS -5002 IF N(0,2)=0 THEN 5050 -5003 FOR Z4=1 TO Z2 -5004 IF N(0,2)=H(Z4) THEN read #1,z4;n(1,1),n(1,2),r$,n(1,4),n(1,5), n(1,6),n(1,7),n(1,8),n(1,9),n(1,10):goto 5006 -5005 NEXT Z4 -5006 FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,7):NEXT X -5050 RETURN - -5100 NU.LEFT%=0:NU.TRAN%=0:NET.AMT=0 - FOR B=FIRST TO LAST STEP 2 - IF N(0,B)<>0 THEN NU.TRAN%=NU.TRAN%+1: NET.AMT=NET.AMT+N(0,B+1) - NEXT B -5110 IF N(0,7)=0 THEN PRINT USING FD2$;N(0,1),LEFT$(Q$,8), MID$(Q$,9,24),N(0,7):P9=P9+1:GOTO 5235 -5115 FOR J=first to last STEP 2 -5120 IF N(0,J)=0 THEN 5220 -5125 FOR Z4=1 TO Z2 -5130 IF N(0,j)=H(Z4) THEN read #1,z4;n(1,1),n(1,2),r$,n(1,4),n(1,5), n(1,6),n(1,7),n(1,8),n(1,9),n(1,10):goto 5140 -5135 NEXT Z4 -5140 IF NU.TRAN%>1 THEN GOSUB 5400 ELSE GOTO 5142 - GOTO 5145 -5142 PRINT USING FD$;N(0,1),LEFT$(Q$,8),MID$(Q$,9,24),N(0,J),N(0,J+1) -5145 P9=P9+1 -5170 FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,J+1):NEXT X -5220 NEXT J -5225 IF N(0,7)=0 THEN PRINT USING FD2$;N(0,1),LEFT$(Q$,8), MID$(Q$,9,24),N(0,7):P9=P9+1 -5235 RETURN -5400 IF NU.LEFT%=1 THEN PRINT USING FE1$;N(0,J),N(0,J+1),NET.AMT: NU.LEFT%=NU.LEFT%-1:RETURN -5420 IF NU.LEFT%>1 THEN PRINT USING FE$;N(0,J),N(0,J+1): NU.LEFT%=NU.LEFT%-1:RETURN -5430 PRINT USING FD$;N(0,1),LEFT$(Q$,8),MID$(Q$,9,24), N(0,J),N(0,J+1):NU.LEFT%=NU.TRAN%-1 -5440 RETURN - -9000 P9=0:PAGE=PAGE+1 -9005 PRINT CHR$(12) -9010 PRINT USING FA$;D$(4),MID$(CO.NAME$,25,24),PAGE -9015 PRINT FB$ -9020 PRINT FB1$ -9025 PRINT FC$ -9030 PRINT:P9=P9+6 -9095 RETURN -9100 PRINT USING FD1$;D$(4),"CHECK RECEIPTS",ACCT.NUM,CASH.OUT -9105 FLAG.CR=1 -9195 RETURN -10000 dr$="TOTAL DEBITS":cr$="TOTAL CREDITS" -10010 PRINT USING FF$;dr$,DEBIT -10020 PRINT USING FF$;cr$,CREDIT -10030 GOSUB 30000 -10040 console -10050 CLOSE 1:CLOSE 2 -10100 PRINT "PUT DISK #1 BACK IN DRIVE A - TYPE TO CONTINUE" -10105 INPUT line temp$ - if size("master12.int")<1 then 10100 -10110 lprinter -10115 print chr$(12):for z=1 to 100:next z:print chr$(12) -10120 console -10195 chain"master12" -20000 console:PRINT clear$:PRINT -20010 PRINT "*** VALIDATING ACCOUNT NUMBERS ***" -20020 PRINT:PRINT "PLEASE WAIT" -20030 I=1 -20040 read #2,i;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -20050 IF N(0,2)=0 THEN 29975 -20055 IF FLAG$="P" THEN 21010 -20062 FOR Z4=1 TO Z2 - IF N(0,2)=H(Z4) THEN 20070 - NEXT Z4 -20064 J=2:GOTO 20500 -20070 CASH.OUT=CASH.OUT+N(0,7):ACCT.NUM=N(0,2) -20072 IF N(0,7)<0 THEN CREDIT=CREDIT+N(0,7):REF%(Z4)=REF%(Z4)+1 -20074 IF N(0,7)>0 THEN DEBIT=DEBIT+N(0,7):REF%(Z4)=REF%(Z4)+1 -20076 FOR J=first to last STEP 2 -20080 FOR Z4=1 TO Z2 -20085 IF N(0,J)=0 THEN 21000 -20090 IF N(0,J)=H(Z4) THEN 21000 -20100 NEXT Z4 -20500 lprinter - print:print n(0,j);" in record ";i;" is not a VALID account number!" - abort = 1 - console - IF J=2 THEN 20076 -21000 IF N(0,J+1)<0 THEN CREDIT=CREDIT+N(0,J+1):REF%(Z4)=REF%(Z4)+1 -21002 IF N(0,J+1)>0 THEN DEBIT=DEBIT+N(0,J+1):REF%(Z4)=REF%(Z4)+1 -21004 NEXT J -21010 I=I+1 -21020 GOTO 20040 -29975 PRINT clear$:PRINT - if abort = 1 then print "*** POSTING ABORTED !!! ***":GOTO 10050 -29980 PRINT "*** POSTING ***" -29985 PRINT:PRINT "PLEASE WAIT" -29995 RETURN -30000 P9=100:PAGE=0 -30005 IF P9>60 THEN GOSUB 31000 -30010 OPEN "GLCKSIZE" AS 20:READ #20;LIMIT,DUMMY:CLOSE 20 - LIMIT=LIMIT-1 -30100 FOR I=1 TO Z2 -30200 IF REF%(I)=0 THEN 30795 -30300 READ #1,I;N(1,1),N(1,2),R$,N(1,4),N(1,5),N(1,6),N(1,7), N(1,8),N(1,9),N(1,10) -30305 PRINT USING FJ$;N(1,2),R$,N(1,6):P9=P9+1 -30310 CURRENT=0 -30500 FOR K=1 TO LIMIT -30510 read #2,K;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -30512 IF FLAG$="P" THEN 30580 -30515 IF N(0,2)=N(1,2) AND N(0,7)<>0 THEN PRINT USING FK$;LEFT$(Q$,5), MID$(Q$,9,24),N(0,1),N(0,7):FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,7):NEXT X: CURRENT=CURRENT+N(0,7):P9=P9+1:REF%(I)=REF%(I)-1 -30520 IF P9>60 THEN GOSUB 31000 -30530 IF REF%(I)=0 THEN K=LIMIT:GOTO 30580 -30550 FOR J1=FIRST TO LAST STEP 2 -30555 IF N(0,J1)=N(1,2) AND N(0,J1+1)<>0 THEN PRINT USING FK$;LEFT$(Q$,5), MID$(Q$,9,24),N(0,1),N(0,J1+1):FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,J1+1): NEXT X:CURRENT=CURRENT+N(0,J1+1):P9=P9+1:REF%(I)=REF%(I)-1 -30560 IF P9>60 THEN GOSUB 31000 -30566 IF REF%(I)=0 THEN K=LIMIT:GOTO 30580 -30570 NEXT J1 -30580 NEXT K -30600 PRINT USING FL$;CURRENT,N(1,6):P9=P9+1 -30650 PRINT #1,I;N(1,1),N(1,2),R$,N(1,4),N(1,5),N(1,6),N(1,7), N(1,8),N(1,9),N(1,10) -30655 PRINT:PRINT:P9=P9+2 -30660 IF P9>60 THEN GOSUB 31000 -30795 NEXT I -30800 FOR I=1 TO LIMIT -30810 read #2,I;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -30815 FLAG$="P" -30820 print #2,I;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -30825 NEXT I -30995 RETURN -31000 PRINT CHR$(12):P9=0:PAGE=PAGE+1 -31005 PRINT USING FG$;D$(4),MID$(CO.NAME$,25,24),PAGE -31010 PRINT FH$ -31015 PRINT FH1$ -31020 PRINT FI$ -31025 PRINT:P9=P9+6 -31095 RETURN diff --git a/bwbtest/C77B/GLCKSORT.BAS b/bwbtest/C77B/GLCKSORT.BAS deleted file mode 100644 index e950a0d..0000000 --- a/bwbtest/C77B/GLCKSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the Check Disbursements Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="glck":z6$="glckback":z7$="glcksize":RL=250 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - NEXT Z - - for z=1 to 20:n(2,z)=0:next z:n$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "glcktran" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "glcktran" diff --git a/bwbtest/C77B/GLCKTRAN.BAS b/bwbtest/C77B/GLCKTRAN.BAS deleted file mode 100644 index 58316b7..0000000 --- a/bwbtest/C77B/GLCKTRAN.BAS +++ /dev/null @@ -1,363 +0,0 @@ -1 rem This is the Check Receipts Journal Transaction Entry Program - -%INCLUDE ALL.BAS -500 dim k$(6,20),n(2,20) - repeat$="-----------------------------" - fill$=" " - z5$="glck":z6$="glckback":z7$="glcksize" - L$="$#,###,###,###.##" -535 FOR Z=1 TO 72:delim$=delim$+"=":NEXT Z -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - DELETE EXISTING ENTRY" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - BACK-UP AND SORT FILE":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" -1200 K$(2,1)="1 - CUST TAG #":K$(2,2)="2 - DEP ACCT #" -1202 K$(2,3)="3 - DATE" -1205 K$(2,4)="4 - FROM":K$(2,5)="5 - FOR(REMARKS)" -1210 K$(2,6)="6 - DEPOSIT SLIP(Y/N)":K$(2,7)="7 - AMOUNT OF CHECK" - k$(2,8)="1st Entry Acct #" - k$(2,9)="1st Entry Amount" - k$(2,10)="2nd Entry Acct #" - k$(2,11)="2nd Entry Amount" - k$(2,12)="3rd Entry Acct #" - k$(2,13)="3rd Entry Amount" - k$(2,14)="4th Entry Acct #" - k$(2,15)="4th Entry Amount" - k$(2,16)="5th Entry Acct #" - k$(2,17)="5th Entry Amount" - k$(2,18)="6th Entry Acct #" - k$(2,19)="6th Entry Amount" -1280 K$(2,20)="20- NONE" -1285 N(1,1)=6:N(1,2)=10:N(1,3)=8:N(1,4)=24:N(1,5)=24:N(1,6)=1 -1290 N(1,7)=12:N(1,8)=10:N(1,9)=12:N(1,10)=10:N(1,11)=12:N(1,12)=10 -1292 N(1,13)=12:N(1,14)=10:N(1,15)=12:N(1,16)=10:N(1,17)=12 -1295 N(1,18)=10:N(1,19)=12 - print clear$:print - -1300 PRINT "This program does a number of things to speed data entry." -1302 PRINT -1342 PRINT "1. You will be asked to enter the BANK ACCOUNT # to be debited." -1344 PRINT " This number will be entered automatically in all records" -1346 PRINT " prepared during the rest of this set of entry operations." -1348 PRINT -1350 PRINT "2. The date will be entered as the CURRENT DATE." -1360 PRINT -1362 PRINT "3. The DEPOSIT SLIPS (Y/N) will automatically be set to 'Y'." -1364 PRINT " Should you wish to override this entry, select MENU option" -1366 PRINT " #6 when the program asks for any changes." -1370 PRINT -1372 PRINT "4. The amount of check should be entered as figures " -1374 PRINT " The program will force it to a positive (debit)" -1376 PRINT " amount." -1378 PRINT:INPUT "Type to continue. ";LINE TEMP$ -1400 PRINT CLEAR$:PRINT -1410 PRINT "Enter GENERAL LEDGER account number of the Bank Account for" -1415 PRINT "debit. Although account number validity will be checked before" -1420 PRINT "posting, time will be saved if the account number is entered" -1425 PRINT "correctly here." -1430 PRINT -1450 INPUT LINE BANKNUM$:BANKNUM=VAL(BANKNUM$) -1455 PRINT "Is ";BANKNUM;" the correct account number? (Y or N)." -1460 PRINT:INPUT LINE TEMP$ -1465 IF UCASE$(LEFT$(TEMP$,1)) <> "Y" THEN 1400 - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 250 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "CHECK RECEIPTS ENTRY PROGRAM" - PRINT "----------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:N$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -1702 new$="" -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2007 Z=1 -2009 PRINT CUR$ -2010 PRINT TAB(30);LEFT$(REPEAT$,N(1,Z)) -2011 PRINT UP$ -2012 PRINT K$(2,Z);TAB(28); -2013 INPUT N(2,Z):PRINT CHR$(13) -2014 PRINT CLEAR$ -2015 N(2,2)=BANKNUM -2020 K$(3,3)=D$(1) -2025 K$(3,6)="Y" -2030 FOR Z=4 TO 5 - PRINT CUR$ -2034 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2038 PRINT k$(2,Z);TAB(28); -2040 INPUT LINE K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2044 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ -2048 NEXT Z -2050 Z=7 - PRINT CUR$ -2054 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2058 PRINT k$(2,Z);TAB(28); -2060 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2064 IF N(2,7)<0 THEN N(2,7)=ABS(N(2,7)) -2066 FOR Z=8.0 TO 19.0 STEP 2.0 - PRINT CUR$ -2070 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2074 PRINT k$(2,Z);TAB(28); -2076 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ - PRINT CUR$ -2082 PRINT TAB(30);left$(repeat$,n(1,z+1)) - PRINT UP$; -2086 PRINT k$(2,Z+1);TAB(28); -2088 INPUT N(2,Z+1):PRINT chr$(13) - PRINT CLEAR$ - PRINT CUR$ -2090 INPUT "Is this the last entry (Y or N)";LINE TEMP$ -2092 IF UCASE$(LEFT$(TEMP$,1))="Y" THEN 2096 -2094 NEXT Z -2096 N$="" -2098 FOR Z=3 TO 6:N$=N$+K$(3,Z):NEXT Z -2100 Z1=Z2 -2105 gosub 11000 -2163 PRINT"TO MAKE A CHANGE, TYPE THE APPROPRIATE #. IF NONE TYPE 20, RETURN" -2164 INPUT Z -2165 IF Z>19 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>2 AND Z<7 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT k$(2,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2205 PRINT k$(2,Z);TAB(30); -2210 INPUT LINE K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2220 FOR Z=3 TO 6:N$=N$+K$(3,Z):NEXT Z -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 250 as 1 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN -3015 open z5$ recl 250 as 1 - read #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) -3022 Z9=1:FOR Z=3 TO 6:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):next z -3025 CLOSE 1 -3105 GOSUB 11000 -3170 PRINT"FOR A NEW RECORD, TYPE N - TYPE F IF FINISHED.":INPUT line temp$ -3190 IF temp$="n" or temp$="N" THEN 3000 -3195 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -4030 open z5$ recl 250 as 1 - read #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) -4036 Z9=1:FOR Z=3 TO 6:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -4040 CLOSE 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -5030 open z5$ recl 250 as 1 - read #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) -5036 Z9=1:FOR Z=3 TO 6:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -5040 CLOSE 1 -5105 GOSUB 11000 -5200 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5205 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5210 IF temp$<>"YES" THEN 5200 -5215 N(2,1)=0 -5220 open z5$ recl 250 as 1 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) -5230 close 1 -5235 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A CHECK RECEIPTS FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF temp$="c" OR temp$="C" THEN INITIALIZE:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";Z3 -6055 PRINT -6060 n$="":for z=1 to 70:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:next z - create z5$ recl 250 as 1 -6070 for z1=1 to z3+2 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - next z1 - close 1 -6095 PRINT clear$:PRINT -6100 PRINT "CHECK RECEIPTS FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 open z5$ recl 250 as 1 - n$="":for z=1 to 70:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:next z -7006 INPUT "ARE YOU SURE !!! (YES OR NO)";temp$ -7007 IF temp$<>"YES" THEN close 1:return -7010 FOR Z1=1 TO z3+2 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) -7025 next z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "CHECK RECEIPTS FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 CHAIN "GLCKSORT" -9000 print clear$:print:print "listing" - p1=1:p2=1:p3=2 - t3=0:t4=0:t5=0 - lprinter - open z5$ recl 250 as 1 - for z0=1 to (z2/2)+1 - gosub 9500 - gosub 9100 - if n(2,2)=0 then gosub 9800:goto 9090 - gosub 9300 - next z0 - print chr$(12) - console -9090 return -9100 for z1=p2 to p3 - read #1,z1;n(2,1),n(2,2),n$,n(2,7),n(2,8),n(2,9),n(2,10), n(2,11),n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17), n(2,18),n(2,19) - z9=1:for z=3 to 10:k$(3,z)=mid$(n$,z9,n(1,z)):z9=z9+n(1,z):next z - if n(2,2)=0 then 9170 - t5=t5+n(2,7) - t1=0:t2=0 - print:print:print - gosub 11000 - next z1 - p2=p2+2:p3=p3+2 -9170 return -9300 print - print "report continues on next page" - print - print chr$(12) - return -9500 print - print - print tab(66);"Page Number ";p1:p1=p1+1 - print:print - return -9800 print - print "*** Summary ***":print - print "Total Debits";tab(35);:print using l$;t3 - print "Total Credits";tab(55);:print using l$;t4 - print "Difference";tab(55);:print using l$;t3+t4:print - print "Total receipts";tab(55);:print using l$;t5 - print - print "end of report" - print chr$(12):for z=1 to 100:next z: print chr$(12) - close 1 - return -10000 CHAIN "master12" -11000 PRINT clear$; - T1=0:T2=0 - PRINT "RECORD NUMBER";Z1;TAB(31);"CHECK DISBURSEMENT ENTRY" - PRINT K$(2,1);TAB(16);N(2,1);TAB(24);K$(2,2);N(2,2); - PRINT TAB(51);K$(2,3);TAB(62);K$(3,3) - PRINT K$(2,4);TAB(21);K$(3,4) - PRINT K$(2,5);TAB(21);K$(3,5);TAB(51);K$(2,6);K$(3,6) - PRINT K$(2,7);TAB(21);:print using l$;n(2,7):T1=T1+N(2,7) - PRINT delim$ - PRINT "POSTING #";TAB(11);"ACCT #";TAB(35);"DEBIT";TAB(55);"CREDIT" - PRINT delim$ - PRINT "#1";TAB(11);"8 -";N(2,8);TAB(31);"9 -"; - IF N(2,9)<=0 THEN PRINT TAB(55);:print using l$;n(2,9):T2=T2+N(2,9) - IF N(2,9)>0 THEN PRINT TAB(35);:print using l$;n(2,9):T1=T1+N(2,9) - PRINT "#2";TAB(11);"10-";N(2,10);TAB(31);"11-"; - IF N(2,11)<=0 THEN PRINT TAB(55);:print using l$;n(2,11):T2=T2+N(2,11) - IF N(2,11)>0 THEN PRINT TAB(35);:print using l$;n(2,11):T1=T1+N(2,11) - PRINT "#3";TAB(11);"12-";N(2,12);TAB(31);"13-"; - IF N(2,13)<=0 THEN PRINT TAB(55);:print using l$;n(2,13):T2=T2+N(2,13) - IF N(2,13)>0 THEN PRINT TAB(35);:print using l$;n(2,13):T1=T1+N(2,13) - PRINT "#4";TAB(11);"14-";N(2,14);TAB(31);"15-"; - IF N(2,15)<=0 THEN PRINT TAB(55);:print using l$;n(2,15):T2=T2+N(2,15) - IF N(2,15)>0 THEN PRINT TAB(35);:print using l$;n(2,15):T1=T1+N(2,15) - PRINT "#5";TAB(11);"16-";N(2,16);TAB(31);"17-"; - IF N(2,17)<=0 THEN PRINT TAB(55);:print using l$;n(2,17):T2=T2+N(2,17) - IF N(2,17)>0 THEN PRINT TAB(35);:print using l$;n(2,17):T1=T1+N(2,17) - PRINT "#6";TAB(11);"18-";N(2,18);TAB(31);"19-"; - IF N(2,19)<=0 THEN PRINT TAB(55);:print using l$;n(2,19):T2=T2+N(2,19) - IF N(2,19)>0 THEN PRINT TAB(35);:print using l$;n(2,19):T1=T1+N(2,19) - PRINT TAB(35);"=================";TAB(55);"=================" - PRINT "TOTALS";TAB(35);:print using l$;t1;TAB(55);:print using l$;t2 - PRINT:PRINT "DIFFERENCE";TAB(55);:print using l$;t1+t2:PRINT - t3=t3+t1:t4=t4+t2:t5=t5+t1 - return -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 250 as 1 - z3=(size(z5$)*block.size)/250 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/GLCLEAR.BAS b/bwbtest/C77B/GLCLEAR.BAS deleted file mode 100644 index b607aab..0000000 --- a/bwbtest/C77B/GLCLEAR.BAS +++ /dev/null @@ -1,13 +0,0 @@ -520 DIM N(2,20) -530 DIM K$(6,20) - open "glsize" as 1:read #1;z2,z3:close 1 - open "gl" recl 138 as 1 -1510 FOR Z2=1 TO Z3 -1515 read #1,z2;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) -1516 FOR Z=4 TO 10:N(2,Z)=0:NEXT Z -1515 print #1,z2;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) -1520 IF n(2,2)=0 THEN 1535 - n$="" -1525 NEXT Z2 -1535 CLOSE 1 - END diff --git a/bwbtest/C77B/GLENTRY.BAS b/bwbtest/C77B/GLENTRY.BAS deleted file mode 100644 index 6e46ad1..0000000 --- a/bwbtest/C77B/GLENTRY.BAS +++ /dev/null @@ -1,333 +0,0 @@ -1 rem This is the General Ledger Entry Program - -%INCLUDE ALL.BAS -500 RESTORE -505 z5$="gl" -506 z6$="glback" - z7$="glsize" -515 repeat$="------------------------------" -516 fill$=" " -520 dim n(2,20),k$(6,20) - for z=1 to 80:delim$=delim$+"*":next z - for z=1 to 80:delim1$=delim1$+"=":next z -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - DELETE EXISTING ENTRY" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - BACK-UP AND SORT FILE":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" -1000 rem THIS IS THE GENERAL LEDGER ENTRY PROGRAM -1005 PRINT clear$:PRINT -1075 K$(1,1)="TAG":K$(1,2)="LEDGER ACCOUNT NUMBER":K$(1,3)="DESCRIPTION" -1080 K$(1,4)="MONTH TO DATE AMOUNT":K$(1,5)="QUARTER TO DATE AMOUNT" -1085 K$(1,6)="YEAR TO DATE AMOUNT":K$(1,7)="PREV MONTH TO DATE AMOUNT" -1090 K$(1,8)="PREV QUARTER TO DATE AMOUNT" -1095 K$(1,9)="PREV YEAR TO DATE AMOUNT" -1100 K$(1,10)="BUDGETED AMOUNT" -1105 K$(2,1)="1 - TAG":K$(2,2)="2 - LEDGER ACCOUNT NUMBER" -1106 K$(2,3)="3 - DESCRIPTION" -1110 K$(2,4)="4 - MONTH TO DATE AMOUNT":K$(2,5)="5 - QUARTER TO DATE AMOUNT" -1115 K$(2,6)="6 - YEAR TO DATE AMOUNT":K$(2,7)="7 - PREV MONTH TO DATE AMT" -1120 K$(2,8)="8 - PREV QUARTER TO DATE AMT" -1125 K$(2,9)="9 - PREV YEAR TO DATE AMT" -1130 K$(2,10)="10 - BUDGETED AMOUNT":K$(2,11)="11 - NONE" -1135 N(1,1)=4:N(1,2)=10:N(1,3)=30:N(1,4)=12:N(1,5)=12:N(1,6)=12 -1140 N(1,7)=12:N(1,8)=12:N(1,9)=12:N(1,10)=12 - print clear$:print - -1500 if end #1 then 6000 - if end #2 then 30000 - open z5$ recl 138 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "GENERAL LEDGER ENTRY PROGRAM" - PRINT "----------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:n$="" -1700 FOR Z=1 TO 20:k$(3,z)="":NEXT Z -1702 new$="" -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2040 Z=3 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 INPUT line K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2060 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2090 N$="" -2095 N$=K$(3,3) -2100 Z1=Z2 -2105 PRINT clear$; -2110 PRINT "RECORD NUMBER";Z1:PRINT -2115 FOR Z=1 TO 2 -2120 PRINT K$(2,Z);TAB(30);N(2,Z) -2125 NEXT Z -2135 PRINT K$(2,3);TAB(30);K$(3,3) -2140 FOR Z=4 TO 10 -2141 PRINT K$(2,Z);TAB(30);:print using "##,###,###.##";n(2,z) -2142 NEXT Z - print k$(2,11) -2145 PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>10 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z=3 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2205 PRINT K$(1,Z);TAB(30); -2210 INPUT line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2220 N$=K$(3,3) -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2280 -2255 if left$(temp$,1)<>"n" and left$(temp$,1)<>"N" then 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 138 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6),n(2,7), n(2,8),n(2,9),n(2,10) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN -open z5$ recl 138 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6),n(2,7), n(2,8),n(2,9),n(2,10) - close 1 -3030 PRINT -3035 FOR Z=1 TO 2 -3040 PRINT K$(1,Z);TAB(30);N(2,Z) -3045 NEXT Z -3055 PRINT K$(1,3);TAB(30);N$ -3060 FOR Z=4 TO 10 -3062 PRINT K$(1,Z);TAB(30);:print using "##,###,###.##";n(2,z) -3065 NEXT Z -3070 PRINT -3075 PRINT "FOR A NEW RECORD NUMBER, TYPE N - RETURN.":PRINT -3080 PRINT "IF FINISHED, TYPE F - RETURN.":PRINT -3085 input line temp$ -3090 if left$(temp$,1)="n" or left$(temp$,1)="N" then 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -open z5$ recl 138 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6),n(2,7), n(2,8),n(2,9),n(2,10) - close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4060 K$(3,3)=N$ -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -open z5$ recl 138 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6),n(2,7), n(2,8),n(2,9),n(2,10) - close 1 -5045 PRINT "RECORD NUMBER";Z1 -5050 PRINT -5055 FOR Z=1 TO 2 -5060 PRINT K$(1,Z);TAB(30);N(2,Z) -5065 NEXT Z -5070 Z=3 -5075 PRINT K$(1,Z);TAB(30);N$ -5080 FOR Z=4 TO 10 -5085 PRINT K$(1,Z);TAB(30);:print using "##,###,###.##";n(2,z) -5090 NEXT Z -5095 PRINT -5100 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5105 if left$(temp$,1)="n" or left$(temp$,1)="N" then return -5110 if left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" then 5095 -5115 N(2,1)=0 - open z5$ recl 138 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6),n(2,7), n(2,8),n(2,9),n(2,10) - close 1 -5135 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A GENERAL LEDGER FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE letter c FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE letter n" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF temp$="c" OR temp$="C" THEN INITIALIZE:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";Z3 -6055 PRINT -6060 for z=1 to 20:n(2,z)=0: next z - N$="" - for z=1 to 30:n$=n$+" ":next z - create z5$ recl 138 as 1 -6070 for z1=1 to z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) - next z1 - close 1 -6095 PRINT clear$:PRINT -6100 PRINT "GENERAL LEDGER FILE CREATED AND CLEARED.":PRINT -6105 print z3;" RECORDS CREATED":print -6110 input "TO CONTINUE, TYPE RETURN ";line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 input "ARE YOU SURE !!! (yes or no) ";line temp$ -7007 if temp$<>"yes" AND temp$<>"YES" then return - for z=1 to 20:n(2,z)=0:next z - N$="" - for z=1 to 30:n$=n$+" ":next z - open z5$ recl 138 as 1 - for z1=1 to z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) - next z1 - close 1 -7035 PRINT clear$:PRINT -7040 PRINT "GENERAL LEDGER FILE CLEARED!":PRINT -7045 input "TO CONTINUE, TYPE RETURN ";line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 CHAIN "GLSORT" -9000 PRINT clear$:PRINT:PRINT "LISTING" -9010 P1=1:P2=1:P3=16 -9020 lprinter -9030 open z5$ recl 138 as 1 -9040 FOR Z0=1 TO (Z2/16)+1 -9050 GOSUB 9500 -9060 GOSUB 9100 -9065 IF N(2,2)=0 THEN GOSUB 9800:RETURN -9070 GOSUB 9300 -9080 NEXT Z0 -9085 print chr$(12) -9090 RETURN -9100 FOR Z1=P2 TO P3 -9110 read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) -9115 IF N(2,2)=0 THEN RETURN -9120 print -9130 print Z1;TAB(8);N(2,1);TAB(14);N(2,2); -9140 print using "##,###,###.##";tab(35);n(2,4);tab(50);n(2,5);tab(65);n(2,6) - print n$; -9150 print using "##,###,###.##";tab(35);n(2,7);tab(50);n(2,8);tab(65);n(2,9) -9160 NEXT Z1 -9165 P2=P2+16:P3=P3+16 -9170 RETURN -9300 print -9310 print -9320 print "report continues on next page" -9330 print -9340 print chr$(12) -9350 RETURN -9500 print delim$ -9510 print - print "Rec #";tab(8);"Tag";tab(14);"Acct No.";tab(35); - print "Month to Date";tab(50);"Quart to Date";tab(65);"Year to Date" - print "Description";tab(35);"Previous MTD";tab(50);"Previous QTD"; - print tab(65);"Previous YTD" -9570 print TAB(66);"PAGE NUMBER ";P1:P1=P1+1 -9585 print delim1$ -9590 print -9600 RETURN -9800 print -9810 print -9820 print "END OF REPORT" -9830 print -9840 print chr$(12) -9845 print chr$(12) -9850 CLOSE 1 - console -9870 RETURN -10000 GOSUB 20000 -10040 chain "master1" -20000 PRINT clear$:PRINT -20005 PRINT "A NEW GENERAL LEDGER REFERENCE FILE IS BEING" -20010 PRINT "CREATED.":PRINT -20015 PRINT "*** PLEASE WAIT ***" -20025 open z5$ recl 138 as 1 -20035 FOR Z2=1 TO Z3+2 -20040 read #1,z2;i,j -20045 IF j=0 THEN 20055 -20050 NEXT Z2 -20055 close 1 -20060 Z2=Z2-1 -20065 DIM U(Z2) -20070 open z5$ recl 138 as 1 -20075 FOR Z=1 TO Z2 -20080 read #1,z;i,u(z) -20085 print i,u(z) -20090 NEXT Z -20095 close 1 - if end #2 then 25000 -20100 open "glref" as 2 - print #2;z2 -20105 for z=1 to z2 -20110 print #2;u(z) -20115 next z -20120 close 2 -20505 return -25000 create "glref" as 2 - goto 20105 -30000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 138 as 1 - z3=(size(z5$)*block.size)/138 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 30300 - next z2 -30300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/GLHENTRY.BAS b/bwbtest/C77B/GLHENTRY.BAS deleted file mode 100644 index bffa1f0..0000000 --- a/bwbtest/C77B/GLHENTRY.BAS +++ /dev/null @@ -1,328 +0,0 @@ -1 rem This is the General Ledger Heading Entry Program - -%INCLUDE ALL.BAS -500 RESTORE -505 z5$="glh" -506 z6$="glhback" - z7$="glhsize" -515 repeat$="-------------------------------" -516 fill$=" " -520 dim z$(5,5),n(2,20),k$(6,20) - for z=1 to 80:delim$=delim$+"*":next z - for z=1 to 80:delim1$=delim1$+"=":next z -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - DELETE EXISTING ENTRY" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - BACK-UP AND SORT FILE":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" -1000 rem THIS IS THE GENERAL LEDGER HEADINGS ENTRY PROGRAM -1005 PRINT clear$ -1010 PRINT -1075 K$(1,1)="TAG":K$(1,2)="LEDGER ACCOUNT NUMBER":K$(1,3)="DESCRIPTION" -1080 K$(1,4)="FIRST ACCOUNT NUMBER":K$(1,5)="LAST ACCOUNT NUMBER" -1085 K$(1,6)="M-T-D TOTAL":K$(1,7)="Q-T-D TOTAL" -1090 K$(1,8)="Y-T-D TOTAL":K$(1,9)="M-T-D PERCENTAGE" -1095 K$(1,10)="Q-T-D PERCENTAGE":K$(1,11)="Y-T-D PERCENTAGE" -1105 K$(2,1)="1 - TAG":K$(2,2)="2 - LEDGER ACCOUNT NUMBER" -1106 K$(2,3)="3 - DESCRIPTION" -1110 K$(2,4)="4 - FIRST ACCOUNT NUMBER":K$(2,5)="5 - LAST ACCOUNT NUMBER" -1115 K$(2,6)="6 - M-T-D TOTAL":K$(2,7)="7 - Q-T-D TOTAL" -1120 K$(2,8)="8 - Y-T-D TOTAL":K$(2,9)="9 - M-T-D PERCENTAGE" -1125 K$(2,10)="10- Q-T-D PERCENTAGE":K$(2,11)="11- Y-T-D PERCENTAGE" -1130 K$(2,12)="12- NONE" -1135 N(1,1)=4:N(1,2)=10:N(1,3)=30:N(1,4)=10:N(1,5)=10:N(1,6)=12 -1140 N(1,7)=12:N(1,8)=12:N(1,9)=12:N(1,10)=12:N(1,11)=12 - print clear$:print - -1500 console - if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 150 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 PRINT CLEAR$ - console -1620 REM - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "GENERAL LEDGER HEADING ENTRY PROGRAM" - PRINT "------------------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1600 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:n$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -1702 new$="":H$="" -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2010 PRINT "TYPE OF HEADING - A=ASSETS, L=LIABILITIES," -2012 PRINT "E=EQUITY, S=SALES, OR X=EXPENSES." -2013 input line H$:H$="H"+H$ - if h$<>"HA" and h$<>"HL" and h$<>"HE" and h$<>"HS" and h$<>"HX" then 2010 -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2040 Z=3 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 input line k$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2060 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=H$+K$(3,Z)+left$(fill$,I) - PRINT CLEAR$ -2065 FOR Z=4 TO 11 - PRINT CUR$ -2070 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2075 PRINT K$(1,Z);TAB(30); -2080 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2085 NEXT Z -2090 N$="" -2095 N$=K$(3,3) -2100 Z1=Z2 -2105 PRINT clear$:PRINT -2110 PRINT "RECORD NUMBER";Z1:PRINT -2115 FOR Z=1 TO 2 -2120 PRINT K$(2,Z);TAB(30);N(2,Z) -2125 NEXT Z -2135 PRINT K$(2,3);TAB(30);K$(3,3) -2140 FOR Z=4 TO 5:PRINT K$(2,Z);TAB(30);N(2,Z):NEXT Z -2141 FOR Z=6 TO 8:PRINT K$(2,Z);TAB(30); -: print using "##,###,###.##";n(2,z) -:NEXT Z -2142 FOR Z=9 TO 11:PRINT K$(2,Z);TAB(30);"% ";N(2,Z):NEXT Z -2145 Z=12:PRINT K$(2,Z):PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>11 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z=3 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT "TYPE OF HEADING - A=ASSETS, L=LIABILITIES," -2201 PRINT "E=EQUITY, S=SALES, OR X=EXPENSES." -2202 input line H$:H$="H"+H$ - if h$<>"HA" and h$<>"HL" and h$<>"HE" and h$<>"HS" and h$<>"HX" then 2200 -2204 PRINT TAB(30);left$(repeat$,n(1,z)) -: PRINT UP$; -2205 PRINT K$(1,Z);TAB(30); -2210 input line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=H$+K$(3,Z)+left$(fill$,I) -2216 N$="" -2220 N$=K$(3,3) -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT - if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2280 - if left$(temp$,1)<>"n" and left$(temp$,1)<>"N" then 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 150 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN - open z5$ recl 150 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - close 1 -3030 PRINT -3035 FOR Z=1 TO 2 -3040 PRINT K$(1,Z);TAB(30);N(2,Z) -3045 NEXT Z -3055 PRINT K$(1,3);TAB(30);N$ -3060 FOR Z=4 TO 5:PRINT K$(1,Z);TAB(30);N(2,Z):NEXT Z -3065 FOR Z=6 TO 8:PRINT K$(2,Z);TAB(30); - print using "##,###,###.##";N(2,Z):NEXT Z -3070 FOR Z=9 TO 11:PRINT K$(2,Z);TAB(30);"% ";N(2,Z):NEXT Z:PRINT -3075 PRINT "FOR A NEW RECORD NUMBER, TYPE N - RETURN.":PRINT -3080 PRINT "IF FINISHED, TYPE F - RETURN.":PRINT - input line temp$ - if left$(temp$,1)="n" or left$(temp$,1)="N" then 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 - open z5$ recl 150 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4060 K$(3,3)=N$ -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 - open z5$ recl 150 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - close 1 -5045 PRINT "RECORD NUMBER";Z1 -5050 PRINT -5055 FOR Z=1 TO 2 -5060 PRINT K$(1,Z);TAB(30);N(2,Z) -5065 NEXT Z -5070 Z=3 -5075 PRINT K$(1,Z);TAB(30);N$ -5080 FOR Z=4 TO 5:PRINT K$(1,Z);TAB(30);N(2,Z):NEXT Z -5085 FOR Z=6 TO 8:PRINT K$(1,Z);TAB(30); - print using "##,###,###.##";n(2,Z):NEXT Z -5090 FOR Z=9 TO 11:PRINT K$(1,Z);TAB(30);"%";N(2,Z):NEXT Z -5095 PRINT -5100 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ - if left$(temp$,1)="n" or left$(temp$,1)="N" then return - if temp$<>"YES" then 5095 -5115 N(2,1)=0 - open z5$ recl 150 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - close 1 -5135 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A GENERAL LEDGER HEADING FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE letter c FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE letter n" -6030 PRINT "FOLLOWED BY RETURN.":PRINT - input line temp$ - if left$(temp$,1)="c" or left$(temp$,1)="C" then initialize:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";Z3 -6055 PRINT - n$="" - for z=1 to 30:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:next z - create z5$ recl 150 as 1 -6070 FOR Z1=1 TO Z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) -6085 NEXT Z1 -6090 close 1 -6095 PRINT clear$:PRINT -6100 PRINT "GENERAL LEDGER HEADING FILE CREATED AND CLEARED.":PRINT -6105 PRINT Z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 input "ARE YOU SURE !!! (YES or no) ";line temp$ -7007 if temp$<>"YES" then return - for z=1 to 20:n(2,z)=0:next z - n$="" - for z=1 to 30:n$=n$+" ":next z - open z5$ recl 150 as 1 - for z1=1 to z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - next z1 - close 1 -7035 PRINT clear$:PRINT -7040 PRINT "GENERAL LEDGER HEADING FILE CLEARED!":PRINT -7045 input "TO CONTINUE, TYPE RETURN ";line temp$ - z2=1 - open z7$ as 1:print #1;z2,z3:close 1 -7060 RETURN -8000 chain "GLHSORT" -9000 PRINT clear$:PRINT:PRINT "LISTING" -9010 P1=1:P2=1:P3=12 -9020 lprinter -9030 open z5$ recl 150 as 1 -9040 FOR Z0=1 TO Z2/12 -9050 GOSUB 9500 -9060 GOSUB 9100 -9065 IF P3>Z2 THEN GOSUB 9800:RETURN -9070 GOSUB 9300 -9080 NEXT Z0 -9085 print chr$(12) -9090 RETURN -9100 FOR Z1=P2 TO P3 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) -9115 if n(2,2)=0 then return -9120 print -9130 print N(2,1);TAB(7);N(2,2);TAB(21);mid$(n$,3,30); -9135 print TAB(53);N(2,4);TAB(65);N(2,5) -9140 print using "##,###,###.##";n(2,6);tab(21);n(2,7);tab(41);n(2,8) -9145 print N(2,9);TAB(21);N(2,10);TAB(41);N(2,11) -9160 NEXT Z1 -9165 P2=P2+12:P3=P3+12 -9170 RETURN -9300 print - print - print "report continues on next page" - print -9340 print chr$(12) -9350 RETURN -9500 print delim$ -9510 print -9520 print "TAG";TAB(7);"ACCOUNT NUMBER";TAB(21);"DESCRIPTION"; -9525 print TAB(53);"1ST ACCT #";TAB(65);"2ND ACCT #" -9530 print "M-T-D TOTAL";TAB(21);"Q-T-D TOTAL";TAB(41);"Y-T-D TOTAL" -9540 print "M-T-D PERCENT";TAB(21);"Q-T-D PERCENT";TAB(41);"Y-T-D PERCENT" -9570 print TAB(66);"PAGE NUMBER ";P1:P1=P1+1 -9580 print delim1$ -9590 print -9600 RETURN -9800 print - print - print "end of report" - print -9840 REM -9845 print chr$(12) -9850 CLOSE 1 - console -9870 RETURN -10000 print clear$:print:print "Replace disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 150 as 1 - z3=(size(z5$)*block.size)/150 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/GLHSORT.BAS b/bwbtest/C77B/GLHSORT.BAS deleted file mode 100644 index 6afc8e6..0000000 --- a/bwbtest/C77B/GLHSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the General Ledger Heading Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="glh":z6$="glhback":z7$="glhsize":RL=150 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10),N(2,11) - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10),N(2,11) - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10),N(2,11) - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10),N(2,11) - NEXT Z - - for z=1 to 20:n(2,z)=0:next z:n$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10),N(2,11) - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "glhentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "glhentry" diff --git a/bwbtest/C77B/GLINCOME.BAS b/bwbtest/C77B/GLINCOME.BAS deleted file mode 100644 index 46e5bdd..0000000 --- a/bwbtest/C77B/GLINCOME.BAS +++ /dev/null @@ -1,285 +0,0 @@ -1 rem This is the Income Statement Printer - -%INCLUDE ALL.BAS -500 dim n(2,12),k$(2,10),h(9),s(9),t(4,9) - RESTORE - A(9)=0 -1000 PRINT clear$:PRINT - PRINT "DO YOU WANT AN ORDINARY OR A COMPARATIVE "; - INPUT "INCOME STATEMENT (O OR C) ? ";U$ - IF UCASE$(U$)="C" THEN CHAIN "GCINCOME" - PRINT CLEAR$ -1010 PRINT "IS THIS INCOME STATEMENT TO BE FOR THE MONTH TO DATE," -1011 PRINT "QUARTER TO DATE, OR YEAR TO DATE (M, Q, OR Y)?" -1015 INPUT line Z$ -1017 IF ucase$(Z$)="M" THEN X=4:GOTO 1025 -1020 IF ucase$(Z$)="Q" THEN X=5:GOTO 1025 -1021 IF ucase$(Z$)="Y" THEN X=6:GOTO 1025 -1023 GOTO 1010 -1025 REM -1050 PRINT clear$:PRINT -1075 IF ucase$(U$)="C" THEN Q$="COMPARATIVE INCOME STATEMENT" -1076 IF ucase$(U$)="C" THEN GOTO 1100 -1080 Q$="INCOME STATEMENT" -1100 REM GET DATES ROUTINE -3000 REM READ NAME FILE SUBROUTINE -3005 a5=t%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -4000 REM GET TOTAL SALES AND COST OF GOODS SOLD AS P1/P3 AND P2/P4 -4001 REM GET TOTAL OPERATING EXPENSES AS P7/P8 -4002 P1=0:P2=0:P3=0:P4=0:P5=0:P6=0:P7=0:P8=0 -4005 open "glh" recl 150 as 1 -4010 FOR Z=1 TO 30 -4015 read #1,z;n(2,1),n(2,2),h$,h(0),h(1),h(2),h(3),h(4),h(5),h(6),h(7) -4020 IF LEFT$(H$,2)="HS" THEN 4030 -4025 NEXT Z -4030 close 1 -4035 open "gl" recl 138 as 1 -4040 A(9)=A(9)+1 -4045 read #1,a(9);N(2,1),N(2,2),K$,N(2,4), N(2,5),N(2,6),N(2,7),N(2,8),N(2,9),N(2,10) -4070 IF N(2,2)=0 THEN 4100 -4075 IF N(2,2)>=H(0) AND N(2,2)<=H(1) THEN P1=P1+N(2,X):P3=P3+N(2,X+3) -4080 IF N(2,2)>=A(15) AND N(2,2)<=A(16) THEN P2=P2+N(2,X):P4=P4+N(2,X+3) -4085 IF N(2,2)>A(16) THEN P7=P7+N(2,X):P8=P8+N(2,X+3) -4090 GOTO 4040 -4100 IF P1<>0 THEN P1=P1*(-1) -4105 IF P1=0 THEN P1=999999999999 -4110 IF P2=0 THEN P2=999999999999 -4115 IF P3<>0 THEN P3=P3*(-1) -4120 IF P3=0 THEN P3=999999999999 -4130 IF P4=0 THEN P4=999999999999 -4140 IF P5=0 THEN P5=999999999999 -4150 IF P6=0 THEN P6=999999999999 -4160 IF P7=0 THEN P7=999999999999 -4170 IF P8=0 THEN P8=999999999999 -4990 A(9)=1 -4995 close 1 -6000 REM PRINT INCOME STATEMENT -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING INCOME STATEMENT" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0 -6100 lprinter:P9=0 - open "gl" recl 138 as 1 - open "glh" recl 150 as 2 - open "gls" recl 150 as 3 -6200 GOSUB 9600 -6250 GOSUB 10000 -6255 IF N(2,2)=0 THEN 6400 -6300 GOSUB 11000 -6350 GOSUB 15000 -6355 IF LEFT$(S$,2)<>"SS" AND LEFT$(S$,2)<>"SX" THEN 6980 -6400 REM DO PARTIAL TOTALS OR TOTALS AND TEST - - -6403 IF N(2,2)=0 THEN GOSUB 14500 -6404 IF N(2,2)=0 THEN FOR Z=1 TO 51-P9:print:NEXT Z:GOSUB 9800 -6405 IF N(2,2)=0 THEN 20000 -6410 GOSUB 13000 - IF S(1)=H(1) THEN GOSUB 12000 -6415 IF S(1)=A(16) THEN GOSUB 14000 -6980 IF P9>56 THEN GOSUB 9700 -6985 IF S(1)< H(1) THEN 6300 -6995 GOTO 6250 -9600 REM PRINT PAGE HEADING SUBROUTINE -9605 P0=1 -9610 print:P9=P9+1 -9615 print:P9=P9+1 -9616 print TAB((t%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((t%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(t%(10));"FOR PERIOD ENDING ";D$(X);TAB(t%(11));"PAGE #";P0 -9642 P9=P9+1 -9645 print:P9=P9+1 -9670 RETURN -9700 REM REPORT CONTINUED SUBROUTINE - print - print "report continues on next page" - print -9720 print chr$(12):P9=0 -9725 P0=P0+1 - GOSUB 9600 -9740 RETURN -9800 REM END OF REPORT ROUTINE - print - print "end of report" - print -9840 print chr$(12) -9850 RETURN -10000 REM GET HEADING LINE AND PRINT -10005 H(9)=H(9)+1 - read #2,h(9);n(2,1),n(2,2),h$,h(0),h(1),h(2),h(3),h(4),h(5),h(6),h(7) -10015 IF LEFT$(H$,2)<>"HS" AND LEFT$(H$,2)<>"HX" THEN 10995 -10020 print:print:print TAB(t%(4));RIGHT$(H$,30):P9=P9+3 -10995 RETURN -11000 REM GET SUBHEADING LINE AND PRINT -11005 S(9)=S(9)+1 - read #3,s(9);n(2,1),n(2,2),s$,s(0),s(1),s(2),s(3),s(4),s(5),s(6),s(7) -11012 IF LEFT$(S$,2)<>"SS" AND LEFT$(S$,2)<>"SX" THEN 11995 -11015 print TAB(t%(5));RIGHT$(S$,30):P9=P9+1 -11995 RETURN -12000 REM PRINT FINAL TOTAL LINE -12005 IF LEFT$(H$,2)<>"HS" AND LEFT$(H$,2)<>"HX" THEN 12995 -12010 print:P9=P9+1 -12015 GOSUB 32000 -12020 print TAB(t%(8));"TOTAL "+MID$(H$,3,20);TAB(t%(9));:print using l$;t2; -12025 print TAB(t%(9)+20);:print using p$;p5:P9=P9+1 - print tab(t%(9));"-------------";tab(t%(9)+20);"-----":p9=p9+1 -12030 IF ucase$(U$)<>"C" THEN 12990 -12035 print TAB(t%(8));"PREVIOUS";TAB(t%(9));:print using l$;t4; -12040 print TAB(t%(9)+20);:print using p$;p6:P9=P9+1 - print tab(t%(9));"-------------";tab(t%(9)+20);"-----":p9=p9+1 -12990 T1=0:T2=0:T3=0:T4=0 -12995 RETURN -13000 REM PRINT SUBTOTAL LINE -13005 GOSUB 31000 -13010 print TAB(t%(6));"TOTAL "+MID$(S$,3,20);TAB(t%(7));:print using l$;t1; -13015 print TAB(t%(7)+20);:print using p$;p5:T1=0:P9=P9+1 -13020 IF ucase$(U$)<>"C" THEN 13995 -13025 print TAB(t%(6));"PREVIOUS";TAB(t%(7));:print using l$;t3; -13030 print TAB(t%(7)+20);:print using p$;p6:T3=0:P9=P9+1 -13995 RETURN -14000 REM PRINT GROSS PROFIT (LOSS) LINE -14005 print:P9=P9+1 -14010 GOSUB 33000 -14015 IF P1-(P2)<0 THEN 14035 -14020 print TAB(t%(8));"GROSS PROFIT (LOSS)";TAB(t%(9)); - print using l$;p1-(p2); -14025 print TAB(t%(9)+20);:print using p$;p5:P9=P9+1 -14030 GOTO 14045 -14035 print TAB(t%(8));"GROSS PROFIT (LOSS)";TAB(t%(9)-1);"("; - print using l$;p1-(p2);:PRINT ")"; -14040 print TAB(t%(9)+19);"(";:print using p$;p5;:PRINT ")":P9=P9+1 -14045 IF ucase$(U$)<>"C" THEN 14490 -14050 IF P3-(P4)<0 THEN 14135 -14120 print TAB(t%(8));"PREVIOUS";TAB(t%(9));:print using l$;p3-(p4); -14125 print TAB(t%(9)+20);:print using p$;p6:P9=P9+1 -14130 GOTO 14490 -14135 print TAB(t%(8));"PREVIOUS";TAB(t%(9)-1);"(";:print using l$;p3-(p4); - PRINT ")"; -14140 print TAB(t%(9)+19);"(";:print using p$;p6;:PRINT ")":P9=P9+1 -14490 print TAB(t%(9));"=============";TAB(t%(9)+20);"=====":P9=P9+1 -14495 RETURN -14500 REM PRINT NET PROFIT (LOSS) LINE -14505 print:P9=P9+1 -14510 GOSUB 34000 -14515 IF P1-(P2+P7)<0 THEN 14535 -14520 print TAB(t%(8));"NET PROFIT (LOSS)";TAB(t%(9)); - print using l$;p1-(p2+p7); -14525 print TAB(t%(9)+20);:print using p$;p5:P9=P9+1 -14530 GOTO 14545 -14535 print TAB(t%(8));"NET PROFIT (LOSS)";TAB(t%(9)-1); -14540 print "(";:print using l$;p1-(p2+p7); - print ")";TAB(t%(9)+20);:print using p$;p5:P9=P9+1 -14545 IF ucase$(U$)<>"C" THEN 14990 -14550 IF P3-(P4+P8)<0 THEN 14635 -14620 print TAB(t%(8));"PREVIOUS";TAB(t%(9));:print using l$;p3-(p4+p8); -14625 print TAB(t%(9)+20);:print using p$;p6:P9=P9+1 -14630 GOTO 14990 -14635 print TAB(t%(8));"PREVIOUS";TAB(t%(9)-1);"("; - print using l$;p3-(p4+p8);:PRINT ")"; -14640 print TAB(t%(9)+19);"(";:print using p$;p6;:PRINT ")":P9=P9+1 -14990 print TAB(t%(9));"*************";TAB(t%(9)+20);"*****":P9=P9+1 -14995 RETURN -15000 REM GET ACCOUNTS IN SUBHEAD RANGE AND PRINT -15005 A(9)=A(9)+1 -15006 IF P9>51 THEN GOSUB 9700 - read #1,a(9);n(2,1),n(2,2),k$(1,3),n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) -15105 IF N(2,2)=0 THEN 15995 - if n(2,x)=0 then 15990 -15110 IF LEFT$(S$,2)<>"SS" AND LEFT$(S$,2)<>"SX" THEN 15990 -15112 IF LEFT$(S$,2)="SS" THEN GOSUB 16000 -15115 GOSUB 30000 -15200 print TAB(t%(5)+2);K$(1,3);TAB(t%(5)+34);:print using l$;n(2,x); -15202 print TAB(t%(5)+54);:print using p$;p5:P9=P9+1 -15205 T1=T1+N(2,X):T2=T2+N(2,X):T3=T3+N(2,(X+3)):T4=T4+N(2,(X+3)) -15210 IF ucase$(U$)<>"C" THEN 15990 -15215 print TAB(t%(5)+2);"PREVIOUS";TAB(t%(5)+34);:print using l$;n(2,(x+3)); -15220 print TAB(t%(5)+54);:print using p$;p6:P9=P9+1 -15990 IF N(2,2)< S(1) THEN 15005 -15995 RETURN -16000 FOR Z=4 TO 10:N(2,Z)=N(2,Z)*(-1):NEXT Z -16995 RETURN -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO MASTER1 -20010 CLOSE 1 -20015 CLOSE 2 -20040 CLOSE 3 -20045 CONSOLE -20050 CHAIN "master1" -30000 REM THESE ROUTINES CALCULATE PERCENTAGES AND ROUND TO ONE -30001 REM DECIMAL PLACE FOR INDIVIDUAL ACCOUNTS -30005 P5=0:P6=0 -30010 P5=((N(2,X)/P1)*1000):P6=((N(2,X+3)/P3)*1000) -30015 Z=P5-INT(P5) -30020 IF Z<.5 THEN P5=P5/10 -30025 IF Z>=.5 THEN P5=(P5+1)/10 -30115 Z=P6-INT(P6) -30120 IF Z<.5 THEN P6=P6/10 -30125 IF Z>=.5 THEN P6=(P6+1)/10 -30995 RETURN -31000 REM THESE ROUTINES CALCULATE PERCENTAGES AND ROUND TO ONE -31001 REM DECIMAL PLACE FOR SUBTOTALS -31005 P5=0:P6=0 -31010 P5=((T1/P1)*1000):P6=((T3/P3)*1000) -31015 Z=P5-INT(P5) -31020 IF Z<.5 THEN P5=P5/10 -31025 IF Z>=.5 THEN P5=(P5+1)/10 -31115 Z=P6-INT(P6) -31120 IF Z<.5 THEN P6=P6/10 -31125 IF Z>=.5 THEN P6=(P6+1)/10 -31995 RETURN -32000 REM THESE ROUTINES CALCULATE PERCENTAGES AND ROUND TO ONE -32001 REM DECIMAL PLACE FOR FINAL TOTALS -32005 P5=0:P6=0 -32010 P5=((T2/P1)*1000):P6=((T4/P3)*1000) -32015 Z=P5-INT(P5) -32020 IF Z<.5 THEN P5=P5/10 -32025 IF Z>=.5 THEN P5=(P5+1)/10 -32115 Z=P6-INT(P6) -32120 IF Z<.5 THEN P6=P6/10 -32125 IF Z>=.5 THEN P6=(P6+1)/10 -32995 RETURN -33000 REM THESE ROUTINES CALCULATE PERCENTAGES AND ROUND TO ONE -33001 REM DECIMAL PLACE FOR GROSS PROFIT -33005 P5=0:P6=0 -33010 P5=(((P1-P2)/P1)*1000):P6=(((P3-P4)/P3)*1000) -33015 Z=P5-INT(P5) -33020 IF Z<.5 THEN P5=P5/10 -33025 IF Z>=.5 THEN P5=(P5+1)/10 -33115 Z=P6-INT(P6) -33120 IF Z<.5 THEN P6=P6/10 -33125 IF Z>=.5 THEN P6=(P6+1)/10 -33995 RETURN -34000 REM THESE ROUTINES CALCULATE PERCENTAGES AND ROUND TO ONE -34001 REM DECIMAL PLACE FOR NET PROFIT -34005 P5=0:P6=0 -34010 P5=(((P1-P2-P7)/P1)*1000):P6=(((P3-P4-P8)/P3)*1000) -34015 Z=P5-INT(P5) -34020 IF Z<.5 THEN P5=P5/10 -34025 IF Z>=.5 THEN P5=(P5+1)/10 -34115 Z=P6-INT(P6) -34120 IF Z<.5 THEN P6=P6/10 -34125 IF Z>=.5 THEN P6=(P6+1)/10 -34995 RETURN diff --git a/bwbtest/C77B/GLJOPOST.BAS b/bwbtest/C77B/GLJOPOST.BAS deleted file mode 100644 index 109f3b4..0000000 --- a/bwbtest/C77B/GLJOPOST.BAS +++ /dev/null @@ -1,205 +0,0 @@ -1 rem This is the General Journal Posting Program - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(3,20) - first=8:last=18 - -fa$="DATE /...5../ /...5...10...15...20.../ " -fa$=fa$+" PAGE ####" -fb$=" *** GENERAL JOURNAL ***" -fb1$=" -----------------------" -fc$=" REF # DATE DESCRIPTION ACCOUNT #" -fc$=fc$+" AMOUNT NET" -fd$="######## /...5../ /...5...10...15...20.../ ##########" -fd$=fd$+" ###,###.##-" -fd1$=" /...5../ /...5...10...15...20.../ ##########" -fd1$=fd1$+" ###,###.##-" -fd2$="######## /...5../ /...5...10...15...20.../ " -fd2$=fd2$+" ###,###.##-" -fe$=" ##########" -fe$=fe$+" ###,###.##-" -fe1$=" ##########" -fe1$=fe1$+" ###,###.##- ###,###.##-" -ff$=" /...5...10...1/" -ff$=ff$+" ##,###,###.##-*" - -fg$="DATE /...5../ /...5...10...15...20.../ " -fg$=fg$+" PAGE ####" -fh$=" *** GENERAL LEDGER ***" -fh1$=" ----------------------" -fi$=" ACCOUNT # DESCRIPTION REF # " -fi$=fi$+"BAL.FWRD. CURRENT BALANCE" -fj$="########## /...5...10...15...20...25...3/ ##,###,###.##-" -fk$=" /.../ /...5...10...15...20.../ ######## " -fk$=fk$+" ##,###,###.##-" -fl$=" " -fl$=fl$+" ##,###,###.##-* ##,###,###.##-" - -1000 PRINT clear$:PRINT -1002 PRINT "BEFORE PROCEEDING, IT IS A GOOD PRACTICE TO BACK UP" -1005 PRINT "BOTH THE GENERAL LEDGER FILE AND THE GENERAL JOURNAL FILE" -1010 PRINT "BY MAKING COPIES USING THE DISKCOPY FACILITY OF YOUR DOS." -1015 PRINT:PRINT"IF YOU ARE UNFAMILIAR WITH THE PROCESS, ASK YOUR" -1020 PRINT "SYSTEM SUPERVISOR FOR HELP.":PRINT -1025 PRINT "IF THIS HAS BEEN DONE; TYPE Y TO CONTINUE!" -1030 INPUT line temp$ -1035 IF left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" THEN CHAIN "master11" - -1540 PRINT clear$:PRINT -1545 PRINT "PUT THE GENERAL LEDGER DISK IN DRIVE B":PRINT -1550 PRINT "PUT THE GENERAL JOURNAL DISK IN DRIVE A":PRINT -1555 PRINT "TYPE RETURN WHEN READY":INPUT line temp$ - initialize -2000 PRINT clear$:PRINT -2005 PRINT "LOADING ACCOUNT NUMBER TABLES":PRINT -2010 PRINT "*** PLEASE WAIT ***" -2020 open "glref" as 1 - read #1;z2 - zn%=z2+2 - dim h(zn%),ref%(zn%) - for z=1 to z2 - read #1;h(z) - next z - close 1 -3070 N(2,1)=8:N(2,2)=24:N(2,3)=24:N(2,4)=1 -4000 REM THIS IS THE ACTUAL POSTING PROGRAM -4010 open "gl" recl 138 as 1 - open "gljo" recl 250 as 2 -4015 P9=100:PAGE=0 -4030 GOSUB 20000 -4100 LPRINTER -4500 I=1 -4505 read #2,i;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -4510 IF N(0,2)=0 THEN GOTO 10000 rem Get out when finished -4515 IF FLAG$="P" THEN 4540 -4525 IF P9>60 THEN GOSUB 9000 -4530 GOSUB 5000 -4532 IF P9>60 THEN GOSUB 9000 -4534 GOSUB 5100 -4536 IF P9>60 THEN GOSUB 9000 -4540 I=I+1:GOTO 4505 -5000 REM SUBROUTINE TO PAST AND PRINT TOTALS -5002 IF N(0,2)=0 THEN 5050 -5003 FOR Z4=1 TO Z2 -5004 IF N(0,2)=H(Z4) THEN read #1,z4;n(1,1),n(1,2),r$,n(1,4),n(1,5), n(1,6),n(1,7),n(1,8),n(1,9),n(1,10):goto 5006 -5005 NEXT Z4 -5006 FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,7):NEXT X -5050 RETURN - -5100 NU.LEFT%=0:NU.TRAN%=0:NET.AMT=0 - FOR B=FIRST TO LAST STEP 2 - IF N(0,B)<>0 THEN NU.TRAN%=NU.TRAN%+1: NET.AMT=NET.AMT+N(0,B+1) - NEXT B -5110 IF N(0,7)=0 THEN PRINT USING FD2$;N(0,1),LEFT$(Q$,8), MID$(Q$,9,24),N(0,7):P9=P9+1:GOTO 5235 -5115 FOR J=first to last STEP 2 -5120 IF N(0,J)=0 THEN 5220 -5125 FOR Z4=1 TO Z2 -5130 IF N(0,j)=H(Z4) THEN read #1,z4;n(1,1),n(1,2),r$,n(1,4),n(1,5), n(1,6),n(1,7),n(1,8),n(1,9),n(1,10):goto 5140 -5135 NEXT Z4 -5140 IF NU.TRAN%>1 THEN GOSUB 5400 ELSE GOTO 5142 - GOTO 5145 -5142 PRINT USING FD$;N(0,1),LEFT$(Q$,8),MID$(Q$,9,24),N(0,J),N(0,J+1) -5145 P9=P9+1 -5170 FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,J+1):NEXT X -5220 NEXT J -5225 IF N(0,7)=0 THEN PRINT USING FD2$;N(0,1),LEFT$(Q$,8), MID$(Q$,9,24),N(0,7):P9=P9+1 -5235 RETURN -5400 IF NU.LEFT%=1 THEN PRINT USING FE1$;N(0,J),N(0,J+1),NET.AMT: NU.LEFT%=NU.LEFT%-1:RETURN -5420 IF NU.LEFT%>1 THEN PRINT USING FE$;N(0,J),N(0,J+1): NU.LEFT%=NU.LEFT%-1:RETURN -5430 PRINT USING FD$;N(0,1),LEFT$(Q$,8),MID$(Q$,9,24), N(0,J),N(0,J+1):NU.LEFT%=NU.TRAN%-1 -5440 RETURN - -9000 P9=0:PAGE=PAGE+1 -9005 PRINT CHR$(12) -9010 PRINT USING FA$;D$(4),MID$(CO.NAME$,25,24),PAGE -9015 PRINT FB$ -9020 PRINT FB1$ -9025 PRINT FC$ -9030 PRINT:P9=P9+6 -9095 RETURN -10000 dr$="TOTAL DEBITS":cr$="TOTAL CREDITS" -10010 PRINT USING FF$;dr$,DEBIT -10020 PRINT USING FF$;cr$,CREDIT -10030 GOSUB 30000 -10040 console -10050 CLOSE 1:CLOSE 2 -10100 PRINT "PUT DISK #1 BACK IN DRIVE A - TYPE TO CONTINUE" -10105 INPUT line temp$ - if size("master11.int")<1 then 10100 -10110 lprinter -10115 print chr$(12):for z=1 to 100:next z:print chr$(12) -10120 console -10195 chain"master11" -20000 console:PRINT clear$:PRINT -20010 PRINT "*** VALIDATING ACCOUNT NUMBERS ***" -20020 PRINT:PRINT "PLEASE WAIT" -20030 I=1 -20040 read #2,i;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -20050 IF N(0,2)=0 THEN 29975 -20055 IF FLAG$="P" THEN 21010 -20062 FOR Z4=1 TO Z2 - IF N(0,2)=H(Z4) THEN 20070 - NEXT Z4 -20064 J=2:GOTO 20500 -20070 CASH.OUT=CASH.OUT+N(0,7):ACCT.NUM=N(0,2) -20072 IF N(0,7)<0 THEN CREDIT=CREDIT+N(0,7):REF%(Z4)=REF%(Z4)+1 -20074 IF N(0,7)>0 THEN DEBIT=DEBIT+N(0,7):REF%(Z4)=REF%(Z4)+1 -20076 FOR J=first to last STEP 2 -20080 FOR Z4=1 TO Z2 -20085 IF N(0,J)=0 THEN 21000 -20090 IF N(0,J)=H(Z4) THEN 21000 -20100 NEXT Z4 -20500 lprinter - print:print n(0,j);" in record ";i;" is not a VALID account number!" - abort = 1 - console - IF J=2 THEN 20076 -21000 IF N(0,J+1)<0 THEN CREDIT=CREDIT+N(0,J+1):REF%(Z4)=REF%(Z4)+1 -21002 IF N(0,J+1)>0 THEN DEBIT=DEBIT+N(0,J+1):REF%(Z4)=REF%(Z4)+1 -21004 NEXT J -21010 I=I+1 -21020 GOTO 20040 -29975 PRINT clear$:PRINT - if abort = 1 then print "*** POSTING ABORTED !!! ***":GOTO 10050 -29980 PRINT "*** POSTING ***" -29985 PRINT:PRINT "PLEASE WAIT" -29995 RETURN -30000 P9=100:PAGE=0 -30005 IF P9>60 THEN GOSUB 31000 -30010 OPEN "GLJOSIZE" AS 20:READ #20;LIMIT,DUMMY:CLOSE 20 - LIMIT=LIMIT-1 -30100 FOR I=1 TO Z2 -30200 IF REF%(I)=0 THEN 30795 -30300 READ #1,I;N(1,1),N(1,2),R$,N(1,4),N(1,5),N(1,6),N(1,7), N(1,8),N(1,9),N(1,10) -30305 PRINT USING FJ$;N(1,2),R$,N(1,6):P9=P9+1 -30310 CURRENT=0 -30500 FOR K=1 TO LIMIT -30510 read #2,K;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -30512 IF FLAG$="P" THEN 30580 -30515 IF N(0,2)=N(1,2) AND N(0,7)<>0 THEN PRINT USING FK$;LEFT$(Q$,5), MID$(Q$,9,24),N(0,1),N(0,7):FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,7):NEXT X: CURRENT=CURRENT+N(0,7):P9=P9+1:REF%(I)=REF%(I)-1 -30520 IF P9>60 THEN GOSUB 31000 -30530 IF REF%(I)=0 THEN K=LIMIT:GOTO 30580 -30550 FOR J1=FIRST TO LAST STEP 2 -30555 IF N(0,J1)=N(1,2) AND N(0,J1+1)<>0 THEN PRINT USING FK$;LEFT$(Q$,5), MID$(Q$,9,24),N(0,1),N(0,J1+1):FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,J1+1): NEXT X:CURRENT=CURRENT+N(0,J1+1):P9=P9+1:REF%(I)=REF%(I)-1 -30560 IF P9>60 THEN GOSUB 31000 -30566 IF REF%(I)=0 THEN K=LIMIT:GOTO 30580 -30570 NEXT J1 -30580 NEXT K -30600 PRINT USING FL$;CURRENT,N(1,6):P9=P9+1 -30650 PRINT #1,I;N(1,1),N(1,2),R$,N(1,4),N(1,5),N(1,6),N(1,7), N(1,8),N(1,9),N(1,10) -30655 PRINT:PRINT:P9=P9+2 -30660 IF P9>60 THEN GOSUB 31000 -30795 NEXT I -30800 FOR I=1 TO LIMIT -30810 read #2,I;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -30815 FLAG$="P" -30820 print #2,I;N(0,1),N(0,2),Q$,N(0,7),N(0,8),N(0,9), N(0,10),N(0,11),N(0,12),N(0,13),N(0,14),N(0,15),N(0,16), N(0,17),N(0,18),N(0,19),FLAG$ -30825 NEXT I -30995 RETURN -31000 PRINT CHR$(12):P9=0:PAGE=PAGE+1 -31005 PRINT USING FG$;D$(4),MID$(CO.NAME$,25,24),PAGE -31010 PRINT FH$ -31015 PRINT FH1$ -31020 PRINT FI$ -31025 PRINT:P9=P9+6 -31095 RETURN diff --git a/bwbtest/C77B/GLJOSORT.BAS b/bwbtest/C77B/GLJOSORT.BAS deleted file mode 100644 index eeb80f4..0000000 --- a/bwbtest/C77B/GLJOSORT.BAS +++ /dev/null @@ -1,115 +0,0 @@ - -1 rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="gljo":z6$="gljoback":z7$="gljosize":RL=250 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - NEXT Z - - for z=1 to 20:n(2,z)=0:next z:n$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,7),N(2,8), N(2,9),N(2,10),N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19),FLAG$ - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "gljotran" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "gljotran" diff --git a/bwbtest/C77B/GLJOTRAN.BAS b/bwbtest/C77B/GLJOTRAN.BAS deleted file mode 100644 index 0c1c5b5..0000000 --- a/bwbtest/C77B/GLJOTRAN.BAS +++ /dev/null @@ -1,326 +0,0 @@ -1 rem This is the General Journal Transaction Entry Program - -%INCLUDE ALL.BAS -500 dim k$(6,20),n(2,20) - repeat$="-----------------------------" - fill$=" " - z5$="gljo":z6$="gljoback":z7$="gljosize" - L$="$#,###,###,###.##" -535 FOR Z=1 TO 72:delim$=delim$+"=":NEXT Z -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - DELETE EXISTING ENTRY" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - BACK-UP AND SORT FILE":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" -1200 K$(2,1)="1 - TAG ":K$(2,2)="2 - MAJ ACCT #":K$(2,3)="3 - DATE" -1205 K$(2,4)="4 - TO RECORD":K$(2,5)="5 - REMARKS" -1210 K$(2,6)="6 - NOT USED":K$(2,7)="7 - MAJOR AMOUNT" -1280 K$(2,20)="20- NONE" - k$(2,8)="1st Entry Acct #" - k$(2,9)="1st Entry Amount" - k$(2,10)="2nd Entry Acct #" - k$(2,11)="2nd Entry Amount" - k$(2,12)="3rd Entry Acct #" - k$(2,13)="3rd Entry Amount" - k$(2,14)="4th Entry Acct #" - k$(2,15)="4th Entry Amount" - k$(2,16)="5th Entry Acct #" - k$(2,17)="5th Entry Amount" - k$(2,18)="6th Entry Acct #" - k$(2,19)="6th Entry Amount" -1285 N(1,1)=6:N(1,2)=10:N(1,3)=8:N(1,4)=24:N(1,5)=24:N(1,6)=1 -1290 N(1,7)=12:N(1,8)=10:N(1,9)=12:N(1,10)=10:N(1,11)=12:N(1,12)=10 -1292 N(1,13)=12:N(1,14)=10:N(1,15)=12:N(1,16)=10:N(1,17)=12 -1295 N(1,18)=10:N(1,19)=12 - print clear$:print - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 250 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "GENERAL JOURNAL ENTRY PROGRAM" - PRINT "-----------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:N$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -1702 new$="" -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT k$(2,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z - K$(3,3)=D$(1) -2036 FOR Z=4 TO 6 - PRINT CUR$ -2037 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2038 PRINT k$(2,Z);TAB(30); -2039 INPUT LINE K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2040 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ -2045 NEXT Z -2050 PRINT "YOU MAY DISTRIBUTE MONIES OVER 7 ACCOUNTS. THE FIRST ACCOUNT" -2052 PRINT "NUMBER HAS ALREADY BEEN ENTERED. ENTER THE AMOUNT NEXT ;FOLLOWED" -2053 PRINT "BY UP TO 6 ADDITIONAL ACCOUNT NUMBERS AND AMOUNTS.":PRINT -2056 PRINT "DEBITS SHOULD BE ENTERED AS POSITIVE AMOUNTS - CREDITS AS" -2058 PRINT "NEGATIVE AMOUNTS. THE MAJOR ACCOUNT # IS USED AS A POSTING" -2060 PRINT "REFERENCE FOR THE MAJOR AMOUNT.":PRINT -2063 INPUT "ENTER NUMBER OF DISTRIBUTIONS YOU WISH TO MAKE - ";Z5 -2064 Z5=(Z5*2)+7 -2065 FOR Z=7 TO Z5 - PRINT CUR$ -2070 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2075 PRINT k$(2,Z);TAB(30); -2080 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2085 NEXT Z -2090 N$="" -2095 FOR Z=3 TO 6:N$=N$+K$(3,Z):NEXT Z -2100 Z1=Z2 -2105 gosub 11000 -2163 PRINT"TO MAKE A CHANGE, TYPE THE APPROPRIATE #. IF NONE TYPE 20, RETURN" -2164 INPUT Z -2165 IF Z>19 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>2 AND Z<7 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT k$(2,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2205 PRINT k$(2,Z);TAB(30); -2210 INPUT line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2220 FOR Z=3 TO 6:N$=N$+K$(3,Z):NEXT Z -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 250 as 1 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN -3015 open z5$ recl 250 as 1 - read #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) -3022 Z9=1:FOR Z=3 TO 6:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):next z -3025 CLOSE 1 -3105 GOSUB 11000 -3170 PRINT"FOR A NEW RECORD, TYPE N - TYPE F IF FINISHED.":INPUT line temp$ -3190 IF temp$="n" or temp$="N" THEN 3000 -3195 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -4030 open z5$ recl 250 as 1 - read #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) -4036 Z9=1:FOR Z=3 TO 6:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -4040 CLOSE 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -5030 open z5$ recl 250 as 1 - read #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) -5036 Z9=1:FOR Z=3 TO 6:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -5040 CLOSE 1 -5105 GOSUB 11000 -5200 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5205 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5210 IF temp$<>"YES" THEN 5200 -5215 N(2,1)=0 -5220 open z5$ recl 250 as 1 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) -5230 close 1 -5235 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A GENERAL JOURNALS FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF temp$="c" OR temp$="C" THEN INITIALIZE:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";Z3 -6055 PRINT -6060 n$="":for z=1 to 70:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:next z - create z5$ recl 250 as 1 -6070 for z1=1 to z3+2 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - next z1 - close 1 -6095 PRINT clear$:PRINT -6100 PRINT "GENERAL JOURNALS FILE CREATED AND CLEARED.":PRINT -6105 PRINT Z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 open z5$ recl 250 as 1 - n$="":for z=1 to 70:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:next z -7006 INPUT "ARE YOU SURE !!! (YES OR NO)";temp$ -7007 IF temp$<>"YES" THEN close 1:return -7010 FOR Z1=1 TO Z3+2 - print #1,z1; N(2,1),N(2,2),N$,N(2,7),N(2,8),N(2,9),N(2,10), N(2,11),N(2,12),N(2,13),N(2,14), N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) -7025 next z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "GENERAL JOURNALS FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 CHAIN "GLJOSORT" -9000 print clear$:print:print "listing" - p1=1:p2=1:p3=2 - t3=0:t4=0:t5=0 - lprinter - open z5$ recl 250 as 1 - for z0=1 to (z2/2)+1 - gosub 9500 - gosub 9100 - if n(2,2)=0 then gosub 9800:goto 9090 - gosub 9300 - next z0 - print chr$(12) -9090 console - return -9100 for z1=p2 to p3 - read #1,z1;n(2,1),n(2,2),n$,n(2,7),n(2,8),n(2,9),n(2,10), n(2,11),n(2,12),n(2,13),n(2,14),n(2,15),n(2,16),n(2,17), n(2,18),n(2,19) - z9=1:for z=3 to 10:k$(3,z)=mid$(n$,z9,n(1,z)):z9=z9+n(1,z):next z - if n(2,2)=0 then 9170 - t5=t5+n(2,7) - t1=0:t2=0 - print:print:print - gosub 11000 - next z1 - p2=p2+2:p3=p3+2 -9170 return -9300 print - print "report continues on next page" - print - print chr$(12) - return -9500 print - print - print tab(66);"Page Number ";p1:p1=p1+1 - print:print - return -9800 print - print "*** Summary ***":print - print "Total Debits";tab(35);:print using l$;t3 - print "Total Credits";tab(55);:print using l$;t4 - print "Difference";tab(55);:print using l$;t3+t4:print - print - print "end of report" - print chr$(12):for z=1 to 100:next z: print chr$(12) - close 1 - return -10000 CHAIN "master11" -11000 PRINT clear$; - T1=0:T2=0 - PRINT "RECORD NUMBER";Z1;TAB(31);"GENERAL JOURNAL ENTRY" - PRINT K$(2,1);TAB(16);N(2,1);TAB(24);K$(2,2);N(2,2); - PRINT TAB(51);K$(2,3);TAB(62);K$(3,3) - PRINT K$(2,4);TAB(21);K$(3,4) - PRINT K$(2,5);TAB(21);K$(3,5);TAB(51);K$(2,6);K$(3,6) - PRINT K$(2,7);TAB(21);:print using l$;n(2,7) - if n(2,7)<=0 then T2=T2+N(2,7) - if n(2,7)>0 then t1=t1+n(2,7) - PRINT delim$ - PRINT "POSTING #";TAB(11);"ACCT #";TAB(35);"DEBIT";TAB(55);"CREDIT" - PRINT delim$ - PRINT "#1";TAB(11);"8 -";N(2,8);TAB(31);"9 -"; - IF N(2,9)<=0 THEN PRINT TAB(55);:print using l$;n(2,9):T2=T2+N(2,9) - IF N(2,9)>0 THEN PRINT TAB(35);:print using l$;n(2,9):T1=T1+N(2,9) - PRINT "#2";TAB(11);"10-";N(2,10);TAB(31);"11-"; - IF N(2,11)<=0 THEN PRINT TAB(55);:print using l$;n(2,11):T2=T2+N(2,11) - IF N(2,11)>0 THEN PRINT TAB(35);:print using l$;n(2,11):T1=T1+N(2,11) - PRINT "#3";TAB(11);"12-";N(2,12);TAB(31);"13-"; - IF N(2,13)<=0 THEN PRINT TAB(55);:print using l$;n(2,13):T2=T2+N(2,13) - IF N(2,13)>0 THEN PRINT TAB(35);:print using l$;n(2,13):T1=T1+N(2,13) - PRINT "#4";TAB(11);"14-";N(2,14);TAB(31);"15-"; - IF N(2,15)<=0 THEN PRINT TAB(55);:print using l$;n(2,15):T2=T2+N(2,15) - IF N(2,15)>0 THEN PRINT TAB(35);:print using l$;n(2,15):T1=T1+N(2,15) - PRINT "#5";TAB(11);"16-";N(2,16);TAB(31);"17-"; - IF N(2,17)<=0 THEN PRINT TAB(55);:print using l$;n(2,17):T2=T2+N(2,17) - IF N(2,17)>0 THEN PRINT TAB(35);:print using l$;n(2,17):T1=T1+N(2,17) - PRINT "#6";TAB(11);"18-";N(2,18);TAB(31);"19-"; - IF N(2,19)<=0 THEN PRINT TAB(55);:print using l$;n(2,19):T2=T2+N(2,19) - IF N(2,19)>0 THEN PRINT TAB(35);:print using l$;n(2,19):T1=T1+N(2,19) - PRINT TAB(35);"=================";TAB(55);"=================" - PRINT "TOTALS";TAB(35);:print using l$;t1;TAB(55);:print using l$;t2 - PRINT:PRINT "DIFFERENCE";TAB(55);:print using l$;t1+t2:PRINT - t3=t3+t1:t4=t4+t2 - return -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 250 as 1 - z3=(size(z5$)*block.size)/250 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/GLOSSARY.TXT b/bwbtest/C77B/GLOSSARY.TXT deleted file mode 100644 index 0885fdf..0000000 --- a/bwbtest/C77B/GLOSSARY.TXT +++ /dev/null @@ -1,135 +0,0 @@ -.pl 66 - GLOSSARY OF TERMS - -Alphanumeric A set of characters consisting of - either the letters A through Z, the - digits 0 through 9, special symbols, - or a combination of all of these. For - example, the set of characters, MISC. - #2, is alphanumeric - -Backup Stored data files which can be used if - the original files are lost or incorrect. - -BASIC BASIC is an acronym which stands for - Beginners All-purpose Symbolic - Instruction Code. Basic is the - computer programming language used - with user-oriented computers. - -Character One of a set of elements which may be - arranged in ordered groups to express - information. Characters include the - letters A through Z, the digits 0 - through 9, punctuation marks, and - other special symbols. - -Data Information in the form of letters, - numbers, symbols, etc., which the - computer processes or produces. - -Default Value A value assigned automatically by the - computer when the operator does not - enter any information before pressing - the RETURN or ENTER key. - -Disk Cartridge A large volume data storage device - which consists of a rigid platter with - a magnetic coating. Sometimes one or - more of these platters are enclosed in a - plastic cartridge. A disk cartridge is - also called a hard disk. - - -Diskette A data storage device which is coated - with magnetic recording material and - looks like a 45-rpm phonograph record - enclosed in a plastic envelope. The - diskette and plastic envelope are - inserted into the disk drive together. - A diskette is also called a floppy - disk or a flexible disk. - -Disk Unit or The electronic machine and housing -Disk Drive used to store and retrieve information - on a disk cartridge or diskette. When - several disk units are used simultane- - ously, each one is assigned a number - beginning with 0, 1, 2, etc, or in CP/M, - A:, B:, C:, etc. - -Field A single item of information. For - example, a field within the general - ledger would be the Description. - Another field in this file would be the - Tag. - -File A group of related records on the - diskette. Each file has a name by which - it is accessed. An example of this is - the General ledger file, which records - all GL and Posting for print-out. - -FORMAT Format is a system related program used - to prepare new diskette for use or an - old diskette for re-use. Formatting - DESTROYS all data on the diskette. For - more information on formatting consult - the system manual. - -Input Information which is entered into a - computer from outside via the type- - writer-like keyboard attached to the - video unit. - - -Memory A capacity for storage of programs and - data being used by the computer. - -Menu A computer video display of options - available to the operator. - -Numeric Description of numerical information. - For example, the set of characters - "012345" is numeric. - -Output Information transferred from the - computer memory to output devices such - as a printer or video unit. - -Password A code word which must be entered - before the computer will allow the - operator to perform tasks. - -Processing The programmed computations and - actions by which the computer uses - input data to produce output data. - -Program A set of sequential instructions which - direct the computer in performing the - desired operations. - -Prompt A computer message on the video unit - which indicates that the operator - should key in response. - -Record Collected information fields which - make up a file. - -Software The software portion of a computer - system includes programs, procedures - and computer languages. Hardware refers - to the mechanical devices used, such as - the disk drive, printer, computer, and - video unit. - - -Tag Is a field used in this package it must - be Non-zero or the record will be - considered deleted. A suggestion is - make the tag equal to the Record number. - -Video Unit or A device which has a T.V. like screen -Terminal for displaying data and a typewriter- - like keyboard for entering data. - diff --git a/bwbtest/C77B/GLSENTRY.BAS b/bwbtest/C77B/GLSENTRY.BAS deleted file mode 100644 index e5cb1f3..0000000 --- a/bwbtest/C77B/GLSENTRY.BAS +++ /dev/null @@ -1,327 +0,0 @@ -1 rem This is the General Ledger Subheading Entry Program - -%INCLUDE ALL.BAS -500 RESTORE -505 z5$="gls" -506 z6$="glsback" - z7$="glssize" -515 repeat$="-------------------------------" -516 fill$=" " -520 dim z$(5,5),n(2,20),k$(6,20) - for z=1 to 80:delim$=delim$+"*":next z - for z=1 to 80:delim1$=delim1$+"=":next z -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - DELETE EXISTING ENTRY" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - BACK-UP AND SORT FILE":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" -1000 rem THIS IS THE GENERAL LEDGER SUBHEADINGS ENTRY PROGRAM -1005 PRINT clear$ -1010 PRINT -1075 K$(1,1)="TAG":K$(1,2)="LEDGER ACCOUNT NUMBER":K$(1,3)="DESCRIPTION" -1080 K$(1,4)="FIRST ACCOUNT NUMBER":K$(1,5)="LAST ACCOUNT NUMBER" -1085 K$(1,6)="M-T-D TOTAL":K$(1,7)="Q-T-D TOTAL" -1090 K$(1,8)="Y-T-D TOTAL":K$(1,9)="M-T-D PERCENTAGE" -1095 K$(1,10)="Q-T-D PERCENTAGE":K$(1,11)="Y-T-D PERCENTAGE" -1105 K$(2,1)="1 - TAG":K$(2,2)="2 - LEDGER ACCOUNT NUMBER" -1106 K$(2,3)="3 - DESCRIPTION" -1110 K$(2,4)="4 - FIRST ACCOUNT NUMBER":K$(2,5)="5 - LAST ACCOUNT NUMBER" -1115 K$(2,6)="6 - M-T-D TOTAL":K$(2,7)="7 - Q-T-D TOTAL" -1120 K$(2,8)="8 - Y-T-D TOTAL":K$(2,9)="9 - M-T-D PERCENTAGE" -1125 K$(2,10)="10- Q-T-D PERCENTAGE":K$(2,11)="11- Y-T-D PERCENTAGE" -1130 K$(2,12)="12- NONE" -1135 N(1,1)=4:N(1,2)=10:N(1,3)=30:N(1,4)=10:N(1,5)=10:N(1,6)=12 -1140 N(1,7)=12:N(1,8)=12:N(1,9)=12:N(1,10)=12:N(1,11)=12 - print clear$:print - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 150 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "GENERAL LEDGER SUBHEADING ENTRY PROGRAM" - PRINT "---------------------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN Z$(1,1)="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:n$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -1702 Z$(1,1)="":H$="" -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2010 PRINT "TYPE OF SUBHEADING - A=ASSETS, L=LIABILITIES," -2012 PRINT "E=EQUITY, S=SALES, OR X=EXPENSES." -2013 input line S$:S$="S"+S$ - if s$<>"SA" and s$<>"SL" and s$<>"SE" and s$<>"SS" and s$<>"SX" then 2010 -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2040 Z=3 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 input line k$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2060 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=s$+K$(3,Z)+left$(fill$,I) - PRINT CLEAR$ -2065 FOR Z=4 TO 11 - PRINT CUR$ -2070 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2075 PRINT K$(1,Z);TAB(30); -2080 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2085 NEXT Z -2090 N$="" -2095 N$=K$(3,3) -2100 Z1=Z2 -2105 PRINT clear$:PRINT -2110 PRINT "RECORD NUMBER";Z1:PRINT -2115 FOR Z=1 TO 2 -2120 PRINT K$(2,Z);TAB(30);N(2,Z) -2125 NEXT Z -2135 PRINT K$(2,3);TAB(30);K$(3,3) -2140 FOR Z=4 TO 5:PRINT K$(2,Z);TAB(30);N(2,Z):NEXT Z -2141 FOR Z=6 TO 8:PRINT K$(2,Z);TAB(30); -: print using "##,###,###.##";n(2,z) -:NEXT Z -2142 FOR Z=9 TO 11:PRINT K$(2,Z);TAB(30);"% ";N(2,Z):NEXT Z -2145 Z=12:PRINT K$(2,Z):PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>11 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z=3 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT "TYPE OF SUBHEADING - A=ASSETS, L=LIABILITIES," -2201 PRINT "E=EQUITY, S=SALES, OR X=EXPENSES." -2202 input line S$:S$="S"+S$ - if s$<>"SA" and s$<>"SL" and s$<>"SE" and s$<>"SS" and s$<>"SX" then 2200 -2204 PRINT TAB(30);left$(repeat$,n(1,z)) -: PRINT UP$; -2205 PRINT K$(1,Z);TAB(30); -2210 input line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=s$+K$(3,Z)+left$(fill$,I) -2216 N$="" -2220 N$=K$(3,3) -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT - if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2280 - if left$(temp$,1)<>"n" and left$(temp$,1)<>"N" then 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 150 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - close 1 -2295 IF Z$(1,1)="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN - open z5$ recl 150 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - close 1 -3030 PRINT -3035 FOR Z=1 TO 2 -3040 PRINT K$(1,Z);TAB(30);N(2,Z) -3045 NEXT Z -3055 PRINT K$(1,3);TAB(30);N$ -3060 FOR Z=4 TO 5:PRINT K$(1,Z);TAB(30);N(2,Z):NEXT Z -3065 FOR Z=6 TO 8:PRINT K$(2,Z);TAB(30); - print using "##,###,###.##";N(2,Z):NEXT Z -3070 FOR Z=9 TO 11:PRINT K$(2,Z);TAB(30);"% ";N(2,Z):NEXT Z:PRINT -3075 PRINT "FOR A NEW RECORD NUMBER, TYPE N - RETURN.":PRINT -3080 PRINT "IF FINISHED, TYPE F - RETURN.":PRINT - input line temp$ - if left$(temp$,1)="n" or left$(temp$,1)="N" then 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 - open z5$ recl 150 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4060 K$(3,3)=N$ -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 - open z5$ recl 150 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - close 1 -5045 PRINT "RECORD NUMBER";Z1 -5050 PRINT -5055 FOR Z=1 TO 2 -5060 PRINT K$(1,Z);TAB(30);N(2,Z) -5065 NEXT Z -5070 Z=3 -5075 PRINT K$(1,Z);TAB(30);N$ -5080 FOR Z=4 TO 5:PRINT K$(1,Z);TAB(30);N(2,Z):NEXT Z -5085 FOR Z=6 TO 8:PRINT K$(1,Z);TAB(30); - print using "##,###,###.##";n(2,Z):NEXT Z -5090 FOR Z=9 TO 11:PRINT K$(1,Z);TAB(30);"%";N(2,Z):NEXT Z -5095 PRINT -5100 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ - if left$(temp$,1)="n" or left$(temp$,1)="N" then return - if temp$<>"YES" then 5095 -5115 N(2,1)=0 - open z5$ recl 150 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - close 1 -5135 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A GENERAL LEDGER SUBHEADING FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE letter c FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE letter n" -6030 PRINT "FOLLOWED BY RETURN.":PRINT - input line temp$ - if left$(temp$,1)="c" or left$(temp$,1)="C" then initialize:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";Z3 -6055 PRINT - N$="" - for z=1 to 30:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:next z - create z5$ recl 150 as 1 -6070 FOR Z1=1 TO Z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) -6085 NEXT Z1 -6090 close 1 -6095 PRINT clear$:PRINT -6100 PRINT "GENERAL LEDGER SUBHEADING FILE CREATED AND CLEARED.":PRINT -6105 PRINT Z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 input "ARE YOU SURE !!! (YES or no) ";line temp$ -7007 if temp$<>"YES" then return - N$="" - for z=1 to 20:n(2,z)=0:next z - for z=1 to 30:n$=n$+" ":next z - open z5$ recl 150 as 1 - for z1=1 to z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) - next z1 - close 1 -7035 PRINT clear$:PRINT -7040 PRINT "GENERAL LEDGER SUBHEADING FILE CLEARED!":PRINT -7045 input "TO CONTINUE, TYPE RETURN ";line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 chain "glssort" -9000 PRINT clear$:PRINT:PRINT "LISTING" -9010 P1=1:P2=1:P3=12 -9020 lprinter -9030 open z5$ recl 150 as 1 -9040 FOR Z0=1 TO Z2/12 -9050 GOSUB 9500 -9060 GOSUB 9100 -9065 IF P3>Z2 THEN GOSUB 9800:RETURN -9070 GOSUB 9300 -9080 NEXT Z0 -9085 print chr$(12) -9090 RETURN -9100 FOR Z1=P2 TO P3 - read #1,z1;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10),n(2,11) -9115 if n(2,2)=0 then return -9120 print -9130 print N(2,1);TAB(7);N(2,2);TAB(21);mid$(n$,3,30); -9135 print TAB(53);N(2,4);TAB(65);N(2,5) -9140 print using "##,###,###.##";n(2,6);tab(21);n(2,7);tab(41);n(2,8) -9145 print N(2,9);TAB(21);N(2,10);TAB(41);N(2,11) -9160 NEXT Z1 -9165 P2=P2+12:P3=P3+12 -9170 RETURN -9300 print - print - print "report continues on next page" - print -9340 print chr$(12) -9350 RETURN -9500 print delim$ -9510 print -9520 print "TAG";TAB(7);"ACCOUNT NUMBER";TAB(21);"DESCRIPTION"; -9525 print TAB(53);"1ST ACCT #";TAB(65);"2ND ACCT #" -9530 print "M-T-D TOTAL";TAB(21);"Q-T-D TOTAL";TAB(41);"Y-T-D TOTAL" -9540 print "M-T-D PERCENT";TAB(21);"Q-T-D PERCENT";TAB(41);"Y-T-D PERCENT" -9570 print TAB(66);"PAGE NUMBER ";P1:P1=P1+1 -9580 print delim1$ -9590 print -9600 RETURN -9800 print - print - print "end of report" - print -9840 print chr$(12) -9845 print chr$(12) -9850 CLOSE 1 - console -9870 RETURN -10000 print clear$:print:print "Replace disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 150 as 1 - z3=(size(z5$)*block.size)/150 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/GLSORT.BAS b/bwbtest/C77B/GLSORT.BAS deleted file mode 100644 index bd4e0bb..0000000 --- a/bwbtest/C77B/GLSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the General Ledger Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="gl":z6$="glback":z7$="glsize":RL=138 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10) - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10) - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10) - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10) - NEXT Z - - for z=1 to 20:n(2,z)=0:next z:n$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10) - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "glentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "glentry" diff --git a/bwbtest/C77B/GLSSORT.BAS b/bwbtest/C77B/GLSSORT.BAS deleted file mode 100644 index ec0bc74..0000000 --- a/bwbtest/C77B/GLSSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the General Ledger Subheading Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="gls":z6$="glsback":z7$="glssize":RL=150 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10),N(2,11) - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10),N(2,11) - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10),N(2,11) - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10),N(2,11) - NEXT Z - - for z=1 to 20:n(2,z)=0:next z:n$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,4),N(2,5), N(2,6),N(2,7),N(2,8),N(2,9),N(2,10),N(2,11) - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "glsentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "glsentry" diff --git a/bwbtest/C77B/GLTBAL.BAS b/bwbtest/C77B/GLTBAL.BAS deleted file mode 100644 index 6fbeff0..0000000 --- a/bwbtest/C77B/GLTBAL.BAS +++ /dev/null @@ -1,194 +0,0 @@ -1 rem This is the General Ledger Trial Balance Printer - -%INCLUDE ALL.BAS -500 dim n(2,12),k$(2,10),h(9),s(9),t(4,9) - RESTORE -1025 PRINT clear$:PRINT - A(9)=0 -1050 Q$="G E N E R A L L E D G E R T R I A L B A L A N C E" -3000 rem READ NAME FILE SUBROUTINE -3005 a5=t%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 rem ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(K$(0,I)) -3140 FOR Z=l9 to l8 STEP -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 rem PRINT TRIAL BALANCE -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING TRIAL BALANCE" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z - lprinter - open "gl" recl 138 as 1 - open "glh" recl 150 as 2 - open "gls" recl 150 as 3 - p9=0 -6200 GOSUB 9600 -6250 GOSUB 10000 -6300 GOSUB 11000 -6350 GOSUB 15000 -6400 rem DO PARTIAL TOTALS OR TOTALS AND TEST -6402 IF N(2,2)=0 THEN GOSUB 16000 - if n(2,2)=0 then gosub 30000 -6403 IF N(2,2)=0 THEN FOR Z=1 TO 56-P9:print:NEXT Z:GOSUB 9800 -6405 IF N(2,2)=0 THEN 20000 -6410 GOSUB 13000 -6415 IF P9>56 THEN GOSUB 9700 -6420 IF S(1)< H(1) THEN 6300 -6430 IF S(1)=H(1) THEN GOSUB 12000 -6450 GOTO 6250 -9600 rem PRINT PAGE HEADING SUBROUTINE -9605 P0=1 - GOSUB 9610 - RETURN -9610 print :P9=P9+1 -9615 print:P9=P9+1 -9616 print TAB((t%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((t%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(t%(10));D$(1);TAB(t%(11));"PAGE #";P0:P9=P9+1 -9645 print :P9=P9+1 -9650 print:P9=P9+1 -9652 print TAB(6);"ACCOUNT #";TAB(20);"DESCRIPTION" -9655 print TAB(6);"DEBIT";TAB(26);"CREDIT";tab(56);"ADJUSTMENT" -9660 P9=P9+2 -9665 print :P9=P9+1 -9670 RETURN -9700 rem REPORT CONTINUED SUBROUTINE -9705 print -9710 print "report continues on next page" -9715 print -9720 print chr$(12):P9=0 -9725 P0=P0+1 - GOSUB 9610 -9740 RETURN -9800 rem END OF REPORT ROUTINE -9810 print -9820 print "end of report" -9830 print -9840 print chr$(12) -9850 RETURN -10000 rem GET HEADING LINE AND PRINT -10005 H(9)=H(9)+1 -10006 if p9>56 then gosub 9700 - read #2,h(9);n(2,1),n(2,2),h$,h(0),h(1),h(2),h(3), h(4),h(5),h(6),h(7) -10015 print TAB(t%(4));mid$(h$,3,28):P9=P9+1 -10995 RETURN -11000 rem GET SUBHEADING LINE AND PRINT -11005 S(9)=S(9)+1 -11006 if p9>56 then gosub 9700 - read #3,s(9);n(2,1),n(2,2),s$,s(0),s(1),s(2),s(3), s(4),s(5),s(6),s(7) -11015 print TAB(t%(5));mid$(s$,3,28):P9=P9+1 -11995 RETURN -12000 rem PRINT FINAL TOTAL - print -12200 IF T4>=0 THEN 12305 -12205 Z=26 -12210 print TAB(6);"TOTAL "+MID$(H$,3,20) -12212 print TAB(Z);:print using l$;t4; -12216 print tab(66);"**************" -12217 print:print -12220 P9=P9+5 -12225 GOTO 12990 -12305 Z=6 -12310 print TAB(6);"TOTAL "+MID$(H$,3,20) -12312 print TAB(Z);:print using l$;t4; -12316 print tab(66);"**************" -12317 print:print -12320 P9=P9+5 -12990 h(2)=T4 - print #2,h(9);n(2,1),n(2,2),h$,h(0),h(1),h(2),h(3), h(4),h(5),h(6),h(7) - T4=0 -12995 RETURN -13000 rem PRINT SUBTOTALS - print -13200 IF T3>=0 THEN 13305 -13205 Z=26 -13210 print TAB(6);"TOTAL "+MID$(S$,3,20) -13213 print TAB(Z);:print using l$;t3; -13216 print tab(61);"==============" -13217 print -13220 P9=P9+4 -13225 GOTO 13990 -13305 Z=6 -13310 print TAB(6);"TOTAL "+MID$(S$,3,20) -13313 print TAB(Z);:print using l$;t3; -13316 print tab(61);"==============" -13317 print -13320 P9=P9+4 -13990 s(2)=T3 - print #3,s(9);n(2,1),n(2,2),s$,s(0),s(1),s(2),s(3), s(4),s(5),s(6),s(7) - T3=0 -13995 RETURN -15000 rem GET ACCOUNTS IN SUBHEAD RANGE AND PRINT -15005 A(9)=A(9)+1 -15006 IF P9>56 THEN GOSUB 9700 - read #1,a(9);n(2,1),n(2,2),k$(1,3),n(2,4),n(2,5),n(2,6), n(2,7),n(2,8),n(2,9),n(2,10) -15105 IF N(2,2)=0 THEN 15995 - if n(2,4)=0 then 15990 -15200 IF N(2,4)>=0 THEN 15305 -15205 Z=26 -15210 print TAB(6);N(2,2);TAB(26);K$(1,3) -15215 print TAB(Z);:print using l$;n(2,4); -15216 print tab(56);"--------------" -15220 T2=T2+N(2,4):T3=T3+N(2,4):T4=T4+N(2,4):P9=P9+3 -15225 GOTO 15990 -15305 Z=6 -15310 print TAB(6);N(2,2);TAB(26);K$(1,3) -15315 print TAB(Z);:print using l$;n(2,4); -15316 print tab(56);"--------------" -15320 T1=T1+N(2,4):T3=T3+N(2,4):T4=T4+N(2,4):P9=P9+3 -15990 IF N(2,2)< S(1) THEN 15005 -15995 RETURN -16000 print "TOTALS AND DIFFERENCE" -16055 print using l$;tab(6);t1;tab(26);t2;tab(46);t1+t2 -16995 RETURN -20000 rem ROUTINE TO CLOSE FILES AND RETURN TO BIZMII -20010 close 1 -20020 close 2 -20030 close 3 - console -20050 chain "master1" - - - -30000 print chr$(12) - s(9)=1:h(9)=1 - print "Summary of Trial Balance Headings and Subheadings" - print - p9=2 -30010 read #2,h(9);n(2,1),n(2,2),h$,h(0),h(1),h(2),h(3), h(4),h(5),h(6),h(7) - if n(2,2)=0 then return - print mid$(h$,3,28):print:p9=p9+2 -30020 read #3,s(9);n(2,1),n(2,2),s$,s(0),s(1),s(2),s(3), s(4),s(5),s(6),s(7) - print tab(5);"Total ";mid$(s$,3,28);tab(56); - print using l$;s(2) - s(2)=0:p9=p9+1 - print #3,s(9);n(2,1),n(2,2),s$,s(0),s(1),s(2),s(3), s(4),s(5),s(6),s(7) - s(9)=s(9)+1 - if s(1)4 then 300 - z5$=""+z5$ - z6$=z5$+"back":z7$=z5$+"size" - - print "Is reference no. to be zip code?";:input line temp$ - if ucase$(left$(temp$,1))="Y" then zip.flag=1 - -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)=" 2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - DELETE EXISTING ENTRY" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - BACK-UP AND SORT FILE":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" -1075 K$(1,1)="TAG":K$(1,2)="REFERENCE NUMBER":K$(1,3)="NAME" -1080 K$(1,4)="COMPANY":K$(1,5)="ADDRESS":K$(1,6)="CITY":K$(1,7)="STATE" -1085 K$(1,8)="ZIP CODE":K$(1,9)="PHONE (AAA) NNN NNNN" - for z=1 to 9:read n(1,z):next z - data 4,10,24,24,24,17,2,5,14 -1100 K$(2,1)="1 - TAG":K$(2,2)="2 - REFERENCE NUMBER":K$(2,3)="3 - NAME" -1105 K$(2,4)="4 - COMPANY":K$(2,5)="5 - ADDRESS":K$(2,6)="6 - CITY" -1110 K$(2,7)="7 - STATE":K$(2,8)="8 - ZIP CODE" -1115 K$(2,9)="9 - PHONE (AAA) NNN NNNN":K$(2,10)="10- NONE" - print clear$:print - -1500 if end #1 then 6000 - open z5$ recl 150 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 print clear$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "MAILING LIST ENTRY PROGRAM" - PRINT "--------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 THEN 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 N(2,1)=0:N(2,2)=0:N$="":new$="" -1700 FOR Z=1 TO 10:K$(3,Z)="":NEXT Z -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$ -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT line temp$:PRINT chr$(13) - PRINT CLEAR$ - n(2,z)=val(temp$) - if n(2,1)=0 then n(2,1)=z2 - if n(2,2)=0 then n(2,2)=z2 -2035 NEXT Z -2040 FOR Z=3 TO 9 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$ -2050 PRINT K$(1,Z);TAB(30); -2055 INPUT line K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2060 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ - if zip.flag=1 then n(2,2)=val(k$(3,8)) -2065 NEXT Z -2066 N$="" -2070 FOR Z=3 TO 9:N$=N$+K$(3,Z):NEXT Z -2100 Z1=Z2 -2105 PRINT clear$:PRINT -2110 PRINT "RECORD NUMBER";Z1:PRINT -2115 FOR Z=1 TO 2 -2120 PRINT K$(2,Z);TAB(30);N(2,Z) -2125 NEXT Z -2130 FOR Z=3 TO 10 -2135 PRINT K$(2,Z);TAB(30);K$(3,Z) -2140 NEXT Z -2145 PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>9 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>2 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$ -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$ -2205 PRINT K$(1,Z);TAB(30); -2210 INPUT line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2220 FOR I=3 TO 9:N$=N$+K$(3,I):NEXT I -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF ucase$(left$(temp$,1))="Y" then 2105 -2235 print -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 print -2250 if ucase$(left$(temp$,1))="Y" then 2280 -2255 if ucase$(left$(temp$,1))<>"N" then 2235 -2260 print clear$:print -2270 print "*** RECORD NOT ENTERED ***":print:print -2275 for z=1 to 200:next z:return -2280 open z5$ recl 150 as 1 - print #1,z1;n(2,1),n(2,2),n$ - close 1 -2295 if new$="N" then z2=z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 return -3000 print clear$:print -3005 input "RECORD NUMBER";z1 -3010 if z1>=z2 then 3000 -3012 if z1<1 then return -3015 open z5$ recl 150 as 1 - read #1,z1;n(2,1),n(2,2),n$ - close 1 -3030 print -3035 for z=1 to 2 -3040 print k$(1,z);tab(30);n(2,z) -3045 next z -3046 z9=1 -3050 for z=3 to 9 -3055 print k$(1,z);tab(30);mid$(n$,z9,n(1,z)) -3060 z9=z9+n(1,z) -3065 next z -3070 print -3075 print "FOR A NEW RECORD NUMBER, TYPE N - RETURN.":PRINT -3080 PRINT "IF FINISHED, TYPE F - RETURN.":PRINT -3085 input line temp$ -3090 if ucase$(temp$)="N" then 3000 -3095 return -4000 print clear$:print -4005 N$="" -4010 input "RECORD NUMBER";z1 -4015 if z1<1 then print "*** NO SUCH RECORD ***":goto 1620 -4020 if z1>z3 then print "*** OUT OF RANGE ***":goto 1620 -4025 if z1>=z2 then print "NO RECORD NUMBER";Z1:goto 1620 -4030 open z5$ recl 150 as 1 - read #1,z1;n(2,1),n(2,2),n$ - close 1 -4045 if n(2,1) = 0 then print "*** DELETED RECORD ***":GOTO 1620 -4050 Z9=1 -4055 FOR Z=3 TO 9 -4060 K$(3,Z)=MID$(N$,Z9,N(1,Z)) -4065 Z9=Z9+N(1,Z) -4070 NEXT Z -4075 GOTO 2105 -5000 PRINT clear$:print -5010 input "RECORD NUMBER";z1 -5015 if z1<1 then print "*** NO SUCH RECORD ***":goto 1620 -5020 if z1>z3 then print "*** OUT OF RANGE ***":goto 1620 -5025 if z1>=z2 then print "NO RECORD NUMBER";Z1:goto 1620 -5030 open z5$ recl 150 as 1 - read #1,z1;n(2,1),n(2,2),n$ - close 1 -5045 if n(2,1) = 0 then print "*** DELETED RECORD ***":GOTO 1620 -5050 print -5055 for z=1 to 2 -5060 print k$(1,z);tab(30);n(2,z) -5065 next z -5070 Z9=1 -5055 FOR Z=3 TO 9 -5080 print k$(1,z);tab(30);mid$(n$,z9,n(1,z)) -5085 Z9=Z9+N(1,Z) -5090 NEXT Z -5095 print -5100 input "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5105 if ucase$(left$(temp$,1))="N" then return -5110 if ucase$(temp$)<> "YES" then 5095 -5115 n(2,1)=0 -5120 open z5$ recl 150 as 1 - print #1,z1;n(2,1),n(2,2),n$ - close 1 -5135 return -6000 print clear$:print -6005 print "IF YOU HAVE ARRIVED HERE AND HAVE THIS MAILING LIST FILE" -6010 print "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6016 print "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 print -6025 print "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 print "FOLLOWED BY RETURN.":print -6035 input line temp$ -6040 if ucase$(temp$)="C" then initialize:goto 1500 -6045 print clear$:print -6050 input "NUMBER OF RECORDS DESIRED";z3 -6055 print -6060 n$="":for z=1 to 100:n$=n$+" ":next z:n(2,1)=0:n(2,2)=0 -6065 create z5$ recl 150 as 1 -6070 for z1=1 to z3+2 - print #1,z1;n(2,1),n(2,2),n$ -6085 next z1 -6090 close 1 -6095 print clear$:print -6100 print "MAILING LIST FILE ";MID$(Z5$,3,4);" CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - z2=1 - create z7$ as 1:print #1;z2,z3:close 1 -6115 goto 1500 -7000 n$="":for z=1 to 100:n$=n$+" ":next z:n(2,1)=0:n(2,2)=0 -7006 input "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 if ucase$(temp$)<> "YES" then return - open z5$ recl 150 as 1 -7010 for z1=1 to z3+2 - print #1,z1;n(2,1),n(2,2),n$ -7025 next z1 -7030 close 1 -7035 print clear$:print -7040 print "MAILING LIST FILE ";mid$(z5$,3,4);" CLEARED!":PRINT -7045 print "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - z2=1 - open z7$ as 1:print #1;z2,z3:close 1 -7060 return -8000 chain "MASORT" -9000 print clear$:print -9010 input "Enter number of lines per page.";page -9015 page1=1 -9020 print clear$:print -9030 lprinter -9035 open z5$ recl 150 as 1 -9040 for z1=1 to z2-1 -9045 read #1,z1;n(2,1),n(2,2),n$ -9050 z9=1 -9055 for z=3 to 9 -9060 k$(3,z)=mid$(n$,z9,n(1,z)) -9065 z9=z9+n(1,z) -9070 next z -9100 print using fmt1$;z1,n(2,1),n(2,2),k$(3,3) -9101 print using fmt2$;k$(3,4),k$(3,5),k$(3,6),k$(3,7),k$(3,8),k$(3,9) -9105 page1=page1+2 -9110 if page1>page then print chr$(12):page1=1 -9120 next z1 -9150 print chr$(12):for z=1 to 100:next z:print chr$(12) - console -9155 return -10000 chain "master6" diff --git a/bwbtest/C77B/MALABELS.BAS b/bwbtest/C77B/MALABELS.BAS deleted file mode 100644 index a0d5994..0000000 --- a/bwbtest/C77B/MALABELS.BAS +++ /dev/null @@ -1,85 +0,0 @@ -1 rem This is the mailing label printing program. - -%INCLUDE ALL.BAS -500 RESTORE -1000 DIM K$(14),N(2,14) -1020 DIM A$(5),B$(5),C$(5),DA$(5),E$(5),F$(5) - for z=3 to 8:read n(0,z):next z - data 24,24,24,17,2,5 - print clear$:print -1050 PRINT -1060 PRINT "THIS IS THE MAILING LABEL PRINTING ROUTINE." -1070 PRINT -1080 PRINT "IF YOU ARE NOT FAMILIAR WITH ITS OPERATION, PLEASE" -1090 PRINT "READ THE INSTRUCTIONS BEFORE PROCEEDING." -1100 PRINT:PRINT - print "Enter the name of the mailing list file, i.e. MA0." - input line z5$ - if len(z5$)>8 then 1100 - z5$=""+z5$:z7$=z5$+"size" - print -1110 INPUT"HOW MANY LABELS ACROSS THE PAGE (1 TO 5)";M -1120 PRINT:PRINT -1125 PRINT "INDICATE THE DISTANCE BETWEEN THE LEFT EDGES OF" -1130 PRINT "ANY TWO LABELS IN DECIMAL INCHES (I.E. 2.6)." -1135 INPUT K -1140 K=(K*10)+1 -1142 IF M=1 THEN 1146 -1145 IF K<25 THEN PRINT "*** LABEL TO SHORT ***":GOTO 1125 -1146 IF K>110 THEN PRINT "*** LABEL TO LONG ***":GOTO 1125 -1150 PRINT:PRINT -1160 PRINT "INDICATE THE NUMBER OF SPACES BETWEEN LABELS (I.E. 2)." -1165 INPUT L -2000 IF M<1 OR M>5 THEN 1110 - if end #1 then 1100 - print clear$:print:print -2030 open z7$ as 1:read #1;z2,z3:close 1:z2=z2-1:z3=z3-2 -2150 PRINT "LABELS TO PRINT ";Z2 -2160 PRINT -3000 NA=INT(Z2/M)+1 -3004 N(0,9)=14:N(0,10)=11:N(0,11)=8:N(0,12)=8:N(0,13)=1 -3010 Z1=0 -3020 open z5$ recl 150 as 1 -3025 lprinter -3030 FOR J=1 TO NA -3035 Z5=0 -3040 FOR I=1 TO M - read #1,z1+1;n(2,1),n(2,2),n$ -3055 Z9=1:FOR Z=3 TO 13:K$(Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -3060 A$(I)=K$(3) -3070 B$(I)=K$(4) -3080 C$(I)=K$(5) -3090 DA$(I)=LEFT$(K$(6),15) -4000 E$(I)=K$(7) -4010 F$(I)=K$(8) -4020 Z1=Z1+1 -4025 Z5=Z5+1 -4027 IF Z1=Z2 THEN 4040 -4030 NEXT I -4040 FOR I=1 TO Z5-1 -4045 IF Z5=1 THEN print TAB(K);:GOTO 4070 -4050 print A$(I);TAB((I*K)-I+1); -4060 NEXT I -4070 print A$(Z5) -4080 FOR I=1 TO Z5-1 -4085 IF Z5=1 THEN print TAB(K);:GOTO 5010 -4090 print B$(I);TAB((I*K)-I+1); -5000 NEXT I -5010 print B$(Z5) -5020 FOR I=1 TO Z5-1 -5025 IF Z5=1 THEN print TAB(K);:GOTO 5050 -5030 print C$(I);TAB((I*K)-I+1); -5040 NEXT I -5050 print C$(Z5) -5060 FOR I=1 TO Z5-1 -5065 IF Z5=1 THEN print TAB(K);:GOTO 6000 -5070 print DA$(I);",";E$(I);" "; -5080 print F$(I);TAB((I*K)-I+1); -5090 NEXT I -6000 print DA$(Z5);",";E$(Z5);" ";F$(Z5) -6010 FOR Z=1 TO L:print:NEXT Z -6030 NEXT J -6040 close 1 -6045 console -6050 PRINT clear$ -6060 chain "master6" diff --git a/bwbtest/C77B/MASORT.BAS b/bwbtest/C77B/MASORT.BAS deleted file mode 100644 index 63b60d6..0000000 --- a/bwbtest/C77B/MASORT.BAS +++ /dev/null @@ -1,133 +0,0 @@ -1 rem This is the Mailing List Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) -1000 print clear$:print: - - - print "Enter file name of mailing list as no more than 4 characters" - print "i.e. - mail. Drive and 'back' or 'size' will be" - print "added by the program." - - input line mail$ - - if len(mail$)>4 then 1000 - - - z5$=""+mail$:z6$=z5$+"back":z7$=z5$+"size":RL=150 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$ - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$ - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$ - PRINT #1,Z;N(2,1),N(2,2),N$ - NEXT Z - - N(2,1)=0:N(2,2)=0:N$="" - - FOR Z=Z2 TO Z3+2 - - read #1,z;N(2,1),N(2,2),N$ - if N(2,2)=0 then 8995 - - print #1,z;N(2,1),N(2,2),N$ - NEXT Z -8995 close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "maentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "maentry" diff --git a/bwbtest/C77B/MASTER1.BAS b/bwbtest/C77B/MASTER1.BAS deleted file mode 100644 index b39bf37..0000000 --- a/bwbtest/C77B/MASTER1.BAS +++ /dev/null @@ -1,63 +0,0 @@ -1 rem This is Master1 the General Ledger/General Journal Menu - -%INCLUDE ALL.BAS -500 RESTORE -1020 CONSOLE -1025 PRINT clear$:PRINT -1030 PRINT "*** GENERAL LEDGER - JOURNAL MENU ***":PRINT -2000 PRINT "1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES" : REM GLENTRY -2010 PRINT -2020 PRINT "2 - LIST THE CHART OF ACCOUNTS" : REM GLCHART -2030 PRINT -2040 PRINT "3 - ENTER DISBURSEMENT TRANSACTIONS" : REM MASTER11 -2050 PRINT -2060 PRINT "4 - ENTER RECEIPTS TRANSACTIONS" : REM MASTER12 -2070 PRINT -2080 PRINT "5 - PRINT TRIAL BALANCE" : REM GLTBAL -2090 PRINT -2100 PRINT "6 - PRINT BALANCE SHEET" : REM GLBALSHT -2110 PRINT -2120 PRINT "7 - PRINT INCOME STATEMENTS" : REM GLINCOME -2130 PRINT -2140 PRINT "8 - PRINT BUDGET ANALYSIS" : REM GLBUDGET -2150 PRINT -2160 PRINT "9 - FINISHED" : REM BIZMII -3000 PRINT - A(9)=0 -3010 INPUT Z -3020 IF Z<1 OR Z>9 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400 -9000 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "GLENTRY" -9050 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "GLCHART" -9100 initialize - CHAIN "MASTER11" -9150 initialize - CHAIN "MASTER12" -9200 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "GLTBAL" -9250 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "GLBALSHT" -9300 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "GLINCOME" -9350 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "GLBUDGET" -9400 print clear$:print:print "Replace program disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -9600 GOTO 1025 diff --git a/bwbtest/C77B/MASTER11.BAS b/bwbtest/C77B/MASTER11.BAS deleted file mode 100644 index 9354012..0000000 --- a/bwbtest/C77B/MASTER11.BAS +++ /dev/null @@ -1,47 +0,0 @@ -1 rem This is Master11 the General Journal Menu - -%INCLUDE ALL.BAS -500 RESTORE -1020 CONSOLE -1025 PRINT clear$:PRINT -1030 PRINT "*** GENERAL JOURNAL TRANSACTION MENU ***":PRINT -2000 PRINT "1 - ENTER GENERAL JOURNAL TRANSACTIONS" : REM GLJOTRAN -2010 PRINT -2020 PRINT "2 - POST GENERAL JOURNAL TRANSACTIONS" : REM GLJOPOST -2030 PRINT -2040 PRINT "3 - ENTER CHECK DISBURSEMENTS" : REM GLCDTRAN -2050 PRINT -2060 PRINT "4 - POST CHECK DISBURSEMENTS" : REM GLCDPOST -2070 PRINT -2120 PRINT "5 - PRINT DISBURSEMENT CHECKS" : REM GDCHECKS -2130 PRINT -2140 PRINT "6 - FINISHED" : REM MASTER1 -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>6 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150,9200,9250 -9000 print clear$:print - print "Install appropriate General Journal disk in Drive B:" - print "This file should be on a separate disk from the General Ledger." - print:Input "Type return to continue.";line temp$:initialize - chain "GLJOTRAN" -9050 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "GLJOPOST" -9100 print clear$:print - print "Install appropriate Check Disbursements disk in Drive B:" - print "This file should be on a separate disk from the General Ledger." - print:Input "Type return to continue.";line temp$:initialize - chain "GLCDTRAN" -9150 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "GLCDPOST" -9200 print clear$:print - print "Install appropriate Check Disbursements disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "GDCHECKS" -9250 initialize - CHAIN "MASTER1" -9600 GOTO 1025 diff --git a/bwbtest/C77B/MASTER12.BAS b/bwbtest/C77B/MASTER12.BAS deleted file mode 100644 index 40d6905..0000000 --- a/bwbtest/C77B/MASTER12.BAS +++ /dev/null @@ -1,28 +0,0 @@ -1 rem This is Master12 the Check-Cash Reciepts-Disbursements Menu - -%INCLUDE ALL.BAS -500 RESTORE -1020 CONSOLE -1025 PRINT clear$:PRINT -1030 PRINT "*** CHECK-CASH RECEIPTS MENU ***":PRINT -2000 PRINT "1 - ENTER CHECK RECEIPTS" REM:GLCKTRAN -2010 PRINT -2020 PRINT "2 - POST CHECK RECEIPTS JOURNAL" REM:GLCKPOST -2030 PRINT -2080 PRINT "3 - FINISHED" REM:MASTER1 -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>3 THEN 1025 -4000 ON Z GOTO 9000,9050,9100 -9000 print clear$:print - print "Install appropriate Check Receipts disk in Drive B:" - print "This file should be on a separate disk from the General Ledger." - print:Input "Type return to continue.";line temp$:initialize - chain "GLCKTRAN" -9050 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "GLCKPOST" -9100 initialize - CHAIN "MASTER1" -9600 GOTO 1025 diff --git a/bwbtest/C77B/MASTER14.BAS b/bwbtest/C77B/MASTER14.BAS deleted file mode 100644 index c181700..0000000 --- a/bwbtest/C77B/MASTER14.BAS +++ /dev/null @@ -1,32 +0,0 @@ -1 rem This is Master14 the Payroll Entry and Calculation Menu - -%INCLUDE ALL.BAS -500 RESTORE -1025 PRINT clear$:PRINT -1030 PRINT "*** FEDERAL AND STATE FORMS PRINTING MENU ***":PRINT -2000 PRINT "1 - PRINT 941 FORMS" -2010 PRINT -2020 PRINT "2 - PRINT STATE TAX RETURNS" -2030 PRINT -2040 PRINT "3 - PRINT FEDERAL AND STATE W2 FORMS" -2050 PRINT -2060 PRINT "4 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>4 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150 -9000 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "FED941PR" -9050 print "This program not implemented!" - CHAIN "MASTER5" -9100 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "W2PRINT" -9150 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "MASTER5" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MASTER15.BAS b/bwbtest/C77B/MASTER15.BAS deleted file mode 100644 index aa1a49b..0000000 --- a/bwbtest/C77B/MASTER15.BAS +++ /dev/null @@ -1,26 +0,0 @@ -1 rem This is Master15 the Check Tabs and Cutoffs Menu - -%INCLUDE ALL.BAS -500 RESTORE -1025 PRINT clear$:PRINT -1030 PRINT "*** PAYROLL CHECK TABS AND CUTOFFS MENU ***":PRINT -2000 PRINT "1 - ENTER CHECK PRINTING TABS" -2010 PRINT -2020 PRINT "2 - ENTER PAYROLL CUTOFF FIGURES" -2030 PRINT -2040 PRINT "3 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>3 THEN 1025 -4000 ON Z GOTO 9000,9050,9100 -9000 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "EPTABS" -9050 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "EPCUTS" -9100 initialize - CHAIN "MASTER7" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MASTER16.BAS b/bwbtest/C77B/MASTER16.BAS deleted file mode 100644 index aef6d90..0000000 --- a/bwbtest/C77B/MASTER16.BAS +++ /dev/null @@ -1,38 +0,0 @@ -1 rem This is Master16 the Fixed Asset Accounting Menu - -%INCLUDE ALL.BAS -500 RESTORE -1025 PRINT clear$:PRINT -1030 PRINT "*** FIXED ASSET ACCOUNTING MENU ***":PRINT -2000 PRINT "1 - ENTER OR MODIFY CAPITAL GOODS" -2010 PRINT -2020 PRINT "2 - CALCULATE YEARS DEPRECIATION" -2030 PRINT -2040 PRINT "3 - PRINT DEPRECIATION REPORT" -2050 PRINT -2060 PRINT "4 - PRINT IRS FORM 4562 - DEPRECIATION" -2070 PRINT -2080 PRINT "5 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>5 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150,9200 -9000 print clear$:print - print "Install appropriate Capital Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "CGENTRY" -9050 print clear$:print - print "Install appropriate Capital Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "CGDEPCAL" -9100 print clear$:print - print "Install appropriate Capital Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "CGRPT" -9150 print clear$:print - print "Install appropriate Capital Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "CGFM4562" -9200 initialize - CHAIN "MASTER4" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MASTER2.BAS b/bwbtest/C77B/MASTER2.BAS deleted file mode 100644 index 4f389ce..0000000 --- a/bwbtest/C77B/MASTER2.BAS +++ /dev/null @@ -1,65 +0,0 @@ -1 rem This is Master2 The Accounts Receivable/Customer Menu - -%INCLUDE ALL.BAS -500 RESTORE -1025 PRINT clear$:PRINT -1030 PRINT "*** SALES ORDER ENTRY / CUSTOMER RECEIVABLES MENU ***" -1035 PRINT -2000 PRINT "1 - ENTER NEW CUSTOMER INFORMATION" -2005 PRINT -2010 PRINT "2 - ENTER CUSTOMER ORDERS" -2015 PRINT -2020 PRINT "3 - LIST CUSTOMER ORDERS" -2025 PRINT -2030 PRINT "4 - PRINT PLAIN PAPER (FORMATTED) INVOICES" -2035 PRINT -2040 PRINT "5 - PRINT PRE-PRINTED INVOICES" -2045 PRINT -2050 PRINT "6 - POST ORDERS TO GENERAL LEDGER" -2055 PRINT -2060 PRINT "7 - PRINT AGED ACCOUNTS RECEIVABLE REPORT" -2065 PRINT -2070 PRINT "8 - PRINT CUSTOMER LABELS" -2075 PRINT -2080 PRINT "9 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>9 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400 -9000 print clear$:print - print "Install appropriate Customer Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "CRENTRY" -9050 print clear$:print - print "Install appropriate Invoice Register disk in Drive B:" - print "This file should be on a separate disk from the Customer" - print "Information disk." - print:Input "Type return to continue.";line temp$:initialize - chain "CRJOTRAN" -9100 print clear$:print - print "Install appropriate Customer Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "CRJOLIST" -9150 print clear$:print - print "Install appropriate Customer Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "CRFMINV" -9200 print clear$:print - print "Install appropriate Customer Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "CRPPINV" -9250 CHAIN "CRJOPOST" -9300 print clear$:print - print "Install appropriate Customer Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "CRRPT" -9350 print clear$:print - print "Install appropriate Customer Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "CRLABELS" -9400 print clear$:print:print "Replace disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MASTER3.BAS b/bwbtest/C77B/MASTER3.BAS deleted file mode 100644 index 9f8999f..0000000 --- a/bwbtest/C77B/MASTER3.BAS +++ /dev/null @@ -1,63 +0,0 @@ -1 rem This is Master3 The Accounts Payable/Vendor Menu - -%INCLUDE ALL.BAS -1025 PRINT clear$:PRINT -1030 PRINT "*** PURCHASE ORDER ENTRY / VENDOR PAYABLES MENU ***":PRINT -2000 PRINT "1 - ENTER NEW VENDOR INFORMATION" -2005 PRINT -2010 PRINT "2 - ENTER PURCHASE ORDERS" -2015 PRINT -2020 PRINT "3 - LIST PURCHASE ORDERS" -2025 PRINT -2030 PRINT "4 - PRINT PLAIN PAPER (FORMATTED) PURCHASE ORDERS" -2035 PRINT -2040 PRINT "5 - PRINT PRE-PRINTED PURCHASE ORDERS" -2045 PRINT -2050 PRINT "6 - POST PURCHASE ORDERS TO GENERAL LEDGER" -2055 PRINT -2060 PRINT "7 - PRINT AGED ACCOUNTS PAYABLE REPORT" -2065 PRINT -2070 PRINT "8 - PRINT VENDOR LABELS" -2075 PRINT -2080 PRINT "9 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>9 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400 -9000 print clear$:print - print "Install appropriate Vendor Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "VPENTRY" -9050 print clear$:print - print "Install appropriate Pur Order Register disk in Drive B:" - print "This file should be on a separate disk from the Vendor" - print "Information disk." - print:Input "Type return to continue.";line temp$:initialize - chain "VPJOTRAN" -9100 print clear$:print - print "Install appropriate Vendor Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "VPJOLIST" -9150 print clear$:print - print "Install appropriate Vendor Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "VPFMPO" -9200 print clear$:print - print "Install appropriate Vendor Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "VPPPPO" -9250 CHAIN "VPJOPOST" -9300 print clear$:print - print "Install appropriate Vendor Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "VPRPT" -9350 print clear$:print - print "Install appropriate Vendor Information disk in Drive B:" - print:Input "Type return to continue.";line temp$:initialize - chain "VPLABELS" -9400 print clear$:print:print "Replace disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MASTER4.BAS b/bwbtest/C77B/MASTER4.BAS deleted file mode 100644 index fa2e59b..0000000 --- a/bwbtest/C77B/MASTER4.BAS +++ /dev/null @@ -1,59 +0,0 @@ -1 rem This is Master4 the Inventory Menu - -%INCLUDE ALL.BAS -500 RESTORE -1025 PRINT clear$:PRINT -1030 PRINT "*** FINISHED / CAPITAL / RAW GOODS INVENTORY MENU ***":PRINT -2000 PRINT "1 - UPDATE FINISHED GOODS INVENTORY" -2010 PRINT -2020 PRINT "2 - UPDATE RAW GOODS INVENTORY" -2030 PRINT -2040 PRINT "3 - PRINT FINISHED GOODS REPORT" -2050 PRINT -2060 PRINT "4 - PRINT RAW GOODS REPORT" -2070 PRINT -2080 PRINT "5 - PRINT FINISHED GOODS ALERT" -2090 PRINT -2100 PRINT "6 - PRINT RAW GOODS ALERT" -2110 PRINT -2120 PRINT "7 - FIXED ASSET OPERATIONS" -2130 PRINT -2140 PRINT "8 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>8 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350 -9000 print clear$:print - print "Install appropriate Finished Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "FGENTRY" -9050 print clear$:print - print "Install appropriate Raw Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "RGENTRY" -9100 print clear$:print - print "Install appropriate Finished Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "FGRPT" -9150 print clear$:print - print "Install appropriate Raw Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "RGRPT" -9200 print clear$:print - print "Install appropriate Finished Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "FGALERT" -9250 print clear$:print - print "Install appropriate Raw Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "RGALERT" -9300 print clear$:print - print "Install appropriate Capital Goods disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "MASTER16" -9350 print clear$:print:print "Replace program disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MASTER5.BAS b/bwbtest/C77B/MASTER5.BAS deleted file mode 100644 index af301e5..0000000 --- a/bwbtest/C77B/MASTER5.BAS +++ /dev/null @@ -1,65 +0,0 @@ -1 rem This is Master5 the Employee Payroll Menu - -%INCLUDE ALL.BAS -500 RESTORE -1025 PRINT clear$:PRINT -1030 PRINT "*** EMPLOYEE PAYROLL SYSTEM MENU ***":PRINT -2000 PRINT "1 - UPDATE EMPLOYEE RECORDS" -2010 PRINT -2020 PRINT "2 - ENTER EMPLOYEE TIME CARDS" -2030 PRINT -2040 PRINT "3 - CALCULATE EMPLOYEE PAYROLL" -2050 PRINT -2060 PRINT "4 - PRINT PAYROLL SUMMARY" -2070 PRINT -2080 PRINT "5 - PRINT EMPLOYEE CHECKS" -2090 PRINT -2100 PRINT "6 - POST PAYROLL OPERATIONS" -2110 PRINT -2120 PRINT "7 - RECORD FEDERAL DEPOSITS (501)" -2130 PRINT -2140 PRINT "8 - PRINT FEDERAL AND STATE TAX FORMS (941/W2, ETC)" -2150 PRINT -2160 PRINT "9 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>9 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400 -9000 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "EPENTRY" -9050 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "TMENTRY" -9100 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "EPJOTRAN" -9150 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "EPSUMARY" -9200 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "EPCHECKS" -9250 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "EPJOPOST" -9300 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "EPDPOSIT" -9350 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "MASTER14" -9400 print clear$:print:print "Replace disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MASTER6.BAS b/bwbtest/C77B/MASTER6.BAS deleted file mode 100644 index d41c7c9..0000000 --- a/bwbtest/C77B/MASTER6.BAS +++ /dev/null @@ -1,47 +0,0 @@ -1 rem This is Master6 the Mailing List Menu - -%INCLUDE ALL.BAS -500 RESTORE -1025 PRINT clear$:PRINT -1030 PRINT "*** MAILING LIST MENU ***":PRINT -2000 PRINT "1 - UPDATE MAILING LIST" -2010 PRINT -2020 PRINT "2 - PRINT MAILING LABELS" -2030 PRINT -2040 PRINT "3 - PRINT CUSTOMER LABELS" -2050 PRINT -2060 PRINT "4 - PRINT VENDOR LABELS" -2070 PRINT -2080 PRINT "5 - PRINT EMPLOYEE LABELS" -2090 PRINT -2100 PRINT "6 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>6 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150,9200,9250 -9000 print clear$:print - print "Install appropriate Mailing List disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "MAENTRY" -9050 print clear$:print - print "Install appropriate Mailing List disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "MALABELS" -9100 print clear$:print - print "Install appropriate Customer Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "CRLABELS" -9150 print clear$:print - print "Install appropriate Vendor Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "VPLABELS" -9200 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "EPLABELS" -9250 print clear$:print:print "Replace program disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MASTER7.BAS b/bwbtest/C77B/MASTER7.BAS deleted file mode 100644 index 9e1a94f..0000000 --- a/bwbtest/C77B/MASTER7.BAS +++ /dev/null @@ -1,64 +0,0 @@ -1 rem This is Master7 the Initialization Routines Menu - -%INCLUDE ALL.BAS -500 RESTORE -1025 PRINT clear$:PRINT:PRINT -2000 PRINT "1 - CHANGE REPORT DATES" -2005 PRINT -2010 PRINT "2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS" -2015 PRINT -2020 PRINT "3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG" -2025 PRINT -2030 PRINT "4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS" -2035 PRINT -2040 PRINT "5 - ADD NEW COMPANY NAMES" -2045 PRINT -2050 PRINT "6 - CHANGE OR LIST FEDERAL TAX TABLES" -2060 PRINT -2070 PRINT "7 - CHANGE OR LIST STATE TAX TABLES" -2080 PRINT -2090 PRINT "8 - CHANGE CHECK TABS AND PAYROLL CUTOFFS" -2100 PRINT -2110 PRINT "9 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>9 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400 -9000 print clear$:print - print "Install appropriate disk in Drive B:" - print:print "The date file must be on all file disks!!" - print:input "Type return to continue.";line temp$:initialize - chain "DAENTRY" -9050 print clear$:print - print "Install appropriate disk in Drive B:" - print:print "The format file must be on all file disks!!" - print:input "Type return to continue.";line temp$:initialize - chain "FMTENTRY" -9100 print clear$:print - print "Install appropriate disk in Drive B:" - print:print "The tabs file must be on all file disks!!" - print:input "Type return to continue.";line temp$:initialize - chain "TAENTRY" -9150 initialize - CHAIN "MASTER9" -9200 print clear$:print - print "Install appropriate disk in Drive B:" - print:print "The company name file must be on all file disks!!" - print:input "Type return to continue.";line temp$:initialize - chain "NAMENTRY" -9250 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "EFENTRY" -9300 print clear$:print - print "Install appropriate Employee Information disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "ESENTRY" -9350 initialize - CHAIN "MASTER15" -9400 print clear$:print:print "Replace disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MASTER8.BAS b/bwbtest/C77B/MASTER8.BAS deleted file mode 100644 index 55103c9..0000000 --- a/bwbtest/C77B/MASTER8.BAS +++ /dev/null @@ -1,26 +0,0 @@ -1 rem This is Master8 the Periodic Maintenance Menu - -%INCLUDE ALL.BAS -500 RESTORE -1025 PRINT clear$:PRINT -1030 PRINT "*** PERIODIC MAINTENANCE MENU ***":PRINT -2000 PRINT "1 - DO MONTHLY FILE MAINTENANCE" -2010 PRINT -2020 PRINT "2 - DO QUARTERLY FILE MAINTENANCE" -2030 PRINT -2040 PRINT "3 - DO YEARLY FILE MAINTENANCE" -2050 PRINT -2060 PRINT "4 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>4 THEN 1025 -4000 ON Z GOTO 9000,9050,9100,9150 -9000 CHAIN "MMAINT" -9050 CHAIN "QMAINT" -9100 CHAIN "YMAINT" -9150 print clear$:print:print "Replace disk #5 in drive A" - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MASTER9.BAS b/bwbtest/C77B/MASTER9.BAS deleted file mode 100644 index e5a838a..0000000 --- a/bwbtest/C77B/MASTER9.BAS +++ /dev/null @@ -1,25 +0,0 @@ -1 rem This is Master9 the General Ledger Heading Menu - -%INCLUDE ALL.BAS -500 RESTORE -1025 PRINT clear$:PRINT:PRINT -2000 PRINT "1 - CHANGE GENERAL LEDGER HEADINGS" -2005 PRINT -2010 PRINT "2 - CHANGE GENERAL LEDGER SUBHEADINGS" -2015 PRINT -2020 PRINT "3 - FINISHED" -3000 PRINT -3010 INPUT Z -3020 IF Z<1 OR Z>3 THEN 1025 -4000 ON Z GOTO 9000,9050,9100 -9000 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "GLHENTRY" -9050 print clear$:print - print "Install appropriate General Ledger disk in Drive B:" - print:input "Type return to continue.";line temp$:initialize - chain "GLSENTRY" -9100 initialize - CHAIN "MASTER7" -9800 GOTO 1025 diff --git a/bwbtest/C77B/MMAINT.BAS b/bwbtest/C77B/MMAINT.BAS deleted file mode 100644 index 7219909..0000000 --- a/bwbtest/C77B/MMAINT.BAS +++ /dev/null @@ -1,143 +0,0 @@ -1 rem This is the Monthly File Maintenance Program - -%INCLUDE ALL.BAS -500 dim n(2,20) - RESTORE -1500 PRINT clear$:PRINT -1510 PRINT "THIS IS THE MONTHLY FILE MAINTENANCE PROGRAM....." -1520 PRINT:PRINT"IT DOES THE FOLLOWING:" -1530 PRINT:PRINT"POSTS ALL M-T-D GENERAL LEDGER AMOUNTS TO PREVIOUS" -1540 PRINT:PRINT"POSTS ALL M-T-D GENERAL LEDGER AMOUNTS TO ZERO" -1550 PRINT:PRINT"UPDATES CUSTOMER AND VENDOR AGING DATA" -1570 PRINT:PRINT"ZEROS MONTH TO DATE 'QUANTITY" -1580 PRINT:PRINT"ISSUED' FIGURES." -1590 PRINT:INPUT"TO CONTINUE TYPE CARRIAGE RETURN ";line temp$ -2000 PRINT clear$:PRINT -2010 PRINT "INSTALL GENERAL LEDGER DISK IN DRIVE B." -2020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -2040 PRINT "CHECKING FILE LENGTH" -2050 PRINT:PRINT "*** PLEASE WAIT ***" -2060 open "gl" recl 138 as 1 - z3=(size("gl")*block.size)/138 -2080 FOR Z2=1 TO Z3 -2090 read #1,z2;N(2,1),N(2,2),N$ -2100 IF N(2,2)=0 THEN 2120 -2110 NEXT Z2 -2120 Z3=Z3-1 -2130 close 1 -2140 Z2=Z2-1 -2200 PRINT clear$:PRINT -2210 PRINT "GENERAL LEDGER ACCOUNTS = ";Z2 -2220 PRINT:PRINT "*** POSTING ***" -2500 open "gl" recl 138 as 1 -2505 FOR Z=1 TO Z2 -2510 N$="" -2520 read #1,z;N(2,1),N(2,2),N$,G1,G2,G3,G4,G5,G6,G7 -2530 G4=G1:G1=0 - print #1,z;N(2,1),N(2,2),N$,G1,G2,G3,G4,G5,G6,G7 -2550 NEXT Z -2560 close 1 -3000 PRINT clear$:PRINT -3010 PRINT "INSTALL CUSTOMER RECEIVABLES DISK IN DRIVE B." -3020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -3040 PRINT "CHECKING FILE LENGTH" -3050 PRINT:PRINT "*** PLEASE WAIT ***" -3060 open "cr" recl 384 as 1 - z3=(size("cr")*block.size)/384 -3080 FOR Z2=1 TO Z3 -3090 read #1,z2;N(2,1),N(2,2),N$ -3100 IF N(2,2)=0 THEN 3120 -3110 NEXT Z2 -3120 Z3=Z3-1 -3130 close 1 -3140 Z2=Z2-1 -3200 PRINT clear$:PRINT -3210 PRINT "CUSTOMER RECEIVABLES ACCOUNTS = ";Z2 -3220 PRINT:PRINT "*** POSTING ***" -3500 open "cr" recl 384 as 1 -3510 FOR Z=1 TO Z2 -3520 read #1,z2;n(2,1),n(2,2),n$,c1,c2,c3,c4,c5,c6 -3530 C6=C6+C5:C5=C4:C4=C3:C3=0 -3540 print #1,z2;n(2,1),n(2,2),n$,c1,c2,c3,c4,c5,c6 -3550 NEXT Z -3560 close 1 -4000 PRINT clear$:PRINT -4010 PRINT "INSTALL VENDOR PAYABLES DISK IN DRIVE B." -4020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -4040 PRINT "CHECKING FILE LENGTH" -4050 PRINT:PRINT "*** PLEASE WAIT ***" -4060 open "vp" recl 384 as 1 - z3=(size("vp")*block.size)/384 -4080 FOR Z2=1 TO Z3 -4090 read #1,z2;N(2,1),N(2,2),N$ -4100 IF N(2,2)=0 THEN 4120 -4110 NEXT Z2 -4120 Z3=Z3-1 -4130 close 1 -4140 Z2=Z2-1 -4200 PRINT clear$:PRINT -4210 PRINT "VENDOR PAYABLES ACCOUNTS = ";Z2 -4220 PRINT:PRINT "*** POSTING ***" -4500 open "vp" recl 384 as 1 -4510 FOR Z=1 TO Z2 -4520 read #1,z2;n(2,1),n(2,2),n$,v1,v2,v3,v4,v5,v6 -4530 V6=V6+V5:V5=V4:V4=V3:V3=0 -4540 print #1,z2;n(2,1),n(2,2),n$,v1,v2,v3,v4,v5,v6 -4550 NEXT Z -4560 close 1 -6000 PRINT clear$:PRINT -6010 PRINT "INSTALL FINISHED GOODS DISK IN DRIVE B." -6020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -6040 PRINT "CHECKING FILE LENGTH" -6050 PRINT:PRINT "*** PLEASE WAIT ***" -6060 open "fg" recl 256 as 1 - z3=(size("fg")*block.size)/256 -6080 FOR Z2=1 TO Z3 -6090 read #1,z2;N(2,1),N(2,2),N$ -6100 IF N(2,2)=0 THEN 6120 -6110 NEXT Z2 -6120 Z3=Z3-1 -6130 close 1 -6140 Z2=Z2-1 -6200 PRINT clear$:PRINT -6210 PRINT "FINISHED GOODS ACCOUNTS = ";Z2 -6220 PRINT:PRINT "*** POSTING ***" -6500 open "fg" recl 256 as 1 -6505 FOR Z=1 TO Z2 -6510 N$="" -6520 read #1,z;N(2,1),N(2,2),N$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -6530 F5=0 -6540 print #1,z;N(2,1),N(2,2),N$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -6550 NEXT Z -6560 close 1 -7000 PRINT clear$:PRINT -7010 PRINT "INSTALL RAW GOODS DISK IN DRIVE B." -7020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -7040 PRINT "CHECKING FILE LENGTH" -7050 PRINT:PRINT "*** PLEASE WAIT ***" -7060 open "rg" recl 256 as 1 - z3=(size("rg")*block.size)/256 -7080 FOR Z2=1 TO Z3 -7090 read #1,z2;N(2,1),N(2,2),N$ -7100 IF N(2,2)=0 THEN 7120 -7110 NEXT Z2 -7120 Z3=Z3-1 -7130 close 1 -7140 Z2=Z2-1 -7200 PRINT clear$:PRINT -7210 PRINT "RAW GOODS ACCOUNTS = ";Z2 -7220 PRINT:PRINT "*** POSTING ***" -7500 open "rg" recl 256 as 1 -7505 FOR Z=1 TO Z2 -7510 N$="" -7520 read #1,z;N(2,1),N(2,2),N$,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9 -7530 R5=0 -7540 print #1,z;N(2,1),N(2,2),N$,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9 -7550 NEXT Z -7560 close 1 -9995 CHAIN "bizmii" diff --git a/bwbtest/C77B/NAMENTRY.BAS b/bwbtest/C77B/NAMENTRY.BAS deleted file mode 100644 index 40c0a92..0000000 --- a/bwbtest/C77B/NAMENTRY.BAS +++ /dev/null @@ -1,277 +0,0 @@ -1 rem This is the Company Name Entry Program - -%INCLUDE ALL.BAS -500 RESTORE - DIM T%(20),A(16),D$(8),DATE1$(8) - BIZMII.FLAG=0 -505 Z5$="nm" -506 Z6$="nmback" - Z7$="nmsize" -510 X$=" " -515 repeat$="------------------------" -516 fill$=" " -520 DIM Z$(5,5),N(2,20) -530 DIM K$(6,20) -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - DELETE EXISTING ENTRY" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - BACK-UP AND SORT FILE":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" -1000 REM THIS IS THE NAME ENTRY PROGRAM -1005 PRINT clear$ -1010 PRINT -1075 K$(1,1)="TAG":K$(1,2)="REFERENCE NUMBER":K$(1,3)="NAME" -1080 K$(1,4)="COMPANY":K$(1,5)="ADDRESS":K$(1,6)="CITY":K$(1,7)="STATE" -1085 K$(1,8)="ZIP CODE":K$(1,9)="PHONE (AAA) NNN NNNN" -1086 K$(1,10)="FEDERAL TAX ID #":K$(1,11)="STATE TAX ID #" -1090 N(1,1)=4:N(1,2)=10:N(1,3)=24:N(1,4)=24:N(1,5)=24:N(1,6)=17 -1095 N(1,7)=2:N(1,8)=5:N(1,9)=14:N(1,10)=20:N(1,11)=20 -1100 K$(2,1)="1 - TAG":K$(2,2)="2 - REFERENCE NUMBER":K$(2,3)="3 - NAME" -1105 K$(2,4)="4 - COMPANY":K$(2,5)="5 - ADDRESS":K$(2,6)="6 - CITY" -1110 K$(2,7)="7 - STATE":K$(2,8)="8 - ZIP CODE" -1115 K$(2,9)="9 - PHONE (AAA) NNN NNNN" -1116 K$(2,10)="10- FEDERAL TAX ID #":K$(2,11)="11- STATE TAX ID #" -1117 K$(2,12)="12- NONE" - print clear$:print - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 170 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "COMPANY NAME ENTRY PROGRAM" - PRINT "--------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z go sub 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 N(2,1)=0:N(2,2)=0:N$="":new$="" -1700 FOR Z=1 TO 10:K$(3,Z)="":NEXT Z -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT clear$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2040 FOR Z=3 TO 11 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 input line K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2060 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,I) - PRINT CLEAR$ -2065 NEXT Z -2066 N$="" -2070 FOR Z=3 TO 11:N$=N$+K$(3,Z):NEXT Z -2100 Z1=Z2 -2105 PRINT clear$:PRINT -2110 PRINT "RECORD NUMBER";Z1:PRINT -2115 FOR Z=1 TO 2 -2120 PRINT K$(2,Z);TAB(30);N(2,Z) -2125 NEXT Z -2130 FOR Z=3 TO 12 -2135 PRINT K$(2,Z);TAB(30);K$(3,Z) -2140 NEXT Z -2145 PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>11 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>2 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2205 PRINT K$(1,Z);TAB(30); -2210 input line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,I) -2216 N$="" -2220 FOR I=3 TO 11:N$=N$+K$(3,I):NEXT I -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 170 as 1 - print #1,z1;N(2,1),N(2,2),N$ - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN - open z5$ recl 170 as 1 - read #1,z1;N(2,1),N(2,2),N$ - close 1 -3030 PRINT -3035 FOR Z=1 TO 2 -3040 PRINT K$(1,Z);TAB(30);N(2,Z) -3045 NEXT Z -3046 Z9=1 -3050 FOR Z=3 TO 11 -3055 PRINT K$(1,Z);TAB(30);MID$(N$,Z9,N(1,Z)) -3060 Z9=Z9+N(1,Z) -3065 NEXT Z -3070 PRINT -3075 PRINT "FOR A NEW RECORD NUMBER, TYPE N - RETURN.":PRINT -3080 PRINT "IF FINISHED, TYPE F - RETURN.":PRINT -3085 input line temp$ -3090 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 - open z5$ recl 170 as 1 - read #1,z1;N(2,1),N(2,2),N$ - close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4050 Z9=1 -4055 FOR Z=3 TO 11 -4060 K$(3,Z)=MID$(N$,Z9,N(1,Z)) -4065 Z9=Z9+N(1,Z) -4070 NEXT Z -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 - open z5$ recl 170 as 1 - read #1,z1;N(2,1),N(2,2),N$ - close 1 -5045 PRINT "RECORD NUMBER";Z1 -5050 PRINT -5055 FOR Z=1 TO 2 -5060 PRINT K$(1,Z);TAB(30);N(2,Z) -5065 NEXT Z -5070 Z9=1 -5075 FOR Z=3 TO 11 -5080 PRINT K$(1,Z);TAB(30);MID$(N$,Z9,N(1,Z)) -5085 Z9=Z9+N(1,Z) -5090 NEXT Z -5095 PRINT -5100 INPUT "IS RECORD TO BE DELETED (MUST BE yes TO DELETE)";line temp$ -5105 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5110 IF temp$<>"yes" AND temp$<>"YES" THEN 5095 -5115 N(2,1)=0 - open z5$ recl 170 as 1 - print #1,z1;N(2,1),N(2,2),N$ - close 1 -5135 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A NAME-ENTRY FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE Letter c FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE Letter n" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 input line temp$ -6040 IF left$(temp$,1)="c" OR left$(temp$,1)="C" THEN INITIALIZE:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";Z3 -6055 PRINT -6060 N(2,1)=0:N(2,2)=0 - for z=1 to 150:n$=n$+" ":next z - create z5$ recl 170 as 1 -6070 FOR Z1=1 TO Z3+2 - print #1,z1;N(2,1),N(2,2),N$ - next z1 - close 1 -6095 PRINT clear$:PRINT -6100 PRINT "NAME ENTRY FILE CREATED AND CLEARED.":PRINT -6105 PRINT Z3;"RECORDS CREATED.":PRINT -6110 input "TO CONTINUE, TYPE RETURN.";line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF temp$<>"yes" AND temp$<>"YES" THEN RETURN - N(2,1)=0:N(2,2)=0 - for z=1 to 150:n$=n$+" ":next z - open z5$ recl 170 as 1 - FOR Z1=1 TO Z3+2 - print #1,z1;N(2,1),N(2,2),N$ - next z1 - close 1 -7035 PRINT clear$:PRINT -7040 PRINT "NAME ENTRY FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 input line temp$ - z2=1 - open z7$ as 1:print #1;z2,z3:close 1 -7060 RETURN -8000 chain "nmsort" -9000 PRINT clear$:PRINT - lprinter - open z5$ recl 170 as 1 -9015 FOR Z1=1 TO Z2-1 - read #1,z1;N(2,1),N(2,2),N$ -9025 FOR Z=1 TO 2:PRINT K$(1,Z);TAB(30);N(2,Z):NEXT Z -9030 Z9=1 -9035 FOR Z=3 TO 11:PRINT K$(1,Z);TAB(30);MID$(N$,Z9,N(1,Z)) -9040 Z9=Z9+N(1,Z):NEXT Z:PRINT -9045 NEXT Z1 -9050 PRINT chr$(12) -9055 close 1 - console -9065 RETURN -10000 print clear$:print:print "Replace disk #5 in drive A." - print "Type return to continue." - input line temp$ - initialize - chain "bizmii" -15000 PRINT clear$:PRINT:PRINT "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 170 as 1 - z3=(size(z5$)*block.size)/170 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/NEW.TXT b/bwbtest/C77B/NEW.TXT deleted file mode 100644 index 7bcf415..0000000 --- a/bwbtest/C77B/NEW.TXT +++ /dev/null @@ -1,2995 +0,0 @@ -.pl 66 -.po 0 - SECTION 1 - - System Operation - - In the next few pages we are going to cover the operation of -the BusinessMaster series of software. After initial setup, the -package is for the most part self-explanatory. - - We will start this process by covering in some detail the -establishment of a Chart of Accounts and the entry of these -accounts via the General Ledger Entry program. This is a typical -entry program and will serve to give you a sound understanding of -the later data entry programs. - - Your Chart of Accounts should first be planned using the -forms in Appendix G. A sample set of these forms is shown in the -next few pages. - -The General Ledger program package allows a great deal of -flexibility with few restrictions: - -1. Account numbers MUST be numeric. They cannot include imbedded -punctuation marks or alphabetic characters. They must each be the -same length and can be up to 10 digits long. - -2. Account numbers MUST be entered in ascending order from -lowest being ASSETS to highest being EXPENSES. The order is -ASSETS, LIABILITIES, EQUITY, SALES, and EXPENSES. An example -would be Assets from 100 to 199; Liabilities from 200 to 299; -Equity from 300 to 399; Sales (revenue) from 400 to 499; and -Expenses from 900 to 999. - -3. Account names may be up to 30 characters long but we -recommend keeping them under 24 characters since some programs on -8.5 inch wide paper will only print 24 characters. - -.pa - Setting Up the Chart of Accounts. - - The actual procedure for establishing a Chart of Account in -this system is quite simple. A group of forms (Appendix G) is -provided for your convenience in establishing account numbers, -headings, and subheadings. - - All posting and printing operations in the General Ledger -depend on the numbering conventions established here. Notice that -the "Current Assets" subheading in the first table is followed by -four accounts. These are numbered 102, 105, 110, and 132. In the -SUBHEADING table, the first and second account numbers are given -as 102 and 132. These two numbers define the ABSOLUTE range of -account numbers for this particular subheading. This same -convention must be followed with all account numbering. -.pa -ASSETS - -Tag Account # Description -*********************************************************** -| | | Current Assets (subheading) | ------------------------------------------------------------ -| 1 | 102 | Cash at Bank | ------------------------------------------------------------ -| 2 | 105 | Securities | ------------------------------------------------------------ -| 3 | 110 | Accounts Receivable | ------------------------------------------------------------ -| 4 | 132 | Inventory | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | Fixed Assets (subheading) | ------------------------------------------------------------ -| 5 | 160 | Land | ------------------------------------------------------------ -| 6 | 161 | Buildings | ------------------------------------------------------------ -| 7 | 173 | Machinery & Equipment | ------------------------------------------------------------ -| 8 | 175 | (less depreciation) | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | Other Assets (subheading) | ------------------------------------------------------------ -| 9 | 195 | Prepaid Expenses | ------------------------------------------------------------ -| 10 | 196 | Patents | ------------------------------------------------------------ -| 11 | 197 | Goodwill | ------------------------------------------------------------ - -.pa -LIABILITIES - -Tag Account # Description -*********************************************************** -| | | Current Liabilities (subheading) | ------------------------------------------------------------ -| 12 | 201 | Accounts Payable | ------------------------------------------------------------ -| 13 | 203 | Dividends Payable | ------------------------------------------------------------ -| 14 | 204 | Miscellaneous Payable | ------------------------------------------------------------ -| 15 | 209 | Bonds Payable | ------------------------------------------------------------ -| 16 | 210 | Sales Tax Payable | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ - -.pa -EQUITY - -Tag Account # Description -*********************************************************** -| | | Stockholder's Equity (subheading) | ------------------------------------------------------------ -| 17 | 292 | Common Stock | ------------------------------------------------------------ -| 18 | 294 | Retained Earnings | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ - -.pa -SALES - -Tag Account # Description -*********************************************************** -| | | Income (subheading) | ------------------------------------------------------------ -| 19 | 301 | Sales - Dealer | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ - -.pa -EXPENSES - -Tag Account # Description -*********************************************************** -| | | Cost of Goods (subheading) | ------------------------------------------------------------ -| 20 | 401 | Cost of Goods | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | Expenses (subheading) | ------------------------------------------------------------ -| 21 | 825 | Discounts Allowed | ------------------------------------------------------------ -| 22 | 828 | Dues and Subscriptions | ------------------------------------------------------------ -| 23 | 838 | Insurance | ------------------------------------------------------------ -| 24 | 852 | Officer's Salaries | ------------------------------------------------------------ -| 25 | 880 | Wages | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ -| | | | ------------------------------------------------------------ - -.pa -HEADINGS - -Tag Account # Description 1st Acct 2nd Acct - Number Number -*********************************************************** -| 1 | 1(A) | ASSETS | 102 | 197 | ------------------------------------------------------------ -| 2 | 2(L) | LIABILITIES & EQ | 201 | 294 | ------------------------------------------------------------ -| 3 | 3(S) | SALES | 301 | 301 | ------------------------------------------------------------ -| 4 | 4(X) | EXPENSES | 401 | 880 | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ - -.pa -SUBHEADINGS - -Tag Account # Description 1st Acct 2nd Acct - Number Number -*********************************************************** -| 1 | 1(A) | Current Assets | 102 | 132 | ------------------------------------------------------------ -| 2 | 2(A) | Fixed Assets | 160 | 175 | ------------------------------------------------------------ -| 3 | 3(A) | Other Assets | 195 | 197 | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| 4 | 4(L) | Current Liab. | 201 | 210 | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| 5 | 5(E) | Stockholder's Eq | 292 | 294 | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| 6 | 6(S) | Sales - Dealer | 301 | 301 | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| 7 | 7(X) | Cost of Goods | 401 | 401 | ------------------------------------------------------------ -| 8 | 8(X) | Expenses | 825 | 880 | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ -| | | | | | ------------------------------------------------------------ - -.pa - - - It should be noted here that all entry programs follow the -general pattern illustrated in the following material. - - Type crun2 bizmii followed by the return key. This is the -preamble to starting the system for all operations. - -The following MENU will appear on the screen. - -*** BUSINESSMASTER X MASTER MENU *** - -1 - GENERAL LEDGER/GENERAL JOURNAL OPERATIONS - -2 - ORDER ENTRY/RECEIVABLES OPERATIONS - -3 - PURCHASE ORDER/PAYABLES OPERATIONS - -4 - INVENTORY OPERATIONS - -5 - EMPLOYEE PAYROLL OPERATIONS - -6 - MAILING LIST OPERATIONS - -7 - INITIALIZE SYSTEM/START-UP/MODIFY SYSTEM - -8 - PERIODIC FILE MAINTENANCE - -9 - FINISHED - - Typing the appropriate number followed by carriage return -(RETURN) will bring up the desired new menu. - -.pa - - Typing 1 followed by return will bring up the following menu. - -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPT TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED -.pa - Type a 1 followed by return. - - The system will respond by clearing the screen and presenting -the General Ledger Data Entry menu. - - If at this point there is no General Ledger file, the next -message is - -IF YOU HAVE ARRIVED HERE, AND HAVE A GENERAL LEDGER FILE ALREADY -ON A DISK, YOU SHOULD INSTALL THAT DISK THEN TYPE THE LETTER C -FOLLOWED BY RETURN TO CONTINUE. - -IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N FOLLOWED BY -RETURN. - - Notice that if the drive is not up or the wrong disk is in -place this same message will be printed. In that case, simply -bring the drive up by installing the correct disk and closing the -drive door. - - In this case we want to create a new file. Typing N followed -by return will give the following message - -NUMBER OF RECORDS DESIRED? - - Answer with the desired number of records. This number should -be at least 25% more than the number of records (general ledger -accounts) you actually intend to use. The requirement to add two -accounts to a file that only has one record left can be less than -desireable. - - After taking the time required to create the new records, the -system will respond with - -GENERAL LEDGER FILE CREATED AND CLEARED. - nnnn RECORDS CREATED. -TO CONTINUE, TYPE RETURN. - -where nnnn is the number of records created in the file. - - After typing return, the system will respond with - -GENERAL LEDGER ENTRY PROGRAM ----------------------------- -THERE ARE XX AVAILABLE RECORDS -OF THESE THERE ARE: XX RECORDS OPEN - XX RECORDS USED - -THIS IS A LIST OF OPERATIONS - -1 - NEW ENTRY -2 - EXAMINE EXISTING ENTRY -3 - MODIFY EXISTING ENTRY -4 - DELETE EXISTING ENTRY -5 - CREATE NEW FILE -6 - CLEAR EXISTING FILE -7 - BACK-UP AND SORT FILE -8 - LIST FILE -9 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - - The menu just presented is typical of ALL entry menues in -this system. Typing a 1 followed by return will bring the -following series - -.pa -RECORD NUMBER x - - ---- -TAG ? - ---------- -LEDGER ACCOUNT NUMBER ? - --------------------------- -DESCRIPTION ? - - Each of the above items will be presented one at a time. The -cursor (see Glossary) will stop after the question mark. The -over-bar delimiters indicate the maximum allowable length of -entry for each item. - - Once the above items are entered, the system will present the -following display and allow alterations if required. - -RECORD NUMBER x - -1 - TAG nnnn -2 - LEDGER ACCOUNT NUMBER nnnnnnnnnn -3 - DESCRIPTION xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx -4 - MONTH TO DATE AMOUNT $ .00 -5 - QUARTER TO DATE AMOUNT $ .00 -6 - YEAR TO DATE AMOUNT $ .00 -7 - PREV M TO DATE AMOUNT $ .00 -8 - PREV Q TO DATE AMOUNT $ .00 -9 - PREV Y TO DATE AMOUNT $ .00 -10- BUDGETED AMOUNT $ .00 -11- NONE - -IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER. - - You may, at this point, enter one of the "field numbers" -shown at the left of the display and reenter the data or change -it as desired before actually storing the record on the disk. - - The following information will be presented with each entry -program to indicate what each entry contains. - - The Item # refers to the field number in the data entry menu. -The Description is similar or identical to the description shown -on the screen. The Size gives the items size in characters. The -Type will be either N for numeric or A for alphanumeric. Finally -Entry will give you some general information about the intent and -use of the information being entered. - -GENERAL LEDGER FILE - -Item # Description Size/Type Entry - -1 Tag 4 N This numeric entry is used as a sort - parameter. It must be non-zero and is - best used as a sequential record - number. - -2 Ledger Account Number 10 N This is the actual General Ledger - Account number. If the accounts in - this file are changed, be sure to - check that the ranges established in - the General Ledger TABS file, General - Ledger Headings and General Ledger - Subheadings are still correct. - -3 Description 30 A This is the description such as "Cash - in Bank" that will be used for this - account number. - -4 Month to date amount 12 N This and the next five entries carry - the accrued dollar figures posted - from other programs. These figures - should seldom be altered directly - except to to fill in figures if the - system is set up in the middle of a - year. - - When a Chart of Accounts is first - developed, the TAG, ACCOUNT NUMBER, - and DESCRIPTION should be filled in. - The file should then be sorted on the - ACCOUNT NUMBER (selection A in the - sort routine) to sort the accounts in - ascending order. On exitting the - program, a General Ledger Reference - file will automatically be created - which contains the account numbers in - ascending order. This Reference file - is called into main memory during - posting and other operations to allow - the swift location of account numbers - for posting and validation. - - Amounts posted are added to this - field and the next five fields. The - monthly maintenance program zeros - this field out when it is run. This - should be done at the end of each - months accounting activity. - -5 Quarter to date amount 12 N This value is added to by the posting - programs and zeroed out at the end of - each quarter by running the quarterly - maintenance program. - -6 Year to date amount 12 N This value is added to by the posting - programs and zeroed out at the end of - each year by running the yearly - maintenance program. - -7 Previous M-T-D amount 12 N See above. - -8 Previous Q-T-D amount 12 N See above. - -9 Previous Y-T-D amount 12 N See above. - -10 Budgeted amount 12 N Any expense, cost of goods or other - item may be assigned a budget amount. - These values MUST be entered here. - These figures will be used to prepare - a comprehensive budget report at the - end of each month. - - After all accounts have been entered they should be sorted -using the BACK-UP AND SORT FILE menu call (#7). When the sort -program asks for Sort by Tag or Account #, answer with the -appropriate response (A) for account number to ensure that the -accounts are in ascending numeric order by account number. - - The accounts can now be listed (menu call #8). - - It is now possible to examine the accounts to ensure that -they are exactly what you want. The lion's share of the work is -now done in establishing your general ledger system. - -.pa - SECTION 2 - - System Initialization - - This entire system runs from a single MASTER menu which calls -subsidiary menues as required to perform various functions. We -will present the rest of the material in this manual from the -menu calls. We will start with #7 - INITIALIZATION which brings -up the following menu. -.pa -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS OR PAYROLL CUTOFFS - -9 - FINISHED - -.pa -#1 - Entering New Dates - - This program should be run each day to update the current -date. In this way the proper date will appear on all records. A -sample run of the date program is shown on the following page -including responses. - - A missing date on a report will probably indicate that that -date has not been entered. - - The entry labeled RESERVED is not presently used. - -THIS IS A LIST OF OPERATIONS. - -1 - ENTER DATES -2 - EXAMINE DATES -3 - MODIFY DATES -4 - CREATE NEW FILE -5 - CLEAR EXISTING FILE -6 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 3 - -1 - CURRENT DATE 09-14-78 -2 - PERIOD ENDING DATE 09-30-78 -3 - PREV PERIOD ENDING DATE 08-31-78 -4 - MONTH ENDING DATE -5 - QUARTER ENDING DATE -6 - YEAR ENDING DATE -7 - RESERVED -8 - FISCAL YEAR ENDING DATE -9 - NONE - -IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER. - -? 9 - -ANY MORE CHANGES? N - -IS RECORD TO BE ENTERED? N - -DATE INFORMATION - - The DATE file contains all dates for the current days - business.The seven dates actually included are CURRENT DATE - for all checks,Invoices, purchase Orders, and other items - requiring the current date; A PERIOD ENDING and PREVIOUS - PERIOD ENDING DATE for payroll purposes;MONTH,QUARTER, - and YEAR ENDING DATES; and a FISCAL YEAR ENDING DATE. - -1 Current Date 8 A This is the current date printed on - various forms and should be updated - daily. It takes the form mm/dd/yy. - -2 Period Ending Date 8 A This date is used in the payroll and - other programs requiring period - ending dates. - -3 Previous Period Ending 8 A This records the previous period - ending date. - -4 Month Ending Date 8 A This entry should be changed each - month to reflect the new month ending - date. - -5 Quarter Ending Date 8 A This entry should be changed each - quarter to reflect the new quarter - ending date. - -6 Year Ending Date 8 A This entry should be changed each - year to reflect the new year ending - date. - -7 Reserved 8 A Reserved for future use. - -8 Fiscal Year Ending 8 A This date can be used for recording - fiscal year ending dates where - required. - -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS OR PAYROLL CUTOFFS - -9 - FINISHED -.pa -#2 - GENERAL LEDGER FORMATS - - The General Ledger FORMATS file allows the numeric format of - some statements to be set. Instructions for entering these - are given in the program that creates the file. - -Item # Description Size/Type Entry - -1 Dollar formats 20 A This will normally take the form - #,###,###.##. This is called a PRINT - USING string. It allows the printing - of 9,999,999.99. This can be changed - if desired... for example ##,###,### - would allow the printing of - 99,999,999. A minor caution here, - dropping pennies in this way will - cause TRUNCATION rather than ROUNDING - even though the correct figures would - still be present in the files. Thus - 99.35 would print as 99 and 99.85 - would also print as 99 even though - both figures remained as shown for - calculation purposes. The pennies - would NOT be dropped, they would not - be printed. - -2 Percentage formats 20 A In this case ###.## would allow the - printing of 999.99 percent. -.pa -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS OR PAYROLL CUTOFFS - -9 - FINISHED -.pa -#3 - Entering Page Width, Tabs and Co Name in Use Tag - -THIS IS A LIST OF OPERATIONS - -1 - ENTER TABS -2 - EXAMINE TABS -3 - MODIFY TABS -4 - CREATE NEW FILE -5 - CLEAR EXISTING FILE -6 - FINISHED - -INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING -THE CORRESPONDING NUMBER. - -? 3 - -1 - PAGE WIDTH 72 -2 - TAG TAB 2 -3 - ACCOUNT NUMBER TAB 10 -4 - MAJOR HEADING TAB 22 -5 - SUBHEADING TAB 8 -6 - PARTIAL TOTAL TAB 10 -7 - PARTIAL TOTAL DOLLAR TAB 36 -8 - FINAL TOTAL TAB 17 -9 - FINAL TOTAL DOLLAR TAB 43 -10- DATE TAB 8 -11- PAGE NUMBER TAB 57 -12- COMPANY NAME TAG # 1000 -13- LOWEST BAL SHEET ACCT # 101 -14- HIGHEST BAL SHEET ACCT # 295 -15- LOW COST OF GOODS ACCT # 401 -16- HIGH COST OF GOODS ACCT #405 -17- NONE - - -IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER. - -? 17 - -ANY MORE CHANGES? N - -IS RECORD TO BE ENTERED? N - -*** RECORD NOT ENTERED *** - -GENERAL LEDGER REPORT TABS - - The General Ledger TABS file contains a number of items of - information including series of TABS used in some statement - printing operations. These additional items include COMPANY - NAME IN USE TAG, First and Last BALANCE SHEET account numbers - and First and Last COST OF GOODS account numbers. - -Item # Description Size/Type Entry - -1 Page Width 3 N This entry is used by the system to - center headings on all reports. It - should be set to 80, 132 or whatever - page width printer you are using. - -2 Tag Tab 3 N This number is used in some general - ledger reports to postion the Tag - number when it is printed. Please - change it with caution only after - determining that is will not cause - overlaps in printing. - -3 Account Number Tab 3 N This number is used in some general - ledger reports to position the - account number when it is printed. - See caution above. - -4 Major Heading Tab 3 N This number is used in reports to - postion the DESCRIPTION obtained from - HEADING files. See caution above. - -5 Subheading TAB 3 N This number is used in reports to - position the DESCRIPTION obtained - from SUBHEADING files. See caution - above. - -6 Partial Total Tab 3 N This number is used to position the - subtotal description created by - adding TOTAL (TOTAL CURRENT ASSETS - for example) to the SUBHEADING - descriptions. - -7 Partial Total Dollar 3 N This number is used to position the - dollar value associated with 6 above. - -8 Final Total Tab 3 N This number is associated with the - HEADINGS as in 6 above. - -9 Final Total Dollar Tab 3 N This entry is as #7 above but - operates on HEADING related dollar - totals. - -10 Date Tab 3 N This entry allows positioning the - date on reports. - -11 Page Number Tab 3 N The page number position may be - changed on reports using this tab - number. - -12 Company Name in Use 3 N Several Company names can be retained - in the Company Name File. The correct - name to be used for reports is read - into system memory by setting this - number to match the TAG number of the - Company Name record desired. - -13 Low Balance Sheet 10 N The account numbers to be included - Account Number when creating a BALANCE SHEET are - defined by specifying the first - account number here and the last - account number in item 14 below. The - numbers must EXACTLY match the first - and last account numbers...they - cannot be 100 and 199 if, in fact, - the actual first and last numbers are - 110 and 180! - -14 High Balance Sheet 10 N The high balance sheet account number - Account Number should be entered here. - -15 Low COST OF GOODS 10 N The INCOME STATEMENT normally records - Account Number the COST OF GOODS separate from - general expenses. This and the next - entry are used to define the range of - numbers for COST OF GOODS. - -16 High COST OF GOODS 10 N This entry is used to define the high - Account Number cost of goods account number. This - and the previous entry follow the - same rules as item 13 and 14 above. -.pa -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS OR PAYROLL CUTOFFS - -9 - FINISHED -.pa -#4 - Entering Headings and Subheadings - - Calling Item 4 of the Initialize menu will bring up the -following - - -1 - CHANGE GENERAL LEDGER HEADINGS - -2 - CHANGE GENERAL LEDGER SUBHEADINGS - -3 - FINISHED - - These operations are called in two parts. The same general -information applies for these entry programs as for the general -ledger entry program. The only entries currently used in these -records are the TAG, ACCOUNT NUMBER, DESCRIPTION, FIRST ACCOUNT -NUMBER, and SECOND ACCOUNT NUMBER. - - The TAG and ACCOUNT NUMBER can be any value. A suggestion is -the same number in each which might be 100 for ASSETS, 200 for -LIABILITIES, and so forth. TheDESCRIPTIONs should be in order as -illustrated in the samples included here. - - The FIRST ACCOUNT NUMBER should be the lowest number used for -accounts of that category in the chart of accounts; the SECOND -ACCOUNT NUMBER should be the highest number used. - - The remaining entries are not used at this time. - - Enter the Headings and Subheadings in the appropriate files -and list them to ensure that they are what you want. - - The request that appears before each entry, causes an -appropriate prefix to be added to each description. In the -Heading entry program for example, ASSETS will show up as -HAASSETS. The HA is used in the report and statement generating -programs so don't be concerned that ASSETS is HAASSETS. CURRENT -ASSETS in the subheading entry program will show up as SACURRECT -ASSETS. The heirarchy is ASSETS - HA or SA; LIABILITIES - HL or -SL; EQUITY - HE or SE; SALES - HS or SS; and EXPENSES - HX of SX. - -GENERAL LEDGER HEADINGS - -Item # Description Size/Type Entry - -1 Tag Number 4 N This number could be used as a sort - parameter. It MUST be non-zero since - a zero in this field indicates a - deleted record. Otherwise it has no - significance. - -2 Ledger Account Number 10 N This number is used as a sort - parameter. These numbers should - probably best be set to match the - first account number of each account - number group they head. In this way - sorting will yield a correctly - ordered group of HEADINGS. - -3 Description 30 A This entry will be a description such - as ASSETS. The program will add H for - heading and A for assets yielding an - entry of HAASETS. The heading entry - program takes care of this - automatically after asking whether - the account is an Asset, Liability, - Equity, Sales, or Expense account. - -4 First Account Number 10 N This entry must exactly specify the - FIRST account number used under this - heading. A mistake often made is to - select a range say of 100 to 199 then - make the first account number say - 105. If 100 is entered here, strange - things will happen... you MUST enter - 105! - -5 Last Account Number 10 N This entry follows the rules above! - -6 M-T-D Amount 12 N No entry is made in these fields. - They are used by some programs to - store data temporarily but they will - be erased once the data has been - used. You should only find data here - if one of the programs using these - fields terminates in error. - -7 Q-T-D Amount 12 N See #6 above. - -8 Y-T-D Amount 12 N See #6 above. - -9 M-T-D Percentage 12 N See #6 above. - -10 Q-T-D Percentage 12 N See #6 above. - -11 Y-T-D Percentage 12 N See #6 above. - - -GENERAL LEDGER SUBHEADINGS - - The only difference between the - headings and subheadings is in the - prefix placed on the description. In - the subheading files the prefix SA - (SACurrent Assets) is used instead of - HA thus identifying the record as a - subheading. -.pa -1 - CHANGE REPORT DATES - -2 - CHANGE DOLLAR VALUE OR PERCENTAGE FORMATS - -3 - CHANGE PAGE WIDTH, TABS OR COMPANY NAME IN USE TAG - -4 - CHANGE CHART OF ACCTS HEADINGS AND SUBHEADS - -5 - ADD NEW COMPANY NAMES - -6 - CHANGE OR LIST FEDERAL TAX TABLES - -7 - CHANGE OR LIST STATE TAX TABLES - -8 - CHANGE CHECK TABS OR PAYROLL CUTOFFS - -9 - FINISHED -.pa -#5 - This file can be set up for more than one name. It is aimed -at future hard-disk operations in client writeup operations but -fares very nicely in the floppy disk environment. The name that -will be used for the headings on all reports is controlled by an -entry in the General Ledger TABS file to be mentioned shortly. -The Company Name file is file "NM" on the diskette. It will -contain, in addition to complete address and telephone -information, the Federal and State Tax Identification Numbers for -preparing Form 941 and others. - -COMPANY NAME FILE - -Item # Description Size/Type Entry - -1 Tag 4 N This entry must match the entry under - Company Name in Use in the General - Ledger TABS file. An EOF error will - occur if this is not the case. - -2 Reference Number 10 N This entry must be other than zero - (0). It can be used as a sort - parameter if desired. - -3 Name 24 A This entry is a name for reference - purposes only. It need not be - entered. - -4 Company 24 A This is the Company Name. It will - appear as the FIRST line in all - report headings. - -5 Address 24 A This is the Company address. It - appears as the SECOND line in all - report headings. - -6 City 17 A This is the City. It appears as part - of the THIRD line in all report - headings. - -7 State 2 A Enter a 2 letter state name - abbreviation. It will appear as part - of the THIRD line in all report - headings. - -8 Zip Code 5 A Enter a 5 digit Zip Code. It will - appear as part of the third line in - all report headings. - -9 Telephone 14 A We suggest the form (nnn) nnn nnnn - but you are not forced to this - format. This is NOT printed in the - headings. -10 Federal Tax ID # 20 A This number is used in printing Form - 941 and W2's. - -11 State Tax ID # 20 A This number may be used in the - printing of state tax return forms. - - - ****************** - -THE TAG NUMBER USED SHOULD BE RECORDED HERE OR AT SOME OTHER -CONVENIENT PLACE AS IT WILL BE ASKED FOR IN THE TAB SETUPS. IF -THE TAG INSERTED HERE DOES NOT AGREE WITH THE COMPANY NAME TAG -ENTRY TO BE PLACED IN THE TAB FILE SHORTLY, THE SPACE ON HEADINGS -MAY BE LEFT BLANK. - - ****************** -.pa -A SHORT GUIDE TO SETTING UP A CHART - -Step 1 Enter the information required in the forms provided in - the appendix. This includes the actual chart of accounts - followed by the headings and subheadings. These forms may - not be required but they are provided as a convenience. - -Step 2 Create the necessary file allowing a few more records than - needed for your actual numbered accounts - Assets, - Liabilities, Equity, Sales and Expenses. Enter these - account numbers and descriptions remembering that the TAG - must be some value other than zero (0). - -Step 3 Now sort the created file on account numbers and list the - file. When finished, allow a reference file to be created - by answering N to the question presented on exit. - -Step 4 Enter the Company Name. Record the TAG for entry in the - Tab file. - -Step 5 Enter the Heading and Subheadings paying careful attention - to the entry of first and last account numbers (range of - account numbers) in each category. - -Step 6 Enter the required dates. - -Step 7 Enter the required page width, tabs and company name in - use. - - You are now ready to list your Chart of Accounts. Make one - or two copies for a record of the Record Numbers - associated with each account. These numbers appear at the - left side of the listing and are asked for at various - times in various programs. Keep a copy handy for - reference. -.pa -The General Ledger Journals - - The BUSINESSMASTER packages contain a General Journal, a -Check Disbursement Journal, and a Check Receipts Journal. - - Other parts of this package post to the General Ledger but -the Journals just mentioned take care of a large part of the -daily posting volume. - -The General Journal - - The General Journal is used to post asset acquisitions and -similar items to the General Ledger while maintaining a record of -such postings. Each entry can be posted over as many as 7 -accounts and using two or more records, a posting could be made -over 14 or more accounts. - - After each record or group of records is created, they can be -listed and posted to the General Ledger. A listing should be made -for a permanent record. The posting operation will generate an -audit trail record showing a General Ledger and a true Journal -listing. - -GENERAL JOURNAL - -Item # Description Size/Type Entry - -1 Tag 4 N This entry may be used as a - sequential record number or for any - other purpose desired. It is one of - the sort parameters. - -2 Major Account Number 10 N Normally a general journal is used to - record miscellaneous purchases of - relatively high priced items that are - NOT postable through the check - disbursements of check receipts - journals. The major account number in - the case of the purchase of a - vehicle, for example, would be the - fixed asset account number associated - with such a purchase. This and item - #7 (Major amount) are offset by - double entry postings to one or more - of the 6 allowable distributions. - - For accounting convenience, we DO NOT - FORCE BALANCE. Any out of balance - amount is shown in the DIFFERENCE - before the record is saved. This - allows for OUT-OF-BALANCE POSTINGS - which might be required for the entry - of existing balances. It is also a - simple matter to recall and modify - the entry if desired. - - All account numbers must be VALID - account numbers or they will be - rejected during posting. In fact, the - posting programs first do an account - number validity check indicating - invalid account numbers by printing - them on the line printer. The posting - program is then aborted without - posting ANYTHING to allow the invalid - account numbers to be corrected. - -3 Date 8 A The date is automatically inserted as - the current date from the dates file - but this date may be overridden if - desired. - -4 To Record 24 A This is the normal "to record the - purchase of a new truck" for example - and serves as an account - identification. - -5 Remarks 24 A Additional information may be - recorded here. - -6 Not used 1 A This field is used in check - disbursements and check receipts to - indicate that checks are to be - printed or deposit slips are to be - made. It is not used here but serves - to keep entry operations and posting - operations consistent. - -7 Major amount 12 N This entry is associated with the - Major account number (item #2) and - should be entered as 98.24 for a - debit or -98.24 for a credit. ALL - DEBITS ARE ENTERED AS POSITIVE - AMOUNTS, ALL CREDITS AS NEGATIVE - AMOUNTS THROUGHOUT THIS SOFTWARE - SYSTEM. - -8 #1 Account number 10 N This is the first of 6 account - numbers to which offsetting (or - additional) postings may be made. - This item and item #9 are paired as - are 10/11, 12/13, 14/15, 16/17, and - 18/19. - -9 #1 Amount 12 N The debit or credit amount associated - with the account number in item #8 - above. These amounts allow for the - posting of figures up to - 999,999,999.99 dollars. - -10 #2 Account number 10 N See above. - -11 #2 Amount 12 N See above. - -12 #3 Account number 10 N See above. - -13 #3 Amount 12 N See above. - -14 #4 Account number 10 N See above. - -15 #4 Amount 12 N See above. - -16 #5 Account number 10 N See above. - -17 #5 Amount 12 N See above. - -18 #6 Account number 10 N See above. - -19 #6 Amount 12 N See above. - -The Check Disbursement Journal - - One of the most onerous bookkeeping chores is posting and -distributing checks paid out by the business. This chore is taken -care of with the Check Disbursements Journal. Posting and audit -trail information are similar for all three journals. - - These Journals and the Check Receipts journal, use the bank -account number (General Ledger Account Number of the bank on -which the check is drawn - or to which a Receipt is deposited) -and amount above the delimiter line for posting the appropriate -general ledger bank account. Distribution can be made over as -many as six additional accounts allowing posting to a total of 7 -different accounts. Unlike the General Journal, the use of two or -more records is not recommended. - -The Check Receipts Journal - - This journal follows the same general rules as the Check -Disbursements journal but in this case the check amount will be -positive indicating a DEBIT to the bank account. Notice that all -General Ledger accounts follow the accounting principle of -posting DEBIT balances as positive amounts and CREDIT balances as -negative amounts. - -.pa -A sample Check Disbursement entry - - In the example that follows, a check to Western Auto is -distributed to two accounts in addition to the bank account. -Notice that in the original entry, the AMOUNT OF CHECK was -incorrectly entered. The difference shows up as 460.00. After -correcting the amount to indicate a CREDIT (decrease) to the bank -balance, the difference is 0 indicating an in-balance entry. - -RECORD NUMBER 1 - - ------ -CHECK # ? 101 - ---------- -BANK ACCT # ? 102 - -------- -DATE ? 12-31-78 - ------------------------ -IN FAVOR OF ? WESTERN AUTO - ------------------------ -REMARKS ? NONE - - -PRINT CHECKS(Y/N) ? N - -NUMBER OF DISTRIBUTIONS ? 2 - ------------ -AMOUNT OF CHECK ? 230 - ---------- -1ST ACCT # ? 806 - ------------ -1ST AMOUNT ? 200 - ---------- -2ND ACCT # ? 820 - ------------ -2ND AMOUNT ? 30 - -.pa - - - -RECORD NUMBER 1 CHECK DISBURSEMENT ENTRY -1 - CHECK 101 2 - BANK ACCT # 102 3 - DATE 12-31-78 -4 - IN FAVOR OF WESTERN AUTO -5 - REMARKS NONE 6 - PRINT CHECKS(Y/N)N -7 - AMOUNT OF CHECK $ 230.00 -======================================================================= -POSTING # ACCT # DEBIT CREDIT -======================================================================= -#1 8 - 806 9 - $ 200.00 -#2 10- 820 11- $ 30.00 -#3 12- 0 13- $ .00 -#4 14- 0 15- $ .00 -#5 16- 0 17- $ .00 -#6 18- 0 19- $ .00 - ================= ================= -TOTALS $ 230.00 230.00 - -DIFFERENCE $ 460.00 - -TO MAKE A CHANGE, TYPE THE APPROPRIATE #. IF NONE TYPE 20, RETURN -? 7 - ------------ -AMOUNT OF CHECK ? -230 -ANY MORE CHANGES? Y - -.pa -RECORD NUMBER 1 CHECK DISBURSEMENT ENTRY -1 - CHECK 101 2 - BANK ACCT # 102 3 - DATE 12-31-78 -4 - IN FAVOR OF WESTERN AUTO -5 - REMARKS NONE 6 - PRINT CHECKS(Y/N)N -7 - AMOUNT OF CHECK $ -230.00 -======================================================================= -POSTING # ACCT # DEBIT CREDIT -======================================================================= -#1 8 - 806 9 - $ 200.00 -#2 10- 820 11- $ 30.00 -#3 12- 0 13- $ .00 -#4 14- 0 15- $ .00 -#5 16- 0 17- $ .00 -#6 18- 0 19- $ .00 - ================= ================= -TOTALS $ 230.00 -230.00 - -DIFFERENCE $ .00 - General, Check and Cash Journals - - -.pa -CHECK DISBURSEMENTS - -Item # Description Size/Type Entry - -1 Check Number 8 N This number depends on the setting - established by the system supervisor. - If properly set, the number will be - supplied automatically otherwise it - must be entered manually. - -2 Bank Account Number 10 N This is the GENERAL LEDGER ACCOUNT - NUMBER of the bank account against - which the check is drawn. It will be - requested on entering the program and - the number entered at that point will - be automatically included in this - space. It may be changed by exitting - the program and reentering from the - check disbursements menu call. - -3 Date 8 A This date will automatically be - entered as the current date but may - overridden if desired. - -4 In favor of 24 A This is the payee that will be - printed on the check and in the - journal and ledger created when - posting. It is the first entry not - created automatically by the system. - -5 Remarks 24 A This entry can be used to include - additional information about the - check. - -6 Print Check (Y/N) 1 A This entry is automatically set to Y - to save entry time. It can be - overridden if checks are to be or - have already been written by hand. - The check printing program will only - write checks for a Y entry and the - check printing program will set this - field to N once the check is written - to prevent writing double checks. - -7 Amount of check 12 N This amount will automatically be set - to a credit (reduces the bank - balance) and requires ONLY the AMOUNT - be entered without the - sign. - -8 through 19 10/12 See GENERAL JOURNAL entries above. - - - -CHECK RECEIPTS - -Item # Description Size/Type Entry - -1 Customer TAG Number 4 N The TAG number of the remitting - customer should be entered here as a - posting reference to that customers - account. - -2 Deposit Account Number 10 N This should be the General Ledger - cash in bank account number to which - this remittance is to be debited for - deposit. - -3 Date 8 A The date will be included here. - -4 From 24 A The customer remitting payment should - be entered here. - -5 For(remarks) 24 A Additional information can be - included her. - -6 Deposit slip (Y/N) 1 A This entry can be used to indicate - whether a deposit slip is to be - printed by the computer. The deposit - slip printing program is left to the - user since deposit slip will vary - widely in size, content, print - positions etc. - -7 Amount of check 12 N This is the debit amount to be - entered in the General Ledger cash in - bank account. - -8 through 19 10/12 See General Journal. - -.pa -*** GENERAL LEDGER - JOURNAL MENU *** - -1 - ENTER G/L ACCOUNTS - MAKE ADJUSTING ENTRIES - -2 - LIST THE CHART OF ACCOUNTS - -3 - ENTER DISBURSEMENT TRANSACTIONS - -4 - ENTER RECEIPT TRANSACTIONS - -5 - PRINT TRIAL BALANCE - -6 - PRINT BALANCE SHEET - -7 - PRINT INCOME STATEMENTS - -8 - PRINT BUDGET ANALYSIS - -9 - FINISHED -.pa -1 - We have covered this operation. - -2 - This menu call provides for the printing of a formatted Chart - of Accounts. - -3 - This menu call provides a secondary menu allowing entry of - General Journal and Check Disbursement operations, posting of - these items and a Disbursements Check printer. - -4 - This menu call provides a secondary menu allowing entry and - posting of Check Receipts. - -5 - This menu call provides for printing a Trial Balance with - summarys. - -6 - This menu call provides for the printing of Balance Sheets. - -7 - This menu call provides for the printing of Income - Statements. - -8 - This menu call provides for the printing of a comprehensive - budget analysis covering those items in the Chart of Accounts - that have been given budget amounts. - -9 - This menu call returns to the Master menu. - -.pa - - SECTION 3 - - Payroll Operations - -Introduction - - This payroll package is essentially self-contained. The -second part of the posting program is interactive with the -General Ledger and will post directly to it with an audit trail -record showing the postings actually made. - -Initial Operations - - There are several things that must be done to establish the -payroll package. As it currently runs, only California income tax -is provided for so it will be necessary to incorporate -information in the tax tables and in the payroll calculation -program to accomodate other states. - - The cutoff and percentage figures should be entered for your -particular area. The FICA cutoff and percentage is set to the -latest figure when we ship the package. The State Disability -Insurance figures are set for California and should be changed, -if required, for your local area. The Federal Unemployment figure -and State Unemployment figures are for California... here is the -rule....The Federal Unemployment figure is currently (December -1978) 3.4%. An allowance of up to 2.7% is allowed for State -Unemployment. This means that if your state unemployment is OVER -2.7%, Federal Unemployment will be 0.7%. To determine the -percentage then, simply subtract the State unemployment -percentage (if it is under 2.7%) from 3.4% to get the percentage -for Federal Unemployment. Federal Unemployment tax return is Form -940. An accumulation of $100 or more, must be deposited. - - The Federal and State unemployment is calculated and printed -on the payroll summary but it is not stored in any file at this -time. It will be necessary for you to maintain a running total on -the payroll summary sheets by totalling each weeks payroll -figures for these amounts. - - -PAYROLL CUTOFF AMOUNTS - -Item # Description Size/Type Entry - -1 FICA Cutoff 12 N This and the following entries set - various cutoffs and percentages for - payroll operations. In each case a - cutoff followed by a percentage - figure is allowed. These should be - updated once a year from existing - payroll information. - -2 FICA Percent 12 N See above. -3 SDI Cutoff 12 N See above. - -4 SDI Percent 12 N See above. - -5 Federal Unemployment 12 N See above. - Cutoff - -6 FUTA Percent 12 N See above. - -7 State Unemployment 12 N See above. - Cutoff - -8 SUTA Percent 12 N See above. - -.pa -*** EMPLOYEE PAYROLL SYSTEM MENU *** - -1 - UPDATE EMPLOYEE RECORDS - -2 - ENTER EMPLOYEE TIME CARDS - -3 - CALCULATE EMPLOYEE PAYROLL - -4 - PRINT PAYROLL SUMMARY - -5 - PRINT EMPLOYEE CHECKS - -6 - POST PAYROLL OPERATIONS - -7 - RECORD FEDERAL DEPOSITS (501) - -8 - PRINT FEDERAL AND STATE TAX FORMS (941/W2, ETC) - -9 - FINISHED -.pa - -There are nine parts to the system. These are: - - -1. Update employee records. This part of the program is used to - update the unit records maintained for each employee. - -Entering Employee Information - -You will need the following information: - -1. Employee's name, address, city, state and zip code. -2. Employee's phone number. -3. Employee's social security number. -4. Employment date. -5. Marital Status. -6. Hourly or Salaried. -7. Pay period (weekly, biweekly, semimonthly, or monthly). -8. Number of exemptions. -9. Pay rate. - - The following questions should be answered before payroll is - run each period. - - -1. Did any employee leave during this pay period? (If yes, get - employee #, back up the record in a history file - delete - from the active file). - -2. Have any employee's joined the company? (If yes, get required - information, make a new employee record for both a current - and backup file). - -3. Has there been any change in status for any employee? (If - yes, make appropriate changes in the employee records). - - *** NOTICE *** - - If you furnish an employee more that $50,000 Group-Term Life - Insurance, the COST of such coverage over $50,000 must be - shown as extra income!! - - We strongly recommend that you update all employee records by - running the package with proper entries from the beginning of - the year. In this way you will get complete records and have - some practice running the package if it is obtained midyear. - -EMPLOYEE PAYROLL INFORMATION - -Item # Description Size/Type Entry - -1 Employee Number 8 N This entry should be used to record - an employee number of your choice. - The entry is free form but must be - non-zero. It is a sort parameter - which means that employee records may - be sorted in numerical order. - Although the programs required would - be left to the individual used, - proper use of this employee number - would allow for the development of - departmentalized payroll information. - -2 Account Number 10 N This entry can be used to establish - the account number in the general - ledger to which total payroll is to - be posted. - -3 Name 24 A The employee's name should be entered - here. Suggested is last name first in - upper case followed by a coma then - the first name and initial. This - would allow for the development of - search programs based on the - employee's last name. - -4 Company 24 A This field is immaterial but could be - used to record the name of the - company for which the employee works - where multiple companies are kept on - the same payroll. - -5 Address 24 A This entry should be used to record - the employee's street address for - mailing purposes. - -6 City 17 A See above. - -7 State 2 A Enter a 2 letter state abbreviation. - See above. - -8 Zip Code 5 A Enter a 5 character zip code. See - above. - -9 Telephone 14 A Enter as a home telephone number if - desired or an extension. Space is - provided for the format (nnn) nnn - nnnn. - -10 Social Security Number 11 A Enter the Social Security Number as - nnn-nn-nnnn. - -11 Employment Date 8 A This is the date of employment. It - should be recorded as mm/dd/yy or mm- - dd-yy. - -12 Termination Date 8 A This should be the actual date of - termination and should only be - entered after the final payroll is - prepared. An entry here will stop all - payroll even if time card entries are - inadvertently made for the employee. - -13 Marital Status S/M/H 2 A Record an "S" for a single taxpayer, - an "M" for a married taxpayer, or an - "H" for head of household status. - This entry selects the proper payroll - tables for payroll calculation - purposes. - -14 Hourly or Salaried 1 A Enter "H" for hourly, "S" for - salaried. Hourly empoyees are paid - for the FULL number of hours entered - in the time card entry program. - Salaried employees are paid 40 hours - for a 40 hour work week EVEN if more - or less hours are recorded. The - program will carry the total hours - for record purposes. - -15 Pay period W/B/S/M 1 A Enter W for weekly, B for biweekly, S - for semi-monthly or M for monthly. - - W = 52 periods 7 days 40 hours - B = 26 periods 14 days 80 hours - S = 24 periods 15.2 days 86.66667 hrs - M = 12 periods 30.4 days 173.3333 hrs - -16 Number of exemptions 4 N The package will handle up to 10 - exemptions. Enter the number claimed - here for payroll calculation - purposes. - -17 Hourly rate 6 N All pay calculations are based on an - hourly rate which must be entered - here for proper payroll calculation. - A daily, weekly, or other rate SHOULD - NOT be entered! - -18 Hours this period 6 N Actual hours worked are maintained - for all employees. These hours are - used as the basis for payroll - calculations for hourly employees but - are maintained as totals only for - salaried employees. See above. This - figure can be changed when first - setting up the package but will be - maintained by the Time Card Entry and - Posting programs from then on. - - The remaining fields are self- - explanatory and are maintained by the - Time Card Entry, Calculation and - Posting programs. -.pa -2. Enter employee time cards. This part of the program is used - to enter time for each employee. It allows for the entry of - time, time and one half, double time, sick time, holiday time - and vacation time. It also allows for the entry of - miscellaneous deductions and tips or other income. The - program segment is directly related to the employee record in - that it gets part of its information from that record. - -Entering Employee's Time - - Employee's time is entered through the second part of the - payroll menu. When first creating the file, make it the same - length as the employee data file. The two programs interact - in that on entry, the time card files are cleared by the - program and information copied from the employee records to - each of the active time records. Thus the only record - retained is the listing forced on exit from the program. - -TIME CARD INFORMATION ENTRY - -Item # Description Size/Type Entry - -1 Employee Number 8 N This number is automatically picked - up from the employee record. - -2 Account Number 10 N This account number is automatically - picked up from the employee record. - -3 Name 24 A The name is automatically picked up - from the employee record. - -4 Pay period number 4 N This number is not used at the - present time but can be used to - record the pay period for the - particular time card entries if - desired. - -5 Reportable tips 12 N Although labeled "reportable tips" - this field can be used to record any - type of extra pay not issued on an - hourly basis such as commissions. - -6 misc deductions 12 N This should be used to record a - composite of miscellaneous deductions - such as insurance, union dues, and - others not recordable elsewhere. - -7 through 12 4 N These entries are self-explanatory. - They should be used to record the - appropriate hours for pay purposes. - - Time & 1/2 and double time hours - should be recorded as total hours - worked in each category. The program - will apply a 1.5 or 2 multiplications - factor to each figure. In fact, - entering twice the actual hours in - these fields would allow for triple - or quadruple time if such premium - periods were necessary. - -3. Calculate employee payroll. This part of the program actually - does the payroll calculations using stored copies of the - annuallized federal and state tax tables. The algorithms used - are shown later in this manual. A separate table (epcuts) - establishes the cutoffs and percentages for FICA, State - Disability Insurance, Federal Unemployment and State - Unemployment. This table is accessed for update through the - initialization routines as are the federal and state tax - tables. - -Calculating Payroll - - The payroll is calculated and entered in the current records - of the employee file automatically. For states other than - California, a line should be entered in the calculation - program to allow for the entry of state income tax manually, - or a program should be developed to calculate such tax on a - temporary basis. - -4. Print Payroll Summary. This part of the program generates a - comprehensive payroll summary for each employee including a - total summary of all payroll for the period. It also flags - deposit requirements for federal 501 forms. - -5. Print Employee checks. This part of the programs generates - the payroll checks using the NEBS checks. The address for - NEBS (New England Business Service) is shown elsewhere in - this manual. - -6. Post payroll operations. This part of the program posts the - employee records and the general ledger. - -7. Record Federal deposits. This part of the program is used to - create a week by week record of tax liability and actual - deposits made. It is used during the preparation of Form 941 - and should be filled in week by week to ensure proper - generation of Form 941. - -FEDERAL DEPOSIT RECORD - -Item # Description Size/Type Entry - - This file is automatically created to - contain 48 records. Each record is - used to record the particulars for - one 941 reporting period. The file is - used to prepare 941s and to keep - track of actual deposits for you. - -1 Quarter (1,2,3,4) 1 N Enter the appropriate digit for the - applicable quarter. - -2 Month (1,2,3) 1 N Enter the first, second or third - month of the quarter as appropriate. - -3 Period (1,2,3,4) 1 N Enter the appropriate 941 reporting - period for the month. - -4 Tax liability 12 N Enter here the actual tax liability - for the period from your payroll - summary. - -5 Amount of deposit 12 N Record here the actual amount of the - deposit made with your Form 501. - -6 Check Number 8 N Record, if desired, the check number - of the deposit check. - -7 Date of deposit 8 A Record the date of the deposit. - -8. Print Federal and State tax forms. This calls a menu for the - preparation of Form 941, State forms of your design, and W2 - (latest 1978) forms. - -9. Return to the Master menu. - -Payroll Calculation Algorithms - - Federal and state withholding tax calculations are made using - the Exact Calculation Method described in Circular E - - Employer's Tax Guide. The tables used for these calculations - are in files EF and ES. These tables are loaded into matrices - by the tax calculation program and used to calculate taxes - according to the algorithms shown below. - - All calculations are done on an annualized pay basis. For - hourly employee's, the hours entered are multiplied by a - factor determined by their indicated paydays (weekly, - biweekly, semimonthly, or monthly) as shown elsewhere in this - manual. Salaried employee's hours are maintained but pay is - only calculated on the number of hours corresponding to their - paydays regardless of the number of hours entered. - - The annualized hours are multiplied by the payrate which - should be entered for each employee as an HOURLY rate!!! This - annualized figure is used for the calculation of Federal and - State withholding tax. FICA, FUTA, and SUTA are calculated on - the current pay. The calculated Federal and State withholding - amounts are then divided by the appropriate figure to obtain - the current taxes. - -FICA, Federal Unemployment, and State Unemployment - - FICA, Federal Unemployment, and State Unemployment are - calculated using figures obtained from the cutoff file (EPC). - These figures can be entered or changed through the - initialization routines. The file structure and current - settings are shown in the Business software manual. The - calculations are comprehensive in that they test before and - after the current pay for an over-cutoff condition and only - calculate on that part of the current salary that actually - comes up to the cutoff level. - -ACTUAL PAYROLL CALCULATIONS - -1. HOURS. - The hours contained in the time card record are - read. The actual hours (H1) are developed by totalling ALL - hours. The hours for payroll calculation are developed by - totalling all hour but applying 1.5 and 2 times to time and - one/half and double-time hours respectively. The figure for - ACTUAL hours worked is stored for hourly employees while pay - is calculated on effective hours (H4) to compensate for - overtime. Hours actually worked are also stored for salaried - employees but the figure calculated on is based on whether - these employees are weekly, biweekly, semimonthly, or - monthly. - -2. FICA. - FICA is calculated using the following algorithm: - - If y-t-d gross pay > cutoff then FICA = 0 - If y-t-d gross pay + current gross pay > cutoff then - FICA = y-t-d gross + current gross - cutoff * percentage - If y-t-d gross + current gross <= cutoff then FICA = - current gross * percentage -.pa - SECTION 4 - - Accounts Receivable/Customer Operations - - The entire accounts receivable system works in conjunction -with the Inventory and contains the Order Entry and General -Ledger posting operations. - - Generally a customer file is established as in other data -entry operations. Customer's names, shipping and billing -information and payment information are all contained in the -customer records. Orders are entered via a separate entry program -that calls for data from both the customer record and the -Inventory records. - - Up to 10 items may be entered for each order entry. A pair of -Invoice printing programs then allow for the generation of -Invoices on either pre-printed (NEBS) Invoices or fully formatted -on blank paper. - - As each Invoice is generated, the order entry record is -flagged to indicate this. The LIST CUSTOMER ORDERS creates a -register of Invoices and this is also flagged in the order entry -record. Additionally, posting and payment are flagged. These four -flags allow operations to continue on files which contain the -orders from previous days without duplicating operations already -performed. They also allow for the generation of accrual or open- -item billing. - -.pa -*** SALES ORDER ENTRY / CUSTOMER RECEIVABLES MENU *** - -1 - ENTER NEW CUSTOMER INFORMATION - -2 - ENTER CUSTOMER ORDERS - -3 - LIST CUSTOMER ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) INVOICES - -5 - PRINT PRE-PRINTED INVOICES - -6 - POST ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS RECEIVABLE REPORT - -8 - PRINT CUSTOMER LABELS - -9 - FINISHED -.pa - -#1 Enter New Customer Information - - The following information should be used in entering new -customer information. The customer records are necessary both the -the process of order entry and to the printing of accounts -receivable reports. - -CUSTOMER RECEIVABLES - -Item # Description Size/Type Entry - -1 Tag 4 N This is used as a sort parameter and - must be non-zero. - -2 Acct Number 10 N This should be set to the accounts - receivable account number for this - customer. - - The following entries are used for - label printing and for the SOLD TO - part of the Invoices and Statements. - -3 Name (attention) 24 A See Above. - -4 Company 24 A See Above. - -5 Address 24 A See Above. - -6 City 17 A See Above. - -7 State 2 A See Above. - -8 Zip Code 5 A See Above. - -9 Phone 14 A See Above. - - The following entries will be used - for the SHIPPING information in all - Invoices. The date of the last - payment is recorded during posting - operations. All entries are - Alphanumeric. - -10 Name (attention) 24 A See Above. - -11 Company 24 A See Above. - -12 Address 24 A See Above. - -13 City 17 A See Above. - -14 State 2 A See Above. - -15 Zip Code 5 A See Above. - -16 Phone 14 A See Above. - -17 Date of last pmnt 8 A See Above. - -1 Amt of last pmnt 12 N This field records the amount of the - last payment received against this - account. - -2 Total Y to Date pmnt 12 N This field records the total Year to - Date payments received against this - account. - -3 Current Charges 12 N This is aging information. - -4 30-60 Days 12 N This is aging information. - -5 61-90 Days 12 N This is aging information. - -6 Over 90 Days 12 N This is aging information. -.pa -*** SALES ORDER ENTRY / CUSTOMER RECEIVABLES MENU *** - -1 - ENTER NEW CUSTOMER INFORMATION - -2 - ENTER CUSTOMER ORDERS - -3 - LIST CUSTOMER ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) INVOICES - -5 - PRINT PRE-PRINTED INVOICES - -6 - POST ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS RECEIVABLE REPORT - -8 - PRINT CUSTOMER LABELS - -9 - FINISHED -.pa -#2 Enter Customer Orders - - This menu call allows the entry of orders for Invoicing and -other operations. - -INVOICE REGISTER - -Item # Description Size/Type Entry - -1 Tag 8 N This Field is used as a sort - parameter. - -2 A/R Acct # 10 N This field should contain the - accounts receivable to which this - invoice is to be recorded. - -3 Invoice # 10 N This number is supplied by the - system. A program called INVENT - allows the selection of either forced - sequintial numbering or random manual - numbering. - -4 Salesman 24 A The name can be up to 24 characters - long but will not be printed out in - its entirety during invoicing. - -5 Cust. Order # 24 A This field can be used to record - Customer order number. - -6 Shipping Date 8 A This field is used to record the - shipping date. - -7 Carrier (via) 8 A This field is used to record the - carrier for printing on the invoice - (UPS, mail, Etc.). - -8 FOB point 10 A This field is used for printing the - FOB point on the invoice. - -9 Terms 10 A This filed is used to enter the terms - of the sale. The Numeral 1 in this - field will cause "PREPAID" to be - printed on the Invoice. The Numeral 2 - will cause "COD" to be printed on the - invoice. The Numeral 3 will cause "1% - 10 net 30" to be printed on the - invoice. Any other entry will be - printed as entered. - -10 Tax Code 1 A This is a single character field. It - will calculate and include 6% State - sales tax if a Y is entered. - -11 Post,Invoice,Register 4 A This field should not be tampered - with since entries are made by the - system to prevent double invoicing or - double posting. If an invoice has - been cut, posting performed, a - register made, and the invoice has - been paid this field will contain - PIRP. - -12 Customer Record # 4 N This entry is used to select the - proper customer for invoicing, - posting, Etc. - -13 Shipping Charges 12 N Enter any shipping charges to be - invoiced in this field. - - The following entries allow for - calling up to ten (10) finished goods - inventory items to be included on the - invoice. The finished goods record - number is followed by the quanity - ordered for that item. During - invoicing the items are called by - record number from inventory and the - inventory is depleted by the number - ordered. Should the quanity ordered - exceed the quanity on hand, only the - items on hand will be invoiced. A - back-order quanity will be included - on the invoice and the inventory will - be zeroed...the amount will not go - negative. All extensions on the - invoice and all totals are - automatically calculated. - -1-10 Finished Goods Rec. # 4 N See Above. - -1-10 Quanity 10 N See Above. - -.pa -*** SALES ORDER ENTRY / CUSTOMER RECEIVABLES MENU *** - -1 - ENTER NEW CUSTOMER INFORMATION - -2 - ENTER CUSTOMER ORDERS - -3 - LIST CUSTOMER ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) INVOICES - -5 - PRINT PRE-PRINTED INVOICES - -6 - POST ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS RECEIVABLE REPORT - -8 - PRINT CUSTOMER LABELS - -9 - FINISHED -.pa - -#3 This menu call creates a complete list of orders that have - not been previously listed. The listing operation makes use - of the customer records and inventory records to achieve a - printed record of all orders generated by the system. It - automatically updates the proper flags in the order entry - record so that double listing does not occur. - -#4 This menu call prints Invoices on NEBS continuous form - Invoices. The operation requires minimal supervision. - -#5 This menu call is for those who prefer not to use continuous - form invoices. Invoices are printed on plain paper. - -#6 This menu call allows the posting of sales operations to the - General Ledger. On screen dialogue is used to prompt for the - proper posting operations. - -#7 This menu call prints the aged accounts receivable report - without intervention. - -#8 This menu call allows for the printing of labels to be used - wherever needs in customer operations. -.pa - SECTION 5 - - Accounts Payable / Vendor Operations - - The Accounts Payable is practically a reverse of the Accounts -Receivable. It allows for the maintenance of Vendor Information -records. These contain similar information to the account -receivable but indicate payments made to vendors, aging of vendor -accounts and other vendor related information -.pa -*** PURCHASE ORDER ENTRY / VENDOR PAYABLES MENU *** - -1 - ENTER NEW VENDOR INFORMATION - -2 - ENTER PURCHASE ORDERS - -3 - LIST PURCHASE ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) PURCHASE ORDERS - -5 - PRINT PRE-PRINTED PURCHASE ORDERS - -6 - POST PURCHASE ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS PAYABLE REPORT - -8 - PRINT VENDOR LABELS - -9 - FINISHED -.pa -VENDORS PAYABLE FILE - -Item # Description Size/Type Entry - -1 Tag 4 N Same as the customer file. - -2 Acct Number 10 N Same as the customer file. - -3 Name (attention) 24 A Same as the customer file. - -4 Company 24 A Same as the customer file. - -5 Address 24 A Same as the customer file. - -6 City 17 A Same as the customer file. - -7 State 2 A Same as the customer file. - -8 Zip Code 5 A Same as the customer file. - -9 Phone 14 A Same as the customer file. - -SHIPPING - -10 Name (attention) 24 A Same as the customer file. - -11 Company 24 A Same as the customer file. - -12 Address 24 A Same as the customer file. - -13 City 17 A Same as the customer file. - -14 State 2 A Same as the customer file. - -15 Zip Code 5 A Same as the customer file. - -16 Phone 14 A Same as the customer file. - -17 Date of last pmnt 8 A Same as the customer file. - -1 Amt of last pmnt 12 N Same as the customer file. - -2 Total year to date 12 N Same as the customer file. - -3 Current Charges 12 N Same as the customer file. - -4 30-60 days 12 N Same as the customer file. - -5 61-90 days 12 N Same as the customer file. - -6 Over 90 days 12 N Same as the customer file. -.pa -*** PURCHASE ORDER ENTRY / VENDOR PAYABLES MENU *** - -1 - ENTER NEW VENDOR INFORMATION - -2 - ENTER PURCHASE ORDERS - -3 - LIST PURCHASE ORDERS - -4 - PRINT PLAIN PAPER (FORMATTED) PURCHASE ORDERS - -5 - PRINT PRE-PRINTED PURCHASE ORDERS - -6 - POST PURCHASE ORDERS TO GENERAL LEDGER - -7 - PRINT AGED ACCOUNTS PAYABLE REPORT - -8 - PRINT VENDOR LABELS - -9 - FINISHED -.pa -PURCHASE ORDER REGISTER - -Item # Description Size/Type Entry - -1 Tag 4 N Same as the invoice file. - -2 A/P Acct # 10 N Same as the invoice file. - -3 Purchase order # 10 N Same as the invoice file. - -4 Buyer 24 A Same as the invoice file. - -5 Our Order # 24 A Same as the invoice file. - -6 Required Date 8 A Same as the invoice file. - -7 Carrier (via) 8 A Same as the invoice file. - -8 FOB Point 10 A Same as the invoice file. - -9 Terms 10 A Same as the invoice file. - -10 Tax Code 1 A Same as the invoice file. - -11 Post,invoice,register 4 A Same as the invoice file. - -12 Vendor Tag # 4 N Same as the invoice file. - -13 Shipping chgs 12 N Same as the invoice file. - -1 - 10 Finished Goods Rec. # 4 N Same as the invoice file. - -1 - 10 Quanity 10 N Same as the invoice file. -.pa - SECTION 6 - - Inventory and Fixed Asset Operations - - The Inventory section carries two inventory files. These are -labelled FINISHED GOODS and RAW GOODS. - - The Finished Goods inventory is the inventory actually -accessed by the Order Entry section of accounts receivable. By -properly maintaining this inventory it will serve about any -inventory accounting purpose desired. - - If new numbers are assigned to items when purchase prices -change it will serve as an exact value (as opposed to LIFO or -FIFO) inventory of all material in stock. Also, since it is -automatically decremented by the Order entry package, it will be -a perpetual inventory. - - Properly maintained with manual entries, the Raw Goods -inventory can serve the same purpose for all material purchased -for use in manufacturing operations. - - The report printed for both of these inventories gives total -cost, total selling price, and a gross profit differential figure -for use in administration. The information contained in the -records also allows for the calculation of economic order -quantities. In fact programs could be written to do this job. - - The alert printed for each of these inventories flags both -over maximum and under minimum quantities printing only those -items which fall in these categories. -.pa -*** FINISHED / CAPITAL / RAW GOODS INVENTORY MENU *** - -1 - UPDATE FINISHED GOODS INVENTORY - -2 - UPDATE RAW GOODS INVENTORY - -3 - PRINT FINISHED GOODS REPORT - -4 - PRINT RAW GOODS REPORT - -5 - PRINT FINISHED GOODS ALERT - -6 - PRINT RAW GOODS ALERT - -7 - FIXED ASSET OPERATIONS - -8 - FINISHED -.pa - -FINISHED GOODS INVENTORY - -Item # Description Size/Type Entry - -1 Tag 4 N This field is used as a sort - parameter and may be used for any - purpose. It must be Non-Zero. - -2 Acct Number 10 N This field should be set to the - General Ledger account number for - Inventory.This field must be Non- - Zero. - -3 Item # 7 A This field is used to record any form - of item number you desire up to 7 - characters long. - -4 Part # 12 A This field is used to record any form - of part # you desire up to 12 - characters long. - -5 Description 24 A This field can be used to enter a - product description of up to 24 - characters. It will also be used on - the invoice to describe the product. - -6 Location (shelf,bin) 24 A This field can be used to record a - location description of up to 24 - characters. This would be useful in - physical inventory operations. - -7 Date of last issue 8 A This field is used to record the date - this product was issued from stock. - -8 Date of last receipt 8 A This field is used to record the date - an order of this product was last - received. - -9 Vendor Code 10 A This field can be used to record a - vendor code of up to 10 characters. - -10 Vendor Tag # 4 N The vendor tag number for the - supplier of this product should be - recorded here. - -11 Unit Cost 12 N The unit cost entered here will be - used in the preparation and extension - of purchase orders. - -12 Selling Price 12 N The selling price recorded here will - be used in the preparation and - extension of invoices. - -13 Quan on Hand 8 N This field is depleted by the invoice - printer at the time of invoicing this - product. Receipt of fresh stock - should be added to this field. - -14 Quan on Order 8 N This field should contain the quanity - of any product currently on order but - not received. - -15 Quan Issued m-t-d 10 N This entry is incremented by the - number of items invoiced as are the - next two entries. The maintenance - program will zero out the M-T-D - amounts during monthly maintenance, - leaving quarter and year to date - amounts to be incremented still - further. In a similar manner the q-t- - d and y-t-d issues will be zeroed out - during those maintenance program - runs. Thus y-t-d issues will always - contain the total number of items - issued for the current year, the q-t- - d issue will contain the total number - of items issued during the current - quarter, and the m-t-d items the - total issue for the current month. - These figures should prove useful in - establishing inventory levels and - EOQs. - -16 Quan issued q-t-d 10 N See Above. - -17 Quan issued y-t-d 10 N See Above. - -18 Min quan (stock) 10 N The minimum stock level to mantain - either estimated or from history - should be entered here. This figure - will be compared to the quanity on - hand to produce an output when - running the inventory ALERT program - if the quanity on hand is less than - the minimum. - -19 Max quan (stock) 10 N The maximum stock level should be - entered here. The alert will print - out any items over maximum in stock. -.pa -RAW GOODS INVENTORY - -Item # Description Size/Type Entry - -1 Tag 4 N See Finished Goods. - -2 Acct Number 10 N See Finished Goods. - -3 Item # 7 A See Finished Goods. - -4 Part # 12 A See Finished Goods. - -5 Description 24 A See Finished Goods. - -6 Location(shelf,bin) 24 A See Finished Goods. - -7 Date of last issue 8 A See Finished Goods. - -8 Date of last receipt 8 A See Finished Goods. - -9 Vendor Code 10 A See Finished Goods. - -10 Vendor Tag # 4 N See Finished Goods. - -11 Unit Cost 12 N See Finished Goods. - -12 Selling Price 12 N See Finished Goods. - -13 Quan on hand 8 N See Finished Goods. - -14 Quan on order 8 N See Finished Goods. - -15 Quan issued m-t-d 10 N See Finished Goods. - -16 Quan issued q-t-d 10 N See Finished Goods. - -17 Quan issued y-t-d 10 N See Finished Goods. - -18 Min quan (stock) 10 N See Finished Goods. - -19 Max quan (stock) 10 N See Finished Goods. -.pa -*** FINISHED / CAPITAL / RAW GOODS INVENTORY MENU *** - -1 - UPDATE FINISHED GOODS INVENTORY - -2 - UPDATE RAW GOODS INVENTORY - -3 - PRINT FINISHED GOODS REPORT - -4 - PRINT RAW GOODS REPORT - -5 - PRINT FINISHED GOODS ALERT - -6 - PRINT RAW GOODS ALERT - -7 - FIXED ASSET OPERATIONS - -8 - FINISHED - -.pa -#3 This menu selection prints a comprehensive finished goods - inventory report. - -#4 This menu selection prints a similar report for raw goods. - -#5 This menu selection prints an inventory alert those items - that are either over maximum or under minimum for aid in - determining order requirements. - -#6 This menu selection prints the alert for raw goods. - -#7 This menu selection brings up the following menu. -.pa -*** FIXED ASSET ACCOUNTING MENU *** - -1 - ENTER OR MODIFY CAPITAL GOODS - -2 - CALCULATE YEARS DEPRECIATION - -3 - PRINT DEPRECIATION REPORT - -4 - PRINT IRS FORM 4562 - DEPRECIATION -.pa - This Capital Goods, Fixed Asset, or Depreciation Accounting -package is designed to afford a means of calculating depreciation -for either Income Tax purposes or internal purposes. You may -generate one set of records for internal depreciation of fixed -assets using any method of depreciation you chose and a second -set which uses IRS approved depreciation methods for reporting -purposes. - -This package allows for the following direct calculation methods: - -1. Straight Line SL -2. Sum-of-the-years-digits SD -3. Declining Balance @ - 125% D1 - 150% D2 - 200% D3 - -and affords a means of applying the IRS Class Life Asset -Depreciation Range (CLADR) System of determining useful life. By -constructing the records correctly both Half Year or Modified -Half Year elections can be made for the particular vintage year -the account is established. See the RIA Tax Guide, Revenue -Procedure 72-10, or Publication 534, Tax Information on -Depreciation for additional details of this system. - - Because of the diversity of opinion and method in fixed asset -accounting, this package makes no provision for direct posting to -the General Ledger. A good sourcebook for fixed asset -(depreciation) accounting and accounting theory is the Handbook -of Modern Accounting by Davidson and Weil published by McGraw- -Hill. - -This package allows for the following: - -1. The recording of individual or multiple assets in records - which contain all current and historical data on the asset - with the ability to edit and revise these entries as - desired. These accounts may be carried as straight - depreciation accounts or as Vintage accounts as described in - the various references cited. - -2. The calculation of depreciation each year using information - contained in the record using any of the 5 previously - mentioned IRS accepted calculation methods and allowing for - the treatment of each record as either a standard - depreciation or a CLADR vintage record. - -3. The printing of a condensed depreciation schedule for - internal use. - -4. The printing of IRS Form 4562 DEPRECIATION for inclusion in - your tax return. - - It will be necessary to post your General Ledger accounts as -required through the General Journal Posting routines. - - It is also possible, using duplicate files, to carry internal -depreciation one way and IRS depreciation another. A large number -of methods for accounting for the costs incurred in the use of -fixed assets are discussed in the Handbook of Modern Accounting. -Again we stress that if you are NOT a qualified accountant, by -all means discuss this package WITH your accountant. - -The address for the Research Institute of America is: - -The Research Institute of America, Inc -589 Fifth Avenue -New York, NY 10017 - - Another very extensive source of information is the four -volume subscription service offered by Commerce Clearing House. -Their address is: - -Commerce Clearing House, Inc -Publishers of Topical Law Reports -4025 W. Peterson Avenue -Chicago, Illinois 60646 -.pa -The Capital Goods Entry Program - - This program is the first menu call. We will go through the -entries one by one indicating any special effects they have on -the operation of the program. - -1. TAG - This can be used as an in-house identification number. - It is shown as four bytes long but being a numeric entry, it - can probably be longer without adversely affecting operation - of the programs. - -2. FIXED ASSET ACCOUNT # - This number can be used as an - indicator for posting purposes. - -3. DEPRECIATION ACCOUNT # - This number can also be used as an - indicator for posting purposes. - -4. DESCRIPTION - This entry can contain both numeric and alpha - data about the item in the record. It could also contain an - identifying number. It is currently 24 bytes long. - -5. LOCATION - This is another 24 byte entry specified for - location but can be used for whatever purpose you desire. - -6. NEW OR USED - This entry is a single byte. It should be - either N - new; U - used; or V - Vintage. If the entry is N - or U, the account entry will be treated as a non-vintage - account and not subject to CLADR operations. The V will - signify Vintage and the DATE information that follows should - be read carefully. - -7. DATE - The date has two uses. If the record contains an item - or items subject to standard depreciation, it should be the - date entered in the form mm/dd/yy, where mm is the month, dd - the day, and yy the year. This date is compared with the - current date (in the regular date file). If the year part of - the date in the date file matches the date acquired date, - the item is treated as acquired during the preceding 12 - months or less. The month and day are then used to calculate - the number of days the asset has been owned and this - fraction is used for depreciation calculation. The actual - calculation program should be run at the end of the year - with the current date in the date file set to 12/31/xx. It - can be run at other times of the year but will post the - depreciation records as though it were the year-end. Month- - to-date depreciation and quarter-to-date depreciation are - not precisely what they seem. They are set to 1/12th and - 1/4th of the years depreciation. - - The second mutually exclusive use is as a vintage account - flag when the record is being run under IRS CLADR - depreciation. If using the Half-year convention, the date - should be set to H00xx where xx is the vintage year. If - using the Modified Half-year convention, the date should be - entered as M01xx or M02xx depending on whether the asset is - acquired before or after the middle of the year. 01 is the - first half year; 02 the second. xx is still the vintage - date. Using CLADR life and the above conventions, the - calculation program will do CLADR depreciation. - -8. DEPRECIATION METHOD - For either depreciation method above, - the following elections are possible - SL = straight line; - D1 = declining balance at 125%; D2 = declining balance at - 150%; D3 = declining balance at 200% (maximum); and SD = - Sum-of-the-years digits. The calculation program looks at - this entry to determine which depreciation program to use. - -9. COST OR BASIS - This is the initial depreciable cost of the - equipment. This entry is not changed by any program in the - system and should match the entry in item 10 initially. - -10. DEPRECIABLE BASIS - This entry is used in caculations and - posted down during the calculation program to reflect the - new basis after a years depreciation. - -11. PRIOR YEARS DEPRECIATION - This amount should, when added to - item 10, be equal to item 9 at any point in the cycle. - -12. USEFUL LIFE - This entry need not be present for vintage - accounts. It should be set to the useful life figure for the - item for other methods of depreciation. - -13. REMAINING LIFE - This value should be entered initially - equal to item 12. It is posted down 1 each time the - calculation program is run. - -14,15 and 16 - These are posted during the running of - calculations. - -17. SALVAGE VALUE - This value whether 0 or positive is used to - set the lower limit of depreciation. - - - It is possible to construct a sample set of records and run -the complete cycle through to the end of the asset life to see -the effect of various depreciation methods. - - The election of a 20% first-year depreciation is also -provided for in the calculations part of this package. - - -CAPITAL GOODS INVENTORY - -Item # Description Size/Type Entry - -1 Tag 4 N This field must be non-zero and can - be used as a sort parameter. - -2 Fixed Asset Acct # 10 N This field should contain the General - Ledger account number for the fixed - asset category under which it falls. - -3 Depreciation Acct # 10 N This field should contain the G/L - acct # for the Depreciation account - under which it falls. - -4 Description 24 A This field should contain a - description of the item or items as - they will appear on the depreciation - report and Form 4562. - -5 Location 24 A This field is here as a convenience - to the user to mantain location - information. - -6 New or Used 1 A This field should either be an N or a - U. - -7 Date Acquired 8 A The format used for entry of this - field should be mm/dd/yy. This date - will be used to compute partial - depreciation from the date acquired - to the end of the reporting period. - This date is also compared with the - current year to determine eligibility - for first-year depreciation. One - exception exists... if this is a - CLADR vintage account, the entry - should be in the form H1979 for half - year calculations or M1979 for - modified half year methods. The - program looks at the FIRST character. - If this character is M or H it is - treated as a vintage account and - depreciation is calculated - accordingly. If it is a numeral, the - account is treated as a standard - account and depreciation calculated - in the normal way. - -8 Depreciation Method 2 A The format for the following field - MUST be SL for Straight Line, D1 for - Declining Balance 125%, D2 for - Declining Balance 150%, D3 for - Declining Balance 200%, or SD for sum - of the years digits. Depreciation - will be calculated accordingly. - -9 Cost or Basis 12 N This field should contain the - original cost or other basis on which - depreciation is to be calculated. - -10 Depreciable Basis 12 N This field will be depleted by the - program to form a new depreciable - basis for each succeeding year. - -11 Prior Years Dep. 12 N This field will be incremented by one - for each years depreciation taken. - -12 Useful Life 4 N You should enter here the useful life - of the asset. - -13 Remaining Life 4 N This field will hold the difference - of useful life and prior years - depreciation. - -14 Month to date dep. 12 N This field will be one twelfth (1/12) - of the y-t-d depreciation. The - calculation program calculates a full - years depreciation and will then - divide by 4 to get q-t-d and 12 to - get m-t-d. A copy of the file should - be made to run month or quarter to - date depreciation and the master file - run through the calculation program - only once a year. - -15 Quarter to date dep. 12 N See Above. - -16 Year to date dep. 12 N See Above. - -17 Salvage Value 12 N When remaining value falls below the - value you enter here, depreciation - calculations will be stopped on this - asset. - -.pa - SECTION 7 - - Mailing List Operations - - This group of mailing list programs is designed to provide -some minimum capabilities in the maintenance of in-house -advertising mailing lists. The packagealso provides for the -printing of labels for customers, vendors, and employeesusing the -files associated with each of these. - - Both the programs and the documentation are due for expansion -to provide additional features. - - The list, once entered can be sorted on either tag or -reference number. We suggest the zip code as a reference number -for the startup of the system. -.pa -*** MAILING LIST MENU *** - -1 - UPDATE MAILING LIST - -2 - PRINT MAILING LABELS - -3 - PRINT CUSTOMER LABELS - -4 - PRINT VENDOR LABELS - -5 - PRINT EMPLOYEE LABELS - -6 - FINISHED -.pa - -MAILING LIST FILE - -Item # Description Size/Type Entry - -1 Tag 4 N The entry program will allow - automatic entry of the record number - if desired. - -2 Ref Number 10 N The entry program will allow the zip - code to be assigned here - automatically (from item #8 below) - thus allowing zip code sort/merge - operations. - -3 Name 24 A Self Explanatory. - -4 Company 24 A Self Explanatory. - -5 Address 24 A Self Explanatory. - -6 City 17 A Self Explanatory. - -7 State 2 A Self Explanatory. - -8 Zip Code 5 A Self Explanatory. - -9 Telephone 14 A Self Explanatory. -.pa -*** MAILING LIST MENU *** - -1 - UPDATE MAILING LIST - -2 - PRINT MAILING LABELS - -3 - PRINT CUSTOMER LABELS - -4 - PRINT VENDOR LABELS - -5 - PRINT EMPLOYEE LABELS - -6 - FINISHED -.pa - - Using the label printers - - Each label printer allows for the selection of from 1 to 5 -labels across the page. A second selection determines the spacing -between labels. - - If the number of labels is set for one (1), the second -selection will determine the distance over to the single label, -allowing the printing of tipped continuous-form envelopes. A -pause could also be inserted to allow the printing ofindividual -envelopes. - - The last selection indicates the number of line spaces -between labels. -.pa -.pa - SECTION 8 - - Periodic File Maintenance Operations - -.pa -*** PERIODIC MAINTENANCE MENU *** - -1 - DO MONTHLY FILE MAINTENANCE - -2 - DO QUARTERLY FILE MAINTENANCE - -3 - DO YEARLY FILE MAINTENANCE - -4 - FINISHED - diff --git a/bwbtest/C77B/NMSORT.BAS b/bwbtest/C77B/NMSORT.BAS deleted file mode 100644 index ed808dd..0000000 --- a/bwbtest/C77B/NMSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the Company Name Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="nm":z6$="nmback":z7$="nmsize":RL=170 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$ - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$ - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$ - PRINT #1,Z;N(2,1),N(2,2),N$ - NEXT Z - - for z=1 to 20:n(2,z)=0:next z:n$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$ - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "namentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "namentry" diff --git a/bwbtest/C77B/PAD80.BAS b/bwbtest/C77B/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/C77B/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/C77B/PAD80.INP b/bwbtest/C77B/PAD80.INP deleted file mode 100644 index 3d0400d..0000000 --- a/bwbtest/C77B/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA BIZMII.OUT, BIZMII.80 diff --git a/bwbtest/C77B/PAD80.PRO b/bwbtest/C77B/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/C77B/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/C77B/POENT.BAS b/bwbtest/C77B/POENT.BAS deleted file mode 100644 index 517e7da..0000000 --- a/bwbtest/C77B/POENT.BAS +++ /dev/null @@ -1,19 +0,0 @@ -1 rem This is the Purchase Order Number Sequencing Entry Program - - if end #1 then 2000 - open "poe" as 1 - read #1;n - close 1 -1030 PRINT "CURRENT PURCHASE ORDER NUMBER IS ";N -1040 PRINT:PRINT "PLEASE TYPE IN THE NEW PURCHASE ORDER SEQUENCE" -1050 PRINT "STARTING NUMBER." -1060 PRINT:PRINT "A ZERO VALUE WILL ALLOW THE MANUAL ENTRY OF" -1070 PRINT "NON-SEQUENTIAL PURCHASE ORDER NUMBERS." -1080 PRINT:INPUT N -1090 open "poe" as 1 - print #1;n - close 1 - stop -2000 create "poe" as 1 - close 1 - goto 1040 diff --git a/bwbtest/C77B/QMAINT.BAS b/bwbtest/C77B/QMAINT.BAS deleted file mode 100644 index 4f954d9..0000000 --- a/bwbtest/C77B/QMAINT.BAS +++ /dev/null @@ -1,170 +0,0 @@ -1 rem This is the Quarterly File Maintenance Program - -%INCLUDE ALL.BAS -500 dim n(2,20) - RESTORE -1500 PRINT clear$:PRINT -1510 PRINT "THIS IS THE QUARTERLY FILE MAINTENANCE PROGRAM....." -1520 PRINT:PRINT"IT DOES THE FOLLOWING:" -1530 PRINT:PRINT"POSTS ALL M-T-D & Q-T-D GENERAL LEDGER AMOUNTS TO PREVIOUS" -1540 PRINT:PRINT"POSTS ALL M-T-D & Q-T-D GENERAL LEDGER AMOUNTS TO ZERO" -1550 PRINT:PRINT"UPDATES CUSTOMER AND VENDOR AGING DATA" -1560 PRINT:PRINT"ZEROS QUARTER TO DATE PAYROLL AMOUNTS" -1570 PRINT:PRINT"ZEROS MONTH, AND QUARTER TO DATE 'QUANTITY" -1580 PRINT:PRINT"ISSUED' FIGURES." -1590 PRINT:INPUT"TO CONTINUE TYPE CARRIAGE RETURN ";line temp$ -2000 PRINT clear$:PRINT -2010 PRINT "INSTALL GENERAL LEDGER DISK IN DRIVE B." -2020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -2040 PRINT "CHECKING FILE LENGTH" -2050 PRINT:PRINT "*** PLEASE WAIT ***" -2060 open "gl" recl 138 as 1 - z3=(size("gl")*block.size)/138 -2080 FOR Z2=1 TO Z3 -2090 read #1,z2;N(2,1),N(2,2),N$ -2100 IF N(2,2)=0 THEN 2120 -2110 NEXT Z2 -2120 Z3=Z3-1 -2130 close 1 -2140 Z2=Z2-1 -2200 PRINT clear$:PRINT -2210 PRINT "GENERAL LEDGER ACCOUNTS = ";Z2 -2220 PRINT:PRINT "*** POSTING ***" -2500 open "gl" recl 138 as 1 -2505 FOR Z=1 TO Z2 -2510 N$="" -2520 read #1,z; N(2,1),N(2,2),N$,G1,G2,G3,G4,G5,G6,G7 -2530 G5=G2:G4=G1:G2=0:G1=0 -2540 print #1,z; N(2,1),N(2,2),N$,G1,G2,G3,G4,G5,G6,G7 -2550 NEXT Z -2560 close 1 -3000 PRINT clear$:PRINT -3010 PRINT "INSTALL CUSTOMER RECEIVABLES DISK IN DRIVE B." -3020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -3040 PRINT "CHECKING FILE LENGTH" -3050 PRINT:PRINT "*** PLEASE WAIT ***" -3060 open "cr" recl 384 as 1 - z3=(size("cr")*block.size)/384 -3080 FOR Z2=1 TO Z3 -3090 read #1,z2;N(2,1),N(2,2),N$ -3100 IF N(2,2)=0 THEN 3120 -3110 NEXT Z2 -3120 Z3=Z3-1 -3130 close 1 -3140 Z2=Z2-1 -3200 PRINT clear$:PRINT -3210 PRINT "CUSTOMER RECEIVABLES ACCOUNTS = ";Z2 -3220 PRINT:PRINT "*** POSTING ***" -3500 open "cr" recl 384 as 1 -3510 FOR Z=1 TO Z2 -3520 read #1,z;n(2,1),n(2,2),n$,c1,c2,c3,c4,c5,c6 -3530 C6=C6+C5:C5=C4:C4=C3:C3=0 -3540 print #1,z;n(2,1),n(2,2),n$,c1,c2,c3,c4,c5,c6 -3550 NEXT Z -3560 close 1 -4000 PRINT clear$:PRINT -4010 PRINT "INSTALL VENDOR PAYABLES DISK IN DRIVE B." -4020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -4040 PRINT "CHECKING FILE LENGTH" -4050 PRINT:PRINT "*** PLEASE WAIT ***" -4060 open "vp" recl 384 as 1 - z3=(size("vp")*block.size)/384 -4080 FOR Z2=1 TO Z3 -4090 read #1,z2;N(2,1),N(2,2),N$ -4100 IF N(2,2)=0 THEN 4120 -4110 NEXT Z2 -4120 Z3=Z3-1 -4130 close 1 -4140 Z2=Z2-1 -4200 PRINT clear$:PRINT -4210 PRINT "VENDOR PAYABLES ACCOUNTS = ";Z2 -4220 PRINT:PRINT "*** POSTING ***" -4500 open "vp" recl 384 as 1 -4510 FOR Z=1 TO Z2 -4520 read #1,z;n(2,1),n(2,2),n$,v1,v2,v3,v4,v5,v6 -4530 V6=V6+V5:V5=V4:V4=V3:V3=0 -4540 print #1,z;n(2,1),n(2,2),n$,v1,v2,v3,v4,v5,v6 -4550 NEXT Z -4560 close 1 -5000 PRINT clear$:PRINT -5010 PRINT "INSTALL EMPLOYEE PAYROLL DISK IN DRIVE B." -5020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -5040 PRINT "CHECKING FILE LENGTH" -5050 PRINT:PRINT "*** PLEASE WAIT ***" -5060 open "ep" recl 512 as 1 - z3=(size("ep")*block.size)/512 -5080 FOR Z2=1 TO Z3 -5090 read #1,z2;N(2,1),N(2,2),N$ -5100 IF N(2,2)=0 THEN 5120 -5110 NEXT Z2 -5120 Z3=Z3-1 -5130 close 1 -5140 Z2=Z2-1 -5200 PRINT clear$:PRINT -5210 PRINT "EMPLOYEE PAYROLL ACCOUNTS = ";Z2 -5220 PRINT:PRINT "*** POSTING ***" -5500 open "ep" recl 512 as 1 -5505 FOR Z=1 TO Z2 -5510 N$="" -5515 read #1,z;N(2,1),N(2,2),N$,N,R,H1,H2,H3, E0,E1,E2,F1,F2,F3,E3,E4,E5,E6,E7,E8,S1,S2,S3,M1,M2,M3 -5525 H2=0:S2=0:M2=0:E1=0:E4=0:E7=0:F2=0 -5530 print #1,z;N(2,1),N(2,2),N$,N,R,H1,H2,H3, E0,E1,E2,F1,F2,F3,E3,E4,E5,E6,E7,E8,S1,S2,S3,M1,M2,M3 -5550 NEXT Z -5560 close 1 -6000 PRINT clear$:PRINT -6010 PRINT "INSTALL FINISHED GOODS DISK IN DRIVE B." -6020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -6040 PRINT "CHECKING FILE LENGTH" -6050 PRINT:PRINT "*** PLEASE WAIT ***" -6060 open "fg" recl 256 as 1 - z3=(size("fg")*block.size)/256 -6080 FOR Z2=1 TO Z3 -6090 read #1,z2;N(2,1),N(2,2),N$ -6100 IF N(2,2)=0 THEN 6120 -6110 NEXT Z2 -6120 Z3=Z3-1 -6130 close 1 -6140 Z2=Z2-1 -6200 PRINT clear$:PRINT -6210 PRINT "FINISHED GOODS ACCOUNTS = ";Z2 -6220 PRINT:PRINT "*** POSTING ***" -6500 open "fg" recl 256 as 1 -6505 FOR Z=1 TO Z2 -6510 N$="" -6520 read #1,z;N(2,1),N(2,2),N$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -6530 F5=0:F6=0 -6540 print #1,z;N(2,1),N(2,2),N$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -6550 NEXT Z -6560 close 1 -7000 PRINT clear$:PRINT -7010 PRINT "INSTALL RAW GOODS DISK IN DRIVE B." -7020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -7040 PRINT "CHECKING FILE LENGTH" -7050 PRINT:PRINT "*** PLEASE WAIT ***" -7060 open "rg" recl 256 as 1 - z3=(size("rg")*block.size)/256 -7080 FOR Z2=1 TO Z3 -7090 read #1,z2;N(2,1),N(2,2),N$ -7100 IF N(2,2)=0 THEN 7120 -7110 NEXT Z2 -7120 Z3=Z3-1 -7130 close 1 -7140 Z2=Z2-1 -7200 PRINT clear$:PRINT -7210 PRINT "RAW GOODS ACCOUNTS = ";Z2 -7220 PRINT:PRINT "*** POSTING ***" -7500 open "rg" recl 256 as 1 -7505 FOR Z=1 TO Z2 -7510 N$="" -7520 read #1,z; N(2,1),N(2,2),N$,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9 -7530 R5=0:R6=0 -7540 print #1,z; N(2,1),N(2,2),N$,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9 -7550 NEXT Z -7560 close 1 -9995 CHAIN "bizmii" diff --git a/bwbtest/C77B/READFILE.BAS b/bwbtest/C77B/READFILE.BAS deleted file mode 100644 index aef65f0..0000000 --- a/bwbtest/C77B/READFILE.BAS +++ /dev/null @@ -1,41 +0,0 @@ -1 Rem This is READFILE.BAS used to read name,date,formats and tabs. - - -%INCLUDE ALL.BAS -1000 DIM T%(20),A(16),D$(8),N(2,2),DATE1$(8) - PRINT CLEAR$ - REM GET DATES - PRINT:PRINT "LOADING DATES" - OPEN "DATE" AS 1 - READ#1;N$ - CLOSE 1 - Z9=1 - FOR Z=1 TO 8 - D$(Z)=MID$(N$,Z9,8) - DATE1$(Z)=D$(Z) - Z9=Z9+8 - NEXT Z - Z9=0 - REM READ FORMAT STRINGS FOR % AND VALUES - PRINT:PRINT "LOADING FORMATS" - OPEN "GLF" AS 1 - READ#1;LLL$,PPP$ - CLOSE 1 - REM READ TAB VALUE - PRINT:PRINT "LOADING TABS" - OPEN "GLT" AS 1 - READ#1;T%(1),T%(2),T%(3),T%(4),T%(5),T%(6),T%(7),T%(8),T%(9),T%(10),T%(11),T%(12),A(13),A(14),A(15),A(16) - CLOSE 1 - REM READ NAME FILE - A5=T%(12) - PRINT:PRINT "LOADING NAMES" - OPEN "NM" RECL 170 AS 1 - Z3=(SIZE("NM")*BLOCK.SIZE)/170 - FOR Z2=1 TO Z3 - READ#1,Z2;N(2,1),N(2,2),N$ - IF N(2,1)=A5 THEN 1100 - NEXT Z2 -1100 CLOSE 1 - CO.NAME$=N$ - BIZMII.FLAG=1 - CHAIN "BIZMII" diff --git a/bwbtest/C77B/RGALERT.BAS b/bwbtest/C77B/RGALERT.BAS deleted file mode 100644 index 2ebff9d..0000000 --- a/bwbtest/C77B/RGALERT.BAS +++ /dev/null @@ -1,116 +0,0 @@ -1 rem This is the Raw Goods Inventory Alert Printer - -%INCLUDE ALL.BAS -500 RESTORE -1005 DIM N(2,20) - dim k$(3,20) - z5$="rg" - fmt1$="$$#,###,###.##" - fmt2$="#,###,###" - for z=1 to 130:repeat1$=repeat1$+"-":repeat2$=repeat2$+"=" - repeat3$=repeat3$+"*":next z -1020 DIM H(9),S(9),T(4,9) -1025 PRINT clear$:PRINT -1050 Q$="R A W G O O D S (I N V E N T O R Y) A L E R T" -1065 L$="###,###.##" -1070 U$="#,###.#" - for z=3 to 9:read n(1,z):next z - data 7,12,24,24,8,8,10 -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE - JRF%=T%(1) -1235 T%(1)=130 -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT RAW GOODS ALERT -6005 PRINT clear$:PRINT:PRINT "PRINTING RAW GOODS ALERT":P0=1 - P9=0 -6010 lprinter - IF END#1 THEN 9915 - open z5$ recl 256 as 1 - IF END#1 THEN 6060 - N(2,2)=10 -6020 GOSUB 9600 -6030 GOSUB 9100 -6040 IF P9>56 THEN GOSUB 9300 -6050 IF N(2,2)<>0 THEN 6030 -6060 GOSUB 9800 -6070 GOTO 9900 -9100 N$="" -9105 A9=A9+1 - read #1,a9;n(2,1),n(2,2),n$,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9 -9115 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -9120 IF N(2,2)=0 THEN 9295 -9125 IF F3>F9 THEN 9150 -9130 IF F3F9 THEN print "QUANTITY OVER MAXIMUM BY ";F3-F9; -9175 IF F3>F9 THEN print TAB(61);"QUANTITY ON ORDER ";F4 -9180 IF F3z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "RAW GOODS INVENTORY ENTRY PROGRAM" - PRINT "---------------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z:N$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -1702 new$="" -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2036 FOR Z=3 TO 9 - PRINT CUR$ -2037 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2038 PRINT K$(1,Z);TAB(30); -2039 INPUT line K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2040 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ -2045 NEXT Z -2065 FOR Z=10 TO 19 - PRINT CUR$ -2070 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2075 PRINT K$(1,Z);TAB(30); -2080 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2085 NEXT Z -2090 N$="" -2095 FOR Z=3 TO 9:N$=N$+K$(3,Z):NEXT Z -2100 Z1=Z2 -2105 PRINT clear$; -2110 PRINT "RECORD NUMBER";Z1;TAB(31);"RAW GOODS ENTRY" -2115 FOR Z=1 TO 2 -2116 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -2118 NEXT Z -2120 FOR Z=3 TO 9 -2122 PRINT K$(2,Z);TAB(30);K$(3,Z) -2124 NEXT Z -2126 Z=10:PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -2128 FOR Z=11 TO 12 -2130 PRINT K$(2,Z);TAB(30);:print using l$;n(2,z) -2132 NEXT Z -2134 FOR Z=13 TO 19 -2136 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -2138 NEXT Z -2140 PRINT K$(2,20) -2163 PRINT"TO MAKE A CHANGE, TYPE THE APPROPRIATE #." -2164 INPUT Z -2165 IF Z>19 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>2 AND Z<10 THEN 2200 - CL=10:CC=50:GOSUB 50:PRINT CUR2$; -2180 PRINT left$(repeat$,n(1,z)) - CL=12:GOSUB 50:PRINT CUR2$; -2185 PRINT K$(1,Z) - CL=10:CC=48:GOSUB 50:PRINT CUR2$; -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 CL=10:CC=50:GOSUB 50:PRINT CUR2$; - PRINT left$(repeat$,n(1,z)) - CL=12:GOSUB 50:PRINT CUR2$; -2205 PRINT K$(1,Z) - CL=10:CC=48:GOSUB 50:PRINT CUR2$; -2210 INPUT line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2220 FOR Z=3 TO 9:N$=N$+K$(3,Z):NEXT Z -2225 CL=15:CC=55:GOSUB 50:PRINT CUR2$; - INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT CUR2$; -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 256 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN -3015 open z5$ recl 256 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -3022 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):next z -3025 close 1 -3105 GOSUB 11000 -3170 PRINT"FOR A NEW RECORD, TYPE N - TYPE F IF FINISHED.":INPUT line temp$ -3190 IF ucase$(temp$)="N" THEN 3000 -3195 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -4030 open z5$ recl 256 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -4036 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -4040 close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -5030 open z5$ recl 256 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -5036 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -5040 close 1 -5105 GOSUB 11000 -5200 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5205 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5210 IF ucase$(temp$)<>"YES" THEN 5200 -5215 N(2,1)=0 -5220 open z5$ recl 256 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -5230 close 1 -5235 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A RAW GOODS FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT temp$ -6040 IF ucase$(temp$)="C" THEN GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";z3 -6055 PRINT -6060 n$="":for z=1 to 80:n$=n$+" ":next z:FOR Z=1 TO 20:N(2,Z)=0:NEXT Z -6065 create z5$ recl 256 as 1 -6070 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -6085 NEXT Z1 -6090 close 1 -6095 PRINT clear$:PRINT -6100 PRINT "RAW GOODS FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 z2=z3:n$="":for z=1 to 80:n$=n$+" ":next z:FOR Z=1 TO 20:N(2,Z)=0:NEXT Z -7006 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF ucase$(temp$)<>"YES" THEN RETURN - open z5$ recl 256 as 1 -7010 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -7025 NEXT Z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "RAW GOODS FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 chain "rgsort" -9000 lprinter -9005 PRINT clear$:PRINT -9010 open z5$ recl 256 as 1 -9015 FOR I=1 TO Z2-1 - READ #1,i;n(2,1),n(2,2),n$,n(2,10),n(2,11),n(2,12), n(2,13),n(2,14),n(2,15),n(2,16),n(2,17),n(2,18),n(2,19) -9035 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -9110 print "RECORD NUMBER";i;TAB(31);"RAW GOODS ENTRY" -9115 FOR Z=1 TO 2 -9116 print K$(2,Z);TAB(30);:print using u$;n(2,z) -9118 NEXT Z -9120 FOR Z=3 TO 9 -9122 print K$(2,Z);TAB(30);K$(3,Z) -9124 NEXT Z -9126 Z=10:print K$(2,Z);TAB(30);:print using u$;n(2,z) -9128 FOR Z=11 TO 12 -9130 print K$(2,Z);TAB(30);:print using l$;n(2,z) -9132 NEXT Z -9134 FOR Z=13 TO 19 -9136 print K$(2,Z);TAB(30);:print using u$;n(2,z) -9138 NEXT Z -9145 print chr$(12) -9150 NEXT I - CLOSE 1 - print chr$(12):for z=1 to 100:next z:print chr$(12) -9155 console -9900 RETURN -10000 CHAIN "master4" -11000 PRINT clear$:PRINT -11110 PRINT "RECORD NUMBER";Z1;TAB(31);"RAW GOODS ENTRY" -11115 FOR Z=1 TO 2 -11116 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -11118 NEXT Z -11120 FOR Z=3 TO 9 -11122 PRINT K$(2,Z);TAB(30);K$(3,Z) -11124 NEXT Z -11126 Z=10:PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -11128 FOR Z=11 TO 12 -11130 PRINT K$(2,Z);TAB(30);:print using l$;n(2,z) -11132 NEXT Z -11134 FOR Z=13 TO 19 -11136 PRINT K$(2,Z);TAB(30);:print using u$;n(2,z) -11138 NEXT Z -11140 RETURN -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 256 as 1 - IF END#1 THEN 15300 - z3=(size(z5$)*block.size)/256 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/RGRPT.BAS b/bwbtest/C77B/RGRPT.BAS deleted file mode 100644 index c924b8f..0000000 --- a/bwbtest/C77B/RGRPT.BAS +++ /dev/null @@ -1,121 +0,0 @@ -1 rem This is the Raw Goods Inventory Report Printer - -%INCLUDE ALL.BAS -500 RESTORE -1005 DIM N(2,20) - dim k$(3,20) - z5$="rg" - fmt1$="$$#,###,###.##" - fmt2$="#,###,###" - for z=1 to 130:repeat1$=repeat1$+"-":repeat2$=repeat2$+"=" - repeat3$=repeat3$+"*":next z -1020 DIM H(9),S(9),T(4,9),A(16) -1025 PRINT clear$:PRINT -1050 Q$="R A W G O O D S (I N V E N T O R Y) R E P O R T" -1065 L$="###,###.##" -1070 U$="#,###.#" - for z=3 to 9:read n(1,z):next z - data 7,12,24,24,8,8,10 -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE - JRF%=T%(1) -1235 T%(1)=130 -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT RAW GOODS REPORT -6005 PRINT clear$:PRINT:PRINT "PRINTING RAW GOODS REPORT":P0=1 -6010 lprinter - if end#1 then 9915 - open z5$ recl 256 as 1 - IF END#1 THEN 6060 - N(2,2)=10 -6020 GOSUB 9600 -6030 GOSUB 9100 -6040 IF P9>56 THEN GOSUB 9300 -6050 IF N(2,2)<>0 THEN 6030 -6060 GOSUB 9800 -6070 GOTO 9900 -9100 N$="" -9105 A9=A9+1 - read #1,a9;n(2,1),n(2,2),n$,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9 -9115 Z9=1:FOR Z=3 TO 9:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -9120 IF N(2,2)=0 THEN 9295 -9150 print A9;TAB(11);K$(3,9);TAB(26);F0 -9152 print N(2,1);TAB(7);N(2,2);TAB(18);K$(3,3);TAB(27); -9155 print K$(3,4);TAB(41);K$(3,5);TAB(67);K$(3,6);TAB(93);K$(3,7); -9160 print TAB(105);K$(3,8) -9165 print:P9=P9+3 - print using fmt1$;f1;tab(21);:print using fmt2$;f8;tab(41); - print using fmt2$;f3;tab(101);:print using fmt1$;f1*f3 - print using fmt1$;f2;tab(21);:print using fmt2$;f9;tab(41);f4; tab(61);f5;tab(71);f6;tab(81);f7;tab(101); - print using fmt1$;f2*f3 -9200 print repeat1$ -9205 print:P9=P9+3 -9210 T1=T1+(F1*F3):T2=T2+(F2*F3) -9295 RETURN -9300 P9=0 - IF N(2,2)=0 THEN 9350 -9305 print -9310 print repeat2$ -9320 print "report continues on next page" -9330 print repeat2$ -9340 print chr$(12) - GOSUB 9600 -9350 RETURN -9600 REM PRINT PAGE HEADING SUBROUTINE -9605 IF N(2,2)=0 THEN 9795 -9610 print repeat3$:p9=p9+1 -9615 print:P9=P9+1 -9616 print TAB((T%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((T%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(T%(10));"FOR PERIOD ENDING ";D$(2);TAB(T%(11));"PAGE #";P0 -9642 P9=P9+1 -9645 print repeat2$:p9=p9+1 -9650 print "RECORD #";TAB(11);"VEND CODE";TAB(26);"VEND TAG #" -9652 print "TAG";TAB(7);"ACCT #";TAB(18); -9655 print "ITEM #";TAB(27);"PART #";TAB(41);"DESCRIPTION";TAB(67); -9660 print "LOCATION";TAB(93);"LAST ISSUE";TAB(105);"LAST RECEIPT" -9670 print:P9=P9+3 -9680 print "UNIT COST";TAB(21);"MIN QUAN";TAB(41);"QUAN ON HAND"; -9685 print TAB(61);"QUANTITY ISSUED";TAB(101);"TOTAL COST":P9=P9+1 -9695 print "SELLING PRICE";TAB(21);"MAX QUAN";TAB(41);"QUAN ON ORDER"; -9700 print TAB(61);"MTD";TAB(71);"QTD";TAB(81);"YTD";TAB(101);"REVENUE AT LIST" -9710 print repeat2$:p9=p9+2 - P0=P0+1 -9795 RETURN -9800 print repeat2$ -9810 print "Total Value";tab(21);:print using fmt1$;t1;tab(41); -9820 print "Total Revenue at List";tab(71);:print using fmt1$;t2;tab(91); -9830 print "Gross Profit Potential";:print using fmt1$;t2-t1 - print repeat2$ - print "end of report" - print repeat2$ -9895 RETURN -9900 PRINT CHR$(12) -9910 close 1 -9915 console -9920 T%(1)=JRF% - CHAIN "master4" diff --git a/bwbtest/C77B/RGSORT.BAS b/bwbtest/C77B/RGSORT.BAS deleted file mode 100644 index 222b733..0000000 --- a/bwbtest/C77B/RGSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the Raw Goods Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="rg":z6$="rgback":z7$="rgsize":RL=256 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,10),N(2,11),N(2,12),N(2,13), N(2,14),N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,10),N(2,11),N(2,12),N(2,13), N(2,14),N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,10),N(2,11),N(2,12),N(2,13), N(2,14),N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,10),N(2,11),N(2,12),N(2,13), N(2,14),N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - NEXT Z - - for z=1 to 20:n(2,z)=0:next z:n$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,10),N(2,11),N(2,12),N(2,13), N(2,14),N(2,15),N(2,16),N(2,17),N(2,18),N(2,19) - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "rgentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "rgentry" diff --git a/bwbtest/C77B/SETUP.BAS b/bwbtest/C77B/SETUP.BAS deleted file mode 100644 index c31764f..0000000 --- a/bwbtest/C77B/SETUP.BAS +++ /dev/null @@ -1,15 +0,0 @@ -REM Purpose: Create the data files for regression testing -REM Author: Howard Wulf, AF5NE -REM Date: 2015-12-30 -REM Note: This is NOT used except for regression testing -REM - -create "ap" as 4 -print #4;0,0,0,0,0 -close 4 - -create "cgsize" as 1 -print #1; 2,20 -close 1 - -create "cg" recl 256 as 1 diff --git a/bwbtest/C77B/TAENTRY.BAS b/bwbtest/C77B/TAENTRY.BAS deleted file mode 100644 index 5e99437..0000000 --- a/bwbtest/C77B/TAENTRY.BAS +++ /dev/null @@ -1,182 +0,0 @@ -1 rem This is the General Ledger Tab Entry Program - -%INCLUDE ALL.BAS -500 RESTORE - DIM T%(20),A(16),D$(8),N(2,20),DATE1$(8) - BIZMII.FLAG=0 -505 z5$="glt" -506 z6$="gltback" -515 repeat$="------------------------------" -516 fill$=" " -520 dim z$(5,5),n(2,20),k$(6,20) -530 dim t(20) -540 K$(6,1)="1 - ENTER TABS":K$(6,2)="2 - EXAMINE TABS" -550 K$(6,3)="3 - MODIFY TABS" -570 K$(6,4)="4 - CREATE NEW FILE":K$(6,5)="5 - CLEAR EXISTING FILE" -590 K$(6,6)="6 - FINISHED" - print clear$:print -1100 K$(1,1)="PAGE WIDTH":K$(1,2)="TAG TAB" -1105 K$(1,3)="ACCOUNT NUMBER TAB" -1110 K$(1,4)="MAJOR HEADING TAB" -1115 K$(1,5)="SUBHEADING TAB" -1120 K$(1,6)="PARTIAL TOTAL TAB" -1125 K$(1,7)="PARTIAL TOTAL DOLLAR TAB" -1130 K$(1,8)="FINAL TOTAL TAB" -1135 K$(1,9)="FINAL TOTAL DOLLAR TAB" -1140 K$(1,10)="DATE TAB" -1145 K$(1,11)="PAGE NUMBER TAB" -1150 K$(1,12)="COMPANY NAME TAG #" -1155 K$(1,13)="LOWEST BALANCE SHEET ACCT #" -1160 K$(1,14)="HIGHEST BALANCE SHEET ACCT #" -1165 K$(1,15)="LOW COST OF GOODS ACCT #" -1170 K$(1,16)="HIGH COST OF GOODS ACCT #" -1200 K$(2,1)="1 - PAGE WIDTH":K$(2,2)="2 - TAG TAB" -1205 K$(2,3)="3 - ACCOUNT NUMBER TAB" -1210 K$(2,4)="4 - MAJOR HEADING TAB" -1215 K$(2,5)="5 - SUBHEADING TAB" -1220 K$(2,6)="6 - PARTIAL TOTAL TAB" -1225 K$(2,7)="7 - PARTIAL TOTAL DOLLAR TAB" -1230 K$(2,8)="8 - FINAL TOTAL TAB" -1235 K$(2,9)="9 - FINAL TOTAL DOLLAR TAB" -1240 K$(2,10)="10- DATE TAB" -1245 K$(2,11)="11- PAGE NUMBER TAB" -1250 K$(2,12)="12- COMPANY NAME TAG #" -1255 K$(2,13)="13- LOWEST BAL SHEET ACCT #" -1260 K$(2,14)="14- HIGHEST BAL SHEET ACCT #" -1265 K$(2,15)="15- LOW COST OF GOODS ACCT #" -1270 K$(2,16)="16- HIGH COST OF GOODS ACCT #" -1275 K$(2,17)="17- NONE" -1300 N(1,1)=3:N(1,2)=3:N(1,3)=3:N(1,4)=3:N(1,5)=3:N(1,6)=3 -1305 N(1,7)=3:N(1,8)=3:N(1,9)=3:N(1,10)=3:N(1,11)=3:N(1,12)=4 -1310 N(1,13)=10:N(1,14)=10:N(1,15)=10:N(1,16)=10 - if end #1 then 6000 -1500 open z5$ as 1 - close 1 -1510 Z1=1:Z2=1 -1600 PRINT clear$ -1605 PRINT -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 6:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>6 then 1600 -1685 ON Z GOSUB 2000,3000,4000,6000,7000,10000 -1690 FOR Z=1 TO 20:T%(Z)=0:T(Z)=0:NEXT Z:N$="" -1705 GOTO 1600 -2000 PRINT clear$:PRINT -2005 PRINT "TABS ARE USED IN ALL GENERAL LEDGER PRINTOUTS. A" -2010 PRINT "CHECK SHOULD BE MADE BY RUNNING ONE OF THESE TO" -2015 PRINT "ENSURE THAT TABS ARE CORRECTLY SET." -2025 PRINT -2040 FOR Z=1 TO 12 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 INPUT T%(Z):PRINT chr$(13) - PRINT CLEAR$ -2060 NEXT Z -2065 FOR Z=13 TO 16 - PRINT CUR$ -2070 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2075 PRINT K$(1,Z);TAB(30); -2080 INPUT T(Z):PRINT chr$(13) - PRINT CLEAR$ -2085 NEXT Z -2105 PRINT clear$:PRINT -2110 T$="####" -2112 U$="##########" -2115 FOR Z=1 TO 12 -2120 PRINT K$(2,Z);TAB(30);:print using T$;T%(Z) -2125 NEXT Z -2130 FOR Z=13 TO 17 -2135 PRINT K$(2,Z);TAB(30);:print using U$;T(Z) -2140 NEXT Z -2145 PRINT -2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>16 THEN 2225 -2166 IF Z>12 THEN 2195 -2170 IF Z<1 THEN 2105 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT T%(Z) -2192 GOTO 2225 -2195 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2200 PRINT K$(1,Z);TAB(30); -2205 INPUT T(Z) -2225 input "ANY MORE CHANGES";line temp$ -2230 if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2105 -2235 PRINT -2240 input "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2280 -2255 if left$(temp$,1)<>"n" and left$(temp$,1)<>"N" then 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ as 1 - print #1;T%(1),T%(2),T%(3),T%(4),T%(5),T%(6),T%(7),T%(8), T%(9),T%(10),T%(11),T%(12),t(13),t(14),t(15),t(16) - close 1 -2300 RETURN -3000 PRINT clear$:PRINT - open z5$ as 1 - read #1;T%(1),T%(2),T%(3),T%(4),T%(5),T%(6),T%(7),T%(8), T%(9),T%(10),T%(11),T%(12),t(13),t(14),t(15),t(16) - close 1 -3010 PRINT - PRINT "Should this be a 'hard-copy' listing (Y or N)?" - INPUT LINE LIST$ - IF LIST$="y" OR LIST$="Y" THEN LPRINTER -3020 T$="####" -3030 U$="##########" -3035 FOR Z=1 TO 12 -3040 PRINT K$(1,Z);TAB(30);:print using T$;T%(z) -3045 NEXT Z -3050 FOR Z=13 TO 16 -3055 PRINT K$(1,Z);TAB(30);:print using U$;t(z) -3060 NEXT Z - PRINT CHR$(13):PRINT CHR$(12) - CONSOLE -3070 PRINT -3080 input "IF FINISHED, TYPE RETURN.";line temp$ -3095 RETURN -4000 PRINT clear$:PRINT - open z5$ as 1 - read #1;T%(1),T%(2),T%(3),T%(4),T%(5),T%(6),T%(7),T%(8), T%(9),T%(10),T%(11),T%(12),t(13),t(14),t(15),t(16) - close 1 -4070 GOTO 2105 -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A TABS FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE letter c FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE letter n" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 input line temp$ -6040 IF left$(temp$,1)="c" or left$(temp$,1)="C" THEN INITIALIZE:GOTO 1600 -6045 PRINT clear$:PRINT -6050 for z=1 to 20:T%(z)=0:t(z)=0:next z - create z5$ as 1 - print #1;T%(1),T%(2),T%(3),T%(4),T%(5),T%(6),T%(7),T%(8), T%(9),T%(10),T%(11),T%(12),t(13),t(14),t(15),t(16) - close 1 -6095 PRINT clear$:PRINT -6100 PRINT "TABS FILE CREATED AND CLEARED.":PRINT -6110 input "TO CONTINUE, TYPE RETURN.";line temp$ -6115 GOTO 1600 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" THEN RETURN - open z5$ as 1 - print #1;T%(1),T%(2),T%(3),T%(4),T%(5),T%(6),T%(7),T%(8), T%(9),T%(10),T%(11),T%(12),t(13),t(14),t(15),t(16) - close 1 -7035 PRINT clear$:PRINT -7040 PRINT "TABS FILE CLEARED!":PRINT -7045 input "TO CONTINUE, TYPE RETURN.";line temp$ -7900 RETURN -10000 CHAIN "MASTER7" diff --git a/bwbtest/C77B/TMENTRY.BAS b/bwbtest/C77B/TMENTRY.BAS deleted file mode 100644 index c151781..0000000 --- a/bwbtest/C77B/TMENTRY.BAS +++ /dev/null @@ -1,300 +0,0 @@ -1 rem This is the Payroll Time Card Entry Program - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(6,20) - z5$="tm" - z6$="ep" - z7$="epsize" - repeat$="-------------------------------" - fill$=" " - l$="$$##,###.##":u$="##########":v$="###.#" - for z=1 to 80:delim1$=delim1$+"*":delim2$=delim2$+"=":next z - for z=1 to 80:delim3$=delim3$+"-":next z - false=0:true=-1 - RESTORE -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - NOT USED" -570 K$(6,5)="5 - NOT USED":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - NOT USED":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" -1075 K$(1,1)="EMPLOYEE #":K$(1,2)="ACCT NUMBER":K$(1,3)="NAME" -1080 K$(1,4)="PAY PERIOD #":K$(1,5)="REPORTABLE TIPS" -1085 K$(1,6)="MISC DEDUCTIONS":K$(1,7)="REGULAR HOURS" -1090 K$(1,8)="TIME & 1/2 HOURS" -1095 K$(1,9)="DOUBLE TIME HOURS" -1100 K$(1,10)="SICK TIME HOURS" -1105 K$(1,11)="HOLIDAY TIME HOURS":K$(1,12)="VACATION HOURS" -1205 K$(2,1)="1 - EMPLOYEE #":K$(2,2)="2 - ACCT NUMBER":K$(2,3)="3 - NAME" -1210 K$(2,4)="4 - PAY PERIOD #":K$(2,5)="5 - REPORTABLE TIPS" -1215 K$(2,6)="6 - MISC DEDUCTIONS":K$(2,7)="7 - REGULAR HOURS" -1220 K$(2,8)="8 - TIME & 1/2 HOURS" -1225 K$(2,9)="9 - DOUBLE TIME HOURS" -1230 K$(2,10)="10- SICK TIME HOURS":K$(2,11)="11- HOLIDAY HOURS" -1235 K$(2,12)="12- VACATION HOURS":K$(2,13)="13- NONE" - for z=1 to 12:read n(1,z):next z - data 8,10,24,4,12,12,4,4,4,4,4,4 - print clear$:print - -1500 if end #1 then 20000 - if end #2 then 40000 - if end #3 then 6000 - - open z6$ recl 512 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3,flag - close 2 - open z5$ recl 128 as 3 - close 3 - -1537 IF Z2=1 THEN PRINT "NO PAYROLL RECORDS":CHAIN "master5" - IF flag=true then 1540 - PRINT:PRINT "Is this an update to an existing set of time cards (Y/N)" - INPUT line temp$ - IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 1567 -1540 INPUT "PAY PERIOD FOR THIS PAYROLL ";N(2,4) -1544 FOR Z=5 TO 12:N(2,Z)=0:NEXT Z - if end #1 then 6000 -1550 open z5$ recl 128 as 1 -1552 open z6$ recl 512 as 2 -1554 FOR Z=1 TO Z2-1 -1556 read #2,z;n(2,1),n(2,2),n$ -1558 N$=LEFT$(N$,24) - print #1,z;N(2,1),N(2,2),N$,N(2,4),N(2,5),N(2,6), N(2,7),N(2,8),N(2,9),N(2,10),N(2,11),N(2,12) - next z - close 1 - close 2 - - flag=false:open z7$ as 2:print #2;z2,z3,flag:close 2 - -1567 Z4=Z2-1 - IF left$(temp$,1)<>"y" AND left$(temp$,1)<>"Y" THEN Z2=1 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - print "TIME CARD ENTRY PROGRAM" - print "-----------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=5 TO 20:N(2,Z)=0:NEXT Z:N$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z -1702 new$="" -1705 GOTO 1600 -2000 PRINT clear$:PRINT -2002 IF Z2>Z4 THEN PRINT "NO MORE EMPLOYEES":FOR Z=1 TO 100:NEXT Z -2003 IF Z2>Z4 THEN GOTO 1600 -2005 PRINT "RECORD NUMBER";Z2:PRINT -2008 open z5$ recl 128 as 1 - read #1,z2;n(2,1),n(2,2),n$ -2012 K$(3,3)=N$ -2014 close 1 -2020 PRINT "PLEASE ENTER HOURS FOR ";K$(3,3);"EMPLOYEE # ";N(2,1) -2065 FOR Z=5 TO 12 - PRINT CUR$ -2070 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2075 PRINT K$(1,Z);TAB(30); -2080 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2085 NEXT Z -2100 Z1=Z2 -2105 PRINT clear$:PRINT -2106 PRINT "RECORD NUMBER";Z1:PRINT -2115 FOR Z=1 TO 2 -2120 PRINT K$(1,Z);TAB(30);N(2,Z) -2125 NEXT Z -2135 PRINT K$(1,3);TAB(30);K$(3,3) -2136 PRINT K$(1,4);TAB(30);:print using u$;n(2,4) -2140 FOR Z=5 TO 6 -2141 PRINT K$(2,Z);TAB(30);:print using l$;n(2,z) -2142 NEXT Z -2143 FOR Z=7 TO 12 -2144 PRINT K$(2,Z);TAB(30);:print using v$;n(2,z) -2145 NEXT Z -2146 PRINT K$(2,13) -2150 PRINT -2152 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER." -2155 PRINT:INPUT Z -2160 PRINT -2165 IF Z>12 THEN 2225 -2170 IF Z<5 THEN 2105 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT N(2,Z) -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 128 as 1 - print #1,z1;N(2,1),N(2,2),N$,N(2,4),N(2,5),N(2,6), N(2,7),N(2,8),N(2,9),N(2,10),N(2,11),N(2,12) -2290 close 1 -2295 IF new$="N" THEN Z2=Z2+1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN -3015 open z5$ recl 128 as 1 - read #1,z1;N(2,1),N(2,2),N$,N(2,4),N(2,5),N(2,6), N(2,7),N(2,8),N(2,9),N(2,10),N(2,11),N(2,12) -3025 close 1 -3030 PRINT -3035 FOR Z=1 TO 2 -3040 PRINT K$(1,Z);TAB(30);N(2,Z) -3045 NEXT Z -3055 PRINT K$(1,3);TAB(30);N$ -3057 PRINT K$(1,4);TAB(30);:print using u$;n(2,4) -3060 FOR Z=5 TO 6 -3062 PRINT K$(1,Z);TAB(30);:print using l$;n(2,z) -3065 NEXT Z -3066 FOR Z=7 TO 12 -3067 PRINT K$(1,Z);TAB(30);:print using v$;n(2,z) -3068 NEXT Z -3070 PRINT -3075 PRINT "FOR A NEW RECORD NUMBER, TYPE N - RETURN.":PRINT -3080 PRINT "IF FINISHED, TYPE F - RETURN.":PRINT -3085 INPUT line temp$ -3090 IF ucase$(temp$)="N" THEN 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -4030 open z5$ recl 128 as 1 - read #1,z1;N(2,1),N(2,2),N$,N(2,4),N(2,5),N(2,6), N(2,7),N(2,8),N(2,9),N(2,10),N(2,11),N(2,12) -4040 close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4060 K$(3,3)=N$ -4065 PRINT clear$:PRINT -4070 PRINT "RECORD NUMBER";Z1:PRINT -4075 GOTO 2115 -5000 print clear$:print - print "Records are created in conjunction with employee file." - print:print "Delete records from that file only." - RETURN -6000 n$="":for z=1 to 30:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:next z -6065 create z5$ recl 128 as 1 -6070 FOR Z1=1 TO z3+2 - print #1,z1;N(2,1),N(2,2),N$,N(2,4),N(2,5),N(2,6), N(2,7),N(2,8),N(2,9),N(2,10),N(2,11),N(2,12) -6085 NEXT Z1 -6090 close 1 -6095 PRINT clear$:PRINT -6100 PRINT "TIME ENTRY FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ -6115 GOTO 1500 -7000 n$="":for z=1 to 30:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:next z -7006 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF ucase$(temp$)<>"YES" THEN RETURN - open z5$ recl 128 as 1 -7010 FOR Z1=1 TO z3+2 - print #1,z1;N(2,1),N(2,2),N$,N(2,4),N(2,5),N(2,6), N(2,7),N(2,8),N(2,9),N(2,10),N(2,11),N(2,12) -7025 NEXT Z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "TIME ENTRY FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ -7055 Z2=1 -7060 RETURN -8000 print clear$:print - print "Records are sorted under employee information entry only!!" - for z=1 to 100:next z - RETURN -9000 PRINT clear$:PRINT:PRINT "LISTING" -9010 P1=1:P2=1:P3=4 - REM GET DATES ROUTINE -9025 lprinter -9030 open z5$ recl 128 as 1 -9040 FOR Z0=1 TO (Z2/4)+1 -9050 GOSUB 9500 -9060 GOSUB 9100 -9065 GOSUB 9300 -9080 NEXT Z0 -9085 GOSUB 9800 -9090 RETURN -9100 FOR Z1=P2 TO P3 - read #1,z1;N(2,1),N(2,2),N$,N(2,4),N(2,5),N(2,6), N(2,7),N(2,8),N(2,9),N(2,10),N(2,11),N(2,12) -9115 IF N(2,2)=0 THEN 9160 -9120 print:print -9122 print delim2$ -9125 print "EMPLOYEE #:";TAB(21);:print using u$;n(2,1); - PRINT TAB(36);"ACCOUNT #:"; -9128 print TAB(51);:print using u$;n(2,2) -9130 print "NAME:";TAB(7);N$;TAB(36);"PAY PERIOD:";TAB(51); - print using v$;n(2,4) -9132 print "REPORTABLE TIPS:";TAB(21);:print using l$;n(2,5);TAB(36); -9134 print "MISC DED.:";TAB(51);:print using l$;n(2,6) -9136 print delim2$ -9138 print TAB(11);"REGULAR";TAB(21);"TIME-1/2";TAB(31);"DOUBLE"; -9140 print TAB(41);"SICK";TAB(51);"HOLIDAY";TAB(61);"VACATION" -9141 print delim3$ -9142 print "Hours:";tab(11); - print using v$;n(2,7);tab(21);n(2,8);tab(31);n(2,9);tab(41); n(2,10);tab(51);n(2,11);tab(61);n(2,12) -9148 print delim1$ -9160 NEXT Z1 -9165 P2=P2+4:P3=P3+4 -9170 RETURN -9300 print - print delim2$ - print "report continues on next page" - print delim2$ -9340 print chr$(12) -9350 RETURN -9500 print delim1$ -9510 print -9520 print TAB(18);"PAYROLL HOURS FOR PERIOD ENDING ";d$(2) -9540 print delim1$ -9550 print:print -9590 print -9600 RETURN -9800 print - print delim2$ - print "End of Report" - print delim1$ -9840 print chr$(12):FOR Z=1 TO 100:NEXT Z:print chr$(12) -9850 close 1 -9860 console -9870 RETURN -10000 PRINT clear$:PRINT -10010 PRINT "A LISTING WILL AUTOMATICALLY BE GENERATED UNLESS YOU" -10020 PRINT "ENTER THE PROPER PASSWORD - ":INPUT line temp$ -10030 IF ucase$(temp$)="NOLIST" THEN 10050 -10040 GOSUB 9000 -10050 CHAIN "master5" -20000 PRINT clear$:PRINT -20010 PRINT "*** PLEASE CREATE AN EMPLOYEE FILE BEFORE CONTINUING ***" -20020 FOR Z=1 TO 100:NEXT Z -20030 CHAIN "master5" -40000 print clear$:print - print "There is no 'epsize' file on the disk. Entering the" - print "Employee Information file (Item #1 on menu) will" - print "automatically create this file." - for z=1 to 500:next z - chain "master5" diff --git a/bwbtest/C77B/VPENTRY.BAS b/bwbtest/C77B/VPENTRY.BAS deleted file mode 100644 index 39cfdcd..0000000 --- a/bwbtest/C77B/VPENTRY.BAS +++ /dev/null @@ -1,327 +0,0 @@ -1 rem This is the Vendor Information Entry Program - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(6,20) - z5$="vp":z6$=z5$+"back":z7$=z5$+"size" - repeat$="--------------------------------" - fill$=" " - delim$="":for z=1 to 72:delim$=delim$+"=":delim1$=delim1$+"*":next z - l$="##,###,###.##" - RESTORE -540 K$(6,1)="1 - NEW ENTRY":K$(6,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(6,3)="3 - MODIFY EXISTING ENTRY" -560 K$(6,4)="4 - DELETE EXISTING ENTRY" -570 K$(6,5)="5 - CREATE NEW FILE":K$(6,6)="6 - CLEAR EXISTING FILE" -580 K$(6,7)="7 - BACK-UP AND SORT FILE":K$(6,8)="8 - LIST FILE" -590 K$(6,9)="9 - FINISHED" - print clear$:print -1100 K$(1,1)="TAG":K$(1,2)="ACCOUNT NUMBER":K$(1,3)="NAME (ATTENTION)" -1105 K$(1,4)="COMPANY":K$(1,5)="ADDRESS":K$(1,6)="CITY":K$(1,7)="STATE" -1110 K$(1,8)="ZIP CODE":K$(1,9)="PHONE (AAA) NNN NNNN" -1130 K$(1,10)="NAME (ATTENTION)":K$(1,11)="COMPANY":K$(1,12)="ADDRESS" -1135 K$(1,13)="CITY":K$(1,14)="STATE":K$(1,15)="ZIP CODE" -1140 K$(1,16)="PHONE (AAA) NNN NNNN" -1145 K$(1,17)="DATE OF LAST PMNT MM/DD/YY" -1150 K$(2,1)="AMOUNT OF LAST PAYMENT":K$(2,2)="TOTAL Y-TO-D PAYMENTS" -1155 K$(2,3)="CURRENT CHARGES":K$(2,4)="30-60 DAY CHARGES" -1160 K$(2,5)="61-90 DAY CHARGES":K$(2,6)="OVER 90 DAY CHARGES" -1165 K$(3,1)=" 1 - TAG":K$(3,2)=" 2 - ACCOUNT NO.":K$(3,3)=" 3 - NAME" -1170 K$(3,4)=" 4 - COMP":K$(3,5)=" 5 - ADDR":K$(3,6)=" 6 - CITY" -1175 K$(3,7)=" 7 - STA":K$(3,8)=" 8 - ZIP" -1180 K$(3,9)=" 9 - PHO" -1185 K$(3,10)="10 - NAME":K$(3,11)="11 - COMP":K$(3,12)="12 - ADDR" -1190 K$(3,13)="13 - CITY":K$(3,14)="14 - STA":K$(3,15)="15 - ZIP" -1195 K$(3,16)="16 - PHO" -1200 K$(3,17)="17 - DATE OF LAST PMNT" -1205 K$(4,1)="18 - AMOUNT OF LAST PAYMENT" -1210 K$(4,2)="19 - TOTAL Y-TO-D PAYMENTS" -1215 K$(4,3)="20 - CURRENT CHARGES":K$(4,4)="21 - 30-60 DAY CHARGES" -1220 K$(4,5)="22 - 61-90 DAY CHARGES":K$(4,6)="23 - OVER 90 DAY CHARGES" -1300 N(0,1)=4:N(0,2)=10:N(0,3)=24:N(0,4)=24:N(0,5)=24:N(0,6)=17 -1305 N(0,7)=2:N(0,8)=5:N(0,9)=14:N(0,10)=24:N(0,11)=24:N(0,12)=24 -1310 N(0,13)=17:N(0,14)=2:N(0,15)=5:N(0,16)=14:N(0,17)=8 -1315 N(1,1)=12:N(1,2)=12:N(1,3)=12:N(1,4)=12:N(1,5)=12:N(1,6)=12 - print clear$:print - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 384 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "VENDOR INFORMATION ENTRY PROGRAM" - PRINT "--------------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(6,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:NEXT Z -1695 N$="":new$="" -1700 FOR Z=1 TO 20:K$(5,Z)="":NEXT Z -1705 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(0,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2040 FOR Z=3 TO 17 - PRINT CUR$ -2045 PRINT TAB(30);left$(repeat$,n(0,z)) - PRINT UP$; -2050 PRINT K$(1,Z);TAB(30); -2055 INPUT line K$(5,Z):PRINT chr$(13) - if len(k$(5,z))>n(0,z) then k$(5,z)=left$(k$(5,z),n(0,z)) -2060 I=(N(0,Z)-LEN(K$(5,Z))):K$(5,Z)=K$(5,Z)+left$(fill$,i) - PRINT CLEAR$ -2065 NEXT Z -2066 N$="" -2070 FOR Z=3 TO 17:N$=N$+K$(5,Z):NEXT Z -2100 Z1=Z2 -2105 PRINT clear$; -2110 PRINT "RECORD NUMBER";z1 -2115 PRINT K$(3,1);TAB(11);N(2,1);TAB(40);K$(3,2);TAB(57);N(2,2) -2124 PRINT "BILL TO";TAB(40);"SHIP TO" -2126 PRINT delim$ -2128 FOR Z=3 TO 9 -2130 PRINT K$(3,Z);TAB(11);K$(5,Z);TAB(40);K$(3,Z+7);TAB(50);K$(5,Z+7) -2132 NEXT Z -2134 Z=17:PRINT delim$ -2136 PRINT K$(3,Z);TAB(40);K$(5,Z) -2141 FOR Z=18 TO 23:PRINT K$(4,Z-17);TAB(30);:print using l$;n(2,z-15):NEXT Z -2142 PRINT "24 - NONE" -2145 PRINT -2150 INPUT "IF AN ITEM IS TO BE CHANGED, TYPE THE NUMBER ";Z -2165 IF Z>23 THEN 2216 -2170 IF Z<1 THEN 2105 -2175 IF Z>2 AND Z<18 THEN 2200 -2176 IF Z>17 THEN 2220 - CL=18:CC=50:GOSUB 50:PRINT CUR2$; -2180 PRINT left$(repeat$,n(0,z)) - CL=20:GOSUB 50:PRINT CUR2$; -2185 PRINT K$(1,Z) - CL=18:CC=48:GOSUB 50:PRINT CUR2$; -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 CL=18:CC=50:GOSUB 50:PRINT CUR2$; :PRINT left$(repeat$,n(0,z)) - CL=20:CC=50:GOSUB 50:PRINT CUR2$; -2205 PRINT K$(1,Z); - CL=18:CC=48:GOSUB 50:PRINT CUR2$; -2210 INPUT line K$(5,Z) - if len(k$(5,z))>n(0,z) then k$(5,z)=left$(k$(5,z),n(0,z)) -2215 I=(N(0,Z)-LEN(K$(5,Z))):K$(5,Z)=K$(5,Z)+left$(fill$,i) -2216 N$="" -2217 FOR I=3 TO 17:N$=N$+K$(5,I):NEXT I -2218 GOTO 2225 -2220 CL=18:CC=50:GOSUB 50:PRINT CUR2$; :PRINT left$(repeat$,n(1,z-17)) - CL=20:CC=50:GOSUB 50:PRINT CUR2$; -2221 PRINT K$(4,Z-17) - CL=18:CC=48:GOSUB 50:PRINT CUR2$; -2222 INPUT N(2,Z-15) -2225 CL=22:CC=50:GOSUB 50:PRINT CUR2$; - INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105 -2235 PRINT CUR2$; -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 REM -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 384 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT -3005 INPUT "RECORD NUMBER";Z1 -3010 IF Z1>=Z2 THEN 3000 -3012 IF Z1<1 THEN RETURN -3020 open z5$ recl 384 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) - close 1 -3022 Z9=1:FOR Z=3 TO 17:K$(5,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -3030 PRINT MID$(K$(3,1),6,30);TAB(11);N(2,1);TAB(40);MID$(K$(3,2),6,30); -3032 PRINT TAB(55);N(2,2) -3034 PRINT "BILL TO";TAB(40);"SHIP TO" -3036 PRINT delim$ -3038 FOR Z=3 TO 9 -3040 PRINT MID$(K$(3,Z),6,30);TAB(11);K$(5,Z);TAB(40);MID$(K$(3,Z+7),6,30); -3042 PRINT TAB(50);K$(5,Z+7) -3044 NEXT Z -3046 Z=17:PRINT delim$ -3048 PRINT MID$(K$(3,Z),6,30);TAB(40);K$(5,Z) -3050 FOR Z=18 TO 23:PRINT MID$(K$(4,Z-17),6,30);TAB(30); -3052 print using l$;n(2,z-15):NEXT Z -3054 PRINT -3075 PRINT "FOR NEW RECORD, TYPE N-RETURN , OTHERWISE F-RETURN" -3085 INPUT line temp$ -3090 IF ucase$(temp$)="N" THEN 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";z1:GOTO 1620 -4030 open z5$ recl 384 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) - close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4050 Z9=1 -4055 FOR Z=3 TO 17 -4060 K$(5,Z)=MID$(N$,Z9,N(0,Z)) -4065 Z9=Z9+N(0,Z) -4070 NEXT Z -4075 GOTO 2105 -5000 PRINT clear$:PRINT -5010 INPUT "RECORD NUMBER";Z1 -5015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";z1:GOTO 1620 -5030 open z5$ recl 384 as 1 - read #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) - close 1 -5045 PRINT "RECORD NUMBER";z1 -5048 Z9=1:FOR Z=3 TO 17:K$(5,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -5050 PRINT MID$(K$(3,1),6,30);TAB(11);N(2,1);TAB(40);MID$(K$(3,2),6,30); -5052 PRINT TAB(55);N(2,2) -5054 PRINT "BILL TO";TAB(40);"SHIP TO" -5056 PRINT delim$ -5058 FOR Z=3 TO 9 -5060 PRINT MID$(K$(3,Z),6,30);TAB(11);K$(5,Z);TAB(40);MID$(K$(3,Z+7),6,30); -5062 PRINT TAB(50);K$(5,Z+7) -5064 NEXT Z -5066 Z=17:PRINT delim$ -5068 PRINT MID$(K$(3,Z),6,30);TAB(40);K$(5,Z) -5070 FOR Z=18 TO 23:PRINT MID$(K$(4,Z-17),6,30);TAB(30); -5072 PRINT :print using l$;n(2,z-15):NEXT Z -5074 PRINT -5100 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5105 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5110 IF ucase$(temp$)<>"YES" THEN 5100 -5115 N(2,1)=0 -5120 open z5$ recl 384 as 1 - print #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) - close 1 -5135 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A VENDOR FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF ucase$(temp$)="C" THEN initialize:GOTO 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";z3 -6055 PRINT -6060 n$="":for z=1 to 228:n$=n$+" ":next z:for i=1 to 20:n(2,i)=0:next i -6055 create z5$ recl 384 as 1 -6070 FOR Z1=1 TO z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) -6085 NEXT Z1 -6090 close 1 -6092 Z1=Z1+1 -6095 PRINT clear$:PRINT -6100 PRINT "VENDOR FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF ucase$(temp$)<>"YES" THEN RETURN - n$="":for z=1 to 228:n$=n$+" ":next z:for i=1 to 20:n(2,i)=0:next i - open z5$ recl 384 as 1 -7010 FOR Z1=1 TO Z3+2 - print #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) -7025 NEXT Z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "VENDOR FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 chain "vpsort" -9000 PRINT clear$:PRINT - print "Do you want the entire file (Yes or No)?":input line temp$ - IF ucase$(temp$)="Y" then first=1:last=z2-1:GOTO 9005 - - IF ucase$(temp$)<>"N" then 9000 - -9001 print clear$:print - input "Enter first record number to print - ";first - input "Enter last record to print - ";last - IF last>z2-1 then 9001 - IF first>last then 9001 - IF first<1 then 9001 -9005 lprinter - open z5$ recl 384 as 1 -9015 FOR Z1=first TO last - read #1,z1;n(2,1),n(2,2),n$,n(2,3),n(2,4),n(2,5),n(2,6),n(2,7),n(2,8) -9022 Z9=1 -9023 FOR Z=3 TO 17:K$(5,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -9024 print delim1$:print:print "RECORD NO.";z1:print -9025 print MID$(K$(3,1),6,30);TAB(11);N(2,1);TAB(40);MID$(K$(3,2),6,30); -9030 print TAB(55);N(2,2) -9031 print -9035 print "BILL TO";TAB(40);"SHIP TO" -9040 print delim$ -9041 print -9045 FOR Z=3 TO 9 -9050 print MID$(K$(3,Z),6,30);TAB(11);K$(5,Z);TAB(40);MID$(K$(3,Z+7),6,30); -9055 print TAB(50);K$(5,Z+7) -9060 NEXT Z -9061 print -9065 Z=17:print delim$ -9070 print MID$(K$(3,Z),6,30);TAB(40);K$(5,Z) -9075 FOR Z=18 TO 23:print MID$(K$(4,Z-17),6,30);TAB(30); -9080 print using l$;n(2,z-15):NEXT Z -9085 print -9100 print chr$(12) -9105 NEXT Z1 -9110 CLOSE 1 -9115 console -9120 RETURN -10000 CHAIN "master3" -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 384 as 1 - z3=(size(z5$)*block.size)/384 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 diff --git a/bwbtest/C77B/VPFMPO.BAS b/bwbtest/C77B/VPFMPO.BAS deleted file mode 100644 index c699bab..0000000 --- a/bwbtest/C77B/VPFMPO.BAS +++ /dev/null @@ -1,178 +0,0 @@ -1 rem This is the Formatted Purchase Order Printing Program - -%INCLUDE ALL.BAS -500 RESTORE - dim n(5,20),k$(5,20),h(9),s(9),t(4,9),g(10),q(10) - for z=4 to 11:read n(0,z):next z - for z=3 to 17:read n(1,z):next z - for z=3 to 9:read n(2,z):next z - data 14,10,8,8,10,10,1,4 - data 24,24,24,17,2,5,14,24,24,24,17,2,5,14,8 - data 7,12,24,24,8,8,10 - z5$="po":z6$="vp":z7$="fg" - for z=1 to 80:del$=del$+"*":del1$=del1$+"=":del2$=del2$+"-":next z -fmt1$ =" /...5...10...15...20.../" -fmt2$ =" /...5...10...15...20.../" -fmt3$ =" /...5...10...15...20.../ Pur Ord No. ####" -fmt4$ =" Pur Ord Date Buyer " -fmt5$ =" /....../ /........./" - -fmta$ =" BILL TO SHIP TO" - -fmt6$ =" /...5...10...15...20.../ /...5...10...15...20.../" -fmt7$ =" /....................../ /....................../" -fmt8$ =" /....................../ /....................../" -fmt9$ =" /.............../, // /.../ /.............../, // /.../" -fmt10$=" Vend Inv No. Require Via FOB Point Terms" -fmt11$=" /........../ /....../ /........../ /......./ /.........../" -fmt12$=" Quan Description Unit " -fmt12$=fmt12$+"Total" -fmt13$=" ###### /...5...10...15...2/ $$#,###.## " -fmt13$=fmt13$+"$$##,###.##" - u$="$$##,###.##" - print clear$:print -1080 Q$="P U R O R D E R R E G I S T E R" -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT PURCHASE ORDERS -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING PURCHASE ORDERS" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0:T5=0:T6=0:P0=1 -6035 X=1 -6040 PRINT:PRINT "INSTALL PURCHASE ORDER REGISTER DISK IN DRIVE A" -6045 PRINT:PRINT "INSTALL A VENDOR DISK IN DRIVE B":PRINT -6046 PRINT chr$(07) -6050 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -6100 p9=0 -6200 open z5$ recl 384 as 1 -6205 z3=(size(z5$)*block.size)/384 -6210 FOR Z2=1 TO Z3 - read #1,z2;z5,z6,n$ -6220 IF Z6=0 THEN 6230 -6225 NEXT Z2 -6230 close 1 -6235 Z2=Z2-1 -6240 PRINT clear$:PRINT -6245 PRINT:PRINT "PURCHASE ORDERS TO BE PRINTED ";Z2 -6246 PRINT chr$(07) -6250 PRINT:INPUT "TO PRINT PURCHASE ORDERS, TYPE RETURN.";line temp$ - lprinter -6300 open z5$ recl 384 as 1 -6310 open z6$ recl 384 as 2 -6320 FOR I=1 TO Z2 -6350 GOSUB 15000 -6380 NEXT I -6410 GOTO 20000 -15000 IF I>Z2 THEN 15595 - read #1,i;N(3,1),N(3,2),N(3,3),N$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15060 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -15065 if mid$(k$(3,11),2,1)="I" then 15595 -15070 z$="":z$=left$(k$(3,11),1)+"I"+right$(k$(3,11),2):k$(3,11)=z$ -15105 read #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15115 close 2 -15120 Z9=1:FOR Z=3 TO 17:K$(4,Z)=MID$(O$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -15200 print using fmt1$;k$(0,2) - print using fmt2$;k$(0,3) - print using fmt3$;k$(0,4),n(3,3) - print fmt4$ - print using fmt5$;d$(1),k$(3,4) - print:print fmta$:print - print using fmt6$;k$(4,3),k$(4,10) - print using fmt7$;k$(4,4),k$(4,11) - print using fmt8$;k$(4,5),k$(4,12) - print using fmt9$;k$(4,6),k$(4,7),k$(4,8),k$(4,13),k$(4,14),k$(4,15) -15240 FOR Z=1 TO 2:print:NEXT Z:print del1$ -15270 IF VAL(K$(3,9))=1 THEN terms$= "PREPAID" -15275 IF VAL(K$(3,9))=2 THEN terms$= "COD" -15280 IF VAL(K$(3,9))=3 THEN terms$= "1% 10, NET 30" -15285 Z$=K$(3,9) -15286 IF VAL(Z$)<>1 AND VAL(Z$)<>2 AND VAL(Z$)<>3 THEN terms$= K$(3,9) - print fmt10$ - print using fmt11$;k$(3,5),k$(3,6),k$(3,7),k$(3,8),terms$ -15290 print del1$ - print fmt12$ -15310 print del2$ -15315 print - console -15350 PRINT clear$:PRINT -15352 PRINT "INSTALL THE APPROPRIATE FINISHED GOODS DISK IN DRIVE B" -15353 PRINT chr$(07) -15354 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ - lprinter - initialize - open z7$ recl 256 as 3 -15358 FOR J=1 TO 10 -15360 IF G(J)=0 THEN 15500 -15365 read #3,g(j);Z,Z,F$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -15380 Z9=1:FOR Z=3 TO 9:K$(5,Z)=MID$(F$,Z9,N(2,Z)):Z9=Z9+N(2,Z):NEXT Z - print using fmt13$;q(j),k$(5,5),f1,f1*q(j) - F4=F4+q(j) - print #3,g(j);Z,Z,F$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 - quan=0:b.o.=0 -15395 D3=D3+(Q(J)*f1) -15400 IF ucase$(k$(3,10))<>"T" AND ucase$(k$(3,10))<>"Y" then 15410 -15405 D5=D5+(D3*.06) -15410 IF VAL(K$(3,9))=1 THEN S1=S1+D3:GOTO 15500 -15415 S2=S2+D3 -15500 NEXT J -15505 T4=T4+D4:T5=T5+D5 -15510 print TAB(70);"-----------" -15512 print:print TAB(58);"TOTAL";TAB(70);:print using u$;d3 -15514 print:print TAB(58);"SALES TAX";TAB(70);:print using u$;d5 -15516 print:print TAB(58);"SHIPPING";TAB(70);:print using u$;d4 -15518 print TAB(70);"===========" -15520 print TAB(70);:print using u$;d3+d4+d5 -15540 N$="":FOR Z=4 TO 11:N$=N$+K$(3,Z):NEXT Z -15545 print #1,i;N(3,1),N(3,2),N(3,3),n$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15550 IF VAL(K$(3,9))=1 THEN K$(4,17)=D$(1):C1=D3+D4+D5:C2=C2+D3+D4+D5 - if val(k$(3,9))=1 then 15560 -15555 C3=C3+D3+D4+D5 -15560 D3=0:D4=0:D5=0 -15565 O$="":FOR Z=3 TO 17:O$=O$+K$(4,Z):NEXT Z -15570 close 3 - console -15575 PRINT clear$:PRINT:PRINT "INSTALL VENDOR DISK IN DRIVE B" -15576 PRINT chr$(07) -15580 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ -: lprinter -: print chr$(12) -: initialize -15582 open z6$ recl 384 as 2 - print #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15595 RETURN -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master3 -20005 close 1 -20010 close 2 - print chr$(12):for z=1 to 100:next z:print chr$(12) -20015 console -20020 PRINT clear$:PRINT -20025 PRINT "INSTALL PROGRAM DISK IN DRIVE A":PRINT -20026 PRINT chr$(07) -20030 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -20050 CHAIN "master3" diff --git a/bwbtest/C77B/VPJOLIST.BAS b/bwbtest/C77B/VPJOLIST.BAS deleted file mode 100644 index c61a285..0000000 --- a/bwbtest/C77B/VPJOLIST.BAS +++ /dev/null @@ -1,212 +0,0 @@ -1 rem This is the Purchase Order Register Printing Program - -%INCLUDE ALL.BAS -500 RESTORE - dim n(5,20),k$(5,20),h(9),s(9),t(4,9),g(10),q(10) - for z=4 to 11:read n(0,z):next z - for z=3 to 17:read n(1,z):next z - for z=3 to 9:read n(2,z):next z - data 14,10,8,8,10,10,1,4 - data 24,24,24,17,2,5,14,24,24,24,17,2,5,14,8 - data 7,12,24,24,8,8,10 - z5$="po":z6$="vp":z7$="fg" - for z=1 to 80:del$=del$+"*":del1$=del1$+"=":del2$=del2$+"-":next z -fmt1$ =" /...5...10...15...20.../" -fmt2$ =" /...5...10...15...20.../" -fmt3$ =" /...5...10...15...20.../ Pur Ord No. ####" -fmt4$ =" Pur Ord Date Buyer " -fmt5$ =" /....../ /........./" -fmt6$ =" /...5...10...15...20.../ /...5...10...15...20.../" -fmt7$ =" /....................../ /....................../" -fmt8$ =" /....................../ /....................../" -fmt9$ =" /.............../, // /.../ /.............../, // /.../" -fmt10$=" Vend Inv No. Required Via FOB Point Terms" -fmt11$=" /........../ /....../ /........../ /......./ /.........../" -fmt12$=" Quan Description Unit " -fmt12$=fmt12$+"Total" -fmt13$=" ###### /...5...10...15...2/ $$#,###.## " -fmt13$=fmt13$+"$$##,###.##" - u$="$$##,###.##" - print clear$:print -1080 Q$="P U R C H A S E O R D E R R E G I S T E R" -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT PURCHASE ORDER REGISTER -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING PURCHASE ORDER REGISTER" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0:T5=0:T6=0:P0=1 -6035 X=1 -6040 PRINT:PRINT "INSTALL PURCHASE ORDER REGISTER DISK IN DRIVE A" -6045 PRINT:PRINT "INSTALL A VENDOR DISK IN DRIVE B":PRINT -6046 PRINT chr$(07) -6050 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -6100 p9=0 -6200 open z5$ recl 384 as 1 -6205 z3=(size(z5$)*block.size)/384 -6210 FOR Z2=1 TO Z3 - read #1,z2;z5,z6,n$ -6220 IF Z6=0 THEN 6230 -6225 NEXT Z2 -6230 close 1 -6235 Z2=Z2-1 -6240 PRINT clear$:PRINT -6245 PRINT:PRINT "RECORDS TO BE PRINTED ";Z2 -6246 PRINT chr$(07) -6250 PRINT:INPUT "TO PRINT REGISTER, TYPE RETURN.";line temp$ - lprinter -6300 open z5$ recl 384 as 1 -6310 open z6$ recl 384 as 2 -6320 FOR I=1 TO Z2 -6330 GOSUB 9600 -6350 GOSUB 15000 -6370 GOSUB 9700 -6380 NEXT I -6390 GOSUB 15600 -6400 GOSUB 9800 -6410 GOTO 20000 -9600 REM PRINT PAGE HEADING SUBROUTINE -9610 print del$:P9=P9+1 -9615 print:P9=P9+1 -9616 print TAB((T%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((T%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(T%(10));"DATE ";D$(X);TAB(T%(11));"PAGE #";P0 -9642 P9=P9+1 -9645 print del1$:P9=P9+1 -9695 RETURN -9700 REM REPORT CONTINUED SUBROUTINE -9705 print del1$ - print "Report continues on next page" -9715 print del1$ -9720 print chr$(12):P9=0 -9725 P0=P0+1 -9740 RETURN -9800 REM End of report ROUTINE -9810 print del1$ -9820 print "End of report" -9830 print del$ -9840 print chr$(12) -9845 FOR Z=1 TO 100:NEXT Z:print chr$(12) -9850 RETURN -15000 IF I>Z2 THEN 15595 - read #1,i;N(3,1),N(3,2),N(3,3),N$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15060 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -15070 IF MID$(K$(3,11),3,1)="R" THEN 15595 -15080 IF VAL(K$(3,9))=1 THEN K$(3,11)="P RP":GOTO 15105 -15085 K$(3,11)="P R " -15105 read #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15115 close 2 -15120 Z9=1:FOR Z=3 TO 17:K$(4,Z)=MID$(O$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -15200 print using fmt1$;k$(0,2) - print using fmt2$;k$(0,3) - print using fmt3$;k$(0,4),n(3,3) - print fmt4$ - print using fmt5$;d$(1),k$(3,4) - print using fmt6$;k$(4,3),k$(4,10) - print using fmt7$;k$(4,4),k$(4,11) - print using fmt8$;k$(4,5),k$(4,12) - print using fmt9$;k$(4,6),k$(4,7),k$(4,8),k$(4,13),k$(4,14),k$(4,15) -15240 FOR Z=1 TO 2:print:NEXT Z:print del1$ -15270 IF VAL(K$(3,9))=1 THEN terms$= "PREPAID" -15275 IF VAL(K$(3,9))=2 THEN terms$= "COD" -15280 IF VAL(K$(3,9))=3 THEN terms$= "1% 10, NET 30" -15285 Z$=K$(3,9) -15286 IF VAL(Z$)<>1 AND VAL(Z$)<>2 AND VAL(Z$)<>3 THEN terms$= K$(3,9) - print fmt10$ - print using fmt11$;k$(3,5),k$(3,6),k$(3,7),k$(3,8),terms$ -15290 print del1$ - print fmt12$ -15310 print del2$ -15315 print - console -15350 PRINT clear$:PRINT -15352 PRINT "INSTALL THE APPROPRIATE FINISHED GOODS DISK IN DRIVE B" -15353 PRINT chr$(07) -15354 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ - lprinter - initialize - open z7$ recl 256 as 3 -15358 FOR J=1 TO 10 -15360 IF G(J)=0 THEN 15500 -15365 read #3,g(j);Z,Z,F$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -15380 Z9=1:FOR Z=3 TO 9:K$(5,Z)=MID$(F$,Z9,N(2,Z)):Z9=Z9+N(2,Z):NEXT Z - print using fmt13$;q(j),k$(5,5),f1,f1*q(j) -15395 D3=D3+(Q(J)*f1) -15400 IF ucase$(k$(3,10))<>"T" AND ucase$(k$(3,10))<>"Y" then 15410 -15405 D5=D5+((f1*q(j))*.06) -15410 IF VAL(K$(3,9))=1 THEN S1=S1+(q(j)*f1):GOTO 15500 -15415 S2=S2+(q(j)*f1) -15500 NEXT J -15505 T4=T4+D4:T5=T5+D5 -15510 print TAB(70);"-----------" -15512 print:print TAB(58);"TOTAL";TAB(70);:print using u$;d3 -15514 print:print TAB(58);"SALES TAX";TAB(70);:print using u$;d5 -15516 print:print TAB(58);"SHIPPING";TAB(70);:print using u$;d4 -15518 print TAB(70);"===========" -15520 print TAB(70);:print using u$;d3+d4+d5 -15540 N$="":FOR Z=4 TO 11:N$=N$+K$(3,Z):NEXT Z -15545 print #1,i;N(3,1),N(3,2),N(3,3),n$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15560 D3=0:D4=0:D5=0 -15565 O$="":FOR Z=3 TO 17:O$=O$+K$(4,Z):NEXT Z -15570 close 3 - console -15575 PRINT clear$:PRINT:PRINT "INSTALL VENDOR DISK IN DRIVE B" -15576 PRINT chr$(07) -15580 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ -: lprinter -: initialize -15582 open z6$ recl 384 as 2 - print #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15595 RETURN -15600 print :print -15610 print del1$ -15630 print "TOTAL COST OF GOODS ";TAB(40);:print using u$;t2 -15640 print TAB(40);"------------" -15660 print:print "SHIPPING CHARGES";TAB(40);:print using u$;t4 -15670 print "SALES TAX";TAB(40);:print using u$;t5 -15680 print TAB(40);"============" -15690 print "TOTAL COST,TAX AND SHIPPING";TAB(40);:print using u$;t2+t4+t5 - if end #4 then 15800 -15700 open "ap" as 4 -15710 print #4;s1,s2,t2,t4,t5 - close 4 -15795 return -15800 create "ap" as 4 - goto 15710 -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master3 -20005 close 1 -20010 close 2 -20015 console -20020 PRINT clear$:PRINT -20025 PRINT "INSTALL PROGRAM DISK IN DRIVE A":PRINT -20026 PRINT chr$(07) -20030 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -20050 CHAIN "master3" diff --git a/bwbtest/C77B/VPJOPOST.BAS b/bwbtest/C77B/VPJOPOST.BAS deleted file mode 100644 index 3371046..0000000 --- a/bwbtest/C77B/VPJOPOST.BAS +++ /dev/null @@ -1,136 +0,0 @@ -1 rem This is the Accounts Payable Posting Program - -%INCLUDE ALL.BAS -500 RESTORE - dim n(2,20),k$(2,20) - l$="$$#,###,###.##" - - before1$="Before POSTING " - after1$="After POSTING " - numbers1$="##,###,###.## ##,###,###.## ##,###,###.##" - before$=before1$+numbers1$:after$=after1$+numbers1$ - - temp$="Totals for Acct ########## /...5...10...15...20...25../" - zero$=temp$+" #.##" - credit$=temp$+" ##,###,###.## cr" - debit$=temp$+" ##,###,###.## db" - temp$="" - - print clear$:print -1002 PRINT "BEFORE PROCEEDING, IT IS A GOOD PRACTICE TO BACK UP" -1005 PRINT "BOTH THE GENERAL LEDGER AND AP FILE" -1010 PRINT "BY MAKING COPIES USING THE DISKCOPY FACILITY OF YOUR DOS." -1015 PRINT:PRINT"IF YOU ARE UNFAMILIAR WITH THE PROCESS, ASK YOUR" -1020 PRINT "SYSTEM SUPERVISOR FOR HELP.":PRINT -1025 PRINT "IF THIS HAS BEEN DONE; TYPE Y TO CONTINUE!" -1030 INPUT line temp$ -1035 IF left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" THEN CHAIN "master3" - print clear$:print -1545 PRINT "INSTALL THE GENERAL LEDGER DISK IN DRIVE A":PRINT -1550 PRINT "INSTALL THE VENDOR DISK WITH AP FILE IN DRIVE B":PRINT -1555 PRINT "TYPE RETURN WHEN READY":INPUT line temp$ - initialize - - rem get dates - z9=0 - print clear$:print -2005 PRINT "LOADING ACCOUNT NUMBER TABLES":PRINT -2010 PRINT "*** PLEASE WAIT ***" - open "glref" as 1 - read #1;z2 - dim h(z2) - for z=1 to z2 - read #1;h(z) - next z - close 1 -3070 N(2,1)=8:N(2,2)=24:N(2,3)=24:N(2,4)=1 -4000 REM THIS IS THE ACTUAL POSTING PROGRAM - open "ap" as 1 - read #1;s1,s2,t2,t4,t5 - close 1 - s3=0 - open "ap" as 1 - print #1;s3,s3,s3,s3,s3 - close 1 - open "gl" recl 138 as 1 -4100 print clear$:print -4105 PRINT "THIS POSTING PROGRAM POSTS: ":PRINT -4125 PRINT "COST OF GOODS TO INVENTORY,A/P AND COST OF GOODS" -4130 PRINT "SHIPPING CHARGES TO EXPENSES AND ACCOUNTS PAYABLE" -4135 PRINT "SALES TAX TO EXPENSES AND ACCOUNTS PAYABLE" -4140 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ - lprinter - print "ACCOUNTS PAYABLE AUDIT TRAIL RECORD FOR ";D$(1) - print "=====================================================":print - console -4150 print clear$:print -4200 PRINT "ENTER ACCOUNT NUMBER FOR INVENTORY ":INPUT N(0,1):PRINT -4205 GOSUB 20000 -4210 IF A=1 THEN 4200 -4220 N(0,2)=S1 -4225 GOSUB 9000 -4300 PRINT "ENTER ACCOUNT NUMBER FOR ACCOUNTS PAYABLE ":INPUT N(0,1):PRINT -4305 GOSUB 20000 -4310 IF A=1 THEN 4300 -4320 N(0,2)=S2*(-1) -4325 GOSUB 9000 -4400 PRINT "ENTER ACCOUNT NUMBER FOR COST OF GOODS ":INPUT N(0,1):PRINT -4405 GOSUB 20000 -4410 IF A=1 THEN 4400 -4420 N(0,2)=S2 -4425 GOSUB 9000 -4700 PRINT "ENTER ACCOUNT NUMBER FOR SHIPPING EXPENSE ":INPUT N(0,1):PRINT -4705 GOSUB 20000 -4710 IF A=1 THEN 4700 -4720 N(0,2)=T4 -4725 GOSUB 9000 -4800 PRINT "ENTER ACCOUNT NUMBER FOR SHIPPING PAYABLE ":INPUT N(0,1):PRINT -4805 GOSUB 20000 -4810 IF A=1 THEN 4800 -4820 N(0,2)=T4*(-1) -4825 GOSUB 9000 -4900 PRINT "ENTER ACCOUNT NUMBER FOR SALE TAX EXPENSE ":INPUT N(0,1):PRINT -4905 GOSUB 20000 -4910 IF A=1 THEN 4900 -4920 N(0,2)=T5 -4925 GOSUB 9000 -5000 PRINT "ENTER ACCOUNT NUMBER FOR TAX ON GOODS PAYABLE ":INPUT N(0,1):PRINT -5005 GOSUB 20000 -5010 IF A=1 THEN 5000 -5015 A=0 -5020 N(0,2)=T5*(-1) -5025 GOSUB 9000 -6000 GOTO 10000 -9000 REM SUBROUTINE TO POST AND PRINT TOTALS -9025 FOR Z4=1 TO Z2 -9030 IF N(0,1)=H(Z4) THEN read #1,z4;N(1,1),N(1,2),R$,N(1,4),N(1,5), N(1,6),N(1,7),N(1,8),N(1,9),N(1,10):GOTO 9040 -9035 NEXT Z4 -9040 lprinter - print - if n(0,2)=0 then print using zero$;n(1,2),r$,n(0,2) - if n(0,2)<0 then print using credit$;n(1,2),r$,n(0,2) - if n(0,2)>0 then print using debit$;n(1,2),r$,n(0,2) - print using before$;n(1,4),n(1,5),n(1,6) - FOR X=4 TO 6:N(1,X)=N(1,X)+N(0,2):NEXT X - print #1,z4;N(1,1),N(1,2),R$,N(1,4),N(1,5),N(1,6),N(1,7), N(1,8),N(1,9),N(1,10) - print using after$;n(1,4),n(1,5),n(1,6) - console -9235 RETURN -10000 close 1 -10005 PRINT "REPLACE DISK #3 IN DRIVE A - TYPE RETURN TO CONTINUE" -10010 INPUT line temp$ - lprinter -10015 print chr$(12):for z=1 to 100:next z:print chr$(12):console - console -10020 chain "master3" -20000 print clear$:print -20005 A=0 -20010 PRINT "*** VALIDATING ACCOUNT NUMBER ***" -20020 PRINT:PRINT "PLEASE WAIT" -20080 FOR Z4=1 TO Z2 -20085 IF N(0,1)=0 THEN 20510 -20090 IF N(0,1)=H(Z4) THEN print clear$:print:GOTO 21000 -20100 NEXT Z4 -20500 print N(0,1);" IS NOT A VALID ACCOUNT NUMBER" -20510 A=1 -21000 RETURN diff --git a/bwbtest/C77B/VPJOTRAN.BAS b/bwbtest/C77B/VPJOTRAN.BAS deleted file mode 100644 index 5146921..0000000 --- a/bwbtest/C77B/VPJOTRAN.BAS +++ /dev/null @@ -1,344 +0,0 @@ -1 rem This is the Purchase Order Entry Program - rem The CP/MUG version does not include VPJOSORT, so do not select function 7. - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(4,20),g(10),q(10) - l$="$$##,###.##":u$="##########":v$="####" - repeat$="--------------------------------" - fill$=" " - z5$="po":z6$=z5$+"back":z7$=z5$+"size" - RESTORE - for z=1 to 70:delim1$=delim1$+"*":delim2$=delim2$+"=":next z -fmt1$ ="Rec No. #### 1 - Tag ######## 2 - A/P Account No. ##########" -fmt2$ ="3 - Pur Ord No. ########## 4 - Buyer / /" -fmt3$ ="5 - Vend Inv No. / / 6 - Req. Date / /" -fmt4$ ="7 - Carrier (Via) / / 8 - FOB Point / /" -fmt5$ ="9 - Terms / / 10- Tax Code ! Flags / /" -fmt6$ ="12- Vendor Rec No. #### 13- Shipping Chgs $##########.##" -fmt7$ =" Item Record No Quantity Item Record No Quantity" -fmt8$ ="No 1 #### ########## No 2 #### ##########" -fmt9$ ="No 3 #### ########## No 4 #### ##########" -fmt10$="No 5 #### ########## No 6 #### ##########" -fmt11$="No 7 #### ########## No 8 #### ##########" -fmt12$="No 9 #### ########## No 10 #### ##########" -540 K$(4,1)="1 - NEW ENTRY":K$(4,2)="2 - EXAMINE EXISTING ENTRY" -550 K$(4,3)="3 - MODIFY EXISTING ENTRY" -560 K$(4,4)="4 - DELETE EXISTING ENTRY" -570 K$(4,5)="5 - CREATE NEW FILE":K$(4,6)="6 - CLEAR EXISTING FILE" -580 K$(4,7)="7 - BACK-UP AND SORT FILE":K$(4,8)="8 - LIST FILE" -590 K$(4,9)="9 - FINISHED" - print clear$:print -1100 K$(1,1)="TAG":K$(1,2)="A/P ACCT #":K$(1,3)="PUR ORD #" -1105 K$(1,4)="BUYER":K$(1,5)="VEND INV. #":K$(1,6)="REQUIRED DATE" -1110 K$(1,7)="CARRIER (VIA)":K$(1,8)="FOB POINT":K$(1,9)="TERMS (1,2, OR 3)" -1130 K$(1,10)="TAX CODE":K$(1,11)="FLAGS" -1132 K$(1,12)="VENDOR REC #" -1135 K$(1,13)="SHIPPING CHARGES" -1200 K$(2,1)="1 - TAG":K$(2,2)="2 - A/P ACCT #":K$(2,3)="3 - PUR ORD #" -1205 K$(2,4)="4 - BUYER":K$(2,5)="5 - VEND INV #" -1206 K$(2,6)="6 - REQUIRED DATE":K$(2,7)="7 - CARRIER(VIA)" -1210 K$(2,8)="8 - FOB POINT":K$(2,9)="9 - TERMS (1,2, OR 3)" -1230 K$(2,10)="10- TAX CODE":K$(2,11)="11- FLAGS" -1232 K$(2,12)="12- VENDOR REC #" -1235 K$(2,13)="13- SHIPPING CHARGES" -1300 N(1,1)=8:N(1,2)=10:N(1,3)=10:N(1,4)=14:N(1,5)=10:N(1,6)=8 -1305 N(1,7)=8:N(1,8)=10:N(1,9)=10:N(1,10)=1:N(1,11)=4:N(1,12)=4 -1310 N(1,13)=12:G(0)=4:Q(0)=10 - print clear$:print - -1500 if end #1 then 6000 - if end #2 then 15000 - open z5$ recl 384 as 1 - close 1 - open z7$ as 2 - read #2;z2,z3 - close 2 - -1600 REM - console -1620 PRINT CLEAR$ - if z2>z3 then print "*** OUT OF RECORD SPACE ***" - PRINT "PURCHASE ORDER ENTRY PROGRAM" - PRINT "----------------------------" - PRINT:PRINT "THERE ARE ";Z3;" AVAILABLE RECORDS" - PRINT "OF THESE THERE ARE:";TAB(30);(Z3-Z2)+1;" RECORDS OPEN" - PRINT ;TAB(30);Z2-1;" RECORDS USED" - PRINT - -1650 PRINT "THIS IS A LIST OF OPERATIONS." -1655 PRINT -1660 FOR Z=1 TO 9:PRINT K$(4,Z):NEXT Z:PRINT -1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING" -1670 PRINT "THE CORRESPONDING NUMBER." -1675 PRINT -1680 INPUT Z - IF Z<1 OR Z>9 then 1620 -1682 IF Z=1 THEN new$="N" -1685 ON Z GOSUB 2000,3000,4000,5000,6000,7000,8000,9000,10000 -1690 FOR Z=1 TO 20:N(2,Z)=0:N(0,Z)=0:NEXT Z -1695 N$="":new$="" -1700 FOR Z=1 TO 20:K$(3,Z)="":NEXT Z - for z=1 to 10:g(z)=0:q(z)=0:next z -1720 GOTO 1600 -2000 IF Z2>Z3 THEN RETURN -2001 PRINT CLEAR$:PRINT -2005 PRINT "RECORD NUMBER";Z2:PRINT -2015 FOR Z=1 TO 2 - PRINT CUR$ -2020 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2025 PRINT K$(1,Z);TAB(30); -2030 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2035 NEXT Z -2036 Z=0:GOSUB 24000 -2040 FOR Z=4 TO 10 - PRINT CUR$ -2042 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2044 PRINT K$(1,Z);TAB(30); -2046 INPUT line K$(3,Z):PRINT chr$(13) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2048 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) - PRINT CLEAR$ -2050 NEXT Z -2052 N$="" -2054 FOR Z=4 TO 10:N$=N$+K$(3,Z):NEXT Z -2056 FOR Z=12 TO 13 - PRINT CUR$ -2058 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2060 PRINT K$(1,Z);TAB(30); -2062 INPUT N(2,Z):PRINT chr$(13) - PRINT CLEAR$ -2064 NEXT Z -2066 FOR Z=1 TO 10 - PRINT CUR$ -2068 PRINT TAB(30);left$(repeat$,g(0)) - PRINT UP$; -2070 PRINT "FINISHED GOODS REC # ";TAB(30); -2072 INPUT G(Z):PRINT chr$(13) - PRINT CLEAR$ - PRINT CUR$ -2074 PRINT TAB(30);left$(repeat$,q(0)) - PRINT UP$; -2076 PRINT "QUANTITY ";TAB(30); -2078 INPUT Q(Z):PRINT chr$(13) -2080 PRINT:INPUT "IS THIS THE LAST ITEM? ";line temp$ -2082 IF left$(temp$,1)="y" or left$(temp$,1)="Y" THEN 2100 - PRINT CLEAR$ -2084 NEXT Z -2100 Z1=Z2 -2105 PRINT clear$; -2110 GOSUB 20000 -2115 PRINT "IF A FINISHED GOODS REC # OR QUANTITY IS TO BE CHANGED" -2116 PRINT "TYPE # - RETURN. OTHERWISE TYPE THE NUMBER PRECEEDING AN ENTRY" -2117 PRINT "FOLLOWED BY RETURN.":PRINT -2118 PRINT "IF YOU ARE FINISHED, TYPE 14 - RETURN"; -2119 INPUT line temp$ -2120 IF temp$="#" THEN GOSUB 25000 -2125 Z=VAL(temp$) -2150 IF Z>13 THEN 2216 -2160 IF Z=3 THEN GOSUB 24000 -2177 IF Z<1 THEN 2105 -2178 IF Z>3 AND Z<12 THEN 2200 -2180 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2185 PRINT K$(1,Z);TAB(30); -2190 INPUT N(2,Z) -2195 GOTO 2225 -2200 PRINT TAB(30);left$(repeat$,n(1,z)) - PRINT UP$; -2205 PRINT K$(1,Z);TAB(30); -2210 INPUT line K$(3,Z) - if len(k$(3,z))>n(1,z) then k$(3,z)=left$(k$(3,z),n(1,z)) -2215 I=(N(1,Z)-LEN(K$(3,Z))):K$(3,Z)=K$(3,Z)+left$(fill$,i) -2216 N$="" -2217 FOR I=4 TO 11:N$=N$+K$(3,I):NEXT I -2225 INPUT "ANY MORE CHANGES";line temp$ -2230 IF left$(temp$,1)="y" or left$(temp$,1)="Y" THEN 2105 -2235 PRINT -2240 INPUT "IS RECORD TO BE ENTERED";line temp$ -2245 PRINT -2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280 -2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235 -2260 PRINT clear$:PRINT -2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT -2275 FOR Z=1 TO 200:NEXT Z:RETURN -2280 open z5$ recl 384 as 1 - print #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) - close 1 -2295 IF new$="N" THEN Z2=Z2+1:open z7$ as 1:print #1;z2,z3:close 1 -2300 RETURN -3000 PRINT clear$:PRINT:INPUT "RECORD NUMBER";Z1:PRINT clear$:PRINT -3003 IF Z1>=Z2 THEN 3000 -3004 IF Z1<1 THEN RETURN -3005 open z5$ recl 384 as 1 - read #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -3008 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -3009 CLOSE 1 -3015 PRINT clear$:PRINT -3020 GOSUB 20000 -3075 PRINT "FOR NEW RECORD, TYPE N-RETURN , OTHERWISE F-RETURN" -3085 INPUT line temp$ -3090 IF ucase$(temp$)="N" THEN 3000 -3095 RETURN -4000 PRINT clear$:PRINT -4005 N$="" -4010 INPUT "RECORD NUMBER";Z1 -4015 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -4020 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -4025 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -4030 open z5$ recl 384 as 1 - read #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) - close 1 -4045 IF N(2,1)=0 THEN PRINT "*** DELETED RECORD ***":GOTO 1620 -4050 Z9=1 -4055 FOR Z=4 TO 11 -4060 K$(3,Z)=MID$(N$,Z9,N(1,Z)) -4065 Z9=Z9+N(1,Z) -4070 NEXT Z -4075 GOTO 2105 -5000 PRINT clear$:PRINT:INPUT "RECORD NUMBER";Z1:PRINT clear$:PRINT -5002 IF Z1<1 THEN PRINT "*** NO SUCH RECORD ***":GOTO 1620 -5004 IF Z1>Z3 THEN PRINT "*** OUT OF RANGE ***":GOTO 1620 -5005 IF Z1>=Z2 THEN PRINT "NO RECORD NUMBER";Z1:GOTO 1620 -5006 open z5$ recl 384 as 1 - read #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) - close 1 -5010 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -5015 PRINT clear$:PRINT -5020 GOSUB 20000 -5100 INPUT "IS RECORD TO BE DELETED (MUST BE YES TO DELETE)";line temp$ -5105 IF left$(temp$,1)="n" OR left$(temp$,1)="N" THEN RETURN -5110 IF ucase$(temp$)<>"YES" THEN 5100 -5115 N(2,1)=0 -5120 open z5$ recl 384 as 1 - print #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -5130 close 1 -5135 RETURN -6000 PRINT clear$:PRINT -6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A PUR ORD REG FILE" -6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN" -6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE." -6020 PRINT -6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N" -6030 PRINT "FOLLOWED BY RETURN.":PRINT -6035 INPUT line temp$ -6040 IF ucase$(temp$)="C" then initialize:goto 1500 -6045 PRINT clear$:PRINT -6050 INPUT "NUMBER OF RECORDS DESIRED";z3 -6055 PRINT -6060 n$="":for z=1 to 150:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:n(0,z)=0:next z -6062 FOR Z=1 TO 10:G(Z)=0:Q(Z)=0:NEXT Z -6065 create z5$ recl 384 as 1 -6070 FOR Z1=1 TO z3+2 - print #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -6085 NEXT Z1 -6090 close 1 -6095 PRINT clear$:PRINT -6100 PRINT "PUR ORD REG FILE CREATED AND CLEARED.":PRINT -6105 PRINT z3;"RECORDS CREATED.":PRINT -6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$ - Z2=1 - create z7$ as 1:print #1;Z2,Z3:close 1 -6115 GOTO 1500 -7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$ -7007 IF ucase$(temp$)<>"YES" THEN RETURN -7008 n$="":for z=1 to 150:n$=n$+" ":next z - for z=1 to 20:n(2,z)=0:n(0,z)=0:next z - for z=1 to 10:g(z)=0:q(z)=0:next z - open z5$ recl 384 as 1 -7010 FOR Z1=1 TO z3+2 - print #1,z1;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -7025 NEXT Z1 -7030 close 1 -7035 PRINT clear$:PRINT -7040 PRINT "PUR ORD REG FILE CLEARED!":PRINT -7045 PRINT "TO CONTINUE, TYPE RETURN." -7050 INPUT line temp$ - Z2=1 - open z7$ as 1:print #1;Z2,Z3:close 1 -7060 RETURN -8000 chain "vpjosort" -9000 PRINT clear$:PRINT -9100 lprinter -9105 open z5$ recl 384 as 1 -9110 FOR I=1 TO Z2-1 - read #1,i;N(2,1),N(2,2),N(2,3),N$,N(2,12),N(2,13), G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -9140 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z - print using fmt1$;i,n(2,1),n(2,2) - print using fmt2$;n(2,3),k$(3,4) - print using fmt3$;k$(3,5),k$(3,6) - print using fmt4$;k$(3,7),k$(3,8) - print using fmt5$;k$(3,9),k$(3,10),k$(3,11) - print using fmt6$;n(2,12),n(2,13) - print delim2$ - print fmt7$ - print using fmt8$;g(1),q(1),g(2),q(2) - print using fmt9$;g(3),q(3),g(4),q(4) - print using fmt10$;g(5),q(5),g(6),q(6) - print using fmt11$;g(7),q(7),g(8),q(8) - print using fmt12$;g(9),q(9),g(10),q(10) - print -9800 NEXT I -9995 RETURN -10000 CHAIN "master3" -15000 print clear$:print:print "CHECKING FILE LENGTH" - PRINT:PRINT "*** PLEASE WAIT ***" - open z5$ recl 384 as 1 - z3=(size(z5$)*block.size)/384 - for z2=1 to z3 - read #1,z2;n(2,1),n(2,2) - if n(2,2)=0 then 15300 - next z2 -15300 z3=int(z3)-2 - close 1 - create z7$ as 1 - print #1;z2,z3 - close 1 - GOTO 1500 -20000 print using fmt1$;z1,n(2,1),n(2,2) - print using fmt2$;n(2,3),k$(3,4) - print using fmt3$;k$(3,5),k$(3,6) - print using fmt4$;k$(3,7),k$(3,8) - print using fmt5$;k$(3,9),k$(3,10),k$(3,11) - print using fmt6$;n(2,12),n(2,13) - print delim2$ - print fmt7$ - print using fmt8$;g(1),q(1),g(2),q(2) - print using fmt9$;g(3),q(3),g(4),q(4) - print using fmt10$;g(5),q(5),g(6),q(6) - print using fmt11$;g(7),q(7),g(8),q(8) - print using fmt12$;g(9),q(9),g(10),q(10) - print -20250 RETURN -24000 open "poe" as 1 - read #1;n(2,3) - close 1 -24030 IF N(2,3)<>0 THEN 24800 - PRINT CUR$ -24040 PRINT TAB(30);left$(repeat$,n(1,3)) - PRINT UP$; -24050 PRINT K$(1,3);TAB(30); -24060 INPUT N(2,3):PRINT chr$(13) - PRINT CLEAR$ -24070 GOTO 24995 -24800 IF Z=3 THEN 24995 -24900 A=N(2,3)+1 -24910 open "poe" as 1 - print #1;a - close 1 -24995 RETURN -25000 INPUT "ENTER PUR ORD ITEM # ";Z -25010 PRINT TAB(30);left$(repeat$,g(0)) - PRINT UP$; -25020 PRINT "FINISHED GOODS REC # ";TAB(30); -25030 INPUT G(Z):PRINT chr$(13) -25040 PRINT TAB(30);left$(repeat$,q(0)) - PRINT UP$; -25050 PRINT "QUANTITY ";TAB(30); -25060 INPUT Q(Z):PRINT chr$(13) -25070 temp$="14" -25995 RETURN diff --git a/bwbtest/C77B/VPLABELS.BAS b/bwbtest/C77B/VPLABELS.BAS deleted file mode 100644 index 0af35b8..0000000 --- a/bwbtest/C77B/VPLABELS.BAS +++ /dev/null @@ -1,89 +0,0 @@ -1 rem This is the mailing label printing program. - -%INCLUDE ALL.BAS -500 RESTORE -1000 DIM K$(14),N(2,14) -1020 DIM A$(5),B$(5),C$(5),D$(8),E$(5),F$(5) - for z=3 to 8:read n(0,z):next z - data 24,24,24,17,2,5 - print clear$:print -1050 PRINT -1060 PRINT "THIS IS THE MAILING LABEL PRINTING ROUTINE." -1070 PRINT -1080 PRINT "IF YOU ARE NOT FAMILIAR WITH ITS OPERATION, PLEASE" -1090 PRINT "READ THE INSTRUCTIONS BEFORE PROCEEDING." -1100 PRINT:PRINT - z5$="vp" -1110 INPUT"HOW MANY LABELS ACROSS THE PAGE (1 TO 5)";M -1120 PRINT:PRINT -1125 PRINT "INDICATE THE DISTANCE BETWEEN THE LEFT EDGES OF" -1130 PRINT "ANY TWO LABELS IN DECIMAL INCHES (I.E. 2.6)." -1135 INPUT K -1140 K=(K*10)+1 -1142 IF M=1 THEN 1146 -1145 IF K<25 THEN PRINT "*** LABEL TO SHORT ***":GOTO 1125 -1146 IF K>110 THEN PRINT "*** LABEL TO LONG ***":GOTO 1125 -1150 PRINT:PRINT -1160 PRINT "INDICATE THE NUMBER OF SPACES BETWEEN LABELS (I.E. 2)." -1165 INPUT L -2000 IF M<1 OR M>5 THEN 1110 - if end #1 then 1100 -2030 open z5$ recl 384 as 1 -2040 Z3=(size(z5$)*block.size)/150:Z2=0 -2050 FOR Z2=1 TO Z3 -2060 read #1,z2;n(2,1),n(2,2),n$ -2070 IF N(2,2)=0 THEN 2100 -2090 NEXT Z2 -2100 Z2=Z2-1 -2105 close 1 -2110 Z3=Z3-2 - print clear$:print:print -2150 PRINT "LABELS TO PRINT ";Z2 -2160 PRINT -3000 NA=INT(Z2/M)+1 -3004 N(0,9)=14:N(0,10)=11:N(0,11)=8:N(0,12)=8:N(0,13)=1 -3010 Z1=0 -3020 open z5$ recl 150 as 1 -3025 lprinter -3030 FOR J=1 TO NA -3035 Z5=0 -3040 FOR I=1 TO M - read #1,z1+1;n(2,1),n(2,2),n$ -3055 Z9=1:FOR Z=3 TO 13:K$(Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -3060 A$(I)=K$(3) -3070 B$(I)=K$(4) -3080 C$(I)=K$(5) -3090 D$(I)=LEFT$(K$(6),15) -4000 E$(I)=K$(7) -4010 F$(I)=K$(8) -4020 Z1=Z1+1 -4025 Z5=Z5+1 -4027 IF Z1=Z2 THEN 4040 -4030 NEXT I -4040 FOR I=1 TO Z5-1 -4045 IF Z5=1 THEN print TAB(K);:GOTO 4070 -4050 print A$(I);TAB((I*K)-I+1); -4060 NEXT I -4070 print A$(Z5) -4080 FOR I=1 TO Z5-1 -4085 IF Z5=1 THEN print TAB(K);:GOTO 5010 -4090 print B$(I);TAB((I*K)-I+1); -5000 NEXT I -5010 print B$(Z5) -5020 FOR I=1 TO Z5-1 -5025 IF Z5=1 THEN print TAB(K);:GOTO 5050 -5030 print C$(I);TAB((I*K)-I+1); -5040 NEXT I -5050 print C$(Z5) -5060 FOR I=1 TO Z5-1 -5065 IF Z5=1 THEN print TAB(K);:GOTO 6000 -5070 print D$(I);",";E$(I);" "; -5080 print F$(I);TAB((I*K)-I+1); -5090 NEXT I -6000 print D$(Z5);",";E$(Z5);" ";F$(Z5) -6010 FOR Z=1 TO L:print:NEXT Z -6030 NEXT J -6040 close 1 -6045 console -6050 PRINT clear$ -6060 chain "master6" diff --git a/bwbtest/C77B/VPPPPO.BAS b/bwbtest/C77B/VPPPPO.BAS deleted file mode 100644 index 09f69b1..0000000 --- a/bwbtest/C77B/VPPPPO.BAS +++ /dev/null @@ -1,168 +0,0 @@ -1 rem This is the Preprinted Purchase Order Printing Program - -%INCLUDE ALL.BAS -500 RESTORE - dim n(5,20),k$(5,20),h(9),s(9),t(4,9),g(10),q(10) - for z=4 to 11:read n(0,z):next z - for z=3 to 17:read n(1,z):next z - for z=3 to 9:read n(2,z):next z - data 14,10,8,8,10,10,1,4 - data 24,24,24,17,2,5,14,24,24,24,17,2,5,14,8 - data 7,12,24,24,8,8,10 - z5$="po":z6$="vp":z7$="fg" - for z=1 to 80:del$=del$+"*":del1$=del1$+"=":del2$=del2$+"-":next z -fmt3$ =" Pur Ord No. ####" -fmt4$ =" Pur Ord Date Buyer " -fmt5$ =" /....../ /........./" -fmt6$ =" /...5...10...15...20.../ /...5...10...15...20.../" -fmt7$ =" /....................../ /....................../" -fmt8$ =" /....................../ /....................../" -fmt9$ =" /.............../, // /.../ /.............../, // /.../" -fmt11$=" /........../ /....../ /........../ /......./ /.........../" -fmt13$=" ###### /...5...10...15...2/ $$#,###.## " -fmt13$=fmt13$+"$$##,###.##" - u$="$$##,###.##" - print clear$:print -1080 Q$="I N V O I C E R E G I S T E R" -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT PURCHASE ORDERS -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING PURCHASE ORDERS" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0:T5=0:T6=0:P0=1 -6035 X=1 -6040 PRINT:PRINT "INSTALL PURCHASE ORDER REGISTER DISK IN DRIVE A" -6045 PRINT:PRINT "INSTALL A VENDOR DISK IN DRIVE B":PRINT -6046 PRINT chr$(07) -6050 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -6100 p9=0 -6200 open z5$ recl 384 as 1 -6205 z3=(size(z5$)*block.size)/384 -6210 FOR Z2=1 TO Z3 - read #1,z2;z5,z6,n$ -6220 IF Z6=0 THEN 6230 -6225 NEXT Z2 -6230 close 1 -6235 Z2=Z2-1 -6240 PRINT clear$:PRINT -6245 PRINT:PRINT "PURCHASE ORDERS TO BE PRINTED ";Z2 -6246 PRINT chr$(07) -6250 PRINT:INPUT "TO PRINT PURCHASE ORDERS, TYPE RETURN.";line temp$ - lprinter -6300 open z5$ recl 384 as 1 -6310 open z6$ recl 384 as 2 -6320 FOR I=1 TO Z2 -6350 GOSUB 15000 -6380 NEXT I -6410 GOTO 20000 -15000 IF I>Z2 THEN 15595 - read #1,i;N(3,1),N(3,2),N(3,3),N$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15060 Z9=1:FOR Z=4 TO 11:K$(3,Z)=MID$(N$,Z9,N(0,Z)):Z9=Z9+N(0,Z):NEXT Z -15065 if mid$(k$(3,11),2,1)="I" then 15595 -15070 z$="":z$=left$(k$(3,11),1)+"I"+right$(k$(3,11),2):k$(3,11)=z$ -15105 read #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15115 close 2 -15120 Z9=1:FOR Z=3 TO 17:K$(4,Z)=MID$(O$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -15200 print - print - print using fmt3$;n(3,3) - print - print using fmt5$;d$(1),k$(3,4) - print using fmt6$;k$(4,3),k$(4,10) - print using fmt7$;k$(4,4),k$(4,11) - print using fmt8$;k$(4,5),k$(4,12) - print using fmt9$;k$(4,6),k$(4,7),k$(4,8),k$(4,13),k$(4,14),k$(4,15) -15240 FOR Z=1 TO 2:print:NEXT Z:print del1$ -15270 IF VAL(K$(3,9))=1 THEN terms$= "PREPAID" -15275 IF VAL(K$(3,9))=2 THEN terms$= "COD" -15280 IF VAL(K$(3,9))=3 THEN terms$= "1% 10, NET 30" -15285 Z$=K$(3,9) -15286 IF VAL(Z$)<>1 AND VAL(Z$)<>2 AND VAL(Z$)<>3 THEN terms$= K$(3,9) - print - print using fmt11$;k$(3,5),k$(3,6),k$(3,7),k$(3,8),terms$ -15290 print - print -15310 print -15315 print - console -15350 PRINT clear$:PRINT -15352 PRINT "INSTALL THE APPROPRIATE FINISHED GOODS DISK IN DRIVE B" -15353 PRINT chr$(07) -15354 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ - lprinter - initialize - open z7$ recl 256 as 3 -15358 FOR J=1 TO 10 -15360 IF G(J)=0 THEN 15500 -15365 read #3,g(j);Z,Z,F$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -15380 Z9=1:FOR Z=3 TO 9:K$(5,Z)=MID$(F$,Z9,N(2,Z)):Z9=Z9+N(2,Z):NEXT Z - print using fmt13$;q(j),k$(5,5),f1,f1*q(j) - F4=F4+q(j) - print #3,g(j);Z,Z,F$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -15395 D3=D3+(Q(J)*f1) -15400 IF ucase$(k$(3,10))<>"T" AND ucase$(k$(3,10))<>"Y" then 15410 -15405 D5=D5+(D3*.06) -15410 IF VAL(K$(3,9))=1 THEN S1=S1+D3:GOTO 15500 -15415 S2=S2+D3 -15500 NEXT J -15505 T4=T4+D4:T5=T5+D5 -15510 print TAB(70);"-----------" -15512 print:print TAB(58);"TOTAL";TAB(70);:print using u$;d3 -15514 print:print TAB(58);"SALES TAX";TAB(70);:print using u$;d5 -15516 print:print TAB(58);"SHIPPING";TAB(70);:print using u$;d4 -15518 print TAB(70);"===========" -15520 print TAB(70);:print using u$;d3+d4+d5 -15540 N$="":FOR Z=4 TO 11:N$=N$+K$(3,Z):NEXT Z -15545 print #1,i;N(3,1),N(3,2),N(3,3),n$,A1,D4, G(1),Q(1),G(2),Q(2),G(3),Q(3),G(4),Q(4),G(5),Q(5), G(6),Q(6),G(7),Q(7),G(8),Q(8),G(9),Q(9),G(10),Q(10) -15550 IF VAL(K$(3,9))=1 THEN K$(4,17)=D$(1):C1=D3+D4+D5:C2=C2+D3+D4+D5 - if val(k$(3,9))=1 then 15560 -15555 C3=C3+D3+D4+D5 -15560 D3=0:D4=0:D5=0 -15565 O$="":FOR Z=3 TO 17:O$=O$+K$(4,Z):NEXT Z -15570 close 3 - console -15575 PRINT clear$:PRINT:PRINT "INSTALL VENDOR DISK IN DRIVE B" -15576 PRINT chr$(07) -15580 PRINT:INPUT "TYPE RETURN TO CONTINUE ";line temp$ -: lprinter -: print chr$(12) -: initialize -15582 open z6$ recl 384 as 2 - print #2,a1;n(4,1),n(4,2),o$,c1,c2,c3,c4,c5,c6 -15595 RETURN -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master3 -20005 close 1 -20010 close 2 - print chr$(12):for z=1 to 100:next z:print chr$(12) -20015 console -20020 PRINT clear$:PRINT -20025 PRINT "INSTALL PROGRAM DISK IN DRIVE A":PRINT -20026 PRINT chr$(07) -20030 INPUT "TYPE RETURN TO CONTINUE ";line temp$ - initialize -20050 CHAIN "master3" diff --git a/bwbtest/C77B/VPRPT.BAS b/bwbtest/C77B/VPRPT.BAS deleted file mode 100644 index 7b4d1b8..0000000 --- a/bwbtest/C77B/VPRPT.BAS +++ /dev/null @@ -1,123 +0,0 @@ -1 rem This is the Aged Accounts Payable Statement Printer - -%INCLUDE ALL.BAS -500 RESTORE - dim n(2,20),k$(3,20),h(9),s(9),t(4,9) -1009 PRINT clear$:PRINT -1020 N(1,3)=24:N(1,4)=24:N(1,5)=24:N(1,6)=17:N(1,7)=2:N(1,8)=5 -1025 N(1,9)=14:N(1,10)=24:N(1,11)=24:N(1,12)=24:N(1,13)=17:N(1,14)=2 -1030 N(1,15)=5:N(1,16)=14:N(1,17)=8 -1080 Q$="A G E D A C C O U N T S P A Y A B L E R E P O R T" -1090 U$="#,###,###.##":u1$="##########":u2$="###,###.##" -1100 REM GET DATES ROUTINE -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE - for z=1 to t%(1):del$=del$+"*":del1$=del1$+"=":del2$=del2$+"-":next z -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 Z=24:Z9=1 -3090 FOR Z0=1 TO 4 -3100 K$(0,Z0)=MID$(N$,Z9,Z) -3110 Z9=Z9+Z -3120 NEXT Z0 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=1 TO 4 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT AGED ACCOUNTS PAYABLE REPORT -6005 PRINT clear$:PRINT -6010 PRINT "PRINTING AGED ACCOUNTS PAYABLE REPORT" -6015 FOR Z=0 TO 9 -6020 H(Z)=0:S(Z)=0:T(0,Z)=0:T(1,Z)=0:T(2,Z)=0:T(3,Z)=0:A(Z)=0 -6025 NEXT Z -6030 T1=0:T2=0:T3=0:T4=0:P0=1 -6035 X=1 -6100 P9=0 -6200 open "vp" recl 384 as 1 -6205 z3=(size("vp")*block.size)/384 -6210 FOR Z2=1 TO Z3 -6215 read #1,z2;n(2,1),n(2,2),n$ -6220 IF N(2,2)=0 THEN 6230 -6225 NEXT Z2 -6230 close 1 -6235 Z2=Z2-1 -6240 PRINT:PRINT "RECORDS TO BE PRINTED ";Z2 -6245 PRINT:INPUT "TO DO PRINT REPORT, TYPE RETURN.";line temp$ - lprinter -6300 open "vp" recl 384 as 1 -6310 J=1 -6320 FOR K=1 TO (Z2/10)+1 -6330 GOSUB 9600 -6340 FOR I=J TO J+9 -6350 GOSUB 15000 -6360 NEXT I -6370 GOSUB 9700:J=J+10 -6380 NEXT K -6390 GOSUB 15600 -6400 GOSUB 9800 -6410 GOTO 20000 -9600 REM PRINT PAGE HEADING SUBROUTINE -9610 print del$:P9=P9+1 -9615 print:P9=P9+1 -9616 print TAB((T%(1)-LEN(Q$))/2);Q$:P9=P9+1 -9617 print:P9=P9+1 -9620 FOR Z=2 TO 4 -9625 print TAB((T%(1)-LEN(K$(0,Z)))/2);K$(0,Z):P9=P9+1 -9630 NEXT Z -9635 print:P9=P9+1 -9640 print TAB(T%(10));"DATE ";D$(X);TAB(T%(11));"PAGE #";P0 -9642 P9=P9+1 -9645 print del1$:P9=P9+1 -9650 print " REC# - NAME";TAB(36);"DATE OF LAST PAYMENT - AMOUNT"; -9655 print TAB(67);"YTD PAYMENTS" -9660 print "ACCT# - PHONE#";TAB(29);"CUR-CHGS";" 30-60/CHGS"; -9665 print " 60-90/CHGS 90+/CHGS" -9670 print del1$:P9=P9+1 -9695 RETURN -9700 REM REPORT CONTINUED SUBROUTINE -9705 print del1$ -9710 print "Report continues on next page" -9715 print del1$ -9720 print chr$(12):P9=0 -9725 P0=P0+1 -9740 RETURN -9800 REM End of report ROUTINE -9810 print del1$ -9820 print "End of report" -9830 print del$ -9840 print chr$(12) -9845 FOR Z=1 TO 100:NEXT Z:print chr$(12) -9850 RETURN -15000 IF I>Z2 THEN 15595 -15005 read #1,i;n(2,1),n(2,2),n$,c1,c2,c3,c4,c5,c6 -15020 Z9=1:FOR Z=3 TO 17:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -15030 print I;" - ";K$(3,4);TAB(43);K$(3,17);TAB(53); - print using u$;c1;tab(68);c2 -15050 print using u1$;n(2,2);:print " ";k$(3,9);:print using u2$;c3; - print using u$;tab(38);c4;tab(53);c5;tab(68);c6 -15070 IF C3+C4+C5+C6>=0 THEN 15090 -15080 print TAB(57);"*** CREDIT BALANCE ***" -15090 T1=T1+C3:T2=T2+C4:T3=T3+C5:T4=T4+C6 -15550 print:print -15595 RETURN -15600 print :print -15700 print del1$ -15710 T5=T4+T3+T2+T1 -15720 print "TOTALS:";TAB(27);:print using u2$;t1;tab(38); - print using u$;t2;tab(53);t3;tab(68);t4 -15730 print "REPORT TOTAL:";TAB(68);:print using u$;t5 -15740 print del1$ -15795 RETURN -20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master3 -20005 close 1 -20040 console -20050 CHAIN "master3" diff --git a/bwbtest/C77B/VPSORT.BAS b/bwbtest/C77B/VPSORT.BAS deleted file mode 100644 index 3cb83aa..0000000 --- a/bwbtest/C77B/VPSORT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 rem This is the Vendor Information Entry Sort Program - - - rem This program creates a backup file and copies all undeleted - rem records to that file. Simultaneously it creates a RAM resident - rem list of either tag numbers, account numbers, or reference numbers - rem - S(xxxx) - and Relative Record KEYS - T(xxxx). - - rem The tag, account, or reference numbers are then sorted via a Shell - rem Metzler algorithm and the Relative Record KEYS carried along. - - rem When the sort is complete, the Relative Record KEYS are used to - rem restore the backed up records to the original file in sorted order. - - -%INCLUDE ALL.BAS - -500 dim s(z2),t(z2),n(2,20) - - z5$="vp":z6$="vpback":z7$="vpsize":RL=384 - -8000 INPUT "SORT ON TAG OR REFERENCE # (T OR A)";LINE SORT.KEY$ - IF SORT.KEY$="t" OR SORT.KEY$="T" THEN A9=1:GOTO 8020 - IF SORT.KEY$="a" OR SORT.KEY$="A" THEN A9=2:GOTO 8020 - GOTO 8000 - -8020 PRINT clear$:PRINT - PRINT "*** BACKING UP FILE ***" - PRINT:PRINT "*** NOTE - BACKUP IGNORES DELETED RECORDS ***" - - open z5$ recl RL as 1 - create z6$ recl RL as 2 - - - Z1=0 - - FOR Z=1 TO Z2-1 - read #1,z;N(2,1),N(2,2),N$,N(2,3),N(2,4),N(2,5), N(2,6),N(2,7),N(2,8) - IF N(2,1)=0 THEN 8065 - IF N(2,2)=0 THEN 8070 - Z1=Z1+1 - print #2,z1;N(2,1),N(2,2),N$,N(2,3),N(2,4),N(2,5), N(2,6),N(2,7),N(2,8) - T(Z1)=Z1:S(Z1)=N(2,A9) -8065 NEXT Z -8070 close 1 - close 2 - - PRINT clear$:PRINT - PRINT "*** SORTING ON"; - IF A9=1 THEN PRINT " TAG ***" - IF A9=2 THEN PRINT " REFERENCE NUMBER ***":PRINT - PRINT "THIS SORT TAKES FROM 30 SECONDS FOR 100 RECORDS" - PRINT "TO 10 MINUTES FOR 1000 RECORDS":PRINT - PRINT "*** PLEASE WAIT ***":PRINT - - - rem This is the actual sort routine - - N9=Z1 - M9=N9 -8515 M9=INT(M9/2) - IF M9=0 THEN 8580 - J9=1:K9=N9-M9 - -8530 I9=J9 -8535 L9=I9+M9 - IF S(I9)K9 THEN 8515 - GOTO 8530 - - -8580 PRINT clear$:PRINT - PRINT "SORT COMPLETED - YOU MAY STILL ABORT":PRINT - PRINT "IF YOU WISH TO ABORT - JUST TYPE ABORT":PRINT - PRINT "OTHERWISE TYPE A CARRIAGE RETURN TO CONTINUE !" - PRINT - INPUT LINE TEMP$ - IF TEMP$="abort" OR TEMP$="ABORT" THEN 10000 - - if T(1)=0 then 10000 - - open z5$ recl RL as 1 - open z6$ recl RL as 2 - open z7$ as 3:read #3;z2,z3:close 3 - - - Z2=Z1+1 - - FOR Z=1 TO Z2-1 - READ #2,T(Z);N(2,1),N(2,2),N$,N(2,3),N(2,4),N(2,5), N(2,6),N(2,7),N(2,8) - PRINT #1,Z;N(2,1),N(2,2),N$,N(2,3),N(2,4),N(2,5), N(2,6),N(2,7),N(2,8) - NEXT Z - - N(2,1)=0:N(2,2)=0:N$="" - - FOR Z=Z2 TO Z3+2 - print #1,z;N(2,1),N(2,2),N$,N(2,3),N(2,4),N(2,5), N(2,6),N(2,7),N(2,8) - NEXT Z - close 1 - delete 2 - open z7$ as 3:print #3;z2,z3:close 3 - -chain "vpentry" - - -10000 open z6$ recl RL as 1 - delete 1 - chain "vpentry" diff --git a/bwbtest/C77B/W2PRINT.BAS b/bwbtest/C77B/W2PRINT.BAS deleted file mode 100644 index 5b9cc44..0000000 --- a/bwbtest/C77B/W2PRINT.BAS +++ /dev/null @@ -1,121 +0,0 @@ -1 rem This is the Federal W2 Printer - -%INCLUDE ALL.BAS -500 dim n(2,20),k$(3,20),h(9),s(9),t(4,9) - print clear$:print - RESTORE -1055 T$="#,###.##" -1060 U$="##,###.##" -1065 V$="###,###.##" -1075 N(1,3)=24:N(1,4)=24:N(1,5)=24:N(1,6)=17:N(1,7)=2:N(1,8)=5 -1080 N(1,9)=14:N(1,10)=11:N(1,11)=8:N(1,12)=8:N(1,13)=1:N(1,14)=1:N(1,15)=1 -1120 Z9=1 -1145 Z9=0 -1200 REM READ TAB VALUES ROUTINE -1400 REM THIS PART GETS CUTOFFS FOR FICA,SDI,FUTA AND SUTA - open "epc" as 1 - read #1;c1,c2,c3,c4,c5,c6,c7,c8 - close 1 -1500 PRINT clear$:PRINT -1510 PRINT "IS PENSION PLAN COVERAGE PROVIDED YOUR EMPLOYEES?":PRINT -1520 INPUT K$(0,20) -1530 PRINT clear$:PRINT -1540 PRINT "DID YOU FAIL TO COLLECT FICA TAX ON EMPLOYEES TIPS, PROVIDE" -1550 PRINT "MORE THAN $50,000 GROUP-TERM LIFE INSURANCE, OR HAVE ANY" -1560 PRINT "STATUTORY EMPLOYEES WHOSE EARNINGS ARE SUBJECT TO FICA BUT" -1570 PRINT "NOT SUBJECT TO FEDERAL INCOME TAX (YES OR NO TO ANY ONE," -1580 PRINT "TWO, OR ALL THREE)?" -1590 PRINT:INPUT line temp$ - if left$(temp$,1)="y" or left$(temp$,1)="Y" then Y8=1 -1600 PRINT clear$:PRINT -1610 PRINT "DID ANY EMPLOYEES HAVE TIPS THAT MUST BE INCLUDED IN BOX 18" -1620 PRINT:INPUT line temp$ - if left$(temp$,1)="y" or left$(temp$,1)="Y" then Y9=1 -1630 PRINT clear$:PRINT -1640 PRINT "ENTER STATE NAME FOR BOX 22.":PRINT -1650 INPUT K$(0,19) -3000 REM READ NAME FILE SUBROUTINE -3005 a5=T%(12) -3080 N(1,10)=20:N(1,11)=20 -3085 Z9=1:FOR Z=3 TO 11:K$(0,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -3090 N(1,10)=11:N(1,11)=8 -3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS - l8=1 -3130 FOR I=3 TO 11 - l9=len(k$(0,i)) -3140 for z=l9 to l8 step -1 -3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170 -3160 NEXT Z -3170 Z$="" -3180 FOR Z0=1 TO Z -3190 Z$=Z$+MID$(K$(0,I),Z0,1) -3200 NEXT Z0 -3210 K$(0,I)="":K$(0,I)=Z$ -3220 NEXT I -6000 REM PRINT W2 FORMS -6005 PRINT clear$:PRINT:PRINT "PRINTING W2 FORMS":P0=1 -6010 lprinter -6015 open "ep" recl 512 as 1 -6020 z3=(size("ep")*block.size)/512 -6025 FOR Z2=1 TO Z3 -6030 read #1,z2;N(2,1),N(2,2),N$,N,R,H1,H2,H3 -6035 IF N(2,2)=0 THEN 6045 -6040 NEXT Z2 -6045 close 1 -6050 Z2=Z2-1 -6090 P1=1:P2=41 -6095 open "ep" recl 512 as 1 -6200 FOR Z1=P1 TO P2 -9000 REM GET RECORD AND PRINT -9010 read #1,z1;N(2,1),N(2,2),N$,N,R,H1,H2,H3, E0,E1,E2,F1,F2,F3,E3,E4,E5,E6,E7,E8,S1,S2,S3,M1,M2,M3 -9020 IF N(2,2)=0 THEN 9500 -9095 Z9=1:FOR Z=3 TO 15:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z -9100 N$="" -9102 IF E2>C1 THEN Z5=C1:GOTO 9110 -9104 Z5=E2 -9110 T1=T1+E5:T2=T2+E2:T3=T3+F3:T4=T4+Z5:T5=T5+Z6 -9120 PRINT clear$:PRINT -9130 IF Y8=1 THEN INPUT "ENTER BOX 17 INFORMATION ";Y6:PRINT -9140 IF Y9=1 THEN INPUT "ENTER BOX 18 INFORMATION ";Z6:PRINT -9200 FOR Z=1 TO 3:print:NEXT Z -9210 print TAB(10);N(2,1);TAB(34);K$(0,11) -9220 print:print -9230 print TAB(11);K$(0,4):print TAB(11);K$(0,5) -9240 print TAB(11);K$(0,6);", ";K$(0,7);" ";K$(0,8);TAB(44);K$(0,10) -9250 print:print -9260 print TAB(11);K$(3,10);TAB(27);:print using u$;e5;TAB(40); - print using v$;e2;tab(55);:print using t$;f3;tab(68);:print using u$;z5 -9275 print -9280 print TAB(10);K$(3,3);TAB(48);K$(0,20);TAB(55); - print using t$;y6;tab(68);:print using u$;z6 -9300 print:print TAB(11);K$(3,5);TAB(41); - print using u$;e8;tab(53);:print using v$;e2 -9310 print TAB(67);K$(0,19) -9320 print TAB(11);K$(3,6);", ";K$(3,7);" ";K$(3,8) -9325 print:print -9330 print TAB(68);:print using t$;s3 -9350 P0=P0+1 -9355 IF P0=4 THEN P0=1:INPUT "TYPE RETURN TO CONTINUE ";line temp$ -9400 NEXT Z1 -9410 GOSUB 10000 -9500 IF Z1>41 THEN GOSUB 10000 -9910 close 1 -9915 console -9920 CHAIN "master5" -10000 IF Z1+1/3=INT(Z1+1/3) THEN 10500 -10010 A=Z1 -10020 FOR Z=1 TO Z2 -10030 A=A-3 -10040 IF A<1 THEN A=A+3:GOTO 10060 -10050 NEXT Z -10060 FOR Z=1 TO 8:print:NEXT Z -10070 print TAB(54);"X" -10080 IF A>1 THEN FOR Z=1 TO 21:print:NEXT Z:print TAB(54);"X" -10090 IF A>1 THEN FOR Z=1 TO 12:print:NEXT Z -10500 FOR Z=1 TO 6:print:NEXT Z -10510 print TAB(45);"X" -10520 FOR Z=1 TO 6:print:NEXT Z -10530 print using v$;tab(25);t1;tab(38);t2;tab(53);t3;tab(65);t4 - print:print using v$;tab(65);t5 -10560 T1=0:T2=0:T3=0:T4=0:T5=0 -10570 RETURN diff --git a/bwbtest/C77B/YMAINT.BAS b/bwbtest/C77B/YMAINT.BAS deleted file mode 100644 index 7a2ed01..0000000 --- a/bwbtest/C77B/YMAINT.BAS +++ /dev/null @@ -1,171 +0,0 @@ -1 rem This is the Yearly File Maintenance Program - -%INCLUDE ALL.BAS -500 dim n(2,20) - RESTORE -1500 PRINT clear$:PRINT -1510 PRINT "THIS IS THE YEARLY FILE MAINTENANCE PROGRAM....." -1520 PRINT:PRINT"IT DOES THE FOLLOWING:" -1530 PRINT:PRINT"POSTS ALL CURRENT GENERAL LEDGER AMOUNTS TO PREVIOUS" -1540 PRINT:PRINT"POSTS ALL CURRENT GENERAL LEDGER AMOUNTS TO ZERO" -1550 PRINT:PRINT"UPDATES CUSTOMER AND VENDOR AGING DATA" -1560 PRINT:PRINT"ZEROS QUARTER AND YEAR TO DATE PAYROLL AMOUNTS" -1570 PRINT:PRINT"ZEROS MONTH, QUARTER, AND YEAR TO DATE 'QUANTITY" -1580 PRINT:PRINT"ISSUED' FIGURES." -1590 PRINT:INPUT"TO CONTINUE TYPE CARRIAGE RETURN ";line temp$ -2000 PRINT clear$:PRINT -2010 PRINT "INSTALL GENERAL LEDGER DISK IN DRIVE B." -2020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -2040 PRINT "CHECKING FILE LENGTH" -2050 PRINT:PRINT "*** PLEASE WAIT ***" -2060 open "gl" recl 138 as 1 - z3=(size("gl")*block.size)/138 -2080 FOR Z2=1 TO Z3 -2090 read #1,z2;N(2,1),N(2,2),N$ -2100 IF N(2,2)=0 THEN 2120 -2110 NEXT Z2 -2120 Z3=Z3-1 -2130 close 1 -2140 Z2=Z2-1 -2200 PRINT clear$:PRINT -2210 PRINT "GENERAL LEDGER ACCOUNTS = ";Z2 -2220 PRINT:PRINT "*** POSTING ***" -2500 open "gl" recl 138 as 1 -2505 FOR Z=1 TO Z2 -2510 N$="" -2520 read #1,z;N(2,1),N(2,2),N$,G1,G2,G3,G4,G5,G6,G7 -2530 G6=G3:G5=G2:G4=G1:G3=0:G2=0:G1=0 -2540 print #1,z;N(2,1),N(2,2),N$,G1,G2,G3,G4,G5,G6,G7 -2550 NEXT Z -2560 close 1 -3000 PRINT clear$:PRINT -3010 PRINT "INSTALL CUSTOMER RECEIVABLES DISK IN DRIVE B." -3020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -3040 PRINT "CHECKING FILE LENGTH" -3050 PRINT:PRINT "*** PLEASE WAIT ***" -3060 open "cr" recl 384 as 1 - z3=(size("cr")*block.size)/384 -3080 FOR Z2=1 TO Z3 -3090 read #1,z2;N(2,1),N(2,2),N$ -3100 IF N(2,2)=0 THEN 3120 -3110 NEXT Z2 -3120 Z3=Z3-1 -3130 close 1 -3140 Z2=Z2-1 -3200 PRINT clear$:PRINT -3210 PRINT "CUSTOMER RECEIVABLES ACCOUNTS = ";Z2 -3220 PRINT:PRINT "*** POSTING ***" -3500 open "cr" recl 384 as 1 -3510 FOR Z=1 TO Z2 -3520 read #1,z2;n(2,1),n(2,2),n$,c1,c2,c3,c4,c5,c6 -3530 C6=C6+C5:C5=C4:C4=C3:C3=0 -3540 print #1,z2;n(2,1),n(2,2),n$,c1,c2,c3,c4,c5,c6 -3550 NEXT Z -3560 close 1 -4000 PRINT clear$:PRINT -4010 PRINT "INSTALL VENDOR PAYABLES DISK IN DRIVE B." -4020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -4040 PRINT "CHECKING FILE LENGTH" -4050 PRINT:PRINT "*** PLEASE WAIT ***" -4060 open "vp" recl 384 as 1 - z3=(size("vp")*block.size)/384 -4080 FOR Z2=1 TO Z3 -4090 read #1,z2;N(2,1),N(2,2),N$ -4100 IF N(2,2)=0 THEN 4120 -4110 NEXT Z2 -4120 Z3=Z3-1 -4130 close 1 -4140 Z2=Z2-1 -4200 PRINT clear$:PRINT -4210 PRINT "VENDOR PAYABLES ACCOUNTS = ";Z2 -4220 PRINT:PRINT "*** POSTING ***" -4500 open "vp" recl 384 as 1 -4510 FOR Z=1 TO Z2 -4520 read #1,z;n(2,1),n(2,2),n$,v1,v2,v3,v4,v5,v6 -4530 V6=V6+V5:V5=V4:V4=V3:V3=0 -4540 print #1,z;n(2,1),n(2,2),n$,v1,v2,v3,v4,v5,v6 -4550 NEXT Z -4560 close 1 -5000 PRINT clear$:PRINT -5010 PRINT "INSTALL EMPLOYEE PAYROLL DISK IN DRIVE B." -5020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -5040 PRINT "CHECKING FILE LENGTH" -5050 PRINT:PRINT "*** PLEASE WAIT ***" -5060 open "ep" recl 512 as 1 - z3=(size("ep")*block.size)/512 -5080 FOR Z2=1 TO Z3 -5090 read #1,z2;N(2,1),N(2,2),N$ -5100 IF N(2,2)=0 THEN 5120 -5110 NEXT Z2 -5120 Z3=Z3-1 -5130 close 1 -5140 Z2=Z2-1 -5200 PRINT clear$:PRINT -5210 PRINT "EMPLOYEE PAYROLL ACCOUNTS = ";Z2 -5220 PRINT:PRINT "*** POSTING ***" -5500 open "ep" recl 512 as 1 -5505 FOR Z=1 TO Z2 -5510 N$="" -5515 read #1,z;N(2,1),N(2,2),N$,N,R,H1,H2,H3, E0,E1,E2,F1,F2,F3,E3,E4,E5,E6,E7,E8,S1,S2,S3,M1,M2,M3 -5525 H2=0:S2=0:M2=0:E1=0:E4=0:E7=0:F2=0 -5530 H3=0:S3=0:M3=0:E2=0:E5=0:E8=0:F3=0 -5535 print #1,z;N(2,1),N(2,2),N$,N,R,H1,H2,H3, E0,E1,E2,F1,F2,F3,E3,E4,E5,E6,E7,E8,S1,S2,S3,M1,M2,M3 -5550 NEXT Z -5560 close 1 -6000 PRINT clear$:PRINT -6010 PRINT "INSTALL FINISHED GOODS DISK IN DRIVE B." -6020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -6040 PRINT "CHECKING FILE LENGTH" -6050 PRINT:PRINT "*** PLEASE WAIT ***" -6060 open "fg" recl 256 as 1 - z3=(size("fg")*block.size)/256 -6080 FOR Z2=1 TO Z3 -6090 read #1,z2;N(2,1),N(2,2),N$ -6100 IF N(2,2)=0 THEN 6120 -6110 NEXT Z2 -6120 Z3=Z3-1 -6130 close 1 -6140 Z2=Z2-1 -6200 PRINT clear$:PRINT -6210 PRINT "FINISHED GOODS ACCOUNTS = ";Z2 -6220 PRINT:PRINT "*** POSTING ***" -6500 open "fg" recl 256 as 1 -6505 FOR Z=1 TO Z2 -6510 N$="" -6520 read #1,z;N(2,1),N(2,2),N$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -6530 F5=0:F6=0:F7=0 -6540 print #1,z;N(2,1),N(2,2),N$,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9 -6550 NEXT Z -6560 close 1 -7000 PRINT clear$:PRINT -7010 PRINT "INSTALL RAW GOODS DISK IN DRIVE B." -7020 PRINT:INPUT "TO CONTINUE TYPE CARRIAGE RETURN. ";line temp$ - initialize -7040 PRINT "CHECKING FILE LENGTH" -7050 PRINT:PRINT "*** PLEASE WAIT ***" -7060 open "rg" recl 256 as 1 - z3=(size("rg")*block.size)/256 -7080 FOR Z2=1 TO Z3 -7090 read #1,z2;N(2,1),N(2,2),N$ -7100 IF N(2,2)=0 THEN 7120 -7110 NEXT Z2 -7120 Z3=Z3-1 -7130 close 1 -7140 Z2=Z2-1 -7200 PRINT clear$:PRINT -7210 PRINT "RAW GOODS ACCOUNTS = ";Z2 -7220 PRINT:PRINT "*** POSTING ***" -7500 open "rg" recl 256 as 1 -7505 FOR Z=1 TO Z2 -7510 N$="" -7520 read #1,z;N(2,1),N(2,2),N$,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9 -7530 R5=0:R6=0:R7=0 -7540 print #1,z;N(2,1),N(2,2),N$,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9 -7550 NEXT Z -7560 close 1 -9995 CHAIN "bizmii" diff --git a/bwbtest/D71/00test.sh b/bwbtest/D71/00test.sh deleted file mode 100644 index 3ceef5b..0000000 --- a/bwbtest/D71/00test.sh +++ /dev/null @@ -1,44 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/D71 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile D71.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- - -testcase GET_1 -testcase GET_2 -testcase GET_3 - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/D71/01test.sh b/bwbtest/D71/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/D71/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/D71/99test.sh b/bwbtest/D71/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/D71/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/D71/D71.PRO b/bwbtest/D71/D71.PRO deleted file mode 100644 index 8974718..0000000 --- a/bwbtest/D71/D71.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "RSTS-11" diff --git a/bwbtest/D71/GET_1.BAS b/bwbtest/D71/GET_1.BAS deleted file mode 100644 index 83fb019..0000000 --- a/bwbtest/D71/GET_1.BAS +++ /dev/null @@ -1,13 +0,0 @@ - 100 rem Purpose: Verify OPEN - PUT - GET - CLOSE sequence - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-01-12 - 130 rem Note: OPTION VERSION RSTS-11 - 140 rem - 200 let F$ = "GET_1.DAT" - 210 let F% = 123 - 220 open F$ as file F% , recordsize 234 , clustersize 345, filesize 456, mode 567 - 230 put F% , record 16 - 240 get F% , record 16 - 250 close F% - 999 end - diff --git a/bwbtest/D71/GET_1.DAT b/bwbtest/D71/GET_1.DAT deleted file mode 100644 index 447608b..0000000 Binary files a/bwbtest/D71/GET_1.DAT and /dev/null differ diff --git a/bwbtest/D71/GET_2.BAS b/bwbtest/D71/GET_2.BAS deleted file mode 100644 index a3fc90b..0000000 --- a/bwbtest/D71/GET_2.BAS +++ /dev/null @@ -1,15 +0,0 @@ - 100 rem Purpose: Verify OPEN - PUT - GET - CLOSE sequence - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-01-12 - 130 rem Note: OPTION VERSION RSTS-11 - 140 rem - 200 let F$ = "GET_2.DAT" - 210 let F% = 123 - 220 open F$ as file F% , recordsize 234 , clustersize 345, filesize 456, mode 567 - 230 for R% = 1 to 16 - 240 put F%, record R% - 250 get F%, record R% - 260 next R% - 270 close F% - 999 end - diff --git a/bwbtest/D71/GET_2.DAT b/bwbtest/D71/GET_2.DAT deleted file mode 100644 index 3f499f1..0000000 --- a/bwbtest/D71/GET_2.DAT +++ /dev/null @@ -1 +0,0 @@ - \ No newline at end of file diff --git a/bwbtest/D71/GET_3.BAS b/bwbtest/D71/GET_3.BAS deleted file mode 100644 index 60dd344..0000000 --- a/bwbtest/D71/GET_3.BAS +++ /dev/null @@ -1,20 +0,0 @@ - 100 rem Purpose: Verify OPEN - PUT - GET - CLOSE sequence - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-01-12 - 130 rem Note: OPTION VERSION RSTS-11 - 140 rem - 200 let F$ = "GET_3.DAT" - 210 let F% = 123 - 220 open F$ as file F% , recordsize 1, clustersize 2, filesize 3, mode 4 - 225 field F%, 128 as F1$, 128 as F2$, 128 as F3$, 128 as F4$ - 226 let F1$ = "1" - 227 let F2$ = "2" - 228 let F3$ = "3" - 229 let F4$ = "4" - 230 for R% = 1 to 16 - 240 put F%, record R% - 250 get F%, record R% - 260 next R% - 270 close F% - 999 end - diff --git a/bwbtest/D71/GET_3.DAT b/bwbtest/D71/GET_3.DAT deleted file mode 100644 index 0962e9b..0000000 --- a/bwbtest/D71/GET_3.DAT +++ /dev/null @@ -1 +0,0 @@ -1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 \ No newline at end of file diff --git a/bwbtest/D71/PAD80.BAS b/bwbtest/D71/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/D71/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/D71/PAD80.INP b/bwbtest/D71/PAD80.INP deleted file mode 100644 index 5680a33..0000000 --- a/bwbtest/D71/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA GET_3.OUT, GET_3.80 diff --git a/bwbtest/D71/PAD80.PRO b/bwbtest/D71/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/D71/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/D73/00test.sh b/bwbtest/D73/00test.sh deleted file mode 100644 index 8c94df6..0000000 --- a/bwbtest/D73/00test.sh +++ /dev/null @@ -1,106 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/D71 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile D73.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- - - -# -# PTP -# - -rm PTP -testcase PTP_1 -# creates file PTP and PTP.OUT - -# -# LPT -# -testcase LPT_1 -# created file LPT.OUT and LPT_1.LPT - - -# -# PTR -# -echo PTR LINE 1 > PTR -echo PTR LINE 2 >> PTR -echo PTR LINE 3 >> PTR -testcase PTR_1 -testcase PTR_2 -testcase PTR_3 -testcase PTR_4 -testcase PTR_5 - - - -# -# TTY (tested above) -# -# tested in LPT_1 -# tested in PTP_1 -testcase TTY_1 - - -# -# TTY IN -# -testcase TTY_IN_1 - -# -# TTY OUT -# -# tested in LPT_1 -# tested in PTP_1 - -echo A > PUT_GET_1.PTR -testcase PUT_GET_1 - - - - - - - - - - - - - - - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/D73/01test.sh b/bwbtest/D73/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/D73/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/D73/99test.sh b/bwbtest/D73/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/D73/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/D73/D73.PRO b/bwbtest/D73/D73.PRO deleted file mode 100644 index 18b0eac..0000000 --- a/bwbtest/D73/D73.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "PDP-8" diff --git a/bwbtest/D73/LPT_1.BAS b/bwbtest/D73/LPT_1.BAS deleted file mode 100644 index a4578c4..0000000 --- a/bwbtest/D73/LPT_1.BAS +++ /dev/null @@ -1,24 +0,0 @@ - 100 REM PURPOSE: VERIFY 'LPT' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-22 - 130 REM NOTE: OPTION VERSION "PDP-8" - 140 REM - 200 REM ---------------------------------- - 205 REM verified by PTR_3.BAS - 210 LPT - 220 PRINT "LPT LINE 1" - 230 PRINT "LPT LINE 2" - 240 PRINT "LPT LINE 3" - 300 REM ---------------------------------- - 310 TTY OUT - 320 PRINT "TTY OUT LINE 1" - 400 REM ---------------------------------- - 405 REM verified by PTR_4.BAS - 410 PTP "LPT.OUT" - 420 PRINT "LPT.OUT LINE 1" - 430 PRINT "LPT.OUT LINE 2" - 440 PRINT "LPT.OUT LINE 3" - 500 REM ---------------------------------- - 510 TTY - 520 PRINT "TTY LINE 1" - 999 END diff --git a/bwbtest/D73/LPT_1.run b/bwbtest/D73/LPT_1.run deleted file mode 100644 index 9be3a9a..0000000 --- a/bwbtest/D73/LPT_1.run +++ /dev/null @@ -1,2 +0,0 @@ -TTY OUT LINE 1 -TTY LINE 1 diff --git a/bwbtest/D73/PAD80.BAS b/bwbtest/D73/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/D73/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/D73/PAD80.INP b/bwbtest/D73/PAD80.INP deleted file mode 100644 index 842eee2..0000000 --- a/bwbtest/D73/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA PUT_GET_1.OUT, PUT_GET_1.80 diff --git a/bwbtest/D73/PAD80.PRO b/bwbtest/D73/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/D73/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/D73/PTP b/bwbtest/D73/PTP deleted file mode 100644 index 24e37c9..0000000 --- a/bwbtest/D73/PTP +++ /dev/null @@ -1,3 +0,0 @@ -PTP LINE 1 -PTP LINE 2 -PTP LINE 3 diff --git a/bwbtest/D73/PTP_1.BAS b/bwbtest/D73/PTP_1.BAS deleted file mode 100644 index c554973..0000000 --- a/bwbtest/D73/PTP_1.BAS +++ /dev/null @@ -1,24 +0,0 @@ - 100 REM PURPOSE: VERIFY 'PTP' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-22 - 130 REM NOTE: OPTION VERSION "PDP-8" - 140 REM - 200 REM ---------------------------------- - 205 REM verified by PTR_2.BAS - 210 PTP - 220 PRINT "PTP LINE 1" - 230 PRINT "PTP LINE 2" - 240 PRINT "PTP LINE 3" - 300 REM ---------------------------------- - 310 TTY OUT - 320 PRINT "TTY OUT LINE 1" - 400 REM ---------------------------------- - 405 REM verified by PTR_5.BAS - 410 PTP "PTP.OUT" - 420 PRINT "PTP.OUT LINE 1" - 430 PRINT "PTP.OUT LINE 2" - 440 PRINT "PTP.OUT LINE 3" - 500 REM ---------------------------------- - 510 TTY - 520 PRINT "TTY LINE 1" - 999 END diff --git a/bwbtest/D73/PTP_1.run b/bwbtest/D73/PTP_1.run deleted file mode 100644 index 090be13..0000000 --- a/bwbtest/D73/PTP_1.run +++ /dev/null @@ -1,2 +0,0 @@ -TTY OUT LINE 1 -TTY LINE 1 diff --git a/bwbtest/D73/PTR b/bwbtest/D73/PTR deleted file mode 100644 index 4cb0396..0000000 --- a/bwbtest/D73/PTR +++ /dev/null @@ -1,3 +0,0 @@ -PTR LINE 1 -PTR LINE 2 -PTR LINE 3 diff --git a/bwbtest/D73/PTR_1.BAS b/bwbtest/D73/PTR_1.BAS deleted file mode 100644 index de2879d..0000000 --- a/bwbtest/D73/PTR_1.BAS +++ /dev/null @@ -1,13 +0,0 @@ - 100 REM PURPOSE: VERIFY 'PTR' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-22 - 130 REM NOTE: OPTION VERSION "PDP-8" - 140 REM - 150 PTR - 160 INPUT A$ - 170 PRINT A$ - 180 INPUT A$ - 190 PRINT A$ - 200 INPUT A$ - 210 PRINT A$ - 999 END diff --git a/bwbtest/D73/PTR_1.run b/bwbtest/D73/PTR_1.run deleted file mode 100644 index 6460c03..0000000 --- a/bwbtest/D73/PTR_1.run +++ /dev/null @@ -1,6 +0,0 @@ -? PTR LINE 1 -PTR LINE 1 -? PTR LINE 2 -PTR LINE 2 -? PTR LINE 3 -PTR LINE 3 diff --git a/bwbtest/D73/PTR_2.BAS b/bwbtest/D73/PTR_2.BAS deleted file mode 100644 index d85a01a..0000000 --- a/bwbtest/D73/PTR_2.BAS +++ /dev/null @@ -1,14 +0,0 @@ - 100 REM PURPOSE: VERIFY 'PTR' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-22 - 130 REM NOTE: OPTION VERSION "PDP-8" - 140 REM - 150 PTR "PTP" - 160 INPUT A$ - 170 PRINT A$ - 180 INPUT A$ - 190 PRINT A$ - 200 INPUT A$ - 210 PRINT A$ - 999 END - diff --git a/bwbtest/D73/PTR_2.PTR b/bwbtest/D73/PTR_2.PTR deleted file mode 100644 index b63f7e1..0000000 --- a/bwbtest/D73/PTR_2.PTR +++ /dev/null @@ -1,3 +0,0 @@ -THIS IS PTR_2.PTR LINE 1 -THIS IS PTR_2.PTR LINE 2 -THIS IS PTR_2.PTR LINE 3 diff --git a/bwbtest/D73/PTR_2.run b/bwbtest/D73/PTR_2.run deleted file mode 100644 index 426b186..0000000 --- a/bwbtest/D73/PTR_2.run +++ /dev/null @@ -1,6 +0,0 @@ -? PTP LINE 1 -PTP LINE 1 -? PTP LINE 2 -PTP LINE 2 -? PTP LINE 3 -PTP LINE 3 diff --git a/bwbtest/D73/PTR_3.BAS b/bwbtest/D73/PTR_3.BAS deleted file mode 100644 index ff65036..0000000 --- a/bwbtest/D73/PTR_3.BAS +++ /dev/null @@ -1,14 +0,0 @@ - 100 REM PURPOSE: VERIFY 'PTR' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-22 - 130 REM NOTE: OPTION VERSION "PDP-8" - 140 REM - 150 PTR "LPT_1.LPT" - 160 INPUT A$ - 170 PRINT A$ - 180 INPUT A$ - 190 PRINT A$ - 200 INPUT A$ - 210 PRINT A$ - 999 END - diff --git a/bwbtest/D73/PTR_3.run b/bwbtest/D73/PTR_3.run deleted file mode 100644 index 5dd5721..0000000 --- a/bwbtest/D73/PTR_3.run +++ /dev/null @@ -1,6 +0,0 @@ -? LPT LINE 1 -LPT LINE 1 -? LPT LINE 2 -LPT LINE 2 -? LPT LINE 3 -LPT LINE 3 diff --git a/bwbtest/D73/PTR_4.BAS b/bwbtest/D73/PTR_4.BAS deleted file mode 100644 index e9d03fa..0000000 --- a/bwbtest/D73/PTR_4.BAS +++ /dev/null @@ -1,14 +0,0 @@ - 100 REM PURPOSE: VERIFY 'PTR' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-22 - 130 REM NOTE: OPTION VERSION "PDP-8" - 140 REM - 150 PTR "LPT.OUT" - 160 INPUT A$ - 170 PRINT A$ - 180 INPUT A$ - 190 PRINT A$ - 200 INPUT A$ - 210 PRINT A$ - 999 END - diff --git a/bwbtest/D73/PTR_4.run b/bwbtest/D73/PTR_4.run deleted file mode 100644 index 2309274..0000000 --- a/bwbtest/D73/PTR_4.run +++ /dev/null @@ -1,6 +0,0 @@ -? LPT.OUT LINE 1 -LPT.OUT LINE 1 -? LPT.OUT LINE 2 -LPT.OUT LINE 2 -? LPT.OUT LINE 3 -LPT.OUT LINE 3 diff --git a/bwbtest/D73/PTR_5.BAS b/bwbtest/D73/PTR_5.BAS deleted file mode 100644 index 1cde828..0000000 --- a/bwbtest/D73/PTR_5.BAS +++ /dev/null @@ -1,14 +0,0 @@ - 100 REM PURPOSE: VERIFY 'PTR' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-22 - 130 REM NOTE: OPTION VERSION "PDP-8" - 140 REM - 150 PTR "PTP.OUT" - 160 INPUT A$ - 170 PRINT A$ - 180 INPUT A$ - 190 PRINT A$ - 200 INPUT A$ - 210 PRINT A$ - 999 END - diff --git a/bwbtest/D73/PTR_5.run b/bwbtest/D73/PTR_5.run deleted file mode 100644 index 9d5bd97..0000000 --- a/bwbtest/D73/PTR_5.run +++ /dev/null @@ -1,6 +0,0 @@ -? PTP.OUT LINE 1 -PTP.OUT LINE 1 -? PTP.OUT LINE 2 -PTP.OUT LINE 2 -? PTP.OUT LINE 3 -PTP.OUT LINE 3 diff --git a/bwbtest/D73/PUT_GET_1.BAS b/bwbtest/D73/PUT_GET_1.BAS deleted file mode 100644 index 315c3fb..0000000 --- a/bwbtest/D73/PUT_GET_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ - 100 REM PURPOSE: VERIFY 'PUT' AND 'GET' FUNCTIONS - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-22 - 130 REM NOTE: OPTION VERSION "PDP-8" - 140 REM - 150 PTR "PUT_GET_1.PTR" - 160 PRINT PUT(GET(0)) - 999 END diff --git a/bwbtest/D73/PUT_GET_1.PTR b/bwbtest/D73/PUT_GET_1.PTR deleted file mode 100644 index f70f10e..0000000 --- a/bwbtest/D73/PUT_GET_1.PTR +++ /dev/null @@ -1 +0,0 @@ -A diff --git a/bwbtest/D73/PUT_GET_1.run b/bwbtest/D73/PUT_GET_1.run deleted file mode 100644 index 66b4a38..0000000 --- a/bwbtest/D73/PUT_GET_1.run +++ /dev/null @@ -1 +0,0 @@ -A 65 diff --git a/bwbtest/D73/TTY_1.BAS b/bwbtest/D73/TTY_1.BAS deleted file mode 100644 index f165f0d..0000000 --- a/bwbtest/D73/TTY_1.BAS +++ /dev/null @@ -1,14 +0,0 @@ - 100 REM PURPOSE: VERIFY 'TTY' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-22 - 130 REM NOTE: OPTION VERSION "PDP-8" - 140 REM - 150 PTR - 160 INPUT A$ - 170 PRINT A$ - 175 TTY - 180 INPUT A$ - 190 PRINT A$ - 200 INPUT A$ - 210 PRINT A$ - 999 END diff --git a/bwbtest/D73/TTY_1.INP b/bwbtest/D73/TTY_1.INP deleted file mode 100644 index a6b6d0c..0000000 --- a/bwbtest/D73/TTY_1.INP +++ /dev/null @@ -1,2 +0,0 @@ -TTY LINE 1 -TTY LINE 2 diff --git a/bwbtest/D73/TTY_1.run b/bwbtest/D73/TTY_1.run deleted file mode 100644 index 991a0a5..0000000 --- a/bwbtest/D73/TTY_1.run +++ /dev/null @@ -1,6 +0,0 @@ -? PTR LINE 1 -PTR LINE 1 -? TTY LINE 1 -TTY LINE 1 -? TTY LINE 2 -TTY LINE 2 diff --git a/bwbtest/D73/TTY_IN_1.BAS b/bwbtest/D73/TTY_IN_1.BAS deleted file mode 100644 index ce88665..0000000 --- a/bwbtest/D73/TTY_IN_1.BAS +++ /dev/null @@ -1,14 +0,0 @@ - 100 REM PURPOSE: VERIFY 'TTY IN' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-22 - 130 REM NOTE: OPTION VERSION "PDP-8" - 140 REM - 150 PTR - 160 INPUT A$ - 170 PRINT A$ - 175 TTY IN - 180 INPUT A$ - 190 PRINT A$ - 200 INPUT A$ - 210 PRINT A$ - 999 END diff --git a/bwbtest/D73/TTY_IN_1.INP b/bwbtest/D73/TTY_IN_1.INP deleted file mode 100644 index a6b6d0c..0000000 --- a/bwbtest/D73/TTY_IN_1.INP +++ /dev/null @@ -1,2 +0,0 @@ -TTY LINE 1 -TTY LINE 2 diff --git a/bwbtest/D73/TTY_IN_1.run b/bwbtest/D73/TTY_IN_1.run deleted file mode 100644 index 991a0a5..0000000 --- a/bwbtest/D73/TTY_IN_1.run +++ /dev/null @@ -1,6 +0,0 @@ -? PTR LINE 1 -PTR LINE 1 -? TTY LINE 1 -TTY LINE 1 -? TTY LINE 2 -TTY LINE 2 diff --git a/bwbtest/DOCS/ALL.txt b/bwbtest/DOCS/ALL.txt deleted file mode 100644 index 8e4012a..0000000 --- a/bwbtest/DOCS/ALL.txt +++ /dev/null @@ -1,22337 +0,0 @@ -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: APPEND filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program; lines in filename$ - replace any matching lines in the current - program. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: APPEND # filenumber -DESCRIPTION: Positions filenumber at EOF and sets the file - to writing; filenumber <= 0 is ignored. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: AS -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: AT -DESCRIPTION: Syntax Error. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: AT END # filenum THEN line -DESCRIPTION: Assigns the line number of an EOF error - handler. When an EOF occurs, a 'GOTO line' - is executed. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: AUTO [start [, increment]] -DESCRIPTION: Automatic line numbering for manual program - entry. If the line already exists, then an - asterisk is displayed and pressing ENTER - leaves the line as-is. If the line does not - exist, then an asterisk is not displayed and - pressing ENTER terminates AUTO mode. - Regardless whether the line exists, entering - the command MAN will terminate AUTO mode. - AUTO mode is also terminated by any ERROR or - by pressing control-C. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: BACKSPACE # X -DESCRIPTION: Points the file to the previous item. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: BREAK line [, ...]] -DESCRIPTION: Diagnostic command to stop execution at the - specified line(s). BREAK only applies to - user-numbered lines. For multi-statement - lines, BREAK only applies to the first - statement. BREAK effectively inserts a - hidden STOP command immediately after the - line number. Once a BREAK occurrs on a - specified line, it is automatically removed. - To remove all existing BREAKs, execute BREAK - without any line numbers. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: BUILD [start [, increment]] -DESCRIPTION: Automatic line numbering for manual program - entry. If the line already exists, then an - asterisk is displayed and pressing ENTER - leaves the line as-is. If the line does not - exist, then an asterisk is not displayed and - pressing ENTER terminates BUILD mode. - Regardless whether the line exists, entering - the command MAN will terminate BUILD mode. - BUILD mode is also terminated by any ERROR or - by pressing control-C. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [X] PDP-8 - [X] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CALL subname( [parameter [, ...] ] ) -DESCRIPTION: Calls a subroutine that was defined by SUB and - END SUB. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CASE constant [TO constant] -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CASE IF operator constant -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CASE IS operator constant -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CASE ELSE -DESCRIPTION: Introduces a default SELECT CASE element. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: CHANGE A$ TO X -DESCRIPTION: Changes a string to a numeric array. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CHANGE X TO A$ -DESCRIPTION: Changes a numeric array to a string. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: CLOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CLOAD* arrayname -DESCRIPTION: Loads a numeric array from a file saved using - CSAVE*. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CLOSE -DESCRIPTION: Closes all files. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CLOSE filename$ [, ...] -DESCRIPTION: Closes a file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CLOSE filenumber [, ...] -DESCRIPTION: Closes a file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CLR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CMDS -DESCRIPTION: Prints a list of all implemented BASIC - commands. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: COMMON variable [, ...] -DESCRIPTION: Designates variables to be passed to a CHAINed - program. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CONSOLE [WIDTH width] -DESCRIPTION: Directs the output of PRINT commands to the - console (stdout), and optionally changes the - console width. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CONST variable [, ...] = value -DESCRIPTION: Assigns the value to variable. Any later - assignment to the variable causus a VARIABLE - NOT DECLARED error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CONT -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: CONTINUE -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: COPY source$ TO target$ -DESCRIPTION: Copy an exisitng file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CREATE filename$ [ RECL reclen ] AS filenum - [ BUFF number ] [ RECS size ] -DESCRIPTION: Creates the file and opens it. If the file - already exists, then it is ereased. If the - file cannot be created, then an error occurs. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CSAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: CSAVE* ArrayName -DESCRIPTION: Saves a numeric array into a file for later - loading by CLOAD*. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: DEC variable [,...] -DESCRIPTION: Decrement a numeric variable. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [X] PDP-8 - [X] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DEFBYT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DEFCUR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DEFDBL letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DEFINT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DEFLNG letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DEFSNG letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DEFSTR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DELETE filenumber -DESCRIPTION: Closes and deletes the file OPEN as - filenumber. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DELIMIT # X, A$ -DESCRIPTION: Sets the delimiter for READ # and WRITE #. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: DISPLAY source$ -DESCRIPTION: Display an exisitng text file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DO UNTIL value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is non-zero. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DO -DESCRIPTION: Top of a DO - LOOP structure. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DO WHILE value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is zero. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DOS -DESCRIPTION: Exits to the operating system. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: DSP variable [, ...]] -DESCRIPTION: Diagnostic command to display the value every - time the variable is assigned. To remove all - existing DSPs, execute DSP without any - variables. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: END DEF -DESCRIPTION: Specifies the last line of a multi-line DEF - function. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: END FUNCTION -DESCRIPTION: Specifies the last line of a multi-line - FUNCTION definition. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: END SELECT -DESCRIPTION: Specifies the last line of a multi-line SELECT - CASE definition. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: END SUB -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: ERASE variable [, ...] -DESCRIPTION: Eliminates arrayed variables from a program. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: EXCHANGE variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: EXIT -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: EXIT DO -DESCRIPTION: Immediately exits the inner-most DO-LOOP - strucure. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: EXIT FOR -DESCRIPTION: Immediately exits the inner-most FOR-NEXT - strucure. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: EXIT FUNCTION -DESCRIPTION: Immediately exits the inner-most multi-line - FUNCTION strucure. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: EXIT REPEAT -DESCRIPTION: Exit a REPEAT - UNTIL structure. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: EXIT SUB -DESCRIPTION: Immediately exits the inner-most multi-line - SUB strucure. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: EXIT WHILE -DESCRIPTION: Immediately exits the inner-most WHILE-END - strucure. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: FEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: FIELD [#] filenum, number AS variable$ [, ...] -DESCRIPTION: Assigns number bytes in the buffer of random - file filenum to the variable variable$. GET - will automatically update the variable, and - PUT will automatically use the variable. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: FILE filename$ [( reclen )] -DESCRIPTION: Opens the file in READ mode. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: FILE # X, A$ -DESCRIPTION: If A$ is "*" then closes file # X. If A$ is - not "*" then opens the file named A$ in READ - mode. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: FILES A$[, ...] -DESCRIPTION: If A$ is not "*" opens the file named A$ in - READ mode. The first filename of the first - FILES command is assocated with file number - 1. Note that multiple FILES commands - accumulate. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: FLEX -DESCRIPTION: Exits to the operating system. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: FNCS -DESCRIPTION: Prints a list of all pre-defined BASIC - functions. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [X] PDP-8 - [X] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: FUNCTION [ ( parameter [, ... ] ) ] -DESCRIPTION: Top line of a multi-line FUNCTION definition. - The variable names specified are local to the - FUNCTION definition, and are initialized - BYVAL when the function is invoked by another - routine. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: GET # file_number , [ byte_number ] , scalar - [,...] -DESCRIPTION: Gets one (or more) values from a BINARY file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: GET # file_number [ , RECORD record_number ] -DESCRIPTION: Gets one (or more) values from a file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: GET # file_number [ , RECORD record_number ] -DESCRIPTION: Gets one (or more) values from a file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: GET filename$ , scalar [, ...] -DESCRIPTION: Gets one (or more) values from a file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: GET # file_number [ , record_number ] -DESCRIPTION: Gets one (or more) values from a RANDOM file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: GOODBYE -DESCRIPTION: Exits to the operating system. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: HELP name -DESCRIPTION: Provides help on the specified name which is a - command name or function name. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: IF END # filenum THEN line -DESCRIPTION: Assigns the line number of an EOF error - handler. When an EOF occurs, a 'GOTO line' - is executed. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: IF END # filenum THEN line -DESCRIPTION: Single line standard IF command. If the file - is at EOF , then branch to line. Otherwise - continue to the next line. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: IF MORE # filenum THEN line -DESCRIPTION: Single line standard IF command. If the file - is not at EOF , then branch to line. - Otherwise continue to the next line. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: IMAGE "format string" -DESCRIPTION: Provides format string for PRINT USING - linenum. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: INC variable [,...] -DESCRIPTION: Increment a numeric variable. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: INPUT LINE variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: INPUT LINE # filenum , variable$ -DESCRIPTION: Reads entire line from a file into variable$. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: INPUT LINE "prompt string" , variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$ after displaying a prompt - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: LINPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: LLIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the printer on stderr. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: LOCAL [# filenum,] variable([ lower TO ] - upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. Only supported inside a FUNCTION or - SUB. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: LOOP UNTIL value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is nonz-zero. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: LOOP WHILE value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is zero. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: LOOP -DESCRIPTION: Bottom of a DO - LOOP structure. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: LPRINTER [WIDTH width] -DESCRIPTION: Directs the output of PRINT commands to the - printer (stderr), and optionally changes the - printer width. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: LPT [filename$] -DESCRIPTION: Directs the PRINT commands to write to the - printer (stderr), or optionally to the - specified file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [X] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: LSET variable$ = value -DESCRIPTION: Left-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the right with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: MARGIN # filenumber, width -DESCRIPTION: Sets the file margin for writing; filenumber - <= 0 is ignored. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MAT GET filename$, arrayname -DESCRIPTION: Matrix get. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MAT OUTPUT arrayname -DESCRIPTION: Matrix output. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MAT PUT filename$, arrayname -DESCRIPTION: Matrix put. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MAT WRITE arrayname -DESCRIPTION: Matrix write. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MERGE filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program. Lines in filename$ - replace any matching lines in the current - program. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MID$( variable$, start [, count ] ) = value -DESCRIPTION: Replaces a subtring of variable$ with value. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: MON -DESCRIPTION: Exits to the operating system. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: NAME old$ AS new$ -DESCRIPTION: Changes the name of an existing file. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OLD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [X] PDP-8 - [X] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: ON ERROR GOSUB errline -DESCRIPTION: When a trappable error occurs, execute GOSUB - errline. The error handler must terminate - with a RETURN command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOSUB. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: ON ERROR GOTO errline -DESCRIPTION: When a trappable error occurs, execute GOTO - errline. The error handler must terminate - with a RESUME command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOTO. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME NEXT -DESCRIPTION: When a trappable error occurs, execution - continues with the next line. Valid when - OPTION ERROR GOTO. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: ON ERROR RETURN -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: ON ERROR RETURN NEXT -DESCRIPTION: When a trappable error occurs, execution - continues with the next line. Valid when - OPTION ERROR GOSUB. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: ON TIMER count GOSUB line -DESCRIPTION: Specifies a line (or label) to gosub when - count seconds have elaspsed after TIMER ON is - executed. The interrupt routine should end - with a RETURN command. Timer events only - occur in running BASIC programs. The - resolution of the clock is implementation - defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: OPEN NEW|OLD|VIRTUAL filename$ - AS filenumber -DESCRIPTION: Opens a file for use. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPEN filename$ - FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL - AS [#] fileenumber - [LEN [=] record-length] -DESCRIPTION: Opens a file for use. - RANDOM requires LEN. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: OPEN filename$ - FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL - AS FILE filenumber - [ ,RECORDSIZE ignored ] - [ ,CLUSTERSIZE ignored ] - [ ,MODE ignored ] -DESCRIPTION: Opens a file for use. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: OPEN filename - FOR READ|WRITE|VIRTUAL - AS FILE filenumber -DESCRIPTION: Opens a file for use. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: OPEN filename$ - [ RECL reclen ] - AS filenumber - [ BUFF ignored ] - [ RECS ignored ] -DESCRIPTION: Opens a file for use. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: OPEN filenumber, - filename$, - INPUT|OUTPUT|APPEND|VIRTUAL -DESCRIPTION: Opens a file for use. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: OPEN # filenumber: - filename$, - INPUT|OUTPUT|OUTIN|VIRTUAL -DESCRIPTION: Opens a file for use. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: OUTPUT # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: OUTPUT value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: PAUSE [comment] -DESCRIPTION: Pauses processing until the ENTER key is - presseed. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: PDEL line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: POP -DESCRIPTION: Pops one GOSUB from the return stack. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: PTP [filename$] -DESCRIPTION: Directs the PRINT commands to write to the - paper tape punch file ("PTP"), or optionally - to the specified file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [X] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: PTR [filename$] -DESCRIPTION: Directs the INPUT commands to read from the - paper tape reader file ("PTR"), or optionally - from the specified file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [X] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: PUT # file_number , [ byte_number ] , scalar - [,...] -DESCRIPTION: Puts one (or more) values into a BINARY file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: PUT filename$ , value [, ...] -DESCRIPTION: Puts one (or more) values into a file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: PUT # file_number [ , RECORD record_number ] -DESCRIPTION: Puts one (or more) values into a file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: PUT # file_number [ , record_number ] -DESCRIPTION: Puts one (or more) values into a RANDOM file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RECALL ArrayName -DESCRIPTION: Loads a numeric array from a file saved using - STORE. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RENAME from$ TO to$ -DESCRIPTION: Rename a file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: RENAME from$ AS to$ -DESCRIPTION: Rename a file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: RENAME [filename$] -DESCRIPTION: Changes the file name which will be used by - SAVE. Does not save the file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RENUMBER -DESCRIPTION: Implementation defined. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: REPEAT -DESCRIPTION: Top of a REPEAT - UNTIL structure. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: REPLACE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: RESET filename$ [, ...] -DESCRIPTION: Positions an input or output file to the - bcginning. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RESUME -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RESUME line -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the specified - line. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RESUME NEXT -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the line after - ERL. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RESUME 0 -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RSET variable$ = value -DESCRIPTION: Right-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the left with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: SCRATCH -DESCRIPTION: SCRATCH Deletes the program in memory and - clears all variables. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: SCRATCH # X -DESCRIPTION: Sets the file mode to writing. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: SELECT -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: SELECT CASE value -DESCRIPTION: Introduces a multi-line conditional selection - statement. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: STORE ArrayName -DESCRIPTION: Saves a numeric array into a file for later - loading by RECALL. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: SUB name [ ( parameter [,...] ) ] -DESCRIPTION: Top line of a multi-line SUB definition. The - variable names specified are local to the SUB - definition, and are initialized BYVAL when - the subroutine is invoked by another routine. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: SUB END -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. Same as END SUB. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: SUB EXIT -DESCRIPTION: Immediately exits the inner-most multi-line - SUB strucure. Same as EXIT SUB. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: SUBEND -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. Same as END SUB. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: SUBEXIT -DESCRIPTION: Immediately exits the inner-most multi-line - SUB strucure. Same as EXIT SUB. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: SWAP variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TEXT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: TIMER -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TIMER OFF -DESCRIPTION: TIMER OFF terminates the timer interrupt. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TIMER ON -DESCRIPTION: TIMER ON enables the timer interrupt. When - the specified seconds have elapsed, TIMER - STOP is internaly executed before the - interrupt is taken. TIMER ON should be - executed just before the RETURN command if - you want the interrupt to occur again. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TIMER STOP -DESCRIPTION: TIMER STOP disables the interrupt, but the - count continues. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TLOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: TRACE -DESCRIPTION: Enables tracing. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TRACE OFF -DESCRIPTION: Disables tracing. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TRACE ON -DESCRIPTION: Enables tracing. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TSAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TTY -DESCRIPTION: Directs the PRINT commands to write to the - console (stdout), and the INPUT commands to - read from.the console (stdin). This cancels - LPT, PTP and PTR. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [X] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TTY IN -DESCRIPTION: Directs the INPUT commands to read from.the - console (stdin). This cancels PTR. It does - not cancel LPT or PTP. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [X] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: TTY OUT -DESCRIPTION: Directs the PRINT commands to write to the - console (stdout). This cancels LPT or PTP. - It does not cancel PTR. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [X] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: UNTIL value -DESCRIPTION: Bottom of a REPEAT - UNTIL. If the value is - non-zero, then the loop is terminated. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: USE parameter$ -DESCRIPTION: Receives the value from the calling CHAINing - program. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: VARS -DESCRIPTION: Prints a list of all global variables. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: WEND -DESCRIPTION: Bottom of a WHILE - WEND structure. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: WHILE value -DESCRIPTION: Top of a WHILE - WEND structure. If the value - is non-zero, then the loop is terminated. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: WRITE # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: WRITE value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = ACOS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ACOS(X) <= PI. X shall be in the range -1 <= - X <= 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ACS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ACS(X) <= PI. X shall be in the range -1 <= - X <= 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ACSD( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in degrees, where 0 <= - ACSD(X) <= 180. X shall be in the range -1 - <= X <= 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ACSG( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in gradians, where 0 <= - ACS(X) <= 200. X shall be in the range -1 <= - X <= 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ANGLE( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The angle in radians between the positive - x-axis and the vector joining the origin to - the point with coordinates (X, Y), where -PI - < ANGLE(X,Y) <= PI. X and Y must not both be - 0. Note that the counterclockwise is - positive, e.g., ANGLE(1,1) = 45 degrees. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ARCCOS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ARCCOS(X) <= PI. X shall be in the range -1 - <= X <= 1. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = ARCSIN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ARCSIN(X) <= PI/2; X shall be in the range -1 - <= X <= 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = ARCTAN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ARCTAN(X) < - PI/2. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = ARGC -DESCRIPTION: The number of parameters passed to a FUNCTION - or SUB. If not in a FUNCTION or SUB, returns - -1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = ARGT$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The type of the Xth parameter to a FUNCTION or - SUB. If the Xth parameter is a string, then - return value is "$". If the Xth parameter is - a number, then return value is not "$". X in - [1,ARGC]. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ARGV( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The numeric value of the Xth parameter to a - FUNCTION or SUB. X in [1,ARGC] and ARGT$( X - ) <> "$". - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = ARGV$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The string value of the Xth parameter to a - FUNCTION or SUB. X in [1,ARGC] and ARGT$( X - ) = "$". - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = ASC( A$, X ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The numeric code of the Xth character in A$. - Same as ASC(MID$(A$,X)). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ASCII( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASCII("ABC") returns 65 on ASCII - systems. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ASIN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASIN(X) <= PI/2; X shall be in the range -1 - <= X <= 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ASN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASN(X) <= PI/2; X shall be in the range -1 <= - X <= 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ASND( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in degrees, where -90 <= - ASN(X) <= 90; X shall be in the range -1 <= X - <= 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ASNG( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in gradians, where -100 <= - ASNG(X) <= 100; X shall be in the range -1 <= - X <= 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ATAN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATAN(X) < - PI/2. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = ATND( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in degrees, i.e. the angle - whose tangent is X, where -90 < ATND(X) < 90. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ATNG( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in gradians, i.e. the - angle whose tangent is X, where -100 < - ATND(X) < 100. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = BASE -DESCRIPTION: The current OPTION BASE setting. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = BIN$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the binary (base 2) representation of X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = BIN$( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The the binary (base 2) representation of X. - The result will be at least Y digits long. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CATALOG -DESCRIPTION: Displays all the file names. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CATALOG( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CCUR( X ) - PARAMETER: X is a number, [MINCUR,MAXCUR] -DESCRIPTION: The currency (64-bit) integer value of X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CDBL( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The double-precision value of X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CEIL( X ) - PARAMETER: X is a number -DESCRIPTION: The smallest integer not less than X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = CHAR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The string Y bytes long consisting of CHR$(X). - Same as STRING$(Y,X). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = CHAR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHAR$(65) returns "A". - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CHDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Changes to the directory named to A$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = CHR( X ) - PARAMETER: X is a number -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR(65) returns "A". - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = CHR( X ) - PARAMETER: X is a number -DESCRIPTION: The output of PRINT X. A$ = CHR(X) is the - opposite of X = NUM(A$). - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = CIN( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: If file # X is <= 0 then returns -1. If file - # X is not opened for reading then returns - -1. If file # X is at EOF then returns -1, - Otherwise returns the next byte value read - from file X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CINT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The short (16-bit) integer value of X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CLG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CLK( X ) - PARAMETER: X is a number -DESCRIPTION: The time elapsed since the previous midnight, - expressed in hours; e.g., the value of CLK at - 3:15 PM is 15.25. If there is no clock - available, then the value of CLK shall be -1. - The value of CLK at midnight shall be zero - (not 24). The value of X is ignored. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = CLK( X ) - PARAMETER: X is a number -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of CLK - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of CLK shall - be "99:99:99". The value of TIME$ at - midnight is "00:00:00". The value of - parameter X is ignored. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = CLK$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CLNG( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The long (32-bit) integer value of X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CLOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CLOSE -DESCRIPTION: Close all open files. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = CLS -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CNTRL( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: CNTRL 1,Y sets the number of significant - digits to print. CNTRL 3,Y sets the width of - the print zones. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CODE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, CODE("ABC") returns 65 on ASCII - systems. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = COLOR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sets the foreground text color to X, and the - background text color to Y. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = COMMAND$ -DESCRIPTION: All command line parameters, concatenated with - one space between each. Support for - parameters varies by operating system, - compiler, and so on. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = COMMAND$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The command line parameters. COMMAND$(0) is - the BASIC program name. COMMAND$(1) is the - first parameter after the BASIC program name, - and so on. Support for parameters varies by - operating system, compiler, and so on. X in - [0..9] - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = COSD( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in degrees. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = COSG( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in gradians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = COSH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic cosine of X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = COT( X ) - PARAMETER: X is a number -DESCRIPTION: The cotangent of X, where X is in radians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = COUNT -DESCRIPTION: The current cursor position in the line. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CSC( X ) - PARAMETER: X is a number -DESCRIPTION: The cosecant of X, where X is in radians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CSH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic cosine of X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CSNG( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The single-precision value of X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = CUR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Locates the cursor to row X, column Y. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CVC( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(CUR) -DESCRIPTION: The currency (64-bit) integer value in A$, - which was created by MKC$. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = CVD( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(DBL) -DESCRIPTION: The double-precision value in A$, which was - created by MKD$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = CVI( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(INT) -DESCRIPTION: The short (16-bit) integer value in A$, which - was created by MKI$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = CVL( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(LNG) -DESCRIPTION: The long (32-bit) integer value in A$, which - was created by MKL$. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = CVS( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(FLT) -DESCRIPTION: The single-precision value in A$, which was - created by MKS$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = DAT$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = DATE -DESCRIPTION: The current date in decimal form YYYDDD, where - YYY are the number of years since 1900 and - DDD is the ordinal number of the current day - of the year; e.g., the value of DATE on May - 9, 1977 was 77129. If there is no calendar - available, then the value of DATE shall be - -1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = DATE$( X ) - PARAMETER: X is a number -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. - The value of parameter X is ignored. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = DEG -DESCRIPTION: Configures the math functions to accept and - return angles in degrees. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: When X is zero sets RADIANS. When X is - non-zero sets DEGREES. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = DEGREE -DESCRIPTION: Configures the math functions to accept and - return angles in degrees. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = DEGREE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = DIGITS( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: X is the number of significiant digits to - print for numbers (0..17). If X = 0 then - disabled. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = DIGITS( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: X is the number of significiant digits to - print for numbers (0..17). If X = 0 then - disabled. Y is the number of decimal places - to round (0..17). If Y = 0 then disabled. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = DIM( ... ) -DESCRIPTION: DIM( arrayname ). The total number of - dimensions of the array. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = DPEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. Causes - ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = DPOKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = EDIT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Edits the characters of A$, according to the - bits set in X. - 1 = discard parity bit. - 2 = discard all spaces. - 4 = discard all carriage returns, line feeds, - form feeds, deletes, escapes and nulls. - 8 = discard leading spaces. - 16 = replace multiple spaces with one space. - 32 = change lower case to upper case. - 64 = change [ to ( and change ] to ). - 128 = discard trailing spacess. - 256 = suppress editing within quotes. - The order in which edits occur is - implementation defined. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ENVIRON( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Sends the environment variable expression - contained in A$ to the host operating system. - A$ must contain the "=" character. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = ENVIRON$( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the environment variable named - A$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = EOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: If device number X is at the end-of-file, then - -1, otherwise 0. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = EPS( X ) - PARAMETER: X is a number -DESCRIPTION: The maximum of (X-X1,X2-X, sigma) where X1 and - X2 are the predecessor and successor of X and - signma is the smallest positive value - representable. If X has no predecessor the - X1=X and if X has no successor the X2=X. - Note EPS(0) is the smallest positive number - representable by the implementation, and is - therefor implementation-defined. Note also - that EPS may produce different results for - different arithmetic options (see OPTION - ARITHMETIC). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = ERR$ -DESCRIPTION: The last error message. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ERRL -DESCRIPTION: The line number of the most recent error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ERRN -DESCRIPTION: The error number of the most recent error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ERROR( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Simulate the error number in X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ERROR( X, A$ ) - PARAMETER: X is a number, [0,255] - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: Simulate the error number in X, with a custom - message in A$. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = ERROR$ -DESCRIPTION: The last error message. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = EXAM( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = EXEC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The exit code resulting from the execution of - an operating system command. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = EXF( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [X] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = FALSE -DESCRIPTION: The value of FALSE. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FETCH( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FILEATTR( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, if Y = 1 then returns open mode, - otherwise returns zero. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FILES -DESCRIPTION: Displays all the file names. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FILES( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FILL( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FLOAT( X ) - PARAMETER: X is a number -DESCRIPTION: The rounded integer valuet of X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FLOW -DESCRIPTION: Turn tracing ON - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FP( X ) - PARAMETER: X is a number -DESCRIPTION: The fractional part of X, i.e. X - IP(X). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FRAC( X ) - PARAMETER: X is a number -DESCRIPTION: The fractional part of X, i.e. X - IP(X). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FRE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = FRE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = FRE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = FREE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FREE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FREE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = FREEFILE -DESCRIPTION: The next available file number. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = GET( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets the next available record. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = GET( X ) - PARAMETER: X is a number -DESCRIPTION: Get character code from input. The value of X - is ignored. Similar to ASC(INKEY$). - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [X] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = GET( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets record number Y. The first - record number is 1. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = GRAD -DESCRIPTION: Configures the math functions to accept and - return angles in gradians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = GRADIAN -DESCRIPTION: Configures the math functions to accept and - return angles in gradians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = HCS( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic cosine of X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = HEX( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric value of the hexadecimal string in - A$. For example, HEX("FFFF") returns 65535. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = HEX$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the hexadecimal (base 16) representation - of X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = HEX$( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The the hexadecimal (base 16) representation - of X. The result will be at least Y digits - long. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = HOME -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = HSN( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = HTN( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic tangent of X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = INCH$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = INDEX( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = INF -DESCRIPTION: The largest finite positive number - representable and manipulable by the - implementation; implementation-defined. - MAXNUM may represent diffent number for - different arithmetic options (see OPTION - ARITHMETIC). - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = INITIALIZE -DESCRIPTION: This function is provided for backward - compatibility only and it always returns a - fixed value of 0. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = INKEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = INP( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X characters, read from the - terminal. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The string of X characters, read from file Y. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = INSTR( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = INSTR( X, A$, B$ ) - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = INSTR( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = INT%( X ) - PARAMETER: X is a number -DESCRIPTION: The rounded integer valuet of X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = IP( X ) - PARAMETER: X is a number -DESCRIPTION: The integer part of X, i.e., - SGN(X)*INT(ABS(X)). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = KEY -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = KEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = KILL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = LBOUND( ... ) -DESCRIPTION: LBOUND( arrayname [, dimension] ). The lower - bound of the array. The dimension defaults - to 1. dimension in [1,DIM(arrayname)] - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = LCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LDIM( ... ) -DESCRIPTION: LDIM( arrayname [, dimension] ). The lower - bound of the array. The dimension defaults - to 1. dimension in [1,DIM(arrayname)] - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = LEFT( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = LGT( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = LIN( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string X bytes long of newline characters. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LN( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LNO( X ) - PARAMETER: X is a number -DESCRIPTION: Returns X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LOCATE( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Locates the cursor to row X, column Y. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LOCK( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Lock file number X. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = LOG10( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LOG2( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The base 2 logarithm of X; X shall be greater - than zero. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LOGE( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = LOWER$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LPOS -DESCRIPTION: The current cursor position in the line for - the printer. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = LTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - leading space characters. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LTW( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The base 2 logarithm of X; X shall be greater - than zero. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = LWIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For printer, sets the line width to X. Zero - means no wrapping will occur. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = LWRC$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MATCH( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the Xth character of A$. - If there is not such occurence, then the - value returned is zero. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAX( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The larger of the parameters. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MAX( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The larger of the parameters. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXBYT -DESCRIPTION: The largest finite positive number - representable as a BYTE; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXCUR -DESCRIPTION: The largest finite positive number - representable as a CURRENCY; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXDBL -DESCRIPTION: The largest finite positive number - representable as a DOUBLE; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXDEV -DESCRIPTION: The largest finite positive number useable as - a FILE NUMBER; implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXINT -DESCRIPTION: The largest finite positive number - representable as an INTEGER; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXLEN -DESCRIPTION: The maximum string length. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXLEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The maximum length associated with the - simple-string-variable A$. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXLNG -DESCRIPTION: The largest finite positive number - representable as a LONG; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXLVL -DESCRIPTION: The maximum stack level; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXNUM -DESCRIPTION: The largest finite positive number - representable and manipulable by the - implementation; implementation-defined. - MAXNUM may represent diffent number for - different arithmetic options (see OPTION - ARITHMETIC). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MAXSNG -DESCRIPTION: The largest finite positive number - representable as a SINGLE; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MEM -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MID( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MID( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = MIN( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The smaller of the parameters. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MIN( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The smaller of the parameters. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MINBYT -DESCRIPTION: The largest finite negative number - representable as a BYTE; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MINCUR -DESCRIPTION: The largest finite negative number - representable as a CURRENCY; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MINDBL -DESCRIPTION: The largest finite negative number - representable as a DOUBLE; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MINDEV -DESCRIPTION: The largest finite negative number useable as - a FILE NUMBER; implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MININT -DESCRIPTION: The largest finite negative number - representable as an INTEGER; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MINLNG -DESCRIPTION: The largest finite negative number - representable as a LONG; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MINNUM -DESCRIPTION: The largest finite negative number - representable and manipulable by the - implementation; implementation-defined. - MINNUM may represent diffent number for - different arithmetic options (see OPTION - ARITHMETIC). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = MINSNG -DESCRIPTION: The largest finite negative number - representable as a SINGLE; - implementation-defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MKC$( X ) - PARAMETER: X is a number, [MINCUR,MAXCUR] -DESCRIPTION: The internal representation of the currency - (64-bit) integer X as a string. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MKD$( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The internal representation of X as a string. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = MKDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Makes the directory named in A$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MKI$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The internal representation of the short - (16-bit) integer X as a string. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MKL$( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The internal representation of the long - (32-bit) integer X as a string. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = MKS$( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The internal representation of X as a string. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = MOD( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, <> 0 -DESCRIPTION: X modulo Y, i.e., X-Y*INT(X/Y). Y shall not - equal zero. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = NAME( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Rename the file named A$ into B$. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = NAME( ... ) -DESCRIPTION: Returns hardware address of variable. Causes - ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = NOFLOW -DESCRIPTION: Turn tracing OFF - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = NOTRACE -DESCRIPTION: Turn tracing OFF - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = NULL( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Appends X null characters after each line - printed by LPRINT or LLIST. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = NUM -DESCRIPTION: The number of values processed by the last MAT - INPUT. Zero means error. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = NUM( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, NUM( " 123.5 " ) = 123.5, NUM( - "2.E-99" ) could be zero, and NUM( "MCMXVII" - ) causes an exception. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = OCT$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the octal (base 8) representation of X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = OCT$( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The the octal (base 8) representation of X. - The result will be at least Y digits long. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Default the - record length. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$, Y ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Y is the - record length. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ORD( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The ordinal position of the character named by - the string associated with A$ in the - collating sequence of ASCII character set, - where the first member of the character set - is in position zero. The acceptable values - for the standard character set are shown in - Table 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = OUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware port X. Causes ERROR 73. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = PAD( X ) - PARAMETER: X is a number -DESCRIPTION: Returns zero. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = PAUSE( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then PAUSE - does nothing. The resolution is - implementation defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = PDL( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = PI -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = PI( X ) - PARAMETER: X is a number -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter, - times X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = PIN( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = POS( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The current cursor position in the line for - file X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the first character of - A$. If there is not such occurence, then the - value returned is zero. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the Xth character of A$. - If there is not such occurence, then the - value returned is zero. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = PRECISION( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: X is the number of decimal places to round - (0..17). If X = 0 then disabled. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = PTR( ... ) -DESCRIPTION: Returns hardware address of variable. Causes - ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = PUT( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Send character code to output. Returns the - value of X. Similar to PRINT CHR$(X). - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [X] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = PUT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts the next available record. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = PUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts record number Y. The first - record number is 1. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RAD -DESCRIPTION: Configures the math functions to accept and - return angles in radians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RAD( X ) - PARAMETER: X is a number -DESCRIPTION: The number of radians in X degrees. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RADIAN -DESCRIPTION: Configures the math functions to accept and - return angles in radians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RAN -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RAN( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RANDOM -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RANDOM( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = REM( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, <> 0 -DESCRIPTION: The remainder function, i.e., X-Y*IP(X/Y). Y - shall not equal zero. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = REMAINDER( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, <> 0 -DESCRIPTION: The remainder function, i.e., X-Y*IP(X/Y). Y - shall not equal zero. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RENAME( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Rename file A$ to B$. If successful, the - returns -1 else returns 0. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = REPEAT$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string consisting of X copies of - LEFT$(A$,1); X > 0. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = REPEAT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string consisting of X copies of CHR$(Y); - X > 0. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RESET -DESCRIPTION: Close all open files. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RESIDUE -DESCRIPTION: The residue of the last Integer Divide - operation. The RESIDUE of -17 / 5 is -2. - For X / Y, RESIDUE = CINT( X - Y * CINT( X / - Y ) ). - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = RIGHT( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = RMDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the directory named in A$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = ROUND( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The value of X rounded to Y decimal digits to - the right of the decimal point (or -Y digits - to the left if Y < 0); i.e., - INT(X*10^Y+.5)/10^Y. Y must be in [-32,32]. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = RTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - trailing space characters. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SCALE( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: X is the number of decimal places to round - (0..17). If X = 0 then disabled. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = SEC( X ) - PARAMETER: X is a number -DESCRIPTION: The secant of X, where X is in radians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SEEK( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SEEK( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, move to record number Y; the first - record number is 1. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SEG( X ) - PARAMETER: X is a number -DESCRIPTION: Returns zero. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = SEG( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = SEG$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = SHELL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The exit code resulting from the execution of - an operating system command. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = SIND( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in degrees. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SING( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in gradians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SINH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SIZE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The total number of 1KB blockes required to - contain the file. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SIZE( ... ) -DESCRIPTION: SIZE( arrayname ). The total number of items - in the array. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SLEEP( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then SLEEP - does nothing. The resolution is - implementation defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = SNH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = SPA( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = SPACE( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = SPACE$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = SQRT( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = STR( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = STRING( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string X bytes long consisting of the - first character of A$. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = STRIP$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: Return the string with the eighth bit of each - character cleared. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = STUFF( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = TAND( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in degrees. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TANG( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in gradians. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TANH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic tangent of X. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TI -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = TI$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TIM -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [X] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TIM( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: If X is 0, returns minutes in current hour. - If X is 1, returns hours in current day. If - X is 2, returns days in current year. If X - is 3, returns years since 1900. Any other - value for X is an ERROR. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TIME -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TIME( X ) - PARAMETER: X is a number -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). The value of the parameter - X is ignored. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = TIME$( X ) - PARAMETER: X is a number -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". The value of X is - ignored. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TIMER -DESCRIPTION: The time in the system clock in seconds - elapsed since midnight. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TOP -DESCRIPTION: The address of the top of available memory. - This function is provided for backward - compatibility only and it always returns a - fixed value of 32000. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TRACE -DESCRIPTION: Turn tracing ON - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TRACE( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: When X is zero turn tracing off. When X is - non-zero turn tracing ON - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = TRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string resulting from removing both - leading and trailing spaces from A$. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = TRUE -DESCRIPTION: The value of TRUE. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = TRUNCATE( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The value of X truncated to Y decimal digits - to the right of the decimal point (or -Y - digits to the left if Y < 0); i.e., - IP(X*10^Y)/10^Y. Y in [-32,32]. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = UBOUND( ... ) -DESCRIPTION: UBOUND( arrayname [, dimension] ). The upper - bound of the array. The dimension defaults - to 1. dimension in [1,DIM(arrayname)] - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = UCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = UDIM( ... ) -DESCRIPTION: UDIM( arrayname [, dimension] ). The upper - bound of the array. The dimension defaults - to 1. dimension in [1,DIM(arrayname)] - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = UNLOCK( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Unlock file number X. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = UNSAVE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [X] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = UPPER$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: S$ = UPRC( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR0( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR1( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR2( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR3( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR4( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR5( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR6( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR7( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR8( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = USR9( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = UUF( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [X] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: N = VARPTR( ... ) -DESCRIPTION: Returns hardware address of variable. Causes - ERROR 73. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = VTAB( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Savme as LOCATE X, 1. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = WAIT( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then WAIT does - nothing. The resolution is implementation - defined. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Waits for the value of (INP(X) AND Y) to - become nonzero. Causes ERROR 73. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y, Z ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] - PARAMETER: Z is a number, [0,255] -DESCRIPTION: Waits for the value of ((INP(X) XOR Z) AND Y) - to become nonzero. Causes ERROR 73. - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = WIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For console, sets the line width to X. Zero - means no wrapping will occur. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = WIDTH( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: If X = 0, sets the console width to Y. - If X < 0, sets the printer width to Y. - If X is an open file number, sets the file - line width to Y. - Otherwise sets the console rows to X and the - line width to Y. - A value of zero for Y means no wrapping will - occur. - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ZONE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Sets the width of the print zones. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: N = ZONE( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: X is ignored. Y sets the width of the print - zones. - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [_] ECMA-116 - [X] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [_] MBASIC - [X] PDP-8 - [X] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: X [ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [_] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: X MOD Y -DESCRIPTION: Integer Modulus - PRECEDENCE: 10 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X & Y -DESCRIPTION: Concatenation - PRECEDENCE: 8 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [X] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [X] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [X] PDP-8 - [X] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: A$ LIKE B$ -DESCRIPTION: Compare A$ to the pattern in B$ - PRECEDENCE: 7 - VERSIONS: - [X] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [X] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [X] HEATH - [X] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [X] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [X] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [X] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [X] XBASIC ------------------------------------------------------------- - SYNTAX: X XRA Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 - VERSIONS: - [_] BYWATER - [_] BYWATER-2 - [_] CALL/360 - [_] CBASIC-II - [_] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [_] GCOS - [_] HAARDT - [_] HANDBOOK1 - [X] HANDBOOK2 - [_] HEATH - [_] IBASIC - [_] MARK-I - [_] MARK-II - [_] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [_] RSTS-11 - [_] SYSTEM/360 - [_] SYSTEM/370 - [_] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 - VERSIONS: - [X] BYWATER - [X] BYWATER-2 - [X] CALL/360 - [X] CBASIC-II - [X] DARTMOUTH - [_] ECMA-55 - [_] ECMA-116 - [X] GCOS - [X] HAARDT - [_] HANDBOOK1 - [_] HANDBOOK2 - [_] HEATH - [_] IBASIC - [X] MARK-I - [X] MARK-II - [X] MBASIC - [_] PDP-8 - [_] PDP-11 - [_] RBASIC - [X] RSTS-11 - [X] SYSTEM/360 - [X] SYSTEM/370 - [X] TRS-80 - [_] VINTAGE - [_] XBASIC ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/BYWATER-2.txt b/bwbtest/DOCS/BYWATER-2.txt deleted file mode 100644 index 6be36e9..0000000 --- a/bwbtest/DOCS/BYWATER-2.txt +++ /dev/null @@ -1,1401 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "BYWATER-2" -REM INTERNAL ID: B93 -REM DESCRIPTION: Bywater BASIC 2 -REM REFERENCE: Bywater BASIC Interpreter, version 2.61 -REM by Ted A. Campbell, Jon B. Volkoff, Paul Edwards, et al. -REM Copyright (c) 1993-2014, Ted A. Campbell -REM http://wwww.sourceforge.net/bwbasic/ -REM bwbasic-2.61.zip -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS ON -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOSUB -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "%m/%d/%Y" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "'" -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: AS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: CALL subname( [parameter [, ...] ] ) -DESCRIPTION: Calls a subroutine that was defined by SUB and - END SUB. ------------------------------------------------------------- - SYNTAX: CASE constant [TO constant] -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE IF operator constant -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE IS operator constant -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE ELSE -DESCRIPTION: Introduces a default SELECT CASE element. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CMDS -DESCRIPTION: Prints a list of all implemented BASIC - commands. ------------------------------------------------------------- - SYNTAX: COMMON variable [, ...] -DESCRIPTION: Designates variables to be passed to a CHAINed - program. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEFDBL letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFINT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSNG letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSTR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: DO UNTIL value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is non-zero. ------------------------------------------------------------- - SYNTAX: DO -DESCRIPTION: Top of a DO - LOOP structure. ------------------------------------------------------------- - SYNTAX: DO WHILE value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is zero. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END FUNCTION -DESCRIPTION: Specifies the last line of a multi-line - FUNCTION definition. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: END SELECT -DESCRIPTION: Specifies the last line of a multi-line SELECT - CASE definition. ------------------------------------------------------------- - SYNTAX: END SUB -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. ------------------------------------------------------------- - SYNTAX: ERASE variable [, ...] -DESCRIPTION: Eliminates arrayed variables from a program. ------------------------------------------------------------- - SYNTAX: EXIT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: EXIT DO -DESCRIPTION: Immediately exits the inner-most DO-LOOP - strucure. ------------------------------------------------------------- - SYNTAX: EXIT FOR -DESCRIPTION: Immediately exits the inner-most FOR-NEXT - strucure. ------------------------------------------------------------- - SYNTAX: EXIT FUNCTION -DESCRIPTION: Immediately exits the inner-most multi-line - FUNCTION strucure. ------------------------------------------------------------- - SYNTAX: EXIT SUB -DESCRIPTION: Immediately exits the inner-most multi-line - SUB strucure. ------------------------------------------------------------- - SYNTAX: EXIT WHILE -DESCRIPTION: Immediately exits the inner-most WHILE-END - strucure. ------------------------------------------------------------- - SYNTAX: FIELD [#] filenum, number AS variable$ [, ...] -DESCRIPTION: Assigns number bytes in the buffer of random - file filenum to the variable variable$. GET - will automatically update the variable, and - PUT will automatically use the variable. ------------------------------------------------------------- - SYNTAX: FNCS -DESCRIPTION: Prints a list of all pre-defined BASIC - functions. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: FUNCTION [ ( parameter [, ... ] ) ] -DESCRIPTION: Top line of a multi-line FUNCTION definition. - The variable names specified are local to the - FUNCTION definition, and are initialized - BYVAL when the function is invoked by another - routine. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LOOP UNTIL value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is nonz-zero. ------------------------------------------------------------- - SYNTAX: LOOP WHILE value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is zero. ------------------------------------------------------------- - SYNTAX: LOOP -DESCRIPTION: Bottom of a DO - LOOP structure. ------------------------------------------------------------- - SYNTAX: LSET variable$ = value -DESCRIPTION: Left-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the right with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MERGE filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program. Lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: MID$( variable$, start [, count ] ) = value -DESCRIPTION: Replaces a subtring of variable$ with value. ------------------------------------------------------------- - SYNTAX: NAME old$ AS new$ -DESCRIPTION: Changes the name of an existing file. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR GOSUB errline -DESCRIPTION: When a trappable error occurs, execute GOSUB - errline. The error handler must terminate - with a RETURN command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOSUB. ------------------------------------------------------------- - SYNTAX: OPEN filename$ - FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL - AS [#] fileenumber - [LEN [=] record-length] -DESCRIPTION: Opens a file for use. - RANDOM requires LEN. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RSET variable$ = value -DESCRIPTION: Right-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the left with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: SELECT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: SELECT CASE value -DESCRIPTION: Introduces a multi-line conditional selection - statement. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SUB name [ ( parameter [,...] ) ] -DESCRIPTION: Top line of a multi-line SUB definition. The - variable names specified are local to the SUB - definition, and are initialized BYVAL when - the subroutine is invoked by another routine. ------------------------------------------------------------- - SYNTAX: SWAP variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: VARS -DESCRIPTION: Prints a list of all global variables. ------------------------------------------------------------- - SYNTAX: WEND -DESCRIPTION: Bottom of a WHILE - WEND structure. ------------------------------------------------------------- - SYNTAX: WHILE value -DESCRIPTION: Top of a WHILE - WEND structure. If the value - is non-zero, then the loop is terminated. ------------------------------------------------------------- - SYNTAX: WRITE # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. ------------------------------------------------------------- - SYNTAX: WRITE value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CHDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Changes to the directory named to A$. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CINT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The short (16-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLOSE -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = CLS -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSNG( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The single-precision value of X. ------------------------------------------------------------- - SYNTAX: N = CVD( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(DBL) -DESCRIPTION: The double-precision value in A$, which was - created by MKD$. ------------------------------------------------------------- - SYNTAX: N = CVI( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(INT) -DESCRIPTION: The short (16-bit) integer value in A$, which - was created by MKI$. ------------------------------------------------------------- - SYNTAX: N = CVS( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(FLT) -DESCRIPTION: The single-precision value in A$, which was - created by MKS$. ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = ENVIRON( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Sends the environment variable expression - contained in A$ to the host operating system. - A$ must contain the "=" character. ------------------------------------------------------------- - SYNTAX: S$ = ENVIRON$( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the environment variable named - A$. ------------------------------------------------------------- - SYNTAX: N = EOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: If device number X is at the end-of-file, then - -1, otherwise 0. ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERROR( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Simulate the error number in X. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FILES -DESCRIPTION: Displays all the file names. ------------------------------------------------------------- - SYNTAX: N = FILES( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. ------------------------------------------------------------- - SYNTAX: N = GET( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets the next available record. ------------------------------------------------------------- - SYNTAX: N = GET( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: S$ = HEX$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the hexadecimal (base 16) representation - of X. ------------------------------------------------------------- - SYNTAX: S$ = INKEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = INSTR( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. ------------------------------------------------------------- - SYNTAX: N = INSTR( X, A$, B$ ) - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = KILL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = LOCATE( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Locates the cursor to row X, column Y. ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = MKD$( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = MKDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Makes the directory named in A$. ------------------------------------------------------------- - SYNTAX: S$ = MKI$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The internal representation of the short - (16-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKS$( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: S$ = OCT$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the octal (base 8) representation of X. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Default the - record length. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$, Y ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Y is the - record length. ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = PUT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts the next available record. ------------------------------------------------------------- - SYNTAX: N = PUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RMDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the directory named in A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPACE$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string X bytes long consisting of the - first character of A$. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = TIMER -DESCRIPTION: The time in the system clock in seconds - elapsed since midnight. ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For console, sets the line width to X. Zero - means no wrapping will occur. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: If X = 0, sets the console width to Y. - If X < 0, sets the printer width to Y. - If X is an open file number, sets the file - line width to Y. - Otherwise sets the console rows to X and the - line width to Y. - A value of zero for Y means no wrapping will - occur. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X MOD Y -DESCRIPTION: Integer Modulus - PRECEDENCE: 10 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X & Y -DESCRIPTION: Concatenation - PRECEDENCE: 8 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/BYWATER.txt b/bwbtest/DOCS/BYWATER.txt deleted file mode 100644 index 8f0e2dc..0000000 --- a/bwbtest/DOCS/BYWATER.txt +++ /dev/null @@ -1,2548 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "BYWATER" -REM INTERNAL ID: B15 -REM DESCRIPTION: Bywater BASIC 3 -REM REFERENCE: Bywater BASIC Interpreter, version 3.20 -REM by Ted A. Campbell, Jon B. Volkoff, Paul Edwards, et al. -REM (c) 2014-2017, Howard Wulf, AF5NE -REM http://wwww.sourceforge.net/bwbasic/ -REM bwbasic-3.20.zip -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS ON -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE ON -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "%m/%d/%Y" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY "@" -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE "~" -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "'" -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT "@" -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: APPEND filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program; lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: AS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: AUTO [start [, increment]] -DESCRIPTION: Automatic line numbering for manual program - entry. If the line already exists, then an - asterisk is displayed and pressing ENTER - leaves the line as-is. If the line does not - exist, then an asterisk is not displayed and - pressing ENTER terminates AUTO mode. - Regardless whether the line exists, entering - the command MAN will terminate AUTO mode. - AUTO mode is also terminated by any ERROR or - by pressing control-C. ------------------------------------------------------------- - SYNTAX: BREAK line [, ...]] -DESCRIPTION: Diagnostic command to stop execution at the - specified line(s). BREAK only applies to - user-numbered lines. For multi-statement - lines, BREAK only applies to the first - statement. BREAK effectively inserts a - hidden STOP command immediately after the - line number. Once a BREAK occurrs on a - specified line, it is automatically removed. - To remove all existing BREAKs, execute BREAK - without any line numbers. ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: CALL subname( [parameter [, ...] ] ) -DESCRIPTION: Calls a subroutine that was defined by SUB and - END SUB. ------------------------------------------------------------- - SYNTAX: CASE constant [TO constant] -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE IF operator constant -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE IS operator constant -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE ELSE -DESCRIPTION: Introduces a default SELECT CASE element. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CHANGE A$ TO X -DESCRIPTION: Changes a string to a numeric array. ------------------------------------------------------------- - SYNTAX: CHANGE X TO A$ -DESCRIPTION: Changes a numeric array to a string. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CLOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: CLOAD* arrayname -DESCRIPTION: Loads a numeric array from a file saved using - CSAVE*. ------------------------------------------------------------- - SYNTAX: CMDS -DESCRIPTION: Prints a list of all implemented BASIC - commands. ------------------------------------------------------------- - SYNTAX: COMMON variable [, ...] -DESCRIPTION: Designates variables to be passed to a CHAINed - program. ------------------------------------------------------------- - SYNTAX: CONST variable [, ...] = value -DESCRIPTION: Assigns the value to variable. Any later - assignment to the variable causus a VARIABLE - NOT DECLARED error. ------------------------------------------------------------- - SYNTAX: CONT -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: CSAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: CSAVE* ArrayName -DESCRIPTION: Saves a numeric array into a file for later - loading by CLOAD*. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DEFBYT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFCUR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFDBL letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFINT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFLNG letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSNG letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSTR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: DO UNTIL value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is non-zero. ------------------------------------------------------------- - SYNTAX: DO -DESCRIPTION: Top of a DO - LOOP structure. ------------------------------------------------------------- - SYNTAX: DO WHILE value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is zero. ------------------------------------------------------------- - SYNTAX: DSP variable [, ...]] -DESCRIPTION: Diagnostic command to display the value every - time the variable is assigned. To remove all - existing DSPs, execute DSP without any - variables. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END FUNCTION -DESCRIPTION: Specifies the last line of a multi-line - FUNCTION definition. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: END SELECT -DESCRIPTION: Specifies the last line of a multi-line SELECT - CASE definition. ------------------------------------------------------------- - SYNTAX: END SUB -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. ------------------------------------------------------------- - SYNTAX: ERASE variable [, ...] -DESCRIPTION: Eliminates arrayed variables from a program. ------------------------------------------------------------- - SYNTAX: EXCHANGE variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: EXIT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: EXIT DO -DESCRIPTION: Immediately exits the inner-most DO-LOOP - strucure. ------------------------------------------------------------- - SYNTAX: EXIT FOR -DESCRIPTION: Immediately exits the inner-most FOR-NEXT - strucure. ------------------------------------------------------------- - SYNTAX: EXIT FUNCTION -DESCRIPTION: Immediately exits the inner-most multi-line - FUNCTION strucure. ------------------------------------------------------------- - SYNTAX: EXIT REPEAT -DESCRIPTION: Exit a REPEAT - UNTIL structure. ------------------------------------------------------------- - SYNTAX: EXIT SUB -DESCRIPTION: Immediately exits the inner-most multi-line - SUB strucure. ------------------------------------------------------------- - SYNTAX: EXIT WHILE -DESCRIPTION: Immediately exits the inner-most WHILE-END - strucure. ------------------------------------------------------------- - SYNTAX: FIELD [#] filenum, number AS variable$ [, ...] -DESCRIPTION: Assigns number bytes in the buffer of random - file filenum to the variable variable$. GET - will automatically update the variable, and - PUT will automatically use the variable. ------------------------------------------------------------- - SYNTAX: FNCS -DESCRIPTION: Prints a list of all pre-defined BASIC - functions. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: FUNCTION [ ( parameter [, ... ] ) ] -DESCRIPTION: Top line of a multi-line FUNCTION definition. - The variable names specified are local to the - FUNCTION definition, and are initialized - BYVAL when the function is invoked by another - routine. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOODBYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: HELP name -DESCRIPTION: Provides help on the specified name which is a - command name or function name. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: INPUT LINE variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE # filenum , variable$ -DESCRIPTION: Reads entire line from a file into variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE "prompt string" , variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$ after displaying a prompt ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LLIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the printer on stderr. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LOOP UNTIL value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is nonz-zero. ------------------------------------------------------------- - SYNTAX: LOOP WHILE value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is zero. ------------------------------------------------------------- - SYNTAX: LOOP -DESCRIPTION: Bottom of a DO - LOOP structure. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: LSET variable$ = value -DESCRIPTION: Left-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the right with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MARGIN # filenumber, width -DESCRIPTION: Sets the file margin for writing; filenumber - <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: MERGE filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program. Lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: MID$( variable$, start [, count ] ) = value -DESCRIPTION: Replaces a subtring of variable$ with value. ------------------------------------------------------------- - SYNTAX: NAME old$ AS new$ -DESCRIPTION: Changes the name of an existing file. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR GOSUB errline -DESCRIPTION: When a trappable error occurs, execute GOSUB - errline. The error handler must terminate - with a RETURN command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOSUB. ------------------------------------------------------------- - SYNTAX: ON ERROR GOTO errline -DESCRIPTION: When a trappable error occurs, execute GOTO - errline. The error handler must terminate - with a RESUME command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME NEXT -DESCRIPTION: When a trappable error occurs, execution - continues with the next line. Valid when - OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: ON ERROR RETURN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR RETURN NEXT -DESCRIPTION: When a trappable error occurs, execution - continues with the next line. Valid when - OPTION ERROR GOSUB. ------------------------------------------------------------- - SYNTAX: ON TIMER count GOSUB line -DESCRIPTION: Specifies a line (or label) to gosub when - count seconds have elaspsed after TIMER ON is - executed. The interrupt routine should end - with a RETURN command. Timer events only - occur in running BASIC programs. The - resolution of the clock is implementation - defined. ------------------------------------------------------------- - SYNTAX: OPEN filename$ - FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL - AS [#] fileenumber - [LEN [=] record-length] -DESCRIPTION: Opens a file for use. - RANDOM requires LEN. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: POP -DESCRIPTION: Pops one GOSUB from the return stack. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: RECALL ArrayName -DESCRIPTION: Loads a numeric array from a file saved using - STORE. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: REPEAT -DESCRIPTION: Top of a REPEAT - UNTIL structure. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RESUME -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RESUME line -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the specified - line. ------------------------------------------------------------- - SYNTAX: RESUME NEXT -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the line after - ERL. ------------------------------------------------------------- - SYNTAX: RESUME 0 -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RSET variable$ = value -DESCRIPTION: Right-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the left with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: SELECT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: SELECT CASE value -DESCRIPTION: Introduces a multi-line conditional selection - statement. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: STORE ArrayName -DESCRIPTION: Saves a numeric array into a file for later - loading by RECALL. ------------------------------------------------------------- - SYNTAX: SUB name [ ( parameter [,...] ) ] -DESCRIPTION: Top line of a multi-line SUB definition. The - variable names specified are local to the SUB - definition, and are initialized BYVAL when - the subroutine is invoked by another routine. ------------------------------------------------------------- - SYNTAX: SUBEND -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. Same as END SUB. ------------------------------------------------------------- - SYNTAX: SWAP variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TIMER -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TIMER OFF -DESCRIPTION: TIMER OFF terminates the timer interrupt. ------------------------------------------------------------- - SYNTAX: TIMER ON -DESCRIPTION: TIMER ON enables the timer interrupt. When - the specified seconds have elapsed, TIMER - STOP is internaly executed before the - interrupt is taken. TIMER ON should be - executed just before the RETURN command if - you want the interrupt to occur again. ------------------------------------------------------------- - SYNTAX: TIMER STOP -DESCRIPTION: TIMER STOP disables the interrupt, but the - count continues. ------------------------------------------------------------- - SYNTAX: TLOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TSAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: UNTIL value -DESCRIPTION: Bottom of a REPEAT - UNTIL. If the value is - non-zero, then the loop is terminated. ------------------------------------------------------------- - SYNTAX: VARS -DESCRIPTION: Prints a list of all global variables. ------------------------------------------------------------- - SYNTAX: WEND -DESCRIPTION: Bottom of a WHILE - WEND structure. ------------------------------------------------------------- - SYNTAX: WHILE value -DESCRIPTION: Top of a WHILE - WEND structure. If the value - is non-zero, then the loop is terminated. ------------------------------------------------------------- - SYNTAX: WRITE # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. ------------------------------------------------------------- - SYNTAX: WRITE value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ACOS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ACOS(X) <= PI. X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ACS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ACS(X) <= PI. X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ACSD( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in degrees, where 0 <= - ACSD(X) <= 180. X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ACSG( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in gradians, where 0 <= - ACS(X) <= 200. X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ANGLE( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The angle in radians between the positive - x-axis and the vector joining the origin to - the point with coordinates (X, Y), where -PI - < ANGLE(X,Y) <= PI. X and Y must not both be - 0. Note that the counterclockwise is - positive, e.g., ANGLE(1,1) = 45 degrees. ------------------------------------------------------------- - SYNTAX: N = ARCSIN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ARCSIN(X) <= PI/2; X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ARCTAN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ARCTAN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = ARGC -DESCRIPTION: The number of parameters passed to a FUNCTION - or SUB. If not in a FUNCTION or SUB, returns - -1. ------------------------------------------------------------- - SYNTAX: S$ = ARGT$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The type of the Xth parameter to a FUNCTION or - SUB. If the Xth parameter is a string, then - return value is "$". If the Xth parameter is - a number, then return value is not "$". X in - [1,ARGC]. ------------------------------------------------------------- - SYNTAX: N = ARGV( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The numeric value of the Xth parameter to a - FUNCTION or SUB. X in [1,ARGC] and ARGT$( X - ) <> "$". ------------------------------------------------------------- - SYNTAX: S$ = ARGV$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The string value of the Xth parameter to a - FUNCTION or SUB. X in [1,ARGC] and ARGT$( X - ) = "$". ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ASC( A$, X ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The numeric code of the Xth character in A$. - Same as ASC(MID$(A$,X)). ------------------------------------------------------------- - SYNTAX: N = ASCII( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASCII("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ASIN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASIN(X) <= PI/2; X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ASN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASN(X) <= PI/2; X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ASND( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in degrees, where -90 <= - ASN(X) <= 90; X shall be in the range -1 <= X - <= 1. ------------------------------------------------------------- - SYNTAX: N = ASNG( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in gradians, where -100 <= - ASNG(X) <= 100; X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ATAN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATAN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = ATND( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in degrees, i.e. the angle - whose tangent is X, where -90 < ATND(X) < 90. ------------------------------------------------------------- - SYNTAX: N = ATNG( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in gradians, i.e. the - angle whose tangent is X, where -100 < - ATND(X) < 100. ------------------------------------------------------------- - SYNTAX: N = BASE -DESCRIPTION: The current OPTION BASE setting. ------------------------------------------------------------- - SYNTAX: N = CCUR( X ) - PARAMETER: X is a number, [MINCUR,MAXCUR] -DESCRIPTION: The currency (64-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CDBL( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The double-precision value of X. ------------------------------------------------------------- - SYNTAX: N = CEIL( X ) - PARAMETER: X is a number -DESCRIPTION: The smallest integer not less than X. ------------------------------------------------------------- - SYNTAX: S$ = CHAR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The string Y bytes long consisting of CHR$(X). - Same as STRING$(Y,X). ------------------------------------------------------------- - SYNTAX: S$ = CHAR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHAR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CHDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Changes to the directory named to A$. ------------------------------------------------------------- - SYNTAX: S$ = CHR( X ) - PARAMETER: X is a number -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR(65) returns "A". ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CINT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The short (16-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = CLK( X ) - PARAMETER: X is a number -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of CLK - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of CLK shall - be "99:99:99". The value of TIME$ at - midnight is "00:00:00". The value of - parameter X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = CLK$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = CLNG( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The long (32-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = CLOSE -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = CLS -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: N = CODE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, CODE("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = COLOR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sets the foreground text color to X, and the - background text color to Y. ------------------------------------------------------------- - SYNTAX: S$ = COMMAND$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The command line parameters. COMMAND$(0) is - the BASIC program name. COMMAND$(1) is the - first parameter after the BASIC program name, - and so on. Support for parameters varies by - operating system, compiler, and so on. X in - [0..9] ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = COSD( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in degrees. ------------------------------------------------------------- - SYNTAX: N = COSG( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in gradians. ------------------------------------------------------------- - SYNTAX: N = COSH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic cosine of X. ------------------------------------------------------------- - SYNTAX: N = COT( X ) - PARAMETER: X is a number -DESCRIPTION: The cotangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = COUNT -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = CSC( X ) - PARAMETER: X is a number -DESCRIPTION: The cosecant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic cosine of X. ------------------------------------------------------------- - SYNTAX: N = CSNG( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The single-precision value of X. ------------------------------------------------------------- - SYNTAX: S$ = CUR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Locates the cursor to row X, column Y. ------------------------------------------------------------- - SYNTAX: N = CVC( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(CUR) -DESCRIPTION: The currency (64-bit) integer value in A$, - which was created by MKC$. ------------------------------------------------------------- - SYNTAX: N = CVD( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(DBL) -DESCRIPTION: The double-precision value in A$, which was - created by MKD$. ------------------------------------------------------------- - SYNTAX: N = CVI( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(INT) -DESCRIPTION: The short (16-bit) integer value in A$, which - was created by MKI$. ------------------------------------------------------------- - SYNTAX: N = CVL( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(LNG) -DESCRIPTION: The long (32-bit) integer value in A$, which - was created by MKL$. ------------------------------------------------------------- - SYNTAX: N = CVS( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(FLT) -DESCRIPTION: The single-precision value in A$, which was - created by MKS$. ------------------------------------------------------------- - SYNTAX: N = DATE -DESCRIPTION: The current date in decimal form YYYDDD, where - YYY are the number of years since 1900 and - DDD is the ordinal number of the current day - of the year; e.g., the value of DATE on May - 9, 1977 was 77129. If there is no calendar - available, then the value of DATE shall be - -1. ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = DEG -DESCRIPTION: Configures the math functions to accept and - return angles in degrees. ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = DEGREE -DESCRIPTION: Configures the math functions to accept and - return angles in degrees. ------------------------------------------------------------- - SYNTAX: N = DEGREE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. ------------------------------------------------------------- - SYNTAX: N = DIM( ... ) -DESCRIPTION: DIM( arrayname ). The total number of - dimensions of the array. ------------------------------------------------------------- - SYNTAX: N = ENVIRON( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Sends the environment variable expression - contained in A$ to the host operating system. - A$ must contain the "=" character. ------------------------------------------------------------- - SYNTAX: S$ = ENVIRON$( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the environment variable named - A$. ------------------------------------------------------------- - SYNTAX: N = EOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: If device number X is at the end-of-file, then - -1, otherwise 0. ------------------------------------------------------------- - SYNTAX: N = EPS( X ) - PARAMETER: X is a number -DESCRIPTION: The maximum of (X-X1,X2-X, sigma) where X1 and - X2 are the predecessor and successor of X and - signma is the smallest positive value - representable. If X has no predecessor the - X1=X and if X has no successor the X2=X. - Note EPS(0) is the smallest positive number - representable by the implementation, and is - therefor implementation-defined. Note also - that EPS may produce different results for - different arithmetic options (see OPTION - ARITHMETIC). ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: S$ = ERR$ -DESCRIPTION: The last error message. ------------------------------------------------------------- - SYNTAX: N = ERRL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERRN -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERROR( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Simulate the error number in X. ------------------------------------------------------------- - SYNTAX: N = ERROR( X, A$ ) - PARAMETER: X is a number, [0,255] - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: Simulate the error number in X, with a custom - message in A$. ------------------------------------------------------------- - SYNTAX: S$ = ERROR$ -DESCRIPTION: The last error message. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FILEATTR( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, if Y = 1 then returns open mode, - otherwise returns zero. ------------------------------------------------------------- - SYNTAX: N = FILES -DESCRIPTION: Displays all the file names. ------------------------------------------------------------- - SYNTAX: N = FILES( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = FLOW -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = FP( X ) - PARAMETER: X is a number -DESCRIPTION: The fractional part of X, i.e. X - IP(X). ------------------------------------------------------------- - SYNTAX: N = FRAC( X ) - PARAMETER: X is a number -DESCRIPTION: The fractional part of X, i.e. X - IP(X). ------------------------------------------------------------- - SYNTAX: N = FRE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = FRE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. ------------------------------------------------------------- - SYNTAX: N = FRE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = FREEFILE -DESCRIPTION: The next available file number. ------------------------------------------------------------- - SYNTAX: N = GET( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets the next available record. ------------------------------------------------------------- - SYNTAX: N = GET( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: N = GRAD -DESCRIPTION: Configures the math functions to accept and - return angles in gradians. ------------------------------------------------------------- - SYNTAX: N = GRADIAN -DESCRIPTION: Configures the math functions to accept and - return angles in gradians. ------------------------------------------------------------- - SYNTAX: S$ = HEX$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the hexadecimal (base 16) representation - of X. ------------------------------------------------------------- - SYNTAX: N = HOME -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: N = INDEX( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. ------------------------------------------------------------- - SYNTAX: S$ = INKEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = INP( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X characters, read from the - terminal. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The string of X characters, read from file Y. ------------------------------------------------------------- - SYNTAX: N = INSTR( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. ------------------------------------------------------------- - SYNTAX: N = INSTR( X, A$, B$ ) - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = IP( X ) - PARAMETER: X is a number -DESCRIPTION: The integer part of X, i.e., - SGN(X)*INT(ABS(X)). ------------------------------------------------------------- - SYNTAX: S$ = KEY -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: S$ = KEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = KILL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: N = LBOUND( ... ) -DESCRIPTION: LBOUND( arrayname [, dimension] ). The lower - bound of the array. The dimension defaults - to 1. dimension in [1,DIM(arrayname)] ------------------------------------------------------------- - SYNTAX: S$ = LCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = LOCATE( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Locates the cursor to row X, column Y. ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG10( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG2( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The base 2 logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LPOS -DESCRIPTION: The current cursor position in the line for - the printer. ------------------------------------------------------------- - SYNTAX: S$ = LTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - leading space characters. ------------------------------------------------------------- - SYNTAX: N = LWIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For printer, sets the line width to X. Zero - means no wrapping will occur. ------------------------------------------------------------- - SYNTAX: N = MAX( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MAX( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: N = MAXBYT -DESCRIPTION: The largest finite positive number - representable as a BYTE; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MAXCUR -DESCRIPTION: The largest finite positive number - representable as a CURRENCY; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MAXDBL -DESCRIPTION: The largest finite positive number - representable as a DOUBLE; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MAXDEV -DESCRIPTION: The largest finite positive number useable as - a FILE NUMBER; implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MAXINT -DESCRIPTION: The largest finite positive number - representable as an INTEGER; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MAXLEN -DESCRIPTION: The maximum string length. ------------------------------------------------------------- - SYNTAX: N = MAXLEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The maximum length associated with the - simple-string-variable A$. ------------------------------------------------------------- - SYNTAX: N = MAXLNG -DESCRIPTION: The largest finite positive number - representable as a LONG; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MAXLVL -DESCRIPTION: The maximum stack level; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MAXNUM -DESCRIPTION: The largest finite positive number - representable and manipulable by the - implementation; implementation-defined. - MAXNUM may represent diffent number for - different arithmetic options (see OPTION - ARITHMETIC). ------------------------------------------------------------- - SYNTAX: N = MAXSNG -DESCRIPTION: The largest finite positive number - representable as a SINGLE; - implementation-defined. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = MIN( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MIN( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: N = MINBYT -DESCRIPTION: The largest finite negative number - representable as a BYTE; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MINCUR -DESCRIPTION: The largest finite negative number - representable as a CURRENCY; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MINDBL -DESCRIPTION: The largest finite negative number - representable as a DOUBLE; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MINDEV -DESCRIPTION: The largest finite negative number useable as - a FILE NUMBER; implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MININT -DESCRIPTION: The largest finite negative number - representable as an INTEGER; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MINLNG -DESCRIPTION: The largest finite negative number - representable as a LONG; - implementation-defined. ------------------------------------------------------------- - SYNTAX: N = MINNUM -DESCRIPTION: The largest finite negative number - representable and manipulable by the - implementation; implementation-defined. - MINNUM may represent diffent number for - different arithmetic options (see OPTION - ARITHMETIC). ------------------------------------------------------------- - SYNTAX: N = MINSNG -DESCRIPTION: The largest finite negative number - representable as a SINGLE; - implementation-defined. ------------------------------------------------------------- - SYNTAX: S$ = MKC$( X ) - PARAMETER: X is a number, [MINCUR,MAXCUR] -DESCRIPTION: The internal representation of the currency - (64-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKD$( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = MKDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Makes the directory named in A$. ------------------------------------------------------------- - SYNTAX: S$ = MKI$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The internal representation of the short - (16-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKL$( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The internal representation of the long - (32-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKS$( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = NAME( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Rename the file named A$ into B$. ------------------------------------------------------------- - SYNTAX: N = NOFLOW -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = NULL( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Appends X null characters after each line - printed by LPRINT or LLIST. ------------------------------------------------------------- - SYNTAX: N = NUM -DESCRIPTION: The number of values processed by the last MAT - INPUT. Zero means error. ------------------------------------------------------------- - SYNTAX: N = NUM( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, NUM( " 123.5 " ) = 123.5, NUM( - "2.E-99" ) could be zero, and NUM( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = OCT$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the octal (base 8) representation of X. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Default the - record length. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$, Y ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Y is the - record length. ------------------------------------------------------------- - SYNTAX: N = ORD( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The ordinal position of the character named by - the string associated with A$ in the - collating sequence of ASCII character set, - where the first member of the character set - is in position zero. The acceptable values - for the standard character set are shown in - Table 1. ------------------------------------------------------------- - SYNTAX: N = OUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware port X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PAUSE( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then PAUSE - does nothing. The resolution is - implementation defined. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PI -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter. ------------------------------------------------------------- - SYNTAX: N = PI( X ) - PARAMETER: X is a number -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter, - times X. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = POS( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The current cursor position in the line for - file X. ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the first character of - A$. If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the Xth character of A$. - If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = PUT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts the next available record. ------------------------------------------------------------- - SYNTAX: N = PUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: N = RAD -DESCRIPTION: Configures the math functions to accept and - return angles in radians. ------------------------------------------------------------- - SYNTAX: N = RAD( X ) - PARAMETER: X is a number -DESCRIPTION: The number of radians in X degrees. ------------------------------------------------------------- - SYNTAX: N = RADIAN -DESCRIPTION: Configures the math functions to accept and - return angles in radians. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = REMAINDER( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, <> 0 -DESCRIPTION: The remainder function, i.e., X-Y*IP(X/Y). Y - shall not equal zero. ------------------------------------------------------------- - SYNTAX: S$ = REPEAT$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string consisting of X copies of - LEFT$(A$,1); X > 0. ------------------------------------------------------------- - SYNTAX: S$ = REPEAT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string consisting of X copies of CHR$(Y); - X > 0. ------------------------------------------------------------- - SYNTAX: N = RESET -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RMDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the directory named in A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = ROUND( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The value of X rounded to Y decimal digits to - the right of the decimal point (or -Y digits - to the left if Y < 0); i.e., - INT(X*10^Y+.5)/10^Y. Y must be in [-32,32]. ------------------------------------------------------------- - SYNTAX: S$ = RTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - trailing space characters. ------------------------------------------------------------- - SYNTAX: N = SEC( X ) - PARAMETER: X is a number -DESCRIPTION: The secant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SEEK( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = SEEK( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, move to record number Y; the first - record number is 1. ------------------------------------------------------------- - SYNTAX: S$ = SEG( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = SEG$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SHELL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The exit code resulting from the execution of - an operating system command. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SIND( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in degrees. ------------------------------------------------------------- - SYNTAX: N = SING( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in gradians. ------------------------------------------------------------- - SYNTAX: N = SINH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. ------------------------------------------------------------- - SYNTAX: N = SIZE( ... ) -DESCRIPTION: SIZE( arrayname ). The total number of items - in the array. ------------------------------------------------------------- - SYNTAX: N = SLEEP( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then SLEEP - does nothing. The resolution is - implementation defined. ------------------------------------------------------------- - SYNTAX: N = SNH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. ------------------------------------------------------------- - SYNTAX: S$ = SPACE$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = STRING( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string X bytes long consisting of the - first character of A$. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TAND( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in degrees. ------------------------------------------------------------- - SYNTAX: N = TANG( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in gradians. ------------------------------------------------------------- - SYNTAX: N = TANH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic tangent of X. ------------------------------------------------------------- - SYNTAX: N = TIME -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: S$ = TIME$( X ) - PARAMETER: X is a number -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = TIMER -DESCRIPTION: The time in the system clock in seconds - elapsed since midnight. ------------------------------------------------------------- - SYNTAX: S$ = TRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string resulting from removing both - leading and trailing spaces from A$. ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = TRUNCATE( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The value of X truncated to Y decimal digits - to the right of the decimal point (or -Y - digits to the left if Y < 0); i.e., - IP(X*10^Y)/10^Y. Y in [-32,32]. ------------------------------------------------------------- - SYNTAX: N = UBOUND( ... ) -DESCRIPTION: UBOUND( arrayname [, dimension] ). The upper - bound of the array. The dimension defaults - to 1. dimension in [1,DIM(arrayname)] ------------------------------------------------------------- - SYNTAX: S$ = UCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: N = WAIT( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then WAIT does - nothing. The resolution is implementation - defined. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Waits for the value of (INP(X) AND Y) to - become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y, Z ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] - PARAMETER: Z is a number, [0,255] -DESCRIPTION: Waits for the value of ((INP(X) XOR Z) AND Y) - to become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For console, sets the line width to X. Zero - means no wrapping will occur. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: If X = 0, sets the console width to Y. - If X < 0, sets the printer width to Y. - If X is an open file number, sets the file - line width to Y. - Otherwise sets the console rows to X and the - line width to Y. - A value of zero for Y means no wrapping will - occur. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X MOD Y -DESCRIPTION: Integer Modulus - PRECEDENCE: 10 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X & Y -DESCRIPTION: Concatenation - PRECEDENCE: 8 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: A$ LIKE B$ -DESCRIPTION: Compare A$ to the pattern in B$ - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/CALL-360.txt b/bwbtest/DOCS/CALL-360.txt deleted file mode 100644 index b63c8b3..0000000 --- a/bwbtest/DOCS/CALL-360.txt +++ /dev/null @@ -1,1104 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "CALL/360" -REM INTERNAL ID: S70 -REM DESCRIPTION: SBC CALL/360 Mainframe BASIC -REM REFERENCE: CALL/360: BASIC Reference Handbook -REM by International Business Machines Corporation -REM (c) 1970, The Service Bureau Corporation -REM http://bitsavers.trailing-edge.com/pdf/ibm/360/os/ -REM call_360/CALL_360_BASIC_Reference_Handbook_1970.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS OFF -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 1 -OPTION RECLEN 0 -OPTION DATE "%Y/%m/%d" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE " " -OPTION PUNCT SINGLE " " -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG " " -OPTION PUNCT INTEGER " " -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT " " -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE ":" -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM " " -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA " " -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "!" -OPTION USING DOLLAR " " -OPTION USING FILLER " " -OPTION USING LITERAL " " -OPTION USING FIRST " " -OPTION USING ALL " " -OPTION USING LENGTH " " - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CLOSE -DESCRIPTION: Closes all files. ------------------------------------------------------------- - SYNTAX: CLOSE filename$ [, ...] -DESCRIPTION: Closes a file. ------------------------------------------------------------- - SYNTAX: CLOSE filenumber [, ...] -DESCRIPTION: Closes a file. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GET filename$ , scalar [, ...] -DESCRIPTION: Gets one (or more) values from a file. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IMAGE "format string" -DESCRIPTION: Provides format string for PRINT USING - linenum. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT GET filename$, arrayname -DESCRIPTION: Matrix get. ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT PUT filename$, arrayname -DESCRIPTION: Matrix put. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPEN filenumber, - filename$, - INPUT|OUTPUT|APPEND|VIRTUAL -DESCRIPTION: Opens a file for use. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PAUSE [comment] -DESCRIPTION: Pauses processing until the ENTER key is - presseed. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: PUT filename$ , value [, ...] -DESCRIPTION: Puts one (or more) values into a file. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RESET filename$ [, ...] -DESCRIPTION: Positions an input or output file to the - bcginning. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: USE parameter$ -DESCRIPTION: Receives the value from the calling CHAINing - program. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ACS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ACS(X) <= PI. X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ASN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASN(X) <= PI/2; X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: S$ = CHR( X ) - PARAMETER: X is a number -DESCRIPTION: The output of PRINT X. A$ = CHR(X) is the - opposite of X = NUM(A$). ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = COT( X ) - PARAMETER: X is a number -DESCRIPTION: The cotangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSC( X ) - PARAMETER: X is a number -DESCRIPTION: The cosecant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = HCS( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic cosine of X. ------------------------------------------------------------- - SYNTAX: N = HSN( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. ------------------------------------------------------------- - SYNTAX: N = HTN( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic tangent of X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LGT( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LTW( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The base 2 logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = MAX( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MAX( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: N = MIN( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MIN( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: N = NUM( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, NUM( " 123.5 " ) = 123.5, NUM( - "2.E-99" ) could be zero, and NUM( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = RAD( X ) - PARAMETER: X is a number -DESCRIPTION: The number of radians in X degrees. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SEC( X ) - PARAMETER: X is a number -DESCRIPTION: The secant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TIM -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/CBASIC-II.txt b/bwbtest/DOCS/CBASIC-II.txt deleted file mode 100644 index fcb792d..0000000 --- a/bwbtest/DOCS/CBASIC-II.txt +++ /dev/null @@ -1,1121 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "CBASIC-II" -REM INTERNAL ID: C77 -REM DESCRIPTION: CBASIC-II for CP/M -REM REFERENCE: CBASIC-II -REM by Compiler Systems -REM (c) 1977, Compiler Systems -REM http://bitsavers.trailing-edge.com/pdf/digitalResearch/cb80/ -REM CBASIC_Version_2_Jan81.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 0 -OPTION DATE "%Y/%m/%d" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "'" -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "\" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "/" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: COMMON variable [, ...] -DESCRIPTION: Designates variables to be passed to a CHAINed - program. ------------------------------------------------------------- - SYNTAX: CONSOLE [WIDTH width] -DESCRIPTION: Directs the output of PRINT commands to the - console (stdout), and optionally changes the - console width. ------------------------------------------------------------- - SYNTAX: CREATE filename$ [ RECL reclen ] AS filenum - [ BUFF number ] [ RECS size ] -DESCRIPTION: Creates the file and opens it. If the file - already exists, then it is ereased. If the - file cannot be created, then an error occurs. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DELETE filenumber -DESCRIPTION: Closes and deletes the file OPEN as - filenumber. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: FEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FILE filename$ [( reclen )] -DESCRIPTION: Opens the file in READ mode. ------------------------------------------------------------- - SYNTAX: FILE # X, A$ -DESCRIPTION: If A$ is "*" then closes file # X. If A$ is - not "*" then opens the file named A$ in READ - mode. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF END # filenum THEN line -DESCRIPTION: Assigns the line number of an EOF error - handler. When an EOF occurs, a 'GOTO line' - is executed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LLIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the printer on stderr. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LPRINTER [WIDTH width] -DESCRIPTION: Directs the output of PRINT commands to the - printer (stderr), and optionally changes the - printer width. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MERGE filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program. Lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: MID$( variable$, start [, count ] ) = value -DESCRIPTION: Replaces a subtring of variable$ with value. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPEN filename$ - [ RECL reclen ] - AS filenumber - [ BUFF ignored ] - [ RECS ignored ] -DESCRIPTION: Opens a file for use. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: WEND -DESCRIPTION: Bottom of a WHILE - WEND structure. ------------------------------------------------------------- - SYNTAX: WHILE value -DESCRIPTION: Top of a WHILE - WEND structure. If the value - is non-zero, then the loop is terminated. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: S$ = COMMAND$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The command line parameters. COMMAND$(0) is - the BASIC program name. COMMAND$(1) is the - first parameter after the BASIC program name, - and so on. Support for parameters varies by - operating system, compiler, and so on. X in - [0..9] ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FLOAT( X ) - PARAMETER: X is a number -DESCRIPTION: The rounded integer valuet of X. ------------------------------------------------------------- - SYNTAX: N = FRE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = INITIALIZE -DESCRIPTION: This function is provided for backward - compatibility only and it always returns a - fixed value of 0. ------------------------------------------------------------- - SYNTAX: N = INP( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = INT%( X ) - PARAMETER: X is a number -DESCRIPTION: The rounded integer valuet of X. ------------------------------------------------------------- - SYNTAX: S$ = LCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = MATCH( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the Xth character of A$. - If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = OUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware port X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RENAME( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Rename file A$ to B$. If successful, the - returns -1 else returns 0. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SIZE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The total number of 1KB blockes required to - contain the file. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = UCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/CMDS.HTM b/bwbtest/DOCS/CMDS.HTM deleted file mode 100644 index b921301..0000000 --- a/bwbtest/DOCS/CMDS.HTM +++ /dev/null @@ -1,411 +0,0 @@ -CMDS -

LEGEND


- - - - - - - - - - - - - - - - - - - - - - - - - - - -
IDNAMEDESCRIPTION
B15BYWATERBywater BASIC 3
B93BYWATER-2Bywater BASIC 2
S70CALL/360SBC CALL/360 Mainframe BASIC
C77CBASIC-IICBASIC-II for CP/M
D64DARTMOUTHDartmouth DTSS BASIC
E78ECMA-55ANSI Minimal BASIC
E86ECMA-116ANSI Full BASIC
G74GCOSGE 600 Mainframe BASIC
H14HAARDTbas 2.4 by Michael Haardt
HB1HANDBOOK1The BASIC Handbook, 1st Edition
HB2HANDBOOK2The BASIC Handbook, 2nd Edition
H80HEATHHeath Benton Harbor BASIC
B84IBASICBurroughs B1000 IBASIC
G65MARK-IGE 265 Mainframe BASIC
G67MARK-IIGE 435 Mainframe BASIC
M80MBASICMicrosoft BASIC-80 for Xenix
D73PDP-8DEC PDP-8 BASIC
D70PDP-11DEC PDP-11 BASIC
R86RBASICMicronics RBASIC for 6809 FLEX
D71RSTS-11DEC RSTS-11 BASIC-PLUS
I70SYSTEM/360IBM System/360 Mainframe BASIC
I73SYSTEM/370IBM System/370 Mainframe BASIC
T80TRS-80TRS-80 Model I/III/4 LBASIC
V09VINTAGEVintage BASIC 1.0.1
T79XBASICTSC XBASIC for 6800 FLEX
-
-

DETAILS


- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COMMANDB15B93S70C77D64E78E86G74H14HB1HB2H80B84G65G67M80D73D70R86D71I70I73T80V09T79
APPEND filename$X X X X
APPEND # filenumber X X XX
ASXX X X XX X X
AT X
AT END # filenum THEN line X
AUTO [start [, increment]]X XX X X X
BACKSPACE # X X X XX
BREAK line [, ...]]X XX X
BUILD [start [, increment]] X
BYEX X XX XXXXX XX X
CALL subname( [parameter [, ...] ] )XX X X
CASE constant [TO constant]XX X X
CASE IF operator constantXX X X
CASE IS operator constantXX X X
CASE ELSEXX X X
CHAIN filename$ [, linenumber]XXXX X XXXXXXX XXXXX X
CHANGE A$ TO XX X X X XX X
CHANGE X TO A$X X X X XX X
CLEARXX XXXX X XX X X
CLOAD [filename$]X XX X X X
CLOAD* arraynameX XX X X X
CLOSE X XX
CLOSE filename$ [, ...] X XX
CLOSE filenumber [, ...] X XX
CLR XX
CMDSXX
COMMON variable [, ...]XX X X X X X X
CONSOLE [WIDTH width] X
CONST variable [, ...] = valueX
CONTX XX X X XX X X
CONTINUE XX
COPY source$ TO target$ X
CREATE filename$ [ RECL reclen ] AS filenum -[ BUFF number ] [ RECS size ] X
CSAVE [filename$]X XX X X X
CSAVE* ArrayNameX XX X X X
DATA constant [, ...]XXXXXXXXXXXXXXXXXXXXXXXXX
DEC variable [,...] X
DEF FNname[( arg [,...] )] = valueXXXXXXXX XXXXXXXXXXXXXXXX
DEF FNname[( arg [,...] )]X X X XXXX X XX XXXX
DEFBYT letter[-letter] [, ...]X
DEFCUR letter[-letter] [, ...]X
DEFDBL letter[-letter] [, ...]XX XXX X X X
DEFINT letter[-letter] [, ...]XX XXX X X X
DEFLNG letter[-letter] [, ...]X
DEFSNG letter[-letter] [, ...]XX XX X X X
DEFSTR letter[-letter] [, ...]XX XXX X X X
DELETE filenumber X
DELETE line [- line]XX XXXXX XXX X X
DELIMIT # X, A$ X XX
DIM [# filenum,] variable([ lower TO ] upper)XXXXXXXXXXXXXXXXXXXXXXXXX
DISPLAY source$ X
DO UNTIL valueXX X X X
DOXX X X X
DO WHILE valueXX X X X
DOS X
DSP variable [, ...]]X XX
EDITXXXXXXXX XXXXXXX XXXXX X
ELSEXX X X XXXXX XXXXX XXX
ELSEIFXX X X XXXXX XXXXX XXX
ENDXXXXXXXXXXXXXXXXXXXXXXXXX
END DEF X
END FUNCTIONXX X X
END IFXX X X XXXXX XXXXX XXX
END SELECTXX X X
END SUBXX X X
ERASE variable [, ...]XX XXX X X X
EXCHANGE variable, variableX X
EXITXX X X X
EXIT DOXX X X
EXIT FORXX X X X
EXIT FUNCTIONXX X X
EXIT REPEATX X X
EXIT SUBXX X X
EXIT WHILEXX X
FEND X
FIELD [#] filenum, number AS variable$ [, ...]XX X X XX X X
FILE filename$ [( reclen )] X
FILE # X, A$ XX X XX
FILES A$[, ...] X X XX
FLEX X
FNCSXX
FNENDX X X XXXX X XX XXXX
FOR variable = start TO finish [STEP increment]XXXXXXXXXXXXXXXXXXXXXXXXX
FUNCTION [ ( parameter [, ... ] ) ]XX X X
GET # file_number , [ byte_number ] , scalar [,...] X
GET # file_number [ , RECORD record_number ] XX X
GET # file_number [ , RECORD record_number ] XX X
GET filename$ , scalar [, ...] X XX
GET # file_number [ , record_number ] X
GOX XXXXXXXXXX XXXXXXXXXXXX
GO SUB lineX XXXXXXXXXX XXXXXXXXXXXX
GO TO lineX XXXXXXXXXX XXXXXXXXXXXX
GOODBYEX X X X XX X
GOSUB lineXXXXXXXXXXXXXXXXXXXXXXXXX
GOTO lineXXXXXXXXXXXXXXXXXXXXXXXXX
HELP nameX
IF value THEN line1 [ELSE line2]XXXXXXXXXXXXXXXXXXXXXXXXX
IF END # filenum THEN line X
IF END # filenum THEN line X X XX
IF MORE # filenum THEN line X X XX
IF value THENXX X X XXXXX XXXXX XXX
IMAGE "format string" X XXX X XX
INC variable [,...] X
INPUT "prompt string" , variable [, ...]XXXXXXXXXXXXXXXXXXXXXXX X
INPUT # filenum , variable [, ...]sXXXXXXXXXXXXXXXXXXXXXXX X
INPUT variable [, ...]XXXXXXXXXXXXXXXXXXXXXXX X
INPUT LINE variable$X X X XX X X
INPUT LINE # filenum , variable$X X X XX X X
INPUT LINE "prompt string" , variable$X X X XX X X
[LET] variable [, ...] = valueXXXXXXXXXXXXXXXXXXXXXXXXX
LINEXX X XXX X XX X X
LINE INPUT [[#] filenum,]["prompt string";] variable$XX X XXX X XX X X
LINPUT [[#] filenum,]["prompt string";] variable$ X
LIST line1 [- line2]XXXXXXXXXXXXXXXXXXXXXXX X
LISTNH line1 [- line2]X XXX X XX XXX
LLIST line1 [- line2]X X X X X X X X
LOAD [filename$]XXXXXXXXXXX XXX XXXXX X
LOCAL [# filenum,] variable([ lower TO ] upper) X
LOOP UNTIL valueXX X X X
LOOP WHILE valueXX X X X
LOOPXX X X X
LPRINT [USING format-string$;] value ...X X XX X X X XXXX
LPRINTER [WIDTH width] X
LPT [filename$] X
LSET variable$ = valueXX X X XX X X
MAINTAINERXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDSXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS HTMLXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS IDXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS MANUALXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS_SWITCHXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER CMDS TABLEXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER DEBUGXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER DEBUG OFFXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER DEBUG ONXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCSXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS HTMLXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS IDXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS MANUALXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS SWITCHXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER FNCS TABLEXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER MANUALXXXXXXXXXXXXXXXXXXXXXXXXX
MAINTAINER STACKXXXXXXXXXXXXXXXXXXXXXXXXX
MARGIN # filenumber, widthX X X X XXX
MAT arrayname = value X X XXXX XXX XXX
MAT GET filename$, arrayname X X XX XX
MAT INPUT arrayname X X XXXX XXX XXX
MAT OUTPUT arrayname X
MAT PRINT arrayname X X XXXX XXX XXX
MAT PUT filename$, arrayname X X XX XX
MAT READ arrayname X X XXXX XXX XXX
MAT WRITE arrayname X XXXX XX
MERGE filename$XX X X X X X
MID$( variable$, start [, count ] ) = valueXX X X X X X X
MON X
NAME old$ AS new$XX X X X X
NEWXXXXXXXXXXX XXXXXXXXXX X
NEXT [variable]XXXXXXXXXXXXXXXXXXXXXXXXX
OFX XXXXXX XX XXX XXXXX X
OLD [filename$] X X X XX XX X
ON value GOSUB line [, ...]XXXXXXXXXXXXXXXX XXXXXXX
ON value GOTO line [, ...]XXXXXXXXXXXXXXXX XXXXXXX
ON ERRORXX XXX X XX X X
ON ERROR GOSUB errlineXX
ON ERROR GOTO errlineX XXX X XX X X
ON ERROR RESUMEX X X XX X X
ON ERROR RESUME NEXTX X X XX X X
ON ERROR RETURNX
ON ERROR RETURN NEXTX
ON TIMER count GOSUB lineX
OPEN NEW|OLD|VIRTUAL filename$ -AS filenumber X X
OPEN filename$ -FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL -AS [#] fileenumber -[LEN [=] record-length]XX X X X X
OPEN filename$ -FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL -AS FILE filenumber -[ ,RECORDSIZE ignored ] -[ ,CLUSTERSIZE ignored ] -[ ,MODE ignored ] X
OPEN filename -FOR READ|WRITE|VIRTUAL -AS FILE filenumber X
OPEN filename$ -[ RECL reclen ] -AS filenumber -[ BUFF ignored ] -[ RECS ignored ] X
OPEN filenumber, -filename$, -INPUT|OUTPUT|APPEND|VIRTUAL X XX
OPEN # filenumber: -filename$, -INPUT|OUTPUT|OUTIN|VIRTUAL X
OPTIONXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLEXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLE DEGREESXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLE GRADIANSXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ANGLE RADIANSXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETICXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETIC DECIMALXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETIC FIXEDXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ARITHMETIC NATIVEXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BASE integerXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGSXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGS BOOLEANXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGS OFFXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION BUGS ONXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPAREXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPARE BINARYXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPARE DATABASEXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COMPARE TEXTXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COVERAGEXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COVERAGE OFFXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION COVERAGE ONXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DATE format$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DIGITS integerXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLEXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLE COMMAND name$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLE FUNCTION name$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION DISABLE OPERATOR name$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION EDIT string$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLEXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLE COMMAND name$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLE FUNCTION name$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ENABLE OPERATOR name$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ERRORXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ERROR GOSUBXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ERROR GOTOXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION EXPLICITXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION EXTENSION string$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION FILES string$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION IMPLICITXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION INDENT integerXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION LABELSXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION LABELS OFFXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION LABELS ONXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PROMPT string$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCTXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT AT char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT BYTE char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT COMMENT char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT CURRENCY char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT DOUBLE char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT FILENUM char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT IMAGE char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT INPUT char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT INTEGER char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT LONG char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT LPAREN char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT_PRINT char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT QUOTE char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT RPAREN char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT SINGLE char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT STATEMENT char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION PUNCT STRING char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION RECLEN integerXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION RENUM string$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUNDXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUND BANKXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUND MATHXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ROUND TRUNCATEXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION SCALE integerXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION SLEEP doubleXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STDERR filename$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STDIN filename$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STDOUT filename$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STRICTXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STRICT OFFXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION STRICT ONXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINALXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINAL ADMXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINAL ANSIXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TERMINAL NONEXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TIME format$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TRACEXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TRACE OFFXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TRACE ONXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TYPOXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TYPO OFFXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION TYPO ONXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USINGXXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING ALL char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING COMMA char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING DIGIT char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING DOLLAR char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING EXRAD char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING FILLER char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING FIRST char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING LENGTH char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING LITERAL char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING MINUS char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING PERIOD char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION USING PLUS char$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION VERSION version$XXXXXXXXXXXXXXXXXXXXXXXXX
OPTION ZONE integerXXXXXXXXXXXXXXXXXXXXXXXXX
OUTPUT # filenum, value [, .... ] X
OUTPUT value [, .... ] X
PAUSE [comment] X XX
PDEL line [- line] X X
POPX X
PRINT # filenum , [USING format$;] value ...XXXXXXXXXXXXXXXXXXXXXXX X
PRINT [USING format$;] value ...XXXXXXXXXXXXXXXXXXXXXXXXX
PTP [filename$] X
PTR [filename$] X
PUT # file_number , [ byte_number ] , scalar [,...] X
PUT filename$ , value [, ...] X XX
PUT # file_number [ , RECORD record_number ] XX X
PUT # file_number [ , record_number ] X
QUITX XXXXXX XX XXX
READ variable [, ...]XXXXXXXXXXXXXXXXXXXXXXXXX
RECALL ArrayNameX X
REM ...XXXXXXXXXXXXXXXXXXXXXXXXX
RENAME from$ TO to$ X
RENAME from$ AS to$ X
RENAME [filename$] X X XX X
RENUMXX XXX X X XX X X
RENUMBER XX X
REPEATX X X
REPLACE [filename$] X
RESET filename$ [, ...] X XX
RESTORE [line]XXXXXXXXXXXXXXXXXXXXXXXXX
RESUMEX XXX X XX X X
RESUME lineX XXX X XX X X
RESUME NEXTX XXX X XX X X
RESUME 0X XXX X XX X X
RETURNXXXXXXXXXXXXXXXXXXXXXXXXX
RSET variable$ = valueXX X X XX X X
RUN filename$XXXXXXXXXXXXXXXXXXXXXXX X
RUN lineXXXXXXXXXXXXXXXXXXXXXXX X
RUNXXXXXXXXXXXXXXXXXXXXXXX X
RUNNH lineX XXX X XX XXX
RUNNH filename$X XXX X XX XXX
RUNNHX XXX X XX XXX
SAVE [filename$]XXXXXXXXXXXXXXXXXXXXXXX X
SCRATCH X XXXXX
SCRATCH # X X XXXXX
SELECTXX X X
SELECT CASE valueXX X X
STEPXXXXXXXXXXXXXXXXXXXXXXXXX
STOPXXXXXXXXXXXXXXXXXXXXXXXXX
STORE ArrayNameX X
SUB name [ ( parameter [,...] ) ]XX X X X
SUB END X
SUB EXIT X
SUBENDX X X
SUBEXIT X
SWAP variable, variableXX X X X XX X X
SYSTEMXXXXXXXXXXX XXX XXXXX
TEXT letter[-letter] [, ...] XX
THENX XXXXXXXXXXXXXXXXXXXXXXX
TIMERX
TIMER OFFX
TIMER ONX
TIMER STOPX
TLOAD [filename$]X X
TOXXXXXXXXXXXXXXXXXXXXXXXXX
TRACE X XX X X
TRACE OFF X XX X X
TRACE ON X XX X X
TSAVE [filename$]X X
TTY X
TTY IN X
TTY OUT X
UNTIL valueX X X
USE parameter$ X XX
VARSXX
WENDXX X XXX X X X
WHILE valueXX X XXX X X X
WRITE # filenum, value [, .... ]XX XX XXX X X
WRITE value [, .... ]XX XX XXX X X
- - diff --git a/bwbtest/DOCS/DARTMOUTH.txt b/bwbtest/DOCS/DARTMOUTH.txt deleted file mode 100644 index 9e34b63..0000000 --- a/bwbtest/DOCS/DARTMOUTH.txt +++ /dev/null @@ -1,1020 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "DARTMOUTH" -REM INTERNAL ID: D64 -REM DESCRIPTION: Dartmouth DTSS BASIC -REM REFERENCE: BASIC -REM by Computation Center, Dartmouth College -REM (c) 1964, Trustees of Dartmouth College -REM http://www.bitsavers.org/pdf/dartmouth/ -REM BASIC_Oct64.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS OFF -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "%m/%d/%y" -OPTION TIME "%H:%M" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT " " -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE ":" -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: APPEND # filenumber -DESCRIPTION: Positions filenumber at EOF and sets the file - to writing; filenumber <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: BACKSPACE # X -DESCRIPTION: Points the file to the previous item. ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: CHANGE A$ TO X -DESCRIPTION: Changes a string to a numeric array. ------------------------------------------------------------- - SYNTAX: CHANGE X TO A$ -DESCRIPTION: Changes a numeric array to a string. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: FILE # X, A$ -DESCRIPTION: If A$ is "*" then closes file # X. If A$ is - not "*" then opens the file named A$ in READ - mode. ------------------------------------------------------------- - SYNTAX: FILES A$[, ...] -DESCRIPTION: If A$ is not "*" opens the file named A$ in - READ mode. The first filename of the first - FILES command is assocated with file number - 1. Note that multiple FILES commands - accumulate. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOODBYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF END # filenum THEN line -DESCRIPTION: Single line standard IF command. If the file - is at EOF , then branch to line. Otherwise - continue to the next line. ------------------------------------------------------------- - SYNTAX: IF MORE # filenum THEN line -DESCRIPTION: Single line standard IF command. If the file - is not at EOF , then branch to line. - Otherwise continue to the next line. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MARGIN # filenumber, width -DESCRIPTION: Sets the file margin for writing; filenumber - <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: MAT WRITE arrayname -DESCRIPTION: Matrix write. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OLD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENAME [filename$] -DESCRIPTION: Changes the file name which will be used by - SAVE. Does not save the file. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CATALOG -DESCRIPTION: Displays all the file names. ------------------------------------------------------------- - SYNTAX: N = CATALOG( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = RANDOM -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = UNSAVE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/ECMA-116.txt b/bwbtest/DOCS/ECMA-116.txt deleted file mode 100644 index 1d30b80..0000000 --- a/bwbtest/DOCS/ECMA-116.txt +++ /dev/null @@ -1,1328 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "ECMA-116" -REM INTERNAL ID: E86 -REM DESCRIPTION: ANSI Full BASIC -REM REFERENCE: STANDARD ECMA-116: Full BASIC -REM by EUROPEAN COMPUTER MANUFACTURERS ASSOCIATION -REM (c) 1986, EUROPEAN COMPUTER MANUFACTURERS ASSOCIATION -REM http://www.ecma-international.org/publications/files/ -REM ECMA-ST-WITHDRAWN/ECMA-116,%201st%20edition,%20June%201986.pdf -REM -OPTION STRICT ON -OPTION ANGLE RADIANS -OPTION BUGS OFF -OPTION LABELS ON -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 1 -OPTION RECLEN 128 -OPTION DATE "%Y-%m-%d" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "!" -OPTION PUNCT STATEMENT " " -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: CASE constant [TO constant] -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE IF operator constant -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE IS operator constant -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE ELSE -DESCRIPTION: Introduces a default SELECT CASE element. ------------------------------------------------------------- - SYNTAX: COMMON variable [, ...] -DESCRIPTION: Designates variables to be passed to a CHAINed - program. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: DO UNTIL value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is non-zero. ------------------------------------------------------------- - SYNTAX: DO -DESCRIPTION: Top of a DO - LOOP structure. ------------------------------------------------------------- - SYNTAX: DO WHILE value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is zero. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END FUNCTION -DESCRIPTION: Specifies the last line of a multi-line - FUNCTION definition. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: END SELECT -DESCRIPTION: Specifies the last line of a multi-line SELECT - CASE definition. ------------------------------------------------------------- - SYNTAX: END SUB -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. ------------------------------------------------------------- - SYNTAX: EXIT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: EXIT DO -DESCRIPTION: Immediately exits the inner-most DO-LOOP - strucure. ------------------------------------------------------------- - SYNTAX: EXIT FOR -DESCRIPTION: Immediately exits the inner-most FOR-NEXT - strucure. ------------------------------------------------------------- - SYNTAX: EXIT FUNCTION -DESCRIPTION: Immediately exits the inner-most multi-line - FUNCTION strucure. ------------------------------------------------------------- - SYNTAX: EXIT SUB -DESCRIPTION: Immediately exits the inner-most multi-line - SUB strucure. ------------------------------------------------------------- - SYNTAX: EXIT WHILE -DESCRIPTION: Immediately exits the inner-most WHILE-END - strucure. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: FUNCTION [ ( parameter [, ... ] ) ] -DESCRIPTION: Top line of a multi-line FUNCTION definition. - The variable names specified are local to the - FUNCTION definition, and are initialized - BYVAL when the function is invoked by another - routine. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LOOP UNTIL value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is nonz-zero. ------------------------------------------------------------- - SYNTAX: LOOP WHILE value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is zero. ------------------------------------------------------------- - SYNTAX: LOOP -DESCRIPTION: Bottom of a DO - LOOP structure. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: SELECT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: SELECT CASE value -DESCRIPTION: Introduces a multi-line conditional selection - statement. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SUB name [ ( parameter [,...] ) ] -DESCRIPTION: Top line of a multi-line SUB definition. The - variable names specified are local to the SUB - definition, and are initialized BYVAL when - the subroutine is invoked by another routine. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ACOS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ACOS(X) <= PI. X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ANGLE( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The angle in radians between the positive - x-axis and the vector joining the origin to - the point with coordinates (X, Y), where -PI - < ANGLE(X,Y) <= PI. X and Y must not both be - 0. Note that the counterclockwise is - positive, e.g., ANGLE(1,1) = 45 degrees. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ASIN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASIN(X) <= PI/2; X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CEIL( X ) - PARAMETER: X is a number -DESCRIPTION: The smallest integer not less than X. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = COSH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic cosine of X. ------------------------------------------------------------- - SYNTAX: N = COT( X ) - PARAMETER: X is a number -DESCRIPTION: The cotangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSC( X ) - PARAMETER: X is a number -DESCRIPTION: The cosecant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = DATE -DESCRIPTION: The current date in decimal form YYYDDD, where - YYY are the number of years since 1900 and - DDD is the ordinal number of the current day - of the year; e.g., the value of DATE on May - 9, 1977 was 77129. If there is no calendar - available, then the value of DATE shall be - -1. ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = EPS( X ) - PARAMETER: X is a number -DESCRIPTION: The maximum of (X-X1,X2-X, sigma) where X1 and - X2 are the predecessor and successor of X and - signma is the smallest positive value - representable. If X has no predecessor the - X1=X and if X has no successor the X2=X. - Note EPS(0) is the smallest positive number - representable by the implementation, and is - therefor implementation-defined. Note also - that EPS may produce different results for - different arithmetic options (see OPTION - ARITHMETIC). ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = FP( X ) - PARAMETER: X is a number -DESCRIPTION: The fractional part of X, i.e. X - IP(X). ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = IP( X ) - PARAMETER: X is a number -DESCRIPTION: The integer part of X, i.e., - SGN(X)*INT(ABS(X)). ------------------------------------------------------------- - SYNTAX: N = LBOUND( ... ) -DESCRIPTION: LBOUND( arrayname [, dimension] ). The lower - bound of the array. The dimension defaults - to 1. dimension in [1,DIM(arrayname)] ------------------------------------------------------------- - SYNTAX: S$ = LCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG10( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG2( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The base 2 logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = LTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - leading space characters. ------------------------------------------------------------- - SYNTAX: N = MAX( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: N = MAXLEN -DESCRIPTION: The maximum string length. ------------------------------------------------------------- - SYNTAX: N = MAXLEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The maximum length associated with the - simple-string-variable A$. ------------------------------------------------------------- - SYNTAX: N = MAXNUM -DESCRIPTION: The largest finite positive number - representable and manipulable by the - implementation; implementation-defined. - MAXNUM may represent diffent number for - different arithmetic options (see OPTION - ARITHMETIC). ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = MIN( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: N = MOD( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, <> 0 -DESCRIPTION: X modulo Y, i.e., X-Y*INT(X/Y). Y shall not - equal zero. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = ORD( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The ordinal position of the character named by - the string associated with A$ in the - collating sequence of ASCII character set, - where the first member of the character set - is in position zero. The acceptable values - for the standard character set are shown in - Table 1. ------------------------------------------------------------- - SYNTAX: N = PI -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter. ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the first character of - A$. If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the Xth character of A$. - If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = RAD( X ) - PARAMETER: X is a number -DESCRIPTION: The number of radians in X degrees. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = REMAINDER( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, <> 0 -DESCRIPTION: The remainder function, i.e., X-Y*IP(X/Y). Y - shall not equal zero. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = ROUND( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The value of X rounded to Y decimal digits to - the right of the decimal point (or -Y digits - to the left if Y < 0); i.e., - INT(X*10^Y+.5)/10^Y. Y must be in [-32,32]. ------------------------------------------------------------- - SYNTAX: S$ = RTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - trailing space characters. ------------------------------------------------------------- - SYNTAX: N = SEC( X ) - PARAMETER: X is a number -DESCRIPTION: The secant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SEEK( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SINH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. ------------------------------------------------------------- - SYNTAX: N = SIZE( ... ) -DESCRIPTION: SIZE( arrayname ). The total number of items - in the array. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string X bytes long consisting of the - first character of A$. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TANH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic tangent of X. ------------------------------------------------------------- - SYNTAX: N = TIME -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: S$ = TRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string resulting from removing both - leading and trailing spaces from A$. ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = TRUNCATE( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The value of X truncated to Y decimal digits - to the right of the decimal point (or -Y - digits to the left if Y < 0); i.e., - IP(X*10^Y)/10^Y. Y in [-32,32]. ------------------------------------------------------------- - SYNTAX: N = UBOUND( ... ) -DESCRIPTION: UBOUND( arrayname [, dimension] ). The upper - bound of the array. The dimension defaults - to 1. dimension in [1,DIM(arrayname)] ------------------------------------------------------------- - SYNTAX: S$ = UCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/ECMA-55.txt b/bwbtest/DOCS/ECMA-55.txt deleted file mode 100644 index cd8bdaf..0000000 --- a/bwbtest/DOCS/ECMA-55.txt +++ /dev/null @@ -1,887 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "ECMA-55" -REM INTERNAL ID: E78 -REM DESCRIPTION: ANSI Minimal BASIC -REM REFERENCE: STANDARD ECMA-55: Minimal BASIC -REM by EUROPEAN COMPUTER MANUFACTURERS ASSOCIATION -REM (c) 1978, EUROPEAN COMPUTER MANUFACTURERS ASSOCIATION -REM http://www.ecma-international.org/publications/files/ -REM ECMA-ST-WITHDRAWN/ECMA-55,%201st%20Edition,%20January%201978.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS OFF -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "%m/%d/%Y" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT " " -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/FNCS.HTM b/bwbtest/DOCS/FNCS.HTM deleted file mode 100644 index 39f580e..0000000 --- a/bwbtest/DOCS/FNCS.HTM +++ /dev/null @@ -1,380 +0,0 @@ -FNCS -

LEGEND


- - - - - - - - - - - - - - - - - - - - - - - - - - - -
IDNAMEDESCRIPTION
B15BYWATERBywater BASIC 3
B93BYWATER-2Bywater BASIC 2
S70CALL/360SBC CALL/360 Mainframe BASIC
C77CBASIC-IICBASIC-II for CP/M
D64DARTMOUTHDartmouth DTSS BASIC
E78ECMA-55ANSI Minimal BASIC
E86ECMA-116ANSI Full BASIC
G74GCOSGE 600 Mainframe BASIC
H14HAARDTbas 2.4 by Michael Haardt
HB1HANDBOOK1The BASIC Handbook, 1st Edition
HB2HANDBOOK2The BASIC Handbook, 2nd Edition
H80HEATHHeath Benton Harbor BASIC
B84IBASICBurroughs B1000 IBASIC
G65MARK-IGE 265 Mainframe BASIC
G67MARK-IIGE 435 Mainframe BASIC
M80MBASICMicrosoft BASIC-80 for Xenix
D73PDP-8DEC PDP-8 BASIC
D70PDP-11DEC PDP-11 BASIC
R86RBASICMicronics RBASIC for 6809 FLEX
D71RSTS-11DEC RSTS-11 BASIC-PLUS
I70SYSTEM/360IBM System/360 Mainframe BASIC
I73SYSTEM/370IBM System/370 Mainframe BASIC
T80TRS-80TRS-80 Model I/III/4 LBASIC
V09VINTAGEVintage BASIC 1.0.1
T79XBASICTSC XBASIC for 6800 FLEX
-
-

DETAILS


- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
FUNCTIONB15B93S70C77D64E78E86G74H14HB1HB2H80B84G65G67M80D73D70R86D71I70I73T80V09T79
N = ABS( X )XXXXXXXXXXXXXXXXXXXXXXXXX
N = ACOS( X )X X X
N = ACS( X )X X X XX
N = ACSD( X )X X
N = ACSG( X )X X
N = ANGLE( X, Y )X X X
N = ARCCOS( X ) X X
N = ARCSIN( X )X X X X
N = ARCTAN( X )X XX X X
N = ARGCX
S$ = ARGT$( X )X
N = ARGV( X )X
S$ = ARGV$( X )X
N = ASC( A$ )XXXXXXXXXXXX XXX X XXXXX
N = ASC( A$, X )X XX
N = ASCII( A$ )X X X
N = ASIN( X )X X X
N = ASN( X )X X XX XX
N = ASND( X )X X
N = ASNG( X )X X
N = ATAN( X )X XX
N = ATN( X )XXXXXXXXXXXXXXXXXXXXXXXXX
N = ATND( X )X X
N = ATNG( X )X X
N = BASEX
S$ = BIN$( X ) X
S$ = BIN$( X, Y ) X
N = CATALOG X X XX X
N = CATALOG( A$ ) X X XX X
N = CCUR( X )X
N = CDBL( X )X XX X X X
N = CEIL( X )X X X
S$ = CHAR( X, Y )X XX
S$ = CHAR$( X )X XX
N = CHDIR( A$ )XX X X X X
S$ = CHR( X )X XX
S$ = CHR( X ) X XX
S$ = CHR$( X )XX XXXXXXXXXXXXX XX XXX
N = CIN( X ) X
N = CINT( X )XX XXX X X X
N = CLG( X )X XX
N = CLK( X ) X XX
S$ = CLK( X )X XX
S$ = CLK$X X XX X
N = CLNG( X )X X X X
N = CLOG( X )X XX
N = CLOSEXX X X X X X
N = CLOSE( X )XX X X XXX X XX X X
N = CLSXX XXX X X
N = CNTRL( X, Y ) X
N = CODE( A$ )X X X
N = COLOR( X, Y )X X X X
S$ = COMMAND$ X
S$ = COMMAND$( X )X X X
N = COS( X )XXXXXXXXXXXXXXXXXXXXXXXXX
N = COSD( X )X X
N = COSG( X )X X
N = COSH( X )X X
N = COT( X )X X XX X X XX
N = COUNTX X
N = CSC( X )X X X X XX
N = CSH( X )X X
N = CSNG( X )XX XX X X X
S$ = CUR( X, Y )X X
N = CVC( A$ )X
N = CVD( A$ )XX X X XX X X
N = CVI( A$ )XX X X XX X X
N = CVL( A$ )X X XX X X
N = CVS( A$ )XX X X XX X X
S$ = DAT$ X X
N = DATEX X X
S$ = DATE$XX X X X X XX X X
S$ = DATE$( X ) X
N = DEGX XX
N = DEG( X ) X
N = DEG( X )X X X XXX X XX
N = DEGREEX X
N = DEGREE( X )X X
N = DETX X XX X X X XXX
N = DIGITS( X ) X X
N = DIGITS( X, Y ) X X X
N = DIM( ... )X
N = DPEEK( X ) X X
N = DPOKE( X, Y ) X X
S$ = EDIT$( A$, X ) X
N = ENVIRON( A$ )XX X X X X
S$ = ENVIRON$( A$ )XX X X X X
N = EOF( X )XX X X X X X
N = EPS( X )X X X
N = ERLXX XXX X XX X X
N = ERRXX XXX X XX X X
S$ = ERR$X X X X
N = ERRLX X
N = ERRNX X
N = ERROR( X )XX XX X X X
N = ERROR( X, A$ )X XX
S$ = ERROR$X X X X
N = EXAM( X ) XX
N = EXEC( A$ ) X X
N = EXF( ... ) X
N = EXP( X )XXXXXXXXXXXXXXXXXXXXXXXXX
N = FALSE X
N = FETCH( X ) XX
N = FILEATTR( X, Y )X X X X
N = FILESXX X X X
N = FILES( A$ )XX X X X
N = FILL( X, Y ) XX
N = FIX( X )X X XXXXXXX XXX XXXX
N = FLOAT( X ) X
N = FLOWX X
N = FP( X )X X X X
N = FRAC( X )X X X
N = FREX X XX X XX X X
N = FRE( A$ )X XX X XX X X
N = FRE( X )X XX X XX X X
N = FREE XXX
N = FREE( X ) XX
N = FREE( A$ ) XX
N = FREEFILEX X
N = GET( X )XX X X X X
N = GET( X ) X
N = GET( X, Y )XX X X X X
N = GRADX X
N = GRADIANX X
N = HCS( X ) X XX
N = HEX( A$ ) X X
S$ = HEX$( X )XX X X X X
S$ = HEX$( X, Y ) X
N = HOMEX XXX
N = HSN( X ) X XX
N = HTN( X ) X XX
S$ = INCH$ X X
N = INDEX( A$, B$ )X X
N = INF X
N = INITIALIZE X
S$ = INKEY$XX XXX X X X
N = INP( X )X X XXX X X X
S$ = INPUT$( X )X X X X X X
S$ = INPUT$( X, Y )X X X X X
N = INSTR( A$, B$ )XX X X X X X
N = INSTR( X, A$, B$ )XX X X X XX X X
N = INSTR( A$, B$, X ) X
N = INT( X )XXXXXXXXXXXXXXXXXXXXXXXXX
N = INT( X ) X X
N = IP( X )X X X X
S$ = KEYX X
S$ = KEY$X X
N = KILL( A$ )XX X X XX X X
N = LBOUND( ... )X X
S$ = LCASE$( A$ )X X X X X X X
N = LDIM( ... ) X
S$ = LEFT( A$, X ) XX X
S$ = LEFT$( A$, X )XX X X XXXX X X XX
N = LEN( A$ )XXXXXXXXXXXXXXXX XXXXXXX
N = LGT( X ) X XX XX
S$ = LIN( X ) XX
N = LN( X ) XX
N = LNO( X ) X
N = LOC( X )XX XXX XXX X X
N = LOCATE( X, Y )XX X X X X
N = LOCK( X ) X
N = LOF( X )XX XXX XXX X X
N = LOG( X )XXXXXXXXXXXXXXXXXXXXXXXXX
N = LOG10( X )X X XXX X X
N = LOG2( X )X X X X
N = LOGE( X ) XX
S$ = LOWER$( A$ ) X
N = LPOSX X X X
S$ = LTRIM$( A$ )X X X X X X
N = LTW( X ) X XX
N = LWIDTH( X )X X X X
S$ = LWRC$( A$ ) X
N = MATCH( A$, B$, X ) X X X
N = MAX( X, Y )X X X X XXX XX
S$ = MAX( A$, B$ )X X XX XX
N = MAXBYTX
N = MAXCURX
N = MAXDBLX
N = MAXDEVX
N = MAXINTX
N = MAXLENX X
N = MAXLEN( A$ )X X
N = MAXLNGX
N = MAXLVLX
N = MAXNUMX X
N = MAXSNGX
N = MEM XX
S$ = MID( A$, X ) XX X
S$ = MID( A$, X, Y ) XX X
S$ = MID$( A$, X )XX X X XXXX X XX XXX
S$ = MID$( A$, X, Y )XX X X XXXX X XX XXX
N = MIN( X, Y )X X X X XXX XX
S$ = MIN( A$, B$ )X X XX XX
N = MINBYTX
N = MINCURX
N = MINDBLX
N = MINDEVX
N = MININTX
N = MINLNGX
N = MINNUMX
N = MINSNGX
S$ = MKC$( X )X
S$ = MKD$( X )XX X X XX X X
N = MKDIR( A$ )XX X X X X
S$ = MKI$( X )XX X X XX X X
S$ = MKL$( X )X X XX X X
S$ = MKS$( X )XX X X XX X X
N = MOD( X, Y ) X X
N = NAME( A$, B$ )X X X X
N = NAME( ... ) X X
N = NOFLOWX X
N = NOTRACE XX
N = NULL( X )X X X X
N = NUMX X X X
N = NUM( A$ )X X X XX
S$ = NUM$( X )X X XXXX XX XXX XXXX
S$ = OCT$( X )XX X X X X
S$ = OCT$( X, Y ) X
N = OPEN( A$, X, B$ )XX X X X X X
N = OPEN( A$, X, B$, Y )XX X X X X X
N = ORD( A$ )X X X
N = OUT( X, Y )X X XXXX X X X
N = PAD( X ) X
N = PAUSE( X )X XX
N = PDL( X ) XX
N = PEEK( X )X X XXXX X XX X X
N = PIX X XXX X X
N = PI( X )X X
N = PIN( X ) XXX
N = POKE( X, Y )X X XXXX X XX X X
N = POSXX X X X X XX X X
N = POS( X )X X XX X XX X X
N = POS( A$, B$ )X X X X X
N = POS( A$, B$, X )X X X X X
N = PRECISION( X ) X
N = PTR( ... ) X X
N = PUT( X ) X
N = PUT( X )XX X X X X
N = PUT( X, Y )XX X X X X
N = RADX XX
N = RAD( X )X X X X X X XX
N = RADIANX XX
N = RAN XX
N = RAN( X ) XX
N = RANDOM X X XX XX
N = RANDOM( X ) XX X
N = RANDOMIZEXXXXXXXXXXXXXXXXXX XXXXX
N = RANDOMIZE( X )XXXXXXXXXXXX XXX XXXX
N = REM( X, Y ) X
N = REMAINDER( X, Y )X X
N = RENAME( A$, B$ ) X X X
S$ = REPEAT$( X, A$ )X X X X
S$ = REPEAT$( X, Y )X X X X
N = RESETX XX X X X
N = RESIDUE X
S$ = RIGHT( A$, X ) XX X
S$ = RIGHT$( A$, X )XX X X XXXX X XX XXX
N = RMDIR( A$ )XX X X X
N = RNDXXXXXXXXXXXXXXXXXXXXXXXXX
N = RND( X )XXXXXXXXXXXX XXXXXXXXXXXX
N = ROUND( X, Y )X X
S$ = RTRIM$( A$ )X X X X X X
N = SCALE( X ) X X
N = SEC( X )X X X X XX
N = SEEK( X )X X X X X
N = SEEK( X, Y )X X X X
N = SEG( X ) X
S$ = SEG( A$, X, Y )X X
S$ = SEG$( A$, X, Y )X X X
N = SGN( X )XXXXXXXXX XXXXXXXXXXXXXXX
N = SHELL( A$ )X X X X X
N = SIN( X )XXXXXXXXXXXXXXXXXXXXXXX X
N = SIND( X )X X
N = SING( X )X X
N = SINH( X )X X X X
N = SIZE( A$ ) X
N = SIZE( ... )X X
N = SLEEP( X )X XXX X
N = SNH( X )X X
S$ = SPA( X ) XX
S$ = SPACE( X ) XX X
S$ = SPACE$( X )XX XXX X X X
S$ = SPC( X )XXXXXXXXXXXX XXXXXXXXXXXX
N = SQR( X )XXXXXXXXXXXXXXXXXXXXXXXXX
N = SQRT( X ) XX
S$ = STR( X, Y )X X
S$ = STR$( X )XXXXXXXXXXXXXXXX XXXXXXX
S$ = STRING( X, Y )X X
S$ = STRING$( X, A$ )XX X XXX X X X
S$ = STRING$( X, Y )XX X XXX X X X
S$ = STRIP$( A$ ) X
N = STUFF( X, Y ) XX
S$ = TAB( X )XXXXXXXXXXXXXXXXXXXXXXXXX
N = TAN( X )XXXXXXXXXXXXXXXXXXXXXXXXX
N = TAND( X )X X
N = TANG( X )X X
N = TANH( X )X X X X
N = TI XX
S$ = TI$ XX
N = TIM X X XX X XX
N = TIM( X ) X XX XX
N = TIMEX X XXX X X
N = TIME( X ) XX X
S$ = TIME$XX X XXX X X X X
S$ = TIME$( X )X X X
N = TIMERXX X X X X
N = TOP X
N = TRACE XX
N = TRACE( X ) X
S$ = TRIM$( A$ )X X X X X
N = TROFFXX X XXX X X X X
N = TRONXX X XXX X X X X
N = TRUE X
N = TRUNCATE( X, Y )X X
N = UBOUND( ... )X X
S$ = UCASE$( A$ )X X X X X X X
N = UDIM( ... ) X
N = UNLOCK( X ) X
N = UNSAVE( A$ ) X X X XX X
S$ = UPPER$( A$ ) X
S$ = UPRC$( A$ ) X
N = USR( ... ) X X X X
N = USR0( ... ) X X X X
N = USR1( ... ) X X X X
N = USR2( ... ) X X X X
N = USR3( ... ) X X X X
N = USR4( ... ) X X X X
N = USR5( ... ) X X X X
N = USR6( ... ) X X X X
N = USR7( ... ) X X X X
N = USR8( ... ) X X X X
N = USR9( ... ) X X X X
N = UUF( ... ) X
N = VAL( A$ )XXXXXXXXXXXXXXXX XXXXXXX
N = VARPTR( ... ) X
N = VTAB( X ) XX
N = WAIT( X )X XX X
N = WAIT( X, Y )X XXX X X X
N = WAIT( X, Y, Z )X XXX X X X
N = WIDTH( X )XX X X X X
N = WIDTH( X, Y )XX XXX X X X
N = ZONE( X ) X
N = ZONE( X, Y ) X
- - diff --git a/bwbtest/DOCS/GCOS.txt b/bwbtest/DOCS/GCOS.txt deleted file mode 100644 index f398dc3..0000000 --- a/bwbtest/DOCS/GCOS.txt +++ /dev/null @@ -1,1127 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "GCOS" -REM INTERNAL ID: G74 -REM DESCRIPTION: GE 600 Mainframe BASIC -REM REFERENCE: TIME-SHARING SYSTEM POCKET GUIDE, SERIES 600/6000 GCOS -REM by Honeywell -REM (c) 1974, Honeywell -REM http://www.trailingedge.com/misc/ -REM GCOS-TSS-PocketGuide.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS OFF -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "%m/%d/%y" -OPTION TIME "%H:%M" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "'" -OPTION PUNCT STATEMENT " " -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE ":" -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: APPEND # filenumber -DESCRIPTION: Positions filenumber at EOF and sets the file - to writing; filenumber <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: BACKSPACE # X -DESCRIPTION: Points the file to the previous item. ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CHANGE A$ TO X -DESCRIPTION: Changes a string to a numeric array. ------------------------------------------------------------- - SYNTAX: CHANGE X TO A$ -DESCRIPTION: Changes a numeric array to a string. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DELIMIT # X, A$ -DESCRIPTION: Sets the delimiter for READ # and WRITE #. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: FILE # X, A$ -DESCRIPTION: If A$ is "*" then closes file # X. If A$ is - not "*" then opens the file named A$ in READ - mode. ------------------------------------------------------------- - SYNTAX: FILES A$[, ...] -DESCRIPTION: If A$ is not "*" opens the file named A$ in - READ mode. The first filename of the first - FILES command is assocated with file number - 1. Note that multiple FILES commands - accumulate. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOODBYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF END # filenum THEN line -DESCRIPTION: Single line standard IF command. If the file - is at EOF , then branch to line. Otherwise - continue to the next line. ------------------------------------------------------------- - SYNTAX: IF MORE # filenum THEN line -DESCRIPTION: Single line standard IF command. If the file - is not at EOF , then branch to line. - Otherwise continue to the next line. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MARGIN # filenumber, width -DESCRIPTION: Sets the file margin for writing; filenumber - <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT GET filename$, arrayname -DESCRIPTION: Matrix get. ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT PUT filename$, arrayname -DESCRIPTION: Matrix put. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: MAT WRITE arrayname -DESCRIPTION: Matrix write. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OLD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENAME [filename$] -DESCRIPTION: Changes the file name which will be used by - SAVE. Does not save the file. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: SCRATCH -DESCRIPTION: SCRATCH Deletes the program in memory and - clears all variables. ------------------------------------------------------------- - SYNTAX: SCRATCH # X -DESCRIPTION: Sets the file mode to writing. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TRACE -DESCRIPTION: Enables tracing. ------------------------------------------------------------- - SYNTAX: TRACE OFF -DESCRIPTION: Disables tracing. ------------------------------------------------------------- - SYNTAX: TRACE ON -DESCRIPTION: Enables tracing. ------------------------------------------------------------- - SYNTAX: WRITE # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. ------------------------------------------------------------- - SYNTAX: WRITE value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CATALOG -DESCRIPTION: Displays all the file names. ------------------------------------------------------------- - SYNTAX: N = CATALOG( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CLK( X ) - PARAMETER: X is a number -DESCRIPTION: The time elapsed since the previous midnight, - expressed in hours; e.g., the value of CLK at - 3:15 PM is 15.25. If there is no clock - available, then the value of CLK shall be -1. - The value of CLK at midnight shall be zero - (not 24). The value of X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = CLK$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = COT( X ) - PARAMETER: X is a number -DESCRIPTION: The cotangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = DAT$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = NUM -DESCRIPTION: The number of values processed by the last MAT - INPUT. Zero means error. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = RANDOM -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TIM -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: N = TIM( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: If X is 0, returns minutes in current hour. - If X is 1, returns hours in current day. If - X is 2, returns days in current year. If X - is 3, returns years since 1900. Any other - value for X is an ERROR. ------------------------------------------------------------- - SYNTAX: N = UNSAVE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/HAARDT.txt b/bwbtest/DOCS/HAARDT.txt deleted file mode 100644 index 50449dc..0000000 --- a/bwbtest/DOCS/HAARDT.txt +++ /dev/null @@ -1,1799 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "HAARDT" -REM INTERNAL ID: H14 -REM DESCRIPTION: bas 2.4 by Michael Haardt -REM REFERENCE: BAS -REM by by Michael Haardt -REM (c) 2014, by Michael Haardt -REM http://www.moria.de/~michael/bas/ -REM bas-2.4.tar.gz -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 1 -OPTION DATE "%m/%d/%Y" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG " " -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "'" -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: AS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: CALL subname( [parameter [, ...] ] ) -DESCRIPTION: Calls a subroutine that was defined by SUB and - END SUB. ------------------------------------------------------------- - SYNTAX: CASE constant [TO constant] -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE IF operator constant -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE IS operator constant -DESCRIPTION: Introduces an element of a SELECT CASE - statement. Multiple tests must be seperated - a comma. For example: CASE 1, 2 TO 3, IS > - 4, IF < 5 ------------------------------------------------------------- - SYNTAX: CASE ELSE -DESCRIPTION: Introduces a default SELECT CASE element. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: COPY source$ TO target$ -DESCRIPTION: Copy an exisitng file. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEC variable [,...] -DESCRIPTION: Decrement a numeric variable. ------------------------------------------------------------- - SYNTAX: DEFDBL letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFINT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSTR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: DISPLAY source$ -DESCRIPTION: Display an exisitng text file. ------------------------------------------------------------- - SYNTAX: DO UNTIL value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is non-zero. ------------------------------------------------------------- - SYNTAX: DO -DESCRIPTION: Top of a DO - LOOP structure. ------------------------------------------------------------- - SYNTAX: DO WHILE value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is zero. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END FUNCTION -DESCRIPTION: Specifies the last line of a multi-line - FUNCTION definition. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: END SELECT -DESCRIPTION: Specifies the last line of a multi-line SELECT - CASE definition. ------------------------------------------------------------- - SYNTAX: END SUB -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. ------------------------------------------------------------- - SYNTAX: ERASE variable [, ...] -DESCRIPTION: Eliminates arrayed variables from a program. ------------------------------------------------------------- - SYNTAX: EXIT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: EXIT DO -DESCRIPTION: Immediately exits the inner-most DO-LOOP - strucure. ------------------------------------------------------------- - SYNTAX: EXIT FOR -DESCRIPTION: Immediately exits the inner-most FOR-NEXT - strucure. ------------------------------------------------------------- - SYNTAX: EXIT FUNCTION -DESCRIPTION: Immediately exits the inner-most multi-line - FUNCTION strucure. ------------------------------------------------------------- - SYNTAX: EXIT REPEAT -DESCRIPTION: Exit a REPEAT - UNTIL structure. ------------------------------------------------------------- - SYNTAX: EXIT SUB -DESCRIPTION: Immediately exits the inner-most multi-line - SUB strucure. ------------------------------------------------------------- - SYNTAX: FIELD [#] filenum, number AS variable$ [, ...] -DESCRIPTION: Assigns number bytes in the buffer of random - file filenum to the variable variable$. GET - will automatically update the variable, and - PUT will automatically use the variable. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: FUNCTION [ ( parameter [, ... ] ) ] -DESCRIPTION: Top line of a multi-line FUNCTION definition. - The variable names specified are local to the - FUNCTION definition, and are initialized - BYVAL when the function is invoked by another - routine. ------------------------------------------------------------- - SYNTAX: GET # file_number , [ byte_number ] , scalar - [,...] -DESCRIPTION: Gets one (or more) values from a BINARY file. ------------------------------------------------------------- - SYNTAX: GET # file_number [ , record_number ] -DESCRIPTION: Gets one (or more) values from a RANDOM file. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: IMAGE "format string" -DESCRIPTION: Provides format string for PRINT USING - linenum. ------------------------------------------------------------- - SYNTAX: INC variable [,...] -DESCRIPTION: Increment a numeric variable. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LLIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the printer on stderr. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LOCAL [# filenum,] variable([ lower TO ] - upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. Only supported inside a FUNCTION or - SUB. ------------------------------------------------------------- - SYNTAX: LOOP UNTIL value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is nonz-zero. ------------------------------------------------------------- - SYNTAX: LOOP WHILE value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is zero. ------------------------------------------------------------- - SYNTAX: LOOP -DESCRIPTION: Bottom of a DO - LOOP structure. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: LSET variable$ = value -DESCRIPTION: Left-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the right with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: MAT WRITE arrayname -DESCRIPTION: Matrix write. ------------------------------------------------------------- - SYNTAX: MID$( variable$, start [, count ] ) = value -DESCRIPTION: Replaces a subtring of variable$ with value. ------------------------------------------------------------- - SYNTAX: NAME old$ AS new$ -DESCRIPTION: Changes the name of an existing file. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR GOTO errline -DESCRIPTION: When a trappable error occurs, execute GOTO - errline. The error handler must terminate - with a RESUME command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME NEXT -DESCRIPTION: When a trappable error occurs, execution - continues with the next line. Valid when - OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: OPEN filename$ - FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL - AS [#] fileenumber - [LEN [=] record-length] -DESCRIPTION: Opens a file for use. - RANDOM requires LEN. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: PUT # file_number , [ byte_number ] , scalar - [,...] -DESCRIPTION: Puts one (or more) values into a BINARY file. ------------------------------------------------------------- - SYNTAX: PUT # file_number [ , record_number ] -DESCRIPTION: Puts one (or more) values into a RANDOM file. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENAME from$ TO to$ -DESCRIPTION: Rename a file. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: REPEAT -DESCRIPTION: Top of a REPEAT - UNTIL structure. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RESUME -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RESUME line -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the specified - line. ------------------------------------------------------------- - SYNTAX: RESUME NEXT -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the line after - ERL. ------------------------------------------------------------- - SYNTAX: RESUME 0 -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RSET variable$ = value -DESCRIPTION: Right-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the left with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: SELECT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: SELECT CASE value -DESCRIPTION: Introduces a multi-line conditional selection - statement. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SUB name [ ( parameter [,...] ) ] -DESCRIPTION: Top line of a multi-line SUB definition. The - variable names specified are local to the SUB - definition, and are initialized BYVAL when - the subroutine is invoked by another routine. ------------------------------------------------------------- - SYNTAX: SUB END -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. Same as END SUB. ------------------------------------------------------------- - SYNTAX: SUB EXIT -DESCRIPTION: Immediately exits the inner-most multi-line - SUB strucure. Same as EXIT SUB. ------------------------------------------------------------- - SYNTAX: SUBEND -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. Same as END SUB. ------------------------------------------------------------- - SYNTAX: SUBEXIT -DESCRIPTION: Immediately exits the inner-most multi-line - SUB strucure. Same as EXIT SUB. ------------------------------------------------------------- - SYNTAX: SWAP variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: UNTIL value -DESCRIPTION: Bottom of a REPEAT - UNTIL. If the value is - non-zero, then the loop is terminated. ------------------------------------------------------------- - SYNTAX: WEND -DESCRIPTION: Bottom of a WHILE - WEND structure. ------------------------------------------------------------- - SYNTAX: WHILE value -DESCRIPTION: Top of a WHILE - WEND structure. If the value - is non-zero, then the loop is terminated. ------------------------------------------------------------- - SYNTAX: WRITE # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. ------------------------------------------------------------- - SYNTAX: WRITE value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: S$ = BIN$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the binary (base 2) representation of X. ------------------------------------------------------------- - SYNTAX: S$ = BIN$( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The the binary (base 2) representation of X. - The result will be at least Y digits long. ------------------------------------------------------------- - SYNTAX: N = CHDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Changes to the directory named to A$. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CINT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The short (16-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLOSE -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = CLS -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: N = CODE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, CODE("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = COLOR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sets the foreground text color to X, and the - background text color to Y. ------------------------------------------------------------- - SYNTAX: S$ = COMMAND$ -DESCRIPTION: All command line parameters, concatenated with - one space between each. Support for - parameters varies by operating system, - compiler, and so on. ------------------------------------------------------------- - SYNTAX: S$ = COMMAND$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The command line parameters. COMMAND$(0) is - the BASIC program name. COMMAND$(1) is the - first parameter after the BASIC program name, - and so on. Support for parameters varies by - operating system, compiler, and so on. X in - [0..9] ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CVD( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(DBL) -DESCRIPTION: The double-precision value in A$, which was - created by MKD$. ------------------------------------------------------------- - SYNTAX: N = CVI( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(INT) -DESCRIPTION: The short (16-bit) integer value in A$, which - was created by MKI$. ------------------------------------------------------------- - SYNTAX: N = CVS( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(FLT) -DESCRIPTION: The single-precision value in A$, which was - created by MKS$. ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. ------------------------------------------------------------- - SYNTAX: S$ = EDIT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Edits the characters of A$, according to the - bits set in X. - 1 = discard parity bit. - 2 = discard all spaces. - 4 = discard all carriage returns, line feeds, - form feeds, deletes, escapes and nulls. - 8 = discard leading spaces. - 16 = replace multiple spaces with one space. - 32 = change lower case to upper case. - 64 = change [ to ( and change ] to ). - 128 = discard trailing spacess. - 256 = suppress editing within quotes. - The order in which edits occur is - implementation defined. ------------------------------------------------------------- - SYNTAX: N = ENVIRON( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Sends the environment variable expression - contained in A$ to the host operating system. - A$ must contain the "=" character. ------------------------------------------------------------- - SYNTAX: S$ = ENVIRON$( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the environment variable named - A$. ------------------------------------------------------------- - SYNTAX: N = EOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: If device number X is at the end-of-file, then - -1, otherwise 0. ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FALSE -DESCRIPTION: The value of FALSE. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = FP( X ) - PARAMETER: X is a number -DESCRIPTION: The fractional part of X, i.e. X - IP(X). ------------------------------------------------------------- - SYNTAX: N = FRAC( X ) - PARAMETER: X is a number -DESCRIPTION: The fractional part of X, i.e. X - IP(X). ------------------------------------------------------------- - SYNTAX: N = FREEFILE -DESCRIPTION: The next available file number. ------------------------------------------------------------- - SYNTAX: N = GET( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets the next available record. ------------------------------------------------------------- - SYNTAX: N = GET( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: S$ = HEX$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the hexadecimal (base 16) representation - of X. ------------------------------------------------------------- - SYNTAX: S$ = HEX$( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The the hexadecimal (base 16) representation - of X. The result will be at least Y digits - long. ------------------------------------------------------------- - SYNTAX: N = HOME -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: S$ = INKEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = INP( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X characters, read from the - terminal. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The string of X characters, read from file Y. ------------------------------------------------------------- - SYNTAX: N = INSTR( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. ------------------------------------------------------------- - SYNTAX: N = INSTR( X, A$, B$ ) - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. ------------------------------------------------------------- - SYNTAX: N = INSTR( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = INT%( X ) - PARAMETER: X is a number -DESCRIPTION: The rounded integer valuet of X. ------------------------------------------------------------- - SYNTAX: N = IP( X ) - PARAMETER: X is a number -DESCRIPTION: The integer part of X, i.e., - SGN(X)*INT(ABS(X)). ------------------------------------------------------------- - SYNTAX: N = KILL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: S$ = LCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = LOCATE( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Locates the cursor to row X, column Y. ------------------------------------------------------------- - SYNTAX: N = LOCK( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Lock file number X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG10( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG2( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The base 2 logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = LOWER$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. ------------------------------------------------------------- - SYNTAX: S$ = LTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - leading space characters. ------------------------------------------------------------- - SYNTAX: N = MATCH( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the Xth character of A$. - If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = MAX( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = MIN( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MKD$( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = MKDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Makes the directory named in A$. ------------------------------------------------------------- - SYNTAX: S$ = MKI$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The internal representation of the short - (16-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKS$( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: S$ = OCT$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the octal (base 8) representation of X. ------------------------------------------------------------- - SYNTAX: S$ = OCT$( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The the octal (base 8) representation of X. - The result will be at least Y digits long. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Default the - record length. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$, Y ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Y is the - record length. ------------------------------------------------------------- - SYNTAX: N = OUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware port X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PI -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = POS( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The current cursor position in the line for - file X. ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the first character of - A$. If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the Xth character of A$. - If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = PUT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts the next available record. ------------------------------------------------------------- - SYNTAX: N = PUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: N = RAD( X ) - PARAMETER: X is a number -DESCRIPTION: The number of radians in X degrees. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = RTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - trailing space characters. ------------------------------------------------------------- - SYNTAX: S$ = SEG$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SHELL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The exit code resulting from the execution of - an operating system command. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SLEEP( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then SLEEP - does nothing. The resolution is - implementation defined. ------------------------------------------------------------- - SYNTAX: S$ = SPACE$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string X bytes long consisting of the - first character of A$. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = STRIP$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: Return the string with the eighth bit of each - character cleared. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TIME -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = TIMER -DESCRIPTION: The time in the system clock in seconds - elapsed since midnight. ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = TRUE -DESCRIPTION: The value of TRUE. ------------------------------------------------------------- - SYNTAX: S$ = UCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. ------------------------------------------------------------- - SYNTAX: N = UNLOCK( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Unlock file number X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: S$ = UPPER$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Waits for the value of (INP(X) AND Y) to - become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y, Z ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] - PARAMETER: Z is a number, [0,255] -DESCRIPTION: Waits for the value of ((INP(X) XOR Z) AND Y) - to become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For console, sets the line width to X. Zero - means no wrapping will occur. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: If X = 0, sets the console width to Y. - If X < 0, sets the printer width to Y. - If X is an open file number, sets the file - line width to Y. - Otherwise sets the console rows to X and the - line width to Y. - A value of zero for Y means no wrapping will - occur. ------------------------------------------------------------- - SYNTAX: N = ZONE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Sets the width of the print zones. ------------------------------------------------------------- - SYNTAX: N = ZONE( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: X is ignored. Y sets the width of the print - zones. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X MOD Y -DESCRIPTION: Integer Modulus - PRECEDENCE: 10 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/HANDBOOK1.txt b/bwbtest/DOCS/HANDBOOK1.txt deleted file mode 100644 index 5feab9b..0000000 --- a/bwbtest/DOCS/HANDBOOK1.txt +++ /dev/null @@ -1,1577 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "HANDBOOK1" -REM INTERNAL ID: HB1 -REM DESCRIPTION: The BASIC Handbook, 1st Edition -REM REFERENCE: The BASIC Handbook: Encyclopedia of the BASIC Computer Language -REM by David A. Lien -REM (c) 1978, Compusoft Publishing -REM ISBN 0-932760-00-7 -REM (1st Edition) 364 pages -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "%m/%d/%Y" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "'" -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT "@" -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: AUTO [start [, increment]] -DESCRIPTION: Automatic line numbering for manual program - entry. If the line already exists, then an - asterisk is displayed and pressing ENTER - leaves the line as-is. If the line does not - exist, then an asterisk is not displayed and - pressing ENTER terminates AUTO mode. - Regardless whether the line exists, entering - the command MAN will terminate AUTO mode. - AUTO mode is also terminated by any ERROR or - by pressing control-C. ------------------------------------------------------------- - SYNTAX: BREAK line [, ...]] -DESCRIPTION: Diagnostic command to stop execution at the - specified line(s). BREAK only applies to - user-numbered lines. For multi-statement - lines, BREAK only applies to the first - statement. BREAK effectively inserts a - hidden STOP command immediately after the - line number. Once a BREAK occurrs on a - specified line, it is automatically removed. - To remove all existing BREAKs, execute BREAK - without any line numbers. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CLOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: CLOAD* arrayname -DESCRIPTION: Loads a numeric array from a file saved using - CSAVE*. ------------------------------------------------------------- - SYNTAX: CLR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CONT -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: CSAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: CSAVE* ArrayName -DESCRIPTION: Saves a numeric array into a file for later - loading by CLOAD*. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DEFDBL letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFINT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSNG letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSTR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: DSP variable [, ...]] -DESCRIPTION: Diagnostic command to display the value every - time the variable is assigned. To remove all - existing DSPs, execute DSP without any - variables. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: ERASE variable [, ...] -DESCRIPTION: Eliminates arrayed variables from a program. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: IMAGE "format string" -DESCRIPTION: Provides format string for PRINT USING - linenum. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: MAT WRITE arrayname -DESCRIPTION: Matrix write. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR GOTO errline -DESCRIPTION: When a trappable error occurs, execute GOTO - errline. The error handler must terminate - with a RESUME command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RENUMBER -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RESUME -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RESUME line -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the specified - line. ------------------------------------------------------------- - SYNTAX: RESUME NEXT -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the line after - ERL. ------------------------------------------------------------- - SYNTAX: RESUME 0 -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: TEXT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TRACE -DESCRIPTION: Enables tracing. ------------------------------------------------------------- - SYNTAX: TRACE OFF -DESCRIPTION: Disables tracing. ------------------------------------------------------------- - SYNTAX: TRACE ON -DESCRIPTION: Enables tracing. ------------------------------------------------------------- - SYNTAX: WEND -DESCRIPTION: Bottom of a WHILE - WEND structure. ------------------------------------------------------------- - SYNTAX: WHILE value -DESCRIPTION: Top of a WHILE - WEND structure. If the value - is non-zero, then the loop is terminated. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ARCTAN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ARCTAN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ASC( A$, X ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The numeric code of the Xth character in A$. - Same as ASC(MID$(A$,X)). ------------------------------------------------------------- - SYNTAX: N = ASN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASN(X) <= PI/2; X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ATAN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATAN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CDBL( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The double-precision value of X. ------------------------------------------------------------- - SYNTAX: S$ = CHAR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The string Y bytes long consisting of CHR$(X). - Same as STRING$(Y,X). ------------------------------------------------------------- - SYNTAX: S$ = CHAR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHAR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: S$ = CHR( X ) - PARAMETER: X is a number -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR(65) returns "A". ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CINT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The short (16-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = CLK( X ) - PARAMETER: X is a number -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of CLK - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of CLK shall - be "99:99:99". The value of TIME$ at - midnight is "00:00:00". The value of - parameter X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = CLK$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = CLOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = CLS -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSNG( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The single-precision value of X. ------------------------------------------------------------- - SYNTAX: N = DEG -DESCRIPTION: Configures the math functions to accept and - return angles in degrees. ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERROR( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Simulate the error number in X. ------------------------------------------------------------- - SYNTAX: N = ERROR( X, A$ ) - PARAMETER: X is a number, [0,255] - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: Simulate the error number in X, with a custom - message in A$. ------------------------------------------------------------- - SYNTAX: N = EXAM( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FETCH( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = FILL( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = FRE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = FRE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. ------------------------------------------------------------- - SYNTAX: N = FRE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = FREE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = FREE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = FREE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. ------------------------------------------------------------- - SYNTAX: N = HOME -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: S$ = INKEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = INP( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: S$ = LEFT( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LGT( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = LIN( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string X bytes long of newline characters. ------------------------------------------------------------- - SYNTAX: N = LN( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG10( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOGE( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = MEM -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: S$ = MID( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = NOTRACE -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = OUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware port X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PDL( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PI -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter. ------------------------------------------------------------- - SYNTAX: N = PIN( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = RAD -DESCRIPTION: Configures the math functions to accept and - return angles in radians. ------------------------------------------------------------- - SYNTAX: N = RADIAN -DESCRIPTION: Configures the math functions to accept and - return angles in radians. ------------------------------------------------------------- - SYNTAX: N = RAN -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RAN( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RANDOM -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOM( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RESET -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SLEEP( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then SLEEP - does nothing. The resolution is - implementation defined. ------------------------------------------------------------- - SYNTAX: S$ = SPA( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPACE( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPACE$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: N = SQRT( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string X bytes long consisting of the - first character of A$. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: N = STUFF( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TI -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: S$ = TI$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = TIM -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: N = TIM( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: If X is 0, returns minutes in current hour. - If X is 1, returns hours in current day. If - X is 2, returns days in current year. If X - is 3, returns years since 1900. Any other - value for X is an ERROR. ------------------------------------------------------------- - SYNTAX: N = TIME -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: N = TIME( X ) - PARAMETER: X is a number -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). The value of the parameter - X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = TRACE -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: N = VTAB( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Savme as LOCATE X, 1. ------------------------------------------------------------- - SYNTAX: N = WAIT( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then WAIT does - nothing. The resolution is implementation - defined. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Waits for the value of (INP(X) AND Y) to - become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y, Z ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] - PARAMETER: Z is a number, [0,255] -DESCRIPTION: Waits for the value of ((INP(X) XOR Z) AND Y) - to become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: If X = 0, sets the console width to Y. - If X < 0, sets the printer width to Y. - If X is an open file number, sets the file - line width to Y. - Otherwise sets the console rows to X and the - line width to Y. - A value of zero for Y means no wrapping will - occur. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X [ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X MOD Y -DESCRIPTION: Integer Modulus - PRECEDENCE: 10 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/HANDBOOK2.txt b/bwbtest/DOCS/HANDBOOK2.txt deleted file mode 100644 index 37e112f..0000000 --- a/bwbtest/DOCS/HANDBOOK2.txt +++ /dev/null @@ -1,2021 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "HANDBOOK2" -REM INTERNAL ID: HB2 -REM DESCRIPTION: The BASIC Handbook, 2nd Edition -REM REFERENCE: The BASIC Handbook: Encyclopedia of the BASIC Computer Language -REM by David A. Lien -REM (c) 1981, CompuSoft Publishing -REM ISBN 0-932760-05-8 -REM (2nd Edition) 480 pages -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "%m/%d/%Y" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "'" -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT "@" -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: APPEND filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program; lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: AUTO [start [, increment]] -DESCRIPTION: Automatic line numbering for manual program - entry. If the line already exists, then an - asterisk is displayed and pressing ENTER - leaves the line as-is. If the line does not - exist, then an asterisk is not displayed and - pressing ENTER terminates AUTO mode. - Regardless whether the line exists, entering - the command MAN will terminate AUTO mode. - AUTO mode is also terminated by any ERROR or - by pressing control-C. ------------------------------------------------------------- - SYNTAX: BREAK line [, ...]] -DESCRIPTION: Diagnostic command to stop execution at the - specified line(s). BREAK only applies to - user-numbered lines. For multi-statement - lines, BREAK only applies to the first - statement. BREAK effectively inserts a - hidden STOP command immediately after the - line number. Once a BREAK occurrs on a - specified line, it is automatically removed. - To remove all existing BREAKs, execute BREAK - without any line numbers. ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: CALL subname( [parameter [, ...] ] ) -DESCRIPTION: Calls a subroutine that was defined by SUB and - END SUB. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CHANGE A$ TO X -DESCRIPTION: Changes a string to a numeric array. ------------------------------------------------------------- - SYNTAX: CHANGE X TO A$ -DESCRIPTION: Changes a numeric array to a string. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CLOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: CLOAD* arrayname -DESCRIPTION: Loads a numeric array from a file saved using - CSAVE*. ------------------------------------------------------------- - SYNTAX: CLR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: COMMON variable [, ...] -DESCRIPTION: Designates variables to be passed to a CHAINed - program. ------------------------------------------------------------- - SYNTAX: CONT -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: CSAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: CSAVE* ArrayName -DESCRIPTION: Saves a numeric array into a file for later - loading by CLOAD*. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DEFDBL letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFINT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSNG letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSTR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: DSP variable [, ...]] -DESCRIPTION: Diagnostic command to display the value every - time the variable is assigned. To remove all - existing DSPs, execute DSP without any - variables. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: ERASE variable [, ...] -DESCRIPTION: Eliminates arrayed variables from a program. ------------------------------------------------------------- - SYNTAX: EXCHANGE variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: EXIT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: EXIT FOR -DESCRIPTION: Immediately exits the inner-most FOR-NEXT - strucure. ------------------------------------------------------------- - SYNTAX: EXIT REPEAT -DESCRIPTION: Exit a REPEAT - UNTIL structure. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOODBYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: IMAGE "format string" -DESCRIPTION: Provides format string for PRINT USING - linenum. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LLIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the printer on stderr. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MARGIN # filenumber, width -DESCRIPTION: Sets the file margin for writing; filenumber - <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: MAT WRITE arrayname -DESCRIPTION: Matrix write. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR GOTO errline -DESCRIPTION: When a trappable error occurs, execute GOTO - errline. The error handler must terminate - with a RESUME command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: OPEN filename$ - FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL - AS [#] fileenumber - [LEN [=] record-length] -DESCRIPTION: Opens a file for use. - RANDOM requires LEN. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: POP -DESCRIPTION: Pops one GOSUB from the return stack. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: RECALL ArrayName -DESCRIPTION: Loads a numeric array from a file saved using - STORE. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RENUMBER -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: REPEAT -DESCRIPTION: Top of a REPEAT - UNTIL structure. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RESUME -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RESUME line -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the specified - line. ------------------------------------------------------------- - SYNTAX: RESUME NEXT -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the line after - ERL. ------------------------------------------------------------- - SYNTAX: RESUME 0 -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: SCRATCH -DESCRIPTION: SCRATCH Deletes the program in memory and - clears all variables. ------------------------------------------------------------- - SYNTAX: SCRATCH # X -DESCRIPTION: Sets the file mode to writing. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: STORE ArrayName -DESCRIPTION: Saves a numeric array into a file for later - loading by RECALL. ------------------------------------------------------------- - SYNTAX: SUB name [ ( parameter [,...] ) ] -DESCRIPTION: Top line of a multi-line SUB definition. The - variable names specified are local to the SUB - definition, and are initialized BYVAL when - the subroutine is invoked by another routine. ------------------------------------------------------------- - SYNTAX: SUBEND -DESCRIPTION: Specifies the last line of a multi-line SUB - definition. Same as END SUB. ------------------------------------------------------------- - SYNTAX: SWAP variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: TEXT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TLOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TRACE -DESCRIPTION: Enables tracing. ------------------------------------------------------------- - SYNTAX: TRACE OFF -DESCRIPTION: Disables tracing. ------------------------------------------------------------- - SYNTAX: TRACE ON -DESCRIPTION: Enables tracing. ------------------------------------------------------------- - SYNTAX: TSAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: UNTIL value -DESCRIPTION: Bottom of a REPEAT - UNTIL. If the value is - non-zero, then the loop is terminated. ------------------------------------------------------------- - SYNTAX: WEND -DESCRIPTION: Bottom of a WHILE - WEND structure. ------------------------------------------------------------- - SYNTAX: WHILE value -DESCRIPTION: Top of a WHILE - WEND structure. If the value - is non-zero, then the loop is terminated. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ACS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ACS(X) <= PI. X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ACSD( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in degrees, where 0 <= - ACSD(X) <= 180. X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ACSG( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in gradians, where 0 <= - ACS(X) <= 200. X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ARCSIN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ARCSIN(X) <= PI/2; X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ARCTAN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ARCTAN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ASC( A$, X ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The numeric code of the Xth character in A$. - Same as ASC(MID$(A$,X)). ------------------------------------------------------------- - SYNTAX: N = ASCII( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASCII("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ASN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASN(X) <= PI/2; X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ASND( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in degrees, where -90 <= - ASN(X) <= 90; X shall be in the range -1 <= X - <= 1. ------------------------------------------------------------- - SYNTAX: N = ASNG( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in gradians, where -100 <= - ASNG(X) <= 100; X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ATAN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATAN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = ATND( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in degrees, i.e. the angle - whose tangent is X, where -90 < ATND(X) < 90. ------------------------------------------------------------- - SYNTAX: N = ATNG( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in gradians, i.e. the - angle whose tangent is X, where -100 < - ATND(X) < 100. ------------------------------------------------------------- - SYNTAX: N = CDBL( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The double-precision value of X. ------------------------------------------------------------- - SYNTAX: S$ = CHAR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The string Y bytes long consisting of CHR$(X). - Same as STRING$(Y,X). ------------------------------------------------------------- - SYNTAX: S$ = CHAR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHAR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: S$ = CHR( X ) - PARAMETER: X is a number -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR(65) returns "A". ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CINT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The short (16-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = CLK( X ) - PARAMETER: X is a number -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of CLK - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of CLK shall - be "99:99:99". The value of TIME$ at - midnight is "00:00:00". The value of - parameter X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = CLK$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = CLOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = CLS -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: N = CODE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, CODE("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = COSD( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in degrees. ------------------------------------------------------------- - SYNTAX: N = COSG( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in gradians. ------------------------------------------------------------- - SYNTAX: N = COUNT -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = CSH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic cosine of X. ------------------------------------------------------------- - SYNTAX: N = CSNG( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The single-precision value of X. ------------------------------------------------------------- - SYNTAX: S$ = CUR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Locates the cursor to row X, column Y. ------------------------------------------------------------- - SYNTAX: N = DEG -DESCRIPTION: Configures the math functions to accept and - return angles in degrees. ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = DEGREE -DESCRIPTION: Configures the math functions to accept and - return angles in degrees. ------------------------------------------------------------- - SYNTAX: N = DEGREE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. ------------------------------------------------------------- - SYNTAX: N = DIGITS( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: X is the number of significiant digits to - print for numbers (0..17). If X = 0 then - disabled. Y is the number of decimal places - to round (0..17). If Y = 0 then disabled. ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERRL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERRN -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERROR( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Simulate the error number in X. ------------------------------------------------------------- - SYNTAX: N = ERROR( X, A$ ) - PARAMETER: X is a number, [0,255] - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: Simulate the error number in X, with a custom - message in A$. ------------------------------------------------------------- - SYNTAX: N = EXAM( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FETCH( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = FILL( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = FLOW -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = FRAC( X ) - PARAMETER: X is a number -DESCRIPTION: The fractional part of X, i.e. X - IP(X). ------------------------------------------------------------- - SYNTAX: N = FRE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = FRE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. ------------------------------------------------------------- - SYNTAX: N = FRE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = FREE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = FREE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = FREE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. ------------------------------------------------------------- - SYNTAX: N = GRAD -DESCRIPTION: Configures the math functions to accept and - return angles in gradians. ------------------------------------------------------------- - SYNTAX: N = GRADIAN -DESCRIPTION: Configures the math functions to accept and - return angles in gradians. ------------------------------------------------------------- - SYNTAX: N = HOME -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: N = INDEX( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. ------------------------------------------------------------- - SYNTAX: S$ = INKEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = INP( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X characters, read from the - terminal. ------------------------------------------------------------- - SYNTAX: N = INSTR( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. ------------------------------------------------------------- - SYNTAX: N = INSTR( X, A$, B$ ) - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: S$ = KEY -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: S$ = KEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: S$ = LEFT( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LGT( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = LIN( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string X bytes long of newline characters. ------------------------------------------------------------- - SYNTAX: N = LN( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG10( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOGE( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = MAX( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MAX( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: N = MEM -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: S$ = MID( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = MIN( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MIN( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: N = NOFLOW -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = NOTRACE -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = NUM -DESCRIPTION: The number of values processed by the last MAT - INPUT. Zero means error. ------------------------------------------------------------- - SYNTAX: N = NUM( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, NUM( " 123.5 " ) = 123.5, NUM( - "2.E-99" ) could be zero, and NUM( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = OUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware port X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PAUSE( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then PAUSE - does nothing. The resolution is - implementation defined. ------------------------------------------------------------- - SYNTAX: N = PDL( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PI -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter. ------------------------------------------------------------- - SYNTAX: N = PI( X ) - PARAMETER: X is a number -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter, - times X. ------------------------------------------------------------- - SYNTAX: N = PIN( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = POS( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The current cursor position in the line for - file X. ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the first character of - A$. If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the Xth character of A$. - If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = PRECISION( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: X is the number of decimal places to round - (0..17). If X = 0 then disabled. ------------------------------------------------------------- - SYNTAX: N = RAD -DESCRIPTION: Configures the math functions to accept and - return angles in radians. ------------------------------------------------------------- - SYNTAX: N = RAD( X ) - PARAMETER: X is a number -DESCRIPTION: The number of radians in X degrees. ------------------------------------------------------------- - SYNTAX: N = RADIAN -DESCRIPTION: Configures the math functions to accept and - return angles in radians. ------------------------------------------------------------- - SYNTAX: N = RAN -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RAN( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RANDOM -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOM( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RESET -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = SEG( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = SEG$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SIND( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in degrees. ------------------------------------------------------------- - SYNTAX: N = SING( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in gradians. ------------------------------------------------------------- - SYNTAX: N = SINH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. ------------------------------------------------------------- - SYNTAX: N = SLEEP( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then SLEEP - does nothing. The resolution is - implementation defined. ------------------------------------------------------------- - SYNTAX: N = SNH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. ------------------------------------------------------------- - SYNTAX: S$ = SPA( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPACE( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPACE$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: N = SQRT( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = STRING( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string X bytes long consisting of the - first character of A$. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: N = STUFF( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TAND( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in degrees. ------------------------------------------------------------- - SYNTAX: N = TANG( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in gradians. ------------------------------------------------------------- - SYNTAX: N = TANH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic tangent of X. ------------------------------------------------------------- - SYNTAX: N = TI -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: S$ = TI$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = TIM -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: N = TIM( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: If X is 0, returns minutes in current hour. - If X is 1, returns hours in current day. If - X is 2, returns days in current year. If X - is 3, returns years since 1900. Any other - value for X is an ERROR. ------------------------------------------------------------- - SYNTAX: N = TIME -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: N = TIME( X ) - PARAMETER: X is a number -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). The value of the parameter - X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: S$ = TIME$( X ) - PARAMETER: X is a number -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = TOP -DESCRIPTION: The address of the top of available memory. - This function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = TRACE -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: N = VTAB( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Savme as LOCATE X, 1. ------------------------------------------------------------- - SYNTAX: N = WAIT( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then WAIT does - nothing. The resolution is implementation - defined. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Waits for the value of (INP(X) AND Y) to - become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y, Z ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] - PARAMETER: Z is a number, [0,255] -DESCRIPTION: Waits for the value of ((INP(X) XOR Z) AND Y) - to become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: If X = 0, sets the console width to Y. - If X < 0, sets the printer width to Y. - If X is an open file number, sets the file - line width to Y. - Otherwise sets the console rows to X and the - line width to Y. - A value of zero for Y means no wrapping will - occur. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X [ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X MOD Y -DESCRIPTION: Integer Modulus - PRECEDENCE: 10 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X & Y -DESCRIPTION: Concatenation - PRECEDENCE: 8 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X XRA Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/HEATH.txt b/bwbtest/DOCS/HEATH.txt deleted file mode 100644 index f4b4bcb..0000000 --- a/bwbtest/DOCS/HEATH.txt +++ /dev/null @@ -1,1126 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "HEATH" -REM INTERNAL ID: H80 -REM DESCRIPTION: Heath Benton Harbor BASIC -REM REFERENCE: Extended Benton Harbor BASIC -REM by Heath Company -REM (c) 1980, Heath Company -REM http://www.lesbird.com/sebhc/documentation/software/HDOS-2/ -REM HDOS_Reference_Chapter6.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 0 -OPTION DATE "" -OPTION TIME "" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: BUILD [start [, increment]] -DESCRIPTION: Automatic line numbering for manual program - entry. If the line already exists, then an - asterisk is displayed and pressing ENTER - leaves the line as-is. If the line does not - exist, then an asterisk is not displayed and - pressing ENTER terminates BUILD mode. - Regardless whether the line exists, entering - the command MAN will terminate BUILD mode. - BUILD mode is also terminated by any ERROR or - by pressing control-C. ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CONTINUE -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: INPUT LINE variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE # filenum , variable$ -DESCRIPTION: Reads entire line from a file into variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE "prompt string" , variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$ after displaying a prompt ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MID$( variable$, start [, count ] ) = value -DESCRIPTION: Replaces a subtring of variable$ with value. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OLD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPEN filename - FOR READ|WRITE|VIRTUAL - AS FILE filenumber -DESCRIPTION: Opens a file for use. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: REPLACE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: SCRATCH -DESCRIPTION: SCRATCH Deletes the program in memory and - clears all variables. ------------------------------------------------------------- - SYNTAX: SCRATCH # X -DESCRIPTION: Sets the file mode to writing. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CIN( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: If file # X is <= 0 then returns -1. If file - # X is not opened for reading then returns - -1. If file # X is at EOF then returns -1, - Otherwise returns the next byte value read - from file X. ------------------------------------------------------------- - SYNTAX: N = CLOSE -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = CNTRL( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: CNTRL 1,Y sets the number of significant - digits to print. CNTRL 3,Y sets the width of - the print zones. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = EOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: If device number X is at the end-of-file, then - -1, otherwise 0. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FREE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LNO( X ) - PARAMETER: X is a number -DESCRIPTION: Returns X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = MATCH( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the Xth character of A$. - If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = MAX( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MAX( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = MIN( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MIN( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Default the - record length. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$, Y ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Y is the - record length. ------------------------------------------------------------- - SYNTAX: N = OUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware port X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PAD( X ) - PARAMETER: X is a number -DESCRIPTION: Returns zero. ------------------------------------------------------------- - SYNTAX: N = PAUSE( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then PAUSE - does nothing. The resolution is - implementation defined. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PIN( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = POS( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The current cursor position in the line for - file X. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SEG( X ) - PARAMETER: X is a number -DESCRIPTION: Returns zero. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = UNSAVE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/IBASIC.txt b/bwbtest/DOCS/IBASIC.txt deleted file mode 100644 index 41b2ff9..0000000 --- a/bwbtest/DOCS/IBASIC.txt +++ /dev/null @@ -1,1247 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "IBASIC" -REM INTERNAL ID: B84 -REM DESCRIPTION: Burroughs B1000 IBASIC -REM REFERENCE: B1000 Systems Interactive BASIC -REM by Burroughs -REM (c) 1984, Burroughs -REM http://www.bitsavers.org/pdf/burroughs/B1000/ -REM 1152105_B1000_IBASIC_Jan84.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS OFF -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 180 -OPTION DATE "%m/%d/%y" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE " " -OPTION PUNCT SINGLE " " -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG " " -OPTION PUNCT INTEGER " " -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "!" -OPTION PUNCT STATEMENT " " -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE ":" -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: AT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: AT END # filenum THEN line -DESCRIPTION: Assigns the line number of an EOF error - handler. When an EOF occurs, a 'GOTO line' - is executed. ------------------------------------------------------------- - SYNTAX: BREAK line [, ...]] -DESCRIPTION: Diagnostic command to stop execution at the - specified line(s). BREAK only applies to - user-numbered lines. For multi-statement - lines, BREAK only applies to the first - statement. BREAK effectively inserts a - hidden STOP command immediately after the - line number. Once a BREAK occurrs on a - specified line, it is automatically removed. - To remove all existing BREAKs, execute BREAK - without any line numbers. ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CONT -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: CONTINUE -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: DO UNTIL value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is non-zero. ------------------------------------------------------------- - SYNTAX: DO -DESCRIPTION: Top of a DO - LOOP structure. ------------------------------------------------------------- - SYNTAX: DO WHILE value -DESCRIPTION: Top of a DO - LOOP structure. Exits when - value is zero. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END DEF -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: IMAGE "format string" -DESCRIPTION: Provides format string for PRINT USING - linenum. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LINPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LLIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the printer on stderr. ------------------------------------------------------------- - SYNTAX: LOOP UNTIL value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is nonz-zero. ------------------------------------------------------------- - SYNTAX: LOOP WHILE value -DESCRIPTION: Bottom of a DO - LOOP structure. Exits when - value is zero. ------------------------------------------------------------- - SYNTAX: LOOP -DESCRIPTION: Bottom of a DO - LOOP structure. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MARGIN # filenumber, width -DESCRIPTION: Sets the file margin for writing; filenumber - <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT OUTPUT arrayname -DESCRIPTION: Matrix output. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: MERGE filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program. Lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPEN # filenumber: - filename$, - INPUT|OUTPUT|OUTIN|VIRTUAL -DESCRIPTION: Opens a file for use. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: OUTPUT # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. ------------------------------------------------------------- - SYNTAX: OUTPUT value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENAME from$ AS to$ -DESCRIPTION: Rename a file. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RENUMBER -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: SCRATCH -DESCRIPTION: SCRATCH Deletes the program in memory and - clears all variables. ------------------------------------------------------------- - SYNTAX: SCRATCH # X -DESCRIPTION: Sets the file mode to writing. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TRACE -DESCRIPTION: Enables tracing. ------------------------------------------------------------- - SYNTAX: TRACE OFF -DESCRIPTION: Disables tracing. ------------------------------------------------------------- - SYNTAX: TRACE ON -DESCRIPTION: Enables tracing. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ACOS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ACOS(X) <= PI. X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ANGLE( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The angle in radians between the positive - x-axis and the vector joining the origin to - the point with coordinates (X, Y), where -PI - < ANGLE(X,Y) <= PI. X and Y must not both be - 0. Note that the counterclockwise is - positive, e.g., ANGLE(1,1) = 45 degrees. ------------------------------------------------------------- - SYNTAX: N = ASIN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASIN(X) <= PI/2; X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CEIL( X ) - PARAMETER: X is a number -DESCRIPTION: The smallest integer not less than X. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = COT( X ) - PARAMETER: X is a number -DESCRIPTION: The cotangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSC( X ) - PARAMETER: X is a number -DESCRIPTION: The cosecant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = DATE -DESCRIPTION: The current date in decimal form YYYDDD, where - YYY are the number of years since 1900 and - DDD is the ordinal number of the current day - of the year; e.g., the value of DATE on May - 9, 1977 was 77129. If there is no calendar - available, then the value of DATE shall be - -1. ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. ------------------------------------------------------------- - SYNTAX: N = EPS( X ) - PARAMETER: X is a number -DESCRIPTION: The maximum of (X-X1,X2-X, sigma) where X1 and - X2 are the predecessor and successor of X and - signma is the smallest positive value - representable. If X has no predecessor the - X1=X and if X has no successor the X2=X. - Note EPS(0) is the smallest positive number - representable by the implementation, and is - therefor implementation-defined. Note also - that EPS may produce different results for - different arithmetic options (see OPTION - ARITHMETIC). ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FP( X ) - PARAMETER: X is a number -DESCRIPTION: The fractional part of X, i.e. X - IP(X). ------------------------------------------------------------- - SYNTAX: N = INF -DESCRIPTION: The largest finite positive number - representable and manipulable by the - implementation; implementation-defined. - MAXNUM may represent diffent number for - different arithmetic options (see OPTION - ARITHMETIC). ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = IP( X ) - PARAMETER: X is a number -DESCRIPTION: The integer part of X, i.e., - SGN(X)*INT(ABS(X)). ------------------------------------------------------------- - SYNTAX: N = LDIM( ... ) -DESCRIPTION: LDIM( arrayname [, dimension] ). The lower - bound of the array. The dimension defaults - to 1. dimension in [1,DIM(arrayname)] ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG10( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG2( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The base 2 logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = LWRC$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. ------------------------------------------------------------- - SYNTAX: N = MAX( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: N = MIN( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: N = MOD( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, <> 0 -DESCRIPTION: X modulo Y, i.e., X-Y*INT(X/Y). Y shall not - equal zero. ------------------------------------------------------------- - SYNTAX: N = ORD( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The ordinal position of the character named by - the string associated with A$ in the - collating sequence of ASCII character set, - where the first member of the character set - is in position zero. The acceptable values - for the standard character set are shown in - Table 1. ------------------------------------------------------------- - SYNTAX: N = PI -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter. ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the first character of - A$. If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = POS( A$, B$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The character position, within the value - assocated with A$, of the first character of - the first occurence of the value associated - with B$, starting at the Xth character of A$. - If there is not such occurence, then the - value returned is zero. ------------------------------------------------------------- - SYNTAX: N = RAD( X ) - PARAMETER: X is a number -DESCRIPTION: The number of radians in X degrees. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = REM( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number, <> 0 -DESCRIPTION: The remainder function, i.e., X-Y*IP(X/Y). Y - shall not equal zero. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = SEC( X ) - PARAMETER: X is a number -DESCRIPTION: The secant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SINH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TANH( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic tangent of X. ------------------------------------------------------------- - SYNTAX: N = TIME -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = UDIM( ... ) -DESCRIPTION: UDIM( arrayname [, dimension] ). The upper - bound of the array. The dimension defaults - to 1. dimension in [1,DIM(arrayname)] ------------------------------------------------------------- - SYNTAX: S$ = UPRC( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X & Y -DESCRIPTION: Concatenation - PRECEDENCE: 8 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/MARK-I.txt b/bwbtest/DOCS/MARK-I.txt deleted file mode 100644 index e370aa6..0000000 --- a/bwbtest/DOCS/MARK-I.txt +++ /dev/null @@ -1,1077 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "MARK-I" -REM INTERNAL ID: G65 -REM DESCRIPTION: GE 265 Mainframe BASIC -REM REFERENCE: BASIC LANGUAGE REFERENCE MANUAL -REM by Time-Sharing Service, Information Service Department, General Electric -REM (c) 1965, Trustees of Dartmouth College -REM http://www.bitsavers.org/pdf/ge/MarkI_Timesharing/ -REM 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS OFF -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "%m/%d/%y" -OPTION TIME "%H:%M" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT " " -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE ":" -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: APPEND # filenumber -DESCRIPTION: Positions filenumber at EOF and sets the file - to writing; filenumber <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: BACKSPACE # X -DESCRIPTION: Points the file to the previous item. ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CHANGE A$ TO X -DESCRIPTION: Changes a string to a numeric array. ------------------------------------------------------------- - SYNTAX: CHANGE X TO A$ -DESCRIPTION: Changes a numeric array to a string. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DELIMIT # X, A$ -DESCRIPTION: Sets the delimiter for READ # and WRITE #. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: FILE # X, A$ -DESCRIPTION: If A$ is "*" then closes file # X. If A$ is - not "*" then opens the file named A$ in READ - mode. ------------------------------------------------------------- - SYNTAX: FILES A$[, ...] -DESCRIPTION: If A$ is not "*" opens the file named A$ in - READ mode. The first filename of the first - FILES command is assocated with file number - 1. Note that multiple FILES commands - accumulate. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOODBYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF END # filenum THEN line -DESCRIPTION: Single line standard IF command. If the file - is at EOF , then branch to line. Otherwise - continue to the next line. ------------------------------------------------------------- - SYNTAX: IF MORE # filenum THEN line -DESCRIPTION: Single line standard IF command. If the file - is not at EOF , then branch to line. - Otherwise continue to the next line. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MARGIN # filenumber, width -DESCRIPTION: Sets the file margin for writing; filenumber - <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT GET filename$, arrayname -DESCRIPTION: Matrix get. ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT PUT filename$, arrayname -DESCRIPTION: Matrix put. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: MAT WRITE arrayname -DESCRIPTION: Matrix write. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OLD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENAME [filename$] -DESCRIPTION: Changes the file name which will be used by - SAVE. Does not save the file. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: SCRATCH -DESCRIPTION: SCRATCH Deletes the program in memory and - clears all variables. ------------------------------------------------------------- - SYNTAX: SCRATCH # X -DESCRIPTION: Sets the file mode to writing. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: WRITE # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. ------------------------------------------------------------- - SYNTAX: WRITE value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CATALOG -DESCRIPTION: Displays all the file names. ------------------------------------------------------------- - SYNTAX: N = CATALOG( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CLK( X ) - PARAMETER: X is a number -DESCRIPTION: The time elapsed since the previous midnight, - expressed in hours; e.g., the value of CLK at - 3:15 PM is 15.25. If there is no clock - available, then the value of CLK shall be -1. - The value of CLK at midnight shall be zero - (not 24). The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = RANDOM -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TIM( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: If X is 0, returns minutes in current hour. - If X is 1, returns hours in current day. If - X is 2, returns days in current year. If X - is 3, returns years since 1900. Any other - value for X is an ERROR. ------------------------------------------------------------- - SYNTAX: N = UNSAVE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/MARK-II.txt b/bwbtest/DOCS/MARK-II.txt deleted file mode 100644 index 5d01ef5..0000000 --- a/bwbtest/DOCS/MARK-II.txt +++ /dev/null @@ -1,1127 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "MARK-II" -REM INTERNAL ID: G67 -REM DESCRIPTION: GE 435 Mainframe BASIC -REM REFERENCE: BASIC Language Reference Manual -REM by Time-Sharing Service, Information Service Department, General Electric -REM (c) 1968, General Electric Company and the Trustees of Dartmouth College -REM http://www.bitsavers.org/pdf/ge/MarkI_Timesharing/ -REM 711224A_BASICLanguageReferenceManual_Nov1970.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS OFF -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "%m/%d/%y" -OPTION TIME "%H:%M" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "'" -OPTION PUNCT STATEMENT " " -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE ":" -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: APPEND # filenumber -DESCRIPTION: Positions filenumber at EOF and sets the file - to writing; filenumber <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: BACKSPACE # X -DESCRIPTION: Points the file to the previous item. ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CHANGE A$ TO X -DESCRIPTION: Changes a string to a numeric array. ------------------------------------------------------------- - SYNTAX: CHANGE X TO A$ -DESCRIPTION: Changes a numeric array to a string. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DELIMIT # X, A$ -DESCRIPTION: Sets the delimiter for READ # and WRITE #. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: FILE # X, A$ -DESCRIPTION: If A$ is "*" then closes file # X. If A$ is - not "*" then opens the file named A$ in READ - mode. ------------------------------------------------------------- - SYNTAX: FILES A$[, ...] -DESCRIPTION: If A$ is not "*" opens the file named A$ in - READ mode. The first filename of the first - FILES command is assocated with file number - 1. Note that multiple FILES commands - accumulate. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOODBYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF END # filenum THEN line -DESCRIPTION: Single line standard IF command. If the file - is at EOF , then branch to line. Otherwise - continue to the next line. ------------------------------------------------------------- - SYNTAX: IF MORE # filenum THEN line -DESCRIPTION: Single line standard IF command. If the file - is not at EOF , then branch to line. - Otherwise continue to the next line. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MARGIN # filenumber, width -DESCRIPTION: Sets the file margin for writing; filenumber - <= 0 is ignored. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT GET filename$, arrayname -DESCRIPTION: Matrix get. ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT PUT filename$, arrayname -DESCRIPTION: Matrix put. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: MAT WRITE arrayname -DESCRIPTION: Matrix write. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OLD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENAME [filename$] -DESCRIPTION: Changes the file name which will be used by - SAVE. Does not save the file. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: SCRATCH -DESCRIPTION: SCRATCH Deletes the program in memory and - clears all variables. ------------------------------------------------------------- - SYNTAX: SCRATCH # X -DESCRIPTION: Sets the file mode to writing. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TRACE -DESCRIPTION: Enables tracing. ------------------------------------------------------------- - SYNTAX: TRACE OFF -DESCRIPTION: Disables tracing. ------------------------------------------------------------- - SYNTAX: TRACE ON -DESCRIPTION: Enables tracing. ------------------------------------------------------------- - SYNTAX: WRITE # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. ------------------------------------------------------------- - SYNTAX: WRITE value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CATALOG -DESCRIPTION: Displays all the file names. ------------------------------------------------------------- - SYNTAX: N = CATALOG( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CLK( X ) - PARAMETER: X is a number -DESCRIPTION: The time elapsed since the previous midnight, - expressed in hours; e.g., the value of CLK at - 3:15 PM is 15.25. If there is no clock - available, then the value of CLK shall be -1. - The value of CLK at midnight shall be zero - (not 24). The value of X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = CLK$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = COT( X ) - PARAMETER: X is a number -DESCRIPTION: The cotangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = DAT$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = NUM -DESCRIPTION: The number of values processed by the last MAT - INPUT. Zero means error. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = RANDOM -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TIM -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: N = TIM( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: If X is 0, returns minutes in current hour. - If X is 1, returns hours in current day. If - X is 2, returns days in current year. If X - is 3, returns years since 1900. Any other - value for X is an ERROR. ------------------------------------------------------------- - SYNTAX: N = UNSAVE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/MBASIC.txt b/bwbtest/DOCS/MBASIC.txt deleted file mode 100644 index 9a6a447..0000000 --- a/bwbtest/DOCS/MBASIC.txt +++ /dev/null @@ -1,1613 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "MBASIC" -REM INTERNAL ID: M80 -REM DESCRIPTION: Microsoft BASIC-80 for Xenix -REM REFERENCE: Microsoft BASIC Reference Manual -REM by Microsoft -REM (c) 1982, Microsoft -REM http://chiclassiccomp.org/docs/content/computing/Microsoft/ -REM Microsoft_Basic_8086Xenix_Reference.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "%m/%d/%Y" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "'" -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: AS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: AUTO [start [, increment]] -DESCRIPTION: Automatic line numbering for manual program - entry. If the line already exists, then an - asterisk is displayed and pressing ENTER - leaves the line as-is. If the line does not - exist, then an asterisk is not displayed and - pressing ENTER terminates AUTO mode. - Regardless whether the line exists, entering - the command MAN will terminate AUTO mode. - AUTO mode is also terminated by any ERROR or - by pressing control-C. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CLOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: CLOAD* arrayname -DESCRIPTION: Loads a numeric array from a file saved using - CSAVE*. ------------------------------------------------------------- - SYNTAX: COMMON variable [, ...] -DESCRIPTION: Designates variables to be passed to a CHAINed - program. ------------------------------------------------------------- - SYNTAX: CONT -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: CSAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: CSAVE* ArrayName -DESCRIPTION: Saves a numeric array into a file for later - loading by CLOAD*. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEFDBL letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFINT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSNG letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSTR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: ERASE variable [, ...] -DESCRIPTION: Eliminates arrayed variables from a program. ------------------------------------------------------------- - SYNTAX: FIELD [#] filenum, number AS variable$ [, ...] -DESCRIPTION: Assigns number bytes in the buffer of random - file filenum to the variable variable$. GET - will automatically update the variable, and - PUT will automatically use the variable. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: INPUT LINE variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE # filenum , variable$ -DESCRIPTION: Reads entire line from a file into variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE "prompt string" , variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$ after displaying a prompt ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LLIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the printer on stderr. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: LSET variable$ = value -DESCRIPTION: Left-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the right with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MERGE filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program. Lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: MID$( variable$, start [, count ] ) = value -DESCRIPTION: Replaces a subtring of variable$ with value. ------------------------------------------------------------- - SYNTAX: NAME old$ AS new$ -DESCRIPTION: Changes the name of an existing file. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR GOTO errline -DESCRIPTION: When a trappable error occurs, execute GOTO - errline. The error handler must terminate - with a RESUME command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME NEXT -DESCRIPTION: When a trappable error occurs, execution - continues with the next line. Valid when - OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: OPEN filename$ - FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL - AS [#] fileenumber - [LEN [=] record-length] -DESCRIPTION: Opens a file for use. - RANDOM requires LEN. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RESUME -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RESUME line -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the specified - line. ------------------------------------------------------------- - SYNTAX: RESUME NEXT -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the line after - ERL. ------------------------------------------------------------- - SYNTAX: RESUME 0 -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RSET variable$ = value -DESCRIPTION: Right-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the left with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SWAP variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: WEND -DESCRIPTION: Bottom of a WHILE - WEND structure. ------------------------------------------------------------- - SYNTAX: WHILE value -DESCRIPTION: Top of a WHILE - WEND structure. If the value - is non-zero, then the loop is terminated. ------------------------------------------------------------- - SYNTAX: WRITE # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. ------------------------------------------------------------- - SYNTAX: WRITE value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CDBL( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The double-precision value of X. ------------------------------------------------------------- - SYNTAX: N = CHDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Changes to the directory named to A$. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CINT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The short (16-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLNG( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The long (32-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLOSE -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = CLS -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: N = COLOR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sets the foreground text color to X, and the - background text color to Y. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSNG( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The single-precision value of X. ------------------------------------------------------------- - SYNTAX: N = CVD( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(DBL) -DESCRIPTION: The double-precision value in A$, which was - created by MKD$. ------------------------------------------------------------- - SYNTAX: N = CVI( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(INT) -DESCRIPTION: The short (16-bit) integer value in A$, which - was created by MKI$. ------------------------------------------------------------- - SYNTAX: N = CVL( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(LNG) -DESCRIPTION: The long (32-bit) integer value in A$, which - was created by MKL$. ------------------------------------------------------------- - SYNTAX: N = CVS( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(FLT) -DESCRIPTION: The single-precision value in A$, which was - created by MKS$. ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = ENVIRON( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Sends the environment variable expression - contained in A$ to the host operating system. - A$ must contain the "=" character. ------------------------------------------------------------- - SYNTAX: S$ = ENVIRON$( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the environment variable named - A$. ------------------------------------------------------------- - SYNTAX: N = EOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: If device number X is at the end-of-file, then - -1, otherwise 0. ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: S$ = ERR$ -DESCRIPTION: The last error message. ------------------------------------------------------------- - SYNTAX: N = ERROR( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Simulate the error number in X. ------------------------------------------------------------- - SYNTAX: S$ = ERROR$ -DESCRIPTION: The last error message. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FILEATTR( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, if Y = 1 then returns open mode, - otherwise returns zero. ------------------------------------------------------------- - SYNTAX: N = FILES -DESCRIPTION: Displays all the file names. ------------------------------------------------------------- - SYNTAX: N = FILES( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = FRE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = FRE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. ------------------------------------------------------------- - SYNTAX: N = FRE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = GET( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets the next available record. ------------------------------------------------------------- - SYNTAX: N = GET( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: S$ = HEX$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the hexadecimal (base 16) representation - of X. ------------------------------------------------------------- - SYNTAX: S$ = INKEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = INP( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X characters, read from the - terminal. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The string of X characters, read from file Y. ------------------------------------------------------------- - SYNTAX: N = INSTR( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. ------------------------------------------------------------- - SYNTAX: N = INSTR( X, A$, B$ ) - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = KILL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: S$ = LCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = LOCATE( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Locates the cursor to row X, column Y. ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LPOS -DESCRIPTION: The current cursor position in the line for - the printer. ------------------------------------------------------------- - SYNTAX: S$ = LTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - leading space characters. ------------------------------------------------------------- - SYNTAX: N = LWIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For printer, sets the line width to X. Zero - means no wrapping will occur. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = MKD$( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = MKDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Makes the directory named in A$. ------------------------------------------------------------- - SYNTAX: S$ = MKI$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The internal representation of the short - (16-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKL$( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The internal representation of the long - (32-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKS$( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = NAME( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Rename the file named A$ into B$. ------------------------------------------------------------- - SYNTAX: N = NULL( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Appends X null characters after each line - printed by LPRINT or LLIST. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = OCT$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the octal (base 8) representation of X. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Default the - record length. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$, Y ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Y is the - record length. ------------------------------------------------------------- - SYNTAX: N = OUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware port X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = POS( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The current cursor position in the line for - file X. ------------------------------------------------------------- - SYNTAX: N = PUT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts the next available record. ------------------------------------------------------------- - SYNTAX: N = PUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: S$ = REPEAT$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string consisting of X copies of - LEFT$(A$,1); X > 0. ------------------------------------------------------------- - SYNTAX: S$ = REPEAT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string consisting of X copies of CHR$(Y); - X > 0. ------------------------------------------------------------- - SYNTAX: N = RESET -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RMDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the directory named in A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = RTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - trailing space characters. ------------------------------------------------------------- - SYNTAX: N = SEEK( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = SEEK( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, move to record number Y; the first - record number is 1. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SHELL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The exit code resulting from the execution of - an operating system command. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPACE$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string X bytes long consisting of the - first character of A$. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = TIMER -DESCRIPTION: The time in the system clock in seconds - elapsed since midnight. ------------------------------------------------------------- - SYNTAX: S$ = TRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string resulting from removing both - leading and trailing spaces from A$. ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: S$ = UCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. ------------------------------------------------------------- - SYNTAX: N = USR( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR0( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR1( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR2( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR3( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR4( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR5( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR6( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR7( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR8( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR9( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: N = VARPTR( ... ) -DESCRIPTION: Returns hardware address of variable. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Waits for the value of (INP(X) AND Y) to - become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y, Z ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] - PARAMETER: Z is a number, [0,255] -DESCRIPTION: Waits for the value of ((INP(X) XOR Z) AND Y) - to become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For console, sets the line width to X. Zero - means no wrapping will occur. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: If X = 0, sets the console width to Y. - If X < 0, sets the printer width to Y. - If X is an open file number, sets the file - line width to Y. - Otherwise sets the console rows to X and the - line width to Y. - A value of zero for Y means no wrapping will - occur. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X MOD Y -DESCRIPTION: Integer Modulus - PRECEDENCE: 10 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/PDP-11.txt b/bwbtest/DOCS/PDP-11.txt deleted file mode 100644 index 16056c9..0000000 --- a/bwbtest/DOCS/PDP-11.txt +++ /dev/null @@ -1,850 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "PDP-11" -REM INTERNAL ID: D70 -REM DESCRIPTION: DEC PDP-11 BASIC -REM REFERENCE: PDP-11 BASIC Programming Manual -REM by Digital Equipement Corporation -REM (c) 1970, Digital Equipement Corporation -REM http://bitsavers.trailing-edge.com/pdf/dec/pdp11/basic/ -REM DEC-11-AJPB-D_PDP-11_BASIC_Programming_Manual_Dec70.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "" -OPTION TIME "" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OLD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = EXF( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/PDP-8.txt b/bwbtest/DOCS/PDP-8.txt deleted file mode 100644 index 4a9a857..0000000 --- a/bwbtest/DOCS/PDP-8.txt +++ /dev/null @@ -1,891 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "PDP-8" -REM INTERNAL ID: D73 -REM DESCRIPTION: DEC PDP-8 BASIC -REM REFERENCE: DEC 8K BASIC -REM by Digital Equipement Corporation -REM (c) 1973, Digital Equipement Corporation -REM http://bitsavers.trailing-edge.com/pdf/dec/pdp8/basic/ -REM DEC-08-LBSMA-A-D_8K_BASIC_Jul73.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "" -OPTION TIME "" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT "\" -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LPT [filename$] -DESCRIPTION: Directs the PRINT commands to write to the - printer (stderr), or optionally to the - specified file. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OLD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: PTP [filename$] -DESCRIPTION: Directs the PRINT commands to write to the - paper tape punch file ("PTP"), or optionally - to the specified file. ------------------------------------------------------------- - SYNTAX: PTR [filename$] -DESCRIPTION: Directs the INPUT commands to read from the - paper tape reader file ("PTR"), or optionally - from the specified file. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TTY -DESCRIPTION: Directs the PRINT commands to write to the - console (stdout), and the INPUT commands to - read from.the console (stdin). This cancels - LPT, PTP and PTR. ------------------------------------------------------------- - SYNTAX: TTY IN -DESCRIPTION: Directs the INPUT commands to read from.the - console (stdin). This cancels PTR. It does - not cancel LPT or PTP. ------------------------------------------------------------- - SYNTAX: TTY OUT -DESCRIPTION: Directs the PRINT commands to write to the - console (stdout). This cancels LPT or PTP. - It does not cancel PTR. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = GET( X ) - PARAMETER: X is a number -DESCRIPTION: Get character code from input. The value of X - is ignored. Similar to ASC(INKEY$). ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = PUT( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Send character code to output. Returns the - value of X. Similar to PRINT CHR$(X). ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = UUF( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/RBASIC.txt b/bwbtest/DOCS/RBASIC.txt deleted file mode 100644 index 02fc469..0000000 --- a/bwbtest/DOCS/RBASIC.txt +++ /dev/null @@ -1,1276 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "RBASIC" -REM INTERNAL ID: R86 -REM DESCRIPTION: Micronics RBASIC for 6809 FLEX -REM REFERENCE: RBASIC User's Manual -REM by R. Jones -REM (c) 1986, Micronics Research Corp. -REM http://www.evenson-consulting.com/swtpc/downloads/ -REM RBASIC.zip -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 0 -OPTION DATE "%d-%b-%y" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT "!" -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: APPEND filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program; lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: AS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CONT -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: DOS -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: FIELD [#] filenum, number AS variable$ [, ...] -DESCRIPTION: Assigns number bytes in the buffer of random - file filenum to the variable variable$. GET - will automatically update the variable, and - PUT will automatically use the variable. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GET # file_number [ , RECORD record_number ] -DESCRIPTION: Gets one (or more) values from a file. ------------------------------------------------------------- - SYNTAX: GET # file_number [ , RECORD record_number ] -DESCRIPTION: Gets one (or more) values from a file. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: INPUT LINE variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE # filenum , variable$ -DESCRIPTION: Reads entire line from a file into variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE "prompt string" , variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$ after displaying a prompt ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LSET variable$ = value -DESCRIPTION: Left-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the right with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MON -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR GOTO errline -DESCRIPTION: When a trappable error occurs, execute GOTO - errline. The error handler must terminate - with a RESUME command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME NEXT -DESCRIPTION: When a trappable error occurs, execution - continues with the next line. Valid when - OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: OPEN NEW|OLD|VIRTUAL filename$ - AS filenumber -DESCRIPTION: Opens a file for use. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PDEL line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: PUT # file_number [ , RECORD record_number ] -DESCRIPTION: Puts one (or more) values into a file. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RESUME -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RESUME line -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the specified - line. ------------------------------------------------------------- - SYNTAX: RESUME NEXT -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the line after - ERL. ------------------------------------------------------------- - SYNTAX: RESUME 0 -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RSET variable$ = value -DESCRIPTION: Right-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the left with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SWAP variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ARCCOS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ARCCOS(X) <= PI. X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ARCSIN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ARCSIN(X) <= PI/2; X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ARCTAN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ARCTAN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CVD( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(DBL) -DESCRIPTION: The double-precision value in A$, which was - created by MKD$. ------------------------------------------------------------- - SYNTAX: N = CVI( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(INT) -DESCRIPTION: The short (16-bit) integer value in A$, which - was created by MKI$. ------------------------------------------------------------- - SYNTAX: N = CVL( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(LNG) -DESCRIPTION: The long (32-bit) integer value in A$, which - was created by MKL$. ------------------------------------------------------------- - SYNTAX: N = CVS( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(FLT) -DESCRIPTION: The single-precision value in A$, which was - created by MKS$. ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: When X is zero sets RADIANS. When X is - non-zero sets DEGREES. ------------------------------------------------------------- - SYNTAX: N = DIGITS( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: X is the number of significiant digits to - print for numbers (0..17). If X = 0 then - disabled. ------------------------------------------------------------- - SYNTAX: N = DIGITS( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: X is the number of significiant digits to - print for numbers (0..17). If X = 0 then - disabled. Y is the number of decimal places - to round (0..17). If Y = 0 then disabled. ------------------------------------------------------------- - SYNTAX: N = DPEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = DPOKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = EXEC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The exit code resulting from the execution of - an operating system command. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FRE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = FRE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. ------------------------------------------------------------- - SYNTAX: N = FRE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = HEX( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric value of the hexadecimal string in - A$. For example, HEX("FFFF") returns 65535. ------------------------------------------------------------- - SYNTAX: S$ = INCH$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = INSTR( X, A$, B$ ) - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = KILL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = MKD$( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKI$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The internal representation of the short - (16-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKL$( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The internal representation of the long - (32-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKS$( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = NAME( ... ) -DESCRIPTION: Returns hardware address of variable. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = POS( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The current cursor position in the line for - file X. ------------------------------------------------------------- - SYNTAX: N = PTR( ... ) -DESCRIPTION: Returns hardware address of variable. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = RENAME( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Rename file A$ to B$. If successful, the - returns -1 else returns 0. ------------------------------------------------------------- - SYNTAX: N = RESIDUE -DESCRIPTION: The residue of the last Integer Divide - operation. The RESIDUE of -17 / 5 is -2. - For X / Y, RESIDUE = CINT( X - Y * CINT( X / - Y ) ). ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SCALE( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: X is the number of decimal places to round - (0..17). If X = 0 then disabled. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TRACE( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: When X is zero turn tracing off. When X is - non-zero turn tracing ON ------------------------------------------------------------- - SYNTAX: N = USR( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR0( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR1( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR2( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR3( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR4( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR5( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR6( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR7( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR8( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR9( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X MOD Y -DESCRIPTION: Integer Modulus - PRECEDENCE: 10 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/RSTS-11.txt b/bwbtest/DOCS/RSTS-11.txt deleted file mode 100644 index 9e50963..0000000 --- a/bwbtest/DOCS/RSTS-11.txt +++ /dev/null @@ -1,1755 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "RSTS-11" -REM INTERNAL ID: D71 -REM DESCRIPTION: DEC RSTS-11 BASIC-PLUS -REM REFERENCE: RSTS-11 User's Guide : BASIC-PLUS Programming Language -REM by Digital Equipment Corporation -REM (c) 1971, Digital Equipment Corporation -REM http://bitsavers.trailing-edge.com/pdf/dec/pdp11/rsts/ -REM PL-11-71-01-01-A-D_RSTS-11UsersGuide_May71.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 512 -OPTION DATE "%d-%b-%y" -OPTION TIME "%I:%M %p" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "!" -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: AS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: AUTO [start [, increment]] -DESCRIPTION: Automatic line numbering for manual program - entry. If the line already exists, then an - asterisk is displayed and pressing ENTER - leaves the line as-is. If the line does not - exist, then an asterisk is not displayed and - pressing ENTER terminates AUTO mode. - Regardless whether the line exists, entering - the command MAN will terminate AUTO mode. - AUTO mode is also terminated by any ERROR or - by pressing control-C. ------------------------------------------------------------- - SYNTAX: BYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CHANGE A$ TO X -DESCRIPTION: Changes a string to a numeric array. ------------------------------------------------------------- - SYNTAX: CHANGE X TO A$ -DESCRIPTION: Changes a numeric array to a string. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CLOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: CLOAD* arrayname -DESCRIPTION: Loads a numeric array from a file saved using - CSAVE*. ------------------------------------------------------------- - SYNTAX: COMMON variable [, ...] -DESCRIPTION: Designates variables to be passed to a CHAINed - program. ------------------------------------------------------------- - SYNTAX: CONT -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: CSAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: CSAVE* ArrayName -DESCRIPTION: Saves a numeric array into a file for later - loading by CLOAD*. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DEFDBL letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFINT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSNG letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSTR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: ERASE variable [, ...] -DESCRIPTION: Eliminates arrayed variables from a program. ------------------------------------------------------------- - SYNTAX: FIELD [#] filenum, number AS variable$ [, ...] -DESCRIPTION: Assigns number bytes in the buffer of random - file filenum to the variable variable$. GET - will automatically update the variable, and - PUT will automatically use the variable. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GET # file_number [ , RECORD record_number ] -DESCRIPTION: Gets one (or more) values from a file. ------------------------------------------------------------- - SYNTAX: GET # file_number [ , RECORD record_number ] -DESCRIPTION: Gets one (or more) values from a file. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOODBYE -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: INPUT LINE variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE # filenum , variable$ -DESCRIPTION: Reads entire line from a file into variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE "prompt string" , variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$ after displaying a prompt ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LLIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the printer on stderr. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: LSET variable$ = value -DESCRIPTION: Left-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the right with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: MERGE filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program. Lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: MID$( variable$, start [, count ] ) = value -DESCRIPTION: Replaces a subtring of variable$ with value. ------------------------------------------------------------- - SYNTAX: NAME old$ AS new$ -DESCRIPTION: Changes the name of an existing file. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OLD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR GOTO errline -DESCRIPTION: When a trappable error occurs, execute GOTO - errline. The error handler must terminate - with a RESUME command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME NEXT -DESCRIPTION: When a trappable error occurs, execution - continues with the next line. Valid when - OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: OPEN filename$ - FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL - AS FILE filenumber - [ ,RECORDSIZE ignored ] - [ ,CLUSTERSIZE ignored ] - [ ,MODE ignored ] -DESCRIPTION: Opens a file for use. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: PUT # file_number [ , RECORD record_number ] -DESCRIPTION: Puts one (or more) values into a file. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENAME [filename$] -DESCRIPTION: Changes the file name which will be used by - SAVE. Does not save the file. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RESUME -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RESUME line -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the specified - line. ------------------------------------------------------------- - SYNTAX: RESUME NEXT -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the line after - ERL. ------------------------------------------------------------- - SYNTAX: RESUME 0 -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RSET variable$ = value -DESCRIPTION: Right-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the left with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SWAP variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: WEND -DESCRIPTION: Bottom of a WHILE - WEND structure. ------------------------------------------------------------- - SYNTAX: WHILE value -DESCRIPTION: Top of a WHILE - WEND structure. If the value - is non-zero, then the loop is terminated. ------------------------------------------------------------- - SYNTAX: WRITE # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. ------------------------------------------------------------- - SYNTAX: WRITE value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASCII( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASCII("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CATALOG -DESCRIPTION: Displays all the file names. ------------------------------------------------------------- - SYNTAX: N = CATALOG( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. ------------------------------------------------------------- - SYNTAX: N = CDBL( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The double-precision value of X. ------------------------------------------------------------- - SYNTAX: N = CHDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Changes to the directory named to A$. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CINT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The short (16-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLNG( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The long (32-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLOSE -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSNG( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The single-precision value of X. ------------------------------------------------------------- - SYNTAX: N = CVD( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(DBL) -DESCRIPTION: The double-precision value in A$, which was - created by MKD$. ------------------------------------------------------------- - SYNTAX: N = CVI( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(INT) -DESCRIPTION: The short (16-bit) integer value in A$, which - was created by MKI$. ------------------------------------------------------------- - SYNTAX: N = CVL( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(LNG) -DESCRIPTION: The long (32-bit) integer value in A$, which - was created by MKL$. ------------------------------------------------------------- - SYNTAX: N = CVS( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(FLT) -DESCRIPTION: The single-precision value in A$, which was - created by MKS$. ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: S$ = DATE$( X ) - PARAMETER: X is a number -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. - The value of parameter X is ignored. ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. ------------------------------------------------------------- - SYNTAX: N = ENVIRON( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Sends the environment variable expression - contained in A$ to the host operating system. - A$ must contain the "=" character. ------------------------------------------------------------- - SYNTAX: S$ = ENVIRON$( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the environment variable named - A$. ------------------------------------------------------------- - SYNTAX: N = EOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: If device number X is at the end-of-file, then - -1, otherwise 0. ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: S$ = ERR$ -DESCRIPTION: The last error message. ------------------------------------------------------------- - SYNTAX: N = ERROR( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Simulate the error number in X. ------------------------------------------------------------- - SYNTAX: S$ = ERROR$ -DESCRIPTION: The last error message. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FILEATTR( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, if Y = 1 then returns open mode, - otherwise returns zero. ------------------------------------------------------------- - SYNTAX: N = FILES -DESCRIPTION: Displays all the file names. ------------------------------------------------------------- - SYNTAX: N = FILES( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = FRE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = FRE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. ------------------------------------------------------------- - SYNTAX: N = FRE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = GET( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets the next available record. ------------------------------------------------------------- - SYNTAX: N = GET( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: S$ = HEX$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the hexadecimal (base 16) representation - of X. ------------------------------------------------------------- - SYNTAX: S$ = INKEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = INP( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X characters, read from the - terminal. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The string of X characters, read from file Y. ------------------------------------------------------------- - SYNTAX: N = INSTR( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. ------------------------------------------------------------- - SYNTAX: N = INSTR( X, A$, B$ ) - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = KILL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: S$ = LCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. ------------------------------------------------------------- - SYNTAX: S$ = LEFT( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = LOCATE( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Locates the cursor to row X, column Y. ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG10( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LPOS -DESCRIPTION: The current cursor position in the line for - the printer. ------------------------------------------------------------- - SYNTAX: S$ = LTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - leading space characters. ------------------------------------------------------------- - SYNTAX: N = LWIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For printer, sets the line width to X. Zero - means no wrapping will occur. ------------------------------------------------------------- - SYNTAX: S$ = MID( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = MKD$( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = MKDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Makes the directory named in A$. ------------------------------------------------------------- - SYNTAX: S$ = MKI$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The internal representation of the short - (16-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKL$( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The internal representation of the long - (32-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKS$( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = NAME( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Rename the file named A$ into B$. ------------------------------------------------------------- - SYNTAX: N = NULL( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Appends X null characters after each line - printed by LPRINT or LLIST. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = OCT$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the octal (base 8) representation of X. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Default the - record length. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$, Y ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Y is the - record length. ------------------------------------------------------------- - SYNTAX: N = OUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware port X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PI -DESCRIPTION: The constant 3.14159 which is the ratio of the - circumference of a circle to its diameter. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = POS( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The current cursor position in the line for - file X. ------------------------------------------------------------- - SYNTAX: N = PUT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts the next available record. ------------------------------------------------------------- - SYNTAX: N = PUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: N = RANDOM( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: S$ = REPEAT$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string consisting of X copies of - LEFT$(A$,1); X > 0. ------------------------------------------------------------- - SYNTAX: S$ = REPEAT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string consisting of X copies of CHR$(Y); - X > 0. ------------------------------------------------------------- - SYNTAX: N = RESET -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RMDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the directory named in A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = RTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - trailing space characters. ------------------------------------------------------------- - SYNTAX: N = SEEK( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = SEEK( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, move to record number Y; the first - record number is 1. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SHELL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The exit code resulting from the execution of - an operating system command. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SLEEP( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then SLEEP - does nothing. The resolution is - implementation defined. ------------------------------------------------------------- - SYNTAX: S$ = SPACE( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPACE$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string X bytes long consisting of the - first character of A$. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TIME -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: N = TIME( X ) - PARAMETER: X is a number -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). The value of the parameter - X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: S$ = TIME$( X ) - PARAMETER: X is a number -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = TIMER -DESCRIPTION: The time in the system clock in seconds - elapsed since midnight. ------------------------------------------------------------- - SYNTAX: S$ = TRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string resulting from removing both - leading and trailing spaces from A$. ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: S$ = UCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. ------------------------------------------------------------- - SYNTAX: N = UNSAVE( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: N = WAIT( X ) - PARAMETER: X is a number -DESCRIPTION: The program pauses for X times the value of - OPTION SLEEP seconds. If the result is zero, - negative, or more than INT_MAX then WAIT does - nothing. The resolution is implementation - defined. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Waits for the value of (INP(X) AND Y) to - become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y, Z ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] - PARAMETER: Z is a number, [0,255] -DESCRIPTION: Waits for the value of ((INP(X) XOR Z) AND Y) - to become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For console, sets the line width to X. Zero - means no wrapping will occur. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: If X = 0, sets the console width to Y. - If X < 0, sets the printer width to Y. - If X is an open file number, sets the file - line width to Y. - Otherwise sets the console rows to X and the - line width to Y. - A value of zero for Y means no wrapping will - occur. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X MOD Y -DESCRIPTION: Integer Modulus - PRECEDENCE: 10 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/SYSTEM-360.txt b/bwbtest/DOCS/SYSTEM-360.txt deleted file mode 100644 index 1e420fa..0000000 --- a/bwbtest/DOCS/SYSTEM-360.txt +++ /dev/null @@ -1,1104 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "SYSTEM/360" -REM INTERNAL ID: I70 -REM DESCRIPTION: IBM System/360 Mainframe BASIC -REM REFERENCE: BASIC Language Reference Manual -REM by International Business Machines Corporation -REM (c) 1970, International Business Machines Corporation -REM http://bitsavers.org/pdf/ibm/360/os/tso/ -REM GC28-6837-0_BASIC_Language_Ref_Man_Jun70.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS OFF -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 1 -OPTION RECLEN 0 -OPTION DATE "%Y/%m/%d" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE " " -OPTION PUNCT SINGLE " " -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG " " -OPTION PUNCT INTEGER " " -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT " " -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE ":" -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM " " -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA " " -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "!" -OPTION USING DOLLAR " " -OPTION USING FILLER " " -OPTION USING LITERAL " " -OPTION USING FIRST " " -OPTION USING ALL " " -OPTION USING LENGTH " " - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CLOSE -DESCRIPTION: Closes all files. ------------------------------------------------------------- - SYNTAX: CLOSE filename$ [, ...] -DESCRIPTION: Closes a file. ------------------------------------------------------------- - SYNTAX: CLOSE filenumber [, ...] -DESCRIPTION: Closes a file. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GET filename$ , scalar [, ...] -DESCRIPTION: Gets one (or more) values from a file. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IMAGE "format string" -DESCRIPTION: Provides format string for PRINT USING - linenum. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT GET filename$, arrayname -DESCRIPTION: Matrix get. ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT PUT filename$, arrayname -DESCRIPTION: Matrix put. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPEN filenumber, - filename$, - INPUT|OUTPUT|APPEND|VIRTUAL -DESCRIPTION: Opens a file for use. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PAUSE [comment] -DESCRIPTION: Pauses processing until the ENTER key is - presseed. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: PUT filename$ , value [, ...] -DESCRIPTION: Puts one (or more) values into a file. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RESET filename$ [, ...] -DESCRIPTION: Positions an input or output file to the - bcginning. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: USE parameter$ -DESCRIPTION: Receives the value from the calling CHAINing - program. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ACS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ACS(X) <= PI. X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ASN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASN(X) <= PI/2; X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: S$ = CHR( X ) - PARAMETER: X is a number -DESCRIPTION: The output of PRINT X. A$ = CHR(X) is the - opposite of X = NUM(A$). ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = COT( X ) - PARAMETER: X is a number -DESCRIPTION: The cotangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSC( X ) - PARAMETER: X is a number -DESCRIPTION: The cosecant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = HCS( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic cosine of X. ------------------------------------------------------------- - SYNTAX: N = HSN( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. ------------------------------------------------------------- - SYNTAX: N = HTN( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic tangent of X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LGT( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LTW( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The base 2 logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = MAX( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MAX( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: N = MIN( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MIN( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: N = NUM( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, NUM( " 123.5 " ) = 123.5, NUM( - "2.E-99" ) could be zero, and NUM( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = RAD( X ) - PARAMETER: X is a number -DESCRIPTION: The number of radians in X degrees. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SEC( X ) - PARAMETER: X is a number -DESCRIPTION: The secant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TIM -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/SYSTEM-370.txt b/bwbtest/DOCS/SYSTEM-370.txt deleted file mode 100644 index 6c8ecba..0000000 --- a/bwbtest/DOCS/SYSTEM-370.txt +++ /dev/null @@ -1,1104 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "SYSTEM/370" -REM INTERNAL ID: I73 -REM DESCRIPTION: IBM System/370 Mainframe BASIC -REM REFERENCE: IBM Virtual Machine Facility/370: BASIC Language Reference Manual -REM by International Business Machines Corporation -REM (c) 1973, International Business Machines Corporation -REM http://bitsavers.trailing-edge.com/pdf/ibm/370/VM_370/Release_1/ -REM GC20-1803-1_VM370_BASIC_Language_Reference_Manual_Rel_1_Apr73.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS OFF -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 1 -OPTION RECLEN 0 -OPTION DATE "%Y/%m/%d" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE " " -OPTION PUNCT SINGLE " " -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG " " -OPTION PUNCT INTEGER " " -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT " " -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE ":" -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM " " -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA " " -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "!" -OPTION USING DOLLAR " " -OPTION USING FILLER " " -OPTION USING LITERAL " " -OPTION USING FIRST " " -OPTION USING ALL " " -OPTION USING LENGTH " " - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CLOSE -DESCRIPTION: Closes all files. ------------------------------------------------------------- - SYNTAX: CLOSE filename$ [, ...] -DESCRIPTION: Closes a file. ------------------------------------------------------------- - SYNTAX: CLOSE filenumber [, ...] -DESCRIPTION: Closes a file. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GET filename$ , scalar [, ...] -DESCRIPTION: Gets one (or more) values from a file. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IMAGE "format string" -DESCRIPTION: Provides format string for PRINT USING - linenum. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LISTNH line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MAT arrayname = value -DESCRIPTION: Matrix operations: - MAT A = CON - MAT A = IDN - MAT A = ZER - MAT A = INV B - MAT A = TRN B - MAT A = (k) * B - MAT A = B - MAT A = B + C - MAT A = B - C - MAT A = B * C - MAT A$ = NUL$ ------------------------------------------------------------- - SYNTAX: MAT GET filename$, arrayname -DESCRIPTION: Matrix get. ------------------------------------------------------------- - SYNTAX: MAT INPUT arrayname -DESCRIPTION: Matrix input. ------------------------------------------------------------- - SYNTAX: MAT PRINT arrayname -DESCRIPTION: Matrix print. ------------------------------------------------------------- - SYNTAX: MAT PUT filename$, arrayname -DESCRIPTION: Matrix put. ------------------------------------------------------------- - SYNTAX: MAT READ arrayname -DESCRIPTION: Matrix read. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPEN filenumber, - filename$, - INPUT|OUTPUT|APPEND|VIRTUAL -DESCRIPTION: Opens a file for use. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PAUSE [comment] -DESCRIPTION: Pauses processing until the ENTER key is - presseed. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: PUT filename$ , value [, ...] -DESCRIPTION: Puts one (or more) values into a file. ------------------------------------------------------------- - SYNTAX: QUIT -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RESET filename$ [, ...] -DESCRIPTION: Positions an input or output file to the - bcginning. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: RUNNH line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUNNH filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUNNH -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: USE parameter$ -DESCRIPTION: Receives the value from the calling CHAINing - program. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ACS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ACS(X) <= PI. X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ASN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ASN(X) <= PI/2; X shall be in the range -1 <= - X <= 1. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: S$ = CHR( X ) - PARAMETER: X is a number -DESCRIPTION: The output of PRINT X. A$ = CHR(X) is the - opposite of X = NUM(A$). ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = COT( X ) - PARAMETER: X is a number -DESCRIPTION: The cotangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSC( X ) - PARAMETER: X is a number -DESCRIPTION: The cosecant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = DEG( X ) - PARAMETER: X is a number -DESCRIPTION: The number of degrees in X radians. ------------------------------------------------------------- - SYNTAX: N = DET -DESCRIPTION: The determinant of the last MAT INV. Zero - means error. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = HCS( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic cosine of X. ------------------------------------------------------------- - SYNTAX: N = HSN( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic sine of X. ------------------------------------------------------------- - SYNTAX: N = HTN( X ) - PARAMETER: X is a number -DESCRIPTION: The hyperbolic tangent of X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LGT( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The common logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LTW( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The base 2 logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = MAX( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MAX( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The larger of the parameters. ------------------------------------------------------------- - SYNTAX: N = MIN( X, Y ) - PARAMETER: X is a number - PARAMETER: Y is a number -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: S$ = MIN( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The smaller of the parameters. ------------------------------------------------------------- - SYNTAX: N = NUM( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, NUM( " 123.5 " ) = 123.5, NUM( - "2.E-99" ) could be zero, and NUM( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: N = RAD( X ) - PARAMETER: X is a number -DESCRIPTION: The number of radians in X degrees. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SEC( X ) - PARAMETER: X is a number -DESCRIPTION: The secant of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TIM -DESCRIPTION: The time elapsed since the previous midnight, - expressed in seconds; e.g., the value of TIME - at 11:15 AM is 40500. If there is no clock - available, then the value of TIME shall be - -1. The value of TIME at midnight shall be - zero (not 86400). ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ** Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/TRS-80.txt b/bwbtest/DOCS/TRS-80.txt deleted file mode 100644 index 9d90e36..0000000 --- a/bwbtest/DOCS/TRS-80.txt +++ /dev/null @@ -1,1618 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "TRS-80" -REM INTERNAL ID: T80 -REM DESCRIPTION: TRS-80 Model I/III/4 LBASIC -REM REFERENCE: LBASIC USER'S GUIDE -REM by Galactic Software, Ltd. -REM (c) 1981, Galactic Software, Ltd. -REM http://www.tim-mann.org/trs80/doc/ -REM lbasic.txt -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "" -OPTION TIME "%m/%d/%y %H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT "'" -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT "@" -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "%" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: AS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: AUTO [start [, increment]] -DESCRIPTION: Automatic line numbering for manual program - entry. If the line already exists, then an - asterisk is displayed and pressing ENTER - leaves the line as-is. If the line does not - exist, then an asterisk is not displayed and - pressing ENTER terminates AUTO mode. - Regardless whether the line exists, entering - the command MAN will terminate AUTO mode. - AUTO mode is also terminated by any ERROR or - by pressing control-C. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CLOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: CLOAD* arrayname -DESCRIPTION: Loads a numeric array from a file saved using - CSAVE*. ------------------------------------------------------------- - SYNTAX: COMMON variable [, ...] -DESCRIPTION: Designates variables to be passed to a CHAINed - program. ------------------------------------------------------------- - SYNTAX: CONT -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: CSAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: CSAVE* ArrayName -DESCRIPTION: Saves a numeric array into a file for later - loading by CLOAD*. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] -DESCRIPTION: Defines a multiline function. Multi-line DEF - functions do not have an equal sign and must - end with FNEND. ------------------------------------------------------------- - SYNTAX: DEFDBL letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFINT letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSNG letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - numeric variables. ------------------------------------------------------------- - SYNTAX: DEFSTR letter[-letter] [, ...] -DESCRIPTION: Declares variables with single-letter names as - string variables. ------------------------------------------------------------- - SYNTAX: DELETE line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: ERASE variable [, ...] -DESCRIPTION: Eliminates arrayed variables from a program. ------------------------------------------------------------- - SYNTAX: FIELD [#] filenum, number AS variable$ [, ...] -DESCRIPTION: Assigns number bytes in the buffer of random - file filenum to the variable variable$. GET - will automatically update the variable, and - PUT will automatically use the variable. ------------------------------------------------------------- - SYNTAX: FNEND -DESCRIPTION: Specifies the last line of a multi-line DEF - function. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: INPUT LINE variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE # filenum , variable$ -DESCRIPTION: Reads entire line from a file into variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE "prompt string" , variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$ after displaying a prompt ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LLIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the printer on stderr. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LPRINT [USING format-string$;] value ... -DESCRIPTION: Send output to the printer (stderr). ------------------------------------------------------------- - SYNTAX: LSET variable$ = value -DESCRIPTION: Left-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the right with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: MERGE filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program. Lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: MID$( variable$, start [, count ] ) = value -DESCRIPTION: Replaces a subtring of variable$ with value. ------------------------------------------------------------- - SYNTAX: NAME old$ AS new$ -DESCRIPTION: Changes the name of an existing file. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR GOTO errline -DESCRIPTION: When a trappable error occurs, execute GOTO - errline. The error handler must terminate - with a RESUME command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME NEXT -DESCRIPTION: When a trappable error occurs, execution - continues with the next line. Valid when - OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: OPEN filename$ - FOR INPUT|OUTPUT|APPEND|BINARY|RANDOM|VIRTUAL - AS [#] fileenumber - [LEN [=] record-length] -DESCRIPTION: Opens a file for use. - RANDOM requires LEN. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RESUME -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RESUME line -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the specified - line. ------------------------------------------------------------- - SYNTAX: RESUME NEXT -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the line after - ERL. ------------------------------------------------------------- - SYNTAX: RESUME 0 -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RSET variable$ = value -DESCRIPTION: Right-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the left with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SWAP variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: WEND -DESCRIPTION: Bottom of a WHILE - WEND structure. ------------------------------------------------------------- - SYNTAX: WHILE value -DESCRIPTION: Top of a WHILE - WEND structure. If the value - is non-zero, then the loop is terminated. ------------------------------------------------------------- - SYNTAX: WRITE # filenum, value [, .... ] -DESCRIPTION: Outputs value to a file. Strings are quoted - and each value is seperated by a omma. ------------------------------------------------------------- - SYNTAX: WRITE value [, .... ] -DESCRIPTION: Outputs value to the screen. Strings are - quoted and each value is seperated by a - comma. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = CDBL( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The double-precision value of X. ------------------------------------------------------------- - SYNTAX: N = CHDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Changes to the directory named to A$. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CINT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The short (16-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLNG( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The long (32-bit) integer value of X. ------------------------------------------------------------- - SYNTAX: N = CLOSE -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = CLS -DESCRIPTION: Clears the screen. Cursor is positioned at row - 1, column 1. ------------------------------------------------------------- - SYNTAX: N = COLOR( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sets the foreground text color to X, and the - background text color to Y. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CSNG( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The single-precision value of X. ------------------------------------------------------------- - SYNTAX: N = CVD( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(DBL) -DESCRIPTION: The double-precision value in A$, which was - created by MKD$. ------------------------------------------------------------- - SYNTAX: N = CVI( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(INT) -DESCRIPTION: The short (16-bit) integer value in A$, which - was created by MKI$. ------------------------------------------------------------- - SYNTAX: N = CVL( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(LNG) -DESCRIPTION: The long (32-bit) integer value in A$, which - was created by MKL$. ------------------------------------------------------------- - SYNTAX: N = CVS( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(FLT) -DESCRIPTION: The single-precision value in A$, which was - created by MKS$. ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = ENVIRON( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Sends the environment variable expression - contained in A$ to the host operating system. - A$ must contain the "=" character. ------------------------------------------------------------- - SYNTAX: S$ = ENVIRON$( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the environment variable named - A$. ------------------------------------------------------------- - SYNTAX: N = EOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: If device number X is at the end-of-file, then - -1, otherwise 0. ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: S$ = ERR$ -DESCRIPTION: The last error message. ------------------------------------------------------------- - SYNTAX: N = ERROR( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Simulate the error number in X. ------------------------------------------------------------- - SYNTAX: S$ = ERROR$ -DESCRIPTION: The last error message. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FILEATTR( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, if Y = 1 then returns open mode, - otherwise returns zero. ------------------------------------------------------------- - SYNTAX: N = FILES -DESCRIPTION: Displays all the file names. ------------------------------------------------------------- - SYNTAX: N = FILES( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Displays all the file names matching A$. ------------------------------------------------------------- - SYNTAX: N = FIX( X ) - PARAMETER: X is a number -DESCRIPTION: The truncated integer, part of X. FIX (X) is - equivalent to SGN(X)*INT(ABS(X)). The major - difference between FIX and INT is that FIX - does not return the next lower number for - negative X. ------------------------------------------------------------- - SYNTAX: N = FRE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = FRE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. ------------------------------------------------------------- - SYNTAX: N = FRE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = GET( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets the next available record. ------------------------------------------------------------- - SYNTAX: N = GET( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, gets record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: S$ = HEX$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the hexadecimal (base 16) representation - of X. ------------------------------------------------------------- - SYNTAX: S$ = INKEY$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = INP( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The value read from machine port X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X characters, read from the - terminal. ------------------------------------------------------------- - SYNTAX: S$ = INPUT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: The string of X characters, read from file Y. ------------------------------------------------------------- - SYNTAX: N = INSTR( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position 1. ------------------------------------------------------------- - SYNTAX: N = INSTR( X, A$, B$ ) - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = KILL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: S$ = LCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters from the value - associatedwith A$ by replacing each - upper-case-letter in the string by its - lower-case version. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOC( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = LOCATE( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Locates the cursor to row X, column Y. ------------------------------------------------------------- - SYNTAX: N = LOF( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The length of file X. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: N = LPOS -DESCRIPTION: The current cursor position in the line for - the printer. ------------------------------------------------------------- - SYNTAX: S$ = LTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - leading space characters. ------------------------------------------------------------- - SYNTAX: N = LWIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For printer, sets the line width to X. Zero - means no wrapping will occur. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = MKD$( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = MKDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Makes the directory named in A$. ------------------------------------------------------------- - SYNTAX: S$ = MKI$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The internal representation of the short - (16-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKL$( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The internal representation of the long - (32-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKS$( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = NAME( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Rename the file named A$ into B$. ------------------------------------------------------------- - SYNTAX: N = NULL( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: Appends X null characters after each line - printed by LPRINT or LLIST. ------------------------------------------------------------- - SYNTAX: S$ = NUM$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = OCT$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The the octal (base 8) representation of X. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Default the - record length. ------------------------------------------------------------- - SYNTAX: N = OPEN( A$, X, B$, Y ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: B$ is a string, LEN >= 1 - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Open file number X. A$ is the mode: "I", "O", - "A", "R". B$ is the file name. Y is the - record length. ------------------------------------------------------------- - SYNTAX: N = OUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware port X. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = POS( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The current cursor position in the line for - file X. ------------------------------------------------------------- - SYNTAX: N = PUT( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts the next available record. ------------------------------------------------------------- - SYNTAX: N = PUT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, puts record number Y. The first - record number is 1. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE( X ) - PARAMETER: X is a number -DESCRIPTION: Seeds the pseudo-random number generator with - X. ------------------------------------------------------------- - SYNTAX: S$ = REPEAT$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string consisting of X copies of - LEFT$(A$,1); X > 0. ------------------------------------------------------------- - SYNTAX: S$ = REPEAT$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string consisting of X copies of CHR$(Y); - X > 0. ------------------------------------------------------------- - SYNTAX: N = RESET -DESCRIPTION: Close all open files. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RMDIR( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the directory named in A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: S$ = RTRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by deleting all - trailing space characters. ------------------------------------------------------------- - SYNTAX: N = SEEK( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The location of file X; the next record that - GET or PUT statements will use. ------------------------------------------------------------- - SYNTAX: N = SEEK( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: For file X, move to record number Y; the first - record number is 1. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SHELL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The exit code resulting from the execution of - an operating system command. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPACE$( X ) - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The string of X blank spaces. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, A$ ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The string X bytes long consisting of the - first character of A$. ------------------------------------------------------------- - SYNTAX: S$ = STRING$( X, Y ) - PARAMETER: X is a number, [0,MAXLEN] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: The string X bytes long consisting of CHR$(Y). ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = TIME$ -DESCRIPTION: The time of day in 24-hour notation according - to ISO 3307. For example, the value of TIME$ - at 11:15 AM is "11:15:00". If there is no - clock available, then the value of TIME$ - shall be "99:99:99". The value of TIME$ at - midnight is "00:00:00". ------------------------------------------------------------- - SYNTAX: N = TIMER -DESCRIPTION: The time in the system clock in seconds - elapsed since midnight. ------------------------------------------------------------- - SYNTAX: S$ = TRIM$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string resulting from removing both - leading and trailing spaces from A$. ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: S$ = UCASE$( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The string of characters resulting from the - value associated with A$ by replacing each - lower-case-letter in the string by its - upper-case version. ------------------------------------------------------------- - SYNTAX: N = USR( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR0( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR1( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR2( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR3( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR4( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR5( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR6( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR7( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR8( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR9( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Waits for the value of (INP(X) AND Y) to - become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WAIT( X, Y, Z ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] - PARAMETER: Z is a number, [0,255] -DESCRIPTION: Waits for the value of ((INP(X) XOR Z) AND Y) - to become nonzero. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: For console, sets the line width to X. Zero - means no wrapping will occur. ------------------------------------------------------------- - SYNTAX: N = WIDTH( X, Y ) - PARAMETER: X is a number, [MININT,MAXINT] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: If X = 0, sets the console width to Y. - If X < 0, sets the printer width to Y. - If X is an open file number, sets the file - line width to Y. - Otherwise sets the console rows to X and the - line width to Y. - A value of zero for Y means no wrapping will - occur. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X [ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X \ Y -DESCRIPTION: Integer Division - PRECEDENCE: 11 ------------------------------------------------------------- - SYNTAX: X MOD Y -DESCRIPTION: Integer Modulus - PRECEDENCE: 10 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - SYNTAX: X EQV Y -DESCRIPTION: Bitwise EQV - PRECEDENCE: 2 ------------------------------------------------------------- - SYNTAX: X IMP Y -DESCRIPTION: Bitwise IMP - PRECEDENCE: 1 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/VINTAGE.txt b/bwbtest/DOCS/VINTAGE.txt deleted file mode 100644 index 980b562..0000000 --- a/bwbtest/DOCS/VINTAGE.txt +++ /dev/null @@ -1,858 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "VINTAGE" -REM INTERNAL ID: V09 -REM DESCRIPTION: Vintage BASIC 1.0.1 -REM REFERENCE: Vintage BASIC User's Guide 1.0.1 -REM by Lyle Kopnicky -REM (c) 2009, Lyle Kopnicky -REM http://www.vintage-basic.net/ -REM vintage-basic-1.0.1.tar.gz -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 128 -OPTION DATE "" -OPTION TIME "" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE " " -OPTION PUNCT SINGLE " " -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG " " -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT " " -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM " " -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SYSTEM -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: S$ = LEFT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The X left-most characters of A$, beginning - from postion 1. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: N = RANDOMIZE -DESCRIPTION: Seeds the pseudo-random number generator with - TIME. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - - diff --git a/bwbtest/DOCS/XBASIC.txt b/bwbtest/DOCS/XBASIC.txt deleted file mode 100644 index a0d1220..0000000 --- a/bwbtest/DOCS/XBASIC.txt +++ /dev/null @@ -1,1259 +0,0 @@ -============================================================ - GENERAL -============================================================ - - -OPTION VERSION "XBASIC" -REM INTERNAL ID: T79 -REM DESCRIPTION: TSC XBASIC for 6800 FLEX -REM REFERENCE: Extended BASIC User's Manual -REM by Technical Systems Consultants -REM (c) 1979, Technical Systems Consultants -REM http://www.swtpc.com/mholley/Setton/ -REM xbasic.pdf -REM -OPTION STRICT OFF -OPTION ANGLE RADIANS -OPTION BUGS ON -OPTION LABELS OFF -OPTION COMPARE BINARY -OPTION COVERAGE OFF -OPTION TRACE OFF -OPTION ERROR GOTO -OPTION IMPLICIT -OPTION BASE 0 -OPTION RECLEN 0 -OPTION DATE "%d-%b-%y" -OPTION TIME "%H:%M:%S" -OPTION PUNCT STRING "$" -OPTION PUNCT DOUBLE "#" -OPTION PUNCT SINGLE "!" -OPTION PUNCT CURRENCY " " -OPTION PUNCT LONG "&" -OPTION PUNCT INTEGER "%" -OPTION PUNCT BYTE " " -OPTION PUNCT QUOTE """ -OPTION PUNCT COMMENT " " -OPTION PUNCT STATEMENT ":" -OPTION PUNCT PRINT "?" -OPTION PUNCT INPUT " " -OPTION PUNCT IMAGE " " -OPTION PUNCT LPAREN "(" -OPTION PUNCT RPAREN ")" -OPTION PUNCT FILENUM "#" -OPTION PUNCT AT " " -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" - - -============================================================ - COMMANDS -============================================================ - - ------------------------------------------------------------- - SYNTAX: APPEND filename$ -DESCRIPTION: Merges the BASIC program in filename$ into the - current BASIC program; lines in filename$ - replace any matching lines in the current - program. ------------------------------------------------------------- - SYNTAX: AS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: CHAIN filename$ [, linenumber] -DESCRIPTION: Load and execute another BASIC program, - without clearing common variables. For - System/370, the syntax is CHAIN - filename$,parameter$. ------------------------------------------------------------- - SYNTAX: CLEAR -DESCRIPTION: Sets all numeric variables to 0, and all - string variables to empty strings. ------------------------------------------------------------- - SYNTAX: CONT -DESCRIPTION: Continue a BASIC program after a STOP has been - executed. Program resumes at the line after - the STOP. ------------------------------------------------------------- - SYNTAX: DATA constant [, ...] -DESCRIPTION: Stores numeric and string constants to be - accessed by READ. ------------------------------------------------------------- - SYNTAX: DEF FNname[( arg [,...] )] = value -DESCRIPTION: Defines a single-line function. Single-line - functions require an equal sign. ------------------------------------------------------------- - SYNTAX: DIM [# filenum,] variable([ lower TO ] upper) -DESCRIPTION: Declares variables and specifies the - dimensions of array variables. For array - variables, if the lower bound is not - provided, then the OPTION BASE value is used. - If filenum is provided, then the variable is - virtual. ------------------------------------------------------------- - SYNTAX: EDIT -DESCRIPTION: implementation defined. ------------------------------------------------------------- - SYNTAX: ELSE -DESCRIPTION: Introduces a default condition in a multi-line - IF statement. ------------------------------------------------------------- - SYNTAX: ELSEIF -DESCRIPTION: Introduces a secondary condition in a - multi-line IF statement. ------------------------------------------------------------- - SYNTAX: END -DESCRIPTION: Terminates program execution. If the BASIC - program was executed from the operating - system level, then control returns to the - operating system, oterwise control reuturns - to the BASIC prompt. ------------------------------------------------------------- - SYNTAX: END IF -DESCRIPTION: Specifies the last line of a multi-line IF - definition. ------------------------------------------------------------- - SYNTAX: FIELD [#] filenum, number AS variable$ [, ...] -DESCRIPTION: Assigns number bytes in the buffer of random - file filenum to the variable variable$. GET - will automatically update the variable, and - PUT will automatically use the variable. ------------------------------------------------------------- - SYNTAX: FLEX -DESCRIPTION: Exits to the operating system. ------------------------------------------------------------- - SYNTAX: FOR variable = start TO finish [STEP - increment] -DESCRIPTION: Top of a FOR - NEXT structure. The loop will - continue a fixed number of times, which is - determined by the values of start, finish, - and increment. ------------------------------------------------------------- - SYNTAX: GET # file_number [ , RECORD record_number ] -DESCRIPTION: Gets one (or more) values from a file. ------------------------------------------------------------- - SYNTAX: GET # file_number [ , RECORD record_number ] -DESCRIPTION: Gets one (or more) values from a file. ------------------------------------------------------------- - SYNTAX: GO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: GO SUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GO TO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOSUB line -DESCRIPTION: Initiates a subroutine call to the line - specified. The subroutine must end with - RETURN. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: GOTO line -DESCRIPTION: Branches program execution to the specified - line. The line may be a number or a label. ------------------------------------------------------------- - SYNTAX: IF value THEN line1 [ELSE line2] -DESCRIPTION: Single line standard IF command. If the value - is non-zero, then branh to line1. If the - value is zero and ELSE is provided, then - branch to line2. Otherwise continue to the - next line. LABELS are not allowed. ------------------------------------------------------------- - SYNTAX: IF value THEN -DESCRIPTION: Top of a multi-line IF - END IF structure. If - the value is non-zero, then the program lines - upto the next ELSE or ELSE IF command are - executed, otherwise the program branches to - the next ELSE or ELSE IF command. ------------------------------------------------------------- - SYNTAX: INPUT "prompt string" , variable [, ...] -DESCRIPTION: Reads input from the terminal after displaying - a prompt. ------------------------------------------------------------- - SYNTAX: INPUT # filenum , variable [, ...]s -DESCRIPTION: Reads input from the file specified by - filenum. ------------------------------------------------------------- - SYNTAX: INPUT variable [, ...] -DESCRIPTION: Reads input from the terminal. ------------------------------------------------------------- - SYNTAX: INPUT LINE variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE # filenum , variable$ -DESCRIPTION: Reads entire line from a file into variable$. ------------------------------------------------------------- - SYNTAX: INPUT LINE "prompt string" , variable$ -DESCRIPTION: Reads entire line from the terminal into - variable$ after displaying a prompt ------------------------------------------------------------- - SYNTAX: [LET] variable [, ...] = value -DESCRIPTION: Assigns the value to the variable. The LET - keyword is optional. ------------------------------------------------------------- - SYNTAX: LINE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: LINE INPUT [[#] filenum,]["prompt string";] - variable$ -DESCRIPTION: Reads entire line from the keyboard or a file - into variable$. ------------------------------------------------------------- - SYNTAX: LIST line1 [- line2] -DESCRIPTION: Lists BASIC program lines from line1 to line2 - to the console on stdout. ------------------------------------------------------------- - SYNTAX: LOAD [filename$] -DESCRIPTION: Loads an ASCII BASIC program into memory. ------------------------------------------------------------- - SYNTAX: LSET variable$ = value -DESCRIPTION: Left-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the right with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: MAINTAINER -DESCRIPTION: This command is reserved for use by the - Bywater BASIC maintainer. It is not for the - BASIC programmer. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS HTML -DESCRIPTION: Dump COMMAND vs VERSION as HTML table ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS ID -DESCRIPTION: Dump COMMAND #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS MANUAL -DESCRIPTION: Dump COMMAND manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS_SWITCH -DESCRIPTION: Dump COMMAND switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER CMDS TABLE -DESCRIPTION: Dump COMMAND table. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG OFF -DESCRIPTION: Disable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER DEBUG ON -DESCRIPTION: Enable degug tracing. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS HTML -DESCRIPTION: Dump FUNCTION vs VERSION as HTML table. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS ID -DESCRIPTION: Dump FUNCTION #define. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS MANUAL -DESCRIPTION: Dump FUNCTION manual. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS SWITCH -DESCRIPTION: Dump FUNCTION switch. ------------------------------------------------------------- - SYNTAX: MAINTAINER FNCS TABLE -DESCRIPTION: Dump FUNCTION table. ------------------------------------------------------------- - SYNTAX: MAINTAINER MANUAL -DESCRIPTION: Dump manual for the currently selected OPTION - VERSION. ------------------------------------------------------------- - SYNTAX: MAINTAINER STACK -DESCRIPTION: Dump the current BASIC stack. ------------------------------------------------------------- - SYNTAX: NEW -DESCRIPTION: Deletes the program in memory and clears all - variables. ------------------------------------------------------------- - SYNTAX: NEXT [variable] -DESCRIPTION: The bottom line of a FOR - NEXT structure. ------------------------------------------------------------- - SYNTAX: OF -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON value GOSUB line [, ...] -DESCRIPTION: Calls based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON value GOTO line [, ...] -DESCRIPTION: Branches based on the rounded value. ------------------------------------------------------------- - SYNTAX: ON ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR GOTO errline -DESCRIPTION: When a trappable error occurs, execute GOTO - errline. The error handler must terminate - with a RESUME command. If the line number is - 0 (zerp), then use the default error handler. - Valid when OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: ON ERROR RESUME NEXT -DESCRIPTION: When a trappable error occurs, execution - continues with the next line. Valid when - OPTION ERROR GOTO. ------------------------------------------------------------- - SYNTAX: OPEN NEW|OLD|VIRTUAL filename$ - AS filenumber -DESCRIPTION: Opens a file for use. ------------------------------------------------------------- - SYNTAX: OPTION -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE DEGREES -DESCRIPTION: Configures these math functions to accept and - return angles in degrees: ACOS, ACS, ANGLE, - ARCSIN, ASIN, ASN, ARCTAN, ATN, ATAN, COS, - COT, CSC, SEC, SIN and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE GRADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in gradians: ACOS, ANGLE, - ASIN, ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN - and TAN. ------------------------------------------------------------- - SYNTAX: OPTION ANGLE RADIANS -DESCRIPTION: Configures these math functions to accept and - return angles in radians: ACOS, ANGLE, ASIN, - ASN, ATN, ATAN, COS, COT, CSC, SEC, SIN and - TAN. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC DECIMAL -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC FIXED -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION ARITHMETIC NATIVE -DESCRIPTION: Currently has no effect. ------------------------------------------------------------- - SYNTAX: OPTION BASE integer -DESCRIPTION: Sets the default lowest array subscript. ------------------------------------------------------------- - SYNTAX: OPTION BUGS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION BUGS BOOLEAN -DESCRIPTION: Boolean results are 1 or 0 instead of bitwise. ------------------------------------------------------------- - SYNTAX: OPTION BUGS OFF -DESCRIPTION: Disables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION BUGS ON -DESCRIPTION: Enables bugs commonly found in many BASIC - dialects. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE BINARY -DESCRIPTION: Causes string comparisons to be - case-sensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE DATABASE -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COMPARE TEXT -DESCRIPTION: Causes string comparisons to be - case-insensitive. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE OFF -DESCRIPTION: Disables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION COVERAGE ON -DESCRIPTION: Enables BASIC code coverage recording, - displayed using the LIST command. ------------------------------------------------------------- - SYNTAX: OPTION DATE format$ -DESCRIPTION: Sets the date format string used by C - strftime() for DATE$. ------------------------------------------------------------- - SYNTAX: OPTION DIGITS integer -DESCRIPTION: Sets the number of significant digits for - PRINT. Setting the value to zero restores - the default. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE COMMAND name$ -DESCRIPTION: Disables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE FUNCTION name$ -DESCRIPTION: Disables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION DISABLE OPERATOR name$ -DESCRIPTION: Disables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION EDIT string$ -DESCRIPTION: Sets the program name used by the EDIT - command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE COMMAND name$ -DESCRIPTION: Enables the specified BASIC command. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE FUNCTION name$ -DESCRIPTION: Enables the specified BASIC function. ------------------------------------------------------------- - SYNTAX: OPTION ENABLE OPERATOR name$ -DESCRIPTION: Enables the specified BASIC operator. ------------------------------------------------------------- - SYNTAX: OPTION ERROR -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOSUB -DESCRIPTION: When an error occurs, GOSUB to the error - handler. The error handler exits with - RETURN. ------------------------------------------------------------- - SYNTAX: OPTION ERROR GOTO -DESCRIPTION: When an error occurs, GOTO to the error - handler. The error handler exits with - RESUME. ------------------------------------------------------------- - SYNTAX: OPTION EXPLICIT -DESCRIPTION: All variables must be declared using DIM. ------------------------------------------------------------- - SYNTAX: OPTION EXTENSION string$ -DESCRIPTION: Sets the BASIC filename extension, commonly - ".bas". ------------------------------------------------------------- - SYNTAX: OPTION FILES string$ -DESCRIPTION: Sets the program name used by the FILES - command. ------------------------------------------------------------- - SYNTAX: OPTION IMPLICIT -DESCRIPTION: Variables need not be declared using DIM, - provided arrays have no more that 10 - elements. This is the opposite of OPTION - EXPLICIT, and is the default for all versions - of BASIC. ------------------------------------------------------------- - SYNTAX: OPTION INDENT integer -DESCRIPTION: Sets indention level for LIST. Zero means no - indention. Default is 2. ------------------------------------------------------------- - SYNTAX: OPTION LABELS -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION LABELS OFF -DESCRIPTION: Disables text labels. ------------------------------------------------------------- - SYNTAX: OPTION LABELS ON -DESCRIPTION: Enables text labels. ------------------------------------------------------------- - SYNTAX: OPTION PROMPT string$ -DESCRIPTION: Sets the BASIC prompt. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION PUNCT AT char$ -DESCRIPTION: Sets the PRINT AT character, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT BYTE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type BYTE, commonly "~". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT COMMENT char$ -DESCRIPTION: Sets the shortcut COMMENT character, commonly - "'". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT CURRENCY char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type CURRENCY, commonly "@". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT DOUBLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type DOUBLE, commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT FILENUM char$ -DESCRIPTION: Sets the FILE NUMBER prefix character, - commonly "#". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT IMAGE char$ -DESCRIPTION: Sets the shortcut IMAGE character, commonly - ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INPUT char$ -DESCRIPTION: Sets the shortcut INPUT character, commonly - "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT INTEGER char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type INTEGER, commonly "%". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LONG char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type LONG, commonly "&". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT LPAREN char$ -DESCRIPTION: Sets the LEFT PARENTHESIS character, commonly - "(". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT_PRINT char$ -DESCRIPTION: Sets the shortcut PRINT character, commonly - "?". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT QUOTE char$ -DESCRIPTION: Sets the QUOTE character, commonly """ ------------------------------------------------------------- - SYNTAX: OPTION PUNCT RPAREN char$ -DESCRIPTION: Sets the RIGHT PARENTHESIS character, commonly - ")". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT SINGLE char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type SINGLE, commonly "!". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STATEMENT char$ -DESCRIPTION: Sets the statement seperator character, - commonly ":". ------------------------------------------------------------- - SYNTAX: OPTION PUNCT STRING char$ -DESCRIPTION: Sets the suffix character that indicates a - variable is of type STRING, commonly "$". ------------------------------------------------------------- - SYNTAX: OPTION RECLEN integer -DESCRIPTION: Sets the default RANDOM record length. ------------------------------------------------------------- - SYNTAX: OPTION RENUM string$ -DESCRIPTION: Sets the program name used by the RENUM - command. ------------------------------------------------------------- - SYNTAX: OPTION ROUND -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION ROUND BANK -DESCRIPTION: Round using the Banker rule. ------------------------------------------------------------- - SYNTAX: OPTION ROUND MATH -DESCRIPTION: Round using mathematical rules. ------------------------------------------------------------- - SYNTAX: OPTION ROUND TRUNCATE -DESCRIPTION: Round using truncation. ------------------------------------------------------------- - SYNTAX: OPTION SCALE integer -DESCRIPTION: Sets the number of digits to round after the - decimal point for PRINT. Setting the value - to zero disables rounding. ------------------------------------------------------------- - SYNTAX: OPTION SLEEP double -DESCRIPTION: Sets multiplier for SLEEP and WAIT. Zero - means no waiting. Default is 1. ------------------------------------------------------------- - SYNTAX: OPTION STDERR filename$ -DESCRIPTION: Sets the file used for STDERR, which is used - by LPRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDIN filename$ -DESCRIPTION: Sets the file used for STDIN, which is used by - INPUT commands. ------------------------------------------------------------- - SYNTAX: OPTION STDOUT filename$ -DESCRIPTION: Sets the file used for STDOUT, which is used - by PRINT commands. ------------------------------------------------------------- - SYNTAX: OPTION STRICT -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION STRICT OFF -DESCRIPTION: Disables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION STRICT ON -DESCRIPTION: Enables checking for implicit array creation - without using the DIM command. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ADM -DESCRIPTION: Enables ADM-3A terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL ANSI -DESCRIPTION: Enables ANSI terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TERMINAL NONE -DESCRIPTION: Disables terminal control codes for CLS, - COLOR, and LOCATE. ------------------------------------------------------------- - SYNTAX: OPTION TIME format$ -DESCRIPTION: Sets the time format string used by C - strftime() for TIME$. ------------------------------------------------------------- - SYNTAX: OPTION TRACE -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TRACE OFF -DESCRIPTION: Disables displaying a stack trace when an - ERROR occurs. ------------------------------------------------------------- - SYNTAX: OPTION TRACE ON -DESCRIPTION: Enables displaying a stack trace when an ERROR - occurs. ------------------------------------------------------------- - SYNTAX: OPTION TYPO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION TYPO OFF -DESCRIPTION: Does not require a variable to be written - before it is read. ------------------------------------------------------------- - SYNTAX: OPTION TYPO ON -DESCRIPTION: Requires all variables to be written before - they are read. Any attempt to read a - variable that has not been written causes - VARIABLE NOT ASSIGNED. ------------------------------------------------------------- - SYNTAX: OPTION USING -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: OPTION USING ALL char$ -DESCRIPTION: Specifies the magic ALL character for the - PRINT USING command. A common value is "&". ------------------------------------------------------------- - SYNTAX: OPTION USING COMMA char$ -DESCRIPTION: Specifies the magic COMMA character for the - PRINT USING command. A common value is ",". ------------------------------------------------------------- - SYNTAX: OPTION USING DIGIT char$ -DESCRIPTION: Specifies the magic DIGIT character for the - PRINT USING command. A common value is "#". ------------------------------------------------------------- - SYNTAX: OPTION USING DOLLAR char$ -DESCRIPTION: Specifies the magic DOLLAR character for the - PRINT USING command. A common value is "$". ------------------------------------------------------------- - SYNTAX: OPTION USING EXRAD char$ -DESCRIPTION: Specifies the magic EXRAD character for the - PRINT USING command. A common value is "^". ------------------------------------------------------------- - SYNTAX: OPTION USING FILLER char$ -DESCRIPTION: Specifies the magic FILLER character for the - PRINT USING command. A common value is "*". ------------------------------------------------------------- - SYNTAX: OPTION USING FIRST char$ -DESCRIPTION: Specifies the magic FIRST character for the - PRINT USING command. A common value is "!". ------------------------------------------------------------- - SYNTAX: OPTION USING LENGTH char$ -DESCRIPTION: Specifies the magic LENGTH character for the - PRINT USING command. A common value is "\". ------------------------------------------------------------- - SYNTAX: OPTION USING LITERAL char$ -DESCRIPTION: Specifies the magic LITERAL character for the - PRINT USING command. A common value is "_". ------------------------------------------------------------- - SYNTAX: OPTION USING MINUS char$ -DESCRIPTION: Specifies the magic MINUS character for the - PRINT USING command. A common value is "-". ------------------------------------------------------------- - SYNTAX: OPTION USING PERIOD char$ -DESCRIPTION: Specifies the magic PERIOD character for the - PRINT USING command. A common value is ".". ------------------------------------------------------------- - SYNTAX: OPTION USING PLUS char$ -DESCRIPTION: Specifies the magic PLUS character for the - PRINT USING command. A common value is "+". ------------------------------------------------------------- - SYNTAX: OPTION VERSION version$ -DESCRIPTION: Selects a specific BASIC version, which is a - combination of OPTION settings, commands, - functions and operators. If no version is - specified, displays a list of the available - versions. ------------------------------------------------------------- - SYNTAX: OPTION ZONE integer -DESCRIPTION: Sets the PRINT zone width. Setting the value - to zero restores the default. ------------------------------------------------------------- - SYNTAX: PDEL line [- line] -DESCRIPTION: Deletes program lines indicated by the - argument(s). All program lines have a - number, which is visible with the LIST - command. If line numbers are not provided, - they are assigned beginning with 1. Deleting - a non-existing line does not cause an error. ------------------------------------------------------------- - SYNTAX: PRINT # filenum , [USING format$;] value ... -DESCRIPTION: Sends output to a file. ------------------------------------------------------------- - SYNTAX: PRINT [USING format$;] value ... -DESCRIPTION: Sends output to the screen. ------------------------------------------------------------- - SYNTAX: PUT # file_number [ , RECORD record_number ] -DESCRIPTION: Puts one (or more) values into a file. ------------------------------------------------------------- - SYNTAX: READ variable [, ...] -DESCRIPTION: Reads values from DATA statements. ------------------------------------------------------------- - SYNTAX: REM ... -DESCRIPTION: Remark. ------------------------------------------------------------- - SYNTAX: RENUM -DESCRIPTION: Implementation defined. ------------------------------------------------------------- - SYNTAX: RESTORE [line] -DESCRIPTION: Resets the line used for the next READ - statement. line may be either a number or a - label. ------------------------------------------------------------- - SYNTAX: RESUME -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RESUME line -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the specified - line. ------------------------------------------------------------- - SYNTAX: RESUME NEXT -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to the line after - ERL. ------------------------------------------------------------- - SYNTAX: RESUME 0 -DESCRIPTION: Used in an error handler to specify the next - line to execute. Branch to ERL. ------------------------------------------------------------- - SYNTAX: RETURN -DESCRIPTION: Concludes a subroutine called by GOSUB. ------------------------------------------------------------- - SYNTAX: RSET variable$ = value -DESCRIPTION: Right-aligns the value into variable$. If the - length of the value is too short, then it is - padded on the left with spaces. If the - length of the value is too long, then it is - truncated on the right. This is only for use - with variables assigned to a random access - buffer with FIELD command. ------------------------------------------------------------- - SYNTAX: RUN filename$ -DESCRIPTION: Loads a new BAASIC program and executes the - program from the start. ------------------------------------------------------------- - SYNTAX: RUN line -DESCRIPTION: Executes the program in memory beginning at - line. ------------------------------------------------------------- - SYNTAX: RUN -DESCRIPTION: Executes the program in memory from the start. ------------------------------------------------------------- - SYNTAX: SAVE [filename$] -DESCRIPTION: Saves the current program into the file - filename$ in ASCII format. ------------------------------------------------------------- - SYNTAX: STEP -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: STOP -DESCRIPTION: Interrupts program execution and displays the - line number of the STOP command. For use - when debugging BASIC programs. Whether STOP - issues a SIGINT signal is implementation - defined. ------------------------------------------------------------- - SYNTAX: SWAP variable, variable -DESCRIPTION: Swaps the values of two variables. Both - variables must be of the same type. ------------------------------------------------------------- - SYNTAX: THEN -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - SYNTAX: TO -DESCRIPTION: Syntax Error. ------------------------------------------------------------- - - -============================================================ - FUNCTIONS -============================================================ - - ------------------------------------------------------------- - SYNTAX: N = ABS( X ) - PARAMETER: X is a number -DESCRIPTION: The absolute value of X. ------------------------------------------------------------- - SYNTAX: N = ARCCOS( X ) - PARAMETER: X is a number -DESCRIPTION: The arccosine of X in radians, where 0 <= - ARCCOS(X) <= PI. X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ARCSIN( X ) - PARAMETER: X is a number -DESCRIPTION: The arcsine of X in radians, where -PI/2 <= - ARCSIN(X) <= PI/2; X shall be in the range -1 - <= X <= 1. ------------------------------------------------------------- - SYNTAX: N = ARCTAN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ARCTAN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: N = ASC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric code for the first letter in A$. - For example, ASC("ABC") returns 65 on ASCII - systems. ------------------------------------------------------------- - SYNTAX: N = ATN( X ) - PARAMETER: X is a number -DESCRIPTION: The arctangent of X in radians, i.e. the angle - whose tangent is X, where -PI/2 < ATN(X) < - PI/2. ------------------------------------------------------------- - SYNTAX: S$ = CHR$( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: The one-character string with the character - corresponding to the numeric code X. On - ASCII systems, CHR$(65) returns "A". ------------------------------------------------------------- - SYNTAX: N = CLOSE( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: Close file number X. ------------------------------------------------------------- - SYNTAX: N = COS( X ) - PARAMETER: X is a number -DESCRIPTION: The cosine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = CVD( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(DBL) -DESCRIPTION: The double-precision value in A$, which was - created by MKD$. ------------------------------------------------------------- - SYNTAX: N = CVI( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(INT) -DESCRIPTION: The short (16-bit) integer value in A$, which - was created by MKI$. ------------------------------------------------------------- - SYNTAX: N = CVL( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(LNG) -DESCRIPTION: The long (32-bit) integer value in A$, which - was created by MKL$. ------------------------------------------------------------- - SYNTAX: N = CVS( A$ ) - PARAMETER: A$ is a string, LEN >= sizeof(FLT) -DESCRIPTION: The single-precision value in A$, which was - created by MKS$. ------------------------------------------------------------- - SYNTAX: S$ = DATE$ -DESCRIPTION: The current date based on the internal clock - as a string in the format set by OPTION DATE. ------------------------------------------------------------- - SYNTAX: N = DIGITS( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: X is the number of significiant digits to - print for numbers (0..17). If X = 0 then - disabled. ------------------------------------------------------------- - SYNTAX: N = DIGITS( X, Y ) - PARAMETER: X is a number, [0,255] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: X is the number of significiant digits to - print for numbers (0..17). If X = 0 then - disabled. Y is the number of decimal places - to round (0..17). If Y = 0 then disabled. ------------------------------------------------------------- - SYNTAX: N = DPEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = DPOKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [MININT,MAXINT] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = ERL -DESCRIPTION: The line number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = ERR -DESCRIPTION: The error number of the most recent error. ------------------------------------------------------------- - SYNTAX: N = EXEC( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The exit code resulting from the execution of - an operating system command. ------------------------------------------------------------- - SYNTAX: N = EXP( X ) - PARAMETER: X is a number -DESCRIPTION: The exponential value of X, i.e., the value of - the base of natural logarithms (e = 2.71828) - raised to the power of X; if EXP(X) is less - that machine infinitesimal, then its value - shall be replaced with zero. ------------------------------------------------------------- - SYNTAX: N = FRE -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. ------------------------------------------------------------- - SYNTAX: N = FRE( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000.The value of A$ is - ignored. ------------------------------------------------------------- - SYNTAX: N = FRE( X ) - PARAMETER: X is a number -DESCRIPTION: The number of bytes of available memory. This - function is provided for backward - compatibility only and it always returns a - fixed value of 32000. The value of X is - ignored. ------------------------------------------------------------- - SYNTAX: N = HEX( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The numeric value of the hexadecimal string in - A$. For example, HEX("FFFF") returns 65535. ------------------------------------------------------------- - SYNTAX: S$ = INCH$ -DESCRIPTION: The keypress, if available. If a keypress is - not available, then immediately returns an - empty string. If not supported by the - platform, then always returns an empty - string, so use INPUT$(1) instead. ------------------------------------------------------------- - SYNTAX: N = INSTR( X, A$, B$ ) - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: B$ is a string, LEN >= 0 -DESCRIPTION: The position at which B$ occurs in A$, - beginning at position X. ------------------------------------------------------------- - SYNTAX: N = INT( X ) - PARAMETER: X is a number -DESCRIPTION: The largest integer not greater than X; e.g. - INT(1.3) = 1 and INT(-1.3) = 2. ------------------------------------------------------------- - SYNTAX: N = KILL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: Removes the file named in A$. ------------------------------------------------------------- - SYNTAX: N = LEN( A$ ) - PARAMETER: A$ is a string, LEN >= 0 -DESCRIPTION: The length of A$. ------------------------------------------------------------- - SYNTAX: N = LOG( X ) - PARAMETER: X is a number, > 0 -DESCRIPTION: The natural logarithm of X; X shall be greater - than zero. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] -DESCRIPTION: The characters of A$, starting from postion X. ------------------------------------------------------------- - SYNTAX: S$ = MID$( A$, X, Y ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [1,MAXLEN] - PARAMETER: Y is a number, [0,MAXLEN] -DESCRIPTION: The Y characters of A$, starting from postion - X. ------------------------------------------------------------- - SYNTAX: S$ = MKD$( X ) - PARAMETER: X is a number, [MINDBL,MAXDBL] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKI$( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The internal representation of the short - (16-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKL$( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The internal representation of the long - (32-bit) integer X as a string. ------------------------------------------------------------- - SYNTAX: S$ = MKS$( X ) - PARAMETER: X is a number, [MINFLT,MAXFLT] -DESCRIPTION: The internal representation of X as a string. ------------------------------------------------------------- - SYNTAX: N = NAME( ... ) -DESCRIPTION: Returns hardware address of variable. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = PEEK( X ) - PARAMETER: X is a number, [MINLNG,MAXLNG] -DESCRIPTION: The value read from hardware address X. - Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = POKE( X, Y ) - PARAMETER: X is a number, [MINLNG,MAXLNG] - PARAMETER: Y is a number, [0,255] -DESCRIPTION: Sends Y to hardware address X. Causes ERROR - 73. ------------------------------------------------------------- - SYNTAX: N = POS -DESCRIPTION: The current cursor position in the line. ------------------------------------------------------------- - SYNTAX: N = POS( X ) - PARAMETER: X is a number, [MININT,MAXINT] -DESCRIPTION: The current cursor position in the line for - file X. ------------------------------------------------------------- - SYNTAX: N = PTR( ... ) -DESCRIPTION: Returns hardware address of variable. Causes - ERROR 73. ------------------------------------------------------------- - SYNTAX: N = RENAME( A$, B$ ) - PARAMETER: A$ is a string, LEN >= 1 - PARAMETER: B$ is a string, LEN >= 1 -DESCRIPTION: Rename file A$ to B$. If successful, the - returns -1 else returns 0. ------------------------------------------------------------- - SYNTAX: S$ = RIGHT$( A$, X ) - PARAMETER: A$ is a string, LEN >= 0 - PARAMETER: X is a number, [0,MAXLEN] -DESCRIPTION: The right-most X characters of A$. ------------------------------------------------------------- - SYNTAX: N = RND -DESCRIPTION: The next pseudo-random number in an - implementation-defined sequence of - pseudo-random numbers uniformly distributed - in the range 0 <= RND < 1. ------------------------------------------------------------- - SYNTAX: N = RND( X ) - PARAMETER: X is a number -DESCRIPTION: Returns a pseudorandom number in the range - [0,1]. The value of X is ignored. ------------------------------------------------------------- - SYNTAX: N = SCALE( X ) - PARAMETER: X is a number, [0,255] -DESCRIPTION: X is the number of decimal places to round - (0..17). If X = 0 then disabled. ------------------------------------------------------------- - SYNTAX: N = SGN( X ) - PARAMETER: X is a number -DESCRIPTION: The sign of X: -1 if X < 0, 0 if X = 0, and +1 - if X > 0. ------------------------------------------------------------- - SYNTAX: N = SIN( X ) - PARAMETER: X is a number -DESCRIPTION: The sine of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: S$ = SPC( X ) - PARAMETER: X is a number -DESCRIPTION: The string of X spaces. Only for use within - the PRINT command. ------------------------------------------------------------- - SYNTAX: N = SQR( X ) - PARAMETER: X is a number, >= 0 -DESCRIPTION: The non-negative square root of X; X shall be - non-negative. ------------------------------------------------------------- - SYNTAX: S$ = STR$( X ) - PARAMETER: X is a number -DESCRIPTION: The string generated by the print-statement as - the numeric-representation of the value - associated with X. ------------------------------------------------------------- - SYNTAX: S$ = TAB( X ) - PARAMETER: X is a number -DESCRIPTION: The string required to advance to column X. - Only for use within the PRINT command. ------------------------------------------------------------- - SYNTAX: N = TAN( X ) - PARAMETER: X is a number -DESCRIPTION: The tangent of X, where X is in radians. ------------------------------------------------------------- - SYNTAX: N = TROFF -DESCRIPTION: Turn tracing OFF ------------------------------------------------------------- - SYNTAX: N = TRON -DESCRIPTION: Turn tracing ON ------------------------------------------------------------- - SYNTAX: N = USR( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR0( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR1( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR2( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR3( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR4( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR5( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR6( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR7( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR8( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = USR9( ... ) -DESCRIPTION: Execute hardware program. Causes ERROR 73. ------------------------------------------------------------- - SYNTAX: N = VAL( A$ ) - PARAMETER: A$ is a string, LEN >= 1 -DESCRIPTION: The value of the numeric-constant associated - with A$, if the string associated with A$ is - a numeric-constant. Leading and trailing - spaces in the string are ignored. If the - evaluation of the numeric-constant would - result in a value which causes an underflow, - then the value returned shall be zero. For - example, VAL( " 123.5 " ) = 123.5, VAL( - "2.E-99" ) could be zero, and VAL( "MCMXVII" - ) causes an exception. ------------------------------------------------------------- - - -============================================================ - OPERATORS -============================================================ - - ------------------------------------------------------------- - SYNTAX: X ^ Y -DESCRIPTION: Exponential - PRECEDENCE: 14 ------------------------------------------------------------- - SYNTAX: # X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: + X -DESCRIPTION: Posation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: - X -DESCRIPTION: Negation - PRECEDENCE: 13 ------------------------------------------------------------- - SYNTAX: X * Y -DESCRIPTION: Multiplication - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X / Y -DESCRIPTION: Division - PRECEDENCE: 12 ------------------------------------------------------------- - SYNTAX: X + Y -DESCRIPTION: Addition - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X - Y -DESCRIPTION: Subtraction - PRECEDENCE: 9 ------------------------------------------------------------- - SYNTAX: X < Y -DESCRIPTION: Less than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <= Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X <> Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X = Y -DESCRIPTION: Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X =< Y -DESCRIPTION: Less than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X => Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X > Y -DESCRIPTION: Greater than - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >< Y -DESCRIPTION: Not Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: X >= Y -DESCRIPTION: Greater than or Equal - PRECEDENCE: 7 ------------------------------------------------------------- - SYNTAX: NOT X -DESCRIPTION: Bitwise NOT - PRECEDENCE: 6 ------------------------------------------------------------- - SYNTAX: X AND Y -DESCRIPTION: Bitwise AND - PRECEDENCE: 5 ------------------------------------------------------------- - SYNTAX: X OR Y -DESCRIPTION: Bitwise OR - PRECEDENCE: 4 ------------------------------------------------------------- - SYNTAX: X XOR Y -DESCRIPTION: Bitwise Exclusive OR - PRECEDENCE: 3 ------------------------------------------------------------- - - diff --git a/bwbtest/G65/00README.TXT b/bwbtest/G65/00README.TXT deleted file mode 100644 index fb09e4f..0000000 --- a/bwbtest/G65/00README.TXT +++ /dev/null @@ -1,14 +0,0 @@ -This folder tests features specfic to OPTION VERSION MARK-I. -This folder contains example programs from the following references: -REFERENCE: - "BASIC LANGUAGE REFERENCE MANUAL" - by Time-Sharing Service, Information Service Department, General Electric - (c) 1965, Trustees of Dartmouth College - http://www.bitsavers.org/pdf/ge/MarkI_Timesharing/ - 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf -REFERENCE: - "Time-Sharing Service BASIC LANGUAGE EXTENSIONS Reference Manual" - by Time-Sharing Service, Information Service Department, General Electric - (c) 1968, General Electric Company and Trustees of Dartmouth College - http://www.bitsavers.org/pdf/ge/MarkI_Timesharing/ - 802207A_Time-SharingServiceBASICLanguageExtensionsReferenceManual_Feb1968.pdf diff --git a/bwbtest/G65/00test.sh b/bwbtest/G65/00test.sh deleted file mode 100644 index a648067..0000000 --- a/bwbtest/G65/00test.sh +++ /dev/null @@ -1,63 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/G65 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile G65.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- - -testcase BASICT -testcase GCN3NO -testcase HILTST -testcase LINEAR -testcase MATRIX1 -testcase MATRIX2 -testcase MAXSIN -testcase PRINTE -testcase REDIM1 -testcase REDIM2 -testcase REDIM3 -testcase REDIM4 -testcase REDIM5 -testcase REDIM6 -testcase REDIM7 -testcase REDIM8 -testcase REDIM9 -testcase REDIMA -testcase REDIMB -testcase REDIMC -testcase RNDTES -testcase SALES1 -testcase SAMPLE -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/G65/01test.sh b/bwbtest/G65/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/G65/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/G65/02ok.sh b/bwbtest/G65/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/G65/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/G65/99test.sh b/bwbtest/G65/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/G65/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/G65/BASICT.BAS b/bwbtest/G65/BASICT.BAS deleted file mode 100644 index 56d291f..0000000 --- a/bwbtest/G65/BASICT.BAS +++ /dev/null @@ -1,33 +0,0 @@ - 5 OPTION BASE 1 -10 DIM A(5,5),B(5,5),C(5,5),D(5,5),E(5,5),F(5,5),G(5,5),H(5,5) -20 READ M,N -30 MAT READ A(M,M) -31 MAT PRINT A, -32 MAT READ B(M,M) -34 MAT READ D(M,N) -36 MAT READ G(N,M) -40 MAT C=ZER(M,M) -50 PRINT "MATRIX A 0F 0RDER "M -60 MAT PRINT A; -70 PRINT "MATRIX B 0F 0RDER "M -80 MAT PRINT B; -90 MAT C=A+B -100 PRINT " C=A+B" -110 MAT PRINT C; -120 MAT F=ZER(M,N) -130 MAT F=C*D -140 MAT H=ZER(N,N) -150 MAT H=G*F -160 PRINT " H " -170 MAT PRINT H; -1800 DATA 3,1 -1810 DATA 1,2,3,4,5,6,7,8,9,9,8,7,6,5,4,3,2,1,1,2,3,3,2,1 -1999 END -9900 REM ------------------------------------------------------------------------ -9910 REM Purpose: SAMPLE example -9920 REM Author: General Electric -9930 REM Date: 1965-12-17 -9940 REM Note: OPTION VERSION MARK-I -9950 REM Origin: 802207A_Time-SharingServiceBASICLanguageExtensionsReferenceManual_Feb1968.pdf -9960 REM Page: 7 -9970 REM ------------------------------------------------------------------------ diff --git a/bwbtest/G65/BASICT.run b/bwbtest/G65/BASICT.run deleted file mode 100644 index d1c1622..0000000 --- a/bwbtest/G65/BASICT.run +++ /dev/null @@ -1,17 +0,0 @@ - 1 2 3 - 4 5 6 - 7 8 9 -MATRIX A 0F 0RDER 3 - 1 2 3 - 4 5 6 - 7 8 9 -MATRIX B 0F 0RDER 3 - 9 8 7 - 6 5 4 - 3 2 1 - C=A+B - 10 10 10 - 10 10 10 - 10 10 10 - H - 360 diff --git a/bwbtest/G65/G65.PRO b/bwbtest/G65/G65.PRO deleted file mode 100644 index 89400e0..0000000 --- a/bwbtest/G65/G65.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "MARK-I" diff --git a/bwbtest/G65/GCN3NO.BAS b/bwbtest/G65/GCN3NO.BAS deleted file mode 100644 index 02c6135..0000000 --- a/bwbtest/G65/GCN3NO.BAS +++ /dev/null @@ -1,30 +0,0 @@ - 10 PRINT " A", " B", " C", "GCD" - 20 READ A, B, C - 30 LET X = A - 40 LET Y = B - 50 GOSUB 200 - 60 LET X = G - 70 LET Y = C - 80 GOSUB 200 - 90 PRINT A, B, C, G - 100 GO TO 20 - 110 DATA 60, 90, 120 - 120 DATA 38465, 64872, 98765 - 130 DATA 32, 384, 72 - 200 LET Q = INT(X/Y) - 210 LET R = X - Q*Y - 220 IF R = 0 THEN 300 - 230 LET X = Y - 240 LET Y = R - 250 GO TO 200 - 300 LET G = Y - 310 RETURN - 320 END -9900 REM ------------------------------------------------------------------------ -9910 REM Purpose: GCN3NO example -9920 REM Author: General Electric -9930 REM Date: 1965-12-20 -9940 REM Note: OPTION VERSION MARK-I -9950 REM Origin: 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf -9960 REM Page: 29 -9970 REM ------------------------------------------------------------------------ diff --git a/bwbtest/G65/GCN3NO.run b/bwbtest/G65/GCN3NO.run deleted file mode 100644 index 8fff686..0000000 --- a/bwbtest/G65/GCN3NO.run +++ /dev/null @@ -1,6 +0,0 @@ - A B C GCD - 60 90 120 30 - 38465 64872 98765 1 - 32 384 72 8 - -ERROR in line 20: Out of DATA diff --git a/bwbtest/G65/HILTST.BAS b/bwbtest/G65/HILTST.BAS deleted file mode 100644 index 5fcd087..0000000 --- a/bwbtest/G65/HILTST.BAS +++ /dev/null @@ -1,30 +0,0 @@ - 5 OPTION BASE 1 -10 DIM A(20,20),B(20,20),C(20,20) -20 READ N -30 MAT A= CON(N,N) -40 MAT B=CON(N,N) -45 MAT C = ZER(N,N) -50 FOR I= 1 TO N -60 FOR J = 1 TO N -70 LET A(I,J) = 1/(I+J-1) -80 NEXT J -90 NEXT I -93 PRINT " HILBERT MATRIX 0F 0RDER "N -95 MAT PRINT A, -100 MAT B = INV(A) -105 PRINT"INVERSE 0F HIL8ERT MATRIX 0F 0RDER "N -110 MAT PRINT B, -115 MAT C=A*B -117 PRINT"HILBERT MATRIX TIMES ITS 0WN INVERSE 0RDER "N -118 MAT PRINT C, -120 GOTO 20 -190 DATA 2,3 -1999 END -9900 REM ------------------------------------------------------------------------ -9910 REM Purpose: HILTST example -9920 REM Author: General Electric -9930 REM Date: 1965-12-17 -9940 REM Note: OPTION VERSION MARK-I -9950 REM Origin: 802207A_Time-SharingServiceBASICLanguageExtensionsReferenceManual_Feb1968.pdf -9960 REM Page: 8 -9970 REM ------------------------------------------------------------------------ diff --git a/bwbtest/G65/HILTST.run b/bwbtest/G65/HILTST.run deleted file mode 100644 index 68b1dd2..0000000 --- a/bwbtest/G65/HILTST.run +++ /dev/null @@ -1,23 +0,0 @@ - HILBERT MATRIX 0F 0RDER 2 - 1 .5 - .5 .333333 -INVERSE 0F HIL8ERT MATRIX 0F 0RDER 2 - 4. -6. --6. 12. -HILBERT MATRIX TIMES ITS 0WN INVERSE 0RDER 2 - 1 0 - 0 1 - HILBERT MATRIX 0F 0RDER 3 - 1 .5 .333333 - .5 .333333 .25 - .333333 .25 .2 -INVERSE 0F HIL8ERT MATRIX 0F 0RDER 3 - 9. -36. 30. --36. 192. -180. - 30. -180. 180. -HILBERT MATRIX TIMES ITS 0WN INVERSE 0RDER 3 - 1. -2.41585E-13 2.27374E-13 - 2.93099E-14 1. 1.49214E-13 - 2.30926E-14 -1.20792E-13 1. - -ERROR in line 20: Out of DATA diff --git a/bwbtest/G65/LINEAR.BAS b/bwbtest/G65/LINEAR.BAS deleted file mode 100644 index 23cd4a1..0000000 --- a/bwbtest/G65/LINEAR.BAS +++ /dev/null @@ -1,21 +0,0 @@ - 10 READ A, B, D, E - 15 LET G = A * E - B * D - 20 IF G = 0 THEN 65 - 30 READ C, F - 37 LET X = ( C * E - B * F ) / G - 42 LET Y = ( A * F - C * D ) / G - 55 PRINT X, Y - 60 GOTO 30 - 65 PRINT "NO UNIQUE SOLUTION" - 70 DATA 1, 2, 4 - 80 DATA 2, -7, 5 - 85 DATA 1, 3, 4, -7 - 90 END -9900 REM ------------------------------------------------------------------------ -9910 REM Purpose: LINEAR example -9920 REM Author: General Electric -9930 REM Date: 1965-12-17 -9940 REM Note: OPTION VERSION MARK-I -9950 REM Origin: 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf -9960 REM Page: 5 -9970 REM ------------------------------------------------------------------------ diff --git a/bwbtest/G65/LINEAR.run b/bwbtest/G65/LINEAR.run deleted file mode 100644 index 151c9b0..0000000 --- a/bwbtest/G65/LINEAR.run +++ /dev/null @@ -1,5 +0,0 @@ - 4 -5.5 - .666667 .166667 --3.66667 3.83333 - -ERROR in line 30: Out of DATA diff --git a/bwbtest/G65/MATRIX1.BAS b/bwbtest/G65/MATRIX1.BAS deleted file mode 100644 index 15e4ac9..0000000 --- a/bwbtest/G65/MATRIX1.BAS +++ /dev/null @@ -1,32 +0,0 @@ - 10 DIM A(20,20), B(20,20), C(20,20) - 20 READ M,N - 30 MAT READ A(M,N), B(N,N) - 40 MAT C = ZER(M,N) - 100 MAT C = A+A - 120 MAT PRINT C; - 130 PRINT "A=" - 131 MAT PRINT A; - 132 PRINT - 135 PRINT "B=" - 136 MAT PRINT B; - 137 PRINT - 140 MAT C = A*B - 150 PRINT "A * B =" - 160 PRINT - 170 MAT PRINT C - 190 DATA 1,2 - 191 DATA 1,2,3 - 192 DATA 4,5,6 - 193 DATA 1,0,-1 - 194 DATA 0,-1,-1 - 195 DATA -1,0,0 - 199 END - 9900 REM ------------------------------------------------------------------------ - 9910 REM Purpose: Example program - 9920 REM Author: General Electric - 9930 REM Date: 1965-12-20 - 9940 REM Note: OPTION VERSION MARK-I - 9950 REM Origin: 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf - 9960 REM Page: 33 - 9970 REM ------------------------------------------------------------------------ - diff --git a/bwbtest/G65/MATRIX1.run b/bwbtest/G65/MATRIX1.run deleted file mode 100644 index d485071..0000000 --- a/bwbtest/G65/MATRIX1.run +++ /dev/null @@ -1,15 +0,0 @@ - 2 4 6 - 8 10 12 -A= - 1 2 3 - 4 5 6 - -B= - 1 0-1 - 0-1-1 --1 0 0 - -A * B = - --2 -2 -3 --2 -5 -9 diff --git a/bwbtest/G65/MATRIX2.BAS b/bwbtest/G65/MATRIX2.BAS deleted file mode 100644 index 817835e..0000000 --- a/bwbtest/G65/MATRIX2.BAS +++ /dev/null @@ -1,22 +0,0 @@ - 10 DIM A(20,20), B(20,20) - 20 READ N - 30 MAT A = CON(N,N) - 40 MAT B = CON(N,N) - 50 FOR I = 0 TO N - 60 FOR J = 0 TO N - 70 LET A(I,J) = 1/(I+J+1) - 80 NEXT J - 90 NEXT I - 100 MAT B = INV( A ) - 120 MAT PRINT B, - 190 DATA 3 - 199 END - 9900 REM ------------------------------------------------------------------------ - 9910 REM Purpose: Example program - 9920 REM Author: General Electric - 9930 REM Date: 1965-12-20 - 9940 REM Note: OPTION VERSION MARK-I - 9950 REM Origin: 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf - 9960 REM Page: 34 - 9970 REM ------------------------------------------------------------------------ - diff --git a/bwbtest/G65/MATRIX2.run b/bwbtest/G65/MATRIX2.run deleted file mode 100644 index 3ca89fd..0000000 --- a/bwbtest/G65/MATRIX2.run +++ /dev/null @@ -1,4 +0,0 @@ - 16. -120. 240. -140. --120. 1200. -2700. 1680. - 240. -2700. 6480. -4200. --140. 1680. -4200. 2800. diff --git a/bwbtest/G65/MAXSIN.BAS b/bwbtest/G65/MAXSIN.BAS deleted file mode 100644 index 4791b5d..0000000 --- a/bwbtest/G65/MAXSIN.BAS +++ /dev/null @@ -1,20 +0,0 @@ - 5 PRINT "X VALUE","SINE","RESOLUTION" - 10 READ D - 20 LET M= -1 - 30 FOR X = 0 TO 3 STEP D - 40 IF SIN(X) <= M THEN 80 - 50 LET X0=X - 60 LET M = SIN(X) - 80 NEXT X - 85 PRINT X0, M, D - 90 GOTO 10 -100 DATA .1, .01, .001 -110 END -9900 REM ------------------------------------------------------------------------ -9910 REM Purpose: MAXSIN example -9920 REM Author: General Electric -9930 REM Date: 1965-12-17 -9940 REM Note: OPTION VERSION MARK-I -9950 REM Origin: 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf -9960 REM Page: 18 -9970 REM ------------------------------------------------------------------------ diff --git a/bwbtest/G65/MAXSIN.run b/bwbtest/G65/MAXSIN.run deleted file mode 100644 index 012f06d..0000000 --- a/bwbtest/G65/MAXSIN.run +++ /dev/null @@ -1,6 +0,0 @@ -X VALUE SINE RESOLUTION - 1.6 .999574 .1 - 1.57 1. .01 - 1.571 1. .001 - -ERROR in line 10: Out of DATA diff --git a/bwbtest/G65/PAD80.BAS b/bwbtest/G65/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/G65/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/G65/PAD80.INP b/bwbtest/G65/PAD80.INP deleted file mode 100644 index f17ce6f..0000000 --- a/bwbtest/G65/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA SAMPLE.OUT, SAMPLE.80 diff --git a/bwbtest/G65/PAD80.PRO b/bwbtest/G65/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/G65/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/G65/PRINTE.BAS b/bwbtest/G65/PRINTE.BAS deleted file mode 100644 index edaa609..0000000 --- a/bwbtest/G65/PRINTE.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 FOR I = 1 TO 45 - 20 PRINT 2^I; - 30 NEXT I - 40 END -9900 REM ------------------------------------------------------------------------ -9910 REM Purpose: SAMPLE example -9920 REM Author: General Electric -9930 REM Date: 1966-08-29 -9940 REM Note: OPTION VERSION MARK-I -9950 REM Origin: 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf -9960 REM Page: 25 -9970 REM ------------------------------------------------------------------------ diff --git a/bwbtest/G65/PRINTE.run b/bwbtest/G65/PRINTE.run deleted file mode 100644 index 13696f6..0000000 --- a/bwbtest/G65/PRINTE.run +++ /dev/null @@ -1,6 +0,0 @@ - 2 4 8 16 32 64 128 256 512 1024 2048 4096 8192 16384 32768 65536 - 131072 262144 524288 1.04858E+6 2.09715E+6 4.1943E+6 8.38861E+6 - 1.67772E+7 3.35544E+7 6.71089E+7 1.34218E+8 2.68435E+8 5.36871E+8 - 1.07374E+9 2.14748E+9 4.29497E+9 8.58993E+9 1.71799E+10 3.43597E+10 - 6.87195E+10 1.37439E+11 2.74878E+11 5.49756E+11 1.09951E+12 2.19902E+12 - 4.39805E+12 8.79609E+12 1.75922E+13 3.51844E+13 diff --git a/bwbtest/G65/REDIM1.BAS b/bwbtest/G65/REDIM1.BAS deleted file mode 100644 index f2d094d..0000000 --- a/bwbtest/G65/REDIM1.BAS +++ /dev/null @@ -1,49 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT ... CON - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100), B(10,10), C(2,50), D(25,2,2) - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT varname( ubound [,...] ) = CON, 1 dimension" - 1020 MAT A(1) = CON - 1030 MAT B(2) = CON - 1040 MAT C(3) = CON - 1050 MAT D(4) = CON - 1060 MAT PRINT A;B;C;D; - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT varname( ubound [,...] ) = CON, 2 dimensions" - 1120 MAT A(1,1) = CON - 1130 MAT B(2,2) = CON - 1140 MAT C(3,3) = CON - 1150 MAT D(4,4) = CON - 1160 MAT PRINT A;B;C;D; - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT varname( ubound [,...] ) = CON, 3 dimensions" - 1220 MAT A(1,1,1) = CON - 1230 MAT B(2,2,2) = CON - 1240 MAT C(3,3,3) = CON - 1250 MAT D(4,4,4) = CON - 1260 MAT PRINT A;B;C;D; - 2000 PRINT "----------------------------------------" - 2010 PRINT "MAT varname = CON( ubound [,...] ), 1 dimension" - 2020 MAT A = CON(4) - 2030 MAT B = CON(3) - 2040 MAT C = CON(2) - 2050 MAT D = CON(1) - 2060 MAT PRINT A;B;C;D; - 2100 PRINT "----------------------------------------" - 2110 PRINT "MAT varname = CON( ubound [,...] ), 2 dimensions" - 2120 MAT A = CON(4,4) - 2130 MAT B = CON(3,3) - 2140 MAT C = CON(2,2) - 2150 MAT D = CON(1,1) - 2160 MAT PRINT A;B;C;D; - 2200 PRINT "----------------------------------------" - 2210 PRINT "MAT varname = CON( ubound [,...] ), 3 dimensions" - 2220 MAT A = CON(4,4,4) - 2230 MAT B = CON(3,3,3) - 2240 MAT C = CON(2,2,2) - 2250 MAT D = CON(1,1,1) - 2260 MAT PRINT A;B;C;D; - 9999 END diff --git a/bwbtest/G65/REDIM1.run b/bwbtest/G65/REDIM1.run deleted file mode 100644 index 35427f4..0000000 --- a/bwbtest/G65/REDIM1.run +++ /dev/null @@ -1,120 +0,0 @@ ----------------------------------------- -MAT varname( ubound [,...] ) = CON, 1 dimension - 1 - 1 1 - 1 1 1 - 1 1 1 1 ----------------------------------------- -MAT varname( ubound [,...] ) = CON, 2 dimensions - 1 - 1 1 - 1 1 - 1 1 1 - 1 1 1 - 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 ----------------------------------------- -MAT varname( ubound [,...] ) = CON, 3 dimensions - 1 - - 1 1 - 1 1 - - 1 1 - 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - ----------------------------------------- -MAT varname = CON( ubound [,...] ), 1 dimension - 1 1 1 1 - 1 1 1 - 1 1 - 1 ----------------------------------------- -MAT varname = CON( ubound [,...] ), 2 dimensions - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 - 1 1 1 - 1 1 1 - 1 1 - 1 1 - 1 ----------------------------------------- -MAT varname = CON( ubound [,...] ), 3 dimensions - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 - 1 1 - - 1 1 - 1 1 - - 1 - diff --git a/bwbtest/G65/REDIM2.BAS b/bwbtest/G65/REDIM2.BAS deleted file mode 100644 index d9eb2bb..0000000 --- a/bwbtest/G65/REDIM2.BAS +++ /dev/null @@ -1,49 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT ... ZER - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100), B(10,10), C(2,50), D(25,2,2) - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT varname( ubound [,...] ) = ZER, 1 dimension" - 1020 MAT A(1) = ZER - 1030 MAT B(2) = ZER - 1040 MAT C(3) = ZER - 1050 MAT D(4) = ZER - 1060 MAT PRINT A;B;C;D; - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT varname( ubound [,...] ) = ZER, 2 dimensions" - 1120 MAT A(1,1) = ZER - 1130 MAT B(2,2) = ZER - 1140 MAT C(3,3) = ZER - 1150 MAT D(4,4) = ZER - 1160 MAT PRINT A;B;C;D; - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT varname( ubound [,...] ) = ZER, 3 dimensions" - 1220 MAT A(1,1,1) = ZER - 1230 MAT B(2,2,2) = ZER - 1240 MAT C(3,3,3) = ZER - 1250 MAT D(4,4,4) = ZER - 1260 MAT PRINT A;B;C;D; - 2000 PRINT "----------------------------------------" - 2010 PRINT "MAT varname = ZER( ubound [,...] ), 1 dimension" - 2020 MAT A = ZER(4) - 2030 MAT B = ZER(3) - 2040 MAT C = ZER(2) - 2050 MAT D = ZER(1) - 2060 MAT PRINT A;B;C;D; - 2100 PRINT "----------------------------------------" - 2110 PRINT "MAT varname = ZER( ubound [,...] ), 2 dimensions" - 2120 MAT A = ZER(4,4) - 2130 MAT B = ZER(3,3) - 2140 MAT C = ZER(2,2) - 2150 MAT D = ZER(1,1) - 2160 MAT PRINT A;B;C;D; - 2200 PRINT "----------------------------------------" - 2210 PRINT "MAT varname = ZER( ubound [,...] ), 3 dimensions" - 2220 MAT A = ZER(4,4,4) - 2230 MAT B = ZER(3,3,3) - 2240 MAT C = ZER(2,2,2) - 2250 MAT D = ZER(1,1,1) - 2260 MAT PRINT A;B;C;D; - 9999 END diff --git a/bwbtest/G65/REDIM2.run b/bwbtest/G65/REDIM2.run deleted file mode 100644 index ca57078..0000000 --- a/bwbtest/G65/REDIM2.run +++ /dev/null @@ -1,120 +0,0 @@ ----------------------------------------- -MAT varname( ubound [,...] ) = ZER, 1 dimension - 0 - 0 0 - 0 0 0 - 0 0 0 0 ----------------------------------------- -MAT varname( ubound [,...] ) = ZER, 2 dimensions - 0 - 0 0 - 0 0 - 0 0 0 - 0 0 0 - 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 ----------------------------------------- -MAT varname( ubound [,...] ) = ZER, 3 dimensions - 0 - - 0 0 - 0 0 - - 0 0 - 0 0 - - 0 0 0 - 0 0 0 - 0 0 0 - - 0 0 0 - 0 0 0 - 0 0 0 - - 0 0 0 - 0 0 0 - 0 0 0 - - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - ----------------------------------------- -MAT varname = ZER( ubound [,...] ), 1 dimension - 0 0 0 0 - 0 0 0 - 0 0 - 0 ----------------------------------------- -MAT varname = ZER( ubound [,...] ), 2 dimensions - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 - 0 0 0 - 0 0 0 - 0 0 - 0 0 - 0 ----------------------------------------- -MAT varname = ZER( ubound [,...] ), 3 dimensions - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - 0 0 0 0 - - 0 0 0 - 0 0 0 - 0 0 0 - - 0 0 0 - 0 0 0 - 0 0 0 - - 0 0 0 - 0 0 0 - 0 0 0 - - 0 0 - 0 0 - - 0 0 - 0 0 - - 0 - diff --git a/bwbtest/G65/REDIM3.BAS b/bwbtest/G65/REDIM3.BAS deleted file mode 100644 index 492a74f..0000000 --- a/bwbtest/G65/REDIM3.BAS +++ /dev/null @@ -1,21 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT ... IDN - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100), B(10,10), C(2,50), D(25,2,2) - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT varname( ubound [,...] ) = IDN, 2 dimensions" - 1120 MAT A(1,1) = IDN - 1130 MAT B(2,2) = IDN - 1140 MAT C(3,3) = IDN - 1150 MAT D(4,4) = IDN - 1160 MAT PRINT A;B;C;D; - 2100 PRINT "----------------------------------------" - 2110 PRINT "MAT varname = IDN( ubound [,...] ), 2 dimensions" - 2120 MAT A = IDN(4,4) - 2130 MAT B = IDN(3,3) - 2140 MAT C = IDN(2,2) - 2150 MAT D = IDN(1,1) - 2160 MAT PRINT A;B;C;D; - 9999 END diff --git a/bwbtest/G65/REDIM3.run b/bwbtest/G65/REDIM3.run deleted file mode 100644 index e5d8d09..0000000 --- a/bwbtest/G65/REDIM3.run +++ /dev/null @@ -1,24 +0,0 @@ ----------------------------------------- -MAT varname( ubound [,...] ) = IDN, 2 dimensions - 1 - 1 0 - 0 1 - 1 0 0 - 0 1 0 - 0 0 1 - 1 0 0 0 - 0 1 0 0 - 0 0 1 0 - 0 0 0 1 ----------------------------------------- -MAT varname = IDN( ubound [,...] ), 2 dimensions - 1 0 0 0 - 0 1 0 0 - 0 0 1 0 - 0 0 0 1 - 1 0 0 - 0 1 0 - 0 0 1 - 1 0 - 0 1 - 1 diff --git a/bwbtest/G65/REDIM4.BAS b/bwbtest/G65/REDIM4.BAS deleted file mode 100644 index 53536c0..0000000 --- a/bwbtest/G65/REDIM4.BAS +++ /dev/null @@ -1,107 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT READ ... - 110 REM Author: Howard Wulf,AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100),B(10,10),C(2,50),D(25,2,2) - 220 RESTORE - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT READ varname( ubound [,...] ) ,1 dimension" - 1020 MAT READ A(1) - 1025 DATA 1 - 1030 MAT READ B(2) - 1035 DATA 1,2 - 1040 MAT READ C(3) - 1045 DATA 1,2,3 - 1050 MAT READ D(4) - 1055 DATA 1,2,3,4 - 1060 MAT PRINT A;B;C;D; - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT READ varname( ubound [,...] ) ,2 dimensions" - 1120 MAT READ A(1,1) - 1125 DATA 11 - 1130 MAT READ B(2,2) - 1135 DATA 11,12,21,22 - 1140 MAT READ C(3,3) - 1145 DATA 11,12,13,21,22,23,31,32,33 - 1150 MAT READ D(4,4) - 1155 DATA 11,12,13,14,21,22,23,24,31,32,33,34,41,42,43,44 - 1160 MAT PRINT A;B;C;D; - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT READ varname( ubound [,...] ),3 dimensions" - 1220 MAT READ A(1,1,1) - 1225 DATA 111 - 1230 MAT READ B(2,2,2) - 1235 DATA 111,112,121,122 - 1236 DATA 211,212,221,222 - 1240 MAT READ C(3,3,3) - 1245 DATA 111,112,113,121,122,123,131,132,133 - 1246 DATA 211,212,213,221,222,223,231,232,233 - 1247 DATA 311,312,313,321,322,323,331,332,333 - 1250 MAT READ D(4,4,4) - 5000 DATA 1111,1112,1113,1114 - 5010 DATA 1121,1122,1123,1124 - 5020 DATA 1131,1132,1133,1134 - 5030 DATA 1141,1142,1143,1144 - 5040 DATA 1211,1212,1213,1214 - 5050 DATA 1221,1222,1223,1224 - 5060 DATA 1231,1232,1233,1234 - 5070 DATA 1241,1242,1243,1244 - 5080 DATA 1311,1312,1313,1314 - 5090 DATA 1321,1322,1323,1324 - 5100 DATA 1331,1332,1333,1334 - 5110 DATA 1341,1342,1343,1344 - 5120 DATA 1411,1412,1413,1414 - 5130 DATA 1421,1422,1423,1424 - 5140 DATA 1431,1432,1433,1434 - 5150 DATA 1441,1442,1443,1444 - 5160 DATA 2111,2112,2113,2114 - 5170 DATA 2121,2122,2123,2124 - 5180 DATA 2131,2132,2133,2134 - 5190 DATA 2141,2142,2143,2144 - 5200 DATA 2211,2212,2213,2214 - 5210 DATA 2221,2222,2223,2224 - 5220 DATA 2231,2232,2233,2234 - 5230 DATA 2241,2242,2243,2244 - 5240 DATA 2311,2312,2313,2314 - 5250 DATA 2321,2322,2323,2324 - 5260 DATA 2331,2332,2333,2334 - 5270 DATA 2341,2342,2343,2344 - 5280 DATA 2411,2412,2413,2414 - 5290 DATA 2421,2422,2423,2424 - 5300 DATA 2431,2432,2433,2434 - 5310 DATA 2441,2442,2443,2444 - 5320 DATA 3111,3112,3113,3114 - 5330 DATA 3121,3122,3123,3124 - 5340 DATA 3131,3132,3133,3134 - 5350 DATA 3141,3142,3143,3144 - 5360 DATA 3211,3212,3213,3214 - 5370 DATA 3221,3222,3223,3224 - 5380 DATA 3231,3232,3233,3234 - 5390 DATA 3241,3242,3243,3244 - 5400 DATA 3311,3312,3313,3314 - 5410 DATA 3321,3322,3323,3324 - 5420 DATA 3331,3332,3333,3334 - 5430 DATA 3341,3342,3343,3344 - 5440 DATA 3411,3412,3413,3414 - 5450 DATA 3421,3422,3423,3424 - 5460 DATA 3431,3432,3433,3434 - 5470 DATA 3441,3442,3443,3444 - 5480 DATA 4111,4112,4113,4114 - 5490 DATA 4121,4122,4123,4124 - 5500 DATA 4131,4132,4133,4134 - 5510 DATA 4141,4142,4143,4144 - 5520 DATA 4211,4212,4213,4214 - 5530 DATA 4221,4222,4223,4224 - 5540 DATA 4231,4232,4233,4234 - 5550 DATA 4241,4242,4243,4244 - 5560 DATA 4311,4312,4313,4314 - 5570 DATA 4321,4322,4323,4324 - 5580 DATA 4331,4332,4333,4334 - 5590 DATA 4341,4342,4343,4344 - 5600 DATA 4411,4412,4413,4414 - 5610 DATA 4421,4422,4423,4424 - 5620 DATA 4431,4432,4433,4434 - 5630 DATA 4441,4442,4443,4444 - 6000 MAT PRINT A;B;C;D; - 9999 END diff --git a/bwbtest/G65/REDIM4.run b/bwbtest/G65/REDIM4.run deleted file mode 100644 index 6b6e9be..0000000 --- a/bwbtest/G65/REDIM4.run +++ /dev/null @@ -1,60 +0,0 @@ ----------------------------------------- -MAT READ varname( ubound [,...] ) ,1 dimension - 1 - 1 2 - 1 2 3 - 1 2 3 4 ----------------------------------------- -MAT READ varname( ubound [,...] ) ,2 dimensions - 11 - 11 12 - 21 22 - 11 12 13 - 21 22 23 - 31 32 33 - 11 12 13 14 - 21 22 23 24 - 31 32 33 34 - 41 42 43 44 ----------------------------------------- -MAT READ varname( ubound [,...] ),3 dimensions - 111 - - 111 112 - 121 122 - - 211 212 - 221 222 - - 111 112 113 - 121 122 123 - 131 132 133 - - 211 212 213 - 221 222 223 - 231 232 233 - - 311 312 313 - 321 322 323 - 331 332 333 - - 1111 1112 1113 1114 - 1121 1122 1123 1124 - 1131 1132 1133 1134 - 1141 1142 1143 1144 - - 1211 1212 1213 1214 - 1221 1222 1223 1224 - 1231 1232 1233 1234 - 1241 1242 1243 1244 - - 1311 1312 1313 1314 - 1321 1322 1323 1324 - 1331 1332 1333 1334 - 1341 1342 1343 1344 - - 1411 1412 1413 1414 - 1421 1422 1423 1424 - 1431 1432 1433 1434 - 1441 1442 1443 1444 - diff --git a/bwbtest/G65/REDIM5.BAS b/bwbtest/G65/REDIM5.BAS deleted file mode 100644 index e62becc..0000000 --- a/bwbtest/G65/REDIM5.BAS +++ /dev/null @@ -1,28 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT GET ... - 110 REM Author: Howard Wulf,AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100),B(10,10),C(2,50),D(25,2,2) - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT GET ... varname( ubound [,...] ) ,1 dimension" - 1020 MAT GET "REDIM5.DAT", A(1) - 1030 MAT GET "REDIM5.DAT", B(2) - 1040 MAT GET "REDIM5.DAT", C(3) - 1050 MAT GET "REDIM5.DAT", D(4) - 1060 MAT PRINT A;B;C;D; - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT GET ... varname( ubound [,...] ) ,2 dimensions" - 1120 MAT GET "REDIM5.DAT", A(1,1) - 1130 MAT GET "REDIM5.DAT", B(2,2) - 1140 MAT GET "REDIM5.DAT", C(3,3) - 1150 MAT GET "REDIM5.DAT", D(4,4) - 1160 MAT PRINT A;B;C;D; - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT GET ... varname( ubound [,...] ),3 dimensions" - 1220 MAT GET "REDIM5.DAT", A(1,1,1) - 1230 MAT GET "REDIM5.DAT", B(2,2,2) - 1240 MAT GET "REDIM5.DAT", C(3,3,3) - 1250 MAT GET "REDIM5.DAT", D(4,4,4) - 1260 MAT PRINT A;B;C;D; - 9999 END diff --git a/bwbtest/G65/REDIM5.DAT b/bwbtest/G65/REDIM5.DAT deleted file mode 100644 index d3fc79a..0000000 --- a/bwbtest/G65/REDIM5.DAT +++ /dev/null @@ -1,45 +0,0 @@ -1 -1,2 -1,2,3 -1,2,3,4 -11 -11,12 -21,22 -11,12,13 -21,22,23 -31,32,33 -11,12,13,14 -21,22,23,24 -31,32,33,34 -41,42,43,44 -111 -111,112 -121,122 -211,212 -221,222 -111,112,113 -121,122,123 -131,132,133 -211,212,213 -221,222,223 -231,232,233 -311,312,313 -321,322,323 -331,332,333 -1111,1112,1113,1114 -1121,1122,1123,1124 -1131,1132,1133,1134 -1141,1142,1143,1144 -1211,1212,1213,1214 -1221,1222,1223,1224 -1231,1232,1233,1234 -1241,1242,1243,1244 -1311,1312,1313,1314 -1321,1322,1323,1324 -1331,1332,1333,1334 -1341,1342,1343,1344 -1411,1412,1413,1414 -1421,1422,1423,1424 -1431,1432,1433,1434 -1441,1442,1443,1444 -REM -- this line should NOT be read -- diff --git a/bwbtest/G65/REDIM5.run b/bwbtest/G65/REDIM5.run deleted file mode 100644 index 07665d5..0000000 --- a/bwbtest/G65/REDIM5.run +++ /dev/null @@ -1,60 +0,0 @@ ----------------------------------------- -MAT GET ... varname( ubound [,...] ) ,1 dimension - 1 - 1 2 - 1 2 3 - 1 2 3 4 ----------------------------------------- -MAT GET ... varname( ubound [,...] ) ,2 dimensions - 11 - 11 12 - 21 22 - 11 12 13 - 21 22 23 - 31 32 33 - 11 12 13 14 - 21 22 23 24 - 31 32 33 34 - 41 42 43 44 ----------------------------------------- -MAT GET ... varname( ubound [,...] ),3 dimensions - 111 - - 111 112 - 121 122 - - 211 212 - 221 222 - - 111 112 113 - 121 122 123 - 131 132 133 - - 211 212 213 - 221 222 223 - 231 232 233 - - 311 312 313 - 321 322 323 - 331 332 333 - - 1111 1112 1113 1114 - 1121 1122 1123 1124 - 1131 1132 1133 1134 - 1141 1142 1143 1144 - - 1211 1212 1213 1214 - 1221 1222 1223 1224 - 1231 1232 1233 1234 - 1241 1242 1243 1244 - - 1311 1312 1313 1314 - 1321 1322 1323 1324 - 1331 1332 1333 1334 - 1341 1342 1343 1344 - - 1411 1412 1413 1414 - 1421 1422 1423 1424 - 1431 1432 1433 1434 - 1441 1442 1443 1444 - diff --git a/bwbtest/G65/REDIM6.BAS b/bwbtest/G65/REDIM6.BAS deleted file mode 100644 index b766244..0000000 --- a/bwbtest/G65/REDIM6.BAS +++ /dev/null @@ -1,29 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT GET # ... - 110 REM Author: Howard Wulf,AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100),B(10,10),C(2,50),D(25,2,2) - 220 FILE # 12345, "REDIM6.DAT" - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT GET # ... varname( ubound [,...] ) ,1 dimension" - 1020 MAT GET # 12345, A(1) - 1030 MAT GET # 12345, B(2) - 1040 MAT GET # 12345, C(3) - 1050 MAT GET # 12345, D(4) - 1060 MAT PRINT A;B;C;D; - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT GET # ... varname( ubound [,...] ) ,2 dimensions" - 1120 MAT GET # 12345, A(1,1) - 1130 MAT GET # 12345, B(2,2) - 1140 MAT GET # 12345, C(3,3) - 1150 MAT GET # 12345, D(4,4) - 1160 MAT PRINT A;B;C;D; - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT GET # ... varname( ubound [,...] ),3 dimensions" - 1220 MAT GET # 12345, A(1,1,1) - 1230 MAT GET # 12345, B(2,2,2) - 1240 MAT GET # 12345, C(3,3,3) - 1250 MAT GET # 12345, D(4,4,4) - 1260 MAT PRINT A;B;C;D; - 9999 END diff --git a/bwbtest/G65/REDIM6.DAT b/bwbtest/G65/REDIM6.DAT deleted file mode 100644 index d3fc79a..0000000 --- a/bwbtest/G65/REDIM6.DAT +++ /dev/null @@ -1,45 +0,0 @@ -1 -1,2 -1,2,3 -1,2,3,4 -11 -11,12 -21,22 -11,12,13 -21,22,23 -31,32,33 -11,12,13,14 -21,22,23,24 -31,32,33,34 -41,42,43,44 -111 -111,112 -121,122 -211,212 -221,222 -111,112,113 -121,122,123 -131,132,133 -211,212,213 -221,222,223 -231,232,233 -311,312,313 -321,322,323 -331,332,333 -1111,1112,1113,1114 -1121,1122,1123,1124 -1131,1132,1133,1134 -1141,1142,1143,1144 -1211,1212,1213,1214 -1221,1222,1223,1224 -1231,1232,1233,1234 -1241,1242,1243,1244 -1311,1312,1313,1314 -1321,1322,1323,1324 -1331,1332,1333,1334 -1341,1342,1343,1344 -1411,1412,1413,1414 -1421,1422,1423,1424 -1431,1432,1433,1434 -1441,1442,1443,1444 -REM -- this line should NOT be read -- diff --git a/bwbtest/G65/REDIM6.run b/bwbtest/G65/REDIM6.run deleted file mode 100644 index f375d31..0000000 --- a/bwbtest/G65/REDIM6.run +++ /dev/null @@ -1,60 +0,0 @@ ----------------------------------------- -MAT GET # ... varname( ubound [,...] ) ,1 dimension - 1 - 1 2 - 1 2 3 - 1 2 3 4 ----------------------------------------- -MAT GET # ... varname( ubound [,...] ) ,2 dimensions - 11 - 11 12 - 21 22 - 11 12 13 - 21 22 23 - 31 32 33 - 11 12 13 14 - 21 22 23 24 - 31 32 33 34 - 41 42 43 44 ----------------------------------------- -MAT GET # ... varname( ubound [,...] ),3 dimensions - 111 - - 111 112 - 121 122 - - 211 212 - 221 222 - - 111 112 113 - 121 122 123 - 131 132 133 - - 211 212 213 - 221 222 223 - 231 232 233 - - 311 312 313 - 321 322 323 - 331 332 333 - - 1111 1112 1113 1114 - 1121 1122 1123 1124 - 1131 1132 1133 1134 - 1141 1142 1143 1144 - - 1211 1212 1213 1214 - 1221 1222 1223 1224 - 1231 1232 1233 1234 - 1241 1242 1243 1244 - - 1311 1312 1313 1314 - 1321 1322 1323 1324 - 1331 1332 1333 1334 - 1341 1342 1343 1344 - - 1411 1412 1413 1414 - 1421 1422 1423 1424 - 1431 1432 1433 1434 - 1441 1442 1443 1444 - diff --git a/bwbtest/G65/REDIM7.BAS b/bwbtest/G65/REDIM7.BAS deleted file mode 100644 index c4da6f5..0000000 --- a/bwbtest/G65/REDIM7.BAS +++ /dev/null @@ -1,29 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT INPUT ... - 110 REM Author: Howard Wulf,AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100),B(10,10),C(2,50),D(25,2,2) - 220 FILE # 12345, "REDIM6.DAT" - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT INPUT ... varname( ubound [,...] ) ,1 dimension" - 1020 MAT INPUT # 12345, A(1) - 1030 MAT INPUT # 12345, B(2) - 1040 MAT INPUT # 12345, C(3) - 1050 MAT INPUT # 12345, D(4) - 1060 MAT PRINT A;B;C;D; - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT INPUT ... varname( ubound [,...] ) ,2 dimensions" - 1120 MAT INPUT # 12345, A(1,1) - 1130 MAT INPUT # 12345, B(2,2) - 1140 MAT INPUT # 12345, C(3,3) - 1150 MAT INPUT # 12345, D(4,4) - 1160 MAT PRINT A;B;C;D; - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT INPUT ... varname( ubound [,...] ),3 dimensions" - 1220 MAT INPUT # 12345, A(1,1,1) - 1230 MAT INPUT # 12345, B(2,2,2) - 1240 MAT INPUT # 12345, C(3,3,3) - 1250 MAT INPUT # 12345, D(4,4,4) - 1260 MAT PRINT A;B;C;D; - 9999 END diff --git a/bwbtest/G65/REDIM7.DAT b/bwbtest/G65/REDIM7.DAT deleted file mode 100644 index d3fc79a..0000000 --- a/bwbtest/G65/REDIM7.DAT +++ /dev/null @@ -1,45 +0,0 @@ -1 -1,2 -1,2,3 -1,2,3,4 -11 -11,12 -21,22 -11,12,13 -21,22,23 -31,32,33 -11,12,13,14 -21,22,23,24 -31,32,33,34 -41,42,43,44 -111 -111,112 -121,122 -211,212 -221,222 -111,112,113 -121,122,123 -131,132,133 -211,212,213 -221,222,223 -231,232,233 -311,312,313 -321,322,323 -331,332,333 -1111,1112,1113,1114 -1121,1122,1123,1124 -1131,1132,1133,1134 -1141,1142,1143,1144 -1211,1212,1213,1214 -1221,1222,1223,1224 -1231,1232,1233,1234 -1241,1242,1243,1244 -1311,1312,1313,1314 -1321,1322,1323,1324 -1331,1332,1333,1334 -1341,1342,1343,1344 -1411,1412,1413,1414 -1421,1422,1423,1424 -1431,1432,1433,1434 -1441,1442,1443,1444 -REM -- this line should NOT be read -- diff --git a/bwbtest/G65/REDIM7.run b/bwbtest/G65/REDIM7.run deleted file mode 100644 index 4732f40..0000000 --- a/bwbtest/G65/REDIM7.run +++ /dev/null @@ -1,60 +0,0 @@ ----------------------------------------- -MAT INPUT ... varname( ubound [,...] ) ,1 dimension - 1 - 1 2 - 1 2 3 - 1 2 3 4 ----------------------------------------- -MAT INPUT ... varname( ubound [,...] ) ,2 dimensions - 11 - 11 12 - 21 22 - 11 12 13 - 21 22 23 - 31 32 33 - 11 12 13 14 - 21 22 23 24 - 31 32 33 34 - 41 42 43 44 ----------------------------------------- -MAT INPUT ... varname( ubound [,...] ),3 dimensions - 111 - - 111 112 - 121 122 - - 211 212 - 221 222 - - 111 112 113 - 121 122 123 - 131 132 133 - - 211 212 213 - 221 222 223 - 231 232 233 - - 311 312 313 - 321 322 323 - 331 332 333 - - 1111 1112 1113 1114 - 1121 1122 1123 1124 - 1131 1132 1133 1134 - 1141 1142 1143 1144 - - 1211 1212 1213 1214 - 1221 1222 1223 1224 - 1231 1232 1233 1234 - 1241 1242 1243 1244 - - 1311 1312 1313 1314 - 1321 1322 1323 1324 - 1331 1332 1333 1334 - 1341 1342 1343 1344 - - 1411 1412 1413 1414 - 1421 1422 1423 1424 - 1431 1432 1433 1434 - 1441 1442 1443 1444 - diff --git a/bwbtest/G65/REDIM8.BAS b/bwbtest/G65/REDIM8.BAS deleted file mode 100644 index 3abec92..0000000 --- a/bwbtest/G65/REDIM8.BAS +++ /dev/null @@ -1,28 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT INPUT ... - 110 REM Author: Howard Wulf,AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100),B(10,10),C(2,50),D(25,2,2) - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT INPUT ... varname( ubound [,...] ) ,1 dimension" - 1020 MAT INPUT A(1) - 1030 MAT INPUT B(2) - 1040 MAT INPUT C(3) - 1050 MAT INPUT D(4) - 1060 MAT PRINT A;B;C;D; - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT INPUT ... varname( ubound [,...] ) ,2 dimensions" - 1120 MAT INPUT A(1,1) - 1130 MAT INPUT B(2,2) - 1140 MAT INPUT C(3,3) - 1150 MAT INPUT D(4,4) - 1160 MAT PRINT A;B;C;D; - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT INPUT ... varname( ubound [,...] ),3 dimensions" - 1220 MAT INPUT A(1,1,1) - 1230 MAT INPUT B(2,2,2) - 1240 MAT INPUT C(3,3,3) - 1250 MAT INPUT D(4,4,4) - 1260 MAT PRINT A;B;C;D; - 9999 END diff --git a/bwbtest/G65/REDIM8.INP b/bwbtest/G65/REDIM8.INP deleted file mode 100644 index d3fc79a..0000000 --- a/bwbtest/G65/REDIM8.INP +++ /dev/null @@ -1,45 +0,0 @@ -1 -1,2 -1,2,3 -1,2,3,4 -11 -11,12 -21,22 -11,12,13 -21,22,23 -31,32,33 -11,12,13,14 -21,22,23,24 -31,32,33,34 -41,42,43,44 -111 -111,112 -121,122 -211,212 -221,222 -111,112,113 -121,122,123 -131,132,133 -211,212,213 -221,222,223 -231,232,233 -311,312,313 -321,322,323 -331,332,333 -1111,1112,1113,1114 -1121,1122,1123,1124 -1131,1132,1133,1134 -1141,1142,1143,1144 -1211,1212,1213,1214 -1221,1222,1223,1224 -1231,1232,1233,1234 -1241,1242,1243,1244 -1311,1312,1313,1314 -1321,1322,1323,1324 -1331,1332,1333,1334 -1341,1342,1343,1344 -1411,1412,1413,1414 -1421,1422,1423,1424 -1431,1432,1433,1434 -1441,1442,1443,1444 -REM -- this line should NOT be read -- diff --git a/bwbtest/G65/REDIM8.run b/bwbtest/G65/REDIM8.run deleted file mode 100644 index d8fb6f6..0000000 --- a/bwbtest/G65/REDIM8.run +++ /dev/null @@ -1,105 +0,0 @@ ----------------------------------------- -MAT INPUT ... varname( ubound [,...] ) ,1 dimension -?1 -?1,2 -?1,2,3 -?1,2,3,4 - 1 - 1 2 - 1 2 3 - 1 2 3 4 ----------------------------------------- -MAT INPUT ... varname( ubound [,...] ) ,2 dimensions -?11 -?11,12 -?21,22 -?11,12,13 -?21,22,23 -?31,32,33 -?11,12,13,14 -?21,22,23,24 -?31,32,33,34 -?41,42,43,44 - 11 - 11 12 - 21 22 - 11 12 13 - 21 22 23 - 31 32 33 - 11 12 13 14 - 21 22 23 24 - 31 32 33 34 - 41 42 43 44 ----------------------------------------- -MAT INPUT ... varname( ubound [,...] ),3 dimensions -?111 -?111,112 -?121,122 -?211,212 -?221,222 -?111,112,113 -?121,122,123 -?131,132,133 -?211,212,213 -?221,222,223 -?231,232,233 -?311,312,313 -?321,322,323 -?331,332,333 -?1111,1112,1113,1114 -?1121,1122,1123,1124 -?1131,1132,1133,1134 -?1141,1142,1143,1144 -?1211,1212,1213,1214 -?1221,1222,1223,1224 -?1231,1232,1233,1234 -?1241,1242,1243,1244 -?1311,1312,1313,1314 -?1321,1322,1323,1324 -?1331,1332,1333,1334 -?1341,1342,1343,1344 -?1411,1412,1413,1414 -?1421,1422,1423,1424 -?1431,1432,1433,1434 -?1441,1442,1443,1444 - 111 - - 111 112 - 121 122 - - 211 212 - 221 222 - - 111 112 113 - 121 122 123 - 131 132 133 - - 211 212 213 - 221 222 223 - 231 232 233 - - 311 312 313 - 321 322 323 - 331 332 333 - - 1111 1112 1113 1114 - 1121 1122 1123 1124 - 1131 1132 1133 1134 - 1141 1142 1143 1144 - - 1211 1212 1213 1214 - 1221 1222 1223 1224 - 1231 1232 1233 1234 - 1241 1242 1243 1244 - - 1311 1312 1313 1314 - 1321 1322 1323 1324 - 1331 1332 1333 1334 - 1341 1342 1343 1344 - - 1411 1412 1413 1414 - 1421 1422 1423 1424 - 1431 1432 1433 1434 - 1441 1442 1443 1444 - -bwBASIC: REM -- this line should NOT be read -- diff --git a/bwbtest/G65/REDIM9.BAS b/bwbtest/G65/REDIM9.BAS deleted file mode 100644 index 097eb40..0000000 --- a/bwbtest/G65/REDIM9.BAS +++ /dev/null @@ -1,28 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT PRINT ... - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100), B(10,10), C(2,50), D(25,2,2) - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT PRINT varname( ubound [,...] ) , 1 dimension" - 1020 MAT A = CON - 1030 MAT B = CON - 1040 MAT C = CON - 1050 MAT D = CON - 1060 MAT PRINT A(1);B(2);C(3);D(4); - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT PRINT varname( ubound [,...] ) , 2 dimensions" - 1120 MAT A = CON - 1130 MAT B = CON - 1140 MAT C = CON - 1150 MAT D = CON - 1160 MAT PRINT A(1,1);B(2,2);C(3,3);D(4,4); - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT PRINT varname( ubound [,...] ) , 3 dimensions" - 1220 MAT A = CON - 1230 MAT B = CON - 1240 MAT C = CON - 1250 MAT D = CON - 1260 MAT PRINT A(1,1,1);B(2,2,2);C(3,3,3);D(4,4,4); - 9999 END diff --git a/bwbtest/G65/REDIM9.run b/bwbtest/G65/REDIM9.run deleted file mode 100644 index e351999..0000000 --- a/bwbtest/G65/REDIM9.run +++ /dev/null @@ -1,60 +0,0 @@ ----------------------------------------- -MAT PRINT varname( ubound [,...] ) , 1 dimension - 1 - 1 1 - 1 1 1 - 1 1 1 1 ----------------------------------------- -MAT PRINT varname( ubound [,...] ) , 2 dimensions - 1 - 1 1 - 1 1 - 1 1 1 - 1 1 1 - 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 ----------------------------------------- -MAT PRINT varname( ubound [,...] ) , 3 dimensions - 1 - - 1 1 - 1 1 - - 1 1 - 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - diff --git a/bwbtest/G65/REDIMA.BAS b/bwbtest/G65/REDIMA.BAS deleted file mode 100644 index 799429a..0000000 --- a/bwbtest/G65/REDIMA.BAS +++ /dev/null @@ -1,30 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT PRINT ... - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100), B(10,10), C(2,50), D(25,2,2) - 220 FILE # 12345, "REDIMA.DAT" - 230 SCRATCH # 12345 - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT PRINT varname( ubound [,...] ) , 1 dimension" - 1020 MAT A = CON - 1030 MAT B = CON - 1040 MAT C = CON - 1050 MAT D = CON - 1060 MAT PRINT # 12345, A(1);B(2);C(3);D(4); - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT PRINT varname( ubound [,...] ) , 2 dimensions" - 1120 MAT A = CON - 1130 MAT B = CON - 1140 MAT C = CON - 1150 MAT D = CON - 1160 MAT PRINT # 12345, A(1,1);B(2,2);C(3,3);D(4,4); - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT PRINT varname( ubound [,...] ) , 3 dimensions" - 1220 MAT A = CON - 1230 MAT B = CON - 1240 MAT C = CON - 1250 MAT D = CON - 1260 MAT PRINT # 12345, A(1,1,1);B(2,2,2);C(3,3,3);D(4,4,4); - 9999 END diff --git a/bwbtest/G65/REDIMA.DAT b/bwbtest/G65/REDIMA.DAT deleted file mode 100644 index e8a97ff..0000000 --- a/bwbtest/G65/REDIMA.DAT +++ /dev/null @@ -1,54 +0,0 @@ - 1 - 1 1 - 1 1 1 - 1 1 1 1 - 1 - 1 1 - 1 1 - 1 1 1 - 1 1 1 - 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 - - 1 1 - 1 1 - - 1 1 - 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - diff --git a/bwbtest/G65/REDIMA.run b/bwbtest/G65/REDIMA.run deleted file mode 100644 index 78ca757..0000000 --- a/bwbtest/G65/REDIMA.run +++ /dev/null @@ -1,6 +0,0 @@ ----------------------------------------- -MAT PRINT varname( ubound [,...] ) , 1 dimension ----------------------------------------- -MAT PRINT varname( ubound [,...] ) , 2 dimensions ----------------------------------------- -MAT PRINT varname( ubound [,...] ) , 3 dimensions diff --git a/bwbtest/G65/REDIMB.BAS b/bwbtest/G65/REDIMB.BAS deleted file mode 100644 index cc1dff0..0000000 --- a/bwbtest/G65/REDIMB.BAS +++ /dev/null @@ -1,28 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT PUT ... - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100), B(10,10), C(2,50), D(25,2,2) - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT PUT ... varname( ubound [,...] ) , 1 dimension" - 1020 MAT A = CON - 1030 MAT B = CON - 1040 MAT C = CON - 1050 MAT D = CON - 1060 MAT PUT "REDIMB.DAT", A(1);B(2);C(3);D(4); - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT PUT ... varname( ubound [,...] ) , 2 dimensions" - 1120 MAT A = CON - 1130 MAT B = CON - 1140 MAT C = CON - 1150 MAT D = CON - 1160 MAT PUT "REDIMB.DAT", A(1,1);B(2,2);C(3,3);D(4,4); - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT PUT ... varname( ubound [,...] ) , 3 dimensions" - 1220 MAT A = CON - 1230 MAT B = CON - 1240 MAT C = CON - 1250 MAT D = CON - 1260 MAT PUT "REDIMB.DAT", A(1,1,1);B(2,2,2);C(3,3,3);D(4,4,4); - 9999 END diff --git a/bwbtest/G65/REDIMB.DAT b/bwbtest/G65/REDIMB.DAT deleted file mode 100644 index e8a97ff..0000000 --- a/bwbtest/G65/REDIMB.DAT +++ /dev/null @@ -1,54 +0,0 @@ - 1 - 1 1 - 1 1 1 - 1 1 1 1 - 1 - 1 1 - 1 1 - 1 1 1 - 1 1 1 - 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 - - 1 1 - 1 1 - - 1 1 - 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - diff --git a/bwbtest/G65/REDIMB.run b/bwbtest/G65/REDIMB.run deleted file mode 100644 index f9f5920..0000000 --- a/bwbtest/G65/REDIMB.run +++ /dev/null @@ -1,6 +0,0 @@ ----------------------------------------- -MAT PUT ... varname( ubound [,...] ) , 1 dimension ----------------------------------------- -MAT PUT ... varname( ubound [,...] ) , 2 dimensions ----------------------------------------- -MAT PUT ... varname( ubound [,...] ) , 3 dimensions diff --git a/bwbtest/G65/REDIMC.BAS b/bwbtest/G65/REDIMC.BAS deleted file mode 100644 index 0da5725..0000000 --- a/bwbtest/G65/REDIMC.BAS +++ /dev/null @@ -1,30 +0,0 @@ - 100 REM Purpose: Verify a matrix can be re-dimensioned using MAT PUT ... - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-12-09 - 130 REM - 200 OPTION BASE 1 - 210 DIM A(100), B(10,10), C(2,50), D(25,2,2) - 220 FILE # 12345, "REDIMC.DAT" - 230 SCRATCH # 12345 - 1000 PRINT "----------------------------------------" - 1010 PRINT "MAT PUT varname( ubound [,...] ) , 1 dimension" - 1020 MAT A = CON - 1030 MAT B = CON - 1040 MAT C = CON - 1050 MAT D = CON - 1060 MAT PUT # 12345, A(1);B(2);C(3);D(4); - 1100 PRINT "----------------------------------------" - 1110 PRINT "MAT PUT varname( ubound [,...] ) , 2 dimensions" - 1120 MAT A = CON - 1130 MAT B = CON - 1140 MAT C = CON - 1150 MAT D = CON - 1160 MAT PUT # 12345, A(1,1);B(2,2);C(3,3);D(4,4); - 1200 PRINT "----------------------------------------" - 1210 PRINT "MAT PUT varname( ubound [,...] ) , 3 dimensions" - 1220 MAT A = CON - 1230 MAT B = CON - 1240 MAT C = CON - 1250 MAT D = CON - 1260 MAT PUT # 12345, A(1,1,1);B(2,2,2);C(3,3,3);D(4,4,4); - 9999 END diff --git a/bwbtest/G65/REDIMC.DAT b/bwbtest/G65/REDIMC.DAT deleted file mode 100644 index e8a97ff..0000000 --- a/bwbtest/G65/REDIMC.DAT +++ /dev/null @@ -1,54 +0,0 @@ - 1 - 1 1 - 1 1 1 - 1 1 1 1 - 1 - 1 1 - 1 1 - 1 1 1 - 1 1 1 - 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 - - 1 1 - 1 1 - - 1 1 - 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 - 1 1 1 - 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - 1 1 1 1 - diff --git a/bwbtest/G65/REDIMC.run b/bwbtest/G65/REDIMC.run deleted file mode 100644 index acc9e56..0000000 --- a/bwbtest/G65/REDIMC.run +++ /dev/null @@ -1,6 +0,0 @@ ----------------------------------------- -MAT PUT varname( ubound [,...] ) , 1 dimension ----------------------------------------- -MAT PUT varname( ubound [,...] ) , 2 dimensions ----------------------------------------- -MAT PUT varname( ubound [,...] ) , 3 dimensions diff --git a/bwbtest/G65/RNDTES.BAS b/bwbtest/G65/RNDTES.BAS deleted file mode 100644 index 9ab8fff..0000000 --- a/bwbtest/G65/RNDTES.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 FOR L = 1 TO 20 - 20 PRINT RND(X), - 30 NEXT L - 40 END -9900 REM ------------------------------------------------------------------------ -9910 REM Purpose: RNDTES example -9920 REM Author: General Electric -9930 REM Date: 1965-12-20 -9940 REM Note: OPTION VERSION MARK-I -9950 REM Origin: 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf -9960 REM Page: 26 -9970 REM ------------------------------------------------------------------------ diff --git a/bwbtest/G65/RNDTES.run b/bwbtest/G65/RNDTES.run deleted file mode 100644 index 6a489d6..0000000 --- a/bwbtest/G65/RNDTES.run +++ /dev/null @@ -1,4 +0,0 @@ - .396465 .840485 .353336 .446583 .318693 - .886428 1.55828E-2 .58409 .159369 .383716 - .691004 5.88589E-2 .899854 .163546 .159072 - .533065 .604144 .582699 .269971 .390478 diff --git a/bwbtest/G65/SALES1.BAS b/bwbtest/G65/SALES1.BAS deleted file mode 100644 index 8864a5e..0000000 --- a/bwbtest/G65/SALES1.BAS +++ /dev/null @@ -1,28 +0,0 @@ - 10 FOR I = 1 TO 3 - 20 READ P(I) - 30 NEXT I - 40 FOR I = 1 TO 3 - 50 FOR J = 1 TO 5 - 60 READ S(I,J) - 70 NEXT J - 80 NEXT I - 90 FOR J = 1 TO 5 - 100 LET S = 0 - 110 FOR I = 1 TO 3 - 120 LET S = S + P(I) * S(I,J) - 130 NEXT I - 140 PRINT "TOTAL SALES FOR SALESMAN"J,"$" S - 150 NEXT J - 900 DATA 1.25, 4.30, 2.50 - 910 DATA 40, 20, 37, 29, 42 - 920 DATA 10, 16, 3, 21, 8 - 930 DATA 35, 47, 29, 16, 33 - 999 END -9900 REM ------------------------------------------------------------------------ -9910 REM Purpose: SALES1 example -9920 REM Author: General Electric -9930 REM Date: 1965-12-17 -9940 REM Note: OPTION VERSION MARK-I -9950 REM Origin: 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf -9960 REM Page: 12 -9970 REM ------------------------------------------------------------------------ diff --git a/bwbtest/G65/SALES1.run b/bwbtest/G65/SALES1.run deleted file mode 100644 index 2aebabf..0000000 --- a/bwbtest/G65/SALES1.run +++ /dev/null @@ -1,5 +0,0 @@ -TOTAL SALES FOR SALESMAN 1 $ 180.5 -TOTAL SALES FOR SALESMAN 2 $ 211.3 -TOTAL SALES FOR SALESMAN 3 $ 131.65 -TOTAL SALES FOR SALESMAN 4 $ 166.55 -TOTAL SALES FOR SALESMAN 5 $ 169.4 diff --git a/bwbtest/G65/SAMPLE.BAS b/bwbtest/G65/SAMPLE.BAS deleted file mode 100644 index 00367c1..0000000 --- a/bwbtest/G65/SAMPLE.BAS +++ /dev/null @@ -1,13 +0,0 @@ - 10 FOR N = 1 TO 7 - 20 PRINT N, SQR (N) - 30 NEXT N - 40 PRINT "DONE" - 50 END -9900 REM ------------------------------------------------------------------------ -9910 REM Purpose: SAMPLE example -9920 REM Author: General Electric -9930 REM Date: 1965-12-17 -9940 REM Note: OPTION VERSION MARK-I -9950 REM Origin: 202026A_BASIC_Language_Reference_Manual_Jan1967.pdf -9960 REM Page: 14 -9970 REM ------------------------------------------------------------------------ diff --git a/bwbtest/G65/SAMPLE.run b/bwbtest/G65/SAMPLE.run deleted file mode 100644 index 5fba5ea..0000000 --- a/bwbtest/G65/SAMPLE.run +++ /dev/null @@ -1,8 +0,0 @@ - 1 1 - 2 1.41421 - 3 1.73205 - 4 2 - 5 2.23607 - 6 2.44949 - 7 2.64575 -DONE diff --git a/bwbtest/GAMES/00readme.txt b/bwbtest/GAMES/00readme.txt deleted file mode 100644 index a3382ec..0000000 --- a/bwbtest/GAMES/00readme.txt +++ /dev/null @@ -1,17 +0,0 @@ -These programs are provided solely for amusement. -They are NOT part of regression testing and there is NO support. - -Changes made: -a) add missing semicolon/comma in PRINT statements -b) change array names so they were not identical to scalar variable names -c) add spaces around reserved words -d) CASSETTE is not supported, use DISKETTE instead -e) add missing THEN after IF -f) change PRINT #1,X,Y to WRITE #1,X,Y -g) add exit for autmated testing - - -The original programs came from here: -http://www.moorecad.com/classicbasic/ - -EOF diff --git a/bwbtest/GAMES/23-match.INP b/bwbtest/GAMES/23-match.INP deleted file mode 100644 index b784a8c..0000000 --- a/bwbtest/GAMES/23-match.INP +++ /dev/null @@ -1,7 +0,0 @@ -7 -3 -3 -3 -3 -1 -2 diff --git a/bwbtest/GAMES/23-match.bas b/bwbtest/GAMES/23-match.bas deleted file mode 100644 index 4acbed1..0000000 --- a/bwbtest/GAMES/23-match.bas +++ /dev/null @@ -1,64 +0,0 @@ -20 PRINT TAB(31);"23 MATCHES" -30 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -40 PRINT:PRINT:PRINT -80 PRINT " THIS IS A GAME CALLED '23 MATCHES'." -90 PRINT -100 PRINT "WHEN IT IS YOUR TURN, YOU MAY TAKE ONE, TWO, OR THREE" -110 PRINT "MATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE" -120 PRINT "THE LAST MATCH." -130 PRINT -140 PRINT "LET'S FLIP A COIN TO SEE WHO GOES FIRST." -150 PRINT "IF IT COMES UP HEADS, I WILL WIN THE TOSS." -155 PRINT -160 REM -165 N = 23 -170 Q = INT(2*RND(5)) -180 IF Q = 1 THEN 210 -190 PRINT "TAILS! YOU GO FIRST. " -195 PRINT -200 GOTO 300 -210 PRINT "HEADS! I WIN! HA! HA!" -220 PRINT "PREPARE TO LOSE, MEATBALL-NOSE!!" -230 PRINT -250 PRINT "I TAKE 2 MATCHES" -260 N = N -2 -270 PRINT "THE NUMBER OF MATCHES IS NOW"; N -280 PRINT -290 PRINT "YOUR TURN -- YOU MAY TAKE 1, 2 OR 3 MATCHES." -300 PRINT "HOW MANY DO YOU WISH TO REMOVE", -310 INPUT K -320 IF K > 3 THEN 430 -330 IF K <= 0 THEN 430 -340 N = N - K -350 PRINT "THERE ARE NOW";N;"MATCHES REMAINING." -351 IF N = 4 THEN 381 -352 IF N = 3 THEN 383 -353 IF N = 2 THEN 385 -360 IF N <= 1 THEN 530 -370 Z = 4 - K -372 GOTO 390 -380 PRINT -381 Z = 3 -382 GOTO 390 -383 Z = 2 -384 GOTO 390 -385 Z = 1 -390 PRINT "MY TURN ! I REMOVE"; Z; "MATCHES" -400 N = N - Z -410 IF N <= 1 THEN 470 -420 GOTO 270 -430 PRINT "VERY FUNNY! DUMMY!" -440 PRINT "DO YOU WANT TO PLAY OR GOOF AROUND?" -450 PRINT "NOW, HOW MANY MATCHES DO YOU WANT", -460 GOTO 310 -470 PRINT -480 PRINT"YOU POOR BOOB! YOU TOOK THE LAST MATCH! I GOTCHA!!" -490 PRINT "HA ! HA ! I BEAT YOU !!!" -500 PRINT -510 PRINT "GOOD BYE LOSER!" -520 GOTO 560 -530 PRINT "YOU WON, FLOPPY EARS !" -540 PRINT "THINK YOU'RE PRETTY SMART !" -550 PRINT "LETS PLAY AGAIN AND I'LL BLOW YOUR SHOES OFF !!" -560 STOP -570 END diff --git a/bwbtest/GAMES/3dplot.INP b/bwbtest/GAMES/3dplot.INP deleted file mode 100644 index 8b13789..0000000 --- a/bwbtest/GAMES/3dplot.INP +++ /dev/null @@ -1 +0,0 @@ - diff --git a/bwbtest/GAMES/3dplot.bas b/bwbtest/GAMES/3dplot.bas deleted file mode 100644 index 064b73c..0000000 --- a/bwbtest/GAMES/3dplot.bas +++ /dev/null @@ -1,17 +0,0 @@ -1 PRINT TAB(30);"SLOTS" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT: PRINT: PRINT -5 DEF FNA(Z)=30*EXP(-Z*Z/100) -100 PRINT -110 FOR X=-30 TO 30 STEP 1.5 -120 L=0 -130 Y1=5*INT(SQR(900-X*X)/5) -140 FOR Y=Y1 TO -Y1 STEP -5 -150 Z=INT(25+FNA(SQR(X*X+Y*Y))-.7*Y) -160 IF Z<=L THEN 190 -170 L=Z -180 PRINT TAB(Z);"*"; -190 NEXT Y -200 PRINT -210 NEXT X -300 END \ No newline at end of file diff --git a/bwbtest/GAMES/aceyducy.INP b/bwbtest/GAMES/aceyducy.INP deleted file mode 100644 index f300a45..0000000 --- a/bwbtest/GAMES/aceyducy.INP +++ /dev/null @@ -1,17 +0,0 @@ -0 -0 -0 -1000 -100 -0 -200 -0 -400 -0 -0 -0 -0 -0 -800 -1600 -N diff --git a/bwbtest/GAMES/aceyducy.bas b/bwbtest/GAMES/aceyducy.bas deleted file mode 100644 index 2c8b1c3..0000000 --- a/bwbtest/GAMES/aceyducy.bas +++ /dev/null @@ -1,100 +0,0 @@ -10 PRINT TAB(26);"ACEY DUCEY CARD GAME" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -21 PRINT -22 PRINT -30 PRINT"ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER " -40 PRINT"THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP" -50 PRINT"YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING" -60 PRINT"ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE" -70 PRINT"A VALUE BETWEEN THE FIRST TWO." -80 PRINT"IF YOU DO NOT WANT TO BET, INPUT A 0" -100 N=100 -110 Q=100 -120 PRINT "YOU NOW HAVE";Q;"DOLLARS." -130 PRINT -140 GOTO 260 -210 Q=Q+M -220 GOTO 120 -240 Q=Q-M -250 GOTO 120 -260 PRINT"HERE ARE YOUR NEXT TWO CARDS: " -270 A=INT(14*RND(1))+2 -280 IF A<2 THEN 270 -290 IF A>14 THEN 270 -300 B=INT(14*RND(1))+2 -310 IF B<2 THEN 300 -320 IF B>14 THEN 300 -330 IF A>=B THEN 270 -350 IF A<11 THEN 400 -360 IF A=11 THEN 420 -370 IF A=12 THEN 440 -380 IF A=13 THEN 460 -390 IF A=14 THEN 480 -400 PRINT A -410 GOTO 500 -420 PRINT"JACK" -430 GOTO 500 -440 PRINT"QUEEN" -450 GOTO 500 -460 PRINT"KING" -470 GOTO 500 -480 PRINT"ACE" -500 IF B<11 THEN 550 -510 IF B=11 THEN 570 -520 IF B=12 THEN 590 -530 IF B=13 THEN 610 -540 IF B=14 THEN 630 -550 PRINT B -560 GOTO 650 -570 PRINT"JACK" -580 GOTO 650 -590 PRINT"QUEEN" -600 GOTO 650 -610 PRINT"KING" -620 GOTO 650 -630 PRINT"ACE" -640 PRINT -650 PRINT -660 INPUT"WHAT IS YOUR BET";M -670 IF M<>0 THEN 680 -675 PRINT"CHICKEN!!" -676 PRINT -677 GOTO 260 -680 IF M<=Q THEN 730 -690 PRINT"SORRY, MY FRIEND, BUT YOU BET TOO MUCH." -700 PRINT"YOU HAVE ONLY ";Q;" DOLLARS TO BET." -710 GOTO 650 -730 C=INT(14*RND(1))+2 -740 IF C<2 THEN 730 -750 IF C>14 THEN 730 -760 IF C<11 THEN 810 -770 IF C=11 THEN 830 -780 IF C=12 THEN 850 -790 IF C=13 THEN 870 -800 IF C=14 THEN 890 -810 PRINT C -820 GOTO 910 -830 PRINT"JACK" -840 GOTO 910 -850 PRINT"QUEEN" -860 GOTO 910 -870 PRINT"KING" -880 GOTO 910 -890 PRINT "ACE" -900 PRINT -910 IF C>A THEN 930 -920 GOTO 970 -930 IF C>=B THEN 970 -950 PRINT"YOU WIN!!!" -960 GOTO 210 -970 PRINT"SORRY, YOU LOSE" -980 IF M1 AND V<>1 THEN 110 -104 PRINT "MEANINGLESS DIMENSIONS. TRY AGAIN.":GOTO 100 -110 DIM WW(H,V),VV(H,V) -120 PRINT -130 PRINT -140 PRINT -150 PRINT -160 Q=0:Z=0:X=INT(RND(1)*H+1) -165 FOR I=1 TO H -170 IF I=X THEN 173 -171 PRINT ".--";:GOTO 180 -173 PRINT ". "; -180 NEXT I -190 PRINT "." -195 C=1:WW(X,1)=C:C=C+1 -200 R=X:S=1:GOTO 260 -210 IF R<>H THEN 240 -215 IF S<>V THEN 230 -220 R=1:S=1:GOTO 250 -230 R=1:S=S+1:GOTO 250 -240 R=R+1 -250 IF WW(R,S)=0 THEN 210 -260 IF R-1=0 THEN 530 -265 IF WW(R-1,S)<>0 THEN 530 -270 IF S-1=0 THEN 390 -280 IF WW(R,S-1)<>0 THEN 390 -290 IF R=H THEN 330 -300 IF WW(R+1,S)<>0 THEN 330 -310 X=INT(RND(1)*3+1) -320 ON X GOTO 790,820,860 -330 IF S<>V THEN 340 -334 IF Z=1 THEN 370 -338 Q=1:GOTO 350 -340 IF WW(R,S+1)<>0 THEN 370 -350 X=INT(RND(1)*3+1) -360 ON X GOTO 790,820,910 -370 X=INT(RND(1)*2+1) -380 ON X GOTO 790,820 -390 IF R=H THEN 470 -400 IF WW(R+1,S)<>0 THEN 470 -405 IF S<>V THEN 420 -410 IF Z=1 THEN 450 -415 Q=1:GOTO 430 -420 IF WW(R,S+1)<>0 THEN 450 -430 X=INT(RND(1)*3+1) -440 ON X GOTO 790,860,910 -450 X=INT(RND(1)*2+1) -460 ON X GOTO 790,860 -470 IF S<>V THEN 490 -480 IF Z=1 THEN 520 -485 Q=1:GOTO 500 -490 IF WW(R,S+1)<>0 THEN 520 -500 X=INT(RND(1)*2+1) -510 ON X GOTO 790,910 -520 GOTO 790 -530 IF S-1=0 THEN 670 -540 IF WW(R,S-1)<>0 THEN 670 -545 IF R=H THEN 610 -547 IF WW(R+1,S)<>0 THEN 610 -550 IF S<>V THEN 560 -552 IF Z=1 THEN 590 -554 Q=1:GOTO 570 -560 IF WW(R,S+1)<>0 THEN 590 -570 X=INT(RND(1)*3+1) -580 ON X GOTO 820,860,910 -590 X=INT(RND(1)*2+1) -600 ON X GOTO 820,860 -610 IF S<>V THEN 630 -620 IF Z=1 THEN 660 -625 Q=1:GOTO 640 -630 IF WW(R,S+1)<>0 THEN 660 -640 X=INT(RND(1)*2+1) -650 ON X GOTO 820,910 -660 GOTO 820 -670 IF R=H THEN 740 -680 IF WW(R+1,S)<>0 THEN 740 -685 IF S<>V THEN 700 -690 IF Z=1 THEN 730 -695 Q=1:GOTO 830 -700 IF WW(R,S+1)<>0 THEN 730 -710 X=INT(RND(1)*2+1) -720 ON X GOTO 860,910 -730 GOTO 860 -740 IF S<>V THEN 760 -750 IF Z=1 THEN 780 -755 Q=1:GOTO 770 -760 IF WW(R,S+1)<>0 THEN 780 -770 GOTO 910 -780 GOTO 1000 -790 WW(R-1,S)=C -800 C=C+1:VV(R-1,S)=2:R=R-1 -810 IF C=H*V+1 THEN 1010 -815 Q=0:GOTO 260 -820 WW(R,S-1)=C -830 C=C+1 -840 VV(R,S-1)=1:S=S-1:IF C=H*V+1 THEN 1010 -850 Q=0:GOTO 260 -860 WW(R+1,S)=C -870 C=C+1:IF VV(R,S)=0 THEN 880 -875 VV(R,S)=3:GOTO 890 -880 VV(R,S)=2 -890 R=R+1 -900 IF C=H*V+1 THEN 1010 -905 GOTO 530 -910 IF Q=1 THEN 960 -920 WW(R,S+1)=C:C=C+1:IF VV(R,S)=0 THEN 940 -930 VV(R,S)=3:GOTO 950 -940 VV(R,S)=1 -950 S=S+1:IF C=H*V+1 THEN 1010 -955 GOTO 260 -960 Z=1 -970 IF VV(R,S)=0 THEN 980 -975 VV(R,S)=3:Q=0:GOTO 1000 -980 VV(R,S)=1:Q=0:R=1:S=1:GOTO 250 -1000 GOTO 210 -1010 FOR J=1 TO V -1011 PRINT "I"; -1012 FOR I=1 TO H -1013 IF VV(I,J)<2 THEN 1030 -1020 PRINT " "; -1021 GOTO 1040 -1030 PRINT " I"; -1040 NEXT I -1041 PRINT -1043 FOR I=1 TO H -1045 IF VV(I,J)=0 THEN 1060 -1050 IF VV(I,J)=2 THEN 1060 -1051 PRINT ": "; -1052 GOTO 1070 -1060 PRINT ":--"; -1070 NEXT I -1071 PRINT "." -1072 NEXT J -1073 END diff --git a/bwbtest/GAMES/animal.INP b/bwbtest/GAMES/animal.INP deleted file mode 100644 index 1d0edbb..0000000 --- a/bwbtest/GAMES/animal.INP +++ /dev/null @@ -1,7 +0,0 @@ -YES -YES -YES -YES -NO -YES -QUIT diff --git a/bwbtest/GAMES/animal.bas b/bwbtest/GAMES/animal.bas deleted file mode 100644 index eebc721..0000000 --- a/bwbtest/GAMES/animal.bas +++ /dev/null @@ -1,74 +0,0 @@ -10 PRINT TAB(32);"ANIMAL" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT: PRINT: PRINT -40 PRINT "PLAY 'GUESS THE ANIMAL'" -45 PRINT -50 PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT." -60 PRINT -70 DIM A$(200) -80 FOR I=0 TO 3 -90 READ A$(I) -100 NEXT I -110 N=VAL(A$(0)) -120 REM MAIN CONTROL SECTION -130 INPUT "ARE YOU THINKING OF AN ANIMAL";A$ -135 IF A$ = "QUIT" THEN END -140 IF A$="LIST" THEN 600 -150 IF LEFT$(A$,1)<>"Y" THEN 120 -160 K=1 -170 GOSUB 390 -180 IF LEN(A$(K))=0 THEN 999 -190 IF LEFT$(A$(K),2)="\Q" THEN 170 -200 PRINT "IS IT A ";RIGHT$(A$(K),LEN(A$(K))-2); -210 INPUT A$ -220 A$=LEFT$(A$,1) -230 IF LEFT$(A$,1)="Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": GOTO 120 -240 INPUT "THE ANIMAL YOU WERE THINKING OF WAS A ";V$ -250 PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A" -260 PRINT V$;" FROM A ";RIGHT$(A$(K),LEN(A$(K))-2) -270 INPUT X$ -280 PRINT "FOR A ";V$;" THE ANSWER WOULD BE "; -290 INPUT A$ -300 A$=LEFT$(A$,1): IF A$<>"Y" AND A$<>"N" THEN 280 -310 IF A$="Y" THEN B$="N" -320 IF A$="N" THEN B$="Y" -330 Z1=VAL(A$(0)) -340 A$(0)=STR$(Z1+2) -350 A$(Z1)=A$(K) -360 A$(Z1+1)="\A"+V$ -370 A$(K)="\Q"+X$+"\"+A$+STR$(Z1+1)+"\"+B$+STR$(Z1)+"\" -380 GOTO 120 -390 REM SUBROUTINE TO PRINT QUESTIONS -400 Q$=A$(K) -410 FOR Z=3 TO LEN(Q$) -415 IF MID$(Q$,Z,1)<>"\" THEN PRINT MID$(Q$,Z,1); -417 NEXT Z -420 INPUT C$ -430 C$=LEFT$(C$,1) -440 IF C$<>"Y" AND C$<>"N" THEN 410 -450 T$="\"+C$ -455 FOR X=3 TO LEN(Q$)-1 -460 IF MID$(Q$,X,2)=T$ THEN 480 -470 NEXT X -475 STOP -480 FOR Y=X+1 TO LEN(Q$) -490 IF MID$(Q$,Y,1)="\" THEN 510 -500 NEXT Y -505 STOP -510 K=VAL(MID$(Q$,X+2,Y-X-2)) -520 RETURN -530 DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD" -600 PRINT:PRINT "ANIMALS I ALREADY KNOW ARE:" -605 X=0 -610 FOR I=1 TO 200 -620 IF LEFT$(A$(I),2)<>"\A" THEN 650 -624 PRINT TAB(15*X); -630 FOR Z=3 TO LEN(A$(I)) -640 IF MID$(A$(I),Z,1)<>"\" THEN PRINT MID$(A$(I),Z,1); -642 NEXT Z -645 X=X+1: IF X=4 THEN X=0: PRINT -650 NEXT I -660 PRINT -670 PRINT -680 GOTO 120 -999 END diff --git a/bwbtest/GAMES/awari.INP b/bwbtest/GAMES/awari.INP deleted file mode 100644 index a464f8d..0000000 --- a/bwbtest/GAMES/awari.INP +++ /dev/null @@ -1,24 +0,0 @@ -7 -6 -5 -4 -3 -2 -1 -7 -6 -5 -4 -3 -2 -1 -7 -6 -5 -4 -3 -2 -1 -7 -6 --99 diff --git a/bwbtest/GAMES/awari.bas b/bwbtest/GAMES/awari.bas deleted file mode 100644 index d21d179..0000000 --- a/bwbtest/GAMES/awari.bas +++ /dev/null @@ -1,71 +0,0 @@ -5 PRINT TAB(34);"AWARI" -7 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -10 DATA 0 -15 DIM B(13),G(13),F(50):READ N -20 PRINT:PRINT:E=0 -25 FOR I=0 TO 12:B(I)=3:NEXT I -30 C=0:F(N)=0:B(13)=0:B(6)=0 -35 GOSUB 500 -40 PRINT "YOUR MOVE";:GOSUB 110 -45 IF E=0 THEN 80 -50 IF M=H THEN GOSUB 100 -55 IF E=0 THEN 80 -60 PRINT "MY MOVE IS ";:GOSUB 800 -65 IF E=0 THEN 80 -70 IF M=H THEN PRINT ",";:GOSUB 800 -75 IF E>0 THEN 35 -80 PRINT:PRINT"GAME OVER" -85 D=B(6)-B(13):IF D<0 THEN PRINT "I WIN BY";-D;"POINTS":GOTO 20 -90 N=N+1:IF D=0 THEN PRINT "DRAWN GAME":GOTO 20 -95 PRINT "YOU WIN BY";D;"POINTS":GOTO 20 -100 PRINT "AGAIN"; -110 INPUT M:IF M<7 THEN IF M>0 THEN M=M-1:GOTO 130 -115 IF M = -99 THEN END -120 PRINT "ILLEGAL MOVE":GOTO 100 -130 IF B(M)=0 THEN 120 -140 H=6:GOSUB 200 -150 GOTO 500 -200 K=M:GOSUB 600 -205 E=0:IF K>6 THEN K=K-7 -210 C=C+1:IF C<9 THEN F(N)=F(N)*6+K -215 FOR I=0 TO 5:IF B(I)<>0 THEN 230 -220 NEXT I -225 RETURN -230 FOR I=7 TO 12:IF B(I)<>0 THEN E=1:RETURN -235 NEXT I -500 PRINT:PRINT" "; -505 FOR I=12 TO 7 STEP -1:GOSUB 580 -510 NEXT I -515 PRINT:I=13:GOSUB 580 -520 PRINT " ";:PRINT B(6):PRINT " "; -525 FOR I=0 TO 5:GOSUB 580 -530 NEXT I -535 PRINT:PRINT:RETURN -580 IF B(I)<10 THEN PRINT " "; -585 PRINT B(I);:RETURN -600 P=B(M):B(M)=0 -605 FOR P=P TO 1 STEP -1:M=M+1:IF M>13 THEN M=M-14 -610 B(M)=B(M)+1:NEXT P -615 IF B(M)=1 THEN IF M<>6 THEN IF M<>13 THEN IF B(12-M)<>0 THEN 625 -620 RETURN -625 B(H)=B(H)+B(12-M)+1:B(M)=0:B(12-M)=0:RETURN -800 D=-99:H=13 -805 FOR I=0 TO 13:G(I)=B(I):NEXT I -810 FOR J=7 TO 12:IF B(J)=0 THEN 885 -815 G=0:M=J:GOSUB 600 -820 FOR I=0 TO 5:IF B(I)=0 THEN 845 -825 L=B(I)+I:R=0 -830 IF L>13 THEN L=L-14:R=1:GOTO 830 -835 IF B(L)=0 THEN IF L<>6 THEN IF L<>13 THEN R=B(12-L)+R -840 IF R>Q THEN Q=R -845 NEXT I -850 Q=B(13)-B(6)-Q:IF C>8 THEN 875 -855 K=J:IF K>6 THEN K=K-7 -860 FOR I=0 TO N-1:IF F(N)*6+K=INT(F(I)/6^(7-C)+.1) THEN Q=Q-2 -870 NEXT I -875 FOR I=0 TO 13:B(I)=G(I):NEXT I -880 IF Q>=D THEN A=J:D=Q -885 NEXT J -890 M=A:PRINT CHR$(42+M);:GOTO 200 -900 FOR I=0 TO N-1:PRINT B(I):NEXT I -999 END diff --git a/bwbtest/GAMES/bagels.INP b/bwbtest/GAMES/bagels.INP deleted file mode 100644 index f5eff64..0000000 --- a/bwbtest/GAMES/bagels.INP +++ /dev/null @@ -1,11 +0,0 @@ -YES -123 -321 -312 -345 -354 -356 -364 -374 -384 -NO diff --git a/bwbtest/GAMES/bagels.bas b/bwbtest/GAMES/bagels.bas deleted file mode 100644 index 3136955..0000000 --- a/bwbtest/GAMES/bagels.bas +++ /dev/null @@ -1,81 +0,0 @@ -5 PRINT TAB(33);"BAGELS" -10 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY":PRINT:PRINT -15 REM *** BAGLES NUMBER GUESSING GAME -20 REM *** ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TO BE -25 REM *** LAWRENCE HALL OF SCIENCE, U.C. BERKELY -30 DIM A1(6),A(3),B(3) -40 Y=0:T=255 -50 PRINT:PRINT:PRINT -70 INPUT "WOULD YOU LIKE THE RULES (YES OR NO)";A$ -90 IF LEFT$(A$,1)="N" THEN 150 -100 PRINT:PRINT "I AM THINKING OF A THREE-DIGIT NUMBER. TRY TO GUESS" -110 PRINT "MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:" -120 PRINT " PICO - ONE DIGIT CORRECT BUT IN THE WRONG POSITION" -130 PRINT " FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION" -140 PRINT " BAGELS - NO DIGITS CORRECT" -150 FOR I=1 TO 3 -160 A(I)=INT(10*RND(1)) -165 IF I-1=0 THEN 200 -170 FOR J=1 TO I-1 -180 IF A(I)=A(J) THEN 160 -190 NEXT J -200 NEXT I -210 PRINT:PRINT "O.K. I HAVE A NUMBER IN MIND." -220 FOR I=1 TO 20 -230 PRINT "GUESS #";I, -240 INPUT A$ -245 IF LEN(A$)<>3 THEN 630 -250 FOR Z=1 TO 3:A1(Z)=ASC(MID$(A$,Z,1)):NEXT Z -260 FOR J=1 TO 3 -270 IF A1(J)<48 THEN 300 -280 IF A1(J)>57 THEN 300 -285 B(J)=A1(J)-48 -290 NEXT J -295 GOTO 320 -300 PRINT "WHAT?" -310 GOTO 230 -320 IF B(1)=B(2) THEN 650 -330 IF B(2)=B(3) THEN 650 -340 IF B(3)=B(1) THEN 650 -350 C=0:D=0 -360 FOR J=1 TO 2 -370 IF A(J)<>B(J+1) THEN 390 -380 C=C+1 -390 IF A(J+1)<>B(J) THEN 410 -400 C=C+1 -410 NEXT J -420 IF A(1)<>B(3) THEN 440 -430 C=C+1 -440 IF A(3)<>B(1) THEN 460 -450 C=C+1 -460 FOR J=1 TO 3 -470 IF A(J)<>B(J) THEN 490 -480 D=D+1 -490 NEXT J -500 IF D=3 THEN 680 -505 IF C=0 THEN 545 -520 FOR J=1 TO C -530 PRINT "PICO "; -540 NEXT J -545 IF D=0 THEN 580 -550 FOR J=1 TO D -560 PRINT "FERMI "; -570 NEXT J -580 IF C+D<>0 THEN 600 -590 PRINT "BAGELS"; -600 PRINT -605 NEXT I -610 PRINT "OH WELL." -615 PRINT "THAT'S TWNETY GUESSES. MY NUMBER WAS";100*A(1)+10*A(2)+A(3) -620 GOTO 700 -630 PRINT "TRY GUESSING A THREE-DIGIT NUMBER.":GOTO 230 -650 PRINT "OH, I FORGOT TO TELL YOU THAT THE NUMBER I HAVE IN MIND" -660 PRINT "HAS NO TWO DIGITS THE SAME.":GOTO 230 -680 PRINT "YOU GOT IT!!!":PRINT -690 Y=Y+1 -700 INPUT "PLAY AGAIN (YES OR NO)";A$ -720 IF LEFT$(A$,1)="YES" THEN 150 -730 IF Y=0 THEN 750 -740 PRINT:PRINT "A";Y;"POINT BAGELS BUFF!!" -750 PRINT "HOPE YOU HAD FUN. BYE." -999 END diff --git a/bwbtest/GAMES/banner.INP b/bwbtest/GAMES/banner.INP deleted file mode 100644 index 1a5ac24..0000000 --- a/bwbtest/GAMES/banner.INP +++ /dev/null @@ -1,6 +0,0 @@ -2 -2 -NO -# -AF5NE -NO diff --git a/bwbtest/GAMES/banner.bas b/bwbtest/GAMES/banner.bas deleted file mode 100644 index d27927e..0000000 --- a/bwbtest/GAMES/banner.bas +++ /dev/null @@ -1,95 +0,0 @@ -1 DIM S(7),J(9) -10 INPUT "HORIZONTAL";X -20 INPUT "VERTICAL";Y -21 INPUT "CENTERED";L$ -22 G1=0:IF L$>"P" THEN G1=1 -23 INPUT "CHARACTER (TYPE 'ALL' IF YOU WANT CHARACTER BEING PRINTED)";M$ -29 PRINT "STATEMENT"; -30 INPUT A$ -35 INPUT "SET PAGE";O$ -40 A=ASC(LEFT$(A$,1)) -50 REM -60 REM -70 FOR T=1 TO LEN(A$) -80 P$=MID$(A$,T,1) -90 FOR O=1 TO 50 -95 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7) -96 IF P$=" " THEN 812 -100 IF P$=S$ THEN 200 -120 NEXT O -200 RESTORE -201 X$=M$ -202 IF M$="ALL" THEN X$=S$ -205 FOR U=1 TO 7 -210 FOR K=8 TO 0 STEP -1 -230 IF 2^K 3/5 THEN 420 -400 PRINT O$;" CONTROLS THE TAP." -410 GOTO 3000 -420 PRINT "DARTMOUTH CONTROLS THE TAP." -425 PRINT -430 INPUT "YOUR SHOT";Z -440 P=0 -445 IF Z<>INT(Z) THEN 455 -446 IF Z<0 OR Z>4 THEN 455 -447 GOTO 460 -455 PRINT "INCORRECT ANSWER. RETYPE IT. ";:GOTO 430 -460 IF RND(1)<.5 THEN 1000 -480 IF T<100 THEN 1000 -490 PRINT -491 IF S(1)<>S(0) THEN 510 -492 PRINT:PRINT " ***** END OF SECOND HALF *****":PRINT -493 PRINT "SCORE AT END OF REGULATION TIME:" -494 PRINT " DARTMOUTH:";S(1);" ";O$;":";S(0) -495 PRINT -496 PRINT "BEGIN TWO MINUTE OVERTIME PERIOD" -499 T=93 -500 GOTO 370 -510 PRINT " ***** END OF GAME *****" -515 PRINT "FINAL SCORE: DARTMOUTH:";S(1);" ";O$;":";S(0) -520 STOP -600 PRINT -610 PRINT " *** TWO MINUTES LEFT IN THE GAME ***" -620 PRINT -630 RETURN -1000 ON Z GOTO 1040,1040 -1030 GOTO 1300 -1040 T=T+1 -1041 IF T=50 THEN 8000 -1042 IF T=92 THEN 1046 -1043 GOTO 1050 -1046 GOSUB 600 -1050 PRINT "JUMP SHOT" -1060 IF RND(1)>.341*D/8 THEN 1090 -1070 PRINT "SHOT IS GOOD." -1075 GOSUB 7000 -1085 GOTO 3000 -1090 IF RND(1)>.682*D/8 THEN 1200 -1100 PRINT "SHOT IS OFF TARGET." -1105 IF D/6*RND(1)>.45 THEN 1130 -1110 PRINT "DARTMOUTH CONTROLS THE REBOUND." -1120 GOTO 1145 -1130 PRINT "REBOUND TO ";O$ -1140 GOTO 3000 -1145 IF RND(1)>.4 THEN 1158 -1150 GOTO 1300 -1158 IF D=6 THEN 5100 -1160 PRINT "BALL PASSED BACK TO YOU. "; -1170 GOTO 430 -1180 IF RND(1)>.9 THEN 1190 -1185 PRINT "PLAYER FOULED, TWO SHOTS." -1187 GOSUB 4000 -1188 GOTO 3000 -1190 PRINT "BALL STOLEN. ";O$;"'S BALL." -1195 GOTO 3000 -1200 IF RND(1)>.782*D/8 THEN 1250 -1210 PRINT "SHOT IS BLOCKED. BALL CONTROLLED BY "; -1230 IF RND(1)>.5 THEN 1242 -1235 PRINT "DARTMOUTH." -1240 GOTO 430 -1242 PRINT O$;"." -1245 GOTO 3000 -1250 IF RND(1)>.843*D/8 THEN 1270 -1255 PRINT "SHOOTER IS FOULED. TWO SHOTS." -1260 GOSUB 4000 -1265 GOTO 3000 -1270 PRINT "CHARGING FOUL. DARTMOUTH LOSES BALL." -1280 GOTO 3000 -1300 T=T+1 -1301 IF T=50 THEN 8000 -1302 IF T=92 THEN 1304 -1303 GOTO 1305 -1304 GOSUB 600 -1305 IF Z=0 THEN 2010 -1310 IF Z>3 THEN 1700 -1320 PRINT "LAY UP." -1330 IF 7/D*RND(1)>.4 THEN 1360 -1340 PRINT "SHOT IS GOOD. TWO POINTS." -1345 GOSUB 7000 -1355 GOTO 3000 -1360 IF 7/D*RND(1)>.7 THEN 1500 -1370 PRINT "SHOT IS OFF THE RIM." -1380 IF RND(1)>2/3 THEN 1415 -1390 PRINT O$;" CONTROLS THE REBOUND." -1400 GOTO 3000 -1415 PRINT "DARTMOUTH CONTROLS THE REBOUND." -1420 IF RND(1)>.4 THEN 1440 -1430 GOTO 1300 -1440 PRINT "BALL PASSED BACK TO YOU."; -1450 GOTO 430 -1500 IF 7/D*RND(1)>.875 THEN 1600 -1510 PRINT "SHOOTER FOULED. TWO SHOTS." -1520 GOSUB 4000 -1530 GOTO 3000 -1600 IF 7/D*RND(1)>.925 THEN 1630 -1610 PRINT "SHOT BLOCKED. ";O$;"'S BALL." -1620 GOTO 3000 -1630 PRINT "CHARGING FOUL. DARTMOUTH LOSES THE BALL." -1640 GOTO 3000 -1700 PRINT "SET SHOT." -1710 GOTO 1330 -2010 INPUT "YOUR NEW DEFENSIVE ALLIGNMENT IS";D -2030 IF D<6 THEN 2010 -2040 GOTO 425 -3000 P=1 -3005 T=T+1 -3008 IF T=50 THEN 8000 -3012 GOTO 3018 -3015 GOSUB 600 -3018 PRINT -3020 Z1=10/4*RND(1)+1 -3030 IF Z1>2 THEN 3500 -3040 PRINT "JUMP SHOT." -3050 IF 8/D*RND(1)>.35 THEN 3100 -3060 PRINT "SHOT IS GOOD." -3080 GOSUB 6000 -3090 GOTO 425 -3100 IF 8/D*RND(1)>.75 THEN 3200 -3105 PRINT "SHOT IS OFF RIM." -3110 IF D/6*RND(1)>.5 THEN 3150 -3120 PRINT "DARTMOUTH CONTROLS THE REBOUND." -3130 GOTO 425 -3150 PRINT O$;" CONTROLS THE REBOUND." -3160 IF D=6 THEN 5000 -3165 IF RND(1)>.5 THEN 3175 -3168 PRINT "PASS BACK TO ";O$;" GUARD." -3170 GOTO 3000 -3175 GOTO 3500 -3200 IF 8/D*RND(1)>.9 THEN 3310 -3210 PRINT "PLAYER FOULED. TWO SHOTS." -3220 GOSUB 4000 -3230 GOTO 425 -3310 PRINT "OFFENSIVE FOUL. DARTMOUTH'S BALL." -3320 GOTO 425 -3500 IF Z1>3 THEN 3800 -3510 PRINT "LAY UP." -3520 IF 7/D*RND(1)>.413 THEN 3600 -3530 PRINT "SHOT IS GOOD." -3540 GOSUB 6000 -3550 GOTO 425 -3600 PRINT "SHOT IS MISSED." -3610 GOTO 3110 -3800 PRINT "SET SHOT." -3810 GOTO 3520 -4000 REM FOUL SHOOTING -4010 IF RND(1)>.49 THEN 4050 -4020 PRINT "SHOOTER MAKES BOTH SHOTS." -4030 S(1-P)=S(1-P)+2 -4040 GOSUB 6010 -4041 RETURN -4050 IF RND(1)>.75 THEN 4100 -4060 PRINT "SHOOTER MAKES ONE SHOT AND MISSES ONE." -4070 S(1-P)=S(1-P)+1 -4080 GOTO 4040 -4100 PRINT "BOTH SHOTS MISSED." -4110 GOTO 4040 -5000 IF RND(1)>.75 THEN 5010 -5005 GOTO 3165 -5010 PRINT "BALL STOLEN. EASY LAY UP FOR DARTMOUTH." -5015 GOSUB 7000 -5030 GOTO 3000 -5100 IF RND(1)>.6 THEN 5120 -5110 GOTO 1160 -5120 PRINT "PASS STOLEN BY ";O$;" EASY LAYUP." -5130 GOSUB 6000 -5140 GOTO 425 -6000 S(0)=S(0)+2 -6010 PRINT "SCORE: ";S(1);"TO";S(0) -6020 RETURN -7000 S(1)=S(1)+2 -7010 GOSUB 6010 -7020 RETURN -8000 PRINT:PRINT " ***** END OF FIRST HALF *****":PRINT -8010 PRINT "SCORE: DARTMOUTH:";S(1);" ";O$;":";S(0) -8015 PRINT -8016 PRINT -8020 GOTO 370 -9999 END diff --git a/bwbtest/GAMES/batnum.INP b/bwbtest/GAMES/batnum.INP deleted file mode 100644 index 488964c..0000000 --- a/bwbtest/GAMES/batnum.INP +++ /dev/null @@ -1,8 +0,0 @@ -13 -2 -1,3 -1 -3 -3 -3 --1 diff --git a/bwbtest/GAMES/batnum.bas b/bwbtest/GAMES/batnum.bas deleted file mode 100644 index 6f39f85..0000000 --- a/bwbtest/GAMES/batnum.bas +++ /dev/null @@ -1,91 +0,0 @@ -10 PRINT TAB(33);"BATNUM" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -110 PRINT "THIS PROGRAM IS A 'BATTLE OF NUMBERS' GAME, WHERE THE" -120 PRINT "COMPUTER IS YOUR OPPONENT." -130 PRINT -140 PRINT "THE GAME STARTS WITH AN ASSUMED PILE OF OBJECTS. YOU" -150 PRINT "AND YOUR OPPONENT ALTERNATELY REMOVE OBJECTS FROM THE PILE." -160 PRINT "WINNING IS DEFINED IN ADVANCE AS TAKING THE LAST OBJECT OR" -170 PRINT "NOT. YOU CAN ALSO SPECIFY SOME OTHER BEGINNING CONDITIONS." -180 PRINT "DON'T USE ZERO, HOWEVER, IN PLAYING THE GAME." -190 PRINT "ENTER A NEGATIVE NUMBER FOR NEW PILE SIZE TO STOP PLAYING." -200 PRINT -210 GOTO 330 -220 FOR I=1 TO 10 -230 PRINT -240 NEXT I -330 INPUT "ENTER PILE SIZE";N -335 IF N = -1 THEN END -350 IF N>=1 THEN 370 -360 GOTO 330 -370 IF N<>INT(N) THEN 220 -380 IF N<1 THEN 220 -390 INPUT "ENTER WIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST: ";M -410 IF M=1 THEN 430 -420 IF M<>2 THEN 390 -430 INPUT "ENTER MIN AND MAX ";A,B -450 IF A>B THEN 430 -460 IF A<1 THEN 430 -470 IF A<>INT(A) THEN 430 -480 IF B<>INT(B) THEN 430 -490 INPUT "ENTER START OPTION - 1 COMPUTER FIRST, 2 YOU FIRST ";S -500 PRINT:PRINT -510 IF S=1 THEN 530 -520 IF S<>2 THEN 490 -530 C=A+B -540 IF S=2 THEN 570 -550 GOSUB 600 -560 IF W=1 THEN 220 -570 GOSUB 810 -580 IF W=1 THEN 220 -590 GOTO 550 -600 Q=N -610 IF M=1 THEN 630 -620 Q=Q-1 -630 IF M=1 THEN 680 -640 IF N>A THEN 720 -650 W=1 -660 PRINT "COMPUTER TAKES";N;"AND LOSES." -670 RETURN -680 IF N>B THEN 720 -690 W=1 -700 PRINT "COMPUTER TAKES";N;"AND WINS." -710 RETURN -720 P=Q-C*INT(Q/C) -730 IF P>=A THEN 750 -740 P=A -750 IF P<=B THEN 770 -760 P=B -770 N=N-P -780 PRINT "COMPUTER TAKES";P;"AND LEAVES";N -790 W=0 -800 RETURN -810 PRINT:PRINT "YOUR MOVE "; -820 INPUT P -830 IF P<>0 THEN 870 -840 PRINT "I TOLD YOU NOT TO USE ZERO! COMPUTER WINS BY FORFEIT." -850 W=1 -860 RETURN -870 IF P<>INT(P) THEN 920 -880 IF P>=A THEN 910 -890 IF P=N THEN 960 -900 GOTO 920 -910 IF P<=B THEN 940 -920 PRINT "ILLEGAL MOVE, REENTER IT "; -930 GOTO 820 -940 N=N-P -950 IF N<>0 THEN 1030 -960 IF M=1 THEN 1000 -970 PRINT "TOUGH LUCK, YOU LOSE." -980 W=1 -990 RETURN -1000 PRINT "CONGRATULATIONS, YOU WIN." -1010 W=1 -1020 RETURN -1030 IF N>=0 THEN 1060 -1040 N=N+P -1050 GOTO 920 -1060 W=0 -1070 RETURN -1080 END diff --git a/bwbtest/GAMES/battle.INP b/bwbtest/GAMES/battle.INP deleted file mode 100644 index 890e77e..0000000 --- a/bwbtest/GAMES/battle.INP +++ /dev/null @@ -1,37 +0,0 @@ -1,1 -1,2 -1,3 -1,4 -1,5 -1,6 -2,1 -2,2 -2,3 -2,4 -2,5 -2,6 -3,1 -3,2 -3,3 -3,4 -3,5 -3,6 -4,1 -4,2 -4,3 -4,4 -4,5 -4,6 -5,1 -5,2 -5,3 -5,4 -5,5 -5,6 -6,1 -6,2 -6,3 -6,4 -6,5 -6,6 --1,-1 diff --git a/bwbtest/GAMES/battle.bas b/bwbtest/GAMES/battle.bas deleted file mode 100644 index 262dfbb..0000000 --- a/bwbtest/GAMES/battle.bas +++ /dev/null @@ -1,197 +0,0 @@ -5 PRINT TAB(33);"BATTLE" -7 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -10 REM -- BATTLE WRITTEN BY RAY WESTERGARD 10/70 -20 REM COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF. -30 REM PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY -40 DIM FF(6,6),HH(6,6),AA(4),BB(4),CC(6),LL(4) -50 FOR X=1 TO 6 -51 FOR Y=1 TO 6 -52 FF(X,Y)=0 -53 NEXT Y -54 NEXT X -60 FOR I=1 TO 3 -70 N=4-I -80 FOR J=1 TO 2 -90 A=INT(6*RND(1)+1) -100 B=INT(6*RND(1)+1) -110 D=INT(4*RND(1)+1) -120 IF FF(A,B)>0 THEN 90 -130 M=0 -140 ON D GOTO 150,340,550,740 -150 BB(1)=B -160 BB(2)=7:BB(3)=7 -170 FOR K=1 TO N -180 IF M>1 THEN 240 -190 IF BB(K)=6 THEN 230 -200 IF FF(A,BB(K)+1)>0 THEN 230 -210 BB(K+1)=BB(K)+1 -220 GOTO 280 -230 M=2 -240 IF BB(1)0 THEN 90 -270 BB(K+1)=Z-1 -280 NEXT K -290 FF(A,B)=9-2*I-J -300 FOR K=1 TO N -310 FF(A,BB(K+1))=FF(A,B) -320 NEXT K -330 GOTO 990 -340 AA(1)=A -350 BB(1)=B -360 AA(2)=0:AA(3)=0:BB(2)=0:BB(3)=0 -370 FOR K=1 TO N -380 IF M>1 THEN 460 -390 IF AA(K)=1 OR BB(K)=1 THEN 450 -400 IF FF(AA(K)-1,BB(K)-1)>0 THEN 450 -410 IF FF(AA(K)-1,BB(K))>0 AND FF(AA(K)-1,BB(K))=FF(AA(K),BB(K)-1) THEN 450 -420 AA(K+1)=AA(K)-1 -430 BB(K+1)=BB(K)-1 -440 GOTO 530 -450 M=2 -460 IF AA(1)>AA(2) AND AA(1)>AA(3) THEN Z1=AA(1) -462 IF AA(2)>AA(1) AND AA(2)>AA(3) THEN Z1=AA(2) -464 IF AA(3)>AA(1) AND AA(3)>AA(2) THEN Z1=AA(3) -470 IF BB(1)>BB(2) AND BB(1)>BB(3) THEN Z2=BB(1) -474 IF BB(2)>BB(1) AND BB(2)>BB(3) THEN Z2=BB(2) -476 IF BB(3)>BB(1) AND BB(3)>BB(2) THEN Z2=BB(3) -480 IF Z1=6 OR Z2=6 THEN 90 -490 IF FF(Z1+1,Z2+1)>0 THEN 90 -500 IF FF(Z1,Z2+1)>0 AND FF(Z1,Z2+1)=FF(Z1+1,Z2) THEN 90 -510 AA(K+1)=Z1+1 -520 BB(K+1)=Z2+1 -530 NEXT K -540 GOTO 950 -550 AA(1)=A -560 AA(2)=7:AA(3)=7 -570 FOR K=1 TO N -580 IF M>1 THEN 640 -590 IF AA(K)=6 THEN 630 -600 IF FF(AA(K)+1,B)>0 THEN 630 -610 AA(K+1)=AA(K)+1 -620 GOTO 680 -630 M=2 -640 IF AA(1)0 THEN 90 -670 AA(K+1)=Z-1 -680 NEXT K -690 FF(A,B)=9-2*I-J -700 FOR K=1 TO N -710 FF(AA(K+1),B)=FF(A,B) -720 NEXT K -730 GOTO 990 -740 AA(1)=A -750 BB(1)=B -760 AA(2)=7:AA(3)=7 -770 BB(2)=0:BB(3)=0 -780 FOR K=1 TO N -790 IF M>1 THEN 870 -800 IF AA(K)=6 OR BB(K)=1 THEN 860 -810 IF FF(AA(K)+1,BB(K)-1)>0 THEN 860 -820 IF FF(AA(K)+1,BB(K))>0 AND FF(AA(K)+1,BB(K))=FF(AA(K),BB(K)-1) THEN 860 -830 AA(K+1)=AA(K)+1 -840 BB(K+1)=BB(K)-1 -850 GOTO 940 -860 M=2 -870 IF AA(1)BB(2) AND BB(1)>BB(3) THEN Z2=BB(1) -882 IF BB(2)>BB(1) AND BB(2)>BB(3) THEN Z2=BB(2) -884 IF BB(3)>BB(1) AND BB(3)>BB(2) THEN Z2=BB(3) -890 IF Z1=1 OR Z2=6 THEN 90 -900 IF FF(Z1-1,Z2+1)>0 THEN 90 -910 IF FF(Z1,Z2+1)>0 AND FF(Z1,Z2+1)=FF(Z1-1,Z2) THEN 90 -920 AA(K+1)=Z1-1 -930 BB(K+1)=Z2+1 -940 NEXT K -950 FF(A,B)=9-2*I-J -960 FOR K=1 TO N -970 FF(AA(K+1),BB(K+1))=FF(A,B) -980 NEXT K -990 NEXT J -1000 NEXT I -1010 PRINT -1020 PRINT "THE FOLLOWING CODE OF THE BAD GUYS' FLEET DISPOSITION" -1030 PRINT "HAS BEEN CAPTURED BUT NOT DECODED:" -1040 PRINT -1050 FOR I=1 TO 6 -1051 FOR J=1 TO 6 -1052 HH(I,J)=FF(J,I) -1053 NEXT J -1054 NEXT I -1060 FOR I=1 TO 6 -1061 FOR J=1 TO 6 -1062 PRINT HH(I,J); -1063 NEXT J -1064 PRINT -1065 NEXT I -1070 PRINT -1080 PRINT "DE-CODE IT AND USE IT IF YOU CAN" -1090 PRINT "BUT KEEP THE DE-CODING METHOD A SECRET." -1100 PRINT -1110 FOR I=1 TO 6 -1111 FOR J=1 TO 6 -1112 HH(I,J)=0 -1113 NEXT J -1114 NEXT I -1120 FOR I=1 TO 3 -1121 LL(I)=0 -1122 NEXT I -1130 CC(1)=2:CC(2)=2 -1140 CC(3)=1:CC(4)=1 -1150 CC(5)=0:CC(6)=0 -1160 S=0:H=0 -1170 PRINT "START GAME" -1180 INPUT X,Y -1185 IF X < 0 AND Y < 0 THEN END -1190 IF X<1 OR X>6 OR INT(X)<>ABS(X) THEN 1210 -1200 IF Y>0 AND Y<7 AND INT(Y)=ABS(Y) THEN 1230 -1210 PRINT "INVALID INPUT. TRY AGAIN." -1220 GOTO 1180 -1230 R=7-Y -1240 C=X -1250 IF FF(R,C)>0 THEN 1290 -1260 S=S+1 -1270 PRINT "SPLASH! TRY AGAIN." -1280 GOTO 1180 -1290 IF CC(FF(R,C))<4 THEN 1340 -1300 PRINT "THERE USED TO BE A SHIP AT THAT POINT, BUT YOU SUNK IT." -1310 PRINT "SPLASH! TRY AGAIN." -1320 S=S+1 -1330 GOTO 1180 -1340 IF HH(R,C)>0 THEN 1420 -1350 H=H+1 -1360 HH(R,C)=FF(R,C) -1370 PRINT "A DIRECT HIT ON SHIP NUMBER";FF(R,C) -1380 CC(FF(R,C))=CC(FF(R,C))+1 -1390 IF CC(FF(R,C))>=4 THEN 1470 -1400 PRINT "TRY AGAIN." -1410 GOTO 1180 -1420 PRINT "YOU ALREADY PUT A HOLE IN SHIP NUMBER";FF(R,C); -1430 PRINT "AT THAT POINT." -1440 PRINT "SPLASH! TRY AGAIN." -1450 S=S+1 -1460 GOTO 1180 -1470 LL((INT(FF(R,C)-1)/2)+1)=LL((INT(FF(R,C)-1)/2)+1)+1 -1480 PRINT "AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS." -1490 PRINT "SO FAR, THE BAD GUYS HAVE LOST" -1500 PRINT LL(1);"DESTROYER(S),";LL(2);"CRUISER(S), AND"; -1510 PRINT LL(3);"AIRCRAFT CARRIER(S)." -1520 PRINT "YOUR CURRENT SPLASH/HIT RATIO IS";S/H -1530 IF (LL(1)+LL(2)+LL(3))<6 THEN 1180 -1540 PRINT -1550 PRINT "YOU HAVE TOTALLY WIPED OUT THE BAD GUYS' FLEET" -1560 PRINT "WITH A FINAL SPLASH/HIT RATIO OF";S/H -1570 IF S/H>0 THEN 1590 -1580 PRINT "CONGRATULATIONS -- A DIRECT HIT EVERY TIME." -1590 PRINT -1600 PRINT "****************************" -1610 PRINT -1620 GOTO 50 -1630 END diff --git a/bwbtest/GAMES/blackjck.INP b/bwbtest/GAMES/blackjck.INP deleted file mode 100644 index c4dcfac..0000000 --- a/bwbtest/GAMES/blackjck.INP +++ /dev/null @@ -1,7 +0,0 @@ -Y -1 -10 -H -S --1 - diff --git a/bwbtest/GAMES/blackjck.bas b/bwbtest/GAMES/blackjck.bas deleted file mode 100644 index ad6187b..0000000 --- a/bwbtest/GAMES/blackjck.bas +++ /dev/null @@ -1,322 +0,0 @@ -2 PRINT TAB(31);"BLACK JACK" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT:PRINT:PRINT -10 DEF FNA(Q)=Q+11*(Q>=22) -20 DIM PP(15,12),QQ(15),CC(52),DD(52),TT(8),SS(7),BB(15) -30 DIM RR(15) -40 REM--PP(I,J) IS THE JTH CARD IN HAND I, QQ(I) IS TOTAL OF HAND I -50 REM--C IS THE DECK BEING DEALT FROM, D IS THE DISCARD PILE, -60 REM--TT(I) IS THE TOTAL FOR PLAYER I, SS(I) IS THE TOTAL THIS HAND FOR -70 REM--PLAYER I, BB(I) IS TH BET FOR HAND I -80 REM--RR(I) IS THE LENGTH OF PP(I,*) -90 GOTO 1500 -100 REM--SUBROUTINE TO GET A CARD. RESULT IS PUT IN X. -110 IF C<51 THEN 230 -120 PRINT "RESHUFFLING" -130 FOR D=D TO 1 STEP -1 -140 C=C-1 -150 CC(C)=DD(D) -160 NEXT D -170 FOR C1=52 TO C STEP -1 -180 C2=INT(RND(1)*(C1-C+1))+C -190 C3=CC(C2) -200 CC(C2)=CC(C1) -210 CC(C1)=C3 -220 NEXT C1 -230 X=CC(C) -240 C=C+1 -250 RETURN -300 REM--SUBROUTINE TO EVALUATE HAND I. TOTAL IS PUT INTO -310 REM--QQ(I). TOTALS HAVE THE FOLLOWING MEANING: -320 REM-- 2-10...HARD 2-10 -330 REM-- 11-21...SOFT 11-21 -340 REM-- 22-32...HARD 11-21 -350 REM-- 33+....BUSTED -360 Q=0 -370 FOR Q2=1 TO RR(I) -380 X=PP(I,Q2) -390 GOSUB 500 -400 NEXT Q2 -410 QQ(I)=Q -420 RETURN -500 REM--SUBROUTINE TO ADD CARD X TO TOTAL Q. -510 X1=X: IF X1>10 THEN X1=10: REM SAME AS X1=10 MIN X -520 Q1=Q+X1 -530 IF Q>=11 THEN 590 -540 IF X>1 THEN 570 -550 Q=Q+11 -560 RETURN -570 Q=Q1-11*(Q1>=11) -580 RETURN -590 Q=Q1-(Q<=21 AND Q1>21) -600 IF Q<33 THEN 620 -610 Q=-1 -620 RETURN -700 REM--CARD PRINTING SUBROUTINE -710 REM D$ DEFINED ELSEWHERE -720 PRINT MID$(D$,3*X-2,3); -730 PRINT " "; -740 RETURN -750 REM--ALTERNATIVE PRINTING ROUTINE -760 PRINT " ";MID$(D$,3*X-1,2); -770 PRINT " "; -780 RETURN -800 REM--SUBROUTINE TO PLAY OUT A HAND. -810 REM--NO SPLITTING OR BLACKJACKS ALLOWED -820 H1=5 -830 GOSUB 1410 -840 H1=3 -850 ON H GOTO 950,930 -860 GOSUB 100 -870 BB(I)=BB(I)*2 -880 PRINT "RECEIVED A"; -890 GOSUB 700 -900 GOSUB 1100 -910 IF Q>0 THEN GOSUB 1300 -920 RETURN -930 GOSUB 1320 -940 RETURN -950 GOSUB 100 -960 PRINT "RECEIVED A"; -970 GOSUB 700 -980 GOSUB 1100 -990 IF Q<0 THEN 940 -1000 PRINT "HIT"; -1010 GOTO 830 -1100 REM--SUBROUTINE TO ADD A CARD TO ROW I -1110 RR(I)=RR(I)+1 -1120 PP(I,RR(I))=X -1130 Q=QQ(I) -1140 GOSUB 500 -1150 QQ(I)=Q -1160 IF Q>=0 THEN 1190 -1170 PRINT "...BUSTED" -1180 GOSUB 1200 -1190 RETURN -1200 REM--SUBROUTINE TO DISCARD ROW I -1210 IF RR(I)<>0 THEN 1230 -1220 RETURN -1230 D=D+1 -1240 DD(D)=PP(I,RR(I)) -1250 RR(I)=RR(I)-1 -1260 GOTO 1210 -1300 REM--PRINTS TOTAL OF HAND I -1310 PRINT -1320 AA=QQ(I): GOSUB 3400 -1325 PRINT "TOTAL IS";AA -1330 RETURN -1400 REM--SUBROUTINE TO READ REPLY -1410 REM I$ DEFINED ELSEWHERE -1420 INPUT H$: H$=LEFT$(H$,1) -1430 FOR H=1 TO H1 STEP 2 -1440 IF H$=MID$(I$,H,1) THEN 1480 -1450 NEXT H -1460 PRINT "TYPE ";MID$(I$,1,H1-1);" OR ";MID$(I$,H1,2);" PLEASE"; -1470 GOTO 1420 -1480 H=(H+1)/2 -1490 RETURN -1500 REM--PROGRAM STARTS HERE -1510 REM--INITIALIZE -1520 D$="N A 2 3 4 5 6 7N 8 9 10 J Q K" -1530 I$="H,S,D,/," -1540 FOR I=1 TO 13 -1550 FOR J=4*I-3 TO 4*I -1560 DD(J)=I -1570 NEXT J -1580 NEXT I -1590 D=52 -1600 C=53 -1610 PRINT "DO YOU WANT INSTRUCTIONS"; -1620 INPUT H$ -1630 IF LEFT$(H$,1)="N" OR LEFT$(H$,1)="n" THEN 1760 -1640 PRINT "THIS IS THE GAME OF 21. AS MANY AS 7 PLAYERS MAY PLAY THE" -1650 PRINT "GAME. ON EACH DEAL, BETS WILL BE ASKED FOR, AND THE" -1660 PRINT "PLAYERS' BETS SHOULD BE TYPED IN. THE CARDS WILL THEN BE" -1670 PRINT "DEALT, AND EACH PLAYER IN TURN PLAYS HIS HAND. THE" -1680 PRINT "FIRST RESPONSE SHOULD BE EITHER 'D', INDICATING THAT THE" -1690 PRINT "PLAYER IS DOUBLING DOWN, 'S', INDICATING THAT HE IS" -1700 PRINT "STANDING, 'H', INDICATING HE WANTS ANOTHER CARD, OR '/'," -1710 PRINT "INDICATING THAT HE WANTS TO SPLIT HIS CARDS. AFTER THE" -1720 PRINT "INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE 'S' OR" -1730 PRINT "'H', UNLESS THE CARDS WERE SPLIT, IN WHICH CASE DOUBLING" -1740 PRINT "DOWN IS AGAIN PERMITTED. IN ORDER TO COLLECT FOR" -1750 PRINT "BLACKJACK, THE INITIAL RESPONSE SHOULD BE 'S'." -1760 PRINT "NUMBER OF PLAYERS"; -1770 INPUT N -1775 PRINT -1780 IF N<1 OR N>7 OR N>INT(N) THEN 1760 -1790 FOR I=1 TO 8: TT(I)=0: NEXT I -1800 D1=N+1 -1810 IF 2*D1+C>=52 THEN GOSUB 120 -1820 IF C=2 THEN C=C-1 -1830 FOR I=1 TO N: Z(I)=0: NEXT I -1840 FOR I=1 TO 15: BB(I)=0: NEXT I -1850 FOR I=1 TO 15: QQ(I)=0: NEXT I -1860 FOR I=1 TO 7: SS(I)=0: NEXT I -1870 FOR I=1 TO 15: RR(I)=0: NEXT I -1880 PRINT "BETS:" -1890 FOR I=1 TO N: PRINT "#";I;: INPUT Z(I): NEXT I -1900 FOR I=1 TO N -1905 IF Z(I) = -1 THEN END -1910 IF Z(I)<=0 OR Z(I)>500 THEN 1880 -1920 BB(I)=Z(I) -1930 NEXT I -1940 PRINT "PLAYER"; -1950 FOR I=1 TO N -1960 PRINT I;" "; -1970 NEXT I -1980 PRINT "DEALER" -1990 FOR J=1 TO 2 -2000 PRINT TAB(5); -2010 FOR I=1 TO D1 -2020 GOSUB 100 -2030 PP(I,J)=X -2040 IF J=1 OR I<=N THEN GOSUB 750 -2050 NEXT I -2060 PRINT -2070 NEXT J -2080 FOR I=1 TO D1 -2090 RR(I)=2 -2100 NEXT I -2110 REM--TEST FOR INSURANCE -2120 IF PP(D1,1)>1 THEN 2240 -2130 PRINT "ANY INSURANCE"; -2140 INPUT H$ -2150 IF LEFT$(H$,1)<>"Y" THEN 2240 -2160 PRINT "INSURANCE BETS" -2170 FOR I=1 TO N: PRINT "#";I;: INPUT Z(I): NEXT I -2180 FOR I=1 TO N -2190 IF Z(I)<0 OR Z(I)>BB(I)/2 THEN 2160 -2200 NEXT I -2210 FOR I=1 TO N -2220 SS(I)=Z(I)*(3*(-(PP(D1,2)>=10))-1) -2230 NEXT I -2240 REM--TEST FOR DEALER BLACKJACK -2250 L1=1: L2=1 -2252 IF PP(D1,1)=1 AND PP(D1,2)>9 THEN L1=0: L2=0 -2253 IF PP(D1,2)=1 AND PP(D1,1)>9 THEN L1=0: L2=0 -2254 IF L1<>0 OR L2<>0 THEN 2320 -2260 PRINT:PRINT "DEALER HAS A";MID$(D$,3*PP(D1,2)-2,3);" IN THE HOLE "; -2270 PRINT "FOR BLACKJACK" -2280 FOR I=1 TO D1 -2290 GOSUB 300 -2300 NEXT I -2310 GOTO 3140 -2320 REM--NO DEALER BLACKJACK -2330 IF PP(D1,1)>1 AND PP(D1,1)<10 THEN 2350 -2340 PRINT:PRINT "NO DEALER BLACKJACK." -2350 REM--NOW PLAY THE HANDS -2360 FOR I=1 TO N -2370 PRINT "PLAYER";I; -2380 H1=7 -2390 GOSUB 1410 -2400 ON H GOTO 2550,2410,2510,2600 -2410 REM--PLAYER WANTS TO STAND -2420 GOSUB 300 -2430 IF QQ(I)<>21 THEN 2490 -2440 PRINT "BLACKJACK" -2450 SS(I)=SS(I)+1.5*BB(I) -2460 BB(I)=0 -2470 GOSUB 1200 -2480 GOTO 2900 -2490 GOSUB 1320 -2500 GOTO 2900 -2510 REM--PLAYER WANTS TO DOUBLE DOWN -2520 GOSUB 300 -2530 GOSUB 860 -2540 GOTO 2900 -2550 REM--PLAYER WANTS TO BE HIT -2560 GOSUB 300 -2570 H1=3 -2580 GOSUB 950 -2590 GOTO 2900 -2600 REM--PLAYER WANTS TO SPLIT -2610 L1=PP(I,1): IF PP(I,1)>10 THEN L1=10 -2612 L2=PP(I,2): IF PP(I,2)>10 THEN L2=10 -2614 IF L1=L2 THEN 2640 -2620 PRINT "SPLITTING NOT ALLOWED." -2630 GOTO 2370 -2640 REM--PLAY OUT SPLIT -2650 I1=I+D1 -2660 RR(I1)=2 -2670 PP(I1,1)=PP(I,2) -2680 BB(I+D1)=BB(I) -2690 GOSUB 100 -2700 PRINT "FIRST HAND RECEIVES A"; -2710 GOSUB 700 -2720 PP(I,2)=X -2730 GOSUB 300 -2740 PRINT -2750 GOSUB 100 -2760 PRINT "SECOND HAND RECEIVES A"; -2770 I=I1 -2780 GOSUB 700 -2790 PP(I,2)=X -2800 GOSUB 300 -2810 PRINT -2820 I=I1-D1 -2830 IF PP(I,1)=1 THEN 2900 -2840 REM--NOW PLAY THE TWO HANDS -2850 PRINT "HAND";1-(I>D1); -2860 GOSUB 800 -2870 I=I+D1 -2880 IF I=I1 THEN 2850 -2890 I=I1-D1 -2900 NEXT I -2910 GOSUB 300 -2920 REM--TEST FOR PLAYING DEALER'S HAND -2930 FOR I=1 TO N -2940 IF RR(I)>0 OR RR(I+D1)>0 THEN 3010 -2950 NEXT I -2960 PRINT "DEALER HAD A"; -2970 X=PP(D1,2) -2980 GOSUB 700 -2990 PRINT " CONCEALED." -3000 GOTO 3140 -3010 PRINT "DEALER HAS A";MID$(D$,3*PP(D1,2)-2,3);" CONCEALED "; -3020 I=D1 -3030 AA=QQ(I): GOSUB 3400 -3035 PRINT "FOR A TOTAL OF";AA -3040 IF AA>16 THEN 3130 -3050 PRINT "DRAWS"; -3060 GOSUB 100 -3070 GOSUB 750 -3080 GOSUB 1100 -3090 AA=Q: GOSUB 3400 -3095 IF Q>0 AND AA<17 THEN 3060 -3100 QQ(I)=Q-(Q<0)/2 -3110 IF Q<0 THEN 3140 -3120 AA=Q: GOSUB 3400 -3125 PRINT "---TOTAL IS";AA -3130 PRINT -3140 REM--TALLY THE RESULT -3150 REM -3160 Z$="LOSES PUSHES WINS " -3165 PRINT -3170 FOR I=1 TO N -3180 AA=QQ(I): GOSUB 3400 -3182 AB=QQ(I+D1): GOSUB 3410 -3184 AC=QQ(D1): GOSUB 3420 -3186 SS(I)=SS(I)+BB(I)*SGN(AA-AC)+BB(I+D1)*SGN(AB-AC) -3188 BB(I+D1)=0 -3200 PRINT "PLAYER";I; -3210 PRINT MID$(Z$,SGN(SS(I))*6+7,6);" "; -3220 IF SS(I)<>0 THEN 3250 -3230 PRINT " "; -3240 GOTO 3260 -3250 PRINT ABS(SS(I)); -3260 TT(I)=TT(I)+SS(I) -3270 PRINT "TOTAL=";TT(I) -3280 GOSUB 1200 -3290 TT(D1)=TT(D1)-SS(I) -3300 I=I+D1 -3310 GOSUB 1200 -3320 I=I-D1 -3330 NEXT I -3340 PRINT "DEALER'S TOTAL=";TT(D1) -3345 PRINT -3350 GOSUB 1200 -3360 GOTO 1810 -3400 AA=AA+11*(AA>=22): RETURN -3410 AB=AB+11*(AB>=22): RETURN -3420 AC=AC+11*(AC>=22): RETURN diff --git a/bwbtest/GAMES/bombard.bas b/bwbtest/GAMES/bombard.bas deleted file mode 100644 index 3d2004e..0000000 --- a/bwbtest/GAMES/bombard.bas +++ /dev/null @@ -1,93 +0,0 @@ -10 PRINT TAB(33);"BOMBARDMENT" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU" -110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED." -120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST." -130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS." -135 PRINT -140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE" -150 PRINT "OUTPOSTS OF THE COMPUTER. IT WILL DO THE SAME TO YOU." -160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS" -170 PRINT "FIRST IS THE WINNER." -180 PRINT -190 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!" -200 PRINT -210 PRINT "TEAR OFF MATRIX AND USE IT TO CHECK OFF THE NUMBERS." -220 FOR R=1 TO 5: PRINT: NEXT R -260 DIM M(100) -270 FOR R=1 TO 5 -280 I=(R-1)*5+1 -290 PRINT I,I+1,I+2,I+3,I+4 -300 NEXT R -350 FOR R=1 TO 10: PRINT: NEXT R -380 C=INT(RND(1)*25)+1 -390 D=INT(RND(1)*25)+1 -400 E=INT(RND(1)*25)+1 -410 F=INT(RND(1)*25)+1 -420 IF C=D THEN 390 -430 IF C=E THEN 400 -440 IF C=F THEN 410 -450 IF D=E THEN 400 -460 IF D=F THEN 410 -470 IF E=F THEN 410 -480 PRINT "WHAT ARE YOUR FOUR POSITIONS"; -490 INPUT G,H,K,L -495 PRINT -500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSLE"; -510 INPUT Y -520 IF Y=C THEN 710 -530 IF Y=D THEN 710 -540 IF Y=E THEN 710 -550 IF Y=F THEN 710 -560 GOTO 630 -570 M=INT(RND(1)*25)+1 -575 GOTO 1160 -580 IF X=G THEN 920 -590 IF X=H THEN 920 -600 IF X=L THEN 920 -610 IF X=K THEN 920 -620 GOTO 670 -630 PRINT "HA, HA YOU MISSED. MY TURN NOW:" -640 PRINT: PRINT: GOTO 570 -670 PRINT "I MISSED YOU, YOU DIRTY RAT. I PICKED"; M; ". YOUR TURN:" -680 PRINT: PRINT: GOTO 500 -710 Q=Q+1 -720 IF Q=4 THEN 890 -730 PRINT "YOU GOT ONE OF MY OUTPOSTS!" -740 IF Q=1 THEN 770 -750 IF Q=2 THEN 810 -760 IF Q=3 THEN 850 -770 PRINT "ONE DOWN, THREE TO GO." -780 PRINT: PRINT: GOTO 570 -810 PRINT "TWO DOWN, TWO TO GO." -820 PRINT: PRINT: GOTO 570 -850 PRINT "THREE DOWN, ONE TO GO." -860 PRINT: PRINT: GOTO 570 -890 PRINT "YOU GOT ME, I'M GOING FAST. BUT I'LL GET YOU WHEN" -900 PRINT "MY TRANSISTO&S RECUP%RA*E!" -910 GOTO 1235 -920 Z=Z+1 -930 IF Z=4 THEN 1110 -940 PRINT "I GOT YOU. IT WON'T BE LONG NOW. POST";X;"WAS HIT." -950 IF Z=1 THEN 990 -960 IF Z=2 THEN 1030 -970 IF Z=3 THEN 1070 -990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT." -1000 PRINT: PRINT: GOTO 500 -1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT." -1040 PRINT: PRINT: GOTO 500 -1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT." -1080 PRINT: PRINT: GOTO 500 -1110 PRINT "YOU'RE DEAD. YOUR LAST OUTPOST WAS AT";X;". HA, HA, HA." -1120 PRINT "BETTER LUCK NEXT TIME." -1150 GOTO 1235 -1160 P=P+1 -1170 N=P-1 -1180 FOR T=1 TO N -1190 IF M=M(T) THEN 570 -1200 NEXT T -1210 X=M -1220 M(P)=M -1230 GOTO 580 -1235 END diff --git a/bwbtest/GAMES/bombsawy.bas b/bwbtest/GAMES/bombsawy.bas deleted file mode 100644 index 7459580..0000000 --- a/bwbtest/GAMES/bombsawy.bas +++ /dev/null @@ -1,65 +0,0 @@ -8 PRINT "YOU ARE A PILOT IN A WORLD WAR II BOMBER." -10 INPUT "WHAT SIDE -- ITALY(1), ALLIES(2), JAPAN(3), GERMANY(4)";A -20 IF A>0 AND A<5 THEN 25 -22 PRINT "TRY AGAIN..." : GOTO 10 -25 ON A GOTO 30, 110, 200, 220 -30 INPUT "YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRICA(3)";B -40 IF B>0 AND B<4 THEN 45 -42 PRINT "TRY AGAIN..." : GOTO 30 -45 PRINT : ON B GOTO 50, 80,90 -50 PRINT "SHOULD BE EASY -- YOU'RE FLYING A NAZI-MADE PLANE." -60 GOTO 280 -80 PRINT "BE CAREFUL!!!" : GOTO 280 -90 PRINT "YOU'RE GOING FOR THE OIL, EH?" : GOTO 280 -110 INPUT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";G -120 IF G>0 AND G<5 THEN 125 -122 PRINT "TRY AGAIN..." : GOTO 110 -125 PRINT : ON G GOTO 130, 150, 170, 190 -130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI." : GOTO 280 -150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA." : GOTO 280 -170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA." : GOTO 280 -190 PRINT "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR." -195 GOTO 280 -200 PRINT "YOU'RE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGTON." -205 INPUT "YOUR FIRST KAMIKAZE MISSION(Y OR N)";F$ -207 IF F$="N" THEN S=0 : GOTO 358 -210 PRINT : IF RND(1)>.65 THEN 325 -215 GOTO 380 -220 PRINT "A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1)," -230 INPUT "ENGLAND(2), OR FRANCE(3)";M : IF M>0 AND M<4 THEN 235 -232 PRINT "TRY AGAIN..." : GOTO 220 -235 PRINT : ON M GOTO 250, 260, 270 -250 PRINT "YOU'RE NEARING STALINGRAD." : GOTO 280 -260 PRINT "NEARING LONDON. BE CAREFUL, THEY'VE GOT RADAR." : GOTO 280 -270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS." -280 PRINT -285 INPUT "HOW MANY MISSIONS HAVE YOU FLOWN";D -290 IF D<160 THEN 300 -292 PRINT "MISSIONS, NOT MILES..." -295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS." -297 PRINT "NOW THEN, "; : GOTO 285 -300 PRINT:IF D<100 THEN 310 -305 PRINT "THAT'S PUSHING THE ODDS!" : GOTO 320 -310 IF D<25 THEN PRINT "FRESH OUT OF TRAINING, EH?" -320 PRINT : IF D<160*RND(1) THEN 330 -325 PRINT "DIRECT HIT!!!! "; INT(100*RND(1)); "KILLED." -327 PRINT "MISSION SUCCESSFUL." : GOTO 390 -330 PRINT "MISSED TARGET BY"; INT(2+30*RND(1)); "MILES!" -335 PRINT "NOW YOU'RE REALLY IN FOR IT !!" : PRINT -340 INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";R -345 IF R>0 AND R<4 THEN 350 -347 PRINT "TRY AGAIN..." : GOTO 340 -350 PRINT : T=0 : IF R=2 THEN 360 -355 INPUT "WHAT'S THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";S -357 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY...": GOTO 380 -358 PRINT -360 PRINT : IF R>1 THEN T=35 -365 IF S+T>100*RND(1) THEN 380 -370 PRINT "YOU MADE IT THROUGH TREMENDOUS FLAK!!" : GOTO 390 -380 PRINT "* * * * BOOM * * * *" -384 PRINT "YOU HAVE BEEN SHOT DOWN....." -386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR" -387 PRINT "LAST TRIBUTE..." -390 PRINT:PRINT:PRINT:INPUT "ANOTHER MISSION (Y OR N)";U$ -395 IF U$="Y" THEN 8 -400 PRINT "CHICKEN !!!" : PRINT : END diff --git a/bwbtest/GAMES/bounce.bas b/bwbtest/GAMES/bounce.bas deleted file mode 100644 index 7dd0450..0000000 --- a/bwbtest/GAMES/bounce.bas +++ /dev/null @@ -1,53 +0,0 @@ -10 PRINT TAB(33);"BOUNCE" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -90 DIM T(20) -100 PRINT "THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY" -110 PRINT "OF A BALL THROWN STRAIGHT UP, AND THE COEFFICIENT OF" -120 PRINT "ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION" -130 PRINT "COEFFICIENCY (LESS THAN 1)." -131 PRINT -132 PRINT "YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN" -133 PRINT "'STROBING' THE BALL'S FLIGHT (TRY .1 INITIALLY)." -134 PRINT -135 INPUT "TIME INCREMENT (SEC)";S2 -140 PRINT -150 INPUT "VELOCITY (FPS)";V -160 PRINT -170 INPUT "COEFFICIENT";C -180 PRINT -182 PRINT "FEET" -184 PRINT -186 S1=INT(70/(V/(16*S2))) -190 FOR I=1 TO S1 -200 T(I)=V*C^(I-1)/16 -210 NEXT I -220 FOR H=INT(-16*(V/32)^2+V^2/32+.5) TO 0 STEP -.5 -221 IF INT(H)<>H THEN 225 -222 PRINT H; -225 L=0 -230 FOR I=1 TO S1 -240 FOR T=0 TO T(I) STEP S2 -245 L=L+S2 -250 IF ABS(H-(.5*(-32)*T^2+V*C^(I-1)*T))>.25 THEN 270 -260 PRINT TAB(L/S2);"0"; -270 NEXT T -275 T=T(I+1)/2 -276 IF -16*T^2+V*C^(I-1)*T 0 THEN 5220 -5130 PRINT "GUTTER!!" -5220 IF B<>1 OR D<>10 THEN 5490 -5310 PRINT "STRIKE!!!!!" -5400 Q=3 -5490 IF B<>2 OR D<>10 THEN 5760 -5580 PRINT "SPARE!!!!" -5670 Q=2 -5760 IF B<>2 OR D>=10 THEN 6030 -5850 PRINT "ERROR!!!" -5940 Q=1 -6030 IF B<>1 OR D>=10 THEN 6210 -6120 PRINT "ROLL YOUR 2ND BALL" -6210 REM ARK STORAGE OF THE SCORES -6300 PRINT -6390 A(F*P,B)=D -6480 IF B=2 THEN 7020 -6570 B=2 -6660 M=D -6750 IF Q=3 THEN 6210 -6840 A(F*P,B)=D-M -6930 IF Q=0 THEN 2520 -7020 A(F*P,3)=Q -7110 NEXT P -7200 F=F+1 -7290 IF F<11 THEN 2070 -7295 PRINT "FRAMES" -7380 FOR I=1 TO 10 -7470 PRINT I; -7560 NEXT I -7650 PRINT -7740 FOR P=1 TO R -7830 FOR I=1 TO 3 -7920 FOR J=1 TO 10 -8010 PRINT A(J*P,I); -8100 NEXT J -8105 PRINT -8190 NEXT I -8280 PRINT -8370 NEXT P -8460 PRINT "DO YOU WANT ANOTHER GAME" -8550 INPUT A$ -8640 IF LEFT$(A$,1)="Y" THEN 2610 -8730 END diff --git a/bwbtest/GAMES/boxing.bas b/bwbtest/GAMES/boxing.bas deleted file mode 100644 index fc833df..0000000 --- a/bwbtest/GAMES/boxing.bas +++ /dev/null @@ -1,142 +0,0 @@ -1 PRINT TAB(33);"BOXING" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -4 PRINT "BOXING OLYMPIC STYLE (3 ROUNDS -- 2 OUT OF 3 WINS)" -5 J=0 -6 L=0 -8 PRINT -10 PRINT "WHAT IS YOUR OPPONENT'S NAME"; -20 INPUT J$ -30 PRINT "INPUT YOUR MAN'S NAME"; -40 INPUT L$ -50 PRINT "DIFFERENT PUNCHES ARE: (1) FULL SWING; (2) HOOK; (3) UPPERCUT; (4) JAB." -60 PRINT "WHAT IS YOUR MANS BEST"; -64 INPUT B -70 PRINT "WHAT IS HIS VULNERABILITY"; -80 INPUT D -90 B1=INT(4*RND(1)+1) -100 D1=INT(4*RND(1)+1) -110 IF B1=D1 THEN 90 -120 PRINT J$;"'S ADVANTAGE IS";B1;"AND VULNERABILITY IS SECRET.":PRINT -130 FOR R=1 TO 3 -140 IF J>= 2 THEN 1040 -150 IF L>=2 THEN 1060 -160 X=0 -170 Y=0 -180 PRINT "ROUND";R;"BEGINS..." -185 FOR R1= 1 TO 7 -190 I=INT(10*RND(1)+1) -200 IF I>5 THEN 600 -210 PRINT L$;"'S PUNCH"; -220 INPUT P -221 IF P=B THEN 225 -222 GOTO 230 -225 X=X+2 -230 IF P=1 THEN 340 -240 IF P=2 THEN 450 -250 IF P=3 THEN 520 -270 PRINT L$; " JABS AT ";J$; "'S HEAD "; -271 IF D1=4 THEN 290 -275 C=INT(8*RND(1)+1) -280 IF C<4 THEN 310 -290 X=X+3 -300 GOTO 950 -310 PRINT "IT'S BLOCKED." -330 GOTO 950 -340 PRINT L$; " SWINGS AND "; -341 IF D1=4 THEN 410 -345 X3=INT(30*RND(1)+1) -350 IF X3<10 THEN 410 -360 PRINT "HE MISSES "; -370 PRINT -375 IF X=1 THEN 950 -380 PRINT -390 PRINT -400 GOTO 300 -410 PRINT "HE CONNECTS!" -420 IF X>35 THEN 980 -425 X=X+15 -440 GOTO 300 -450 PRINT L$;" GIVES THE HOOK... "; -455 IF D1=2 THEN 480 -460 H1=INT(2*RND(1)+1) -470 IF H1=1 THEN 500 -475 PRINT "CONNECTS..." -480 X=X+7 -490 GOTO 300 -500 PRINT "BUT IT'S BLOCKED!!!!!!!!!!!!!" -510 GOTO 300 -520 PRINT L$; " TRIES AN UPPERCUT "; -530 IF D1=3 THEN 570 -540 D5=INT(100*RND(1)+1) -550 IF D5<51 THEN 570 -560 PRINT "AND IT'S BLOCKED (LUCKY BLOCK!)" -565 GOTO 300 -570 PRINT "AND HE CONNECTS!" -580 X=X+4 -590 GOTO 300 -600 J7=INT(4*RND(1)+1) -601 IF J7 =B1 THEN 605 -602 GOTO 610 -605 Y=Y+2 -610 IF J7=1 THEN 720 -620 IF J7=2 THEN 810 -630 IF J7 =3 THEN 860 -640 PRINT J$;" JABS AND "; -645 IF D=4 THEN 700 -650 Z4=INT(7*RND(1)+1) -655 IF Z4>4 THEN 690 -660 PRINT "IT'S BLOCKED!" -670 GOTO 300 -690 PRINT " BLOOD SPILLS !!!" -700 Y=Y+5 -710 GOTO 300 -720 PRINT J$; " TAKES A FULL SWING AND"; -730 IF D=1 THEN 770 -740 R6=INT(60*RND(1)+1) -745 IF R6 <30 THEN 770 -750 PRINT " IT'S BLOCKED!" -760 GOTO 300 -770 PRINT " POW!!!!! HE HITS HIM RIGHT IN THE FACE!" -780 IF Y>35 THEN 1010 -790 Y=Y+15 -800 GOTO 300 -810 PRINT J$;" GETS ";L$;" IN THE JAW (OUCH!)" -820 Y=Y+7 -830 PRINT "....AND AGAIN!" -835 Y=Y+5 -840 IF Y>35 THEN 1010 -850 PRINT -860 PRINT L$;" IS ATTACKED BY AN UPPERCUT (OH,OH)..." -865 IF D=3 THEN 890 -870 Q4=INT(200*RND(1)+1) -880 IF Q4>75 THEN 920 -890 PRINT "AND ";J$;" CONNECTS..." -900 Y=Y+8 -910 GOTO 300 -920 PRINT " BLOCKS AND HITS ";J$;" WITH A HOOK." -930 X=X+5 -940 GOTO 300 -950 NEXT R1 -951 IF X>Y THEN 955 -952 PRINT:PRINT J$; " WINS ROUND"; R -953 J=J+1 -954 GOTO 960 -955 PRINT:PRINT L$; " WINS ROUND"; R -956 L=L+1 -960 NEXT R -961 IF J>= 2 THEN 1040 -962 IF L>=2 THEN 1060 -980 PRINT J$; " IS KNOCKED COLD AND "; L$; " IS THE WINNER AND CHAMP!"; -1000 GOTO 1080 -1010 PRINT L$; " IS KNOCKED COLD AND "; J$; " IS THE WINNER AND CHAMP!"; -1030 GOTO 1000 -1040 PRINT J$; " WINS (NICE GOING,"; J$; ")." -1050 GOTO 1000 -1060 PRINT L$; " AMAZINGLY WINS!!" -1070 GOTO 1000 -1080 PRINT -1085 PRINT -1090 PRINT "AND NOW GOODBYE FROM THE OLYMPIC ARENA." -1100 PRINT -1110 END diff --git a/bwbtest/GAMES/bug.bas b/bwbtest/GAMES/bug.bas deleted file mode 100644 index ec12999..0000000 --- a/bwbtest/GAMES/bug.bas +++ /dev/null @@ -1,256 +0,0 @@ -10 PRINT TAB(34);"BUG" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -40 REM -50 A=0: B=0: H=0: L=0: N=0: P=0: Q=0: R=0: S=0: T=0: U=0: V=0: Y=0 -60 PRINT "THE GAME BUG" -70 PRINT "I HOPE YOU ENJOY THIS GAME." -80 PRINT -90 PRINT "DO YOU WANT INSTRUCTIONS"; -100 INPUT Z$ -110 IF Z$="NO" THEN 300 -120 PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH" -130 PRINT "MINE. EACH NUMBER STANDS FOR A PART OF THE BUG BODY." -140 PRINT "I WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU" -150 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART." -160 PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YOU." -170 PRINT "THE SAME WILL HAPPEN ON MY TURN." -180 PRINT "IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE" -190 PRINT "OPTION OF SEEING THE PICTURES OF THE BUGS." -200 PRINT "THE NUMBERS STAND FOR PARTS AS FOLLOWS:" -210 PRINT "NUMBER","PART","NUMBER OF PART NEEDED" -220 PRINT "1","BODY","1" -230 PRINT "2","NECK","1" -240 PRINT "3","HEAD","1" -250 PRINT "4","FEELERS","2" -260 PRINT "5","TAIL","1" -270 PRINT "6","LEGS","6" -280 PRINT -290 PRINT -300 IF Y>0 THEN 2480 -310 Z=INT(6*RND(1)+1) -320 C=1 -330 PRINT "YOU ROLLED A";Z -340 ON Z GOTO 350,430,540,650,760,870 -350 PRINT "1=BODY" -360 IF B=1 THEN 410 -370 PRINT "YOU NOW HAVE A BODY." -380 B=1 -390 C=0 -400 GOTO 970 -410 PRINT "YOU DO NOT NEED A BODY." -420 GOTO 970 -430 PRINT "2=NECK" -440 IF N=1 THEN 500 -450 IF B=0 THEN 520 -460 PRINT "YOU NOW HAVE A NECK." -470 N=1 -480 C=0 -490 GOTO 970 -500 PRINT "YOU DO NOT NEED A NECK." -510 GOTO 970 -520 PRINT "YOU DO NOT HAVE A BODY." -530 GOTO 970 -540 PRINT "3=HEAD" -550 IF N=0 THEN 610 -560 IF H=1 THEN 630 -570 PRINT "YOU NEEDED A HEAD." -580 H=1 -590 C=0 -600 GOTO 970 -610 PRINT "YOU DO NOT HAVE A NECK." -620 GOTO 970 -630 PRINT "YOU HAVE A HEAD." -640 GOTO 970 -650 PRINT "4=FEELERS" -660 IF H=0 THEN 740 -670 IF A=2 THEN 720 -680 PRINT "I NOW GIVE YOU A FEELER." -690 A=A+1 -700 C=0 -710 GOTO 970 -720 PRINT "YOU HAVE TWO FEELERS ALREADY." -730 GOTO 970 -740 PRINT "YOU DO NOT HAVE A HEAD." -750 GOTO 970 -760 PRINT "5=TAIL" -770 IF B=0 THEN 830 -780 IF T=1 THEN 850 -790 PRINT "I NOW GIVE YOU A TAIL." -800 T=T+1 -810 C=0 -820 GOTO 970 -830 PRINT "YOU DO NOT HAVE A BODY." -840 GOTO 970 -850 PRINT "YOU ALREADY HAVE A TAIL." -860 GOTO 970 -870 PRINT "6=LEG" -880 IF L=6 THEN 940 -890 IF B=0 THEN 960 -900 L=L+1 -910 C=0 -920 PRINT "YOU NOW HAVE";L;"LEGS." -930 GOTO 970 -940 PRINT "YOU HAVE 6 FEET ALREADY." -950 GOTO 970 -960 PRINT "YOU DO NOT HAVE A BODY." -970 X=INT(6*RND(1)+1) -971 PRINT -975 FOR DELAY=1 TO 2000:NEXT DELAY -980 PRINT "I ROLLED A";X -990 ON X GOTO 1000,1080,1190,1300,1410,1520 -1000 PRINT "1=BODY" -1010 IF P=1 THEN 1060 -1020 PRINT "I NOW HAVE A BODY." -1030 C=0 -1040 P=1 -1050 GOTO 1630 -1060 PRINT "I DO NOT NEED A BODY." -1070 GOTO 1630 -1080 PRINT "2=NECK" -1090 IF Q=1 THEN 1150 -1100 IF P=0 THEN 1170 -1110 PRINT "I NOW HAVE A NECK." -1120 Q=1 -1130 C=0 -1140 GOTO 1630 -1150 PRINT "I DO NOT NEED A NECK." -1160 GOTO 1630 -1170 PRINT "I DO NOT HAVE A BODY." -1180 GOTO 1630 -1190 PRINT "3=HEAD" -1200 IF Q=0 THEN 1260 -1210 IF R=1 THEN 1280 -1220 PRINT "I NEEDED A HEAD." -1230 R=1 -1240 C=0 -1250 GOTO 1630 -1260 PRINT "I DO NOT HAVE A NECK." -1270 GOTO 1630 -1280 PRINT "I DO NOT NEED A HEAD." -1290 GOTO 1630 -1300 PRINT "4=FEELERS" -1310 IF R=0 THEN 1390 -1320 IF S=2 THEN 1370 -1330 PRINT "I GET A FEELER." -1340 S=S+1 -1350 C=0 -1360 GOTO 1630 -1370 PRINT "I HAVE 2 FEELERS ALREADY." -1380 GOTO 1630 -1390 PRINT "I DO NOT HAVE A HEAD." -1400 GOTO 1630 -1410 PRINT "5=TAIL" -1420 IF P=0 THEN 1480 -1430 IF U=1 THEN 1500 -1440 PRINT "I NOW HAVE A TAIL." -1450 U=1 -1460 C=0 -1470 GOTO 1630 -1480 PRINT "I DO NOT HAVE A BODY." -1490 GOTO 1630 -1500 PRINT "I DO NOT NEED A TAIL." -1510 GOTO 1630 -1520 PRINT "6=LEGS" -1530 IF V=6 THEN 1590 -1540 IF P=0 THEN 1610 -1550 V=V+1 -1560 C=0 -1570 PRINT "I NOW HAVE";V;"LEGS." -1580 GOTO 1630 -1590 PRINT,"I HAVE 6 FEET." -1600 GOTO 1630 -1610 PRINT "I DO NOT HAVE A BODY." -1620 GOTO 1630 -1630 IF A=2 AND T=1 AND L=6 THEN 1650 -1640 GOTO 1670 -1650 PRINT "YOUR BUG IS FINISHED." -1660 Y=Y+1 -1670 IF S=2 AND P=1 AND V=6 THEN 1690 -1680 GOTO 1710 -1690 PRINT "MY BUG IS FINISHED." -1700 Y=Y+2 -1710 IF C=1 THEN 300 -1720 PRINT "DO YOU WANT THE PICTURES"; -1730 INPUT Z$ -1740 IF Z$="NO" THEN 300 -1750 PRINT "*****YOUR BUG*****" -1760 PRINT -1770 PRINT -1780 IF A=0 THEN 1860 -1790 FOR Z=1 TO 4 -1800 FOR X=1 TO A -1810 PRINT TAB(10); -1820 PRINT "A "; -1830 NEXT X -1840 PRINT -1850 NEXT Z -1860 IF H=0 THEN 1880 -1870 GOSUB 2470 -1880 IF N=0 THEN 1920 -1890 FOR Z=1 TO 2 -1900 PRINT " N N" -1910 NEXT Z -1920 IF B=0 THEN 2000 -1930 PRINT " BBBBBBBBBBBB" -1940 FOR Z=1 TO 2 -1950 PRINT " B B" -1960 NEXT Z -1970 IF T<>1 THEN 1990 -1980 PRINT "TTTTTB B" -1990 PRINT " BBBBBBBBBBBB" -2000 IF L=0 THEN 2080 -2010 FOR Z=1 TO 2 -2020 PRINT TAB(5); -2030 FOR X=1 TO L -2040 PRINT " L"; -2050 NEXT X -2060 PRINT -2070 NEXT Z -2080 FOR Z=1 TO 4 -2090 PRINT -2100 NEXT Z -2110 PRINT "*****MY BUG*****" -2120 PRINT -2130 PRINT -2140 PRINT -2150 IF S=0 THEN 2230 -2160 FOR Z=1 TO 4 -2170 PRINT TAB(10); -2180 FOR X=1 TO S -2190 PRINT "F "; -2200 NEXT X -2210 PRINT -2220 NEXT Z -2230 IF R<>1 THEN 2250 -2240 GOSUB 2470 -2250 IF Q=0 THEN 2280 -2260 PRINT " N N" -2270 PRINT " N N" -2280 IF P=0 THEN 2360 -2290 PRINT " BBBBBBBBBBBB" -2300 FOR Z=1 TO 2 -2310 PRINT " B B" -2320 NEXT Z -2330 IF U<>1 THEN 2350 -2340 PRINT "TTTTTB B" -2350 PRINT " BBBBBBBBBBBB" -2360 IF V=0 THEN 2450 -2370 FOR Z=1 TO 2 -2380 PRINT TAB(5); -2390 FOR X=1 TO V -2400 PRINT " L"; -2410 NEXT X -2420 PRINT -2430 NEXT Z -2450 IF Y<>0 THEN 2540 -2460 GOTO 300 -2470 PRINT " HHHHHHH" -2480 PRINT " H H" -2490 PRINT " H O O H" -2500 PRINT " H H" -2510 PRINT " H V H" -2520 PRINT " HHHHHHH" -2530 RETURN -2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON!!" -2550 END diff --git a/bwbtest/GAMES/bullfght.bas b/bwbtest/GAMES/bullfght.bas deleted file mode 100644 index 395ab76..0000000 --- a/bwbtest/GAMES/bullfght.bas +++ /dev/null @@ -1,193 +0,0 @@ -10 PRINT TAB(34);"BULL" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 DEF FNA(K)=INT(RND(1)*2+1) -200 PRINT:PRINT:PRINT -202 L=1 -205 PRINT "DO YOU WANT INSTRUCTIONS"; -206 INPUT Z$ -207 IF Z$="NO" THEN 400 -210 PRINT "HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS." -220 PRINT "HERE IS YOUR BIG CHANCE TO KILL A BULL." -230 PRINT -240 PRINT "ON EACH PASS OF THE BULL, YOU MAY TRY" -250 PRINT "0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)" -260 PRINT "1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE" -270 PRINT "2 - ORDINARY SWIRL OF THE CAPE." -280 PRINT -290 PRINT "INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL" -300 PRINT "ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)." -310 PRINT "BUT IF I WERE YOU," -320 PRINT "I WOULDN'T TRY IT BEFORE THE SEVENTH PASS." -330 PRINT -340 PRINT "THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE" -350 PRINT "(POSTHUMOUSLY IF NECESSARY)." -360 PRINT "THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE." -370 PRINT -380 PRINT "THE BETTER THE JOB THE PICADORES AND TOREADORES DO," -390 PRINT "THE BETTER YOUR CHANCES ARE." -400 PRINT -410 PRINT -420 D(5)=1 -430 D(4)=1 -450 DIM L$(5) -455 A=INT(RND(1)*5+1) -460 FOR I=1 TO 5 -463 READ L$(I) -467 NEXT I -470 DATA "SUPERB","GOOD","FAIR","POOR","AWFUL" -490 PRINT "YOU HAVE DRAWN A ";L$(A);" BULL." -500 IF A>4 THEN 530 -510 IF A<2 THEN 550 -520 GOTO 570 -530 PRINT "YOU'RE LUCKY." -540 GOTO 570 -550 PRINT "GOOD LUCK. YOU'LL NEED IT." -560 PRINT -570 PRINT -590 A$="PICADO" -595 B$="RES" -600 GOSUB 1610 -610 D(1)=C -630 A$="TOREAD" -635 B$="ORES" -640 GOSUB 1610 -650 D(2)=C -660 PRINT -670 PRINT -680 IF Z=1 THEN 1310 -690 D(3)=D(3)+1 -700 PRINT "PASS NUMBER";D(3) -710 IF D(3)<3 THEN 760 -720 PRINT "HERE COMES THE BULL. TRY FOR A KILL"; -730 GOSUB 1930 -735 IF Z1=1 THEN 1130 -740 PRINT "CAPE MOVE"; -750 GOTO 800 -760 PRINT "THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--" -770 PRINT "DO YOU WANT TO KILL THE BULL"; -780 GOSUB 1930 -785 IF Z1=1 THEN 1130 -790 PRINT "WHAT MOVE DO YOU MAKE WITH THE CAPE"; -800 INPUT E -810 IF E<>INT(ABS(E)) THEN 830 -820 IF E<3 THEN 850 -830 PRINT "DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER" -840 GOTO 800 -850 REM -860 IF E=0 THEN 920 -870 IF E=1 THEN 900 -880 M=.5 -890 GOTO 930 -900 M=2 -910 GOTO 930 -920 M=3 -930 L=L+M -940 F=(6-A+M/10)*RND(1)/((D(1)+D(2)+D(3)/10)*5) -950 IF F<.51 THEN 660 -960 PRINT "THE BULL HAS GORED YOU!" -970 ON FNA(0) GOTO 980,1010 -980 PRINT "YOU ARE DEAD." -990 D(4)=1.5 -1000 GOTO 1310 -1010 PRINT "YOU ARE STILL ALIVE.":PRINT -1020 PRINT "DO YOU RUN FROM THE RING"; -1030 GOSUB 1930 -1035 IF Z1=2 THEN 1070 -1040 PRINT "COWARD" -1050 D(4)=0 -1060 GOTO 1310 -1070 PRINT "YOU ARE BRAVE. STUPID, BUT BRAVE." -1080 ON FNA(0) GOTO 1090,1110 -1090 D(4)=2 -1100 GOTO 660 -1110 PRINT "YOU ARE GORED AGAIN!" -1120 GOTO 970 -1130 REM -1140 Z=1 -1150 PRINT:PRINT "IT IS THE MOMENT OF TRUTH.":PRINT -1155 PRINT "HOW DO YOU TRY TO KILL THE BULL"; -1160 INPUT H -1170 IF H=4 THEN 1230 -1180 IF H=5 THEN 1230 -1190 PRINT "YOU PANICKED. THE BULL GORED YOU." -1220 GOTO 970 -1230 K=(6-A)*10*RND(1)/((D(1)+D(2))*5*D(3)) -1240 IF J=4 THEN 1290 -1250 IF K>.2 THEN 960 -1260 PRINT "YOU KILLED THE BULL!" -1270 D(5)=2 -1280 GOTO 1320 -1290 IF K>.8 THEN 960 -1300 GOTO 1260 -1310 PRINT -1320 PRINT -1330 PRINT -1340 IF D(4)<>0 THEN 1390 -1350 PRINT "THE CROWD BOOS FOR TEN MINUTES. IF YOU EVER DARE TO SHOW" -1360 PRINT "YOUR FACE IN A RING AGAIN, THEY SWEAR THEY WILL KILL YOU--" -1370 PRINT "UNLES THE BULL DOES FIRST." -1380 GOTO 1580 -1390 DEF FND(Q)=(4.5+L/6-(D(1)+D(2))*2.5+4*D(4)+2*D(5)-D(3)^2/120-A) -1395 DEF FNC(Q)=FND(Q)*RND(1) -1400 IF D(4)<>2 THEN 1430 -1410 PRINT "THE CROWD CHEERS WILDLY!" -1420 GOTO 1450 -1430 IF D(5)<>2 THEN 1450 -1440 PRINT "THE CROWD CHEERS!":PRINT -1450 PRINT "THE CROWD AWARDS YOU" -1460 IF FNC(Q)<2.4 THEN 1570 -1470 IF FNC(Q)<4.9 THEN 1550 -1480 IF FNC(Q)<7.4 THEN 1520 -1500 PRINT "OLE! YOU ARE 'MUY HOMBRE'!! OLE! OLE!" -1510 GOTO 1580 -1520 PRINT "BOTH EARS OF THE BULL!" -1530 PRINT "OLE!" -1540 GOTO 1580 -1550 PRINT "ONE EAR OF THE BULL." -1560 GOTO 1580 -1570 PRINT "NOTHING AT ALL." -1580 PRINT -1590 PRINT "ADIOS":PRINT:PRINT:PRINT -1600 GOTO 2030 -1610 B=3/A*RND(1) -1620 IF B<.37 THEN 1740 -1630 IF B<.5 THEN 1720 -1640 IF B<.63 THEN 1700 -1650 IF B<.87 THEN 1680 -1660 C=.1 -1670 GOTO 1750 -1680 C=.2 -1690 GOTO 1750 -1700 C=.3 -1710 GOTO 1750 -1720 C=.4 -1730 GOTO 1750 -1740 C=.5 -1750 T=INT(10*C+.2) -1760 PRINT "THE ";A$;B$;" DID A ";L$(T);" JOB." -1770 IF 4>T THEN 1900 -1780 IF 5=T THEN 1870 -1790 ON FNA(K) GOTO 1830,1850 -1800 IF A$="TOREAD" THEN 1820 -1810 PRINT "ONE OF THE HORSES OF THE ";A$;B$;" WAS KILLED." -1820 ON FNA(K) GOTO 1830,1850 -1830 PRINT "ONE OF THE ";A$;B$;" WAS KILLED." -1840 GOTO 1900 -1850 PRINT "NO ";A$;B$;" WERE KILLED." -1860 GOTO 1900 -1870 IF A$="TOREAD" THEN 1890 -1880 PRINT FNA(K);"OF THE HORSES OF THE ";A$;B$;" KILLED." -1890 PRINT FNA(K);"OF THE ";A$;B$;" KILLED." -1900 PRINT -1910 RETURN -1920 REM -1930 INPUT A$ -1940 IF A$="YES" THEN 1990 -1950 IF A$="NO" THEN 2010 -1970 PRINT "INCORRECT ANSWER - - PLEASE TYPE 'YES' OR 'NO'." -1980 GOTO 1930 -1990 Z1=1 -2000 GOTO 2020 -2010 Z1=2 -2020 RETURN -2030 END diff --git a/bwbtest/GAMES/bullseye.bas b/bwbtest/GAMES/bullseye.bas deleted file mode 100644 index 0c28b68..0000000 --- a/bwbtest/GAMES/bullseye.bas +++ /dev/null @@ -1,37 +0,0 @@ -5 PRINT TAB(32);"BULLSEYE" -10 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -20 PRINT:PRINT:PRINT -30 PRINT "IN THIS GAME, UP TO 20 PLAYERS THROW DARTS AT A TARGET" -40 PRINT "WITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE IS" -50 PRINT "TO GET 200 POINTS.": PRINT -60 PRINT "THROW",TAB(20);"DESCRIPTION";TAB(45);"PROBABLE SCORE" -70 PRINT" 1";TAB(20);"FAST OVERARM";TAB(45);"BULLSEYE OR COMPLETE MISS" -80 PRINT" 2";TAB(20);"CONTROLLED OVERARM";TAB(45);"10, 20 OR 30 POINTS" -90 PRINT" 3";TAB(20);"UNDERARM";TAB(45);"ANYTHING":PRINT -100 DIM A$(20),S(20),W(10): M=0: R=0: FOR I=1 TO 20: S(I)=0: NEXT I -110 INPUT "HOW MANY PLAYERS";N: PRINT -120 FOR I=1 TO N -130 PRINT "NAME OF PLAYER #";I;:INPUT A$(I) -140 NEXT I -150 R=R+1: PRINT: PRINT "ROUND";R:PRINT "---------" -160 FOR I=1 TO N -170 PRINT: PRINT A$(I);"'S THROW";: INPUT T -180 IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3!": GOTO 170 -190 ON T GOTO 200, 210, 200 -200 P1=.65: P2=.55: P3=.5: P4=.5: GOTO 230 -210 P1=.99: P2=.77: P3=.43: P4=.01: GOTO 230 -220 P1=.95: P2=.75: P3=.45: P4=.05 -230 U=RND(1) -240 IF U>=P1 THEN PRINT "BULLSEYE!! 40 POINTS!":B=40: GOTO 290 -250 IF U>=P2 THEN PRINT "30-POINT ZONE!":B=30: GOTO 290 -260 IF U>=P3 THEN PRINT "20-POINT ZONE":B=20: GOTO 290 -270 IF U>=P4 THEN PRINT "WHEW! 10 POINTS.":B=10: GOTO 290 -280 PRINT "MISSED THE TARGET! TOO BAD.": B=0 -290 S(I)=S(I)+B: PRINT "TOTAL SCORE =";S(I): NEXT I -300 FOR I=1 TO N -310 IF S(I)>=200 THEN M=M+1: W(M)=I -320 NEXT I -330 IF M=0 THEN 150 -340 PRINT: PRINT "WE HAVE A WINNER!!": PRINT -350 FOR I=1 TO M: PRINT A$(W(I));" SCORED";S(W(I));"POINTS.": NEXT I -360 PRINT: PRINT "THANKS FOR THE GAME.": END diff --git a/bwbtest/GAMES/bunny.bas b/bwbtest/GAMES/bunny.bas deleted file mode 100644 index f089045..0000000 --- a/bwbtest/GAMES/bunny.bas +++ /dev/null @@ -1,41 +0,0 @@ -10 PRINT TAB(33);"BUNNY" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT: PRINT: PRINT -100 REM "BUNNY" FROM AHL'S 'BASIC COMPUTER GAMES' -110 REM -120 FOR I=0 TO 4: READ B(I): NEXT I -130 GOSUB 260 -140 L=64: REM ASCII LETTER CODE... -150 REM -160 PRINT -170 READ X: IF X<0 THEN 160 -171 IF X < 1 THEN X = 1 -175 IF X>128 THEN 240 -180 PRINT TAB(X);: READ Y -190 FOR I=X TO Y: J=I-5*INT(I/5) -200 PRINT CHR$(L+B(J)); -210 NEXT I -220 GOTO 170 -230 REM -240 GOSUB 260: GOTO 450 -250 REM -260 FOR I=1 TO 6: PRINT CHR$(10);: NEXT I -270 RETURN -280 REM -290 DATA 2,21,14,14,25 -300 DATA 1,2,-1,0,2,45,50,-1,0,5,43,52,-1,0,7,41,52,-1 -310 DATA 1,9,37,50,-1,2,11,36,50,-1,3,13,34,49,-1,4,14,32,48,-1 -320 DATA 5,15,31,47,-1,6,16,30,45,-1,7,17,29,44,-1,8,19,28,43,-1 -330 DATA 9,20,27,41,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,36,-1 -340 DATA 13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-1 -350 DATA 19,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1 -360 DATA 8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1 -370 DATA 4,12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1 -380 DATA 2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,32,34,34,-1 -390 DATA 14,17,19,25,28,31,35,35,-1,15,19,23,30,36,36,-1 -400 DATA 14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1 -410 DATA 12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1 -420 DATA 10,11,17,18,22,22,24,24,29,29,-1 -430 DATA 22,23,26,29,-1,27,29,-1,28,29,-1,4096 -440 REM -450 END diff --git a/bwbtest/GAMES/buzzword.bas b/bwbtest/GAMES/buzzword.bas deleted file mode 100644 index a787fcb..0000000 --- a/bwbtest/GAMES/buzzword.bas +++ /dev/null @@ -1,25 +0,0 @@ -10 PRINT TAB(26);"BUZZWORD GENERATOR" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -40 PRINT "THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN" -50 PRINT "'EDUCATOR-SPEAK'THAT YOU CAN WORK INTO REPORTS" -60 PRINT "AND SPEECHES. WHENEVER A QUESTION MARK IS PRINTED," -70 PRINT "TYPE A 'Y' FOR ANOTHER PHRASE OR 'N' TO QUIT." -80 PRINT:PRINT:PRINT "HERE'S THE FIRST PHRASE:" -90 DIM A$(40) -100 FOR I=1 TO 39 : READ A$(I) : NEXT I -110 PRINT A$(INT(13*RND(1)+1));" "; -120 PRINT A$(INT(13*RND(1)+14));" "; -130 PRINT A$(INT(13*RND(1)+27)) : PRINT -150 INPUT Y$ : IF Y$="Y" THEN 110 ELSE GOTO 999 -200 DATA "ABILITY","BASAL","BEHAVIORAL","CHILD-CENTERED" -210 DATA "DIFFERENTIATED","DISCOVERY","FLEXIBLE","HETEROGENEOUS" -220 DATA "HOMOGENEOUS","MANIPULATIVE","MODULAR","TAVISTOCK" -230 DATA "INDIVIDUALIZED","LEARNING","EVALUATIVE","OBJECTIVE" -240 DATA "COGNITIVE","ENRICHMENT","SCHEDULING","HUMANISTIC" -250 DATA "INTEGRATED","NON-GRADED","TRAINING","VERTICAL AGE" -260 DATA "MOTIVATIONAL","CREATIVE","GROUPING","MODIFICATION" -270 DATA "ACCOUNTABILITY","PROCESS","CORE CURRICULUM","ALGORITHM" -280 DATA "PERFORMANCE","REINFORCEMENT","OPEN CLASSROOM","RESOURCE" -290 DATA "STRUCTURE","FACILITY","ENVIRONMENT" -999 PRINT "COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT!":END diff --git a/bwbtest/GAMES/calendar.bas b/bwbtest/GAMES/calendar.bas deleted file mode 100644 index 674488e..0000000 --- a/bwbtest/GAMES/calendar.bas +++ /dev/null @@ -1,58 +0,0 @@ -10 PRINT TAB(32);"CALENDAR" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -100 REM VALUES FOR 1979 - SEE NOTES -110 DIM M(12) -120 FOR I=1 TO 6: PRINT CHR$(10);: NEXT I -130 D=1: REM 1979 STARTS ON MONDAY (0=SUN, -1=MON, -2=TUES...) -140 S=0 -150 REM READ DAYS OF EACH MONTH -160 FOR N=0 TO 12: READ M(N): NEXT N -170 REM -180 FOR N=1 TO 12 -190 PRINT: PRINT: S=S+M(N-1) -200 PRINT "**";S;TAB(7); -210 FOR I=1 TO 18: PRINT "*";: NEXT I -220 ON N GOTO 230,240,250,260,270,280,290,300,310,320,330,340 -230 PRINT " JANUARY ";: GOTO 350 -240 PRINT " FEBRUARY";: GOTO 350 -250 PRINT " MARCH ";: GOTO 350 -260 PRINT " APRIL ";: GOTO 350 -270 PRINT " MAY ";: GOTO 350 -280 PRINT " JUNE ";: GOTO 350 -290 PRINT " JULY ";: GOTO 350 -300 PRINT " AUGUST ";: GOTO 350 -310 PRINT "SEPTEMBER";: GOTO 350 -320 PRINT " OCTOBER ";: GOTO 350 -330 PRINT " NOVEMBER";: GOTO 350 -340 PRINT " DECEMBER"; -350 FOR I=1 TO 18: PRINT "*";: NEXT I -360 PRINT 365-S;"**"; -370 REM 366-S; ON LEAP YEARS -380 PRINT CHR$(10): PRINT " S M T W"; -390 PRINT " T F S" -400 PRINT -410 FOR I=1 TO 59: PRINT "*";: NEXT I -420 REM -430 FOR W=1 TO 6 -440 PRINT CHR$(10) -450 PRINT TAB(4) -460 REM -470 FOR G=1 TO 7 -480 D=D+1 -490 D2=D-S -500 IF D2>M(N) THEN 580 -510 IF D2>0 THEN PRINT D2; -520 PRINT TAB(4+8*G); -530 NEXT G -540 REM -550 IF D2=M(N) THEN 590 -560 NEXT W -570 REM -580 D=D-G -590 NEXT N -600 REM -610 FOR I=1 TO 6: PRINT CHR$(10);: NEXT I -620 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31 -630 REM 0,31,29, ..., ON LEAP YEARS -640 END diff --git a/bwbtest/GAMES/change.bas b/bwbtest/GAMES/change.bas deleted file mode 100644 index ac84db0..0000000 --- a/bwbtest/GAMES/change.bas +++ /dev/null @@ -1,51 +0,0 @@ -2 PRINT TAB(33);"CHANGE" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -5 PRINT:PRINT:PRINT -6 PRINT "I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE" -8 PRINT "THE CORRECT CHANGE FOR ITEMS COSTING UP TO $100." -9 PRINT:PRINT -10 PRINT "COST OF ITEM";:INPUT A:PRINT "AMOUNT OF PAYMENT";:INPUT P -20 C=P-A:M=C:IF C<>0 THEN 90 -25 PRINT "CORRECT AMOUNT, THANK YOU." -30 GOTO 400 -90 IF C>0 THEN 120 -95 PRINT "SORRY, YOU HAVE SHORT-CHANGED ME $";A-P -100 GOTO 10 -120 PRINT "YOUR CHANGE, $";C -130 D=INT(C/10) -140 IF D=0 THEN 155 -150 PRINT D;"TEN DOLLAR BILL(S)" -155 C=M-(D*10) -160 E=INT(C/5) -170 IF E=0 THEN 185 -180 PRINT E;"FIVE DOLLARS BILL(S)" -185 C=M-(D*10+E*5) -190 F=INT(C) -200 IF F=0 THEN 215 -210 PRINT F;"ONE DOLLAR BILL(S)" -215 C=M-(D*10+E*5+F) -220 C=C*100 -225 N=C -230 G=INT(C/50) -240 IF G=0 THEN 255 -250 PRINT G;"ONE HALF DOLLAR(S)" -255 C=N-(G*50) -260 H=INT(C/25) -270 IF H=0 THEN 285 -280 PRINT H;"QUARTER(S)" -285 C=N-(G*50+H*25) -290 I=INT(C/10) -300 IF I=0 THEN 315 -310 PRINT I;"DIME(S)" -315 C=N-(G*50+H*25+I*10) -320 J=INT(C/5) -330 IF J=0 THEN 345 -340 PRINT J;"NICKEL(S)" -345 C=N-(G*50+H*25+I*10+J*5) -350 K=INT(C+.5) -360 IF K=0 THEN 380 -370 PRINT K;"PENNY(S)" -380 PRINT "THANK YOU, COME AGAIN." -390 PRINT:PRINT -400 GOTO 10 -410 END diff --git a/bwbtest/GAMES/changes.txt b/bwbtest/GAMES/changes.txt deleted file mode 100644 index d5592c9..0000000 --- a/bwbtest/GAMES/changes.txt +++ /dev/null @@ -1,175 +0,0 @@ - 11111111112222222222333333333344444444445555555555666666666677777777778 -12345678901234567890123456789012345678901234567890123456789012345678901234567890 - -There were a small number of changes made to the programs in order to make them -runnable. These are apparently due to differences between original Microsoft -Basic and later versions (GW-BASIC, QBASIC). - -In all cases, the problem was that the program was taking advantage of a quirk -of original Microsoft basic, which didn't work with later versions. So the -GW-Basic/QBasic Modified sources are simply cleaner version of the originals, -and should be usable for other Basic dialects as well. - -<------------------------- THINGS THAT WERE FIXED -----------------------------> - -1. In "Sinewave" the statement: - -40 REMARKABLE .... - -Uses a trick that worked with many Basic interpreters that recognize keywords -wherever they appear, even in the middle of other words. This does not work in -GWBasic/QBasic. - -MYSTRING$ - -Are allowed, you would go crazy trying to chase down imbedded keywords. It -worked in neither GW-BASIC nor QBASIC. - -2. (various files) Spacing. - -As in example (1), it is not possible to have the statement: - -10IFC$="BARK"THENGOTO20 - -The keywords must not be run together with other keywords and variable names -(which was sometimes done to save memory space on early machines): - -10 IF C$="BARK" THEN GOTO 20 - -3. (varius files) Special characters. - -Occasionally, a special character (control character) appears in the programs. -These were REMed out. Special characters in ASCII are characters less than 32 in -value (space). - -8. In the program "hexapawn", the function fns appears before its definition, -which causes a problem with Qbasic. The lines 20 and 25 were swapped. - -9. In the program "hexapawn", line 511 uses an unterminated REM statement. Space -added. - -10. "Hexapawn" has an interesting board output routine that executes tab(10) -(line 1030) multiple times. On the original MS Basic (and other basics) tabbing -to a position that is behind or at the current position is a no-op. GW-Basic and -Qbasic actually throw another line and tabs to the position. This was fixed by -replacing: - -1030 PRINT TAB(10);MID$(P$,S((I-1)*3+J)+2,1); - -With: - -1015 PRINT TAB(10); -1020 FOR J=1 TO 3 -1030 PRINT MID$(P$,S((I-1)*3+J)+2,1); - -I.e., move the tab to print position to the outter loop, since it only need be -executed once. - -11. "hilo" makes the unwarranted assumption in line 180 that 100*rnd(1) will be -a number from 1 to 100. Actually, the number will be between 0 and 99, since -exact 0 and exact 1 will never be the result of rnd, and the fraction is -removed. Fixed by changing line 180 to: - -180 Y=INT(100*RND(1)+1) - -12. In "horserace", there is a really bazzare bit of code in lines 570 to 780 -where the value of N is used after a for n=..next loop, and apparently it -expects the value to be 8. In both IP Basic and Qbasic it isn't, but is instead -9, and this results in access to the uninitialized variable d(i) and a zero divide. - -Fixed this by adding the line: - -721 n = 8 - -13. In "salvo", line 1270, DEF FNA is executed twice, because the code loops -back to that point. On several basics this is not a nice trick, although the -original Microsoft Basic probably tolerated it. The solution was to move the -defines upwards toward the top. - -15. "bowling" does not format correctly on GW-Basic and QBasic. This is because -of the tab issue (see "hexapawn" above). The answer is to replace three existing -lines with the following ones: - -3780 PRINT: PRINT TAB(I+1); -4140 PRINT "+ "; -4320 PRINT "O "; - -16. In "awari", GW-Basic and QBasic don't apprecate the odd order of the "for" -statement at 230. This occurs because the Basic implementation is doing more -complete analysis of the Basic source while reading it, and it will get confused -if there aren't matching "next" statements for each "for" statement in the -statements following. The fix was to change the statement at 235 to: - -235 NEXT I - -Because all the line did was branch to a "NEXT I" statement. - -17. "checkers" has the "for" issue problem at 1340. The code was changed by -moving the "NEXT A" to each of the for loops on previous lines, based on the -fact that S(X,Y) is invariant in the included code. - -1340 X=R(3):Y=R(4):IF S(X,Y)=-1 THEN B=-2:FOR A=-2 TO 2 STEP 4:GOSUB 1370: NEXT A -1350 IF S(X,Y)=-2 THEN FOR A=-2 TO 2 STEP 4:FOR B=-2 TO 2 STEP 4:GOSUB 1370:NEXT B: NEXT A -1360 IF R(0)<>-99 THEN PRINT"TO"R(3);R(4);:R(0)=-99:GOTO 1240 - -18. In "qubic" (3d tic tac toe), the line 1560 attempts to run non-existant -program "menu" (and crashes/hangs GW-Basic/QBasic). Change this line to: - -1560 STOP - -19. In "qubic", the "lprint" statement is used to print out the playing board. -This is not useful unless you have a printer connected for DOS use, which is not -common with Windows users. These statements were changed to "print". - -20. "life", the program spills out endless printout, since neither GW-Basic nor -QBASIC appear to respond to control-C unless the program performs input. To fix -this, the following statement was added: - -637 INPUT "PRESS RETURN TO CONTINUE";A12 - -21. In "banner", the banner text is printed to the screen, then 75 lines of -blanks are printed to the screen. Unless your screen is more than 75 lines tall, -the program will just result in a blank screen, without apparent action. - -Banner was designed for continous print forms, like teletypes or old form feed -printers. The best use of it now would be to save the output to a file, which I -have left up to the users. - -22. In "animal", there were two "for-next" issues, lines 415 and 640. The -solution was to move the next statement to the next line. - -23. "bullfght", the lines 1390 and 1395 were swapped to remove definition order -issue. - -24. "poetry" loops forever, which locks up GW-Basic/QBasic. I added the -following line: - -237 INPUT "PRESS RETURN TO CONTINUE"; A12 - -You are free to change this to output a whole page before stopping, etc. - -25. "splat" has and error in referencing a non-existant line 540. Its wrong in -the original listing from the book, take a look. It does not appear to affect -the program run, which is probally why it exists. QBasic does not appreciate -gotos that go nowhere, so the line was replaced by: - -610 STOP: REM GOTO 540 - -26. In "stock", QBasic didn't like the lack of ";" between print items. This was -added. - -658 PRINT "YOU HAVE USED $";-C5;" MORE THAN YOU HAVE." - -<------------------------ THINGS THAT WEREN'T FIXED ---------------------------> - -1. "checkers" was seen making impossible moves, jumping a opposing player, but -leaving the original position still there (duplicated piece). - -2. "diamond" does not work quite correctly, I suspect because of the tab issue. - -3. "life2" does not match the printout in the book, which frankly does not make -much sense. It looks like the original relied on overprinting on a teletype. - -4. Animal does not work, giving incorrect printout. - -5. "life" works under GW-Basic, but not QBasic. \ No newline at end of file diff --git a/bwbtest/GAMES/checkers.bas b/bwbtest/GAMES/checkers.bas deleted file mode 100644 index c8450aa..0000000 --- a/bwbtest/GAMES/checkers.bas +++ /dev/null @@ -1,82 +0,0 @@ -5 PRINT TAB(32);"CHECKERS" -10 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -15 PRINT:PRINT:PRINT -20 PRINT "THIS IS THE GAME OF CHECKERS. THE COMPUTER IS X," -25 PRINT "AND YOU ARE O. THE COMPUTER WILL MOVE FIRST." -30 PRINT "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM." -35 PRINT "(0,0) IS THE LOWER LEFT CORNER" -40 PRINT "(0,7) IS THE UPPER LEFT CORNER" -45 PRINT "(7,0) IS THE LOWER RIGHT CORNER" -50 PRINT "(7,7) IS THE UPPER RIGHT CORNER" -55 PRINT "THE COMPUTER WILL TYPE '+TO' WHEN YOU HAVE ANOTHER" -60 PRINT "JUMP. TYPE TWO NEGATIVE NUMBERS IF YOU CANNOT JUMP." -65 PRINT:PRINT:PRINT -80 DIM R(4),S(7,7):G=-1:R(0)=-99 -90 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 -120 FOR X=0 TO 7:FOR Y=0 TO 7:READ J:IF J=15 THEN 180 -160 S(X,Y)=J:GOTO 200 -180 RESTORE:READ S(X,Y) -200 NEXT Y:NEXT X -230 FOR X=0 TO 7:FOR Y=0 TO 7:IF S(X,Y)>-1 THEN 350 -310 IF S(X,Y)=-1 THEN FOR A=-1 TO 1 STEP 2:B=G:GOSUB 650:NEXT A -330 IF S(X,Y)=-2 THEN FOR A=-1 TO 1 STEP 2:FOR B=-1 TO 1 STEP 2:GOSUB 650:NEXT B:NEXT A -350 NEXT Y:NEXT X:GOTO 1140 -650 U=X+A:V=Y+B:IF U<0 OR U>7 OR V<0 OR V>7 THEN 870 -740 IF S(U,V)=0 THEN GOSUB 910:GOTO 870 -770 IF S(U,V)<0 THEN 870 -790 U=U+A:V=V+B:IF U<0 OR V<0 OR U>7 OR V>7 THEN 870 -850 IF S(U,V)=0 THEN GOSUB 910 -870 RETURN -910 IF V=0 AND S(X,Y)=-1 THEN Q=Q+2 -920 IF ABS(Y-V)=2 THEN Q=Q+5 -960 IF Y=7 THEN Q=Q-2 -980 IF U=0 OR U=7 THEN Q=Q+1 -1030 FOR C=-1 TO 1 STEP 2:IF U+C<0 OR U+C>7 OR V+G<0 THEN 1080 -1035 IF S(U+C,V+G)<0 THEN Q=Q+1:GOTO 1080 -1040 IF U-C<0 OR U-C>7 OR V-G>7 THEN 1080 -1045 IF S(U+C,V+G)>0 AND(S(U-C,V-G)=0 OR(U-C=X AND V-G=Y)) THEN Q=Q-2 -1080 NEXT C:IF Q>R(0) THEN R(0)=Q:R(1)=X:R(2)=Y:R(3)=U:R(4)=V -1100 Q=0:RETURN -1140 IF R(0)=-99 THEN 1880 -1230 PRINT CHR$(30);"FROM";R(1);R(2);"TO";R(3);R(4);:R(0)=-99 -1240 IF R(4)=0 THEN S(R(3),R(4))=-2:GOTO 1420 -1250 S(R(3),R(4))=S(R(1),R(2)) -1310 S(R(1),R(2))=0:IF ABS(R(1)-R(3))<>2 THEN 1420 -1330 S((R(1)+R(3))/2,(R(2)+R(4))/2)=0 -1340 X=R(3):Y=R(4):IF S(X,Y)=-1 THEN B=-2:FOR A=-2 TO 2 STEP 4:GOSUB 1370: NEXT A -1350 IF S(X,Y)=-2 THEN FOR A=-2 TO 2 STEP 4:FOR B=-2 TO 2 STEP 4:GOSUB 1370:NEXT B: NEXT A -1360 IF R(0)<>-99 THEN PRINT "TO";R(3);R(4);:R(0)=-99:GOTO 1240 -1365 GOTO 1420 -1370 U=X+A:V=Y+B:IF U<0 OR U>7 OR V<0 OR V>7 THEN 1400 -1380 IF S(U,V)=0 AND S(X+A/2,Y+B/2)>0 THEN GOSUB 910 -1400 RETURN -1420 PRINT:PRINT:PRINT:FOR Y=7 TO 0 STEP-1:FOR X=0 TO 7:I=5*X:PRINT TAB(I); -1430 IF S(X,Y)=0 THEN PRINT"."; -1470 IF S(X,Y)=1 THEN PRINT"O"; -1490 IF S(X,Y)=-1 THEN PRINT"X"; -1510 IF S(X,Y)=-2 THEN PRINT"X*"; -1530 IF S(X,Y)=2 THEN PRINT"O*"; -1550 NEXT X:PRINT" ":PRINT:NEXT Y:PRINT -1552 FOR L=0 TO 7 -1554 FOR M=0 TO 7 -1556 IF S(L,M)=1 OR S(L,M)=2 THEN Z=1 -1558 IF S(L,M)=-1 OR S(L,M)=-2 THEN T=1 -1560 NEXT M -1562 NEXT L -1564 IF Z<>1 THEN 1885 -1566 IF T<>1 THEN 1880 -1570 Z=0: T=0 -1590 INPUT "FROM";E,H:X=E:Y=H:IF S(X,Y)<=0 THEN 1590 -1670 INPUT "TO";A,B:X=A:Y=B -1680 IF S(X,Y)=0 AND ABS(A-E)<=2 AND ABS(A-E)=ABS(B-H) THEN 1700 -1690 PRINT CHR$(7);CHR$(11);:GOTO 1670 -1700 I=46 -1750 S(A,B)=S(E,H):S(E,H)=0:IF ABS(E-A)<>2 THEN 1810 -1800 S((E+A)/2,(H+B)/2)=0 -1802 INPUT "+TO";A1,B1:IF A1<0 THEN 1810 -1804 IF S(A1,B1)<>0 OR ABS(A1-A)<>2 OR ABS(B1-B)<>2 THEN 1802 -1806 E=A:H=B:A=A1:B=B1:I=I+15:GOTO 1750 -1810 IF B=7 THEN S(A,B)=2 -1830 GOTO 230 -1880 PRINT: PRINT "YOU WIN.": END -1885 PRINT: PRINT "I WIN.": END diff --git a/bwbtest/GAMES/chemist.bas b/bwbtest/GAMES/chemist.bas deleted file mode 100644 index cbd8f1c..0000000 --- a/bwbtest/GAMES/chemist.bas +++ /dev/null @@ -1,27 +0,0 @@ -3 PRINT TAB(33);"CHEMIST" -6 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -8 PRINT:PRINT:PRINT -10 PRINT "THE FICTITIOUS CHECMICAL KRYPTOCYANIC ACID CAN ONLY BE" -20 PRINT "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACID." -30 PRINT "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE" -40 PRINT "AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST" -50 PRINT "DECIDE WHO MUCH WATER TO ADD FOR DILUTION. IF YOU MISS" -60 PRINT "YOU FACE THE CONSEQUENCES." -100 A=INT(RND(1)*50) -110 W=7*A/3 -120 PRINT A;"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER"; -130 INPUT R -140 D=ABS(W-R) -150 IF D>W/20 THEN 200 -160 PRINT " GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!" -170 PRINT -180 GOTO 100 -200 PRINT " SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB" -210 PRINT " OF QUIVERING PROTOPLASM!" -220 T=T+1 -230 IF T=9 THEN 260 -240 PRINT " HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE." -250 GOTO 100 -260 PRINT " YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR" -270 PRINT " YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY." -280 END diff --git a/bwbtest/GAMES/chief.bas b/bwbtest/GAMES/chief.bas deleted file mode 100644 index 19efe64..0000000 --- a/bwbtest/GAMES/chief.bas +++ /dev/null @@ -1,51 +0,0 @@ -2 PRINT TAB(30); "CHIEF" -4 PRINT TAB(15); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT:PRINT:PRINT -10 PRINT "I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD." -20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR"; -30 INPUT A$ -40 IF A$="YES" THEN 60 -50 PRINT "SHUT UP, PALE FACE WITH WISE TONGUE." -60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND" -70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1." -80 PRINT " WHAT DO YOU HAVE"; -90 INPUT B -100 LET C = (B+1-5)*5/8*5-3 -110 PRINT "I BET YOUR NUMBER WAS"; C; ". AM I RIGHT"; -120 INPUT D$ -130 IF D$="YES" THEN 500 -140 PRINT "WHAT WAS YOUR ORIGINAL NUMBER"; -150 INPUT K -155 LET F=K+3 -160 LET G=F/5 -170 LET H=G*8 -180 LET I=H/5+5 -190 LET J=I-1 -200 PRINT "SO YOU THINK YOU'RE SO SMART, EH?" -210 PRINT "NOW WATCH." -230 PRINT K; "PLUS 3 EQUALS"; F; ". THIS DIVIDED BY 5 EQUALS"; G; ";" -240 PRINT "THIS TIMES 8 EQUALS"; H; ". IF WE DIVIDE BY 5 AND ADD 5," -250 PRINT "WE GET"; I; ", WHICH, MINUS 1, EQUALS"; J; "." -260 PRINT "NOW DO YOU BELIEVE ME"; -270 INPUT Z$ -290 IF Z$="YES" THEN 500 -295 PRINT "YOU HAVE MADE ME MAD!!!" -300 PRINT "THERE MUST BE A GREAT LIGHTNING BOLT!" -310 PRINT:PRINT -330 FOR X=30 TO 22 STEP -1 -340 PRINT TAB(X); "X X" -350 NEXT X -360 PRINT TAB(21); "X XXX" -370 PRINT TAB(20); "X X" -380 PRINT TAB(19); "XX X" -390 FOR Y=20 TO 13 STEP -1 -400 PRINT TAB(Y); "X X" -410 NEXT Y -420 PRINT TAB(12); "XX" -430 PRINT TAB(11); "X" -440 PRINT TAB(10); "*" -450 PRINT:PRINT"#########################":PRINT -470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!" -480 GOTO 520 -510 PRINT "BYE!!!" -520 END diff --git a/bwbtest/GAMES/chomp.bas b/bwbtest/GAMES/chomp.bas deleted file mode 100644 index 26d0296..0000000 --- a/bwbtest/GAMES/chomp.bas +++ /dev/null @@ -1,104 +0,0 @@ -10 PRINT TAB(33);"CHOMP" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -40 DIM A(10,10) -100 REM *** THE GAME OF CHOMP *** COPYRIGHT PCC 1973 *** -110 PRINT -120 PRINT "THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 1973)" -130 PRINT "DO YOU WANT THE RULES (1=YES, 0=NO!)"; -140 INPUT R -150 IF R=0 THEN 340 -160 F=1 -170 R=5 -180 C=7 -190 PRINT "CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY)." -200 PRINT -210 PRINT "HERE'S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7):" -220 GOSUB 540 -230 PRINT -240 PRINT "THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS" -250 PRINT "WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT" -260 PRINT "CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE WHO" -270 PRINT "CHOMPS THE POISON SQUARE LOSES. TO TAKE A CHOMP, TYPE THE" -280 PRINT "ROW AND COLUMN OF ONE OF THE SQUARES ON THE COOKIE." -290 PRINT "ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE" -300 PRINT "(INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOMP!!" -310 PRINT "NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED," -320 PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE." -330 PRINT -340 PRINT "HERE WE GO..." -350 REM -360 F=0 -370 FOR I=1 TO 10 -372 FOR J=1 TO 10 -375 A(I,J)=0 -377 NEXT J -379 NEXT I -380 PRINT -390 PRINT "HOW MANY PLAYERS"; -400 INPUT P -410 I1=0 -420 PRINT "HOW MANY ROWS"; -430 INPUT R -440 IF R <= 9 THEN 470 -450 PRINT "TOO MANY ROWS (9 IS MAXIMUM). NOW, "; -460 GOTO 420 -470 PRINT "HOW MANY COLUMNS"; -480 INPUT C -490 IF C <= 9 THEN 530 -500 PRINT "TOO MANY COLUMNS (9 IS MAXIMUM). NOW, "; -510 GOTO 470 -530 PRINT -540 FOR I=1 TO R -550 FOR J=1 TO C -560 A(I,J)=1 -570 NEXT J -580 NEXT I -590 A(1,1)=-1 -600 REM PRINT THE BOARD -610 PRINT -620 PRINT TAB(7);"1 2 3 4 5 6 7 8 9" -630 FOR I=1 TO R -640 PRINT I;TAB(7); -650 FOR J=1 TO C -660 IF A(I,J)=-1 THEN 700 -670 IF A(I,J)=0 THEN 720 -680 PRINT "* "; -690 GOTO 710 -700 PRINT "P "; -710 NEXT J -720 PRINT -730 NEXT I -740 PRINT -750 IF F=0 THEN 770 -760 RETURN -770 REM GET CHOMPS FOR EACH PLAYER IN TURN -780 LET I1=I1+1 -790 LET P1=I1-INT(I1/P)*P -800 IF P1 <> 0 THEN 820 -810 P1=P -820 PRINT "PLAYER";P1 -830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)"; -840 INPUT R1,C1 -850 IF R1<1 THEN 920 -860 IF R1>R THEN 920 -870 IF C1<1 THEN 920 -880 IF C1>C THEN 920 -890 IF A(R1,C1)=0 THEN 920 -900 IF A(R1,C1)=-1 THEN 1010 -910 GOTO 940 -920 PRINT "NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE!" -930 GOTO 820 -940 FOR I=R1 TO R -950 FOR J=C1 TO C -960 A(I,J)=0 -970 NEXT J -980 NEXT I -990 GOTO 610 -1000 REM END OF GAME DETECTED IN LINE 900 -1010 PRINT "YOU LOSE, PLAYER";P1 -1020 PRINT -1030 PRINT "AGAIN (1=YES, 0=NO!)"; -1040 INPUT R$ -1050 IF R=1 THEN 340 -1060 END diff --git a/bwbtest/GAMES/combat.bas b/bwbtest/GAMES/combat.bas deleted file mode 100644 index a429349..0000000 --- a/bwbtest/GAMES/combat.bas +++ /dev/null @@ -1,124 +0,0 @@ -1 PRINT TAB(33);"COMBAT" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT: PRINT: PRINT -4 PRINT "I AM AT WAR WITH YOU.": PRINT "WE HAVE 72000 SOLDIERS APIECE." -5 PRINT:PRINT "DISTRIBUTE YOUR FORCES." -6 PRINT ,"ME"," YOU" -7 PRINT "ARMY",30000, -8 INPUT A -9 PRINT "NAVY",20000, -10 INPUT B -11 PRINT "A. F.",22000, -12 INPUT C -13 IF A+B+C>72000 THEN 5 -14 D=30000 -15 E=20000 -16 F=22000 -17 PRINT "YOU ATTACK FIRST. TYPE (1) FOR ARMY; (2) FOR NAVY;" -18 PRINT "AND (3) FOR AIR FORCE." -19 INPUT Y -20 PRINT "HOW MANY MEN" -21 INPUT X -22 IF X<0 THEN 20 -23 ON Y GOTO 100,200,300 -100 IF X>A THEN 20 -105 IF XB THEN 20 -210 IF XC THEN 20 -310 IF XA THEN 1030 -1610 IF TB THEN 1030 -1710 IF TC THEN 1030 -1810 IF T>F/2 THEN 1830 -1820 GOTO 1850 -1830 PRINT "MY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT" -1831 PRINT "YOUR COUNTRY IN SHAMBLES." -1835 A=A/3 -1837 B=B/3 -1840 C=C/3 -1845 GOTO 2000 -1850 PRINT "ONE OF YOUR PLANES CRASHED INTO MY HOUSE. I AM DEAD." -1851 PRINT "MY COUNTRY FELL APART." -1860 GOTO 2010 -2000 PRINT -2001 PRINT "FROM THE RESULTS OF BOTH OF YOUR ATTACKS," -2002 IF A+B+C>3/2*(D+E+F) THEN 2010 -2005 IF A+B+C<2/3*(D+E+F) THEN 2015 -2006 PRINT "THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR" -2007 PRINT "RESPECTIVE COUNTRIES AND LIVE IN PEACE." -2008 GOTO 2020 -2010 PRINT "YOU WON, OH! SHUCKS!!!!" -2012 GOTO 2020 -2015 PRINT "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU" -2016 PRINT "RIGHT FOR PLAYING THIS STUPID GAME!!!" -2020 END diff --git a/bwbtest/GAMES/craps.bas b/bwbtest/GAMES/craps.bas deleted file mode 100644 index 741cf09..0000000 --- a/bwbtest/GAMES/craps.bas +++ /dev/null @@ -1,82 +0,0 @@ -5 PRINT TAB(33);"CRAPS" -10 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -12 PRINT:PRINT:PRINT -15 LET R=0 -20 PRINT"2,3,12 ARE LOSERS; 4,5,6,8,9,10 ARE POINTS; 7,11 ARE NATURAL WINNERS." -21 LET T=1 -22 PRINT "PICK A NUMBER AND INPUT TO ROLL DICE"; -23 INPUT Z -24 LET X=(RND(0)) -25 LET T =T+1 -26 IF T<=Z GOTO 24 -27 PRINT"INPUT THE AMOUNT OF YOUR WAGER."; -28 INPUT F -30 PRINT "I WILL NOW THROW THE DICE" -40 LET E=INT(7*RND(1)) -41 LET S=INT(7*RND(1)) -42 LET X=E+S -50 IF X=7 GOTO 180 -55 IF X=11 GOTO 180 -60 IF X=1 GOTO 40 -62 IF X=2 GOTO 195 -65 IF X=0 GOTO 40 -70 IF X=2 GOTO 200 -80 IF X=3 GOTO 200 -90 IF X=12 GOTO 200 -125 IF X=5 GOTO 220 -130 IF X =6 GOTO 220 -140 IF X=8 GOTO 220 -150 IF X=9 GOTO 220 -160 IF X =10 GOTO 220 -170 IF X=4 GOTO 220 -180 PRINT X; "- NATURAL....A WINNER!!!!" -185 PRINT X; "PAYS EVEN MONEY, YOU WIN"; F; "DOLLARS" -190 GOTO 210 -195 PRINT X; "- SNAKE EYES....YOU LOSE." -196 PRINT "YOU LOSE"; F; "DOLLARS." -197 LET F=0-F -198 GOTO 210 -200 PRINT X; " - CRAPS...YOU LOSE." -205 PRINT "YOU LOSE"; F; "DOLLARS." -206 LET F=0-F -210 LET R= R+F -211 GOTO 320 -220 PRINT X; "IS THE POINT. I WILL ROLL AGAIN" -230 LET H=INT(7*RND(1)) -231 LET Q=INT(7*RND(1)) -232 LET O=H+Q -240 IF O=1 GOTO 230 -250 IF O=7 GOTO 290 -255 IF O=0 GOTO 230 -260 IF O=X GOTO 310 -270 PRINT O; " - NO POINT. I WILL ROLL AGAIN" -280 GOTO 230 -290 PRINT O; "- CRAPS. YOU LOSE." -291 PRINT "YOU LOSE $"; F -292 F=0-F -293 GOTO 210 -300 GOTO 320 -310 PRINT X; "- A WINNER.........CONGRATS!!!!!!!!" -311 PRINT X; "AT 2 TO 1 ODDS PAYS YOU...LET ME SEE..."; 2*F; "DOLLARS" -312 LET F=2*F -313 GOTO 210 -320 PRINT " IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2"; -330 INPUT M -331 IF R<0 GOTO 334 -332 IF R>0 GOTO 336 -333 IF R=0 GOTO 338 -334 PRINT "YOU ARE NOW UNDER $";-R -335 GOTO 340 -336 PRINT "YOU ARE NOW AHEAD $";R -337 GOTO 340 -338 PRINT "YOU ARE NOW EVEN AT 0" -340 IF M=5 GOTO 27 -341 IF R<0 GOTO 350 -342 IF R>0 GOTO 353 -343 IF R=0 GOTO 355 -350 PRINT"TOO BAD, YOU ARE IN THE HOLE. COME AGAIN." -351 GOTO 360 -353 PRINT"CONGRATULATIONS---YOU CAME OUT A WINNER. COME AGAIN!" -354 GOTO 360 -355 PRINT"CONGRATULATIONS---YOU CAME OUT EVEN, NOT BAD FOR AN AMATEUR" -360 END diff --git a/bwbtest/GAMES/cube.bas b/bwbtest/GAMES/cube.bas deleted file mode 100644 index e661ab6..0000000 --- a/bwbtest/GAMES/cube.bas +++ /dev/null @@ -1,161 +0,0 @@ -10 PRINT TAB(34);"CUBE" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT : PRINT : PRINT -100 PRINT "DO YOU WANT TO SEE THE INSTRUCTIONS? (YES--1,NO--0)" -110 INPUT B7 -120 IF B7=0 THEN 370 -130 PRINT"THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE" -140 PRINT"RANDOM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS A" -150 PRINT"CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED" -160 PRINT"BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START," -170 PRINT"YOU ARE AUTOMATICALLY AT LOCATION 1,1,1. THE OBJECT OF" -180 PRINT"THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL:" -190 PRINT"THE COMPUTER WILL PICK, AT RANDOM, 5 LOCATIONS AT WHICH" -200 PRINT"IT WILL PLANT LAND MINES. IF YOU HIT ONE OF THESE LOCATIONS" -210 PRINT"YOU LOSE. ONE OTHER DETAIL: YOU MAY MOVE ONLY ONE SPACE " -220 PRINT"IN ONE DIRECTION EACH MOVE. FOR EXAMPLE: FROM 1,1,2 YOU" -230 PRINT"MAY MOVE TO 2,1,2 OR 1,1,3. YOU MAY NOT CHANGE" -240 PRINT"TWO OF THE NUMBERS ON THE SAME MOVE. IF YOU MAKE AN ILLEGAL" -250 PRINT"MOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY" -260 PRINT"HAVE BET ON THAT ROUND." -270 PRINT -280 PRINT -290 PRINT"ALL YES OR NO QUESTIONS WILL BE ANSWERED BY A 1 FOR YES" -300 PRINT"OR A 0 (ZERO) FOR NO." -310 PRINT -320 PRINT"WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER" -330 PRINT"OF DOLLARS (EXAMPLE: 250) YOU ARE AUTOMATICALLY STARTED WITH" -340 PRINT"500 DOLLARS IN YOUR ACCOUNT." -350 PRINT -360 PRINT "GOOD LUCK!" -370 LET A1=500 -380 LET A=INT(3*(RND(X))) -390 IF A<>0 THEN 410 -400 LET A=3 -410 LET B=INT(3*(RND(X))) -420 IF B<>0 THEN 440 -430 LET B=2 -440 LET C=INT(3*(RND(X))) -450 IF C<>0 THEN 470 -460 LET C=3 -470 LET D=INT(3*(RND(X))) -480 IF D<>0 THEN 500 -490 LET D=1 -500 LET E=INT(3*(RND(X))) -510 IF E<>0 THEN 530 -520 LET E=3 -530 LET F=INT(3*(RND(X))) -540 IF F<>0 THEN 560 -550 LET F=3 -560 LET G=INT(3*(RND(X))) -570 IF G<>0 THEN 590 -580 LET G=3 -590 LET H=INT(3*(RND(X))) -600 IF H<>0 THEN 620 -610 LET H=3 -620 LET I=INT(3*(RND(X))) -630 IF I<>0 THEN 650 -640 LET I=2 -650 LET J=INT(3*(RND(X))) -660 IF J<>0 THEN 680 -670 LET J=3 -680 LET K=INT(3*(RND(X))) -690 IF K<>0 THEN 710 -700 LET K=2 -710 LET L=INT(3*(RND(X))) -720 IF L<>0 THEN 740 -730 LET L=3 -740 LET M=INT(3*(RND(X))) -750 IF M<>0 THEN 770 -760 LET M=3 -770 LET N=INT(3*(RND(X))) -780 IF N<>0 THEN 800 -790 LET N=1 -800 LET O=INT (3*(RND(X))) -810 IF O <>0 THEN 830 -820 LET O=3 -830 PRINT "WANT TO MAKE A WAGER?" -840 INPUT Z -850 IF Z=0 THEN 920 -860 PRINT "HOW MUCH "; -870 INPUT Z1 -876 IF A1W+1 THEN 1030 -950 IF P=W+1 THEN 1000 -960 IF Q>X+1 THEN 1030 -970 IF Q=(X+1) THEN 1010 -980 IF R >(Y+1) THEN 1030 -990 GOTO 1050 -1000 IF Q>= X+1 THEN 1030 -1010 IF R>=Y+1 THEN 1030 -1020 GOTO 1050 -1030 PRINT:PRINT "ILLEGAL MOVE. YOU LOSE." -1040 GOTO 1440 -1050 LET W=P -1060 LET X=Q -1070 LET Y=R -1080 IF P=3 THEN 1100 -1090 GOTO 1130 -1100 IF Q=3 THEN 1120 -1110 GOTO 1130 -1120 IF R=3 THEN 1530 -1130 IF P=A THEN 1150 -1140 GOTO 1180 -1150 IF Q=B THEN 1170 -1160 GOTO 1180 -1170 IF R=C THEN 1400 -1180 IF P=D THEN 1200 -1190 GOTO 1230 -1200 IF Q=E THEN 1220 -1210 GOTO 1230 -1220 IF R=F THEN 1400 -1230 IF P=G THEN 1250 -1240 GOTO 1280 -1250 IF Q=H THEN 1270 -1260 GOTO 1280 -1270 IF R=I THEN 1400 -1280 IF P=J THEN 1300 -1290 GOTO 1330 -1300 IF Q=K THEN 1320 -1310 GOTO 1330 -1320 IF R=L THEN 1440 -1330 IF P=M THEN 1350 -1340 GOTO 1380 -1350 IF Q=N THEN 1370 -1360 GOTO 1380 -1370 IF R=O THEN 1400 -1380 PRINT "NEXT MOVE: "; -1390 GOTO 930 -1400 PRINT"******BANG******" -1410 PRINT "YOU LOSE!" -1420 PRINT -1430 PRINT -1440 IF Z=0 THEN 1580 -1450 PRINT -1460 LET Z2=A1-Z1 -1470 IF Z2>0 THEN 1500 -1480 PRINT "YOU BUST." -1490 GOTO 1610 -1500 PRINT " YOU NOW HAVE"; Z2; "DOLLARS." -1510 LET A1=Z2 -1520 GOTO 1580 -1522 PRINT"TRIED TO FOOL ME; BET AGAIN"; -1525 GOTO 870 -1530 PRINT"CONGRATULATIONS!" -1540 IF Z=0 THEN 1580 -1550 LET Z2=A1+Z1 -1560 PRINT "YOU NOW HAVE"; Z2;"DOLLARS." -1570 LET A1=Z2 -1580 PRINT"DO YOU WANT TO TRY AGAIN "; -1590 INPUT S -1600 IF S=1 THEN 380 -1610 PRINT "TOUGH LUCK!" -1620 PRINT -1630 PRINT "GOODBYE." -1640 END diff --git a/bwbtest/GAMES/depthchg.bas b/bwbtest/GAMES/depthchg.bas deleted file mode 100644 index 0b58467..0000000 --- a/bwbtest/GAMES/depthchg.bas +++ /dev/null @@ -1,33 +0,0 @@ -2 PRINT TAB(30);"DEPTH CHARGE" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -20 INPUT "DIMENSION OF SEARCH AREA";G: PRINT -30 N=INT(LOG(G)/LOG(2))+1 -40 PRINT "YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER" -50 PRINT "AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR" -60 PRINT "MISSION IS TO DESTROY IT. YOU HAVE";N;"SHOTS." -70 PRINT "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A" -80 PRINT "TRIO OF NUMBERS -- THE FIRST TWO ARE THE" -90 PRINT "SURFACE COORDINATES; THE THIRD IS THE DEPTH." -100 PRINT : PRINT "GOOD LUCK !": PRINT -110 A=INT(G*RND(1)) : B=INT(G*RND(1)) : C=INT(G*RND(1)) -120 FOR D=1 TO N : PRINT : PRINT "TRIAL #";D; : INPUT X,Y,Z -130 IF ABS(X-A)+ABS(Y-B)+ABS(Z-C)=0 THEN 300 -140 GOSUB 500 : PRINT : NEXT D -200 PRINT : PRINT "YOU HAVE BEEN TORPEDOED! ABANDON SHIP!" -210 PRINT "THE SUBMARINE WAS AT";A;",";B;",";C : GOTO 400 -300 PRINT : PRINT "B O O M ! ! YOU FOUND IT IN";D;"TRIES!" -400 PRINT : PRINT: INPUT "ANOTHER GAME (Y OR N)";A$ -410 IF A$="Y" THEN 100 -420 PRINT "OK. HOPE YOU ENJOYED YOURSELF." : GOTO 600 -500 PRINT "SONAR REPORTS SHOT WAS "; -510 IF Y>B THEN PRINT "NORTH"; -520 IF YA THEN PRINT "EAST"; -540 IF XB OR X<>A THEN PRINT " AND"; -560 IF Z>C THEN PRINT " TOO LOW." -570 IF ZLEN(A$) THEN PRINT "!";:GOTO 50 -34 PRINT MID$(A$,C,1); -36 C=C+1 -50 NEXT A -53 IF M=Q THEN 60 -55 PRINT TAB(R*M+(R-N)/2); -56 NEXT M -60 PRINT -70 NEXT N -83 IF X<>1 THEN 95 -85 X=R-2:Y=1:Z=-2 -90 GOTO 20 -95 NEXT L -99 END diff --git a/bwbtest/GAMES/dice.bas b/bwbtest/GAMES/dice.bas deleted file mode 100644 index b74bf72..0000000 --- a/bwbtest/GAMES/dice.bas +++ /dev/null @@ -1,31 +0,0 @@ -2 PRINT TAB(34);"DICE" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT:PRINT:PRINT -10 DIM F(12) -20 REM DANNY FREIDUS -30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF A" -40 PRINT "PAIR OF DICE." -50 PRINT "YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER TO" -60 PRINT "'ROLL' THE DICE. WATCH OUT, VERY LARGE NUMBERS TAKE" -70 PRINT "A LONG TIME. IN PARTICULAR, NUMBERS OVER 5000." -80 FOR Q=1 TO 12 -90 F(Q)=0 -100 NEXT Q -110 PRINT:PRINT "HOW MANY ROLLS"; -120 INPUT X -130 FOR S=1 TO X -140 A=INT(6*RND(1)+1) -150 B=INT(6*RND(1)+1) -160 R=A+B -170 F(R)=F(R)+1 -180 NEXT S -185 PRINT -190 PRINT "TOTAL SPOTS","NUMBER OF TIMES" -200 FOR V=2 TO 12 -210 PRINT V,F(V) -220 NEXT V -221 PRINT -222 PRINT:PRINT "TRY AGAIN"; -223 INPUT Z$ -224 IF Z$="YES" THEN 80 -240 END diff --git a/bwbtest/GAMES/digits.bas b/bwbtest/GAMES/digits.bas deleted file mode 100644 index 76fbbaf..0000000 --- a/bwbtest/GAMES/digits.bas +++ /dev/null @@ -1,78 +0,0 @@ -10 PRINT TAB(33);"DIGITS" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -210 PRINT "THIS IS A GAME OF GUESSING." -220 PRINT "FOR INSTRUCTIONS, TYPE '1', ELSE TYPE '0'"; -230 INPUT E -240 IF E=0 THEN 360 -250 PRINT -260 PRINT "PLEASE TAKE A PIECE OF PAPER AND WRITE DOWN" -270 PRINT "THE DIGITS '0', '1', OR '2' THIRTY TIMES AT RANDOM." -280 PRINT "ARRANGE THEM IN THREE LINES OF TEN DIGITS EACH." -290 PRINT "I WILL ASK FOR THEN TEN AT A TIME." -300 PRINT "I WILL ALWAYS GUESS THEM FIRST AND THEN LOOK AT YOUR" -310 PRINT "NEXT NUMBER TO SEE IF I WAS RIGHT. BY PURE LUCK," -320 PRINT "I OUGHT TO BE RIGHT TEN TIMES. BUT I HOPE TO DO BETTER" -330 PRINT "THAN THAT *****" -340 PRINT:PRINT -360 READ A,B,C -370 DATA 0,1,3 -380 DIM M(26,2),K(2,2),L(8,2) -400 FOR I=0 TO 26: FOR J=0 TO 2: M(I,J)=1: NEXT J: NEXT I -410 FOR I=0 TO 2: FOR J=0 TO 2: K(I,J)=9: NEXT J: NEXT I -420 FOR I=0 TO 8: FOR J=0 TO 2: L(I,J)=3: NEXT J: NEXT I -450 L(0,0)=2: L(4,1)=2: L(8,2)=2 -480 Z=26: Z1=8: Z2=2 -510 X=0 -520 FOR T=1 TO 3 -530 PRINT -540 PRINT "TEN NUMBERS, PLEASE"; -550 INPUT N(1),N(2),N(3),N(4),N(5),N(6),N(7),N(8),N(9),N(10) -560 FOR I=1 TO 10 -570 W=N(I)-1 -580 IF W=SGN(W) THEN 620 -590 PRINT "ONLY USE THE DIGITS '0', '1', OR '2'." -600 PRINT "LET'S TRY AGAIN.":GOTO 530 -620 NEXT I -630 PRINT: PRINT "MY GUESS","YOUR NO.","RESULT","NO. RIGHT":PRINT -660 FOR U=1 TO 10 -670 N=N(U): S=0 -690 FOR J=0 TO 2 -700 S1=A*K(Z2,J)+B*L(Z1,J)+C*M(Z,J) -710 IF S>S1 THEN 760 -720 IF S10 THEN 980 -940 IF X<10 THEN 1010 -950 PRINT "I GUESSED EXACTLY 1/3 OF YOUR NUMBERS." -960 PRINT "IT'S A TIE GAME." -970 GOTO 1030 -980 PRINT "I GUESSED MORE THAN 1/3 OF YOUR NUMBERS." -990 PRINT "I WIN.": FOR Q=1 TO 10: PRINT CHR$(7);: NEXT Q -1000 GOTO 1030 -1010 PRINT "I GUESSED LESS THAN 1/3 OF YOUR NUMBERS." -1020 PRINT "YOU BEAT ME. CONGRATULATIONS *****" -1030 PRINT -1040 PRINT "DO YOU WANT TO TRY AGAIN (1 FOR YES, 0 FOR NO)"; -1060 INPUT X -1070 IF X=1 THEN 400 -1080 PRINT:PRINT "THANKS FOR THE GAME." -1090 END diff --git a/bwbtest/GAMES/evenwin1.bas b/bwbtest/GAMES/evenwin1.bas deleted file mode 100644 index b1d0365..0000000 --- a/bwbtest/GAMES/evenwin1.bas +++ /dev/null @@ -1,128 +0,0 @@ -1 PRINT TAB(31);"EVEN WINS" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT -4 Y1=0 -10 M1=0 -20 DIM M(20),Y(20) -30 PRINT " THIS IS A TWO PERSON GAME CALLED 'EVEN WINS.'" -40 PRINT "TO PLAY THE GAME, THE PLAYERS NEED 27 MARBLES OR" -50 PRINT "OTHER OBJECTS ON A TABLE." -60 PRINT -70 PRINT -80 PRINT " THE 2 PLAYERS ALTERNATE TURNS, WITH EACH PLAYER" -90 PRINT "REMOVING FROM 1 TO 4 MARBLES ON EACH MOVE. THE GAME" -100 PRINT "ENDS WHEN THERE ARE NO MARBLES LEFT, AND THE WINNER" -110 PRINT "IS THE ONE WITH AN EVEN NUMBER OF MARBLES." -120 PRINT -130 PRINT -140 PRINT " THE ONLY RULES ARE THAT (1) YOU MUST ALTERNATE TURNS," -150 PRINT "(2) YOU MUST TAKE BETWEEN 1 AND 4 MARBLES EACH TURN," -160 PRINT "AND (3) YOU CANNOT SKIP A TURN." -170 PRINT -180 PRINT -190 PRINT -200 PRINT " TYPE A '1' IF YOU WANT TO GO FIRST, AND TYPE" -210 PRINT "A '0' IF YOU WANT ME TO GO FIRST." -220 INPUT C -225 PRINT -230 IF C=0 THEN 250 -240 GOTO 1060 -250 T=27 -260 M=2 -270 PRINT:PRINT "TOTAL=";T:PRINT -280 M1=M1+M -290 T=T-M -300 PRINT "I PICK UP";M;"MARBLES." -310 IF T=0 THEN 880 -320 PRINT:PRINT "TOTAL=";T -330 PRINT -340 PRINT " AND WHAT IS YOUR NEXT MOVE, MY TOTAL IS";M1 -350 INPUT Y -360 PRINT -370 IF Y<1 THEN 1160 -380 IF Y>4 THEN 1160 -390 IF Y<=T THEN 430 -400 PRINT " YOU HAVE TRIED TO TAKE MORE MARBLES THAN THERE ARE" -410 PRINT "LEFT. TRY AGAIN." -420 GOTO 350 -430 Y1=Y1+Y -440 T=T-Y -450 IF T=0 THEN 880 -460 PRINT "TOTAL=";T -470 PRINT -480 PRINT "YOUR TOTAL IS";Y1 -490 IF T<.5 THEN 880 -500 R=T-6*INT(T/6) -510 IF INT(Y1/2)=Y1/2 THEN 700 -520 IF T<4.2 THEN 580 -530 IF R>3.4 THEN 620 -540 M=R+1 -550 M1=M1+M -560 T=T-M -570 GOTO 300 -580 M=T -590 T=T-M -600 GOTO 830 -610 REM 250 IS WHERE I WIN. -620 IF R<4.7 THEN 660 -630 IF R>3.5 THEN 660 -640 M=1 -650 GOTO 670 -660 M=4 -670 T=T-M -680 M1=M1+M -690 GOTO 300 -700 REM I AM READY TO ENCODE THE STRAT FOR WHEN OPP TOT IS EVEN -710 IF R<1.5 THEN 1020 -720 IF R>5.3 THEN 1020 -730 M=R-1 -740 M1=M1+M -750 T=T-M -760 IF T<.2 THEN 790 -770 REM IS # ZERO HERE -780 GOTO 300 -790 REM IS = ZERO HERE -800 PRINT "I PICK UP";M;"MARBLES." -810 PRINT -820 GOTO 880 -830 REM THIS IS WHERE I WIN -840 PRINT "I PICK UP";M;"MARBLES." -850 PRINT -860 PRINT "TOTAL = 0" -870 M1=M1+M -880 PRINT "THAT IS ALL OF THE MARBLES." -890 PRINT -900 PRINT " MY TOTAL IS";M1;", YOUR TOTAL IS";Y1 -910 PRINT -920 IF INT(M1/2)=M1/2 THEN 950 -930 PRINT " YOU WON. DO YOU WANT TO PLAY" -940 GOTO 960 -950 PRINT " I WON. DO YOU WANT TO PLAY" -960 PRINT "AGAIN? TYPE 1 FOR YES AND 0 FOR NO." -970 INPUT A1 -980 IF A1=0 THEN 1030 -990 M1=0 -1000 Y1=0 -1010 GOTO 200 -1020 GOTO 640 -1030 PRINT -1040 PRINT "OK. SEE YOU LATER." -1050 GOTO 1230 -1060 T=27 -1070 PRINT -1080 PRINT -1090 PRINT -1100 PRINT "TOTAL=";T -1110 PRINT -1120 PRINT -1130 PRINT "WHAT IS YOUR FIRST MOVE"; -1140 INPUT Y -1150 GOTO 360 -1160 PRINT -1170 PRINT "THE NUMBER OF MARBLES YOU TAKE MUST BE A POSITIVE" -1180 PRINT "INTEGER BETWEEN 1 AND 4." -1190 PRINT -1200 PRINT " WHAT IS YOUR NEXT MOVE?" -1210 PRINT -1220 GOTO 350 -1230 END diff --git a/bwbtest/GAMES/evenwin2.bas b/bwbtest/GAMES/evenwin2.bas deleted file mode 100644 index 673dcc9..0000000 --- a/bwbtest/GAMES/evenwin2.bas +++ /dev/null @@ -1,70 +0,0 @@ -1 PRINT TAB(28);"GAME OF EVEN WINS" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT -4 INPUT "DO YOU WANT INSTRUCTIONS (YES OR NO)";A$:PRINT -5 IF A$="NO" THEN 20 -6 PRINT "THE GAME IS PLAYED AS FOLLOWS:":PRINT -7 PRINT "AT THE BEGINNING OF THE GAME, A RANDOM NUMBER OF CHIPS ARE" -8 PRINT "PLACED ON THE BOARD. THE NUMBER OF CHIPS ALWAYS STARTS" -9 PRINT "AS AN ODD NUMBER. ON EACH TURN, A PLAYER MUST TAKE ONE," -10 PRINT "TWO, THREE, OR FOUR CHIPS. THE WINNER IS THE PLAYER WHO" -11 PRINT "FINISHES WITH A TOTAL NUMBER OF CHIPS THAT IS EVEN." -12 PRINT "THE COMPUTER STARTS OUT KNOWING ONLY THE RULES OF THE" -13 PRINT "GAME. IT GRADUALLY LEARNS TO PLAY WELL. IT SHOULD BE" -14 PRINT "DIFFICULT TO BEAT THE COMPUTER AFTER TWENTY GAMES IN A ROW." -15 PRINT "TRY IT!!!!": PRINT -16 PRINT "TO QUIT AT ANY TIME, TYPE A '0' AS YOUR MOVE.": PRINT -20 DIM R(1,5) -25 L=0: B=0 -30 FOR I=0 TO 5 -40 R(1,I)=4 -50 R(0,I)=4 -60 NEXT I -70 A=0: B=0 -90 P=INT((13*RND(1)+9)/2)*2+1 -100 IF P=1 THEN 530 -110 PRINT "THERE ARE";P;"CHIPS ON THE BOARD." -120 E1=E -130 L1=L -140 E=(A/2-INT(A/2))*2 -150 L=INT((P/6-INT(P/6))*6+.5) -160 IF R(E,L)>=P THEN 320 -170 M=R(E,L) -180 IF M<=0 THEN 370 -190 P=P-M -200 IF M=1 THEN 510 -210 PRINT "COMPUTER TAKES";M;"CHIPS LEAVING";P;"... YOUR MOVE"; -220 B=B+M -230 INPUT M -240 M=INT(M) -250 IF M<1 THEN 450 -260 IF M>4 THEN 460 -270 IF M>P THEN 460 -280 IF M=P THEN 360 -290 P=P-M -300 A=A+M -310 GOTO 100 -320 IF P=1 THEN 550 -330 PRINT "COMPUTER TAKES";P;"CHIPS." -340 R(E,L)=P -350 B=B+P -360 IF B/2=INT(B/2) THEN 420 -370 PRINT "GAME OVER ... YOU WIN!!!": PRINT -390 IF R(E,L)=1 THEN 480 -400 R(E,L)=R(E,L)-1 -410 GOTO 70 -420 PRINT "GAME OVER ... I WIN!!!": PRINT -430 GOTO 70 -450 IF M=0 THEN 570 -460 PRINT M;"IS AN ILLEGAL MOVE ... YOUR MOVE"; -470 GOTO 230 -480 IF R(E1,L1)=1 THEN 70 -490 R(E1,L1)=R(E1,L1)-1 -500 GOTO 70 -510 PRINT "COMPUTER TAKES 1 CHIP LEAVING";P;"... YOUR MOVE"; -520 GOTO 220 -530 PRINT "THERE IS 1 CHIP ON THE BOARD." -540 GOTO 120 -550 PRINT "COMPUTER TAKES 1 CHIP." -560 GOTO 340 -570 END diff --git a/bwbtest/GAMES/flipflop.bas b/bwbtest/GAMES/flipflop.bas deleted file mode 100644 index 38d5987..0000000 --- a/bwbtest/GAMES/flipflop.bas +++ /dev/null @@ -1,79 +0,0 @@ -2 PRINT TAB(32);"FLIPFLOP" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT -10 REM *** CREATED BY MICHAEL CASS -15 DIM A$(20) -20 PRINT "THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS:" -30 PRINT -40 PRINT "X X X X X X X X X X" -50 PRINT -60 PRINT "TO THIS:" -70 PRINT -80 PRINT "O O O O O O O O O O" -90 PRINT -100 PRINT "BY TYPING THE NUMBER CORRESPONDING TO THE POSITION OF THE" -110 PRINT "LETTER ON SOME NUMBERS, ONE POSITION WILL CHANGE, ON" -120 PRINT "OTHERS, TWO WILL CHANGE. TO RESET LINE TO ALL X'S, TYPE 0" -130 PRINT "(ZERO) AND TO START OVER IN THE MIDDLE OF A GAME, TYPE " -140 PRINT "11 (ELEVEN)." -170 PRINT -180 REM -190 Q=RND(1) -200 PRINT "HERE IS THE STARTING LINE OF X'S." -210 PRINT -220 C=0 -230 PRINT "1 2 3 4 5 6 7 8 9 10" -240 PRINT "X X X X X X X X X X" -250 PRINT -260 REM -270 FOR X=1 TO 10 -280 A$(X)="X" -290 NEXT X -300 GOTO 320 -310 PRINT "ILLEGAL ENTRY--TRY AGAIN." -320 PRINT "INPUT THE NUMBER"; -330 INPUT N -340 IF N<>INT(N) THEN 310 -350 IF N=11 THEN 180 -360 IF N>11 THEN 310 -370 IF N=0 THEN 230 -380 IF M=N THEN 510 -390 M=N -400 IF A$(N)="O" THEN 480 -410 A$(N)="O" -420 R=TAN(Q+N/Q-N)-SIN(Q/N)+336*SIN(8*N) -430 N=R-INT(R) -440 N=INT(10*N) -450 IF A$(N)="O" THEN 480 -460 A$(N)="O" -470 GOTO 610 -480 A$(N)="X" -490 IF M=N THEN 420 -500 GOTO 610 -510 IF A$(N)="O" THEN 590 -520 A$(N)="O" -530 R=.592*(1/TAN(Q/N+Q))/SIN(N*2+Q)-COS(N) -540 N=R-INT(R) -550 N=INT(10*N) -560 IF A$(N)="O" THEN 590 -570 A$(N)="O" -580 GOTO 610 -590 A$(N)="X" -600 IF M=N THEN 530 -610 PRINT "1 2 3 4 5 6 7 8 9 10" -620 FOR Z=1 TO 10: PRINT A$(Z);" ";: NEXT Z -630 C=C+1 -640 PRINT -650 FOR Z=1 TO 10 -660 IF A$(Z)<>"O" THEN 320 -670 NEXT Z -680 IF C>12 THEN 710 -690 PRINT "VERY GOOD. YOU GUESSED IT IN ONLY";C;"GUESSES." -700 GOTO 720 -710 PRINT "TRY HARDER NEXT TIME. IT TOOK YOU";C;"GUESSES." -720 PRINT "DO YOU WANT TO TRY ANOTHER PUZZLE"; -730 INPUT X$ -740 IF LEFT$(X$,1)="N" THEN 780 -760 PRINT -770 GOTO 180 -780 END diff --git a/bwbtest/GAMES/footbal1.bas b/bwbtest/GAMES/footbal1.bas deleted file mode 100644 index 40a6aa8..0000000 --- a/bwbtest/GAMES/footbal1.bas +++ /dev/null @@ -1,298 +0,0 @@ -10 PRINT TAB(33);"FTBALL" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT -220 PRINT "THIS IS DARTMOUTH CHAMPIONSHIP FOOTBALL.":PRINT -230 PRINT "YOU WILL QUARTERBACK DARTMOUTH. CALL PLAYS AS FOLLOWS:" -240 PRINT "1= SIMPLE RUN; 2= TRICKY RUN; 3= SHORT PASS;" -250 PRINT "4= LONG PASS; 5= PUNT; 6= QUICK KICK; 7= PLACE KICK." -260 PRINT -270 PRINT "CHOOSE YOUR OPPONENT"; -280 INPUT O$(1) -290 O$(0)="DARTMOUTH" -300 PRINT -310 LET S(0)=0: LET S(1)=0 -320 REM -330 DIM L$(20) -340 FOR I=1 TO 20: READ L$(I): NEXT I -350 DATA "KICK","RECEIVE"," YARD ","RUN BACK FOR ","BALL ON " -360 DATA "YARD LINE"," SIMPLE RUN"," TRICKY RUN"," SHORT PASS" -370 DATA " LONG PASS","PUNT"," QUICK KICK "," PLACE KICK"," LOSS " -380 DATA " NO GAIN","GAIN "," TOUCHDOWN "," TOUCHBACK ","SAFETY***" -385 DATA "JUNK" -390 LET P=INT(RND(1)*2) -400 PRINT O$(P);" WON THE TOSS" -410 DEF FNF(X)=1-2*P -420 DEF FNG(Z)=P*(X1-X)+(1-P)*(X-X1) -430 IF P=0 THEN 470 -440 PRINT O$(1);" ELECTS TO RECEIVE." -450 PRINT -460 GOTO 580 -470 PRINT "DO YOU ELECT TO KICK OR RECEIVE"; -480 INPUT A$ -490 PRINT -500 FOR E=1 TO 2 -510 IF A$=L$(E) THEN 550 -520 NEXT E -530 PRINT "INCORRECT ANSWER. PLEASE TYPE 'KICK' OR 'RECIEVE'"; -540 GOTO 480 -550 IF E=2 THEN 580 -560 LET P=1 -580 LET X=40+(1-P)*20 -590 LET Y=INT(200*(RND(1)-.5)^3+55) -600 PRINT Y;L$(3);" KICKOFF" -610 LET X=X-FNF(1)*Y -620 IF ABS(X-50)>=50 THEN 700 -630 LET Y=INT(50*RND(1)^2)+(1-P)*INT(50*RND(1)^4) -640 LET X=X+FNF(1)*Y -650 IF ABS(X-50)>=50 THEN 655 -651 PRINT Y;L$(3);" RUNBACK" -652 GOTO 720 -655 PRINT L$(4); -660 GOTO 2600 -700 PRINT "TOUCHBACK FOR ";O$(P);"." -710 LET X=20+P*60 -720 REM FIRST DOWN -730 GOSUB 800 -740 LET X1=X -750 LET D=1 -760 PRINT:PRINT "FIRST DOWN ";O$(P);"***" -770 PRINT -780 PRINT -790 GOTO 860 -800 REM PRINT POSITION -810 IF X>50 THEN 840 -820 PRINT L$(5);O$(0);X;L$(6) -830 GOTO 850 -840 PRINT L$(5);O$(1);100-X;L$(6) -850 RETURN -860 REM NEW PLAY -870 LET T=T+1 -880 IF T=30 THEN 1060 -890 IF T<50 THEN 940 -900 IF RND(1)>.2 THEN 940 -910 PRINT "END OF GAME ***" -920 PRINT "FINAL SCORE: ";O$(0);": ";S(0);" ";O$(1);": ";S(1) -930 STOP -940 IF P=1 THEN 1870 -950 PRINT "NEXT PLAY"; -960 INPUT Z -970 IF Z<>INT(Z) THEN 990 -980 IF ABS(Z-4)<=3 THEN 1010 -990 PRINT "ILLEGAL PLAY NUMBER, RETYPE"; -1000 GOTO 960 -1010 LET F=0 -1020 PRINT L$(Z+6);". "; -1030 LET R=RND(1)*(.98+FNF(1)*.02) -1040 LET R1=RND(1) -1050 ON Z GOTO 1110,1150,1260,1480,1570,1570,1680 -1060 REM JEAN'S SPECIAL -1070 IF RND(1)> 1/3 THEN 940 -1080 PRINT "GAME DELAYED. DOG ON FIELD." -1090 PRINT -1100 GOTO 940 -1110 REM SIMPLE RUN -1120 LET Y=INT(24*(R-.5)^3+3) -1130 IF RND(1)<.05 THEN 1180 -1140 GOTO 2190 -1150 REM TRICKY RUN -1160 LET Y=INT(20*R-5) -1170 IF RND(1)>.1 THEN 2190 -1180 LET F=-1 -1190 LET X3=X -1200 LET X=X+FNF(1)*Y -1210 IF ABS(X-50)>=50 THEN 1240 -1220 PRINT "*** FUMBLE AFTER "; -1230 GOTO 2230 -1240 PRINT "*** FUMBLE." -1250 GOTO 2450 -1260 REM SHORT PASS -1270 LET Y=INT(60*(R1-.5)^3+10) -1280 IF R<.05 THEN 1330 -1290 IF R<.15 THEN 1390 -1300 IF R<.55 THEN 1420 -1310 PRINT "COMPLETE. "; -1320 GOTO 2190 -1330 IF D=4 THEN 1420 -1340 PRINT "INTERCEPTED." -1350 LET F=-1 -1360 LET X=X+FNF(1)*Y -1370 IF ABS(X-50)>=50 THEN 2450 -1380 GOTO 2300 -1390 PRINT "PASSER TACKLED. "; -1400 LET Y=-INT(10*R1) -1410 GOTO 2190 -1420 LET Y=0 -1430 IF RND(1)<.3 THEN 1460 -1440 PRINT "INCOMPLETE. "; -1450 GOTO 2190 -1460 PRINT "BATTED DOWN. "; -1470 GOTO 2190 -1480 REM LONG PASS -1490 LET Y=INT(160*(R1-.5)^3+30) -1500 IF R<.1 THEN 1330 -1510 IF R<.3 THEN 1540 -1520 IF R<.75 THEN 1420 -1530 GOTO 1310 -1540 PRINT "PASSER TACKLED. "; -1550 LET Y=-INT(15*R1+3) -1560 GOTO 2190 -1570 REM PUNT OR KICK -1580 LET Y=INT(100*(R-.5)^3+35) -1590 IF D=4 THEN 1610 -1600 LET Y=INT(Y*1.3) -1610 PRINT Y;L$(3);" PUNT" -1620 IF ABS(X+Y*FNF(1)-50)>=50 THEN 1670 -1630 IF D<4 THEN 1670 -1640 LET Y1=INT(R1^2*20) -1650 PRINT Y1;L$(3);" RUN BACK" -1660 LET Y=Y-Y1 -1670 GOTO 1350 -1680 REM PLACE KICK -1690 LET Y=INT(100*(R-.5)^3+35) -1700 IF R1>.15 THEN 1740 -1710 PRINT "KICK IS BLOCKED ***" -1720 LET X=X-5*FNF(1) -1730 LET P=1-P -1740 GOTO 720 -1750 LET X=X+FNF(1)*Y -1760 IF ABS(X-50)>=60 THEN 1810 -1770 PRINT "KICK IS SHORT." -1780 IF ABS(X-50)>=50 THEN 2710 -1790 P=1-P -1800 GOTO 630 -1810 IF R1>.5 THEN 1840 -1820 PRINT "KICK IS OFF TO THE SIDE." -1830 GOTO 2710 -1840 PRINT "FIELD GOAL ***" -1850 LET S(P)=S(P)+3 -1860 GOTO 2640 -1870 REM OPPONENT'S PLAY -1880 IF D>1 THEN 1940 -1890 IF RND(1)>1/3 THEN 1920 -1900 LET Z=3 -1910 GOTO 1010 -1920 LET Z=1 -1930 GOTO 1010 -1940 IF D=4 THEN 2090 -1950 IF 10+X-X1<5 THEN 1890 -1960 IF X<5 THEN 1890 -1970 IF X<=10 THEN 2160 -1980 IF X>X1 THEN 2020 -1990 LET A=INT(2*RND(1)) -2000 LET Z=2+A*2 -2010 GOTO 1010 -2020 IF D<3 THEN 1990 -2030 IF X<45 THEN 1990 -2040 IF RND(1)>1/4 THEN 2070 -2050 LET Z=6 -2060 GOTO 1010 -2070 LET Z=4 -2080 GOTO 1010 -2090 IF X>30 THEN 2140 -2100 IF 10+X-X1<3 THEN 1890 -2110 IF X<3 THEN 1890 -2120 LET Z=7 -2130 GOTO 1010 -2140 LET Z=5 -2150 GOTO 1010 -2160 LET A=INT(2*RND(1)) -2170 LET Z=2+A -2180 GOTO 1010 -2190 REM GAIN OR LOSS -2200 LET X3=X -2210 LET X=X+FNF(1)*Y -2220 IF ABS(X-50)>=50 THEN 2450 -2230 IF Y=0 THEN 2250 -2240 PRINT ABS(Y);L$(3); -2250 PRINT L$(15+SGN(Y)) -2280 IF ABS(X3-50)>40 THEN 2300 -2290 IF RND(1)<.1 THEN 2860 -2300 GOSUB 800 -2310 IF F=0 THEN 2340 -2320 LET P=1-P -2330 GOTO 740 -2340 IF FNG(1)>=10 THEN 740 -2350 IF D=4 THEN 2320 -2360 LET D=D+1 -2370 PRINT "DOWN: ";D;" "; -2380 IF (X1-50)*FNF(1)<40 THEN 2410 -2390 PRINT "GOAL TO GO" -2400 GOTO 2420 -2410 PRINT "YARDS TO GO: ";10-FNG(1) -2420 PRINT -2430 PRINT -2440 GOTO 860 -2450 REM BALL IN END-ZONE -2460 IF X>=100 THEN 2490 -2470 LET E=0 -2480 GOTO 2500 -2490 LET E=1 -2500 ON 1+E-F*2+P*4 GOTO 2510,2590,2760,2710,2590,2510,2710,2760 -2510 REM SAFETY -2520 LET S(1-P)=S(1-P)+2 -2530 PRINT L$(19) -2540 GOSUB 2800 -2550 PRINT O$(P);" KICKS OFF FROM ITS 20 YARD LINE." -2560 LET X=20+P*60 -2570 LET P=1-P -2580 GOTO 590 -2590 REM OFFENSIVE TD -2600 PRINT L$(17);"***" -2610 IF RND(1)>.8 THEN 2680 -2620 LET S(P)=S(P)+7 -2630 PRINT "KICK IS GOOD." -2640 GOSUB 2800 -2650 PRINT O$(P);" KICKS OFF" -2660 LET P=1-P -2670 GOTO 580 -2680 PRINT "KICK IS OFF TO THE SIDE" -2690 LET S(P)=S(P)+6 -2700 GOTO 2640 -2710 REM TOUCHBACK -2720 PRINT L$(18) -2730 LET P=1-P -2740 LET X=20+P*60 -2750 GOTO 720 -2760 REM DEFENSIVE TD -2770 PRINT L$(17);"FOR ";O$(1-P);"***" -2780 LET P=1-P -2790 GOTO 2600 -2800 REM SCORE -2810 PRINT -2820 PRINT "SCORE: ";S(0);" TO ";S(1) -2830 PRINT -2840 PRINT -2850 RETURN -2860 REM PENALTY -2870 LET P3=INT(2*RND(1)) -2880 PRINT O$(P3);" OFFSIDES -- PENALTY OF 5 YARDS." -2890 PRINT -2900 PRINT -2910 IF P3=0 THEN 2980 -2920 PRINT "DO YOU ACCEPT THE PENALTY"; -2930 INPUT A$ -2940 IF A$="NO" THEN 2300 -2950 IF A$="YES" THEN 3110 -2960 PRINT "TYPE 'YES' OR 'NO'"; -2970 GOTO 2930 -2980 REM OPPONENT'S STRATEGY ON PENALTY -2990 IF P=1 THEN 3040 -3000 IF Y<=0 THEN 3080 -3010 IF F<0 THEN 3080 -3020 IF FNG(1)<3*D-2 THEN 3080 -3030 GOTO 3100 -3040 IF Y<=5 THEN 3100 -3050 IF F<0 THEN 3100 -3060 IF D<4 THEN 3080 -3070 IF FNG(1)<10 THEN 3100 -3080 PRINT "PENALTY REFUSED." -3090 GOTO 2300 -3100 PRINT "PENALTY ACCEPTED." -3110 LET F=0 -3120 LET D=D-1 -3130 IF P<>P3 THEN 3160 -3140 LET X=X3-FNF(1)*5 -3150 GOTO 2300 -3160 LET X=X3+FNF(1)*5 -3170 GOTO 2300 -3180 END diff --git a/bwbtest/GAMES/footbal2.bas b/bwbtest/GAMES/footbal2.bas deleted file mode 100644 index 07e416a..0000000 --- a/bwbtest/GAMES/footbal2.bas +++ /dev/null @@ -1,181 +0,0 @@ -1 PRINT TAB(32);"FOOTBALL" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -100 REM -120 DIM A(20),B(20),C(40),H(2),T(2),W(2),X(2),Y(2),Z(2) -130 DIM M$(2),D(2),P$(20) -140 PRINT "PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED)" -145 PRINT:PRINT -150 INPUT "DO YOU WANT INSTRUCTIONS";A$ -160 IF A$="NO" THEN 290 -165 IF A$<>"YES" THEN 150 -170 PRINT "THIS IS A FOOTBALL GAME FOR TWO TEAMS IN WHICH PLAYERS MUST" -180 PRINT "PREPARE A TAPE WITH A DATA STATEMENT (1770 FOR TEAM 1," -190 PRINT "1780 FOR TEAM 2) IN WHICH EACH TEAM SCRAMBLES NOS. 1-20" -195 PRINT "THESE NUMBERS ARE THEN ASSIGNED TO TWENTY GIVEN PLAYS." -200 PRINT"A LIST OF NOS. AND THEIR PLAYS IS PROVIDED WITH" -210 PRINT "BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE" -220 PRINT "PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN" -223 PRINT "WHENEVER SCORES ARE MADE. SCORES MAY ALSO BE OBTAINED" -225 PRINT "BY INPUTTING 99,99 FOR PLAY NOS. TO PUNT OR ATTEMPT A" -227 PRINT "FIELD GOAL, INPUT 77,77 FOR PLAY NUMBERS. QUESTIONS WILL BE" -230 PRINT "ASKED THEN. ON 4TH DOWN, YOU WILL ALSO BE ASKED WHETHER" -240 PRINT "YOU WANT TO PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSWER TO" -250 PRINT "BOTH QUESTIONS IS NO IT WILL BE ASSUMED YOU WANT TO" -260 PRINT "TRY AND GAIN YARDAGE. ANSWER ALL QUESTIONS YES OR NO." -270 PRINT "THE GAME IS PLAYED UNTIL PLAYERS TERMINATE (CONTROL-C)." -280 PRINT "PLEASE PREPARE A TAPE AND RUN.": STOP -290 PRINT:PRINT "PLEASE INPUT SCORE LIMIT ON GAME";:INPUT E -300 FOR I=1 TO 40: READ N: IF I>20 THEN 350 -330 A(N)=I: GOTO 360 -350 B(N)=I-20 -360 C(I)=N: NEXT I -370 FOR I=1 TO 20: READ P$(I): NEXT I -380 L=0: T=1 -410 PRINT "TEAM";T;"PLAY CHART" -420 PRINT "NO. PLAY" -430 FOR I=1 TO 20 -440 REM -450 PRINT C(I+L);TAB(6);P$(I) -460 NEXT I -630 L=L+20:T=2 -640 PRINT -650 PRINT "TEAR OFF HERE----------------------------------------------" -660 FOR X=1 TO 11: PRINT: NEXT X -670 FOR Z=1 TO 3000: NEXT Z -680 IF L=20 THEN 410 -690 D(1)=0: D(2)=3: M$(1)="--->": M$(2)="<---" -700 H(1)=0: H(2)=0: T(1)=2: T(2)=1 -710 W(1)=-1: W(2)=1: X(1)=100: X(2)=0 -720 Y(1)=1: Y(2)=-1: Z(1)=0: Z(2)=100 -725 GOSUB 1910 -730 PRINT "TEAM 1 DEFENDS 0 YD GOAL -- TEAM 2 DEFENDS 100 YD GOAL." -740 T=INT(2*RND(1)+1) -760 PRINT: PRINT "THE COIN IS FLIPPED" -765 P=X(T)-Y(T)*40 -770 GOSUB 1860: PRINT : PRINT "TEAM";T;"RECEIVES KICK-OFF" -780 K=INT(26*RND(1)+40) -790 P=P-Y(T)*K -794 IF W(T)*P"NO" THEN 830 -850 IF W(T)*P1 THEN 900 -895 IF Y(T)*(P+Y(T)*10)>=X(T) THEN 898 -897 C=4: GOTO 900 -898 C=8 -900 IF C=8 THEN 904 -901 PRINT TAB(27);10-(Y(T)*P-Y(T)*S);"YARDS TO 1ST DOWN" -902 GOTO 910 -904 PRINT TAB(27);X(T)-Y(T)*P;"YARDS" -910 GOSUB 1900: IF D=4 THEN 1180 -920 REM -930 U=INT(3*RND(0)-1): GOTO 940 -936 PRINT "ILLEGAL PLAY NUMBER, CHECK AND" -940 PRINT "INPUT OFFENSIVE PLAY, DEFENSIVE PLAY"; -950 IF T=2 THEN 970 -960 INPUT P1,P2: GOTO 975 -970 INPUT P2,P1 -975 IF P1=77 THEN 1180 -980 IF P1>20 THEN 1800 -985 IF P1<1 THEN 1800 -990 IF P2>20 THEN 1800 -992 IF P2<1 THEN 1800 -995 P1=INT(P1): P2=INT(P2) -1000 Y=INT(ABS(A(P1)-B(P2))/19*((X(T)-Y(T)*P+25)*RND(1)-15)) -1005 PRINT: IF T=2 THEN 1015 -1010 IF A(P1)<11 THEN 1048 -1012 GOTO 1020 -1015 IF B(P2)<11 THEN 1048 -1020 IF U<>0 THEN 1035 -1025 PRINT "PASS INCOMPLETE TEAM";T -1030 Y=0: GOTO 1050 -1035 G=RND(1): IF G>.025 THEN 1040 -1037 IF Y>2 THEN 1045 -1040 PRINT "QUARTERBACK SCRAMBLED": GOTO 1050 -1045 PRINT "PASS COMPLETED": GOTO 1050 -1048 PRINT "THE BALL WAS RUN" -1050 P=P-W(T)*Y -1060 PRINT: PRINT "NET YARDS GAINED ON DOWN";D;"ARE ";Y -1070 G=RND(1): IF G>.025 THEN 1110 -1080 PRINT: PRINT "** LOSS OF POSSESSION FROM TEAM";T;"TO TEAM";T(T) -1100 GOSUB 1850: PRINT: T=T(T): GOTO 830 -1110 IF Y(T)*P>=X(T) THEN 1320 -1120 IF W(T)*P>=Z(T) THEN 1230 -1130 IF Y(T)*P-Y(T)*S>=10 THEN 880 -1140 D=D+1: IF D<>5 THEN 885 -1160 PRINT: PRINT "CONVERSION UNSUCCESSFUL TEAM";T:T=T(T) -1170 GOSUB 1850: GOTO 880 -1180 PRINT "DOES TEAM";T;"WANT TO PUNT";: INPUT A$ -1185 IF A$="NO" THEN 1200 -1187 IF A$<>"YES" THEN 1180 -1190 PRINT:PRINT "TEAM";T;"WILL PUNT": G=RND(1): IF G<.025 THEN 1080 -1195 GOSUB 1850: K=INT(25*RND(1)+35): T=T(T): GOTO 790 -1200 PRINT "DOES TEAM";T;"WANT TO ATTEMPT A FIELD GOAL";: INPUT A$ -1210 IF A$="YES" THEN 1640 -1215 IF A$<>"NO" THEN 1200 -1217 GOTO 920 -1230 PRINT: PRINT "SAFETY AGAINST TEAM";T;"**********************OH-OH" -1240 H(T(T))=H(T(T))+2: GOSUB 1810 -1280 PRINT"TEAM";T;"DO YOU WANT TO PUNT INSTEAD OF A KICKOFF";:INPUT A$ -1290 P=Z(T)-W(T)*20: IF A$="YES" THEN 1190 -1320 PRINT: PRINT "TOUCHDOWN BY TEAM";T;"*********************YEA TEAM" -1340 Q=7: G=RND(1): IF G>.1 THEN 1380 -1360 Q=6: PRINT "EXTRA POINT NO GOOD": GOTO 1390 -1380 PRINT "EXTRA POINT GOOD" -1390 H(T)=H(T)+Q: GOSUB 1810 -1420 T=T(T): GOTO 765 -1430 K=INT(9*RND(0)+1) -1440 R=INT(((X(T)-Y(T)*P+25)*RND(1)-15)/K) -1460 P=P-W(T)*R -1480 PRINT:PRINT "RUNBACK TEAM";T;R;"YARDS" -1485 G=RND(1): IF G<.025 THEN 1080 -1490 IF Y(T)*P>=X(T) THEN 1320 -1500 IF W(T)*P>=Z(T) THEN 1230 -1510 GOTO 880 -1640 PRINT: PRINT "TEAM";T;"WILL ATTEMPT A FIELD GOAL" -1645 G=RND(1): IF G<.025 THEN 1080 -1650 F=INT(35*RND(1)+20) -1660 PRINT: PRINT "KICK IS";F;"YARDS LONG" -1680 P=P-W(T)*F: G=RND(1) -1690 IF G<.35 THEN 1735 -1700 IF Y(T)*P99 THEN 936 -1810 PRINT: PRINT "TEAM 1 SCORE IS";H(1) -1820 PRINT "TEAM 2 SCORE IS";H(2): PRINT -1825 IF H(T)190 THEN 500 -348 NEXT J -350 GOTO 1100 -500 PRINT -501 PRINT "YOU MAY NOT HAVE THAT MANY FURS." -502 PRINT "DO NOT TRY TO CHEAT. I CAN ADD." -503 PRINT "YOU MUST START AGAIN." -504 GOTO 15 -508 PRINT -511 PRINT "DO YOU WANT TO TRADE FURS NEXT YEAR?" -513 GOTO 18 -1091 PRINT "YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN " -1092 PRINT "1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET" -1093 PRINT "SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE" -1094 PRINT "FORTS AT WHICH YOU MAY TRADE. THE COST OF SUPPLIES" -1095 PRINT "AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEPEND" -1096 PRINT "ON THE FORT THAT YOU CHOOSE." -1099 RETURN -1100 PRINT "YOU MAY TRADE YOUR FURS AT FORT 1, FORT 2," -1102 PRINT "OR FORT 3. FORT 1 IS FORT HOCHELAGA (MONTREAL)" -1103 PRINT "AND IS UNDER THE PROTECTION OF THE FRENCH ARMY." -1104 PRINT "FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE" -1105 PRINT "PROTECTION OF THE FRENCH ARMY. HOWEVER, YOU MUST" -1106 PRINT "MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS." -1108 PRINT "FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL." -1109 PRINT "YOU MUST CROSS THROUGH IROQUOIS LAND." -1110 PRINT "ANSWER 1, 2, OR 3." -1111 INPUT B -1112 IF B=1 THEN 1120 -1113 IF B=2 THEN 1135 -1115 IF B=3 THEN 1147 -1116 GOTO 1110 -1120 PRINT "YOU HAVE CHOSEN THE EASIEST ROUTE. HOWEVER, THE FORT" -1121 PRINT "IS FAR FROM ANY SEAPORT. THE VALUE" -1122 PRINT "YOU RECEIVE FOR YOUR FURS WILL BE LOW AND THE COST" -1123 PRINT "OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK." -1125 GOSUB 1400 -1129 IF B$="YES" THEN 1110 -1130 GOTO 1160 -1135 PRINT "YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARSION," -1136 PRINT "HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN" -1137 PRINT "THE ROUTE TO NEW YORK. YOU WILL RECEIVE AN AVERAGE VALUE" -1138 PRINT "FOR YOUR FURS AND THE COST OF YOUR SUPPLIES WILL BE AVERAGE." -1141 GOSUB 1400 -1144 IF B$="YES" THEN 1110 -1145 GOTO 1198 -1147 PRINT "YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT" -1148 PRINT "FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE" -1149 PRINT "FOR YOUR FURS. THE COST OF YOUR SUPPLIES" -1150 PRINT "WILL BE LOWER THAN AT ALL THE OTHER FORTS." -1152 GOSUB 1400 -1155 IF B$="YES" THEN 1110 -1156 GOTO 1250 -1160 LET I=I-160 -1169 PRINT -1174 LET M1=INT((.2*RND(1)+.7)*10^2+.5)/10^2 -1175 LET E1=INT((.2*RND(1)+.65)*10^2+.5)/10^2 -1176 LET B1=INT((.2*RND(1)+.75)*10^2+.5)/10^2 -1177 LET D1=INT((.2*RND(1)+.8)*10^2+.5)/10^2 -1180 PRINT "SUPPLIES AT FORT HOCHELAGA COST $150.00." -1181 PRINT "YOUR TRAVEL EXPENSES TO HOCHELAGA WERE $10.00." -1190 GOTO 1410 -1198 LET I=I-140 -1201 PRINT -1205 LET M1=INT((.3*RND(1)+.85)*10^2+.5)/10^2 -1206 LET E1=INT((.15*RND(1)+.8)*10^2+.5)/10^2 -1207 LET B1=INT((.2*RND(1)+.9)*10^2+.5)/10^2 -1209 LET P=INT(10*RND(1))+1 -1210 IF P<=2 THEN 1216 -1212 IF P<=6 THEN 1224 -1213 IF P<=8 THEN 1226 -1215 IF P<=10 THEN 1235 -1216 LET F(2)=0 -1218 PRINT "YOUR BEAVER WERE TOO HEAVY TO CARRY ACROSS" -1219 PRINT "THE PORTAGE. YOU HAD TO LEAVE THE PELTS, BUT FOUND" -1220 PRINT "THEM STOLEN WHEN YOU RETURNED." -1221 GOSUB 1244 -1222 GOTO 1414 -1224 PRINT "YOU ARRIVED SAFELY AT FORT STADACONA." -1225 GOTO 1239 -1226 GOSUB 1430 -1230 PRINT "YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU" -1231 PRINT "LOST ALL YOUR FURS." -1232 GOSUB 1244 -1233 GOTO 1418 -1235 LET F(4)=0 -1237 PRINT "YOUR FOX PELTS WERE NOT CURED PROPERLY." -1238 PRINT "NO ONE WILL BUY THEM." -1239 GOSUB 1244 -1240 GOTO 1410 -1244 PRINT "SUPPLIES AT FORT STADACONA COST $125.00." -1246 PRINT "YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00." -1248 RETURN -1250 LET I=I-105 -1254 PRINT -1260 LET M1=INT((.15*RND(1)+1.05)*10^2+.5)/10^2 -1263 LET D1=INT((.25*RND(1)+1.1)*10^2+.5)/10^2 -1270 LET P=INT(10*RND(1))+1 -1271 IF P<=2 THEN 1281 -1272 IF P<=6 THEN 1291 -1273 IF P<=8 THEN 1295 -1274 IF P<=10 THEN 1306 -1281 PRINT "YOU WERE ATTACKED BY A PARTY OF IROQUOIS." -1282 PRINT "ALL PEOPLE IN YOUR TRADING GROUP WERE" -1283 PRINT "KILLED. THIS ENDS THE GAME." -1284 STOP -1291 PRINT "YOU WERE LUCKY. YOU ARRIVED SAFELY" -1292 PRINT "AT FORT NEW YORK." -1293 GOTO 1311 -1295 GOSUB 1430 -1300 PRINT "YOU NARROWLY ESCAPED AN IROQUOIS RAIDING PARTY." -1301 PRINT "HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND." -1303 GOSUB 1320 -1304 GOTO 1418 -1306 LET B1=B1/2 -1307 LET M1=M1/2 -1308 PRINT "YOUR MINK AND BEAVER WERE DAMAGED ON YOUR TRIP." -1309 PRINT "YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS." -1311 GOSUB 1320 -1312 GOTO 1410 -1320 PRINT "SUPPLIES AT NEW YORK COST $80.00." -1321 PRINT "YOUR TRAVEL EXPENSES TO NEW YORK WERE $25.00." -1322 RETURN -1400 PRINT "DO YOU WANT TO TRADE AT ANOTHER FORT?" -1402 PRINT "ANSWER YES OR NO", -1403 INPUT B$ -1404 RETURN -1410 PRINT -1412 PRINT "YOUR BEAVER SOLD FOR $";B1*F(2); -1414 PRINT "YOUR FOX SOLD FOR $";D1*F(4) -1416 PRINT "YOUR ERMINE SOLD FOR $";E1*F(3); -1417 PRINT "YOUR MINK SOLD FOR $";M1*F(1) -1418 LET I=M1*F(1)+B1*F(2)+E1*F(3)+D1*F(4)+I -1420 PRINT -1422 PRINT "YOU NOW HAVE $";I;" INCLUDING YOUR PREVIOUS SAVINGS" -1425 GOTO 508 -1430 FOR J=1 TO 4 -1432 LET F(J)=0 -1434 NEXT J -1436 RETURN -2000 DATA "MINK","BEAVER","ERMINE","FOX" -2046 END diff --git a/bwbtest/GAMES/golf.bas b/bwbtest/GAMES/golf.bas deleted file mode 100644 index ae13574..0000000 --- a/bwbtest/GAMES/golf.bas +++ /dev/null @@ -1,244 +0,0 @@ -1 PRINT TAB(34);"GOLF" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -4 PRINT "WELCOME TO THE CREATIVE COMPUTING COUNTRY CLUB," -5 PRINT "AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT LOCATED A SHORT" -6 PRINT "DISTANCE FROM SCENIC DOWNTOWN MORRISTOWN. THE" -7 PRINT "COMMENTATOR WILL EXPLAIN THE GAME AS YOU PLAY." -8 PRINT "ENJOY YOUR GAME; SEE YOU AT THE 19TH HOLE..." -9 PRINT:PRINT: DIM L(10) -10 G1=18 -20 G2=0 -30 G3=0 -40 A=0 -50 N=.8 -60 S2=0 -70 F=1 -80 PRINT "WHAT IS YOUR HANDICAP"; -90 INPUT H:PRINT -100 IF H>30 THEN 470 -110 IF H<0 THEN 470 -120 PRINT "DIFFICULTIES AT GOLF INCLUDE:" -130 PRINT "0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, 5=PUTTING" -140 PRINT "WHICH ONE (ONLY ONE) IS YOUR WORST"; -150 INPUT T:PRINT -160 IF T>5 THEN 120 -170 S1=0 -210 REM -230 L(0)=0 -240 J=0 -245 Q=0 -250 S2=S2+1 -260 K=0 -270 IF F=1 THEN 310 -290 PRINT "YOUR SCORE ON HOLE";F-1;"WAS";S1 -291 GOTO 1750 -292 IF S1>P+2 THEN 297 -293 IF S1=P THEN 299 -294 IF S1=P-1 THEN 301 -295 IF S1=P-2 THEN 303 -296 GOTO 310 -297 PRINT "KEEP YOUR HEAD DOWN." -298 GOTO 310 -299 PRINT "A PAR. NICE GOING." -300 GOTO 310 -301 PRINT "A BIRDIE." -302 GOTO 310 -303 IF P=3 THEN 306 -304 PRINT "A GREAT BIG EAGLE." -305 GOTO 310 -306 PRINT "A HOLE IN ONE." -310 IF F=19 THEN 1710 -315 S1=0 -316 PRINT -320 IF S1=0 THEN 1590 -330 IF L(0)<1 THEN 1150 -340 X=0 -350 IF L(0)>5 THEN 1190 -360 PRINT "SHOT WENT";D1;"YARDS. IT'S";D2;"YARDS FROM THE CUP." -362 PRINT "BALL IS";INT(O);"YARDS OFF LINE... IN "; -380 GOSUB 400 -390 GOTO 620 -400 IF L(X)=1 THEN 480 -410 IF L(X)=2 THEN 500 -420 IF L(X)=3 THEN 520 -430 IF L(X)=4 THEN 540 -440 IF L(X)=5 THEN 560 -450 IF L(X)=6 THEN 580 -460 PRINT "OUT OF BOUNDS." -465 GOTO 1690 -470 PRINT "PGA HANDICAPS RANGE FROM 0 TO 30." -472 GOTO 80 -480 PRINT "FAIRWAY." -490 GOTO 1690 -500 PRINT "ROUGH." -510 GOTO 1690 -520 PRINT "TREES." -530 GOTO 1690 -540 PRINT "ADJACENT FAIRWAY." -550 GOTO 1690 -560 PRINT "TRAP." -570 GOTO 1690 -580 PRINT "WATER." -590 GOTO 1690 -620 IF A=1 THEN 629 -621 PRINT "SELECTION OF CLUBS" -622 PRINT "YARDAGE DESIRED SUGGESTED CLUBS" -623 PRINT "200 TO 280 YARDS 1 TO 4" -624 PRINT "100 TO 200 YARDS 19 TO 13" -625 PRINT " 0 TO 100 YARDS 29 TO 23" -626 A=1 -629 PRINT "WHAT CLUB DO YOU CHOOSE"; -630 INPUT C -632 PRINT -635 IF C<1 THEN 690 -637 IF C>29 THEN 690 -640 IF C>4 THEN 710 -650 IF L(0)<=5 THEN 740 -660 IF C=14 THEN 740 -665 IF C=23 THEN 740 -670 GOTO 690 -680 S1=S1-1 -690 PRINT "THAT CLUB IS NOT IN THE BAG." -693 PRINT -700 GOTO 620 -710 IF C<12 THEN 690 -720 C=C-6 -730 GOTO 650 -740 S1=S1+1 -741 W=1 -742 IF C>13 THEN 960 -746 IF INT(F/3)=F/3 THEN 952 -752 IF C<4 THEN 756 -754 GOTO 760 -756 IF L(0)=2 THEN 862 -760 IF S1>7 THEN 867 -770 D1=INT(((30-H)*2.5+187-((30-H)*.25+15)*C/2)+25*RND(1)) -780 D1=INT(D1*W) -800 IF T=2 THEN 1170 -830 O=(RND(1)/.8)*(2*H+16)*ABS(TAN(D1*.0035)) -840 D2=INT(SQR(O^2+ABS(D-D1)^2)) -850 IF D-D1<0 THEN 870 -860 GOTO 890 -862 PRINT "YOU DUBBED IT." -864 D1=35 -866 GOTO 830 -867 IF D<200 THEN 1300 -868 GOTO 770 -870 IF D2<20 THEN 890 -880 PRINT "TOO MUCH CLUB. YOU'RE PAST THE HOLE." -890 B=D -900 D=D2 -910 IF D2>27 THEN 1020 -920 IF D2>20 THEN 1100 -930 IF D2>.5 THEN 1120 -940 L(0)=9 -950 GOTO 1470 -952 IF S2+Q+(10*(F-1)/18)<(F-1)*(72+((H+1)/.85))/18 THEN 956 -954 GOTO 752 -956 Q=Q+1 -957 IF S1/2<>INT(S1/2) THEN 1011 -958 GOTO 862 -960 PRINT "NOW GAUGE YOUR DISTANCE BY A PERCENTAGE (1 TO 100)" -961 PRINT "OF A FULL SWING"; -970 INPUT W: W=W/100 -972 PRINT -980 IF W>1 THEN 680 -985 IF L(0)=5 THEN 1280 -990 IF C=14 THEN 760 -1000 C=C-10 -1010 GOTO 760 -1011 IF D<95 THEN 862 -1012 PRINT "BALL HIT TREE - BOUNCED INTO ROUGH";D-75;"YARDS FROM HOLE." -1014 D=D-75 -1018 GOTO 620 -1020 IF O<30 THEN 1150 -1022 IF J>0 THEN 1150 -1030 IF T>0 THEN 1070 -1035 S9=(S2+1)/15 -1036 IF INT(S9)=S9 THEN 1075 -1040 PRINT "YOU HOOKED- "; -1050 L(0)=L(2) -1055 IF O>45 THEN 1092 -1060 GOTO 320 -1070 S9=(S2+1)/15 -1071 IF INT(S9)=S9 THEN 1040 -1075 PRINT "YOU SLICED- "; -1080 L(0)=L(1) -1090 GOTO 1055 -1092 PRINT "BADLY." -1094 GOTO 320 -1100 L(0)=5 -1110 GOTO 320 -1120 L(0)=8 -1130 D2=INT(D2*3) -1140 GOTO 1380 -1150 L(0)=1 -1160 GOTO 320 -1170 D1=INT(.85*D1) -1180 GOTO 830 -1190 IF L(0)>6 THEN 1260 -1200 PRINT "YOUR SHOT WENT INTO THE WATER." -1210 S1=S1+1 -1220 PRINT "PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION." -1230 J=J+1 -1240 L(0)=1 -1242 D=B -1250 GOTO 620 -1260 PRINT "YOUR SHOT WENT OUT OF BOUNDS." -1270 GOTO 1210 -1280 IF T=3 THEN 1320 -1300 D2=1+(3*INT((80/(40-H))*RND(1))) -1310 GOTO 1380 -1320 IF RND(1)>N THEN 1360 -1330 N=N*.2 -1340 PRINT "SHOT DUBBED, STILL IN TRAP." -1350 GOTO 620 -1360 N=.8 -1370 GOTO 1300 -1380 PRINT "ON GREEN,";D2;"FEET FROM THE PIN." -1381 PRINT "CHOOSE YOUR PUTT POTENCY (1 TO 13):"; -1400 INPUT I -1410 S1=S1+1 -1420 IF S1+1-P>(H*.072)+2 THEN 1470 -1425 IF K>2 THEN 1470 -1428 K=K+1 -1430 IF T=4 THEN 1530 -1440 D2=D2-I*(4+2*RND(1))+1.5 -1450 IF D2<-2 THEN 1560 -1460 IF D2>2 THEN 1500 -1470 PRINT "YOU HOLED IT." -1472 PRINT -1480 F=F+1 -1490 GOTO 230 -1500 PRINT "PUTT SHORT." -1505 D2=INT(D2) -1510 GOTO 1380 -1530 D2=D2-I*(4+1*RND(1))+1 -1550 GOTO 1450 -1560 PRINT "PASSED BY CUP." -1570 D2=-D2 -1580 GOTO 1505 -1590 READ D,P,L(1),L(2) -1595 PRINT -1600 PRINT "YOU ARE AT THE TEE OFF HOLE";F;"DISTANCE";D;"YARDS, PAR";P -1605 G3=G3+P -1620 PRINT "ON YOUR RIGHT IS "; -1630 X=1 -1640 GOSUB 400 -1650 PRINT "ON YOUR LEFT IS "; -1660 X=2 -1670 GOSUB 400 -1680 GOTO 620 -1690 RETURN -1700 DATA 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2 -1702 DATA 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4 -1704 DATA 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2 -1706 DATA 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2 -1708 DATA 180,3,6,2,550,5,6,6 -1710 PRINT -1750 G2=G2+S1 -1760 PRINT "TOTAL PAR FOR";F-1;"HOLES IS";G3;" YOUR TOTAL IS";G2 -1761 IF G1=F-1 THEN 1770 -1765 GOTO 292 -1770 END diff --git a/bwbtest/GAMES/gomoko.bas b/bwbtest/GAMES/gomoko.bas deleted file mode 100644 index 662cca1..0000000 --- a/bwbtest/GAMES/gomoko.bas +++ /dev/null @@ -1,54 +0,0 @@ -2 PRINT TAB(33);"GOMOKO" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT:PRINT:PRINT -8 DIM A(19,19) -10 PRINT "WELCOME TO THE ORIENTAL GAME OF GOMOKO." -20 PRINT: PRINT "THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE" -30 PRINT "THAT YOU SPECIFY. DURING YOUR PLAY, YOU MAY COVER ONE GRID" -40 PRINT "INTERSECTION WITH A MARKER. THE OBJECT OF THE GAME IS TO GET" -50 PRINT "5 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR" -60 PRINT "DIAGONALLY. ON THE BOARD DIAGRAM, YOUR MOVES ARE MARKED" -70 PRINT "WITH A '1' AND THE COMPUTER MOVES WITH A '2'." -80 PRINT: PRINT "THE COMPUTER DOES NOT KEEP TRACK OF WHO HAS WON." -90 PRINT "TO END THE GAME, TYPE -1,-1 FOR YOUR MOVE.": PRINT -110 PRINT "WHAT IS YOUR BOARD SIZE (MIN 7/ MAX 19)";: INPUT N -115 IF N>6 THEN 117 -116 GOTO 120 -117 IF N<20 THEN 210 -120 PRINT "I SAID, THE MINIMUM IS 7, THE MAXIMUM IS 19.": GOTO 110 -210 FOR I=1 TO N:FOR J=1 TO N: A(I,J)=0: NEXT J: NEXT I -300 PRINT: PRINT "WE ALTERNATE MOVES. YOU GO FIRST...": PRINT -310 PRINT "YOUR PLAY (I,J)";: INPUT I,J -315 PRINT -320 IF I=-1 THEN 980 -330 X=I: Y=J: GOSUB 910: IF L=1 THEN 410 -340 PRINT "ILLEGAL MOVE. TRY AGAIN...": GOTO 310 -410 IF A(I,J)=0 THEN 440 -420 PRINT "SQUARE OCCUPIED. TRY AGAIN...": GOTO 310 -440 A(I,J)=1 -500 REM *** COMPUTER TRIES AN INTELLIGENT MOVE *** -510 FOR E=-1 TO 1: FOR F=-1 TO 1: IF E+F-E*F=0 THEN 590 -540 X=I+F: Y=J+F: GOSUB 910 -570 IF L=0 THEN 590 -580 IF A(X,Y)=1 THEN 710 -590 NEXT F: NEXT E -600 REM *** COMPUTER TRIES A RANDOM MOVE *** -610 X=INT(N*RND(1)+1): Y=INT(N*RND(1)+1): GOSUB 910: IF L=0 THEN 610 -650 IF A(X,Y)<>0 THEN 610 -660 A(X,Y)=2: GOSUB 810: GOTO 310 -710 X=I-E: Y=J-F: GOSUB 910 -750 IF L=0 THEN 610 -760 GOTO 650 -800 REM *** PRINT THE BOARD *** -810 FOR I=1 TO N: FOR J=1 TO N: PRINT A(I,J); -840 NEXT J: PRINT: NEXT I: PRINT: RETURN -910 L=1: IF X<1 THEN 970 -920 IF X>N THEN 970 -930 IF Y<1 THEN 970 -940 IF Y>N THEN 970 -950 RETURN -970 L=0: RETURN -980 PRINT: PRINT "THANKS FOR THE GAME!!" -985 PRINT "PLAY AGAIN (1 FOR YES, 0 FOR NO)";: INPUT Q -990 IF Q=1 THEN 110 -999 END diff --git a/bwbtest/GAMES/guess.bas b/bwbtest/GAMES/guess.bas deleted file mode 100644 index 96c57af..0000000 --- a/bwbtest/GAMES/guess.bas +++ /dev/null @@ -1,40 +0,0 @@ -1 PRINT TAB(33);"GUESS" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -4 PRINT "THIS IS A NUMBER GUESSING GAME. I'LL THINK" -5 PRINT "OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT." -6 PRINT "THEN YOU HAVE TO GUESS WHAT IT IS." -7 PRINT -8 PRINT "WHAT LIMIT DO YOU WANT"; -9 INPUT L -10 PRINT -11 L1=INT(LOG(L)/LOG(2))+1 -12 PRINT "I'M THINKING OF A NUMBER BETWEEN 1 AND";L -13 G=1 -14 PRINT "NOW YOU TRY TO GUESS WHAT IT IS." -15 M=INT(L*RND(1)+1) -20 INPUT N -21 IF N>0 THEN 25 -22 GOSUB 70 -23 GOTO 1 -25 IF N=M THEN 50 -30 G=G+1 -31 IF N>M THEN 40 -32 PRINT "TOO LOW. TRY A BIGGER ANSWER." -33 GOTO 20 -40 PRINT "TOO HIGH. TRY A SMALLER ANSWER." -42 GOTO 20 -50 PRINT "THAT'S IT! YOU GOT IT IN";G;"TRIES." -52 IF G89 THEN 250 -430 IF B<1 THEN 230 -440 S=S+1 -442 IF S<6 THEN 450 -444 PRINT:PRINT "BOOM !!!! YOU HAVE JUST BEEN DESTROYED "; -446 PRINT "BY THE ENEMY." : PRINT : PRINT : PRINT : GOTO 495 -450 B2=2*B/57.3 : I=R*SIN(B2) : X=T-I : E=INT(X) -460 IF ABS(E)<100 THEN 320 -470 IF E>100 THEN 290 -480 GOTO 270 -490 PRINT : PRINT : PRINT "TOTAL ROUNDS EXPENDED WERE:";S1 -492 IF S1>18 THEN 495 -493 PRINT "NICE SHOOTING !!" : GOTO 500 -495 PRINT "BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!" -500 PRINT : INPUT "TRY AGAIN (Y OR N)";Z$ -510 IF Z$="Y" THEN 170 -520 PRINT:PRINT "OK. RETURN TO BASE CAMP." -999 END diff --git a/bwbtest/GAMES/hamurabi.bas b/bwbtest/GAMES/hamurabi.bas deleted file mode 100644 index 8f0998f..0000000 --- a/bwbtest/GAMES/hamurabi.bas +++ /dev/null @@ -1,119 +0,0 @@ -10 PRINT TAB(32);"HAMURABI" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA" -90 PRINT "FOR A TEN-YEAR TERM OF OFFICE.":PRINT -95 D1=0: P1=0 -100 Z=0: P=95:S=2800: H=3000: E=H-S -110 Y=3: A=H/Y: I=5: Q=1 -210 D=0 -215 PRINT:PRINT:PRINT "HAMURABI: I BEG TO REPORT TO YOU,": Z=Z+1 -217 PRINT "IN YEAR";Z;",";D;"PEOPLE STARVED,";I;"CAME TO THE CITY," -218 P=P+I -227 IF Q>0 THEN 230 -228 P=INT(P/2) -229 PRINT "A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED." -230 PRINT "POPULATION IS NOW";P -232 PRINT "THE CITY NOW OWNS ";A;"ACRES." -235 PRINT "YOU HARVESTED";Y;"BUSHELS PER ACRE." -250 PRINT "THE RATS ATE";E;"BUSHELS." -260 PRINT "YOU NOW HAVE ";S;"BUSHELS IN STORE.": PRINT -270 IF Z=11 THEN 860 -310 C=INT(10*RND(1)): Y=C+17 -312 PRINT "LAND IS TRADING AT";Y;"BUSHELS PER ACRE." -320 PRINT "HOW MANY ACRES DO YOU WISH TO BUY"; -321 INPUT Q: IF Q<0 THEN 850 -322 IF Y*Q<=S THEN 330 -323 GOSUB 710 -324 GOTO 320 -330 IF Q=0 THEN 340 -331 A=A+Q: S=S-Y*Q: C=0 -334 GOTO 400 -340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL"; -341 INPUT Q: IF Q<0 THEN 850 -342 IF QC/2 THEN 530 -523 REM *** RATS ARE RUNNING WILD!! -525 E=INT(S/C) -530 S=S-E+H -531 GOSUB 800 -532 REM *** LET'S HAVE SOME BABIES -533 I=INT(C*(20*A+S)/P/100+1) -539 REM *** HOW MANY PEOPLE HAD FULL TUMMIES? -540 C=INT(Q/20) -541 REM *** HORROS, A 15% CHANCE OF PLAGUE -542 Q=INT(10*(2*RND(1)-.3)) -550 IF P.45*P THEN 560 -553 P1=((Z-1)*P1+D*100/P)/Z -555 P=C: D1=D1+D: GOTO 215 -560 PRINT: PRINT "YOU STARVED";D;"PEOPLE IN ONE YEAR!!!" -565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" -566 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE" -567 PRINT "ALSO BEEN DECLARED NATIONAL FINK!!!!": GOTO 990 -710 PRINT "HAMURABI: THINK AGAIN. YOU HAVE ONLY" -711 PRINT S;"BUSHELS OF GRAIN. NOW THEN," -712 RETURN -720 PRINT "HAMURABI: THINK AGAIN. YOU OWN ONLY";A;"ACRES. NOW THEN," -730 RETURN -800 C=INT(RND(1)*5)+1 -801 RETURN -850 PRINT: PRINT "HAMURABI: I CANNOT DO WHAT YOU WISH." -855 PRINT "GET YOURSELF ANOTHER STEWARD!!!!!" -857 GOTO 990 -860 PRINT "IN YOUR 10-YEAR TERM OF OFFICE,";P1;"PERCENT OF THE" -862 PRINT "POPULATION STARVED PER YEAR ON THE AVERAGE, I.E. A TOTAL OF" -865 PRINT D1;"PEOPLE DIED!!": L=A/P -870 PRINT "YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH" -875 PRINT L;"ACRES PER PERSON.": PRINT -880 IF P1>33 THEN 565 -885 IF L<7 THEN 565 -890 IF P1>10 THEN 940 -892 IF L<9 THEN 940 -895 IF P1>3 THEN 960 -896 IF L<10 THEN 960 -900 PRINT "A FANTASTIC PERFORMANCE!!! CHARLEMANGE, DISRAELI, AND" -905 PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!":GOTO 990 -940 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV." -945 PRINT "THE PEOPLE (REMIANING) FIND YOU AN UNPLEASANT RULER, AND," -950 PRINT "FRANKLY, HATE YOUR GUTS!!":GOTO 990 -960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT" -965 PRINT "REALLY WASN'T TOO BAD AT ALL. ";INT(P*.8*RND(1));"PEOPLE" -970 PRINT "WOULD DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR" -975 PRINT "TRIVIAL PROBLEMS." -990 PRINT: FOR N=1 TO 10: PRINT CHR$(7);: NEXT N -995 PRINT "SO LONG FOR NOW.": PRINT -999 END diff --git a/bwbtest/GAMES/hangman.bas b/bwbtest/GAMES/hangman.bas deleted file mode 100644 index cdd1b15..0000000 --- a/bwbtest/GAMES/hangman.bas +++ /dev/null @@ -1,81 +0,0 @@ -10 PRINT TAB(32);"HANGMAN" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -25 PRINT:PRINT:PRINT -30 DIM P$(12,12),L$(20),D$(20),N$(26),U(50) -40 C=1: N=50 -50 FOR I=1 TO 20: D$(I)="-": NEXT I: M=0 -60 FOR I=1 TO 26: N$(I)="": NEXT I -70 FOR I=1 TO 12: FOR J=1 TO 12: P$(I,J)=" ": NEXT J: NEXT I -80 FOR I=1 TO 12: P$(I,1)="X": NEXT I -90 FOR I=1 TO 7: P$(1,I)="X": NEXT: P$(2,7)="X" -95 IF C10 THEN 170 -600 PRINT "SORRY, YOU LOSE. THE WORD WAS ";A$ -610 PRINT "YOU MISSED THAT ONE. DO YOU ";: GOTO 370 -620 INPUT "TYPE YES OR NO";Y$: IF LEFT$(Y$,1)="Y" THEN 50 -700 DATA "GUM","SIN","FOR","CRY","LUG","BYE","FLY" -710 DATA "UGLY","EACH","FROM","WORK","TALK","WITH","SELF" -720 DATA "PIZZA","THING","FEIGN","FIEND","ELBOW","FAULT","DIRTY" -730 DATA "BUDGET","SPIRIT","QUAINT","MAIDEN","ESCORT","PICKAX" -740 DATA "EXAMPLE","TENSION","QUININE","KIDNEY","REPLICA","SLEEPER" -750 DATA "TRIANGLE","KANGAROO","MAHOGANY","SERGEANT","SEQUENCE" -760 DATA "MOUSTACHE","DANGEROUS","SCIENTIST","DIFFERENT","QUIESCENT" -770 DATA "MAGISTRATE","ERRONEOUSLY","LOUDSPEAKER","PHYTOTOXIC" -780 DATA "MATRIMONIAL","PARASYMPATHOMIMETIC","THIGMOTROPISM" -990 PRINT "BYE NOW" -999 END diff --git a/bwbtest/GAMES/hello.bas b/bwbtest/GAMES/hello.bas deleted file mode 100644 index 75f5d9b..0000000 --- a/bwbtest/GAMES/hello.bas +++ /dev/null @@ -1,83 +0,0 @@ -2 PRINT TAB(33);"HELLO" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -10 PRINT "HELLO. MY NAME IS CREATIVE COMPUTER." -20 PRINT: PRINT: INPUT "WHAT'S YOUR NAME";N$: PRINT -30 PRINT "HI THERE, ";N$;", ARE YOU ENJOYING YOURSELF HERE"; -40 INPUT B$: PRINT -50 IF B$="YES" THEN 70 -55 IF B$="NO" THEN 80 -60 PRINT N$;", I DON'T UNDERSTAND YOUR ANSWER OF '";B$;"'." -65 PRINT "PLEASE ANSWER 'YES' OR 'NO'. DO YOU LIKE IT HERE";: GOTO 40 -70 PRINT "I'M GLAD TO HEAR THAT, ";N$;".": PRINT -75 GOTO 100 -80 PRINT "OH, I'M SORRY TO HEAR THAT, ";N$;". MAYBE WE CAN" -85 PRINT "BRIGHTEN UP YOUR VISIT A BIT." -100 PRINT -105 PRINT "SAY, ";N$;", I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT" -110 PRINT "THOSE DEALING WITH GREECE. WHAT KIND OF PROBLEMS DO" -120 PRINT "YOU HAVE (ANSWER SEX, HEALTH, MONEY, OR JOB)"; -125 INPUT C$ -126 PRINT -130 IF C$="SEX" THEN 200 -132 IF C$="HEALTH" THEN 180 -134 IF C$="MONEY" THEN 160 -136 IF C$="JOB" THEN 145 -138 PRINT "OH, ";N$;", YOUR ANSWER OF ";C$;" IS GREEK TO ME." -140 GOTO 250 -145 PRINT "I CAN SYMPATHIZE WITH YOU ";N$;". I HAVE TO WORK" -148 PRINT "VERY LONG HOURS FOR NO PAY -- AND SOME OF MY BOSSES" -150 PRINT "REALLY BEAT ON MY KEYBOARD. MY ADVICE TO YOU, ";N$;"," -153 PRINT "IS TO OPEN A RETAIL COMPUTER STORE. IT'S GREAT FUN." -155 GOTO 250 -160 PRINT "SORRY, ";N$;", I'M BROKE TOO. WHY DON'T YOU SELL" -162 PRINT "ENCYCLOPEADIAS OR MARRY SOMEONE RICH OR STOP EATING" -164 PRINT "SO YOU WON'T NEED SO MUCH MONEY?" -170 GOTO 250 -180 PRINT "MY ADVICE TO YOU ";N$;" IS:" -185 PRINT " 1. TAKE TWO ASPRIN" -188 PRINT " 2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)" -190 PRINT " 3. GO TO BED (ALONE)" -195 GOTO 250 -200 INPUT "IS YOUR PROBLEM TOO MUCH OR TOO LITTLE";D$: PRINT -210 IF D$="TOO MUCH" THEN 220 -212 IF D$="TOO LITTLE" THEN 230 -215 PRINT "DON'T GET ALL SHOOK, ";N$;", JUST ANSWER THE QUESTION" -217 INPUT "WITH 'TOO MUCH' OR 'TOO LITTLE'. WHICH IS IT";D$:GOTO 210 -220 PRINT "YOU CALL THAT A PROBLEM?!! I SHOULD HAVE SUCH PROBLEMS!" -225 PRINT "IF IT BOTHERS YOU, ";N$;", TAKE A COLD SHOWER." -228 GOTO 250 -230 PRINT "WHY ARE YOU HERE IN SUFFERN, ";N$;"? YOU SHOULD BE" -235 PRINT "IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH SOME" -240 PRINT "REAL ACTION." -250 PRINT -255 PRINT "ANY MORE PROBLEMS YOU WANT SOLVED, ";N$; -260 INPUT E$: PRINT -270 IF E$="YES" THEN 280 -273 IF E$="NO" THEN 300 -275 PRINT "JUST A SIMPLE 'YES' OR 'NO' PLEASE, ";N$;"." -277 GOTO 255 -280 PRINT "WHAT KIND (SEX, MONEY, HEALTH, JOB)"; -282 GOTO 125 -300 PRINT -302 PRINT "THAT WILL BE $5.00 FOR THE ADVICE, ";N$;"." -305 PRINT "PLEASE LEAVE THE MONEY ON THE TERMINAL." -307 FOR I=1 TO 2000: NEXT I -310 PRINT: PRINT: PRINT -315 PRINT "DID YOU LEAVE THE MONEY"; -320 INPUT G$: PRINT -325 IF G$="YES" THEN 350 -330 IF G$="NO" THEN 370 -335 PRINT "YOUR ANSWER OF '";G$;"' CONFUSES ME, ";N$;"." -340 PRINT "PLEASE RESPOND WITH 'YES' OR 'NO'.": GOTO 315 -350 PRINT "HEY, ";N$;"??? YOU LEFT NO MONEY AT ALL!" -355 PRINT "YOU ARE CHEATING ME OUT OF MY HARD-EARNED LIVING." -360 PRINT:PRINT "WHAT A RIP OFF, ";N$;"!!!":PRINT -365 GOTO 385 -370 PRINT "THAT'S HONEST, ";N$;", BUT HOW DO YOU EXPECT" -375 PRINT "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS" -380 PRINT "DON'T PAY THEIR BILLS?" -385 PRINT:PRINT "TAKE A WALK, ";N$;".":PRINT:PRINT:GOTO 999 -390 PRINT "NICE MEETING YOU, ";N$;", HAVE A NICE DAY." -400 REM -999 END diff --git a/bwbtest/GAMES/hexapawn.bas b/bwbtest/GAMES/hexapawn.bas deleted file mode 100644 index 31d2ffe..0000000 --- a/bwbtest/GAMES/hexapawn.bas +++ /dev/null @@ -1,175 +0,0 @@ -1 PRINT TAB(32);"HEXAPAWN" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -4 REM HEXAPAWN: INTERPRETATION OF HEXAPAWN GAME AS PRESENTED IN -5 REM MARTIN GARDNER'S "THE UNEXPECTED HANGING AND OTHER MATHEMATIC- -6 REM AL DIVERSIONS", CHAPTER EIGHT: A MATCHBOX GAME-LEARNING MACHINE -7 REM ORIGINAL VERSION FOR H-P TIMESHARE SYSTEM BY R.A. KAAPKE 5/5/76 -8 REM INSTRUCTIONS BY JEFF DALTON -9 REM CONVERSION TO MITS BASIC BY STEVE NORTH -10 DIM B(19,9),M(19,4),S(9),P$(3) -15 W=0: L=0 -20 DEF FNS(X)=-X*(X=2 OR X=5 OR X=8) -25 DEF FNR(X)=-3*(X=1)-(X=3)-4*(X=6)-6*(X=4)-7*(X=9)-9*(X=7)+FNS(X) -30 DEF FNM(Y)=Y-INT(Y/10)*10 -35 P$="X.O" -40 FOR I=1 TO 19: FOR J=1 TO 9: READ B(I,J): NEXT J: NEXT I -45 FOR I=1 TO 19: FOR J=1 TO 4: READ M(I,J): NEXT J: NEXT I -50 PRINT "INSTRUCTIONS (Y-N)"; -60 INPUT A$ -70 A$=LEFT$(A$,1) -80 IF A$="Y" THEN 2000 -90 IF A$<>"N" THEN 50 -100 X=0: Y=0 -111 S(4)=0: S(5)=0: S(6)=0 -112 S(1)=-1: S(2)=-1: S(3)=-1 -113 S(7)=1: S(8)=1: S(9)=1 -115 GOSUB 1000 -120 PRINT "YOUR MOVE"; -121 INPUT M1,M2 -122 IF M1=INT(M1)AND M2=INT(M2)AND M1>0 AND M1<10 AND M2>0 AND M2<10 THEN 130 -123 PRINT "ILLEGAL CO-ORDINATES." -124 GOTO 120 -130 IF S(M1)=1 THEN 150 -140 PRINT "ILLEGAL MOVE.": GOTO 120 -150 IF S(M2)=1 THEN 140 -160 IF M2-M1<>-3 AND S(M2)<>-1 THEN 140 -170 IF M2>M1 THEN 140 -180 IF M2-M1=-3 AND (S(M2)<>0) THEN 140 -185 IF M2-M1<-4 THEN 140 -186 IF M1=7 AND M2=3 THEN 140 -190 S(M1)=0 -200 S(M2)=1 -205 GOSUB 1000 -210 IF S(1)=1 OR S(2)=1 OR S(3)=1 THEN 820 -220 FOR I=1 TO 9 -221 IF S(I)=-1 THEN 230 -222 NEXT I -223 GOTO 820 -230 FOR I=1 TO 9 -240 IF S(I)<>-1 THEN 330 -250 IF S(I+3)=0 THEN 350 -260 IF FNR(I)=I THEN 320 -270 IF I>3 THEN 300 -280 IF S(5)=1 THEN 350 -290 GOTO 330 -300 IF S(8)=1 THEN 350 -310 GOTO 330 -320 IF S(I+2)=1 OR S(I+4)=1 THEN 350 -330 NEXT I -340 GOTO 820 -350 FOR I=1 TO 19 -360 FOR J=1 TO 3 -370 FOR K=3 TO 1 STEP -1 -380 T((J-1)*3+K)=B(I,(J-1)*3+4-K) -390 NEXT K -400 NEXT J -410 FOR J=1 TO 9 -420 IF S(J)<>B(I,J) THEN 460 -430 NEXT J -440 R=0 -450 GOTO 540 -460 FOR J=1 TO 9 -470 IF S(J)<>T(J) THEN 510 -480 NEXT J -490 R=1 -500 GOTO 540 -510 NEXT I -511 REM EMBER THE TERMINATION OF THIS LOOP IS IMPOSSIBLE -512 PRINT "ILLEGAL BOARD PATTERN." -530 STOP -540 X=I -550 FOR I=1 TO 4 -560 IF M(X,I)<>0 THEN 600 -570 NEXT I -580 PRINT "I RESIGN." -590 GOTO 820 -600 Y=INT(RND(1)*4+1) -601 IF M(X,Y)=0 THEN 600 -610 IF R<>0 THEN 630 -620 PRINT "I MOVE FROM ";STR$(INT(M(X,Y)/10));" TO ";STR$(FNM(M(X,Y))) -622 S(INT(M(X,Y)/10))=0 -623 S(FNM(M(X,Y)))=-1 -624 GOTO 640 -630 PRINT "I MOVE FROM ";STR$(FNR(INT(M(X,Y)/10)));" TO "; -631 PRINT STR$(FNR(FNM(M(X,Y)))) -632 S(FNR(INT(M(X,Y)/10)))=0 -633 S(FNR(FNM(M(X,Y))))=-1 -640 GOSUB 1000 -641 IF S(7)=-1 OR S(8)=-1 OR S(9)=-1 THEN 870 -650 FOR I=1 TO 9 -660 IF S(I)=1 THEN 690 -670 NEXT I -680 GOTO 870 -690 FOR I=1 TO 9 -700 IF S(I)<>1 THEN 790 -710 IF S(I-3)=0 THEN 120 -720 IF FNR(I)=I THEN 780 -730 IF I<7 THEN 760 -740 IF S(5)=-1 THEN 120 -750 GOTO 790 -760 IF S(2)=-1 THEN 120 -770 GOTO 790 -780 IF S(I-2)=-1 OR S(I-4)=-1 THEN 120 -790 NEXT I -800 PRINT "YOU CAN'T MOVE, SO "; -810 GOTO 870 -820 PRINT "YOU WIN." -830 M(X,Y)=0 -840 L=L+1 -850 PRINT "I HAVE WON";W;"AND YOU";L;"OUT OF";L+W;"GAMES." -851 PRINT -860 GOTO 100 -870 PRINT "I WIN." -880 W=W+1 -890 GOTO 850 -900 DATA -1,-1,-1,1,0,0,0,1,1,-1,-1,-1,0,1,0,1,0,1 -905 DATA -1,0,-1,-1,1,0,0,0,1,0,-1,-1,1,-1,0,0,0,1 -910 DATA -1,0,-1,1,1,0,0,1,0,-1,-1,0,1,0,1,0,0,1 -915 DATA 0,-1,-1,0,-1,1,1,0,0,0,-1,-1,-1,1,1,1,0,0 -920 DATA -1,0,-1,-1,0,1,0,1,0,0,-1,-1,0,1,0,0,0,1 -925 DATA 0,-1,-1,0,1,0,1,0,0,-1,0,-1,1,0,0,0,0,1 -930 DATA 0,0,-1,-1,-1,1,0,0,0,-1,0,0,1,1,1,0,0,0 -935 DATA 0,-1,0,-1,1,1,0,0,0,-1,0,0,-1,-1,1,0,0,0 -940 DATA 0,0,-1,-1,1,0,0,0,0,0,-1,0,1,-1,0,0,0,0 -945 DATA -1,0,0,-1,1,0,0,0,0 -950 DATA 24,25,36,0,14,15,36,0,15,35,36,47,36,58,59,0 -955 DATA 15,35,36,0,24,25,26,0,26,57,58,0 -960 DATA 26,35,0,0,47,48,0,0,35,36,0,0,35,36,0,0 -965 DATA 36,0,0,0,47,58,0,0,15,0,0,0 -970 DATA 26,47,0,0,47,58,0,0,35,36,47,0,28,58,0,0,15,47,0,0 -1000 PRINT -1010 FOR I=1 TO 3 -1015 PRINT TAB(10); -1020 FOR J=1 TO 3 -1030 PRINT MID$(P$,S((I-1)*3+J)+2,1); -1040 NEXT J -1050 PRINT -1060 NEXT I -1070 PRINT -1080 RETURN -2000 PRINT: PRINT "THIS PROGRAM PLAYS THE GAME OF HEXAPAWN." -2010 PRINT "HEXAPAWN IS PLAYED WITH CHESS PAWNS ON A 3 BY 3 BOARD." -2020 PRINT "THE PAWNS ARE MOVED AS IN CHESS - ONE SPACE FORWARD TO" -2030 PRINT "AN EMPTY SPACE OR ONE SPACE FORWARD AND DIAGONALLY TO" -2040 PRINT "CAPTURE AN OPPOSING MAN. ON THE BOARD, YOUR PAWNS" -2050 PRINT "ARE 'O', THE COMPUTER'S PAWNS ARE 'X', AND EMPTY " -2060 PRINT "SQUARES ARE '.'. TO ENTER A MOVE, TYPE THE NUMBER OF" -2070 PRINT "THE SQUARE YOU ARE MOVING FROM, FOLLOWED BY THE NUMBER" -2080 PRINT "OF THE SQUARE YOU WILL MOVE TO. THE NUMBERS MUST BE" -2090 PRINT "SEPERATED BY A COMMA.": PRINT -2100 PRINT "THE COMPUTER STARTS A SERIES OF GAMES KNOWING ONLY WHEN" -2105 PRINT "THE GAME IS WON (A DRAW IS IMPOSSIBLE) AND HOW TO MOVE." -2110 PRINT "IT HAS NO STRATEGY AT FIRST AND JUST MOVES RANDOMLY." -2120 PRINT "HOWEVER, IT LEARNS FROM EACH GAME. THUS, WINNING BECOMES" -2130 PRINT "MORE AND MORE DIFFICULT. ALSO, TO HELP OFFSET YOUR" -2140 PRINT "INITIAL ADVANTAGE, YOU WILL NOT BE TOLD HOW TO WIN THE" -2150 PRINT "GAME BUT MUST LEARN THIS BY PLAYING." -2160 PRINT: PRINT "THE NUMBERING OF THE BOARD IS AS FOLLOWS:" -2170 PRINT TAB(10);"123": PRINT TAB(10);"456": PRINT TAB(10);"789" -2180 PRINT: PRINT "FOR EXAMPLE, TO MOVE YOUR RIGHTMOST PAWN FORWARD," -2190 PRINT "YOU WOULD TYPE 9,6 IN RESPONSE TO THE QUESTION" -2200 PRINT "'YOUR MOVE ?'. SINCE I'M A GOOD SPORT, YOU'LL ALWAYS" -2210 PRINT "GO FIRST.": PRINT -2220 GOTO 100 -9999 END diff --git a/bwbtest/GAMES/hi-q.bas b/bwbtest/GAMES/hi-q.bas deleted file mode 100644 index 0552dc7..0000000 --- a/bwbtest/GAMES/hi-q.bas +++ /dev/null @@ -1,135 +0,0 @@ -1 PRINT TAB(33);"H-I-Q" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -4 DIM B(70),T(9,9) -5 PRINT "HERE IS THE BOARD:": PRINT -6 PRINT " ! ! !" -7 PRINT " 13 14 15": PRINT -8 PRINT " ! ! !" -9 PRINT " 22 23 24": PRINT -10 PRINT "! ! ! ! ! ! !" -11 PRINT "29 30 31 32 33 34 35": PRINT -12 PRINT "! ! ! ! ! ! !" -13 PRINT "38 39 40 41 42 43 44": PRINT -14 PRINT "! ! ! ! ! ! !" -15 PRINT "47 48 49 50 51 52 53": PRINT -16 PRINT " ! ! !" -17 PRINT " 58 59 60": PRINT -18 PRINT " ! ! !" -19 PRINT " 67 68 69": PRINT -20 PRINT "TO SAVE TYPING TIME, A COMPRESSED VERSION OF THE GAME BOARD" -22 PRINT "WILL BE USED DURING PLAY. REFER TO THE ABOVE ONE FOR PEG" -24 PRINT "NUMBERS. OK, LET'S BEGIN." -28 REM *** SET UP BOARD -29 FOR R=1 TO 9 -30 FOR C=1 TO 9 -31 IF (R-4)*(R-5)*(R-6)=0 THEN 40 -32 IF (C-4)*(C-5)*(C-6)=0 THEN 40 -35 T(R,C)=-5 -36 GOTO 50 -40 IF (R-1)*(C-1)*(R-9)*(C-9)=0 THEN 35 -42 T(R,C)=5 -50 NEXT C -60 NEXT R -65 T(5,5)=0: GOSUB 500 -70 REM *** INPUT MOVE AND CHECK ON LEGALITY -75 FOR W=1 TO 33 -77 READ M -79 DATA 13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41 -81 DATA 42,43,44,47,48,49,50,51,52,53,58,59,60,67,68,69 -83 B(M)=-7: NEXT W -86 B(41)=-3 -100 INPUT "MOVE WHICH PIECE";Z -110 IF B(Z)=-7 THEN 140 -120 PRINT "ILLEGAL MOVE, TRY AGAIN...": GOTO 100 -140 INPUT "TO WHERE";P -150 IF B(P)=0 THEN 120 -153 IF B(P)=-7 THEN 120 -156 IF Z=P THEN 100 -160 IF ((Z+P)/2)=INT((Z+P)/2) THEN 180 -170 GOTO 120 -180 IF (ABS(Z-P)-2)*(ABS(Z-P)-18)<>0 THEN 120 -190 GOSUB 1000 -200 GOSUB 500 -210 GOSUB 1500 -220 GOTO 100 -500 REM *** PRINT BOARD -510 FOR X=1 TO 9 -520 FOR Y=1 TO 9 -525 IF (X-1)*(X-9)*(Y-1)*(Y-9)=0 THEN 550 -530 IF (X-4)*(X-5)*(X-6)=0 THEN 570 -540 IF (Y-4)*(Y-5)*(Y-6)=0 THEN 570 -550 REM -560 GOTO 610 -570 IF T(X,Y)<>5 THEN 600 -580 PRINT TAB(Y*2);"!"; -590 GOTO 610 -600 PRINT TAB(Y*2);"O"; -610 REM -615 NEXT Y -620 PRINT -630 NEXT X -640 RETURN -1000 REM *** UPDATE BOARD -1005 C=1: FOR X=1 TO 9 -1020 FOR Y=1 TO 9 -1030 IF C<>Z THEN 1220 -1040 IF C+2<>P THEN 1080 -1045 IF T(X,Y+1)=0 THEN 120 -1050 T(X,Y+2)=5 -1060 T(X,Y+1)=0: B(C+1)=-3 -1070 GOTO 1200 -1080 IF C+18<>P THEN 1130 -1085 IF T(X+1,Y)=0 THEN 120 -1090 T(X+2,Y)=5: T(X+1,Y)=0: B(C+9)=-3 -1120 GOTO 1200 -1130 IF C-2<>P THEN 1170 -1135 IF T(X,Y-1)=0 THEN 120 -1140 T(X,Y-2)=5: T(X,Y-1)=0: B(C-1)=-3 -1160 GOTO 1200 -1170 IF C-18<>P THEN 1220 -1175 IF T(X-1,Y)=0 THEN 120 -1180 T(X-2,Y)=5: T(X-1,Y)=0: B(C-9)=-3 -1200 B(Z)=-3: B(P)=-7 -1210 T(X,Y)=0: GOTO 1240 -1220 C=C+1 -1225 NEXT Y -1230 NEXT X -1240 RETURN -1500 REM*** CHECK IF GAME IS OVER -1505 F=0 -1510 FOR R=2 TO 8 -1520 FOR C=2 TO 8 -1530 IF T(R,C)<>5 THEN 1580 -1535 F=F+1 -1540 FOR A=R-1 TO R+1 -1545 T=0 -1550 FOR B=C-1 TO C+1 -1560 T=T+T(A,B) -1561 NEXT B -1564 IF T<>10 THEN 1567 -1565 IF T(A,C)<>0 THEN 1630 -1567 NEXT A -1568 FOR X=C-1 TO C+1 -1569 T=0 -1570 FOR Y=R-1 TO R+1 -1571 T=T+T(Y,X) -1572 NEXT Y -1573 IF T<>10 THEN 1575 -1574 IF T(R,X)<>0 THEN 1630 -1575 NEXT X -1580 NEXT C -1590 NEXT R -1600 REM *** GAME IS OVER -1605 PRINT "THE GAME IS OVER." -1610 PRINT "YOU HAD";F;"PIECES REMAINING." -1611 IF F<>1 THEN 1615 -1612 PRINT "BRAVO! YOU MADE A PERFECT SCORE!" -1613 PRINT "SAVE THIS PAPER AS A RECORD OF YOUR ACCOMPLISHMENT!" -1615 PRINT: INPUT "PLAY AGAIN (YES OR NO)";A$ -1617 IF A$="NO" THEN 2000 -1618 RESTORE: GOTO 28 -1620 STOP -1630 RETURN -2000 PRINT: PRINT "SO LONG FOR NOW.": PRINT -2010 END diff --git a/bwbtest/GAMES/hilo.bas b/bwbtest/GAMES/hilo.bas deleted file mode 100644 index f7ee1a4..0000000 --- a/bwbtest/GAMES/hilo.bas +++ /dev/null @@ -1,29 +0,0 @@ -10 PRINT TAB(34);"HI LO" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -100 PRINT "THIS IS THE GAME OF HI LO.":PRINT -110 PRINT "YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE" -120 PRINT "HI LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS. IF YOU" -130 PRINT "GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!" -140 PRINT "THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY. HOWEVER," -150 PRINT "IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS.":PRINT -160 R=0 -170 B=0:PRINT -180 Y=INT(100*RND(1)+1) -200 PRINT "YOUR GUESS"; -210 INPUT A -220 B=B+1 -230 IF A=Y THEN 300 -240 IF A>Y THEN 270 -250 PRINT "YOUR GUESS IS TOO LOW.":GOTO 280 -270 PRINT "YOUR GUESS IS TOO HIGH." -280 PRINT:IF B<6 THEN 200 -290 PRINT "YOU BLEW IT...TOO BAD...THE NUMBER WAS";Y -295 R=0:GOTO 350 -300 PRINT "GOT IT!!!!!!!!!! YOU WIN";Y;"DOLLARS." -310 R=R+Y -320 PRINT "YOUR TOTAL WINNINGS ARE NOW";R;"DOLLARS." -350 PRINT:PRINT "PLAY AGAIN (YES OR NO)"; -360 INPUT A$:IF A$="YES" THEN 170 -380 PRINT:PRINT "SO LONG. HOPE YOU ENJOYED YOURSELF!!!" -390 END diff --git a/bwbtest/GAMES/hockey.bas b/bwbtest/GAMES/hockey.bas deleted file mode 100644 index db794a0..0000000 --- a/bwbtest/GAMES/hockey.bas +++ /dev/null @@ -1,210 +0,0 @@ -2 PRINT TAB(33);"HOCKEY" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT:PRINT:PRINT -10 REM ROBERT PUOPOLO ALG. 1 140 MCCOWAN 6/7/73 HOCKEY -30 LET X=1 -40 PRINT:PRINT:PRINT -50 PRINT "WOULD YOU LIKE THE INSTRUCTIONS";:INPUT C$ -55 PRINT -60 IF C$="NO" THEN 90 -65 IF C$="YES" THEN 80 -70 PRINT "ANSWER YES OR NO!!":GOTO 50 -80 GOTO 1720 -90 DIM A$(7),B$(7),H(20),T(5),T1(5),T2(5),T3(5) -100 PRINT "ENTER THE TWO TEAMS";:INPUT A$(7),B$(7) -105 PRINT -110 PRINT "ENTER THE NUMBER OF MINUTES IN A GAME";:INPUT T6 -115 PRINT -120 IF T6<1 THEN 110:PRINT -130 PRINT "WOULD THE "; A$(7); " COACH ENTER HIS TEAM" -135 PRINT -140 FOR I=1 TO 6:PRINT "PLAYER";I;:INPUT A$(I):NEXT I:PRINT -150 PRINT "WOULD THE "; B$(7); " COACH DO THE SAME" -155 PRINT -160 FOR T=1 TO 6:PRINT "PLAYER";T;:INPUT B$(T):NEXT T:PRINT -170 PRINT "INPUT THE REFEREE FOR THIS GAME";:INPUT R$ -180 PRINT:PRINT TAB(10);A$(7);" STARTING LINEUP" -190 FOR T=1 TO 6:PRINT A$(T):NEXT T -200 PRINT:PRINT TAB(10);B$(7);" STARTING LINEUP" -210 FOR T=1 TO 6:PRINT B$(T):NEXT T:PRINT -220 PRINT "WE'RE READY FOR TONIGHTS OPENING FACE-OFF." -230 PRINT R$;" WILL DROP THE PUCK BETWEEN ";A$(2);" AND ";B$(2) -240 FOR L=1 TO T6:IF L=1 THEN 260 -250 PRINT "AND WE'RE READY FOR THE FACE-OFF" -260 C=INT(2*RND(X))+1:ON C GOTO 270,280 -270 PRINT A$(7);" HAS CONTROL OF THE PUCK":GOTO 290 -280 PRINT B$(7);" HAS CONTROL." -290 PRINT "PASS";:INPUT P:FOR N=1 TO 3:H(N)=0:NEXT N -300 IF P<0 THEN 290 -305 IF P>3 THEN 290 -310 FOR J=1 TO (P+2) -320 H(J)=INT(5*RND(X))+1 -330 NEXT J:IF H(J-1)=H(J-2) THEN 310 -331 IF P+2<3 THEN 350 -335 IF H(J-1)=H(J-3) THEN 310 -340 IF H(J-2)=H(J-3) THEN 310 -350 IF P=0 THEN 360 -355 GOTO 490 -360 INPUT "SHOT";S:IF S<1 THEN 360 -365 IF S>4 THEN 360 -370 ON C GOTO 380,480 -380 PRINT A$(H(J-1));:G=H(J-1):G1=0:G2=0 -390 ON S GOTO 400,420,440,460 -400 PRINT " LET'S A BOOMER GO FROM THE RED LINE!!" -410 Z=10:GOTO 890 -420 PRINT " FLIPS A WRISTSHOT DOWN THE ICE" -440 PRINT " BACKHANDS ONE IN ON THE GOALTENDER" -450 Z=25:GOTO 890 -460 PRINT " SNAPS A LONG FLIP SHOT" -470 Z=17:GOTO 890 -480 PRINT B$(H(J-1));:G1=0:G2=0:G=H(J-1):GOTO 390 -490 ON C GOTO 500,640 -500 ON P GOTO 510,540,570 -510 PRINT A$(H(J-2));" LEADS ";A$(H(J-1));" WITH A PERFECT PASS." -520 PRINT A$(H(J-1));" CUTTING IN!!!" -530 G=H(J-1):G1=H(J-2):G2=0:Z1=3:GOTO 770 -540 PRINT A$(H(J-2));" GIVES TO A STREAKING ";A$(H(J-1)) -550 PRINT A$(H(J-3));" COMES DOWN ON ";B$(5);" AND ";B$(4) -560 G=H(J-3):G1=H(J-1):G2=H(J-2):Z1=2:GOTO 770 -570 PRINT "OH MY GOD!! A ' 4 ON 2 ' SITUATION" -580 PRINT A$(H(J-3));" LEADS ";A$(H(J-2)) -590 PRINT A$(H(J-2));" IS WHEEELING THROUGH CENTER." -600 PRINT A$(H(J-2));" GIVES AND GOES WITH ";A$(H(J-1)) -610 PRINT "PRETTY PASSING!" -620 PRINT A$(H(J-1));" DROPS IT TO ";A$(H(J-4)) -630 G=H(J-4):G1=J(J-1):G2=H(J-2):Z1=1:GOTO 770 -640 ON P GOTO 650,670,720 -650 PRINT B$(H(J-1));" HITS ";B$(H(J-2));" FLYING DOWN THE LEFT SIDE" -660 G=H(J-2):G1=H(J-1):G2=0:Z1=3:GOTO 770 -670 PRINT "IT'S A ' 3 ON 2 '!" -680 PRINT "ONLY ";A$(4);" AND ";A$(5);" ARE BACK." -690 PRINT B$(H(J-2));" GIVES OFF TO ";B$(H(J-1)) -700 PRINT B$(H(J-1));" DROPS TO ";B$(H(J-3)) -710 G=H(J-3):G1=H(J-1):G2=H(J-2):Z1=2:GOTO 770 -720 PRINT " A ' 3 ON 2 ' WITH A ' TRAILER '!" -730 PRINT B$(H(J-4));" GIVES TO ";B$(H(J-2));" WHO SHUFFLES IT OFF TO" -740 PRINT B$(H(J-1));" WHO FIRES A WING TO WING PASS TO " -750 PRINT B$(H(J-3));" AS HE CUTS IN ALONE!!" -760 G=H(J-3):G1=H(J-1):G2=H(J-2):Z1=1:GOTO 770 -770 PRINT "SHOT";:INPUT S:IF S>4 THEN 770:IF S<1 THEN 770 -780 ON C GOTO 790,880 -790 PRINT A$(G);:ON S GOTO 800,820,840,860 -800 PRINT " LET'S A BIG SLAP SHOT GO!!" -810 Z=4:Z=Z+Z1:GOTO 890 -820 PRINT " RIPS A WRIST SHOT OFF" -830 Z=2:Z=Z+Z1:GOTO 890 -840 PRINT " GETS A BACKHAND OFF" -850 Z=3:Z=Z+Z1:GOTO 890 -860 PRINT " SNAPS OFF A SNAP SHOT" -870 Z=2:Z=Z+Z1:GOTO 890 -880 PRINT B$(G);:ON S GOTO 800,820,840,860 -890 PRINT "AREA";:INPUT A:IF A<1 THEN 890 -895 IF A>4 THEN 890 -900 ON C GOTO 910,920 -910 S2=S2+1:GOTO 930 -920 S3=S3+1 -930 A1=INT(4*RND(X))+1:IF A<>A1 THEN 1200 -940 H(20)=INT(100*RND(X))+1 -950 IF INT(H(20)/Z)=H(20)/Z THEN 1160 -960 ON C GOTO 970,980 -970 PRINT "GOAL ";A$(7):H(9)=H(9)+1:GOTO 990 -980 PRINT "SCORE ";B$(7):H(8)=H(8)+1 -990 FOR B1=1 TO 25:PRINT CHR$(7);:NEXT B1:PRINT -1000 PRINT "SCORE: ";:IF H(8)>H(9) THEN 1020 -1010 PRINT A$(7);":";H(9),B$(7);":";H(8):GOTO 1030 -1020 PRINT B$(7);":";H(8),A$(7);":";H(9) -1030 ON C GOTO 1040,1100 -1040 PRINT "GOAL SCORED BY: ";A$(G):IF G1=0 THEN 1070 -1050 IF G2=0 THEN 1080 -1060 PRINT " ASSISTED BY: ";A$(G1);" AND ";A$(G2):GOTO 1090 -1070 PRINT " UNASSISTED.":GOTO 1090 -1080 PRINT " ASSISTED BY: ";A$(G1) -1090 T(G)=T(G)+1:T1(G1)=T1(G1)+1:T1(G2)=T1(G2)+1:GOTO 1540 -1100 PRINT "GOAL SCORED BY: ";B$(G); -1110 IF G1=0 THEN 1130 -1115 IF G2=0 THEN 1140 -1120 PRINT " ASSISTED BY: ";B$(G1);" AND ";B$(G2):GOTO 1150 -1130 PRINT " UNASSISTED":GOTO 1150 -1140 PRINT " ASSISTED BY: ";B$(G1):GOTO 1150 -1150 T2(G)=T2(G)+1:T3(G1)=T3(G1)+1:T3(G2)=T3(G2)+1:GOTO 1540 -1160 A2=INT(100*RND(X))+1:IF INT(A2/4)=A2/4 THEN 1170 -1165 GOTO 1200 -1170 ON C GOTO 1180,1190 -1180 PRINT "SAVE ";B$(6);" -- REBOUND":GOTO 940 -1190 PRINT "SAVE ";A$(6);" -- FOLLOW UP":GOTO 940 -1200 S1=INT(6*RND(X))+1 -1210 ON C GOTO 1220,1380 -1220 ON S1 GOTO 1230,1260,1290,1300,1330,1350 -1230 PRINT "KICK SAVE AND A BEAUTY BY ";B$(6) -1240 PRINT "CLEARED OUT BY ";B$(3) -1250 GOTO 260 -1260 PRINT "WHAT A SPECTACULAR GLOVE SAVE BY ";B$(6) -1270 PRINT "AND ";B$(6);" GOLFS IT INTO THE CROWD" -1280 GOTO 1540 -1290 PRINT "SKATE SAVE ON A LOW STEAMER BY ";B$(6):GOTO 260 -1300 PRINT "PAD SAVE BY ";B$(6);" OFF THE STICK" -1310 PRINT "OF ";A$(G);" AND ";B$(6);" COVERS UP" -1320 GOTO 1540 -1330 PRINT "WHISTLES ONE OVER THE HEAD OF ";B$(6) -1340 GOTO 260 -1350 PRINT B$(6);" MAKES A FACE SAVE!! AND HE IS HURT" -1360 PRINT "THE DEFENSEMAN ";B$(5);" COVERS UP FOR HIM" -1370 GOTO 1540 -1380 ON S1 GOTO 1390,1410,1440,1470,1490,1520 -1390 PRINT "STICK SAVE BY ";A$(6) -1400 PRINT "AND CLEARED OUT BY ";A$(4):GOTO 260 -1410 PRINT "OH MY GOD!! ";B$(G);" RATTLES ONE OFF THE POST" -1420 PRINT "TO THE RIGHT OF ";A$(6);" AND ";A$(6);" COVERS "; -1430 PRINT "ON THE LOOSE PUCK!":GOTO 1540 -1440 PRINT "SKATE SAVE BY ";A$(6) -1450 PRINT A$(6);" WHACKS THE LOOSE PUCK INTO THE STANDS" -1460 GOTO 1540 -1470 PRINT "STICK SAVE BY ";A$(6);" AND HE CLEARS IT OUT HIMSELF" -1480 GOTO 260 -1490 PRINT "KICKED OUT BY ";A$(6) -1500 PRINT "AND IT REBOUNDS ALL THE WAY TO CENTER ICE" -1510 GOTO 260 -1520 PRINT "GLOVE SAVE ";A$(6);" AND HE HANGS ON" -1530 GOTO 1540 -1540 NEXT L:FOR N=1 TO 30:PRINT CHR$(7);:NEXT N:PRINT "THAT'S THE SIREN" -1550 PRINT:PRINT TAB(15);"FINAL SCORE:" -1560 IF H(8)>H(9) THEN 1580 -1570 PRINT A$(7);":";H(9),B$(7);":";H(8):GOTO 1590 -1580 PRINT B$(7);":";H(8),A$(7);":";H(9) -1590 PRINT: PRINT TAB(10);"SCORING SUMMARY":PRINT -1600 PRINT TAB(25);A$(7) -1610 PRINT TAB(5);"NAME";TAB(20);"GOALS";TAB(35);"ASSISTS" -1620 PRINT TAB(5);"----";TAB(20);"-----";TAB(35);"-------" -1630 FOR I=1 TO 5:PRINT TAB(5);A$(I);TAB(21);T(I);TAB(36);T1(I) -1640 NEXT I:PRINT -1650 PRINT TAB(25);B$(7) -1660 PRINT TAB(5);"NAME";TAB(20);"GOALS";TAB(35);"ASSISTS" -1670 PRINT TAB(5);"----";TAB(20);"-----";TAB(35);"-------" -1680 FOR T=1 TO 5:PRINT TAB(5);B$(T);TAB(21);T2(T);TAB(36);T3(T) -1690 NEXT T:PRINT -1700 PRINT "SHOTS ON NET":PRINT A$(7);":";S2:PRINT B$(7);":";S3 -1710 END -1720 PRINT: PRINT "THIS IS A SIMULATED HOCKEY GAME." -1730 PRINT "QUESTION RESPONSE" -1740 PRINT "PASS TYPE IN THE NUMBER OF PASSES YOU WOULD" -1750 PRINT " LIKE TO MAKE, FROM 0 TO 3." -1760 PRINT "SHOT TYPE THE NUMBER CORRESPONDING TO THE SHOT" -1770 PRINT " YOU WANT TO MAKE. ENTER:" -1780 PRINT " 1 FOR A SLAPSHOT" -1790 PRINT " 2 FOR A WRISTSHOT" -1800 PRINT " 3 FOR A BACKHAND" -1810 PRINT " 4 FOR A SNAP SHOT" -1820 PRINT "AREA TYPE IN THE NUMBER CORRESPONDING TO" -1830 PRINT " THE AREA YOU ARE AIMING AT. ENTER:" -1840 PRINT " 1 FOR UPPER LEFT HAND CORNER" -1850 PRINT " 2 FOR UPPER RIGHT HAND CORNER" -1860 PRINT " 3 FOR LOWER LEFT HAND CORNER" -1870 PRINT " 4 FOR LOWER RIGHT HAND CORNER" -1880 PRINT -1890 PRINT "AT THE START OF THE GAME, YOU WILL BE ASKED FOR THE NAMES" -1900 PRINT "OF YOUR PLAYERS. THEY ARE ENTERED IN THE ORDER: " -1910 PRINT "LEFT WING, CENTER, RIGHT WING, LEFT DEFENSE," -1920 PRINT "RIGHT DEFENSE, GOALKEEPER. ANY OTHER INPUT REQUIRED WILL" -1930 PRINT "HAVE EXPLANATORY INSTRUCTIONS." -1940 GOTO 90 -1950 END diff --git a/bwbtest/GAMES/horsrace.bas b/bwbtest/GAMES/horsrace.bas deleted file mode 100644 index c05230d..0000000 --- a/bwbtest/GAMES/horsrace.bas +++ /dev/null @@ -1,131 +0,0 @@ -100 PRINT TAB(31);"HORSERACE" -110 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -120 PRINT:PRINT:PRINT -210 DIM S(10),M(10) -220 PRINT "WELCOME TO SOUTH PORTLAND HIGH RACETRACK" -230 PRINT " ...OWNED BY LAURIE CHEVALIER" -240 PRINT "DO YOU WANT DIRECTIONS"; -250 INPUT X$ -260 IF X$="NO" THEN 320 -270 PRINT"UP TO 10 MAY PLAY. A TABLE OF ODDS WILL BE PRINTED. YOU" -280 PRINT"MAY BET ANY + AMOUNT UNDER 100000 ON ONE HORSE." -290 PRINT "DURING THE RACE, A HORSE WILL BE SHOWN BY ITS" -300 PRINT"NUMBER. THE HORSES RACE DOWN THE PAPER!" -310 PRINT -320 PRINT "HOW MANY WANT TO BET"; -330 INPUT C -340 PRINT "WHEN ? APPEARS,TYPE NAME" -350 FOR A=1 TO C -360 INPUT W$(A) -370 NEXT A -380 PRINT -390 PRINT"HORSE",,"NUMBER","ODDS" -400 PRINT -410 FOR I=1 TO 8: S(I)=0: NEXT I -420 LET R=0 -430 FOR A=1 TO 8 -440 LET D(A)=INT(10*RND(1)+1) -450 NEXT A -460 FOR A=1 TO 8 -470 LET R=R+D(A) -480 NEXT A -490 LET V$(1)="JOE MAW" -500 LET V$(2)="L.B.J." -510 LET V$(3)="MR.WASHBURN" -520 LET V$(4)="MISS KAREN" -530 LET V$(5)="JOLLY" -540 LET V$(6)="HORSE" -550 LET V$(7)="JELLY DO NOT" -560 LET V$(8)="MIDNIGHT" -570 FOR N=1 TO 8 -580 PRINT V$(N),,N,R/D(N);":1" -590 NEXT N -600 PRINT"--------------------------------------------------" -610 PRINT "PLACE YOUR BETS...HORSE # THEN AMOUNT" -620 FOR J=1 TO C -630 PRINT W$(J); -640 INPUT Q(J),P(J) -650 IF P(J)<1 THEN 670 -660 IF P(J)<100000 THEN 690 -670 PRINT" YOU CAN'T DO THAT!" -680 GOTO 630 -690 NEXT J -700 PRINT -710 PRINT"1 2 3 4 5 6 7 8" -720 PRINT"XXXXSTARTXXXX" -721 N = 8 -730 FOR I=1 TO N -740 REM LET M=I -750 LET M(I)=I -760 LET Y(M(I))=INT(100*RND(1)+1) -770 IF Y(M(I))<10 THEN 860 -780 LET S=INT(R/D(I)+.5) -790 IF Y(M(I))27 THEN 1240 -1180 NEXT A -1190 PRINT M(I); -1200 NEXT I -1210 FOR A=1 TO 28-T -1220 PRINT -1230 NEXT A -1240 PRINT "XXXXFINISHXXXX"; -1242 PRINT -1243 PRINT -1244 PRINT "---------------------------------------------" -1245 PRINT -1250 IF T<28 THEN 720 -1270 PRINT "THE RACE RESULTS ARE:" -1272 LET Z9=1 -1280 FOR I=8 TO 1 STEP-1 -1290 LET F=M(I) -1300 PRINT -1310 PRINT Z9;"PLACE HORSE NO.";F,"AT ";R/D(F);":1" -1312 LET Z9=Z9+1 -1320 NEXT I -1330 FOR J=1 TO C -1340 IF Q(J)<>M(8) THEN 1370 -1350 LET N=Q(J) -1355 PRINT -1360 PRINT W$(J);" WINS $";(R/D(N))*P(J) -1370 NEXT J -1372 PRINT "DO YOU WANT TO BET ON THE NEXT RACE ?" -1374 INPUT "YES OR NO"; O$ -1376 IF O$="YES" THEN 380 -1380 END diff --git a/bwbtest/GAMES/hurkle.bas b/bwbtest/GAMES/hurkle.bas deleted file mode 100644 index c758091..0000000 --- a/bwbtest/GAMES/hurkle.bas +++ /dev/null @@ -1,51 +0,0 @@ -10 PRINT TAB(33);"HURKLE" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -110 N=5 -120 G=10 -210 PRINT -220 PRINT "A HURKLE IS HIDING ON A";G;"BY";G;"GRID. HOMEBASE" -230 PRINT "ON THE GRID IS POINT 0,0 IN THE SOUTHWEST CORNER," -235 PRINT "AND ANY POINT ON THE GRID IS DESIGNATED BY A" -240 PRINT "PAIR OF WHOLE NUMBERS SEPERATED BY A COMMA. THE FIRST" -245 PRINT "NUMBER IS THE HORIZONTAL POSITION AND THE SECOND NUMBER" -246 PRINT "IS THE VERTICAL POSITION. YOU MUST TRY TO" -250 PRINT "GUESS THE HURKLE'S GRIDPOINT. YOU GET";N;"TRIES." -260 PRINT "AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE" -270 PRINT "DIRECTION TO GO TO LOOK FOR THE HURKLE." -280 PRINT -285 A=INT(G*RND(1)) -286 B=INT(G*RND(1)) -310 FOR K=1 TO N -320 PRINT "GUESS #";K; -330 INPUT X,Y -340 IF ABS(X-A)+ABS(Y-B)=0 THEN 500 -350 REM PRINT INFO -360 GOSUB 610 -370 PRINT -380 NEXT K -410 PRINT -420 PRINT "SORRY, THAT'S";N;"GUESSES." -430 PRINT "THE HURKLE IS AT ";A;",";B -440 PRINT -450 PRINT "LET'S PLAY AGAIN, HURKLE IS HIDING." -460 PRINT -470 GOTO 285 -500 REM -510 PRINT -520 PRINT "YOU FOUND HIM IN";K;"GUESSES!" -540 GOTO 440 -610 PRINT "GO "; -620 IF Y=B THEN 670 -630 IF Y0 THEN 200 -250 PRINT:PRINT "(FOREIGN INDUSTRY WILL ONLY BUY FARM LAND BECAUSE" -260 PRINT "FOREST LAND IS UNECONOMICAL TO STRIP MINE DUE TO TREES," -270 PRINT "THICKER TOP SOIL, ETC.)" -280 X=1 -299 GOTO 200 -300 D=INT(D-H) -310 A=INT(A+(H*W)) -320 PRINT "HOW MANY RALLODS WILL YOU DISTRIBUTE AMONG YOUR COUNTRYMEN"; -340 INPUT I -342 IF I<0 THEN 320 -350 IF I0 THEN 1002 -602 IF I<>0 THEN 1002 -604 IF J<>0 THEN 1002 -606 IF K<>0 THEN 1002 -609 PRINT -612 PRINT "GOODBYE." -614 PRINT "(IF YOU WISH TO CONTINUE THIS GAME AT A LATER DATE, ANSWER" -616 PRINT "'AGAIN' WHEN ASKED IF YOU WANT INSTRUCTIONS AT THE START" -617 PRINT "OF THE GAME)." -618 STOP -1000 GOTO 600 -1002 PRINT -1003 PRINT -1010 A=INT(A-K) -1020 A4=A -1100 IF INT(I/100-B)>=0 THEN 1120 -1105 IF I/100<50 THEN 1700 -1110 PRINT INT(B-(I/100));"COUNTRYMEN DIED OF STARVATION" -1120 F1=INT(RND(1)*(2000-D)) -1122 IF K<25 THEN 1130 -1125 F1=INT(F1/(K/25)) -1130 IF F1<=0 THEN 1150 -1140 PRINT F1;"COUNTRYMEN DIED OF CARBON-MONOXIDE AND DUST INHALATION" -1150 IF INT((I/100)-B)<0 THEN 1170 -1160 IF F1>0 THEN 1180 -1165 GOTO 1200 -1170 PRINT " YOU WERE FORCED TO SPEND";INT((F1+(B-(I/100)))*9); -1172 PRINT "RALLODS ON FUNERAL EXPENSES" -1174 B5=INT(F1+(B-(I/100))) -1175 A=INT(A-((F1+(B-(I/100)))*9)) -1176 GOTO 1185 -1180 PRINT " YOU WERE FORCED TO SPEND ";INT(F1*9);"RALLODS ON "; -1181 PRINT "FUNERAL EXPENSES." -1182 B5=F1 -1183 A=INT(A-(F1*9)) -1185 IF A>=0 THEN 1194 -1187 PRINT " INSUFFICIENT RESERVES TO COVER COST - LAND WAS SOLD" -1189 D=INT(D+(A/W)) -1190 A=0 -1194 B=INT(B-B5) -1200 IF H=0 THEN 1250 -1220 C1=INT(H+(RND(1)*10)-(RND(1)*20)) -1224 IF C>0 THEN 1230 -1226 C1=C1+20 -1230 PRINT C1;"WORKERS CAME TO THE COUNTRY AND"; -1250 P1=INT(((I/100-B)/10)+(K/25)-((2000-D)/50)-(F1/2)) -1255 PRINT ABS(P1);"COUNTRYMEN "; -1260 IF P1<0 THEN 1275 -1265 PRINT "CAME TO"; -1270 GOTO 1280 -1275 PRINT "LEFT"; -1280 PRINT " THE ISLAND." -1290 B=INT(B+P1) -1292 C=INT(C+C1) -1305 U2=INT(((2000-D)*((RND(1)+1.5)/2))) -1310 IF C=0 THEN 1324 -1320 PRINT "OF ";INT(J);"SQ. MILES PLANTED,"; -1324 IF J>U2 THEN 1330 -1326 U2=J -1330 PRINT " YOU HARVESTED ";INT(J-U2);"SQ. MILES OF CROPS." -1340 IF U2=0 THEN 1370 -1344 IF T1>=2 THEN 1370 -1350 PRINT " (DUE TO "; -1355 IF T1=0 THEN 1365 -1360 PRINT "INCREASED "; -1365 PRINT "AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.)" -1370 Q=INT((J-U2)*(W/2)) -1380 PRINT "MAKING";INT(Q);"RALLODS." -1390 A=INT(A+Q) -1400 V1=INT(((B-P1)*22)+(RND(1)*500)) -1405 V2=INT((2000-D)*15) -1410 PRINT " YOU MADE";ABS(INT(V1-V2));"RALLODS FROM TOURIST TRADE." -1420 IF V2=0 THEN 1450 -1425 IF V1-V2>=V3 THEN 1450 -1430 PRINT " DECREASE BECAUSE "; -1435 G1=10*RND(1) -1440 IF G1<=2 THEN 1460 -1442 IF G1<=4 THEN 1465 -1444 IF G1<=6 THEN 1470 -1446 IF G1<=8 THEN 1475 -1448 IF G1<=10 THEN 1480 -1450 V3=INT(A+V3) -1451 A=INT(A+V3) -1452 GOTO 1500 -1460 PRINT "FISH POPULATION HAS DWINDLED DUE TO WATER POLLUTION." -1462 GOTO 1450 -1465 PRINT "AIR POLLUTION IS KILLING GAME BIRD POPULATION." -1467 GOTO 1450 -1470 PRINT "MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION." -1472 GOTO 1450 -1475 PRINT "UNPLEASANT SMOG IS DISCOURAGING SUN BATHERS." -1477 GOTO 1450 -1480 PRINT "HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT." -1482 GOTO 1450 -1500 IF B5>200 THEN 1600 -1505 IF B<343 THEN 1700 -1510 IF (A4/100)>5 THEN 1800 -1515 IF C>B THEN 1550 -1520 IF N5-1=X5 THEN 1900 -1545 GOTO 2000 -1550 PRINT -1552 PRINT -1560 PRINT "THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER" -1562 PRINT "OF COUNTRYMEN. AS A MINORITY, THEY HAVE REVOLTED AND" -1564 PRINT "TAKEN OVER THE COUNTRY." -1570 IF RND(1)<=.5 THEN 1580 -1574 PRINT "YOU HAVE BEEN THROWN OUT OF OFFICE AND ARE NOW" -1576 PRINT "RESIDING IN PRISON." -1578 GOTO 1590 -1580 PRINT "YOU HAVE BEEN ASSASSINATED." -1590 PRINT -1592 PRINT -1596 STOP -1600 PRINT -1602 PRINT -1610 PRINT B5;"COUNTRYMEN DIED IN ONE YEAR!!!!!" -1615 PRINT "DUE TO THIS EXTREME MISMANAGEMENT, YOU HAVE NOT ONLY" -1620 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE, BUT YOU" -1622 M6=INT(RND(1)*10) -1625 IF M6<=3 THEN 1670 -1630 IF M6<=6 THEN 1680 -1635 IF M6<=10 THEN 1690 -1670 PRINT "ALSO HAD YOUR LEFT EYE GOUGED OUT!" -1672 GOTO 1590 -1680 PRINT "HAVE ALSO GAINED A VERY BAD REPUTATION." -1682 GOTO 1590 -1690 PRINT "HAVE ALSO BEEN DECLARED NATIONAL FINK." -1692 GOTO 1590 -1700 PRINT -1702 PRINT -1710 PRINT "OVER ONE THIRD OF THE POPULTATION HAS DIED SINCE YOU" -1715 PRINT "WERE ELECTED TO OFFICE. THE PEOPLE (REMAINING)" -1720 PRINT "HATE YOUR GUTS." -1730 GOTO 1570 -1800 IF B5-F1<2 THEN 1515 -1807 PRINT -1815 PRINT "MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID" -1820 PRINT "NOT SPEND. AS A RESULT, SOME OF YOUR COUNTRYMEN DIED" -1825 PRINT "OF STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE" -1830 PRINT "BEEN FORCED TO EITHER RESIGN OR COMMIT SUICIDE." -1835 PRINT "THE CHOICE IS YOURS." -1840 PRINT "IF YOU CHOOSE THE LATTER, PLEASE TURN OFF YOUR COMPUTER" -1845 PRINT "BEFORE PROCEEDING." -1850 GOTO 1590 -1900 PRINT -1902 PRINT -1920 PRINT "CONGRATULATIONS!!!!!!!!!!!!!!!!!!" -1925 PRINT "YOU HAVE SUCCESFULLY COMPLETED YOUR";N5;"YEAR TERM" -1930 PRINT "OF OFFICE. YOU WERE, OF COURSE, EXTREMELY LUCKY, BUT" -1935 PRINT "NEVERTHELESS, IT'S QUITE AN ACHIEVEMENT. GOODBYE AND GOOD" -1940 PRINT "LUCK - YOU'LL PROBABLY NEED IT IF YOU'RE THE TYPE THAT" -1945 PRINT "PLAYS THIS GAME." -1950 GOTO 1590 -1960 PRINT "HOW MANY YEARS HAD YOU BEEN IN OFFICE WHEN INTERRUPTED"; -1961 INPUT X5 -1962 IF X5<0 THEN 1590 -1963 IF X5<8 THEN 1969 -1965 PRINT " COME ON, YOUR TERM IN OFFICE IS ONLY";N5;"YEARS." -1967 GOTO 1960 -1969 PRINT "HOW MUCH DID YOU HAVE IN THE TREASURY"; -1970 INPUT A -1971 IF A<0 THEN 1590 -1975 PRINT "HOW MANY COUNTRYMEN"; -1976 INPUT B -1977 IF B<0 THEN 1590 -1980 PRINT "HOW MANY WORKERS"; -1981 INPUT C -1982 IF C<0 THEN 1590 -1990 PRINT "HOW MANY SQUARE MILES OF LAND"; -1991 INPUT D -1992 IF D<0 THEN 1590 -1993 IF D>2000 THEN 1996 -1994 IF D>1000 THEN 100 -1996 PRINT " COME ON, YOU STARTED WITH 1000 SQ. MILES OF FARM LAND" -1997 PRINT " AND 10,000 SQ. MILES OF FOREST LAND." -1998 GOTO 1990 -2000 X5=X5+1 -2020 B5=0 -2040 GOTO 100 -2046 END diff --git a/bwbtest/GAMES/lem.bas b/bwbtest/GAMES/lem.bas deleted file mode 100644 index aa46895..0000000 --- a/bwbtest/GAMES/lem.bas +++ /dev/null @@ -1,246 +0,0 @@ -2 PRINT TAB(34);"LEM" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -7 REM ROCKT2 IS AN INTERACTIVE GAME THAT SIMULATES A LUNAR -8 REM LANDING IS SIMILAR TO THAT OF THE APOLLO PROGRAM. -9 REM THERE IS ABSOLUTELY NO CHANCE INVOLVED -10 Z$="GO" -15 B1=1 -20 M=17.95 -25 F1=5.25 -30 N=7.5 -35 R0=926 -40 V0=1.29 -45 T=0 -50 H0=60 -55 R=R0+H0 -60 A=-3.425 -65 R1=0 -70 A1=8.84361E-04 -75 R3=0 -80 A3=0 -85 M1=7.45 -90 M0=M1 -95 B=750 -100 T1=0 -105 F=0 -110 P=0 -115 N=1 -120 M2=0 -125 S=0 -130 C=0 -135 IF Z$="YES" THEN 1150 -140 PRINT -145 PRINT "LUNAR LANDING SIMULATION" -150 PRINT -155 PRINT "HAVE YOU FLOWN AN APOLLO/LEM MISSION BEFORE"; -160 PRINT " (YES OR NO)"; -165 INPUT Q$ -170 IF Q$="YES" THEN 190 -175 IF Q$="NO" THEN 205 -180 PRINT "JUST ANSWER THE QUESTION, PLEASE, "; -185 GOTO 160 -190 PRINT -195 PRINT "INPUT MEASUREMENT OPTION NUMBER"; -200 GOTO 225 -205 PRINT -210 PRINT "WHICH SYSTEM OF MEASUREMENT DO YOU PREFER?" -215 PRINT " 1=METRIC 0=ENGLISH" -220 PRINT "ENTER THE APPROPRIATE NUMBER"; -225 INPUT K -230 PRINT -235 IF K=0 THEN 280 -240 IF K=1 THEN 250 -245 GOTO 220 -250 Z=1852.8 -255 M$="METERS" -260 G3=3.6 -265 N$=" KILOMETERS" -270 G5=1000 -275 GOTO 305 -280 Z=6080 -285 M$="FEET" -290 G3=.592 -295 N$="N.MILES" -300 G5=Z -305 IF B1=3 THEN 670 -310 IF Q$="YES" THEN 485 -315 PRINT -320 PRINT " YOU ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF" -325 PRINT "THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO" -330 PRINT "GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATION SYSTEM." -335 PRINT "THE ON-BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT" -340 PRINT "OF INFORMATION NEEDED TO NAVIGATE THE SHIP." -345 PRINT -350 PRINT -355 PRINT "THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS." -360 PRINT "+ OR -180 DEGREES IS DIRECTLY AWAY FROM THE MOON" -365 PRINT "-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT" -370 PRINT "+90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT" -375 PRINT "0 (ZERO) DEGREES IS DIRECTLY TOWARD THE MOON" -380 PRINT -385 PRINT TAB(30);"-180|+180" -390 PRINT TAB(34);"^" -395 PRINT TAB(27);"-90 < -+- > +90" -400 PRINT TAB(34);"!" -405 PRINT TAB(34);"0" -410 PRINT TAB(21);"<<<< DIRECTION OF ORBIT <<<<" -415 PRINT -420 PRINT TAB(20);"------ SURFACE OF MOON ------" -425 PRINT -430 PRINT -435 PRINT "ALL ANGLES BETWEEN -180 AND +180 DEGREES ARE ACCEPTED." -440 PRINT -445 PRINT "1 FUEL UNIT = 1 SEC. AT MAX THRUST" -450 PRINT "ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL" -455 PRINT "FOR AN ATTITUDE CHANGE." -460 PRINT "AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETWEEN" -465 PRINT "10 AND 100 PERCENT." -470 PRINT -475 PRINT"NEGATIVE THRUST OR TIME IS PROHIBITED." -480 PRINT -485 PRINT -490 PRINT "INPUT: TIME INTERVAL IN SECONDS ------ (T)" -495 PRINT " PERCENTAGE OF THRUST ---------- (P)" -500 PRINT " ATTITUDE ANGLE IN DEGREES ----- (A)" -505 PRINT -510 IF Q$="YES" THEN 535 -515 PRINT "FOR EXAMPLE:" -520 PRINT "T,P,A? 10,65,-60" -525 PRINT "TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,0" -530 PRINT -535 PRINT "OUTPUT: TOTAL TIME IN ELAPSED SECONDS" -540 PRINT " HEIGHT IN ";M$ -545 PRINT " DISTANCE FROM LANDING SITE IN ";M$ -550 PRINT " VERTICAL VELOCITY IN ";M$;"/SECOND" -555 PRINT " HORIZONTAL VELOCITY IN ";M$;"/SECOND" -560 PRINT " FUEL UNITS REMAINING" -565 PRINT -570 GOTO 670 -575 PRINT -580 PRINT "T,P,A"; -585 INPUT T1,F,P -590 F=F/100 -595 IF T1<0 THEN 905 -600 IF T1=0 THEN 1090 -605 IF ABS(F-.05)>1 THEN 945 -610 IF ABS(F-.05)<.05 THEN 945 -615 IF ABS(P)>180 THEN 925 -620 N=20 -625 IF T1<400 THEN 635 -630 N=T1/20 -635 T1=T1/N -640 P=P*3.14159/180 -645 S=SIN(P) -650 C=COS(P) -655 M2=M0*T1*F/B -660 R3=-.5*R0*((V0/R)^2)+R*A1*A1 -665 A3=-2*R1*A1/R -670 FOR I=1 TO N -675 IF M1=0 THEN 715 -680 M1=M1-M2 -685 IF M1>0 THEN 725 -690 F=F*(1+M1/M2) -695 M2=M1+M2 -700 PRINT "YOU ARE OUT OF FUEL." -705 M1=0 -710 GOTO 725 -715 F=0 -720 M2=0 -725 M=M-.5*M2 -730 R4=R3 -735 R3=-.5*R0*((V0/R)^2)+R*A1*A1 -740 R2=(3*R3-R4)/2+.00526*F1*F*C/M -745 A4=A3 -750 A3=-2*R1*A1/R -755 A2=(3*A3-A4)/2+.0056*F1*F*S/(M*R) -760 X=R1*T1+.5*R2*T1*T1 -765 R=R+X -770 H0=H0+X -775 R1=R1+R2*T1 -780 A=A+A1*T1+.5*A2*T1*T1 -785 A1=A1+A2*T1 -790 M=M-.5*M2 -795 T=T+T1 -800 IF H0<3.287828E-04 THEN 810 -805 NEXT I -810 H=H0*Z -815 H1=R1*Z -820 D=R0*A*Z -825 D1=R*A1*Z -830 T2=M1*B/M0 -835 PRINT " ";T;TAB(10);H;TAB(23);D; -840 PRINT TAB(37);H1;TAB(49);D1;TAB(60);T2 -845 IF H0<3.287828E-04 THEN 880 -850 IF R0*A>164.474 THEN 1050 -855 IF M1>0 THEN 580 -860 T1=20 -865 F=0 -870 P=0 -875 GOTO 620 -880 IF R1<-8.21957E-04 THEN 1020 -885 IF ABS(R*A1)>4.93174E-04 THEN 1020 -890 IF H0<-3.287828E-04 THEN 1020 -895 IF ABS(D)>10*Z THEN 1065 -900 GOTO 995 -905 PRINT -910 PRINT "THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-"; -915 PRINT "TIME CONTINUUM." -920 GOTO 575 -925 PRINT -930 PRINT "IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE" -935 PRINT "FOR AN E.V.A." -940 GOTO 575 -945 PRINT -950 PRINT "IMPOSSIBLE THRUST VALUE "; -955 IF F<0 THEN 985 -960 IF F-.05<.05 THEN 975 -965 PRINT "TOO LARGE" -970 GOTO 575 -975 PRINT "TOO SMALL" -980 GOTO 575 -985 PRINT "NEGATIVE" -990 GOTO 575 -995 PRINT -1000 PRINT "TRANQUILITY BASE HERE -- THE EAGLE HAS LANDED." -1005 PRINT "CONGRATULATIONS -- THERE WAS NO SPACECRAFT DAMAGE." -1010 PRINT "YOU MAY NOW PROCEED WITH SURFACE EXPLORATION." -1015 GOTO 1100 -1020 PRINT -1025 PRINT "CRASH !!!!!!!!!!!!!!!!" -1030 PRINT "YOUR IMPACT CREATED A CRATER";ABS(H);M$;" DEEP." -1035 X1=SQR(D1*D1+H1*H1)*G3 -1040 PRINT "AT CONTACT YOU WERE TRAVELING";X1;N$;"/HR" -1045 GOTO 1100 -1050 PRINT -1055 PRINT "YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVERY." -1060 GOTO 1100 -1065 PRINT "YOU ARE DOWN SAFELY - " -1075 PRINT -1080 PRINT "BUT MISSED THE LANDING SITE BY";ABS(D/G5);N$;"." -1085 GOTO 1100 -1090 PRINT -1095 PRINT "MISSION ABENDED" -1100 PRINT -1105 PRINT "DO YOU WANT TO TRY IT AGAIN (YES/NO)?" -1110 INPUT Z$ -1115 IF Z$="YES" THEN 20 -1120 IF Z$="NO" THEN 1130 -1125 GOTO 1105 -1130 PRINT -1135 PRINT "TOO BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED" -1140 PRINT "ASTRONAUTS." -1145 STOP -1150 PRINT -1155 PRINT "OK, DO YOU WANT THE COMPLETE INSTRUCTIONS OR THE INPUT -" -1160 PRINT "OUTPUT STATEMENTS?" -1165 PRINT "1=COMPLETE INSTRUCTIONS" -1170 PRINT "2=INPUT-OUTPUT STATEMENTS" -1175 PRINT "3=NEITHER" -1180 INPUT B1 -1185 Q$="NO" -1190 IF B1=1 THEN 205 -1195 Q$="YES" -1200 IF B1=2 THEN 190 -1205 IF B1=3 THEN 190 -1210 GOTO 1165 -1215 END diff --git a/bwbtest/GAMES/letter.bas b/bwbtest/GAMES/letter.bas deleted file mode 100644 index 3064dbb..0000000 --- a/bwbtest/GAMES/letter.bas +++ /dev/null @@ -1,26 +0,0 @@ -10 PRINT TAB(33);"LETTER" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -100 PRINT "LETTER GUESSING GAME": PRINT -210 PRINT "I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z." -220 PRINT "TRY TO GUESS MY LETTER AND I'LL GIVE YOU CLUES" -230 PRINT "AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER." -310 L=65+INT(RND(1)*26) -320 G=0 -340 PRINT: PRINT "O.K., I HAVE A LETTER. START GUESSING." -410 PRINT: PRINT "WHAT IS YOUR GUESS"; -420 G=G+1 -430 INPUT A$: A=ASC(A$): PRINT -440 IF A=L THEN 500 -450 IF A>L THEN 480 -460 PRINT "TOO LOW. TRY A HIGHER LETTER.": GOTO 410 -480 PRINT "TOO HIGH. TRY A LOWER LETTER.": GOTO 410 -500 PRINT: PRINT "YOU GOT IT IN";G;"GUESSES!!" -504 IF G<=5 THEN 508 -506 PRINT "BUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES!": GOTO 515 -508 PRINT "GOOD JOB !!!!!" -510 FOR N=1 TO 15: PRINT CHR$(7);: NEXT N -515 PRINT -520 PRINT "LET'S PLAN AGAIN....." -530 GOTO 310 -999 END diff --git a/bwbtest/GAMES/life.bas b/bwbtest/GAMES/life.bas deleted file mode 100644 index a7dd28f..0000000 --- a/bwbtest/GAMES/life.bas +++ /dev/null @@ -1,67 +0,0 @@ -2 PRINT TAB(34);"LIFE" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -8 PRINT "ENTER YOUR PATTERN:" -9 X1=1: Y1=1: X2=24: Y2=70 -10 DIM A(24,70),B$(24) -20 C=1 -30 INPUT B$(C) -40 IF B$(C)="DONE" THEN B$(C)="": GOTO 80 -50 IF LEFT$(B$(C),1)="." THEN B$(C)=" "+RIGHT$(B$(C),LEN(B$(C))-1) -60 C=C+1 -70 GOTO 30 -80 C=C-1: L=0 -90 FOR X=1 TO C-1 -100 IF LEN(B$(X))>L THEN L=LEN(B$(X)) -110 NEXT X -120 X1=11-C/2 -130 Y1=33-L/2 -140 FOR X=1 TO C -150 FOR Y=1 TO LEN(B$(X)) -160 IF MID$(B$(X),Y,1)<>" " THEN A(X1+X,Y1+Y)=1:P=P+1 -170 NEXT Y -180 NEXT X -200 PRINT:PRINT:PRINT -210 PRINT "GENERATION:";G,"POPULATION:";P;: IF I9 THEN PRINT "INVALID!"; -215 X3=24:Y3=70:X4=1: Y4=1: P=0 -220 G=G+1 -225 FOR X=1 TO X1-1: PRINT: NEXT X -230 FOR X=X1 TO X2 -240 PRINT -250 FOR Y=Y1 TO Y2 -253 IF A(X,Y)=2 THEN A(X,Y)=0:GOTO 270 -256 IF A(X,Y)=3 THEN A(X,Y)=1:GOTO 261 -260 IF A(X,Y)<>1 THEN 270 -261 PRINT TAB(Y);"*"; -262 IF XX4 THEN X4=X -266 IF YY4 THEN Y4=Y -270 NEXT Y -290 NEXT X -295 FOR X=X2+1 TO 24: PRINT: NEXT X -299 X1=X3: X2=X4: Y1=Y3: Y2=Y4 -301 IF X1<3 THEN X1=3:I9=-1 -303 IF X2>22 THEN X2=22:I9=-1 -305 IF Y1<3 THEN Y1=3:I9=-1 -307 IF Y2>68 THEN Y2=68:I9=-1 -309 P=0 -500 FOR X=X1-1 TO X2+1 -510 FOR Y=Y1-1 TO Y2+1 -520 C=0 -530 FOR I=X-1 TO X+1 -540 FOR J=Y-1 TO Y+1 -550 IF A(I,J)=1 OR A(I,J)=2 THEN C=C+1 -560 NEXT J -570 NEXT I -580 IF A(X,Y)=0 THEN 610 -590 IF C<3 OR C>4 THEN A(X,Y)=2: GOTO 600 -595 P=P+1 -600 GOTO 620 -610 IF C=3 THEN A(X,Y)=3:P=P+1 -620 NEXT Y -630 NEXT X -635 X1=X1-1:Y1=Y1-1:X2=X2+1:Y2=Y2+1 -637 INPUT "PRESS RETURN TO CONTINUE";A12 -640 GOTO 210 -650 END \ No newline at end of file diff --git a/bwbtest/GAMES/life2.bas b/bwbtest/GAMES/life2.bas deleted file mode 100644 index 8c08770..0000000 --- a/bwbtest/GAMES/life2.bas +++ /dev/null @@ -1,83 +0,0 @@ -2 PRINT TAB(33);"LIFE2" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -7 DIM N(6,6),K(18),A(16),X(2),Y(2) -8 DATA 3,102,103,120,130,121,112,111,12 -9 DATA 21,30,1020,1030,1011,1021,1003,1002,1012 -10 FOR M=1 TO 18: READ K(M): NEXT M -13 DATA -1,0,1,0,0,-1,0,1,-1,-1,1,-1,-1,1,1,1 -14 FOR O1= 1 TO 16: READ A(O1): NEXT O1 -20 GOTO 500 -50 FOR J=1 TO 5 -51 FOR K=1 TO 5 -55 IF N(J,K)>99 THEN GOSUB 200 -60 NEXT K -65 NEXT J -90 K=0: M2=0: M3=0 -99 FOR J=0 TO 6: PRINT -100 FOR K=0 TO 6 -101 IF J<>0 THEN IF J<>6 THEN 105 -102 IF K=6 THEN PRINT 0;: GOTO 125 -103 PRINT K;: GOTO 120 -105 IF K<>0 THEN IF K<>6 THEN 110 -106 IF J=6 THEN PRINT 0: GOTO 126 -107 PRINT J;: GOTO 120 -110 GOSUB 300 -120 NEXT K -125 NEXT J -126 RETURN -200 B=1: IF N(J,K)>999 THEN B=10 -220 FOR O1= 1 TO 15 STEP 2 -230 N(J+A(O1),K+A(O1+1))=N(J+A(O1),K+A(O1+1))+B -231 NEXT O1 -239 RETURN -300 IF N(J,K)<3 THEN 399 -305 FOR O1=1 TO 18 -310 IF N(J,K)=K(O1) THEN 350 -315 NEXT O1 -320 GOTO 399 -350 IF O1>9 THEN 360 -351 N(J,K)=100: M2=M2+1: PRINT " * "; -355 RETURN -360 N(J,K)=1000: M3=M3+1: PRINT " # "; -365 RETURN -399 N(J,K)=0: PRINT " ";: RETURN -500 PRINT TAB(10);"U.B. LIFE GAME" -505 M2=0: M3=0 -510 FOR J=1 TO 5 -511 FOR K=1 TO 5 -515 N(J,K)=0 -516 NEXT K -517 NEXT J -519 FOR B=1 TO 2: P1=3: IF B=2 THEN P1=30 -520 PRINT:PRINT "PLAYER";B;" - 3 LIVE PIECES." -535 FOR K1=1 TO 3: GOSUB 700 -540 N(X(B),Y(B))=P1: NEXT K1 -542 NEXT B -559 GOSUB 90 -560 PRINT: GOSUB 50 -570 IF M2=0 THEN IF M3=0 THEN 574 -571 IF M3=0 THEN B=1: GOTO 575 -572 IF M2=0 THEN B=2: GOTO 575 -573 GOTO 580 -574 PRINT: PRINT "A DRAW": STOP -575 PRINT: PRINT "PLAYER";B;"IS THE WINNER": STOP -580 FOR B=1 TO 2: PRINT: PRINT: PRINT "PLAYER";B;: GOSUB 700 -581 IF B=99 THEN 560 -582 NEXT B -586 N(X(1),Y(1))=100: N(X(2),Y(2))=1000 -596 GOTO 560 -700 PRINT "X,Y":PRINT"XXXXXX";CHR$(13);"$$$$$$";CHR$(13);"&&&&&&"; -701 PRINT CHR$(13);: INPUT Y(B),X(B) -705 IF X(B)<=5 THEN IF X(B)>0 THEN 708 -706 GOTO 750 -708 IF Y(B)<=5 THEN IF Y(B)>0 THEN 715 -710 GOTO 750 -715 IF N(X(B),Y(B))<>0 THEN 750 -720 IF B=1 THEN RETURN -725 IF X(1)=X(2) THEN IF Y(1)=Y(2) THEN 740 -730 RETURN -740 PRINT "SAME COORD. SET TO 0" -741 N(X(B)+1,Y(B)+1)=0: B=99: RETURN -750 PRINT "ILLEGAL COORDS. RETYPE": GOTO 700 -999 END diff --git a/bwbtest/GAMES/litquiz.bas b/bwbtest/GAMES/litquiz.bas deleted file mode 100644 index fe731b2..0000000 --- a/bwbtest/GAMES/litquiz.bas +++ /dev/null @@ -1,49 +0,0 @@ -1 PRINT TAB(25);"LITERATURE QUIZ" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -5 R=0 -10 PRINT "TEST YOUR KNOWLEDGE OF CHILDREN'S LITERATURE." -12 PRINT: PRINT "THIS IS A MULTIPLE-CHOICE QUIZ." -13 PRINT "TYPE A 1, 2, 3, OR 4 AFTER THE QUESTION MARK." -15 PRINT: PRINT "GOOD LUCK!": PRINT: PRINT -40 PRINT "IN PINOCCHIO, WHAT WAS THE NAME OF THE CAT" -42 PRINT "1)TIGGER, 2)CICERO, 3)FIGARO, 4)GUIPETTO"; -43 INPUT A: IF A=3 THEN 46 -44 PRINT "SORRY...FIGARO WAS HIS NAME.": GOTO 50 -46 PRINT "VERY GOOD! HERE'S ANOTHER." -47 R=R+1 -50 PRINT: PRINT -51 PRINT "FROM WHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS?" -52 PRINT "1)MR. NIXON'S, 2)ELMER FUDD'S, 3)CLEM JUDD'S, 4)STROMBOLI'S"; -53 INPUT A: IF A=2 THEN 56 -54 PRINT "TOO BAD...IT WAS ELMER FUDD'S GARDEN.": GOTO 60 -56 PRINT "PRETTY GOOD!" -57 R=R+1 -60 PRINT: PRINT -61 PRINT "IN THE WIZARD OF OS, DOROTHY'S DOG WAS NAMED" -62 PRINT "1)CICERO, 2)TRIXIA, 3)KING, 4)TOTO"; -63 INPUT A: IF A=4 THEN 66 -64 PRINT "BACK TO THE BOOKS,...TOTO WAS HIS NAME.": GOTO 70 -66 PRINT "YEA! YOU'RE A REAL LITERATURE GIANT." -67 R=R+1 -70 PRINT:PRINT -71 PRINT "WHO WAS THE FAIR MAIDEN WHO ATE THE POISON APPLE" -72 PRINT "1)SLEEPING BEAUTY, 2)CINDERELLA, 3)SNOW WHITE, 4)WENDY"; -73 INPUT A: IF A=3 THEN 76 -74 PRINT "OH, COME ON NOW...IT WAS SNOW WHITE." -75 GOTO 80 -76 PRINT "GOOD MEMORY!" -77 R=R+1 -80 PRINT:PRINT -85 IF R=4 THEN 100 -90 IF R<2 THEN 200 -92 PRINT "NOT BAD, BUT YOU MIGHT SPEND A LITTLE MORE TIME" -94 PRINT "READING THE NURSERY GREATS." -96 STOP -100 PRINT "WOW! THAT'S SUPER! YOU REALLY KNOW YOUR NURSERY" -110 PRINT "YOUR NEXT QUIZ WILL BE ON 2ND CENTURY CHINESE" -120 PRINT "LITERATURE (HA, HA, HA)" -130 STOP -200 PRINT "UGH. THAT WAS DEFINITELY NOT TOO SWIFT. BACK TO" -205 PRINT "NURSERY SCHOOL FOR YOU, MY FRIEND." -999 END diff --git a/bwbtest/GAMES/love.bas b/bwbtest/GAMES/love.bas deleted file mode 100644 index c53d2ae..0000000 --- a/bwbtest/GAMES/love.bas +++ /dev/null @@ -1,34 +0,0 @@ -2 PRINT TAB(33);"LOVE" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -20 PRINT "A TRIBUTE TO THE GREAT AMERICAN ARTIST, ROBERT INDIANA." -30 PRINT "HIS GREATEST WORK WILL BE REPRODUCED WITH A MESSAGE OF" -40 PRINT "YOUR CHOICE UP TO 60 CHARACTERS. IF YOU CAN'T THINK OF" -50 PRINT "A MESSAGE, SIMPLE TYPE THE WORD 'LOVE'": PRINT -60 INPUT "YOUR MESSAGE, PLEASE";A$: L=LEN(A$) -70 DIM T$(120): FOR I=1 TO 10: PRINT: NEXT I -100 FOR J=0 TO INT(60/L) -110 FOR I=1 TO L -120 T$(J*L+I)=MID$(A$,I,1) -130 NEXT I: NEXT J -140 C=0 -200 A1=1: P=1: C=C+1: IF C=37 THEN 999 -205 PRINT -210 READ A: A1=A1+A: IF P=1 THEN 300 -240 FOR I=1 TO A: PRINT " ";: NEXT I: P=1: GOTO 400 -300 FOR I=A1-A TO A1-1: PRINT T$(I);: NEXT I: P=0 -400 IF A1>60 THEN 200 -410 GOTO 210 -600 DATA 60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5 -610 DATA 4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4 -620 DATA 4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4 -630 DATA 4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4 -640 DATA 4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8 -650 DATA 1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1 -660 DATA 5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1 -670 DATA 6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,7,1,10 -680 DATA 7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10 -690 DATA 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1 -700 DATA 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1 -710 DATA 11,8,13,27,1,11,8,13,27,1,60 -999 FOR I=1 TO 10: PRINT: NEXT I: END diff --git a/bwbtest/GAMES/lunar.bas b/bwbtest/GAMES/lunar.bas deleted file mode 100644 index 6a4757d..0000000 --- a/bwbtest/GAMES/lunar.bas +++ /dev/null @@ -1,48 +0,0 @@ -10 PRINT TAB(33);"LUNAR" -20 PRINT TAB(l5);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -25 PRINT:PRINT:PRINT -30 PRINT "THIS IS A COMPUTER SIMULATION OF AN APOLLO LUNAR" -40 PRINT "LANDING CAPSULE.": PRINT: PRINT -50 PRINT "THE ON-BOARD COMPUTER HAS FAILED (IT WAS MADE BY" -60 PRINT "XEROX) SO YOU HAVE TO LAND THE CAPSULE MANUALLY." -70 PRINT: PRINT "SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETWEEN" -80 PRINT "0 (FREE FALL) AND 200 (MAXIMUM BURN) POUNDS PER SECOND." -90 PRINT "SET NEW BURN RATE EVERY 10 SECONDS.": PRINT -100 PRINT "CAPSULE WEIGHT 32,500 LBS; FUEL WEIGHT 16,500 LBS." -110 PRINT: PRINT: PRINT: PRINT "GOOD LUCK" -120 L=0 -130 PRINT: PRINT "SEC","MI + FT","MPH","LB FUEL","BURN RATE":PRINT -140 A=120:V=1:M=33000!:N=16500:G=1E-03:Z=1.8 -150 PRINT L,INT(A);INT(5280*(A-INT(A))),3600*V,M-N,:INPUT K:T=10 -160 IF M-N<1E-03 THEN 240 -170 IF T<1E-03 THEN 150 -180 S=T: IF M>=N+S*K THEN 200 -190 S=(M-N)/K -200 GOSUB 420: IF I<=O THEN 340 -210 IF V<=0 THEN 230 -220 IF J<0 THEN 370 -230 GOSUB 330: GOTO 160 -240 PRINT "FUEL OUT AT";L;"SECONDS":S=(-V+SQR(V*V+2*A*G))/G -250 V=V+G*S: L=L+S -260 W=3600*V: PRINT "ON MOON AT";L;"SECONDS - IMPACT VELOCITY";W;"MPH" -274 IF W<=1.2 THEN PRINT "PERFECT LANDING!": GOTO 440 -280 IF W<=10 THEN PRINT "GOOD LANDING (COULD RE BETTER)":GOTO 440 -282 IF W>60 THEN 300 -284 PRINT "CRAFT DAMAGE... YOU'RE STRANDED HERE UNTIL A RESCUE" -286 PRINT "PARTY ARRIVES. HOPE YOU HAVE ENOUGH OXYGEN!" -288 GOTO 440 -300 PRINT "SORRY THERE NERE NO SURVIVORS. YOU BLOW IT!" -310 PRINT "IN FACT, YOU BLASTED A NEW LUNAR CRATER";W*.227;"FEET DEEP!" -320 GOTO 440 -330 L=L+S: T=T-S: M=M-S*K: A=I: V=J: RETURN -340 IF S<5E-03 THEN 260 -350 D=V+SQR(V*V+2*A*(G-Z*K/M)):S=2*A/D -360 GOSUB 420: GOSUB 330: GOTO 340 -370 W=(1-M*G/(Z*K))/2: S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.05:GOSUB 420 -380 IF I<=0 THEN 340 -390 GOSUB 330: IF J>0 THEN 160 -400 IF V>0 THEN 370 -410 GOTO 160 -420 Q=S*K/M: J=V+G*S+Z*(-Q-Q*Q/2-Q^3/3-Q^4/4-Q^5/5) -430 I=A-G*S*S/2-V*S+Z*S*(Q/2+Q^2/6+Q^3/12+Q^4/20+Q^5/30):RETURN -440 PRINT:PRINT:PRINT:PRINT 'TRY AGAIN??": GOTO 70 diff --git a/bwbtest/GAMES/mastrmnd.bas b/bwbtest/GAMES/mastrmnd.bas deleted file mode 100644 index 3e731bc..0000000 --- a/bwbtest/GAMES/mastrmnd.bas +++ /dev/null @@ -1,232 +0,0 @@ -2 PRINT TAB(30);"MASTERMIND" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -10 REM -20 REM MASTERMIND II -30 REM STEVE NORTH -40 REM CREATIVE COMPUTING -50 REM PO BOX 789-M MORRISTOWN NEW JERSEY 07960 -60 REM -70 REM -80 INPUT "NUMBER OF COLORS";C9 -90 IF C9>8 THEN PRINT "NO MORE THAN 8, PLEASE!":GOTO 80 -100 INPUT "NUMBER OF POSITIONS";P9 -110 INPUT "NUMBER OF ROUNDS";R9 -120 P=C9^P9 -130 PRINT "TOTAL POSSIBILITIES =";P -140 H=0:C=0 -150 DIM QQ(P9),SS(10,2),SX$(10),AX$(P9),GX$(P9),II(P),HX$(P9) -160 L$="BWRGOYPT" -170 PRINT -180 PRINT -190 PRINT "COLOR LETTER" -200 PRINT "===== ======" -210 FOR X=1 TO C9 -220 READ X$ -230 PRINT X$;TAB(13);MID$(L$,X,1) -240 NEXT X -250 PRINT -260 FOR R=1 TO R9 -270 PRINT -280 PRINT "ROUND NUMBER";R;"----" -290 PRINT -300 PRINT "GUESS MY COMBINATION.":PRINT -310 REM GET A COMBINATION -320 A=INT(P*RND(1)+1) -330 GOSUB 3000 -340 FOR X=1 TO A -350 GOSUB 3500 -360 NEXT X -370 FOR M=1 TO 10 -380 PRINT "MOVE # ";M;" GUESS ";:INPUT X$ -390 IF X$="BOARD" THEN 2000 -400 IF X$="QUIT" THEN 2500 -410 IF LEN(X$)<>P9 THEN PRINT "BAD NUMBER OF POSITIONS.":GOTO 380 -420 REM UNPACK X$ INTO GX$(1-P9) -430 FOR X=1 TO P9 -440 FOR Y=1 TO C9 -450 IF MID$(X$,X,1)=MID$(L$,Y,1) THEN 480 -460 NEXT Y -470 PRINT "'"; MID$(X$,X,1); "' IS UNRECOGNIZED.":GOTO 380 -480 GX$(X)=MID$(X$,X,1) -490 NEXT X -500 REM NOW WE CONVERT QQ(1-P9) INTO AX$(1-P9) [ACTUAL GUESS] -510 GOSUB 4000 -520 REM AND GET NUMBER OF BLACKS AND WHITES -530 GOSUB 4500 -540 IF B=P9 THEN 630 -550 REM TELL HUMAN RESULTS -560 PRINT "YOU HAVE ";B;" BLACKS AND ";W;" WHITES." -570 REM SAVE ALL THIS STUFF FOR BOARD PRINTOUT LATER -580 SX$(M)=X$ -590 SS(M,1)=B -600 SS(M,2)=W -610 NEXT M -620 PRINT "YOU RAN OUT OF MOVES! THAT'S ALL YOU GET!":GOTO 640 -622 GOSUB 4000 -623 PRINT "THE ACTUAL COMBINATION WAS: "; -624 FOR X=1 TO P9 -625 PRINT AX$(X); -626 NEXT X -627 PRINT -630 PRINT "YOU GUESSED IT IN ";M;" MOVES!" -640 H=H+M -650 GOSUB 5000 -660 REM -670 REM NOW COMPUTER GUESSES -680 REM -690 FOR X=1 TO P -700 II(X)=1 -710 NEXT X -720 PRINT "NOW I GUESS. THINK OF A COMBINATION." -730 INPUT "HIT RETURN WHEN READY:";X$ -740 FOR M=1 TO 10 -750 GOSUB 3000 -760 REM FIND A GUESS -770 G=INT(P*RND(1)+1) -780 IF II(G)=1 THEN 890 -790 FOR X=G TO P -800 IF II(X)=1 THEN 880 -810 NEXT X -820 FOR X=1 TO G -830 IF II(X)=1 THEN 880 -840 NEXT X -850 PRINT "YOU HAVE GIVEN ME INCONSISTENT INFORMATION." -860 PRINT "TRY AGAIN, AND THIS TIME PLEASE BE MORE CAREFUL." -870 GOTO 660 -880 G=X -890 REM NOW WE CONVERT GUESS #G INTO G$ -900 FOR X=1 TO G -910 GOSUB 3500 -920 NEXT X -930 GOSUB 6000 -940 PRINT "MY GUESS IS: "; -950 FOR X=1 TO P9 -960 PRINT HX$(X); -970 NEXT X -980 INPUT " BLACKS, WHITES ";B1,W1 -990 IF B1=P9 THEN 1120 -1000 GOSUB 3000 -1010 FOR X=1 TO P -1020 GOSUB 3500 -1030 IF II(X)=0 THEN 1070 -1035 GOSUB 6500 -1040 GOSUB 4000 -1050 GOSUB 4500 -1060 IF B1<>B OR W1<>W THEN II(X)=0 -1070 NEXT X -1080 NEXT M -1090 PRINT "I USED UP ALL MY MOVES!" -1100 PRINT "I GUESS MY CPU IS JUST HAVING AN OFF DAY." -1110 GOTO 1130 -1120 PRINT "I GOT IT IN ";M;" MOVES!" -1130 C=C+M -1140 GOSUB 5000 -1150 NEXT R -1160 PRINT "GAME OVER" -1170 PRINT "FINAL SCORE:" -1180 GOSUB 5040 -1190 STOP -2000 REM -2010 REM BOARD PRINTOUT ROUTINE -2020 REM -2025 PRINT -2030 PRINT "BOARD" -2040 PRINT "MOVE GUESS BLACK WHITE" -2050 FOR Z=1 TO M-1 -2060 PRINT Z;TAB(9);SX$(Z);TAB(25);SS(Z,1);TAB(35);SS(Z,2) -2070 NEXT Z -2075 PRINT -2080 GOTO 380 -2500 REM -2510 REM QUIT ROUTINE -2520 REM -2530 PRINT "QUITTER! MY COMBINATION WAS: "; -2535 GOSUB 4000 -2540 FOR X=1 TO P9 -2550 PRINT AX$(X); -2560 NEXT X -2565 PRINT -2570 PRINT "GOOD BYE" -2580 STOP -3000 REM -3010 REM INITIALIZE QQ(1-P9) TO ZEROS -3020 REM -3030 FOR S=1 TO P9 -3040 QQ(S)=0 -3050 NEXT S -3060 RETURN -3500 REM -3510 REM INCREMENT QQ(1-P9) -3520 REM -3522 IF QQ(1)>0 THEN 3530 -3524 REM IF ZERO, THIS IS OUR FIRST INCREMENT: MAKE ALL ONES -3526 FOR S=1 TO P9 -3527 QQ(S)=1 -3528 NEXT S -3529 RETURN -3530 Q=1 -3540 QQ(Q)=QQ(Q)+1 -3550 IF QQ(Q)<=C9 THEN RETURN -3560 QQ(Q)=1 -3570 Q=Q+1 -3580 GOTO 3540 -4000 REM -4010 REM CONVERT QQ(1-P9) TO AX$(1-P9) -4020 REM -4030 FOR S=1 TO P9 -4040 AX$(S)=MID$(L$,QQ(S),1) -4050 NEXT S -4060 RETURN -4500 REM -4510 REM GET NUMBER OF BLACKS (B) AND WHITES (W) -4520 REM MASHES G$ AND A$ IN THE PROCESS -4530 REM -4540 B=0:W=0:F=0 -4550 FOR S=1 TO P9 -4560 IF GX$(S)<>AX$(S) THEN 4620 -4570 B=B+1 -4580 GX$(S)=CHR$(F) -4590 AX$(S)=CHR$(F+1) -4600 F=F+2 -4610 GOTO 4660 -4620 FOR T=1 TO P9 -4630 IF GX$(S)<>AX$(T) THEN 4650 -4640 IF GX$(T)=AX$(T) THEN 4650 -4645 W=W+1:AX$(T)=CHR$(F):GX$(S)=CHR$(F+1):F=F+2:GOTO 4660 -4650 NEXT T -4660 NEXT S -4670 RETURN -5000 REM -5010 REM PRINT SCORE -5020 REM -5030 PRINT "SCORE:" -5040 PRINT " COMPUTER ";C -5050 PRINT " HUMAN ";H -5060 PRINT -5070 RETURN -5500 REM -5510 REM CONVERT QQ(1-P9) INTO GX$(1-P9) -5520 REM -5530 FOR S=1 TO P9 -5540 GX$(S)=MID$(L$,QQ(S),1) -5550 NEXT S -5560 RETURN -6000 REM -6010 REM CONVERT QQ(1-P9) TO HX$(1-P9) -6020 REM -6030 FOR S=1 TO P9 -6040 HX$(S)=MID$(L$,QQ(S),1) -6050 NEXT S -6060 RETURN -6500 REM -6510 REM COPY H$ INTO G$ -6520 REM -6530 FOR S=1 TO P9 -6540 GX$(S)=HX$(S) -6550 NEXT S -6560 RETURN -8000 REM PROGRAM DATA FOR COLOR NAMES -8010 DATA BLACK,WHITE,RED,GREEN,ORANGE,YELLOW,PURPLE,TAN -9998 REM ...WE'RE SORRY BUT IT'S TIME TO GO... -9999 END diff --git a/bwbtest/GAMES/mathdice.bas b/bwbtest/GAMES/mathdice.bas deleted file mode 100644 index d61b060..0000000 --- a/bwbtest/GAMES/mathdice.bas +++ /dev/null @@ -1,60 +0,0 @@ -10 PRINT TAB(31);"MATH DICE" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -40 PRINT "THIS PROGRAM GENERATES SUCCESIVE PICTURES OF TWO DICE." -50 PRINT "WHEN TWO DICE AND AN EQUAL SIGN FOLLOWED BY A QUESTION" -60 PRINT "MARK HAVE BEEN PRINTED, TYPE YOUR ANSWER AND THE RETURN KEY." -70 PRINT "TO CONCLUDE THE LESSON, TYPE CONTROL-C AS YOUR ANSWER." -80 PRINT -90 PRINT -100 N=N+1 -110 D=INT(6*RND(1)+1) -120 PRINT" ----- " -130 IF D=1 THEN 200 -140 IF D=2 THEN 180 -150 IF D=3 THEN 180 -160 PRINT "I * * I" -170 GOTO 210 -180 PRINT "I * I" -190 GOTO 210 -200 PRINT "I I" -210 IF D=2 THEN 260 -220 IF D=4 THEN 260 -230 IF D=6 THEN 270 -240 PRINT "I * I" -250 GOTO 280 -260 PRINT "I I" -265 GOTO 280 -270 PRINT "I * * I" -280 IF D=1 THEN 350 -290 IF D=2 THEN 330 -300 IF D=3 THEN 330 -310 PRINT "I * * I" -320 GOTO 360 -330 PRINT "I * I" -340 GOTO 360 -350 PRINT "I I" -360 PRINT " ----- " -370 PRINT -375 IF N=2 THEN 500 -380 PRINT " +" -381 PRINT -400 A=D -410 GOTO 100 -500 T=D+A -510 PRINT " ="; -520 INPUT T1 -530 IF T1=T THEN 590 -540 PRINT "NO, COUNT THE SPOTS AND GIVE ANOTHER ANSWER." -541 PRINT " ="; -550 INPUT T2 -560 IF T2=T THEN 590 -570 PRINT "NO, THE ANSWER IS";T -580 GOTO 600 -590 PRINT "RIGHT!" -600 PRINT -601 PRINT "THE DICE ROLL AGAIN..." -610 PRINT -615 N=0 -620 GOTO 100 -999 END diff --git a/bwbtest/GAMES/mugwump.bas b/bwbtest/GAMES/mugwump.bas deleted file mode 100644 index e238486..0000000 --- a/bwbtest/GAMES/mugwump.bas +++ /dev/null @@ -1,56 +0,0 @@ -1 PRINT TAB(33);"MUGWUMP" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -4 REM COURTESY PEOPLE'S COMPUTER COMPANY -10 DIM P(4,2) -20 PRINT "THE OBJECT OF THIS GAME IS TO FIND FOUR MUGWUMPS" -30 PRINT "HIDDEN ON A 10 BY 10 GRID. HOMEBASE IS POSITION 0,0." -40 PRINT "ANY GUESS YOU MAKE MUST BE TWO NUMBERS WITH EACH" -50 PRINT "NUMBER BETWEEN 0 AND 9, INCLUSIVE. FIRST NUMBER" -60 PRINT "IS DISTANCE TO RIGHT OF HOMEBASE AND SECOND NUMBER" -70 PRINT "IS DISTANCE ABOVE HOMEBASE." -80 PRINT -90 PRINT "YOU GET 10 TRIES. AFTER EACH TRY, I WILL TELL" -100 PRINT "YOU HOW FAR YOU ARE FROM EACH MUGWUMP." -110 PRINT -240 GOSUB 1000 -250 T=0 -260 T=T+1 -270 PRINT -275 PRINT -290 PRINT "TURN NO.";T;"-- WHAT IS YOUR GUESS"; -300 INPUT M,N -310 FOR I=1 TO 4 -320 IF P(I,1)=-1 THEN 400 -330 IF P(I,1)<>M THEN 380 -340 IF P(I,2)<>N THEN 380 -350 P(I,1)=-1 -360 PRINT "YOU HAVE FOUND MUGWUMP";I -370 GOTO 400 -380 D=SQR((P(I,1)-M)^2+(P(I,2)-N)^2) -390 PRINT "YOU ARE";(INT(D*10))/10;"UNITS FROM MUGWUMP";I -400 NEXT I -410 FOR J=1 TO 4 -420 IF P(J,1)<>-1 THEN 470 -430 NEXT J -440 PRINT -450 PRINT "YOU GOT THEM ALL IN";T;"TURNS!" -460 GOTO 580 -470 IF T<10 THEN 260 -480 PRINT -490 PRINT "SORRY, THAT'S 10 TRIES. HERE IS WHERE THEY'RE HIDING:" -540 FOR I=1 TO 4 -550 IF P(I,1)=-1 THEN 570 -560 PRINT "MUGWUMP";I;"IS AT (";P(I,1);",";P(I,2);")" -570 NEXT I -580 PRINT -600 PRINT "THAT WAS FUN! LET'S PLAY AGAIN......." -610 PRINT "FOUR MORE MUGWUMPS ARE NOW IN HIDING." -630 GOTO 240 -1000 FOR J=1 TO 2 -1010 FOR I=1 TO 4 -1020 P(I,J)=INT(10*RND(1)) -1030 NEXT I -1040 NEXT J -1050 RETURN -1099 END diff --git a/bwbtest/GAMES/name.bas b/bwbtest/GAMES/name.bas deleted file mode 100644 index 6cdf3f9..0000000 --- a/bwbtest/GAMES/name.bas +++ /dev/null @@ -1,25 +0,0 @@ -1 PRINT TAB(34);"NAME" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT: PRINT: PRINT -5 DIM B$(40) -10 PRINT "HELLO.": PRINT "MY NAME IS CREATIVE COMPUTER." -20 PRINT "WHAT'S YOUR NAME (FIRST AND LAST";: INPUT A$: L=LEN(A$) -30 PRINT: PRINT "THANK YOU, "; -40 FOR I=1 TO L: B$(I)=MID$(A$,I,1): NEXT I -50 FOR I=L TO 1 STEP -1: PRINT B$(I);: NEXT I -60 PRINT ".": PRINT "OOPS! I GUESS I GOT IT BACKWARDS. A SMART" -70 PRINT "COMPUTER LIKE ME SHOULDN'T MAKE A MISTAKE LIKE THAT!": PRINT -80 PRINT "BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER." -90 PRINT "LET'S PUT THEM IN ORDER LIKE THIS: "; -100 FOR J=2 TO L: I=J-1: T$=B$(J) -110 IF T$>B$(I) THEN 130 -120 B$(I+1)=B$(I): I=I-1: IF I>0 THEN 110 -130 B$(I+1)=T$: NEXT J -140 FOR I=1 TO L: PRINT B$(I);: NEXT I: PRINT: PRINT -150 PRINT "DON'T YOU LIKE THAT BETTER";: INPUT D$ -160 IF D$="YES" THEN 180 -170 PRINT: PRINT "I'M SORRY YOU DON'T LIKE IT THAT WAY.": GOTO 200 -180 PRINT: PRINT "I KNEW YOU'D AGREE!!" -200 PRINT: PRINT "I REALLY ENJOYED MEETING YOU ";A$;"." -210 PRINT "HAVE A NICE DAY!" -999 END diff --git a/bwbtest/GAMES/nicoma.bas b/bwbtest/GAMES/nicoma.bas deleted file mode 100644 index d478bc3..0000000 --- a/bwbtest/GAMES/nicoma.bas +++ /dev/null @@ -1,34 +0,0 @@ -2 PRINT TAB(33);"NICOMA" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -10 PRINT "BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS -- A.D. 90!" -20 PRINT -30 PRINT "PLEASE THINK OF A NUMBER BETWEEN 1 AND 100." -40 PRINT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF"; -45 INPUT A -50 PRINT "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF"; -55 INPUT B -60 PRINT "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF"; -65 INPUT C -70 PRINT -80 PRINT "LET ME THINK A MOMENT..." -85 PRINT -90 FOR I=1 TO 1500: NEXT I -100 D=70*A+21*B+15*C -110 IF D<=105 THEN 140 -120 D=D-105 -130 GOTO 110 -140 PRINT "YOUR NUMBER WAS";D;", RIGHT"; -160 INPUT A$ -165 PRINT -170 IF A$="YES" THEN 220 -180 IF A$="NO" THEN 240 -190 PRINT "EH? I DON'T UNDERSTAND '";A$;"' TRY 'YES' OR 'NO'." -200 GOTO 160 -220 PRINT "HOW ABOUT THAT!!" -230 GOTO 250 -240 PRINT "I FEEL YOUR ARITHMETIC IS IN ERROR." -250 PRINT -260 PRINT "LET'S TRY ANOTHER." -270 GOTO 20 -999 END diff --git a/bwbtest/GAMES/nim.bas b/bwbtest/GAMES/nim.bas deleted file mode 100644 index 097e236..0000000 --- a/bwbtest/GAMES/nim.bas +++ /dev/null @@ -1,156 +0,0 @@ -100 PRINT TAB(33);"NIM" -110 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -120 PRINT:PRINT:PRINT -210 DIM A(100),B(100,10),D(2) -220 PRINT "THIS IS THE GAME OF NIM." -230 PRINT "DO YOU WANT INSTRUCTIONS"; -240 INPUT Z$ -250 IF Z$="NO" THEN 440 -260 IF Z$="no" THEN 440 -270 IF Z$="YES" THEN 310 -280 IF Z$="yes" THEN 310 -290 PRINT "PLEASE ANSWER YES OR NO" -300 GOTO 240 -310 PRINT "THE GAME IS PLAYED WITH A NUMBER OF PILES OF OBJECTS." -320 PRINT "ANY NUMBER OF OBJECTS ARE REMOVED FROM ONE PILE BY YOU AND" -330 PRINT "THE MACHINE ALTERNATELY. ON YOUR TURN, YOU MAY TAKE" -340 PRINT "ALL THE OBJECTS THAT REMAIN IN ANY PILE, BUT YOU MUST" -350 PRINT "TAKE AT LEAST ONE OBJECT, AND YOU MAY TAKE OBJECTS FROM" -360 PRINT "ONLY ONE PILE ON A SINGLE TURN. YOU MUST SPECIFY WHETHER" -370 PRINT "WINNING IS DEFINED AS TAKING OR NOT TAKING THE LAST OBJECT," -380 PRINT "THE NUMBER OF PILES IN THE GAME, AND HOW MANY OBJECTS ARE" -390 PRINT "ORIGINALLY IN EACH PILE. EACH PILE MAY CONTAIN A" -400 PRINT "DIFFERENT NUMBER OF OBJECTS." -410 PRINT "THE MACHINE WILL SHOW ITS MOVE BY LISTING EACH PILE AND THE" -420 PRINT "NUMBER OF OBJECTS REMAINING IN THE PILES AFTER EACH OF ITS" -430 PRINT "MOVES." -440 PRINT -450 PRINT "ENTER WIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST"; -460 INPUT W -470 IF W=1 THEN 490 -480 IF W<>2 THEN 450 -490 PRINT "ENTER NUMBER OF PILES"; -500 INPUT N -510 IF N>100 THEN 490 -520 IF N<1 THEN 490 -530 IF N<>INT(N) THEN 490 -540 PRINT "ENTER PILE SIZES" -550 FOR I=1 TO N -560 PRINT I; -570 INPUT A(I) -580 IF A(I)>2000 THEN 560 -590 IF A(I)<1 THEN 560 -600 IF A(I)<>INT(A(I)) THEN 560 -610 NEXT I -620 PRINT "DO YOU WANT TO MOVE FIRST"; -630 INPUT Q9$ -640 IF Q9$="YES" THEN 1450 -650 IF Q9$="yes" THEN 1450 -660 IF Q9$="NO" THEN 700 -670 IF Q9$="no" THEN 700 -680 PRINT "PLEASE ANSWER YES OR NO." -690 GOTO 630 -700 IF W=1 THEN 940 -710 LET C=0 -720 FOR I=1 TO N -730 IF A(I)=0 THEN 770 -740 LET C=C+1 -750 IF C=3 THEN 840 -760 LET D(C)=I -770 NEXT I -780 IF C=2 THEN 920 -790 IF A(D(1))>1 THEN 820 -800 PRINT "MACHINE LOSES" -810 GOTO 1640 -820 PRINT "MACHINE WINS" -830 GOTO 1640 -840 LET C=0 -850 FOR I=1 TO N -860 IF A(I)>1 THEN 940 -870 IF A(I)=0 THEN 890 -880 LET C=C+1 -890 NEXT I -900 IF C/2<>INT(C/2) THEN 800 -910 GOTO 940 -920 IF A(D(1))=1 THEN 820 -930 IF A(D(2))=1 THEN 820 -940 FOR I=1 TO N -950 LET E=A(I) -960 FOR J=0 TO 10 -970 LET F=E/2 -980 LET B(I,J)=2*(F-INT(F)) -990 LET E=INT(F) -1000 NEXT J -1010 NEXT I -1020 FOR J=10 TO 0 STEP -1 -1030 LET C=0 -1040 LET H=0 -1050 FOR I=1 TO N -1060 IF B(I,J)=0 THEN 1110 -1070 LET C=C+1 -1080 IF A(I)<=H THEN 1110 -1090 LET H=A(I) -1100 LET G=I -1110 NEXT I -1120 IF C/2<>INT(C/2) THEN 1190 -1130 NEXT J -1140 LET E=INT(N*RND(1)+1) -1150 IF A(E)=0 THEN 1140 -1160 LET F=INT(A(E)*RND(1)+1) -1170 LET A(E)=A(E)-F -1180 GOTO 1380 -1190 LET A(G)=0 -1200 FOR J=0 TO 10 -1210 LET B(G,J)=0 -1220 LET C=0 -1230 FOR I=1 TO N -1240 IF B(I,J)=0 THEN 1260 -1250 LET C=C+1 -1260 NEXT I -1270 LET A(G)=A(G)+2*(C/2-INT(C/2))*2^J -1280 NEXT J -1290 IF W=1 THEN 1380 -1300 LET C=0 -1310 FOR I=1 TO N -1320 IF A(I)>1 THEN 1380 -1330 IF A(I)=0 THEN 1350 -1340 LET C=C+1 -1350 NEXT I -1360 IF C/2<>INT(C/2) THEN 1380 -1370 LET A(G)=1-A(G) -1380 PRINT "PILE SIZE" -1390 FOR I=1 TO N -1400 PRINT I;A(I) -1410 NEXT I -1420 IF W=2 THEN 1450 -1430 GOSUB 1570 -1440 IF Z=1 THEN 820 -1450 PRINT "YOUR MOVE - PILE, NUMBER TO BE REMOVED"; -1460 INPUT X,Y -1470 IF X>N THEN 1450 -1480 IF X<1 THEN 1450 -1490 IF X<>INT(X) THEN 1450 -1500 IF Y>A(X) THEN 1450 -1510 IF Y<1 THEN 1450 -1520 IF Y<>INT(Y) THEN 1450 -1530 LET A(X)=A(X)-Y -1540 GOSUB 1570 -1550 IF Z=1 THEN 800 -1560 GOTO 700 -1570 LET Z=0 -1580 FOR I=1 TO N -1590 IF A(I)=0 THEN 1610 -1600 RETURN -1610 NEXT I -1620 LET Z=1 -1630 RETURN -1640 PRINT "do you want to play another game"; -1650 INPUT Q9$ -1660 IF Q9$="YES" GOTO 1720 -1670 IF Q9$="yes" GOTO 1720 -1680 IF Q9$="NO" GOTO 1730 -1690 IF Q9$="no" GOTO 1730 -1700 PRINT "PLEASE. YES OR NO." -1710 GOTO 1650 -1720 GOTO 440 -1730 END diff --git a/bwbtest/GAMES/number.bas b/bwbtest/GAMES/number.bas deleted file mode 100644 index c5b9ff7..0000000 --- a/bwbtest/GAMES/number.bas +++ /dev/null @@ -1,37 +0,0 @@ -1 PRINT TAB(33);"NUMBER" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -4 PRINT "YOU HAVE 100 POINTS. BY GUESSING NUMBERS FROM 1 TO 5, YOU" -5 PRINT "CAN GAIN OR LOSE POINTS DEPENDING UPON HOW CLOSE YOU GET TO" -6 PRINT "A RANDOM NUMBER SELECTED BY THE COMPUTER.": PRINT -7 PRINT "YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLE(!)" -8 PRINT "YOUR POINT COUNT. YOU WIN WHEN YOU GET 500 POINTS." -9 PRINT: P=100 -10 DEF FNR(X)=INT(5*RND(1)+1) -12 INPUT "GUESS A NUMBER FROM 1 TO 5";G -15 R=FNR(1) -16 S=FNR(1) -17 T=FNR(1) -18 U=FNR(1) -19 V=FNR(1) -20 IF G=R THEN 30 -21 IF G=S THEN 40 -22 IF G=T THEN 50 -23 IF G=U THEN 60 -24 IF G=V THEN 70 -25 IF G>5 THEN 12 -30 P=P-5 -35 GOTO 80 -40 P=P+5 -45 GOTO 80 -50 P=P+P -53 PRINT "YOU HIT THE JACKPOT!!!" -55 GOTO 80 -60 P=P+1 -65 GOTO 80 -70 P=P-(P*.5) -80 IF P>500 THEN 90 -82 PRINT "YOU HAVE";P;"POINTS.":PRINT -85 GOTO 12 -90 PRINT "!!!!YOU WIN!!!! WITH ";P;"POINTS." -99 END diff --git a/bwbtest/GAMES/onecheck.bas b/bwbtest/GAMES/onecheck.bas deleted file mode 100644 index 2161a74..0000000 --- a/bwbtest/GAMES/onecheck.bas +++ /dev/null @@ -1,86 +0,0 @@ -2 PRINT TAB(30);"ONE CHECK" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -8 DIM A(64) -10 PRINT "SOLITAIRE CHECKER PUZZLE BY DAVID AHL" -15 PRINT -20 PRINT "48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SPACES OF A" -25 PRINT "STANDARD 64-SQUARE CHECKERBOARD. THE OBJECT IS TO" -30 PRINT "REMOVE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS" -35 PRINT "(AS IN STANDARD CHECKERS). USE THE NUMBERED BOARD TO" -40 PRINT "INDICATE THE SQUARE YOU WISH TO JUMP FROM AND TO. ON" -45 PRINT "THE BOARD PRINTED OUT ON EACH TURN '1' INDICATES A" -50 PRINT "CHECKER AND '0' AN EMPTY SQUARE. WHEN YOU HAVE NO" -55 PRINT "POSSIBLE JUMPS REMAINING, INPUT A '0' IN RESPONSE TO" -60 PRINT "QUESTION 'JUMP FROM ?'" -62 PRINT -63 PRINT "HERE IS THE NUMERICAL BOARD:" -66 PRINT -70 FOR J=1 TO 57 STEP 8 -74 PRINT J;TAB(4);J+1;TAB(8);J+2;TAB(12);J+3;TAB(16);J+4;TAB(20);J+5; -75 PRINT TAB(24);J+6;TAB(28);J+7 -76 NEXT J -77 PRINT -78 PRINT "AND HERE IS THE OPENING POSITION OF THE CHECKERS." -79 PRINT -80 FOR J=1 TO 64 -82 A(J)=1 -84 NEXT J -86 FOR J=19 TO 43 STEP 8 -88 FOR I=J TO J+3 -90 A(I)=0 -92 NEXT I -94 NEXT J -96 M=0 -98 GOTO 340 -100 INPUT "JUMP FROM";F -105 IF F=0 THEN 500 -110 INPUT "TO";T -112 PRINT -118 REM *** CHECK LEGALITY OF MOVE -120 F1=INT((F-1)/8) -130 F2=F-8*F1 -140 T1=INT((T-1)/8) -150 T2=T-8*T1 -160 IF F1>7 THEN 230 -170 IF T1>7 THEN 230 -180 IF F2>8 THEN 230 -190 IF T2>8 THEN 230 -200 IF ABS(F1-T1)<>2 THEN 230 -210 IF ABS(F2-T2)<>2 THEN 230 -212 IF A((T+F)/2)=0 THEN 230 -215 IF A(F)=0 THEN 230 -220 IF A(T)=1 THEN 230 -225 GOTO 250 -230 PRINT "ILLEGAL MOVE. TRY AGAIN..." -240 GOTO 100 -245 REM *** UPDATE BOARD -250 A(T)=1 -260 A(F)=0 -270 A((T+F)/2)=0 -290 M=M+1 -310 REM *** PRINT BOARD -340 FOR J=1 TO 57 STEP 8 -350 FOR I=J TO J+7 -360 PRINT A(I); -370 NEXT I -380 PRINT -390 NEXT J -400 PRINT -410 GOTO 100 -490 REM *** END GAME SUMMARY -500 S=0 -510 FOR I=1 TO 64 -520 S=S+A(I) -530 NEXT I -540 PRINT:PRINT "YOU MADE";M;"JUMPS AND HAD";S;"PIECES" -550 PRINT "REMAINING ON THE BOARD." -560 PRINT -562 INPUT "TRY AGAIN";A$ -570 IF A$="YES" THEN 70 -575 IF A$="NO" THEN 600 -580 PRINT "PLEASE ANSWER 'YES' OR 'NO'." -590 GOTO 562 -600 PRINT -610 PRINT "O.K. HOPE YOU HAD FUN!!" -999 END diff --git a/bwbtest/GAMES/orbit.bas b/bwbtest/GAMES/orbit.bas deleted file mode 100644 index 1230288..0000000 --- a/bwbtest/GAMES/orbit.bas +++ /dev/null @@ -1,96 +0,0 @@ -2 PRINT TAB(33);"ORBIT" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT:PRINT:PRINT -10 PRINT "SOMEWHERE ABOVE YOUR PLANET IS A ROMULAN SHIP." -15 PRINT -20 PRINT "THE SHIP IS IN A CONSTANT POLAR ORBIT. ITS" -25 PRINT "DISTANCE FROM THE CENTER OF YOUR PLANET IS FROM" -30 PRINT "10,000 TO 30,000 MILES AND AT ITS PRESENT VELOCITY CAN" -31 PRINT "CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS." -35 PRINT -40 PRINT "UNFORTUNATELY, THEY ARE USING A CLOAKING DEVICE SO" -45 PRINT "YOU ARE UNABLE TO SEE THEM, BUT WITH A SPECIAL" -50 PRINT "INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR" -55 PRINT "PHOTON BOMB EXPLODED. YOU HAVE SEVEN HOURS UNTIL THEY" -60 PRINT "HAVE BUILT UP SUFFICIENT POWER IN ORDER TO ESCAPE" -65 PRINT "YOUR PLANET'S GRAVITY." -70 PRINT -75 PRINT "YOUR PLANET HAS ENOUGH POWER TO FIRE ONE BOMB AN HOUR." -80 PRINT -85 PRINT "AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED TO GIVE AN" -90 PRINT "ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF" -95 PRINT "100 MILES (BETWEEN 100 AND 300), AFTER WHICH YOUR BOMB'S" -100 PRINT "DISTANCE FROM THE ENEMY SHIP WILL BE GIVEN." -105 PRINT -110 PRINT "AN EXPLOSION WITHIN 5,000 MILES OF THE ROMULAN SHIP" -111 PRINT "WILL DESTROY IT." -114 PRINT -115 PRINT "BELOW IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT." -116 PRINT -117 PRINT -168 PRINT " 90" -170 PRINT " 0000000000000" -171 PRINT " 0000000000000000000" -172 PRINT " 000000 000000" -173 PRINT " 00000 00000" -174 PRINT " 00000 XXXXXXXXXXX 00000" -175 PRINT " 00000 XXXXXXXXXXXXX 00000" -176 PRINT " 0000 XXXXXXXXXXXXXXX 0000" -177 PRINT " 0000 XXXXXXXXXXXXXXXXX 0000" -178 PRINT " 0000 XXXXXXXXXXXXXXXXXXX 0000" -179 PRINT "180<== 00000 XXXXXXXXXXXXXXXXXXX 00000 ==>0" -180 PRINT " 0000 XXXXXXXXXXXXXXXXXXX 0000" -181 PRINT " 0000 XXXXXXXXXXXXXXXXX 0000" -182 PRINT " 0000 XXXXXXXXXXXXXXX 0000" -183 PRINT " 00000 XXXXXXXXXXXXX 00000" -184 PRINT " 00000 XXXXXXXXXXX 00000" -185 PRINT " 00000 00000" -186 PRINT " 000000 000000" -187 PRINT " 0000000000000000000" -188 PRINT " 0000000000000" -190 PRINT " 270" -192 PRINT -195 PRINT "X - YOUR PLANET" -196 PRINT "O - THE ORBIT OF THE ROMULAN SHIP" -197 PRINT -198 PRINT "ON THE ABOVE DIAGRAM, THE ROMULAN SHIP IS CIRCLING" -199 PRINT "COUNTERCLOCKWISE AROUND YOUR PLANET. DON'T FORGET THAT" -200 PRINT "WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE" -210 PRINT "AND ORBITAL RATE WILL REMAIN CONSTANT." -220 PRINT -230 PRINT "GOOD LUCK. THE FEDERATION IS COUNTING ON YOU." -270 A=INT(360*RND(1)) -280 D=INT(200*RND(1)+200) -290 R=INT(20*RND(1)+10) -300 H=0 -310 IF H=7 THEN 490 -320 H=H+1 -325 PRINT -326 PRINT -330 PRINT "THIS IS HOUR";H;", AT WHAT ANGLE DO YOU WISH TO SEND" -335 PRINT "YOUR PHOTON BOMB"; -340 INPUT A1 -350 PRINT "HOW FAR OUT DO YOU WISH TO DETONATE IT"; -360 INPUT D1 -365 PRINT -366 PRINT -370 A=A+R -380 IF A<360 THEN 400 -390 A=A-360 -400 T=ABS(A-A1) -410 IF T<180 THEN 430 -420 T=360-T -430 C=SQR(D*D+D1*D1-2*D*D1*COS(T*3.14159/180)) -440 PRINT "YOUR PHOTON BOMB EXPLODED";C;"*10^2 MILES FROM THE" -445 PRINT "ROMULAN SHIP." -450 IF C<=50 THEN 470 -460 GOTO 310 -470 PRINT "YOU HAVE SUCCESFULLY COMPLETED YOUR MISSION." -480 GOTO 500 -490 PRINT "YOU HAVE ALLOWED THE ROMULANS TO ESCAPE." -500 PRINT "ANOTHER ROMULAN SHIP HAS GONE INTO ORBIT." -510 PRINT "DO YOU WISH TO TRY TO DESTROY IT"; -520 INPUT C$ -530 IF C$="YES" THEN 270 -540 PRINT "GOOD BYE." -999 END diff --git a/bwbtest/GAMES/pizza.bas b/bwbtest/GAMES/pizza.bas deleted file mode 100644 index c2e9a49..0000000 --- a/bwbtest/GAMES/pizza.bas +++ /dev/null @@ -1,68 +0,0 @@ -5 PRINT TAB(33);"PIZZA" -10 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -15 PRINT: PRINT: PRINT -20 DIM S$(16),M$(4) -30 PRINT "PIZZA DELIVERY GAME": PRINT -50 INPUT "WHAT IS YOUR FIRST NAME";N$: PRINT -80 PRINT "HI, ";N$;". IN THIS GAME YOU ARE TO TAKE ORDERS" -90 PRINT "FOR PIZZAS. THEN YOU ARE TO TELL A DELIVERY BOY" -100 PRINT "WHERE TO DELIVER THE ORDERED PIZZAS.": PRINT: PRINT -140 FOR I=1 TO 16 -150 READ S$(I) -160 NEXT I -170 FOR I=1 TO 4 -180 READ M$(I) -190 NEXT I -200 DATA "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O" -210 DATA "P","1","2","3","4" -230 PRINT "MAP OF THE CITY OF HYATTSVILLE": PRINT -250 PRINT " -----1-----2-----3-----4-----" -260 K=4 -270 FOR I=1 TO 4 -280 PRINT "-": PRINT "-": PRINT"-": PRINT "-" -320 PRINT M$(K); -330 S1=16-4*I+1 -340 PRINT " ";S$(S1);" ";S$(S1+1);" ";S$(S1+2);" "; -350 PRINT S$(S1+3);" ";M$(K) -380 K=K-1 -390 NEXT I -400 PRINT "-": PRINT "-": PRINT "-": PRINT "-" -440 PRINT " -----1-----2-----3-----4-----": PRINT -460 PRINT "THE OUTPUT IS A MAP OF THE HOMES WHERE" -470 PRINT "YOU ARE TO SEND PIZZAS.": PRINT -490 PRINT "YOUR JOB IS TO GIVE A TRUCK DRIVER" -500 PRINT "THE LOCATION OR COORDINATES OF THE" -510 PRINT "HOME ORDERING THE PIZZA.": PRINT -520 INPUT "DO YOU NEED MORE DIRECTIONS";A$ -530 IF A$="YES" THEN 590 -540 IF A$="NO" THEN 750 -550 PRINT "'YES' OR 'NO' PLEASE, NOW THEN,": GOTO 520 -590 PRINT: PRINT "SOMEBODY WILL ASK FOR A PIZZA TO BE" -600 PRINT "DELIVERED. THEN A DELIVERY BOY WILL" -610 PRINT "ASK YOU FOR THE LOCATION.":PRINT " EXAMPLE:" -620 PRINT "THIS IS J. PLEASE SEND A PIZZA." -640 PRINT "DRIVER TO ";N$;". WHERE DOES J LIVE?" -650 PRINT "YOUR ANSWER WOULD BE 2,3": PRINT -660 INPUT "UNDERSTAND";A$ -670 IF A$="YES" THEN 690 -680 PRINT "THIS JOB IS DEFINITELY TOO DIFFICULT FOR YOU. THANKS ANYWAY" -685 GOTO 999 -690 PRINT "GOOD. YOU ARE NOW READY TO START TAKING ORDERS.": PRINT -700 PRINT "GOOD LUCK!!": PRINT -750 FOR I=1 TO 5 -760 S=INT(RND(1)*16+1): PRINT -770 PRINT "HELLO ";N$;"'S PIZZA. THIS IS ";S$(S);"."; -775 PRINT " PLEASE SEND A PIZZA." -780 PRINT " DRIVER TO ";N$;": WHERE DOES ";S$(S);" LIVE"; -790 INPUT A(1),A(2) -870 T=A(1)+(A(2)-1)*4 -880 IF T=S THEN 920 -890 PRINT "THIS IS ";S$(T);". I DID NOT ORDER A PIZZA." -900 PRINT "I LIVE AT ";A(1);",";A(2) -910 GOTO 780 -920 PRINT "HELLO ";N$;". THIS IS ";S$(S);", THANKS FOR THE PIZZA." -930 NEXT I -940 PRINT: INPUT "DO YOU WANT TO DELIVER MORE PIZZAS";A$ -960 IF A$="YES" THEN 750 -970 PRINT: PRINT "O.K. ";N$;", SEE YOU LATER!":PRINT -999 END diff --git a/bwbtest/GAMES/poetry.bas b/bwbtest/GAMES/poetry.bas deleted file mode 100644 index 1b5314f..0000000 --- a/bwbtest/GAMES/poetry.bas +++ /dev/null @@ -1,43 +0,0 @@ -10 PRINT TAB(30);"POETRY" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -90 ON I GOTO 100,101,102,103,104 -100 PRINT "MIDNIGHT DREARY";:GOTO 210 -101 PRINT "FIERY EYES";:GOTO 210 -102 PRINT "BIRD OR FIEND";:GOTO 210 -103 PRINT "THING OF EVIL";:GOTO 210 -104 PRINT "PROPHET";:GOTO 210 -110 ON I GOTO 111,112,113,114,115 -111 PRINT "BEGUILING ME";:U=2:GOTO 210 -112 PRINT "THRILLED ME";:GOTO 210 -113 PRINT "STILL SITTING....";:GOTO 212 -114 PRINT "NEVER FLITTING";:U=2:GOTO 210 -115 PRINT "BURNED";:GOTO 210 -120 ON I GOTO 121,122,123,124,125 -121 PRINT "AND MY SOUL";:GOTO 210 -122 PRINT "DARKNESS THERE";:GOTO 210 -123 PRINT "SHALL BE LIFTED";:GOTO 210 -124 PRINT "QUOTH THE RAVEN";:GOTO 210 -125 IF U=0 THEN 210 -126 PRINT "SIGN OF PARTING";:GOTO 210 -130 ON I GOTO 131,132,133,134,135 -131 PRINT "NOTHING MORE";:GOTO 210 -132 PRINT "YET AGAIN";:GOTO 210 -133 PRINT "SLOWLY CREEPING";:GOTO 210 -134 PRINT "...EVERMORE";:GOTO 210 -135 PRINT "NEVERMORE"; -210 IF U=0 OR RND(1)>.19 THEN 212 -211 PRINT ",";:U=2 -212 IF RND(1)>.65 THEN 214 -213 PRINT " ";:U=U+1:GOTO 215 -214 PRINT : U=0 -215 I=INT(INT(10*RND(1))/2)+1 -220 J=J+1 : K=K+1 -230 IF U>0 OR INT(J/2)<>J/2 THEN 240 -235 PRINT " "; -237 INPUT "PRESS RETURN TO CONTINUE"; A12 -240 ON J GOTO 90,110,120,130,250 -250 J=0 : PRINT : IF K>20 THEN 270 -260 GOTO 215 -270 PRINT : U=0 : K=0 : GOTO 110 -999 END diff --git a/bwbtest/GAMES/poker.bas b/bwbtest/GAMES/poker.bas deleted file mode 100644 index c9204a6..0000000 --- a/bwbtest/GAMES/poker.bas +++ /dev/null @@ -1,416 +0,0 @@ -2 PRINT TAB(33);"POKER" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -10 DIM A(50),B(15) -20 DEF FNA(X)=INT(10*RND(1)) -30 DEF FNB(X)=X-100*INT(X/100) -40 PRINT "WELCOME TO THE CASINO. WE EACH HAVE $200." -50 PRINT "I WILL OPEN THE BETTING BEFORE THE DRAW; YOU OPEN AFTER." -60 PRINT "TO FOLD BET 0; TO CHECK BET .5." -70 PRINT "ENOUGH TALK -- LET'S GET DOWN TO BUSINESS." -80 PRINT -90 LET O=1 -100 LET C=200 -110 LET S=200 -120 LET P=0 -130 REM -140 PRINT -150 IF C<=5 THEN 3670 -160 PRINT "THE ANTE IS $5. I WILL DEAL:" -170 PRINT -180 IF S>5 THEN 200 -190 GOSUB 3830 -200 LET P=P+10 -210 LET S=S-5 -220 LET C=C-5 -230 FOR Z=1 TO 10 -240 GOSUB 1740 -250 NEXT Z -260 PRINT "YOUR HAND:" -270 N=1 -280 GOSUB 1850 -290 N=6 -300 I=2 -310 GOSUB 2170 -320 PRINT -330 IF I<>6 THEN 470 -340 IF FNA(0)<=7 THEN 370 -350 LET X=11100 -360 GOTO 420 -370 IF FNA(0)<=7 THEN 400 -380 LET X=11110 -390 GOTO 420 -400 IF FNA(0)>=1 THEN 450 -410 X=11111 -420 I=7 -430 Z=23 -440 GOTO 580 -450 Z=1 -460 GOTO 510 -470 IF U>=13 THEN 540 -480 IF FNA(0)>=2 THEN 500 -490 GOTO 420 -500 Z=0 -510 K=0 -520 PRINT "I CHECK." -530 GOTO 620 -540 IF U<=16 THEN 570 -550 Z=2 -560 IF FNA(0)>=1 THEN 580 -570 Z=35 -580 V=Z+FNA(0) -590 GOSUB 3480 -600 PRINT "I'LL OPEN WITH $";V -610 K=V -620 GOSUB 3050 -630 GOSUB 650 -640 GOTO 820 -650 IF I<>3 THEN 760 -660 PRINT -670 PRINT "I WIN." -680 C=C+P -690 PRINT "NOW I HAVE $";C;"AND YOU HAVE $";S -700 PRINT "DO YOU WISH TO CONTINUE"; -710 INPUT H$ -720 IF H$="YES" THEN 120 -730 IF H$="NO" THEN 4100 -740 PRINT "ANSWER YES OR NO, PLEASE." -750 GOTO 700 -760 IF I<>4 THEN 810 -770 PRINT -780 PRINT "YOU WIN." -790 S=S+P -800 GOTO 690 -810 RETURN -820 PRINT -830 PRINT "NOW WE DRAW -- HOW MANY CARDS DO YOU WANT"; -840 INPUT T -850 IF T=0 THEN 980 -860 Z=10 -870 IF T<4 THEN 900 -880 PRINT "YOU CAN'T DRAW MORE THAN THREE CARDS." -890 GOTO 840 -900 PRINT "WHAT ARE THEIR NUMBERS:" -910 FOR Q=1 TO T -920 INPUT U -930 GOSUB 1730 -940 NEXT Q -950 PRINT "YOUR NEW HAND:" -960 N=1 -970 GOSUB 1850 -980 Z=10+T -990 FOR U=6 TO 10 -1000 IF INT(X/10^(U-6))<>10*INT(X/10^(U-5)) THEN 1020 -1010 GOSUB 1730 -1020 NEXT U -1030 PRINT -1040 PRINT "I AM TAKING";Z-10-T;"CARD"; -1050 IF Z=11+T THEN 1090 -1060 PRINT "S" -1070 PRINT -1080 GOTO 1100 -1090 PRINT -1100 N=6 -1110 V=I -1120 I=1 -1130 GOSUB 2170 -1140 B=U -1150 M=D -1160 IF V<>7 THEN 1190 -1170 Z=28 -1180 GOTO 1330 -1190 IF I<>6 THEN 1220 -1200 Z=1 -1210 GOTO 1330 -1220 IF U>=13 THEN 1270 -1230 Z=2 -1240 IF FNA(0)<>6 THEN 1260 -1250 Z=19 -1260 GOTO 1330 -1270 IF U>=16 THEN 1320 -1280 Z=19 -1290 IF FNA(0)<>8 THEN 1310 -1300 Z=11 -1310 GOTO 1330 -1320 Z=2 -1330 K=0 -1340 GOSUB 3050 -1350 IF T<>.5 THEN 1450 -1360 IF V=7 THEN 1400 -1370 IF I<>6 THEN 1400 -1380 PRINT "I'LL CHECK" -1390 GOTO 1460 -1400 V=Z+FNA(0) -1410 GOSUB 3480 -1420 PRINT "I'LL BET $";V -1430 K=V -1440 GOSUB 3060 -1450 GOSUB 650 -1460 PRINT -1470 PRINT "NOW WE COMPARE HANDS:" -1480 J$=H$ -1490 K$=I$ -1500 PRINT "MY HAND:" -1510 N=6 -1520 GOSUB 1850 -1530 N=1 -1540 GOSUB 2170 -1550 PRINT -1560 PRINT "YOU HAVE "; -1570 K=D -1580 GOSUB 3690 -1590 H$=J$ -1600 I$=K$ -1610 K=M -1620 PRINT "AND I HAVE "; -1630 GOSUB 3690 -1640 IF B>U THEN 670 -1650 IF U>B THEN 780 -1660 IF H$="A FLUS" THEN 1700 -1662 IF FNB(M)FNB(D) THEN 670 -1670 PRINT "THE HAND IS DRAWN." -1680 PRINT "ALL $";P;"REMAINS IN THE POT." -1690 GOTO 140 -1700 IF FNB(M)>FNB(D) THEN 670 -1710 IF FNB(D)>FNB(M) THEN 780 -1720 GOTO 1670 -1730 Z=Z+1 -1740 A(Z)=100*INT(4*RND(1))+INT(100*RND(1)) -1750 IF INT(A(Z)/100)>3 THEN 1740 -1760 IF A(Z)-100*INT(A(Z)/100)>12 THEN 1740 -1765 IF Z=1 THEN 1840 -1770 FOR K=1 TO Z-1 -1780 IF A(Z)=A(K) THEN 1740 -1790 NEXT K -1800 IF Z<=10 THEN 1840 -1810 N=A(U) -1820 A(U)=A(Z) -1830 A(Z)=N -1840 RETURN -1850 FOR Z=N TO N+4 -1860 PRINT Z;"-- "; -1870 GOSUB 1950 -1880 PRINT " OF"; -1890 GOSUB 2070 -1900 IF Z/2<>INT(Z/2) THEN 1920 -1910 PRINT -1920 NEXT Z -1930 PRINT -1940 RETURN -1950 K=FNB(A(Z)) -1960 IF K<>9 THEN 1980 -1970 PRINT "JACK"; -1980 IF K<>10 THEN 2000 -1990 PRINT "QUEEN"; -2000 IF K<>11 THEN 2020 -2010 PRINT "KING"; -2020 IF K<>12 THEN 2040 -2030 PRINT "ACE"; -2040 IF K>=9 THEN 2060 -2050 PRINT K+2; -2060 RETURN -2070 K=INT(A(Z)/100) -2080 IF K<>0 THEN 2100 -2090 PRINT " CLUBS", -2100 IF K<>1 THEN 2120 -2110 PRINT " DIAMONDS", -2120 IF K<>2 THEN 2140 -2130 PRINT " HEARTS", -2140 IF K<>3 THEN 2160 -2150 PRINT " SPADES", -2160 RETURN -2170 U=0 -2180 FOR Z=N TO N+4 -2190 B(Z)=FNB(A(Z)) -2200 IF Z=N+4 THEN 2230 -2210 IF INT(A(Z)/100)<>INT(A(Z+1)/100) THEN 2230 -2220 U=U+1 -2230 NEXT Z -2240 IF U<>4 THEN 2310 -2250 X=11111 -2260 D=A(N) -2270 H$="A FLUS" -2280 I$="H IN" -2290 U=15 -2300 RETURN -2310 FOR Z=N TO N+3 -2320 FOR K=Z+1 TO N+4 -2330 IF B(Z)<=B(K) THEN 2390 -2340 X=A(Z) -2350 A(Z)=A(K) -2360 B(Z)=B(K) -2370 A(K)=X -2380 B(K)=A(K)-100*INT(A(K)/100) -2390 NEXT K -2400 NEXT Z -2410 X=0 -2420 FOR Z=N TO N+3 -2430 IF B(Z)<>B(Z+1) THEN 2470 -2440 X=X+11*10^(Z-N) -2450 D=A(Z) -2460 GOSUB 2760 -2470 NEXT Z -2480 IF X<>0 THEN 2620 -2490 IF B(N)+3<>B(N+3) THEN 2520 -2500 X=1111 -2510 U=10 -2520 IF B(N+1)+3<>B(N+4) THEN 2620 -2530 IF U<>10 THEN 2600 -2540 U=14 -2550 H$="STRAIG" -2560 I$="HT" -2570 X=11111 -2580 D=A(N+4) -2590 RETURN -2600 U=10 -2610 X=11110 -2620 IF U>=10 THEN 2690 -2630 D=A(N+4) -2640 H$="SCHMAL" -2650 I$="TZ, " -2660 U=9 -2670 X=11000 -2680 GOTO 2740 -2690 IF U<>10 THEN 2720 -2700 IF I=1 THEN 2740 -2710 GOTO 2750 -2720 IF U>12 THEN 2750 -2730 IF FNB(D)>6 THEN 2750 -2740 I=6 -2750 RETURN -2760 IF U>=11 THEN 2810 -2770 U=11 -2780 H$="A PAIR" -2790 I$=" OF " -2800 RETURN -2810 IF U<>11 THEN 2910 -2820 IF B(Z)<>B(Z-1) THEN 2870 -2830 H$="THREE" -2840 I$=" " -2850 U=13 -2860 RETURN -2870 H$="TWO P" -2880 I$="AIR, " -2890 U=12 -2900 RETURN -2910 IF U>12 THEN 2960 -2920 U=16 -2930 H$="FULL H" -2940 I$="OUSE, " -2950 RETURN -2960 IF B(Z)<>B(Z-1) THEN 3010 -2970 U=17 -2980 H$="FOUR" -2990 I$=" " -3000 RETURN -3010 U=16 -3020 H$="FULL H" -3030 I$="OUSE, " -3040 RETURN -3050 G=0 -3060 PRINT:PRINT "WHAT IS YOUR BET"; -3070 INPUT T -3080 IF T-INT(T)=0 THEN 3140 -3090 IF K<>0 THEN 3120 -3100 IF G<>0 THEN 3120 -3110 IF T=.5 THEN 3410 -3120 PRINT "NO SMALL CHANGE, PLEASE." -3130 GOTO 3060 -3140 IF S-G-T>=0 THEN 3170 -3150 GOSUB 3830 -3160 GOTO 3060 -3170 IF T<>0 THEN 3200 -3180 I=3 -3190 GOTO 3380 -3200 IF G+T>=K THEN 3230 -3210 PRINT "IF YOU CAN'T SEE MY BET, THEN FOLD." -3220 GOTO 3060 -3230 G=G+T -3240 IF G=K THEN 3380 -3250 IF Z<>1 THEN 3420 -3260 IF G>5 THEN 3300 -3270 IF Z>=2 THEN 3350 -3280 V=5 -3290 GOTO 3420 -3300 IF Z=1 THEN 3320 -3310 IF T<=25 THEN 3350 -3320 I=4 -3330 PRINT "I FOLD." -3340 RETURN -3350 IF Z=2 THEN 3430 -3360 PRINT "I'LL SEE YOU." -3370 K=G -3380 S=S-G -3390 C=C-K -3400 P=P+G+K -3410 RETURN -3420 IF G>3*Z THEN 3350 -3430 V=G-K+FNA(0) -3440 GOSUB 3480 -3450 PRINT "I'LL SEE YOU, AND RAISE YOU";V -3460 K=G+V -3470 GOTO 3060 -3480 IF C-G-V>=0 THEN 3660 -3490 IF G<>0 THEN 3520 -3500 V=C -3510 RETURN -3520 IF C-G>=0 THEN 3360 -3530 IF (O/2)<>INT(O/2) THEN 3600 -3540 PRINT "WOULD YOU LIKE TO BUY BACK YOUR WATCH FOR $50"; -3550 INPUT J$ -3560 IF LEFT$(J$,1)="N" THEN 3600 -3570 C=C+50 -3580 O=O/2 -3590 RETURN -3600 IF O/3<>INT(O/3) THEN 3670 -3610 PRINT "WOULD YOU LIKE TO BUY BACK YOUR TIE TACK FOR $50"; -3620 INPUT J$ -3630 IF LEFT$(J$,1)="N" THEN 3670 -3640 C=C+50 -3650 O=O/3 -3660 RETURN -3670 PRINT "I'M BUSTED. CONGRATULATIONS!" -3680 STOP -3690 PRINT H$;I$; -3700 IF H$<>"A FLUS" THEN 3750 -3710 K=INT(K/100) -3720 GOSUB 2080 -3730 PRINT -3740 RETURN -3750 K=FNB(K) -3760 GOSUB 1960 -3770 IF H$="SCHMAL" THEN 3790 -3780 IF H$<>"STRAIG" THEN 3810 -3790 PRINT " HIGH" -3800 RETURN -3810 PRINT "'S" -3820 RETURN -3830 PRINT -3840 PRINT "YOU CAN'T BET WITH WHAT YOU HAVEN'T GOT." -3850 IF O/2=INT(O/2) THEN 3970 -3860 PRINT "WOULD YOU LIKE TO SELL YOUR WATCH"; -3870 INPUT J$ -3880 IF LEFT$(J$,1)="N" THEN 3970 -3890 IF FNA(0)>=7 THEN 3930 -3900 PRINT "I'LL GIVE YOU $75 FOR IT." -3910 S=S+75 -3920 GOTO 3950 -3930 PRINT "THAT'S A PRETTY CRUMMY WATCH - I'LL GIVE YOU $25." -3940 S=S+25 -3950 O=O*2 -3960 RETURN -3970 IF O/3<>INT(O/3) THEN 4090 -3980 PRINT "WILL YOU PART WITH THAT DIAMOND TIE TACK": -3990 INPUT J$ -4000 IF LEFT$(J$,1)="N" THEN 4080 -4010 IF FNA(0)>=6 THEN 4050 -4020 PRINT "YOU ARE NOW $100 RICHER." -4030 S=S+100 -4040 GOTO 4070 -4050 PRINT "IT'S PASTE. $25." -4060 S=S+25 -4070 O=O*3 -4080 RETURN -4090 PRINT "YOUR WAD IS SHOT. SO LONG, SUCKER!" -4100 END diff --git a/bwbtest/GAMES/profile.bas b/bwbtest/GAMES/profile.bas deleted file mode 100644 index c881139..0000000 --- a/bwbtest/GAMES/profile.bas +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION BYWATER -OPTION LABELS OFF diff --git a/bwbtest/GAMES/qubic.bas b/bwbtest/GAMES/qubic.bas deleted file mode 100644 index a926bb4..0000000 --- a/bwbtest/GAMES/qubic.bas +++ /dev/null @@ -1,281 +0,0 @@ -50 PRINT CHR$(26):WIDTH 80 -100 PRINT TAB(33);"QUBIC":PRINT -110 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -120 PRINT:PRINT:PRINT -210 PRINT "DO YOU WANT INSTRUCTIONS"; -220 INPUT C$ -230 IF LEFT$(C$,1)="N" THEN 315 -240 IF LEFT$(C$,1)="Y" THEN 265 -250 PRINT "INCORRECT ANSWER. PLEASE TYPE 'YES' OR 'NO'"; -260 GOTO 220 -265 PRINT -270 PRINT "THE GAME IS TIC-TAC-TOE IN A 4 X 4 X 4 CUBE." -280 PRINT "EACH MOVE IS INDICATED BY A 3 DIGIT NUMBER, WITH EACH" -290 PRINT "DIGIT BETWEEN 1 AND 4 INCLUSIVE. THE DIGITS INDICATE THE" -300 PRINT "LEVEL, ROW, AND COLUMN, RESPECTIVELY, OF THE OCCUPIED" -305 PRINT "PLACE. " -306 PRINT -307 PRINT "TO PRINT THE PLAYING BOARD, TYPE 0 (ZERO) AS YOUR MOVE." -308 PRINT "THE PROGRAM WILL PRINT THE BOARD WITH YOUR MOVES INDI-" -309 PRINT "CATED WITH A (Y), THE MACHINE'S MOVES WITH AN (M), AND" -310 PRINT "UNUSED SQUARES WITH A ( ). OUTPUT IS ON PAPER." -311 PRINT -312 PRINT "TO STOP THE PROGRAM RUN, TYPE 1 AS YOUR MOVE." -313 PRINT:PRINT -315 DIM X(64),L(76),M(76,4),Y(16) -320 FOR I = 1 TO 16 -330 READ Y(I) -340 NEXT I -350 FOR I=1 TO 76 -360 FOR J = 1 TO 4 -370 READ M(I,J) -380 NEXT J -390 NEXT I -400 FOR I = 1 TO 64 -410 LET X (I) =0 -420 NEXT I -430 LET Z=1 -440 PRINT "DO YOU WANT TO MOVE FIRST"; -450 INPUT S$ -460 IF LEFT$(S$,1)="N" THEN 630 -470 IF LEFT$(S$,1)="Y" THEN 500 -480 PRINT "INCORRECT ANSWER. PLEASE TYPE 'YES' OR 'NO'."; -490 GOTO 450 -500 PRINT " " -510 PRINT "YOUR MOVE"; -520 INPUT J1 -521 IF J1=1 THEN 2770 -522 IF J1<>0 THEN 525 -523 GOSUB 2550 -524 GOTO 500 -525 IF J1<111 THEN 2750 -526 IF J1>444 THEN 2750 -530 GOSUB 2500 -540 LET K1=INT(J1/100) -550 LET J2=(J1-K1*100) -560 LET K2=INT(J2/10) -570 LET K3= J1 - K1*100 -K2*10 -580 LET M=16*K1+4*K2+K3-20 -590 IF X(M)=0 THEN 620 -600 PRINT "THAT SQUARE IS USED, TRY AGAIN." -610 GOTO 500 -620 LET X(M)=1 -630 GOSUB 1640 -640 J=1 -650 I=1 -660 IF J=1 THEN 720 -670 IF J=2 THEN 790 -680 IF J=3 THEN 930 -690 I=I+1: IF I<=76 THEN 660 -700 J=J+1: IF J<=3 THEN 650 -710 GOTO 1300 -720 IF L(I)<>4 THEN 690 -730 PRINT "YOU WIN AS FOLLOWS"; -740 FOR J=1 TO 4 -750 LET M=M(I,J) -760 GOSUB 1570 -770 NEXT J -780 GOTO 1490 -790 IF L(I)<>15 THEN 690 -800 FOR J=1 TO 4 -810 LET M=M(I,J) -820 IF X(M)<>0 THEN 860 -830 LET X(M)=5 -840 PRINT "MACHINE MOVES TO"; -850 GOSUB 1570 -860 NEXT J -870 PRINT ", AND WINS AS FOLLOWS" -880 FOR J=1 TO 4 -890 LET M=M(I,J) -900 GOSUB 1570 -910 NEXT J -920 GOTO 1490 -930 IF L(I)<>3 THEN 690 -940 PRINT "NICE TRY. MACHINE MOVES TO"; -950 FOR J=1 TO 4 -960 LET M=M(I,J) -970 IF X(M)<>0 THEN 1010 -980 LET X(M)=5 -990 GOSUB 1570 -1000 GOTO 500 -1010 NEXT J -1020 GOTO 1300 -1030 I=1 -1040 LET L(I)=X(M(I,1))+X(M(I,2))+X(M(I,3))+X(M(I,4)) -1050 LET L = L(I) -1060 IF L <2 THEN 1130 -1070 IF L>=3 THEN 1130 -1080 IF L>2 THEN 2230 -1090 FOR J = 1 TO 4 -1100 IF X(M(I,J))<>0 THEN 1120 -1110 LET X(M(I,J))=1/8 -1120 NEXT J -1130 I=I+1: IF I<=76 THEN 1040 -1140 GOSUB 1640 -1150 I=1 -1160 IF L(I)=1/2 THEN 2360 -1170 IF L(I)=1+3/8 THEN 2360 -1180 I=I+1: IF I<=76 THEN 1160 -1190 GOTO 1830 -1200 LET Z = 1 -1210 IF X(Y(Z))=0 THEN 1250 -1220 LET Z=Z+1 -1230 IF Z<>17 THEN 1210 -1240 GOTO 1720 -1250 LET M=Y(Z) -1260 LET X(M)=5 -1270 PRINT "MACHINE MOVES TO"; -1280 GOSUB 1570 -1290 GOTO 500 -1300 LET X=X -1310 I=1 -1320 LET L(I)=X(M(I,1))+X(M(I,2))+X(M(I,3))+X(M(I,4)) -1330 LET L=L(I) -1340 IF L<10 THEN 1410 -1350 IF L>=11 THEN 1410 -1360 IF L>10 THEN 2230 -1370 FOR J=1 TO 4 -1380 IF X(M(I,J))<>0 THEN 1400 -1390 LET X(M(I,J))=1/8 -1400 NEXT J -1410 I=I+1: IF I<=76 THEN 1320 -1420 GOSUB 1640 -1430 I=1 -1440 IF L(I)=.5 THEN 2360 -1450 IF L(I)=5+3/8 THEN 2360 -1460 I=I+1: IF I<=76 THEN 1440 -1470 GOSUB 2500 -1480 GOTO 1030 -1490 PRINT " " -1500 PRINT "DO YOU WANT TO TRY ANOTHER GAME"; -1510 INPUT X$ -1520 IF LEFT$(X$,1)="Y" THEN 400 -1530 IF LEFT$(X$,1)="N" THEN 1560 -1540 PRINT "INCORRECT ANSWER. PLEASE TYPE 'YES' OR 'NO'"; -1550 GOTO 1510 -1560 STOP -1570 LET K1=INT((M-1)/16)+1 -1580 LET J2=M-16*(K1-1) -1590 LET K2=INT((J2-1)/4)+1 -1600 LET K3=M-(K1-1)*16-(K2-1)*4 -1610 LET M=K1*100+K2*10+K3 -1620 PRINT M; -1630 RETURN -1640 FOR S=1 TO 76 -1650 LET J1 = M(S,1) -1660 LET J2=M(S,2) -1670 LET J3=M(S,3) -1680 LET J4=M(S,4) -1690 LET L(S)=X(J1)+X(J2)+X(J3)+X(J4) -1700 NEXT S -1710 RETURN -1720 FOR I=1 TO 64 -1730 IF X(I)<>0 THEN 1800 -1740 LET X(I)=5 -1750 LET M=I -1760 PRINT "MACHINE LIKES"; -1770 GOSUB 1570 -1780 PRINT " " -1790 GOTO 500 -1800 NEXT I -1810 PRINT "THE GAME IS A DRAW." -1820 GOTO 1490 -1830 FOR K=1 TO 18 -1840 LET P=0 -1850 FOR I=4*K-3 TO 4*K -1860 FOR J=1 TO 4 -1870 LET P=P+X(M(I,J)) -1880 NEXT J -1890 NEXT I -1900 IF P<4 THEN 1940 -1910 IF P<5 THEN 1970 -1920 IF P<9 THEN 1940 -1930 IF P<10 THEN 1970 -1940 NEXT K -1950 GOSUB 2500 -1960 GOTO 1200 -1970 LET S=1/8 -1980 FOR I=4*K-3 TO 4*K -1990 GOTO 2370 -2000 NEXT I -2010 LET S=0 -2020 GOTO 1980 -2030 DATA 1,49,52,4,13,61,64,16,22,39,23,38,26,42,27,43 -2040 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 -2050 DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38 -2060 DATA 39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56 -2070 DATA 57,58,59,60,61,62,63,64 -2080 DATA 1,17,33,49,5,21,37,53,9,25,41,57,13,29,45,61 -2090 DATA 2,18,34,50,6,22,38,54,10,26,42,58,14,30,46,62 -2100 DATA 3,19,35,51,7,23,39,55,11,27,43,59,15,31,47,63 -2110 DATA 4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64 -2120 DATA 1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61 -2130 DATA 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62 -2140 DATA 3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63 -2150 DATA 4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64 -2160 DATA 1,6,11,16,17,22,27,32,33,38,43,48,49,54,59,64 -2170 DATA 13,10,7,4,29,26,23,20,45,42,39,36,61,58,55,52 -2180 DATA 1,21,41,61,2,22,42,62,3,23,43,63,4,24,44,64 -2190 DATA 49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16 -2200 DATA 1,18,35,52,5,22,39,56,9,26,43,60,13,30,47,64 -2210 DATA 49,34,19,4,53,38,23,8,57,42,27,12,61,46,31,16 -2220 DATA 1,22,43,64,16,27,38,49,4,23,42,61,13,26,39,52 -2230 FOR J=1 TO 4 -2240 IF X(M(I,J))<>1/8 THEN 2330 -2250 LET X(M(I,J))=5 -2260 IF L(I)<5 THEN 2290 -2270 PRINT "LET'S SEE YOU GET OUT OF THIS: MACHINE MOVES TO"; -2280 GOTO 2300 -2290 PRINT "YOU FOX. JUST IN THE NICK OF TIME, MACHINE MOVES TO"; -2300 LET M=M(I,J) -2310 GOSUB 1570 -2320 GOTO 500 -2330 NEXT J -2340 PRINT "MACHINE CONCEDES THIS GAME." -2350 GOTO 1490 -2360 LET S=1/8 -2370 IF I-INT(I/4)*4>1 THEN 2400 -2380 LET A=1 -2390 GOTO 2410 -2400 LET A=2 -2410 FOR J=A TO 5-A STEP 5-2*A -2420 IF X(M(I,J))=S THEN 2450 -2430 NEXT J -2440 GOTO 2000 -2450 LET X(M(I,J))=5 -2460 LET M=M(I,J) -2470 PRINT "MACHINE TAKES"; -2480 GOSUB 1570 -2490 GOTO 500 -2500 FOR I=1 TO 64 -2510 IF X(I)<>1/8 THEN 2530 -2520 LET X(I)=0 -2530 NEXT I -2540 RETURN -2550 FOR XX=1 TO 9:PRINT:NEXT:FOR I=1 TO 4 -2560 FOR J=1 TO 4 -2562 FOR I1=1 TO J -2564 PRINT" "; -2566 NEXT I1 -2570 FOR K=1 TO 4 -2600 LET Q=16*I+4*J+K-20 -2610 IF X(Q)<>O THEN 2630 -2620 PRINT"( ) "; -2630 IF X(Q)<>5 THEN 2650 -2640 PRINT"(M) "; -2650 IF X(Q)<>1 THEN 2660 -2655 PRINT"(Y) "; -2660 IF X(Q)<>1/8 THEN 2670 -2665 PRINT"( ) "; -2670 NEXT K -2680 PRINT -2690 PRINT -2700 NEXT J -2710 PRINT -2720 PRINT -2730 NEXT I -2735 REM PRINT CHR$(12) -2740 RETURN -2750 PRINT"INCORRECT MOVE, RETYPE IT--"; -2760 GOTO 520 -2770 END diff --git a/bwbtest/GAMES/queen.bas b/bwbtest/GAMES/queen.bas deleted file mode 100644 index 9672338..0000000 --- a/bwbtest/GAMES/queen.bas +++ /dev/null @@ -1,168 +0,0 @@ -1 PRINT TAB(33);"QUEEN" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -10 DIM S(64) -11 FOR I=1 TO 64 -12 READ S(I) -13 NEXT I -14 DATA 81, 71, 61, 51, 41, 31, 21, 11 -15 DATA 92, 82, 72, 62, 52, 42, 32, 22 -16 DATA 103, 93, 83, 73, 63, 53, 43, 33 -17 DATA 114, 104, 94, 84, 74, 64, 54, 44 -18 DATA 125, 115, 105, 95, 85, 75, 65, 55 -19 DATA 136, 126, 116, 106, 96, 86, 76, 66 -20 DATA 147, 137, 127, 117, 107, 97, 87, 77 -21 DATA 158, 148, 138, 128, 118, 108, 98, 88 -22 INPUT "DO YOU WANT INSTRUCTIONS";W$ -23 IF W$="NO" THEN 30 -24 IF W$="YES" THEN 28 -25 PRINT "PLEASE ANSWER 'YES' OR 'NO'." -26 GOTO 22 -28 GOSUB 5000 -29 GOTO 100 -30 GOSUB 5160 -90 REM ERROR CHECKS -100 PRINT "WHERE WOULD YOU LIKE TO START"; -110 INPUT M1 -115 IF M1=0 THEN 232 -120 T1=INT(M1/10) -130 U1=M1-10*T1 -140 IF U1=1 THEN 200 -150 IF U1=T1 THEN 200 -160 PRINT "PLEASE READ THE DIRECTIONS AGAIN." -170 PRINT "YOU HAVE BEGUN ILLEGALLY." -175 PRINT -180 GOTO 100 -200 GOSUB 2000 -210 PRINT "COMPUTER MOVES TO SQUARE";M -215 IF M=158 THEN 3400 -220 PRINT "WHAT IS YOUR MOVE"; -230 INPUT M1 -231 IF M1<>0 THEN 239 -232 PRINT -233 PRINT "IT LOOKS LIKE I HAVE WON BY FORFEIT." -234 PRINT -235 GOTO 4000 -239 IF M1<=M THEN 3200 -240 T1=INT(M1/10) -250 U1=M1-10*T1 -260 P=U1-U -270 IF P<>0 THEN 300 -280 L=T1-T -290 IF L<=0 THEN 3200 -295 GOTO 200 -300 IF T1-T <>P THEN 320 -310 GOTO 200 -320 IF T1-T <>2*P THEN 3200 -330 GOTO 200 -1990 REM LOCATE MOVE FOR COMPUTER -2000 IF M1=41 THEN 2180 -2010 IF M1=44 THEN 2180 -2020 IF M1=73 THEN 2180 -2030 IF M1=75 THEN 2180 -2040 IF M1=126 THEN 2180 -2050 IF M1=127 THEN 2180 -2060 IF M1=158 THEN 3300 -2065 C=0 -2070 FOR K=7 TO 1 STEP -1 -2080 U=U1 -2090 T=T1+K -2100 GOSUB 3500 -2105 IF C=1 THEN 2160 -2110 U=U+K -2120 GOSUB 3500 -2125 IF C=1 THEN 2160 -2130 T=T+K -2140 GOSUB 3500 -2145 IF C=1 THEN 2160 -2150 NEXT K -2155 GOTO 2180 -2160 C=0 -2170 RETURN -2180 GOSUB 3000 -2190 RETURN -2990 REM RANDOM MOVE -3000 Z=RND(1) -3010 IF Z>.6 THEN 3110 -3020 IF Z>.3 THEN 3070 -3030 U=U1 -3040 T=T1+1 -3050 M=10*T+U -3060 RETURN -3070 U=U1+1 -3080 T=T1+2 -3090 M=10*T+U -3100 RETURN -3110 U=U1+1 -3120 T=T1+1 -3130 M=10*T+U -3140 RETURN -3190 REM ILLEGAL MOVE MESSAGE -3200 PRINT -3210 PRINT "Y O U C H E A T . . . TRY AGAIN"; -3220 GOTO 230 -3290 REM PLAYER WINS -3300 PRINT -3310 PRINT "C O N G R A T U L A T I O N S . . ." -3320 PRINT -3330 PRINT "YOU HAVE WON--VERY WELL PLAYED." -3340 PRINT "IT LOOKS LIKE I HAVE MET MY MATCH." -3350 PRINT "THANKS FOR PLAYING---I CAN'T WIN ALL THE TIME." -3360 PRINT -3370 GOTO 4000 -3390 REM COMPUTER WINS -3400 PRINT -3410 PRINT "NICE TRY, BUT IT LOOKS LIKE I HAVE WON." -3420 PRINT "THANKS FOR PLAYING." -3430 PRINT -3440 GOTO 4000 -3490 REM TEST FOR COMPUTER MOVE -3500 M=10*T+U -3510 IF M=158 THEN 3570 -3520 IF M=127 THEN 3570 -3530 IF M=126 THEN 3570 -3540 IF M=75 THEN 3570 -3550 IF M=73 THEN 3570 -3560 RETURN -3570 C=1 -3580 GOTO 3560 -3990 REM ANOTHER GAME??? -4000 PRINT "ANYONE ELSE CARE TO TRY"; -4010 INPUT Q$ -4020 PRINT -4030 IF Q$="YES" THEN 30 -4040 IF Q$="NO" THEN 4050 -4042 PRINT "PLEASE ANSWER 'YES' OR 'NO'." -4045 GOTO 4000 -4050 PRINT:PRINT "OK --- THANKS AGAIN." -4060 STOP -4990 REM DIRECTIONS -5000 PRINT "WE ARE GOING TO PLAY A GAME BASED ON ONE OF THE CHESS" -5010 PRINT "MOVES. OUR QUEEN WILL BE ABLE TO MOVE ONLY TO THE LEFT," -5020 PRINT "DOWN, OR DIAGONALLY DOWN AND TO THE LEFT." -5030 PRINT -5040 PRINT "THE OBJECT OF THE GAME IS TO PLACE THE QUEEN IN THE LOWER" -5050 PRINT "LEFT HAND SQUARE BY ALTERNATING MOVES BETWEEN YOU AND THE" -5060 PRINT "COMPUTER. THE FIRST ONE TO PLACE THE QUEEN THERE WINS." -5070 PRINT -5080 PRINT "YOU GO FIRST AND PLACE THE QUEEN IN ANY ONE OF THE SQUARES" -5090 PRINT "ON THE TOP ROW OR RIGHT HAND COLUMN." -5100 PRINT "THAT WILL BE YOUR FIRST MOVE." -5110 PRINT "WE ALTERNATE MOVES." -5120 PRINT "YOU MAY FORFEIT BY TYPING '0' AS YOUR MOVE." -5130 PRINT "BE SURE TO PRESS THE RETURN KEY AFTER EACH RESPONSE." -5140 PRINT -5150 PRINT -5160 PRINT -5170 FOR A=0 TO 7 -5180 FOR B=1 TO 8 -5185 I=8*A+B -5190 PRINT S(I); -5200 NEXT B -5210 PRINT -5220 PRINT -5230 PRINT -5240 NEXT A -5250 PRINT -5260 RETURN -9999 END diff --git a/bwbtest/GAMES/reverse.bas b/bwbtest/GAMES/reverse.bas deleted file mode 100644 index 37d4867..0000000 --- a/bwbtest/GAMES/reverse.bas +++ /dev/null @@ -1,62 +0,0 @@ -10 PRINT TAB(32);"REVERSE" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -100 PRINT "REVERSE -- A GAME OF SKILL": PRINT -130 DIM A(20) -140 REM *** N=NUMBER OF NUMBERS -150 N=9 -160 PRINT "DO YOU WANT THE RULES"; -170 INPUT A$ -180 IF A$="NO" THEN 210 -190 GOSUB 710 -200 REM *** MAKE A RANDOM LIST A(1) TO A(N) -210 A(1)=INT((N-1)*RND(1)+2) -220 FOR K=2 TO N -230 A(K)=INT(N*RND(1)+1) -240 FOR J=1 TO K-1 -250 IF A(K)=A(J) THEN 230 -260 NEXT J:NEXT K -280 REM *** PRINT ORIGINAL LIST AND START GAME -290 PRINT: PRINT "HERE WE GO ... THE LIST IS:" -310 T=0 -320 GOSUB 610 -330 PRINT "HOW MANY SHALL I REVERSE"; -340 INPUT R -350 IF R=0 THEN 520 -360 IF R<=N THEN 390 -370 PRINT "OOPS! TOO MANY! I CAN REVERSE AT MOST";N:GOTO 330 -390 T=T+1 -400 REM *** REVERSE R NUMBERS AND PRINT NEW LIST -410 FOR K=1 TO INT(R/2) -420 Z=A(K) -430 A(K)=A(R-K+1) -440 A(R-K+1)=Z -450 NEXT K -460 GOSUB 610 -470 REM *** CHECK FOR A WIN -480 FOR K=1 TO N -490 IF A(K)<>K THEN 330 -500 NEXT K -510 PRINT "YOU WON IT IN";T;"MOVES!!!":PRINT -520 PRINT -530 PRINT "TRY AGAIN (YES OR NO)"; -540 INPUT A$ -550 IF A$="YES" THEN 210 -560 PRINT: PRINT "O.K. HOPE YOU HAD FUN!!":GOTO 999 -600 REM *** SUBROUTINE TO PRINT LIST -610 PRINT:FOR K=1 TO N:PRINT A(K);:NEXT K -650 PRINT:PRINT:RETURN -700 REM *** SUBROUTINE TO PRINT THE RULES -710 PRINT:PRINT "THIS IS THE GAME OF 'REVERSE'. TO WIN, ALL YOU HAVE" -720 PRINT "TO DO IS ARRANGE A LIST OF NUMBERS (1 THROUGH";N;")" -730 PRINT "IN NUMERICAL ORDER FROM LEFT TO RIGHT. TO MOVE, YOU" -740 PRINT "TELL ME HOW MANY NUMBERS (COUNTING FROM THE LEFT) TO" -750 PRINT "REVERSE. FOR EXAMPLE, IF THE CURRENT LIST IS:" -760 PRINT:PRINT "2 3 4 5 1 6 7 8 9" -770 PRINT:PRINT "AND YOU REVERSE 4, THE RESULT WILL BE:" -780 PRINT:PRINT "5 4 3 2 1 6 7 8 9" -790 PRINT:PRINT "NOW IF YOU REVERSE 5, YOU WIN!" -800 PRINT:PRINT "1 2 3 4 5 6 7 8 9":PRINT -810 PRINT "NO DOUBT YOU WILL LIKE THIS GAME, BUT" -820 PRINT "IF YOU WANT TO QUIT, REVERSE 0 (ZERO).":PRINT: RETURN -999 END diff --git a/bwbtest/GAMES/rocket.bas b/bwbtest/GAMES/rocket.bas deleted file mode 100644 index efcd22f..0000000 --- a/bwbtest/GAMES/rocket.bas +++ /dev/null @@ -1,71 +0,0 @@ -10 PRINT TAB(30); "ROCKET" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -70 PRINT "LUNAR LANDING SIMULATION" -80 PRINT "----- ------- ----------": PRINT -100 INPUT "DO YOU WANT INSTRUCTIONS (YES OR NO)";A$ -110 IF A$="NO" THEN 390 -160 PRINT -200 PRINT"YOU ARE LANDING ON THE MOON AND AND HAVE TAKEN OVER MANUAL" -210 PRINT"CONTROL 1000 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A DOWN-" -220 PRINT"WARD VELOCITY OF 50 FEET/SEC. 150 UNITS OF FUEL REMAIN." -225 PRINT -230 PRINT"HERE ARE THE RULES THAT GOVERN YOUR APOLLO SPACE-CRAFT:": PRINT -240 PRINT"(1) AFTER EACH SECOND THE HEIGHT, VELOCITY, AND REMAINING FUEL" -250 PRINT" WILL BE REPORTED VIA DIGBY YOUR ON-BOARD COMPUTER." -260 PRINT"(2) AFTER THE REPORT A '?' WILL APPEAR. ENTER THE NUMBER" -270 PRINT" OF UNITS OF FUEL YOU WISH TO BURN DURING THE NEXT" -280 PRINT" SECOND. EACH UNIT OF FUEL WILL SLOW YOUR DESCENT BY" -290 PRINT" 1 FOOT/SEC." -310 PRINT"(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FEET/SEC/SEC" -320 PRINT" OR 30 UNITS OF FUEL PER SECOND." -330 PRINT"(4) WHEN YOU CONTACT THE LUNAR SURFACE. YOUR DESCENT ENGINE" -340 PRINT" WILL AUTOMATICALLY SHUT DOWN AND YOU WILL BE GIVEN A" -350 PRINT" REPORT OF YOUR LANDING SPEED AND REMAINING FUEL." -360 PRINT"(5) IF YOU RUN OUT OF FUEL THE '?' WILL NO LONGER APPEAR" -370 PRINT" BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL" -380 PRINT" YOU CONTACT THE LUNAR SURFACE.":PRINT -390 PRINT"BEGINNING LANDING PROCEDURE..........":PRINT -400 PRINT"G O O D L U C K ! ! !" -420 PRINT:PRINT -430 PRINT"SEC FEET SPEED FUEL PLOT OF DISTANCE" -450 PRINT -455 T=0:H=1000:V=50:F=150 -490 PRINT T;TAB(6);H;TAB(16);V;TAB(26);F;TAB(35);"I";TAB(H/15);"*" -500 INPUT B -510 IF B<0 THEN 650 -520 IF B>30 THEN B=30 -530 IF B>F THEN B=F -540 V1=V-B+5 -560 F=F-B -570 H=H- .5*(V+V1) -580 IF H<=0 THEN 670 -590 T=T+1 -600 V=V1 -610 IF F>0 THEN 490 -615 IF B=0 THEN 640 -620 PRINT"**** OUT OF FUEL ****" -640 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*" -650 B=0 -660 GOTO 540 -670 PRINT"***** CONTACT *****" -680 H=H+ .5*(V1+V) -690 IF B=5 THEN 720 -700 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B) -710 GOTO 730 -720 D=H/V -730 V1=V+(5-B)*D -760 PRINT"TOUCHDOWN AT";T+D;"SECONDS." -770 PRINT"LANDING VELOCITY=";V1;"FEET/SEC." -780 PRINT F;"UNITS OF FUEL REMAINING." -790 IF V1<>0 THEN 810 -800 PRINT"CONGRATULATIONS! A PERFECT LANDING!!" -805 PRINT"YOUR LICENSE WILL BE RENEWED.......LATER." -810 IF ABS(V1)<2 THEN 840 -820 PRINT"***** SORRY, BUT YOU BLEW IT!!!!" -830 PRINT"APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN." -840 PRINT:PRINT:PRINT -850 INPUT "ANOTHER MISSION";A$ -860 IF A$="YES" THEN 390 -870 PRINT: PRINT "CONTROL OUT.": PRINT -999 END diff --git a/bwbtest/GAMES/rocksp.bas b/bwbtest/GAMES/rocksp.bas deleted file mode 100644 index 8c364b6..0000000 --- a/bwbtest/GAMES/rocksp.bas +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT TAB(21);"GAME OF ROCK, SCISSORS, PAPER" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -25 PRINT:PRINT:PRINT -30 INPUT "HOW MANY GAMES";Q -40 IF Q<11 THEN 60 -50 PRINT "SORRY, BUT WE AREN'T ALLOWED TO PLAY THAT MANY.": GOTO 30 -60 FOR G=1 TO Q -70 PRINT: PRINT "GAME NUMBER";G -80 X=INT(RND(1)*3+1) -90 PRINT "3=ROCK...2=SCISSORS...1=PAPER" -100 INPUT "1...2...3...WHAT'S YOUR CHOICE";K -110 IF (K-1)*(K-2)*(K-3)<>0 THEN PRINT "INVALID.": GOTO 90 -120 PRINT "THIS IS MY CHOICE..." -130 ON X GOTO 140,150,160 -140 PRINT "...PAPER": GOTO 170 -150 PRINT "...SCISSORS": GOTO 170 -160 PRINT "...ROCK" -170 IF X=K THEN 250 -180 IF X>K THEN 230 -190 IF X=1 THEN 210 -200 PRINT "YOU WIN!!!":H=H+1: GOTO 260 -210 IF K<>3 THEN 200 -220 PRINT "WOW! I WIN!!!":C=C+1:GOTO 260 -230 IF K<>1 OR X<>3 THEN 220 -240 GOTO 200 -250 PRINT "TIE GAME. NO WINNER." -260 NEXT G -270 PRINT: PRINT "HERE IS THE FINAL GAME SCORE:" -280 PRINT "I HAVE WON";C;"GAME(S)." -290 PRINT "YOU HAVE WON";H;"GAME(S)." -300 PRINT "AND";Q-(C+H);"GAME(S) ENDED IN A TIE." -310 PRINT: PRINT "THANKS FOR PLAYING!!" -320 END diff --git a/bwbtest/GAMES/roulette.bas b/bwbtest/GAMES/roulette.bas deleted file mode 100644 index b94e895..0000000 --- a/bwbtest/GAMES/roulette.bas +++ /dev/null @@ -1,239 +0,0 @@ -10 PRINT TAB(32);"ROULETTE" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -40 PRINT "ENTER THE CURRENT DATE (AS IN 'JANUARY 23, 1979') -"; -50 INPUT D$,E$ -1000 REM-ROULETTE -1010 REM-DAVID JOSLIN -1020 PRINT "WELCOME TO THE ROULETTE TABLE" -1030 PRINT -1040 PRINT "DO YOU WANT INSTRUCTIONS"; -1050 INPUT Y$ -1060 IF LEFT$(Y$,1)="N" THEN 1550 -1070 PRINT -1080 PRINT "THIS IS THE BETTING LAYOUT" -1090 PRINT " (*=RED)" -1100 PRINT -1110 PRINT " 1* 2 3*" -1120 PRINT " 4 5* 6 " -1130 PRINT " 7* 8 9*" -1140 PRINT "10 11 12*" -1150 PRINT "---------------" -1160 PRINT "13 14* 15 " -1170 PRINT "16* 17 18*" -1180 PRINT "19* 20 21*" -1190 PRINT "22 23* 24 " -1200 PRINT "---------------" -1210 PRINT "25* 26 27*" -1220 PRINT "28 29 30*" -1230 PRINT "31 32* 33 " -1240 PRINT "34* 35 36*" -1250 PRINT "---------------" -1260 PRINT " 00 0 " -1270 PRINT -1280 PRINT "TYPES OF BETS" -1290 PRINT -1300 PRINT "THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET" -1310 PRINT "ON THAT NUMBER." -1320 PRINT "THESE PAY OFF 35:1" -1330 PRINT -1340 PRINT "THE 2:1 BETS ARE:" -1350 PRINT " 37) 1-12 40) FIRST COLUMN" -1360 PRINT " 38) 13-24 41) SECOND COLUMN" -1370 PRINT " 39) 25-36 42) THIRD COLUMN" -1380 PRINT -1390 PRINT "THE EVEN MONEY BETS ARE:" -1400 PRINT " 43) 1-18 46) ODD" -1410 PRINT " 44) 19-36 47) RED" -1420 PRINT " 45) EVEN 48) BLACK" -1430 PRINT -1440 PRINT " 49)0 AND 50)00 PAY OFF 35:1" -1450 PRINT " NOTE: 0 AND 00 DO NOT COUNT UNDER ANY" -1460 PRINT " BETS EXCEPT THEIR OWN." -1470 PRINT -1480 PRINT "WHEN I ASK FOR EACH BET, TYPE THE NUMBER" -1490 PRINT "AND THE AMOUNT, SEPARATED BY A COMMA." -1500 PRINT "FOR EXAMPLE: TO BET $500 ON BLACK, TYPE 48,500" -1510 PRINT "WHEN I ASK FOR A BET." -1520 PRINT -1530 PRINT "THE MINIMUM BET IS $5, THE MAXIMUM IS $500." -1540 PRINT -1550 REM-PROGRAM BEGINS HERE -1560 REM-TYPE OF BET(NUMBER) ODDS -1570 REM DON'T NEED TO DIMENSION STRINGS -1580 DIM B(100),C(100),T(100),X(38) -1590 DIM A(50) -1600 FOR I=1 TO 38: X(I)=0: NEXT I: REM MAT X=ZER -1610 P=1000 -1620 D=100000. -1630 PRINT "HOW MANY BETS"; -1640 INPUT Y -1650 IF Y<1 OR Y<>INT(Y) THEN 1630 -1660 FOR I=1 TO 50: A(I)=0: NEXT I: REM MAT A=ZER -1670 FOR C=1 TO Y -1680 PRINT "NUMBER";C; -1690 INPUT X,Z -1700 B(C)=Z -1710 T(C)=X -1720 IF X<1 OR X>50 OR X<>INT(X) THEN 1680 -1730 IF Z<1 OR Z<>INT(Z) THEN 1680 -1740 IF Z<5 OR Z>500 THEN 1680 -1750 IF A(X)=0 THEN 1780 -1760 PRINT "YOU MADE THAT BET ONCE ALREADY,DUM-DUM" -1770 GOTO 1680 -1780 A(X)=1 -1790 NEXT C -1800 PRINT "SPINNING" -1810 PRINT -1820 PRINT -1830 S=INT(RND(1)*100) -1840 IF S=0 OR S>38 THEN 1830 -1850 X(S)=X(S)+1 -1860 IF S<37 THEN 1920 -1870 IF S=37 THEN 1900 -1880 PRINT "00" -1890 GOTO 2020 -1900 PRINT "0" -1910 GOTO 2020 -1920 RESTORE -1930 FOR I1=1 TO 18 -1940 READ R -1950 IF R=S THEN 2000 -1960 NEXT I1 -1970 A$="BLACK" -1980 PRINT S;A$ -1990 GOTO 2020 -2000 A$="RED" -2010 GOTO 1980 -2020 PRINT -2030 FOR C=1 TO Y -2040 IF T(C)<37 THEN 2710 -2050 ON T(C)-36 GOTO 2090,2190,2220,2250,2300,2350,2400,2470,2500 -2060 ON T(C)-45 GOTO 2530,2560,2630 -2070 GOTO 2710 -2080 STOP -2090 REM 1-12(37) 2:1 -2100 IF S <= 12 THEN 2150 -2110 PRINT "YOU LOSE";B(C);"DOLLARS ON BET";C -2120 D=D+B(C) -2130 P=P-B(C) -2140 GOTO 2180 -2150 PRINT "YOU WIN";B(C)*2;"DOLLARS ON BET"C -2160 D=D-B(C)*2 -2170 P=P+B(C)*2 -2180 GOTO 2810 -2190 REM 13-24(38) 2:1 -2200 IF S>12 AND S<25 THEN 2150 -2210 GOTO 2110 -2220 REM 25-36(39) 2:1 -2230 IF S>24 AND S<37 THEN 2150 -2240 GOTO 2110 -2250 REM FIRST COLUMN(40) 2:1 -2260 FOR I=1 TO 34 STEP 3 -2270 IF S=I THEN 2150 -2280 NEXT I -2290 GOTO 2110 -2300 REM SECOND COLUMN(41) 2:1 -2310 FOR I=2 TO 35 STEP 3 -2320 IF S=I THEN 2150 -2330 NEXT I -2340 GOTO 2110 -2350 REM THIRD COLUMN(42) 2:1 -2360 FOR I=3 TO 36 STEP 3 -2370 IF S=I THEN 2150 -2380 NEXT I -2390 GOTO 2110 -2400 REM 1-18(43) 1:1 -2410 IF S<19 THEN 2430 -2420 GOTO 2110 -2430 PRINT "YOU WIN";B(C);"DOLLARS ON BET";C -2440 D=D-B(C) -2450 P=P+B(C) -2460 GOTO 2810 -2470 REM 19-36(44) 1:1 -2480 IF S<37 AND S>18 THEN 2430 -2490 GOTO 2110 -2500 REM EVEN(45) 1:1 -2510 IF S/2=INT(S/2) AND S<37 THEN 2430 -2520 GOTO 2110 -2530 REM ODD(46) 1:1 -2540 IF S/2<>INT(S/2) AND S<37 THEN 2430 -2550 GOTO 2110 -2560 REM RED(47) 1:1 -2570 RESTORE -2580 FOR I=1 TO 18 -2590 READ R -2600 IF S=R THEN 2430 -2610 NEXT I -2620 GOTO 2110 -2630 REM BLACK(48) 1:1 -2640 RESTORE -2650 FOR I=1 TO 18 -2660 READ R -2670 IF S=R THEN 2110 -2680 NEXT I -2690 IF S>36 THEN 2110 -2700 GOTO 2430 -2710 REM--1TO36,0,00(1-36,49,50)35:1 -2720 IF T(C)<49 THEN 2760 -2730 IF T(C)=49 AND S=37 THEN 2780 -2740 IF T(C)=50 AND S=38 THEN 2780 -2750 GOTO 2110 -2760 IF T(C)=S THEN 2780 -2770 GOTO 2110 -2780 PRINT "YOU WIN";B(C)*35;"DOLLARS ON BET";C -2790 D=D-B(C)*35 -2800 P=P+B(C)*35 -2810 NEXT C -2820 PRINT -2830 PRINT "TOTALS:","ME","YOU" -2840 PRINT " ",D,P -2850 IF P>0 THEN 2880 -2860 PRINT "OOPS! YOU JUST SPENT YOUR LAST DOLLAR!" -2870 GOTO 3190 -2880 IF D>0 THEN 2920 -2890 PRINT "YOU BROKE THE HOUSE!" -2900 P=101000. -2910 GOTO 2960 -2920 PRINT "AGAIN"; -2930 INPUT Y$ -2940 IF LEFT$(Y$,1)="Y" THEN 1630 -2950 DATA 1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36 -2960 IF P<1 THEN 3190 -2970 PRINT "TO WHOM SHALL I MAKE THE CHECK"; -2980 INPUT B$ -2990 PRINT -3000 FOR I=1 TO 72: PRINT "-";: NEXT I: REM PRINT 72 DASHES -3010 PRINT TAB(50);"CHECK NO. ";INT(RND(1)*100) -3020 PRINT -3030 GOSUB 3230 -3040 PRINT TAB(40);M$ -3050 PRINT -3060 PRINT -3070 PRINT "PAY TO THE ORDER OF-----";B$;"-----$ "; -3080 PRINT P -3090 PRINT -3100 PRINT -3110 PRINT TAB(10),"THE MEMORY BANK OF NEW YORK" -3120 PRINT -3130 PRINT TAB(40),"THE COMPUTER" -3140 PRINT TAB(40),"----------X-----" -3150 PRINT -3160 FOR I=1 TO 62: PRINT "-";: NEXT I -3170 PRINT "COME BACK SOON!" -3180 GOTO 3210 -3190 PRINT "THANKS FOR YOUR MONEY." -3200 PRINT "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL" -3210 PRINT -3220 GOTO 3420 -3230 REM -3240 REM THIS ROUTINE RETURNS THE CURRENT DATE IN M$ -3250 REM IF YOU HAVE SYSTEM FUNCTIONS TO HANDLE THIS -3260 REM THEY CAN BE USED HERE. HOWEVER IN THIS -3270 REM PROGRAM, WE JUST INPUT THE DATE AT THE START -3280 REM THE GAME -3290 REM -3300 REM THE DATE IS RETURNED IN VARIABLE M$ -3310 M$=D$+", "+E$ -3320 RETURN -3420 END diff --git a/bwbtest/GAMES/rusrou.bas b/bwbtest/GAMES/rusrou.bas deleted file mode 100644 index 437e53c..0000000 --- a/bwbtest/GAMES/rusrou.bas +++ /dev/null @@ -1,26 +0,0 @@ -1 PRINT TAB(28);"RUSSIAN ROULETTE" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -5 PRINT "THIS IS A GAME OF >>>>>>>>>>RUSSIAN ROULETTE." -10 PRINT:PRINT "HERE IS A REVOLVER." -20 PRINT "TYPE '1' TO SPIN CHAMBER AND PULL TRIGGER." -22 PRINT "TYPE '2' TO GIVE UP." -23 PRINT "GO"; -25 N=0 -30 INPUT I -31 IF I<>2 THEN 35 -32 PRINT " CHICKEN!!!!!" -33 GOTO 72 -35 N=N+1 -40 IF RND(1)>.833333 THEN 70 -45 IF N>10 THEN 80 -50 PRINT "- CLICK -" -60 PRINT: GOTO 30 -70 PRINT " BANG!!!!! YOU'RE DEAD!" -71 PRINT "CONDOLENCES WILL BE SENT TO YOUR RELATIVES." -72 PRINT:PRINT:PRINT -75 PRINT "...NEXT VICTIM...":GOTO 20 -80 PRINT "YOU WIN!!!!!" -85 PRINT "LET SOMEONE ELSE BLOW HIS BRAINS OUT." -90 GOTO 10 -99 END diff --git a/bwbtest/GAMES/salvo.bas b/bwbtest/GAMES/salvo.bas deleted file mode 100644 index 0a00176..0000000 --- a/bwbtest/GAMES/salvo.bas +++ /dev/null @@ -1,329 +0,0 @@ -1000 PRINT TAB(33);"SALVO" -1010 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -1020 PRINT:PRINT:PRINT -1030 REM -1032 DEF FNA(K)=(5-K)*3-2*INT(K/4)+SGN(K-1)-1 -1033 DEF FNB(K)=K+INT(K/4)-SGN(K-1) -1040 DIM AA(10,10),BB(10,10),CC(7),DD(7),EE(12),FF(12),GG(12),HH(12),KK(10,10) -1050 Z8=0 -1060 FOR W=1 TO 12 -1070 EE(W)=-1 -1080 HH(W)=-1 -1090 NEXT W -1100 FOR X=1 TO 10 -1110 FOR Y=1 TO 10 -1120 BB(X,Y)=0 -1130 NEXT Y -1140 NEXT X -1150 FOR X=1 TO 12 -1160 FF(X)=0 -1170 GG(X)=0 -1180 NEXT X -1190 FOR X=1 TO 10 -1200 FOR Y=1 TO 10 -1210 AA(X,Y)=0 -1220 NEXT Y -1230 NEXT X -1240 FOR K=4 TO 1 STEP -1 -1250 U6=0 -1260 GOSUB 2910 -1290 IF V+V2+V*V2=0 THEN 1260 -1300 IF Y+V*FNB(K)>10 THEN 1260 -1310 IF Y+V*FNB(K)<1 THEN 1260 -1320 IF X+V2*FNB(K)>10 THEN 1260 -1330 IF X+V2*FNB(K)<1 THEN 1260 -1340 U6=U6+1 -1350 IF U6>25 THEN 1190 -1360 FOR Z=0 TO FNB(K) -1370 FF(Z+FNA(K))=X+V2*Z -1380 GG(Z+FNA(K))=Y+V*Z -1390 NEXT Z -1400 U8=FNA(K) -1405 IF U8>U8+FNB(K) THEN 1460 -1410 FOR Z2= U8 TO U8+FNB(K) -1415 IF U8<2 THEN 1450 -1420 FOR Z3=1 TO U8-1 -1430 IF SQR((FF(Z3)-FF(Z2))^2 + (GG(Z3)-GG(Z2))^2) < 3.59 THEN 1260 -1440 NEXT Z3 -1450 NEXT Z2 -1460 FOR Z=0 TO FNB(K) -1470 AA(FF(Z+U8),GG(Z+U8))=.5+SGN(K-1)*(K-1.5) -1480 NEXT Z -1490 NEXT K -1500 PRINT "ENTER COORDINATES FOR..." -1510 PRINT "BATTLESHIP" -1520 FOR X=1 TO 5 -1530 INPUT Y,Z -1540 BB(Y,Z)=3 -1550 NEXT X -1560 PRINT "CRUISER" -1570 FOR X=1 TO 3 -1580 INPUT Y,Z -1590 BB(Y,Z)=2 -1600 NEXT X -1610 PRINT "DESTROYER" -1620 FOR X=1 TO 2 -1630 INPUT Y,Z -1640 BB(Y,Z)=1 -1650 NEXT X -1660 PRINT "DESTROYER" -1670 FOR X=1 TO 2 -1680 INPUT Y,Z -1690 BB(Y,Z)=.5 -1700 NEXT X -1710 PRINT "DO YOU WANT TO START"; -1720 INPUT J$ -1730 IF J$<>"WHERE ARE YOUR SHIPS?" THEN 1890 -1740 PRINT "BATTLESHIP" -1750 FOR Z=1 TO 5 -1760 PRINT FF(Z);GG(Z) -1770 NEXT Z -1780 PRINT "CRUISER" -1790 PRINT FF(6);GG(6) -1800 PRINT FF(7);GG(7) -1810 PRINT FF(8);GG(8) -1820 PRINT "DESTROYER" -1830 PRINT FF(9);GG(9) -1840 PRINT FF(10);GG(10) -1850 PRINT "DESTROYER" -1860 PRINT FF(11);GG(11) -1870 PRINT FF(12);GG(12) -1880 GOTO 1710 -1890 C=0 -1900 PRINT "DO YOU WANT TO SEE MY SHOTS"; -1910 INPUT K$ -1920 PRINT -1930 IF J$<>"YES" THEN 2620 -1940 REM*******************START -1950 IF J$<>"YES" THEN 1990 -1960 C=C+1 -1970 PRINT -1980 PRINT "TURN";C -1990 A=0 -2000 FOR W=.5 TO 3 STEP .5 -2010 FOR X=1 TO 10 -2020 FOR Y=1 TO 10 -2030 IF BB(X,Y)=W THEN 2070 -2040 NEXT Y -2050 NEXT X -2060 GOTO 2080 -2070 A=A+INT(W+.5) -2080 NEXT W -2090 FOR W=1 TO 7 -2100 CC(W)=0 -2110 DD(W)=0 -2120 FF(W)=0 -2130 GG(W)=0 -2140 NEXT W -2150 P3=0 -2160 FOR X=1 TO 10 -2170 FOR Y=1 TO 10 -2180 IF AA(X,Y)>10 THEN 2200 -2190 P3=P3+1 -2200 NEXT Y -2210 NEXT X -2220 PRINT "YOU HAVE";A;"SHOTS." -2230 IF P3>=A THEN 2260 -2240 PRINT "YOU HAVE MORE SHOTS THAN THERE ARE BLANK SQUARES." -2250 GOTO 2890 -2260 IF A<>0 THEN 2290 -2270 PRINT "I HAVE WON." -2280 STOP -2290 FOR W=1 TO A -2300 INPUT X,Y -2310 IF X<>INT(X) THEN 2370 -2320 IF X>10 THEN 2370 -2330 IF X<1 THEN 2370 -2340 IF Y<>INT(Y) THEN 2370 -2350 IF Y>10 THEN 2370 -2360 IF Y>=1 THEN 2390 -2370 PRINT "ILLEGAL, ENTER AGAIN." -2380 GOTO 2300 -2390 IF AA(X,Y)>10 THEN 2440 -2400 CC(W)=X -2410 DD(W)=Y -2420 NEXT W -2430 GOTO 2460 -2440 PRINT "YOU SHOT THERE BEFORE ON TURN";AA(X,Y)-10 -2450 GOTO 2300 -2460 FOR W=1 TO A -2470 IF AA(CC(W),DD(W))=3 THEN 2540 -2480 IF AA(CC(W),DD(W))=2 THEN 2560 -2490 IF AA(CC(W),DD(W))=1 THEN 2580 -2500 IF AA(CC(W),DD(W))=.5 THEN 2600 -2510 AA(CC(W),DD(W))=10+C -2520 NEXT W -2530 GOTO 2620 -2540 PRINT "YOU HIT MY BATTLESHIP." -2550 GOTO 2510 -2560 PRINT "YOU HIT MY CRUISER." -2570 GOTO 2510 -2580 PRINT "YOU HIT MY DESTROYER." -2590 GOTO 2510 -2600 PRINT "YOU HIT MY DESTROYER." -2610 GOTO 2510 -2620 A=0 -2630 IF J$="YES" THEN 2670 -2640 C=C+1 -2650 PRINT -2660 PRINT "TURN";C -2670 A=0 -2680 FOR W=.5 TO 3 STEP .5 -2690 FOR X=1 TO 10 -2700 FOR Y=1 TO 10 -2710 IF AA(X,Y)=W THEN 2750 -2720 NEXT Y -2730 NEXT X -2740 GOTO 2760 -2750 A=A+INT(W+.5) -2760 NEXT W -2770 P3=0 -2780 FOR X=1 TO 10 -2790 FOR Y=1 TO 10 -2800 IF AA(X,Y)>10 THEN 2820 -2810 P3=P3+1 -2820 NEXT Y -2830 NEXT X -2840 PRINT "I HAVE";A;"SHOTS." -2850 IF P3>A THEN 2880 -2860 PRINT "I HAVE MORE SHOTS THAN BLANK SQUARES." -2870 GOTO 2270 -2880 IF A<>0 THEN 2960 -2890 PRINT "YOU HAVE WON." -2900 STOP -2910 X=INT(RND(1)*10+1) -2920 Y=INT(RND(1)*10+1) -2930 V=INT(3*RND(1)-1) -2940 V2=INT(3*RND(1)-1) -2950 RETURN -2960 FOR W=1 TO 12 -2970 IF HH(W)>0 THEN 3800 -2980 NEXT W -2990 REM*******************RANDOM -3000 W=0 -3010 R3=0 -3020 GOSUB 2910 -3030 RESTORE -3040 R2=0 -3050 R3=R3+1 -3060 IF R3>100 THEN 3010 -3070 IF X>10 THEN 3110 -3080 IF X>0 THEN 3120 -3090 X=1+INT(RND(1)*2.5) -3100 GOTO 3120 -3110 X=10-INT(RND(1)*2.5) -3120 IF Y>10 THEN 3160 -3130 IF Y>0 THEN 3270 -3140 Y=1+INT(RND(1)*2.5) -3150 GOTO 3270 -3160 Y=10-INT(RND(1)*2.5) -3170 GOTO 3270 -3180 FF(W)=X -3190 GG(W)=Y -3200 IF W=A THEN 3380 -3210 IF R2=6 THEN 3030 -3220 READ X1,Y1 -3230 R2=R2+1 -3240 DATA 1,1,-1,1,1,-3,1,1,0,2,-1,1 -3250 X=X+X1 -3260 Y=Y+Y1 -3270 IF X>10 THEN 3210 -3280 IF X<1 THEN 3210 -3290 IF Y>10 THEN 3210 -3300 IF Y<1 THEN 3210 -3310 IF BB(X,Y)>10 THEN 3210 -3320 FOR Q9=1 TO W -3330 IF FF(Q9)<>X THEN 3350 -3340 IF GG(Q9)=Y THEN 3210 -3350 NEXT Q9 -3360 W=W+1 -3370 GOTO 3180 -3380 IF K$<>"YES" THEN 3420 -3390 FOR Z5=1 TO A -3400 PRINT FF(Z5);GG(Z5) -3410 NEXT Z5 -3420 FOR W=1 TO A -3430 IF BB(FF(W),GG(W))=3 THEN 3500 -3440 IF BB(FF(W),GG(W))=2 THEN 3520 -3450 IF BB(FF(W),GG(W))=1 THEN 3560 -3460 IF BB(FF(W),GG(W))=.5 THEN 3540 -3470 BB(FF(W),GG(W))=10+C -3480 NEXT W -3490 GOTO 1950 -3500 PRINT "I HIT YOUR BATTLESHIP" -3510 GOTO 3570 -3520 PRINT "I HIT YOUR CRUISER" -3530 GOTO 3570 -3540 PRINT "I HIT YOUR DESTROYER" -3550 GOTO 3570 -3560 PRINT "I HIT YOUR DESTROYER" -3570 FOR Q=1 TO 12 -3580 IF EE(Q)<>-1 THEN 3730 -3590 EE(Q)=10+C -3600 HH(Q)=BB(FF(W),GG(W)) -3610 M3=0 -3620 FOR M2=1 TO 12 -3630 IF HH(M2)<>HH(Q) THEN 3650 -3640 M3=M3+1 -3650 NEXT M2 -3660 IF M3<>INT(HH(Q)+.5)+1+INT(INT(HH(Q)+.5)/3) THEN 3470 -3670 FOR M2=1 TO 12 -3680 IF HH(M2)<>HH(Q) THEN 3710 -3690 EE(M2)=-1 -3700 HH(M2)=-1 -3710 NEXT M2 -3720 GOTO 3470 -3730 NEXT Q -3740 PRINT "PROGRAM ABORT:" -3750 FOR Q=1 TO 12 -3760 PRINT "EE(";Q;") =";EE(Q) -3770 PRINT "HH(";Q;") =";HH(Q) -3780 NEXT Q -3790 STOP -3800 REM************************USINGEARRAY -3810 FOR R=1 TO 10 -3820 FOR S=1 TO 10 -3830 KK(R,S)=0 -3840 NEXT S -3850 NEXT R -3860 FOR U=1 TO 12 -3870 IF EE(U)<10 THEN 4020 -3880 FOR R=1 TO 10 -3890 FOR S=1 TO 10 -3900 IF BB(R,S)<10 THEN 3930 -3910 KK(R,S)=-10000000 -3920 GOTO 4000 -3930 FOR M=SGN(1-R) TO SGN(10-R) -3940 FOR N=SGN(1-S) TO SGN(10-S) -3950 IF N+M+N*M=0 THEN 3980 -3960 IF BB(R+M,S+N)<>EE(U) THEN 3980 -3970 KK(R,S)=KK(R,S)+EE(U)-S*INT(HH(U)+.5) -3980 NEXT N -3990 NEXT M -4000 NEXT S -4010 NEXT R -4020 NEXT U -4030 FOR R=1 TO A -4040 FF(R)=R -4050 GG(R)=R -4060 NEXT R -4070 FOR R=1 TO 10 -4080 FOR S=1 TO 10 -4090 Q9=1 -4100 FOR M=1 TO A -4110 IF KK(FF(M),GG(M))>=KK(FF(Q9),GG(Q9)) THEN 4130 -4120 Q9=M -4130 NEXT M -4131 IF R>A THEN 4140 -4132 IF R=S THEN 4210 -4140 IF KK(R,S)R THEN 4190 -4170 IF GG(M)=S THEN 4210 -4180 NEXT M -4190 FF(Q9)=R -4200 GG(Q9)=S -4210 NEXT S -4220 NEXT R -4230 GOTO 3380 -4240 END diff --git a/bwbtest/GAMES/sinewave.bas b/bwbtest/GAMES/sinewave.bas deleted file mode 100644 index f3e2674..0000000 --- a/bwbtest/GAMES/sinewave.bas +++ /dev/null @@ -1,17 +0,0 @@ -10 PRINT TAB(30);"SINE WAVE" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT: PRINT: PRINT: PRINT: PRINT -40 REM ARKABLE PROGRAM BY DAVID AHL -50 B=0 -100 REM START LONG LOOP -110 FOR T=0 TO 40 STEP .25 -120 A=INT(26+25*SIN(T)) -130 PRINT TAB(A); -140 IF B=1 THEN 180 -150 PRINT "CREATIVE" -160 B=1 -170 GOTO 200 -180 PRINT "COMPUTING" -190 B=0 -200 NEXT T -999 END diff --git a/bwbtest/GAMES/slalom.bas b/bwbtest/GAMES/slalom.bas deleted file mode 100644 index 70061a5..0000000 --- a/bwbtest/GAMES/slalom.bas +++ /dev/null @@ -1,165 +0,0 @@ -10 PRINT TAB(33);"SLALOM" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -310 PRINT "HOW MANY GATES DOES THIS COURSE HAVE (1 TO 25)"; -320 INPUT V -330 IF V>25 THEN 360 -340 IF V<1 THEN 390 -350 GOTO 1440 -360 PRINT "25 IS THE LIMIT." -370 LET V=25 -380 GOTO 1440 -390 PRINT "TRY AGAIN," -400 GOTO 310 -410 PRINT "RATE YOURSELF AS A SKIER, (1=WORST, 3=BEST)"; -420 INPUT A -430 IF A<1 THEN 460 -440 IF A>3 THEN 460 -450 GOTO 480 -460 PRINT "THE BOUNDS ARE 1-3" -470 GOTO 410 -480 PRINT"THE STARTER COUNTS DOWN...5...4...3...2...1...GO!"; -490 REM -500 LET T=0 -510 LET S=INT(RND(1)*(18-9)+9) -520 PRINT -525 PRINT "YOU'RE OFF!" -530 FOR O=1 TO V -540 READ Q -550 PRINT -555 PRINT "HERE COMES GATE #";STR$(O);":" -560 PRINT S;"M.P.H." -570 LET S1=S -580 PRINT "OPTION"; -590 INPUT O1 -600 IF O1=0 THEN 970 -610 IF O1>8 THEN 1420 -620 IF O1<1 THEN 1420 -630 GOSUB 990 -640 IF S<7 THEN 1390 -650 LET T=T+(Q-S+1) -660 IF S>Q THEN 1630 -670 NEXT O -680 PRINT:PRINT "YOU TOOK";(T+RND(1));"SECONDS." -690 LET M=T -700 LET M=M/V -710 IF M<1.5-(A*.1) THEN 1650 -720 IF M<2.9-(A*.1) THEN 1680 -730 IF M<4.4-(A*.01) THEN 1710 -740 PRINT:PRINT "DO YOU WANT TO RACE AGAIN"; -750 INPUT B$ -760 REM -770 IF B$="NO" THEN 1740 -780 IF B$="YES" THEN 480 -790 PRINT "PLEASE TYPE 'YES' OR 'NO'" -800 GOTO 740 -810 STOP -820 PRINT -825 PRINT "*** SLALOM: THIS IS THE 1976 WINTER OLYMPIC GIANT SLALOM. YOU ARE" -830 PRINT " THE AMERICAN TEAM'S ONLY HOPE OF A GOLD MEDAL." -840 PRINT -845 PRINT " 0 -- TYPE THIS IS YOU WANT TO SEE HOW LONG YOU'VE TAKEN." -850 PRINT " 1 -- TYPE THIS IF YOU WANT TO SPEED UP A LOT." -860 PRINT " 2 -- TYPE THIS IF YOU WANT TO SPEED UP A LITTLE." -870 PRINT " 3 -- TYPE THIS IF YOU WANT TO SPEED UP A TEENSY." -880 PRINT " 4 -- TYPE THIS IF YOU WANT TO KEEP GOING THE SAME SPEED." -890 PRINT " 5 -- TYPE THIS IF YOU WANT TO CHECK A TEENSY." -900 PRINT " 6 -- TYPE THIS IF YOU WANT TO CHECK A LITTLE." -910 PRINT " 7 -- TYPE THIS IF YOU WANT TO CHECK A LOT." -920 PRINT " 8 -- TYPE THIS IF YOU WANT TO CHEAT AND TRY TO SKIP A GATE." -930 PRINT -935 PRINT " THE PLACE TO USE THESE OPTIONS IS WHEN THE COMPUTER ASKS:" -940 PRINT -945 PRINT "OPTION?" -950 PRINT -955 PRINT " GOOD LUCK!" -957 PRINT -960 GOTO 1470 -970 PRINT "YOU'VE TAKEN";(T+RND(1));"SECONDS." -980 GOTO 580 -990 ON O1 GOTO 1130,1010,1170,1080,1190,1100,1150,1210 -1000 STOP -1010 LET S=S+INT(RND(1)*(5-3)+3) -1020 PRINT S;"M.P.H." -1030 IF S>Q THEN 1290 -1040 IF S>Q-1 THEN 1060 -1050 RETURN -1060 PRINT "CLOSE ONE!" -1070 RETURN -1080 PRINT S;"M.P.H." -1090 GOTO 1030 -1100 LET S=S-INT(RND(1)*(5-3)+3) -1110 PRINT S;"M.P.H." -1120 GOTO 1030 -1130 LET S=S+INT(RND(1)*(10-5)+5) -1140 GOTO 1080 -1150 LET S=S-INT(RND(1)*(10-5)+5) -1160 GOTO 1110 -1170 LET S=S+INT(RND(1)*(4-1)+1) -1180 GOTO 1110 -1190 LET S=S-INT(RND(1)*(4-1)+1) -1200 GOTO 1110 -1210 PRINT "***CHEAT" -1220 IF RND(1)<.7 THEN 1260 -1230 PRINT "YOU MADE IT!" -1240 LET T=T+1.5 -1250 RETURN -1260 PRINT "AN OFFICIAL CAUGHT YOU!" -1270 PRINT "YOU TOOK";(T+RND(1));"SECONDS." -1280 GOTO 740 -1290 IF RND(1)<((S-Q)*.1)+.2 THEN 1320 -1300 PRINT "YOU WENT OVER THE NAXIMUM SPEED AND MADE IT!" -1310 RETURN -1320 PRINT "YOU WENT OVER THE MAXIMUM SPEED AND "; -1330 IF RND(1)<.5 THEN 1370 -1340 PRINT "WIPED OUT!" -1350 PRINT "YOU TOOK";(T+RND(1));"SECONDS" -1360 GOTO 740 -1370 PRINT "SNAGGED A FLAG!" -1380 GOTO 1350 -1390 PRINT "LET'S BE REALISTIC, OK? LET'S GO BACK AND TRY AGAIN..." -1400 LET S=S1 -1410 GOTO 550 -1420 PRINT "WHAT?" -1430 GOTO 580 -1440 PRINT -1445 PRINT "TYPE ";CHR$(34);"INS";CHR$(34);" FOR INSTRUCTIONS" -1450 PRINT "TYPE ";CHR$(34);"MAX";CHR$(34);" FOR APPROXIMATE MAXIMUM SPEEDS" -1460 PRINT "TYPE ";CHR$(34);"RUN";CHR$(34);" FOR THE BEGINNING OF THE RACE" -1470 PRINT "COMMAND--"; -1480 INPUT A$ -1490 REM -1500 IF A$="INS" THEN 820 -1510 IF A$="MAX" THEN 1550 -1520 IF A$="RUN" THEN 410 -1530 PRINT CHR$(34);A$;CHR$(34);" IS AN ILLEGAL COMMAND--RETRY"; -1540 GOTO 1480 -1550 PRINT "GATE MAX" -1560 PRINT " # M.P.H." -1570 PRINT"----------" -1580 FOR B=1 TO V -1590 READ Q -1600 PRINT B;" ";Q -1610 NEXT B -1620 GOTO 1470 -1630 LET T=T+.5 -1640 GOTO 670 -1650 PRINT "YOU WON A GOLD MEDAL!" -1660 LET GG(1)=GG(1)+1 -1670 GOTO 1730 -1680 PRINT "YOU WON A SILVER MEDAL" -1690 LET SS(1)=SS(1)+1 -1700 GOTO 1730 -1710 PRINT "YOU WON A BRONZE MEDAL" -1720 LET BB(1)=BB(1)+1 -1730 GOTO 740 -1740 PRINT "THANKS FOR THE RACE" -1750 IF GG(1)<1 THEN 1770 -1760 PRINT "GOLD MEDALS:";GG(1) -1770 IF SS(1)<1 THEN 1790 -1780 PRINT "SILVER MEDALS:";SS(1) -1790 IF BB(1)<1 THEN 1830 -1800 PRINT "BRONZE MEDALS:";BB(1) -1810 DATA 14,18,26,29,18,25,28,32,29,20,29,29,25,21,26,29,20,21,20 -1820 DATA 18,26,25,33,31,22 -1830 END diff --git a/bwbtest/GAMES/slots.bas b/bwbtest/GAMES/slots.bas deleted file mode 100644 index 41d0545..0000000 --- a/bwbtest/GAMES/slots.bas +++ /dev/null @@ -1,134 +0,0 @@ -10 PRINT TAB(30);"SLOTS" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT: PRINT: PRINT -100 REM PRODUCED BY FRED MIRABELLE AND BOB HARPER ON JAN 29, 1973 -110 REM IT SIMULATES THE SLOT MACHINE. -120 PRINT "YOU ARE IN THE H&M CASINO,IN FRONT OF ONE OF OUR" -130 PRINT "ONE-ARM BANDITS. BET FROM $1 TO $100." -140 PRINT "TO PULL THE ARM, PUNCH THE RETURN KEY AFTER MAKING YOUR BET." -150 LET P=0 -160 PRINT: PRINT"YOUR BET"; -170 INPUT M -180 IF M>100 THEN 860 -190 IF M<1 THEN 880 -200 M=INT(M) -210 GOSUB 1270 -220 PRINT -230 LET X=INT(6*RND(1)+1) -240 LET Y=INT(6*RND(1)+1) -250 LET Z=INT(6*RND(1)+1) -260 PRINT -270 IF X=1 THEN 910 -280 IF X=2 THEN 930 -290 IF X=3 THEN 950 -300 IF X=4 THEN 970 -310 IF X=5 THEN 990 -320 IF X=6 THEN 1010 -330 IF Y=1 THEN 1030 -340 IF Y=2 THEN 1050 -350 IF Y=3 THEN 1070 -360 IF Y=4 THEN 1090 -370 IF Y=5 THEN 1110 -380 IF Y=6 THEN 1130 -390 IF Z=1 THEN 1150 -400 IF Z=2 THEN 1170 -410 IF Z=3 THEN 1190 -420 IF Z=4 THEN 1210 -430 IF Z=5 THEN 1230 -440 IF Z=6 THEN 1250 -450 IF X=Y THEN 600 -460 IF X=Z THEN 630 -470 IF Y=Z THEN 650 -480 PRINT -490 PRINT "YOU LOST." -500 LET P=P-M -510 PRINT "YOUR STANDINGS ARE $";P -520 PRINT "AGAIN"; -530 INPUT A$ -540 IF A$="Y" THEN 160 -550 PRINT -560 IF P<0 THEN 670 -570 IF P=0 THEN 690 -580 IF P>0 THEN 710 -590 GOTO 1350 -600 IF Y=Z THEN 730 -610 IF Y=1 THEN 820 -620 GOTO 1341 -630 IF Z=1 THEN 820 -640 GOTO 470 -650 IF Z=1 THEN 820 -660 GOTO 1341 -670 PRINT "PAY UP! PLEASE LEAVE YOUR MONEY ON THE TERMINAL." -680 GOTO 1350 -690 PRINT"HEY, YOU BROKE EVEN." -700 GOTO 1350 -710 PRINT "COLLECT YOUR WINNINGS FROM THE H&M CASHIER." -720 GOTO 1350 -730 IF Z=1 THEN 780 -740 PRINT: PRINT"**TOP DOLLAR**" -750 PRINT "YOU WON!" -760 P=(((10*M)+M)+P) -770 GOTO 510 -780 PRINT:PRINT"***JACKPOT***" -790 PRINT "YOU WON!" -800 P=(((100*M)+M)+P) -810 GOTO 510 -820 PRINT:PRINT"*DOUBLE BAR*" -830 PRINT"YOU WON!" -840 P=(((5*M)+M)+P) -850 GOTO 510 -860 PRINT"HOUSE LIMITS ARE $100" -870 GOTO 160 -880 PRINT"MINIMUM BET IS $1" -890 GOTO 160 -900 GOTO 220 -910 PRINT"BAR";:GOSUB 1310 -920 GOTO 330 -930 PRINT"BELL";:GOSUB 1310 -940 GOTO 330 -950 PRINT"ORANGE";:GOSUB 1310 -960 GOTO 330 -970 PRINT"LEMON";:GOSUB 1310 -980 GOTO 330 -990 PRINT"PLUM";:GOSUB 1310 -1000 GOTO 330 -1010 PRINT"CHERRY";:GOSUB 1310 -1020 GOTO 330 -1030 PRINT" BAR";:GOSUB 1310 -1040 GOTO 390 -1050 PRINT" BELL";:GOSUB 1310 -1060 GOTO 390 -1070 PRINT" ORANGE";:GOSUB 1310 -1080 GOTO 390 -1090 PRINT" LEMON";:GOSUB 1310 -1100 GOTO 390 -1110 PRINT" PLUM";:GOSUB 1310 -1120 GOTO 390 -1130 PRINT" CHERRY";:GOSUB 1310 -1140 GOTO 390 -1150 PRINT" BAR" -1160 GOTO 450 -1170 PRINT" BELL" -1180 GOTO 450 -1190 PRINT" ORANGE" -1200 GOTO 450 -1210 PRINT" LEMON" -1220 GOTO 450 -1230 PRINT" PLUM" -1240 GOTO 450 -1250 PRINT" CHERRY" -1260 GOTO 450 -1270 FOR Q4=1 TO 10 -1280 PRINT CHR$(7); -1290 NEXT Q4 -1300 RETURN -1310 FOR T8=1 TO 5 -1320 PRINT CHR$(7); -1330 NEXT T8 -1340 RETURN -1341 PRINT: PRINT "DOUBLE!!" -1342 PRINT"YOU WON!" -1343 P=(((2*M)+M)+P) -1344 GOTO 510 -1350 STOP -9999 END diff --git a/bwbtest/GAMES/splat.bas b/bwbtest/GAMES/splat.bas deleted file mode 100644 index 82cab2d..0000000 --- a/bwbtest/GAMES/splat.bas +++ /dev/null @@ -1,128 +0,0 @@ -10 PRINT TAB(33);"SPLAT" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -40 PRINT:PRINT:PRINT -50 DIM A(42) -95 PRINT "WELCOME TO 'SPLAT' -- THE GAME THAT SIMULATES A PARACHUTE" -96 PRINT "JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE" -97 PRINT "MOMENT WITHOUT GOING SPLAT." -118 PRINT:PRINT:D1=0:V=0:A=0:N=0:M=0:D1=INT(9001*RND(1)+1000) -119 PRINT "SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)";:INPUT A1$ -120 IF A1$="NO" GOTO 128 -121 IF A1$<>"YES" THEN PRINT "YES OR NO";:INPUT A1$:GOTO 120 -123 PRINT "WHAT TERMINAL VELOCITY (MI/HR)";:INPUT V1 -125 V1=V1*(5280/3600):V=V1+((V1*RND(1))/20)-((V1*RND(1))/20):GOTO 135 -128 V1=INT(1000*RND(1)) -130 PRINT "OK. TERMINAL VELOCITY =";V1;"MI/HR" -131 V1=V1*(5280/3600):V=V1+((V1*RND(1))/20)-((V1*RND(1))/20) -135 PRINT "WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)"; -136 INPUT B1$ -140 IF B1$="NO" GOTO 150 -141 IF B1$<>"YES" THEN PRINT "YES OR NO";:INPUT B1$:GOTO 140 -143 PRINT "WHAT ACCELERATION (FT/SEC/SEC)";:INPUT A2 -145 A=A2+((A2*RND(1))/20)-((A2*RND(1))/20):GOTO 205 -150 ON INT(1+(10*RND(1))) GOTO 151,152,153,154,155,156,157,158,159,160 -151 PRINT"FINE. YOU'RE ON MERCURY. ACCELERATION=12.2 FT/SEC/SEC.":GOTO 161 -152 PRINT"ALL RIGHT. YOU'RE ON VENUS. ACCELERATION=28.3 FT/SEC/SEC.":GOTO 162 -153 PRINT "THEN YOU'RE ON EARTH. ACCELERATION=32.16 FT/SEC/SEC.":GOTO 163 -154 PRINT"FINE. YOU'RE ON THE MOON. ACCELERATION=5.15 FT/SEC/SEC.":GOTO 164 -155 PRINT"ALL RIGHT. YOU'RE ON MARS. ACCELERATION=12.5 FT/SEC/SEC.":GOTO 165 -156 PRINT"THEN YOU'RE ON JUPITER. ACCELERATION=85.2 FT/SEC/SEC.":GOTO 166 -157 PRINT"FINE. YOU'RE ON SATURN. ACCELERATION=37.6 FT/SEC/SEC.":GOTO 167 -158 PRINT"ALL RIGHT. YOU'RE ON URANUS. ACCELERATION=33.8 FT/SEC/SEC.":GOTO 168 -159 PRINT"THEN YOU'RE ON NEPTUNE. ACCELERATION=39.6 FT/SEC/SEC.":GOTO 169 -160 PRINT"FINE. YOU'RE ON THE SUN. ACCELERATION=896 FT/SEC/SEC.":GOTO 170 -161 A2=12.2:GOTO 145 -162 A2=28.3:GOTO 145 -163 A2=32.16:GOTO 145 -164 A2=5.15:GOTO 145 -165 A2=12.5:GOTO 145 -166 A2=85.2:GOTO 145 -167 A2=37.6:GOTO 145 -168 A2=33.8 :GOTO 145 -169 A2=39.6:GOTO 145 -170 A2=896:GOTO 145 -205 PRINT -206 PRINT " ALTITUDE =";D1;"FT" -207 PRINT " TERM. VELOCITY =";V1;"FT/SEC +/-5%" -208 PRINT " ACCELERATION =";A2;"FT/SEC/SEC +/-5%" -210 PRINT "SET THE TIMER FOR YOUR FREEFALL." -211 PRINT "HOW MANY SECONDS";:INPUT T -215 PRINT "HERE WE GO." -217 PRINT -218 PRINT "TIME (SEC)","DIST TO FALL (FT)" -219 PRINT "==========","=================" -300 FOR I=0 TO T STEP (T/8) -310 IF I>V/A GOTO 400 -320 D=D1-((A/2)*I^2) -330 IF D<=0 GOTO 1000 -340 PRINT I,D -350 NEXT I -360 GOTO 500 -400 PRINT "TERMINAL VELOCITY REACHED AT T PLUS";V/A;"SECONDS." -405 FOR I=I TO T STEP (T/8) -410 D=D1-((V^2/(2*A))+(V*(I-(V/A)))) -420 IF D<=0 GOTO 1010 -430 PRINT I,D -440 NEXT I -500 PRINT "CHUTE OPEN" -510 K=0:K1=0 -550 FOR J=0 TO 42 -555 IF A(J)=0 GOTO 620 -560 K=K+1 -570 IF D>=A(J) GOTO 600 -580 K1=K1+1 -600 NEXT J -610 STOP: REM GOTO 540 -620 A(J)=D -630 IF J>2 THEN 650 -635 PRINT "AMAZING!!! NOT BAD FOR YOUR "; -636 IF J=0 THEN PRINT "1ST "; -637 IF J=1 THEN PRINT "2ND "; -638 IF J=2 THEN PRINT "3RD "; -639 PRINT "SUCCESSFUL JUMP!!!":GOTO 2000 -650 IF K-K1<=.1*K GOTO 700 -660 IF K-K1<=.25*K GOTO 710 -670 IF K-K1<=.5*K GOTO 720 -680 IF K-K1<=.75*K GOTO 730 -690 IF K-K1<=.9*K GOTO 740 -695 GOTO 750 -700 PRINT "WOW! THAT'S SOME JUMPING. OF THE";K;"SUCCESSFUL JUMPS" -701 PRINT "BEFORE YOURS, ONLY";K-K1;"OPENED THEIR CHUTES LOWER THAN" -702 PRINT "YOU DID." -703 GOTO 2000 -710 PRINT "PRETTY GOOD! ";K;"SUCCESSFUL JUMPS PRECEDED YOURS AND ONLY" -711 PRINT K-K1;" OF THEM GOT LOWER THAN YOU DID BEFORE THEIR CHUTES" -712 PRINT "OPENED." :GOTO 2000 -720 PRINT "NOT BAD. THERE HAVE BEEN";K;"SUCCESSFUL JUMPS BEFORE YOURS." -721 PRINT"YOU WERE BEATEN OUT BY";K-K1;"OF THEM.":GOTO 2000 -730 PRINT "CONSERVATIVE, AREN'T YOU? YOU RANKED ONLY";K-K1;"IN THE" -731 PRINT K;"SUCCESSFUL JUMPS BEFORE YOURS.":GOTO 2000 -740 PRINT "HUMPH! DON'T YOU HAVE ANY SPORTING BLOOD? THERE WERE" -741 PRINT K;"SUCCESSFUL JUMPS BEFORE YOURS AND YOU CAME IN";K1;"JUMPS" -742 PRINT "BETTER THAN THE WORST. SHAPE UP!!!":GOTO 2000 -750 PRINT "HEY! YOU PULLED THE RIP CORD MUCH TOO SOON. ";K;"SUCCESSFUL" -751 PRINT "JUMPS BEFORE YOURS AND YOU CAME IN NUMBER";K-K1;"! GET WITH IT!" -752 GOTO 2000 -800 PRINT "REQUIESCAT IN PACE.":GOTO 1950 -801 PRINT "MAY THE ANGEL OF HEAVEN LEAD YOU INTO PARADISE.":GOTO 1950 -802 PRINT "REST IN PEACE.":GOTO 1950 -803 PRINT "SON-OF-A-GUN.":GOTO 1950 -804 PRINT "#$%&&%!$":GOTO 1950 -805 PRINT "A KICK IN THE PANTS IS A BOOST IF YOU'RE HEADED RIGHT.":GOTO 1950 -806 PRINT "HMMM. SHOULD HAVE PICKED A SHORTER TIME.":GOTO 1950 -807 PRINT "MUTTER. MUTTER. MUTTER.":GOTO 1950 -808 PRINT "PUSHING UP DAISIES.":GOTO 1950 -809 PRINT "EASY COME, EASY GO.":GOTO 1950 -1000 PRINT SQR(2*D1/A),"SPLAT" -1005 ON INT(1+(10*RND(1))) GOTO 800,801,802,803,804,805,806,807,808,809 -1010 PRINT (V/A)+((D1-(V^2/(2*A)))/V),"SPLAT" -1020 GOTO 1005 -1950 PRINT "I'LL GIVE YOU ANOTHER CHANCE.":GOTO 2000 -2000 PRINT "DO YOU WANT TO PLAY AGAIN";:INPUT Z$ -2001 IF Z$="YES" GOTO 118 -2002 IF Z$="NO" GOTO 2005 -2003 PRINT "YES OR NO":GOTO 2000 -2005 PRINT "PLEASE";:INPUT Z$:IF Z$="YES" GOTO 118 -2006 IF Z$<>"NO" THEN PRINT "YES OR NO ";:GOTO 2005 -2007 PRINT "SSSSSSSSSS.":PRINT:GOTO 2046 -2046 END diff --git a/bwbtest/GAMES/stars.bas b/bwbtest/GAMES/stars.bas deleted file mode 100644 index 3290cbb..0000000 --- a/bwbtest/GAMES/stars.bas +++ /dev/null @@ -1,54 +0,0 @@ -10 PRINT TAB(34);"STARS" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -100 REM *** STARS - PEOPLE'S COMPUTER CENTER, MENLO PARK, CA -140 REM *** A IS LIMIT ON NUMBER, M IS NUMBER OF GUESSES -150 A=100:M=7 -170 INPUT "DO YOU WANT INSTRUCTIONS";A$ -190 IF LEFT$(A$,1)="N" THEN 280 -200 REM *** INSTRUCTIONS ON HOW TO PLAY -210 PRINT "I AM THINKING OF A WHOLE NUMBER FROM 1 TO";A -220 PRINT "TRY TO GUESS MY NUMBER. AFTER YOU GUESS, I" -230 PRINT "WILL TYPE ONE OR MORE STARS (*). THE MORE" -240 PRINT "STARS I TYPE, THE CLOSER YOU ARE TO MY NUMBER." -250 PRINT "ONE STAR (*) MEANS FAR AWAY, SEVEN STARS (*******)" -260 PRINT "MEANS REALLY CLOSE! YOU GET";M;"GUESSES." -270 REM *** COMPUTER THINKS OF A NUMBER -280 PRINT -290 PRINT -300 X=INT(A*RND(1)+1) -310 PRINT "OK, I AM THINKING OF A NUMBER, START GUESSING." -320 REM *** GUESSING BEGINS, HUMAN GETS M GUESSES -330 FOR K=1 TO M -340 PRINT -350 PRINT "YOUR GUESS"; -360 INPUT G -370 IF G=X THEN 600 -380 D=ABS(G-X) -390 IF D>=64 THEN 510 -400 IF D>=32 THEN 500 -410 IF D>=16 THEN 490 -420 IF D>=8 THEN 480 -430 IF D>=4 THEN 470 -440 IF D>=2 THEN 460 -450 PRINT "*"; -460 PRINT "*"; -470 PRINT "*"; -480 PRINT "*"; -490 PRINT "*"; -500 PRINT "*"; -510 PRINT "*"; -520 PRINT -530 NEXT K -540 REM *** DID NOT GUESS IN M GUESSES -550 PRINT -560 PRINT "SORRY, THAT'S";M;"GUESSES. THE NUMBER WAS";X -580 GOTO 650 -590 REM *** WE HAVE A WINNER -600 PRINT:FOR N=1 TO 79 -610 PRINT "*"; -620 NEXT N -630 PRINT:PRINT -640 PRINT "YOU GOT IT IN";K;"GUESSES!!! LET'S PLAY AGAIN..." -650 GOTO 280 -660 END diff --git a/bwbtest/GAMES/stock.bas b/bwbtest/GAMES/stock.bas deleted file mode 100644 index a85733f..0000000 --- a/bwbtest/GAMES/stock.bas +++ /dev/null @@ -1,232 +0,0 @@ -10 PRINT TAB(30);"STOCK MARKET" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT: PRINT: PRINT -100 REM STOCK MARKET SIMULATION -STOCK- -101 REM REVISED 8/18/70 (D. PESSEL, L. BRAUN, C. LOSIK) -102 REM IMP VRBLS: A-MRKT TRND SLP; B5-BRKRGE FEE; C-TTL CSH ASSTS; -103 REM C5-TTL CSH ASSTS (TEMP); C(I)-CHNG IN STK VAL; D-TTL ASSTS; -104 REM E1,E2-LRG CHNG MISC; I-STCK #; I1,I2-STCKS W LRG CHNG; -105 REM N1,N2-LRG CHNG DAY CNTS; P5-TTL DAYS PRCHSS; P(I)-PRTFL CNTNTS; -106 REM Q9-NEW CYCL?; S4-SGN OF A; S5-TTL DYS SLS; S(I)-VALUE/SHR; -107 REM T-TTL STCK ASSTS; T5-TTL VAL OF TRNSCTNS; -108 REM W3-LRG CHNG; X1-SMLL CHNG(<$1); Z4,Z5,Z6-NYSE AVE.; Z(I)-TRNSCT -110 DIM S(5),P(5),Z(5),C(5) -112 REM SLOPE OF MARKET TREND:A (SAME FOR ALL STOCKS) -113 LET X=1 -114 LET A=INT((RND(X)/10)*100+.5)/100 -115 LET T5=0 -116 LET X9=0 -117 LET N1=0 -118 LET N2=0 -119 LET E1=0 -120 LET E2=0 -121 REM INTRODUCTION -122 PRINT "DO YOU WANT THE INSTRUCTIONS (YES-TYPE 1, NO-TYPE 0)"; -123 INPUT Z9 -124 PRINT -125 PRINT -126 IF Z9<1 THEN 200 -130 PRINT "THIS PROGRAM PLAYS THE STOCK MARKET. YOU WILL BE GIVEN" -132 PRINT "$10,000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL" -134 PRINT "BE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOES NOT" -135 PRINT "REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. A TABLE" -136 PRINT "OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES" -137 PRINT "IN YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS, THE" -138 PRINT "INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION" -139 PRINT "MARK. HERE YOU INDICATE A TRANSACTION. TO BUY A STOCK" -140 PRINT "TYPE +NNN, TO SELL A STOCK TYPE -NNN, WHERE NNN IS THE" -141 PRINT "NUMBER OF SHARES. A BROKERAGE FEE OF 1% WILL BE CHARGED" -142 PRINT "ON ALL TRANSACTIONS. NOTE THAT IF A STOCK'S VALUE DROPS" -143 PRINT "TO ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN. YOU" -144 PRINT "HAVE $10,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS." -145 PRINT "(NOTE: TO GET A 'FEEL' FOR THE MARKET RUN FOR AT LEAST" -146 PRINT "10 DAYS)" -147 PRINT "-----GOOD LUCK!-----" -200 REM GENERATION OF STOCK TABLE; INPUT REQUESTS -210 REM INITIAL STOCK VALUES -220 LET S(1)=100 -230 LET S(2)=85 -240 LET S(3)=150 -250 LET S(4)=140 -260 LET S(5)=110 -265 REM INITIAL T8 - # DAYS FOR FIRST TREND SLOPE (A) -266 LET T8=INT(4.99*RND(X)+1) -267 REM RANDOMIZE SIGN OF FIRST TREND SLOPE (A) -268 IF RND(X)>.5 THEN 270 -269 LET A=-A -270 REM RANDOMIZE INITIAL VALUES -280 GOSUB 830 -285 REM INITIAL PORTFOLIO CONTENTS -290 FOR I=1 TO 5 -300 LET P(I)=0 -305 LET Z(I)=0 -310 NEXT I -320 PRINT -330 PRINT -333 REM INITIALIZE CASH ASSETS:C -335 LET C=10000 -338 REM PRINT INITIAL PORTFOLIO -340 PRINT "STOCK"," ","INITIALS","PRICE/SHARE" -350 PRINT "INT. BALLISTIC MISSILES"," IBM",S(1) -352 PRINT "RED CROSS OF AMERICA"," RCA",S(2) -354 PRINT "LICHTENSTEIN, BUMRAP & JOKE"," LBJ",S(3) -356 PRINT "AMERICAN BANKRUPT CO."," ABC",S(4) -358 PRINT "CENSURED BOOKS STORE"," CBS",S(5) -360 PRINT -361 REM NYSE AVERAGE:Z5; TEMP. VALUE:Z4; NET CHANGE:Z6 -363 LET Z4=Z5 -364 LET Z5=0 -365 LET T=0 -370 FOR I=1 TO 5 -375 LET Z5=Z5+S(I) -380 LET T=T+S(I)*P(I) -390 NEXT I -391 LET Z5=INT(100*(Z5/5)+.5)/100 -392 LET Z6=INT((Z5-Z4)*100+.5)/100 -393 REM TOTAL ASSETS:D -394 LET D=T+C -395 IF X9>0 THEN 398 -396 PRINT "NEW YORK STOCK EXCHANGE AVERAGE: ";Z5 -397 GOTO 399 -398 PRINT "NEW YORK STOCK EXCHANGE AVERAGE: ";Z5;"NET CHANGE";Z6 -399 PRINT -400 LET T=INT(100*T+.5)/100 -401 PRINT "TOTAL STOCK ASSETS ARE $";T -403 LET C=INT(100*C+.5)/100 -405 PRINT "TOTAL CASH ASSETS ARE $";C -407 LET D=INT(100*D+.5)/100 -408 PRINT "TOTAL ASSETS ARE $";D -410 PRINT -411 IF X9=0 THEN 416 -412 PRINT "DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)"; -413 INPUT Q9 -414 IF Q9<1 THEN 998 -416 REM INPUT TRANSACTIONS -420 PRINT "WHAT IS YOUR TRANSACTION IN" -430 PRINT "IBM"; -440 INPUT Z(1) -450 PRINT "RCA"; -460 INPUT Z(2) -470 PRINT "LBJ"; -480 INPUT Z(3) -490 PRINT "ABC"; -500 INPUT Z(4) -510 PRINT "CBS"; -520 INPUT Z(5) -525 PRINT -530 REM TOTAL DAY'S PURCHASES IN $:P5 -540 LET P5=0 -550 REM TOTAL DAY'S SALES IN $:S5 -560 LET S5=0 -570 FOR I=1 TO 5 -575 LET Z(I)=INT(Z(I)+.5) -580 IF Z(I)<=0 THEN 610 -590 LET P5=P5+Z(I)*S(I) -600 GOTO 620 -610 LET S5=S5-Z(I)*S(I) -612 IF -Z(I)<=P(I) THEN 620 -614 PRINT "YOU HAVE OVERSOLD A STOCK; TRY AGAIN." -616 GOTO 420 -620 NEXT I -622 REM TOTAL VALUE OF TRANSACTIONS:T5 -625 LET T5=P5+S5 -630 REM BROKERAGE FEE:B5 -640 LET B5=INT(.01*T5*100+.5)/100 -650 REM CASH ASSETS=OLD CASH ASSETS-TOTAL PURCHASES -652 REM -BROKERAGE FEES+TOTAL SALES:C5 -654 LET C5=C-P5-B5+S5 -656 IF C5>=0 THEN 674 -658 PRINT "YOU HAVE USED $";-C5;" MORE THAN YOU HAVE." -660 GOTO 420 -674 LET C=C5 -675 REM CALCULATE NEW PORTFOLIO -680 FOR I=1 TO 5 -690 LET P(I)=P(I)+Z(I) -700 NEXT I -710 REM CALCULATE NEW STOCK VALUES -720 GOSUB 830 -750 REM PRINT PORTFOLIO -751 REM BELL RINGING-DIFFERENT ON MANY COMPUTERS -755 PRINT -756 PRINT "********** END OF DAY'S TRADING **********" -757 PRINT -758 PRINT -759 IF X9<1 THEN 769 -769 PRINT "STOCK","PRICE/SHARE","HOLDINGS", "VALUE", "NET PRICE CHANGE" -770 PRINT "IBM", S(1), P(1), S(1)*P(1), C(1) -771 PRINT "RCA", S(2), P(2), S(2)*P(2), C(2) -772 PRINT "LBJ", S(3), P(3), S(3)*P(3), C(3) -773 PRINT "ABC", S(4), P(4), S(4)*P(4), C(4) -774 PRINT "CBS", S(5), P(5), S(5)*P(5), C(5) -775 LET X9=1 -780 PRINT -790 PRINT -810 GOTO 360 -829 REM NEW STOCK VALUES - SUBROUTINE -830 REM RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS -831 REM DAY'S VALUES -832 REM N1,N2 ARE RANDOM NUMBERS OF DAYS WHICH RESPECTIVELY -833 REM DETERMINE WHEN STOCK I1 WILL INCREASE 10 PTS. AND STOCK -834 REM I2 WILL DECREASE 10 PTS. -840 REM IF N1 DAYS HAVE PASSED, PICK AN I1, SET E1, DETERMINE NEW N1 -841 IF N1>0 THEN 850 -845 LET I1=INT(4.99*RND(X)+1) -846 LET N1=INT(4.99*RND(X)+1) -847 LET E1=1 -850 REM IF N2 DAYS HAVE PASSED, PICK AN I2, SET E2, DETERMINE NEW N2 -851 IF N2>0 THEN 860 -855 LET I2=INT(4.99*RND(X)+1) -856 LET N2=INT(4.99*RND(X)+1) -857 LET E2=1 -860 REM DEDUCT ONE DAY FROM N1 AND N2 -861 LET N1=N1-1 -862 LET N2=N2-1 -890 REM LOOP THROUGH ALL STOCKS -900 FOR I=1 TO 5 -910 LET X1=RND(X) -915 IF X1>.25 THEN 920 -916 LET X1=.25 -917 GOTO 935 -920 IF X1>.5 THEN 925 -921 LET X1=.5 -922 GOTO 935 -925 IF X1>.75 THEN 930 -926 LET X1=.75 -927 GOTO 935 -930 LET X1=0.0 -931 REM BIG CHANGE CONSTANT:W3 (SET TO ZERO INITIALLY) -935 LET W3=0 -936 IF E1<1 THEN 945 -937 IF INT(I1+.5)<>INT(I+.5) THEN 945 -938 REM ADD 10 PTS. TO THIS STOCK; RESET E1 -939 LET W3=10 -943 LET E1=0 -945 IF E2<1 THEN 955 -947 IF INT(I2+.5)<>INT(I+.5) THEN 955 -948 REM SUBTRACT 10 PTS. FROM THIS STOCK; RESET E2 -949 LET W3=W3-10 -953 LET E2=0 -954 REM C(I) IS CHANGE IN STOCK VALUE -955 LET C(I)=INT(A*S(I))+X1+INT(3-6*RND(X)+.5)+W3 -956 LET C(I)=INT(100*C(I)+.5)/100 -957 LET S(I)=S(I)+C(I) -960 IF S(I)>0 THEN 967 -964 LET C(I)=0 -965 LET S(I)=0 -966 GOTO 970 -967 LET S(I)=INT(100*S(I)+.5)/100 -970 NEXT I -972 REM AFTER T8 DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE -973 LET T8=T8-1 -974 IF T8<1 THEN 985 -980 RETURN -985 REM RANDOMLY CHANGE TREND SIGN AND SLOPE (A), AND DURATION -986 REM OF TREND (T8) -990 LET T8=INT(4.99*RND(X)+1) -992 LET A=INT((RND(X)/10)*100+.5)/100 -993 LET S4=RND(X) -994 IF S4<=.5 THEN 997 -995 LET A=-A -997 RETURN -998 PRINT "HOPE YOU HAD FUN!!" -999 END diff --git a/bwbtest/GAMES/synonym.bas b/bwbtest/GAMES/synonym.bas deleted file mode 100644 index 868657d..0000000 --- a/bwbtest/GAMES/synonym.bas +++ /dev/null @@ -1,53 +0,0 @@ -2 PRINT TAB(33);"SYNONYM" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -10 DIM R$(5),W$(10),L(30),R(30) -20 R$(1)="RIGHT": R$(2)="CORRECT": R$(3)="FINE": R$(4)="GOOD!" -30 R$(5)="CHECK" -70 C=0 -90 PRINT "A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH" -100 PRINT "LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME"; -110 PRINT " MEANING." -130 PRINT "I CHOOSE A WORD -- YOU TYPE A SYNONYM." -140 PRINT "IF YOU CAN'T THINK OF A SYNONYM, TYPE THE WORD 'HELP'" -145 PRINT "AND I WILL TELL YOU A SYNONYM.": PRINT -150 RESTORE: C=C+1: READ N -160 IF C>N THEN 420 -170 N1=INT(RND(1)*N+1) -174 IF R(N1)=1 THEN 170 -176 R(N1)=1 -180 FOR I=1 TO N1 -190 READ N2 -200 FOR J=1 TO N2 -210 READ W$(J) -220 NEXT J -230 NEXT I -232 FOR J=1 TO N2: L(J)=J: NEXT J -235 L(0)=N2: G=1: PRINT -237 L(G)=L(L(0)): L(0)=N2-1: PRINT -240 PRINT " WHAT IS A SYNONYM OF ";W$(G);: INPUT A$ -250 IF A$="HELP" THEN 340 -260 FOR K=1 TO N2 -270 IF G=K THEN 290 -280 IF A$=W$(K) THEN 320 -290 NEXT K -300 PRINT " TRY AGAIN.": GOTO 240 -320 PRINT R$(INT(RND(1)*5+1)): GOTO 150 -340 G1=INT(RND(1)*L(0)+1) -360 PRINT "**** A SYNONYM OF ";W$(G);" IS ";W$(L(G1));".": PRINT -370 L(G1)=L(L(0)): L(0)=L(0)-1: GOTO 240 -420 PRINT: PRINT "SYNONYM DRILL COMPLETED.": GOTO 999 -500 DATA 10 -510 DATA 5,"FIRST","START","BEGINNING","ONSET","INITIAL" -520 DATA 5,"SIMILAR","ALIKE","SAME","LIKE","RESEMBLING" -530 DATA 5,"MODEL","PATTERN","PROTOTYPE","STANDARD","CRITERION" -540 DATA 5,"SMALL","INSIGNIFICANT","LITTLE","TINY","MINUTE" -550 DATA 6,"STOP","HALT","STAY","ARREST","CHECK","STANDSTILL" -560 DATA 6,"HOUSE","DWELLING","RESIDENCE","DOMICILE","LODGING" -565 DATA "HABITATION" -570 DATA 7,"PIT","HOLE","HOLLOW","WELL","GULF","CHASM","ABYSS" -580 DATA 7,"PUSH","SHOVE","THRUST","PROD","POKE","BUTT","PRESS" -590 DATA 6,"RED","ROUGE","SCARLET","CRIMSON","FLAME","RUBY" -600 DATA 7,"PAIN","SUFFERING","HURT","MISERY","DISTRESS","ACHE" -605 DATA "DISCOMFORT" -999 END diff --git a/bwbtest/GAMES/target.bas b/bwbtest/GAMES/target.bas deleted file mode 100644 index 7e99d3b..0000000 --- a/bwbtest/GAMES/target.bas +++ /dev/null @@ -1,51 +0,0 @@ -10 PRINT TAB(33);"TARGET" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT: PRINT: PRINT -100 R=1: R1=57.296: P=3.14159 -110 PRINT "YOU ARE THE WEAPONS OFFICER ON THE STARSHIP ENTERPRISE" -120 PRINT "AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT YOU" -130 PRINT "ARE IN A THREE-DIMENSIONAL RANGE. YOU WILL BE TOLD" -140 PRINT "THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION" -150 PRINT "OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES," -160 PRINT "THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z" -170 PRINT "AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET." -180 PRINT "YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS" -190 PRINT "DESTROYED!": PRINT: PRINT "GOOD LUCK!!":PRINT: PRINT -220 A=RND(1)*2*P: B=RND(1)*2*P: Q=INT(A*R1): W=INT(B*R1) -260 PRINT "RADIANS FROM X AXIS =";A;" FROM Z AXIS =";B -280 P1=100000*RND(1)+RND(1): X=SIN(B)*COS(A)*P1: Y=SIN(B)*SIN(A)*P1 -290 Z=COS(B)*P1 -340 PRINT "TARGET SIGHTED: APPROXIMATE COORDINATES: X=";X;" Y=";Y;" Z=";Z -345 R=R+1: IF R>5 THEN 390 -350 ON R GOTO 355,360,365,370,375 -355 P3=INT(P1*.05)*20: GOTO 390 -360 P3=INT(P1*.1)*10: GOTO 390 -365 P3=INT(P1*.5)*2: GOTO 390 -370 P3=INT(P1): GOTO 390 -375 P3=P1 -390 PRINT " ESTIMATED DISTANCE:";P3 -400 PRINT:PRINT "INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE"; -405 INPUT A1,B1,P2 -410 PRINT: IF P2<20 THEN PRINT "YOU BLEW YOURSELF UP!!": GOTO 580 -420 A1=A1/R1: B1=B1/R1: PRINT "RADIANS FROM X AXIS =";A1;" "; -425 PRINT "FROM Z AXIS =";B1 -480 X1=P2*SIN(B1)*COS(A1): Y1=P2*SIN(B1)*SIN(A1): Z1=P2*COS(B1) -510 D=((X1-X)^2+(Y1-Y)^2+(Z1-Z)^2)^(1/2) -520 IF D>20 THEN 670 -530 PRINT: PRINT " * * * HIT * * * TARGET IS NON-FUNCTIONAL": PRINT -550 PRINT "DISTANCE OF EXPLOSION FROM TARGET WAS";D;"KILOMETERS." -570 PRINT: PRINT "MISSION ACCOMPLISHED IN ";R;" SHOTS." -580 R=0: FOR I=1 TO 5: PRINT: NEXT I: PRINT "NEXT TARGET...": PRINT -590 GOTO 220 -670 X2=X1-X: Y2=Y1-Y: Z2=Z1-Z: IF X2<0 THEN 730 -710 PRINT "SHOT IN FRONT OF TARGET";X2;"KILOMETERS.": GOTO 740 -730 PRINT "SHOT BEHIND TARGET";-X2;"KILOMETERS." -740 IF Y2<0 THEN 770 -750 PRINT "SHOT TO LEFT OF TARGET";Y2;"KILOMETERS.": GOTO 780 -770 PRINT "SHOT TO RIGHT OF TARGET";-Y2;"KILOMETERS." -780 IF Z2<0 THEN 810 -790 PRINT "SHOT ABOVE TARGET";Z2;"KILOMETERS.": GOTO 820 -810 PRINT "SHOT BELOW TARGET";-Z2;"KILOMETERS." -820 PRINT "APPROX POSITION OF EXPLOSION: X=";X1;" Y=";Y1;" Z=";Z1 -830 PRINT " DISTANCE FROM TARGET =";D: PRINT: PRINT: PRINT: GOTO 345 -999 END diff --git a/bwbtest/GAMES/tictac1.bas b/bwbtest/GAMES/tictac1.bas deleted file mode 100644 index 57eace4..0000000 --- a/bwbtest/GAMES/tictac1.bas +++ /dev/null @@ -1,69 +0,0 @@ -10 PRINT TAB(30);"TIC TAC TOE" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -50 REM -100 REM THIS PROGRAM PLAYS TIC TAC TOE -110 REM THE MACHINE GOES FIRST -120 PRINT "THE GAME BOARD IS NUMBERED:": PRINT -130 PRINT "1 2 3": PRINT "8 9 4": PRINT "7 6 5" -140 PRINT -150 REM -160 REM -170 REM -180 DEF FNM(X)=X-8*INT((X-1)/8) -190 REM -200 REM MAIN PROGRAM -210 PRINT -220 PRINT -230 A=9 -240 M=A -250 GOSUB 650 -260 P=M -270 B=FNM(P+1) -280 M=B -290 GOSUB 650 -300 Q=M -310 IF Q=FNM(B+4) THEN 360 -320 C=FNM(B+4) -330 M=C -340 GOSUB 700 -350 GOTO 730 -360 C=FNM(B+2) -370 M=C -380 GOSUB 650 -390 R=M -400 IF R=FNM(C+4) THEN 450 -410 D=FNM(C+4) -420 M=D -430 GOSUB 700 -440 GOTO 730 -450 IF P/2<>INT(P/2) THEN 500 -460 D=FNM(C+7) -470 M=D -480 GOSUB 700 -490 GOTO 730 -500 D=FNM(C+3) -510 M=D -520 GOSUB 650 -530 S=M -540 IF S=FNM(D+4) THEN 590 -550 E=FNM(D+4) -560 M=E -570 GOSUB 700 -580 REM -590 E=FNM(D+6) -600 M=E -610 GOSUB 700 -620 PRINT "THE GAME IS A DRAW." -630 GOTO 210 -640 REM -650 GOSUB 700 -660 PRINT "YOUR MOVE"; -670 INPUT M -680 RETURN -700 PRINT "COMPUTER MOVES";M -710 RETURN -720 REM -730 PRINT "AND WINS ********" -740 GOTO 210 -750 END diff --git a/bwbtest/GAMES/tictac2.bas b/bwbtest/GAMES/tictac2.bas deleted file mode 100644 index ece16cc..0000000 --- a/bwbtest/GAMES/tictac2.bas +++ /dev/null @@ -1,114 +0,0 @@ -2 PRINT TAB(30);"TIC-TAC-TOE" -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT:PRINT:PRINT -8 PRINT "THE BOARD IS NUMBERED:" -10 PRINT " 1 2 3" -12 PRINT " 4 5 6" -14 PRINT " 7 8 9" -16 PRINT:PRINT:PRINT -20 DIM SS(9) -50 INPUT"DO YOU WANT 'X' OR 'O'";C$ -55 IF C$="X"THEN 475 -60 P$="O":Q$="X" -100 G=-1:H=1:IF SS(5)<>0 THEN 103 -102 SS(5)=-1:GOTO 195 -103 IF SS(5)<>1 THEN 106 -104 IF SS(1)<>0 THEN 110 -105 SS(1)=-1:GOTO 195 -106 IF SS(2)=1 AND SS(1)=0 THEN 181 -107 IF SS(4)=1 AND SS(1)=0 THEN 181 -108 IF SS(6)=1 AND SS(9)=0 THEN 189 -109 IF SS(8)=1 AND SS(9)=0 THEN 189 -110 IF G=1 THEN 112 -111 GOTO 118 -112 J=3*INT((M-1)/3)+1 -113 IF 3*INT((M-1)/3)+1=M THEN K=1 -114 IF 3*INT((M-1)/3)+2=M THEN K=2 -115 IF 3*INT((M-1)/3)+3=M THEN K=3 -116 GOTO 120 -118 FOR J=1 TO 7 STEP 3:FOR K=1 TO 3 -120 IF SS(J)<>G THEN 130 -122 IF SS(J+2)<>G THEN 135 -126 IF SS(J+1)<>0 THEN 150 -128 SS(J+1)=-1:GOTO 195 -130 IF SS(J)=H THEN 150 -131 IF SS(J+2)<>G THEN 150 -132 IF SS(J+1)<>G THEN 150 -133 SS(J)=-1:GOTO 195 -135 IF SS(J+2)<>0 THEN 150 -136 IF SS(J+1)<>G THEN 150 -138 SS(J+2)=-1:GOTO 195 -150 IF SS(K)<>G THEN 160 -152 IF SS(K+6)<>G THEN 165 -156 IF SS(K+3)<>0 THEN 170 -158 SS(K+3)=-1:GOTO 195 -160 IF SS(K)=H THEN 170 -161 IF SS(K+6)<>G THEN 170 -162 IF SS(K+3)<>G THEN 170 -163 SS(K)=-1:GOTO 195 -165 IF SS(K+6)<>0 THEN 170 -166 IF SS(K+3)<>G THEN 170 -168 SS(K+6)=-1:GOTO 195 -170 GOTO 450 -171 IF SS(3)=G AND SS(7)=0 THEN 187 -172 IF SS(9)=G AND SS(1)=0 THEN 181 -173 IF SS(7)=G AND SS(3)=0 THEN 183 -174 IF SS(9)=0 AND SS(1)=G THEN 189 -175 IF G=-1 THEN G=1:H=-1:GOTO 110 -176 IF SS(9)=1 AND SS(3)=0 THEN 182 -177 FOR I=2 TO 9:IF SS(I)<>0 THEN 179 -178 SS(I)=-1:GOTO 195 -179 NEXT I -181 SS(1)=-1:GOTO 195 -182 IF SS(1)=1 THEN 177 -183 SS(3)=-1:GOTO 195 -187 SS(7)=-1:GOTO 195 -189 SS(9)=-1 -195 PRINT:PRINT"THE COMPUTER MOVES TO..." -202 GOSUB 1000 -205 GOTO 500 -450 IF G=1 THEN 465 -455 IF J=7 AND K=3 THEN 465 -460 NEXT K:NEXT J -465 IF SS(5)=G THEN 171 -467 GOTO 175 -475 P$="X":Q$="O" -500 PRINT:INPUT"WHERE DO YOU MOVE";M -502 IF M=0 THEN PRINT"THANKS FOR THE GAME.":GOTO 2000 -503 IF M>9 THEN 506 -505 IF SS(M)=0 THEN 510 -506 PRINT"THAT SQUARE IS OCCUPIED.":PRINT:PRINT:GOTO 500 -510 G=1:SS(M)=1 -520 GOSUB 1000 -530 GOTO 100 -1000 PRINT:FOR I=1 TO 9:PRINT" ";:IF SS(I)<>-1 THEN 1014 -1012 PRINT Q$;" ";:GOTO 1020 -1014 IF SS(I)<>0 THEN 1018 -1016 PRINT" ";:GOTO 1020 -1018 PRINT P$;" "; -1020 IF I<>3 AND I<>6 THEN 1050 -1030 PRINT:PRINT"---+---+---" -1040 GOTO 1080 -1050 IF I=9 THEN 1080 -1060 PRINT"!"; -1080 NEXT I:PRINT:PRINT:PRINT -1095 FOR I=1 TO 7 STEP 3 -1100 IF SS(I)<>SS(I+1)THEN 1115 -1105 IF SS(I)<>SS(I+2)THEN 1115 -1110 IF SS(I)=-1 THEN 1350 -1112 IF SS(I)=1 THEN 1200 -1115 NEXT I:FOR I=1 TO 3:IF SS(I)<>SS(I+3)THEN 1150 -1130 IF SS(I)<>SS(I+6)THEN 1150 -1135 IF SS(I)=-1 THEN 1350 -1137 IF SS(I)=1 THEN 1200 -1150 NEXT I:FOR I=1 TO 9:IF SS(I)=0 THEN 1155 -1152 NEXT I:GOTO 1400 -1155 IF SS(5)<>G THEN 1170 -1160 IF SS(1)=G AND SS(9)=G THEN 1180 -1165 IF SS(3)=G AND SS(7)=G THEN 1180 -1170 RETURN -1180 IF G=-1 THEN 1350 -1200 PRINT"YOU BEAT ME!! GOOD GAME.":GOTO 2000 -1350 PRINT"I WIN, TURKEY!!!":GOTO 2000 -1400 PRINT"IT'S A DRAW. THANK YOU." -2000 END diff --git a/bwbtest/GAMES/towers.bas b/bwbtest/GAMES/towers.bas deleted file mode 100644 index d2445af..0000000 --- a/bwbtest/GAMES/towers.bas +++ /dev/null @@ -1,128 +0,0 @@ -10 PRINT TAB(33);"TOWERS" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -90 PRINT -100 REM*** INITIALIZE -110 DIM TT(7,3) -120 E=0 -130 FOR D=1 TO 7 -140 FOR N=1 TO 3 -150 TT(D,N)=0 -160 NEXT N -170 NEXT D -180 PRINT "TOWERS OF HANOI PUZZLE.": PRINT -200 PRINT "YOU MUST TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT" -205 PRINT "TOWER, ONE AT A TIME, NEVER PUTTING A LARGER DISK ON A" -210 PRINT "SMALLER DISK.": PRINT -215 INPUT "HOW MANY DISKS DO YOU WANT TO MOVE (7 IS MAX)";S -220 PRINT -230 M=0 -240 FOR Q=1 TO 7 -250 IF Q=S THEN 350 -260 NEXT Q -270 E=E+1 -280 IF E>2 THEN 310 -290 PRINT "SORRY, BUT I CAN'T DO THAT JOB FOR YOU.": GOTO 215 -310 PRINT "ALL RIGHT, WISE GUY, IF YOU CAN'T PLAY THE GAME RIGHT, I'LL" -320 PRINT "JUST TAKE MY PUZZLE AND GO HOME. SO LONG.": STOP -340 REM *** STORE DISKS FROM SMALLEST TO LARGEST -350 PRINT "IN THIS PROGRAM, WE SHALL REFER TO DISKS BY NUMERICAL CODE." -355 PRINT "3 WILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE," -360 PRINT "7 THE NEXT, AND SO ON, UP TO 15. IF YOU DO THE PUZZLE WITH" -365 PRINT "2 DISKS, THEIR CODE NAMES WOULD BE 13 AND 15. WITH 3 DISKS" -370 PRINT "THE CODE NAMES WOULD BE 11, 13 AND 15, ETC. THE NEEDLES" -375 PRINT "ARE NUMBERED FROM LEFT TO RIGHT, 1 TO 3. WE WILL" -380 PRINT "START WITH THE DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE THEM" -385 PRINT "TO NEEDLE 3." -390 PRINT: PRINT "GOOD LUCK!": PRINT -400 Y=7: D=15 -420 FOR X=S TO 1 STEP -1 -430 TT(Y,1)=D: D=D-2: Y=Y-1 -460 NEXT X -470 GOSUB 1230 -480 PRINT "WHICH DISK WOULD YOU LIKE TO MOVE";:E=0 -500 INPUT D -510 IF (D-3)*(D-5)*(D-7)*(D-9)*(D-11)*(D-13)*(D-15)=0 THEN 580 -520 PRINT "ILLEGAL ENTRY... YOU MAY ONLY TYPE 3,5,7,9,11,13, OR 15." -530 E=E+1: IF E>1 THEN 560 -550 GOTO 500 -560 PRINT "STOP WASTING MY TIME. GO BOTHER SOMEONE ELSE.": STOP -580 REM *** CHECK IF REQUESTED DISK IS BELOW ANOTHER -590 FOR R=1 TO 7 -600 FOR C=1 TO 3 -610 IF TT(R,C)=D THEN 640 -620 NEXT C: NEXT R -630 R=7:C=3 -640 FOR Q=R TO 1 STEP -1 -645 IF TT(Q,C)=0 THEN 660 -650 IF TT(Q,C)1 THEN 780 -750 PRINT "I'LL ASSUME YOU HIT THE WRONG KEY THIS TIME. BUT WATCH IT," -760 PRINT "I ONLY ALLOW ONE MISTAKE.": GOTO 705 -780 PRINT "I TRIED TO WARN YOU, BUT YOU WOULDN'T LISTEN." -790 PRINT "BYE BYE, BIG SHOT.":STOP -800 FOR R=1 TO 7 -810 IF TT(R,N)<>0 THEN 840 -820 NEXT R -830 GOTO 880 -835 REM *** CHECK IF DISK TO BE PLACED ON A LARGER ONE -840 IF D0 THEN 970 -950 NEXT U -960 U=7: GOTO 980 -965 REM *** MOVE DISK AND SET OLD LOCATION TO 0 -970 U=U-1 -980 TT(U,N)=TT(V,W): TT(V,W)=0 -995 REM *** PRINT OUT CURRENT STATUS -1000 GOSUB 1230 -1018 REM *** CHECK IF DONE -1020 M=M+1 -1030 FOR R=1 TO 7: FOR C=1 TO 2 -1050 IF TT(R,C)<>0 THEN 1090 -1060 NEXT C: NEXT R -1070 R=7:C=2 -1080 GOTO 1120 -1090 IF M<=128 THEN 480 -1100 PRINT "SORRY, BUT I HAVE ORDERS TO STOP IF YOU MAKE MORE THAN" -1110 PRINT "128 MOVES.": STOP -1120 IF M<>2^S-1 THEN 1140 -1130 PRINT:PRINT "CONGRATULATIONS!!":PRINT -1140 PRINT "YOU HAVE PERFORMED THE TASK IN";M;"MOVES." -1150 PRINT: PRINT "TRY AGAIN (YES OR NO)";: INPUT A$ -1160 IF A$="NO" THEN 1390 -1170 IF A$="YES" THEN 90 -1180 PRINT: PRINT "'YES' OR 'NO' PLEASE";: INPUT A$: GOTO 1160 -1230 REM *** PRINT SUBROUTINE -1240 FOR K=1 TO 7 -1250 Z=10 -1260 FOR J=1 TO 3 -1270 IF TT(K,J)=0 THEN 1330 -1280 PRINT TAB(Z-INTT(TT(K,J)/2)); -1290 FOR V=1 TO TT(K,J) -1300 PRINT "*"; -1310 NEXT V -1320 GOTO 1340 -1330 PRINT TAB(Z);"*"; -1340 Z=Z+21 -1350 NEXT J -1360 PRINT -1370 NEXT K -1380 RETURN -1390 PRINT: PRINT "THANKS FOR THE GAME!": PRINT: END diff --git a/bwbtest/GAMES/train.bas b/bwbtest/GAMES/train.bas deleted file mode 100644 index b981761..0000000 --- a/bwbtest/GAMES/train.bas +++ /dev/null @@ -1,24 +0,0 @@ -1 PRINT TAB(33);"TRAIN" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT: PRINT: PRINT -4 PRINT "TIME - SPEED DISTANCE EXERCISE": PRINT -10 C=INT(25*RND(1))+40 -15 D=INT(15*RND(1))+5 -20 T=INT(19*RND(1))+20 -25 PRINT " A CAR TRAVELING";C;"MPH CAN MAKE A CERTAIN TRIP IN" -30 PRINT D;"HOURS LESS THAN A TRAIN TRAVELING AT";T;"MPH." -35 PRINT "HOW LONG DOES THE TRIP TAKE BY CAR"; -40 INPUT A -45 V=D*T/(C-T) -50 E=INT(ABS((V-A)*100/A)+.5) -55 IF E>5 THEN 70 -60 PRINT "GOOD! ANSWER WITHIN";E;"PERCENT." -65 GOTO 80 -70 PRINT "SORRY. YOU WERE OFF BY";E;"PERCENT." -80 PRINT "CORRECT ANSWER IS";V;"HOURS." -90 PRINT -95 PRINT "ANOTHER PROBLEM (YES OR NO)"; -100 INPUT A$ -105 PRINT -110 IF A$="YES" THEN 10 -999 END diff --git a/bwbtest/GAMES/trap.bas b/bwbtest/GAMES/trap.bas deleted file mode 100644 index 2d5624b..0000000 --- a/bwbtest/GAMES/trap.bas +++ /dev/null @@ -1,49 +0,0 @@ -1 PRINT TAB(34);"TRAP" -2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -3 PRINT:PRINT:PRINT -10 G=6 -20 N=100 -30 REM-TRAP -40 REM-STEVE ULLMAN, 8-1-72 -50 PRINT "INSTRUCTIONS"; -60 INPUT Z$ -70 IF LEFT$(Z$,1)<>"Y" THEN 180 -80 PRINT "I AM THINKING OF A NUMBER BETWEEN 1 AND";N -90 PRINT "TRY TO GUESS MY NUMBER. ON EACH GUESS," -100 PRINT "YOU ARE TO ENTER 2 NUMBERS, TRYING TO TRAP" -110 PRINT "MY NUMBER BETWEEN THE TWO NUMBERS. I WILL" -120 PRINT "TELL YOU IF YOU HAVE TRAPPED MY NUMBER, IF MY" -130 PRINT "NUMBER IS LARGER THAN YOUR TWO NUMBERS, OR IF" -140 PRINT "MY NUMBER IS SMALLER THAN YOUR TWO NUMBERS." -150 PRINT "IF YOU WANT TO GUESS ONE SINGLE NUMBER, TYPE" -160 PRINT "YOUR GUESS FOR BOTH YOUR TRAP NUMBERS." -170 PRINT "YOU GET";G;"GUESSES TO GET MY NUMBER." -180 X=INT(N*RND(1))+1 -190 FOR Q=1 TO G -200 PRINT -210 PRINT "GUESS #";Q; -220 INPUT A,B -230 IF A=B AND X=A THEN 400 -240 IF A <= B THEN 260 -250 GOSUB 360 -260 IF A <= X AND X <= B THEN 320 -270 IF XL(J) THEN 340 -320 REM -330 GOTO 290 -340 NEXT K -350 NEXT J -360 P=P+1 -370 M1=L(P) -380 P=P+1 -390 M2=L(P) -400 PRINT -420 PRINT "YOU: ";A$(M1),"COMPUTER: ";A$(M2) -430 N1=INT((M1-.5)/4) -440 N2=INT((M2-.5)/4) -450 IF N1>=N2 THEN 490 -460 A1=A1+1 -470 PRINT "THE COMPUTER WINS!!! YOU HAVE";B1;"AND THE COMPUTER HAS";A1 -480 GOTO 540 -490 IF N1=N2 THEN 530 -500 B1=B1+1 -510 PRINT "YOU WIN. YOU HAVE";B1;"AND THE COMPUTER HAS";A1 -520 GOTO 540 -530 PRINT "TIE. NO SCORE CHANGE." -540 IF L(P+1)=0 THEN 610 -550 PRINT "DO YOU WANT TO CONTINUE"; -560 INPUT V$ -570 IF V$="YES" THEN 360 -580 IF V$="NO" THEN 650 -590 PRINT "YES OR NO, PLEASE. "; -600 GOTO 540 -610 PRINT -620 PRINT -630 PRINT "WE HAVE RUN OUT OF CARDS. FINAL SCORE: YOU: ";B1; -640 PRINT " THE COMPUTER: ";A1:PRINT -650 PRINT "THANKS FOR PLAYING. IT WAS FUN." -655 PRINT -660 DATA "S-2","H-2","C-2","D-2","S-3","H-3","C-3","D-3" -670 DATA "S-4","H-4","C-4","D-4","S-5","H-5","C-5","D-5" -680 DATA "S-6","H-6","C-6","D-6","S-7","H-7","C-7","D-7" -690 DATA "S-8","H-8","C-8","D-8","S-9","H-9","C-9","D-9" -700 DATA "S-10","H-10","C-10","D-10","S-J","H-J","C-J","D-J" -710 DATA "S-Q","H-Q","C-Q","D-Q","S-K","H-K","C-K","D-K" -720 DATA "S-A","H-A","C-A","D-A" -999 END diff --git a/bwbtest/GAMES/weekday.bas b/bwbtest/GAMES/weekday.bas deleted file mode 100644 index 77efcae..0000000 --- a/bwbtest/GAMES/weekday.bas +++ /dev/null @@ -1,150 +0,0 @@ -10 PRINT TAB(32);"WEEKDAY" -20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -30 PRINT:PRINT:PRINT -100 PRINT "WEEKDAY IS A COMPUTER DEMONSTRATION THAT" -110 PRINT"GIVES FACTS ABOUT A DATE OF INTEREST TO YOU." -120 PRINT -130 PRINT "ENTER TODAY'S DATE IN THE FORM: 3,24,1979 "; -140 INPUT M1,D1,Y1 -150 REM THIS PROGRAM DETERMINES THE DAY OF THE WEEK -160 REM FOR A DATE AFTER 1582 -170 DEF FNA(A)=INT(A/4) -180 DIM T(12) -190 DEF FNB(A)=INT(A/7) -200 REM SPACE OUTPUT AND READ IN INITIAL VALUES FOR MONTHS. -210 FOR I= 1 TO 12 -220 READ T(I) -230 NEXT I -240 PRINT"ENTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)"; -250 INPUT M,D,Y -260 PRINT -270 LET I1 = INT((Y-1500)/100) -280 REM TEST FOR DATE BEFORE CURRENT CALENDAR. -290 IF Y-1582 <0 THEN 1300 -300 LET A = I1*5+(I1+3)/4 -310 LET I2=INT(A-FNB(A)*7) -320 LET Y2=INT(Y/100) -330 LET Y3 =INT(Y-Y2*100) -340 LET A =Y3/4+Y3+D+T(M)+I2 -350 LET B=INT(A-FNB(A)*7)+1 -360 IF M > 2 THEN 470 -370 IF Y3 = 0 THEN 440 -380 LET T1=INT(Y-FNA(Y)*4) -390 IF T1 <> 0 THEN 470 -400 IF B<>0 THEN 420 -410 LET B=6 -420 LET B = B-1 -430 GOTO 470 -440 LET A = I1-1 -450 LET T1=INT(A-FNA(A)*4) -460 IF T1 = 0 THEN 400 -470 IF B <>0 THEN 490 -480 LET B = 7 -490 IF (Y1*12+M1)*31+D1<(Y*12+M)*31+D THEN 550 -500 IF (Y1*12+M1)*31+D1=(Y*12+M)*31+D THEN 530 -510 PRINT M;"/";D;"/";Y;" WAS A "; -520 GOTO 570 -530 PRINT M;"/";D;"/";Y;" IS A "; -540 GOTO 570 -550 PRINT M;"/";D;"/";Y;" WILL BE A "; -560 REM PRINT THE DAY OF THE WEEK THE DATE FALLS ON. -570 IF B <>1 THEN 590 -580 PRINT "SUNDAY." -590 IF B<>2 THEN 610 -600 PRINT "MONDAY." -610 IF B<>3 THEN 630 -620 PRINT "TUESDAY." -630 IF B<>4 THEN 650 -640 PRINT "WEDNESDAY." -650 IF B<>5 THEN 670 -660 PRINT "THURSDAY." -670 IF B<>6 THEN 690 -680 GOTO 1250 -690 IF B<>7 THEN 710 -700 PRINT "SATURDAY." -710 IF (Y1*12+M1)*31+D1=(Y*12+M)*31+D THEN 1120 -720 LET I5=Y1-Y -730 PRINT -740 LET I6=M1-M -750 LET I7=D1-D -760 IF I7>=0 THEN 790 -770 LET I6= I6-1 -780 LET I7=I7+30 -790 IF I6>=0 THEN 820 -800 LET I5=I5-1 -810 LET I6=I6+12 -820 IF I5<0 THEN 1310 -830 IF I7 <> 0 THEN 850 -835 IF I6 <> 0 THEN 850 -840 PRINT"***HAPPY BIRTHDAY***" -850 PRINT " "," ","YEARS","MONTHS","DAYS" -855 PRINT " "," ","-----","------","----" -860 PRINT "YOUR AGE (IF BIRTHDATE) ",I5,I6,I7 -870 LET A8 = (I5*365)+(I6*30)+I7+INT(I6/2) -880 LET K5 = I5 -890 LET K6 = I6 -900 LET K7 = I7 -910 REM CALCULATE RETIREMENT DATE. -920 LET E = Y+65 -930 REM CALCULATE TIME SPENT IN THE FOLLOWING FUNCTIONS. -940 LET F = .35 -950 PRINT "YOU HAVE SLEPT ", -960 GOSUB 1370 -970 LET F = .17 -980 PRINT "YOU HAVE EATEN ", -990 GOSUB 1370 -1000 LET F = .23 -1010 IF K5 > 3 THEN 1040 -1020 PRINT "YOU HAVE PLAYED", -1030 GOTO 1080 -1040 IF K5 > 9 THEN 1070 -1050 PRINT "YOU HAVE PLAYED/STUDIED", -1060 GOTO 1080 -1070 PRINT "YOU HAVE WORKED/PLAYED", -1080 GOSUB 1370 -1085 GOTO 1530 -1090 PRINT "YOU HAVE RELAXED ",K5,K6,K7 -1100 PRINT -1110 PRINT TAB(16);"*** YOU MAY RETIRE IN";E;" ***" -1120 PRINT -1140 PRINT -1200 PRINT -1210 PRINT -1220 PRINT -1230 PRINT -1240 END -1250 IF D=13 THEN 1280 -1260 PRINT "FRIDAY." -1270 GOTO 710 -1280 PRINT "FRIDAY THE THIRTEENTH---BEWARE!" -1290 GOTO 710 -1300 PRINT "NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MDLXXXII. " -1310 GOTO 1140 -1320 REM TABLE OF VALUES FOR THE MONTHS TO BE USED IN CALCULATIONS. -1330 DATA 0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5 -1340 REM THIS IS THE CURRENT DATE USED IN THE CALCULATIONS. -1350 REM THIS IS THE DATE TO BE CALCULATED ON. -1360 REM CALCULATE TIME IN YEARS, MONTHS, AND DAYS -1370 LET K1=INT(F*A8) -1380 LET I5 = INT(K1/365) -1390 LET K1 = K1- (I5*365) -1400 LET I6 = INT(K1/30) -1410 LET I7 = K1 -(I6*30) -1420 LET K5 = K5-I5 -1430 LET K6 =K6-I6 -1440 LET K7 = K7-I7 -1450 IF K7>=0 THEN 1480 -1460 LET K7=K7+30 -1470 LET K6=K6-1 -1480 IF K6>0 THEN 1510 -1490 LET K6=K6+12 -1500 LET K5=K5-1 -1510 PRINT I5,I6,I7 -1520 RETURN -1530 IF K6=12 THEN 1550 -1540 GOTO 1090 -1550 LET K5=K5+1 -1560 LET K6=0 -1570 GOTO 1090 -1580 REM -1590 END diff --git a/bwbtest/GAMES/word.bas b/bwbtest/GAMES/word.bas deleted file mode 100644 index 8435310..0000000 --- a/bwbtest/GAMES/word.bas +++ /dev/null @@ -1,65 +0,0 @@ -2 PRINT TAB(33);"WORD" -3 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -4 PRINT: PRINT: PRINT -5 DIM S(7),A(7),L(7),D(7),P(7) -10 PRINT "I AM THINKING OF A WORD -- YOU GUESS IT. I WILL GIVE YOU" -15 PRINT "CLUES TO HELP YOU GET IT. GOOD LUCK!!": PRINT: PRINT -20 REM -30 PRINT: PRINT: PRINT "YOU ARE STARTING A NEW GAME..." -35 RESTORE -40 READ N -50 C=INT(RND(1)*N+1) -60 FOR I=1 TO C -70 READ S$ -80 NEXT I -90 G=0 -95 S(0)=LEN(S$) -100 FOR I=1 TO LEN(S$): S(I)=ASC(MID$(S$,I,1)): NEXT I -110 FOR I=1 TO 5 -120 A(I)=45 -130 NEXT I -140 FOR J=1 TO 5 -144 P(J)=0 -146 NEXT J -150 PRINT "GUESS A FIVE LETTER WORD"; -160 INPUT L$ -170 G=G+1 -172 IF S$=G$ THEN 500 -173 FOR I=1 TO 7: P(I)=0: NEXT I -175 L(0)=LEN(L$) -180 FOR I=1 TO LEN(L$): L(I)=ASC(MID$(L$,I,1)): NEXT I -190 IF L(1)=63 THEN 300 -200 IF L(0)<>5 THEN 400 -205 M=0: Q=1 -210 FOR I=1 TO 5 -220 FOR J=1 TO 5 -230 IF S(I)<>L(J) THEN 260 -231 P(Q)=L(J) -232 Q=Q+1 -233 IF I<>J THEN 250 -240 A(J)=L(J) -250 M=M+1 -260 NEXT J -265 NEXT I -270 A(0)=5 -272 P(0)=M -275 A$="": FOR I=1 TO A(0): A$=A$+CHR$(A(I)): NEXT I -277 P$="": FOR I=1 TO P(0): P$=P$+CHR$(P(I)): NEXT I -280 PRINT "THERE WERE";M;"MATCHES AND THE COMMON LETTERS WERE...";P$ -285 PRINT "FROM THE EXACT LETTER MATCHES, YOU KNOW................";A$ -286 IF A$=S$ THEN 500 -287 IF M>1 THEN 289 -288 PRINT: PRINT "IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS." -289 PRINT -290 GOTO 150 -300 S$="": FOR I=1 TO 7: S$=S$+CHR$(S(I)): NEXT I -310 PRINT "THE SECRET WORD IS ";S$: PRINT -320 GOTO 30 -400 PRINT "YOU MUST GUESS A 5 LETTER WORD. START AGAIN." -410 PRINT: G=G-1: GOTO 150 -500 PRINT "YOU HAVE GUESSED THE WORD. IT TOOK";G;"GUESSES!": PRINT -510 INPUT "WANT TO PLAY AGAIN";Q$ -520 IF Q$="YES" THEN 30 -530 DATA 12,"DINKY","SMOKE","WATER","GRASS","TRAIN","MIGHT","FIRST" -540 DATA "CANDY","CHAMP","WOULD","CLUMP","DOPEY" -999 END diff --git a/bwbtest/H14/99test.sh b/bwbtest/H14/99test.sh deleted file mode 100644 index 73f9946..0000000 --- a/bwbtest/H14/99test.sh +++ /dev/null @@ -1,18 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif -rm *.DAT - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/H14/BIN4.BAS b/bwbtest/H14/BIN4.BAS deleted file mode 100644 index b42b076..0000000 --- a/bwbtest/H14/BIN4.BAS +++ /dev/null @@ -1,18 +0,0 @@ - 200 PRINT "I", "HEX$(I)", "BIN$(I)" - 210 FOR I = -3 TO 3 - 220 PRINT I, HEX$(I), BIN$(I) - 230 NEXT I - 300 PRINT "I", "HEX$(I)", "BIN$(I,I)" - 310 FOR I = 0 TO 3 - 320 PRINT I, HEX$(I), BIN$(I,I) - 330 NEXT I - 400 PRINT "I", "BIN$(1,I)" - 410 FOR I = 0 TO 35 - 420 PRINT I, BIN$(1,I) - 430 NEXT I - 500 PRINT "I", "BIN$(-1,I)" - 510 FOR I = 0 TO 35 - 520 PRINT I, BIN$(-1,I) - 530 NEXT I - 999 END - diff --git a/bwbtest/H14/COMMAND4.BAS b/bwbtest/H14/COMMAND4.BAS deleted file mode 100644 index d8c09a6..0000000 --- a/bwbtest/H14/COMMAND4.BAS +++ /dev/null @@ -1,6 +0,0 @@ -print "["; command$; "]" -for i = 0 to 9 - print "["; command$( i ); "]" -next i -end - diff --git a/bwbtest/H14/EDIT4.BAS b/bwbtest/H14/EDIT4.BAS deleted file mode 100644 index 146ad8e..0000000 --- a/bwbtest/H14/EDIT4.BAS +++ /dev/null @@ -1,83 +0,0 @@ - 100 REM PURPOSE: VERIFY 'EDIT$' FUNCTION - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-04-06 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 150 REM - 160 REM DATA FORMAT IS: A$, X, E$ - 170 REM - 200 REM -------------------- - 210 READ N, A$, X, E$ - 215 IF N < 0 THEN 999 - 217 PRINT "TEST"; N; - 220 LET S$ = EDIT$( A$, X ) - 230 IF S$ <> E$ THEN 300 - 235 PRINT "OK" - 240 GOTO 200 - 300 REM ------------------------- - 310 PRINT "FAILED {"; S$; "}" - 320 GOTO 999 - 400 REM ------------------- - 410 DATA 1, "ABC", 1, "ABC" - 420 DATA 2, "ABC", 2, "ABC" - 430 DATA 3, "ABC", 4, "ABC" - 440 DATA 4, "ABC", 8, "ABC" - 450 DATA 5, "ABC", 16, "ABC" - 460 DATA 6, "ABC", 32, "ABC" - 470 DATA 7, "ABC", 64, "ABC" - 480 DATA 8, "ABC", 128, "ABC" - 490 DATA 9, "ABC", 256, "ABC" - 500 REM ------------------- - 510 DATA 11, " ABC", 1, " ABC" - 520 DATA 12, " ABC", 2, "ABC" - 530 DATA 13, " ABC", 4, " ABC" - 540 DATA 14, " ABC", 8, "ABC" - 550 DATA 15, " ABC", 16, " ABC" - 560 DATA 16, " ABC", 32, " ABC" - 570 DATA 17, " ABC", 64, " ABC" - 580 DATA 18, " ABC", 128, " ABC" - 590 DATA 19, " ABC", 256, " ABC" - 600 REM ------------------- - 610 DATA 21, " ABC ", 1, " ABC " - 620 DATA 22, " ABC ", 2, "ABC" - 630 DATA 23, " ABC ", 4, " ABC " - 640 DATA 24, " ABC ", 8, "ABC " - 650 DATA 25, " ABC ", 16, " ABC " - 660 DATA 26, " ABC ", 32, " ABC " - 670 DATA 27, " ABC ", 64, " ABC " - 680 DATA 28, " ABC ", 128, " ABC" - 690 DATA 29, " ABC ", 256, " ABC " - 700 REM ------------------- - 710 DATA 31, " ' [ ABC ]' [] '[]' ", 1, " ' [ ABC ]' [] '[]' " - 720 DATA 32, " ' [ ABC ]' [] '[]' ", 2 - 730 DATA 33, " ' [ ABC ]' [] '[]' ", 4, " ABC " - 740 DATA 34, " ' [ ABC ]' [] '[]' ", 8, "ABC " - 750 DATA 35, " ' [ ABC ]' [] '[]' ", 16, " ABC " - 760 DATA 36, " ' [ ABC ]' [] '[]' ", 32, " ABC " - 770 DATA 37, " ' [ ABC ]' [] '[]' ", 64, " ABC " - 780 DATA 38, " ' [ ABC ]' [] '[]' ", 128, " ABC" - 790 DATA 39, " ' [ ABC ]' [] '[]' ", 256, " ABC " - - - - - - - - - - - - - - - - - - - - - - 899 DATA -1, "", 0, "" - 999 END - diff --git a/bwbtest/H14/ELSEIF.BAS b/bwbtest/H14/ELSEIF.BAS deleted file mode 100644 index cfe960e..0000000 --- a/bwbtest/H14/ELSEIF.BAS +++ /dev/null @@ -1,38 +0,0 @@ -100 REM PURPOSE: VERIFY 'ELSEIF' ALLOWS TRAILING 'THEN' -110 REM AUTHOR: HOWARD WULF, AF5NE -120 REM DATE: 2017-03-31 -130 REM NOTE: OPTION VERSION "HAARDT" -140 REM -150 ON ERROR GOTO 800 -160 REM -200 IF FALSE THEN -210 PRINT "ERROR: IF FALSE THEN" -220 ELSEIF FALSE -230 PRINT "ERROR: ELSEIF FALSE" -240 ELSEIF FALSE THEN -250 PRINT "ERROR: ELSEIF FALSE THEN" -260 ELSEIF TRUE THEN -270 PRINT "CORRECT: ELSEIF TRUE THEN" -280 ELSE -290 PRINT "ERROR: ELSE" -300 END IF -310 REM -400 IF FALSE THEN -410 PRINT "ERROR: IF FALSE THEN" -420 ELSEIF FALSE -430 PRINT "ERROR: ELSEIF FALSE" -440 ELSEIF FALSE THEN -450 PRINT "ERROR: ELSEIF FALSE THEN" -460 ELSEIF TRUE -470 PRINT "CORRECT: ELSEIF TRUE" -480 ELSE -490 PRINT "ERROR: ELSE" -500 END IF -510 REM -600 GOTO 999 -800 REM -810 PRINT "ERL=";ERL, "ERR=";ERR, "ERROR$=";ERROR$ -820 REM -999 END - - diff --git a/bwbtest/H14/H14.PRO b/bwbtest/H14/H14.PRO deleted file mode 100644 index c3e79b8..0000000 --- a/bwbtest/H14/H14.PRO +++ /dev/null @@ -1,2 +0,0 @@ -option version "haardt" - diff --git a/bwbtest/H14/HEX4.BAS b/bwbtest/H14/HEX4.BAS deleted file mode 100644 index 1e21bb3..0000000 --- a/bwbtest/H14/HEX4.BAS +++ /dev/null @@ -1,15 +0,0 @@ - 100 REM PURPOSE: VERIFY 'HEX$(X,Y)' - 110 REM AUTHOR: HOWARD WULF, AF5N3 - 120 REM DATE: 2017-04-04 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 150 REM - 200 PRINT "I", "HEX$(-1)", "HEX$(-1,I)" - 210 FOR I = 0 TO 35 - 220 PRINT I, HEX$(-1), HEX$(-1,I) - 230 NEXT I - 300 PRINT "I", "HEX$(1)", "HEX$(1,I)" - 310 FOR I = 0 TO 35 - 320 PRINT I, HEX$(1), HEX$(1,I) - 330 NEXT I - 999 END diff --git a/bwbtest/H14/LOCAL.BAS b/bwbtest/H14/LOCAL.BAS deleted file mode 100644 index e4b3004..0000000 --- a/bwbtest/H14/LOCAL.BAS +++ /dev/null @@ -1,26 +0,0 @@ - 100 REM PURPOSE: VERIFY 'LOCAL' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-31 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 150 SUB MYSUB() - 160 LOCAL A$(100) - 170 LET A$(100) = "OK" - 180 PRINT A$(100) - 190 END SUB - 200 CALL MYSUB() - 300 REM - 310 ON ERROR GOTO 800 - 320 REM the following line should error (subscript out of range) because the variable was LOCAL - 330 PRINT A$(100) - 340 GOTO 999 - 800 REM - 810 PRINT "ERL="; ERL, "ERR="; ERR - 820 IF ERL = 330 AND ERR = 9 GOTO 900 - 830 REM wrong error - 840 PRINT "WRONG ERROR OCCURRED" - 850 RESUME NEXT - 900 REM correct error - 910 PRINT "CORRECT ERROR OCCURRED" - 920 RESUME NEXT - 999 END diff --git a/bwbtest/H14/OCT4.BAS b/bwbtest/H14/OCT4.BAS deleted file mode 100644 index d149fa8..0000000 --- a/bwbtest/H14/OCT4.BAS +++ /dev/null @@ -1,14 +0,0 @@ - 100 REM PURPOSE: VERIFY 'OCT$(X,Y)' - 110 REM AUTHOR: HOWARD WULF, AF5N3 - 120 REM DATE: 2017-04-04 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 150 REM - 200 FOR I = 0 TO 31 - 210 PRINT I, OCT$(-1), OCT$(-1,I) - 220 NEXT I - 300 FOR I = 0 TO 31 - 310 PRINT I, OCT$(1), OCT$(1,I) - 320 NEXT I - 999 END - diff --git a/bwbtest/H14/PUT_1.BAS b/bwbtest/H14/PUT_1.BAS deleted file mode 100644 index cbc2536..0000000 --- a/bwbtest/H14/PUT_1.BAS +++ /dev/null @@ -1,27 +0,0 @@ - 100 REM PURPOSE: VERIFY 'GET' AND 'PUT' COMMANDS - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-04-04 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 150 REM - 160 KILL "PUT.DAT" - 170 REM - 180 REM - 190 REM - 200 OPEN "PUT.DAT" FOR BINARY AS # 7 - 210 LET A$ = "12345" - 220 LET B = 234.567 - 230 PUT # 7, , A$, B - 240 CLOSE # 7 - 250 REM - 300 LET A$ = SPACE$(5) - 310 LET B = 0 - 320 REM - 400 OPEN "PUT.DAT" FOR BINARY AS #2 - 410 GET # 2, , A$ - 415 GET # 2, , B - 420 PRINT A$, B - 430 CLOSE # 2 - 440 REM - 999 END - diff --git a/bwbtest/H14/PUT_2.BAS b/bwbtest/H14/PUT_2.BAS deleted file mode 100644 index 60882cd..0000000 --- a/bwbtest/H14/PUT_2.BAS +++ /dev/null @@ -1,26 +0,0 @@ - 100 REM PURPOSE: VERIFY 'GET' AND 'PUT' COMMANDS - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-04-04 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 150 REM - 160 KILL "PUT.DAT" - 170 REM - 180 REM - 190 REM - 200 OPEN "PUT.DAT" FOR BINARY AS # 7 - 210 LET A$ = "12345" - 220 LET B = 234.567 - 230 PUT # 7, , A$, B - 240 CLOSE # 7 - 250 REM - 300 LET A$ = SPACE$(5) - 310 LET B = 0 - 320 REM - 400 OPEN "PUT.DAT" FOR BINARY AS #2 - 410 GET # 2, , A$, B - 420 PRINT A$, B - 430 CLOSE # 2 - 440 REM - 999 END - diff --git a/bwbtest/H14/PUT_3.BAS b/bwbtest/H14/PUT_3.BAS deleted file mode 100644 index c5c4867..0000000 --- a/bwbtest/H14/PUT_3.BAS +++ /dev/null @@ -1,27 +0,0 @@ - 100 REM PURPOSE: VERIFY 'GET' AND 'PUT' COMMANDS - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-04-04 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 150 REM - 160 KILL "PUT.DAT" - 170 REM - 180 REM - 190 REM - 200 OPEN "PUT.DAT" FOR BINARY AS # 7 - 210 LET A$ = "12345" - 220 LET B$ = "234.567" - 230 PUT # 7, , A$, B$ - 240 CLOSE # 7 - 250 REM - 300 LET A$ = SPACE$(5) - 310 LET B$ = SPACE$(7) - 320 REM - 400 OPEN "PUT.DAT" FOR BINARY AS #2 - 410 GET # 2, , A$ - 415 GET # 2, , B$ - 420 PRINT A$, B$ - 430 CLOSE # 2 - 440 REM - 999 END - diff --git a/bwbtest/H14/PUT_4.BAS b/bwbtest/H14/PUT_4.BAS deleted file mode 100644 index 3d7b426..0000000 --- a/bwbtest/H14/PUT_4.BAS +++ /dev/null @@ -1,26 +0,0 @@ - 100 REM PURPOSE: VERIFY 'GET' AND 'PUT' COMMANDS - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-04-04 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 150 REM - 160 KILL "PUT.DAT" - 170 REM - 180 REM - 190 REM - 200 OPEN "PUT.DAT" FOR BINARY AS # 7 - 210 LET A$ = "12345" - 220 LET B$ = "234.567" - 230 PUT # 7, , A$, B$ - 240 CLOSE # 7 - 250 REM - 300 LET A$ = SPACE$(5) - 310 LET B$ = SPACE$(7) - 320 REM - 400 OPEN "PUT.DAT" FOR BINARY AS #2 - 410 GET # 2, , A$, B$ - 420 PRINT A$, B$ - 430 CLOSE # 2 - 440 REM - 999 END - diff --git a/bwbtest/H14/PUT_5.BAS b/bwbtest/H14/PUT_5.BAS deleted file mode 100644 index b3a4488..0000000 --- a/bwbtest/H14/PUT_5.BAS +++ /dev/null @@ -1,26 +0,0 @@ - 100 REM PURPOSE: VERIFY 'GET' AND 'PUT' COMMANDS - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-04-04 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 150 REM - 160 KILL "PUT.DAT" - 170 REM - 180 DIM A AS STRING, D AS DOUBLE, S AS SINGLE, C AS CURRENCY, L AS LONG, I AS INTEGER, B AS BYTE - 190 REM - 200 OPEN "PUT.DAT" FOR BINARY AS # 7 - 210 LET A = "12345" : LET D = 234.567 : LET S = 12345.67 : LET C = 2345 : LET L = 345 : LET I = 456 : LET B = 67 - 220 REM - 230 PUT # 7, , A, D, S, C, L, I, B - 240 CLOSE # 7 - 250 REM - 300 LET A = SPACE$(5) : LET D = 0 : LET S = 0 : LET C = 0 : LET L = 0 : LET I = 0 : LET B = 0 - 310 REM - 320 REM - 400 OPEN "PUT.DAT" FOR BINARY AS #2 - 410 GET # 2, , A, D, S, C, L, I, B - 420 PRINT A, D, S, C, L, I, B - 430 CLOSE # 2 - 440 REM - 999 END - diff --git a/bwbtest/H14/REPEAT.BAS b/bwbtest/H14/REPEAT.BAS deleted file mode 100644 index b6c246b..0000000 --- a/bwbtest/H14/REPEAT.BAS +++ /dev/null @@ -1,41 +0,0 @@ - 100 REM PURPOSE: VERIFY 'REPEAT-UNTIL' STRUCTURE - 110 REM AUTHOR; HOWARD WULF, AF5NE - 120 REM DATE: 2017-04-03 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 150 REM - 190 REM ----------------------------------------- - 195 PRINT "TEST #1 - TEN TIMES" - 197 REM verify loop exits when result != 0 - 200 repeat - 210 inc i - 220 print i - 230 until i = 10 - 240 REM ----------------------------------------- - 245 PRINT "TEST #2 - FIVE TIMES" - 247 REM verify EXIT REPEAT does exit the loop - 250 REPEAT - 260 INC J - 270 IF J > 5 THEN - : EXIT REPEAT - : END IF - 280 PRINT J - 290 UNTIL FALSE - 300 REM ----------------------------------------- - 305 PRINT "TEST #3 - ONE TIME" - 307 REM verify loop executes once - 310 REPEAT - 320 INC K - 330 PRINT K - 340 UNTIL TRUE - 350 REM - 360 REM ----------------------------------------- - 370 PRINT "TEST #4 - NO OUTPUT" - 375 REM verify no stmts between REPEAT and UNTIL - 380 REPEAT - : UNTIL TRUE - 390 REM ----------------------------------------- - 400 PRINT "TESTS COMPLETE" - 410 REM - 999 END - diff --git a/bwbtest/H14/STRIP4.BAS b/bwbtest/H14/STRIP4.BAS deleted file mode 100644 index 870df47..0000000 --- a/bwbtest/H14/STRIP4.BAS +++ /dev/null @@ -1,15 +0,0 @@ - 100 REM PURPOSE: VERIFY 'STRIP$' FUNCTION - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-30 - 130 REM NOTE: OPTION VERSION "HAARDT" - 140 REM - 200 PRINT " I", " A", " B" - 210 FOR I = 0 TO 255 - 220 LET A$ = CHR$( I ) - 230 LET B$ = STRIP$( A$ ) - 240 LET A = ASC( A$ ) - 250 LET B = ASC( B$ ) - 260 PRINT I, A, B - 270 NEXT I - 999 END - diff --git a/bwbtest/H14/TAB_1.BAS b/bwbtest/H14/TAB_1.BAS deleted file mode 100644 index 778709b..0000000 --- a/bwbtest/H14/TAB_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -200 KILL "TAB.DAT" -210 OPEN "TAB.DAT" FOR OUTPUT AS #2 -220 PRINT #2, "ZONE1", "ZONE2", "ZONE3" -230 CLOSE #2 -240 REM -300 OPEN "TAB.DAT" FOR INPUT AS #1 -310 LINE INPUT #1, A$ -320 PRINT A$ -330 CLOSE #1 -340 REM -999 END diff --git a/bwbtest/H14/ZONE_1.BAS b/bwbtest/H14/ZONE_1.BAS deleted file mode 100644 index bb7f340..0000000 --- a/bwbtest/H14/ZONE_1.BAS +++ /dev/null @@ -1,23 +0,0 @@ -100 REM PURPOSE: VERIFY THE 'ZONE' COMMAND -110 REM AUTHOR: HOWARD WULF, AF5NE -120 REM DATE: 2017-04-05 -130 REM NOTE: OPTION VERSION "HAARDT' -140 REM -150 REM -200 PRINT "DEFULT ZONE' -210 REM -220 PRINT 1,2,3 -300 PRINT "ZONE 5" -310 ZONE 5 -320 PRINT 1,2,3 -400 PRINT "ZONE 999,10" -410 ZONE 999,10 -420 PRINT 1,2,3 -500 PRINT "ZONE 0" -510 ZONE 0 -520 PRINT 1,2,3 -600 PRINT "ZONE 999,0" -610 ZONE 999,0 -620 PRINT 1,2,3 -999 END - diff --git a/bwbtest/H80/00test.sh b/bwbtest/H80/00test.sh deleted file mode 100644 index f6b82c3..0000000 --- a/bwbtest/H80/00test.sh +++ /dev/null @@ -1,46 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile H80.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- - -testcase BUILD_1 -testcase CIN_1 -testcase CNTRL_1 -testcase CNTRL_3 -testcase OPEN_1 - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/H80/01test.sh b/bwbtest/H80/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/H80/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/H80/99test.sh b/bwbtest/H80/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/H80/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/H80/BUILD_1.BAS b/bwbtest/H80/BUILD_1.BAS deleted file mode 100644 index 7fcef8d..0000000 --- a/bwbtest/H80/BUILD_1.BAS +++ /dev/null @@ -1 +0,0 @@ -99 END diff --git a/bwbtest/H80/BUILD_1.INP b/bwbtest/H80/BUILD_1.INP deleted file mode 100644 index 50bab37..0000000 --- a/bwbtest/H80/BUILD_1.INP +++ /dev/null @@ -1,8 +0,0 @@ -LIST -BUILD 10, 5 -REM 'BUILD' TEST PROGRAM -PRINT "THE NEXT LINE NUMBER SHOULD INCREASE BY 5" -PRINT "PRESS THE BREAK KEY TO STOP THE BUILD FEATURE" -MAN -LIST -RUN diff --git a/bwbtest/H80/BUILD_1.run b/bwbtest/H80/BUILD_1.run deleted file mode 100644 index 419592b..0000000 --- a/bwbtest/H80/BUILD_1.run +++ /dev/null @@ -1,17 +0,0 @@ -bwBASIC: LIST - 99 END - -bwBASIC: BUILD 10, 5 -10 REM 'BUILD' TEST PROGRAM -15 PRINT "THE NEXT LINE NUMBER SHOULD INCREASE BY 5" -20 PRINT "PRESS THE BREAK KEY TO STOP THE BUILD FEATURE" -25 MAN -bwBASIC: LIST - 10 REM 'BUILD' TEST PROGRAM - 15 PRINT "THE NEXT LINE NUMBER SHOULD INCREASE BY 5" - 20 PRINT "PRESS THE BREAK KEY TO STOP THE BUILD FEATURE" - 99 END - -bwBASIC: RUN -THE NEXT LINE NUMBER SHOULD INCREASE BY 5 -PRESS THE BREAK KEY TO STOP THE BUILD FEATURE diff --git a/bwbtest/H80/CIN_1.BAS b/bwbtest/H80/CIN_1.BAS deleted file mode 100644 index 90562ab..0000000 --- a/bwbtest/H80/CIN_1.BAS +++ /dev/null @@ -1,15 +0,0 @@ - 100 rem Purpose: Verify CIN() - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-09-15 - 130 rem Note: OPTION VERSION HEATH - 140 rem - 200 print "Reading ["; - 210 open "CIN_1.DAT" for read as file #7 - 220 let N = CIN( 7 ) - 230 if N < 0 then 300 - 240 print chr$( N ); - 250 goto 220 - 300 print "]" - 310 close #7 - 999 end - diff --git a/bwbtest/H80/CIN_1.DAT b/bwbtest/H80/CIN_1.DAT deleted file mode 100644 index 038d718..0000000 --- a/bwbtest/H80/CIN_1.DAT +++ /dev/null @@ -1 +0,0 @@ -testing diff --git a/bwbtest/H80/CIN_1.run b/bwbtest/H80/CIN_1.run deleted file mode 100644 index 3fc3ff7..0000000 --- a/bwbtest/H80/CIN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -Reading [testing -] diff --git a/bwbtest/H80/CNTRL_1.BAS b/bwbtest/H80/CNTRL_1.BAS deleted file mode 100644 index 3a4c1e3..0000000 --- a/bwbtest/H80/CNTRL_1.BAS +++ /dev/null @@ -1,38 +0,0 @@ - 100 REM PURPOSE: VERIFY 'CNTRL 1, Y' FUNCTION - 110 REM AUTHOR: HOWAARD WULF, AF5NE - 120 REM DATE: 2017-02-12 - 130 REM NOTE: OPTION VERSION RBASIC - 140 REM - 150 REM - 160 LET N = 15 - 170 ON ERROR GOTO 800 - 180 REM - 190 REM - 200 LET X = PI - 210 LET A$ = "PI" - 220 GOSUB 600 - 230 REM - 240 LET X = PI * 1000 - 250 LET A$ = "PI * 1000" - 260 GOSUB 600 - 270 REM - 280 LET X = PI / 1000 - 290 LET A$ = "PI / 1000" - 300 GOSUB 600 - 310 REM - 320 GOTO 999 - 330 REM - 600 PRINT "COMMAND";TAB(20); A$ - 610 FOR I = 0 TO N - 620 CNTRL 1, I - 630 PRINT "CNTRL 1,"; I; TAB(20); X - 640 NEXT I - 650 REM - 660 REM INPUT "PRESS ENTER"; A$ - 670 RETURN - 800 REM - 810 PRINT "ERL=";ERL, "ERR=";ERR, "ERROR$=";ERROR$ - 820 REM RESUME NEXT - 830 REM - 999 END - diff --git a/bwbtest/H80/CNTRL_1.run b/bwbtest/H80/CNTRL_1.run deleted file mode 100644 index 358f485..0000000 --- a/bwbtest/H80/CNTRL_1.run +++ /dev/null @@ -1,51 +0,0 @@ -COMMAND PI -CNTRL 1, 0 3.14159 -CNTRL 1, 1 3. -CNTRL 1, 2 3.1 -CNTRL 1, 3 3.14 -CNTRL 1, 4 3.142 -CNTRL 1, 5 3.1416 -CNTRL 1, 6 3.14159 -CNTRL 1, 7 3.141593 -CNTRL 1, 8 3.1415927 -CNTRL 1, 9 3.14159265 -CNTRL 1, 10 3.141592654 -CNTRL 1, 11 3.1415926536 -CNTRL 1, 12 3.14159265359 -CNTRL 1, 13 3.14159265359 -CNTRL 1, 14 3.1415926535898 -CNTRL 1, 15 3.14159265358979 -COMMAND PI * 1000 -CNTRL 1, 0 3141.59 -CNTRL 1, 1 3.E+3 -CNTRL 1, 2 3.1E+3 -CNTRL 1, 3 3.14E+3 -CNTRL 1, 4 3142. -CNTRL 1, 5 3141.6 -CNTRL 1, 6 3141.59 -CNTRL 1, 7 3141.593 -CNTRL 1, 8 3141.5927 -CNTRL 1, 9 3141.59265 -CNTRL 1, 10 3141.592654 -CNTRL 1, 11 3141.5926536 -CNTRL 1, 12 3141.59265359 -CNTRL 1, 13 3141.59265359 -CNTRL 1, 14 3141.5926535898 -CNTRL 1, 15 3141.59265358979 -COMMAND PI / 1000 -CNTRL 1, 0 3.14159E-3 -CNTRL 1, 1 3.E-3 -CNTRL 1, 2 3.1E-3 -CNTRL 1, 3 3.14E-3 -CNTRL 1, 4 3.142E-3 -CNTRL 1, 5 3.1416E-3 -CNTRL 1, 6 3.14159E-3 -CNTRL 1, 7 3.141593E-3 -CNTRL 1, 8 3.1415927E-3 -CNTRL 1, 9 3.14159265E-3 -CNTRL 1, 10 3.141592654E-3 -CNTRL 1, 11 3.1415926536E-3 -CNTRL 1, 12 3.14159265359E-3 -CNTRL 1, 13 3.14159265359E-3 -CNTRL 1, 14 3.1415926535898E-3 -CNTRL 1, 15 3.14159265358979E-3 diff --git a/bwbtest/H80/CNTRL_3.BAS b/bwbtest/H80/CNTRL_3.BAS deleted file mode 100644 index bc8ed70..0000000 --- a/bwbtest/H80/CNTRL_3.BAS +++ /dev/null @@ -1,26 +0,0 @@ - 100 REM PURPOSE: VERIFY 'CNTRL 3, VALUE' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-02-15 - 130 REM NOTE: OPTION VERSION HEATH - 140 REM - 150 REM THIS SETS THE ZONE WIDTH - 160 REM - 170 REM - 180 REM - 190 REM - 200 PRINT "1234567890123456789012345678901234567890123456789" - 220 PRINT "^","^","^","^" - 230 REM - 300 CNTRL 3, 4 - 310 PRINT "1234567890123456789012345678901234567890123456789" - 320 PRINT "^","^","^","^" - 330 REM - 400 CNTRL 3, 9 - 410 PRINT "1234567890123456789012345678901234567890123456789" - 420 PRINT "^","^","^","^" - 430 REM - 500 CNTRL 3, 0 - 510 PRINT "1234567890123456789012345678901234567890123456789" - 520 PRINT "^","^","^","^" - 530 REM - 999 END diff --git a/bwbtest/H80/CNTRL_3.run b/bwbtest/H80/CNTRL_3.run deleted file mode 100644 index ebf3b10..0000000 --- a/bwbtest/H80/CNTRL_3.run +++ /dev/null @@ -1,8 +0,0 @@ -1234567890123456789012345678901234567890123456789 -^ ^ ^ ^ -1234567890123456789012345678901234567890123456789 -^ ^ ^ ^ -1234567890123456789012345678901234567890123456789 -^ ^ ^ ^ -1234567890123456789012345678901234567890123456789 -^ ^ ^ ^ diff --git a/bwbtest/H80/H80.PRO b/bwbtest/H80/H80.PRO deleted file mode 100644 index ec1b5db..0000000 --- a/bwbtest/H80/H80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "HEATH" -LET PI = 3.14159265358979323846 diff --git a/bwbtest/H80/OPEN_1.BAS b/bwbtest/H80/OPEN_1.BAS deleted file mode 100644 index b86937d..0000000 --- a/bwbtest/H80/OPEN_1.BAS +++ /dev/null @@ -1,20 +0,0 @@ - 100 rem Purpose: Verify OPEN command - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-09-15 - 130 rem Note: OPTION VERSION HEATH - 140 rem - 200 let f = 7 - 210 let f$ = "OPEN_1.DAT" - 220 unsave f$ - 230 open f$ for write as file #f - 240 print #f, "this is a test" - 250 close #f - 260 rem - 300 let f = 1 - 310 open f$ for read as file #f - 320 line input #f, L$ - 330 print L$ - 340 close #f - 350 unsave f$ - 999 end - diff --git a/bwbtest/H80/OPEN_1.run b/bwbtest/H80/OPEN_1.run deleted file mode 100644 index b4fdf3b..0000000 --- a/bwbtest/H80/OPEN_1.run +++ /dev/null @@ -1 +0,0 @@ -this is a test diff --git a/bwbtest/H80/PAD80.BAS b/bwbtest/H80/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/H80/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/H80/PAD80.INP b/bwbtest/H80/PAD80.INP deleted file mode 100644 index 0d38b05..0000000 --- a/bwbtest/H80/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA OPEN_1.OUT, OPEN_1.80 diff --git a/bwbtest/H80/PAD80.PRO b/bwbtest/H80/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/H80/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/HB1/00readme.txt b/bwbtest/HB1/00readme.txt deleted file mode 100644 index 44e6693..0000000 --- a/bwbtest/HB1/00readme.txt +++ /dev/null @@ -1,13 +0,0 @@ - -This directory contains most of the tests from the following reference: ------------------------------------------------------------------- -The BASIC Handbook: Encyclopedia of the BASIC Computer Language - by David A. Lien - 1st Edition - (c) 1978, Compusoft Publishing - ISBN 0-932760-00-7 - 364 pages ------------------------------------------------------------------- -Some programs were adapted for Bywater BASIC by Howard Wulf, AF5NE. ------------------------------------------------------------------- -EOF diff --git a/bwbtest/HB1/00test.sh b/bwbtest/HB1/00test.sh deleted file mode 100644 index e91c4fb..0000000 --- a/bwbtest/HB1/00test.sh +++ /dev/null @@ -1,351 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/HB1 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile HB1.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- -testcase ABS_1 -testcase ABS_2 -testcase ABS_3 -testcase AND_1 -testcase AND_2 -testcase AND_3 -testcase AND_4 -testcase ASC_1 -testcase ASC_2 -testcase ASC_3 -testcase ASN_1 -testcase ASN_2 -testcase ATAN_1 -testcase ATAN_2 -testcase ATN_1 -testcase AT_1 -testcase AT_2 -testcase AT_3 -testcase AT_4 -testcase AT_5 -testcase AUTO_1 -testcase BREAK_1 -testcase CDBL_1 -testcase CDBL_2 -testcase CHAIN_1 -testcase CHAIN_2 -testcase CHAR_1 -testcase CHAR_2 -testcase CHAR_3 -testcase CHAR_4 -testcase CHR_1 -testcase CHR_2 -testcase CINT_1 -testcase CINT_2 -testcase CLEAR_1 -testcase CLEAR_2 -testcase CLEAR_3 -testcase CLG_1 -testcase CLG_2 -# CLK should change -testcase CLK_1 -testcase CLK_2 -testcase CLK_3 -testcase CLK_4 -testcase CLOAD_1 -testcase CLOAD_2 -testcase CLOG_1 -testcase CLOG_2 -testcase CLR_1 -testcase CLS_1 -testcase CONT_1 -testcase CONT_2 -testcase COS_1 -rm CSAVE_1.DAT -testcase CSAVE_1 -testcase CSNG_1 -testcase CSNG_2 -testcase D_1 -testcase DATA_1 -testcase DATA_2 -testcase DATA_3 -testcase DEFDBL_1 -# D is not supported -testcase DEFDBL_2 -# D is not supported -testcase DEFDBL_3 -testcase DEFINT_1 -testcase DEFINT_2 -testcase DEFINT_3 -testcase DEFSNG_1 -testcase DEFSNG_2 -testcase DEFSNG_3 -testcase DEFSTR_1 -testcase DEFSTR_2 -testcase DEFSTR_3 -testcase DEF_1 -testcase DEF_2 -testcase DEF_3 -testcase DEG_1 -testcase DEG_2 -testcase DEG_3 -testcase DELETE_1 -testcase DIM_1 -testcase DIM_2 -testcase DIM_3 -testcase DIM_4 -testcase DIM_5 -testcase DIM_6 -testcase DIM_7 -testcase DSP_1 -testcase E_1 -# EDIT must be manually tested -# testcase EDIT_1 -testcase ELSE_1 -testcase ELSE_2 -testcase END_1 -testcase EQ_1 -testcase ERL_1 -testcase ERROR_1 -testcase ERROR_2 -testcase ERR_1 -testcase EXAM_1 -testcase EXP_1 -testcase FETCH_1 -testcase FILL_1 -testcase FIX_1 -testcase FNEND_1 -testcase FN_1 -testcase FOR_1 -testcase FREE_1 -testcase FREE_2 -testcase FRE_1 -testcase FRE_2 -testcase GE_1 -testcase GOSUB_1 -testcase GOTO_1 -testcase GOTO_OF_1 -testcase GO_1 -testcase GO_2 -testcase GO_TO_OF_1 -testcase GT_1 -testcase IF_1 -# IF-GOSUB not supported -# testcase IF_GOSUB_1 -testcase IF_GOTO_1 -# IF-LET not supported -# testcase IF_LET_1 -testcase IF_THEN_1 -testcase IF_THEN_2 -testcase IF_THEN_3 -# implied THEN not supported -# testcase IF_THEN_4 -# INKEY$ must be manually tested -# testcase INKEY_1 -testcase INPUT_1 -testcase INP_1 -testcase INP_2 -testcase INT_1 -testcase LEFT_1 -testcase LEFT_2 -testcase LEFT_3 -testcase LEN_1 -testcase LET_1 -testcase LET_2 -testcase LE_1 -testcase LGT_1 -testcase LGT_2 -testcase LIN_1 -testcase LIST_1 -testcase LIST_2 -testcase LN_1 -testcase LN_2 -testcase LOAD_1 -testcase LOG10_1 -testcase LOG10_2 -testcase LOGE_1 -testcase LOGE_2 -testcase LOG_1 -testcase LT_1 -testcase MAN_1 -# MAT INPUT (EXPLICIT DIM) -testcase MAT_INPUT_1 -# MAT INPUT (IMPLICIT DIM) -testcase MAT_INPUT_2 -# MAT INPUT (REQUEST < DIM) -testcase MAT_INPUT_3 -# MAT INPUT (REQUEST = DIM) -testcase MAT_INPUT_4 -# MAT INPUT (REQUEST > DIM) -testcase MAT_INPUT_5 -# MAT PRINT (EXPLICIT DIM) -testcase MAT_PRINT_1 -testcase MAT_PRINT_2 -testcase MAT_PRINT_3 -testcase MAT_PRINT_4 -# MAT PRINT (REQUEST < DIM) -testcase MAT_PRINT_5 -# MAT PRINT (REQUEST = DIM) -testcase MAT_PRINT_6 -# MAT PRINT (REQUEST > DIM) -testcase MAT_PRINT_7 -# MAT PRINT (IMPLICIT DIM) -testcase MAT_PRINT_8 -# MAT READ (EXPLICIT DIM) -testcase MAT_READ_1 -# MAT READ (IMPLICIT DIM) -testcase MAT_READ_2 -# MAT READ (REQUEST < DIM) -testcase MAT_READ_3 -# MAT READ (REQUEST = DIM) -testcase MAT_READ_4 -# MAT READ (REQUEST > DIM) -testcase MAT_READ_5 -testcase MEM_1 -testcase MEM_2 -testcase MID_1 -testcase MID_2 -testcase MOD_1 -testcase MOD_2 -testcase MOD_3 -testcase NEW_1 -testcase NEXT_1 -testcase NEXT_2 -testcase NEXT_3 -testcase NE_1 -testcase NOTRACE_1 -testcase NOTRACE_2 -testcase ON_ERROR_GOTO_1 -testcase ON_GOSUB_1 -testcase ON_GOTO_1 -testcase ON_GOTO_2 -testcase OUT_1 -# this test takes a long time -# testcase OUT_2 -testcase PDL_1 -testcase PDL_2 -testcase PEEK_1 -testcase PIN_1 -testcase PIN_2 -testcase PI_1 -testcase PI_2 -# this test takes a long time -# testcase POKE_1 -testcase PRINT_1 -testcase PRINT_2 -testcase PRINT_3 -testcase PRINT_AT_1 -testcase PRINT_AT_2 -testcase PRINT_USING_1 -testcase PRINT_USING_2 -testcase PRINT_USING_3 -testcase PRINT_USING_4 -testcase PRINT_USING_5 -testcase PRINT_USING_6 -testcase PRINT_USING_7 -testcase PRINT_USING_8 -testcase PRINT_USING_9 -testcase PRINT_USING_A -testcase PRINT_USING_B -testcase PRINT_USING_C -testcase PRINT_USING_D -testcase RANDOMIZE_1 -testcase READ_1 -testcase READ_2 -testcase READ_3 -testcase READ_4 -testcase REMARK_1 -testcase REM_1 -# RENUM must be manually tested -# testcase RENUM_1 -testcase RESTORE_1 -testcase RESTORE_2 -testcase RESUME_1 -testcase RESUME_2 -testcase RETURN_1 -testcase RIGHT_1 -testcase RIGHT_2 -testcase RIGHT_3 -testcase RND_1 -testcase RND_2 -testcase RUN_1 -testcase RUN_2 -testcase RUN_3 -rm SAVE_1.DAT -testcase SAVE_1 -testcase SIN_1 -testcase SLEEP_1 -testcase SLEEP_2 -testcase SPACE_1 -testcase SPACE_2 -testcase SPACE_3 -testcase SPA_1 -testcase SPC_1 -testcase SQRT_1 -testcase SQRT_2 -testcase SQR_1 -testcase STEP_1 -testcase STEP_2 -testcase STEP_3 -testcase STEP_4 -testcase STOP_1 -testcase STRING_1 -testcase STRING_2 -testcase STR_1 -testcase STUFF_1 -testcase SYSTEM_1 -testcase TAB_1 -testcase TAN_1 -testcase TEXT_1 -testcase THEN_1 -testcase TIME_1 -testcase TIME_2 -testcase TIM_1 -testcase TIM_2 -testcase TIM_3 -testcase TI_1 -testcase TI_2 -testcase TI_3 -testcase TI_4 -testcase TRACE_1 -testcase TRACE_2 -testcase TRACE_OFF_1 -testcase TRACE_ON_1 -testcase TROFF_1 -testcase TRON_1 -testcase TRON_2 -testcase VAL_1 -testcase VAL_2 -testcase VTAB_1 -testcase WAIT_1 -testcase WAIT_2 -testcase WAIT_3 -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB1/01test.sh b/bwbtest/HB1/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/HB1/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB1/02ok.sh b/bwbtest/HB1/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/HB1/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/HB1/99test.sh b/bwbtest/HB1/99test.sh deleted file mode 100644 index d489f58..0000000 --- a/bwbtest/HB1/99test.sh +++ /dev/null @@ -1,18 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif -rm A - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB1/ABS_1.BAS b/bwbtest/HB1/ABS_1.BAS deleted file mode 100644 index 2d54730..0000000 --- a/bwbtest/HB1/ABS_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'ABS' TEST PROGRAM -20 X = 35 -30 PRINT "ABS PASSED THE TEST IF"; -40 PRINT ABS(-435.28); -50 PRINT ABS(-.03245); -60 PRINT ABS(-X) -70 PRINT "ARE ALL PRINTED AS POSITIVE VALUES." -99 END diff --git a/bwbtest/HB1/ABS_1.run b/bwbtest/HB1/ABS_1.run deleted file mode 100644 index be6d072..0000000 --- a/bwbtest/HB1/ABS_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ABS PASSED THE TEST IF 435.28 .03245 35 -ARE ALL PRINTED AS POSITIVE VALUES. diff --git a/bwbtest/HB1/ABS_2.BAS b/bwbtest/HB1/ABS_2.BAS deleted file mode 100644 index bba7d08..0000000 --- a/bwbtest/HB1/ABS_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'ABS' MATH OPERATION TEST PROGRAM -20 A = 18 -30 B = 58 -40 PRINT "THE ABSOLUTE VALUE OF";(A-B)/2;"IS";ABS((A-B)/2) -99 END diff --git a/bwbtest/HB1/ABS_2.run b/bwbtest/HB1/ABS_2.run deleted file mode 100644 index 6f944a8..0000000 --- a/bwbtest/HB1/ABS_2.run +++ /dev/null @@ -1 +0,0 @@ -THE ABSOLUTE VALUE OF-20 IS 20 diff --git a/bwbtest/HB1/ABS_3.BAS b/bwbtest/HB1/ABS_3.BAS deleted file mode 100644 index 96daa8b..0000000 --- a/bwbtest/HB1/ABS_3.BAS +++ /dev/null @@ -1,14 +0,0 @@ -10 REM 'ABS' SUBROUTINE TEST PROGRAM -20 PRINT "ENTER A NEGATIVE NUMBER"; -30 INPUT X -35 IF X = 0 THEN 30999 -40 GOSUB 30000 -50 PRINT "THE ABSOLUTE VALUE OF";X;"IS";Y -60 GOTO 20 -30000 REM * ABS(X) SUBROUTINE * INPUT X, OUTPUT Y -30010 IF X>=0 THEN 30040 -30020 Y=X*-1 -30030 RETURN -30040 Y=X -30050 RETURN -30999 END diff --git a/bwbtest/HB1/ABS_3.INP b/bwbtest/HB1/ABS_3.INP deleted file mode 100644 index de48944..0000000 --- a/bwbtest/HB1/ABS_3.INP +++ /dev/null @@ -1,3 +0,0 @@ --1 -1 -0 diff --git a/bwbtest/HB1/ABS_3.run b/bwbtest/HB1/ABS_3.run deleted file mode 100644 index 97b84f0..0000000 --- a/bwbtest/HB1/ABS_3.run +++ /dev/null @@ -1,5 +0,0 @@ -ENTER A NEGATIVE NUMBER? -1 -THE ABSOLUTE VALUE OF-1 IS 1 -ENTER A NEGATIVE NUMBER? 1 -THE ABSOLUTE VALUE OF 1 IS 1 -ENTER A NEGATIVE NUMBER? 0 diff --git a/bwbtest/HB1/AND_1.BAS b/bwbtest/HB1/AND_1.BAS deleted file mode 100644 index b6cb755..0000000 --- a/bwbtest/HB1/AND_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM LOGICAL 'AND' TEST PROGRAM -20 A = 8 -30 B = 6 -40 IF A=8 AND B=6 THEN 70 -50 PRINT "AND FAILED THE TEST AS A LOGICAL OPERATOR" -60 GOTO 99 -70 PRINT "AND PASSED THE LOGICAL OPERATOR TEST" -99 END diff --git a/bwbtest/HB1/AND_1.run b/bwbtest/HB1/AND_1.run deleted file mode 100644 index 49a6519..0000000 --- a/bwbtest/HB1/AND_1.run +++ /dev/null @@ -1 +0,0 @@ -AND PASSED THE LOGICAL OPERATOR TEST diff --git a/bwbtest/HB1/AND_2.BAS b/bwbtest/HB1/AND_2.BAS deleted file mode 100644 index 8d9420d..0000000 --- a/bwbtest/HB1/AND_2.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM STRING LOGICAL 'AND' TEST PROGRAM -20 A$="A" -30 B$="F" -40 IF A$="A" AND B$>"B" THEN 70 -50 PRINT "'AND' FAILED THE TEST AS A LOGICAL OPERATOR" -60 GOTO 99 -70 PRINT "'AND' PASSED THE STRING LOGICAL OPERATOR TEST" -99 END diff --git a/bwbtest/HB1/AND_2.run b/bwbtest/HB1/AND_2.run deleted file mode 100644 index 86a29ec..0000000 --- a/bwbtest/HB1/AND_2.run +++ /dev/null @@ -1 +0,0 @@ -'AND' PASSED THE STRING LOGICAL OPERATOR TEST diff --git a/bwbtest/HB1/AND_3.BAS b/bwbtest/HB1/AND_3.BAS deleted file mode 100644 index ca94d0d..0000000 --- a/bwbtest/HB1/AND_3.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'AND' LOGICAL TEST PROGRAM -20 PRINT "ENTER A NUMBER FROM 1 TO 10"; -30 INPUT A -40 B = A > 4 AND A < 11 -50 IF B=-1 THEN 80 -60 PRINT A;"IS NOT GREATER THAN 4 AND LESS THAN 11" -70 GOTO 20 -80 PRINT A;"IS GREATER THAN 4 AND LESS THAN 11" -99 END diff --git a/bwbtest/HB1/AND_3.INP b/bwbtest/HB1/AND_3.INP deleted file mode 100644 index ef400a2..0000000 --- a/bwbtest/HB1/AND_3.INP +++ /dev/null @@ -1,4 +0,0 @@ -1 -11 -4 -8 diff --git a/bwbtest/HB1/AND_3.run b/bwbtest/HB1/AND_3.run deleted file mode 100644 index ff3fa69..0000000 --- a/bwbtest/HB1/AND_3.run +++ /dev/null @@ -1,8 +0,0 @@ -ENTER A NUMBER FROM 1 TO 10? 1 - 1 IS NOT GREATER THAN 4 AND LESS THAN 11 -ENTER A NUMBER FROM 1 TO 10? 11 - 11 IS NOT GREATER THAN 4 AND LESS THAN 11 -ENTER A NUMBER FROM 1 TO 10? 4 - 4 IS NOT GREATER THAN 4 AND LESS THAN 11 -ENTER A NUMBER FROM 1 TO 10? 8 - 8 IS GREATER THAN 4 AND LESS THAN 11 diff --git a/bwbtest/HB1/AND_4.BAS b/bwbtest/HB1/AND_4.BAS deleted file mode 100644 index ca49f4d..0000000 --- a/bwbtest/HB1/AND_4.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'AND' BINARY LOGIC TEST PROGRAM -20 PRINT "ENTER A VALUE FOR X"; -30 INPUT X -40 PRINT "ENTER A VALUE FOR Y"; -50 INPUT Y -60 A = X AND Y -70 PRINT "THE LOGICAL 'AND' VALUE OF";X;"AND";Y;"IS";A -75 IF X = 0 AND Y = 0 THEN 99 -80 GOTO 20 -99 END diff --git a/bwbtest/HB1/AND_4.INP b/bwbtest/HB1/AND_4.INP deleted file mode 100644 index 793a916..0000000 --- a/bwbtest/HB1/AND_4.INP +++ /dev/null @@ -1,12 +0,0 @@ -1 -2 -1 -3 -3 -1 -2 -3 -3 -2 -0 -0 diff --git a/bwbtest/HB1/AND_4.run b/bwbtest/HB1/AND_4.run deleted file mode 100644 index 5f3b27b..0000000 --- a/bwbtest/HB1/AND_4.run +++ /dev/null @@ -1,18 +0,0 @@ -ENTER A VALUE FOR X? 1 -ENTER A VALUE FOR Y? 2 -THE LOGICAL 'AND' VALUE OF 1 AND 2 IS 0 -ENTER A VALUE FOR X? 1 -ENTER A VALUE FOR Y? 3 -THE LOGICAL 'AND' VALUE OF 1 AND 3 IS 1 -ENTER A VALUE FOR X? 3 -ENTER A VALUE FOR Y? 1 -THE LOGICAL 'AND' VALUE OF 3 AND 1 IS 1 -ENTER A VALUE FOR X? 2 -ENTER A VALUE FOR Y? 3 -THE LOGICAL 'AND' VALUE OF 2 AND 3 IS 2 -ENTER A VALUE FOR X? 3 -ENTER A VALUE FOR Y? 2 -THE LOGICAL 'AND' VALUE OF 3 AND 2 IS 2 -ENTER A VALUE FOR X? 0 -ENTER A VALUE FOR Y? 0 -THE LOGICAL 'AND' VALUE OF 0 AND 0 IS 0 diff --git a/bwbtest/HB1/ASC_1.BAS b/bwbtest/HB1/ASC_1.BAS deleted file mode 100644 index 4903c3b..0000000 --- a/bwbtest/HB1/ASC_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'ASC(CHARACTER)' TEST PROGRAM -20 PRINT "THE ASCII CODE FOR LETTER A IS"; -30 PRINT ASC("A") -40 IF ASC("A")=65 THEN 70 -50 PRINT "ASC FAILED THE TEST" -60 GOTO 99 -70 PRINT "ASC PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/ASC_1.run b/bwbtest/HB1/ASC_1.run deleted file mode 100644 index 6e1aadc..0000000 --- a/bwbtest/HB1/ASC_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE ASCII CODE FOR LETTER A IS 65 -ASC PASSED THE TEST diff --git a/bwbtest/HB1/ASC_2.BAS b/bwbtest/HB1/ASC_2.BAS deleted file mode 100644 index bb00771..0000000 --- a/bwbtest/HB1/ASC_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'ASC(STRING VARIABLE)' TEST PROGRAM -20 PRINT "TYPE ANY LETTER, NUMBER, OR CHARACTER"; -30 INPUT A$ -40 PRINT "THE ASCII CODE FOR ";A$;" IS";ASC(A$) -99 END diff --git a/bwbtest/HB1/ASC_2.INP b/bwbtest/HB1/ASC_2.INP deleted file mode 100644 index 9ed4614..0000000 --- a/bwbtest/HB1/ASC_2.INP +++ /dev/null @@ -1 +0,0 @@ -ABCD diff --git a/bwbtest/HB1/ASC_2.run b/bwbtest/HB1/ASC_2.run deleted file mode 100644 index 95e5dc2..0000000 --- a/bwbtest/HB1/ASC_2.run +++ /dev/null @@ -1,2 +0,0 @@ -TYPE ANY LETTER, NUMBER, OR CHARACTER? ABCD -THE ASCII CODE FOR ABCD IS 65 diff --git a/bwbtest/HB1/ASC_3.BAS b/bwbtest/HB1/ASC_3.BAS deleted file mode 100644 index 2de580b..0000000 --- a/bwbtest/HB1/ASC_3.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'ASC(A$,X)' TEST PROGRAM -15 REM 1234567890 -20 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" -30 X=10 -40 Y=ASC(A$,X) -50 Z=ASC(MID$(A$,X,1)) -60 PRINT "IF";Y;"EQUALS";Z;"THEN TEST PASSED." -99 END diff --git a/bwbtest/HB1/ASC_3.run b/bwbtest/HB1/ASC_3.run deleted file mode 100644 index 8c51da6..0000000 --- a/bwbtest/HB1/ASC_3.run +++ /dev/null @@ -1 +0,0 @@ -IF 74 EQUALS 74 THEN TEST PASSED. diff --git a/bwbtest/HB1/ASN_1.BAS b/bwbtest/HB1/ASN_1.BAS deleted file mode 100644 index ab1cac1..0000000 --- a/bwbtest/HB1/ASN_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ASN' TEST PROGRAM -20 PRINT "ENTER A RATIO OR SINE VALUE"; -30 INPUT N -40 W=ASN(N) -50 PRINT "THE ANGLE WITH THE Y/H RATIO OF";N;"IS";W;"RADIANS" -99 END diff --git a/bwbtest/HB1/ASN_1.INP b/bwbtest/HB1/ASN_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB1/ASN_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB1/ASN_1.run b/bwbtest/HB1/ASN_1.run deleted file mode 100644 index f2b7541..0000000 --- a/bwbtest/HB1/ASN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR SINE VALUE? 0.5 -THE ANGLE WITH THE Y/H RATIO OF .5 IS .523599 RADIANS diff --git a/bwbtest/HB1/ASN_2.BAS b/bwbtest/HB1/ASN_2.BAS deleted file mode 100644 index 5b3450f..0000000 --- a/bwbtest/HB1/ASN_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'ASN' TEST PROGRAM -15 DEF ASN(X)=ATN(X/SQR(-X*X+1)) -20 PRINT "ENTER A RATIO OR SINE VALUE"; -30 INPUT N -40 W=ASN(N) -50 PRINT "THE ANGLE WITH THE Y/H RATIO OF";N;"IS";W;"RADIANS" -99 END diff --git a/bwbtest/HB1/ASN_2.INP b/bwbtest/HB1/ASN_2.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB1/ASN_2.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB1/ASN_2.run b/bwbtest/HB1/ASN_2.run deleted file mode 100644 index f2b7541..0000000 --- a/bwbtest/HB1/ASN_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR SINE VALUE? 0.5 -THE ANGLE WITH THE Y/H RATIO OF .5 IS .523599 RADIANS diff --git a/bwbtest/HB1/ATAN_1.BAS b/bwbtest/HB1/ATAN_1.BAS deleted file mode 100644 index 99757cd..0000000 --- a/bwbtest/HB1/ATAN_1.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'ATAN' TEST PROGRAM -20 A=ATAN(2) -30 PRINT "THE ANGLE WITH THE Y/X RATIO OF 2 IS";A;"RADIANS" -99 END diff --git a/bwbtest/HB1/ATAN_1.run b/bwbtest/HB1/ATAN_1.run deleted file mode 100644 index ee01e6b..0000000 --- a/bwbtest/HB1/ATAN_1.run +++ /dev/null @@ -1 +0,0 @@ -THE ANGLE WITH THE Y/X RATIO OF 2 IS 1.10715 RADIANS diff --git a/bwbtest/HB1/ATAN_2.BAS b/bwbtest/HB1/ATAN_2.BAS deleted file mode 100644 index e1ff99a..0000000 --- a/bwbtest/HB1/ATAN_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'ATAN' TEST PROGRAM -15 DEF ATAN(X)=ATN(X) -20 A=ATAN(2) -30 PRINT "THE ANGLE WITH THE Y/X RATIO OF 2 IS";A;"RADIANS" -99 END diff --git a/bwbtest/HB1/ATAN_2.run b/bwbtest/HB1/ATAN_2.run deleted file mode 100644 index ee01e6b..0000000 --- a/bwbtest/HB1/ATAN_2.run +++ /dev/null @@ -1 +0,0 @@ -THE ANGLE WITH THE Y/X RATIO OF 2 IS 1.10715 RADIANS diff --git a/bwbtest/HB1/ATN_1.BAS b/bwbtest/HB1/ATN_1.BAS deleted file mode 100644 index 2b533bf..0000000 --- a/bwbtest/HB1/ATN_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ATN' TEST PROGRAM -20 PRINT "ENTER A RATIO OR TANGENT VALUE"; -30 INPUT N -40 A=ATN(N) -50 PRINT "THE ANGLE WITH THE X/Y RATIO OF";N;"IS";A;"RADIANS" -99 END diff --git a/bwbtest/HB1/ATN_1.INP b/bwbtest/HB1/ATN_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB1/ATN_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB1/ATN_1.run b/bwbtest/HB1/ATN_1.run deleted file mode 100644 index ad4f048..0000000 --- a/bwbtest/HB1/ATN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR TANGENT VALUE? 0.5 -THE ANGLE WITH THE X/Y RATIO OF .5 IS .463648 RADIANS diff --git a/bwbtest/HB1/AT_1.BAS b/bwbtest/HB1/AT_1.BAS deleted file mode 100644 index f3e2d6a..0000000 --- a/bwbtest/HB1/AT_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'AT' TEST PROGRAM -15 CLS -20 PRINT AT 128,"2. IF THIS LINE IS PRINTER AFTER LINE 1." -30 PRINT AT 0,"1. THE 'AT' FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/AT_1.PRO b/bwbtest/HB1/AT_1.PRO deleted file mode 100644 index 748ecf1..0000000 --- a/bwbtest/HB1/AT_1.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION TERMINAL ANSI -WIDTH 16,64 diff --git a/bwbtest/HB1/AT_1.run b/bwbtest/HB1/AT_1.run deleted file mode 100644 index d119799..0000000 --- a/bwbtest/HB1/AT_1.run +++ /dev/null @@ -1,2 +0,0 @@ - [2J [1;1H [3;1H2. IF THIS LINE IS PRINTER AFTER LINE 1. - [1;1H1. THE 'AT' FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/AT_2.BAS b/bwbtest/HB1/AT_2.BAS deleted file mode 100644 index f276a7c..0000000 --- a/bwbtest/HB1/AT_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'AT OVERFLOW' TEST PROGRAM -15 CLS -20 PRINT AT 192,"'AT' (OVERFLOW) PASSED THE TEST" -30 PRINT AT 1248,"IF ONLY ONE LINE IS PRINTED." -99 END diff --git a/bwbtest/HB1/AT_2.PRO b/bwbtest/HB1/AT_2.PRO deleted file mode 100644 index 571798f..0000000 --- a/bwbtest/HB1/AT_2.PRO +++ /dev/null @@ -1,4 +0,0 @@ -OPTION TERMINAL ANSI -WIDTH 16,64 -CLS - diff --git a/bwbtest/HB1/AT_2.run b/bwbtest/HB1/AT_2.run deleted file mode 100644 index d2ca824..0000000 --- a/bwbtest/HB1/AT_2.run +++ /dev/null @@ -1,2 +0,0 @@ - [2J [1;1H [2J [1;1H [4;1H'AT' (OVERFLOW) PASSED THE TEST - [4;33HIF ONLY ONE LINE IS PRINTED. diff --git a/bwbtest/HB1/AT_3.BAS b/bwbtest/HB1/AT_3.BAS deleted file mode 100644 index 0490523..0000000 --- a/bwbtest/HB1/AT_3.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'AT VALUE' TEST PROGRAM -15 CLS -20 FOR X=1 TO 15 -30 PRINT X -40 NEXT X -50 PRINT AT X*28+4,"'AT' PASSED THE TEST IF THIS IS LINE #8."; -99 END diff --git a/bwbtest/HB1/AT_3.PRO b/bwbtest/HB1/AT_3.PRO deleted file mode 100644 index 571798f..0000000 --- a/bwbtest/HB1/AT_3.PRO +++ /dev/null @@ -1,4 +0,0 @@ -OPTION TERMINAL ANSI -WIDTH 16,64 -CLS - diff --git a/bwbtest/HB1/AT_3.run b/bwbtest/HB1/AT_3.run deleted file mode 100644 index f4f164b..0000000 --- a/bwbtest/HB1/AT_3.run +++ /dev/null @@ -1,16 +0,0 @@ - [2J [1;1H [2J [1;1H 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - [8;5H'AT' PASSED THE TEST IF THIS IS LINE #8. diff --git a/bwbtest/HB1/AT_4.BAS b/bwbtest/HB1/AT_4.BAS deleted file mode 100644 index ce0081d..0000000 --- a/bwbtest/HB1/AT_4.BAS +++ /dev/null @@ -1,6 +0,0 @@ -05 CLS -10 PRINT AT 420,"HELLO" -20 PRINT AT (484), "THERE" -99 END - - diff --git a/bwbtest/HB1/AT_4.PRO b/bwbtest/HB1/AT_4.PRO deleted file mode 100644 index 571798f..0000000 --- a/bwbtest/HB1/AT_4.PRO +++ /dev/null @@ -1,4 +0,0 @@ -OPTION TERMINAL ANSI -WIDTH 16,64 -CLS - diff --git a/bwbtest/HB1/AT_4.run b/bwbtest/HB1/AT_4.run deleted file mode 100644 index 474cb03..0000000 --- a/bwbtest/HB1/AT_4.run +++ /dev/null @@ -1,2 +0,0 @@ - [2J [1;1H [2J [1;1H [7;37HHELLO - [8;37HTHERE diff --git a/bwbtest/HB1/AT_5.BAS b/bwbtest/HB1/AT_5.BAS deleted file mode 100644 index 807fb41..0000000 --- a/bwbtest/HB1/AT_5.BAS +++ /dev/null @@ -1,5 +0,0 @@ -05 CLS -10 PRINT @ 420;"HELLO" -20 PRINT @ (484); "THERE" -99 END - diff --git a/bwbtest/HB1/AT_5.PRO b/bwbtest/HB1/AT_5.PRO deleted file mode 100644 index 748ecf1..0000000 --- a/bwbtest/HB1/AT_5.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION TERMINAL ANSI -WIDTH 16,64 diff --git a/bwbtest/HB1/AT_5.run b/bwbtest/HB1/AT_5.run deleted file mode 100644 index a9ef7b8..0000000 --- a/bwbtest/HB1/AT_5.run +++ /dev/null @@ -1,2 +0,0 @@ - [2J [1;1H [7;37HHELLO - [8;37HTHERE diff --git a/bwbtest/HB1/AUTO_1.BAS b/bwbtest/HB1/AUTO_1.BAS deleted file mode 100644 index 7fcef8d..0000000 --- a/bwbtest/HB1/AUTO_1.BAS +++ /dev/null @@ -1 +0,0 @@ -99 END diff --git a/bwbtest/HB1/AUTO_1.INP b/bwbtest/HB1/AUTO_1.INP deleted file mode 100644 index e543aa2..0000000 --- a/bwbtest/HB1/AUTO_1.INP +++ /dev/null @@ -1,8 +0,0 @@ -LIST -AUTO 10, 5 -REM 'AUTO' TEST PROGRAM -PRINT "THE NEXT LINE NUMBER SHOULD INCREASE BY 5" -PRINT "PRESS THE BREAK KEY TO STOP THE AUTO FEATURE" -MAN -LIST -RUN diff --git a/bwbtest/HB1/AUTO_1.run b/bwbtest/HB1/AUTO_1.run deleted file mode 100644 index fd37291..0000000 --- a/bwbtest/HB1/AUTO_1.run +++ /dev/null @@ -1,17 +0,0 @@ -bwBASIC: LIST - 99 END - -bwBASIC: AUTO 10, 5 -10 REM 'AUTO' TEST PROGRAM -15 PRINT "THE NEXT LINE NUMBER SHOULD INCREASE BY 5" -20 PRINT "PRESS THE BREAK KEY TO STOP THE AUTO FEATURE" -25 MAN -bwBASIC: LIST - 10 REM 'AUTO' TEST PROGRAM - 15 PRINT "THE NEXT LINE NUMBER SHOULD INCREASE BY 5" - 20 PRINT "PRESS THE BREAK KEY TO STOP THE AUTO FEATURE" - 99 END - -bwBASIC: RUN -THE NEXT LINE NUMBER SHOULD INCREASE BY 5 -PRESS THE BREAK KEY TO STOP THE AUTO FEATURE diff --git a/bwbtest/HB1/BREAK_1.BAS b/bwbtest/HB1/BREAK_1.BAS deleted file mode 100644 index b8083b6..0000000 --- a/bwbtest/HB1/BREAK_1.BAS +++ /dev/null @@ -1,13 +0,0 @@ - 1 REM 'BREAK' OCCURS BEFORE LINE IS EXECUTED - 2 REM 'CONT' EXECUTES THE LINE - 10 REM 'BREAK' TEST PROGRAM - 20 BREAK 30,50,70-90 - 30 PRINT "THE COMPUTER SHOULD STOP EXECUTION AT LINE 30" - 40 REM TYPE THE COMMAND 'CONT' TO CONTINUE - 50 PRINT "LINE 50" - 60 REM THIS LINE NOT INCLUDED IN THE BREAK STATEMENT - 70 PRINT "LINE 70" - 80 PRINT "LINE 80" - 90 PRINT "AND LINE 90" - 99 END - diff --git a/bwbtest/HB1/BREAK_1.INP b/bwbtest/HB1/BREAK_1.INP deleted file mode 100644 index 10622d0..0000000 --- a/bwbtest/HB1/BREAK_1.INP +++ /dev/null @@ -1,5 +0,0 @@ -CONT -CONT -CONT -CONT -CONT diff --git a/bwbtest/HB1/BREAK_1.run b/bwbtest/HB1/BREAK_1.run deleted file mode 100644 index 3e282cf..0000000 --- a/bwbtest/HB1/BREAK_1.run +++ /dev/null @@ -1,20 +0,0 @@ - -Program interrupted at line 30 -bwBASIC: CONT -THE COMPUTER SHOULD STOP EXECUTION AT LINE 30 - -Program interrupted at line 50 -bwBASIC: CONT -LINE 50 - -Program interrupted at line 70 -bwBASIC: CONT -LINE 70 - -Program interrupted at line 80 -bwBASIC: CONT -LINE 80 - -Program interrupted at line 90 -bwBASIC: CONT -AND LINE 90 diff --git a/bwbtest/HB1/CDBL_1.BAS b/bwbtest/HB1/CDBL_1.BAS deleted file mode 100644 index a8a73ee..0000000 --- a/bwbtest/HB1/CDBL_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'CDBL' TEST PROGRAM -20 X=2 -30 Y=3 -40 PRINT "CDBL CHANGES X/Y FROM";X/Y;"TO";CDBL(X)/CDBL(Y) -50 PRINT "AND BACK TO THE VALUE OF";X/Y;"WHEN REMOVED" -99 END diff --git a/bwbtest/HB1/CDBL_1.run b/bwbtest/HB1/CDBL_1.run deleted file mode 100644 index f510952..0000000 --- a/bwbtest/HB1/CDBL_1.run +++ /dev/null @@ -1,2 +0,0 @@ -CDBL CHANGES X/Y FROM .666667 TO .666667 -AND BACK TO THE VALUE OF .666667 WHEN REMOVED diff --git a/bwbtest/HB1/CDBL_2.BAS b/bwbtest/HB1/CDBL_2.BAS deleted file mode 100644 index 751a935..0000000 --- a/bwbtest/HB1/CDBL_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'CDBL' TEST PROGRAM -15 DEF CDBL(X)=X -20 X=2 -30 Y=3 -40 PRINT "CDBL CHANGES X/Y FROM";X/Y;"TO";CDBL(X)/CDBL(Y) -50 PRINT "AND BACK TO THE VALUE OF";X/Y;"WHEN REMOVED" -99 END diff --git a/bwbtest/HB1/CDBL_2.run b/bwbtest/HB1/CDBL_2.run deleted file mode 100644 index f510952..0000000 --- a/bwbtest/HB1/CDBL_2.run +++ /dev/null @@ -1,2 +0,0 @@ -CDBL CHANGES X/Y FROM .666667 TO .666667 -AND BACK TO THE VALUE OF .666667 WHEN REMOVED diff --git a/bwbtest/HB1/CHAIN_1.BAS b/bwbtest/HB1/CHAIN_1.BAS deleted file mode 100644 index 3ae0099..0000000 --- a/bwbtest/HB1/CHAIN_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM *MAIN* PROGRAM -20 PRINT "THIS PROGRAM SHOULD LOAD AND RUN THE 'CHAIN_2' PROGRAM" -30 CHAIN "CHAIN_2.BAS" -40 PRINT "CHAIN PASSED THE TEST IF THE 'CHAIN_2' PROGRAM" -50 PRINT "PRINTED A SERIES OF NUMBERS" -99 END diff --git a/bwbtest/HB1/CHAIN_1.run b/bwbtest/HB1/CHAIN_1.run deleted file mode 100644 index a409024..0000000 --- a/bwbtest/HB1/CHAIN_1.run +++ /dev/null @@ -1,5 +0,0 @@ -THIS PROGRAM SHOULD LOAD AND RUN THE 'CHAIN_2' PROGRAM -THE 'TEST' PROGRAM IS NOW RUNNING - 1 2 3 4 5 6 7 8 9 THIS PROGRAM WILL NOW CHAIN BACK TO THE MAIN PROGRAM -CHAIN PASSED THE TEST IF THE 'CHAIN_2' PROGRAM -PRINTED A SERIES OF NUMBERS diff --git a/bwbtest/HB1/CHAIN_2.BAS b/bwbtest/HB1/CHAIN_2.BAS deleted file mode 100644 index 3fb22cf..0000000 --- a/bwbtest/HB1/CHAIN_2.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM *TEST* PROGRAM -20 PRINT "THE 'TEST' PROGRAM IS NOW RUNNING" -30 FOR X=1 TO 9 -40 PRINT X; -50 NEXT X -60 PRINT "THIS PROGRAM WILL NOW CHAIN BACK TO THE MAIN PROGRAM" -70 CHAIN "CHAIN_1.BAS",40 -99 END diff --git a/bwbtest/HB1/CHAIN_2.run b/bwbtest/HB1/CHAIN_2.run deleted file mode 100644 index 136d9a2..0000000 --- a/bwbtest/HB1/CHAIN_2.run +++ /dev/null @@ -1,4 +0,0 @@ -THE 'TEST' PROGRAM IS NOW RUNNING - 1 2 3 4 5 6 7 8 9 THIS PROGRAM WILL NOW CHAIN BACK TO THE MAIN PROGRAM -CHAIN PASSED THE TEST IF THE 'CHAIN_2' PROGRAM -PRINTED A SERIES OF NUMBERS diff --git a/bwbtest/HB1/CHAR_1.BAS b/bwbtest/HB1/CHAR_1.BAS deleted file mode 100644 index e39d4a7..0000000 --- a/bwbtest/HB1/CHAR_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'CHAR' TEST PROGRAM -20 PRINT "THE CHAR FUNCTION PASSED THE "; -30 FOR X=1 TO 4 -40 READ A -50 PRINT CHAR(A,1); -60 NEXT X -70 DATA 84,69,83,84 -99 END diff --git a/bwbtest/HB1/CHAR_1.run b/bwbtest/HB1/CHAR_1.run deleted file mode 100644 index 3ca1c8e..0000000 --- a/bwbtest/HB1/CHAR_1.run +++ /dev/null @@ -1 +0,0 @@ -THE CHAR FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/CHAR_2.BAS b/bwbtest/HB1/CHAR_2.BAS deleted file mode 100644 index b17a018..0000000 --- a/bwbtest/HB1/CHAR_2.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'CHAR(N1,N2)' TEST PROGRAM -20 PRINT "THERE SHOULD BE 5 'T' CHARACTERS" -30 PRINT CHAR(84,5) -99 END diff --git a/bwbtest/HB1/CHAR_2.run b/bwbtest/HB1/CHAR_2.run deleted file mode 100644 index e234d3e..0000000 --- a/bwbtest/HB1/CHAR_2.run +++ /dev/null @@ -1,2 +0,0 @@ -THERE SHOULD BE 5 'T' CHARACTERS -TTTTT diff --git a/bwbtest/HB1/CHAR_3.BAS b/bwbtest/HB1/CHAR_3.BAS deleted file mode 100644 index 99428c8..0000000 --- a/bwbtest/HB1/CHAR_3.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'CHAR$' TEST PROGRAM -20 PRINT "THE CHAR$ FUNCTION PASSED THE "; -30 FOR X=1 TO 4 -40 READ A -50 PRINT CHAR$(A); -60 NEXT X -70 DATA 84,69,83,84 -99 END diff --git a/bwbtest/HB1/CHAR_3.run b/bwbtest/HB1/CHAR_3.run deleted file mode 100644 index 678ce8b..0000000 --- a/bwbtest/HB1/CHAR_3.run +++ /dev/null @@ -1 +0,0 @@ -THE CHAR$ FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/CHAR_4.BAS b/bwbtest/HB1/CHAR_4.BAS deleted file mode 100644 index 77727a6..0000000 --- a/bwbtest/HB1/CHAR_4.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'CHAR$' TEST PROGRAM -15 DEF CHAR$(X)=CHR$(X) -20 PRINT "THE CHAR$ FUNCTION PASSED THE "; -30 FOR X=1 TO 4 -40 READ A -50 PRINT CHAR$(A); -60 NEXT X -70 DATA 84,69,83,84 -99 END diff --git a/bwbtest/HB1/CHAR_4.run b/bwbtest/HB1/CHAR_4.run deleted file mode 100644 index 678ce8b..0000000 --- a/bwbtest/HB1/CHAR_4.run +++ /dev/null @@ -1 +0,0 @@ -THE CHAR$ FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/CHR_1.BAS b/bwbtest/HB1/CHR_1.BAS deleted file mode 100644 index 8bd5d4e..0000000 --- a/bwbtest/HB1/CHR_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'CHR' TEST PROGRAM -20 PRINT "THE CHR FUNCTION PASSED THE "; -30 FOR X=1 TO 4 -40 READ A -50 PRINT CHR(A); -60 NEXT X -70 DATA 84,69,83,84 -99 END diff --git a/bwbtest/HB1/CHR_1.run b/bwbtest/HB1/CHR_1.run deleted file mode 100644 index d9dfd52..0000000 --- a/bwbtest/HB1/CHR_1.run +++ /dev/null @@ -1 +0,0 @@ -THE CHR FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/CHR_2.BAS b/bwbtest/HB1/CHR_2.BAS deleted file mode 100644 index ea24286..0000000 --- a/bwbtest/HB1/CHR_2.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'CHR$' TEST PROGRAM -20 PRINT "ENTER THE LOWEST ASCII CODE NUMBER"; -30 INPUT L -40 PRINT "ENTER THE HIGHEST ASCII CODE NUMBER"; -50 INPUT H -60 FOR X=L TO H -70 PRINT "ASCII CODE";X;"="; -80 PRINT CHR$(X) -90 FOR Y=1 TO 150 -100 NEXT Y -110 NEXT X -999 END diff --git a/bwbtest/HB1/CHR_2.INP b/bwbtest/HB1/CHR_2.INP deleted file mode 100644 index d51c7ed..0000000 --- a/bwbtest/HB1/CHR_2.INP +++ /dev/null @@ -1,2 +0,0 @@ -32 -126 diff --git a/bwbtest/HB1/CHR_2.run b/bwbtest/HB1/CHR_2.run deleted file mode 100644 index 187ec5b..0000000 --- a/bwbtest/HB1/CHR_2.run +++ /dev/null @@ -1,97 +0,0 @@ -ENTER THE LOWEST ASCII CODE NUMBER? 32 -ENTER THE HIGHEST ASCII CODE NUMBER? 126 -ASCII CODE 32 = -ASCII CODE 33 =! -ASCII CODE 34 =" -ASCII CODE 35 =# -ASCII CODE 36 =$ -ASCII CODE 37 =% -ASCII CODE 38 =& -ASCII CODE 39 =' -ASCII CODE 40 =( -ASCII CODE 41 =) -ASCII CODE 42 =* -ASCII CODE 43 =+ -ASCII CODE 44 =, -ASCII CODE 45 =- -ASCII CODE 46 =. -ASCII CODE 47 =/ -ASCII CODE 48 =0 -ASCII CODE 49 =1 -ASCII CODE 50 =2 -ASCII CODE 51 =3 -ASCII CODE 52 =4 -ASCII CODE 53 =5 -ASCII CODE 54 =6 -ASCII CODE 55 =7 -ASCII CODE 56 =8 -ASCII CODE 57 =9 -ASCII CODE 58 =: -ASCII CODE 59 =; -ASCII CODE 60 =< -ASCII CODE 61 == -ASCII CODE 62 => -ASCII CODE 63 =? -ASCII CODE 64 =@ -ASCII CODE 65 =A -ASCII CODE 66 =B -ASCII CODE 67 =C -ASCII CODE 68 =D -ASCII CODE 69 =E -ASCII CODE 70 =F -ASCII CODE 71 =G -ASCII CODE 72 =H -ASCII CODE 73 =I -ASCII CODE 74 =J -ASCII CODE 75 =K -ASCII CODE 76 =L -ASCII CODE 77 =M -ASCII CODE 78 =N -ASCII CODE 79 =O -ASCII CODE 80 =P -ASCII CODE 81 =Q -ASCII CODE 82 =R -ASCII CODE 83 =S -ASCII CODE 84 =T -ASCII CODE 85 =U -ASCII CODE 86 =V -ASCII CODE 87 =W -ASCII CODE 88 =X -ASCII CODE 89 =Y -ASCII CODE 90 =Z -ASCII CODE 91 =[ -ASCII CODE 92 =\ -ASCII CODE 93 =] -ASCII CODE 94 =^ -ASCII CODE 95 =_ -ASCII CODE 96 =` -ASCII CODE 97 =a -ASCII CODE 98 =b -ASCII CODE 99 =c -ASCII CODE 100 =d -ASCII CODE 101 =e -ASCII CODE 102 =f -ASCII CODE 103 =g -ASCII CODE 104 =h -ASCII CODE 105 =i -ASCII CODE 106 =j -ASCII CODE 107 =k -ASCII CODE 108 =l -ASCII CODE 109 =m -ASCII CODE 110 =n -ASCII CODE 111 =o -ASCII CODE 112 =p -ASCII CODE 113 =q -ASCII CODE 114 =r -ASCII CODE 115 =s -ASCII CODE 116 =t -ASCII CODE 117 =u -ASCII CODE 118 =v -ASCII CODE 119 =w -ASCII CODE 120 =x -ASCII CODE 121 =y -ASCII CODE 122 =z -ASCII CODE 123 ={ -ASCII CODE 124 =| -ASCII CODE 125 =} -ASCII CODE 126 =~ diff --git a/bwbtest/HB1/CINT_1.BAS b/bwbtest/HB1/CINT_1.BAS deleted file mode 100644 index c55a913..0000000 --- a/bwbtest/HB1/CINT_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'CINT' TEST PROGRAM -20 DEFDBL X -30 X=12345.6789 -40 PRINT "CINT CHANGES THE VALUE OF X FROM";X;"TO";CINT(X) -50 PRINT "AND BACK TO THE VALUE OF";X;"WHEN REMOVED" -99 END diff --git a/bwbtest/HB1/CINT_1.run b/bwbtest/HB1/CINT_1.run deleted file mode 100644 index e1183fa..0000000 --- a/bwbtest/HB1/CINT_1.run +++ /dev/null @@ -1,2 +0,0 @@ -CINT CHANGES THE VALUE OF X FROM 12345.7 TO 12346 -AND BACK TO THE VALUE OF 12345.7 WHEN REMOVED diff --git a/bwbtest/HB1/CINT_2.BAS b/bwbtest/HB1/CINT_2.BAS deleted file mode 100644 index 4436443..0000000 --- a/bwbtest/HB1/CINT_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ - 10 REM 'CINT' TEST PROGRAM - 20 DEFDBL X - 30 X=12345.6789 - 40 PRINT "CINT CHANGES THE VALUE OF X FROM";X;"TO";CINT(X) - 50 PRINT "AND BACK TO THE VALUE OF";X;"WHEN REMOVED" - 99 END diff --git a/bwbtest/HB1/CINT_2.PRO b/bwbtest/HB1/CINT_2.PRO deleted file mode 100644 index ddebf10..0000000 --- a/bwbtest/HB1/CINT_2.PRO +++ /dev/null @@ -1,7 +0,0 @@ -65000 REM FAKE 'CINT' -65010 DEF CINT(X) -65020 IF X > 0 THEN 65050 -65030 LET CINT=-INT(-X+0.5) -65040 GOTO 65060 -65050 LET CINT=INT(X+0.5) -65060 FNEND diff --git a/bwbtest/HB1/CINT_2.run b/bwbtest/HB1/CINT_2.run deleted file mode 100644 index e1183fa..0000000 --- a/bwbtest/HB1/CINT_2.run +++ /dev/null @@ -1,2 +0,0 @@ -CINT CHANGES THE VALUE OF X FROM 12345.7 TO 12346 -AND BACK TO THE VALUE OF 12345.7 WHEN REMOVED diff --git a/bwbtest/HB1/CLEAR_1.BAS b/bwbtest/HB1/CLEAR_1.BAS deleted file mode 100644 index 6536b4e..0000000 --- a/bwbtest/HB1/CLEAR_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'CLEAR' TEST PROGRAM -20 A=300 -30 A$="TEST STRING" -40 PRINT "BEFORE THE 'CLEAR' COMMAND A=";A -50 PRINT "AND STRING VARIABLE A$=";A$ -60 CLEAR -70 PRINT "AFTER THE 'CLEAR' COMMAND A=";A -80 PRINT "AND STRING VARIABLE A$=";A$ -99 END diff --git a/bwbtest/HB1/CLEAR_1.run b/bwbtest/HB1/CLEAR_1.run deleted file mode 100644 index b92507e..0000000 --- a/bwbtest/HB1/CLEAR_1.run +++ /dev/null @@ -1,4 +0,0 @@ -BEFORE THE 'CLEAR' COMMAND A= 300 -AND STRING VARIABLE A$=TEST STRING -AFTER THE 'CLEAR' COMMAND A= 0 -AND STRING VARIABLE A$= diff --git a/bwbtest/HB1/CLEAR_2.BAS b/bwbtest/HB1/CLEAR_2.BAS deleted file mode 100644 index 2e7d296..0000000 --- a/bwbtest/HB1/CLEAR_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'CLEAR X' TEST PROGRAM -20 CLEAR 5 -30 PRINT "ENTER FROM 1 TO 5 CHARACTERS"; -40 INPUT A$ -50 PRINT "STRING ";A$;" USED ALL BUT";FRE(A$);"BYTES" -60 PRINT "OF STRING SPACE." -99 END diff --git a/bwbtest/HB1/CLEAR_2.INP b/bwbtest/HB1/CLEAR_2.INP deleted file mode 100644 index 855590a..0000000 --- a/bwbtest/HB1/CLEAR_2.INP +++ /dev/null @@ -1 +0,0 @@ -ABCDEF diff --git a/bwbtest/HB1/CLEAR_2.run b/bwbtest/HB1/CLEAR_2.run deleted file mode 100644 index bf3be83..0000000 --- a/bwbtest/HB1/CLEAR_2.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER FROM 1 TO 5 CHARACTERS? ABCDEF -STRING ABCDEF USED ALL BUT 32000 BYTES -OF STRING SPACE. diff --git a/bwbtest/HB1/CLEAR_3.BAS b/bwbtest/HB1/CLEAR_3.BAS deleted file mode 100644 index f53ab9b..0000000 --- a/bwbtest/HB1/CLEAR_3.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'CLEAR X' TEST PROGRAM -20 A=5 -25 CLEAR A -30 PRINT "ENTER FROM 1 TO 5 CHARACTERS"; -40 INPUT A$ -50 PRINT "STRING ";A$;" USED ALL BUT";FRE(A$);"BYTES" -60 PRINT "OF STRING SPACE." -99 END diff --git a/bwbtest/HB1/CLEAR_3.INP b/bwbtest/HB1/CLEAR_3.INP deleted file mode 100644 index 13469c6..0000000 --- a/bwbtest/HB1/CLEAR_3.INP +++ /dev/null @@ -1 +0,0 @@ -ABCDEFGHI diff --git a/bwbtest/HB1/CLEAR_3.run b/bwbtest/HB1/CLEAR_3.run deleted file mode 100644 index 8a8594f..0000000 --- a/bwbtest/HB1/CLEAR_3.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER FROM 1 TO 5 CHARACTERS? ABCDEFGHI -STRING ABCDEFGHI USED ALL BUT 32000 BYTES -OF STRING SPACE. diff --git a/bwbtest/HB1/CLG_1.BAS b/bwbtest/HB1/CLG_1.BAS deleted file mode 100644 index 6d61a0f..0000000 --- a/bwbtest/HB1/CLG_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'CLG' TEST PROGRAM -20 PRINT "ENTER A POSITIVE NUMBER" -30 INPUT N -40 X=CLG(N) -50 PRINT "THE COMMON LOG OF";N;"IS";X -99 END diff --git a/bwbtest/HB1/CLG_1.INP b/bwbtest/HB1/CLG_1.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/CLG_1.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/CLG_1.run b/bwbtest/HB1/CLG_1.run deleted file mode 100644 index 24c65d7..0000000 --- a/bwbtest/HB1/CLG_1.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A POSITIVE NUMBER -? 100 -THE COMMON LOG OF 100 IS 2 diff --git a/bwbtest/HB1/CLG_2.BAS b/bwbtest/HB1/CLG_2.BAS deleted file mode 100644 index 3275e10..0000000 --- a/bwbtest/HB1/CLG_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'CLG' TEST PROGRAM -15 DEF CLG(N)=LOG(N)*.4342945 -20 PRINT "ENTER A POSITIVE NUMBER" -30 INPUT N -40 X=CLG(N) -50 PRINT "THE COMMON LOG OF";N;"IS";X -99 END diff --git a/bwbtest/HB1/CLG_2.INP b/bwbtest/HB1/CLG_2.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/CLG_2.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/CLG_2.run b/bwbtest/HB1/CLG_2.run deleted file mode 100644 index 4874caa..0000000 --- a/bwbtest/HB1/CLG_2.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A POSITIVE NUMBER -? 100 -THE COMMON LOG OF 100 IS 2. diff --git a/bwbtest/HB1/CLK_1.BAS b/bwbtest/HB1/CLK_1.BAS deleted file mode 100644 index 27b634f..0000000 --- a/bwbtest/HB1/CLK_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'CLK' TEST PROGRAM -20 PRINT "THE CURRENT TIME IS ";CLK(N) -30 PRINT "THE CLK FUNCTION PASSED THE TEST" -40 PRINT "IF A SIX DIGIT NUMBER IS PRINTED" -99 END diff --git a/bwbtest/HB1/CLK_1.PRO b/bwbtest/HB1/CLK_1.PRO deleted file mode 100644 index dd35fc9..0000000 --- a/bwbtest/HB1/CLK_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION TIME "%H%M%S" diff --git a/bwbtest/HB1/CLK_1.run b/bwbtest/HB1/CLK_1.run deleted file mode 100644 index 887cda9..0000000 --- a/bwbtest/HB1/CLK_1.run +++ /dev/null @@ -1,3 +0,0 @@ -THE CURRENT TIME IS 184516 -THE CLK FUNCTION PASSED THE TEST -IF A SIX DIGIT NUMBER IS PRINTED diff --git a/bwbtest/HB1/CLK_2.BAS b/bwbtest/HB1/CLK_2.BAS deleted file mode 100644 index ccfb5bd..0000000 --- a/bwbtest/HB1/CLK_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'CLK$' TEST PROGRAM -20 PRINT "THE CURRENT TIME IS "; -30 PRINT CLK$ -40 PRINT "'CLK$' PASSED THE TEST IF A SIX DIGIT NUMBER IS PRINTED" -99 END diff --git a/bwbtest/HB1/CLK_2.run b/bwbtest/HB1/CLK_2.run deleted file mode 100644 index 456b1de..0000000 --- a/bwbtest/HB1/CLK_2.run +++ /dev/null @@ -1,2 +0,0 @@ -THE CURRENT TIME IS 18:45:16 -'CLK$' PASSED THE TEST IF A SIX DIGIT NUMBER IS PRINTED diff --git a/bwbtest/HB1/CLK_3.BAS b/bwbtest/HB1/CLK_3.BAS deleted file mode 100644 index 27b634f..0000000 --- a/bwbtest/HB1/CLK_3.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'CLK' TEST PROGRAM -20 PRINT "THE CURRENT TIME IS ";CLK(N) -30 PRINT "THE CLK FUNCTION PASSED THE TEST" -40 PRINT "IF A SIX DIGIT NUMBER IS PRINTED" -99 END diff --git a/bwbtest/HB1/CLK_3.PRO b/bwbtest/HB1/CLK_3.PRO deleted file mode 100644 index 03310c4..0000000 --- a/bwbtest/HB1/CLK_3.PRO +++ /dev/null @@ -1,7 +0,0 @@ -OPTION TIME "%H%M%S" -30000 DEF CLK(X) AS STRING -30010 LET CLK = "[" + TIME$ + "]" -30020 FNEND -31000 DEF CLK$ -31010 LET CLK$ = "[" + TIME$ + "]" -31020 FNEND diff --git a/bwbtest/HB1/CLK_3.run b/bwbtest/HB1/CLK_3.run deleted file mode 100644 index 20bad6e..0000000 --- a/bwbtest/HB1/CLK_3.run +++ /dev/null @@ -1,3 +0,0 @@ -THE CURRENT TIME IS [184516] -THE CLK FUNCTION PASSED THE TEST -IF A SIX DIGIT NUMBER IS PRINTED diff --git a/bwbtest/HB1/CLK_4.BAS b/bwbtest/HB1/CLK_4.BAS deleted file mode 100644 index ccfb5bd..0000000 --- a/bwbtest/HB1/CLK_4.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'CLK$' TEST PROGRAM -20 PRINT "THE CURRENT TIME IS "; -30 PRINT CLK$ -40 PRINT "'CLK$' PASSED THE TEST IF A SIX DIGIT NUMBER IS PRINTED" -99 END diff --git a/bwbtest/HB1/CLK_4.PRO b/bwbtest/HB1/CLK_4.PRO deleted file mode 100644 index 6284c3f..0000000 --- a/bwbtest/HB1/CLK_4.PRO +++ /dev/null @@ -1,7 +0,0 @@ -OPTION TIME "%H%M%S" -50000 DEF CLK(X) AS STRING -50010 LET CLK = "[" + TIME$ + "]" -50020 FNEND -51000 DEF CLK$ -51010 LET CLK$ = "[" + TIME$ + "]" -51020 FNEND diff --git a/bwbtest/HB1/CLK_4.run b/bwbtest/HB1/CLK_4.run deleted file mode 100644 index 77308ac..0000000 --- a/bwbtest/HB1/CLK_4.run +++ /dev/null @@ -1,2 +0,0 @@ -THE CURRENT TIME IS [184516] -'CLK$' PASSED THE TEST IF A SIX DIGIT NUMBER IS PRINTED diff --git a/bwbtest/HB1/CLOAD_1.BAS b/bwbtest/HB1/CLOAD_1.BAS deleted file mode 100644 index 596e5d3..0000000 --- a/bwbtest/HB1/CLOAD_1.BAS +++ /dev/null @@ -1 +0,0 @@ -1 REM diff --git a/bwbtest/HB1/CLOAD_1.DAT b/bwbtest/HB1/CLOAD_1.DAT deleted file mode 100644 index 751a270..0000000 --- a/bwbtest/HB1/CLOAD_1.DAT +++ /dev/null @@ -1,3 +0,0 @@ -10 REM 'CLOAD' TEST PROGRAM -20 PRINT "THIS PROGRAM TESTS THE CLOAD FEATURE" -99 END diff --git a/bwbtest/HB1/CLOAD_1.INP b/bwbtest/HB1/CLOAD_1.INP deleted file mode 100644 index 4bf9577..0000000 --- a/bwbtest/HB1/CLOAD_1.INP +++ /dev/null @@ -1,3 +0,0 @@ -CLOAD "CLOAD_1.DAT" -LIST -RUN diff --git a/bwbtest/HB1/CLOAD_1.run b/bwbtest/HB1/CLOAD_1.run deleted file mode 100644 index c15fad0..0000000 --- a/bwbtest/HB1/CLOAD_1.run +++ /dev/null @@ -1,8 +0,0 @@ -bwBASIC: CLOAD "CLOAD_1.DAT" -bwBASIC: LIST - 10 REM 'CLOAD' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE CLOAD FEATURE" - 99 END - -bwBASIC: RUN -THIS PROGRAM TESTS THE CLOAD FEATURE diff --git a/bwbtest/HB1/CLOAD_2.BAS b/bwbtest/HB1/CLOAD_2.BAS deleted file mode 100644 index 55a82cd..0000000 --- a/bwbtest/HB1/CLOAD_2.BAS +++ /dev/null @@ -1,17 +0,0 @@ -10 REM 'CLOAD*' TEST PROGRAM -20 OPTION BASE 1 -30 DIM A(10) -40 FOR I=1 TO 10 -50 A(I)=I -60 NEXT I -70 CSAVE* A -80 FOR I=1 TO 10 -90 A(I)=0 -100 NEXT I -110 CLOAD* A -120 PRINT "'CLOAD*' PASSED IF 1 TO 10" -130 FOR I=1 TO 10 -140 PRINT A(I); -150 NEXT I -160 PRINT -999 END diff --git a/bwbtest/HB1/CLOAD_2.run b/bwbtest/HB1/CLOAD_2.run deleted file mode 100644 index 20a1917..0000000 --- a/bwbtest/HB1/CLOAD_2.run +++ /dev/null @@ -1,2 +0,0 @@ -'CLOAD*' PASSED IF 1 TO 10 - 1 2 3 4 5 6 7 8 9 10 diff --git a/bwbtest/HB1/CLOG_1.BAS b/bwbtest/HB1/CLOG_1.BAS deleted file mode 100644 index c2fde4a..0000000 --- a/bwbtest/HB1/CLOG_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'CLOG' TEST PROGRAM -20 PRINT "ENTER A POSITIVE NUMBER" -30 INPUT N -40 X=CLOG(N) -50 PRINT "THE COMMON LOG OF";N;"IS";X -99 END diff --git a/bwbtest/HB1/CLOG_1.INP b/bwbtest/HB1/CLOG_1.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/CLOG_1.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/CLOG_1.run b/bwbtest/HB1/CLOG_1.run deleted file mode 100644 index 24c65d7..0000000 --- a/bwbtest/HB1/CLOG_1.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A POSITIVE NUMBER -? 100 -THE COMMON LOG OF 100 IS 2 diff --git a/bwbtest/HB1/CLOG_2.BAS b/bwbtest/HB1/CLOG_2.BAS deleted file mode 100644 index d74e994..0000000 --- a/bwbtest/HB1/CLOG_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'CLOG' TEST PROGRAM -15 DEF CLOG(N)=LOG(N)*.4342945 -20 PRINT "ENTER A POSITIVE NUMBER" -30 INPUT N -40 X=CLOG(N) -50 PRINT "THE COMMON LOG OF";N;"IS";X -99 END diff --git a/bwbtest/HB1/CLOG_2.INP b/bwbtest/HB1/CLOG_2.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/CLOG_2.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/CLOG_2.run b/bwbtest/HB1/CLOG_2.run deleted file mode 100644 index 4874caa..0000000 --- a/bwbtest/HB1/CLOG_2.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A POSITIVE NUMBER -? 100 -THE COMMON LOG OF 100 IS 2. diff --git a/bwbtest/HB1/CLR_1.BAS b/bwbtest/HB1/CLR_1.BAS deleted file mode 100644 index 5f4ccf1..0000000 --- a/bwbtest/HB1/CLR_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'CLR' TEST PROGRAM -20 A=300 -30 A$="TEST STRING" -40 PRINT "BEFORE THE 'CLR' STATEMENT A=";A -50 PRINT "AND STRING VARIABLE A$=";A$ -60 CLR -70 PRINT "AFTER THE 'CLR' STATEMENT A=";A -80 PRINT "AND STRING VARIABLE A$=";A$ -99 END diff --git a/bwbtest/HB1/CLR_1.run b/bwbtest/HB1/CLR_1.run deleted file mode 100644 index 7e7b946..0000000 --- a/bwbtest/HB1/CLR_1.run +++ /dev/null @@ -1,4 +0,0 @@ -BEFORE THE 'CLR' STATEMENT A= 300 -AND STRING VARIABLE A$=TEST STRING -AFTER THE 'CLR' STATEMENT A= 0 -AND STRING VARIABLE A$= diff --git a/bwbtest/HB1/CLS_1.BAS b/bwbtest/HB1/CLS_1.BAS deleted file mode 100644 index 8ca81db..0000000 --- a/bwbtest/HB1/CLS_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'CLS' TEST PROGRAM -20 FOR X=1 TO 15 -30 PRINT "THIS LINE SHOULD DISAPPEAR" -40 NEXT X -50 CLS -60 PRINT "IF THIS IS ALL THAT'S ON THE SCREEN" -70 PRINT "THE CLS STATEMENT PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/CLS_1.PRO b/bwbtest/HB1/CLS_1.PRO deleted file mode 100644 index e629e7f..0000000 --- a/bwbtest/HB1/CLS_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION TERMINAL ANSI diff --git a/bwbtest/HB1/CLS_1.run b/bwbtest/HB1/CLS_1.run deleted file mode 100644 index 4d670b5..0000000 --- a/bwbtest/HB1/CLS_1.run +++ /dev/null @@ -1,17 +0,0 @@ -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR - [2J [1;1HIF THIS IS ALL THAT'S ON THE SCREEN -THE CLS STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1/CONT_1.BAS b/bwbtest/HB1/CONT_1.BAS deleted file mode 100644 index 3822d7f..0000000 --- a/bwbtest/HB1/CONT_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'CONT' TEST PROGRAM -20 PRINT "ENTER THE 'CONT' COMMAND" -30 STOP -40 PRINT "THE CONT COMMAND PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/CONT_1.INP b/bwbtest/HB1/CONT_1.INP deleted file mode 100644 index c16034e..0000000 --- a/bwbtest/HB1/CONT_1.INP +++ /dev/null @@ -1 +0,0 @@ -CONT diff --git a/bwbtest/HB1/CONT_1.run b/bwbtest/HB1/CONT_1.run deleted file mode 100644 index 55b7229..0000000 --- a/bwbtest/HB1/CONT_1.run +++ /dev/null @@ -1,5 +0,0 @@ -ENTER THE 'CONT' COMMAND - -Program interrupted at line 30 -bwBASIC: CONT -THE CONT COMMAND PASSED THE TEST diff --git a/bwbtest/HB1/CONT_2.BAS b/bwbtest/HB1/CONT_2.BAS deleted file mode 100644 index 0cb2d85..0000000 --- a/bwbtest/HB1/CONT_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'CONT' TEST PROGRAM -20 PRINT "ENTER THE 'CONT' COMMAND" -30 STOP -40 PRINT "ERROR" -50 PRINT "ERROR" -60 PRINT "ERROR" -70 PRINT "ERROR" -80 PRINT "THE CONT COMMAND PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/CONT_2.INP b/bwbtest/HB1/CONT_2.INP deleted file mode 100644 index 47a2dd1..0000000 --- a/bwbtest/HB1/CONT_2.INP +++ /dev/null @@ -1 +0,0 @@ -CONT 80 diff --git a/bwbtest/HB1/CONT_2.run b/bwbtest/HB1/CONT_2.run deleted file mode 100644 index c64d925..0000000 --- a/bwbtest/HB1/CONT_2.run +++ /dev/null @@ -1,5 +0,0 @@ -ENTER THE 'CONT' COMMAND - -Program interrupted at line 30 -bwBASIC: CONT 80 -THE CONT COMMAND PASSED THE TEST diff --git a/bwbtest/HB1/COS_1.BAS b/bwbtest/HB1/COS_1.BAS deleted file mode 100644 index 61f64d4..0000000 --- a/bwbtest/HB1/COS_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'COS' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN RADIANS)"; -30 INPUT R -40 Y=COS(R) -50 PRINT "THE COSINE OF A";R;"RADIAN ANGLE IS";Y -99 END diff --git a/bwbtest/HB1/COS_1.INP b/bwbtest/HB1/COS_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB1/COS_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB1/COS_1.run b/bwbtest/HB1/COS_1.run deleted file mode 100644 index 8aca53a..0000000 --- a/bwbtest/HB1/COS_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN RADIANS)? 0.5 -THE COSINE OF A .5 RADIAN ANGLE IS .877583 diff --git a/bwbtest/HB1/CSAVE_1.BAS b/bwbtest/HB1/CSAVE_1.BAS deleted file mode 100644 index 596e5d3..0000000 --- a/bwbtest/HB1/CSAVE_1.BAS +++ /dev/null @@ -1 +0,0 @@ -1 REM diff --git a/bwbtest/HB1/CSAVE_1.DAT b/bwbtest/HB1/CSAVE_1.DAT deleted file mode 100644 index 59a11ab..0000000 --- a/bwbtest/HB1/CSAVE_1.DAT +++ /dev/null @@ -1,4 +0,0 @@ - 10 REM 'CSAVE' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE CSAVE FEATURE" - 99 END - diff --git a/bwbtest/HB1/CSAVE_1.INP b/bwbtest/HB1/CSAVE_1.INP deleted file mode 100644 index cb3820b..0000000 --- a/bwbtest/HB1/CSAVE_1.INP +++ /dev/null @@ -1,10 +0,0 @@ -NEW -10 REM 'CSAVE' TEST PROGRAM -20 PRINT "THIS PROGRAM TESTS THE CSAVE FEATURE" -99 END -LIST -CSAVE "CSAVE_1.DAT" -NEW -LIST -CLOAD "CSAVE_1.DAT" -LIST diff --git a/bwbtest/HB1/CSAVE_1.run b/bwbtest/HB1/CSAVE_1.run deleted file mode 100644 index 9e1d1a8..0000000 --- a/bwbtest/HB1/CSAVE_1.run +++ /dev/null @@ -1,19 +0,0 @@ -bwBASIC: NEW -bwBASIC: 10 REM 'CSAVE' TEST PROGRAM -bwBASIC: 20 PRINT "THIS PROGRAM TESTS THE CSAVE FEATURE" -bwBASIC: 99 END -bwBASIC: LIST - 10 REM 'CSAVE' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE CSAVE FEATURE" - 99 END - -bwBASIC: CSAVE "CSAVE_1.DAT" -bwBASIC: NEW -bwBASIC: LIST - -bwBASIC: CLOAD "CSAVE_1.DAT" -bwBASIC: LIST - 10 REM 'CSAVE' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE CSAVE FEATURE" - 99 END - diff --git a/bwbtest/HB1/CSNG_1.BAS b/bwbtest/HB1/CSNG_1.BAS deleted file mode 100644 index 100d063..0000000 --- a/bwbtest/HB1/CSNG_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'CSNG' TEST PROGRAM -20 DEFDBL X -30 X=123456789.0123456 -40 PRINT "CSNG CHANGES THE VALUE OF X FROM";X;"TO";CSNG(X) -50 PRINT "AND BACK TO THE VALUE OF";X;"WHEN REMOVED" -99 END diff --git a/bwbtest/HB1/CSNG_1.run b/bwbtest/HB1/CSNG_1.run deleted file mode 100644 index 60fe2f7..0000000 --- a/bwbtest/HB1/CSNG_1.run +++ /dev/null @@ -1,2 +0,0 @@ -CSNG CHANGES THE VALUE OF X FROM 1.23457E+8 TO 1.23457E+8 -AND BACK TO THE VALUE OF 1.23457E+8 WHEN REMOVED diff --git a/bwbtest/HB1/CSNG_2.BAS b/bwbtest/HB1/CSNG_2.BAS deleted file mode 100644 index 9af0933..0000000 --- a/bwbtest/HB1/CSNG_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'CSNG' TEST PROGRAM -15 DEF CSNG(X)=X -20 DEFDBL X -30 X=123456789.0123456 -40 PRINT "CSNG CHANGES THE VALUE OF X FROM";X;"TO";CSNG(X) -50 PRINT "AND BACK TO THE VALUE OF";X;"WHEN REMOVED" -99 END diff --git a/bwbtest/HB1/CSNG_2.run b/bwbtest/HB1/CSNG_2.run deleted file mode 100644 index 60fe2f7..0000000 --- a/bwbtest/HB1/CSNG_2.run +++ /dev/null @@ -1,2 +0,0 @@ -CSNG CHANGES THE VALUE OF X FROM 1.23457E+8 TO 1.23457E+8 -AND BACK TO THE VALUE OF 1.23457E+8 WHEN REMOVED diff --git a/bwbtest/HB1/DATA_1.BAS b/bwbtest/HB1/DATA_1.BAS deleted file mode 100644 index 0e302c0..0000000 --- a/bwbtest/HB1/DATA_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'DATA' TEST PROGRAM -20 DATA 20,-10,.5 -30 READ A,B,C -40 D=A+B+C -50 PRINT "D=";D -60 PRINT "DATA PASSED THE TEST IF D = 10.5" -99 END diff --git a/bwbtest/HB1/DATA_1.run b/bwbtest/HB1/DATA_1.run deleted file mode 100644 index e14cf52..0000000 --- a/bwbtest/HB1/DATA_1.run +++ /dev/null @@ -1,2 +0,0 @@ -D= 10.5 -DATA PASSED THE TEST IF D = 10.5 diff --git a/bwbtest/HB1/DATA_2.BAS b/bwbtest/HB1/DATA_2.BAS deleted file mode 100644 index f06cb35..0000000 --- a/bwbtest/HB1/DATA_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'DATA' TEST PROGRAM USING STRINGS -20 DATA "LINE NUMBER",20,"PASSED" -30 READ A$,A,B$ -40 PRINT "DATA STATEMENT IN ";A$;A;B$;" THE TEST" -99 END diff --git a/bwbtest/HB1/DATA_2.run b/bwbtest/HB1/DATA_2.run deleted file mode 100644 index 119f329..0000000 --- a/bwbtest/HB1/DATA_2.run +++ /dev/null @@ -1 +0,0 @@ -DATA STATEMENT IN LINE NUMBER 20 PASSED THE TEST diff --git a/bwbtest/HB1/DATA_3.BAS b/bwbtest/HB1/DATA_3.BAS deleted file mode 100644 index b30ddcb..0000000 --- a/bwbtest/HB1/DATA_3.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'DATA' TEST PROGRAM USING STRINGS -20 DATA LINE NUMBER,20,PASSED -30 READ A$,A,B$ -40 PRINT "DATA STATEMENT IN ";A$;A;B$;" THE TEST" -99 END diff --git a/bwbtest/HB1/DATA_3.run b/bwbtest/HB1/DATA_3.run deleted file mode 100644 index 119f329..0000000 --- a/bwbtest/HB1/DATA_3.run +++ /dev/null @@ -1 +0,0 @@ -DATA STATEMENT IN LINE NUMBER 20 PASSED THE TEST diff --git a/bwbtest/HB1/DEFDBL_1.BAS b/bwbtest/HB1/DEFDBL_1.BAS deleted file mode 100644 index 5e75924..0000000 --- a/bwbtest/HB1/DEFDBL_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'DEFDBL' TEST PROGRAM -20 A=1.234567890123456 -30 PRINT "DEFDBL IN LINE 50 CHANGED THE VALUE OF VARIABLE 'A'" -40 PRINT "FROM";A;"TO"; -50 DEFDBL A -60 A=1.234567890123456 -70 PRINT A -99 END diff --git a/bwbtest/HB1/DEFDBL_1.run b/bwbtest/HB1/DEFDBL_1.run deleted file mode 100644 index e30c47e..0000000 --- a/bwbtest/HB1/DEFDBL_1.run +++ /dev/null @@ -1,2 +0,0 @@ -DEFDBL IN LINE 50 CHANGED THE VALUE OF VARIABLE 'A' -FROM 1.23457 TO 1.23457 diff --git a/bwbtest/HB1/DEFDBL_2.BAS b/bwbtest/HB1/DEFDBL_2.BAS deleted file mode 100644 index cca650d..0000000 --- a/bwbtest/HB1/DEFDBL_2.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'DEFDBL' (WITH MULTIPLE VARIABLES) TEST PROGRAM -20 DEFDBL A,G,L-N -30 A=1/3 -40 G=2/3 -50 L=1/9 -60 M=1.2345678901234567D+38 -70 N=-1.2345678901234567D+38 -80 PRINT "DEFDBL PASSED THE TEST IF THE FOLLOWING" -90 PRINT "NUMBERS CONTAIN MORE THAN 7 DIGITS:" -100 PRINT A;G;L;M;N -999 END diff --git a/bwbtest/HB1/DEFDBL_2.run b/bwbtest/HB1/DEFDBL_2.run deleted file mode 100644 index 1d713ae..0000000 --- a/bwbtest/HB1/DEFDBL_2.run +++ /dev/null @@ -1,3 +0,0 @@ -DEFDBL PASSED THE TEST IF THE FOLLOWING -NUMBERS CONTAIN MORE THAN 7 DIGITS: - .333333 .666667 .111111 1.23457E+38 -1.23457E+38 diff --git a/bwbtest/HB1/DEFDBL_3.BAS b/bwbtest/HB1/DEFDBL_3.BAS deleted file mode 100644 index ef20715..0000000 --- a/bwbtest/HB1/DEFDBL_3.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'DEFDBL' (WITH MULTIPLE VARIABLES) TEST PROGRAM -20 DEFDBL A,G,L-N -30 A=1/3# -40 G=2/3# -50 L=1/9# -60 M=1.2345678901234567D+38 -70 N=-1.2345678901234567D+38 -80 PRINT "DEFDBL PASSED THE TEST IF THE FOLLOWING" -90 PRINT "NUMBERS CONTAIN MORE THAN 7 DIGITS:" -100 PRINT A;G;L;M;N -999 END diff --git a/bwbtest/HB1/DEFDBL_3.run b/bwbtest/HB1/DEFDBL_3.run deleted file mode 100644 index 1d713ae..0000000 --- a/bwbtest/HB1/DEFDBL_3.run +++ /dev/null @@ -1,3 +0,0 @@ -DEFDBL PASSED THE TEST IF THE FOLLOWING -NUMBERS CONTAIN MORE THAN 7 DIGITS: - .333333 .666667 .111111 1.23457E+38 -1.23457E+38 diff --git a/bwbtest/HB1/DEFINT_1.BAS b/bwbtest/HB1/DEFINT_1.BAS deleted file mode 100644 index aeb486c..0000000 --- a/bwbtest/HB1/DEFINT_1.BAS +++ /dev/null @@ -1,16 +0,0 @@ - 10 REM 'DEFINT' TEST PROGRAM - 20 DEFINT A - 30 A=12.68 - 35 PRINT "A=";A - 40 B=12.68 - 45 PRINT "B=";B - 50 IF A=12 THEN 70 - 55 IF A=13 THEN 70 - 60 GOTO 80 - 70 IF B=12.68 THEN 100 - 80 PRINT "DEFINT FAILED THE TEST LINE 20" - 90 GOTO 999 - 100 PRINT "THE DEFINT STATEMENT PASSED THE TEST IN LINE 20 BY" - 110 PRINT "CHANGED THE VALUE OF VARIABLE A FROM";B;"TO";A - 999 END - diff --git a/bwbtest/HB1/DEFINT_1.run b/bwbtest/HB1/DEFINT_1.run deleted file mode 100644 index 0634645..0000000 --- a/bwbtest/HB1/DEFINT_1.run +++ /dev/null @@ -1,4 +0,0 @@ -A= 13 -B= 12.68 -THE DEFINT STATEMENT PASSED THE TEST IN LINE 20 BY -CHANGED THE VALUE OF VARIABLE A FROM 12.68 TO 13 diff --git a/bwbtest/HB1/DEFINT_2.BAS b/bwbtest/HB1/DEFINT_2.BAS deleted file mode 100644 index 222a599..0000000 --- a/bwbtest/HB1/DEFINT_2.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'DEFINT' (WITH MULTIPLE VARIABLES) TEST PROGRAM -20 DEFINT A,G,L-N -30 A=6.25 -40 B=21.42 -50 G=-6.19 -60 L=4.001 -70 M=32000.999 -80 N=14.8 -90 PRINT "IF THE NUMBERS";A;G;L;M;N;"ARE INTEGERS," -100 PRINT "AND THE NUMBER";B;"IS A DECIMAL, THEN DEFINT" -110 PRINT "PASSED THE MULTIPLE VARIABLE TEST IN LINE 20." -999 END diff --git a/bwbtest/HB1/DEFINT_2.run b/bwbtest/HB1/DEFINT_2.run deleted file mode 100644 index 9817bdf..0000000 --- a/bwbtest/HB1/DEFINT_2.run +++ /dev/null @@ -1,3 +0,0 @@ -IF THE NUMBERS 6 -6 4 32001 15 ARE INTEGERS, -AND THE NUMBER 21.42 IS A DECIMAL, THEN DEFINT -PASSED THE MULTIPLE VARIABLE TEST IN LINE 20. diff --git a/bwbtest/HB1/DEFINT_3.BAS b/bwbtest/HB1/DEFINT_3.BAS deleted file mode 100644 index 31aa03f..0000000 --- a/bwbtest/HB1/DEFINT_3.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'DEFINT' TEST PROGRAM -20 REM USES DOUBLE-PRECISION TYPE DECLARATION CHARACTER '#' -30 DEFINT A,B -40 A=9.123456789012345 -50 B#=9.123456789012345 -60 IF A=B# THEN 110 -70 PRINT "A =";A -80 PRINT "B#=";B# -90 PRINT "THE TEST PASSED, SHOWING # OVER-RIDING DEFINT" -100 GOTO 999 -110 PRINT "THE # CHARACTER OVER-RIDE FEATURE FAILED THE TEST" -999 END diff --git a/bwbtest/HB1/DEFINT_3.run b/bwbtest/HB1/DEFINT_3.run deleted file mode 100644 index 0fb032d..0000000 --- a/bwbtest/HB1/DEFINT_3.run +++ /dev/null @@ -1,3 +0,0 @@ -A = 9 -B#= 9.12346 -THE TEST PASSED, SHOWING # OVER-RIDING DEFINT diff --git a/bwbtest/HB1/DEFSNG_1.BAS b/bwbtest/HB1/DEFSNG_1.BAS deleted file mode 100644 index e468dc0..0000000 --- a/bwbtest/HB1/DEFSNG_1.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'DEFSNG' TEST PROGRAM -20 DEFDBL X,Y -30 X=1.234567890123456 -40 Y=X -50 PRINT "DOUBLE PRECISION VALUE OF Y=";Y -55 ERASE Y -60 DEFSNG Y -70 Y=X -80 PRINT "SINGLE PRECISION VALUE OF Y=";Y -99 END diff --git a/bwbtest/HB1/DEFSNG_1.run b/bwbtest/HB1/DEFSNG_1.run deleted file mode 100644 index bfc4de5..0000000 --- a/bwbtest/HB1/DEFSNG_1.run +++ /dev/null @@ -1,2 +0,0 @@ -DOUBLE PRECISION VALUE OF Y= 1.23457 -SINGLE PRECISION VALUE OF Y= 1.23457 diff --git a/bwbtest/HB1/DEFSNG_2.BAS b/bwbtest/HB1/DEFSNG_2.BAS deleted file mode 100644 index c2c0e51..0000000 --- a/bwbtest/HB1/DEFSNG_2.BAS +++ /dev/null @@ -1,18 +0,0 @@ -10 REM 'DEFSNG' (WITH MULTIPLE VARIABLES) TEST PROGRAM -20 DEFDBL A,G,L-N -30 GOSUB 200 -40 PRINT "THE DOUBLE PRECISION VALUES OF A,G,L,M AND N ARE" -50 PRINT A;G;L;M;N -60 DEFSNG A,G,L-N -70 GOSUB 200 -80 PRINT "THE SINGLE PRECISION VALUES OF A,G,L,M AND N ARE" -90 PRINT A;G;L;M;N -100 GOTO 999 -200 REM SUBROUTINE -210 A=1234.567890 -220 G=A/10 -230 L=G/10 -240 M=L/10 -250 N=M/10 -260 RETURN -999 END diff --git a/bwbtest/HB1/DEFSNG_2.run b/bwbtest/HB1/DEFSNG_2.run deleted file mode 100644 index 1893ee5..0000000 --- a/bwbtest/HB1/DEFSNG_2.run +++ /dev/null @@ -1,4 +0,0 @@ -THE DOUBLE PRECISION VALUES OF A,G,L,M AND N ARE - 1234.57 123.457 12.3457 1.23457 .123457 -THE SINGLE PRECISION VALUES OF A,G,L,M AND N ARE - 1234.57 123.457 12.3457 1.23457 .123457 diff --git a/bwbtest/HB1/DEFSNG_3.BAS b/bwbtest/HB1/DEFSNG_3.BAS deleted file mode 100644 index 0535740..0000000 --- a/bwbtest/HB1/DEFSNG_3.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'DEFSNG' TEST PROGRAM -20 REM USES DOUBLE PRECISION DECLARATION CHARACTER '#' -30 DEFSNG A,B -40 A=1.234567890123456 -50 B#=1.234567890123456 -60 IF A=B# THEN 110 -70 PRINT "A =";A -80 PRINT "B#=";B# -90 PRINT "THE TEST PASSED WITH # OVER-RIDING DEFSNG" -100 GOTO 999 -110 PRINT "THE # CHARACTER OVER-RIDE FEATURE FAILED THE TEST" -999 END diff --git a/bwbtest/HB1/DEFSNG_3.run b/bwbtest/HB1/DEFSNG_3.run deleted file mode 100644 index 0e80b66..0000000 --- a/bwbtest/HB1/DEFSNG_3.run +++ /dev/null @@ -1 +0,0 @@ -THE # CHARACTER OVER-RIDE FEATURE FAILED THE TEST diff --git a/bwbtest/HB1/DEFSTR_1.BAS b/bwbtest/HB1/DEFSTR_1.BAS deleted file mode 100644 index ae562be..0000000 --- a/bwbtest/HB1/DEFSTR_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ - 10 REM 'DEFSTR' TEST PROGRAM - 20 A=25 - 30 PRINT "NUMERIC STRING A=";A - 35 ERASE A - 40 DEFSTR A - 50 A="TEST STRING" - 60 PRINT "STRING VARIABLE A=";A - 99 END - diff --git a/bwbtest/HB1/DEFSTR_1.run b/bwbtest/HB1/DEFSTR_1.run deleted file mode 100644 index 49a77d6..0000000 --- a/bwbtest/HB1/DEFSTR_1.run +++ /dev/null @@ -1,2 +0,0 @@ -NUMERIC STRING A= 25 -STRING VARIABLE A=TEST STRING diff --git a/bwbtest/HB1/DEFSTR_2.BAS b/bwbtest/HB1/DEFSTR_2.BAS deleted file mode 100644 index ef65be2..0000000 --- a/bwbtest/HB1/DEFSTR_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM DEFSTR (WITH MULTIPLE VARIABLES) TEST PROGRAM -20 DEFSTR A,G,L-N -30 A="DEFSTR " -40 G="PASSED THE " -50 L="MULTIPLE VARIABLE " -60 M="TEST " -70 N="IN LINE 20." -80 PRINT A;G;L;M;N -99 END diff --git a/bwbtest/HB1/DEFSTR_2.run b/bwbtest/HB1/DEFSTR_2.run deleted file mode 100644 index d06523c..0000000 --- a/bwbtest/HB1/DEFSTR_2.run +++ /dev/null @@ -1 +0,0 @@ -DEFSTR PASSED THE MULTIPLE VARIABLE TEST IN LINE 20. diff --git a/bwbtest/HB1/DEFSTR_3.BAS b/bwbtest/HB1/DEFSTR_3.BAS deleted file mode 100644 index 12c81a8..0000000 --- a/bwbtest/HB1/DEFSTR_3.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM DEFSTR (WITH MULTIPLE VARIABLES) TEST PROGRAM -20 DEFSTR A,G,L-N -30 A="DEFSTR " -40 G="PASSED THE " -50 L="MULTIPLE VARIABLE " -60 M="TEST " -70 N="IN LINE" -80 PRINT A;G;L;M;N -85 A!=20 -90 PRINT A! -99 END diff --git a/bwbtest/HB1/DEFSTR_3.run b/bwbtest/HB1/DEFSTR_3.run deleted file mode 100644 index fc4ff23..0000000 --- a/bwbtest/HB1/DEFSTR_3.run +++ /dev/null @@ -1,2 +0,0 @@ -DEFSTR PASSED THE MULTIPLE VARIABLE TEST IN LINE - 20 diff --git a/bwbtest/HB1/DEF_1.BAS b/bwbtest/HB1/DEF_1.BAS deleted file mode 100644 index 180b525..0000000 --- a/bwbtest/HB1/DEF_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'DEF' TEST PROGRAM -20 PRINT "ENTER THE RADIUS OF A CIRCLE (IN INCHES)"; -30 INPUT R -40 DEF FNC(X)=3.14159*X -50 PRINT "THE CIRCUMFERENCE OF A CIRCLE" -60 PRINT "WITH A RADIUS OF";R;"INCHES IS";FNC(R);"INCHES" -99 END diff --git a/bwbtest/HB1/DEF_1.INP b/bwbtest/HB1/DEF_1.INP deleted file mode 100644 index f599e28..0000000 --- a/bwbtest/HB1/DEF_1.INP +++ /dev/null @@ -1 +0,0 @@ -10 diff --git a/bwbtest/HB1/DEF_1.run b/bwbtest/HB1/DEF_1.run deleted file mode 100644 index 752fcd9..0000000 --- a/bwbtest/HB1/DEF_1.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER THE RADIUS OF A CIRCLE (IN INCHES)? 10 -THE CIRCUMFERENCE OF A CIRCLE -WITH A RADIUS OF 10 INCHES IS 31.4159 INCHES diff --git a/bwbtest/HB1/DEF_2.BAS b/bwbtest/HB1/DEF_2.BAS deleted file mode 100644 index 9e8218b..0000000 --- a/bwbtest/HB1/DEF_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'DEF' MULTIPLE VARIABLE TEST PROGRAM -20 DEF FNA(X,Y)=(X+Y)/2 -30 PRINT "ENTER ANY TWO NUMBERS"; -40 INPUT X,Y -50 A=FNA(X,Y) -60 PRINT "THE AVERAGE OF";X;"AND";Y;"IS";A -99 END diff --git a/bwbtest/HB1/DEF_2.INP b/bwbtest/HB1/DEF_2.INP deleted file mode 100644 index 8847622..0000000 --- a/bwbtest/HB1/DEF_2.INP +++ /dev/null @@ -1 +0,0 @@ -10,20 diff --git a/bwbtest/HB1/DEF_2.run b/bwbtest/HB1/DEF_2.run deleted file mode 100644 index 72f2d26..0000000 --- a/bwbtest/HB1/DEF_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER ANY TWO NUMBERS? 10,20 -THE AVERAGE OF 10 AND 20 IS 15 diff --git a/bwbtest/HB1/DEF_3.BAS b/bwbtest/HB1/DEF_3.BAS deleted file mode 100644 index c46dcc1..0000000 --- a/bwbtest/HB1/DEF_3.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'DEF' REQUIRING MORE THAN ONE LINE -20 PRINT "ENTER A VALUE FOR X THAT IS GREATER OR LESS THAN 10"; -30 INPUT X -40 DEF FNA(X) -50 FNA=X*2 -60 IF X<10 THEN 80 -70 FNA=X/2 -80 FNEND -90 PRINT "THE NEW VALUE FOR X IS";FNA(X) -99 END diff --git a/bwbtest/HB1/DEF_3.INP b/bwbtest/HB1/DEF_3.INP deleted file mode 100644 index 64bb6b7..0000000 --- a/bwbtest/HB1/DEF_3.INP +++ /dev/null @@ -1 +0,0 @@ -30 diff --git a/bwbtest/HB1/DEF_3.run b/bwbtest/HB1/DEF_3.run deleted file mode 100644 index 4c7e925..0000000 --- a/bwbtest/HB1/DEF_3.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VALUE FOR X THAT IS GREATER OR LESS THAN 10? 30 -THE NEW VALUE FOR X IS 15 diff --git a/bwbtest/HB1/DEG_1.BAS b/bwbtest/HB1/DEG_1.BAS deleted file mode 100644 index d60bc62..0000000 --- a/bwbtest/HB1/DEG_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ - 10 REM 'DEG COMMAND' TEST PROGRAM - 20 A=SIN(1.4) - 30 PRINT "THE SINE OF 1.4 RADIANS IS";A - 40 DEG - 50 A=SIN(1.4) - 60 PRINT "THE SINE OF 1.4 DEGREES IS";A - 70 RAD - 80 A=SIN(1.4) - 90 PRINT "THE SINE OF 1.4 RADIANS IS";A - 99 END - diff --git a/bwbtest/HB1/DEG_1.run b/bwbtest/HB1/DEG_1.run deleted file mode 100644 index d1abc84..0000000 --- a/bwbtest/HB1/DEG_1.run +++ /dev/null @@ -1,3 +0,0 @@ -THE SINE OF 1.4 RADIANS IS .98545 -THE SINE OF 1.4 DEGREES IS 2.44322E-2 -THE SINE OF 1.4 RADIANS IS .98545 diff --git a/bwbtest/HB1/DEG_2.BAS b/bwbtest/HB1/DEG_2.BAS deleted file mode 100644 index 8155f8f..0000000 --- a/bwbtest/HB1/DEG_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'DEG FUNCTION' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN RADIANS)"; -30 INPUT A -40 B=DEG(A) -50 PRINT "THE RADIAN ANGLE OF";A;"IS EQUAL TO";B;"DEGREES" -99 END diff --git a/bwbtest/HB1/DEG_2.INP b/bwbtest/HB1/DEG_2.INP deleted file mode 100644 index 6324d40..0000000 --- a/bwbtest/HB1/DEG_2.INP +++ /dev/null @@ -1 +0,0 @@ -3.14 diff --git a/bwbtest/HB1/DEG_2.run b/bwbtest/HB1/DEG_2.run deleted file mode 100644 index f398429..0000000 --- a/bwbtest/HB1/DEG_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN RADIANS)? 3.14 -THE RADIAN ANGLE OF 3.14 IS EQUAL TO 179.909 DEGREES diff --git a/bwbtest/HB1/DEG_3.BAS b/bwbtest/HB1/DEG_3.BAS deleted file mode 100644 index 4176de6..0000000 --- a/bwbtest/HB1/DEG_3.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'DEG FUNCTION' TEST PROGRAM -15 DEF DEG(X)=X*57.29578 -20 PRINT "ENTER AN ANGLE (EXPRESSED IN RADIANS)"; -30 INPUT A -40 B=DEG(A) -50 PRINT "THE RADIAN ANGLE OF";A;"IS EQUAL TO";B;"DEGREES" -99 END diff --git a/bwbtest/HB1/DEG_3.INP b/bwbtest/HB1/DEG_3.INP deleted file mode 100644 index 6324d40..0000000 --- a/bwbtest/HB1/DEG_3.INP +++ /dev/null @@ -1 +0,0 @@ -3.14 diff --git a/bwbtest/HB1/DEG_3.run b/bwbtest/HB1/DEG_3.run deleted file mode 100644 index f398429..0000000 --- a/bwbtest/HB1/DEG_3.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN RADIANS)? 3.14 -THE RADIAN ANGLE OF 3.14 IS EQUAL TO 179.909 DEGREES diff --git a/bwbtest/HB1/DELETE_1.BAS b/bwbtest/HB1/DELETE_1.BAS deleted file mode 100644 index 0c9ba3d..0000000 --- a/bwbtest/HB1/DELETE_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'DELETE' TEST PROGRAM -20 PRINT "LINE 20" -30 PRINT "LINE 30" -40 PRINT "LINE 40" -50 PRINT "LINE 50" -60 PRINT "LINE 60" -70 PRINT "LINE 70 - END OF DELETE TEST" -99 END diff --git a/bwbtest/HB1/DELETE_1.INP b/bwbtest/HB1/DELETE_1.INP deleted file mode 100644 index f299ede..0000000 --- a/bwbtest/HB1/DELETE_1.INP +++ /dev/null @@ -1,15 +0,0 @@ -LIST -DELETE 50 -LIST -RUN -DELETE 30-40 -LIST -RUN -DELETE 20,40-60 -LIST -RUN -DELETE 30- -LIST -RUN -DELETE -999 -LIST diff --git a/bwbtest/HB1/DELETE_1.run b/bwbtest/HB1/DELETE_1.run deleted file mode 100644 index 6ccb845..0000000 --- a/bwbtest/HB1/DELETE_1.run +++ /dev/null @@ -1,60 +0,0 @@ -LINE 20 -LINE 30 -LINE 40 -LINE 50 -LINE 60 -LINE 70 - END OF DELETE TEST -bwBASIC: LIST - 10 REM 'DELETE' TEST PROGRAM - 20 PRINT "LINE 20" - 30 PRINT "LINE 30" - 40 PRINT "LINE 40" - 50 PRINT "LINE 50" - 60 PRINT "LINE 60" - 70 PRINT "LINE 70 - END OF DELETE TEST" - 99 END - -bwBASIC: DELETE 50 -bwBASIC: LIST - 10 REM 'DELETE' TEST PROGRAM - 20 PRINT "LINE 20" - 30 PRINT "LINE 30" - 40 PRINT "LINE 40" - 60 PRINT "LINE 60" - 70 PRINT "LINE 70 - END OF DELETE TEST" - 99 END - -bwBASIC: RUN -LINE 20 -LINE 30 -LINE 40 -LINE 60 -LINE 70 - END OF DELETE TEST -bwBASIC: DELETE 30-40 -bwBASIC: LIST - 10 REM 'DELETE' TEST PROGRAM - 20 PRINT "LINE 20" - 60 PRINT "LINE 60" - 70 PRINT "LINE 70 - END OF DELETE TEST" - 99 END - -bwBASIC: RUN -LINE 20 -LINE 60 -LINE 70 - END OF DELETE TEST -bwBASIC: DELETE 20,40-60 -bwBASIC: LIST - 10 REM 'DELETE' TEST PROGRAM - 70 PRINT "LINE 70 - END OF DELETE TEST" - 99 END - -bwBASIC: RUN -LINE 70 - END OF DELETE TEST -bwBASIC: DELETE 30- -bwBASIC: LIST - 10 REM 'DELETE' TEST PROGRAM - -bwBASIC: RUN -bwBASIC: DELETE -999 -bwBASIC: LIST - diff --git a/bwbtest/HB1/DIM_1.BAS b/bwbtest/HB1/DIM_1.BAS deleted file mode 100644 index 9c7852d..0000000 --- a/bwbtest/HB1/DIM_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'DIM' NUMERIC ARRAY TEST PROGRAM -20 DIM A(10) -30 PRINT "THESE NUMBERS ARE STORED IN AND PRINTED" -40 PRINT "FROM A SINGLE DIMENSION NUMERIC ARRAY." -50 FOR X=1 TO 10 -60 A(X)=X -70 PRINT A(X); -80 NEXT X -99 END diff --git a/bwbtest/HB1/DIM_1.run b/bwbtest/HB1/DIM_1.run deleted file mode 100644 index de9f4c2..0000000 --- a/bwbtest/HB1/DIM_1.run +++ /dev/null @@ -1,3 +0,0 @@ -THESE NUMBERS ARE STORED IN AND PRINTED -FROM A SINGLE DIMENSION NUMERIC ARRAY. - 1 2 3 4 5 6 7 8 9 10 diff --git a/bwbtest/HB1/DIM_2.BAS b/bwbtest/HB1/DIM_2.BAS deleted file mode 100644 index 97a0c7c..0000000 --- a/bwbtest/HB1/DIM_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'DIM' NUMERIC ARRAY TEST PROGRAM -20 DIM A(10) -30 PRINT "THESE NUMBERS ARE STORED IN AND PRINTED" -40 PRINT "FROM A SINGLE DIMENSION NUMERIC ARRAY." -50 FOR X=0 TO 10 -60 A(X)=X -70 PRINT A(X); -80 NEXT X -99 END diff --git a/bwbtest/HB1/DIM_2.run b/bwbtest/HB1/DIM_2.run deleted file mode 100644 index 6850d0d..0000000 --- a/bwbtest/HB1/DIM_2.run +++ /dev/null @@ -1,3 +0,0 @@ -THESE NUMBERS ARE STORED IN AND PRINTED -FROM A SINGLE DIMENSION NUMERIC ARRAY. - 0 1 2 3 4 5 6 7 8 9 10 diff --git a/bwbtest/HB1/DIM_3.BAS b/bwbtest/HB1/DIM_3.BAS deleted file mode 100644 index 4b369a4..0000000 --- a/bwbtest/HB1/DIM_3.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'DIM' NUMERIC ARRAY TEST PROGRAM -30 PRINT "THESE NUMBERS ARE STORED IN AND PRINTED" -40 PRINT "FROM A SINGLE DIMENSION NUMERIC ARRAY." -50 FOR X=1 TO 10 -60 A(X)=X -70 PRINT A(X); -80 NEXT X -99 END diff --git a/bwbtest/HB1/DIM_3.run b/bwbtest/HB1/DIM_3.run deleted file mode 100644 index de9f4c2..0000000 --- a/bwbtest/HB1/DIM_3.run +++ /dev/null @@ -1,3 +0,0 @@ -THESE NUMBERS ARE STORED IN AND PRINTED -FROM A SINGLE DIMENSION NUMERIC ARRAY. - 1 2 3 4 5 6 7 8 9 10 diff --git a/bwbtest/HB1/DIM_4.BAS b/bwbtest/HB1/DIM_4.BAS deleted file mode 100644 index 179ce0f..0000000 --- a/bwbtest/HB1/DIM_4.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'DIM' NUMERIC ARRAY TEST PROGRAM -20 DIM A(15) -30 PRINT "THESE NUMBERS ARE STORED IN AND PRINTED" -40 PRINT "FROM A SINGLE DIMENSION NUMERIC ARRAY." -50 FOR X=1 TO 15 -60 A(X)=X -70 PRINT A(X); -80 NEXT X -99 END diff --git a/bwbtest/HB1/DIM_4.run b/bwbtest/HB1/DIM_4.run deleted file mode 100644 index 0dd252a..0000000 --- a/bwbtest/HB1/DIM_4.run +++ /dev/null @@ -1,3 +0,0 @@ -THESE NUMBERS ARE STORED IN AND PRINTED -FROM A SINGLE DIMENSION NUMERIC ARRAY. - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 diff --git a/bwbtest/HB1/DIM_5.BAS b/bwbtest/HB1/DIM_5.BAS deleted file mode 100644 index 8bdc5b6..0000000 --- a/bwbtest/HB1/DIM_5.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'DIM' STRING ARRAY TEST PROGRAM -20 DIM A$(10) -30 FOR X=1 TO 4 -40 READ A$(X) -50 NEXT X -60 PRINT "THE 'DIM' STATEMENT PASSED THE"; -70 FOR X=1 TO 4 -80 PRINT A$(X); -90 NEXT X -100 DATA T,E,S,T -999 END diff --git a/bwbtest/HB1/DIM_5.run b/bwbtest/HB1/DIM_5.run deleted file mode 100644 index 6e921e4..0000000 --- a/bwbtest/HB1/DIM_5.run +++ /dev/null @@ -1 +0,0 @@ -THE 'DIM' STATEMENT PASSED THETEST diff --git a/bwbtest/HB1/DIM_6.BAS b/bwbtest/HB1/DIM_6.BAS deleted file mode 100644 index c6f3123..0000000 --- a/bwbtest/HB1/DIM_6.BAS +++ /dev/null @@ -1,16 +0,0 @@ -10 REM 'DIM' TWO DIMENSION ARRAY TEST PROGRAM -20 DIM A(3,4) -30 PRINT "THESE NUMBERS ARE STORED IN AND PRINTED" -40 PRINT "FROM A TWO DIMENSION NUMERIC ARRAY." -50 FOR I=1 TO 3 -60 FOR J=1 TO 4 -70 A(I,J)=I -80 NEXT J -90 NEXT I -100 FOR I=1 TO 3 -110 FOR J=1 TO 4 -120 PRINT A(I,J), -130 NEXT J -140 PRINT -150 NEXT I -999 END diff --git a/bwbtest/HB1/DIM_6.run b/bwbtest/HB1/DIM_6.run deleted file mode 100644 index 909bbdf..0000000 --- a/bwbtest/HB1/DIM_6.run +++ /dev/null @@ -1,5 +0,0 @@ -THESE NUMBERS ARE STORED IN AND PRINTED -FROM A TWO DIMENSION NUMERIC ARRAY. - 1 1 1 1 - 2 2 2 2 - 3 3 3 3 diff --git a/bwbtest/HB1/DIM_7.BAS b/bwbtest/HB1/DIM_7.BAS deleted file mode 100644 index bc6556e..0000000 --- a/bwbtest/HB1/DIM_7.BAS +++ /dev/null @@ -1,21 +0,0 @@ -10 REM 'DIM' THREE DIMENSION ARRAY TEST PROGRAM -20 DIM A(3,4,2) -30 PRINT "THESE NUMBERS ARE STORED IN AND PRINTED" -40 PRINT "FROM A THREE DIMENSION NUMERIC ARRAY." -50 FOR K=1 TO 2 -60 FOR I=1 TO 3 -70 FOR J=1 TO 4 -80 A(I,J,K)=I -90 NEXT J -100 NEXT I -110 NEXT K -120 FOR K=1 TO 2 -130 FOR I=1 TO 3 -140 FOR J=1 TO 4 -150 PRINT A(I,J,K), -160 NEXT J -165 PRINT -170 NEXT I -180 PRINT -190 NEXT K -999 END diff --git a/bwbtest/HB1/DIM_7.run b/bwbtest/HB1/DIM_7.run deleted file mode 100644 index 730dfc8..0000000 --- a/bwbtest/HB1/DIM_7.run +++ /dev/null @@ -1,10 +0,0 @@ -THESE NUMBERS ARE STORED IN AND PRINTED -FROM A THREE DIMENSION NUMERIC ARRAY. - 1 1 1 1 - 2 2 2 2 - 3 3 3 3 - - 1 1 1 1 - 2 2 2 2 - 3 3 3 3 - diff --git a/bwbtest/HB1/DSP_1.BAS b/bwbtest/HB1/DSP_1.BAS deleted file mode 100644 index 45f1f3f..0000000 --- a/bwbtest/HB1/DSP_1.BAS +++ /dev/null @@ -1,10 +0,0 @@ -01 DIM A,B -10 REM 'DSP' TEST PROGRAM -20 DSP A -30 DSP B -40 A=5 -50 B=10 -60 C=A*B -70 A=A+C -80 PRINT "THE DSP STATEMENT PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/DSP_1.run b/bwbtest/HB1/DSP_1.run deleted file mode 100644 index 7a56b5f..0000000 --- a/bwbtest/HB1/DSP_1.run +++ /dev/null @@ -1,4 +0,0 @@ -#40 A= 5 -#50 B= 10 -#70 A= 55 -THE DSP STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1/D_1.BAS b/bwbtest/HB1/D_1.BAS deleted file mode 100644 index 28b8e22..0000000 --- a/bwbtest/HB1/D_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'D' DOUBLE PRECISION EXPONENT TEST PROGRAM -20 A#=1234567890123456789 -30 PRINT "EXPONENTIAL NOTATION 'D' PASSED THE TEST IF" -40 PRINT A#;"CONTAINS THE LETTER 'D'" -99 END diff --git a/bwbtest/HB1/D_1.run b/bwbtest/HB1/D_1.run deleted file mode 100644 index edbdc87..0000000 --- a/bwbtest/HB1/D_1.run +++ /dev/null @@ -1,2 +0,0 @@ -EXPONENTIAL NOTATION 'D' PASSED THE TEST IF - 1.23457E+18 CONTAINS THE LETTER 'D' diff --git a/bwbtest/HB1/EDIT_1.BAS b/bwbtest/HB1/EDIT_1.BAS deleted file mode 100644 index c9b43d0..0000000 --- a/bwbtest/HB1/EDIT_1.BAS +++ /dev/null @@ -1,4 +0,0 @@ - 10 REM 'EDIT' TEST PROGRAM - 20 PRINT "CAN THIS PROGRAM BE MODIFIED" - 30 PRINT "BY THE EDIT COMMAND?" - 99 END diff --git a/bwbtest/HB1/EDIT_1.PRO b/bwbtest/HB1/EDIT_1.PRO deleted file mode 100644 index d6ea4c8..0000000 --- a/bwbtest/HB1/EDIT_1.PRO +++ /dev/null @@ -1 +0,0 @@ -BWB.EDITOR$="nano" diff --git a/bwbtest/HB1/EDIT_1.run b/bwbtest/HB1/EDIT_1.run deleted file mode 100644 index 06a4ffe..0000000 --- a/bwbtest/HB1/EDIT_1.run +++ /dev/null @@ -1,2 +0,0 @@ -CAN THIS PROGRAM BE MODIFIED -BY THE EDIT COMMAND? diff --git a/bwbtest/HB1/ELSE_1.BAS b/bwbtest/HB1/ELSE_1.BAS deleted file mode 100644 index fa9179e..0000000 --- a/bwbtest/HB1/ELSE_1.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'ELSE' TEST PROGRAM -20 X=1 -30 IF X<5 THEN 60 ELSE GOTO 90 -40 PRINT "ELSE FAILED THE TEST" -50 GOTO 99 -60 PRINT X; -70 X=X+1 -80 GOTO 30 -90 PRINT "'ELSE' PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/ELSE_1.run b/bwbtest/HB1/ELSE_1.run deleted file mode 100644 index 5b60277..0000000 --- a/bwbtest/HB1/ELSE_1.run +++ /dev/null @@ -1 +0,0 @@ - 1 2 3 4 'ELSE' PASSED THE TEST diff --git a/bwbtest/HB1/ELSE_2.BAS b/bwbtest/HB1/ELSE_2.BAS deleted file mode 100644 index 63feccb..0000000 --- a/bwbtest/HB1/ELSE_2.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'ELSE' (WITHOUT 'GOTO') TEST PROGRAM -20 X=1 -30 IF X<5 THEN 60 ELSE 90 -40 PRINT "ELSE FAILED THE TEST" -50 GOTO 99 -60 PRINT X; -70 X=X+1 -80 GOTO 30 -90 PRINT "'ELSE' PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/ELSE_2.run b/bwbtest/HB1/ELSE_2.run deleted file mode 100644 index 5b60277..0000000 --- a/bwbtest/HB1/ELSE_2.run +++ /dev/null @@ -1 +0,0 @@ - 1 2 3 4 'ELSE' PASSED THE TEST diff --git a/bwbtest/HB1/END_1.BAS b/bwbtest/HB1/END_1.BAS deleted file mode 100644 index e3127f3..0000000 --- a/bwbtest/HB1/END_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'END' TEST PROGRAM -20 PRINT "THE FIRST END STATEMENT FOLLOWS" -30 END -40 PRINT "THE SECOND END STATEMENT FOLLOWS" -99 END diff --git a/bwbtest/HB1/END_1.INP b/bwbtest/HB1/END_1.INP deleted file mode 100644 index f31e2d0..0000000 --- a/bwbtest/HB1/END_1.INP +++ /dev/null @@ -1,6 +0,0 @@ -CONT -LIST -DELETE 99 -LIST -RUN -CONT diff --git a/bwbtest/HB1/END_1.run b/bwbtest/HB1/END_1.run deleted file mode 100644 index 03da91d..0000000 --- a/bwbtest/HB1/END_1.run +++ /dev/null @@ -1,21 +0,0 @@ -THE FIRST END STATEMENT FOLLOWS -bwBASIC: CONT -THE SECOND END STATEMENT FOLLOWS -bwBASIC: LIST - 10 REM 'END' TEST PROGRAM - 20 PRINT "THE FIRST END STATEMENT FOLLOWS" - 30 END - 40 PRINT "THE SECOND END STATEMENT FOLLOWS" - 99 END - -bwBASIC: DELETE 99 -bwBASIC: LIST - 10 REM 'END' TEST PROGRAM - 20 PRINT "THE FIRST END STATEMENT FOLLOWS" - 30 END - 40 PRINT "THE SECOND END STATEMENT FOLLOWS" - -bwBASIC: RUN -THE FIRST END STATEMENT FOLLOWS -bwBASIC: CONT -THE SECOND END STATEMENT FOLLOWS diff --git a/bwbtest/HB1/EQ_1.BAS b/bwbtest/HB1/EQ_1.BAS deleted file mode 100644 index 1b4ad3a..0000000 --- a/bwbtest/HB1/EQ_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'EQ (=)' (WITH 'LET') TEST PROGRAM -20 LET A EQ 10 -30 IF A EQ 10 THEN 60 -40 PRINT "THE EQ OPERATOR FAILED THE TEST" -50 GOTO 99 -60 PRINT "THE EQ OPERATOR PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/EQ_1.PRO b/bwbtest/HB1/EQ_1.PRO deleted file mode 100644 index 9ea9609..0000000 --- a/bwbtest/HB1/EQ_1.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION ENABLE OPERATOR "EQ" -REM 'LET' IS REQUIRED FOR ASSIGNMENT diff --git a/bwbtest/HB1/EQ_1.run b/bwbtest/HB1/EQ_1.run deleted file mode 100644 index 5ed8472..0000000 --- a/bwbtest/HB1/EQ_1.run +++ /dev/null @@ -1 +0,0 @@ -THE EQ OPERATOR PASSED THE TEST diff --git a/bwbtest/HB1/ERL_1.BAS b/bwbtest/HB1/ERL_1.BAS deleted file mode 100644 index 311eb3f..0000000 --- a/bwbtest/HB1/ERL_1.BAS +++ /dev/null @@ -1,13 +0,0 @@ -10 REM 'ERL' TEST PROGRAM -20 ON ERROR GOTO 100 -30 PRINT "ENTER THE NUMBER 10,20, THEN 30" -40 INPUT N -45 IF N < 0 THEN 999 -50 A=10/(N-10) -60 A=10/(N-20) -70 A=10/(N-30) -80 PRINT "THE NUMBER";N;"DID NOT CAUSE AN ERROR" -90 GOTO 30 -100 PRINT "AN ERROR HAS JUST OCCURRED IN LINE";ERL -110 RESUME 30 -999 END diff --git a/bwbtest/HB1/ERL_1.INP b/bwbtest/HB1/ERL_1.INP deleted file mode 100644 index 8d92e4d..0000000 --- a/bwbtest/HB1/ERL_1.INP +++ /dev/null @@ -1,7 +0,0 @@ -10 -20 -30 -1 -31 -0 --1 diff --git a/bwbtest/HB1/ERL_1.run b/bwbtest/HB1/ERL_1.run deleted file mode 100644 index c9bb8d9..0000000 --- a/bwbtest/HB1/ERL_1.run +++ /dev/null @@ -1,20 +0,0 @@ -ENTER THE NUMBER 10,20, THEN 30 -? 10 -AN ERROR HAS JUST OCCURRED IN LINE 50 -ENTER THE NUMBER 10,20, THEN 30 -? 20 -AN ERROR HAS JUST OCCURRED IN LINE 60 -ENTER THE NUMBER 10,20, THEN 30 -? 30 -AN ERROR HAS JUST OCCURRED IN LINE 70 -ENTER THE NUMBER 10,20, THEN 30 -? 1 -THE NUMBER 1 DID NOT CAUSE AN ERROR -ENTER THE NUMBER 10,20, THEN 30 -? 31 -THE NUMBER 31 DID NOT CAUSE AN ERROR -ENTER THE NUMBER 10,20, THEN 30 -? 0 -THE NUMBER 0 DID NOT CAUSE AN ERROR -ENTER THE NUMBER 10,20, THEN 30 -? -1 diff --git a/bwbtest/HB1/ERROR_1.BAS b/bwbtest/HB1/ERROR_1.BAS deleted file mode 100644 index 4380230..0000000 --- a/bwbtest/HB1/ERROR_1.BAS +++ /dev/null @@ -1,3 +0,0 @@ -10 INPUT N -20 IF N>32000 THEN ERROR 7, "OUT OF MEMORY" -99 END diff --git a/bwbtest/HB1/ERROR_1.INP b/bwbtest/HB1/ERROR_1.INP deleted file mode 100644 index 10130bb..0000000 --- a/bwbtest/HB1/ERROR_1.INP +++ /dev/null @@ -1 +0,0 @@ -32767 diff --git a/bwbtest/HB1/ERROR_1.run b/bwbtest/HB1/ERROR_1.run deleted file mode 100644 index aa26bfc..0000000 --- a/bwbtest/HB1/ERROR_1.run +++ /dev/null @@ -1,3 +0,0 @@ -? 32767 - -ERROR in line 20: OUT OF MEMORY diff --git a/bwbtest/HB1/ERROR_2.BAS b/bwbtest/HB1/ERROR_2.BAS deleted file mode 100644 index a2daae5..0000000 --- a/bwbtest/HB1/ERROR_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'ERROR' TEST PROGRAM -20 PRINT "ERROR PASSED THE TEST IF ERROR MESSAGE 'OS' OR" -30 PRINT "'OUT OF STRING SPACE' IS PRINTED." -40 ERROR 14, "OUT OF STRING SPACE" -99 END diff --git a/bwbtest/HB1/ERROR_2.run b/bwbtest/HB1/ERROR_2.run deleted file mode 100644 index 32894fb..0000000 --- a/bwbtest/HB1/ERROR_2.run +++ /dev/null @@ -1,4 +0,0 @@ -ERROR PASSED THE TEST IF ERROR MESSAGE 'OS' OR -'OUT OF STRING SPACE' IS PRINTED. - -ERROR in line 40: OUT OF STRING SPACE diff --git a/bwbtest/HB1/ERR_1.BAS b/bwbtest/HB1/ERR_1.BAS deleted file mode 100644 index 6286113..0000000 --- a/bwbtest/HB1/ERR_1.BAS +++ /dev/null @@ -1,23 +0,0 @@ -10 REM 'ERR' TEST PROGRAM -20 DIM A(5) -30 CLEAR -40 ON ERROR GOTO 100 -50 PRINT "ENTER A SAMPLE NUMBER"; -60 INPUT N -61 IF N = -999 THEN 999 -62 IF N = 0 THEN ERROR 11, "DIVISION BY ZERO" -63 IF N < 1 THEN ERROR 9 , "SUBSCRIPT OUT OF RANGE" -64 IF N > 5 THEN ERROR 9 , "SUBSCRIPT OUT OF RANGE" -70 A(N)=10/N -80 PRINT "THE NUMBER";N;"DID NOT CAUSE AN ERROR" -90 GOTO 50 -100 IF ERR=9 THEN 130 -110 IF ERR=11 THEN 160 -120 GOTO 180 -130 PRINT "THE NUMBER";N;"IS TOO LARGE" -140 PRINT "USE A NUMBER BETWEEN 1 AND 5" -150 RESUME 30 -160 PRINT "THE SMALLEST NUMBER ALLOWED IS 1" -170 RESUME 30 -180 PRINT "THE NUMBER";N;"CAUSED AN ERROR CODE OF";ERR -999 END diff --git a/bwbtest/HB1/ERR_1.INP b/bwbtest/HB1/ERR_1.INP deleted file mode 100644 index 30dcf62..0000000 --- a/bwbtest/HB1/ERR_1.INP +++ /dev/null @@ -1,6 +0,0 @@ -0 -1 -5 -6 --1 --999 diff --git a/bwbtest/HB1/ERR_1.run b/bwbtest/HB1/ERR_1.run deleted file mode 100644 index 4c5d0d0..0000000 --- a/bwbtest/HB1/ERR_1.run +++ /dev/null @@ -1,13 +0,0 @@ -ENTER A SAMPLE NUMBER? 0 -THE SMALLEST NUMBER ALLOWED IS 1 -ENTER A SAMPLE NUMBER? 1 -THE NUMBER 1 DID NOT CAUSE AN ERROR -ENTER A SAMPLE NUMBER? 5 -THE NUMBER 5 DID NOT CAUSE AN ERROR -ENTER A SAMPLE NUMBER? 6 -THE NUMBER 6 IS TOO LARGE -USE A NUMBER BETWEEN 1 AND 5 -ENTER A SAMPLE NUMBER? -1 -THE NUMBER-1 IS TOO LARGE -USE A NUMBER BETWEEN 1 AND 5 -ENTER A SAMPLE NUMBER? -999 diff --git a/bwbtest/HB1/EXAM_1.BAS b/bwbtest/HB1/EXAM_1.BAS deleted file mode 100644 index de01223..0000000 --- a/bwbtest/HB1/EXAM_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'EXAM' TEST PROGRAM -20 FOR X=18368 TO 18380 -30 READ Y -40 FILL X,Y -50 NEXT X -60 FOR X=18368 TO 18380 -70 Y=EXAM(X) -80 PRINT CHR$(Y); -90 NEXT X -100 DATA 84,69,83,84,32,67,79,77,80,76,69,84,69 -999 END diff --git a/bwbtest/HB1/EXAM_1.PRO b/bwbtest/HB1/EXAM_1.PRO deleted file mode 100644 index 4a0fa63..0000000 --- a/bwbtest/HB1/EXAM_1.PRO +++ /dev/null @@ -1,8 +0,0 @@ -DIM M%(100) -65000 REM FAKE FILL() & EXAM() -65010 DEF FILL(X,Y) -65020 M%(X-18300)=Y -65030 FNEND -65040 DEF EXAM(X) -65050 EXAM=M%(X-18300) -65060 FNEND diff --git a/bwbtest/HB1/EXAM_1.run b/bwbtest/HB1/EXAM_1.run deleted file mode 100644 index 3cd4ddc..0000000 --- a/bwbtest/HB1/EXAM_1.run +++ /dev/null @@ -1 +0,0 @@ -TEST COMPLETE diff --git a/bwbtest/HB1/EXP_1.BAS b/bwbtest/HB1/EXP_1.BAS deleted file mode 100644 index 7278666..0000000 --- a/bwbtest/HB1/EXP_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'EXP' TEST PROGRAM -20 N=4.60517 -30 E=EXP(N) -40 PRINT "IF THE NATURAL EXPONENTIAL OF";N;"IS";E -50 PRINT "THEN THE EXP FUNCTION PASSED THE TEST." -99 END diff --git a/bwbtest/HB1/EXP_1.run b/bwbtest/HB1/EXP_1.run deleted file mode 100644 index c0b2007..0000000 --- a/bwbtest/HB1/EXP_1.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE NATURAL EXPONENTIAL OF 4.60517 IS 100. -THEN THE EXP FUNCTION PASSED THE TEST. diff --git a/bwbtest/HB1/E_1.BAS b/bwbtest/HB1/E_1.BAS deleted file mode 100644 index fd851a2..0000000 --- a/bwbtest/HB1/E_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'E' SINGLE PRECISION EXPONENT TEST PROGRAM -20 A=123456789 -30 PRINT "EXPONENTIAL NOTATION 'E' PASSED THE TEST IF" -40 PRINT A;"CONTAINS THE LETTER 'E'" -99 END diff --git a/bwbtest/HB1/E_1.run b/bwbtest/HB1/E_1.run deleted file mode 100644 index 7150441..0000000 --- a/bwbtest/HB1/E_1.run +++ /dev/null @@ -1,2 +0,0 @@ -EXPONENTIAL NOTATION 'E' PASSED THE TEST IF - 1.23457E+8 CONTAINS THE LETTER 'E' diff --git a/bwbtest/HB1/FETCH_1.BAS b/bwbtest/HB1/FETCH_1.BAS deleted file mode 100644 index 73c29f8..0000000 --- a/bwbtest/HB1/FETCH_1.BAS +++ /dev/null @@ -1,13 +0,0 @@ -10 REM 'FETCH' TEST PROGRAM -20 Y=1 -30 FOR X=18368 TO 18377 -40 STUFF X,Y -50 Y=Y+1 -60 NEXT X -70 FOR X=18368 TO 18377 -80 Y=FETCH(X) -90 PRINT Y; -100 NEXT X -110 PRINT -120 PRINT "'FETCH' PASSED THE TEST IF #1 THRU #10 ARE PRINTED" -999 END diff --git a/bwbtest/HB1/FETCH_1.PRO b/bwbtest/HB1/FETCH_1.PRO deleted file mode 100644 index f561121..0000000 --- a/bwbtest/HB1/FETCH_1.PRO +++ /dev/null @@ -1,8 +0,0 @@ -DIM M%(100) -65000 REM FAKE STUFF() & FETCH() -65010 DEF STUFF(X,Y) -65020 M%(X-18300)=Y -65030 FNEND -65040 DEF FETCH(X) -65050 FETCH=M%(X-18300) -65060 FNEND diff --git a/bwbtest/HB1/FETCH_1.run b/bwbtest/HB1/FETCH_1.run deleted file mode 100644 index c8db515..0000000 --- a/bwbtest/HB1/FETCH_1.run +++ /dev/null @@ -1,2 +0,0 @@ - 1 2 3 4 5 6 7 8 9 10 -'FETCH' PASSED THE TEST IF #1 THRU #10 ARE PRINTED diff --git a/bwbtest/HB1/FILL_1.BAS b/bwbtest/HB1/FILL_1.BAS deleted file mode 100644 index 03a472a..0000000 --- a/bwbtest/HB1/FILL_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'FILL' TEST PROGRAM -20 FOR X=18368 TO 18380 -30 READ Y -40 FILL X,Y -50 NEXT X -60 FOR X=18368 TO 18380 -70 Y=EXAM(X) -80 PRINT CHR$(Y); -90 NEXT X -100 DATA 84,69,83,84,32,67,79,77,80,76,69,84,69 -999 END diff --git a/bwbtest/HB1/FILL_1.PRO b/bwbtest/HB1/FILL_1.PRO deleted file mode 100644 index 863564b..0000000 --- a/bwbtest/HB1/FILL_1.PRO +++ /dev/null @@ -1,8 +0,0 @@ -DIM M%(100) -65000 REM FAKE FILL() & EXAM() -65010 DEF FILL(X,Y) -65020 M%(X-18300)=Y -65030 FNEND -65040 DEF EXAM(X) -65050 EXAM=M%(X-18300) -65060 FNEND diff --git a/bwbtest/HB1/FILL_1.run b/bwbtest/HB1/FILL_1.run deleted file mode 100644 index 3cd4ddc..0000000 --- a/bwbtest/HB1/FILL_1.run +++ /dev/null @@ -1 +0,0 @@ -TEST COMPLETE diff --git a/bwbtest/HB1/FIX_1.BAS b/bwbtest/HB1/FIX_1.BAS deleted file mode 100644 index ca3066f..0000000 --- a/bwbtest/HB1/FIX_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'FIX' TEST PROGRAM -20 N=-12.3456 -30 A=FIX(N) -40 PRINT "FIX PASSED THE TEST IF";N;"IS CHANGED TO";A -99 END diff --git a/bwbtest/HB1/FIX_1.run b/bwbtest/HB1/FIX_1.run deleted file mode 100644 index d524b05..0000000 --- a/bwbtest/HB1/FIX_1.run +++ /dev/null @@ -1 +0,0 @@ -FIX PASSED THE TEST IF-12.3456 IS CHANGED TO-12 diff --git a/bwbtest/HB1/FNEND_1.BAS b/bwbtest/HB1/FNEND_1.BAS deleted file mode 100644 index 28bdaf0..0000000 --- a/bwbtest/HB1/FNEND_1.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'FNEND' TEST PROGRAM -20 PRINT "ENTER A VALUE FOR X THAT IS GREATER OR LESS THAN 10"; -30 INPUT X -40 DEF FNA(X) -50 FNA=X*2 -60 IF X<10 THEN 80 -70 FNA=X/2 -80 FNEND -90 PRINT "THE NEW VALUE FOR X IS";FNA(X) -99 END diff --git a/bwbtest/HB1/FNEND_1.INP b/bwbtest/HB1/FNEND_1.INP deleted file mode 100644 index 190a180..0000000 --- a/bwbtest/HB1/FNEND_1.INP +++ /dev/null @@ -1 +0,0 @@ -123 diff --git a/bwbtest/HB1/FNEND_1.run b/bwbtest/HB1/FNEND_1.run deleted file mode 100644 index f181c61..0000000 --- a/bwbtest/HB1/FNEND_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VALUE FOR X THAT IS GREATER OR LESS THAN 10? 123 -THE NEW VALUE FOR X IS 61.5 diff --git a/bwbtest/HB1/FN_1.BAS b/bwbtest/HB1/FN_1.BAS deleted file mode 100644 index f48987c..0000000 --- a/bwbtest/HB1/FN_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'FN' TEST PROGRAM -20 DEF FNX(A)=(A-32)*5/9 -30 PRINT "ENTER A TEMPERATURE IN FAHRENHEIT"; -40 INPUT F -50 C=FNX(F) -60 PRINT F;"DEGRESS FAHRENHEIT =";C;"DEGREES CELSIUS." -99 END diff --git a/bwbtest/HB1/FN_1.INP b/bwbtest/HB1/FN_1.INP deleted file mode 100644 index 0d38910..0000000 --- a/bwbtest/HB1/FN_1.INP +++ /dev/null @@ -1 +0,0 @@ -212 diff --git a/bwbtest/HB1/FN_1.run b/bwbtest/HB1/FN_1.run deleted file mode 100644 index 7d01f61..0000000 --- a/bwbtest/HB1/FN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A TEMPERATURE IN FAHRENHEIT? 212 - 212 DEGRESS FAHRENHEIT = 100 DEGREES CELSIUS. diff --git a/bwbtest/HB1/FOR_1.BAS b/bwbtest/HB1/FOR_1.BAS deleted file mode 100644 index fd241a5..0000000 --- a/bwbtest/HB1/FOR_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'FOR' TEST PROGRAM -20 FOR X=1 TO 5 -30 PRINT X; -40 NEXT X -50 PRINT "THE 'FOR' STATEMENT PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/FOR_1.run b/bwbtest/HB1/FOR_1.run deleted file mode 100644 index 790ab35..0000000 --- a/bwbtest/HB1/FOR_1.run +++ /dev/null @@ -1 +0,0 @@ - 1 2 3 4 5 THE 'FOR' STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1/FREE_1.BAS b/bwbtest/HB1/FREE_1.BAS deleted file mode 100644 index 62bacfa..0000000 --- a/bwbtest/HB1/FREE_1.BAS +++ /dev/null @@ -1,3 +0,0 @@ -10 REM 'FREE(0)' TEST PROGRAM -20 PRINT FREE(0);"BYTES OF MEMORY ARE REMAINING" -99 END diff --git a/bwbtest/HB1/FREE_1.run b/bwbtest/HB1/FREE_1.run deleted file mode 100644 index 9d9f96b..0000000 --- a/bwbtest/HB1/FREE_1.run +++ /dev/null @@ -1 +0,0 @@ - 32000 BYTES OF MEMORY ARE REMAINING diff --git a/bwbtest/HB1/FREE_2.BAS b/bwbtest/HB1/FREE_2.BAS deleted file mode 100644 index 6f54c63..0000000 --- a/bwbtest/HB1/FREE_2.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'FREE(0)' TEST PROGRAM -15 DEF FREE(X)=32000 -20 PRINT FREE(0);"BYTES OF MEMORY ARE REMAINING" -99 END diff --git a/bwbtest/HB1/FREE_2.run b/bwbtest/HB1/FREE_2.run deleted file mode 100644 index 9d9f96b..0000000 --- a/bwbtest/HB1/FREE_2.run +++ /dev/null @@ -1 +0,0 @@ - 32000 BYTES OF MEMORY ARE REMAINING diff --git a/bwbtest/HB1/FRE_1.BAS b/bwbtest/HB1/FRE_1.BAS deleted file mode 100644 index 7d5c7d0..0000000 --- a/bwbtest/HB1/FRE_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'FRE(STRING)' TEST PROGRAM -20 PRINT "ENTER ANY COMBINATION OF LETTERS AND NUMBERS"; -30 INPUT A$ -40 PRINT "THE AMOUNT OF UNUSED STRING SPACE ="; -50 PRINT FRE(B$) -99 END diff --git a/bwbtest/HB1/FRE_1.INP b/bwbtest/HB1/FRE_1.INP deleted file mode 100644 index 855590a..0000000 --- a/bwbtest/HB1/FRE_1.INP +++ /dev/null @@ -1 +0,0 @@ -ABCDEF diff --git a/bwbtest/HB1/FRE_1.run b/bwbtest/HB1/FRE_1.run deleted file mode 100644 index 4217284..0000000 --- a/bwbtest/HB1/FRE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER ANY COMBINATION OF LETTERS AND NUMBERS? ABCDEF -THE AMOUNT OF UNUSED STRING SPACE = 32000 diff --git a/bwbtest/HB1/FRE_2.BAS b/bwbtest/HB1/FRE_2.BAS deleted file mode 100644 index fa8e3f5..0000000 --- a/bwbtest/HB1/FRE_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'FRE(STRING)' TEST PROGRAM -15 DEF FRE(A$)=32000 -20 PRINT "ENTER ANY COMBINATION OF LETTERS AND NUMBERS"; -30 INPUT A$ -40 PRINT "THE AMOUNT OF UNUSED STRING SPACE ="; -50 PRINT FRE(B$) -99 END diff --git a/bwbtest/HB1/FRE_2.INP b/bwbtest/HB1/FRE_2.INP deleted file mode 100644 index bb5bd50..0000000 --- a/bwbtest/HB1/FRE_2.INP +++ /dev/null @@ -1 +0,0 @@ -ABCDEFGHIJKL diff --git a/bwbtest/HB1/FRE_2.run b/bwbtest/HB1/FRE_2.run deleted file mode 100644 index f24d2c5..0000000 --- a/bwbtest/HB1/FRE_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER ANY COMBINATION OF LETTERS AND NUMBERS? ABCDEFGHIJKL -THE AMOUNT OF UNUSED STRING SPACE = 32000 diff --git a/bwbtest/HB1/GE_1.BAS b/bwbtest/HB1/GE_1.BAS deleted file mode 100644 index cd83693..0000000 --- a/bwbtest/HB1/GE_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'GE (>=)' TEST PROGRAM -20 IF 20 GE 10 THEN 50 -30 PRINT "THE GE OPERATOR FAILED THE TEST IN LINE 20" -40 GOTO 99 -50 IF 20 GE 20 THEN 80 -60 PRINT "THE GE OPERATOR FAILED THE TEST IN LINE 50" -70 GOTO 99 -80 PRINT "THE GE OPERATOR PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/GE_1.PRO b/bwbtest/HB1/GE_1.PRO deleted file mode 100644 index 92bed58..0000000 --- a/bwbtest/HB1/GE_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION ENABLE OPERATOR "GE" diff --git a/bwbtest/HB1/GE_1.run b/bwbtest/HB1/GE_1.run deleted file mode 100644 index 0d7a4c3..0000000 --- a/bwbtest/HB1/GE_1.run +++ /dev/null @@ -1 +0,0 @@ -THE GE OPERATOR PASSED THE TEST diff --git a/bwbtest/HB1/GOSUB_1.BAS b/bwbtest/HB1/GOSUB_1.BAS deleted file mode 100644 index d8ef703..0000000 --- a/bwbtest/HB1/GOSUB_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'GOSUB' TEST PROGRAM -20 GOSUB 100 -30 PRINT "PASSED THE TEST AT LINE 20" -40 GOTO 999 -100 REM SUBROUTINE -110 PRINT "THE GOSUB STATEMENT "; -120 RETURN -999 END diff --git a/bwbtest/HB1/GOSUB_1.run b/bwbtest/HB1/GOSUB_1.run deleted file mode 100644 index 13ddefe..0000000 --- a/bwbtest/HB1/GOSUB_1.run +++ /dev/null @@ -1 +0,0 @@ -THE GOSUB STATEMENT PASSED THE TEST AT LINE 20 diff --git a/bwbtest/HB1/GOTO_1.BAS b/bwbtest/HB1/GOTO_1.BAS deleted file mode 100644 index d3ec999..0000000 --- a/bwbtest/HB1/GOTO_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'GOTO' STATEMENT TEST PROGRAM -20 PRINT "THE GOTO STATEMENT "; -30 GOTO 60 -40 PRINT "FAILED" -50 STOP -60 PRINT "HAS PASSED THE TEST." -99 END diff --git a/bwbtest/HB1/GOTO_1.run b/bwbtest/HB1/GOTO_1.run deleted file mode 100644 index 71f2645..0000000 --- a/bwbtest/HB1/GOTO_1.run +++ /dev/null @@ -1 +0,0 @@ -THE GOTO STATEMENT HAS PASSED THE TEST. diff --git a/bwbtest/HB1/GOTO_OF_1.BAS b/bwbtest/HB1/GOTO_OF_1.BAS deleted file mode 100644 index bc4232a..0000000 --- a/bwbtest/HB1/GOTO_OF_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'GOTO-OF' TEST PROGRAM -20 X=2 -30 GOTO X OF 40,60 -40 PRINT "'GOTO-OF' FAILED THE TEST" -50 GOTO 99 -60 PRINT "'GOTO-OF' PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/GOTO_OF_1.run b/bwbtest/HB1/GOTO_OF_1.run deleted file mode 100644 index c383275..0000000 --- a/bwbtest/HB1/GOTO_OF_1.run +++ /dev/null @@ -1 +0,0 @@ -'GOTO-OF' PASSED THE TEST diff --git a/bwbtest/HB1/GO_1.BAS b/bwbtest/HB1/GO_1.BAS deleted file mode 100644 index 8cffe8e..0000000 --- a/bwbtest/HB1/GO_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'GO' TEST PROGRAM -20 PRINT "THE GO STATEMENT "; -30 GO TO 60 -40 PRINT "FAILED THE TEST" -50 GOTO 99 -60 PRINT "PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/GO_1.run b/bwbtest/HB1/GO_1.run deleted file mode 100644 index dbefbec..0000000 --- a/bwbtest/HB1/GO_1.run +++ /dev/null @@ -1 +0,0 @@ -THE GO STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1/GO_2.BAS b/bwbtest/HB1/GO_2.BAS deleted file mode 100644 index 0241a2c..0000000 --- a/bwbtest/HB1/GO_2.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'GO' (USED WITH SUB) TEST PROGRAM -20 GO SUB 100 -30 PRINT "PASSED THE TEST WEH USED WITH SUB." -40 GOTO 999 -100 REM SUBROUTINE -110 PRINT "THE GO STATEMENT "; -120 RETURN -999 END diff --git a/bwbtest/HB1/GO_2.run b/bwbtest/HB1/GO_2.run deleted file mode 100644 index d2b5c8d..0000000 --- a/bwbtest/HB1/GO_2.run +++ /dev/null @@ -1 +0,0 @@ -THE GO STATEMENT PASSED THE TEST WEH USED WITH SUB. diff --git a/bwbtest/HB1/GO_TO_OF_1.BAS b/bwbtest/HB1/GO_TO_OF_1.BAS deleted file mode 100644 index 5893035..0000000 --- a/bwbtest/HB1/GO_TO_OF_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'GO-TO-OF' TEST PROGRAM -20 X=2 -30 GO TO X OF 40,60 -40 PRINT "'GO-TO-OF' FAILED THE TEST" -50 GOTO 99 -60 PRINT "'GO-TO-OF' PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/GO_TO_OF_1.run b/bwbtest/HB1/GO_TO_OF_1.run deleted file mode 100644 index bd22228..0000000 --- a/bwbtest/HB1/GO_TO_OF_1.run +++ /dev/null @@ -1 +0,0 @@ -'GO-TO-OF' PASSED THE TEST diff --git a/bwbtest/HB1/GT_1.BAS b/bwbtest/HB1/GT_1.BAS deleted file mode 100644 index 1e5a224..0000000 --- a/bwbtest/HB1/GT_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'GT (>)' TEST PROGRAM -20 IF 10 GT 5 THEN 50 -30 PRINT "THE GT OPERATOR FAILED THE TEST" -40 GOTO 99 -50 PRINT "THE GT OPERATOR PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/GT_1.PRO b/bwbtest/HB1/GT_1.PRO deleted file mode 100644 index e1eefb4..0000000 --- a/bwbtest/HB1/GT_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION ENABLE OPERATOR "GT" diff --git a/bwbtest/HB1/GT_1.run b/bwbtest/HB1/GT_1.run deleted file mode 100644 index 93873b9..0000000 --- a/bwbtest/HB1/GT_1.run +++ /dev/null @@ -1 +0,0 @@ -THE GT OPERATOR PASSED THE TEST diff --git a/bwbtest/HB1/HB1.PRO b/bwbtest/HB1/HB1.PRO deleted file mode 100644 index e98a47a..0000000 --- a/bwbtest/HB1/HB1.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "HANDBOOK1" - diff --git a/bwbtest/HB1/IF_1.BAS b/bwbtest/HB1/IF_1.BAS deleted file mode 100644 index 843b24f..0000000 --- a/bwbtest/HB1/IF_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'IF' TEST PROGRAM -20 X=10 -30 IF X=10 THEN 60 -40 PRINT "'IF' FAILED THE TEST" -50 GOTO 99 -60 PRINT "'IF' PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/IF_1.run b/bwbtest/HB1/IF_1.run deleted file mode 100644 index 951f258..0000000 --- a/bwbtest/HB1/IF_1.run +++ /dev/null @@ -1 +0,0 @@ -'IF' PASSED THE TEST diff --git a/bwbtest/HB1/IF_GOTO_1.BAS b/bwbtest/HB1/IF_GOTO_1.BAS deleted file mode 100644 index 3ad74cf..0000000 --- a/bwbtest/HB1/IF_GOTO_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'IF-GOTO' TEST PROGRAM -20 X=3 -30 IF X=3 GOTO 60 -40 PRINT "THE IF-GOTO STATEMENT FAILED THE TEST" -50 GOTO 99 -60 PRINT "THE IF-GOTO STATEMENT PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/IF_GOTO_1.run b/bwbtest/HB1/IF_GOTO_1.run deleted file mode 100644 index 0d67fe8..0000000 --- a/bwbtest/HB1/IF_GOTO_1.run +++ /dev/null @@ -1 +0,0 @@ -THE IF-GOTO STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1/IF_THEN_1.BAS b/bwbtest/HB1/IF_THEN_1.BAS deleted file mode 100644 index 2fdc845..0000000 --- a/bwbtest/HB1/IF_THEN_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'IF-THEN' TEST PROGRAM -20 X=30 -30 IF X=30 THEN 60 -40 PRINT "THE IF-THEN STATEMENT FAILED THE TEST" -50 GOTO 99 -60 PRINT "THE IF-THEN STATEMENT PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/IF_THEN_1.run b/bwbtest/HB1/IF_THEN_1.run deleted file mode 100644 index a2d5877..0000000 --- a/bwbtest/HB1/IF_THEN_1.run +++ /dev/null @@ -1 +0,0 @@ -THE IF-THEN STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1/IF_THEN_2.BAS b/bwbtest/HB1/IF_THEN_2.BAS deleted file mode 100644 index 3ea87a2..0000000 --- a/bwbtest/HB1/IF_THEN_2.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'IF-THEN' TEST PROGRAM -20 X=30 -30 IF X=30 THEN 60 -40 PRINT "THE IF-THEN STATEMENT FAILED THE TEST" -50 GOTO 99 -60 PRINT "THE IF-THEN STATEMENT PASSED THE TEST" -70 IF X=30 THEN X=X+90 -80 PRINT "X=";X -90 PRINT "IF-THEN PASSED THE TEST IN LINE 70 IF X=120" -99 END diff --git a/bwbtest/HB1/IF_THEN_2.run b/bwbtest/HB1/IF_THEN_2.run deleted file mode 100644 index 7b1cded..0000000 --- a/bwbtest/HB1/IF_THEN_2.run +++ /dev/null @@ -1,3 +0,0 @@ -THE IF-THEN STATEMENT PASSED THE TEST -X= 120 -IF-THEN PASSED THE TEST IN LINE 70 IF X=120 diff --git a/bwbtest/HB1/IF_THEN_3.BAS b/bwbtest/HB1/IF_THEN_3.BAS deleted file mode 100644 index 6700a20..0000000 --- a/bwbtest/HB1/IF_THEN_3.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'IF-THEN' TEST PROGRAM -20 X=30 -30 IF X=30 THEN 60 -40 PRINT "THE IF-THEN STATEMENT FAILED THE TEST" -50 GOTO 99 -60 PRINT "THE IF-THEN STATEMENT PASSED THE TEST" -70 IF X=30 THEN X=X+90 -80 PRINT "X=";X -90 PRINT "IF-THEN PASSED THE TEST IN LINE 70 IF X=120" -100 IF X=120 THEN PRINT "IF-THEN PASSED THE TEST IN LINE 100" -999 END diff --git a/bwbtest/HB1/IF_THEN_3.run b/bwbtest/HB1/IF_THEN_3.run deleted file mode 100644 index b8c2952..0000000 --- a/bwbtest/HB1/IF_THEN_3.run +++ /dev/null @@ -1,4 +0,0 @@ -THE IF-THEN STATEMENT PASSED THE TEST -X= 120 -IF-THEN PASSED THE TEST IN LINE 70 IF X=120 -IF-THEN PASSED THE TEST IN LINE 100 diff --git a/bwbtest/HB1/IF_THEN_4.BAS b/bwbtest/HB1/IF_THEN_4.BAS deleted file mode 100644 index a76e163..0000000 --- a/bwbtest/HB1/IF_THEN_4.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM TEST PROGRAM WITH IMPLIED 'THEN' IN LINES 30,60 AND 999 -20 X=30 -30 IF X=30 GOTO 60 -40 PRINT "LINE 30 FAILED THE TEST" -50 GOTO 999 -60 IF X=30 GOSUB 100 -70 GOTO 999 -100 REM SUBROUTINE -110 PRINT "LINES 30 AND 60 PASSED THE TEST. DOES LINE 999?" -120 RETURN -999 IF X=30 END diff --git a/bwbtest/HB1/INKEY_1.BAS b/bwbtest/HB1/INKEY_1.BAS deleted file mode 100644 index f551010..0000000 --- a/bwbtest/HB1/INKEY_1.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'INKEY$' TEST PROGRAM -20 CLS -30 PRINT "PRESS ANY KEY ON THE KEYBOARD" -40 A$=INKEY$ -50 IF A$="" GOTO 40 -60 PRINT "YOU HAVE JUST PRESSED THE ";A$;" KEY" -70 PRINT:PRINT "PRESS THE ";A$;" KEY AGAIN TO START OVER" -80 IF INKEY$=A$ GOTO 20 -90 GOTO 80 -99 END diff --git a/bwbtest/HB1/INKEY_1.PRO b/bwbtest/HB1/INKEY_1.PRO deleted file mode 100644 index e629e7f..0000000 --- a/bwbtest/HB1/INKEY_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION TERMINAL ANSI diff --git a/bwbtest/HB1/INPUT_1.BAS b/bwbtest/HB1/INPUT_1.BAS deleted file mode 100644 index 27769f7..0000000 --- a/bwbtest/HB1/INPUT_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'INPUT' STATEMENT TEST PROGRAM -20 PRINT "ASSIGN A VALUE TO THE VARIABLE X" -30 INPUT X -40 PRINT "THE VALUE OF X IS";X -99 END diff --git a/bwbtest/HB1/INPUT_1.INP b/bwbtest/HB1/INPUT_1.INP deleted file mode 100644 index d5910a0..0000000 --- a/bwbtest/HB1/INPUT_1.INP +++ /dev/null @@ -1 +0,0 @@ -123.456 diff --git a/bwbtest/HB1/INPUT_1.run b/bwbtest/HB1/INPUT_1.run deleted file mode 100644 index f15f6af..0000000 --- a/bwbtest/HB1/INPUT_1.run +++ /dev/null @@ -1,3 +0,0 @@ -ASSIGN A VALUE TO THE VARIABLE X -? 123.456 -THE VALUE OF X IS 123.456 diff --git a/bwbtest/HB1/INP_1.BAS b/bwbtest/HB1/INP_1.BAS deleted file mode 100644 index dd4d627..0000000 --- a/bwbtest/HB1/INP_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'INP' TEST PROGRAM -20 FOR X=0 TO 255 -30 PRINT "THE DECIMAL VALUE OF THE BYTES AT PORT #";X;"IS";INP(X) -40 NEXT X -99 END diff --git a/bwbtest/HB1/INP_1.PRO b/bwbtest/HB1/INP_1.PRO deleted file mode 100644 index a9d8389..0000000 --- a/bwbtest/HB1/INP_1.PRO +++ /dev/null @@ -1,4 +0,0 @@ -65000 REM FAKE INP() -65010 DEF INP(X) -65020 INP = 255-(X MOD 256) -65030 FNEND diff --git a/bwbtest/HB1/INP_1.run b/bwbtest/HB1/INP_1.run deleted file mode 100644 index 63721af..0000000 --- a/bwbtest/HB1/INP_1.run +++ /dev/null @@ -1,256 +0,0 @@ -THE DECIMAL VALUE OF THE BYTES AT PORT # 0 IS 255 -THE DECIMAL VALUE OF THE BYTES AT PORT # 1 IS 254 -THE DECIMAL VALUE OF THE BYTES AT PORT # 2 IS 253 -THE DECIMAL VALUE OF THE BYTES AT PORT # 3 IS 252 -THE DECIMAL VALUE OF THE BYTES AT PORT # 4 IS 251 -THE DECIMAL VALUE OF THE BYTES AT PORT # 5 IS 250 -THE DECIMAL VALUE OF THE BYTES AT PORT # 6 IS 249 -THE DECIMAL VALUE OF THE BYTES AT PORT # 7 IS 248 -THE DECIMAL VALUE OF THE BYTES AT PORT # 8 IS 247 -THE DECIMAL VALUE OF THE BYTES AT PORT # 9 IS 246 -THE DECIMAL VALUE OF THE BYTES AT PORT # 10 IS 245 -THE DECIMAL VALUE OF THE BYTES AT PORT # 11 IS 244 -THE DECIMAL VALUE OF THE BYTES AT PORT # 12 IS 243 -THE DECIMAL VALUE OF THE BYTES AT PORT # 13 IS 242 -THE DECIMAL VALUE OF THE BYTES AT PORT # 14 IS 241 -THE DECIMAL VALUE OF THE BYTES AT PORT # 15 IS 240 -THE DECIMAL VALUE OF THE BYTES AT PORT # 16 IS 239 -THE DECIMAL VALUE OF THE BYTES AT PORT # 17 IS 238 -THE DECIMAL VALUE OF THE BYTES AT PORT # 18 IS 237 -THE DECIMAL VALUE OF THE BYTES AT PORT # 19 IS 236 -THE DECIMAL VALUE OF THE BYTES AT PORT # 20 IS 235 -THE DECIMAL VALUE OF THE BYTES AT PORT # 21 IS 234 -THE DECIMAL VALUE OF THE BYTES AT PORT # 22 IS 233 -THE DECIMAL VALUE OF THE BYTES AT PORT # 23 IS 232 -THE DECIMAL VALUE OF THE BYTES AT PORT # 24 IS 231 -THE DECIMAL VALUE OF THE BYTES AT PORT # 25 IS 230 -THE DECIMAL VALUE OF THE BYTES AT PORT # 26 IS 229 -THE DECIMAL VALUE OF THE BYTES AT PORT # 27 IS 228 -THE DECIMAL VALUE OF THE BYTES AT PORT # 28 IS 227 -THE DECIMAL VALUE OF THE BYTES AT PORT # 29 IS 226 -THE DECIMAL VALUE OF THE BYTES AT PORT # 30 IS 225 -THE DECIMAL VALUE OF THE BYTES AT PORT # 31 IS 224 -THE DECIMAL VALUE OF THE BYTES AT PORT # 32 IS 223 -THE DECIMAL VALUE OF THE BYTES AT PORT # 33 IS 222 -THE DECIMAL VALUE OF THE BYTES AT PORT # 34 IS 221 -THE DECIMAL VALUE OF THE BYTES AT PORT # 35 IS 220 -THE DECIMAL VALUE OF THE BYTES AT PORT # 36 IS 219 -THE DECIMAL VALUE OF THE BYTES AT PORT # 37 IS 218 -THE DECIMAL VALUE OF THE BYTES AT PORT # 38 IS 217 -THE DECIMAL VALUE OF THE BYTES AT PORT # 39 IS 216 -THE DECIMAL VALUE OF THE BYTES AT PORT # 40 IS 215 -THE DECIMAL VALUE OF THE BYTES AT PORT # 41 IS 214 -THE DECIMAL VALUE OF THE BYTES AT PORT # 42 IS 213 -THE DECIMAL VALUE OF THE BYTES AT PORT # 43 IS 212 -THE DECIMAL VALUE OF THE BYTES AT PORT # 44 IS 211 -THE DECIMAL VALUE OF THE BYTES AT PORT # 45 IS 210 -THE DECIMAL VALUE OF THE BYTES AT PORT # 46 IS 209 -THE DECIMAL VALUE OF THE BYTES AT PORT # 47 IS 208 -THE DECIMAL VALUE OF THE BYTES AT PORT # 48 IS 207 -THE DECIMAL VALUE OF THE BYTES AT PORT # 49 IS 206 -THE DECIMAL VALUE OF THE BYTES AT PORT # 50 IS 205 -THE DECIMAL VALUE OF THE BYTES AT PORT # 51 IS 204 -THE DECIMAL VALUE OF THE BYTES AT PORT # 52 IS 203 -THE DECIMAL VALUE OF THE BYTES AT PORT # 53 IS 202 -THE DECIMAL VALUE OF THE BYTES AT PORT # 54 IS 201 -THE DECIMAL VALUE OF THE BYTES AT PORT # 55 IS 200 -THE DECIMAL VALUE OF THE BYTES AT PORT # 56 IS 199 -THE DECIMAL VALUE OF THE BYTES AT PORT # 57 IS 198 -THE DECIMAL VALUE OF THE BYTES AT PORT # 58 IS 197 -THE DECIMAL VALUE OF THE BYTES AT PORT # 59 IS 196 -THE DECIMAL VALUE OF THE BYTES AT PORT # 60 IS 195 -THE DECIMAL VALUE OF THE BYTES AT PORT # 61 IS 194 -THE DECIMAL VALUE OF THE BYTES AT PORT # 62 IS 193 -THE DECIMAL VALUE OF THE BYTES AT PORT # 63 IS 192 -THE DECIMAL VALUE OF THE BYTES AT PORT # 64 IS 191 -THE DECIMAL VALUE OF THE BYTES AT PORT # 65 IS 190 -THE DECIMAL VALUE OF THE BYTES AT PORT # 66 IS 189 -THE DECIMAL VALUE OF THE BYTES AT PORT # 67 IS 188 -THE DECIMAL VALUE OF THE BYTES AT PORT # 68 IS 187 -THE DECIMAL VALUE OF THE BYTES AT PORT # 69 IS 186 -THE DECIMAL VALUE OF THE BYTES AT PORT # 70 IS 185 -THE DECIMAL VALUE OF THE BYTES AT PORT # 71 IS 184 -THE DECIMAL VALUE OF THE BYTES AT PORT # 72 IS 183 -THE DECIMAL VALUE OF THE BYTES AT PORT # 73 IS 182 -THE DECIMAL VALUE OF THE BYTES AT PORT # 74 IS 181 -THE DECIMAL VALUE OF THE BYTES AT PORT # 75 IS 180 -THE DECIMAL VALUE OF THE BYTES AT PORT # 76 IS 179 -THE DECIMAL VALUE OF THE BYTES AT PORT # 77 IS 178 -THE DECIMAL VALUE OF THE BYTES AT PORT # 78 IS 177 -THE DECIMAL VALUE OF THE BYTES AT PORT # 79 IS 176 -THE DECIMAL VALUE OF THE BYTES AT PORT # 80 IS 175 -THE DECIMAL VALUE OF THE BYTES AT PORT # 81 IS 174 -THE DECIMAL VALUE OF THE BYTES AT PORT # 82 IS 173 -THE DECIMAL VALUE OF THE BYTES AT PORT # 83 IS 172 -THE DECIMAL VALUE OF THE BYTES AT PORT # 84 IS 171 -THE DECIMAL VALUE OF THE BYTES AT PORT # 85 IS 170 -THE DECIMAL VALUE OF THE BYTES AT PORT # 86 IS 169 -THE DECIMAL VALUE OF THE BYTES AT PORT # 87 IS 168 -THE DECIMAL VALUE OF THE BYTES AT PORT # 88 IS 167 -THE DECIMAL VALUE OF THE BYTES AT PORT # 89 IS 166 -THE DECIMAL VALUE OF THE BYTES AT PORT # 90 IS 165 -THE DECIMAL VALUE OF THE BYTES AT PORT # 91 IS 164 -THE DECIMAL VALUE OF THE BYTES AT PORT # 92 IS 163 -THE DECIMAL VALUE OF THE BYTES AT PORT # 93 IS 162 -THE DECIMAL VALUE OF THE BYTES AT PORT # 94 IS 161 -THE DECIMAL VALUE OF THE BYTES AT PORT # 95 IS 160 -THE DECIMAL VALUE OF THE BYTES AT PORT # 96 IS 159 -THE DECIMAL VALUE OF THE BYTES AT PORT # 97 IS 158 -THE DECIMAL VALUE OF THE BYTES AT PORT # 98 IS 157 -THE DECIMAL VALUE OF THE BYTES AT PORT # 99 IS 156 -THE DECIMAL VALUE OF THE BYTES AT PORT # 100 IS 155 -THE DECIMAL VALUE OF THE BYTES AT PORT # 101 IS 154 -THE DECIMAL VALUE OF THE BYTES AT PORT # 102 IS 153 -THE DECIMAL VALUE OF THE BYTES AT PORT # 103 IS 152 -THE DECIMAL VALUE OF THE BYTES AT PORT # 104 IS 151 -THE DECIMAL VALUE OF THE BYTES AT PORT # 105 IS 150 -THE DECIMAL VALUE OF THE BYTES AT PORT # 106 IS 149 -THE DECIMAL VALUE OF THE BYTES AT PORT # 107 IS 148 -THE DECIMAL VALUE OF THE BYTES AT PORT # 108 IS 147 -THE DECIMAL VALUE OF THE BYTES AT PORT # 109 IS 146 -THE DECIMAL VALUE OF THE BYTES AT PORT # 110 IS 145 -THE DECIMAL VALUE OF THE BYTES AT PORT # 111 IS 144 -THE DECIMAL VALUE OF THE BYTES AT PORT # 112 IS 143 -THE DECIMAL VALUE OF THE BYTES AT PORT # 113 IS 142 -THE DECIMAL VALUE OF THE BYTES AT PORT # 114 IS 141 -THE DECIMAL VALUE OF THE BYTES AT PORT # 115 IS 140 -THE DECIMAL VALUE OF THE BYTES AT PORT # 116 IS 139 -THE DECIMAL VALUE OF THE BYTES AT PORT # 117 IS 138 -THE DECIMAL VALUE OF THE BYTES AT PORT # 118 IS 137 -THE DECIMAL VALUE OF THE BYTES AT PORT # 119 IS 136 -THE DECIMAL VALUE OF THE BYTES AT PORT # 120 IS 135 -THE DECIMAL VALUE OF THE BYTES AT PORT # 121 IS 134 -THE DECIMAL VALUE OF THE BYTES AT PORT # 122 IS 133 -THE DECIMAL VALUE OF THE BYTES AT PORT # 123 IS 132 -THE DECIMAL VALUE OF THE BYTES AT PORT # 124 IS 131 -THE DECIMAL VALUE OF THE BYTES AT PORT # 125 IS 130 -THE DECIMAL VALUE OF THE BYTES AT PORT # 126 IS 129 -THE DECIMAL VALUE OF THE BYTES AT PORT # 127 IS 128 -THE DECIMAL VALUE OF THE BYTES AT PORT # 128 IS 127 -THE DECIMAL VALUE OF THE BYTES AT PORT # 129 IS 126 -THE DECIMAL VALUE OF THE BYTES AT PORT # 130 IS 125 -THE DECIMAL VALUE OF THE BYTES AT PORT # 131 IS 124 -THE DECIMAL VALUE OF THE BYTES AT PORT # 132 IS 123 -THE DECIMAL VALUE OF THE BYTES AT PORT # 133 IS 122 -THE DECIMAL VALUE OF THE BYTES AT PORT # 134 IS 121 -THE DECIMAL VALUE OF THE BYTES AT PORT # 135 IS 120 -THE DECIMAL VALUE OF THE BYTES AT PORT # 136 IS 119 -THE DECIMAL VALUE OF THE BYTES AT PORT # 137 IS 118 -THE DECIMAL VALUE OF THE BYTES AT PORT # 138 IS 117 -THE DECIMAL VALUE OF THE BYTES AT PORT # 139 IS 116 -THE DECIMAL VALUE OF THE BYTES AT PORT # 140 IS 115 -THE DECIMAL VALUE OF THE BYTES AT PORT # 141 IS 114 -THE DECIMAL VALUE OF THE BYTES AT PORT # 142 IS 113 -THE DECIMAL VALUE OF THE BYTES AT PORT # 143 IS 112 -THE DECIMAL VALUE OF THE BYTES AT PORT # 144 IS 111 -THE DECIMAL VALUE OF THE BYTES AT PORT # 145 IS 110 -THE DECIMAL VALUE OF THE BYTES AT PORT # 146 IS 109 -THE DECIMAL VALUE OF THE BYTES AT PORT # 147 IS 108 -THE DECIMAL VALUE OF THE BYTES AT PORT # 148 IS 107 -THE DECIMAL VALUE OF THE BYTES AT PORT # 149 IS 106 -THE DECIMAL VALUE OF THE BYTES AT PORT # 150 IS 105 -THE DECIMAL VALUE OF THE BYTES AT PORT # 151 IS 104 -THE DECIMAL VALUE OF THE BYTES AT PORT # 152 IS 103 -THE DECIMAL VALUE OF THE BYTES AT PORT # 153 IS 102 -THE DECIMAL VALUE OF THE BYTES AT PORT # 154 IS 101 -THE DECIMAL VALUE OF THE BYTES AT PORT # 155 IS 100 -THE DECIMAL VALUE OF THE BYTES AT PORT # 156 IS 99 -THE DECIMAL VALUE OF THE BYTES AT PORT # 157 IS 98 -THE DECIMAL VALUE OF THE BYTES AT PORT # 158 IS 97 -THE DECIMAL VALUE OF THE BYTES AT PORT # 159 IS 96 -THE DECIMAL VALUE OF THE BYTES AT PORT # 160 IS 95 -THE DECIMAL VALUE OF THE BYTES AT PORT # 161 IS 94 -THE DECIMAL VALUE OF THE BYTES AT PORT # 162 IS 93 -THE DECIMAL VALUE OF THE BYTES AT PORT # 163 IS 92 -THE DECIMAL VALUE OF THE BYTES AT PORT # 164 IS 91 -THE DECIMAL VALUE OF THE BYTES AT PORT # 165 IS 90 -THE DECIMAL VALUE OF THE BYTES AT PORT # 166 IS 89 -THE DECIMAL VALUE OF THE BYTES AT PORT # 167 IS 88 -THE DECIMAL VALUE OF THE BYTES AT PORT # 168 IS 87 -THE DECIMAL VALUE OF THE BYTES AT PORT # 169 IS 86 -THE DECIMAL VALUE OF THE BYTES AT PORT # 170 IS 85 -THE DECIMAL VALUE OF THE BYTES AT PORT # 171 IS 84 -THE DECIMAL VALUE OF THE BYTES AT PORT # 172 IS 83 -THE DECIMAL VALUE OF THE BYTES AT PORT # 173 IS 82 -THE DECIMAL VALUE OF THE BYTES AT PORT # 174 IS 81 -THE DECIMAL VALUE OF THE BYTES AT PORT # 175 IS 80 -THE DECIMAL VALUE OF THE BYTES AT PORT # 176 IS 79 -THE DECIMAL VALUE OF THE BYTES AT PORT # 177 IS 78 -THE DECIMAL VALUE OF THE BYTES AT PORT # 178 IS 77 -THE DECIMAL VALUE OF THE BYTES AT PORT # 179 IS 76 -THE DECIMAL VALUE OF THE BYTES AT PORT # 180 IS 75 -THE DECIMAL VALUE OF THE BYTES AT PORT # 181 IS 74 -THE DECIMAL VALUE OF THE BYTES AT PORT # 182 IS 73 -THE DECIMAL VALUE OF THE BYTES AT PORT # 183 IS 72 -THE DECIMAL VALUE OF THE BYTES AT PORT # 184 IS 71 -THE DECIMAL VALUE OF THE BYTES AT PORT # 185 IS 70 -THE DECIMAL VALUE OF THE BYTES AT PORT # 186 IS 69 -THE DECIMAL VALUE OF THE BYTES AT PORT # 187 IS 68 -THE DECIMAL VALUE OF THE BYTES AT PORT # 188 IS 67 -THE DECIMAL VALUE OF THE BYTES AT PORT # 189 IS 66 -THE DECIMAL VALUE OF THE BYTES AT PORT # 190 IS 65 -THE DECIMAL VALUE OF THE BYTES AT PORT # 191 IS 64 -THE DECIMAL VALUE OF THE BYTES AT PORT # 192 IS 63 -THE DECIMAL VALUE OF THE BYTES AT PORT # 193 IS 62 -THE DECIMAL VALUE OF THE BYTES AT PORT # 194 IS 61 -THE DECIMAL VALUE OF THE BYTES AT PORT # 195 IS 60 -THE DECIMAL VALUE OF THE BYTES AT PORT # 196 IS 59 -THE DECIMAL VALUE OF THE BYTES AT PORT # 197 IS 58 -THE DECIMAL VALUE OF THE BYTES AT PORT # 198 IS 57 -THE DECIMAL VALUE OF THE BYTES AT PORT # 199 IS 56 -THE DECIMAL VALUE OF THE BYTES AT PORT # 200 IS 55 -THE DECIMAL VALUE OF THE BYTES AT PORT # 201 IS 54 -THE DECIMAL VALUE OF THE BYTES AT PORT # 202 IS 53 -THE DECIMAL VALUE OF THE BYTES AT PORT # 203 IS 52 -THE DECIMAL VALUE OF THE BYTES AT PORT # 204 IS 51 -THE DECIMAL VALUE OF THE BYTES AT PORT # 205 IS 50 -THE DECIMAL VALUE OF THE BYTES AT PORT # 206 IS 49 -THE DECIMAL VALUE OF THE BYTES AT PORT # 207 IS 48 -THE DECIMAL VALUE OF THE BYTES AT PORT # 208 IS 47 -THE DECIMAL VALUE OF THE BYTES AT PORT # 209 IS 46 -THE DECIMAL VALUE OF THE BYTES AT PORT # 210 IS 45 -THE DECIMAL VALUE OF THE BYTES AT PORT # 211 IS 44 -THE DECIMAL VALUE OF THE BYTES AT PORT # 212 IS 43 -THE DECIMAL VALUE OF THE BYTES AT PORT # 213 IS 42 -THE DECIMAL VALUE OF THE BYTES AT PORT # 214 IS 41 -THE DECIMAL VALUE OF THE BYTES AT PORT # 215 IS 40 -THE DECIMAL VALUE OF THE BYTES AT PORT # 216 IS 39 -THE DECIMAL VALUE OF THE BYTES AT PORT # 217 IS 38 -THE DECIMAL VALUE OF THE BYTES AT PORT # 218 IS 37 -THE DECIMAL VALUE OF THE BYTES AT PORT # 219 IS 36 -THE DECIMAL VALUE OF THE BYTES AT PORT # 220 IS 35 -THE DECIMAL VALUE OF THE BYTES AT PORT # 221 IS 34 -THE DECIMAL VALUE OF THE BYTES AT PORT # 222 IS 33 -THE DECIMAL VALUE OF THE BYTES AT PORT # 223 IS 32 -THE DECIMAL VALUE OF THE BYTES AT PORT # 224 IS 31 -THE DECIMAL VALUE OF THE BYTES AT PORT # 225 IS 30 -THE DECIMAL VALUE OF THE BYTES AT PORT # 226 IS 29 -THE DECIMAL VALUE OF THE BYTES AT PORT # 227 IS 28 -THE DECIMAL VALUE OF THE BYTES AT PORT # 228 IS 27 -THE DECIMAL VALUE OF THE BYTES AT PORT # 229 IS 26 -THE DECIMAL VALUE OF THE BYTES AT PORT # 230 IS 25 -THE DECIMAL VALUE OF THE BYTES AT PORT # 231 IS 24 -THE DECIMAL VALUE OF THE BYTES AT PORT # 232 IS 23 -THE DECIMAL VALUE OF THE BYTES AT PORT # 233 IS 22 -THE DECIMAL VALUE OF THE BYTES AT PORT # 234 IS 21 -THE DECIMAL VALUE OF THE BYTES AT PORT # 235 IS 20 -THE DECIMAL VALUE OF THE BYTES AT PORT # 236 IS 19 -THE DECIMAL VALUE OF THE BYTES AT PORT # 237 IS 18 -THE DECIMAL VALUE OF THE BYTES AT PORT # 238 IS 17 -THE DECIMAL VALUE OF THE BYTES AT PORT # 239 IS 16 -THE DECIMAL VALUE OF THE BYTES AT PORT # 240 IS 15 -THE DECIMAL VALUE OF THE BYTES AT PORT # 241 IS 14 -THE DECIMAL VALUE OF THE BYTES AT PORT # 242 IS 13 -THE DECIMAL VALUE OF THE BYTES AT PORT # 243 IS 12 -THE DECIMAL VALUE OF THE BYTES AT PORT # 244 IS 11 -THE DECIMAL VALUE OF THE BYTES AT PORT # 245 IS 10 -THE DECIMAL VALUE OF THE BYTES AT PORT # 246 IS 9 -THE DECIMAL VALUE OF THE BYTES AT PORT # 247 IS 8 -THE DECIMAL VALUE OF THE BYTES AT PORT # 248 IS 7 -THE DECIMAL VALUE OF THE BYTES AT PORT # 249 IS 6 -THE DECIMAL VALUE OF THE BYTES AT PORT # 250 IS 5 -THE DECIMAL VALUE OF THE BYTES AT PORT # 251 IS 4 -THE DECIMAL VALUE OF THE BYTES AT PORT # 252 IS 3 -THE DECIMAL VALUE OF THE BYTES AT PORT # 253 IS 2 -THE DECIMAL VALUE OF THE BYTES AT PORT # 254 IS 1 -THE DECIMAL VALUE OF THE BYTES AT PORT # 255 IS 0 diff --git a/bwbtest/HB1/INP_2.BAS b/bwbtest/HB1/INP_2.BAS deleted file mode 100644 index 5e91c2d..0000000 --- a/bwbtest/HB1/INP_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'INP' TEST PROGRAM -15 DEF INP(X)=255-(X MOD 256) -20 FOR X=0 TO 255 -30 PRINT "THE DECIMAL VALUE OF THE BYTES AT PORT #";X;"IS";INP(X) -40 NEXT X -99 END diff --git a/bwbtest/HB1/INP_2.run b/bwbtest/HB1/INP_2.run deleted file mode 100644 index 63721af..0000000 --- a/bwbtest/HB1/INP_2.run +++ /dev/null @@ -1,256 +0,0 @@ -THE DECIMAL VALUE OF THE BYTES AT PORT # 0 IS 255 -THE DECIMAL VALUE OF THE BYTES AT PORT # 1 IS 254 -THE DECIMAL VALUE OF THE BYTES AT PORT # 2 IS 253 -THE DECIMAL VALUE OF THE BYTES AT PORT # 3 IS 252 -THE DECIMAL VALUE OF THE BYTES AT PORT # 4 IS 251 -THE DECIMAL VALUE OF THE BYTES AT PORT # 5 IS 250 -THE DECIMAL VALUE OF THE BYTES AT PORT # 6 IS 249 -THE DECIMAL VALUE OF THE BYTES AT PORT # 7 IS 248 -THE DECIMAL VALUE OF THE BYTES AT PORT # 8 IS 247 -THE DECIMAL VALUE OF THE BYTES AT PORT # 9 IS 246 -THE DECIMAL VALUE OF THE BYTES AT PORT # 10 IS 245 -THE DECIMAL VALUE OF THE BYTES AT PORT # 11 IS 244 -THE DECIMAL VALUE OF THE BYTES AT PORT # 12 IS 243 -THE DECIMAL VALUE OF THE BYTES AT PORT # 13 IS 242 -THE DECIMAL VALUE OF THE BYTES AT PORT # 14 IS 241 -THE DECIMAL VALUE OF THE BYTES AT PORT # 15 IS 240 -THE DECIMAL VALUE OF THE BYTES AT PORT # 16 IS 239 -THE DECIMAL VALUE OF THE BYTES AT PORT # 17 IS 238 -THE DECIMAL VALUE OF THE BYTES AT PORT # 18 IS 237 -THE DECIMAL VALUE OF THE BYTES AT PORT # 19 IS 236 -THE DECIMAL VALUE OF THE BYTES AT PORT # 20 IS 235 -THE DECIMAL VALUE OF THE BYTES AT PORT # 21 IS 234 -THE DECIMAL VALUE OF THE BYTES AT PORT # 22 IS 233 -THE DECIMAL VALUE OF THE BYTES AT PORT # 23 IS 232 -THE DECIMAL VALUE OF THE BYTES AT PORT # 24 IS 231 -THE DECIMAL VALUE OF THE BYTES AT PORT # 25 IS 230 -THE DECIMAL VALUE OF THE BYTES AT PORT # 26 IS 229 -THE DECIMAL VALUE OF THE BYTES AT PORT # 27 IS 228 -THE DECIMAL VALUE OF THE BYTES AT PORT # 28 IS 227 -THE DECIMAL VALUE OF THE BYTES AT PORT # 29 IS 226 -THE DECIMAL VALUE OF THE BYTES AT PORT # 30 IS 225 -THE DECIMAL VALUE OF THE BYTES AT PORT # 31 IS 224 -THE DECIMAL VALUE OF THE BYTES AT PORT # 32 IS 223 -THE DECIMAL VALUE OF THE BYTES AT PORT # 33 IS 222 -THE DECIMAL VALUE OF THE BYTES AT PORT # 34 IS 221 -THE DECIMAL VALUE OF THE BYTES AT PORT # 35 IS 220 -THE DECIMAL VALUE OF THE BYTES AT PORT # 36 IS 219 -THE DECIMAL VALUE OF THE BYTES AT PORT # 37 IS 218 -THE DECIMAL VALUE OF THE BYTES AT PORT # 38 IS 217 -THE DECIMAL VALUE OF THE BYTES AT PORT # 39 IS 216 -THE DECIMAL VALUE OF THE BYTES AT PORT # 40 IS 215 -THE DECIMAL VALUE OF THE BYTES AT PORT # 41 IS 214 -THE DECIMAL VALUE OF THE BYTES AT PORT # 42 IS 213 -THE DECIMAL VALUE OF THE BYTES AT PORT # 43 IS 212 -THE DECIMAL VALUE OF THE BYTES AT PORT # 44 IS 211 -THE DECIMAL VALUE OF THE BYTES AT PORT # 45 IS 210 -THE DECIMAL VALUE OF THE BYTES AT PORT # 46 IS 209 -THE DECIMAL VALUE OF THE BYTES AT PORT # 47 IS 208 -THE DECIMAL VALUE OF THE BYTES AT PORT # 48 IS 207 -THE DECIMAL VALUE OF THE BYTES AT PORT # 49 IS 206 -THE DECIMAL VALUE OF THE BYTES AT PORT # 50 IS 205 -THE DECIMAL VALUE OF THE BYTES AT PORT # 51 IS 204 -THE DECIMAL VALUE OF THE BYTES AT PORT # 52 IS 203 -THE DECIMAL VALUE OF THE BYTES AT PORT # 53 IS 202 -THE DECIMAL VALUE OF THE BYTES AT PORT # 54 IS 201 -THE DECIMAL VALUE OF THE BYTES AT PORT # 55 IS 200 -THE DECIMAL VALUE OF THE BYTES AT PORT # 56 IS 199 -THE DECIMAL VALUE OF THE BYTES AT PORT # 57 IS 198 -THE DECIMAL VALUE OF THE BYTES AT PORT # 58 IS 197 -THE DECIMAL VALUE OF THE BYTES AT PORT # 59 IS 196 -THE DECIMAL VALUE OF THE BYTES AT PORT # 60 IS 195 -THE DECIMAL VALUE OF THE BYTES AT PORT # 61 IS 194 -THE DECIMAL VALUE OF THE BYTES AT PORT # 62 IS 193 -THE DECIMAL VALUE OF THE BYTES AT PORT # 63 IS 192 -THE DECIMAL VALUE OF THE BYTES AT PORT # 64 IS 191 -THE DECIMAL VALUE OF THE BYTES AT PORT # 65 IS 190 -THE DECIMAL VALUE OF THE BYTES AT PORT # 66 IS 189 -THE DECIMAL VALUE OF THE BYTES AT PORT # 67 IS 188 -THE DECIMAL VALUE OF THE BYTES AT PORT # 68 IS 187 -THE DECIMAL VALUE OF THE BYTES AT PORT # 69 IS 186 -THE DECIMAL VALUE OF THE BYTES AT PORT # 70 IS 185 -THE DECIMAL VALUE OF THE BYTES AT PORT # 71 IS 184 -THE DECIMAL VALUE OF THE BYTES AT PORT # 72 IS 183 -THE DECIMAL VALUE OF THE BYTES AT PORT # 73 IS 182 -THE DECIMAL VALUE OF THE BYTES AT PORT # 74 IS 181 -THE DECIMAL VALUE OF THE BYTES AT PORT # 75 IS 180 -THE DECIMAL VALUE OF THE BYTES AT PORT # 76 IS 179 -THE DECIMAL VALUE OF THE BYTES AT PORT # 77 IS 178 -THE DECIMAL VALUE OF THE BYTES AT PORT # 78 IS 177 -THE DECIMAL VALUE OF THE BYTES AT PORT # 79 IS 176 -THE DECIMAL VALUE OF THE BYTES AT PORT # 80 IS 175 -THE DECIMAL VALUE OF THE BYTES AT PORT # 81 IS 174 -THE DECIMAL VALUE OF THE BYTES AT PORT # 82 IS 173 -THE DECIMAL VALUE OF THE BYTES AT PORT # 83 IS 172 -THE DECIMAL VALUE OF THE BYTES AT PORT # 84 IS 171 -THE DECIMAL VALUE OF THE BYTES AT PORT # 85 IS 170 -THE DECIMAL VALUE OF THE BYTES AT PORT # 86 IS 169 -THE DECIMAL VALUE OF THE BYTES AT PORT # 87 IS 168 -THE DECIMAL VALUE OF THE BYTES AT PORT # 88 IS 167 -THE DECIMAL VALUE OF THE BYTES AT PORT # 89 IS 166 -THE DECIMAL VALUE OF THE BYTES AT PORT # 90 IS 165 -THE DECIMAL VALUE OF THE BYTES AT PORT # 91 IS 164 -THE DECIMAL VALUE OF THE BYTES AT PORT # 92 IS 163 -THE DECIMAL VALUE OF THE BYTES AT PORT # 93 IS 162 -THE DECIMAL VALUE OF THE BYTES AT PORT # 94 IS 161 -THE DECIMAL VALUE OF THE BYTES AT PORT # 95 IS 160 -THE DECIMAL VALUE OF THE BYTES AT PORT # 96 IS 159 -THE DECIMAL VALUE OF THE BYTES AT PORT # 97 IS 158 -THE DECIMAL VALUE OF THE BYTES AT PORT # 98 IS 157 -THE DECIMAL VALUE OF THE BYTES AT PORT # 99 IS 156 -THE DECIMAL VALUE OF THE BYTES AT PORT # 100 IS 155 -THE DECIMAL VALUE OF THE BYTES AT PORT # 101 IS 154 -THE DECIMAL VALUE OF THE BYTES AT PORT # 102 IS 153 -THE DECIMAL VALUE OF THE BYTES AT PORT # 103 IS 152 -THE DECIMAL VALUE OF THE BYTES AT PORT # 104 IS 151 -THE DECIMAL VALUE OF THE BYTES AT PORT # 105 IS 150 -THE DECIMAL VALUE OF THE BYTES AT PORT # 106 IS 149 -THE DECIMAL VALUE OF THE BYTES AT PORT # 107 IS 148 -THE DECIMAL VALUE OF THE BYTES AT PORT # 108 IS 147 -THE DECIMAL VALUE OF THE BYTES AT PORT # 109 IS 146 -THE DECIMAL VALUE OF THE BYTES AT PORT # 110 IS 145 -THE DECIMAL VALUE OF THE BYTES AT PORT # 111 IS 144 -THE DECIMAL VALUE OF THE BYTES AT PORT # 112 IS 143 -THE DECIMAL VALUE OF THE BYTES AT PORT # 113 IS 142 -THE DECIMAL VALUE OF THE BYTES AT PORT # 114 IS 141 -THE DECIMAL VALUE OF THE BYTES AT PORT # 115 IS 140 -THE DECIMAL VALUE OF THE BYTES AT PORT # 116 IS 139 -THE DECIMAL VALUE OF THE BYTES AT PORT # 117 IS 138 -THE DECIMAL VALUE OF THE BYTES AT PORT # 118 IS 137 -THE DECIMAL VALUE OF THE BYTES AT PORT # 119 IS 136 -THE DECIMAL VALUE OF THE BYTES AT PORT # 120 IS 135 -THE DECIMAL VALUE OF THE BYTES AT PORT # 121 IS 134 -THE DECIMAL VALUE OF THE BYTES AT PORT # 122 IS 133 -THE DECIMAL VALUE OF THE BYTES AT PORT # 123 IS 132 -THE DECIMAL VALUE OF THE BYTES AT PORT # 124 IS 131 -THE DECIMAL VALUE OF THE BYTES AT PORT # 125 IS 130 -THE DECIMAL VALUE OF THE BYTES AT PORT # 126 IS 129 -THE DECIMAL VALUE OF THE BYTES AT PORT # 127 IS 128 -THE DECIMAL VALUE OF THE BYTES AT PORT # 128 IS 127 -THE DECIMAL VALUE OF THE BYTES AT PORT # 129 IS 126 -THE DECIMAL VALUE OF THE BYTES AT PORT # 130 IS 125 -THE DECIMAL VALUE OF THE BYTES AT PORT # 131 IS 124 -THE DECIMAL VALUE OF THE BYTES AT PORT # 132 IS 123 -THE DECIMAL VALUE OF THE BYTES AT PORT # 133 IS 122 -THE DECIMAL VALUE OF THE BYTES AT PORT # 134 IS 121 -THE DECIMAL VALUE OF THE BYTES AT PORT # 135 IS 120 -THE DECIMAL VALUE OF THE BYTES AT PORT # 136 IS 119 -THE DECIMAL VALUE OF THE BYTES AT PORT # 137 IS 118 -THE DECIMAL VALUE OF THE BYTES AT PORT # 138 IS 117 -THE DECIMAL VALUE OF THE BYTES AT PORT # 139 IS 116 -THE DECIMAL VALUE OF THE BYTES AT PORT # 140 IS 115 -THE DECIMAL VALUE OF THE BYTES AT PORT # 141 IS 114 -THE DECIMAL VALUE OF THE BYTES AT PORT # 142 IS 113 -THE DECIMAL VALUE OF THE BYTES AT PORT # 143 IS 112 -THE DECIMAL VALUE OF THE BYTES AT PORT # 144 IS 111 -THE DECIMAL VALUE OF THE BYTES AT PORT # 145 IS 110 -THE DECIMAL VALUE OF THE BYTES AT PORT # 146 IS 109 -THE DECIMAL VALUE OF THE BYTES AT PORT # 147 IS 108 -THE DECIMAL VALUE OF THE BYTES AT PORT # 148 IS 107 -THE DECIMAL VALUE OF THE BYTES AT PORT # 149 IS 106 -THE DECIMAL VALUE OF THE BYTES AT PORT # 150 IS 105 -THE DECIMAL VALUE OF THE BYTES AT PORT # 151 IS 104 -THE DECIMAL VALUE OF THE BYTES AT PORT # 152 IS 103 -THE DECIMAL VALUE OF THE BYTES AT PORT # 153 IS 102 -THE DECIMAL VALUE OF THE BYTES AT PORT # 154 IS 101 -THE DECIMAL VALUE OF THE BYTES AT PORT # 155 IS 100 -THE DECIMAL VALUE OF THE BYTES AT PORT # 156 IS 99 -THE DECIMAL VALUE OF THE BYTES AT PORT # 157 IS 98 -THE DECIMAL VALUE OF THE BYTES AT PORT # 158 IS 97 -THE DECIMAL VALUE OF THE BYTES AT PORT # 159 IS 96 -THE DECIMAL VALUE OF THE BYTES AT PORT # 160 IS 95 -THE DECIMAL VALUE OF THE BYTES AT PORT # 161 IS 94 -THE DECIMAL VALUE OF THE BYTES AT PORT # 162 IS 93 -THE DECIMAL VALUE OF THE BYTES AT PORT # 163 IS 92 -THE DECIMAL VALUE OF THE BYTES AT PORT # 164 IS 91 -THE DECIMAL VALUE OF THE BYTES AT PORT # 165 IS 90 -THE DECIMAL VALUE OF THE BYTES AT PORT # 166 IS 89 -THE DECIMAL VALUE OF THE BYTES AT PORT # 167 IS 88 -THE DECIMAL VALUE OF THE BYTES AT PORT # 168 IS 87 -THE DECIMAL VALUE OF THE BYTES AT PORT # 169 IS 86 -THE DECIMAL VALUE OF THE BYTES AT PORT # 170 IS 85 -THE DECIMAL VALUE OF THE BYTES AT PORT # 171 IS 84 -THE DECIMAL VALUE OF THE BYTES AT PORT # 172 IS 83 -THE DECIMAL VALUE OF THE BYTES AT PORT # 173 IS 82 -THE DECIMAL VALUE OF THE BYTES AT PORT # 174 IS 81 -THE DECIMAL VALUE OF THE BYTES AT PORT # 175 IS 80 -THE DECIMAL VALUE OF THE BYTES AT PORT # 176 IS 79 -THE DECIMAL VALUE OF THE BYTES AT PORT # 177 IS 78 -THE DECIMAL VALUE OF THE BYTES AT PORT # 178 IS 77 -THE DECIMAL VALUE OF THE BYTES AT PORT # 179 IS 76 -THE DECIMAL VALUE OF THE BYTES AT PORT # 180 IS 75 -THE DECIMAL VALUE OF THE BYTES AT PORT # 181 IS 74 -THE DECIMAL VALUE OF THE BYTES AT PORT # 182 IS 73 -THE DECIMAL VALUE OF THE BYTES AT PORT # 183 IS 72 -THE DECIMAL VALUE OF THE BYTES AT PORT # 184 IS 71 -THE DECIMAL VALUE OF THE BYTES AT PORT # 185 IS 70 -THE DECIMAL VALUE OF THE BYTES AT PORT # 186 IS 69 -THE DECIMAL VALUE OF THE BYTES AT PORT # 187 IS 68 -THE DECIMAL VALUE OF THE BYTES AT PORT # 188 IS 67 -THE DECIMAL VALUE OF THE BYTES AT PORT # 189 IS 66 -THE DECIMAL VALUE OF THE BYTES AT PORT # 190 IS 65 -THE DECIMAL VALUE OF THE BYTES AT PORT # 191 IS 64 -THE DECIMAL VALUE OF THE BYTES AT PORT # 192 IS 63 -THE DECIMAL VALUE OF THE BYTES AT PORT # 193 IS 62 -THE DECIMAL VALUE OF THE BYTES AT PORT # 194 IS 61 -THE DECIMAL VALUE OF THE BYTES AT PORT # 195 IS 60 -THE DECIMAL VALUE OF THE BYTES AT PORT # 196 IS 59 -THE DECIMAL VALUE OF THE BYTES AT PORT # 197 IS 58 -THE DECIMAL VALUE OF THE BYTES AT PORT # 198 IS 57 -THE DECIMAL VALUE OF THE BYTES AT PORT # 199 IS 56 -THE DECIMAL VALUE OF THE BYTES AT PORT # 200 IS 55 -THE DECIMAL VALUE OF THE BYTES AT PORT # 201 IS 54 -THE DECIMAL VALUE OF THE BYTES AT PORT # 202 IS 53 -THE DECIMAL VALUE OF THE BYTES AT PORT # 203 IS 52 -THE DECIMAL VALUE OF THE BYTES AT PORT # 204 IS 51 -THE DECIMAL VALUE OF THE BYTES AT PORT # 205 IS 50 -THE DECIMAL VALUE OF THE BYTES AT PORT # 206 IS 49 -THE DECIMAL VALUE OF THE BYTES AT PORT # 207 IS 48 -THE DECIMAL VALUE OF THE BYTES AT PORT # 208 IS 47 -THE DECIMAL VALUE OF THE BYTES AT PORT # 209 IS 46 -THE DECIMAL VALUE OF THE BYTES AT PORT # 210 IS 45 -THE DECIMAL VALUE OF THE BYTES AT PORT # 211 IS 44 -THE DECIMAL VALUE OF THE BYTES AT PORT # 212 IS 43 -THE DECIMAL VALUE OF THE BYTES AT PORT # 213 IS 42 -THE DECIMAL VALUE OF THE BYTES AT PORT # 214 IS 41 -THE DECIMAL VALUE OF THE BYTES AT PORT # 215 IS 40 -THE DECIMAL VALUE OF THE BYTES AT PORT # 216 IS 39 -THE DECIMAL VALUE OF THE BYTES AT PORT # 217 IS 38 -THE DECIMAL VALUE OF THE BYTES AT PORT # 218 IS 37 -THE DECIMAL VALUE OF THE BYTES AT PORT # 219 IS 36 -THE DECIMAL VALUE OF THE BYTES AT PORT # 220 IS 35 -THE DECIMAL VALUE OF THE BYTES AT PORT # 221 IS 34 -THE DECIMAL VALUE OF THE BYTES AT PORT # 222 IS 33 -THE DECIMAL VALUE OF THE BYTES AT PORT # 223 IS 32 -THE DECIMAL VALUE OF THE BYTES AT PORT # 224 IS 31 -THE DECIMAL VALUE OF THE BYTES AT PORT # 225 IS 30 -THE DECIMAL VALUE OF THE BYTES AT PORT # 226 IS 29 -THE DECIMAL VALUE OF THE BYTES AT PORT # 227 IS 28 -THE DECIMAL VALUE OF THE BYTES AT PORT # 228 IS 27 -THE DECIMAL VALUE OF THE BYTES AT PORT # 229 IS 26 -THE DECIMAL VALUE OF THE BYTES AT PORT # 230 IS 25 -THE DECIMAL VALUE OF THE BYTES AT PORT # 231 IS 24 -THE DECIMAL VALUE OF THE BYTES AT PORT # 232 IS 23 -THE DECIMAL VALUE OF THE BYTES AT PORT # 233 IS 22 -THE DECIMAL VALUE OF THE BYTES AT PORT # 234 IS 21 -THE DECIMAL VALUE OF THE BYTES AT PORT # 235 IS 20 -THE DECIMAL VALUE OF THE BYTES AT PORT # 236 IS 19 -THE DECIMAL VALUE OF THE BYTES AT PORT # 237 IS 18 -THE DECIMAL VALUE OF THE BYTES AT PORT # 238 IS 17 -THE DECIMAL VALUE OF THE BYTES AT PORT # 239 IS 16 -THE DECIMAL VALUE OF THE BYTES AT PORT # 240 IS 15 -THE DECIMAL VALUE OF THE BYTES AT PORT # 241 IS 14 -THE DECIMAL VALUE OF THE BYTES AT PORT # 242 IS 13 -THE DECIMAL VALUE OF THE BYTES AT PORT # 243 IS 12 -THE DECIMAL VALUE OF THE BYTES AT PORT # 244 IS 11 -THE DECIMAL VALUE OF THE BYTES AT PORT # 245 IS 10 -THE DECIMAL VALUE OF THE BYTES AT PORT # 246 IS 9 -THE DECIMAL VALUE OF THE BYTES AT PORT # 247 IS 8 -THE DECIMAL VALUE OF THE BYTES AT PORT # 248 IS 7 -THE DECIMAL VALUE OF THE BYTES AT PORT # 249 IS 6 -THE DECIMAL VALUE OF THE BYTES AT PORT # 250 IS 5 -THE DECIMAL VALUE OF THE BYTES AT PORT # 251 IS 4 -THE DECIMAL VALUE OF THE BYTES AT PORT # 252 IS 3 -THE DECIMAL VALUE OF THE BYTES AT PORT # 253 IS 2 -THE DECIMAL VALUE OF THE BYTES AT PORT # 254 IS 1 -THE DECIMAL VALUE OF THE BYTES AT PORT # 255 IS 0 diff --git a/bwbtest/HB1/INT_1.BAS b/bwbtest/HB1/INT_1.BAS deleted file mode 100644 index bdd20df..0000000 --- a/bwbtest/HB1/INT_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'INT' TEST PROGRAM -20 READ X -30 PRINT "THE INTEGER VALUE OF"; X; -40 X=INT(X) -50 PRINT "IS";X -60 IF X=999 THEN 999 -70 GOTO 20 -80 DATA 3.33,2.864,.35,-3.15,32766.853,-32766.853,999.99 -999 END diff --git a/bwbtest/HB1/INT_1.run b/bwbtest/HB1/INT_1.run deleted file mode 100644 index 535990e..0000000 --- a/bwbtest/HB1/INT_1.run +++ /dev/null @@ -1,7 +0,0 @@ -THE INTEGER VALUE OF 3.33 IS 3 -THE INTEGER VALUE OF 2.864 IS 2 -THE INTEGER VALUE OF .35 IS 0 -THE INTEGER VALUE OF-3.15 IS-4 -THE INTEGER VALUE OF 32766.9 IS 32766 -THE INTEGER VALUE OF-32766.9 IS-32767 -THE INTEGER VALUE OF 999.99 IS 999 diff --git a/bwbtest/HB1/LEFT_1.BAS b/bwbtest/HB1/LEFT_1.BAS deleted file mode 100644 index f98e974..0000000 --- a/bwbtest/HB1/LEFT_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'LEFT' TEST PROGRAM -20 A$="TESTING" -30 B$=LEFT(A$,4) -40 PRINT "THE 'LEFT' FUNCTION PASSED THE ";B$ -99 END diff --git a/bwbtest/HB1/LEFT_1.run b/bwbtest/HB1/LEFT_1.run deleted file mode 100644 index f94fd93..0000000 --- a/bwbtest/HB1/LEFT_1.run +++ /dev/null @@ -1 +0,0 @@ -THE 'LEFT' FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/LEFT_2.BAS b/bwbtest/HB1/LEFT_2.BAS deleted file mode 100644 index 036004f..0000000 --- a/bwbtest/HB1/LEFT_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'LEFT$' TEST PROGRAM -20 A$="TESTING" -30 B$=LEFT$(A$,4) -40 PRINT LEFT$("THEATER",3);" 'LEFT' FUNCTION PASSED THE ";B$ -99 END diff --git a/bwbtest/HB1/LEFT_2.run b/bwbtest/HB1/LEFT_2.run deleted file mode 100644 index f94fd93..0000000 --- a/bwbtest/HB1/LEFT_2.run +++ /dev/null @@ -1 +0,0 @@ -THE 'LEFT' FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/LEFT_3.BAS b/bwbtest/HB1/LEFT_3.BAS deleted file mode 100644 index a1da314..0000000 --- a/bwbtest/HB1/LEFT_3.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'LEFT$' TEST PROGRAM -15 DEF LEFT$(A$,X)=MID$(A$,1,X) -20 A$="TESTING" -30 B$=LEFT$(A$,4) -40 PRINT LEFT$("THEATER",3);" 'LEFT' FUNCTION PASSED THE ";B$ -99 END diff --git a/bwbtest/HB1/LEFT_3.run b/bwbtest/HB1/LEFT_3.run deleted file mode 100644 index f94fd93..0000000 --- a/bwbtest/HB1/LEFT_3.run +++ /dev/null @@ -1 +0,0 @@ -THE 'LEFT' FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/LEN_1.BAS b/bwbtest/HB1/LEN_1.BAS deleted file mode 100644 index a33bc15..0000000 --- a/bwbtest/HB1/LEN_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'LEN' TEST PROGRAM -20 PRINT "TYPE ANY COMBINATION OF LETTERS AND NUMBERS" -30 INPUT A$ -40 PRINT "YOU ENTERED ";A$;" WHICH CONTAINS"; -50 PRINT LEN(A$);"CHARACTERS" -99 END diff --git a/bwbtest/HB1/LEN_1.INP b/bwbtest/HB1/LEN_1.INP deleted file mode 100644 index 87d118b..0000000 --- a/bwbtest/HB1/LEN_1.INP +++ /dev/null @@ -1 +0,0 @@ -ABCDEFG diff --git a/bwbtest/HB1/LEN_1.run b/bwbtest/HB1/LEN_1.run deleted file mode 100644 index d8689c5..0000000 --- a/bwbtest/HB1/LEN_1.run +++ /dev/null @@ -1,3 +0,0 @@ -TYPE ANY COMBINATION OF LETTERS AND NUMBERS -? ABCDEFG -YOU ENTERED ABCDEFG WHICH CONTAINS 7 CHARACTERS diff --git a/bwbtest/HB1/LET_1.BAS b/bwbtest/HB1/LET_1.BAS deleted file mode 100644 index a13892a..0000000 --- a/bwbtest/HB1/LET_1.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'LET' TEST PROGRAM -20 LET X=20 -30 PRINT "THE LET STATEMENT PASSED THE TEST IN LINE";X -99 END diff --git a/bwbtest/HB1/LET_1.run b/bwbtest/HB1/LET_1.run deleted file mode 100644 index bb2304c..0000000 --- a/bwbtest/HB1/LET_1.run +++ /dev/null @@ -1 +0,0 @@ -THE LET STATEMENT PASSED THE TEST IN LINE 20 diff --git a/bwbtest/HB1/LET_2.BAS b/bwbtest/HB1/LET_2.BAS deleted file mode 100644 index dc41364..0000000 --- a/bwbtest/HB1/LET_2.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'LET' TEST PROGRAM -20 X=20 -30 PRINT "THE LET STATEMENT PASSED THE TEST IN LINE";X -99 END diff --git a/bwbtest/HB1/LET_2.run b/bwbtest/HB1/LET_2.run deleted file mode 100644 index bb2304c..0000000 --- a/bwbtest/HB1/LET_2.run +++ /dev/null @@ -1 +0,0 @@ -THE LET STATEMENT PASSED THE TEST IN LINE 20 diff --git a/bwbtest/HB1/LE_1.BAS b/bwbtest/HB1/LE_1.BAS deleted file mode 100644 index 331b8a1..0000000 --- a/bwbtest/HB1/LE_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'LE (<=)' TEST PROGRAM -20 IF 10 LE 20 THEN 50 -30 PRINT "THE LE OPERATOR FAILED THE TEST IN LINE 20" -40 GOTO 99 -50 IF 20 LE 20 THEN 80 -60 PRINT "THE LE OPERATOR FAILED THE TEST IN LINE 50" -70 GOTO 99 -80 PRINT "THE LE OPERATOR PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/LE_1.PRO b/bwbtest/HB1/LE_1.PRO deleted file mode 100644 index 379f91b..0000000 --- a/bwbtest/HB1/LE_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION ENABLE OPERATOR "LE" diff --git a/bwbtest/HB1/LE_1.run b/bwbtest/HB1/LE_1.run deleted file mode 100644 index ef749f2..0000000 --- a/bwbtest/HB1/LE_1.run +++ /dev/null @@ -1 +0,0 @@ -THE LE OPERATOR PASSED THE TEST diff --git a/bwbtest/HB1/LGT_1.BAS b/bwbtest/HB1/LGT_1.BAS deleted file mode 100644 index 389638f..0000000 --- a/bwbtest/HB1/LGT_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 PRINT 'LGT' TEST PROGRAM -20 PRINT "ENTER A POSITIVE NUMBER"; -30 INPUT N -40 X=LGT(N) -50 PRINT "THE COMMON LOG OF";N;"IS";X -99 END diff --git a/bwbtest/HB1/LGT_1.INP b/bwbtest/HB1/LGT_1.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/LGT_1.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/LGT_1.run b/bwbtest/HB1/LGT_1.run deleted file mode 100644 index f49b32e..0000000 --- a/bwbtest/HB1/LGT_1.run +++ /dev/null @@ -1,3 +0,0 @@ - -ENTER A POSITIVE NUMBER? 100 -THE COMMON LOG OF 100 IS 2 diff --git a/bwbtest/HB1/LGT_2.BAS b/bwbtest/HB1/LGT_2.BAS deleted file mode 100644 index 308937c..0000000 --- a/bwbtest/HB1/LGT_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 PRINT 'LGT' TEST PROGRAM -15 DEF LGT(N)=LOG(N)*.4342945 -20 PRINT "ENTER A POSITIVE NUMBER"; -30 INPUT N -40 X=LGT(N) -50 PRINT "THE COMMON LOG OF";N;"IS";X -99 END diff --git a/bwbtest/HB1/LGT_2.INP b/bwbtest/HB1/LGT_2.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/LGT_2.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/LGT_2.run b/bwbtest/HB1/LGT_2.run deleted file mode 100644 index 9360637..0000000 --- a/bwbtest/HB1/LGT_2.run +++ /dev/null @@ -1,3 +0,0 @@ - -ENTER A POSITIVE NUMBER? 100 -THE COMMON LOG OF 100 IS 2. diff --git a/bwbtest/HB1/LGT_21.run b/bwbtest/HB1/LGT_21.run deleted file mode 100644 index 176c4f6..0000000 --- a/bwbtest/HB1/LGT_21.run +++ /dev/null @@ -1,2 +0,0 @@ - -ERROR in line 1: Failed to open file LGT_21 diff --git a/bwbtest/HB1/LIN_1.BAS b/bwbtest/HB1/LIN_1.BAS deleted file mode 100644 index 48d3a89..0000000 --- a/bwbtest/HB1/LIN_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'LIN' TEST PROGRAM -20 PRINT "THE LIN STATEMENT PASSED THE TEST" -30 PRINT LIN(5) -40 PRINT "IF 5 LINES ARE SKIPPED BEFORE THIS LINE IS PRINTED" -99 END diff --git a/bwbtest/HB1/LIN_1.run b/bwbtest/HB1/LIN_1.run deleted file mode 100644 index 9a1c88b..0000000 --- a/bwbtest/HB1/LIN_1.run +++ /dev/null @@ -1,8 +0,0 @@ -THE LIN STATEMENT PASSED THE TEST - - - - - - -IF 5 LINES ARE SKIPPED BEFORE THIS LINE IS PRINTED diff --git a/bwbtest/HB1/LIST_1.BAS b/bwbtest/HB1/LIST_1.BAS deleted file mode 100644 index 9ea8bf7..0000000 --- a/bwbtest/HB1/LIST_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'LIST' COMMAND TEST PROGRAM -20 REM THIS COMMAND -30 REM WILL DISPLAY EACH LINE -40 REM AS HELD BY THE COMPUTER -50 PRINT "LIST TEST COMPLETE" -99 END diff --git a/bwbtest/HB1/LIST_1.INP b/bwbtest/HB1/LIST_1.INP deleted file mode 100644 index 0218854..0000000 --- a/bwbtest/HB1/LIST_1.INP +++ /dev/null @@ -1 +0,0 @@ -LIST 20-30 diff --git a/bwbtest/HB1/LIST_1.run b/bwbtest/HB1/LIST_1.run deleted file mode 100644 index 360c2a5..0000000 --- a/bwbtest/HB1/LIST_1.run +++ /dev/null @@ -1,5 +0,0 @@ -LIST TEST COMPLETE -bwBASIC: LIST 20-30 - 20 REM THIS COMMAND - 30 REM WILL DISPLAY EACH LINE - diff --git a/bwbtest/HB1/LIST_2.BAS b/bwbtest/HB1/LIST_2.BAS deleted file mode 100644 index 44e8362..0000000 --- a/bwbtest/HB1/LIST_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'LIST' COMMAND TEST PROGRAM -20 REM THIS COMMAND -30 REM WILL DISPLAY EACH LINE -40 REM AS HELD BY THE COMPUTER -50 PRINT "LIST TEST COMPLETE" -60 LIST -99 END diff --git a/bwbtest/HB1/LIST_2.run b/bwbtest/HB1/LIST_2.run deleted file mode 100644 index df0e3c9..0000000 --- a/bwbtest/HB1/LIST_2.run +++ /dev/null @@ -1,9 +0,0 @@ -LIST TEST COMPLETE - 10 REM 'LIST' COMMAND TEST PROGRAM - 20 REM THIS COMMAND - 30 REM WILL DISPLAY EACH LINE - 40 REM AS HELD BY THE COMPUTER - 50 PRINT "LIST TEST COMPLETE" - 60 LIST - 99 END - diff --git a/bwbtest/HB1/LN_1.BAS b/bwbtest/HB1/LN_1.BAS deleted file mode 100644 index 5bb5caf..0000000 --- a/bwbtest/HB1/LN_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'LN' TEST PROGRAM -20 PRINT "ENTER A POSITIVE NUMBER"; -30 INPUT N -40 L=LN(N) -50 PRINT "THE NATURAL LOG OF";N;"IS";L -99 END diff --git a/bwbtest/HB1/LN_1.INP b/bwbtest/HB1/LN_1.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/LN_1.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/LN_1.run b/bwbtest/HB1/LN_1.run deleted file mode 100644 index 94e2a3d..0000000 --- a/bwbtest/HB1/LN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A POSITIVE NUMBER? 100 -THE NATURAL LOG OF 100 IS 4.60517 diff --git a/bwbtest/HB1/LN_2.BAS b/bwbtest/HB1/LN_2.BAS deleted file mode 100644 index 4cde63a..0000000 --- a/bwbtest/HB1/LN_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'LN' TEST PROGRAM -15 DEF LN(X)=LOG(X) -20 PRINT "ENTER A POSITIVE NUMBER"; -30 INPUT N -40 L=LN(N) -50 PRINT "THE NATURAL LOG OF";N;"IS";L -99 END diff --git a/bwbtest/HB1/LN_2.INP b/bwbtest/HB1/LN_2.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/LN_2.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/LN_2.run b/bwbtest/HB1/LN_2.run deleted file mode 100644 index 94e2a3d..0000000 --- a/bwbtest/HB1/LN_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A POSITIVE NUMBER? 100 -THE NATURAL LOG OF 100 IS 4.60517 diff --git a/bwbtest/HB1/LOAD_1.BAS b/bwbtest/HB1/LOAD_1.BAS deleted file mode 100644 index 596e5d3..0000000 --- a/bwbtest/HB1/LOAD_1.BAS +++ /dev/null @@ -1 +0,0 @@ -1 REM diff --git a/bwbtest/HB1/LOAD_1.DAT b/bwbtest/HB1/LOAD_1.DAT deleted file mode 100644 index 1194179..0000000 --- a/bwbtest/HB1/LOAD_1.DAT +++ /dev/null @@ -1,3 +0,0 @@ -10 REM 'LOAD' TEST PROGRAM -20 PRINT "THIS PROGRAM TESTS THE LOAD FEATURE" -99 END diff --git a/bwbtest/HB1/LOAD_1.INP b/bwbtest/HB1/LOAD_1.INP deleted file mode 100644 index f6e3775..0000000 --- a/bwbtest/HB1/LOAD_1.INP +++ /dev/null @@ -1,6 +0,0 @@ -LIST -NEW -LIST -LOAD "LOAD_1.DAT" -LIST -RUN diff --git a/bwbtest/HB1/LOAD_1.run b/bwbtest/HB1/LOAD_1.run deleted file mode 100644 index 8426ea6..0000000 --- a/bwbtest/HB1/LOAD_1.run +++ /dev/null @@ -1,14 +0,0 @@ -bwBASIC: LIST - 1 REM - -bwBASIC: NEW -bwBASIC: LIST - -bwBASIC: LOAD "LOAD_1.DAT" -bwBASIC: LIST - 10 REM 'LOAD' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE LOAD FEATURE" - 99 END - -bwBASIC: RUN -THIS PROGRAM TESTS THE LOAD FEATURE diff --git a/bwbtest/HB1/LOG10_1.BAS b/bwbtest/HB1/LOG10_1.BAS deleted file mode 100644 index 5373075..0000000 --- a/bwbtest/HB1/LOG10_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'LOG10' TEST PROGRAM -20 PRINT "ENTER A POSITIVE NUMBER"; -30 INPUT N -40 L=LOG10(N) -50 PRINT "THE NATURAL LOG OF";N;"IS";L -99 END diff --git a/bwbtest/HB1/LOG10_1.INP b/bwbtest/HB1/LOG10_1.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/LOG10_1.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/LOG10_1.run b/bwbtest/HB1/LOG10_1.run deleted file mode 100644 index c25bc83..0000000 --- a/bwbtest/HB1/LOG10_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A POSITIVE NUMBER? 100 -THE NATURAL LOG OF 100 IS 2 diff --git a/bwbtest/HB1/LOG10_2.BAS b/bwbtest/HB1/LOG10_2.BAS deleted file mode 100644 index 08d3a63..0000000 --- a/bwbtest/HB1/LOG10_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'LOG10' TEST PROGRAM -15 DEF LOG10(X)=LOG(X)*.4342945 -20 PRINT "ENTER A POSITIVE NUMBER"; -30 INPUT N -40 L=LOG10(N) -50 PRINT "THE NATURAL LOG OF";N;"IS";L -99 END diff --git a/bwbtest/HB1/LOG10_2.INP b/bwbtest/HB1/LOG10_2.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/LOG10_2.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/LOG10_2.run b/bwbtest/HB1/LOG10_2.run deleted file mode 100644 index b83f0d4..0000000 --- a/bwbtest/HB1/LOG10_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A POSITIVE NUMBER? 100 -THE NATURAL LOG OF 100 IS 2. diff --git a/bwbtest/HB1/LOGE_1.BAS b/bwbtest/HB1/LOGE_1.BAS deleted file mode 100644 index 08e5ec9..0000000 --- a/bwbtest/HB1/LOGE_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'LOGE' TEST PROGRAM -20 PRINT "ENTER A POSITIVE NUMBER"; -30 INPUT N -40 L=LOGE(N) -50 PRINT "THE NATURAL LOG OF";N;"IS";L -99 END diff --git a/bwbtest/HB1/LOGE_1.INP b/bwbtest/HB1/LOGE_1.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/LOGE_1.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/LOGE_1.run b/bwbtest/HB1/LOGE_1.run deleted file mode 100644 index 94e2a3d..0000000 --- a/bwbtest/HB1/LOGE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A POSITIVE NUMBER? 100 -THE NATURAL LOG OF 100 IS 4.60517 diff --git a/bwbtest/HB1/LOGE_2.BAS b/bwbtest/HB1/LOGE_2.BAS deleted file mode 100644 index 83e473a..0000000 --- a/bwbtest/HB1/LOGE_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'LOGE' TEST PROGRAM -15 DEF LOGE(X)=LOG(X) -20 PRINT "ENTER A POSITIVE NUMBER"; -30 INPUT N -40 L=LOGE(N) -50 PRINT "THE NATURAL LOG OF";N;"IS";L -99 END diff --git a/bwbtest/HB1/LOGE_2.INP b/bwbtest/HB1/LOGE_2.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/LOGE_2.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/LOGE_2.run b/bwbtest/HB1/LOGE_2.run deleted file mode 100644 index 94e2a3d..0000000 --- a/bwbtest/HB1/LOGE_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A POSITIVE NUMBER? 100 -THE NATURAL LOG OF 100 IS 4.60517 diff --git a/bwbtest/HB1/LOG_1.BAS b/bwbtest/HB1/LOG_1.BAS deleted file mode 100644 index 774f336..0000000 --- a/bwbtest/HB1/LOG_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'LOG' TEST PROGRAM -20 PRINT "ENTER A POSITIVE NUMBER"; -30 INPUT N -40 L=LOG(N) -50 PRINT "THE NATURAL LOG OF";N;"IS";L -99 END diff --git a/bwbtest/HB1/LOG_1.INP b/bwbtest/HB1/LOG_1.INP deleted file mode 100644 index 29d6383..0000000 --- a/bwbtest/HB1/LOG_1.INP +++ /dev/null @@ -1 +0,0 @@ -100 diff --git a/bwbtest/HB1/LOG_1.run b/bwbtest/HB1/LOG_1.run deleted file mode 100644 index 94e2a3d..0000000 --- a/bwbtest/HB1/LOG_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A POSITIVE NUMBER? 100 -THE NATURAL LOG OF 100 IS 4.60517 diff --git a/bwbtest/HB1/LT_1.BAS b/bwbtest/HB1/LT_1.BAS deleted file mode 100644 index a300d72..0000000 --- a/bwbtest/HB1/LT_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'LT (<)' TEST PROGRAM -20 IF 5 LT 10 THEN 50 -30 PRINT "THE LT OPERATOR FAILED THE TEST" -40 GOTO 99 -50 PRINT "THE LT OPERATOR PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/LT_1.PRO b/bwbtest/HB1/LT_1.PRO deleted file mode 100644 index 8d00f69..0000000 --- a/bwbtest/HB1/LT_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION ENABLE OPERATOR "LT" diff --git a/bwbtest/HB1/LT_1.run b/bwbtest/HB1/LT_1.run deleted file mode 100644 index b67fa50..0000000 --- a/bwbtest/HB1/LT_1.run +++ /dev/null @@ -1 +0,0 @@ -THE LT OPERATOR PASSED THE TEST diff --git a/bwbtest/HB1/MAN_1.BAS b/bwbtest/HB1/MAN_1.BAS deleted file mode 100644 index 23f930b..0000000 --- a/bwbtest/HB1/MAN_1.BAS +++ /dev/null @@ -1 +0,0 @@ -1 REM 'MAN' IS USED TO EXIT 'AUTO' COMMAND diff --git a/bwbtest/HB1/MAN_1.INP b/bwbtest/HB1/MAN_1.INP deleted file mode 100644 index b898764..0000000 --- a/bwbtest/HB1/MAN_1.INP +++ /dev/null @@ -1,9 +0,0 @@ -LIST -NEW -AUTO -REM THIS IS LINE 10 -REM THIS IS LINE 20 -REM THIS IS LINE 30 -REM THIS IS LINE 40 -MAN -LIST diff --git a/bwbtest/HB1/MAN_1.run b/bwbtest/HB1/MAN_1.run deleted file mode 100644 index 0462913..0000000 --- a/bwbtest/HB1/MAN_1.run +++ /dev/null @@ -1,16 +0,0 @@ -bwBASIC: LIST - 1 REM 'MAN' IS USED TO EXIT 'AUTO' COMMAND - -bwBASIC: NEW -bwBASIC: AUTO -10 REM THIS IS LINE 10 -20 REM THIS IS LINE 20 -30 REM THIS IS LINE 30 -40 REM THIS IS LINE 40 -50 MAN -bwBASIC: LIST - 10 REM THIS IS LINE 10 - 20 REM THIS IS LINE 20 - 30 REM THIS IS LINE 30 - 40 REM THIS IS LINE 40 - diff --git a/bwbtest/HB1/MAT_INPUT_1.BAS b/bwbtest/HB1/MAT_INPUT_1.BAS deleted file mode 100644 index b8fc805..0000000 --- a/bwbtest/HB1/MAT_INPUT_1.BAS +++ /dev/null @@ -1,14 +0,0 @@ -10 REM 'MAT INPUT' TEST PROGRAM -20 DIM A(3,4) -30 PRINT "ENTER 12 NUMBERS (TYPE A COMMA BETWEEN EACH NUMBER)" -40 MAT INPUT A -50 FOR I=1 TO 3 -60 FOR J=1 TO 4 -70 PRINT A(I,J); -80 NEXT J -90 PRINT -100 NEXT I -110 PRINT "THE MAT INPUT STATEMENT PASSED THE TEST" -120 PRINT "IF THE INPUT VALUES ARE PRINTED" -130 PRINT "IN A MATRIX HAVING THREE ROWS OF FOUR COLUMNS" -999 END diff --git a/bwbtest/HB1/MAT_INPUT_1.INP b/bwbtest/HB1/MAT_INPUT_1.INP deleted file mode 100644 index 49360f1..0000000 --- a/bwbtest/HB1/MAT_INPUT_1.INP +++ /dev/null @@ -1 +0,0 @@ -1,2,3,4,5,6,7,8,9,10,11,12 diff --git a/bwbtest/HB1/MAT_INPUT_1.PRO b/bwbtest/HB1/MAT_INPUT_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_INPUT_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_INPUT_1.run b/bwbtest/HB1/MAT_INPUT_1.run deleted file mode 100644 index 38eec49..0000000 --- a/bwbtest/HB1/MAT_INPUT_1.run +++ /dev/null @@ -1,8 +0,0 @@ -ENTER 12 NUMBERS (TYPE A COMMA BETWEEN EACH NUMBER) -?1,2,3,4,5,6,7,8,9,10,11,12 - 1 2 3 4 - 5 6 7 8 - 9 10 11 12 -THE MAT INPUT STATEMENT PASSED THE TEST -IF THE INPUT VALUES ARE PRINTED -IN A MATRIX HAVING THREE ROWS OF FOUR COLUMNS diff --git a/bwbtest/HB1/MAT_INPUT_2.BAS b/bwbtest/HB1/MAT_INPUT_2.BAS deleted file mode 100644 index 2b3c5c0..0000000 --- a/bwbtest/HB1/MAT_INPUT_2.BAS +++ /dev/null @@ -1,14 +0,0 @@ -10 REM 'MAT INPUT' (IMPLICIT DIM) TEST PROGRAM -20 DIM A(3,4) -30 PRINT "ENTER 12 NUMBERS (TYPE A COMMA BETWEEN EACH NUMBER)" -40 MAT INPUT A -50 FOR I=1 TO 3 -60 FOR J=1 TO 4 -70 PRINT A(I,J); -80 NEXT J -90 PRINT -100 NEXT I -110 PRINT "THE MAT INPUT STATEMENT PASSED THE TEST" -120 PRINT "IF THE INPUT VALUES ARE PRINTED" -130 PRINT "IN A MATRIX HAVING THREE ROWS OF FOUR COLUMNS" -999 END diff --git a/bwbtest/HB1/MAT_INPUT_2.INP b/bwbtest/HB1/MAT_INPUT_2.INP deleted file mode 100644 index 49360f1..0000000 --- a/bwbtest/HB1/MAT_INPUT_2.INP +++ /dev/null @@ -1 +0,0 @@ -1,2,3,4,5,6,7,8,9,10,11,12 diff --git a/bwbtest/HB1/MAT_INPUT_2.PRO b/bwbtest/HB1/MAT_INPUT_2.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_INPUT_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_INPUT_2.run b/bwbtest/HB1/MAT_INPUT_2.run deleted file mode 100644 index 38eec49..0000000 --- a/bwbtest/HB1/MAT_INPUT_2.run +++ /dev/null @@ -1,8 +0,0 @@ -ENTER 12 NUMBERS (TYPE A COMMA BETWEEN EACH NUMBER) -?1,2,3,4,5,6,7,8,9,10,11,12 - 1 2 3 4 - 5 6 7 8 - 9 10 11 12 -THE MAT INPUT STATEMENT PASSED THE TEST -IF THE INPUT VALUES ARE PRINTED -IN A MATRIX HAVING THREE ROWS OF FOUR COLUMNS diff --git a/bwbtest/HB1/MAT_INPUT_3.BAS b/bwbtest/HB1/MAT_INPUT_3.BAS deleted file mode 100644 index 89b3400..0000000 --- a/bwbtest/HB1/MAT_INPUT_3.BAS +++ /dev/null @@ -1,14 +0,0 @@ -10 REM 'MAT INPUT' (SMALLER) TEST PROGRAM -20 DIM A(20,20) -30 PRINT "ENTER 12 NUMBERS (TYPE A COMMA BETWEEN EACH NUMBER)" -40 MAT INPUT A(3,4) -50 FOR I=1 TO 3 -60 FOR J=1 TO 4 -70 PRINT A(I,J); -80 NEXT J -90 PRINT -100 NEXT I -110 PRINT "THE MAT INPUT STATEMENT PASSED THE TEST" -120 PRINT "IF THE INPUT VALUES ARE PRINTED" -130 PRINT "IN A MATRIX HAVING THREE ROWS OF FOUR COLUMNS" -999 END diff --git a/bwbtest/HB1/MAT_INPUT_3.INP b/bwbtest/HB1/MAT_INPUT_3.INP deleted file mode 100644 index 49360f1..0000000 --- a/bwbtest/HB1/MAT_INPUT_3.INP +++ /dev/null @@ -1 +0,0 @@ -1,2,3,4,5,6,7,8,9,10,11,12 diff --git a/bwbtest/HB1/MAT_INPUT_3.PRO b/bwbtest/HB1/MAT_INPUT_3.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_INPUT_3.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_INPUT_3.run b/bwbtest/HB1/MAT_INPUT_3.run deleted file mode 100644 index 38eec49..0000000 --- a/bwbtest/HB1/MAT_INPUT_3.run +++ /dev/null @@ -1,8 +0,0 @@ -ENTER 12 NUMBERS (TYPE A COMMA BETWEEN EACH NUMBER) -?1,2,3,4,5,6,7,8,9,10,11,12 - 1 2 3 4 - 5 6 7 8 - 9 10 11 12 -THE MAT INPUT STATEMENT PASSED THE TEST -IF THE INPUT VALUES ARE PRINTED -IN A MATRIX HAVING THREE ROWS OF FOUR COLUMNS diff --git a/bwbtest/HB1/MAT_INPUT_4.BAS b/bwbtest/HB1/MAT_INPUT_4.BAS deleted file mode 100644 index 35f68ee..0000000 --- a/bwbtest/HB1/MAT_INPUT_4.BAS +++ /dev/null @@ -1,14 +0,0 @@ -10 REM 'MAT INPUT' (EQUAL) TEST PROGRAM -20 DIM A(3,4) -30 PRINT "ENTER 12 NUMBERS (TYPE A COMMA BETWEEN EACH NUMBER)" -40 MAT INPUT A(3,4) -50 FOR I=1 TO 3 -60 FOR J=1 TO 4 -70 PRINT A(I,J); -80 NEXT J -90 PRINT -100 NEXT I -110 PRINT "THE MAT INPUT STATEMENT PASSED THE TEST" -120 PRINT "IF THE INPUT VALUES ARE PRINTED" -130 PRINT "IN A MATRIX HAVING THREE ROWS OF FOUR COLUMNS" -999 END diff --git a/bwbtest/HB1/MAT_INPUT_4.INP b/bwbtest/HB1/MAT_INPUT_4.INP deleted file mode 100644 index 49360f1..0000000 --- a/bwbtest/HB1/MAT_INPUT_4.INP +++ /dev/null @@ -1 +0,0 @@ -1,2,3,4,5,6,7,8,9,10,11,12 diff --git a/bwbtest/HB1/MAT_INPUT_4.PRO b/bwbtest/HB1/MAT_INPUT_4.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_INPUT_4.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_INPUT_4.run b/bwbtest/HB1/MAT_INPUT_4.run deleted file mode 100644 index 38eec49..0000000 --- a/bwbtest/HB1/MAT_INPUT_4.run +++ /dev/null @@ -1,8 +0,0 @@ -ENTER 12 NUMBERS (TYPE A COMMA BETWEEN EACH NUMBER) -?1,2,3,4,5,6,7,8,9,10,11,12 - 1 2 3 4 - 5 6 7 8 - 9 10 11 12 -THE MAT INPUT STATEMENT PASSED THE TEST -IF THE INPUT VALUES ARE PRINTED -IN A MATRIX HAVING THREE ROWS OF FOUR COLUMNS diff --git a/bwbtest/HB1/MAT_INPUT_5.BAS b/bwbtest/HB1/MAT_INPUT_5.BAS deleted file mode 100644 index bb390b5..0000000 --- a/bwbtest/HB1/MAT_INPUT_5.BAS +++ /dev/null @@ -1,14 +0,0 @@ -10 REM 'MAT INPUT' (LARGER) TEST PROGRAM -20 DIM A(3,4) -30 PRINT "ENTER 12 NUMBERS (TYPE A COMMA BETWEEN EACH NUMBER)" -40 MAT INPUT A(4,5) -50 FOR I=1 TO 3 -60 FOR J=1 TO 4 -70 PRINT A(I,J); -80 NEXT J -90 PRINT -100 NEXT I -110 PRINT "THE MAT INPUT STATEMENT PASSED THE TEST" -120 PRINT "IF THE INPUT VALUES ARE PRINTED" -130 PRINT "IN A MATRIX HAVING THREE ROWS OF FOUR COLUMNS" -999 END diff --git a/bwbtest/HB1/MAT_INPUT_5.INP b/bwbtest/HB1/MAT_INPUT_5.INP deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/HB1/MAT_INPUT_5.PRO b/bwbtest/HB1/MAT_INPUT_5.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_INPUT_5.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_INPUT_5.run b/bwbtest/HB1/MAT_INPUT_5.run deleted file mode 100644 index 790a580..0000000 --- a/bwbtest/HB1/MAT_INPUT_5.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER 12 NUMBERS (TYPE A COMMA BETWEEN EACH NUMBER) - -ERROR in line 40: Subscript out of range diff --git a/bwbtest/HB1/MAT_PRINT_1.BAS b/bwbtest/HB1/MAT_PRINT_1.BAS deleted file mode 100644 index 4542971..0000000 --- a/bwbtest/HB1/MAT_PRINT_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MAT PRINT' TEST PROGRAM -20 DIM A(5) -30 FOR X=1 TO 5 -40 A(X)=X -50 NEXT X -60 MAT PRINT A -70 PRINT "END OF MAT PRINT TEST" -99 END diff --git a/bwbtest/HB1/MAT_PRINT_1.PRO b/bwbtest/HB1/MAT_PRINT_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_PRINT_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_PRINT_1.run b/bwbtest/HB1/MAT_PRINT_1.run deleted file mode 100644 index 30ad729..0000000 --- a/bwbtest/HB1/MAT_PRINT_1.run +++ /dev/null @@ -1,6 +0,0 @@ - 1 - 2 - 3 - 4 - 5 -END OF MAT PRINT TEST diff --git a/bwbtest/HB1/MAT_PRINT_2.BAS b/bwbtest/HB1/MAT_PRINT_2.BAS deleted file mode 100644 index 0de955a..0000000 --- a/bwbtest/HB1/MAT_PRINT_2.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MAT PRINT' TEST PROGRAM -20 DIM A(5) -30 FOR X=1 TO 5 -40 A(X)=X -50 NEXT X -60 MAT PRINT A, -70 PRINT "END OF MAT PRINT TEST" -99 END diff --git a/bwbtest/HB1/MAT_PRINT_2.PRO b/bwbtest/HB1/MAT_PRINT_2.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_PRINT_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_PRINT_2.run b/bwbtest/HB1/MAT_PRINT_2.run deleted file mode 100644 index d2896c1..0000000 --- a/bwbtest/HB1/MAT_PRINT_2.run +++ /dev/null @@ -1,2 +0,0 @@ - 1 2 3 4 5 -END OF MAT PRINT TEST diff --git a/bwbtest/HB1/MAT_PRINT_3.BAS b/bwbtest/HB1/MAT_PRINT_3.BAS deleted file mode 100644 index 8cc25c8..0000000 --- a/bwbtest/HB1/MAT_PRINT_3.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MAT PRINT' TEST PROGRAM -20 DIM A(5) -30 FOR X=1 TO 5 -40 A(X)=X -50 NEXT X -60 MAT PRINT A; -70 PRINT "END OF MAT PRINT TEST" -99 END diff --git a/bwbtest/HB1/MAT_PRINT_3.PRO b/bwbtest/HB1/MAT_PRINT_3.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_PRINT_3.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_PRINT_3.run b/bwbtest/HB1/MAT_PRINT_3.run deleted file mode 100644 index af6603f..0000000 --- a/bwbtest/HB1/MAT_PRINT_3.run +++ /dev/null @@ -1,2 +0,0 @@ - 1 2 3 4 5 -END OF MAT PRINT TEST diff --git a/bwbtest/HB1/MAT_PRINT_4.BAS b/bwbtest/HB1/MAT_PRINT_4.BAS deleted file mode 100644 index 2e7ecdc..0000000 --- a/bwbtest/HB1/MAT_PRINT_4.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'MAT PRINT' WITH MULTIPLE ARRAY VARIABLES TEST PROGRAM -20 DIM A(3),B(3,5) -30 FOR I=1 TO 3 -40 FOR J=1 TO 5 -50 B(I,J)=J -60 NEXT J -70 A(I)=I -80 NEXT I -90 MAT PRINT A;B, -100 PRINT "END OF MAT PRINT TEST" -999 END diff --git a/bwbtest/HB1/MAT_PRINT_4.PRO b/bwbtest/HB1/MAT_PRINT_4.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_PRINT_4.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_PRINT_4.run b/bwbtest/HB1/MAT_PRINT_4.run deleted file mode 100644 index 80974cc..0000000 --- a/bwbtest/HB1/MAT_PRINT_4.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 2 3 - 1 2 3 4 5 - 1 2 3 4 5 - 1 2 3 4 5 -END OF MAT PRINT TEST diff --git a/bwbtest/HB1/MAT_PRINT_5.BAS b/bwbtest/HB1/MAT_PRINT_5.BAS deleted file mode 100644 index 357d182..0000000 --- a/bwbtest/HB1/MAT_PRINT_5.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MAT PRINT' (SMALLER) TEST PROGRAM -20 DIM A(5) -30 FOR X=1 TO 5 -40 A(X)=X -50 NEXT X -60 MAT PRINT A(4) -70 PRINT "END OF MAT PRINT TEST" -99 END diff --git a/bwbtest/HB1/MAT_PRINT_5.PRO b/bwbtest/HB1/MAT_PRINT_5.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_PRINT_5.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_PRINT_5.run b/bwbtest/HB1/MAT_PRINT_5.run deleted file mode 100644 index 365bf35..0000000 --- a/bwbtest/HB1/MAT_PRINT_5.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 - 2 - 3 - 4 -END OF MAT PRINT TEST diff --git a/bwbtest/HB1/MAT_PRINT_6.BAS b/bwbtest/HB1/MAT_PRINT_6.BAS deleted file mode 100644 index 613247e..0000000 --- a/bwbtest/HB1/MAT_PRINT_6.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MAT PRINT' (EQUAL) TEST PROGRAM -20 DIM A(5) -30 FOR X=1 TO 5 -40 A(X)=X -50 NEXT X -60 MAT PRINT A(5) -70 PRINT "END OF MAT PRINT TEST" -99 END diff --git a/bwbtest/HB1/MAT_PRINT_6.PRO b/bwbtest/HB1/MAT_PRINT_6.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_PRINT_6.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_PRINT_6.run b/bwbtest/HB1/MAT_PRINT_6.run deleted file mode 100644 index 30ad729..0000000 --- a/bwbtest/HB1/MAT_PRINT_6.run +++ /dev/null @@ -1,6 +0,0 @@ - 1 - 2 - 3 - 4 - 5 -END OF MAT PRINT TEST diff --git a/bwbtest/HB1/MAT_PRINT_7.BAS b/bwbtest/HB1/MAT_PRINT_7.BAS deleted file mode 100644 index 82bfb6c..0000000 --- a/bwbtest/HB1/MAT_PRINT_7.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MAT PRINT' (EQUAL) TEST PROGRAM -20 DIM A(5) -30 FOR X=1 TO 5 -40 A(X)=X -50 NEXT X -60 MAT PRINT A(6) -70 PRINT "END OF MAT PRINT TEST" -99 END diff --git a/bwbtest/HB1/MAT_PRINT_7.PRO b/bwbtest/HB1/MAT_PRINT_7.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_PRINT_7.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_PRINT_7.run b/bwbtest/HB1/MAT_PRINT_7.run deleted file mode 100644 index d807231..0000000 --- a/bwbtest/HB1/MAT_PRINT_7.run +++ /dev/null @@ -1,2 +0,0 @@ - -ERROR in line 60: Subscript out of range diff --git a/bwbtest/HB1/MAT_PRINT_8.BAS b/bwbtest/HB1/MAT_PRINT_8.BAS deleted file mode 100644 index a6a3db3..0000000 --- a/bwbtest/HB1/MAT_PRINT_8.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MAT PRINT' (IMPLICIT) TEST PROGRAM -20 DIM A(5) -30 REM FOR X=1 TO 5 -40 REM A(X)=X -50 REM NEXT X -60 MAT PRINT A -70 PRINT "END OF MAT PRINT TEST" -99 END diff --git a/bwbtest/HB1/MAT_PRINT_8.PRO b/bwbtest/HB1/MAT_PRINT_8.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_PRINT_8.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_PRINT_8.run b/bwbtest/HB1/MAT_PRINT_8.run deleted file mode 100644 index 02d3258..0000000 --- a/bwbtest/HB1/MAT_PRINT_8.run +++ /dev/null @@ -1,6 +0,0 @@ - 0 - 0 - 0 - 0 - 0 -END OF MAT PRINT TEST diff --git a/bwbtest/HB1/MAT_READ_1.BAS b/bwbtest/HB1/MAT_READ_1.BAS deleted file mode 100644 index 3c7f00e..0000000 --- a/bwbtest/HB1/MAT_READ_1.BAS +++ /dev/null @@ -1,13 +0,0 @@ -10 REM 'MAT READ' (EXPLICIT DIM) TEST PROGRAM -20 DIM A(3,4) -30 MAT READ A -40 FOR I=1 TO 3 -50 FOR J=1 TO 4 -60 PRINT A(I,J); -70 NEXT J -80 PRINT -90 NEXT I -100 DATA 1,2,3,4,5,6,7,8,9,10,11,12 -110 PRINT "THE MAT READ STATEMENT PASSED THE TEST" -120 PRINT "IF A MATRIX IS PRINTED HAVING 3 ROWS AND 4 COLUMNS" -999 END diff --git a/bwbtest/HB1/MAT_READ_1.PRO b/bwbtest/HB1/MAT_READ_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_READ_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_READ_1.run b/bwbtest/HB1/MAT_READ_1.run deleted file mode 100644 index ab59969..0000000 --- a/bwbtest/HB1/MAT_READ_1.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 2 3 4 - 5 6 7 8 - 9 10 11 12 -THE MAT READ STATEMENT PASSED THE TEST -IF A MATRIX IS PRINTED HAVING 3 ROWS AND 4 COLUMNS diff --git a/bwbtest/HB1/MAT_READ_2.BAS b/bwbtest/HB1/MAT_READ_2.BAS deleted file mode 100644 index abd331e..0000000 --- a/bwbtest/HB1/MAT_READ_2.BAS +++ /dev/null @@ -1,13 +0,0 @@ -10 REM 'MAT READ' (IMPLICIT DIM) TEST PROGRAM -20 DIM A(3,4) -30 MAT READ A -40 FOR I=1 TO 3 -50 FOR J=1 TO 4 -60 PRINT A(I,J); -70 NEXT J -80 PRINT -90 NEXT I -100 DATA 1,2,3,4,5,6,7,8,9,10,11,12 -110 PRINT "THE MAT READ STATEMENT PASSED THE TEST" -120 PRINT "IF A MATRIX IS PRINTED HAVING 3 ROWS AND 4 COLUMNS" -999 END diff --git a/bwbtest/HB1/MAT_READ_2.PRO b/bwbtest/HB1/MAT_READ_2.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_READ_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_READ_2.run b/bwbtest/HB1/MAT_READ_2.run deleted file mode 100644 index ab59969..0000000 --- a/bwbtest/HB1/MAT_READ_2.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 2 3 4 - 5 6 7 8 - 9 10 11 12 -THE MAT READ STATEMENT PASSED THE TEST -IF A MATRIX IS PRINTED HAVING 3 ROWS AND 4 COLUMNS diff --git a/bwbtest/HB1/MAT_READ_3.BAS b/bwbtest/HB1/MAT_READ_3.BAS deleted file mode 100644 index df9347c..0000000 --- a/bwbtest/HB1/MAT_READ_3.BAS +++ /dev/null @@ -1,13 +0,0 @@ -10 REM 'MAT READ' (REQUEST < DIM) TEST PROGRAM -20 DIM A(12,13) -30 MAT READ A(3,4) -40 FOR I=1 TO 3 -50 FOR J=1 TO 4 -60 PRINT A(I,J); -70 NEXT J -80 PRINT -90 NEXT I -100 DATA 1,2,3,4,5,6,7,8,9,10,11,12 -110 PRINT "THE MAT READ STATEMENT PASSED THE TEST" -120 PRINT "IF A MATRIX IS PRINTED HAVING 3 ROWS AND 4 COLUMNS" -999 END diff --git a/bwbtest/HB1/MAT_READ_3.PRO b/bwbtest/HB1/MAT_READ_3.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_READ_3.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_READ_3.run b/bwbtest/HB1/MAT_READ_3.run deleted file mode 100644 index ab59969..0000000 --- a/bwbtest/HB1/MAT_READ_3.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 2 3 4 - 5 6 7 8 - 9 10 11 12 -THE MAT READ STATEMENT PASSED THE TEST -IF A MATRIX IS PRINTED HAVING 3 ROWS AND 4 COLUMNS diff --git a/bwbtest/HB1/MAT_READ_4.BAS b/bwbtest/HB1/MAT_READ_4.BAS deleted file mode 100644 index 562e30f..0000000 --- a/bwbtest/HB1/MAT_READ_4.BAS +++ /dev/null @@ -1,13 +0,0 @@ -10 REM 'MAT READ' (REQUEST = DIM) TEST PROGRAM -20 DIM A(3,4) -30 MAT READ A(3,4) -40 FOR I=1 TO 3 -50 FOR J=1 TO 4 -60 PRINT A(I,J); -70 NEXT J -80 PRINT -90 NEXT I -100 DATA 1,2,3,4,5,6,7,8,9,10,11,12 -110 PRINT "THE MAT READ STATEMENT PASSED THE TEST" -120 PRINT "IF A MATRIX IS PRINTED HAVING 3 ROWS AND 4 COLUMNS" -999 END diff --git a/bwbtest/HB1/MAT_READ_4.PRO b/bwbtest/HB1/MAT_READ_4.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_READ_4.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_READ_4.run b/bwbtest/HB1/MAT_READ_4.run deleted file mode 100644 index ab59969..0000000 --- a/bwbtest/HB1/MAT_READ_4.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 2 3 4 - 5 6 7 8 - 9 10 11 12 -THE MAT READ STATEMENT PASSED THE TEST -IF A MATRIX IS PRINTED HAVING 3 ROWS AND 4 COLUMNS diff --git a/bwbtest/HB1/MAT_READ_5.BAS b/bwbtest/HB1/MAT_READ_5.BAS deleted file mode 100644 index d0b36f7..0000000 --- a/bwbtest/HB1/MAT_READ_5.BAS +++ /dev/null @@ -1,13 +0,0 @@ -10 REM 'MAT READ' (REQUEST > DIM) TEST PROGRAM -20 DIM A(3,4) -30 MAT READ A(4,5) -40 FOR I=1 TO 3 -50 FOR J=1 TO 4 -60 PRINT A(I,J); -70 NEXT J -80 PRINT -90 NEXT I -100 DATA 1,2,3,4,5,6,7,8,9,10,11,12 -110 PRINT "THE MAT READ STATEMENT PASSED THE TEST" -120 PRINT "IF A MATRIX IS PRINTED HAVING 3 ROWS AND 4 COLUMNS" -999 END diff --git a/bwbtest/HB1/MAT_READ_5.PRO b/bwbtest/HB1/MAT_READ_5.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB1/MAT_READ_5.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB1/MAT_READ_5.run b/bwbtest/HB1/MAT_READ_5.run deleted file mode 100644 index c2ba2f3..0000000 --- a/bwbtest/HB1/MAT_READ_5.run +++ /dev/null @@ -1,2 +0,0 @@ - -ERROR in line 30: Subscript out of range diff --git a/bwbtest/HB1/MEM_1.BAS b/bwbtest/HB1/MEM_1.BAS deleted file mode 100644 index 02f473e..0000000 --- a/bwbtest/HB1/MEM_1.BAS +++ /dev/null @@ -1,3 +0,0 @@ -10 REM 'MEM' TEST PROGRAM -20 PRINT MEM;"BYTES OF MEMORY ARE REMAINING" -99 END diff --git a/bwbtest/HB1/MEM_1.run b/bwbtest/HB1/MEM_1.run deleted file mode 100644 index 9d9f96b..0000000 --- a/bwbtest/HB1/MEM_1.run +++ /dev/null @@ -1 +0,0 @@ - 32000 BYTES OF MEMORY ARE REMAINING diff --git a/bwbtest/HB1/MEM_2.BAS b/bwbtest/HB1/MEM_2.BAS deleted file mode 100644 index bb09ac0..0000000 --- a/bwbtest/HB1/MEM_2.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'MEM' TEST PROGRAM -15 DEF MEM=32000 -20 PRINT MEM;"BYTES OF MEMORY ARE REMAINING" -99 END diff --git a/bwbtest/HB1/MEM_2.run b/bwbtest/HB1/MEM_2.run deleted file mode 100644 index 9d9f96b..0000000 --- a/bwbtest/HB1/MEM_2.run +++ /dev/null @@ -1 +0,0 @@ - 32000 BYTES OF MEMORY ARE REMAINING diff --git a/bwbtest/HB1/MID_1.BAS b/bwbtest/HB1/MID_1.BAS deleted file mode 100644 index 79fa6ef..0000000 --- a/bwbtest/HB1/MID_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'MID' TEST PROGRAM -20 A$="CONTESTANT" -30 PRINT "'MID' PASSED THE "; -40 PRINT MID(A$,4,4) -99 END diff --git a/bwbtest/HB1/MID_1.run b/bwbtest/HB1/MID_1.run deleted file mode 100644 index 1ce6106..0000000 --- a/bwbtest/HB1/MID_1.run +++ /dev/null @@ -1 +0,0 @@ -'MID' PASSED THE TEST diff --git a/bwbtest/HB1/MID_2.BAS b/bwbtest/HB1/MID_2.BAS deleted file mode 100644 index 3504ff1..0000000 --- a/bwbtest/HB1/MID_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'MID$' TEST PROGRAM -20 A$="CONTESTANT" -30 B$=MID$(A$,4,4) -40 PRINT MID$("ATHENA",2,3);" 'MID$' FUNCTION PASSED THE ";B$ -99 END diff --git a/bwbtest/HB1/MID_2.run b/bwbtest/HB1/MID_2.run deleted file mode 100644 index 56260bb..0000000 --- a/bwbtest/HB1/MID_2.run +++ /dev/null @@ -1 +0,0 @@ -THE 'MID$' FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/MOD_1.BAS b/bwbtest/HB1/MOD_1.BAS deleted file mode 100644 index 2aef983..0000000 --- a/bwbtest/HB1/MOD_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'MOD' TEST PROGRAM -20 A = 13 MOD 5 -30 IF A = 3 THEN 60 -40 PRINT "THE MOD FUNCTION FAILED THE TEST" -50 GOTO 99 -60 PRINT "THE MOD FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/MOD_1.PRO b/bwbtest/HB1/MOD_1.PRO deleted file mode 100644 index e4a7048..0000000 --- a/bwbtest/HB1/MOD_1.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION ENABLE OPERATOR "MOD" -OPTION DISABLE FUNCTION "MOD" diff --git a/bwbtest/HB1/MOD_1.run b/bwbtest/HB1/MOD_1.run deleted file mode 100644 index c48a3f7..0000000 --- a/bwbtest/HB1/MOD_1.run +++ /dev/null @@ -1 +0,0 @@ -THE MOD FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/MOD_2.BAS b/bwbtest/HB1/MOD_2.BAS deleted file mode 100644 index a52394f..0000000 --- a/bwbtest/HB1/MOD_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'MOD' (FUNCTION) TEST PROGRAM -20 A = MOD(13,5) -30 IF A = 3 THEN 60 -40 PRINT "THE MOD FUNCTION FAILED THE TEST" -50 GOTO 99 -60 PRINT "THE MOD FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/MOD_2.PRO b/bwbtest/HB1/MOD_2.PRO deleted file mode 100644 index 5a51c3f..0000000 --- a/bwbtest/HB1/MOD_2.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION DISABLE OPERATOR "MOD" -OPTION ENABLE FUNCTION "MOD" diff --git a/bwbtest/HB1/MOD_2.run b/bwbtest/HB1/MOD_2.run deleted file mode 100644 index c48a3f7..0000000 --- a/bwbtest/HB1/MOD_2.run +++ /dev/null @@ -1 +0,0 @@ -THE MOD FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/MOD_3.BAS b/bwbtest/HB1/MOD_3.BAS deleted file mode 100644 index d4c60b5..0000000 --- a/bwbtest/HB1/MOD_3.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MOD' (FUNCTION) TEST PROGRAM -15 DEF MOD(X,Y)=INT(Y*(X/Y-INT(X/Y))) -20 A = MOD(13,5) -30 IF A = 3 THEN 60 -40 PRINT "THE MOD FUNCTION FAILED THE TEST" -50 GOTO 99 -60 PRINT "THE MOD FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/MOD_3.PRO b/bwbtest/HB1/MOD_3.PRO deleted file mode 100644 index 26c8f67..0000000 --- a/bwbtest/HB1/MOD_3.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION DISABLE OPERATOR "MOD" -OPTION DISABLE FUNCTION "MOD" diff --git a/bwbtest/HB1/MOD_3.run b/bwbtest/HB1/MOD_3.run deleted file mode 100644 index c48a3f7..0000000 --- a/bwbtest/HB1/MOD_3.run +++ /dev/null @@ -1 +0,0 @@ -THE MOD FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/NEW_1.BAS b/bwbtest/HB1/NEW_1.BAS deleted file mode 100644 index 80af20a..0000000 --- a/bwbtest/HB1/NEW_1.BAS +++ /dev/null @@ -1,3 +0,0 @@ -10 REM 'NEW' COMMAND TEST PROGRAM -20 PRINT "HELLO THERE." -99 END diff --git a/bwbtest/HB1/NEW_1.INP b/bwbtest/HB1/NEW_1.INP deleted file mode 100644 index af137cf..0000000 --- a/bwbtest/HB1/NEW_1.INP +++ /dev/null @@ -1,3 +0,0 @@ -LIST -NEW -LIST diff --git a/bwbtest/HB1/NEW_1.run b/bwbtest/HB1/NEW_1.run deleted file mode 100644 index cf2a25d..0000000 --- a/bwbtest/HB1/NEW_1.run +++ /dev/null @@ -1,9 +0,0 @@ -HELLO THERE. -bwBASIC: LIST - 10 REM 'NEW' COMMAND TEST PROGRAM - 20 PRINT "HELLO THERE." - 99 END - -bwBASIC: NEW -bwBASIC: LIST - diff --git a/bwbtest/HB1/NEXT_1.BAS b/bwbtest/HB1/NEXT_1.BAS deleted file mode 100644 index d06a004..0000000 --- a/bwbtest/HB1/NEXT_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'NEXT' TEST PROGRAM -20 FOR X=1 TO 4 -30 PRINT X, -40 NEXT X -50 PRINT "THE 'NEXT' STATEMENT PASSED THE TEST." -99 END diff --git a/bwbtest/HB1/NEXT_1.run b/bwbtest/HB1/NEXT_1.run deleted file mode 100644 index 7229bd6..0000000 --- a/bwbtest/HB1/NEXT_1.run +++ /dev/null @@ -1,2 +0,0 @@ - 1 2 3 4 -THE 'NEXT' STATEMENT PASSED THE TEST. diff --git a/bwbtest/HB1/NEXT_2.BAS b/bwbtest/HB1/NEXT_2.BAS deleted file mode 100644 index 211ef7c..0000000 --- a/bwbtest/HB1/NEXT_2.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM TEST PROGRAM WITH NESTED 'NEXT' STATEMENTS -20 FOR A=1 TO 3 -30 FOR B=1 TO 3 -40 PRINT A;B, -50 NEXT B -60 NEXT A -70 PRINT "THE 'NEXT' STATEMENT PASSED THE TEST WHEN NESTED" -99 END diff --git a/bwbtest/HB1/NEXT_2.run b/bwbtest/HB1/NEXT_2.run deleted file mode 100644 index f866cc6..0000000 --- a/bwbtest/HB1/NEXT_2.run +++ /dev/null @@ -1,3 +0,0 @@ - 1 1 1 2 1 3 2 1 2 2 2 3 - 3 1 3 2 3 3 -THE 'NEXT' STATEMENT PASSED THE TEST WHEN NESTED diff --git a/bwbtest/HB1/NEXT_3.BAS b/bwbtest/HB1/NEXT_3.BAS deleted file mode 100644 index 7bd5756..0000000 --- a/bwbtest/HB1/NEXT_3.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM TEST PROGRAM WITH NESTED 'NEXT' STATEMENTS -20 FOR A=1 TO 3 -30 FOR B=1 TO 3 -40 PRINT A;B, -50 NEXT -60 NEXT -70 PRINT "THE 'NEXT' STATEMENT PASSED THE TEST WHEN NESTED" -99 END diff --git a/bwbtest/HB1/NEXT_3.run b/bwbtest/HB1/NEXT_3.run deleted file mode 100644 index f866cc6..0000000 --- a/bwbtest/HB1/NEXT_3.run +++ /dev/null @@ -1,3 +0,0 @@ - 1 1 1 2 1 3 2 1 2 2 2 3 - 3 1 3 2 3 3 -THE 'NEXT' STATEMENT PASSED THE TEST WHEN NESTED diff --git a/bwbtest/HB1/NE_1.BAS b/bwbtest/HB1/NE_1.BAS deleted file mode 100644 index 7d30974..0000000 --- a/bwbtest/HB1/NE_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'NE (<>)' TEST PROGRAM -20 A=10 -30 IF A NE 20 THEN 60 -40 PRINT "THE NE OPERATOR FAILED THE TEST" -50 GOTO 99 -60 PRINT "THE NE OPERATOR PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/NE_1.PRO b/bwbtest/HB1/NE_1.PRO deleted file mode 100644 index d4287ca..0000000 --- a/bwbtest/HB1/NE_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION ENABLE OPERATOR "NE" diff --git a/bwbtest/HB1/NE_1.run b/bwbtest/HB1/NE_1.run deleted file mode 100644 index d5fbad4..0000000 --- a/bwbtest/HB1/NE_1.run +++ /dev/null @@ -1 +0,0 @@ -THE NE OPERATOR PASSED THE TEST diff --git a/bwbtest/HB1/NOTRACE_1.BAS b/bwbtest/HB1/NOTRACE_1.BAS deleted file mode 100644 index b9c9fc5..0000000 --- a/bwbtest/HB1/NOTRACE_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'NOTRACE' TEST PROGRAM -20 TRACE -30 PRINT "EACH LINE SHOULD BE TRACED" -40 NOTRACE -50 PRINT "BY THE 'TRACE' STATEMENT" -60 PRINT "UNTIL TURNED OFF BY THE 'NOTRACE' STATEMENT" -99 END diff --git a/bwbtest/HB1/NOTRACE_1.run b/bwbtest/HB1/NOTRACE_1.run deleted file mode 100644 index 8a41a24..0000000 --- a/bwbtest/HB1/NOTRACE_1.run +++ /dev/null @@ -1,5 +0,0 @@ -Trace is ON -[ 30 PRINT "EACH LINE SHOULD BE TRACED" ]EACH LINE SHOULD BE TRACED -[ 40 NOTRACE ]Trace is OFF -BY THE 'TRACE' STATEMENT -UNTIL TURNED OFF BY THE 'NOTRACE' STATEMENT diff --git a/bwbtest/HB1/NOTRACE_2.BAS b/bwbtest/HB1/NOTRACE_2.BAS deleted file mode 100644 index 14aa5fd..0000000 --- a/bwbtest/HB1/NOTRACE_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'NOTRACE' TEST PROGRAM -15 DEF NOTRACE=TROFF -16 DEF TRACE=TRON -20 TRACE -30 PRINT "EACH LINE SHOULD BE TRACED" -40 NOTRACE -50 PRINT "BY THE 'TRACE' STATEMENT" -60 PRINT "UNTIL TURNED OFF BY THE 'NOTRACE' STATEMENT" -99 END diff --git a/bwbtest/HB1/NOTRACE_2.run b/bwbtest/HB1/NOTRACE_2.run deleted file mode 100644 index 8a41a24..0000000 --- a/bwbtest/HB1/NOTRACE_2.run +++ /dev/null @@ -1,5 +0,0 @@ -Trace is ON -[ 30 PRINT "EACH LINE SHOULD BE TRACED" ]EACH LINE SHOULD BE TRACED -[ 40 NOTRACE ]Trace is OFF -BY THE 'TRACE' STATEMENT -UNTIL TURNED OFF BY THE 'NOTRACE' STATEMENT diff --git a/bwbtest/HB1/ON_ERROR_GOTO_1.BAS b/bwbtest/HB1/ON_ERROR_GOTO_1.BAS deleted file mode 100644 index a2d1a7c..0000000 --- a/bwbtest/HB1/ON_ERROR_GOTO_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'ON-ERROR-GOTO' TEST PROGRAM -20 ON ERROR GOTO 100 -30 PRINT "ENTER A NUMBER AND IT'S INVERSE WILL BE COMPUTED"; -40 INPUT N -45 IF N = -999 THEN 999 -50 A=1/N -60 PRINT "THE INVERSE OF";N;"IS";A -70 GOTO 30 -100 PRINT "THE INVERSE OF 0 CANNOT BE COMPUTED - TRY AGAIN" -110 RESUME 30 -999 END diff --git a/bwbtest/HB1/ON_ERROR_GOTO_1.INP b/bwbtest/HB1/ON_ERROR_GOTO_1.INP deleted file mode 100644 index 9511ff3..0000000 --- a/bwbtest/HB1/ON_ERROR_GOTO_1.INP +++ /dev/null @@ -1,8 +0,0 @@ -1 -2 --1 --2 -0 -0.5 --0.5 --999 diff --git a/bwbtest/HB1/ON_ERROR_GOTO_1.run b/bwbtest/HB1/ON_ERROR_GOTO_1.run deleted file mode 100644 index 55a1849..0000000 --- a/bwbtest/HB1/ON_ERROR_GOTO_1.run +++ /dev/null @@ -1,15 +0,0 @@ -ENTER A NUMBER AND IT'S INVERSE WILL BE COMPUTED? 1 -THE INVERSE OF 1 IS 1 -ENTER A NUMBER AND IT'S INVERSE WILL BE COMPUTED? 2 -THE INVERSE OF 2 IS .5 -ENTER A NUMBER AND IT'S INVERSE WILL BE COMPUTED? -1 -THE INVERSE OF-1 IS-1 -ENTER A NUMBER AND IT'S INVERSE WILL BE COMPUTED? -2 -THE INVERSE OF-2 IS-.5 -ENTER A NUMBER AND IT'S INVERSE WILL BE COMPUTED? 0 -THE INVERSE OF 0 CANNOT BE COMPUTED - TRY AGAIN -ENTER A NUMBER AND IT'S INVERSE WILL BE COMPUTED? 0.5 -THE INVERSE OF .5 IS 2 -ENTER A NUMBER AND IT'S INVERSE WILL BE COMPUTED? -0.5 -THE INVERSE OF-.5 IS-2 -ENTER A NUMBER AND IT'S INVERSE WILL BE COMPUTED? -999 diff --git a/bwbtest/HB1/ON_GOSUB_1.BAS b/bwbtest/HB1/ON_GOSUB_1.BAS deleted file mode 100644 index 1d9c045..0000000 --- a/bwbtest/HB1/ON_GOSUB_1.BAS +++ /dev/null @@ -1,17 +0,0 @@ -10 REM 'ON-GOSUB' TEST PROGRAM -20 PRINT "ENTER THE NUMBER 1,2 OR 3"; -30 INPUT X -35 IF X = -999 THEN 999 -40 PRINT "THE ON-GOSUB STATEMENT "; -50 ON X GOSUB 100,200,300 -60 GOTO 20 -100 REM SUBROUTINE #1 -110 PRINT "BRANCHED TO SUBROUTINE #1" -120 RETURN -200 REM SUBROUTINE #2 -210 PRINT "BRANCHED TO SUBROUTINE #2" -220 RETURN -300 REM SUBROUTINE #3 -310 PRINT "BRANCHED TO SUBROUTINE #3" -320 RETURN -999 END diff --git a/bwbtest/HB1/ON_GOSUB_1.INP b/bwbtest/HB1/ON_GOSUB_1.INP deleted file mode 100644 index 728d4c4..0000000 --- a/bwbtest/HB1/ON_GOSUB_1.INP +++ /dev/null @@ -1,6 +0,0 @@ -1 -2 -3 -4 -0 --999 diff --git a/bwbtest/HB1/ON_GOSUB_1.run b/bwbtest/HB1/ON_GOSUB_1.run deleted file mode 100644 index 3cfa8d4..0000000 --- a/bwbtest/HB1/ON_GOSUB_1.run +++ /dev/null @@ -1,9 +0,0 @@ -ENTER THE NUMBER 1,2 OR 3? 1 -THE ON-GOSUB STATEMENT BRANCHED TO SUBROUTINE #1 -ENTER THE NUMBER 1,2 OR 3? 2 -THE ON-GOSUB STATEMENT BRANCHED TO SUBROUTINE #2 -ENTER THE NUMBER 1,2 OR 3? 3 -THE ON-GOSUB STATEMENT BRANCHED TO SUBROUTINE #3 -ENTER THE NUMBER 1,2 OR 3? 4 -THE ON-GOSUB STATEMENT ENTER THE NUMBER 1,2 OR 3? 0 -THE ON-GOSUB STATEMENT ENTER THE NUMBER 1,2 OR 3? -999 diff --git a/bwbtest/HB1/ON_GOTO_1.BAS b/bwbtest/HB1/ON_GOTO_1.BAS deleted file mode 100644 index b51d886..0000000 --- a/bwbtest/HB1/ON_GOTO_1.BAS +++ /dev/null @@ -1,15 +0,0 @@ -10 REM 'ON-GOTO' TEST PROGRAM -20 PRINT "ENTER THE NUMBER 1,2 OR 3"; -30 INPUT X -35 IF X = -999 THEN 999 -40 PRINT "THE ON-GOTO STATEMENT "; -50 ON X GOTO 100,200,300 -60 PRINT "FAILED THE TEST" -70 GOTO 999 -100 PRINT "BRANCHED TO LINE 100" -110 GOTO 20 -200 PRINT "BRANCHED TO LINE 200" -210 GOTO 20 -300 PRINT "BRANCHED TO LINE 300" -310 GOTO 20 -999 END diff --git a/bwbtest/HB1/ON_GOTO_1.INP b/bwbtest/HB1/ON_GOTO_1.INP deleted file mode 100644 index 2468f34..0000000 --- a/bwbtest/HB1/ON_GOTO_1.INP +++ /dev/null @@ -1,4 +0,0 @@ -1 -2 -3 --999 diff --git a/bwbtest/HB1/ON_GOTO_1.run b/bwbtest/HB1/ON_GOTO_1.run deleted file mode 100644 index 1f40510..0000000 --- a/bwbtest/HB1/ON_GOTO_1.run +++ /dev/null @@ -1,7 +0,0 @@ -ENTER THE NUMBER 1,2 OR 3? 1 -THE ON-GOTO STATEMENT BRANCHED TO LINE 100 -ENTER THE NUMBER 1,2 OR 3? 2 -THE ON-GOTO STATEMENT BRANCHED TO LINE 200 -ENTER THE NUMBER 1,2 OR 3? 3 -THE ON-GOTO STATEMENT BRANCHED TO LINE 300 -ENTER THE NUMBER 1,2 OR 3? -999 diff --git a/bwbtest/HB1/ON_GOTO_2.BAS b/bwbtest/HB1/ON_GOTO_2.BAS deleted file mode 100644 index 2566e4b..0000000 --- a/bwbtest/HB1/ON_GOTO_2.BAS +++ /dev/null @@ -1,15 +0,0 @@ -10 REM 'ON-GOTO' (OFFSET) TEST PROGRAM -20 PRINT "ENTER THE NUMBER 51,52 OR 53"; -30 INPUT X -35 IF X = -999 THEN 999 -40 PRINT "THE ON-GOTO STATEMENT "; -50 ON X-50 GOTO 100,200,300 -60 PRINT "FAILED THE TEST" -70 GOTO 999 -100 PRINT "BRANCHED TO LINE 100" -110 GOTO 20 -200 PRINT "BRANCHED TO LINE 200" -210 GOTO 20 -300 PRINT "BRANCHED TO LINE 300" -310 GOTO 20 -999 END diff --git a/bwbtest/HB1/ON_GOTO_2.INP b/bwbtest/HB1/ON_GOTO_2.INP deleted file mode 100644 index 86c328d..0000000 --- a/bwbtest/HB1/ON_GOTO_2.INP +++ /dev/null @@ -1,4 +0,0 @@ -51 -52 -53 --999 diff --git a/bwbtest/HB1/ON_GOTO_2.run b/bwbtest/HB1/ON_GOTO_2.run deleted file mode 100644 index bde17df..0000000 --- a/bwbtest/HB1/ON_GOTO_2.run +++ /dev/null @@ -1,7 +0,0 @@ -ENTER THE NUMBER 51,52 OR 53? 51 -THE ON-GOTO STATEMENT BRANCHED TO LINE 100 -ENTER THE NUMBER 51,52 OR 53? 52 -THE ON-GOTO STATEMENT BRANCHED TO LINE 200 -ENTER THE NUMBER 51,52 OR 53? 53 -THE ON-GOTO STATEMENT BRANCHED TO LINE 300 -ENTER THE NUMBER 51,52 OR 53? -999 diff --git a/bwbtest/HB1/OUT_1.BAS b/bwbtest/HB1/OUT_1.BAS deleted file mode 100644 index 9db38e3..0000000 --- a/bwbtest/HB1/OUT_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'OUT' TEST PROGRAM -20 PRINT "ENTER '4' TO TURN ON THE CASSETTE RECORDER MOTOR" -30 INPUT X -40 OUT 255,X -50 PRINT "ENTER '0' TO TURN THE MOTOR OFF" -60 INPUT X -70 OUT 255,X -99 END diff --git a/bwbtest/HB1/OUT_1.INP b/bwbtest/HB1/OUT_1.INP deleted file mode 100644 index 661d826..0000000 --- a/bwbtest/HB1/OUT_1.INP +++ /dev/null @@ -1,2 +0,0 @@ -4 -0 diff --git a/bwbtest/HB1/OUT_1.PRO b/bwbtest/HB1/OUT_1.PRO deleted file mode 100644 index 3bc8cd5..0000000 --- a/bwbtest/HB1/OUT_1.PRO +++ /dev/null @@ -1,12 +0,0 @@ -65000 REM FAKE OUT() -65010 DEF OUT(X,Y) -65020 REM SIMULATE CASSETTE MOTOR -65030 IF X <> 255 THEN 65110 -65040 REM X = 255 -65050 IF Y AND 4 THEN 65090 -65060 REM BIT OFF -65070 PRINT "MOTOR OFF" -65080 GOTO 65110 -65090 REM BIT ON -65100 PRINT "MOTOR ON" -65110 FNEND diff --git a/bwbtest/HB1/OUT_1.run b/bwbtest/HB1/OUT_1.run deleted file mode 100644 index 67a6974..0000000 --- a/bwbtest/HB1/OUT_1.run +++ /dev/null @@ -1,6 +0,0 @@ -ENTER '4' TO TURN ON THE CASSETTE RECORDER MOTOR -? 4 -MOTOR ON -ENTER '0' TO TURN THE MOTOR OFF -? 0 -MOTOR OFF diff --git a/bwbtest/HB1/OUT_2.BAS b/bwbtest/HB1/OUT_2.BAS deleted file mode 100644 index a662184..0000000 --- a/bwbtest/HB1/OUT_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'OUT' SEARCH PROGRAM -20 FOR P=0 TO 255 -30 FOR B=0 TO 255 -40 PRINT "PORT #";P -50 PRINT "BYTE #";B -60 OUT P,B -70 NEXT B -80 NEXT P -99 END diff --git a/bwbtest/HB1/OUT_2.PRO b/bwbtest/HB1/OUT_2.PRO deleted file mode 100644 index 3bc8cd5..0000000 --- a/bwbtest/HB1/OUT_2.PRO +++ /dev/null @@ -1,12 +0,0 @@ -65000 REM FAKE OUT() -65010 DEF OUT(X,Y) -65020 REM SIMULATE CASSETTE MOTOR -65030 IF X <> 255 THEN 65110 -65040 REM X = 255 -65050 IF Y AND 4 THEN 65090 -65060 REM BIT OFF -65070 PRINT "MOTOR OFF" -65080 GOTO 65110 -65090 REM BIT ON -65100 PRINT "MOTOR ON" -65110 FNEND diff --git a/bwbtest/HB1/OUT_2.run b/bwbtest/HB1/OUT_2.run deleted file mode 100644 index 3802b47..0000000 --- a/bwbtest/HB1/OUT_2.run +++ /dev/null @@ -1,131328 +0,0 @@ -PORT # 0 -BYTE # 0 -PORT # 0 -BYTE # 1 -PORT # 0 -BYTE # 2 -PORT # 0 -BYTE # 3 -PORT # 0 -BYTE # 4 -PORT # 0 -BYTE # 5 -PORT # 0 -BYTE # 6 -PORT # 0 -BYTE # 7 -PORT # 0 -BYTE # 8 -PORT # 0 -BYTE # 9 -PORT # 0 -BYTE # 10 -PORT # 0 -BYTE # 11 -PORT # 0 -BYTE # 12 -PORT # 0 -BYTE # 13 -PORT # 0 -BYTE # 14 -PORT # 0 -BYTE # 15 -PORT # 0 -BYTE # 16 -PORT # 0 -BYTE # 17 -PORT # 0 -BYTE # 18 -PORT # 0 -BYTE # 19 -PORT # 0 -BYTE # 20 -PORT # 0 -BYTE # 21 -PORT # 0 -BYTE # 22 -PORT # 0 -BYTE # 23 -PORT # 0 -BYTE # 24 -PORT # 0 -BYTE # 25 -PORT # 0 -BYTE # 26 -PORT # 0 -BYTE # 27 -PORT # 0 -BYTE # 28 -PORT # 0 -BYTE # 29 -PORT # 0 -BYTE # 30 -PORT # 0 -BYTE # 31 -PORT # 0 -BYTE # 32 -PORT # 0 -BYTE # 33 -PORT # 0 -BYTE # 34 -PORT # 0 -BYTE # 35 -PORT # 0 -BYTE # 36 -PORT # 0 -BYTE # 37 -PORT # 0 -BYTE # 38 -PORT # 0 -BYTE # 39 -PORT # 0 -BYTE # 40 -PORT # 0 -BYTE # 41 -PORT # 0 -BYTE # 42 -PORT # 0 -BYTE # 43 -PORT # 0 -BYTE # 44 -PORT # 0 -BYTE # 45 -PORT # 0 -BYTE # 46 -PORT # 0 -BYTE # 47 -PORT # 0 -BYTE # 48 -PORT # 0 -BYTE # 49 -PORT # 0 -BYTE # 50 -PORT # 0 -BYTE # 51 -PORT # 0 -BYTE # 52 -PORT # 0 -BYTE # 53 -PORT # 0 -BYTE # 54 -PORT # 0 -BYTE # 55 -PORT # 0 -BYTE # 56 -PORT # 0 -BYTE # 57 -PORT # 0 -BYTE # 58 -PORT # 0 -BYTE # 59 -PORT # 0 -BYTE # 60 -PORT # 0 -BYTE # 61 -PORT # 0 -BYTE # 62 -PORT # 0 -BYTE # 63 -PORT # 0 -BYTE # 64 -PORT # 0 -BYTE # 65 -PORT # 0 -BYTE # 66 -PORT # 0 -BYTE # 67 -PORT # 0 -BYTE # 68 -PORT # 0 -BYTE # 69 -PORT # 0 -BYTE # 70 -PORT # 0 -BYTE # 71 -PORT # 0 -BYTE # 72 -PORT # 0 -BYTE # 73 -PORT # 0 -BYTE # 74 -PORT # 0 -BYTE # 75 -PORT # 0 -BYTE # 76 -PORT # 0 -BYTE # 77 -PORT # 0 -BYTE # 78 -PORT # 0 -BYTE # 79 -PORT # 0 -BYTE # 80 -PORT # 0 -BYTE # 81 -PORT # 0 -BYTE # 82 -PORT # 0 -BYTE # 83 -PORT # 0 -BYTE # 84 -PORT # 0 -BYTE # 85 -PORT # 0 -BYTE # 86 -PORT # 0 -BYTE # 87 -PORT # 0 -BYTE # 88 -PORT # 0 -BYTE # 89 -PORT # 0 -BYTE # 90 -PORT # 0 -BYTE # 91 -PORT # 0 -BYTE # 92 -PORT # 0 -BYTE # 93 -PORT # 0 -BYTE # 94 -PORT # 0 -BYTE # 95 -PORT # 0 -BYTE # 96 -PORT # 0 -BYTE # 97 -PORT # 0 -BYTE # 98 -PORT # 0 -BYTE # 99 -PORT # 0 -BYTE # 100 -PORT # 0 -BYTE # 101 -PORT # 0 -BYTE # 102 -PORT # 0 -BYTE # 103 -PORT # 0 -BYTE # 104 -PORT # 0 -BYTE # 105 -PORT # 0 -BYTE # 106 -PORT # 0 -BYTE # 107 -PORT # 0 -BYTE # 108 -PORT # 0 -BYTE # 109 -PORT # 0 -BYTE # 110 -PORT # 0 -BYTE # 111 -PORT # 0 -BYTE # 112 -PORT # 0 -BYTE # 113 -PORT # 0 -BYTE # 114 -PORT # 0 -BYTE # 115 -PORT # 0 -BYTE # 116 -PORT # 0 -BYTE # 117 -PORT # 0 -BYTE # 118 -PORT # 0 -BYTE # 119 -PORT # 0 -BYTE # 120 -PORT # 0 -BYTE # 121 -PORT # 0 -BYTE # 122 -PORT # 0 -BYTE # 123 -PORT # 0 -BYTE # 124 -PORT # 0 -BYTE # 125 -PORT # 0 -BYTE # 126 -PORT # 0 -BYTE # 127 -PORT # 0 -BYTE # 128 -PORT # 0 -BYTE # 129 -PORT # 0 -BYTE # 130 -PORT # 0 -BYTE # 131 -PORT # 0 -BYTE # 132 -PORT # 0 -BYTE # 133 -PORT # 0 -BYTE # 134 -PORT # 0 -BYTE # 135 -PORT # 0 -BYTE # 136 -PORT # 0 -BYTE # 137 -PORT # 0 -BYTE # 138 -PORT # 0 -BYTE # 139 -PORT # 0 -BYTE # 140 -PORT # 0 -BYTE # 141 -PORT # 0 -BYTE # 142 -PORT # 0 -BYTE # 143 -PORT # 0 -BYTE # 144 -PORT # 0 -BYTE # 145 -PORT # 0 -BYTE # 146 -PORT # 0 -BYTE # 147 -PORT # 0 -BYTE # 148 -PORT # 0 -BYTE # 149 -PORT # 0 -BYTE # 150 -PORT # 0 -BYTE # 151 -PORT # 0 -BYTE # 152 -PORT # 0 -BYTE # 153 -PORT # 0 -BYTE # 154 -PORT # 0 -BYTE # 155 -PORT # 0 -BYTE # 156 -PORT # 0 -BYTE # 157 -PORT # 0 -BYTE # 158 -PORT # 0 -BYTE # 159 -PORT # 0 -BYTE # 160 -PORT # 0 -BYTE # 161 -PORT # 0 -BYTE # 162 -PORT # 0 -BYTE # 163 -PORT # 0 -BYTE # 164 -PORT # 0 -BYTE # 165 -PORT # 0 -BYTE # 166 -PORT # 0 -BYTE # 167 -PORT # 0 -BYTE # 168 -PORT # 0 -BYTE # 169 -PORT # 0 -BYTE # 170 -PORT # 0 -BYTE # 171 -PORT # 0 -BYTE # 172 -PORT # 0 -BYTE # 173 -PORT # 0 -BYTE # 174 -PORT # 0 -BYTE # 175 -PORT # 0 -BYTE # 176 -PORT # 0 -BYTE # 177 -PORT # 0 -BYTE # 178 -PORT # 0 -BYTE # 179 -PORT # 0 -BYTE # 180 -PORT # 0 -BYTE # 181 -PORT # 0 -BYTE # 182 -PORT # 0 -BYTE # 183 -PORT # 0 -BYTE # 184 -PORT # 0 -BYTE # 185 -PORT # 0 -BYTE # 186 -PORT # 0 -BYTE # 187 -PORT # 0 -BYTE # 188 -PORT # 0 -BYTE # 189 -PORT # 0 -BYTE # 190 -PORT # 0 -BYTE # 191 -PORT # 0 -BYTE # 192 -PORT # 0 -BYTE # 193 -PORT # 0 -BYTE # 194 -PORT # 0 -BYTE # 195 -PORT # 0 -BYTE # 196 -PORT # 0 -BYTE # 197 -PORT # 0 -BYTE # 198 -PORT # 0 -BYTE # 199 -PORT # 0 -BYTE # 200 -PORT # 0 -BYTE # 201 -PORT # 0 -BYTE # 202 -PORT # 0 -BYTE # 203 -PORT # 0 -BYTE # 204 -PORT # 0 -BYTE # 205 -PORT # 0 -BYTE # 206 -PORT # 0 -BYTE # 207 -PORT # 0 -BYTE # 208 -PORT # 0 -BYTE # 209 -PORT # 0 -BYTE # 210 -PORT # 0 -BYTE # 211 -PORT # 0 -BYTE # 212 -PORT # 0 -BYTE # 213 -PORT # 0 -BYTE # 214 -PORT # 0 -BYTE # 215 -PORT # 0 -BYTE # 216 -PORT # 0 -BYTE # 217 -PORT # 0 -BYTE # 218 -PORT # 0 -BYTE # 219 -PORT # 0 -BYTE # 220 -PORT # 0 -BYTE # 221 -PORT # 0 -BYTE # 222 -PORT # 0 -BYTE # 223 -PORT # 0 -BYTE # 224 -PORT # 0 -BYTE # 225 -PORT # 0 -BYTE # 226 -PORT # 0 -BYTE # 227 -PORT # 0 -BYTE # 228 -PORT # 0 -BYTE # 229 -PORT # 0 -BYTE # 230 -PORT # 0 -BYTE # 231 -PORT # 0 -BYTE # 232 -PORT # 0 -BYTE # 233 -PORT # 0 -BYTE # 234 -PORT # 0 -BYTE # 235 -PORT # 0 -BYTE # 236 -PORT # 0 -BYTE # 237 -PORT # 0 -BYTE # 238 -PORT # 0 -BYTE # 239 -PORT # 0 -BYTE # 240 -PORT # 0 -BYTE # 241 -PORT # 0 -BYTE # 242 -PORT # 0 -BYTE # 243 -PORT # 0 -BYTE # 244 -PORT # 0 -BYTE # 245 -PORT # 0 -BYTE # 246 -PORT # 0 -BYTE # 247 -PORT # 0 -BYTE # 248 -PORT # 0 -BYTE # 249 -PORT # 0 -BYTE # 250 -PORT # 0 -BYTE # 251 -PORT # 0 -BYTE # 252 -PORT # 0 -BYTE # 253 -PORT # 0 -BYTE # 254 -PORT # 0 -BYTE # 255 -PORT # 1 -BYTE # 0 -PORT # 1 -BYTE # 1 -PORT # 1 -BYTE # 2 -PORT # 1 -BYTE # 3 -PORT # 1 -BYTE # 4 -PORT # 1 -BYTE # 5 -PORT # 1 -BYTE # 6 -PORT # 1 -BYTE # 7 -PORT # 1 -BYTE # 8 -PORT # 1 -BYTE # 9 -PORT # 1 -BYTE # 10 -PORT # 1 -BYTE # 11 -PORT # 1 -BYTE # 12 -PORT # 1 -BYTE # 13 -PORT # 1 -BYTE # 14 -PORT # 1 -BYTE # 15 -PORT # 1 -BYTE # 16 -PORT # 1 -BYTE # 17 -PORT # 1 -BYTE # 18 -PORT # 1 -BYTE # 19 -PORT # 1 -BYTE # 20 -PORT # 1 -BYTE # 21 -PORT # 1 -BYTE # 22 -PORT # 1 -BYTE # 23 -PORT # 1 -BYTE # 24 -PORT # 1 -BYTE # 25 -PORT # 1 -BYTE # 26 -PORT # 1 -BYTE # 27 -PORT # 1 -BYTE # 28 -PORT # 1 -BYTE # 29 -PORT # 1 -BYTE # 30 -PORT # 1 -BYTE # 31 -PORT # 1 -BYTE # 32 -PORT # 1 -BYTE # 33 -PORT # 1 -BYTE # 34 -PORT # 1 -BYTE # 35 -PORT # 1 -BYTE # 36 -PORT # 1 -BYTE # 37 -PORT # 1 -BYTE # 38 -PORT # 1 -BYTE # 39 -PORT # 1 -BYTE # 40 -PORT # 1 -BYTE # 41 -PORT # 1 -BYTE # 42 -PORT # 1 -BYTE # 43 -PORT # 1 -BYTE # 44 -PORT # 1 -BYTE # 45 -PORT # 1 -BYTE # 46 -PORT # 1 -BYTE # 47 -PORT # 1 -BYTE # 48 -PORT # 1 -BYTE # 49 -PORT # 1 -BYTE # 50 -PORT # 1 -BYTE # 51 -PORT # 1 -BYTE # 52 -PORT # 1 -BYTE # 53 -PORT # 1 -BYTE # 54 -PORT # 1 -BYTE # 55 -PORT # 1 -BYTE # 56 -PORT # 1 -BYTE # 57 -PORT # 1 -BYTE # 58 -PORT # 1 -BYTE # 59 -PORT # 1 -BYTE # 60 -PORT # 1 -BYTE # 61 -PORT # 1 -BYTE # 62 -PORT # 1 -BYTE # 63 -PORT # 1 -BYTE # 64 -PORT # 1 -BYTE # 65 -PORT # 1 -BYTE # 66 -PORT # 1 -BYTE # 67 -PORT # 1 -BYTE # 68 -PORT # 1 -BYTE # 69 -PORT # 1 -BYTE # 70 -PORT # 1 -BYTE # 71 -PORT # 1 -BYTE # 72 -PORT # 1 -BYTE # 73 -PORT # 1 -BYTE # 74 -PORT # 1 -BYTE # 75 -PORT # 1 -BYTE # 76 -PORT # 1 -BYTE # 77 -PORT # 1 -BYTE # 78 -PORT # 1 -BYTE # 79 -PORT # 1 -BYTE # 80 -PORT # 1 -BYTE # 81 -PORT # 1 -BYTE # 82 -PORT # 1 -BYTE # 83 -PORT # 1 -BYTE # 84 -PORT # 1 -BYTE # 85 -PORT # 1 -BYTE # 86 -PORT # 1 -BYTE # 87 -PORT # 1 -BYTE # 88 -PORT # 1 -BYTE # 89 -PORT # 1 -BYTE # 90 -PORT # 1 -BYTE # 91 -PORT # 1 -BYTE # 92 -PORT # 1 -BYTE # 93 -PORT # 1 -BYTE # 94 -PORT # 1 -BYTE # 95 -PORT # 1 -BYTE # 96 -PORT # 1 -BYTE # 97 -PORT # 1 -BYTE # 98 -PORT # 1 -BYTE # 99 -PORT # 1 -BYTE # 100 -PORT # 1 -BYTE # 101 -PORT # 1 -BYTE # 102 -PORT # 1 -BYTE # 103 -PORT # 1 -BYTE # 104 -PORT # 1 -BYTE # 105 -PORT # 1 -BYTE # 106 -PORT # 1 -BYTE # 107 -PORT # 1 -BYTE # 108 -PORT # 1 -BYTE # 109 -PORT # 1 -BYTE # 110 -PORT # 1 -BYTE # 111 -PORT # 1 -BYTE # 112 -PORT # 1 -BYTE # 113 -PORT # 1 -BYTE # 114 -PORT # 1 -BYTE # 115 -PORT # 1 -BYTE # 116 -PORT # 1 -BYTE # 117 -PORT # 1 -BYTE # 118 -PORT # 1 -BYTE # 119 -PORT # 1 -BYTE # 120 -PORT # 1 -BYTE # 121 -PORT # 1 -BYTE # 122 -PORT # 1 -BYTE # 123 -PORT # 1 -BYTE # 124 -PORT # 1 -BYTE # 125 -PORT # 1 -BYTE # 126 -PORT # 1 -BYTE # 127 -PORT # 1 -BYTE # 128 -PORT # 1 -BYTE # 129 -PORT # 1 -BYTE # 130 -PORT # 1 -BYTE # 131 -PORT # 1 -BYTE # 132 -PORT # 1 -BYTE # 133 -PORT # 1 -BYTE # 134 -PORT # 1 -BYTE # 135 -PORT # 1 -BYTE # 136 -PORT # 1 -BYTE # 137 -PORT # 1 -BYTE # 138 -PORT # 1 -BYTE # 139 -PORT # 1 -BYTE # 140 -PORT # 1 -BYTE # 141 -PORT # 1 -BYTE # 142 -PORT # 1 -BYTE # 143 -PORT # 1 -BYTE # 144 -PORT # 1 -BYTE # 145 -PORT # 1 -BYTE # 146 -PORT # 1 -BYTE # 147 -PORT # 1 -BYTE # 148 -PORT # 1 -BYTE # 149 -PORT # 1 -BYTE # 150 -PORT # 1 -BYTE # 151 -PORT # 1 -BYTE # 152 -PORT # 1 -BYTE # 153 -PORT # 1 -BYTE # 154 -PORT # 1 -BYTE # 155 -PORT # 1 -BYTE # 156 -PORT # 1 -BYTE # 157 -PORT # 1 -BYTE # 158 -PORT # 1 -BYTE # 159 -PORT # 1 -BYTE # 160 -PORT # 1 -BYTE # 161 -PORT # 1 -BYTE # 162 -PORT # 1 -BYTE # 163 -PORT # 1 -BYTE # 164 -PORT # 1 -BYTE # 165 -PORT # 1 -BYTE # 166 -PORT # 1 -BYTE # 167 -PORT # 1 -BYTE # 168 -PORT # 1 -BYTE # 169 -PORT # 1 -BYTE # 170 -PORT # 1 -BYTE # 171 -PORT # 1 -BYTE # 172 -PORT # 1 -BYTE # 173 -PORT # 1 -BYTE # 174 -PORT # 1 -BYTE # 175 -PORT # 1 -BYTE # 176 -PORT # 1 -BYTE # 177 -PORT # 1 -BYTE # 178 -PORT # 1 -BYTE # 179 -PORT # 1 -BYTE # 180 -PORT # 1 -BYTE # 181 -PORT # 1 -BYTE # 182 -PORT # 1 -BYTE # 183 -PORT # 1 -BYTE # 184 -PORT # 1 -BYTE # 185 -PORT # 1 -BYTE # 186 -PORT # 1 -BYTE # 187 -PORT # 1 -BYTE # 188 -PORT # 1 -BYTE # 189 -PORT # 1 -BYTE # 190 -PORT # 1 -BYTE # 191 -PORT # 1 -BYTE # 192 -PORT # 1 -BYTE # 193 -PORT # 1 -BYTE # 194 -PORT # 1 -BYTE # 195 -PORT # 1 -BYTE # 196 -PORT # 1 -BYTE # 197 -PORT # 1 -BYTE # 198 -PORT # 1 -BYTE # 199 -PORT # 1 -BYTE # 200 -PORT # 1 -BYTE # 201 -PORT # 1 -BYTE # 202 -PORT # 1 -BYTE # 203 -PORT # 1 -BYTE # 204 -PORT # 1 -BYTE # 205 -PORT # 1 -BYTE # 206 -PORT # 1 -BYTE # 207 -PORT # 1 -BYTE # 208 -PORT # 1 -BYTE # 209 -PORT # 1 -BYTE # 210 -PORT # 1 -BYTE # 211 -PORT # 1 -BYTE # 212 -PORT # 1 -BYTE # 213 -PORT # 1 -BYTE # 214 -PORT # 1 -BYTE # 215 -PORT # 1 -BYTE # 216 -PORT # 1 -BYTE # 217 -PORT # 1 -BYTE # 218 -PORT # 1 -BYTE # 219 -PORT # 1 -BYTE # 220 -PORT # 1 -BYTE # 221 -PORT # 1 -BYTE # 222 -PORT # 1 -BYTE # 223 -PORT # 1 -BYTE # 224 -PORT # 1 -BYTE # 225 -PORT # 1 -BYTE # 226 -PORT # 1 -BYTE # 227 -PORT # 1 -BYTE # 228 -PORT # 1 -BYTE # 229 -PORT # 1 -BYTE # 230 -PORT # 1 -BYTE # 231 -PORT # 1 -BYTE # 232 -PORT # 1 -BYTE # 233 -PORT # 1 -BYTE # 234 -PORT # 1 -BYTE # 235 -PORT # 1 -BYTE # 236 -PORT # 1 -BYTE # 237 -PORT # 1 -BYTE # 238 -PORT # 1 -BYTE # 239 -PORT # 1 -BYTE # 240 -PORT # 1 -BYTE # 241 -PORT # 1 -BYTE # 242 -PORT # 1 -BYTE # 243 -PORT # 1 -BYTE # 244 -PORT # 1 -BYTE # 245 -PORT # 1 -BYTE # 246 -PORT # 1 -BYTE # 247 -PORT # 1 -BYTE # 248 -PORT # 1 -BYTE # 249 -PORT # 1 -BYTE # 250 -PORT # 1 -BYTE # 251 -PORT # 1 -BYTE # 252 -PORT # 1 -BYTE # 253 -PORT # 1 -BYTE # 254 -PORT # 1 -BYTE # 255 -PORT # 2 -BYTE # 0 -PORT # 2 -BYTE # 1 -PORT # 2 -BYTE # 2 -PORT # 2 -BYTE # 3 -PORT # 2 -BYTE # 4 -PORT # 2 -BYTE # 5 -PORT # 2 -BYTE # 6 -PORT # 2 -BYTE # 7 -PORT # 2 -BYTE # 8 -PORT # 2 -BYTE # 9 -PORT # 2 -BYTE # 10 -PORT # 2 -BYTE # 11 -PORT # 2 -BYTE # 12 -PORT # 2 -BYTE # 13 -PORT # 2 -BYTE # 14 -PORT # 2 -BYTE # 15 -PORT # 2 -BYTE # 16 -PORT # 2 -BYTE # 17 -PORT # 2 -BYTE # 18 -PORT # 2 -BYTE # 19 -PORT # 2 -BYTE # 20 -PORT # 2 -BYTE # 21 -PORT # 2 -BYTE # 22 -PORT # 2 -BYTE # 23 -PORT # 2 -BYTE # 24 -PORT # 2 -BYTE # 25 -PORT # 2 -BYTE # 26 -PORT # 2 -BYTE # 27 -PORT # 2 -BYTE # 28 -PORT # 2 -BYTE # 29 -PORT # 2 -BYTE # 30 -PORT # 2 -BYTE # 31 -PORT # 2 -BYTE # 32 -PORT # 2 -BYTE # 33 -PORT # 2 -BYTE # 34 -PORT # 2 -BYTE # 35 -PORT # 2 -BYTE # 36 -PORT # 2 -BYTE # 37 -PORT # 2 -BYTE # 38 -PORT # 2 -BYTE # 39 -PORT # 2 -BYTE # 40 -PORT # 2 -BYTE # 41 -PORT # 2 -BYTE # 42 -PORT # 2 -BYTE # 43 -PORT # 2 -BYTE # 44 -PORT # 2 -BYTE # 45 -PORT # 2 -BYTE # 46 -PORT # 2 -BYTE # 47 -PORT # 2 -BYTE # 48 -PORT # 2 -BYTE # 49 -PORT # 2 -BYTE # 50 -PORT # 2 -BYTE # 51 -PORT # 2 -BYTE # 52 -PORT # 2 -BYTE # 53 -PORT # 2 -BYTE # 54 -PORT # 2 -BYTE # 55 -PORT # 2 -BYTE # 56 -PORT # 2 -BYTE # 57 -PORT # 2 -BYTE # 58 -PORT # 2 -BYTE # 59 -PORT # 2 -BYTE # 60 -PORT # 2 -BYTE # 61 -PORT # 2 -BYTE # 62 -PORT # 2 -BYTE # 63 -PORT # 2 -BYTE # 64 -PORT # 2 -BYTE # 65 -PORT # 2 -BYTE # 66 -PORT # 2 -BYTE # 67 -PORT # 2 -BYTE # 68 -PORT # 2 -BYTE # 69 -PORT # 2 -BYTE # 70 -PORT # 2 -BYTE # 71 -PORT # 2 -BYTE # 72 -PORT # 2 -BYTE # 73 -PORT # 2 -BYTE # 74 -PORT # 2 -BYTE # 75 -PORT # 2 -BYTE # 76 -PORT # 2 -BYTE # 77 -PORT # 2 -BYTE # 78 -PORT # 2 -BYTE # 79 -PORT # 2 -BYTE # 80 -PORT # 2 -BYTE # 81 -PORT # 2 -BYTE # 82 -PORT # 2 -BYTE # 83 -PORT # 2 -BYTE # 84 -PORT # 2 -BYTE # 85 -PORT # 2 -BYTE # 86 -PORT # 2 -BYTE # 87 -PORT # 2 -BYTE # 88 -PORT # 2 -BYTE # 89 -PORT # 2 -BYTE # 90 -PORT # 2 -BYTE # 91 -PORT # 2 -BYTE # 92 -PORT # 2 -BYTE # 93 -PORT # 2 -BYTE # 94 -PORT # 2 -BYTE # 95 -PORT # 2 -BYTE # 96 -PORT # 2 -BYTE # 97 -PORT # 2 -BYTE # 98 -PORT # 2 -BYTE # 99 -PORT # 2 -BYTE # 100 -PORT # 2 -BYTE # 101 -PORT # 2 -BYTE # 102 -PORT # 2 -BYTE # 103 -PORT # 2 -BYTE # 104 -PORT # 2 -BYTE # 105 -PORT # 2 -BYTE # 106 -PORT # 2 -BYTE # 107 -PORT # 2 -BYTE # 108 -PORT # 2 -BYTE # 109 -PORT # 2 -BYTE # 110 -PORT # 2 -BYTE # 111 -PORT # 2 -BYTE # 112 -PORT # 2 -BYTE # 113 -PORT # 2 -BYTE # 114 -PORT # 2 -BYTE # 115 -PORT # 2 -BYTE # 116 -PORT # 2 -BYTE # 117 -PORT # 2 -BYTE # 118 -PORT # 2 -BYTE # 119 -PORT # 2 -BYTE # 120 -PORT # 2 -BYTE # 121 -PORT # 2 -BYTE # 122 -PORT # 2 -BYTE # 123 -PORT # 2 -BYTE # 124 -PORT # 2 -BYTE # 125 -PORT # 2 -BYTE # 126 -PORT # 2 -BYTE # 127 -PORT # 2 -BYTE # 128 -PORT # 2 -BYTE # 129 -PORT # 2 -BYTE # 130 -PORT # 2 -BYTE # 131 -PORT # 2 -BYTE # 132 -PORT # 2 -BYTE # 133 -PORT # 2 -BYTE # 134 -PORT # 2 -BYTE # 135 -PORT # 2 -BYTE # 136 -PORT # 2 -BYTE # 137 -PORT # 2 -BYTE # 138 -PORT # 2 -BYTE # 139 -PORT # 2 -BYTE # 140 -PORT # 2 -BYTE # 141 -PORT # 2 -BYTE # 142 -PORT # 2 -BYTE # 143 -PORT # 2 -BYTE # 144 -PORT # 2 -BYTE # 145 -PORT # 2 -BYTE # 146 -PORT # 2 -BYTE # 147 -PORT # 2 -BYTE # 148 -PORT # 2 -BYTE # 149 -PORT # 2 -BYTE # 150 -PORT # 2 -BYTE # 151 -PORT # 2 -BYTE # 152 -PORT # 2 -BYTE # 153 -PORT # 2 -BYTE # 154 -PORT # 2 -BYTE # 155 -PORT # 2 -BYTE # 156 -PORT # 2 -BYTE # 157 -PORT # 2 -BYTE # 158 -PORT # 2 -BYTE # 159 -PORT # 2 -BYTE # 160 -PORT # 2 -BYTE # 161 -PORT # 2 -BYTE # 162 -PORT # 2 -BYTE # 163 -PORT # 2 -BYTE # 164 -PORT # 2 -BYTE # 165 -PORT # 2 -BYTE # 166 -PORT # 2 -BYTE # 167 -PORT # 2 -BYTE # 168 -PORT # 2 -BYTE # 169 -PORT # 2 -BYTE # 170 -PORT # 2 -BYTE # 171 -PORT # 2 -BYTE # 172 -PORT # 2 -BYTE # 173 -PORT # 2 -BYTE # 174 -PORT # 2 -BYTE # 175 -PORT # 2 -BYTE # 176 -PORT # 2 -BYTE # 177 -PORT # 2 -BYTE # 178 -PORT # 2 -BYTE # 179 -PORT # 2 -BYTE # 180 -PORT # 2 -BYTE # 181 -PORT # 2 -BYTE # 182 -PORT # 2 -BYTE # 183 -PORT # 2 -BYTE # 184 -PORT # 2 -BYTE # 185 -PORT # 2 -BYTE # 186 -PORT # 2 -BYTE # 187 -PORT # 2 -BYTE # 188 -PORT # 2 -BYTE # 189 -PORT # 2 -BYTE # 190 -PORT # 2 -BYTE # 191 -PORT # 2 -BYTE # 192 -PORT # 2 -BYTE # 193 -PORT # 2 -BYTE # 194 -PORT # 2 -BYTE # 195 -PORT # 2 -BYTE # 196 -PORT # 2 -BYTE # 197 -PORT # 2 -BYTE # 198 -PORT # 2 -BYTE # 199 -PORT # 2 -BYTE # 200 -PORT # 2 -BYTE # 201 -PORT # 2 -BYTE # 202 -PORT # 2 -BYTE # 203 -PORT # 2 -BYTE # 204 -PORT # 2 -BYTE # 205 -PORT # 2 -BYTE # 206 -PORT # 2 -BYTE # 207 -PORT # 2 -BYTE # 208 -PORT # 2 -BYTE # 209 -PORT # 2 -BYTE # 210 -PORT # 2 -BYTE # 211 -PORT # 2 -BYTE # 212 -PORT # 2 -BYTE # 213 -PORT # 2 -BYTE # 214 -PORT # 2 -BYTE # 215 -PORT # 2 -BYTE # 216 -PORT # 2 -BYTE # 217 -PORT # 2 -BYTE # 218 -PORT # 2 -BYTE # 219 -PORT # 2 -BYTE # 220 -PORT # 2 -BYTE # 221 -PORT # 2 -BYTE # 222 -PORT # 2 -BYTE # 223 -PORT # 2 -BYTE # 224 -PORT # 2 -BYTE # 225 -PORT # 2 -BYTE # 226 -PORT # 2 -BYTE # 227 -PORT # 2 -BYTE # 228 -PORT # 2 -BYTE # 229 -PORT # 2 -BYTE # 230 -PORT # 2 -BYTE # 231 -PORT # 2 -BYTE # 232 -PORT # 2 -BYTE # 233 -PORT # 2 -BYTE # 234 -PORT # 2 -BYTE # 235 -PORT # 2 -BYTE # 236 -PORT # 2 -BYTE # 237 -PORT # 2 -BYTE # 238 -PORT # 2 -BYTE # 239 -PORT # 2 -BYTE # 240 -PORT # 2 -BYTE # 241 -PORT # 2 -BYTE # 242 -PORT # 2 -BYTE # 243 -PORT # 2 -BYTE # 244 -PORT # 2 -BYTE # 245 -PORT # 2 -BYTE # 246 -PORT # 2 -BYTE # 247 -PORT # 2 -BYTE # 248 -PORT # 2 -BYTE # 249 -PORT # 2 -BYTE # 250 -PORT # 2 -BYTE # 251 -PORT # 2 -BYTE # 252 -PORT # 2 -BYTE # 253 -PORT # 2 -BYTE # 254 -PORT # 2 -BYTE # 255 -PORT # 3 -BYTE # 0 -PORT # 3 -BYTE # 1 -PORT # 3 -BYTE # 2 -PORT # 3 -BYTE # 3 -PORT # 3 -BYTE # 4 -PORT # 3 -BYTE # 5 -PORT # 3 -BYTE # 6 -PORT # 3 -BYTE # 7 -PORT # 3 -BYTE # 8 -PORT # 3 -BYTE # 9 -PORT # 3 -BYTE # 10 -PORT # 3 -BYTE # 11 -PORT # 3 -BYTE # 12 -PORT # 3 -BYTE # 13 -PORT # 3 -BYTE # 14 -PORT # 3 -BYTE # 15 -PORT # 3 -BYTE # 16 -PORT # 3 -BYTE # 17 -PORT # 3 -BYTE # 18 -PORT # 3 -BYTE # 19 -PORT # 3 -BYTE # 20 -PORT # 3 -BYTE # 21 -PORT # 3 -BYTE # 22 -PORT # 3 -BYTE # 23 -PORT # 3 -BYTE # 24 -PORT # 3 -BYTE # 25 -PORT # 3 -BYTE # 26 -PORT # 3 -BYTE # 27 -PORT # 3 -BYTE # 28 -PORT # 3 -BYTE # 29 -PORT # 3 -BYTE # 30 -PORT # 3 -BYTE # 31 -PORT # 3 -BYTE # 32 -PORT # 3 -BYTE # 33 -PORT # 3 -BYTE # 34 -PORT # 3 -BYTE # 35 -PORT # 3 -BYTE # 36 -PORT # 3 -BYTE # 37 -PORT # 3 -BYTE # 38 -PORT # 3 -BYTE # 39 -PORT # 3 -BYTE # 40 -PORT # 3 -BYTE # 41 -PORT # 3 -BYTE # 42 -PORT # 3 -BYTE # 43 -PORT # 3 -BYTE # 44 -PORT # 3 -BYTE # 45 -PORT # 3 -BYTE # 46 -PORT # 3 -BYTE # 47 -PORT # 3 -BYTE # 48 -PORT # 3 -BYTE # 49 -PORT # 3 -BYTE # 50 -PORT # 3 -BYTE # 51 -PORT # 3 -BYTE # 52 -PORT # 3 -BYTE # 53 -PORT # 3 -BYTE # 54 -PORT # 3 -BYTE # 55 -PORT # 3 -BYTE # 56 -PORT # 3 -BYTE # 57 -PORT # 3 -BYTE # 58 -PORT # 3 -BYTE # 59 -PORT # 3 -BYTE # 60 -PORT # 3 -BYTE # 61 -PORT # 3 -BYTE # 62 -PORT # 3 -BYTE # 63 -PORT # 3 -BYTE # 64 -PORT # 3 -BYTE # 65 -PORT # 3 -BYTE # 66 -PORT # 3 -BYTE # 67 -PORT # 3 -BYTE # 68 -PORT # 3 -BYTE # 69 -PORT # 3 -BYTE # 70 -PORT # 3 -BYTE # 71 -PORT # 3 -BYTE # 72 -PORT # 3 -BYTE # 73 -PORT # 3 -BYTE # 74 -PORT # 3 -BYTE # 75 -PORT # 3 -BYTE # 76 -PORT # 3 -BYTE # 77 -PORT # 3 -BYTE # 78 -PORT # 3 -BYTE # 79 -PORT # 3 -BYTE # 80 -PORT # 3 -BYTE # 81 -PORT # 3 -BYTE # 82 -PORT # 3 -BYTE # 83 -PORT # 3 -BYTE # 84 -PORT # 3 -BYTE # 85 -PORT # 3 -BYTE # 86 -PORT # 3 -BYTE # 87 -PORT # 3 -BYTE # 88 -PORT # 3 -BYTE # 89 -PORT # 3 -BYTE # 90 -PORT # 3 -BYTE # 91 -PORT # 3 -BYTE # 92 -PORT # 3 -BYTE # 93 -PORT # 3 -BYTE # 94 -PORT # 3 -BYTE # 95 -PORT # 3 -BYTE # 96 -PORT # 3 -BYTE # 97 -PORT # 3 -BYTE # 98 -PORT # 3 -BYTE # 99 -PORT # 3 -BYTE # 100 -PORT # 3 -BYTE # 101 -PORT # 3 -BYTE # 102 -PORT # 3 -BYTE # 103 -PORT # 3 -BYTE # 104 -PORT # 3 -BYTE # 105 -PORT # 3 -BYTE # 106 -PORT # 3 -BYTE # 107 -PORT # 3 -BYTE # 108 -PORT # 3 -BYTE # 109 -PORT # 3 -BYTE # 110 -PORT # 3 -BYTE # 111 -PORT # 3 -BYTE # 112 -PORT # 3 -BYTE # 113 -PORT # 3 -BYTE # 114 -PORT # 3 -BYTE # 115 -PORT # 3 -BYTE # 116 -PORT # 3 -BYTE # 117 -PORT # 3 -BYTE # 118 -PORT # 3 -BYTE # 119 -PORT # 3 -BYTE # 120 -PORT # 3 -BYTE # 121 -PORT # 3 -BYTE # 122 -PORT # 3 -BYTE # 123 -PORT # 3 -BYTE # 124 -PORT # 3 -BYTE # 125 -PORT # 3 -BYTE # 126 -PORT # 3 -BYTE # 127 -PORT # 3 -BYTE # 128 -PORT # 3 -BYTE # 129 -PORT # 3 -BYTE # 130 -PORT # 3 -BYTE # 131 -PORT # 3 -BYTE # 132 -PORT # 3 -BYTE # 133 -PORT # 3 -BYTE # 134 -PORT # 3 -BYTE # 135 -PORT # 3 -BYTE # 136 -PORT # 3 -BYTE # 137 -PORT # 3 -BYTE # 138 -PORT # 3 -BYTE # 139 -PORT # 3 -BYTE # 140 -PORT # 3 -BYTE # 141 -PORT # 3 -BYTE # 142 -PORT # 3 -BYTE # 143 -PORT # 3 -BYTE # 144 -PORT # 3 -BYTE # 145 -PORT # 3 -BYTE # 146 -PORT # 3 -BYTE # 147 -PORT # 3 -BYTE # 148 -PORT # 3 -BYTE # 149 -PORT # 3 -BYTE # 150 -PORT # 3 -BYTE # 151 -PORT # 3 -BYTE # 152 -PORT # 3 -BYTE # 153 -PORT # 3 -BYTE # 154 -PORT # 3 -BYTE # 155 -PORT # 3 -BYTE # 156 -PORT # 3 -BYTE # 157 -PORT # 3 -BYTE # 158 -PORT # 3 -BYTE # 159 -PORT # 3 -BYTE # 160 -PORT # 3 -BYTE # 161 -PORT # 3 -BYTE # 162 -PORT # 3 -BYTE # 163 -PORT # 3 -BYTE # 164 -PORT # 3 -BYTE # 165 -PORT # 3 -BYTE # 166 -PORT # 3 -BYTE # 167 -PORT # 3 -BYTE # 168 -PORT # 3 -BYTE # 169 -PORT # 3 -BYTE # 170 -PORT # 3 -BYTE # 171 -PORT # 3 -BYTE # 172 -PORT # 3 -BYTE # 173 -PORT # 3 -BYTE # 174 -PORT # 3 -BYTE # 175 -PORT # 3 -BYTE # 176 -PORT # 3 -BYTE # 177 -PORT # 3 -BYTE # 178 -PORT # 3 -BYTE # 179 -PORT # 3 -BYTE # 180 -PORT # 3 -BYTE # 181 -PORT # 3 -BYTE # 182 -PORT # 3 -BYTE # 183 -PORT # 3 -BYTE # 184 -PORT # 3 -BYTE # 185 -PORT # 3 -BYTE # 186 -PORT # 3 -BYTE # 187 -PORT # 3 -BYTE # 188 -PORT # 3 -BYTE # 189 -PORT # 3 -BYTE # 190 -PORT # 3 -BYTE # 191 -PORT # 3 -BYTE # 192 -PORT # 3 -BYTE # 193 -PORT # 3 -BYTE # 194 -PORT # 3 -BYTE # 195 -PORT # 3 -BYTE # 196 -PORT # 3 -BYTE # 197 -PORT # 3 -BYTE # 198 -PORT # 3 -BYTE # 199 -PORT # 3 -BYTE # 200 -PORT # 3 -BYTE # 201 -PORT # 3 -BYTE # 202 -PORT # 3 -BYTE # 203 -PORT # 3 -BYTE # 204 -PORT # 3 -BYTE # 205 -PORT # 3 -BYTE # 206 -PORT # 3 -BYTE # 207 -PORT # 3 -BYTE # 208 -PORT # 3 -BYTE # 209 -PORT # 3 -BYTE # 210 -PORT # 3 -BYTE # 211 -PORT # 3 -BYTE # 212 -PORT # 3 -BYTE # 213 -PORT # 3 -BYTE # 214 -PORT # 3 -BYTE # 215 -PORT # 3 -BYTE # 216 -PORT # 3 -BYTE # 217 -PORT # 3 -BYTE # 218 -PORT # 3 -BYTE # 219 -PORT # 3 -BYTE # 220 -PORT # 3 -BYTE # 221 -PORT # 3 -BYTE # 222 -PORT # 3 -BYTE # 223 -PORT # 3 -BYTE # 224 -PORT # 3 -BYTE # 225 -PORT # 3 -BYTE # 226 -PORT # 3 -BYTE # 227 -PORT # 3 -BYTE # 228 -PORT # 3 -BYTE # 229 -PORT # 3 -BYTE # 230 -PORT # 3 -BYTE # 231 -PORT # 3 -BYTE # 232 -PORT # 3 -BYTE # 233 -PORT # 3 -BYTE # 234 -PORT # 3 -BYTE # 235 -PORT # 3 -BYTE # 236 -PORT # 3 -BYTE # 237 -PORT # 3 -BYTE # 238 -PORT # 3 -BYTE # 239 -PORT # 3 -BYTE # 240 -PORT # 3 -BYTE # 241 -PORT # 3 -BYTE # 242 -PORT # 3 -BYTE # 243 -PORT # 3 -BYTE # 244 -PORT # 3 -BYTE # 245 -PORT # 3 -BYTE # 246 -PORT # 3 -BYTE # 247 -PORT # 3 -BYTE # 248 -PORT # 3 -BYTE # 249 -PORT # 3 -BYTE # 250 -PORT # 3 -BYTE # 251 -PORT # 3 -BYTE # 252 -PORT # 3 -BYTE # 253 -PORT # 3 -BYTE # 254 -PORT # 3 -BYTE # 255 -PORT # 4 -BYTE # 0 -PORT # 4 -BYTE # 1 -PORT # 4 -BYTE # 2 -PORT # 4 -BYTE # 3 -PORT # 4 -BYTE # 4 -PORT # 4 -BYTE # 5 -PORT # 4 -BYTE # 6 -PORT # 4 -BYTE # 7 -PORT # 4 -BYTE # 8 -PORT # 4 -BYTE # 9 -PORT # 4 -BYTE # 10 -PORT # 4 -BYTE # 11 -PORT # 4 -BYTE # 12 -PORT # 4 -BYTE # 13 -PORT # 4 -BYTE # 14 -PORT # 4 -BYTE # 15 -PORT # 4 -BYTE # 16 -PORT # 4 -BYTE # 17 -PORT # 4 -BYTE # 18 -PORT # 4 -BYTE # 19 -PORT # 4 -BYTE # 20 -PORT # 4 -BYTE # 21 -PORT # 4 -BYTE # 22 -PORT # 4 -BYTE # 23 -PORT # 4 -BYTE # 24 -PORT # 4 -BYTE # 25 -PORT # 4 -BYTE # 26 -PORT # 4 -BYTE # 27 -PORT # 4 -BYTE # 28 -PORT # 4 -BYTE # 29 -PORT # 4 -BYTE # 30 -PORT # 4 -BYTE # 31 -PORT # 4 -BYTE # 32 -PORT # 4 -BYTE # 33 -PORT # 4 -BYTE # 34 -PORT # 4 -BYTE # 35 -PORT # 4 -BYTE # 36 -PORT # 4 -BYTE # 37 -PORT # 4 -BYTE # 38 -PORT # 4 -BYTE # 39 -PORT # 4 -BYTE # 40 -PORT # 4 -BYTE # 41 -PORT # 4 -BYTE # 42 -PORT # 4 -BYTE # 43 -PORT # 4 -BYTE # 44 -PORT # 4 -BYTE # 45 -PORT # 4 -BYTE # 46 -PORT # 4 -BYTE # 47 -PORT # 4 -BYTE # 48 -PORT # 4 -BYTE # 49 -PORT # 4 -BYTE # 50 -PORT # 4 -BYTE # 51 -PORT # 4 -BYTE # 52 -PORT # 4 -BYTE # 53 -PORT # 4 -BYTE # 54 -PORT # 4 -BYTE # 55 -PORT # 4 -BYTE # 56 -PORT # 4 -BYTE # 57 -PORT # 4 -BYTE # 58 -PORT # 4 -BYTE # 59 -PORT # 4 -BYTE # 60 -PORT # 4 -BYTE # 61 -PORT # 4 -BYTE # 62 -PORT # 4 -BYTE # 63 -PORT # 4 -BYTE # 64 -PORT # 4 -BYTE # 65 -PORT # 4 -BYTE # 66 -PORT # 4 -BYTE # 67 -PORT # 4 -BYTE # 68 -PORT # 4 -BYTE # 69 -PORT # 4 -BYTE # 70 -PORT # 4 -BYTE # 71 -PORT # 4 -BYTE # 72 -PORT # 4 -BYTE # 73 -PORT # 4 -BYTE # 74 -PORT # 4 -BYTE # 75 -PORT # 4 -BYTE # 76 -PORT # 4 -BYTE # 77 -PORT # 4 -BYTE # 78 -PORT # 4 -BYTE # 79 -PORT # 4 -BYTE # 80 -PORT # 4 -BYTE # 81 -PORT # 4 -BYTE # 82 -PORT # 4 -BYTE # 83 -PORT # 4 -BYTE # 84 -PORT # 4 -BYTE # 85 -PORT # 4 -BYTE # 86 -PORT # 4 -BYTE # 87 -PORT # 4 -BYTE # 88 -PORT # 4 -BYTE # 89 -PORT # 4 -BYTE # 90 -PORT # 4 -BYTE # 91 -PORT # 4 -BYTE # 92 -PORT # 4 -BYTE # 93 -PORT # 4 -BYTE # 94 -PORT # 4 -BYTE # 95 -PORT # 4 -BYTE # 96 -PORT # 4 -BYTE # 97 -PORT # 4 -BYTE # 98 -PORT # 4 -BYTE # 99 -PORT # 4 -BYTE # 100 -PORT # 4 -BYTE # 101 -PORT # 4 -BYTE # 102 -PORT # 4 -BYTE # 103 -PORT # 4 -BYTE # 104 -PORT # 4 -BYTE # 105 -PORT # 4 -BYTE # 106 -PORT # 4 -BYTE # 107 -PORT # 4 -BYTE # 108 -PORT # 4 -BYTE # 109 -PORT # 4 -BYTE # 110 -PORT # 4 -BYTE # 111 -PORT # 4 -BYTE # 112 -PORT # 4 -BYTE # 113 -PORT # 4 -BYTE # 114 -PORT # 4 -BYTE # 115 -PORT # 4 -BYTE # 116 -PORT # 4 -BYTE # 117 -PORT # 4 -BYTE # 118 -PORT # 4 -BYTE # 119 -PORT # 4 -BYTE # 120 -PORT # 4 -BYTE # 121 -PORT # 4 -BYTE # 122 -PORT # 4 -BYTE # 123 -PORT # 4 -BYTE # 124 -PORT # 4 -BYTE # 125 -PORT # 4 -BYTE # 126 -PORT # 4 -BYTE # 127 -PORT # 4 -BYTE # 128 -PORT # 4 -BYTE # 129 -PORT # 4 -BYTE # 130 -PORT # 4 -BYTE # 131 -PORT # 4 -BYTE # 132 -PORT # 4 -BYTE # 133 -PORT # 4 -BYTE # 134 -PORT # 4 -BYTE # 135 -PORT # 4 -BYTE # 136 -PORT # 4 -BYTE # 137 -PORT # 4 -BYTE # 138 -PORT # 4 -BYTE # 139 -PORT # 4 -BYTE # 140 -PORT # 4 -BYTE # 141 -PORT # 4 -BYTE # 142 -PORT # 4 -BYTE # 143 -PORT # 4 -BYTE # 144 -PORT # 4 -BYTE # 145 -PORT # 4 -BYTE # 146 -PORT # 4 -BYTE # 147 -PORT # 4 -BYTE # 148 -PORT # 4 -BYTE # 149 -PORT # 4 -BYTE # 150 -PORT # 4 -BYTE # 151 -PORT # 4 -BYTE # 152 -PORT # 4 -BYTE # 153 -PORT # 4 -BYTE # 154 -PORT # 4 -BYTE # 155 -PORT # 4 -BYTE # 156 -PORT # 4 -BYTE # 157 -PORT # 4 -BYTE # 158 -PORT # 4 -BYTE # 159 -PORT # 4 -BYTE # 160 -PORT # 4 -BYTE # 161 -PORT # 4 -BYTE # 162 -PORT # 4 -BYTE # 163 -PORT # 4 -BYTE # 164 -PORT # 4 -BYTE # 165 -PORT # 4 -BYTE # 166 -PORT # 4 -BYTE # 167 -PORT # 4 -BYTE # 168 -PORT # 4 -BYTE # 169 -PORT # 4 -BYTE # 170 -PORT # 4 -BYTE # 171 -PORT # 4 -BYTE # 172 -PORT # 4 -BYTE # 173 -PORT # 4 -BYTE # 174 -PORT # 4 -BYTE # 175 -PORT # 4 -BYTE # 176 -PORT # 4 -BYTE # 177 -PORT # 4 -BYTE # 178 -PORT # 4 -BYTE # 179 -PORT # 4 -BYTE # 180 -PORT # 4 -BYTE # 181 -PORT # 4 -BYTE # 182 -PORT # 4 -BYTE # 183 -PORT # 4 -BYTE # 184 -PORT # 4 -BYTE # 185 -PORT # 4 -BYTE # 186 -PORT # 4 -BYTE # 187 -PORT # 4 -BYTE # 188 -PORT # 4 -BYTE # 189 -PORT # 4 -BYTE # 190 -PORT # 4 -BYTE # 191 -PORT # 4 -BYTE # 192 -PORT # 4 -BYTE # 193 -PORT # 4 -BYTE # 194 -PORT # 4 -BYTE # 195 -PORT # 4 -BYTE # 196 -PORT # 4 -BYTE # 197 -PORT # 4 -BYTE # 198 -PORT # 4 -BYTE # 199 -PORT # 4 -BYTE # 200 -PORT # 4 -BYTE # 201 -PORT # 4 -BYTE # 202 -PORT # 4 -BYTE # 203 -PORT # 4 -BYTE # 204 -PORT # 4 -BYTE # 205 -PORT # 4 -BYTE # 206 -PORT # 4 -BYTE # 207 -PORT # 4 -BYTE # 208 -PORT # 4 -BYTE # 209 -PORT # 4 -BYTE # 210 -PORT # 4 -BYTE # 211 -PORT # 4 -BYTE # 212 -PORT # 4 -BYTE # 213 -PORT # 4 -BYTE # 214 -PORT # 4 -BYTE # 215 -PORT # 4 -BYTE # 216 -PORT # 4 -BYTE # 217 -PORT # 4 -BYTE # 218 -PORT # 4 -BYTE # 219 -PORT # 4 -BYTE # 220 -PORT # 4 -BYTE # 221 -PORT # 4 -BYTE # 222 -PORT # 4 -BYTE # 223 -PORT # 4 -BYTE # 224 -PORT # 4 -BYTE # 225 -PORT # 4 -BYTE # 226 -PORT # 4 -BYTE # 227 -PORT # 4 -BYTE # 228 -PORT # 4 -BYTE # 229 -PORT # 4 -BYTE # 230 -PORT # 4 -BYTE # 231 -PORT # 4 -BYTE # 232 -PORT # 4 -BYTE # 233 -PORT # 4 -BYTE # 234 -PORT # 4 -BYTE # 235 -PORT # 4 -BYTE # 236 -PORT # 4 -BYTE # 237 -PORT # 4 -BYTE # 238 -PORT # 4 -BYTE # 239 -PORT # 4 -BYTE # 240 -PORT # 4 -BYTE # 241 -PORT # 4 -BYTE # 242 -PORT # 4 -BYTE # 243 -PORT # 4 -BYTE # 244 -PORT # 4 -BYTE # 245 -PORT # 4 -BYTE # 246 -PORT # 4 -BYTE # 247 -PORT # 4 -BYTE # 248 -PORT # 4 -BYTE # 249 -PORT # 4 -BYTE # 250 -PORT # 4 -BYTE # 251 -PORT # 4 -BYTE # 252 -PORT # 4 -BYTE # 253 -PORT # 4 -BYTE # 254 -PORT # 4 -BYTE # 255 -PORT # 5 -BYTE # 0 -PORT # 5 -BYTE # 1 -PORT # 5 -BYTE # 2 -PORT # 5 -BYTE # 3 -PORT # 5 -BYTE # 4 -PORT # 5 -BYTE # 5 -PORT # 5 -BYTE # 6 -PORT # 5 -BYTE # 7 -PORT # 5 -BYTE # 8 -PORT # 5 -BYTE # 9 -PORT # 5 -BYTE # 10 -PORT # 5 -BYTE # 11 -PORT # 5 -BYTE # 12 -PORT # 5 -BYTE # 13 -PORT # 5 -BYTE # 14 -PORT # 5 -BYTE # 15 -PORT # 5 -BYTE # 16 -PORT # 5 -BYTE # 17 -PORT # 5 -BYTE # 18 -PORT # 5 -BYTE # 19 -PORT # 5 -BYTE # 20 -PORT # 5 -BYTE # 21 -PORT # 5 -BYTE # 22 -PORT # 5 -BYTE # 23 -PORT # 5 -BYTE # 24 -PORT # 5 -BYTE # 25 -PORT # 5 -BYTE # 26 -PORT # 5 -BYTE # 27 -PORT # 5 -BYTE # 28 -PORT # 5 -BYTE # 29 -PORT # 5 -BYTE # 30 -PORT # 5 -BYTE # 31 -PORT # 5 -BYTE # 32 -PORT # 5 -BYTE # 33 -PORT # 5 -BYTE # 34 -PORT # 5 -BYTE # 35 -PORT # 5 -BYTE # 36 -PORT # 5 -BYTE # 37 -PORT # 5 -BYTE # 38 -PORT # 5 -BYTE # 39 -PORT # 5 -BYTE # 40 -PORT # 5 -BYTE # 41 -PORT # 5 -BYTE # 42 -PORT # 5 -BYTE # 43 -PORT # 5 -BYTE # 44 -PORT # 5 -BYTE # 45 -PORT # 5 -BYTE # 46 -PORT # 5 -BYTE # 47 -PORT # 5 -BYTE # 48 -PORT # 5 -BYTE # 49 -PORT # 5 -BYTE # 50 -PORT # 5 -BYTE # 51 -PORT # 5 -BYTE # 52 -PORT # 5 -BYTE # 53 -PORT # 5 -BYTE # 54 -PORT # 5 -BYTE # 55 -PORT # 5 -BYTE # 56 -PORT # 5 -BYTE # 57 -PORT # 5 -BYTE # 58 -PORT # 5 -BYTE # 59 -PORT # 5 -BYTE # 60 -PORT # 5 -BYTE # 61 -PORT # 5 -BYTE # 62 -PORT # 5 -BYTE # 63 -PORT # 5 -BYTE # 64 -PORT # 5 -BYTE # 65 -PORT # 5 -BYTE # 66 -PORT # 5 -BYTE # 67 -PORT # 5 -BYTE # 68 -PORT # 5 -BYTE # 69 -PORT # 5 -BYTE # 70 -PORT # 5 -BYTE # 71 -PORT # 5 -BYTE # 72 -PORT # 5 -BYTE # 73 -PORT # 5 -BYTE # 74 -PORT # 5 -BYTE # 75 -PORT # 5 -BYTE # 76 -PORT # 5 -BYTE # 77 -PORT # 5 -BYTE # 78 -PORT # 5 -BYTE # 79 -PORT # 5 -BYTE # 80 -PORT # 5 -BYTE # 81 -PORT # 5 -BYTE # 82 -PORT # 5 -BYTE # 83 -PORT # 5 -BYTE # 84 -PORT # 5 -BYTE # 85 -PORT # 5 -BYTE # 86 -PORT # 5 -BYTE # 87 -PORT # 5 -BYTE # 88 -PORT # 5 -BYTE # 89 -PORT # 5 -BYTE # 90 -PORT # 5 -BYTE # 91 -PORT # 5 -BYTE # 92 -PORT # 5 -BYTE # 93 -PORT # 5 -BYTE # 94 -PORT # 5 -BYTE # 95 -PORT # 5 -BYTE # 96 -PORT # 5 -BYTE # 97 -PORT # 5 -BYTE # 98 -PORT # 5 -BYTE # 99 -PORT # 5 -BYTE # 100 -PORT # 5 -BYTE # 101 -PORT # 5 -BYTE # 102 -PORT # 5 -BYTE # 103 -PORT # 5 -BYTE # 104 -PORT # 5 -BYTE # 105 -PORT # 5 -BYTE # 106 -PORT # 5 -BYTE # 107 -PORT # 5 -BYTE # 108 -PORT # 5 -BYTE # 109 -PORT # 5 -BYTE # 110 -PORT # 5 -BYTE # 111 -PORT # 5 -BYTE # 112 -PORT # 5 -BYTE # 113 -PORT # 5 -BYTE # 114 -PORT # 5 -BYTE # 115 -PORT # 5 -BYTE # 116 -PORT # 5 -BYTE # 117 -PORT # 5 -BYTE # 118 -PORT # 5 -BYTE # 119 -PORT # 5 -BYTE # 120 -PORT # 5 -BYTE # 121 -PORT # 5 -BYTE # 122 -PORT # 5 -BYTE # 123 -PORT # 5 -BYTE # 124 -PORT # 5 -BYTE # 125 -PORT # 5 -BYTE # 126 -PORT # 5 -BYTE # 127 -PORT # 5 -BYTE # 128 -PORT # 5 -BYTE # 129 -PORT # 5 -BYTE # 130 -PORT # 5 -BYTE # 131 -PORT # 5 -BYTE # 132 -PORT # 5 -BYTE # 133 -PORT # 5 -BYTE # 134 -PORT # 5 -BYTE # 135 -PORT # 5 -BYTE # 136 -PORT # 5 -BYTE # 137 -PORT # 5 -BYTE # 138 -PORT # 5 -BYTE # 139 -PORT # 5 -BYTE # 140 -PORT # 5 -BYTE # 141 -PORT # 5 -BYTE # 142 -PORT # 5 -BYTE # 143 -PORT # 5 -BYTE # 144 -PORT # 5 -BYTE # 145 -PORT # 5 -BYTE # 146 -PORT # 5 -BYTE # 147 -PORT # 5 -BYTE # 148 -PORT # 5 -BYTE # 149 -PORT # 5 -BYTE # 150 -PORT # 5 -BYTE # 151 -PORT # 5 -BYTE # 152 -PORT # 5 -BYTE # 153 -PORT # 5 -BYTE # 154 -PORT # 5 -BYTE # 155 -PORT # 5 -BYTE # 156 -PORT # 5 -BYTE # 157 -PORT # 5 -BYTE # 158 -PORT # 5 -BYTE # 159 -PORT # 5 -BYTE # 160 -PORT # 5 -BYTE # 161 -PORT # 5 -BYTE # 162 -PORT # 5 -BYTE # 163 -PORT # 5 -BYTE # 164 -PORT # 5 -BYTE # 165 -PORT # 5 -BYTE # 166 -PORT # 5 -BYTE # 167 -PORT # 5 -BYTE # 168 -PORT # 5 -BYTE # 169 -PORT # 5 -BYTE # 170 -PORT # 5 -BYTE # 171 -PORT # 5 -BYTE # 172 -PORT # 5 -BYTE # 173 -PORT # 5 -BYTE # 174 -PORT # 5 -BYTE # 175 -PORT # 5 -BYTE # 176 -PORT # 5 -BYTE # 177 -PORT # 5 -BYTE # 178 -PORT # 5 -BYTE # 179 -PORT # 5 -BYTE # 180 -PORT # 5 -BYTE # 181 -PORT # 5 -BYTE # 182 -PORT # 5 -BYTE # 183 -PORT # 5 -BYTE # 184 -PORT # 5 -BYTE # 185 -PORT # 5 -BYTE # 186 -PORT # 5 -BYTE # 187 -PORT # 5 -BYTE # 188 -PORT # 5 -BYTE # 189 -PORT # 5 -BYTE # 190 -PORT # 5 -BYTE # 191 -PORT # 5 -BYTE # 192 -PORT # 5 -BYTE # 193 -PORT # 5 -BYTE # 194 -PORT # 5 -BYTE # 195 -PORT # 5 -BYTE # 196 -PORT # 5 -BYTE # 197 -PORT # 5 -BYTE # 198 -PORT # 5 -BYTE # 199 -PORT # 5 -BYTE # 200 -PORT # 5 -BYTE # 201 -PORT # 5 -BYTE # 202 -PORT # 5 -BYTE # 203 -PORT # 5 -BYTE # 204 -PORT # 5 -BYTE # 205 -PORT # 5 -BYTE # 206 -PORT # 5 -BYTE # 207 -PORT # 5 -BYTE # 208 -PORT # 5 -BYTE # 209 -PORT # 5 -BYTE # 210 -PORT # 5 -BYTE # 211 -PORT # 5 -BYTE # 212 -PORT # 5 -BYTE # 213 -PORT # 5 -BYTE # 214 -PORT # 5 -BYTE # 215 -PORT # 5 -BYTE # 216 -PORT # 5 -BYTE # 217 -PORT # 5 -BYTE # 218 -PORT # 5 -BYTE # 219 -PORT # 5 -BYTE # 220 -PORT # 5 -BYTE # 221 -PORT # 5 -BYTE # 222 -PORT # 5 -BYTE # 223 -PORT # 5 -BYTE # 224 -PORT # 5 -BYTE # 225 -PORT # 5 -BYTE # 226 -PORT # 5 -BYTE # 227 -PORT # 5 -BYTE # 228 -PORT # 5 -BYTE # 229 -PORT # 5 -BYTE # 230 -PORT # 5 -BYTE # 231 -PORT # 5 -BYTE # 232 -PORT # 5 -BYTE # 233 -PORT # 5 -BYTE # 234 -PORT # 5 -BYTE # 235 -PORT # 5 -BYTE # 236 -PORT # 5 -BYTE # 237 -PORT # 5 -BYTE # 238 -PORT # 5 -BYTE # 239 -PORT # 5 -BYTE # 240 -PORT # 5 -BYTE # 241 -PORT # 5 -BYTE # 242 -PORT # 5 -BYTE # 243 -PORT # 5 -BYTE # 244 -PORT # 5 -BYTE # 245 -PORT # 5 -BYTE # 246 -PORT # 5 -BYTE # 247 -PORT # 5 -BYTE # 248 -PORT # 5 -BYTE # 249 -PORT # 5 -BYTE # 250 -PORT # 5 -BYTE # 251 -PORT # 5 -BYTE # 252 -PORT # 5 -BYTE # 253 -PORT # 5 -BYTE # 254 -PORT # 5 -BYTE # 255 -PORT # 6 -BYTE # 0 -PORT # 6 -BYTE # 1 -PORT # 6 -BYTE # 2 -PORT # 6 -BYTE # 3 -PORT # 6 -BYTE # 4 -PORT # 6 -BYTE # 5 -PORT # 6 -BYTE # 6 -PORT # 6 -BYTE # 7 -PORT # 6 -BYTE # 8 -PORT # 6 -BYTE # 9 -PORT # 6 -BYTE # 10 -PORT # 6 -BYTE # 11 -PORT # 6 -BYTE # 12 -PORT # 6 -BYTE # 13 -PORT # 6 -BYTE # 14 -PORT # 6 -BYTE # 15 -PORT # 6 -BYTE # 16 -PORT # 6 -BYTE # 17 -PORT # 6 -BYTE # 18 -PORT # 6 -BYTE # 19 -PORT # 6 -BYTE # 20 -PORT # 6 -BYTE # 21 -PORT # 6 -BYTE # 22 -PORT # 6 -BYTE # 23 -PORT # 6 -BYTE # 24 -PORT # 6 -BYTE # 25 -PORT # 6 -BYTE # 26 -PORT # 6 -BYTE # 27 -PORT # 6 -BYTE # 28 -PORT # 6 -BYTE # 29 -PORT # 6 -BYTE # 30 -PORT # 6 -BYTE # 31 -PORT # 6 -BYTE # 32 -PORT # 6 -BYTE # 33 -PORT # 6 -BYTE # 34 -PORT # 6 -BYTE # 35 -PORT # 6 -BYTE # 36 -PORT # 6 -BYTE # 37 -PORT # 6 -BYTE # 38 -PORT # 6 -BYTE # 39 -PORT # 6 -BYTE # 40 -PORT # 6 -BYTE # 41 -PORT # 6 -BYTE # 42 -PORT # 6 -BYTE # 43 -PORT # 6 -BYTE # 44 -PORT # 6 -BYTE # 45 -PORT # 6 -BYTE # 46 -PORT # 6 -BYTE # 47 -PORT # 6 -BYTE # 48 -PORT # 6 -BYTE # 49 -PORT # 6 -BYTE # 50 -PORT # 6 -BYTE # 51 -PORT # 6 -BYTE # 52 -PORT # 6 -BYTE # 53 -PORT # 6 -BYTE # 54 -PORT # 6 -BYTE # 55 -PORT # 6 -BYTE # 56 -PORT # 6 -BYTE # 57 -PORT # 6 -BYTE # 58 -PORT # 6 -BYTE # 59 -PORT # 6 -BYTE # 60 -PORT # 6 -BYTE # 61 -PORT # 6 -BYTE # 62 -PORT # 6 -BYTE # 63 -PORT # 6 -BYTE # 64 -PORT # 6 -BYTE # 65 -PORT # 6 -BYTE # 66 -PORT # 6 -BYTE # 67 -PORT # 6 -BYTE # 68 -PORT # 6 -BYTE # 69 -PORT # 6 -BYTE # 70 -PORT # 6 -BYTE # 71 -PORT # 6 -BYTE # 72 -PORT # 6 -BYTE # 73 -PORT # 6 -BYTE # 74 -PORT # 6 -BYTE # 75 -PORT # 6 -BYTE # 76 -PORT # 6 -BYTE # 77 -PORT # 6 -BYTE # 78 -PORT # 6 -BYTE # 79 -PORT # 6 -BYTE # 80 -PORT # 6 -BYTE # 81 -PORT # 6 -BYTE # 82 -PORT # 6 -BYTE # 83 -PORT # 6 -BYTE # 84 -PORT # 6 -BYTE # 85 -PORT # 6 -BYTE # 86 -PORT # 6 -BYTE # 87 -PORT # 6 -BYTE # 88 -PORT # 6 -BYTE # 89 -PORT # 6 -BYTE # 90 -PORT # 6 -BYTE # 91 -PORT # 6 -BYTE # 92 -PORT # 6 -BYTE # 93 -PORT # 6 -BYTE # 94 -PORT # 6 -BYTE # 95 -PORT # 6 -BYTE # 96 -PORT # 6 -BYTE # 97 -PORT # 6 -BYTE # 98 -PORT # 6 -BYTE # 99 -PORT # 6 -BYTE # 100 -PORT # 6 -BYTE # 101 -PORT # 6 -BYTE # 102 -PORT # 6 -BYTE # 103 -PORT # 6 -BYTE # 104 -PORT # 6 -BYTE # 105 -PORT # 6 -BYTE # 106 -PORT # 6 -BYTE # 107 -PORT # 6 -BYTE # 108 -PORT # 6 -BYTE # 109 -PORT # 6 -BYTE # 110 -PORT # 6 -BYTE # 111 -PORT # 6 -BYTE # 112 -PORT # 6 -BYTE # 113 -PORT # 6 -BYTE # 114 -PORT # 6 -BYTE # 115 -PORT # 6 -BYTE # 116 -PORT # 6 -BYTE # 117 -PORT # 6 -BYTE # 118 -PORT # 6 -BYTE # 119 -PORT # 6 -BYTE # 120 -PORT # 6 -BYTE # 121 -PORT # 6 -BYTE # 122 -PORT # 6 -BYTE # 123 -PORT # 6 -BYTE # 124 -PORT # 6 -BYTE # 125 -PORT # 6 -BYTE # 126 -PORT # 6 -BYTE # 127 -PORT # 6 -BYTE # 128 -PORT # 6 -BYTE # 129 -PORT # 6 -BYTE # 130 -PORT # 6 -BYTE # 131 -PORT # 6 -BYTE # 132 -PORT # 6 -BYTE # 133 -PORT # 6 -BYTE # 134 -PORT # 6 -BYTE # 135 -PORT # 6 -BYTE # 136 -PORT # 6 -BYTE # 137 -PORT # 6 -BYTE # 138 -PORT # 6 -BYTE # 139 -PORT # 6 -BYTE # 140 -PORT # 6 -BYTE # 141 -PORT # 6 -BYTE # 142 -PORT # 6 -BYTE # 143 -PORT # 6 -BYTE # 144 -PORT # 6 -BYTE # 145 -PORT # 6 -BYTE # 146 -PORT # 6 -BYTE # 147 -PORT # 6 -BYTE # 148 -PORT # 6 -BYTE # 149 -PORT # 6 -BYTE # 150 -PORT # 6 -BYTE # 151 -PORT # 6 -BYTE # 152 -PORT # 6 -BYTE # 153 -PORT # 6 -BYTE # 154 -PORT # 6 -BYTE # 155 -PORT # 6 -BYTE # 156 -PORT # 6 -BYTE # 157 -PORT # 6 -BYTE # 158 -PORT # 6 -BYTE # 159 -PORT # 6 -BYTE # 160 -PORT # 6 -BYTE # 161 -PORT # 6 -BYTE # 162 -PORT # 6 -BYTE # 163 -PORT # 6 -BYTE # 164 -PORT # 6 -BYTE # 165 -PORT # 6 -BYTE # 166 -PORT # 6 -BYTE # 167 -PORT # 6 -BYTE # 168 -PORT # 6 -BYTE # 169 -PORT # 6 -BYTE # 170 -PORT # 6 -BYTE # 171 -PORT # 6 -BYTE # 172 -PORT # 6 -BYTE # 173 -PORT # 6 -BYTE # 174 -PORT # 6 -BYTE # 175 -PORT # 6 -BYTE # 176 -PORT # 6 -BYTE # 177 -PORT # 6 -BYTE # 178 -PORT # 6 -BYTE # 179 -PORT # 6 -BYTE # 180 -PORT # 6 -BYTE # 181 -PORT # 6 -BYTE # 182 -PORT # 6 -BYTE # 183 -PORT # 6 -BYTE # 184 -PORT # 6 -BYTE # 185 -PORT # 6 -BYTE # 186 -PORT # 6 -BYTE # 187 -PORT # 6 -BYTE # 188 -PORT # 6 -BYTE # 189 -PORT # 6 -BYTE # 190 -PORT # 6 -BYTE # 191 -PORT # 6 -BYTE # 192 -PORT # 6 -BYTE # 193 -PORT # 6 -BYTE # 194 -PORT # 6 -BYTE # 195 -PORT # 6 -BYTE # 196 -PORT # 6 -BYTE # 197 -PORT # 6 -BYTE # 198 -PORT # 6 -BYTE # 199 -PORT # 6 -BYTE # 200 -PORT # 6 -BYTE # 201 -PORT # 6 -BYTE # 202 -PORT # 6 -BYTE # 203 -PORT # 6 -BYTE # 204 -PORT # 6 -BYTE # 205 -PORT # 6 -BYTE # 206 -PORT # 6 -BYTE # 207 -PORT # 6 -BYTE # 208 -PORT # 6 -BYTE # 209 -PORT # 6 -BYTE # 210 -PORT # 6 -BYTE # 211 -PORT # 6 -BYTE # 212 -PORT # 6 -BYTE # 213 -PORT # 6 -BYTE # 214 -PORT # 6 -BYTE # 215 -PORT # 6 -BYTE # 216 -PORT # 6 -BYTE # 217 -PORT # 6 -BYTE # 218 -PORT # 6 -BYTE # 219 -PORT # 6 -BYTE # 220 -PORT # 6 -BYTE # 221 -PORT # 6 -BYTE # 222 -PORT # 6 -BYTE # 223 -PORT # 6 -BYTE # 224 -PORT # 6 -BYTE # 225 -PORT # 6 -BYTE # 226 -PORT # 6 -BYTE # 227 -PORT # 6 -BYTE # 228 -PORT # 6 -BYTE # 229 -PORT # 6 -BYTE # 230 -PORT # 6 -BYTE # 231 -PORT # 6 -BYTE # 232 -PORT # 6 -BYTE # 233 -PORT # 6 -BYTE # 234 -PORT # 6 -BYTE # 235 -PORT # 6 -BYTE # 236 -PORT # 6 -BYTE # 237 -PORT # 6 -BYTE # 238 -PORT # 6 -BYTE # 239 -PORT # 6 -BYTE # 240 -PORT # 6 -BYTE # 241 -PORT # 6 -BYTE # 242 -PORT # 6 -BYTE # 243 -PORT # 6 -BYTE # 244 -PORT # 6 -BYTE # 245 -PORT # 6 -BYTE # 246 -PORT # 6 -BYTE # 247 -PORT # 6 -BYTE # 248 -PORT # 6 -BYTE # 249 -PORT # 6 -BYTE # 250 -PORT # 6 -BYTE # 251 -PORT # 6 -BYTE # 252 -PORT # 6 -BYTE # 253 -PORT # 6 -BYTE # 254 -PORT # 6 -BYTE # 255 -PORT # 7 -BYTE # 0 -PORT # 7 -BYTE # 1 -PORT # 7 -BYTE # 2 -PORT # 7 -BYTE # 3 -PORT # 7 -BYTE # 4 -PORT # 7 -BYTE # 5 -PORT # 7 -BYTE # 6 -PORT # 7 -BYTE # 7 -PORT # 7 -BYTE # 8 -PORT # 7 -BYTE # 9 -PORT # 7 -BYTE # 10 -PORT # 7 -BYTE # 11 -PORT # 7 -BYTE # 12 -PORT # 7 -BYTE # 13 -PORT # 7 -BYTE # 14 -PORT # 7 -BYTE # 15 -PORT # 7 -BYTE # 16 -PORT # 7 -BYTE # 17 -PORT # 7 -BYTE # 18 -PORT # 7 -BYTE # 19 -PORT # 7 -BYTE # 20 -PORT # 7 -BYTE # 21 -PORT # 7 -BYTE # 22 -PORT # 7 -BYTE # 23 -PORT # 7 -BYTE # 24 -PORT # 7 -BYTE # 25 -PORT # 7 -BYTE # 26 -PORT # 7 -BYTE # 27 -PORT # 7 -BYTE # 28 -PORT # 7 -BYTE # 29 -PORT # 7 -BYTE # 30 -PORT # 7 -BYTE # 31 -PORT # 7 -BYTE # 32 -PORT # 7 -BYTE # 33 -PORT # 7 -BYTE # 34 -PORT # 7 -BYTE # 35 -PORT # 7 -BYTE # 36 -PORT # 7 -BYTE # 37 -PORT # 7 -BYTE # 38 -PORT # 7 -BYTE # 39 -PORT # 7 -BYTE # 40 -PORT # 7 -BYTE # 41 -PORT # 7 -BYTE # 42 -PORT # 7 -BYTE # 43 -PORT # 7 -BYTE # 44 -PORT # 7 -BYTE # 45 -PORT # 7 -BYTE # 46 -PORT # 7 -BYTE # 47 -PORT # 7 -BYTE # 48 -PORT # 7 -BYTE # 49 -PORT # 7 -BYTE # 50 -PORT # 7 -BYTE # 51 -PORT # 7 -BYTE # 52 -PORT # 7 -BYTE # 53 -PORT # 7 -BYTE # 54 -PORT # 7 -BYTE # 55 -PORT # 7 -BYTE # 56 -PORT # 7 -BYTE # 57 -PORT # 7 -BYTE # 58 -PORT # 7 -BYTE # 59 -PORT # 7 -BYTE # 60 -PORT # 7 -BYTE # 61 -PORT # 7 -BYTE # 62 -PORT # 7 -BYTE # 63 -PORT # 7 -BYTE # 64 -PORT # 7 -BYTE # 65 -PORT # 7 -BYTE # 66 -PORT # 7 -BYTE # 67 -PORT # 7 -BYTE # 68 -PORT # 7 -BYTE # 69 -PORT # 7 -BYTE # 70 -PORT # 7 -BYTE # 71 -PORT # 7 -BYTE # 72 -PORT # 7 -BYTE # 73 -PORT # 7 -BYTE # 74 -PORT # 7 -BYTE # 75 -PORT # 7 -BYTE # 76 -PORT # 7 -BYTE # 77 -PORT # 7 -BYTE # 78 -PORT # 7 -BYTE # 79 -PORT # 7 -BYTE # 80 -PORT # 7 -BYTE # 81 -PORT # 7 -BYTE # 82 -PORT # 7 -BYTE # 83 -PORT # 7 -BYTE # 84 -PORT # 7 -BYTE # 85 -PORT # 7 -BYTE # 86 -PORT # 7 -BYTE # 87 -PORT # 7 -BYTE # 88 -PORT # 7 -BYTE # 89 -PORT # 7 -BYTE # 90 -PORT # 7 -BYTE # 91 -PORT # 7 -BYTE # 92 -PORT # 7 -BYTE # 93 -PORT # 7 -BYTE # 94 -PORT # 7 -BYTE # 95 -PORT # 7 -BYTE # 96 -PORT # 7 -BYTE # 97 -PORT # 7 -BYTE # 98 -PORT # 7 -BYTE # 99 -PORT # 7 -BYTE # 100 -PORT # 7 -BYTE # 101 -PORT # 7 -BYTE # 102 -PORT # 7 -BYTE # 103 -PORT # 7 -BYTE # 104 -PORT # 7 -BYTE # 105 -PORT # 7 -BYTE # 106 -PORT # 7 -BYTE # 107 -PORT # 7 -BYTE # 108 -PORT # 7 -BYTE # 109 -PORT # 7 -BYTE # 110 -PORT # 7 -BYTE # 111 -PORT # 7 -BYTE # 112 -PORT # 7 -BYTE # 113 -PORT # 7 -BYTE # 114 -PORT # 7 -BYTE # 115 -PORT # 7 -BYTE # 116 -PORT # 7 -BYTE # 117 -PORT # 7 -BYTE # 118 -PORT # 7 -BYTE # 119 -PORT # 7 -BYTE # 120 -PORT # 7 -BYTE # 121 -PORT # 7 -BYTE # 122 -PORT # 7 -BYTE # 123 -PORT # 7 -BYTE # 124 -PORT # 7 -BYTE # 125 -PORT # 7 -BYTE # 126 -PORT # 7 -BYTE # 127 -PORT # 7 -BYTE # 128 -PORT # 7 -BYTE # 129 -PORT # 7 -BYTE # 130 -PORT # 7 -BYTE # 131 -PORT # 7 -BYTE # 132 -PORT # 7 -BYTE # 133 -PORT # 7 -BYTE # 134 -PORT # 7 -BYTE # 135 -PORT # 7 -BYTE # 136 -PORT # 7 -BYTE # 137 -PORT # 7 -BYTE # 138 -PORT # 7 -BYTE # 139 -PORT # 7 -BYTE # 140 -PORT # 7 -BYTE # 141 -PORT # 7 -BYTE # 142 -PORT # 7 -BYTE # 143 -PORT # 7 -BYTE # 144 -PORT # 7 -BYTE # 145 -PORT # 7 -BYTE # 146 -PORT # 7 -BYTE # 147 -PORT # 7 -BYTE # 148 -PORT # 7 -BYTE # 149 -PORT # 7 -BYTE # 150 -PORT # 7 -BYTE # 151 -PORT # 7 -BYTE # 152 -PORT # 7 -BYTE # 153 -PORT # 7 -BYTE # 154 -PORT # 7 -BYTE # 155 -PORT # 7 -BYTE # 156 -PORT # 7 -BYTE # 157 -PORT # 7 -BYTE # 158 -PORT # 7 -BYTE # 159 -PORT # 7 -BYTE # 160 -PORT # 7 -BYTE # 161 -PORT # 7 -BYTE # 162 -PORT # 7 -BYTE # 163 -PORT # 7 -BYTE # 164 -PORT # 7 -BYTE # 165 -PORT # 7 -BYTE # 166 -PORT # 7 -BYTE # 167 -PORT # 7 -BYTE # 168 -PORT # 7 -BYTE # 169 -PORT # 7 -BYTE # 170 -PORT # 7 -BYTE # 171 -PORT # 7 -BYTE # 172 -PORT # 7 -BYTE # 173 -PORT # 7 -BYTE # 174 -PORT # 7 -BYTE # 175 -PORT # 7 -BYTE # 176 -PORT # 7 -BYTE # 177 -PORT # 7 -BYTE # 178 -PORT # 7 -BYTE # 179 -PORT # 7 -BYTE # 180 -PORT # 7 -BYTE # 181 -PORT # 7 -BYTE # 182 -PORT # 7 -BYTE # 183 -PORT # 7 -BYTE # 184 -PORT # 7 -BYTE # 185 -PORT # 7 -BYTE # 186 -PORT # 7 -BYTE # 187 -PORT # 7 -BYTE # 188 -PORT # 7 -BYTE # 189 -PORT # 7 -BYTE # 190 -PORT # 7 -BYTE # 191 -PORT # 7 -BYTE # 192 -PORT # 7 -BYTE # 193 -PORT # 7 -BYTE # 194 -PORT # 7 -BYTE # 195 -PORT # 7 -BYTE # 196 -PORT # 7 -BYTE # 197 -PORT # 7 -BYTE # 198 -PORT # 7 -BYTE # 199 -PORT # 7 -BYTE # 200 -PORT # 7 -BYTE # 201 -PORT # 7 -BYTE # 202 -PORT # 7 -BYTE # 203 -PORT # 7 -BYTE # 204 -PORT # 7 -BYTE # 205 -PORT # 7 -BYTE # 206 -PORT # 7 -BYTE # 207 -PORT # 7 -BYTE # 208 -PORT # 7 -BYTE # 209 -PORT # 7 -BYTE # 210 -PORT # 7 -BYTE # 211 -PORT # 7 -BYTE # 212 -PORT # 7 -BYTE # 213 -PORT # 7 -BYTE # 214 -PORT # 7 -BYTE # 215 -PORT # 7 -BYTE # 216 -PORT # 7 -BYTE # 217 -PORT # 7 -BYTE # 218 -PORT # 7 -BYTE # 219 -PORT # 7 -BYTE # 220 -PORT # 7 -BYTE # 221 -PORT # 7 -BYTE # 222 -PORT # 7 -BYTE # 223 -PORT # 7 -BYTE # 224 -PORT # 7 -BYTE # 225 -PORT # 7 -BYTE # 226 -PORT # 7 -BYTE # 227 -PORT # 7 -BYTE # 228 -PORT # 7 -BYTE # 229 -PORT # 7 -BYTE # 230 -PORT # 7 -BYTE # 231 -PORT # 7 -BYTE # 232 -PORT # 7 -BYTE # 233 -PORT # 7 -BYTE # 234 -PORT # 7 -BYTE # 235 -PORT # 7 -BYTE # 236 -PORT # 7 -BYTE # 237 -PORT # 7 -BYTE # 238 -PORT # 7 -BYTE # 239 -PORT # 7 -BYTE # 240 -PORT # 7 -BYTE # 241 -PORT # 7 -BYTE # 242 -PORT # 7 -BYTE # 243 -PORT # 7 -BYTE # 244 -PORT # 7 -BYTE # 245 -PORT # 7 -BYTE # 246 -PORT # 7 -BYTE # 247 -PORT # 7 -BYTE # 248 -PORT # 7 -BYTE # 249 -PORT # 7 -BYTE # 250 -PORT # 7 -BYTE # 251 -PORT # 7 -BYTE # 252 -PORT # 7 -BYTE # 253 -PORT # 7 -BYTE # 254 -PORT # 7 -BYTE # 255 -PORT # 8 -BYTE # 0 -PORT # 8 -BYTE # 1 -PORT # 8 -BYTE # 2 -PORT # 8 -BYTE # 3 -PORT # 8 -BYTE # 4 -PORT # 8 -BYTE # 5 -PORT # 8 -BYTE # 6 -PORT # 8 -BYTE # 7 -PORT # 8 -BYTE # 8 -PORT # 8 -BYTE # 9 -PORT # 8 -BYTE # 10 -PORT # 8 -BYTE # 11 -PORT # 8 -BYTE # 12 -PORT # 8 -BYTE # 13 -PORT # 8 -BYTE # 14 -PORT # 8 -BYTE # 15 -PORT # 8 -BYTE # 16 -PORT # 8 -BYTE # 17 -PORT # 8 -BYTE # 18 -PORT # 8 -BYTE # 19 -PORT # 8 -BYTE # 20 -PORT # 8 -BYTE # 21 -PORT # 8 -BYTE # 22 -PORT # 8 -BYTE # 23 -PORT # 8 -BYTE # 24 -PORT # 8 -BYTE # 25 -PORT # 8 -BYTE # 26 -PORT # 8 -BYTE # 27 -PORT # 8 -BYTE # 28 -PORT # 8 -BYTE # 29 -PORT # 8 -BYTE # 30 -PORT # 8 -BYTE # 31 -PORT # 8 -BYTE # 32 -PORT # 8 -BYTE # 33 -PORT # 8 -BYTE # 34 -PORT # 8 -BYTE # 35 -PORT # 8 -BYTE # 36 -PORT # 8 -BYTE # 37 -PORT # 8 -BYTE # 38 -PORT # 8 -BYTE # 39 -PORT # 8 -BYTE # 40 -PORT # 8 -BYTE # 41 -PORT # 8 -BYTE # 42 -PORT # 8 -BYTE # 43 -PORT # 8 -BYTE # 44 -PORT # 8 -BYTE # 45 -PORT # 8 -BYTE # 46 -PORT # 8 -BYTE # 47 -PORT # 8 -BYTE # 48 -PORT # 8 -BYTE # 49 -PORT # 8 -BYTE # 50 -PORT # 8 -BYTE # 51 -PORT # 8 -BYTE # 52 -PORT # 8 -BYTE # 53 -PORT # 8 -BYTE # 54 -PORT # 8 -BYTE # 55 -PORT # 8 -BYTE # 56 -PORT # 8 -BYTE # 57 -PORT # 8 -BYTE # 58 -PORT # 8 -BYTE # 59 -PORT # 8 -BYTE # 60 -PORT # 8 -BYTE # 61 -PORT # 8 -BYTE # 62 -PORT # 8 -BYTE # 63 -PORT # 8 -BYTE # 64 -PORT # 8 -BYTE # 65 -PORT # 8 -BYTE # 66 -PORT # 8 -BYTE # 67 -PORT # 8 -BYTE # 68 -PORT # 8 -BYTE # 69 -PORT # 8 -BYTE # 70 -PORT # 8 -BYTE # 71 -PORT # 8 -BYTE # 72 -PORT # 8 -BYTE # 73 -PORT # 8 -BYTE # 74 -PORT # 8 -BYTE # 75 -PORT # 8 -BYTE # 76 -PORT # 8 -BYTE # 77 -PORT # 8 -BYTE # 78 -PORT # 8 -BYTE # 79 -PORT # 8 -BYTE # 80 -PORT # 8 -BYTE # 81 -PORT # 8 -BYTE # 82 -PORT # 8 -BYTE # 83 -PORT # 8 -BYTE # 84 -PORT # 8 -BYTE # 85 -PORT # 8 -BYTE # 86 -PORT # 8 -BYTE # 87 -PORT # 8 -BYTE # 88 -PORT # 8 -BYTE # 89 -PORT # 8 -BYTE # 90 -PORT # 8 -BYTE # 91 -PORT # 8 -BYTE # 92 -PORT # 8 -BYTE # 93 -PORT # 8 -BYTE # 94 -PORT # 8 -BYTE # 95 -PORT # 8 -BYTE # 96 -PORT # 8 -BYTE # 97 -PORT # 8 -BYTE # 98 -PORT # 8 -BYTE # 99 -PORT # 8 -BYTE # 100 -PORT # 8 -BYTE # 101 -PORT # 8 -BYTE # 102 -PORT # 8 -BYTE # 103 -PORT # 8 -BYTE # 104 -PORT # 8 -BYTE # 105 -PORT # 8 -BYTE # 106 -PORT # 8 -BYTE # 107 -PORT # 8 -BYTE # 108 -PORT # 8 -BYTE # 109 -PORT # 8 -BYTE # 110 -PORT # 8 -BYTE # 111 -PORT # 8 -BYTE # 112 -PORT # 8 -BYTE # 113 -PORT # 8 -BYTE # 114 -PORT # 8 -BYTE # 115 -PORT # 8 -BYTE # 116 -PORT # 8 -BYTE # 117 -PORT # 8 -BYTE # 118 -PORT # 8 -BYTE # 119 -PORT # 8 -BYTE # 120 -PORT # 8 -BYTE # 121 -PORT # 8 -BYTE # 122 -PORT # 8 -BYTE # 123 -PORT # 8 -BYTE # 124 -PORT # 8 -BYTE # 125 -PORT # 8 -BYTE # 126 -PORT # 8 -BYTE # 127 -PORT # 8 -BYTE # 128 -PORT # 8 -BYTE # 129 -PORT # 8 -BYTE # 130 -PORT # 8 -BYTE # 131 -PORT # 8 -BYTE # 132 -PORT # 8 -BYTE # 133 -PORT # 8 -BYTE # 134 -PORT # 8 -BYTE # 135 -PORT # 8 -BYTE # 136 -PORT # 8 -BYTE # 137 -PORT # 8 -BYTE # 138 -PORT # 8 -BYTE # 139 -PORT # 8 -BYTE # 140 -PORT # 8 -BYTE # 141 -PORT # 8 -BYTE # 142 -PORT # 8 -BYTE # 143 -PORT # 8 -BYTE # 144 -PORT # 8 -BYTE # 145 -PORT # 8 -BYTE # 146 -PORT # 8 -BYTE # 147 -PORT # 8 -BYTE # 148 -PORT # 8 -BYTE # 149 -PORT # 8 -BYTE # 150 -PORT # 8 -BYTE # 151 -PORT # 8 -BYTE # 152 -PORT # 8 -BYTE # 153 -PORT # 8 -BYTE # 154 -PORT # 8 -BYTE # 155 -PORT # 8 -BYTE # 156 -PORT # 8 -BYTE # 157 -PORT # 8 -BYTE # 158 -PORT # 8 -BYTE # 159 -PORT # 8 -BYTE # 160 -PORT # 8 -BYTE # 161 -PORT # 8 -BYTE # 162 -PORT # 8 -BYTE # 163 -PORT # 8 -BYTE # 164 -PORT # 8 -BYTE # 165 -PORT # 8 -BYTE # 166 -PORT # 8 -BYTE # 167 -PORT # 8 -BYTE # 168 -PORT # 8 -BYTE # 169 -PORT # 8 -BYTE # 170 -PORT # 8 -BYTE # 171 -PORT # 8 -BYTE # 172 -PORT # 8 -BYTE # 173 -PORT # 8 -BYTE # 174 -PORT # 8 -BYTE # 175 -PORT # 8 -BYTE # 176 -PORT # 8 -BYTE # 177 -PORT # 8 -BYTE # 178 -PORT # 8 -BYTE # 179 -PORT # 8 -BYTE # 180 -PORT # 8 -BYTE # 181 -PORT # 8 -BYTE # 182 -PORT # 8 -BYTE # 183 -PORT # 8 -BYTE # 184 -PORT # 8 -BYTE # 185 -PORT # 8 -BYTE # 186 -PORT # 8 -BYTE # 187 -PORT # 8 -BYTE # 188 -PORT # 8 -BYTE # 189 -PORT # 8 -BYTE # 190 -PORT # 8 -BYTE # 191 -PORT # 8 -BYTE # 192 -PORT # 8 -BYTE # 193 -PORT # 8 -BYTE # 194 -PORT # 8 -BYTE # 195 -PORT # 8 -BYTE # 196 -PORT # 8 -BYTE # 197 -PORT # 8 -BYTE # 198 -PORT # 8 -BYTE # 199 -PORT # 8 -BYTE # 200 -PORT # 8 -BYTE # 201 -PORT # 8 -BYTE # 202 -PORT # 8 -BYTE # 203 -PORT # 8 -BYTE # 204 -PORT # 8 -BYTE # 205 -PORT # 8 -BYTE # 206 -PORT # 8 -BYTE # 207 -PORT # 8 -BYTE # 208 -PORT # 8 -BYTE # 209 -PORT # 8 -BYTE # 210 -PORT # 8 -BYTE # 211 -PORT # 8 -BYTE # 212 -PORT # 8 -BYTE # 213 -PORT # 8 -BYTE # 214 -PORT # 8 -BYTE # 215 -PORT # 8 -BYTE # 216 -PORT # 8 -BYTE # 217 -PORT # 8 -BYTE # 218 -PORT # 8 -BYTE # 219 -PORT # 8 -BYTE # 220 -PORT # 8 -BYTE # 221 -PORT # 8 -BYTE # 222 -PORT # 8 -BYTE # 223 -PORT # 8 -BYTE # 224 -PORT # 8 -BYTE # 225 -PORT # 8 -BYTE # 226 -PORT # 8 -BYTE # 227 -PORT # 8 -BYTE # 228 -PORT # 8 -BYTE # 229 -PORT # 8 -BYTE # 230 -PORT # 8 -BYTE # 231 -PORT # 8 -BYTE # 232 -PORT # 8 -BYTE # 233 -PORT # 8 -BYTE # 234 -PORT # 8 -BYTE # 235 -PORT # 8 -BYTE # 236 -PORT # 8 -BYTE # 237 -PORT # 8 -BYTE # 238 -PORT # 8 -BYTE # 239 -PORT # 8 -BYTE # 240 -PORT # 8 -BYTE # 241 -PORT # 8 -BYTE # 242 -PORT # 8 -BYTE # 243 -PORT # 8 -BYTE # 244 -PORT # 8 -BYTE # 245 -PORT # 8 -BYTE # 246 -PORT # 8 -BYTE # 247 -PORT # 8 -BYTE # 248 -PORT # 8 -BYTE # 249 -PORT # 8 -BYTE # 250 -PORT # 8 -BYTE # 251 -PORT # 8 -BYTE # 252 -PORT # 8 -BYTE # 253 -PORT # 8 -BYTE # 254 -PORT # 8 -BYTE # 255 -PORT # 9 -BYTE # 0 -PORT # 9 -BYTE # 1 -PORT # 9 -BYTE # 2 -PORT # 9 -BYTE # 3 -PORT # 9 -BYTE # 4 -PORT # 9 -BYTE # 5 -PORT # 9 -BYTE # 6 -PORT # 9 -BYTE # 7 -PORT # 9 -BYTE # 8 -PORT # 9 -BYTE # 9 -PORT # 9 -BYTE # 10 -PORT # 9 -BYTE # 11 -PORT # 9 -BYTE # 12 -PORT # 9 -BYTE # 13 -PORT # 9 -BYTE # 14 -PORT # 9 -BYTE # 15 -PORT # 9 -BYTE # 16 -PORT # 9 -BYTE # 17 -PORT # 9 -BYTE # 18 -PORT # 9 -BYTE # 19 -PORT # 9 -BYTE # 20 -PORT # 9 -BYTE # 21 -PORT # 9 -BYTE # 22 -PORT # 9 -BYTE # 23 -PORT # 9 -BYTE # 24 -PORT # 9 -BYTE # 25 -PORT # 9 -BYTE # 26 -PORT # 9 -BYTE # 27 -PORT # 9 -BYTE # 28 -PORT # 9 -BYTE # 29 -PORT # 9 -BYTE # 30 -PORT # 9 -BYTE # 31 -PORT # 9 -BYTE # 32 -PORT # 9 -BYTE # 33 -PORT # 9 -BYTE # 34 -PORT # 9 -BYTE # 35 -PORT # 9 -BYTE # 36 -PORT # 9 -BYTE # 37 -PORT # 9 -BYTE # 38 -PORT # 9 -BYTE # 39 -PORT # 9 -BYTE # 40 -PORT # 9 -BYTE # 41 -PORT # 9 -BYTE # 42 -PORT # 9 -BYTE # 43 -PORT # 9 -BYTE # 44 -PORT # 9 -BYTE # 45 -PORT # 9 -BYTE # 46 -PORT # 9 -BYTE # 47 -PORT # 9 -BYTE # 48 -PORT # 9 -BYTE # 49 -PORT # 9 -BYTE # 50 -PORT # 9 -BYTE # 51 -PORT # 9 -BYTE # 52 -PORT # 9 -BYTE # 53 -PORT # 9 -BYTE # 54 -PORT # 9 -BYTE # 55 -PORT # 9 -BYTE # 56 -PORT # 9 -BYTE # 57 -PORT # 9 -BYTE # 58 -PORT # 9 -BYTE # 59 -PORT # 9 -BYTE # 60 -PORT # 9 -BYTE # 61 -PORT # 9 -BYTE # 62 -PORT # 9 -BYTE # 63 -PORT # 9 -BYTE # 64 -PORT # 9 -BYTE # 65 -PORT # 9 -BYTE # 66 -PORT # 9 -BYTE # 67 -PORT # 9 -BYTE # 68 -PORT # 9 -BYTE # 69 -PORT # 9 -BYTE # 70 -PORT # 9 -BYTE # 71 -PORT # 9 -BYTE # 72 -PORT # 9 -BYTE # 73 -PORT # 9 -BYTE # 74 -PORT # 9 -BYTE # 75 -PORT # 9 -BYTE # 76 -PORT # 9 -BYTE # 77 -PORT # 9 -BYTE # 78 -PORT # 9 -BYTE # 79 -PORT # 9 -BYTE # 80 -PORT # 9 -BYTE # 81 -PORT # 9 -BYTE # 82 -PORT # 9 -BYTE # 83 -PORT # 9 -BYTE # 84 -PORT # 9 -BYTE # 85 -PORT # 9 -BYTE # 86 -PORT # 9 -BYTE # 87 -PORT # 9 -BYTE # 88 -PORT # 9 -BYTE # 89 -PORT # 9 -BYTE # 90 -PORT # 9 -BYTE # 91 -PORT # 9 -BYTE # 92 -PORT # 9 -BYTE # 93 -PORT # 9 -BYTE # 94 -PORT # 9 -BYTE # 95 -PORT # 9 -BYTE # 96 -PORT # 9 -BYTE # 97 -PORT # 9 -BYTE # 98 -PORT # 9 -BYTE # 99 -PORT # 9 -BYTE # 100 -PORT # 9 -BYTE # 101 -PORT # 9 -BYTE # 102 -PORT # 9 -BYTE # 103 -PORT # 9 -BYTE # 104 -PORT # 9 -BYTE # 105 -PORT # 9 -BYTE # 106 -PORT # 9 -BYTE # 107 -PORT # 9 -BYTE # 108 -PORT # 9 -BYTE # 109 -PORT # 9 -BYTE # 110 -PORT # 9 -BYTE # 111 -PORT # 9 -BYTE # 112 -PORT # 9 -BYTE # 113 -PORT # 9 -BYTE # 114 -PORT # 9 -BYTE # 115 -PORT # 9 -BYTE # 116 -PORT # 9 -BYTE # 117 -PORT # 9 -BYTE # 118 -PORT # 9 -BYTE # 119 -PORT # 9 -BYTE # 120 -PORT # 9 -BYTE # 121 -PORT # 9 -BYTE # 122 -PORT # 9 -BYTE # 123 -PORT # 9 -BYTE # 124 -PORT # 9 -BYTE # 125 -PORT # 9 -BYTE # 126 -PORT # 9 -BYTE # 127 -PORT # 9 -BYTE # 128 -PORT # 9 -BYTE # 129 -PORT # 9 -BYTE # 130 -PORT # 9 -BYTE # 131 -PORT # 9 -BYTE # 132 -PORT # 9 -BYTE # 133 -PORT # 9 -BYTE # 134 -PORT # 9 -BYTE # 135 -PORT # 9 -BYTE # 136 -PORT # 9 -BYTE # 137 -PORT # 9 -BYTE # 138 -PORT # 9 -BYTE # 139 -PORT # 9 -BYTE # 140 -PORT # 9 -BYTE # 141 -PORT # 9 -BYTE # 142 -PORT # 9 -BYTE # 143 -PORT # 9 -BYTE # 144 -PORT # 9 -BYTE # 145 -PORT # 9 -BYTE # 146 -PORT # 9 -BYTE # 147 -PORT # 9 -BYTE # 148 -PORT # 9 -BYTE # 149 -PORT # 9 -BYTE # 150 -PORT # 9 -BYTE # 151 -PORT # 9 -BYTE # 152 -PORT # 9 -BYTE # 153 -PORT # 9 -BYTE # 154 -PORT # 9 -BYTE # 155 -PORT # 9 -BYTE # 156 -PORT # 9 -BYTE # 157 -PORT # 9 -BYTE # 158 -PORT # 9 -BYTE # 159 -PORT # 9 -BYTE # 160 -PORT # 9 -BYTE # 161 -PORT # 9 -BYTE # 162 -PORT # 9 -BYTE # 163 -PORT # 9 -BYTE # 164 -PORT # 9 -BYTE # 165 -PORT # 9 -BYTE # 166 -PORT # 9 -BYTE # 167 -PORT # 9 -BYTE # 168 -PORT # 9 -BYTE # 169 -PORT # 9 -BYTE # 170 -PORT # 9 -BYTE # 171 -PORT # 9 -BYTE # 172 -PORT # 9 -BYTE # 173 -PORT # 9 -BYTE # 174 -PORT # 9 -BYTE # 175 -PORT # 9 -BYTE # 176 -PORT # 9 -BYTE # 177 -PORT # 9 -BYTE # 178 -PORT # 9 -BYTE # 179 -PORT # 9 -BYTE # 180 -PORT # 9 -BYTE # 181 -PORT # 9 -BYTE # 182 -PORT # 9 -BYTE # 183 -PORT # 9 -BYTE # 184 -PORT # 9 -BYTE # 185 -PORT # 9 -BYTE # 186 -PORT # 9 -BYTE # 187 -PORT # 9 -BYTE # 188 -PORT # 9 -BYTE # 189 -PORT # 9 -BYTE # 190 -PORT # 9 -BYTE # 191 -PORT # 9 -BYTE # 192 -PORT # 9 -BYTE # 193 -PORT # 9 -BYTE # 194 -PORT # 9 -BYTE # 195 -PORT # 9 -BYTE # 196 -PORT # 9 -BYTE # 197 -PORT # 9 -BYTE # 198 -PORT # 9 -BYTE # 199 -PORT # 9 -BYTE # 200 -PORT # 9 -BYTE # 201 -PORT # 9 -BYTE # 202 -PORT # 9 -BYTE # 203 -PORT # 9 -BYTE # 204 -PORT # 9 -BYTE # 205 -PORT # 9 -BYTE # 206 -PORT # 9 -BYTE # 207 -PORT # 9 -BYTE # 208 -PORT # 9 -BYTE # 209 -PORT # 9 -BYTE # 210 -PORT # 9 -BYTE # 211 -PORT # 9 -BYTE # 212 -PORT # 9 -BYTE # 213 -PORT # 9 -BYTE # 214 -PORT # 9 -BYTE # 215 -PORT # 9 -BYTE # 216 -PORT # 9 -BYTE # 217 -PORT # 9 -BYTE # 218 -PORT # 9 -BYTE # 219 -PORT # 9 -BYTE # 220 -PORT # 9 -BYTE # 221 -PORT # 9 -BYTE # 222 -PORT # 9 -BYTE # 223 -PORT # 9 -BYTE # 224 -PORT # 9 -BYTE # 225 -PORT # 9 -BYTE # 226 -PORT # 9 -BYTE # 227 -PORT # 9 -BYTE # 228 -PORT # 9 -BYTE # 229 -PORT # 9 -BYTE # 230 -PORT # 9 -BYTE # 231 -PORT # 9 -BYTE # 232 -PORT # 9 -BYTE # 233 -PORT # 9 -BYTE # 234 -PORT # 9 -BYTE # 235 -PORT # 9 -BYTE # 236 -PORT # 9 -BYTE # 237 -PORT # 9 -BYTE # 238 -PORT # 9 -BYTE # 239 -PORT # 9 -BYTE # 240 -PORT # 9 -BYTE # 241 -PORT # 9 -BYTE # 242 -PORT # 9 -BYTE # 243 -PORT # 9 -BYTE # 244 -PORT # 9 -BYTE # 245 -PORT # 9 -BYTE # 246 -PORT # 9 -BYTE # 247 -PORT # 9 -BYTE # 248 -PORT # 9 -BYTE # 249 -PORT # 9 -BYTE # 250 -PORT # 9 -BYTE # 251 -PORT # 9 -BYTE # 252 -PORT # 9 -BYTE # 253 -PORT # 9 -BYTE # 254 -PORT # 9 -BYTE # 255 -PORT # 10 -BYTE # 0 -PORT # 10 -BYTE # 1 -PORT # 10 -BYTE # 2 -PORT # 10 -BYTE # 3 -PORT # 10 -BYTE # 4 -PORT # 10 -BYTE # 5 -PORT # 10 -BYTE # 6 -PORT # 10 -BYTE # 7 -PORT # 10 -BYTE # 8 -PORT # 10 -BYTE # 9 -PORT # 10 -BYTE # 10 -PORT # 10 -BYTE # 11 -PORT # 10 -BYTE # 12 -PORT # 10 -BYTE # 13 -PORT # 10 -BYTE # 14 -PORT # 10 -BYTE # 15 -PORT # 10 -BYTE # 16 -PORT # 10 -BYTE # 17 -PORT # 10 -BYTE # 18 -PORT # 10 -BYTE # 19 -PORT # 10 -BYTE # 20 -PORT # 10 -BYTE # 21 -PORT # 10 -BYTE # 22 -PORT # 10 -BYTE # 23 -PORT # 10 -BYTE # 24 -PORT # 10 -BYTE # 25 -PORT # 10 -BYTE # 26 -PORT # 10 -BYTE # 27 -PORT # 10 -BYTE # 28 -PORT # 10 -BYTE # 29 -PORT # 10 -BYTE # 30 -PORT # 10 -BYTE # 31 -PORT # 10 -BYTE # 32 -PORT # 10 -BYTE # 33 -PORT # 10 -BYTE # 34 -PORT # 10 -BYTE # 35 -PORT # 10 -BYTE # 36 -PORT # 10 -BYTE # 37 -PORT # 10 -BYTE # 38 -PORT # 10 -BYTE # 39 -PORT # 10 -BYTE # 40 -PORT # 10 -BYTE # 41 -PORT # 10 -BYTE # 42 -PORT # 10 -BYTE # 43 -PORT # 10 -BYTE # 44 -PORT # 10 -BYTE # 45 -PORT # 10 -BYTE # 46 -PORT # 10 -BYTE # 47 -PORT # 10 -BYTE # 48 -PORT # 10 -BYTE # 49 -PORT # 10 -BYTE # 50 -PORT # 10 -BYTE # 51 -PORT # 10 -BYTE # 52 -PORT # 10 -BYTE # 53 -PORT # 10 -BYTE # 54 -PORT # 10 -BYTE # 55 -PORT # 10 -BYTE # 56 -PORT # 10 -BYTE # 57 -PORT # 10 -BYTE # 58 -PORT # 10 -BYTE # 59 -PORT # 10 -BYTE # 60 -PORT # 10 -BYTE # 61 -PORT # 10 -BYTE # 62 -PORT # 10 -BYTE # 63 -PORT # 10 -BYTE # 64 -PORT # 10 -BYTE # 65 -PORT # 10 -BYTE # 66 -PORT # 10 -BYTE # 67 -PORT # 10 -BYTE # 68 -PORT # 10 -BYTE # 69 -PORT # 10 -BYTE # 70 -PORT # 10 -BYTE # 71 -PORT # 10 -BYTE # 72 -PORT # 10 -BYTE # 73 -PORT # 10 -BYTE # 74 -PORT # 10 -BYTE # 75 -PORT # 10 -BYTE # 76 -PORT # 10 -BYTE # 77 -PORT # 10 -BYTE # 78 -PORT # 10 -BYTE # 79 -PORT # 10 -BYTE # 80 -PORT # 10 -BYTE # 81 -PORT # 10 -BYTE # 82 -PORT # 10 -BYTE # 83 -PORT # 10 -BYTE # 84 -PORT # 10 -BYTE # 85 -PORT # 10 -BYTE # 86 -PORT # 10 -BYTE # 87 -PORT # 10 -BYTE # 88 -PORT # 10 -BYTE # 89 -PORT # 10 -BYTE # 90 -PORT # 10 -BYTE # 91 -PORT # 10 -BYTE # 92 -PORT # 10 -BYTE # 93 -PORT # 10 -BYTE # 94 -PORT # 10 -BYTE # 95 -PORT # 10 -BYTE # 96 -PORT # 10 -BYTE # 97 -PORT # 10 -BYTE # 98 -PORT # 10 -BYTE # 99 -PORT # 10 -BYTE # 100 -PORT # 10 -BYTE # 101 -PORT # 10 -BYTE # 102 -PORT # 10 -BYTE # 103 -PORT # 10 -BYTE # 104 -PORT # 10 -BYTE # 105 -PORT # 10 -BYTE # 106 -PORT # 10 -BYTE # 107 -PORT # 10 -BYTE # 108 -PORT # 10 -BYTE # 109 -PORT # 10 -BYTE # 110 -PORT # 10 -BYTE # 111 -PORT # 10 -BYTE # 112 -PORT # 10 -BYTE # 113 -PORT # 10 -BYTE # 114 -PORT # 10 -BYTE # 115 -PORT # 10 -BYTE # 116 -PORT # 10 -BYTE # 117 -PORT # 10 -BYTE # 118 -PORT # 10 -BYTE # 119 -PORT # 10 -BYTE # 120 -PORT # 10 -BYTE # 121 -PORT # 10 -BYTE # 122 -PORT # 10 -BYTE # 123 -PORT # 10 -BYTE # 124 -PORT # 10 -BYTE # 125 -PORT # 10 -BYTE # 126 -PORT # 10 -BYTE # 127 -PORT # 10 -BYTE # 128 -PORT # 10 -BYTE # 129 -PORT # 10 -BYTE # 130 -PORT # 10 -BYTE # 131 -PORT # 10 -BYTE # 132 -PORT # 10 -BYTE # 133 -PORT # 10 -BYTE # 134 -PORT # 10 -BYTE # 135 -PORT # 10 -BYTE # 136 -PORT # 10 -BYTE # 137 -PORT # 10 -BYTE # 138 -PORT # 10 -BYTE # 139 -PORT # 10 -BYTE # 140 -PORT # 10 -BYTE # 141 -PORT # 10 -BYTE # 142 -PORT # 10 -BYTE # 143 -PORT # 10 -BYTE # 144 -PORT # 10 -BYTE # 145 -PORT # 10 -BYTE # 146 -PORT # 10 -BYTE # 147 -PORT # 10 -BYTE # 148 -PORT # 10 -BYTE # 149 -PORT # 10 -BYTE # 150 -PORT # 10 -BYTE # 151 -PORT # 10 -BYTE # 152 -PORT # 10 -BYTE # 153 -PORT # 10 -BYTE # 154 -PORT # 10 -BYTE # 155 -PORT # 10 -BYTE # 156 -PORT # 10 -BYTE # 157 -PORT # 10 -BYTE # 158 -PORT # 10 -BYTE # 159 -PORT # 10 -BYTE # 160 -PORT # 10 -BYTE # 161 -PORT # 10 -BYTE # 162 -PORT # 10 -BYTE # 163 -PORT # 10 -BYTE # 164 -PORT # 10 -BYTE # 165 -PORT # 10 -BYTE # 166 -PORT # 10 -BYTE # 167 -PORT # 10 -BYTE # 168 -PORT # 10 -BYTE # 169 -PORT # 10 -BYTE # 170 -PORT # 10 -BYTE # 171 -PORT # 10 -BYTE # 172 -PORT # 10 -BYTE # 173 -PORT # 10 -BYTE # 174 -PORT # 10 -BYTE # 175 -PORT # 10 -BYTE # 176 -PORT # 10 -BYTE # 177 -PORT # 10 -BYTE # 178 -PORT # 10 -BYTE # 179 -PORT # 10 -BYTE # 180 -PORT # 10 -BYTE # 181 -PORT # 10 -BYTE # 182 -PORT # 10 -BYTE # 183 -PORT # 10 -BYTE # 184 -PORT # 10 -BYTE # 185 -PORT # 10 -BYTE # 186 -PORT # 10 -BYTE # 187 -PORT # 10 -BYTE # 188 -PORT # 10 -BYTE # 189 -PORT # 10 -BYTE # 190 -PORT # 10 -BYTE # 191 -PORT # 10 -BYTE # 192 -PORT # 10 -BYTE # 193 -PORT # 10 -BYTE # 194 -PORT # 10 -BYTE # 195 -PORT # 10 -BYTE # 196 -PORT # 10 -BYTE # 197 -PORT # 10 -BYTE # 198 -PORT # 10 -BYTE # 199 -PORT # 10 -BYTE # 200 -PORT # 10 -BYTE # 201 -PORT # 10 -BYTE # 202 -PORT # 10 -BYTE # 203 -PORT # 10 -BYTE # 204 -PORT # 10 -BYTE # 205 -PORT # 10 -BYTE # 206 -PORT # 10 -BYTE # 207 -PORT # 10 -BYTE # 208 -PORT # 10 -BYTE # 209 -PORT # 10 -BYTE # 210 -PORT # 10 -BYTE # 211 -PORT # 10 -BYTE # 212 -PORT # 10 -BYTE # 213 -PORT # 10 -BYTE # 214 -PORT # 10 -BYTE # 215 -PORT # 10 -BYTE # 216 -PORT # 10 -BYTE # 217 -PORT # 10 -BYTE # 218 -PORT # 10 -BYTE # 219 -PORT # 10 -BYTE # 220 -PORT # 10 -BYTE # 221 -PORT # 10 -BYTE # 222 -PORT # 10 -BYTE # 223 -PORT # 10 -BYTE # 224 -PORT # 10 -BYTE # 225 -PORT # 10 -BYTE # 226 -PORT # 10 -BYTE # 227 -PORT # 10 -BYTE # 228 -PORT # 10 -BYTE # 229 -PORT # 10 -BYTE # 230 -PORT # 10 -BYTE # 231 -PORT # 10 -BYTE # 232 -PORT # 10 -BYTE # 233 -PORT # 10 -BYTE # 234 -PORT # 10 -BYTE # 235 -PORT # 10 -BYTE # 236 -PORT # 10 -BYTE # 237 -PORT # 10 -BYTE # 238 -PORT # 10 -BYTE # 239 -PORT # 10 -BYTE # 240 -PORT # 10 -BYTE # 241 -PORT # 10 -BYTE # 242 -PORT # 10 -BYTE # 243 -PORT # 10 -BYTE # 244 -PORT # 10 -BYTE # 245 -PORT # 10 -BYTE # 246 -PORT # 10 -BYTE # 247 -PORT # 10 -BYTE # 248 -PORT # 10 -BYTE # 249 -PORT # 10 -BYTE # 250 -PORT # 10 -BYTE # 251 -PORT # 10 -BYTE # 252 -PORT # 10 -BYTE # 253 -PORT # 10 -BYTE # 254 -PORT # 10 -BYTE # 255 -PORT # 11 -BYTE # 0 -PORT # 11 -BYTE # 1 -PORT # 11 -BYTE # 2 -PORT # 11 -BYTE # 3 -PORT # 11 -BYTE # 4 -PORT # 11 -BYTE # 5 -PORT # 11 -BYTE # 6 -PORT # 11 -BYTE # 7 -PORT # 11 -BYTE # 8 -PORT # 11 -BYTE # 9 -PORT # 11 -BYTE # 10 -PORT # 11 -BYTE # 11 -PORT # 11 -BYTE # 12 -PORT # 11 -BYTE # 13 -PORT # 11 -BYTE # 14 -PORT # 11 -BYTE # 15 -PORT # 11 -BYTE # 16 -PORT # 11 -BYTE # 17 -PORT # 11 -BYTE # 18 -PORT # 11 -BYTE # 19 -PORT # 11 -BYTE # 20 -PORT # 11 -BYTE # 21 -PORT # 11 -BYTE # 22 -PORT # 11 -BYTE # 23 -PORT # 11 -BYTE # 24 -PORT # 11 -BYTE # 25 -PORT # 11 -BYTE # 26 -PORT # 11 -BYTE # 27 -PORT # 11 -BYTE # 28 -PORT # 11 -BYTE # 29 -PORT # 11 -BYTE # 30 -PORT # 11 -BYTE # 31 -PORT # 11 -BYTE # 32 -PORT # 11 -BYTE # 33 -PORT # 11 -BYTE # 34 -PORT # 11 -BYTE # 35 -PORT # 11 -BYTE # 36 -PORT # 11 -BYTE # 37 -PORT # 11 -BYTE # 38 -PORT # 11 -BYTE # 39 -PORT # 11 -BYTE # 40 -PORT # 11 -BYTE # 41 -PORT # 11 -BYTE # 42 -PORT # 11 -BYTE # 43 -PORT # 11 -BYTE # 44 -PORT # 11 -BYTE # 45 -PORT # 11 -BYTE # 46 -PORT # 11 -BYTE # 47 -PORT # 11 -BYTE # 48 -PORT # 11 -BYTE # 49 -PORT # 11 -BYTE # 50 -PORT # 11 -BYTE # 51 -PORT # 11 -BYTE # 52 -PORT # 11 -BYTE # 53 -PORT # 11 -BYTE # 54 -PORT # 11 -BYTE # 55 -PORT # 11 -BYTE # 56 -PORT # 11 -BYTE # 57 -PORT # 11 -BYTE # 58 -PORT # 11 -BYTE # 59 -PORT # 11 -BYTE # 60 -PORT # 11 -BYTE # 61 -PORT # 11 -BYTE # 62 -PORT # 11 -BYTE # 63 -PORT # 11 -BYTE # 64 -PORT # 11 -BYTE # 65 -PORT # 11 -BYTE # 66 -PORT # 11 -BYTE # 67 -PORT # 11 -BYTE # 68 -PORT # 11 -BYTE # 69 -PORT # 11 -BYTE # 70 -PORT # 11 -BYTE # 71 -PORT # 11 -BYTE # 72 -PORT # 11 -BYTE # 73 -PORT # 11 -BYTE # 74 -PORT # 11 -BYTE # 75 -PORT # 11 -BYTE # 76 -PORT # 11 -BYTE # 77 -PORT # 11 -BYTE # 78 -PORT # 11 -BYTE # 79 -PORT # 11 -BYTE # 80 -PORT # 11 -BYTE # 81 -PORT # 11 -BYTE # 82 -PORT # 11 -BYTE # 83 -PORT # 11 -BYTE # 84 -PORT # 11 -BYTE # 85 -PORT # 11 -BYTE # 86 -PORT # 11 -BYTE # 87 -PORT # 11 -BYTE # 88 -PORT # 11 -BYTE # 89 -PORT # 11 -BYTE # 90 -PORT # 11 -BYTE # 91 -PORT # 11 -BYTE # 92 -PORT # 11 -BYTE # 93 -PORT # 11 -BYTE # 94 -PORT # 11 -BYTE # 95 -PORT # 11 -BYTE # 96 -PORT # 11 -BYTE # 97 -PORT # 11 -BYTE # 98 -PORT # 11 -BYTE # 99 -PORT # 11 -BYTE # 100 -PORT # 11 -BYTE # 101 -PORT # 11 -BYTE # 102 -PORT # 11 -BYTE # 103 -PORT # 11 -BYTE # 104 -PORT # 11 -BYTE # 105 -PORT # 11 -BYTE # 106 -PORT # 11 -BYTE # 107 -PORT # 11 -BYTE # 108 -PORT # 11 -BYTE # 109 -PORT # 11 -BYTE # 110 -PORT # 11 -BYTE # 111 -PORT # 11 -BYTE # 112 -PORT # 11 -BYTE # 113 -PORT # 11 -BYTE # 114 -PORT # 11 -BYTE # 115 -PORT # 11 -BYTE # 116 -PORT # 11 -BYTE # 117 -PORT # 11 -BYTE # 118 -PORT # 11 -BYTE # 119 -PORT # 11 -BYTE # 120 -PORT # 11 -BYTE # 121 -PORT # 11 -BYTE # 122 -PORT # 11 -BYTE # 123 -PORT # 11 -BYTE # 124 -PORT # 11 -BYTE # 125 -PORT # 11 -BYTE # 126 -PORT # 11 -BYTE # 127 -PORT # 11 -BYTE # 128 -PORT # 11 -BYTE # 129 -PORT # 11 -BYTE # 130 -PORT # 11 -BYTE # 131 -PORT # 11 -BYTE # 132 -PORT # 11 -BYTE # 133 -PORT # 11 -BYTE # 134 -PORT # 11 -BYTE # 135 -PORT # 11 -BYTE # 136 -PORT # 11 -BYTE # 137 -PORT # 11 -BYTE # 138 -PORT # 11 -BYTE # 139 -PORT # 11 -BYTE # 140 -PORT # 11 -BYTE # 141 -PORT # 11 -BYTE # 142 -PORT # 11 -BYTE # 143 -PORT # 11 -BYTE # 144 -PORT # 11 -BYTE # 145 -PORT # 11 -BYTE # 146 -PORT # 11 -BYTE # 147 -PORT # 11 -BYTE # 148 -PORT # 11 -BYTE # 149 -PORT # 11 -BYTE # 150 -PORT # 11 -BYTE # 151 -PORT # 11 -BYTE # 152 -PORT # 11 -BYTE # 153 -PORT # 11 -BYTE # 154 -PORT # 11 -BYTE # 155 -PORT # 11 -BYTE # 156 -PORT # 11 -BYTE # 157 -PORT # 11 -BYTE # 158 -PORT # 11 -BYTE # 159 -PORT # 11 -BYTE # 160 -PORT # 11 -BYTE # 161 -PORT # 11 -BYTE # 162 -PORT # 11 -BYTE # 163 -PORT # 11 -BYTE # 164 -PORT # 11 -BYTE # 165 -PORT # 11 -BYTE # 166 -PORT # 11 -BYTE # 167 -PORT # 11 -BYTE # 168 -PORT # 11 -BYTE # 169 -PORT # 11 -BYTE # 170 -PORT # 11 -BYTE # 171 -PORT # 11 -BYTE # 172 -PORT # 11 -BYTE # 173 -PORT # 11 -BYTE # 174 -PORT # 11 -BYTE # 175 -PORT # 11 -BYTE # 176 -PORT # 11 -BYTE # 177 -PORT # 11 -BYTE # 178 -PORT # 11 -BYTE # 179 -PORT # 11 -BYTE # 180 -PORT # 11 -BYTE # 181 -PORT # 11 -BYTE # 182 -PORT # 11 -BYTE # 183 -PORT # 11 -BYTE # 184 -PORT # 11 -BYTE # 185 -PORT # 11 -BYTE # 186 -PORT # 11 -BYTE # 187 -PORT # 11 -BYTE # 188 -PORT # 11 -BYTE # 189 -PORT # 11 -BYTE # 190 -PORT # 11 -BYTE # 191 -PORT # 11 -BYTE # 192 -PORT # 11 -BYTE # 193 -PORT # 11 -BYTE # 194 -PORT # 11 -BYTE # 195 -PORT # 11 -BYTE # 196 -PORT # 11 -BYTE # 197 -PORT # 11 -BYTE # 198 -PORT # 11 -BYTE # 199 -PORT # 11 -BYTE # 200 -PORT # 11 -BYTE # 201 -PORT # 11 -BYTE # 202 -PORT # 11 -BYTE # 203 -PORT # 11 -BYTE # 204 -PORT # 11 -BYTE # 205 -PORT # 11 -BYTE # 206 -PORT # 11 -BYTE # 207 -PORT # 11 -BYTE # 208 -PORT # 11 -BYTE # 209 -PORT # 11 -BYTE # 210 -PORT # 11 -BYTE # 211 -PORT # 11 -BYTE # 212 -PORT # 11 -BYTE # 213 -PORT # 11 -BYTE # 214 -PORT # 11 -BYTE # 215 -PORT # 11 -BYTE # 216 -PORT # 11 -BYTE # 217 -PORT # 11 -BYTE # 218 -PORT # 11 -BYTE # 219 -PORT # 11 -BYTE # 220 -PORT # 11 -BYTE # 221 -PORT # 11 -BYTE # 222 -PORT # 11 -BYTE # 223 -PORT # 11 -BYTE # 224 -PORT # 11 -BYTE # 225 -PORT # 11 -BYTE # 226 -PORT # 11 -BYTE # 227 -PORT # 11 -BYTE # 228 -PORT # 11 -BYTE # 229 -PORT # 11 -BYTE # 230 -PORT # 11 -BYTE # 231 -PORT # 11 -BYTE # 232 -PORT # 11 -BYTE # 233 -PORT # 11 -BYTE # 234 -PORT # 11 -BYTE # 235 -PORT # 11 -BYTE # 236 -PORT # 11 -BYTE # 237 -PORT # 11 -BYTE # 238 -PORT # 11 -BYTE # 239 -PORT # 11 -BYTE # 240 -PORT # 11 -BYTE # 241 -PORT # 11 -BYTE # 242 -PORT # 11 -BYTE # 243 -PORT # 11 -BYTE # 244 -PORT # 11 -BYTE # 245 -PORT # 11 -BYTE # 246 -PORT # 11 -BYTE # 247 -PORT # 11 -BYTE # 248 -PORT # 11 -BYTE # 249 -PORT # 11 -BYTE # 250 -PORT # 11 -BYTE # 251 -PORT # 11 -BYTE # 252 -PORT # 11 -BYTE # 253 -PORT # 11 -BYTE # 254 -PORT # 11 -BYTE # 255 -PORT # 12 -BYTE # 0 -PORT # 12 -BYTE # 1 -PORT # 12 -BYTE # 2 -PORT # 12 -BYTE # 3 -PORT # 12 -BYTE # 4 -PORT # 12 -BYTE # 5 -PORT # 12 -BYTE # 6 -PORT # 12 -BYTE # 7 -PORT # 12 -BYTE # 8 -PORT # 12 -BYTE # 9 -PORT # 12 -BYTE # 10 -PORT # 12 -BYTE # 11 -PORT # 12 -BYTE # 12 -PORT # 12 -BYTE # 13 -PORT # 12 -BYTE # 14 -PORT # 12 -BYTE # 15 -PORT # 12 -BYTE # 16 -PORT # 12 -BYTE # 17 -PORT # 12 -BYTE # 18 -PORT # 12 -BYTE # 19 -PORT # 12 -BYTE # 20 -PORT # 12 -BYTE # 21 -PORT # 12 -BYTE # 22 -PORT # 12 -BYTE # 23 -PORT # 12 -BYTE # 24 -PORT # 12 -BYTE # 25 -PORT # 12 -BYTE # 26 -PORT # 12 -BYTE # 27 -PORT # 12 -BYTE # 28 -PORT # 12 -BYTE # 29 -PORT # 12 -BYTE # 30 -PORT # 12 -BYTE # 31 -PORT # 12 -BYTE # 32 -PORT # 12 -BYTE # 33 -PORT # 12 -BYTE # 34 -PORT # 12 -BYTE # 35 -PORT # 12 -BYTE # 36 -PORT # 12 -BYTE # 37 -PORT # 12 -BYTE # 38 -PORT # 12 -BYTE # 39 -PORT # 12 -BYTE # 40 -PORT # 12 -BYTE # 41 -PORT # 12 -BYTE # 42 -PORT # 12 -BYTE # 43 -PORT # 12 -BYTE # 44 -PORT # 12 -BYTE # 45 -PORT # 12 -BYTE # 46 -PORT # 12 -BYTE # 47 -PORT # 12 -BYTE # 48 -PORT # 12 -BYTE # 49 -PORT # 12 -BYTE # 50 -PORT # 12 -BYTE # 51 -PORT # 12 -BYTE # 52 -PORT # 12 -BYTE # 53 -PORT # 12 -BYTE # 54 -PORT # 12 -BYTE # 55 -PORT # 12 -BYTE # 56 -PORT # 12 -BYTE # 57 -PORT # 12 -BYTE # 58 -PORT # 12 -BYTE # 59 -PORT # 12 -BYTE # 60 -PORT # 12 -BYTE # 61 -PORT # 12 -BYTE # 62 -PORT # 12 -BYTE # 63 -PORT # 12 -BYTE # 64 -PORT # 12 -BYTE # 65 -PORT # 12 -BYTE # 66 -PORT # 12 -BYTE # 67 -PORT # 12 -BYTE # 68 -PORT # 12 -BYTE # 69 -PORT # 12 -BYTE # 70 -PORT # 12 -BYTE # 71 -PORT # 12 -BYTE # 72 -PORT # 12 -BYTE # 73 -PORT # 12 -BYTE # 74 -PORT # 12 -BYTE # 75 -PORT # 12 -BYTE # 76 -PORT # 12 -BYTE # 77 -PORT # 12 -BYTE # 78 -PORT # 12 -BYTE # 79 -PORT # 12 -BYTE # 80 -PORT # 12 -BYTE # 81 -PORT # 12 -BYTE # 82 -PORT # 12 -BYTE # 83 -PORT # 12 -BYTE # 84 -PORT # 12 -BYTE # 85 -PORT # 12 -BYTE # 86 -PORT # 12 -BYTE # 87 -PORT # 12 -BYTE # 88 -PORT # 12 -BYTE # 89 -PORT # 12 -BYTE # 90 -PORT # 12 -BYTE # 91 -PORT # 12 -BYTE # 92 -PORT # 12 -BYTE # 93 -PORT # 12 -BYTE # 94 -PORT # 12 -BYTE # 95 -PORT # 12 -BYTE # 96 -PORT # 12 -BYTE # 97 -PORT # 12 -BYTE # 98 -PORT # 12 -BYTE # 99 -PORT # 12 -BYTE # 100 -PORT # 12 -BYTE # 101 -PORT # 12 -BYTE # 102 -PORT # 12 -BYTE # 103 -PORT # 12 -BYTE # 104 -PORT # 12 -BYTE # 105 -PORT # 12 -BYTE # 106 -PORT # 12 -BYTE # 107 -PORT # 12 -BYTE # 108 -PORT # 12 -BYTE # 109 -PORT # 12 -BYTE # 110 -PORT # 12 -BYTE # 111 -PORT # 12 -BYTE # 112 -PORT # 12 -BYTE # 113 -PORT # 12 -BYTE # 114 -PORT # 12 -BYTE # 115 -PORT # 12 -BYTE # 116 -PORT # 12 -BYTE # 117 -PORT # 12 -BYTE # 118 -PORT # 12 -BYTE # 119 -PORT # 12 -BYTE # 120 -PORT # 12 -BYTE # 121 -PORT # 12 -BYTE # 122 -PORT # 12 -BYTE # 123 -PORT # 12 -BYTE # 124 -PORT # 12 -BYTE # 125 -PORT # 12 -BYTE # 126 -PORT # 12 -BYTE # 127 -PORT # 12 -BYTE # 128 -PORT # 12 -BYTE # 129 -PORT # 12 -BYTE # 130 -PORT # 12 -BYTE # 131 -PORT # 12 -BYTE # 132 -PORT # 12 -BYTE # 133 -PORT # 12 -BYTE # 134 -PORT # 12 -BYTE # 135 -PORT # 12 -BYTE # 136 -PORT # 12 -BYTE # 137 -PORT # 12 -BYTE # 138 -PORT # 12 -BYTE # 139 -PORT # 12 -BYTE # 140 -PORT # 12 -BYTE # 141 -PORT # 12 -BYTE # 142 -PORT # 12 -BYTE # 143 -PORT # 12 -BYTE # 144 -PORT # 12 -BYTE # 145 -PORT # 12 -BYTE # 146 -PORT # 12 -BYTE # 147 -PORT # 12 -BYTE # 148 -PORT # 12 -BYTE # 149 -PORT # 12 -BYTE # 150 -PORT # 12 -BYTE # 151 -PORT # 12 -BYTE # 152 -PORT # 12 -BYTE # 153 -PORT # 12 -BYTE # 154 -PORT # 12 -BYTE # 155 -PORT # 12 -BYTE # 156 -PORT # 12 -BYTE # 157 -PORT # 12 -BYTE # 158 -PORT # 12 -BYTE # 159 -PORT # 12 -BYTE # 160 -PORT # 12 -BYTE # 161 -PORT # 12 -BYTE # 162 -PORT # 12 -BYTE # 163 -PORT # 12 -BYTE # 164 -PORT # 12 -BYTE # 165 -PORT # 12 -BYTE # 166 -PORT # 12 -BYTE # 167 -PORT # 12 -BYTE # 168 -PORT # 12 -BYTE # 169 -PORT # 12 -BYTE # 170 -PORT # 12 -BYTE # 171 -PORT # 12 -BYTE # 172 -PORT # 12 -BYTE # 173 -PORT # 12 -BYTE # 174 -PORT # 12 -BYTE # 175 -PORT # 12 -BYTE # 176 -PORT # 12 -BYTE # 177 -PORT # 12 -BYTE # 178 -PORT # 12 -BYTE # 179 -PORT # 12 -BYTE # 180 -PORT # 12 -BYTE # 181 -PORT # 12 -BYTE # 182 -PORT # 12 -BYTE # 183 -PORT # 12 -BYTE # 184 -PORT # 12 -BYTE # 185 -PORT # 12 -BYTE # 186 -PORT # 12 -BYTE # 187 -PORT # 12 -BYTE # 188 -PORT # 12 -BYTE # 189 -PORT # 12 -BYTE # 190 -PORT # 12 -BYTE # 191 -PORT # 12 -BYTE # 192 -PORT # 12 -BYTE # 193 -PORT # 12 -BYTE # 194 -PORT # 12 -BYTE # 195 -PORT # 12 -BYTE # 196 -PORT # 12 -BYTE # 197 -PORT # 12 -BYTE # 198 -PORT # 12 -BYTE # 199 -PORT # 12 -BYTE # 200 -PORT # 12 -BYTE # 201 -PORT # 12 -BYTE # 202 -PORT # 12 -BYTE # 203 -PORT # 12 -BYTE # 204 -PORT # 12 -BYTE # 205 -PORT # 12 -BYTE # 206 -PORT # 12 -BYTE # 207 -PORT # 12 -BYTE # 208 -PORT # 12 -BYTE # 209 -PORT # 12 -BYTE # 210 -PORT # 12 -BYTE # 211 -PORT # 12 -BYTE # 212 -PORT # 12 -BYTE # 213 -PORT # 12 -BYTE # 214 -PORT # 12 -BYTE # 215 -PORT # 12 -BYTE # 216 -PORT # 12 -BYTE # 217 -PORT # 12 -BYTE # 218 -PORT # 12 -BYTE # 219 -PORT # 12 -BYTE # 220 -PORT # 12 -BYTE # 221 -PORT # 12 -BYTE # 222 -PORT # 12 -BYTE # 223 -PORT # 12 -BYTE # 224 -PORT # 12 -BYTE # 225 -PORT # 12 -BYTE # 226 -PORT # 12 -BYTE # 227 -PORT # 12 -BYTE # 228 -PORT # 12 -BYTE # 229 -PORT # 12 -BYTE # 230 -PORT # 12 -BYTE # 231 -PORT # 12 -BYTE # 232 -PORT # 12 -BYTE # 233 -PORT # 12 -BYTE # 234 -PORT # 12 -BYTE # 235 -PORT # 12 -BYTE # 236 -PORT # 12 -BYTE # 237 -PORT # 12 -BYTE # 238 -PORT # 12 -BYTE # 239 -PORT # 12 -BYTE # 240 -PORT # 12 -BYTE # 241 -PORT # 12 -BYTE # 242 -PORT # 12 -BYTE # 243 -PORT # 12 -BYTE # 244 -PORT # 12 -BYTE # 245 -PORT # 12 -BYTE # 246 -PORT # 12 -BYTE # 247 -PORT # 12 -BYTE # 248 -PORT # 12 -BYTE # 249 -PORT # 12 -BYTE # 250 -PORT # 12 -BYTE # 251 -PORT # 12 -BYTE # 252 -PORT # 12 -BYTE # 253 -PORT # 12 -BYTE # 254 -PORT # 12 -BYTE # 255 -PORT # 13 -BYTE # 0 -PORT # 13 -BYTE # 1 -PORT # 13 -BYTE # 2 -PORT # 13 -BYTE # 3 -PORT # 13 -BYTE # 4 -PORT # 13 -BYTE # 5 -PORT # 13 -BYTE # 6 -PORT # 13 -BYTE # 7 -PORT # 13 -BYTE # 8 -PORT # 13 -BYTE # 9 -PORT # 13 -BYTE # 10 -PORT # 13 -BYTE # 11 -PORT # 13 -BYTE # 12 -PORT # 13 -BYTE # 13 -PORT # 13 -BYTE # 14 -PORT # 13 -BYTE # 15 -PORT # 13 -BYTE # 16 -PORT # 13 -BYTE # 17 -PORT # 13 -BYTE # 18 -PORT # 13 -BYTE # 19 -PORT # 13 -BYTE # 20 -PORT # 13 -BYTE # 21 -PORT # 13 -BYTE # 22 -PORT # 13 -BYTE # 23 -PORT # 13 -BYTE # 24 -PORT # 13 -BYTE # 25 -PORT # 13 -BYTE # 26 -PORT # 13 -BYTE # 27 -PORT # 13 -BYTE # 28 -PORT # 13 -BYTE # 29 -PORT # 13 -BYTE # 30 -PORT # 13 -BYTE # 31 -PORT # 13 -BYTE # 32 -PORT # 13 -BYTE # 33 -PORT # 13 -BYTE # 34 -PORT # 13 -BYTE # 35 -PORT # 13 -BYTE # 36 -PORT # 13 -BYTE # 37 -PORT # 13 -BYTE # 38 -PORT # 13 -BYTE # 39 -PORT # 13 -BYTE # 40 -PORT # 13 -BYTE # 41 -PORT # 13 -BYTE # 42 -PORT # 13 -BYTE # 43 -PORT # 13 -BYTE # 44 -PORT # 13 -BYTE # 45 -PORT # 13 -BYTE # 46 -PORT # 13 -BYTE # 47 -PORT # 13 -BYTE # 48 -PORT # 13 -BYTE # 49 -PORT # 13 -BYTE # 50 -PORT # 13 -BYTE # 51 -PORT # 13 -BYTE # 52 -PORT # 13 -BYTE # 53 -PORT # 13 -BYTE # 54 -PORT # 13 -BYTE # 55 -PORT # 13 -BYTE # 56 -PORT # 13 -BYTE # 57 -PORT # 13 -BYTE # 58 -PORT # 13 -BYTE # 59 -PORT # 13 -BYTE # 60 -PORT # 13 -BYTE # 61 -PORT # 13 -BYTE # 62 -PORT # 13 -BYTE # 63 -PORT # 13 -BYTE # 64 -PORT # 13 -BYTE # 65 -PORT # 13 -BYTE # 66 -PORT # 13 -BYTE # 67 -PORT # 13 -BYTE # 68 -PORT # 13 -BYTE # 69 -PORT # 13 -BYTE # 70 -PORT # 13 -BYTE # 71 -PORT # 13 -BYTE # 72 -PORT # 13 -BYTE # 73 -PORT # 13 -BYTE # 74 -PORT # 13 -BYTE # 75 -PORT # 13 -BYTE # 76 -PORT # 13 -BYTE # 77 -PORT # 13 -BYTE # 78 -PORT # 13 -BYTE # 79 -PORT # 13 -BYTE # 80 -PORT # 13 -BYTE # 81 -PORT # 13 -BYTE # 82 -PORT # 13 -BYTE # 83 -PORT # 13 -BYTE # 84 -PORT # 13 -BYTE # 85 -PORT # 13 -BYTE # 86 -PORT # 13 -BYTE # 87 -PORT # 13 -BYTE # 88 -PORT # 13 -BYTE # 89 -PORT # 13 -BYTE # 90 -PORT # 13 -BYTE # 91 -PORT # 13 -BYTE # 92 -PORT # 13 -BYTE # 93 -PORT # 13 -BYTE # 94 -PORT # 13 -BYTE # 95 -PORT # 13 -BYTE # 96 -PORT # 13 -BYTE # 97 -PORT # 13 -BYTE # 98 -PORT # 13 -BYTE # 99 -PORT # 13 -BYTE # 100 -PORT # 13 -BYTE # 101 -PORT # 13 -BYTE # 102 -PORT # 13 -BYTE # 103 -PORT # 13 -BYTE # 104 -PORT # 13 -BYTE # 105 -PORT # 13 -BYTE # 106 -PORT # 13 -BYTE # 107 -PORT # 13 -BYTE # 108 -PORT # 13 -BYTE # 109 -PORT # 13 -BYTE # 110 -PORT # 13 -BYTE # 111 -PORT # 13 -BYTE # 112 -PORT # 13 -BYTE # 113 -PORT # 13 -BYTE # 114 -PORT # 13 -BYTE # 115 -PORT # 13 -BYTE # 116 -PORT # 13 -BYTE # 117 -PORT # 13 -BYTE # 118 -PORT # 13 -BYTE # 119 -PORT # 13 -BYTE # 120 -PORT # 13 -BYTE # 121 -PORT # 13 -BYTE # 122 -PORT # 13 -BYTE # 123 -PORT # 13 -BYTE # 124 -PORT # 13 -BYTE # 125 -PORT # 13 -BYTE # 126 -PORT # 13 -BYTE # 127 -PORT # 13 -BYTE # 128 -PORT # 13 -BYTE # 129 -PORT # 13 -BYTE # 130 -PORT # 13 -BYTE # 131 -PORT # 13 -BYTE # 132 -PORT # 13 -BYTE # 133 -PORT # 13 -BYTE # 134 -PORT # 13 -BYTE # 135 -PORT # 13 -BYTE # 136 -PORT # 13 -BYTE # 137 -PORT # 13 -BYTE # 138 -PORT # 13 -BYTE # 139 -PORT # 13 -BYTE # 140 -PORT # 13 -BYTE # 141 -PORT # 13 -BYTE # 142 -PORT # 13 -BYTE # 143 -PORT # 13 -BYTE # 144 -PORT # 13 -BYTE # 145 -PORT # 13 -BYTE # 146 -PORT # 13 -BYTE # 147 -PORT # 13 -BYTE # 148 -PORT # 13 -BYTE # 149 -PORT # 13 -BYTE # 150 -PORT # 13 -BYTE # 151 -PORT # 13 -BYTE # 152 -PORT # 13 -BYTE # 153 -PORT # 13 -BYTE # 154 -PORT # 13 -BYTE # 155 -PORT # 13 -BYTE # 156 -PORT # 13 -BYTE # 157 -PORT # 13 -BYTE # 158 -PORT # 13 -BYTE # 159 -PORT # 13 -BYTE # 160 -PORT # 13 -BYTE # 161 -PORT # 13 -BYTE # 162 -PORT # 13 -BYTE # 163 -PORT # 13 -BYTE # 164 -PORT # 13 -BYTE # 165 -PORT # 13 -BYTE # 166 -PORT # 13 -BYTE # 167 -PORT # 13 -BYTE # 168 -PORT # 13 -BYTE # 169 -PORT # 13 -BYTE # 170 -PORT # 13 -BYTE # 171 -PORT # 13 -BYTE # 172 -PORT # 13 -BYTE # 173 -PORT # 13 -BYTE # 174 -PORT # 13 -BYTE # 175 -PORT # 13 -BYTE # 176 -PORT # 13 -BYTE # 177 -PORT # 13 -BYTE # 178 -PORT # 13 -BYTE # 179 -PORT # 13 -BYTE # 180 -PORT # 13 -BYTE # 181 -PORT # 13 -BYTE # 182 -PORT # 13 -BYTE # 183 -PORT # 13 -BYTE # 184 -PORT # 13 -BYTE # 185 -PORT # 13 -BYTE # 186 -PORT # 13 -BYTE # 187 -PORT # 13 -BYTE # 188 -PORT # 13 -BYTE # 189 -PORT # 13 -BYTE # 190 -PORT # 13 -BYTE # 191 -PORT # 13 -BYTE # 192 -PORT # 13 -BYTE # 193 -PORT # 13 -BYTE # 194 -PORT # 13 -BYTE # 195 -PORT # 13 -BYTE # 196 -PORT # 13 -BYTE # 197 -PORT # 13 -BYTE # 198 -PORT # 13 -BYTE # 199 -PORT # 13 -BYTE # 200 -PORT # 13 -BYTE # 201 -PORT # 13 -BYTE # 202 -PORT # 13 -BYTE # 203 -PORT # 13 -BYTE # 204 -PORT # 13 -BYTE # 205 -PORT # 13 -BYTE # 206 -PORT # 13 -BYTE # 207 -PORT # 13 -BYTE # 208 -PORT # 13 -BYTE # 209 -PORT # 13 -BYTE # 210 -PORT # 13 -BYTE # 211 -PORT # 13 -BYTE # 212 -PORT # 13 -BYTE # 213 -PORT # 13 -BYTE # 214 -PORT # 13 -BYTE # 215 -PORT # 13 -BYTE # 216 -PORT # 13 -BYTE # 217 -PORT # 13 -BYTE # 218 -PORT # 13 -BYTE # 219 -PORT # 13 -BYTE # 220 -PORT # 13 -BYTE # 221 -PORT # 13 -BYTE # 222 -PORT # 13 -BYTE # 223 -PORT # 13 -BYTE # 224 -PORT # 13 -BYTE # 225 -PORT # 13 -BYTE # 226 -PORT # 13 -BYTE # 227 -PORT # 13 -BYTE # 228 -PORT # 13 -BYTE # 229 -PORT # 13 -BYTE # 230 -PORT # 13 -BYTE # 231 -PORT # 13 -BYTE # 232 -PORT # 13 -BYTE # 233 -PORT # 13 -BYTE # 234 -PORT # 13 -BYTE # 235 -PORT # 13 -BYTE # 236 -PORT # 13 -BYTE # 237 -PORT # 13 -BYTE # 238 -PORT # 13 -BYTE # 239 -PORT # 13 -BYTE # 240 -PORT # 13 -BYTE # 241 -PORT # 13 -BYTE # 242 -PORT # 13 -BYTE # 243 -PORT # 13 -BYTE # 244 -PORT # 13 -BYTE # 245 -PORT # 13 -BYTE # 246 -PORT # 13 -BYTE # 247 -PORT # 13 -BYTE # 248 -PORT # 13 -BYTE # 249 -PORT # 13 -BYTE # 250 -PORT # 13 -BYTE # 251 -PORT # 13 -BYTE # 252 -PORT # 13 -BYTE # 253 -PORT # 13 -BYTE # 254 -PORT # 13 -BYTE # 255 -PORT # 14 -BYTE # 0 -PORT # 14 -BYTE # 1 -PORT # 14 -BYTE # 2 -PORT # 14 -BYTE # 3 -PORT # 14 -BYTE # 4 -PORT # 14 -BYTE # 5 -PORT # 14 -BYTE # 6 -PORT # 14 -BYTE # 7 -PORT # 14 -BYTE # 8 -PORT # 14 -BYTE # 9 -PORT # 14 -BYTE # 10 -PORT # 14 -BYTE # 11 -PORT # 14 -BYTE # 12 -PORT # 14 -BYTE # 13 -PORT # 14 -BYTE # 14 -PORT # 14 -BYTE # 15 -PORT # 14 -BYTE # 16 -PORT # 14 -BYTE # 17 -PORT # 14 -BYTE # 18 -PORT # 14 -BYTE # 19 -PORT # 14 -BYTE # 20 -PORT # 14 -BYTE # 21 -PORT # 14 -BYTE # 22 -PORT # 14 -BYTE # 23 -PORT # 14 -BYTE # 24 -PORT # 14 -BYTE # 25 -PORT # 14 -BYTE # 26 -PORT # 14 -BYTE # 27 -PORT # 14 -BYTE # 28 -PORT # 14 -BYTE # 29 -PORT # 14 -BYTE # 30 -PORT # 14 -BYTE # 31 -PORT # 14 -BYTE # 32 -PORT # 14 -BYTE # 33 -PORT # 14 -BYTE # 34 -PORT # 14 -BYTE # 35 -PORT # 14 -BYTE # 36 -PORT # 14 -BYTE # 37 -PORT # 14 -BYTE # 38 -PORT # 14 -BYTE # 39 -PORT # 14 -BYTE # 40 -PORT # 14 -BYTE # 41 -PORT # 14 -BYTE # 42 -PORT # 14 -BYTE # 43 -PORT # 14 -BYTE # 44 -PORT # 14 -BYTE # 45 -PORT # 14 -BYTE # 46 -PORT # 14 -BYTE # 47 -PORT # 14 -BYTE # 48 -PORT # 14 -BYTE # 49 -PORT # 14 -BYTE # 50 -PORT # 14 -BYTE # 51 -PORT # 14 -BYTE # 52 -PORT # 14 -BYTE # 53 -PORT # 14 -BYTE # 54 -PORT # 14 -BYTE # 55 -PORT # 14 -BYTE # 56 -PORT # 14 -BYTE # 57 -PORT # 14 -BYTE # 58 -PORT # 14 -BYTE # 59 -PORT # 14 -BYTE # 60 -PORT # 14 -BYTE # 61 -PORT # 14 -BYTE # 62 -PORT # 14 -BYTE # 63 -PORT # 14 -BYTE # 64 -PORT # 14 -BYTE # 65 -PORT # 14 -BYTE # 66 -PORT # 14 -BYTE # 67 -PORT # 14 -BYTE # 68 -PORT # 14 -BYTE # 69 -PORT # 14 -BYTE # 70 -PORT # 14 -BYTE # 71 -PORT # 14 -BYTE # 72 -PORT # 14 -BYTE # 73 -PORT # 14 -BYTE # 74 -PORT # 14 -BYTE # 75 -PORT # 14 -BYTE # 76 -PORT # 14 -BYTE # 77 -PORT # 14 -BYTE # 78 -PORT # 14 -BYTE # 79 -PORT # 14 -BYTE # 80 -PORT # 14 -BYTE # 81 -PORT # 14 -BYTE # 82 -PORT # 14 -BYTE # 83 -PORT # 14 -BYTE # 84 -PORT # 14 -BYTE # 85 -PORT # 14 -BYTE # 86 -PORT # 14 -BYTE # 87 -PORT # 14 -BYTE # 88 -PORT # 14 -BYTE # 89 -PORT # 14 -BYTE # 90 -PORT # 14 -BYTE # 91 -PORT # 14 -BYTE # 92 -PORT # 14 -BYTE # 93 -PORT # 14 -BYTE # 94 -PORT # 14 -BYTE # 95 -PORT # 14 -BYTE # 96 -PORT # 14 -BYTE # 97 -PORT # 14 -BYTE # 98 -PORT # 14 -BYTE # 99 -PORT # 14 -BYTE # 100 -PORT # 14 -BYTE # 101 -PORT # 14 -BYTE # 102 -PORT # 14 -BYTE # 103 -PORT # 14 -BYTE # 104 -PORT # 14 -BYTE # 105 -PORT # 14 -BYTE # 106 -PORT # 14 -BYTE # 107 -PORT # 14 -BYTE # 108 -PORT # 14 -BYTE # 109 -PORT # 14 -BYTE # 110 -PORT # 14 -BYTE # 111 -PORT # 14 -BYTE # 112 -PORT # 14 -BYTE # 113 -PORT # 14 -BYTE # 114 -PORT # 14 -BYTE # 115 -PORT # 14 -BYTE # 116 -PORT # 14 -BYTE # 117 -PORT # 14 -BYTE # 118 -PORT # 14 -BYTE # 119 -PORT # 14 -BYTE # 120 -PORT # 14 -BYTE # 121 -PORT # 14 -BYTE # 122 -PORT # 14 -BYTE # 123 -PORT # 14 -BYTE # 124 -PORT # 14 -BYTE # 125 -PORT # 14 -BYTE # 126 -PORT # 14 -BYTE # 127 -PORT # 14 -BYTE # 128 -PORT # 14 -BYTE # 129 -PORT # 14 -BYTE # 130 -PORT # 14 -BYTE # 131 -PORT # 14 -BYTE # 132 -PORT # 14 -BYTE # 133 -PORT # 14 -BYTE # 134 -PORT # 14 -BYTE # 135 -PORT # 14 -BYTE # 136 -PORT # 14 -BYTE # 137 -PORT # 14 -BYTE # 138 -PORT # 14 -BYTE # 139 -PORT # 14 -BYTE # 140 -PORT # 14 -BYTE # 141 -PORT # 14 -BYTE # 142 -PORT # 14 -BYTE # 143 -PORT # 14 -BYTE # 144 -PORT # 14 -BYTE # 145 -PORT # 14 -BYTE # 146 -PORT # 14 -BYTE # 147 -PORT # 14 -BYTE # 148 -PORT # 14 -BYTE # 149 -PORT # 14 -BYTE # 150 -PORT # 14 -BYTE # 151 -PORT # 14 -BYTE # 152 -PORT # 14 -BYTE # 153 -PORT # 14 -BYTE # 154 -PORT # 14 -BYTE # 155 -PORT # 14 -BYTE # 156 -PORT # 14 -BYTE # 157 -PORT # 14 -BYTE # 158 -PORT # 14 -BYTE # 159 -PORT # 14 -BYTE # 160 -PORT # 14 -BYTE # 161 -PORT # 14 -BYTE # 162 -PORT # 14 -BYTE # 163 -PORT # 14 -BYTE # 164 -PORT # 14 -BYTE # 165 -PORT # 14 -BYTE # 166 -PORT # 14 -BYTE # 167 -PORT # 14 -BYTE # 168 -PORT # 14 -BYTE # 169 -PORT # 14 -BYTE # 170 -PORT # 14 -BYTE # 171 -PORT # 14 -BYTE # 172 -PORT # 14 -BYTE # 173 -PORT # 14 -BYTE # 174 -PORT # 14 -BYTE # 175 -PORT # 14 -BYTE # 176 -PORT # 14 -BYTE # 177 -PORT # 14 -BYTE # 178 -PORT # 14 -BYTE # 179 -PORT # 14 -BYTE # 180 -PORT # 14 -BYTE # 181 -PORT # 14 -BYTE # 182 -PORT # 14 -BYTE # 183 -PORT # 14 -BYTE # 184 -PORT # 14 -BYTE # 185 -PORT # 14 -BYTE # 186 -PORT # 14 -BYTE # 187 -PORT # 14 -BYTE # 188 -PORT # 14 -BYTE # 189 -PORT # 14 -BYTE # 190 -PORT # 14 -BYTE # 191 -PORT # 14 -BYTE # 192 -PORT # 14 -BYTE # 193 -PORT # 14 -BYTE # 194 -PORT # 14 -BYTE # 195 -PORT # 14 -BYTE # 196 -PORT # 14 -BYTE # 197 -PORT # 14 -BYTE # 198 -PORT # 14 -BYTE # 199 -PORT # 14 -BYTE # 200 -PORT # 14 -BYTE # 201 -PORT # 14 -BYTE # 202 -PORT # 14 -BYTE # 203 -PORT # 14 -BYTE # 204 -PORT # 14 -BYTE # 205 -PORT # 14 -BYTE # 206 -PORT # 14 -BYTE # 207 -PORT # 14 -BYTE # 208 -PORT # 14 -BYTE # 209 -PORT # 14 -BYTE # 210 -PORT # 14 -BYTE # 211 -PORT # 14 -BYTE # 212 -PORT # 14 -BYTE # 213 -PORT # 14 -BYTE # 214 -PORT # 14 -BYTE # 215 -PORT # 14 -BYTE # 216 -PORT # 14 -BYTE # 217 -PORT # 14 -BYTE # 218 -PORT # 14 -BYTE # 219 -PORT # 14 -BYTE # 220 -PORT # 14 -BYTE # 221 -PORT # 14 -BYTE # 222 -PORT # 14 -BYTE # 223 -PORT # 14 -BYTE # 224 -PORT # 14 -BYTE # 225 -PORT # 14 -BYTE # 226 -PORT # 14 -BYTE # 227 -PORT # 14 -BYTE # 228 -PORT # 14 -BYTE # 229 -PORT # 14 -BYTE # 230 -PORT # 14 -BYTE # 231 -PORT # 14 -BYTE # 232 -PORT # 14 -BYTE # 233 -PORT # 14 -BYTE # 234 -PORT # 14 -BYTE # 235 -PORT # 14 -BYTE # 236 -PORT # 14 -BYTE # 237 -PORT # 14 -BYTE # 238 -PORT # 14 -BYTE # 239 -PORT # 14 -BYTE # 240 -PORT # 14 -BYTE # 241 -PORT # 14 -BYTE # 242 -PORT # 14 -BYTE # 243 -PORT # 14 -BYTE # 244 -PORT # 14 -BYTE # 245 -PORT # 14 -BYTE # 246 -PORT # 14 -BYTE # 247 -PORT # 14 -BYTE # 248 -PORT # 14 -BYTE # 249 -PORT # 14 -BYTE # 250 -PORT # 14 -BYTE # 251 -PORT # 14 -BYTE # 252 -PORT # 14 -BYTE # 253 -PORT # 14 -BYTE # 254 -PORT # 14 -BYTE # 255 -PORT # 15 -BYTE # 0 -PORT # 15 -BYTE # 1 -PORT # 15 -BYTE # 2 -PORT # 15 -BYTE # 3 -PORT # 15 -BYTE # 4 -PORT # 15 -BYTE # 5 -PORT # 15 -BYTE # 6 -PORT # 15 -BYTE # 7 -PORT # 15 -BYTE # 8 -PORT # 15 -BYTE # 9 -PORT # 15 -BYTE # 10 -PORT # 15 -BYTE # 11 -PORT # 15 -BYTE # 12 -PORT # 15 -BYTE # 13 -PORT # 15 -BYTE # 14 -PORT # 15 -BYTE # 15 -PORT # 15 -BYTE # 16 -PORT # 15 -BYTE # 17 -PORT # 15 -BYTE # 18 -PORT # 15 -BYTE # 19 -PORT # 15 -BYTE # 20 -PORT # 15 -BYTE # 21 -PORT # 15 -BYTE # 22 -PORT # 15 -BYTE # 23 -PORT # 15 -BYTE # 24 -PORT # 15 -BYTE # 25 -PORT # 15 -BYTE # 26 -PORT # 15 -BYTE # 27 -PORT # 15 -BYTE # 28 -PORT # 15 -BYTE # 29 -PORT # 15 -BYTE # 30 -PORT # 15 -BYTE # 31 -PORT # 15 -BYTE # 32 -PORT # 15 -BYTE # 33 -PORT # 15 -BYTE # 34 -PORT # 15 -BYTE # 35 -PORT # 15 -BYTE # 36 -PORT # 15 -BYTE # 37 -PORT # 15 -BYTE # 38 -PORT # 15 -BYTE # 39 -PORT # 15 -BYTE # 40 -PORT # 15 -BYTE # 41 -PORT # 15 -BYTE # 42 -PORT # 15 -BYTE # 43 -PORT # 15 -BYTE # 44 -PORT # 15 -BYTE # 45 -PORT # 15 -BYTE # 46 -PORT # 15 -BYTE # 47 -PORT # 15 -BYTE # 48 -PORT # 15 -BYTE # 49 -PORT # 15 -BYTE # 50 -PORT # 15 -BYTE # 51 -PORT # 15 -BYTE # 52 -PORT # 15 -BYTE # 53 -PORT # 15 -BYTE # 54 -PORT # 15 -BYTE # 55 -PORT # 15 -BYTE # 56 -PORT # 15 -BYTE # 57 -PORT # 15 -BYTE # 58 -PORT # 15 -BYTE # 59 -PORT # 15 -BYTE # 60 -PORT # 15 -BYTE # 61 -PORT # 15 -BYTE # 62 -PORT # 15 -BYTE # 63 -PORT # 15 -BYTE # 64 -PORT # 15 -BYTE # 65 -PORT # 15 -BYTE # 66 -PORT # 15 -BYTE # 67 -PORT # 15 -BYTE # 68 -PORT # 15 -BYTE # 69 -PORT # 15 -BYTE # 70 -PORT # 15 -BYTE # 71 -PORT # 15 -BYTE # 72 -PORT # 15 -BYTE # 73 -PORT # 15 -BYTE # 74 -PORT # 15 -BYTE # 75 -PORT # 15 -BYTE # 76 -PORT # 15 -BYTE # 77 -PORT # 15 -BYTE # 78 -PORT # 15 -BYTE # 79 -PORT # 15 -BYTE # 80 -PORT # 15 -BYTE # 81 -PORT # 15 -BYTE # 82 -PORT # 15 -BYTE # 83 -PORT # 15 -BYTE # 84 -PORT # 15 -BYTE # 85 -PORT # 15 -BYTE # 86 -PORT # 15 -BYTE # 87 -PORT # 15 -BYTE # 88 -PORT # 15 -BYTE # 89 -PORT # 15 -BYTE # 90 -PORT # 15 -BYTE # 91 -PORT # 15 -BYTE # 92 -PORT # 15 -BYTE # 93 -PORT # 15 -BYTE # 94 -PORT # 15 -BYTE # 95 -PORT # 15 -BYTE # 96 -PORT # 15 -BYTE # 97 -PORT # 15 -BYTE # 98 -PORT # 15 -BYTE # 99 -PORT # 15 -BYTE # 100 -PORT # 15 -BYTE # 101 -PORT # 15 -BYTE # 102 -PORT # 15 -BYTE # 103 -PORT # 15 -BYTE # 104 -PORT # 15 -BYTE # 105 -PORT # 15 -BYTE # 106 -PORT # 15 -BYTE # 107 -PORT # 15 -BYTE # 108 -PORT # 15 -BYTE # 109 -PORT # 15 -BYTE # 110 -PORT # 15 -BYTE # 111 -PORT # 15 -BYTE # 112 -PORT # 15 -BYTE # 113 -PORT # 15 -BYTE # 114 -PORT # 15 -BYTE # 115 -PORT # 15 -BYTE # 116 -PORT # 15 -BYTE # 117 -PORT # 15 -BYTE # 118 -PORT # 15 -BYTE # 119 -PORT # 15 -BYTE # 120 -PORT # 15 -BYTE # 121 -PORT # 15 -BYTE # 122 -PORT # 15 -BYTE # 123 -PORT # 15 -BYTE # 124 -PORT # 15 -BYTE # 125 -PORT # 15 -BYTE # 126 -PORT # 15 -BYTE # 127 -PORT # 15 -BYTE # 128 -PORT # 15 -BYTE # 129 -PORT # 15 -BYTE # 130 -PORT # 15 -BYTE # 131 -PORT # 15 -BYTE # 132 -PORT # 15 -BYTE # 133 -PORT # 15 -BYTE # 134 -PORT # 15 -BYTE # 135 -PORT # 15 -BYTE # 136 -PORT # 15 -BYTE # 137 -PORT # 15 -BYTE # 138 -PORT # 15 -BYTE # 139 -PORT # 15 -BYTE # 140 -PORT # 15 -BYTE # 141 -PORT # 15 -BYTE # 142 -PORT # 15 -BYTE # 143 -PORT # 15 -BYTE # 144 -PORT # 15 -BYTE # 145 -PORT # 15 -BYTE # 146 -PORT # 15 -BYTE # 147 -PORT # 15 -BYTE # 148 -PORT # 15 -BYTE # 149 -PORT # 15 -BYTE # 150 -PORT # 15 -BYTE # 151 -PORT # 15 -BYTE # 152 -PORT # 15 -BYTE # 153 -PORT # 15 -BYTE # 154 -PORT # 15 -BYTE # 155 -PORT # 15 -BYTE # 156 -PORT # 15 -BYTE # 157 -PORT # 15 -BYTE # 158 -PORT # 15 -BYTE # 159 -PORT # 15 -BYTE # 160 -PORT # 15 -BYTE # 161 -PORT # 15 -BYTE # 162 -PORT # 15 -BYTE # 163 -PORT # 15 -BYTE # 164 -PORT # 15 -BYTE # 165 -PORT # 15 -BYTE # 166 -PORT # 15 -BYTE # 167 -PORT # 15 -BYTE # 168 -PORT # 15 -BYTE # 169 -PORT # 15 -BYTE # 170 -PORT # 15 -BYTE # 171 -PORT # 15 -BYTE # 172 -PORT # 15 -BYTE # 173 -PORT # 15 -BYTE # 174 -PORT # 15 -BYTE # 175 -PORT # 15 -BYTE # 176 -PORT # 15 -BYTE # 177 -PORT # 15 -BYTE # 178 -PORT # 15 -BYTE # 179 -PORT # 15 -BYTE # 180 -PORT # 15 -BYTE # 181 -PORT # 15 -BYTE # 182 -PORT # 15 -BYTE # 183 -PORT # 15 -BYTE # 184 -PORT # 15 -BYTE # 185 -PORT # 15 -BYTE # 186 -PORT # 15 -BYTE # 187 -PORT # 15 -BYTE # 188 -PORT # 15 -BYTE # 189 -PORT # 15 -BYTE # 190 -PORT # 15 -BYTE # 191 -PORT # 15 -BYTE # 192 -PORT # 15 -BYTE # 193 -PORT # 15 -BYTE # 194 -PORT # 15 -BYTE # 195 -PORT # 15 -BYTE # 196 -PORT # 15 -BYTE # 197 -PORT # 15 -BYTE # 198 -PORT # 15 -BYTE # 199 -PORT # 15 -BYTE # 200 -PORT # 15 -BYTE # 201 -PORT # 15 -BYTE # 202 -PORT # 15 -BYTE # 203 -PORT # 15 -BYTE # 204 -PORT # 15 -BYTE # 205 -PORT # 15 -BYTE # 206 -PORT # 15 -BYTE # 207 -PORT # 15 -BYTE # 208 -PORT # 15 -BYTE # 209 -PORT # 15 -BYTE # 210 -PORT # 15 -BYTE # 211 -PORT # 15 -BYTE # 212 -PORT # 15 -BYTE # 213 -PORT # 15 -BYTE # 214 -PORT # 15 -BYTE # 215 -PORT # 15 -BYTE # 216 -PORT # 15 -BYTE # 217 -PORT # 15 -BYTE # 218 -PORT # 15 -BYTE # 219 -PORT # 15 -BYTE # 220 -PORT # 15 -BYTE # 221 -PORT # 15 -BYTE # 222 -PORT # 15 -BYTE # 223 -PORT # 15 -BYTE # 224 -PORT # 15 -BYTE # 225 -PORT # 15 -BYTE # 226 -PORT # 15 -BYTE # 227 -PORT # 15 -BYTE # 228 -PORT # 15 -BYTE # 229 -PORT # 15 -BYTE # 230 -PORT # 15 -BYTE # 231 -PORT # 15 -BYTE # 232 -PORT # 15 -BYTE # 233 -PORT # 15 -BYTE # 234 -PORT # 15 -BYTE # 235 -PORT # 15 -BYTE # 236 -PORT # 15 -BYTE # 237 -PORT # 15 -BYTE # 238 -PORT # 15 -BYTE # 239 -PORT # 15 -BYTE # 240 -PORT # 15 -BYTE # 241 -PORT # 15 -BYTE # 242 -PORT # 15 -BYTE # 243 -PORT # 15 -BYTE # 244 -PORT # 15 -BYTE # 245 -PORT # 15 -BYTE # 246 -PORT # 15 -BYTE # 247 -PORT # 15 -BYTE # 248 -PORT # 15 -BYTE # 249 -PORT # 15 -BYTE # 250 -PORT # 15 -BYTE # 251 -PORT # 15 -BYTE # 252 -PORT # 15 -BYTE # 253 -PORT # 15 -BYTE # 254 -PORT # 15 -BYTE # 255 -PORT # 16 -BYTE # 0 -PORT # 16 -BYTE # 1 -PORT # 16 -BYTE # 2 -PORT # 16 -BYTE # 3 -PORT # 16 -BYTE # 4 -PORT # 16 -BYTE # 5 -PORT # 16 -BYTE # 6 -PORT # 16 -BYTE # 7 -PORT # 16 -BYTE # 8 -PORT # 16 -BYTE # 9 -PORT # 16 -BYTE # 10 -PORT # 16 -BYTE # 11 -PORT # 16 -BYTE # 12 -PORT # 16 -BYTE # 13 -PORT # 16 -BYTE # 14 -PORT # 16 -BYTE # 15 -PORT # 16 -BYTE # 16 -PORT # 16 -BYTE # 17 -PORT # 16 -BYTE # 18 -PORT # 16 -BYTE # 19 -PORT # 16 -BYTE # 20 -PORT # 16 -BYTE # 21 -PORT # 16 -BYTE # 22 -PORT # 16 -BYTE # 23 -PORT # 16 -BYTE # 24 -PORT # 16 -BYTE # 25 -PORT # 16 -BYTE # 26 -PORT # 16 -BYTE # 27 -PORT # 16 -BYTE # 28 -PORT # 16 -BYTE # 29 -PORT # 16 -BYTE # 30 -PORT # 16 -BYTE # 31 -PORT # 16 -BYTE # 32 -PORT # 16 -BYTE # 33 -PORT # 16 -BYTE # 34 -PORT # 16 -BYTE # 35 -PORT # 16 -BYTE # 36 -PORT # 16 -BYTE # 37 -PORT # 16 -BYTE # 38 -PORT # 16 -BYTE # 39 -PORT # 16 -BYTE # 40 -PORT # 16 -BYTE # 41 -PORT # 16 -BYTE # 42 -PORT # 16 -BYTE # 43 -PORT # 16 -BYTE # 44 -PORT # 16 -BYTE # 45 -PORT # 16 -BYTE # 46 -PORT # 16 -BYTE # 47 -PORT # 16 -BYTE # 48 -PORT # 16 -BYTE # 49 -PORT # 16 -BYTE # 50 -PORT # 16 -BYTE # 51 -PORT # 16 -BYTE # 52 -PORT # 16 -BYTE # 53 -PORT # 16 -BYTE # 54 -PORT # 16 -BYTE # 55 -PORT # 16 -BYTE # 56 -PORT # 16 -BYTE # 57 -PORT # 16 -BYTE # 58 -PORT # 16 -BYTE # 59 -PORT # 16 -BYTE # 60 -PORT # 16 -BYTE # 61 -PORT # 16 -BYTE # 62 -PORT # 16 -BYTE # 63 -PORT # 16 -BYTE # 64 -PORT # 16 -BYTE # 65 -PORT # 16 -BYTE # 66 -PORT # 16 -BYTE # 67 -PORT # 16 -BYTE # 68 -PORT # 16 -BYTE # 69 -PORT # 16 -BYTE # 70 -PORT # 16 -BYTE # 71 -PORT # 16 -BYTE # 72 -PORT # 16 -BYTE # 73 -PORT # 16 -BYTE # 74 -PORT # 16 -BYTE # 75 -PORT # 16 -BYTE # 76 -PORT # 16 -BYTE # 77 -PORT # 16 -BYTE # 78 -PORT # 16 -BYTE # 79 -PORT # 16 -BYTE # 80 -PORT # 16 -BYTE # 81 -PORT # 16 -BYTE # 82 -PORT # 16 -BYTE # 83 -PORT # 16 -BYTE # 84 -PORT # 16 -BYTE # 85 -PORT # 16 -BYTE # 86 -PORT # 16 -BYTE # 87 -PORT # 16 -BYTE # 88 -PORT # 16 -BYTE # 89 -PORT # 16 -BYTE # 90 -PORT # 16 -BYTE # 91 -PORT # 16 -BYTE # 92 -PORT # 16 -BYTE # 93 -PORT # 16 -BYTE # 94 -PORT # 16 -BYTE # 95 -PORT # 16 -BYTE # 96 -PORT # 16 -BYTE # 97 -PORT # 16 -BYTE # 98 -PORT # 16 -BYTE # 99 -PORT # 16 -BYTE # 100 -PORT # 16 -BYTE # 101 -PORT # 16 -BYTE # 102 -PORT # 16 -BYTE # 103 -PORT # 16 -BYTE # 104 -PORT # 16 -BYTE # 105 -PORT # 16 -BYTE # 106 -PORT # 16 -BYTE # 107 -PORT # 16 -BYTE # 108 -PORT # 16 -BYTE # 109 -PORT # 16 -BYTE # 110 -PORT # 16 -BYTE # 111 -PORT # 16 -BYTE # 112 -PORT # 16 -BYTE # 113 -PORT # 16 -BYTE # 114 -PORT # 16 -BYTE # 115 -PORT # 16 -BYTE # 116 -PORT # 16 -BYTE # 117 -PORT # 16 -BYTE # 118 -PORT # 16 -BYTE # 119 -PORT # 16 -BYTE # 120 -PORT # 16 -BYTE # 121 -PORT # 16 -BYTE # 122 -PORT # 16 -BYTE # 123 -PORT # 16 -BYTE # 124 -PORT # 16 -BYTE # 125 -PORT # 16 -BYTE # 126 -PORT # 16 -BYTE # 127 -PORT # 16 -BYTE # 128 -PORT # 16 -BYTE # 129 -PORT # 16 -BYTE # 130 -PORT # 16 -BYTE # 131 -PORT # 16 -BYTE # 132 -PORT # 16 -BYTE # 133 -PORT # 16 -BYTE # 134 -PORT # 16 -BYTE # 135 -PORT # 16 -BYTE # 136 -PORT # 16 -BYTE # 137 -PORT # 16 -BYTE # 138 -PORT # 16 -BYTE # 139 -PORT # 16 -BYTE # 140 -PORT # 16 -BYTE # 141 -PORT # 16 -BYTE # 142 -PORT # 16 -BYTE # 143 -PORT # 16 -BYTE # 144 -PORT # 16 -BYTE # 145 -PORT # 16 -BYTE # 146 -PORT # 16 -BYTE # 147 -PORT # 16 -BYTE # 148 -PORT # 16 -BYTE # 149 -PORT # 16 -BYTE # 150 -PORT # 16 -BYTE # 151 -PORT # 16 -BYTE # 152 -PORT # 16 -BYTE # 153 -PORT # 16 -BYTE # 154 -PORT # 16 -BYTE # 155 -PORT # 16 -BYTE # 156 -PORT # 16 -BYTE # 157 -PORT # 16 -BYTE # 158 -PORT # 16 -BYTE # 159 -PORT # 16 -BYTE # 160 -PORT # 16 -BYTE # 161 -PORT # 16 -BYTE # 162 -PORT # 16 -BYTE # 163 -PORT # 16 -BYTE # 164 -PORT # 16 -BYTE # 165 -PORT # 16 -BYTE # 166 -PORT # 16 -BYTE # 167 -PORT # 16 -BYTE # 168 -PORT # 16 -BYTE # 169 -PORT # 16 -BYTE # 170 -PORT # 16 -BYTE # 171 -PORT # 16 -BYTE # 172 -PORT # 16 -BYTE # 173 -PORT # 16 -BYTE # 174 -PORT # 16 -BYTE # 175 -PORT # 16 -BYTE # 176 -PORT # 16 -BYTE # 177 -PORT # 16 -BYTE # 178 -PORT # 16 -BYTE # 179 -PORT # 16 -BYTE # 180 -PORT # 16 -BYTE # 181 -PORT # 16 -BYTE # 182 -PORT # 16 -BYTE # 183 -PORT # 16 -BYTE # 184 -PORT # 16 -BYTE # 185 -PORT # 16 -BYTE # 186 -PORT # 16 -BYTE # 187 -PORT # 16 -BYTE # 188 -PORT # 16 -BYTE # 189 -PORT # 16 -BYTE # 190 -PORT # 16 -BYTE # 191 -PORT # 16 -BYTE # 192 -PORT # 16 -BYTE # 193 -PORT # 16 -BYTE # 194 -PORT # 16 -BYTE # 195 -PORT # 16 -BYTE # 196 -PORT # 16 -BYTE # 197 -PORT # 16 -BYTE # 198 -PORT # 16 -BYTE # 199 -PORT # 16 -BYTE # 200 -PORT # 16 -BYTE # 201 -PORT # 16 -BYTE # 202 -PORT # 16 -BYTE # 203 -PORT # 16 -BYTE # 204 -PORT # 16 -BYTE # 205 -PORT # 16 -BYTE # 206 -PORT # 16 -BYTE # 207 -PORT # 16 -BYTE # 208 -PORT # 16 -BYTE # 209 -PORT # 16 -BYTE # 210 -PORT # 16 -BYTE # 211 -PORT # 16 -BYTE # 212 -PORT # 16 -BYTE # 213 -PORT # 16 -BYTE # 214 -PORT # 16 -BYTE # 215 -PORT # 16 -BYTE # 216 -PORT # 16 -BYTE # 217 -PORT # 16 -BYTE # 218 -PORT # 16 -BYTE # 219 -PORT # 16 -BYTE # 220 -PORT # 16 -BYTE # 221 -PORT # 16 -BYTE # 222 -PORT # 16 -BYTE # 223 -PORT # 16 -BYTE # 224 -PORT # 16 -BYTE # 225 -PORT # 16 -BYTE # 226 -PORT # 16 -BYTE # 227 -PORT # 16 -BYTE # 228 -PORT # 16 -BYTE # 229 -PORT # 16 -BYTE # 230 -PORT # 16 -BYTE # 231 -PORT # 16 -BYTE # 232 -PORT # 16 -BYTE # 233 -PORT # 16 -BYTE # 234 -PORT # 16 -BYTE # 235 -PORT # 16 -BYTE # 236 -PORT # 16 -BYTE # 237 -PORT # 16 -BYTE # 238 -PORT # 16 -BYTE # 239 -PORT # 16 -BYTE # 240 -PORT # 16 -BYTE # 241 -PORT # 16 -BYTE # 242 -PORT # 16 -BYTE # 243 -PORT # 16 -BYTE # 244 -PORT # 16 -BYTE # 245 -PORT # 16 -BYTE # 246 -PORT # 16 -BYTE # 247 -PORT # 16 -BYTE # 248 -PORT # 16 -BYTE # 249 -PORT # 16 -BYTE # 250 -PORT # 16 -BYTE # 251 -PORT # 16 -BYTE # 252 -PORT # 16 -BYTE # 253 -PORT # 16 -BYTE # 254 -PORT # 16 -BYTE # 255 -PORT # 17 -BYTE # 0 -PORT # 17 -BYTE # 1 -PORT # 17 -BYTE # 2 -PORT # 17 -BYTE # 3 -PORT # 17 -BYTE # 4 -PORT # 17 -BYTE # 5 -PORT # 17 -BYTE # 6 -PORT # 17 -BYTE # 7 -PORT # 17 -BYTE # 8 -PORT # 17 -BYTE # 9 -PORT # 17 -BYTE # 10 -PORT # 17 -BYTE # 11 -PORT # 17 -BYTE # 12 -PORT # 17 -BYTE # 13 -PORT # 17 -BYTE # 14 -PORT # 17 -BYTE # 15 -PORT # 17 -BYTE # 16 -PORT # 17 -BYTE # 17 -PORT # 17 -BYTE # 18 -PORT # 17 -BYTE # 19 -PORT # 17 -BYTE # 20 -PORT # 17 -BYTE # 21 -PORT # 17 -BYTE # 22 -PORT # 17 -BYTE # 23 -PORT # 17 -BYTE # 24 -PORT # 17 -BYTE # 25 -PORT # 17 -BYTE # 26 -PORT # 17 -BYTE # 27 -PORT # 17 -BYTE # 28 -PORT # 17 -BYTE # 29 -PORT # 17 -BYTE # 30 -PORT # 17 -BYTE # 31 -PORT # 17 -BYTE # 32 -PORT # 17 -BYTE # 33 -PORT # 17 -BYTE # 34 -PORT # 17 -BYTE # 35 -PORT # 17 -BYTE # 36 -PORT # 17 -BYTE # 37 -PORT # 17 -BYTE # 38 -PORT # 17 -BYTE # 39 -PORT # 17 -BYTE # 40 -PORT # 17 -BYTE # 41 -PORT # 17 -BYTE # 42 -PORT # 17 -BYTE # 43 -PORT # 17 -BYTE # 44 -PORT # 17 -BYTE # 45 -PORT # 17 -BYTE # 46 -PORT # 17 -BYTE # 47 -PORT # 17 -BYTE # 48 -PORT # 17 -BYTE # 49 -PORT # 17 -BYTE # 50 -PORT # 17 -BYTE # 51 -PORT # 17 -BYTE # 52 -PORT # 17 -BYTE # 53 -PORT # 17 -BYTE # 54 -PORT # 17 -BYTE # 55 -PORT # 17 -BYTE # 56 -PORT # 17 -BYTE # 57 -PORT # 17 -BYTE # 58 -PORT # 17 -BYTE # 59 -PORT # 17 -BYTE # 60 -PORT # 17 -BYTE # 61 -PORT # 17 -BYTE # 62 -PORT # 17 -BYTE # 63 -PORT # 17 -BYTE # 64 -PORT # 17 -BYTE # 65 -PORT # 17 -BYTE # 66 -PORT # 17 -BYTE # 67 -PORT # 17 -BYTE # 68 -PORT # 17 -BYTE # 69 -PORT # 17 -BYTE # 70 -PORT # 17 -BYTE # 71 -PORT # 17 -BYTE # 72 -PORT # 17 -BYTE # 73 -PORT # 17 -BYTE # 74 -PORT # 17 -BYTE # 75 -PORT # 17 -BYTE # 76 -PORT # 17 -BYTE # 77 -PORT # 17 -BYTE # 78 -PORT # 17 -BYTE # 79 -PORT # 17 -BYTE # 80 -PORT # 17 -BYTE # 81 -PORT # 17 -BYTE # 82 -PORT # 17 -BYTE # 83 -PORT # 17 -BYTE # 84 -PORT # 17 -BYTE # 85 -PORT # 17 -BYTE # 86 -PORT # 17 -BYTE # 87 -PORT # 17 -BYTE # 88 -PORT # 17 -BYTE # 89 -PORT # 17 -BYTE # 90 -PORT # 17 -BYTE # 91 -PORT # 17 -BYTE # 92 -PORT # 17 -BYTE # 93 -PORT # 17 -BYTE # 94 -PORT # 17 -BYTE # 95 -PORT # 17 -BYTE # 96 -PORT # 17 -BYTE # 97 -PORT # 17 -BYTE # 98 -PORT # 17 -BYTE # 99 -PORT # 17 -BYTE # 100 -PORT # 17 -BYTE # 101 -PORT # 17 -BYTE # 102 -PORT # 17 -BYTE # 103 -PORT # 17 -BYTE # 104 -PORT # 17 -BYTE # 105 -PORT # 17 -BYTE # 106 -PORT # 17 -BYTE # 107 -PORT # 17 -BYTE # 108 -PORT # 17 -BYTE # 109 -PORT # 17 -BYTE # 110 -PORT # 17 -BYTE # 111 -PORT # 17 -BYTE # 112 -PORT # 17 -BYTE # 113 -PORT # 17 -BYTE # 114 -PORT # 17 -BYTE # 115 -PORT # 17 -BYTE # 116 -PORT # 17 -BYTE # 117 -PORT # 17 -BYTE # 118 -PORT # 17 -BYTE # 119 -PORT # 17 -BYTE # 120 -PORT # 17 -BYTE # 121 -PORT # 17 -BYTE # 122 -PORT # 17 -BYTE # 123 -PORT # 17 -BYTE # 124 -PORT # 17 -BYTE # 125 -PORT # 17 -BYTE # 126 -PORT # 17 -BYTE # 127 -PORT # 17 -BYTE # 128 -PORT # 17 -BYTE # 129 -PORT # 17 -BYTE # 130 -PORT # 17 -BYTE # 131 -PORT # 17 -BYTE # 132 -PORT # 17 -BYTE # 133 -PORT # 17 -BYTE # 134 -PORT # 17 -BYTE # 135 -PORT # 17 -BYTE # 136 -PORT # 17 -BYTE # 137 -PORT # 17 -BYTE # 138 -PORT # 17 -BYTE # 139 -PORT # 17 -BYTE # 140 -PORT # 17 -BYTE # 141 -PORT # 17 -BYTE # 142 -PORT # 17 -BYTE # 143 -PORT # 17 -BYTE # 144 -PORT # 17 -BYTE # 145 -PORT # 17 -BYTE # 146 -PORT # 17 -BYTE # 147 -PORT # 17 -BYTE # 148 -PORT # 17 -BYTE # 149 -PORT # 17 -BYTE # 150 -PORT # 17 -BYTE # 151 -PORT # 17 -BYTE # 152 -PORT # 17 -BYTE # 153 -PORT # 17 -BYTE # 154 -PORT # 17 -BYTE # 155 -PORT # 17 -BYTE # 156 -PORT # 17 -BYTE # 157 -PORT # 17 -BYTE # 158 -PORT # 17 -BYTE # 159 -PORT # 17 -BYTE # 160 -PORT # 17 -BYTE # 161 -PORT # 17 -BYTE # 162 -PORT # 17 -BYTE # 163 -PORT # 17 -BYTE # 164 -PORT # 17 -BYTE # 165 -PORT # 17 -BYTE # 166 -PORT # 17 -BYTE # 167 -PORT # 17 -BYTE # 168 -PORT # 17 -BYTE # 169 -PORT # 17 -BYTE # 170 -PORT # 17 -BYTE # 171 -PORT # 17 -BYTE # 172 -PORT # 17 -BYTE # 173 -PORT # 17 -BYTE # 174 -PORT # 17 -BYTE # 175 -PORT # 17 -BYTE # 176 -PORT # 17 -BYTE # 177 -PORT # 17 -BYTE # 178 -PORT # 17 -BYTE # 179 -PORT # 17 -BYTE # 180 -PORT # 17 -BYTE # 181 -PORT # 17 -BYTE # 182 -PORT # 17 -BYTE # 183 -PORT # 17 -BYTE # 184 -PORT # 17 -BYTE # 185 -PORT # 17 -BYTE # 186 -PORT # 17 -BYTE # 187 -PORT # 17 -BYTE # 188 -PORT # 17 -BYTE # 189 -PORT # 17 -BYTE # 190 -PORT # 17 -BYTE # 191 -PORT # 17 -BYTE # 192 -PORT # 17 -BYTE # 193 -PORT # 17 -BYTE # 194 -PORT # 17 -BYTE # 195 -PORT # 17 -BYTE # 196 -PORT # 17 -BYTE # 197 -PORT # 17 -BYTE # 198 -PORT # 17 -BYTE # 199 -PORT # 17 -BYTE # 200 -PORT # 17 -BYTE # 201 -PORT # 17 -BYTE # 202 -PORT # 17 -BYTE # 203 -PORT # 17 -BYTE # 204 -PORT # 17 -BYTE # 205 -PORT # 17 -BYTE # 206 -PORT # 17 -BYTE # 207 -PORT # 17 -BYTE # 208 -PORT # 17 -BYTE # 209 -PORT # 17 -BYTE # 210 -PORT # 17 -BYTE # 211 -PORT # 17 -BYTE # 212 -PORT # 17 -BYTE # 213 -PORT # 17 -BYTE # 214 -PORT # 17 -BYTE # 215 -PORT # 17 -BYTE # 216 -PORT # 17 -BYTE # 217 -PORT # 17 -BYTE # 218 -PORT # 17 -BYTE # 219 -PORT # 17 -BYTE # 220 -PORT # 17 -BYTE # 221 -PORT # 17 -BYTE # 222 -PORT # 17 -BYTE # 223 -PORT # 17 -BYTE # 224 -PORT # 17 -BYTE # 225 -PORT # 17 -BYTE # 226 -PORT # 17 -BYTE # 227 -PORT # 17 -BYTE # 228 -PORT # 17 -BYTE # 229 -PORT # 17 -BYTE # 230 -PORT # 17 -BYTE # 231 -PORT # 17 -BYTE # 232 -PORT # 17 -BYTE # 233 -PORT # 17 -BYTE # 234 -PORT # 17 -BYTE # 235 -PORT # 17 -BYTE # 236 -PORT # 17 -BYTE # 237 -PORT # 17 -BYTE # 238 -PORT # 17 -BYTE # 239 -PORT # 17 -BYTE # 240 -PORT # 17 -BYTE # 241 -PORT # 17 -BYTE # 242 -PORT # 17 -BYTE # 243 -PORT # 17 -BYTE # 244 -PORT # 17 -BYTE # 245 -PORT # 17 -BYTE # 246 -PORT # 17 -BYTE # 247 -PORT # 17 -BYTE # 248 -PORT # 17 -BYTE # 249 -PORT # 17 -BYTE # 250 -PORT # 17 -BYTE # 251 -PORT # 17 -BYTE # 252 -PORT # 17 -BYTE # 253 -PORT # 17 -BYTE # 254 -PORT # 17 -BYTE # 255 -PORT # 18 -BYTE # 0 -PORT # 18 -BYTE # 1 -PORT # 18 -BYTE # 2 -PORT # 18 -BYTE # 3 -PORT # 18 -BYTE # 4 -PORT # 18 -BYTE # 5 -PORT # 18 -BYTE # 6 -PORT # 18 -BYTE # 7 -PORT # 18 -BYTE # 8 -PORT # 18 -BYTE # 9 -PORT # 18 -BYTE # 10 -PORT # 18 -BYTE # 11 -PORT # 18 -BYTE # 12 -PORT # 18 -BYTE # 13 -PORT # 18 -BYTE # 14 -PORT # 18 -BYTE # 15 -PORT # 18 -BYTE # 16 -PORT # 18 -BYTE # 17 -PORT # 18 -BYTE # 18 -PORT # 18 -BYTE # 19 -PORT # 18 -BYTE # 20 -PORT # 18 -BYTE # 21 -PORT # 18 -BYTE # 22 -PORT # 18 -BYTE # 23 -PORT # 18 -BYTE # 24 -PORT # 18 -BYTE # 25 -PORT # 18 -BYTE # 26 -PORT # 18 -BYTE # 27 -PORT # 18 -BYTE # 28 -PORT # 18 -BYTE # 29 -PORT # 18 -BYTE # 30 -PORT # 18 -BYTE # 31 -PORT # 18 -BYTE # 32 -PORT # 18 -BYTE # 33 -PORT # 18 -BYTE # 34 -PORT # 18 -BYTE # 35 -PORT # 18 -BYTE # 36 -PORT # 18 -BYTE # 37 -PORT # 18 -BYTE # 38 -PORT # 18 -BYTE # 39 -PORT # 18 -BYTE # 40 -PORT # 18 -BYTE # 41 -PORT # 18 -BYTE # 42 -PORT # 18 -BYTE # 43 -PORT # 18 -BYTE # 44 -PORT # 18 -BYTE # 45 -PORT # 18 -BYTE # 46 -PORT # 18 -BYTE # 47 -PORT # 18 -BYTE # 48 -PORT # 18 -BYTE # 49 -PORT # 18 -BYTE # 50 -PORT # 18 -BYTE # 51 -PORT # 18 -BYTE # 52 -PORT # 18 -BYTE # 53 -PORT # 18 -BYTE # 54 -PORT # 18 -BYTE # 55 -PORT # 18 -BYTE # 56 -PORT # 18 -BYTE # 57 -PORT # 18 -BYTE # 58 -PORT # 18 -BYTE # 59 -PORT # 18 -BYTE # 60 -PORT # 18 -BYTE # 61 -PORT # 18 -BYTE # 62 -PORT # 18 -BYTE # 63 -PORT # 18 -BYTE # 64 -PORT # 18 -BYTE # 65 -PORT # 18 -BYTE # 66 -PORT # 18 -BYTE # 67 -PORT # 18 -BYTE # 68 -PORT # 18 -BYTE # 69 -PORT # 18 -BYTE # 70 -PORT # 18 -BYTE # 71 -PORT # 18 -BYTE # 72 -PORT # 18 -BYTE # 73 -PORT # 18 -BYTE # 74 -PORT # 18 -BYTE # 75 -PORT # 18 -BYTE # 76 -PORT # 18 -BYTE # 77 -PORT # 18 -BYTE # 78 -PORT # 18 -BYTE # 79 -PORT # 18 -BYTE # 80 -PORT # 18 -BYTE # 81 -PORT # 18 -BYTE # 82 -PORT # 18 -BYTE # 83 -PORT # 18 -BYTE # 84 -PORT # 18 -BYTE # 85 -PORT # 18 -BYTE # 86 -PORT # 18 -BYTE # 87 -PORT # 18 -BYTE # 88 -PORT # 18 -BYTE # 89 -PORT # 18 -BYTE # 90 -PORT # 18 -BYTE # 91 -PORT # 18 -BYTE # 92 -PORT # 18 -BYTE # 93 -PORT # 18 -BYTE # 94 -PORT # 18 -BYTE # 95 -PORT # 18 -BYTE # 96 -PORT # 18 -BYTE # 97 -PORT # 18 -BYTE # 98 -PORT # 18 -BYTE # 99 -PORT # 18 -BYTE # 100 -PORT # 18 -BYTE # 101 -PORT # 18 -BYTE # 102 -PORT # 18 -BYTE # 103 -PORT # 18 -BYTE # 104 -PORT # 18 -BYTE # 105 -PORT # 18 -BYTE # 106 -PORT # 18 -BYTE # 107 -PORT # 18 -BYTE # 108 -PORT # 18 -BYTE # 109 -PORT # 18 -BYTE # 110 -PORT # 18 -BYTE # 111 -PORT # 18 -BYTE # 112 -PORT # 18 -BYTE # 113 -PORT # 18 -BYTE # 114 -PORT # 18 -BYTE # 115 -PORT # 18 -BYTE # 116 -PORT # 18 -BYTE # 117 -PORT # 18 -BYTE # 118 -PORT # 18 -BYTE # 119 -PORT # 18 -BYTE # 120 -PORT # 18 -BYTE # 121 -PORT # 18 -BYTE # 122 -PORT # 18 -BYTE # 123 -PORT # 18 -BYTE # 124 -PORT # 18 -BYTE # 125 -PORT # 18 -BYTE # 126 -PORT # 18 -BYTE # 127 -PORT # 18 -BYTE # 128 -PORT # 18 -BYTE # 129 -PORT # 18 -BYTE # 130 -PORT # 18 -BYTE # 131 -PORT # 18 -BYTE # 132 -PORT # 18 -BYTE # 133 -PORT # 18 -BYTE # 134 -PORT # 18 -BYTE # 135 -PORT # 18 -BYTE # 136 -PORT # 18 -BYTE # 137 -PORT # 18 -BYTE # 138 -PORT # 18 -BYTE # 139 -PORT # 18 -BYTE # 140 -PORT # 18 -BYTE # 141 -PORT # 18 -BYTE # 142 -PORT # 18 -BYTE # 143 -PORT # 18 -BYTE # 144 -PORT # 18 -BYTE # 145 -PORT # 18 -BYTE # 146 -PORT # 18 -BYTE # 147 -PORT # 18 -BYTE # 148 -PORT # 18 -BYTE # 149 -PORT # 18 -BYTE # 150 -PORT # 18 -BYTE # 151 -PORT # 18 -BYTE # 152 -PORT # 18 -BYTE # 153 -PORT # 18 -BYTE # 154 -PORT # 18 -BYTE # 155 -PORT # 18 -BYTE # 156 -PORT # 18 -BYTE # 157 -PORT # 18 -BYTE # 158 -PORT # 18 -BYTE # 159 -PORT # 18 -BYTE # 160 -PORT # 18 -BYTE # 161 -PORT # 18 -BYTE # 162 -PORT # 18 -BYTE # 163 -PORT # 18 -BYTE # 164 -PORT # 18 -BYTE # 165 -PORT # 18 -BYTE # 166 -PORT # 18 -BYTE # 167 -PORT # 18 -BYTE # 168 -PORT # 18 -BYTE # 169 -PORT # 18 -BYTE # 170 -PORT # 18 -BYTE # 171 -PORT # 18 -BYTE # 172 -PORT # 18 -BYTE # 173 -PORT # 18 -BYTE # 174 -PORT # 18 -BYTE # 175 -PORT # 18 -BYTE # 176 -PORT # 18 -BYTE # 177 -PORT # 18 -BYTE # 178 -PORT # 18 -BYTE # 179 -PORT # 18 -BYTE # 180 -PORT # 18 -BYTE # 181 -PORT # 18 -BYTE # 182 -PORT # 18 -BYTE # 183 -PORT # 18 -BYTE # 184 -PORT # 18 -BYTE # 185 -PORT # 18 -BYTE # 186 -PORT # 18 -BYTE # 187 -PORT # 18 -BYTE # 188 -PORT # 18 -BYTE # 189 -PORT # 18 -BYTE # 190 -PORT # 18 -BYTE # 191 -PORT # 18 -BYTE # 192 -PORT # 18 -BYTE # 193 -PORT # 18 -BYTE # 194 -PORT # 18 -BYTE # 195 -PORT # 18 -BYTE # 196 -PORT # 18 -BYTE # 197 -PORT # 18 -BYTE # 198 -PORT # 18 -BYTE # 199 -PORT # 18 -BYTE # 200 -PORT # 18 -BYTE # 201 -PORT # 18 -BYTE # 202 -PORT # 18 -BYTE # 203 -PORT # 18 -BYTE # 204 -PORT # 18 -BYTE # 205 -PORT # 18 -BYTE # 206 -PORT # 18 -BYTE # 207 -PORT # 18 -BYTE # 208 -PORT # 18 -BYTE # 209 -PORT # 18 -BYTE # 210 -PORT # 18 -BYTE # 211 -PORT # 18 -BYTE # 212 -PORT # 18 -BYTE # 213 -PORT # 18 -BYTE # 214 -PORT # 18 -BYTE # 215 -PORT # 18 -BYTE # 216 -PORT # 18 -BYTE # 217 -PORT # 18 -BYTE # 218 -PORT # 18 -BYTE # 219 -PORT # 18 -BYTE # 220 -PORT # 18 -BYTE # 221 -PORT # 18 -BYTE # 222 -PORT # 18 -BYTE # 223 -PORT # 18 -BYTE # 224 -PORT # 18 -BYTE # 225 -PORT # 18 -BYTE # 226 -PORT # 18 -BYTE # 227 -PORT # 18 -BYTE # 228 -PORT # 18 -BYTE # 229 -PORT # 18 -BYTE # 230 -PORT # 18 -BYTE # 231 -PORT # 18 -BYTE # 232 -PORT # 18 -BYTE # 233 -PORT # 18 -BYTE # 234 -PORT # 18 -BYTE # 235 -PORT # 18 -BYTE # 236 -PORT # 18 -BYTE # 237 -PORT # 18 -BYTE # 238 -PORT # 18 -BYTE # 239 -PORT # 18 -BYTE # 240 -PORT # 18 -BYTE # 241 -PORT # 18 -BYTE # 242 -PORT # 18 -BYTE # 243 -PORT # 18 -BYTE # 244 -PORT # 18 -BYTE # 245 -PORT # 18 -BYTE # 246 -PORT # 18 -BYTE # 247 -PORT # 18 -BYTE # 248 -PORT # 18 -BYTE # 249 -PORT # 18 -BYTE # 250 -PORT # 18 -BYTE # 251 -PORT # 18 -BYTE # 252 -PORT # 18 -BYTE # 253 -PORT # 18 -BYTE # 254 -PORT # 18 -BYTE # 255 -PORT # 19 -BYTE # 0 -PORT # 19 -BYTE # 1 -PORT # 19 -BYTE # 2 -PORT # 19 -BYTE # 3 -PORT # 19 -BYTE # 4 -PORT # 19 -BYTE # 5 -PORT # 19 -BYTE # 6 -PORT # 19 -BYTE # 7 -PORT # 19 -BYTE # 8 -PORT # 19 -BYTE # 9 -PORT # 19 -BYTE # 10 -PORT # 19 -BYTE # 11 -PORT # 19 -BYTE # 12 -PORT # 19 -BYTE # 13 -PORT # 19 -BYTE # 14 -PORT # 19 -BYTE # 15 -PORT # 19 -BYTE # 16 -PORT # 19 -BYTE # 17 -PORT # 19 -BYTE # 18 -PORT # 19 -BYTE # 19 -PORT # 19 -BYTE # 20 -PORT # 19 -BYTE # 21 -PORT # 19 -BYTE # 22 -PORT # 19 -BYTE # 23 -PORT # 19 -BYTE # 24 -PORT # 19 -BYTE # 25 -PORT # 19 -BYTE # 26 -PORT # 19 -BYTE # 27 -PORT # 19 -BYTE # 28 -PORT # 19 -BYTE # 29 -PORT # 19 -BYTE # 30 -PORT # 19 -BYTE # 31 -PORT # 19 -BYTE # 32 -PORT # 19 -BYTE # 33 -PORT # 19 -BYTE # 34 -PORT # 19 -BYTE # 35 -PORT # 19 -BYTE # 36 -PORT # 19 -BYTE # 37 -PORT # 19 -BYTE # 38 -PORT # 19 -BYTE # 39 -PORT # 19 -BYTE # 40 -PORT # 19 -BYTE # 41 -PORT # 19 -BYTE # 42 -PORT # 19 -BYTE # 43 -PORT # 19 -BYTE # 44 -PORT # 19 -BYTE # 45 -PORT # 19 -BYTE # 46 -PORT # 19 -BYTE # 47 -PORT # 19 -BYTE # 48 -PORT # 19 -BYTE # 49 -PORT # 19 -BYTE # 50 -PORT # 19 -BYTE # 51 -PORT # 19 -BYTE # 52 -PORT # 19 -BYTE # 53 -PORT # 19 -BYTE # 54 -PORT # 19 -BYTE # 55 -PORT # 19 -BYTE # 56 -PORT # 19 -BYTE # 57 -PORT # 19 -BYTE # 58 -PORT # 19 -BYTE # 59 -PORT # 19 -BYTE # 60 -PORT # 19 -BYTE # 61 -PORT # 19 -BYTE # 62 -PORT # 19 -BYTE # 63 -PORT # 19 -BYTE # 64 -PORT # 19 -BYTE # 65 -PORT # 19 -BYTE # 66 -PORT # 19 -BYTE # 67 -PORT # 19 -BYTE # 68 -PORT # 19 -BYTE # 69 -PORT # 19 -BYTE # 70 -PORT # 19 -BYTE # 71 -PORT # 19 -BYTE # 72 -PORT # 19 -BYTE # 73 -PORT # 19 -BYTE # 74 -PORT # 19 -BYTE # 75 -PORT # 19 -BYTE # 76 -PORT # 19 -BYTE # 77 -PORT # 19 -BYTE # 78 -PORT # 19 -BYTE # 79 -PORT # 19 -BYTE # 80 -PORT # 19 -BYTE # 81 -PORT # 19 -BYTE # 82 -PORT # 19 -BYTE # 83 -PORT # 19 -BYTE # 84 -PORT # 19 -BYTE # 85 -PORT # 19 -BYTE # 86 -PORT # 19 -BYTE # 87 -PORT # 19 -BYTE # 88 -PORT # 19 -BYTE # 89 -PORT # 19 -BYTE # 90 -PORT # 19 -BYTE # 91 -PORT # 19 -BYTE # 92 -PORT # 19 -BYTE # 93 -PORT # 19 -BYTE # 94 -PORT # 19 -BYTE # 95 -PORT # 19 -BYTE # 96 -PORT # 19 -BYTE # 97 -PORT # 19 -BYTE # 98 -PORT # 19 -BYTE # 99 -PORT # 19 -BYTE # 100 -PORT # 19 -BYTE # 101 -PORT # 19 -BYTE # 102 -PORT # 19 -BYTE # 103 -PORT # 19 -BYTE # 104 -PORT # 19 -BYTE # 105 -PORT # 19 -BYTE # 106 -PORT # 19 -BYTE # 107 -PORT # 19 -BYTE # 108 -PORT # 19 -BYTE # 109 -PORT # 19 -BYTE # 110 -PORT # 19 -BYTE # 111 -PORT # 19 -BYTE # 112 -PORT # 19 -BYTE # 113 -PORT # 19 -BYTE # 114 -PORT # 19 -BYTE # 115 -PORT # 19 -BYTE # 116 -PORT # 19 -BYTE # 117 -PORT # 19 -BYTE # 118 -PORT # 19 -BYTE # 119 -PORT # 19 -BYTE # 120 -PORT # 19 -BYTE # 121 -PORT # 19 -BYTE # 122 -PORT # 19 -BYTE # 123 -PORT # 19 -BYTE # 124 -PORT # 19 -BYTE # 125 -PORT # 19 -BYTE # 126 -PORT # 19 -BYTE # 127 -PORT # 19 -BYTE # 128 -PORT # 19 -BYTE # 129 -PORT # 19 -BYTE # 130 -PORT # 19 -BYTE # 131 -PORT # 19 -BYTE # 132 -PORT # 19 -BYTE # 133 -PORT # 19 -BYTE # 134 -PORT # 19 -BYTE # 135 -PORT # 19 -BYTE # 136 -PORT # 19 -BYTE # 137 -PORT # 19 -BYTE # 138 -PORT # 19 -BYTE # 139 -PORT # 19 -BYTE # 140 -PORT # 19 -BYTE # 141 -PORT # 19 -BYTE # 142 -PORT # 19 -BYTE # 143 -PORT # 19 -BYTE # 144 -PORT # 19 -BYTE # 145 -PORT # 19 -BYTE # 146 -PORT # 19 -BYTE # 147 -PORT # 19 -BYTE # 148 -PORT # 19 -BYTE # 149 -PORT # 19 -BYTE # 150 -PORT # 19 -BYTE # 151 -PORT # 19 -BYTE # 152 -PORT # 19 -BYTE # 153 -PORT # 19 -BYTE # 154 -PORT # 19 -BYTE # 155 -PORT # 19 -BYTE # 156 -PORT # 19 -BYTE # 157 -PORT # 19 -BYTE # 158 -PORT # 19 -BYTE # 159 -PORT # 19 -BYTE # 160 -PORT # 19 -BYTE # 161 -PORT # 19 -BYTE # 162 -PORT # 19 -BYTE # 163 -PORT # 19 -BYTE # 164 -PORT # 19 -BYTE # 165 -PORT # 19 -BYTE # 166 -PORT # 19 -BYTE # 167 -PORT # 19 -BYTE # 168 -PORT # 19 -BYTE # 169 -PORT # 19 -BYTE # 170 -PORT # 19 -BYTE # 171 -PORT # 19 -BYTE # 172 -PORT # 19 -BYTE # 173 -PORT # 19 -BYTE # 174 -PORT # 19 -BYTE # 175 -PORT # 19 -BYTE # 176 -PORT # 19 -BYTE # 177 -PORT # 19 -BYTE # 178 -PORT # 19 -BYTE # 179 -PORT # 19 -BYTE # 180 -PORT # 19 -BYTE # 181 -PORT # 19 -BYTE # 182 -PORT # 19 -BYTE # 183 -PORT # 19 -BYTE # 184 -PORT # 19 -BYTE # 185 -PORT # 19 -BYTE # 186 -PORT # 19 -BYTE # 187 -PORT # 19 -BYTE # 188 -PORT # 19 -BYTE # 189 -PORT # 19 -BYTE # 190 -PORT # 19 -BYTE # 191 -PORT # 19 -BYTE # 192 -PORT # 19 -BYTE # 193 -PORT # 19 -BYTE # 194 -PORT # 19 -BYTE # 195 -PORT # 19 -BYTE # 196 -PORT # 19 -BYTE # 197 -PORT # 19 -BYTE # 198 -PORT # 19 -BYTE # 199 -PORT # 19 -BYTE # 200 -PORT # 19 -BYTE # 201 -PORT # 19 -BYTE # 202 -PORT # 19 -BYTE # 203 -PORT # 19 -BYTE # 204 -PORT # 19 -BYTE # 205 -PORT # 19 -BYTE # 206 -PORT # 19 -BYTE # 207 -PORT # 19 -BYTE # 208 -PORT # 19 -BYTE # 209 -PORT # 19 -BYTE # 210 -PORT # 19 -BYTE # 211 -PORT # 19 -BYTE # 212 -PORT # 19 -BYTE # 213 -PORT # 19 -BYTE # 214 -PORT # 19 -BYTE # 215 -PORT # 19 -BYTE # 216 -PORT # 19 -BYTE # 217 -PORT # 19 -BYTE # 218 -PORT # 19 -BYTE # 219 -PORT # 19 -BYTE # 220 -PORT # 19 -BYTE # 221 -PORT # 19 -BYTE # 222 -PORT # 19 -BYTE # 223 -PORT # 19 -BYTE # 224 -PORT # 19 -BYTE # 225 -PORT # 19 -BYTE # 226 -PORT # 19 -BYTE # 227 -PORT # 19 -BYTE # 228 -PORT # 19 -BYTE # 229 -PORT # 19 -BYTE # 230 -PORT # 19 -BYTE # 231 -PORT # 19 -BYTE # 232 -PORT # 19 -BYTE # 233 -PORT # 19 -BYTE # 234 -PORT # 19 -BYTE # 235 -PORT # 19 -BYTE # 236 -PORT # 19 -BYTE # 237 -PORT # 19 -BYTE # 238 -PORT # 19 -BYTE # 239 -PORT # 19 -BYTE # 240 -PORT # 19 -BYTE # 241 -PORT # 19 -BYTE # 242 -PORT # 19 -BYTE # 243 -PORT # 19 -BYTE # 244 -PORT # 19 -BYTE # 245 -PORT # 19 -BYTE # 246 -PORT # 19 -BYTE # 247 -PORT # 19 -BYTE # 248 -PORT # 19 -BYTE # 249 -PORT # 19 -BYTE # 250 -PORT # 19 -BYTE # 251 -PORT # 19 -BYTE # 252 -PORT # 19 -BYTE # 253 -PORT # 19 -BYTE # 254 -PORT # 19 -BYTE # 255 -PORT # 20 -BYTE # 0 -PORT # 20 -BYTE # 1 -PORT # 20 -BYTE # 2 -PORT # 20 -BYTE # 3 -PORT # 20 -BYTE # 4 -PORT # 20 -BYTE # 5 -PORT # 20 -BYTE # 6 -PORT # 20 -BYTE # 7 -PORT # 20 -BYTE # 8 -PORT # 20 -BYTE # 9 -PORT # 20 -BYTE # 10 -PORT # 20 -BYTE # 11 -PORT # 20 -BYTE # 12 -PORT # 20 -BYTE # 13 -PORT # 20 -BYTE # 14 -PORT # 20 -BYTE # 15 -PORT # 20 -BYTE # 16 -PORT # 20 -BYTE # 17 -PORT # 20 -BYTE # 18 -PORT # 20 -BYTE # 19 -PORT # 20 -BYTE # 20 -PORT # 20 -BYTE # 21 -PORT # 20 -BYTE # 22 -PORT # 20 -BYTE # 23 -PORT # 20 -BYTE # 24 -PORT # 20 -BYTE # 25 -PORT # 20 -BYTE # 26 -PORT # 20 -BYTE # 27 -PORT # 20 -BYTE # 28 -PORT # 20 -BYTE # 29 -PORT # 20 -BYTE # 30 -PORT # 20 -BYTE # 31 -PORT # 20 -BYTE # 32 -PORT # 20 -BYTE # 33 -PORT # 20 -BYTE # 34 -PORT # 20 -BYTE # 35 -PORT # 20 -BYTE # 36 -PORT # 20 -BYTE # 37 -PORT # 20 -BYTE # 38 -PORT # 20 -BYTE # 39 -PORT # 20 -BYTE # 40 -PORT # 20 -BYTE # 41 -PORT # 20 -BYTE # 42 -PORT # 20 -BYTE # 43 -PORT # 20 -BYTE # 44 -PORT # 20 -BYTE # 45 -PORT # 20 -BYTE # 46 -PORT # 20 -BYTE # 47 -PORT # 20 -BYTE # 48 -PORT # 20 -BYTE # 49 -PORT # 20 -BYTE # 50 -PORT # 20 -BYTE # 51 -PORT # 20 -BYTE # 52 -PORT # 20 -BYTE # 53 -PORT # 20 -BYTE # 54 -PORT # 20 -BYTE # 55 -PORT # 20 -BYTE # 56 -PORT # 20 -BYTE # 57 -PORT # 20 -BYTE # 58 -PORT # 20 -BYTE # 59 -PORT # 20 -BYTE # 60 -PORT # 20 -BYTE # 61 -PORT # 20 -BYTE # 62 -PORT # 20 -BYTE # 63 -PORT # 20 -BYTE # 64 -PORT # 20 -BYTE # 65 -PORT # 20 -BYTE # 66 -PORT # 20 -BYTE # 67 -PORT # 20 -BYTE # 68 -PORT # 20 -BYTE # 69 -PORT # 20 -BYTE # 70 -PORT # 20 -BYTE # 71 -PORT # 20 -BYTE # 72 -PORT # 20 -BYTE # 73 -PORT # 20 -BYTE # 74 -PORT # 20 -BYTE # 75 -PORT # 20 -BYTE # 76 -PORT # 20 -BYTE # 77 -PORT # 20 -BYTE # 78 -PORT # 20 -BYTE # 79 -PORT # 20 -BYTE # 80 -PORT # 20 -BYTE # 81 -PORT # 20 -BYTE # 82 -PORT # 20 -BYTE # 83 -PORT # 20 -BYTE # 84 -PORT # 20 -BYTE # 85 -PORT # 20 -BYTE # 86 -PORT # 20 -BYTE # 87 -PORT # 20 -BYTE # 88 -PORT # 20 -BYTE # 89 -PORT # 20 -BYTE # 90 -PORT # 20 -BYTE # 91 -PORT # 20 -BYTE # 92 -PORT # 20 -BYTE # 93 -PORT # 20 -BYTE # 94 -PORT # 20 -BYTE # 95 -PORT # 20 -BYTE # 96 -PORT # 20 -BYTE # 97 -PORT # 20 -BYTE # 98 -PORT # 20 -BYTE # 99 -PORT # 20 -BYTE # 100 -PORT # 20 -BYTE # 101 -PORT # 20 -BYTE # 102 -PORT # 20 -BYTE # 103 -PORT # 20 -BYTE # 104 -PORT # 20 -BYTE # 105 -PORT # 20 -BYTE # 106 -PORT # 20 -BYTE # 107 -PORT # 20 -BYTE # 108 -PORT # 20 -BYTE # 109 -PORT # 20 -BYTE # 110 -PORT # 20 -BYTE # 111 -PORT # 20 -BYTE # 112 -PORT # 20 -BYTE # 113 -PORT # 20 -BYTE # 114 -PORT # 20 -BYTE # 115 -PORT # 20 -BYTE # 116 -PORT # 20 -BYTE # 117 -PORT # 20 -BYTE # 118 -PORT # 20 -BYTE # 119 -PORT # 20 -BYTE # 120 -PORT # 20 -BYTE # 121 -PORT # 20 -BYTE # 122 -PORT # 20 -BYTE # 123 -PORT # 20 -BYTE # 124 -PORT # 20 -BYTE # 125 -PORT # 20 -BYTE # 126 -PORT # 20 -BYTE # 127 -PORT # 20 -BYTE # 128 -PORT # 20 -BYTE # 129 -PORT # 20 -BYTE # 130 -PORT # 20 -BYTE # 131 -PORT # 20 -BYTE # 132 -PORT # 20 -BYTE # 133 -PORT # 20 -BYTE # 134 -PORT # 20 -BYTE # 135 -PORT # 20 -BYTE # 136 -PORT # 20 -BYTE # 137 -PORT # 20 -BYTE # 138 -PORT # 20 -BYTE # 139 -PORT # 20 -BYTE # 140 -PORT # 20 -BYTE # 141 -PORT # 20 -BYTE # 142 -PORT # 20 -BYTE # 143 -PORT # 20 -BYTE # 144 -PORT # 20 -BYTE # 145 -PORT # 20 -BYTE # 146 -PORT # 20 -BYTE # 147 -PORT # 20 -BYTE # 148 -PORT # 20 -BYTE # 149 -PORT # 20 -BYTE # 150 -PORT # 20 -BYTE # 151 -PORT # 20 -BYTE # 152 -PORT # 20 -BYTE # 153 -PORT # 20 -BYTE # 154 -PORT # 20 -BYTE # 155 -PORT # 20 -BYTE # 156 -PORT # 20 -BYTE # 157 -PORT # 20 -BYTE # 158 -PORT # 20 -BYTE # 159 -PORT # 20 -BYTE # 160 -PORT # 20 -BYTE # 161 -PORT # 20 -BYTE # 162 -PORT # 20 -BYTE # 163 -PORT # 20 -BYTE # 164 -PORT # 20 -BYTE # 165 -PORT # 20 -BYTE # 166 -PORT # 20 -BYTE # 167 -PORT # 20 -BYTE # 168 -PORT # 20 -BYTE # 169 -PORT # 20 -BYTE # 170 -PORT # 20 -BYTE # 171 -PORT # 20 -BYTE # 172 -PORT # 20 -BYTE # 173 -PORT # 20 -BYTE # 174 -PORT # 20 -BYTE # 175 -PORT # 20 -BYTE # 176 -PORT # 20 -BYTE # 177 -PORT # 20 -BYTE # 178 -PORT # 20 -BYTE # 179 -PORT # 20 -BYTE # 180 -PORT # 20 -BYTE # 181 -PORT # 20 -BYTE # 182 -PORT # 20 -BYTE # 183 -PORT # 20 -BYTE # 184 -PORT # 20 -BYTE # 185 -PORT # 20 -BYTE # 186 -PORT # 20 -BYTE # 187 -PORT # 20 -BYTE # 188 -PORT # 20 -BYTE # 189 -PORT # 20 -BYTE # 190 -PORT # 20 -BYTE # 191 -PORT # 20 -BYTE # 192 -PORT # 20 -BYTE # 193 -PORT # 20 -BYTE # 194 -PORT # 20 -BYTE # 195 -PORT # 20 -BYTE # 196 -PORT # 20 -BYTE # 197 -PORT # 20 -BYTE # 198 -PORT # 20 -BYTE # 199 -PORT # 20 -BYTE # 200 -PORT # 20 -BYTE # 201 -PORT # 20 -BYTE # 202 -PORT # 20 -BYTE # 203 -PORT # 20 -BYTE # 204 -PORT # 20 -BYTE # 205 -PORT # 20 -BYTE # 206 -PORT # 20 -BYTE # 207 -PORT # 20 -BYTE # 208 -PORT # 20 -BYTE # 209 -PORT # 20 -BYTE # 210 -PORT # 20 -BYTE # 211 -PORT # 20 -BYTE # 212 -PORT # 20 -BYTE # 213 -PORT # 20 -BYTE # 214 -PORT # 20 -BYTE # 215 -PORT # 20 -BYTE # 216 -PORT # 20 -BYTE # 217 -PORT # 20 -BYTE # 218 -PORT # 20 -BYTE # 219 -PORT # 20 -BYTE # 220 -PORT # 20 -BYTE # 221 -PORT # 20 -BYTE # 222 -PORT # 20 -BYTE # 223 -PORT # 20 -BYTE # 224 -PORT # 20 -BYTE # 225 -PORT # 20 -BYTE # 226 -PORT # 20 -BYTE # 227 -PORT # 20 -BYTE # 228 -PORT # 20 -BYTE # 229 -PORT # 20 -BYTE # 230 -PORT # 20 -BYTE # 231 -PORT # 20 -BYTE # 232 -PORT # 20 -BYTE # 233 -PORT # 20 -BYTE # 234 -PORT # 20 -BYTE # 235 -PORT # 20 -BYTE # 236 -PORT # 20 -BYTE # 237 -PORT # 20 -BYTE # 238 -PORT # 20 -BYTE # 239 -PORT # 20 -BYTE # 240 -PORT # 20 -BYTE # 241 -PORT # 20 -BYTE # 242 -PORT # 20 -BYTE # 243 -PORT # 20 -BYTE # 244 -PORT # 20 -BYTE # 245 -PORT # 20 -BYTE # 246 -PORT # 20 -BYTE # 247 -PORT # 20 -BYTE # 248 -PORT # 20 -BYTE # 249 -PORT # 20 -BYTE # 250 -PORT # 20 -BYTE # 251 -PORT # 20 -BYTE # 252 -PORT # 20 -BYTE # 253 -PORT # 20 -BYTE # 254 -PORT # 20 -BYTE # 255 -PORT # 21 -BYTE # 0 -PORT # 21 -BYTE # 1 -PORT # 21 -BYTE # 2 -PORT # 21 -BYTE # 3 -PORT # 21 -BYTE # 4 -PORT # 21 -BYTE # 5 -PORT # 21 -BYTE # 6 -PORT # 21 -BYTE # 7 -PORT # 21 -BYTE # 8 -PORT # 21 -BYTE # 9 -PORT # 21 -BYTE # 10 -PORT # 21 -BYTE # 11 -PORT # 21 -BYTE # 12 -PORT # 21 -BYTE # 13 -PORT # 21 -BYTE # 14 -PORT # 21 -BYTE # 15 -PORT # 21 -BYTE # 16 -PORT # 21 -BYTE # 17 -PORT # 21 -BYTE # 18 -PORT # 21 -BYTE # 19 -PORT # 21 -BYTE # 20 -PORT # 21 -BYTE # 21 -PORT # 21 -BYTE # 22 -PORT # 21 -BYTE # 23 -PORT # 21 -BYTE # 24 -PORT # 21 -BYTE # 25 -PORT # 21 -BYTE # 26 -PORT # 21 -BYTE # 27 -PORT # 21 -BYTE # 28 -PORT # 21 -BYTE # 29 -PORT # 21 -BYTE # 30 -PORT # 21 -BYTE # 31 -PORT # 21 -BYTE # 32 -PORT # 21 -BYTE # 33 -PORT # 21 -BYTE # 34 -PORT # 21 -BYTE # 35 -PORT # 21 -BYTE # 36 -PORT # 21 -BYTE # 37 -PORT # 21 -BYTE # 38 -PORT # 21 -BYTE # 39 -PORT # 21 -BYTE # 40 -PORT # 21 -BYTE # 41 -PORT # 21 -BYTE # 42 -PORT # 21 -BYTE # 43 -PORT # 21 -BYTE # 44 -PORT # 21 -BYTE # 45 -PORT # 21 -BYTE # 46 -PORT # 21 -BYTE # 47 -PORT # 21 -BYTE # 48 -PORT # 21 -BYTE # 49 -PORT # 21 -BYTE # 50 -PORT # 21 -BYTE # 51 -PORT # 21 -BYTE # 52 -PORT # 21 -BYTE # 53 -PORT # 21 -BYTE # 54 -PORT # 21 -BYTE # 55 -PORT # 21 -BYTE # 56 -PORT # 21 -BYTE # 57 -PORT # 21 -BYTE # 58 -PORT # 21 -BYTE # 59 -PORT # 21 -BYTE # 60 -PORT # 21 -BYTE # 61 -PORT # 21 -BYTE # 62 -PORT # 21 -BYTE # 63 -PORT # 21 -BYTE # 64 -PORT # 21 -BYTE # 65 -PORT # 21 -BYTE # 66 -PORT # 21 -BYTE # 67 -PORT # 21 -BYTE # 68 -PORT # 21 -BYTE # 69 -PORT # 21 -BYTE # 70 -PORT # 21 -BYTE # 71 -PORT # 21 -BYTE # 72 -PORT # 21 -BYTE # 73 -PORT # 21 -BYTE # 74 -PORT # 21 -BYTE # 75 -PORT # 21 -BYTE # 76 -PORT # 21 -BYTE # 77 -PORT # 21 -BYTE # 78 -PORT # 21 -BYTE # 79 -PORT # 21 -BYTE # 80 -PORT # 21 -BYTE # 81 -PORT # 21 -BYTE # 82 -PORT # 21 -BYTE # 83 -PORT # 21 -BYTE # 84 -PORT # 21 -BYTE # 85 -PORT # 21 -BYTE # 86 -PORT # 21 -BYTE # 87 -PORT # 21 -BYTE # 88 -PORT # 21 -BYTE # 89 -PORT # 21 -BYTE # 90 -PORT # 21 -BYTE # 91 -PORT # 21 -BYTE # 92 -PORT # 21 -BYTE # 93 -PORT # 21 -BYTE # 94 -PORT # 21 -BYTE # 95 -PORT # 21 -BYTE # 96 -PORT # 21 -BYTE # 97 -PORT # 21 -BYTE # 98 -PORT # 21 -BYTE # 99 -PORT # 21 -BYTE # 100 -PORT # 21 -BYTE # 101 -PORT # 21 -BYTE # 102 -PORT # 21 -BYTE # 103 -PORT # 21 -BYTE # 104 -PORT # 21 -BYTE # 105 -PORT # 21 -BYTE # 106 -PORT # 21 -BYTE # 107 -PORT # 21 -BYTE # 108 -PORT # 21 -BYTE # 109 -PORT # 21 -BYTE # 110 -PORT # 21 -BYTE # 111 -PORT # 21 -BYTE # 112 -PORT # 21 -BYTE # 113 -PORT # 21 -BYTE # 114 -PORT # 21 -BYTE # 115 -PORT # 21 -BYTE # 116 -PORT # 21 -BYTE # 117 -PORT # 21 -BYTE # 118 -PORT # 21 -BYTE # 119 -PORT # 21 -BYTE # 120 -PORT # 21 -BYTE # 121 -PORT # 21 -BYTE # 122 -PORT # 21 -BYTE # 123 -PORT # 21 -BYTE # 124 -PORT # 21 -BYTE # 125 -PORT # 21 -BYTE # 126 -PORT # 21 -BYTE # 127 -PORT # 21 -BYTE # 128 -PORT # 21 -BYTE # 129 -PORT # 21 -BYTE # 130 -PORT # 21 -BYTE # 131 -PORT # 21 -BYTE # 132 -PORT # 21 -BYTE # 133 -PORT # 21 -BYTE # 134 -PORT # 21 -BYTE # 135 -PORT # 21 -BYTE # 136 -PORT # 21 -BYTE # 137 -PORT # 21 -BYTE # 138 -PORT # 21 -BYTE # 139 -PORT # 21 -BYTE # 140 -PORT # 21 -BYTE # 141 -PORT # 21 -BYTE # 142 -PORT # 21 -BYTE # 143 -PORT # 21 -BYTE # 144 -PORT # 21 -BYTE # 145 -PORT # 21 -BYTE # 146 -PORT # 21 -BYTE # 147 -PORT # 21 -BYTE # 148 -PORT # 21 -BYTE # 149 -PORT # 21 -BYTE # 150 -PORT # 21 -BYTE # 151 -PORT # 21 -BYTE # 152 -PORT # 21 -BYTE # 153 -PORT # 21 -BYTE # 154 -PORT # 21 -BYTE # 155 -PORT # 21 -BYTE # 156 -PORT # 21 -BYTE # 157 -PORT # 21 -BYTE # 158 -PORT # 21 -BYTE # 159 -PORT # 21 -BYTE # 160 -PORT # 21 -BYTE # 161 -PORT # 21 -BYTE # 162 -PORT # 21 -BYTE # 163 -PORT # 21 -BYTE # 164 -PORT # 21 -BYTE # 165 -PORT # 21 -BYTE # 166 -PORT # 21 -BYTE # 167 -PORT # 21 -BYTE # 168 -PORT # 21 -BYTE # 169 -PORT # 21 -BYTE # 170 -PORT # 21 -BYTE # 171 -PORT # 21 -BYTE # 172 -PORT # 21 -BYTE # 173 -PORT # 21 -BYTE # 174 -PORT # 21 -BYTE # 175 -PORT # 21 -BYTE # 176 -PORT # 21 -BYTE # 177 -PORT # 21 -BYTE # 178 -PORT # 21 -BYTE # 179 -PORT # 21 -BYTE # 180 -PORT # 21 -BYTE # 181 -PORT # 21 -BYTE # 182 -PORT # 21 -BYTE # 183 -PORT # 21 -BYTE # 184 -PORT # 21 -BYTE # 185 -PORT # 21 -BYTE # 186 -PORT # 21 -BYTE # 187 -PORT # 21 -BYTE # 188 -PORT # 21 -BYTE # 189 -PORT # 21 -BYTE # 190 -PORT # 21 -BYTE # 191 -PORT # 21 -BYTE # 192 -PORT # 21 -BYTE # 193 -PORT # 21 -BYTE # 194 -PORT # 21 -BYTE # 195 -PORT # 21 -BYTE # 196 -PORT # 21 -BYTE # 197 -PORT # 21 -BYTE # 198 -PORT # 21 -BYTE # 199 -PORT # 21 -BYTE # 200 -PORT # 21 -BYTE # 201 -PORT # 21 -BYTE # 202 -PORT # 21 -BYTE # 203 -PORT # 21 -BYTE # 204 -PORT # 21 -BYTE # 205 -PORT # 21 -BYTE # 206 -PORT # 21 -BYTE # 207 -PORT # 21 -BYTE # 208 -PORT # 21 -BYTE # 209 -PORT # 21 -BYTE # 210 -PORT # 21 -BYTE # 211 -PORT # 21 -BYTE # 212 -PORT # 21 -BYTE # 213 -PORT # 21 -BYTE # 214 -PORT # 21 -BYTE # 215 -PORT # 21 -BYTE # 216 -PORT # 21 -BYTE # 217 -PORT # 21 -BYTE # 218 -PORT # 21 -BYTE # 219 -PORT # 21 -BYTE # 220 -PORT # 21 -BYTE # 221 -PORT # 21 -BYTE # 222 -PORT # 21 -BYTE # 223 -PORT # 21 -BYTE # 224 -PORT # 21 -BYTE # 225 -PORT # 21 -BYTE # 226 -PORT # 21 -BYTE # 227 -PORT # 21 -BYTE # 228 -PORT # 21 -BYTE # 229 -PORT # 21 -BYTE # 230 -PORT # 21 -BYTE # 231 -PORT # 21 -BYTE # 232 -PORT # 21 -BYTE # 233 -PORT # 21 -BYTE # 234 -PORT # 21 -BYTE # 235 -PORT # 21 -BYTE # 236 -PORT # 21 -BYTE # 237 -PORT # 21 -BYTE # 238 -PORT # 21 -BYTE # 239 -PORT # 21 -BYTE # 240 -PORT # 21 -BYTE # 241 -PORT # 21 -BYTE # 242 -PORT # 21 -BYTE # 243 -PORT # 21 -BYTE # 244 -PORT # 21 -BYTE # 245 -PORT # 21 -BYTE # 246 -PORT # 21 -BYTE # 247 -PORT # 21 -BYTE # 248 -PORT # 21 -BYTE # 249 -PORT # 21 -BYTE # 250 -PORT # 21 -BYTE # 251 -PORT # 21 -BYTE # 252 -PORT # 21 -BYTE # 253 -PORT # 21 -BYTE # 254 -PORT # 21 -BYTE # 255 -PORT # 22 -BYTE # 0 -PORT # 22 -BYTE # 1 -PORT # 22 -BYTE # 2 -PORT # 22 -BYTE # 3 -PORT # 22 -BYTE # 4 -PORT # 22 -BYTE # 5 -PORT # 22 -BYTE # 6 -PORT # 22 -BYTE # 7 -PORT # 22 -BYTE # 8 -PORT # 22 -BYTE # 9 -PORT # 22 -BYTE # 10 -PORT # 22 -BYTE # 11 -PORT # 22 -BYTE # 12 -PORT # 22 -BYTE # 13 -PORT # 22 -BYTE # 14 -PORT # 22 -BYTE # 15 -PORT # 22 -BYTE # 16 -PORT # 22 -BYTE # 17 -PORT # 22 -BYTE # 18 -PORT # 22 -BYTE # 19 -PORT # 22 -BYTE # 20 -PORT # 22 -BYTE # 21 -PORT # 22 -BYTE # 22 -PORT # 22 -BYTE # 23 -PORT # 22 -BYTE # 24 -PORT # 22 -BYTE # 25 -PORT # 22 -BYTE # 26 -PORT # 22 -BYTE # 27 -PORT # 22 -BYTE # 28 -PORT # 22 -BYTE # 29 -PORT # 22 -BYTE # 30 -PORT # 22 -BYTE # 31 -PORT # 22 -BYTE # 32 -PORT # 22 -BYTE # 33 -PORT # 22 -BYTE # 34 -PORT # 22 -BYTE # 35 -PORT # 22 -BYTE # 36 -PORT # 22 -BYTE # 37 -PORT # 22 -BYTE # 38 -PORT # 22 -BYTE # 39 -PORT # 22 -BYTE # 40 -PORT # 22 -BYTE # 41 -PORT # 22 -BYTE # 42 -PORT # 22 -BYTE # 43 -PORT # 22 -BYTE # 44 -PORT # 22 -BYTE # 45 -PORT # 22 -BYTE # 46 -PORT # 22 -BYTE # 47 -PORT # 22 -BYTE # 48 -PORT # 22 -BYTE # 49 -PORT # 22 -BYTE # 50 -PORT # 22 -BYTE # 51 -PORT # 22 -BYTE # 52 -PORT # 22 -BYTE # 53 -PORT # 22 -BYTE # 54 -PORT # 22 -BYTE # 55 -PORT # 22 -BYTE # 56 -PORT # 22 -BYTE # 57 -PORT # 22 -BYTE # 58 -PORT # 22 -BYTE # 59 -PORT # 22 -BYTE # 60 -PORT # 22 -BYTE # 61 -PORT # 22 -BYTE # 62 -PORT # 22 -BYTE # 63 -PORT # 22 -BYTE # 64 -PORT # 22 -BYTE # 65 -PORT # 22 -BYTE # 66 -PORT # 22 -BYTE # 67 -PORT # 22 -BYTE # 68 -PORT # 22 -BYTE # 69 -PORT # 22 -BYTE # 70 -PORT # 22 -BYTE # 71 -PORT # 22 -BYTE # 72 -PORT # 22 -BYTE # 73 -PORT # 22 -BYTE # 74 -PORT # 22 -BYTE # 75 -PORT # 22 -BYTE # 76 -PORT # 22 -BYTE # 77 -PORT # 22 -BYTE # 78 -PORT # 22 -BYTE # 79 -PORT # 22 -BYTE # 80 -PORT # 22 -BYTE # 81 -PORT # 22 -BYTE # 82 -PORT # 22 -BYTE # 83 -PORT # 22 -BYTE # 84 -PORT # 22 -BYTE # 85 -PORT # 22 -BYTE # 86 -PORT # 22 -BYTE # 87 -PORT # 22 -BYTE # 88 -PORT # 22 -BYTE # 89 -PORT # 22 -BYTE # 90 -PORT # 22 -BYTE # 91 -PORT # 22 -BYTE # 92 -PORT # 22 -BYTE # 93 -PORT # 22 -BYTE # 94 -PORT # 22 -BYTE # 95 -PORT # 22 -BYTE # 96 -PORT # 22 -BYTE # 97 -PORT # 22 -BYTE # 98 -PORT # 22 -BYTE # 99 -PORT # 22 -BYTE # 100 -PORT # 22 -BYTE # 101 -PORT # 22 -BYTE # 102 -PORT # 22 -BYTE # 103 -PORT # 22 -BYTE # 104 -PORT # 22 -BYTE # 105 -PORT # 22 -BYTE # 106 -PORT # 22 -BYTE # 107 -PORT # 22 -BYTE # 108 -PORT # 22 -BYTE # 109 -PORT # 22 -BYTE # 110 -PORT # 22 -BYTE # 111 -PORT # 22 -BYTE # 112 -PORT # 22 -BYTE # 113 -PORT # 22 -BYTE # 114 -PORT # 22 -BYTE # 115 -PORT # 22 -BYTE # 116 -PORT # 22 -BYTE # 117 -PORT # 22 -BYTE # 118 -PORT # 22 -BYTE # 119 -PORT # 22 -BYTE # 120 -PORT # 22 -BYTE # 121 -PORT # 22 -BYTE # 122 -PORT # 22 -BYTE # 123 -PORT # 22 -BYTE # 124 -PORT # 22 -BYTE # 125 -PORT # 22 -BYTE # 126 -PORT # 22 -BYTE # 127 -PORT # 22 -BYTE # 128 -PORT # 22 -BYTE # 129 -PORT # 22 -BYTE # 130 -PORT # 22 -BYTE # 131 -PORT # 22 -BYTE # 132 -PORT # 22 -BYTE # 133 -PORT # 22 -BYTE # 134 -PORT # 22 -BYTE # 135 -PORT # 22 -BYTE # 136 -PORT # 22 -BYTE # 137 -PORT # 22 -BYTE # 138 -PORT # 22 -BYTE # 139 -PORT # 22 -BYTE # 140 -PORT # 22 -BYTE # 141 -PORT # 22 -BYTE # 142 -PORT # 22 -BYTE # 143 -PORT # 22 -BYTE # 144 -PORT # 22 -BYTE # 145 -PORT # 22 -BYTE # 146 -PORT # 22 -BYTE # 147 -PORT # 22 -BYTE # 148 -PORT # 22 -BYTE # 149 -PORT # 22 -BYTE # 150 -PORT # 22 -BYTE # 151 -PORT # 22 -BYTE # 152 -PORT # 22 -BYTE # 153 -PORT # 22 -BYTE # 154 -PORT # 22 -BYTE # 155 -PORT # 22 -BYTE # 156 -PORT # 22 -BYTE # 157 -PORT # 22 -BYTE # 158 -PORT # 22 -BYTE # 159 -PORT # 22 -BYTE # 160 -PORT # 22 -BYTE # 161 -PORT # 22 -BYTE # 162 -PORT # 22 -BYTE # 163 -PORT # 22 -BYTE # 164 -PORT # 22 -BYTE # 165 -PORT # 22 -BYTE # 166 -PORT # 22 -BYTE # 167 -PORT # 22 -BYTE # 168 -PORT # 22 -BYTE # 169 -PORT # 22 -BYTE # 170 -PORT # 22 -BYTE # 171 -PORT # 22 -BYTE # 172 -PORT # 22 -BYTE # 173 -PORT # 22 -BYTE # 174 -PORT # 22 -BYTE # 175 -PORT # 22 -BYTE # 176 -PORT # 22 -BYTE # 177 -PORT # 22 -BYTE # 178 -PORT # 22 -BYTE # 179 -PORT # 22 -BYTE # 180 -PORT # 22 -BYTE # 181 -PORT # 22 -BYTE # 182 -PORT # 22 -BYTE # 183 -PORT # 22 -BYTE # 184 -PORT # 22 -BYTE # 185 -PORT # 22 -BYTE # 186 -PORT # 22 -BYTE # 187 -PORT # 22 -BYTE # 188 -PORT # 22 -BYTE # 189 -PORT # 22 -BYTE # 190 -PORT # 22 -BYTE # 191 -PORT # 22 -BYTE # 192 -PORT # 22 -BYTE # 193 -PORT # 22 -BYTE # 194 -PORT # 22 -BYTE # 195 -PORT # 22 -BYTE # 196 -PORT # 22 -BYTE # 197 -PORT # 22 -BYTE # 198 -PORT # 22 -BYTE # 199 -PORT # 22 -BYTE # 200 -PORT # 22 -BYTE # 201 -PORT # 22 -BYTE # 202 -PORT # 22 -BYTE # 203 -PORT # 22 -BYTE # 204 -PORT # 22 -BYTE # 205 -PORT # 22 -BYTE # 206 -PORT # 22 -BYTE # 207 -PORT # 22 -BYTE # 208 -PORT # 22 -BYTE # 209 -PORT # 22 -BYTE # 210 -PORT # 22 -BYTE # 211 -PORT # 22 -BYTE # 212 -PORT # 22 -BYTE # 213 -PORT # 22 -BYTE # 214 -PORT # 22 -BYTE # 215 -PORT # 22 -BYTE # 216 -PORT # 22 -BYTE # 217 -PORT # 22 -BYTE # 218 -PORT # 22 -BYTE # 219 -PORT # 22 -BYTE # 220 -PORT # 22 -BYTE # 221 -PORT # 22 -BYTE # 222 -PORT # 22 -BYTE # 223 -PORT # 22 -BYTE # 224 -PORT # 22 -BYTE # 225 -PORT # 22 -BYTE # 226 -PORT # 22 -BYTE # 227 -PORT # 22 -BYTE # 228 -PORT # 22 -BYTE # 229 -PORT # 22 -BYTE # 230 -PORT # 22 -BYTE # 231 -PORT # 22 -BYTE # 232 -PORT # 22 -BYTE # 233 -PORT # 22 -BYTE # 234 -PORT # 22 -BYTE # 235 -PORT # 22 -BYTE # 236 -PORT # 22 -BYTE # 237 -PORT # 22 -BYTE # 238 -PORT # 22 -BYTE # 239 -PORT # 22 -BYTE # 240 -PORT # 22 -BYTE # 241 -PORT # 22 -BYTE # 242 -PORT # 22 -BYTE # 243 -PORT # 22 -BYTE # 244 -PORT # 22 -BYTE # 245 -PORT # 22 -BYTE # 246 -PORT # 22 -BYTE # 247 -PORT # 22 -BYTE # 248 -PORT # 22 -BYTE # 249 -PORT # 22 -BYTE # 250 -PORT # 22 -BYTE # 251 -PORT # 22 -BYTE # 252 -PORT # 22 -BYTE # 253 -PORT # 22 -BYTE # 254 -PORT # 22 -BYTE # 255 -PORT # 23 -BYTE # 0 -PORT # 23 -BYTE # 1 -PORT # 23 -BYTE # 2 -PORT # 23 -BYTE # 3 -PORT # 23 -BYTE # 4 -PORT # 23 -BYTE # 5 -PORT # 23 -BYTE # 6 -PORT # 23 -BYTE # 7 -PORT # 23 -BYTE # 8 -PORT # 23 -BYTE # 9 -PORT # 23 -BYTE # 10 -PORT # 23 -BYTE # 11 -PORT # 23 -BYTE # 12 -PORT # 23 -BYTE # 13 -PORT # 23 -BYTE # 14 -PORT # 23 -BYTE # 15 -PORT # 23 -BYTE # 16 -PORT # 23 -BYTE # 17 -PORT # 23 -BYTE # 18 -PORT # 23 -BYTE # 19 -PORT # 23 -BYTE # 20 -PORT # 23 -BYTE # 21 -PORT # 23 -BYTE # 22 -PORT # 23 -BYTE # 23 -PORT # 23 -BYTE # 24 -PORT # 23 -BYTE # 25 -PORT # 23 -BYTE # 26 -PORT # 23 -BYTE # 27 -PORT # 23 -BYTE # 28 -PORT # 23 -BYTE # 29 -PORT # 23 -BYTE # 30 -PORT # 23 -BYTE # 31 -PORT # 23 -BYTE # 32 -PORT # 23 -BYTE # 33 -PORT # 23 -BYTE # 34 -PORT # 23 -BYTE # 35 -PORT # 23 -BYTE # 36 -PORT # 23 -BYTE # 37 -PORT # 23 -BYTE # 38 -PORT # 23 -BYTE # 39 -PORT # 23 -BYTE # 40 -PORT # 23 -BYTE # 41 -PORT # 23 -BYTE # 42 -PORT # 23 -BYTE # 43 -PORT # 23 -BYTE # 44 -PORT # 23 -BYTE # 45 -PORT # 23 -BYTE # 46 -PORT # 23 -BYTE # 47 -PORT # 23 -BYTE # 48 -PORT # 23 -BYTE # 49 -PORT # 23 -BYTE # 50 -PORT # 23 -BYTE # 51 -PORT # 23 -BYTE # 52 -PORT # 23 -BYTE # 53 -PORT # 23 -BYTE # 54 -PORT # 23 -BYTE # 55 -PORT # 23 -BYTE # 56 -PORT # 23 -BYTE # 57 -PORT # 23 -BYTE # 58 -PORT # 23 -BYTE # 59 -PORT # 23 -BYTE # 60 -PORT # 23 -BYTE # 61 -PORT # 23 -BYTE # 62 -PORT # 23 -BYTE # 63 -PORT # 23 -BYTE # 64 -PORT # 23 -BYTE # 65 -PORT # 23 -BYTE # 66 -PORT # 23 -BYTE # 67 -PORT # 23 -BYTE # 68 -PORT # 23 -BYTE # 69 -PORT # 23 -BYTE # 70 -PORT # 23 -BYTE # 71 -PORT # 23 -BYTE # 72 -PORT # 23 -BYTE # 73 -PORT # 23 -BYTE # 74 -PORT # 23 -BYTE # 75 -PORT # 23 -BYTE # 76 -PORT # 23 -BYTE # 77 -PORT # 23 -BYTE # 78 -PORT # 23 -BYTE # 79 -PORT # 23 -BYTE # 80 -PORT # 23 -BYTE # 81 -PORT # 23 -BYTE # 82 -PORT # 23 -BYTE # 83 -PORT # 23 -BYTE # 84 -PORT # 23 -BYTE # 85 -PORT # 23 -BYTE # 86 -PORT # 23 -BYTE # 87 -PORT # 23 -BYTE # 88 -PORT # 23 -BYTE # 89 -PORT # 23 -BYTE # 90 -PORT # 23 -BYTE # 91 -PORT # 23 -BYTE # 92 -PORT # 23 -BYTE # 93 -PORT # 23 -BYTE # 94 -PORT # 23 -BYTE # 95 -PORT # 23 -BYTE # 96 -PORT # 23 -BYTE # 97 -PORT # 23 -BYTE # 98 -PORT # 23 -BYTE # 99 -PORT # 23 -BYTE # 100 -PORT # 23 -BYTE # 101 -PORT # 23 -BYTE # 102 -PORT # 23 -BYTE # 103 -PORT # 23 -BYTE # 104 -PORT # 23 -BYTE # 105 -PORT # 23 -BYTE # 106 -PORT # 23 -BYTE # 107 -PORT # 23 -BYTE # 108 -PORT # 23 -BYTE # 109 -PORT # 23 -BYTE # 110 -PORT # 23 -BYTE # 111 -PORT # 23 -BYTE # 112 -PORT # 23 -BYTE # 113 -PORT # 23 -BYTE # 114 -PORT # 23 -BYTE # 115 -PORT # 23 -BYTE # 116 -PORT # 23 -BYTE # 117 -PORT # 23 -BYTE # 118 -PORT # 23 -BYTE # 119 -PORT # 23 -BYTE # 120 -PORT # 23 -BYTE # 121 -PORT # 23 -BYTE # 122 -PORT # 23 -BYTE # 123 -PORT # 23 -BYTE # 124 -PORT # 23 -BYTE # 125 -PORT # 23 -BYTE # 126 -PORT # 23 -BYTE # 127 -PORT # 23 -BYTE # 128 -PORT # 23 -BYTE # 129 -PORT # 23 -BYTE # 130 -PORT # 23 -BYTE # 131 -PORT # 23 -BYTE # 132 -PORT # 23 -BYTE # 133 -PORT # 23 -BYTE # 134 -PORT # 23 -BYTE # 135 -PORT # 23 -BYTE # 136 -PORT # 23 -BYTE # 137 -PORT # 23 -BYTE # 138 -PORT # 23 -BYTE # 139 -PORT # 23 -BYTE # 140 -PORT # 23 -BYTE # 141 -PORT # 23 -BYTE # 142 -PORT # 23 -BYTE # 143 -PORT # 23 -BYTE # 144 -PORT # 23 -BYTE # 145 -PORT # 23 -BYTE # 146 -PORT # 23 -BYTE # 147 -PORT # 23 -BYTE # 148 -PORT # 23 -BYTE # 149 -PORT # 23 -BYTE # 150 -PORT # 23 -BYTE # 151 -PORT # 23 -BYTE # 152 -PORT # 23 -BYTE # 153 -PORT # 23 -BYTE # 154 -PORT # 23 -BYTE # 155 -PORT # 23 -BYTE # 156 -PORT # 23 -BYTE # 157 -PORT # 23 -BYTE # 158 -PORT # 23 -BYTE # 159 -PORT # 23 -BYTE # 160 -PORT # 23 -BYTE # 161 -PORT # 23 -BYTE # 162 -PORT # 23 -BYTE # 163 -PORT # 23 -BYTE # 164 -PORT # 23 -BYTE # 165 -PORT # 23 -BYTE # 166 -PORT # 23 -BYTE # 167 -PORT # 23 -BYTE # 168 -PORT # 23 -BYTE # 169 -PORT # 23 -BYTE # 170 -PORT # 23 -BYTE # 171 -PORT # 23 -BYTE # 172 -PORT # 23 -BYTE # 173 -PORT # 23 -BYTE # 174 -PORT # 23 -BYTE # 175 -PORT # 23 -BYTE # 176 -PORT # 23 -BYTE # 177 -PORT # 23 -BYTE # 178 -PORT # 23 -BYTE # 179 -PORT # 23 -BYTE # 180 -PORT # 23 -BYTE # 181 -PORT # 23 -BYTE # 182 -PORT # 23 -BYTE # 183 -PORT # 23 -BYTE # 184 -PORT # 23 -BYTE # 185 -PORT # 23 -BYTE # 186 -PORT # 23 -BYTE # 187 -PORT # 23 -BYTE # 188 -PORT # 23 -BYTE # 189 -PORT # 23 -BYTE # 190 -PORT # 23 -BYTE # 191 -PORT # 23 -BYTE # 192 -PORT # 23 -BYTE # 193 -PORT # 23 -BYTE # 194 -PORT # 23 -BYTE # 195 -PORT # 23 -BYTE # 196 -PORT # 23 -BYTE # 197 -PORT # 23 -BYTE # 198 -PORT # 23 -BYTE # 199 -PORT # 23 -BYTE # 200 -PORT # 23 -BYTE # 201 -PORT # 23 -BYTE # 202 -PORT # 23 -BYTE # 203 -PORT # 23 -BYTE # 204 -PORT # 23 -BYTE # 205 -PORT # 23 -BYTE # 206 -PORT # 23 -BYTE # 207 -PORT # 23 -BYTE # 208 -PORT # 23 -BYTE # 209 -PORT # 23 -BYTE # 210 -PORT # 23 -BYTE # 211 -PORT # 23 -BYTE # 212 -PORT # 23 -BYTE # 213 -PORT # 23 -BYTE # 214 -PORT # 23 -BYTE # 215 -PORT # 23 -BYTE # 216 -PORT # 23 -BYTE # 217 -PORT # 23 -BYTE # 218 -PORT # 23 -BYTE # 219 -PORT # 23 -BYTE # 220 -PORT # 23 -BYTE # 221 -PORT # 23 -BYTE # 222 -PORT # 23 -BYTE # 223 -PORT # 23 -BYTE # 224 -PORT # 23 -BYTE # 225 -PORT # 23 -BYTE # 226 -PORT # 23 -BYTE # 227 -PORT # 23 -BYTE # 228 -PORT # 23 -BYTE # 229 -PORT # 23 -BYTE # 230 -PORT # 23 -BYTE # 231 -PORT # 23 -BYTE # 232 -PORT # 23 -BYTE # 233 -PORT # 23 -BYTE # 234 -PORT # 23 -BYTE # 235 -PORT # 23 -BYTE # 236 -PORT # 23 -BYTE # 237 -PORT # 23 -BYTE # 238 -PORT # 23 -BYTE # 239 -PORT # 23 -BYTE # 240 -PORT # 23 -BYTE # 241 -PORT # 23 -BYTE # 242 -PORT # 23 -BYTE # 243 -PORT # 23 -BYTE # 244 -PORT # 23 -BYTE # 245 -PORT # 23 -BYTE # 246 -PORT # 23 -BYTE # 247 -PORT # 23 -BYTE # 248 -PORT # 23 -BYTE # 249 -PORT # 23 -BYTE # 250 -PORT # 23 -BYTE # 251 -PORT # 23 -BYTE # 252 -PORT # 23 -BYTE # 253 -PORT # 23 -BYTE # 254 -PORT # 23 -BYTE # 255 -PORT # 24 -BYTE # 0 -PORT # 24 -BYTE # 1 -PORT # 24 -BYTE # 2 -PORT # 24 -BYTE # 3 -PORT # 24 -BYTE # 4 -PORT # 24 -BYTE # 5 -PORT # 24 -BYTE # 6 -PORT # 24 -BYTE # 7 -PORT # 24 -BYTE # 8 -PORT # 24 -BYTE # 9 -PORT # 24 -BYTE # 10 -PORT # 24 -BYTE # 11 -PORT # 24 -BYTE # 12 -PORT # 24 -BYTE # 13 -PORT # 24 -BYTE # 14 -PORT # 24 -BYTE # 15 -PORT # 24 -BYTE # 16 -PORT # 24 -BYTE # 17 -PORT # 24 -BYTE # 18 -PORT # 24 -BYTE # 19 -PORT # 24 -BYTE # 20 -PORT # 24 -BYTE # 21 -PORT # 24 -BYTE # 22 -PORT # 24 -BYTE # 23 -PORT # 24 -BYTE # 24 -PORT # 24 -BYTE # 25 -PORT # 24 -BYTE # 26 -PORT # 24 -BYTE # 27 -PORT # 24 -BYTE # 28 -PORT # 24 -BYTE # 29 -PORT # 24 -BYTE # 30 -PORT # 24 -BYTE # 31 -PORT # 24 -BYTE # 32 -PORT # 24 -BYTE # 33 -PORT # 24 -BYTE # 34 -PORT # 24 -BYTE # 35 -PORT # 24 -BYTE # 36 -PORT # 24 -BYTE # 37 -PORT # 24 -BYTE # 38 -PORT # 24 -BYTE # 39 -PORT # 24 -BYTE # 40 -PORT # 24 -BYTE # 41 -PORT # 24 -BYTE # 42 -PORT # 24 -BYTE # 43 -PORT # 24 -BYTE # 44 -PORT # 24 -BYTE # 45 -PORT # 24 -BYTE # 46 -PORT # 24 -BYTE # 47 -PORT # 24 -BYTE # 48 -PORT # 24 -BYTE # 49 -PORT # 24 -BYTE # 50 -PORT # 24 -BYTE # 51 -PORT # 24 -BYTE # 52 -PORT # 24 -BYTE # 53 -PORT # 24 -BYTE # 54 -PORT # 24 -BYTE # 55 -PORT # 24 -BYTE # 56 -PORT # 24 -BYTE # 57 -PORT # 24 -BYTE # 58 -PORT # 24 -BYTE # 59 -PORT # 24 -BYTE # 60 -PORT # 24 -BYTE # 61 -PORT # 24 -BYTE # 62 -PORT # 24 -BYTE # 63 -PORT # 24 -BYTE # 64 -PORT # 24 -BYTE # 65 -PORT # 24 -BYTE # 66 -PORT # 24 -BYTE # 67 -PORT # 24 -BYTE # 68 -PORT # 24 -BYTE # 69 -PORT # 24 -BYTE # 70 -PORT # 24 -BYTE # 71 -PORT # 24 -BYTE # 72 -PORT # 24 -BYTE # 73 -PORT # 24 -BYTE # 74 -PORT # 24 -BYTE # 75 -PORT # 24 -BYTE # 76 -PORT # 24 -BYTE # 77 -PORT # 24 -BYTE # 78 -PORT # 24 -BYTE # 79 -PORT # 24 -BYTE # 80 -PORT # 24 -BYTE # 81 -PORT # 24 -BYTE # 82 -PORT # 24 -BYTE # 83 -PORT # 24 -BYTE # 84 -PORT # 24 -BYTE # 85 -PORT # 24 -BYTE # 86 -PORT # 24 -BYTE # 87 -PORT # 24 -BYTE # 88 -PORT # 24 -BYTE # 89 -PORT # 24 -BYTE # 90 -PORT # 24 -BYTE # 91 -PORT # 24 -BYTE # 92 -PORT # 24 -BYTE # 93 -PORT # 24 -BYTE # 94 -PORT # 24 -BYTE # 95 -PORT # 24 -BYTE # 96 -PORT # 24 -BYTE # 97 -PORT # 24 -BYTE # 98 -PORT # 24 -BYTE # 99 -PORT # 24 -BYTE # 100 -PORT # 24 -BYTE # 101 -PORT # 24 -BYTE # 102 -PORT # 24 -BYTE # 103 -PORT # 24 -BYTE # 104 -PORT # 24 -BYTE # 105 -PORT # 24 -BYTE # 106 -PORT # 24 -BYTE # 107 -PORT # 24 -BYTE # 108 -PORT # 24 -BYTE # 109 -PORT # 24 -BYTE # 110 -PORT # 24 -BYTE # 111 -PORT # 24 -BYTE # 112 -PORT # 24 -BYTE # 113 -PORT # 24 -BYTE # 114 -PORT # 24 -BYTE # 115 -PORT # 24 -BYTE # 116 -PORT # 24 -BYTE # 117 -PORT # 24 -BYTE # 118 -PORT # 24 -BYTE # 119 -PORT # 24 -BYTE # 120 -PORT # 24 -BYTE # 121 -PORT # 24 -BYTE # 122 -PORT # 24 -BYTE # 123 -PORT # 24 -BYTE # 124 -PORT # 24 -BYTE # 125 -PORT # 24 -BYTE # 126 -PORT # 24 -BYTE # 127 -PORT # 24 -BYTE # 128 -PORT # 24 -BYTE # 129 -PORT # 24 -BYTE # 130 -PORT # 24 -BYTE # 131 -PORT # 24 -BYTE # 132 -PORT # 24 -BYTE # 133 -PORT # 24 -BYTE # 134 -PORT # 24 -BYTE # 135 -PORT # 24 -BYTE # 136 -PORT # 24 -BYTE # 137 -PORT # 24 -BYTE # 138 -PORT # 24 -BYTE # 139 -PORT # 24 -BYTE # 140 -PORT # 24 -BYTE # 141 -PORT # 24 -BYTE # 142 -PORT # 24 -BYTE # 143 -PORT # 24 -BYTE # 144 -PORT # 24 -BYTE # 145 -PORT # 24 -BYTE # 146 -PORT # 24 -BYTE # 147 -PORT # 24 -BYTE # 148 -PORT # 24 -BYTE # 149 -PORT # 24 -BYTE # 150 -PORT # 24 -BYTE # 151 -PORT # 24 -BYTE # 152 -PORT # 24 -BYTE # 153 -PORT # 24 -BYTE # 154 -PORT # 24 -BYTE # 155 -PORT # 24 -BYTE # 156 -PORT # 24 -BYTE # 157 -PORT # 24 -BYTE # 158 -PORT # 24 -BYTE # 159 -PORT # 24 -BYTE # 160 -PORT # 24 -BYTE # 161 -PORT # 24 -BYTE # 162 -PORT # 24 -BYTE # 163 -PORT # 24 -BYTE # 164 -PORT # 24 -BYTE # 165 -PORT # 24 -BYTE # 166 -PORT # 24 -BYTE # 167 -PORT # 24 -BYTE # 168 -PORT # 24 -BYTE # 169 -PORT # 24 -BYTE # 170 -PORT # 24 -BYTE # 171 -PORT # 24 -BYTE # 172 -PORT # 24 -BYTE # 173 -PORT # 24 -BYTE # 174 -PORT # 24 -BYTE # 175 -PORT # 24 -BYTE # 176 -PORT # 24 -BYTE # 177 -PORT # 24 -BYTE # 178 -PORT # 24 -BYTE # 179 -PORT # 24 -BYTE # 180 -PORT # 24 -BYTE # 181 -PORT # 24 -BYTE # 182 -PORT # 24 -BYTE # 183 -PORT # 24 -BYTE # 184 -PORT # 24 -BYTE # 185 -PORT # 24 -BYTE # 186 -PORT # 24 -BYTE # 187 -PORT # 24 -BYTE # 188 -PORT # 24 -BYTE # 189 -PORT # 24 -BYTE # 190 -PORT # 24 -BYTE # 191 -PORT # 24 -BYTE # 192 -PORT # 24 -BYTE # 193 -PORT # 24 -BYTE # 194 -PORT # 24 -BYTE # 195 -PORT # 24 -BYTE # 196 -PORT # 24 -BYTE # 197 -PORT # 24 -BYTE # 198 -PORT # 24 -BYTE # 199 -PORT # 24 -BYTE # 200 -PORT # 24 -BYTE # 201 -PORT # 24 -BYTE # 202 -PORT # 24 -BYTE # 203 -PORT # 24 -BYTE # 204 -PORT # 24 -BYTE # 205 -PORT # 24 -BYTE # 206 -PORT # 24 -BYTE # 207 -PORT # 24 -BYTE # 208 -PORT # 24 -BYTE # 209 -PORT # 24 -BYTE # 210 -PORT # 24 -BYTE # 211 -PORT # 24 -BYTE # 212 -PORT # 24 -BYTE # 213 -PORT # 24 -BYTE # 214 -PORT # 24 -BYTE # 215 -PORT # 24 -BYTE # 216 -PORT # 24 -BYTE # 217 -PORT # 24 -BYTE # 218 -PORT # 24 -BYTE # 219 -PORT # 24 -BYTE # 220 -PORT # 24 -BYTE # 221 -PORT # 24 -BYTE # 222 -PORT # 24 -BYTE # 223 -PORT # 24 -BYTE # 224 -PORT # 24 -BYTE # 225 -PORT # 24 -BYTE # 226 -PORT # 24 -BYTE # 227 -PORT # 24 -BYTE # 228 -PORT # 24 -BYTE # 229 -PORT # 24 -BYTE # 230 -PORT # 24 -BYTE # 231 -PORT # 24 -BYTE # 232 -PORT # 24 -BYTE # 233 -PORT # 24 -BYTE # 234 -PORT # 24 -BYTE # 235 -PORT # 24 -BYTE # 236 -PORT # 24 -BYTE # 237 -PORT # 24 -BYTE # 238 -PORT # 24 -BYTE # 239 -PORT # 24 -BYTE # 240 -PORT # 24 -BYTE # 241 -PORT # 24 -BYTE # 242 -PORT # 24 -BYTE # 243 -PORT # 24 -BYTE # 244 -PORT # 24 -BYTE # 245 -PORT # 24 -BYTE # 246 -PORT # 24 -BYTE # 247 -PORT # 24 -BYTE # 248 -PORT # 24 -BYTE # 249 -PORT # 24 -BYTE # 250 -PORT # 24 -BYTE # 251 -PORT # 24 -BYTE # 252 -PORT # 24 -BYTE # 253 -PORT # 24 -BYTE # 254 -PORT # 24 -BYTE # 255 -PORT # 25 -BYTE # 0 -PORT # 25 -BYTE # 1 -PORT # 25 -BYTE # 2 -PORT # 25 -BYTE # 3 -PORT # 25 -BYTE # 4 -PORT # 25 -BYTE # 5 -PORT # 25 -BYTE # 6 -PORT # 25 -BYTE # 7 -PORT # 25 -BYTE # 8 -PORT # 25 -BYTE # 9 -PORT # 25 -BYTE # 10 -PORT # 25 -BYTE # 11 -PORT # 25 -BYTE # 12 -PORT # 25 -BYTE # 13 -PORT # 25 -BYTE # 14 -PORT # 25 -BYTE # 15 -PORT # 25 -BYTE # 16 -PORT # 25 -BYTE # 17 -PORT # 25 -BYTE # 18 -PORT # 25 -BYTE # 19 -PORT # 25 -BYTE # 20 -PORT # 25 -BYTE # 21 -PORT # 25 -BYTE # 22 -PORT # 25 -BYTE # 23 -PORT # 25 -BYTE # 24 -PORT # 25 -BYTE # 25 -PORT # 25 -BYTE # 26 -PORT # 25 -BYTE # 27 -PORT # 25 -BYTE # 28 -PORT # 25 -BYTE # 29 -PORT # 25 -BYTE # 30 -PORT # 25 -BYTE # 31 -PORT # 25 -BYTE # 32 -PORT # 25 -BYTE # 33 -PORT # 25 -BYTE # 34 -PORT # 25 -BYTE # 35 -PORT # 25 -BYTE # 36 -PORT # 25 -BYTE # 37 -PORT # 25 -BYTE # 38 -PORT # 25 -BYTE # 39 -PORT # 25 -BYTE # 40 -PORT # 25 -BYTE # 41 -PORT # 25 -BYTE # 42 -PORT # 25 -BYTE # 43 -PORT # 25 -BYTE # 44 -PORT # 25 -BYTE # 45 -PORT # 25 -BYTE # 46 -PORT # 25 -BYTE # 47 -PORT # 25 -BYTE # 48 -PORT # 25 -BYTE # 49 -PORT # 25 -BYTE # 50 -PORT # 25 -BYTE # 51 -PORT # 25 -BYTE # 52 -PORT # 25 -BYTE # 53 -PORT # 25 -BYTE # 54 -PORT # 25 -BYTE # 55 -PORT # 25 -BYTE # 56 -PORT # 25 -BYTE # 57 -PORT # 25 -BYTE # 58 -PORT # 25 -BYTE # 59 -PORT # 25 -BYTE # 60 -PORT # 25 -BYTE # 61 -PORT # 25 -BYTE # 62 -PORT # 25 -BYTE # 63 -PORT # 25 -BYTE # 64 -PORT # 25 -BYTE # 65 -PORT # 25 -BYTE # 66 -PORT # 25 -BYTE # 67 -PORT # 25 -BYTE # 68 -PORT # 25 -BYTE # 69 -PORT # 25 -BYTE # 70 -PORT # 25 -BYTE # 71 -PORT # 25 -BYTE # 72 -PORT # 25 -BYTE # 73 -PORT # 25 -BYTE # 74 -PORT # 25 -BYTE # 75 -PORT # 25 -BYTE # 76 -PORT # 25 -BYTE # 77 -PORT # 25 -BYTE # 78 -PORT # 25 -BYTE # 79 -PORT # 25 -BYTE # 80 -PORT # 25 -BYTE # 81 -PORT # 25 -BYTE # 82 -PORT # 25 -BYTE # 83 -PORT # 25 -BYTE # 84 -PORT # 25 -BYTE # 85 -PORT # 25 -BYTE # 86 -PORT # 25 -BYTE # 87 -PORT # 25 -BYTE # 88 -PORT # 25 -BYTE # 89 -PORT # 25 -BYTE # 90 -PORT # 25 -BYTE # 91 -PORT # 25 -BYTE # 92 -PORT # 25 -BYTE # 93 -PORT # 25 -BYTE # 94 -PORT # 25 -BYTE # 95 -PORT # 25 -BYTE # 96 -PORT # 25 -BYTE # 97 -PORT # 25 -BYTE # 98 -PORT # 25 -BYTE # 99 -PORT # 25 -BYTE # 100 -PORT # 25 -BYTE # 101 -PORT # 25 -BYTE # 102 -PORT # 25 -BYTE # 103 -PORT # 25 -BYTE # 104 -PORT # 25 -BYTE # 105 -PORT # 25 -BYTE # 106 -PORT # 25 -BYTE # 107 -PORT # 25 -BYTE # 108 -PORT # 25 -BYTE # 109 -PORT # 25 -BYTE # 110 -PORT # 25 -BYTE # 111 -PORT # 25 -BYTE # 112 -PORT # 25 -BYTE # 113 -PORT # 25 -BYTE # 114 -PORT # 25 -BYTE # 115 -PORT # 25 -BYTE # 116 -PORT # 25 -BYTE # 117 -PORT # 25 -BYTE # 118 -PORT # 25 -BYTE # 119 -PORT # 25 -BYTE # 120 -PORT # 25 -BYTE # 121 -PORT # 25 -BYTE # 122 -PORT # 25 -BYTE # 123 -PORT # 25 -BYTE # 124 -PORT # 25 -BYTE # 125 -PORT # 25 -BYTE # 126 -PORT # 25 -BYTE # 127 -PORT # 25 -BYTE # 128 -PORT # 25 -BYTE # 129 -PORT # 25 -BYTE # 130 -PORT # 25 -BYTE # 131 -PORT # 25 -BYTE # 132 -PORT # 25 -BYTE # 133 -PORT # 25 -BYTE # 134 -PORT # 25 -BYTE # 135 -PORT # 25 -BYTE # 136 -PORT # 25 -BYTE # 137 -PORT # 25 -BYTE # 138 -PORT # 25 -BYTE # 139 -PORT # 25 -BYTE # 140 -PORT # 25 -BYTE # 141 -PORT # 25 -BYTE # 142 -PORT # 25 -BYTE # 143 -PORT # 25 -BYTE # 144 -PORT # 25 -BYTE # 145 -PORT # 25 -BYTE # 146 -PORT # 25 -BYTE # 147 -PORT # 25 -BYTE # 148 -PORT # 25 -BYTE # 149 -PORT # 25 -BYTE # 150 -PORT # 25 -BYTE # 151 -PORT # 25 -BYTE # 152 -PORT # 25 -BYTE # 153 -PORT # 25 -BYTE # 154 -PORT # 25 -BYTE # 155 -PORT # 25 -BYTE # 156 -PORT # 25 -BYTE # 157 -PORT # 25 -BYTE # 158 -PORT # 25 -BYTE # 159 -PORT # 25 -BYTE # 160 -PORT # 25 -BYTE # 161 -PORT # 25 -BYTE # 162 -PORT # 25 -BYTE # 163 -PORT # 25 -BYTE # 164 -PORT # 25 -BYTE # 165 -PORT # 25 -BYTE # 166 -PORT # 25 -BYTE # 167 -PORT # 25 -BYTE # 168 -PORT # 25 -BYTE # 169 -PORT # 25 -BYTE # 170 -PORT # 25 -BYTE # 171 -PORT # 25 -BYTE # 172 -PORT # 25 -BYTE # 173 -PORT # 25 -BYTE # 174 -PORT # 25 -BYTE # 175 -PORT # 25 -BYTE # 176 -PORT # 25 -BYTE # 177 -PORT # 25 -BYTE # 178 -PORT # 25 -BYTE # 179 -PORT # 25 -BYTE # 180 -PORT # 25 -BYTE # 181 -PORT # 25 -BYTE # 182 -PORT # 25 -BYTE # 183 -PORT # 25 -BYTE # 184 -PORT # 25 -BYTE # 185 -PORT # 25 -BYTE # 186 -PORT # 25 -BYTE # 187 -PORT # 25 -BYTE # 188 -PORT # 25 -BYTE # 189 -PORT # 25 -BYTE # 190 -PORT # 25 -BYTE # 191 -PORT # 25 -BYTE # 192 -PORT # 25 -BYTE # 193 -PORT # 25 -BYTE # 194 -PORT # 25 -BYTE # 195 -PORT # 25 -BYTE # 196 -PORT # 25 -BYTE # 197 -PORT # 25 -BYTE # 198 -PORT # 25 -BYTE # 199 -PORT # 25 -BYTE # 200 -PORT # 25 -BYTE # 201 -PORT # 25 -BYTE # 202 -PORT # 25 -BYTE # 203 -PORT # 25 -BYTE # 204 -PORT # 25 -BYTE # 205 -PORT # 25 -BYTE # 206 -PORT # 25 -BYTE # 207 -PORT # 25 -BYTE # 208 -PORT # 25 -BYTE # 209 -PORT # 25 -BYTE # 210 -PORT # 25 -BYTE # 211 -PORT # 25 -BYTE # 212 -PORT # 25 -BYTE # 213 -PORT # 25 -BYTE # 214 -PORT # 25 -BYTE # 215 -PORT # 25 -BYTE # 216 -PORT # 25 -BYTE # 217 -PORT # 25 -BYTE # 218 -PORT # 25 -BYTE # 219 -PORT # 25 -BYTE # 220 -PORT # 25 -BYTE # 221 -PORT # 25 -BYTE # 222 -PORT # 25 -BYTE # 223 -PORT # 25 -BYTE # 224 -PORT # 25 -BYTE # 225 -PORT # 25 -BYTE # 226 -PORT # 25 -BYTE # 227 -PORT # 25 -BYTE # 228 -PORT # 25 -BYTE # 229 -PORT # 25 -BYTE # 230 -PORT # 25 -BYTE # 231 -PORT # 25 -BYTE # 232 -PORT # 25 -BYTE # 233 -PORT # 25 -BYTE # 234 -PORT # 25 -BYTE # 235 -PORT # 25 -BYTE # 236 -PORT # 25 -BYTE # 237 -PORT # 25 -BYTE # 238 -PORT # 25 -BYTE # 239 -PORT # 25 -BYTE # 240 -PORT # 25 -BYTE # 241 -PORT # 25 -BYTE # 242 -PORT # 25 -BYTE # 243 -PORT # 25 -BYTE # 244 -PORT # 25 -BYTE # 245 -PORT # 25 -BYTE # 246 -PORT # 25 -BYTE # 247 -PORT # 25 -BYTE # 248 -PORT # 25 -BYTE # 249 -PORT # 25 -BYTE # 250 -PORT # 25 -BYTE # 251 -PORT # 25 -BYTE # 252 -PORT # 25 -BYTE # 253 -PORT # 25 -BYTE # 254 -PORT # 25 -BYTE # 255 -PORT # 26 -BYTE # 0 -PORT # 26 -BYTE # 1 -PORT # 26 -BYTE # 2 -PORT # 26 -BYTE # 3 -PORT # 26 -BYTE # 4 -PORT # 26 -BYTE # 5 -PORT # 26 -BYTE # 6 -PORT # 26 -BYTE # 7 -PORT # 26 -BYTE # 8 -PORT # 26 -BYTE # 9 -PORT # 26 -BYTE # 10 -PORT # 26 -BYTE # 11 -PORT # 26 -BYTE # 12 -PORT # 26 -BYTE # 13 -PORT # 26 -BYTE # 14 -PORT # 26 -BYTE # 15 -PORT # 26 -BYTE # 16 -PORT # 26 -BYTE # 17 -PORT # 26 -BYTE # 18 -PORT # 26 -BYTE # 19 -PORT # 26 -BYTE # 20 -PORT # 26 -BYTE # 21 -PORT # 26 -BYTE # 22 -PORT # 26 -BYTE # 23 -PORT # 26 -BYTE # 24 -PORT # 26 -BYTE # 25 -PORT # 26 -BYTE # 26 -PORT # 26 -BYTE # 27 -PORT # 26 -BYTE # 28 -PORT # 26 -BYTE # 29 -PORT # 26 -BYTE # 30 -PORT # 26 -BYTE # 31 -PORT # 26 -BYTE # 32 -PORT # 26 -BYTE # 33 -PORT # 26 -BYTE # 34 -PORT # 26 -BYTE # 35 -PORT # 26 -BYTE # 36 -PORT # 26 -BYTE # 37 -PORT # 26 -BYTE # 38 -PORT # 26 -BYTE # 39 -PORT # 26 -BYTE # 40 -PORT # 26 -BYTE # 41 -PORT # 26 -BYTE # 42 -PORT # 26 -BYTE # 43 -PORT # 26 -BYTE # 44 -PORT # 26 -BYTE # 45 -PORT # 26 -BYTE # 46 -PORT # 26 -BYTE # 47 -PORT # 26 -BYTE # 48 -PORT # 26 -BYTE # 49 -PORT # 26 -BYTE # 50 -PORT # 26 -BYTE # 51 -PORT # 26 -BYTE # 52 -PORT # 26 -BYTE # 53 -PORT # 26 -BYTE # 54 -PORT # 26 -BYTE # 55 -PORT # 26 -BYTE # 56 -PORT # 26 -BYTE # 57 -PORT # 26 -BYTE # 58 -PORT # 26 -BYTE # 59 -PORT # 26 -BYTE # 60 -PORT # 26 -BYTE # 61 -PORT # 26 -BYTE # 62 -PORT # 26 -BYTE # 63 -PORT # 26 -BYTE # 64 -PORT # 26 -BYTE # 65 -PORT # 26 -BYTE # 66 -PORT # 26 -BYTE # 67 -PORT # 26 -BYTE # 68 -PORT # 26 -BYTE # 69 -PORT # 26 -BYTE # 70 -PORT # 26 -BYTE # 71 -PORT # 26 -BYTE # 72 -PORT # 26 -BYTE # 73 -PORT # 26 -BYTE # 74 -PORT # 26 -BYTE # 75 -PORT # 26 -BYTE # 76 -PORT # 26 -BYTE # 77 -PORT # 26 -BYTE # 78 -PORT # 26 -BYTE # 79 -PORT # 26 -BYTE # 80 -PORT # 26 -BYTE # 81 -PORT # 26 -BYTE # 82 -PORT # 26 -BYTE # 83 -PORT # 26 -BYTE # 84 -PORT # 26 -BYTE # 85 -PORT # 26 -BYTE # 86 -PORT # 26 -BYTE # 87 -PORT # 26 -BYTE # 88 -PORT # 26 -BYTE # 89 -PORT # 26 -BYTE # 90 -PORT # 26 -BYTE # 91 -PORT # 26 -BYTE # 92 -PORT # 26 -BYTE # 93 -PORT # 26 -BYTE # 94 -PORT # 26 -BYTE # 95 -PORT # 26 -BYTE # 96 -PORT # 26 -BYTE # 97 -PORT # 26 -BYTE # 98 -PORT # 26 -BYTE # 99 -PORT # 26 -BYTE # 100 -PORT # 26 -BYTE # 101 -PORT # 26 -BYTE # 102 -PORT # 26 -BYTE # 103 -PORT # 26 -BYTE # 104 -PORT # 26 -BYTE # 105 -PORT # 26 -BYTE # 106 -PORT # 26 -BYTE # 107 -PORT # 26 -BYTE # 108 -PORT # 26 -BYTE # 109 -PORT # 26 -BYTE # 110 -PORT # 26 -BYTE # 111 -PORT # 26 -BYTE # 112 -PORT # 26 -BYTE # 113 -PORT # 26 -BYTE # 114 -PORT # 26 -BYTE # 115 -PORT # 26 -BYTE # 116 -PORT # 26 -BYTE # 117 -PORT # 26 -BYTE # 118 -PORT # 26 -BYTE # 119 -PORT # 26 -BYTE # 120 -PORT # 26 -BYTE # 121 -PORT # 26 -BYTE # 122 -PORT # 26 -BYTE # 123 -PORT # 26 -BYTE # 124 -PORT # 26 -BYTE # 125 -PORT # 26 -BYTE # 126 -PORT # 26 -BYTE # 127 -PORT # 26 -BYTE # 128 -PORT # 26 -BYTE # 129 -PORT # 26 -BYTE # 130 -PORT # 26 -BYTE # 131 -PORT # 26 -BYTE # 132 -PORT # 26 -BYTE # 133 -PORT # 26 -BYTE # 134 -PORT # 26 -BYTE # 135 -PORT # 26 -BYTE # 136 -PORT # 26 -BYTE # 137 -PORT # 26 -BYTE # 138 -PORT # 26 -BYTE # 139 -PORT # 26 -BYTE # 140 -PORT # 26 -BYTE # 141 -PORT # 26 -BYTE # 142 -PORT # 26 -BYTE # 143 -PORT # 26 -BYTE # 144 -PORT # 26 -BYTE # 145 -PORT # 26 -BYTE # 146 -PORT # 26 -BYTE # 147 -PORT # 26 -BYTE # 148 -PORT # 26 -BYTE # 149 -PORT # 26 -BYTE # 150 -PORT # 26 -BYTE # 151 -PORT # 26 -BYTE # 152 -PORT # 26 -BYTE # 153 -PORT # 26 -BYTE # 154 -PORT # 26 -BYTE # 155 -PORT # 26 -BYTE # 156 -PORT # 26 -BYTE # 157 -PORT # 26 -BYTE # 158 -PORT # 26 -BYTE # 159 -PORT # 26 -BYTE # 160 -PORT # 26 -BYTE # 161 -PORT # 26 -BYTE # 162 -PORT # 26 -BYTE # 163 -PORT # 26 -BYTE # 164 -PORT # 26 -BYTE # 165 -PORT # 26 -BYTE # 166 -PORT # 26 -BYTE # 167 -PORT # 26 -BYTE # 168 -PORT # 26 -BYTE # 169 -PORT # 26 -BYTE # 170 -PORT # 26 -BYTE # 171 -PORT # 26 -BYTE # 172 -PORT # 26 -BYTE # 173 -PORT # 26 -BYTE # 174 -PORT # 26 -BYTE # 175 -PORT # 26 -BYTE # 176 -PORT # 26 -BYTE # 177 -PORT # 26 -BYTE # 178 -PORT # 26 -BYTE # 179 -PORT # 26 -BYTE # 180 -PORT # 26 -BYTE # 181 -PORT # 26 -BYTE # 182 -PORT # 26 -BYTE # 183 -PORT # 26 -BYTE # 184 -PORT # 26 -BYTE # 185 -PORT # 26 -BYTE # 186 -PORT # 26 -BYTE # 187 -PORT # 26 -BYTE # 188 -PORT # 26 -BYTE # 189 -PORT # 26 -BYTE # 190 -PORT # 26 -BYTE # 191 -PORT # 26 -BYTE # 192 -PORT # 26 -BYTE # 193 -PORT # 26 -BYTE # 194 -PORT # 26 -BYTE # 195 -PORT # 26 -BYTE # 196 -PORT # 26 -BYTE # 197 -PORT # 26 -BYTE # 198 -PORT # 26 -BYTE # 199 -PORT # 26 -BYTE # 200 -PORT # 26 -BYTE # 201 -PORT # 26 -BYTE # 202 -PORT # 26 -BYTE # 203 -PORT # 26 -BYTE # 204 -PORT # 26 -BYTE # 205 -PORT # 26 -BYTE # 206 -PORT # 26 -BYTE # 207 -PORT # 26 -BYTE # 208 -PORT # 26 -BYTE # 209 -PORT # 26 -BYTE # 210 -PORT # 26 -BYTE # 211 -PORT # 26 -BYTE # 212 -PORT # 26 -BYTE # 213 -PORT # 26 -BYTE # 214 -PORT # 26 -BYTE # 215 -PORT # 26 -BYTE # 216 -PORT # 26 -BYTE # 217 -PORT # 26 -BYTE # 218 -PORT # 26 -BYTE # 219 -PORT # 26 -BYTE # 220 -PORT # 26 -BYTE # 221 -PORT # 26 -BYTE # 222 -PORT # 26 -BYTE # 223 -PORT # 26 -BYTE # 224 -PORT # 26 -BYTE # 225 -PORT # 26 -BYTE # 226 -PORT # 26 -BYTE # 227 -PORT # 26 -BYTE # 228 -PORT # 26 -BYTE # 229 -PORT # 26 -BYTE # 230 -PORT # 26 -BYTE # 231 -PORT # 26 -BYTE # 232 -PORT # 26 -BYTE # 233 -PORT # 26 -BYTE # 234 -PORT # 26 -BYTE # 235 -PORT # 26 -BYTE # 236 -PORT # 26 -BYTE # 237 -PORT # 26 -BYTE # 238 -PORT # 26 -BYTE # 239 -PORT # 26 -BYTE # 240 -PORT # 26 -BYTE # 241 -PORT # 26 -BYTE # 242 -PORT # 26 -BYTE # 243 -PORT # 26 -BYTE # 244 -PORT # 26 -BYTE # 245 -PORT # 26 -BYTE # 246 -PORT # 26 -BYTE # 247 -PORT # 26 -BYTE # 248 -PORT # 26 -BYTE # 249 -PORT # 26 -BYTE # 250 -PORT # 26 -BYTE # 251 -PORT # 26 -BYTE # 252 -PORT # 26 -BYTE # 253 -PORT # 26 -BYTE # 254 -PORT # 26 -BYTE # 255 -PORT # 27 -BYTE # 0 -PORT # 27 -BYTE # 1 -PORT # 27 -BYTE # 2 -PORT # 27 -BYTE # 3 -PORT # 27 -BYTE # 4 -PORT # 27 -BYTE # 5 -PORT # 27 -BYTE # 6 -PORT # 27 -BYTE # 7 -PORT # 27 -BYTE # 8 -PORT # 27 -BYTE # 9 -PORT # 27 -BYTE # 10 -PORT # 27 -BYTE # 11 -PORT # 27 -BYTE # 12 -PORT # 27 -BYTE # 13 -PORT # 27 -BYTE # 14 -PORT # 27 -BYTE # 15 -PORT # 27 -BYTE # 16 -PORT # 27 -BYTE # 17 -PORT # 27 -BYTE # 18 -PORT # 27 -BYTE # 19 -PORT # 27 -BYTE # 20 -PORT # 27 -BYTE # 21 -PORT # 27 -BYTE # 22 -PORT # 27 -BYTE # 23 -PORT # 27 -BYTE # 24 -PORT # 27 -BYTE # 25 -PORT # 27 -BYTE # 26 -PORT # 27 -BYTE # 27 -PORT # 27 -BYTE # 28 -PORT # 27 -BYTE # 29 -PORT # 27 -BYTE # 30 -PORT # 27 -BYTE # 31 -PORT # 27 -BYTE # 32 -PORT # 27 -BYTE # 33 -PORT # 27 -BYTE # 34 -PORT # 27 -BYTE # 35 -PORT # 27 -BYTE # 36 -PORT # 27 -BYTE # 37 -PORT # 27 -BYTE # 38 -PORT # 27 -BYTE # 39 -PORT # 27 -BYTE # 40 -PORT # 27 -BYTE # 41 -PORT # 27 -BYTE # 42 -PORT # 27 -BYTE # 43 -PORT # 27 -BYTE # 44 -PORT # 27 -BYTE # 45 -PORT # 27 -BYTE # 46 -PORT # 27 -BYTE # 47 -PORT # 27 -BYTE # 48 -PORT # 27 -BYTE # 49 -PORT # 27 -BYTE # 50 -PORT # 27 -BYTE # 51 -PORT # 27 -BYTE # 52 -PORT # 27 -BYTE # 53 -PORT # 27 -BYTE # 54 -PORT # 27 -BYTE # 55 -PORT # 27 -BYTE # 56 -PORT # 27 -BYTE # 57 -PORT # 27 -BYTE # 58 -PORT # 27 -BYTE # 59 -PORT # 27 -BYTE # 60 -PORT # 27 -BYTE # 61 -PORT # 27 -BYTE # 62 -PORT # 27 -BYTE # 63 -PORT # 27 -BYTE # 64 -PORT # 27 -BYTE # 65 -PORT # 27 -BYTE # 66 -PORT # 27 -BYTE # 67 -PORT # 27 -BYTE # 68 -PORT # 27 -BYTE # 69 -PORT # 27 -BYTE # 70 -PORT # 27 -BYTE # 71 -PORT # 27 -BYTE # 72 -PORT # 27 -BYTE # 73 -PORT # 27 -BYTE # 74 -PORT # 27 -BYTE # 75 -PORT # 27 -BYTE # 76 -PORT # 27 -BYTE # 77 -PORT # 27 -BYTE # 78 -PORT # 27 -BYTE # 79 -PORT # 27 -BYTE # 80 -PORT # 27 -BYTE # 81 -PORT # 27 -BYTE # 82 -PORT # 27 -BYTE # 83 -PORT # 27 -BYTE # 84 -PORT # 27 -BYTE # 85 -PORT # 27 -BYTE # 86 -PORT # 27 -BYTE # 87 -PORT # 27 -BYTE # 88 -PORT # 27 -BYTE # 89 -PORT # 27 -BYTE # 90 -PORT # 27 -BYTE # 91 -PORT # 27 -BYTE # 92 -PORT # 27 -BYTE # 93 -PORT # 27 -BYTE # 94 -PORT # 27 -BYTE # 95 -PORT # 27 -BYTE # 96 -PORT # 27 -BYTE # 97 -PORT # 27 -BYTE # 98 -PORT # 27 -BYTE # 99 -PORT # 27 -BYTE # 100 -PORT # 27 -BYTE # 101 -PORT # 27 -BYTE # 102 -PORT # 27 -BYTE # 103 -PORT # 27 -BYTE # 104 -PORT # 27 -BYTE # 105 -PORT # 27 -BYTE # 106 -PORT # 27 -BYTE # 107 -PORT # 27 -BYTE # 108 -PORT # 27 -BYTE # 109 -PORT # 27 -BYTE # 110 -PORT # 27 -BYTE # 111 -PORT # 27 -BYTE # 112 -PORT # 27 -BYTE # 113 -PORT # 27 -BYTE # 114 -PORT # 27 -BYTE # 115 -PORT # 27 -BYTE # 116 -PORT # 27 -BYTE # 117 -PORT # 27 -BYTE # 118 -PORT # 27 -BYTE # 119 -PORT # 27 -BYTE # 120 -PORT # 27 -BYTE # 121 -PORT # 27 -BYTE # 122 -PORT # 27 -BYTE # 123 -PORT # 27 -BYTE # 124 -PORT # 27 -BYTE # 125 -PORT # 27 -BYTE # 126 -PORT # 27 -BYTE # 127 -PORT # 27 -BYTE # 128 -PORT # 27 -BYTE # 129 -PORT # 27 -BYTE # 130 -PORT # 27 -BYTE # 131 -PORT # 27 -BYTE # 132 -PORT # 27 -BYTE # 133 -PORT # 27 -BYTE # 134 -PORT # 27 -BYTE # 135 -PORT # 27 -BYTE # 136 -PORT # 27 -BYTE # 137 -PORT # 27 -BYTE # 138 -PORT # 27 -BYTE # 139 -PORT # 27 -BYTE # 140 -PORT # 27 -BYTE # 141 -PORT # 27 -BYTE # 142 -PORT # 27 -BYTE # 143 -PORT # 27 -BYTE # 144 -PORT # 27 -BYTE # 145 -PORT # 27 -BYTE # 146 -PORT # 27 -BYTE # 147 -PORT # 27 -BYTE # 148 -PORT # 27 -BYTE # 149 -PORT # 27 -BYTE # 150 -PORT # 27 -BYTE # 151 -PORT # 27 -BYTE # 152 -PORT # 27 -BYTE # 153 -PORT # 27 -BYTE # 154 -PORT # 27 -BYTE # 155 -PORT # 27 -BYTE # 156 -PORT # 27 -BYTE # 157 -PORT # 27 -BYTE # 158 -PORT # 27 -BYTE # 159 -PORT # 27 -BYTE # 160 -PORT # 27 -BYTE # 161 -PORT # 27 -BYTE # 162 -PORT # 27 -BYTE # 163 -PORT # 27 -BYTE # 164 -PORT # 27 -BYTE # 165 -PORT # 27 -BYTE # 166 -PORT # 27 -BYTE # 167 -PORT # 27 -BYTE # 168 -PORT # 27 -BYTE # 169 -PORT # 27 -BYTE # 170 -PORT # 27 -BYTE # 171 -PORT # 27 -BYTE # 172 -PORT # 27 -BYTE # 173 -PORT # 27 -BYTE # 174 -PORT # 27 -BYTE # 175 -PORT # 27 -BYTE # 176 -PORT # 27 -BYTE # 177 -PORT # 27 -BYTE # 178 -PORT # 27 -BYTE # 179 -PORT # 27 -BYTE # 180 -PORT # 27 -BYTE # 181 -PORT # 27 -BYTE # 182 -PORT # 27 -BYTE # 183 -PORT # 27 -BYTE # 184 -PORT # 27 -BYTE # 185 -PORT # 27 -BYTE # 186 -PORT # 27 -BYTE # 187 -PORT # 27 -BYTE # 188 -PORT # 27 -BYTE # 189 -PORT # 27 -BYTE # 190 -PORT # 27 -BYTE # 191 -PORT # 27 -BYTE # 192 -PORT # 27 -BYTE # 193 -PORT # 27 -BYTE # 194 -PORT # 27 -BYTE # 195 -PORT # 27 -BYTE # 196 -PORT # 27 -BYTE # 197 -PORT # 27 -BYTE # 198 -PORT # 27 -BYTE # 199 -PORT # 27 -BYTE # 200 -PORT # 27 -BYTE # 201 -PORT # 27 -BYTE # 202 -PORT # 27 -BYTE # 203 -PORT # 27 -BYTE # 204 -PORT # 27 -BYTE # 205 -PORT # 27 -BYTE # 206 -PORT # 27 -BYTE # 207 -PORT # 27 -BYTE # 208 -PORT # 27 -BYTE # 209 -PORT # 27 -BYTE # 210 -PORT # 27 -BYTE # 211 -PORT # 27 -BYTE # 212 -PORT # 27 -BYTE # 213 -PORT # 27 -BYTE # 214 -PORT # 27 -BYTE # 215 -PORT # 27 -BYTE # 216 -PORT # 27 -BYTE # 217 -PORT # 27 -BYTE # 218 -PORT # 27 -BYTE # 219 -PORT # 27 -BYTE # 220 -PORT # 27 -BYTE # 221 -PORT # 27 -BYTE # 222 -PORT # 27 -BYTE # 223 -PORT # 27 -BYTE # 224 -PORT # 27 -BYTE # 225 -PORT # 27 -BYTE # 226 -PORT # 27 -BYTE # 227 -PORT # 27 -BYTE # 228 -PORT # 27 -BYTE # 229 -PORT # 27 -BYTE # 230 -PORT # 27 -BYTE # 231 -PORT # 27 -BYTE # 232 -PORT # 27 -BYTE # 233 -PORT # 27 -BYTE # 234 -PORT # 27 -BYTE # 235 -PORT # 27 -BYTE # 236 -PORT # 27 -BYTE # 237 -PORT # 27 -BYTE # 238 -PORT # 27 -BYTE # 239 -PORT # 27 -BYTE # 240 -PORT # 27 -BYTE # 241 -PORT # 27 -BYTE # 242 -PORT # 27 -BYTE # 243 -PORT # 27 -BYTE # 244 -PORT # 27 -BYTE # 245 -PORT # 27 -BYTE # 246 -PORT # 27 -BYTE # 247 -PORT # 27 -BYTE # 248 -PORT # 27 -BYTE # 249 -PORT # 27 -BYTE # 250 -PORT # 27 -BYTE # 251 -PORT # 27 -BYTE # 252 -PORT # 27 -BYTE # 253 -PORT # 27 -BYTE # 254 -PORT # 27 -BYTE # 255 -PORT # 28 -BYTE # 0 -PORT # 28 -BYTE # 1 -PORT # 28 -BYTE # 2 -PORT # 28 -BYTE # 3 -PORT # 28 -BYTE # 4 -PORT # 28 -BYTE # 5 -PORT # 28 -BYTE # 6 -PORT # 28 -BYTE # 7 -PORT # 28 -BYTE # 8 -PORT # 28 -BYTE # 9 -PORT # 28 -BYTE # 10 -PORT # 28 -BYTE # 11 -PORT # 28 -BYTE # 12 -PORT # 28 -BYTE # 13 -PORT # 28 -BYTE # 14 -PORT # 28 -BYTE # 15 -PORT # 28 -BYTE # 16 -PORT # 28 -BYTE # 17 -PORT # 28 -BYTE # 18 -PORT # 28 -BYTE # 19 -PORT # 28 -BYTE # 20 -PORT # 28 -BYTE # 21 -PORT # 28 -BYTE # 22 -PORT # 28 -BYTE # 23 -PORT # 28 -BYTE # 24 -PORT # 28 -BYTE # 25 -PORT # 28 -BYTE # 26 -PORT # 28 -BYTE # 27 -PORT # 28 -BYTE # 28 -PORT # 28 -BYTE # 29 -PORT # 28 -BYTE # 30 -PORT # 28 -BYTE # 31 -PORT # 28 -BYTE # 32 -PORT # 28 -BYTE # 33 -PORT # 28 -BYTE # 34 -PORT # 28 -BYTE # 35 -PORT # 28 -BYTE # 36 -PORT # 28 -BYTE # 37 -PORT # 28 -BYTE # 38 -PORT # 28 -BYTE # 39 -PORT # 28 -BYTE # 40 -PORT # 28 -BYTE # 41 -PORT # 28 -BYTE # 42 -PORT # 28 -BYTE # 43 -PORT # 28 -BYTE # 44 -PORT # 28 -BYTE # 45 -PORT # 28 -BYTE # 46 -PORT # 28 -BYTE # 47 -PORT # 28 -BYTE # 48 -PORT # 28 -BYTE # 49 -PORT # 28 -BYTE # 50 -PORT # 28 -BYTE # 51 -PORT # 28 -BYTE # 52 -PORT # 28 -BYTE # 53 -PORT # 28 -BYTE # 54 -PORT # 28 -BYTE # 55 -PORT # 28 -BYTE # 56 -PORT # 28 -BYTE # 57 -PORT # 28 -BYTE # 58 -PORT # 28 -BYTE # 59 -PORT # 28 -BYTE # 60 -PORT # 28 -BYTE # 61 -PORT # 28 -BYTE # 62 -PORT # 28 -BYTE # 63 -PORT # 28 -BYTE # 64 -PORT # 28 -BYTE # 65 -PORT # 28 -BYTE # 66 -PORT # 28 -BYTE # 67 -PORT # 28 -BYTE # 68 -PORT # 28 -BYTE # 69 -PORT # 28 -BYTE # 70 -PORT # 28 -BYTE # 71 -PORT # 28 -BYTE # 72 -PORT # 28 -BYTE # 73 -PORT # 28 -BYTE # 74 -PORT # 28 -BYTE # 75 -PORT # 28 -BYTE # 76 -PORT # 28 -BYTE # 77 -PORT # 28 -BYTE # 78 -PORT # 28 -BYTE # 79 -PORT # 28 -BYTE # 80 -PORT # 28 -BYTE # 81 -PORT # 28 -BYTE # 82 -PORT # 28 -BYTE # 83 -PORT # 28 -BYTE # 84 -PORT # 28 -BYTE # 85 -PORT # 28 -BYTE # 86 -PORT # 28 -BYTE # 87 -PORT # 28 -BYTE # 88 -PORT # 28 -BYTE # 89 -PORT # 28 -BYTE # 90 -PORT # 28 -BYTE # 91 -PORT # 28 -BYTE # 92 -PORT # 28 -BYTE # 93 -PORT # 28 -BYTE # 94 -PORT # 28 -BYTE # 95 -PORT # 28 -BYTE # 96 -PORT # 28 -BYTE # 97 -PORT # 28 -BYTE # 98 -PORT # 28 -BYTE # 99 -PORT # 28 -BYTE # 100 -PORT # 28 -BYTE # 101 -PORT # 28 -BYTE # 102 -PORT # 28 -BYTE # 103 -PORT # 28 -BYTE # 104 -PORT # 28 -BYTE # 105 -PORT # 28 -BYTE # 106 -PORT # 28 -BYTE # 107 -PORT # 28 -BYTE # 108 -PORT # 28 -BYTE # 109 -PORT # 28 -BYTE # 110 -PORT # 28 -BYTE # 111 -PORT # 28 -BYTE # 112 -PORT # 28 -BYTE # 113 -PORT # 28 -BYTE # 114 -PORT # 28 -BYTE # 115 -PORT # 28 -BYTE # 116 -PORT # 28 -BYTE # 117 -PORT # 28 -BYTE # 118 -PORT # 28 -BYTE # 119 -PORT # 28 -BYTE # 120 -PORT # 28 -BYTE # 121 -PORT # 28 -BYTE # 122 -PORT # 28 -BYTE # 123 -PORT # 28 -BYTE # 124 -PORT # 28 -BYTE # 125 -PORT # 28 -BYTE # 126 -PORT # 28 -BYTE # 127 -PORT # 28 -BYTE # 128 -PORT # 28 -BYTE # 129 -PORT # 28 -BYTE # 130 -PORT # 28 -BYTE # 131 -PORT # 28 -BYTE # 132 -PORT # 28 -BYTE # 133 -PORT # 28 -BYTE # 134 -PORT # 28 -BYTE # 135 -PORT # 28 -BYTE # 136 -PORT # 28 -BYTE # 137 -PORT # 28 -BYTE # 138 -PORT # 28 -BYTE # 139 -PORT # 28 -BYTE # 140 -PORT # 28 -BYTE # 141 -PORT # 28 -BYTE # 142 -PORT # 28 -BYTE # 143 -PORT # 28 -BYTE # 144 -PORT # 28 -BYTE # 145 -PORT # 28 -BYTE # 146 -PORT # 28 -BYTE # 147 -PORT # 28 -BYTE # 148 -PORT # 28 -BYTE # 149 -PORT # 28 -BYTE # 150 -PORT # 28 -BYTE # 151 -PORT # 28 -BYTE # 152 -PORT # 28 -BYTE # 153 -PORT # 28 -BYTE # 154 -PORT # 28 -BYTE # 155 -PORT # 28 -BYTE # 156 -PORT # 28 -BYTE # 157 -PORT # 28 -BYTE # 158 -PORT # 28 -BYTE # 159 -PORT # 28 -BYTE # 160 -PORT # 28 -BYTE # 161 -PORT # 28 -BYTE # 162 -PORT # 28 -BYTE # 163 -PORT # 28 -BYTE # 164 -PORT # 28 -BYTE # 165 -PORT # 28 -BYTE # 166 -PORT # 28 -BYTE # 167 -PORT # 28 -BYTE # 168 -PORT # 28 -BYTE # 169 -PORT # 28 -BYTE # 170 -PORT # 28 -BYTE # 171 -PORT # 28 -BYTE # 172 -PORT # 28 -BYTE # 173 -PORT # 28 -BYTE # 174 -PORT # 28 -BYTE # 175 -PORT # 28 -BYTE # 176 -PORT # 28 -BYTE # 177 -PORT # 28 -BYTE # 178 -PORT # 28 -BYTE # 179 -PORT # 28 -BYTE # 180 -PORT # 28 -BYTE # 181 -PORT # 28 -BYTE # 182 -PORT # 28 -BYTE # 183 -PORT # 28 -BYTE # 184 -PORT # 28 -BYTE # 185 -PORT # 28 -BYTE # 186 -PORT # 28 -BYTE # 187 -PORT # 28 -BYTE # 188 -PORT # 28 -BYTE # 189 -PORT # 28 -BYTE # 190 -PORT # 28 -BYTE # 191 -PORT # 28 -BYTE # 192 -PORT # 28 -BYTE # 193 -PORT # 28 -BYTE # 194 -PORT # 28 -BYTE # 195 -PORT # 28 -BYTE # 196 -PORT # 28 -BYTE # 197 -PORT # 28 -BYTE # 198 -PORT # 28 -BYTE # 199 -PORT # 28 -BYTE # 200 -PORT # 28 -BYTE # 201 -PORT # 28 -BYTE # 202 -PORT # 28 -BYTE # 203 -PORT # 28 -BYTE # 204 -PORT # 28 -BYTE # 205 -PORT # 28 -BYTE # 206 -PORT # 28 -BYTE # 207 -PORT # 28 -BYTE # 208 -PORT # 28 -BYTE # 209 -PORT # 28 -BYTE # 210 -PORT # 28 -BYTE # 211 -PORT # 28 -BYTE # 212 -PORT # 28 -BYTE # 213 -PORT # 28 -BYTE # 214 -PORT # 28 -BYTE # 215 -PORT # 28 -BYTE # 216 -PORT # 28 -BYTE # 217 -PORT # 28 -BYTE # 218 -PORT # 28 -BYTE # 219 -PORT # 28 -BYTE # 220 -PORT # 28 -BYTE # 221 -PORT # 28 -BYTE # 222 -PORT # 28 -BYTE # 223 -PORT # 28 -BYTE # 224 -PORT # 28 -BYTE # 225 -PORT # 28 -BYTE # 226 -PORT # 28 -BYTE # 227 -PORT # 28 -BYTE # 228 -PORT # 28 -BYTE # 229 -PORT # 28 -BYTE # 230 -PORT # 28 -BYTE # 231 -PORT # 28 -BYTE # 232 -PORT # 28 -BYTE # 233 -PORT # 28 -BYTE # 234 -PORT # 28 -BYTE # 235 -PORT # 28 -BYTE # 236 -PORT # 28 -BYTE # 237 -PORT # 28 -BYTE # 238 -PORT # 28 -BYTE # 239 -PORT # 28 -BYTE # 240 -PORT # 28 -BYTE # 241 -PORT # 28 -BYTE # 242 -PORT # 28 -BYTE # 243 -PORT # 28 -BYTE # 244 -PORT # 28 -BYTE # 245 -PORT # 28 -BYTE # 246 -PORT # 28 -BYTE # 247 -PORT # 28 -BYTE # 248 -PORT # 28 -BYTE # 249 -PORT # 28 -BYTE # 250 -PORT # 28 -BYTE # 251 -PORT # 28 -BYTE # 252 -PORT # 28 -BYTE # 253 -PORT # 28 -BYTE # 254 -PORT # 28 -BYTE # 255 -PORT # 29 -BYTE # 0 -PORT # 29 -BYTE # 1 -PORT # 29 -BYTE # 2 -PORT # 29 -BYTE # 3 -PORT # 29 -BYTE # 4 -PORT # 29 -BYTE # 5 -PORT # 29 -BYTE # 6 -PORT # 29 -BYTE # 7 -PORT # 29 -BYTE # 8 -PORT # 29 -BYTE # 9 -PORT # 29 -BYTE # 10 -PORT # 29 -BYTE # 11 -PORT # 29 -BYTE # 12 -PORT # 29 -BYTE # 13 -PORT # 29 -BYTE # 14 -PORT # 29 -BYTE # 15 -PORT # 29 -BYTE # 16 -PORT # 29 -BYTE # 17 -PORT # 29 -BYTE # 18 -PORT # 29 -BYTE # 19 -PORT # 29 -BYTE # 20 -PORT # 29 -BYTE # 21 -PORT # 29 -BYTE # 22 -PORT # 29 -BYTE # 23 -PORT # 29 -BYTE # 24 -PORT # 29 -BYTE # 25 -PORT # 29 -BYTE # 26 -PORT # 29 -BYTE # 27 -PORT # 29 -BYTE # 28 -PORT # 29 -BYTE # 29 -PORT # 29 -BYTE # 30 -PORT # 29 -BYTE # 31 -PORT # 29 -BYTE # 32 -PORT # 29 -BYTE # 33 -PORT # 29 -BYTE # 34 -PORT # 29 -BYTE # 35 -PORT # 29 -BYTE # 36 -PORT # 29 -BYTE # 37 -PORT # 29 -BYTE # 38 -PORT # 29 -BYTE # 39 -PORT # 29 -BYTE # 40 -PORT # 29 -BYTE # 41 -PORT # 29 -BYTE # 42 -PORT # 29 -BYTE # 43 -PORT # 29 -BYTE # 44 -PORT # 29 -BYTE # 45 -PORT # 29 -BYTE # 46 -PORT # 29 -BYTE # 47 -PORT # 29 -BYTE # 48 -PORT # 29 -BYTE # 49 -PORT # 29 -BYTE # 50 -PORT # 29 -BYTE # 51 -PORT # 29 -BYTE # 52 -PORT # 29 -BYTE # 53 -PORT # 29 -BYTE # 54 -PORT # 29 -BYTE # 55 -PORT # 29 -BYTE # 56 -PORT # 29 -BYTE # 57 -PORT # 29 -BYTE # 58 -PORT # 29 -BYTE # 59 -PORT # 29 -BYTE # 60 -PORT # 29 -BYTE # 61 -PORT # 29 -BYTE # 62 -PORT # 29 -BYTE # 63 -PORT # 29 -BYTE # 64 -PORT # 29 -BYTE # 65 -PORT # 29 -BYTE # 66 -PORT # 29 -BYTE # 67 -PORT # 29 -BYTE # 68 -PORT # 29 -BYTE # 69 -PORT # 29 -BYTE # 70 -PORT # 29 -BYTE # 71 -PORT # 29 -BYTE # 72 -PORT # 29 -BYTE # 73 -PORT # 29 -BYTE # 74 -PORT # 29 -BYTE # 75 -PORT # 29 -BYTE # 76 -PORT # 29 -BYTE # 77 -PORT # 29 -BYTE # 78 -PORT # 29 -BYTE # 79 -PORT # 29 -BYTE # 80 -PORT # 29 -BYTE # 81 -PORT # 29 -BYTE # 82 -PORT # 29 -BYTE # 83 -PORT # 29 -BYTE # 84 -PORT # 29 -BYTE # 85 -PORT # 29 -BYTE # 86 -PORT # 29 -BYTE # 87 -PORT # 29 -BYTE # 88 -PORT # 29 -BYTE # 89 -PORT # 29 -BYTE # 90 -PORT # 29 -BYTE # 91 -PORT # 29 -BYTE # 92 -PORT # 29 -BYTE # 93 -PORT # 29 -BYTE # 94 -PORT # 29 -BYTE # 95 -PORT # 29 -BYTE # 96 -PORT # 29 -BYTE # 97 -PORT # 29 -BYTE # 98 -PORT # 29 -BYTE # 99 -PORT # 29 -BYTE # 100 -PORT # 29 -BYTE # 101 -PORT # 29 -BYTE # 102 -PORT # 29 -BYTE # 103 -PORT # 29 -BYTE # 104 -PORT # 29 -BYTE # 105 -PORT # 29 -BYTE # 106 -PORT # 29 -BYTE # 107 -PORT # 29 -BYTE # 108 -PORT # 29 -BYTE # 109 -PORT # 29 -BYTE # 110 -PORT # 29 -BYTE # 111 -PORT # 29 -BYTE # 112 -PORT # 29 -BYTE # 113 -PORT # 29 -BYTE # 114 -PORT # 29 -BYTE # 115 -PORT # 29 -BYTE # 116 -PORT # 29 -BYTE # 117 -PORT # 29 -BYTE # 118 -PORT # 29 -BYTE # 119 -PORT # 29 -BYTE # 120 -PORT # 29 -BYTE # 121 -PORT # 29 -BYTE # 122 -PORT # 29 -BYTE # 123 -PORT # 29 -BYTE # 124 -PORT # 29 -BYTE # 125 -PORT # 29 -BYTE # 126 -PORT # 29 -BYTE # 127 -PORT # 29 -BYTE # 128 -PORT # 29 -BYTE # 129 -PORT # 29 -BYTE # 130 -PORT # 29 -BYTE # 131 -PORT # 29 -BYTE # 132 -PORT # 29 -BYTE # 133 -PORT # 29 -BYTE # 134 -PORT # 29 -BYTE # 135 -PORT # 29 -BYTE # 136 -PORT # 29 -BYTE # 137 -PORT # 29 -BYTE # 138 -PORT # 29 -BYTE # 139 -PORT # 29 -BYTE # 140 -PORT # 29 -BYTE # 141 -PORT # 29 -BYTE # 142 -PORT # 29 -BYTE # 143 -PORT # 29 -BYTE # 144 -PORT # 29 -BYTE # 145 -PORT # 29 -BYTE # 146 -PORT # 29 -BYTE # 147 -PORT # 29 -BYTE # 148 -PORT # 29 -BYTE # 149 -PORT # 29 -BYTE # 150 -PORT # 29 -BYTE # 151 -PORT # 29 -BYTE # 152 -PORT # 29 -BYTE # 153 -PORT # 29 -BYTE # 154 -PORT # 29 -BYTE # 155 -PORT # 29 -BYTE # 156 -PORT # 29 -BYTE # 157 -PORT # 29 -BYTE # 158 -PORT # 29 -BYTE # 159 -PORT # 29 -BYTE # 160 -PORT # 29 -BYTE # 161 -PORT # 29 -BYTE # 162 -PORT # 29 -BYTE # 163 -PORT # 29 -BYTE # 164 -PORT # 29 -BYTE # 165 -PORT # 29 -BYTE # 166 -PORT # 29 -BYTE # 167 -PORT # 29 -BYTE # 168 -PORT # 29 -BYTE # 169 -PORT # 29 -BYTE # 170 -PORT # 29 -BYTE # 171 -PORT # 29 -BYTE # 172 -PORT # 29 -BYTE # 173 -PORT # 29 -BYTE # 174 -PORT # 29 -BYTE # 175 -PORT # 29 -BYTE # 176 -PORT # 29 -BYTE # 177 -PORT # 29 -BYTE # 178 -PORT # 29 -BYTE # 179 -PORT # 29 -BYTE # 180 -PORT # 29 -BYTE # 181 -PORT # 29 -BYTE # 182 -PORT # 29 -BYTE # 183 -PORT # 29 -BYTE # 184 -PORT # 29 -BYTE # 185 -PORT # 29 -BYTE # 186 -PORT # 29 -BYTE # 187 -PORT # 29 -BYTE # 188 -PORT # 29 -BYTE # 189 -PORT # 29 -BYTE # 190 -PORT # 29 -BYTE # 191 -PORT # 29 -BYTE # 192 -PORT # 29 -BYTE # 193 -PORT # 29 -BYTE # 194 -PORT # 29 -BYTE # 195 -PORT # 29 -BYTE # 196 -PORT # 29 -BYTE # 197 -PORT # 29 -BYTE # 198 -PORT # 29 -BYTE # 199 -PORT # 29 -BYTE # 200 -PORT # 29 -BYTE # 201 -PORT # 29 -BYTE # 202 -PORT # 29 -BYTE # 203 -PORT # 29 -BYTE # 204 -PORT # 29 -BYTE # 205 -PORT # 29 -BYTE # 206 -PORT # 29 -BYTE # 207 -PORT # 29 -BYTE # 208 -PORT # 29 -BYTE # 209 -PORT # 29 -BYTE # 210 -PORT # 29 -BYTE # 211 -PORT # 29 -BYTE # 212 -PORT # 29 -BYTE # 213 -PORT # 29 -BYTE # 214 -PORT # 29 -BYTE # 215 -PORT # 29 -BYTE # 216 -PORT # 29 -BYTE # 217 -PORT # 29 -BYTE # 218 -PORT # 29 -BYTE # 219 -PORT # 29 -BYTE # 220 -PORT # 29 -BYTE # 221 -PORT # 29 -BYTE # 222 -PORT # 29 -BYTE # 223 -PORT # 29 -BYTE # 224 -PORT # 29 -BYTE # 225 -PORT # 29 -BYTE # 226 -PORT # 29 -BYTE # 227 -PORT # 29 -BYTE # 228 -PORT # 29 -BYTE # 229 -PORT # 29 -BYTE # 230 -PORT # 29 -BYTE # 231 -PORT # 29 -BYTE # 232 -PORT # 29 -BYTE # 233 -PORT # 29 -BYTE # 234 -PORT # 29 -BYTE # 235 -PORT # 29 -BYTE # 236 -PORT # 29 -BYTE # 237 -PORT # 29 -BYTE # 238 -PORT # 29 -BYTE # 239 -PORT # 29 -BYTE # 240 -PORT # 29 -BYTE # 241 -PORT # 29 -BYTE # 242 -PORT # 29 -BYTE # 243 -PORT # 29 -BYTE # 244 -PORT # 29 -BYTE # 245 -PORT # 29 -BYTE # 246 -PORT # 29 -BYTE # 247 -PORT # 29 -BYTE # 248 -PORT # 29 -BYTE # 249 -PORT # 29 -BYTE # 250 -PORT # 29 -BYTE # 251 -PORT # 29 -BYTE # 252 -PORT # 29 -BYTE # 253 -PORT # 29 -BYTE # 254 -PORT # 29 -BYTE # 255 -PORT # 30 -BYTE # 0 -PORT # 30 -BYTE # 1 -PORT # 30 -BYTE # 2 -PORT # 30 -BYTE # 3 -PORT # 30 -BYTE # 4 -PORT # 30 -BYTE # 5 -PORT # 30 -BYTE # 6 -PORT # 30 -BYTE # 7 -PORT # 30 -BYTE # 8 -PORT # 30 -BYTE # 9 -PORT # 30 -BYTE # 10 -PORT # 30 -BYTE # 11 -PORT # 30 -BYTE # 12 -PORT # 30 -BYTE # 13 -PORT # 30 -BYTE # 14 -PORT # 30 -BYTE # 15 -PORT # 30 -BYTE # 16 -PORT # 30 -BYTE # 17 -PORT # 30 -BYTE # 18 -PORT # 30 -BYTE # 19 -PORT # 30 -BYTE # 20 -PORT # 30 -BYTE # 21 -PORT # 30 -BYTE # 22 -PORT # 30 -BYTE # 23 -PORT # 30 -BYTE # 24 -PORT # 30 -BYTE # 25 -PORT # 30 -BYTE # 26 -PORT # 30 -BYTE # 27 -PORT # 30 -BYTE # 28 -PORT # 30 -BYTE # 29 -PORT # 30 -BYTE # 30 -PORT # 30 -BYTE # 31 -PORT # 30 -BYTE # 32 -PORT # 30 -BYTE # 33 -PORT # 30 -BYTE # 34 -PORT # 30 -BYTE # 35 -PORT # 30 -BYTE # 36 -PORT # 30 -BYTE # 37 -PORT # 30 -BYTE # 38 -PORT # 30 -BYTE # 39 -PORT # 30 -BYTE # 40 -PORT # 30 -BYTE # 41 -PORT # 30 -BYTE # 42 -PORT # 30 -BYTE # 43 -PORT # 30 -BYTE # 44 -PORT # 30 -BYTE # 45 -PORT # 30 -BYTE # 46 -PORT # 30 -BYTE # 47 -PORT # 30 -BYTE # 48 -PORT # 30 -BYTE # 49 -PORT # 30 -BYTE # 50 -PORT # 30 -BYTE # 51 -PORT # 30 -BYTE # 52 -PORT # 30 -BYTE # 53 -PORT # 30 -BYTE # 54 -PORT # 30 -BYTE # 55 -PORT # 30 -BYTE # 56 -PORT # 30 -BYTE # 57 -PORT # 30 -BYTE # 58 -PORT # 30 -BYTE # 59 -PORT # 30 -BYTE # 60 -PORT # 30 -BYTE # 61 -PORT # 30 -BYTE # 62 -PORT # 30 -BYTE # 63 -PORT # 30 -BYTE # 64 -PORT # 30 -BYTE # 65 -PORT # 30 -BYTE # 66 -PORT # 30 -BYTE # 67 -PORT # 30 -BYTE # 68 -PORT # 30 -BYTE # 69 -PORT # 30 -BYTE # 70 -PORT # 30 -BYTE # 71 -PORT # 30 -BYTE # 72 -PORT # 30 -BYTE # 73 -PORT # 30 -BYTE # 74 -PORT # 30 -BYTE # 75 -PORT # 30 -BYTE # 76 -PORT # 30 -BYTE # 77 -PORT # 30 -BYTE # 78 -PORT # 30 -BYTE # 79 -PORT # 30 -BYTE # 80 -PORT # 30 -BYTE # 81 -PORT # 30 -BYTE # 82 -PORT # 30 -BYTE # 83 -PORT # 30 -BYTE # 84 -PORT # 30 -BYTE # 85 -PORT # 30 -BYTE # 86 -PORT # 30 -BYTE # 87 -PORT # 30 -BYTE # 88 -PORT # 30 -BYTE # 89 -PORT # 30 -BYTE # 90 -PORT # 30 -BYTE # 91 -PORT # 30 -BYTE # 92 -PORT # 30 -BYTE # 93 -PORT # 30 -BYTE # 94 -PORT # 30 -BYTE # 95 -PORT # 30 -BYTE # 96 -PORT # 30 -BYTE # 97 -PORT # 30 -BYTE # 98 -PORT # 30 -BYTE # 99 -PORT # 30 -BYTE # 100 -PORT # 30 -BYTE # 101 -PORT # 30 -BYTE # 102 -PORT # 30 -BYTE # 103 -PORT # 30 -BYTE # 104 -PORT # 30 -BYTE # 105 -PORT # 30 -BYTE # 106 -PORT # 30 -BYTE # 107 -PORT # 30 -BYTE # 108 -PORT # 30 -BYTE # 109 -PORT # 30 -BYTE # 110 -PORT # 30 -BYTE # 111 -PORT # 30 -BYTE # 112 -PORT # 30 -BYTE # 113 -PORT # 30 -BYTE # 114 -PORT # 30 -BYTE # 115 -PORT # 30 -BYTE # 116 -PORT # 30 -BYTE # 117 -PORT # 30 -BYTE # 118 -PORT # 30 -BYTE # 119 -PORT # 30 -BYTE # 120 -PORT # 30 -BYTE # 121 -PORT # 30 -BYTE # 122 -PORT # 30 -BYTE # 123 -PORT # 30 -BYTE # 124 -PORT # 30 -BYTE # 125 -PORT # 30 -BYTE # 126 -PORT # 30 -BYTE # 127 -PORT # 30 -BYTE # 128 -PORT # 30 -BYTE # 129 -PORT # 30 -BYTE # 130 -PORT # 30 -BYTE # 131 -PORT # 30 -BYTE # 132 -PORT # 30 -BYTE # 133 -PORT # 30 -BYTE # 134 -PORT # 30 -BYTE # 135 -PORT # 30 -BYTE # 136 -PORT # 30 -BYTE # 137 -PORT # 30 -BYTE # 138 -PORT # 30 -BYTE # 139 -PORT # 30 -BYTE # 140 -PORT # 30 -BYTE # 141 -PORT # 30 -BYTE # 142 -PORT # 30 -BYTE # 143 -PORT # 30 -BYTE # 144 -PORT # 30 -BYTE # 145 -PORT # 30 -BYTE # 146 -PORT # 30 -BYTE # 147 -PORT # 30 -BYTE # 148 -PORT # 30 -BYTE # 149 -PORT # 30 -BYTE # 150 -PORT # 30 -BYTE # 151 -PORT # 30 -BYTE # 152 -PORT # 30 -BYTE # 153 -PORT # 30 -BYTE # 154 -PORT # 30 -BYTE # 155 -PORT # 30 -BYTE # 156 -PORT # 30 -BYTE # 157 -PORT # 30 -BYTE # 158 -PORT # 30 -BYTE # 159 -PORT # 30 -BYTE # 160 -PORT # 30 -BYTE # 161 -PORT # 30 -BYTE # 162 -PORT # 30 -BYTE # 163 -PORT # 30 -BYTE # 164 -PORT # 30 -BYTE # 165 -PORT # 30 -BYTE # 166 -PORT # 30 -BYTE # 167 -PORT # 30 -BYTE # 168 -PORT # 30 -BYTE # 169 -PORT # 30 -BYTE # 170 -PORT # 30 -BYTE # 171 -PORT # 30 -BYTE # 172 -PORT # 30 -BYTE # 173 -PORT # 30 -BYTE # 174 -PORT # 30 -BYTE # 175 -PORT # 30 -BYTE # 176 -PORT # 30 -BYTE # 177 -PORT # 30 -BYTE # 178 -PORT # 30 -BYTE # 179 -PORT # 30 -BYTE # 180 -PORT # 30 -BYTE # 181 -PORT # 30 -BYTE # 182 -PORT # 30 -BYTE # 183 -PORT # 30 -BYTE # 184 -PORT # 30 -BYTE # 185 -PORT # 30 -BYTE # 186 -PORT # 30 -BYTE # 187 -PORT # 30 -BYTE # 188 -PORT # 30 -BYTE # 189 -PORT # 30 -BYTE # 190 -PORT # 30 -BYTE # 191 -PORT # 30 -BYTE # 192 -PORT # 30 -BYTE # 193 -PORT # 30 -BYTE # 194 -PORT # 30 -BYTE # 195 -PORT # 30 -BYTE # 196 -PORT # 30 -BYTE # 197 -PORT # 30 -BYTE # 198 -PORT # 30 -BYTE # 199 -PORT # 30 -BYTE # 200 -PORT # 30 -BYTE # 201 -PORT # 30 -BYTE # 202 -PORT # 30 -BYTE # 203 -PORT # 30 -BYTE # 204 -PORT # 30 -BYTE # 205 -PORT # 30 -BYTE # 206 -PORT # 30 -BYTE # 207 -PORT # 30 -BYTE # 208 -PORT # 30 -BYTE # 209 -PORT # 30 -BYTE # 210 -PORT # 30 -BYTE # 211 -PORT # 30 -BYTE # 212 -PORT # 30 -BYTE # 213 -PORT # 30 -BYTE # 214 -PORT # 30 -BYTE # 215 -PORT # 30 -BYTE # 216 -PORT # 30 -BYTE # 217 -PORT # 30 -BYTE # 218 -PORT # 30 -BYTE # 219 -PORT # 30 -BYTE # 220 -PORT # 30 -BYTE # 221 -PORT # 30 -BYTE # 222 -PORT # 30 -BYTE # 223 -PORT # 30 -BYTE # 224 -PORT # 30 -BYTE # 225 -PORT # 30 -BYTE # 226 -PORT # 30 -BYTE # 227 -PORT # 30 -BYTE # 228 -PORT # 30 -BYTE # 229 -PORT # 30 -BYTE # 230 -PORT # 30 -BYTE # 231 -PORT # 30 -BYTE # 232 -PORT # 30 -BYTE # 233 -PORT # 30 -BYTE # 234 -PORT # 30 -BYTE # 235 -PORT # 30 -BYTE # 236 -PORT # 30 -BYTE # 237 -PORT # 30 -BYTE # 238 -PORT # 30 -BYTE # 239 -PORT # 30 -BYTE # 240 -PORT # 30 -BYTE # 241 -PORT # 30 -BYTE # 242 -PORT # 30 -BYTE # 243 -PORT # 30 -BYTE # 244 -PORT # 30 -BYTE # 245 -PORT # 30 -BYTE # 246 -PORT # 30 -BYTE # 247 -PORT # 30 -BYTE # 248 -PORT # 30 -BYTE # 249 -PORT # 30 -BYTE # 250 -PORT # 30 -BYTE # 251 -PORT # 30 -BYTE # 252 -PORT # 30 -BYTE # 253 -PORT # 30 -BYTE # 254 -PORT # 30 -BYTE # 255 -PORT # 31 -BYTE # 0 -PORT # 31 -BYTE # 1 -PORT # 31 -BYTE # 2 -PORT # 31 -BYTE # 3 -PORT # 31 -BYTE # 4 -PORT # 31 -BYTE # 5 -PORT # 31 -BYTE # 6 -PORT # 31 -BYTE # 7 -PORT # 31 -BYTE # 8 -PORT # 31 -BYTE # 9 -PORT # 31 -BYTE # 10 -PORT # 31 -BYTE # 11 -PORT # 31 -BYTE # 12 -PORT # 31 -BYTE # 13 -PORT # 31 -BYTE # 14 -PORT # 31 -BYTE # 15 -PORT # 31 -BYTE # 16 -PORT # 31 -BYTE # 17 -PORT # 31 -BYTE # 18 -PORT # 31 -BYTE # 19 -PORT # 31 -BYTE # 20 -PORT # 31 -BYTE # 21 -PORT # 31 -BYTE # 22 -PORT # 31 -BYTE # 23 -PORT # 31 -BYTE # 24 -PORT # 31 -BYTE # 25 -PORT # 31 -BYTE # 26 -PORT # 31 -BYTE # 27 -PORT # 31 -BYTE # 28 -PORT # 31 -BYTE # 29 -PORT # 31 -BYTE # 30 -PORT # 31 -BYTE # 31 -PORT # 31 -BYTE # 32 -PORT # 31 -BYTE # 33 -PORT # 31 -BYTE # 34 -PORT # 31 -BYTE # 35 -PORT # 31 -BYTE # 36 -PORT # 31 -BYTE # 37 -PORT # 31 -BYTE # 38 -PORT # 31 -BYTE # 39 -PORT # 31 -BYTE # 40 -PORT # 31 -BYTE # 41 -PORT # 31 -BYTE # 42 -PORT # 31 -BYTE # 43 -PORT # 31 -BYTE # 44 -PORT # 31 -BYTE # 45 -PORT # 31 -BYTE # 46 -PORT # 31 -BYTE # 47 -PORT # 31 -BYTE # 48 -PORT # 31 -BYTE # 49 -PORT # 31 -BYTE # 50 -PORT # 31 -BYTE # 51 -PORT # 31 -BYTE # 52 -PORT # 31 -BYTE # 53 -PORT # 31 -BYTE # 54 -PORT # 31 -BYTE # 55 -PORT # 31 -BYTE # 56 -PORT # 31 -BYTE # 57 -PORT # 31 -BYTE # 58 -PORT # 31 -BYTE # 59 -PORT # 31 -BYTE # 60 -PORT # 31 -BYTE # 61 -PORT # 31 -BYTE # 62 -PORT # 31 -BYTE # 63 -PORT # 31 -BYTE # 64 -PORT # 31 -BYTE # 65 -PORT # 31 -BYTE # 66 -PORT # 31 -BYTE # 67 -PORT # 31 -BYTE # 68 -PORT # 31 -BYTE # 69 -PORT # 31 -BYTE # 70 -PORT # 31 -BYTE # 71 -PORT # 31 -BYTE # 72 -PORT # 31 -BYTE # 73 -PORT # 31 -BYTE # 74 -PORT # 31 -BYTE # 75 -PORT # 31 -BYTE # 76 -PORT # 31 -BYTE # 77 -PORT # 31 -BYTE # 78 -PORT # 31 -BYTE # 79 -PORT # 31 -BYTE # 80 -PORT # 31 -BYTE # 81 -PORT # 31 -BYTE # 82 -PORT # 31 -BYTE # 83 -PORT # 31 -BYTE # 84 -PORT # 31 -BYTE # 85 -PORT # 31 -BYTE # 86 -PORT # 31 -BYTE # 87 -PORT # 31 -BYTE # 88 -PORT # 31 -BYTE # 89 -PORT # 31 -BYTE # 90 -PORT # 31 -BYTE # 91 -PORT # 31 -BYTE # 92 -PORT # 31 -BYTE # 93 -PORT # 31 -BYTE # 94 -PORT # 31 -BYTE # 95 -PORT # 31 -BYTE # 96 -PORT # 31 -BYTE # 97 -PORT # 31 -BYTE # 98 -PORT # 31 -BYTE # 99 -PORT # 31 -BYTE # 100 -PORT # 31 -BYTE # 101 -PORT # 31 -BYTE # 102 -PORT # 31 -BYTE # 103 -PORT # 31 -BYTE # 104 -PORT # 31 -BYTE # 105 -PORT # 31 -BYTE # 106 -PORT # 31 -BYTE # 107 -PORT # 31 -BYTE # 108 -PORT # 31 -BYTE # 109 -PORT # 31 -BYTE # 110 -PORT # 31 -BYTE # 111 -PORT # 31 -BYTE # 112 -PORT # 31 -BYTE # 113 -PORT # 31 -BYTE # 114 -PORT # 31 -BYTE # 115 -PORT # 31 -BYTE # 116 -PORT # 31 -BYTE # 117 -PORT # 31 -BYTE # 118 -PORT # 31 -BYTE # 119 -PORT # 31 -BYTE # 120 -PORT # 31 -BYTE # 121 -PORT # 31 -BYTE # 122 -PORT # 31 -BYTE # 123 -PORT # 31 -BYTE # 124 -PORT # 31 -BYTE # 125 -PORT # 31 -BYTE # 126 -PORT # 31 -BYTE # 127 -PORT # 31 -BYTE # 128 -PORT # 31 -BYTE # 129 -PORT # 31 -BYTE # 130 -PORT # 31 -BYTE # 131 -PORT # 31 -BYTE # 132 -PORT # 31 -BYTE # 133 -PORT # 31 -BYTE # 134 -PORT # 31 -BYTE # 135 -PORT # 31 -BYTE # 136 -PORT # 31 -BYTE # 137 -PORT # 31 -BYTE # 138 -PORT # 31 -BYTE # 139 -PORT # 31 -BYTE # 140 -PORT # 31 -BYTE # 141 -PORT # 31 -BYTE # 142 -PORT # 31 -BYTE # 143 -PORT # 31 -BYTE # 144 -PORT # 31 -BYTE # 145 -PORT # 31 -BYTE # 146 -PORT # 31 -BYTE # 147 -PORT # 31 -BYTE # 148 -PORT # 31 -BYTE # 149 -PORT # 31 -BYTE # 150 -PORT # 31 -BYTE # 151 -PORT # 31 -BYTE # 152 -PORT # 31 -BYTE # 153 -PORT # 31 -BYTE # 154 -PORT # 31 -BYTE # 155 -PORT # 31 -BYTE # 156 -PORT # 31 -BYTE # 157 -PORT # 31 -BYTE # 158 -PORT # 31 -BYTE # 159 -PORT # 31 -BYTE # 160 -PORT # 31 -BYTE # 161 -PORT # 31 -BYTE # 162 -PORT # 31 -BYTE # 163 -PORT # 31 -BYTE # 164 -PORT # 31 -BYTE # 165 -PORT # 31 -BYTE # 166 -PORT # 31 -BYTE # 167 -PORT # 31 -BYTE # 168 -PORT # 31 -BYTE # 169 -PORT # 31 -BYTE # 170 -PORT # 31 -BYTE # 171 -PORT # 31 -BYTE # 172 -PORT # 31 -BYTE # 173 -PORT # 31 -BYTE # 174 -PORT # 31 -BYTE # 175 -PORT # 31 -BYTE # 176 -PORT # 31 -BYTE # 177 -PORT # 31 -BYTE # 178 -PORT # 31 -BYTE # 179 -PORT # 31 -BYTE # 180 -PORT # 31 -BYTE # 181 -PORT # 31 -BYTE # 182 -PORT # 31 -BYTE # 183 -PORT # 31 -BYTE # 184 -PORT # 31 -BYTE # 185 -PORT # 31 -BYTE # 186 -PORT # 31 -BYTE # 187 -PORT # 31 -BYTE # 188 -PORT # 31 -BYTE # 189 -PORT # 31 -BYTE # 190 -PORT # 31 -BYTE # 191 -PORT # 31 -BYTE # 192 -PORT # 31 -BYTE # 193 -PORT # 31 -BYTE # 194 -PORT # 31 -BYTE # 195 -PORT # 31 -BYTE # 196 -PORT # 31 -BYTE # 197 -PORT # 31 -BYTE # 198 -PORT # 31 -BYTE # 199 -PORT # 31 -BYTE # 200 -PORT # 31 -BYTE # 201 -PORT # 31 -BYTE # 202 -PORT # 31 -BYTE # 203 -PORT # 31 -BYTE # 204 -PORT # 31 -BYTE # 205 -PORT # 31 -BYTE # 206 -PORT # 31 -BYTE # 207 -PORT # 31 -BYTE # 208 -PORT # 31 -BYTE # 209 -PORT # 31 -BYTE # 210 -PORT # 31 -BYTE # 211 -PORT # 31 -BYTE # 212 -PORT # 31 -BYTE # 213 -PORT # 31 -BYTE # 214 -PORT # 31 -BYTE # 215 -PORT # 31 -BYTE # 216 -PORT # 31 -BYTE # 217 -PORT # 31 -BYTE # 218 -PORT # 31 -BYTE # 219 -PORT # 31 -BYTE # 220 -PORT # 31 -BYTE # 221 -PORT # 31 -BYTE # 222 -PORT # 31 -BYTE # 223 -PORT # 31 -BYTE # 224 -PORT # 31 -BYTE # 225 -PORT # 31 -BYTE # 226 -PORT # 31 -BYTE # 227 -PORT # 31 -BYTE # 228 -PORT # 31 -BYTE # 229 -PORT # 31 -BYTE # 230 -PORT # 31 -BYTE # 231 -PORT # 31 -BYTE # 232 -PORT # 31 -BYTE # 233 -PORT # 31 -BYTE # 234 -PORT # 31 -BYTE # 235 -PORT # 31 -BYTE # 236 -PORT # 31 -BYTE # 237 -PORT # 31 -BYTE # 238 -PORT # 31 -BYTE # 239 -PORT # 31 -BYTE # 240 -PORT # 31 -BYTE # 241 -PORT # 31 -BYTE # 242 -PORT # 31 -BYTE # 243 -PORT # 31 -BYTE # 244 -PORT # 31 -BYTE # 245 -PORT # 31 -BYTE # 246 -PORT # 31 -BYTE # 247 -PORT # 31 -BYTE # 248 -PORT # 31 -BYTE # 249 -PORT # 31 -BYTE # 250 -PORT # 31 -BYTE # 251 -PORT # 31 -BYTE # 252 -PORT # 31 -BYTE # 253 -PORT # 31 -BYTE # 254 -PORT # 31 -BYTE # 255 -PORT # 32 -BYTE # 0 -PORT # 32 -BYTE # 1 -PORT # 32 -BYTE # 2 -PORT # 32 -BYTE # 3 -PORT # 32 -BYTE # 4 -PORT # 32 -BYTE # 5 -PORT # 32 -BYTE # 6 -PORT # 32 -BYTE # 7 -PORT # 32 -BYTE # 8 -PORT # 32 -BYTE # 9 -PORT # 32 -BYTE # 10 -PORT # 32 -BYTE # 11 -PORT # 32 -BYTE # 12 -PORT # 32 -BYTE # 13 -PORT # 32 -BYTE # 14 -PORT # 32 -BYTE # 15 -PORT # 32 -BYTE # 16 -PORT # 32 -BYTE # 17 -PORT # 32 -BYTE # 18 -PORT # 32 -BYTE # 19 -PORT # 32 -BYTE # 20 -PORT # 32 -BYTE # 21 -PORT # 32 -BYTE # 22 -PORT # 32 -BYTE # 23 -PORT # 32 -BYTE # 24 -PORT # 32 -BYTE # 25 -PORT # 32 -BYTE # 26 -PORT # 32 -BYTE # 27 -PORT # 32 -BYTE # 28 -PORT # 32 -BYTE # 29 -PORT # 32 -BYTE # 30 -PORT # 32 -BYTE # 31 -PORT # 32 -BYTE # 32 -PORT # 32 -BYTE # 33 -PORT # 32 -BYTE # 34 -PORT # 32 -BYTE # 35 -PORT # 32 -BYTE # 36 -PORT # 32 -BYTE # 37 -PORT # 32 -BYTE # 38 -PORT # 32 -BYTE # 39 -PORT # 32 -BYTE # 40 -PORT # 32 -BYTE # 41 -PORT # 32 -BYTE # 42 -PORT # 32 -BYTE # 43 -PORT # 32 -BYTE # 44 -PORT # 32 -BYTE # 45 -PORT # 32 -BYTE # 46 -PORT # 32 -BYTE # 47 -PORT # 32 -BYTE # 48 -PORT # 32 -BYTE # 49 -PORT # 32 -BYTE # 50 -PORT # 32 -BYTE # 51 -PORT # 32 -BYTE # 52 -PORT # 32 -BYTE # 53 -PORT # 32 -BYTE # 54 -PORT # 32 -BYTE # 55 -PORT # 32 -BYTE # 56 -PORT # 32 -BYTE # 57 -PORT # 32 -BYTE # 58 -PORT # 32 -BYTE # 59 -PORT # 32 -BYTE # 60 -PORT # 32 -BYTE # 61 -PORT # 32 -BYTE # 62 -PORT # 32 -BYTE # 63 -PORT # 32 -BYTE # 64 -PORT # 32 -BYTE # 65 -PORT # 32 -BYTE # 66 -PORT # 32 -BYTE # 67 -PORT # 32 -BYTE # 68 -PORT # 32 -BYTE # 69 -PORT # 32 -BYTE # 70 -PORT # 32 -BYTE # 71 -PORT # 32 -BYTE # 72 -PORT # 32 -BYTE # 73 -PORT # 32 -BYTE # 74 -PORT # 32 -BYTE # 75 -PORT # 32 -BYTE # 76 -PORT # 32 -BYTE # 77 -PORT # 32 -BYTE # 78 -PORT # 32 -BYTE # 79 -PORT # 32 -BYTE # 80 -PORT # 32 -BYTE # 81 -PORT # 32 -BYTE # 82 -PORT # 32 -BYTE # 83 -PORT # 32 -BYTE # 84 -PORT # 32 -BYTE # 85 -PORT # 32 -BYTE # 86 -PORT # 32 -BYTE # 87 -PORT # 32 -BYTE # 88 -PORT # 32 -BYTE # 89 -PORT # 32 -BYTE # 90 -PORT # 32 -BYTE # 91 -PORT # 32 -BYTE # 92 -PORT # 32 -BYTE # 93 -PORT # 32 -BYTE # 94 -PORT # 32 -BYTE # 95 -PORT # 32 -BYTE # 96 -PORT # 32 -BYTE # 97 -PORT # 32 -BYTE # 98 -PORT # 32 -BYTE # 99 -PORT # 32 -BYTE # 100 -PORT # 32 -BYTE # 101 -PORT # 32 -BYTE # 102 -PORT # 32 -BYTE # 103 -PORT # 32 -BYTE # 104 -PORT # 32 -BYTE # 105 -PORT # 32 -BYTE # 106 -PORT # 32 -BYTE # 107 -PORT # 32 -BYTE # 108 -PORT # 32 -BYTE # 109 -PORT # 32 -BYTE # 110 -PORT # 32 -BYTE # 111 -PORT # 32 -BYTE # 112 -PORT # 32 -BYTE # 113 -PORT # 32 -BYTE # 114 -PORT # 32 -BYTE # 115 -PORT # 32 -BYTE # 116 -PORT # 32 -BYTE # 117 -PORT # 32 -BYTE # 118 -PORT # 32 -BYTE # 119 -PORT # 32 -BYTE # 120 -PORT # 32 -BYTE # 121 -PORT # 32 -BYTE # 122 -PORT # 32 -BYTE # 123 -PORT # 32 -BYTE # 124 -PORT # 32 -BYTE # 125 -PORT # 32 -BYTE # 126 -PORT # 32 -BYTE # 127 -PORT # 32 -BYTE # 128 -PORT # 32 -BYTE # 129 -PORT # 32 -BYTE # 130 -PORT # 32 -BYTE # 131 -PORT # 32 -BYTE # 132 -PORT # 32 -BYTE # 133 -PORT # 32 -BYTE # 134 -PORT # 32 -BYTE # 135 -PORT # 32 -BYTE # 136 -PORT # 32 -BYTE # 137 -PORT # 32 -BYTE # 138 -PORT # 32 -BYTE # 139 -PORT # 32 -BYTE # 140 -PORT # 32 -BYTE # 141 -PORT # 32 -BYTE # 142 -PORT # 32 -BYTE # 143 -PORT # 32 -BYTE # 144 -PORT # 32 -BYTE # 145 -PORT # 32 -BYTE # 146 -PORT # 32 -BYTE # 147 -PORT # 32 -BYTE # 148 -PORT # 32 -BYTE # 149 -PORT # 32 -BYTE # 150 -PORT # 32 -BYTE # 151 -PORT # 32 -BYTE # 152 -PORT # 32 -BYTE # 153 -PORT # 32 -BYTE # 154 -PORT # 32 -BYTE # 155 -PORT # 32 -BYTE # 156 -PORT # 32 -BYTE # 157 -PORT # 32 -BYTE # 158 -PORT # 32 -BYTE # 159 -PORT # 32 -BYTE # 160 -PORT # 32 -BYTE # 161 -PORT # 32 -BYTE # 162 -PORT # 32 -BYTE # 163 -PORT # 32 -BYTE # 164 -PORT # 32 -BYTE # 165 -PORT # 32 -BYTE # 166 -PORT # 32 -BYTE # 167 -PORT # 32 -BYTE # 168 -PORT # 32 -BYTE # 169 -PORT # 32 -BYTE # 170 -PORT # 32 -BYTE # 171 -PORT # 32 -BYTE # 172 -PORT # 32 -BYTE # 173 -PORT # 32 -BYTE # 174 -PORT # 32 -BYTE # 175 -PORT # 32 -BYTE # 176 -PORT # 32 -BYTE # 177 -PORT # 32 -BYTE # 178 -PORT # 32 -BYTE # 179 -PORT # 32 -BYTE # 180 -PORT # 32 -BYTE # 181 -PORT # 32 -BYTE # 182 -PORT # 32 -BYTE # 183 -PORT # 32 -BYTE # 184 -PORT # 32 -BYTE # 185 -PORT # 32 -BYTE # 186 -PORT # 32 -BYTE # 187 -PORT # 32 -BYTE # 188 -PORT # 32 -BYTE # 189 -PORT # 32 -BYTE # 190 -PORT # 32 -BYTE # 191 -PORT # 32 -BYTE # 192 -PORT # 32 -BYTE # 193 -PORT # 32 -BYTE # 194 -PORT # 32 -BYTE # 195 -PORT # 32 -BYTE # 196 -PORT # 32 -BYTE # 197 -PORT # 32 -BYTE # 198 -PORT # 32 -BYTE # 199 -PORT # 32 -BYTE # 200 -PORT # 32 -BYTE # 201 -PORT # 32 -BYTE # 202 -PORT # 32 -BYTE # 203 -PORT # 32 -BYTE # 204 -PORT # 32 -BYTE # 205 -PORT # 32 -BYTE # 206 -PORT # 32 -BYTE # 207 -PORT # 32 -BYTE # 208 -PORT # 32 -BYTE # 209 -PORT # 32 -BYTE # 210 -PORT # 32 -BYTE # 211 -PORT # 32 -BYTE # 212 -PORT # 32 -BYTE # 213 -PORT # 32 -BYTE # 214 -PORT # 32 -BYTE # 215 -PORT # 32 -BYTE # 216 -PORT # 32 -BYTE # 217 -PORT # 32 -BYTE # 218 -PORT # 32 -BYTE # 219 -PORT # 32 -BYTE # 220 -PORT # 32 -BYTE # 221 -PORT # 32 -BYTE # 222 -PORT # 32 -BYTE # 223 -PORT # 32 -BYTE # 224 -PORT # 32 -BYTE # 225 -PORT # 32 -BYTE # 226 -PORT # 32 -BYTE # 227 -PORT # 32 -BYTE # 228 -PORT # 32 -BYTE # 229 -PORT # 32 -BYTE # 230 -PORT # 32 -BYTE # 231 -PORT # 32 -BYTE # 232 -PORT # 32 -BYTE # 233 -PORT # 32 -BYTE # 234 -PORT # 32 -BYTE # 235 -PORT # 32 -BYTE # 236 -PORT # 32 -BYTE # 237 -PORT # 32 -BYTE # 238 -PORT # 32 -BYTE # 239 -PORT # 32 -BYTE # 240 -PORT # 32 -BYTE # 241 -PORT # 32 -BYTE # 242 -PORT # 32 -BYTE # 243 -PORT # 32 -BYTE # 244 -PORT # 32 -BYTE # 245 -PORT # 32 -BYTE # 246 -PORT # 32 -BYTE # 247 -PORT # 32 -BYTE # 248 -PORT # 32 -BYTE # 249 -PORT # 32 -BYTE # 250 -PORT # 32 -BYTE # 251 -PORT # 32 -BYTE # 252 -PORT # 32 -BYTE # 253 -PORT # 32 -BYTE # 254 -PORT # 32 -BYTE # 255 -PORT # 33 -BYTE # 0 -PORT # 33 -BYTE # 1 -PORT # 33 -BYTE # 2 -PORT # 33 -BYTE # 3 -PORT # 33 -BYTE # 4 -PORT # 33 -BYTE # 5 -PORT # 33 -BYTE # 6 -PORT # 33 -BYTE # 7 -PORT # 33 -BYTE # 8 -PORT # 33 -BYTE # 9 -PORT # 33 -BYTE # 10 -PORT # 33 -BYTE # 11 -PORT # 33 -BYTE # 12 -PORT # 33 -BYTE # 13 -PORT # 33 -BYTE # 14 -PORT # 33 -BYTE # 15 -PORT # 33 -BYTE # 16 -PORT # 33 -BYTE # 17 -PORT # 33 -BYTE # 18 -PORT # 33 -BYTE # 19 -PORT # 33 -BYTE # 20 -PORT # 33 -BYTE # 21 -PORT # 33 -BYTE # 22 -PORT # 33 -BYTE # 23 -PORT # 33 -BYTE # 24 -PORT # 33 -BYTE # 25 -PORT # 33 -BYTE # 26 -PORT # 33 -BYTE # 27 -PORT # 33 -BYTE # 28 -PORT # 33 -BYTE # 29 -PORT # 33 -BYTE # 30 -PORT # 33 -BYTE # 31 -PORT # 33 -BYTE # 32 -PORT # 33 -BYTE # 33 -PORT # 33 -BYTE # 34 -PORT # 33 -BYTE # 35 -PORT # 33 -BYTE # 36 -PORT # 33 -BYTE # 37 -PORT # 33 -BYTE # 38 -PORT # 33 -BYTE # 39 -PORT # 33 -BYTE # 40 -PORT # 33 -BYTE # 41 -PORT # 33 -BYTE # 42 -PORT # 33 -BYTE # 43 -PORT # 33 -BYTE # 44 -PORT # 33 -BYTE # 45 -PORT # 33 -BYTE # 46 -PORT # 33 -BYTE # 47 -PORT # 33 -BYTE # 48 -PORT # 33 -BYTE # 49 -PORT # 33 -BYTE # 50 -PORT # 33 -BYTE # 51 -PORT # 33 -BYTE # 52 -PORT # 33 -BYTE # 53 -PORT # 33 -BYTE # 54 -PORT # 33 -BYTE # 55 -PORT # 33 -BYTE # 56 -PORT # 33 -BYTE # 57 -PORT # 33 -BYTE # 58 -PORT # 33 -BYTE # 59 -PORT # 33 -BYTE # 60 -PORT # 33 -BYTE # 61 -PORT # 33 -BYTE # 62 -PORT # 33 -BYTE # 63 -PORT # 33 -BYTE # 64 -PORT # 33 -BYTE # 65 -PORT # 33 -BYTE # 66 -PORT # 33 -BYTE # 67 -PORT # 33 -BYTE # 68 -PORT # 33 -BYTE # 69 -PORT # 33 -BYTE # 70 -PORT # 33 -BYTE # 71 -PORT # 33 -BYTE # 72 -PORT # 33 -BYTE # 73 -PORT # 33 -BYTE # 74 -PORT # 33 -BYTE # 75 -PORT # 33 -BYTE # 76 -PORT # 33 -BYTE # 77 -PORT # 33 -BYTE # 78 -PORT # 33 -BYTE # 79 -PORT # 33 -BYTE # 80 -PORT # 33 -BYTE # 81 -PORT # 33 -BYTE # 82 -PORT # 33 -BYTE # 83 -PORT # 33 -BYTE # 84 -PORT # 33 -BYTE # 85 -PORT # 33 -BYTE # 86 -PORT # 33 -BYTE # 87 -PORT # 33 -BYTE # 88 -PORT # 33 -BYTE # 89 -PORT # 33 -BYTE # 90 -PORT # 33 -BYTE # 91 -PORT # 33 -BYTE # 92 -PORT # 33 -BYTE # 93 -PORT # 33 -BYTE # 94 -PORT # 33 -BYTE # 95 -PORT # 33 -BYTE # 96 -PORT # 33 -BYTE # 97 -PORT # 33 -BYTE # 98 -PORT # 33 -BYTE # 99 -PORT # 33 -BYTE # 100 -PORT # 33 -BYTE # 101 -PORT # 33 -BYTE # 102 -PORT # 33 -BYTE # 103 -PORT # 33 -BYTE # 104 -PORT # 33 -BYTE # 105 -PORT # 33 -BYTE # 106 -PORT # 33 -BYTE # 107 -PORT # 33 -BYTE # 108 -PORT # 33 -BYTE # 109 -PORT # 33 -BYTE # 110 -PORT # 33 -BYTE # 111 -PORT # 33 -BYTE # 112 -PORT # 33 -BYTE # 113 -PORT # 33 -BYTE # 114 -PORT # 33 -BYTE # 115 -PORT # 33 -BYTE # 116 -PORT # 33 -BYTE # 117 -PORT # 33 -BYTE # 118 -PORT # 33 -BYTE # 119 -PORT # 33 -BYTE # 120 -PORT # 33 -BYTE # 121 -PORT # 33 -BYTE # 122 -PORT # 33 -BYTE # 123 -PORT # 33 -BYTE # 124 -PORT # 33 -BYTE # 125 -PORT # 33 -BYTE # 126 -PORT # 33 -BYTE # 127 -PORT # 33 -BYTE # 128 -PORT # 33 -BYTE # 129 -PORT # 33 -BYTE # 130 -PORT # 33 -BYTE # 131 -PORT # 33 -BYTE # 132 -PORT # 33 -BYTE # 133 -PORT # 33 -BYTE # 134 -PORT # 33 -BYTE # 135 -PORT # 33 -BYTE # 136 -PORT # 33 -BYTE # 137 -PORT # 33 -BYTE # 138 -PORT # 33 -BYTE # 139 -PORT # 33 -BYTE # 140 -PORT # 33 -BYTE # 141 -PORT # 33 -BYTE # 142 -PORT # 33 -BYTE # 143 -PORT # 33 -BYTE # 144 -PORT # 33 -BYTE # 145 -PORT # 33 -BYTE # 146 -PORT # 33 -BYTE # 147 -PORT # 33 -BYTE # 148 -PORT # 33 -BYTE # 149 -PORT # 33 -BYTE # 150 -PORT # 33 -BYTE # 151 -PORT # 33 -BYTE # 152 -PORT # 33 -BYTE # 153 -PORT # 33 -BYTE # 154 -PORT # 33 -BYTE # 155 -PORT # 33 -BYTE # 156 -PORT # 33 -BYTE # 157 -PORT # 33 -BYTE # 158 -PORT # 33 -BYTE # 159 -PORT # 33 -BYTE # 160 -PORT # 33 -BYTE # 161 -PORT # 33 -BYTE # 162 -PORT # 33 -BYTE # 163 -PORT # 33 -BYTE # 164 -PORT # 33 -BYTE # 165 -PORT # 33 -BYTE # 166 -PORT # 33 -BYTE # 167 -PORT # 33 -BYTE # 168 -PORT # 33 -BYTE # 169 -PORT # 33 -BYTE # 170 -PORT # 33 -BYTE # 171 -PORT # 33 -BYTE # 172 -PORT # 33 -BYTE # 173 -PORT # 33 -BYTE # 174 -PORT # 33 -BYTE # 175 -PORT # 33 -BYTE # 176 -PORT # 33 -BYTE # 177 -PORT # 33 -BYTE # 178 -PORT # 33 -BYTE # 179 -PORT # 33 -BYTE # 180 -PORT # 33 -BYTE # 181 -PORT # 33 -BYTE # 182 -PORT # 33 -BYTE # 183 -PORT # 33 -BYTE # 184 -PORT # 33 -BYTE # 185 -PORT # 33 -BYTE # 186 -PORT # 33 -BYTE # 187 -PORT # 33 -BYTE # 188 -PORT # 33 -BYTE # 189 -PORT # 33 -BYTE # 190 -PORT # 33 -BYTE # 191 -PORT # 33 -BYTE # 192 -PORT # 33 -BYTE # 193 -PORT # 33 -BYTE # 194 -PORT # 33 -BYTE # 195 -PORT # 33 -BYTE # 196 -PORT # 33 -BYTE # 197 -PORT # 33 -BYTE # 198 -PORT # 33 -BYTE # 199 -PORT # 33 -BYTE # 200 -PORT # 33 -BYTE # 201 -PORT # 33 -BYTE # 202 -PORT # 33 -BYTE # 203 -PORT # 33 -BYTE # 204 -PORT # 33 -BYTE # 205 -PORT # 33 -BYTE # 206 -PORT # 33 -BYTE # 207 -PORT # 33 -BYTE # 208 -PORT # 33 -BYTE # 209 -PORT # 33 -BYTE # 210 -PORT # 33 -BYTE # 211 -PORT # 33 -BYTE # 212 -PORT # 33 -BYTE # 213 -PORT # 33 -BYTE # 214 -PORT # 33 -BYTE # 215 -PORT # 33 -BYTE # 216 -PORT # 33 -BYTE # 217 -PORT # 33 -BYTE # 218 -PORT # 33 -BYTE # 219 -PORT # 33 -BYTE # 220 -PORT # 33 -BYTE # 221 -PORT # 33 -BYTE # 222 -PORT # 33 -BYTE # 223 -PORT # 33 -BYTE # 224 -PORT # 33 -BYTE # 225 -PORT # 33 -BYTE # 226 -PORT # 33 -BYTE # 227 -PORT # 33 -BYTE # 228 -PORT # 33 -BYTE # 229 -PORT # 33 -BYTE # 230 -PORT # 33 -BYTE # 231 -PORT # 33 -BYTE # 232 -PORT # 33 -BYTE # 233 -PORT # 33 -BYTE # 234 -PORT # 33 -BYTE # 235 -PORT # 33 -BYTE # 236 -PORT # 33 -BYTE # 237 -PORT # 33 -BYTE # 238 -PORT # 33 -BYTE # 239 -PORT # 33 -BYTE # 240 -PORT # 33 -BYTE # 241 -PORT # 33 -BYTE # 242 -PORT # 33 -BYTE # 243 -PORT # 33 -BYTE # 244 -PORT # 33 -BYTE # 245 -PORT # 33 -BYTE # 246 -PORT # 33 -BYTE # 247 -PORT # 33 -BYTE # 248 -PORT # 33 -BYTE # 249 -PORT # 33 -BYTE # 250 -PORT # 33 -BYTE # 251 -PORT # 33 -BYTE # 252 -PORT # 33 -BYTE # 253 -PORT # 33 -BYTE # 254 -PORT # 33 -BYTE # 255 -PORT # 34 -BYTE # 0 -PORT # 34 -BYTE # 1 -PORT # 34 -BYTE # 2 -PORT # 34 -BYTE # 3 -PORT # 34 -BYTE # 4 -PORT # 34 -BYTE # 5 -PORT # 34 -BYTE # 6 -PORT # 34 -BYTE # 7 -PORT # 34 -BYTE # 8 -PORT # 34 -BYTE # 9 -PORT # 34 -BYTE # 10 -PORT # 34 -BYTE # 11 -PORT # 34 -BYTE # 12 -PORT # 34 -BYTE # 13 -PORT # 34 -BYTE # 14 -PORT # 34 -BYTE # 15 -PORT # 34 -BYTE # 16 -PORT # 34 -BYTE # 17 -PORT # 34 -BYTE # 18 -PORT # 34 -BYTE # 19 -PORT # 34 -BYTE # 20 -PORT # 34 -BYTE # 21 -PORT # 34 -BYTE # 22 -PORT # 34 -BYTE # 23 -PORT # 34 -BYTE # 24 -PORT # 34 -BYTE # 25 -PORT # 34 -BYTE # 26 -PORT # 34 -BYTE # 27 -PORT # 34 -BYTE # 28 -PORT # 34 -BYTE # 29 -PORT # 34 -BYTE # 30 -PORT # 34 -BYTE # 31 -PORT # 34 -BYTE # 32 -PORT # 34 -BYTE # 33 -PORT # 34 -BYTE # 34 -PORT # 34 -BYTE # 35 -PORT # 34 -BYTE # 36 -PORT # 34 -BYTE # 37 -PORT # 34 -BYTE # 38 -PORT # 34 -BYTE # 39 -PORT # 34 -BYTE # 40 -PORT # 34 -BYTE # 41 -PORT # 34 -BYTE # 42 -PORT # 34 -BYTE # 43 -PORT # 34 -BYTE # 44 -PORT # 34 -BYTE # 45 -PORT # 34 -BYTE # 46 -PORT # 34 -BYTE # 47 -PORT # 34 -BYTE # 48 -PORT # 34 -BYTE # 49 -PORT # 34 -BYTE # 50 -PORT # 34 -BYTE # 51 -PORT # 34 -BYTE # 52 -PORT # 34 -BYTE # 53 -PORT # 34 -BYTE # 54 -PORT # 34 -BYTE # 55 -PORT # 34 -BYTE # 56 -PORT # 34 -BYTE # 57 -PORT # 34 -BYTE # 58 -PORT # 34 -BYTE # 59 -PORT # 34 -BYTE # 60 -PORT # 34 -BYTE # 61 -PORT # 34 -BYTE # 62 -PORT # 34 -BYTE # 63 -PORT # 34 -BYTE # 64 -PORT # 34 -BYTE # 65 -PORT # 34 -BYTE # 66 -PORT # 34 -BYTE # 67 -PORT # 34 -BYTE # 68 -PORT # 34 -BYTE # 69 -PORT # 34 -BYTE # 70 -PORT # 34 -BYTE # 71 -PORT # 34 -BYTE # 72 -PORT # 34 -BYTE # 73 -PORT # 34 -BYTE # 74 -PORT # 34 -BYTE # 75 -PORT # 34 -BYTE # 76 -PORT # 34 -BYTE # 77 -PORT # 34 -BYTE # 78 -PORT # 34 -BYTE # 79 -PORT # 34 -BYTE # 80 -PORT # 34 -BYTE # 81 -PORT # 34 -BYTE # 82 -PORT # 34 -BYTE # 83 -PORT # 34 -BYTE # 84 -PORT # 34 -BYTE # 85 -PORT # 34 -BYTE # 86 -PORT # 34 -BYTE # 87 -PORT # 34 -BYTE # 88 -PORT # 34 -BYTE # 89 -PORT # 34 -BYTE # 90 -PORT # 34 -BYTE # 91 -PORT # 34 -BYTE # 92 -PORT # 34 -BYTE # 93 -PORT # 34 -BYTE # 94 -PORT # 34 -BYTE # 95 -PORT # 34 -BYTE # 96 -PORT # 34 -BYTE # 97 -PORT # 34 -BYTE # 98 -PORT # 34 -BYTE # 99 -PORT # 34 -BYTE # 100 -PORT # 34 -BYTE # 101 -PORT # 34 -BYTE # 102 -PORT # 34 -BYTE # 103 -PORT # 34 -BYTE # 104 -PORT # 34 -BYTE # 105 -PORT # 34 -BYTE # 106 -PORT # 34 -BYTE # 107 -PORT # 34 -BYTE # 108 -PORT # 34 -BYTE # 109 -PORT # 34 -BYTE # 110 -PORT # 34 -BYTE # 111 -PORT # 34 -BYTE # 112 -PORT # 34 -BYTE # 113 -PORT # 34 -BYTE # 114 -PORT # 34 -BYTE # 115 -PORT # 34 -BYTE # 116 -PORT # 34 -BYTE # 117 -PORT # 34 -BYTE # 118 -PORT # 34 -BYTE # 119 -PORT # 34 -BYTE # 120 -PORT # 34 -BYTE # 121 -PORT # 34 -BYTE # 122 -PORT # 34 -BYTE # 123 -PORT # 34 -BYTE # 124 -PORT # 34 -BYTE # 125 -PORT # 34 -BYTE # 126 -PORT # 34 -BYTE # 127 -PORT # 34 -BYTE # 128 -PORT # 34 -BYTE # 129 -PORT # 34 -BYTE # 130 -PORT # 34 -BYTE # 131 -PORT # 34 -BYTE # 132 -PORT # 34 -BYTE # 133 -PORT # 34 -BYTE # 134 -PORT # 34 -BYTE # 135 -PORT # 34 -BYTE # 136 -PORT # 34 -BYTE # 137 -PORT # 34 -BYTE # 138 -PORT # 34 -BYTE # 139 -PORT # 34 -BYTE # 140 -PORT # 34 -BYTE # 141 -PORT # 34 -BYTE # 142 -PORT # 34 -BYTE # 143 -PORT # 34 -BYTE # 144 -PORT # 34 -BYTE # 145 -PORT # 34 -BYTE # 146 -PORT # 34 -BYTE # 147 -PORT # 34 -BYTE # 148 -PORT # 34 -BYTE # 149 -PORT # 34 -BYTE # 150 -PORT # 34 -BYTE # 151 -PORT # 34 -BYTE # 152 -PORT # 34 -BYTE # 153 -PORT # 34 -BYTE # 154 -PORT # 34 -BYTE # 155 -PORT # 34 -BYTE # 156 -PORT # 34 -BYTE # 157 -PORT # 34 -BYTE # 158 -PORT # 34 -BYTE # 159 -PORT # 34 -BYTE # 160 -PORT # 34 -BYTE # 161 -PORT # 34 -BYTE # 162 -PORT # 34 -BYTE # 163 -PORT # 34 -BYTE # 164 -PORT # 34 -BYTE # 165 -PORT # 34 -BYTE # 166 -PORT # 34 -BYTE # 167 -PORT # 34 -BYTE # 168 -PORT # 34 -BYTE # 169 -PORT # 34 -BYTE # 170 -PORT # 34 -BYTE # 171 -PORT # 34 -BYTE # 172 -PORT # 34 -BYTE # 173 -PORT # 34 -BYTE # 174 -PORT # 34 -BYTE # 175 -PORT # 34 -BYTE # 176 -PORT # 34 -BYTE # 177 -PORT # 34 -BYTE # 178 -PORT # 34 -BYTE # 179 -PORT # 34 -BYTE # 180 -PORT # 34 -BYTE # 181 -PORT # 34 -BYTE # 182 -PORT # 34 -BYTE # 183 -PORT # 34 -BYTE # 184 -PORT # 34 -BYTE # 185 -PORT # 34 -BYTE # 186 -PORT # 34 -BYTE # 187 -PORT # 34 -BYTE # 188 -PORT # 34 -BYTE # 189 -PORT # 34 -BYTE # 190 -PORT # 34 -BYTE # 191 -PORT # 34 -BYTE # 192 -PORT # 34 -BYTE # 193 -PORT # 34 -BYTE # 194 -PORT # 34 -BYTE # 195 -PORT # 34 -BYTE # 196 -PORT # 34 -BYTE # 197 -PORT # 34 -BYTE # 198 -PORT # 34 -BYTE # 199 -PORT # 34 -BYTE # 200 -PORT # 34 -BYTE # 201 -PORT # 34 -BYTE # 202 -PORT # 34 -BYTE # 203 -PORT # 34 -BYTE # 204 -PORT # 34 -BYTE # 205 -PORT # 34 -BYTE # 206 -PORT # 34 -BYTE # 207 -PORT # 34 -BYTE # 208 -PORT # 34 -BYTE # 209 -PORT # 34 -BYTE # 210 -PORT # 34 -BYTE # 211 -PORT # 34 -BYTE # 212 -PORT # 34 -BYTE # 213 -PORT # 34 -BYTE # 214 -PORT # 34 -BYTE # 215 -PORT # 34 -BYTE # 216 -PORT # 34 -BYTE # 217 -PORT # 34 -BYTE # 218 -PORT # 34 -BYTE # 219 -PORT # 34 -BYTE # 220 -PORT # 34 -BYTE # 221 -PORT # 34 -BYTE # 222 -PORT # 34 -BYTE # 223 -PORT # 34 -BYTE # 224 -PORT # 34 -BYTE # 225 -PORT # 34 -BYTE # 226 -PORT # 34 -BYTE # 227 -PORT # 34 -BYTE # 228 -PORT # 34 -BYTE # 229 -PORT # 34 -BYTE # 230 -PORT # 34 -BYTE # 231 -PORT # 34 -BYTE # 232 -PORT # 34 -BYTE # 233 -PORT # 34 -BYTE # 234 -PORT # 34 -BYTE # 235 -PORT # 34 -BYTE # 236 -PORT # 34 -BYTE # 237 -PORT # 34 -BYTE # 238 -PORT # 34 -BYTE # 239 -PORT # 34 -BYTE # 240 -PORT # 34 -BYTE # 241 -PORT # 34 -BYTE # 242 -PORT # 34 -BYTE # 243 -PORT # 34 -BYTE # 244 -PORT # 34 -BYTE # 245 -PORT # 34 -BYTE # 246 -PORT # 34 -BYTE # 247 -PORT # 34 -BYTE # 248 -PORT # 34 -BYTE # 249 -PORT # 34 -BYTE # 250 -PORT # 34 -BYTE # 251 -PORT # 34 -BYTE # 252 -PORT # 34 -BYTE # 253 -PORT # 34 -BYTE # 254 -PORT # 34 -BYTE # 255 -PORT # 35 -BYTE # 0 -PORT # 35 -BYTE # 1 -PORT # 35 -BYTE # 2 -PORT # 35 -BYTE # 3 -PORT # 35 -BYTE # 4 -PORT # 35 -BYTE # 5 -PORT # 35 -BYTE # 6 -PORT # 35 -BYTE # 7 -PORT # 35 -BYTE # 8 -PORT # 35 -BYTE # 9 -PORT # 35 -BYTE # 10 -PORT # 35 -BYTE # 11 -PORT # 35 -BYTE # 12 -PORT # 35 -BYTE # 13 -PORT # 35 -BYTE # 14 -PORT # 35 -BYTE # 15 -PORT # 35 -BYTE # 16 -PORT # 35 -BYTE # 17 -PORT # 35 -BYTE # 18 -PORT # 35 -BYTE # 19 -PORT # 35 -BYTE # 20 -PORT # 35 -BYTE # 21 -PORT # 35 -BYTE # 22 -PORT # 35 -BYTE # 23 -PORT # 35 -BYTE # 24 -PORT # 35 -BYTE # 25 -PORT # 35 -BYTE # 26 -PORT # 35 -BYTE # 27 -PORT # 35 -BYTE # 28 -PORT # 35 -BYTE # 29 -PORT # 35 -BYTE # 30 -PORT # 35 -BYTE # 31 -PORT # 35 -BYTE # 32 -PORT # 35 -BYTE # 33 -PORT # 35 -BYTE # 34 -PORT # 35 -BYTE # 35 -PORT # 35 -BYTE # 36 -PORT # 35 -BYTE # 37 -PORT # 35 -BYTE # 38 -PORT # 35 -BYTE # 39 -PORT # 35 -BYTE # 40 -PORT # 35 -BYTE # 41 -PORT # 35 -BYTE # 42 -PORT # 35 -BYTE # 43 -PORT # 35 -BYTE # 44 -PORT # 35 -BYTE # 45 -PORT # 35 -BYTE # 46 -PORT # 35 -BYTE # 47 -PORT # 35 -BYTE # 48 -PORT # 35 -BYTE # 49 -PORT # 35 -BYTE # 50 -PORT # 35 -BYTE # 51 -PORT # 35 -BYTE # 52 -PORT # 35 -BYTE # 53 -PORT # 35 -BYTE # 54 -PORT # 35 -BYTE # 55 -PORT # 35 -BYTE # 56 -PORT # 35 -BYTE # 57 -PORT # 35 -BYTE # 58 -PORT # 35 -BYTE # 59 -PORT # 35 -BYTE # 60 -PORT # 35 -BYTE # 61 -PORT # 35 -BYTE # 62 -PORT # 35 -BYTE # 63 -PORT # 35 -BYTE # 64 -PORT # 35 -BYTE # 65 -PORT # 35 -BYTE # 66 -PORT # 35 -BYTE # 67 -PORT # 35 -BYTE # 68 -PORT # 35 -BYTE # 69 -PORT # 35 -BYTE # 70 -PORT # 35 -BYTE # 71 -PORT # 35 -BYTE # 72 -PORT # 35 -BYTE # 73 -PORT # 35 -BYTE # 74 -PORT # 35 -BYTE # 75 -PORT # 35 -BYTE # 76 -PORT # 35 -BYTE # 77 -PORT # 35 -BYTE # 78 -PORT # 35 -BYTE # 79 -PORT # 35 -BYTE # 80 -PORT # 35 -BYTE # 81 -PORT # 35 -BYTE # 82 -PORT # 35 -BYTE # 83 -PORT # 35 -BYTE # 84 -PORT # 35 -BYTE # 85 -PORT # 35 -BYTE # 86 -PORT # 35 -BYTE # 87 -PORT # 35 -BYTE # 88 -PORT # 35 -BYTE # 89 -PORT # 35 -BYTE # 90 -PORT # 35 -BYTE # 91 -PORT # 35 -BYTE # 92 -PORT # 35 -BYTE # 93 -PORT # 35 -BYTE # 94 -PORT # 35 -BYTE # 95 -PORT # 35 -BYTE # 96 -PORT # 35 -BYTE # 97 -PORT # 35 -BYTE # 98 -PORT # 35 -BYTE # 99 -PORT # 35 -BYTE # 100 -PORT # 35 -BYTE # 101 -PORT # 35 -BYTE # 102 -PORT # 35 -BYTE # 103 -PORT # 35 -BYTE # 104 -PORT # 35 -BYTE # 105 -PORT # 35 -BYTE # 106 -PORT # 35 -BYTE # 107 -PORT # 35 -BYTE # 108 -PORT # 35 -BYTE # 109 -PORT # 35 -BYTE # 110 -PORT # 35 -BYTE # 111 -PORT # 35 -BYTE # 112 -PORT # 35 -BYTE # 113 -PORT # 35 -BYTE # 114 -PORT # 35 -BYTE # 115 -PORT # 35 -BYTE # 116 -PORT # 35 -BYTE # 117 -PORT # 35 -BYTE # 118 -PORT # 35 -BYTE # 119 -PORT # 35 -BYTE # 120 -PORT # 35 -BYTE # 121 -PORT # 35 -BYTE # 122 -PORT # 35 -BYTE # 123 -PORT # 35 -BYTE # 124 -PORT # 35 -BYTE # 125 -PORT # 35 -BYTE # 126 -PORT # 35 -BYTE # 127 -PORT # 35 -BYTE # 128 -PORT # 35 -BYTE # 129 -PORT # 35 -BYTE # 130 -PORT # 35 -BYTE # 131 -PORT # 35 -BYTE # 132 -PORT # 35 -BYTE # 133 -PORT # 35 -BYTE # 134 -PORT # 35 -BYTE # 135 -PORT # 35 -BYTE # 136 -PORT # 35 -BYTE # 137 -PORT # 35 -BYTE # 138 -PORT # 35 -BYTE # 139 -PORT # 35 -BYTE # 140 -PORT # 35 -BYTE # 141 -PORT # 35 -BYTE # 142 -PORT # 35 -BYTE # 143 -PORT # 35 -BYTE # 144 -PORT # 35 -BYTE # 145 -PORT # 35 -BYTE # 146 -PORT # 35 -BYTE # 147 -PORT # 35 -BYTE # 148 -PORT # 35 -BYTE # 149 -PORT # 35 -BYTE # 150 -PORT # 35 -BYTE # 151 -PORT # 35 -BYTE # 152 -PORT # 35 -BYTE # 153 -PORT # 35 -BYTE # 154 -PORT # 35 -BYTE # 155 -PORT # 35 -BYTE # 156 -PORT # 35 -BYTE # 157 -PORT # 35 -BYTE # 158 -PORT # 35 -BYTE # 159 -PORT # 35 -BYTE # 160 -PORT # 35 -BYTE # 161 -PORT # 35 -BYTE # 162 -PORT # 35 -BYTE # 163 -PORT # 35 -BYTE # 164 -PORT # 35 -BYTE # 165 -PORT # 35 -BYTE # 166 -PORT # 35 -BYTE # 167 -PORT # 35 -BYTE # 168 -PORT # 35 -BYTE # 169 -PORT # 35 -BYTE # 170 -PORT # 35 -BYTE # 171 -PORT # 35 -BYTE # 172 -PORT # 35 -BYTE # 173 -PORT # 35 -BYTE # 174 -PORT # 35 -BYTE # 175 -PORT # 35 -BYTE # 176 -PORT # 35 -BYTE # 177 -PORT # 35 -BYTE # 178 -PORT # 35 -BYTE # 179 -PORT # 35 -BYTE # 180 -PORT # 35 -BYTE # 181 -PORT # 35 -BYTE # 182 -PORT # 35 -BYTE # 183 -PORT # 35 -BYTE # 184 -PORT # 35 -BYTE # 185 -PORT # 35 -BYTE # 186 -PORT # 35 -BYTE # 187 -PORT # 35 -BYTE # 188 -PORT # 35 -BYTE # 189 -PORT # 35 -BYTE # 190 -PORT # 35 -BYTE # 191 -PORT # 35 -BYTE # 192 -PORT # 35 -BYTE # 193 -PORT # 35 -BYTE # 194 -PORT # 35 -BYTE # 195 -PORT # 35 -BYTE # 196 -PORT # 35 -BYTE # 197 -PORT # 35 -BYTE # 198 -PORT # 35 -BYTE # 199 -PORT # 35 -BYTE # 200 -PORT # 35 -BYTE # 201 -PORT # 35 -BYTE # 202 -PORT # 35 -BYTE # 203 -PORT # 35 -BYTE # 204 -PORT # 35 -BYTE # 205 -PORT # 35 -BYTE # 206 -PORT # 35 -BYTE # 207 -PORT # 35 -BYTE # 208 -PORT # 35 -BYTE # 209 -PORT # 35 -BYTE # 210 -PORT # 35 -BYTE # 211 -PORT # 35 -BYTE # 212 -PORT # 35 -BYTE # 213 -PORT # 35 -BYTE # 214 -PORT # 35 -BYTE # 215 -PORT # 35 -BYTE # 216 -PORT # 35 -BYTE # 217 -PORT # 35 -BYTE # 218 -PORT # 35 -BYTE # 219 -PORT # 35 -BYTE # 220 -PORT # 35 -BYTE # 221 -PORT # 35 -BYTE # 222 -PORT # 35 -BYTE # 223 -PORT # 35 -BYTE # 224 -PORT # 35 -BYTE # 225 -PORT # 35 -BYTE # 226 -PORT # 35 -BYTE # 227 -PORT # 35 -BYTE # 228 -PORT # 35 -BYTE # 229 -PORT # 35 -BYTE # 230 -PORT # 35 -BYTE # 231 -PORT # 35 -BYTE # 232 -PORT # 35 -BYTE # 233 -PORT # 35 -BYTE # 234 -PORT # 35 -BYTE # 235 -PORT # 35 -BYTE # 236 -PORT # 35 -BYTE # 237 -PORT # 35 -BYTE # 238 -PORT # 35 -BYTE # 239 -PORT # 35 -BYTE # 240 -PORT # 35 -BYTE # 241 -PORT # 35 -BYTE # 242 -PORT # 35 -BYTE # 243 -PORT # 35 -BYTE # 244 -PORT # 35 -BYTE # 245 -PORT # 35 -BYTE # 246 -PORT # 35 -BYTE # 247 -PORT # 35 -BYTE # 248 -PORT # 35 -BYTE # 249 -PORT # 35 -BYTE # 250 -PORT # 35 -BYTE # 251 -PORT # 35 -BYTE # 252 -PORT # 35 -BYTE # 253 -PORT # 35 -BYTE # 254 -PORT # 35 -BYTE # 255 -PORT # 36 -BYTE # 0 -PORT # 36 -BYTE # 1 -PORT # 36 -BYTE # 2 -PORT # 36 -BYTE # 3 -PORT # 36 -BYTE # 4 -PORT # 36 -BYTE # 5 -PORT # 36 -BYTE # 6 -PORT # 36 -BYTE # 7 -PORT # 36 -BYTE # 8 -PORT # 36 -BYTE # 9 -PORT # 36 -BYTE # 10 -PORT # 36 -BYTE # 11 -PORT # 36 -BYTE # 12 -PORT # 36 -BYTE # 13 -PORT # 36 -BYTE # 14 -PORT # 36 -BYTE # 15 -PORT # 36 -BYTE # 16 -PORT # 36 -BYTE # 17 -PORT # 36 -BYTE # 18 -PORT # 36 -BYTE # 19 -PORT # 36 -BYTE # 20 -PORT # 36 -BYTE # 21 -PORT # 36 -BYTE # 22 -PORT # 36 -BYTE # 23 -PORT # 36 -BYTE # 24 -PORT # 36 -BYTE # 25 -PORT # 36 -BYTE # 26 -PORT # 36 -BYTE # 27 -PORT # 36 -BYTE # 28 -PORT # 36 -BYTE # 29 -PORT # 36 -BYTE # 30 -PORT # 36 -BYTE # 31 -PORT # 36 -BYTE # 32 -PORT # 36 -BYTE # 33 -PORT # 36 -BYTE # 34 -PORT # 36 -BYTE # 35 -PORT # 36 -BYTE # 36 -PORT # 36 -BYTE # 37 -PORT # 36 -BYTE # 38 -PORT # 36 -BYTE # 39 -PORT # 36 -BYTE # 40 -PORT # 36 -BYTE # 41 -PORT # 36 -BYTE # 42 -PORT # 36 -BYTE # 43 -PORT # 36 -BYTE # 44 -PORT # 36 -BYTE # 45 -PORT # 36 -BYTE # 46 -PORT # 36 -BYTE # 47 -PORT # 36 -BYTE # 48 -PORT # 36 -BYTE # 49 -PORT # 36 -BYTE # 50 -PORT # 36 -BYTE # 51 -PORT # 36 -BYTE # 52 -PORT # 36 -BYTE # 53 -PORT # 36 -BYTE # 54 -PORT # 36 -BYTE # 55 -PORT # 36 -BYTE # 56 -PORT # 36 -BYTE # 57 -PORT # 36 -BYTE # 58 -PORT # 36 -BYTE # 59 -PORT # 36 -BYTE # 60 -PORT # 36 -BYTE # 61 -PORT # 36 -BYTE # 62 -PORT # 36 -BYTE # 63 -PORT # 36 -BYTE # 64 -PORT # 36 -BYTE # 65 -PORT # 36 -BYTE # 66 -PORT # 36 -BYTE # 67 -PORT # 36 -BYTE # 68 -PORT # 36 -BYTE # 69 -PORT # 36 -BYTE # 70 -PORT # 36 -BYTE # 71 -PORT # 36 -BYTE # 72 -PORT # 36 -BYTE # 73 -PORT # 36 -BYTE # 74 -PORT # 36 -BYTE # 75 -PORT # 36 -BYTE # 76 -PORT # 36 -BYTE # 77 -PORT # 36 -BYTE # 78 -PORT # 36 -BYTE # 79 -PORT # 36 -BYTE # 80 -PORT # 36 -BYTE # 81 -PORT # 36 -BYTE # 82 -PORT # 36 -BYTE # 83 -PORT # 36 -BYTE # 84 -PORT # 36 -BYTE # 85 -PORT # 36 -BYTE # 86 -PORT # 36 -BYTE # 87 -PORT # 36 -BYTE # 88 -PORT # 36 -BYTE # 89 -PORT # 36 -BYTE # 90 -PORT # 36 -BYTE # 91 -PORT # 36 -BYTE # 92 -PORT # 36 -BYTE # 93 -PORT # 36 -BYTE # 94 -PORT # 36 -BYTE # 95 -PORT # 36 -BYTE # 96 -PORT # 36 -BYTE # 97 -PORT # 36 -BYTE # 98 -PORT # 36 -BYTE # 99 -PORT # 36 -BYTE # 100 -PORT # 36 -BYTE # 101 -PORT # 36 -BYTE # 102 -PORT # 36 -BYTE # 103 -PORT # 36 -BYTE # 104 -PORT # 36 -BYTE # 105 -PORT # 36 -BYTE # 106 -PORT # 36 -BYTE # 107 -PORT # 36 -BYTE # 108 -PORT # 36 -BYTE # 109 -PORT # 36 -BYTE # 110 -PORT # 36 -BYTE # 111 -PORT # 36 -BYTE # 112 -PORT # 36 -BYTE # 113 -PORT # 36 -BYTE # 114 -PORT # 36 -BYTE # 115 -PORT # 36 -BYTE # 116 -PORT # 36 -BYTE # 117 -PORT # 36 -BYTE # 118 -PORT # 36 -BYTE # 119 -PORT # 36 -BYTE # 120 -PORT # 36 -BYTE # 121 -PORT # 36 -BYTE # 122 -PORT # 36 -BYTE # 123 -PORT # 36 -BYTE # 124 -PORT # 36 -BYTE # 125 -PORT # 36 -BYTE # 126 -PORT # 36 -BYTE # 127 -PORT # 36 -BYTE # 128 -PORT # 36 -BYTE # 129 -PORT # 36 -BYTE # 130 -PORT # 36 -BYTE # 131 -PORT # 36 -BYTE # 132 -PORT # 36 -BYTE # 133 -PORT # 36 -BYTE # 134 -PORT # 36 -BYTE # 135 -PORT # 36 -BYTE # 136 -PORT # 36 -BYTE # 137 -PORT # 36 -BYTE # 138 -PORT # 36 -BYTE # 139 -PORT # 36 -BYTE # 140 -PORT # 36 -BYTE # 141 -PORT # 36 -BYTE # 142 -PORT # 36 -BYTE # 143 -PORT # 36 -BYTE # 144 -PORT # 36 -BYTE # 145 -PORT # 36 -BYTE # 146 -PORT # 36 -BYTE # 147 -PORT # 36 -BYTE # 148 -PORT # 36 -BYTE # 149 -PORT # 36 -BYTE # 150 -PORT # 36 -BYTE # 151 -PORT # 36 -BYTE # 152 -PORT # 36 -BYTE # 153 -PORT # 36 -BYTE # 154 -PORT # 36 -BYTE # 155 -PORT # 36 -BYTE # 156 -PORT # 36 -BYTE # 157 -PORT # 36 -BYTE # 158 -PORT # 36 -BYTE # 159 -PORT # 36 -BYTE # 160 -PORT # 36 -BYTE # 161 -PORT # 36 -BYTE # 162 -PORT # 36 -BYTE # 163 -PORT # 36 -BYTE # 164 -PORT # 36 -BYTE # 165 -PORT # 36 -BYTE # 166 -PORT # 36 -BYTE # 167 -PORT # 36 -BYTE # 168 -PORT # 36 -BYTE # 169 -PORT # 36 -BYTE # 170 -PORT # 36 -BYTE # 171 -PORT # 36 -BYTE # 172 -PORT # 36 -BYTE # 173 -PORT # 36 -BYTE # 174 -PORT # 36 -BYTE # 175 -PORT # 36 -BYTE # 176 -PORT # 36 -BYTE # 177 -PORT # 36 -BYTE # 178 -PORT # 36 -BYTE # 179 -PORT # 36 -BYTE # 180 -PORT # 36 -BYTE # 181 -PORT # 36 -BYTE # 182 -PORT # 36 -BYTE # 183 -PORT # 36 -BYTE # 184 -PORT # 36 -BYTE # 185 -PORT # 36 -BYTE # 186 -PORT # 36 -BYTE # 187 -PORT # 36 -BYTE # 188 -PORT # 36 -BYTE # 189 -PORT # 36 -BYTE # 190 -PORT # 36 -BYTE # 191 -PORT # 36 -BYTE # 192 -PORT # 36 -BYTE # 193 -PORT # 36 -BYTE # 194 -PORT # 36 -BYTE # 195 -PORT # 36 -BYTE # 196 -PORT # 36 -BYTE # 197 -PORT # 36 -BYTE # 198 -PORT # 36 -BYTE # 199 -PORT # 36 -BYTE # 200 -PORT # 36 -BYTE # 201 -PORT # 36 -BYTE # 202 -PORT # 36 -BYTE # 203 -PORT # 36 -BYTE # 204 -PORT # 36 -BYTE # 205 -PORT # 36 -BYTE # 206 -PORT # 36 -BYTE # 207 -PORT # 36 -BYTE # 208 -PORT # 36 -BYTE # 209 -PORT # 36 -BYTE # 210 -PORT # 36 -BYTE # 211 -PORT # 36 -BYTE # 212 -PORT # 36 -BYTE # 213 -PORT # 36 -BYTE # 214 -PORT # 36 -BYTE # 215 -PORT # 36 -BYTE # 216 -PORT # 36 -BYTE # 217 -PORT # 36 -BYTE # 218 -PORT # 36 -BYTE # 219 -PORT # 36 -BYTE # 220 -PORT # 36 -BYTE # 221 -PORT # 36 -BYTE # 222 -PORT # 36 -BYTE # 223 -PORT # 36 -BYTE # 224 -PORT # 36 -BYTE # 225 -PORT # 36 -BYTE # 226 -PORT # 36 -BYTE # 227 -PORT # 36 -BYTE # 228 -PORT # 36 -BYTE # 229 -PORT # 36 -BYTE # 230 -PORT # 36 -BYTE # 231 -PORT # 36 -BYTE # 232 -PORT # 36 -BYTE # 233 -PORT # 36 -BYTE # 234 -PORT # 36 -BYTE # 235 -PORT # 36 -BYTE # 236 -PORT # 36 -BYTE # 237 -PORT # 36 -BYTE # 238 -PORT # 36 -BYTE # 239 -PORT # 36 -BYTE # 240 -PORT # 36 -BYTE # 241 -PORT # 36 -BYTE # 242 -PORT # 36 -BYTE # 243 -PORT # 36 -BYTE # 244 -PORT # 36 -BYTE # 245 -PORT # 36 -BYTE # 246 -PORT # 36 -BYTE # 247 -PORT # 36 -BYTE # 248 -PORT # 36 -BYTE # 249 -PORT # 36 -BYTE # 250 -PORT # 36 -BYTE # 251 -PORT # 36 -BYTE # 252 -PORT # 36 -BYTE # 253 -PORT # 36 -BYTE # 254 -PORT # 36 -BYTE # 255 -PORT # 37 -BYTE # 0 -PORT # 37 -BYTE # 1 -PORT # 37 -BYTE # 2 -PORT # 37 -BYTE # 3 -PORT # 37 -BYTE # 4 -PORT # 37 -BYTE # 5 -PORT # 37 -BYTE # 6 -PORT # 37 -BYTE # 7 -PORT # 37 -BYTE # 8 -PORT # 37 -BYTE # 9 -PORT # 37 -BYTE # 10 -PORT # 37 -BYTE # 11 -PORT # 37 -BYTE # 12 -PORT # 37 -BYTE # 13 -PORT # 37 -BYTE # 14 -PORT # 37 -BYTE # 15 -PORT # 37 -BYTE # 16 -PORT # 37 -BYTE # 17 -PORT # 37 -BYTE # 18 -PORT # 37 -BYTE # 19 -PORT # 37 -BYTE # 20 -PORT # 37 -BYTE # 21 -PORT # 37 -BYTE # 22 -PORT # 37 -BYTE # 23 -PORT # 37 -BYTE # 24 -PORT # 37 -BYTE # 25 -PORT # 37 -BYTE # 26 -PORT # 37 -BYTE # 27 -PORT # 37 -BYTE # 28 -PORT # 37 -BYTE # 29 -PORT # 37 -BYTE # 30 -PORT # 37 -BYTE # 31 -PORT # 37 -BYTE # 32 -PORT # 37 -BYTE # 33 -PORT # 37 -BYTE # 34 -PORT # 37 -BYTE # 35 -PORT # 37 -BYTE # 36 -PORT # 37 -BYTE # 37 -PORT # 37 -BYTE # 38 -PORT # 37 -BYTE # 39 -PORT # 37 -BYTE # 40 -PORT # 37 -BYTE # 41 -PORT # 37 -BYTE # 42 -PORT # 37 -BYTE # 43 -PORT # 37 -BYTE # 44 -PORT # 37 -BYTE # 45 -PORT # 37 -BYTE # 46 -PORT # 37 -BYTE # 47 -PORT # 37 -BYTE # 48 -PORT # 37 -BYTE # 49 -PORT # 37 -BYTE # 50 -PORT # 37 -BYTE # 51 -PORT # 37 -BYTE # 52 -PORT # 37 -BYTE # 53 -PORT # 37 -BYTE # 54 -PORT # 37 -BYTE # 55 -PORT # 37 -BYTE # 56 -PORT # 37 -BYTE # 57 -PORT # 37 -BYTE # 58 -PORT # 37 -BYTE # 59 -PORT # 37 -BYTE # 60 -PORT # 37 -BYTE # 61 -PORT # 37 -BYTE # 62 -PORT # 37 -BYTE # 63 -PORT # 37 -BYTE # 64 -PORT # 37 -BYTE # 65 -PORT # 37 -BYTE # 66 -PORT # 37 -BYTE # 67 -PORT # 37 -BYTE # 68 -PORT # 37 -BYTE # 69 -PORT # 37 -BYTE # 70 -PORT # 37 -BYTE # 71 -PORT # 37 -BYTE # 72 -PORT # 37 -BYTE # 73 -PORT # 37 -BYTE # 74 -PORT # 37 -BYTE # 75 -PORT # 37 -BYTE # 76 -PORT # 37 -BYTE # 77 -PORT # 37 -BYTE # 78 -PORT # 37 -BYTE # 79 -PORT # 37 -BYTE # 80 -PORT # 37 -BYTE # 81 -PORT # 37 -BYTE # 82 -PORT # 37 -BYTE # 83 -PORT # 37 -BYTE # 84 -PORT # 37 -BYTE # 85 -PORT # 37 -BYTE # 86 -PORT # 37 -BYTE # 87 -PORT # 37 -BYTE # 88 -PORT # 37 -BYTE # 89 -PORT # 37 -BYTE # 90 -PORT # 37 -BYTE # 91 -PORT # 37 -BYTE # 92 -PORT # 37 -BYTE # 93 -PORT # 37 -BYTE # 94 -PORT # 37 -BYTE # 95 -PORT # 37 -BYTE # 96 -PORT # 37 -BYTE # 97 -PORT # 37 -BYTE # 98 -PORT # 37 -BYTE # 99 -PORT # 37 -BYTE # 100 -PORT # 37 -BYTE # 101 -PORT # 37 -BYTE # 102 -PORT # 37 -BYTE # 103 -PORT # 37 -BYTE # 104 -PORT # 37 -BYTE # 105 -PORT # 37 -BYTE # 106 -PORT # 37 -BYTE # 107 -PORT # 37 -BYTE # 108 -PORT # 37 -BYTE # 109 -PORT # 37 -BYTE # 110 -PORT # 37 -BYTE # 111 -PORT # 37 -BYTE # 112 -PORT # 37 -BYTE # 113 -PORT # 37 -BYTE # 114 -PORT # 37 -BYTE # 115 -PORT # 37 -BYTE # 116 -PORT # 37 -BYTE # 117 -PORT # 37 -BYTE # 118 -PORT # 37 -BYTE # 119 -PORT # 37 -BYTE # 120 -PORT # 37 -BYTE # 121 -PORT # 37 -BYTE # 122 -PORT # 37 -BYTE # 123 -PORT # 37 -BYTE # 124 -PORT # 37 -BYTE # 125 -PORT # 37 -BYTE # 126 -PORT # 37 -BYTE # 127 -PORT # 37 -BYTE # 128 -PORT # 37 -BYTE # 129 -PORT # 37 -BYTE # 130 -PORT # 37 -BYTE # 131 -PORT # 37 -BYTE # 132 -PORT # 37 -BYTE # 133 -PORT # 37 -BYTE # 134 -PORT # 37 -BYTE # 135 -PORT # 37 -BYTE # 136 -PORT # 37 -BYTE # 137 -PORT # 37 -BYTE # 138 -PORT # 37 -BYTE # 139 -PORT # 37 -BYTE # 140 -PORT # 37 -BYTE # 141 -PORT # 37 -BYTE # 142 -PORT # 37 -BYTE # 143 -PORT # 37 -BYTE # 144 -PORT # 37 -BYTE # 145 -PORT # 37 -BYTE # 146 -PORT # 37 -BYTE # 147 -PORT # 37 -BYTE # 148 -PORT # 37 -BYTE # 149 -PORT # 37 -BYTE # 150 -PORT # 37 -BYTE # 151 -PORT # 37 -BYTE # 152 -PORT # 37 -BYTE # 153 -PORT # 37 -BYTE # 154 -PORT # 37 -BYTE # 155 -PORT # 37 -BYTE # 156 -PORT # 37 -BYTE # 157 -PORT # 37 -BYTE # 158 -PORT # 37 -BYTE # 159 -PORT # 37 -BYTE # 160 -PORT # 37 -BYTE # 161 -PORT # 37 -BYTE # 162 -PORT # 37 -BYTE # 163 -PORT # 37 -BYTE # 164 -PORT # 37 -BYTE # 165 -PORT # 37 -BYTE # 166 -PORT # 37 -BYTE # 167 -PORT # 37 -BYTE # 168 -PORT # 37 -BYTE # 169 -PORT # 37 -BYTE # 170 -PORT # 37 -BYTE # 171 -PORT # 37 -BYTE # 172 -PORT # 37 -BYTE # 173 -PORT # 37 -BYTE # 174 -PORT # 37 -BYTE # 175 -PORT # 37 -BYTE # 176 -PORT # 37 -BYTE # 177 -PORT # 37 -BYTE # 178 -PORT # 37 -BYTE # 179 -PORT # 37 -BYTE # 180 -PORT # 37 -BYTE # 181 -PORT # 37 -BYTE # 182 -PORT # 37 -BYTE # 183 -PORT # 37 -BYTE # 184 -PORT # 37 -BYTE # 185 -PORT # 37 -BYTE # 186 -PORT # 37 -BYTE # 187 -PORT # 37 -BYTE # 188 -PORT # 37 -BYTE # 189 -PORT # 37 -BYTE # 190 -PORT # 37 -BYTE # 191 -PORT # 37 -BYTE # 192 -PORT # 37 -BYTE # 193 -PORT # 37 -BYTE # 194 -PORT # 37 -BYTE # 195 -PORT # 37 -BYTE # 196 -PORT # 37 -BYTE # 197 -PORT # 37 -BYTE # 198 -PORT # 37 -BYTE # 199 -PORT # 37 -BYTE # 200 -PORT # 37 -BYTE # 201 -PORT # 37 -BYTE # 202 -PORT # 37 -BYTE # 203 -PORT # 37 -BYTE # 204 -PORT # 37 -BYTE # 205 -PORT # 37 -BYTE # 206 -PORT # 37 -BYTE # 207 -PORT # 37 -BYTE # 208 -PORT # 37 -BYTE # 209 -PORT # 37 -BYTE # 210 -PORT # 37 -BYTE # 211 -PORT # 37 -BYTE # 212 -PORT # 37 -BYTE # 213 -PORT # 37 -BYTE # 214 -PORT # 37 -BYTE # 215 -PORT # 37 -BYTE # 216 -PORT # 37 -BYTE # 217 -PORT # 37 -BYTE # 218 -PORT # 37 -BYTE # 219 -PORT # 37 -BYTE # 220 -PORT # 37 -BYTE # 221 -PORT # 37 -BYTE # 222 -PORT # 37 -BYTE # 223 -PORT # 37 -BYTE # 224 -PORT # 37 -BYTE # 225 -PORT # 37 -BYTE # 226 -PORT # 37 -BYTE # 227 -PORT # 37 -BYTE # 228 -PORT # 37 -BYTE # 229 -PORT # 37 -BYTE # 230 -PORT # 37 -BYTE # 231 -PORT # 37 -BYTE # 232 -PORT # 37 -BYTE # 233 -PORT # 37 -BYTE # 234 -PORT # 37 -BYTE # 235 -PORT # 37 -BYTE # 236 -PORT # 37 -BYTE # 237 -PORT # 37 -BYTE # 238 -PORT # 37 -BYTE # 239 -PORT # 37 -BYTE # 240 -PORT # 37 -BYTE # 241 -PORT # 37 -BYTE # 242 -PORT # 37 -BYTE # 243 -PORT # 37 -BYTE # 244 -PORT # 37 -BYTE # 245 -PORT # 37 -BYTE # 246 -PORT # 37 -BYTE # 247 -PORT # 37 -BYTE # 248 -PORT # 37 -BYTE # 249 -PORT # 37 -BYTE # 250 -PORT # 37 -BYTE # 251 -PORT # 37 -BYTE # 252 -PORT # 37 -BYTE # 253 -PORT # 37 -BYTE # 254 -PORT # 37 -BYTE # 255 -PORT # 38 -BYTE # 0 -PORT # 38 -BYTE # 1 -PORT # 38 -BYTE # 2 -PORT # 38 -BYTE # 3 -PORT # 38 -BYTE # 4 -PORT # 38 -BYTE # 5 -PORT # 38 -BYTE # 6 -PORT # 38 -BYTE # 7 -PORT # 38 -BYTE # 8 -PORT # 38 -BYTE # 9 -PORT # 38 -BYTE # 10 -PORT # 38 -BYTE # 11 -PORT # 38 -BYTE # 12 -PORT # 38 -BYTE # 13 -PORT # 38 -BYTE # 14 -PORT # 38 -BYTE # 15 -PORT # 38 -BYTE # 16 -PORT # 38 -BYTE # 17 -PORT # 38 -BYTE # 18 -PORT # 38 -BYTE # 19 -PORT # 38 -BYTE # 20 -PORT # 38 -BYTE # 21 -PORT # 38 -BYTE # 22 -PORT # 38 -BYTE # 23 -PORT # 38 -BYTE # 24 -PORT # 38 -BYTE # 25 -PORT # 38 -BYTE # 26 -PORT # 38 -BYTE # 27 -PORT # 38 -BYTE # 28 -PORT # 38 -BYTE # 29 -PORT # 38 -BYTE # 30 -PORT # 38 -BYTE # 31 -PORT # 38 -BYTE # 32 -PORT # 38 -BYTE # 33 -PORT # 38 -BYTE # 34 -PORT # 38 -BYTE # 35 -PORT # 38 -BYTE # 36 -PORT # 38 -BYTE # 37 -PORT # 38 -BYTE # 38 -PORT # 38 -BYTE # 39 -PORT # 38 -BYTE # 40 -PORT # 38 -BYTE # 41 -PORT # 38 -BYTE # 42 -PORT # 38 -BYTE # 43 -PORT # 38 -BYTE # 44 -PORT # 38 -BYTE # 45 -PORT # 38 -BYTE # 46 -PORT # 38 -BYTE # 47 -PORT # 38 -BYTE # 48 -PORT # 38 -BYTE # 49 -PORT # 38 -BYTE # 50 -PORT # 38 -BYTE # 51 -PORT # 38 -BYTE # 52 -PORT # 38 -BYTE # 53 -PORT # 38 -BYTE # 54 -PORT # 38 -BYTE # 55 -PORT # 38 -BYTE # 56 -PORT # 38 -BYTE # 57 -PORT # 38 -BYTE # 58 -PORT # 38 -BYTE # 59 -PORT # 38 -BYTE # 60 -PORT # 38 -BYTE # 61 -PORT # 38 -BYTE # 62 -PORT # 38 -BYTE # 63 -PORT # 38 -BYTE # 64 -PORT # 38 -BYTE # 65 -PORT # 38 -BYTE # 66 -PORT # 38 -BYTE # 67 -PORT # 38 -BYTE # 68 -PORT # 38 -BYTE # 69 -PORT # 38 -BYTE # 70 -PORT # 38 -BYTE # 71 -PORT # 38 -BYTE # 72 -PORT # 38 -BYTE # 73 -PORT # 38 -BYTE # 74 -PORT # 38 -BYTE # 75 -PORT # 38 -BYTE # 76 -PORT # 38 -BYTE # 77 -PORT # 38 -BYTE # 78 -PORT # 38 -BYTE # 79 -PORT # 38 -BYTE # 80 -PORT # 38 -BYTE # 81 -PORT # 38 -BYTE # 82 -PORT # 38 -BYTE # 83 -PORT # 38 -BYTE # 84 -PORT # 38 -BYTE # 85 -PORT # 38 -BYTE # 86 -PORT # 38 -BYTE # 87 -PORT # 38 -BYTE # 88 -PORT # 38 -BYTE # 89 -PORT # 38 -BYTE # 90 -PORT # 38 -BYTE # 91 -PORT # 38 -BYTE # 92 -PORT # 38 -BYTE # 93 -PORT # 38 -BYTE # 94 -PORT # 38 -BYTE # 95 -PORT # 38 -BYTE # 96 -PORT # 38 -BYTE # 97 -PORT # 38 -BYTE # 98 -PORT # 38 -BYTE # 99 -PORT # 38 -BYTE # 100 -PORT # 38 -BYTE # 101 -PORT # 38 -BYTE # 102 -PORT # 38 -BYTE # 103 -PORT # 38 -BYTE # 104 -PORT # 38 -BYTE # 105 -PORT # 38 -BYTE # 106 -PORT # 38 -BYTE # 107 -PORT # 38 -BYTE # 108 -PORT # 38 -BYTE # 109 -PORT # 38 -BYTE # 110 -PORT # 38 -BYTE # 111 -PORT # 38 -BYTE # 112 -PORT # 38 -BYTE # 113 -PORT # 38 -BYTE # 114 -PORT # 38 -BYTE # 115 -PORT # 38 -BYTE # 116 -PORT # 38 -BYTE # 117 -PORT # 38 -BYTE # 118 -PORT # 38 -BYTE # 119 -PORT # 38 -BYTE # 120 -PORT # 38 -BYTE # 121 -PORT # 38 -BYTE # 122 -PORT # 38 -BYTE # 123 -PORT # 38 -BYTE # 124 -PORT # 38 -BYTE # 125 -PORT # 38 -BYTE # 126 -PORT # 38 -BYTE # 127 -PORT # 38 -BYTE # 128 -PORT # 38 -BYTE # 129 -PORT # 38 -BYTE # 130 -PORT # 38 -BYTE # 131 -PORT # 38 -BYTE # 132 -PORT # 38 -BYTE # 133 -PORT # 38 -BYTE # 134 -PORT # 38 -BYTE # 135 -PORT # 38 -BYTE # 136 -PORT # 38 -BYTE # 137 -PORT # 38 -BYTE # 138 -PORT # 38 -BYTE # 139 -PORT # 38 -BYTE # 140 -PORT # 38 -BYTE # 141 -PORT # 38 -BYTE # 142 -PORT # 38 -BYTE # 143 -PORT # 38 -BYTE # 144 -PORT # 38 -BYTE # 145 -PORT # 38 -BYTE # 146 -PORT # 38 -BYTE # 147 -PORT # 38 -BYTE # 148 -PORT # 38 -BYTE # 149 -PORT # 38 -BYTE # 150 -PORT # 38 -BYTE # 151 -PORT # 38 -BYTE # 152 -PORT # 38 -BYTE # 153 -PORT # 38 -BYTE # 154 -PORT # 38 -BYTE # 155 -PORT # 38 -BYTE # 156 -PORT # 38 -BYTE # 157 -PORT # 38 -BYTE # 158 -PORT # 38 -BYTE # 159 -PORT # 38 -BYTE # 160 -PORT # 38 -BYTE # 161 -PORT # 38 -BYTE # 162 -PORT # 38 -BYTE # 163 -PORT # 38 -BYTE # 164 -PORT # 38 -BYTE # 165 -PORT # 38 -BYTE # 166 -PORT # 38 -BYTE # 167 -PORT # 38 -BYTE # 168 -PORT # 38 -BYTE # 169 -PORT # 38 -BYTE # 170 -PORT # 38 -BYTE # 171 -PORT # 38 -BYTE # 172 -PORT # 38 -BYTE # 173 -PORT # 38 -BYTE # 174 -PORT # 38 -BYTE # 175 -PORT # 38 -BYTE # 176 -PORT # 38 -BYTE # 177 -PORT # 38 -BYTE # 178 -PORT # 38 -BYTE # 179 -PORT # 38 -BYTE # 180 -PORT # 38 -BYTE # 181 -PORT # 38 -BYTE # 182 -PORT # 38 -BYTE # 183 -PORT # 38 -BYTE # 184 -PORT # 38 -BYTE # 185 -PORT # 38 -BYTE # 186 -PORT # 38 -BYTE # 187 -PORT # 38 -BYTE # 188 -PORT # 38 -BYTE # 189 -PORT # 38 -BYTE # 190 -PORT # 38 -BYTE # 191 -PORT # 38 -BYTE # 192 -PORT # 38 -BYTE # 193 -PORT # 38 -BYTE # 194 -PORT # 38 -BYTE # 195 -PORT # 38 -BYTE # 196 -PORT # 38 -BYTE # 197 -PORT # 38 -BYTE # 198 -PORT # 38 -BYTE # 199 -PORT # 38 -BYTE # 200 -PORT # 38 -BYTE # 201 -PORT # 38 -BYTE # 202 -PORT # 38 -BYTE # 203 -PORT # 38 -BYTE # 204 -PORT # 38 -BYTE # 205 -PORT # 38 -BYTE # 206 -PORT # 38 -BYTE # 207 -PORT # 38 -BYTE # 208 -PORT # 38 -BYTE # 209 -PORT # 38 -BYTE # 210 -PORT # 38 -BYTE # 211 -PORT # 38 -BYTE # 212 -PORT # 38 -BYTE # 213 -PORT # 38 -BYTE # 214 -PORT # 38 -BYTE # 215 -PORT # 38 -BYTE # 216 -PORT # 38 -BYTE # 217 -PORT # 38 -BYTE # 218 -PORT # 38 -BYTE # 219 -PORT # 38 -BYTE # 220 -PORT # 38 -BYTE # 221 -PORT # 38 -BYTE # 222 -PORT # 38 -BYTE # 223 -PORT # 38 -BYTE # 224 -PORT # 38 -BYTE # 225 -PORT # 38 -BYTE # 226 -PORT # 38 -BYTE # 227 -PORT # 38 -BYTE # 228 -PORT # 38 -BYTE # 229 -PORT # 38 -BYTE # 230 -PORT # 38 -BYTE # 231 -PORT # 38 -BYTE # 232 -PORT # 38 -BYTE # 233 -PORT # 38 -BYTE # 234 -PORT # 38 -BYTE # 235 -PORT # 38 -BYTE # 236 -PORT # 38 -BYTE # 237 -PORT # 38 -BYTE # 238 -PORT # 38 -BYTE # 239 -PORT # 38 -BYTE # 240 -PORT # 38 -BYTE # 241 -PORT # 38 -BYTE # 242 -PORT # 38 -BYTE # 243 -PORT # 38 -BYTE # 244 -PORT # 38 -BYTE # 245 -PORT # 38 -BYTE # 246 -PORT # 38 -BYTE # 247 -PORT # 38 -BYTE # 248 -PORT # 38 -BYTE # 249 -PORT # 38 -BYTE # 250 -PORT # 38 -BYTE # 251 -PORT # 38 -BYTE # 252 -PORT # 38 -BYTE # 253 -PORT # 38 -BYTE # 254 -PORT # 38 -BYTE # 255 -PORT # 39 -BYTE # 0 -PORT # 39 -BYTE # 1 -PORT # 39 -BYTE # 2 -PORT # 39 -BYTE # 3 -PORT # 39 -BYTE # 4 -PORT # 39 -BYTE # 5 -PORT # 39 -BYTE # 6 -PORT # 39 -BYTE # 7 -PORT # 39 -BYTE # 8 -PORT # 39 -BYTE # 9 -PORT # 39 -BYTE # 10 -PORT # 39 -BYTE # 11 -PORT # 39 -BYTE # 12 -PORT # 39 -BYTE # 13 -PORT # 39 -BYTE # 14 -PORT # 39 -BYTE # 15 -PORT # 39 -BYTE # 16 -PORT # 39 -BYTE # 17 -PORT # 39 -BYTE # 18 -PORT # 39 -BYTE # 19 -PORT # 39 -BYTE # 20 -PORT # 39 -BYTE # 21 -PORT # 39 -BYTE # 22 -PORT # 39 -BYTE # 23 -PORT # 39 -BYTE # 24 -PORT # 39 -BYTE # 25 -PORT # 39 -BYTE # 26 -PORT # 39 -BYTE # 27 -PORT # 39 -BYTE # 28 -PORT # 39 -BYTE # 29 -PORT # 39 -BYTE # 30 -PORT # 39 -BYTE # 31 -PORT # 39 -BYTE # 32 -PORT # 39 -BYTE # 33 -PORT # 39 -BYTE # 34 -PORT # 39 -BYTE # 35 -PORT # 39 -BYTE # 36 -PORT # 39 -BYTE # 37 -PORT # 39 -BYTE # 38 -PORT # 39 -BYTE # 39 -PORT # 39 -BYTE # 40 -PORT # 39 -BYTE # 41 -PORT # 39 -BYTE # 42 -PORT # 39 -BYTE # 43 -PORT # 39 -BYTE # 44 -PORT # 39 -BYTE # 45 -PORT # 39 -BYTE # 46 -PORT # 39 -BYTE # 47 -PORT # 39 -BYTE # 48 -PORT # 39 -BYTE # 49 -PORT # 39 -BYTE # 50 -PORT # 39 -BYTE # 51 -PORT # 39 -BYTE # 52 -PORT # 39 -BYTE # 53 -PORT # 39 -BYTE # 54 -PORT # 39 -BYTE # 55 -PORT # 39 -BYTE # 56 -PORT # 39 -BYTE # 57 -PORT # 39 -BYTE # 58 -PORT # 39 -BYTE # 59 -PORT # 39 -BYTE # 60 -PORT # 39 -BYTE # 61 -PORT # 39 -BYTE # 62 -PORT # 39 -BYTE # 63 -PORT # 39 -BYTE # 64 -PORT # 39 -BYTE # 65 -PORT # 39 -BYTE # 66 -PORT # 39 -BYTE # 67 -PORT # 39 -BYTE # 68 -PORT # 39 -BYTE # 69 -PORT # 39 -BYTE # 70 -PORT # 39 -BYTE # 71 -PORT # 39 -BYTE # 72 -PORT # 39 -BYTE # 73 -PORT # 39 -BYTE # 74 -PORT # 39 -BYTE # 75 -PORT # 39 -BYTE # 76 -PORT # 39 -BYTE # 77 -PORT # 39 -BYTE # 78 -PORT # 39 -BYTE # 79 -PORT # 39 -BYTE # 80 -PORT # 39 -BYTE # 81 -PORT # 39 -BYTE # 82 -PORT # 39 -BYTE # 83 -PORT # 39 -BYTE # 84 -PORT # 39 -BYTE # 85 -PORT # 39 -BYTE # 86 -PORT # 39 -BYTE # 87 -PORT # 39 -BYTE # 88 -PORT # 39 -BYTE # 89 -PORT # 39 -BYTE # 90 -PORT # 39 -BYTE # 91 -PORT # 39 -BYTE # 92 -PORT # 39 -BYTE # 93 -PORT # 39 -BYTE # 94 -PORT # 39 -BYTE # 95 -PORT # 39 -BYTE # 96 -PORT # 39 -BYTE # 97 -PORT # 39 -BYTE # 98 -PORT # 39 -BYTE # 99 -PORT # 39 -BYTE # 100 -PORT # 39 -BYTE # 101 -PORT # 39 -BYTE # 102 -PORT # 39 -BYTE # 103 -PORT # 39 -BYTE # 104 -PORT # 39 -BYTE # 105 -PORT # 39 -BYTE # 106 -PORT # 39 -BYTE # 107 -PORT # 39 -BYTE # 108 -PORT # 39 -BYTE # 109 -PORT # 39 -BYTE # 110 -PORT # 39 -BYTE # 111 -PORT # 39 -BYTE # 112 -PORT # 39 -BYTE # 113 -PORT # 39 -BYTE # 114 -PORT # 39 -BYTE # 115 -PORT # 39 -BYTE # 116 -PORT # 39 -BYTE # 117 -PORT # 39 -BYTE # 118 -PORT # 39 -BYTE # 119 -PORT # 39 -BYTE # 120 -PORT # 39 -BYTE # 121 -PORT # 39 -BYTE # 122 -PORT # 39 -BYTE # 123 -PORT # 39 -BYTE # 124 -PORT # 39 -BYTE # 125 -PORT # 39 -BYTE # 126 -PORT # 39 -BYTE # 127 -PORT # 39 -BYTE # 128 -PORT # 39 -BYTE # 129 -PORT # 39 -BYTE # 130 -PORT # 39 -BYTE # 131 -PORT # 39 -BYTE # 132 -PORT # 39 -BYTE # 133 -PORT # 39 -BYTE # 134 -PORT # 39 -BYTE # 135 -PORT # 39 -BYTE # 136 -PORT # 39 -BYTE # 137 -PORT # 39 -BYTE # 138 -PORT # 39 -BYTE # 139 -PORT # 39 -BYTE # 140 -PORT # 39 -BYTE # 141 -PORT # 39 -BYTE # 142 -PORT # 39 -BYTE # 143 -PORT # 39 -BYTE # 144 -PORT # 39 -BYTE # 145 -PORT # 39 -BYTE # 146 -PORT # 39 -BYTE # 147 -PORT # 39 -BYTE # 148 -PORT # 39 -BYTE # 149 -PORT # 39 -BYTE # 150 -PORT # 39 -BYTE # 151 -PORT # 39 -BYTE # 152 -PORT # 39 -BYTE # 153 -PORT # 39 -BYTE # 154 -PORT # 39 -BYTE # 155 -PORT # 39 -BYTE # 156 -PORT # 39 -BYTE # 157 -PORT # 39 -BYTE # 158 -PORT # 39 -BYTE # 159 -PORT # 39 -BYTE # 160 -PORT # 39 -BYTE # 161 -PORT # 39 -BYTE # 162 -PORT # 39 -BYTE # 163 -PORT # 39 -BYTE # 164 -PORT # 39 -BYTE # 165 -PORT # 39 -BYTE # 166 -PORT # 39 -BYTE # 167 -PORT # 39 -BYTE # 168 -PORT # 39 -BYTE # 169 -PORT # 39 -BYTE # 170 -PORT # 39 -BYTE # 171 -PORT # 39 -BYTE # 172 -PORT # 39 -BYTE # 173 -PORT # 39 -BYTE # 174 -PORT # 39 -BYTE # 175 -PORT # 39 -BYTE # 176 -PORT # 39 -BYTE # 177 -PORT # 39 -BYTE # 178 -PORT # 39 -BYTE # 179 -PORT # 39 -BYTE # 180 -PORT # 39 -BYTE # 181 -PORT # 39 -BYTE # 182 -PORT # 39 -BYTE # 183 -PORT # 39 -BYTE # 184 -PORT # 39 -BYTE # 185 -PORT # 39 -BYTE # 186 -PORT # 39 -BYTE # 187 -PORT # 39 -BYTE # 188 -PORT # 39 -BYTE # 189 -PORT # 39 -BYTE # 190 -PORT # 39 -BYTE # 191 -PORT # 39 -BYTE # 192 -PORT # 39 -BYTE # 193 -PORT # 39 -BYTE # 194 -PORT # 39 -BYTE # 195 -PORT # 39 -BYTE # 196 -PORT # 39 -BYTE # 197 -PORT # 39 -BYTE # 198 -PORT # 39 -BYTE # 199 -PORT # 39 -BYTE # 200 -PORT # 39 -BYTE # 201 -PORT # 39 -BYTE # 202 -PORT # 39 -BYTE # 203 -PORT # 39 -BYTE # 204 -PORT # 39 -BYTE # 205 -PORT # 39 -BYTE # 206 -PORT # 39 -BYTE # 207 -PORT # 39 -BYTE # 208 -PORT # 39 -BYTE # 209 -PORT # 39 -BYTE # 210 -PORT # 39 -BYTE # 211 -PORT # 39 -BYTE # 212 -PORT # 39 -BYTE # 213 -PORT # 39 -BYTE # 214 -PORT # 39 -BYTE # 215 -PORT # 39 -BYTE # 216 -PORT # 39 -BYTE # 217 -PORT # 39 -BYTE # 218 -PORT # 39 -BYTE # 219 -PORT # 39 -BYTE # 220 -PORT # 39 -BYTE # 221 -PORT # 39 -BYTE # 222 -PORT # 39 -BYTE # 223 -PORT # 39 -BYTE # 224 -PORT # 39 -BYTE # 225 -PORT # 39 -BYTE # 226 -PORT # 39 -BYTE # 227 -PORT # 39 -BYTE # 228 -PORT # 39 -BYTE # 229 -PORT # 39 -BYTE # 230 -PORT # 39 -BYTE # 231 -PORT # 39 -BYTE # 232 -PORT # 39 -BYTE # 233 -PORT # 39 -BYTE # 234 -PORT # 39 -BYTE # 235 -PORT # 39 -BYTE # 236 -PORT # 39 -BYTE # 237 -PORT # 39 -BYTE # 238 -PORT # 39 -BYTE # 239 -PORT # 39 -BYTE # 240 -PORT # 39 -BYTE # 241 -PORT # 39 -BYTE # 242 -PORT # 39 -BYTE # 243 -PORT # 39 -BYTE # 244 -PORT # 39 -BYTE # 245 -PORT # 39 -BYTE # 246 -PORT # 39 -BYTE # 247 -PORT # 39 -BYTE # 248 -PORT # 39 -BYTE # 249 -PORT # 39 -BYTE # 250 -PORT # 39 -BYTE # 251 -PORT # 39 -BYTE # 252 -PORT # 39 -BYTE # 253 -PORT # 39 -BYTE # 254 -PORT # 39 -BYTE # 255 -PORT # 40 -BYTE # 0 -PORT # 40 -BYTE # 1 -PORT # 40 -BYTE # 2 -PORT # 40 -BYTE # 3 -PORT # 40 -BYTE # 4 -PORT # 40 -BYTE # 5 -PORT # 40 -BYTE # 6 -PORT # 40 -BYTE # 7 -PORT # 40 -BYTE # 8 -PORT # 40 -BYTE # 9 -PORT # 40 -BYTE # 10 -PORT # 40 -BYTE # 11 -PORT # 40 -BYTE # 12 -PORT # 40 -BYTE # 13 -PORT # 40 -BYTE # 14 -PORT # 40 -BYTE # 15 -PORT # 40 -BYTE # 16 -PORT # 40 -BYTE # 17 -PORT # 40 -BYTE # 18 -PORT # 40 -BYTE # 19 -PORT # 40 -BYTE # 20 -PORT # 40 -BYTE # 21 -PORT # 40 -BYTE # 22 -PORT # 40 -BYTE # 23 -PORT # 40 -BYTE # 24 -PORT # 40 -BYTE # 25 -PORT # 40 -BYTE # 26 -PORT # 40 -BYTE # 27 -PORT # 40 -BYTE # 28 -PORT # 40 -BYTE # 29 -PORT # 40 -BYTE # 30 -PORT # 40 -BYTE # 31 -PORT # 40 -BYTE # 32 -PORT # 40 -BYTE # 33 -PORT # 40 -BYTE # 34 -PORT # 40 -BYTE # 35 -PORT # 40 -BYTE # 36 -PORT # 40 -BYTE # 37 -PORT # 40 -BYTE # 38 -PORT # 40 -BYTE # 39 -PORT # 40 -BYTE # 40 -PORT # 40 -BYTE # 41 -PORT # 40 -BYTE # 42 -PORT # 40 -BYTE # 43 -PORT # 40 -BYTE # 44 -PORT # 40 -BYTE # 45 -PORT # 40 -BYTE # 46 -PORT # 40 -BYTE # 47 -PORT # 40 -BYTE # 48 -PORT # 40 -BYTE # 49 -PORT # 40 -BYTE # 50 -PORT # 40 -BYTE # 51 -PORT # 40 -BYTE # 52 -PORT # 40 -BYTE # 53 -PORT # 40 -BYTE # 54 -PORT # 40 -BYTE # 55 -PORT # 40 -BYTE # 56 -PORT # 40 -BYTE # 57 -PORT # 40 -BYTE # 58 -PORT # 40 -BYTE # 59 -PORT # 40 -BYTE # 60 -PORT # 40 -BYTE # 61 -PORT # 40 -BYTE # 62 -PORT # 40 -BYTE # 63 -PORT # 40 -BYTE # 64 -PORT # 40 -BYTE # 65 -PORT # 40 -BYTE # 66 -PORT # 40 -BYTE # 67 -PORT # 40 -BYTE # 68 -PORT # 40 -BYTE # 69 -PORT # 40 -BYTE # 70 -PORT # 40 -BYTE # 71 -PORT # 40 -BYTE # 72 -PORT # 40 -BYTE # 73 -PORT # 40 -BYTE # 74 -PORT # 40 -BYTE # 75 -PORT # 40 -BYTE # 76 -PORT # 40 -BYTE # 77 -PORT # 40 -BYTE # 78 -PORT # 40 -BYTE # 79 -PORT # 40 -BYTE # 80 -PORT # 40 -BYTE # 81 -PORT # 40 -BYTE # 82 -PORT # 40 -BYTE # 83 -PORT # 40 -BYTE # 84 -PORT # 40 -BYTE # 85 -PORT # 40 -BYTE # 86 -PORT # 40 -BYTE # 87 -PORT # 40 -BYTE # 88 -PORT # 40 -BYTE # 89 -PORT # 40 -BYTE # 90 -PORT # 40 -BYTE # 91 -PORT # 40 -BYTE # 92 -PORT # 40 -BYTE # 93 -PORT # 40 -BYTE # 94 -PORT # 40 -BYTE # 95 -PORT # 40 -BYTE # 96 -PORT # 40 -BYTE # 97 -PORT # 40 -BYTE # 98 -PORT # 40 -BYTE # 99 -PORT # 40 -BYTE # 100 -PORT # 40 -BYTE # 101 -PORT # 40 -BYTE # 102 -PORT # 40 -BYTE # 103 -PORT # 40 -BYTE # 104 -PORT # 40 -BYTE # 105 -PORT # 40 -BYTE # 106 -PORT # 40 -BYTE # 107 -PORT # 40 -BYTE # 108 -PORT # 40 -BYTE # 109 -PORT # 40 -BYTE # 110 -PORT # 40 -BYTE # 111 -PORT # 40 -BYTE # 112 -PORT # 40 -BYTE # 113 -PORT # 40 -BYTE # 114 -PORT # 40 -BYTE # 115 -PORT # 40 -BYTE # 116 -PORT # 40 -BYTE # 117 -PORT # 40 -BYTE # 118 -PORT # 40 -BYTE # 119 -PORT # 40 -BYTE # 120 -PORT # 40 -BYTE # 121 -PORT # 40 -BYTE # 122 -PORT # 40 -BYTE # 123 -PORT # 40 -BYTE # 124 -PORT # 40 -BYTE # 125 -PORT # 40 -BYTE # 126 -PORT # 40 -BYTE # 127 -PORT # 40 -BYTE # 128 -PORT # 40 -BYTE # 129 -PORT # 40 -BYTE # 130 -PORT # 40 -BYTE # 131 -PORT # 40 -BYTE # 132 -PORT # 40 -BYTE # 133 -PORT # 40 -BYTE # 134 -PORT # 40 -BYTE # 135 -PORT # 40 -BYTE # 136 -PORT # 40 -BYTE # 137 -PORT # 40 -BYTE # 138 -PORT # 40 -BYTE # 139 -PORT # 40 -BYTE # 140 -PORT # 40 -BYTE # 141 -PORT # 40 -BYTE # 142 -PORT # 40 -BYTE # 143 -PORT # 40 -BYTE # 144 -PORT # 40 -BYTE # 145 -PORT # 40 -BYTE # 146 -PORT # 40 -BYTE # 147 -PORT # 40 -BYTE # 148 -PORT # 40 -BYTE # 149 -PORT # 40 -BYTE # 150 -PORT # 40 -BYTE # 151 -PORT # 40 -BYTE # 152 -PORT # 40 -BYTE # 153 -PORT # 40 -BYTE # 154 -PORT # 40 -BYTE # 155 -PORT # 40 -BYTE # 156 -PORT # 40 -BYTE # 157 -PORT # 40 -BYTE # 158 -PORT # 40 -BYTE # 159 -PORT # 40 -BYTE # 160 -PORT # 40 -BYTE # 161 -PORT # 40 -BYTE # 162 -PORT # 40 -BYTE # 163 -PORT # 40 -BYTE # 164 -PORT # 40 -BYTE # 165 -PORT # 40 -BYTE # 166 -PORT # 40 -BYTE # 167 -PORT # 40 -BYTE # 168 -PORT # 40 -BYTE # 169 -PORT # 40 -BYTE # 170 -PORT # 40 -BYTE # 171 -PORT # 40 -BYTE # 172 -PORT # 40 -BYTE # 173 -PORT # 40 -BYTE # 174 -PORT # 40 -BYTE # 175 -PORT # 40 -BYTE # 176 -PORT # 40 -BYTE # 177 -PORT # 40 -BYTE # 178 -PORT # 40 -BYTE # 179 -PORT # 40 -BYTE # 180 -PORT # 40 -BYTE # 181 -PORT # 40 -BYTE # 182 -PORT # 40 -BYTE # 183 -PORT # 40 -BYTE # 184 -PORT # 40 -BYTE # 185 -PORT # 40 -BYTE # 186 -PORT # 40 -BYTE # 187 -PORT # 40 -BYTE # 188 -PORT # 40 -BYTE # 189 -PORT # 40 -BYTE # 190 -PORT # 40 -BYTE # 191 -PORT # 40 -BYTE # 192 -PORT # 40 -BYTE # 193 -PORT # 40 -BYTE # 194 -PORT # 40 -BYTE # 195 -PORT # 40 -BYTE # 196 -PORT # 40 -BYTE # 197 -PORT # 40 -BYTE # 198 -PORT # 40 -BYTE # 199 -PORT # 40 -BYTE # 200 -PORT # 40 -BYTE # 201 -PORT # 40 -BYTE # 202 -PORT # 40 -BYTE # 203 -PORT # 40 -BYTE # 204 -PORT # 40 -BYTE # 205 -PORT # 40 -BYTE # 206 -PORT # 40 -BYTE # 207 -PORT # 40 -BYTE # 208 -PORT # 40 -BYTE # 209 -PORT # 40 -BYTE # 210 -PORT # 40 -BYTE # 211 -PORT # 40 -BYTE # 212 -PORT # 40 -BYTE # 213 -PORT # 40 -BYTE # 214 -PORT # 40 -BYTE # 215 -PORT # 40 -BYTE # 216 -PORT # 40 -BYTE # 217 -PORT # 40 -BYTE # 218 -PORT # 40 -BYTE # 219 -PORT # 40 -BYTE # 220 -PORT # 40 -BYTE # 221 -PORT # 40 -BYTE # 222 -PORT # 40 -BYTE # 223 -PORT # 40 -BYTE # 224 -PORT # 40 -BYTE # 225 -PORT # 40 -BYTE # 226 -PORT # 40 -BYTE # 227 -PORT # 40 -BYTE # 228 -PORT # 40 -BYTE # 229 -PORT # 40 -BYTE # 230 -PORT # 40 -BYTE # 231 -PORT # 40 -BYTE # 232 -PORT # 40 -BYTE # 233 -PORT # 40 -BYTE # 234 -PORT # 40 -BYTE # 235 -PORT # 40 -BYTE # 236 -PORT # 40 -BYTE # 237 -PORT # 40 -BYTE # 238 -PORT # 40 -BYTE # 239 -PORT # 40 -BYTE # 240 -PORT # 40 -BYTE # 241 -PORT # 40 -BYTE # 242 -PORT # 40 -BYTE # 243 -PORT # 40 -BYTE # 244 -PORT # 40 -BYTE # 245 -PORT # 40 -BYTE # 246 -PORT # 40 -BYTE # 247 -PORT # 40 -BYTE # 248 -PORT # 40 -BYTE # 249 -PORT # 40 -BYTE # 250 -PORT # 40 -BYTE # 251 -PORT # 40 -BYTE # 252 -PORT # 40 -BYTE # 253 -PORT # 40 -BYTE # 254 -PORT # 40 -BYTE # 255 -PORT # 41 -BYTE # 0 -PORT # 41 -BYTE # 1 -PORT # 41 -BYTE # 2 -PORT # 41 -BYTE # 3 -PORT # 41 -BYTE # 4 -PORT # 41 -BYTE # 5 -PORT # 41 -BYTE # 6 -PORT # 41 -BYTE # 7 -PORT # 41 -BYTE # 8 -PORT # 41 -BYTE # 9 -PORT # 41 -BYTE # 10 -PORT # 41 -BYTE # 11 -PORT # 41 -BYTE # 12 -PORT # 41 -BYTE # 13 -PORT # 41 -BYTE # 14 -PORT # 41 -BYTE # 15 -PORT # 41 -BYTE # 16 -PORT # 41 -BYTE # 17 -PORT # 41 -BYTE # 18 -PORT # 41 -BYTE # 19 -PORT # 41 -BYTE # 20 -PORT # 41 -BYTE # 21 -PORT # 41 -BYTE # 22 -PORT # 41 -BYTE # 23 -PORT # 41 -BYTE # 24 -PORT # 41 -BYTE # 25 -PORT # 41 -BYTE # 26 -PORT # 41 -BYTE # 27 -PORT # 41 -BYTE # 28 -PORT # 41 -BYTE # 29 -PORT # 41 -BYTE # 30 -PORT # 41 -BYTE # 31 -PORT # 41 -BYTE # 32 -PORT # 41 -BYTE # 33 -PORT # 41 -BYTE # 34 -PORT # 41 -BYTE # 35 -PORT # 41 -BYTE # 36 -PORT # 41 -BYTE # 37 -PORT # 41 -BYTE # 38 -PORT # 41 -BYTE # 39 -PORT # 41 -BYTE # 40 -PORT # 41 -BYTE # 41 -PORT # 41 -BYTE # 42 -PORT # 41 -BYTE # 43 -PORT # 41 -BYTE # 44 -PORT # 41 -BYTE # 45 -PORT # 41 -BYTE # 46 -PORT # 41 -BYTE # 47 -PORT # 41 -BYTE # 48 -PORT # 41 -BYTE # 49 -PORT # 41 -BYTE # 50 -PORT # 41 -BYTE # 51 -PORT # 41 -BYTE # 52 -PORT # 41 -BYTE # 53 -PORT # 41 -BYTE # 54 -PORT # 41 -BYTE # 55 -PORT # 41 -BYTE # 56 -PORT # 41 -BYTE # 57 -PORT # 41 -BYTE # 58 -PORT # 41 -BYTE # 59 -PORT # 41 -BYTE # 60 -PORT # 41 -BYTE # 61 -PORT # 41 -BYTE # 62 -PORT # 41 -BYTE # 63 -PORT # 41 -BYTE # 64 -PORT # 41 -BYTE # 65 -PORT # 41 -BYTE # 66 -PORT # 41 -BYTE # 67 -PORT # 41 -BYTE # 68 -PORT # 41 -BYTE # 69 -PORT # 41 -BYTE # 70 -PORT # 41 -BYTE # 71 -PORT # 41 -BYTE # 72 -PORT # 41 -BYTE # 73 -PORT # 41 -BYTE # 74 -PORT # 41 -BYTE # 75 -PORT # 41 -BYTE # 76 -PORT # 41 -BYTE # 77 -PORT # 41 -BYTE # 78 -PORT # 41 -BYTE # 79 -PORT # 41 -BYTE # 80 -PORT # 41 -BYTE # 81 -PORT # 41 -BYTE # 82 -PORT # 41 -BYTE # 83 -PORT # 41 -BYTE # 84 -PORT # 41 -BYTE # 85 -PORT # 41 -BYTE # 86 -PORT # 41 -BYTE # 87 -PORT # 41 -BYTE # 88 -PORT # 41 -BYTE # 89 -PORT # 41 -BYTE # 90 -PORT # 41 -BYTE # 91 -PORT # 41 -BYTE # 92 -PORT # 41 -BYTE # 93 -PORT # 41 -BYTE # 94 -PORT # 41 -BYTE # 95 -PORT # 41 -BYTE # 96 -PORT # 41 -BYTE # 97 -PORT # 41 -BYTE # 98 -PORT # 41 -BYTE # 99 -PORT # 41 -BYTE # 100 -PORT # 41 -BYTE # 101 -PORT # 41 -BYTE # 102 -PORT # 41 -BYTE # 103 -PORT # 41 -BYTE # 104 -PORT # 41 -BYTE # 105 -PORT # 41 -BYTE # 106 -PORT # 41 -BYTE # 107 -PORT # 41 -BYTE # 108 -PORT # 41 -BYTE # 109 -PORT # 41 -BYTE # 110 -PORT # 41 -BYTE # 111 -PORT # 41 -BYTE # 112 -PORT # 41 -BYTE # 113 -PORT # 41 -BYTE # 114 -PORT # 41 -BYTE # 115 -PORT # 41 -BYTE # 116 -PORT # 41 -BYTE # 117 -PORT # 41 -BYTE # 118 -PORT # 41 -BYTE # 119 -PORT # 41 -BYTE # 120 -PORT # 41 -BYTE # 121 -PORT # 41 -BYTE # 122 -PORT # 41 -BYTE # 123 -PORT # 41 -BYTE # 124 -PORT # 41 -BYTE # 125 -PORT # 41 -BYTE # 126 -PORT # 41 -BYTE # 127 -PORT # 41 -BYTE # 128 -PORT # 41 -BYTE # 129 -PORT # 41 -BYTE # 130 -PORT # 41 -BYTE # 131 -PORT # 41 -BYTE # 132 -PORT # 41 -BYTE # 133 -PORT # 41 -BYTE # 134 -PORT # 41 -BYTE # 135 -PORT # 41 -BYTE # 136 -PORT # 41 -BYTE # 137 -PORT # 41 -BYTE # 138 -PORT # 41 -BYTE # 139 -PORT # 41 -BYTE # 140 -PORT # 41 -BYTE # 141 -PORT # 41 -BYTE # 142 -PORT # 41 -BYTE # 143 -PORT # 41 -BYTE # 144 -PORT # 41 -BYTE # 145 -PORT # 41 -BYTE # 146 -PORT # 41 -BYTE # 147 -PORT # 41 -BYTE # 148 -PORT # 41 -BYTE # 149 -PORT # 41 -BYTE # 150 -PORT # 41 -BYTE # 151 -PORT # 41 -BYTE # 152 -PORT # 41 -BYTE # 153 -PORT # 41 -BYTE # 154 -PORT # 41 -BYTE # 155 -PORT # 41 -BYTE # 156 -PORT # 41 -BYTE # 157 -PORT # 41 -BYTE # 158 -PORT # 41 -BYTE # 159 -PORT # 41 -BYTE # 160 -PORT # 41 -BYTE # 161 -PORT # 41 -BYTE # 162 -PORT # 41 -BYTE # 163 -PORT # 41 -BYTE # 164 -PORT # 41 -BYTE # 165 -PORT # 41 -BYTE # 166 -PORT # 41 -BYTE # 167 -PORT # 41 -BYTE # 168 -PORT # 41 -BYTE # 169 -PORT # 41 -BYTE # 170 -PORT # 41 -BYTE # 171 -PORT # 41 -BYTE # 172 -PORT # 41 -BYTE # 173 -PORT # 41 -BYTE # 174 -PORT # 41 -BYTE # 175 -PORT # 41 -BYTE # 176 -PORT # 41 -BYTE # 177 -PORT # 41 -BYTE # 178 -PORT # 41 -BYTE # 179 -PORT # 41 -BYTE # 180 -PORT # 41 -BYTE # 181 -PORT # 41 -BYTE # 182 -PORT # 41 -BYTE # 183 -PORT # 41 -BYTE # 184 -PORT # 41 -BYTE # 185 -PORT # 41 -BYTE # 186 -PORT # 41 -BYTE # 187 -PORT # 41 -BYTE # 188 -PORT # 41 -BYTE # 189 -PORT # 41 -BYTE # 190 -PORT # 41 -BYTE # 191 -PORT # 41 -BYTE # 192 -PORT # 41 -BYTE # 193 -PORT # 41 -BYTE # 194 -PORT # 41 -BYTE # 195 -PORT # 41 -BYTE # 196 -PORT # 41 -BYTE # 197 -PORT # 41 -BYTE # 198 -PORT # 41 -BYTE # 199 -PORT # 41 -BYTE # 200 -PORT # 41 -BYTE # 201 -PORT # 41 -BYTE # 202 -PORT # 41 -BYTE # 203 -PORT # 41 -BYTE # 204 -PORT # 41 -BYTE # 205 -PORT # 41 -BYTE # 206 -PORT # 41 -BYTE # 207 -PORT # 41 -BYTE # 208 -PORT # 41 -BYTE # 209 -PORT # 41 -BYTE # 210 -PORT # 41 -BYTE # 211 -PORT # 41 -BYTE # 212 -PORT # 41 -BYTE # 213 -PORT # 41 -BYTE # 214 -PORT # 41 -BYTE # 215 -PORT # 41 -BYTE # 216 -PORT # 41 -BYTE # 217 -PORT # 41 -BYTE # 218 -PORT # 41 -BYTE # 219 -PORT # 41 -BYTE # 220 -PORT # 41 -BYTE # 221 -PORT # 41 -BYTE # 222 -PORT # 41 -BYTE # 223 -PORT # 41 -BYTE # 224 -PORT # 41 -BYTE # 225 -PORT # 41 -BYTE # 226 -PORT # 41 -BYTE # 227 -PORT # 41 -BYTE # 228 -PORT # 41 -BYTE # 229 -PORT # 41 -BYTE # 230 -PORT # 41 -BYTE # 231 -PORT # 41 -BYTE # 232 -PORT # 41 -BYTE # 233 -PORT # 41 -BYTE # 234 -PORT # 41 -BYTE # 235 -PORT # 41 -BYTE # 236 -PORT # 41 -BYTE # 237 -PORT # 41 -BYTE # 238 -PORT # 41 -BYTE # 239 -PORT # 41 -BYTE # 240 -PORT # 41 -BYTE # 241 -PORT # 41 -BYTE # 242 -PORT # 41 -BYTE # 243 -PORT # 41 -BYTE # 244 -PORT # 41 -BYTE # 245 -PORT # 41 -BYTE # 246 -PORT # 41 -BYTE # 247 -PORT # 41 -BYTE # 248 -PORT # 41 -BYTE # 249 -PORT # 41 -BYTE # 250 -PORT # 41 -BYTE # 251 -PORT # 41 -BYTE # 252 -PORT # 41 -BYTE # 253 -PORT # 41 -BYTE # 254 -PORT # 41 -BYTE # 255 -PORT # 42 -BYTE # 0 -PORT # 42 -BYTE # 1 -PORT # 42 -BYTE # 2 -PORT # 42 -BYTE # 3 -PORT # 42 -BYTE # 4 -PORT # 42 -BYTE # 5 -PORT # 42 -BYTE # 6 -PORT # 42 -BYTE # 7 -PORT # 42 -BYTE # 8 -PORT # 42 -BYTE # 9 -PORT # 42 -BYTE # 10 -PORT # 42 -BYTE # 11 -PORT # 42 -BYTE # 12 -PORT # 42 -BYTE # 13 -PORT # 42 -BYTE # 14 -PORT # 42 -BYTE # 15 -PORT # 42 -BYTE # 16 -PORT # 42 -BYTE # 17 -PORT # 42 -BYTE # 18 -PORT # 42 -BYTE # 19 -PORT # 42 -BYTE # 20 -PORT # 42 -BYTE # 21 -PORT # 42 -BYTE # 22 -PORT # 42 -BYTE # 23 -PORT # 42 -BYTE # 24 -PORT # 42 -BYTE # 25 -PORT # 42 -BYTE # 26 -PORT # 42 -BYTE # 27 -PORT # 42 -BYTE # 28 -PORT # 42 -BYTE # 29 -PORT # 42 -BYTE # 30 -PORT # 42 -BYTE # 31 -PORT # 42 -BYTE # 32 -PORT # 42 -BYTE # 33 -PORT # 42 -BYTE # 34 -PORT # 42 -BYTE # 35 -PORT # 42 -BYTE # 36 -PORT # 42 -BYTE # 37 -PORT # 42 -BYTE # 38 -PORT # 42 -BYTE # 39 -PORT # 42 -BYTE # 40 -PORT # 42 -BYTE # 41 -PORT # 42 -BYTE # 42 -PORT # 42 -BYTE # 43 -PORT # 42 -BYTE # 44 -PORT # 42 -BYTE # 45 -PORT # 42 -BYTE # 46 -PORT # 42 -BYTE # 47 -PORT # 42 -BYTE # 48 -PORT # 42 -BYTE # 49 -PORT # 42 -BYTE # 50 -PORT # 42 -BYTE # 51 -PORT # 42 -BYTE # 52 -PORT # 42 -BYTE # 53 -PORT # 42 -BYTE # 54 -PORT # 42 -BYTE # 55 -PORT # 42 -BYTE # 56 -PORT # 42 -BYTE # 57 -PORT # 42 -BYTE # 58 -PORT # 42 -BYTE # 59 -PORT # 42 -BYTE # 60 -PORT # 42 -BYTE # 61 -PORT # 42 -BYTE # 62 -PORT # 42 -BYTE # 63 -PORT # 42 -BYTE # 64 -PORT # 42 -BYTE # 65 -PORT # 42 -BYTE # 66 -PORT # 42 -BYTE # 67 -PORT # 42 -BYTE # 68 -PORT # 42 -BYTE # 69 -PORT # 42 -BYTE # 70 -PORT # 42 -BYTE # 71 -PORT # 42 -BYTE # 72 -PORT # 42 -BYTE # 73 -PORT # 42 -BYTE # 74 -PORT # 42 -BYTE # 75 -PORT # 42 -BYTE # 76 -PORT # 42 -BYTE # 77 -PORT # 42 -BYTE # 78 -PORT # 42 -BYTE # 79 -PORT # 42 -BYTE # 80 -PORT # 42 -BYTE # 81 -PORT # 42 -BYTE # 82 -PORT # 42 -BYTE # 83 -PORT # 42 -BYTE # 84 -PORT # 42 -BYTE # 85 -PORT # 42 -BYTE # 86 -PORT # 42 -BYTE # 87 -PORT # 42 -BYTE # 88 -PORT # 42 -BYTE # 89 -PORT # 42 -BYTE # 90 -PORT # 42 -BYTE # 91 -PORT # 42 -BYTE # 92 -PORT # 42 -BYTE # 93 -PORT # 42 -BYTE # 94 -PORT # 42 -BYTE # 95 -PORT # 42 -BYTE # 96 -PORT # 42 -BYTE # 97 -PORT # 42 -BYTE # 98 -PORT # 42 -BYTE # 99 -PORT # 42 -BYTE # 100 -PORT # 42 -BYTE # 101 -PORT # 42 -BYTE # 102 -PORT # 42 -BYTE # 103 -PORT # 42 -BYTE # 104 -PORT # 42 -BYTE # 105 -PORT # 42 -BYTE # 106 -PORT # 42 -BYTE # 107 -PORT # 42 -BYTE # 108 -PORT # 42 -BYTE # 109 -PORT # 42 -BYTE # 110 -PORT # 42 -BYTE # 111 -PORT # 42 -BYTE # 112 -PORT # 42 -BYTE # 113 -PORT # 42 -BYTE # 114 -PORT # 42 -BYTE # 115 -PORT # 42 -BYTE # 116 -PORT # 42 -BYTE # 117 -PORT # 42 -BYTE # 118 -PORT # 42 -BYTE # 119 -PORT # 42 -BYTE # 120 -PORT # 42 -BYTE # 121 -PORT # 42 -BYTE # 122 -PORT # 42 -BYTE # 123 -PORT # 42 -BYTE # 124 -PORT # 42 -BYTE # 125 -PORT # 42 -BYTE # 126 -PORT # 42 -BYTE # 127 -PORT # 42 -BYTE # 128 -PORT # 42 -BYTE # 129 -PORT # 42 -BYTE # 130 -PORT # 42 -BYTE # 131 -PORT # 42 -BYTE # 132 -PORT # 42 -BYTE # 133 -PORT # 42 -BYTE # 134 -PORT # 42 -BYTE # 135 -PORT # 42 -BYTE # 136 -PORT # 42 -BYTE # 137 -PORT # 42 -BYTE # 138 -PORT # 42 -BYTE # 139 -PORT # 42 -BYTE # 140 -PORT # 42 -BYTE # 141 -PORT # 42 -BYTE # 142 -PORT # 42 -BYTE # 143 -PORT # 42 -BYTE # 144 -PORT # 42 -BYTE # 145 -PORT # 42 -BYTE # 146 -PORT # 42 -BYTE # 147 -PORT # 42 -BYTE # 148 -PORT # 42 -BYTE # 149 -PORT # 42 -BYTE # 150 -PORT # 42 -BYTE # 151 -PORT # 42 -BYTE # 152 -PORT # 42 -BYTE # 153 -PORT # 42 -BYTE # 154 -PORT # 42 -BYTE # 155 -PORT # 42 -BYTE # 156 -PORT # 42 -BYTE # 157 -PORT # 42 -BYTE # 158 -PORT # 42 -BYTE # 159 -PORT # 42 -BYTE # 160 -PORT # 42 -BYTE # 161 -PORT # 42 -BYTE # 162 -PORT # 42 -BYTE # 163 -PORT # 42 -BYTE # 164 -PORT # 42 -BYTE # 165 -PORT # 42 -BYTE # 166 -PORT # 42 -BYTE # 167 -PORT # 42 -BYTE # 168 -PORT # 42 -BYTE # 169 -PORT # 42 -BYTE # 170 -PORT # 42 -BYTE # 171 -PORT # 42 -BYTE # 172 -PORT # 42 -BYTE # 173 -PORT # 42 -BYTE # 174 -PORT # 42 -BYTE # 175 -PORT # 42 -BYTE # 176 -PORT # 42 -BYTE # 177 -PORT # 42 -BYTE # 178 -PORT # 42 -BYTE # 179 -PORT # 42 -BYTE # 180 -PORT # 42 -BYTE # 181 -PORT # 42 -BYTE # 182 -PORT # 42 -BYTE # 183 -PORT # 42 -BYTE # 184 -PORT # 42 -BYTE # 185 -PORT # 42 -BYTE # 186 -PORT # 42 -BYTE # 187 -PORT # 42 -BYTE # 188 -PORT # 42 -BYTE # 189 -PORT # 42 -BYTE # 190 -PORT # 42 -BYTE # 191 -PORT # 42 -BYTE # 192 -PORT # 42 -BYTE # 193 -PORT # 42 -BYTE # 194 -PORT # 42 -BYTE # 195 -PORT # 42 -BYTE # 196 -PORT # 42 -BYTE # 197 -PORT # 42 -BYTE # 198 -PORT # 42 -BYTE # 199 -PORT # 42 -BYTE # 200 -PORT # 42 -BYTE # 201 -PORT # 42 -BYTE # 202 -PORT # 42 -BYTE # 203 -PORT # 42 -BYTE # 204 -PORT # 42 -BYTE # 205 -PORT # 42 -BYTE # 206 -PORT # 42 -BYTE # 207 -PORT # 42 -BYTE # 208 -PORT # 42 -BYTE # 209 -PORT # 42 -BYTE # 210 -PORT # 42 -BYTE # 211 -PORT # 42 -BYTE # 212 -PORT # 42 -BYTE # 213 -PORT # 42 -BYTE # 214 -PORT # 42 -BYTE # 215 -PORT # 42 -BYTE # 216 -PORT # 42 -BYTE # 217 -PORT # 42 -BYTE # 218 -PORT # 42 -BYTE # 219 -PORT # 42 -BYTE # 220 -PORT # 42 -BYTE # 221 -PORT # 42 -BYTE # 222 -PORT # 42 -BYTE # 223 -PORT # 42 -BYTE # 224 -PORT # 42 -BYTE # 225 -PORT # 42 -BYTE # 226 -PORT # 42 -BYTE # 227 -PORT # 42 -BYTE # 228 -PORT # 42 -BYTE # 229 -PORT # 42 -BYTE # 230 -PORT # 42 -BYTE # 231 -PORT # 42 -BYTE # 232 -PORT # 42 -BYTE # 233 -PORT # 42 -BYTE # 234 -PORT # 42 -BYTE # 235 -PORT # 42 -BYTE # 236 -PORT # 42 -BYTE # 237 -PORT # 42 -BYTE # 238 -PORT # 42 -BYTE # 239 -PORT # 42 -BYTE # 240 -PORT # 42 -BYTE # 241 -PORT # 42 -BYTE # 242 -PORT # 42 -BYTE # 243 -PORT # 42 -BYTE # 244 -PORT # 42 -BYTE # 245 -PORT # 42 -BYTE # 246 -PORT # 42 -BYTE # 247 -PORT # 42 -BYTE # 248 -PORT # 42 -BYTE # 249 -PORT # 42 -BYTE # 250 -PORT # 42 -BYTE # 251 -PORT # 42 -BYTE # 252 -PORT # 42 -BYTE # 253 -PORT # 42 -BYTE # 254 -PORT # 42 -BYTE # 255 -PORT # 43 -BYTE # 0 -PORT # 43 -BYTE # 1 -PORT # 43 -BYTE # 2 -PORT # 43 -BYTE # 3 -PORT # 43 -BYTE # 4 -PORT # 43 -BYTE # 5 -PORT # 43 -BYTE # 6 -PORT # 43 -BYTE # 7 -PORT # 43 -BYTE # 8 -PORT # 43 -BYTE # 9 -PORT # 43 -BYTE # 10 -PORT # 43 -BYTE # 11 -PORT # 43 -BYTE # 12 -PORT # 43 -BYTE # 13 -PORT # 43 -BYTE # 14 -PORT # 43 -BYTE # 15 -PORT # 43 -BYTE # 16 -PORT # 43 -BYTE # 17 -PORT # 43 -BYTE # 18 -PORT # 43 -BYTE # 19 -PORT # 43 -BYTE # 20 -PORT # 43 -BYTE # 21 -PORT # 43 -BYTE # 22 -PORT # 43 -BYTE # 23 -PORT # 43 -BYTE # 24 -PORT # 43 -BYTE # 25 -PORT # 43 -BYTE # 26 -PORT # 43 -BYTE # 27 -PORT # 43 -BYTE # 28 -PORT # 43 -BYTE # 29 -PORT # 43 -BYTE # 30 -PORT # 43 -BYTE # 31 -PORT # 43 -BYTE # 32 -PORT # 43 -BYTE # 33 -PORT # 43 -BYTE # 34 -PORT # 43 -BYTE # 35 -PORT # 43 -BYTE # 36 -PORT # 43 -BYTE # 37 -PORT # 43 -BYTE # 38 -PORT # 43 -BYTE # 39 -PORT # 43 -BYTE # 40 -PORT # 43 -BYTE # 41 -PORT # 43 -BYTE # 42 -PORT # 43 -BYTE # 43 -PORT # 43 -BYTE # 44 -PORT # 43 -BYTE # 45 -PORT # 43 -BYTE # 46 -PORT # 43 -BYTE # 47 -PORT # 43 -BYTE # 48 -PORT # 43 -BYTE # 49 -PORT # 43 -BYTE # 50 -PORT # 43 -BYTE # 51 -PORT # 43 -BYTE # 52 -PORT # 43 -BYTE # 53 -PORT # 43 -BYTE # 54 -PORT # 43 -BYTE # 55 -PORT # 43 -BYTE # 56 -PORT # 43 -BYTE # 57 -PORT # 43 -BYTE # 58 -PORT # 43 -BYTE # 59 -PORT # 43 -BYTE # 60 -PORT # 43 -BYTE # 61 -PORT # 43 -BYTE # 62 -PORT # 43 -BYTE # 63 -PORT # 43 -BYTE # 64 -PORT # 43 -BYTE # 65 -PORT # 43 -BYTE # 66 -PORT # 43 -BYTE # 67 -PORT # 43 -BYTE # 68 -PORT # 43 -BYTE # 69 -PORT # 43 -BYTE # 70 -PORT # 43 -BYTE # 71 -PORT # 43 -BYTE # 72 -PORT # 43 -BYTE # 73 -PORT # 43 -BYTE # 74 -PORT # 43 -BYTE # 75 -PORT # 43 -BYTE # 76 -PORT # 43 -BYTE # 77 -PORT # 43 -BYTE # 78 -PORT # 43 -BYTE # 79 -PORT # 43 -BYTE # 80 -PORT # 43 -BYTE # 81 -PORT # 43 -BYTE # 82 -PORT # 43 -BYTE # 83 -PORT # 43 -BYTE # 84 -PORT # 43 -BYTE # 85 -PORT # 43 -BYTE # 86 -PORT # 43 -BYTE # 87 -PORT # 43 -BYTE # 88 -PORT # 43 -BYTE # 89 -PORT # 43 -BYTE # 90 -PORT # 43 -BYTE # 91 -PORT # 43 -BYTE # 92 -PORT # 43 -BYTE # 93 -PORT # 43 -BYTE # 94 -PORT # 43 -BYTE # 95 -PORT # 43 -BYTE # 96 -PORT # 43 -BYTE # 97 -PORT # 43 -BYTE # 98 -PORT # 43 -BYTE # 99 -PORT # 43 -BYTE # 100 -PORT # 43 -BYTE # 101 -PORT # 43 -BYTE # 102 -PORT # 43 -BYTE # 103 -PORT # 43 -BYTE # 104 -PORT # 43 -BYTE # 105 -PORT # 43 -BYTE # 106 -PORT # 43 -BYTE # 107 -PORT # 43 -BYTE # 108 -PORT # 43 -BYTE # 109 -PORT # 43 -BYTE # 110 -PORT # 43 -BYTE # 111 -PORT # 43 -BYTE # 112 -PORT # 43 -BYTE # 113 -PORT # 43 -BYTE # 114 -PORT # 43 -BYTE # 115 -PORT # 43 -BYTE # 116 -PORT # 43 -BYTE # 117 -PORT # 43 -BYTE # 118 -PORT # 43 -BYTE # 119 -PORT # 43 -BYTE # 120 -PORT # 43 -BYTE # 121 -PORT # 43 -BYTE # 122 -PORT # 43 -BYTE # 123 -PORT # 43 -BYTE # 124 -PORT # 43 -BYTE # 125 -PORT # 43 -BYTE # 126 -PORT # 43 -BYTE # 127 -PORT # 43 -BYTE # 128 -PORT # 43 -BYTE # 129 -PORT # 43 -BYTE # 130 -PORT # 43 -BYTE # 131 -PORT # 43 -BYTE # 132 -PORT # 43 -BYTE # 133 -PORT # 43 -BYTE # 134 -PORT # 43 -BYTE # 135 -PORT # 43 -BYTE # 136 -PORT # 43 -BYTE # 137 -PORT # 43 -BYTE # 138 -PORT # 43 -BYTE # 139 -PORT # 43 -BYTE # 140 -PORT # 43 -BYTE # 141 -PORT # 43 -BYTE # 142 -PORT # 43 -BYTE # 143 -PORT # 43 -BYTE # 144 -PORT # 43 -BYTE # 145 -PORT # 43 -BYTE # 146 -PORT # 43 -BYTE # 147 -PORT # 43 -BYTE # 148 -PORT # 43 -BYTE # 149 -PORT # 43 -BYTE # 150 -PORT # 43 -BYTE # 151 -PORT # 43 -BYTE # 152 -PORT # 43 -BYTE # 153 -PORT # 43 -BYTE # 154 -PORT # 43 -BYTE # 155 -PORT # 43 -BYTE # 156 -PORT # 43 -BYTE # 157 -PORT # 43 -BYTE # 158 -PORT # 43 -BYTE # 159 -PORT # 43 -BYTE # 160 -PORT # 43 -BYTE # 161 -PORT # 43 -BYTE # 162 -PORT # 43 -BYTE # 163 -PORT # 43 -BYTE # 164 -PORT # 43 -BYTE # 165 -PORT # 43 -BYTE # 166 -PORT # 43 -BYTE # 167 -PORT # 43 -BYTE # 168 -PORT # 43 -BYTE # 169 -PORT # 43 -BYTE # 170 -PORT # 43 -BYTE # 171 -PORT # 43 -BYTE # 172 -PORT # 43 -BYTE # 173 -PORT # 43 -BYTE # 174 -PORT # 43 -BYTE # 175 -PORT # 43 -BYTE # 176 -PORT # 43 -BYTE # 177 -PORT # 43 -BYTE # 178 -PORT # 43 -BYTE # 179 -PORT # 43 -BYTE # 180 -PORT # 43 -BYTE # 181 -PORT # 43 -BYTE # 182 -PORT # 43 -BYTE # 183 -PORT # 43 -BYTE # 184 -PORT # 43 -BYTE # 185 -PORT # 43 -BYTE # 186 -PORT # 43 -BYTE # 187 -PORT # 43 -BYTE # 188 -PORT # 43 -BYTE # 189 -PORT # 43 -BYTE # 190 -PORT # 43 -BYTE # 191 -PORT # 43 -BYTE # 192 -PORT # 43 -BYTE # 193 -PORT # 43 -BYTE # 194 -PORT # 43 -BYTE # 195 -PORT # 43 -BYTE # 196 -PORT # 43 -BYTE # 197 -PORT # 43 -BYTE # 198 -PORT # 43 -BYTE # 199 -PORT # 43 -BYTE # 200 -PORT # 43 -BYTE # 201 -PORT # 43 -BYTE # 202 -PORT # 43 -BYTE # 203 -PORT # 43 -BYTE # 204 -PORT # 43 -BYTE # 205 -PORT # 43 -BYTE # 206 -PORT # 43 -BYTE # 207 -PORT # 43 -BYTE # 208 -PORT # 43 -BYTE # 209 -PORT # 43 -BYTE # 210 -PORT # 43 -BYTE # 211 -PORT # 43 -BYTE # 212 -PORT # 43 -BYTE # 213 -PORT # 43 -BYTE # 214 -PORT # 43 -BYTE # 215 -PORT # 43 -BYTE # 216 -PORT # 43 -BYTE # 217 -PORT # 43 -BYTE # 218 -PORT # 43 -BYTE # 219 -PORT # 43 -BYTE # 220 -PORT # 43 -BYTE # 221 -PORT # 43 -BYTE # 222 -PORT # 43 -BYTE # 223 -PORT # 43 -BYTE # 224 -PORT # 43 -BYTE # 225 -PORT # 43 -BYTE # 226 -PORT # 43 -BYTE # 227 -PORT # 43 -BYTE # 228 -PORT # 43 -BYTE # 229 -PORT # 43 -BYTE # 230 -PORT # 43 -BYTE # 231 -PORT # 43 -BYTE # 232 -PORT # 43 -BYTE # 233 -PORT # 43 -BYTE # 234 -PORT # 43 -BYTE # 235 -PORT # 43 -BYTE # 236 -PORT # 43 -BYTE # 237 -PORT # 43 -BYTE # 238 -PORT # 43 -BYTE # 239 -PORT # 43 -BYTE # 240 -PORT # 43 -BYTE # 241 -PORT # 43 -BYTE # 242 -PORT # 43 -BYTE # 243 -PORT # 43 -BYTE # 244 -PORT # 43 -BYTE # 245 -PORT # 43 -BYTE # 246 -PORT # 43 -BYTE # 247 -PORT # 43 -BYTE # 248 -PORT # 43 -BYTE # 249 -PORT # 43 -BYTE # 250 -PORT # 43 -BYTE # 251 -PORT # 43 -BYTE # 252 -PORT # 43 -BYTE # 253 -PORT # 43 -BYTE # 254 -PORT # 43 -BYTE # 255 -PORT # 44 -BYTE # 0 -PORT # 44 -BYTE # 1 -PORT # 44 -BYTE # 2 -PORT # 44 -BYTE # 3 -PORT # 44 -BYTE # 4 -PORT # 44 -BYTE # 5 -PORT # 44 -BYTE # 6 -PORT # 44 -BYTE # 7 -PORT # 44 -BYTE # 8 -PORT # 44 -BYTE # 9 -PORT # 44 -BYTE # 10 -PORT # 44 -BYTE # 11 -PORT # 44 -BYTE # 12 -PORT # 44 -BYTE # 13 -PORT # 44 -BYTE # 14 -PORT # 44 -BYTE # 15 -PORT # 44 -BYTE # 16 -PORT # 44 -BYTE # 17 -PORT # 44 -BYTE # 18 -PORT # 44 -BYTE # 19 -PORT # 44 -BYTE # 20 -PORT # 44 -BYTE # 21 -PORT # 44 -BYTE # 22 -PORT # 44 -BYTE # 23 -PORT # 44 -BYTE # 24 -PORT # 44 -BYTE # 25 -PORT # 44 -BYTE # 26 -PORT # 44 -BYTE # 27 -PORT # 44 -BYTE # 28 -PORT # 44 -BYTE # 29 -PORT # 44 -BYTE # 30 -PORT # 44 -BYTE # 31 -PORT # 44 -BYTE # 32 -PORT # 44 -BYTE # 33 -PORT # 44 -BYTE # 34 -PORT # 44 -BYTE # 35 -PORT # 44 -BYTE # 36 -PORT # 44 -BYTE # 37 -PORT # 44 -BYTE # 38 -PORT # 44 -BYTE # 39 -PORT # 44 -BYTE # 40 -PORT # 44 -BYTE # 41 -PORT # 44 -BYTE # 42 -PORT # 44 -BYTE # 43 -PORT # 44 -BYTE # 44 -PORT # 44 -BYTE # 45 -PORT # 44 -BYTE # 46 -PORT # 44 -BYTE # 47 -PORT # 44 -BYTE # 48 -PORT # 44 -BYTE # 49 -PORT # 44 -BYTE # 50 -PORT # 44 -BYTE # 51 -PORT # 44 -BYTE # 52 -PORT # 44 -BYTE # 53 -PORT # 44 -BYTE # 54 -PORT # 44 -BYTE # 55 -PORT # 44 -BYTE # 56 -PORT # 44 -BYTE # 57 -PORT # 44 -BYTE # 58 -PORT # 44 -BYTE # 59 -PORT # 44 -BYTE # 60 -PORT # 44 -BYTE # 61 -PORT # 44 -BYTE # 62 -PORT # 44 -BYTE # 63 -PORT # 44 -BYTE # 64 -PORT # 44 -BYTE # 65 -PORT # 44 -BYTE # 66 -PORT # 44 -BYTE # 67 -PORT # 44 -BYTE # 68 -PORT # 44 -BYTE # 69 -PORT # 44 -BYTE # 70 -PORT # 44 -BYTE # 71 -PORT # 44 -BYTE # 72 -PORT # 44 -BYTE # 73 -PORT # 44 -BYTE # 74 -PORT # 44 -BYTE # 75 -PORT # 44 -BYTE # 76 -PORT # 44 -BYTE # 77 -PORT # 44 -BYTE # 78 -PORT # 44 -BYTE # 79 -PORT # 44 -BYTE # 80 -PORT # 44 -BYTE # 81 -PORT # 44 -BYTE # 82 -PORT # 44 -BYTE # 83 -PORT # 44 -BYTE # 84 -PORT # 44 -BYTE # 85 -PORT # 44 -BYTE # 86 -PORT # 44 -BYTE # 87 -PORT # 44 -BYTE # 88 -PORT # 44 -BYTE # 89 -PORT # 44 -BYTE # 90 -PORT # 44 -BYTE # 91 -PORT # 44 -BYTE # 92 -PORT # 44 -BYTE # 93 -PORT # 44 -BYTE # 94 -PORT # 44 -BYTE # 95 -PORT # 44 -BYTE # 96 -PORT # 44 -BYTE # 97 -PORT # 44 -BYTE # 98 -PORT # 44 -BYTE # 99 -PORT # 44 -BYTE # 100 -PORT # 44 -BYTE # 101 -PORT # 44 -BYTE # 102 -PORT # 44 -BYTE # 103 -PORT # 44 -BYTE # 104 -PORT # 44 -BYTE # 105 -PORT # 44 -BYTE # 106 -PORT # 44 -BYTE # 107 -PORT # 44 -BYTE # 108 -PORT # 44 -BYTE # 109 -PORT # 44 -BYTE # 110 -PORT # 44 -BYTE # 111 -PORT # 44 -BYTE # 112 -PORT # 44 -BYTE # 113 -PORT # 44 -BYTE # 114 -PORT # 44 -BYTE # 115 -PORT # 44 -BYTE # 116 -PORT # 44 -BYTE # 117 -PORT # 44 -BYTE # 118 -PORT # 44 -BYTE # 119 -PORT # 44 -BYTE # 120 -PORT # 44 -BYTE # 121 -PORT # 44 -BYTE # 122 -PORT # 44 -BYTE # 123 -PORT # 44 -BYTE # 124 -PORT # 44 -BYTE # 125 -PORT # 44 -BYTE # 126 -PORT # 44 -BYTE # 127 -PORT # 44 -BYTE # 128 -PORT # 44 -BYTE # 129 -PORT # 44 -BYTE # 130 -PORT # 44 -BYTE # 131 -PORT # 44 -BYTE # 132 -PORT # 44 -BYTE # 133 -PORT # 44 -BYTE # 134 -PORT # 44 -BYTE # 135 -PORT # 44 -BYTE # 136 -PORT # 44 -BYTE # 137 -PORT # 44 -BYTE # 138 -PORT # 44 -BYTE # 139 -PORT # 44 -BYTE # 140 -PORT # 44 -BYTE # 141 -PORT # 44 -BYTE # 142 -PORT # 44 -BYTE # 143 -PORT # 44 -BYTE # 144 -PORT # 44 -BYTE # 145 -PORT # 44 -BYTE # 146 -PORT # 44 -BYTE # 147 -PORT # 44 -BYTE # 148 -PORT # 44 -BYTE # 149 -PORT # 44 -BYTE # 150 -PORT # 44 -BYTE # 151 -PORT # 44 -BYTE # 152 -PORT # 44 -BYTE # 153 -PORT # 44 -BYTE # 154 -PORT # 44 -BYTE # 155 -PORT # 44 -BYTE # 156 -PORT # 44 -BYTE # 157 -PORT # 44 -BYTE # 158 -PORT # 44 -BYTE # 159 -PORT # 44 -BYTE # 160 -PORT # 44 -BYTE # 161 -PORT # 44 -BYTE # 162 -PORT # 44 -BYTE # 163 -PORT # 44 -BYTE # 164 -PORT # 44 -BYTE # 165 -PORT # 44 -BYTE # 166 -PORT # 44 -BYTE # 167 -PORT # 44 -BYTE # 168 -PORT # 44 -BYTE # 169 -PORT # 44 -BYTE # 170 -PORT # 44 -BYTE # 171 -PORT # 44 -BYTE # 172 -PORT # 44 -BYTE # 173 -PORT # 44 -BYTE # 174 -PORT # 44 -BYTE # 175 -PORT # 44 -BYTE # 176 -PORT # 44 -BYTE # 177 -PORT # 44 -BYTE # 178 -PORT # 44 -BYTE # 179 -PORT # 44 -BYTE # 180 -PORT # 44 -BYTE # 181 -PORT # 44 -BYTE # 182 -PORT # 44 -BYTE # 183 -PORT # 44 -BYTE # 184 -PORT # 44 -BYTE # 185 -PORT # 44 -BYTE # 186 -PORT # 44 -BYTE # 187 -PORT # 44 -BYTE # 188 -PORT # 44 -BYTE # 189 -PORT # 44 -BYTE # 190 -PORT # 44 -BYTE # 191 -PORT # 44 -BYTE # 192 -PORT # 44 -BYTE # 193 -PORT # 44 -BYTE # 194 -PORT # 44 -BYTE # 195 -PORT # 44 -BYTE # 196 -PORT # 44 -BYTE # 197 -PORT # 44 -BYTE # 198 -PORT # 44 -BYTE # 199 -PORT # 44 -BYTE # 200 -PORT # 44 -BYTE # 201 -PORT # 44 -BYTE # 202 -PORT # 44 -BYTE # 203 -PORT # 44 -BYTE # 204 -PORT # 44 -BYTE # 205 -PORT # 44 -BYTE # 206 -PORT # 44 -BYTE # 207 -PORT # 44 -BYTE # 208 -PORT # 44 -BYTE # 209 -PORT # 44 -BYTE # 210 -PORT # 44 -BYTE # 211 -PORT # 44 -BYTE # 212 -PORT # 44 -BYTE # 213 -PORT # 44 -BYTE # 214 -PORT # 44 -BYTE # 215 -PORT # 44 -BYTE # 216 -PORT # 44 -BYTE # 217 -PORT # 44 -BYTE # 218 -PORT # 44 -BYTE # 219 -PORT # 44 -BYTE # 220 -PORT # 44 -BYTE # 221 -PORT # 44 -BYTE # 222 -PORT # 44 -BYTE # 223 -PORT # 44 -BYTE # 224 -PORT # 44 -BYTE # 225 -PORT # 44 -BYTE # 226 -PORT # 44 -BYTE # 227 -PORT # 44 -BYTE # 228 -PORT # 44 -BYTE # 229 -PORT # 44 -BYTE # 230 -PORT # 44 -BYTE # 231 -PORT # 44 -BYTE # 232 -PORT # 44 -BYTE # 233 -PORT # 44 -BYTE # 234 -PORT # 44 -BYTE # 235 -PORT # 44 -BYTE # 236 -PORT # 44 -BYTE # 237 -PORT # 44 -BYTE # 238 -PORT # 44 -BYTE # 239 -PORT # 44 -BYTE # 240 -PORT # 44 -BYTE # 241 -PORT # 44 -BYTE # 242 -PORT # 44 -BYTE # 243 -PORT # 44 -BYTE # 244 -PORT # 44 -BYTE # 245 -PORT # 44 -BYTE # 246 -PORT # 44 -BYTE # 247 -PORT # 44 -BYTE # 248 -PORT # 44 -BYTE # 249 -PORT # 44 -BYTE # 250 -PORT # 44 -BYTE # 251 -PORT # 44 -BYTE # 252 -PORT # 44 -BYTE # 253 -PORT # 44 -BYTE # 254 -PORT # 44 -BYTE # 255 -PORT # 45 -BYTE # 0 -PORT # 45 -BYTE # 1 -PORT # 45 -BYTE # 2 -PORT # 45 -BYTE # 3 -PORT # 45 -BYTE # 4 -PORT # 45 -BYTE # 5 -PORT # 45 -BYTE # 6 -PORT # 45 -BYTE # 7 -PORT # 45 -BYTE # 8 -PORT # 45 -BYTE # 9 -PORT # 45 -BYTE # 10 -PORT # 45 -BYTE # 11 -PORT # 45 -BYTE # 12 -PORT # 45 -BYTE # 13 -PORT # 45 -BYTE # 14 -PORT # 45 -BYTE # 15 -PORT # 45 -BYTE # 16 -PORT # 45 -BYTE # 17 -PORT # 45 -BYTE # 18 -PORT # 45 -BYTE # 19 -PORT # 45 -BYTE # 20 -PORT # 45 -BYTE # 21 -PORT # 45 -BYTE # 22 -PORT # 45 -BYTE # 23 -PORT # 45 -BYTE # 24 -PORT # 45 -BYTE # 25 -PORT # 45 -BYTE # 26 -PORT # 45 -BYTE # 27 -PORT # 45 -BYTE # 28 -PORT # 45 -BYTE # 29 -PORT # 45 -BYTE # 30 -PORT # 45 -BYTE # 31 -PORT # 45 -BYTE # 32 -PORT # 45 -BYTE # 33 -PORT # 45 -BYTE # 34 -PORT # 45 -BYTE # 35 -PORT # 45 -BYTE # 36 -PORT # 45 -BYTE # 37 -PORT # 45 -BYTE # 38 -PORT # 45 -BYTE # 39 -PORT # 45 -BYTE # 40 -PORT # 45 -BYTE # 41 -PORT # 45 -BYTE # 42 -PORT # 45 -BYTE # 43 -PORT # 45 -BYTE # 44 -PORT # 45 -BYTE # 45 -PORT # 45 -BYTE # 46 -PORT # 45 -BYTE # 47 -PORT # 45 -BYTE # 48 -PORT # 45 -BYTE # 49 -PORT # 45 -BYTE # 50 -PORT # 45 -BYTE # 51 -PORT # 45 -BYTE # 52 -PORT # 45 -BYTE # 53 -PORT # 45 -BYTE # 54 -PORT # 45 -BYTE # 55 -PORT # 45 -BYTE # 56 -PORT # 45 -BYTE # 57 -PORT # 45 -BYTE # 58 -PORT # 45 -BYTE # 59 -PORT # 45 -BYTE # 60 -PORT # 45 -BYTE # 61 -PORT # 45 -BYTE # 62 -PORT # 45 -BYTE # 63 -PORT # 45 -BYTE # 64 -PORT # 45 -BYTE # 65 -PORT # 45 -BYTE # 66 -PORT # 45 -BYTE # 67 -PORT # 45 -BYTE # 68 -PORT # 45 -BYTE # 69 -PORT # 45 -BYTE # 70 -PORT # 45 -BYTE # 71 -PORT # 45 -BYTE # 72 -PORT # 45 -BYTE # 73 -PORT # 45 -BYTE # 74 -PORT # 45 -BYTE # 75 -PORT # 45 -BYTE # 76 -PORT # 45 -BYTE # 77 -PORT # 45 -BYTE # 78 -PORT # 45 -BYTE # 79 -PORT # 45 -BYTE # 80 -PORT # 45 -BYTE # 81 -PORT # 45 -BYTE # 82 -PORT # 45 -BYTE # 83 -PORT # 45 -BYTE # 84 -PORT # 45 -BYTE # 85 -PORT # 45 -BYTE # 86 -PORT # 45 -BYTE # 87 -PORT # 45 -BYTE # 88 -PORT # 45 -BYTE # 89 -PORT # 45 -BYTE # 90 -PORT # 45 -BYTE # 91 -PORT # 45 -BYTE # 92 -PORT # 45 -BYTE # 93 -PORT # 45 -BYTE # 94 -PORT # 45 -BYTE # 95 -PORT # 45 -BYTE # 96 -PORT # 45 -BYTE # 97 -PORT # 45 -BYTE # 98 -PORT # 45 -BYTE # 99 -PORT # 45 -BYTE # 100 -PORT # 45 -BYTE # 101 -PORT # 45 -BYTE # 102 -PORT # 45 -BYTE # 103 -PORT # 45 -BYTE # 104 -PORT # 45 -BYTE # 105 -PORT # 45 -BYTE # 106 -PORT # 45 -BYTE # 107 -PORT # 45 -BYTE # 108 -PORT # 45 -BYTE # 109 -PORT # 45 -BYTE # 110 -PORT # 45 -BYTE # 111 -PORT # 45 -BYTE # 112 -PORT # 45 -BYTE # 113 -PORT # 45 -BYTE # 114 -PORT # 45 -BYTE # 115 -PORT # 45 -BYTE # 116 -PORT # 45 -BYTE # 117 -PORT # 45 -BYTE # 118 -PORT # 45 -BYTE # 119 -PORT # 45 -BYTE # 120 -PORT # 45 -BYTE # 121 -PORT # 45 -BYTE # 122 -PORT # 45 -BYTE # 123 -PORT # 45 -BYTE # 124 -PORT # 45 -BYTE # 125 -PORT # 45 -BYTE # 126 -PORT # 45 -BYTE # 127 -PORT # 45 -BYTE # 128 -PORT # 45 -BYTE # 129 -PORT # 45 -BYTE # 130 -PORT # 45 -BYTE # 131 -PORT # 45 -BYTE # 132 -PORT # 45 -BYTE # 133 -PORT # 45 -BYTE # 134 -PORT # 45 -BYTE # 135 -PORT # 45 -BYTE # 136 -PORT # 45 -BYTE # 137 -PORT # 45 -BYTE # 138 -PORT # 45 -BYTE # 139 -PORT # 45 -BYTE # 140 -PORT # 45 -BYTE # 141 -PORT # 45 -BYTE # 142 -PORT # 45 -BYTE # 143 -PORT # 45 -BYTE # 144 -PORT # 45 -BYTE # 145 -PORT # 45 -BYTE # 146 -PORT # 45 -BYTE # 147 -PORT # 45 -BYTE # 148 -PORT # 45 -BYTE # 149 -PORT # 45 -BYTE # 150 -PORT # 45 -BYTE # 151 -PORT # 45 -BYTE # 152 -PORT # 45 -BYTE # 153 -PORT # 45 -BYTE # 154 -PORT # 45 -BYTE # 155 -PORT # 45 -BYTE # 156 -PORT # 45 -BYTE # 157 -PORT # 45 -BYTE # 158 -PORT # 45 -BYTE # 159 -PORT # 45 -BYTE # 160 -PORT # 45 -BYTE # 161 -PORT # 45 -BYTE # 162 -PORT # 45 -BYTE # 163 -PORT # 45 -BYTE # 164 -PORT # 45 -BYTE # 165 -PORT # 45 -BYTE # 166 -PORT # 45 -BYTE # 167 -PORT # 45 -BYTE # 168 -PORT # 45 -BYTE # 169 -PORT # 45 -BYTE # 170 -PORT # 45 -BYTE # 171 -PORT # 45 -BYTE # 172 -PORT # 45 -BYTE # 173 -PORT # 45 -BYTE # 174 -PORT # 45 -BYTE # 175 -PORT # 45 -BYTE # 176 -PORT # 45 -BYTE # 177 -PORT # 45 -BYTE # 178 -PORT # 45 -BYTE # 179 -PORT # 45 -BYTE # 180 -PORT # 45 -BYTE # 181 -PORT # 45 -BYTE # 182 -PORT # 45 -BYTE # 183 -PORT # 45 -BYTE # 184 -PORT # 45 -BYTE # 185 -PORT # 45 -BYTE # 186 -PORT # 45 -BYTE # 187 -PORT # 45 -BYTE # 188 -PORT # 45 -BYTE # 189 -PORT # 45 -BYTE # 190 -PORT # 45 -BYTE # 191 -PORT # 45 -BYTE # 192 -PORT # 45 -BYTE # 193 -PORT # 45 -BYTE # 194 -PORT # 45 -BYTE # 195 -PORT # 45 -BYTE # 196 -PORT # 45 -BYTE # 197 -PORT # 45 -BYTE # 198 -PORT # 45 -BYTE # 199 -PORT # 45 -BYTE # 200 -PORT # 45 -BYTE # 201 -PORT # 45 -BYTE # 202 -PORT # 45 -BYTE # 203 -PORT # 45 -BYTE # 204 -PORT # 45 -BYTE # 205 -PORT # 45 -BYTE # 206 -PORT # 45 -BYTE # 207 -PORT # 45 -BYTE # 208 -PORT # 45 -BYTE # 209 -PORT # 45 -BYTE # 210 -PORT # 45 -BYTE # 211 -PORT # 45 -BYTE # 212 -PORT # 45 -BYTE # 213 -PORT # 45 -BYTE # 214 -PORT # 45 -BYTE # 215 -PORT # 45 -BYTE # 216 -PORT # 45 -BYTE # 217 -PORT # 45 -BYTE # 218 -PORT # 45 -BYTE # 219 -PORT # 45 -BYTE # 220 -PORT # 45 -BYTE # 221 -PORT # 45 -BYTE # 222 -PORT # 45 -BYTE # 223 -PORT # 45 -BYTE # 224 -PORT # 45 -BYTE # 225 -PORT # 45 -BYTE # 226 -PORT # 45 -BYTE # 227 -PORT # 45 -BYTE # 228 -PORT # 45 -BYTE # 229 -PORT # 45 -BYTE # 230 -PORT # 45 -BYTE # 231 -PORT # 45 -BYTE # 232 -PORT # 45 -BYTE # 233 -PORT # 45 -BYTE # 234 -PORT # 45 -BYTE # 235 -PORT # 45 -BYTE # 236 -PORT # 45 -BYTE # 237 -PORT # 45 -BYTE # 238 -PORT # 45 -BYTE # 239 -PORT # 45 -BYTE # 240 -PORT # 45 -BYTE # 241 -PORT # 45 -BYTE # 242 -PORT # 45 -BYTE # 243 -PORT # 45 -BYTE # 244 -PORT # 45 -BYTE # 245 -PORT # 45 -BYTE # 246 -PORT # 45 -BYTE # 247 -PORT # 45 -BYTE # 248 -PORT # 45 -BYTE # 249 -PORT # 45 -BYTE # 250 -PORT # 45 -BYTE # 251 -PORT # 45 -BYTE # 252 -PORT # 45 -BYTE # 253 -PORT # 45 -BYTE # 254 -PORT # 45 -BYTE # 255 -PORT # 46 -BYTE # 0 -PORT # 46 -BYTE # 1 -PORT # 46 -BYTE # 2 -PORT # 46 -BYTE # 3 -PORT # 46 -BYTE # 4 -PORT # 46 -BYTE # 5 -PORT # 46 -BYTE # 6 -PORT # 46 -BYTE # 7 -PORT # 46 -BYTE # 8 -PORT # 46 -BYTE # 9 -PORT # 46 -BYTE # 10 -PORT # 46 -BYTE # 11 -PORT # 46 -BYTE # 12 -PORT # 46 -BYTE # 13 -PORT # 46 -BYTE # 14 -PORT # 46 -BYTE # 15 -PORT # 46 -BYTE # 16 -PORT # 46 -BYTE # 17 -PORT # 46 -BYTE # 18 -PORT # 46 -BYTE # 19 -PORT # 46 -BYTE # 20 -PORT # 46 -BYTE # 21 -PORT # 46 -BYTE # 22 -PORT # 46 -BYTE # 23 -PORT # 46 -BYTE # 24 -PORT # 46 -BYTE # 25 -PORT # 46 -BYTE # 26 -PORT # 46 -BYTE # 27 -PORT # 46 -BYTE # 28 -PORT # 46 -BYTE # 29 -PORT # 46 -BYTE # 30 -PORT # 46 -BYTE # 31 -PORT # 46 -BYTE # 32 -PORT # 46 -BYTE # 33 -PORT # 46 -BYTE # 34 -PORT # 46 -BYTE # 35 -PORT # 46 -BYTE # 36 -PORT # 46 -BYTE # 37 -PORT # 46 -BYTE # 38 -PORT # 46 -BYTE # 39 -PORT # 46 -BYTE # 40 -PORT # 46 -BYTE # 41 -PORT # 46 -BYTE # 42 -PORT # 46 -BYTE # 43 -PORT # 46 -BYTE # 44 -PORT # 46 -BYTE # 45 -PORT # 46 -BYTE # 46 -PORT # 46 -BYTE # 47 -PORT # 46 -BYTE # 48 -PORT # 46 -BYTE # 49 -PORT # 46 -BYTE # 50 -PORT # 46 -BYTE # 51 -PORT # 46 -BYTE # 52 -PORT # 46 -BYTE # 53 -PORT # 46 -BYTE # 54 -PORT # 46 -BYTE # 55 -PORT # 46 -BYTE # 56 -PORT # 46 -BYTE # 57 -PORT # 46 -BYTE # 58 -PORT # 46 -BYTE # 59 -PORT # 46 -BYTE # 60 -PORT # 46 -BYTE # 61 -PORT # 46 -BYTE # 62 -PORT # 46 -BYTE # 63 -PORT # 46 -BYTE # 64 -PORT # 46 -BYTE # 65 -PORT # 46 -BYTE # 66 -PORT # 46 -BYTE # 67 -PORT # 46 -BYTE # 68 -PORT # 46 -BYTE # 69 -PORT # 46 -BYTE # 70 -PORT # 46 -BYTE # 71 -PORT # 46 -BYTE # 72 -PORT # 46 -BYTE # 73 -PORT # 46 -BYTE # 74 -PORT # 46 -BYTE # 75 -PORT # 46 -BYTE # 76 -PORT # 46 -BYTE # 77 -PORT # 46 -BYTE # 78 -PORT # 46 -BYTE # 79 -PORT # 46 -BYTE # 80 -PORT # 46 -BYTE # 81 -PORT # 46 -BYTE # 82 -PORT # 46 -BYTE # 83 -PORT # 46 -BYTE # 84 -PORT # 46 -BYTE # 85 -PORT # 46 -BYTE # 86 -PORT # 46 -BYTE # 87 -PORT # 46 -BYTE # 88 -PORT # 46 -BYTE # 89 -PORT # 46 -BYTE # 90 -PORT # 46 -BYTE # 91 -PORT # 46 -BYTE # 92 -PORT # 46 -BYTE # 93 -PORT # 46 -BYTE # 94 -PORT # 46 -BYTE # 95 -PORT # 46 -BYTE # 96 -PORT # 46 -BYTE # 97 -PORT # 46 -BYTE # 98 -PORT # 46 -BYTE # 99 -PORT # 46 -BYTE # 100 -PORT # 46 -BYTE # 101 -PORT # 46 -BYTE # 102 -PORT # 46 -BYTE # 103 -PORT # 46 -BYTE # 104 -PORT # 46 -BYTE # 105 -PORT # 46 -BYTE # 106 -PORT # 46 -BYTE # 107 -PORT # 46 -BYTE # 108 -PORT # 46 -BYTE # 109 -PORT # 46 -BYTE # 110 -PORT # 46 -BYTE # 111 -PORT # 46 -BYTE # 112 -PORT # 46 -BYTE # 113 -PORT # 46 -BYTE # 114 -PORT # 46 -BYTE # 115 -PORT # 46 -BYTE # 116 -PORT # 46 -BYTE # 117 -PORT # 46 -BYTE # 118 -PORT # 46 -BYTE # 119 -PORT # 46 -BYTE # 120 -PORT # 46 -BYTE # 121 -PORT # 46 -BYTE # 122 -PORT # 46 -BYTE # 123 -PORT # 46 -BYTE # 124 -PORT # 46 -BYTE # 125 -PORT # 46 -BYTE # 126 -PORT # 46 -BYTE # 127 -PORT # 46 -BYTE # 128 -PORT # 46 -BYTE # 129 -PORT # 46 -BYTE # 130 -PORT # 46 -BYTE # 131 -PORT # 46 -BYTE # 132 -PORT # 46 -BYTE # 133 -PORT # 46 -BYTE # 134 -PORT # 46 -BYTE # 135 -PORT # 46 -BYTE # 136 -PORT # 46 -BYTE # 137 -PORT # 46 -BYTE # 138 -PORT # 46 -BYTE # 139 -PORT # 46 -BYTE # 140 -PORT # 46 -BYTE # 141 -PORT # 46 -BYTE # 142 -PORT # 46 -BYTE # 143 -PORT # 46 -BYTE # 144 -PORT # 46 -BYTE # 145 -PORT # 46 -BYTE # 146 -PORT # 46 -BYTE # 147 -PORT # 46 -BYTE # 148 -PORT # 46 -BYTE # 149 -PORT # 46 -BYTE # 150 -PORT # 46 -BYTE # 151 -PORT # 46 -BYTE # 152 -PORT # 46 -BYTE # 153 -PORT # 46 -BYTE # 154 -PORT # 46 -BYTE # 155 -PORT # 46 -BYTE # 156 -PORT # 46 -BYTE # 157 -PORT # 46 -BYTE # 158 -PORT # 46 -BYTE # 159 -PORT # 46 -BYTE # 160 -PORT # 46 -BYTE # 161 -PORT # 46 -BYTE # 162 -PORT # 46 -BYTE # 163 -PORT # 46 -BYTE # 164 -PORT # 46 -BYTE # 165 -PORT # 46 -BYTE # 166 -PORT # 46 -BYTE # 167 -PORT # 46 -BYTE # 168 -PORT # 46 -BYTE # 169 -PORT # 46 -BYTE # 170 -PORT # 46 -BYTE # 171 -PORT # 46 -BYTE # 172 -PORT # 46 -BYTE # 173 -PORT # 46 -BYTE # 174 -PORT # 46 -BYTE # 175 -PORT # 46 -BYTE # 176 -PORT # 46 -BYTE # 177 -PORT # 46 -BYTE # 178 -PORT # 46 -BYTE # 179 -PORT # 46 -BYTE # 180 -PORT # 46 -BYTE # 181 -PORT # 46 -BYTE # 182 -PORT # 46 -BYTE # 183 -PORT # 46 -BYTE # 184 -PORT # 46 -BYTE # 185 -PORT # 46 -BYTE # 186 -PORT # 46 -BYTE # 187 -PORT # 46 -BYTE # 188 -PORT # 46 -BYTE # 189 -PORT # 46 -BYTE # 190 -PORT # 46 -BYTE # 191 -PORT # 46 -BYTE # 192 -PORT # 46 -BYTE # 193 -PORT # 46 -BYTE # 194 -PORT # 46 -BYTE # 195 -PORT # 46 -BYTE # 196 -PORT # 46 -BYTE # 197 -PORT # 46 -BYTE # 198 -PORT # 46 -BYTE # 199 -PORT # 46 -BYTE # 200 -PORT # 46 -BYTE # 201 -PORT # 46 -BYTE # 202 -PORT # 46 -BYTE # 203 -PORT # 46 -BYTE # 204 -PORT # 46 -BYTE # 205 -PORT # 46 -BYTE # 206 -PORT # 46 -BYTE # 207 -PORT # 46 -BYTE # 208 -PORT # 46 -BYTE # 209 -PORT # 46 -BYTE # 210 -PORT # 46 -BYTE # 211 -PORT # 46 -BYTE # 212 -PORT # 46 -BYTE # 213 -PORT # 46 -BYTE # 214 -PORT # 46 -BYTE # 215 -PORT # 46 -BYTE # 216 -PORT # 46 -BYTE # 217 -PORT # 46 -BYTE # 218 -PORT # 46 -BYTE # 219 -PORT # 46 -BYTE # 220 -PORT # 46 -BYTE # 221 -PORT # 46 -BYTE # 222 -PORT # 46 -BYTE # 223 -PORT # 46 -BYTE # 224 -PORT # 46 -BYTE # 225 -PORT # 46 -BYTE # 226 -PORT # 46 -BYTE # 227 -PORT # 46 -BYTE # 228 -PORT # 46 -BYTE # 229 -PORT # 46 -BYTE # 230 -PORT # 46 -BYTE # 231 -PORT # 46 -BYTE # 232 -PORT # 46 -BYTE # 233 -PORT # 46 -BYTE # 234 -PORT # 46 -BYTE # 235 -PORT # 46 -BYTE # 236 -PORT # 46 -BYTE # 237 -PORT # 46 -BYTE # 238 -PORT # 46 -BYTE # 239 -PORT # 46 -BYTE # 240 -PORT # 46 -BYTE # 241 -PORT # 46 -BYTE # 242 -PORT # 46 -BYTE # 243 -PORT # 46 -BYTE # 244 -PORT # 46 -BYTE # 245 -PORT # 46 -BYTE # 246 -PORT # 46 -BYTE # 247 -PORT # 46 -BYTE # 248 -PORT # 46 -BYTE # 249 -PORT # 46 -BYTE # 250 -PORT # 46 -BYTE # 251 -PORT # 46 -BYTE # 252 -PORT # 46 -BYTE # 253 -PORT # 46 -BYTE # 254 -PORT # 46 -BYTE # 255 -PORT # 47 -BYTE # 0 -PORT # 47 -BYTE # 1 -PORT # 47 -BYTE # 2 -PORT # 47 -BYTE # 3 -PORT # 47 -BYTE # 4 -PORT # 47 -BYTE # 5 -PORT # 47 -BYTE # 6 -PORT # 47 -BYTE # 7 -PORT # 47 -BYTE # 8 -PORT # 47 -BYTE # 9 -PORT # 47 -BYTE # 10 -PORT # 47 -BYTE # 11 -PORT # 47 -BYTE # 12 -PORT # 47 -BYTE # 13 -PORT # 47 -BYTE # 14 -PORT # 47 -BYTE # 15 -PORT # 47 -BYTE # 16 -PORT # 47 -BYTE # 17 -PORT # 47 -BYTE # 18 -PORT # 47 -BYTE # 19 -PORT # 47 -BYTE # 20 -PORT # 47 -BYTE # 21 -PORT # 47 -BYTE # 22 -PORT # 47 -BYTE # 23 -PORT # 47 -BYTE # 24 -PORT # 47 -BYTE # 25 -PORT # 47 -BYTE # 26 -PORT # 47 -BYTE # 27 -PORT # 47 -BYTE # 28 -PORT # 47 -BYTE # 29 -PORT # 47 -BYTE # 30 -PORT # 47 -BYTE # 31 -PORT # 47 -BYTE # 32 -PORT # 47 -BYTE # 33 -PORT # 47 -BYTE # 34 -PORT # 47 -BYTE # 35 -PORT # 47 -BYTE # 36 -PORT # 47 -BYTE # 37 -PORT # 47 -BYTE # 38 -PORT # 47 -BYTE # 39 -PORT # 47 -BYTE # 40 -PORT # 47 -BYTE # 41 -PORT # 47 -BYTE # 42 -PORT # 47 -BYTE # 43 -PORT # 47 -BYTE # 44 -PORT # 47 -BYTE # 45 -PORT # 47 -BYTE # 46 -PORT # 47 -BYTE # 47 -PORT # 47 -BYTE # 48 -PORT # 47 -BYTE # 49 -PORT # 47 -BYTE # 50 -PORT # 47 -BYTE # 51 -PORT # 47 -BYTE # 52 -PORT # 47 -BYTE # 53 -PORT # 47 -BYTE # 54 -PORT # 47 -BYTE # 55 -PORT # 47 -BYTE # 56 -PORT # 47 -BYTE # 57 -PORT # 47 -BYTE # 58 -PORT # 47 -BYTE # 59 -PORT # 47 -BYTE # 60 -PORT # 47 -BYTE # 61 -PORT # 47 -BYTE # 62 -PORT # 47 -BYTE # 63 -PORT # 47 -BYTE # 64 -PORT # 47 -BYTE # 65 -PORT # 47 -BYTE # 66 -PORT # 47 -BYTE # 67 -PORT # 47 -BYTE # 68 -PORT # 47 -BYTE # 69 -PORT # 47 -BYTE # 70 -PORT # 47 -BYTE # 71 -PORT # 47 -BYTE # 72 -PORT # 47 -BYTE # 73 -PORT # 47 -BYTE # 74 -PORT # 47 -BYTE # 75 -PORT # 47 -BYTE # 76 -PORT # 47 -BYTE # 77 -PORT # 47 -BYTE # 78 -PORT # 47 -BYTE # 79 -PORT # 47 -BYTE # 80 -PORT # 47 -BYTE # 81 -PORT # 47 -BYTE # 82 -PORT # 47 -BYTE # 83 -PORT # 47 -BYTE # 84 -PORT # 47 -BYTE # 85 -PORT # 47 -BYTE # 86 -PORT # 47 -BYTE # 87 -PORT # 47 -BYTE # 88 -PORT # 47 -BYTE # 89 -PORT # 47 -BYTE # 90 -PORT # 47 -BYTE # 91 -PORT # 47 -BYTE # 92 -PORT # 47 -BYTE # 93 -PORT # 47 -BYTE # 94 -PORT # 47 -BYTE # 95 -PORT # 47 -BYTE # 96 -PORT # 47 -BYTE # 97 -PORT # 47 -BYTE # 98 -PORT # 47 -BYTE # 99 -PORT # 47 -BYTE # 100 -PORT # 47 -BYTE # 101 -PORT # 47 -BYTE # 102 -PORT # 47 -BYTE # 103 -PORT # 47 -BYTE # 104 -PORT # 47 -BYTE # 105 -PORT # 47 -BYTE # 106 -PORT # 47 -BYTE # 107 -PORT # 47 -BYTE # 108 -PORT # 47 -BYTE # 109 -PORT # 47 -BYTE # 110 -PORT # 47 -BYTE # 111 -PORT # 47 -BYTE # 112 -PORT # 47 -BYTE # 113 -PORT # 47 -BYTE # 114 -PORT # 47 -BYTE # 115 -PORT # 47 -BYTE # 116 -PORT # 47 -BYTE # 117 -PORT # 47 -BYTE # 118 -PORT # 47 -BYTE # 119 -PORT # 47 -BYTE # 120 -PORT # 47 -BYTE # 121 -PORT # 47 -BYTE # 122 -PORT # 47 -BYTE # 123 -PORT # 47 -BYTE # 124 -PORT # 47 -BYTE # 125 -PORT # 47 -BYTE # 126 -PORT # 47 -BYTE # 127 -PORT # 47 -BYTE # 128 -PORT # 47 -BYTE # 129 -PORT # 47 -BYTE # 130 -PORT # 47 -BYTE # 131 -PORT # 47 -BYTE # 132 -PORT # 47 -BYTE # 133 -PORT # 47 -BYTE # 134 -PORT # 47 -BYTE # 135 -PORT # 47 -BYTE # 136 -PORT # 47 -BYTE # 137 -PORT # 47 -BYTE # 138 -PORT # 47 -BYTE # 139 -PORT # 47 -BYTE # 140 -PORT # 47 -BYTE # 141 -PORT # 47 -BYTE # 142 -PORT # 47 -BYTE # 143 -PORT # 47 -BYTE # 144 -PORT # 47 -BYTE # 145 -PORT # 47 -BYTE # 146 -PORT # 47 -BYTE # 147 -PORT # 47 -BYTE # 148 -PORT # 47 -BYTE # 149 -PORT # 47 -BYTE # 150 -PORT # 47 -BYTE # 151 -PORT # 47 -BYTE # 152 -PORT # 47 -BYTE # 153 -PORT # 47 -BYTE # 154 -PORT # 47 -BYTE # 155 -PORT # 47 -BYTE # 156 -PORT # 47 -BYTE # 157 -PORT # 47 -BYTE # 158 -PORT # 47 -BYTE # 159 -PORT # 47 -BYTE # 160 -PORT # 47 -BYTE # 161 -PORT # 47 -BYTE # 162 -PORT # 47 -BYTE # 163 -PORT # 47 -BYTE # 164 -PORT # 47 -BYTE # 165 -PORT # 47 -BYTE # 166 -PORT # 47 -BYTE # 167 -PORT # 47 -BYTE # 168 -PORT # 47 -BYTE # 169 -PORT # 47 -BYTE # 170 -PORT # 47 -BYTE # 171 -PORT # 47 -BYTE # 172 -PORT # 47 -BYTE # 173 -PORT # 47 -BYTE # 174 -PORT # 47 -BYTE # 175 -PORT # 47 -BYTE # 176 -PORT # 47 -BYTE # 177 -PORT # 47 -BYTE # 178 -PORT # 47 -BYTE # 179 -PORT # 47 -BYTE # 180 -PORT # 47 -BYTE # 181 -PORT # 47 -BYTE # 182 -PORT # 47 -BYTE # 183 -PORT # 47 -BYTE # 184 -PORT # 47 -BYTE # 185 -PORT # 47 -BYTE # 186 -PORT # 47 -BYTE # 187 -PORT # 47 -BYTE # 188 -PORT # 47 -BYTE # 189 -PORT # 47 -BYTE # 190 -PORT # 47 -BYTE # 191 -PORT # 47 -BYTE # 192 -PORT # 47 -BYTE # 193 -PORT # 47 -BYTE # 194 -PORT # 47 -BYTE # 195 -PORT # 47 -BYTE # 196 -PORT # 47 -BYTE # 197 -PORT # 47 -BYTE # 198 -PORT # 47 -BYTE # 199 -PORT # 47 -BYTE # 200 -PORT # 47 -BYTE # 201 -PORT # 47 -BYTE # 202 -PORT # 47 -BYTE # 203 -PORT # 47 -BYTE # 204 -PORT # 47 -BYTE # 205 -PORT # 47 -BYTE # 206 -PORT # 47 -BYTE # 207 -PORT # 47 -BYTE # 208 -PORT # 47 -BYTE # 209 -PORT # 47 -BYTE # 210 -PORT # 47 -BYTE # 211 -PORT # 47 -BYTE # 212 -PORT # 47 -BYTE # 213 -PORT # 47 -BYTE # 214 -PORT # 47 -BYTE # 215 -PORT # 47 -BYTE # 216 -PORT # 47 -BYTE # 217 -PORT # 47 -BYTE # 218 -PORT # 47 -BYTE # 219 -PORT # 47 -BYTE # 220 -PORT # 47 -BYTE # 221 -PORT # 47 -BYTE # 222 -PORT # 47 -BYTE # 223 -PORT # 47 -BYTE # 224 -PORT # 47 -BYTE # 225 -PORT # 47 -BYTE # 226 -PORT # 47 -BYTE # 227 -PORT # 47 -BYTE # 228 -PORT # 47 -BYTE # 229 -PORT # 47 -BYTE # 230 -PORT # 47 -BYTE # 231 -PORT # 47 -BYTE # 232 -PORT # 47 -BYTE # 233 -PORT # 47 -BYTE # 234 -PORT # 47 -BYTE # 235 -PORT # 47 -BYTE # 236 -PORT # 47 -BYTE # 237 -PORT # 47 -BYTE # 238 -PORT # 47 -BYTE # 239 -PORT # 47 -BYTE # 240 -PORT # 47 -BYTE # 241 -PORT # 47 -BYTE # 242 -PORT # 47 -BYTE # 243 -PORT # 47 -BYTE # 244 -PORT # 47 -BYTE # 245 -PORT # 47 -BYTE # 246 -PORT # 47 -BYTE # 247 -PORT # 47 -BYTE # 248 -PORT # 47 -BYTE # 249 -PORT # 47 -BYTE # 250 -PORT # 47 -BYTE # 251 -PORT # 47 -BYTE # 252 -PORT # 47 -BYTE # 253 -PORT # 47 -BYTE # 254 -PORT # 47 -BYTE # 255 -PORT # 48 -BYTE # 0 -PORT # 48 -BYTE # 1 -PORT # 48 -BYTE # 2 -PORT # 48 -BYTE # 3 -PORT # 48 -BYTE # 4 -PORT # 48 -BYTE # 5 -PORT # 48 -BYTE # 6 -PORT # 48 -BYTE # 7 -PORT # 48 -BYTE # 8 -PORT # 48 -BYTE # 9 -PORT # 48 -BYTE # 10 -PORT # 48 -BYTE # 11 -PORT # 48 -BYTE # 12 -PORT # 48 -BYTE # 13 -PORT # 48 -BYTE # 14 -PORT # 48 -BYTE # 15 -PORT # 48 -BYTE # 16 -PORT # 48 -BYTE # 17 -PORT # 48 -BYTE # 18 -PORT # 48 -BYTE # 19 -PORT # 48 -BYTE # 20 -PORT # 48 -BYTE # 21 -PORT # 48 -BYTE # 22 -PORT # 48 -BYTE # 23 -PORT # 48 -BYTE # 24 -PORT # 48 -BYTE # 25 -PORT # 48 -BYTE # 26 -PORT # 48 -BYTE # 27 -PORT # 48 -BYTE # 28 -PORT # 48 -BYTE # 29 -PORT # 48 -BYTE # 30 -PORT # 48 -BYTE # 31 -PORT # 48 -BYTE # 32 -PORT # 48 -BYTE # 33 -PORT # 48 -BYTE # 34 -PORT # 48 -BYTE # 35 -PORT # 48 -BYTE # 36 -PORT # 48 -BYTE # 37 -PORT # 48 -BYTE # 38 -PORT # 48 -BYTE # 39 -PORT # 48 -BYTE # 40 -PORT # 48 -BYTE # 41 -PORT # 48 -BYTE # 42 -PORT # 48 -BYTE # 43 -PORT # 48 -BYTE # 44 -PORT # 48 -BYTE # 45 -PORT # 48 -BYTE # 46 -PORT # 48 -BYTE # 47 -PORT # 48 -BYTE # 48 -PORT # 48 -BYTE # 49 -PORT # 48 -BYTE # 50 -PORT # 48 -BYTE # 51 -PORT # 48 -BYTE # 52 -PORT # 48 -BYTE # 53 -PORT # 48 -BYTE # 54 -PORT # 48 -BYTE # 55 -PORT # 48 -BYTE # 56 -PORT # 48 -BYTE # 57 -PORT # 48 -BYTE # 58 -PORT # 48 -BYTE # 59 -PORT # 48 -BYTE # 60 -PORT # 48 -BYTE # 61 -PORT # 48 -BYTE # 62 -PORT # 48 -BYTE # 63 -PORT # 48 -BYTE # 64 -PORT # 48 -BYTE # 65 -PORT # 48 -BYTE # 66 -PORT # 48 -BYTE # 67 -PORT # 48 -BYTE # 68 -PORT # 48 -BYTE # 69 -PORT # 48 -BYTE # 70 -PORT # 48 -BYTE # 71 -PORT # 48 -BYTE # 72 -PORT # 48 -BYTE # 73 -PORT # 48 -BYTE # 74 -PORT # 48 -BYTE # 75 -PORT # 48 -BYTE # 76 -PORT # 48 -BYTE # 77 -PORT # 48 -BYTE # 78 -PORT # 48 -BYTE # 79 -PORT # 48 -BYTE # 80 -PORT # 48 -BYTE # 81 -PORT # 48 -BYTE # 82 -PORT # 48 -BYTE # 83 -PORT # 48 -BYTE # 84 -PORT # 48 -BYTE # 85 -PORT # 48 -BYTE # 86 -PORT # 48 -BYTE # 87 -PORT # 48 -BYTE # 88 -PORT # 48 -BYTE # 89 -PORT # 48 -BYTE # 90 -PORT # 48 -BYTE # 91 -PORT # 48 -BYTE # 92 -PORT # 48 -BYTE # 93 -PORT # 48 -BYTE # 94 -PORT # 48 -BYTE # 95 -PORT # 48 -BYTE # 96 -PORT # 48 -BYTE # 97 -PORT # 48 -BYTE # 98 -PORT # 48 -BYTE # 99 -PORT # 48 -BYTE # 100 -PORT # 48 -BYTE # 101 -PORT # 48 -BYTE # 102 -PORT # 48 -BYTE # 103 -PORT # 48 -BYTE # 104 -PORT # 48 -BYTE # 105 -PORT # 48 -BYTE # 106 -PORT # 48 -BYTE # 107 -PORT # 48 -BYTE # 108 -PORT # 48 -BYTE # 109 -PORT # 48 -BYTE # 110 -PORT # 48 -BYTE # 111 -PORT # 48 -BYTE # 112 -PORT # 48 -BYTE # 113 -PORT # 48 -BYTE # 114 -PORT # 48 -BYTE # 115 -PORT # 48 -BYTE # 116 -PORT # 48 -BYTE # 117 -PORT # 48 -BYTE # 118 -PORT # 48 -BYTE # 119 -PORT # 48 -BYTE # 120 -PORT # 48 -BYTE # 121 -PORT # 48 -BYTE # 122 -PORT # 48 -BYTE # 123 -PORT # 48 -BYTE # 124 -PORT # 48 -BYTE # 125 -PORT # 48 -BYTE # 126 -PORT # 48 -BYTE # 127 -PORT # 48 -BYTE # 128 -PORT # 48 -BYTE # 129 -PORT # 48 -BYTE # 130 -PORT # 48 -BYTE # 131 -PORT # 48 -BYTE # 132 -PORT # 48 -BYTE # 133 -PORT # 48 -BYTE # 134 -PORT # 48 -BYTE # 135 -PORT # 48 -BYTE # 136 -PORT # 48 -BYTE # 137 -PORT # 48 -BYTE # 138 -PORT # 48 -BYTE # 139 -PORT # 48 -BYTE # 140 -PORT # 48 -BYTE # 141 -PORT # 48 -BYTE # 142 -PORT # 48 -BYTE # 143 -PORT # 48 -BYTE # 144 -PORT # 48 -BYTE # 145 -PORT # 48 -BYTE # 146 -PORT # 48 -BYTE # 147 -PORT # 48 -BYTE # 148 -PORT # 48 -BYTE # 149 -PORT # 48 -BYTE # 150 -PORT # 48 -BYTE # 151 -PORT # 48 -BYTE # 152 -PORT # 48 -BYTE # 153 -PORT # 48 -BYTE # 154 -PORT # 48 -BYTE # 155 -PORT # 48 -BYTE # 156 -PORT # 48 -BYTE # 157 -PORT # 48 -BYTE # 158 -PORT # 48 -BYTE # 159 -PORT # 48 -BYTE # 160 -PORT # 48 -BYTE # 161 -PORT # 48 -BYTE # 162 -PORT # 48 -BYTE # 163 -PORT # 48 -BYTE # 164 -PORT # 48 -BYTE # 165 -PORT # 48 -BYTE # 166 -PORT # 48 -BYTE # 167 -PORT # 48 -BYTE # 168 -PORT # 48 -BYTE # 169 -PORT # 48 -BYTE # 170 -PORT # 48 -BYTE # 171 -PORT # 48 -BYTE # 172 -PORT # 48 -BYTE # 173 -PORT # 48 -BYTE # 174 -PORT # 48 -BYTE # 175 -PORT # 48 -BYTE # 176 -PORT # 48 -BYTE # 177 -PORT # 48 -BYTE # 178 -PORT # 48 -BYTE # 179 -PORT # 48 -BYTE # 180 -PORT # 48 -BYTE # 181 -PORT # 48 -BYTE # 182 -PORT # 48 -BYTE # 183 -PORT # 48 -BYTE # 184 -PORT # 48 -BYTE # 185 -PORT # 48 -BYTE # 186 -PORT # 48 -BYTE # 187 -PORT # 48 -BYTE # 188 -PORT # 48 -BYTE # 189 -PORT # 48 -BYTE # 190 -PORT # 48 -BYTE # 191 -PORT # 48 -BYTE # 192 -PORT # 48 -BYTE # 193 -PORT # 48 -BYTE # 194 -PORT # 48 -BYTE # 195 -PORT # 48 -BYTE # 196 -PORT # 48 -BYTE # 197 -PORT # 48 -BYTE # 198 -PORT # 48 -BYTE # 199 -PORT # 48 -BYTE # 200 -PORT # 48 -BYTE # 201 -PORT # 48 -BYTE # 202 -PORT # 48 -BYTE # 203 -PORT # 48 -BYTE # 204 -PORT # 48 -BYTE # 205 -PORT # 48 -BYTE # 206 -PORT # 48 -BYTE # 207 -PORT # 48 -BYTE # 208 -PORT # 48 -BYTE # 209 -PORT # 48 -BYTE # 210 -PORT # 48 -BYTE # 211 -PORT # 48 -BYTE # 212 -PORT # 48 -BYTE # 213 -PORT # 48 -BYTE # 214 -PORT # 48 -BYTE # 215 -PORT # 48 -BYTE # 216 -PORT # 48 -BYTE # 217 -PORT # 48 -BYTE # 218 -PORT # 48 -BYTE # 219 -PORT # 48 -BYTE # 220 -PORT # 48 -BYTE # 221 -PORT # 48 -BYTE # 222 -PORT # 48 -BYTE # 223 -PORT # 48 -BYTE # 224 -PORT # 48 -BYTE # 225 -PORT # 48 -BYTE # 226 -PORT # 48 -BYTE # 227 -PORT # 48 -BYTE # 228 -PORT # 48 -BYTE # 229 -PORT # 48 -BYTE # 230 -PORT # 48 -BYTE # 231 -PORT # 48 -BYTE # 232 -PORT # 48 -BYTE # 233 -PORT # 48 -BYTE # 234 -PORT # 48 -BYTE # 235 -PORT # 48 -BYTE # 236 -PORT # 48 -BYTE # 237 -PORT # 48 -BYTE # 238 -PORT # 48 -BYTE # 239 -PORT # 48 -BYTE # 240 -PORT # 48 -BYTE # 241 -PORT # 48 -BYTE # 242 -PORT # 48 -BYTE # 243 -PORT # 48 -BYTE # 244 -PORT # 48 -BYTE # 245 -PORT # 48 -BYTE # 246 -PORT # 48 -BYTE # 247 -PORT # 48 -BYTE # 248 -PORT # 48 -BYTE # 249 -PORT # 48 -BYTE # 250 -PORT # 48 -BYTE # 251 -PORT # 48 -BYTE # 252 -PORT # 48 -BYTE # 253 -PORT # 48 -BYTE # 254 -PORT # 48 -BYTE # 255 -PORT # 49 -BYTE # 0 -PORT # 49 -BYTE # 1 -PORT # 49 -BYTE # 2 -PORT # 49 -BYTE # 3 -PORT # 49 -BYTE # 4 -PORT # 49 -BYTE # 5 -PORT # 49 -BYTE # 6 -PORT # 49 -BYTE # 7 -PORT # 49 -BYTE # 8 -PORT # 49 -BYTE # 9 -PORT # 49 -BYTE # 10 -PORT # 49 -BYTE # 11 -PORT # 49 -BYTE # 12 -PORT # 49 -BYTE # 13 -PORT # 49 -BYTE # 14 -PORT # 49 -BYTE # 15 -PORT # 49 -BYTE # 16 -PORT # 49 -BYTE # 17 -PORT # 49 -BYTE # 18 -PORT # 49 -BYTE # 19 -PORT # 49 -BYTE # 20 -PORT # 49 -BYTE # 21 -PORT # 49 -BYTE # 22 -PORT # 49 -BYTE # 23 -PORT # 49 -BYTE # 24 -PORT # 49 -BYTE # 25 -PORT # 49 -BYTE # 26 -PORT # 49 -BYTE # 27 -PORT # 49 -BYTE # 28 -PORT # 49 -BYTE # 29 -PORT # 49 -BYTE # 30 -PORT # 49 -BYTE # 31 -PORT # 49 -BYTE # 32 -PORT # 49 -BYTE # 33 -PORT # 49 -BYTE # 34 -PORT # 49 -BYTE # 35 -PORT # 49 -BYTE # 36 -PORT # 49 -BYTE # 37 -PORT # 49 -BYTE # 38 -PORT # 49 -BYTE # 39 -PORT # 49 -BYTE # 40 -PORT # 49 -BYTE # 41 -PORT # 49 -BYTE # 42 -PORT # 49 -BYTE # 43 -PORT # 49 -BYTE # 44 -PORT # 49 -BYTE # 45 -PORT # 49 -BYTE # 46 -PORT # 49 -BYTE # 47 -PORT # 49 -BYTE # 48 -PORT # 49 -BYTE # 49 -PORT # 49 -BYTE # 50 -PORT # 49 -BYTE # 51 -PORT # 49 -BYTE # 52 -PORT # 49 -BYTE # 53 -PORT # 49 -BYTE # 54 -PORT # 49 -BYTE # 55 -PORT # 49 -BYTE # 56 -PORT # 49 -BYTE # 57 -PORT # 49 -BYTE # 58 -PORT # 49 -BYTE # 59 -PORT # 49 -BYTE # 60 -PORT # 49 -BYTE # 61 -PORT # 49 -BYTE # 62 -PORT # 49 -BYTE # 63 -PORT # 49 -BYTE # 64 -PORT # 49 -BYTE # 65 -PORT # 49 -BYTE # 66 -PORT # 49 -BYTE # 67 -PORT # 49 -BYTE # 68 -PORT # 49 -BYTE # 69 -PORT # 49 -BYTE # 70 -PORT # 49 -BYTE # 71 -PORT # 49 -BYTE # 72 -PORT # 49 -BYTE # 73 -PORT # 49 -BYTE # 74 -PORT # 49 -BYTE # 75 -PORT # 49 -BYTE # 76 -PORT # 49 -BYTE # 77 -PORT # 49 -BYTE # 78 -PORT # 49 -BYTE # 79 -PORT # 49 -BYTE # 80 -PORT # 49 -BYTE # 81 -PORT # 49 -BYTE # 82 -PORT # 49 -BYTE # 83 -PORT # 49 -BYTE # 84 -PORT # 49 -BYTE # 85 -PORT # 49 -BYTE # 86 -PORT # 49 -BYTE # 87 -PORT # 49 -BYTE # 88 -PORT # 49 -BYTE # 89 -PORT # 49 -BYTE # 90 -PORT # 49 -BYTE # 91 -PORT # 49 -BYTE # 92 -PORT # 49 -BYTE # 93 -PORT # 49 -BYTE # 94 -PORT # 49 -BYTE # 95 -PORT # 49 -BYTE # 96 -PORT # 49 -BYTE # 97 -PORT # 49 -BYTE # 98 -PORT # 49 -BYTE # 99 -PORT # 49 -BYTE # 100 -PORT # 49 -BYTE # 101 -PORT # 49 -BYTE # 102 -PORT # 49 -BYTE # 103 -PORT # 49 -BYTE # 104 -PORT # 49 -BYTE # 105 -PORT # 49 -BYTE # 106 -PORT # 49 -BYTE # 107 -PORT # 49 -BYTE # 108 -PORT # 49 -BYTE # 109 -PORT # 49 -BYTE # 110 -PORT # 49 -BYTE # 111 -PORT # 49 -BYTE # 112 -PORT # 49 -BYTE # 113 -PORT # 49 -BYTE # 114 -PORT # 49 -BYTE # 115 -PORT # 49 -BYTE # 116 -PORT # 49 -BYTE # 117 -PORT # 49 -BYTE # 118 -PORT # 49 -BYTE # 119 -PORT # 49 -BYTE # 120 -PORT # 49 -BYTE # 121 -PORT # 49 -BYTE # 122 -PORT # 49 -BYTE # 123 -PORT # 49 -BYTE # 124 -PORT # 49 -BYTE # 125 -PORT # 49 -BYTE # 126 -PORT # 49 -BYTE # 127 -PORT # 49 -BYTE # 128 -PORT # 49 -BYTE # 129 -PORT # 49 -BYTE # 130 -PORT # 49 -BYTE # 131 -PORT # 49 -BYTE # 132 -PORT # 49 -BYTE # 133 -PORT # 49 -BYTE # 134 -PORT # 49 -BYTE # 135 -PORT # 49 -BYTE # 136 -PORT # 49 -BYTE # 137 -PORT # 49 -BYTE # 138 -PORT # 49 -BYTE # 139 -PORT # 49 -BYTE # 140 -PORT # 49 -BYTE # 141 -PORT # 49 -BYTE # 142 -PORT # 49 -BYTE # 143 -PORT # 49 -BYTE # 144 -PORT # 49 -BYTE # 145 -PORT # 49 -BYTE # 146 -PORT # 49 -BYTE # 147 -PORT # 49 -BYTE # 148 -PORT # 49 -BYTE # 149 -PORT # 49 -BYTE # 150 -PORT # 49 -BYTE # 151 -PORT # 49 -BYTE # 152 -PORT # 49 -BYTE # 153 -PORT # 49 -BYTE # 154 -PORT # 49 -BYTE # 155 -PORT # 49 -BYTE # 156 -PORT # 49 -BYTE # 157 -PORT # 49 -BYTE # 158 -PORT # 49 -BYTE # 159 -PORT # 49 -BYTE # 160 -PORT # 49 -BYTE # 161 -PORT # 49 -BYTE # 162 -PORT # 49 -BYTE # 163 -PORT # 49 -BYTE # 164 -PORT # 49 -BYTE # 165 -PORT # 49 -BYTE # 166 -PORT # 49 -BYTE # 167 -PORT # 49 -BYTE # 168 -PORT # 49 -BYTE # 169 -PORT # 49 -BYTE # 170 -PORT # 49 -BYTE # 171 -PORT # 49 -BYTE # 172 -PORT # 49 -BYTE # 173 -PORT # 49 -BYTE # 174 -PORT # 49 -BYTE # 175 -PORT # 49 -BYTE # 176 -PORT # 49 -BYTE # 177 -PORT # 49 -BYTE # 178 -PORT # 49 -BYTE # 179 -PORT # 49 -BYTE # 180 -PORT # 49 -BYTE # 181 -PORT # 49 -BYTE # 182 -PORT # 49 -BYTE # 183 -PORT # 49 -BYTE # 184 -PORT # 49 -BYTE # 185 -PORT # 49 -BYTE # 186 -PORT # 49 -BYTE # 187 -PORT # 49 -BYTE # 188 -PORT # 49 -BYTE # 189 -PORT # 49 -BYTE # 190 -PORT # 49 -BYTE # 191 -PORT # 49 -BYTE # 192 -PORT # 49 -BYTE # 193 -PORT # 49 -BYTE # 194 -PORT # 49 -BYTE # 195 -PORT # 49 -BYTE # 196 -PORT # 49 -BYTE # 197 -PORT # 49 -BYTE # 198 -PORT # 49 -BYTE # 199 -PORT # 49 -BYTE # 200 -PORT # 49 -BYTE # 201 -PORT # 49 -BYTE # 202 -PORT # 49 -BYTE # 203 -PORT # 49 -BYTE # 204 -PORT # 49 -BYTE # 205 -PORT # 49 -BYTE # 206 -PORT # 49 -BYTE # 207 -PORT # 49 -BYTE # 208 -PORT # 49 -BYTE # 209 -PORT # 49 -BYTE # 210 -PORT # 49 -BYTE # 211 -PORT # 49 -BYTE # 212 -PORT # 49 -BYTE # 213 -PORT # 49 -BYTE # 214 -PORT # 49 -BYTE # 215 -PORT # 49 -BYTE # 216 -PORT # 49 -BYTE # 217 -PORT # 49 -BYTE # 218 -PORT # 49 -BYTE # 219 -PORT # 49 -BYTE # 220 -PORT # 49 -BYTE # 221 -PORT # 49 -BYTE # 222 -PORT # 49 -BYTE # 223 -PORT # 49 -BYTE # 224 -PORT # 49 -BYTE # 225 -PORT # 49 -BYTE # 226 -PORT # 49 -BYTE # 227 -PORT # 49 -BYTE # 228 -PORT # 49 -BYTE # 229 -PORT # 49 -BYTE # 230 -PORT # 49 -BYTE # 231 -PORT # 49 -BYTE # 232 -PORT # 49 -BYTE # 233 -PORT # 49 -BYTE # 234 -PORT # 49 -BYTE # 235 -PORT # 49 -BYTE # 236 -PORT # 49 -BYTE # 237 -PORT # 49 -BYTE # 238 -PORT # 49 -BYTE # 239 -PORT # 49 -BYTE # 240 -PORT # 49 -BYTE # 241 -PORT # 49 -BYTE # 242 -PORT # 49 -BYTE # 243 -PORT # 49 -BYTE # 244 -PORT # 49 -BYTE # 245 -PORT # 49 -BYTE # 246 -PORT # 49 -BYTE # 247 -PORT # 49 -BYTE # 248 -PORT # 49 -BYTE # 249 -PORT # 49 -BYTE # 250 -PORT # 49 -BYTE # 251 -PORT # 49 -BYTE # 252 -PORT # 49 -BYTE # 253 -PORT # 49 -BYTE # 254 -PORT # 49 -BYTE # 255 -PORT # 50 -BYTE # 0 -PORT # 50 -BYTE # 1 -PORT # 50 -BYTE # 2 -PORT # 50 -BYTE # 3 -PORT # 50 -BYTE # 4 -PORT # 50 -BYTE # 5 -PORT # 50 -BYTE # 6 -PORT # 50 -BYTE # 7 -PORT # 50 -BYTE # 8 -PORT # 50 -BYTE # 9 -PORT # 50 -BYTE # 10 -PORT # 50 -BYTE # 11 -PORT # 50 -BYTE # 12 -PORT # 50 -BYTE # 13 -PORT # 50 -BYTE # 14 -PORT # 50 -BYTE # 15 -PORT # 50 -BYTE # 16 -PORT # 50 -BYTE # 17 -PORT # 50 -BYTE # 18 -PORT # 50 -BYTE # 19 -PORT # 50 -BYTE # 20 -PORT # 50 -BYTE # 21 -PORT # 50 -BYTE # 22 -PORT # 50 -BYTE # 23 -PORT # 50 -BYTE # 24 -PORT # 50 -BYTE # 25 -PORT # 50 -BYTE # 26 -PORT # 50 -BYTE # 27 -PORT # 50 -BYTE # 28 -PORT # 50 -BYTE # 29 -PORT # 50 -BYTE # 30 -PORT # 50 -BYTE # 31 -PORT # 50 -BYTE # 32 -PORT # 50 -BYTE # 33 -PORT # 50 -BYTE # 34 -PORT # 50 -BYTE # 35 -PORT # 50 -BYTE # 36 -PORT # 50 -BYTE # 37 -PORT # 50 -BYTE # 38 -PORT # 50 -BYTE # 39 -PORT # 50 -BYTE # 40 -PORT # 50 -BYTE # 41 -PORT # 50 -BYTE # 42 -PORT # 50 -BYTE # 43 -PORT # 50 -BYTE # 44 -PORT # 50 -BYTE # 45 -PORT # 50 -BYTE # 46 -PORT # 50 -BYTE # 47 -PORT # 50 -BYTE # 48 -PORT # 50 -BYTE # 49 -PORT # 50 -BYTE # 50 -PORT # 50 -BYTE # 51 -PORT # 50 -BYTE # 52 -PORT # 50 -BYTE # 53 -PORT # 50 -BYTE # 54 -PORT # 50 -BYTE # 55 -PORT # 50 -BYTE # 56 -PORT # 50 -BYTE # 57 -PORT # 50 -BYTE # 58 -PORT # 50 -BYTE # 59 -PORT # 50 -BYTE # 60 -PORT # 50 -BYTE # 61 -PORT # 50 -BYTE # 62 -PORT # 50 -BYTE # 63 -PORT # 50 -BYTE # 64 -PORT # 50 -BYTE # 65 -PORT # 50 -BYTE # 66 -PORT # 50 -BYTE # 67 -PORT # 50 -BYTE # 68 -PORT # 50 -BYTE # 69 -PORT # 50 -BYTE # 70 -PORT # 50 -BYTE # 71 -PORT # 50 -BYTE # 72 -PORT # 50 -BYTE # 73 -PORT # 50 -BYTE # 74 -PORT # 50 -BYTE # 75 -PORT # 50 -BYTE # 76 -PORT # 50 -BYTE # 77 -PORT # 50 -BYTE # 78 -PORT # 50 -BYTE # 79 -PORT # 50 -BYTE # 80 -PORT # 50 -BYTE # 81 -PORT # 50 -BYTE # 82 -PORT # 50 -BYTE # 83 -PORT # 50 -BYTE # 84 -PORT # 50 -BYTE # 85 -PORT # 50 -BYTE # 86 -PORT # 50 -BYTE # 87 -PORT # 50 -BYTE # 88 -PORT # 50 -BYTE # 89 -PORT # 50 -BYTE # 90 -PORT # 50 -BYTE # 91 -PORT # 50 -BYTE # 92 -PORT # 50 -BYTE # 93 -PORT # 50 -BYTE # 94 -PORT # 50 -BYTE # 95 -PORT # 50 -BYTE # 96 -PORT # 50 -BYTE # 97 -PORT # 50 -BYTE # 98 -PORT # 50 -BYTE # 99 -PORT # 50 -BYTE # 100 -PORT # 50 -BYTE # 101 -PORT # 50 -BYTE # 102 -PORT # 50 -BYTE # 103 -PORT # 50 -BYTE # 104 -PORT # 50 -BYTE # 105 -PORT # 50 -BYTE # 106 -PORT # 50 -BYTE # 107 -PORT # 50 -BYTE # 108 -PORT # 50 -BYTE # 109 -PORT # 50 -BYTE # 110 -PORT # 50 -BYTE # 111 -PORT # 50 -BYTE # 112 -PORT # 50 -BYTE # 113 -PORT # 50 -BYTE # 114 -PORT # 50 -BYTE # 115 -PORT # 50 -BYTE # 116 -PORT # 50 -BYTE # 117 -PORT # 50 -BYTE # 118 -PORT # 50 -BYTE # 119 -PORT # 50 -BYTE # 120 -PORT # 50 -BYTE # 121 -PORT # 50 -BYTE # 122 -PORT # 50 -BYTE # 123 -PORT # 50 -BYTE # 124 -PORT # 50 -BYTE # 125 -PORT # 50 -BYTE # 126 -PORT # 50 -BYTE # 127 -PORT # 50 -BYTE # 128 -PORT # 50 -BYTE # 129 -PORT # 50 -BYTE # 130 -PORT # 50 -BYTE # 131 -PORT # 50 -BYTE # 132 -PORT # 50 -BYTE # 133 -PORT # 50 -BYTE # 134 -PORT # 50 -BYTE # 135 -PORT # 50 -BYTE # 136 -PORT # 50 -BYTE # 137 -PORT # 50 -BYTE # 138 -PORT # 50 -BYTE # 139 -PORT # 50 -BYTE # 140 -PORT # 50 -BYTE # 141 -PORT # 50 -BYTE # 142 -PORT # 50 -BYTE # 143 -PORT # 50 -BYTE # 144 -PORT # 50 -BYTE # 145 -PORT # 50 -BYTE # 146 -PORT # 50 -BYTE # 147 -PORT # 50 -BYTE # 148 -PORT # 50 -BYTE # 149 -PORT # 50 -BYTE # 150 -PORT # 50 -BYTE # 151 -PORT # 50 -BYTE # 152 -PORT # 50 -BYTE # 153 -PORT # 50 -BYTE # 154 -PORT # 50 -BYTE # 155 -PORT # 50 -BYTE # 156 -PORT # 50 -BYTE # 157 -PORT # 50 -BYTE # 158 -PORT # 50 -BYTE # 159 -PORT # 50 -BYTE # 160 -PORT # 50 -BYTE # 161 -PORT # 50 -BYTE # 162 -PORT # 50 -BYTE # 163 -PORT # 50 -BYTE # 164 -PORT # 50 -BYTE # 165 -PORT # 50 -BYTE # 166 -PORT # 50 -BYTE # 167 -PORT # 50 -BYTE # 168 -PORT # 50 -BYTE # 169 -PORT # 50 -BYTE # 170 -PORT # 50 -BYTE # 171 -PORT # 50 -BYTE # 172 -PORT # 50 -BYTE # 173 -PORT # 50 -BYTE # 174 -PORT # 50 -BYTE # 175 -PORT # 50 -BYTE # 176 -PORT # 50 -BYTE # 177 -PORT # 50 -BYTE # 178 -PORT # 50 -BYTE # 179 -PORT # 50 -BYTE # 180 -PORT # 50 -BYTE # 181 -PORT # 50 -BYTE # 182 -PORT # 50 -BYTE # 183 -PORT # 50 -BYTE # 184 -PORT # 50 -BYTE # 185 -PORT # 50 -BYTE # 186 -PORT # 50 -BYTE # 187 -PORT # 50 -BYTE # 188 -PORT # 50 -BYTE # 189 -PORT # 50 -BYTE # 190 -PORT # 50 -BYTE # 191 -PORT # 50 -BYTE # 192 -PORT # 50 -BYTE # 193 -PORT # 50 -BYTE # 194 -PORT # 50 -BYTE # 195 -PORT # 50 -BYTE # 196 -PORT # 50 -BYTE # 197 -PORT # 50 -BYTE # 198 -PORT # 50 -BYTE # 199 -PORT # 50 -BYTE # 200 -PORT # 50 -BYTE # 201 -PORT # 50 -BYTE # 202 -PORT # 50 -BYTE # 203 -PORT # 50 -BYTE # 204 -PORT # 50 -BYTE # 205 -PORT # 50 -BYTE # 206 -PORT # 50 -BYTE # 207 -PORT # 50 -BYTE # 208 -PORT # 50 -BYTE # 209 -PORT # 50 -BYTE # 210 -PORT # 50 -BYTE # 211 -PORT # 50 -BYTE # 212 -PORT # 50 -BYTE # 213 -PORT # 50 -BYTE # 214 -PORT # 50 -BYTE # 215 -PORT # 50 -BYTE # 216 -PORT # 50 -BYTE # 217 -PORT # 50 -BYTE # 218 -PORT # 50 -BYTE # 219 -PORT # 50 -BYTE # 220 -PORT # 50 -BYTE # 221 -PORT # 50 -BYTE # 222 -PORT # 50 -BYTE # 223 -PORT # 50 -BYTE # 224 -PORT # 50 -BYTE # 225 -PORT # 50 -BYTE # 226 -PORT # 50 -BYTE # 227 -PORT # 50 -BYTE # 228 -PORT # 50 -BYTE # 229 -PORT # 50 -BYTE # 230 -PORT # 50 -BYTE # 231 -PORT # 50 -BYTE # 232 -PORT # 50 -BYTE # 233 -PORT # 50 -BYTE # 234 -PORT # 50 -BYTE # 235 -PORT # 50 -BYTE # 236 -PORT # 50 -BYTE # 237 -PORT # 50 -BYTE # 238 -PORT # 50 -BYTE # 239 -PORT # 50 -BYTE # 240 -PORT # 50 -BYTE # 241 -PORT # 50 -BYTE # 242 -PORT # 50 -BYTE # 243 -PORT # 50 -BYTE # 244 -PORT # 50 -BYTE # 245 -PORT # 50 -BYTE # 246 -PORT # 50 -BYTE # 247 -PORT # 50 -BYTE # 248 -PORT # 50 -BYTE # 249 -PORT # 50 -BYTE # 250 -PORT # 50 -BYTE # 251 -PORT # 50 -BYTE # 252 -PORT # 50 -BYTE # 253 -PORT # 50 -BYTE # 254 -PORT # 50 -BYTE # 255 -PORT # 51 -BYTE # 0 -PORT # 51 -BYTE # 1 -PORT # 51 -BYTE # 2 -PORT # 51 -BYTE # 3 -PORT # 51 -BYTE # 4 -PORT # 51 -BYTE # 5 -PORT # 51 -BYTE # 6 -PORT # 51 -BYTE # 7 -PORT # 51 -BYTE # 8 -PORT # 51 -BYTE # 9 -PORT # 51 -BYTE # 10 -PORT # 51 -BYTE # 11 -PORT # 51 -BYTE # 12 -PORT # 51 -BYTE # 13 -PORT # 51 -BYTE # 14 -PORT # 51 -BYTE # 15 -PORT # 51 -BYTE # 16 -PORT # 51 -BYTE # 17 -PORT # 51 -BYTE # 18 -PORT # 51 -BYTE # 19 -PORT # 51 -BYTE # 20 -PORT # 51 -BYTE # 21 -PORT # 51 -BYTE # 22 -PORT # 51 -BYTE # 23 -PORT # 51 -BYTE # 24 -PORT # 51 -BYTE # 25 -PORT # 51 -BYTE # 26 -PORT # 51 -BYTE # 27 -PORT # 51 -BYTE # 28 -PORT # 51 -BYTE # 29 -PORT # 51 -BYTE # 30 -PORT # 51 -BYTE # 31 -PORT # 51 -BYTE # 32 -PORT # 51 -BYTE # 33 -PORT # 51 -BYTE # 34 -PORT # 51 -BYTE # 35 -PORT # 51 -BYTE # 36 -PORT # 51 -BYTE # 37 -PORT # 51 -BYTE # 38 -PORT # 51 -BYTE # 39 -PORT # 51 -BYTE # 40 -PORT # 51 -BYTE # 41 -PORT # 51 -BYTE # 42 -PORT # 51 -BYTE # 43 -PORT # 51 -BYTE # 44 -PORT # 51 -BYTE # 45 -PORT # 51 -BYTE # 46 -PORT # 51 -BYTE # 47 -PORT # 51 -BYTE # 48 -PORT # 51 -BYTE # 49 -PORT # 51 -BYTE # 50 -PORT # 51 -BYTE # 51 -PORT # 51 -BYTE # 52 -PORT # 51 -BYTE # 53 -PORT # 51 -BYTE # 54 -PORT # 51 -BYTE # 55 -PORT # 51 -BYTE # 56 -PORT # 51 -BYTE # 57 -PORT # 51 -BYTE # 58 -PORT # 51 -BYTE # 59 -PORT # 51 -BYTE # 60 -PORT # 51 -BYTE # 61 -PORT # 51 -BYTE # 62 -PORT # 51 -BYTE # 63 -PORT # 51 -BYTE # 64 -PORT # 51 -BYTE # 65 -PORT # 51 -BYTE # 66 -PORT # 51 -BYTE # 67 -PORT # 51 -BYTE # 68 -PORT # 51 -BYTE # 69 -PORT # 51 -BYTE # 70 -PORT # 51 -BYTE # 71 -PORT # 51 -BYTE # 72 -PORT # 51 -BYTE # 73 -PORT # 51 -BYTE # 74 -PORT # 51 -BYTE # 75 -PORT # 51 -BYTE # 76 -PORT # 51 -BYTE # 77 -PORT # 51 -BYTE # 78 -PORT # 51 -BYTE # 79 -PORT # 51 -BYTE # 80 -PORT # 51 -BYTE # 81 -PORT # 51 -BYTE # 82 -PORT # 51 -BYTE # 83 -PORT # 51 -BYTE # 84 -PORT # 51 -BYTE # 85 -PORT # 51 -BYTE # 86 -PORT # 51 -BYTE # 87 -PORT # 51 -BYTE # 88 -PORT # 51 -BYTE # 89 -PORT # 51 -BYTE # 90 -PORT # 51 -BYTE # 91 -PORT # 51 -BYTE # 92 -PORT # 51 -BYTE # 93 -PORT # 51 -BYTE # 94 -PORT # 51 -BYTE # 95 -PORT # 51 -BYTE # 96 -PORT # 51 -BYTE # 97 -PORT # 51 -BYTE # 98 -PORT # 51 -BYTE # 99 -PORT # 51 -BYTE # 100 -PORT # 51 -BYTE # 101 -PORT # 51 -BYTE # 102 -PORT # 51 -BYTE # 103 -PORT # 51 -BYTE # 104 -PORT # 51 -BYTE # 105 -PORT # 51 -BYTE # 106 -PORT # 51 -BYTE # 107 -PORT # 51 -BYTE # 108 -PORT # 51 -BYTE # 109 -PORT # 51 -BYTE # 110 -PORT # 51 -BYTE # 111 -PORT # 51 -BYTE # 112 -PORT # 51 -BYTE # 113 -PORT # 51 -BYTE # 114 -PORT # 51 -BYTE # 115 -PORT # 51 -BYTE # 116 -PORT # 51 -BYTE # 117 -PORT # 51 -BYTE # 118 -PORT # 51 -BYTE # 119 -PORT # 51 -BYTE # 120 -PORT # 51 -BYTE # 121 -PORT # 51 -BYTE # 122 -PORT # 51 -BYTE # 123 -PORT # 51 -BYTE # 124 -PORT # 51 -BYTE # 125 -PORT # 51 -BYTE # 126 -PORT # 51 -BYTE # 127 -PORT # 51 -BYTE # 128 -PORT # 51 -BYTE # 129 -PORT # 51 -BYTE # 130 -PORT # 51 -BYTE # 131 -PORT # 51 -BYTE # 132 -PORT # 51 -BYTE # 133 -PORT # 51 -BYTE # 134 -PORT # 51 -BYTE # 135 -PORT # 51 -BYTE # 136 -PORT # 51 -BYTE # 137 -PORT # 51 -BYTE # 138 -PORT # 51 -BYTE # 139 -PORT # 51 -BYTE # 140 -PORT # 51 -BYTE # 141 -PORT # 51 -BYTE # 142 -PORT # 51 -BYTE # 143 -PORT # 51 -BYTE # 144 -PORT # 51 -BYTE # 145 -PORT # 51 -BYTE # 146 -PORT # 51 -BYTE # 147 -PORT # 51 -BYTE # 148 -PORT # 51 -BYTE # 149 -PORT # 51 -BYTE # 150 -PORT # 51 -BYTE # 151 -PORT # 51 -BYTE # 152 -PORT # 51 -BYTE # 153 -PORT # 51 -BYTE # 154 -PORT # 51 -BYTE # 155 -PORT # 51 -BYTE # 156 -PORT # 51 -BYTE # 157 -PORT # 51 -BYTE # 158 -PORT # 51 -BYTE # 159 -PORT # 51 -BYTE # 160 -PORT # 51 -BYTE # 161 -PORT # 51 -BYTE # 162 -PORT # 51 -BYTE # 163 -PORT # 51 -BYTE # 164 -PORT # 51 -BYTE # 165 -PORT # 51 -BYTE # 166 -PORT # 51 -BYTE # 167 -PORT # 51 -BYTE # 168 -PORT # 51 -BYTE # 169 -PORT # 51 -BYTE # 170 -PORT # 51 -BYTE # 171 -PORT # 51 -BYTE # 172 -PORT # 51 -BYTE # 173 -PORT # 51 -BYTE # 174 -PORT # 51 -BYTE # 175 -PORT # 51 -BYTE # 176 -PORT # 51 -BYTE # 177 -PORT # 51 -BYTE # 178 -PORT # 51 -BYTE # 179 -PORT # 51 -BYTE # 180 -PORT # 51 -BYTE # 181 -PORT # 51 -BYTE # 182 -PORT # 51 -BYTE # 183 -PORT # 51 -BYTE # 184 -PORT # 51 -BYTE # 185 -PORT # 51 -BYTE # 186 -PORT # 51 -BYTE # 187 -PORT # 51 -BYTE # 188 -PORT # 51 -BYTE # 189 -PORT # 51 -BYTE # 190 -PORT # 51 -BYTE # 191 -PORT # 51 -BYTE # 192 -PORT # 51 -BYTE # 193 -PORT # 51 -BYTE # 194 -PORT # 51 -BYTE # 195 -PORT # 51 -BYTE # 196 -PORT # 51 -BYTE # 197 -PORT # 51 -BYTE # 198 -PORT # 51 -BYTE # 199 -PORT # 51 -BYTE # 200 -PORT # 51 -BYTE # 201 -PORT # 51 -BYTE # 202 -PORT # 51 -BYTE # 203 -PORT # 51 -BYTE # 204 -PORT # 51 -BYTE # 205 -PORT # 51 -BYTE # 206 -PORT # 51 -BYTE # 207 -PORT # 51 -BYTE # 208 -PORT # 51 -BYTE # 209 -PORT # 51 -BYTE # 210 -PORT # 51 -BYTE # 211 -PORT # 51 -BYTE # 212 -PORT # 51 -BYTE # 213 -PORT # 51 -BYTE # 214 -PORT # 51 -BYTE # 215 -PORT # 51 -BYTE # 216 -PORT # 51 -BYTE # 217 -PORT # 51 -BYTE # 218 -PORT # 51 -BYTE # 219 -PORT # 51 -BYTE # 220 -PORT # 51 -BYTE # 221 -PORT # 51 -BYTE # 222 -PORT # 51 -BYTE # 223 -PORT # 51 -BYTE # 224 -PORT # 51 -BYTE # 225 -PORT # 51 -BYTE # 226 -PORT # 51 -BYTE # 227 -PORT # 51 -BYTE # 228 -PORT # 51 -BYTE # 229 -PORT # 51 -BYTE # 230 -PORT # 51 -BYTE # 231 -PORT # 51 -BYTE # 232 -PORT # 51 -BYTE # 233 -PORT # 51 -BYTE # 234 -PORT # 51 -BYTE # 235 -PORT # 51 -BYTE # 236 -PORT # 51 -BYTE # 237 -PORT # 51 -BYTE # 238 -PORT # 51 -BYTE # 239 -PORT # 51 -BYTE # 240 -PORT # 51 -BYTE # 241 -PORT # 51 -BYTE # 242 -PORT # 51 -BYTE # 243 -PORT # 51 -BYTE # 244 -PORT # 51 -BYTE # 245 -PORT # 51 -BYTE # 246 -PORT # 51 -BYTE # 247 -PORT # 51 -BYTE # 248 -PORT # 51 -BYTE # 249 -PORT # 51 -BYTE # 250 -PORT # 51 -BYTE # 251 -PORT # 51 -BYTE # 252 -PORT # 51 -BYTE # 253 -PORT # 51 -BYTE # 254 -PORT # 51 -BYTE # 255 -PORT # 52 -BYTE # 0 -PORT # 52 -BYTE # 1 -PORT # 52 -BYTE # 2 -PORT # 52 -BYTE # 3 -PORT # 52 -BYTE # 4 -PORT # 52 -BYTE # 5 -PORT # 52 -BYTE # 6 -PORT # 52 -BYTE # 7 -PORT # 52 -BYTE # 8 -PORT # 52 -BYTE # 9 -PORT # 52 -BYTE # 10 -PORT # 52 -BYTE # 11 -PORT # 52 -BYTE # 12 -PORT # 52 -BYTE # 13 -PORT # 52 -BYTE # 14 -PORT # 52 -BYTE # 15 -PORT # 52 -BYTE # 16 -PORT # 52 -BYTE # 17 -PORT # 52 -BYTE # 18 -PORT # 52 -BYTE # 19 -PORT # 52 -BYTE # 20 -PORT # 52 -BYTE # 21 -PORT # 52 -BYTE # 22 -PORT # 52 -BYTE # 23 -PORT # 52 -BYTE # 24 -PORT # 52 -BYTE # 25 -PORT # 52 -BYTE # 26 -PORT # 52 -BYTE # 27 -PORT # 52 -BYTE # 28 -PORT # 52 -BYTE # 29 -PORT # 52 -BYTE # 30 -PORT # 52 -BYTE # 31 -PORT # 52 -BYTE # 32 -PORT # 52 -BYTE # 33 -PORT # 52 -BYTE # 34 -PORT # 52 -BYTE # 35 -PORT # 52 -BYTE # 36 -PORT # 52 -BYTE # 37 -PORT # 52 -BYTE # 38 -PORT # 52 -BYTE # 39 -PORT # 52 -BYTE # 40 -PORT # 52 -BYTE # 41 -PORT # 52 -BYTE # 42 -PORT # 52 -BYTE # 43 -PORT # 52 -BYTE # 44 -PORT # 52 -BYTE # 45 -PORT # 52 -BYTE # 46 -PORT # 52 -BYTE # 47 -PORT # 52 -BYTE # 48 -PORT # 52 -BYTE # 49 -PORT # 52 -BYTE # 50 -PORT # 52 -BYTE # 51 -PORT # 52 -BYTE # 52 -PORT # 52 -BYTE # 53 -PORT # 52 -BYTE # 54 -PORT # 52 -BYTE # 55 -PORT # 52 -BYTE # 56 -PORT # 52 -BYTE # 57 -PORT # 52 -BYTE # 58 -PORT # 52 -BYTE # 59 -PORT # 52 -BYTE # 60 -PORT # 52 -BYTE # 61 -PORT # 52 -BYTE # 62 -PORT # 52 -BYTE # 63 -PORT # 52 -BYTE # 64 -PORT # 52 -BYTE # 65 -PORT # 52 -BYTE # 66 -PORT # 52 -BYTE # 67 -PORT # 52 -BYTE # 68 -PORT # 52 -BYTE # 69 -PORT # 52 -BYTE # 70 -PORT # 52 -BYTE # 71 -PORT # 52 -BYTE # 72 -PORT # 52 -BYTE # 73 -PORT # 52 -BYTE # 74 -PORT # 52 -BYTE # 75 -PORT # 52 -BYTE # 76 -PORT # 52 -BYTE # 77 -PORT # 52 -BYTE # 78 -PORT # 52 -BYTE # 79 -PORT # 52 -BYTE # 80 -PORT # 52 -BYTE # 81 -PORT # 52 -BYTE # 82 -PORT # 52 -BYTE # 83 -PORT # 52 -BYTE # 84 -PORT # 52 -BYTE # 85 -PORT # 52 -BYTE # 86 -PORT # 52 -BYTE # 87 -PORT # 52 -BYTE # 88 -PORT # 52 -BYTE # 89 -PORT # 52 -BYTE # 90 -PORT # 52 -BYTE # 91 -PORT # 52 -BYTE # 92 -PORT # 52 -BYTE # 93 -PORT # 52 -BYTE # 94 -PORT # 52 -BYTE # 95 -PORT # 52 -BYTE # 96 -PORT # 52 -BYTE # 97 -PORT # 52 -BYTE # 98 -PORT # 52 -BYTE # 99 -PORT # 52 -BYTE # 100 -PORT # 52 -BYTE # 101 -PORT # 52 -BYTE # 102 -PORT # 52 -BYTE # 103 -PORT # 52 -BYTE # 104 -PORT # 52 -BYTE # 105 -PORT # 52 -BYTE # 106 -PORT # 52 -BYTE # 107 -PORT # 52 -BYTE # 108 -PORT # 52 -BYTE # 109 -PORT # 52 -BYTE # 110 -PORT # 52 -BYTE # 111 -PORT # 52 -BYTE # 112 -PORT # 52 -BYTE # 113 -PORT # 52 -BYTE # 114 -PORT # 52 -BYTE # 115 -PORT # 52 -BYTE # 116 -PORT # 52 -BYTE # 117 -PORT # 52 -BYTE # 118 -PORT # 52 -BYTE # 119 -PORT # 52 -BYTE # 120 -PORT # 52 -BYTE # 121 -PORT # 52 -BYTE # 122 -PORT # 52 -BYTE # 123 -PORT # 52 -BYTE # 124 -PORT # 52 -BYTE # 125 -PORT # 52 -BYTE # 126 -PORT # 52 -BYTE # 127 -PORT # 52 -BYTE # 128 -PORT # 52 -BYTE # 129 -PORT # 52 -BYTE # 130 -PORT # 52 -BYTE # 131 -PORT # 52 -BYTE # 132 -PORT # 52 -BYTE # 133 -PORT # 52 -BYTE # 134 -PORT # 52 -BYTE # 135 -PORT # 52 -BYTE # 136 -PORT # 52 -BYTE # 137 -PORT # 52 -BYTE # 138 -PORT # 52 -BYTE # 139 -PORT # 52 -BYTE # 140 -PORT # 52 -BYTE # 141 -PORT # 52 -BYTE # 142 -PORT # 52 -BYTE # 143 -PORT # 52 -BYTE # 144 -PORT # 52 -BYTE # 145 -PORT # 52 -BYTE # 146 -PORT # 52 -BYTE # 147 -PORT # 52 -BYTE # 148 -PORT # 52 -BYTE # 149 -PORT # 52 -BYTE # 150 -PORT # 52 -BYTE # 151 -PORT # 52 -BYTE # 152 -PORT # 52 -BYTE # 153 -PORT # 52 -BYTE # 154 -PORT # 52 -BYTE # 155 -PORT # 52 -BYTE # 156 -PORT # 52 -BYTE # 157 -PORT # 52 -BYTE # 158 -PORT # 52 -BYTE # 159 -PORT # 52 -BYTE # 160 -PORT # 52 -BYTE # 161 -PORT # 52 -BYTE # 162 -PORT # 52 -BYTE # 163 -PORT # 52 -BYTE # 164 -PORT # 52 -BYTE # 165 -PORT # 52 -BYTE # 166 -PORT # 52 -BYTE # 167 -PORT # 52 -BYTE # 168 -PORT # 52 -BYTE # 169 -PORT # 52 -BYTE # 170 -PORT # 52 -BYTE # 171 -PORT # 52 -BYTE # 172 -PORT # 52 -BYTE # 173 -PORT # 52 -BYTE # 174 -PORT # 52 -BYTE # 175 -PORT # 52 -BYTE # 176 -PORT # 52 -BYTE # 177 -PORT # 52 -BYTE # 178 -PORT # 52 -BYTE # 179 -PORT # 52 -BYTE # 180 -PORT # 52 -BYTE # 181 -PORT # 52 -BYTE # 182 -PORT # 52 -BYTE # 183 -PORT # 52 -BYTE # 184 -PORT # 52 -BYTE # 185 -PORT # 52 -BYTE # 186 -PORT # 52 -BYTE # 187 -PORT # 52 -BYTE # 188 -PORT # 52 -BYTE # 189 -PORT # 52 -BYTE # 190 -PORT # 52 -BYTE # 191 -PORT # 52 -BYTE # 192 -PORT # 52 -BYTE # 193 -PORT # 52 -BYTE # 194 -PORT # 52 -BYTE # 195 -PORT # 52 -BYTE # 196 -PORT # 52 -BYTE # 197 -PORT # 52 -BYTE # 198 -PORT # 52 -BYTE # 199 -PORT # 52 -BYTE # 200 -PORT # 52 -BYTE # 201 -PORT # 52 -BYTE # 202 -PORT # 52 -BYTE # 203 -PORT # 52 -BYTE # 204 -PORT # 52 -BYTE # 205 -PORT # 52 -BYTE # 206 -PORT # 52 -BYTE # 207 -PORT # 52 -BYTE # 208 -PORT # 52 -BYTE # 209 -PORT # 52 -BYTE # 210 -PORT # 52 -BYTE # 211 -PORT # 52 -BYTE # 212 -PORT # 52 -BYTE # 213 -PORT # 52 -BYTE # 214 -PORT # 52 -BYTE # 215 -PORT # 52 -BYTE # 216 -PORT # 52 -BYTE # 217 -PORT # 52 -BYTE # 218 -PORT # 52 -BYTE # 219 -PORT # 52 -BYTE # 220 -PORT # 52 -BYTE # 221 -PORT # 52 -BYTE # 222 -PORT # 52 -BYTE # 223 -PORT # 52 -BYTE # 224 -PORT # 52 -BYTE # 225 -PORT # 52 -BYTE # 226 -PORT # 52 -BYTE # 227 -PORT # 52 -BYTE # 228 -PORT # 52 -BYTE # 229 -PORT # 52 -BYTE # 230 -PORT # 52 -BYTE # 231 -PORT # 52 -BYTE # 232 -PORT # 52 -BYTE # 233 -PORT # 52 -BYTE # 234 -PORT # 52 -BYTE # 235 -PORT # 52 -BYTE # 236 -PORT # 52 -BYTE # 237 -PORT # 52 -BYTE # 238 -PORT # 52 -BYTE # 239 -PORT # 52 -BYTE # 240 -PORT # 52 -BYTE # 241 -PORT # 52 -BYTE # 242 -PORT # 52 -BYTE # 243 -PORT # 52 -BYTE # 244 -PORT # 52 -BYTE # 245 -PORT # 52 -BYTE # 246 -PORT # 52 -BYTE # 247 -PORT # 52 -BYTE # 248 -PORT # 52 -BYTE # 249 -PORT # 52 -BYTE # 250 -PORT # 52 -BYTE # 251 -PORT # 52 -BYTE # 252 -PORT # 52 -BYTE # 253 -PORT # 52 -BYTE # 254 -PORT # 52 -BYTE # 255 -PORT # 53 -BYTE # 0 -PORT # 53 -BYTE # 1 -PORT # 53 -BYTE # 2 -PORT # 53 -BYTE # 3 -PORT # 53 -BYTE # 4 -PORT # 53 -BYTE # 5 -PORT # 53 -BYTE # 6 -PORT # 53 -BYTE # 7 -PORT # 53 -BYTE # 8 -PORT # 53 -BYTE # 9 -PORT # 53 -BYTE # 10 -PORT # 53 -BYTE # 11 -PORT # 53 -BYTE # 12 -PORT # 53 -BYTE # 13 -PORT # 53 -BYTE # 14 -PORT # 53 -BYTE # 15 -PORT # 53 -BYTE # 16 -PORT # 53 -BYTE # 17 -PORT # 53 -BYTE # 18 -PORT # 53 -BYTE # 19 -PORT # 53 -BYTE # 20 -PORT # 53 -BYTE # 21 -PORT # 53 -BYTE # 22 -PORT # 53 -BYTE # 23 -PORT # 53 -BYTE # 24 -PORT # 53 -BYTE # 25 -PORT # 53 -BYTE # 26 -PORT # 53 -BYTE # 27 -PORT # 53 -BYTE # 28 -PORT # 53 -BYTE # 29 -PORT # 53 -BYTE # 30 -PORT # 53 -BYTE # 31 -PORT # 53 -BYTE # 32 -PORT # 53 -BYTE # 33 -PORT # 53 -BYTE # 34 -PORT # 53 -BYTE # 35 -PORT # 53 -BYTE # 36 -PORT # 53 -BYTE # 37 -PORT # 53 -BYTE # 38 -PORT # 53 -BYTE # 39 -PORT # 53 -BYTE # 40 -PORT # 53 -BYTE # 41 -PORT # 53 -BYTE # 42 -PORT # 53 -BYTE # 43 -PORT # 53 -BYTE # 44 -PORT # 53 -BYTE # 45 -PORT # 53 -BYTE # 46 -PORT # 53 -BYTE # 47 -PORT # 53 -BYTE # 48 -PORT # 53 -BYTE # 49 -PORT # 53 -BYTE # 50 -PORT # 53 -BYTE # 51 -PORT # 53 -BYTE # 52 -PORT # 53 -BYTE # 53 -PORT # 53 -BYTE # 54 -PORT # 53 -BYTE # 55 -PORT # 53 -BYTE # 56 -PORT # 53 -BYTE # 57 -PORT # 53 -BYTE # 58 -PORT # 53 -BYTE # 59 -PORT # 53 -BYTE # 60 -PORT # 53 -BYTE # 61 -PORT # 53 -BYTE # 62 -PORT # 53 -BYTE # 63 -PORT # 53 -BYTE # 64 -PORT # 53 -BYTE # 65 -PORT # 53 -BYTE # 66 -PORT # 53 -BYTE # 67 -PORT # 53 -BYTE # 68 -PORT # 53 -BYTE # 69 -PORT # 53 -BYTE # 70 -PORT # 53 -BYTE # 71 -PORT # 53 -BYTE # 72 -PORT # 53 -BYTE # 73 -PORT # 53 -BYTE # 74 -PORT # 53 -BYTE # 75 -PORT # 53 -BYTE # 76 -PORT # 53 -BYTE # 77 -PORT # 53 -BYTE # 78 -PORT # 53 -BYTE # 79 -PORT # 53 -BYTE # 80 -PORT # 53 -BYTE # 81 -PORT # 53 -BYTE # 82 -PORT # 53 -BYTE # 83 -PORT # 53 -BYTE # 84 -PORT # 53 -BYTE # 85 -PORT # 53 -BYTE # 86 -PORT # 53 -BYTE # 87 -PORT # 53 -BYTE # 88 -PORT # 53 -BYTE # 89 -PORT # 53 -BYTE # 90 -PORT # 53 -BYTE # 91 -PORT # 53 -BYTE # 92 -PORT # 53 -BYTE # 93 -PORT # 53 -BYTE # 94 -PORT # 53 -BYTE # 95 -PORT # 53 -BYTE # 96 -PORT # 53 -BYTE # 97 -PORT # 53 -BYTE # 98 -PORT # 53 -BYTE # 99 -PORT # 53 -BYTE # 100 -PORT # 53 -BYTE # 101 -PORT # 53 -BYTE # 102 -PORT # 53 -BYTE # 103 -PORT # 53 -BYTE # 104 -PORT # 53 -BYTE # 105 -PORT # 53 -BYTE # 106 -PORT # 53 -BYTE # 107 -PORT # 53 -BYTE # 108 -PORT # 53 -BYTE # 109 -PORT # 53 -BYTE # 110 -PORT # 53 -BYTE # 111 -PORT # 53 -BYTE # 112 -PORT # 53 -BYTE # 113 -PORT # 53 -BYTE # 114 -PORT # 53 -BYTE # 115 -PORT # 53 -BYTE # 116 -PORT # 53 -BYTE # 117 -PORT # 53 -BYTE # 118 -PORT # 53 -BYTE # 119 -PORT # 53 -BYTE # 120 -PORT # 53 -BYTE # 121 -PORT # 53 -BYTE # 122 -PORT # 53 -BYTE # 123 -PORT # 53 -BYTE # 124 -PORT # 53 -BYTE # 125 -PORT # 53 -BYTE # 126 -PORT # 53 -BYTE # 127 -PORT # 53 -BYTE # 128 -PORT # 53 -BYTE # 129 -PORT # 53 -BYTE # 130 -PORT # 53 -BYTE # 131 -PORT # 53 -BYTE # 132 -PORT # 53 -BYTE # 133 -PORT # 53 -BYTE # 134 -PORT # 53 -BYTE # 135 -PORT # 53 -BYTE # 136 -PORT # 53 -BYTE # 137 -PORT # 53 -BYTE # 138 -PORT # 53 -BYTE # 139 -PORT # 53 -BYTE # 140 -PORT # 53 -BYTE # 141 -PORT # 53 -BYTE # 142 -PORT # 53 -BYTE # 143 -PORT # 53 -BYTE # 144 -PORT # 53 -BYTE # 145 -PORT # 53 -BYTE # 146 -PORT # 53 -BYTE # 147 -PORT # 53 -BYTE # 148 -PORT # 53 -BYTE # 149 -PORT # 53 -BYTE # 150 -PORT # 53 -BYTE # 151 -PORT # 53 -BYTE # 152 -PORT # 53 -BYTE # 153 -PORT # 53 -BYTE # 154 -PORT # 53 -BYTE # 155 -PORT # 53 -BYTE # 156 -PORT # 53 -BYTE # 157 -PORT # 53 -BYTE # 158 -PORT # 53 -BYTE # 159 -PORT # 53 -BYTE # 160 -PORT # 53 -BYTE # 161 -PORT # 53 -BYTE # 162 -PORT # 53 -BYTE # 163 -PORT # 53 -BYTE # 164 -PORT # 53 -BYTE # 165 -PORT # 53 -BYTE # 166 -PORT # 53 -BYTE # 167 -PORT # 53 -BYTE # 168 -PORT # 53 -BYTE # 169 -PORT # 53 -BYTE # 170 -PORT # 53 -BYTE # 171 -PORT # 53 -BYTE # 172 -PORT # 53 -BYTE # 173 -PORT # 53 -BYTE # 174 -PORT # 53 -BYTE # 175 -PORT # 53 -BYTE # 176 -PORT # 53 -BYTE # 177 -PORT # 53 -BYTE # 178 -PORT # 53 -BYTE # 179 -PORT # 53 -BYTE # 180 -PORT # 53 -BYTE # 181 -PORT # 53 -BYTE # 182 -PORT # 53 -BYTE # 183 -PORT # 53 -BYTE # 184 -PORT # 53 -BYTE # 185 -PORT # 53 -BYTE # 186 -PORT # 53 -BYTE # 187 -PORT # 53 -BYTE # 188 -PORT # 53 -BYTE # 189 -PORT # 53 -BYTE # 190 -PORT # 53 -BYTE # 191 -PORT # 53 -BYTE # 192 -PORT # 53 -BYTE # 193 -PORT # 53 -BYTE # 194 -PORT # 53 -BYTE # 195 -PORT # 53 -BYTE # 196 -PORT # 53 -BYTE # 197 -PORT # 53 -BYTE # 198 -PORT # 53 -BYTE # 199 -PORT # 53 -BYTE # 200 -PORT # 53 -BYTE # 201 -PORT # 53 -BYTE # 202 -PORT # 53 -BYTE # 203 -PORT # 53 -BYTE # 204 -PORT # 53 -BYTE # 205 -PORT # 53 -BYTE # 206 -PORT # 53 -BYTE # 207 -PORT # 53 -BYTE # 208 -PORT # 53 -BYTE # 209 -PORT # 53 -BYTE # 210 -PORT # 53 -BYTE # 211 -PORT # 53 -BYTE # 212 -PORT # 53 -BYTE # 213 -PORT # 53 -BYTE # 214 -PORT # 53 -BYTE # 215 -PORT # 53 -BYTE # 216 -PORT # 53 -BYTE # 217 -PORT # 53 -BYTE # 218 -PORT # 53 -BYTE # 219 -PORT # 53 -BYTE # 220 -PORT # 53 -BYTE # 221 -PORT # 53 -BYTE # 222 -PORT # 53 -BYTE # 223 -PORT # 53 -BYTE # 224 -PORT # 53 -BYTE # 225 -PORT # 53 -BYTE # 226 -PORT # 53 -BYTE # 227 -PORT # 53 -BYTE # 228 -PORT # 53 -BYTE # 229 -PORT # 53 -BYTE # 230 -PORT # 53 -BYTE # 231 -PORT # 53 -BYTE # 232 -PORT # 53 -BYTE # 233 -PORT # 53 -BYTE # 234 -PORT # 53 -BYTE # 235 -PORT # 53 -BYTE # 236 -PORT # 53 -BYTE # 237 -PORT # 53 -BYTE # 238 -PORT # 53 -BYTE # 239 -PORT # 53 -BYTE # 240 -PORT # 53 -BYTE # 241 -PORT # 53 -BYTE # 242 -PORT # 53 -BYTE # 243 -PORT # 53 -BYTE # 244 -PORT # 53 -BYTE # 245 -PORT # 53 -BYTE # 246 -PORT # 53 -BYTE # 247 -PORT # 53 -BYTE # 248 -PORT # 53 -BYTE # 249 -PORT # 53 -BYTE # 250 -PORT # 53 -BYTE # 251 -PORT # 53 -BYTE # 252 -PORT # 53 -BYTE # 253 -PORT # 53 -BYTE # 254 -PORT # 53 -BYTE # 255 -PORT # 54 -BYTE # 0 -PORT # 54 -BYTE # 1 -PORT # 54 -BYTE # 2 -PORT # 54 -BYTE # 3 -PORT # 54 -BYTE # 4 -PORT # 54 -BYTE # 5 -PORT # 54 -BYTE # 6 -PORT # 54 -BYTE # 7 -PORT # 54 -BYTE # 8 -PORT # 54 -BYTE # 9 -PORT # 54 -BYTE # 10 -PORT # 54 -BYTE # 11 -PORT # 54 -BYTE # 12 -PORT # 54 -BYTE # 13 -PORT # 54 -BYTE # 14 -PORT # 54 -BYTE # 15 -PORT # 54 -BYTE # 16 -PORT # 54 -BYTE # 17 -PORT # 54 -BYTE # 18 -PORT # 54 -BYTE # 19 -PORT # 54 -BYTE # 20 -PORT # 54 -BYTE # 21 -PORT # 54 -BYTE # 22 -PORT # 54 -BYTE # 23 -PORT # 54 -BYTE # 24 -PORT # 54 -BYTE # 25 -PORT # 54 -BYTE # 26 -PORT # 54 -BYTE # 27 -PORT # 54 -BYTE # 28 -PORT # 54 -BYTE # 29 -PORT # 54 -BYTE # 30 -PORT # 54 -BYTE # 31 -PORT # 54 -BYTE # 32 -PORT # 54 -BYTE # 33 -PORT # 54 -BYTE # 34 -PORT # 54 -BYTE # 35 -PORT # 54 -BYTE # 36 -PORT # 54 -BYTE # 37 -PORT # 54 -BYTE # 38 -PORT # 54 -BYTE # 39 -PORT # 54 -BYTE # 40 -PORT # 54 -BYTE # 41 -PORT # 54 -BYTE # 42 -PORT # 54 -BYTE # 43 -PORT # 54 -BYTE # 44 -PORT # 54 -BYTE # 45 -PORT # 54 -BYTE # 46 -PORT # 54 -BYTE # 47 -PORT # 54 -BYTE # 48 -PORT # 54 -BYTE # 49 -PORT # 54 -BYTE # 50 -PORT # 54 -BYTE # 51 -PORT # 54 -BYTE # 52 -PORT # 54 -BYTE # 53 -PORT # 54 -BYTE # 54 -PORT # 54 -BYTE # 55 -PORT # 54 -BYTE # 56 -PORT # 54 -BYTE # 57 -PORT # 54 -BYTE # 58 -PORT # 54 -BYTE # 59 -PORT # 54 -BYTE # 60 -PORT # 54 -BYTE # 61 -PORT # 54 -BYTE # 62 -PORT # 54 -BYTE # 63 -PORT # 54 -BYTE # 64 -PORT # 54 -BYTE # 65 -PORT # 54 -BYTE # 66 -PORT # 54 -BYTE # 67 -PORT # 54 -BYTE # 68 -PORT # 54 -BYTE # 69 -PORT # 54 -BYTE # 70 -PORT # 54 -BYTE # 71 -PORT # 54 -BYTE # 72 -PORT # 54 -BYTE # 73 -PORT # 54 -BYTE # 74 -PORT # 54 -BYTE # 75 -PORT # 54 -BYTE # 76 -PORT # 54 -BYTE # 77 -PORT # 54 -BYTE # 78 -PORT # 54 -BYTE # 79 -PORT # 54 -BYTE # 80 -PORT # 54 -BYTE # 81 -PORT # 54 -BYTE # 82 -PORT # 54 -BYTE # 83 -PORT # 54 -BYTE # 84 -PORT # 54 -BYTE # 85 -PORT # 54 -BYTE # 86 -PORT # 54 -BYTE # 87 -PORT # 54 -BYTE # 88 -PORT # 54 -BYTE # 89 -PORT # 54 -BYTE # 90 -PORT # 54 -BYTE # 91 -PORT # 54 -BYTE # 92 -PORT # 54 -BYTE # 93 -PORT # 54 -BYTE # 94 -PORT # 54 -BYTE # 95 -PORT # 54 -BYTE # 96 -PORT # 54 -BYTE # 97 -PORT # 54 -BYTE # 98 -PORT # 54 -BYTE # 99 -PORT # 54 -BYTE # 100 -PORT # 54 -BYTE # 101 -PORT # 54 -BYTE # 102 -PORT # 54 -BYTE # 103 -PORT # 54 -BYTE # 104 -PORT # 54 -BYTE # 105 -PORT # 54 -BYTE # 106 -PORT # 54 -BYTE # 107 -PORT # 54 -BYTE # 108 -PORT # 54 -BYTE # 109 -PORT # 54 -BYTE # 110 -PORT # 54 -BYTE # 111 -PORT # 54 -BYTE # 112 -PORT # 54 -BYTE # 113 -PORT # 54 -BYTE # 114 -PORT # 54 -BYTE # 115 -PORT # 54 -BYTE # 116 -PORT # 54 -BYTE # 117 -PORT # 54 -BYTE # 118 -PORT # 54 -BYTE # 119 -PORT # 54 -BYTE # 120 -PORT # 54 -BYTE # 121 -PORT # 54 -BYTE # 122 -PORT # 54 -BYTE # 123 -PORT # 54 -BYTE # 124 -PORT # 54 -BYTE # 125 -PORT # 54 -BYTE # 126 -PORT # 54 -BYTE # 127 -PORT # 54 -BYTE # 128 -PORT # 54 -BYTE # 129 -PORT # 54 -BYTE # 130 -PORT # 54 -BYTE # 131 -PORT # 54 -BYTE # 132 -PORT # 54 -BYTE # 133 -PORT # 54 -BYTE # 134 -PORT # 54 -BYTE # 135 -PORT # 54 -BYTE # 136 -PORT # 54 -BYTE # 137 -PORT # 54 -BYTE # 138 -PORT # 54 -BYTE # 139 -PORT # 54 -BYTE # 140 -PORT # 54 -BYTE # 141 -PORT # 54 -BYTE # 142 -PORT # 54 -BYTE # 143 -PORT # 54 -BYTE # 144 -PORT # 54 -BYTE # 145 -PORT # 54 -BYTE # 146 -PORT # 54 -BYTE # 147 -PORT # 54 -BYTE # 148 -PORT # 54 -BYTE # 149 -PORT # 54 -BYTE # 150 -PORT # 54 -BYTE # 151 -PORT # 54 -BYTE # 152 -PORT # 54 -BYTE # 153 -PORT # 54 -BYTE # 154 -PORT # 54 -BYTE # 155 -PORT # 54 -BYTE # 156 -PORT # 54 -BYTE # 157 -PORT # 54 -BYTE # 158 -PORT # 54 -BYTE # 159 -PORT # 54 -BYTE # 160 -PORT # 54 -BYTE # 161 -PORT # 54 -BYTE # 162 -PORT # 54 -BYTE # 163 -PORT # 54 -BYTE # 164 -PORT # 54 -BYTE # 165 -PORT # 54 -BYTE # 166 -PORT # 54 -BYTE # 167 -PORT # 54 -BYTE # 168 -PORT # 54 -BYTE # 169 -PORT # 54 -BYTE # 170 -PORT # 54 -BYTE # 171 -PORT # 54 -BYTE # 172 -PORT # 54 -BYTE # 173 -PORT # 54 -BYTE # 174 -PORT # 54 -BYTE # 175 -PORT # 54 -BYTE # 176 -PORT # 54 -BYTE # 177 -PORT # 54 -BYTE # 178 -PORT # 54 -BYTE # 179 -PORT # 54 -BYTE # 180 -PORT # 54 -BYTE # 181 -PORT # 54 -BYTE # 182 -PORT # 54 -BYTE # 183 -PORT # 54 -BYTE # 184 -PORT # 54 -BYTE # 185 -PORT # 54 -BYTE # 186 -PORT # 54 -BYTE # 187 -PORT # 54 -BYTE # 188 -PORT # 54 -BYTE # 189 -PORT # 54 -BYTE # 190 -PORT # 54 -BYTE # 191 -PORT # 54 -BYTE # 192 -PORT # 54 -BYTE # 193 -PORT # 54 -BYTE # 194 -PORT # 54 -BYTE # 195 -PORT # 54 -BYTE # 196 -PORT # 54 -BYTE # 197 -PORT # 54 -BYTE # 198 -PORT # 54 -BYTE # 199 -PORT # 54 -BYTE # 200 -PORT # 54 -BYTE # 201 -PORT # 54 -BYTE # 202 -PORT # 54 -BYTE # 203 -PORT # 54 -BYTE # 204 -PORT # 54 -BYTE # 205 -PORT # 54 -BYTE # 206 -PORT # 54 -BYTE # 207 -PORT # 54 -BYTE # 208 -PORT # 54 -BYTE # 209 -PORT # 54 -BYTE # 210 -PORT # 54 -BYTE # 211 -PORT # 54 -BYTE # 212 -PORT # 54 -BYTE # 213 -PORT # 54 -BYTE # 214 -PORT # 54 -BYTE # 215 -PORT # 54 -BYTE # 216 -PORT # 54 -BYTE # 217 -PORT # 54 -BYTE # 218 -PORT # 54 -BYTE # 219 -PORT # 54 -BYTE # 220 -PORT # 54 -BYTE # 221 -PORT # 54 -BYTE # 222 -PORT # 54 -BYTE # 223 -PORT # 54 -BYTE # 224 -PORT # 54 -BYTE # 225 -PORT # 54 -BYTE # 226 -PORT # 54 -BYTE # 227 -PORT # 54 -BYTE # 228 -PORT # 54 -BYTE # 229 -PORT # 54 -BYTE # 230 -PORT # 54 -BYTE # 231 -PORT # 54 -BYTE # 232 -PORT # 54 -BYTE # 233 -PORT # 54 -BYTE # 234 -PORT # 54 -BYTE # 235 -PORT # 54 -BYTE # 236 -PORT # 54 -BYTE # 237 -PORT # 54 -BYTE # 238 -PORT # 54 -BYTE # 239 -PORT # 54 -BYTE # 240 -PORT # 54 -BYTE # 241 -PORT # 54 -BYTE # 242 -PORT # 54 -BYTE # 243 -PORT # 54 -BYTE # 244 -PORT # 54 -BYTE # 245 -PORT # 54 -BYTE # 246 -PORT # 54 -BYTE # 247 -PORT # 54 -BYTE # 248 -PORT # 54 -BYTE # 249 -PORT # 54 -BYTE # 250 -PORT # 54 -BYTE # 251 -PORT # 54 -BYTE # 252 -PORT # 54 -BYTE # 253 -PORT # 54 -BYTE # 254 -PORT # 54 -BYTE # 255 -PORT # 55 -BYTE # 0 -PORT # 55 -BYTE # 1 -PORT # 55 -BYTE # 2 -PORT # 55 -BYTE # 3 -PORT # 55 -BYTE # 4 -PORT # 55 -BYTE # 5 -PORT # 55 -BYTE # 6 -PORT # 55 -BYTE # 7 -PORT # 55 -BYTE # 8 -PORT # 55 -BYTE # 9 -PORT # 55 -BYTE # 10 -PORT # 55 -BYTE # 11 -PORT # 55 -BYTE # 12 -PORT # 55 -BYTE # 13 -PORT # 55 -BYTE # 14 -PORT # 55 -BYTE # 15 -PORT # 55 -BYTE # 16 -PORT # 55 -BYTE # 17 -PORT # 55 -BYTE # 18 -PORT # 55 -BYTE # 19 -PORT # 55 -BYTE # 20 -PORT # 55 -BYTE # 21 -PORT # 55 -BYTE # 22 -PORT # 55 -BYTE # 23 -PORT # 55 -BYTE # 24 -PORT # 55 -BYTE # 25 -PORT # 55 -BYTE # 26 -PORT # 55 -BYTE # 27 -PORT # 55 -BYTE # 28 -PORT # 55 -BYTE # 29 -PORT # 55 -BYTE # 30 -PORT # 55 -BYTE # 31 -PORT # 55 -BYTE # 32 -PORT # 55 -BYTE # 33 -PORT # 55 -BYTE # 34 -PORT # 55 -BYTE # 35 -PORT # 55 -BYTE # 36 -PORT # 55 -BYTE # 37 -PORT # 55 -BYTE # 38 -PORT # 55 -BYTE # 39 -PORT # 55 -BYTE # 40 -PORT # 55 -BYTE # 41 -PORT # 55 -BYTE # 42 -PORT # 55 -BYTE # 43 -PORT # 55 -BYTE # 44 -PORT # 55 -BYTE # 45 -PORT # 55 -BYTE # 46 -PORT # 55 -BYTE # 47 -PORT # 55 -BYTE # 48 -PORT # 55 -BYTE # 49 -PORT # 55 -BYTE # 50 -PORT # 55 -BYTE # 51 -PORT # 55 -BYTE # 52 -PORT # 55 -BYTE # 53 -PORT # 55 -BYTE # 54 -PORT # 55 -BYTE # 55 -PORT # 55 -BYTE # 56 -PORT # 55 -BYTE # 57 -PORT # 55 -BYTE # 58 -PORT # 55 -BYTE # 59 -PORT # 55 -BYTE # 60 -PORT # 55 -BYTE # 61 -PORT # 55 -BYTE # 62 -PORT # 55 -BYTE # 63 -PORT # 55 -BYTE # 64 -PORT # 55 -BYTE # 65 -PORT # 55 -BYTE # 66 -PORT # 55 -BYTE # 67 -PORT # 55 -BYTE # 68 -PORT # 55 -BYTE # 69 -PORT # 55 -BYTE # 70 -PORT # 55 -BYTE # 71 -PORT # 55 -BYTE # 72 -PORT # 55 -BYTE # 73 -PORT # 55 -BYTE # 74 -PORT # 55 -BYTE # 75 -PORT # 55 -BYTE # 76 -PORT # 55 -BYTE # 77 -PORT # 55 -BYTE # 78 -PORT # 55 -BYTE # 79 -PORT # 55 -BYTE # 80 -PORT # 55 -BYTE # 81 -PORT # 55 -BYTE # 82 -PORT # 55 -BYTE # 83 -PORT # 55 -BYTE # 84 -PORT # 55 -BYTE # 85 -PORT # 55 -BYTE # 86 -PORT # 55 -BYTE # 87 -PORT # 55 -BYTE # 88 -PORT # 55 -BYTE # 89 -PORT # 55 -BYTE # 90 -PORT # 55 -BYTE # 91 -PORT # 55 -BYTE # 92 -PORT # 55 -BYTE # 93 -PORT # 55 -BYTE # 94 -PORT # 55 -BYTE # 95 -PORT # 55 -BYTE # 96 -PORT # 55 -BYTE # 97 -PORT # 55 -BYTE # 98 -PORT # 55 -BYTE # 99 -PORT # 55 -BYTE # 100 -PORT # 55 -BYTE # 101 -PORT # 55 -BYTE # 102 -PORT # 55 -BYTE # 103 -PORT # 55 -BYTE # 104 -PORT # 55 -BYTE # 105 -PORT # 55 -BYTE # 106 -PORT # 55 -BYTE # 107 -PORT # 55 -BYTE # 108 -PORT # 55 -BYTE # 109 -PORT # 55 -BYTE # 110 -PORT # 55 -BYTE # 111 -PORT # 55 -BYTE # 112 -PORT # 55 -BYTE # 113 -PORT # 55 -BYTE # 114 -PORT # 55 -BYTE # 115 -PORT # 55 -BYTE # 116 -PORT # 55 -BYTE # 117 -PORT # 55 -BYTE # 118 -PORT # 55 -BYTE # 119 -PORT # 55 -BYTE # 120 -PORT # 55 -BYTE # 121 -PORT # 55 -BYTE # 122 -PORT # 55 -BYTE # 123 -PORT # 55 -BYTE # 124 -PORT # 55 -BYTE # 125 -PORT # 55 -BYTE # 126 -PORT # 55 -BYTE # 127 -PORT # 55 -BYTE # 128 -PORT # 55 -BYTE # 129 -PORT # 55 -BYTE # 130 -PORT # 55 -BYTE # 131 -PORT # 55 -BYTE # 132 -PORT # 55 -BYTE # 133 -PORT # 55 -BYTE # 134 -PORT # 55 -BYTE # 135 -PORT # 55 -BYTE # 136 -PORT # 55 -BYTE # 137 -PORT # 55 -BYTE # 138 -PORT # 55 -BYTE # 139 -PORT # 55 -BYTE # 140 -PORT # 55 -BYTE # 141 -PORT # 55 -BYTE # 142 -PORT # 55 -BYTE # 143 -PORT # 55 -BYTE # 144 -PORT # 55 -BYTE # 145 -PORT # 55 -BYTE # 146 -PORT # 55 -BYTE # 147 -PORT # 55 -BYTE # 148 -PORT # 55 -BYTE # 149 -PORT # 55 -BYTE # 150 -PORT # 55 -BYTE # 151 -PORT # 55 -BYTE # 152 -PORT # 55 -BYTE # 153 -PORT # 55 -BYTE # 154 -PORT # 55 -BYTE # 155 -PORT # 55 -BYTE # 156 -PORT # 55 -BYTE # 157 -PORT # 55 -BYTE # 158 -PORT # 55 -BYTE # 159 -PORT # 55 -BYTE # 160 -PORT # 55 -BYTE # 161 -PORT # 55 -BYTE # 162 -PORT # 55 -BYTE # 163 -PORT # 55 -BYTE # 164 -PORT # 55 -BYTE # 165 -PORT # 55 -BYTE # 166 -PORT # 55 -BYTE # 167 -PORT # 55 -BYTE # 168 -PORT # 55 -BYTE # 169 -PORT # 55 -BYTE # 170 -PORT # 55 -BYTE # 171 -PORT # 55 -BYTE # 172 -PORT # 55 -BYTE # 173 -PORT # 55 -BYTE # 174 -PORT # 55 -BYTE # 175 -PORT # 55 -BYTE # 176 -PORT # 55 -BYTE # 177 -PORT # 55 -BYTE # 178 -PORT # 55 -BYTE # 179 -PORT # 55 -BYTE # 180 -PORT # 55 -BYTE # 181 -PORT # 55 -BYTE # 182 -PORT # 55 -BYTE # 183 -PORT # 55 -BYTE # 184 -PORT # 55 -BYTE # 185 -PORT # 55 -BYTE # 186 -PORT # 55 -BYTE # 187 -PORT # 55 -BYTE # 188 -PORT # 55 -BYTE # 189 -PORT # 55 -BYTE # 190 -PORT # 55 -BYTE # 191 -PORT # 55 -BYTE # 192 -PORT # 55 -BYTE # 193 -PORT # 55 -BYTE # 194 -PORT # 55 -BYTE # 195 -PORT # 55 -BYTE # 196 -PORT # 55 -BYTE # 197 -PORT # 55 -BYTE # 198 -PORT # 55 -BYTE # 199 -PORT # 55 -BYTE # 200 -PORT # 55 -BYTE # 201 -PORT # 55 -BYTE # 202 -PORT # 55 -BYTE # 203 -PORT # 55 -BYTE # 204 -PORT # 55 -BYTE # 205 -PORT # 55 -BYTE # 206 -PORT # 55 -BYTE # 207 -PORT # 55 -BYTE # 208 -PORT # 55 -BYTE # 209 -PORT # 55 -BYTE # 210 -PORT # 55 -BYTE # 211 -PORT # 55 -BYTE # 212 -PORT # 55 -BYTE # 213 -PORT # 55 -BYTE # 214 -PORT # 55 -BYTE # 215 -PORT # 55 -BYTE # 216 -PORT # 55 -BYTE # 217 -PORT # 55 -BYTE # 218 -PORT # 55 -BYTE # 219 -PORT # 55 -BYTE # 220 -PORT # 55 -BYTE # 221 -PORT # 55 -BYTE # 222 -PORT # 55 -BYTE # 223 -PORT # 55 -BYTE # 224 -PORT # 55 -BYTE # 225 -PORT # 55 -BYTE # 226 -PORT # 55 -BYTE # 227 -PORT # 55 -BYTE # 228 -PORT # 55 -BYTE # 229 -PORT # 55 -BYTE # 230 -PORT # 55 -BYTE # 231 -PORT # 55 -BYTE # 232 -PORT # 55 -BYTE # 233 -PORT # 55 -BYTE # 234 -PORT # 55 -BYTE # 235 -PORT # 55 -BYTE # 236 -PORT # 55 -BYTE # 237 -PORT # 55 -BYTE # 238 -PORT # 55 -BYTE # 239 -PORT # 55 -BYTE # 240 -PORT # 55 -BYTE # 241 -PORT # 55 -BYTE # 242 -PORT # 55 -BYTE # 243 -PORT # 55 -BYTE # 244 -PORT # 55 -BYTE # 245 -PORT # 55 -BYTE # 246 -PORT # 55 -BYTE # 247 -PORT # 55 -BYTE # 248 -PORT # 55 -BYTE # 249 -PORT # 55 -BYTE # 250 -PORT # 55 -BYTE # 251 -PORT # 55 -BYTE # 252 -PORT # 55 -BYTE # 253 -PORT # 55 -BYTE # 254 -PORT # 55 -BYTE # 255 -PORT # 56 -BYTE # 0 -PORT # 56 -BYTE # 1 -PORT # 56 -BYTE # 2 -PORT # 56 -BYTE # 3 -PORT # 56 -BYTE # 4 -PORT # 56 -BYTE # 5 -PORT # 56 -BYTE # 6 -PORT # 56 -BYTE # 7 -PORT # 56 -BYTE # 8 -PORT # 56 -BYTE # 9 -PORT # 56 -BYTE # 10 -PORT # 56 -BYTE # 11 -PORT # 56 -BYTE # 12 -PORT # 56 -BYTE # 13 -PORT # 56 -BYTE # 14 -PORT # 56 -BYTE # 15 -PORT # 56 -BYTE # 16 -PORT # 56 -BYTE # 17 -PORT # 56 -BYTE # 18 -PORT # 56 -BYTE # 19 -PORT # 56 -BYTE # 20 -PORT # 56 -BYTE # 21 -PORT # 56 -BYTE # 22 -PORT # 56 -BYTE # 23 -PORT # 56 -BYTE # 24 -PORT # 56 -BYTE # 25 -PORT # 56 -BYTE # 26 -PORT # 56 -BYTE # 27 -PORT # 56 -BYTE # 28 -PORT # 56 -BYTE # 29 -PORT # 56 -BYTE # 30 -PORT # 56 -BYTE # 31 -PORT # 56 -BYTE # 32 -PORT # 56 -BYTE # 33 -PORT # 56 -BYTE # 34 -PORT # 56 -BYTE # 35 -PORT # 56 -BYTE # 36 -PORT # 56 -BYTE # 37 -PORT # 56 -BYTE # 38 -PORT # 56 -BYTE # 39 -PORT # 56 -BYTE # 40 -PORT # 56 -BYTE # 41 -PORT # 56 -BYTE # 42 -PORT # 56 -BYTE # 43 -PORT # 56 -BYTE # 44 -PORT # 56 -BYTE # 45 -PORT # 56 -BYTE # 46 -PORT # 56 -BYTE # 47 -PORT # 56 -BYTE # 48 -PORT # 56 -BYTE # 49 -PORT # 56 -BYTE # 50 -PORT # 56 -BYTE # 51 -PORT # 56 -BYTE # 52 -PORT # 56 -BYTE # 53 -PORT # 56 -BYTE # 54 -PORT # 56 -BYTE # 55 -PORT # 56 -BYTE # 56 -PORT # 56 -BYTE # 57 -PORT # 56 -BYTE # 58 -PORT # 56 -BYTE # 59 -PORT # 56 -BYTE # 60 -PORT # 56 -BYTE # 61 -PORT # 56 -BYTE # 62 -PORT # 56 -BYTE # 63 -PORT # 56 -BYTE # 64 -PORT # 56 -BYTE # 65 -PORT # 56 -BYTE # 66 -PORT # 56 -BYTE # 67 -PORT # 56 -BYTE # 68 -PORT # 56 -BYTE # 69 -PORT # 56 -BYTE # 70 -PORT # 56 -BYTE # 71 -PORT # 56 -BYTE # 72 -PORT # 56 -BYTE # 73 -PORT # 56 -BYTE # 74 -PORT # 56 -BYTE # 75 -PORT # 56 -BYTE # 76 -PORT # 56 -BYTE # 77 -PORT # 56 -BYTE # 78 -PORT # 56 -BYTE # 79 -PORT # 56 -BYTE # 80 -PORT # 56 -BYTE # 81 -PORT # 56 -BYTE # 82 -PORT # 56 -BYTE # 83 -PORT # 56 -BYTE # 84 -PORT # 56 -BYTE # 85 -PORT # 56 -BYTE # 86 -PORT # 56 -BYTE # 87 -PORT # 56 -BYTE # 88 -PORT # 56 -BYTE # 89 -PORT # 56 -BYTE # 90 -PORT # 56 -BYTE # 91 -PORT # 56 -BYTE # 92 -PORT # 56 -BYTE # 93 -PORT # 56 -BYTE # 94 -PORT # 56 -BYTE # 95 -PORT # 56 -BYTE # 96 -PORT # 56 -BYTE # 97 -PORT # 56 -BYTE # 98 -PORT # 56 -BYTE # 99 -PORT # 56 -BYTE # 100 -PORT # 56 -BYTE # 101 -PORT # 56 -BYTE # 102 -PORT # 56 -BYTE # 103 -PORT # 56 -BYTE # 104 -PORT # 56 -BYTE # 105 -PORT # 56 -BYTE # 106 -PORT # 56 -BYTE # 107 -PORT # 56 -BYTE # 108 -PORT # 56 -BYTE # 109 -PORT # 56 -BYTE # 110 -PORT # 56 -BYTE # 111 -PORT # 56 -BYTE # 112 -PORT # 56 -BYTE # 113 -PORT # 56 -BYTE # 114 -PORT # 56 -BYTE # 115 -PORT # 56 -BYTE # 116 -PORT # 56 -BYTE # 117 -PORT # 56 -BYTE # 118 -PORT # 56 -BYTE # 119 -PORT # 56 -BYTE # 120 -PORT # 56 -BYTE # 121 -PORT # 56 -BYTE # 122 -PORT # 56 -BYTE # 123 -PORT # 56 -BYTE # 124 -PORT # 56 -BYTE # 125 -PORT # 56 -BYTE # 126 -PORT # 56 -BYTE # 127 -PORT # 56 -BYTE # 128 -PORT # 56 -BYTE # 129 -PORT # 56 -BYTE # 130 -PORT # 56 -BYTE # 131 -PORT # 56 -BYTE # 132 -PORT # 56 -BYTE # 133 -PORT # 56 -BYTE # 134 -PORT # 56 -BYTE # 135 -PORT # 56 -BYTE # 136 -PORT # 56 -BYTE # 137 -PORT # 56 -BYTE # 138 -PORT # 56 -BYTE # 139 -PORT # 56 -BYTE # 140 -PORT # 56 -BYTE # 141 -PORT # 56 -BYTE # 142 -PORT # 56 -BYTE # 143 -PORT # 56 -BYTE # 144 -PORT # 56 -BYTE # 145 -PORT # 56 -BYTE # 146 -PORT # 56 -BYTE # 147 -PORT # 56 -BYTE # 148 -PORT # 56 -BYTE # 149 -PORT # 56 -BYTE # 150 -PORT # 56 -BYTE # 151 -PORT # 56 -BYTE # 152 -PORT # 56 -BYTE # 153 -PORT # 56 -BYTE # 154 -PORT # 56 -BYTE # 155 -PORT # 56 -BYTE # 156 -PORT # 56 -BYTE # 157 -PORT # 56 -BYTE # 158 -PORT # 56 -BYTE # 159 -PORT # 56 -BYTE # 160 -PORT # 56 -BYTE # 161 -PORT # 56 -BYTE # 162 -PORT # 56 -BYTE # 163 -PORT # 56 -BYTE # 164 -PORT # 56 -BYTE # 165 -PORT # 56 -BYTE # 166 -PORT # 56 -BYTE # 167 -PORT # 56 -BYTE # 168 -PORT # 56 -BYTE # 169 -PORT # 56 -BYTE # 170 -PORT # 56 -BYTE # 171 -PORT # 56 -BYTE # 172 -PORT # 56 -BYTE # 173 -PORT # 56 -BYTE # 174 -PORT # 56 -BYTE # 175 -PORT # 56 -BYTE # 176 -PORT # 56 -BYTE # 177 -PORT # 56 -BYTE # 178 -PORT # 56 -BYTE # 179 -PORT # 56 -BYTE # 180 -PORT # 56 -BYTE # 181 -PORT # 56 -BYTE # 182 -PORT # 56 -BYTE # 183 -PORT # 56 -BYTE # 184 -PORT # 56 -BYTE # 185 -PORT # 56 -BYTE # 186 -PORT # 56 -BYTE # 187 -PORT # 56 -BYTE # 188 -PORT # 56 -BYTE # 189 -PORT # 56 -BYTE # 190 -PORT # 56 -BYTE # 191 -PORT # 56 -BYTE # 192 -PORT # 56 -BYTE # 193 -PORT # 56 -BYTE # 194 -PORT # 56 -BYTE # 195 -PORT # 56 -BYTE # 196 -PORT # 56 -BYTE # 197 -PORT # 56 -BYTE # 198 -PORT # 56 -BYTE # 199 -PORT # 56 -BYTE # 200 -PORT # 56 -BYTE # 201 -PORT # 56 -BYTE # 202 -PORT # 56 -BYTE # 203 -PORT # 56 -BYTE # 204 -PORT # 56 -BYTE # 205 -PORT # 56 -BYTE # 206 -PORT # 56 -BYTE # 207 -PORT # 56 -BYTE # 208 -PORT # 56 -BYTE # 209 -PORT # 56 -BYTE # 210 -PORT # 56 -BYTE # 211 -PORT # 56 -BYTE # 212 -PORT # 56 -BYTE # 213 -PORT # 56 -BYTE # 214 -PORT # 56 -BYTE # 215 -PORT # 56 -BYTE # 216 -PORT # 56 -BYTE # 217 -PORT # 56 -BYTE # 218 -PORT # 56 -BYTE # 219 -PORT # 56 -BYTE # 220 -PORT # 56 -BYTE # 221 -PORT # 56 -BYTE # 222 -PORT # 56 -BYTE # 223 -PORT # 56 -BYTE # 224 -PORT # 56 -BYTE # 225 -PORT # 56 -BYTE # 226 -PORT # 56 -BYTE # 227 -PORT # 56 -BYTE # 228 -PORT # 56 -BYTE # 229 -PORT # 56 -BYTE # 230 -PORT # 56 -BYTE # 231 -PORT # 56 -BYTE # 232 -PORT # 56 -BYTE # 233 -PORT # 56 -BYTE # 234 -PORT # 56 -BYTE # 235 -PORT # 56 -BYTE # 236 -PORT # 56 -BYTE # 237 -PORT # 56 -BYTE # 238 -PORT # 56 -BYTE # 239 -PORT # 56 -BYTE # 240 -PORT # 56 -BYTE # 241 -PORT # 56 -BYTE # 242 -PORT # 56 -BYTE # 243 -PORT # 56 -BYTE # 244 -PORT # 56 -BYTE # 245 -PORT # 56 -BYTE # 246 -PORT # 56 -BYTE # 247 -PORT # 56 -BYTE # 248 -PORT # 56 -BYTE # 249 -PORT # 56 -BYTE # 250 -PORT # 56 -BYTE # 251 -PORT # 56 -BYTE # 252 -PORT # 56 -BYTE # 253 -PORT # 56 -BYTE # 254 -PORT # 56 -BYTE # 255 -PORT # 57 -BYTE # 0 -PORT # 57 -BYTE # 1 -PORT # 57 -BYTE # 2 -PORT # 57 -BYTE # 3 -PORT # 57 -BYTE # 4 -PORT # 57 -BYTE # 5 -PORT # 57 -BYTE # 6 -PORT # 57 -BYTE # 7 -PORT # 57 -BYTE # 8 -PORT # 57 -BYTE # 9 -PORT # 57 -BYTE # 10 -PORT # 57 -BYTE # 11 -PORT # 57 -BYTE # 12 -PORT # 57 -BYTE # 13 -PORT # 57 -BYTE # 14 -PORT # 57 -BYTE # 15 -PORT # 57 -BYTE # 16 -PORT # 57 -BYTE # 17 -PORT # 57 -BYTE # 18 -PORT # 57 -BYTE # 19 -PORT # 57 -BYTE # 20 -PORT # 57 -BYTE # 21 -PORT # 57 -BYTE # 22 -PORT # 57 -BYTE # 23 -PORT # 57 -BYTE # 24 -PORT # 57 -BYTE # 25 -PORT # 57 -BYTE # 26 -PORT # 57 -BYTE # 27 -PORT # 57 -BYTE # 28 -PORT # 57 -BYTE # 29 -PORT # 57 -BYTE # 30 -PORT # 57 -BYTE # 31 -PORT # 57 -BYTE # 32 -PORT # 57 -BYTE # 33 -PORT # 57 -BYTE # 34 -PORT # 57 -BYTE # 35 -PORT # 57 -BYTE # 36 -PORT # 57 -BYTE # 37 -PORT # 57 -BYTE # 38 -PORT # 57 -BYTE # 39 -PORT # 57 -BYTE # 40 -PORT # 57 -BYTE # 41 -PORT # 57 -BYTE # 42 -PORT # 57 -BYTE # 43 -PORT # 57 -BYTE # 44 -PORT # 57 -BYTE # 45 -PORT # 57 -BYTE # 46 -PORT # 57 -BYTE # 47 -PORT # 57 -BYTE # 48 -PORT # 57 -BYTE # 49 -PORT # 57 -BYTE # 50 -PORT # 57 -BYTE # 51 -PORT # 57 -BYTE # 52 -PORT # 57 -BYTE # 53 -PORT # 57 -BYTE # 54 -PORT # 57 -BYTE # 55 -PORT # 57 -BYTE # 56 -PORT # 57 -BYTE # 57 -PORT # 57 -BYTE # 58 -PORT # 57 -BYTE # 59 -PORT # 57 -BYTE # 60 -PORT # 57 -BYTE # 61 -PORT # 57 -BYTE # 62 -PORT # 57 -BYTE # 63 -PORT # 57 -BYTE # 64 -PORT # 57 -BYTE # 65 -PORT # 57 -BYTE # 66 -PORT # 57 -BYTE # 67 -PORT # 57 -BYTE # 68 -PORT # 57 -BYTE # 69 -PORT # 57 -BYTE # 70 -PORT # 57 -BYTE # 71 -PORT # 57 -BYTE # 72 -PORT # 57 -BYTE # 73 -PORT # 57 -BYTE # 74 -PORT # 57 -BYTE # 75 -PORT # 57 -BYTE # 76 -PORT # 57 -BYTE # 77 -PORT # 57 -BYTE # 78 -PORT # 57 -BYTE # 79 -PORT # 57 -BYTE # 80 -PORT # 57 -BYTE # 81 -PORT # 57 -BYTE # 82 -PORT # 57 -BYTE # 83 -PORT # 57 -BYTE # 84 -PORT # 57 -BYTE # 85 -PORT # 57 -BYTE # 86 -PORT # 57 -BYTE # 87 -PORT # 57 -BYTE # 88 -PORT # 57 -BYTE # 89 -PORT # 57 -BYTE # 90 -PORT # 57 -BYTE # 91 -PORT # 57 -BYTE # 92 -PORT # 57 -BYTE # 93 -PORT # 57 -BYTE # 94 -PORT # 57 -BYTE # 95 -PORT # 57 -BYTE # 96 -PORT # 57 -BYTE # 97 -PORT # 57 -BYTE # 98 -PORT # 57 -BYTE # 99 -PORT # 57 -BYTE # 100 -PORT # 57 -BYTE # 101 -PORT # 57 -BYTE # 102 -PORT # 57 -BYTE # 103 -PORT # 57 -BYTE # 104 -PORT # 57 -BYTE # 105 -PORT # 57 -BYTE # 106 -PORT # 57 -BYTE # 107 -PORT # 57 -BYTE # 108 -PORT # 57 -BYTE # 109 -PORT # 57 -BYTE # 110 -PORT # 57 -BYTE # 111 -PORT # 57 -BYTE # 112 -PORT # 57 -BYTE # 113 -PORT # 57 -BYTE # 114 -PORT # 57 -BYTE # 115 -PORT # 57 -BYTE # 116 -PORT # 57 -BYTE # 117 -PORT # 57 -BYTE # 118 -PORT # 57 -BYTE # 119 -PORT # 57 -BYTE # 120 -PORT # 57 -BYTE # 121 -PORT # 57 -BYTE # 122 -PORT # 57 -BYTE # 123 -PORT # 57 -BYTE # 124 -PORT # 57 -BYTE # 125 -PORT # 57 -BYTE # 126 -PORT # 57 -BYTE # 127 -PORT # 57 -BYTE # 128 -PORT # 57 -BYTE # 129 -PORT # 57 -BYTE # 130 -PORT # 57 -BYTE # 131 -PORT # 57 -BYTE # 132 -PORT # 57 -BYTE # 133 -PORT # 57 -BYTE # 134 -PORT # 57 -BYTE # 135 -PORT # 57 -BYTE # 136 -PORT # 57 -BYTE # 137 -PORT # 57 -BYTE # 138 -PORT # 57 -BYTE # 139 -PORT # 57 -BYTE # 140 -PORT # 57 -BYTE # 141 -PORT # 57 -BYTE # 142 -PORT # 57 -BYTE # 143 -PORT # 57 -BYTE # 144 -PORT # 57 -BYTE # 145 -PORT # 57 -BYTE # 146 -PORT # 57 -BYTE # 147 -PORT # 57 -BYTE # 148 -PORT # 57 -BYTE # 149 -PORT # 57 -BYTE # 150 -PORT # 57 -BYTE # 151 -PORT # 57 -BYTE # 152 -PORT # 57 -BYTE # 153 -PORT # 57 -BYTE # 154 -PORT # 57 -BYTE # 155 -PORT # 57 -BYTE # 156 -PORT # 57 -BYTE # 157 -PORT # 57 -BYTE # 158 -PORT # 57 -BYTE # 159 -PORT # 57 -BYTE # 160 -PORT # 57 -BYTE # 161 -PORT # 57 -BYTE # 162 -PORT # 57 -BYTE # 163 -PORT # 57 -BYTE # 164 -PORT # 57 -BYTE # 165 -PORT # 57 -BYTE # 166 -PORT # 57 -BYTE # 167 -PORT # 57 -BYTE # 168 -PORT # 57 -BYTE # 169 -PORT # 57 -BYTE # 170 -PORT # 57 -BYTE # 171 -PORT # 57 -BYTE # 172 -PORT # 57 -BYTE # 173 -PORT # 57 -BYTE # 174 -PORT # 57 -BYTE # 175 -PORT # 57 -BYTE # 176 -PORT # 57 -BYTE # 177 -PORT # 57 -BYTE # 178 -PORT # 57 -BYTE # 179 -PORT # 57 -BYTE # 180 -PORT # 57 -BYTE # 181 -PORT # 57 -BYTE # 182 -PORT # 57 -BYTE # 183 -PORT # 57 -BYTE # 184 -PORT # 57 -BYTE # 185 -PORT # 57 -BYTE # 186 -PORT # 57 -BYTE # 187 -PORT # 57 -BYTE # 188 -PORT # 57 -BYTE # 189 -PORT # 57 -BYTE # 190 -PORT # 57 -BYTE # 191 -PORT # 57 -BYTE # 192 -PORT # 57 -BYTE # 193 -PORT # 57 -BYTE # 194 -PORT # 57 -BYTE # 195 -PORT # 57 -BYTE # 196 -PORT # 57 -BYTE # 197 -PORT # 57 -BYTE # 198 -PORT # 57 -BYTE # 199 -PORT # 57 -BYTE # 200 -PORT # 57 -BYTE # 201 -PORT # 57 -BYTE # 202 -PORT # 57 -BYTE # 203 -PORT # 57 -BYTE # 204 -PORT # 57 -BYTE # 205 -PORT # 57 -BYTE # 206 -PORT # 57 -BYTE # 207 -PORT # 57 -BYTE # 208 -PORT # 57 -BYTE # 209 -PORT # 57 -BYTE # 210 -PORT # 57 -BYTE # 211 -PORT # 57 -BYTE # 212 -PORT # 57 -BYTE # 213 -PORT # 57 -BYTE # 214 -PORT # 57 -BYTE # 215 -PORT # 57 -BYTE # 216 -PORT # 57 -BYTE # 217 -PORT # 57 -BYTE # 218 -PORT # 57 -BYTE # 219 -PORT # 57 -BYTE # 220 -PORT # 57 -BYTE # 221 -PORT # 57 -BYTE # 222 -PORT # 57 -BYTE # 223 -PORT # 57 -BYTE # 224 -PORT # 57 -BYTE # 225 -PORT # 57 -BYTE # 226 -PORT # 57 -BYTE # 227 -PORT # 57 -BYTE # 228 -PORT # 57 -BYTE # 229 -PORT # 57 -BYTE # 230 -PORT # 57 -BYTE # 231 -PORT # 57 -BYTE # 232 -PORT # 57 -BYTE # 233 -PORT # 57 -BYTE # 234 -PORT # 57 -BYTE # 235 -PORT # 57 -BYTE # 236 -PORT # 57 -BYTE # 237 -PORT # 57 -BYTE # 238 -PORT # 57 -BYTE # 239 -PORT # 57 -BYTE # 240 -PORT # 57 -BYTE # 241 -PORT # 57 -BYTE # 242 -PORT # 57 -BYTE # 243 -PORT # 57 -BYTE # 244 -PORT # 57 -BYTE # 245 -PORT # 57 -BYTE # 246 -PORT # 57 -BYTE # 247 -PORT # 57 -BYTE # 248 -PORT # 57 -BYTE # 249 -PORT # 57 -BYTE # 250 -PORT # 57 -BYTE # 251 -PORT # 57 -BYTE # 252 -PORT # 57 -BYTE # 253 -PORT # 57 -BYTE # 254 -PORT # 57 -BYTE # 255 -PORT # 58 -BYTE # 0 -PORT # 58 -BYTE # 1 -PORT # 58 -BYTE # 2 -PORT # 58 -BYTE # 3 -PORT # 58 -BYTE # 4 -PORT # 58 -BYTE # 5 -PORT # 58 -BYTE # 6 -PORT # 58 -BYTE # 7 -PORT # 58 -BYTE # 8 -PORT # 58 -BYTE # 9 -PORT # 58 -BYTE # 10 -PORT # 58 -BYTE # 11 -PORT # 58 -BYTE # 12 -PORT # 58 -BYTE # 13 -PORT # 58 -BYTE # 14 -PORT # 58 -BYTE # 15 -PORT # 58 -BYTE # 16 -PORT # 58 -BYTE # 17 -PORT # 58 -BYTE # 18 -PORT # 58 -BYTE # 19 -PORT # 58 -BYTE # 20 -PORT # 58 -BYTE # 21 -PORT # 58 -BYTE # 22 -PORT # 58 -BYTE # 23 -PORT # 58 -BYTE # 24 -PORT # 58 -BYTE # 25 -PORT # 58 -BYTE # 26 -PORT # 58 -BYTE # 27 -PORT # 58 -BYTE # 28 -PORT # 58 -BYTE # 29 -PORT # 58 -BYTE # 30 -PORT # 58 -BYTE # 31 -PORT # 58 -BYTE # 32 -PORT # 58 -BYTE # 33 -PORT # 58 -BYTE # 34 -PORT # 58 -BYTE # 35 -PORT # 58 -BYTE # 36 -PORT # 58 -BYTE # 37 -PORT # 58 -BYTE # 38 -PORT # 58 -BYTE # 39 -PORT # 58 -BYTE # 40 -PORT # 58 -BYTE # 41 -PORT # 58 -BYTE # 42 -PORT # 58 -BYTE # 43 -PORT # 58 -BYTE # 44 -PORT # 58 -BYTE # 45 -PORT # 58 -BYTE # 46 -PORT # 58 -BYTE # 47 -PORT # 58 -BYTE # 48 -PORT # 58 -BYTE # 49 -PORT # 58 -BYTE # 50 -PORT # 58 -BYTE # 51 -PORT # 58 -BYTE # 52 -PORT # 58 -BYTE # 53 -PORT # 58 -BYTE # 54 -PORT # 58 -BYTE # 55 -PORT # 58 -BYTE # 56 -PORT # 58 -BYTE # 57 -PORT # 58 -BYTE # 58 -PORT # 58 -BYTE # 59 -PORT # 58 -BYTE # 60 -PORT # 58 -BYTE # 61 -PORT # 58 -BYTE # 62 -PORT # 58 -BYTE # 63 -PORT # 58 -BYTE # 64 -PORT # 58 -BYTE # 65 -PORT # 58 -BYTE # 66 -PORT # 58 -BYTE # 67 -PORT # 58 -BYTE # 68 -PORT # 58 -BYTE # 69 -PORT # 58 -BYTE # 70 -PORT # 58 -BYTE # 71 -PORT # 58 -BYTE # 72 -PORT # 58 -BYTE # 73 -PORT # 58 -BYTE # 74 -PORT # 58 -BYTE # 75 -PORT # 58 -BYTE # 76 -PORT # 58 -BYTE # 77 -PORT # 58 -BYTE # 78 -PORT # 58 -BYTE # 79 -PORT # 58 -BYTE # 80 -PORT # 58 -BYTE # 81 -PORT # 58 -BYTE # 82 -PORT # 58 -BYTE # 83 -PORT # 58 -BYTE # 84 -PORT # 58 -BYTE # 85 -PORT # 58 -BYTE # 86 -PORT # 58 -BYTE # 87 -PORT # 58 -BYTE # 88 -PORT # 58 -BYTE # 89 -PORT # 58 -BYTE # 90 -PORT # 58 -BYTE # 91 -PORT # 58 -BYTE # 92 -PORT # 58 -BYTE # 93 -PORT # 58 -BYTE # 94 -PORT # 58 -BYTE # 95 -PORT # 58 -BYTE # 96 -PORT # 58 -BYTE # 97 -PORT # 58 -BYTE # 98 -PORT # 58 -BYTE # 99 -PORT # 58 -BYTE # 100 -PORT # 58 -BYTE # 101 -PORT # 58 -BYTE # 102 -PORT # 58 -BYTE # 103 -PORT # 58 -BYTE # 104 -PORT # 58 -BYTE # 105 -PORT # 58 -BYTE # 106 -PORT # 58 -BYTE # 107 -PORT # 58 -BYTE # 108 -PORT # 58 -BYTE # 109 -PORT # 58 -BYTE # 110 -PORT # 58 -BYTE # 111 -PORT # 58 -BYTE # 112 -PORT # 58 -BYTE # 113 -PORT # 58 -BYTE # 114 -PORT # 58 -BYTE # 115 -PORT # 58 -BYTE # 116 -PORT # 58 -BYTE # 117 -PORT # 58 -BYTE # 118 -PORT # 58 -BYTE # 119 -PORT # 58 -BYTE # 120 -PORT # 58 -BYTE # 121 -PORT # 58 -BYTE # 122 -PORT # 58 -BYTE # 123 -PORT # 58 -BYTE # 124 -PORT # 58 -BYTE # 125 -PORT # 58 -BYTE # 126 -PORT # 58 -BYTE # 127 -PORT # 58 -BYTE # 128 -PORT # 58 -BYTE # 129 -PORT # 58 -BYTE # 130 -PORT # 58 -BYTE # 131 -PORT # 58 -BYTE # 132 -PORT # 58 -BYTE # 133 -PORT # 58 -BYTE # 134 -PORT # 58 -BYTE # 135 -PORT # 58 -BYTE # 136 -PORT # 58 -BYTE # 137 -PORT # 58 -BYTE # 138 -PORT # 58 -BYTE # 139 -PORT # 58 -BYTE # 140 -PORT # 58 -BYTE # 141 -PORT # 58 -BYTE # 142 -PORT # 58 -BYTE # 143 -PORT # 58 -BYTE # 144 -PORT # 58 -BYTE # 145 -PORT # 58 -BYTE # 146 -PORT # 58 -BYTE # 147 -PORT # 58 -BYTE # 148 -PORT # 58 -BYTE # 149 -PORT # 58 -BYTE # 150 -PORT # 58 -BYTE # 151 -PORT # 58 -BYTE # 152 -PORT # 58 -BYTE # 153 -PORT # 58 -BYTE # 154 -PORT # 58 -BYTE # 155 -PORT # 58 -BYTE # 156 -PORT # 58 -BYTE # 157 -PORT # 58 -BYTE # 158 -PORT # 58 -BYTE # 159 -PORT # 58 -BYTE # 160 -PORT # 58 -BYTE # 161 -PORT # 58 -BYTE # 162 -PORT # 58 -BYTE # 163 -PORT # 58 -BYTE # 164 -PORT # 58 -BYTE # 165 -PORT # 58 -BYTE # 166 -PORT # 58 -BYTE # 167 -PORT # 58 -BYTE # 168 -PORT # 58 -BYTE # 169 -PORT # 58 -BYTE # 170 -PORT # 58 -BYTE # 171 -PORT # 58 -BYTE # 172 -PORT # 58 -BYTE # 173 -PORT # 58 -BYTE # 174 -PORT # 58 -BYTE # 175 -PORT # 58 -BYTE # 176 -PORT # 58 -BYTE # 177 -PORT # 58 -BYTE # 178 -PORT # 58 -BYTE # 179 -PORT # 58 -BYTE # 180 -PORT # 58 -BYTE # 181 -PORT # 58 -BYTE # 182 -PORT # 58 -BYTE # 183 -PORT # 58 -BYTE # 184 -PORT # 58 -BYTE # 185 -PORT # 58 -BYTE # 186 -PORT # 58 -BYTE # 187 -PORT # 58 -BYTE # 188 -PORT # 58 -BYTE # 189 -PORT # 58 -BYTE # 190 -PORT # 58 -BYTE # 191 -PORT # 58 -BYTE # 192 -PORT # 58 -BYTE # 193 -PORT # 58 -BYTE # 194 -PORT # 58 -BYTE # 195 -PORT # 58 -BYTE # 196 -PORT # 58 -BYTE # 197 -PORT # 58 -BYTE # 198 -PORT # 58 -BYTE # 199 -PORT # 58 -BYTE # 200 -PORT # 58 -BYTE # 201 -PORT # 58 -BYTE # 202 -PORT # 58 -BYTE # 203 -PORT # 58 -BYTE # 204 -PORT # 58 -BYTE # 205 -PORT # 58 -BYTE # 206 -PORT # 58 -BYTE # 207 -PORT # 58 -BYTE # 208 -PORT # 58 -BYTE # 209 -PORT # 58 -BYTE # 210 -PORT # 58 -BYTE # 211 -PORT # 58 -BYTE # 212 -PORT # 58 -BYTE # 213 -PORT # 58 -BYTE # 214 -PORT # 58 -BYTE # 215 -PORT # 58 -BYTE # 216 -PORT # 58 -BYTE # 217 -PORT # 58 -BYTE # 218 -PORT # 58 -BYTE # 219 -PORT # 58 -BYTE # 220 -PORT # 58 -BYTE # 221 -PORT # 58 -BYTE # 222 -PORT # 58 -BYTE # 223 -PORT # 58 -BYTE # 224 -PORT # 58 -BYTE # 225 -PORT # 58 -BYTE # 226 -PORT # 58 -BYTE # 227 -PORT # 58 -BYTE # 228 -PORT # 58 -BYTE # 229 -PORT # 58 -BYTE # 230 -PORT # 58 -BYTE # 231 -PORT # 58 -BYTE # 232 -PORT # 58 -BYTE # 233 -PORT # 58 -BYTE # 234 -PORT # 58 -BYTE # 235 -PORT # 58 -BYTE # 236 -PORT # 58 -BYTE # 237 -PORT # 58 -BYTE # 238 -PORT # 58 -BYTE # 239 -PORT # 58 -BYTE # 240 -PORT # 58 -BYTE # 241 -PORT # 58 -BYTE # 242 -PORT # 58 -BYTE # 243 -PORT # 58 -BYTE # 244 -PORT # 58 -BYTE # 245 -PORT # 58 -BYTE # 246 -PORT # 58 -BYTE # 247 -PORT # 58 -BYTE # 248 -PORT # 58 -BYTE # 249 -PORT # 58 -BYTE # 250 -PORT # 58 -BYTE # 251 -PORT # 58 -BYTE # 252 -PORT # 58 -BYTE # 253 -PORT # 58 -BYTE # 254 -PORT # 58 -BYTE # 255 -PORT # 59 -BYTE # 0 -PORT # 59 -BYTE # 1 -PORT # 59 -BYTE # 2 -PORT # 59 -BYTE # 3 -PORT # 59 -BYTE # 4 -PORT # 59 -BYTE # 5 -PORT # 59 -BYTE # 6 -PORT # 59 -BYTE # 7 -PORT # 59 -BYTE # 8 -PORT # 59 -BYTE # 9 -PORT # 59 -BYTE # 10 -PORT # 59 -BYTE # 11 -PORT # 59 -BYTE # 12 -PORT # 59 -BYTE # 13 -PORT # 59 -BYTE # 14 -PORT # 59 -BYTE # 15 -PORT # 59 -BYTE # 16 -PORT # 59 -BYTE # 17 -PORT # 59 -BYTE # 18 -PORT # 59 -BYTE # 19 -PORT # 59 -BYTE # 20 -PORT # 59 -BYTE # 21 -PORT # 59 -BYTE # 22 -PORT # 59 -BYTE # 23 -PORT # 59 -BYTE # 24 -PORT # 59 -BYTE # 25 -PORT # 59 -BYTE # 26 -PORT # 59 -BYTE # 27 -PORT # 59 -BYTE # 28 -PORT # 59 -BYTE # 29 -PORT # 59 -BYTE # 30 -PORT # 59 -BYTE # 31 -PORT # 59 -BYTE # 32 -PORT # 59 -BYTE # 33 -PORT # 59 -BYTE # 34 -PORT # 59 -BYTE # 35 -PORT # 59 -BYTE # 36 -PORT # 59 -BYTE # 37 -PORT # 59 -BYTE # 38 -PORT # 59 -BYTE # 39 -PORT # 59 -BYTE # 40 -PORT # 59 -BYTE # 41 -PORT # 59 -BYTE # 42 -PORT # 59 -BYTE # 43 -PORT # 59 -BYTE # 44 -PORT # 59 -BYTE # 45 -PORT # 59 -BYTE # 46 -PORT # 59 -BYTE # 47 -PORT # 59 -BYTE # 48 -PORT # 59 -BYTE # 49 -PORT # 59 -BYTE # 50 -PORT # 59 -BYTE # 51 -PORT # 59 -BYTE # 52 -PORT # 59 -BYTE # 53 -PORT # 59 -BYTE # 54 -PORT # 59 -BYTE # 55 -PORT # 59 -BYTE # 56 -PORT # 59 -BYTE # 57 -PORT # 59 -BYTE # 58 -PORT # 59 -BYTE # 59 -PORT # 59 -BYTE # 60 -PORT # 59 -BYTE # 61 -PORT # 59 -BYTE # 62 -PORT # 59 -BYTE # 63 -PORT # 59 -BYTE # 64 -PORT # 59 -BYTE # 65 -PORT # 59 -BYTE # 66 -PORT # 59 -BYTE # 67 -PORT # 59 -BYTE # 68 -PORT # 59 -BYTE # 69 -PORT # 59 -BYTE # 70 -PORT # 59 -BYTE # 71 -PORT # 59 -BYTE # 72 -PORT # 59 -BYTE # 73 -PORT # 59 -BYTE # 74 -PORT # 59 -BYTE # 75 -PORT # 59 -BYTE # 76 -PORT # 59 -BYTE # 77 -PORT # 59 -BYTE # 78 -PORT # 59 -BYTE # 79 -PORT # 59 -BYTE # 80 -PORT # 59 -BYTE # 81 -PORT # 59 -BYTE # 82 -PORT # 59 -BYTE # 83 -PORT # 59 -BYTE # 84 -PORT # 59 -BYTE # 85 -PORT # 59 -BYTE # 86 -PORT # 59 -BYTE # 87 -PORT # 59 -BYTE # 88 -PORT # 59 -BYTE # 89 -PORT # 59 -BYTE # 90 -PORT # 59 -BYTE # 91 -PORT # 59 -BYTE # 92 -PORT # 59 -BYTE # 93 -PORT # 59 -BYTE # 94 -PORT # 59 -BYTE # 95 -PORT # 59 -BYTE # 96 -PORT # 59 -BYTE # 97 -PORT # 59 -BYTE # 98 -PORT # 59 -BYTE # 99 -PORT # 59 -BYTE # 100 -PORT # 59 -BYTE # 101 -PORT # 59 -BYTE # 102 -PORT # 59 -BYTE # 103 -PORT # 59 -BYTE # 104 -PORT # 59 -BYTE # 105 -PORT # 59 -BYTE # 106 -PORT # 59 -BYTE # 107 -PORT # 59 -BYTE # 108 -PORT # 59 -BYTE # 109 -PORT # 59 -BYTE # 110 -PORT # 59 -BYTE # 111 -PORT # 59 -BYTE # 112 -PORT # 59 -BYTE # 113 -PORT # 59 -BYTE # 114 -PORT # 59 -BYTE # 115 -PORT # 59 -BYTE # 116 -PORT # 59 -BYTE # 117 -PORT # 59 -BYTE # 118 -PORT # 59 -BYTE # 119 -PORT # 59 -BYTE # 120 -PORT # 59 -BYTE # 121 -PORT # 59 -BYTE # 122 -PORT # 59 -BYTE # 123 -PORT # 59 -BYTE # 124 -PORT # 59 -BYTE # 125 -PORT # 59 -BYTE # 126 -PORT # 59 -BYTE # 127 -PORT # 59 -BYTE # 128 -PORT # 59 -BYTE # 129 -PORT # 59 -BYTE # 130 -PORT # 59 -BYTE # 131 -PORT # 59 -BYTE # 132 -PORT # 59 -BYTE # 133 -PORT # 59 -BYTE # 134 -PORT # 59 -BYTE # 135 -PORT # 59 -BYTE # 136 -PORT # 59 -BYTE # 137 -PORT # 59 -BYTE # 138 -PORT # 59 -BYTE # 139 -PORT # 59 -BYTE # 140 -PORT # 59 -BYTE # 141 -PORT # 59 -BYTE # 142 -PORT # 59 -BYTE # 143 -PORT # 59 -BYTE # 144 -PORT # 59 -BYTE # 145 -PORT # 59 -BYTE # 146 -PORT # 59 -BYTE # 147 -PORT # 59 -BYTE # 148 -PORT # 59 -BYTE # 149 -PORT # 59 -BYTE # 150 -PORT # 59 -BYTE # 151 -PORT # 59 -BYTE # 152 -PORT # 59 -BYTE # 153 -PORT # 59 -BYTE # 154 -PORT # 59 -BYTE # 155 -PORT # 59 -BYTE # 156 -PORT # 59 -BYTE # 157 -PORT # 59 -BYTE # 158 -PORT # 59 -BYTE # 159 -PORT # 59 -BYTE # 160 -PORT # 59 -BYTE # 161 -PORT # 59 -BYTE # 162 -PORT # 59 -BYTE # 163 -PORT # 59 -BYTE # 164 -PORT # 59 -BYTE # 165 -PORT # 59 -BYTE # 166 -PORT # 59 -BYTE # 167 -PORT # 59 -BYTE # 168 -PORT # 59 -BYTE # 169 -PORT # 59 -BYTE # 170 -PORT # 59 -BYTE # 171 -PORT # 59 -BYTE # 172 -PORT # 59 -BYTE # 173 -PORT # 59 -BYTE # 174 -PORT # 59 -BYTE # 175 -PORT # 59 -BYTE # 176 -PORT # 59 -BYTE # 177 -PORT # 59 -BYTE # 178 -PORT # 59 -BYTE # 179 -PORT # 59 -BYTE # 180 -PORT # 59 -BYTE # 181 -PORT # 59 -BYTE # 182 -PORT # 59 -BYTE # 183 -PORT # 59 -BYTE # 184 -PORT # 59 -BYTE # 185 -PORT # 59 -BYTE # 186 -PORT # 59 -BYTE # 187 -PORT # 59 -BYTE # 188 -PORT # 59 -BYTE # 189 -PORT # 59 -BYTE # 190 -PORT # 59 -BYTE # 191 -PORT # 59 -BYTE # 192 -PORT # 59 -BYTE # 193 -PORT # 59 -BYTE # 194 -PORT # 59 -BYTE # 195 -PORT # 59 -BYTE # 196 -PORT # 59 -BYTE # 197 -PORT # 59 -BYTE # 198 -PORT # 59 -BYTE # 199 -PORT # 59 -BYTE # 200 -PORT # 59 -BYTE # 201 -PORT # 59 -BYTE # 202 -PORT # 59 -BYTE # 203 -PORT # 59 -BYTE # 204 -PORT # 59 -BYTE # 205 -PORT # 59 -BYTE # 206 -PORT # 59 -BYTE # 207 -PORT # 59 -BYTE # 208 -PORT # 59 -BYTE # 209 -PORT # 59 -BYTE # 210 -PORT # 59 -BYTE # 211 -PORT # 59 -BYTE # 212 -PORT # 59 -BYTE # 213 -PORT # 59 -BYTE # 214 -PORT # 59 -BYTE # 215 -PORT # 59 -BYTE # 216 -PORT # 59 -BYTE # 217 -PORT # 59 -BYTE # 218 -PORT # 59 -BYTE # 219 -PORT # 59 -BYTE # 220 -PORT # 59 -BYTE # 221 -PORT # 59 -BYTE # 222 -PORT # 59 -BYTE # 223 -PORT # 59 -BYTE # 224 -PORT # 59 -BYTE # 225 -PORT # 59 -BYTE # 226 -PORT # 59 -BYTE # 227 -PORT # 59 -BYTE # 228 -PORT # 59 -BYTE # 229 -PORT # 59 -BYTE # 230 -PORT # 59 -BYTE # 231 -PORT # 59 -BYTE # 232 -PORT # 59 -BYTE # 233 -PORT # 59 -BYTE # 234 -PORT # 59 -BYTE # 235 -PORT # 59 -BYTE # 236 -PORT # 59 -BYTE # 237 -PORT # 59 -BYTE # 238 -PORT # 59 -BYTE # 239 -PORT # 59 -BYTE # 240 -PORT # 59 -BYTE # 241 -PORT # 59 -BYTE # 242 -PORT # 59 -BYTE # 243 -PORT # 59 -BYTE # 244 -PORT # 59 -BYTE # 245 -PORT # 59 -BYTE # 246 -PORT # 59 -BYTE # 247 -PORT # 59 -BYTE # 248 -PORT # 59 -BYTE # 249 -PORT # 59 -BYTE # 250 -PORT # 59 -BYTE # 251 -PORT # 59 -BYTE # 252 -PORT # 59 -BYTE # 253 -PORT # 59 -BYTE # 254 -PORT # 59 -BYTE # 255 -PORT # 60 -BYTE # 0 -PORT # 60 -BYTE # 1 -PORT # 60 -BYTE # 2 -PORT # 60 -BYTE # 3 -PORT # 60 -BYTE # 4 -PORT # 60 -BYTE # 5 -PORT # 60 -BYTE # 6 -PORT # 60 -BYTE # 7 -PORT # 60 -BYTE # 8 -PORT # 60 -BYTE # 9 -PORT # 60 -BYTE # 10 -PORT # 60 -BYTE # 11 -PORT # 60 -BYTE # 12 -PORT # 60 -BYTE # 13 -PORT # 60 -BYTE # 14 -PORT # 60 -BYTE # 15 -PORT # 60 -BYTE # 16 -PORT # 60 -BYTE # 17 -PORT # 60 -BYTE # 18 -PORT # 60 -BYTE # 19 -PORT # 60 -BYTE # 20 -PORT # 60 -BYTE # 21 -PORT # 60 -BYTE # 22 -PORT # 60 -BYTE # 23 -PORT # 60 -BYTE # 24 -PORT # 60 -BYTE # 25 -PORT # 60 -BYTE # 26 -PORT # 60 -BYTE # 27 -PORT # 60 -BYTE # 28 -PORT # 60 -BYTE # 29 -PORT # 60 -BYTE # 30 -PORT # 60 -BYTE # 31 -PORT # 60 -BYTE # 32 -PORT # 60 -BYTE # 33 -PORT # 60 -BYTE # 34 -PORT # 60 -BYTE # 35 -PORT # 60 -BYTE # 36 -PORT # 60 -BYTE # 37 -PORT # 60 -BYTE # 38 -PORT # 60 -BYTE # 39 -PORT # 60 -BYTE # 40 -PORT # 60 -BYTE # 41 -PORT # 60 -BYTE # 42 -PORT # 60 -BYTE # 43 -PORT # 60 -BYTE # 44 -PORT # 60 -BYTE # 45 -PORT # 60 -BYTE # 46 -PORT # 60 -BYTE # 47 -PORT # 60 -BYTE # 48 -PORT # 60 -BYTE # 49 -PORT # 60 -BYTE # 50 -PORT # 60 -BYTE # 51 -PORT # 60 -BYTE # 52 -PORT # 60 -BYTE # 53 -PORT # 60 -BYTE # 54 -PORT # 60 -BYTE # 55 -PORT # 60 -BYTE # 56 -PORT # 60 -BYTE # 57 -PORT # 60 -BYTE # 58 -PORT # 60 -BYTE # 59 -PORT # 60 -BYTE # 60 -PORT # 60 -BYTE # 61 -PORT # 60 -BYTE # 62 -PORT # 60 -BYTE # 63 -PORT # 60 -BYTE # 64 -PORT # 60 -BYTE # 65 -PORT # 60 -BYTE # 66 -PORT # 60 -BYTE # 67 -PORT # 60 -BYTE # 68 -PORT # 60 -BYTE # 69 -PORT # 60 -BYTE # 70 -PORT # 60 -BYTE # 71 -PORT # 60 -BYTE # 72 -PORT # 60 -BYTE # 73 -PORT # 60 -BYTE # 74 -PORT # 60 -BYTE # 75 -PORT # 60 -BYTE # 76 -PORT # 60 -BYTE # 77 -PORT # 60 -BYTE # 78 -PORT # 60 -BYTE # 79 -PORT # 60 -BYTE # 80 -PORT # 60 -BYTE # 81 -PORT # 60 -BYTE # 82 -PORT # 60 -BYTE # 83 -PORT # 60 -BYTE # 84 -PORT # 60 -BYTE # 85 -PORT # 60 -BYTE # 86 -PORT # 60 -BYTE # 87 -PORT # 60 -BYTE # 88 -PORT # 60 -BYTE # 89 -PORT # 60 -BYTE # 90 -PORT # 60 -BYTE # 91 -PORT # 60 -BYTE # 92 -PORT # 60 -BYTE # 93 -PORT # 60 -BYTE # 94 -PORT # 60 -BYTE # 95 -PORT # 60 -BYTE # 96 -PORT # 60 -BYTE # 97 -PORT # 60 -BYTE # 98 -PORT # 60 -BYTE # 99 -PORT # 60 -BYTE # 100 -PORT # 60 -BYTE # 101 -PORT # 60 -BYTE # 102 -PORT # 60 -BYTE # 103 -PORT # 60 -BYTE # 104 -PORT # 60 -BYTE # 105 -PORT # 60 -BYTE # 106 -PORT # 60 -BYTE # 107 -PORT # 60 -BYTE # 108 -PORT # 60 -BYTE # 109 -PORT # 60 -BYTE # 110 -PORT # 60 -BYTE # 111 -PORT # 60 -BYTE # 112 -PORT # 60 -BYTE # 113 -PORT # 60 -BYTE # 114 -PORT # 60 -BYTE # 115 -PORT # 60 -BYTE # 116 -PORT # 60 -BYTE # 117 -PORT # 60 -BYTE # 118 -PORT # 60 -BYTE # 119 -PORT # 60 -BYTE # 120 -PORT # 60 -BYTE # 121 -PORT # 60 -BYTE # 122 -PORT # 60 -BYTE # 123 -PORT # 60 -BYTE # 124 -PORT # 60 -BYTE # 125 -PORT # 60 -BYTE # 126 -PORT # 60 -BYTE # 127 -PORT # 60 -BYTE # 128 -PORT # 60 -BYTE # 129 -PORT # 60 -BYTE # 130 -PORT # 60 -BYTE # 131 -PORT # 60 -BYTE # 132 -PORT # 60 -BYTE # 133 -PORT # 60 -BYTE # 134 -PORT # 60 -BYTE # 135 -PORT # 60 -BYTE # 136 -PORT # 60 -BYTE # 137 -PORT # 60 -BYTE # 138 -PORT # 60 -BYTE # 139 -PORT # 60 -BYTE # 140 -PORT # 60 -BYTE # 141 -PORT # 60 -BYTE # 142 -PORT # 60 -BYTE # 143 -PORT # 60 -BYTE # 144 -PORT # 60 -BYTE # 145 -PORT # 60 -BYTE # 146 -PORT # 60 -BYTE # 147 -PORT # 60 -BYTE # 148 -PORT # 60 -BYTE # 149 -PORT # 60 -BYTE # 150 -PORT # 60 -BYTE # 151 -PORT # 60 -BYTE # 152 -PORT # 60 -BYTE # 153 -PORT # 60 -BYTE # 154 -PORT # 60 -BYTE # 155 -PORT # 60 -BYTE # 156 -PORT # 60 -BYTE # 157 -PORT # 60 -BYTE # 158 -PORT # 60 -BYTE # 159 -PORT # 60 -BYTE # 160 -PORT # 60 -BYTE # 161 -PORT # 60 -BYTE # 162 -PORT # 60 -BYTE # 163 -PORT # 60 -BYTE # 164 -PORT # 60 -BYTE # 165 -PORT # 60 -BYTE # 166 -PORT # 60 -BYTE # 167 -PORT # 60 -BYTE # 168 -PORT # 60 -BYTE # 169 -PORT # 60 -BYTE # 170 -PORT # 60 -BYTE # 171 -PORT # 60 -BYTE # 172 -PORT # 60 -BYTE # 173 -PORT # 60 -BYTE # 174 -PORT # 60 -BYTE # 175 -PORT # 60 -BYTE # 176 -PORT # 60 -BYTE # 177 -PORT # 60 -BYTE # 178 -PORT # 60 -BYTE # 179 -PORT # 60 -BYTE # 180 -PORT # 60 -BYTE # 181 -PORT # 60 -BYTE # 182 -PORT # 60 -BYTE # 183 -PORT # 60 -BYTE # 184 -PORT # 60 -BYTE # 185 -PORT # 60 -BYTE # 186 -PORT # 60 -BYTE # 187 -PORT # 60 -BYTE # 188 -PORT # 60 -BYTE # 189 -PORT # 60 -BYTE # 190 -PORT # 60 -BYTE # 191 -PORT # 60 -BYTE # 192 -PORT # 60 -BYTE # 193 -PORT # 60 -BYTE # 194 -PORT # 60 -BYTE # 195 -PORT # 60 -BYTE # 196 -PORT # 60 -BYTE # 197 -PORT # 60 -BYTE # 198 -PORT # 60 -BYTE # 199 -PORT # 60 -BYTE # 200 -PORT # 60 -BYTE # 201 -PORT # 60 -BYTE # 202 -PORT # 60 -BYTE # 203 -PORT # 60 -BYTE # 204 -PORT # 60 -BYTE # 205 -PORT # 60 -BYTE # 206 -PORT # 60 -BYTE # 207 -PORT # 60 -BYTE # 208 -PORT # 60 -BYTE # 209 -PORT # 60 -BYTE # 210 -PORT # 60 -BYTE # 211 -PORT # 60 -BYTE # 212 -PORT # 60 -BYTE # 213 -PORT # 60 -BYTE # 214 -PORT # 60 -BYTE # 215 -PORT # 60 -BYTE # 216 -PORT # 60 -BYTE # 217 -PORT # 60 -BYTE # 218 -PORT # 60 -BYTE # 219 -PORT # 60 -BYTE # 220 -PORT # 60 -BYTE # 221 -PORT # 60 -BYTE # 222 -PORT # 60 -BYTE # 223 -PORT # 60 -BYTE # 224 -PORT # 60 -BYTE # 225 -PORT # 60 -BYTE # 226 -PORT # 60 -BYTE # 227 -PORT # 60 -BYTE # 228 -PORT # 60 -BYTE # 229 -PORT # 60 -BYTE # 230 -PORT # 60 -BYTE # 231 -PORT # 60 -BYTE # 232 -PORT # 60 -BYTE # 233 -PORT # 60 -BYTE # 234 -PORT # 60 -BYTE # 235 -PORT # 60 -BYTE # 236 -PORT # 60 -BYTE # 237 -PORT # 60 -BYTE # 238 -PORT # 60 -BYTE # 239 -PORT # 60 -BYTE # 240 -PORT # 60 -BYTE # 241 -PORT # 60 -BYTE # 242 -PORT # 60 -BYTE # 243 -PORT # 60 -BYTE # 244 -PORT # 60 -BYTE # 245 -PORT # 60 -BYTE # 246 -PORT # 60 -BYTE # 247 -PORT # 60 -BYTE # 248 -PORT # 60 -BYTE # 249 -PORT # 60 -BYTE # 250 -PORT # 60 -BYTE # 251 -PORT # 60 -BYTE # 252 -PORT # 60 -BYTE # 253 -PORT # 60 -BYTE # 254 -PORT # 60 -BYTE # 255 -PORT # 61 -BYTE # 0 -PORT # 61 -BYTE # 1 -PORT # 61 -BYTE # 2 -PORT # 61 -BYTE # 3 -PORT # 61 -BYTE # 4 -PORT # 61 -BYTE # 5 -PORT # 61 -BYTE # 6 -PORT # 61 -BYTE # 7 -PORT # 61 -BYTE # 8 -PORT # 61 -BYTE # 9 -PORT # 61 -BYTE # 10 -PORT # 61 -BYTE # 11 -PORT # 61 -BYTE # 12 -PORT # 61 -BYTE # 13 -PORT # 61 -BYTE # 14 -PORT # 61 -BYTE # 15 -PORT # 61 -BYTE # 16 -PORT # 61 -BYTE # 17 -PORT # 61 -BYTE # 18 -PORT # 61 -BYTE # 19 -PORT # 61 -BYTE # 20 -PORT # 61 -BYTE # 21 -PORT # 61 -BYTE # 22 -PORT # 61 -BYTE # 23 -PORT # 61 -BYTE # 24 -PORT # 61 -BYTE # 25 -PORT # 61 -BYTE # 26 -PORT # 61 -BYTE # 27 -PORT # 61 -BYTE # 28 -PORT # 61 -BYTE # 29 -PORT # 61 -BYTE # 30 -PORT # 61 -BYTE # 31 -PORT # 61 -BYTE # 32 -PORT # 61 -BYTE # 33 -PORT # 61 -BYTE # 34 -PORT # 61 -BYTE # 35 -PORT # 61 -BYTE # 36 -PORT # 61 -BYTE # 37 -PORT # 61 -BYTE # 38 -PORT # 61 -BYTE # 39 -PORT # 61 -BYTE # 40 -PORT # 61 -BYTE # 41 -PORT # 61 -BYTE # 42 -PORT # 61 -BYTE # 43 -PORT # 61 -BYTE # 44 -PORT # 61 -BYTE # 45 -PORT # 61 -BYTE # 46 -PORT # 61 -BYTE # 47 -PORT # 61 -BYTE # 48 -PORT # 61 -BYTE # 49 -PORT # 61 -BYTE # 50 -PORT # 61 -BYTE # 51 -PORT # 61 -BYTE # 52 -PORT # 61 -BYTE # 53 -PORT # 61 -BYTE # 54 -PORT # 61 -BYTE # 55 -PORT # 61 -BYTE # 56 -PORT # 61 -BYTE # 57 -PORT # 61 -BYTE # 58 -PORT # 61 -BYTE # 59 -PORT # 61 -BYTE # 60 -PORT # 61 -BYTE # 61 -PORT # 61 -BYTE # 62 -PORT # 61 -BYTE # 63 -PORT # 61 -BYTE # 64 -PORT # 61 -BYTE # 65 -PORT # 61 -BYTE # 66 -PORT # 61 -BYTE # 67 -PORT # 61 -BYTE # 68 -PORT # 61 -BYTE # 69 -PORT # 61 -BYTE # 70 -PORT # 61 -BYTE # 71 -PORT # 61 -BYTE # 72 -PORT # 61 -BYTE # 73 -PORT # 61 -BYTE # 74 -PORT # 61 -BYTE # 75 -PORT # 61 -BYTE # 76 -PORT # 61 -BYTE # 77 -PORT # 61 -BYTE # 78 -PORT # 61 -BYTE # 79 -PORT # 61 -BYTE # 80 -PORT # 61 -BYTE # 81 -PORT # 61 -BYTE # 82 -PORT # 61 -BYTE # 83 -PORT # 61 -BYTE # 84 -PORT # 61 -BYTE # 85 -PORT # 61 -BYTE # 86 -PORT # 61 -BYTE # 87 -PORT # 61 -BYTE # 88 -PORT # 61 -BYTE # 89 -PORT # 61 -BYTE # 90 -PORT # 61 -BYTE # 91 -PORT # 61 -BYTE # 92 -PORT # 61 -BYTE # 93 -PORT # 61 -BYTE # 94 -PORT # 61 -BYTE # 95 -PORT # 61 -BYTE # 96 -PORT # 61 -BYTE # 97 -PORT # 61 -BYTE # 98 -PORT # 61 -BYTE # 99 -PORT # 61 -BYTE # 100 -PORT # 61 -BYTE # 101 -PORT # 61 -BYTE # 102 -PORT # 61 -BYTE # 103 -PORT # 61 -BYTE # 104 -PORT # 61 -BYTE # 105 -PORT # 61 -BYTE # 106 -PORT # 61 -BYTE # 107 -PORT # 61 -BYTE # 108 -PORT # 61 -BYTE # 109 -PORT # 61 -BYTE # 110 -PORT # 61 -BYTE # 111 -PORT # 61 -BYTE # 112 -PORT # 61 -BYTE # 113 -PORT # 61 -BYTE # 114 -PORT # 61 -BYTE # 115 -PORT # 61 -BYTE # 116 -PORT # 61 -BYTE # 117 -PORT # 61 -BYTE # 118 -PORT # 61 -BYTE # 119 -PORT # 61 -BYTE # 120 -PORT # 61 -BYTE # 121 -PORT # 61 -BYTE # 122 -PORT # 61 -BYTE # 123 -PORT # 61 -BYTE # 124 -PORT # 61 -BYTE # 125 -PORT # 61 -BYTE # 126 -PORT # 61 -BYTE # 127 -PORT # 61 -BYTE # 128 -PORT # 61 -BYTE # 129 -PORT # 61 -BYTE # 130 -PORT # 61 -BYTE # 131 -PORT # 61 -BYTE # 132 -PORT # 61 -BYTE # 133 -PORT # 61 -BYTE # 134 -PORT # 61 -BYTE # 135 -PORT # 61 -BYTE # 136 -PORT # 61 -BYTE # 137 -PORT # 61 -BYTE # 138 -PORT # 61 -BYTE # 139 -PORT # 61 -BYTE # 140 -PORT # 61 -BYTE # 141 -PORT # 61 -BYTE # 142 -PORT # 61 -BYTE # 143 -PORT # 61 -BYTE # 144 -PORT # 61 -BYTE # 145 -PORT # 61 -BYTE # 146 -PORT # 61 -BYTE # 147 -PORT # 61 -BYTE # 148 -PORT # 61 -BYTE # 149 -PORT # 61 -BYTE # 150 -PORT # 61 -BYTE # 151 -PORT # 61 -BYTE # 152 -PORT # 61 -BYTE # 153 -PORT # 61 -BYTE # 154 -PORT # 61 -BYTE # 155 -PORT # 61 -BYTE # 156 -PORT # 61 -BYTE # 157 -PORT # 61 -BYTE # 158 -PORT # 61 -BYTE # 159 -PORT # 61 -BYTE # 160 -PORT # 61 -BYTE # 161 -PORT # 61 -BYTE # 162 -PORT # 61 -BYTE # 163 -PORT # 61 -BYTE # 164 -PORT # 61 -BYTE # 165 -PORT # 61 -BYTE # 166 -PORT # 61 -BYTE # 167 -PORT # 61 -BYTE # 168 -PORT # 61 -BYTE # 169 -PORT # 61 -BYTE # 170 -PORT # 61 -BYTE # 171 -PORT # 61 -BYTE # 172 -PORT # 61 -BYTE # 173 -PORT # 61 -BYTE # 174 -PORT # 61 -BYTE # 175 -PORT # 61 -BYTE # 176 -PORT # 61 -BYTE # 177 -PORT # 61 -BYTE # 178 -PORT # 61 -BYTE # 179 -PORT # 61 -BYTE # 180 -PORT # 61 -BYTE # 181 -PORT # 61 -BYTE # 182 -PORT # 61 -BYTE # 183 -PORT # 61 -BYTE # 184 -PORT # 61 -BYTE # 185 -PORT # 61 -BYTE # 186 -PORT # 61 -BYTE # 187 -PORT # 61 -BYTE # 188 -PORT # 61 -BYTE # 189 -PORT # 61 -BYTE # 190 -PORT # 61 -BYTE # 191 -PORT # 61 -BYTE # 192 -PORT # 61 -BYTE # 193 -PORT # 61 -BYTE # 194 -PORT # 61 -BYTE # 195 -PORT # 61 -BYTE # 196 -PORT # 61 -BYTE # 197 -PORT # 61 -BYTE # 198 -PORT # 61 -BYTE # 199 -PORT # 61 -BYTE # 200 -PORT # 61 -BYTE # 201 -PORT # 61 -BYTE # 202 -PORT # 61 -BYTE # 203 -PORT # 61 -BYTE # 204 -PORT # 61 -BYTE # 205 -PORT # 61 -BYTE # 206 -PORT # 61 -BYTE # 207 -PORT # 61 -BYTE # 208 -PORT # 61 -BYTE # 209 -PORT # 61 -BYTE # 210 -PORT # 61 -BYTE # 211 -PORT # 61 -BYTE # 212 -PORT # 61 -BYTE # 213 -PORT # 61 -BYTE # 214 -PORT # 61 -BYTE # 215 -PORT # 61 -BYTE # 216 -PORT # 61 -BYTE # 217 -PORT # 61 -BYTE # 218 -PORT # 61 -BYTE # 219 -PORT # 61 -BYTE # 220 -PORT # 61 -BYTE # 221 -PORT # 61 -BYTE # 222 -PORT # 61 -BYTE # 223 -PORT # 61 -BYTE # 224 -PORT # 61 -BYTE # 225 -PORT # 61 -BYTE # 226 -PORT # 61 -BYTE # 227 -PORT # 61 -BYTE # 228 -PORT # 61 -BYTE # 229 -PORT # 61 -BYTE # 230 -PORT # 61 -BYTE # 231 -PORT # 61 -BYTE # 232 -PORT # 61 -BYTE # 233 -PORT # 61 -BYTE # 234 -PORT # 61 -BYTE # 235 -PORT # 61 -BYTE # 236 -PORT # 61 -BYTE # 237 -PORT # 61 -BYTE # 238 -PORT # 61 -BYTE # 239 -PORT # 61 -BYTE # 240 -PORT # 61 -BYTE # 241 -PORT # 61 -BYTE # 242 -PORT # 61 -BYTE # 243 -PORT # 61 -BYTE # 244 -PORT # 61 -BYTE # 245 -PORT # 61 -BYTE # 246 -PORT # 61 -BYTE # 247 -PORT # 61 -BYTE # 248 -PORT # 61 -BYTE # 249 -PORT # 61 -BYTE # 250 -PORT # 61 -BYTE # 251 -PORT # 61 -BYTE # 252 -PORT # 61 -BYTE # 253 -PORT # 61 -BYTE # 254 -PORT # 61 -BYTE # 255 -PORT # 62 -BYTE # 0 -PORT # 62 -BYTE # 1 -PORT # 62 -BYTE # 2 -PORT # 62 -BYTE # 3 -PORT # 62 -BYTE # 4 -PORT # 62 -BYTE # 5 -PORT # 62 -BYTE # 6 -PORT # 62 -BYTE # 7 -PORT # 62 -BYTE # 8 -PORT # 62 -BYTE # 9 -PORT # 62 -BYTE # 10 -PORT # 62 -BYTE # 11 -PORT # 62 -BYTE # 12 -PORT # 62 -BYTE # 13 -PORT # 62 -BYTE # 14 -PORT # 62 -BYTE # 15 -PORT # 62 -BYTE # 16 -PORT # 62 -BYTE # 17 -PORT # 62 -BYTE # 18 -PORT # 62 -BYTE # 19 -PORT # 62 -BYTE # 20 -PORT # 62 -BYTE # 21 -PORT # 62 -BYTE # 22 -PORT # 62 -BYTE # 23 -PORT # 62 -BYTE # 24 -PORT # 62 -BYTE # 25 -PORT # 62 -BYTE # 26 -PORT # 62 -BYTE # 27 -PORT # 62 -BYTE # 28 -PORT # 62 -BYTE # 29 -PORT # 62 -BYTE # 30 -PORT # 62 -BYTE # 31 -PORT # 62 -BYTE # 32 -PORT # 62 -BYTE # 33 -PORT # 62 -BYTE # 34 -PORT # 62 -BYTE # 35 -PORT # 62 -BYTE # 36 -PORT # 62 -BYTE # 37 -PORT # 62 -BYTE # 38 -PORT # 62 -BYTE # 39 -PORT # 62 -BYTE # 40 -PORT # 62 -BYTE # 41 -PORT # 62 -BYTE # 42 -PORT # 62 -BYTE # 43 -PORT # 62 -BYTE # 44 -PORT # 62 -BYTE # 45 -PORT # 62 -BYTE # 46 -PORT # 62 -BYTE # 47 -PORT # 62 -BYTE # 48 -PORT # 62 -BYTE # 49 -PORT # 62 -BYTE # 50 -PORT # 62 -BYTE # 51 -PORT # 62 -BYTE # 52 -PORT # 62 -BYTE # 53 -PORT # 62 -BYTE # 54 -PORT # 62 -BYTE # 55 -PORT # 62 -BYTE # 56 -PORT # 62 -BYTE # 57 -PORT # 62 -BYTE # 58 -PORT # 62 -BYTE # 59 -PORT # 62 -BYTE # 60 -PORT # 62 -BYTE # 61 -PORT # 62 -BYTE # 62 -PORT # 62 -BYTE # 63 -PORT # 62 -BYTE # 64 -PORT # 62 -BYTE # 65 -PORT # 62 -BYTE # 66 -PORT # 62 -BYTE # 67 -PORT # 62 -BYTE # 68 -PORT # 62 -BYTE # 69 -PORT # 62 -BYTE # 70 -PORT # 62 -BYTE # 71 -PORT # 62 -BYTE # 72 -PORT # 62 -BYTE # 73 -PORT # 62 -BYTE # 74 -PORT # 62 -BYTE # 75 -PORT # 62 -BYTE # 76 -PORT # 62 -BYTE # 77 -PORT # 62 -BYTE # 78 -PORT # 62 -BYTE # 79 -PORT # 62 -BYTE # 80 -PORT # 62 -BYTE # 81 -PORT # 62 -BYTE # 82 -PORT # 62 -BYTE # 83 -PORT # 62 -BYTE # 84 -PORT # 62 -BYTE # 85 -PORT # 62 -BYTE # 86 -PORT # 62 -BYTE # 87 -PORT # 62 -BYTE # 88 -PORT # 62 -BYTE # 89 -PORT # 62 -BYTE # 90 -PORT # 62 -BYTE # 91 -PORT # 62 -BYTE # 92 -PORT # 62 -BYTE # 93 -PORT # 62 -BYTE # 94 -PORT # 62 -BYTE # 95 -PORT # 62 -BYTE # 96 -PORT # 62 -BYTE # 97 -PORT # 62 -BYTE # 98 -PORT # 62 -BYTE # 99 -PORT # 62 -BYTE # 100 -PORT # 62 -BYTE # 101 -PORT # 62 -BYTE # 102 -PORT # 62 -BYTE # 103 -PORT # 62 -BYTE # 104 -PORT # 62 -BYTE # 105 -PORT # 62 -BYTE # 106 -PORT # 62 -BYTE # 107 -PORT # 62 -BYTE # 108 -PORT # 62 -BYTE # 109 -PORT # 62 -BYTE # 110 -PORT # 62 -BYTE # 111 -PORT # 62 -BYTE # 112 -PORT # 62 -BYTE # 113 -PORT # 62 -BYTE # 114 -PORT # 62 -BYTE # 115 -PORT # 62 -BYTE # 116 -PORT # 62 -BYTE # 117 -PORT # 62 -BYTE # 118 -PORT # 62 -BYTE # 119 -PORT # 62 -BYTE # 120 -PORT # 62 -BYTE # 121 -PORT # 62 -BYTE # 122 -PORT # 62 -BYTE # 123 -PORT # 62 -BYTE # 124 -PORT # 62 -BYTE # 125 -PORT # 62 -BYTE # 126 -PORT # 62 -BYTE # 127 -PORT # 62 -BYTE # 128 -PORT # 62 -BYTE # 129 -PORT # 62 -BYTE # 130 -PORT # 62 -BYTE # 131 -PORT # 62 -BYTE # 132 -PORT # 62 -BYTE # 133 -PORT # 62 -BYTE # 134 -PORT # 62 -BYTE # 135 -PORT # 62 -BYTE # 136 -PORT # 62 -BYTE # 137 -PORT # 62 -BYTE # 138 -PORT # 62 -BYTE # 139 -PORT # 62 -BYTE # 140 -PORT # 62 -BYTE # 141 -PORT # 62 -BYTE # 142 -PORT # 62 -BYTE # 143 -PORT # 62 -BYTE # 144 -PORT # 62 -BYTE # 145 -PORT # 62 -BYTE # 146 -PORT # 62 -BYTE # 147 -PORT # 62 -BYTE # 148 -PORT # 62 -BYTE # 149 -PORT # 62 -BYTE # 150 -PORT # 62 -BYTE # 151 -PORT # 62 -BYTE # 152 -PORT # 62 -BYTE # 153 -PORT # 62 -BYTE # 154 -PORT # 62 -BYTE # 155 -PORT # 62 -BYTE # 156 -PORT # 62 -BYTE # 157 -PORT # 62 -BYTE # 158 -PORT # 62 -BYTE # 159 -PORT # 62 -BYTE # 160 -PORT # 62 -BYTE # 161 -PORT # 62 -BYTE # 162 -PORT # 62 -BYTE # 163 -PORT # 62 -BYTE # 164 -PORT # 62 -BYTE # 165 -PORT # 62 -BYTE # 166 -PORT # 62 -BYTE # 167 -PORT # 62 -BYTE # 168 -PORT # 62 -BYTE # 169 -PORT # 62 -BYTE # 170 -PORT # 62 -BYTE # 171 -PORT # 62 -BYTE # 172 -PORT # 62 -BYTE # 173 -PORT # 62 -BYTE # 174 -PORT # 62 -BYTE # 175 -PORT # 62 -BYTE # 176 -PORT # 62 -BYTE # 177 -PORT # 62 -BYTE # 178 -PORT # 62 -BYTE # 179 -PORT # 62 -BYTE # 180 -PORT # 62 -BYTE # 181 -PORT # 62 -BYTE # 182 -PORT # 62 -BYTE # 183 -PORT # 62 -BYTE # 184 -PORT # 62 -BYTE # 185 -PORT # 62 -BYTE # 186 -PORT # 62 -BYTE # 187 -PORT # 62 -BYTE # 188 -PORT # 62 -BYTE # 189 -PORT # 62 -BYTE # 190 -PORT # 62 -BYTE # 191 -PORT # 62 -BYTE # 192 -PORT # 62 -BYTE # 193 -PORT # 62 -BYTE # 194 -PORT # 62 -BYTE # 195 -PORT # 62 -BYTE # 196 -PORT # 62 -BYTE # 197 -PORT # 62 -BYTE # 198 -PORT # 62 -BYTE # 199 -PORT # 62 -BYTE # 200 -PORT # 62 -BYTE # 201 -PORT # 62 -BYTE # 202 -PORT # 62 -BYTE # 203 -PORT # 62 -BYTE # 204 -PORT # 62 -BYTE # 205 -PORT # 62 -BYTE # 206 -PORT # 62 -BYTE # 207 -PORT # 62 -BYTE # 208 -PORT # 62 -BYTE # 209 -PORT # 62 -BYTE # 210 -PORT # 62 -BYTE # 211 -PORT # 62 -BYTE # 212 -PORT # 62 -BYTE # 213 -PORT # 62 -BYTE # 214 -PORT # 62 -BYTE # 215 -PORT # 62 -BYTE # 216 -PORT # 62 -BYTE # 217 -PORT # 62 -BYTE # 218 -PORT # 62 -BYTE # 219 -PORT # 62 -BYTE # 220 -PORT # 62 -BYTE # 221 -PORT # 62 -BYTE # 222 -PORT # 62 -BYTE # 223 -PORT # 62 -BYTE # 224 -PORT # 62 -BYTE # 225 -PORT # 62 -BYTE # 226 -PORT # 62 -BYTE # 227 -PORT # 62 -BYTE # 228 -PORT # 62 -BYTE # 229 -PORT # 62 -BYTE # 230 -PORT # 62 -BYTE # 231 -PORT # 62 -BYTE # 232 -PORT # 62 -BYTE # 233 -PORT # 62 -BYTE # 234 -PORT # 62 -BYTE # 235 -PORT # 62 -BYTE # 236 -PORT # 62 -BYTE # 237 -PORT # 62 -BYTE # 238 -PORT # 62 -BYTE # 239 -PORT # 62 -BYTE # 240 -PORT # 62 -BYTE # 241 -PORT # 62 -BYTE # 242 -PORT # 62 -BYTE # 243 -PORT # 62 -BYTE # 244 -PORT # 62 -BYTE # 245 -PORT # 62 -BYTE # 246 -PORT # 62 -BYTE # 247 -PORT # 62 -BYTE # 248 -PORT # 62 -BYTE # 249 -PORT # 62 -BYTE # 250 -PORT # 62 -BYTE # 251 -PORT # 62 -BYTE # 252 -PORT # 62 -BYTE # 253 -PORT # 62 -BYTE # 254 -PORT # 62 -BYTE # 255 -PORT # 63 -BYTE # 0 -PORT # 63 -BYTE # 1 -PORT # 63 -BYTE # 2 -PORT # 63 -BYTE # 3 -PORT # 63 -BYTE # 4 -PORT # 63 -BYTE # 5 -PORT # 63 -BYTE # 6 -PORT # 63 -BYTE # 7 -PORT # 63 -BYTE # 8 -PORT # 63 -BYTE # 9 -PORT # 63 -BYTE # 10 -PORT # 63 -BYTE # 11 -PORT # 63 -BYTE # 12 -PORT # 63 -BYTE # 13 -PORT # 63 -BYTE # 14 -PORT # 63 -BYTE # 15 -PORT # 63 -BYTE # 16 -PORT # 63 -BYTE # 17 -PORT # 63 -BYTE # 18 -PORT # 63 -BYTE # 19 -PORT # 63 -BYTE # 20 -PORT # 63 -BYTE # 21 -PORT # 63 -BYTE # 22 -PORT # 63 -BYTE # 23 -PORT # 63 -BYTE # 24 -PORT # 63 -BYTE # 25 -PORT # 63 -BYTE # 26 -PORT # 63 -BYTE # 27 -PORT # 63 -BYTE # 28 -PORT # 63 -BYTE # 29 -PORT # 63 -BYTE # 30 -PORT # 63 -BYTE # 31 -PORT # 63 -BYTE # 32 -PORT # 63 -BYTE # 33 -PORT # 63 -BYTE # 34 -PORT # 63 -BYTE # 35 -PORT # 63 -BYTE # 36 -PORT # 63 -BYTE # 37 -PORT # 63 -BYTE # 38 -PORT # 63 -BYTE # 39 -PORT # 63 -BYTE # 40 -PORT # 63 -BYTE # 41 -PORT # 63 -BYTE # 42 -PORT # 63 -BYTE # 43 -PORT # 63 -BYTE # 44 -PORT # 63 -BYTE # 45 -PORT # 63 -BYTE # 46 -PORT # 63 -BYTE # 47 -PORT # 63 -BYTE # 48 -PORT # 63 -BYTE # 49 -PORT # 63 -BYTE # 50 -PORT # 63 -BYTE # 51 -PORT # 63 -BYTE # 52 -PORT # 63 -BYTE # 53 -PORT # 63 -BYTE # 54 -PORT # 63 -BYTE # 55 -PORT # 63 -BYTE # 56 -PORT # 63 -BYTE # 57 -PORT # 63 -BYTE # 58 -PORT # 63 -BYTE # 59 -PORT # 63 -BYTE # 60 -PORT # 63 -BYTE # 61 -PORT # 63 -BYTE # 62 -PORT # 63 -BYTE # 63 -PORT # 63 -BYTE # 64 -PORT # 63 -BYTE # 65 -PORT # 63 -BYTE # 66 -PORT # 63 -BYTE # 67 -PORT # 63 -BYTE # 68 -PORT # 63 -BYTE # 69 -PORT # 63 -BYTE # 70 -PORT # 63 -BYTE # 71 -PORT # 63 -BYTE # 72 -PORT # 63 -BYTE # 73 -PORT # 63 -BYTE # 74 -PORT # 63 -BYTE # 75 -PORT # 63 -BYTE # 76 -PORT # 63 -BYTE # 77 -PORT # 63 -BYTE # 78 -PORT # 63 -BYTE # 79 -PORT # 63 -BYTE # 80 -PORT # 63 -BYTE # 81 -PORT # 63 -BYTE # 82 -PORT # 63 -BYTE # 83 -PORT # 63 -BYTE # 84 -PORT # 63 -BYTE # 85 -PORT # 63 -BYTE # 86 -PORT # 63 -BYTE # 87 -PORT # 63 -BYTE # 88 -PORT # 63 -BYTE # 89 -PORT # 63 -BYTE # 90 -PORT # 63 -BYTE # 91 -PORT # 63 -BYTE # 92 -PORT # 63 -BYTE # 93 -PORT # 63 -BYTE # 94 -PORT # 63 -BYTE # 95 -PORT # 63 -BYTE # 96 -PORT # 63 -BYTE # 97 -PORT # 63 -BYTE # 98 -PORT # 63 -BYTE # 99 -PORT # 63 -BYTE # 100 -PORT # 63 -BYTE # 101 -PORT # 63 -BYTE # 102 -PORT # 63 -BYTE # 103 -PORT # 63 -BYTE # 104 -PORT # 63 -BYTE # 105 -PORT # 63 -BYTE # 106 -PORT # 63 -BYTE # 107 -PORT # 63 -BYTE # 108 -PORT # 63 -BYTE # 109 -PORT # 63 -BYTE # 110 -PORT # 63 -BYTE # 111 -PORT # 63 -BYTE # 112 -PORT # 63 -BYTE # 113 -PORT # 63 -BYTE # 114 -PORT # 63 -BYTE # 115 -PORT # 63 -BYTE # 116 -PORT # 63 -BYTE # 117 -PORT # 63 -BYTE # 118 -PORT # 63 -BYTE # 119 -PORT # 63 -BYTE # 120 -PORT # 63 -BYTE # 121 -PORT # 63 -BYTE # 122 -PORT # 63 -BYTE # 123 -PORT # 63 -BYTE # 124 -PORT # 63 -BYTE # 125 -PORT # 63 -BYTE # 126 -PORT # 63 -BYTE # 127 -PORT # 63 -BYTE # 128 -PORT # 63 -BYTE # 129 -PORT # 63 -BYTE # 130 -PORT # 63 -BYTE # 131 -PORT # 63 -BYTE # 132 -PORT # 63 -BYTE # 133 -PORT # 63 -BYTE # 134 -PORT # 63 -BYTE # 135 -PORT # 63 -BYTE # 136 -PORT # 63 -BYTE # 137 -PORT # 63 -BYTE # 138 -PORT # 63 -BYTE # 139 -PORT # 63 -BYTE # 140 -PORT # 63 -BYTE # 141 -PORT # 63 -BYTE # 142 -PORT # 63 -BYTE # 143 -PORT # 63 -BYTE # 144 -PORT # 63 -BYTE # 145 -PORT # 63 -BYTE # 146 -PORT # 63 -BYTE # 147 -PORT # 63 -BYTE # 148 -PORT # 63 -BYTE # 149 -PORT # 63 -BYTE # 150 -PORT # 63 -BYTE # 151 -PORT # 63 -BYTE # 152 -PORT # 63 -BYTE # 153 -PORT # 63 -BYTE # 154 -PORT # 63 -BYTE # 155 -PORT # 63 -BYTE # 156 -PORT # 63 -BYTE # 157 -PORT # 63 -BYTE # 158 -PORT # 63 -BYTE # 159 -PORT # 63 -BYTE # 160 -PORT # 63 -BYTE # 161 -PORT # 63 -BYTE # 162 -PORT # 63 -BYTE # 163 -PORT # 63 -BYTE # 164 -PORT # 63 -BYTE # 165 -PORT # 63 -BYTE # 166 -PORT # 63 -BYTE # 167 -PORT # 63 -BYTE # 168 -PORT # 63 -BYTE # 169 -PORT # 63 -BYTE # 170 -PORT # 63 -BYTE # 171 -PORT # 63 -BYTE # 172 -PORT # 63 -BYTE # 173 -PORT # 63 -BYTE # 174 -PORT # 63 -BYTE # 175 -PORT # 63 -BYTE # 176 -PORT # 63 -BYTE # 177 -PORT # 63 -BYTE # 178 -PORT # 63 -BYTE # 179 -PORT # 63 -BYTE # 180 -PORT # 63 -BYTE # 181 -PORT # 63 -BYTE # 182 -PORT # 63 -BYTE # 183 -PORT # 63 -BYTE # 184 -PORT # 63 -BYTE # 185 -PORT # 63 -BYTE # 186 -PORT # 63 -BYTE # 187 -PORT # 63 -BYTE # 188 -PORT # 63 -BYTE # 189 -PORT # 63 -BYTE # 190 -PORT # 63 -BYTE # 191 -PORT # 63 -BYTE # 192 -PORT # 63 -BYTE # 193 -PORT # 63 -BYTE # 194 -PORT # 63 -BYTE # 195 -PORT # 63 -BYTE # 196 -PORT # 63 -BYTE # 197 -PORT # 63 -BYTE # 198 -PORT # 63 -BYTE # 199 -PORT # 63 -BYTE # 200 -PORT # 63 -BYTE # 201 -PORT # 63 -BYTE # 202 -PORT # 63 -BYTE # 203 -PORT # 63 -BYTE # 204 -PORT # 63 -BYTE # 205 -PORT # 63 -BYTE # 206 -PORT # 63 -BYTE # 207 -PORT # 63 -BYTE # 208 -PORT # 63 -BYTE # 209 -PORT # 63 -BYTE # 210 -PORT # 63 -BYTE # 211 -PORT # 63 -BYTE # 212 -PORT # 63 -BYTE # 213 -PORT # 63 -BYTE # 214 -PORT # 63 -BYTE # 215 -PORT # 63 -BYTE # 216 -PORT # 63 -BYTE # 217 -PORT # 63 -BYTE # 218 -PORT # 63 -BYTE # 219 -PORT # 63 -BYTE # 220 -PORT # 63 -BYTE # 221 -PORT # 63 -BYTE # 222 -PORT # 63 -BYTE # 223 -PORT # 63 -BYTE # 224 -PORT # 63 -BYTE # 225 -PORT # 63 -BYTE # 226 -PORT # 63 -BYTE # 227 -PORT # 63 -BYTE # 228 -PORT # 63 -BYTE # 229 -PORT # 63 -BYTE # 230 -PORT # 63 -BYTE # 231 -PORT # 63 -BYTE # 232 -PORT # 63 -BYTE # 233 -PORT # 63 -BYTE # 234 -PORT # 63 -BYTE # 235 -PORT # 63 -BYTE # 236 -PORT # 63 -BYTE # 237 -PORT # 63 -BYTE # 238 -PORT # 63 -BYTE # 239 -PORT # 63 -BYTE # 240 -PORT # 63 -BYTE # 241 -PORT # 63 -BYTE # 242 -PORT # 63 -BYTE # 243 -PORT # 63 -BYTE # 244 -PORT # 63 -BYTE # 245 -PORT # 63 -BYTE # 246 -PORT # 63 -BYTE # 247 -PORT # 63 -BYTE # 248 -PORT # 63 -BYTE # 249 -PORT # 63 -BYTE # 250 -PORT # 63 -BYTE # 251 -PORT # 63 -BYTE # 252 -PORT # 63 -BYTE # 253 -PORT # 63 -BYTE # 254 -PORT # 63 -BYTE # 255 -PORT # 64 -BYTE # 0 -PORT # 64 -BYTE # 1 -PORT # 64 -BYTE # 2 -PORT # 64 -BYTE # 3 -PORT # 64 -BYTE # 4 -PORT # 64 -BYTE # 5 -PORT # 64 -BYTE # 6 -PORT # 64 -BYTE # 7 -PORT # 64 -BYTE # 8 -PORT # 64 -BYTE # 9 -PORT # 64 -BYTE # 10 -PORT # 64 -BYTE # 11 -PORT # 64 -BYTE # 12 -PORT # 64 -BYTE # 13 -PORT # 64 -BYTE # 14 -PORT # 64 -BYTE # 15 -PORT # 64 -BYTE # 16 -PORT # 64 -BYTE # 17 -PORT # 64 -BYTE # 18 -PORT # 64 -BYTE # 19 -PORT # 64 -BYTE # 20 -PORT # 64 -BYTE # 21 -PORT # 64 -BYTE # 22 -PORT # 64 -BYTE # 23 -PORT # 64 -BYTE # 24 -PORT # 64 -BYTE # 25 -PORT # 64 -BYTE # 26 -PORT # 64 -BYTE # 27 -PORT # 64 -BYTE # 28 -PORT # 64 -BYTE # 29 -PORT # 64 -BYTE # 30 -PORT # 64 -BYTE # 31 -PORT # 64 -BYTE # 32 -PORT # 64 -BYTE # 33 -PORT # 64 -BYTE # 34 -PORT # 64 -BYTE # 35 -PORT # 64 -BYTE # 36 -PORT # 64 -BYTE # 37 -PORT # 64 -BYTE # 38 -PORT # 64 -BYTE # 39 -PORT # 64 -BYTE # 40 -PORT # 64 -BYTE # 41 -PORT # 64 -BYTE # 42 -PORT # 64 -BYTE # 43 -PORT # 64 -BYTE # 44 -PORT # 64 -BYTE # 45 -PORT # 64 -BYTE # 46 -PORT # 64 -BYTE # 47 -PORT # 64 -BYTE # 48 -PORT # 64 -BYTE # 49 -PORT # 64 -BYTE # 50 -PORT # 64 -BYTE # 51 -PORT # 64 -BYTE # 52 -PORT # 64 -BYTE # 53 -PORT # 64 -BYTE # 54 -PORT # 64 -BYTE # 55 -PORT # 64 -BYTE # 56 -PORT # 64 -BYTE # 57 -PORT # 64 -BYTE # 58 -PORT # 64 -BYTE # 59 -PORT # 64 -BYTE # 60 -PORT # 64 -BYTE # 61 -PORT # 64 -BYTE # 62 -PORT # 64 -BYTE # 63 -PORT # 64 -BYTE # 64 -PORT # 64 -BYTE # 65 -PORT # 64 -BYTE # 66 -PORT # 64 -BYTE # 67 -PORT # 64 -BYTE # 68 -PORT # 64 -BYTE # 69 -PORT # 64 -BYTE # 70 -PORT # 64 -BYTE # 71 -PORT # 64 -BYTE # 72 -PORT # 64 -BYTE # 73 -PORT # 64 -BYTE # 74 -PORT # 64 -BYTE # 75 -PORT # 64 -BYTE # 76 -PORT # 64 -BYTE # 77 -PORT # 64 -BYTE # 78 -PORT # 64 -BYTE # 79 -PORT # 64 -BYTE # 80 -PORT # 64 -BYTE # 81 -PORT # 64 -BYTE # 82 -PORT # 64 -BYTE # 83 -PORT # 64 -BYTE # 84 -PORT # 64 -BYTE # 85 -PORT # 64 -BYTE # 86 -PORT # 64 -BYTE # 87 -PORT # 64 -BYTE # 88 -PORT # 64 -BYTE # 89 -PORT # 64 -BYTE # 90 -PORT # 64 -BYTE # 91 -PORT # 64 -BYTE # 92 -PORT # 64 -BYTE # 93 -PORT # 64 -BYTE # 94 -PORT # 64 -BYTE # 95 -PORT # 64 -BYTE # 96 -PORT # 64 -BYTE # 97 -PORT # 64 -BYTE # 98 -PORT # 64 -BYTE # 99 -PORT # 64 -BYTE # 100 -PORT # 64 -BYTE # 101 -PORT # 64 -BYTE # 102 -PORT # 64 -BYTE # 103 -PORT # 64 -BYTE # 104 -PORT # 64 -BYTE # 105 -PORT # 64 -BYTE # 106 -PORT # 64 -BYTE # 107 -PORT # 64 -BYTE # 108 -PORT # 64 -BYTE # 109 -PORT # 64 -BYTE # 110 -PORT # 64 -BYTE # 111 -PORT # 64 -BYTE # 112 -PORT # 64 -BYTE # 113 -PORT # 64 -BYTE # 114 -PORT # 64 -BYTE # 115 -PORT # 64 -BYTE # 116 -PORT # 64 -BYTE # 117 -PORT # 64 -BYTE # 118 -PORT # 64 -BYTE # 119 -PORT # 64 -BYTE # 120 -PORT # 64 -BYTE # 121 -PORT # 64 -BYTE # 122 -PORT # 64 -BYTE # 123 -PORT # 64 -BYTE # 124 -PORT # 64 -BYTE # 125 -PORT # 64 -BYTE # 126 -PORT # 64 -BYTE # 127 -PORT # 64 -BYTE # 128 -PORT # 64 -BYTE # 129 -PORT # 64 -BYTE # 130 -PORT # 64 -BYTE # 131 -PORT # 64 -BYTE # 132 -PORT # 64 -BYTE # 133 -PORT # 64 -BYTE # 134 -PORT # 64 -BYTE # 135 -PORT # 64 -BYTE # 136 -PORT # 64 -BYTE # 137 -PORT # 64 -BYTE # 138 -PORT # 64 -BYTE # 139 -PORT # 64 -BYTE # 140 -PORT # 64 -BYTE # 141 -PORT # 64 -BYTE # 142 -PORT # 64 -BYTE # 143 -PORT # 64 -BYTE # 144 -PORT # 64 -BYTE # 145 -PORT # 64 -BYTE # 146 -PORT # 64 -BYTE # 147 -PORT # 64 -BYTE # 148 -PORT # 64 -BYTE # 149 -PORT # 64 -BYTE # 150 -PORT # 64 -BYTE # 151 -PORT # 64 -BYTE # 152 -PORT # 64 -BYTE # 153 -PORT # 64 -BYTE # 154 -PORT # 64 -BYTE # 155 -PORT # 64 -BYTE # 156 -PORT # 64 -BYTE # 157 -PORT # 64 -BYTE # 158 -PORT # 64 -BYTE # 159 -PORT # 64 -BYTE # 160 -PORT # 64 -BYTE # 161 -PORT # 64 -BYTE # 162 -PORT # 64 -BYTE # 163 -PORT # 64 -BYTE # 164 -PORT # 64 -BYTE # 165 -PORT # 64 -BYTE # 166 -PORT # 64 -BYTE # 167 -PORT # 64 -BYTE # 168 -PORT # 64 -BYTE # 169 -PORT # 64 -BYTE # 170 -PORT # 64 -BYTE # 171 -PORT # 64 -BYTE # 172 -PORT # 64 -BYTE # 173 -PORT # 64 -BYTE # 174 -PORT # 64 -BYTE # 175 -PORT # 64 -BYTE # 176 -PORT # 64 -BYTE # 177 -PORT # 64 -BYTE # 178 -PORT # 64 -BYTE # 179 -PORT # 64 -BYTE # 180 -PORT # 64 -BYTE # 181 -PORT # 64 -BYTE # 182 -PORT # 64 -BYTE # 183 -PORT # 64 -BYTE # 184 -PORT # 64 -BYTE # 185 -PORT # 64 -BYTE # 186 -PORT # 64 -BYTE # 187 -PORT # 64 -BYTE # 188 -PORT # 64 -BYTE # 189 -PORT # 64 -BYTE # 190 -PORT # 64 -BYTE # 191 -PORT # 64 -BYTE # 192 -PORT # 64 -BYTE # 193 -PORT # 64 -BYTE # 194 -PORT # 64 -BYTE # 195 -PORT # 64 -BYTE # 196 -PORT # 64 -BYTE # 197 -PORT # 64 -BYTE # 198 -PORT # 64 -BYTE # 199 -PORT # 64 -BYTE # 200 -PORT # 64 -BYTE # 201 -PORT # 64 -BYTE # 202 -PORT # 64 -BYTE # 203 -PORT # 64 -BYTE # 204 -PORT # 64 -BYTE # 205 -PORT # 64 -BYTE # 206 -PORT # 64 -BYTE # 207 -PORT # 64 -BYTE # 208 -PORT # 64 -BYTE # 209 -PORT # 64 -BYTE # 210 -PORT # 64 -BYTE # 211 -PORT # 64 -BYTE # 212 -PORT # 64 -BYTE # 213 -PORT # 64 -BYTE # 214 -PORT # 64 -BYTE # 215 -PORT # 64 -BYTE # 216 -PORT # 64 -BYTE # 217 -PORT # 64 -BYTE # 218 -PORT # 64 -BYTE # 219 -PORT # 64 -BYTE # 220 -PORT # 64 -BYTE # 221 -PORT # 64 -BYTE # 222 -PORT # 64 -BYTE # 223 -PORT # 64 -BYTE # 224 -PORT # 64 -BYTE # 225 -PORT # 64 -BYTE # 226 -PORT # 64 -BYTE # 227 -PORT # 64 -BYTE # 228 -PORT # 64 -BYTE # 229 -PORT # 64 -BYTE # 230 -PORT # 64 -BYTE # 231 -PORT # 64 -BYTE # 232 -PORT # 64 -BYTE # 233 -PORT # 64 -BYTE # 234 -PORT # 64 -BYTE # 235 -PORT # 64 -BYTE # 236 -PORT # 64 -BYTE # 237 -PORT # 64 -BYTE # 238 -PORT # 64 -BYTE # 239 -PORT # 64 -BYTE # 240 -PORT # 64 -BYTE # 241 -PORT # 64 -BYTE # 242 -PORT # 64 -BYTE # 243 -PORT # 64 -BYTE # 244 -PORT # 64 -BYTE # 245 -PORT # 64 -BYTE # 246 -PORT # 64 -BYTE # 247 -PORT # 64 -BYTE # 248 -PORT # 64 -BYTE # 249 -PORT # 64 -BYTE # 250 -PORT # 64 -BYTE # 251 -PORT # 64 -BYTE # 252 -PORT # 64 -BYTE # 253 -PORT # 64 -BYTE # 254 -PORT # 64 -BYTE # 255 -PORT # 65 -BYTE # 0 -PORT # 65 -BYTE # 1 -PORT # 65 -BYTE # 2 -PORT # 65 -BYTE # 3 -PORT # 65 -BYTE # 4 -PORT # 65 -BYTE # 5 -PORT # 65 -BYTE # 6 -PORT # 65 -BYTE # 7 -PORT # 65 -BYTE # 8 -PORT # 65 -BYTE # 9 -PORT # 65 -BYTE # 10 -PORT # 65 -BYTE # 11 -PORT # 65 -BYTE # 12 -PORT # 65 -BYTE # 13 -PORT # 65 -BYTE # 14 -PORT # 65 -BYTE # 15 -PORT # 65 -BYTE # 16 -PORT # 65 -BYTE # 17 -PORT # 65 -BYTE # 18 -PORT # 65 -BYTE # 19 -PORT # 65 -BYTE # 20 -PORT # 65 -BYTE # 21 -PORT # 65 -BYTE # 22 -PORT # 65 -BYTE # 23 -PORT # 65 -BYTE # 24 -PORT # 65 -BYTE # 25 -PORT # 65 -BYTE # 26 -PORT # 65 -BYTE # 27 -PORT # 65 -BYTE # 28 -PORT # 65 -BYTE # 29 -PORT # 65 -BYTE # 30 -PORT # 65 -BYTE # 31 -PORT # 65 -BYTE # 32 -PORT # 65 -BYTE # 33 -PORT # 65 -BYTE # 34 -PORT # 65 -BYTE # 35 -PORT # 65 -BYTE # 36 -PORT # 65 -BYTE # 37 -PORT # 65 -BYTE # 38 -PORT # 65 -BYTE # 39 -PORT # 65 -BYTE # 40 -PORT # 65 -BYTE # 41 -PORT # 65 -BYTE # 42 -PORT # 65 -BYTE # 43 -PORT # 65 -BYTE # 44 -PORT # 65 -BYTE # 45 -PORT # 65 -BYTE # 46 -PORT # 65 -BYTE # 47 -PORT # 65 -BYTE # 48 -PORT # 65 -BYTE # 49 -PORT # 65 -BYTE # 50 -PORT # 65 -BYTE # 51 -PORT # 65 -BYTE # 52 -PORT # 65 -BYTE # 53 -PORT # 65 -BYTE # 54 -PORT # 65 -BYTE # 55 -PORT # 65 -BYTE # 56 -PORT # 65 -BYTE # 57 -PORT # 65 -BYTE # 58 -PORT # 65 -BYTE # 59 -PORT # 65 -BYTE # 60 -PORT # 65 -BYTE # 61 -PORT # 65 -BYTE # 62 -PORT # 65 -BYTE # 63 -PORT # 65 -BYTE # 64 -PORT # 65 -BYTE # 65 -PORT # 65 -BYTE # 66 -PORT # 65 -BYTE # 67 -PORT # 65 -BYTE # 68 -PORT # 65 -BYTE # 69 -PORT # 65 -BYTE # 70 -PORT # 65 -BYTE # 71 -PORT # 65 -BYTE # 72 -PORT # 65 -BYTE # 73 -PORT # 65 -BYTE # 74 -PORT # 65 -BYTE # 75 -PORT # 65 -BYTE # 76 -PORT # 65 -BYTE # 77 -PORT # 65 -BYTE # 78 -PORT # 65 -BYTE # 79 -PORT # 65 -BYTE # 80 -PORT # 65 -BYTE # 81 -PORT # 65 -BYTE # 82 -PORT # 65 -BYTE # 83 -PORT # 65 -BYTE # 84 -PORT # 65 -BYTE # 85 -PORT # 65 -BYTE # 86 -PORT # 65 -BYTE # 87 -PORT # 65 -BYTE # 88 -PORT # 65 -BYTE # 89 -PORT # 65 -BYTE # 90 -PORT # 65 -BYTE # 91 -PORT # 65 -BYTE # 92 -PORT # 65 -BYTE # 93 -PORT # 65 -BYTE # 94 -PORT # 65 -BYTE # 95 -PORT # 65 -BYTE # 96 -PORT # 65 -BYTE # 97 -PORT # 65 -BYTE # 98 -PORT # 65 -BYTE # 99 -PORT # 65 -BYTE # 100 -PORT # 65 -BYTE # 101 -PORT # 65 -BYTE # 102 -PORT # 65 -BYTE # 103 -PORT # 65 -BYTE # 104 -PORT # 65 -BYTE # 105 -PORT # 65 -BYTE # 106 -PORT # 65 -BYTE # 107 -PORT # 65 -BYTE # 108 -PORT # 65 -BYTE # 109 -PORT # 65 -BYTE # 110 -PORT # 65 -BYTE # 111 -PORT # 65 -BYTE # 112 -PORT # 65 -BYTE # 113 -PORT # 65 -BYTE # 114 -PORT # 65 -BYTE # 115 -PORT # 65 -BYTE # 116 -PORT # 65 -BYTE # 117 -PORT # 65 -BYTE # 118 -PORT # 65 -BYTE # 119 -PORT # 65 -BYTE # 120 -PORT # 65 -BYTE # 121 -PORT # 65 -BYTE # 122 -PORT # 65 -BYTE # 123 -PORT # 65 -BYTE # 124 -PORT # 65 -BYTE # 125 -PORT # 65 -BYTE # 126 -PORT # 65 -BYTE # 127 -PORT # 65 -BYTE # 128 -PORT # 65 -BYTE # 129 -PORT # 65 -BYTE # 130 -PORT # 65 -BYTE # 131 -PORT # 65 -BYTE # 132 -PORT # 65 -BYTE # 133 -PORT # 65 -BYTE # 134 -PORT # 65 -BYTE # 135 -PORT # 65 -BYTE # 136 -PORT # 65 -BYTE # 137 -PORT # 65 -BYTE # 138 -PORT # 65 -BYTE # 139 -PORT # 65 -BYTE # 140 -PORT # 65 -BYTE # 141 -PORT # 65 -BYTE # 142 -PORT # 65 -BYTE # 143 -PORT # 65 -BYTE # 144 -PORT # 65 -BYTE # 145 -PORT # 65 -BYTE # 146 -PORT # 65 -BYTE # 147 -PORT # 65 -BYTE # 148 -PORT # 65 -BYTE # 149 -PORT # 65 -BYTE # 150 -PORT # 65 -BYTE # 151 -PORT # 65 -BYTE # 152 -PORT # 65 -BYTE # 153 -PORT # 65 -BYTE # 154 -PORT # 65 -BYTE # 155 -PORT # 65 -BYTE # 156 -PORT # 65 -BYTE # 157 -PORT # 65 -BYTE # 158 -PORT # 65 -BYTE # 159 -PORT # 65 -BYTE # 160 -PORT # 65 -BYTE # 161 -PORT # 65 -BYTE # 162 -PORT # 65 -BYTE # 163 -PORT # 65 -BYTE # 164 -PORT # 65 -BYTE # 165 -PORT # 65 -BYTE # 166 -PORT # 65 -BYTE # 167 -PORT # 65 -BYTE # 168 -PORT # 65 -BYTE # 169 -PORT # 65 -BYTE # 170 -PORT # 65 -BYTE # 171 -PORT # 65 -BYTE # 172 -PORT # 65 -BYTE # 173 -PORT # 65 -BYTE # 174 -PORT # 65 -BYTE # 175 -PORT # 65 -BYTE # 176 -PORT # 65 -BYTE # 177 -PORT # 65 -BYTE # 178 -PORT # 65 -BYTE # 179 -PORT # 65 -BYTE # 180 -PORT # 65 -BYTE # 181 -PORT # 65 -BYTE # 182 -PORT # 65 -BYTE # 183 -PORT # 65 -BYTE # 184 -PORT # 65 -BYTE # 185 -PORT # 65 -BYTE # 186 -PORT # 65 -BYTE # 187 -PORT # 65 -BYTE # 188 -PORT # 65 -BYTE # 189 -PORT # 65 -BYTE # 190 -PORT # 65 -BYTE # 191 -PORT # 65 -BYTE # 192 -PORT # 65 -BYTE # 193 -PORT # 65 -BYTE # 194 -PORT # 65 -BYTE # 195 -PORT # 65 -BYTE # 196 -PORT # 65 -BYTE # 197 -PORT # 65 -BYTE # 198 -PORT # 65 -BYTE # 199 -PORT # 65 -BYTE # 200 -PORT # 65 -BYTE # 201 -PORT # 65 -BYTE # 202 -PORT # 65 -BYTE # 203 -PORT # 65 -BYTE # 204 -PORT # 65 -BYTE # 205 -PORT # 65 -BYTE # 206 -PORT # 65 -BYTE # 207 -PORT # 65 -BYTE # 208 -PORT # 65 -BYTE # 209 -PORT # 65 -BYTE # 210 -PORT # 65 -BYTE # 211 -PORT # 65 -BYTE # 212 -PORT # 65 -BYTE # 213 -PORT # 65 -BYTE # 214 -PORT # 65 -BYTE # 215 -PORT # 65 -BYTE # 216 -PORT # 65 -BYTE # 217 -PORT # 65 -BYTE # 218 -PORT # 65 -BYTE # 219 -PORT # 65 -BYTE # 220 -PORT # 65 -BYTE # 221 -PORT # 65 -BYTE # 222 -PORT # 65 -BYTE # 223 -PORT # 65 -BYTE # 224 -PORT # 65 -BYTE # 225 -PORT # 65 -BYTE # 226 -PORT # 65 -BYTE # 227 -PORT # 65 -BYTE # 228 -PORT # 65 -BYTE # 229 -PORT # 65 -BYTE # 230 -PORT # 65 -BYTE # 231 -PORT # 65 -BYTE # 232 -PORT # 65 -BYTE # 233 -PORT # 65 -BYTE # 234 -PORT # 65 -BYTE # 235 -PORT # 65 -BYTE # 236 -PORT # 65 -BYTE # 237 -PORT # 65 -BYTE # 238 -PORT # 65 -BYTE # 239 -PORT # 65 -BYTE # 240 -PORT # 65 -BYTE # 241 -PORT # 65 -BYTE # 242 -PORT # 65 -BYTE # 243 -PORT # 65 -BYTE # 244 -PORT # 65 -BYTE # 245 -PORT # 65 -BYTE # 246 -PORT # 65 -BYTE # 247 -PORT # 65 -BYTE # 248 -PORT # 65 -BYTE # 249 -PORT # 65 -BYTE # 250 -PORT # 65 -BYTE # 251 -PORT # 65 -BYTE # 252 -PORT # 65 -BYTE # 253 -PORT # 65 -BYTE # 254 -PORT # 65 -BYTE # 255 -PORT # 66 -BYTE # 0 -PORT # 66 -BYTE # 1 -PORT # 66 -BYTE # 2 -PORT # 66 -BYTE # 3 -PORT # 66 -BYTE # 4 -PORT # 66 -BYTE # 5 -PORT # 66 -BYTE # 6 -PORT # 66 -BYTE # 7 -PORT # 66 -BYTE # 8 -PORT # 66 -BYTE # 9 -PORT # 66 -BYTE # 10 -PORT # 66 -BYTE # 11 -PORT # 66 -BYTE # 12 -PORT # 66 -BYTE # 13 -PORT # 66 -BYTE # 14 -PORT # 66 -BYTE # 15 -PORT # 66 -BYTE # 16 -PORT # 66 -BYTE # 17 -PORT # 66 -BYTE # 18 -PORT # 66 -BYTE # 19 -PORT # 66 -BYTE # 20 -PORT # 66 -BYTE # 21 -PORT # 66 -BYTE # 22 -PORT # 66 -BYTE # 23 -PORT # 66 -BYTE # 24 -PORT # 66 -BYTE # 25 -PORT # 66 -BYTE # 26 -PORT # 66 -BYTE # 27 -PORT # 66 -BYTE # 28 -PORT # 66 -BYTE # 29 -PORT # 66 -BYTE # 30 -PORT # 66 -BYTE # 31 -PORT # 66 -BYTE # 32 -PORT # 66 -BYTE # 33 -PORT # 66 -BYTE # 34 -PORT # 66 -BYTE # 35 -PORT # 66 -BYTE # 36 -PORT # 66 -BYTE # 37 -PORT # 66 -BYTE # 38 -PORT # 66 -BYTE # 39 -PORT # 66 -BYTE # 40 -PORT # 66 -BYTE # 41 -PORT # 66 -BYTE # 42 -PORT # 66 -BYTE # 43 -PORT # 66 -BYTE # 44 -PORT # 66 -BYTE # 45 -PORT # 66 -BYTE # 46 -PORT # 66 -BYTE # 47 -PORT # 66 -BYTE # 48 -PORT # 66 -BYTE # 49 -PORT # 66 -BYTE # 50 -PORT # 66 -BYTE # 51 -PORT # 66 -BYTE # 52 -PORT # 66 -BYTE # 53 -PORT # 66 -BYTE # 54 -PORT # 66 -BYTE # 55 -PORT # 66 -BYTE # 56 -PORT # 66 -BYTE # 57 -PORT # 66 -BYTE # 58 -PORT # 66 -BYTE # 59 -PORT # 66 -BYTE # 60 -PORT # 66 -BYTE # 61 -PORT # 66 -BYTE # 62 -PORT # 66 -BYTE # 63 -PORT # 66 -BYTE # 64 -PORT # 66 -BYTE # 65 -PORT # 66 -BYTE # 66 -PORT # 66 -BYTE # 67 -PORT # 66 -BYTE # 68 -PORT # 66 -BYTE # 69 -PORT # 66 -BYTE # 70 -PORT # 66 -BYTE # 71 -PORT # 66 -BYTE # 72 -PORT # 66 -BYTE # 73 -PORT # 66 -BYTE # 74 -PORT # 66 -BYTE # 75 -PORT # 66 -BYTE # 76 -PORT # 66 -BYTE # 77 -PORT # 66 -BYTE # 78 -PORT # 66 -BYTE # 79 -PORT # 66 -BYTE # 80 -PORT # 66 -BYTE # 81 -PORT # 66 -BYTE # 82 -PORT # 66 -BYTE # 83 -PORT # 66 -BYTE # 84 -PORT # 66 -BYTE # 85 -PORT # 66 -BYTE # 86 -PORT # 66 -BYTE # 87 -PORT # 66 -BYTE # 88 -PORT # 66 -BYTE # 89 -PORT # 66 -BYTE # 90 -PORT # 66 -BYTE # 91 -PORT # 66 -BYTE # 92 -PORT # 66 -BYTE # 93 -PORT # 66 -BYTE # 94 -PORT # 66 -BYTE # 95 -PORT # 66 -BYTE # 96 -PORT # 66 -BYTE # 97 -PORT # 66 -BYTE # 98 -PORT # 66 -BYTE # 99 -PORT # 66 -BYTE # 100 -PORT # 66 -BYTE # 101 -PORT # 66 -BYTE # 102 -PORT # 66 -BYTE # 103 -PORT # 66 -BYTE # 104 -PORT # 66 -BYTE # 105 -PORT # 66 -BYTE # 106 -PORT # 66 -BYTE # 107 -PORT # 66 -BYTE # 108 -PORT # 66 -BYTE # 109 -PORT # 66 -BYTE # 110 -PORT # 66 -BYTE # 111 -PORT # 66 -BYTE # 112 -PORT # 66 -BYTE # 113 -PORT # 66 -BYTE # 114 -PORT # 66 -BYTE # 115 -PORT # 66 -BYTE # 116 -PORT # 66 -BYTE # 117 -PORT # 66 -BYTE # 118 -PORT # 66 -BYTE # 119 -PORT # 66 -BYTE # 120 -PORT # 66 -BYTE # 121 -PORT # 66 -BYTE # 122 -PORT # 66 -BYTE # 123 -PORT # 66 -BYTE # 124 -PORT # 66 -BYTE # 125 -PORT # 66 -BYTE # 126 -PORT # 66 -BYTE # 127 -PORT # 66 -BYTE # 128 -PORT # 66 -BYTE # 129 -PORT # 66 -BYTE # 130 -PORT # 66 -BYTE # 131 -PORT # 66 -BYTE # 132 -PORT # 66 -BYTE # 133 -PORT # 66 -BYTE # 134 -PORT # 66 -BYTE # 135 -PORT # 66 -BYTE # 136 -PORT # 66 -BYTE # 137 -PORT # 66 -BYTE # 138 -PORT # 66 -BYTE # 139 -PORT # 66 -BYTE # 140 -PORT # 66 -BYTE # 141 -PORT # 66 -BYTE # 142 -PORT # 66 -BYTE # 143 -PORT # 66 -BYTE # 144 -PORT # 66 -BYTE # 145 -PORT # 66 -BYTE # 146 -PORT # 66 -BYTE # 147 -PORT # 66 -BYTE # 148 -PORT # 66 -BYTE # 149 -PORT # 66 -BYTE # 150 -PORT # 66 -BYTE # 151 -PORT # 66 -BYTE # 152 -PORT # 66 -BYTE # 153 -PORT # 66 -BYTE # 154 -PORT # 66 -BYTE # 155 -PORT # 66 -BYTE # 156 -PORT # 66 -BYTE # 157 -PORT # 66 -BYTE # 158 -PORT # 66 -BYTE # 159 -PORT # 66 -BYTE # 160 -PORT # 66 -BYTE # 161 -PORT # 66 -BYTE # 162 -PORT # 66 -BYTE # 163 -PORT # 66 -BYTE # 164 -PORT # 66 -BYTE # 165 -PORT # 66 -BYTE # 166 -PORT # 66 -BYTE # 167 -PORT # 66 -BYTE # 168 -PORT # 66 -BYTE # 169 -PORT # 66 -BYTE # 170 -PORT # 66 -BYTE # 171 -PORT # 66 -BYTE # 172 -PORT # 66 -BYTE # 173 -PORT # 66 -BYTE # 174 -PORT # 66 -BYTE # 175 -PORT # 66 -BYTE # 176 -PORT # 66 -BYTE # 177 -PORT # 66 -BYTE # 178 -PORT # 66 -BYTE # 179 -PORT # 66 -BYTE # 180 -PORT # 66 -BYTE # 181 -PORT # 66 -BYTE # 182 -PORT # 66 -BYTE # 183 -PORT # 66 -BYTE # 184 -PORT # 66 -BYTE # 185 -PORT # 66 -BYTE # 186 -PORT # 66 -BYTE # 187 -PORT # 66 -BYTE # 188 -PORT # 66 -BYTE # 189 -PORT # 66 -BYTE # 190 -PORT # 66 -BYTE # 191 -PORT # 66 -BYTE # 192 -PORT # 66 -BYTE # 193 -PORT # 66 -BYTE # 194 -PORT # 66 -BYTE # 195 -PORT # 66 -BYTE # 196 -PORT # 66 -BYTE # 197 -PORT # 66 -BYTE # 198 -PORT # 66 -BYTE # 199 -PORT # 66 -BYTE # 200 -PORT # 66 -BYTE # 201 -PORT # 66 -BYTE # 202 -PORT # 66 -BYTE # 203 -PORT # 66 -BYTE # 204 -PORT # 66 -BYTE # 205 -PORT # 66 -BYTE # 206 -PORT # 66 -BYTE # 207 -PORT # 66 -BYTE # 208 -PORT # 66 -BYTE # 209 -PORT # 66 -BYTE # 210 -PORT # 66 -BYTE # 211 -PORT # 66 -BYTE # 212 -PORT # 66 -BYTE # 213 -PORT # 66 -BYTE # 214 -PORT # 66 -BYTE # 215 -PORT # 66 -BYTE # 216 -PORT # 66 -BYTE # 217 -PORT # 66 -BYTE # 218 -PORT # 66 -BYTE # 219 -PORT # 66 -BYTE # 220 -PORT # 66 -BYTE # 221 -PORT # 66 -BYTE # 222 -PORT # 66 -BYTE # 223 -PORT # 66 -BYTE # 224 -PORT # 66 -BYTE # 225 -PORT # 66 -BYTE # 226 -PORT # 66 -BYTE # 227 -PORT # 66 -BYTE # 228 -PORT # 66 -BYTE # 229 -PORT # 66 -BYTE # 230 -PORT # 66 -BYTE # 231 -PORT # 66 -BYTE # 232 -PORT # 66 -BYTE # 233 -PORT # 66 -BYTE # 234 -PORT # 66 -BYTE # 235 -PORT # 66 -BYTE # 236 -PORT # 66 -BYTE # 237 -PORT # 66 -BYTE # 238 -PORT # 66 -BYTE # 239 -PORT # 66 -BYTE # 240 -PORT # 66 -BYTE # 241 -PORT # 66 -BYTE # 242 -PORT # 66 -BYTE # 243 -PORT # 66 -BYTE # 244 -PORT # 66 -BYTE # 245 -PORT # 66 -BYTE # 246 -PORT # 66 -BYTE # 247 -PORT # 66 -BYTE # 248 -PORT # 66 -BYTE # 249 -PORT # 66 -BYTE # 250 -PORT # 66 -BYTE # 251 -PORT # 66 -BYTE # 252 -PORT # 66 -BYTE # 253 -PORT # 66 -BYTE # 254 -PORT # 66 -BYTE # 255 -PORT # 67 -BYTE # 0 -PORT # 67 -BYTE # 1 -PORT # 67 -BYTE # 2 -PORT # 67 -BYTE # 3 -PORT # 67 -BYTE # 4 -PORT # 67 -BYTE # 5 -PORT # 67 -BYTE # 6 -PORT # 67 -BYTE # 7 -PORT # 67 -BYTE # 8 -PORT # 67 -BYTE # 9 -PORT # 67 -BYTE # 10 -PORT # 67 -BYTE # 11 -PORT # 67 -BYTE # 12 -PORT # 67 -BYTE # 13 -PORT # 67 -BYTE # 14 -PORT # 67 -BYTE # 15 -PORT # 67 -BYTE # 16 -PORT # 67 -BYTE # 17 -PORT # 67 -BYTE # 18 -PORT # 67 -BYTE # 19 -PORT # 67 -BYTE # 20 -PORT # 67 -BYTE # 21 -PORT # 67 -BYTE # 22 -PORT # 67 -BYTE # 23 -PORT # 67 -BYTE # 24 -PORT # 67 -BYTE # 25 -PORT # 67 -BYTE # 26 -PORT # 67 -BYTE # 27 -PORT # 67 -BYTE # 28 -PORT # 67 -BYTE # 29 -PORT # 67 -BYTE # 30 -PORT # 67 -BYTE # 31 -PORT # 67 -BYTE # 32 -PORT # 67 -BYTE # 33 -PORT # 67 -BYTE # 34 -PORT # 67 -BYTE # 35 -PORT # 67 -BYTE # 36 -PORT # 67 -BYTE # 37 -PORT # 67 -BYTE # 38 -PORT # 67 -BYTE # 39 -PORT # 67 -BYTE # 40 -PORT # 67 -BYTE # 41 -PORT # 67 -BYTE # 42 -PORT # 67 -BYTE # 43 -PORT # 67 -BYTE # 44 -PORT # 67 -BYTE # 45 -PORT # 67 -BYTE # 46 -PORT # 67 -BYTE # 47 -PORT # 67 -BYTE # 48 -PORT # 67 -BYTE # 49 -PORT # 67 -BYTE # 50 -PORT # 67 -BYTE # 51 -PORT # 67 -BYTE # 52 -PORT # 67 -BYTE # 53 -PORT # 67 -BYTE # 54 -PORT # 67 -BYTE # 55 -PORT # 67 -BYTE # 56 -PORT # 67 -BYTE # 57 -PORT # 67 -BYTE # 58 -PORT # 67 -BYTE # 59 -PORT # 67 -BYTE # 60 -PORT # 67 -BYTE # 61 -PORT # 67 -BYTE # 62 -PORT # 67 -BYTE # 63 -PORT # 67 -BYTE # 64 -PORT # 67 -BYTE # 65 -PORT # 67 -BYTE # 66 -PORT # 67 -BYTE # 67 -PORT # 67 -BYTE # 68 -PORT # 67 -BYTE # 69 -PORT # 67 -BYTE # 70 -PORT # 67 -BYTE # 71 -PORT # 67 -BYTE # 72 -PORT # 67 -BYTE # 73 -PORT # 67 -BYTE # 74 -PORT # 67 -BYTE # 75 -PORT # 67 -BYTE # 76 -PORT # 67 -BYTE # 77 -PORT # 67 -BYTE # 78 -PORT # 67 -BYTE # 79 -PORT # 67 -BYTE # 80 -PORT # 67 -BYTE # 81 -PORT # 67 -BYTE # 82 -PORT # 67 -BYTE # 83 -PORT # 67 -BYTE # 84 -PORT # 67 -BYTE # 85 -PORT # 67 -BYTE # 86 -PORT # 67 -BYTE # 87 -PORT # 67 -BYTE # 88 -PORT # 67 -BYTE # 89 -PORT # 67 -BYTE # 90 -PORT # 67 -BYTE # 91 -PORT # 67 -BYTE # 92 -PORT # 67 -BYTE # 93 -PORT # 67 -BYTE # 94 -PORT # 67 -BYTE # 95 -PORT # 67 -BYTE # 96 -PORT # 67 -BYTE # 97 -PORT # 67 -BYTE # 98 -PORT # 67 -BYTE # 99 -PORT # 67 -BYTE # 100 -PORT # 67 -BYTE # 101 -PORT # 67 -BYTE # 102 -PORT # 67 -BYTE # 103 -PORT # 67 -BYTE # 104 -PORT # 67 -BYTE # 105 -PORT # 67 -BYTE # 106 -PORT # 67 -BYTE # 107 -PORT # 67 -BYTE # 108 -PORT # 67 -BYTE # 109 -PORT # 67 -BYTE # 110 -PORT # 67 -BYTE # 111 -PORT # 67 -BYTE # 112 -PORT # 67 -BYTE # 113 -PORT # 67 -BYTE # 114 -PORT # 67 -BYTE # 115 -PORT # 67 -BYTE # 116 -PORT # 67 -BYTE # 117 -PORT # 67 -BYTE # 118 -PORT # 67 -BYTE # 119 -PORT # 67 -BYTE # 120 -PORT # 67 -BYTE # 121 -PORT # 67 -BYTE # 122 -PORT # 67 -BYTE # 123 -PORT # 67 -BYTE # 124 -PORT # 67 -BYTE # 125 -PORT # 67 -BYTE # 126 -PORT # 67 -BYTE # 127 -PORT # 67 -BYTE # 128 -PORT # 67 -BYTE # 129 -PORT # 67 -BYTE # 130 -PORT # 67 -BYTE # 131 -PORT # 67 -BYTE # 132 -PORT # 67 -BYTE # 133 -PORT # 67 -BYTE # 134 -PORT # 67 -BYTE # 135 -PORT # 67 -BYTE # 136 -PORT # 67 -BYTE # 137 -PORT # 67 -BYTE # 138 -PORT # 67 -BYTE # 139 -PORT # 67 -BYTE # 140 -PORT # 67 -BYTE # 141 -PORT # 67 -BYTE # 142 -PORT # 67 -BYTE # 143 -PORT # 67 -BYTE # 144 -PORT # 67 -BYTE # 145 -PORT # 67 -BYTE # 146 -PORT # 67 -BYTE # 147 -PORT # 67 -BYTE # 148 -PORT # 67 -BYTE # 149 -PORT # 67 -BYTE # 150 -PORT # 67 -BYTE # 151 -PORT # 67 -BYTE # 152 -PORT # 67 -BYTE # 153 -PORT # 67 -BYTE # 154 -PORT # 67 -BYTE # 155 -PORT # 67 -BYTE # 156 -PORT # 67 -BYTE # 157 -PORT # 67 -BYTE # 158 -PORT # 67 -BYTE # 159 -PORT # 67 -BYTE # 160 -PORT # 67 -BYTE # 161 -PORT # 67 -BYTE # 162 -PORT # 67 -BYTE # 163 -PORT # 67 -BYTE # 164 -PORT # 67 -BYTE # 165 -PORT # 67 -BYTE # 166 -PORT # 67 -BYTE # 167 -PORT # 67 -BYTE # 168 -PORT # 67 -BYTE # 169 -PORT # 67 -BYTE # 170 -PORT # 67 -BYTE # 171 -PORT # 67 -BYTE # 172 -PORT # 67 -BYTE # 173 -PORT # 67 -BYTE # 174 -PORT # 67 -BYTE # 175 -PORT # 67 -BYTE # 176 -PORT # 67 -BYTE # 177 -PORT # 67 -BYTE # 178 -PORT # 67 -BYTE # 179 -PORT # 67 -BYTE # 180 -PORT # 67 -BYTE # 181 -PORT # 67 -BYTE # 182 -PORT # 67 -BYTE # 183 -PORT # 67 -BYTE # 184 -PORT # 67 -BYTE # 185 -PORT # 67 -BYTE # 186 -PORT # 67 -BYTE # 187 -PORT # 67 -BYTE # 188 -PORT # 67 -BYTE # 189 -PORT # 67 -BYTE # 190 -PORT # 67 -BYTE # 191 -PORT # 67 -BYTE # 192 -PORT # 67 -BYTE # 193 -PORT # 67 -BYTE # 194 -PORT # 67 -BYTE # 195 -PORT # 67 -BYTE # 196 -PORT # 67 -BYTE # 197 -PORT # 67 -BYTE # 198 -PORT # 67 -BYTE # 199 -PORT # 67 -BYTE # 200 -PORT # 67 -BYTE # 201 -PORT # 67 -BYTE # 202 -PORT # 67 -BYTE # 203 -PORT # 67 -BYTE # 204 -PORT # 67 -BYTE # 205 -PORT # 67 -BYTE # 206 -PORT # 67 -BYTE # 207 -PORT # 67 -BYTE # 208 -PORT # 67 -BYTE # 209 -PORT # 67 -BYTE # 210 -PORT # 67 -BYTE # 211 -PORT # 67 -BYTE # 212 -PORT # 67 -BYTE # 213 -PORT # 67 -BYTE # 214 -PORT # 67 -BYTE # 215 -PORT # 67 -BYTE # 216 -PORT # 67 -BYTE # 217 -PORT # 67 -BYTE # 218 -PORT # 67 -BYTE # 219 -PORT # 67 -BYTE # 220 -PORT # 67 -BYTE # 221 -PORT # 67 -BYTE # 222 -PORT # 67 -BYTE # 223 -PORT # 67 -BYTE # 224 -PORT # 67 -BYTE # 225 -PORT # 67 -BYTE # 226 -PORT # 67 -BYTE # 227 -PORT # 67 -BYTE # 228 -PORT # 67 -BYTE # 229 -PORT # 67 -BYTE # 230 -PORT # 67 -BYTE # 231 -PORT # 67 -BYTE # 232 -PORT # 67 -BYTE # 233 -PORT # 67 -BYTE # 234 -PORT # 67 -BYTE # 235 -PORT # 67 -BYTE # 236 -PORT # 67 -BYTE # 237 -PORT # 67 -BYTE # 238 -PORT # 67 -BYTE # 239 -PORT # 67 -BYTE # 240 -PORT # 67 -BYTE # 241 -PORT # 67 -BYTE # 242 -PORT # 67 -BYTE # 243 -PORT # 67 -BYTE # 244 -PORT # 67 -BYTE # 245 -PORT # 67 -BYTE # 246 -PORT # 67 -BYTE # 247 -PORT # 67 -BYTE # 248 -PORT # 67 -BYTE # 249 -PORT # 67 -BYTE # 250 -PORT # 67 -BYTE # 251 -PORT # 67 -BYTE # 252 -PORT # 67 -BYTE # 253 -PORT # 67 -BYTE # 254 -PORT # 67 -BYTE # 255 -PORT # 68 -BYTE # 0 -PORT # 68 -BYTE # 1 -PORT # 68 -BYTE # 2 -PORT # 68 -BYTE # 3 -PORT # 68 -BYTE # 4 -PORT # 68 -BYTE # 5 -PORT # 68 -BYTE # 6 -PORT # 68 -BYTE # 7 -PORT # 68 -BYTE # 8 -PORT # 68 -BYTE # 9 -PORT # 68 -BYTE # 10 -PORT # 68 -BYTE # 11 -PORT # 68 -BYTE # 12 -PORT # 68 -BYTE # 13 -PORT # 68 -BYTE # 14 -PORT # 68 -BYTE # 15 -PORT # 68 -BYTE # 16 -PORT # 68 -BYTE # 17 -PORT # 68 -BYTE # 18 -PORT # 68 -BYTE # 19 -PORT # 68 -BYTE # 20 -PORT # 68 -BYTE # 21 -PORT # 68 -BYTE # 22 -PORT # 68 -BYTE # 23 -PORT # 68 -BYTE # 24 -PORT # 68 -BYTE # 25 -PORT # 68 -BYTE # 26 -PORT # 68 -BYTE # 27 -PORT # 68 -BYTE # 28 -PORT # 68 -BYTE # 29 -PORT # 68 -BYTE # 30 -PORT # 68 -BYTE # 31 -PORT # 68 -BYTE # 32 -PORT # 68 -BYTE # 33 -PORT # 68 -BYTE # 34 -PORT # 68 -BYTE # 35 -PORT # 68 -BYTE # 36 -PORT # 68 -BYTE # 37 -PORT # 68 -BYTE # 38 -PORT # 68 -BYTE # 39 -PORT # 68 -BYTE # 40 -PORT # 68 -BYTE # 41 -PORT # 68 -BYTE # 42 -PORT # 68 -BYTE # 43 -PORT # 68 -BYTE # 44 -PORT # 68 -BYTE # 45 -PORT # 68 -BYTE # 46 -PORT # 68 -BYTE # 47 -PORT # 68 -BYTE # 48 -PORT # 68 -BYTE # 49 -PORT # 68 -BYTE # 50 -PORT # 68 -BYTE # 51 -PORT # 68 -BYTE # 52 -PORT # 68 -BYTE # 53 -PORT # 68 -BYTE # 54 -PORT # 68 -BYTE # 55 -PORT # 68 -BYTE # 56 -PORT # 68 -BYTE # 57 -PORT # 68 -BYTE # 58 -PORT # 68 -BYTE # 59 -PORT # 68 -BYTE # 60 -PORT # 68 -BYTE # 61 -PORT # 68 -BYTE # 62 -PORT # 68 -BYTE # 63 -PORT # 68 -BYTE # 64 -PORT # 68 -BYTE # 65 -PORT # 68 -BYTE # 66 -PORT # 68 -BYTE # 67 -PORT # 68 -BYTE # 68 -PORT # 68 -BYTE # 69 -PORT # 68 -BYTE # 70 -PORT # 68 -BYTE # 71 -PORT # 68 -BYTE # 72 -PORT # 68 -BYTE # 73 -PORT # 68 -BYTE # 74 -PORT # 68 -BYTE # 75 -PORT # 68 -BYTE # 76 -PORT # 68 -BYTE # 77 -PORT # 68 -BYTE # 78 -PORT # 68 -BYTE # 79 -PORT # 68 -BYTE # 80 -PORT # 68 -BYTE # 81 -PORT # 68 -BYTE # 82 -PORT # 68 -BYTE # 83 -PORT # 68 -BYTE # 84 -PORT # 68 -BYTE # 85 -PORT # 68 -BYTE # 86 -PORT # 68 -BYTE # 87 -PORT # 68 -BYTE # 88 -PORT # 68 -BYTE # 89 -PORT # 68 -BYTE # 90 -PORT # 68 -BYTE # 91 -PORT # 68 -BYTE # 92 -PORT # 68 -BYTE # 93 -PORT # 68 -BYTE # 94 -PORT # 68 -BYTE # 95 -PORT # 68 -BYTE # 96 -PORT # 68 -BYTE # 97 -PORT # 68 -BYTE # 98 -PORT # 68 -BYTE # 99 -PORT # 68 -BYTE # 100 -PORT # 68 -BYTE # 101 -PORT # 68 -BYTE # 102 -PORT # 68 -BYTE # 103 -PORT # 68 -BYTE # 104 -PORT # 68 -BYTE # 105 -PORT # 68 -BYTE # 106 -PORT # 68 -BYTE # 107 -PORT # 68 -BYTE # 108 -PORT # 68 -BYTE # 109 -PORT # 68 -BYTE # 110 -PORT # 68 -BYTE # 111 -PORT # 68 -BYTE # 112 -PORT # 68 -BYTE # 113 -PORT # 68 -BYTE # 114 -PORT # 68 -BYTE # 115 -PORT # 68 -BYTE # 116 -PORT # 68 -BYTE # 117 -PORT # 68 -BYTE # 118 -PORT # 68 -BYTE # 119 -PORT # 68 -BYTE # 120 -PORT # 68 -BYTE # 121 -PORT # 68 -BYTE # 122 -PORT # 68 -BYTE # 123 -PORT # 68 -BYTE # 124 -PORT # 68 -BYTE # 125 -PORT # 68 -BYTE # 126 -PORT # 68 -BYTE # 127 -PORT # 68 -BYTE # 128 -PORT # 68 -BYTE # 129 -PORT # 68 -BYTE # 130 -PORT # 68 -BYTE # 131 -PORT # 68 -BYTE # 132 -PORT # 68 -BYTE # 133 -PORT # 68 -BYTE # 134 -PORT # 68 -BYTE # 135 -PORT # 68 -BYTE # 136 -PORT # 68 -BYTE # 137 -PORT # 68 -BYTE # 138 -PORT # 68 -BYTE # 139 -PORT # 68 -BYTE # 140 -PORT # 68 -BYTE # 141 -PORT # 68 -BYTE # 142 -PORT # 68 -BYTE # 143 -PORT # 68 -BYTE # 144 -PORT # 68 -BYTE # 145 -PORT # 68 -BYTE # 146 -PORT # 68 -BYTE # 147 -PORT # 68 -BYTE # 148 -PORT # 68 -BYTE # 149 -PORT # 68 -BYTE # 150 -PORT # 68 -BYTE # 151 -PORT # 68 -BYTE # 152 -PORT # 68 -BYTE # 153 -PORT # 68 -BYTE # 154 -PORT # 68 -BYTE # 155 -PORT # 68 -BYTE # 156 -PORT # 68 -BYTE # 157 -PORT # 68 -BYTE # 158 -PORT # 68 -BYTE # 159 -PORT # 68 -BYTE # 160 -PORT # 68 -BYTE # 161 -PORT # 68 -BYTE # 162 -PORT # 68 -BYTE # 163 -PORT # 68 -BYTE # 164 -PORT # 68 -BYTE # 165 -PORT # 68 -BYTE # 166 -PORT # 68 -BYTE # 167 -PORT # 68 -BYTE # 168 -PORT # 68 -BYTE # 169 -PORT # 68 -BYTE # 170 -PORT # 68 -BYTE # 171 -PORT # 68 -BYTE # 172 -PORT # 68 -BYTE # 173 -PORT # 68 -BYTE # 174 -PORT # 68 -BYTE # 175 -PORT # 68 -BYTE # 176 -PORT # 68 -BYTE # 177 -PORT # 68 -BYTE # 178 -PORT # 68 -BYTE # 179 -PORT # 68 -BYTE # 180 -PORT # 68 -BYTE # 181 -PORT # 68 -BYTE # 182 -PORT # 68 -BYTE # 183 -PORT # 68 -BYTE # 184 -PORT # 68 -BYTE # 185 -PORT # 68 -BYTE # 186 -PORT # 68 -BYTE # 187 -PORT # 68 -BYTE # 188 -PORT # 68 -BYTE # 189 -PORT # 68 -BYTE # 190 -PORT # 68 -BYTE # 191 -PORT # 68 -BYTE # 192 -PORT # 68 -BYTE # 193 -PORT # 68 -BYTE # 194 -PORT # 68 -BYTE # 195 -PORT # 68 -BYTE # 196 -PORT # 68 -BYTE # 197 -PORT # 68 -BYTE # 198 -PORT # 68 -BYTE # 199 -PORT # 68 -BYTE # 200 -PORT # 68 -BYTE # 201 -PORT # 68 -BYTE # 202 -PORT # 68 -BYTE # 203 -PORT # 68 -BYTE # 204 -PORT # 68 -BYTE # 205 -PORT # 68 -BYTE # 206 -PORT # 68 -BYTE # 207 -PORT # 68 -BYTE # 208 -PORT # 68 -BYTE # 209 -PORT # 68 -BYTE # 210 -PORT # 68 -BYTE # 211 -PORT # 68 -BYTE # 212 -PORT # 68 -BYTE # 213 -PORT # 68 -BYTE # 214 -PORT # 68 -BYTE # 215 -PORT # 68 -BYTE # 216 -PORT # 68 -BYTE # 217 -PORT # 68 -BYTE # 218 -PORT # 68 -BYTE # 219 -PORT # 68 -BYTE # 220 -PORT # 68 -BYTE # 221 -PORT # 68 -BYTE # 222 -PORT # 68 -BYTE # 223 -PORT # 68 -BYTE # 224 -PORT # 68 -BYTE # 225 -PORT # 68 -BYTE # 226 -PORT # 68 -BYTE # 227 -PORT # 68 -BYTE # 228 -PORT # 68 -BYTE # 229 -PORT # 68 -BYTE # 230 -PORT # 68 -BYTE # 231 -PORT # 68 -BYTE # 232 -PORT # 68 -BYTE # 233 -PORT # 68 -BYTE # 234 -PORT # 68 -BYTE # 235 -PORT # 68 -BYTE # 236 -PORT # 68 -BYTE # 237 -PORT # 68 -BYTE # 238 -PORT # 68 -BYTE # 239 -PORT # 68 -BYTE # 240 -PORT # 68 -BYTE # 241 -PORT # 68 -BYTE # 242 -PORT # 68 -BYTE # 243 -PORT # 68 -BYTE # 244 -PORT # 68 -BYTE # 245 -PORT # 68 -BYTE # 246 -PORT # 68 -BYTE # 247 -PORT # 68 -BYTE # 248 -PORT # 68 -BYTE # 249 -PORT # 68 -BYTE # 250 -PORT # 68 -BYTE # 251 -PORT # 68 -BYTE # 252 -PORT # 68 -BYTE # 253 -PORT # 68 -BYTE # 254 -PORT # 68 -BYTE # 255 -PORT # 69 -BYTE # 0 -PORT # 69 -BYTE # 1 -PORT # 69 -BYTE # 2 -PORT # 69 -BYTE # 3 -PORT # 69 -BYTE # 4 -PORT # 69 -BYTE # 5 -PORT # 69 -BYTE # 6 -PORT # 69 -BYTE # 7 -PORT # 69 -BYTE # 8 -PORT # 69 -BYTE # 9 -PORT # 69 -BYTE # 10 -PORT # 69 -BYTE # 11 -PORT # 69 -BYTE # 12 -PORT # 69 -BYTE # 13 -PORT # 69 -BYTE # 14 -PORT # 69 -BYTE # 15 -PORT # 69 -BYTE # 16 -PORT # 69 -BYTE # 17 -PORT # 69 -BYTE # 18 -PORT # 69 -BYTE # 19 -PORT # 69 -BYTE # 20 -PORT # 69 -BYTE # 21 -PORT # 69 -BYTE # 22 -PORT # 69 -BYTE # 23 -PORT # 69 -BYTE # 24 -PORT # 69 -BYTE # 25 -PORT # 69 -BYTE # 26 -PORT # 69 -BYTE # 27 -PORT # 69 -BYTE # 28 -PORT # 69 -BYTE # 29 -PORT # 69 -BYTE # 30 -PORT # 69 -BYTE # 31 -PORT # 69 -BYTE # 32 -PORT # 69 -BYTE # 33 -PORT # 69 -BYTE # 34 -PORT # 69 -BYTE # 35 -PORT # 69 -BYTE # 36 -PORT # 69 -BYTE # 37 -PORT # 69 -BYTE # 38 -PORT # 69 -BYTE # 39 -PORT # 69 -BYTE # 40 -PORT # 69 -BYTE # 41 -PORT # 69 -BYTE # 42 -PORT # 69 -BYTE # 43 -PORT # 69 -BYTE # 44 -PORT # 69 -BYTE # 45 -PORT # 69 -BYTE # 46 -PORT # 69 -BYTE # 47 -PORT # 69 -BYTE # 48 -PORT # 69 -BYTE # 49 -PORT # 69 -BYTE # 50 -PORT # 69 -BYTE # 51 -PORT # 69 -BYTE # 52 -PORT # 69 -BYTE # 53 -PORT # 69 -BYTE # 54 -PORT # 69 -BYTE # 55 -PORT # 69 -BYTE # 56 -PORT # 69 -BYTE # 57 -PORT # 69 -BYTE # 58 -PORT # 69 -BYTE # 59 -PORT # 69 -BYTE # 60 -PORT # 69 -BYTE # 61 -PORT # 69 -BYTE # 62 -PORT # 69 -BYTE # 63 -PORT # 69 -BYTE # 64 -PORT # 69 -BYTE # 65 -PORT # 69 -BYTE # 66 -PORT # 69 -BYTE # 67 -PORT # 69 -BYTE # 68 -PORT # 69 -BYTE # 69 -PORT # 69 -BYTE # 70 -PORT # 69 -BYTE # 71 -PORT # 69 -BYTE # 72 -PORT # 69 -BYTE # 73 -PORT # 69 -BYTE # 74 -PORT # 69 -BYTE # 75 -PORT # 69 -BYTE # 76 -PORT # 69 -BYTE # 77 -PORT # 69 -BYTE # 78 -PORT # 69 -BYTE # 79 -PORT # 69 -BYTE # 80 -PORT # 69 -BYTE # 81 -PORT # 69 -BYTE # 82 -PORT # 69 -BYTE # 83 -PORT # 69 -BYTE # 84 -PORT # 69 -BYTE # 85 -PORT # 69 -BYTE # 86 -PORT # 69 -BYTE # 87 -PORT # 69 -BYTE # 88 -PORT # 69 -BYTE # 89 -PORT # 69 -BYTE # 90 -PORT # 69 -BYTE # 91 -PORT # 69 -BYTE # 92 -PORT # 69 -BYTE # 93 -PORT # 69 -BYTE # 94 -PORT # 69 -BYTE # 95 -PORT # 69 -BYTE # 96 -PORT # 69 -BYTE # 97 -PORT # 69 -BYTE # 98 -PORT # 69 -BYTE # 99 -PORT # 69 -BYTE # 100 -PORT # 69 -BYTE # 101 -PORT # 69 -BYTE # 102 -PORT # 69 -BYTE # 103 -PORT # 69 -BYTE # 104 -PORT # 69 -BYTE # 105 -PORT # 69 -BYTE # 106 -PORT # 69 -BYTE # 107 -PORT # 69 -BYTE # 108 -PORT # 69 -BYTE # 109 -PORT # 69 -BYTE # 110 -PORT # 69 -BYTE # 111 -PORT # 69 -BYTE # 112 -PORT # 69 -BYTE # 113 -PORT # 69 -BYTE # 114 -PORT # 69 -BYTE # 115 -PORT # 69 -BYTE # 116 -PORT # 69 -BYTE # 117 -PORT # 69 -BYTE # 118 -PORT # 69 -BYTE # 119 -PORT # 69 -BYTE # 120 -PORT # 69 -BYTE # 121 -PORT # 69 -BYTE # 122 -PORT # 69 -BYTE # 123 -PORT # 69 -BYTE # 124 -PORT # 69 -BYTE # 125 -PORT # 69 -BYTE # 126 -PORT # 69 -BYTE # 127 -PORT # 69 -BYTE # 128 -PORT # 69 -BYTE # 129 -PORT # 69 -BYTE # 130 -PORT # 69 -BYTE # 131 -PORT # 69 -BYTE # 132 -PORT # 69 -BYTE # 133 -PORT # 69 -BYTE # 134 -PORT # 69 -BYTE # 135 -PORT # 69 -BYTE # 136 -PORT # 69 -BYTE # 137 -PORT # 69 -BYTE # 138 -PORT # 69 -BYTE # 139 -PORT # 69 -BYTE # 140 -PORT # 69 -BYTE # 141 -PORT # 69 -BYTE # 142 -PORT # 69 -BYTE # 143 -PORT # 69 -BYTE # 144 -PORT # 69 -BYTE # 145 -PORT # 69 -BYTE # 146 -PORT # 69 -BYTE # 147 -PORT # 69 -BYTE # 148 -PORT # 69 -BYTE # 149 -PORT # 69 -BYTE # 150 -PORT # 69 -BYTE # 151 -PORT # 69 -BYTE # 152 -PORT # 69 -BYTE # 153 -PORT # 69 -BYTE # 154 -PORT # 69 -BYTE # 155 -PORT # 69 -BYTE # 156 -PORT # 69 -BYTE # 157 -PORT # 69 -BYTE # 158 -PORT # 69 -BYTE # 159 -PORT # 69 -BYTE # 160 -PORT # 69 -BYTE # 161 -PORT # 69 -BYTE # 162 -PORT # 69 -BYTE # 163 -PORT # 69 -BYTE # 164 -PORT # 69 -BYTE # 165 -PORT # 69 -BYTE # 166 -PORT # 69 -BYTE # 167 -PORT # 69 -BYTE # 168 -PORT # 69 -BYTE # 169 -PORT # 69 -BYTE # 170 -PORT # 69 -BYTE # 171 -PORT # 69 -BYTE # 172 -PORT # 69 -BYTE # 173 -PORT # 69 -BYTE # 174 -PORT # 69 -BYTE # 175 -PORT # 69 -BYTE # 176 -PORT # 69 -BYTE # 177 -PORT # 69 -BYTE # 178 -PORT # 69 -BYTE # 179 -PORT # 69 -BYTE # 180 -PORT # 69 -BYTE # 181 -PORT # 69 -BYTE # 182 -PORT # 69 -BYTE # 183 -PORT # 69 -BYTE # 184 -PORT # 69 -BYTE # 185 -PORT # 69 -BYTE # 186 -PORT # 69 -BYTE # 187 -PORT # 69 -BYTE # 188 -PORT # 69 -BYTE # 189 -PORT # 69 -BYTE # 190 -PORT # 69 -BYTE # 191 -PORT # 69 -BYTE # 192 -PORT # 69 -BYTE # 193 -PORT # 69 -BYTE # 194 -PORT # 69 -BYTE # 195 -PORT # 69 -BYTE # 196 -PORT # 69 -BYTE # 197 -PORT # 69 -BYTE # 198 -PORT # 69 -BYTE # 199 -PORT # 69 -BYTE # 200 -PORT # 69 -BYTE # 201 -PORT # 69 -BYTE # 202 -PORT # 69 -BYTE # 203 -PORT # 69 -BYTE # 204 -PORT # 69 -BYTE # 205 -PORT # 69 -BYTE # 206 -PORT # 69 -BYTE # 207 -PORT # 69 -BYTE # 208 -PORT # 69 -BYTE # 209 -PORT # 69 -BYTE # 210 -PORT # 69 -BYTE # 211 -PORT # 69 -BYTE # 212 -PORT # 69 -BYTE # 213 -PORT # 69 -BYTE # 214 -PORT # 69 -BYTE # 215 -PORT # 69 -BYTE # 216 -PORT # 69 -BYTE # 217 -PORT # 69 -BYTE # 218 -PORT # 69 -BYTE # 219 -PORT # 69 -BYTE # 220 -PORT # 69 -BYTE # 221 -PORT # 69 -BYTE # 222 -PORT # 69 -BYTE # 223 -PORT # 69 -BYTE # 224 -PORT # 69 -BYTE # 225 -PORT # 69 -BYTE # 226 -PORT # 69 -BYTE # 227 -PORT # 69 -BYTE # 228 -PORT # 69 -BYTE # 229 -PORT # 69 -BYTE # 230 -PORT # 69 -BYTE # 231 -PORT # 69 -BYTE # 232 -PORT # 69 -BYTE # 233 -PORT # 69 -BYTE # 234 -PORT # 69 -BYTE # 235 -PORT # 69 -BYTE # 236 -PORT # 69 -BYTE # 237 -PORT # 69 -BYTE # 238 -PORT # 69 -BYTE # 239 -PORT # 69 -BYTE # 240 -PORT # 69 -BYTE # 241 -PORT # 69 -BYTE # 242 -PORT # 69 -BYTE # 243 -PORT # 69 -BYTE # 244 -PORT # 69 -BYTE # 245 -PORT # 69 -BYTE # 246 -PORT # 69 -BYTE # 247 -PORT # 69 -BYTE # 248 -PORT # 69 -BYTE # 249 -PORT # 69 -BYTE # 250 -PORT # 69 -BYTE # 251 -PORT # 69 -BYTE # 252 -PORT # 69 -BYTE # 253 -PORT # 69 -BYTE # 254 -PORT # 69 -BYTE # 255 -PORT # 70 -BYTE # 0 -PORT # 70 -BYTE # 1 -PORT # 70 -BYTE # 2 -PORT # 70 -BYTE # 3 -PORT # 70 -BYTE # 4 -PORT # 70 -BYTE # 5 -PORT # 70 -BYTE # 6 -PORT # 70 -BYTE # 7 -PORT # 70 -BYTE # 8 -PORT # 70 -BYTE # 9 -PORT # 70 -BYTE # 10 -PORT # 70 -BYTE # 11 -PORT # 70 -BYTE # 12 -PORT # 70 -BYTE # 13 -PORT # 70 -BYTE # 14 -PORT # 70 -BYTE # 15 -PORT # 70 -BYTE # 16 -PORT # 70 -BYTE # 17 -PORT # 70 -BYTE # 18 -PORT # 70 -BYTE # 19 -PORT # 70 -BYTE # 20 -PORT # 70 -BYTE # 21 -PORT # 70 -BYTE # 22 -PORT # 70 -BYTE # 23 -PORT # 70 -BYTE # 24 -PORT # 70 -BYTE # 25 -PORT # 70 -BYTE # 26 -PORT # 70 -BYTE # 27 -PORT # 70 -BYTE # 28 -PORT # 70 -BYTE # 29 -PORT # 70 -BYTE # 30 -PORT # 70 -BYTE # 31 -PORT # 70 -BYTE # 32 -PORT # 70 -BYTE # 33 -PORT # 70 -BYTE # 34 -PORT # 70 -BYTE # 35 -PORT # 70 -BYTE # 36 -PORT # 70 -BYTE # 37 -PORT # 70 -BYTE # 38 -PORT # 70 -BYTE # 39 -PORT # 70 -BYTE # 40 -PORT # 70 -BYTE # 41 -PORT # 70 -BYTE # 42 -PORT # 70 -BYTE # 43 -PORT # 70 -BYTE # 44 -PORT # 70 -BYTE # 45 -PORT # 70 -BYTE # 46 -PORT # 70 -BYTE # 47 -PORT # 70 -BYTE # 48 -PORT # 70 -BYTE # 49 -PORT # 70 -BYTE # 50 -PORT # 70 -BYTE # 51 -PORT # 70 -BYTE # 52 -PORT # 70 -BYTE # 53 -PORT # 70 -BYTE # 54 -PORT # 70 -BYTE # 55 -PORT # 70 -BYTE # 56 -PORT # 70 -BYTE # 57 -PORT # 70 -BYTE # 58 -PORT # 70 -BYTE # 59 -PORT # 70 -BYTE # 60 -PORT # 70 -BYTE # 61 -PORT # 70 -BYTE # 62 -PORT # 70 -BYTE # 63 -PORT # 70 -BYTE # 64 -PORT # 70 -BYTE # 65 -PORT # 70 -BYTE # 66 -PORT # 70 -BYTE # 67 -PORT # 70 -BYTE # 68 -PORT # 70 -BYTE # 69 -PORT # 70 -BYTE # 70 -PORT # 70 -BYTE # 71 -PORT # 70 -BYTE # 72 -PORT # 70 -BYTE # 73 -PORT # 70 -BYTE # 74 -PORT # 70 -BYTE # 75 -PORT # 70 -BYTE # 76 -PORT # 70 -BYTE # 77 -PORT # 70 -BYTE # 78 -PORT # 70 -BYTE # 79 -PORT # 70 -BYTE # 80 -PORT # 70 -BYTE # 81 -PORT # 70 -BYTE # 82 -PORT # 70 -BYTE # 83 -PORT # 70 -BYTE # 84 -PORT # 70 -BYTE # 85 -PORT # 70 -BYTE # 86 -PORT # 70 -BYTE # 87 -PORT # 70 -BYTE # 88 -PORT # 70 -BYTE # 89 -PORT # 70 -BYTE # 90 -PORT # 70 -BYTE # 91 -PORT # 70 -BYTE # 92 -PORT # 70 -BYTE # 93 -PORT # 70 -BYTE # 94 -PORT # 70 -BYTE # 95 -PORT # 70 -BYTE # 96 -PORT # 70 -BYTE # 97 -PORT # 70 -BYTE # 98 -PORT # 70 -BYTE # 99 -PORT # 70 -BYTE # 100 -PORT # 70 -BYTE # 101 -PORT # 70 -BYTE # 102 -PORT # 70 -BYTE # 103 -PORT # 70 -BYTE # 104 -PORT # 70 -BYTE # 105 -PORT # 70 -BYTE # 106 -PORT # 70 -BYTE # 107 -PORT # 70 -BYTE # 108 -PORT # 70 -BYTE # 109 -PORT # 70 -BYTE # 110 -PORT # 70 -BYTE # 111 -PORT # 70 -BYTE # 112 -PORT # 70 -BYTE # 113 -PORT # 70 -BYTE # 114 -PORT # 70 -BYTE # 115 -PORT # 70 -BYTE # 116 -PORT # 70 -BYTE # 117 -PORT # 70 -BYTE # 118 -PORT # 70 -BYTE # 119 -PORT # 70 -BYTE # 120 -PORT # 70 -BYTE # 121 -PORT # 70 -BYTE # 122 -PORT # 70 -BYTE # 123 -PORT # 70 -BYTE # 124 -PORT # 70 -BYTE # 125 -PORT # 70 -BYTE # 126 -PORT # 70 -BYTE # 127 -PORT # 70 -BYTE # 128 -PORT # 70 -BYTE # 129 -PORT # 70 -BYTE # 130 -PORT # 70 -BYTE # 131 -PORT # 70 -BYTE # 132 -PORT # 70 -BYTE # 133 -PORT # 70 -BYTE # 134 -PORT # 70 -BYTE # 135 -PORT # 70 -BYTE # 136 -PORT # 70 -BYTE # 137 -PORT # 70 -BYTE # 138 -PORT # 70 -BYTE # 139 -PORT # 70 -BYTE # 140 -PORT # 70 -BYTE # 141 -PORT # 70 -BYTE # 142 -PORT # 70 -BYTE # 143 -PORT # 70 -BYTE # 144 -PORT # 70 -BYTE # 145 -PORT # 70 -BYTE # 146 -PORT # 70 -BYTE # 147 -PORT # 70 -BYTE # 148 -PORT # 70 -BYTE # 149 -PORT # 70 -BYTE # 150 -PORT # 70 -BYTE # 151 -PORT # 70 -BYTE # 152 -PORT # 70 -BYTE # 153 -PORT # 70 -BYTE # 154 -PORT # 70 -BYTE # 155 -PORT # 70 -BYTE # 156 -PORT # 70 -BYTE # 157 -PORT # 70 -BYTE # 158 -PORT # 70 -BYTE # 159 -PORT # 70 -BYTE # 160 -PORT # 70 -BYTE # 161 -PORT # 70 -BYTE # 162 -PORT # 70 -BYTE # 163 -PORT # 70 -BYTE # 164 -PORT # 70 -BYTE # 165 -PORT # 70 -BYTE # 166 -PORT # 70 -BYTE # 167 -PORT # 70 -BYTE # 168 -PORT # 70 -BYTE # 169 -PORT # 70 -BYTE # 170 -PORT # 70 -BYTE # 171 -PORT # 70 -BYTE # 172 -PORT # 70 -BYTE # 173 -PORT # 70 -BYTE # 174 -PORT # 70 -BYTE # 175 -PORT # 70 -BYTE # 176 -PORT # 70 -BYTE # 177 -PORT # 70 -BYTE # 178 -PORT # 70 -BYTE # 179 -PORT # 70 -BYTE # 180 -PORT # 70 -BYTE # 181 -PORT # 70 -BYTE # 182 -PORT # 70 -BYTE # 183 -PORT # 70 -BYTE # 184 -PORT # 70 -BYTE # 185 -PORT # 70 -BYTE # 186 -PORT # 70 -BYTE # 187 -PORT # 70 -BYTE # 188 -PORT # 70 -BYTE # 189 -PORT # 70 -BYTE # 190 -PORT # 70 -BYTE # 191 -PORT # 70 -BYTE # 192 -PORT # 70 -BYTE # 193 -PORT # 70 -BYTE # 194 -PORT # 70 -BYTE # 195 -PORT # 70 -BYTE # 196 -PORT # 70 -BYTE # 197 -PORT # 70 -BYTE # 198 -PORT # 70 -BYTE # 199 -PORT # 70 -BYTE # 200 -PORT # 70 -BYTE # 201 -PORT # 70 -BYTE # 202 -PORT # 70 -BYTE # 203 -PORT # 70 -BYTE # 204 -PORT # 70 -BYTE # 205 -PORT # 70 -BYTE # 206 -PORT # 70 -BYTE # 207 -PORT # 70 -BYTE # 208 -PORT # 70 -BYTE # 209 -PORT # 70 -BYTE # 210 -PORT # 70 -BYTE # 211 -PORT # 70 -BYTE # 212 -PORT # 70 -BYTE # 213 -PORT # 70 -BYTE # 214 -PORT # 70 -BYTE # 215 -PORT # 70 -BYTE # 216 -PORT # 70 -BYTE # 217 -PORT # 70 -BYTE # 218 -PORT # 70 -BYTE # 219 -PORT # 70 -BYTE # 220 -PORT # 70 -BYTE # 221 -PORT # 70 -BYTE # 222 -PORT # 70 -BYTE # 223 -PORT # 70 -BYTE # 224 -PORT # 70 -BYTE # 225 -PORT # 70 -BYTE # 226 -PORT # 70 -BYTE # 227 -PORT # 70 -BYTE # 228 -PORT # 70 -BYTE # 229 -PORT # 70 -BYTE # 230 -PORT # 70 -BYTE # 231 -PORT # 70 -BYTE # 232 -PORT # 70 -BYTE # 233 -PORT # 70 -BYTE # 234 -PORT # 70 -BYTE # 235 -PORT # 70 -BYTE # 236 -PORT # 70 -BYTE # 237 -PORT # 70 -BYTE # 238 -PORT # 70 -BYTE # 239 -PORT # 70 -BYTE # 240 -PORT # 70 -BYTE # 241 -PORT # 70 -BYTE # 242 -PORT # 70 -BYTE # 243 -PORT # 70 -BYTE # 244 -PORT # 70 -BYTE # 245 -PORT # 70 -BYTE # 246 -PORT # 70 -BYTE # 247 -PORT # 70 -BYTE # 248 -PORT # 70 -BYTE # 249 -PORT # 70 -BYTE # 250 -PORT # 70 -BYTE # 251 -PORT # 70 -BYTE # 252 -PORT # 70 -BYTE # 253 -PORT # 70 -BYTE # 254 -PORT # 70 -BYTE # 255 -PORT # 71 -BYTE # 0 -PORT # 71 -BYTE # 1 -PORT # 71 -BYTE # 2 -PORT # 71 -BYTE # 3 -PORT # 71 -BYTE # 4 -PORT # 71 -BYTE # 5 -PORT # 71 -BYTE # 6 -PORT # 71 -BYTE # 7 -PORT # 71 -BYTE # 8 -PORT # 71 -BYTE # 9 -PORT # 71 -BYTE # 10 -PORT # 71 -BYTE # 11 -PORT # 71 -BYTE # 12 -PORT # 71 -BYTE # 13 -PORT # 71 -BYTE # 14 -PORT # 71 -BYTE # 15 -PORT # 71 -BYTE # 16 -PORT # 71 -BYTE # 17 -PORT # 71 -BYTE # 18 -PORT # 71 -BYTE # 19 -PORT # 71 -BYTE # 20 -PORT # 71 -BYTE # 21 -PORT # 71 -BYTE # 22 -PORT # 71 -BYTE # 23 -PORT # 71 -BYTE # 24 -PORT # 71 -BYTE # 25 -PORT # 71 -BYTE # 26 -PORT # 71 -BYTE # 27 -PORT # 71 -BYTE # 28 -PORT # 71 -BYTE # 29 -PORT # 71 -BYTE # 30 -PORT # 71 -BYTE # 31 -PORT # 71 -BYTE # 32 -PORT # 71 -BYTE # 33 -PORT # 71 -BYTE # 34 -PORT # 71 -BYTE # 35 -PORT # 71 -BYTE # 36 -PORT # 71 -BYTE # 37 -PORT # 71 -BYTE # 38 -PORT # 71 -BYTE # 39 -PORT # 71 -BYTE # 40 -PORT # 71 -BYTE # 41 -PORT # 71 -BYTE # 42 -PORT # 71 -BYTE # 43 -PORT # 71 -BYTE # 44 -PORT # 71 -BYTE # 45 -PORT # 71 -BYTE # 46 -PORT # 71 -BYTE # 47 -PORT # 71 -BYTE # 48 -PORT # 71 -BYTE # 49 -PORT # 71 -BYTE # 50 -PORT # 71 -BYTE # 51 -PORT # 71 -BYTE # 52 -PORT # 71 -BYTE # 53 -PORT # 71 -BYTE # 54 -PORT # 71 -BYTE # 55 -PORT # 71 -BYTE # 56 -PORT # 71 -BYTE # 57 -PORT # 71 -BYTE # 58 -PORT # 71 -BYTE # 59 -PORT # 71 -BYTE # 60 -PORT # 71 -BYTE # 61 -PORT # 71 -BYTE # 62 -PORT # 71 -BYTE # 63 -PORT # 71 -BYTE # 64 -PORT # 71 -BYTE # 65 -PORT # 71 -BYTE # 66 -PORT # 71 -BYTE # 67 -PORT # 71 -BYTE # 68 -PORT # 71 -BYTE # 69 -PORT # 71 -BYTE # 70 -PORT # 71 -BYTE # 71 -PORT # 71 -BYTE # 72 -PORT # 71 -BYTE # 73 -PORT # 71 -BYTE # 74 -PORT # 71 -BYTE # 75 -PORT # 71 -BYTE # 76 -PORT # 71 -BYTE # 77 -PORT # 71 -BYTE # 78 -PORT # 71 -BYTE # 79 -PORT # 71 -BYTE # 80 -PORT # 71 -BYTE # 81 -PORT # 71 -BYTE # 82 -PORT # 71 -BYTE # 83 -PORT # 71 -BYTE # 84 -PORT # 71 -BYTE # 85 -PORT # 71 -BYTE # 86 -PORT # 71 -BYTE # 87 -PORT # 71 -BYTE # 88 -PORT # 71 -BYTE # 89 -PORT # 71 -BYTE # 90 -PORT # 71 -BYTE # 91 -PORT # 71 -BYTE # 92 -PORT # 71 -BYTE # 93 -PORT # 71 -BYTE # 94 -PORT # 71 -BYTE # 95 -PORT # 71 -BYTE # 96 -PORT # 71 -BYTE # 97 -PORT # 71 -BYTE # 98 -PORT # 71 -BYTE # 99 -PORT # 71 -BYTE # 100 -PORT # 71 -BYTE # 101 -PORT # 71 -BYTE # 102 -PORT # 71 -BYTE # 103 -PORT # 71 -BYTE # 104 -PORT # 71 -BYTE # 105 -PORT # 71 -BYTE # 106 -PORT # 71 -BYTE # 107 -PORT # 71 -BYTE # 108 -PORT # 71 -BYTE # 109 -PORT # 71 -BYTE # 110 -PORT # 71 -BYTE # 111 -PORT # 71 -BYTE # 112 -PORT # 71 -BYTE # 113 -PORT # 71 -BYTE # 114 -PORT # 71 -BYTE # 115 -PORT # 71 -BYTE # 116 -PORT # 71 -BYTE # 117 -PORT # 71 -BYTE # 118 -PORT # 71 -BYTE # 119 -PORT # 71 -BYTE # 120 -PORT # 71 -BYTE # 121 -PORT # 71 -BYTE # 122 -PORT # 71 -BYTE # 123 -PORT # 71 -BYTE # 124 -PORT # 71 -BYTE # 125 -PORT # 71 -BYTE # 126 -PORT # 71 -BYTE # 127 -PORT # 71 -BYTE # 128 -PORT # 71 -BYTE # 129 -PORT # 71 -BYTE # 130 -PORT # 71 -BYTE # 131 -PORT # 71 -BYTE # 132 -PORT # 71 -BYTE # 133 -PORT # 71 -BYTE # 134 -PORT # 71 -BYTE # 135 -PORT # 71 -BYTE # 136 -PORT # 71 -BYTE # 137 -PORT # 71 -BYTE # 138 -PORT # 71 -BYTE # 139 -PORT # 71 -BYTE # 140 -PORT # 71 -BYTE # 141 -PORT # 71 -BYTE # 142 -PORT # 71 -BYTE # 143 -PORT # 71 -BYTE # 144 -PORT # 71 -BYTE # 145 -PORT # 71 -BYTE # 146 -PORT # 71 -BYTE # 147 -PORT # 71 -BYTE # 148 -PORT # 71 -BYTE # 149 -PORT # 71 -BYTE # 150 -PORT # 71 -BYTE # 151 -PORT # 71 -BYTE # 152 -PORT # 71 -BYTE # 153 -PORT # 71 -BYTE # 154 -PORT # 71 -BYTE # 155 -PORT # 71 -BYTE # 156 -PORT # 71 -BYTE # 157 -PORT # 71 -BYTE # 158 -PORT # 71 -BYTE # 159 -PORT # 71 -BYTE # 160 -PORT # 71 -BYTE # 161 -PORT # 71 -BYTE # 162 -PORT # 71 -BYTE # 163 -PORT # 71 -BYTE # 164 -PORT # 71 -BYTE # 165 -PORT # 71 -BYTE # 166 -PORT # 71 -BYTE # 167 -PORT # 71 -BYTE # 168 -PORT # 71 -BYTE # 169 -PORT # 71 -BYTE # 170 -PORT # 71 -BYTE # 171 -PORT # 71 -BYTE # 172 -PORT # 71 -BYTE # 173 -PORT # 71 -BYTE # 174 -PORT # 71 -BYTE # 175 -PORT # 71 -BYTE # 176 -PORT # 71 -BYTE # 177 -PORT # 71 -BYTE # 178 -PORT # 71 -BYTE # 179 -PORT # 71 -BYTE # 180 -PORT # 71 -BYTE # 181 -PORT # 71 -BYTE # 182 -PORT # 71 -BYTE # 183 -PORT # 71 -BYTE # 184 -PORT # 71 -BYTE # 185 -PORT # 71 -BYTE # 186 -PORT # 71 -BYTE # 187 -PORT # 71 -BYTE # 188 -PORT # 71 -BYTE # 189 -PORT # 71 -BYTE # 190 -PORT # 71 -BYTE # 191 -PORT # 71 -BYTE # 192 -PORT # 71 -BYTE # 193 -PORT # 71 -BYTE # 194 -PORT # 71 -BYTE # 195 -PORT # 71 -BYTE # 196 -PORT # 71 -BYTE # 197 -PORT # 71 -BYTE # 198 -PORT # 71 -BYTE # 199 -PORT # 71 -BYTE # 200 -PORT # 71 -BYTE # 201 -PORT # 71 -BYTE # 202 -PORT # 71 -BYTE # 203 -PORT # 71 -BYTE # 204 -PORT # 71 -BYTE # 205 -PORT # 71 -BYTE # 206 -PORT # 71 -BYTE # 207 -PORT # 71 -BYTE # 208 -PORT # 71 -BYTE # 209 -PORT # 71 -BYTE # 210 -PORT # 71 -BYTE # 211 -PORT # 71 -BYTE # 212 -PORT # 71 -BYTE # 213 -PORT # 71 -BYTE # 214 -PORT # 71 -BYTE # 215 -PORT # 71 -BYTE # 216 -PORT # 71 -BYTE # 217 -PORT # 71 -BYTE # 218 -PORT # 71 -BYTE # 219 -PORT # 71 -BYTE # 220 -PORT # 71 -BYTE # 221 -PORT # 71 -BYTE # 222 -PORT # 71 -BYTE # 223 -PORT # 71 -BYTE # 224 -PORT # 71 -BYTE # 225 -PORT # 71 -BYTE # 226 -PORT # 71 -BYTE # 227 -PORT # 71 -BYTE # 228 -PORT # 71 -BYTE # 229 -PORT # 71 -BYTE # 230 -PORT # 71 -BYTE # 231 -PORT # 71 -BYTE # 232 -PORT # 71 -BYTE # 233 -PORT # 71 -BYTE # 234 -PORT # 71 -BYTE # 235 -PORT # 71 -BYTE # 236 -PORT # 71 -BYTE # 237 -PORT # 71 -BYTE # 238 -PORT # 71 -BYTE # 239 -PORT # 71 -BYTE # 240 -PORT # 71 -BYTE # 241 -PORT # 71 -BYTE # 242 -PORT # 71 -BYTE # 243 -PORT # 71 -BYTE # 244 -PORT # 71 -BYTE # 245 -PORT # 71 -BYTE # 246 -PORT # 71 -BYTE # 247 -PORT # 71 -BYTE # 248 -PORT # 71 -BYTE # 249 -PORT # 71 -BYTE # 250 -PORT # 71 -BYTE # 251 -PORT # 71 -BYTE # 252 -PORT # 71 -BYTE # 253 -PORT # 71 -BYTE # 254 -PORT # 71 -BYTE # 255 -PORT # 72 -BYTE # 0 -PORT # 72 -BYTE # 1 -PORT # 72 -BYTE # 2 -PORT # 72 -BYTE # 3 -PORT # 72 -BYTE # 4 -PORT # 72 -BYTE # 5 -PORT # 72 -BYTE # 6 -PORT # 72 -BYTE # 7 -PORT # 72 -BYTE # 8 -PORT # 72 -BYTE # 9 -PORT # 72 -BYTE # 10 -PORT # 72 -BYTE # 11 -PORT # 72 -BYTE # 12 -PORT # 72 -BYTE # 13 -PORT # 72 -BYTE # 14 -PORT # 72 -BYTE # 15 -PORT # 72 -BYTE # 16 -PORT # 72 -BYTE # 17 -PORT # 72 -BYTE # 18 -PORT # 72 -BYTE # 19 -PORT # 72 -BYTE # 20 -PORT # 72 -BYTE # 21 -PORT # 72 -BYTE # 22 -PORT # 72 -BYTE # 23 -PORT # 72 -BYTE # 24 -PORT # 72 -BYTE # 25 -PORT # 72 -BYTE # 26 -PORT # 72 -BYTE # 27 -PORT # 72 -BYTE # 28 -PORT # 72 -BYTE # 29 -PORT # 72 -BYTE # 30 -PORT # 72 -BYTE # 31 -PORT # 72 -BYTE # 32 -PORT # 72 -BYTE # 33 -PORT # 72 -BYTE # 34 -PORT # 72 -BYTE # 35 -PORT # 72 -BYTE # 36 -PORT # 72 -BYTE # 37 -PORT # 72 -BYTE # 38 -PORT # 72 -BYTE # 39 -PORT # 72 -BYTE # 40 -PORT # 72 -BYTE # 41 -PORT # 72 -BYTE # 42 -PORT # 72 -BYTE # 43 -PORT # 72 -BYTE # 44 -PORT # 72 -BYTE # 45 -PORT # 72 -BYTE # 46 -PORT # 72 -BYTE # 47 -PORT # 72 -BYTE # 48 -PORT # 72 -BYTE # 49 -PORT # 72 -BYTE # 50 -PORT # 72 -BYTE # 51 -PORT # 72 -BYTE # 52 -PORT # 72 -BYTE # 53 -PORT # 72 -BYTE # 54 -PORT # 72 -BYTE # 55 -PORT # 72 -BYTE # 56 -PORT # 72 -BYTE # 57 -PORT # 72 -BYTE # 58 -PORT # 72 -BYTE # 59 -PORT # 72 -BYTE # 60 -PORT # 72 -BYTE # 61 -PORT # 72 -BYTE # 62 -PORT # 72 -BYTE # 63 -PORT # 72 -BYTE # 64 -PORT # 72 -BYTE # 65 -PORT # 72 -BYTE # 66 -PORT # 72 -BYTE # 67 -PORT # 72 -BYTE # 68 -PORT # 72 -BYTE # 69 -PORT # 72 -BYTE # 70 -PORT # 72 -BYTE # 71 -PORT # 72 -BYTE # 72 -PORT # 72 -BYTE # 73 -PORT # 72 -BYTE # 74 -PORT # 72 -BYTE # 75 -PORT # 72 -BYTE # 76 -PORT # 72 -BYTE # 77 -PORT # 72 -BYTE # 78 -PORT # 72 -BYTE # 79 -PORT # 72 -BYTE # 80 -PORT # 72 -BYTE # 81 -PORT # 72 -BYTE # 82 -PORT # 72 -BYTE # 83 -PORT # 72 -BYTE # 84 -PORT # 72 -BYTE # 85 -PORT # 72 -BYTE # 86 -PORT # 72 -BYTE # 87 -PORT # 72 -BYTE # 88 -PORT # 72 -BYTE # 89 -PORT # 72 -BYTE # 90 -PORT # 72 -BYTE # 91 -PORT # 72 -BYTE # 92 -PORT # 72 -BYTE # 93 -PORT # 72 -BYTE # 94 -PORT # 72 -BYTE # 95 -PORT # 72 -BYTE # 96 -PORT # 72 -BYTE # 97 -PORT # 72 -BYTE # 98 -PORT # 72 -BYTE # 99 -PORT # 72 -BYTE # 100 -PORT # 72 -BYTE # 101 -PORT # 72 -BYTE # 102 -PORT # 72 -BYTE # 103 -PORT # 72 -BYTE # 104 -PORT # 72 -BYTE # 105 -PORT # 72 -BYTE # 106 -PORT # 72 -BYTE # 107 -PORT # 72 -BYTE # 108 -PORT # 72 -BYTE # 109 -PORT # 72 -BYTE # 110 -PORT # 72 -BYTE # 111 -PORT # 72 -BYTE # 112 -PORT # 72 -BYTE # 113 -PORT # 72 -BYTE # 114 -PORT # 72 -BYTE # 115 -PORT # 72 -BYTE # 116 -PORT # 72 -BYTE # 117 -PORT # 72 -BYTE # 118 -PORT # 72 -BYTE # 119 -PORT # 72 -BYTE # 120 -PORT # 72 -BYTE # 121 -PORT # 72 -BYTE # 122 -PORT # 72 -BYTE # 123 -PORT # 72 -BYTE # 124 -PORT # 72 -BYTE # 125 -PORT # 72 -BYTE # 126 -PORT # 72 -BYTE # 127 -PORT # 72 -BYTE # 128 -PORT # 72 -BYTE # 129 -PORT # 72 -BYTE # 130 -PORT # 72 -BYTE # 131 -PORT # 72 -BYTE # 132 -PORT # 72 -BYTE # 133 -PORT # 72 -BYTE # 134 -PORT # 72 -BYTE # 135 -PORT # 72 -BYTE # 136 -PORT # 72 -BYTE # 137 -PORT # 72 -BYTE # 138 -PORT # 72 -BYTE # 139 -PORT # 72 -BYTE # 140 -PORT # 72 -BYTE # 141 -PORT # 72 -BYTE # 142 -PORT # 72 -BYTE # 143 -PORT # 72 -BYTE # 144 -PORT # 72 -BYTE # 145 -PORT # 72 -BYTE # 146 -PORT # 72 -BYTE # 147 -PORT # 72 -BYTE # 148 -PORT # 72 -BYTE # 149 -PORT # 72 -BYTE # 150 -PORT # 72 -BYTE # 151 -PORT # 72 -BYTE # 152 -PORT # 72 -BYTE # 153 -PORT # 72 -BYTE # 154 -PORT # 72 -BYTE # 155 -PORT # 72 -BYTE # 156 -PORT # 72 -BYTE # 157 -PORT # 72 -BYTE # 158 -PORT # 72 -BYTE # 159 -PORT # 72 -BYTE # 160 -PORT # 72 -BYTE # 161 -PORT # 72 -BYTE # 162 -PORT # 72 -BYTE # 163 -PORT # 72 -BYTE # 164 -PORT # 72 -BYTE # 165 -PORT # 72 -BYTE # 166 -PORT # 72 -BYTE # 167 -PORT # 72 -BYTE # 168 -PORT # 72 -BYTE # 169 -PORT # 72 -BYTE # 170 -PORT # 72 -BYTE # 171 -PORT # 72 -BYTE # 172 -PORT # 72 -BYTE # 173 -PORT # 72 -BYTE # 174 -PORT # 72 -BYTE # 175 -PORT # 72 -BYTE # 176 -PORT # 72 -BYTE # 177 -PORT # 72 -BYTE # 178 -PORT # 72 -BYTE # 179 -PORT # 72 -BYTE # 180 -PORT # 72 -BYTE # 181 -PORT # 72 -BYTE # 182 -PORT # 72 -BYTE # 183 -PORT # 72 -BYTE # 184 -PORT # 72 -BYTE # 185 -PORT # 72 -BYTE # 186 -PORT # 72 -BYTE # 187 -PORT # 72 -BYTE # 188 -PORT # 72 -BYTE # 189 -PORT # 72 -BYTE # 190 -PORT # 72 -BYTE # 191 -PORT # 72 -BYTE # 192 -PORT # 72 -BYTE # 193 -PORT # 72 -BYTE # 194 -PORT # 72 -BYTE # 195 -PORT # 72 -BYTE # 196 -PORT # 72 -BYTE # 197 -PORT # 72 -BYTE # 198 -PORT # 72 -BYTE # 199 -PORT # 72 -BYTE # 200 -PORT # 72 -BYTE # 201 -PORT # 72 -BYTE # 202 -PORT # 72 -BYTE # 203 -PORT # 72 -BYTE # 204 -PORT # 72 -BYTE # 205 -PORT # 72 -BYTE # 206 -PORT # 72 -BYTE # 207 -PORT # 72 -BYTE # 208 -PORT # 72 -BYTE # 209 -PORT # 72 -BYTE # 210 -PORT # 72 -BYTE # 211 -PORT # 72 -BYTE # 212 -PORT # 72 -BYTE # 213 -PORT # 72 -BYTE # 214 -PORT # 72 -BYTE # 215 -PORT # 72 -BYTE # 216 -PORT # 72 -BYTE # 217 -PORT # 72 -BYTE # 218 -PORT # 72 -BYTE # 219 -PORT # 72 -BYTE # 220 -PORT # 72 -BYTE # 221 -PORT # 72 -BYTE # 222 -PORT # 72 -BYTE # 223 -PORT # 72 -BYTE # 224 -PORT # 72 -BYTE # 225 -PORT # 72 -BYTE # 226 -PORT # 72 -BYTE # 227 -PORT # 72 -BYTE # 228 -PORT # 72 -BYTE # 229 -PORT # 72 -BYTE # 230 -PORT # 72 -BYTE # 231 -PORT # 72 -BYTE # 232 -PORT # 72 -BYTE # 233 -PORT # 72 -BYTE # 234 -PORT # 72 -BYTE # 235 -PORT # 72 -BYTE # 236 -PORT # 72 -BYTE # 237 -PORT # 72 -BYTE # 238 -PORT # 72 -BYTE # 239 -PORT # 72 -BYTE # 240 -PORT # 72 -BYTE # 241 -PORT # 72 -BYTE # 242 -PORT # 72 -BYTE # 243 -PORT # 72 -BYTE # 244 -PORT # 72 -BYTE # 245 -PORT # 72 -BYTE # 246 -PORT # 72 -BYTE # 247 -PORT # 72 -BYTE # 248 -PORT # 72 -BYTE # 249 -PORT # 72 -BYTE # 250 -PORT # 72 -BYTE # 251 -PORT # 72 -BYTE # 252 -PORT # 72 -BYTE # 253 -PORT # 72 -BYTE # 254 -PORT # 72 -BYTE # 255 -PORT # 73 -BYTE # 0 -PORT # 73 -BYTE # 1 -PORT # 73 -BYTE # 2 -PORT # 73 -BYTE # 3 -PORT # 73 -BYTE # 4 -PORT # 73 -BYTE # 5 -PORT # 73 -BYTE # 6 -PORT # 73 -BYTE # 7 -PORT # 73 -BYTE # 8 -PORT # 73 -BYTE # 9 -PORT # 73 -BYTE # 10 -PORT # 73 -BYTE # 11 -PORT # 73 -BYTE # 12 -PORT # 73 -BYTE # 13 -PORT # 73 -BYTE # 14 -PORT # 73 -BYTE # 15 -PORT # 73 -BYTE # 16 -PORT # 73 -BYTE # 17 -PORT # 73 -BYTE # 18 -PORT # 73 -BYTE # 19 -PORT # 73 -BYTE # 20 -PORT # 73 -BYTE # 21 -PORT # 73 -BYTE # 22 -PORT # 73 -BYTE # 23 -PORT # 73 -BYTE # 24 -PORT # 73 -BYTE # 25 -PORT # 73 -BYTE # 26 -PORT # 73 -BYTE # 27 -PORT # 73 -BYTE # 28 -PORT # 73 -BYTE # 29 -PORT # 73 -BYTE # 30 -PORT # 73 -BYTE # 31 -PORT # 73 -BYTE # 32 -PORT # 73 -BYTE # 33 -PORT # 73 -BYTE # 34 -PORT # 73 -BYTE # 35 -PORT # 73 -BYTE # 36 -PORT # 73 -BYTE # 37 -PORT # 73 -BYTE # 38 -PORT # 73 -BYTE # 39 -PORT # 73 -BYTE # 40 -PORT # 73 -BYTE # 41 -PORT # 73 -BYTE # 42 -PORT # 73 -BYTE # 43 -PORT # 73 -BYTE # 44 -PORT # 73 -BYTE # 45 -PORT # 73 -BYTE # 46 -PORT # 73 -BYTE # 47 -PORT # 73 -BYTE # 48 -PORT # 73 -BYTE # 49 -PORT # 73 -BYTE # 50 -PORT # 73 -BYTE # 51 -PORT # 73 -BYTE # 52 -PORT # 73 -BYTE # 53 -PORT # 73 -BYTE # 54 -PORT # 73 -BYTE # 55 -PORT # 73 -BYTE # 56 -PORT # 73 -BYTE # 57 -PORT # 73 -BYTE # 58 -PORT # 73 -BYTE # 59 -PORT # 73 -BYTE # 60 -PORT # 73 -BYTE # 61 -PORT # 73 -BYTE # 62 -PORT # 73 -BYTE # 63 -PORT # 73 -BYTE # 64 -PORT # 73 -BYTE # 65 -PORT # 73 -BYTE # 66 -PORT # 73 -BYTE # 67 -PORT # 73 -BYTE # 68 -PORT # 73 -BYTE # 69 -PORT # 73 -BYTE # 70 -PORT # 73 -BYTE # 71 -PORT # 73 -BYTE # 72 -PORT # 73 -BYTE # 73 -PORT # 73 -BYTE # 74 -PORT # 73 -BYTE # 75 -PORT # 73 -BYTE # 76 -PORT # 73 -BYTE # 77 -PORT # 73 -BYTE # 78 -PORT # 73 -BYTE # 79 -PORT # 73 -BYTE # 80 -PORT # 73 -BYTE # 81 -PORT # 73 -BYTE # 82 -PORT # 73 -BYTE # 83 -PORT # 73 -BYTE # 84 -PORT # 73 -BYTE # 85 -PORT # 73 -BYTE # 86 -PORT # 73 -BYTE # 87 -PORT # 73 -BYTE # 88 -PORT # 73 -BYTE # 89 -PORT # 73 -BYTE # 90 -PORT # 73 -BYTE # 91 -PORT # 73 -BYTE # 92 -PORT # 73 -BYTE # 93 -PORT # 73 -BYTE # 94 -PORT # 73 -BYTE # 95 -PORT # 73 -BYTE # 96 -PORT # 73 -BYTE # 97 -PORT # 73 -BYTE # 98 -PORT # 73 -BYTE # 99 -PORT # 73 -BYTE # 100 -PORT # 73 -BYTE # 101 -PORT # 73 -BYTE # 102 -PORT # 73 -BYTE # 103 -PORT # 73 -BYTE # 104 -PORT # 73 -BYTE # 105 -PORT # 73 -BYTE # 106 -PORT # 73 -BYTE # 107 -PORT # 73 -BYTE # 108 -PORT # 73 -BYTE # 109 -PORT # 73 -BYTE # 110 -PORT # 73 -BYTE # 111 -PORT # 73 -BYTE # 112 -PORT # 73 -BYTE # 113 -PORT # 73 -BYTE # 114 -PORT # 73 -BYTE # 115 -PORT # 73 -BYTE # 116 -PORT # 73 -BYTE # 117 -PORT # 73 -BYTE # 118 -PORT # 73 -BYTE # 119 -PORT # 73 -BYTE # 120 -PORT # 73 -BYTE # 121 -PORT # 73 -BYTE # 122 -PORT # 73 -BYTE # 123 -PORT # 73 -BYTE # 124 -PORT # 73 -BYTE # 125 -PORT # 73 -BYTE # 126 -PORT # 73 -BYTE # 127 -PORT # 73 -BYTE # 128 -PORT # 73 -BYTE # 129 -PORT # 73 -BYTE # 130 -PORT # 73 -BYTE # 131 -PORT # 73 -BYTE # 132 -PORT # 73 -BYTE # 133 -PORT # 73 -BYTE # 134 -PORT # 73 -BYTE # 135 -PORT # 73 -BYTE # 136 -PORT # 73 -BYTE # 137 -PORT # 73 -BYTE # 138 -PORT # 73 -BYTE # 139 -PORT # 73 -BYTE # 140 -PORT # 73 -BYTE # 141 -PORT # 73 -BYTE # 142 -PORT # 73 -BYTE # 143 -PORT # 73 -BYTE # 144 -PORT # 73 -BYTE # 145 -PORT # 73 -BYTE # 146 -PORT # 73 -BYTE # 147 -PORT # 73 -BYTE # 148 -PORT # 73 -BYTE # 149 -PORT # 73 -BYTE # 150 -PORT # 73 -BYTE # 151 -PORT # 73 -BYTE # 152 -PORT # 73 -BYTE # 153 -PORT # 73 -BYTE # 154 -PORT # 73 -BYTE # 155 -PORT # 73 -BYTE # 156 -PORT # 73 -BYTE # 157 -PORT # 73 -BYTE # 158 -PORT # 73 -BYTE # 159 -PORT # 73 -BYTE # 160 -PORT # 73 -BYTE # 161 -PORT # 73 -BYTE # 162 -PORT # 73 -BYTE # 163 -PORT # 73 -BYTE # 164 -PORT # 73 -BYTE # 165 -PORT # 73 -BYTE # 166 -PORT # 73 -BYTE # 167 -PORT # 73 -BYTE # 168 -PORT # 73 -BYTE # 169 -PORT # 73 -BYTE # 170 -PORT # 73 -BYTE # 171 -PORT # 73 -BYTE # 172 -PORT # 73 -BYTE # 173 -PORT # 73 -BYTE # 174 -PORT # 73 -BYTE # 175 -PORT # 73 -BYTE # 176 -PORT # 73 -BYTE # 177 -PORT # 73 -BYTE # 178 -PORT # 73 -BYTE # 179 -PORT # 73 -BYTE # 180 -PORT # 73 -BYTE # 181 -PORT # 73 -BYTE # 182 -PORT # 73 -BYTE # 183 -PORT # 73 -BYTE # 184 -PORT # 73 -BYTE # 185 -PORT # 73 -BYTE # 186 -PORT # 73 -BYTE # 187 -PORT # 73 -BYTE # 188 -PORT # 73 -BYTE # 189 -PORT # 73 -BYTE # 190 -PORT # 73 -BYTE # 191 -PORT # 73 -BYTE # 192 -PORT # 73 -BYTE # 193 -PORT # 73 -BYTE # 194 -PORT # 73 -BYTE # 195 -PORT # 73 -BYTE # 196 -PORT # 73 -BYTE # 197 -PORT # 73 -BYTE # 198 -PORT # 73 -BYTE # 199 -PORT # 73 -BYTE # 200 -PORT # 73 -BYTE # 201 -PORT # 73 -BYTE # 202 -PORT # 73 -BYTE # 203 -PORT # 73 -BYTE # 204 -PORT # 73 -BYTE # 205 -PORT # 73 -BYTE # 206 -PORT # 73 -BYTE # 207 -PORT # 73 -BYTE # 208 -PORT # 73 -BYTE # 209 -PORT # 73 -BYTE # 210 -PORT # 73 -BYTE # 211 -PORT # 73 -BYTE # 212 -PORT # 73 -BYTE # 213 -PORT # 73 -BYTE # 214 -PORT # 73 -BYTE # 215 -PORT # 73 -BYTE # 216 -PORT # 73 -BYTE # 217 -PORT # 73 -BYTE # 218 -PORT # 73 -BYTE # 219 -PORT # 73 -BYTE # 220 -PORT # 73 -BYTE # 221 -PORT # 73 -BYTE # 222 -PORT # 73 -BYTE # 223 -PORT # 73 -BYTE # 224 -PORT # 73 -BYTE # 225 -PORT # 73 -BYTE # 226 -PORT # 73 -BYTE # 227 -PORT # 73 -BYTE # 228 -PORT # 73 -BYTE # 229 -PORT # 73 -BYTE # 230 -PORT # 73 -BYTE # 231 -PORT # 73 -BYTE # 232 -PORT # 73 -BYTE # 233 -PORT # 73 -BYTE # 234 -PORT # 73 -BYTE # 235 -PORT # 73 -BYTE # 236 -PORT # 73 -BYTE # 237 -PORT # 73 -BYTE # 238 -PORT # 73 -BYTE # 239 -PORT # 73 -BYTE # 240 -PORT # 73 -BYTE # 241 -PORT # 73 -BYTE # 242 -PORT # 73 -BYTE # 243 -PORT # 73 -BYTE # 244 -PORT # 73 -BYTE # 245 -PORT # 73 -BYTE # 246 -PORT # 73 -BYTE # 247 -PORT # 73 -BYTE # 248 -PORT # 73 -BYTE # 249 -PORT # 73 -BYTE # 250 -PORT # 73 -BYTE # 251 -PORT # 73 -BYTE # 252 -PORT # 73 -BYTE # 253 -PORT # 73 -BYTE # 254 -PORT # 73 -BYTE # 255 -PORT # 74 -BYTE # 0 -PORT # 74 -BYTE # 1 -PORT # 74 -BYTE # 2 -PORT # 74 -BYTE # 3 -PORT # 74 -BYTE # 4 -PORT # 74 -BYTE # 5 -PORT # 74 -BYTE # 6 -PORT # 74 -BYTE # 7 -PORT # 74 -BYTE # 8 -PORT # 74 -BYTE # 9 -PORT # 74 -BYTE # 10 -PORT # 74 -BYTE # 11 -PORT # 74 -BYTE # 12 -PORT # 74 -BYTE # 13 -PORT # 74 -BYTE # 14 -PORT # 74 -BYTE # 15 -PORT # 74 -BYTE # 16 -PORT # 74 -BYTE # 17 -PORT # 74 -BYTE # 18 -PORT # 74 -BYTE # 19 -PORT # 74 -BYTE # 20 -PORT # 74 -BYTE # 21 -PORT # 74 -BYTE # 22 -PORT # 74 -BYTE # 23 -PORT # 74 -BYTE # 24 -PORT # 74 -BYTE # 25 -PORT # 74 -BYTE # 26 -PORT # 74 -BYTE # 27 -PORT # 74 -BYTE # 28 -PORT # 74 -BYTE # 29 -PORT # 74 -BYTE # 30 -PORT # 74 -BYTE # 31 -PORT # 74 -BYTE # 32 -PORT # 74 -BYTE # 33 -PORT # 74 -BYTE # 34 -PORT # 74 -BYTE # 35 -PORT # 74 -BYTE # 36 -PORT # 74 -BYTE # 37 -PORT # 74 -BYTE # 38 -PORT # 74 -BYTE # 39 -PORT # 74 -BYTE # 40 -PORT # 74 -BYTE # 41 -PORT # 74 -BYTE # 42 -PORT # 74 -BYTE # 43 -PORT # 74 -BYTE # 44 -PORT # 74 -BYTE # 45 -PORT # 74 -BYTE # 46 -PORT # 74 -BYTE # 47 -PORT # 74 -BYTE # 48 -PORT # 74 -BYTE # 49 -PORT # 74 -BYTE # 50 -PORT # 74 -BYTE # 51 -PORT # 74 -BYTE # 52 -PORT # 74 -BYTE # 53 -PORT # 74 -BYTE # 54 -PORT # 74 -BYTE # 55 -PORT # 74 -BYTE # 56 -PORT # 74 -BYTE # 57 -PORT # 74 -BYTE # 58 -PORT # 74 -BYTE # 59 -PORT # 74 -BYTE # 60 -PORT # 74 -BYTE # 61 -PORT # 74 -BYTE # 62 -PORT # 74 -BYTE # 63 -PORT # 74 -BYTE # 64 -PORT # 74 -BYTE # 65 -PORT # 74 -BYTE # 66 -PORT # 74 -BYTE # 67 -PORT # 74 -BYTE # 68 -PORT # 74 -BYTE # 69 -PORT # 74 -BYTE # 70 -PORT # 74 -BYTE # 71 -PORT # 74 -BYTE # 72 -PORT # 74 -BYTE # 73 -PORT # 74 -BYTE # 74 -PORT # 74 -BYTE # 75 -PORT # 74 -BYTE # 76 -PORT # 74 -BYTE # 77 -PORT # 74 -BYTE # 78 -PORT # 74 -BYTE # 79 -PORT # 74 -BYTE # 80 -PORT # 74 -BYTE # 81 -PORT # 74 -BYTE # 82 -PORT # 74 -BYTE # 83 -PORT # 74 -BYTE # 84 -PORT # 74 -BYTE # 85 -PORT # 74 -BYTE # 86 -PORT # 74 -BYTE # 87 -PORT # 74 -BYTE # 88 -PORT # 74 -BYTE # 89 -PORT # 74 -BYTE # 90 -PORT # 74 -BYTE # 91 -PORT # 74 -BYTE # 92 -PORT # 74 -BYTE # 93 -PORT # 74 -BYTE # 94 -PORT # 74 -BYTE # 95 -PORT # 74 -BYTE # 96 -PORT # 74 -BYTE # 97 -PORT # 74 -BYTE # 98 -PORT # 74 -BYTE # 99 -PORT # 74 -BYTE # 100 -PORT # 74 -BYTE # 101 -PORT # 74 -BYTE # 102 -PORT # 74 -BYTE # 103 -PORT # 74 -BYTE # 104 -PORT # 74 -BYTE # 105 -PORT # 74 -BYTE # 106 -PORT # 74 -BYTE # 107 -PORT # 74 -BYTE # 108 -PORT # 74 -BYTE # 109 -PORT # 74 -BYTE # 110 -PORT # 74 -BYTE # 111 -PORT # 74 -BYTE # 112 -PORT # 74 -BYTE # 113 -PORT # 74 -BYTE # 114 -PORT # 74 -BYTE # 115 -PORT # 74 -BYTE # 116 -PORT # 74 -BYTE # 117 -PORT # 74 -BYTE # 118 -PORT # 74 -BYTE # 119 -PORT # 74 -BYTE # 120 -PORT # 74 -BYTE # 121 -PORT # 74 -BYTE # 122 -PORT # 74 -BYTE # 123 -PORT # 74 -BYTE # 124 -PORT # 74 -BYTE # 125 -PORT # 74 -BYTE # 126 -PORT # 74 -BYTE # 127 -PORT # 74 -BYTE # 128 -PORT # 74 -BYTE # 129 -PORT # 74 -BYTE # 130 -PORT # 74 -BYTE # 131 -PORT # 74 -BYTE # 132 -PORT # 74 -BYTE # 133 -PORT # 74 -BYTE # 134 -PORT # 74 -BYTE # 135 -PORT # 74 -BYTE # 136 -PORT # 74 -BYTE # 137 -PORT # 74 -BYTE # 138 -PORT # 74 -BYTE # 139 -PORT # 74 -BYTE # 140 -PORT # 74 -BYTE # 141 -PORT # 74 -BYTE # 142 -PORT # 74 -BYTE # 143 -PORT # 74 -BYTE # 144 -PORT # 74 -BYTE # 145 -PORT # 74 -BYTE # 146 -PORT # 74 -BYTE # 147 -PORT # 74 -BYTE # 148 -PORT # 74 -BYTE # 149 -PORT # 74 -BYTE # 150 -PORT # 74 -BYTE # 151 -PORT # 74 -BYTE # 152 -PORT # 74 -BYTE # 153 -PORT # 74 -BYTE # 154 -PORT # 74 -BYTE # 155 -PORT # 74 -BYTE # 156 -PORT # 74 -BYTE # 157 -PORT # 74 -BYTE # 158 -PORT # 74 -BYTE # 159 -PORT # 74 -BYTE # 160 -PORT # 74 -BYTE # 161 -PORT # 74 -BYTE # 162 -PORT # 74 -BYTE # 163 -PORT # 74 -BYTE # 164 -PORT # 74 -BYTE # 165 -PORT # 74 -BYTE # 166 -PORT # 74 -BYTE # 167 -PORT # 74 -BYTE # 168 -PORT # 74 -BYTE # 169 -PORT # 74 -BYTE # 170 -PORT # 74 -BYTE # 171 -PORT # 74 -BYTE # 172 -PORT # 74 -BYTE # 173 -PORT # 74 -BYTE # 174 -PORT # 74 -BYTE # 175 -PORT # 74 -BYTE # 176 -PORT # 74 -BYTE # 177 -PORT # 74 -BYTE # 178 -PORT # 74 -BYTE # 179 -PORT # 74 -BYTE # 180 -PORT # 74 -BYTE # 181 -PORT # 74 -BYTE # 182 -PORT # 74 -BYTE # 183 -PORT # 74 -BYTE # 184 -PORT # 74 -BYTE # 185 -PORT # 74 -BYTE # 186 -PORT # 74 -BYTE # 187 -PORT # 74 -BYTE # 188 -PORT # 74 -BYTE # 189 -PORT # 74 -BYTE # 190 -PORT # 74 -BYTE # 191 -PORT # 74 -BYTE # 192 -PORT # 74 -BYTE # 193 -PORT # 74 -BYTE # 194 -PORT # 74 -BYTE # 195 -PORT # 74 -BYTE # 196 -PORT # 74 -BYTE # 197 -PORT # 74 -BYTE # 198 -PORT # 74 -BYTE # 199 -PORT # 74 -BYTE # 200 -PORT # 74 -BYTE # 201 -PORT # 74 -BYTE # 202 -PORT # 74 -BYTE # 203 -PORT # 74 -BYTE # 204 -PORT # 74 -BYTE # 205 -PORT # 74 -BYTE # 206 -PORT # 74 -BYTE # 207 -PORT # 74 -BYTE # 208 -PORT # 74 -BYTE # 209 -PORT # 74 -BYTE # 210 -PORT # 74 -BYTE # 211 -PORT # 74 -BYTE # 212 -PORT # 74 -BYTE # 213 -PORT # 74 -BYTE # 214 -PORT # 74 -BYTE # 215 -PORT # 74 -BYTE # 216 -PORT # 74 -BYTE # 217 -PORT # 74 -BYTE # 218 -PORT # 74 -BYTE # 219 -PORT # 74 -BYTE # 220 -PORT # 74 -BYTE # 221 -PORT # 74 -BYTE # 222 -PORT # 74 -BYTE # 223 -PORT # 74 -BYTE # 224 -PORT # 74 -BYTE # 225 -PORT # 74 -BYTE # 226 -PORT # 74 -BYTE # 227 -PORT # 74 -BYTE # 228 -PORT # 74 -BYTE # 229 -PORT # 74 -BYTE # 230 -PORT # 74 -BYTE # 231 -PORT # 74 -BYTE # 232 -PORT # 74 -BYTE # 233 -PORT # 74 -BYTE # 234 -PORT # 74 -BYTE # 235 -PORT # 74 -BYTE # 236 -PORT # 74 -BYTE # 237 -PORT # 74 -BYTE # 238 -PORT # 74 -BYTE # 239 -PORT # 74 -BYTE # 240 -PORT # 74 -BYTE # 241 -PORT # 74 -BYTE # 242 -PORT # 74 -BYTE # 243 -PORT # 74 -BYTE # 244 -PORT # 74 -BYTE # 245 -PORT # 74 -BYTE # 246 -PORT # 74 -BYTE # 247 -PORT # 74 -BYTE # 248 -PORT # 74 -BYTE # 249 -PORT # 74 -BYTE # 250 -PORT # 74 -BYTE # 251 -PORT # 74 -BYTE # 252 -PORT # 74 -BYTE # 253 -PORT # 74 -BYTE # 254 -PORT # 74 -BYTE # 255 -PORT # 75 -BYTE # 0 -PORT # 75 -BYTE # 1 -PORT # 75 -BYTE # 2 -PORT # 75 -BYTE # 3 -PORT # 75 -BYTE # 4 -PORT # 75 -BYTE # 5 -PORT # 75 -BYTE # 6 -PORT # 75 -BYTE # 7 -PORT # 75 -BYTE # 8 -PORT # 75 -BYTE # 9 -PORT # 75 -BYTE # 10 -PORT # 75 -BYTE # 11 -PORT # 75 -BYTE # 12 -PORT # 75 -BYTE # 13 -PORT # 75 -BYTE # 14 -PORT # 75 -BYTE # 15 -PORT # 75 -BYTE # 16 -PORT # 75 -BYTE # 17 -PORT # 75 -BYTE # 18 -PORT # 75 -BYTE # 19 -PORT # 75 -BYTE # 20 -PORT # 75 -BYTE # 21 -PORT # 75 -BYTE # 22 -PORT # 75 -BYTE # 23 -PORT # 75 -BYTE # 24 -PORT # 75 -BYTE # 25 -PORT # 75 -BYTE # 26 -PORT # 75 -BYTE # 27 -PORT # 75 -BYTE # 28 -PORT # 75 -BYTE # 29 -PORT # 75 -BYTE # 30 -PORT # 75 -BYTE # 31 -PORT # 75 -BYTE # 32 -PORT # 75 -BYTE # 33 -PORT # 75 -BYTE # 34 -PORT # 75 -BYTE # 35 -PORT # 75 -BYTE # 36 -PORT # 75 -BYTE # 37 -PORT # 75 -BYTE # 38 -PORT # 75 -BYTE # 39 -PORT # 75 -BYTE # 40 -PORT # 75 -BYTE # 41 -PORT # 75 -BYTE # 42 -PORT # 75 -BYTE # 43 -PORT # 75 -BYTE # 44 -PORT # 75 -BYTE # 45 -PORT # 75 -BYTE # 46 -PORT # 75 -BYTE # 47 -PORT # 75 -BYTE # 48 -PORT # 75 -BYTE # 49 -PORT # 75 -BYTE # 50 -PORT # 75 -BYTE # 51 -PORT # 75 -BYTE # 52 -PORT # 75 -BYTE # 53 -PORT # 75 -BYTE # 54 -PORT # 75 -BYTE # 55 -PORT # 75 -BYTE # 56 -PORT # 75 -BYTE # 57 -PORT # 75 -BYTE # 58 -PORT # 75 -BYTE # 59 -PORT # 75 -BYTE # 60 -PORT # 75 -BYTE # 61 -PORT # 75 -BYTE # 62 -PORT # 75 -BYTE # 63 -PORT # 75 -BYTE # 64 -PORT # 75 -BYTE # 65 -PORT # 75 -BYTE # 66 -PORT # 75 -BYTE # 67 -PORT # 75 -BYTE # 68 -PORT # 75 -BYTE # 69 -PORT # 75 -BYTE # 70 -PORT # 75 -BYTE # 71 -PORT # 75 -BYTE # 72 -PORT # 75 -BYTE # 73 -PORT # 75 -BYTE # 74 -PORT # 75 -BYTE # 75 -PORT # 75 -BYTE # 76 -PORT # 75 -BYTE # 77 -PORT # 75 -BYTE # 78 -PORT # 75 -BYTE # 79 -PORT # 75 -BYTE # 80 -PORT # 75 -BYTE # 81 -PORT # 75 -BYTE # 82 -PORT # 75 -BYTE # 83 -PORT # 75 -BYTE # 84 -PORT # 75 -BYTE # 85 -PORT # 75 -BYTE # 86 -PORT # 75 -BYTE # 87 -PORT # 75 -BYTE # 88 -PORT # 75 -BYTE # 89 -PORT # 75 -BYTE # 90 -PORT # 75 -BYTE # 91 -PORT # 75 -BYTE # 92 -PORT # 75 -BYTE # 93 -PORT # 75 -BYTE # 94 -PORT # 75 -BYTE # 95 -PORT # 75 -BYTE # 96 -PORT # 75 -BYTE # 97 -PORT # 75 -BYTE # 98 -PORT # 75 -BYTE # 99 -PORT # 75 -BYTE # 100 -PORT # 75 -BYTE # 101 -PORT # 75 -BYTE # 102 -PORT # 75 -BYTE # 103 -PORT # 75 -BYTE # 104 -PORT # 75 -BYTE # 105 -PORT # 75 -BYTE # 106 -PORT # 75 -BYTE # 107 -PORT # 75 -BYTE # 108 -PORT # 75 -BYTE # 109 -PORT # 75 -BYTE # 110 -PORT # 75 -BYTE # 111 -PORT # 75 -BYTE # 112 -PORT # 75 -BYTE # 113 -PORT # 75 -BYTE # 114 -PORT # 75 -BYTE # 115 -PORT # 75 -BYTE # 116 -PORT # 75 -BYTE # 117 -PORT # 75 -BYTE # 118 -PORT # 75 -BYTE # 119 -PORT # 75 -BYTE # 120 -PORT # 75 -BYTE # 121 -PORT # 75 -BYTE # 122 -PORT # 75 -BYTE # 123 -PORT # 75 -BYTE # 124 -PORT # 75 -BYTE # 125 -PORT # 75 -BYTE # 126 -PORT # 75 -BYTE # 127 -PORT # 75 -BYTE # 128 -PORT # 75 -BYTE # 129 -PORT # 75 -BYTE # 130 -PORT # 75 -BYTE # 131 -PORT # 75 -BYTE # 132 -PORT # 75 -BYTE # 133 -PORT # 75 -BYTE # 134 -PORT # 75 -BYTE # 135 -PORT # 75 -BYTE # 136 -PORT # 75 -BYTE # 137 -PORT # 75 -BYTE # 138 -PORT # 75 -BYTE # 139 -PORT # 75 -BYTE # 140 -PORT # 75 -BYTE # 141 -PORT # 75 -BYTE # 142 -PORT # 75 -BYTE # 143 -PORT # 75 -BYTE # 144 -PORT # 75 -BYTE # 145 -PORT # 75 -BYTE # 146 -PORT # 75 -BYTE # 147 -PORT # 75 -BYTE # 148 -PORT # 75 -BYTE # 149 -PORT # 75 -BYTE # 150 -PORT # 75 -BYTE # 151 -PORT # 75 -BYTE # 152 -PORT # 75 -BYTE # 153 -PORT # 75 -BYTE # 154 -PORT # 75 -BYTE # 155 -PORT # 75 -BYTE # 156 -PORT # 75 -BYTE # 157 -PORT # 75 -BYTE # 158 -PORT # 75 -BYTE # 159 -PORT # 75 -BYTE # 160 -PORT # 75 -BYTE # 161 -PORT # 75 -BYTE # 162 -PORT # 75 -BYTE # 163 -PORT # 75 -BYTE # 164 -PORT # 75 -BYTE # 165 -PORT # 75 -BYTE # 166 -PORT # 75 -BYTE # 167 -PORT # 75 -BYTE # 168 -PORT # 75 -BYTE # 169 -PORT # 75 -BYTE # 170 -PORT # 75 -BYTE # 171 -PORT # 75 -BYTE # 172 -PORT # 75 -BYTE # 173 -PORT # 75 -BYTE # 174 -PORT # 75 -BYTE # 175 -PORT # 75 -BYTE # 176 -PORT # 75 -BYTE # 177 -PORT # 75 -BYTE # 178 -PORT # 75 -BYTE # 179 -PORT # 75 -BYTE # 180 -PORT # 75 -BYTE # 181 -PORT # 75 -BYTE # 182 -PORT # 75 -BYTE # 183 -PORT # 75 -BYTE # 184 -PORT # 75 -BYTE # 185 -PORT # 75 -BYTE # 186 -PORT # 75 -BYTE # 187 -PORT # 75 -BYTE # 188 -PORT # 75 -BYTE # 189 -PORT # 75 -BYTE # 190 -PORT # 75 -BYTE # 191 -PORT # 75 -BYTE # 192 -PORT # 75 -BYTE # 193 -PORT # 75 -BYTE # 194 -PORT # 75 -BYTE # 195 -PORT # 75 -BYTE # 196 -PORT # 75 -BYTE # 197 -PORT # 75 -BYTE # 198 -PORT # 75 -BYTE # 199 -PORT # 75 -BYTE # 200 -PORT # 75 -BYTE # 201 -PORT # 75 -BYTE # 202 -PORT # 75 -BYTE # 203 -PORT # 75 -BYTE # 204 -PORT # 75 -BYTE # 205 -PORT # 75 -BYTE # 206 -PORT # 75 -BYTE # 207 -PORT # 75 -BYTE # 208 -PORT # 75 -BYTE # 209 -PORT # 75 -BYTE # 210 -PORT # 75 -BYTE # 211 -PORT # 75 -BYTE # 212 -PORT # 75 -BYTE # 213 -PORT # 75 -BYTE # 214 -PORT # 75 -BYTE # 215 -PORT # 75 -BYTE # 216 -PORT # 75 -BYTE # 217 -PORT # 75 -BYTE # 218 -PORT # 75 -BYTE # 219 -PORT # 75 -BYTE # 220 -PORT # 75 -BYTE # 221 -PORT # 75 -BYTE # 222 -PORT # 75 -BYTE # 223 -PORT # 75 -BYTE # 224 -PORT # 75 -BYTE # 225 -PORT # 75 -BYTE # 226 -PORT # 75 -BYTE # 227 -PORT # 75 -BYTE # 228 -PORT # 75 -BYTE # 229 -PORT # 75 -BYTE # 230 -PORT # 75 -BYTE # 231 -PORT # 75 -BYTE # 232 -PORT # 75 -BYTE # 233 -PORT # 75 -BYTE # 234 -PORT # 75 -BYTE # 235 -PORT # 75 -BYTE # 236 -PORT # 75 -BYTE # 237 -PORT # 75 -BYTE # 238 -PORT # 75 -BYTE # 239 -PORT # 75 -BYTE # 240 -PORT # 75 -BYTE # 241 -PORT # 75 -BYTE # 242 -PORT # 75 -BYTE # 243 -PORT # 75 -BYTE # 244 -PORT # 75 -BYTE # 245 -PORT # 75 -BYTE # 246 -PORT # 75 -BYTE # 247 -PORT # 75 -BYTE # 248 -PORT # 75 -BYTE # 249 -PORT # 75 -BYTE # 250 -PORT # 75 -BYTE # 251 -PORT # 75 -BYTE # 252 -PORT # 75 -BYTE # 253 -PORT # 75 -BYTE # 254 -PORT # 75 -BYTE # 255 -PORT # 76 -BYTE # 0 -PORT # 76 -BYTE # 1 -PORT # 76 -BYTE # 2 -PORT # 76 -BYTE # 3 -PORT # 76 -BYTE # 4 -PORT # 76 -BYTE # 5 -PORT # 76 -BYTE # 6 -PORT # 76 -BYTE # 7 -PORT # 76 -BYTE # 8 -PORT # 76 -BYTE # 9 -PORT # 76 -BYTE # 10 -PORT # 76 -BYTE # 11 -PORT # 76 -BYTE # 12 -PORT # 76 -BYTE # 13 -PORT # 76 -BYTE # 14 -PORT # 76 -BYTE # 15 -PORT # 76 -BYTE # 16 -PORT # 76 -BYTE # 17 -PORT # 76 -BYTE # 18 -PORT # 76 -BYTE # 19 -PORT # 76 -BYTE # 20 -PORT # 76 -BYTE # 21 -PORT # 76 -BYTE # 22 -PORT # 76 -BYTE # 23 -PORT # 76 -BYTE # 24 -PORT # 76 -BYTE # 25 -PORT # 76 -BYTE # 26 -PORT # 76 -BYTE # 27 -PORT # 76 -BYTE # 28 -PORT # 76 -BYTE # 29 -PORT # 76 -BYTE # 30 -PORT # 76 -BYTE # 31 -PORT # 76 -BYTE # 32 -PORT # 76 -BYTE # 33 -PORT # 76 -BYTE # 34 -PORT # 76 -BYTE # 35 -PORT # 76 -BYTE # 36 -PORT # 76 -BYTE # 37 -PORT # 76 -BYTE # 38 -PORT # 76 -BYTE # 39 -PORT # 76 -BYTE # 40 -PORT # 76 -BYTE # 41 -PORT # 76 -BYTE # 42 -PORT # 76 -BYTE # 43 -PORT # 76 -BYTE # 44 -PORT # 76 -BYTE # 45 -PORT # 76 -BYTE # 46 -PORT # 76 -BYTE # 47 -PORT # 76 -BYTE # 48 -PORT # 76 -BYTE # 49 -PORT # 76 -BYTE # 50 -PORT # 76 -BYTE # 51 -PORT # 76 -BYTE # 52 -PORT # 76 -BYTE # 53 -PORT # 76 -BYTE # 54 -PORT # 76 -BYTE # 55 -PORT # 76 -BYTE # 56 -PORT # 76 -BYTE # 57 -PORT # 76 -BYTE # 58 -PORT # 76 -BYTE # 59 -PORT # 76 -BYTE # 60 -PORT # 76 -BYTE # 61 -PORT # 76 -BYTE # 62 -PORT # 76 -BYTE # 63 -PORT # 76 -BYTE # 64 -PORT # 76 -BYTE # 65 -PORT # 76 -BYTE # 66 -PORT # 76 -BYTE # 67 -PORT # 76 -BYTE # 68 -PORT # 76 -BYTE # 69 -PORT # 76 -BYTE # 70 -PORT # 76 -BYTE # 71 -PORT # 76 -BYTE # 72 -PORT # 76 -BYTE # 73 -PORT # 76 -BYTE # 74 -PORT # 76 -BYTE # 75 -PORT # 76 -BYTE # 76 -PORT # 76 -BYTE # 77 -PORT # 76 -BYTE # 78 -PORT # 76 -BYTE # 79 -PORT # 76 -BYTE # 80 -PORT # 76 -BYTE # 81 -PORT # 76 -BYTE # 82 -PORT # 76 -BYTE # 83 -PORT # 76 -BYTE # 84 -PORT # 76 -BYTE # 85 -PORT # 76 -BYTE # 86 -PORT # 76 -BYTE # 87 -PORT # 76 -BYTE # 88 -PORT # 76 -BYTE # 89 -PORT # 76 -BYTE # 90 -PORT # 76 -BYTE # 91 -PORT # 76 -BYTE # 92 -PORT # 76 -BYTE # 93 -PORT # 76 -BYTE # 94 -PORT # 76 -BYTE # 95 -PORT # 76 -BYTE # 96 -PORT # 76 -BYTE # 97 -PORT # 76 -BYTE # 98 -PORT # 76 -BYTE # 99 -PORT # 76 -BYTE # 100 -PORT # 76 -BYTE # 101 -PORT # 76 -BYTE # 102 -PORT # 76 -BYTE # 103 -PORT # 76 -BYTE # 104 -PORT # 76 -BYTE # 105 -PORT # 76 -BYTE # 106 -PORT # 76 -BYTE # 107 -PORT # 76 -BYTE # 108 -PORT # 76 -BYTE # 109 -PORT # 76 -BYTE # 110 -PORT # 76 -BYTE # 111 -PORT # 76 -BYTE # 112 -PORT # 76 -BYTE # 113 -PORT # 76 -BYTE # 114 -PORT # 76 -BYTE # 115 -PORT # 76 -BYTE # 116 -PORT # 76 -BYTE # 117 -PORT # 76 -BYTE # 118 -PORT # 76 -BYTE # 119 -PORT # 76 -BYTE # 120 -PORT # 76 -BYTE # 121 -PORT # 76 -BYTE # 122 -PORT # 76 -BYTE # 123 -PORT # 76 -BYTE # 124 -PORT # 76 -BYTE # 125 -PORT # 76 -BYTE # 126 -PORT # 76 -BYTE # 127 -PORT # 76 -BYTE # 128 -PORT # 76 -BYTE # 129 -PORT # 76 -BYTE # 130 -PORT # 76 -BYTE # 131 -PORT # 76 -BYTE # 132 -PORT # 76 -BYTE # 133 -PORT # 76 -BYTE # 134 -PORT # 76 -BYTE # 135 -PORT # 76 -BYTE # 136 -PORT # 76 -BYTE # 137 -PORT # 76 -BYTE # 138 -PORT # 76 -BYTE # 139 -PORT # 76 -BYTE # 140 -PORT # 76 -BYTE # 141 -PORT # 76 -BYTE # 142 -PORT # 76 -BYTE # 143 -PORT # 76 -BYTE # 144 -PORT # 76 -BYTE # 145 -PORT # 76 -BYTE # 146 -PORT # 76 -BYTE # 147 -PORT # 76 -BYTE # 148 -PORT # 76 -BYTE # 149 -PORT # 76 -BYTE # 150 -PORT # 76 -BYTE # 151 -PORT # 76 -BYTE # 152 -PORT # 76 -BYTE # 153 -PORT # 76 -BYTE # 154 -PORT # 76 -BYTE # 155 -PORT # 76 -BYTE # 156 -PORT # 76 -BYTE # 157 -PORT # 76 -BYTE # 158 -PORT # 76 -BYTE # 159 -PORT # 76 -BYTE # 160 -PORT # 76 -BYTE # 161 -PORT # 76 -BYTE # 162 -PORT # 76 -BYTE # 163 -PORT # 76 -BYTE # 164 -PORT # 76 -BYTE # 165 -PORT # 76 -BYTE # 166 -PORT # 76 -BYTE # 167 -PORT # 76 -BYTE # 168 -PORT # 76 -BYTE # 169 -PORT # 76 -BYTE # 170 -PORT # 76 -BYTE # 171 -PORT # 76 -BYTE # 172 -PORT # 76 -BYTE # 173 -PORT # 76 -BYTE # 174 -PORT # 76 -BYTE # 175 -PORT # 76 -BYTE # 176 -PORT # 76 -BYTE # 177 -PORT # 76 -BYTE # 178 -PORT # 76 -BYTE # 179 -PORT # 76 -BYTE # 180 -PORT # 76 -BYTE # 181 -PORT # 76 -BYTE # 182 -PORT # 76 -BYTE # 183 -PORT # 76 -BYTE # 184 -PORT # 76 -BYTE # 185 -PORT # 76 -BYTE # 186 -PORT # 76 -BYTE # 187 -PORT # 76 -BYTE # 188 -PORT # 76 -BYTE # 189 -PORT # 76 -BYTE # 190 -PORT # 76 -BYTE # 191 -PORT # 76 -BYTE # 192 -PORT # 76 -BYTE # 193 -PORT # 76 -BYTE # 194 -PORT # 76 -BYTE # 195 -PORT # 76 -BYTE # 196 -PORT # 76 -BYTE # 197 -PORT # 76 -BYTE # 198 -PORT # 76 -BYTE # 199 -PORT # 76 -BYTE # 200 -PORT # 76 -BYTE # 201 -PORT # 76 -BYTE # 202 -PORT # 76 -BYTE # 203 -PORT # 76 -BYTE # 204 -PORT # 76 -BYTE # 205 -PORT # 76 -BYTE # 206 -PORT # 76 -BYTE # 207 -PORT # 76 -BYTE # 208 -PORT # 76 -BYTE # 209 -PORT # 76 -BYTE # 210 -PORT # 76 -BYTE # 211 -PORT # 76 -BYTE # 212 -PORT # 76 -BYTE # 213 -PORT # 76 -BYTE # 214 -PORT # 76 -BYTE # 215 -PORT # 76 -BYTE # 216 -PORT # 76 -BYTE # 217 -PORT # 76 -BYTE # 218 -PORT # 76 -BYTE # 219 -PORT # 76 -BYTE # 220 -PORT # 76 -BYTE # 221 -PORT # 76 -BYTE # 222 -PORT # 76 -BYTE # 223 -PORT # 76 -BYTE # 224 -PORT # 76 -BYTE # 225 -PORT # 76 -BYTE # 226 -PORT # 76 -BYTE # 227 -PORT # 76 -BYTE # 228 -PORT # 76 -BYTE # 229 -PORT # 76 -BYTE # 230 -PORT # 76 -BYTE # 231 -PORT # 76 -BYTE # 232 -PORT # 76 -BYTE # 233 -PORT # 76 -BYTE # 234 -PORT # 76 -BYTE # 235 -PORT # 76 -BYTE # 236 -PORT # 76 -BYTE # 237 -PORT # 76 -BYTE # 238 -PORT # 76 -BYTE # 239 -PORT # 76 -BYTE # 240 -PORT # 76 -BYTE # 241 -PORT # 76 -BYTE # 242 -PORT # 76 -BYTE # 243 -PORT # 76 -BYTE # 244 -PORT # 76 -BYTE # 245 -PORT # 76 -BYTE # 246 -PORT # 76 -BYTE # 247 -PORT # 76 -BYTE # 248 -PORT # 76 -BYTE # 249 -PORT # 76 -BYTE # 250 -PORT # 76 -BYTE # 251 -PORT # 76 -BYTE # 252 -PORT # 76 -BYTE # 253 -PORT # 76 -BYTE # 254 -PORT # 76 -BYTE # 255 -PORT # 77 -BYTE # 0 -PORT # 77 -BYTE # 1 -PORT # 77 -BYTE # 2 -PORT # 77 -BYTE # 3 -PORT # 77 -BYTE # 4 -PORT # 77 -BYTE # 5 -PORT # 77 -BYTE # 6 -PORT # 77 -BYTE # 7 -PORT # 77 -BYTE # 8 -PORT # 77 -BYTE # 9 -PORT # 77 -BYTE # 10 -PORT # 77 -BYTE # 11 -PORT # 77 -BYTE # 12 -PORT # 77 -BYTE # 13 -PORT # 77 -BYTE # 14 -PORT # 77 -BYTE # 15 -PORT # 77 -BYTE # 16 -PORT # 77 -BYTE # 17 -PORT # 77 -BYTE # 18 -PORT # 77 -BYTE # 19 -PORT # 77 -BYTE # 20 -PORT # 77 -BYTE # 21 -PORT # 77 -BYTE # 22 -PORT # 77 -BYTE # 23 -PORT # 77 -BYTE # 24 -PORT # 77 -BYTE # 25 -PORT # 77 -BYTE # 26 -PORT # 77 -BYTE # 27 -PORT # 77 -BYTE # 28 -PORT # 77 -BYTE # 29 -PORT # 77 -BYTE # 30 -PORT # 77 -BYTE # 31 -PORT # 77 -BYTE # 32 -PORT # 77 -BYTE # 33 -PORT # 77 -BYTE # 34 -PORT # 77 -BYTE # 35 -PORT # 77 -BYTE # 36 -PORT # 77 -BYTE # 37 -PORT # 77 -BYTE # 38 -PORT # 77 -BYTE # 39 -PORT # 77 -BYTE # 40 -PORT # 77 -BYTE # 41 -PORT # 77 -BYTE # 42 -PORT # 77 -BYTE # 43 -PORT # 77 -BYTE # 44 -PORT # 77 -BYTE # 45 -PORT # 77 -BYTE # 46 -PORT # 77 -BYTE # 47 -PORT # 77 -BYTE # 48 -PORT # 77 -BYTE # 49 -PORT # 77 -BYTE # 50 -PORT # 77 -BYTE # 51 -PORT # 77 -BYTE # 52 -PORT # 77 -BYTE # 53 -PORT # 77 -BYTE # 54 -PORT # 77 -BYTE # 55 -PORT # 77 -BYTE # 56 -PORT # 77 -BYTE # 57 -PORT # 77 -BYTE # 58 -PORT # 77 -BYTE # 59 -PORT # 77 -BYTE # 60 -PORT # 77 -BYTE # 61 -PORT # 77 -BYTE # 62 -PORT # 77 -BYTE # 63 -PORT # 77 -BYTE # 64 -PORT # 77 -BYTE # 65 -PORT # 77 -BYTE # 66 -PORT # 77 -BYTE # 67 -PORT # 77 -BYTE # 68 -PORT # 77 -BYTE # 69 -PORT # 77 -BYTE # 70 -PORT # 77 -BYTE # 71 -PORT # 77 -BYTE # 72 -PORT # 77 -BYTE # 73 -PORT # 77 -BYTE # 74 -PORT # 77 -BYTE # 75 -PORT # 77 -BYTE # 76 -PORT # 77 -BYTE # 77 -PORT # 77 -BYTE # 78 -PORT # 77 -BYTE # 79 -PORT # 77 -BYTE # 80 -PORT # 77 -BYTE # 81 -PORT # 77 -BYTE # 82 -PORT # 77 -BYTE # 83 -PORT # 77 -BYTE # 84 -PORT # 77 -BYTE # 85 -PORT # 77 -BYTE # 86 -PORT # 77 -BYTE # 87 -PORT # 77 -BYTE # 88 -PORT # 77 -BYTE # 89 -PORT # 77 -BYTE # 90 -PORT # 77 -BYTE # 91 -PORT # 77 -BYTE # 92 -PORT # 77 -BYTE # 93 -PORT # 77 -BYTE # 94 -PORT # 77 -BYTE # 95 -PORT # 77 -BYTE # 96 -PORT # 77 -BYTE # 97 -PORT # 77 -BYTE # 98 -PORT # 77 -BYTE # 99 -PORT # 77 -BYTE # 100 -PORT # 77 -BYTE # 101 -PORT # 77 -BYTE # 102 -PORT # 77 -BYTE # 103 -PORT # 77 -BYTE # 104 -PORT # 77 -BYTE # 105 -PORT # 77 -BYTE # 106 -PORT # 77 -BYTE # 107 -PORT # 77 -BYTE # 108 -PORT # 77 -BYTE # 109 -PORT # 77 -BYTE # 110 -PORT # 77 -BYTE # 111 -PORT # 77 -BYTE # 112 -PORT # 77 -BYTE # 113 -PORT # 77 -BYTE # 114 -PORT # 77 -BYTE # 115 -PORT # 77 -BYTE # 116 -PORT # 77 -BYTE # 117 -PORT # 77 -BYTE # 118 -PORT # 77 -BYTE # 119 -PORT # 77 -BYTE # 120 -PORT # 77 -BYTE # 121 -PORT # 77 -BYTE # 122 -PORT # 77 -BYTE # 123 -PORT # 77 -BYTE # 124 -PORT # 77 -BYTE # 125 -PORT # 77 -BYTE # 126 -PORT # 77 -BYTE # 127 -PORT # 77 -BYTE # 128 -PORT # 77 -BYTE # 129 -PORT # 77 -BYTE # 130 -PORT # 77 -BYTE # 131 -PORT # 77 -BYTE # 132 -PORT # 77 -BYTE # 133 -PORT # 77 -BYTE # 134 -PORT # 77 -BYTE # 135 -PORT # 77 -BYTE # 136 -PORT # 77 -BYTE # 137 -PORT # 77 -BYTE # 138 -PORT # 77 -BYTE # 139 -PORT # 77 -BYTE # 140 -PORT # 77 -BYTE # 141 -PORT # 77 -BYTE # 142 -PORT # 77 -BYTE # 143 -PORT # 77 -BYTE # 144 -PORT # 77 -BYTE # 145 -PORT # 77 -BYTE # 146 -PORT # 77 -BYTE # 147 -PORT # 77 -BYTE # 148 -PORT # 77 -BYTE # 149 -PORT # 77 -BYTE # 150 -PORT # 77 -BYTE # 151 -PORT # 77 -BYTE # 152 -PORT # 77 -BYTE # 153 -PORT # 77 -BYTE # 154 -PORT # 77 -BYTE # 155 -PORT # 77 -BYTE # 156 -PORT # 77 -BYTE # 157 -PORT # 77 -BYTE # 158 -PORT # 77 -BYTE # 159 -PORT # 77 -BYTE # 160 -PORT # 77 -BYTE # 161 -PORT # 77 -BYTE # 162 -PORT # 77 -BYTE # 163 -PORT # 77 -BYTE # 164 -PORT # 77 -BYTE # 165 -PORT # 77 -BYTE # 166 -PORT # 77 -BYTE # 167 -PORT # 77 -BYTE # 168 -PORT # 77 -BYTE # 169 -PORT # 77 -BYTE # 170 -PORT # 77 -BYTE # 171 -PORT # 77 -BYTE # 172 -PORT # 77 -BYTE # 173 -PORT # 77 -BYTE # 174 -PORT # 77 -BYTE # 175 -PORT # 77 -BYTE # 176 -PORT # 77 -BYTE # 177 -PORT # 77 -BYTE # 178 -PORT # 77 -BYTE # 179 -PORT # 77 -BYTE # 180 -PORT # 77 -BYTE # 181 -PORT # 77 -BYTE # 182 -PORT # 77 -BYTE # 183 -PORT # 77 -BYTE # 184 -PORT # 77 -BYTE # 185 -PORT # 77 -BYTE # 186 -PORT # 77 -BYTE # 187 -PORT # 77 -BYTE # 188 -PORT # 77 -BYTE # 189 -PORT # 77 -BYTE # 190 -PORT # 77 -BYTE # 191 -PORT # 77 -BYTE # 192 -PORT # 77 -BYTE # 193 -PORT # 77 -BYTE # 194 -PORT # 77 -BYTE # 195 -PORT # 77 -BYTE # 196 -PORT # 77 -BYTE # 197 -PORT # 77 -BYTE # 198 -PORT # 77 -BYTE # 199 -PORT # 77 -BYTE # 200 -PORT # 77 -BYTE # 201 -PORT # 77 -BYTE # 202 -PORT # 77 -BYTE # 203 -PORT # 77 -BYTE # 204 -PORT # 77 -BYTE # 205 -PORT # 77 -BYTE # 206 -PORT # 77 -BYTE # 207 -PORT # 77 -BYTE # 208 -PORT # 77 -BYTE # 209 -PORT # 77 -BYTE # 210 -PORT # 77 -BYTE # 211 -PORT # 77 -BYTE # 212 -PORT # 77 -BYTE # 213 -PORT # 77 -BYTE # 214 -PORT # 77 -BYTE # 215 -PORT # 77 -BYTE # 216 -PORT # 77 -BYTE # 217 -PORT # 77 -BYTE # 218 -PORT # 77 -BYTE # 219 -PORT # 77 -BYTE # 220 -PORT # 77 -BYTE # 221 -PORT # 77 -BYTE # 222 -PORT # 77 -BYTE # 223 -PORT # 77 -BYTE # 224 -PORT # 77 -BYTE # 225 -PORT # 77 -BYTE # 226 -PORT # 77 -BYTE # 227 -PORT # 77 -BYTE # 228 -PORT # 77 -BYTE # 229 -PORT # 77 -BYTE # 230 -PORT # 77 -BYTE # 231 -PORT # 77 -BYTE # 232 -PORT # 77 -BYTE # 233 -PORT # 77 -BYTE # 234 -PORT # 77 -BYTE # 235 -PORT # 77 -BYTE # 236 -PORT # 77 -BYTE # 237 -PORT # 77 -BYTE # 238 -PORT # 77 -BYTE # 239 -PORT # 77 -BYTE # 240 -PORT # 77 -BYTE # 241 -PORT # 77 -BYTE # 242 -PORT # 77 -BYTE # 243 -PORT # 77 -BYTE # 244 -PORT # 77 -BYTE # 245 -PORT # 77 -BYTE # 246 -PORT # 77 -BYTE # 247 -PORT # 77 -BYTE # 248 -PORT # 77 -BYTE # 249 -PORT # 77 -BYTE # 250 -PORT # 77 -BYTE # 251 -PORT # 77 -BYTE # 252 -PORT # 77 -BYTE # 253 -PORT # 77 -BYTE # 254 -PORT # 77 -BYTE # 255 -PORT # 78 -BYTE # 0 -PORT # 78 -BYTE # 1 -PORT # 78 -BYTE # 2 -PORT # 78 -BYTE # 3 -PORT # 78 -BYTE # 4 -PORT # 78 -BYTE # 5 -PORT # 78 -BYTE # 6 -PORT # 78 -BYTE # 7 -PORT # 78 -BYTE # 8 -PORT # 78 -BYTE # 9 -PORT # 78 -BYTE # 10 -PORT # 78 -BYTE # 11 -PORT # 78 -BYTE # 12 -PORT # 78 -BYTE # 13 -PORT # 78 -BYTE # 14 -PORT # 78 -BYTE # 15 -PORT # 78 -BYTE # 16 -PORT # 78 -BYTE # 17 -PORT # 78 -BYTE # 18 -PORT # 78 -BYTE # 19 -PORT # 78 -BYTE # 20 -PORT # 78 -BYTE # 21 -PORT # 78 -BYTE # 22 -PORT # 78 -BYTE # 23 -PORT # 78 -BYTE # 24 -PORT # 78 -BYTE # 25 -PORT # 78 -BYTE # 26 -PORT # 78 -BYTE # 27 -PORT # 78 -BYTE # 28 -PORT # 78 -BYTE # 29 -PORT # 78 -BYTE # 30 -PORT # 78 -BYTE # 31 -PORT # 78 -BYTE # 32 -PORT # 78 -BYTE # 33 -PORT # 78 -BYTE # 34 -PORT # 78 -BYTE # 35 -PORT # 78 -BYTE # 36 -PORT # 78 -BYTE # 37 -PORT # 78 -BYTE # 38 -PORT # 78 -BYTE # 39 -PORT # 78 -BYTE # 40 -PORT # 78 -BYTE # 41 -PORT # 78 -BYTE # 42 -PORT # 78 -BYTE # 43 -PORT # 78 -BYTE # 44 -PORT # 78 -BYTE # 45 -PORT # 78 -BYTE # 46 -PORT # 78 -BYTE # 47 -PORT # 78 -BYTE # 48 -PORT # 78 -BYTE # 49 -PORT # 78 -BYTE # 50 -PORT # 78 -BYTE # 51 -PORT # 78 -BYTE # 52 -PORT # 78 -BYTE # 53 -PORT # 78 -BYTE # 54 -PORT # 78 -BYTE # 55 -PORT # 78 -BYTE # 56 -PORT # 78 -BYTE # 57 -PORT # 78 -BYTE # 58 -PORT # 78 -BYTE # 59 -PORT # 78 -BYTE # 60 -PORT # 78 -BYTE # 61 -PORT # 78 -BYTE # 62 -PORT # 78 -BYTE # 63 -PORT # 78 -BYTE # 64 -PORT # 78 -BYTE # 65 -PORT # 78 -BYTE # 66 -PORT # 78 -BYTE # 67 -PORT # 78 -BYTE # 68 -PORT # 78 -BYTE # 69 -PORT # 78 -BYTE # 70 -PORT # 78 -BYTE # 71 -PORT # 78 -BYTE # 72 -PORT # 78 -BYTE # 73 -PORT # 78 -BYTE # 74 -PORT # 78 -BYTE # 75 -PORT # 78 -BYTE # 76 -PORT # 78 -BYTE # 77 -PORT # 78 -BYTE # 78 -PORT # 78 -BYTE # 79 -PORT # 78 -BYTE # 80 -PORT # 78 -BYTE # 81 -PORT # 78 -BYTE # 82 -PORT # 78 -BYTE # 83 -PORT # 78 -BYTE # 84 -PORT # 78 -BYTE # 85 -PORT # 78 -BYTE # 86 -PORT # 78 -BYTE # 87 -PORT # 78 -BYTE # 88 -PORT # 78 -BYTE # 89 -PORT # 78 -BYTE # 90 -PORT # 78 -BYTE # 91 -PORT # 78 -BYTE # 92 -PORT # 78 -BYTE # 93 -PORT # 78 -BYTE # 94 -PORT # 78 -BYTE # 95 -PORT # 78 -BYTE # 96 -PORT # 78 -BYTE # 97 -PORT # 78 -BYTE # 98 -PORT # 78 -BYTE # 99 -PORT # 78 -BYTE # 100 -PORT # 78 -BYTE # 101 -PORT # 78 -BYTE # 102 -PORT # 78 -BYTE # 103 -PORT # 78 -BYTE # 104 -PORT # 78 -BYTE # 105 -PORT # 78 -BYTE # 106 -PORT # 78 -BYTE # 107 -PORT # 78 -BYTE # 108 -PORT # 78 -BYTE # 109 -PORT # 78 -BYTE # 110 -PORT # 78 -BYTE # 111 -PORT # 78 -BYTE # 112 -PORT # 78 -BYTE # 113 -PORT # 78 -BYTE # 114 -PORT # 78 -BYTE # 115 -PORT # 78 -BYTE # 116 -PORT # 78 -BYTE # 117 -PORT # 78 -BYTE # 118 -PORT # 78 -BYTE # 119 -PORT # 78 -BYTE # 120 -PORT # 78 -BYTE # 121 -PORT # 78 -BYTE # 122 -PORT # 78 -BYTE # 123 -PORT # 78 -BYTE # 124 -PORT # 78 -BYTE # 125 -PORT # 78 -BYTE # 126 -PORT # 78 -BYTE # 127 -PORT # 78 -BYTE # 128 -PORT # 78 -BYTE # 129 -PORT # 78 -BYTE # 130 -PORT # 78 -BYTE # 131 -PORT # 78 -BYTE # 132 -PORT # 78 -BYTE # 133 -PORT # 78 -BYTE # 134 -PORT # 78 -BYTE # 135 -PORT # 78 -BYTE # 136 -PORT # 78 -BYTE # 137 -PORT # 78 -BYTE # 138 -PORT # 78 -BYTE # 139 -PORT # 78 -BYTE # 140 -PORT # 78 -BYTE # 141 -PORT # 78 -BYTE # 142 -PORT # 78 -BYTE # 143 -PORT # 78 -BYTE # 144 -PORT # 78 -BYTE # 145 -PORT # 78 -BYTE # 146 -PORT # 78 -BYTE # 147 -PORT # 78 -BYTE # 148 -PORT # 78 -BYTE # 149 -PORT # 78 -BYTE # 150 -PORT # 78 -BYTE # 151 -PORT # 78 -BYTE # 152 -PORT # 78 -BYTE # 153 -PORT # 78 -BYTE # 154 -PORT # 78 -BYTE # 155 -PORT # 78 -BYTE # 156 -PORT # 78 -BYTE # 157 -PORT # 78 -BYTE # 158 -PORT # 78 -BYTE # 159 -PORT # 78 -BYTE # 160 -PORT # 78 -BYTE # 161 -PORT # 78 -BYTE # 162 -PORT # 78 -BYTE # 163 -PORT # 78 -BYTE # 164 -PORT # 78 -BYTE # 165 -PORT # 78 -BYTE # 166 -PORT # 78 -BYTE # 167 -PORT # 78 -BYTE # 168 -PORT # 78 -BYTE # 169 -PORT # 78 -BYTE # 170 -PORT # 78 -BYTE # 171 -PORT # 78 -BYTE # 172 -PORT # 78 -BYTE # 173 -PORT # 78 -BYTE # 174 -PORT # 78 -BYTE # 175 -PORT # 78 -BYTE # 176 -PORT # 78 -BYTE # 177 -PORT # 78 -BYTE # 178 -PORT # 78 -BYTE # 179 -PORT # 78 -BYTE # 180 -PORT # 78 -BYTE # 181 -PORT # 78 -BYTE # 182 -PORT # 78 -BYTE # 183 -PORT # 78 -BYTE # 184 -PORT # 78 -BYTE # 185 -PORT # 78 -BYTE # 186 -PORT # 78 -BYTE # 187 -PORT # 78 -BYTE # 188 -PORT # 78 -BYTE # 189 -PORT # 78 -BYTE # 190 -PORT # 78 -BYTE # 191 -PORT # 78 -BYTE # 192 -PORT # 78 -BYTE # 193 -PORT # 78 -BYTE # 194 -PORT # 78 -BYTE # 195 -PORT # 78 -BYTE # 196 -PORT # 78 -BYTE # 197 -PORT # 78 -BYTE # 198 -PORT # 78 -BYTE # 199 -PORT # 78 -BYTE # 200 -PORT # 78 -BYTE # 201 -PORT # 78 -BYTE # 202 -PORT # 78 -BYTE # 203 -PORT # 78 -BYTE # 204 -PORT # 78 -BYTE # 205 -PORT # 78 -BYTE # 206 -PORT # 78 -BYTE # 207 -PORT # 78 -BYTE # 208 -PORT # 78 -BYTE # 209 -PORT # 78 -BYTE # 210 -PORT # 78 -BYTE # 211 -PORT # 78 -BYTE # 212 -PORT # 78 -BYTE # 213 -PORT # 78 -BYTE # 214 -PORT # 78 -BYTE # 215 -PORT # 78 -BYTE # 216 -PORT # 78 -BYTE # 217 -PORT # 78 -BYTE # 218 -PORT # 78 -BYTE # 219 -PORT # 78 -BYTE # 220 -PORT # 78 -BYTE # 221 -PORT # 78 -BYTE # 222 -PORT # 78 -BYTE # 223 -PORT # 78 -BYTE # 224 -PORT # 78 -BYTE # 225 -PORT # 78 -BYTE # 226 -PORT # 78 -BYTE # 227 -PORT # 78 -BYTE # 228 -PORT # 78 -BYTE # 229 -PORT # 78 -BYTE # 230 -PORT # 78 -BYTE # 231 -PORT # 78 -BYTE # 232 -PORT # 78 -BYTE # 233 -PORT # 78 -BYTE # 234 -PORT # 78 -BYTE # 235 -PORT # 78 -BYTE # 236 -PORT # 78 -BYTE # 237 -PORT # 78 -BYTE # 238 -PORT # 78 -BYTE # 239 -PORT # 78 -BYTE # 240 -PORT # 78 -BYTE # 241 -PORT # 78 -BYTE # 242 -PORT # 78 -BYTE # 243 -PORT # 78 -BYTE # 244 -PORT # 78 -BYTE # 245 -PORT # 78 -BYTE # 246 -PORT # 78 -BYTE # 247 -PORT # 78 -BYTE # 248 -PORT # 78 -BYTE # 249 -PORT # 78 -BYTE # 250 -PORT # 78 -BYTE # 251 -PORT # 78 -BYTE # 252 -PORT # 78 -BYTE # 253 -PORT # 78 -BYTE # 254 -PORT # 78 -BYTE # 255 -PORT # 79 -BYTE # 0 -PORT # 79 -BYTE # 1 -PORT # 79 -BYTE # 2 -PORT # 79 -BYTE # 3 -PORT # 79 -BYTE # 4 -PORT # 79 -BYTE # 5 -PORT # 79 -BYTE # 6 -PORT # 79 -BYTE # 7 -PORT # 79 -BYTE # 8 -PORT # 79 -BYTE # 9 -PORT # 79 -BYTE # 10 -PORT # 79 -BYTE # 11 -PORT # 79 -BYTE # 12 -PORT # 79 -BYTE # 13 -PORT # 79 -BYTE # 14 -PORT # 79 -BYTE # 15 -PORT # 79 -BYTE # 16 -PORT # 79 -BYTE # 17 -PORT # 79 -BYTE # 18 -PORT # 79 -BYTE # 19 -PORT # 79 -BYTE # 20 -PORT # 79 -BYTE # 21 -PORT # 79 -BYTE # 22 -PORT # 79 -BYTE # 23 -PORT # 79 -BYTE # 24 -PORT # 79 -BYTE # 25 -PORT # 79 -BYTE # 26 -PORT # 79 -BYTE # 27 -PORT # 79 -BYTE # 28 -PORT # 79 -BYTE # 29 -PORT # 79 -BYTE # 30 -PORT # 79 -BYTE # 31 -PORT # 79 -BYTE # 32 -PORT # 79 -BYTE # 33 -PORT # 79 -BYTE # 34 -PORT # 79 -BYTE # 35 -PORT # 79 -BYTE # 36 -PORT # 79 -BYTE # 37 -PORT # 79 -BYTE # 38 -PORT # 79 -BYTE # 39 -PORT # 79 -BYTE # 40 -PORT # 79 -BYTE # 41 -PORT # 79 -BYTE # 42 -PORT # 79 -BYTE # 43 -PORT # 79 -BYTE # 44 -PORT # 79 -BYTE # 45 -PORT # 79 -BYTE # 46 -PORT # 79 -BYTE # 47 -PORT # 79 -BYTE # 48 -PORT # 79 -BYTE # 49 -PORT # 79 -BYTE # 50 -PORT # 79 -BYTE # 51 -PORT # 79 -BYTE # 52 -PORT # 79 -BYTE # 53 -PORT # 79 -BYTE # 54 -PORT # 79 -BYTE # 55 -PORT # 79 -BYTE # 56 -PORT # 79 -BYTE # 57 -PORT # 79 -BYTE # 58 -PORT # 79 -BYTE # 59 -PORT # 79 -BYTE # 60 -PORT # 79 -BYTE # 61 -PORT # 79 -BYTE # 62 -PORT # 79 -BYTE # 63 -PORT # 79 -BYTE # 64 -PORT # 79 -BYTE # 65 -PORT # 79 -BYTE # 66 -PORT # 79 -BYTE # 67 -PORT # 79 -BYTE # 68 -PORT # 79 -BYTE # 69 -PORT # 79 -BYTE # 70 -PORT # 79 -BYTE # 71 -PORT # 79 -BYTE # 72 -PORT # 79 -BYTE # 73 -PORT # 79 -BYTE # 74 -PORT # 79 -BYTE # 75 -PORT # 79 -BYTE # 76 -PORT # 79 -BYTE # 77 -PORT # 79 -BYTE # 78 -PORT # 79 -BYTE # 79 -PORT # 79 -BYTE # 80 -PORT # 79 -BYTE # 81 -PORT # 79 -BYTE # 82 -PORT # 79 -BYTE # 83 -PORT # 79 -BYTE # 84 -PORT # 79 -BYTE # 85 -PORT # 79 -BYTE # 86 -PORT # 79 -BYTE # 87 -PORT # 79 -BYTE # 88 -PORT # 79 -BYTE # 89 -PORT # 79 -BYTE # 90 -PORT # 79 -BYTE # 91 -PORT # 79 -BYTE # 92 -PORT # 79 -BYTE # 93 -PORT # 79 -BYTE # 94 -PORT # 79 -BYTE # 95 -PORT # 79 -BYTE # 96 -PORT # 79 -BYTE # 97 -PORT # 79 -BYTE # 98 -PORT # 79 -BYTE # 99 -PORT # 79 -BYTE # 100 -PORT # 79 -BYTE # 101 -PORT # 79 -BYTE # 102 -PORT # 79 -BYTE # 103 -PORT # 79 -BYTE # 104 -PORT # 79 -BYTE # 105 -PORT # 79 -BYTE # 106 -PORT # 79 -BYTE # 107 -PORT # 79 -BYTE # 108 -PORT # 79 -BYTE # 109 -PORT # 79 -BYTE # 110 -PORT # 79 -BYTE # 111 -PORT # 79 -BYTE # 112 -PORT # 79 -BYTE # 113 -PORT # 79 -BYTE # 114 -PORT # 79 -BYTE # 115 -PORT # 79 -BYTE # 116 -PORT # 79 -BYTE # 117 -PORT # 79 -BYTE # 118 -PORT # 79 -BYTE # 119 -PORT # 79 -BYTE # 120 -PORT # 79 -BYTE # 121 -PORT # 79 -BYTE # 122 -PORT # 79 -BYTE # 123 -PORT # 79 -BYTE # 124 -PORT # 79 -BYTE # 125 -PORT # 79 -BYTE # 126 -PORT # 79 -BYTE # 127 -PORT # 79 -BYTE # 128 -PORT # 79 -BYTE # 129 -PORT # 79 -BYTE # 130 -PORT # 79 -BYTE # 131 -PORT # 79 -BYTE # 132 -PORT # 79 -BYTE # 133 -PORT # 79 -BYTE # 134 -PORT # 79 -BYTE # 135 -PORT # 79 -BYTE # 136 -PORT # 79 -BYTE # 137 -PORT # 79 -BYTE # 138 -PORT # 79 -BYTE # 139 -PORT # 79 -BYTE # 140 -PORT # 79 -BYTE # 141 -PORT # 79 -BYTE # 142 -PORT # 79 -BYTE # 143 -PORT # 79 -BYTE # 144 -PORT # 79 -BYTE # 145 -PORT # 79 -BYTE # 146 -PORT # 79 -BYTE # 147 -PORT # 79 -BYTE # 148 -PORT # 79 -BYTE # 149 -PORT # 79 -BYTE # 150 -PORT # 79 -BYTE # 151 -PORT # 79 -BYTE # 152 -PORT # 79 -BYTE # 153 -PORT # 79 -BYTE # 154 -PORT # 79 -BYTE # 155 -PORT # 79 -BYTE # 156 -PORT # 79 -BYTE # 157 -PORT # 79 -BYTE # 158 -PORT # 79 -BYTE # 159 -PORT # 79 -BYTE # 160 -PORT # 79 -BYTE # 161 -PORT # 79 -BYTE # 162 -PORT # 79 -BYTE # 163 -PORT # 79 -BYTE # 164 -PORT # 79 -BYTE # 165 -PORT # 79 -BYTE # 166 -PORT # 79 -BYTE # 167 -PORT # 79 -BYTE # 168 -PORT # 79 -BYTE # 169 -PORT # 79 -BYTE # 170 -PORT # 79 -BYTE # 171 -PORT # 79 -BYTE # 172 -PORT # 79 -BYTE # 173 -PORT # 79 -BYTE # 174 -PORT # 79 -BYTE # 175 -PORT # 79 -BYTE # 176 -PORT # 79 -BYTE # 177 -PORT # 79 -BYTE # 178 -PORT # 79 -BYTE # 179 -PORT # 79 -BYTE # 180 -PORT # 79 -BYTE # 181 -PORT # 79 -BYTE # 182 -PORT # 79 -BYTE # 183 -PORT # 79 -BYTE # 184 -PORT # 79 -BYTE # 185 -PORT # 79 -BYTE # 186 -PORT # 79 -BYTE # 187 -PORT # 79 -BYTE # 188 -PORT # 79 -BYTE # 189 -PORT # 79 -BYTE # 190 -PORT # 79 -BYTE # 191 -PORT # 79 -BYTE # 192 -PORT # 79 -BYTE # 193 -PORT # 79 -BYTE # 194 -PORT # 79 -BYTE # 195 -PORT # 79 -BYTE # 196 -PORT # 79 -BYTE # 197 -PORT # 79 -BYTE # 198 -PORT # 79 -BYTE # 199 -PORT # 79 -BYTE # 200 -PORT # 79 -BYTE # 201 -PORT # 79 -BYTE # 202 -PORT # 79 -BYTE # 203 -PORT # 79 -BYTE # 204 -PORT # 79 -BYTE # 205 -PORT # 79 -BYTE # 206 -PORT # 79 -BYTE # 207 -PORT # 79 -BYTE # 208 -PORT # 79 -BYTE # 209 -PORT # 79 -BYTE # 210 -PORT # 79 -BYTE # 211 -PORT # 79 -BYTE # 212 -PORT # 79 -BYTE # 213 -PORT # 79 -BYTE # 214 -PORT # 79 -BYTE # 215 -PORT # 79 -BYTE # 216 -PORT # 79 -BYTE # 217 -PORT # 79 -BYTE # 218 -PORT # 79 -BYTE # 219 -PORT # 79 -BYTE # 220 -PORT # 79 -BYTE # 221 -PORT # 79 -BYTE # 222 -PORT # 79 -BYTE # 223 -PORT # 79 -BYTE # 224 -PORT # 79 -BYTE # 225 -PORT # 79 -BYTE # 226 -PORT # 79 -BYTE # 227 -PORT # 79 -BYTE # 228 -PORT # 79 -BYTE # 229 -PORT # 79 -BYTE # 230 -PORT # 79 -BYTE # 231 -PORT # 79 -BYTE # 232 -PORT # 79 -BYTE # 233 -PORT # 79 -BYTE # 234 -PORT # 79 -BYTE # 235 -PORT # 79 -BYTE # 236 -PORT # 79 -BYTE # 237 -PORT # 79 -BYTE # 238 -PORT # 79 -BYTE # 239 -PORT # 79 -BYTE # 240 -PORT # 79 -BYTE # 241 -PORT # 79 -BYTE # 242 -PORT # 79 -BYTE # 243 -PORT # 79 -BYTE # 244 -PORT # 79 -BYTE # 245 -PORT # 79 -BYTE # 246 -PORT # 79 -BYTE # 247 -PORT # 79 -BYTE # 248 -PORT # 79 -BYTE # 249 -PORT # 79 -BYTE # 250 -PORT # 79 -BYTE # 251 -PORT # 79 -BYTE # 252 -PORT # 79 -BYTE # 253 -PORT # 79 -BYTE # 254 -PORT # 79 -BYTE # 255 -PORT # 80 -BYTE # 0 -PORT # 80 -BYTE # 1 -PORT # 80 -BYTE # 2 -PORT # 80 -BYTE # 3 -PORT # 80 -BYTE # 4 -PORT # 80 -BYTE # 5 -PORT # 80 -BYTE # 6 -PORT # 80 -BYTE # 7 -PORT # 80 -BYTE # 8 -PORT # 80 -BYTE # 9 -PORT # 80 -BYTE # 10 -PORT # 80 -BYTE # 11 -PORT # 80 -BYTE # 12 -PORT # 80 -BYTE # 13 -PORT # 80 -BYTE # 14 -PORT # 80 -BYTE # 15 -PORT # 80 -BYTE # 16 -PORT # 80 -BYTE # 17 -PORT # 80 -BYTE # 18 -PORT # 80 -BYTE # 19 -PORT # 80 -BYTE # 20 -PORT # 80 -BYTE # 21 -PORT # 80 -BYTE # 22 -PORT # 80 -BYTE # 23 -PORT # 80 -BYTE # 24 -PORT # 80 -BYTE # 25 -PORT # 80 -BYTE # 26 -PORT # 80 -BYTE # 27 -PORT # 80 -BYTE # 28 -PORT # 80 -BYTE # 29 -PORT # 80 -BYTE # 30 -PORT # 80 -BYTE # 31 -PORT # 80 -BYTE # 32 -PORT # 80 -BYTE # 33 -PORT # 80 -BYTE # 34 -PORT # 80 -BYTE # 35 -PORT # 80 -BYTE # 36 -PORT # 80 -BYTE # 37 -PORT # 80 -BYTE # 38 -PORT # 80 -BYTE # 39 -PORT # 80 -BYTE # 40 -PORT # 80 -BYTE # 41 -PORT # 80 -BYTE # 42 -PORT # 80 -BYTE # 43 -PORT # 80 -BYTE # 44 -PORT # 80 -BYTE # 45 -PORT # 80 -BYTE # 46 -PORT # 80 -BYTE # 47 -PORT # 80 -BYTE # 48 -PORT # 80 -BYTE # 49 -PORT # 80 -BYTE # 50 -PORT # 80 -BYTE # 51 -PORT # 80 -BYTE # 52 -PORT # 80 -BYTE # 53 -PORT # 80 -BYTE # 54 -PORT # 80 -BYTE # 55 -PORT # 80 -BYTE # 56 -PORT # 80 -BYTE # 57 -PORT # 80 -BYTE # 58 -PORT # 80 -BYTE # 59 -PORT # 80 -BYTE # 60 -PORT # 80 -BYTE # 61 -PORT # 80 -BYTE # 62 -PORT # 80 -BYTE # 63 -PORT # 80 -BYTE # 64 -PORT # 80 -BYTE # 65 -PORT # 80 -BYTE # 66 -PORT # 80 -BYTE # 67 -PORT # 80 -BYTE # 68 -PORT # 80 -BYTE # 69 -PORT # 80 -BYTE # 70 -PORT # 80 -BYTE # 71 -PORT # 80 -BYTE # 72 -PORT # 80 -BYTE # 73 -PORT # 80 -BYTE # 74 -PORT # 80 -BYTE # 75 -PORT # 80 -BYTE # 76 -PORT # 80 -BYTE # 77 -PORT # 80 -BYTE # 78 -PORT # 80 -BYTE # 79 -PORT # 80 -BYTE # 80 -PORT # 80 -BYTE # 81 -PORT # 80 -BYTE # 82 -PORT # 80 -BYTE # 83 -PORT # 80 -BYTE # 84 -PORT # 80 -BYTE # 85 -PORT # 80 -BYTE # 86 -PORT # 80 -BYTE # 87 -PORT # 80 -BYTE # 88 -PORT # 80 -BYTE # 89 -PORT # 80 -BYTE # 90 -PORT # 80 -BYTE # 91 -PORT # 80 -BYTE # 92 -PORT # 80 -BYTE # 93 -PORT # 80 -BYTE # 94 -PORT # 80 -BYTE # 95 -PORT # 80 -BYTE # 96 -PORT # 80 -BYTE # 97 -PORT # 80 -BYTE # 98 -PORT # 80 -BYTE # 99 -PORT # 80 -BYTE # 100 -PORT # 80 -BYTE # 101 -PORT # 80 -BYTE # 102 -PORT # 80 -BYTE # 103 -PORT # 80 -BYTE # 104 -PORT # 80 -BYTE # 105 -PORT # 80 -BYTE # 106 -PORT # 80 -BYTE # 107 -PORT # 80 -BYTE # 108 -PORT # 80 -BYTE # 109 -PORT # 80 -BYTE # 110 -PORT # 80 -BYTE # 111 -PORT # 80 -BYTE # 112 -PORT # 80 -BYTE # 113 -PORT # 80 -BYTE # 114 -PORT # 80 -BYTE # 115 -PORT # 80 -BYTE # 116 -PORT # 80 -BYTE # 117 -PORT # 80 -BYTE # 118 -PORT # 80 -BYTE # 119 -PORT # 80 -BYTE # 120 -PORT # 80 -BYTE # 121 -PORT # 80 -BYTE # 122 -PORT # 80 -BYTE # 123 -PORT # 80 -BYTE # 124 -PORT # 80 -BYTE # 125 -PORT # 80 -BYTE # 126 -PORT # 80 -BYTE # 127 -PORT # 80 -BYTE # 128 -PORT # 80 -BYTE # 129 -PORT # 80 -BYTE # 130 -PORT # 80 -BYTE # 131 -PORT # 80 -BYTE # 132 -PORT # 80 -BYTE # 133 -PORT # 80 -BYTE # 134 -PORT # 80 -BYTE # 135 -PORT # 80 -BYTE # 136 -PORT # 80 -BYTE # 137 -PORT # 80 -BYTE # 138 -PORT # 80 -BYTE # 139 -PORT # 80 -BYTE # 140 -PORT # 80 -BYTE # 141 -PORT # 80 -BYTE # 142 -PORT # 80 -BYTE # 143 -PORT # 80 -BYTE # 144 -PORT # 80 -BYTE # 145 -PORT # 80 -BYTE # 146 -PORT # 80 -BYTE # 147 -PORT # 80 -BYTE # 148 -PORT # 80 -BYTE # 149 -PORT # 80 -BYTE # 150 -PORT # 80 -BYTE # 151 -PORT # 80 -BYTE # 152 -PORT # 80 -BYTE # 153 -PORT # 80 -BYTE # 154 -PORT # 80 -BYTE # 155 -PORT # 80 -BYTE # 156 -PORT # 80 -BYTE # 157 -PORT # 80 -BYTE # 158 -PORT # 80 -BYTE # 159 -PORT # 80 -BYTE # 160 -PORT # 80 -BYTE # 161 -PORT # 80 -BYTE # 162 -PORT # 80 -BYTE # 163 -PORT # 80 -BYTE # 164 -PORT # 80 -BYTE # 165 -PORT # 80 -BYTE # 166 -PORT # 80 -BYTE # 167 -PORT # 80 -BYTE # 168 -PORT # 80 -BYTE # 169 -PORT # 80 -BYTE # 170 -PORT # 80 -BYTE # 171 -PORT # 80 -BYTE # 172 -PORT # 80 -BYTE # 173 -PORT # 80 -BYTE # 174 -PORT # 80 -BYTE # 175 -PORT # 80 -BYTE # 176 -PORT # 80 -BYTE # 177 -PORT # 80 -BYTE # 178 -PORT # 80 -BYTE # 179 -PORT # 80 -BYTE # 180 -PORT # 80 -BYTE # 181 -PORT # 80 -BYTE # 182 -PORT # 80 -BYTE # 183 -PORT # 80 -BYTE # 184 -PORT # 80 -BYTE # 185 -PORT # 80 -BYTE # 186 -PORT # 80 -BYTE # 187 -PORT # 80 -BYTE # 188 -PORT # 80 -BYTE # 189 -PORT # 80 -BYTE # 190 -PORT # 80 -BYTE # 191 -PORT # 80 -BYTE # 192 -PORT # 80 -BYTE # 193 -PORT # 80 -BYTE # 194 -PORT # 80 -BYTE # 195 -PORT # 80 -BYTE # 196 -PORT # 80 -BYTE # 197 -PORT # 80 -BYTE # 198 -PORT # 80 -BYTE # 199 -PORT # 80 -BYTE # 200 -PORT # 80 -BYTE # 201 -PORT # 80 -BYTE # 202 -PORT # 80 -BYTE # 203 -PORT # 80 -BYTE # 204 -PORT # 80 -BYTE # 205 -PORT # 80 -BYTE # 206 -PORT # 80 -BYTE # 207 -PORT # 80 -BYTE # 208 -PORT # 80 -BYTE # 209 -PORT # 80 -BYTE # 210 -PORT # 80 -BYTE # 211 -PORT # 80 -BYTE # 212 -PORT # 80 -BYTE # 213 -PORT # 80 -BYTE # 214 -PORT # 80 -BYTE # 215 -PORT # 80 -BYTE # 216 -PORT # 80 -BYTE # 217 -PORT # 80 -BYTE # 218 -PORT # 80 -BYTE # 219 -PORT # 80 -BYTE # 220 -PORT # 80 -BYTE # 221 -PORT # 80 -BYTE # 222 -PORT # 80 -BYTE # 223 -PORT # 80 -BYTE # 224 -PORT # 80 -BYTE # 225 -PORT # 80 -BYTE # 226 -PORT # 80 -BYTE # 227 -PORT # 80 -BYTE # 228 -PORT # 80 -BYTE # 229 -PORT # 80 -BYTE # 230 -PORT # 80 -BYTE # 231 -PORT # 80 -BYTE # 232 -PORT # 80 -BYTE # 233 -PORT # 80 -BYTE # 234 -PORT # 80 -BYTE # 235 -PORT # 80 -BYTE # 236 -PORT # 80 -BYTE # 237 -PORT # 80 -BYTE # 238 -PORT # 80 -BYTE # 239 -PORT # 80 -BYTE # 240 -PORT # 80 -BYTE # 241 -PORT # 80 -BYTE # 242 -PORT # 80 -BYTE # 243 -PORT # 80 -BYTE # 244 -PORT # 80 -BYTE # 245 -PORT # 80 -BYTE # 246 -PORT # 80 -BYTE # 247 -PORT # 80 -BYTE # 248 -PORT # 80 -BYTE # 249 -PORT # 80 -BYTE # 250 -PORT # 80 -BYTE # 251 -PORT # 80 -BYTE # 252 -PORT # 80 -BYTE # 253 -PORT # 80 -BYTE # 254 -PORT # 80 -BYTE # 255 -PORT # 81 -BYTE # 0 -PORT # 81 -BYTE # 1 -PORT # 81 -BYTE # 2 -PORT # 81 -BYTE # 3 -PORT # 81 -BYTE # 4 -PORT # 81 -BYTE # 5 -PORT # 81 -BYTE # 6 -PORT # 81 -BYTE # 7 -PORT # 81 -BYTE # 8 -PORT # 81 -BYTE # 9 -PORT # 81 -BYTE # 10 -PORT # 81 -BYTE # 11 -PORT # 81 -BYTE # 12 -PORT # 81 -BYTE # 13 -PORT # 81 -BYTE # 14 -PORT # 81 -BYTE # 15 -PORT # 81 -BYTE # 16 -PORT # 81 -BYTE # 17 -PORT # 81 -BYTE # 18 -PORT # 81 -BYTE # 19 -PORT # 81 -BYTE # 20 -PORT # 81 -BYTE # 21 -PORT # 81 -BYTE # 22 -PORT # 81 -BYTE # 23 -PORT # 81 -BYTE # 24 -PORT # 81 -BYTE # 25 -PORT # 81 -BYTE # 26 -PORT # 81 -BYTE # 27 -PORT # 81 -BYTE # 28 -PORT # 81 -BYTE # 29 -PORT # 81 -BYTE # 30 -PORT # 81 -BYTE # 31 -PORT # 81 -BYTE # 32 -PORT # 81 -BYTE # 33 -PORT # 81 -BYTE # 34 -PORT # 81 -BYTE # 35 -PORT # 81 -BYTE # 36 -PORT # 81 -BYTE # 37 -PORT # 81 -BYTE # 38 -PORT # 81 -BYTE # 39 -PORT # 81 -BYTE # 40 -PORT # 81 -BYTE # 41 -PORT # 81 -BYTE # 42 -PORT # 81 -BYTE # 43 -PORT # 81 -BYTE # 44 -PORT # 81 -BYTE # 45 -PORT # 81 -BYTE # 46 -PORT # 81 -BYTE # 47 -PORT # 81 -BYTE # 48 -PORT # 81 -BYTE # 49 -PORT # 81 -BYTE # 50 -PORT # 81 -BYTE # 51 -PORT # 81 -BYTE # 52 -PORT # 81 -BYTE # 53 -PORT # 81 -BYTE # 54 -PORT # 81 -BYTE # 55 -PORT # 81 -BYTE # 56 -PORT # 81 -BYTE # 57 -PORT # 81 -BYTE # 58 -PORT # 81 -BYTE # 59 -PORT # 81 -BYTE # 60 -PORT # 81 -BYTE # 61 -PORT # 81 -BYTE # 62 -PORT # 81 -BYTE # 63 -PORT # 81 -BYTE # 64 -PORT # 81 -BYTE # 65 -PORT # 81 -BYTE # 66 -PORT # 81 -BYTE # 67 -PORT # 81 -BYTE # 68 -PORT # 81 -BYTE # 69 -PORT # 81 -BYTE # 70 -PORT # 81 -BYTE # 71 -PORT # 81 -BYTE # 72 -PORT # 81 -BYTE # 73 -PORT # 81 -BYTE # 74 -PORT # 81 -BYTE # 75 -PORT # 81 -BYTE # 76 -PORT # 81 -BYTE # 77 -PORT # 81 -BYTE # 78 -PORT # 81 -BYTE # 79 -PORT # 81 -BYTE # 80 -PORT # 81 -BYTE # 81 -PORT # 81 -BYTE # 82 -PORT # 81 -BYTE # 83 -PORT # 81 -BYTE # 84 -PORT # 81 -BYTE # 85 -PORT # 81 -BYTE # 86 -PORT # 81 -BYTE # 87 -PORT # 81 -BYTE # 88 -PORT # 81 -BYTE # 89 -PORT # 81 -BYTE # 90 -PORT # 81 -BYTE # 91 -PORT # 81 -BYTE # 92 -PORT # 81 -BYTE # 93 -PORT # 81 -BYTE # 94 -PORT # 81 -BYTE # 95 -PORT # 81 -BYTE # 96 -PORT # 81 -BYTE # 97 -PORT # 81 -BYTE # 98 -PORT # 81 -BYTE # 99 -PORT # 81 -BYTE # 100 -PORT # 81 -BYTE # 101 -PORT # 81 -BYTE # 102 -PORT # 81 -BYTE # 103 -PORT # 81 -BYTE # 104 -PORT # 81 -BYTE # 105 -PORT # 81 -BYTE # 106 -PORT # 81 -BYTE # 107 -PORT # 81 -BYTE # 108 -PORT # 81 -BYTE # 109 -PORT # 81 -BYTE # 110 -PORT # 81 -BYTE # 111 -PORT # 81 -BYTE # 112 -PORT # 81 -BYTE # 113 -PORT # 81 -BYTE # 114 -PORT # 81 -BYTE # 115 -PORT # 81 -BYTE # 116 -PORT # 81 -BYTE # 117 -PORT # 81 -BYTE # 118 -PORT # 81 -BYTE # 119 -PORT # 81 -BYTE # 120 -PORT # 81 -BYTE # 121 -PORT # 81 -BYTE # 122 -PORT # 81 -BYTE # 123 -PORT # 81 -BYTE # 124 -PORT # 81 -BYTE # 125 -PORT # 81 -BYTE # 126 -PORT # 81 -BYTE # 127 -PORT # 81 -BYTE # 128 -PORT # 81 -BYTE # 129 -PORT # 81 -BYTE # 130 -PORT # 81 -BYTE # 131 -PORT # 81 -BYTE # 132 -PORT # 81 -BYTE # 133 -PORT # 81 -BYTE # 134 -PORT # 81 -BYTE # 135 -PORT # 81 -BYTE # 136 -PORT # 81 -BYTE # 137 -PORT # 81 -BYTE # 138 -PORT # 81 -BYTE # 139 -PORT # 81 -BYTE # 140 -PORT # 81 -BYTE # 141 -PORT # 81 -BYTE # 142 -PORT # 81 -BYTE # 143 -PORT # 81 -BYTE # 144 -PORT # 81 -BYTE # 145 -PORT # 81 -BYTE # 146 -PORT # 81 -BYTE # 147 -PORT # 81 -BYTE # 148 -PORT # 81 -BYTE # 149 -PORT # 81 -BYTE # 150 -PORT # 81 -BYTE # 151 -PORT # 81 -BYTE # 152 -PORT # 81 -BYTE # 153 -PORT # 81 -BYTE # 154 -PORT # 81 -BYTE # 155 -PORT # 81 -BYTE # 156 -PORT # 81 -BYTE # 157 -PORT # 81 -BYTE # 158 -PORT # 81 -BYTE # 159 -PORT # 81 -BYTE # 160 -PORT # 81 -BYTE # 161 -PORT # 81 -BYTE # 162 -PORT # 81 -BYTE # 163 -PORT # 81 -BYTE # 164 -PORT # 81 -BYTE # 165 -PORT # 81 -BYTE # 166 -PORT # 81 -BYTE # 167 -PORT # 81 -BYTE # 168 -PORT # 81 -BYTE # 169 -PORT # 81 -BYTE # 170 -PORT # 81 -BYTE # 171 -PORT # 81 -BYTE # 172 -PORT # 81 -BYTE # 173 -PORT # 81 -BYTE # 174 -PORT # 81 -BYTE # 175 -PORT # 81 -BYTE # 176 -PORT # 81 -BYTE # 177 -PORT # 81 -BYTE # 178 -PORT # 81 -BYTE # 179 -PORT # 81 -BYTE # 180 -PORT # 81 -BYTE # 181 -PORT # 81 -BYTE # 182 -PORT # 81 -BYTE # 183 -PORT # 81 -BYTE # 184 -PORT # 81 -BYTE # 185 -PORT # 81 -BYTE # 186 -PORT # 81 -BYTE # 187 -PORT # 81 -BYTE # 188 -PORT # 81 -BYTE # 189 -PORT # 81 -BYTE # 190 -PORT # 81 -BYTE # 191 -PORT # 81 -BYTE # 192 -PORT # 81 -BYTE # 193 -PORT # 81 -BYTE # 194 -PORT # 81 -BYTE # 195 -PORT # 81 -BYTE # 196 -PORT # 81 -BYTE # 197 -PORT # 81 -BYTE # 198 -PORT # 81 -BYTE # 199 -PORT # 81 -BYTE # 200 -PORT # 81 -BYTE # 201 -PORT # 81 -BYTE # 202 -PORT # 81 -BYTE # 203 -PORT # 81 -BYTE # 204 -PORT # 81 -BYTE # 205 -PORT # 81 -BYTE # 206 -PORT # 81 -BYTE # 207 -PORT # 81 -BYTE # 208 -PORT # 81 -BYTE # 209 -PORT # 81 -BYTE # 210 -PORT # 81 -BYTE # 211 -PORT # 81 -BYTE # 212 -PORT # 81 -BYTE # 213 -PORT # 81 -BYTE # 214 -PORT # 81 -BYTE # 215 -PORT # 81 -BYTE # 216 -PORT # 81 -BYTE # 217 -PORT # 81 -BYTE # 218 -PORT # 81 -BYTE # 219 -PORT # 81 -BYTE # 220 -PORT # 81 -BYTE # 221 -PORT # 81 -BYTE # 222 -PORT # 81 -BYTE # 223 -PORT # 81 -BYTE # 224 -PORT # 81 -BYTE # 225 -PORT # 81 -BYTE # 226 -PORT # 81 -BYTE # 227 -PORT # 81 -BYTE # 228 -PORT # 81 -BYTE # 229 -PORT # 81 -BYTE # 230 -PORT # 81 -BYTE # 231 -PORT # 81 -BYTE # 232 -PORT # 81 -BYTE # 233 -PORT # 81 -BYTE # 234 -PORT # 81 -BYTE # 235 -PORT # 81 -BYTE # 236 -PORT # 81 -BYTE # 237 -PORT # 81 -BYTE # 238 -PORT # 81 -BYTE # 239 -PORT # 81 -BYTE # 240 -PORT # 81 -BYTE # 241 -PORT # 81 -BYTE # 242 -PORT # 81 -BYTE # 243 -PORT # 81 -BYTE # 244 -PORT # 81 -BYTE # 245 -PORT # 81 -BYTE # 246 -PORT # 81 -BYTE # 247 -PORT # 81 -BYTE # 248 -PORT # 81 -BYTE # 249 -PORT # 81 -BYTE # 250 -PORT # 81 -BYTE # 251 -PORT # 81 -BYTE # 252 -PORT # 81 -BYTE # 253 -PORT # 81 -BYTE # 254 -PORT # 81 -BYTE # 255 -PORT # 82 -BYTE # 0 -PORT # 82 -BYTE # 1 -PORT # 82 -BYTE # 2 -PORT # 82 -BYTE # 3 -PORT # 82 -BYTE # 4 -PORT # 82 -BYTE # 5 -PORT # 82 -BYTE # 6 -PORT # 82 -BYTE # 7 -PORT # 82 -BYTE # 8 -PORT # 82 -BYTE # 9 -PORT # 82 -BYTE # 10 -PORT # 82 -BYTE # 11 -PORT # 82 -BYTE # 12 -PORT # 82 -BYTE # 13 -PORT # 82 -BYTE # 14 -PORT # 82 -BYTE # 15 -PORT # 82 -BYTE # 16 -PORT # 82 -BYTE # 17 -PORT # 82 -BYTE # 18 -PORT # 82 -BYTE # 19 -PORT # 82 -BYTE # 20 -PORT # 82 -BYTE # 21 -PORT # 82 -BYTE # 22 -PORT # 82 -BYTE # 23 -PORT # 82 -BYTE # 24 -PORT # 82 -BYTE # 25 -PORT # 82 -BYTE # 26 -PORT # 82 -BYTE # 27 -PORT # 82 -BYTE # 28 -PORT # 82 -BYTE # 29 -PORT # 82 -BYTE # 30 -PORT # 82 -BYTE # 31 -PORT # 82 -BYTE # 32 -PORT # 82 -BYTE # 33 -PORT # 82 -BYTE # 34 -PORT # 82 -BYTE # 35 -PORT # 82 -BYTE # 36 -PORT # 82 -BYTE # 37 -PORT # 82 -BYTE # 38 -PORT # 82 -BYTE # 39 -PORT # 82 -BYTE # 40 -PORT # 82 -BYTE # 41 -PORT # 82 -BYTE # 42 -PORT # 82 -BYTE # 43 -PORT # 82 -BYTE # 44 -PORT # 82 -BYTE # 45 -PORT # 82 -BYTE # 46 -PORT # 82 -BYTE # 47 -PORT # 82 -BYTE # 48 -PORT # 82 -BYTE # 49 -PORT # 82 -BYTE # 50 -PORT # 82 -BYTE # 51 -PORT # 82 -BYTE # 52 -PORT # 82 -BYTE # 53 -PORT # 82 -BYTE # 54 -PORT # 82 -BYTE # 55 -PORT # 82 -BYTE # 56 -PORT # 82 -BYTE # 57 -PORT # 82 -BYTE # 58 -PORT # 82 -BYTE # 59 -PORT # 82 -BYTE # 60 -PORT # 82 -BYTE # 61 -PORT # 82 -BYTE # 62 -PORT # 82 -BYTE # 63 -PORT # 82 -BYTE # 64 -PORT # 82 -BYTE # 65 -PORT # 82 -BYTE # 66 -PORT # 82 -BYTE # 67 -PORT # 82 -BYTE # 68 -PORT # 82 -BYTE # 69 -PORT # 82 -BYTE # 70 -PORT # 82 -BYTE # 71 -PORT # 82 -BYTE # 72 -PORT # 82 -BYTE # 73 -PORT # 82 -BYTE # 74 -PORT # 82 -BYTE # 75 -PORT # 82 -BYTE # 76 -PORT # 82 -BYTE # 77 -PORT # 82 -BYTE # 78 -PORT # 82 -BYTE # 79 -PORT # 82 -BYTE # 80 -PORT # 82 -BYTE # 81 -PORT # 82 -BYTE # 82 -PORT # 82 -BYTE # 83 -PORT # 82 -BYTE # 84 -PORT # 82 -BYTE # 85 -PORT # 82 -BYTE # 86 -PORT # 82 -BYTE # 87 -PORT # 82 -BYTE # 88 -PORT # 82 -BYTE # 89 -PORT # 82 -BYTE # 90 -PORT # 82 -BYTE # 91 -PORT # 82 -BYTE # 92 -PORT # 82 -BYTE # 93 -PORT # 82 -BYTE # 94 -PORT # 82 -BYTE # 95 -PORT # 82 -BYTE # 96 -PORT # 82 -BYTE # 97 -PORT # 82 -BYTE # 98 -PORT # 82 -BYTE # 99 -PORT # 82 -BYTE # 100 -PORT # 82 -BYTE # 101 -PORT # 82 -BYTE # 102 -PORT # 82 -BYTE # 103 -PORT # 82 -BYTE # 104 -PORT # 82 -BYTE # 105 -PORT # 82 -BYTE # 106 -PORT # 82 -BYTE # 107 -PORT # 82 -BYTE # 108 -PORT # 82 -BYTE # 109 -PORT # 82 -BYTE # 110 -PORT # 82 -BYTE # 111 -PORT # 82 -BYTE # 112 -PORT # 82 -BYTE # 113 -PORT # 82 -BYTE # 114 -PORT # 82 -BYTE # 115 -PORT # 82 -BYTE # 116 -PORT # 82 -BYTE # 117 -PORT # 82 -BYTE # 118 -PORT # 82 -BYTE # 119 -PORT # 82 -BYTE # 120 -PORT # 82 -BYTE # 121 -PORT # 82 -BYTE # 122 -PORT # 82 -BYTE # 123 -PORT # 82 -BYTE # 124 -PORT # 82 -BYTE # 125 -PORT # 82 -BYTE # 126 -PORT # 82 -BYTE # 127 -PORT # 82 -BYTE # 128 -PORT # 82 -BYTE # 129 -PORT # 82 -BYTE # 130 -PORT # 82 -BYTE # 131 -PORT # 82 -BYTE # 132 -PORT # 82 -BYTE # 133 -PORT # 82 -BYTE # 134 -PORT # 82 -BYTE # 135 -PORT # 82 -BYTE # 136 -PORT # 82 -BYTE # 137 -PORT # 82 -BYTE # 138 -PORT # 82 -BYTE # 139 -PORT # 82 -BYTE # 140 -PORT # 82 -BYTE # 141 -PORT # 82 -BYTE # 142 -PORT # 82 -BYTE # 143 -PORT # 82 -BYTE # 144 -PORT # 82 -BYTE # 145 -PORT # 82 -BYTE # 146 -PORT # 82 -BYTE # 147 -PORT # 82 -BYTE # 148 -PORT # 82 -BYTE # 149 -PORT # 82 -BYTE # 150 -PORT # 82 -BYTE # 151 -PORT # 82 -BYTE # 152 -PORT # 82 -BYTE # 153 -PORT # 82 -BYTE # 154 -PORT # 82 -BYTE # 155 -PORT # 82 -BYTE # 156 -PORT # 82 -BYTE # 157 -PORT # 82 -BYTE # 158 -PORT # 82 -BYTE # 159 -PORT # 82 -BYTE # 160 -PORT # 82 -BYTE # 161 -PORT # 82 -BYTE # 162 -PORT # 82 -BYTE # 163 -PORT # 82 -BYTE # 164 -PORT # 82 -BYTE # 165 -PORT # 82 -BYTE # 166 -PORT # 82 -BYTE # 167 -PORT # 82 -BYTE # 168 -PORT # 82 -BYTE # 169 -PORT # 82 -BYTE # 170 -PORT # 82 -BYTE # 171 -PORT # 82 -BYTE # 172 -PORT # 82 -BYTE # 173 -PORT # 82 -BYTE # 174 -PORT # 82 -BYTE # 175 -PORT # 82 -BYTE # 176 -PORT # 82 -BYTE # 177 -PORT # 82 -BYTE # 178 -PORT # 82 -BYTE # 179 -PORT # 82 -BYTE # 180 -PORT # 82 -BYTE # 181 -PORT # 82 -BYTE # 182 -PORT # 82 -BYTE # 183 -PORT # 82 -BYTE # 184 -PORT # 82 -BYTE # 185 -PORT # 82 -BYTE # 186 -PORT # 82 -BYTE # 187 -PORT # 82 -BYTE # 188 -PORT # 82 -BYTE # 189 -PORT # 82 -BYTE # 190 -PORT # 82 -BYTE # 191 -PORT # 82 -BYTE # 192 -PORT # 82 -BYTE # 193 -PORT # 82 -BYTE # 194 -PORT # 82 -BYTE # 195 -PORT # 82 -BYTE # 196 -PORT # 82 -BYTE # 197 -PORT # 82 -BYTE # 198 -PORT # 82 -BYTE # 199 -PORT # 82 -BYTE # 200 -PORT # 82 -BYTE # 201 -PORT # 82 -BYTE # 202 -PORT # 82 -BYTE # 203 -PORT # 82 -BYTE # 204 -PORT # 82 -BYTE # 205 -PORT # 82 -BYTE # 206 -PORT # 82 -BYTE # 207 -PORT # 82 -BYTE # 208 -PORT # 82 -BYTE # 209 -PORT # 82 -BYTE # 210 -PORT # 82 -BYTE # 211 -PORT # 82 -BYTE # 212 -PORT # 82 -BYTE # 213 -PORT # 82 -BYTE # 214 -PORT # 82 -BYTE # 215 -PORT # 82 -BYTE # 216 -PORT # 82 -BYTE # 217 -PORT # 82 -BYTE # 218 -PORT # 82 -BYTE # 219 -PORT # 82 -BYTE # 220 -PORT # 82 -BYTE # 221 -PORT # 82 -BYTE # 222 -PORT # 82 -BYTE # 223 -PORT # 82 -BYTE # 224 -PORT # 82 -BYTE # 225 -PORT # 82 -BYTE # 226 -PORT # 82 -BYTE # 227 -PORT # 82 -BYTE # 228 -PORT # 82 -BYTE # 229 -PORT # 82 -BYTE # 230 -PORT # 82 -BYTE # 231 -PORT # 82 -BYTE # 232 -PORT # 82 -BYTE # 233 -PORT # 82 -BYTE # 234 -PORT # 82 -BYTE # 235 -PORT # 82 -BYTE # 236 -PORT # 82 -BYTE # 237 -PORT # 82 -BYTE # 238 -PORT # 82 -BYTE # 239 -PORT # 82 -BYTE # 240 -PORT # 82 -BYTE # 241 -PORT # 82 -BYTE # 242 -PORT # 82 -BYTE # 243 -PORT # 82 -BYTE # 244 -PORT # 82 -BYTE # 245 -PORT # 82 -BYTE # 246 -PORT # 82 -BYTE # 247 -PORT # 82 -BYTE # 248 -PORT # 82 -BYTE # 249 -PORT # 82 -BYTE # 250 -PORT # 82 -BYTE # 251 -PORT # 82 -BYTE # 252 -PORT # 82 -BYTE # 253 -PORT # 82 -BYTE # 254 -PORT # 82 -BYTE # 255 -PORT # 83 -BYTE # 0 -PORT # 83 -BYTE # 1 -PORT # 83 -BYTE # 2 -PORT # 83 -BYTE # 3 -PORT # 83 -BYTE # 4 -PORT # 83 -BYTE # 5 -PORT # 83 -BYTE # 6 -PORT # 83 -BYTE # 7 -PORT # 83 -BYTE # 8 -PORT # 83 -BYTE # 9 -PORT # 83 -BYTE # 10 -PORT # 83 -BYTE # 11 -PORT # 83 -BYTE # 12 -PORT # 83 -BYTE # 13 -PORT # 83 -BYTE # 14 -PORT # 83 -BYTE # 15 -PORT # 83 -BYTE # 16 -PORT # 83 -BYTE # 17 -PORT # 83 -BYTE # 18 -PORT # 83 -BYTE # 19 -PORT # 83 -BYTE # 20 -PORT # 83 -BYTE # 21 -PORT # 83 -BYTE # 22 -PORT # 83 -BYTE # 23 -PORT # 83 -BYTE # 24 -PORT # 83 -BYTE # 25 -PORT # 83 -BYTE # 26 -PORT # 83 -BYTE # 27 -PORT # 83 -BYTE # 28 -PORT # 83 -BYTE # 29 -PORT # 83 -BYTE # 30 -PORT # 83 -BYTE # 31 -PORT # 83 -BYTE # 32 -PORT # 83 -BYTE # 33 -PORT # 83 -BYTE # 34 -PORT # 83 -BYTE # 35 -PORT # 83 -BYTE # 36 -PORT # 83 -BYTE # 37 -PORT # 83 -BYTE # 38 -PORT # 83 -BYTE # 39 -PORT # 83 -BYTE # 40 -PORT # 83 -BYTE # 41 -PORT # 83 -BYTE # 42 -PORT # 83 -BYTE # 43 -PORT # 83 -BYTE # 44 -PORT # 83 -BYTE # 45 -PORT # 83 -BYTE # 46 -PORT # 83 -BYTE # 47 -PORT # 83 -BYTE # 48 -PORT # 83 -BYTE # 49 -PORT # 83 -BYTE # 50 -PORT # 83 -BYTE # 51 -PORT # 83 -BYTE # 52 -PORT # 83 -BYTE # 53 -PORT # 83 -BYTE # 54 -PORT # 83 -BYTE # 55 -PORT # 83 -BYTE # 56 -PORT # 83 -BYTE # 57 -PORT # 83 -BYTE # 58 -PORT # 83 -BYTE # 59 -PORT # 83 -BYTE # 60 -PORT # 83 -BYTE # 61 -PORT # 83 -BYTE # 62 -PORT # 83 -BYTE # 63 -PORT # 83 -BYTE # 64 -PORT # 83 -BYTE # 65 -PORT # 83 -BYTE # 66 -PORT # 83 -BYTE # 67 -PORT # 83 -BYTE # 68 -PORT # 83 -BYTE # 69 -PORT # 83 -BYTE # 70 -PORT # 83 -BYTE # 71 -PORT # 83 -BYTE # 72 -PORT # 83 -BYTE # 73 -PORT # 83 -BYTE # 74 -PORT # 83 -BYTE # 75 -PORT # 83 -BYTE # 76 -PORT # 83 -BYTE # 77 -PORT # 83 -BYTE # 78 -PORT # 83 -BYTE # 79 -PORT # 83 -BYTE # 80 -PORT # 83 -BYTE # 81 -PORT # 83 -BYTE # 82 -PORT # 83 -BYTE # 83 -PORT # 83 -BYTE # 84 -PORT # 83 -BYTE # 85 -PORT # 83 -BYTE # 86 -PORT # 83 -BYTE # 87 -PORT # 83 -BYTE # 88 -PORT # 83 -BYTE # 89 -PORT # 83 -BYTE # 90 -PORT # 83 -BYTE # 91 -PORT # 83 -BYTE # 92 -PORT # 83 -BYTE # 93 -PORT # 83 -BYTE # 94 -PORT # 83 -BYTE # 95 -PORT # 83 -BYTE # 96 -PORT # 83 -BYTE # 97 -PORT # 83 -BYTE # 98 -PORT # 83 -BYTE # 99 -PORT # 83 -BYTE # 100 -PORT # 83 -BYTE # 101 -PORT # 83 -BYTE # 102 -PORT # 83 -BYTE # 103 -PORT # 83 -BYTE # 104 -PORT # 83 -BYTE # 105 -PORT # 83 -BYTE # 106 -PORT # 83 -BYTE # 107 -PORT # 83 -BYTE # 108 -PORT # 83 -BYTE # 109 -PORT # 83 -BYTE # 110 -PORT # 83 -BYTE # 111 -PORT # 83 -BYTE # 112 -PORT # 83 -BYTE # 113 -PORT # 83 -BYTE # 114 -PORT # 83 -BYTE # 115 -PORT # 83 -BYTE # 116 -PORT # 83 -BYTE # 117 -PORT # 83 -BYTE # 118 -PORT # 83 -BYTE # 119 -PORT # 83 -BYTE # 120 -PORT # 83 -BYTE # 121 -PORT # 83 -BYTE # 122 -PORT # 83 -BYTE # 123 -PORT # 83 -BYTE # 124 -PORT # 83 -BYTE # 125 -PORT # 83 -BYTE # 126 -PORT # 83 -BYTE # 127 -PORT # 83 -BYTE # 128 -PORT # 83 -BYTE # 129 -PORT # 83 -BYTE # 130 -PORT # 83 -BYTE # 131 -PORT # 83 -BYTE # 132 -PORT # 83 -BYTE # 133 -PORT # 83 -BYTE # 134 -PORT # 83 -BYTE # 135 -PORT # 83 -BYTE # 136 -PORT # 83 -BYTE # 137 -PORT # 83 -BYTE # 138 -PORT # 83 -BYTE # 139 -PORT # 83 -BYTE # 140 -PORT # 83 -BYTE # 141 -PORT # 83 -BYTE # 142 -PORT # 83 -BYTE # 143 -PORT # 83 -BYTE # 144 -PORT # 83 -BYTE # 145 -PORT # 83 -BYTE # 146 -PORT # 83 -BYTE # 147 -PORT # 83 -BYTE # 148 -PORT # 83 -BYTE # 149 -PORT # 83 -BYTE # 150 -PORT # 83 -BYTE # 151 -PORT # 83 -BYTE # 152 -PORT # 83 -BYTE # 153 -PORT # 83 -BYTE # 154 -PORT # 83 -BYTE # 155 -PORT # 83 -BYTE # 156 -PORT # 83 -BYTE # 157 -PORT # 83 -BYTE # 158 -PORT # 83 -BYTE # 159 -PORT # 83 -BYTE # 160 -PORT # 83 -BYTE # 161 -PORT # 83 -BYTE # 162 -PORT # 83 -BYTE # 163 -PORT # 83 -BYTE # 164 -PORT # 83 -BYTE # 165 -PORT # 83 -BYTE # 166 -PORT # 83 -BYTE # 167 -PORT # 83 -BYTE # 168 -PORT # 83 -BYTE # 169 -PORT # 83 -BYTE # 170 -PORT # 83 -BYTE # 171 -PORT # 83 -BYTE # 172 -PORT # 83 -BYTE # 173 -PORT # 83 -BYTE # 174 -PORT # 83 -BYTE # 175 -PORT # 83 -BYTE # 176 -PORT # 83 -BYTE # 177 -PORT # 83 -BYTE # 178 -PORT # 83 -BYTE # 179 -PORT # 83 -BYTE # 180 -PORT # 83 -BYTE # 181 -PORT # 83 -BYTE # 182 -PORT # 83 -BYTE # 183 -PORT # 83 -BYTE # 184 -PORT # 83 -BYTE # 185 -PORT # 83 -BYTE # 186 -PORT # 83 -BYTE # 187 -PORT # 83 -BYTE # 188 -PORT # 83 -BYTE # 189 -PORT # 83 -BYTE # 190 -PORT # 83 -BYTE # 191 -PORT # 83 -BYTE # 192 -PORT # 83 -BYTE # 193 -PORT # 83 -BYTE # 194 -PORT # 83 -BYTE # 195 -PORT # 83 -BYTE # 196 -PORT # 83 -BYTE # 197 -PORT # 83 -BYTE # 198 -PORT # 83 -BYTE # 199 -PORT # 83 -BYTE # 200 -PORT # 83 -BYTE # 201 -PORT # 83 -BYTE # 202 -PORT # 83 -BYTE # 203 -PORT # 83 -BYTE # 204 -PORT # 83 -BYTE # 205 -PORT # 83 -BYTE # 206 -PORT # 83 -BYTE # 207 -PORT # 83 -BYTE # 208 -PORT # 83 -BYTE # 209 -PORT # 83 -BYTE # 210 -PORT # 83 -BYTE # 211 -PORT # 83 -BYTE # 212 -PORT # 83 -BYTE # 213 -PORT # 83 -BYTE # 214 -PORT # 83 -BYTE # 215 -PORT # 83 -BYTE # 216 -PORT # 83 -BYTE # 217 -PORT # 83 -BYTE # 218 -PORT # 83 -BYTE # 219 -PORT # 83 -BYTE # 220 -PORT # 83 -BYTE # 221 -PORT # 83 -BYTE # 222 -PORT # 83 -BYTE # 223 -PORT # 83 -BYTE # 224 -PORT # 83 -BYTE # 225 -PORT # 83 -BYTE # 226 -PORT # 83 -BYTE # 227 -PORT # 83 -BYTE # 228 -PORT # 83 -BYTE # 229 -PORT # 83 -BYTE # 230 -PORT # 83 -BYTE # 231 -PORT # 83 -BYTE # 232 -PORT # 83 -BYTE # 233 -PORT # 83 -BYTE # 234 -PORT # 83 -BYTE # 235 -PORT # 83 -BYTE # 236 -PORT # 83 -BYTE # 237 -PORT # 83 -BYTE # 238 -PORT # 83 -BYTE # 239 -PORT # 83 -BYTE # 240 -PORT # 83 -BYTE # 241 -PORT # 83 -BYTE # 242 -PORT # 83 -BYTE # 243 -PORT # 83 -BYTE # 244 -PORT # 83 -BYTE # 245 -PORT # 83 -BYTE # 246 -PORT # 83 -BYTE # 247 -PORT # 83 -BYTE # 248 -PORT # 83 -BYTE # 249 -PORT # 83 -BYTE # 250 -PORT # 83 -BYTE # 251 -PORT # 83 -BYTE # 252 -PORT # 83 -BYTE # 253 -PORT # 83 -BYTE # 254 -PORT # 83 -BYTE # 255 -PORT # 84 -BYTE # 0 -PORT # 84 -BYTE # 1 -PORT # 84 -BYTE # 2 -PORT # 84 -BYTE # 3 -PORT # 84 -BYTE # 4 -PORT # 84 -BYTE # 5 -PORT # 84 -BYTE # 6 -PORT # 84 -BYTE # 7 -PORT # 84 -BYTE # 8 -PORT # 84 -BYTE # 9 -PORT # 84 -BYTE # 10 -PORT # 84 -BYTE # 11 -PORT # 84 -BYTE # 12 -PORT # 84 -BYTE # 13 -PORT # 84 -BYTE # 14 -PORT # 84 -BYTE # 15 -PORT # 84 -BYTE # 16 -PORT # 84 -BYTE # 17 -PORT # 84 -BYTE # 18 -PORT # 84 -BYTE # 19 -PORT # 84 -BYTE # 20 -PORT # 84 -BYTE # 21 -PORT # 84 -BYTE # 22 -PORT # 84 -BYTE # 23 -PORT # 84 -BYTE # 24 -PORT # 84 -BYTE # 25 -PORT # 84 -BYTE # 26 -PORT # 84 -BYTE # 27 -PORT # 84 -BYTE # 28 -PORT # 84 -BYTE # 29 -PORT # 84 -BYTE # 30 -PORT # 84 -BYTE # 31 -PORT # 84 -BYTE # 32 -PORT # 84 -BYTE # 33 -PORT # 84 -BYTE # 34 -PORT # 84 -BYTE # 35 -PORT # 84 -BYTE # 36 -PORT # 84 -BYTE # 37 -PORT # 84 -BYTE # 38 -PORT # 84 -BYTE # 39 -PORT # 84 -BYTE # 40 -PORT # 84 -BYTE # 41 -PORT # 84 -BYTE # 42 -PORT # 84 -BYTE # 43 -PORT # 84 -BYTE # 44 -PORT # 84 -BYTE # 45 -PORT # 84 -BYTE # 46 -PORT # 84 -BYTE # 47 -PORT # 84 -BYTE # 48 -PORT # 84 -BYTE # 49 -PORT # 84 -BYTE # 50 -PORT # 84 -BYTE # 51 -PORT # 84 -BYTE # 52 -PORT # 84 -BYTE # 53 -PORT # 84 -BYTE # 54 -PORT # 84 -BYTE # 55 -PORT # 84 -BYTE # 56 -PORT # 84 -BYTE # 57 -PORT # 84 -BYTE # 58 -PORT # 84 -BYTE # 59 -PORT # 84 -BYTE # 60 -PORT # 84 -BYTE # 61 -PORT # 84 -BYTE # 62 -PORT # 84 -BYTE # 63 -PORT # 84 -BYTE # 64 -PORT # 84 -BYTE # 65 -PORT # 84 -BYTE # 66 -PORT # 84 -BYTE # 67 -PORT # 84 -BYTE # 68 -PORT # 84 -BYTE # 69 -PORT # 84 -BYTE # 70 -PORT # 84 -BYTE # 71 -PORT # 84 -BYTE # 72 -PORT # 84 -BYTE # 73 -PORT # 84 -BYTE # 74 -PORT # 84 -BYTE # 75 -PORT # 84 -BYTE # 76 -PORT # 84 -BYTE # 77 -PORT # 84 -BYTE # 78 -PORT # 84 -BYTE # 79 -PORT # 84 -BYTE # 80 -PORT # 84 -BYTE # 81 -PORT # 84 -BYTE # 82 -PORT # 84 -BYTE # 83 -PORT # 84 -BYTE # 84 -PORT # 84 -BYTE # 85 -PORT # 84 -BYTE # 86 -PORT # 84 -BYTE # 87 -PORT # 84 -BYTE # 88 -PORT # 84 -BYTE # 89 -PORT # 84 -BYTE # 90 -PORT # 84 -BYTE # 91 -PORT # 84 -BYTE # 92 -PORT # 84 -BYTE # 93 -PORT # 84 -BYTE # 94 -PORT # 84 -BYTE # 95 -PORT # 84 -BYTE # 96 -PORT # 84 -BYTE # 97 -PORT # 84 -BYTE # 98 -PORT # 84 -BYTE # 99 -PORT # 84 -BYTE # 100 -PORT # 84 -BYTE # 101 -PORT # 84 -BYTE # 102 -PORT # 84 -BYTE # 103 -PORT # 84 -BYTE # 104 -PORT # 84 -BYTE # 105 -PORT # 84 -BYTE # 106 -PORT # 84 -BYTE # 107 -PORT # 84 -BYTE # 108 -PORT # 84 -BYTE # 109 -PORT # 84 -BYTE # 110 -PORT # 84 -BYTE # 111 -PORT # 84 -BYTE # 112 -PORT # 84 -BYTE # 113 -PORT # 84 -BYTE # 114 -PORT # 84 -BYTE # 115 -PORT # 84 -BYTE # 116 -PORT # 84 -BYTE # 117 -PORT # 84 -BYTE # 118 -PORT # 84 -BYTE # 119 -PORT # 84 -BYTE # 120 -PORT # 84 -BYTE # 121 -PORT # 84 -BYTE # 122 -PORT # 84 -BYTE # 123 -PORT # 84 -BYTE # 124 -PORT # 84 -BYTE # 125 -PORT # 84 -BYTE # 126 -PORT # 84 -BYTE # 127 -PORT # 84 -BYTE # 128 -PORT # 84 -BYTE # 129 -PORT # 84 -BYTE # 130 -PORT # 84 -BYTE # 131 -PORT # 84 -BYTE # 132 -PORT # 84 -BYTE # 133 -PORT # 84 -BYTE # 134 -PORT # 84 -BYTE # 135 -PORT # 84 -BYTE # 136 -PORT # 84 -BYTE # 137 -PORT # 84 -BYTE # 138 -PORT # 84 -BYTE # 139 -PORT # 84 -BYTE # 140 -PORT # 84 -BYTE # 141 -PORT # 84 -BYTE # 142 -PORT # 84 -BYTE # 143 -PORT # 84 -BYTE # 144 -PORT # 84 -BYTE # 145 -PORT # 84 -BYTE # 146 -PORT # 84 -BYTE # 147 -PORT # 84 -BYTE # 148 -PORT # 84 -BYTE # 149 -PORT # 84 -BYTE # 150 -PORT # 84 -BYTE # 151 -PORT # 84 -BYTE # 152 -PORT # 84 -BYTE # 153 -PORT # 84 -BYTE # 154 -PORT # 84 -BYTE # 155 -PORT # 84 -BYTE # 156 -PORT # 84 -BYTE # 157 -PORT # 84 -BYTE # 158 -PORT # 84 -BYTE # 159 -PORT # 84 -BYTE # 160 -PORT # 84 -BYTE # 161 -PORT # 84 -BYTE # 162 -PORT # 84 -BYTE # 163 -PORT # 84 -BYTE # 164 -PORT # 84 -BYTE # 165 -PORT # 84 -BYTE # 166 -PORT # 84 -BYTE # 167 -PORT # 84 -BYTE # 168 -PORT # 84 -BYTE # 169 -PORT # 84 -BYTE # 170 -PORT # 84 -BYTE # 171 -PORT # 84 -BYTE # 172 -PORT # 84 -BYTE # 173 -PORT # 84 -BYTE # 174 -PORT # 84 -BYTE # 175 -PORT # 84 -BYTE # 176 -PORT # 84 -BYTE # 177 -PORT # 84 -BYTE # 178 -PORT # 84 -BYTE # 179 -PORT # 84 -BYTE # 180 -PORT # 84 -BYTE # 181 -PORT # 84 -BYTE # 182 -PORT # 84 -BYTE # 183 -PORT # 84 -BYTE # 184 -PORT # 84 -BYTE # 185 -PORT # 84 -BYTE # 186 -PORT # 84 -BYTE # 187 -PORT # 84 -BYTE # 188 -PORT # 84 -BYTE # 189 -PORT # 84 -BYTE # 190 -PORT # 84 -BYTE # 191 -PORT # 84 -BYTE # 192 -PORT # 84 -BYTE # 193 -PORT # 84 -BYTE # 194 -PORT # 84 -BYTE # 195 -PORT # 84 -BYTE # 196 -PORT # 84 -BYTE # 197 -PORT # 84 -BYTE # 198 -PORT # 84 -BYTE # 199 -PORT # 84 -BYTE # 200 -PORT # 84 -BYTE # 201 -PORT # 84 -BYTE # 202 -PORT # 84 -BYTE # 203 -PORT # 84 -BYTE # 204 -PORT # 84 -BYTE # 205 -PORT # 84 -BYTE # 206 -PORT # 84 -BYTE # 207 -PORT # 84 -BYTE # 208 -PORT # 84 -BYTE # 209 -PORT # 84 -BYTE # 210 -PORT # 84 -BYTE # 211 -PORT # 84 -BYTE # 212 -PORT # 84 -BYTE # 213 -PORT # 84 -BYTE # 214 -PORT # 84 -BYTE # 215 -PORT # 84 -BYTE # 216 -PORT # 84 -BYTE # 217 -PORT # 84 -BYTE # 218 -PORT # 84 -BYTE # 219 -PORT # 84 -BYTE # 220 -PORT # 84 -BYTE # 221 -PORT # 84 -BYTE # 222 -PORT # 84 -BYTE # 223 -PORT # 84 -BYTE # 224 -PORT # 84 -BYTE # 225 -PORT # 84 -BYTE # 226 -PORT # 84 -BYTE # 227 -PORT # 84 -BYTE # 228 -PORT # 84 -BYTE # 229 -PORT # 84 -BYTE # 230 -PORT # 84 -BYTE # 231 -PORT # 84 -BYTE # 232 -PORT # 84 -BYTE # 233 -PORT # 84 -BYTE # 234 -PORT # 84 -BYTE # 235 -PORT # 84 -BYTE # 236 -PORT # 84 -BYTE # 237 -PORT # 84 -BYTE # 238 -PORT # 84 -BYTE # 239 -PORT # 84 -BYTE # 240 -PORT # 84 -BYTE # 241 -PORT # 84 -BYTE # 242 -PORT # 84 -BYTE # 243 -PORT # 84 -BYTE # 244 -PORT # 84 -BYTE # 245 -PORT # 84 -BYTE # 246 -PORT # 84 -BYTE # 247 -PORT # 84 -BYTE # 248 -PORT # 84 -BYTE # 249 -PORT # 84 -BYTE # 250 -PORT # 84 -BYTE # 251 -PORT # 84 -BYTE # 252 -PORT # 84 -BYTE # 253 -PORT # 84 -BYTE # 254 -PORT # 84 -BYTE # 255 -PORT # 85 -BYTE # 0 -PORT # 85 -BYTE # 1 -PORT # 85 -BYTE # 2 -PORT # 85 -BYTE # 3 -PORT # 85 -BYTE # 4 -PORT # 85 -BYTE # 5 -PORT # 85 -BYTE # 6 -PORT # 85 -BYTE # 7 -PORT # 85 -BYTE # 8 -PORT # 85 -BYTE # 9 -PORT # 85 -BYTE # 10 -PORT # 85 -BYTE # 11 -PORT # 85 -BYTE # 12 -PORT # 85 -BYTE # 13 -PORT # 85 -BYTE # 14 -PORT # 85 -BYTE # 15 -PORT # 85 -BYTE # 16 -PORT # 85 -BYTE # 17 -PORT # 85 -BYTE # 18 -PORT # 85 -BYTE # 19 -PORT # 85 -BYTE # 20 -PORT # 85 -BYTE # 21 -PORT # 85 -BYTE # 22 -PORT # 85 -BYTE # 23 -PORT # 85 -BYTE # 24 -PORT # 85 -BYTE # 25 -PORT # 85 -BYTE # 26 -PORT # 85 -BYTE # 27 -PORT # 85 -BYTE # 28 -PORT # 85 -BYTE # 29 -PORT # 85 -BYTE # 30 -PORT # 85 -BYTE # 31 -PORT # 85 -BYTE # 32 -PORT # 85 -BYTE # 33 -PORT # 85 -BYTE # 34 -PORT # 85 -BYTE # 35 -PORT # 85 -BYTE # 36 -PORT # 85 -BYTE # 37 -PORT # 85 -BYTE # 38 -PORT # 85 -BYTE # 39 -PORT # 85 -BYTE # 40 -PORT # 85 -BYTE # 41 -PORT # 85 -BYTE # 42 -PORT # 85 -BYTE # 43 -PORT # 85 -BYTE # 44 -PORT # 85 -BYTE # 45 -PORT # 85 -BYTE # 46 -PORT # 85 -BYTE # 47 -PORT # 85 -BYTE # 48 -PORT # 85 -BYTE # 49 -PORT # 85 -BYTE # 50 -PORT # 85 -BYTE # 51 -PORT # 85 -BYTE # 52 -PORT # 85 -BYTE # 53 -PORT # 85 -BYTE # 54 -PORT # 85 -BYTE # 55 -PORT # 85 -BYTE # 56 -PORT # 85 -BYTE # 57 -PORT # 85 -BYTE # 58 -PORT # 85 -BYTE # 59 -PORT # 85 -BYTE # 60 -PORT # 85 -BYTE # 61 -PORT # 85 -BYTE # 62 -PORT # 85 -BYTE # 63 -PORT # 85 -BYTE # 64 -PORT # 85 -BYTE # 65 -PORT # 85 -BYTE # 66 -PORT # 85 -BYTE # 67 -PORT # 85 -BYTE # 68 -PORT # 85 -BYTE # 69 -PORT # 85 -BYTE # 70 -PORT # 85 -BYTE # 71 -PORT # 85 -BYTE # 72 -PORT # 85 -BYTE # 73 -PORT # 85 -BYTE # 74 -PORT # 85 -BYTE # 75 -PORT # 85 -BYTE # 76 -PORT # 85 -BYTE # 77 -PORT # 85 -BYTE # 78 -PORT # 85 -BYTE # 79 -PORT # 85 -BYTE # 80 -PORT # 85 -BYTE # 81 -PORT # 85 -BYTE # 82 -PORT # 85 -BYTE # 83 -PORT # 85 -BYTE # 84 -PORT # 85 -BYTE # 85 -PORT # 85 -BYTE # 86 -PORT # 85 -BYTE # 87 -PORT # 85 -BYTE # 88 -PORT # 85 -BYTE # 89 -PORT # 85 -BYTE # 90 -PORT # 85 -BYTE # 91 -PORT # 85 -BYTE # 92 -PORT # 85 -BYTE # 93 -PORT # 85 -BYTE # 94 -PORT # 85 -BYTE # 95 -PORT # 85 -BYTE # 96 -PORT # 85 -BYTE # 97 -PORT # 85 -BYTE # 98 -PORT # 85 -BYTE # 99 -PORT # 85 -BYTE # 100 -PORT # 85 -BYTE # 101 -PORT # 85 -BYTE # 102 -PORT # 85 -BYTE # 103 -PORT # 85 -BYTE # 104 -PORT # 85 -BYTE # 105 -PORT # 85 -BYTE # 106 -PORT # 85 -BYTE # 107 -PORT # 85 -BYTE # 108 -PORT # 85 -BYTE # 109 -PORT # 85 -BYTE # 110 -PORT # 85 -BYTE # 111 -PORT # 85 -BYTE # 112 -PORT # 85 -BYTE # 113 -PORT # 85 -BYTE # 114 -PORT # 85 -BYTE # 115 -PORT # 85 -BYTE # 116 -PORT # 85 -BYTE # 117 -PORT # 85 -BYTE # 118 -PORT # 85 -BYTE # 119 -PORT # 85 -BYTE # 120 -PORT # 85 -BYTE # 121 -PORT # 85 -BYTE # 122 -PORT # 85 -BYTE # 123 -PORT # 85 -BYTE # 124 -PORT # 85 -BYTE # 125 -PORT # 85 -BYTE # 126 -PORT # 85 -BYTE # 127 -PORT # 85 -BYTE # 128 -PORT # 85 -BYTE # 129 -PORT # 85 -BYTE # 130 -PORT # 85 -BYTE # 131 -PORT # 85 -BYTE # 132 -PORT # 85 -BYTE # 133 -PORT # 85 -BYTE # 134 -PORT # 85 -BYTE # 135 -PORT # 85 -BYTE # 136 -PORT # 85 -BYTE # 137 -PORT # 85 -BYTE # 138 -PORT # 85 -BYTE # 139 -PORT # 85 -BYTE # 140 -PORT # 85 -BYTE # 141 -PORT # 85 -BYTE # 142 -PORT # 85 -BYTE # 143 -PORT # 85 -BYTE # 144 -PORT # 85 -BYTE # 145 -PORT # 85 -BYTE # 146 -PORT # 85 -BYTE # 147 -PORT # 85 -BYTE # 148 -PORT # 85 -BYTE # 149 -PORT # 85 -BYTE # 150 -PORT # 85 -BYTE # 151 -PORT # 85 -BYTE # 152 -PORT # 85 -BYTE # 153 -PORT # 85 -BYTE # 154 -PORT # 85 -BYTE # 155 -PORT # 85 -BYTE # 156 -PORT # 85 -BYTE # 157 -PORT # 85 -BYTE # 158 -PORT # 85 -BYTE # 159 -PORT # 85 -BYTE # 160 -PORT # 85 -BYTE # 161 -PORT # 85 -BYTE # 162 -PORT # 85 -BYTE # 163 -PORT # 85 -BYTE # 164 -PORT # 85 -BYTE # 165 -PORT # 85 -BYTE # 166 -PORT # 85 -BYTE # 167 -PORT # 85 -BYTE # 168 -PORT # 85 -BYTE # 169 -PORT # 85 -BYTE # 170 -PORT # 85 -BYTE # 171 -PORT # 85 -BYTE # 172 -PORT # 85 -BYTE # 173 -PORT # 85 -BYTE # 174 -PORT # 85 -BYTE # 175 -PORT # 85 -BYTE # 176 -PORT # 85 -BYTE # 177 -PORT # 85 -BYTE # 178 -PORT # 85 -BYTE # 179 -PORT # 85 -BYTE # 180 -PORT # 85 -BYTE # 181 -PORT # 85 -BYTE # 182 -PORT # 85 -BYTE # 183 -PORT # 85 -BYTE # 184 -PORT # 85 -BYTE # 185 -PORT # 85 -BYTE # 186 -PORT # 85 -BYTE # 187 -PORT # 85 -BYTE # 188 -PORT # 85 -BYTE # 189 -PORT # 85 -BYTE # 190 -PORT # 85 -BYTE # 191 -PORT # 85 -BYTE # 192 -PORT # 85 -BYTE # 193 -PORT # 85 -BYTE # 194 -PORT # 85 -BYTE # 195 -PORT # 85 -BYTE # 196 -PORT # 85 -BYTE # 197 -PORT # 85 -BYTE # 198 -PORT # 85 -BYTE # 199 -PORT # 85 -BYTE # 200 -PORT # 85 -BYTE # 201 -PORT # 85 -BYTE # 202 -PORT # 85 -BYTE # 203 -PORT # 85 -BYTE # 204 -PORT # 85 -BYTE # 205 -PORT # 85 -BYTE # 206 -PORT # 85 -BYTE # 207 -PORT # 85 -BYTE # 208 -PORT # 85 -BYTE # 209 -PORT # 85 -BYTE # 210 -PORT # 85 -BYTE # 211 -PORT # 85 -BYTE # 212 -PORT # 85 -BYTE # 213 -PORT # 85 -BYTE # 214 -PORT # 85 -BYTE # 215 -PORT # 85 -BYTE # 216 -PORT # 85 -BYTE # 217 -PORT # 85 -BYTE # 218 -PORT # 85 -BYTE # 219 -PORT # 85 -BYTE # 220 -PORT # 85 -BYTE # 221 -PORT # 85 -BYTE # 222 -PORT # 85 -BYTE # 223 -PORT # 85 -BYTE # 224 -PORT # 85 -BYTE # 225 -PORT # 85 -BYTE # 226 -PORT # 85 -BYTE # 227 -PORT # 85 -BYTE # 228 -PORT # 85 -BYTE # 229 -PORT # 85 -BYTE # 230 -PORT # 85 -BYTE # 231 -PORT # 85 -BYTE # 232 -PORT # 85 -BYTE # 233 -PORT # 85 -BYTE # 234 -PORT # 85 -BYTE # 235 -PORT # 85 -BYTE # 236 -PORT # 85 -BYTE # 237 -PORT # 85 -BYTE # 238 -PORT # 85 -BYTE # 239 -PORT # 85 -BYTE # 240 -PORT # 85 -BYTE # 241 -PORT # 85 -BYTE # 242 -PORT # 85 -BYTE # 243 -PORT # 85 -BYTE # 244 -PORT # 85 -BYTE # 245 -PORT # 85 -BYTE # 246 -PORT # 85 -BYTE # 247 -PORT # 85 -BYTE # 248 -PORT # 85 -BYTE # 249 -PORT # 85 -BYTE # 250 -PORT # 85 -BYTE # 251 -PORT # 85 -BYTE # 252 -PORT # 85 -BYTE # 253 -PORT # 85 -BYTE # 254 -PORT # 85 -BYTE # 255 -PORT # 86 -BYTE # 0 -PORT # 86 -BYTE # 1 -PORT # 86 -BYTE # 2 -PORT # 86 -BYTE # 3 -PORT # 86 -BYTE # 4 -PORT # 86 -BYTE # 5 -PORT # 86 -BYTE # 6 -PORT # 86 -BYTE # 7 -PORT # 86 -BYTE # 8 -PORT # 86 -BYTE # 9 -PORT # 86 -BYTE # 10 -PORT # 86 -BYTE # 11 -PORT # 86 -BYTE # 12 -PORT # 86 -BYTE # 13 -PORT # 86 -BYTE # 14 -PORT # 86 -BYTE # 15 -PORT # 86 -BYTE # 16 -PORT # 86 -BYTE # 17 -PORT # 86 -BYTE # 18 -PORT # 86 -BYTE # 19 -PORT # 86 -BYTE # 20 -PORT # 86 -BYTE # 21 -PORT # 86 -BYTE # 22 -PORT # 86 -BYTE # 23 -PORT # 86 -BYTE # 24 -PORT # 86 -BYTE # 25 -PORT # 86 -BYTE # 26 -PORT # 86 -BYTE # 27 -PORT # 86 -BYTE # 28 -PORT # 86 -BYTE # 29 -PORT # 86 -BYTE # 30 -PORT # 86 -BYTE # 31 -PORT # 86 -BYTE # 32 -PORT # 86 -BYTE # 33 -PORT # 86 -BYTE # 34 -PORT # 86 -BYTE # 35 -PORT # 86 -BYTE # 36 -PORT # 86 -BYTE # 37 -PORT # 86 -BYTE # 38 -PORT # 86 -BYTE # 39 -PORT # 86 -BYTE # 40 -PORT # 86 -BYTE # 41 -PORT # 86 -BYTE # 42 -PORT # 86 -BYTE # 43 -PORT # 86 -BYTE # 44 -PORT # 86 -BYTE # 45 -PORT # 86 -BYTE # 46 -PORT # 86 -BYTE # 47 -PORT # 86 -BYTE # 48 -PORT # 86 -BYTE # 49 -PORT # 86 -BYTE # 50 -PORT # 86 -BYTE # 51 -PORT # 86 -BYTE # 52 -PORT # 86 -BYTE # 53 -PORT # 86 -BYTE # 54 -PORT # 86 -BYTE # 55 -PORT # 86 -BYTE # 56 -PORT # 86 -BYTE # 57 -PORT # 86 -BYTE # 58 -PORT # 86 -BYTE # 59 -PORT # 86 -BYTE # 60 -PORT # 86 -BYTE # 61 -PORT # 86 -BYTE # 62 -PORT # 86 -BYTE # 63 -PORT # 86 -BYTE # 64 -PORT # 86 -BYTE # 65 -PORT # 86 -BYTE # 66 -PORT # 86 -BYTE # 67 -PORT # 86 -BYTE # 68 -PORT # 86 -BYTE # 69 -PORT # 86 -BYTE # 70 -PORT # 86 -BYTE # 71 -PORT # 86 -BYTE # 72 -PORT # 86 -BYTE # 73 -PORT # 86 -BYTE # 74 -PORT # 86 -BYTE # 75 -PORT # 86 -BYTE # 76 -PORT # 86 -BYTE # 77 -PORT # 86 -BYTE # 78 -PORT # 86 -BYTE # 79 -PORT # 86 -BYTE # 80 -PORT # 86 -BYTE # 81 -PORT # 86 -BYTE # 82 -PORT # 86 -BYTE # 83 -PORT # 86 -BYTE # 84 -PORT # 86 -BYTE # 85 -PORT # 86 -BYTE # 86 -PORT # 86 -BYTE # 87 -PORT # 86 -BYTE # 88 -PORT # 86 -BYTE # 89 -PORT # 86 -BYTE # 90 -PORT # 86 -BYTE # 91 -PORT # 86 -BYTE # 92 -PORT # 86 -BYTE # 93 -PORT # 86 -BYTE # 94 -PORT # 86 -BYTE # 95 -PORT # 86 -BYTE # 96 -PORT # 86 -BYTE # 97 -PORT # 86 -BYTE # 98 -PORT # 86 -BYTE # 99 -PORT # 86 -BYTE # 100 -PORT # 86 -BYTE # 101 -PORT # 86 -BYTE # 102 -PORT # 86 -BYTE # 103 -PORT # 86 -BYTE # 104 -PORT # 86 -BYTE # 105 -PORT # 86 -BYTE # 106 -PORT # 86 -BYTE # 107 -PORT # 86 -BYTE # 108 -PORT # 86 -BYTE # 109 -PORT # 86 -BYTE # 110 -PORT # 86 -BYTE # 111 -PORT # 86 -BYTE # 112 -PORT # 86 -BYTE # 113 -PORT # 86 -BYTE # 114 -PORT # 86 -BYTE # 115 -PORT # 86 -BYTE # 116 -PORT # 86 -BYTE # 117 -PORT # 86 -BYTE # 118 -PORT # 86 -BYTE # 119 -PORT # 86 -BYTE # 120 -PORT # 86 -BYTE # 121 -PORT # 86 -BYTE # 122 -PORT # 86 -BYTE # 123 -PORT # 86 -BYTE # 124 -PORT # 86 -BYTE # 125 -PORT # 86 -BYTE # 126 -PORT # 86 -BYTE # 127 -PORT # 86 -BYTE # 128 -PORT # 86 -BYTE # 129 -PORT # 86 -BYTE # 130 -PORT # 86 -BYTE # 131 -PORT # 86 -BYTE # 132 -PORT # 86 -BYTE # 133 -PORT # 86 -BYTE # 134 -PORT # 86 -BYTE # 135 -PORT # 86 -BYTE # 136 -PORT # 86 -BYTE # 137 -PORT # 86 -BYTE # 138 -PORT # 86 -BYTE # 139 -PORT # 86 -BYTE # 140 -PORT # 86 -BYTE # 141 -PORT # 86 -BYTE # 142 -PORT # 86 -BYTE # 143 -PORT # 86 -BYTE # 144 -PORT # 86 -BYTE # 145 -PORT # 86 -BYTE # 146 -PORT # 86 -BYTE # 147 -PORT # 86 -BYTE # 148 -PORT # 86 -BYTE # 149 -PORT # 86 -BYTE # 150 -PORT # 86 -BYTE # 151 -PORT # 86 -BYTE # 152 -PORT # 86 -BYTE # 153 -PORT # 86 -BYTE # 154 -PORT # 86 -BYTE # 155 -PORT # 86 -BYTE # 156 -PORT # 86 -BYTE # 157 -PORT # 86 -BYTE # 158 -PORT # 86 -BYTE # 159 -PORT # 86 -BYTE # 160 -PORT # 86 -BYTE # 161 -PORT # 86 -BYTE # 162 -PORT # 86 -BYTE # 163 -PORT # 86 -BYTE # 164 -PORT # 86 -BYTE # 165 -PORT # 86 -BYTE # 166 -PORT # 86 -BYTE # 167 -PORT # 86 -BYTE # 168 -PORT # 86 -BYTE # 169 -PORT # 86 -BYTE # 170 -PORT # 86 -BYTE # 171 -PORT # 86 -BYTE # 172 -PORT # 86 -BYTE # 173 -PORT # 86 -BYTE # 174 -PORT # 86 -BYTE # 175 -PORT # 86 -BYTE # 176 -PORT # 86 -BYTE # 177 -PORT # 86 -BYTE # 178 -PORT # 86 -BYTE # 179 -PORT # 86 -BYTE # 180 -PORT # 86 -BYTE # 181 -PORT # 86 -BYTE # 182 -PORT # 86 -BYTE # 183 -PORT # 86 -BYTE # 184 -PORT # 86 -BYTE # 185 -PORT # 86 -BYTE # 186 -PORT # 86 -BYTE # 187 -PORT # 86 -BYTE # 188 -PORT # 86 -BYTE # 189 -PORT # 86 -BYTE # 190 -PORT # 86 -BYTE # 191 -PORT # 86 -BYTE # 192 -PORT # 86 -BYTE # 193 -PORT # 86 -BYTE # 194 -PORT # 86 -BYTE # 195 -PORT # 86 -BYTE # 196 -PORT # 86 -BYTE # 197 -PORT # 86 -BYTE # 198 -PORT # 86 -BYTE # 199 -PORT # 86 -BYTE # 200 -PORT # 86 -BYTE # 201 -PORT # 86 -BYTE # 202 -PORT # 86 -BYTE # 203 -PORT # 86 -BYTE # 204 -PORT # 86 -BYTE # 205 -PORT # 86 -BYTE # 206 -PORT # 86 -BYTE # 207 -PORT # 86 -BYTE # 208 -PORT # 86 -BYTE # 209 -PORT # 86 -BYTE # 210 -PORT # 86 -BYTE # 211 -PORT # 86 -BYTE # 212 -PORT # 86 -BYTE # 213 -PORT # 86 -BYTE # 214 -PORT # 86 -BYTE # 215 -PORT # 86 -BYTE # 216 -PORT # 86 -BYTE # 217 -PORT # 86 -BYTE # 218 -PORT # 86 -BYTE # 219 -PORT # 86 -BYTE # 220 -PORT # 86 -BYTE # 221 -PORT # 86 -BYTE # 222 -PORT # 86 -BYTE # 223 -PORT # 86 -BYTE # 224 -PORT # 86 -BYTE # 225 -PORT # 86 -BYTE # 226 -PORT # 86 -BYTE # 227 -PORT # 86 -BYTE # 228 -PORT # 86 -BYTE # 229 -PORT # 86 -BYTE # 230 -PORT # 86 -BYTE # 231 -PORT # 86 -BYTE # 232 -PORT # 86 -BYTE # 233 -PORT # 86 -BYTE # 234 -PORT # 86 -BYTE # 235 -PORT # 86 -BYTE # 236 -PORT # 86 -BYTE # 237 -PORT # 86 -BYTE # 238 -PORT # 86 -BYTE # 239 -PORT # 86 -BYTE # 240 -PORT # 86 -BYTE # 241 -PORT # 86 -BYTE # 242 -PORT # 86 -BYTE # 243 -PORT # 86 -BYTE # 244 -PORT # 86 -BYTE # 245 -PORT # 86 -BYTE # 246 -PORT # 86 -BYTE # 247 -PORT # 86 -BYTE # 248 -PORT # 86 -BYTE # 249 -PORT # 86 -BYTE # 250 -PORT # 86 -BYTE # 251 -PORT # 86 -BYTE # 252 -PORT # 86 -BYTE # 253 -PORT # 86 -BYTE # 254 -PORT # 86 -BYTE # 255 -PORT # 87 -BYTE # 0 -PORT # 87 -BYTE # 1 -PORT # 87 -BYTE # 2 -PORT # 87 -BYTE # 3 -PORT # 87 -BYTE # 4 -PORT # 87 -BYTE # 5 -PORT # 87 -BYTE # 6 -PORT # 87 -BYTE # 7 -PORT # 87 -BYTE # 8 -PORT # 87 -BYTE # 9 -PORT # 87 -BYTE # 10 -PORT # 87 -BYTE # 11 -PORT # 87 -BYTE # 12 -PORT # 87 -BYTE # 13 -PORT # 87 -BYTE # 14 -PORT # 87 -BYTE # 15 -PORT # 87 -BYTE # 16 -PORT # 87 -BYTE # 17 -PORT # 87 -BYTE # 18 -PORT # 87 -BYTE # 19 -PORT # 87 -BYTE # 20 -PORT # 87 -BYTE # 21 -PORT # 87 -BYTE # 22 -PORT # 87 -BYTE # 23 -PORT # 87 -BYTE # 24 -PORT # 87 -BYTE # 25 -PORT # 87 -BYTE # 26 -PORT # 87 -BYTE # 27 -PORT # 87 -BYTE # 28 -PORT # 87 -BYTE # 29 -PORT # 87 -BYTE # 30 -PORT # 87 -BYTE # 31 -PORT # 87 -BYTE # 32 -PORT # 87 -BYTE # 33 -PORT # 87 -BYTE # 34 -PORT # 87 -BYTE # 35 -PORT # 87 -BYTE # 36 -PORT # 87 -BYTE # 37 -PORT # 87 -BYTE # 38 -PORT # 87 -BYTE # 39 -PORT # 87 -BYTE # 40 -PORT # 87 -BYTE # 41 -PORT # 87 -BYTE # 42 -PORT # 87 -BYTE # 43 -PORT # 87 -BYTE # 44 -PORT # 87 -BYTE # 45 -PORT # 87 -BYTE # 46 -PORT # 87 -BYTE # 47 -PORT # 87 -BYTE # 48 -PORT # 87 -BYTE # 49 -PORT # 87 -BYTE # 50 -PORT # 87 -BYTE # 51 -PORT # 87 -BYTE # 52 -PORT # 87 -BYTE # 53 -PORT # 87 -BYTE # 54 -PORT # 87 -BYTE # 55 -PORT # 87 -BYTE # 56 -PORT # 87 -BYTE # 57 -PORT # 87 -BYTE # 58 -PORT # 87 -BYTE # 59 -PORT # 87 -BYTE # 60 -PORT # 87 -BYTE # 61 -PORT # 87 -BYTE # 62 -PORT # 87 -BYTE # 63 -PORT # 87 -BYTE # 64 -PORT # 87 -BYTE # 65 -PORT # 87 -BYTE # 66 -PORT # 87 -BYTE # 67 -PORT # 87 -BYTE # 68 -PORT # 87 -BYTE # 69 -PORT # 87 -BYTE # 70 -PORT # 87 -BYTE # 71 -PORT # 87 -BYTE # 72 -PORT # 87 -BYTE # 73 -PORT # 87 -BYTE # 74 -PORT # 87 -BYTE # 75 -PORT # 87 -BYTE # 76 -PORT # 87 -BYTE # 77 -PORT # 87 -BYTE # 78 -PORT # 87 -BYTE # 79 -PORT # 87 -BYTE # 80 -PORT # 87 -BYTE # 81 -PORT # 87 -BYTE # 82 -PORT # 87 -BYTE # 83 -PORT # 87 -BYTE # 84 -PORT # 87 -BYTE # 85 -PORT # 87 -BYTE # 86 -PORT # 87 -BYTE # 87 -PORT # 87 -BYTE # 88 -PORT # 87 -BYTE # 89 -PORT # 87 -BYTE # 90 -PORT # 87 -BYTE # 91 -PORT # 87 -BYTE # 92 -PORT # 87 -BYTE # 93 -PORT # 87 -BYTE # 94 -PORT # 87 -BYTE # 95 -PORT # 87 -BYTE # 96 -PORT # 87 -BYTE # 97 -PORT # 87 -BYTE # 98 -PORT # 87 -BYTE # 99 -PORT # 87 -BYTE # 100 -PORT # 87 -BYTE # 101 -PORT # 87 -BYTE # 102 -PORT # 87 -BYTE # 103 -PORT # 87 -BYTE # 104 -PORT # 87 -BYTE # 105 -PORT # 87 -BYTE # 106 -PORT # 87 -BYTE # 107 -PORT # 87 -BYTE # 108 -PORT # 87 -BYTE # 109 -PORT # 87 -BYTE # 110 -PORT # 87 -BYTE # 111 -PORT # 87 -BYTE # 112 -PORT # 87 -BYTE # 113 -PORT # 87 -BYTE # 114 -PORT # 87 -BYTE # 115 -PORT # 87 -BYTE # 116 -PORT # 87 -BYTE # 117 -PORT # 87 -BYTE # 118 -PORT # 87 -BYTE # 119 -PORT # 87 -BYTE # 120 -PORT # 87 -BYTE # 121 -PORT # 87 -BYTE # 122 -PORT # 87 -BYTE # 123 -PORT # 87 -BYTE # 124 -PORT # 87 -BYTE # 125 -PORT # 87 -BYTE # 126 -PORT # 87 -BYTE # 127 -PORT # 87 -BYTE # 128 -PORT # 87 -BYTE # 129 -PORT # 87 -BYTE # 130 -PORT # 87 -BYTE # 131 -PORT # 87 -BYTE # 132 -PORT # 87 -BYTE # 133 -PORT # 87 -BYTE # 134 -PORT # 87 -BYTE # 135 -PORT # 87 -BYTE # 136 -PORT # 87 -BYTE # 137 -PORT # 87 -BYTE # 138 -PORT # 87 -BYTE # 139 -PORT # 87 -BYTE # 140 -PORT # 87 -BYTE # 141 -PORT # 87 -BYTE # 142 -PORT # 87 -BYTE # 143 -PORT # 87 -BYTE # 144 -PORT # 87 -BYTE # 145 -PORT # 87 -BYTE # 146 -PORT # 87 -BYTE # 147 -PORT # 87 -BYTE # 148 -PORT # 87 -BYTE # 149 -PORT # 87 -BYTE # 150 -PORT # 87 -BYTE # 151 -PORT # 87 -BYTE # 152 -PORT # 87 -BYTE # 153 -PORT # 87 -BYTE # 154 -PORT # 87 -BYTE # 155 -PORT # 87 -BYTE # 156 -PORT # 87 -BYTE # 157 -PORT # 87 -BYTE # 158 -PORT # 87 -BYTE # 159 -PORT # 87 -BYTE # 160 -PORT # 87 -BYTE # 161 -PORT # 87 -BYTE # 162 -PORT # 87 -BYTE # 163 -PORT # 87 -BYTE # 164 -PORT # 87 -BYTE # 165 -PORT # 87 -BYTE # 166 -PORT # 87 -BYTE # 167 -PORT # 87 -BYTE # 168 -PORT # 87 -BYTE # 169 -PORT # 87 -BYTE # 170 -PORT # 87 -BYTE # 171 -PORT # 87 -BYTE # 172 -PORT # 87 -BYTE # 173 -PORT # 87 -BYTE # 174 -PORT # 87 -BYTE # 175 -PORT # 87 -BYTE # 176 -PORT # 87 -BYTE # 177 -PORT # 87 -BYTE # 178 -PORT # 87 -BYTE # 179 -PORT # 87 -BYTE # 180 -PORT # 87 -BYTE # 181 -PORT # 87 -BYTE # 182 -PORT # 87 -BYTE # 183 -PORT # 87 -BYTE # 184 -PORT # 87 -BYTE # 185 -PORT # 87 -BYTE # 186 -PORT # 87 -BYTE # 187 -PORT # 87 -BYTE # 188 -PORT # 87 -BYTE # 189 -PORT # 87 -BYTE # 190 -PORT # 87 -BYTE # 191 -PORT # 87 -BYTE # 192 -PORT # 87 -BYTE # 193 -PORT # 87 -BYTE # 194 -PORT # 87 -BYTE # 195 -PORT # 87 -BYTE # 196 -PORT # 87 -BYTE # 197 -PORT # 87 -BYTE # 198 -PORT # 87 -BYTE # 199 -PORT # 87 -BYTE # 200 -PORT # 87 -BYTE # 201 -PORT # 87 -BYTE # 202 -PORT # 87 -BYTE # 203 -PORT # 87 -BYTE # 204 -PORT # 87 -BYTE # 205 -PORT # 87 -BYTE # 206 -PORT # 87 -BYTE # 207 -PORT # 87 -BYTE # 208 -PORT # 87 -BYTE # 209 -PORT # 87 -BYTE # 210 -PORT # 87 -BYTE # 211 -PORT # 87 -BYTE # 212 -PORT # 87 -BYTE # 213 -PORT # 87 -BYTE # 214 -PORT # 87 -BYTE # 215 -PORT # 87 -BYTE # 216 -PORT # 87 -BYTE # 217 -PORT # 87 -BYTE # 218 -PORT # 87 -BYTE # 219 -PORT # 87 -BYTE # 220 -PORT # 87 -BYTE # 221 -PORT # 87 -BYTE # 222 -PORT # 87 -BYTE # 223 -PORT # 87 -BYTE # 224 -PORT # 87 -BYTE # 225 -PORT # 87 -BYTE # 226 -PORT # 87 -BYTE # 227 -PORT # 87 -BYTE # 228 -PORT # 87 -BYTE # 229 -PORT # 87 -BYTE # 230 -PORT # 87 -BYTE # 231 -PORT # 87 -BYTE # 232 -PORT # 87 -BYTE # 233 -PORT # 87 -BYTE # 234 -PORT # 87 -BYTE # 235 -PORT # 87 -BYTE # 236 -PORT # 87 -BYTE # 237 -PORT # 87 -BYTE # 238 -PORT # 87 -BYTE # 239 -PORT # 87 -BYTE # 240 -PORT # 87 -BYTE # 241 -PORT # 87 -BYTE # 242 -PORT # 87 -BYTE # 243 -PORT # 87 -BYTE # 244 -PORT # 87 -BYTE # 245 -PORT # 87 -BYTE # 246 -PORT # 87 -BYTE # 247 -PORT # 87 -BYTE # 248 -PORT # 87 -BYTE # 249 -PORT # 87 -BYTE # 250 -PORT # 87 -BYTE # 251 -PORT # 87 -BYTE # 252 -PORT # 87 -BYTE # 253 -PORT # 87 -BYTE # 254 -PORT # 87 -BYTE # 255 -PORT # 88 -BYTE # 0 -PORT # 88 -BYTE # 1 -PORT # 88 -BYTE # 2 -PORT # 88 -BYTE # 3 -PORT # 88 -BYTE # 4 -PORT # 88 -BYTE # 5 -PORT # 88 -BYTE # 6 -PORT # 88 -BYTE # 7 -PORT # 88 -BYTE # 8 -PORT # 88 -BYTE # 9 -PORT # 88 -BYTE # 10 -PORT # 88 -BYTE # 11 -PORT # 88 -BYTE # 12 -PORT # 88 -BYTE # 13 -PORT # 88 -BYTE # 14 -PORT # 88 -BYTE # 15 -PORT # 88 -BYTE # 16 -PORT # 88 -BYTE # 17 -PORT # 88 -BYTE # 18 -PORT # 88 -BYTE # 19 -PORT # 88 -BYTE # 20 -PORT # 88 -BYTE # 21 -PORT # 88 -BYTE # 22 -PORT # 88 -BYTE # 23 -PORT # 88 -BYTE # 24 -PORT # 88 -BYTE # 25 -PORT # 88 -BYTE # 26 -PORT # 88 -BYTE # 27 -PORT # 88 -BYTE # 28 -PORT # 88 -BYTE # 29 -PORT # 88 -BYTE # 30 -PORT # 88 -BYTE # 31 -PORT # 88 -BYTE # 32 -PORT # 88 -BYTE # 33 -PORT # 88 -BYTE # 34 -PORT # 88 -BYTE # 35 -PORT # 88 -BYTE # 36 -PORT # 88 -BYTE # 37 -PORT # 88 -BYTE # 38 -PORT # 88 -BYTE # 39 -PORT # 88 -BYTE # 40 -PORT # 88 -BYTE # 41 -PORT # 88 -BYTE # 42 -PORT # 88 -BYTE # 43 -PORT # 88 -BYTE # 44 -PORT # 88 -BYTE # 45 -PORT # 88 -BYTE # 46 -PORT # 88 -BYTE # 47 -PORT # 88 -BYTE # 48 -PORT # 88 -BYTE # 49 -PORT # 88 -BYTE # 50 -PORT # 88 -BYTE # 51 -PORT # 88 -BYTE # 52 -PORT # 88 -BYTE # 53 -PORT # 88 -BYTE # 54 -PORT # 88 -BYTE # 55 -PORT # 88 -BYTE # 56 -PORT # 88 -BYTE # 57 -PORT # 88 -BYTE # 58 -PORT # 88 -BYTE # 59 -PORT # 88 -BYTE # 60 -PORT # 88 -BYTE # 61 -PORT # 88 -BYTE # 62 -PORT # 88 -BYTE # 63 -PORT # 88 -BYTE # 64 -PORT # 88 -BYTE # 65 -PORT # 88 -BYTE # 66 -PORT # 88 -BYTE # 67 -PORT # 88 -BYTE # 68 -PORT # 88 -BYTE # 69 -PORT # 88 -BYTE # 70 -PORT # 88 -BYTE # 71 -PORT # 88 -BYTE # 72 -PORT # 88 -BYTE # 73 -PORT # 88 -BYTE # 74 -PORT # 88 -BYTE # 75 -PORT # 88 -BYTE # 76 -PORT # 88 -BYTE # 77 -PORT # 88 -BYTE # 78 -PORT # 88 -BYTE # 79 -PORT # 88 -BYTE # 80 -PORT # 88 -BYTE # 81 -PORT # 88 -BYTE # 82 -PORT # 88 -BYTE # 83 -PORT # 88 -BYTE # 84 -PORT # 88 -BYTE # 85 -PORT # 88 -BYTE # 86 -PORT # 88 -BYTE # 87 -PORT # 88 -BYTE # 88 -PORT # 88 -BYTE # 89 -PORT # 88 -BYTE # 90 -PORT # 88 -BYTE # 91 -PORT # 88 -BYTE # 92 -PORT # 88 -BYTE # 93 -PORT # 88 -BYTE # 94 -PORT # 88 -BYTE # 95 -PORT # 88 -BYTE # 96 -PORT # 88 -BYTE # 97 -PORT # 88 -BYTE # 98 -PORT # 88 -BYTE # 99 -PORT # 88 -BYTE # 100 -PORT # 88 -BYTE # 101 -PORT # 88 -BYTE # 102 -PORT # 88 -BYTE # 103 -PORT # 88 -BYTE # 104 -PORT # 88 -BYTE # 105 -PORT # 88 -BYTE # 106 -PORT # 88 -BYTE # 107 -PORT # 88 -BYTE # 108 -PORT # 88 -BYTE # 109 -PORT # 88 -BYTE # 110 -PORT # 88 -BYTE # 111 -PORT # 88 -BYTE # 112 -PORT # 88 -BYTE # 113 -PORT # 88 -BYTE # 114 -PORT # 88 -BYTE # 115 -PORT # 88 -BYTE # 116 -PORT # 88 -BYTE # 117 -PORT # 88 -BYTE # 118 -PORT # 88 -BYTE # 119 -PORT # 88 -BYTE # 120 -PORT # 88 -BYTE # 121 -PORT # 88 -BYTE # 122 -PORT # 88 -BYTE # 123 -PORT # 88 -BYTE # 124 -PORT # 88 -BYTE # 125 -PORT # 88 -BYTE # 126 -PORT # 88 -BYTE # 127 -PORT # 88 -BYTE # 128 -PORT # 88 -BYTE # 129 -PORT # 88 -BYTE # 130 -PORT # 88 -BYTE # 131 -PORT # 88 -BYTE # 132 -PORT # 88 -BYTE # 133 -PORT # 88 -BYTE # 134 -PORT # 88 -BYTE # 135 -PORT # 88 -BYTE # 136 -PORT # 88 -BYTE # 137 -PORT # 88 -BYTE # 138 -PORT # 88 -BYTE # 139 -PORT # 88 -BYTE # 140 -PORT # 88 -BYTE # 141 -PORT # 88 -BYTE # 142 -PORT # 88 -BYTE # 143 -PORT # 88 -BYTE # 144 -PORT # 88 -BYTE # 145 -PORT # 88 -BYTE # 146 -PORT # 88 -BYTE # 147 -PORT # 88 -BYTE # 148 -PORT # 88 -BYTE # 149 -PORT # 88 -BYTE # 150 -PORT # 88 -BYTE # 151 -PORT # 88 -BYTE # 152 -PORT # 88 -BYTE # 153 -PORT # 88 -BYTE # 154 -PORT # 88 -BYTE # 155 -PORT # 88 -BYTE # 156 -PORT # 88 -BYTE # 157 -PORT # 88 -BYTE # 158 -PORT # 88 -BYTE # 159 -PORT # 88 -BYTE # 160 -PORT # 88 -BYTE # 161 -PORT # 88 -BYTE # 162 -PORT # 88 -BYTE # 163 -PORT # 88 -BYTE # 164 -PORT # 88 -BYTE # 165 -PORT # 88 -BYTE # 166 -PORT # 88 -BYTE # 167 -PORT # 88 -BYTE # 168 -PORT # 88 -BYTE # 169 -PORT # 88 -BYTE # 170 -PORT # 88 -BYTE # 171 -PORT # 88 -BYTE # 172 -PORT # 88 -BYTE # 173 -PORT # 88 -BYTE # 174 -PORT # 88 -BYTE # 175 -PORT # 88 -BYTE # 176 -PORT # 88 -BYTE # 177 -PORT # 88 -BYTE # 178 -PORT # 88 -BYTE # 179 -PORT # 88 -BYTE # 180 -PORT # 88 -BYTE # 181 -PORT # 88 -BYTE # 182 -PORT # 88 -BYTE # 183 -PORT # 88 -BYTE # 184 -PORT # 88 -BYTE # 185 -PORT # 88 -BYTE # 186 -PORT # 88 -BYTE # 187 -PORT # 88 -BYTE # 188 -PORT # 88 -BYTE # 189 -PORT # 88 -BYTE # 190 -PORT # 88 -BYTE # 191 -PORT # 88 -BYTE # 192 -PORT # 88 -BYTE # 193 -PORT # 88 -BYTE # 194 -PORT # 88 -BYTE # 195 -PORT # 88 -BYTE # 196 -PORT # 88 -BYTE # 197 -PORT # 88 -BYTE # 198 -PORT # 88 -BYTE # 199 -PORT # 88 -BYTE # 200 -PORT # 88 -BYTE # 201 -PORT # 88 -BYTE # 202 -PORT # 88 -BYTE # 203 -PORT # 88 -BYTE # 204 -PORT # 88 -BYTE # 205 -PORT # 88 -BYTE # 206 -PORT # 88 -BYTE # 207 -PORT # 88 -BYTE # 208 -PORT # 88 -BYTE # 209 -PORT # 88 -BYTE # 210 -PORT # 88 -BYTE # 211 -PORT # 88 -BYTE # 212 -PORT # 88 -BYTE # 213 -PORT # 88 -BYTE # 214 -PORT # 88 -BYTE # 215 -PORT # 88 -BYTE # 216 -PORT # 88 -BYTE # 217 -PORT # 88 -BYTE # 218 -PORT # 88 -BYTE # 219 -PORT # 88 -BYTE # 220 -PORT # 88 -BYTE # 221 -PORT # 88 -BYTE # 222 -PORT # 88 -BYTE # 223 -PORT # 88 -BYTE # 224 -PORT # 88 -BYTE # 225 -PORT # 88 -BYTE # 226 -PORT # 88 -BYTE # 227 -PORT # 88 -BYTE # 228 -PORT # 88 -BYTE # 229 -PORT # 88 -BYTE # 230 -PORT # 88 -BYTE # 231 -PORT # 88 -BYTE # 232 -PORT # 88 -BYTE # 233 -PORT # 88 -BYTE # 234 -PORT # 88 -BYTE # 235 -PORT # 88 -BYTE # 236 -PORT # 88 -BYTE # 237 -PORT # 88 -BYTE # 238 -PORT # 88 -BYTE # 239 -PORT # 88 -BYTE # 240 -PORT # 88 -BYTE # 241 -PORT # 88 -BYTE # 242 -PORT # 88 -BYTE # 243 -PORT # 88 -BYTE # 244 -PORT # 88 -BYTE # 245 -PORT # 88 -BYTE # 246 -PORT # 88 -BYTE # 247 -PORT # 88 -BYTE # 248 -PORT # 88 -BYTE # 249 -PORT # 88 -BYTE # 250 -PORT # 88 -BYTE # 251 -PORT # 88 -BYTE # 252 -PORT # 88 -BYTE # 253 -PORT # 88 -BYTE # 254 -PORT # 88 -BYTE # 255 -PORT # 89 -BYTE # 0 -PORT # 89 -BYTE # 1 -PORT # 89 -BYTE # 2 -PORT # 89 -BYTE # 3 -PORT # 89 -BYTE # 4 -PORT # 89 -BYTE # 5 -PORT # 89 -BYTE # 6 -PORT # 89 -BYTE # 7 -PORT # 89 -BYTE # 8 -PORT # 89 -BYTE # 9 -PORT # 89 -BYTE # 10 -PORT # 89 -BYTE # 11 -PORT # 89 -BYTE # 12 -PORT # 89 -BYTE # 13 -PORT # 89 -BYTE # 14 -PORT # 89 -BYTE # 15 -PORT # 89 -BYTE # 16 -PORT # 89 -BYTE # 17 -PORT # 89 -BYTE # 18 -PORT # 89 -BYTE # 19 -PORT # 89 -BYTE # 20 -PORT # 89 -BYTE # 21 -PORT # 89 -BYTE # 22 -PORT # 89 -BYTE # 23 -PORT # 89 -BYTE # 24 -PORT # 89 -BYTE # 25 -PORT # 89 -BYTE # 26 -PORT # 89 -BYTE # 27 -PORT # 89 -BYTE # 28 -PORT # 89 -BYTE # 29 -PORT # 89 -BYTE # 30 -PORT # 89 -BYTE # 31 -PORT # 89 -BYTE # 32 -PORT # 89 -BYTE # 33 -PORT # 89 -BYTE # 34 -PORT # 89 -BYTE # 35 -PORT # 89 -BYTE # 36 -PORT # 89 -BYTE # 37 -PORT # 89 -BYTE # 38 -PORT # 89 -BYTE # 39 -PORT # 89 -BYTE # 40 -PORT # 89 -BYTE # 41 -PORT # 89 -BYTE # 42 -PORT # 89 -BYTE # 43 -PORT # 89 -BYTE # 44 -PORT # 89 -BYTE # 45 -PORT # 89 -BYTE # 46 -PORT # 89 -BYTE # 47 -PORT # 89 -BYTE # 48 -PORT # 89 -BYTE # 49 -PORT # 89 -BYTE # 50 -PORT # 89 -BYTE # 51 -PORT # 89 -BYTE # 52 -PORT # 89 -BYTE # 53 -PORT # 89 -BYTE # 54 -PORT # 89 -BYTE # 55 -PORT # 89 -BYTE # 56 -PORT # 89 -BYTE # 57 -PORT # 89 -BYTE # 58 -PORT # 89 -BYTE # 59 -PORT # 89 -BYTE # 60 -PORT # 89 -BYTE # 61 -PORT # 89 -BYTE # 62 -PORT # 89 -BYTE # 63 -PORT # 89 -BYTE # 64 -PORT # 89 -BYTE # 65 -PORT # 89 -BYTE # 66 -PORT # 89 -BYTE # 67 -PORT # 89 -BYTE # 68 -PORT # 89 -BYTE # 69 -PORT # 89 -BYTE # 70 -PORT # 89 -BYTE # 71 -PORT # 89 -BYTE # 72 -PORT # 89 -BYTE # 73 -PORT # 89 -BYTE # 74 -PORT # 89 -BYTE # 75 -PORT # 89 -BYTE # 76 -PORT # 89 -BYTE # 77 -PORT # 89 -BYTE # 78 -PORT # 89 -BYTE # 79 -PORT # 89 -BYTE # 80 -PORT # 89 -BYTE # 81 -PORT # 89 -BYTE # 82 -PORT # 89 -BYTE # 83 -PORT # 89 -BYTE # 84 -PORT # 89 -BYTE # 85 -PORT # 89 -BYTE # 86 -PORT # 89 -BYTE # 87 -PORT # 89 -BYTE # 88 -PORT # 89 -BYTE # 89 -PORT # 89 -BYTE # 90 -PORT # 89 -BYTE # 91 -PORT # 89 -BYTE # 92 -PORT # 89 -BYTE # 93 -PORT # 89 -BYTE # 94 -PORT # 89 -BYTE # 95 -PORT # 89 -BYTE # 96 -PORT # 89 -BYTE # 97 -PORT # 89 -BYTE # 98 -PORT # 89 -BYTE # 99 -PORT # 89 -BYTE # 100 -PORT # 89 -BYTE # 101 -PORT # 89 -BYTE # 102 -PORT # 89 -BYTE # 103 -PORT # 89 -BYTE # 104 -PORT # 89 -BYTE # 105 -PORT # 89 -BYTE # 106 -PORT # 89 -BYTE # 107 -PORT # 89 -BYTE # 108 -PORT # 89 -BYTE # 109 -PORT # 89 -BYTE # 110 -PORT # 89 -BYTE # 111 -PORT # 89 -BYTE # 112 -PORT # 89 -BYTE # 113 -PORT # 89 -BYTE # 114 -PORT # 89 -BYTE # 115 -PORT # 89 -BYTE # 116 -PORT # 89 -BYTE # 117 -PORT # 89 -BYTE # 118 -PORT # 89 -BYTE # 119 -PORT # 89 -BYTE # 120 -PORT # 89 -BYTE # 121 -PORT # 89 -BYTE # 122 -PORT # 89 -BYTE # 123 -PORT # 89 -BYTE # 124 -PORT # 89 -BYTE # 125 -PORT # 89 -BYTE # 126 -PORT # 89 -BYTE # 127 -PORT # 89 -BYTE # 128 -PORT # 89 -BYTE # 129 -PORT # 89 -BYTE # 130 -PORT # 89 -BYTE # 131 -PORT # 89 -BYTE # 132 -PORT # 89 -BYTE # 133 -PORT # 89 -BYTE # 134 -PORT # 89 -BYTE # 135 -PORT # 89 -BYTE # 136 -PORT # 89 -BYTE # 137 -PORT # 89 -BYTE # 138 -PORT # 89 -BYTE # 139 -PORT # 89 -BYTE # 140 -PORT # 89 -BYTE # 141 -PORT # 89 -BYTE # 142 -PORT # 89 -BYTE # 143 -PORT # 89 -BYTE # 144 -PORT # 89 -BYTE # 145 -PORT # 89 -BYTE # 146 -PORT # 89 -BYTE # 147 -PORT # 89 -BYTE # 148 -PORT # 89 -BYTE # 149 -PORT # 89 -BYTE # 150 -PORT # 89 -BYTE # 151 -PORT # 89 -BYTE # 152 -PORT # 89 -BYTE # 153 -PORT # 89 -BYTE # 154 -PORT # 89 -BYTE # 155 -PORT # 89 -BYTE # 156 -PORT # 89 -BYTE # 157 -PORT # 89 -BYTE # 158 -PORT # 89 -BYTE # 159 -PORT # 89 -BYTE # 160 -PORT # 89 -BYTE # 161 -PORT # 89 -BYTE # 162 -PORT # 89 -BYTE # 163 -PORT # 89 -BYTE # 164 -PORT # 89 -BYTE # 165 -PORT # 89 -BYTE # 166 -PORT # 89 -BYTE # 167 -PORT # 89 -BYTE # 168 -PORT # 89 -BYTE # 169 -PORT # 89 -BYTE # 170 -PORT # 89 -BYTE # 171 -PORT # 89 -BYTE # 172 -PORT # 89 -BYTE # 173 -PORT # 89 -BYTE # 174 -PORT # 89 -BYTE # 175 -PORT # 89 -BYTE # 176 -PORT # 89 -BYTE # 177 -PORT # 89 -BYTE # 178 -PORT # 89 -BYTE # 179 -PORT # 89 -BYTE # 180 -PORT # 89 -BYTE # 181 -PORT # 89 -BYTE # 182 -PORT # 89 -BYTE # 183 -PORT # 89 -BYTE # 184 -PORT # 89 -BYTE # 185 -PORT # 89 -BYTE # 186 -PORT # 89 -BYTE # 187 -PORT # 89 -BYTE # 188 -PORT # 89 -BYTE # 189 -PORT # 89 -BYTE # 190 -PORT # 89 -BYTE # 191 -PORT # 89 -BYTE # 192 -PORT # 89 -BYTE # 193 -PORT # 89 -BYTE # 194 -PORT # 89 -BYTE # 195 -PORT # 89 -BYTE # 196 -PORT # 89 -BYTE # 197 -PORT # 89 -BYTE # 198 -PORT # 89 -BYTE # 199 -PORT # 89 -BYTE # 200 -PORT # 89 -BYTE # 201 -PORT # 89 -BYTE # 202 -PORT # 89 -BYTE # 203 -PORT # 89 -BYTE # 204 -PORT # 89 -BYTE # 205 -PORT # 89 -BYTE # 206 -PORT # 89 -BYTE # 207 -PORT # 89 -BYTE # 208 -PORT # 89 -BYTE # 209 -PORT # 89 -BYTE # 210 -PORT # 89 -BYTE # 211 -PORT # 89 -BYTE # 212 -PORT # 89 -BYTE # 213 -PORT # 89 -BYTE # 214 -PORT # 89 -BYTE # 215 -PORT # 89 -BYTE # 216 -PORT # 89 -BYTE # 217 -PORT # 89 -BYTE # 218 -PORT # 89 -BYTE # 219 -PORT # 89 -BYTE # 220 -PORT # 89 -BYTE # 221 -PORT # 89 -BYTE # 222 -PORT # 89 -BYTE # 223 -PORT # 89 -BYTE # 224 -PORT # 89 -BYTE # 225 -PORT # 89 -BYTE # 226 -PORT # 89 -BYTE # 227 -PORT # 89 -BYTE # 228 -PORT # 89 -BYTE # 229 -PORT # 89 -BYTE # 230 -PORT # 89 -BYTE # 231 -PORT # 89 -BYTE # 232 -PORT # 89 -BYTE # 233 -PORT # 89 -BYTE # 234 -PORT # 89 -BYTE # 235 -PORT # 89 -BYTE # 236 -PORT # 89 -BYTE # 237 -PORT # 89 -BYTE # 238 -PORT # 89 -BYTE # 239 -PORT # 89 -BYTE # 240 -PORT # 89 -BYTE # 241 -PORT # 89 -BYTE # 242 -PORT # 89 -BYTE # 243 -PORT # 89 -BYTE # 244 -PORT # 89 -BYTE # 245 -PORT # 89 -BYTE # 246 -PORT # 89 -BYTE # 247 -PORT # 89 -BYTE # 248 -PORT # 89 -BYTE # 249 -PORT # 89 -BYTE # 250 -PORT # 89 -BYTE # 251 -PORT # 89 -BYTE # 252 -PORT # 89 -BYTE # 253 -PORT # 89 -BYTE # 254 -PORT # 89 -BYTE # 255 -PORT # 90 -BYTE # 0 -PORT # 90 -BYTE # 1 -PORT # 90 -BYTE # 2 -PORT # 90 -BYTE # 3 -PORT # 90 -BYTE # 4 -PORT # 90 -BYTE # 5 -PORT # 90 -BYTE # 6 -PORT # 90 -BYTE # 7 -PORT # 90 -BYTE # 8 -PORT # 90 -BYTE # 9 -PORT # 90 -BYTE # 10 -PORT # 90 -BYTE # 11 -PORT # 90 -BYTE # 12 -PORT # 90 -BYTE # 13 -PORT # 90 -BYTE # 14 -PORT # 90 -BYTE # 15 -PORT # 90 -BYTE # 16 -PORT # 90 -BYTE # 17 -PORT # 90 -BYTE # 18 -PORT # 90 -BYTE # 19 -PORT # 90 -BYTE # 20 -PORT # 90 -BYTE # 21 -PORT # 90 -BYTE # 22 -PORT # 90 -BYTE # 23 -PORT # 90 -BYTE # 24 -PORT # 90 -BYTE # 25 -PORT # 90 -BYTE # 26 -PORT # 90 -BYTE # 27 -PORT # 90 -BYTE # 28 -PORT # 90 -BYTE # 29 -PORT # 90 -BYTE # 30 -PORT # 90 -BYTE # 31 -PORT # 90 -BYTE # 32 -PORT # 90 -BYTE # 33 -PORT # 90 -BYTE # 34 -PORT # 90 -BYTE # 35 -PORT # 90 -BYTE # 36 -PORT # 90 -BYTE # 37 -PORT # 90 -BYTE # 38 -PORT # 90 -BYTE # 39 -PORT # 90 -BYTE # 40 -PORT # 90 -BYTE # 41 -PORT # 90 -BYTE # 42 -PORT # 90 -BYTE # 43 -PORT # 90 -BYTE # 44 -PORT # 90 -BYTE # 45 -PORT # 90 -BYTE # 46 -PORT # 90 -BYTE # 47 -PORT # 90 -BYTE # 48 -PORT # 90 -BYTE # 49 -PORT # 90 -BYTE # 50 -PORT # 90 -BYTE # 51 -PORT # 90 -BYTE # 52 -PORT # 90 -BYTE # 53 -PORT # 90 -BYTE # 54 -PORT # 90 -BYTE # 55 -PORT # 90 -BYTE # 56 -PORT # 90 -BYTE # 57 -PORT # 90 -BYTE # 58 -PORT # 90 -BYTE # 59 -PORT # 90 -BYTE # 60 -PORT # 90 -BYTE # 61 -PORT # 90 -BYTE # 62 -PORT # 90 -BYTE # 63 -PORT # 90 -BYTE # 64 -PORT # 90 -BYTE # 65 -PORT # 90 -BYTE # 66 -PORT # 90 -BYTE # 67 -PORT # 90 -BYTE # 68 -PORT # 90 -BYTE # 69 -PORT # 90 -BYTE # 70 -PORT # 90 -BYTE # 71 -PORT # 90 -BYTE # 72 -PORT # 90 -BYTE # 73 -PORT # 90 -BYTE # 74 -PORT # 90 -BYTE # 75 -PORT # 90 -BYTE # 76 -PORT # 90 -BYTE # 77 -PORT # 90 -BYTE # 78 -PORT # 90 -BYTE # 79 -PORT # 90 -BYTE # 80 -PORT # 90 -BYTE # 81 -PORT # 90 -BYTE # 82 -PORT # 90 -BYTE # 83 -PORT # 90 -BYTE # 84 -PORT # 90 -BYTE # 85 -PORT # 90 -BYTE # 86 -PORT # 90 -BYTE # 87 -PORT # 90 -BYTE # 88 -PORT # 90 -BYTE # 89 -PORT # 90 -BYTE # 90 -PORT # 90 -BYTE # 91 -PORT # 90 -BYTE # 92 -PORT # 90 -BYTE # 93 -PORT # 90 -BYTE # 94 -PORT # 90 -BYTE # 95 -PORT # 90 -BYTE # 96 -PORT # 90 -BYTE # 97 -PORT # 90 -BYTE # 98 -PORT # 90 -BYTE # 99 -PORT # 90 -BYTE # 100 -PORT # 90 -BYTE # 101 -PORT # 90 -BYTE # 102 -PORT # 90 -BYTE # 103 -PORT # 90 -BYTE # 104 -PORT # 90 -BYTE # 105 -PORT # 90 -BYTE # 106 -PORT # 90 -BYTE # 107 -PORT # 90 -BYTE # 108 -PORT # 90 -BYTE # 109 -PORT # 90 -BYTE # 110 -PORT # 90 -BYTE # 111 -PORT # 90 -BYTE # 112 -PORT # 90 -BYTE # 113 -PORT # 90 -BYTE # 114 -PORT # 90 -BYTE # 115 -PORT # 90 -BYTE # 116 -PORT # 90 -BYTE # 117 -PORT # 90 -BYTE # 118 -PORT # 90 -BYTE # 119 -PORT # 90 -BYTE # 120 -PORT # 90 -BYTE # 121 -PORT # 90 -BYTE # 122 -PORT # 90 -BYTE # 123 -PORT # 90 -BYTE # 124 -PORT # 90 -BYTE # 125 -PORT # 90 -BYTE # 126 -PORT # 90 -BYTE # 127 -PORT # 90 -BYTE # 128 -PORT # 90 -BYTE # 129 -PORT # 90 -BYTE # 130 -PORT # 90 -BYTE # 131 -PORT # 90 -BYTE # 132 -PORT # 90 -BYTE # 133 -PORT # 90 -BYTE # 134 -PORT # 90 -BYTE # 135 -PORT # 90 -BYTE # 136 -PORT # 90 -BYTE # 137 -PORT # 90 -BYTE # 138 -PORT # 90 -BYTE # 139 -PORT # 90 -BYTE # 140 -PORT # 90 -BYTE # 141 -PORT # 90 -BYTE # 142 -PORT # 90 -BYTE # 143 -PORT # 90 -BYTE # 144 -PORT # 90 -BYTE # 145 -PORT # 90 -BYTE # 146 -PORT # 90 -BYTE # 147 -PORT # 90 -BYTE # 148 -PORT # 90 -BYTE # 149 -PORT # 90 -BYTE # 150 -PORT # 90 -BYTE # 151 -PORT # 90 -BYTE # 152 -PORT # 90 -BYTE # 153 -PORT # 90 -BYTE # 154 -PORT # 90 -BYTE # 155 -PORT # 90 -BYTE # 156 -PORT # 90 -BYTE # 157 -PORT # 90 -BYTE # 158 -PORT # 90 -BYTE # 159 -PORT # 90 -BYTE # 160 -PORT # 90 -BYTE # 161 -PORT # 90 -BYTE # 162 -PORT # 90 -BYTE # 163 -PORT # 90 -BYTE # 164 -PORT # 90 -BYTE # 165 -PORT # 90 -BYTE # 166 -PORT # 90 -BYTE # 167 -PORT # 90 -BYTE # 168 -PORT # 90 -BYTE # 169 -PORT # 90 -BYTE # 170 -PORT # 90 -BYTE # 171 -PORT # 90 -BYTE # 172 -PORT # 90 -BYTE # 173 -PORT # 90 -BYTE # 174 -PORT # 90 -BYTE # 175 -PORT # 90 -BYTE # 176 -PORT # 90 -BYTE # 177 -PORT # 90 -BYTE # 178 -PORT # 90 -BYTE # 179 -PORT # 90 -BYTE # 180 -PORT # 90 -BYTE # 181 -PORT # 90 -BYTE # 182 -PORT # 90 -BYTE # 183 -PORT # 90 -BYTE # 184 -PORT # 90 -BYTE # 185 -PORT # 90 -BYTE # 186 -PORT # 90 -BYTE # 187 -PORT # 90 -BYTE # 188 -PORT # 90 -BYTE # 189 -PORT # 90 -BYTE # 190 -PORT # 90 -BYTE # 191 -PORT # 90 -BYTE # 192 -PORT # 90 -BYTE # 193 -PORT # 90 -BYTE # 194 -PORT # 90 -BYTE # 195 -PORT # 90 -BYTE # 196 -PORT # 90 -BYTE # 197 -PORT # 90 -BYTE # 198 -PORT # 90 -BYTE # 199 -PORT # 90 -BYTE # 200 -PORT # 90 -BYTE # 201 -PORT # 90 -BYTE # 202 -PORT # 90 -BYTE # 203 -PORT # 90 -BYTE # 204 -PORT # 90 -BYTE # 205 -PORT # 90 -BYTE # 206 -PORT # 90 -BYTE # 207 -PORT # 90 -BYTE # 208 -PORT # 90 -BYTE # 209 -PORT # 90 -BYTE # 210 -PORT # 90 -BYTE # 211 -PORT # 90 -BYTE # 212 -PORT # 90 -BYTE # 213 -PORT # 90 -BYTE # 214 -PORT # 90 -BYTE # 215 -PORT # 90 -BYTE # 216 -PORT # 90 -BYTE # 217 -PORT # 90 -BYTE # 218 -PORT # 90 -BYTE # 219 -PORT # 90 -BYTE # 220 -PORT # 90 -BYTE # 221 -PORT # 90 -BYTE # 222 -PORT # 90 -BYTE # 223 -PORT # 90 -BYTE # 224 -PORT # 90 -BYTE # 225 -PORT # 90 -BYTE # 226 -PORT # 90 -BYTE # 227 -PORT # 90 -BYTE # 228 -PORT # 90 -BYTE # 229 -PORT # 90 -BYTE # 230 -PORT # 90 -BYTE # 231 -PORT # 90 -BYTE # 232 -PORT # 90 -BYTE # 233 -PORT # 90 -BYTE # 234 -PORT # 90 -BYTE # 235 -PORT # 90 -BYTE # 236 -PORT # 90 -BYTE # 237 -PORT # 90 -BYTE # 238 -PORT # 90 -BYTE # 239 -PORT # 90 -BYTE # 240 -PORT # 90 -BYTE # 241 -PORT # 90 -BYTE # 242 -PORT # 90 -BYTE # 243 -PORT # 90 -BYTE # 244 -PORT # 90 -BYTE # 245 -PORT # 90 -BYTE # 246 -PORT # 90 -BYTE # 247 -PORT # 90 -BYTE # 248 -PORT # 90 -BYTE # 249 -PORT # 90 -BYTE # 250 -PORT # 90 -BYTE # 251 -PORT # 90 -BYTE # 252 -PORT # 90 -BYTE # 253 -PORT # 90 -BYTE # 254 -PORT # 90 -BYTE # 255 -PORT # 91 -BYTE # 0 -PORT # 91 -BYTE # 1 -PORT # 91 -BYTE # 2 -PORT # 91 -BYTE # 3 -PORT # 91 -BYTE # 4 -PORT # 91 -BYTE # 5 -PORT # 91 -BYTE # 6 -PORT # 91 -BYTE # 7 -PORT # 91 -BYTE # 8 -PORT # 91 -BYTE # 9 -PORT # 91 -BYTE # 10 -PORT # 91 -BYTE # 11 -PORT # 91 -BYTE # 12 -PORT # 91 -BYTE # 13 -PORT # 91 -BYTE # 14 -PORT # 91 -BYTE # 15 -PORT # 91 -BYTE # 16 -PORT # 91 -BYTE # 17 -PORT # 91 -BYTE # 18 -PORT # 91 -BYTE # 19 -PORT # 91 -BYTE # 20 -PORT # 91 -BYTE # 21 -PORT # 91 -BYTE # 22 -PORT # 91 -BYTE # 23 -PORT # 91 -BYTE # 24 -PORT # 91 -BYTE # 25 -PORT # 91 -BYTE # 26 -PORT # 91 -BYTE # 27 -PORT # 91 -BYTE # 28 -PORT # 91 -BYTE # 29 -PORT # 91 -BYTE # 30 -PORT # 91 -BYTE # 31 -PORT # 91 -BYTE # 32 -PORT # 91 -BYTE # 33 -PORT # 91 -BYTE # 34 -PORT # 91 -BYTE # 35 -PORT # 91 -BYTE # 36 -PORT # 91 -BYTE # 37 -PORT # 91 -BYTE # 38 -PORT # 91 -BYTE # 39 -PORT # 91 -BYTE # 40 -PORT # 91 -BYTE # 41 -PORT # 91 -BYTE # 42 -PORT # 91 -BYTE # 43 -PORT # 91 -BYTE # 44 -PORT # 91 -BYTE # 45 -PORT # 91 -BYTE # 46 -PORT # 91 -BYTE # 47 -PORT # 91 -BYTE # 48 -PORT # 91 -BYTE # 49 -PORT # 91 -BYTE # 50 -PORT # 91 -BYTE # 51 -PORT # 91 -BYTE # 52 -PORT # 91 -BYTE # 53 -PORT # 91 -BYTE # 54 -PORT # 91 -BYTE # 55 -PORT # 91 -BYTE # 56 -PORT # 91 -BYTE # 57 -PORT # 91 -BYTE # 58 -PORT # 91 -BYTE # 59 -PORT # 91 -BYTE # 60 -PORT # 91 -BYTE # 61 -PORT # 91 -BYTE # 62 -PORT # 91 -BYTE # 63 -PORT # 91 -BYTE # 64 -PORT # 91 -BYTE # 65 -PORT # 91 -BYTE # 66 -PORT # 91 -BYTE # 67 -PORT # 91 -BYTE # 68 -PORT # 91 -BYTE # 69 -PORT # 91 -BYTE # 70 -PORT # 91 -BYTE # 71 -PORT # 91 -BYTE # 72 -PORT # 91 -BYTE # 73 -PORT # 91 -BYTE # 74 -PORT # 91 -BYTE # 75 -PORT # 91 -BYTE # 76 -PORT # 91 -BYTE # 77 -PORT # 91 -BYTE # 78 -PORT # 91 -BYTE # 79 -PORT # 91 -BYTE # 80 -PORT # 91 -BYTE # 81 -PORT # 91 -BYTE # 82 -PORT # 91 -BYTE # 83 -PORT # 91 -BYTE # 84 -PORT # 91 -BYTE # 85 -PORT # 91 -BYTE # 86 -PORT # 91 -BYTE # 87 -PORT # 91 -BYTE # 88 -PORT # 91 -BYTE # 89 -PORT # 91 -BYTE # 90 -PORT # 91 -BYTE # 91 -PORT # 91 -BYTE # 92 -PORT # 91 -BYTE # 93 -PORT # 91 -BYTE # 94 -PORT # 91 -BYTE # 95 -PORT # 91 -BYTE # 96 -PORT # 91 -BYTE # 97 -PORT # 91 -BYTE # 98 -PORT # 91 -BYTE # 99 -PORT # 91 -BYTE # 100 -PORT # 91 -BYTE # 101 -PORT # 91 -BYTE # 102 -PORT # 91 -BYTE # 103 -PORT # 91 -BYTE # 104 -PORT # 91 -BYTE # 105 -PORT # 91 -BYTE # 106 -PORT # 91 -BYTE # 107 -PORT # 91 -BYTE # 108 -PORT # 91 -BYTE # 109 -PORT # 91 -BYTE # 110 -PORT # 91 -BYTE # 111 -PORT # 91 -BYTE # 112 -PORT # 91 -BYTE # 113 -PORT # 91 -BYTE # 114 -PORT # 91 -BYTE # 115 -PORT # 91 -BYTE # 116 -PORT # 91 -BYTE # 117 -PORT # 91 -BYTE # 118 -PORT # 91 -BYTE # 119 -PORT # 91 -BYTE # 120 -PORT # 91 -BYTE # 121 -PORT # 91 -BYTE # 122 -PORT # 91 -BYTE # 123 -PORT # 91 -BYTE # 124 -PORT # 91 -BYTE # 125 -PORT # 91 -BYTE # 126 -PORT # 91 -BYTE # 127 -PORT # 91 -BYTE # 128 -PORT # 91 -BYTE # 129 -PORT # 91 -BYTE # 130 -PORT # 91 -BYTE # 131 -PORT # 91 -BYTE # 132 -PORT # 91 -BYTE # 133 -PORT # 91 -BYTE # 134 -PORT # 91 -BYTE # 135 -PORT # 91 -BYTE # 136 -PORT # 91 -BYTE # 137 -PORT # 91 -BYTE # 138 -PORT # 91 -BYTE # 139 -PORT # 91 -BYTE # 140 -PORT # 91 -BYTE # 141 -PORT # 91 -BYTE # 142 -PORT # 91 -BYTE # 143 -PORT # 91 -BYTE # 144 -PORT # 91 -BYTE # 145 -PORT # 91 -BYTE # 146 -PORT # 91 -BYTE # 147 -PORT # 91 -BYTE # 148 -PORT # 91 -BYTE # 149 -PORT # 91 -BYTE # 150 -PORT # 91 -BYTE # 151 -PORT # 91 -BYTE # 152 -PORT # 91 -BYTE # 153 -PORT # 91 -BYTE # 154 -PORT # 91 -BYTE # 155 -PORT # 91 -BYTE # 156 -PORT # 91 -BYTE # 157 -PORT # 91 -BYTE # 158 -PORT # 91 -BYTE # 159 -PORT # 91 -BYTE # 160 -PORT # 91 -BYTE # 161 -PORT # 91 -BYTE # 162 -PORT # 91 -BYTE # 163 -PORT # 91 -BYTE # 164 -PORT # 91 -BYTE # 165 -PORT # 91 -BYTE # 166 -PORT # 91 -BYTE # 167 -PORT # 91 -BYTE # 168 -PORT # 91 -BYTE # 169 -PORT # 91 -BYTE # 170 -PORT # 91 -BYTE # 171 -PORT # 91 -BYTE # 172 -PORT # 91 -BYTE # 173 -PORT # 91 -BYTE # 174 -PORT # 91 -BYTE # 175 -PORT # 91 -BYTE # 176 -PORT # 91 -BYTE # 177 -PORT # 91 -BYTE # 178 -PORT # 91 -BYTE # 179 -PORT # 91 -BYTE # 180 -PORT # 91 -BYTE # 181 -PORT # 91 -BYTE # 182 -PORT # 91 -BYTE # 183 -PORT # 91 -BYTE # 184 -PORT # 91 -BYTE # 185 -PORT # 91 -BYTE # 186 -PORT # 91 -BYTE # 187 -PORT # 91 -BYTE # 188 -PORT # 91 -BYTE # 189 -PORT # 91 -BYTE # 190 -PORT # 91 -BYTE # 191 -PORT # 91 -BYTE # 192 -PORT # 91 -BYTE # 193 -PORT # 91 -BYTE # 194 -PORT # 91 -BYTE # 195 -PORT # 91 -BYTE # 196 -PORT # 91 -BYTE # 197 -PORT # 91 -BYTE # 198 -PORT # 91 -BYTE # 199 -PORT # 91 -BYTE # 200 -PORT # 91 -BYTE # 201 -PORT # 91 -BYTE # 202 -PORT # 91 -BYTE # 203 -PORT # 91 -BYTE # 204 -PORT # 91 -BYTE # 205 -PORT # 91 -BYTE # 206 -PORT # 91 -BYTE # 207 -PORT # 91 -BYTE # 208 -PORT # 91 -BYTE # 209 -PORT # 91 -BYTE # 210 -PORT # 91 -BYTE # 211 -PORT # 91 -BYTE # 212 -PORT # 91 -BYTE # 213 -PORT # 91 -BYTE # 214 -PORT # 91 -BYTE # 215 -PORT # 91 -BYTE # 216 -PORT # 91 -BYTE # 217 -PORT # 91 -BYTE # 218 -PORT # 91 -BYTE # 219 -PORT # 91 -BYTE # 220 -PORT # 91 -BYTE # 221 -PORT # 91 -BYTE # 222 -PORT # 91 -BYTE # 223 -PORT # 91 -BYTE # 224 -PORT # 91 -BYTE # 225 -PORT # 91 -BYTE # 226 -PORT # 91 -BYTE # 227 -PORT # 91 -BYTE # 228 -PORT # 91 -BYTE # 229 -PORT # 91 -BYTE # 230 -PORT # 91 -BYTE # 231 -PORT # 91 -BYTE # 232 -PORT # 91 -BYTE # 233 -PORT # 91 -BYTE # 234 -PORT # 91 -BYTE # 235 -PORT # 91 -BYTE # 236 -PORT # 91 -BYTE # 237 -PORT # 91 -BYTE # 238 -PORT # 91 -BYTE # 239 -PORT # 91 -BYTE # 240 -PORT # 91 -BYTE # 241 -PORT # 91 -BYTE # 242 -PORT # 91 -BYTE # 243 -PORT # 91 -BYTE # 244 -PORT # 91 -BYTE # 245 -PORT # 91 -BYTE # 246 -PORT # 91 -BYTE # 247 -PORT # 91 -BYTE # 248 -PORT # 91 -BYTE # 249 -PORT # 91 -BYTE # 250 -PORT # 91 -BYTE # 251 -PORT # 91 -BYTE # 252 -PORT # 91 -BYTE # 253 -PORT # 91 -BYTE # 254 -PORT # 91 -BYTE # 255 -PORT # 92 -BYTE # 0 -PORT # 92 -BYTE # 1 -PORT # 92 -BYTE # 2 -PORT # 92 -BYTE # 3 -PORT # 92 -BYTE # 4 -PORT # 92 -BYTE # 5 -PORT # 92 -BYTE # 6 -PORT # 92 -BYTE # 7 -PORT # 92 -BYTE # 8 -PORT # 92 -BYTE # 9 -PORT # 92 -BYTE # 10 -PORT # 92 -BYTE # 11 -PORT # 92 -BYTE # 12 -PORT # 92 -BYTE # 13 -PORT # 92 -BYTE # 14 -PORT # 92 -BYTE # 15 -PORT # 92 -BYTE # 16 -PORT # 92 -BYTE # 17 -PORT # 92 -BYTE # 18 -PORT # 92 -BYTE # 19 -PORT # 92 -BYTE # 20 -PORT # 92 -BYTE # 21 -PORT # 92 -BYTE # 22 -PORT # 92 -BYTE # 23 -PORT # 92 -BYTE # 24 -PORT # 92 -BYTE # 25 -PORT # 92 -BYTE # 26 -PORT # 92 -BYTE # 27 -PORT # 92 -BYTE # 28 -PORT # 92 -BYTE # 29 -PORT # 92 -BYTE # 30 -PORT # 92 -BYTE # 31 -PORT # 92 -BYTE # 32 -PORT # 92 -BYTE # 33 -PORT # 92 -BYTE # 34 -PORT # 92 -BYTE # 35 -PORT # 92 -BYTE # 36 -PORT # 92 -BYTE # 37 -PORT # 92 -BYTE # 38 -PORT # 92 -BYTE # 39 -PORT # 92 -BYTE # 40 -PORT # 92 -BYTE # 41 -PORT # 92 -BYTE # 42 -PORT # 92 -BYTE # 43 -PORT # 92 -BYTE # 44 -PORT # 92 -BYTE # 45 -PORT # 92 -BYTE # 46 -PORT # 92 -BYTE # 47 -PORT # 92 -BYTE # 48 -PORT # 92 -BYTE # 49 -PORT # 92 -BYTE # 50 -PORT # 92 -BYTE # 51 -PORT # 92 -BYTE # 52 -PORT # 92 -BYTE # 53 -PORT # 92 -BYTE # 54 -PORT # 92 -BYTE # 55 -PORT # 92 -BYTE # 56 -PORT # 92 -BYTE # 57 -PORT # 92 -BYTE # 58 -PORT # 92 -BYTE # 59 -PORT # 92 -BYTE # 60 -PORT # 92 -BYTE # 61 -PORT # 92 -BYTE # 62 -PORT # 92 -BYTE # 63 -PORT # 92 -BYTE # 64 -PORT # 92 -BYTE # 65 -PORT # 92 -BYTE # 66 -PORT # 92 -BYTE # 67 -PORT # 92 -BYTE # 68 -PORT # 92 -BYTE # 69 -PORT # 92 -BYTE # 70 -PORT # 92 -BYTE # 71 -PORT # 92 -BYTE # 72 -PORT # 92 -BYTE # 73 -PORT # 92 -BYTE # 74 -PORT # 92 -BYTE # 75 -PORT # 92 -BYTE # 76 -PORT # 92 -BYTE # 77 -PORT # 92 -BYTE # 78 -PORT # 92 -BYTE # 79 -PORT # 92 -BYTE # 80 -PORT # 92 -BYTE # 81 -PORT # 92 -BYTE # 82 -PORT # 92 -BYTE # 83 -PORT # 92 -BYTE # 84 -PORT # 92 -BYTE # 85 -PORT # 92 -BYTE # 86 -PORT # 92 -BYTE # 87 -PORT # 92 -BYTE # 88 -PORT # 92 -BYTE # 89 -PORT # 92 -BYTE # 90 -PORT # 92 -BYTE # 91 -PORT # 92 -BYTE # 92 -PORT # 92 -BYTE # 93 -PORT # 92 -BYTE # 94 -PORT # 92 -BYTE # 95 -PORT # 92 -BYTE # 96 -PORT # 92 -BYTE # 97 -PORT # 92 -BYTE # 98 -PORT # 92 -BYTE # 99 -PORT # 92 -BYTE # 100 -PORT # 92 -BYTE # 101 -PORT # 92 -BYTE # 102 -PORT # 92 -BYTE # 103 -PORT # 92 -BYTE # 104 -PORT # 92 -BYTE # 105 -PORT # 92 -BYTE # 106 -PORT # 92 -BYTE # 107 -PORT # 92 -BYTE # 108 -PORT # 92 -BYTE # 109 -PORT # 92 -BYTE # 110 -PORT # 92 -BYTE # 111 -PORT # 92 -BYTE # 112 -PORT # 92 -BYTE # 113 -PORT # 92 -BYTE # 114 -PORT # 92 -BYTE # 115 -PORT # 92 -BYTE # 116 -PORT # 92 -BYTE # 117 -PORT # 92 -BYTE # 118 -PORT # 92 -BYTE # 119 -PORT # 92 -BYTE # 120 -PORT # 92 -BYTE # 121 -PORT # 92 -BYTE # 122 -PORT # 92 -BYTE # 123 -PORT # 92 -BYTE # 124 -PORT # 92 -BYTE # 125 -PORT # 92 -BYTE # 126 -PORT # 92 -BYTE # 127 -PORT # 92 -BYTE # 128 -PORT # 92 -BYTE # 129 -PORT # 92 -BYTE # 130 -PORT # 92 -BYTE # 131 -PORT # 92 -BYTE # 132 -PORT # 92 -BYTE # 133 -PORT # 92 -BYTE # 134 -PORT # 92 -BYTE # 135 -PORT # 92 -BYTE # 136 -PORT # 92 -BYTE # 137 -PORT # 92 -BYTE # 138 -PORT # 92 -BYTE # 139 -PORT # 92 -BYTE # 140 -PORT # 92 -BYTE # 141 -PORT # 92 -BYTE # 142 -PORT # 92 -BYTE # 143 -PORT # 92 -BYTE # 144 -PORT # 92 -BYTE # 145 -PORT # 92 -BYTE # 146 -PORT # 92 -BYTE # 147 -PORT # 92 -BYTE # 148 -PORT # 92 -BYTE # 149 -PORT # 92 -BYTE # 150 -PORT # 92 -BYTE # 151 -PORT # 92 -BYTE # 152 -PORT # 92 -BYTE # 153 -PORT # 92 -BYTE # 154 -PORT # 92 -BYTE # 155 -PORT # 92 -BYTE # 156 -PORT # 92 -BYTE # 157 -PORT # 92 -BYTE # 158 -PORT # 92 -BYTE # 159 -PORT # 92 -BYTE # 160 -PORT # 92 -BYTE # 161 -PORT # 92 -BYTE # 162 -PORT # 92 -BYTE # 163 -PORT # 92 -BYTE # 164 -PORT # 92 -BYTE # 165 -PORT # 92 -BYTE # 166 -PORT # 92 -BYTE # 167 -PORT # 92 -BYTE # 168 -PORT # 92 -BYTE # 169 -PORT # 92 -BYTE # 170 -PORT # 92 -BYTE # 171 -PORT # 92 -BYTE # 172 -PORT # 92 -BYTE # 173 -PORT # 92 -BYTE # 174 -PORT # 92 -BYTE # 175 -PORT # 92 -BYTE # 176 -PORT # 92 -BYTE # 177 -PORT # 92 -BYTE # 178 -PORT # 92 -BYTE # 179 -PORT # 92 -BYTE # 180 -PORT # 92 -BYTE # 181 -PORT # 92 -BYTE # 182 -PORT # 92 -BYTE # 183 -PORT # 92 -BYTE # 184 -PORT # 92 -BYTE # 185 -PORT # 92 -BYTE # 186 -PORT # 92 -BYTE # 187 -PORT # 92 -BYTE # 188 -PORT # 92 -BYTE # 189 -PORT # 92 -BYTE # 190 -PORT # 92 -BYTE # 191 -PORT # 92 -BYTE # 192 -PORT # 92 -BYTE # 193 -PORT # 92 -BYTE # 194 -PORT # 92 -BYTE # 195 -PORT # 92 -BYTE # 196 -PORT # 92 -BYTE # 197 -PORT # 92 -BYTE # 198 -PORT # 92 -BYTE # 199 -PORT # 92 -BYTE # 200 -PORT # 92 -BYTE # 201 -PORT # 92 -BYTE # 202 -PORT # 92 -BYTE # 203 -PORT # 92 -BYTE # 204 -PORT # 92 -BYTE # 205 -PORT # 92 -BYTE # 206 -PORT # 92 -BYTE # 207 -PORT # 92 -BYTE # 208 -PORT # 92 -BYTE # 209 -PORT # 92 -BYTE # 210 -PORT # 92 -BYTE # 211 -PORT # 92 -BYTE # 212 -PORT # 92 -BYTE # 213 -PORT # 92 -BYTE # 214 -PORT # 92 -BYTE # 215 -PORT # 92 -BYTE # 216 -PORT # 92 -BYTE # 217 -PORT # 92 -BYTE # 218 -PORT # 92 -BYTE # 219 -PORT # 92 -BYTE # 220 -PORT # 92 -BYTE # 221 -PORT # 92 -BYTE # 222 -PORT # 92 -BYTE # 223 -PORT # 92 -BYTE # 224 -PORT # 92 -BYTE # 225 -PORT # 92 -BYTE # 226 -PORT # 92 -BYTE # 227 -PORT # 92 -BYTE # 228 -PORT # 92 -BYTE # 229 -PORT # 92 -BYTE # 230 -PORT # 92 -BYTE # 231 -PORT # 92 -BYTE # 232 -PORT # 92 -BYTE # 233 -PORT # 92 -BYTE # 234 -PORT # 92 -BYTE # 235 -PORT # 92 -BYTE # 236 -PORT # 92 -BYTE # 237 -PORT # 92 -BYTE # 238 -PORT # 92 -BYTE # 239 -PORT # 92 -BYTE # 240 -PORT # 92 -BYTE # 241 -PORT # 92 -BYTE # 242 -PORT # 92 -BYTE # 243 -PORT # 92 -BYTE # 244 -PORT # 92 -BYTE # 245 -PORT # 92 -BYTE # 246 -PORT # 92 -BYTE # 247 -PORT # 92 -BYTE # 248 -PORT # 92 -BYTE # 249 -PORT # 92 -BYTE # 250 -PORT # 92 -BYTE # 251 -PORT # 92 -BYTE # 252 -PORT # 92 -BYTE # 253 -PORT # 92 -BYTE # 254 -PORT # 92 -BYTE # 255 -PORT # 93 -BYTE # 0 -PORT # 93 -BYTE # 1 -PORT # 93 -BYTE # 2 -PORT # 93 -BYTE # 3 -PORT # 93 -BYTE # 4 -PORT # 93 -BYTE # 5 -PORT # 93 -BYTE # 6 -PORT # 93 -BYTE # 7 -PORT # 93 -BYTE # 8 -PORT # 93 -BYTE # 9 -PORT # 93 -BYTE # 10 -PORT # 93 -BYTE # 11 -PORT # 93 -BYTE # 12 -PORT # 93 -BYTE # 13 -PORT # 93 -BYTE # 14 -PORT # 93 -BYTE # 15 -PORT # 93 -BYTE # 16 -PORT # 93 -BYTE # 17 -PORT # 93 -BYTE # 18 -PORT # 93 -BYTE # 19 -PORT # 93 -BYTE # 20 -PORT # 93 -BYTE # 21 -PORT # 93 -BYTE # 22 -PORT # 93 -BYTE # 23 -PORT # 93 -BYTE # 24 -PORT # 93 -BYTE # 25 -PORT # 93 -BYTE # 26 -PORT # 93 -BYTE # 27 -PORT # 93 -BYTE # 28 -PORT # 93 -BYTE # 29 -PORT # 93 -BYTE # 30 -PORT # 93 -BYTE # 31 -PORT # 93 -BYTE # 32 -PORT # 93 -BYTE # 33 -PORT # 93 -BYTE # 34 -PORT # 93 -BYTE # 35 -PORT # 93 -BYTE # 36 -PORT # 93 -BYTE # 37 -PORT # 93 -BYTE # 38 -PORT # 93 -BYTE # 39 -PORT # 93 -BYTE # 40 -PORT # 93 -BYTE # 41 -PORT # 93 -BYTE # 42 -PORT # 93 -BYTE # 43 -PORT # 93 -BYTE # 44 -PORT # 93 -BYTE # 45 -PORT # 93 -BYTE # 46 -PORT # 93 -BYTE # 47 -PORT # 93 -BYTE # 48 -PORT # 93 -BYTE # 49 -PORT # 93 -BYTE # 50 -PORT # 93 -BYTE # 51 -PORT # 93 -BYTE # 52 -PORT # 93 -BYTE # 53 -PORT # 93 -BYTE # 54 -PORT # 93 -BYTE # 55 -PORT # 93 -BYTE # 56 -PORT # 93 -BYTE # 57 -PORT # 93 -BYTE # 58 -PORT # 93 -BYTE # 59 -PORT # 93 -BYTE # 60 -PORT # 93 -BYTE # 61 -PORT # 93 -BYTE # 62 -PORT # 93 -BYTE # 63 -PORT # 93 -BYTE # 64 -PORT # 93 -BYTE # 65 -PORT # 93 -BYTE # 66 -PORT # 93 -BYTE # 67 -PORT # 93 -BYTE # 68 -PORT # 93 -BYTE # 69 -PORT # 93 -BYTE # 70 -PORT # 93 -BYTE # 71 -PORT # 93 -BYTE # 72 -PORT # 93 -BYTE # 73 -PORT # 93 -BYTE # 74 -PORT # 93 -BYTE # 75 -PORT # 93 -BYTE # 76 -PORT # 93 -BYTE # 77 -PORT # 93 -BYTE # 78 -PORT # 93 -BYTE # 79 -PORT # 93 -BYTE # 80 -PORT # 93 -BYTE # 81 -PORT # 93 -BYTE # 82 -PORT # 93 -BYTE # 83 -PORT # 93 -BYTE # 84 -PORT # 93 -BYTE # 85 -PORT # 93 -BYTE # 86 -PORT # 93 -BYTE # 87 -PORT # 93 -BYTE # 88 -PORT # 93 -BYTE # 89 -PORT # 93 -BYTE # 90 -PORT # 93 -BYTE # 91 -PORT # 93 -BYTE # 92 -PORT # 93 -BYTE # 93 -PORT # 93 -BYTE # 94 -PORT # 93 -BYTE # 95 -PORT # 93 -BYTE # 96 -PORT # 93 -BYTE # 97 -PORT # 93 -BYTE # 98 -PORT # 93 -BYTE # 99 -PORT # 93 -BYTE # 100 -PORT # 93 -BYTE # 101 -PORT # 93 -BYTE # 102 -PORT # 93 -BYTE # 103 -PORT # 93 -BYTE # 104 -PORT # 93 -BYTE # 105 -PORT # 93 -BYTE # 106 -PORT # 93 -BYTE # 107 -PORT # 93 -BYTE # 108 -PORT # 93 -BYTE # 109 -PORT # 93 -BYTE # 110 -PORT # 93 -BYTE # 111 -PORT # 93 -BYTE # 112 -PORT # 93 -BYTE # 113 -PORT # 93 -BYTE # 114 -PORT # 93 -BYTE # 115 -PORT # 93 -BYTE # 116 -PORT # 93 -BYTE # 117 -PORT # 93 -BYTE # 118 -PORT # 93 -BYTE # 119 -PORT # 93 -BYTE # 120 -PORT # 93 -BYTE # 121 -PORT # 93 -BYTE # 122 -PORT # 93 -BYTE # 123 -PORT # 93 -BYTE # 124 -PORT # 93 -BYTE # 125 -PORT # 93 -BYTE # 126 -PORT # 93 -BYTE # 127 -PORT # 93 -BYTE # 128 -PORT # 93 -BYTE # 129 -PORT # 93 -BYTE # 130 -PORT # 93 -BYTE # 131 -PORT # 93 -BYTE # 132 -PORT # 93 -BYTE # 133 -PORT # 93 -BYTE # 134 -PORT # 93 -BYTE # 135 -PORT # 93 -BYTE # 136 -PORT # 93 -BYTE # 137 -PORT # 93 -BYTE # 138 -PORT # 93 -BYTE # 139 -PORT # 93 -BYTE # 140 -PORT # 93 -BYTE # 141 -PORT # 93 -BYTE # 142 -PORT # 93 -BYTE # 143 -PORT # 93 -BYTE # 144 -PORT # 93 -BYTE # 145 -PORT # 93 -BYTE # 146 -PORT # 93 -BYTE # 147 -PORT # 93 -BYTE # 148 -PORT # 93 -BYTE # 149 -PORT # 93 -BYTE # 150 -PORT # 93 -BYTE # 151 -PORT # 93 -BYTE # 152 -PORT # 93 -BYTE # 153 -PORT # 93 -BYTE # 154 -PORT # 93 -BYTE # 155 -PORT # 93 -BYTE # 156 -PORT # 93 -BYTE # 157 -PORT # 93 -BYTE # 158 -PORT # 93 -BYTE # 159 -PORT # 93 -BYTE # 160 -PORT # 93 -BYTE # 161 -PORT # 93 -BYTE # 162 -PORT # 93 -BYTE # 163 -PORT # 93 -BYTE # 164 -PORT # 93 -BYTE # 165 -PORT # 93 -BYTE # 166 -PORT # 93 -BYTE # 167 -PORT # 93 -BYTE # 168 -PORT # 93 -BYTE # 169 -PORT # 93 -BYTE # 170 -PORT # 93 -BYTE # 171 -PORT # 93 -BYTE # 172 -PORT # 93 -BYTE # 173 -PORT # 93 -BYTE # 174 -PORT # 93 -BYTE # 175 -PORT # 93 -BYTE # 176 -PORT # 93 -BYTE # 177 -PORT # 93 -BYTE # 178 -PORT # 93 -BYTE # 179 -PORT # 93 -BYTE # 180 -PORT # 93 -BYTE # 181 -PORT # 93 -BYTE # 182 -PORT # 93 -BYTE # 183 -PORT # 93 -BYTE # 184 -PORT # 93 -BYTE # 185 -PORT # 93 -BYTE # 186 -PORT # 93 -BYTE # 187 -PORT # 93 -BYTE # 188 -PORT # 93 -BYTE # 189 -PORT # 93 -BYTE # 190 -PORT # 93 -BYTE # 191 -PORT # 93 -BYTE # 192 -PORT # 93 -BYTE # 193 -PORT # 93 -BYTE # 194 -PORT # 93 -BYTE # 195 -PORT # 93 -BYTE # 196 -PORT # 93 -BYTE # 197 -PORT # 93 -BYTE # 198 -PORT # 93 -BYTE # 199 -PORT # 93 -BYTE # 200 -PORT # 93 -BYTE # 201 -PORT # 93 -BYTE # 202 -PORT # 93 -BYTE # 203 -PORT # 93 -BYTE # 204 -PORT # 93 -BYTE # 205 -PORT # 93 -BYTE # 206 -PORT # 93 -BYTE # 207 -PORT # 93 -BYTE # 208 -PORT # 93 -BYTE # 209 -PORT # 93 -BYTE # 210 -PORT # 93 -BYTE # 211 -PORT # 93 -BYTE # 212 -PORT # 93 -BYTE # 213 -PORT # 93 -BYTE # 214 -PORT # 93 -BYTE # 215 -PORT # 93 -BYTE # 216 -PORT # 93 -BYTE # 217 -PORT # 93 -BYTE # 218 -PORT # 93 -BYTE # 219 -PORT # 93 -BYTE # 220 -PORT # 93 -BYTE # 221 -PORT # 93 -BYTE # 222 -PORT # 93 -BYTE # 223 -PORT # 93 -BYTE # 224 -PORT # 93 -BYTE # 225 -PORT # 93 -BYTE # 226 -PORT # 93 -BYTE # 227 -PORT # 93 -BYTE # 228 -PORT # 93 -BYTE # 229 -PORT # 93 -BYTE # 230 -PORT # 93 -BYTE # 231 -PORT # 93 -BYTE # 232 -PORT # 93 -BYTE # 233 -PORT # 93 -BYTE # 234 -PORT # 93 -BYTE # 235 -PORT # 93 -BYTE # 236 -PORT # 93 -BYTE # 237 -PORT # 93 -BYTE # 238 -PORT # 93 -BYTE # 239 -PORT # 93 -BYTE # 240 -PORT # 93 -BYTE # 241 -PORT # 93 -BYTE # 242 -PORT # 93 -BYTE # 243 -PORT # 93 -BYTE # 244 -PORT # 93 -BYTE # 245 -PORT # 93 -BYTE # 246 -PORT # 93 -BYTE # 247 -PORT # 93 -BYTE # 248 -PORT # 93 -BYTE # 249 -PORT # 93 -BYTE # 250 -PORT # 93 -BYTE # 251 -PORT # 93 -BYTE # 252 -PORT # 93 -BYTE # 253 -PORT # 93 -BYTE # 254 -PORT # 93 -BYTE # 255 -PORT # 94 -BYTE # 0 -PORT # 94 -BYTE # 1 -PORT # 94 -BYTE # 2 -PORT # 94 -BYTE # 3 -PORT # 94 -BYTE # 4 -PORT # 94 -BYTE # 5 -PORT # 94 -BYTE # 6 -PORT # 94 -BYTE # 7 -PORT # 94 -BYTE # 8 -PORT # 94 -BYTE # 9 -PORT # 94 -BYTE # 10 -PORT # 94 -BYTE # 11 -PORT # 94 -BYTE # 12 -PORT # 94 -BYTE # 13 -PORT # 94 -BYTE # 14 -PORT # 94 -BYTE # 15 -PORT # 94 -BYTE # 16 -PORT # 94 -BYTE # 17 -PORT # 94 -BYTE # 18 -PORT # 94 -BYTE # 19 -PORT # 94 -BYTE # 20 -PORT # 94 -BYTE # 21 -PORT # 94 -BYTE # 22 -PORT # 94 -BYTE # 23 -PORT # 94 -BYTE # 24 -PORT # 94 -BYTE # 25 -PORT # 94 -BYTE # 26 -PORT # 94 -BYTE # 27 -PORT # 94 -BYTE # 28 -PORT # 94 -BYTE # 29 -PORT # 94 -BYTE # 30 -PORT # 94 -BYTE # 31 -PORT # 94 -BYTE # 32 -PORT # 94 -BYTE # 33 -PORT # 94 -BYTE # 34 -PORT # 94 -BYTE # 35 -PORT # 94 -BYTE # 36 -PORT # 94 -BYTE # 37 -PORT # 94 -BYTE # 38 -PORT # 94 -BYTE # 39 -PORT # 94 -BYTE # 40 -PORT # 94 -BYTE # 41 -PORT # 94 -BYTE # 42 -PORT # 94 -BYTE # 43 -PORT # 94 -BYTE # 44 -PORT # 94 -BYTE # 45 -PORT # 94 -BYTE # 46 -PORT # 94 -BYTE # 47 -PORT # 94 -BYTE # 48 -PORT # 94 -BYTE # 49 -PORT # 94 -BYTE # 50 -PORT # 94 -BYTE # 51 -PORT # 94 -BYTE # 52 -PORT # 94 -BYTE # 53 -PORT # 94 -BYTE # 54 -PORT # 94 -BYTE # 55 -PORT # 94 -BYTE # 56 -PORT # 94 -BYTE # 57 -PORT # 94 -BYTE # 58 -PORT # 94 -BYTE # 59 -PORT # 94 -BYTE # 60 -PORT # 94 -BYTE # 61 -PORT # 94 -BYTE # 62 -PORT # 94 -BYTE # 63 -PORT # 94 -BYTE # 64 -PORT # 94 -BYTE # 65 -PORT # 94 -BYTE # 66 -PORT # 94 -BYTE # 67 -PORT # 94 -BYTE # 68 -PORT # 94 -BYTE # 69 -PORT # 94 -BYTE # 70 -PORT # 94 -BYTE # 71 -PORT # 94 -BYTE # 72 -PORT # 94 -BYTE # 73 -PORT # 94 -BYTE # 74 -PORT # 94 -BYTE # 75 -PORT # 94 -BYTE # 76 -PORT # 94 -BYTE # 77 -PORT # 94 -BYTE # 78 -PORT # 94 -BYTE # 79 -PORT # 94 -BYTE # 80 -PORT # 94 -BYTE # 81 -PORT # 94 -BYTE # 82 -PORT # 94 -BYTE # 83 -PORT # 94 -BYTE # 84 -PORT # 94 -BYTE # 85 -PORT # 94 -BYTE # 86 -PORT # 94 -BYTE # 87 -PORT # 94 -BYTE # 88 -PORT # 94 -BYTE # 89 -PORT # 94 -BYTE # 90 -PORT # 94 -BYTE # 91 -PORT # 94 -BYTE # 92 -PORT # 94 -BYTE # 93 -PORT # 94 -BYTE # 94 -PORT # 94 -BYTE # 95 -PORT # 94 -BYTE # 96 -PORT # 94 -BYTE # 97 -PORT # 94 -BYTE # 98 -PORT # 94 -BYTE # 99 -PORT # 94 -BYTE # 100 -PORT # 94 -BYTE # 101 -PORT # 94 -BYTE # 102 -PORT # 94 -BYTE # 103 -PORT # 94 -BYTE # 104 -PORT # 94 -BYTE # 105 -PORT # 94 -BYTE # 106 -PORT # 94 -BYTE # 107 -PORT # 94 -BYTE # 108 -PORT # 94 -BYTE # 109 -PORT # 94 -BYTE # 110 -PORT # 94 -BYTE # 111 -PORT # 94 -BYTE # 112 -PORT # 94 -BYTE # 113 -PORT # 94 -BYTE # 114 -PORT # 94 -BYTE # 115 -PORT # 94 -BYTE # 116 -PORT # 94 -BYTE # 117 -PORT # 94 -BYTE # 118 -PORT # 94 -BYTE # 119 -PORT # 94 -BYTE # 120 -PORT # 94 -BYTE # 121 -PORT # 94 -BYTE # 122 -PORT # 94 -BYTE # 123 -PORT # 94 -BYTE # 124 -PORT # 94 -BYTE # 125 -PORT # 94 -BYTE # 126 -PORT # 94 -BYTE # 127 -PORT # 94 -BYTE # 128 -PORT # 94 -BYTE # 129 -PORT # 94 -BYTE # 130 -PORT # 94 -BYTE # 131 -PORT # 94 -BYTE # 132 -PORT # 94 -BYTE # 133 -PORT # 94 -BYTE # 134 -PORT # 94 -BYTE # 135 -PORT # 94 -BYTE # 136 -PORT # 94 -BYTE # 137 -PORT # 94 -BYTE # 138 -PORT # 94 -BYTE # 139 -PORT # 94 -BYTE # 140 -PORT # 94 -BYTE # 141 -PORT # 94 -BYTE # 142 -PORT # 94 -BYTE # 143 -PORT # 94 -BYTE # 144 -PORT # 94 -BYTE # 145 -PORT # 94 -BYTE # 146 -PORT # 94 -BYTE # 147 -PORT # 94 -BYTE # 148 -PORT # 94 -BYTE # 149 -PORT # 94 -BYTE # 150 -PORT # 94 -BYTE # 151 -PORT # 94 -BYTE # 152 -PORT # 94 -BYTE # 153 -PORT # 94 -BYTE # 154 -PORT # 94 -BYTE # 155 -PORT # 94 -BYTE # 156 -PORT # 94 -BYTE # 157 -PORT # 94 -BYTE # 158 -PORT # 94 -BYTE # 159 -PORT # 94 -BYTE # 160 -PORT # 94 -BYTE # 161 -PORT # 94 -BYTE # 162 -PORT # 94 -BYTE # 163 -PORT # 94 -BYTE # 164 -PORT # 94 -BYTE # 165 -PORT # 94 -BYTE # 166 -PORT # 94 -BYTE # 167 -PORT # 94 -BYTE # 168 -PORT # 94 -BYTE # 169 -PORT # 94 -BYTE # 170 -PORT # 94 -BYTE # 171 -PORT # 94 -BYTE # 172 -PORT # 94 -BYTE # 173 -PORT # 94 -BYTE # 174 -PORT # 94 -BYTE # 175 -PORT # 94 -BYTE # 176 -PORT # 94 -BYTE # 177 -PORT # 94 -BYTE # 178 -PORT # 94 -BYTE # 179 -PORT # 94 -BYTE # 180 -PORT # 94 -BYTE # 181 -PORT # 94 -BYTE # 182 -PORT # 94 -BYTE # 183 -PORT # 94 -BYTE # 184 -PORT # 94 -BYTE # 185 -PORT # 94 -BYTE # 186 -PORT # 94 -BYTE # 187 -PORT # 94 -BYTE # 188 -PORT # 94 -BYTE # 189 -PORT # 94 -BYTE # 190 -PORT # 94 -BYTE # 191 -PORT # 94 -BYTE # 192 -PORT # 94 -BYTE # 193 -PORT # 94 -BYTE # 194 -PORT # 94 -BYTE # 195 -PORT # 94 -BYTE # 196 -PORT # 94 -BYTE # 197 -PORT # 94 -BYTE # 198 -PORT # 94 -BYTE # 199 -PORT # 94 -BYTE # 200 -PORT # 94 -BYTE # 201 -PORT # 94 -BYTE # 202 -PORT # 94 -BYTE # 203 -PORT # 94 -BYTE # 204 -PORT # 94 -BYTE # 205 -PORT # 94 -BYTE # 206 -PORT # 94 -BYTE # 207 -PORT # 94 -BYTE # 208 -PORT # 94 -BYTE # 209 -PORT # 94 -BYTE # 210 -PORT # 94 -BYTE # 211 -PORT # 94 -BYTE # 212 -PORT # 94 -BYTE # 213 -PORT # 94 -BYTE # 214 -PORT # 94 -BYTE # 215 -PORT # 94 -BYTE # 216 -PORT # 94 -BYTE # 217 -PORT # 94 -BYTE # 218 -PORT # 94 -BYTE # 219 -PORT # 94 -BYTE # 220 -PORT # 94 -BYTE # 221 -PORT # 94 -BYTE # 222 -PORT # 94 -BYTE # 223 -PORT # 94 -BYTE # 224 -PORT # 94 -BYTE # 225 -PORT # 94 -BYTE # 226 -PORT # 94 -BYTE # 227 -PORT # 94 -BYTE # 228 -PORT # 94 -BYTE # 229 -PORT # 94 -BYTE # 230 -PORT # 94 -BYTE # 231 -PORT # 94 -BYTE # 232 -PORT # 94 -BYTE # 233 -PORT # 94 -BYTE # 234 -PORT # 94 -BYTE # 235 -PORT # 94 -BYTE # 236 -PORT # 94 -BYTE # 237 -PORT # 94 -BYTE # 238 -PORT # 94 -BYTE # 239 -PORT # 94 -BYTE # 240 -PORT # 94 -BYTE # 241 -PORT # 94 -BYTE # 242 -PORT # 94 -BYTE # 243 -PORT # 94 -BYTE # 244 -PORT # 94 -BYTE # 245 -PORT # 94 -BYTE # 246 -PORT # 94 -BYTE # 247 -PORT # 94 -BYTE # 248 -PORT # 94 -BYTE # 249 -PORT # 94 -BYTE # 250 -PORT # 94 -BYTE # 251 -PORT # 94 -BYTE # 252 -PORT # 94 -BYTE # 253 -PORT # 94 -BYTE # 254 -PORT # 94 -BYTE # 255 -PORT # 95 -BYTE # 0 -PORT # 95 -BYTE # 1 -PORT # 95 -BYTE # 2 -PORT # 95 -BYTE # 3 -PORT # 95 -BYTE # 4 -PORT # 95 -BYTE # 5 -PORT # 95 -BYTE # 6 -PORT # 95 -BYTE # 7 -PORT # 95 -BYTE # 8 -PORT # 95 -BYTE # 9 -PORT # 95 -BYTE # 10 -PORT # 95 -BYTE # 11 -PORT # 95 -BYTE # 12 -PORT # 95 -BYTE # 13 -PORT # 95 -BYTE # 14 -PORT # 95 -BYTE # 15 -PORT # 95 -BYTE # 16 -PORT # 95 -BYTE # 17 -PORT # 95 -BYTE # 18 -PORT # 95 -BYTE # 19 -PORT # 95 -BYTE # 20 -PORT # 95 -BYTE # 21 -PORT # 95 -BYTE # 22 -PORT # 95 -BYTE # 23 -PORT # 95 -BYTE # 24 -PORT # 95 -BYTE # 25 -PORT # 95 -BYTE # 26 -PORT # 95 -BYTE # 27 -PORT # 95 -BYTE # 28 -PORT # 95 -BYTE # 29 -PORT # 95 -BYTE # 30 -PORT # 95 -BYTE # 31 -PORT # 95 -BYTE # 32 -PORT # 95 -BYTE # 33 -PORT # 95 -BYTE # 34 -PORT # 95 -BYTE # 35 -PORT # 95 -BYTE # 36 -PORT # 95 -BYTE # 37 -PORT # 95 -BYTE # 38 -PORT # 95 -BYTE # 39 -PORT # 95 -BYTE # 40 -PORT # 95 -BYTE # 41 -PORT # 95 -BYTE # 42 -PORT # 95 -BYTE # 43 -PORT # 95 -BYTE # 44 -PORT # 95 -BYTE # 45 -PORT # 95 -BYTE # 46 -PORT # 95 -BYTE # 47 -PORT # 95 -BYTE # 48 -PORT # 95 -BYTE # 49 -PORT # 95 -BYTE # 50 -PORT # 95 -BYTE # 51 -PORT # 95 -BYTE # 52 -PORT # 95 -BYTE # 53 -PORT # 95 -BYTE # 54 -PORT # 95 -BYTE # 55 -PORT # 95 -BYTE # 56 -PORT # 95 -BYTE # 57 -PORT # 95 -BYTE # 58 -PORT # 95 -BYTE # 59 -PORT # 95 -BYTE # 60 -PORT # 95 -BYTE # 61 -PORT # 95 -BYTE # 62 -PORT # 95 -BYTE # 63 -PORT # 95 -BYTE # 64 -PORT # 95 -BYTE # 65 -PORT # 95 -BYTE # 66 -PORT # 95 -BYTE # 67 -PORT # 95 -BYTE # 68 -PORT # 95 -BYTE # 69 -PORT # 95 -BYTE # 70 -PORT # 95 -BYTE # 71 -PORT # 95 -BYTE # 72 -PORT # 95 -BYTE # 73 -PORT # 95 -BYTE # 74 -PORT # 95 -BYTE # 75 -PORT # 95 -BYTE # 76 -PORT # 95 -BYTE # 77 -PORT # 95 -BYTE # 78 -PORT # 95 -BYTE # 79 -PORT # 95 -BYTE # 80 -PORT # 95 -BYTE # 81 -PORT # 95 -BYTE # 82 -PORT # 95 -BYTE # 83 -PORT # 95 -BYTE # 84 -PORT # 95 -BYTE # 85 -PORT # 95 -BYTE # 86 -PORT # 95 -BYTE # 87 -PORT # 95 -BYTE # 88 -PORT # 95 -BYTE # 89 -PORT # 95 -BYTE # 90 -PORT # 95 -BYTE # 91 -PORT # 95 -BYTE # 92 -PORT # 95 -BYTE # 93 -PORT # 95 -BYTE # 94 -PORT # 95 -BYTE # 95 -PORT # 95 -BYTE # 96 -PORT # 95 -BYTE # 97 -PORT # 95 -BYTE # 98 -PORT # 95 -BYTE # 99 -PORT # 95 -BYTE # 100 -PORT # 95 -BYTE # 101 -PORT # 95 -BYTE # 102 -PORT # 95 -BYTE # 103 -PORT # 95 -BYTE # 104 -PORT # 95 -BYTE # 105 -PORT # 95 -BYTE # 106 -PORT # 95 -BYTE # 107 -PORT # 95 -BYTE # 108 -PORT # 95 -BYTE # 109 -PORT # 95 -BYTE # 110 -PORT # 95 -BYTE # 111 -PORT # 95 -BYTE # 112 -PORT # 95 -BYTE # 113 -PORT # 95 -BYTE # 114 -PORT # 95 -BYTE # 115 -PORT # 95 -BYTE # 116 -PORT # 95 -BYTE # 117 -PORT # 95 -BYTE # 118 -PORT # 95 -BYTE # 119 -PORT # 95 -BYTE # 120 -PORT # 95 -BYTE # 121 -PORT # 95 -BYTE # 122 -PORT # 95 -BYTE # 123 -PORT # 95 -BYTE # 124 -PORT # 95 -BYTE # 125 -PORT # 95 -BYTE # 126 -PORT # 95 -BYTE # 127 -PORT # 95 -BYTE # 128 -PORT # 95 -BYTE # 129 -PORT # 95 -BYTE # 130 -PORT # 95 -BYTE # 131 -PORT # 95 -BYTE # 132 -PORT # 95 -BYTE # 133 -PORT # 95 -BYTE # 134 -PORT # 95 -BYTE # 135 -PORT # 95 -BYTE # 136 -PORT # 95 -BYTE # 137 -PORT # 95 -BYTE # 138 -PORT # 95 -BYTE # 139 -PORT # 95 -BYTE # 140 -PORT # 95 -BYTE # 141 -PORT # 95 -BYTE # 142 -PORT # 95 -BYTE # 143 -PORT # 95 -BYTE # 144 -PORT # 95 -BYTE # 145 -PORT # 95 -BYTE # 146 -PORT # 95 -BYTE # 147 -PORT # 95 -BYTE # 148 -PORT # 95 -BYTE # 149 -PORT # 95 -BYTE # 150 -PORT # 95 -BYTE # 151 -PORT # 95 -BYTE # 152 -PORT # 95 -BYTE # 153 -PORT # 95 -BYTE # 154 -PORT # 95 -BYTE # 155 -PORT # 95 -BYTE # 156 -PORT # 95 -BYTE # 157 -PORT # 95 -BYTE # 158 -PORT # 95 -BYTE # 159 -PORT # 95 -BYTE # 160 -PORT # 95 -BYTE # 161 -PORT # 95 -BYTE # 162 -PORT # 95 -BYTE # 163 -PORT # 95 -BYTE # 164 -PORT # 95 -BYTE # 165 -PORT # 95 -BYTE # 166 -PORT # 95 -BYTE # 167 -PORT # 95 -BYTE # 168 -PORT # 95 -BYTE # 169 -PORT # 95 -BYTE # 170 -PORT # 95 -BYTE # 171 -PORT # 95 -BYTE # 172 -PORT # 95 -BYTE # 173 -PORT # 95 -BYTE # 174 -PORT # 95 -BYTE # 175 -PORT # 95 -BYTE # 176 -PORT # 95 -BYTE # 177 -PORT # 95 -BYTE # 178 -PORT # 95 -BYTE # 179 -PORT # 95 -BYTE # 180 -PORT # 95 -BYTE # 181 -PORT # 95 -BYTE # 182 -PORT # 95 -BYTE # 183 -PORT # 95 -BYTE # 184 -PORT # 95 -BYTE # 185 -PORT # 95 -BYTE # 186 -PORT # 95 -BYTE # 187 -PORT # 95 -BYTE # 188 -PORT # 95 -BYTE # 189 -PORT # 95 -BYTE # 190 -PORT # 95 -BYTE # 191 -PORT # 95 -BYTE # 192 -PORT # 95 -BYTE # 193 -PORT # 95 -BYTE # 194 -PORT # 95 -BYTE # 195 -PORT # 95 -BYTE # 196 -PORT # 95 -BYTE # 197 -PORT # 95 -BYTE # 198 -PORT # 95 -BYTE # 199 -PORT # 95 -BYTE # 200 -PORT # 95 -BYTE # 201 -PORT # 95 -BYTE # 202 -PORT # 95 -BYTE # 203 -PORT # 95 -BYTE # 204 -PORT # 95 -BYTE # 205 -PORT # 95 -BYTE # 206 -PORT # 95 -BYTE # 207 -PORT # 95 -BYTE # 208 -PORT # 95 -BYTE # 209 -PORT # 95 -BYTE # 210 -PORT # 95 -BYTE # 211 -PORT # 95 -BYTE # 212 -PORT # 95 -BYTE # 213 -PORT # 95 -BYTE # 214 -PORT # 95 -BYTE # 215 -PORT # 95 -BYTE # 216 -PORT # 95 -BYTE # 217 -PORT # 95 -BYTE # 218 -PORT # 95 -BYTE # 219 -PORT # 95 -BYTE # 220 -PORT # 95 -BYTE # 221 -PORT # 95 -BYTE # 222 -PORT # 95 -BYTE # 223 -PORT # 95 -BYTE # 224 -PORT # 95 -BYTE # 225 -PORT # 95 -BYTE # 226 -PORT # 95 -BYTE # 227 -PORT # 95 -BYTE # 228 -PORT # 95 -BYTE # 229 -PORT # 95 -BYTE # 230 -PORT # 95 -BYTE # 231 -PORT # 95 -BYTE # 232 -PORT # 95 -BYTE # 233 -PORT # 95 -BYTE # 234 -PORT # 95 -BYTE # 235 -PORT # 95 -BYTE # 236 -PORT # 95 -BYTE # 237 -PORT # 95 -BYTE # 238 -PORT # 95 -BYTE # 239 -PORT # 95 -BYTE # 240 -PORT # 95 -BYTE # 241 -PORT # 95 -BYTE # 242 -PORT # 95 -BYTE # 243 -PORT # 95 -BYTE # 244 -PORT # 95 -BYTE # 245 -PORT # 95 -BYTE # 246 -PORT # 95 -BYTE # 247 -PORT # 95 -BYTE # 248 -PORT # 95 -BYTE # 249 -PORT # 95 -BYTE # 250 -PORT # 95 -BYTE # 251 -PORT # 95 -BYTE # 252 -PORT # 95 -BYTE # 253 -PORT # 95 -BYTE # 254 -PORT # 95 -BYTE # 255 -PORT # 96 -BYTE # 0 -PORT # 96 -BYTE # 1 -PORT # 96 -BYTE # 2 -PORT # 96 -BYTE # 3 -PORT # 96 -BYTE # 4 -PORT # 96 -BYTE # 5 -PORT # 96 -BYTE # 6 -PORT # 96 -BYTE # 7 -PORT # 96 -BYTE # 8 -PORT # 96 -BYTE # 9 -PORT # 96 -BYTE # 10 -PORT # 96 -BYTE # 11 -PORT # 96 -BYTE # 12 -PORT # 96 -BYTE # 13 -PORT # 96 -BYTE # 14 -PORT # 96 -BYTE # 15 -PORT # 96 -BYTE # 16 -PORT # 96 -BYTE # 17 -PORT # 96 -BYTE # 18 -PORT # 96 -BYTE # 19 -PORT # 96 -BYTE # 20 -PORT # 96 -BYTE # 21 -PORT # 96 -BYTE # 22 -PORT # 96 -BYTE # 23 -PORT # 96 -BYTE # 24 -PORT # 96 -BYTE # 25 -PORT # 96 -BYTE # 26 -PORT # 96 -BYTE # 27 -PORT # 96 -BYTE # 28 -PORT # 96 -BYTE # 29 -PORT # 96 -BYTE # 30 -PORT # 96 -BYTE # 31 -PORT # 96 -BYTE # 32 -PORT # 96 -BYTE # 33 -PORT # 96 -BYTE # 34 -PORT # 96 -BYTE # 35 -PORT # 96 -BYTE # 36 -PORT # 96 -BYTE # 37 -PORT # 96 -BYTE # 38 -PORT # 96 -BYTE # 39 -PORT # 96 -BYTE # 40 -PORT # 96 -BYTE # 41 -PORT # 96 -BYTE # 42 -PORT # 96 -BYTE # 43 -PORT # 96 -BYTE # 44 -PORT # 96 -BYTE # 45 -PORT # 96 -BYTE # 46 -PORT # 96 -BYTE # 47 -PORT # 96 -BYTE # 48 -PORT # 96 -BYTE # 49 -PORT # 96 -BYTE # 50 -PORT # 96 -BYTE # 51 -PORT # 96 -BYTE # 52 -PORT # 96 -BYTE # 53 -PORT # 96 -BYTE # 54 -PORT # 96 -BYTE # 55 -PORT # 96 -BYTE # 56 -PORT # 96 -BYTE # 57 -PORT # 96 -BYTE # 58 -PORT # 96 -BYTE # 59 -PORT # 96 -BYTE # 60 -PORT # 96 -BYTE # 61 -PORT # 96 -BYTE # 62 -PORT # 96 -BYTE # 63 -PORT # 96 -BYTE # 64 -PORT # 96 -BYTE # 65 -PORT # 96 -BYTE # 66 -PORT # 96 -BYTE # 67 -PORT # 96 -BYTE # 68 -PORT # 96 -BYTE # 69 -PORT # 96 -BYTE # 70 -PORT # 96 -BYTE # 71 -PORT # 96 -BYTE # 72 -PORT # 96 -BYTE # 73 -PORT # 96 -BYTE # 74 -PORT # 96 -BYTE # 75 -PORT # 96 -BYTE # 76 -PORT # 96 -BYTE # 77 -PORT # 96 -BYTE # 78 -PORT # 96 -BYTE # 79 -PORT # 96 -BYTE # 80 -PORT # 96 -BYTE # 81 -PORT # 96 -BYTE # 82 -PORT # 96 -BYTE # 83 -PORT # 96 -BYTE # 84 -PORT # 96 -BYTE # 85 -PORT # 96 -BYTE # 86 -PORT # 96 -BYTE # 87 -PORT # 96 -BYTE # 88 -PORT # 96 -BYTE # 89 -PORT # 96 -BYTE # 90 -PORT # 96 -BYTE # 91 -PORT # 96 -BYTE # 92 -PORT # 96 -BYTE # 93 -PORT # 96 -BYTE # 94 -PORT # 96 -BYTE # 95 -PORT # 96 -BYTE # 96 -PORT # 96 -BYTE # 97 -PORT # 96 -BYTE # 98 -PORT # 96 -BYTE # 99 -PORT # 96 -BYTE # 100 -PORT # 96 -BYTE # 101 -PORT # 96 -BYTE # 102 -PORT # 96 -BYTE # 103 -PORT # 96 -BYTE # 104 -PORT # 96 -BYTE # 105 -PORT # 96 -BYTE # 106 -PORT # 96 -BYTE # 107 -PORT # 96 -BYTE # 108 -PORT # 96 -BYTE # 109 -PORT # 96 -BYTE # 110 -PORT # 96 -BYTE # 111 -PORT # 96 -BYTE # 112 -PORT # 96 -BYTE # 113 -PORT # 96 -BYTE # 114 -PORT # 96 -BYTE # 115 -PORT # 96 -BYTE # 116 -PORT # 96 -BYTE # 117 -PORT # 96 -BYTE # 118 -PORT # 96 -BYTE # 119 -PORT # 96 -BYTE # 120 -PORT # 96 -BYTE # 121 -PORT # 96 -BYTE # 122 -PORT # 96 -BYTE # 123 -PORT # 96 -BYTE # 124 -PORT # 96 -BYTE # 125 -PORT # 96 -BYTE # 126 -PORT # 96 -BYTE # 127 -PORT # 96 -BYTE # 128 -PORT # 96 -BYTE # 129 -PORT # 96 -BYTE # 130 -PORT # 96 -BYTE # 131 -PORT # 96 -BYTE # 132 -PORT # 96 -BYTE # 133 -PORT # 96 -BYTE # 134 -PORT # 96 -BYTE # 135 -PORT # 96 -BYTE # 136 -PORT # 96 -BYTE # 137 -PORT # 96 -BYTE # 138 -PORT # 96 -BYTE # 139 -PORT # 96 -BYTE # 140 -PORT # 96 -BYTE # 141 -PORT # 96 -BYTE # 142 -PORT # 96 -BYTE # 143 -PORT # 96 -BYTE # 144 -PORT # 96 -BYTE # 145 -PORT # 96 -BYTE # 146 -PORT # 96 -BYTE # 147 -PORT # 96 -BYTE # 148 -PORT # 96 -BYTE # 149 -PORT # 96 -BYTE # 150 -PORT # 96 -BYTE # 151 -PORT # 96 -BYTE # 152 -PORT # 96 -BYTE # 153 -PORT # 96 -BYTE # 154 -PORT # 96 -BYTE # 155 -PORT # 96 -BYTE # 156 -PORT # 96 -BYTE # 157 -PORT # 96 -BYTE # 158 -PORT # 96 -BYTE # 159 -PORT # 96 -BYTE # 160 -PORT # 96 -BYTE # 161 -PORT # 96 -BYTE # 162 -PORT # 96 -BYTE # 163 -PORT # 96 -BYTE # 164 -PORT # 96 -BYTE # 165 -PORT # 96 -BYTE # 166 -PORT # 96 -BYTE # 167 -PORT # 96 -BYTE # 168 -PORT # 96 -BYTE # 169 -PORT # 96 -BYTE # 170 -PORT # 96 -BYTE # 171 -PORT # 96 -BYTE # 172 -PORT # 96 -BYTE # 173 -PORT # 96 -BYTE # 174 -PORT # 96 -BYTE # 175 -PORT # 96 -BYTE # 176 -PORT # 96 -BYTE # 177 -PORT # 96 -BYTE # 178 -PORT # 96 -BYTE # 179 -PORT # 96 -BYTE # 180 -PORT # 96 -BYTE # 181 -PORT # 96 -BYTE # 182 -PORT # 96 -BYTE # 183 -PORT # 96 -BYTE # 184 -PORT # 96 -BYTE # 185 -PORT # 96 -BYTE # 186 -PORT # 96 -BYTE # 187 -PORT # 96 -BYTE # 188 -PORT # 96 -BYTE # 189 -PORT # 96 -BYTE # 190 -PORT # 96 -BYTE # 191 -PORT # 96 -BYTE # 192 -PORT # 96 -BYTE # 193 -PORT # 96 -BYTE # 194 -PORT # 96 -BYTE # 195 -PORT # 96 -BYTE # 196 -PORT # 96 -BYTE # 197 -PORT # 96 -BYTE # 198 -PORT # 96 -BYTE # 199 -PORT # 96 -BYTE # 200 -PORT # 96 -BYTE # 201 -PORT # 96 -BYTE # 202 -PORT # 96 -BYTE # 203 -PORT # 96 -BYTE # 204 -PORT # 96 -BYTE # 205 -PORT # 96 -BYTE # 206 -PORT # 96 -BYTE # 207 -PORT # 96 -BYTE # 208 -PORT # 96 -BYTE # 209 -PORT # 96 -BYTE # 210 -PORT # 96 -BYTE # 211 -PORT # 96 -BYTE # 212 -PORT # 96 -BYTE # 213 -PORT # 96 -BYTE # 214 -PORT # 96 -BYTE # 215 -PORT # 96 -BYTE # 216 -PORT # 96 -BYTE # 217 -PORT # 96 -BYTE # 218 -PORT # 96 -BYTE # 219 -PORT # 96 -BYTE # 220 -PORT # 96 -BYTE # 221 -PORT # 96 -BYTE # 222 -PORT # 96 -BYTE # 223 -PORT # 96 -BYTE # 224 -PORT # 96 -BYTE # 225 -PORT # 96 -BYTE # 226 -PORT # 96 -BYTE # 227 -PORT # 96 -BYTE # 228 -PORT # 96 -BYTE # 229 -PORT # 96 -BYTE # 230 -PORT # 96 -BYTE # 231 -PORT # 96 -BYTE # 232 -PORT # 96 -BYTE # 233 -PORT # 96 -BYTE # 234 -PORT # 96 -BYTE # 235 -PORT # 96 -BYTE # 236 -PORT # 96 -BYTE # 237 -PORT # 96 -BYTE # 238 -PORT # 96 -BYTE # 239 -PORT # 96 -BYTE # 240 -PORT # 96 -BYTE # 241 -PORT # 96 -BYTE # 242 -PORT # 96 -BYTE # 243 -PORT # 96 -BYTE # 244 -PORT # 96 -BYTE # 245 -PORT # 96 -BYTE # 246 -PORT # 96 -BYTE # 247 -PORT # 96 -BYTE # 248 -PORT # 96 -BYTE # 249 -PORT # 96 -BYTE # 250 -PORT # 96 -BYTE # 251 -PORT # 96 -BYTE # 252 -PORT # 96 -BYTE # 253 -PORT # 96 -BYTE # 254 -PORT # 96 -BYTE # 255 -PORT # 97 -BYTE # 0 -PORT # 97 -BYTE # 1 -PORT # 97 -BYTE # 2 -PORT # 97 -BYTE # 3 -PORT # 97 -BYTE # 4 -PORT # 97 -BYTE # 5 -PORT # 97 -BYTE # 6 -PORT # 97 -BYTE # 7 -PORT # 97 -BYTE # 8 -PORT # 97 -BYTE # 9 -PORT # 97 -BYTE # 10 -PORT # 97 -BYTE # 11 -PORT # 97 -BYTE # 12 -PORT # 97 -BYTE # 13 -PORT # 97 -BYTE # 14 -PORT # 97 -BYTE # 15 -PORT # 97 -BYTE # 16 -PORT # 97 -BYTE # 17 -PORT # 97 -BYTE # 18 -PORT # 97 -BYTE # 19 -PORT # 97 -BYTE # 20 -PORT # 97 -BYTE # 21 -PORT # 97 -BYTE # 22 -PORT # 97 -BYTE # 23 -PORT # 97 -BYTE # 24 -PORT # 97 -BYTE # 25 -PORT # 97 -BYTE # 26 -PORT # 97 -BYTE # 27 -PORT # 97 -BYTE # 28 -PORT # 97 -BYTE # 29 -PORT # 97 -BYTE # 30 -PORT # 97 -BYTE # 31 -PORT # 97 -BYTE # 32 -PORT # 97 -BYTE # 33 -PORT # 97 -BYTE # 34 -PORT # 97 -BYTE # 35 -PORT # 97 -BYTE # 36 -PORT # 97 -BYTE # 37 -PORT # 97 -BYTE # 38 -PORT # 97 -BYTE # 39 -PORT # 97 -BYTE # 40 -PORT # 97 -BYTE # 41 -PORT # 97 -BYTE # 42 -PORT # 97 -BYTE # 43 -PORT # 97 -BYTE # 44 -PORT # 97 -BYTE # 45 -PORT # 97 -BYTE # 46 -PORT # 97 -BYTE # 47 -PORT # 97 -BYTE # 48 -PORT # 97 -BYTE # 49 -PORT # 97 -BYTE # 50 -PORT # 97 -BYTE # 51 -PORT # 97 -BYTE # 52 -PORT # 97 -BYTE # 53 -PORT # 97 -BYTE # 54 -PORT # 97 -BYTE # 55 -PORT # 97 -BYTE # 56 -PORT # 97 -BYTE # 57 -PORT # 97 -BYTE # 58 -PORT # 97 -BYTE # 59 -PORT # 97 -BYTE # 60 -PORT # 97 -BYTE # 61 -PORT # 97 -BYTE # 62 -PORT # 97 -BYTE # 63 -PORT # 97 -BYTE # 64 -PORT # 97 -BYTE # 65 -PORT # 97 -BYTE # 66 -PORT # 97 -BYTE # 67 -PORT # 97 -BYTE # 68 -PORT # 97 -BYTE # 69 -PORT # 97 -BYTE # 70 -PORT # 97 -BYTE # 71 -PORT # 97 -BYTE # 72 -PORT # 97 -BYTE # 73 -PORT # 97 -BYTE # 74 -PORT # 97 -BYTE # 75 -PORT # 97 -BYTE # 76 -PORT # 97 -BYTE # 77 -PORT # 97 -BYTE # 78 -PORT # 97 -BYTE # 79 -PORT # 97 -BYTE # 80 -PORT # 97 -BYTE # 81 -PORT # 97 -BYTE # 82 -PORT # 97 -BYTE # 83 -PORT # 97 -BYTE # 84 -PORT # 97 -BYTE # 85 -PORT # 97 -BYTE # 86 -PORT # 97 -BYTE # 87 -PORT # 97 -BYTE # 88 -PORT # 97 -BYTE # 89 -PORT # 97 -BYTE # 90 -PORT # 97 -BYTE # 91 -PORT # 97 -BYTE # 92 -PORT # 97 -BYTE # 93 -PORT # 97 -BYTE # 94 -PORT # 97 -BYTE # 95 -PORT # 97 -BYTE # 96 -PORT # 97 -BYTE # 97 -PORT # 97 -BYTE # 98 -PORT # 97 -BYTE # 99 -PORT # 97 -BYTE # 100 -PORT # 97 -BYTE # 101 -PORT # 97 -BYTE # 102 -PORT # 97 -BYTE # 103 -PORT # 97 -BYTE # 104 -PORT # 97 -BYTE # 105 -PORT # 97 -BYTE # 106 -PORT # 97 -BYTE # 107 -PORT # 97 -BYTE # 108 -PORT # 97 -BYTE # 109 -PORT # 97 -BYTE # 110 -PORT # 97 -BYTE # 111 -PORT # 97 -BYTE # 112 -PORT # 97 -BYTE # 113 -PORT # 97 -BYTE # 114 -PORT # 97 -BYTE # 115 -PORT # 97 -BYTE # 116 -PORT # 97 -BYTE # 117 -PORT # 97 -BYTE # 118 -PORT # 97 -BYTE # 119 -PORT # 97 -BYTE # 120 -PORT # 97 -BYTE # 121 -PORT # 97 -BYTE # 122 -PORT # 97 -BYTE # 123 -PORT # 97 -BYTE # 124 -PORT # 97 -BYTE # 125 -PORT # 97 -BYTE # 126 -PORT # 97 -BYTE # 127 -PORT # 97 -BYTE # 128 -PORT # 97 -BYTE # 129 -PORT # 97 -BYTE # 130 -PORT # 97 -BYTE # 131 -PORT # 97 -BYTE # 132 -PORT # 97 -BYTE # 133 -PORT # 97 -BYTE # 134 -PORT # 97 -BYTE # 135 -PORT # 97 -BYTE # 136 -PORT # 97 -BYTE # 137 -PORT # 97 -BYTE # 138 -PORT # 97 -BYTE # 139 -PORT # 97 -BYTE # 140 -PORT # 97 -BYTE # 141 -PORT # 97 -BYTE # 142 -PORT # 97 -BYTE # 143 -PORT # 97 -BYTE # 144 -PORT # 97 -BYTE # 145 -PORT # 97 -BYTE # 146 -PORT # 97 -BYTE # 147 -PORT # 97 -BYTE # 148 -PORT # 97 -BYTE # 149 -PORT # 97 -BYTE # 150 -PORT # 97 -BYTE # 151 -PORT # 97 -BYTE # 152 -PORT # 97 -BYTE # 153 -PORT # 97 -BYTE # 154 -PORT # 97 -BYTE # 155 -PORT # 97 -BYTE # 156 -PORT # 97 -BYTE # 157 -PORT # 97 -BYTE # 158 -PORT # 97 -BYTE # 159 -PORT # 97 -BYTE # 160 -PORT # 97 -BYTE # 161 -PORT # 97 -BYTE # 162 -PORT # 97 -BYTE # 163 -PORT # 97 -BYTE # 164 -PORT # 97 -BYTE # 165 -PORT # 97 -BYTE # 166 -PORT # 97 -BYTE # 167 -PORT # 97 -BYTE # 168 -PORT # 97 -BYTE # 169 -PORT # 97 -BYTE # 170 -PORT # 97 -BYTE # 171 -PORT # 97 -BYTE # 172 -PORT # 97 -BYTE # 173 -PORT # 97 -BYTE # 174 -PORT # 97 -BYTE # 175 -PORT # 97 -BYTE # 176 -PORT # 97 -BYTE # 177 -PORT # 97 -BYTE # 178 -PORT # 97 -BYTE # 179 -PORT # 97 -BYTE # 180 -PORT # 97 -BYTE # 181 -PORT # 97 -BYTE # 182 -PORT # 97 -BYTE # 183 -PORT # 97 -BYTE # 184 -PORT # 97 -BYTE # 185 -PORT # 97 -BYTE # 186 -PORT # 97 -BYTE # 187 -PORT # 97 -BYTE # 188 -PORT # 97 -BYTE # 189 -PORT # 97 -BYTE # 190 -PORT # 97 -BYTE # 191 -PORT # 97 -BYTE # 192 -PORT # 97 -BYTE # 193 -PORT # 97 -BYTE # 194 -PORT # 97 -BYTE # 195 -PORT # 97 -BYTE # 196 -PORT # 97 -BYTE # 197 -PORT # 97 -BYTE # 198 -PORT # 97 -BYTE # 199 -PORT # 97 -BYTE # 200 -PORT # 97 -BYTE # 201 -PORT # 97 -BYTE # 202 -PORT # 97 -BYTE # 203 -PORT # 97 -BYTE # 204 -PORT # 97 -BYTE # 205 -PORT # 97 -BYTE # 206 -PORT # 97 -BYTE # 207 -PORT # 97 -BYTE # 208 -PORT # 97 -BYTE # 209 -PORT # 97 -BYTE # 210 -PORT # 97 -BYTE # 211 -PORT # 97 -BYTE # 212 -PORT # 97 -BYTE # 213 -PORT # 97 -BYTE # 214 -PORT # 97 -BYTE # 215 -PORT # 97 -BYTE # 216 -PORT # 97 -BYTE # 217 -PORT # 97 -BYTE # 218 -PORT # 97 -BYTE # 219 -PORT # 97 -BYTE # 220 -PORT # 97 -BYTE # 221 -PORT # 97 -BYTE # 222 -PORT # 97 -BYTE # 223 -PORT # 97 -BYTE # 224 -PORT # 97 -BYTE # 225 -PORT # 97 -BYTE # 226 -PORT # 97 -BYTE # 227 -PORT # 97 -BYTE # 228 -PORT # 97 -BYTE # 229 -PORT # 97 -BYTE # 230 -PORT # 97 -BYTE # 231 -PORT # 97 -BYTE # 232 -PORT # 97 -BYTE # 233 -PORT # 97 -BYTE # 234 -PORT # 97 -BYTE # 235 -PORT # 97 -BYTE # 236 -PORT # 97 -BYTE # 237 -PORT # 97 -BYTE # 238 -PORT # 97 -BYTE # 239 -PORT # 97 -BYTE # 240 -PORT # 97 -BYTE # 241 -PORT # 97 -BYTE # 242 -PORT # 97 -BYTE # 243 -PORT # 97 -BYTE # 244 -PORT # 97 -BYTE # 245 -PORT # 97 -BYTE # 246 -PORT # 97 -BYTE # 247 -PORT # 97 -BYTE # 248 -PORT # 97 -BYTE # 249 -PORT # 97 -BYTE # 250 -PORT # 97 -BYTE # 251 -PORT # 97 -BYTE # 252 -PORT # 97 -BYTE # 253 -PORT # 97 -BYTE # 254 -PORT # 97 -BYTE # 255 -PORT # 98 -BYTE # 0 -PORT # 98 -BYTE # 1 -PORT # 98 -BYTE # 2 -PORT # 98 -BYTE # 3 -PORT # 98 -BYTE # 4 -PORT # 98 -BYTE # 5 -PORT # 98 -BYTE # 6 -PORT # 98 -BYTE # 7 -PORT # 98 -BYTE # 8 -PORT # 98 -BYTE # 9 -PORT # 98 -BYTE # 10 -PORT # 98 -BYTE # 11 -PORT # 98 -BYTE # 12 -PORT # 98 -BYTE # 13 -PORT # 98 -BYTE # 14 -PORT # 98 -BYTE # 15 -PORT # 98 -BYTE # 16 -PORT # 98 -BYTE # 17 -PORT # 98 -BYTE # 18 -PORT # 98 -BYTE # 19 -PORT # 98 -BYTE # 20 -PORT # 98 -BYTE # 21 -PORT # 98 -BYTE # 22 -PORT # 98 -BYTE # 23 -PORT # 98 -BYTE # 24 -PORT # 98 -BYTE # 25 -PORT # 98 -BYTE # 26 -PORT # 98 -BYTE # 27 -PORT # 98 -BYTE # 28 -PORT # 98 -BYTE # 29 -PORT # 98 -BYTE # 30 -PORT # 98 -BYTE # 31 -PORT # 98 -BYTE # 32 -PORT # 98 -BYTE # 33 -PORT # 98 -BYTE # 34 -PORT # 98 -BYTE # 35 -PORT # 98 -BYTE # 36 -PORT # 98 -BYTE # 37 -PORT # 98 -BYTE # 38 -PORT # 98 -BYTE # 39 -PORT # 98 -BYTE # 40 -PORT # 98 -BYTE # 41 -PORT # 98 -BYTE # 42 -PORT # 98 -BYTE # 43 -PORT # 98 -BYTE # 44 -PORT # 98 -BYTE # 45 -PORT # 98 -BYTE # 46 -PORT # 98 -BYTE # 47 -PORT # 98 -BYTE # 48 -PORT # 98 -BYTE # 49 -PORT # 98 -BYTE # 50 -PORT # 98 -BYTE # 51 -PORT # 98 -BYTE # 52 -PORT # 98 -BYTE # 53 -PORT # 98 -BYTE # 54 -PORT # 98 -BYTE # 55 -PORT # 98 -BYTE # 56 -PORT # 98 -BYTE # 57 -PORT # 98 -BYTE # 58 -PORT # 98 -BYTE # 59 -PORT # 98 -BYTE # 60 -PORT # 98 -BYTE # 61 -PORT # 98 -BYTE # 62 -PORT # 98 -BYTE # 63 -PORT # 98 -BYTE # 64 -PORT # 98 -BYTE # 65 -PORT # 98 -BYTE # 66 -PORT # 98 -BYTE # 67 -PORT # 98 -BYTE # 68 -PORT # 98 -BYTE # 69 -PORT # 98 -BYTE # 70 -PORT # 98 -BYTE # 71 -PORT # 98 -BYTE # 72 -PORT # 98 -BYTE # 73 -PORT # 98 -BYTE # 74 -PORT # 98 -BYTE # 75 -PORT # 98 -BYTE # 76 -PORT # 98 -BYTE # 77 -PORT # 98 -BYTE # 78 -PORT # 98 -BYTE # 79 -PORT # 98 -BYTE # 80 -PORT # 98 -BYTE # 81 -PORT # 98 -BYTE # 82 -PORT # 98 -BYTE # 83 -PORT # 98 -BYTE # 84 -PORT # 98 -BYTE # 85 -PORT # 98 -BYTE # 86 -PORT # 98 -BYTE # 87 -PORT # 98 -BYTE # 88 -PORT # 98 -BYTE # 89 -PORT # 98 -BYTE # 90 -PORT # 98 -BYTE # 91 -PORT # 98 -BYTE # 92 -PORT # 98 -BYTE # 93 -PORT # 98 -BYTE # 94 -PORT # 98 -BYTE # 95 -PORT # 98 -BYTE # 96 -PORT # 98 -BYTE # 97 -PORT # 98 -BYTE # 98 -PORT # 98 -BYTE # 99 -PORT # 98 -BYTE # 100 -PORT # 98 -BYTE # 101 -PORT # 98 -BYTE # 102 -PORT # 98 -BYTE # 103 -PORT # 98 -BYTE # 104 -PORT # 98 -BYTE # 105 -PORT # 98 -BYTE # 106 -PORT # 98 -BYTE # 107 -PORT # 98 -BYTE # 108 -PORT # 98 -BYTE # 109 -PORT # 98 -BYTE # 110 -PORT # 98 -BYTE # 111 -PORT # 98 -BYTE # 112 -PORT # 98 -BYTE # 113 -PORT # 98 -BYTE # 114 -PORT # 98 -BYTE # 115 -PORT # 98 -BYTE # 116 -PORT # 98 -BYTE # 117 -PORT # 98 -BYTE # 118 -PORT # 98 -BYTE # 119 -PORT # 98 -BYTE # 120 -PORT # 98 -BYTE # 121 -PORT # 98 -BYTE # 122 -PORT # 98 -BYTE # 123 -PORT # 98 -BYTE # 124 -PORT # 98 -BYTE # 125 -PORT # 98 -BYTE # 126 -PORT # 98 -BYTE # 127 -PORT # 98 -BYTE # 128 -PORT # 98 -BYTE # 129 -PORT # 98 -BYTE # 130 -PORT # 98 -BYTE # 131 -PORT # 98 -BYTE # 132 -PORT # 98 -BYTE # 133 -PORT # 98 -BYTE # 134 -PORT # 98 -BYTE # 135 -PORT # 98 -BYTE # 136 -PORT # 98 -BYTE # 137 -PORT # 98 -BYTE # 138 -PORT # 98 -BYTE # 139 -PORT # 98 -BYTE # 140 -PORT # 98 -BYTE # 141 -PORT # 98 -BYTE # 142 -PORT # 98 -BYTE # 143 -PORT # 98 -BYTE # 144 -PORT # 98 -BYTE # 145 -PORT # 98 -BYTE # 146 -PORT # 98 -BYTE # 147 -PORT # 98 -BYTE # 148 -PORT # 98 -BYTE # 149 -PORT # 98 -BYTE # 150 -PORT # 98 -BYTE # 151 -PORT # 98 -BYTE # 152 -PORT # 98 -BYTE # 153 -PORT # 98 -BYTE # 154 -PORT # 98 -BYTE # 155 -PORT # 98 -BYTE # 156 -PORT # 98 -BYTE # 157 -PORT # 98 -BYTE # 158 -PORT # 98 -BYTE # 159 -PORT # 98 -BYTE # 160 -PORT # 98 -BYTE # 161 -PORT # 98 -BYTE # 162 -PORT # 98 -BYTE # 163 -PORT # 98 -BYTE # 164 -PORT # 98 -BYTE # 165 -PORT # 98 -BYTE # 166 -PORT # 98 -BYTE # 167 -PORT # 98 -BYTE # 168 -PORT # 98 -BYTE # 169 -PORT # 98 -BYTE # 170 -PORT # 98 -BYTE # 171 -PORT # 98 -BYTE # 172 -PORT # 98 -BYTE # 173 -PORT # 98 -BYTE # 174 -PORT # 98 -BYTE # 175 -PORT # 98 -BYTE # 176 -PORT # 98 -BYTE # 177 -PORT # 98 -BYTE # 178 -PORT # 98 -BYTE # 179 -PORT # 98 -BYTE # 180 -PORT # 98 -BYTE # 181 -PORT # 98 -BYTE # 182 -PORT # 98 -BYTE # 183 -PORT # 98 -BYTE # 184 -PORT # 98 -BYTE # 185 -PORT # 98 -BYTE # 186 -PORT # 98 -BYTE # 187 -PORT # 98 -BYTE # 188 -PORT # 98 -BYTE # 189 -PORT # 98 -BYTE # 190 -PORT # 98 -BYTE # 191 -PORT # 98 -BYTE # 192 -PORT # 98 -BYTE # 193 -PORT # 98 -BYTE # 194 -PORT # 98 -BYTE # 195 -PORT # 98 -BYTE # 196 -PORT # 98 -BYTE # 197 -PORT # 98 -BYTE # 198 -PORT # 98 -BYTE # 199 -PORT # 98 -BYTE # 200 -PORT # 98 -BYTE # 201 -PORT # 98 -BYTE # 202 -PORT # 98 -BYTE # 203 -PORT # 98 -BYTE # 204 -PORT # 98 -BYTE # 205 -PORT # 98 -BYTE # 206 -PORT # 98 -BYTE # 207 -PORT # 98 -BYTE # 208 -PORT # 98 -BYTE # 209 -PORT # 98 -BYTE # 210 -PORT # 98 -BYTE # 211 -PORT # 98 -BYTE # 212 -PORT # 98 -BYTE # 213 -PORT # 98 -BYTE # 214 -PORT # 98 -BYTE # 215 -PORT # 98 -BYTE # 216 -PORT # 98 -BYTE # 217 -PORT # 98 -BYTE # 218 -PORT # 98 -BYTE # 219 -PORT # 98 -BYTE # 220 -PORT # 98 -BYTE # 221 -PORT # 98 -BYTE # 222 -PORT # 98 -BYTE # 223 -PORT # 98 -BYTE # 224 -PORT # 98 -BYTE # 225 -PORT # 98 -BYTE # 226 -PORT # 98 -BYTE # 227 -PORT # 98 -BYTE # 228 -PORT # 98 -BYTE # 229 -PORT # 98 -BYTE # 230 -PORT # 98 -BYTE # 231 -PORT # 98 -BYTE # 232 -PORT # 98 -BYTE # 233 -PORT # 98 -BYTE # 234 -PORT # 98 -BYTE # 235 -PORT # 98 -BYTE # 236 -PORT # 98 -BYTE # 237 -PORT # 98 -BYTE # 238 -PORT # 98 -BYTE # 239 -PORT # 98 -BYTE # 240 -PORT # 98 -BYTE # 241 -PORT # 98 -BYTE # 242 -PORT # 98 -BYTE # 243 -PORT # 98 -BYTE # 244 -PORT # 98 -BYTE # 245 -PORT # 98 -BYTE # 246 -PORT # 98 -BYTE # 247 -PORT # 98 -BYTE # 248 -PORT # 98 -BYTE # 249 -PORT # 98 -BYTE # 250 -PORT # 98 -BYTE # 251 -PORT # 98 -BYTE # 252 -PORT # 98 -BYTE # 253 -PORT # 98 -BYTE # 254 -PORT # 98 -BYTE # 255 -PORT # 99 -BYTE # 0 -PORT # 99 -BYTE # 1 -PORT # 99 -BYTE # 2 -PORT # 99 -BYTE # 3 -PORT # 99 -BYTE # 4 -PORT # 99 -BYTE # 5 -PORT # 99 -BYTE # 6 -PORT # 99 -BYTE # 7 -PORT # 99 -BYTE # 8 -PORT # 99 -BYTE # 9 -PORT # 99 -BYTE # 10 -PORT # 99 -BYTE # 11 -PORT # 99 -BYTE # 12 -PORT # 99 -BYTE # 13 -PORT # 99 -BYTE # 14 -PORT # 99 -BYTE # 15 -PORT # 99 -BYTE # 16 -PORT # 99 -BYTE # 17 -PORT # 99 -BYTE # 18 -PORT # 99 -BYTE # 19 -PORT # 99 -BYTE # 20 -PORT # 99 -BYTE # 21 -PORT # 99 -BYTE # 22 -PORT # 99 -BYTE # 23 -PORT # 99 -BYTE # 24 -PORT # 99 -BYTE # 25 -PORT # 99 -BYTE # 26 -PORT # 99 -BYTE # 27 -PORT # 99 -BYTE # 28 -PORT # 99 -BYTE # 29 -PORT # 99 -BYTE # 30 -PORT # 99 -BYTE # 31 -PORT # 99 -BYTE # 32 -PORT # 99 -BYTE # 33 -PORT # 99 -BYTE # 34 -PORT # 99 -BYTE # 35 -PORT # 99 -BYTE # 36 -PORT # 99 -BYTE # 37 -PORT # 99 -BYTE # 38 -PORT # 99 -BYTE # 39 -PORT # 99 -BYTE # 40 -PORT # 99 -BYTE # 41 -PORT # 99 -BYTE # 42 -PORT # 99 -BYTE # 43 -PORT # 99 -BYTE # 44 -PORT # 99 -BYTE # 45 -PORT # 99 -BYTE # 46 -PORT # 99 -BYTE # 47 -PORT # 99 -BYTE # 48 -PORT # 99 -BYTE # 49 -PORT # 99 -BYTE # 50 -PORT # 99 -BYTE # 51 -PORT # 99 -BYTE # 52 -PORT # 99 -BYTE # 53 -PORT # 99 -BYTE # 54 -PORT # 99 -BYTE # 55 -PORT # 99 -BYTE # 56 -PORT # 99 -BYTE # 57 -PORT # 99 -BYTE # 58 -PORT # 99 -BYTE # 59 -PORT # 99 -BYTE # 60 -PORT # 99 -BYTE # 61 -PORT # 99 -BYTE # 62 -PORT # 99 -BYTE # 63 -PORT # 99 -BYTE # 64 -PORT # 99 -BYTE # 65 -PORT # 99 -BYTE # 66 -PORT # 99 -BYTE # 67 -PORT # 99 -BYTE # 68 -PORT # 99 -BYTE # 69 -PORT # 99 -BYTE # 70 -PORT # 99 -BYTE # 71 -PORT # 99 -BYTE # 72 -PORT # 99 -BYTE # 73 -PORT # 99 -BYTE # 74 -PORT # 99 -BYTE # 75 -PORT # 99 -BYTE # 76 -PORT # 99 -BYTE # 77 -PORT # 99 -BYTE # 78 -PORT # 99 -BYTE # 79 -PORT # 99 -BYTE # 80 -PORT # 99 -BYTE # 81 -PORT # 99 -BYTE # 82 -PORT # 99 -BYTE # 83 -PORT # 99 -BYTE # 84 -PORT # 99 -BYTE # 85 -PORT # 99 -BYTE # 86 -PORT # 99 -BYTE # 87 -PORT # 99 -BYTE # 88 -PORT # 99 -BYTE # 89 -PORT # 99 -BYTE # 90 -PORT # 99 -BYTE # 91 -PORT # 99 -BYTE # 92 -PORT # 99 -BYTE # 93 -PORT # 99 -BYTE # 94 -PORT # 99 -BYTE # 95 -PORT # 99 -BYTE # 96 -PORT # 99 -BYTE # 97 -PORT # 99 -BYTE # 98 -PORT # 99 -BYTE # 99 -PORT # 99 -BYTE # 100 -PORT # 99 -BYTE # 101 -PORT # 99 -BYTE # 102 -PORT # 99 -BYTE # 103 -PORT # 99 -BYTE # 104 -PORT # 99 -BYTE # 105 -PORT # 99 -BYTE # 106 -PORT # 99 -BYTE # 107 -PORT # 99 -BYTE # 108 -PORT # 99 -BYTE # 109 -PORT # 99 -BYTE # 110 -PORT # 99 -BYTE # 111 -PORT # 99 -BYTE # 112 -PORT # 99 -BYTE # 113 -PORT # 99 -BYTE # 114 -PORT # 99 -BYTE # 115 -PORT # 99 -BYTE # 116 -PORT # 99 -BYTE # 117 -PORT # 99 -BYTE # 118 -PORT # 99 -BYTE # 119 -PORT # 99 -BYTE # 120 -PORT # 99 -BYTE # 121 -PORT # 99 -BYTE # 122 -PORT # 99 -BYTE # 123 -PORT # 99 -BYTE # 124 -PORT # 99 -BYTE # 125 -PORT # 99 -BYTE # 126 -PORT # 99 -BYTE # 127 -PORT # 99 -BYTE # 128 -PORT # 99 -BYTE # 129 -PORT # 99 -BYTE # 130 -PORT # 99 -BYTE # 131 -PORT # 99 -BYTE # 132 -PORT # 99 -BYTE # 133 -PORT # 99 -BYTE # 134 -PORT # 99 -BYTE # 135 -PORT # 99 -BYTE # 136 -PORT # 99 -BYTE # 137 -PORT # 99 -BYTE # 138 -PORT # 99 -BYTE # 139 -PORT # 99 -BYTE # 140 -PORT # 99 -BYTE # 141 -PORT # 99 -BYTE # 142 -PORT # 99 -BYTE # 143 -PORT # 99 -BYTE # 144 -PORT # 99 -BYTE # 145 -PORT # 99 -BYTE # 146 -PORT # 99 -BYTE # 147 -PORT # 99 -BYTE # 148 -PORT # 99 -BYTE # 149 -PORT # 99 -BYTE # 150 -PORT # 99 -BYTE # 151 -PORT # 99 -BYTE # 152 -PORT # 99 -BYTE # 153 -PORT # 99 -BYTE # 154 -PORT # 99 -BYTE # 155 -PORT # 99 -BYTE # 156 -PORT # 99 -BYTE # 157 -PORT # 99 -BYTE # 158 -PORT # 99 -BYTE # 159 -PORT # 99 -BYTE # 160 -PORT # 99 -BYTE # 161 -PORT # 99 -BYTE # 162 -PORT # 99 -BYTE # 163 -PORT # 99 -BYTE # 164 -PORT # 99 -BYTE # 165 -PORT # 99 -BYTE # 166 -PORT # 99 -BYTE # 167 -PORT # 99 -BYTE # 168 -PORT # 99 -BYTE # 169 -PORT # 99 -BYTE # 170 -PORT # 99 -BYTE # 171 -PORT # 99 -BYTE # 172 -PORT # 99 -BYTE # 173 -PORT # 99 -BYTE # 174 -PORT # 99 -BYTE # 175 -PORT # 99 -BYTE # 176 -PORT # 99 -BYTE # 177 -PORT # 99 -BYTE # 178 -PORT # 99 -BYTE # 179 -PORT # 99 -BYTE # 180 -PORT # 99 -BYTE # 181 -PORT # 99 -BYTE # 182 -PORT # 99 -BYTE # 183 -PORT # 99 -BYTE # 184 -PORT # 99 -BYTE # 185 -PORT # 99 -BYTE # 186 -PORT # 99 -BYTE # 187 -PORT # 99 -BYTE # 188 -PORT # 99 -BYTE # 189 -PORT # 99 -BYTE # 190 -PORT # 99 -BYTE # 191 -PORT # 99 -BYTE # 192 -PORT # 99 -BYTE # 193 -PORT # 99 -BYTE # 194 -PORT # 99 -BYTE # 195 -PORT # 99 -BYTE # 196 -PORT # 99 -BYTE # 197 -PORT # 99 -BYTE # 198 -PORT # 99 -BYTE # 199 -PORT # 99 -BYTE # 200 -PORT # 99 -BYTE # 201 -PORT # 99 -BYTE # 202 -PORT # 99 -BYTE # 203 -PORT # 99 -BYTE # 204 -PORT # 99 -BYTE # 205 -PORT # 99 -BYTE # 206 -PORT # 99 -BYTE # 207 -PORT # 99 -BYTE # 208 -PORT # 99 -BYTE # 209 -PORT # 99 -BYTE # 210 -PORT # 99 -BYTE # 211 -PORT # 99 -BYTE # 212 -PORT # 99 -BYTE # 213 -PORT # 99 -BYTE # 214 -PORT # 99 -BYTE # 215 -PORT # 99 -BYTE # 216 -PORT # 99 -BYTE # 217 -PORT # 99 -BYTE # 218 -PORT # 99 -BYTE # 219 -PORT # 99 -BYTE # 220 -PORT # 99 -BYTE # 221 -PORT # 99 -BYTE # 222 -PORT # 99 -BYTE # 223 -PORT # 99 -BYTE # 224 -PORT # 99 -BYTE # 225 -PORT # 99 -BYTE # 226 -PORT # 99 -BYTE # 227 -PORT # 99 -BYTE # 228 -PORT # 99 -BYTE # 229 -PORT # 99 -BYTE # 230 -PORT # 99 -BYTE # 231 -PORT # 99 -BYTE # 232 -PORT # 99 -BYTE # 233 -PORT # 99 -BYTE # 234 -PORT # 99 -BYTE # 235 -PORT # 99 -BYTE # 236 -PORT # 99 -BYTE # 237 -PORT # 99 -BYTE # 238 -PORT # 99 -BYTE # 239 -PORT # 99 -BYTE # 240 -PORT # 99 -BYTE # 241 -PORT # 99 -BYTE # 242 -PORT # 99 -BYTE # 243 -PORT # 99 -BYTE # 244 -PORT # 99 -BYTE # 245 -PORT # 99 -BYTE # 246 -PORT # 99 -BYTE # 247 -PORT # 99 -BYTE # 248 -PORT # 99 -BYTE # 249 -PORT # 99 -BYTE # 250 -PORT # 99 -BYTE # 251 -PORT # 99 -BYTE # 252 -PORT # 99 -BYTE # 253 -PORT # 99 -BYTE # 254 -PORT # 99 -BYTE # 255 -PORT # 100 -BYTE # 0 -PORT # 100 -BYTE # 1 -PORT # 100 -BYTE # 2 -PORT # 100 -BYTE # 3 -PORT # 100 -BYTE # 4 -PORT # 100 -BYTE # 5 -PORT # 100 -BYTE # 6 -PORT # 100 -BYTE # 7 -PORT # 100 -BYTE # 8 -PORT # 100 -BYTE # 9 -PORT # 100 -BYTE # 10 -PORT # 100 -BYTE # 11 -PORT # 100 -BYTE # 12 -PORT # 100 -BYTE # 13 -PORT # 100 -BYTE # 14 -PORT # 100 -BYTE # 15 -PORT # 100 -BYTE # 16 -PORT # 100 -BYTE # 17 -PORT # 100 -BYTE # 18 -PORT # 100 -BYTE # 19 -PORT # 100 -BYTE # 20 -PORT # 100 -BYTE # 21 -PORT # 100 -BYTE # 22 -PORT # 100 -BYTE # 23 -PORT # 100 -BYTE # 24 -PORT # 100 -BYTE # 25 -PORT # 100 -BYTE # 26 -PORT # 100 -BYTE # 27 -PORT # 100 -BYTE # 28 -PORT # 100 -BYTE # 29 -PORT # 100 -BYTE # 30 -PORT # 100 -BYTE # 31 -PORT # 100 -BYTE # 32 -PORT # 100 -BYTE # 33 -PORT # 100 -BYTE # 34 -PORT # 100 -BYTE # 35 -PORT # 100 -BYTE # 36 -PORT # 100 -BYTE # 37 -PORT # 100 -BYTE # 38 -PORT # 100 -BYTE # 39 -PORT # 100 -BYTE # 40 -PORT # 100 -BYTE # 41 -PORT # 100 -BYTE # 42 -PORT # 100 -BYTE # 43 -PORT # 100 -BYTE # 44 -PORT # 100 -BYTE # 45 -PORT # 100 -BYTE # 46 -PORT # 100 -BYTE # 47 -PORT # 100 -BYTE # 48 -PORT # 100 -BYTE # 49 -PORT # 100 -BYTE # 50 -PORT # 100 -BYTE # 51 -PORT # 100 -BYTE # 52 -PORT # 100 -BYTE # 53 -PORT # 100 -BYTE # 54 -PORT # 100 -BYTE # 55 -PORT # 100 -BYTE # 56 -PORT # 100 -BYTE # 57 -PORT # 100 -BYTE # 58 -PORT # 100 -BYTE # 59 -PORT # 100 -BYTE # 60 -PORT # 100 -BYTE # 61 -PORT # 100 -BYTE # 62 -PORT # 100 -BYTE # 63 -PORT # 100 -BYTE # 64 -PORT # 100 -BYTE # 65 -PORT # 100 -BYTE # 66 -PORT # 100 -BYTE # 67 -PORT # 100 -BYTE # 68 -PORT # 100 -BYTE # 69 -PORT # 100 -BYTE # 70 -PORT # 100 -BYTE # 71 -PORT # 100 -BYTE # 72 -PORT # 100 -BYTE # 73 -PORT # 100 -BYTE # 74 -PORT # 100 -BYTE # 75 -PORT # 100 -BYTE # 76 -PORT # 100 -BYTE # 77 -PORT # 100 -BYTE # 78 -PORT # 100 -BYTE # 79 -PORT # 100 -BYTE # 80 -PORT # 100 -BYTE # 81 -PORT # 100 -BYTE # 82 -PORT # 100 -BYTE # 83 -PORT # 100 -BYTE # 84 -PORT # 100 -BYTE # 85 -PORT # 100 -BYTE # 86 -PORT # 100 -BYTE # 87 -PORT # 100 -BYTE # 88 -PORT # 100 -BYTE # 89 -PORT # 100 -BYTE # 90 -PORT # 100 -BYTE # 91 -PORT # 100 -BYTE # 92 -PORT # 100 -BYTE # 93 -PORT # 100 -BYTE # 94 -PORT # 100 -BYTE # 95 -PORT # 100 -BYTE # 96 -PORT # 100 -BYTE # 97 -PORT # 100 -BYTE # 98 -PORT # 100 -BYTE # 99 -PORT # 100 -BYTE # 100 -PORT # 100 -BYTE # 101 -PORT # 100 -BYTE # 102 -PORT # 100 -BYTE # 103 -PORT # 100 -BYTE # 104 -PORT # 100 -BYTE # 105 -PORT # 100 -BYTE # 106 -PORT # 100 -BYTE # 107 -PORT # 100 -BYTE # 108 -PORT # 100 -BYTE # 109 -PORT # 100 -BYTE # 110 -PORT # 100 -BYTE # 111 -PORT # 100 -BYTE # 112 -PORT # 100 -BYTE # 113 -PORT # 100 -BYTE # 114 -PORT # 100 -BYTE # 115 -PORT # 100 -BYTE # 116 -PORT # 100 -BYTE # 117 -PORT # 100 -BYTE # 118 -PORT # 100 -BYTE # 119 -PORT # 100 -BYTE # 120 -PORT # 100 -BYTE # 121 -PORT # 100 -BYTE # 122 -PORT # 100 -BYTE # 123 -PORT # 100 -BYTE # 124 -PORT # 100 -BYTE # 125 -PORT # 100 -BYTE # 126 -PORT # 100 -BYTE # 127 -PORT # 100 -BYTE # 128 -PORT # 100 -BYTE # 129 -PORT # 100 -BYTE # 130 -PORT # 100 -BYTE # 131 -PORT # 100 -BYTE # 132 -PORT # 100 -BYTE # 133 -PORT # 100 -BYTE # 134 -PORT # 100 -BYTE # 135 -PORT # 100 -BYTE # 136 -PORT # 100 -BYTE # 137 -PORT # 100 -BYTE # 138 -PORT # 100 -BYTE # 139 -PORT # 100 -BYTE # 140 -PORT # 100 -BYTE # 141 -PORT # 100 -BYTE # 142 -PORT # 100 -BYTE # 143 -PORT # 100 -BYTE # 144 -PORT # 100 -BYTE # 145 -PORT # 100 -BYTE # 146 -PORT # 100 -BYTE # 147 -PORT # 100 -BYTE # 148 -PORT # 100 -BYTE # 149 -PORT # 100 -BYTE # 150 -PORT # 100 -BYTE # 151 -PORT # 100 -BYTE # 152 -PORT # 100 -BYTE # 153 -PORT # 100 -BYTE # 154 -PORT # 100 -BYTE # 155 -PORT # 100 -BYTE # 156 -PORT # 100 -BYTE # 157 -PORT # 100 -BYTE # 158 -PORT # 100 -BYTE # 159 -PORT # 100 -BYTE # 160 -PORT # 100 -BYTE # 161 -PORT # 100 -BYTE # 162 -PORT # 100 -BYTE # 163 -PORT # 100 -BYTE # 164 -PORT # 100 -BYTE # 165 -PORT # 100 -BYTE # 166 -PORT # 100 -BYTE # 167 -PORT # 100 -BYTE # 168 -PORT # 100 -BYTE # 169 -PORT # 100 -BYTE # 170 -PORT # 100 -BYTE # 171 -PORT # 100 -BYTE # 172 -PORT # 100 -BYTE # 173 -PORT # 100 -BYTE # 174 -PORT # 100 -BYTE # 175 -PORT # 100 -BYTE # 176 -PORT # 100 -BYTE # 177 -PORT # 100 -BYTE # 178 -PORT # 100 -BYTE # 179 -PORT # 100 -BYTE # 180 -PORT # 100 -BYTE # 181 -PORT # 100 -BYTE # 182 -PORT # 100 -BYTE # 183 -PORT # 100 -BYTE # 184 -PORT # 100 -BYTE # 185 -PORT # 100 -BYTE # 186 -PORT # 100 -BYTE # 187 -PORT # 100 -BYTE # 188 -PORT # 100 -BYTE # 189 -PORT # 100 -BYTE # 190 -PORT # 100 -BYTE # 191 -PORT # 100 -BYTE # 192 -PORT # 100 -BYTE # 193 -PORT # 100 -BYTE # 194 -PORT # 100 -BYTE # 195 -PORT # 100 -BYTE # 196 -PORT # 100 -BYTE # 197 -PORT # 100 -BYTE # 198 -PORT # 100 -BYTE # 199 -PORT # 100 -BYTE # 200 -PORT # 100 -BYTE # 201 -PORT # 100 -BYTE # 202 -PORT # 100 -BYTE # 203 -PORT # 100 -BYTE # 204 -PORT # 100 -BYTE # 205 -PORT # 100 -BYTE # 206 -PORT # 100 -BYTE # 207 -PORT # 100 -BYTE # 208 -PORT # 100 -BYTE # 209 -PORT # 100 -BYTE # 210 -PORT # 100 -BYTE # 211 -PORT # 100 -BYTE # 212 -PORT # 100 -BYTE # 213 -PORT # 100 -BYTE # 214 -PORT # 100 -BYTE # 215 -PORT # 100 -BYTE # 216 -PORT # 100 -BYTE # 217 -PORT # 100 -BYTE # 218 -PORT # 100 -BYTE # 219 -PORT # 100 -BYTE # 220 -PORT # 100 -BYTE # 221 -PORT # 100 -BYTE # 222 -PORT # 100 -BYTE # 223 -PORT # 100 -BYTE # 224 -PORT # 100 -BYTE # 225 -PORT # 100 -BYTE # 226 -PORT # 100 -BYTE # 227 -PORT # 100 -BYTE # 228 -PORT # 100 -BYTE # 229 -PORT # 100 -BYTE # 230 -PORT # 100 -BYTE # 231 -PORT # 100 -BYTE # 232 -PORT # 100 -BYTE # 233 -PORT # 100 -BYTE # 234 -PORT # 100 -BYTE # 235 -PORT # 100 -BYTE # 236 -PORT # 100 -BYTE # 237 -PORT # 100 -BYTE # 238 -PORT # 100 -BYTE # 239 -PORT # 100 -BYTE # 240 -PORT # 100 -BYTE # 241 -PORT # 100 -BYTE # 242 -PORT # 100 -BYTE # 243 -PORT # 100 -BYTE # 244 -PORT # 100 -BYTE # 245 -PORT # 100 -BYTE # 246 -PORT # 100 -BYTE # 247 -PORT # 100 -BYTE # 248 -PORT # 100 -BYTE # 249 -PORT # 100 -BYTE # 250 -PORT # 100 -BYTE # 251 -PORT # 100 -BYTE # 252 -PORT # 100 -BYTE # 253 -PORT # 100 -BYTE # 254 -PORT # 100 -BYTE # 255 -PORT # 101 -BYTE # 0 -PORT # 101 -BYTE # 1 -PORT # 101 -BYTE # 2 -PORT # 101 -BYTE # 3 -PORT # 101 -BYTE # 4 -PORT # 101 -BYTE # 5 -PORT # 101 -BYTE # 6 -PORT # 101 -BYTE # 7 -PORT # 101 -BYTE # 8 -PORT # 101 -BYTE # 9 -PORT # 101 -BYTE # 10 -PORT # 101 -BYTE # 11 -PORT # 101 -BYTE # 12 -PORT # 101 -BYTE # 13 -PORT # 101 -BYTE # 14 -PORT # 101 -BYTE # 15 -PORT # 101 -BYTE # 16 -PORT # 101 -BYTE # 17 -PORT # 101 -BYTE # 18 -PORT # 101 -BYTE # 19 -PORT # 101 -BYTE # 20 -PORT # 101 -BYTE # 21 -PORT # 101 -BYTE # 22 -PORT # 101 -BYTE # 23 -PORT # 101 -BYTE # 24 -PORT # 101 -BYTE # 25 -PORT # 101 -BYTE # 26 -PORT # 101 -BYTE # 27 -PORT # 101 -BYTE # 28 -PORT # 101 -BYTE # 29 -PORT # 101 -BYTE # 30 -PORT # 101 -BYTE # 31 -PORT # 101 -BYTE # 32 -PORT # 101 -BYTE # 33 -PORT # 101 -BYTE # 34 -PORT # 101 -BYTE # 35 -PORT # 101 -BYTE # 36 -PORT # 101 -BYTE # 37 -PORT # 101 -BYTE # 38 -PORT # 101 -BYTE # 39 -PORT # 101 -BYTE # 40 -PORT # 101 -BYTE # 41 -PORT # 101 -BYTE # 42 -PORT # 101 -BYTE # 43 -PORT # 101 -BYTE # 44 -PORT # 101 -BYTE # 45 -PORT # 101 -BYTE # 46 -PORT # 101 -BYTE # 47 -PORT # 101 -BYTE # 48 -PORT # 101 -BYTE # 49 -PORT # 101 -BYTE # 50 -PORT # 101 -BYTE # 51 -PORT # 101 -BYTE # 52 -PORT # 101 -BYTE # 53 -PORT # 101 -BYTE # 54 -PORT # 101 -BYTE # 55 -PORT # 101 -BYTE # 56 -PORT # 101 -BYTE # 57 -PORT # 101 -BYTE # 58 -PORT # 101 -BYTE # 59 -PORT # 101 -BYTE # 60 -PORT # 101 -BYTE # 61 -PORT # 101 -BYTE # 62 -PORT # 101 -BYTE # 63 -PORT # 101 -BYTE # 64 -PORT # 101 -BYTE # 65 -PORT # 101 -BYTE # 66 -PORT # 101 -BYTE # 67 -PORT # 101 -BYTE # 68 -PORT # 101 -BYTE # 69 -PORT # 101 -BYTE # 70 -PORT # 101 -BYTE # 71 -PORT # 101 -BYTE # 72 -PORT # 101 -BYTE # 73 -PORT # 101 -BYTE # 74 -PORT # 101 -BYTE # 75 -PORT # 101 -BYTE # 76 -PORT # 101 -BYTE # 77 -PORT # 101 -BYTE # 78 -PORT # 101 -BYTE # 79 -PORT # 101 -BYTE # 80 -PORT # 101 -BYTE # 81 -PORT # 101 -BYTE # 82 -PORT # 101 -BYTE # 83 -PORT # 101 -BYTE # 84 -PORT # 101 -BYTE # 85 -PORT # 101 -BYTE # 86 -PORT # 101 -BYTE # 87 -PORT # 101 -BYTE # 88 -PORT # 101 -BYTE # 89 -PORT # 101 -BYTE # 90 -PORT # 101 -BYTE # 91 -PORT # 101 -BYTE # 92 -PORT # 101 -BYTE # 93 -PORT # 101 -BYTE # 94 -PORT # 101 -BYTE # 95 -PORT # 101 -BYTE # 96 -PORT # 101 -BYTE # 97 -PORT # 101 -BYTE # 98 -PORT # 101 -BYTE # 99 -PORT # 101 -BYTE # 100 -PORT # 101 -BYTE # 101 -PORT # 101 -BYTE # 102 -PORT # 101 -BYTE # 103 -PORT # 101 -BYTE # 104 -PORT # 101 -BYTE # 105 -PORT # 101 -BYTE # 106 -PORT # 101 -BYTE # 107 -PORT # 101 -BYTE # 108 -PORT # 101 -BYTE # 109 -PORT # 101 -BYTE # 110 -PORT # 101 -BYTE # 111 -PORT # 101 -BYTE # 112 -PORT # 101 -BYTE # 113 -PORT # 101 -BYTE # 114 -PORT # 101 -BYTE # 115 -PORT # 101 -BYTE # 116 -PORT # 101 -BYTE # 117 -PORT # 101 -BYTE # 118 -PORT # 101 -BYTE # 119 -PORT # 101 -BYTE # 120 -PORT # 101 -BYTE # 121 -PORT # 101 -BYTE # 122 -PORT # 101 -BYTE # 123 -PORT # 101 -BYTE # 124 -PORT # 101 -BYTE # 125 -PORT # 101 -BYTE # 126 -PORT # 101 -BYTE # 127 -PORT # 101 -BYTE # 128 -PORT # 101 -BYTE # 129 -PORT # 101 -BYTE # 130 -PORT # 101 -BYTE # 131 -PORT # 101 -BYTE # 132 -PORT # 101 -BYTE # 133 -PORT # 101 -BYTE # 134 -PORT # 101 -BYTE # 135 -PORT # 101 -BYTE # 136 -PORT # 101 -BYTE # 137 -PORT # 101 -BYTE # 138 -PORT # 101 -BYTE # 139 -PORT # 101 -BYTE # 140 -PORT # 101 -BYTE # 141 -PORT # 101 -BYTE # 142 -PORT # 101 -BYTE # 143 -PORT # 101 -BYTE # 144 -PORT # 101 -BYTE # 145 -PORT # 101 -BYTE # 146 -PORT # 101 -BYTE # 147 -PORT # 101 -BYTE # 148 -PORT # 101 -BYTE # 149 -PORT # 101 -BYTE # 150 -PORT # 101 -BYTE # 151 -PORT # 101 -BYTE # 152 -PORT # 101 -BYTE # 153 -PORT # 101 -BYTE # 154 -PORT # 101 -BYTE # 155 -PORT # 101 -BYTE # 156 -PORT # 101 -BYTE # 157 -PORT # 101 -BYTE # 158 -PORT # 101 -BYTE # 159 -PORT # 101 -BYTE # 160 -PORT # 101 -BYTE # 161 -PORT # 101 -BYTE # 162 -PORT # 101 -BYTE # 163 -PORT # 101 -BYTE # 164 -PORT # 101 -BYTE # 165 -PORT # 101 -BYTE # 166 -PORT # 101 -BYTE # 167 -PORT # 101 -BYTE # 168 -PORT # 101 -BYTE # 169 -PORT # 101 -BYTE # 170 -PORT # 101 -BYTE # 171 -PORT # 101 -BYTE # 172 -PORT # 101 -BYTE # 173 -PORT # 101 -BYTE # 174 -PORT # 101 -BYTE # 175 -PORT # 101 -BYTE # 176 -PORT # 101 -BYTE # 177 -PORT # 101 -BYTE # 178 -PORT # 101 -BYTE # 179 -PORT # 101 -BYTE # 180 -PORT # 101 -BYTE # 181 -PORT # 101 -BYTE # 182 -PORT # 101 -BYTE # 183 -PORT # 101 -BYTE # 184 -PORT # 101 -BYTE # 185 -PORT # 101 -BYTE # 186 -PORT # 101 -BYTE # 187 -PORT # 101 -BYTE # 188 -PORT # 101 -BYTE # 189 -PORT # 101 -BYTE # 190 -PORT # 101 -BYTE # 191 -PORT # 101 -BYTE # 192 -PORT # 101 -BYTE # 193 -PORT # 101 -BYTE # 194 -PORT # 101 -BYTE # 195 -PORT # 101 -BYTE # 196 -PORT # 101 -BYTE # 197 -PORT # 101 -BYTE # 198 -PORT # 101 -BYTE # 199 -PORT # 101 -BYTE # 200 -PORT # 101 -BYTE # 201 -PORT # 101 -BYTE # 202 -PORT # 101 -BYTE # 203 -PORT # 101 -BYTE # 204 -PORT # 101 -BYTE # 205 -PORT # 101 -BYTE # 206 -PORT # 101 -BYTE # 207 -PORT # 101 -BYTE # 208 -PORT # 101 -BYTE # 209 -PORT # 101 -BYTE # 210 -PORT # 101 -BYTE # 211 -PORT # 101 -BYTE # 212 -PORT # 101 -BYTE # 213 -PORT # 101 -BYTE # 214 -PORT # 101 -BYTE # 215 -PORT # 101 -BYTE # 216 -PORT # 101 -BYTE # 217 -PORT # 101 -BYTE # 218 -PORT # 101 -BYTE # 219 -PORT # 101 -BYTE # 220 -PORT # 101 -BYTE # 221 -PORT # 101 -BYTE # 222 -PORT # 101 -BYTE # 223 -PORT # 101 -BYTE # 224 -PORT # 101 -BYTE # 225 -PORT # 101 -BYTE # 226 -PORT # 101 -BYTE # 227 -PORT # 101 -BYTE # 228 -PORT # 101 -BYTE # 229 -PORT # 101 -BYTE # 230 -PORT # 101 -BYTE # 231 -PORT # 101 -BYTE # 232 -PORT # 101 -BYTE # 233 -PORT # 101 -BYTE # 234 -PORT # 101 -BYTE # 235 -PORT # 101 -BYTE # 236 -PORT # 101 -BYTE # 237 -PORT # 101 -BYTE # 238 -PORT # 101 -BYTE # 239 -PORT # 101 -BYTE # 240 -PORT # 101 -BYTE # 241 -PORT # 101 -BYTE # 242 -PORT # 101 -BYTE # 243 -PORT # 101 -BYTE # 244 -PORT # 101 -BYTE # 245 -PORT # 101 -BYTE # 246 -PORT # 101 -BYTE # 247 -PORT # 101 -BYTE # 248 -PORT # 101 -BYTE # 249 -PORT # 101 -BYTE # 250 -PORT # 101 -BYTE # 251 -PORT # 101 -BYTE # 252 -PORT # 101 -BYTE # 253 -PORT # 101 -BYTE # 254 -PORT # 101 -BYTE # 255 -PORT # 102 -BYTE # 0 -PORT # 102 -BYTE # 1 -PORT # 102 -BYTE # 2 -PORT # 102 -BYTE # 3 -PORT # 102 -BYTE # 4 -PORT # 102 -BYTE # 5 -PORT # 102 -BYTE # 6 -PORT # 102 -BYTE # 7 -PORT # 102 -BYTE # 8 -PORT # 102 -BYTE # 9 -PORT # 102 -BYTE # 10 -PORT # 102 -BYTE # 11 -PORT # 102 -BYTE # 12 -PORT # 102 -BYTE # 13 -PORT # 102 -BYTE # 14 -PORT # 102 -BYTE # 15 -PORT # 102 -BYTE # 16 -PORT # 102 -BYTE # 17 -PORT # 102 -BYTE # 18 -PORT # 102 -BYTE # 19 -PORT # 102 -BYTE # 20 -PORT # 102 -BYTE # 21 -PORT # 102 -BYTE # 22 -PORT # 102 -BYTE # 23 -PORT # 102 -BYTE # 24 -PORT # 102 -BYTE # 25 -PORT # 102 -BYTE # 26 -PORT # 102 -BYTE # 27 -PORT # 102 -BYTE # 28 -PORT # 102 -BYTE # 29 -PORT # 102 -BYTE # 30 -PORT # 102 -BYTE # 31 -PORT # 102 -BYTE # 32 -PORT # 102 -BYTE # 33 -PORT # 102 -BYTE # 34 -PORT # 102 -BYTE # 35 -PORT # 102 -BYTE # 36 -PORT # 102 -BYTE # 37 -PORT # 102 -BYTE # 38 -PORT # 102 -BYTE # 39 -PORT # 102 -BYTE # 40 -PORT # 102 -BYTE # 41 -PORT # 102 -BYTE # 42 -PORT # 102 -BYTE # 43 -PORT # 102 -BYTE # 44 -PORT # 102 -BYTE # 45 -PORT # 102 -BYTE # 46 -PORT # 102 -BYTE # 47 -PORT # 102 -BYTE # 48 -PORT # 102 -BYTE # 49 -PORT # 102 -BYTE # 50 -PORT # 102 -BYTE # 51 -PORT # 102 -BYTE # 52 -PORT # 102 -BYTE # 53 -PORT # 102 -BYTE # 54 -PORT # 102 -BYTE # 55 -PORT # 102 -BYTE # 56 -PORT # 102 -BYTE # 57 -PORT # 102 -BYTE # 58 -PORT # 102 -BYTE # 59 -PORT # 102 -BYTE # 60 -PORT # 102 -BYTE # 61 -PORT # 102 -BYTE # 62 -PORT # 102 -BYTE # 63 -PORT # 102 -BYTE # 64 -PORT # 102 -BYTE # 65 -PORT # 102 -BYTE # 66 -PORT # 102 -BYTE # 67 -PORT # 102 -BYTE # 68 -PORT # 102 -BYTE # 69 -PORT # 102 -BYTE # 70 -PORT # 102 -BYTE # 71 -PORT # 102 -BYTE # 72 -PORT # 102 -BYTE # 73 -PORT # 102 -BYTE # 74 -PORT # 102 -BYTE # 75 -PORT # 102 -BYTE # 76 -PORT # 102 -BYTE # 77 -PORT # 102 -BYTE # 78 -PORT # 102 -BYTE # 79 -PORT # 102 -BYTE # 80 -PORT # 102 -BYTE # 81 -PORT # 102 -BYTE # 82 -PORT # 102 -BYTE # 83 -PORT # 102 -BYTE # 84 -PORT # 102 -BYTE # 85 -PORT # 102 -BYTE # 86 -PORT # 102 -BYTE # 87 -PORT # 102 -BYTE # 88 -PORT # 102 -BYTE # 89 -PORT # 102 -BYTE # 90 -PORT # 102 -BYTE # 91 -PORT # 102 -BYTE # 92 -PORT # 102 -BYTE # 93 -PORT # 102 -BYTE # 94 -PORT # 102 -BYTE # 95 -PORT # 102 -BYTE # 96 -PORT # 102 -BYTE # 97 -PORT # 102 -BYTE # 98 -PORT # 102 -BYTE # 99 -PORT # 102 -BYTE # 100 -PORT # 102 -BYTE # 101 -PORT # 102 -BYTE # 102 -PORT # 102 -BYTE # 103 -PORT # 102 -BYTE # 104 -PORT # 102 -BYTE # 105 -PORT # 102 -BYTE # 106 -PORT # 102 -BYTE # 107 -PORT # 102 -BYTE # 108 -PORT # 102 -BYTE # 109 -PORT # 102 -BYTE # 110 -PORT # 102 -BYTE # 111 -PORT # 102 -BYTE # 112 -PORT # 102 -BYTE # 113 -PORT # 102 -BYTE # 114 -PORT # 102 -BYTE # 115 -PORT # 102 -BYTE # 116 -PORT # 102 -BYTE # 117 -PORT # 102 -BYTE # 118 -PORT # 102 -BYTE # 119 -PORT # 102 -BYTE # 120 -PORT # 102 -BYTE # 121 -PORT # 102 -BYTE # 122 -PORT # 102 -BYTE # 123 -PORT # 102 -BYTE # 124 -PORT # 102 -BYTE # 125 -PORT # 102 -BYTE # 126 -PORT # 102 -BYTE # 127 -PORT # 102 -BYTE # 128 -PORT # 102 -BYTE # 129 -PORT # 102 -BYTE # 130 -PORT # 102 -BYTE # 131 -PORT # 102 -BYTE # 132 -PORT # 102 -BYTE # 133 -PORT # 102 -BYTE # 134 -PORT # 102 -BYTE # 135 -PORT # 102 -BYTE # 136 -PORT # 102 -BYTE # 137 -PORT # 102 -BYTE # 138 -PORT # 102 -BYTE # 139 -PORT # 102 -BYTE # 140 -PORT # 102 -BYTE # 141 -PORT # 102 -BYTE # 142 -PORT # 102 -BYTE # 143 -PORT # 102 -BYTE # 144 -PORT # 102 -BYTE # 145 -PORT # 102 -BYTE # 146 -PORT # 102 -BYTE # 147 -PORT # 102 -BYTE # 148 -PORT # 102 -BYTE # 149 -PORT # 102 -BYTE # 150 -PORT # 102 -BYTE # 151 -PORT # 102 -BYTE # 152 -PORT # 102 -BYTE # 153 -PORT # 102 -BYTE # 154 -PORT # 102 -BYTE # 155 -PORT # 102 -BYTE # 156 -PORT # 102 -BYTE # 157 -PORT # 102 -BYTE # 158 -PORT # 102 -BYTE # 159 -PORT # 102 -BYTE # 160 -PORT # 102 -BYTE # 161 -PORT # 102 -BYTE # 162 -PORT # 102 -BYTE # 163 -PORT # 102 -BYTE # 164 -PORT # 102 -BYTE # 165 -PORT # 102 -BYTE # 166 -PORT # 102 -BYTE # 167 -PORT # 102 -BYTE # 168 -PORT # 102 -BYTE # 169 -PORT # 102 -BYTE # 170 -PORT # 102 -BYTE # 171 -PORT # 102 -BYTE # 172 -PORT # 102 -BYTE # 173 -PORT # 102 -BYTE # 174 -PORT # 102 -BYTE # 175 -PORT # 102 -BYTE # 176 -PORT # 102 -BYTE # 177 -PORT # 102 -BYTE # 178 -PORT # 102 -BYTE # 179 -PORT # 102 -BYTE # 180 -PORT # 102 -BYTE # 181 -PORT # 102 -BYTE # 182 -PORT # 102 -BYTE # 183 -PORT # 102 -BYTE # 184 -PORT # 102 -BYTE # 185 -PORT # 102 -BYTE # 186 -PORT # 102 -BYTE # 187 -PORT # 102 -BYTE # 188 -PORT # 102 -BYTE # 189 -PORT # 102 -BYTE # 190 -PORT # 102 -BYTE # 191 -PORT # 102 -BYTE # 192 -PORT # 102 -BYTE # 193 -PORT # 102 -BYTE # 194 -PORT # 102 -BYTE # 195 -PORT # 102 -BYTE # 196 -PORT # 102 -BYTE # 197 -PORT # 102 -BYTE # 198 -PORT # 102 -BYTE # 199 -PORT # 102 -BYTE # 200 -PORT # 102 -BYTE # 201 -PORT # 102 -BYTE # 202 -PORT # 102 -BYTE # 203 -PORT # 102 -BYTE # 204 -PORT # 102 -BYTE # 205 -PORT # 102 -BYTE # 206 -PORT # 102 -BYTE # 207 -PORT # 102 -BYTE # 208 -PORT # 102 -BYTE # 209 -PORT # 102 -BYTE # 210 -PORT # 102 -BYTE # 211 -PORT # 102 -BYTE # 212 -PORT # 102 -BYTE # 213 -PORT # 102 -BYTE # 214 -PORT # 102 -BYTE # 215 -PORT # 102 -BYTE # 216 -PORT # 102 -BYTE # 217 -PORT # 102 -BYTE # 218 -PORT # 102 -BYTE # 219 -PORT # 102 -BYTE # 220 -PORT # 102 -BYTE # 221 -PORT # 102 -BYTE # 222 -PORT # 102 -BYTE # 223 -PORT # 102 -BYTE # 224 -PORT # 102 -BYTE # 225 -PORT # 102 -BYTE # 226 -PORT # 102 -BYTE # 227 -PORT # 102 -BYTE # 228 -PORT # 102 -BYTE # 229 -PORT # 102 -BYTE # 230 -PORT # 102 -BYTE # 231 -PORT # 102 -BYTE # 232 -PORT # 102 -BYTE # 233 -PORT # 102 -BYTE # 234 -PORT # 102 -BYTE # 235 -PORT # 102 -BYTE # 236 -PORT # 102 -BYTE # 237 -PORT # 102 -BYTE # 238 -PORT # 102 -BYTE # 239 -PORT # 102 -BYTE # 240 -PORT # 102 -BYTE # 241 -PORT # 102 -BYTE # 242 -PORT # 102 -BYTE # 243 -PORT # 102 -BYTE # 244 -PORT # 102 -BYTE # 245 -PORT # 102 -BYTE # 246 -PORT # 102 -BYTE # 247 -PORT # 102 -BYTE # 248 -PORT # 102 -BYTE # 249 -PORT # 102 -BYTE # 250 -PORT # 102 -BYTE # 251 -PORT # 102 -BYTE # 252 -PORT # 102 -BYTE # 253 -PORT # 102 -BYTE # 254 -PORT # 102 -BYTE # 255 -PORT # 103 -BYTE # 0 -PORT # 103 -BYTE # 1 -PORT # 103 -BYTE # 2 -PORT # 103 -BYTE # 3 -PORT # 103 -BYTE # 4 -PORT # 103 -BYTE # 5 -PORT # 103 -BYTE # 6 -PORT # 103 -BYTE # 7 -PORT # 103 -BYTE # 8 -PORT # 103 -BYTE # 9 -PORT # 103 -BYTE # 10 -PORT # 103 -BYTE # 11 -PORT # 103 -BYTE # 12 -PORT # 103 -BYTE # 13 -PORT # 103 -BYTE # 14 -PORT # 103 -BYTE # 15 -PORT # 103 -BYTE # 16 -PORT # 103 -BYTE # 17 -PORT # 103 -BYTE # 18 -PORT # 103 -BYTE # 19 -PORT # 103 -BYTE # 20 -PORT # 103 -BYTE # 21 -PORT # 103 -BYTE # 22 -PORT # 103 -BYTE # 23 -PORT # 103 -BYTE # 24 -PORT # 103 -BYTE # 25 -PORT # 103 -BYTE # 26 -PORT # 103 -BYTE # 27 -PORT # 103 -BYTE # 28 -PORT # 103 -BYTE # 29 -PORT # 103 -BYTE # 30 -PORT # 103 -BYTE # 31 -PORT # 103 -BYTE # 32 -PORT # 103 -BYTE # 33 -PORT # 103 -BYTE # 34 -PORT # 103 -BYTE # 35 -PORT # 103 -BYTE # 36 -PORT # 103 -BYTE # 37 -PORT # 103 -BYTE # 38 -PORT # 103 -BYTE # 39 -PORT # 103 -BYTE # 40 -PORT # 103 -BYTE # 41 -PORT # 103 -BYTE # 42 -PORT # 103 -BYTE # 43 -PORT # 103 -BYTE # 44 -PORT # 103 -BYTE # 45 -PORT # 103 -BYTE # 46 -PORT # 103 -BYTE # 47 -PORT # 103 -BYTE # 48 -PORT # 103 -BYTE # 49 -PORT # 103 -BYTE # 50 -PORT # 103 -BYTE # 51 -PORT # 103 -BYTE # 52 -PORT # 103 -BYTE # 53 -PORT # 103 -BYTE # 54 -PORT # 103 -BYTE # 55 -PORT # 103 -BYTE # 56 -PORT # 103 -BYTE # 57 -PORT # 103 -BYTE # 58 -PORT # 103 -BYTE # 59 -PORT # 103 -BYTE # 60 -PORT # 103 -BYTE # 61 -PORT # 103 -BYTE # 62 -PORT # 103 -BYTE # 63 -PORT # 103 -BYTE # 64 -PORT # 103 -BYTE # 65 -PORT # 103 -BYTE # 66 -PORT # 103 -BYTE # 67 -PORT # 103 -BYTE # 68 -PORT # 103 -BYTE # 69 -PORT # 103 -BYTE # 70 -PORT # 103 -BYTE # 71 -PORT # 103 -BYTE # 72 -PORT # 103 -BYTE # 73 -PORT # 103 -BYTE # 74 -PORT # 103 -BYTE # 75 -PORT # 103 -BYTE # 76 -PORT # 103 -BYTE # 77 -PORT # 103 -BYTE # 78 -PORT # 103 -BYTE # 79 -PORT # 103 -BYTE # 80 -PORT # 103 -BYTE # 81 -PORT # 103 -BYTE # 82 -PORT # 103 -BYTE # 83 -PORT # 103 -BYTE # 84 -PORT # 103 -BYTE # 85 -PORT # 103 -BYTE # 86 -PORT # 103 -BYTE # 87 -PORT # 103 -BYTE # 88 -PORT # 103 -BYTE # 89 -PORT # 103 -BYTE # 90 -PORT # 103 -BYTE # 91 -PORT # 103 -BYTE # 92 -PORT # 103 -BYTE # 93 -PORT # 103 -BYTE # 94 -PORT # 103 -BYTE # 95 -PORT # 103 -BYTE # 96 -PORT # 103 -BYTE # 97 -PORT # 103 -BYTE # 98 -PORT # 103 -BYTE # 99 -PORT # 103 -BYTE # 100 -PORT # 103 -BYTE # 101 -PORT # 103 -BYTE # 102 -PORT # 103 -BYTE # 103 -PORT # 103 -BYTE # 104 -PORT # 103 -BYTE # 105 -PORT # 103 -BYTE # 106 -PORT # 103 -BYTE # 107 -PORT # 103 -BYTE # 108 -PORT # 103 -BYTE # 109 -PORT # 103 -BYTE # 110 -PORT # 103 -BYTE # 111 -PORT # 103 -BYTE # 112 -PORT # 103 -BYTE # 113 -PORT # 103 -BYTE # 114 -PORT # 103 -BYTE # 115 -PORT # 103 -BYTE # 116 -PORT # 103 -BYTE # 117 -PORT # 103 -BYTE # 118 -PORT # 103 -BYTE # 119 -PORT # 103 -BYTE # 120 -PORT # 103 -BYTE # 121 -PORT # 103 -BYTE # 122 -PORT # 103 -BYTE # 123 -PORT # 103 -BYTE # 124 -PORT # 103 -BYTE # 125 -PORT # 103 -BYTE # 126 -PORT # 103 -BYTE # 127 -PORT # 103 -BYTE # 128 -PORT # 103 -BYTE # 129 -PORT # 103 -BYTE # 130 -PORT # 103 -BYTE # 131 -PORT # 103 -BYTE # 132 -PORT # 103 -BYTE # 133 -PORT # 103 -BYTE # 134 -PORT # 103 -BYTE # 135 -PORT # 103 -BYTE # 136 -PORT # 103 -BYTE # 137 -PORT # 103 -BYTE # 138 -PORT # 103 -BYTE # 139 -PORT # 103 -BYTE # 140 -PORT # 103 -BYTE # 141 -PORT # 103 -BYTE # 142 -PORT # 103 -BYTE # 143 -PORT # 103 -BYTE # 144 -PORT # 103 -BYTE # 145 -PORT # 103 -BYTE # 146 -PORT # 103 -BYTE # 147 -PORT # 103 -BYTE # 148 -PORT # 103 -BYTE # 149 -PORT # 103 -BYTE # 150 -PORT # 103 -BYTE # 151 -PORT # 103 -BYTE # 152 -PORT # 103 -BYTE # 153 -PORT # 103 -BYTE # 154 -PORT # 103 -BYTE # 155 -PORT # 103 -BYTE # 156 -PORT # 103 -BYTE # 157 -PORT # 103 -BYTE # 158 -PORT # 103 -BYTE # 159 -PORT # 103 -BYTE # 160 -PORT # 103 -BYTE # 161 -PORT # 103 -BYTE # 162 -PORT # 103 -BYTE # 163 -PORT # 103 -BYTE # 164 -PORT # 103 -BYTE # 165 -PORT # 103 -BYTE # 166 -PORT # 103 -BYTE # 167 -PORT # 103 -BYTE # 168 -PORT # 103 -BYTE # 169 -PORT # 103 -BYTE # 170 -PORT # 103 -BYTE # 171 -PORT # 103 -BYTE # 172 -PORT # 103 -BYTE # 173 -PORT # 103 -BYTE # 174 -PORT # 103 -BYTE # 175 -PORT # 103 -BYTE # 176 -PORT # 103 -BYTE # 177 -PORT # 103 -BYTE # 178 -PORT # 103 -BYTE # 179 -PORT # 103 -BYTE # 180 -PORT # 103 -BYTE # 181 -PORT # 103 -BYTE # 182 -PORT # 103 -BYTE # 183 -PORT # 103 -BYTE # 184 -PORT # 103 -BYTE # 185 -PORT # 103 -BYTE # 186 -PORT # 103 -BYTE # 187 -PORT # 103 -BYTE # 188 -PORT # 103 -BYTE # 189 -PORT # 103 -BYTE # 190 -PORT # 103 -BYTE # 191 -PORT # 103 -BYTE # 192 -PORT # 103 -BYTE # 193 -PORT # 103 -BYTE # 194 -PORT # 103 -BYTE # 195 -PORT # 103 -BYTE # 196 -PORT # 103 -BYTE # 197 -PORT # 103 -BYTE # 198 -PORT # 103 -BYTE # 199 -PORT # 103 -BYTE # 200 -PORT # 103 -BYTE # 201 -PORT # 103 -BYTE # 202 -PORT # 103 -BYTE # 203 -PORT # 103 -BYTE # 204 -PORT # 103 -BYTE # 205 -PORT # 103 -BYTE # 206 -PORT # 103 -BYTE # 207 -PORT # 103 -BYTE # 208 -PORT # 103 -BYTE # 209 -PORT # 103 -BYTE # 210 -PORT # 103 -BYTE # 211 -PORT # 103 -BYTE # 212 -PORT # 103 -BYTE # 213 -PORT # 103 -BYTE # 214 -PORT # 103 -BYTE # 215 -PORT # 103 -BYTE # 216 -PORT # 103 -BYTE # 217 -PORT # 103 -BYTE # 218 -PORT # 103 -BYTE # 219 -PORT # 103 -BYTE # 220 -PORT # 103 -BYTE # 221 -PORT # 103 -BYTE # 222 -PORT # 103 -BYTE # 223 -PORT # 103 -BYTE # 224 -PORT # 103 -BYTE # 225 -PORT # 103 -BYTE # 226 -PORT # 103 -BYTE # 227 -PORT # 103 -BYTE # 228 -PORT # 103 -BYTE # 229 -PORT # 103 -BYTE # 230 -PORT # 103 -BYTE # 231 -PORT # 103 -BYTE # 232 -PORT # 103 -BYTE # 233 -PORT # 103 -BYTE # 234 -PORT # 103 -BYTE # 235 -PORT # 103 -BYTE # 236 -PORT # 103 -BYTE # 237 -PORT # 103 -BYTE # 238 -PORT # 103 -BYTE # 239 -PORT # 103 -BYTE # 240 -PORT # 103 -BYTE # 241 -PORT # 103 -BYTE # 242 -PORT # 103 -BYTE # 243 -PORT # 103 -BYTE # 244 -PORT # 103 -BYTE # 245 -PORT # 103 -BYTE # 246 -PORT # 103 -BYTE # 247 -PORT # 103 -BYTE # 248 -PORT # 103 -BYTE # 249 -PORT # 103 -BYTE # 250 -PORT # 103 -BYTE # 251 -PORT # 103 -BYTE # 252 -PORT # 103 -BYTE # 253 -PORT # 103 -BYTE # 254 -PORT # 103 -BYTE # 255 -PORT # 104 -BYTE # 0 -PORT # 104 -BYTE # 1 -PORT # 104 -BYTE # 2 -PORT # 104 -BYTE # 3 -PORT # 104 -BYTE # 4 -PORT # 104 -BYTE # 5 -PORT # 104 -BYTE # 6 -PORT # 104 -BYTE # 7 -PORT # 104 -BYTE # 8 -PORT # 104 -BYTE # 9 -PORT # 104 -BYTE # 10 -PORT # 104 -BYTE # 11 -PORT # 104 -BYTE # 12 -PORT # 104 -BYTE # 13 -PORT # 104 -BYTE # 14 -PORT # 104 -BYTE # 15 -PORT # 104 -BYTE # 16 -PORT # 104 -BYTE # 17 -PORT # 104 -BYTE # 18 -PORT # 104 -BYTE # 19 -PORT # 104 -BYTE # 20 -PORT # 104 -BYTE # 21 -PORT # 104 -BYTE # 22 -PORT # 104 -BYTE # 23 -PORT # 104 -BYTE # 24 -PORT # 104 -BYTE # 25 -PORT # 104 -BYTE # 26 -PORT # 104 -BYTE # 27 -PORT # 104 -BYTE # 28 -PORT # 104 -BYTE # 29 -PORT # 104 -BYTE # 30 -PORT # 104 -BYTE # 31 -PORT # 104 -BYTE # 32 -PORT # 104 -BYTE # 33 -PORT # 104 -BYTE # 34 -PORT # 104 -BYTE # 35 -PORT # 104 -BYTE # 36 -PORT # 104 -BYTE # 37 -PORT # 104 -BYTE # 38 -PORT # 104 -BYTE # 39 -PORT # 104 -BYTE # 40 -PORT # 104 -BYTE # 41 -PORT # 104 -BYTE # 42 -PORT # 104 -BYTE # 43 -PORT # 104 -BYTE # 44 -PORT # 104 -BYTE # 45 -PORT # 104 -BYTE # 46 -PORT # 104 -BYTE # 47 -PORT # 104 -BYTE # 48 -PORT # 104 -BYTE # 49 -PORT # 104 -BYTE # 50 -PORT # 104 -BYTE # 51 -PORT # 104 -BYTE # 52 -PORT # 104 -BYTE # 53 -PORT # 104 -BYTE # 54 -PORT # 104 -BYTE # 55 -PORT # 104 -BYTE # 56 -PORT # 104 -BYTE # 57 -PORT # 104 -BYTE # 58 -PORT # 104 -BYTE # 59 -PORT # 104 -BYTE # 60 -PORT # 104 -BYTE # 61 -PORT # 104 -BYTE # 62 -PORT # 104 -BYTE # 63 -PORT # 104 -BYTE # 64 -PORT # 104 -BYTE # 65 -PORT # 104 -BYTE # 66 -PORT # 104 -BYTE # 67 -PORT # 104 -BYTE # 68 -PORT # 104 -BYTE # 69 -PORT # 104 -BYTE # 70 -PORT # 104 -BYTE # 71 -PORT # 104 -BYTE # 72 -PORT # 104 -BYTE # 73 -PORT # 104 -BYTE # 74 -PORT # 104 -BYTE # 75 -PORT # 104 -BYTE # 76 -PORT # 104 -BYTE # 77 -PORT # 104 -BYTE # 78 -PORT # 104 -BYTE # 79 -PORT # 104 -BYTE # 80 -PORT # 104 -BYTE # 81 -PORT # 104 -BYTE # 82 -PORT # 104 -BYTE # 83 -PORT # 104 -BYTE # 84 -PORT # 104 -BYTE # 85 -PORT # 104 -BYTE # 86 -PORT # 104 -BYTE # 87 -PORT # 104 -BYTE # 88 -PORT # 104 -BYTE # 89 -PORT # 104 -BYTE # 90 -PORT # 104 -BYTE # 91 -PORT # 104 -BYTE # 92 -PORT # 104 -BYTE # 93 -PORT # 104 -BYTE # 94 -PORT # 104 -BYTE # 95 -PORT # 104 -BYTE # 96 -PORT # 104 -BYTE # 97 -PORT # 104 -BYTE # 98 -PORT # 104 -BYTE # 99 -PORT # 104 -BYTE # 100 -PORT # 104 -BYTE # 101 -PORT # 104 -BYTE # 102 -PORT # 104 -BYTE # 103 -PORT # 104 -BYTE # 104 -PORT # 104 -BYTE # 105 -PORT # 104 -BYTE # 106 -PORT # 104 -BYTE # 107 -PORT # 104 -BYTE # 108 -PORT # 104 -BYTE # 109 -PORT # 104 -BYTE # 110 -PORT # 104 -BYTE # 111 -PORT # 104 -BYTE # 112 -PORT # 104 -BYTE # 113 -PORT # 104 -BYTE # 114 -PORT # 104 -BYTE # 115 -PORT # 104 -BYTE # 116 -PORT # 104 -BYTE # 117 -PORT # 104 -BYTE # 118 -PORT # 104 -BYTE # 119 -PORT # 104 -BYTE # 120 -PORT # 104 -BYTE # 121 -PORT # 104 -BYTE # 122 -PORT # 104 -BYTE # 123 -PORT # 104 -BYTE # 124 -PORT # 104 -BYTE # 125 -PORT # 104 -BYTE # 126 -PORT # 104 -BYTE # 127 -PORT # 104 -BYTE # 128 -PORT # 104 -BYTE # 129 -PORT # 104 -BYTE # 130 -PORT # 104 -BYTE # 131 -PORT # 104 -BYTE # 132 -PORT # 104 -BYTE # 133 -PORT # 104 -BYTE # 134 -PORT # 104 -BYTE # 135 -PORT # 104 -BYTE # 136 -PORT # 104 -BYTE # 137 -PORT # 104 -BYTE # 138 -PORT # 104 -BYTE # 139 -PORT # 104 -BYTE # 140 -PORT # 104 -BYTE # 141 -PORT # 104 -BYTE # 142 -PORT # 104 -BYTE # 143 -PORT # 104 -BYTE # 144 -PORT # 104 -BYTE # 145 -PORT # 104 -BYTE # 146 -PORT # 104 -BYTE # 147 -PORT # 104 -BYTE # 148 -PORT # 104 -BYTE # 149 -PORT # 104 -BYTE # 150 -PORT # 104 -BYTE # 151 -PORT # 104 -BYTE # 152 -PORT # 104 -BYTE # 153 -PORT # 104 -BYTE # 154 -PORT # 104 -BYTE # 155 -PORT # 104 -BYTE # 156 -PORT # 104 -BYTE # 157 -PORT # 104 -BYTE # 158 -PORT # 104 -BYTE # 159 -PORT # 104 -BYTE # 160 -PORT # 104 -BYTE # 161 -PORT # 104 -BYTE # 162 -PORT # 104 -BYTE # 163 -PORT # 104 -BYTE # 164 -PORT # 104 -BYTE # 165 -PORT # 104 -BYTE # 166 -PORT # 104 -BYTE # 167 -PORT # 104 -BYTE # 168 -PORT # 104 -BYTE # 169 -PORT # 104 -BYTE # 170 -PORT # 104 -BYTE # 171 -PORT # 104 -BYTE # 172 -PORT # 104 -BYTE # 173 -PORT # 104 -BYTE # 174 -PORT # 104 -BYTE # 175 -PORT # 104 -BYTE # 176 -PORT # 104 -BYTE # 177 -PORT # 104 -BYTE # 178 -PORT # 104 -BYTE # 179 -PORT # 104 -BYTE # 180 -PORT # 104 -BYTE # 181 -PORT # 104 -BYTE # 182 -PORT # 104 -BYTE # 183 -PORT # 104 -BYTE # 184 -PORT # 104 -BYTE # 185 -PORT # 104 -BYTE # 186 -PORT # 104 -BYTE # 187 -PORT # 104 -BYTE # 188 -PORT # 104 -BYTE # 189 -PORT # 104 -BYTE # 190 -PORT # 104 -BYTE # 191 -PORT # 104 -BYTE # 192 -PORT # 104 -BYTE # 193 -PORT # 104 -BYTE # 194 -PORT # 104 -BYTE # 195 -PORT # 104 -BYTE # 196 -PORT # 104 -BYTE # 197 -PORT # 104 -BYTE # 198 -PORT # 104 -BYTE # 199 -PORT # 104 -BYTE # 200 -PORT # 104 -BYTE # 201 -PORT # 104 -BYTE # 202 -PORT # 104 -BYTE # 203 -PORT # 104 -BYTE # 204 -PORT # 104 -BYTE # 205 -PORT # 104 -BYTE # 206 -PORT # 104 -BYTE # 207 -PORT # 104 -BYTE # 208 -PORT # 104 -BYTE # 209 -PORT # 104 -BYTE # 210 -PORT # 104 -BYTE # 211 -PORT # 104 -BYTE # 212 -PORT # 104 -BYTE # 213 -PORT # 104 -BYTE # 214 -PORT # 104 -BYTE # 215 -PORT # 104 -BYTE # 216 -PORT # 104 -BYTE # 217 -PORT # 104 -BYTE # 218 -PORT # 104 -BYTE # 219 -PORT # 104 -BYTE # 220 -PORT # 104 -BYTE # 221 -PORT # 104 -BYTE # 222 -PORT # 104 -BYTE # 223 -PORT # 104 -BYTE # 224 -PORT # 104 -BYTE # 225 -PORT # 104 -BYTE # 226 -PORT # 104 -BYTE # 227 -PORT # 104 -BYTE # 228 -PORT # 104 -BYTE # 229 -PORT # 104 -BYTE # 230 -PORT # 104 -BYTE # 231 -PORT # 104 -BYTE # 232 -PORT # 104 -BYTE # 233 -PORT # 104 -BYTE # 234 -PORT # 104 -BYTE # 235 -PORT # 104 -BYTE # 236 -PORT # 104 -BYTE # 237 -PORT # 104 -BYTE # 238 -PORT # 104 -BYTE # 239 -PORT # 104 -BYTE # 240 -PORT # 104 -BYTE # 241 -PORT # 104 -BYTE # 242 -PORT # 104 -BYTE # 243 -PORT # 104 -BYTE # 244 -PORT # 104 -BYTE # 245 -PORT # 104 -BYTE # 246 -PORT # 104 -BYTE # 247 -PORT # 104 -BYTE # 248 -PORT # 104 -BYTE # 249 -PORT # 104 -BYTE # 250 -PORT # 104 -BYTE # 251 -PORT # 104 -BYTE # 252 -PORT # 104 -BYTE # 253 -PORT # 104 -BYTE # 254 -PORT # 104 -BYTE # 255 -PORT # 105 -BYTE # 0 -PORT # 105 -BYTE # 1 -PORT # 105 -BYTE # 2 -PORT # 105 -BYTE # 3 -PORT # 105 -BYTE # 4 -PORT # 105 -BYTE # 5 -PORT # 105 -BYTE # 6 -PORT # 105 -BYTE # 7 -PORT # 105 -BYTE # 8 -PORT # 105 -BYTE # 9 -PORT # 105 -BYTE # 10 -PORT # 105 -BYTE # 11 -PORT # 105 -BYTE # 12 -PORT # 105 -BYTE # 13 -PORT # 105 -BYTE # 14 -PORT # 105 -BYTE # 15 -PORT # 105 -BYTE # 16 -PORT # 105 -BYTE # 17 -PORT # 105 -BYTE # 18 -PORT # 105 -BYTE # 19 -PORT # 105 -BYTE # 20 -PORT # 105 -BYTE # 21 -PORT # 105 -BYTE # 22 -PORT # 105 -BYTE # 23 -PORT # 105 -BYTE # 24 -PORT # 105 -BYTE # 25 -PORT # 105 -BYTE # 26 -PORT # 105 -BYTE # 27 -PORT # 105 -BYTE # 28 -PORT # 105 -BYTE # 29 -PORT # 105 -BYTE # 30 -PORT # 105 -BYTE # 31 -PORT # 105 -BYTE # 32 -PORT # 105 -BYTE # 33 -PORT # 105 -BYTE # 34 -PORT # 105 -BYTE # 35 -PORT # 105 -BYTE # 36 -PORT # 105 -BYTE # 37 -PORT # 105 -BYTE # 38 -PORT # 105 -BYTE # 39 -PORT # 105 -BYTE # 40 -PORT # 105 -BYTE # 41 -PORT # 105 -BYTE # 42 -PORT # 105 -BYTE # 43 -PORT # 105 -BYTE # 44 -PORT # 105 -BYTE # 45 -PORT # 105 -BYTE # 46 -PORT # 105 -BYTE # 47 -PORT # 105 -BYTE # 48 -PORT # 105 -BYTE # 49 -PORT # 105 -BYTE # 50 -PORT # 105 -BYTE # 51 -PORT # 105 -BYTE # 52 -PORT # 105 -BYTE # 53 -PORT # 105 -BYTE # 54 -PORT # 105 -BYTE # 55 -PORT # 105 -BYTE # 56 -PORT # 105 -BYTE # 57 -PORT # 105 -BYTE # 58 -PORT # 105 -BYTE # 59 -PORT # 105 -BYTE # 60 -PORT # 105 -BYTE # 61 -PORT # 105 -BYTE # 62 -PORT # 105 -BYTE # 63 -PORT # 105 -BYTE # 64 -PORT # 105 -BYTE # 65 -PORT # 105 -BYTE # 66 -PORT # 105 -BYTE # 67 -PORT # 105 -BYTE # 68 -PORT # 105 -BYTE # 69 -PORT # 105 -BYTE # 70 -PORT # 105 -BYTE # 71 -PORT # 105 -BYTE # 72 -PORT # 105 -BYTE # 73 -PORT # 105 -BYTE # 74 -PORT # 105 -BYTE # 75 -PORT # 105 -BYTE # 76 -PORT # 105 -BYTE # 77 -PORT # 105 -BYTE # 78 -PORT # 105 -BYTE # 79 -PORT # 105 -BYTE # 80 -PORT # 105 -BYTE # 81 -PORT # 105 -BYTE # 82 -PORT # 105 -BYTE # 83 -PORT # 105 -BYTE # 84 -PORT # 105 -BYTE # 85 -PORT # 105 -BYTE # 86 -PORT # 105 -BYTE # 87 -PORT # 105 -BYTE # 88 -PORT # 105 -BYTE # 89 -PORT # 105 -BYTE # 90 -PORT # 105 -BYTE # 91 -PORT # 105 -BYTE # 92 -PORT # 105 -BYTE # 93 -PORT # 105 -BYTE # 94 -PORT # 105 -BYTE # 95 -PORT # 105 -BYTE # 96 -PORT # 105 -BYTE # 97 -PORT # 105 -BYTE # 98 -PORT # 105 -BYTE # 99 -PORT # 105 -BYTE # 100 -PORT # 105 -BYTE # 101 -PORT # 105 -BYTE # 102 -PORT # 105 -BYTE # 103 -PORT # 105 -BYTE # 104 -PORT # 105 -BYTE # 105 -PORT # 105 -BYTE # 106 -PORT # 105 -BYTE # 107 -PORT # 105 -BYTE # 108 -PORT # 105 -BYTE # 109 -PORT # 105 -BYTE # 110 -PORT # 105 -BYTE # 111 -PORT # 105 -BYTE # 112 -PORT # 105 -BYTE # 113 -PORT # 105 -BYTE # 114 -PORT # 105 -BYTE # 115 -PORT # 105 -BYTE # 116 -PORT # 105 -BYTE # 117 -PORT # 105 -BYTE # 118 -PORT # 105 -BYTE # 119 -PORT # 105 -BYTE # 120 -PORT # 105 -BYTE # 121 -PORT # 105 -BYTE # 122 -PORT # 105 -BYTE # 123 -PORT # 105 -BYTE # 124 -PORT # 105 -BYTE # 125 -PORT # 105 -BYTE # 126 -PORT # 105 -BYTE # 127 -PORT # 105 -BYTE # 128 -PORT # 105 -BYTE # 129 -PORT # 105 -BYTE # 130 -PORT # 105 -BYTE # 131 -PORT # 105 -BYTE # 132 -PORT # 105 -BYTE # 133 -PORT # 105 -BYTE # 134 -PORT # 105 -BYTE # 135 -PORT # 105 -BYTE # 136 -PORT # 105 -BYTE # 137 -PORT # 105 -BYTE # 138 -PORT # 105 -BYTE # 139 -PORT # 105 -BYTE # 140 -PORT # 105 -BYTE # 141 -PORT # 105 -BYTE # 142 -PORT # 105 -BYTE # 143 -PORT # 105 -BYTE # 144 -PORT # 105 -BYTE # 145 -PORT # 105 -BYTE # 146 -PORT # 105 -BYTE # 147 -PORT # 105 -BYTE # 148 -PORT # 105 -BYTE # 149 -PORT # 105 -BYTE # 150 -PORT # 105 -BYTE # 151 -PORT # 105 -BYTE # 152 -PORT # 105 -BYTE # 153 -PORT # 105 -BYTE # 154 -PORT # 105 -BYTE # 155 -PORT # 105 -BYTE # 156 -PORT # 105 -BYTE # 157 -PORT # 105 -BYTE # 158 -PORT # 105 -BYTE # 159 -PORT # 105 -BYTE # 160 -PORT # 105 -BYTE # 161 -PORT # 105 -BYTE # 162 -PORT # 105 -BYTE # 163 -PORT # 105 -BYTE # 164 -PORT # 105 -BYTE # 165 -PORT # 105 -BYTE # 166 -PORT # 105 -BYTE # 167 -PORT # 105 -BYTE # 168 -PORT # 105 -BYTE # 169 -PORT # 105 -BYTE # 170 -PORT # 105 -BYTE # 171 -PORT # 105 -BYTE # 172 -PORT # 105 -BYTE # 173 -PORT # 105 -BYTE # 174 -PORT # 105 -BYTE # 175 -PORT # 105 -BYTE # 176 -PORT # 105 -BYTE # 177 -PORT # 105 -BYTE # 178 -PORT # 105 -BYTE # 179 -PORT # 105 -BYTE # 180 -PORT # 105 -BYTE # 181 -PORT # 105 -BYTE # 182 -PORT # 105 -BYTE # 183 -PORT # 105 -BYTE # 184 -PORT # 105 -BYTE # 185 -PORT # 105 -BYTE # 186 -PORT # 105 -BYTE # 187 -PORT # 105 -BYTE # 188 -PORT # 105 -BYTE # 189 -PORT # 105 -BYTE # 190 -PORT # 105 -BYTE # 191 -PORT # 105 -BYTE # 192 -PORT # 105 -BYTE # 193 -PORT # 105 -BYTE # 194 -PORT # 105 -BYTE # 195 -PORT # 105 -BYTE # 196 -PORT # 105 -BYTE # 197 -PORT # 105 -BYTE # 198 -PORT # 105 -BYTE # 199 -PORT # 105 -BYTE # 200 -PORT # 105 -BYTE # 201 -PORT # 105 -BYTE # 202 -PORT # 105 -BYTE # 203 -PORT # 105 -BYTE # 204 -PORT # 105 -BYTE # 205 -PORT # 105 -BYTE # 206 -PORT # 105 -BYTE # 207 -PORT # 105 -BYTE # 208 -PORT # 105 -BYTE # 209 -PORT # 105 -BYTE # 210 -PORT # 105 -BYTE # 211 -PORT # 105 -BYTE # 212 -PORT # 105 -BYTE # 213 -PORT # 105 -BYTE # 214 -PORT # 105 -BYTE # 215 -PORT # 105 -BYTE # 216 -PORT # 105 -BYTE # 217 -PORT # 105 -BYTE # 218 -PORT # 105 -BYTE # 219 -PORT # 105 -BYTE # 220 -PORT # 105 -BYTE # 221 -PORT # 105 -BYTE # 222 -PORT # 105 -BYTE # 223 -PORT # 105 -BYTE # 224 -PORT # 105 -BYTE # 225 -PORT # 105 -BYTE # 226 -PORT # 105 -BYTE # 227 -PORT # 105 -BYTE # 228 -PORT # 105 -BYTE # 229 -PORT # 105 -BYTE # 230 -PORT # 105 -BYTE # 231 -PORT # 105 -BYTE # 232 -PORT # 105 -BYTE # 233 -PORT # 105 -BYTE # 234 -PORT # 105 -BYTE # 235 -PORT # 105 -BYTE # 236 -PORT # 105 -BYTE # 237 -PORT # 105 -BYTE # 238 -PORT # 105 -BYTE # 239 -PORT # 105 -BYTE # 240 -PORT # 105 -BYTE # 241 -PORT # 105 -BYTE # 242 -PORT # 105 -BYTE # 243 -PORT # 105 -BYTE # 244 -PORT # 105 -BYTE # 245 -PORT # 105 -BYTE # 246 -PORT # 105 -BYTE # 247 -PORT # 105 -BYTE # 248 -PORT # 105 -BYTE # 249 -PORT # 105 -BYTE # 250 -PORT # 105 -BYTE # 251 -PORT # 105 -BYTE # 252 -PORT # 105 -BYTE # 253 -PORT # 105 -BYTE # 254 -PORT # 105 -BYTE # 255 -PORT # 106 -BYTE # 0 -PORT # 106 -BYTE # 1 -PORT # 106 -BYTE # 2 -PORT # 106 -BYTE # 3 -PORT # 106 -BYTE # 4 -PORT # 106 -BYTE # 5 -PORT # 106 -BYTE # 6 -PORT # 106 -BYTE # 7 -PORT # 106 -BYTE # 8 -PORT # 106 -BYTE # 9 -PORT # 106 -BYTE # 10 -PORT # 106 -BYTE # 11 -PORT # 106 -BYTE # 12 -PORT # 106 -BYTE # 13 -PORT # 106 -BYTE # 14 -PORT # 106 -BYTE # 15 -PORT # 106 -BYTE # 16 -PORT # 106 -BYTE # 17 -PORT # 106 -BYTE # 18 -PORT # 106 -BYTE # 19 -PORT # 106 -BYTE # 20 -PORT # 106 -BYTE # 21 -PORT # 106 -BYTE # 22 -PORT # 106 -BYTE # 23 -PORT # 106 -BYTE # 24 -PORT # 106 -BYTE # 25 -PORT # 106 -BYTE # 26 -PORT # 106 -BYTE # 27 -PORT # 106 -BYTE # 28 -PORT # 106 -BYTE # 29 -PORT # 106 -BYTE # 30 -PORT # 106 -BYTE # 31 -PORT # 106 -BYTE # 32 -PORT # 106 -BYTE # 33 -PORT # 106 -BYTE # 34 -PORT # 106 -BYTE # 35 -PORT # 106 -BYTE # 36 -PORT # 106 -BYTE # 37 -PORT # 106 -BYTE # 38 -PORT # 106 -BYTE # 39 -PORT # 106 -BYTE # 40 -PORT # 106 -BYTE # 41 -PORT # 106 -BYTE # 42 -PORT # 106 -BYTE # 43 -PORT # 106 -BYTE # 44 -PORT # 106 -BYTE # 45 -PORT # 106 -BYTE # 46 -PORT # 106 -BYTE # 47 -PORT # 106 -BYTE # 48 -PORT # 106 -BYTE # 49 -PORT # 106 -BYTE # 50 -PORT # 106 -BYTE # 51 -PORT # 106 -BYTE # 52 -PORT # 106 -BYTE # 53 -PORT # 106 -BYTE # 54 -PORT # 106 -BYTE # 55 -PORT # 106 -BYTE # 56 -PORT # 106 -BYTE # 57 -PORT # 106 -BYTE # 58 -PORT # 106 -BYTE # 59 -PORT # 106 -BYTE # 60 -PORT # 106 -BYTE # 61 -PORT # 106 -BYTE # 62 -PORT # 106 -BYTE # 63 -PORT # 106 -BYTE # 64 -PORT # 106 -BYTE # 65 -PORT # 106 -BYTE # 66 -PORT # 106 -BYTE # 67 -PORT # 106 -BYTE # 68 -PORT # 106 -BYTE # 69 -PORT # 106 -BYTE # 70 -PORT # 106 -BYTE # 71 -PORT # 106 -BYTE # 72 -PORT # 106 -BYTE # 73 -PORT # 106 -BYTE # 74 -PORT # 106 -BYTE # 75 -PORT # 106 -BYTE # 76 -PORT # 106 -BYTE # 77 -PORT # 106 -BYTE # 78 -PORT # 106 -BYTE # 79 -PORT # 106 -BYTE # 80 -PORT # 106 -BYTE # 81 -PORT # 106 -BYTE # 82 -PORT # 106 -BYTE # 83 -PORT # 106 -BYTE # 84 -PORT # 106 -BYTE # 85 -PORT # 106 -BYTE # 86 -PORT # 106 -BYTE # 87 -PORT # 106 -BYTE # 88 -PORT # 106 -BYTE # 89 -PORT # 106 -BYTE # 90 -PORT # 106 -BYTE # 91 -PORT # 106 -BYTE # 92 -PORT # 106 -BYTE # 93 -PORT # 106 -BYTE # 94 -PORT # 106 -BYTE # 95 -PORT # 106 -BYTE # 96 -PORT # 106 -BYTE # 97 -PORT # 106 -BYTE # 98 -PORT # 106 -BYTE # 99 -PORT # 106 -BYTE # 100 -PORT # 106 -BYTE # 101 -PORT # 106 -BYTE # 102 -PORT # 106 -BYTE # 103 -PORT # 106 -BYTE # 104 -PORT # 106 -BYTE # 105 -PORT # 106 -BYTE # 106 -PORT # 106 -BYTE # 107 -PORT # 106 -BYTE # 108 -PORT # 106 -BYTE # 109 -PORT # 106 -BYTE # 110 -PORT # 106 -BYTE # 111 -PORT # 106 -BYTE # 112 -PORT # 106 -BYTE # 113 -PORT # 106 -BYTE # 114 -PORT # 106 -BYTE # 115 -PORT # 106 -BYTE # 116 -PORT # 106 -BYTE # 117 -PORT # 106 -BYTE # 118 -PORT # 106 -BYTE # 119 -PORT # 106 -BYTE # 120 -PORT # 106 -BYTE # 121 -PORT # 106 -BYTE # 122 -PORT # 106 -BYTE # 123 -PORT # 106 -BYTE # 124 -PORT # 106 -BYTE # 125 -PORT # 106 -BYTE # 126 -PORT # 106 -BYTE # 127 -PORT # 106 -BYTE # 128 -PORT # 106 -BYTE # 129 -PORT # 106 -BYTE # 130 -PORT # 106 -BYTE # 131 -PORT # 106 -BYTE # 132 -PORT # 106 -BYTE # 133 -PORT # 106 -BYTE # 134 -PORT # 106 -BYTE # 135 -PORT # 106 -BYTE # 136 -PORT # 106 -BYTE # 137 -PORT # 106 -BYTE # 138 -PORT # 106 -BYTE # 139 -PORT # 106 -BYTE # 140 -PORT # 106 -BYTE # 141 -PORT # 106 -BYTE # 142 -PORT # 106 -BYTE # 143 -PORT # 106 -BYTE # 144 -PORT # 106 -BYTE # 145 -PORT # 106 -BYTE # 146 -PORT # 106 -BYTE # 147 -PORT # 106 -BYTE # 148 -PORT # 106 -BYTE # 149 -PORT # 106 -BYTE # 150 -PORT # 106 -BYTE # 151 -PORT # 106 -BYTE # 152 -PORT # 106 -BYTE # 153 -PORT # 106 -BYTE # 154 -PORT # 106 -BYTE # 155 -PORT # 106 -BYTE # 156 -PORT # 106 -BYTE # 157 -PORT # 106 -BYTE # 158 -PORT # 106 -BYTE # 159 -PORT # 106 -BYTE # 160 -PORT # 106 -BYTE # 161 -PORT # 106 -BYTE # 162 -PORT # 106 -BYTE # 163 -PORT # 106 -BYTE # 164 -PORT # 106 -BYTE # 165 -PORT # 106 -BYTE # 166 -PORT # 106 -BYTE # 167 -PORT # 106 -BYTE # 168 -PORT # 106 -BYTE # 169 -PORT # 106 -BYTE # 170 -PORT # 106 -BYTE # 171 -PORT # 106 -BYTE # 172 -PORT # 106 -BYTE # 173 -PORT # 106 -BYTE # 174 -PORT # 106 -BYTE # 175 -PORT # 106 -BYTE # 176 -PORT # 106 -BYTE # 177 -PORT # 106 -BYTE # 178 -PORT # 106 -BYTE # 179 -PORT # 106 -BYTE # 180 -PORT # 106 -BYTE # 181 -PORT # 106 -BYTE # 182 -PORT # 106 -BYTE # 183 -PORT # 106 -BYTE # 184 -PORT # 106 -BYTE # 185 -PORT # 106 -BYTE # 186 -PORT # 106 -BYTE # 187 -PORT # 106 -BYTE # 188 -PORT # 106 -BYTE # 189 -PORT # 106 -BYTE # 190 -PORT # 106 -BYTE # 191 -PORT # 106 -BYTE # 192 -PORT # 106 -BYTE # 193 -PORT # 106 -BYTE # 194 -PORT # 106 -BYTE # 195 -PORT # 106 -BYTE # 196 -PORT # 106 -BYTE # 197 -PORT # 106 -BYTE # 198 -PORT # 106 -BYTE # 199 -PORT # 106 -BYTE # 200 -PORT # 106 -BYTE # 201 -PORT # 106 -BYTE # 202 -PORT # 106 -BYTE # 203 -PORT # 106 -BYTE # 204 -PORT # 106 -BYTE # 205 -PORT # 106 -BYTE # 206 -PORT # 106 -BYTE # 207 -PORT # 106 -BYTE # 208 -PORT # 106 -BYTE # 209 -PORT # 106 -BYTE # 210 -PORT # 106 -BYTE # 211 -PORT # 106 -BYTE # 212 -PORT # 106 -BYTE # 213 -PORT # 106 -BYTE # 214 -PORT # 106 -BYTE # 215 -PORT # 106 -BYTE # 216 -PORT # 106 -BYTE # 217 -PORT # 106 -BYTE # 218 -PORT # 106 -BYTE # 219 -PORT # 106 -BYTE # 220 -PORT # 106 -BYTE # 221 -PORT # 106 -BYTE # 222 -PORT # 106 -BYTE # 223 -PORT # 106 -BYTE # 224 -PORT # 106 -BYTE # 225 -PORT # 106 -BYTE # 226 -PORT # 106 -BYTE # 227 -PORT # 106 -BYTE # 228 -PORT # 106 -BYTE # 229 -PORT # 106 -BYTE # 230 -PORT # 106 -BYTE # 231 -PORT # 106 -BYTE # 232 -PORT # 106 -BYTE # 233 -PORT # 106 -BYTE # 234 -PORT # 106 -BYTE # 235 -PORT # 106 -BYTE # 236 -PORT # 106 -BYTE # 237 -PORT # 106 -BYTE # 238 -PORT # 106 -BYTE # 239 -PORT # 106 -BYTE # 240 -PORT # 106 -BYTE # 241 -PORT # 106 -BYTE # 242 -PORT # 106 -BYTE # 243 -PORT # 106 -BYTE # 244 -PORT # 106 -BYTE # 245 -PORT # 106 -BYTE # 246 -PORT # 106 -BYTE # 247 -PORT # 106 -BYTE # 248 -PORT # 106 -BYTE # 249 -PORT # 106 -BYTE # 250 -PORT # 106 -BYTE # 251 -PORT # 106 -BYTE # 252 -PORT # 106 -BYTE # 253 -PORT # 106 -BYTE # 254 -PORT # 106 -BYTE # 255 -PORT # 107 -BYTE # 0 -PORT # 107 -BYTE # 1 -PORT # 107 -BYTE # 2 -PORT # 107 -BYTE # 3 -PORT # 107 -BYTE # 4 -PORT # 107 -BYTE # 5 -PORT # 107 -BYTE # 6 -PORT # 107 -BYTE # 7 -PORT # 107 -BYTE # 8 -PORT # 107 -BYTE # 9 -PORT # 107 -BYTE # 10 -PORT # 107 -BYTE # 11 -PORT # 107 -BYTE # 12 -PORT # 107 -BYTE # 13 -PORT # 107 -BYTE # 14 -PORT # 107 -BYTE # 15 -PORT # 107 -BYTE # 16 -PORT # 107 -BYTE # 17 -PORT # 107 -BYTE # 18 -PORT # 107 -BYTE # 19 -PORT # 107 -BYTE # 20 -PORT # 107 -BYTE # 21 -PORT # 107 -BYTE # 22 -PORT # 107 -BYTE # 23 -PORT # 107 -BYTE # 24 -PORT # 107 -BYTE # 25 -PORT # 107 -BYTE # 26 -PORT # 107 -BYTE # 27 -PORT # 107 -BYTE # 28 -PORT # 107 -BYTE # 29 -PORT # 107 -BYTE # 30 -PORT # 107 -BYTE # 31 -PORT # 107 -BYTE # 32 -PORT # 107 -BYTE # 33 -PORT # 107 -BYTE # 34 -PORT # 107 -BYTE # 35 -PORT # 107 -BYTE # 36 -PORT # 107 -BYTE # 37 -PORT # 107 -BYTE # 38 -PORT # 107 -BYTE # 39 -PORT # 107 -BYTE # 40 -PORT # 107 -BYTE # 41 -PORT # 107 -BYTE # 42 -PORT # 107 -BYTE # 43 -PORT # 107 -BYTE # 44 -PORT # 107 -BYTE # 45 -PORT # 107 -BYTE # 46 -PORT # 107 -BYTE # 47 -PORT # 107 -BYTE # 48 -PORT # 107 -BYTE # 49 -PORT # 107 -BYTE # 50 -PORT # 107 -BYTE # 51 -PORT # 107 -BYTE # 52 -PORT # 107 -BYTE # 53 -PORT # 107 -BYTE # 54 -PORT # 107 -BYTE # 55 -PORT # 107 -BYTE # 56 -PORT # 107 -BYTE # 57 -PORT # 107 -BYTE # 58 -PORT # 107 -BYTE # 59 -PORT # 107 -BYTE # 60 -PORT # 107 -BYTE # 61 -PORT # 107 -BYTE # 62 -PORT # 107 -BYTE # 63 -PORT # 107 -BYTE # 64 -PORT # 107 -BYTE # 65 -PORT # 107 -BYTE # 66 -PORT # 107 -BYTE # 67 -PORT # 107 -BYTE # 68 -PORT # 107 -BYTE # 69 -PORT # 107 -BYTE # 70 -PORT # 107 -BYTE # 71 -PORT # 107 -BYTE # 72 -PORT # 107 -BYTE # 73 -PORT # 107 -BYTE # 74 -PORT # 107 -BYTE # 75 -PORT # 107 -BYTE # 76 -PORT # 107 -BYTE # 77 -PORT # 107 -BYTE # 78 -PORT # 107 -BYTE # 79 -PORT # 107 -BYTE # 80 -PORT # 107 -BYTE # 81 -PORT # 107 -BYTE # 82 -PORT # 107 -BYTE # 83 -PORT # 107 -BYTE # 84 -PORT # 107 -BYTE # 85 -PORT # 107 -BYTE # 86 -PORT # 107 -BYTE # 87 -PORT # 107 -BYTE # 88 -PORT # 107 -BYTE # 89 -PORT # 107 -BYTE # 90 -PORT # 107 -BYTE # 91 -PORT # 107 -BYTE # 92 -PORT # 107 -BYTE # 93 -PORT # 107 -BYTE # 94 -PORT # 107 -BYTE # 95 -PORT # 107 -BYTE # 96 -PORT # 107 -BYTE # 97 -PORT # 107 -BYTE # 98 -PORT # 107 -BYTE # 99 -PORT # 107 -BYTE # 100 -PORT # 107 -BYTE # 101 -PORT # 107 -BYTE # 102 -PORT # 107 -BYTE # 103 -PORT # 107 -BYTE # 104 -PORT # 107 -BYTE # 105 -PORT # 107 -BYTE # 106 -PORT # 107 -BYTE # 107 -PORT # 107 -BYTE # 108 -PORT # 107 -BYTE # 109 -PORT # 107 -BYTE # 110 -PORT # 107 -BYTE # 111 -PORT # 107 -BYTE # 112 -PORT # 107 -BYTE # 113 -PORT # 107 -BYTE # 114 -PORT # 107 -BYTE # 115 -PORT # 107 -BYTE # 116 -PORT # 107 -BYTE # 117 -PORT # 107 -BYTE # 118 -PORT # 107 -BYTE # 119 -PORT # 107 -BYTE # 120 -PORT # 107 -BYTE # 121 -PORT # 107 -BYTE # 122 -PORT # 107 -BYTE # 123 -PORT # 107 -BYTE # 124 -PORT # 107 -BYTE # 125 -PORT # 107 -BYTE # 126 -PORT # 107 -BYTE # 127 -PORT # 107 -BYTE # 128 -PORT # 107 -BYTE # 129 -PORT # 107 -BYTE # 130 -PORT # 107 -BYTE # 131 -PORT # 107 -BYTE # 132 -PORT # 107 -BYTE # 133 -PORT # 107 -BYTE # 134 -PORT # 107 -BYTE # 135 -PORT # 107 -BYTE # 136 -PORT # 107 -BYTE # 137 -PORT # 107 -BYTE # 138 -PORT # 107 -BYTE # 139 -PORT # 107 -BYTE # 140 -PORT # 107 -BYTE # 141 -PORT # 107 -BYTE # 142 -PORT # 107 -BYTE # 143 -PORT # 107 -BYTE # 144 -PORT # 107 -BYTE # 145 -PORT # 107 -BYTE # 146 -PORT # 107 -BYTE # 147 -PORT # 107 -BYTE # 148 -PORT # 107 -BYTE # 149 -PORT # 107 -BYTE # 150 -PORT # 107 -BYTE # 151 -PORT # 107 -BYTE # 152 -PORT # 107 -BYTE # 153 -PORT # 107 -BYTE # 154 -PORT # 107 -BYTE # 155 -PORT # 107 -BYTE # 156 -PORT # 107 -BYTE # 157 -PORT # 107 -BYTE # 158 -PORT # 107 -BYTE # 159 -PORT # 107 -BYTE # 160 -PORT # 107 -BYTE # 161 -PORT # 107 -BYTE # 162 -PORT # 107 -BYTE # 163 -PORT # 107 -BYTE # 164 -PORT # 107 -BYTE # 165 -PORT # 107 -BYTE # 166 -PORT # 107 -BYTE # 167 -PORT # 107 -BYTE # 168 -PORT # 107 -BYTE # 169 -PORT # 107 -BYTE # 170 -PORT # 107 -BYTE # 171 -PORT # 107 -BYTE # 172 -PORT # 107 -BYTE # 173 -PORT # 107 -BYTE # 174 -PORT # 107 -BYTE # 175 -PORT # 107 -BYTE # 176 -PORT # 107 -BYTE # 177 -PORT # 107 -BYTE # 178 -PORT # 107 -BYTE # 179 -PORT # 107 -BYTE # 180 -PORT # 107 -BYTE # 181 -PORT # 107 -BYTE # 182 -PORT # 107 -BYTE # 183 -PORT # 107 -BYTE # 184 -PORT # 107 -BYTE # 185 -PORT # 107 -BYTE # 186 -PORT # 107 -BYTE # 187 -PORT # 107 -BYTE # 188 -PORT # 107 -BYTE # 189 -PORT # 107 -BYTE # 190 -PORT # 107 -BYTE # 191 -PORT # 107 -BYTE # 192 -PORT # 107 -BYTE # 193 -PORT # 107 -BYTE # 194 -PORT # 107 -BYTE # 195 -PORT # 107 -BYTE # 196 -PORT # 107 -BYTE # 197 -PORT # 107 -BYTE # 198 -PORT # 107 -BYTE # 199 -PORT # 107 -BYTE # 200 -PORT # 107 -BYTE # 201 -PORT # 107 -BYTE # 202 -PORT # 107 -BYTE # 203 -PORT # 107 -BYTE # 204 -PORT # 107 -BYTE # 205 -PORT # 107 -BYTE # 206 -PORT # 107 -BYTE # 207 -PORT # 107 -BYTE # 208 -PORT # 107 -BYTE # 209 -PORT # 107 -BYTE # 210 -PORT # 107 -BYTE # 211 -PORT # 107 -BYTE # 212 -PORT # 107 -BYTE # 213 -PORT # 107 -BYTE # 214 -PORT # 107 -BYTE # 215 -PORT # 107 -BYTE # 216 -PORT # 107 -BYTE # 217 -PORT # 107 -BYTE # 218 -PORT # 107 -BYTE # 219 -PORT # 107 -BYTE # 220 -PORT # 107 -BYTE # 221 -PORT # 107 -BYTE # 222 -PORT # 107 -BYTE # 223 -PORT # 107 -BYTE # 224 -PORT # 107 -BYTE # 225 -PORT # 107 -BYTE # 226 -PORT # 107 -BYTE # 227 -PORT # 107 -BYTE # 228 -PORT # 107 -BYTE # 229 -PORT # 107 -BYTE # 230 -PORT # 107 -BYTE # 231 -PORT # 107 -BYTE # 232 -PORT # 107 -BYTE # 233 -PORT # 107 -BYTE # 234 -PORT # 107 -BYTE # 235 -PORT # 107 -BYTE # 236 -PORT # 107 -BYTE # 237 -PORT # 107 -BYTE # 238 -PORT # 107 -BYTE # 239 -PORT # 107 -BYTE # 240 -PORT # 107 -BYTE # 241 -PORT # 107 -BYTE # 242 -PORT # 107 -BYTE # 243 -PORT # 107 -BYTE # 244 -PORT # 107 -BYTE # 245 -PORT # 107 -BYTE # 246 -PORT # 107 -BYTE # 247 -PORT # 107 -BYTE # 248 -PORT # 107 -BYTE # 249 -PORT # 107 -BYTE # 250 -PORT # 107 -BYTE # 251 -PORT # 107 -BYTE # 252 -PORT # 107 -BYTE # 253 -PORT # 107 -BYTE # 254 -PORT # 107 -BYTE # 255 -PORT # 108 -BYTE # 0 -PORT # 108 -BYTE # 1 -PORT # 108 -BYTE # 2 -PORT # 108 -BYTE # 3 -PORT # 108 -BYTE # 4 -PORT # 108 -BYTE # 5 -PORT # 108 -BYTE # 6 -PORT # 108 -BYTE # 7 -PORT # 108 -BYTE # 8 -PORT # 108 -BYTE # 9 -PORT # 108 -BYTE # 10 -PORT # 108 -BYTE # 11 -PORT # 108 -BYTE # 12 -PORT # 108 -BYTE # 13 -PORT # 108 -BYTE # 14 -PORT # 108 -BYTE # 15 -PORT # 108 -BYTE # 16 -PORT # 108 -BYTE # 17 -PORT # 108 -BYTE # 18 -PORT # 108 -BYTE # 19 -PORT # 108 -BYTE # 20 -PORT # 108 -BYTE # 21 -PORT # 108 -BYTE # 22 -PORT # 108 -BYTE # 23 -PORT # 108 -BYTE # 24 -PORT # 108 -BYTE # 25 -PORT # 108 -BYTE # 26 -PORT # 108 -BYTE # 27 -PORT # 108 -BYTE # 28 -PORT # 108 -BYTE # 29 -PORT # 108 -BYTE # 30 -PORT # 108 -BYTE # 31 -PORT # 108 -BYTE # 32 -PORT # 108 -BYTE # 33 -PORT # 108 -BYTE # 34 -PORT # 108 -BYTE # 35 -PORT # 108 -BYTE # 36 -PORT # 108 -BYTE # 37 -PORT # 108 -BYTE # 38 -PORT # 108 -BYTE # 39 -PORT # 108 -BYTE # 40 -PORT # 108 -BYTE # 41 -PORT # 108 -BYTE # 42 -PORT # 108 -BYTE # 43 -PORT # 108 -BYTE # 44 -PORT # 108 -BYTE # 45 -PORT # 108 -BYTE # 46 -PORT # 108 -BYTE # 47 -PORT # 108 -BYTE # 48 -PORT # 108 -BYTE # 49 -PORT # 108 -BYTE # 50 -PORT # 108 -BYTE # 51 -PORT # 108 -BYTE # 52 -PORT # 108 -BYTE # 53 -PORT # 108 -BYTE # 54 -PORT # 108 -BYTE # 55 -PORT # 108 -BYTE # 56 -PORT # 108 -BYTE # 57 -PORT # 108 -BYTE # 58 -PORT # 108 -BYTE # 59 -PORT # 108 -BYTE # 60 -PORT # 108 -BYTE # 61 -PORT # 108 -BYTE # 62 -PORT # 108 -BYTE # 63 -PORT # 108 -BYTE # 64 -PORT # 108 -BYTE # 65 -PORT # 108 -BYTE # 66 -PORT # 108 -BYTE # 67 -PORT # 108 -BYTE # 68 -PORT # 108 -BYTE # 69 -PORT # 108 -BYTE # 70 -PORT # 108 -BYTE # 71 -PORT # 108 -BYTE # 72 -PORT # 108 -BYTE # 73 -PORT # 108 -BYTE # 74 -PORT # 108 -BYTE # 75 -PORT # 108 -BYTE # 76 -PORT # 108 -BYTE # 77 -PORT # 108 -BYTE # 78 -PORT # 108 -BYTE # 79 -PORT # 108 -BYTE # 80 -PORT # 108 -BYTE # 81 -PORT # 108 -BYTE # 82 -PORT # 108 -BYTE # 83 -PORT # 108 -BYTE # 84 -PORT # 108 -BYTE # 85 -PORT # 108 -BYTE # 86 -PORT # 108 -BYTE # 87 -PORT # 108 -BYTE # 88 -PORT # 108 -BYTE # 89 -PORT # 108 -BYTE # 90 -PORT # 108 -BYTE # 91 -PORT # 108 -BYTE # 92 -PORT # 108 -BYTE # 93 -PORT # 108 -BYTE # 94 -PORT # 108 -BYTE # 95 -PORT # 108 -BYTE # 96 -PORT # 108 -BYTE # 97 -PORT # 108 -BYTE # 98 -PORT # 108 -BYTE # 99 -PORT # 108 -BYTE # 100 -PORT # 108 -BYTE # 101 -PORT # 108 -BYTE # 102 -PORT # 108 -BYTE # 103 -PORT # 108 -BYTE # 104 -PORT # 108 -BYTE # 105 -PORT # 108 -BYTE # 106 -PORT # 108 -BYTE # 107 -PORT # 108 -BYTE # 108 -PORT # 108 -BYTE # 109 -PORT # 108 -BYTE # 110 -PORT # 108 -BYTE # 111 -PORT # 108 -BYTE # 112 -PORT # 108 -BYTE # 113 -PORT # 108 -BYTE # 114 -PORT # 108 -BYTE # 115 -PORT # 108 -BYTE # 116 -PORT # 108 -BYTE # 117 -PORT # 108 -BYTE # 118 -PORT # 108 -BYTE # 119 -PORT # 108 -BYTE # 120 -PORT # 108 -BYTE # 121 -PORT # 108 -BYTE # 122 -PORT # 108 -BYTE # 123 -PORT # 108 -BYTE # 124 -PORT # 108 -BYTE # 125 -PORT # 108 -BYTE # 126 -PORT # 108 -BYTE # 127 -PORT # 108 -BYTE # 128 -PORT # 108 -BYTE # 129 -PORT # 108 -BYTE # 130 -PORT # 108 -BYTE # 131 -PORT # 108 -BYTE # 132 -PORT # 108 -BYTE # 133 -PORT # 108 -BYTE # 134 -PORT # 108 -BYTE # 135 -PORT # 108 -BYTE # 136 -PORT # 108 -BYTE # 137 -PORT # 108 -BYTE # 138 -PORT # 108 -BYTE # 139 -PORT # 108 -BYTE # 140 -PORT # 108 -BYTE # 141 -PORT # 108 -BYTE # 142 -PORT # 108 -BYTE # 143 -PORT # 108 -BYTE # 144 -PORT # 108 -BYTE # 145 -PORT # 108 -BYTE # 146 -PORT # 108 -BYTE # 147 -PORT # 108 -BYTE # 148 -PORT # 108 -BYTE # 149 -PORT # 108 -BYTE # 150 -PORT # 108 -BYTE # 151 -PORT # 108 -BYTE # 152 -PORT # 108 -BYTE # 153 -PORT # 108 -BYTE # 154 -PORT # 108 -BYTE # 155 -PORT # 108 -BYTE # 156 -PORT # 108 -BYTE # 157 -PORT # 108 -BYTE # 158 -PORT # 108 -BYTE # 159 -PORT # 108 -BYTE # 160 -PORT # 108 -BYTE # 161 -PORT # 108 -BYTE # 162 -PORT # 108 -BYTE # 163 -PORT # 108 -BYTE # 164 -PORT # 108 -BYTE # 165 -PORT # 108 -BYTE # 166 -PORT # 108 -BYTE # 167 -PORT # 108 -BYTE # 168 -PORT # 108 -BYTE # 169 -PORT # 108 -BYTE # 170 -PORT # 108 -BYTE # 171 -PORT # 108 -BYTE # 172 -PORT # 108 -BYTE # 173 -PORT # 108 -BYTE # 174 -PORT # 108 -BYTE # 175 -PORT # 108 -BYTE # 176 -PORT # 108 -BYTE # 177 -PORT # 108 -BYTE # 178 -PORT # 108 -BYTE # 179 -PORT # 108 -BYTE # 180 -PORT # 108 -BYTE # 181 -PORT # 108 -BYTE # 182 -PORT # 108 -BYTE # 183 -PORT # 108 -BYTE # 184 -PORT # 108 -BYTE # 185 -PORT # 108 -BYTE # 186 -PORT # 108 -BYTE # 187 -PORT # 108 -BYTE # 188 -PORT # 108 -BYTE # 189 -PORT # 108 -BYTE # 190 -PORT # 108 -BYTE # 191 -PORT # 108 -BYTE # 192 -PORT # 108 -BYTE # 193 -PORT # 108 -BYTE # 194 -PORT # 108 -BYTE # 195 -PORT # 108 -BYTE # 196 -PORT # 108 -BYTE # 197 -PORT # 108 -BYTE # 198 -PORT # 108 -BYTE # 199 -PORT # 108 -BYTE # 200 -PORT # 108 -BYTE # 201 -PORT # 108 -BYTE # 202 -PORT # 108 -BYTE # 203 -PORT # 108 -BYTE # 204 -PORT # 108 -BYTE # 205 -PORT # 108 -BYTE # 206 -PORT # 108 -BYTE # 207 -PORT # 108 -BYTE # 208 -PORT # 108 -BYTE # 209 -PORT # 108 -BYTE # 210 -PORT # 108 -BYTE # 211 -PORT # 108 -BYTE # 212 -PORT # 108 -BYTE # 213 -PORT # 108 -BYTE # 214 -PORT # 108 -BYTE # 215 -PORT # 108 -BYTE # 216 -PORT # 108 -BYTE # 217 -PORT # 108 -BYTE # 218 -PORT # 108 -BYTE # 219 -PORT # 108 -BYTE # 220 -PORT # 108 -BYTE # 221 -PORT # 108 -BYTE # 222 -PORT # 108 -BYTE # 223 -PORT # 108 -BYTE # 224 -PORT # 108 -BYTE # 225 -PORT # 108 -BYTE # 226 -PORT # 108 -BYTE # 227 -PORT # 108 -BYTE # 228 -PORT # 108 -BYTE # 229 -PORT # 108 -BYTE # 230 -PORT # 108 -BYTE # 231 -PORT # 108 -BYTE # 232 -PORT # 108 -BYTE # 233 -PORT # 108 -BYTE # 234 -PORT # 108 -BYTE # 235 -PORT # 108 -BYTE # 236 -PORT # 108 -BYTE # 237 -PORT # 108 -BYTE # 238 -PORT # 108 -BYTE # 239 -PORT # 108 -BYTE # 240 -PORT # 108 -BYTE # 241 -PORT # 108 -BYTE # 242 -PORT # 108 -BYTE # 243 -PORT # 108 -BYTE # 244 -PORT # 108 -BYTE # 245 -PORT # 108 -BYTE # 246 -PORT # 108 -BYTE # 247 -PORT # 108 -BYTE # 248 -PORT # 108 -BYTE # 249 -PORT # 108 -BYTE # 250 -PORT # 108 -BYTE # 251 -PORT # 108 -BYTE # 252 -PORT # 108 -BYTE # 253 -PORT # 108 -BYTE # 254 -PORT # 108 -BYTE # 255 -PORT # 109 -BYTE # 0 -PORT # 109 -BYTE # 1 -PORT # 109 -BYTE # 2 -PORT # 109 -BYTE # 3 -PORT # 109 -BYTE # 4 -PORT # 109 -BYTE # 5 -PORT # 109 -BYTE # 6 -PORT # 109 -BYTE # 7 -PORT # 109 -BYTE # 8 -PORT # 109 -BYTE # 9 -PORT # 109 -BYTE # 10 -PORT # 109 -BYTE # 11 -PORT # 109 -BYTE # 12 -PORT # 109 -BYTE # 13 -PORT # 109 -BYTE # 14 -PORT # 109 -BYTE # 15 -PORT # 109 -BYTE # 16 -PORT # 109 -BYTE # 17 -PORT # 109 -BYTE # 18 -PORT # 109 -BYTE # 19 -PORT # 109 -BYTE # 20 -PORT # 109 -BYTE # 21 -PORT # 109 -BYTE # 22 -PORT # 109 -BYTE # 23 -PORT # 109 -BYTE # 24 -PORT # 109 -BYTE # 25 -PORT # 109 -BYTE # 26 -PORT # 109 -BYTE # 27 -PORT # 109 -BYTE # 28 -PORT # 109 -BYTE # 29 -PORT # 109 -BYTE # 30 -PORT # 109 -BYTE # 31 -PORT # 109 -BYTE # 32 -PORT # 109 -BYTE # 33 -PORT # 109 -BYTE # 34 -PORT # 109 -BYTE # 35 -PORT # 109 -BYTE # 36 -PORT # 109 -BYTE # 37 -PORT # 109 -BYTE # 38 -PORT # 109 -BYTE # 39 -PORT # 109 -BYTE # 40 -PORT # 109 -BYTE # 41 -PORT # 109 -BYTE # 42 -PORT # 109 -BYTE # 43 -PORT # 109 -BYTE # 44 -PORT # 109 -BYTE # 45 -PORT # 109 -BYTE # 46 -PORT # 109 -BYTE # 47 -PORT # 109 -BYTE # 48 -PORT # 109 -BYTE # 49 -PORT # 109 -BYTE # 50 -PORT # 109 -BYTE # 51 -PORT # 109 -BYTE # 52 -PORT # 109 -BYTE # 53 -PORT # 109 -BYTE # 54 -PORT # 109 -BYTE # 55 -PORT # 109 -BYTE # 56 -PORT # 109 -BYTE # 57 -PORT # 109 -BYTE # 58 -PORT # 109 -BYTE # 59 -PORT # 109 -BYTE # 60 -PORT # 109 -BYTE # 61 -PORT # 109 -BYTE # 62 -PORT # 109 -BYTE # 63 -PORT # 109 -BYTE # 64 -PORT # 109 -BYTE # 65 -PORT # 109 -BYTE # 66 -PORT # 109 -BYTE # 67 -PORT # 109 -BYTE # 68 -PORT # 109 -BYTE # 69 -PORT # 109 -BYTE # 70 -PORT # 109 -BYTE # 71 -PORT # 109 -BYTE # 72 -PORT # 109 -BYTE # 73 -PORT # 109 -BYTE # 74 -PORT # 109 -BYTE # 75 -PORT # 109 -BYTE # 76 -PORT # 109 -BYTE # 77 -PORT # 109 -BYTE # 78 -PORT # 109 -BYTE # 79 -PORT # 109 -BYTE # 80 -PORT # 109 -BYTE # 81 -PORT # 109 -BYTE # 82 -PORT # 109 -BYTE # 83 -PORT # 109 -BYTE # 84 -PORT # 109 -BYTE # 85 -PORT # 109 -BYTE # 86 -PORT # 109 -BYTE # 87 -PORT # 109 -BYTE # 88 -PORT # 109 -BYTE # 89 -PORT # 109 -BYTE # 90 -PORT # 109 -BYTE # 91 -PORT # 109 -BYTE # 92 -PORT # 109 -BYTE # 93 -PORT # 109 -BYTE # 94 -PORT # 109 -BYTE # 95 -PORT # 109 -BYTE # 96 -PORT # 109 -BYTE # 97 -PORT # 109 -BYTE # 98 -PORT # 109 -BYTE # 99 -PORT # 109 -BYTE # 100 -PORT # 109 -BYTE # 101 -PORT # 109 -BYTE # 102 -PORT # 109 -BYTE # 103 -PORT # 109 -BYTE # 104 -PORT # 109 -BYTE # 105 -PORT # 109 -BYTE # 106 -PORT # 109 -BYTE # 107 -PORT # 109 -BYTE # 108 -PORT # 109 -BYTE # 109 -PORT # 109 -BYTE # 110 -PORT # 109 -BYTE # 111 -PORT # 109 -BYTE # 112 -PORT # 109 -BYTE # 113 -PORT # 109 -BYTE # 114 -PORT # 109 -BYTE # 115 -PORT # 109 -BYTE # 116 -PORT # 109 -BYTE # 117 -PORT # 109 -BYTE # 118 -PORT # 109 -BYTE # 119 -PORT # 109 -BYTE # 120 -PORT # 109 -BYTE # 121 -PORT # 109 -BYTE # 122 -PORT # 109 -BYTE # 123 -PORT # 109 -BYTE # 124 -PORT # 109 -BYTE # 125 -PORT # 109 -BYTE # 126 -PORT # 109 -BYTE # 127 -PORT # 109 -BYTE # 128 -PORT # 109 -BYTE # 129 -PORT # 109 -BYTE # 130 -PORT # 109 -BYTE # 131 -PORT # 109 -BYTE # 132 -PORT # 109 -BYTE # 133 -PORT # 109 -BYTE # 134 -PORT # 109 -BYTE # 135 -PORT # 109 -BYTE # 136 -PORT # 109 -BYTE # 137 -PORT # 109 -BYTE # 138 -PORT # 109 -BYTE # 139 -PORT # 109 -BYTE # 140 -PORT # 109 -BYTE # 141 -PORT # 109 -BYTE # 142 -PORT # 109 -BYTE # 143 -PORT # 109 -BYTE # 144 -PORT # 109 -BYTE # 145 -PORT # 109 -BYTE # 146 -PORT # 109 -BYTE # 147 -PORT # 109 -BYTE # 148 -PORT # 109 -BYTE # 149 -PORT # 109 -BYTE # 150 -PORT # 109 -BYTE # 151 -PORT # 109 -BYTE # 152 -PORT # 109 -BYTE # 153 -PORT # 109 -BYTE # 154 -PORT # 109 -BYTE # 155 -PORT # 109 -BYTE # 156 -PORT # 109 -BYTE # 157 -PORT # 109 -BYTE # 158 -PORT # 109 -BYTE # 159 -PORT # 109 -BYTE # 160 -PORT # 109 -BYTE # 161 -PORT # 109 -BYTE # 162 -PORT # 109 -BYTE # 163 -PORT # 109 -BYTE # 164 -PORT # 109 -BYTE # 165 -PORT # 109 -BYTE # 166 -PORT # 109 -BYTE # 167 -PORT # 109 -BYTE # 168 -PORT # 109 -BYTE # 169 -PORT # 109 -BYTE # 170 -PORT # 109 -BYTE # 171 -PORT # 109 -BYTE # 172 -PORT # 109 -BYTE # 173 -PORT # 109 -BYTE # 174 -PORT # 109 -BYTE # 175 -PORT # 109 -BYTE # 176 -PORT # 109 -BYTE # 177 -PORT # 109 -BYTE # 178 -PORT # 109 -BYTE # 179 -PORT # 109 -BYTE # 180 -PORT # 109 -BYTE # 181 -PORT # 109 -BYTE # 182 -PORT # 109 -BYTE # 183 -PORT # 109 -BYTE # 184 -PORT # 109 -BYTE # 185 -PORT # 109 -BYTE # 186 -PORT # 109 -BYTE # 187 -PORT # 109 -BYTE # 188 -PORT # 109 -BYTE # 189 -PORT # 109 -BYTE # 190 -PORT # 109 -BYTE # 191 -PORT # 109 -BYTE # 192 -PORT # 109 -BYTE # 193 -PORT # 109 -BYTE # 194 -PORT # 109 -BYTE # 195 -PORT # 109 -BYTE # 196 -PORT # 109 -BYTE # 197 -PORT # 109 -BYTE # 198 -PORT # 109 -BYTE # 199 -PORT # 109 -BYTE # 200 -PORT # 109 -BYTE # 201 -PORT # 109 -BYTE # 202 -PORT # 109 -BYTE # 203 -PORT # 109 -BYTE # 204 -PORT # 109 -BYTE # 205 -PORT # 109 -BYTE # 206 -PORT # 109 -BYTE # 207 -PORT # 109 -BYTE # 208 -PORT # 109 -BYTE # 209 -PORT # 109 -BYTE # 210 -PORT # 109 -BYTE # 211 -PORT # 109 -BYTE # 212 -PORT # 109 -BYTE # 213 -PORT # 109 -BYTE # 214 -PORT # 109 -BYTE # 215 -PORT # 109 -BYTE # 216 -PORT # 109 -BYTE # 217 -PORT # 109 -BYTE # 218 -PORT # 109 -BYTE # 219 -PORT # 109 -BYTE # 220 -PORT # 109 -BYTE # 221 -PORT # 109 -BYTE # 222 -PORT # 109 -BYTE # 223 -PORT # 109 -BYTE # 224 -PORT # 109 -BYTE # 225 -PORT # 109 -BYTE # 226 -PORT # 109 -BYTE # 227 -PORT # 109 -BYTE # 228 -PORT # 109 -BYTE # 229 -PORT # 109 -BYTE # 230 -PORT # 109 -BYTE # 231 -PORT # 109 -BYTE # 232 -PORT # 109 -BYTE # 233 -PORT # 109 -BYTE # 234 -PORT # 109 -BYTE # 235 -PORT # 109 -BYTE # 236 -PORT # 109 -BYTE # 237 -PORT # 109 -BYTE # 238 -PORT # 109 -BYTE # 239 -PORT # 109 -BYTE # 240 -PORT # 109 -BYTE # 241 -PORT # 109 -BYTE # 242 -PORT # 109 -BYTE # 243 -PORT # 109 -BYTE # 244 -PORT # 109 -BYTE # 245 -PORT # 109 -BYTE # 246 -PORT # 109 -BYTE # 247 -PORT # 109 -BYTE # 248 -PORT # 109 -BYTE # 249 -PORT # 109 -BYTE # 250 -PORT # 109 -BYTE # 251 -PORT # 109 -BYTE # 252 -PORT # 109 -BYTE # 253 -PORT # 109 -BYTE # 254 -PORT # 109 -BYTE # 255 -PORT # 110 -BYTE # 0 -PORT # 110 -BYTE # 1 -PORT # 110 -BYTE # 2 -PORT # 110 -BYTE # 3 -PORT # 110 -BYTE # 4 -PORT # 110 -BYTE # 5 -PORT # 110 -BYTE # 6 -PORT # 110 -BYTE # 7 -PORT # 110 -BYTE # 8 -PORT # 110 -BYTE # 9 -PORT # 110 -BYTE # 10 -PORT # 110 -BYTE # 11 -PORT # 110 -BYTE # 12 -PORT # 110 -BYTE # 13 -PORT # 110 -BYTE # 14 -PORT # 110 -BYTE # 15 -PORT # 110 -BYTE # 16 -PORT # 110 -BYTE # 17 -PORT # 110 -BYTE # 18 -PORT # 110 -BYTE # 19 -PORT # 110 -BYTE # 20 -PORT # 110 -BYTE # 21 -PORT # 110 -BYTE # 22 -PORT # 110 -BYTE # 23 -PORT # 110 -BYTE # 24 -PORT # 110 -BYTE # 25 -PORT # 110 -BYTE # 26 -PORT # 110 -BYTE # 27 -PORT # 110 -BYTE # 28 -PORT # 110 -BYTE # 29 -PORT # 110 -BYTE # 30 -PORT # 110 -BYTE # 31 -PORT # 110 -BYTE # 32 -PORT # 110 -BYTE # 33 -PORT # 110 -BYTE # 34 -PORT # 110 -BYTE # 35 -PORT # 110 -BYTE # 36 -PORT # 110 -BYTE # 37 -PORT # 110 -BYTE # 38 -PORT # 110 -BYTE # 39 -PORT # 110 -BYTE # 40 -PORT # 110 -BYTE # 41 -PORT # 110 -BYTE # 42 -PORT # 110 -BYTE # 43 -PORT # 110 -BYTE # 44 -PORT # 110 -BYTE # 45 -PORT # 110 -BYTE # 46 -PORT # 110 -BYTE # 47 -PORT # 110 -BYTE # 48 -PORT # 110 -BYTE # 49 -PORT # 110 -BYTE # 50 -PORT # 110 -BYTE # 51 -PORT # 110 -BYTE # 52 -PORT # 110 -BYTE # 53 -PORT # 110 -BYTE # 54 -PORT # 110 -BYTE # 55 -PORT # 110 -BYTE # 56 -PORT # 110 -BYTE # 57 -PORT # 110 -BYTE # 58 -PORT # 110 -BYTE # 59 -PORT # 110 -BYTE # 60 -PORT # 110 -BYTE # 61 -PORT # 110 -BYTE # 62 -PORT # 110 -BYTE # 63 -PORT # 110 -BYTE # 64 -PORT # 110 -BYTE # 65 -PORT # 110 -BYTE # 66 -PORT # 110 -BYTE # 67 -PORT # 110 -BYTE # 68 -PORT # 110 -BYTE # 69 -PORT # 110 -BYTE # 70 -PORT # 110 -BYTE # 71 -PORT # 110 -BYTE # 72 -PORT # 110 -BYTE # 73 -PORT # 110 -BYTE # 74 -PORT # 110 -BYTE # 75 -PORT # 110 -BYTE # 76 -PORT # 110 -BYTE # 77 -PORT # 110 -BYTE # 78 -PORT # 110 -BYTE # 79 -PORT # 110 -BYTE # 80 -PORT # 110 -BYTE # 81 -PORT # 110 -BYTE # 82 -PORT # 110 -BYTE # 83 -PORT # 110 -BYTE # 84 -PORT # 110 -BYTE # 85 -PORT # 110 -BYTE # 86 -PORT # 110 -BYTE # 87 -PORT # 110 -BYTE # 88 -PORT # 110 -BYTE # 89 -PORT # 110 -BYTE # 90 -PORT # 110 -BYTE # 91 -PORT # 110 -BYTE # 92 -PORT # 110 -BYTE # 93 -PORT # 110 -BYTE # 94 -PORT # 110 -BYTE # 95 -PORT # 110 -BYTE # 96 -PORT # 110 -BYTE # 97 -PORT # 110 -BYTE # 98 -PORT # 110 -BYTE # 99 -PORT # 110 -BYTE # 100 -PORT # 110 -BYTE # 101 -PORT # 110 -BYTE # 102 -PORT # 110 -BYTE # 103 -PORT # 110 -BYTE # 104 -PORT # 110 -BYTE # 105 -PORT # 110 -BYTE # 106 -PORT # 110 -BYTE # 107 -PORT # 110 -BYTE # 108 -PORT # 110 -BYTE # 109 -PORT # 110 -BYTE # 110 -PORT # 110 -BYTE # 111 -PORT # 110 -BYTE # 112 -PORT # 110 -BYTE # 113 -PORT # 110 -BYTE # 114 -PORT # 110 -BYTE # 115 -PORT # 110 -BYTE # 116 -PORT # 110 -BYTE # 117 -PORT # 110 -BYTE # 118 -PORT # 110 -BYTE # 119 -PORT # 110 -BYTE # 120 -PORT # 110 -BYTE # 121 -PORT # 110 -BYTE # 122 -PORT # 110 -BYTE # 123 -PORT # 110 -BYTE # 124 -PORT # 110 -BYTE # 125 -PORT # 110 -BYTE # 126 -PORT # 110 -BYTE # 127 -PORT # 110 -BYTE # 128 -PORT # 110 -BYTE # 129 -PORT # 110 -BYTE # 130 -PORT # 110 -BYTE # 131 -PORT # 110 -BYTE # 132 -PORT # 110 -BYTE # 133 -PORT # 110 -BYTE # 134 -PORT # 110 -BYTE # 135 -PORT # 110 -BYTE # 136 -PORT # 110 -BYTE # 137 -PORT # 110 -BYTE # 138 -PORT # 110 -BYTE # 139 -PORT # 110 -BYTE # 140 -PORT # 110 -BYTE # 141 -PORT # 110 -BYTE # 142 -PORT # 110 -BYTE # 143 -PORT # 110 -BYTE # 144 -PORT # 110 -BYTE # 145 -PORT # 110 -BYTE # 146 -PORT # 110 -BYTE # 147 -PORT # 110 -BYTE # 148 -PORT # 110 -BYTE # 149 -PORT # 110 -BYTE # 150 -PORT # 110 -BYTE # 151 -PORT # 110 -BYTE # 152 -PORT # 110 -BYTE # 153 -PORT # 110 -BYTE # 154 -PORT # 110 -BYTE # 155 -PORT # 110 -BYTE # 156 -PORT # 110 -BYTE # 157 -PORT # 110 -BYTE # 158 -PORT # 110 -BYTE # 159 -PORT # 110 -BYTE # 160 -PORT # 110 -BYTE # 161 -PORT # 110 -BYTE # 162 -PORT # 110 -BYTE # 163 -PORT # 110 -BYTE # 164 -PORT # 110 -BYTE # 165 -PORT # 110 -BYTE # 166 -PORT # 110 -BYTE # 167 -PORT # 110 -BYTE # 168 -PORT # 110 -BYTE # 169 -PORT # 110 -BYTE # 170 -PORT # 110 -BYTE # 171 -PORT # 110 -BYTE # 172 -PORT # 110 -BYTE # 173 -PORT # 110 -BYTE # 174 -PORT # 110 -BYTE # 175 -PORT # 110 -BYTE # 176 -PORT # 110 -BYTE # 177 -PORT # 110 -BYTE # 178 -PORT # 110 -BYTE # 179 -PORT # 110 -BYTE # 180 -PORT # 110 -BYTE # 181 -PORT # 110 -BYTE # 182 -PORT # 110 -BYTE # 183 -PORT # 110 -BYTE # 184 -PORT # 110 -BYTE # 185 -PORT # 110 -BYTE # 186 -PORT # 110 -BYTE # 187 -PORT # 110 -BYTE # 188 -PORT # 110 -BYTE # 189 -PORT # 110 -BYTE # 190 -PORT # 110 -BYTE # 191 -PORT # 110 -BYTE # 192 -PORT # 110 -BYTE # 193 -PORT # 110 -BYTE # 194 -PORT # 110 -BYTE # 195 -PORT # 110 -BYTE # 196 -PORT # 110 -BYTE # 197 -PORT # 110 -BYTE # 198 -PORT # 110 -BYTE # 199 -PORT # 110 -BYTE # 200 -PORT # 110 -BYTE # 201 -PORT # 110 -BYTE # 202 -PORT # 110 -BYTE # 203 -PORT # 110 -BYTE # 204 -PORT # 110 -BYTE # 205 -PORT # 110 -BYTE # 206 -PORT # 110 -BYTE # 207 -PORT # 110 -BYTE # 208 -PORT # 110 -BYTE # 209 -PORT # 110 -BYTE # 210 -PORT # 110 -BYTE # 211 -PORT # 110 -BYTE # 212 -PORT # 110 -BYTE # 213 -PORT # 110 -BYTE # 214 -PORT # 110 -BYTE # 215 -PORT # 110 -BYTE # 216 -PORT # 110 -BYTE # 217 -PORT # 110 -BYTE # 218 -PORT # 110 -BYTE # 219 -PORT # 110 -BYTE # 220 -PORT # 110 -BYTE # 221 -PORT # 110 -BYTE # 222 -PORT # 110 -BYTE # 223 -PORT # 110 -BYTE # 224 -PORT # 110 -BYTE # 225 -PORT # 110 -BYTE # 226 -PORT # 110 -BYTE # 227 -PORT # 110 -BYTE # 228 -PORT # 110 -BYTE # 229 -PORT # 110 -BYTE # 230 -PORT # 110 -BYTE # 231 -PORT # 110 -BYTE # 232 -PORT # 110 -BYTE # 233 -PORT # 110 -BYTE # 234 -PORT # 110 -BYTE # 235 -PORT # 110 -BYTE # 236 -PORT # 110 -BYTE # 237 -PORT # 110 -BYTE # 238 -PORT # 110 -BYTE # 239 -PORT # 110 -BYTE # 240 -PORT # 110 -BYTE # 241 -PORT # 110 -BYTE # 242 -PORT # 110 -BYTE # 243 -PORT # 110 -BYTE # 244 -PORT # 110 -BYTE # 245 -PORT # 110 -BYTE # 246 -PORT # 110 -BYTE # 247 -PORT # 110 -BYTE # 248 -PORT # 110 -BYTE # 249 -PORT # 110 -BYTE # 250 -PORT # 110 -BYTE # 251 -PORT # 110 -BYTE # 252 -PORT # 110 -BYTE # 253 -PORT # 110 -BYTE # 254 -PORT # 110 -BYTE # 255 -PORT # 111 -BYTE # 0 -PORT # 111 -BYTE # 1 -PORT # 111 -BYTE # 2 -PORT # 111 -BYTE # 3 -PORT # 111 -BYTE # 4 -PORT # 111 -BYTE # 5 -PORT # 111 -BYTE # 6 -PORT # 111 -BYTE # 7 -PORT # 111 -BYTE # 8 -PORT # 111 -BYTE # 9 -PORT # 111 -BYTE # 10 -PORT # 111 -BYTE # 11 -PORT # 111 -BYTE # 12 -PORT # 111 -BYTE # 13 -PORT # 111 -BYTE # 14 -PORT # 111 -BYTE # 15 -PORT # 111 -BYTE # 16 -PORT # 111 -BYTE # 17 -PORT # 111 -BYTE # 18 -PORT # 111 -BYTE # 19 -PORT # 111 -BYTE # 20 -PORT # 111 -BYTE # 21 -PORT # 111 -BYTE # 22 -PORT # 111 -BYTE # 23 -PORT # 111 -BYTE # 24 -PORT # 111 -BYTE # 25 -PORT # 111 -BYTE # 26 -PORT # 111 -BYTE # 27 -PORT # 111 -BYTE # 28 -PORT # 111 -BYTE # 29 -PORT # 111 -BYTE # 30 -PORT # 111 -BYTE # 31 -PORT # 111 -BYTE # 32 -PORT # 111 -BYTE # 33 -PORT # 111 -BYTE # 34 -PORT # 111 -BYTE # 35 -PORT # 111 -BYTE # 36 -PORT # 111 -BYTE # 37 -PORT # 111 -BYTE # 38 -PORT # 111 -BYTE # 39 -PORT # 111 -BYTE # 40 -PORT # 111 -BYTE # 41 -PORT # 111 -BYTE # 42 -PORT # 111 -BYTE # 43 -PORT # 111 -BYTE # 44 -PORT # 111 -BYTE # 45 -PORT # 111 -BYTE # 46 -PORT # 111 -BYTE # 47 -PORT # 111 -BYTE # 48 -PORT # 111 -BYTE # 49 -PORT # 111 -BYTE # 50 -PORT # 111 -BYTE # 51 -PORT # 111 -BYTE # 52 -PORT # 111 -BYTE # 53 -PORT # 111 -BYTE # 54 -PORT # 111 -BYTE # 55 -PORT # 111 -BYTE # 56 -PORT # 111 -BYTE # 57 -PORT # 111 -BYTE # 58 -PORT # 111 -BYTE # 59 -PORT # 111 -BYTE # 60 -PORT # 111 -BYTE # 61 -PORT # 111 -BYTE # 62 -PORT # 111 -BYTE # 63 -PORT # 111 -BYTE # 64 -PORT # 111 -BYTE # 65 -PORT # 111 -BYTE # 66 -PORT # 111 -BYTE # 67 -PORT # 111 -BYTE # 68 -PORT # 111 -BYTE # 69 -PORT # 111 -BYTE # 70 -PORT # 111 -BYTE # 71 -PORT # 111 -BYTE # 72 -PORT # 111 -BYTE # 73 -PORT # 111 -BYTE # 74 -PORT # 111 -BYTE # 75 -PORT # 111 -BYTE # 76 -PORT # 111 -BYTE # 77 -PORT # 111 -BYTE # 78 -PORT # 111 -BYTE # 79 -PORT # 111 -BYTE # 80 -PORT # 111 -BYTE # 81 -PORT # 111 -BYTE # 82 -PORT # 111 -BYTE # 83 -PORT # 111 -BYTE # 84 -PORT # 111 -BYTE # 85 -PORT # 111 -BYTE # 86 -PORT # 111 -BYTE # 87 -PORT # 111 -BYTE # 88 -PORT # 111 -BYTE # 89 -PORT # 111 -BYTE # 90 -PORT # 111 -BYTE # 91 -PORT # 111 -BYTE # 92 -PORT # 111 -BYTE # 93 -PORT # 111 -BYTE # 94 -PORT # 111 -BYTE # 95 -PORT # 111 -BYTE # 96 -PORT # 111 -BYTE # 97 -PORT # 111 -BYTE # 98 -PORT # 111 -BYTE # 99 -PORT # 111 -BYTE # 100 -PORT # 111 -BYTE # 101 -PORT # 111 -BYTE # 102 -PORT # 111 -BYTE # 103 -PORT # 111 -BYTE # 104 -PORT # 111 -BYTE # 105 -PORT # 111 -BYTE # 106 -PORT # 111 -BYTE # 107 -PORT # 111 -BYTE # 108 -PORT # 111 -BYTE # 109 -PORT # 111 -BYTE # 110 -PORT # 111 -BYTE # 111 -PORT # 111 -BYTE # 112 -PORT # 111 -BYTE # 113 -PORT # 111 -BYTE # 114 -PORT # 111 -BYTE # 115 -PORT # 111 -BYTE # 116 -PORT # 111 -BYTE # 117 -PORT # 111 -BYTE # 118 -PORT # 111 -BYTE # 119 -PORT # 111 -BYTE # 120 -PORT # 111 -BYTE # 121 -PORT # 111 -BYTE # 122 -PORT # 111 -BYTE # 123 -PORT # 111 -BYTE # 124 -PORT # 111 -BYTE # 125 -PORT # 111 -BYTE # 126 -PORT # 111 -BYTE # 127 -PORT # 111 -BYTE # 128 -PORT # 111 -BYTE # 129 -PORT # 111 -BYTE # 130 -PORT # 111 -BYTE # 131 -PORT # 111 -BYTE # 132 -PORT # 111 -BYTE # 133 -PORT # 111 -BYTE # 134 -PORT # 111 -BYTE # 135 -PORT # 111 -BYTE # 136 -PORT # 111 -BYTE # 137 -PORT # 111 -BYTE # 138 -PORT # 111 -BYTE # 139 -PORT # 111 -BYTE # 140 -PORT # 111 -BYTE # 141 -PORT # 111 -BYTE # 142 -PORT # 111 -BYTE # 143 -PORT # 111 -BYTE # 144 -PORT # 111 -BYTE # 145 -PORT # 111 -BYTE # 146 -PORT # 111 -BYTE # 147 -PORT # 111 -BYTE # 148 -PORT # 111 -BYTE # 149 -PORT # 111 -BYTE # 150 -PORT # 111 -BYTE # 151 -PORT # 111 -BYTE # 152 -PORT # 111 -BYTE # 153 -PORT # 111 -BYTE # 154 -PORT # 111 -BYTE # 155 -PORT # 111 -BYTE # 156 -PORT # 111 -BYTE # 157 -PORT # 111 -BYTE # 158 -PORT # 111 -BYTE # 159 -PORT # 111 -BYTE # 160 -PORT # 111 -BYTE # 161 -PORT # 111 -BYTE # 162 -PORT # 111 -BYTE # 163 -PORT # 111 -BYTE # 164 -PORT # 111 -BYTE # 165 -PORT # 111 -BYTE # 166 -PORT # 111 -BYTE # 167 -PORT # 111 -BYTE # 168 -PORT # 111 -BYTE # 169 -PORT # 111 -BYTE # 170 -PORT # 111 -BYTE # 171 -PORT # 111 -BYTE # 172 -PORT # 111 -BYTE # 173 -PORT # 111 -BYTE # 174 -PORT # 111 -BYTE # 175 -PORT # 111 -BYTE # 176 -PORT # 111 -BYTE # 177 -PORT # 111 -BYTE # 178 -PORT # 111 -BYTE # 179 -PORT # 111 -BYTE # 180 -PORT # 111 -BYTE # 181 -PORT # 111 -BYTE # 182 -PORT # 111 -BYTE # 183 -PORT # 111 -BYTE # 184 -PORT # 111 -BYTE # 185 -PORT # 111 -BYTE # 186 -PORT # 111 -BYTE # 187 -PORT # 111 -BYTE # 188 -PORT # 111 -BYTE # 189 -PORT # 111 -BYTE # 190 -PORT # 111 -BYTE # 191 -PORT # 111 -BYTE # 192 -PORT # 111 -BYTE # 193 -PORT # 111 -BYTE # 194 -PORT # 111 -BYTE # 195 -PORT # 111 -BYTE # 196 -PORT # 111 -BYTE # 197 -PORT # 111 -BYTE # 198 -PORT # 111 -BYTE # 199 -PORT # 111 -BYTE # 200 -PORT # 111 -BYTE # 201 -PORT # 111 -BYTE # 202 -PORT # 111 -BYTE # 203 -PORT # 111 -BYTE # 204 -PORT # 111 -BYTE # 205 -PORT # 111 -BYTE # 206 -PORT # 111 -BYTE # 207 -PORT # 111 -BYTE # 208 -PORT # 111 -BYTE # 209 -PORT # 111 -BYTE # 210 -PORT # 111 -BYTE # 211 -PORT # 111 -BYTE # 212 -PORT # 111 -BYTE # 213 -PORT # 111 -BYTE # 214 -PORT # 111 -BYTE # 215 -PORT # 111 -BYTE # 216 -PORT # 111 -BYTE # 217 -PORT # 111 -BYTE # 218 -PORT # 111 -BYTE # 219 -PORT # 111 -BYTE # 220 -PORT # 111 -BYTE # 221 -PORT # 111 -BYTE # 222 -PORT # 111 -BYTE # 223 -PORT # 111 -BYTE # 224 -PORT # 111 -BYTE # 225 -PORT # 111 -BYTE # 226 -PORT # 111 -BYTE # 227 -PORT # 111 -BYTE # 228 -PORT # 111 -BYTE # 229 -PORT # 111 -BYTE # 230 -PORT # 111 -BYTE # 231 -PORT # 111 -BYTE # 232 -PORT # 111 -BYTE # 233 -PORT # 111 -BYTE # 234 -PORT # 111 -BYTE # 235 -PORT # 111 -BYTE # 236 -PORT # 111 -BYTE # 237 -PORT # 111 -BYTE # 238 -PORT # 111 -BYTE # 239 -PORT # 111 -BYTE # 240 -PORT # 111 -BYTE # 241 -PORT # 111 -BYTE # 242 -PORT # 111 -BYTE # 243 -PORT # 111 -BYTE # 244 -PORT # 111 -BYTE # 245 -PORT # 111 -BYTE # 246 -PORT # 111 -BYTE # 247 -PORT # 111 -BYTE # 248 -PORT # 111 -BYTE # 249 -PORT # 111 -BYTE # 250 -PORT # 111 -BYTE # 251 -PORT # 111 -BYTE # 252 -PORT # 111 -BYTE # 253 -PORT # 111 -BYTE # 254 -PORT # 111 -BYTE # 255 -PORT # 112 -BYTE # 0 -PORT # 112 -BYTE # 1 -PORT # 112 -BYTE # 2 -PORT # 112 -BYTE # 3 -PORT # 112 -BYTE # 4 -PORT # 112 -BYTE # 5 -PORT # 112 -BYTE # 6 -PORT # 112 -BYTE # 7 -PORT # 112 -BYTE # 8 -PORT # 112 -BYTE # 9 -PORT # 112 -BYTE # 10 -PORT # 112 -BYTE # 11 -PORT # 112 -BYTE # 12 -PORT # 112 -BYTE # 13 -PORT # 112 -BYTE # 14 -PORT # 112 -BYTE # 15 -PORT # 112 -BYTE # 16 -PORT # 112 -BYTE # 17 -PORT # 112 -BYTE # 18 -PORT # 112 -BYTE # 19 -PORT # 112 -BYTE # 20 -PORT # 112 -BYTE # 21 -PORT # 112 -BYTE # 22 -PORT # 112 -BYTE # 23 -PORT # 112 -BYTE # 24 -PORT # 112 -BYTE # 25 -PORT # 112 -BYTE # 26 -PORT # 112 -BYTE # 27 -PORT # 112 -BYTE # 28 -PORT # 112 -BYTE # 29 -PORT # 112 -BYTE # 30 -PORT # 112 -BYTE # 31 -PORT # 112 -BYTE # 32 -PORT # 112 -BYTE # 33 -PORT # 112 -BYTE # 34 -PORT # 112 -BYTE # 35 -PORT # 112 -BYTE # 36 -PORT # 112 -BYTE # 37 -PORT # 112 -BYTE # 38 -PORT # 112 -BYTE # 39 -PORT # 112 -BYTE # 40 -PORT # 112 -BYTE # 41 -PORT # 112 -BYTE # 42 -PORT # 112 -BYTE # 43 -PORT # 112 -BYTE # 44 -PORT # 112 -BYTE # 45 -PORT # 112 -BYTE # 46 -PORT # 112 -BYTE # 47 -PORT # 112 -BYTE # 48 -PORT # 112 -BYTE # 49 -PORT # 112 -BYTE # 50 -PORT # 112 -BYTE # 51 -PORT # 112 -BYTE # 52 -PORT # 112 -BYTE # 53 -PORT # 112 -BYTE # 54 -PORT # 112 -BYTE # 55 -PORT # 112 -BYTE # 56 -PORT # 112 -BYTE # 57 -PORT # 112 -BYTE # 58 -PORT # 112 -BYTE # 59 -PORT # 112 -BYTE # 60 -PORT # 112 -BYTE # 61 -PORT # 112 -BYTE # 62 -PORT # 112 -BYTE # 63 -PORT # 112 -BYTE # 64 -PORT # 112 -BYTE # 65 -PORT # 112 -BYTE # 66 -PORT # 112 -BYTE # 67 -PORT # 112 -BYTE # 68 -PORT # 112 -BYTE # 69 -PORT # 112 -BYTE # 70 -PORT # 112 -BYTE # 71 -PORT # 112 -BYTE # 72 -PORT # 112 -BYTE # 73 -PORT # 112 -BYTE # 74 -PORT # 112 -BYTE # 75 -PORT # 112 -BYTE # 76 -PORT # 112 -BYTE # 77 -PORT # 112 -BYTE # 78 -PORT # 112 -BYTE # 79 -PORT # 112 -BYTE # 80 -PORT # 112 -BYTE # 81 -PORT # 112 -BYTE # 82 -PORT # 112 -BYTE # 83 -PORT # 112 -BYTE # 84 -PORT # 112 -BYTE # 85 -PORT # 112 -BYTE # 86 -PORT # 112 -BYTE # 87 -PORT # 112 -BYTE # 88 -PORT # 112 -BYTE # 89 -PORT # 112 -BYTE # 90 -PORT # 112 -BYTE # 91 -PORT # 112 -BYTE # 92 -PORT # 112 -BYTE # 93 -PORT # 112 -BYTE # 94 -PORT # 112 -BYTE # 95 -PORT # 112 -BYTE # 96 -PORT # 112 -BYTE # 97 -PORT # 112 -BYTE # 98 -PORT # 112 -BYTE # 99 -PORT # 112 -BYTE # 100 -PORT # 112 -BYTE # 101 -PORT # 112 -BYTE # 102 -PORT # 112 -BYTE # 103 -PORT # 112 -BYTE # 104 -PORT # 112 -BYTE # 105 -PORT # 112 -BYTE # 106 -PORT # 112 -BYTE # 107 -PORT # 112 -BYTE # 108 -PORT # 112 -BYTE # 109 -PORT # 112 -BYTE # 110 -PORT # 112 -BYTE # 111 -PORT # 112 -BYTE # 112 -PORT # 112 -BYTE # 113 -PORT # 112 -BYTE # 114 -PORT # 112 -BYTE # 115 -PORT # 112 -BYTE # 116 -PORT # 112 -BYTE # 117 -PORT # 112 -BYTE # 118 -PORT # 112 -BYTE # 119 -PORT # 112 -BYTE # 120 -PORT # 112 -BYTE # 121 -PORT # 112 -BYTE # 122 -PORT # 112 -BYTE # 123 -PORT # 112 -BYTE # 124 -PORT # 112 -BYTE # 125 -PORT # 112 -BYTE # 126 -PORT # 112 -BYTE # 127 -PORT # 112 -BYTE # 128 -PORT # 112 -BYTE # 129 -PORT # 112 -BYTE # 130 -PORT # 112 -BYTE # 131 -PORT # 112 -BYTE # 132 -PORT # 112 -BYTE # 133 -PORT # 112 -BYTE # 134 -PORT # 112 -BYTE # 135 -PORT # 112 -BYTE # 136 -PORT # 112 -BYTE # 137 -PORT # 112 -BYTE # 138 -PORT # 112 -BYTE # 139 -PORT # 112 -BYTE # 140 -PORT # 112 -BYTE # 141 -PORT # 112 -BYTE # 142 -PORT # 112 -BYTE # 143 -PORT # 112 -BYTE # 144 -PORT # 112 -BYTE # 145 -PORT # 112 -BYTE # 146 -PORT # 112 -BYTE # 147 -PORT # 112 -BYTE # 148 -PORT # 112 -BYTE # 149 -PORT # 112 -BYTE # 150 -PORT # 112 -BYTE # 151 -PORT # 112 -BYTE # 152 -PORT # 112 -BYTE # 153 -PORT # 112 -BYTE # 154 -PORT # 112 -BYTE # 155 -PORT # 112 -BYTE # 156 -PORT # 112 -BYTE # 157 -PORT # 112 -BYTE # 158 -PORT # 112 -BYTE # 159 -PORT # 112 -BYTE # 160 -PORT # 112 -BYTE # 161 -PORT # 112 -BYTE # 162 -PORT # 112 -BYTE # 163 -PORT # 112 -BYTE # 164 -PORT # 112 -BYTE # 165 -PORT # 112 -BYTE # 166 -PORT # 112 -BYTE # 167 -PORT # 112 -BYTE # 168 -PORT # 112 -BYTE # 169 -PORT # 112 -BYTE # 170 -PORT # 112 -BYTE # 171 -PORT # 112 -BYTE # 172 -PORT # 112 -BYTE # 173 -PORT # 112 -BYTE # 174 -PORT # 112 -BYTE # 175 -PORT # 112 -BYTE # 176 -PORT # 112 -BYTE # 177 -PORT # 112 -BYTE # 178 -PORT # 112 -BYTE # 179 -PORT # 112 -BYTE # 180 -PORT # 112 -BYTE # 181 -PORT # 112 -BYTE # 182 -PORT # 112 -BYTE # 183 -PORT # 112 -BYTE # 184 -PORT # 112 -BYTE # 185 -PORT # 112 -BYTE # 186 -PORT # 112 -BYTE # 187 -PORT # 112 -BYTE # 188 -PORT # 112 -BYTE # 189 -PORT # 112 -BYTE # 190 -PORT # 112 -BYTE # 191 -PORT # 112 -BYTE # 192 -PORT # 112 -BYTE # 193 -PORT # 112 -BYTE # 194 -PORT # 112 -BYTE # 195 -PORT # 112 -BYTE # 196 -PORT # 112 -BYTE # 197 -PORT # 112 -BYTE # 198 -PORT # 112 -BYTE # 199 -PORT # 112 -BYTE # 200 -PORT # 112 -BYTE # 201 -PORT # 112 -BYTE # 202 -PORT # 112 -BYTE # 203 -PORT # 112 -BYTE # 204 -PORT # 112 -BYTE # 205 -PORT # 112 -BYTE # 206 -PORT # 112 -BYTE # 207 -PORT # 112 -BYTE # 208 -PORT # 112 -BYTE # 209 -PORT # 112 -BYTE # 210 -PORT # 112 -BYTE # 211 -PORT # 112 -BYTE # 212 -PORT # 112 -BYTE # 213 -PORT # 112 -BYTE # 214 -PORT # 112 -BYTE # 215 -PORT # 112 -BYTE # 216 -PORT # 112 -BYTE # 217 -PORT # 112 -BYTE # 218 -PORT # 112 -BYTE # 219 -PORT # 112 -BYTE # 220 -PORT # 112 -BYTE # 221 -PORT # 112 -BYTE # 222 -PORT # 112 -BYTE # 223 -PORT # 112 -BYTE # 224 -PORT # 112 -BYTE # 225 -PORT # 112 -BYTE # 226 -PORT # 112 -BYTE # 227 -PORT # 112 -BYTE # 228 -PORT # 112 -BYTE # 229 -PORT # 112 -BYTE # 230 -PORT # 112 -BYTE # 231 -PORT # 112 -BYTE # 232 -PORT # 112 -BYTE # 233 -PORT # 112 -BYTE # 234 -PORT # 112 -BYTE # 235 -PORT # 112 -BYTE # 236 -PORT # 112 -BYTE # 237 -PORT # 112 -BYTE # 238 -PORT # 112 -BYTE # 239 -PORT # 112 -BYTE # 240 -PORT # 112 -BYTE # 241 -PORT # 112 -BYTE # 242 -PORT # 112 -BYTE # 243 -PORT # 112 -BYTE # 244 -PORT # 112 -BYTE # 245 -PORT # 112 -BYTE # 246 -PORT # 112 -BYTE # 247 -PORT # 112 -BYTE # 248 -PORT # 112 -BYTE # 249 -PORT # 112 -BYTE # 250 -PORT # 112 -BYTE # 251 -PORT # 112 -BYTE # 252 -PORT # 112 -BYTE # 253 -PORT # 112 -BYTE # 254 -PORT # 112 -BYTE # 255 -PORT # 113 -BYTE # 0 -PORT # 113 -BYTE # 1 -PORT # 113 -BYTE # 2 -PORT # 113 -BYTE # 3 -PORT # 113 -BYTE # 4 -PORT # 113 -BYTE # 5 -PORT # 113 -BYTE # 6 -PORT # 113 -BYTE # 7 -PORT # 113 -BYTE # 8 -PORT # 113 -BYTE # 9 -PORT # 113 -BYTE # 10 -PORT # 113 -BYTE # 11 -PORT # 113 -BYTE # 12 -PORT # 113 -BYTE # 13 -PORT # 113 -BYTE # 14 -PORT # 113 -BYTE # 15 -PORT # 113 -BYTE # 16 -PORT # 113 -BYTE # 17 -PORT # 113 -BYTE # 18 -PORT # 113 -BYTE # 19 -PORT # 113 -BYTE # 20 -PORT # 113 -BYTE # 21 -PORT # 113 -BYTE # 22 -PORT # 113 -BYTE # 23 -PORT # 113 -BYTE # 24 -PORT # 113 -BYTE # 25 -PORT # 113 -BYTE # 26 -PORT # 113 -BYTE # 27 -PORT # 113 -BYTE # 28 -PORT # 113 -BYTE # 29 -PORT # 113 -BYTE # 30 -PORT # 113 -BYTE # 31 -PORT # 113 -BYTE # 32 -PORT # 113 -BYTE # 33 -PORT # 113 -BYTE # 34 -PORT # 113 -BYTE # 35 -PORT # 113 -BYTE # 36 -PORT # 113 -BYTE # 37 -PORT # 113 -BYTE # 38 -PORT # 113 -BYTE # 39 -PORT # 113 -BYTE # 40 -PORT # 113 -BYTE # 41 -PORT # 113 -BYTE # 42 -PORT # 113 -BYTE # 43 -PORT # 113 -BYTE # 44 -PORT # 113 -BYTE # 45 -PORT # 113 -BYTE # 46 -PORT # 113 -BYTE # 47 -PORT # 113 -BYTE # 48 -PORT # 113 -BYTE # 49 -PORT # 113 -BYTE # 50 -PORT # 113 -BYTE # 51 -PORT # 113 -BYTE # 52 -PORT # 113 -BYTE # 53 -PORT # 113 -BYTE # 54 -PORT # 113 -BYTE # 55 -PORT # 113 -BYTE # 56 -PORT # 113 -BYTE # 57 -PORT # 113 -BYTE # 58 -PORT # 113 -BYTE # 59 -PORT # 113 -BYTE # 60 -PORT # 113 -BYTE # 61 -PORT # 113 -BYTE # 62 -PORT # 113 -BYTE # 63 -PORT # 113 -BYTE # 64 -PORT # 113 -BYTE # 65 -PORT # 113 -BYTE # 66 -PORT # 113 -BYTE # 67 -PORT # 113 -BYTE # 68 -PORT # 113 -BYTE # 69 -PORT # 113 -BYTE # 70 -PORT # 113 -BYTE # 71 -PORT # 113 -BYTE # 72 -PORT # 113 -BYTE # 73 -PORT # 113 -BYTE # 74 -PORT # 113 -BYTE # 75 -PORT # 113 -BYTE # 76 -PORT # 113 -BYTE # 77 -PORT # 113 -BYTE # 78 -PORT # 113 -BYTE # 79 -PORT # 113 -BYTE # 80 -PORT # 113 -BYTE # 81 -PORT # 113 -BYTE # 82 -PORT # 113 -BYTE # 83 -PORT # 113 -BYTE # 84 -PORT # 113 -BYTE # 85 -PORT # 113 -BYTE # 86 -PORT # 113 -BYTE # 87 -PORT # 113 -BYTE # 88 -PORT # 113 -BYTE # 89 -PORT # 113 -BYTE # 90 -PORT # 113 -BYTE # 91 -PORT # 113 -BYTE # 92 -PORT # 113 -BYTE # 93 -PORT # 113 -BYTE # 94 -PORT # 113 -BYTE # 95 -PORT # 113 -BYTE # 96 -PORT # 113 -BYTE # 97 -PORT # 113 -BYTE # 98 -PORT # 113 -BYTE # 99 -PORT # 113 -BYTE # 100 -PORT # 113 -BYTE # 101 -PORT # 113 -BYTE # 102 -PORT # 113 -BYTE # 103 -PORT # 113 -BYTE # 104 -PORT # 113 -BYTE # 105 -PORT # 113 -BYTE # 106 -PORT # 113 -BYTE # 107 -PORT # 113 -BYTE # 108 -PORT # 113 -BYTE # 109 -PORT # 113 -BYTE # 110 -PORT # 113 -BYTE # 111 -PORT # 113 -BYTE # 112 -PORT # 113 -BYTE # 113 -PORT # 113 -BYTE # 114 -PORT # 113 -BYTE # 115 -PORT # 113 -BYTE # 116 -PORT # 113 -BYTE # 117 -PORT # 113 -BYTE # 118 -PORT # 113 -BYTE # 119 -PORT # 113 -BYTE # 120 -PORT # 113 -BYTE # 121 -PORT # 113 -BYTE # 122 -PORT # 113 -BYTE # 123 -PORT # 113 -BYTE # 124 -PORT # 113 -BYTE # 125 -PORT # 113 -BYTE # 126 -PORT # 113 -BYTE # 127 -PORT # 113 -BYTE # 128 -PORT # 113 -BYTE # 129 -PORT # 113 -BYTE # 130 -PORT # 113 -BYTE # 131 -PORT # 113 -BYTE # 132 -PORT # 113 -BYTE # 133 -PORT # 113 -BYTE # 134 -PORT # 113 -BYTE # 135 -PORT # 113 -BYTE # 136 -PORT # 113 -BYTE # 137 -PORT # 113 -BYTE # 138 -PORT # 113 -BYTE # 139 -PORT # 113 -BYTE # 140 -PORT # 113 -BYTE # 141 -PORT # 113 -BYTE # 142 -PORT # 113 -BYTE # 143 -PORT # 113 -BYTE # 144 -PORT # 113 -BYTE # 145 -PORT # 113 -BYTE # 146 -PORT # 113 -BYTE # 147 -PORT # 113 -BYTE # 148 -PORT # 113 -BYTE # 149 -PORT # 113 -BYTE # 150 -PORT # 113 -BYTE # 151 -PORT # 113 -BYTE # 152 -PORT # 113 -BYTE # 153 -PORT # 113 -BYTE # 154 -PORT # 113 -BYTE # 155 -PORT # 113 -BYTE # 156 -PORT # 113 -BYTE # 157 -PORT # 113 -BYTE # 158 -PORT # 113 -BYTE # 159 -PORT # 113 -BYTE # 160 -PORT # 113 -BYTE # 161 -PORT # 113 -BYTE # 162 -PORT # 113 -BYTE # 163 -PORT # 113 -BYTE # 164 -PORT # 113 -BYTE # 165 -PORT # 113 -BYTE # 166 -PORT # 113 -BYTE # 167 -PORT # 113 -BYTE # 168 -PORT # 113 -BYTE # 169 -PORT # 113 -BYTE # 170 -PORT # 113 -BYTE # 171 -PORT # 113 -BYTE # 172 -PORT # 113 -BYTE # 173 -PORT # 113 -BYTE # 174 -PORT # 113 -BYTE # 175 -PORT # 113 -BYTE # 176 -PORT # 113 -BYTE # 177 -PORT # 113 -BYTE # 178 -PORT # 113 -BYTE # 179 -PORT # 113 -BYTE # 180 -PORT # 113 -BYTE # 181 -PORT # 113 -BYTE # 182 -PORT # 113 -BYTE # 183 -PORT # 113 -BYTE # 184 -PORT # 113 -BYTE # 185 -PORT # 113 -BYTE # 186 -PORT # 113 -BYTE # 187 -PORT # 113 -BYTE # 188 -PORT # 113 -BYTE # 189 -PORT # 113 -BYTE # 190 -PORT # 113 -BYTE # 191 -PORT # 113 -BYTE # 192 -PORT # 113 -BYTE # 193 -PORT # 113 -BYTE # 194 -PORT # 113 -BYTE # 195 -PORT # 113 -BYTE # 196 -PORT # 113 -BYTE # 197 -PORT # 113 -BYTE # 198 -PORT # 113 -BYTE # 199 -PORT # 113 -BYTE # 200 -PORT # 113 -BYTE # 201 -PORT # 113 -BYTE # 202 -PORT # 113 -BYTE # 203 -PORT # 113 -BYTE # 204 -PORT # 113 -BYTE # 205 -PORT # 113 -BYTE # 206 -PORT # 113 -BYTE # 207 -PORT # 113 -BYTE # 208 -PORT # 113 -BYTE # 209 -PORT # 113 -BYTE # 210 -PORT # 113 -BYTE # 211 -PORT # 113 -BYTE # 212 -PORT # 113 -BYTE # 213 -PORT # 113 -BYTE # 214 -PORT # 113 -BYTE # 215 -PORT # 113 -BYTE # 216 -PORT # 113 -BYTE # 217 -PORT # 113 -BYTE # 218 -PORT # 113 -BYTE # 219 -PORT # 113 -BYTE # 220 -PORT # 113 -BYTE # 221 -PORT # 113 -BYTE # 222 -PORT # 113 -BYTE # 223 -PORT # 113 -BYTE # 224 -PORT # 113 -BYTE # 225 -PORT # 113 -BYTE # 226 -PORT # 113 -BYTE # 227 -PORT # 113 -BYTE # 228 -PORT # 113 -BYTE # 229 -PORT # 113 -BYTE # 230 -PORT # 113 -BYTE # 231 -PORT # 113 -BYTE # 232 -PORT # 113 -BYTE # 233 -PORT # 113 -BYTE # 234 -PORT # 113 -BYTE # 235 -PORT # 113 -BYTE # 236 -PORT # 113 -BYTE # 237 -PORT # 113 -BYTE # 238 -PORT # 113 -BYTE # 239 -PORT # 113 -BYTE # 240 -PORT # 113 -BYTE # 241 -PORT # 113 -BYTE # 242 -PORT # 113 -BYTE # 243 -PORT # 113 -BYTE # 244 -PORT # 113 -BYTE # 245 -PORT # 113 -BYTE # 246 -PORT # 113 -BYTE # 247 -PORT # 113 -BYTE # 248 -PORT # 113 -BYTE # 249 -PORT # 113 -BYTE # 250 -PORT # 113 -BYTE # 251 -PORT # 113 -BYTE # 252 -PORT # 113 -BYTE # 253 -PORT # 113 -BYTE # 254 -PORT # 113 -BYTE # 255 -PORT # 114 -BYTE # 0 -PORT # 114 -BYTE # 1 -PORT # 114 -BYTE # 2 -PORT # 114 -BYTE # 3 -PORT # 114 -BYTE # 4 -PORT # 114 -BYTE # 5 -PORT # 114 -BYTE # 6 -PORT # 114 -BYTE # 7 -PORT # 114 -BYTE # 8 -PORT # 114 -BYTE # 9 -PORT # 114 -BYTE # 10 -PORT # 114 -BYTE # 11 -PORT # 114 -BYTE # 12 -PORT # 114 -BYTE # 13 -PORT # 114 -BYTE # 14 -PORT # 114 -BYTE # 15 -PORT # 114 -BYTE # 16 -PORT # 114 -BYTE # 17 -PORT # 114 -BYTE # 18 -PORT # 114 -BYTE # 19 -PORT # 114 -BYTE # 20 -PORT # 114 -BYTE # 21 -PORT # 114 -BYTE # 22 -PORT # 114 -BYTE # 23 -PORT # 114 -BYTE # 24 -PORT # 114 -BYTE # 25 -PORT # 114 -BYTE # 26 -PORT # 114 -BYTE # 27 -PORT # 114 -BYTE # 28 -PORT # 114 -BYTE # 29 -PORT # 114 -BYTE # 30 -PORT # 114 -BYTE # 31 -PORT # 114 -BYTE # 32 -PORT # 114 -BYTE # 33 -PORT # 114 -BYTE # 34 -PORT # 114 -BYTE # 35 -PORT # 114 -BYTE # 36 -PORT # 114 -BYTE # 37 -PORT # 114 -BYTE # 38 -PORT # 114 -BYTE # 39 -PORT # 114 -BYTE # 40 -PORT # 114 -BYTE # 41 -PORT # 114 -BYTE # 42 -PORT # 114 -BYTE # 43 -PORT # 114 -BYTE # 44 -PORT # 114 -BYTE # 45 -PORT # 114 -BYTE # 46 -PORT # 114 -BYTE # 47 -PORT # 114 -BYTE # 48 -PORT # 114 -BYTE # 49 -PORT # 114 -BYTE # 50 -PORT # 114 -BYTE # 51 -PORT # 114 -BYTE # 52 -PORT # 114 -BYTE # 53 -PORT # 114 -BYTE # 54 -PORT # 114 -BYTE # 55 -PORT # 114 -BYTE # 56 -PORT # 114 -BYTE # 57 -PORT # 114 -BYTE # 58 -PORT # 114 -BYTE # 59 -PORT # 114 -BYTE # 60 -PORT # 114 -BYTE # 61 -PORT # 114 -BYTE # 62 -PORT # 114 -BYTE # 63 -PORT # 114 -BYTE # 64 -PORT # 114 -BYTE # 65 -PORT # 114 -BYTE # 66 -PORT # 114 -BYTE # 67 -PORT # 114 -BYTE # 68 -PORT # 114 -BYTE # 69 -PORT # 114 -BYTE # 70 -PORT # 114 -BYTE # 71 -PORT # 114 -BYTE # 72 -PORT # 114 -BYTE # 73 -PORT # 114 -BYTE # 74 -PORT # 114 -BYTE # 75 -PORT # 114 -BYTE # 76 -PORT # 114 -BYTE # 77 -PORT # 114 -BYTE # 78 -PORT # 114 -BYTE # 79 -PORT # 114 -BYTE # 80 -PORT # 114 -BYTE # 81 -PORT # 114 -BYTE # 82 -PORT # 114 -BYTE # 83 -PORT # 114 -BYTE # 84 -PORT # 114 -BYTE # 85 -PORT # 114 -BYTE # 86 -PORT # 114 -BYTE # 87 -PORT # 114 -BYTE # 88 -PORT # 114 -BYTE # 89 -PORT # 114 -BYTE # 90 -PORT # 114 -BYTE # 91 -PORT # 114 -BYTE # 92 -PORT # 114 -BYTE # 93 -PORT # 114 -BYTE # 94 -PORT # 114 -BYTE # 95 -PORT # 114 -BYTE # 96 -PORT # 114 -BYTE # 97 -PORT # 114 -BYTE # 98 -PORT # 114 -BYTE # 99 -PORT # 114 -BYTE # 100 -PORT # 114 -BYTE # 101 -PORT # 114 -BYTE # 102 -PORT # 114 -BYTE # 103 -PORT # 114 -BYTE # 104 -PORT # 114 -BYTE # 105 -PORT # 114 -BYTE # 106 -PORT # 114 -BYTE # 107 -PORT # 114 -BYTE # 108 -PORT # 114 -BYTE # 109 -PORT # 114 -BYTE # 110 -PORT # 114 -BYTE # 111 -PORT # 114 -BYTE # 112 -PORT # 114 -BYTE # 113 -PORT # 114 -BYTE # 114 -PORT # 114 -BYTE # 115 -PORT # 114 -BYTE # 116 -PORT # 114 -BYTE # 117 -PORT # 114 -BYTE # 118 -PORT # 114 -BYTE # 119 -PORT # 114 -BYTE # 120 -PORT # 114 -BYTE # 121 -PORT # 114 -BYTE # 122 -PORT # 114 -BYTE # 123 -PORT # 114 -BYTE # 124 -PORT # 114 -BYTE # 125 -PORT # 114 -BYTE # 126 -PORT # 114 -BYTE # 127 -PORT # 114 -BYTE # 128 -PORT # 114 -BYTE # 129 -PORT # 114 -BYTE # 130 -PORT # 114 -BYTE # 131 -PORT # 114 -BYTE # 132 -PORT # 114 -BYTE # 133 -PORT # 114 -BYTE # 134 -PORT # 114 -BYTE # 135 -PORT # 114 -BYTE # 136 -PORT # 114 -BYTE # 137 -PORT # 114 -BYTE # 138 -PORT # 114 -BYTE # 139 -PORT # 114 -BYTE # 140 -PORT # 114 -BYTE # 141 -PORT # 114 -BYTE # 142 -PORT # 114 -BYTE # 143 -PORT # 114 -BYTE # 144 -PORT # 114 -BYTE # 145 -PORT # 114 -BYTE # 146 -PORT # 114 -BYTE # 147 -PORT # 114 -BYTE # 148 -PORT # 114 -BYTE # 149 -PORT # 114 -BYTE # 150 -PORT # 114 -BYTE # 151 -PORT # 114 -BYTE # 152 -PORT # 114 -BYTE # 153 -PORT # 114 -BYTE # 154 -PORT # 114 -BYTE # 155 -PORT # 114 -BYTE # 156 -PORT # 114 -BYTE # 157 -PORT # 114 -BYTE # 158 -PORT # 114 -BYTE # 159 -PORT # 114 -BYTE # 160 -PORT # 114 -BYTE # 161 -PORT # 114 -BYTE # 162 -PORT # 114 -BYTE # 163 -PORT # 114 -BYTE # 164 -PORT # 114 -BYTE # 165 -PORT # 114 -BYTE # 166 -PORT # 114 -BYTE # 167 -PORT # 114 -BYTE # 168 -PORT # 114 -BYTE # 169 -PORT # 114 -BYTE # 170 -PORT # 114 -BYTE # 171 -PORT # 114 -BYTE # 172 -PORT # 114 -BYTE # 173 -PORT # 114 -BYTE # 174 -PORT # 114 -BYTE # 175 -PORT # 114 -BYTE # 176 -PORT # 114 -BYTE # 177 -PORT # 114 -BYTE # 178 -PORT # 114 -BYTE # 179 -PORT # 114 -BYTE # 180 -PORT # 114 -BYTE # 181 -PORT # 114 -BYTE # 182 -PORT # 114 -BYTE # 183 -PORT # 114 -BYTE # 184 -PORT # 114 -BYTE # 185 -PORT # 114 -BYTE # 186 -PORT # 114 -BYTE # 187 -PORT # 114 -BYTE # 188 -PORT # 114 -BYTE # 189 -PORT # 114 -BYTE # 190 -PORT # 114 -BYTE # 191 -PORT # 114 -BYTE # 192 -PORT # 114 -BYTE # 193 -PORT # 114 -BYTE # 194 -PORT # 114 -BYTE # 195 -PORT # 114 -BYTE # 196 -PORT # 114 -BYTE # 197 -PORT # 114 -BYTE # 198 -PORT # 114 -BYTE # 199 -PORT # 114 -BYTE # 200 -PORT # 114 -BYTE # 201 -PORT # 114 -BYTE # 202 -PORT # 114 -BYTE # 203 -PORT # 114 -BYTE # 204 -PORT # 114 -BYTE # 205 -PORT # 114 -BYTE # 206 -PORT # 114 -BYTE # 207 -PORT # 114 -BYTE # 208 -PORT # 114 -BYTE # 209 -PORT # 114 -BYTE # 210 -PORT # 114 -BYTE # 211 -PORT # 114 -BYTE # 212 -PORT # 114 -BYTE # 213 -PORT # 114 -BYTE # 214 -PORT # 114 -BYTE # 215 -PORT # 114 -BYTE # 216 -PORT # 114 -BYTE # 217 -PORT # 114 -BYTE # 218 -PORT # 114 -BYTE # 219 -PORT # 114 -BYTE # 220 -PORT # 114 -BYTE # 221 -PORT # 114 -BYTE # 222 -PORT # 114 -BYTE # 223 -PORT # 114 -BYTE # 224 -PORT # 114 -BYTE # 225 -PORT # 114 -BYTE # 226 -PORT # 114 -BYTE # 227 -PORT # 114 -BYTE # 228 -PORT # 114 -BYTE # 229 -PORT # 114 -BYTE # 230 -PORT # 114 -BYTE # 231 -PORT # 114 -BYTE # 232 -PORT # 114 -BYTE # 233 -PORT # 114 -BYTE # 234 -PORT # 114 -BYTE # 235 -PORT # 114 -BYTE # 236 -PORT # 114 -BYTE # 237 -PORT # 114 -BYTE # 238 -PORT # 114 -BYTE # 239 -PORT # 114 -BYTE # 240 -PORT # 114 -BYTE # 241 -PORT # 114 -BYTE # 242 -PORT # 114 -BYTE # 243 -PORT # 114 -BYTE # 244 -PORT # 114 -BYTE # 245 -PORT # 114 -BYTE # 246 -PORT # 114 -BYTE # 247 -PORT # 114 -BYTE # 248 -PORT # 114 -BYTE # 249 -PORT # 114 -BYTE # 250 -PORT # 114 -BYTE # 251 -PORT # 114 -BYTE # 252 -PORT # 114 -BYTE # 253 -PORT # 114 -BYTE # 254 -PORT # 114 -BYTE # 255 -PORT # 115 -BYTE # 0 -PORT # 115 -BYTE # 1 -PORT # 115 -BYTE # 2 -PORT # 115 -BYTE # 3 -PORT # 115 -BYTE # 4 -PORT # 115 -BYTE # 5 -PORT # 115 -BYTE # 6 -PORT # 115 -BYTE # 7 -PORT # 115 -BYTE # 8 -PORT # 115 -BYTE # 9 -PORT # 115 -BYTE # 10 -PORT # 115 -BYTE # 11 -PORT # 115 -BYTE # 12 -PORT # 115 -BYTE # 13 -PORT # 115 -BYTE # 14 -PORT # 115 -BYTE # 15 -PORT # 115 -BYTE # 16 -PORT # 115 -BYTE # 17 -PORT # 115 -BYTE # 18 -PORT # 115 -BYTE # 19 -PORT # 115 -BYTE # 20 -PORT # 115 -BYTE # 21 -PORT # 115 -BYTE # 22 -PORT # 115 -BYTE # 23 -PORT # 115 -BYTE # 24 -PORT # 115 -BYTE # 25 -PORT # 115 -BYTE # 26 -PORT # 115 -BYTE # 27 -PORT # 115 -BYTE # 28 -PORT # 115 -BYTE # 29 -PORT # 115 -BYTE # 30 -PORT # 115 -BYTE # 31 -PORT # 115 -BYTE # 32 -PORT # 115 -BYTE # 33 -PORT # 115 -BYTE # 34 -PORT # 115 -BYTE # 35 -PORT # 115 -BYTE # 36 -PORT # 115 -BYTE # 37 -PORT # 115 -BYTE # 38 -PORT # 115 -BYTE # 39 -PORT # 115 -BYTE # 40 -PORT # 115 -BYTE # 41 -PORT # 115 -BYTE # 42 -PORT # 115 -BYTE # 43 -PORT # 115 -BYTE # 44 -PORT # 115 -BYTE # 45 -PORT # 115 -BYTE # 46 -PORT # 115 -BYTE # 47 -PORT # 115 -BYTE # 48 -PORT # 115 -BYTE # 49 -PORT # 115 -BYTE # 50 -PORT # 115 -BYTE # 51 -PORT # 115 -BYTE # 52 -PORT # 115 -BYTE # 53 -PORT # 115 -BYTE # 54 -PORT # 115 -BYTE # 55 -PORT # 115 -BYTE # 56 -PORT # 115 -BYTE # 57 -PORT # 115 -BYTE # 58 -PORT # 115 -BYTE # 59 -PORT # 115 -BYTE # 60 -PORT # 115 -BYTE # 61 -PORT # 115 -BYTE # 62 -PORT # 115 -BYTE # 63 -PORT # 115 -BYTE # 64 -PORT # 115 -BYTE # 65 -PORT # 115 -BYTE # 66 -PORT # 115 -BYTE # 67 -PORT # 115 -BYTE # 68 -PORT # 115 -BYTE # 69 -PORT # 115 -BYTE # 70 -PORT # 115 -BYTE # 71 -PORT # 115 -BYTE # 72 -PORT # 115 -BYTE # 73 -PORT # 115 -BYTE # 74 -PORT # 115 -BYTE # 75 -PORT # 115 -BYTE # 76 -PORT # 115 -BYTE # 77 -PORT # 115 -BYTE # 78 -PORT # 115 -BYTE # 79 -PORT # 115 -BYTE # 80 -PORT # 115 -BYTE # 81 -PORT # 115 -BYTE # 82 -PORT # 115 -BYTE # 83 -PORT # 115 -BYTE # 84 -PORT # 115 -BYTE # 85 -PORT # 115 -BYTE # 86 -PORT # 115 -BYTE # 87 -PORT # 115 -BYTE # 88 -PORT # 115 -BYTE # 89 -PORT # 115 -BYTE # 90 -PORT # 115 -BYTE # 91 -PORT # 115 -BYTE # 92 -PORT # 115 -BYTE # 93 -PORT # 115 -BYTE # 94 -PORT # 115 -BYTE # 95 -PORT # 115 -BYTE # 96 -PORT # 115 -BYTE # 97 -PORT # 115 -BYTE # 98 -PORT # 115 -BYTE # 99 -PORT # 115 -BYTE # 100 -PORT # 115 -BYTE # 101 -PORT # 115 -BYTE # 102 -PORT # 115 -BYTE # 103 -PORT # 115 -BYTE # 104 -PORT # 115 -BYTE # 105 -PORT # 115 -BYTE # 106 -PORT # 115 -BYTE # 107 -PORT # 115 -BYTE # 108 -PORT # 115 -BYTE # 109 -PORT # 115 -BYTE # 110 -PORT # 115 -BYTE # 111 -PORT # 115 -BYTE # 112 -PORT # 115 -BYTE # 113 -PORT # 115 -BYTE # 114 -PORT # 115 -BYTE # 115 -PORT # 115 -BYTE # 116 -PORT # 115 -BYTE # 117 -PORT # 115 -BYTE # 118 -PORT # 115 -BYTE # 119 -PORT # 115 -BYTE # 120 -PORT # 115 -BYTE # 121 -PORT # 115 -BYTE # 122 -PORT # 115 -BYTE # 123 -PORT # 115 -BYTE # 124 -PORT # 115 -BYTE # 125 -PORT # 115 -BYTE # 126 -PORT # 115 -BYTE # 127 -PORT # 115 -BYTE # 128 -PORT # 115 -BYTE # 129 -PORT # 115 -BYTE # 130 -PORT # 115 -BYTE # 131 -PORT # 115 -BYTE # 132 -PORT # 115 -BYTE # 133 -PORT # 115 -BYTE # 134 -PORT # 115 -BYTE # 135 -PORT # 115 -BYTE # 136 -PORT # 115 -BYTE # 137 -PORT # 115 -BYTE # 138 -PORT # 115 -BYTE # 139 -PORT # 115 -BYTE # 140 -PORT # 115 -BYTE # 141 -PORT # 115 -BYTE # 142 -PORT # 115 -BYTE # 143 -PORT # 115 -BYTE # 144 -PORT # 115 -BYTE # 145 -PORT # 115 -BYTE # 146 -PORT # 115 -BYTE # 147 -PORT # 115 -BYTE # 148 -PORT # 115 -BYTE # 149 -PORT # 115 -BYTE # 150 -PORT # 115 -BYTE # 151 -PORT # 115 -BYTE # 152 -PORT # 115 -BYTE # 153 -PORT # 115 -BYTE # 154 -PORT # 115 -BYTE # 155 -PORT # 115 -BYTE # 156 -PORT # 115 -BYTE # 157 -PORT # 115 -BYTE # 158 -PORT # 115 -BYTE # 159 -PORT # 115 -BYTE # 160 -PORT # 115 -BYTE # 161 -PORT # 115 -BYTE # 162 -PORT # 115 -BYTE # 163 -PORT # 115 -BYTE # 164 -PORT # 115 -BYTE # 165 -PORT # 115 -BYTE # 166 -PORT # 115 -BYTE # 167 -PORT # 115 -BYTE # 168 -PORT # 115 -BYTE # 169 -PORT # 115 -BYTE # 170 -PORT # 115 -BYTE # 171 -PORT # 115 -BYTE # 172 -PORT # 115 -BYTE # 173 -PORT # 115 -BYTE # 174 -PORT # 115 -BYTE # 175 -PORT # 115 -BYTE # 176 -PORT # 115 -BYTE # 177 -PORT # 115 -BYTE # 178 -PORT # 115 -BYTE # 179 -PORT # 115 -BYTE # 180 -PORT # 115 -BYTE # 181 -PORT # 115 -BYTE # 182 -PORT # 115 -BYTE # 183 -PORT # 115 -BYTE # 184 -PORT # 115 -BYTE # 185 -PORT # 115 -BYTE # 186 -PORT # 115 -BYTE # 187 -PORT # 115 -BYTE # 188 -PORT # 115 -BYTE # 189 -PORT # 115 -BYTE # 190 -PORT # 115 -BYTE # 191 -PORT # 115 -BYTE # 192 -PORT # 115 -BYTE # 193 -PORT # 115 -BYTE # 194 -PORT # 115 -BYTE # 195 -PORT # 115 -BYTE # 196 -PORT # 115 -BYTE # 197 -PORT # 115 -BYTE # 198 -PORT # 115 -BYTE # 199 -PORT # 115 -BYTE # 200 -PORT # 115 -BYTE # 201 -PORT # 115 -BYTE # 202 -PORT # 115 -BYTE # 203 -PORT # 115 -BYTE # 204 -PORT # 115 -BYTE # 205 -PORT # 115 -BYTE # 206 -PORT # 115 -BYTE # 207 -PORT # 115 -BYTE # 208 -PORT # 115 -BYTE # 209 -PORT # 115 -BYTE # 210 -PORT # 115 -BYTE # 211 -PORT # 115 -BYTE # 212 -PORT # 115 -BYTE # 213 -PORT # 115 -BYTE # 214 -PORT # 115 -BYTE # 215 -PORT # 115 -BYTE # 216 -PORT # 115 -BYTE # 217 -PORT # 115 -BYTE # 218 -PORT # 115 -BYTE # 219 -PORT # 115 -BYTE # 220 -PORT # 115 -BYTE # 221 -PORT # 115 -BYTE # 222 -PORT # 115 -BYTE # 223 -PORT # 115 -BYTE # 224 -PORT # 115 -BYTE # 225 -PORT # 115 -BYTE # 226 -PORT # 115 -BYTE # 227 -PORT # 115 -BYTE # 228 -PORT # 115 -BYTE # 229 -PORT # 115 -BYTE # 230 -PORT # 115 -BYTE # 231 -PORT # 115 -BYTE # 232 -PORT # 115 -BYTE # 233 -PORT # 115 -BYTE # 234 -PORT # 115 -BYTE # 235 -PORT # 115 -BYTE # 236 -PORT # 115 -BYTE # 237 -PORT # 115 -BYTE # 238 -PORT # 115 -BYTE # 239 -PORT # 115 -BYTE # 240 -PORT # 115 -BYTE # 241 -PORT # 115 -BYTE # 242 -PORT # 115 -BYTE # 243 -PORT # 115 -BYTE # 244 -PORT # 115 -BYTE # 245 -PORT # 115 -BYTE # 246 -PORT # 115 -BYTE # 247 -PORT # 115 -BYTE # 248 -PORT # 115 -BYTE # 249 -PORT # 115 -BYTE # 250 -PORT # 115 -BYTE # 251 -PORT # 115 -BYTE # 252 -PORT # 115 -BYTE # 253 -PORT # 115 -BYTE # 254 -PORT # 115 -BYTE # 255 -PORT # 116 -BYTE # 0 -PORT # 116 -BYTE # 1 -PORT # 116 -BYTE # 2 -PORT # 116 -BYTE # 3 -PORT # 116 -BYTE # 4 -PORT # 116 -BYTE # 5 -PORT # 116 -BYTE # 6 -PORT # 116 -BYTE # 7 -PORT # 116 -BYTE # 8 -PORT # 116 -BYTE # 9 -PORT # 116 -BYTE # 10 -PORT # 116 -BYTE # 11 -PORT # 116 -BYTE # 12 -PORT # 116 -BYTE # 13 -PORT # 116 -BYTE # 14 -PORT # 116 -BYTE # 15 -PORT # 116 -BYTE # 16 -PORT # 116 -BYTE # 17 -PORT # 116 -BYTE # 18 -PORT # 116 -BYTE # 19 -PORT # 116 -BYTE # 20 -PORT # 116 -BYTE # 21 -PORT # 116 -BYTE # 22 -PORT # 116 -BYTE # 23 -PORT # 116 -BYTE # 24 -PORT # 116 -BYTE # 25 -PORT # 116 -BYTE # 26 -PORT # 116 -BYTE # 27 -PORT # 116 -BYTE # 28 -PORT # 116 -BYTE # 29 -PORT # 116 -BYTE # 30 -PORT # 116 -BYTE # 31 -PORT # 116 -BYTE # 32 -PORT # 116 -BYTE # 33 -PORT # 116 -BYTE # 34 -PORT # 116 -BYTE # 35 -PORT # 116 -BYTE # 36 -PORT # 116 -BYTE # 37 -PORT # 116 -BYTE # 38 -PORT # 116 -BYTE # 39 -PORT # 116 -BYTE # 40 -PORT # 116 -BYTE # 41 -PORT # 116 -BYTE # 42 -PORT # 116 -BYTE # 43 -PORT # 116 -BYTE # 44 -PORT # 116 -BYTE # 45 -PORT # 116 -BYTE # 46 -PORT # 116 -BYTE # 47 -PORT # 116 -BYTE # 48 -PORT # 116 -BYTE # 49 -PORT # 116 -BYTE # 50 -PORT # 116 -BYTE # 51 -PORT # 116 -BYTE # 52 -PORT # 116 -BYTE # 53 -PORT # 116 -BYTE # 54 -PORT # 116 -BYTE # 55 -PORT # 116 -BYTE # 56 -PORT # 116 -BYTE # 57 -PORT # 116 -BYTE # 58 -PORT # 116 -BYTE # 59 -PORT # 116 -BYTE # 60 -PORT # 116 -BYTE # 61 -PORT # 116 -BYTE # 62 -PORT # 116 -BYTE # 63 -PORT # 116 -BYTE # 64 -PORT # 116 -BYTE # 65 -PORT # 116 -BYTE # 66 -PORT # 116 -BYTE # 67 -PORT # 116 -BYTE # 68 -PORT # 116 -BYTE # 69 -PORT # 116 -BYTE # 70 -PORT # 116 -BYTE # 71 -PORT # 116 -BYTE # 72 -PORT # 116 -BYTE # 73 -PORT # 116 -BYTE # 74 -PORT # 116 -BYTE # 75 -PORT # 116 -BYTE # 76 -PORT # 116 -BYTE # 77 -PORT # 116 -BYTE # 78 -PORT # 116 -BYTE # 79 -PORT # 116 -BYTE # 80 -PORT # 116 -BYTE # 81 -PORT # 116 -BYTE # 82 -PORT # 116 -BYTE # 83 -PORT # 116 -BYTE # 84 -PORT # 116 -BYTE # 85 -PORT # 116 -BYTE # 86 -PORT # 116 -BYTE # 87 -PORT # 116 -BYTE # 88 -PORT # 116 -BYTE # 89 -PORT # 116 -BYTE # 90 -PORT # 116 -BYTE # 91 -PORT # 116 -BYTE # 92 -PORT # 116 -BYTE # 93 -PORT # 116 -BYTE # 94 -PORT # 116 -BYTE # 95 -PORT # 116 -BYTE # 96 -PORT # 116 -BYTE # 97 -PORT # 116 -BYTE # 98 -PORT # 116 -BYTE # 99 -PORT # 116 -BYTE # 100 -PORT # 116 -BYTE # 101 -PORT # 116 -BYTE # 102 -PORT # 116 -BYTE # 103 -PORT # 116 -BYTE # 104 -PORT # 116 -BYTE # 105 -PORT # 116 -BYTE # 106 -PORT # 116 -BYTE # 107 -PORT # 116 -BYTE # 108 -PORT # 116 -BYTE # 109 -PORT # 116 -BYTE # 110 -PORT # 116 -BYTE # 111 -PORT # 116 -BYTE # 112 -PORT # 116 -BYTE # 113 -PORT # 116 -BYTE # 114 -PORT # 116 -BYTE # 115 -PORT # 116 -BYTE # 116 -PORT # 116 -BYTE # 117 -PORT # 116 -BYTE # 118 -PORT # 116 -BYTE # 119 -PORT # 116 -BYTE # 120 -PORT # 116 -BYTE # 121 -PORT # 116 -BYTE # 122 -PORT # 116 -BYTE # 123 -PORT # 116 -BYTE # 124 -PORT # 116 -BYTE # 125 -PORT # 116 -BYTE # 126 -PORT # 116 -BYTE # 127 -PORT # 116 -BYTE # 128 -PORT # 116 -BYTE # 129 -PORT # 116 -BYTE # 130 -PORT # 116 -BYTE # 131 -PORT # 116 -BYTE # 132 -PORT # 116 -BYTE # 133 -PORT # 116 -BYTE # 134 -PORT # 116 -BYTE # 135 -PORT # 116 -BYTE # 136 -PORT # 116 -BYTE # 137 -PORT # 116 -BYTE # 138 -PORT # 116 -BYTE # 139 -PORT # 116 -BYTE # 140 -PORT # 116 -BYTE # 141 -PORT # 116 -BYTE # 142 -PORT # 116 -BYTE # 143 -PORT # 116 -BYTE # 144 -PORT # 116 -BYTE # 145 -PORT # 116 -BYTE # 146 -PORT # 116 -BYTE # 147 -PORT # 116 -BYTE # 148 -PORT # 116 -BYTE # 149 -PORT # 116 -BYTE # 150 -PORT # 116 -BYTE # 151 -PORT # 116 -BYTE # 152 -PORT # 116 -BYTE # 153 -PORT # 116 -BYTE # 154 -PORT # 116 -BYTE # 155 -PORT # 116 -BYTE # 156 -PORT # 116 -BYTE # 157 -PORT # 116 -BYTE # 158 -PORT # 116 -BYTE # 159 -PORT # 116 -BYTE # 160 -PORT # 116 -BYTE # 161 -PORT # 116 -BYTE # 162 -PORT # 116 -BYTE # 163 -PORT # 116 -BYTE # 164 -PORT # 116 -BYTE # 165 -PORT # 116 -BYTE # 166 -PORT # 116 -BYTE # 167 -PORT # 116 -BYTE # 168 -PORT # 116 -BYTE # 169 -PORT # 116 -BYTE # 170 -PORT # 116 -BYTE # 171 -PORT # 116 -BYTE # 172 -PORT # 116 -BYTE # 173 -PORT # 116 -BYTE # 174 -PORT # 116 -BYTE # 175 -PORT # 116 -BYTE # 176 -PORT # 116 -BYTE # 177 -PORT # 116 -BYTE # 178 -PORT # 116 -BYTE # 179 -PORT # 116 -BYTE # 180 -PORT # 116 -BYTE # 181 -PORT # 116 -BYTE # 182 -PORT # 116 -BYTE # 183 -PORT # 116 -BYTE # 184 -PORT # 116 -BYTE # 185 -PORT # 116 -BYTE # 186 -PORT # 116 -BYTE # 187 -PORT # 116 -BYTE # 188 -PORT # 116 -BYTE # 189 -PORT # 116 -BYTE # 190 -PORT # 116 -BYTE # 191 -PORT # 116 -BYTE # 192 -PORT # 116 -BYTE # 193 -PORT # 116 -BYTE # 194 -PORT # 116 -BYTE # 195 -PORT # 116 -BYTE # 196 -PORT # 116 -BYTE # 197 -PORT # 116 -BYTE # 198 -PORT # 116 -BYTE # 199 -PORT # 116 -BYTE # 200 -PORT # 116 -BYTE # 201 -PORT # 116 -BYTE # 202 -PORT # 116 -BYTE # 203 -PORT # 116 -BYTE # 204 -PORT # 116 -BYTE # 205 -PORT # 116 -BYTE # 206 -PORT # 116 -BYTE # 207 -PORT # 116 -BYTE # 208 -PORT # 116 -BYTE # 209 -PORT # 116 -BYTE # 210 -PORT # 116 -BYTE # 211 -PORT # 116 -BYTE # 212 -PORT # 116 -BYTE # 213 -PORT # 116 -BYTE # 214 -PORT # 116 -BYTE # 215 -PORT # 116 -BYTE # 216 -PORT # 116 -BYTE # 217 -PORT # 116 -BYTE # 218 -PORT # 116 -BYTE # 219 -PORT # 116 -BYTE # 220 -PORT # 116 -BYTE # 221 -PORT # 116 -BYTE # 222 -PORT # 116 -BYTE # 223 -PORT # 116 -BYTE # 224 -PORT # 116 -BYTE # 225 -PORT # 116 -BYTE # 226 -PORT # 116 -BYTE # 227 -PORT # 116 -BYTE # 228 -PORT # 116 -BYTE # 229 -PORT # 116 -BYTE # 230 -PORT # 116 -BYTE # 231 -PORT # 116 -BYTE # 232 -PORT # 116 -BYTE # 233 -PORT # 116 -BYTE # 234 -PORT # 116 -BYTE # 235 -PORT # 116 -BYTE # 236 -PORT # 116 -BYTE # 237 -PORT # 116 -BYTE # 238 -PORT # 116 -BYTE # 239 -PORT # 116 -BYTE # 240 -PORT # 116 -BYTE # 241 -PORT # 116 -BYTE # 242 -PORT # 116 -BYTE # 243 -PORT # 116 -BYTE # 244 -PORT # 116 -BYTE # 245 -PORT # 116 -BYTE # 246 -PORT # 116 -BYTE # 247 -PORT # 116 -BYTE # 248 -PORT # 116 -BYTE # 249 -PORT # 116 -BYTE # 250 -PORT # 116 -BYTE # 251 -PORT # 116 -BYTE # 252 -PORT # 116 -BYTE # 253 -PORT # 116 -BYTE # 254 -PORT # 116 -BYTE # 255 -PORT # 117 -BYTE # 0 -PORT # 117 -BYTE # 1 -PORT # 117 -BYTE # 2 -PORT # 117 -BYTE # 3 -PORT # 117 -BYTE # 4 -PORT # 117 -BYTE # 5 -PORT # 117 -BYTE # 6 -PORT # 117 -BYTE # 7 -PORT # 117 -BYTE # 8 -PORT # 117 -BYTE # 9 -PORT # 117 -BYTE # 10 -PORT # 117 -BYTE # 11 -PORT # 117 -BYTE # 12 -PORT # 117 -BYTE # 13 -PORT # 117 -BYTE # 14 -PORT # 117 -BYTE # 15 -PORT # 117 -BYTE # 16 -PORT # 117 -BYTE # 17 -PORT # 117 -BYTE # 18 -PORT # 117 -BYTE # 19 -PORT # 117 -BYTE # 20 -PORT # 117 -BYTE # 21 -PORT # 117 -BYTE # 22 -PORT # 117 -BYTE # 23 -PORT # 117 -BYTE # 24 -PORT # 117 -BYTE # 25 -PORT # 117 -BYTE # 26 -PORT # 117 -BYTE # 27 -PORT # 117 -BYTE # 28 -PORT # 117 -BYTE # 29 -PORT # 117 -BYTE # 30 -PORT # 117 -BYTE # 31 -PORT # 117 -BYTE # 32 -PORT # 117 -BYTE # 33 -PORT # 117 -BYTE # 34 -PORT # 117 -BYTE # 35 -PORT # 117 -BYTE # 36 -PORT # 117 -BYTE # 37 -PORT # 117 -BYTE # 38 -PORT # 117 -BYTE # 39 -PORT # 117 -BYTE # 40 -PORT # 117 -BYTE # 41 -PORT # 117 -BYTE # 42 -PORT # 117 -BYTE # 43 -PORT # 117 -BYTE # 44 -PORT # 117 -BYTE # 45 -PORT # 117 -BYTE # 46 -PORT # 117 -BYTE # 47 -PORT # 117 -BYTE # 48 -PORT # 117 -BYTE # 49 -PORT # 117 -BYTE # 50 -PORT # 117 -BYTE # 51 -PORT # 117 -BYTE # 52 -PORT # 117 -BYTE # 53 -PORT # 117 -BYTE # 54 -PORT # 117 -BYTE # 55 -PORT # 117 -BYTE # 56 -PORT # 117 -BYTE # 57 -PORT # 117 -BYTE # 58 -PORT # 117 -BYTE # 59 -PORT # 117 -BYTE # 60 -PORT # 117 -BYTE # 61 -PORT # 117 -BYTE # 62 -PORT # 117 -BYTE # 63 -PORT # 117 -BYTE # 64 -PORT # 117 -BYTE # 65 -PORT # 117 -BYTE # 66 -PORT # 117 -BYTE # 67 -PORT # 117 -BYTE # 68 -PORT # 117 -BYTE # 69 -PORT # 117 -BYTE # 70 -PORT # 117 -BYTE # 71 -PORT # 117 -BYTE # 72 -PORT # 117 -BYTE # 73 -PORT # 117 -BYTE # 74 -PORT # 117 -BYTE # 75 -PORT # 117 -BYTE # 76 -PORT # 117 -BYTE # 77 -PORT # 117 -BYTE # 78 -PORT # 117 -BYTE # 79 -PORT # 117 -BYTE # 80 -PORT # 117 -BYTE # 81 -PORT # 117 -BYTE # 82 -PORT # 117 -BYTE # 83 -PORT # 117 -BYTE # 84 -PORT # 117 -BYTE # 85 -PORT # 117 -BYTE # 86 -PORT # 117 -BYTE # 87 -PORT # 117 -BYTE # 88 -PORT # 117 -BYTE # 89 -PORT # 117 -BYTE # 90 -PORT # 117 -BYTE # 91 -PORT # 117 -BYTE # 92 -PORT # 117 -BYTE # 93 -PORT # 117 -BYTE # 94 -PORT # 117 -BYTE # 95 -PORT # 117 -BYTE # 96 -PORT # 117 -BYTE # 97 -PORT # 117 -BYTE # 98 -PORT # 117 -BYTE # 99 -PORT # 117 -BYTE # 100 -PORT # 117 -BYTE # 101 -PORT # 117 -BYTE # 102 -PORT # 117 -BYTE # 103 -PORT # 117 -BYTE # 104 -PORT # 117 -BYTE # 105 -PORT # 117 -BYTE # 106 -PORT # 117 -BYTE # 107 -PORT # 117 -BYTE # 108 -PORT # 117 -BYTE # 109 -PORT # 117 -BYTE # 110 -PORT # 117 -BYTE # 111 -PORT # 117 -BYTE # 112 -PORT # 117 -BYTE # 113 -PORT # 117 -BYTE # 114 -PORT # 117 -BYTE # 115 -PORT # 117 -BYTE # 116 -PORT # 117 -BYTE # 117 -PORT # 117 -BYTE # 118 -PORT # 117 -BYTE # 119 -PORT # 117 -BYTE # 120 -PORT # 117 -BYTE # 121 -PORT # 117 -BYTE # 122 -PORT # 117 -BYTE # 123 -PORT # 117 -BYTE # 124 -PORT # 117 -BYTE # 125 -PORT # 117 -BYTE # 126 -PORT # 117 -BYTE # 127 -PORT # 117 -BYTE # 128 -PORT # 117 -BYTE # 129 -PORT # 117 -BYTE # 130 -PORT # 117 -BYTE # 131 -PORT # 117 -BYTE # 132 -PORT # 117 -BYTE # 133 -PORT # 117 -BYTE # 134 -PORT # 117 -BYTE # 135 -PORT # 117 -BYTE # 136 -PORT # 117 -BYTE # 137 -PORT # 117 -BYTE # 138 -PORT # 117 -BYTE # 139 -PORT # 117 -BYTE # 140 -PORT # 117 -BYTE # 141 -PORT # 117 -BYTE # 142 -PORT # 117 -BYTE # 143 -PORT # 117 -BYTE # 144 -PORT # 117 -BYTE # 145 -PORT # 117 -BYTE # 146 -PORT # 117 -BYTE # 147 -PORT # 117 -BYTE # 148 -PORT # 117 -BYTE # 149 -PORT # 117 -BYTE # 150 -PORT # 117 -BYTE # 151 -PORT # 117 -BYTE # 152 -PORT # 117 -BYTE # 153 -PORT # 117 -BYTE # 154 -PORT # 117 -BYTE # 155 -PORT # 117 -BYTE # 156 -PORT # 117 -BYTE # 157 -PORT # 117 -BYTE # 158 -PORT # 117 -BYTE # 159 -PORT # 117 -BYTE # 160 -PORT # 117 -BYTE # 161 -PORT # 117 -BYTE # 162 -PORT # 117 -BYTE # 163 -PORT # 117 -BYTE # 164 -PORT # 117 -BYTE # 165 -PORT # 117 -BYTE # 166 -PORT # 117 -BYTE # 167 -PORT # 117 -BYTE # 168 -PORT # 117 -BYTE # 169 -PORT # 117 -BYTE # 170 -PORT # 117 -BYTE # 171 -PORT # 117 -BYTE # 172 -PORT # 117 -BYTE # 173 -PORT # 117 -BYTE # 174 -PORT # 117 -BYTE # 175 -PORT # 117 -BYTE # 176 -PORT # 117 -BYTE # 177 -PORT # 117 -BYTE # 178 -PORT # 117 -BYTE # 179 -PORT # 117 -BYTE # 180 -PORT # 117 -BYTE # 181 -PORT # 117 -BYTE # 182 -PORT # 117 -BYTE # 183 -PORT # 117 -BYTE # 184 -PORT # 117 -BYTE # 185 -PORT # 117 -BYTE # 186 -PORT # 117 -BYTE # 187 -PORT # 117 -BYTE # 188 -PORT # 117 -BYTE # 189 -PORT # 117 -BYTE # 190 -PORT # 117 -BYTE # 191 -PORT # 117 -BYTE # 192 -PORT # 117 -BYTE # 193 -PORT # 117 -BYTE # 194 -PORT # 117 -BYTE # 195 -PORT # 117 -BYTE # 196 -PORT # 117 -BYTE # 197 -PORT # 117 -BYTE # 198 -PORT # 117 -BYTE # 199 -PORT # 117 -BYTE # 200 -PORT # 117 -BYTE # 201 -PORT # 117 -BYTE # 202 -PORT # 117 -BYTE # 203 -PORT # 117 -BYTE # 204 -PORT # 117 -BYTE # 205 -PORT # 117 -BYTE # 206 -PORT # 117 -BYTE # 207 -PORT # 117 -BYTE # 208 -PORT # 117 -BYTE # 209 -PORT # 117 -BYTE # 210 -PORT # 117 -BYTE # 211 -PORT # 117 -BYTE # 212 -PORT # 117 -BYTE # 213 -PORT # 117 -BYTE # 214 -PORT # 117 -BYTE # 215 -PORT # 117 -BYTE # 216 -PORT # 117 -BYTE # 217 -PORT # 117 -BYTE # 218 -PORT # 117 -BYTE # 219 -PORT # 117 -BYTE # 220 -PORT # 117 -BYTE # 221 -PORT # 117 -BYTE # 222 -PORT # 117 -BYTE # 223 -PORT # 117 -BYTE # 224 -PORT # 117 -BYTE # 225 -PORT # 117 -BYTE # 226 -PORT # 117 -BYTE # 227 -PORT # 117 -BYTE # 228 -PORT # 117 -BYTE # 229 -PORT # 117 -BYTE # 230 -PORT # 117 -BYTE # 231 -PORT # 117 -BYTE # 232 -PORT # 117 -BYTE # 233 -PORT # 117 -BYTE # 234 -PORT # 117 -BYTE # 235 -PORT # 117 -BYTE # 236 -PORT # 117 -BYTE # 237 -PORT # 117 -BYTE # 238 -PORT # 117 -BYTE # 239 -PORT # 117 -BYTE # 240 -PORT # 117 -BYTE # 241 -PORT # 117 -BYTE # 242 -PORT # 117 -BYTE # 243 -PORT # 117 -BYTE # 244 -PORT # 117 -BYTE # 245 -PORT # 117 -BYTE # 246 -PORT # 117 -BYTE # 247 -PORT # 117 -BYTE # 248 -PORT # 117 -BYTE # 249 -PORT # 117 -BYTE # 250 -PORT # 117 -BYTE # 251 -PORT # 117 -BYTE # 252 -PORT # 117 -BYTE # 253 -PORT # 117 -BYTE # 254 -PORT # 117 -BYTE # 255 -PORT # 118 -BYTE # 0 -PORT # 118 -BYTE # 1 -PORT # 118 -BYTE # 2 -PORT # 118 -BYTE # 3 -PORT # 118 -BYTE # 4 -PORT # 118 -BYTE # 5 -PORT # 118 -BYTE # 6 -PORT # 118 -BYTE # 7 -PORT # 118 -BYTE # 8 -PORT # 118 -BYTE # 9 -PORT # 118 -BYTE # 10 -PORT # 118 -BYTE # 11 -PORT # 118 -BYTE # 12 -PORT # 118 -BYTE # 13 -PORT # 118 -BYTE # 14 -PORT # 118 -BYTE # 15 -PORT # 118 -BYTE # 16 -PORT # 118 -BYTE # 17 -PORT # 118 -BYTE # 18 -PORT # 118 -BYTE # 19 -PORT # 118 -BYTE # 20 -PORT # 118 -BYTE # 21 -PORT # 118 -BYTE # 22 -PORT # 118 -BYTE # 23 -PORT # 118 -BYTE # 24 -PORT # 118 -BYTE # 25 -PORT # 118 -BYTE # 26 -PORT # 118 -BYTE # 27 -PORT # 118 -BYTE # 28 -PORT # 118 -BYTE # 29 -PORT # 118 -BYTE # 30 -PORT # 118 -BYTE # 31 -PORT # 118 -BYTE # 32 -PORT # 118 -BYTE # 33 -PORT # 118 -BYTE # 34 -PORT # 118 -BYTE # 35 -PORT # 118 -BYTE # 36 -PORT # 118 -BYTE # 37 -PORT # 118 -BYTE # 38 -PORT # 118 -BYTE # 39 -PORT # 118 -BYTE # 40 -PORT # 118 -BYTE # 41 -PORT # 118 -BYTE # 42 -PORT # 118 -BYTE # 43 -PORT # 118 -BYTE # 44 -PORT # 118 -BYTE # 45 -PORT # 118 -BYTE # 46 -PORT # 118 -BYTE # 47 -PORT # 118 -BYTE # 48 -PORT # 118 -BYTE # 49 -PORT # 118 -BYTE # 50 -PORT # 118 -BYTE # 51 -PORT # 118 -BYTE # 52 -PORT # 118 -BYTE # 53 -PORT # 118 -BYTE # 54 -PORT # 118 -BYTE # 55 -PORT # 118 -BYTE # 56 -PORT # 118 -BYTE # 57 -PORT # 118 -BYTE # 58 -PORT # 118 -BYTE # 59 -PORT # 118 -BYTE # 60 -PORT # 118 -BYTE # 61 -PORT # 118 -BYTE # 62 -PORT # 118 -BYTE # 63 -PORT # 118 -BYTE # 64 -PORT # 118 -BYTE # 65 -PORT # 118 -BYTE # 66 -PORT # 118 -BYTE # 67 -PORT # 118 -BYTE # 68 -PORT # 118 -BYTE # 69 -PORT # 118 -BYTE # 70 -PORT # 118 -BYTE # 71 -PORT # 118 -BYTE # 72 -PORT # 118 -BYTE # 73 -PORT # 118 -BYTE # 74 -PORT # 118 -BYTE # 75 -PORT # 118 -BYTE # 76 -PORT # 118 -BYTE # 77 -PORT # 118 -BYTE # 78 -PORT # 118 -BYTE # 79 -PORT # 118 -BYTE # 80 -PORT # 118 -BYTE # 81 -PORT # 118 -BYTE # 82 -PORT # 118 -BYTE # 83 -PORT # 118 -BYTE # 84 -PORT # 118 -BYTE # 85 -PORT # 118 -BYTE # 86 -PORT # 118 -BYTE # 87 -PORT # 118 -BYTE # 88 -PORT # 118 -BYTE # 89 -PORT # 118 -BYTE # 90 -PORT # 118 -BYTE # 91 -PORT # 118 -BYTE # 92 -PORT # 118 -BYTE # 93 -PORT # 118 -BYTE # 94 -PORT # 118 -BYTE # 95 -PORT # 118 -BYTE # 96 -PORT # 118 -BYTE # 97 -PORT # 118 -BYTE # 98 -PORT # 118 -BYTE # 99 -PORT # 118 -BYTE # 100 -PORT # 118 -BYTE # 101 -PORT # 118 -BYTE # 102 -PORT # 118 -BYTE # 103 -PORT # 118 -BYTE # 104 -PORT # 118 -BYTE # 105 -PORT # 118 -BYTE # 106 -PORT # 118 -BYTE # 107 -PORT # 118 -BYTE # 108 -PORT # 118 -BYTE # 109 -PORT # 118 -BYTE # 110 -PORT # 118 -BYTE # 111 -PORT # 118 -BYTE # 112 -PORT # 118 -BYTE # 113 -PORT # 118 -BYTE # 114 -PORT # 118 -BYTE # 115 -PORT # 118 -BYTE # 116 -PORT # 118 -BYTE # 117 -PORT # 118 -BYTE # 118 -PORT # 118 -BYTE # 119 -PORT # 118 -BYTE # 120 -PORT # 118 -BYTE # 121 -PORT # 118 -BYTE # 122 -PORT # 118 -BYTE # 123 -PORT # 118 -BYTE # 124 -PORT # 118 -BYTE # 125 -PORT # 118 -BYTE # 126 -PORT # 118 -BYTE # 127 -PORT # 118 -BYTE # 128 -PORT # 118 -BYTE # 129 -PORT # 118 -BYTE # 130 -PORT # 118 -BYTE # 131 -PORT # 118 -BYTE # 132 -PORT # 118 -BYTE # 133 -PORT # 118 -BYTE # 134 -PORT # 118 -BYTE # 135 -PORT # 118 -BYTE # 136 -PORT # 118 -BYTE # 137 -PORT # 118 -BYTE # 138 -PORT # 118 -BYTE # 139 -PORT # 118 -BYTE # 140 -PORT # 118 -BYTE # 141 -PORT # 118 -BYTE # 142 -PORT # 118 -BYTE # 143 -PORT # 118 -BYTE # 144 -PORT # 118 -BYTE # 145 -PORT # 118 -BYTE # 146 -PORT # 118 -BYTE # 147 -PORT # 118 -BYTE # 148 -PORT # 118 -BYTE # 149 -PORT # 118 -BYTE # 150 -PORT # 118 -BYTE # 151 -PORT # 118 -BYTE # 152 -PORT # 118 -BYTE # 153 -PORT # 118 -BYTE # 154 -PORT # 118 -BYTE # 155 -PORT # 118 -BYTE # 156 -PORT # 118 -BYTE # 157 -PORT # 118 -BYTE # 158 -PORT # 118 -BYTE # 159 -PORT # 118 -BYTE # 160 -PORT # 118 -BYTE # 161 -PORT # 118 -BYTE # 162 -PORT # 118 -BYTE # 163 -PORT # 118 -BYTE # 164 -PORT # 118 -BYTE # 165 -PORT # 118 -BYTE # 166 -PORT # 118 -BYTE # 167 -PORT # 118 -BYTE # 168 -PORT # 118 -BYTE # 169 -PORT # 118 -BYTE # 170 -PORT # 118 -BYTE # 171 -PORT # 118 -BYTE # 172 -PORT # 118 -BYTE # 173 -PORT # 118 -BYTE # 174 -PORT # 118 -BYTE # 175 -PORT # 118 -BYTE # 176 -PORT # 118 -BYTE # 177 -PORT # 118 -BYTE # 178 -PORT # 118 -BYTE # 179 -PORT # 118 -BYTE # 180 -PORT # 118 -BYTE # 181 -PORT # 118 -BYTE # 182 -PORT # 118 -BYTE # 183 -PORT # 118 -BYTE # 184 -PORT # 118 -BYTE # 185 -PORT # 118 -BYTE # 186 -PORT # 118 -BYTE # 187 -PORT # 118 -BYTE # 188 -PORT # 118 -BYTE # 189 -PORT # 118 -BYTE # 190 -PORT # 118 -BYTE # 191 -PORT # 118 -BYTE # 192 -PORT # 118 -BYTE # 193 -PORT # 118 -BYTE # 194 -PORT # 118 -BYTE # 195 -PORT # 118 -BYTE # 196 -PORT # 118 -BYTE # 197 -PORT # 118 -BYTE # 198 -PORT # 118 -BYTE # 199 -PORT # 118 -BYTE # 200 -PORT # 118 -BYTE # 201 -PORT # 118 -BYTE # 202 -PORT # 118 -BYTE # 203 -PORT # 118 -BYTE # 204 -PORT # 118 -BYTE # 205 -PORT # 118 -BYTE # 206 -PORT # 118 -BYTE # 207 -PORT # 118 -BYTE # 208 -PORT # 118 -BYTE # 209 -PORT # 118 -BYTE # 210 -PORT # 118 -BYTE # 211 -PORT # 118 -BYTE # 212 -PORT # 118 -BYTE # 213 -PORT # 118 -BYTE # 214 -PORT # 118 -BYTE # 215 -PORT # 118 -BYTE # 216 -PORT # 118 -BYTE # 217 -PORT # 118 -BYTE # 218 -PORT # 118 -BYTE # 219 -PORT # 118 -BYTE # 220 -PORT # 118 -BYTE # 221 -PORT # 118 -BYTE # 222 -PORT # 118 -BYTE # 223 -PORT # 118 -BYTE # 224 -PORT # 118 -BYTE # 225 -PORT # 118 -BYTE # 226 -PORT # 118 -BYTE # 227 -PORT # 118 -BYTE # 228 -PORT # 118 -BYTE # 229 -PORT # 118 -BYTE # 230 -PORT # 118 -BYTE # 231 -PORT # 118 -BYTE # 232 -PORT # 118 -BYTE # 233 -PORT # 118 -BYTE # 234 -PORT # 118 -BYTE # 235 -PORT # 118 -BYTE # 236 -PORT # 118 -BYTE # 237 -PORT # 118 -BYTE # 238 -PORT # 118 -BYTE # 239 -PORT # 118 -BYTE # 240 -PORT # 118 -BYTE # 241 -PORT # 118 -BYTE # 242 -PORT # 118 -BYTE # 243 -PORT # 118 -BYTE # 244 -PORT # 118 -BYTE # 245 -PORT # 118 -BYTE # 246 -PORT # 118 -BYTE # 247 -PORT # 118 -BYTE # 248 -PORT # 118 -BYTE # 249 -PORT # 118 -BYTE # 250 -PORT # 118 -BYTE # 251 -PORT # 118 -BYTE # 252 -PORT # 118 -BYTE # 253 -PORT # 118 -BYTE # 254 -PORT # 118 -BYTE # 255 -PORT # 119 -BYTE # 0 -PORT # 119 -BYTE # 1 -PORT # 119 -BYTE # 2 -PORT # 119 -BYTE # 3 -PORT # 119 -BYTE # 4 -PORT # 119 -BYTE # 5 -PORT # 119 -BYTE # 6 -PORT # 119 -BYTE # 7 -PORT # 119 -BYTE # 8 -PORT # 119 -BYTE # 9 -PORT # 119 -BYTE # 10 -PORT # 119 -BYTE # 11 -PORT # 119 -BYTE # 12 -PORT # 119 -BYTE # 13 -PORT # 119 -BYTE # 14 -PORT # 119 -BYTE # 15 -PORT # 119 -BYTE # 16 -PORT # 119 -BYTE # 17 -PORT # 119 -BYTE # 18 -PORT # 119 -BYTE # 19 -PORT # 119 -BYTE # 20 -PORT # 119 -BYTE # 21 -PORT # 119 -BYTE # 22 -PORT # 119 -BYTE # 23 -PORT # 119 -BYTE # 24 -PORT # 119 -BYTE # 25 -PORT # 119 -BYTE # 26 -PORT # 119 -BYTE # 27 -PORT # 119 -BYTE # 28 -PORT # 119 -BYTE # 29 -PORT # 119 -BYTE # 30 -PORT # 119 -BYTE # 31 -PORT # 119 -BYTE # 32 -PORT # 119 -BYTE # 33 -PORT # 119 -BYTE # 34 -PORT # 119 -BYTE # 35 -PORT # 119 -BYTE # 36 -PORT # 119 -BYTE # 37 -PORT # 119 -BYTE # 38 -PORT # 119 -BYTE # 39 -PORT # 119 -BYTE # 40 -PORT # 119 -BYTE # 41 -PORT # 119 -BYTE # 42 -PORT # 119 -BYTE # 43 -PORT # 119 -BYTE # 44 -PORT # 119 -BYTE # 45 -PORT # 119 -BYTE # 46 -PORT # 119 -BYTE # 47 -PORT # 119 -BYTE # 48 -PORT # 119 -BYTE # 49 -PORT # 119 -BYTE # 50 -PORT # 119 -BYTE # 51 -PORT # 119 -BYTE # 52 -PORT # 119 -BYTE # 53 -PORT # 119 -BYTE # 54 -PORT # 119 -BYTE # 55 -PORT # 119 -BYTE # 56 -PORT # 119 -BYTE # 57 -PORT # 119 -BYTE # 58 -PORT # 119 -BYTE # 59 -PORT # 119 -BYTE # 60 -PORT # 119 -BYTE # 61 -PORT # 119 -BYTE # 62 -PORT # 119 -BYTE # 63 -PORT # 119 -BYTE # 64 -PORT # 119 -BYTE # 65 -PORT # 119 -BYTE # 66 -PORT # 119 -BYTE # 67 -PORT # 119 -BYTE # 68 -PORT # 119 -BYTE # 69 -PORT # 119 -BYTE # 70 -PORT # 119 -BYTE # 71 -PORT # 119 -BYTE # 72 -PORT # 119 -BYTE # 73 -PORT # 119 -BYTE # 74 -PORT # 119 -BYTE # 75 -PORT # 119 -BYTE # 76 -PORT # 119 -BYTE # 77 -PORT # 119 -BYTE # 78 -PORT # 119 -BYTE # 79 -PORT # 119 -BYTE # 80 -PORT # 119 -BYTE # 81 -PORT # 119 -BYTE # 82 -PORT # 119 -BYTE # 83 -PORT # 119 -BYTE # 84 -PORT # 119 -BYTE # 85 -PORT # 119 -BYTE # 86 -PORT # 119 -BYTE # 87 -PORT # 119 -BYTE # 88 -PORT # 119 -BYTE # 89 -PORT # 119 -BYTE # 90 -PORT # 119 -BYTE # 91 -PORT # 119 -BYTE # 92 -PORT # 119 -BYTE # 93 -PORT # 119 -BYTE # 94 -PORT # 119 -BYTE # 95 -PORT # 119 -BYTE # 96 -PORT # 119 -BYTE # 97 -PORT # 119 -BYTE # 98 -PORT # 119 -BYTE # 99 -PORT # 119 -BYTE # 100 -PORT # 119 -BYTE # 101 -PORT # 119 -BYTE # 102 -PORT # 119 -BYTE # 103 -PORT # 119 -BYTE # 104 -PORT # 119 -BYTE # 105 -PORT # 119 -BYTE # 106 -PORT # 119 -BYTE # 107 -PORT # 119 -BYTE # 108 -PORT # 119 -BYTE # 109 -PORT # 119 -BYTE # 110 -PORT # 119 -BYTE # 111 -PORT # 119 -BYTE # 112 -PORT # 119 -BYTE # 113 -PORT # 119 -BYTE # 114 -PORT # 119 -BYTE # 115 -PORT # 119 -BYTE # 116 -PORT # 119 -BYTE # 117 -PORT # 119 -BYTE # 118 -PORT # 119 -BYTE # 119 -PORT # 119 -BYTE # 120 -PORT # 119 -BYTE # 121 -PORT # 119 -BYTE # 122 -PORT # 119 -BYTE # 123 -PORT # 119 -BYTE # 124 -PORT # 119 -BYTE # 125 -PORT # 119 -BYTE # 126 -PORT # 119 -BYTE # 127 -PORT # 119 -BYTE # 128 -PORT # 119 -BYTE # 129 -PORT # 119 -BYTE # 130 -PORT # 119 -BYTE # 131 -PORT # 119 -BYTE # 132 -PORT # 119 -BYTE # 133 -PORT # 119 -BYTE # 134 -PORT # 119 -BYTE # 135 -PORT # 119 -BYTE # 136 -PORT # 119 -BYTE # 137 -PORT # 119 -BYTE # 138 -PORT # 119 -BYTE # 139 -PORT # 119 -BYTE # 140 -PORT # 119 -BYTE # 141 -PORT # 119 -BYTE # 142 -PORT # 119 -BYTE # 143 -PORT # 119 -BYTE # 144 -PORT # 119 -BYTE # 145 -PORT # 119 -BYTE # 146 -PORT # 119 -BYTE # 147 -PORT # 119 -BYTE # 148 -PORT # 119 -BYTE # 149 -PORT # 119 -BYTE # 150 -PORT # 119 -BYTE # 151 -PORT # 119 -BYTE # 152 -PORT # 119 -BYTE # 153 -PORT # 119 -BYTE # 154 -PORT # 119 -BYTE # 155 -PORT # 119 -BYTE # 156 -PORT # 119 -BYTE # 157 -PORT # 119 -BYTE # 158 -PORT # 119 -BYTE # 159 -PORT # 119 -BYTE # 160 -PORT # 119 -BYTE # 161 -PORT # 119 -BYTE # 162 -PORT # 119 -BYTE # 163 -PORT # 119 -BYTE # 164 -PORT # 119 -BYTE # 165 -PORT # 119 -BYTE # 166 -PORT # 119 -BYTE # 167 -PORT # 119 -BYTE # 168 -PORT # 119 -BYTE # 169 -PORT # 119 -BYTE # 170 -PORT # 119 -BYTE # 171 -PORT # 119 -BYTE # 172 -PORT # 119 -BYTE # 173 -PORT # 119 -BYTE # 174 -PORT # 119 -BYTE # 175 -PORT # 119 -BYTE # 176 -PORT # 119 -BYTE # 177 -PORT # 119 -BYTE # 178 -PORT # 119 -BYTE # 179 -PORT # 119 -BYTE # 180 -PORT # 119 -BYTE # 181 -PORT # 119 -BYTE # 182 -PORT # 119 -BYTE # 183 -PORT # 119 -BYTE # 184 -PORT # 119 -BYTE # 185 -PORT # 119 -BYTE # 186 -PORT # 119 -BYTE # 187 -PORT # 119 -BYTE # 188 -PORT # 119 -BYTE # 189 -PORT # 119 -BYTE # 190 -PORT # 119 -BYTE # 191 -PORT # 119 -BYTE # 192 -PORT # 119 -BYTE # 193 -PORT # 119 -BYTE # 194 -PORT # 119 -BYTE # 195 -PORT # 119 -BYTE # 196 -PORT # 119 -BYTE # 197 -PORT # 119 -BYTE # 198 -PORT # 119 -BYTE # 199 -PORT # 119 -BYTE # 200 -PORT # 119 -BYTE # 201 -PORT # 119 -BYTE # 202 -PORT # 119 -BYTE # 203 -PORT # 119 -BYTE # 204 -PORT # 119 -BYTE # 205 -PORT # 119 -BYTE # 206 -PORT # 119 -BYTE # 207 -PORT # 119 -BYTE # 208 -PORT # 119 -BYTE # 209 -PORT # 119 -BYTE # 210 -PORT # 119 -BYTE # 211 -PORT # 119 -BYTE # 212 -PORT # 119 -BYTE # 213 -PORT # 119 -BYTE # 214 -PORT # 119 -BYTE # 215 -PORT # 119 -BYTE # 216 -PORT # 119 -BYTE # 217 -PORT # 119 -BYTE # 218 -PORT # 119 -BYTE # 219 -PORT # 119 -BYTE # 220 -PORT # 119 -BYTE # 221 -PORT # 119 -BYTE # 222 -PORT # 119 -BYTE # 223 -PORT # 119 -BYTE # 224 -PORT # 119 -BYTE # 225 -PORT # 119 -BYTE # 226 -PORT # 119 -BYTE # 227 -PORT # 119 -BYTE # 228 -PORT # 119 -BYTE # 229 -PORT # 119 -BYTE # 230 -PORT # 119 -BYTE # 231 -PORT # 119 -BYTE # 232 -PORT # 119 -BYTE # 233 -PORT # 119 -BYTE # 234 -PORT # 119 -BYTE # 235 -PORT # 119 -BYTE # 236 -PORT # 119 -BYTE # 237 -PORT # 119 -BYTE # 238 -PORT # 119 -BYTE # 239 -PORT # 119 -BYTE # 240 -PORT # 119 -BYTE # 241 -PORT # 119 -BYTE # 242 -PORT # 119 -BYTE # 243 -PORT # 119 -BYTE # 244 -PORT # 119 -BYTE # 245 -PORT # 119 -BYTE # 246 -PORT # 119 -BYTE # 247 -PORT # 119 -BYTE # 248 -PORT # 119 -BYTE # 249 -PORT # 119 -BYTE # 250 -PORT # 119 -BYTE # 251 -PORT # 119 -BYTE # 252 -PORT # 119 -BYTE # 253 -PORT # 119 -BYTE # 254 -PORT # 119 -BYTE # 255 -PORT # 120 -BYTE # 0 -PORT # 120 -BYTE # 1 -PORT # 120 -BYTE # 2 -PORT # 120 -BYTE # 3 -PORT # 120 -BYTE # 4 -PORT # 120 -BYTE # 5 -PORT # 120 -BYTE # 6 -PORT # 120 -BYTE # 7 -PORT # 120 -BYTE # 8 -PORT # 120 -BYTE # 9 -PORT # 120 -BYTE # 10 -PORT # 120 -BYTE # 11 -PORT # 120 -BYTE # 12 -PORT # 120 -BYTE # 13 -PORT # 120 -BYTE # 14 -PORT # 120 -BYTE # 15 -PORT # 120 -BYTE # 16 -PORT # 120 -BYTE # 17 -PORT # 120 -BYTE # 18 -PORT # 120 -BYTE # 19 -PORT # 120 -BYTE # 20 -PORT # 120 -BYTE # 21 -PORT # 120 -BYTE # 22 -PORT # 120 -BYTE # 23 -PORT # 120 -BYTE # 24 -PORT # 120 -BYTE # 25 -PORT # 120 -BYTE # 26 -PORT # 120 -BYTE # 27 -PORT # 120 -BYTE # 28 -PORT # 120 -BYTE # 29 -PORT # 120 -BYTE # 30 -PORT # 120 -BYTE # 31 -PORT # 120 -BYTE # 32 -PORT # 120 -BYTE # 33 -PORT # 120 -BYTE # 34 -PORT # 120 -BYTE # 35 -PORT # 120 -BYTE # 36 -PORT # 120 -BYTE # 37 -PORT # 120 -BYTE # 38 -PORT # 120 -BYTE # 39 -PORT # 120 -BYTE # 40 -PORT # 120 -BYTE # 41 -PORT # 120 -BYTE # 42 -PORT # 120 -BYTE # 43 -PORT # 120 -BYTE # 44 -PORT # 120 -BYTE # 45 -PORT # 120 -BYTE # 46 -PORT # 120 -BYTE # 47 -PORT # 120 -BYTE # 48 -PORT # 120 -BYTE # 49 -PORT # 120 -BYTE # 50 -PORT # 120 -BYTE # 51 -PORT # 120 -BYTE # 52 -PORT # 120 -BYTE # 53 -PORT # 120 -BYTE # 54 -PORT # 120 -BYTE # 55 -PORT # 120 -BYTE # 56 -PORT # 120 -BYTE # 57 -PORT # 120 -BYTE # 58 -PORT # 120 -BYTE # 59 -PORT # 120 -BYTE # 60 -PORT # 120 -BYTE # 61 -PORT # 120 -BYTE # 62 -PORT # 120 -BYTE # 63 -PORT # 120 -BYTE # 64 -PORT # 120 -BYTE # 65 -PORT # 120 -BYTE # 66 -PORT # 120 -BYTE # 67 -PORT # 120 -BYTE # 68 -PORT # 120 -BYTE # 69 -PORT # 120 -BYTE # 70 -PORT # 120 -BYTE # 71 -PORT # 120 -BYTE # 72 -PORT # 120 -BYTE # 73 -PORT # 120 -BYTE # 74 -PORT # 120 -BYTE # 75 -PORT # 120 -BYTE # 76 -PORT # 120 -BYTE # 77 -PORT # 120 -BYTE # 78 -PORT # 120 -BYTE # 79 -PORT # 120 -BYTE # 80 -PORT # 120 -BYTE # 81 -PORT # 120 -BYTE # 82 -PORT # 120 -BYTE # 83 -PORT # 120 -BYTE # 84 -PORT # 120 -BYTE # 85 -PORT # 120 -BYTE # 86 -PORT # 120 -BYTE # 87 -PORT # 120 -BYTE # 88 -PORT # 120 -BYTE # 89 -PORT # 120 -BYTE # 90 -PORT # 120 -BYTE # 91 -PORT # 120 -BYTE # 92 -PORT # 120 -BYTE # 93 -PORT # 120 -BYTE # 94 -PORT # 120 -BYTE # 95 -PORT # 120 -BYTE # 96 -PORT # 120 -BYTE # 97 -PORT # 120 -BYTE # 98 -PORT # 120 -BYTE # 99 -PORT # 120 -BYTE # 100 -PORT # 120 -BYTE # 101 -PORT # 120 -BYTE # 102 -PORT # 120 -BYTE # 103 -PORT # 120 -BYTE # 104 -PORT # 120 -BYTE # 105 -PORT # 120 -BYTE # 106 -PORT # 120 -BYTE # 107 -PORT # 120 -BYTE # 108 -PORT # 120 -BYTE # 109 -PORT # 120 -BYTE # 110 -PORT # 120 -BYTE # 111 -PORT # 120 -BYTE # 112 -PORT # 120 -BYTE # 113 -PORT # 120 -BYTE # 114 -PORT # 120 -BYTE # 115 -PORT # 120 -BYTE # 116 -PORT # 120 -BYTE # 117 -PORT # 120 -BYTE # 118 -PORT # 120 -BYTE # 119 -PORT # 120 -BYTE # 120 -PORT # 120 -BYTE # 121 -PORT # 120 -BYTE # 122 -PORT # 120 -BYTE # 123 -PORT # 120 -BYTE # 124 -PORT # 120 -BYTE # 125 -PORT # 120 -BYTE # 126 -PORT # 120 -BYTE # 127 -PORT # 120 -BYTE # 128 -PORT # 120 -BYTE # 129 -PORT # 120 -BYTE # 130 -PORT # 120 -BYTE # 131 -PORT # 120 -BYTE # 132 -PORT # 120 -BYTE # 133 -PORT # 120 -BYTE # 134 -PORT # 120 -BYTE # 135 -PORT # 120 -BYTE # 136 -PORT # 120 -BYTE # 137 -PORT # 120 -BYTE # 138 -PORT # 120 -BYTE # 139 -PORT # 120 -BYTE # 140 -PORT # 120 -BYTE # 141 -PORT # 120 -BYTE # 142 -PORT # 120 -BYTE # 143 -PORT # 120 -BYTE # 144 -PORT # 120 -BYTE # 145 -PORT # 120 -BYTE # 146 -PORT # 120 -BYTE # 147 -PORT # 120 -BYTE # 148 -PORT # 120 -BYTE # 149 -PORT # 120 -BYTE # 150 -PORT # 120 -BYTE # 151 -PORT # 120 -BYTE # 152 -PORT # 120 -BYTE # 153 -PORT # 120 -BYTE # 154 -PORT # 120 -BYTE # 155 -PORT # 120 -BYTE # 156 -PORT # 120 -BYTE # 157 -PORT # 120 -BYTE # 158 -PORT # 120 -BYTE # 159 -PORT # 120 -BYTE # 160 -PORT # 120 -BYTE # 161 -PORT # 120 -BYTE # 162 -PORT # 120 -BYTE # 163 -PORT # 120 -BYTE # 164 -PORT # 120 -BYTE # 165 -PORT # 120 -BYTE # 166 -PORT # 120 -BYTE # 167 -PORT # 120 -BYTE # 168 -PORT # 120 -BYTE # 169 -PORT # 120 -BYTE # 170 -PORT # 120 -BYTE # 171 -PORT # 120 -BYTE # 172 -PORT # 120 -BYTE # 173 -PORT # 120 -BYTE # 174 -PORT # 120 -BYTE # 175 -PORT # 120 -BYTE # 176 -PORT # 120 -BYTE # 177 -PORT # 120 -BYTE # 178 -PORT # 120 -BYTE # 179 -PORT # 120 -BYTE # 180 -PORT # 120 -BYTE # 181 -PORT # 120 -BYTE # 182 -PORT # 120 -BYTE # 183 -PORT # 120 -BYTE # 184 -PORT # 120 -BYTE # 185 -PORT # 120 -BYTE # 186 -PORT # 120 -BYTE # 187 -PORT # 120 -BYTE # 188 -PORT # 120 -BYTE # 189 -PORT # 120 -BYTE # 190 -PORT # 120 -BYTE # 191 -PORT # 120 -BYTE # 192 -PORT # 120 -BYTE # 193 -PORT # 120 -BYTE # 194 -PORT # 120 -BYTE # 195 -PORT # 120 -BYTE # 196 -PORT # 120 -BYTE # 197 -PORT # 120 -BYTE # 198 -PORT # 120 -BYTE # 199 -PORT # 120 -BYTE # 200 -PORT # 120 -BYTE # 201 -PORT # 120 -BYTE # 202 -PORT # 120 -BYTE # 203 -PORT # 120 -BYTE # 204 -PORT # 120 -BYTE # 205 -PORT # 120 -BYTE # 206 -PORT # 120 -BYTE # 207 -PORT # 120 -BYTE # 208 -PORT # 120 -BYTE # 209 -PORT # 120 -BYTE # 210 -PORT # 120 -BYTE # 211 -PORT # 120 -BYTE # 212 -PORT # 120 -BYTE # 213 -PORT # 120 -BYTE # 214 -PORT # 120 -BYTE # 215 -PORT # 120 -BYTE # 216 -PORT # 120 -BYTE # 217 -PORT # 120 -BYTE # 218 -PORT # 120 -BYTE # 219 -PORT # 120 -BYTE # 220 -PORT # 120 -BYTE # 221 -PORT # 120 -BYTE # 222 -PORT # 120 -BYTE # 223 -PORT # 120 -BYTE # 224 -PORT # 120 -BYTE # 225 -PORT # 120 -BYTE # 226 -PORT # 120 -BYTE # 227 -PORT # 120 -BYTE # 228 -PORT # 120 -BYTE # 229 -PORT # 120 -BYTE # 230 -PORT # 120 -BYTE # 231 -PORT # 120 -BYTE # 232 -PORT # 120 -BYTE # 233 -PORT # 120 -BYTE # 234 -PORT # 120 -BYTE # 235 -PORT # 120 -BYTE # 236 -PORT # 120 -BYTE # 237 -PORT # 120 -BYTE # 238 -PORT # 120 -BYTE # 239 -PORT # 120 -BYTE # 240 -PORT # 120 -BYTE # 241 -PORT # 120 -BYTE # 242 -PORT # 120 -BYTE # 243 -PORT # 120 -BYTE # 244 -PORT # 120 -BYTE # 245 -PORT # 120 -BYTE # 246 -PORT # 120 -BYTE # 247 -PORT # 120 -BYTE # 248 -PORT # 120 -BYTE # 249 -PORT # 120 -BYTE # 250 -PORT # 120 -BYTE # 251 -PORT # 120 -BYTE # 252 -PORT # 120 -BYTE # 253 -PORT # 120 -BYTE # 254 -PORT # 120 -BYTE # 255 -PORT # 121 -BYTE # 0 -PORT # 121 -BYTE # 1 -PORT # 121 -BYTE # 2 -PORT # 121 -BYTE # 3 -PORT # 121 -BYTE # 4 -PORT # 121 -BYTE # 5 -PORT # 121 -BYTE # 6 -PORT # 121 -BYTE # 7 -PORT # 121 -BYTE # 8 -PORT # 121 -BYTE # 9 -PORT # 121 -BYTE # 10 -PORT # 121 -BYTE # 11 -PORT # 121 -BYTE # 12 -PORT # 121 -BYTE # 13 -PORT # 121 -BYTE # 14 -PORT # 121 -BYTE # 15 -PORT # 121 -BYTE # 16 -PORT # 121 -BYTE # 17 -PORT # 121 -BYTE # 18 -PORT # 121 -BYTE # 19 -PORT # 121 -BYTE # 20 -PORT # 121 -BYTE # 21 -PORT # 121 -BYTE # 22 -PORT # 121 -BYTE # 23 -PORT # 121 -BYTE # 24 -PORT # 121 -BYTE # 25 -PORT # 121 -BYTE # 26 -PORT # 121 -BYTE # 27 -PORT # 121 -BYTE # 28 -PORT # 121 -BYTE # 29 -PORT # 121 -BYTE # 30 -PORT # 121 -BYTE # 31 -PORT # 121 -BYTE # 32 -PORT # 121 -BYTE # 33 -PORT # 121 -BYTE # 34 -PORT # 121 -BYTE # 35 -PORT # 121 -BYTE # 36 -PORT # 121 -BYTE # 37 -PORT # 121 -BYTE # 38 -PORT # 121 -BYTE # 39 -PORT # 121 -BYTE # 40 -PORT # 121 -BYTE # 41 -PORT # 121 -BYTE # 42 -PORT # 121 -BYTE # 43 -PORT # 121 -BYTE # 44 -PORT # 121 -BYTE # 45 -PORT # 121 -BYTE # 46 -PORT # 121 -BYTE # 47 -PORT # 121 -BYTE # 48 -PORT # 121 -BYTE # 49 -PORT # 121 -BYTE # 50 -PORT # 121 -BYTE # 51 -PORT # 121 -BYTE # 52 -PORT # 121 -BYTE # 53 -PORT # 121 -BYTE # 54 -PORT # 121 -BYTE # 55 -PORT # 121 -BYTE # 56 -PORT # 121 -BYTE # 57 -PORT # 121 -BYTE # 58 -PORT # 121 -BYTE # 59 -PORT # 121 -BYTE # 60 -PORT # 121 -BYTE # 61 -PORT # 121 -BYTE # 62 -PORT # 121 -BYTE # 63 -PORT # 121 -BYTE # 64 -PORT # 121 -BYTE # 65 -PORT # 121 -BYTE # 66 -PORT # 121 -BYTE # 67 -PORT # 121 -BYTE # 68 -PORT # 121 -BYTE # 69 -PORT # 121 -BYTE # 70 -PORT # 121 -BYTE # 71 -PORT # 121 -BYTE # 72 -PORT # 121 -BYTE # 73 -PORT # 121 -BYTE # 74 -PORT # 121 -BYTE # 75 -PORT # 121 -BYTE # 76 -PORT # 121 -BYTE # 77 -PORT # 121 -BYTE # 78 -PORT # 121 -BYTE # 79 -PORT # 121 -BYTE # 80 -PORT # 121 -BYTE # 81 -PORT # 121 -BYTE # 82 -PORT # 121 -BYTE # 83 -PORT # 121 -BYTE # 84 -PORT # 121 -BYTE # 85 -PORT # 121 -BYTE # 86 -PORT # 121 -BYTE # 87 -PORT # 121 -BYTE # 88 -PORT # 121 -BYTE # 89 -PORT # 121 -BYTE # 90 -PORT # 121 -BYTE # 91 -PORT # 121 -BYTE # 92 -PORT # 121 -BYTE # 93 -PORT # 121 -BYTE # 94 -PORT # 121 -BYTE # 95 -PORT # 121 -BYTE # 96 -PORT # 121 -BYTE # 97 -PORT # 121 -BYTE # 98 -PORT # 121 -BYTE # 99 -PORT # 121 -BYTE # 100 -PORT # 121 -BYTE # 101 -PORT # 121 -BYTE # 102 -PORT # 121 -BYTE # 103 -PORT # 121 -BYTE # 104 -PORT # 121 -BYTE # 105 -PORT # 121 -BYTE # 106 -PORT # 121 -BYTE # 107 -PORT # 121 -BYTE # 108 -PORT # 121 -BYTE # 109 -PORT # 121 -BYTE # 110 -PORT # 121 -BYTE # 111 -PORT # 121 -BYTE # 112 -PORT # 121 -BYTE # 113 -PORT # 121 -BYTE # 114 -PORT # 121 -BYTE # 115 -PORT # 121 -BYTE # 116 -PORT # 121 -BYTE # 117 -PORT # 121 -BYTE # 118 -PORT # 121 -BYTE # 119 -PORT # 121 -BYTE # 120 -PORT # 121 -BYTE # 121 -PORT # 121 -BYTE # 122 -PORT # 121 -BYTE # 123 -PORT # 121 -BYTE # 124 -PORT # 121 -BYTE # 125 -PORT # 121 -BYTE # 126 -PORT # 121 -BYTE # 127 -PORT # 121 -BYTE # 128 -PORT # 121 -BYTE # 129 -PORT # 121 -BYTE # 130 -PORT # 121 -BYTE # 131 -PORT # 121 -BYTE # 132 -PORT # 121 -BYTE # 133 -PORT # 121 -BYTE # 134 -PORT # 121 -BYTE # 135 -PORT # 121 -BYTE # 136 -PORT # 121 -BYTE # 137 -PORT # 121 -BYTE # 138 -PORT # 121 -BYTE # 139 -PORT # 121 -BYTE # 140 -PORT # 121 -BYTE # 141 -PORT # 121 -BYTE # 142 -PORT # 121 -BYTE # 143 -PORT # 121 -BYTE # 144 -PORT # 121 -BYTE # 145 -PORT # 121 -BYTE # 146 -PORT # 121 -BYTE # 147 -PORT # 121 -BYTE # 148 -PORT # 121 -BYTE # 149 -PORT # 121 -BYTE # 150 -PORT # 121 -BYTE # 151 -PORT # 121 -BYTE # 152 -PORT # 121 -BYTE # 153 -PORT # 121 -BYTE # 154 -PORT # 121 -BYTE # 155 -PORT # 121 -BYTE # 156 -PORT # 121 -BYTE # 157 -PORT # 121 -BYTE # 158 -PORT # 121 -BYTE # 159 -PORT # 121 -BYTE # 160 -PORT # 121 -BYTE # 161 -PORT # 121 -BYTE # 162 -PORT # 121 -BYTE # 163 -PORT # 121 -BYTE # 164 -PORT # 121 -BYTE # 165 -PORT # 121 -BYTE # 166 -PORT # 121 -BYTE # 167 -PORT # 121 -BYTE # 168 -PORT # 121 -BYTE # 169 -PORT # 121 -BYTE # 170 -PORT # 121 -BYTE # 171 -PORT # 121 -BYTE # 172 -PORT # 121 -BYTE # 173 -PORT # 121 -BYTE # 174 -PORT # 121 -BYTE # 175 -PORT # 121 -BYTE # 176 -PORT # 121 -BYTE # 177 -PORT # 121 -BYTE # 178 -PORT # 121 -BYTE # 179 -PORT # 121 -BYTE # 180 -PORT # 121 -BYTE # 181 -PORT # 121 -BYTE # 182 -PORT # 121 -BYTE # 183 -PORT # 121 -BYTE # 184 -PORT # 121 -BYTE # 185 -PORT # 121 -BYTE # 186 -PORT # 121 -BYTE # 187 -PORT # 121 -BYTE # 188 -PORT # 121 -BYTE # 189 -PORT # 121 -BYTE # 190 -PORT # 121 -BYTE # 191 -PORT # 121 -BYTE # 192 -PORT # 121 -BYTE # 193 -PORT # 121 -BYTE # 194 -PORT # 121 -BYTE # 195 -PORT # 121 -BYTE # 196 -PORT # 121 -BYTE # 197 -PORT # 121 -BYTE # 198 -PORT # 121 -BYTE # 199 -PORT # 121 -BYTE # 200 -PORT # 121 -BYTE # 201 -PORT # 121 -BYTE # 202 -PORT # 121 -BYTE # 203 -PORT # 121 -BYTE # 204 -PORT # 121 -BYTE # 205 -PORT # 121 -BYTE # 206 -PORT # 121 -BYTE # 207 -PORT # 121 -BYTE # 208 -PORT # 121 -BYTE # 209 -PORT # 121 -BYTE # 210 -PORT # 121 -BYTE # 211 -PORT # 121 -BYTE # 212 -PORT # 121 -BYTE # 213 -PORT # 121 -BYTE # 214 -PORT # 121 -BYTE # 215 -PORT # 121 -BYTE # 216 -PORT # 121 -BYTE # 217 -PORT # 121 -BYTE # 218 -PORT # 121 -BYTE # 219 -PORT # 121 -BYTE # 220 -PORT # 121 -BYTE # 221 -PORT # 121 -BYTE # 222 -PORT # 121 -BYTE # 223 -PORT # 121 -BYTE # 224 -PORT # 121 -BYTE # 225 -PORT # 121 -BYTE # 226 -PORT # 121 -BYTE # 227 -PORT # 121 -BYTE # 228 -PORT # 121 -BYTE # 229 -PORT # 121 -BYTE # 230 -PORT # 121 -BYTE # 231 -PORT # 121 -BYTE # 232 -PORT # 121 -BYTE # 233 -PORT # 121 -BYTE # 234 -PORT # 121 -BYTE # 235 -PORT # 121 -BYTE # 236 -PORT # 121 -BYTE # 237 -PORT # 121 -BYTE # 238 -PORT # 121 -BYTE # 239 -PORT # 121 -BYTE # 240 -PORT # 121 -BYTE # 241 -PORT # 121 -BYTE # 242 -PORT # 121 -BYTE # 243 -PORT # 121 -BYTE # 244 -PORT # 121 -BYTE # 245 -PORT # 121 -BYTE # 246 -PORT # 121 -BYTE # 247 -PORT # 121 -BYTE # 248 -PORT # 121 -BYTE # 249 -PORT # 121 -BYTE # 250 -PORT # 121 -BYTE # 251 -PORT # 121 -BYTE # 252 -PORT # 121 -BYTE # 253 -PORT # 121 -BYTE # 254 -PORT # 121 -BYTE # 255 -PORT # 122 -BYTE # 0 -PORT # 122 -BYTE # 1 -PORT # 122 -BYTE # 2 -PORT # 122 -BYTE # 3 -PORT # 122 -BYTE # 4 -PORT # 122 -BYTE # 5 -PORT # 122 -BYTE # 6 -PORT # 122 -BYTE # 7 -PORT # 122 -BYTE # 8 -PORT # 122 -BYTE # 9 -PORT # 122 -BYTE # 10 -PORT # 122 -BYTE # 11 -PORT # 122 -BYTE # 12 -PORT # 122 -BYTE # 13 -PORT # 122 -BYTE # 14 -PORT # 122 -BYTE # 15 -PORT # 122 -BYTE # 16 -PORT # 122 -BYTE # 17 -PORT # 122 -BYTE # 18 -PORT # 122 -BYTE # 19 -PORT # 122 -BYTE # 20 -PORT # 122 -BYTE # 21 -PORT # 122 -BYTE # 22 -PORT # 122 -BYTE # 23 -PORT # 122 -BYTE # 24 -PORT # 122 -BYTE # 25 -PORT # 122 -BYTE # 26 -PORT # 122 -BYTE # 27 -PORT # 122 -BYTE # 28 -PORT # 122 -BYTE # 29 -PORT # 122 -BYTE # 30 -PORT # 122 -BYTE # 31 -PORT # 122 -BYTE # 32 -PORT # 122 -BYTE # 33 -PORT # 122 -BYTE # 34 -PORT # 122 -BYTE # 35 -PORT # 122 -BYTE # 36 -PORT # 122 -BYTE # 37 -PORT # 122 -BYTE # 38 -PORT # 122 -BYTE # 39 -PORT # 122 -BYTE # 40 -PORT # 122 -BYTE # 41 -PORT # 122 -BYTE # 42 -PORT # 122 -BYTE # 43 -PORT # 122 -BYTE # 44 -PORT # 122 -BYTE # 45 -PORT # 122 -BYTE # 46 -PORT # 122 -BYTE # 47 -PORT # 122 -BYTE # 48 -PORT # 122 -BYTE # 49 -PORT # 122 -BYTE # 50 -PORT # 122 -BYTE # 51 -PORT # 122 -BYTE # 52 -PORT # 122 -BYTE # 53 -PORT # 122 -BYTE # 54 -PORT # 122 -BYTE # 55 -PORT # 122 -BYTE # 56 -PORT # 122 -BYTE # 57 -PORT # 122 -BYTE # 58 -PORT # 122 -BYTE # 59 -PORT # 122 -BYTE # 60 -PORT # 122 -BYTE # 61 -PORT # 122 -BYTE # 62 -PORT # 122 -BYTE # 63 -PORT # 122 -BYTE # 64 -PORT # 122 -BYTE # 65 -PORT # 122 -BYTE # 66 -PORT # 122 -BYTE # 67 -PORT # 122 -BYTE # 68 -PORT # 122 -BYTE # 69 -PORT # 122 -BYTE # 70 -PORT # 122 -BYTE # 71 -PORT # 122 -BYTE # 72 -PORT # 122 -BYTE # 73 -PORT # 122 -BYTE # 74 -PORT # 122 -BYTE # 75 -PORT # 122 -BYTE # 76 -PORT # 122 -BYTE # 77 -PORT # 122 -BYTE # 78 -PORT # 122 -BYTE # 79 -PORT # 122 -BYTE # 80 -PORT # 122 -BYTE # 81 -PORT # 122 -BYTE # 82 -PORT # 122 -BYTE # 83 -PORT # 122 -BYTE # 84 -PORT # 122 -BYTE # 85 -PORT # 122 -BYTE # 86 -PORT # 122 -BYTE # 87 -PORT # 122 -BYTE # 88 -PORT # 122 -BYTE # 89 -PORT # 122 -BYTE # 90 -PORT # 122 -BYTE # 91 -PORT # 122 -BYTE # 92 -PORT # 122 -BYTE # 93 -PORT # 122 -BYTE # 94 -PORT # 122 -BYTE # 95 -PORT # 122 -BYTE # 96 -PORT # 122 -BYTE # 97 -PORT # 122 -BYTE # 98 -PORT # 122 -BYTE # 99 -PORT # 122 -BYTE # 100 -PORT # 122 -BYTE # 101 -PORT # 122 -BYTE # 102 -PORT # 122 -BYTE # 103 -PORT # 122 -BYTE # 104 -PORT # 122 -BYTE # 105 -PORT # 122 -BYTE # 106 -PORT # 122 -BYTE # 107 -PORT # 122 -BYTE # 108 -PORT # 122 -BYTE # 109 -PORT # 122 -BYTE # 110 -PORT # 122 -BYTE # 111 -PORT # 122 -BYTE # 112 -PORT # 122 -BYTE # 113 -PORT # 122 -BYTE # 114 -PORT # 122 -BYTE # 115 -PORT # 122 -BYTE # 116 -PORT # 122 -BYTE # 117 -PORT # 122 -BYTE # 118 -PORT # 122 -BYTE # 119 -PORT # 122 -BYTE # 120 -PORT # 122 -BYTE # 121 -PORT # 122 -BYTE # 122 -PORT # 122 -BYTE # 123 -PORT # 122 -BYTE # 124 -PORT # 122 -BYTE # 125 -PORT # 122 -BYTE # 126 -PORT # 122 -BYTE # 127 -PORT # 122 -BYTE # 128 -PORT # 122 -BYTE # 129 -PORT # 122 -BYTE # 130 -PORT # 122 -BYTE # 131 -PORT # 122 -BYTE # 132 -PORT # 122 -BYTE # 133 -PORT # 122 -BYTE # 134 -PORT # 122 -BYTE # 135 -PORT # 122 -BYTE # 136 -PORT # 122 -BYTE # 137 -PORT # 122 -BYTE # 138 -PORT # 122 -BYTE # 139 -PORT # 122 -BYTE # 140 -PORT # 122 -BYTE # 141 -PORT # 122 -BYTE # 142 -PORT # 122 -BYTE # 143 -PORT # 122 -BYTE # 144 -PORT # 122 -BYTE # 145 -PORT # 122 -BYTE # 146 -PORT # 122 -BYTE # 147 -PORT # 122 -BYTE # 148 -PORT # 122 -BYTE # 149 -PORT # 122 -BYTE # 150 -PORT # 122 -BYTE # 151 -PORT # 122 -BYTE # 152 -PORT # 122 -BYTE # 153 -PORT # 122 -BYTE # 154 -PORT # 122 -BYTE # 155 -PORT # 122 -BYTE # 156 -PORT # 122 -BYTE # 157 -PORT # 122 -BYTE # 158 -PORT # 122 -BYTE # 159 -PORT # 122 -BYTE # 160 -PORT # 122 -BYTE # 161 -PORT # 122 -BYTE # 162 -PORT # 122 -BYTE # 163 -PORT # 122 -BYTE # 164 -PORT # 122 -BYTE # 165 -PORT # 122 -BYTE # 166 -PORT # 122 -BYTE # 167 -PORT # 122 -BYTE # 168 -PORT # 122 -BYTE # 169 -PORT # 122 -BYTE # 170 -PORT # 122 -BYTE # 171 -PORT # 122 -BYTE # 172 -PORT # 122 -BYTE # 173 -PORT # 122 -BYTE # 174 -PORT # 122 -BYTE # 175 -PORT # 122 -BYTE # 176 -PORT # 122 -BYTE # 177 -PORT # 122 -BYTE # 178 -PORT # 122 -BYTE # 179 -PORT # 122 -BYTE # 180 -PORT # 122 -BYTE # 181 -PORT # 122 -BYTE # 182 -PORT # 122 -BYTE # 183 -PORT # 122 -BYTE # 184 -PORT # 122 -BYTE # 185 -PORT # 122 -BYTE # 186 -PORT # 122 -BYTE # 187 -PORT # 122 -BYTE # 188 -PORT # 122 -BYTE # 189 -PORT # 122 -BYTE # 190 -PORT # 122 -BYTE # 191 -PORT # 122 -BYTE # 192 -PORT # 122 -BYTE # 193 -PORT # 122 -BYTE # 194 -PORT # 122 -BYTE # 195 -PORT # 122 -BYTE # 196 -PORT # 122 -BYTE # 197 -PORT # 122 -BYTE # 198 -PORT # 122 -BYTE # 199 -PORT # 122 -BYTE # 200 -PORT # 122 -BYTE # 201 -PORT # 122 -BYTE # 202 -PORT # 122 -BYTE # 203 -PORT # 122 -BYTE # 204 -PORT # 122 -BYTE # 205 -PORT # 122 -BYTE # 206 -PORT # 122 -BYTE # 207 -PORT # 122 -BYTE # 208 -PORT # 122 -BYTE # 209 -PORT # 122 -BYTE # 210 -PORT # 122 -BYTE # 211 -PORT # 122 -BYTE # 212 -PORT # 122 -BYTE # 213 -PORT # 122 -BYTE # 214 -PORT # 122 -BYTE # 215 -PORT # 122 -BYTE # 216 -PORT # 122 -BYTE # 217 -PORT # 122 -BYTE # 218 -PORT # 122 -BYTE # 219 -PORT # 122 -BYTE # 220 -PORT # 122 -BYTE # 221 -PORT # 122 -BYTE # 222 -PORT # 122 -BYTE # 223 -PORT # 122 -BYTE # 224 -PORT # 122 -BYTE # 225 -PORT # 122 -BYTE # 226 -PORT # 122 -BYTE # 227 -PORT # 122 -BYTE # 228 -PORT # 122 -BYTE # 229 -PORT # 122 -BYTE # 230 -PORT # 122 -BYTE # 231 -PORT # 122 -BYTE # 232 -PORT # 122 -BYTE # 233 -PORT # 122 -BYTE # 234 -PORT # 122 -BYTE # 235 -PORT # 122 -BYTE # 236 -PORT # 122 -BYTE # 237 -PORT # 122 -BYTE # 238 -PORT # 122 -BYTE # 239 -PORT # 122 -BYTE # 240 -PORT # 122 -BYTE # 241 -PORT # 122 -BYTE # 242 -PORT # 122 -BYTE # 243 -PORT # 122 -BYTE # 244 -PORT # 122 -BYTE # 245 -PORT # 122 -BYTE # 246 -PORT # 122 -BYTE # 247 -PORT # 122 -BYTE # 248 -PORT # 122 -BYTE # 249 -PORT # 122 -BYTE # 250 -PORT # 122 -BYTE # 251 -PORT # 122 -BYTE # 252 -PORT # 122 -BYTE # 253 -PORT # 122 -BYTE # 254 -PORT # 122 -BYTE # 255 -PORT # 123 -BYTE # 0 -PORT # 123 -BYTE # 1 -PORT # 123 -BYTE # 2 -PORT # 123 -BYTE # 3 -PORT # 123 -BYTE # 4 -PORT # 123 -BYTE # 5 -PORT # 123 -BYTE # 6 -PORT # 123 -BYTE # 7 -PORT # 123 -BYTE # 8 -PORT # 123 -BYTE # 9 -PORT # 123 -BYTE # 10 -PORT # 123 -BYTE # 11 -PORT # 123 -BYTE # 12 -PORT # 123 -BYTE # 13 -PORT # 123 -BYTE # 14 -PORT # 123 -BYTE # 15 -PORT # 123 -BYTE # 16 -PORT # 123 -BYTE # 17 -PORT # 123 -BYTE # 18 -PORT # 123 -BYTE # 19 -PORT # 123 -BYTE # 20 -PORT # 123 -BYTE # 21 -PORT # 123 -BYTE # 22 -PORT # 123 -BYTE # 23 -PORT # 123 -BYTE # 24 -PORT # 123 -BYTE # 25 -PORT # 123 -BYTE # 26 -PORT # 123 -BYTE # 27 -PORT # 123 -BYTE # 28 -PORT # 123 -BYTE # 29 -PORT # 123 -BYTE # 30 -PORT # 123 -BYTE # 31 -PORT # 123 -BYTE # 32 -PORT # 123 -BYTE # 33 -PORT # 123 -BYTE # 34 -PORT # 123 -BYTE # 35 -PORT # 123 -BYTE # 36 -PORT # 123 -BYTE # 37 -PORT # 123 -BYTE # 38 -PORT # 123 -BYTE # 39 -PORT # 123 -BYTE # 40 -PORT # 123 -BYTE # 41 -PORT # 123 -BYTE # 42 -PORT # 123 -BYTE # 43 -PORT # 123 -BYTE # 44 -PORT # 123 -BYTE # 45 -PORT # 123 -BYTE # 46 -PORT # 123 -BYTE # 47 -PORT # 123 -BYTE # 48 -PORT # 123 -BYTE # 49 -PORT # 123 -BYTE # 50 -PORT # 123 -BYTE # 51 -PORT # 123 -BYTE # 52 -PORT # 123 -BYTE # 53 -PORT # 123 -BYTE # 54 -PORT # 123 -BYTE # 55 -PORT # 123 -BYTE # 56 -PORT # 123 -BYTE # 57 -PORT # 123 -BYTE # 58 -PORT # 123 -BYTE # 59 -PORT # 123 -BYTE # 60 -PORT # 123 -BYTE # 61 -PORT # 123 -BYTE # 62 -PORT # 123 -BYTE # 63 -PORT # 123 -BYTE # 64 -PORT # 123 -BYTE # 65 -PORT # 123 -BYTE # 66 -PORT # 123 -BYTE # 67 -PORT # 123 -BYTE # 68 -PORT # 123 -BYTE # 69 -PORT # 123 -BYTE # 70 -PORT # 123 -BYTE # 71 -PORT # 123 -BYTE # 72 -PORT # 123 -BYTE # 73 -PORT # 123 -BYTE # 74 -PORT # 123 -BYTE # 75 -PORT # 123 -BYTE # 76 -PORT # 123 -BYTE # 77 -PORT # 123 -BYTE # 78 -PORT # 123 -BYTE # 79 -PORT # 123 -BYTE # 80 -PORT # 123 -BYTE # 81 -PORT # 123 -BYTE # 82 -PORT # 123 -BYTE # 83 -PORT # 123 -BYTE # 84 -PORT # 123 -BYTE # 85 -PORT # 123 -BYTE # 86 -PORT # 123 -BYTE # 87 -PORT # 123 -BYTE # 88 -PORT # 123 -BYTE # 89 -PORT # 123 -BYTE # 90 -PORT # 123 -BYTE # 91 -PORT # 123 -BYTE # 92 -PORT # 123 -BYTE # 93 -PORT # 123 -BYTE # 94 -PORT # 123 -BYTE # 95 -PORT # 123 -BYTE # 96 -PORT # 123 -BYTE # 97 -PORT # 123 -BYTE # 98 -PORT # 123 -BYTE # 99 -PORT # 123 -BYTE # 100 -PORT # 123 -BYTE # 101 -PORT # 123 -BYTE # 102 -PORT # 123 -BYTE # 103 -PORT # 123 -BYTE # 104 -PORT # 123 -BYTE # 105 -PORT # 123 -BYTE # 106 -PORT # 123 -BYTE # 107 -PORT # 123 -BYTE # 108 -PORT # 123 -BYTE # 109 -PORT # 123 -BYTE # 110 -PORT # 123 -BYTE # 111 -PORT # 123 -BYTE # 112 -PORT # 123 -BYTE # 113 -PORT # 123 -BYTE # 114 -PORT # 123 -BYTE # 115 -PORT # 123 -BYTE # 116 -PORT # 123 -BYTE # 117 -PORT # 123 -BYTE # 118 -PORT # 123 -BYTE # 119 -PORT # 123 -BYTE # 120 -PORT # 123 -BYTE # 121 -PORT # 123 -BYTE # 122 -PORT # 123 -BYTE # 123 -PORT # 123 -BYTE # 124 -PORT # 123 -BYTE # 125 -PORT # 123 -BYTE # 126 -PORT # 123 -BYTE # 127 -PORT # 123 -BYTE # 128 -PORT # 123 -BYTE # 129 -PORT # 123 -BYTE # 130 -PORT # 123 -BYTE # 131 -PORT # 123 -BYTE # 132 -PORT # 123 -BYTE # 133 -PORT # 123 -BYTE # 134 -PORT # 123 -BYTE # 135 -PORT # 123 -BYTE # 136 -PORT # 123 -BYTE # 137 -PORT # 123 -BYTE # 138 -PORT # 123 -BYTE # 139 -PORT # 123 -BYTE # 140 -PORT # 123 -BYTE # 141 -PORT # 123 -BYTE # 142 -PORT # 123 -BYTE # 143 -PORT # 123 -BYTE # 144 -PORT # 123 -BYTE # 145 -PORT # 123 -BYTE # 146 -PORT # 123 -BYTE # 147 -PORT # 123 -BYTE # 148 -PORT # 123 -BYTE # 149 -PORT # 123 -BYTE # 150 -PORT # 123 -BYTE # 151 -PORT # 123 -BYTE # 152 -PORT # 123 -BYTE # 153 -PORT # 123 -BYTE # 154 -PORT # 123 -BYTE # 155 -PORT # 123 -BYTE # 156 -PORT # 123 -BYTE # 157 -PORT # 123 -BYTE # 158 -PORT # 123 -BYTE # 159 -PORT # 123 -BYTE # 160 -PORT # 123 -BYTE # 161 -PORT # 123 -BYTE # 162 -PORT # 123 -BYTE # 163 -PORT # 123 -BYTE # 164 -PORT # 123 -BYTE # 165 -PORT # 123 -BYTE # 166 -PORT # 123 -BYTE # 167 -PORT # 123 -BYTE # 168 -PORT # 123 -BYTE # 169 -PORT # 123 -BYTE # 170 -PORT # 123 -BYTE # 171 -PORT # 123 -BYTE # 172 -PORT # 123 -BYTE # 173 -PORT # 123 -BYTE # 174 -PORT # 123 -BYTE # 175 -PORT # 123 -BYTE # 176 -PORT # 123 -BYTE # 177 -PORT # 123 -BYTE # 178 -PORT # 123 -BYTE # 179 -PORT # 123 -BYTE # 180 -PORT # 123 -BYTE # 181 -PORT # 123 -BYTE # 182 -PORT # 123 -BYTE # 183 -PORT # 123 -BYTE # 184 -PORT # 123 -BYTE # 185 -PORT # 123 -BYTE # 186 -PORT # 123 -BYTE # 187 -PORT # 123 -BYTE # 188 -PORT # 123 -BYTE # 189 -PORT # 123 -BYTE # 190 -PORT # 123 -BYTE # 191 -PORT # 123 -BYTE # 192 -PORT # 123 -BYTE # 193 -PORT # 123 -BYTE # 194 -PORT # 123 -BYTE # 195 -PORT # 123 -BYTE # 196 -PORT # 123 -BYTE # 197 -PORT # 123 -BYTE # 198 -PORT # 123 -BYTE # 199 -PORT # 123 -BYTE # 200 -PORT # 123 -BYTE # 201 -PORT # 123 -BYTE # 202 -PORT # 123 -BYTE # 203 -PORT # 123 -BYTE # 204 -PORT # 123 -BYTE # 205 -PORT # 123 -BYTE # 206 -PORT # 123 -BYTE # 207 -PORT # 123 -BYTE # 208 -PORT # 123 -BYTE # 209 -PORT # 123 -BYTE # 210 -PORT # 123 -BYTE # 211 -PORT # 123 -BYTE # 212 -PORT # 123 -BYTE # 213 -PORT # 123 -BYTE # 214 -PORT # 123 -BYTE # 215 -PORT # 123 -BYTE # 216 -PORT # 123 -BYTE # 217 -PORT # 123 -BYTE # 218 -PORT # 123 -BYTE # 219 -PORT # 123 -BYTE # 220 -PORT # 123 -BYTE # 221 -PORT # 123 -BYTE # 222 -PORT # 123 -BYTE # 223 -PORT # 123 -BYTE # 224 -PORT # 123 -BYTE # 225 -PORT # 123 -BYTE # 226 -PORT # 123 -BYTE # 227 -PORT # 123 -BYTE # 228 -PORT # 123 -BYTE # 229 -PORT # 123 -BYTE # 230 -PORT # 123 -BYTE # 231 -PORT # 123 -BYTE # 232 -PORT # 123 -BYTE # 233 -PORT # 123 -BYTE # 234 -PORT # 123 -BYTE # 235 -PORT # 123 -BYTE # 236 -PORT # 123 -BYTE # 237 -PORT # 123 -BYTE # 238 -PORT # 123 -BYTE # 239 -PORT # 123 -BYTE # 240 -PORT # 123 -BYTE # 241 -PORT # 123 -BYTE # 242 -PORT # 123 -BYTE # 243 -PORT # 123 -BYTE # 244 -PORT # 123 -BYTE # 245 -PORT # 123 -BYTE # 246 -PORT # 123 -BYTE # 247 -PORT # 123 -BYTE # 248 -PORT # 123 -BYTE # 249 -PORT # 123 -BYTE # 250 -PORT # 123 -BYTE # 251 -PORT # 123 -BYTE # 252 -PORT # 123 -BYTE # 253 -PORT # 123 -BYTE # 254 -PORT # 123 -BYTE # 255 -PORT # 124 -BYTE # 0 -PORT # 124 -BYTE # 1 -PORT # 124 -BYTE # 2 -PORT # 124 -BYTE # 3 -PORT # 124 -BYTE # 4 -PORT # 124 -BYTE # 5 -PORT # 124 -BYTE # 6 -PORT # 124 -BYTE # 7 -PORT # 124 -BYTE # 8 -PORT # 124 -BYTE # 9 -PORT # 124 -BYTE # 10 -PORT # 124 -BYTE # 11 -PORT # 124 -BYTE # 12 -PORT # 124 -BYTE # 13 -PORT # 124 -BYTE # 14 -PORT # 124 -BYTE # 15 -PORT # 124 -BYTE # 16 -PORT # 124 -BYTE # 17 -PORT # 124 -BYTE # 18 -PORT # 124 -BYTE # 19 -PORT # 124 -BYTE # 20 -PORT # 124 -BYTE # 21 -PORT # 124 -BYTE # 22 -PORT # 124 -BYTE # 23 -PORT # 124 -BYTE # 24 -PORT # 124 -BYTE # 25 -PORT # 124 -BYTE # 26 -PORT # 124 -BYTE # 27 -PORT # 124 -BYTE # 28 -PORT # 124 -BYTE # 29 -PORT # 124 -BYTE # 30 -PORT # 124 -BYTE # 31 -PORT # 124 -BYTE # 32 -PORT # 124 -BYTE # 33 -PORT # 124 -BYTE # 34 -PORT # 124 -BYTE # 35 -PORT # 124 -BYTE # 36 -PORT # 124 -BYTE # 37 -PORT # 124 -BYTE # 38 -PORT # 124 -BYTE # 39 -PORT # 124 -BYTE # 40 -PORT # 124 -BYTE # 41 -PORT # 124 -BYTE # 42 -PORT # 124 -BYTE # 43 -PORT # 124 -BYTE # 44 -PORT # 124 -BYTE # 45 -PORT # 124 -BYTE # 46 -PORT # 124 -BYTE # 47 -PORT # 124 -BYTE # 48 -PORT # 124 -BYTE # 49 -PORT # 124 -BYTE # 50 -PORT # 124 -BYTE # 51 -PORT # 124 -BYTE # 52 -PORT # 124 -BYTE # 53 -PORT # 124 -BYTE # 54 -PORT # 124 -BYTE # 55 -PORT # 124 -BYTE # 56 -PORT # 124 -BYTE # 57 -PORT # 124 -BYTE # 58 -PORT # 124 -BYTE # 59 -PORT # 124 -BYTE # 60 -PORT # 124 -BYTE # 61 -PORT # 124 -BYTE # 62 -PORT # 124 -BYTE # 63 -PORT # 124 -BYTE # 64 -PORT # 124 -BYTE # 65 -PORT # 124 -BYTE # 66 -PORT # 124 -BYTE # 67 -PORT # 124 -BYTE # 68 -PORT # 124 -BYTE # 69 -PORT # 124 -BYTE # 70 -PORT # 124 -BYTE # 71 -PORT # 124 -BYTE # 72 -PORT # 124 -BYTE # 73 -PORT # 124 -BYTE # 74 -PORT # 124 -BYTE # 75 -PORT # 124 -BYTE # 76 -PORT # 124 -BYTE # 77 -PORT # 124 -BYTE # 78 -PORT # 124 -BYTE # 79 -PORT # 124 -BYTE # 80 -PORT # 124 -BYTE # 81 -PORT # 124 -BYTE # 82 -PORT # 124 -BYTE # 83 -PORT # 124 -BYTE # 84 -PORT # 124 -BYTE # 85 -PORT # 124 -BYTE # 86 -PORT # 124 -BYTE # 87 -PORT # 124 -BYTE # 88 -PORT # 124 -BYTE # 89 -PORT # 124 -BYTE # 90 -PORT # 124 -BYTE # 91 -PORT # 124 -BYTE # 92 -PORT # 124 -BYTE # 93 -PORT # 124 -BYTE # 94 -PORT # 124 -BYTE # 95 -PORT # 124 -BYTE # 96 -PORT # 124 -BYTE # 97 -PORT # 124 -BYTE # 98 -PORT # 124 -BYTE # 99 -PORT # 124 -BYTE # 100 -PORT # 124 -BYTE # 101 -PORT # 124 -BYTE # 102 -PORT # 124 -BYTE # 103 -PORT # 124 -BYTE # 104 -PORT # 124 -BYTE # 105 -PORT # 124 -BYTE # 106 -PORT # 124 -BYTE # 107 -PORT # 124 -BYTE # 108 -PORT # 124 -BYTE # 109 -PORT # 124 -BYTE # 110 -PORT # 124 -BYTE # 111 -PORT # 124 -BYTE # 112 -PORT # 124 -BYTE # 113 -PORT # 124 -BYTE # 114 -PORT # 124 -BYTE # 115 -PORT # 124 -BYTE # 116 -PORT # 124 -BYTE # 117 -PORT # 124 -BYTE # 118 -PORT # 124 -BYTE # 119 -PORT # 124 -BYTE # 120 -PORT # 124 -BYTE # 121 -PORT # 124 -BYTE # 122 -PORT # 124 -BYTE # 123 -PORT # 124 -BYTE # 124 -PORT # 124 -BYTE # 125 -PORT # 124 -BYTE # 126 -PORT # 124 -BYTE # 127 -PORT # 124 -BYTE # 128 -PORT # 124 -BYTE # 129 -PORT # 124 -BYTE # 130 -PORT # 124 -BYTE # 131 -PORT # 124 -BYTE # 132 -PORT # 124 -BYTE # 133 -PORT # 124 -BYTE # 134 -PORT # 124 -BYTE # 135 -PORT # 124 -BYTE # 136 -PORT # 124 -BYTE # 137 -PORT # 124 -BYTE # 138 -PORT # 124 -BYTE # 139 -PORT # 124 -BYTE # 140 -PORT # 124 -BYTE # 141 -PORT # 124 -BYTE # 142 -PORT # 124 -BYTE # 143 -PORT # 124 -BYTE # 144 -PORT # 124 -BYTE # 145 -PORT # 124 -BYTE # 146 -PORT # 124 -BYTE # 147 -PORT # 124 -BYTE # 148 -PORT # 124 -BYTE # 149 -PORT # 124 -BYTE # 150 -PORT # 124 -BYTE # 151 -PORT # 124 -BYTE # 152 -PORT # 124 -BYTE # 153 -PORT # 124 -BYTE # 154 -PORT # 124 -BYTE # 155 -PORT # 124 -BYTE # 156 -PORT # 124 -BYTE # 157 -PORT # 124 -BYTE # 158 -PORT # 124 -BYTE # 159 -PORT # 124 -BYTE # 160 -PORT # 124 -BYTE # 161 -PORT # 124 -BYTE # 162 -PORT # 124 -BYTE # 163 -PORT # 124 -BYTE # 164 -PORT # 124 -BYTE # 165 -PORT # 124 -BYTE # 166 -PORT # 124 -BYTE # 167 -PORT # 124 -BYTE # 168 -PORT # 124 -BYTE # 169 -PORT # 124 -BYTE # 170 -PORT # 124 -BYTE # 171 -PORT # 124 -BYTE # 172 -PORT # 124 -BYTE # 173 -PORT # 124 -BYTE # 174 -PORT # 124 -BYTE # 175 -PORT # 124 -BYTE # 176 -PORT # 124 -BYTE # 177 -PORT # 124 -BYTE # 178 -PORT # 124 -BYTE # 179 -PORT # 124 -BYTE # 180 -PORT # 124 -BYTE # 181 -PORT # 124 -BYTE # 182 -PORT # 124 -BYTE # 183 -PORT # 124 -BYTE # 184 -PORT # 124 -BYTE # 185 -PORT # 124 -BYTE # 186 -PORT # 124 -BYTE # 187 -PORT # 124 -BYTE # 188 -PORT # 124 -BYTE # 189 -PORT # 124 -BYTE # 190 -PORT # 124 -BYTE # 191 -PORT # 124 -BYTE # 192 -PORT # 124 -BYTE # 193 -PORT # 124 -BYTE # 194 -PORT # 124 -BYTE # 195 -PORT # 124 -BYTE # 196 -PORT # 124 -BYTE # 197 -PORT # 124 -BYTE # 198 -PORT # 124 -BYTE # 199 -PORT # 124 -BYTE # 200 -PORT # 124 -BYTE # 201 -PORT # 124 -BYTE # 202 -PORT # 124 -BYTE # 203 -PORT # 124 -BYTE # 204 -PORT # 124 -BYTE # 205 -PORT # 124 -BYTE # 206 -PORT # 124 -BYTE # 207 -PORT # 124 -BYTE # 208 -PORT # 124 -BYTE # 209 -PORT # 124 -BYTE # 210 -PORT # 124 -BYTE # 211 -PORT # 124 -BYTE # 212 -PORT # 124 -BYTE # 213 -PORT # 124 -BYTE # 214 -PORT # 124 -BYTE # 215 -PORT # 124 -BYTE # 216 -PORT # 124 -BYTE # 217 -PORT # 124 -BYTE # 218 -PORT # 124 -BYTE # 219 -PORT # 124 -BYTE # 220 -PORT # 124 -BYTE # 221 -PORT # 124 -BYTE # 222 -PORT # 124 -BYTE # 223 -PORT # 124 -BYTE # 224 -PORT # 124 -BYTE # 225 -PORT # 124 -BYTE # 226 -PORT # 124 -BYTE # 227 -PORT # 124 -BYTE # 228 -PORT # 124 -BYTE # 229 -PORT # 124 -BYTE # 230 -PORT # 124 -BYTE # 231 -PORT # 124 -BYTE # 232 -PORT # 124 -BYTE # 233 -PORT # 124 -BYTE # 234 -PORT # 124 -BYTE # 235 -PORT # 124 -BYTE # 236 -PORT # 124 -BYTE # 237 -PORT # 124 -BYTE # 238 -PORT # 124 -BYTE # 239 -PORT # 124 -BYTE # 240 -PORT # 124 -BYTE # 241 -PORT # 124 -BYTE # 242 -PORT # 124 -BYTE # 243 -PORT # 124 -BYTE # 244 -PORT # 124 -BYTE # 245 -PORT # 124 -BYTE # 246 -PORT # 124 -BYTE # 247 -PORT # 124 -BYTE # 248 -PORT # 124 -BYTE # 249 -PORT # 124 -BYTE # 250 -PORT # 124 -BYTE # 251 -PORT # 124 -BYTE # 252 -PORT # 124 -BYTE # 253 -PORT # 124 -BYTE # 254 -PORT # 124 -BYTE # 255 -PORT # 125 -BYTE # 0 -PORT # 125 -BYTE # 1 -PORT # 125 -BYTE # 2 -PORT # 125 -BYTE # 3 -PORT # 125 -BYTE # 4 -PORT # 125 -BYTE # 5 -PORT # 125 -BYTE # 6 -PORT # 125 -BYTE # 7 -PORT # 125 -BYTE # 8 -PORT # 125 -BYTE # 9 -PORT # 125 -BYTE # 10 -PORT # 125 -BYTE # 11 -PORT # 125 -BYTE # 12 -PORT # 125 -BYTE # 13 -PORT # 125 -BYTE # 14 -PORT # 125 -BYTE # 15 -PORT # 125 -BYTE # 16 -PORT # 125 -BYTE # 17 -PORT # 125 -BYTE # 18 -PORT # 125 -BYTE # 19 -PORT # 125 -BYTE # 20 -PORT # 125 -BYTE # 21 -PORT # 125 -BYTE # 22 -PORT # 125 -BYTE # 23 -PORT # 125 -BYTE # 24 -PORT # 125 -BYTE # 25 -PORT # 125 -BYTE # 26 -PORT # 125 -BYTE # 27 -PORT # 125 -BYTE # 28 -PORT # 125 -BYTE # 29 -PORT # 125 -BYTE # 30 -PORT # 125 -BYTE # 31 -PORT # 125 -BYTE # 32 -PORT # 125 -BYTE # 33 -PORT # 125 -BYTE # 34 -PORT # 125 -BYTE # 35 -PORT # 125 -BYTE # 36 -PORT # 125 -BYTE # 37 -PORT # 125 -BYTE # 38 -PORT # 125 -BYTE # 39 -PORT # 125 -BYTE # 40 -PORT # 125 -BYTE # 41 -PORT # 125 -BYTE # 42 -PORT # 125 -BYTE # 43 -PORT # 125 -BYTE # 44 -PORT # 125 -BYTE # 45 -PORT # 125 -BYTE # 46 -PORT # 125 -BYTE # 47 -PORT # 125 -BYTE # 48 -PORT # 125 -BYTE # 49 -PORT # 125 -BYTE # 50 -PORT # 125 -BYTE # 51 -PORT # 125 -BYTE # 52 -PORT # 125 -BYTE # 53 -PORT # 125 -BYTE # 54 -PORT # 125 -BYTE # 55 -PORT # 125 -BYTE # 56 -PORT # 125 -BYTE # 57 -PORT # 125 -BYTE # 58 -PORT # 125 -BYTE # 59 -PORT # 125 -BYTE # 60 -PORT # 125 -BYTE # 61 -PORT # 125 -BYTE # 62 -PORT # 125 -BYTE # 63 -PORT # 125 -BYTE # 64 -PORT # 125 -BYTE # 65 -PORT # 125 -BYTE # 66 -PORT # 125 -BYTE # 67 -PORT # 125 -BYTE # 68 -PORT # 125 -BYTE # 69 -PORT # 125 -BYTE # 70 -PORT # 125 -BYTE # 71 -PORT # 125 -BYTE # 72 -PORT # 125 -BYTE # 73 -PORT # 125 -BYTE # 74 -PORT # 125 -BYTE # 75 -PORT # 125 -BYTE # 76 -PORT # 125 -BYTE # 77 -PORT # 125 -BYTE # 78 -PORT # 125 -BYTE # 79 -PORT # 125 -BYTE # 80 -PORT # 125 -BYTE # 81 -PORT # 125 -BYTE # 82 -PORT # 125 -BYTE # 83 -PORT # 125 -BYTE # 84 -PORT # 125 -BYTE # 85 -PORT # 125 -BYTE # 86 -PORT # 125 -BYTE # 87 -PORT # 125 -BYTE # 88 -PORT # 125 -BYTE # 89 -PORT # 125 -BYTE # 90 -PORT # 125 -BYTE # 91 -PORT # 125 -BYTE # 92 -PORT # 125 -BYTE # 93 -PORT # 125 -BYTE # 94 -PORT # 125 -BYTE # 95 -PORT # 125 -BYTE # 96 -PORT # 125 -BYTE # 97 -PORT # 125 -BYTE # 98 -PORT # 125 -BYTE # 99 -PORT # 125 -BYTE # 100 -PORT # 125 -BYTE # 101 -PORT # 125 -BYTE # 102 -PORT # 125 -BYTE # 103 -PORT # 125 -BYTE # 104 -PORT # 125 -BYTE # 105 -PORT # 125 -BYTE # 106 -PORT # 125 -BYTE # 107 -PORT # 125 -BYTE # 108 -PORT # 125 -BYTE # 109 -PORT # 125 -BYTE # 110 -PORT # 125 -BYTE # 111 -PORT # 125 -BYTE # 112 -PORT # 125 -BYTE # 113 -PORT # 125 -BYTE # 114 -PORT # 125 -BYTE # 115 -PORT # 125 -BYTE # 116 -PORT # 125 -BYTE # 117 -PORT # 125 -BYTE # 118 -PORT # 125 -BYTE # 119 -PORT # 125 -BYTE # 120 -PORT # 125 -BYTE # 121 -PORT # 125 -BYTE # 122 -PORT # 125 -BYTE # 123 -PORT # 125 -BYTE # 124 -PORT # 125 -BYTE # 125 -PORT # 125 -BYTE # 126 -PORT # 125 -BYTE # 127 -PORT # 125 -BYTE # 128 -PORT # 125 -BYTE # 129 -PORT # 125 -BYTE # 130 -PORT # 125 -BYTE # 131 -PORT # 125 -BYTE # 132 -PORT # 125 -BYTE # 133 -PORT # 125 -BYTE # 134 -PORT # 125 -BYTE # 135 -PORT # 125 -BYTE # 136 -PORT # 125 -BYTE # 137 -PORT # 125 -BYTE # 138 -PORT # 125 -BYTE # 139 -PORT # 125 -BYTE # 140 -PORT # 125 -BYTE # 141 -PORT # 125 -BYTE # 142 -PORT # 125 -BYTE # 143 -PORT # 125 -BYTE # 144 -PORT # 125 -BYTE # 145 -PORT # 125 -BYTE # 146 -PORT # 125 -BYTE # 147 -PORT # 125 -BYTE # 148 -PORT # 125 -BYTE # 149 -PORT # 125 -BYTE # 150 -PORT # 125 -BYTE # 151 -PORT # 125 -BYTE # 152 -PORT # 125 -BYTE # 153 -PORT # 125 -BYTE # 154 -PORT # 125 -BYTE # 155 -PORT # 125 -BYTE # 156 -PORT # 125 -BYTE # 157 -PORT # 125 -BYTE # 158 -PORT # 125 -BYTE # 159 -PORT # 125 -BYTE # 160 -PORT # 125 -BYTE # 161 -PORT # 125 -BYTE # 162 -PORT # 125 -BYTE # 163 -PORT # 125 -BYTE # 164 -PORT # 125 -BYTE # 165 -PORT # 125 -BYTE # 166 -PORT # 125 -BYTE # 167 -PORT # 125 -BYTE # 168 -PORT # 125 -BYTE # 169 -PORT # 125 -BYTE # 170 -PORT # 125 -BYTE # 171 -PORT # 125 -BYTE # 172 -PORT # 125 -BYTE # 173 -PORT # 125 -BYTE # 174 -PORT # 125 -BYTE # 175 -PORT # 125 -BYTE # 176 -PORT # 125 -BYTE # 177 -PORT # 125 -BYTE # 178 -PORT # 125 -BYTE # 179 -PORT # 125 -BYTE # 180 -PORT # 125 -BYTE # 181 -PORT # 125 -BYTE # 182 -PORT # 125 -BYTE # 183 -PORT # 125 -BYTE # 184 -PORT # 125 -BYTE # 185 -PORT # 125 -BYTE # 186 -PORT # 125 -BYTE # 187 -PORT # 125 -BYTE # 188 -PORT # 125 -BYTE # 189 -PORT # 125 -BYTE # 190 -PORT # 125 -BYTE # 191 -PORT # 125 -BYTE # 192 -PORT # 125 -BYTE # 193 -PORT # 125 -BYTE # 194 -PORT # 125 -BYTE # 195 -PORT # 125 -BYTE # 196 -PORT # 125 -BYTE # 197 -PORT # 125 -BYTE # 198 -PORT # 125 -BYTE # 199 -PORT # 125 -BYTE # 200 -PORT # 125 -BYTE # 201 -PORT # 125 -BYTE # 202 -PORT # 125 -BYTE # 203 -PORT # 125 -BYTE # 204 -PORT # 125 -BYTE # 205 -PORT # 125 -BYTE # 206 -PORT # 125 -BYTE # 207 -PORT # 125 -BYTE # 208 -PORT # 125 -BYTE # 209 -PORT # 125 -BYTE # 210 -PORT # 125 -BYTE # 211 -PORT # 125 -BYTE # 212 -PORT # 125 -BYTE # 213 -PORT # 125 -BYTE # 214 -PORT # 125 -BYTE # 215 -PORT # 125 -BYTE # 216 -PORT # 125 -BYTE # 217 -PORT # 125 -BYTE # 218 -PORT # 125 -BYTE # 219 -PORT # 125 -BYTE # 220 -PORT # 125 -BYTE # 221 -PORT # 125 -BYTE # 222 -PORT # 125 -BYTE # 223 -PORT # 125 -BYTE # 224 -PORT # 125 -BYTE # 225 -PORT # 125 -BYTE # 226 -PORT # 125 -BYTE # 227 -PORT # 125 -BYTE # 228 -PORT # 125 -BYTE # 229 -PORT # 125 -BYTE # 230 -PORT # 125 -BYTE # 231 -PORT # 125 -BYTE # 232 -PORT # 125 -BYTE # 233 -PORT # 125 -BYTE # 234 -PORT # 125 -BYTE # 235 -PORT # 125 -BYTE # 236 -PORT # 125 -BYTE # 237 -PORT # 125 -BYTE # 238 -PORT # 125 -BYTE # 239 -PORT # 125 -BYTE # 240 -PORT # 125 -BYTE # 241 -PORT # 125 -BYTE # 242 -PORT # 125 -BYTE # 243 -PORT # 125 -BYTE # 244 -PORT # 125 -BYTE # 245 -PORT # 125 -BYTE # 246 -PORT # 125 -BYTE # 247 -PORT # 125 -BYTE # 248 -PORT # 125 -BYTE # 249 -PORT # 125 -BYTE # 250 -PORT # 125 -BYTE # 251 -PORT # 125 -BYTE # 252 -PORT # 125 -BYTE # 253 -PORT # 125 -BYTE # 254 -PORT # 125 -BYTE # 255 -PORT # 126 -BYTE # 0 -PORT # 126 -BYTE # 1 -PORT # 126 -BYTE # 2 -PORT # 126 -BYTE # 3 -PORT # 126 -BYTE # 4 -PORT # 126 -BYTE # 5 -PORT # 126 -BYTE # 6 -PORT # 126 -BYTE # 7 -PORT # 126 -BYTE # 8 -PORT # 126 -BYTE # 9 -PORT # 126 -BYTE # 10 -PORT # 126 -BYTE # 11 -PORT # 126 -BYTE # 12 -PORT # 126 -BYTE # 13 -PORT # 126 -BYTE # 14 -PORT # 126 -BYTE # 15 -PORT # 126 -BYTE # 16 -PORT # 126 -BYTE # 17 -PORT # 126 -BYTE # 18 -PORT # 126 -BYTE # 19 -PORT # 126 -BYTE # 20 -PORT # 126 -BYTE # 21 -PORT # 126 -BYTE # 22 -PORT # 126 -BYTE # 23 -PORT # 126 -BYTE # 24 -PORT # 126 -BYTE # 25 -PORT # 126 -BYTE # 26 -PORT # 126 -BYTE # 27 -PORT # 126 -BYTE # 28 -PORT # 126 -BYTE # 29 -PORT # 126 -BYTE # 30 -PORT # 126 -BYTE # 31 -PORT # 126 -BYTE # 32 -PORT # 126 -BYTE # 33 -PORT # 126 -BYTE # 34 -PORT # 126 -BYTE # 35 -PORT # 126 -BYTE # 36 -PORT # 126 -BYTE # 37 -PORT # 126 -BYTE # 38 -PORT # 126 -BYTE # 39 -PORT # 126 -BYTE # 40 -PORT # 126 -BYTE # 41 -PORT # 126 -BYTE # 42 -PORT # 126 -BYTE # 43 -PORT # 126 -BYTE # 44 -PORT # 126 -BYTE # 45 -PORT # 126 -BYTE # 46 -PORT # 126 -BYTE # 47 -PORT # 126 -BYTE # 48 -PORT # 126 -BYTE # 49 -PORT # 126 -BYTE # 50 -PORT # 126 -BYTE # 51 -PORT # 126 -BYTE # 52 -PORT # 126 -BYTE # 53 -PORT # 126 -BYTE # 54 -PORT # 126 -BYTE # 55 -PORT # 126 -BYTE # 56 -PORT # 126 -BYTE # 57 -PORT # 126 -BYTE # 58 -PORT # 126 -BYTE # 59 -PORT # 126 -BYTE # 60 -PORT # 126 -BYTE # 61 -PORT # 126 -BYTE # 62 -PORT # 126 -BYTE # 63 -PORT # 126 -BYTE # 64 -PORT # 126 -BYTE # 65 -PORT # 126 -BYTE # 66 -PORT # 126 -BYTE # 67 -PORT # 126 -BYTE # 68 -PORT # 126 -BYTE # 69 -PORT # 126 -BYTE # 70 -PORT # 126 -BYTE # 71 -PORT # 126 -BYTE # 72 -PORT # 126 -BYTE # 73 -PORT # 126 -BYTE # 74 -PORT # 126 -BYTE # 75 -PORT # 126 -BYTE # 76 -PORT # 126 -BYTE # 77 -PORT # 126 -BYTE # 78 -PORT # 126 -BYTE # 79 -PORT # 126 -BYTE # 80 -PORT # 126 -BYTE # 81 -PORT # 126 -BYTE # 82 -PORT # 126 -BYTE # 83 -PORT # 126 -BYTE # 84 -PORT # 126 -BYTE # 85 -PORT # 126 -BYTE # 86 -PORT # 126 -BYTE # 87 -PORT # 126 -BYTE # 88 -PORT # 126 -BYTE # 89 -PORT # 126 -BYTE # 90 -PORT # 126 -BYTE # 91 -PORT # 126 -BYTE # 92 -PORT # 126 -BYTE # 93 -PORT # 126 -BYTE # 94 -PORT # 126 -BYTE # 95 -PORT # 126 -BYTE # 96 -PORT # 126 -BYTE # 97 -PORT # 126 -BYTE # 98 -PORT # 126 -BYTE # 99 -PORT # 126 -BYTE # 100 -PORT # 126 -BYTE # 101 -PORT # 126 -BYTE # 102 -PORT # 126 -BYTE # 103 -PORT # 126 -BYTE # 104 -PORT # 126 -BYTE # 105 -PORT # 126 -BYTE # 106 -PORT # 126 -BYTE # 107 -PORT # 126 -BYTE # 108 -PORT # 126 -BYTE # 109 -PORT # 126 -BYTE # 110 -PORT # 126 -BYTE # 111 -PORT # 126 -BYTE # 112 -PORT # 126 -BYTE # 113 -PORT # 126 -BYTE # 114 -PORT # 126 -BYTE # 115 -PORT # 126 -BYTE # 116 -PORT # 126 -BYTE # 117 -PORT # 126 -BYTE # 118 -PORT # 126 -BYTE # 119 -PORT # 126 -BYTE # 120 -PORT # 126 -BYTE # 121 -PORT # 126 -BYTE # 122 -PORT # 126 -BYTE # 123 -PORT # 126 -BYTE # 124 -PORT # 126 -BYTE # 125 -PORT # 126 -BYTE # 126 -PORT # 126 -BYTE # 127 -PORT # 126 -BYTE # 128 -PORT # 126 -BYTE # 129 -PORT # 126 -BYTE # 130 -PORT # 126 -BYTE # 131 -PORT # 126 -BYTE # 132 -PORT # 126 -BYTE # 133 -PORT # 126 -BYTE # 134 -PORT # 126 -BYTE # 135 -PORT # 126 -BYTE # 136 -PORT # 126 -BYTE # 137 -PORT # 126 -BYTE # 138 -PORT # 126 -BYTE # 139 -PORT # 126 -BYTE # 140 -PORT # 126 -BYTE # 141 -PORT # 126 -BYTE # 142 -PORT # 126 -BYTE # 143 -PORT # 126 -BYTE # 144 -PORT # 126 -BYTE # 145 -PORT # 126 -BYTE # 146 -PORT # 126 -BYTE # 147 -PORT # 126 -BYTE # 148 -PORT # 126 -BYTE # 149 -PORT # 126 -BYTE # 150 -PORT # 126 -BYTE # 151 -PORT # 126 -BYTE # 152 -PORT # 126 -BYTE # 153 -PORT # 126 -BYTE # 154 -PORT # 126 -BYTE # 155 -PORT # 126 -BYTE # 156 -PORT # 126 -BYTE # 157 -PORT # 126 -BYTE # 158 -PORT # 126 -BYTE # 159 -PORT # 126 -BYTE # 160 -PORT # 126 -BYTE # 161 -PORT # 126 -BYTE # 162 -PORT # 126 -BYTE # 163 -PORT # 126 -BYTE # 164 -PORT # 126 -BYTE # 165 -PORT # 126 -BYTE # 166 -PORT # 126 -BYTE # 167 -PORT # 126 -BYTE # 168 -PORT # 126 -BYTE # 169 -PORT # 126 -BYTE # 170 -PORT # 126 -BYTE # 171 -PORT # 126 -BYTE # 172 -PORT # 126 -BYTE # 173 -PORT # 126 -BYTE # 174 -PORT # 126 -BYTE # 175 -PORT # 126 -BYTE # 176 -PORT # 126 -BYTE # 177 -PORT # 126 -BYTE # 178 -PORT # 126 -BYTE # 179 -PORT # 126 -BYTE # 180 -PORT # 126 -BYTE # 181 -PORT # 126 -BYTE # 182 -PORT # 126 -BYTE # 183 -PORT # 126 -BYTE # 184 -PORT # 126 -BYTE # 185 -PORT # 126 -BYTE # 186 -PORT # 126 -BYTE # 187 -PORT # 126 -BYTE # 188 -PORT # 126 -BYTE # 189 -PORT # 126 -BYTE # 190 -PORT # 126 -BYTE # 191 -PORT # 126 -BYTE # 192 -PORT # 126 -BYTE # 193 -PORT # 126 -BYTE # 194 -PORT # 126 -BYTE # 195 -PORT # 126 -BYTE # 196 -PORT # 126 -BYTE # 197 -PORT # 126 -BYTE # 198 -PORT # 126 -BYTE # 199 -PORT # 126 -BYTE # 200 -PORT # 126 -BYTE # 201 -PORT # 126 -BYTE # 202 -PORT # 126 -BYTE # 203 -PORT # 126 -BYTE # 204 -PORT # 126 -BYTE # 205 -PORT # 126 -BYTE # 206 -PORT # 126 -BYTE # 207 -PORT # 126 -BYTE # 208 -PORT # 126 -BYTE # 209 -PORT # 126 -BYTE # 210 -PORT # 126 -BYTE # 211 -PORT # 126 -BYTE # 212 -PORT # 126 -BYTE # 213 -PORT # 126 -BYTE # 214 -PORT # 126 -BYTE # 215 -PORT # 126 -BYTE # 216 -PORT # 126 -BYTE # 217 -PORT # 126 -BYTE # 218 -PORT # 126 -BYTE # 219 -PORT # 126 -BYTE # 220 -PORT # 126 -BYTE # 221 -PORT # 126 -BYTE # 222 -PORT # 126 -BYTE # 223 -PORT # 126 -BYTE # 224 -PORT # 126 -BYTE # 225 -PORT # 126 -BYTE # 226 -PORT # 126 -BYTE # 227 -PORT # 126 -BYTE # 228 -PORT # 126 -BYTE # 229 -PORT # 126 -BYTE # 230 -PORT # 126 -BYTE # 231 -PORT # 126 -BYTE # 232 -PORT # 126 -BYTE # 233 -PORT # 126 -BYTE # 234 -PORT # 126 -BYTE # 235 -PORT # 126 -BYTE # 236 -PORT # 126 -BYTE # 237 -PORT # 126 -BYTE # 238 -PORT # 126 -BYTE # 239 -PORT # 126 -BYTE # 240 -PORT # 126 -BYTE # 241 -PORT # 126 -BYTE # 242 -PORT # 126 -BYTE # 243 -PORT # 126 -BYTE # 244 -PORT # 126 -BYTE # 245 -PORT # 126 -BYTE # 246 -PORT # 126 -BYTE # 247 -PORT # 126 -BYTE # 248 -PORT # 126 -BYTE # 249 -PORT # 126 -BYTE # 250 -PORT # 126 -BYTE # 251 -PORT # 126 -BYTE # 252 -PORT # 126 -BYTE # 253 -PORT # 126 -BYTE # 254 -PORT # 126 -BYTE # 255 -PORT # 127 -BYTE # 0 -PORT # 127 -BYTE # 1 -PORT # 127 -BYTE # 2 -PORT # 127 -BYTE # 3 -PORT # 127 -BYTE # 4 -PORT # 127 -BYTE # 5 -PORT # 127 -BYTE # 6 -PORT # 127 -BYTE # 7 -PORT # 127 -BYTE # 8 -PORT # 127 -BYTE # 9 -PORT # 127 -BYTE # 10 -PORT # 127 -BYTE # 11 -PORT # 127 -BYTE # 12 -PORT # 127 -BYTE # 13 -PORT # 127 -BYTE # 14 -PORT # 127 -BYTE # 15 -PORT # 127 -BYTE # 16 -PORT # 127 -BYTE # 17 -PORT # 127 -BYTE # 18 -PORT # 127 -BYTE # 19 -PORT # 127 -BYTE # 20 -PORT # 127 -BYTE # 21 -PORT # 127 -BYTE # 22 -PORT # 127 -BYTE # 23 -PORT # 127 -BYTE # 24 -PORT # 127 -BYTE # 25 -PORT # 127 -BYTE # 26 -PORT # 127 -BYTE # 27 -PORT # 127 -BYTE # 28 -PORT # 127 -BYTE # 29 -PORT # 127 -BYTE # 30 -PORT # 127 -BYTE # 31 -PORT # 127 -BYTE # 32 -PORT # 127 -BYTE # 33 -PORT # 127 -BYTE # 34 -PORT # 127 -BYTE # 35 -PORT # 127 -BYTE # 36 -PORT # 127 -BYTE # 37 -PORT # 127 -BYTE # 38 -PORT # 127 -BYTE # 39 -PORT # 127 -BYTE # 40 -PORT # 127 -BYTE # 41 -PORT # 127 -BYTE # 42 -PORT # 127 -BYTE # 43 -PORT # 127 -BYTE # 44 -PORT # 127 -BYTE # 45 -PORT # 127 -BYTE # 46 -PORT # 127 -BYTE # 47 -PORT # 127 -BYTE # 48 -PORT # 127 -BYTE # 49 -PORT # 127 -BYTE # 50 -PORT # 127 -BYTE # 51 -PORT # 127 -BYTE # 52 -PORT # 127 -BYTE # 53 -PORT # 127 -BYTE # 54 -PORT # 127 -BYTE # 55 -PORT # 127 -BYTE # 56 -PORT # 127 -BYTE # 57 -PORT # 127 -BYTE # 58 -PORT # 127 -BYTE # 59 -PORT # 127 -BYTE # 60 -PORT # 127 -BYTE # 61 -PORT # 127 -BYTE # 62 -PORT # 127 -BYTE # 63 -PORT # 127 -BYTE # 64 -PORT # 127 -BYTE # 65 -PORT # 127 -BYTE # 66 -PORT # 127 -BYTE # 67 -PORT # 127 -BYTE # 68 -PORT # 127 -BYTE # 69 -PORT # 127 -BYTE # 70 -PORT # 127 -BYTE # 71 -PORT # 127 -BYTE # 72 -PORT # 127 -BYTE # 73 -PORT # 127 -BYTE # 74 -PORT # 127 -BYTE # 75 -PORT # 127 -BYTE # 76 -PORT # 127 -BYTE # 77 -PORT # 127 -BYTE # 78 -PORT # 127 -BYTE # 79 -PORT # 127 -BYTE # 80 -PORT # 127 -BYTE # 81 -PORT # 127 -BYTE # 82 -PORT # 127 -BYTE # 83 -PORT # 127 -BYTE # 84 -PORT # 127 -BYTE # 85 -PORT # 127 -BYTE # 86 -PORT # 127 -BYTE # 87 -PORT # 127 -BYTE # 88 -PORT # 127 -BYTE # 89 -PORT # 127 -BYTE # 90 -PORT # 127 -BYTE # 91 -PORT # 127 -BYTE # 92 -PORT # 127 -BYTE # 93 -PORT # 127 -BYTE # 94 -PORT # 127 -BYTE # 95 -PORT # 127 -BYTE # 96 -PORT # 127 -BYTE # 97 -PORT # 127 -BYTE # 98 -PORT # 127 -BYTE # 99 -PORT # 127 -BYTE # 100 -PORT # 127 -BYTE # 101 -PORT # 127 -BYTE # 102 -PORT # 127 -BYTE # 103 -PORT # 127 -BYTE # 104 -PORT # 127 -BYTE # 105 -PORT # 127 -BYTE # 106 -PORT # 127 -BYTE # 107 -PORT # 127 -BYTE # 108 -PORT # 127 -BYTE # 109 -PORT # 127 -BYTE # 110 -PORT # 127 -BYTE # 111 -PORT # 127 -BYTE # 112 -PORT # 127 -BYTE # 113 -PORT # 127 -BYTE # 114 -PORT # 127 -BYTE # 115 -PORT # 127 -BYTE # 116 -PORT # 127 -BYTE # 117 -PORT # 127 -BYTE # 118 -PORT # 127 -BYTE # 119 -PORT # 127 -BYTE # 120 -PORT # 127 -BYTE # 121 -PORT # 127 -BYTE # 122 -PORT # 127 -BYTE # 123 -PORT # 127 -BYTE # 124 -PORT # 127 -BYTE # 125 -PORT # 127 -BYTE # 126 -PORT # 127 -BYTE # 127 -PORT # 127 -BYTE # 128 -PORT # 127 -BYTE # 129 -PORT # 127 -BYTE # 130 -PORT # 127 -BYTE # 131 -PORT # 127 -BYTE # 132 -PORT # 127 -BYTE # 133 -PORT # 127 -BYTE # 134 -PORT # 127 -BYTE # 135 -PORT # 127 -BYTE # 136 -PORT # 127 -BYTE # 137 -PORT # 127 -BYTE # 138 -PORT # 127 -BYTE # 139 -PORT # 127 -BYTE # 140 -PORT # 127 -BYTE # 141 -PORT # 127 -BYTE # 142 -PORT # 127 -BYTE # 143 -PORT # 127 -BYTE # 144 -PORT # 127 -BYTE # 145 -PORT # 127 -BYTE # 146 -PORT # 127 -BYTE # 147 -PORT # 127 -BYTE # 148 -PORT # 127 -BYTE # 149 -PORT # 127 -BYTE # 150 -PORT # 127 -BYTE # 151 -PORT # 127 -BYTE # 152 -PORT # 127 -BYTE # 153 -PORT # 127 -BYTE # 154 -PORT # 127 -BYTE # 155 -PORT # 127 -BYTE # 156 -PORT # 127 -BYTE # 157 -PORT # 127 -BYTE # 158 -PORT # 127 -BYTE # 159 -PORT # 127 -BYTE # 160 -PORT # 127 -BYTE # 161 -PORT # 127 -BYTE # 162 -PORT # 127 -BYTE # 163 -PORT # 127 -BYTE # 164 -PORT # 127 -BYTE # 165 -PORT # 127 -BYTE # 166 -PORT # 127 -BYTE # 167 -PORT # 127 -BYTE # 168 -PORT # 127 -BYTE # 169 -PORT # 127 -BYTE # 170 -PORT # 127 -BYTE # 171 -PORT # 127 -BYTE # 172 -PORT # 127 -BYTE # 173 -PORT # 127 -BYTE # 174 -PORT # 127 -BYTE # 175 -PORT # 127 -BYTE # 176 -PORT # 127 -BYTE # 177 -PORT # 127 -BYTE # 178 -PORT # 127 -BYTE # 179 -PORT # 127 -BYTE # 180 -PORT # 127 -BYTE # 181 -PORT # 127 -BYTE # 182 -PORT # 127 -BYTE # 183 -PORT # 127 -BYTE # 184 -PORT # 127 -BYTE # 185 -PORT # 127 -BYTE # 186 -PORT # 127 -BYTE # 187 -PORT # 127 -BYTE # 188 -PORT # 127 -BYTE # 189 -PORT # 127 -BYTE # 190 -PORT # 127 -BYTE # 191 -PORT # 127 -BYTE # 192 -PORT # 127 -BYTE # 193 -PORT # 127 -BYTE # 194 -PORT # 127 -BYTE # 195 -PORT # 127 -BYTE # 196 -PORT # 127 -BYTE # 197 -PORT # 127 -BYTE # 198 -PORT # 127 -BYTE # 199 -PORT # 127 -BYTE # 200 -PORT # 127 -BYTE # 201 -PORT # 127 -BYTE # 202 -PORT # 127 -BYTE # 203 -PORT # 127 -BYTE # 204 -PORT # 127 -BYTE # 205 -PORT # 127 -BYTE # 206 -PORT # 127 -BYTE # 207 -PORT # 127 -BYTE # 208 -PORT # 127 -BYTE # 209 -PORT # 127 -BYTE # 210 -PORT # 127 -BYTE # 211 -PORT # 127 -BYTE # 212 -PORT # 127 -BYTE # 213 -PORT # 127 -BYTE # 214 -PORT # 127 -BYTE # 215 -PORT # 127 -BYTE # 216 -PORT # 127 -BYTE # 217 -PORT # 127 -BYTE # 218 -PORT # 127 -BYTE # 219 -PORT # 127 -BYTE # 220 -PORT # 127 -BYTE # 221 -PORT # 127 -BYTE # 222 -PORT # 127 -BYTE # 223 -PORT # 127 -BYTE # 224 -PORT # 127 -BYTE # 225 -PORT # 127 -BYTE # 226 -PORT # 127 -BYTE # 227 -PORT # 127 -BYTE # 228 -PORT # 127 -BYTE # 229 -PORT # 127 -BYTE # 230 -PORT # 127 -BYTE # 231 -PORT # 127 -BYTE # 232 -PORT # 127 -BYTE # 233 -PORT # 127 -BYTE # 234 -PORT # 127 -BYTE # 235 -PORT # 127 -BYTE # 236 -PORT # 127 -BYTE # 237 -PORT # 127 -BYTE # 238 -PORT # 127 -BYTE # 239 -PORT # 127 -BYTE # 240 -PORT # 127 -BYTE # 241 -PORT # 127 -BYTE # 242 -PORT # 127 -BYTE # 243 -PORT # 127 -BYTE # 244 -PORT # 127 -BYTE # 245 -PORT # 127 -BYTE # 246 -PORT # 127 -BYTE # 247 -PORT # 127 -BYTE # 248 -PORT # 127 -BYTE # 249 -PORT # 127 -BYTE # 250 -PORT # 127 -BYTE # 251 -PORT # 127 -BYTE # 252 -PORT # 127 -BYTE # 253 -PORT # 127 -BYTE # 254 -PORT # 127 -BYTE # 255 -PORT # 128 -BYTE # 0 -PORT # 128 -BYTE # 1 -PORT # 128 -BYTE # 2 -PORT # 128 -BYTE # 3 -PORT # 128 -BYTE # 4 -PORT # 128 -BYTE # 5 -PORT # 128 -BYTE # 6 -PORT # 128 -BYTE # 7 -PORT # 128 -BYTE # 8 -PORT # 128 -BYTE # 9 -PORT # 128 -BYTE # 10 -PORT # 128 -BYTE # 11 -PORT # 128 -BYTE # 12 -PORT # 128 -BYTE # 13 -PORT # 128 -BYTE # 14 -PORT # 128 -BYTE # 15 -PORT # 128 -BYTE # 16 -PORT # 128 -BYTE # 17 -PORT # 128 -BYTE # 18 -PORT # 128 -BYTE # 19 -PORT # 128 -BYTE # 20 -PORT # 128 -BYTE # 21 -PORT # 128 -BYTE # 22 -PORT # 128 -BYTE # 23 -PORT # 128 -BYTE # 24 -PORT # 128 -BYTE # 25 -PORT # 128 -BYTE # 26 -PORT # 128 -BYTE # 27 -PORT # 128 -BYTE # 28 -PORT # 128 -BYTE # 29 -PORT # 128 -BYTE # 30 -PORT # 128 -BYTE # 31 -PORT # 128 -BYTE # 32 -PORT # 128 -BYTE # 33 -PORT # 128 -BYTE # 34 -PORT # 128 -BYTE # 35 -PORT # 128 -BYTE # 36 -PORT # 128 -BYTE # 37 -PORT # 128 -BYTE # 38 -PORT # 128 -BYTE # 39 -PORT # 128 -BYTE # 40 -PORT # 128 -BYTE # 41 -PORT # 128 -BYTE # 42 -PORT # 128 -BYTE # 43 -PORT # 128 -BYTE # 44 -PORT # 128 -BYTE # 45 -PORT # 128 -BYTE # 46 -PORT # 128 -BYTE # 47 -PORT # 128 -BYTE # 48 -PORT # 128 -BYTE # 49 -PORT # 128 -BYTE # 50 -PORT # 128 -BYTE # 51 -PORT # 128 -BYTE # 52 -PORT # 128 -BYTE # 53 -PORT # 128 -BYTE # 54 -PORT # 128 -BYTE # 55 -PORT # 128 -BYTE # 56 -PORT # 128 -BYTE # 57 -PORT # 128 -BYTE # 58 -PORT # 128 -BYTE # 59 -PORT # 128 -BYTE # 60 -PORT # 128 -BYTE # 61 -PORT # 128 -BYTE # 62 -PORT # 128 -BYTE # 63 -PORT # 128 -BYTE # 64 -PORT # 128 -BYTE # 65 -PORT # 128 -BYTE # 66 -PORT # 128 -BYTE # 67 -PORT # 128 -BYTE # 68 -PORT # 128 -BYTE # 69 -PORT # 128 -BYTE # 70 -PORT # 128 -BYTE # 71 -PORT # 128 -BYTE # 72 -PORT # 128 -BYTE # 73 -PORT # 128 -BYTE # 74 -PORT # 128 -BYTE # 75 -PORT # 128 -BYTE # 76 -PORT # 128 -BYTE # 77 -PORT # 128 -BYTE # 78 -PORT # 128 -BYTE # 79 -PORT # 128 -BYTE # 80 -PORT # 128 -BYTE # 81 -PORT # 128 -BYTE # 82 -PORT # 128 -BYTE # 83 -PORT # 128 -BYTE # 84 -PORT # 128 -BYTE # 85 -PORT # 128 -BYTE # 86 -PORT # 128 -BYTE # 87 -PORT # 128 -BYTE # 88 -PORT # 128 -BYTE # 89 -PORT # 128 -BYTE # 90 -PORT # 128 -BYTE # 91 -PORT # 128 -BYTE # 92 -PORT # 128 -BYTE # 93 -PORT # 128 -BYTE # 94 -PORT # 128 -BYTE # 95 -PORT # 128 -BYTE # 96 -PORT # 128 -BYTE # 97 -PORT # 128 -BYTE # 98 -PORT # 128 -BYTE # 99 -PORT # 128 -BYTE # 100 -PORT # 128 -BYTE # 101 -PORT # 128 -BYTE # 102 -PORT # 128 -BYTE # 103 -PORT # 128 -BYTE # 104 -PORT # 128 -BYTE # 105 -PORT # 128 -BYTE # 106 -PORT # 128 -BYTE # 107 -PORT # 128 -BYTE # 108 -PORT # 128 -BYTE # 109 -PORT # 128 -BYTE # 110 -PORT # 128 -BYTE # 111 -PORT # 128 -BYTE # 112 -PORT # 128 -BYTE # 113 -PORT # 128 -BYTE # 114 -PORT # 128 -BYTE # 115 -PORT # 128 -BYTE # 116 -PORT # 128 -BYTE # 117 -PORT # 128 -BYTE # 118 -PORT # 128 -BYTE # 119 -PORT # 128 -BYTE # 120 -PORT # 128 -BYTE # 121 -PORT # 128 -BYTE # 122 -PORT # 128 -BYTE # 123 -PORT # 128 -BYTE # 124 -PORT # 128 -BYTE # 125 -PORT # 128 -BYTE # 126 -PORT # 128 -BYTE # 127 -PORT # 128 -BYTE # 128 -PORT # 128 -BYTE # 129 -PORT # 128 -BYTE # 130 -PORT # 128 -BYTE # 131 -PORT # 128 -BYTE # 132 -PORT # 128 -BYTE # 133 -PORT # 128 -BYTE # 134 -PORT # 128 -BYTE # 135 -PORT # 128 -BYTE # 136 -PORT # 128 -BYTE # 137 -PORT # 128 -BYTE # 138 -PORT # 128 -BYTE # 139 -PORT # 128 -BYTE # 140 -PORT # 128 -BYTE # 141 -PORT # 128 -BYTE # 142 -PORT # 128 -BYTE # 143 -PORT # 128 -BYTE # 144 -PORT # 128 -BYTE # 145 -PORT # 128 -BYTE # 146 -PORT # 128 -BYTE # 147 -PORT # 128 -BYTE # 148 -PORT # 128 -BYTE # 149 -PORT # 128 -BYTE # 150 -PORT # 128 -BYTE # 151 -PORT # 128 -BYTE # 152 -PORT # 128 -BYTE # 153 -PORT # 128 -BYTE # 154 -PORT # 128 -BYTE # 155 -PORT # 128 -BYTE # 156 -PORT # 128 -BYTE # 157 -PORT # 128 -BYTE # 158 -PORT # 128 -BYTE # 159 -PORT # 128 -BYTE # 160 -PORT # 128 -BYTE # 161 -PORT # 128 -BYTE # 162 -PORT # 128 -BYTE # 163 -PORT # 128 -BYTE # 164 -PORT # 128 -BYTE # 165 -PORT # 128 -BYTE # 166 -PORT # 128 -BYTE # 167 -PORT # 128 -BYTE # 168 -PORT # 128 -BYTE # 169 -PORT # 128 -BYTE # 170 -PORT # 128 -BYTE # 171 -PORT # 128 -BYTE # 172 -PORT # 128 -BYTE # 173 -PORT # 128 -BYTE # 174 -PORT # 128 -BYTE # 175 -PORT # 128 -BYTE # 176 -PORT # 128 -BYTE # 177 -PORT # 128 -BYTE # 178 -PORT # 128 -BYTE # 179 -PORT # 128 -BYTE # 180 -PORT # 128 -BYTE # 181 -PORT # 128 -BYTE # 182 -PORT # 128 -BYTE # 183 -PORT # 128 -BYTE # 184 -PORT # 128 -BYTE # 185 -PORT # 128 -BYTE # 186 -PORT # 128 -BYTE # 187 -PORT # 128 -BYTE # 188 -PORT # 128 -BYTE # 189 -PORT # 128 -BYTE # 190 -PORT # 128 -BYTE # 191 -PORT # 128 -BYTE # 192 -PORT # 128 -BYTE # 193 -PORT # 128 -BYTE # 194 -PORT # 128 -BYTE # 195 -PORT # 128 -BYTE # 196 -PORT # 128 -BYTE # 197 -PORT # 128 -BYTE # 198 -PORT # 128 -BYTE # 199 -PORT # 128 -BYTE # 200 -PORT # 128 -BYTE # 201 -PORT # 128 -BYTE # 202 -PORT # 128 -BYTE # 203 -PORT # 128 -BYTE # 204 -PORT # 128 -BYTE # 205 -PORT # 128 -BYTE # 206 -PORT # 128 -BYTE # 207 -PORT # 128 -BYTE # 208 -PORT # 128 -BYTE # 209 -PORT # 128 -BYTE # 210 -PORT # 128 -BYTE # 211 -PORT # 128 -BYTE # 212 -PORT # 128 -BYTE # 213 -PORT # 128 -BYTE # 214 -PORT # 128 -BYTE # 215 -PORT # 128 -BYTE # 216 -PORT # 128 -BYTE # 217 -PORT # 128 -BYTE # 218 -PORT # 128 -BYTE # 219 -PORT # 128 -BYTE # 220 -PORT # 128 -BYTE # 221 -PORT # 128 -BYTE # 222 -PORT # 128 -BYTE # 223 -PORT # 128 -BYTE # 224 -PORT # 128 -BYTE # 225 -PORT # 128 -BYTE # 226 -PORT # 128 -BYTE # 227 -PORT # 128 -BYTE # 228 -PORT # 128 -BYTE # 229 -PORT # 128 -BYTE # 230 -PORT # 128 -BYTE # 231 -PORT # 128 -BYTE # 232 -PORT # 128 -BYTE # 233 -PORT # 128 -BYTE # 234 -PORT # 128 -BYTE # 235 -PORT # 128 -BYTE # 236 -PORT # 128 -BYTE # 237 -PORT # 128 -BYTE # 238 -PORT # 128 -BYTE # 239 -PORT # 128 -BYTE # 240 -PORT # 128 -BYTE # 241 -PORT # 128 -BYTE # 242 -PORT # 128 -BYTE # 243 -PORT # 128 -BYTE # 244 -PORT # 128 -BYTE # 245 -PORT # 128 -BYTE # 246 -PORT # 128 -BYTE # 247 -PORT # 128 -BYTE # 248 -PORT # 128 -BYTE # 249 -PORT # 128 -BYTE # 250 -PORT # 128 -BYTE # 251 -PORT # 128 -BYTE # 252 -PORT # 128 -BYTE # 253 -PORT # 128 -BYTE # 254 -PORT # 128 -BYTE # 255 -PORT # 129 -BYTE # 0 -PORT # 129 -BYTE # 1 -PORT # 129 -BYTE # 2 -PORT # 129 -BYTE # 3 -PORT # 129 -BYTE # 4 -PORT # 129 -BYTE # 5 -PORT # 129 -BYTE # 6 -PORT # 129 -BYTE # 7 -PORT # 129 -BYTE # 8 -PORT # 129 -BYTE # 9 -PORT # 129 -BYTE # 10 -PORT # 129 -BYTE # 11 -PORT # 129 -BYTE # 12 -PORT # 129 -BYTE # 13 -PORT # 129 -BYTE # 14 -PORT # 129 -BYTE # 15 -PORT # 129 -BYTE # 16 -PORT # 129 -BYTE # 17 -PORT # 129 -BYTE # 18 -PORT # 129 -BYTE # 19 -PORT # 129 -BYTE # 20 -PORT # 129 -BYTE # 21 -PORT # 129 -BYTE # 22 -PORT # 129 -BYTE # 23 -PORT # 129 -BYTE # 24 -PORT # 129 -BYTE # 25 -PORT # 129 -BYTE # 26 -PORT # 129 -BYTE # 27 -PORT # 129 -BYTE # 28 -PORT # 129 -BYTE # 29 -PORT # 129 -BYTE # 30 -PORT # 129 -BYTE # 31 -PORT # 129 -BYTE # 32 -PORT # 129 -BYTE # 33 -PORT # 129 -BYTE # 34 -PORT # 129 -BYTE # 35 -PORT # 129 -BYTE # 36 -PORT # 129 -BYTE # 37 -PORT # 129 -BYTE # 38 -PORT # 129 -BYTE # 39 -PORT # 129 -BYTE # 40 -PORT # 129 -BYTE # 41 -PORT # 129 -BYTE # 42 -PORT # 129 -BYTE # 43 -PORT # 129 -BYTE # 44 -PORT # 129 -BYTE # 45 -PORT # 129 -BYTE # 46 -PORT # 129 -BYTE # 47 -PORT # 129 -BYTE # 48 -PORT # 129 -BYTE # 49 -PORT # 129 -BYTE # 50 -PORT # 129 -BYTE # 51 -PORT # 129 -BYTE # 52 -PORT # 129 -BYTE # 53 -PORT # 129 -BYTE # 54 -PORT # 129 -BYTE # 55 -PORT # 129 -BYTE # 56 -PORT # 129 -BYTE # 57 -PORT # 129 -BYTE # 58 -PORT # 129 -BYTE # 59 -PORT # 129 -BYTE # 60 -PORT # 129 -BYTE # 61 -PORT # 129 -BYTE # 62 -PORT # 129 -BYTE # 63 -PORT # 129 -BYTE # 64 -PORT # 129 -BYTE # 65 -PORT # 129 -BYTE # 66 -PORT # 129 -BYTE # 67 -PORT # 129 -BYTE # 68 -PORT # 129 -BYTE # 69 -PORT # 129 -BYTE # 70 -PORT # 129 -BYTE # 71 -PORT # 129 -BYTE # 72 -PORT # 129 -BYTE # 73 -PORT # 129 -BYTE # 74 -PORT # 129 -BYTE # 75 -PORT # 129 -BYTE # 76 -PORT # 129 -BYTE # 77 -PORT # 129 -BYTE # 78 -PORT # 129 -BYTE # 79 -PORT # 129 -BYTE # 80 -PORT # 129 -BYTE # 81 -PORT # 129 -BYTE # 82 -PORT # 129 -BYTE # 83 -PORT # 129 -BYTE # 84 -PORT # 129 -BYTE # 85 -PORT # 129 -BYTE # 86 -PORT # 129 -BYTE # 87 -PORT # 129 -BYTE # 88 -PORT # 129 -BYTE # 89 -PORT # 129 -BYTE # 90 -PORT # 129 -BYTE # 91 -PORT # 129 -BYTE # 92 -PORT # 129 -BYTE # 93 -PORT # 129 -BYTE # 94 -PORT # 129 -BYTE # 95 -PORT # 129 -BYTE # 96 -PORT # 129 -BYTE # 97 -PORT # 129 -BYTE # 98 -PORT # 129 -BYTE # 99 -PORT # 129 -BYTE # 100 -PORT # 129 -BYTE # 101 -PORT # 129 -BYTE # 102 -PORT # 129 -BYTE # 103 -PORT # 129 -BYTE # 104 -PORT # 129 -BYTE # 105 -PORT # 129 -BYTE # 106 -PORT # 129 -BYTE # 107 -PORT # 129 -BYTE # 108 -PORT # 129 -BYTE # 109 -PORT # 129 -BYTE # 110 -PORT # 129 -BYTE # 111 -PORT # 129 -BYTE # 112 -PORT # 129 -BYTE # 113 -PORT # 129 -BYTE # 114 -PORT # 129 -BYTE # 115 -PORT # 129 -BYTE # 116 -PORT # 129 -BYTE # 117 -PORT # 129 -BYTE # 118 -PORT # 129 -BYTE # 119 -PORT # 129 -BYTE # 120 -PORT # 129 -BYTE # 121 -PORT # 129 -BYTE # 122 -PORT # 129 -BYTE # 123 -PORT # 129 -BYTE # 124 -PORT # 129 -BYTE # 125 -PORT # 129 -BYTE # 126 -PORT # 129 -BYTE # 127 -PORT # 129 -BYTE # 128 -PORT # 129 -BYTE # 129 -PORT # 129 -BYTE # 130 -PORT # 129 -BYTE # 131 -PORT # 129 -BYTE # 132 -PORT # 129 -BYTE # 133 -PORT # 129 -BYTE # 134 -PORT # 129 -BYTE # 135 -PORT # 129 -BYTE # 136 -PORT # 129 -BYTE # 137 -PORT # 129 -BYTE # 138 -PORT # 129 -BYTE # 139 -PORT # 129 -BYTE # 140 -PORT # 129 -BYTE # 141 -PORT # 129 -BYTE # 142 -PORT # 129 -BYTE # 143 -PORT # 129 -BYTE # 144 -PORT # 129 -BYTE # 145 -PORT # 129 -BYTE # 146 -PORT # 129 -BYTE # 147 -PORT # 129 -BYTE # 148 -PORT # 129 -BYTE # 149 -PORT # 129 -BYTE # 150 -PORT # 129 -BYTE # 151 -PORT # 129 -BYTE # 152 -PORT # 129 -BYTE # 153 -PORT # 129 -BYTE # 154 -PORT # 129 -BYTE # 155 -PORT # 129 -BYTE # 156 -PORT # 129 -BYTE # 157 -PORT # 129 -BYTE # 158 -PORT # 129 -BYTE # 159 -PORT # 129 -BYTE # 160 -PORT # 129 -BYTE # 161 -PORT # 129 -BYTE # 162 -PORT # 129 -BYTE # 163 -PORT # 129 -BYTE # 164 -PORT # 129 -BYTE # 165 -PORT # 129 -BYTE # 166 -PORT # 129 -BYTE # 167 -PORT # 129 -BYTE # 168 -PORT # 129 -BYTE # 169 -PORT # 129 -BYTE # 170 -PORT # 129 -BYTE # 171 -PORT # 129 -BYTE # 172 -PORT # 129 -BYTE # 173 -PORT # 129 -BYTE # 174 -PORT # 129 -BYTE # 175 -PORT # 129 -BYTE # 176 -PORT # 129 -BYTE # 177 -PORT # 129 -BYTE # 178 -PORT # 129 -BYTE # 179 -PORT # 129 -BYTE # 180 -PORT # 129 -BYTE # 181 -PORT # 129 -BYTE # 182 -PORT # 129 -BYTE # 183 -PORT # 129 -BYTE # 184 -PORT # 129 -BYTE # 185 -PORT # 129 -BYTE # 186 -PORT # 129 -BYTE # 187 -PORT # 129 -BYTE # 188 -PORT # 129 -BYTE # 189 -PORT # 129 -BYTE # 190 -PORT # 129 -BYTE # 191 -PORT # 129 -BYTE # 192 -PORT # 129 -BYTE # 193 -PORT # 129 -BYTE # 194 -PORT # 129 -BYTE # 195 -PORT # 129 -BYTE # 196 -PORT # 129 -BYTE # 197 -PORT # 129 -BYTE # 198 -PORT # 129 -BYTE # 199 -PORT # 129 -BYTE # 200 -PORT # 129 -BYTE # 201 -PORT # 129 -BYTE # 202 -PORT # 129 -BYTE # 203 -PORT # 129 -BYTE # 204 -PORT # 129 -BYTE # 205 -PORT # 129 -BYTE # 206 -PORT # 129 -BYTE # 207 -PORT # 129 -BYTE # 208 -PORT # 129 -BYTE # 209 -PORT # 129 -BYTE # 210 -PORT # 129 -BYTE # 211 -PORT # 129 -BYTE # 212 -PORT # 129 -BYTE # 213 -PORT # 129 -BYTE # 214 -PORT # 129 -BYTE # 215 -PORT # 129 -BYTE # 216 -PORT # 129 -BYTE # 217 -PORT # 129 -BYTE # 218 -PORT # 129 -BYTE # 219 -PORT # 129 -BYTE # 220 -PORT # 129 -BYTE # 221 -PORT # 129 -BYTE # 222 -PORT # 129 -BYTE # 223 -PORT # 129 -BYTE # 224 -PORT # 129 -BYTE # 225 -PORT # 129 -BYTE # 226 -PORT # 129 -BYTE # 227 -PORT # 129 -BYTE # 228 -PORT # 129 -BYTE # 229 -PORT # 129 -BYTE # 230 -PORT # 129 -BYTE # 231 -PORT # 129 -BYTE # 232 -PORT # 129 -BYTE # 233 -PORT # 129 -BYTE # 234 -PORT # 129 -BYTE # 235 -PORT # 129 -BYTE # 236 -PORT # 129 -BYTE # 237 -PORT # 129 -BYTE # 238 -PORT # 129 -BYTE # 239 -PORT # 129 -BYTE # 240 -PORT # 129 -BYTE # 241 -PORT # 129 -BYTE # 242 -PORT # 129 -BYTE # 243 -PORT # 129 -BYTE # 244 -PORT # 129 -BYTE # 245 -PORT # 129 -BYTE # 246 -PORT # 129 -BYTE # 247 -PORT # 129 -BYTE # 248 -PORT # 129 -BYTE # 249 -PORT # 129 -BYTE # 250 -PORT # 129 -BYTE # 251 -PORT # 129 -BYTE # 252 -PORT # 129 -BYTE # 253 -PORT # 129 -BYTE # 254 -PORT # 129 -BYTE # 255 -PORT # 130 -BYTE # 0 -PORT # 130 -BYTE # 1 -PORT # 130 -BYTE # 2 -PORT # 130 -BYTE # 3 -PORT # 130 -BYTE # 4 -PORT # 130 -BYTE # 5 -PORT # 130 -BYTE # 6 -PORT # 130 -BYTE # 7 -PORT # 130 -BYTE # 8 -PORT # 130 -BYTE # 9 -PORT # 130 -BYTE # 10 -PORT # 130 -BYTE # 11 -PORT # 130 -BYTE # 12 -PORT # 130 -BYTE # 13 -PORT # 130 -BYTE # 14 -PORT # 130 -BYTE # 15 -PORT # 130 -BYTE # 16 -PORT # 130 -BYTE # 17 -PORT # 130 -BYTE # 18 -PORT # 130 -BYTE # 19 -PORT # 130 -BYTE # 20 -PORT # 130 -BYTE # 21 -PORT # 130 -BYTE # 22 -PORT # 130 -BYTE # 23 -PORT # 130 -BYTE # 24 -PORT # 130 -BYTE # 25 -PORT # 130 -BYTE # 26 -PORT # 130 -BYTE # 27 -PORT # 130 -BYTE # 28 -PORT # 130 -BYTE # 29 -PORT # 130 -BYTE # 30 -PORT # 130 -BYTE # 31 -PORT # 130 -BYTE # 32 -PORT # 130 -BYTE # 33 -PORT # 130 -BYTE # 34 -PORT # 130 -BYTE # 35 -PORT # 130 -BYTE # 36 -PORT # 130 -BYTE # 37 -PORT # 130 -BYTE # 38 -PORT # 130 -BYTE # 39 -PORT # 130 -BYTE # 40 -PORT # 130 -BYTE # 41 -PORT # 130 -BYTE # 42 -PORT # 130 -BYTE # 43 -PORT # 130 -BYTE # 44 -PORT # 130 -BYTE # 45 -PORT # 130 -BYTE # 46 -PORT # 130 -BYTE # 47 -PORT # 130 -BYTE # 48 -PORT # 130 -BYTE # 49 -PORT # 130 -BYTE # 50 -PORT # 130 -BYTE # 51 -PORT # 130 -BYTE # 52 -PORT # 130 -BYTE # 53 -PORT # 130 -BYTE # 54 -PORT # 130 -BYTE # 55 -PORT # 130 -BYTE # 56 -PORT # 130 -BYTE # 57 -PORT # 130 -BYTE # 58 -PORT # 130 -BYTE # 59 -PORT # 130 -BYTE # 60 -PORT # 130 -BYTE # 61 -PORT # 130 -BYTE # 62 -PORT # 130 -BYTE # 63 -PORT # 130 -BYTE # 64 -PORT # 130 -BYTE # 65 -PORT # 130 -BYTE # 66 -PORT # 130 -BYTE # 67 -PORT # 130 -BYTE # 68 -PORT # 130 -BYTE # 69 -PORT # 130 -BYTE # 70 -PORT # 130 -BYTE # 71 -PORT # 130 -BYTE # 72 -PORT # 130 -BYTE # 73 -PORT # 130 -BYTE # 74 -PORT # 130 -BYTE # 75 -PORT # 130 -BYTE # 76 -PORT # 130 -BYTE # 77 -PORT # 130 -BYTE # 78 -PORT # 130 -BYTE # 79 -PORT # 130 -BYTE # 80 -PORT # 130 -BYTE # 81 -PORT # 130 -BYTE # 82 -PORT # 130 -BYTE # 83 -PORT # 130 -BYTE # 84 -PORT # 130 -BYTE # 85 -PORT # 130 -BYTE # 86 -PORT # 130 -BYTE # 87 -PORT # 130 -BYTE # 88 -PORT # 130 -BYTE # 89 -PORT # 130 -BYTE # 90 -PORT # 130 -BYTE # 91 -PORT # 130 -BYTE # 92 -PORT # 130 -BYTE # 93 -PORT # 130 -BYTE # 94 -PORT # 130 -BYTE # 95 -PORT # 130 -BYTE # 96 -PORT # 130 -BYTE # 97 -PORT # 130 -BYTE # 98 -PORT # 130 -BYTE # 99 -PORT # 130 -BYTE # 100 -PORT # 130 -BYTE # 101 -PORT # 130 -BYTE # 102 -PORT # 130 -BYTE # 103 -PORT # 130 -BYTE # 104 -PORT # 130 -BYTE # 105 -PORT # 130 -BYTE # 106 -PORT # 130 -BYTE # 107 -PORT # 130 -BYTE # 108 -PORT # 130 -BYTE # 109 -PORT # 130 -BYTE # 110 -PORT # 130 -BYTE # 111 -PORT # 130 -BYTE # 112 -PORT # 130 -BYTE # 113 -PORT # 130 -BYTE # 114 -PORT # 130 -BYTE # 115 -PORT # 130 -BYTE # 116 -PORT # 130 -BYTE # 117 -PORT # 130 -BYTE # 118 -PORT # 130 -BYTE # 119 -PORT # 130 -BYTE # 120 -PORT # 130 -BYTE # 121 -PORT # 130 -BYTE # 122 -PORT # 130 -BYTE # 123 -PORT # 130 -BYTE # 124 -PORT # 130 -BYTE # 125 -PORT # 130 -BYTE # 126 -PORT # 130 -BYTE # 127 -PORT # 130 -BYTE # 128 -PORT # 130 -BYTE # 129 -PORT # 130 -BYTE # 130 -PORT # 130 -BYTE # 131 -PORT # 130 -BYTE # 132 -PORT # 130 -BYTE # 133 -PORT # 130 -BYTE # 134 -PORT # 130 -BYTE # 135 -PORT # 130 -BYTE # 136 -PORT # 130 -BYTE # 137 -PORT # 130 -BYTE # 138 -PORT # 130 -BYTE # 139 -PORT # 130 -BYTE # 140 -PORT # 130 -BYTE # 141 -PORT # 130 -BYTE # 142 -PORT # 130 -BYTE # 143 -PORT # 130 -BYTE # 144 -PORT # 130 -BYTE # 145 -PORT # 130 -BYTE # 146 -PORT # 130 -BYTE # 147 -PORT # 130 -BYTE # 148 -PORT # 130 -BYTE # 149 -PORT # 130 -BYTE # 150 -PORT # 130 -BYTE # 151 -PORT # 130 -BYTE # 152 -PORT # 130 -BYTE # 153 -PORT # 130 -BYTE # 154 -PORT # 130 -BYTE # 155 -PORT # 130 -BYTE # 156 -PORT # 130 -BYTE # 157 -PORT # 130 -BYTE # 158 -PORT # 130 -BYTE # 159 -PORT # 130 -BYTE # 160 -PORT # 130 -BYTE # 161 -PORT # 130 -BYTE # 162 -PORT # 130 -BYTE # 163 -PORT # 130 -BYTE # 164 -PORT # 130 -BYTE # 165 -PORT # 130 -BYTE # 166 -PORT # 130 -BYTE # 167 -PORT # 130 -BYTE # 168 -PORT # 130 -BYTE # 169 -PORT # 130 -BYTE # 170 -PORT # 130 -BYTE # 171 -PORT # 130 -BYTE # 172 -PORT # 130 -BYTE # 173 -PORT # 130 -BYTE # 174 -PORT # 130 -BYTE # 175 -PORT # 130 -BYTE # 176 -PORT # 130 -BYTE # 177 -PORT # 130 -BYTE # 178 -PORT # 130 -BYTE # 179 -PORT # 130 -BYTE # 180 -PORT # 130 -BYTE # 181 -PORT # 130 -BYTE # 182 -PORT # 130 -BYTE # 183 -PORT # 130 -BYTE # 184 -PORT # 130 -BYTE # 185 -PORT # 130 -BYTE # 186 -PORT # 130 -BYTE # 187 -PORT # 130 -BYTE # 188 -PORT # 130 -BYTE # 189 -PORT # 130 -BYTE # 190 -PORT # 130 -BYTE # 191 -PORT # 130 -BYTE # 192 -PORT # 130 -BYTE # 193 -PORT # 130 -BYTE # 194 -PORT # 130 -BYTE # 195 -PORT # 130 -BYTE # 196 -PORT # 130 -BYTE # 197 -PORT # 130 -BYTE # 198 -PORT # 130 -BYTE # 199 -PORT # 130 -BYTE # 200 -PORT # 130 -BYTE # 201 -PORT # 130 -BYTE # 202 -PORT # 130 -BYTE # 203 -PORT # 130 -BYTE # 204 -PORT # 130 -BYTE # 205 -PORT # 130 -BYTE # 206 -PORT # 130 -BYTE # 207 -PORT # 130 -BYTE # 208 -PORT # 130 -BYTE # 209 -PORT # 130 -BYTE # 210 -PORT # 130 -BYTE # 211 -PORT # 130 -BYTE # 212 -PORT # 130 -BYTE # 213 -PORT # 130 -BYTE # 214 -PORT # 130 -BYTE # 215 -PORT # 130 -BYTE # 216 -PORT # 130 -BYTE # 217 -PORT # 130 -BYTE # 218 -PORT # 130 -BYTE # 219 -PORT # 130 -BYTE # 220 -PORT # 130 -BYTE # 221 -PORT # 130 -BYTE # 222 -PORT # 130 -BYTE # 223 -PORT # 130 -BYTE # 224 -PORT # 130 -BYTE # 225 -PORT # 130 -BYTE # 226 -PORT # 130 -BYTE # 227 -PORT # 130 -BYTE # 228 -PORT # 130 -BYTE # 229 -PORT # 130 -BYTE # 230 -PORT # 130 -BYTE # 231 -PORT # 130 -BYTE # 232 -PORT # 130 -BYTE # 233 -PORT # 130 -BYTE # 234 -PORT # 130 -BYTE # 235 -PORT # 130 -BYTE # 236 -PORT # 130 -BYTE # 237 -PORT # 130 -BYTE # 238 -PORT # 130 -BYTE # 239 -PORT # 130 -BYTE # 240 -PORT # 130 -BYTE # 241 -PORT # 130 -BYTE # 242 -PORT # 130 -BYTE # 243 -PORT # 130 -BYTE # 244 -PORT # 130 -BYTE # 245 -PORT # 130 -BYTE # 246 -PORT # 130 -BYTE # 247 -PORT # 130 -BYTE # 248 -PORT # 130 -BYTE # 249 -PORT # 130 -BYTE # 250 -PORT # 130 -BYTE # 251 -PORT # 130 -BYTE # 252 -PORT # 130 -BYTE # 253 -PORT # 130 -BYTE # 254 -PORT # 130 -BYTE # 255 -PORT # 131 -BYTE # 0 -PORT # 131 -BYTE # 1 -PORT # 131 -BYTE # 2 -PORT # 131 -BYTE # 3 -PORT # 131 -BYTE # 4 -PORT # 131 -BYTE # 5 -PORT # 131 -BYTE # 6 -PORT # 131 -BYTE # 7 -PORT # 131 -BYTE # 8 -PORT # 131 -BYTE # 9 -PORT # 131 -BYTE # 10 -PORT # 131 -BYTE # 11 -PORT # 131 -BYTE # 12 -PORT # 131 -BYTE # 13 -PORT # 131 -BYTE # 14 -PORT # 131 -BYTE # 15 -PORT # 131 -BYTE # 16 -PORT # 131 -BYTE # 17 -PORT # 131 -BYTE # 18 -PORT # 131 -BYTE # 19 -PORT # 131 -BYTE # 20 -PORT # 131 -BYTE # 21 -PORT # 131 -BYTE # 22 -PORT # 131 -BYTE # 23 -PORT # 131 -BYTE # 24 -PORT # 131 -BYTE # 25 -PORT # 131 -BYTE # 26 -PORT # 131 -BYTE # 27 -PORT # 131 -BYTE # 28 -PORT # 131 -BYTE # 29 -PORT # 131 -BYTE # 30 -PORT # 131 -BYTE # 31 -PORT # 131 -BYTE # 32 -PORT # 131 -BYTE # 33 -PORT # 131 -BYTE # 34 -PORT # 131 -BYTE # 35 -PORT # 131 -BYTE # 36 -PORT # 131 -BYTE # 37 -PORT # 131 -BYTE # 38 -PORT # 131 -BYTE # 39 -PORT # 131 -BYTE # 40 -PORT # 131 -BYTE # 41 -PORT # 131 -BYTE # 42 -PORT # 131 -BYTE # 43 -PORT # 131 -BYTE # 44 -PORT # 131 -BYTE # 45 -PORT # 131 -BYTE # 46 -PORT # 131 -BYTE # 47 -PORT # 131 -BYTE # 48 -PORT # 131 -BYTE # 49 -PORT # 131 -BYTE # 50 -PORT # 131 -BYTE # 51 -PORT # 131 -BYTE # 52 -PORT # 131 -BYTE # 53 -PORT # 131 -BYTE # 54 -PORT # 131 -BYTE # 55 -PORT # 131 -BYTE # 56 -PORT # 131 -BYTE # 57 -PORT # 131 -BYTE # 58 -PORT # 131 -BYTE # 59 -PORT # 131 -BYTE # 60 -PORT # 131 -BYTE # 61 -PORT # 131 -BYTE # 62 -PORT # 131 -BYTE # 63 -PORT # 131 -BYTE # 64 -PORT # 131 -BYTE # 65 -PORT # 131 -BYTE # 66 -PORT # 131 -BYTE # 67 -PORT # 131 -BYTE # 68 -PORT # 131 -BYTE # 69 -PORT # 131 -BYTE # 70 -PORT # 131 -BYTE # 71 -PORT # 131 -BYTE # 72 -PORT # 131 -BYTE # 73 -PORT # 131 -BYTE # 74 -PORT # 131 -BYTE # 75 -PORT # 131 -BYTE # 76 -PORT # 131 -BYTE # 77 -PORT # 131 -BYTE # 78 -PORT # 131 -BYTE # 79 -PORT # 131 -BYTE # 80 -PORT # 131 -BYTE # 81 -PORT # 131 -BYTE # 82 -PORT # 131 -BYTE # 83 -PORT # 131 -BYTE # 84 -PORT # 131 -BYTE # 85 -PORT # 131 -BYTE # 86 -PORT # 131 -BYTE # 87 -PORT # 131 -BYTE # 88 -PORT # 131 -BYTE # 89 -PORT # 131 -BYTE # 90 -PORT # 131 -BYTE # 91 -PORT # 131 -BYTE # 92 -PORT # 131 -BYTE # 93 -PORT # 131 -BYTE # 94 -PORT # 131 -BYTE # 95 -PORT # 131 -BYTE # 96 -PORT # 131 -BYTE # 97 -PORT # 131 -BYTE # 98 -PORT # 131 -BYTE # 99 -PORT # 131 -BYTE # 100 -PORT # 131 -BYTE # 101 -PORT # 131 -BYTE # 102 -PORT # 131 -BYTE # 103 -PORT # 131 -BYTE # 104 -PORT # 131 -BYTE # 105 -PORT # 131 -BYTE # 106 -PORT # 131 -BYTE # 107 -PORT # 131 -BYTE # 108 -PORT # 131 -BYTE # 109 -PORT # 131 -BYTE # 110 -PORT # 131 -BYTE # 111 -PORT # 131 -BYTE # 112 -PORT # 131 -BYTE # 113 -PORT # 131 -BYTE # 114 -PORT # 131 -BYTE # 115 -PORT # 131 -BYTE # 116 -PORT # 131 -BYTE # 117 -PORT # 131 -BYTE # 118 -PORT # 131 -BYTE # 119 -PORT # 131 -BYTE # 120 -PORT # 131 -BYTE # 121 -PORT # 131 -BYTE # 122 -PORT # 131 -BYTE # 123 -PORT # 131 -BYTE # 124 -PORT # 131 -BYTE # 125 -PORT # 131 -BYTE # 126 -PORT # 131 -BYTE # 127 -PORT # 131 -BYTE # 128 -PORT # 131 -BYTE # 129 -PORT # 131 -BYTE # 130 -PORT # 131 -BYTE # 131 -PORT # 131 -BYTE # 132 -PORT # 131 -BYTE # 133 -PORT # 131 -BYTE # 134 -PORT # 131 -BYTE # 135 -PORT # 131 -BYTE # 136 -PORT # 131 -BYTE # 137 -PORT # 131 -BYTE # 138 -PORT # 131 -BYTE # 139 -PORT # 131 -BYTE # 140 -PORT # 131 -BYTE # 141 -PORT # 131 -BYTE # 142 -PORT # 131 -BYTE # 143 -PORT # 131 -BYTE # 144 -PORT # 131 -BYTE # 145 -PORT # 131 -BYTE # 146 -PORT # 131 -BYTE # 147 -PORT # 131 -BYTE # 148 -PORT # 131 -BYTE # 149 -PORT # 131 -BYTE # 150 -PORT # 131 -BYTE # 151 -PORT # 131 -BYTE # 152 -PORT # 131 -BYTE # 153 -PORT # 131 -BYTE # 154 -PORT # 131 -BYTE # 155 -PORT # 131 -BYTE # 156 -PORT # 131 -BYTE # 157 -PORT # 131 -BYTE # 158 -PORT # 131 -BYTE # 159 -PORT # 131 -BYTE # 160 -PORT # 131 -BYTE # 161 -PORT # 131 -BYTE # 162 -PORT # 131 -BYTE # 163 -PORT # 131 -BYTE # 164 -PORT # 131 -BYTE # 165 -PORT # 131 -BYTE # 166 -PORT # 131 -BYTE # 167 -PORT # 131 -BYTE # 168 -PORT # 131 -BYTE # 169 -PORT # 131 -BYTE # 170 -PORT # 131 -BYTE # 171 -PORT # 131 -BYTE # 172 -PORT # 131 -BYTE # 173 -PORT # 131 -BYTE # 174 -PORT # 131 -BYTE # 175 -PORT # 131 -BYTE # 176 -PORT # 131 -BYTE # 177 -PORT # 131 -BYTE # 178 -PORT # 131 -BYTE # 179 -PORT # 131 -BYTE # 180 -PORT # 131 -BYTE # 181 -PORT # 131 -BYTE # 182 -PORT # 131 -BYTE # 183 -PORT # 131 -BYTE # 184 -PORT # 131 -BYTE # 185 -PORT # 131 -BYTE # 186 -PORT # 131 -BYTE # 187 -PORT # 131 -BYTE # 188 -PORT # 131 -BYTE # 189 -PORT # 131 -BYTE # 190 -PORT # 131 -BYTE # 191 -PORT # 131 -BYTE # 192 -PORT # 131 -BYTE # 193 -PORT # 131 -BYTE # 194 -PORT # 131 -BYTE # 195 -PORT # 131 -BYTE # 196 -PORT # 131 -BYTE # 197 -PORT # 131 -BYTE # 198 -PORT # 131 -BYTE # 199 -PORT # 131 -BYTE # 200 -PORT # 131 -BYTE # 201 -PORT # 131 -BYTE # 202 -PORT # 131 -BYTE # 203 -PORT # 131 -BYTE # 204 -PORT # 131 -BYTE # 205 -PORT # 131 -BYTE # 206 -PORT # 131 -BYTE # 207 -PORT # 131 -BYTE # 208 -PORT # 131 -BYTE # 209 -PORT # 131 -BYTE # 210 -PORT # 131 -BYTE # 211 -PORT # 131 -BYTE # 212 -PORT # 131 -BYTE # 213 -PORT # 131 -BYTE # 214 -PORT # 131 -BYTE # 215 -PORT # 131 -BYTE # 216 -PORT # 131 -BYTE # 217 -PORT # 131 -BYTE # 218 -PORT # 131 -BYTE # 219 -PORT # 131 -BYTE # 220 -PORT # 131 -BYTE # 221 -PORT # 131 -BYTE # 222 -PORT # 131 -BYTE # 223 -PORT # 131 -BYTE # 224 -PORT # 131 -BYTE # 225 -PORT # 131 -BYTE # 226 -PORT # 131 -BYTE # 227 -PORT # 131 -BYTE # 228 -PORT # 131 -BYTE # 229 -PORT # 131 -BYTE # 230 -PORT # 131 -BYTE # 231 -PORT # 131 -BYTE # 232 -PORT # 131 -BYTE # 233 -PORT # 131 -BYTE # 234 -PORT # 131 -BYTE # 235 -PORT # 131 -BYTE # 236 -PORT # 131 -BYTE # 237 -PORT # 131 -BYTE # 238 -PORT # 131 -BYTE # 239 -PORT # 131 -BYTE # 240 -PORT # 131 -BYTE # 241 -PORT # 131 -BYTE # 242 -PORT # 131 -BYTE # 243 -PORT # 131 -BYTE # 244 -PORT # 131 -BYTE # 245 -PORT # 131 -BYTE # 246 -PORT # 131 -BYTE # 247 -PORT # 131 -BYTE # 248 -PORT # 131 -BYTE # 249 -PORT # 131 -BYTE # 250 -PORT # 131 -BYTE # 251 -PORT # 131 -BYTE # 252 -PORT # 131 -BYTE # 253 -PORT # 131 -BYTE # 254 -PORT # 131 -BYTE # 255 -PORT # 132 -BYTE # 0 -PORT # 132 -BYTE # 1 -PORT # 132 -BYTE # 2 -PORT # 132 -BYTE # 3 -PORT # 132 -BYTE # 4 -PORT # 132 -BYTE # 5 -PORT # 132 -BYTE # 6 -PORT # 132 -BYTE # 7 -PORT # 132 -BYTE # 8 -PORT # 132 -BYTE # 9 -PORT # 132 -BYTE # 10 -PORT # 132 -BYTE # 11 -PORT # 132 -BYTE # 12 -PORT # 132 -BYTE # 13 -PORT # 132 -BYTE # 14 -PORT # 132 -BYTE # 15 -PORT # 132 -BYTE # 16 -PORT # 132 -BYTE # 17 -PORT # 132 -BYTE # 18 -PORT # 132 -BYTE # 19 -PORT # 132 -BYTE # 20 -PORT # 132 -BYTE # 21 -PORT # 132 -BYTE # 22 -PORT # 132 -BYTE # 23 -PORT # 132 -BYTE # 24 -PORT # 132 -BYTE # 25 -PORT # 132 -BYTE # 26 -PORT # 132 -BYTE # 27 -PORT # 132 -BYTE # 28 -PORT # 132 -BYTE # 29 -PORT # 132 -BYTE # 30 -PORT # 132 -BYTE # 31 -PORT # 132 -BYTE # 32 -PORT # 132 -BYTE # 33 -PORT # 132 -BYTE # 34 -PORT # 132 -BYTE # 35 -PORT # 132 -BYTE # 36 -PORT # 132 -BYTE # 37 -PORT # 132 -BYTE # 38 -PORT # 132 -BYTE # 39 -PORT # 132 -BYTE # 40 -PORT # 132 -BYTE # 41 -PORT # 132 -BYTE # 42 -PORT # 132 -BYTE # 43 -PORT # 132 -BYTE # 44 -PORT # 132 -BYTE # 45 -PORT # 132 -BYTE # 46 -PORT # 132 -BYTE # 47 -PORT # 132 -BYTE # 48 -PORT # 132 -BYTE # 49 -PORT # 132 -BYTE # 50 -PORT # 132 -BYTE # 51 -PORT # 132 -BYTE # 52 -PORT # 132 -BYTE # 53 -PORT # 132 -BYTE # 54 -PORT # 132 -BYTE # 55 -PORT # 132 -BYTE # 56 -PORT # 132 -BYTE # 57 -PORT # 132 -BYTE # 58 -PORT # 132 -BYTE # 59 -PORT # 132 -BYTE # 60 -PORT # 132 -BYTE # 61 -PORT # 132 -BYTE # 62 -PORT # 132 -BYTE # 63 -PORT # 132 -BYTE # 64 -PORT # 132 -BYTE # 65 -PORT # 132 -BYTE # 66 -PORT # 132 -BYTE # 67 -PORT # 132 -BYTE # 68 -PORT # 132 -BYTE # 69 -PORT # 132 -BYTE # 70 -PORT # 132 -BYTE # 71 -PORT # 132 -BYTE # 72 -PORT # 132 -BYTE # 73 -PORT # 132 -BYTE # 74 -PORT # 132 -BYTE # 75 -PORT # 132 -BYTE # 76 -PORT # 132 -BYTE # 77 -PORT # 132 -BYTE # 78 -PORT # 132 -BYTE # 79 -PORT # 132 -BYTE # 80 -PORT # 132 -BYTE # 81 -PORT # 132 -BYTE # 82 -PORT # 132 -BYTE # 83 -PORT # 132 -BYTE # 84 -PORT # 132 -BYTE # 85 -PORT # 132 -BYTE # 86 -PORT # 132 -BYTE # 87 -PORT # 132 -BYTE # 88 -PORT # 132 -BYTE # 89 -PORT # 132 -BYTE # 90 -PORT # 132 -BYTE # 91 -PORT # 132 -BYTE # 92 -PORT # 132 -BYTE # 93 -PORT # 132 -BYTE # 94 -PORT # 132 -BYTE # 95 -PORT # 132 -BYTE # 96 -PORT # 132 -BYTE # 97 -PORT # 132 -BYTE # 98 -PORT # 132 -BYTE # 99 -PORT # 132 -BYTE # 100 -PORT # 132 -BYTE # 101 -PORT # 132 -BYTE # 102 -PORT # 132 -BYTE # 103 -PORT # 132 -BYTE # 104 -PORT # 132 -BYTE # 105 -PORT # 132 -BYTE # 106 -PORT # 132 -BYTE # 107 -PORT # 132 -BYTE # 108 -PORT # 132 -BYTE # 109 -PORT # 132 -BYTE # 110 -PORT # 132 -BYTE # 111 -PORT # 132 -BYTE # 112 -PORT # 132 -BYTE # 113 -PORT # 132 -BYTE # 114 -PORT # 132 -BYTE # 115 -PORT # 132 -BYTE # 116 -PORT # 132 -BYTE # 117 -PORT # 132 -BYTE # 118 -PORT # 132 -BYTE # 119 -PORT # 132 -BYTE # 120 -PORT # 132 -BYTE # 121 -PORT # 132 -BYTE # 122 -PORT # 132 -BYTE # 123 -PORT # 132 -BYTE # 124 -PORT # 132 -BYTE # 125 -PORT # 132 -BYTE # 126 -PORT # 132 -BYTE # 127 -PORT # 132 -BYTE # 128 -PORT # 132 -BYTE # 129 -PORT # 132 -BYTE # 130 -PORT # 132 -BYTE # 131 -PORT # 132 -BYTE # 132 -PORT # 132 -BYTE # 133 -PORT # 132 -BYTE # 134 -PORT # 132 -BYTE # 135 -PORT # 132 -BYTE # 136 -PORT # 132 -BYTE # 137 -PORT # 132 -BYTE # 138 -PORT # 132 -BYTE # 139 -PORT # 132 -BYTE # 140 -PORT # 132 -BYTE # 141 -PORT # 132 -BYTE # 142 -PORT # 132 -BYTE # 143 -PORT # 132 -BYTE # 144 -PORT # 132 -BYTE # 145 -PORT # 132 -BYTE # 146 -PORT # 132 -BYTE # 147 -PORT # 132 -BYTE # 148 -PORT # 132 -BYTE # 149 -PORT # 132 -BYTE # 150 -PORT # 132 -BYTE # 151 -PORT # 132 -BYTE # 152 -PORT # 132 -BYTE # 153 -PORT # 132 -BYTE # 154 -PORT # 132 -BYTE # 155 -PORT # 132 -BYTE # 156 -PORT # 132 -BYTE # 157 -PORT # 132 -BYTE # 158 -PORT # 132 -BYTE # 159 -PORT # 132 -BYTE # 160 -PORT # 132 -BYTE # 161 -PORT # 132 -BYTE # 162 -PORT # 132 -BYTE # 163 -PORT # 132 -BYTE # 164 -PORT # 132 -BYTE # 165 -PORT # 132 -BYTE # 166 -PORT # 132 -BYTE # 167 -PORT # 132 -BYTE # 168 -PORT # 132 -BYTE # 169 -PORT # 132 -BYTE # 170 -PORT # 132 -BYTE # 171 -PORT # 132 -BYTE # 172 -PORT # 132 -BYTE # 173 -PORT # 132 -BYTE # 174 -PORT # 132 -BYTE # 175 -PORT # 132 -BYTE # 176 -PORT # 132 -BYTE # 177 -PORT # 132 -BYTE # 178 -PORT # 132 -BYTE # 179 -PORT # 132 -BYTE # 180 -PORT # 132 -BYTE # 181 -PORT # 132 -BYTE # 182 -PORT # 132 -BYTE # 183 -PORT # 132 -BYTE # 184 -PORT # 132 -BYTE # 185 -PORT # 132 -BYTE # 186 -PORT # 132 -BYTE # 187 -PORT # 132 -BYTE # 188 -PORT # 132 -BYTE # 189 -PORT # 132 -BYTE # 190 -PORT # 132 -BYTE # 191 -PORT # 132 -BYTE # 192 -PORT # 132 -BYTE # 193 -PORT # 132 -BYTE # 194 -PORT # 132 -BYTE # 195 -PORT # 132 -BYTE # 196 -PORT # 132 -BYTE # 197 -PORT # 132 -BYTE # 198 -PORT # 132 -BYTE # 199 -PORT # 132 -BYTE # 200 -PORT # 132 -BYTE # 201 -PORT # 132 -BYTE # 202 -PORT # 132 -BYTE # 203 -PORT # 132 -BYTE # 204 -PORT # 132 -BYTE # 205 -PORT # 132 -BYTE # 206 -PORT # 132 -BYTE # 207 -PORT # 132 -BYTE # 208 -PORT # 132 -BYTE # 209 -PORT # 132 -BYTE # 210 -PORT # 132 -BYTE # 211 -PORT # 132 -BYTE # 212 -PORT # 132 -BYTE # 213 -PORT # 132 -BYTE # 214 -PORT # 132 -BYTE # 215 -PORT # 132 -BYTE # 216 -PORT # 132 -BYTE # 217 -PORT # 132 -BYTE # 218 -PORT # 132 -BYTE # 219 -PORT # 132 -BYTE # 220 -PORT # 132 -BYTE # 221 -PORT # 132 -BYTE # 222 -PORT # 132 -BYTE # 223 -PORT # 132 -BYTE # 224 -PORT # 132 -BYTE # 225 -PORT # 132 -BYTE # 226 -PORT # 132 -BYTE # 227 -PORT # 132 -BYTE # 228 -PORT # 132 -BYTE # 229 -PORT # 132 -BYTE # 230 -PORT # 132 -BYTE # 231 -PORT # 132 -BYTE # 232 -PORT # 132 -BYTE # 233 -PORT # 132 -BYTE # 234 -PORT # 132 -BYTE # 235 -PORT # 132 -BYTE # 236 -PORT # 132 -BYTE # 237 -PORT # 132 -BYTE # 238 -PORT # 132 -BYTE # 239 -PORT # 132 -BYTE # 240 -PORT # 132 -BYTE # 241 -PORT # 132 -BYTE # 242 -PORT # 132 -BYTE # 243 -PORT # 132 -BYTE # 244 -PORT # 132 -BYTE # 245 -PORT # 132 -BYTE # 246 -PORT # 132 -BYTE # 247 -PORT # 132 -BYTE # 248 -PORT # 132 -BYTE # 249 -PORT # 132 -BYTE # 250 -PORT # 132 -BYTE # 251 -PORT # 132 -BYTE # 252 -PORT # 132 -BYTE # 253 -PORT # 132 -BYTE # 254 -PORT # 132 -BYTE # 255 -PORT # 133 -BYTE # 0 -PORT # 133 -BYTE # 1 -PORT # 133 -BYTE # 2 -PORT # 133 -BYTE # 3 -PORT # 133 -BYTE # 4 -PORT # 133 -BYTE # 5 -PORT # 133 -BYTE # 6 -PORT # 133 -BYTE # 7 -PORT # 133 -BYTE # 8 -PORT # 133 -BYTE # 9 -PORT # 133 -BYTE # 10 -PORT # 133 -BYTE # 11 -PORT # 133 -BYTE # 12 -PORT # 133 -BYTE # 13 -PORT # 133 -BYTE # 14 -PORT # 133 -BYTE # 15 -PORT # 133 -BYTE # 16 -PORT # 133 -BYTE # 17 -PORT # 133 -BYTE # 18 -PORT # 133 -BYTE # 19 -PORT # 133 -BYTE # 20 -PORT # 133 -BYTE # 21 -PORT # 133 -BYTE # 22 -PORT # 133 -BYTE # 23 -PORT # 133 -BYTE # 24 -PORT # 133 -BYTE # 25 -PORT # 133 -BYTE # 26 -PORT # 133 -BYTE # 27 -PORT # 133 -BYTE # 28 -PORT # 133 -BYTE # 29 -PORT # 133 -BYTE # 30 -PORT # 133 -BYTE # 31 -PORT # 133 -BYTE # 32 -PORT # 133 -BYTE # 33 -PORT # 133 -BYTE # 34 -PORT # 133 -BYTE # 35 -PORT # 133 -BYTE # 36 -PORT # 133 -BYTE # 37 -PORT # 133 -BYTE # 38 -PORT # 133 -BYTE # 39 -PORT # 133 -BYTE # 40 -PORT # 133 -BYTE # 41 -PORT # 133 -BYTE # 42 -PORT # 133 -BYTE # 43 -PORT # 133 -BYTE # 44 -PORT # 133 -BYTE # 45 -PORT # 133 -BYTE # 46 -PORT # 133 -BYTE # 47 -PORT # 133 -BYTE # 48 -PORT # 133 -BYTE # 49 -PORT # 133 -BYTE # 50 -PORT # 133 -BYTE # 51 -PORT # 133 -BYTE # 52 -PORT # 133 -BYTE # 53 -PORT # 133 -BYTE # 54 -PORT # 133 -BYTE # 55 -PORT # 133 -BYTE # 56 -PORT # 133 -BYTE # 57 -PORT # 133 -BYTE # 58 -PORT # 133 -BYTE # 59 -PORT # 133 -BYTE # 60 -PORT # 133 -BYTE # 61 -PORT # 133 -BYTE # 62 -PORT # 133 -BYTE # 63 -PORT # 133 -BYTE # 64 -PORT # 133 -BYTE # 65 -PORT # 133 -BYTE # 66 -PORT # 133 -BYTE # 67 -PORT # 133 -BYTE # 68 -PORT # 133 -BYTE # 69 -PORT # 133 -BYTE # 70 -PORT # 133 -BYTE # 71 -PORT # 133 -BYTE # 72 -PORT # 133 -BYTE # 73 -PORT # 133 -BYTE # 74 -PORT # 133 -BYTE # 75 -PORT # 133 -BYTE # 76 -PORT # 133 -BYTE # 77 -PORT # 133 -BYTE # 78 -PORT # 133 -BYTE # 79 -PORT # 133 -BYTE # 80 -PORT # 133 -BYTE # 81 -PORT # 133 -BYTE # 82 -PORT # 133 -BYTE # 83 -PORT # 133 -BYTE # 84 -PORT # 133 -BYTE # 85 -PORT # 133 -BYTE # 86 -PORT # 133 -BYTE # 87 -PORT # 133 -BYTE # 88 -PORT # 133 -BYTE # 89 -PORT # 133 -BYTE # 90 -PORT # 133 -BYTE # 91 -PORT # 133 -BYTE # 92 -PORT # 133 -BYTE # 93 -PORT # 133 -BYTE # 94 -PORT # 133 -BYTE # 95 -PORT # 133 -BYTE # 96 -PORT # 133 -BYTE # 97 -PORT # 133 -BYTE # 98 -PORT # 133 -BYTE # 99 -PORT # 133 -BYTE # 100 -PORT # 133 -BYTE # 101 -PORT # 133 -BYTE # 102 -PORT # 133 -BYTE # 103 -PORT # 133 -BYTE # 104 -PORT # 133 -BYTE # 105 -PORT # 133 -BYTE # 106 -PORT # 133 -BYTE # 107 -PORT # 133 -BYTE # 108 -PORT # 133 -BYTE # 109 -PORT # 133 -BYTE # 110 -PORT # 133 -BYTE # 111 -PORT # 133 -BYTE # 112 -PORT # 133 -BYTE # 113 -PORT # 133 -BYTE # 114 -PORT # 133 -BYTE # 115 -PORT # 133 -BYTE # 116 -PORT # 133 -BYTE # 117 -PORT # 133 -BYTE # 118 -PORT # 133 -BYTE # 119 -PORT # 133 -BYTE # 120 -PORT # 133 -BYTE # 121 -PORT # 133 -BYTE # 122 -PORT # 133 -BYTE # 123 -PORT # 133 -BYTE # 124 -PORT # 133 -BYTE # 125 -PORT # 133 -BYTE # 126 -PORT # 133 -BYTE # 127 -PORT # 133 -BYTE # 128 -PORT # 133 -BYTE # 129 -PORT # 133 -BYTE # 130 -PORT # 133 -BYTE # 131 -PORT # 133 -BYTE # 132 -PORT # 133 -BYTE # 133 -PORT # 133 -BYTE # 134 -PORT # 133 -BYTE # 135 -PORT # 133 -BYTE # 136 -PORT # 133 -BYTE # 137 -PORT # 133 -BYTE # 138 -PORT # 133 -BYTE # 139 -PORT # 133 -BYTE # 140 -PORT # 133 -BYTE # 141 -PORT # 133 -BYTE # 142 -PORT # 133 -BYTE # 143 -PORT # 133 -BYTE # 144 -PORT # 133 -BYTE # 145 -PORT # 133 -BYTE # 146 -PORT # 133 -BYTE # 147 -PORT # 133 -BYTE # 148 -PORT # 133 -BYTE # 149 -PORT # 133 -BYTE # 150 -PORT # 133 -BYTE # 151 -PORT # 133 -BYTE # 152 -PORT # 133 -BYTE # 153 -PORT # 133 -BYTE # 154 -PORT # 133 -BYTE # 155 -PORT # 133 -BYTE # 156 -PORT # 133 -BYTE # 157 -PORT # 133 -BYTE # 158 -PORT # 133 -BYTE # 159 -PORT # 133 -BYTE # 160 -PORT # 133 -BYTE # 161 -PORT # 133 -BYTE # 162 -PORT # 133 -BYTE # 163 -PORT # 133 -BYTE # 164 -PORT # 133 -BYTE # 165 -PORT # 133 -BYTE # 166 -PORT # 133 -BYTE # 167 -PORT # 133 -BYTE # 168 -PORT # 133 -BYTE # 169 -PORT # 133 -BYTE # 170 -PORT # 133 -BYTE # 171 -PORT # 133 -BYTE # 172 -PORT # 133 -BYTE # 173 -PORT # 133 -BYTE # 174 -PORT # 133 -BYTE # 175 -PORT # 133 -BYTE # 176 -PORT # 133 -BYTE # 177 -PORT # 133 -BYTE # 178 -PORT # 133 -BYTE # 179 -PORT # 133 -BYTE # 180 -PORT # 133 -BYTE # 181 -PORT # 133 -BYTE # 182 -PORT # 133 -BYTE # 183 -PORT # 133 -BYTE # 184 -PORT # 133 -BYTE # 185 -PORT # 133 -BYTE # 186 -PORT # 133 -BYTE # 187 -PORT # 133 -BYTE # 188 -PORT # 133 -BYTE # 189 -PORT # 133 -BYTE # 190 -PORT # 133 -BYTE # 191 -PORT # 133 -BYTE # 192 -PORT # 133 -BYTE # 193 -PORT # 133 -BYTE # 194 -PORT # 133 -BYTE # 195 -PORT # 133 -BYTE # 196 -PORT # 133 -BYTE # 197 -PORT # 133 -BYTE # 198 -PORT # 133 -BYTE # 199 -PORT # 133 -BYTE # 200 -PORT # 133 -BYTE # 201 -PORT # 133 -BYTE # 202 -PORT # 133 -BYTE # 203 -PORT # 133 -BYTE # 204 -PORT # 133 -BYTE # 205 -PORT # 133 -BYTE # 206 -PORT # 133 -BYTE # 207 -PORT # 133 -BYTE # 208 -PORT # 133 -BYTE # 209 -PORT # 133 -BYTE # 210 -PORT # 133 -BYTE # 211 -PORT # 133 -BYTE # 212 -PORT # 133 -BYTE # 213 -PORT # 133 -BYTE # 214 -PORT # 133 -BYTE # 215 -PORT # 133 -BYTE # 216 -PORT # 133 -BYTE # 217 -PORT # 133 -BYTE # 218 -PORT # 133 -BYTE # 219 -PORT # 133 -BYTE # 220 -PORT # 133 -BYTE # 221 -PORT # 133 -BYTE # 222 -PORT # 133 -BYTE # 223 -PORT # 133 -BYTE # 224 -PORT # 133 -BYTE # 225 -PORT # 133 -BYTE # 226 -PORT # 133 -BYTE # 227 -PORT # 133 -BYTE # 228 -PORT # 133 -BYTE # 229 -PORT # 133 -BYTE # 230 -PORT # 133 -BYTE # 231 -PORT # 133 -BYTE # 232 -PORT # 133 -BYTE # 233 -PORT # 133 -BYTE # 234 -PORT # 133 -BYTE # 235 -PORT # 133 -BYTE # 236 -PORT # 133 -BYTE # 237 -PORT # 133 -BYTE # 238 -PORT # 133 -BYTE # 239 -PORT # 133 -BYTE # 240 -PORT # 133 -BYTE # 241 -PORT # 133 -BYTE # 242 -PORT # 133 -BYTE # 243 -PORT # 133 -BYTE # 244 -PORT # 133 -BYTE # 245 -PORT # 133 -BYTE # 246 -PORT # 133 -BYTE # 247 -PORT # 133 -BYTE # 248 -PORT # 133 -BYTE # 249 -PORT # 133 -BYTE # 250 -PORT # 133 -BYTE # 251 -PORT # 133 -BYTE # 252 -PORT # 133 -BYTE # 253 -PORT # 133 -BYTE # 254 -PORT # 133 -BYTE # 255 -PORT # 134 -BYTE # 0 -PORT # 134 -BYTE # 1 -PORT # 134 -BYTE # 2 -PORT # 134 -BYTE # 3 -PORT # 134 -BYTE # 4 -PORT # 134 -BYTE # 5 -PORT # 134 -BYTE # 6 -PORT # 134 -BYTE # 7 -PORT # 134 -BYTE # 8 -PORT # 134 -BYTE # 9 -PORT # 134 -BYTE # 10 -PORT # 134 -BYTE # 11 -PORT # 134 -BYTE # 12 -PORT # 134 -BYTE # 13 -PORT # 134 -BYTE # 14 -PORT # 134 -BYTE # 15 -PORT # 134 -BYTE # 16 -PORT # 134 -BYTE # 17 -PORT # 134 -BYTE # 18 -PORT # 134 -BYTE # 19 -PORT # 134 -BYTE # 20 -PORT # 134 -BYTE # 21 -PORT # 134 -BYTE # 22 -PORT # 134 -BYTE # 23 -PORT # 134 -BYTE # 24 -PORT # 134 -BYTE # 25 -PORT # 134 -BYTE # 26 -PORT # 134 -BYTE # 27 -PORT # 134 -BYTE # 28 -PORT # 134 -BYTE # 29 -PORT # 134 -BYTE # 30 -PORT # 134 -BYTE # 31 -PORT # 134 -BYTE # 32 -PORT # 134 -BYTE # 33 -PORT # 134 -BYTE # 34 -PORT # 134 -BYTE # 35 -PORT # 134 -BYTE # 36 -PORT # 134 -BYTE # 37 -PORT # 134 -BYTE # 38 -PORT # 134 -BYTE # 39 -PORT # 134 -BYTE # 40 -PORT # 134 -BYTE # 41 -PORT # 134 -BYTE # 42 -PORT # 134 -BYTE # 43 -PORT # 134 -BYTE # 44 -PORT # 134 -BYTE # 45 -PORT # 134 -BYTE # 46 -PORT # 134 -BYTE # 47 -PORT # 134 -BYTE # 48 -PORT # 134 -BYTE # 49 -PORT # 134 -BYTE # 50 -PORT # 134 -BYTE # 51 -PORT # 134 -BYTE # 52 -PORT # 134 -BYTE # 53 -PORT # 134 -BYTE # 54 -PORT # 134 -BYTE # 55 -PORT # 134 -BYTE # 56 -PORT # 134 -BYTE # 57 -PORT # 134 -BYTE # 58 -PORT # 134 -BYTE # 59 -PORT # 134 -BYTE # 60 -PORT # 134 -BYTE # 61 -PORT # 134 -BYTE # 62 -PORT # 134 -BYTE # 63 -PORT # 134 -BYTE # 64 -PORT # 134 -BYTE # 65 -PORT # 134 -BYTE # 66 -PORT # 134 -BYTE # 67 -PORT # 134 -BYTE # 68 -PORT # 134 -BYTE # 69 -PORT # 134 -BYTE # 70 -PORT # 134 -BYTE # 71 -PORT # 134 -BYTE # 72 -PORT # 134 -BYTE # 73 -PORT # 134 -BYTE # 74 -PORT # 134 -BYTE # 75 -PORT # 134 -BYTE # 76 -PORT # 134 -BYTE # 77 -PORT # 134 -BYTE # 78 -PORT # 134 -BYTE # 79 -PORT # 134 -BYTE # 80 -PORT # 134 -BYTE # 81 -PORT # 134 -BYTE # 82 -PORT # 134 -BYTE # 83 -PORT # 134 -BYTE # 84 -PORT # 134 -BYTE # 85 -PORT # 134 -BYTE # 86 -PORT # 134 -BYTE # 87 -PORT # 134 -BYTE # 88 -PORT # 134 -BYTE # 89 -PORT # 134 -BYTE # 90 -PORT # 134 -BYTE # 91 -PORT # 134 -BYTE # 92 -PORT # 134 -BYTE # 93 -PORT # 134 -BYTE # 94 -PORT # 134 -BYTE # 95 -PORT # 134 -BYTE # 96 -PORT # 134 -BYTE # 97 -PORT # 134 -BYTE # 98 -PORT # 134 -BYTE # 99 -PORT # 134 -BYTE # 100 -PORT # 134 -BYTE # 101 -PORT # 134 -BYTE # 102 -PORT # 134 -BYTE # 103 -PORT # 134 -BYTE # 104 -PORT # 134 -BYTE # 105 -PORT # 134 -BYTE # 106 -PORT # 134 -BYTE # 107 -PORT # 134 -BYTE # 108 -PORT # 134 -BYTE # 109 -PORT # 134 -BYTE # 110 -PORT # 134 -BYTE # 111 -PORT # 134 -BYTE # 112 -PORT # 134 -BYTE # 113 -PORT # 134 -BYTE # 114 -PORT # 134 -BYTE # 115 -PORT # 134 -BYTE # 116 -PORT # 134 -BYTE # 117 -PORT # 134 -BYTE # 118 -PORT # 134 -BYTE # 119 -PORT # 134 -BYTE # 120 -PORT # 134 -BYTE # 121 -PORT # 134 -BYTE # 122 -PORT # 134 -BYTE # 123 -PORT # 134 -BYTE # 124 -PORT # 134 -BYTE # 125 -PORT # 134 -BYTE # 126 -PORT # 134 -BYTE # 127 -PORT # 134 -BYTE # 128 -PORT # 134 -BYTE # 129 -PORT # 134 -BYTE # 130 -PORT # 134 -BYTE # 131 -PORT # 134 -BYTE # 132 -PORT # 134 -BYTE # 133 -PORT # 134 -BYTE # 134 -PORT # 134 -BYTE # 135 -PORT # 134 -BYTE # 136 -PORT # 134 -BYTE # 137 -PORT # 134 -BYTE # 138 -PORT # 134 -BYTE # 139 -PORT # 134 -BYTE # 140 -PORT # 134 -BYTE # 141 -PORT # 134 -BYTE # 142 -PORT # 134 -BYTE # 143 -PORT # 134 -BYTE # 144 -PORT # 134 -BYTE # 145 -PORT # 134 -BYTE # 146 -PORT # 134 -BYTE # 147 -PORT # 134 -BYTE # 148 -PORT # 134 -BYTE # 149 -PORT # 134 -BYTE # 150 -PORT # 134 -BYTE # 151 -PORT # 134 -BYTE # 152 -PORT # 134 -BYTE # 153 -PORT # 134 -BYTE # 154 -PORT # 134 -BYTE # 155 -PORT # 134 -BYTE # 156 -PORT # 134 -BYTE # 157 -PORT # 134 -BYTE # 158 -PORT # 134 -BYTE # 159 -PORT # 134 -BYTE # 160 -PORT # 134 -BYTE # 161 -PORT # 134 -BYTE # 162 -PORT # 134 -BYTE # 163 -PORT # 134 -BYTE # 164 -PORT # 134 -BYTE # 165 -PORT # 134 -BYTE # 166 -PORT # 134 -BYTE # 167 -PORT # 134 -BYTE # 168 -PORT # 134 -BYTE # 169 -PORT # 134 -BYTE # 170 -PORT # 134 -BYTE # 171 -PORT # 134 -BYTE # 172 -PORT # 134 -BYTE # 173 -PORT # 134 -BYTE # 174 -PORT # 134 -BYTE # 175 -PORT # 134 -BYTE # 176 -PORT # 134 -BYTE # 177 -PORT # 134 -BYTE # 178 -PORT # 134 -BYTE # 179 -PORT # 134 -BYTE # 180 -PORT # 134 -BYTE # 181 -PORT # 134 -BYTE # 182 -PORT # 134 -BYTE # 183 -PORT # 134 -BYTE # 184 -PORT # 134 -BYTE # 185 -PORT # 134 -BYTE # 186 -PORT # 134 -BYTE # 187 -PORT # 134 -BYTE # 188 -PORT # 134 -BYTE # 189 -PORT # 134 -BYTE # 190 -PORT # 134 -BYTE # 191 -PORT # 134 -BYTE # 192 -PORT # 134 -BYTE # 193 -PORT # 134 -BYTE # 194 -PORT # 134 -BYTE # 195 -PORT # 134 -BYTE # 196 -PORT # 134 -BYTE # 197 -PORT # 134 -BYTE # 198 -PORT # 134 -BYTE # 199 -PORT # 134 -BYTE # 200 -PORT # 134 -BYTE # 201 -PORT # 134 -BYTE # 202 -PORT # 134 -BYTE # 203 -PORT # 134 -BYTE # 204 -PORT # 134 -BYTE # 205 -PORT # 134 -BYTE # 206 -PORT # 134 -BYTE # 207 -PORT # 134 -BYTE # 208 -PORT # 134 -BYTE # 209 -PORT # 134 -BYTE # 210 -PORT # 134 -BYTE # 211 -PORT # 134 -BYTE # 212 -PORT # 134 -BYTE # 213 -PORT # 134 -BYTE # 214 -PORT # 134 -BYTE # 215 -PORT # 134 -BYTE # 216 -PORT # 134 -BYTE # 217 -PORT # 134 -BYTE # 218 -PORT # 134 -BYTE # 219 -PORT # 134 -BYTE # 220 -PORT # 134 -BYTE # 221 -PORT # 134 -BYTE # 222 -PORT # 134 -BYTE # 223 -PORT # 134 -BYTE # 224 -PORT # 134 -BYTE # 225 -PORT # 134 -BYTE # 226 -PORT # 134 -BYTE # 227 -PORT # 134 -BYTE # 228 -PORT # 134 -BYTE # 229 -PORT # 134 -BYTE # 230 -PORT # 134 -BYTE # 231 -PORT # 134 -BYTE # 232 -PORT # 134 -BYTE # 233 -PORT # 134 -BYTE # 234 -PORT # 134 -BYTE # 235 -PORT # 134 -BYTE # 236 -PORT # 134 -BYTE # 237 -PORT # 134 -BYTE # 238 -PORT # 134 -BYTE # 239 -PORT # 134 -BYTE # 240 -PORT # 134 -BYTE # 241 -PORT # 134 -BYTE # 242 -PORT # 134 -BYTE # 243 -PORT # 134 -BYTE # 244 -PORT # 134 -BYTE # 245 -PORT # 134 -BYTE # 246 -PORT # 134 -BYTE # 247 -PORT # 134 -BYTE # 248 -PORT # 134 -BYTE # 249 -PORT # 134 -BYTE # 250 -PORT # 134 -BYTE # 251 -PORT # 134 -BYTE # 252 -PORT # 134 -BYTE # 253 -PORT # 134 -BYTE # 254 -PORT # 134 -BYTE # 255 -PORT # 135 -BYTE # 0 -PORT # 135 -BYTE # 1 -PORT # 135 -BYTE # 2 -PORT # 135 -BYTE # 3 -PORT # 135 -BYTE # 4 -PORT # 135 -BYTE # 5 -PORT # 135 -BYTE # 6 -PORT # 135 -BYTE # 7 -PORT # 135 -BYTE # 8 -PORT # 135 -BYTE # 9 -PORT # 135 -BYTE # 10 -PORT # 135 -BYTE # 11 -PORT # 135 -BYTE # 12 -PORT # 135 -BYTE # 13 -PORT # 135 -BYTE # 14 -PORT # 135 -BYTE # 15 -PORT # 135 -BYTE # 16 -PORT # 135 -BYTE # 17 -PORT # 135 -BYTE # 18 -PORT # 135 -BYTE # 19 -PORT # 135 -BYTE # 20 -PORT # 135 -BYTE # 21 -PORT # 135 -BYTE # 22 -PORT # 135 -BYTE # 23 -PORT # 135 -BYTE # 24 -PORT # 135 -BYTE # 25 -PORT # 135 -BYTE # 26 -PORT # 135 -BYTE # 27 -PORT # 135 -BYTE # 28 -PORT # 135 -BYTE # 29 -PORT # 135 -BYTE # 30 -PORT # 135 -BYTE # 31 -PORT # 135 -BYTE # 32 -PORT # 135 -BYTE # 33 -PORT # 135 -BYTE # 34 -PORT # 135 -BYTE # 35 -PORT # 135 -BYTE # 36 -PORT # 135 -BYTE # 37 -PORT # 135 -BYTE # 38 -PORT # 135 -BYTE # 39 -PORT # 135 -BYTE # 40 -PORT # 135 -BYTE # 41 -PORT # 135 -BYTE # 42 -PORT # 135 -BYTE # 43 -PORT # 135 -BYTE # 44 -PORT # 135 -BYTE # 45 -PORT # 135 -BYTE # 46 -PORT # 135 -BYTE # 47 -PORT # 135 -BYTE # 48 -PORT # 135 -BYTE # 49 -PORT # 135 -BYTE # 50 -PORT # 135 -BYTE # 51 -PORT # 135 -BYTE # 52 -PORT # 135 -BYTE # 53 -PORT # 135 -BYTE # 54 -PORT # 135 -BYTE # 55 -PORT # 135 -BYTE # 56 -PORT # 135 -BYTE # 57 -PORT # 135 -BYTE # 58 -PORT # 135 -BYTE # 59 -PORT # 135 -BYTE # 60 -PORT # 135 -BYTE # 61 -PORT # 135 -BYTE # 62 -PORT # 135 -BYTE # 63 -PORT # 135 -BYTE # 64 -PORT # 135 -BYTE # 65 -PORT # 135 -BYTE # 66 -PORT # 135 -BYTE # 67 -PORT # 135 -BYTE # 68 -PORT # 135 -BYTE # 69 -PORT # 135 -BYTE # 70 -PORT # 135 -BYTE # 71 -PORT # 135 -BYTE # 72 -PORT # 135 -BYTE # 73 -PORT # 135 -BYTE # 74 -PORT # 135 -BYTE # 75 -PORT # 135 -BYTE # 76 -PORT # 135 -BYTE # 77 -PORT # 135 -BYTE # 78 -PORT # 135 -BYTE # 79 -PORT # 135 -BYTE # 80 -PORT # 135 -BYTE # 81 -PORT # 135 -BYTE # 82 -PORT # 135 -BYTE # 83 -PORT # 135 -BYTE # 84 -PORT # 135 -BYTE # 85 -PORT # 135 -BYTE # 86 -PORT # 135 -BYTE # 87 -PORT # 135 -BYTE # 88 -PORT # 135 -BYTE # 89 -PORT # 135 -BYTE # 90 -PORT # 135 -BYTE # 91 -PORT # 135 -BYTE # 92 -PORT # 135 -BYTE # 93 -PORT # 135 -BYTE # 94 -PORT # 135 -BYTE # 95 -PORT # 135 -BYTE # 96 -PORT # 135 -BYTE # 97 -PORT # 135 -BYTE # 98 -PORT # 135 -BYTE # 99 -PORT # 135 -BYTE # 100 -PORT # 135 -BYTE # 101 -PORT # 135 -BYTE # 102 -PORT # 135 -BYTE # 103 -PORT # 135 -BYTE # 104 -PORT # 135 -BYTE # 105 -PORT # 135 -BYTE # 106 -PORT # 135 -BYTE # 107 -PORT # 135 -BYTE # 108 -PORT # 135 -BYTE # 109 -PORT # 135 -BYTE # 110 -PORT # 135 -BYTE # 111 -PORT # 135 -BYTE # 112 -PORT # 135 -BYTE # 113 -PORT # 135 -BYTE # 114 -PORT # 135 -BYTE # 115 -PORT # 135 -BYTE # 116 -PORT # 135 -BYTE # 117 -PORT # 135 -BYTE # 118 -PORT # 135 -BYTE # 119 -PORT # 135 -BYTE # 120 -PORT # 135 -BYTE # 121 -PORT # 135 -BYTE # 122 -PORT # 135 -BYTE # 123 -PORT # 135 -BYTE # 124 -PORT # 135 -BYTE # 125 -PORT # 135 -BYTE # 126 -PORT # 135 -BYTE # 127 -PORT # 135 -BYTE # 128 -PORT # 135 -BYTE # 129 -PORT # 135 -BYTE # 130 -PORT # 135 -BYTE # 131 -PORT # 135 -BYTE # 132 -PORT # 135 -BYTE # 133 -PORT # 135 -BYTE # 134 -PORT # 135 -BYTE # 135 -PORT # 135 -BYTE # 136 -PORT # 135 -BYTE # 137 -PORT # 135 -BYTE # 138 -PORT # 135 -BYTE # 139 -PORT # 135 -BYTE # 140 -PORT # 135 -BYTE # 141 -PORT # 135 -BYTE # 142 -PORT # 135 -BYTE # 143 -PORT # 135 -BYTE # 144 -PORT # 135 -BYTE # 145 -PORT # 135 -BYTE # 146 -PORT # 135 -BYTE # 147 -PORT # 135 -BYTE # 148 -PORT # 135 -BYTE # 149 -PORT # 135 -BYTE # 150 -PORT # 135 -BYTE # 151 -PORT # 135 -BYTE # 152 -PORT # 135 -BYTE # 153 -PORT # 135 -BYTE # 154 -PORT # 135 -BYTE # 155 -PORT # 135 -BYTE # 156 -PORT # 135 -BYTE # 157 -PORT # 135 -BYTE # 158 -PORT # 135 -BYTE # 159 -PORT # 135 -BYTE # 160 -PORT # 135 -BYTE # 161 -PORT # 135 -BYTE # 162 -PORT # 135 -BYTE # 163 -PORT # 135 -BYTE # 164 -PORT # 135 -BYTE # 165 -PORT # 135 -BYTE # 166 -PORT # 135 -BYTE # 167 -PORT # 135 -BYTE # 168 -PORT # 135 -BYTE # 169 -PORT # 135 -BYTE # 170 -PORT # 135 -BYTE # 171 -PORT # 135 -BYTE # 172 -PORT # 135 -BYTE # 173 -PORT # 135 -BYTE # 174 -PORT # 135 -BYTE # 175 -PORT # 135 -BYTE # 176 -PORT # 135 -BYTE # 177 -PORT # 135 -BYTE # 178 -PORT # 135 -BYTE # 179 -PORT # 135 -BYTE # 180 -PORT # 135 -BYTE # 181 -PORT # 135 -BYTE # 182 -PORT # 135 -BYTE # 183 -PORT # 135 -BYTE # 184 -PORT # 135 -BYTE # 185 -PORT # 135 -BYTE # 186 -PORT # 135 -BYTE # 187 -PORT # 135 -BYTE # 188 -PORT # 135 -BYTE # 189 -PORT # 135 -BYTE # 190 -PORT # 135 -BYTE # 191 -PORT # 135 -BYTE # 192 -PORT # 135 -BYTE # 193 -PORT # 135 -BYTE # 194 -PORT # 135 -BYTE # 195 -PORT # 135 -BYTE # 196 -PORT # 135 -BYTE # 197 -PORT # 135 -BYTE # 198 -PORT # 135 -BYTE # 199 -PORT # 135 -BYTE # 200 -PORT # 135 -BYTE # 201 -PORT # 135 -BYTE # 202 -PORT # 135 -BYTE # 203 -PORT # 135 -BYTE # 204 -PORT # 135 -BYTE # 205 -PORT # 135 -BYTE # 206 -PORT # 135 -BYTE # 207 -PORT # 135 -BYTE # 208 -PORT # 135 -BYTE # 209 -PORT # 135 -BYTE # 210 -PORT # 135 -BYTE # 211 -PORT # 135 -BYTE # 212 -PORT # 135 -BYTE # 213 -PORT # 135 -BYTE # 214 -PORT # 135 -BYTE # 215 -PORT # 135 -BYTE # 216 -PORT # 135 -BYTE # 217 -PORT # 135 -BYTE # 218 -PORT # 135 -BYTE # 219 -PORT # 135 -BYTE # 220 -PORT # 135 -BYTE # 221 -PORT # 135 -BYTE # 222 -PORT # 135 -BYTE # 223 -PORT # 135 -BYTE # 224 -PORT # 135 -BYTE # 225 -PORT # 135 -BYTE # 226 -PORT # 135 -BYTE # 227 -PORT # 135 -BYTE # 228 -PORT # 135 -BYTE # 229 -PORT # 135 -BYTE # 230 -PORT # 135 -BYTE # 231 -PORT # 135 -BYTE # 232 -PORT # 135 -BYTE # 233 -PORT # 135 -BYTE # 234 -PORT # 135 -BYTE # 235 -PORT # 135 -BYTE # 236 -PORT # 135 -BYTE # 237 -PORT # 135 -BYTE # 238 -PORT # 135 -BYTE # 239 -PORT # 135 -BYTE # 240 -PORT # 135 -BYTE # 241 -PORT # 135 -BYTE # 242 -PORT # 135 -BYTE # 243 -PORT # 135 -BYTE # 244 -PORT # 135 -BYTE # 245 -PORT # 135 -BYTE # 246 -PORT # 135 -BYTE # 247 -PORT # 135 -BYTE # 248 -PORT # 135 -BYTE # 249 -PORT # 135 -BYTE # 250 -PORT # 135 -BYTE # 251 -PORT # 135 -BYTE # 252 -PORT # 135 -BYTE # 253 -PORT # 135 -BYTE # 254 -PORT # 135 -BYTE # 255 -PORT # 136 -BYTE # 0 -PORT # 136 -BYTE # 1 -PORT # 136 -BYTE # 2 -PORT # 136 -BYTE # 3 -PORT # 136 -BYTE # 4 -PORT # 136 -BYTE # 5 -PORT # 136 -BYTE # 6 -PORT # 136 -BYTE # 7 -PORT # 136 -BYTE # 8 -PORT # 136 -BYTE # 9 -PORT # 136 -BYTE # 10 -PORT # 136 -BYTE # 11 -PORT # 136 -BYTE # 12 -PORT # 136 -BYTE # 13 -PORT # 136 -BYTE # 14 -PORT # 136 -BYTE # 15 -PORT # 136 -BYTE # 16 -PORT # 136 -BYTE # 17 -PORT # 136 -BYTE # 18 -PORT # 136 -BYTE # 19 -PORT # 136 -BYTE # 20 -PORT # 136 -BYTE # 21 -PORT # 136 -BYTE # 22 -PORT # 136 -BYTE # 23 -PORT # 136 -BYTE # 24 -PORT # 136 -BYTE # 25 -PORT # 136 -BYTE # 26 -PORT # 136 -BYTE # 27 -PORT # 136 -BYTE # 28 -PORT # 136 -BYTE # 29 -PORT # 136 -BYTE # 30 -PORT # 136 -BYTE # 31 -PORT # 136 -BYTE # 32 -PORT # 136 -BYTE # 33 -PORT # 136 -BYTE # 34 -PORT # 136 -BYTE # 35 -PORT # 136 -BYTE # 36 -PORT # 136 -BYTE # 37 -PORT # 136 -BYTE # 38 -PORT # 136 -BYTE # 39 -PORT # 136 -BYTE # 40 -PORT # 136 -BYTE # 41 -PORT # 136 -BYTE # 42 -PORT # 136 -BYTE # 43 -PORT # 136 -BYTE # 44 -PORT # 136 -BYTE # 45 -PORT # 136 -BYTE # 46 -PORT # 136 -BYTE # 47 -PORT # 136 -BYTE # 48 -PORT # 136 -BYTE # 49 -PORT # 136 -BYTE # 50 -PORT # 136 -BYTE # 51 -PORT # 136 -BYTE # 52 -PORT # 136 -BYTE # 53 -PORT # 136 -BYTE # 54 -PORT # 136 -BYTE # 55 -PORT # 136 -BYTE # 56 -PORT # 136 -BYTE # 57 -PORT # 136 -BYTE # 58 -PORT # 136 -BYTE # 59 -PORT # 136 -BYTE # 60 -PORT # 136 -BYTE # 61 -PORT # 136 -BYTE # 62 -PORT # 136 -BYTE # 63 -PORT # 136 -BYTE # 64 -PORT # 136 -BYTE # 65 -PORT # 136 -BYTE # 66 -PORT # 136 -BYTE # 67 -PORT # 136 -BYTE # 68 -PORT # 136 -BYTE # 69 -PORT # 136 -BYTE # 70 -PORT # 136 -BYTE # 71 -PORT # 136 -BYTE # 72 -PORT # 136 -BYTE # 73 -PORT # 136 -BYTE # 74 -PORT # 136 -BYTE # 75 -PORT # 136 -BYTE # 76 -PORT # 136 -BYTE # 77 -PORT # 136 -BYTE # 78 -PORT # 136 -BYTE # 79 -PORT # 136 -BYTE # 80 -PORT # 136 -BYTE # 81 -PORT # 136 -BYTE # 82 -PORT # 136 -BYTE # 83 -PORT # 136 -BYTE # 84 -PORT # 136 -BYTE # 85 -PORT # 136 -BYTE # 86 -PORT # 136 -BYTE # 87 -PORT # 136 -BYTE # 88 -PORT # 136 -BYTE # 89 -PORT # 136 -BYTE # 90 -PORT # 136 -BYTE # 91 -PORT # 136 -BYTE # 92 -PORT # 136 -BYTE # 93 -PORT # 136 -BYTE # 94 -PORT # 136 -BYTE # 95 -PORT # 136 -BYTE # 96 -PORT # 136 -BYTE # 97 -PORT # 136 -BYTE # 98 -PORT # 136 -BYTE # 99 -PORT # 136 -BYTE # 100 -PORT # 136 -BYTE # 101 -PORT # 136 -BYTE # 102 -PORT # 136 -BYTE # 103 -PORT # 136 -BYTE # 104 -PORT # 136 -BYTE # 105 -PORT # 136 -BYTE # 106 -PORT # 136 -BYTE # 107 -PORT # 136 -BYTE # 108 -PORT # 136 -BYTE # 109 -PORT # 136 -BYTE # 110 -PORT # 136 -BYTE # 111 -PORT # 136 -BYTE # 112 -PORT # 136 -BYTE # 113 -PORT # 136 -BYTE # 114 -PORT # 136 -BYTE # 115 -PORT # 136 -BYTE # 116 -PORT # 136 -BYTE # 117 -PORT # 136 -BYTE # 118 -PORT # 136 -BYTE # 119 -PORT # 136 -BYTE # 120 -PORT # 136 -BYTE # 121 -PORT # 136 -BYTE # 122 -PORT # 136 -BYTE # 123 -PORT # 136 -BYTE # 124 -PORT # 136 -BYTE # 125 -PORT # 136 -BYTE # 126 -PORT # 136 -BYTE # 127 -PORT # 136 -BYTE # 128 -PORT # 136 -BYTE # 129 -PORT # 136 -BYTE # 130 -PORT # 136 -BYTE # 131 -PORT # 136 -BYTE # 132 -PORT # 136 -BYTE # 133 -PORT # 136 -BYTE # 134 -PORT # 136 -BYTE # 135 -PORT # 136 -BYTE # 136 -PORT # 136 -BYTE # 137 -PORT # 136 -BYTE # 138 -PORT # 136 -BYTE # 139 -PORT # 136 -BYTE # 140 -PORT # 136 -BYTE # 141 -PORT # 136 -BYTE # 142 -PORT # 136 -BYTE # 143 -PORT # 136 -BYTE # 144 -PORT # 136 -BYTE # 145 -PORT # 136 -BYTE # 146 -PORT # 136 -BYTE # 147 -PORT # 136 -BYTE # 148 -PORT # 136 -BYTE # 149 -PORT # 136 -BYTE # 150 -PORT # 136 -BYTE # 151 -PORT # 136 -BYTE # 152 -PORT # 136 -BYTE # 153 -PORT # 136 -BYTE # 154 -PORT # 136 -BYTE # 155 -PORT # 136 -BYTE # 156 -PORT # 136 -BYTE # 157 -PORT # 136 -BYTE # 158 -PORT # 136 -BYTE # 159 -PORT # 136 -BYTE # 160 -PORT # 136 -BYTE # 161 -PORT # 136 -BYTE # 162 -PORT # 136 -BYTE # 163 -PORT # 136 -BYTE # 164 -PORT # 136 -BYTE # 165 -PORT # 136 -BYTE # 166 -PORT # 136 -BYTE # 167 -PORT # 136 -BYTE # 168 -PORT # 136 -BYTE # 169 -PORT # 136 -BYTE # 170 -PORT # 136 -BYTE # 171 -PORT # 136 -BYTE # 172 -PORT # 136 -BYTE # 173 -PORT # 136 -BYTE # 174 -PORT # 136 -BYTE # 175 -PORT # 136 -BYTE # 176 -PORT # 136 -BYTE # 177 -PORT # 136 -BYTE # 178 -PORT # 136 -BYTE # 179 -PORT # 136 -BYTE # 180 -PORT # 136 -BYTE # 181 -PORT # 136 -BYTE # 182 -PORT # 136 -BYTE # 183 -PORT # 136 -BYTE # 184 -PORT # 136 -BYTE # 185 -PORT # 136 -BYTE # 186 -PORT # 136 -BYTE # 187 -PORT # 136 -BYTE # 188 -PORT # 136 -BYTE # 189 -PORT # 136 -BYTE # 190 -PORT # 136 -BYTE # 191 -PORT # 136 -BYTE # 192 -PORT # 136 -BYTE # 193 -PORT # 136 -BYTE # 194 -PORT # 136 -BYTE # 195 -PORT # 136 -BYTE # 196 -PORT # 136 -BYTE # 197 -PORT # 136 -BYTE # 198 -PORT # 136 -BYTE # 199 -PORT # 136 -BYTE # 200 -PORT # 136 -BYTE # 201 -PORT # 136 -BYTE # 202 -PORT # 136 -BYTE # 203 -PORT # 136 -BYTE # 204 -PORT # 136 -BYTE # 205 -PORT # 136 -BYTE # 206 -PORT # 136 -BYTE # 207 -PORT # 136 -BYTE # 208 -PORT # 136 -BYTE # 209 -PORT # 136 -BYTE # 210 -PORT # 136 -BYTE # 211 -PORT # 136 -BYTE # 212 -PORT # 136 -BYTE # 213 -PORT # 136 -BYTE # 214 -PORT # 136 -BYTE # 215 -PORT # 136 -BYTE # 216 -PORT # 136 -BYTE # 217 -PORT # 136 -BYTE # 218 -PORT # 136 -BYTE # 219 -PORT # 136 -BYTE # 220 -PORT # 136 -BYTE # 221 -PORT # 136 -BYTE # 222 -PORT # 136 -BYTE # 223 -PORT # 136 -BYTE # 224 -PORT # 136 -BYTE # 225 -PORT # 136 -BYTE # 226 -PORT # 136 -BYTE # 227 -PORT # 136 -BYTE # 228 -PORT # 136 -BYTE # 229 -PORT # 136 -BYTE # 230 -PORT # 136 -BYTE # 231 -PORT # 136 -BYTE # 232 -PORT # 136 -BYTE # 233 -PORT # 136 -BYTE # 234 -PORT # 136 -BYTE # 235 -PORT # 136 -BYTE # 236 -PORT # 136 -BYTE # 237 -PORT # 136 -BYTE # 238 -PORT # 136 -BYTE # 239 -PORT # 136 -BYTE # 240 -PORT # 136 -BYTE # 241 -PORT # 136 -BYTE # 242 -PORT # 136 -BYTE # 243 -PORT # 136 -BYTE # 244 -PORT # 136 -BYTE # 245 -PORT # 136 -BYTE # 246 -PORT # 136 -BYTE # 247 -PORT # 136 -BYTE # 248 -PORT # 136 -BYTE # 249 -PORT # 136 -BYTE # 250 -PORT # 136 -BYTE # 251 -PORT # 136 -BYTE # 252 -PORT # 136 -BYTE # 253 -PORT # 136 -BYTE # 254 -PORT # 136 -BYTE # 255 -PORT # 137 -BYTE # 0 -PORT # 137 -BYTE # 1 -PORT # 137 -BYTE # 2 -PORT # 137 -BYTE # 3 -PORT # 137 -BYTE # 4 -PORT # 137 -BYTE # 5 -PORT # 137 -BYTE # 6 -PORT # 137 -BYTE # 7 -PORT # 137 -BYTE # 8 -PORT # 137 -BYTE # 9 -PORT # 137 -BYTE # 10 -PORT # 137 -BYTE # 11 -PORT # 137 -BYTE # 12 -PORT # 137 -BYTE # 13 -PORT # 137 -BYTE # 14 -PORT # 137 -BYTE # 15 -PORT # 137 -BYTE # 16 -PORT # 137 -BYTE # 17 -PORT # 137 -BYTE # 18 -PORT # 137 -BYTE # 19 -PORT # 137 -BYTE # 20 -PORT # 137 -BYTE # 21 -PORT # 137 -BYTE # 22 -PORT # 137 -BYTE # 23 -PORT # 137 -BYTE # 24 -PORT # 137 -BYTE # 25 -PORT # 137 -BYTE # 26 -PORT # 137 -BYTE # 27 -PORT # 137 -BYTE # 28 -PORT # 137 -BYTE # 29 -PORT # 137 -BYTE # 30 -PORT # 137 -BYTE # 31 -PORT # 137 -BYTE # 32 -PORT # 137 -BYTE # 33 -PORT # 137 -BYTE # 34 -PORT # 137 -BYTE # 35 -PORT # 137 -BYTE # 36 -PORT # 137 -BYTE # 37 -PORT # 137 -BYTE # 38 -PORT # 137 -BYTE # 39 -PORT # 137 -BYTE # 40 -PORT # 137 -BYTE # 41 -PORT # 137 -BYTE # 42 -PORT # 137 -BYTE # 43 -PORT # 137 -BYTE # 44 -PORT # 137 -BYTE # 45 -PORT # 137 -BYTE # 46 -PORT # 137 -BYTE # 47 -PORT # 137 -BYTE # 48 -PORT # 137 -BYTE # 49 -PORT # 137 -BYTE # 50 -PORT # 137 -BYTE # 51 -PORT # 137 -BYTE # 52 -PORT # 137 -BYTE # 53 -PORT # 137 -BYTE # 54 -PORT # 137 -BYTE # 55 -PORT # 137 -BYTE # 56 -PORT # 137 -BYTE # 57 -PORT # 137 -BYTE # 58 -PORT # 137 -BYTE # 59 -PORT # 137 -BYTE # 60 -PORT # 137 -BYTE # 61 -PORT # 137 -BYTE # 62 -PORT # 137 -BYTE # 63 -PORT # 137 -BYTE # 64 -PORT # 137 -BYTE # 65 -PORT # 137 -BYTE # 66 -PORT # 137 -BYTE # 67 -PORT # 137 -BYTE # 68 -PORT # 137 -BYTE # 69 -PORT # 137 -BYTE # 70 -PORT # 137 -BYTE # 71 -PORT # 137 -BYTE # 72 -PORT # 137 -BYTE # 73 -PORT # 137 -BYTE # 74 -PORT # 137 -BYTE # 75 -PORT # 137 -BYTE # 76 -PORT # 137 -BYTE # 77 -PORT # 137 -BYTE # 78 -PORT # 137 -BYTE # 79 -PORT # 137 -BYTE # 80 -PORT # 137 -BYTE # 81 -PORT # 137 -BYTE # 82 -PORT # 137 -BYTE # 83 -PORT # 137 -BYTE # 84 -PORT # 137 -BYTE # 85 -PORT # 137 -BYTE # 86 -PORT # 137 -BYTE # 87 -PORT # 137 -BYTE # 88 -PORT # 137 -BYTE # 89 -PORT # 137 -BYTE # 90 -PORT # 137 -BYTE # 91 -PORT # 137 -BYTE # 92 -PORT # 137 -BYTE # 93 -PORT # 137 -BYTE # 94 -PORT # 137 -BYTE # 95 -PORT # 137 -BYTE # 96 -PORT # 137 -BYTE # 97 -PORT # 137 -BYTE # 98 -PORT # 137 -BYTE # 99 -PORT # 137 -BYTE # 100 -PORT # 137 -BYTE # 101 -PORT # 137 -BYTE # 102 -PORT # 137 -BYTE # 103 -PORT # 137 -BYTE # 104 -PORT # 137 -BYTE # 105 -PORT # 137 -BYTE # 106 -PORT # 137 -BYTE # 107 -PORT # 137 -BYTE # 108 -PORT # 137 -BYTE # 109 -PORT # 137 -BYTE # 110 -PORT # 137 -BYTE # 111 -PORT # 137 -BYTE # 112 -PORT # 137 -BYTE # 113 -PORT # 137 -BYTE # 114 -PORT # 137 -BYTE # 115 -PORT # 137 -BYTE # 116 -PORT # 137 -BYTE # 117 -PORT # 137 -BYTE # 118 -PORT # 137 -BYTE # 119 -PORT # 137 -BYTE # 120 -PORT # 137 -BYTE # 121 -PORT # 137 -BYTE # 122 -PORT # 137 -BYTE # 123 -PORT # 137 -BYTE # 124 -PORT # 137 -BYTE # 125 -PORT # 137 -BYTE # 126 -PORT # 137 -BYTE # 127 -PORT # 137 -BYTE # 128 -PORT # 137 -BYTE # 129 -PORT # 137 -BYTE # 130 -PORT # 137 -BYTE # 131 -PORT # 137 -BYTE # 132 -PORT # 137 -BYTE # 133 -PORT # 137 -BYTE # 134 -PORT # 137 -BYTE # 135 -PORT # 137 -BYTE # 136 -PORT # 137 -BYTE # 137 -PORT # 137 -BYTE # 138 -PORT # 137 -BYTE # 139 -PORT # 137 -BYTE # 140 -PORT # 137 -BYTE # 141 -PORT # 137 -BYTE # 142 -PORT # 137 -BYTE # 143 -PORT # 137 -BYTE # 144 -PORT # 137 -BYTE # 145 -PORT # 137 -BYTE # 146 -PORT # 137 -BYTE # 147 -PORT # 137 -BYTE # 148 -PORT # 137 -BYTE # 149 -PORT # 137 -BYTE # 150 -PORT # 137 -BYTE # 151 -PORT # 137 -BYTE # 152 -PORT # 137 -BYTE # 153 -PORT # 137 -BYTE # 154 -PORT # 137 -BYTE # 155 -PORT # 137 -BYTE # 156 -PORT # 137 -BYTE # 157 -PORT # 137 -BYTE # 158 -PORT # 137 -BYTE # 159 -PORT # 137 -BYTE # 160 -PORT # 137 -BYTE # 161 -PORT # 137 -BYTE # 162 -PORT # 137 -BYTE # 163 -PORT # 137 -BYTE # 164 -PORT # 137 -BYTE # 165 -PORT # 137 -BYTE # 166 -PORT # 137 -BYTE # 167 -PORT # 137 -BYTE # 168 -PORT # 137 -BYTE # 169 -PORT # 137 -BYTE # 170 -PORT # 137 -BYTE # 171 -PORT # 137 -BYTE # 172 -PORT # 137 -BYTE # 173 -PORT # 137 -BYTE # 174 -PORT # 137 -BYTE # 175 -PORT # 137 -BYTE # 176 -PORT # 137 -BYTE # 177 -PORT # 137 -BYTE # 178 -PORT # 137 -BYTE # 179 -PORT # 137 -BYTE # 180 -PORT # 137 -BYTE # 181 -PORT # 137 -BYTE # 182 -PORT # 137 -BYTE # 183 -PORT # 137 -BYTE # 184 -PORT # 137 -BYTE # 185 -PORT # 137 -BYTE # 186 -PORT # 137 -BYTE # 187 -PORT # 137 -BYTE # 188 -PORT # 137 -BYTE # 189 -PORT # 137 -BYTE # 190 -PORT # 137 -BYTE # 191 -PORT # 137 -BYTE # 192 -PORT # 137 -BYTE # 193 -PORT # 137 -BYTE # 194 -PORT # 137 -BYTE # 195 -PORT # 137 -BYTE # 196 -PORT # 137 -BYTE # 197 -PORT # 137 -BYTE # 198 -PORT # 137 -BYTE # 199 -PORT # 137 -BYTE # 200 -PORT # 137 -BYTE # 201 -PORT # 137 -BYTE # 202 -PORT # 137 -BYTE # 203 -PORT # 137 -BYTE # 204 -PORT # 137 -BYTE # 205 -PORT # 137 -BYTE # 206 -PORT # 137 -BYTE # 207 -PORT # 137 -BYTE # 208 -PORT # 137 -BYTE # 209 -PORT # 137 -BYTE # 210 -PORT # 137 -BYTE # 211 -PORT # 137 -BYTE # 212 -PORT # 137 -BYTE # 213 -PORT # 137 -BYTE # 214 -PORT # 137 -BYTE # 215 -PORT # 137 -BYTE # 216 -PORT # 137 -BYTE # 217 -PORT # 137 -BYTE # 218 -PORT # 137 -BYTE # 219 -PORT # 137 -BYTE # 220 -PORT # 137 -BYTE # 221 -PORT # 137 -BYTE # 222 -PORT # 137 -BYTE # 223 -PORT # 137 -BYTE # 224 -PORT # 137 -BYTE # 225 -PORT # 137 -BYTE # 226 -PORT # 137 -BYTE # 227 -PORT # 137 -BYTE # 228 -PORT # 137 -BYTE # 229 -PORT # 137 -BYTE # 230 -PORT # 137 -BYTE # 231 -PORT # 137 -BYTE # 232 -PORT # 137 -BYTE # 233 -PORT # 137 -BYTE # 234 -PORT # 137 -BYTE # 235 -PORT # 137 -BYTE # 236 -PORT # 137 -BYTE # 237 -PORT # 137 -BYTE # 238 -PORT # 137 -BYTE # 239 -PORT # 137 -BYTE # 240 -PORT # 137 -BYTE # 241 -PORT # 137 -BYTE # 242 -PORT # 137 -BYTE # 243 -PORT # 137 -BYTE # 244 -PORT # 137 -BYTE # 245 -PORT # 137 -BYTE # 246 -PORT # 137 -BYTE # 247 -PORT # 137 -BYTE # 248 -PORT # 137 -BYTE # 249 -PORT # 137 -BYTE # 250 -PORT # 137 -BYTE # 251 -PORT # 137 -BYTE # 252 -PORT # 137 -BYTE # 253 -PORT # 137 -BYTE # 254 -PORT # 137 -BYTE # 255 -PORT # 138 -BYTE # 0 -PORT # 138 -BYTE # 1 -PORT # 138 -BYTE # 2 -PORT # 138 -BYTE # 3 -PORT # 138 -BYTE # 4 -PORT # 138 -BYTE # 5 -PORT # 138 -BYTE # 6 -PORT # 138 -BYTE # 7 -PORT # 138 -BYTE # 8 -PORT # 138 -BYTE # 9 -PORT # 138 -BYTE # 10 -PORT # 138 -BYTE # 11 -PORT # 138 -BYTE # 12 -PORT # 138 -BYTE # 13 -PORT # 138 -BYTE # 14 -PORT # 138 -BYTE # 15 -PORT # 138 -BYTE # 16 -PORT # 138 -BYTE # 17 -PORT # 138 -BYTE # 18 -PORT # 138 -BYTE # 19 -PORT # 138 -BYTE # 20 -PORT # 138 -BYTE # 21 -PORT # 138 -BYTE # 22 -PORT # 138 -BYTE # 23 -PORT # 138 -BYTE # 24 -PORT # 138 -BYTE # 25 -PORT # 138 -BYTE # 26 -PORT # 138 -BYTE # 27 -PORT # 138 -BYTE # 28 -PORT # 138 -BYTE # 29 -PORT # 138 -BYTE # 30 -PORT # 138 -BYTE # 31 -PORT # 138 -BYTE # 32 -PORT # 138 -BYTE # 33 -PORT # 138 -BYTE # 34 -PORT # 138 -BYTE # 35 -PORT # 138 -BYTE # 36 -PORT # 138 -BYTE # 37 -PORT # 138 -BYTE # 38 -PORT # 138 -BYTE # 39 -PORT # 138 -BYTE # 40 -PORT # 138 -BYTE # 41 -PORT # 138 -BYTE # 42 -PORT # 138 -BYTE # 43 -PORT # 138 -BYTE # 44 -PORT # 138 -BYTE # 45 -PORT # 138 -BYTE # 46 -PORT # 138 -BYTE # 47 -PORT # 138 -BYTE # 48 -PORT # 138 -BYTE # 49 -PORT # 138 -BYTE # 50 -PORT # 138 -BYTE # 51 -PORT # 138 -BYTE # 52 -PORT # 138 -BYTE # 53 -PORT # 138 -BYTE # 54 -PORT # 138 -BYTE # 55 -PORT # 138 -BYTE # 56 -PORT # 138 -BYTE # 57 -PORT # 138 -BYTE # 58 -PORT # 138 -BYTE # 59 -PORT # 138 -BYTE # 60 -PORT # 138 -BYTE # 61 -PORT # 138 -BYTE # 62 -PORT # 138 -BYTE # 63 -PORT # 138 -BYTE # 64 -PORT # 138 -BYTE # 65 -PORT # 138 -BYTE # 66 -PORT # 138 -BYTE # 67 -PORT # 138 -BYTE # 68 -PORT # 138 -BYTE # 69 -PORT # 138 -BYTE # 70 -PORT # 138 -BYTE # 71 -PORT # 138 -BYTE # 72 -PORT # 138 -BYTE # 73 -PORT # 138 -BYTE # 74 -PORT # 138 -BYTE # 75 -PORT # 138 -BYTE # 76 -PORT # 138 -BYTE # 77 -PORT # 138 -BYTE # 78 -PORT # 138 -BYTE # 79 -PORT # 138 -BYTE # 80 -PORT # 138 -BYTE # 81 -PORT # 138 -BYTE # 82 -PORT # 138 -BYTE # 83 -PORT # 138 -BYTE # 84 -PORT # 138 -BYTE # 85 -PORT # 138 -BYTE # 86 -PORT # 138 -BYTE # 87 -PORT # 138 -BYTE # 88 -PORT # 138 -BYTE # 89 -PORT # 138 -BYTE # 90 -PORT # 138 -BYTE # 91 -PORT # 138 -BYTE # 92 -PORT # 138 -BYTE # 93 -PORT # 138 -BYTE # 94 -PORT # 138 -BYTE # 95 -PORT # 138 -BYTE # 96 -PORT # 138 -BYTE # 97 -PORT # 138 -BYTE # 98 -PORT # 138 -BYTE # 99 -PORT # 138 -BYTE # 100 -PORT # 138 -BYTE # 101 -PORT # 138 -BYTE # 102 -PORT # 138 -BYTE # 103 -PORT # 138 -BYTE # 104 -PORT # 138 -BYTE # 105 -PORT # 138 -BYTE # 106 -PORT # 138 -BYTE # 107 -PORT # 138 -BYTE # 108 -PORT # 138 -BYTE # 109 -PORT # 138 -BYTE # 110 -PORT # 138 -BYTE # 111 -PORT # 138 -BYTE # 112 -PORT # 138 -BYTE # 113 -PORT # 138 -BYTE # 114 -PORT # 138 -BYTE # 115 -PORT # 138 -BYTE # 116 -PORT # 138 -BYTE # 117 -PORT # 138 -BYTE # 118 -PORT # 138 -BYTE # 119 -PORT # 138 -BYTE # 120 -PORT # 138 -BYTE # 121 -PORT # 138 -BYTE # 122 -PORT # 138 -BYTE # 123 -PORT # 138 -BYTE # 124 -PORT # 138 -BYTE # 125 -PORT # 138 -BYTE # 126 -PORT # 138 -BYTE # 127 -PORT # 138 -BYTE # 128 -PORT # 138 -BYTE # 129 -PORT # 138 -BYTE # 130 -PORT # 138 -BYTE # 131 -PORT # 138 -BYTE # 132 -PORT # 138 -BYTE # 133 -PORT # 138 -BYTE # 134 -PORT # 138 -BYTE # 135 -PORT # 138 -BYTE # 136 -PORT # 138 -BYTE # 137 -PORT # 138 -BYTE # 138 -PORT # 138 -BYTE # 139 -PORT # 138 -BYTE # 140 -PORT # 138 -BYTE # 141 -PORT # 138 -BYTE # 142 -PORT # 138 -BYTE # 143 -PORT # 138 -BYTE # 144 -PORT # 138 -BYTE # 145 -PORT # 138 -BYTE # 146 -PORT # 138 -BYTE # 147 -PORT # 138 -BYTE # 148 -PORT # 138 -BYTE # 149 -PORT # 138 -BYTE # 150 -PORT # 138 -BYTE # 151 -PORT # 138 -BYTE # 152 -PORT # 138 -BYTE # 153 -PORT # 138 -BYTE # 154 -PORT # 138 -BYTE # 155 -PORT # 138 -BYTE # 156 -PORT # 138 -BYTE # 157 -PORT # 138 -BYTE # 158 -PORT # 138 -BYTE # 159 -PORT # 138 -BYTE # 160 -PORT # 138 -BYTE # 161 -PORT # 138 -BYTE # 162 -PORT # 138 -BYTE # 163 -PORT # 138 -BYTE # 164 -PORT # 138 -BYTE # 165 -PORT # 138 -BYTE # 166 -PORT # 138 -BYTE # 167 -PORT # 138 -BYTE # 168 -PORT # 138 -BYTE # 169 -PORT # 138 -BYTE # 170 -PORT # 138 -BYTE # 171 -PORT # 138 -BYTE # 172 -PORT # 138 -BYTE # 173 -PORT # 138 -BYTE # 174 -PORT # 138 -BYTE # 175 -PORT # 138 -BYTE # 176 -PORT # 138 -BYTE # 177 -PORT # 138 -BYTE # 178 -PORT # 138 -BYTE # 179 -PORT # 138 -BYTE # 180 -PORT # 138 -BYTE # 181 -PORT # 138 -BYTE # 182 -PORT # 138 -BYTE # 183 -PORT # 138 -BYTE # 184 -PORT # 138 -BYTE # 185 -PORT # 138 -BYTE # 186 -PORT # 138 -BYTE # 187 -PORT # 138 -BYTE # 188 -PORT # 138 -BYTE # 189 -PORT # 138 -BYTE # 190 -PORT # 138 -BYTE # 191 -PORT # 138 -BYTE # 192 -PORT # 138 -BYTE # 193 -PORT # 138 -BYTE # 194 -PORT # 138 -BYTE # 195 -PORT # 138 -BYTE # 196 -PORT # 138 -BYTE # 197 -PORT # 138 -BYTE # 198 -PORT # 138 -BYTE # 199 -PORT # 138 -BYTE # 200 -PORT # 138 -BYTE # 201 -PORT # 138 -BYTE # 202 -PORT # 138 -BYTE # 203 -PORT # 138 -BYTE # 204 -PORT # 138 -BYTE # 205 -PORT # 138 -BYTE # 206 -PORT # 138 -BYTE # 207 -PORT # 138 -BYTE # 208 -PORT # 138 -BYTE # 209 -PORT # 138 -BYTE # 210 -PORT # 138 -BYTE # 211 -PORT # 138 -BYTE # 212 -PORT # 138 -BYTE # 213 -PORT # 138 -BYTE # 214 -PORT # 138 -BYTE # 215 -PORT # 138 -BYTE # 216 -PORT # 138 -BYTE # 217 -PORT # 138 -BYTE # 218 -PORT # 138 -BYTE # 219 -PORT # 138 -BYTE # 220 -PORT # 138 -BYTE # 221 -PORT # 138 -BYTE # 222 -PORT # 138 -BYTE # 223 -PORT # 138 -BYTE # 224 -PORT # 138 -BYTE # 225 -PORT # 138 -BYTE # 226 -PORT # 138 -BYTE # 227 -PORT # 138 -BYTE # 228 -PORT # 138 -BYTE # 229 -PORT # 138 -BYTE # 230 -PORT # 138 -BYTE # 231 -PORT # 138 -BYTE # 232 -PORT # 138 -BYTE # 233 -PORT # 138 -BYTE # 234 -PORT # 138 -BYTE # 235 -PORT # 138 -BYTE # 236 -PORT # 138 -BYTE # 237 -PORT # 138 -BYTE # 238 -PORT # 138 -BYTE # 239 -PORT # 138 -BYTE # 240 -PORT # 138 -BYTE # 241 -PORT # 138 -BYTE # 242 -PORT # 138 -BYTE # 243 -PORT # 138 -BYTE # 244 -PORT # 138 -BYTE # 245 -PORT # 138 -BYTE # 246 -PORT # 138 -BYTE # 247 -PORT # 138 -BYTE # 248 -PORT # 138 -BYTE # 249 -PORT # 138 -BYTE # 250 -PORT # 138 -BYTE # 251 -PORT # 138 -BYTE # 252 -PORT # 138 -BYTE # 253 -PORT # 138 -BYTE # 254 -PORT # 138 -BYTE # 255 -PORT # 139 -BYTE # 0 -PORT # 139 -BYTE # 1 -PORT # 139 -BYTE # 2 -PORT # 139 -BYTE # 3 -PORT # 139 -BYTE # 4 -PORT # 139 -BYTE # 5 -PORT # 139 -BYTE # 6 -PORT # 139 -BYTE # 7 -PORT # 139 -BYTE # 8 -PORT # 139 -BYTE # 9 -PORT # 139 -BYTE # 10 -PORT # 139 -BYTE # 11 -PORT # 139 -BYTE # 12 -PORT # 139 -BYTE # 13 -PORT # 139 -BYTE # 14 -PORT # 139 -BYTE # 15 -PORT # 139 -BYTE # 16 -PORT # 139 -BYTE # 17 -PORT # 139 -BYTE # 18 -PORT # 139 -BYTE # 19 -PORT # 139 -BYTE # 20 -PORT # 139 -BYTE # 21 -PORT # 139 -BYTE # 22 -PORT # 139 -BYTE # 23 -PORT # 139 -BYTE # 24 -PORT # 139 -BYTE # 25 -PORT # 139 -BYTE # 26 -PORT # 139 -BYTE # 27 -PORT # 139 -BYTE # 28 -PORT # 139 -BYTE # 29 -PORT # 139 -BYTE # 30 -PORT # 139 -BYTE # 31 -PORT # 139 -BYTE # 32 -PORT # 139 -BYTE # 33 -PORT # 139 -BYTE # 34 -PORT # 139 -BYTE # 35 -PORT # 139 -BYTE # 36 -PORT # 139 -BYTE # 37 -PORT # 139 -BYTE # 38 -PORT # 139 -BYTE # 39 -PORT # 139 -BYTE # 40 -PORT # 139 -BYTE # 41 -PORT # 139 -BYTE # 42 -PORT # 139 -BYTE # 43 -PORT # 139 -BYTE # 44 -PORT # 139 -BYTE # 45 -PORT # 139 -BYTE # 46 -PORT # 139 -BYTE # 47 -PORT # 139 -BYTE # 48 -PORT # 139 -BYTE # 49 -PORT # 139 -BYTE # 50 -PORT # 139 -BYTE # 51 -PORT # 139 -BYTE # 52 -PORT # 139 -BYTE # 53 -PORT # 139 -BYTE # 54 -PORT # 139 -BYTE # 55 -PORT # 139 -BYTE # 56 -PORT # 139 -BYTE # 57 -PORT # 139 -BYTE # 58 -PORT # 139 -BYTE # 59 -PORT # 139 -BYTE # 60 -PORT # 139 -BYTE # 61 -PORT # 139 -BYTE # 62 -PORT # 139 -BYTE # 63 -PORT # 139 -BYTE # 64 -PORT # 139 -BYTE # 65 -PORT # 139 -BYTE # 66 -PORT # 139 -BYTE # 67 -PORT # 139 -BYTE # 68 -PORT # 139 -BYTE # 69 -PORT # 139 -BYTE # 70 -PORT # 139 -BYTE # 71 -PORT # 139 -BYTE # 72 -PORT # 139 -BYTE # 73 -PORT # 139 -BYTE # 74 -PORT # 139 -BYTE # 75 -PORT # 139 -BYTE # 76 -PORT # 139 -BYTE # 77 -PORT # 139 -BYTE # 78 -PORT # 139 -BYTE # 79 -PORT # 139 -BYTE # 80 -PORT # 139 -BYTE # 81 -PORT # 139 -BYTE # 82 -PORT # 139 -BYTE # 83 -PORT # 139 -BYTE # 84 -PORT # 139 -BYTE # 85 -PORT # 139 -BYTE # 86 -PORT # 139 -BYTE # 87 -PORT # 139 -BYTE # 88 -PORT # 139 -BYTE # 89 -PORT # 139 -BYTE # 90 -PORT # 139 -BYTE # 91 -PORT # 139 -BYTE # 92 -PORT # 139 -BYTE # 93 -PORT # 139 -BYTE # 94 -PORT # 139 -BYTE # 95 -PORT # 139 -BYTE # 96 -PORT # 139 -BYTE # 97 -PORT # 139 -BYTE # 98 -PORT # 139 -BYTE # 99 -PORT # 139 -BYTE # 100 -PORT # 139 -BYTE # 101 -PORT # 139 -BYTE # 102 -PORT # 139 -BYTE # 103 -PORT # 139 -BYTE # 104 -PORT # 139 -BYTE # 105 -PORT # 139 -BYTE # 106 -PORT # 139 -BYTE # 107 -PORT # 139 -BYTE # 108 -PORT # 139 -BYTE # 109 -PORT # 139 -BYTE # 110 -PORT # 139 -BYTE # 111 -PORT # 139 -BYTE # 112 -PORT # 139 -BYTE # 113 -PORT # 139 -BYTE # 114 -PORT # 139 -BYTE # 115 -PORT # 139 -BYTE # 116 -PORT # 139 -BYTE # 117 -PORT # 139 -BYTE # 118 -PORT # 139 -BYTE # 119 -PORT # 139 -BYTE # 120 -PORT # 139 -BYTE # 121 -PORT # 139 -BYTE # 122 -PORT # 139 -BYTE # 123 -PORT # 139 -BYTE # 124 -PORT # 139 -BYTE # 125 -PORT # 139 -BYTE # 126 -PORT # 139 -BYTE # 127 -PORT # 139 -BYTE # 128 -PORT # 139 -BYTE # 129 -PORT # 139 -BYTE # 130 -PORT # 139 -BYTE # 131 -PORT # 139 -BYTE # 132 -PORT # 139 -BYTE # 133 -PORT # 139 -BYTE # 134 -PORT # 139 -BYTE # 135 -PORT # 139 -BYTE # 136 -PORT # 139 -BYTE # 137 -PORT # 139 -BYTE # 138 -PORT # 139 -BYTE # 139 -PORT # 139 -BYTE # 140 -PORT # 139 -BYTE # 141 -PORT # 139 -BYTE # 142 -PORT # 139 -BYTE # 143 -PORT # 139 -BYTE # 144 -PORT # 139 -BYTE # 145 -PORT # 139 -BYTE # 146 -PORT # 139 -BYTE # 147 -PORT # 139 -BYTE # 148 -PORT # 139 -BYTE # 149 -PORT # 139 -BYTE # 150 -PORT # 139 -BYTE # 151 -PORT # 139 -BYTE # 152 -PORT # 139 -BYTE # 153 -PORT # 139 -BYTE # 154 -PORT # 139 -BYTE # 155 -PORT # 139 -BYTE # 156 -PORT # 139 -BYTE # 157 -PORT # 139 -BYTE # 158 -PORT # 139 -BYTE # 159 -PORT # 139 -BYTE # 160 -PORT # 139 -BYTE # 161 -PORT # 139 -BYTE # 162 -PORT # 139 -BYTE # 163 -PORT # 139 -BYTE # 164 -PORT # 139 -BYTE # 165 -PORT # 139 -BYTE # 166 -PORT # 139 -BYTE # 167 -PORT # 139 -BYTE # 168 -PORT # 139 -BYTE # 169 -PORT # 139 -BYTE # 170 -PORT # 139 -BYTE # 171 -PORT # 139 -BYTE # 172 -PORT # 139 -BYTE # 173 -PORT # 139 -BYTE # 174 -PORT # 139 -BYTE # 175 -PORT # 139 -BYTE # 176 -PORT # 139 -BYTE # 177 -PORT # 139 -BYTE # 178 -PORT # 139 -BYTE # 179 -PORT # 139 -BYTE # 180 -PORT # 139 -BYTE # 181 -PORT # 139 -BYTE # 182 -PORT # 139 -BYTE # 183 -PORT # 139 -BYTE # 184 -PORT # 139 -BYTE # 185 -PORT # 139 -BYTE # 186 -PORT # 139 -BYTE # 187 -PORT # 139 -BYTE # 188 -PORT # 139 -BYTE # 189 -PORT # 139 -BYTE # 190 -PORT # 139 -BYTE # 191 -PORT # 139 -BYTE # 192 -PORT # 139 -BYTE # 193 -PORT # 139 -BYTE # 194 -PORT # 139 -BYTE # 195 -PORT # 139 -BYTE # 196 -PORT # 139 -BYTE # 197 -PORT # 139 -BYTE # 198 -PORT # 139 -BYTE # 199 -PORT # 139 -BYTE # 200 -PORT # 139 -BYTE # 201 -PORT # 139 -BYTE # 202 -PORT # 139 -BYTE # 203 -PORT # 139 -BYTE # 204 -PORT # 139 -BYTE # 205 -PORT # 139 -BYTE # 206 -PORT # 139 -BYTE # 207 -PORT # 139 -BYTE # 208 -PORT # 139 -BYTE # 209 -PORT # 139 -BYTE # 210 -PORT # 139 -BYTE # 211 -PORT # 139 -BYTE # 212 -PORT # 139 -BYTE # 213 -PORT # 139 -BYTE # 214 -PORT # 139 -BYTE # 215 -PORT # 139 -BYTE # 216 -PORT # 139 -BYTE # 217 -PORT # 139 -BYTE # 218 -PORT # 139 -BYTE # 219 -PORT # 139 -BYTE # 220 -PORT # 139 -BYTE # 221 -PORT # 139 -BYTE # 222 -PORT # 139 -BYTE # 223 -PORT # 139 -BYTE # 224 -PORT # 139 -BYTE # 225 -PORT # 139 -BYTE # 226 -PORT # 139 -BYTE # 227 -PORT # 139 -BYTE # 228 -PORT # 139 -BYTE # 229 -PORT # 139 -BYTE # 230 -PORT # 139 -BYTE # 231 -PORT # 139 -BYTE # 232 -PORT # 139 -BYTE # 233 -PORT # 139 -BYTE # 234 -PORT # 139 -BYTE # 235 -PORT # 139 -BYTE # 236 -PORT # 139 -BYTE # 237 -PORT # 139 -BYTE # 238 -PORT # 139 -BYTE # 239 -PORT # 139 -BYTE # 240 -PORT # 139 -BYTE # 241 -PORT # 139 -BYTE # 242 -PORT # 139 -BYTE # 243 -PORT # 139 -BYTE # 244 -PORT # 139 -BYTE # 245 -PORT # 139 -BYTE # 246 -PORT # 139 -BYTE # 247 -PORT # 139 -BYTE # 248 -PORT # 139 -BYTE # 249 -PORT # 139 -BYTE # 250 -PORT # 139 -BYTE # 251 -PORT # 139 -BYTE # 252 -PORT # 139 -BYTE # 253 -PORT # 139 -BYTE # 254 -PORT # 139 -BYTE # 255 -PORT # 140 -BYTE # 0 -PORT # 140 -BYTE # 1 -PORT # 140 -BYTE # 2 -PORT # 140 -BYTE # 3 -PORT # 140 -BYTE # 4 -PORT # 140 -BYTE # 5 -PORT # 140 -BYTE # 6 -PORT # 140 -BYTE # 7 -PORT # 140 -BYTE # 8 -PORT # 140 -BYTE # 9 -PORT # 140 -BYTE # 10 -PORT # 140 -BYTE # 11 -PORT # 140 -BYTE # 12 -PORT # 140 -BYTE # 13 -PORT # 140 -BYTE # 14 -PORT # 140 -BYTE # 15 -PORT # 140 -BYTE # 16 -PORT # 140 -BYTE # 17 -PORT # 140 -BYTE # 18 -PORT # 140 -BYTE # 19 -PORT # 140 -BYTE # 20 -PORT # 140 -BYTE # 21 -PORT # 140 -BYTE # 22 -PORT # 140 -BYTE # 23 -PORT # 140 -BYTE # 24 -PORT # 140 -BYTE # 25 -PORT # 140 -BYTE # 26 -PORT # 140 -BYTE # 27 -PORT # 140 -BYTE # 28 -PORT # 140 -BYTE # 29 -PORT # 140 -BYTE # 30 -PORT # 140 -BYTE # 31 -PORT # 140 -BYTE # 32 -PORT # 140 -BYTE # 33 -PORT # 140 -BYTE # 34 -PORT # 140 -BYTE # 35 -PORT # 140 -BYTE # 36 -PORT # 140 -BYTE # 37 -PORT # 140 -BYTE # 38 -PORT # 140 -BYTE # 39 -PORT # 140 -BYTE # 40 -PORT # 140 -BYTE # 41 -PORT # 140 -BYTE # 42 -PORT # 140 -BYTE # 43 -PORT # 140 -BYTE # 44 -PORT # 140 -BYTE # 45 -PORT # 140 -BYTE # 46 -PORT # 140 -BYTE # 47 -PORT # 140 -BYTE # 48 -PORT # 140 -BYTE # 49 -PORT # 140 -BYTE # 50 -PORT # 140 -BYTE # 51 -PORT # 140 -BYTE # 52 -PORT # 140 -BYTE # 53 -PORT # 140 -BYTE # 54 -PORT # 140 -BYTE # 55 -PORT # 140 -BYTE # 56 -PORT # 140 -BYTE # 57 -PORT # 140 -BYTE # 58 -PORT # 140 -BYTE # 59 -PORT # 140 -BYTE # 60 -PORT # 140 -BYTE # 61 -PORT # 140 -BYTE # 62 -PORT # 140 -BYTE # 63 -PORT # 140 -BYTE # 64 -PORT # 140 -BYTE # 65 -PORT # 140 -BYTE # 66 -PORT # 140 -BYTE # 67 -PORT # 140 -BYTE # 68 -PORT # 140 -BYTE # 69 -PORT # 140 -BYTE # 70 -PORT # 140 -BYTE # 71 -PORT # 140 -BYTE # 72 -PORT # 140 -BYTE # 73 -PORT # 140 -BYTE # 74 -PORT # 140 -BYTE # 75 -PORT # 140 -BYTE # 76 -PORT # 140 -BYTE # 77 -PORT # 140 -BYTE # 78 -PORT # 140 -BYTE # 79 -PORT # 140 -BYTE # 80 -PORT # 140 -BYTE # 81 -PORT # 140 -BYTE # 82 -PORT # 140 -BYTE # 83 -PORT # 140 -BYTE # 84 -PORT # 140 -BYTE # 85 -PORT # 140 -BYTE # 86 -PORT # 140 -BYTE # 87 -PORT # 140 -BYTE # 88 -PORT # 140 -BYTE # 89 -PORT # 140 -BYTE # 90 -PORT # 140 -BYTE # 91 -PORT # 140 -BYTE # 92 -PORT # 140 -BYTE # 93 -PORT # 140 -BYTE # 94 -PORT # 140 -BYTE # 95 -PORT # 140 -BYTE # 96 -PORT # 140 -BYTE # 97 -PORT # 140 -BYTE # 98 -PORT # 140 -BYTE # 99 -PORT # 140 -BYTE # 100 -PORT # 140 -BYTE # 101 -PORT # 140 -BYTE # 102 -PORT # 140 -BYTE # 103 -PORT # 140 -BYTE # 104 -PORT # 140 -BYTE # 105 -PORT # 140 -BYTE # 106 -PORT # 140 -BYTE # 107 -PORT # 140 -BYTE # 108 -PORT # 140 -BYTE # 109 -PORT # 140 -BYTE # 110 -PORT # 140 -BYTE # 111 -PORT # 140 -BYTE # 112 -PORT # 140 -BYTE # 113 -PORT # 140 -BYTE # 114 -PORT # 140 -BYTE # 115 -PORT # 140 -BYTE # 116 -PORT # 140 -BYTE # 117 -PORT # 140 -BYTE # 118 -PORT # 140 -BYTE # 119 -PORT # 140 -BYTE # 120 -PORT # 140 -BYTE # 121 -PORT # 140 -BYTE # 122 -PORT # 140 -BYTE # 123 -PORT # 140 -BYTE # 124 -PORT # 140 -BYTE # 125 -PORT # 140 -BYTE # 126 -PORT # 140 -BYTE # 127 -PORT # 140 -BYTE # 128 -PORT # 140 -BYTE # 129 -PORT # 140 -BYTE # 130 -PORT # 140 -BYTE # 131 -PORT # 140 -BYTE # 132 -PORT # 140 -BYTE # 133 -PORT # 140 -BYTE # 134 -PORT # 140 -BYTE # 135 -PORT # 140 -BYTE # 136 -PORT # 140 -BYTE # 137 -PORT # 140 -BYTE # 138 -PORT # 140 -BYTE # 139 -PORT # 140 -BYTE # 140 -PORT # 140 -BYTE # 141 -PORT # 140 -BYTE # 142 -PORT # 140 -BYTE # 143 -PORT # 140 -BYTE # 144 -PORT # 140 -BYTE # 145 -PORT # 140 -BYTE # 146 -PORT # 140 -BYTE # 147 -PORT # 140 -BYTE # 148 -PORT # 140 -BYTE # 149 -PORT # 140 -BYTE # 150 -PORT # 140 -BYTE # 151 -PORT # 140 -BYTE # 152 -PORT # 140 -BYTE # 153 -PORT # 140 -BYTE # 154 -PORT # 140 -BYTE # 155 -PORT # 140 -BYTE # 156 -PORT # 140 -BYTE # 157 -PORT # 140 -BYTE # 158 -PORT # 140 -BYTE # 159 -PORT # 140 -BYTE # 160 -PORT # 140 -BYTE # 161 -PORT # 140 -BYTE # 162 -PORT # 140 -BYTE # 163 -PORT # 140 -BYTE # 164 -PORT # 140 -BYTE # 165 -PORT # 140 -BYTE # 166 -PORT # 140 -BYTE # 167 -PORT # 140 -BYTE # 168 -PORT # 140 -BYTE # 169 -PORT # 140 -BYTE # 170 -PORT # 140 -BYTE # 171 -PORT # 140 -BYTE # 172 -PORT # 140 -BYTE # 173 -PORT # 140 -BYTE # 174 -PORT # 140 -BYTE # 175 -PORT # 140 -BYTE # 176 -PORT # 140 -BYTE # 177 -PORT # 140 -BYTE # 178 -PORT # 140 -BYTE # 179 -PORT # 140 -BYTE # 180 -PORT # 140 -BYTE # 181 -PORT # 140 -BYTE # 182 -PORT # 140 -BYTE # 183 -PORT # 140 -BYTE # 184 -PORT # 140 -BYTE # 185 -PORT # 140 -BYTE # 186 -PORT # 140 -BYTE # 187 -PORT # 140 -BYTE # 188 -PORT # 140 -BYTE # 189 -PORT # 140 -BYTE # 190 -PORT # 140 -BYTE # 191 -PORT # 140 -BYTE # 192 -PORT # 140 -BYTE # 193 -PORT # 140 -BYTE # 194 -PORT # 140 -BYTE # 195 -PORT # 140 -BYTE # 196 -PORT # 140 -BYTE # 197 -PORT # 140 -BYTE # 198 -PORT # 140 -BYTE # 199 -PORT # 140 -BYTE # 200 -PORT # 140 -BYTE # 201 -PORT # 140 -BYTE # 202 -PORT # 140 -BYTE # 203 -PORT # 140 -BYTE # 204 -PORT # 140 -BYTE # 205 -PORT # 140 -BYTE # 206 -PORT # 140 -BYTE # 207 -PORT # 140 -BYTE # 208 -PORT # 140 -BYTE # 209 -PORT # 140 -BYTE # 210 -PORT # 140 -BYTE # 211 -PORT # 140 -BYTE # 212 -PORT # 140 -BYTE # 213 -PORT # 140 -BYTE # 214 -PORT # 140 -BYTE # 215 -PORT # 140 -BYTE # 216 -PORT # 140 -BYTE # 217 -PORT # 140 -BYTE # 218 -PORT # 140 -BYTE # 219 -PORT # 140 -BYTE # 220 -PORT # 140 -BYTE # 221 -PORT # 140 -BYTE # 222 -PORT # 140 -BYTE # 223 -PORT # 140 -BYTE # 224 -PORT # 140 -BYTE # 225 -PORT # 140 -BYTE # 226 -PORT # 140 -BYTE # 227 -PORT # 140 -BYTE # 228 -PORT # 140 -BYTE # 229 -PORT # 140 -BYTE # 230 -PORT # 140 -BYTE # 231 -PORT # 140 -BYTE # 232 -PORT # 140 -BYTE # 233 -PORT # 140 -BYTE # 234 -PORT # 140 -BYTE # 235 -PORT # 140 -BYTE # 236 -PORT # 140 -BYTE # 237 -PORT # 140 -BYTE # 238 -PORT # 140 -BYTE # 239 -PORT # 140 -BYTE # 240 -PORT # 140 -BYTE # 241 -PORT # 140 -BYTE # 242 -PORT # 140 -BYTE # 243 -PORT # 140 -BYTE # 244 -PORT # 140 -BYTE # 245 -PORT # 140 -BYTE # 246 -PORT # 140 -BYTE # 247 -PORT # 140 -BYTE # 248 -PORT # 140 -BYTE # 249 -PORT # 140 -BYTE # 250 -PORT # 140 -BYTE # 251 -PORT # 140 -BYTE # 252 -PORT # 140 -BYTE # 253 -PORT # 140 -BYTE # 254 -PORT # 140 -BYTE # 255 -PORT # 141 -BYTE # 0 -PORT # 141 -BYTE # 1 -PORT # 141 -BYTE # 2 -PORT # 141 -BYTE # 3 -PORT # 141 -BYTE # 4 -PORT # 141 -BYTE # 5 -PORT # 141 -BYTE # 6 -PORT # 141 -BYTE # 7 -PORT # 141 -BYTE # 8 -PORT # 141 -BYTE # 9 -PORT # 141 -BYTE # 10 -PORT # 141 -BYTE # 11 -PORT # 141 -BYTE # 12 -PORT # 141 -BYTE # 13 -PORT # 141 -BYTE # 14 -PORT # 141 -BYTE # 15 -PORT # 141 -BYTE # 16 -PORT # 141 -BYTE # 17 -PORT # 141 -BYTE # 18 -PORT # 141 -BYTE # 19 -PORT # 141 -BYTE # 20 -PORT # 141 -BYTE # 21 -PORT # 141 -BYTE # 22 -PORT # 141 -BYTE # 23 -PORT # 141 -BYTE # 24 -PORT # 141 -BYTE # 25 -PORT # 141 -BYTE # 26 -PORT # 141 -BYTE # 27 -PORT # 141 -BYTE # 28 -PORT # 141 -BYTE # 29 -PORT # 141 -BYTE # 30 -PORT # 141 -BYTE # 31 -PORT # 141 -BYTE # 32 -PORT # 141 -BYTE # 33 -PORT # 141 -BYTE # 34 -PORT # 141 -BYTE # 35 -PORT # 141 -BYTE # 36 -PORT # 141 -BYTE # 37 -PORT # 141 -BYTE # 38 -PORT # 141 -BYTE # 39 -PORT # 141 -BYTE # 40 -PORT # 141 -BYTE # 41 -PORT # 141 -BYTE # 42 -PORT # 141 -BYTE # 43 -PORT # 141 -BYTE # 44 -PORT # 141 -BYTE # 45 -PORT # 141 -BYTE # 46 -PORT # 141 -BYTE # 47 -PORT # 141 -BYTE # 48 -PORT # 141 -BYTE # 49 -PORT # 141 -BYTE # 50 -PORT # 141 -BYTE # 51 -PORT # 141 -BYTE # 52 -PORT # 141 -BYTE # 53 -PORT # 141 -BYTE # 54 -PORT # 141 -BYTE # 55 -PORT # 141 -BYTE # 56 -PORT # 141 -BYTE # 57 -PORT # 141 -BYTE # 58 -PORT # 141 -BYTE # 59 -PORT # 141 -BYTE # 60 -PORT # 141 -BYTE # 61 -PORT # 141 -BYTE # 62 -PORT # 141 -BYTE # 63 -PORT # 141 -BYTE # 64 -PORT # 141 -BYTE # 65 -PORT # 141 -BYTE # 66 -PORT # 141 -BYTE # 67 -PORT # 141 -BYTE # 68 -PORT # 141 -BYTE # 69 -PORT # 141 -BYTE # 70 -PORT # 141 -BYTE # 71 -PORT # 141 -BYTE # 72 -PORT # 141 -BYTE # 73 -PORT # 141 -BYTE # 74 -PORT # 141 -BYTE # 75 -PORT # 141 -BYTE # 76 -PORT # 141 -BYTE # 77 -PORT # 141 -BYTE # 78 -PORT # 141 -BYTE # 79 -PORT # 141 -BYTE # 80 -PORT # 141 -BYTE # 81 -PORT # 141 -BYTE # 82 -PORT # 141 -BYTE # 83 -PORT # 141 -BYTE # 84 -PORT # 141 -BYTE # 85 -PORT # 141 -BYTE # 86 -PORT # 141 -BYTE # 87 -PORT # 141 -BYTE # 88 -PORT # 141 -BYTE # 89 -PORT # 141 -BYTE # 90 -PORT # 141 -BYTE # 91 -PORT # 141 -BYTE # 92 -PORT # 141 -BYTE # 93 -PORT # 141 -BYTE # 94 -PORT # 141 -BYTE # 95 -PORT # 141 -BYTE # 96 -PORT # 141 -BYTE # 97 -PORT # 141 -BYTE # 98 -PORT # 141 -BYTE # 99 -PORT # 141 -BYTE # 100 -PORT # 141 -BYTE # 101 -PORT # 141 -BYTE # 102 -PORT # 141 -BYTE # 103 -PORT # 141 -BYTE # 104 -PORT # 141 -BYTE # 105 -PORT # 141 -BYTE # 106 -PORT # 141 -BYTE # 107 -PORT # 141 -BYTE # 108 -PORT # 141 -BYTE # 109 -PORT # 141 -BYTE # 110 -PORT # 141 -BYTE # 111 -PORT # 141 -BYTE # 112 -PORT # 141 -BYTE # 113 -PORT # 141 -BYTE # 114 -PORT # 141 -BYTE # 115 -PORT # 141 -BYTE # 116 -PORT # 141 -BYTE # 117 -PORT # 141 -BYTE # 118 -PORT # 141 -BYTE # 119 -PORT # 141 -BYTE # 120 -PORT # 141 -BYTE # 121 -PORT # 141 -BYTE # 122 -PORT # 141 -BYTE # 123 -PORT # 141 -BYTE # 124 -PORT # 141 -BYTE # 125 -PORT # 141 -BYTE # 126 -PORT # 141 -BYTE # 127 -PORT # 141 -BYTE # 128 -PORT # 141 -BYTE # 129 -PORT # 141 -BYTE # 130 -PORT # 141 -BYTE # 131 -PORT # 141 -BYTE # 132 -PORT # 141 -BYTE # 133 -PORT # 141 -BYTE # 134 -PORT # 141 -BYTE # 135 -PORT # 141 -BYTE # 136 -PORT # 141 -BYTE # 137 -PORT # 141 -BYTE # 138 -PORT # 141 -BYTE # 139 -PORT # 141 -BYTE # 140 -PORT # 141 -BYTE # 141 -PORT # 141 -BYTE # 142 -PORT # 141 -BYTE # 143 -PORT # 141 -BYTE # 144 -PORT # 141 -BYTE # 145 -PORT # 141 -BYTE # 146 -PORT # 141 -BYTE # 147 -PORT # 141 -BYTE # 148 -PORT # 141 -BYTE # 149 -PORT # 141 -BYTE # 150 -PORT # 141 -BYTE # 151 -PORT # 141 -BYTE # 152 -PORT # 141 -BYTE # 153 -PORT # 141 -BYTE # 154 -PORT # 141 -BYTE # 155 -PORT # 141 -BYTE # 156 -PORT # 141 -BYTE # 157 -PORT # 141 -BYTE # 158 -PORT # 141 -BYTE # 159 -PORT # 141 -BYTE # 160 -PORT # 141 -BYTE # 161 -PORT # 141 -BYTE # 162 -PORT # 141 -BYTE # 163 -PORT # 141 -BYTE # 164 -PORT # 141 -BYTE # 165 -PORT # 141 -BYTE # 166 -PORT # 141 -BYTE # 167 -PORT # 141 -BYTE # 168 -PORT # 141 -BYTE # 169 -PORT # 141 -BYTE # 170 -PORT # 141 -BYTE # 171 -PORT # 141 -BYTE # 172 -PORT # 141 -BYTE # 173 -PORT # 141 -BYTE # 174 -PORT # 141 -BYTE # 175 -PORT # 141 -BYTE # 176 -PORT # 141 -BYTE # 177 -PORT # 141 -BYTE # 178 -PORT # 141 -BYTE # 179 -PORT # 141 -BYTE # 180 -PORT # 141 -BYTE # 181 -PORT # 141 -BYTE # 182 -PORT # 141 -BYTE # 183 -PORT # 141 -BYTE # 184 -PORT # 141 -BYTE # 185 -PORT # 141 -BYTE # 186 -PORT # 141 -BYTE # 187 -PORT # 141 -BYTE # 188 -PORT # 141 -BYTE # 189 -PORT # 141 -BYTE # 190 -PORT # 141 -BYTE # 191 -PORT # 141 -BYTE # 192 -PORT # 141 -BYTE # 193 -PORT # 141 -BYTE # 194 -PORT # 141 -BYTE # 195 -PORT # 141 -BYTE # 196 -PORT # 141 -BYTE # 197 -PORT # 141 -BYTE # 198 -PORT # 141 -BYTE # 199 -PORT # 141 -BYTE # 200 -PORT # 141 -BYTE # 201 -PORT # 141 -BYTE # 202 -PORT # 141 -BYTE # 203 -PORT # 141 -BYTE # 204 -PORT # 141 -BYTE # 205 -PORT # 141 -BYTE # 206 -PORT # 141 -BYTE # 207 -PORT # 141 -BYTE # 208 -PORT # 141 -BYTE # 209 -PORT # 141 -BYTE # 210 -PORT # 141 -BYTE # 211 -PORT # 141 -BYTE # 212 -PORT # 141 -BYTE # 213 -PORT # 141 -BYTE # 214 -PORT # 141 -BYTE # 215 -PORT # 141 -BYTE # 216 -PORT # 141 -BYTE # 217 -PORT # 141 -BYTE # 218 -PORT # 141 -BYTE # 219 -PORT # 141 -BYTE # 220 -PORT # 141 -BYTE # 221 -PORT # 141 -BYTE # 222 -PORT # 141 -BYTE # 223 -PORT # 141 -BYTE # 224 -PORT # 141 -BYTE # 225 -PORT # 141 -BYTE # 226 -PORT # 141 -BYTE # 227 -PORT # 141 -BYTE # 228 -PORT # 141 -BYTE # 229 -PORT # 141 -BYTE # 230 -PORT # 141 -BYTE # 231 -PORT # 141 -BYTE # 232 -PORT # 141 -BYTE # 233 -PORT # 141 -BYTE # 234 -PORT # 141 -BYTE # 235 -PORT # 141 -BYTE # 236 -PORT # 141 -BYTE # 237 -PORT # 141 -BYTE # 238 -PORT # 141 -BYTE # 239 -PORT # 141 -BYTE # 240 -PORT # 141 -BYTE # 241 -PORT # 141 -BYTE # 242 -PORT # 141 -BYTE # 243 -PORT # 141 -BYTE # 244 -PORT # 141 -BYTE # 245 -PORT # 141 -BYTE # 246 -PORT # 141 -BYTE # 247 -PORT # 141 -BYTE # 248 -PORT # 141 -BYTE # 249 -PORT # 141 -BYTE # 250 -PORT # 141 -BYTE # 251 -PORT # 141 -BYTE # 252 -PORT # 141 -BYTE # 253 -PORT # 141 -BYTE # 254 -PORT # 141 -BYTE # 255 -PORT # 142 -BYTE # 0 -PORT # 142 -BYTE # 1 -PORT # 142 -BYTE # 2 -PORT # 142 -BYTE # 3 -PORT # 142 -BYTE # 4 -PORT # 142 -BYTE # 5 -PORT # 142 -BYTE # 6 -PORT # 142 -BYTE # 7 -PORT # 142 -BYTE # 8 -PORT # 142 -BYTE # 9 -PORT # 142 -BYTE # 10 -PORT # 142 -BYTE # 11 -PORT # 142 -BYTE # 12 -PORT # 142 -BYTE # 13 -PORT # 142 -BYTE # 14 -PORT # 142 -BYTE # 15 -PORT # 142 -BYTE # 16 -PORT # 142 -BYTE # 17 -PORT # 142 -BYTE # 18 -PORT # 142 -BYTE # 19 -PORT # 142 -BYTE # 20 -PORT # 142 -BYTE # 21 -PORT # 142 -BYTE # 22 -PORT # 142 -BYTE # 23 -PORT # 142 -BYTE # 24 -PORT # 142 -BYTE # 25 -PORT # 142 -BYTE # 26 -PORT # 142 -BYTE # 27 -PORT # 142 -BYTE # 28 -PORT # 142 -BYTE # 29 -PORT # 142 -BYTE # 30 -PORT # 142 -BYTE # 31 -PORT # 142 -BYTE # 32 -PORT # 142 -BYTE # 33 -PORT # 142 -BYTE # 34 -PORT # 142 -BYTE # 35 -PORT # 142 -BYTE # 36 -PORT # 142 -BYTE # 37 -PORT # 142 -BYTE # 38 -PORT # 142 -BYTE # 39 -PORT # 142 -BYTE # 40 -PORT # 142 -BYTE # 41 -PORT # 142 -BYTE # 42 -PORT # 142 -BYTE # 43 -PORT # 142 -BYTE # 44 -PORT # 142 -BYTE # 45 -PORT # 142 -BYTE # 46 -PORT # 142 -BYTE # 47 -PORT # 142 -BYTE # 48 -PORT # 142 -BYTE # 49 -PORT # 142 -BYTE # 50 -PORT # 142 -BYTE # 51 -PORT # 142 -BYTE # 52 -PORT # 142 -BYTE # 53 -PORT # 142 -BYTE # 54 -PORT # 142 -BYTE # 55 -PORT # 142 -BYTE # 56 -PORT # 142 -BYTE # 57 -PORT # 142 -BYTE # 58 -PORT # 142 -BYTE # 59 -PORT # 142 -BYTE # 60 -PORT # 142 -BYTE # 61 -PORT # 142 -BYTE # 62 -PORT # 142 -BYTE # 63 -PORT # 142 -BYTE # 64 -PORT # 142 -BYTE # 65 -PORT # 142 -BYTE # 66 -PORT # 142 -BYTE # 67 -PORT # 142 -BYTE # 68 -PORT # 142 -BYTE # 69 -PORT # 142 -BYTE # 70 -PORT # 142 -BYTE # 71 -PORT # 142 -BYTE # 72 -PORT # 142 -BYTE # 73 -PORT # 142 -BYTE # 74 -PORT # 142 -BYTE # 75 -PORT # 142 -BYTE # 76 -PORT # 142 -BYTE # 77 -PORT # 142 -BYTE # 78 -PORT # 142 -BYTE # 79 -PORT # 142 -BYTE # 80 -PORT # 142 -BYTE # 81 -PORT # 142 -BYTE # 82 -PORT # 142 -BYTE # 83 -PORT # 142 -BYTE # 84 -PORT # 142 -BYTE # 85 -PORT # 142 -BYTE # 86 -PORT # 142 -BYTE # 87 -PORT # 142 -BYTE # 88 -PORT # 142 -BYTE # 89 -PORT # 142 -BYTE # 90 -PORT # 142 -BYTE # 91 -PORT # 142 -BYTE # 92 -PORT # 142 -BYTE # 93 -PORT # 142 -BYTE # 94 -PORT # 142 -BYTE # 95 -PORT # 142 -BYTE # 96 -PORT # 142 -BYTE # 97 -PORT # 142 -BYTE # 98 -PORT # 142 -BYTE # 99 -PORT # 142 -BYTE # 100 -PORT # 142 -BYTE # 101 -PORT # 142 -BYTE # 102 -PORT # 142 -BYTE # 103 -PORT # 142 -BYTE # 104 -PORT # 142 -BYTE # 105 -PORT # 142 -BYTE # 106 -PORT # 142 -BYTE # 107 -PORT # 142 -BYTE # 108 -PORT # 142 -BYTE # 109 -PORT # 142 -BYTE # 110 -PORT # 142 -BYTE # 111 -PORT # 142 -BYTE # 112 -PORT # 142 -BYTE # 113 -PORT # 142 -BYTE # 114 -PORT # 142 -BYTE # 115 -PORT # 142 -BYTE # 116 -PORT # 142 -BYTE # 117 -PORT # 142 -BYTE # 118 -PORT # 142 -BYTE # 119 -PORT # 142 -BYTE # 120 -PORT # 142 -BYTE # 121 -PORT # 142 -BYTE # 122 -PORT # 142 -BYTE # 123 -PORT # 142 -BYTE # 124 -PORT # 142 -BYTE # 125 -PORT # 142 -BYTE # 126 -PORT # 142 -BYTE # 127 -PORT # 142 -BYTE # 128 -PORT # 142 -BYTE # 129 -PORT # 142 -BYTE # 130 -PORT # 142 -BYTE # 131 -PORT # 142 -BYTE # 132 -PORT # 142 -BYTE # 133 -PORT # 142 -BYTE # 134 -PORT # 142 -BYTE # 135 -PORT # 142 -BYTE # 136 -PORT # 142 -BYTE # 137 -PORT # 142 -BYTE # 138 -PORT # 142 -BYTE # 139 -PORT # 142 -BYTE # 140 -PORT # 142 -BYTE # 141 -PORT # 142 -BYTE # 142 -PORT # 142 -BYTE # 143 -PORT # 142 -BYTE # 144 -PORT # 142 -BYTE # 145 -PORT # 142 -BYTE # 146 -PORT # 142 -BYTE # 147 -PORT # 142 -BYTE # 148 -PORT # 142 -BYTE # 149 -PORT # 142 -BYTE # 150 -PORT # 142 -BYTE # 151 -PORT # 142 -BYTE # 152 -PORT # 142 -BYTE # 153 -PORT # 142 -BYTE # 154 -PORT # 142 -BYTE # 155 -PORT # 142 -BYTE # 156 -PORT # 142 -BYTE # 157 -PORT # 142 -BYTE # 158 -PORT # 142 -BYTE # 159 -PORT # 142 -BYTE # 160 -PORT # 142 -BYTE # 161 -PORT # 142 -BYTE # 162 -PORT # 142 -BYTE # 163 -PORT # 142 -BYTE # 164 -PORT # 142 -BYTE # 165 -PORT # 142 -BYTE # 166 -PORT # 142 -BYTE # 167 -PORT # 142 -BYTE # 168 -PORT # 142 -BYTE # 169 -PORT # 142 -BYTE # 170 -PORT # 142 -BYTE # 171 -PORT # 142 -BYTE # 172 -PORT # 142 -BYTE # 173 -PORT # 142 -BYTE # 174 -PORT # 142 -BYTE # 175 -PORT # 142 -BYTE # 176 -PORT # 142 -BYTE # 177 -PORT # 142 -BYTE # 178 -PORT # 142 -BYTE # 179 -PORT # 142 -BYTE # 180 -PORT # 142 -BYTE # 181 -PORT # 142 -BYTE # 182 -PORT # 142 -BYTE # 183 -PORT # 142 -BYTE # 184 -PORT # 142 -BYTE # 185 -PORT # 142 -BYTE # 186 -PORT # 142 -BYTE # 187 -PORT # 142 -BYTE # 188 -PORT # 142 -BYTE # 189 -PORT # 142 -BYTE # 190 -PORT # 142 -BYTE # 191 -PORT # 142 -BYTE # 192 -PORT # 142 -BYTE # 193 -PORT # 142 -BYTE # 194 -PORT # 142 -BYTE # 195 -PORT # 142 -BYTE # 196 -PORT # 142 -BYTE # 197 -PORT # 142 -BYTE # 198 -PORT # 142 -BYTE # 199 -PORT # 142 -BYTE # 200 -PORT # 142 -BYTE # 201 -PORT # 142 -BYTE # 202 -PORT # 142 -BYTE # 203 -PORT # 142 -BYTE # 204 -PORT # 142 -BYTE # 205 -PORT # 142 -BYTE # 206 -PORT # 142 -BYTE # 207 -PORT # 142 -BYTE # 208 -PORT # 142 -BYTE # 209 -PORT # 142 -BYTE # 210 -PORT # 142 -BYTE # 211 -PORT # 142 -BYTE # 212 -PORT # 142 -BYTE # 213 -PORT # 142 -BYTE # 214 -PORT # 142 -BYTE # 215 -PORT # 142 -BYTE # 216 -PORT # 142 -BYTE # 217 -PORT # 142 -BYTE # 218 -PORT # 142 -BYTE # 219 -PORT # 142 -BYTE # 220 -PORT # 142 -BYTE # 221 -PORT # 142 -BYTE # 222 -PORT # 142 -BYTE # 223 -PORT # 142 -BYTE # 224 -PORT # 142 -BYTE # 225 -PORT # 142 -BYTE # 226 -PORT # 142 -BYTE # 227 -PORT # 142 -BYTE # 228 -PORT # 142 -BYTE # 229 -PORT # 142 -BYTE # 230 -PORT # 142 -BYTE # 231 -PORT # 142 -BYTE # 232 -PORT # 142 -BYTE # 233 -PORT # 142 -BYTE # 234 -PORT # 142 -BYTE # 235 -PORT # 142 -BYTE # 236 -PORT # 142 -BYTE # 237 -PORT # 142 -BYTE # 238 -PORT # 142 -BYTE # 239 -PORT # 142 -BYTE # 240 -PORT # 142 -BYTE # 241 -PORT # 142 -BYTE # 242 -PORT # 142 -BYTE # 243 -PORT # 142 -BYTE # 244 -PORT # 142 -BYTE # 245 -PORT # 142 -BYTE # 246 -PORT # 142 -BYTE # 247 -PORT # 142 -BYTE # 248 -PORT # 142 -BYTE # 249 -PORT # 142 -BYTE # 250 -PORT # 142 -BYTE # 251 -PORT # 142 -BYTE # 252 -PORT # 142 -BYTE # 253 -PORT # 142 -BYTE # 254 -PORT # 142 -BYTE # 255 -PORT # 143 -BYTE # 0 -PORT # 143 -BYTE # 1 -PORT # 143 -BYTE # 2 -PORT # 143 -BYTE # 3 -PORT # 143 -BYTE # 4 -PORT # 143 -BYTE # 5 -PORT # 143 -BYTE # 6 -PORT # 143 -BYTE # 7 -PORT # 143 -BYTE # 8 -PORT # 143 -BYTE # 9 -PORT # 143 -BYTE # 10 -PORT # 143 -BYTE # 11 -PORT # 143 -BYTE # 12 -PORT # 143 -BYTE # 13 -PORT # 143 -BYTE # 14 -PORT # 143 -BYTE # 15 -PORT # 143 -BYTE # 16 -PORT # 143 -BYTE # 17 -PORT # 143 -BYTE # 18 -PORT # 143 -BYTE # 19 -PORT # 143 -BYTE # 20 -PORT # 143 -BYTE # 21 -PORT # 143 -BYTE # 22 -PORT # 143 -BYTE # 23 -PORT # 143 -BYTE # 24 -PORT # 143 -BYTE # 25 -PORT # 143 -BYTE # 26 -PORT # 143 -BYTE # 27 -PORT # 143 -BYTE # 28 -PORT # 143 -BYTE # 29 -PORT # 143 -BYTE # 30 -PORT # 143 -BYTE # 31 -PORT # 143 -BYTE # 32 -PORT # 143 -BYTE # 33 -PORT # 143 -BYTE # 34 -PORT # 143 -BYTE # 35 -PORT # 143 -BYTE # 36 -PORT # 143 -BYTE # 37 -PORT # 143 -BYTE # 38 -PORT # 143 -BYTE # 39 -PORT # 143 -BYTE # 40 -PORT # 143 -BYTE # 41 -PORT # 143 -BYTE # 42 -PORT # 143 -BYTE # 43 -PORT # 143 -BYTE # 44 -PORT # 143 -BYTE # 45 -PORT # 143 -BYTE # 46 -PORT # 143 -BYTE # 47 -PORT # 143 -BYTE # 48 -PORT # 143 -BYTE # 49 -PORT # 143 -BYTE # 50 -PORT # 143 -BYTE # 51 -PORT # 143 -BYTE # 52 -PORT # 143 -BYTE # 53 -PORT # 143 -BYTE # 54 -PORT # 143 -BYTE # 55 -PORT # 143 -BYTE # 56 -PORT # 143 -BYTE # 57 -PORT # 143 -BYTE # 58 -PORT # 143 -BYTE # 59 -PORT # 143 -BYTE # 60 -PORT # 143 -BYTE # 61 -PORT # 143 -BYTE # 62 -PORT # 143 -BYTE # 63 -PORT # 143 -BYTE # 64 -PORT # 143 -BYTE # 65 -PORT # 143 -BYTE # 66 -PORT # 143 -BYTE # 67 -PORT # 143 -BYTE # 68 -PORT # 143 -BYTE # 69 -PORT # 143 -BYTE # 70 -PORT # 143 -BYTE # 71 -PORT # 143 -BYTE # 72 -PORT # 143 -BYTE # 73 -PORT # 143 -BYTE # 74 -PORT # 143 -BYTE # 75 -PORT # 143 -BYTE # 76 -PORT # 143 -BYTE # 77 -PORT # 143 -BYTE # 78 -PORT # 143 -BYTE # 79 -PORT # 143 -BYTE # 80 -PORT # 143 -BYTE # 81 -PORT # 143 -BYTE # 82 -PORT # 143 -BYTE # 83 -PORT # 143 -BYTE # 84 -PORT # 143 -BYTE # 85 -PORT # 143 -BYTE # 86 -PORT # 143 -BYTE # 87 -PORT # 143 -BYTE # 88 -PORT # 143 -BYTE # 89 -PORT # 143 -BYTE # 90 -PORT # 143 -BYTE # 91 -PORT # 143 -BYTE # 92 -PORT # 143 -BYTE # 93 -PORT # 143 -BYTE # 94 -PORT # 143 -BYTE # 95 -PORT # 143 -BYTE # 96 -PORT # 143 -BYTE # 97 -PORT # 143 -BYTE # 98 -PORT # 143 -BYTE # 99 -PORT # 143 -BYTE # 100 -PORT # 143 -BYTE # 101 -PORT # 143 -BYTE # 102 -PORT # 143 -BYTE # 103 -PORT # 143 -BYTE # 104 -PORT # 143 -BYTE # 105 -PORT # 143 -BYTE # 106 -PORT # 143 -BYTE # 107 -PORT # 143 -BYTE # 108 -PORT # 143 -BYTE # 109 -PORT # 143 -BYTE # 110 -PORT # 143 -BYTE # 111 -PORT # 143 -BYTE # 112 -PORT # 143 -BYTE # 113 -PORT # 143 -BYTE # 114 -PORT # 143 -BYTE # 115 -PORT # 143 -BYTE # 116 -PORT # 143 -BYTE # 117 -PORT # 143 -BYTE # 118 -PORT # 143 -BYTE # 119 -PORT # 143 -BYTE # 120 -PORT # 143 -BYTE # 121 -PORT # 143 -BYTE # 122 -PORT # 143 -BYTE # 123 -PORT # 143 -BYTE # 124 -PORT # 143 -BYTE # 125 -PORT # 143 -BYTE # 126 -PORT # 143 -BYTE # 127 -PORT # 143 -BYTE # 128 -PORT # 143 -BYTE # 129 -PORT # 143 -BYTE # 130 -PORT # 143 -BYTE # 131 -PORT # 143 -BYTE # 132 -PORT # 143 -BYTE # 133 -PORT # 143 -BYTE # 134 -PORT # 143 -BYTE # 135 -PORT # 143 -BYTE # 136 -PORT # 143 -BYTE # 137 -PORT # 143 -BYTE # 138 -PORT # 143 -BYTE # 139 -PORT # 143 -BYTE # 140 -PORT # 143 -BYTE # 141 -PORT # 143 -BYTE # 142 -PORT # 143 -BYTE # 143 -PORT # 143 -BYTE # 144 -PORT # 143 -BYTE # 145 -PORT # 143 -BYTE # 146 -PORT # 143 -BYTE # 147 -PORT # 143 -BYTE # 148 -PORT # 143 -BYTE # 149 -PORT # 143 -BYTE # 150 -PORT # 143 -BYTE # 151 -PORT # 143 -BYTE # 152 -PORT # 143 -BYTE # 153 -PORT # 143 -BYTE # 154 -PORT # 143 -BYTE # 155 -PORT # 143 -BYTE # 156 -PORT # 143 -BYTE # 157 -PORT # 143 -BYTE # 158 -PORT # 143 -BYTE # 159 -PORT # 143 -BYTE # 160 -PORT # 143 -BYTE # 161 -PORT # 143 -BYTE # 162 -PORT # 143 -BYTE # 163 -PORT # 143 -BYTE # 164 -PORT # 143 -BYTE # 165 -PORT # 143 -BYTE # 166 -PORT # 143 -BYTE # 167 -PORT # 143 -BYTE # 168 -PORT # 143 -BYTE # 169 -PORT # 143 -BYTE # 170 -PORT # 143 -BYTE # 171 -PORT # 143 -BYTE # 172 -PORT # 143 -BYTE # 173 -PORT # 143 -BYTE # 174 -PORT # 143 -BYTE # 175 -PORT # 143 -BYTE # 176 -PORT # 143 -BYTE # 177 -PORT # 143 -BYTE # 178 -PORT # 143 -BYTE # 179 -PORT # 143 -BYTE # 180 -PORT # 143 -BYTE # 181 -PORT # 143 -BYTE # 182 -PORT # 143 -BYTE # 183 -PORT # 143 -BYTE # 184 -PORT # 143 -BYTE # 185 -PORT # 143 -BYTE # 186 -PORT # 143 -BYTE # 187 -PORT # 143 -BYTE # 188 -PORT # 143 -BYTE # 189 -PORT # 143 -BYTE # 190 -PORT # 143 -BYTE # 191 -PORT # 143 -BYTE # 192 -PORT # 143 -BYTE # 193 -PORT # 143 -BYTE # 194 -PORT # 143 -BYTE # 195 -PORT # 143 -BYTE # 196 -PORT # 143 -BYTE # 197 -PORT # 143 -BYTE # 198 -PORT # 143 -BYTE # 199 -PORT # 143 -BYTE # 200 -PORT # 143 -BYTE # 201 -PORT # 143 -BYTE # 202 -PORT # 143 -BYTE # 203 -PORT # 143 -BYTE # 204 -PORT # 143 -BYTE # 205 -PORT # 143 -BYTE # 206 -PORT # 143 -BYTE # 207 -PORT # 143 -BYTE # 208 -PORT # 143 -BYTE # 209 -PORT # 143 -BYTE # 210 -PORT # 143 -BYTE # 211 -PORT # 143 -BYTE # 212 -PORT # 143 -BYTE # 213 -PORT # 143 -BYTE # 214 -PORT # 143 -BYTE # 215 -PORT # 143 -BYTE # 216 -PORT # 143 -BYTE # 217 -PORT # 143 -BYTE # 218 -PORT # 143 -BYTE # 219 -PORT # 143 -BYTE # 220 -PORT # 143 -BYTE # 221 -PORT # 143 -BYTE # 222 -PORT # 143 -BYTE # 223 -PORT # 143 -BYTE # 224 -PORT # 143 -BYTE # 225 -PORT # 143 -BYTE # 226 -PORT # 143 -BYTE # 227 -PORT # 143 -BYTE # 228 -PORT # 143 -BYTE # 229 -PORT # 143 -BYTE # 230 -PORT # 143 -BYTE # 231 -PORT # 143 -BYTE # 232 -PORT # 143 -BYTE # 233 -PORT # 143 -BYTE # 234 -PORT # 143 -BYTE # 235 -PORT # 143 -BYTE # 236 -PORT # 143 -BYTE # 237 -PORT # 143 -BYTE # 238 -PORT # 143 -BYTE # 239 -PORT # 143 -BYTE # 240 -PORT # 143 -BYTE # 241 -PORT # 143 -BYTE # 242 -PORT # 143 -BYTE # 243 -PORT # 143 -BYTE # 244 -PORT # 143 -BYTE # 245 -PORT # 143 -BYTE # 246 -PORT # 143 -BYTE # 247 -PORT # 143 -BYTE # 248 -PORT # 143 -BYTE # 249 -PORT # 143 -BYTE # 250 -PORT # 143 -BYTE # 251 -PORT # 143 -BYTE # 252 -PORT # 143 -BYTE # 253 -PORT # 143 -BYTE # 254 -PORT # 143 -BYTE # 255 -PORT # 144 -BYTE # 0 -PORT # 144 -BYTE # 1 -PORT # 144 -BYTE # 2 -PORT # 144 -BYTE # 3 -PORT # 144 -BYTE # 4 -PORT # 144 -BYTE # 5 -PORT # 144 -BYTE # 6 -PORT # 144 -BYTE # 7 -PORT # 144 -BYTE # 8 -PORT # 144 -BYTE # 9 -PORT # 144 -BYTE # 10 -PORT # 144 -BYTE # 11 -PORT # 144 -BYTE # 12 -PORT # 144 -BYTE # 13 -PORT # 144 -BYTE # 14 -PORT # 144 -BYTE # 15 -PORT # 144 -BYTE # 16 -PORT # 144 -BYTE # 17 -PORT # 144 -BYTE # 18 -PORT # 144 -BYTE # 19 -PORT # 144 -BYTE # 20 -PORT # 144 -BYTE # 21 -PORT # 144 -BYTE # 22 -PORT # 144 -BYTE # 23 -PORT # 144 -BYTE # 24 -PORT # 144 -BYTE # 25 -PORT # 144 -BYTE # 26 -PORT # 144 -BYTE # 27 -PORT # 144 -BYTE # 28 -PORT # 144 -BYTE # 29 -PORT # 144 -BYTE # 30 -PORT # 144 -BYTE # 31 -PORT # 144 -BYTE # 32 -PORT # 144 -BYTE # 33 -PORT # 144 -BYTE # 34 -PORT # 144 -BYTE # 35 -PORT # 144 -BYTE # 36 -PORT # 144 -BYTE # 37 -PORT # 144 -BYTE # 38 -PORT # 144 -BYTE # 39 -PORT # 144 -BYTE # 40 -PORT # 144 -BYTE # 41 -PORT # 144 -BYTE # 42 -PORT # 144 -BYTE # 43 -PORT # 144 -BYTE # 44 -PORT # 144 -BYTE # 45 -PORT # 144 -BYTE # 46 -PORT # 144 -BYTE # 47 -PORT # 144 -BYTE # 48 -PORT # 144 -BYTE # 49 -PORT # 144 -BYTE # 50 -PORT # 144 -BYTE # 51 -PORT # 144 -BYTE # 52 -PORT # 144 -BYTE # 53 -PORT # 144 -BYTE # 54 -PORT # 144 -BYTE # 55 -PORT # 144 -BYTE # 56 -PORT # 144 -BYTE # 57 -PORT # 144 -BYTE # 58 -PORT # 144 -BYTE # 59 -PORT # 144 -BYTE # 60 -PORT # 144 -BYTE # 61 -PORT # 144 -BYTE # 62 -PORT # 144 -BYTE # 63 -PORT # 144 -BYTE # 64 -PORT # 144 -BYTE # 65 -PORT # 144 -BYTE # 66 -PORT # 144 -BYTE # 67 -PORT # 144 -BYTE # 68 -PORT # 144 -BYTE # 69 -PORT # 144 -BYTE # 70 -PORT # 144 -BYTE # 71 -PORT # 144 -BYTE # 72 -PORT # 144 -BYTE # 73 -PORT # 144 -BYTE # 74 -PORT # 144 -BYTE # 75 -PORT # 144 -BYTE # 76 -PORT # 144 -BYTE # 77 -PORT # 144 -BYTE # 78 -PORT # 144 -BYTE # 79 -PORT # 144 -BYTE # 80 -PORT # 144 -BYTE # 81 -PORT # 144 -BYTE # 82 -PORT # 144 -BYTE # 83 -PORT # 144 -BYTE # 84 -PORT # 144 -BYTE # 85 -PORT # 144 -BYTE # 86 -PORT # 144 -BYTE # 87 -PORT # 144 -BYTE # 88 -PORT # 144 -BYTE # 89 -PORT # 144 -BYTE # 90 -PORT # 144 -BYTE # 91 -PORT # 144 -BYTE # 92 -PORT # 144 -BYTE # 93 -PORT # 144 -BYTE # 94 -PORT # 144 -BYTE # 95 -PORT # 144 -BYTE # 96 -PORT # 144 -BYTE # 97 -PORT # 144 -BYTE # 98 -PORT # 144 -BYTE # 99 -PORT # 144 -BYTE # 100 -PORT # 144 -BYTE # 101 -PORT # 144 -BYTE # 102 -PORT # 144 -BYTE # 103 -PORT # 144 -BYTE # 104 -PORT # 144 -BYTE # 105 -PORT # 144 -BYTE # 106 -PORT # 144 -BYTE # 107 -PORT # 144 -BYTE # 108 -PORT # 144 -BYTE # 109 -PORT # 144 -BYTE # 110 -PORT # 144 -BYTE # 111 -PORT # 144 -BYTE # 112 -PORT # 144 -BYTE # 113 -PORT # 144 -BYTE # 114 -PORT # 144 -BYTE # 115 -PORT # 144 -BYTE # 116 -PORT # 144 -BYTE # 117 -PORT # 144 -BYTE # 118 -PORT # 144 -BYTE # 119 -PORT # 144 -BYTE # 120 -PORT # 144 -BYTE # 121 -PORT # 144 -BYTE # 122 -PORT # 144 -BYTE # 123 -PORT # 144 -BYTE # 124 -PORT # 144 -BYTE # 125 -PORT # 144 -BYTE # 126 -PORT # 144 -BYTE # 127 -PORT # 144 -BYTE # 128 -PORT # 144 -BYTE # 129 -PORT # 144 -BYTE # 130 -PORT # 144 -BYTE # 131 -PORT # 144 -BYTE # 132 -PORT # 144 -BYTE # 133 -PORT # 144 -BYTE # 134 -PORT # 144 -BYTE # 135 -PORT # 144 -BYTE # 136 -PORT # 144 -BYTE # 137 -PORT # 144 -BYTE # 138 -PORT # 144 -BYTE # 139 -PORT # 144 -BYTE # 140 -PORT # 144 -BYTE # 141 -PORT # 144 -BYTE # 142 -PORT # 144 -BYTE # 143 -PORT # 144 -BYTE # 144 -PORT # 144 -BYTE # 145 -PORT # 144 -BYTE # 146 -PORT # 144 -BYTE # 147 -PORT # 144 -BYTE # 148 -PORT # 144 -BYTE # 149 -PORT # 144 -BYTE # 150 -PORT # 144 -BYTE # 151 -PORT # 144 -BYTE # 152 -PORT # 144 -BYTE # 153 -PORT # 144 -BYTE # 154 -PORT # 144 -BYTE # 155 -PORT # 144 -BYTE # 156 -PORT # 144 -BYTE # 157 -PORT # 144 -BYTE # 158 -PORT # 144 -BYTE # 159 -PORT # 144 -BYTE # 160 -PORT # 144 -BYTE # 161 -PORT # 144 -BYTE # 162 -PORT # 144 -BYTE # 163 -PORT # 144 -BYTE # 164 -PORT # 144 -BYTE # 165 -PORT # 144 -BYTE # 166 -PORT # 144 -BYTE # 167 -PORT # 144 -BYTE # 168 -PORT # 144 -BYTE # 169 -PORT # 144 -BYTE # 170 -PORT # 144 -BYTE # 171 -PORT # 144 -BYTE # 172 -PORT # 144 -BYTE # 173 -PORT # 144 -BYTE # 174 -PORT # 144 -BYTE # 175 -PORT # 144 -BYTE # 176 -PORT # 144 -BYTE # 177 -PORT # 144 -BYTE # 178 -PORT # 144 -BYTE # 179 -PORT # 144 -BYTE # 180 -PORT # 144 -BYTE # 181 -PORT # 144 -BYTE # 182 -PORT # 144 -BYTE # 183 -PORT # 144 -BYTE # 184 -PORT # 144 -BYTE # 185 -PORT # 144 -BYTE # 186 -PORT # 144 -BYTE # 187 -PORT # 144 -BYTE # 188 -PORT # 144 -BYTE # 189 -PORT # 144 -BYTE # 190 -PORT # 144 -BYTE # 191 -PORT # 144 -BYTE # 192 -PORT # 144 -BYTE # 193 -PORT # 144 -BYTE # 194 -PORT # 144 -BYTE # 195 -PORT # 144 -BYTE # 196 -PORT # 144 -BYTE # 197 -PORT # 144 -BYTE # 198 -PORT # 144 -BYTE # 199 -PORT # 144 -BYTE # 200 -PORT # 144 -BYTE # 201 -PORT # 144 -BYTE # 202 -PORT # 144 -BYTE # 203 -PORT # 144 -BYTE # 204 -PORT # 144 -BYTE # 205 -PORT # 144 -BYTE # 206 -PORT # 144 -BYTE # 207 -PORT # 144 -BYTE # 208 -PORT # 144 -BYTE # 209 -PORT # 144 -BYTE # 210 -PORT # 144 -BYTE # 211 -PORT # 144 -BYTE # 212 -PORT # 144 -BYTE # 213 -PORT # 144 -BYTE # 214 -PORT # 144 -BYTE # 215 -PORT # 144 -BYTE # 216 -PORT # 144 -BYTE # 217 -PORT # 144 -BYTE # 218 -PORT # 144 -BYTE # 219 -PORT # 144 -BYTE # 220 -PORT # 144 -BYTE # 221 -PORT # 144 -BYTE # 222 -PORT # 144 -BYTE # 223 -PORT # 144 -BYTE # 224 -PORT # 144 -BYTE # 225 -PORT # 144 -BYTE # 226 -PORT # 144 -BYTE # 227 -PORT # 144 -BYTE # 228 -PORT # 144 -BYTE # 229 -PORT # 144 -BYTE # 230 -PORT # 144 -BYTE # 231 -PORT # 144 -BYTE # 232 -PORT # 144 -BYTE # 233 -PORT # 144 -BYTE # 234 -PORT # 144 -BYTE # 235 -PORT # 144 -BYTE # 236 -PORT # 144 -BYTE # 237 -PORT # 144 -BYTE # 238 -PORT # 144 -BYTE # 239 -PORT # 144 -BYTE # 240 -PORT # 144 -BYTE # 241 -PORT # 144 -BYTE # 242 -PORT # 144 -BYTE # 243 -PORT # 144 -BYTE # 244 -PORT # 144 -BYTE # 245 -PORT # 144 -BYTE # 246 -PORT # 144 -BYTE # 247 -PORT # 144 -BYTE # 248 -PORT # 144 -BYTE # 249 -PORT # 144 -BYTE # 250 -PORT # 144 -BYTE # 251 -PORT # 144 -BYTE # 252 -PORT # 144 -BYTE # 253 -PORT # 144 -BYTE # 254 -PORT # 144 -BYTE # 255 -PORT # 145 -BYTE # 0 -PORT # 145 -BYTE # 1 -PORT # 145 -BYTE # 2 -PORT # 145 -BYTE # 3 -PORT # 145 -BYTE # 4 -PORT # 145 -BYTE # 5 -PORT # 145 -BYTE # 6 -PORT # 145 -BYTE # 7 -PORT # 145 -BYTE # 8 -PORT # 145 -BYTE # 9 -PORT # 145 -BYTE # 10 -PORT # 145 -BYTE # 11 -PORT # 145 -BYTE # 12 -PORT # 145 -BYTE # 13 -PORT # 145 -BYTE # 14 -PORT # 145 -BYTE # 15 -PORT # 145 -BYTE # 16 -PORT # 145 -BYTE # 17 -PORT # 145 -BYTE # 18 -PORT # 145 -BYTE # 19 -PORT # 145 -BYTE # 20 -PORT # 145 -BYTE # 21 -PORT # 145 -BYTE # 22 -PORT # 145 -BYTE # 23 -PORT # 145 -BYTE # 24 -PORT # 145 -BYTE # 25 -PORT # 145 -BYTE # 26 -PORT # 145 -BYTE # 27 -PORT # 145 -BYTE # 28 -PORT # 145 -BYTE # 29 -PORT # 145 -BYTE # 30 -PORT # 145 -BYTE # 31 -PORT # 145 -BYTE # 32 -PORT # 145 -BYTE # 33 -PORT # 145 -BYTE # 34 -PORT # 145 -BYTE # 35 -PORT # 145 -BYTE # 36 -PORT # 145 -BYTE # 37 -PORT # 145 -BYTE # 38 -PORT # 145 -BYTE # 39 -PORT # 145 -BYTE # 40 -PORT # 145 -BYTE # 41 -PORT # 145 -BYTE # 42 -PORT # 145 -BYTE # 43 -PORT # 145 -BYTE # 44 -PORT # 145 -BYTE # 45 -PORT # 145 -BYTE # 46 -PORT # 145 -BYTE # 47 -PORT # 145 -BYTE # 48 -PORT # 145 -BYTE # 49 -PORT # 145 -BYTE # 50 -PORT # 145 -BYTE # 51 -PORT # 145 -BYTE # 52 -PORT # 145 -BYTE # 53 -PORT # 145 -BYTE # 54 -PORT # 145 -BYTE # 55 -PORT # 145 -BYTE # 56 -PORT # 145 -BYTE # 57 -PORT # 145 -BYTE # 58 -PORT # 145 -BYTE # 59 -PORT # 145 -BYTE # 60 -PORT # 145 -BYTE # 61 -PORT # 145 -BYTE # 62 -PORT # 145 -BYTE # 63 -PORT # 145 -BYTE # 64 -PORT # 145 -BYTE # 65 -PORT # 145 -BYTE # 66 -PORT # 145 -BYTE # 67 -PORT # 145 -BYTE # 68 -PORT # 145 -BYTE # 69 -PORT # 145 -BYTE # 70 -PORT # 145 -BYTE # 71 -PORT # 145 -BYTE # 72 -PORT # 145 -BYTE # 73 -PORT # 145 -BYTE # 74 -PORT # 145 -BYTE # 75 -PORT # 145 -BYTE # 76 -PORT # 145 -BYTE # 77 -PORT # 145 -BYTE # 78 -PORT # 145 -BYTE # 79 -PORT # 145 -BYTE # 80 -PORT # 145 -BYTE # 81 -PORT # 145 -BYTE # 82 -PORT # 145 -BYTE # 83 -PORT # 145 -BYTE # 84 -PORT # 145 -BYTE # 85 -PORT # 145 -BYTE # 86 -PORT # 145 -BYTE # 87 -PORT # 145 -BYTE # 88 -PORT # 145 -BYTE # 89 -PORT # 145 -BYTE # 90 -PORT # 145 -BYTE # 91 -PORT # 145 -BYTE # 92 -PORT # 145 -BYTE # 93 -PORT # 145 -BYTE # 94 -PORT # 145 -BYTE # 95 -PORT # 145 -BYTE # 96 -PORT # 145 -BYTE # 97 -PORT # 145 -BYTE # 98 -PORT # 145 -BYTE # 99 -PORT # 145 -BYTE # 100 -PORT # 145 -BYTE # 101 -PORT # 145 -BYTE # 102 -PORT # 145 -BYTE # 103 -PORT # 145 -BYTE # 104 -PORT # 145 -BYTE # 105 -PORT # 145 -BYTE # 106 -PORT # 145 -BYTE # 107 -PORT # 145 -BYTE # 108 -PORT # 145 -BYTE # 109 -PORT # 145 -BYTE # 110 -PORT # 145 -BYTE # 111 -PORT # 145 -BYTE # 112 -PORT # 145 -BYTE # 113 -PORT # 145 -BYTE # 114 -PORT # 145 -BYTE # 115 -PORT # 145 -BYTE # 116 -PORT # 145 -BYTE # 117 -PORT # 145 -BYTE # 118 -PORT # 145 -BYTE # 119 -PORT # 145 -BYTE # 120 -PORT # 145 -BYTE # 121 -PORT # 145 -BYTE # 122 -PORT # 145 -BYTE # 123 -PORT # 145 -BYTE # 124 -PORT # 145 -BYTE # 125 -PORT # 145 -BYTE # 126 -PORT # 145 -BYTE # 127 -PORT # 145 -BYTE # 128 -PORT # 145 -BYTE # 129 -PORT # 145 -BYTE # 130 -PORT # 145 -BYTE # 131 -PORT # 145 -BYTE # 132 -PORT # 145 -BYTE # 133 -PORT # 145 -BYTE # 134 -PORT # 145 -BYTE # 135 -PORT # 145 -BYTE # 136 -PORT # 145 -BYTE # 137 -PORT # 145 -BYTE # 138 -PORT # 145 -BYTE # 139 -PORT # 145 -BYTE # 140 -PORT # 145 -BYTE # 141 -PORT # 145 -BYTE # 142 -PORT # 145 -BYTE # 143 -PORT # 145 -BYTE # 144 -PORT # 145 -BYTE # 145 -PORT # 145 -BYTE # 146 -PORT # 145 -BYTE # 147 -PORT # 145 -BYTE # 148 -PORT # 145 -BYTE # 149 -PORT # 145 -BYTE # 150 -PORT # 145 -BYTE # 151 -PORT # 145 -BYTE # 152 -PORT # 145 -BYTE # 153 -PORT # 145 -BYTE # 154 -PORT # 145 -BYTE # 155 -PORT # 145 -BYTE # 156 -PORT # 145 -BYTE # 157 -PORT # 145 -BYTE # 158 -PORT # 145 -BYTE # 159 -PORT # 145 -BYTE # 160 -PORT # 145 -BYTE # 161 -PORT # 145 -BYTE # 162 -PORT # 145 -BYTE # 163 -PORT # 145 -BYTE # 164 -PORT # 145 -BYTE # 165 -PORT # 145 -BYTE # 166 -PORT # 145 -BYTE # 167 -PORT # 145 -BYTE # 168 -PORT # 145 -BYTE # 169 -PORT # 145 -BYTE # 170 -PORT # 145 -BYTE # 171 -PORT # 145 -BYTE # 172 -PORT # 145 -BYTE # 173 -PORT # 145 -BYTE # 174 -PORT # 145 -BYTE # 175 -PORT # 145 -BYTE # 176 -PORT # 145 -BYTE # 177 -PORT # 145 -BYTE # 178 -PORT # 145 -BYTE # 179 -PORT # 145 -BYTE # 180 -PORT # 145 -BYTE # 181 -PORT # 145 -BYTE # 182 -PORT # 145 -BYTE # 183 -PORT # 145 -BYTE # 184 -PORT # 145 -BYTE # 185 -PORT # 145 -BYTE # 186 -PORT # 145 -BYTE # 187 -PORT # 145 -BYTE # 188 -PORT # 145 -BYTE # 189 -PORT # 145 -BYTE # 190 -PORT # 145 -BYTE # 191 -PORT # 145 -BYTE # 192 -PORT # 145 -BYTE # 193 -PORT # 145 -BYTE # 194 -PORT # 145 -BYTE # 195 -PORT # 145 -BYTE # 196 -PORT # 145 -BYTE # 197 -PORT # 145 -BYTE # 198 -PORT # 145 -BYTE # 199 -PORT # 145 -BYTE # 200 -PORT # 145 -BYTE # 201 -PORT # 145 -BYTE # 202 -PORT # 145 -BYTE # 203 -PORT # 145 -BYTE # 204 -PORT # 145 -BYTE # 205 -PORT # 145 -BYTE # 206 -PORT # 145 -BYTE # 207 -PORT # 145 -BYTE # 208 -PORT # 145 -BYTE # 209 -PORT # 145 -BYTE # 210 -PORT # 145 -BYTE # 211 -PORT # 145 -BYTE # 212 -PORT # 145 -BYTE # 213 -PORT # 145 -BYTE # 214 -PORT # 145 -BYTE # 215 -PORT # 145 -BYTE # 216 -PORT # 145 -BYTE # 217 -PORT # 145 -BYTE # 218 -PORT # 145 -BYTE # 219 -PORT # 145 -BYTE # 220 -PORT # 145 -BYTE # 221 -PORT # 145 -BYTE # 222 -PORT # 145 -BYTE # 223 -PORT # 145 -BYTE # 224 -PORT # 145 -BYTE # 225 -PORT # 145 -BYTE # 226 -PORT # 145 -BYTE # 227 -PORT # 145 -BYTE # 228 -PORT # 145 -BYTE # 229 -PORT # 145 -BYTE # 230 -PORT # 145 -BYTE # 231 -PORT # 145 -BYTE # 232 -PORT # 145 -BYTE # 233 -PORT # 145 -BYTE # 234 -PORT # 145 -BYTE # 235 -PORT # 145 -BYTE # 236 -PORT # 145 -BYTE # 237 -PORT # 145 -BYTE # 238 -PORT # 145 -BYTE # 239 -PORT # 145 -BYTE # 240 -PORT # 145 -BYTE # 241 -PORT # 145 -BYTE # 242 -PORT # 145 -BYTE # 243 -PORT # 145 -BYTE # 244 -PORT # 145 -BYTE # 245 -PORT # 145 -BYTE # 246 -PORT # 145 -BYTE # 247 -PORT # 145 -BYTE # 248 -PORT # 145 -BYTE # 249 -PORT # 145 -BYTE # 250 -PORT # 145 -BYTE # 251 -PORT # 145 -BYTE # 252 -PORT # 145 -BYTE # 253 -PORT # 145 -BYTE # 254 -PORT # 145 -BYTE # 255 -PORT # 146 -BYTE # 0 -PORT # 146 -BYTE # 1 -PORT # 146 -BYTE # 2 -PORT # 146 -BYTE # 3 -PORT # 146 -BYTE # 4 -PORT # 146 -BYTE # 5 -PORT # 146 -BYTE # 6 -PORT # 146 -BYTE # 7 -PORT # 146 -BYTE # 8 -PORT # 146 -BYTE # 9 -PORT # 146 -BYTE # 10 -PORT # 146 -BYTE # 11 -PORT # 146 -BYTE # 12 -PORT # 146 -BYTE # 13 -PORT # 146 -BYTE # 14 -PORT # 146 -BYTE # 15 -PORT # 146 -BYTE # 16 -PORT # 146 -BYTE # 17 -PORT # 146 -BYTE # 18 -PORT # 146 -BYTE # 19 -PORT # 146 -BYTE # 20 -PORT # 146 -BYTE # 21 -PORT # 146 -BYTE # 22 -PORT # 146 -BYTE # 23 -PORT # 146 -BYTE # 24 -PORT # 146 -BYTE # 25 -PORT # 146 -BYTE # 26 -PORT # 146 -BYTE # 27 -PORT # 146 -BYTE # 28 -PORT # 146 -BYTE # 29 -PORT # 146 -BYTE # 30 -PORT # 146 -BYTE # 31 -PORT # 146 -BYTE # 32 -PORT # 146 -BYTE # 33 -PORT # 146 -BYTE # 34 -PORT # 146 -BYTE # 35 -PORT # 146 -BYTE # 36 -PORT # 146 -BYTE # 37 -PORT # 146 -BYTE # 38 -PORT # 146 -BYTE # 39 -PORT # 146 -BYTE # 40 -PORT # 146 -BYTE # 41 -PORT # 146 -BYTE # 42 -PORT # 146 -BYTE # 43 -PORT # 146 -BYTE # 44 -PORT # 146 -BYTE # 45 -PORT # 146 -BYTE # 46 -PORT # 146 -BYTE # 47 -PORT # 146 -BYTE # 48 -PORT # 146 -BYTE # 49 -PORT # 146 -BYTE # 50 -PORT # 146 -BYTE # 51 -PORT # 146 -BYTE # 52 -PORT # 146 -BYTE # 53 -PORT # 146 -BYTE # 54 -PORT # 146 -BYTE # 55 -PORT # 146 -BYTE # 56 -PORT # 146 -BYTE # 57 -PORT # 146 -BYTE # 58 -PORT # 146 -BYTE # 59 -PORT # 146 -BYTE # 60 -PORT # 146 -BYTE # 61 -PORT # 146 -BYTE # 62 -PORT # 146 -BYTE # 63 -PORT # 146 -BYTE # 64 -PORT # 146 -BYTE # 65 -PORT # 146 -BYTE # 66 -PORT # 146 -BYTE # 67 -PORT # 146 -BYTE # 68 -PORT # 146 -BYTE # 69 -PORT # 146 -BYTE # 70 -PORT # 146 -BYTE # 71 -PORT # 146 -BYTE # 72 -PORT # 146 -BYTE # 73 -PORT # 146 -BYTE # 74 -PORT # 146 -BYTE # 75 -PORT # 146 -BYTE # 76 -PORT # 146 -BYTE # 77 -PORT # 146 -BYTE # 78 -PORT # 146 -BYTE # 79 -PORT # 146 -BYTE # 80 -PORT # 146 -BYTE # 81 -PORT # 146 -BYTE # 82 -PORT # 146 -BYTE # 83 -PORT # 146 -BYTE # 84 -PORT # 146 -BYTE # 85 -PORT # 146 -BYTE # 86 -PORT # 146 -BYTE # 87 -PORT # 146 -BYTE # 88 -PORT # 146 -BYTE # 89 -PORT # 146 -BYTE # 90 -PORT # 146 -BYTE # 91 -PORT # 146 -BYTE # 92 -PORT # 146 -BYTE # 93 -PORT # 146 -BYTE # 94 -PORT # 146 -BYTE # 95 -PORT # 146 -BYTE # 96 -PORT # 146 -BYTE # 97 -PORT # 146 -BYTE # 98 -PORT # 146 -BYTE # 99 -PORT # 146 -BYTE # 100 -PORT # 146 -BYTE # 101 -PORT # 146 -BYTE # 102 -PORT # 146 -BYTE # 103 -PORT # 146 -BYTE # 104 -PORT # 146 -BYTE # 105 -PORT # 146 -BYTE # 106 -PORT # 146 -BYTE # 107 -PORT # 146 -BYTE # 108 -PORT # 146 -BYTE # 109 -PORT # 146 -BYTE # 110 -PORT # 146 -BYTE # 111 -PORT # 146 -BYTE # 112 -PORT # 146 -BYTE # 113 -PORT # 146 -BYTE # 114 -PORT # 146 -BYTE # 115 -PORT # 146 -BYTE # 116 -PORT # 146 -BYTE # 117 -PORT # 146 -BYTE # 118 -PORT # 146 -BYTE # 119 -PORT # 146 -BYTE # 120 -PORT # 146 -BYTE # 121 -PORT # 146 -BYTE # 122 -PORT # 146 -BYTE # 123 -PORT # 146 -BYTE # 124 -PORT # 146 -BYTE # 125 -PORT # 146 -BYTE # 126 -PORT # 146 -BYTE # 127 -PORT # 146 -BYTE # 128 -PORT # 146 -BYTE # 129 -PORT # 146 -BYTE # 130 -PORT # 146 -BYTE # 131 -PORT # 146 -BYTE # 132 -PORT # 146 -BYTE # 133 -PORT # 146 -BYTE # 134 -PORT # 146 -BYTE # 135 -PORT # 146 -BYTE # 136 -PORT # 146 -BYTE # 137 -PORT # 146 -BYTE # 138 -PORT # 146 -BYTE # 139 -PORT # 146 -BYTE # 140 -PORT # 146 -BYTE # 141 -PORT # 146 -BYTE # 142 -PORT # 146 -BYTE # 143 -PORT # 146 -BYTE # 144 -PORT # 146 -BYTE # 145 -PORT # 146 -BYTE # 146 -PORT # 146 -BYTE # 147 -PORT # 146 -BYTE # 148 -PORT # 146 -BYTE # 149 -PORT # 146 -BYTE # 150 -PORT # 146 -BYTE # 151 -PORT # 146 -BYTE # 152 -PORT # 146 -BYTE # 153 -PORT # 146 -BYTE # 154 -PORT # 146 -BYTE # 155 -PORT # 146 -BYTE # 156 -PORT # 146 -BYTE # 157 -PORT # 146 -BYTE # 158 -PORT # 146 -BYTE # 159 -PORT # 146 -BYTE # 160 -PORT # 146 -BYTE # 161 -PORT # 146 -BYTE # 162 -PORT # 146 -BYTE # 163 -PORT # 146 -BYTE # 164 -PORT # 146 -BYTE # 165 -PORT # 146 -BYTE # 166 -PORT # 146 -BYTE # 167 -PORT # 146 -BYTE # 168 -PORT # 146 -BYTE # 169 -PORT # 146 -BYTE # 170 -PORT # 146 -BYTE # 171 -PORT # 146 -BYTE # 172 -PORT # 146 -BYTE # 173 -PORT # 146 -BYTE # 174 -PORT # 146 -BYTE # 175 -PORT # 146 -BYTE # 176 -PORT # 146 -BYTE # 177 -PORT # 146 -BYTE # 178 -PORT # 146 -BYTE # 179 -PORT # 146 -BYTE # 180 -PORT # 146 -BYTE # 181 -PORT # 146 -BYTE # 182 -PORT # 146 -BYTE # 183 -PORT # 146 -BYTE # 184 -PORT # 146 -BYTE # 185 -PORT # 146 -BYTE # 186 -PORT # 146 -BYTE # 187 -PORT # 146 -BYTE # 188 -PORT # 146 -BYTE # 189 -PORT # 146 -BYTE # 190 -PORT # 146 -BYTE # 191 -PORT # 146 -BYTE # 192 -PORT # 146 -BYTE # 193 -PORT # 146 -BYTE # 194 -PORT # 146 -BYTE # 195 -PORT # 146 -BYTE # 196 -PORT # 146 -BYTE # 197 -PORT # 146 -BYTE # 198 -PORT # 146 -BYTE # 199 -PORT # 146 -BYTE # 200 -PORT # 146 -BYTE # 201 -PORT # 146 -BYTE # 202 -PORT # 146 -BYTE # 203 -PORT # 146 -BYTE # 204 -PORT # 146 -BYTE # 205 -PORT # 146 -BYTE # 206 -PORT # 146 -BYTE # 207 -PORT # 146 -BYTE # 208 -PORT # 146 -BYTE # 209 -PORT # 146 -BYTE # 210 -PORT # 146 -BYTE # 211 -PORT # 146 -BYTE # 212 -PORT # 146 -BYTE # 213 -PORT # 146 -BYTE # 214 -PORT # 146 -BYTE # 215 -PORT # 146 -BYTE # 216 -PORT # 146 -BYTE # 217 -PORT # 146 -BYTE # 218 -PORT # 146 -BYTE # 219 -PORT # 146 -BYTE # 220 -PORT # 146 -BYTE # 221 -PORT # 146 -BYTE # 222 -PORT # 146 -BYTE # 223 -PORT # 146 -BYTE # 224 -PORT # 146 -BYTE # 225 -PORT # 146 -BYTE # 226 -PORT # 146 -BYTE # 227 -PORT # 146 -BYTE # 228 -PORT # 146 -BYTE # 229 -PORT # 146 -BYTE # 230 -PORT # 146 -BYTE # 231 -PORT # 146 -BYTE # 232 -PORT # 146 -BYTE # 233 -PORT # 146 -BYTE # 234 -PORT # 146 -BYTE # 235 -PORT # 146 -BYTE # 236 -PORT # 146 -BYTE # 237 -PORT # 146 -BYTE # 238 -PORT # 146 -BYTE # 239 -PORT # 146 -BYTE # 240 -PORT # 146 -BYTE # 241 -PORT # 146 -BYTE # 242 -PORT # 146 -BYTE # 243 -PORT # 146 -BYTE # 244 -PORT # 146 -BYTE # 245 -PORT # 146 -BYTE # 246 -PORT # 146 -BYTE # 247 -PORT # 146 -BYTE # 248 -PORT # 146 -BYTE # 249 -PORT # 146 -BYTE # 250 -PORT # 146 -BYTE # 251 -PORT # 146 -BYTE # 252 -PORT # 146 -BYTE # 253 -PORT # 146 -BYTE # 254 -PORT # 146 -BYTE # 255 -PORT # 147 -BYTE # 0 -PORT # 147 -BYTE # 1 -PORT # 147 -BYTE # 2 -PORT # 147 -BYTE # 3 -PORT # 147 -BYTE # 4 -PORT # 147 -BYTE # 5 -PORT # 147 -BYTE # 6 -PORT # 147 -BYTE # 7 -PORT # 147 -BYTE # 8 -PORT # 147 -BYTE # 9 -PORT # 147 -BYTE # 10 -PORT # 147 -BYTE # 11 -PORT # 147 -BYTE # 12 -PORT # 147 -BYTE # 13 -PORT # 147 -BYTE # 14 -PORT # 147 -BYTE # 15 -PORT # 147 -BYTE # 16 -PORT # 147 -BYTE # 17 -PORT # 147 -BYTE # 18 -PORT # 147 -BYTE # 19 -PORT # 147 -BYTE # 20 -PORT # 147 -BYTE # 21 -PORT # 147 -BYTE # 22 -PORT # 147 -BYTE # 23 -PORT # 147 -BYTE # 24 -PORT # 147 -BYTE # 25 -PORT # 147 -BYTE # 26 -PORT # 147 -BYTE # 27 -PORT # 147 -BYTE # 28 -PORT # 147 -BYTE # 29 -PORT # 147 -BYTE # 30 -PORT # 147 -BYTE # 31 -PORT # 147 -BYTE # 32 -PORT # 147 -BYTE # 33 -PORT # 147 -BYTE # 34 -PORT # 147 -BYTE # 35 -PORT # 147 -BYTE # 36 -PORT # 147 -BYTE # 37 -PORT # 147 -BYTE # 38 -PORT # 147 -BYTE # 39 -PORT # 147 -BYTE # 40 -PORT # 147 -BYTE # 41 -PORT # 147 -BYTE # 42 -PORT # 147 -BYTE # 43 -PORT # 147 -BYTE # 44 -PORT # 147 -BYTE # 45 -PORT # 147 -BYTE # 46 -PORT # 147 -BYTE # 47 -PORT # 147 -BYTE # 48 -PORT # 147 -BYTE # 49 -PORT # 147 -BYTE # 50 -PORT # 147 -BYTE # 51 -PORT # 147 -BYTE # 52 -PORT # 147 -BYTE # 53 -PORT # 147 -BYTE # 54 -PORT # 147 -BYTE # 55 -PORT # 147 -BYTE # 56 -PORT # 147 -BYTE # 57 -PORT # 147 -BYTE # 58 -PORT # 147 -BYTE # 59 -PORT # 147 -BYTE # 60 -PORT # 147 -BYTE # 61 -PORT # 147 -BYTE # 62 -PORT # 147 -BYTE # 63 -PORT # 147 -BYTE # 64 -PORT # 147 -BYTE # 65 -PORT # 147 -BYTE # 66 -PORT # 147 -BYTE # 67 -PORT # 147 -BYTE # 68 -PORT # 147 -BYTE # 69 -PORT # 147 -BYTE # 70 -PORT # 147 -BYTE # 71 -PORT # 147 -BYTE # 72 -PORT # 147 -BYTE # 73 -PORT # 147 -BYTE # 74 -PORT # 147 -BYTE # 75 -PORT # 147 -BYTE # 76 -PORT # 147 -BYTE # 77 -PORT # 147 -BYTE # 78 -PORT # 147 -BYTE # 79 -PORT # 147 -BYTE # 80 -PORT # 147 -BYTE # 81 -PORT # 147 -BYTE # 82 -PORT # 147 -BYTE # 83 -PORT # 147 -BYTE # 84 -PORT # 147 -BYTE # 85 -PORT # 147 -BYTE # 86 -PORT # 147 -BYTE # 87 -PORT # 147 -BYTE # 88 -PORT # 147 -BYTE # 89 -PORT # 147 -BYTE # 90 -PORT # 147 -BYTE # 91 -PORT # 147 -BYTE # 92 -PORT # 147 -BYTE # 93 -PORT # 147 -BYTE # 94 -PORT # 147 -BYTE # 95 -PORT # 147 -BYTE # 96 -PORT # 147 -BYTE # 97 -PORT # 147 -BYTE # 98 -PORT # 147 -BYTE # 99 -PORT # 147 -BYTE # 100 -PORT # 147 -BYTE # 101 -PORT # 147 -BYTE # 102 -PORT # 147 -BYTE # 103 -PORT # 147 -BYTE # 104 -PORT # 147 -BYTE # 105 -PORT # 147 -BYTE # 106 -PORT # 147 -BYTE # 107 -PORT # 147 -BYTE # 108 -PORT # 147 -BYTE # 109 -PORT # 147 -BYTE # 110 -PORT # 147 -BYTE # 111 -PORT # 147 -BYTE # 112 -PORT # 147 -BYTE # 113 -PORT # 147 -BYTE # 114 -PORT # 147 -BYTE # 115 -PORT # 147 -BYTE # 116 -PORT # 147 -BYTE # 117 -PORT # 147 -BYTE # 118 -PORT # 147 -BYTE # 119 -PORT # 147 -BYTE # 120 -PORT # 147 -BYTE # 121 -PORT # 147 -BYTE # 122 -PORT # 147 -BYTE # 123 -PORT # 147 -BYTE # 124 -PORT # 147 -BYTE # 125 -PORT # 147 -BYTE # 126 -PORT # 147 -BYTE # 127 -PORT # 147 -BYTE # 128 -PORT # 147 -BYTE # 129 -PORT # 147 -BYTE # 130 -PORT # 147 -BYTE # 131 -PORT # 147 -BYTE # 132 -PORT # 147 -BYTE # 133 -PORT # 147 -BYTE # 134 -PORT # 147 -BYTE # 135 -PORT # 147 -BYTE # 136 -PORT # 147 -BYTE # 137 -PORT # 147 -BYTE # 138 -PORT # 147 -BYTE # 139 -PORT # 147 -BYTE # 140 -PORT # 147 -BYTE # 141 -PORT # 147 -BYTE # 142 -PORT # 147 -BYTE # 143 -PORT # 147 -BYTE # 144 -PORT # 147 -BYTE # 145 -PORT # 147 -BYTE # 146 -PORT # 147 -BYTE # 147 -PORT # 147 -BYTE # 148 -PORT # 147 -BYTE # 149 -PORT # 147 -BYTE # 150 -PORT # 147 -BYTE # 151 -PORT # 147 -BYTE # 152 -PORT # 147 -BYTE # 153 -PORT # 147 -BYTE # 154 -PORT # 147 -BYTE # 155 -PORT # 147 -BYTE # 156 -PORT # 147 -BYTE # 157 -PORT # 147 -BYTE # 158 -PORT # 147 -BYTE # 159 -PORT # 147 -BYTE # 160 -PORT # 147 -BYTE # 161 -PORT # 147 -BYTE # 162 -PORT # 147 -BYTE # 163 -PORT # 147 -BYTE # 164 -PORT # 147 -BYTE # 165 -PORT # 147 -BYTE # 166 -PORT # 147 -BYTE # 167 -PORT # 147 -BYTE # 168 -PORT # 147 -BYTE # 169 -PORT # 147 -BYTE # 170 -PORT # 147 -BYTE # 171 -PORT # 147 -BYTE # 172 -PORT # 147 -BYTE # 173 -PORT # 147 -BYTE # 174 -PORT # 147 -BYTE # 175 -PORT # 147 -BYTE # 176 -PORT # 147 -BYTE # 177 -PORT # 147 -BYTE # 178 -PORT # 147 -BYTE # 179 -PORT # 147 -BYTE # 180 -PORT # 147 -BYTE # 181 -PORT # 147 -BYTE # 182 -PORT # 147 -BYTE # 183 -PORT # 147 -BYTE # 184 -PORT # 147 -BYTE # 185 -PORT # 147 -BYTE # 186 -PORT # 147 -BYTE # 187 -PORT # 147 -BYTE # 188 -PORT # 147 -BYTE # 189 -PORT # 147 -BYTE # 190 -PORT # 147 -BYTE # 191 -PORT # 147 -BYTE # 192 -PORT # 147 -BYTE # 193 -PORT # 147 -BYTE # 194 -PORT # 147 -BYTE # 195 -PORT # 147 -BYTE # 196 -PORT # 147 -BYTE # 197 -PORT # 147 -BYTE # 198 -PORT # 147 -BYTE # 199 -PORT # 147 -BYTE # 200 -PORT # 147 -BYTE # 201 -PORT # 147 -BYTE # 202 -PORT # 147 -BYTE # 203 -PORT # 147 -BYTE # 204 -PORT # 147 -BYTE # 205 -PORT # 147 -BYTE # 206 -PORT # 147 -BYTE # 207 -PORT # 147 -BYTE # 208 -PORT # 147 -BYTE # 209 -PORT # 147 -BYTE # 210 -PORT # 147 -BYTE # 211 -PORT # 147 -BYTE # 212 -PORT # 147 -BYTE # 213 -PORT # 147 -BYTE # 214 -PORT # 147 -BYTE # 215 -PORT # 147 -BYTE # 216 -PORT # 147 -BYTE # 217 -PORT # 147 -BYTE # 218 -PORT # 147 -BYTE # 219 -PORT # 147 -BYTE # 220 -PORT # 147 -BYTE # 221 -PORT # 147 -BYTE # 222 -PORT # 147 -BYTE # 223 -PORT # 147 -BYTE # 224 -PORT # 147 -BYTE # 225 -PORT # 147 -BYTE # 226 -PORT # 147 -BYTE # 227 -PORT # 147 -BYTE # 228 -PORT # 147 -BYTE # 229 -PORT # 147 -BYTE # 230 -PORT # 147 -BYTE # 231 -PORT # 147 -BYTE # 232 -PORT # 147 -BYTE # 233 -PORT # 147 -BYTE # 234 -PORT # 147 -BYTE # 235 -PORT # 147 -BYTE # 236 -PORT # 147 -BYTE # 237 -PORT # 147 -BYTE # 238 -PORT # 147 -BYTE # 239 -PORT # 147 -BYTE # 240 -PORT # 147 -BYTE # 241 -PORT # 147 -BYTE # 242 -PORT # 147 -BYTE # 243 -PORT # 147 -BYTE # 244 -PORT # 147 -BYTE # 245 -PORT # 147 -BYTE # 246 -PORT # 147 -BYTE # 247 -PORT # 147 -BYTE # 248 -PORT # 147 -BYTE # 249 -PORT # 147 -BYTE # 250 -PORT # 147 -BYTE # 251 -PORT # 147 -BYTE # 252 -PORT # 147 -BYTE # 253 -PORT # 147 -BYTE # 254 -PORT # 147 -BYTE # 255 -PORT # 148 -BYTE # 0 -PORT # 148 -BYTE # 1 -PORT # 148 -BYTE # 2 -PORT # 148 -BYTE # 3 -PORT # 148 -BYTE # 4 -PORT # 148 -BYTE # 5 -PORT # 148 -BYTE # 6 -PORT # 148 -BYTE # 7 -PORT # 148 -BYTE # 8 -PORT # 148 -BYTE # 9 -PORT # 148 -BYTE # 10 -PORT # 148 -BYTE # 11 -PORT # 148 -BYTE # 12 -PORT # 148 -BYTE # 13 -PORT # 148 -BYTE # 14 -PORT # 148 -BYTE # 15 -PORT # 148 -BYTE # 16 -PORT # 148 -BYTE # 17 -PORT # 148 -BYTE # 18 -PORT # 148 -BYTE # 19 -PORT # 148 -BYTE # 20 -PORT # 148 -BYTE # 21 -PORT # 148 -BYTE # 22 -PORT # 148 -BYTE # 23 -PORT # 148 -BYTE # 24 -PORT # 148 -BYTE # 25 -PORT # 148 -BYTE # 26 -PORT # 148 -BYTE # 27 -PORT # 148 -BYTE # 28 -PORT # 148 -BYTE # 29 -PORT # 148 -BYTE # 30 -PORT # 148 -BYTE # 31 -PORT # 148 -BYTE # 32 -PORT # 148 -BYTE # 33 -PORT # 148 -BYTE # 34 -PORT # 148 -BYTE # 35 -PORT # 148 -BYTE # 36 -PORT # 148 -BYTE # 37 -PORT # 148 -BYTE # 38 -PORT # 148 -BYTE # 39 -PORT # 148 -BYTE # 40 -PORT # 148 -BYTE # 41 -PORT # 148 -BYTE # 42 -PORT # 148 -BYTE # 43 -PORT # 148 -BYTE # 44 -PORT # 148 -BYTE # 45 -PORT # 148 -BYTE # 46 -PORT # 148 -BYTE # 47 -PORT # 148 -BYTE # 48 -PORT # 148 -BYTE # 49 -PORT # 148 -BYTE # 50 -PORT # 148 -BYTE # 51 -PORT # 148 -BYTE # 52 -PORT # 148 -BYTE # 53 -PORT # 148 -BYTE # 54 -PORT # 148 -BYTE # 55 -PORT # 148 -BYTE # 56 -PORT # 148 -BYTE # 57 -PORT # 148 -BYTE # 58 -PORT # 148 -BYTE # 59 -PORT # 148 -BYTE # 60 -PORT # 148 -BYTE # 61 -PORT # 148 -BYTE # 62 -PORT # 148 -BYTE # 63 -PORT # 148 -BYTE # 64 -PORT # 148 -BYTE # 65 -PORT # 148 -BYTE # 66 -PORT # 148 -BYTE # 67 -PORT # 148 -BYTE # 68 -PORT # 148 -BYTE # 69 -PORT # 148 -BYTE # 70 -PORT # 148 -BYTE # 71 -PORT # 148 -BYTE # 72 -PORT # 148 -BYTE # 73 -PORT # 148 -BYTE # 74 -PORT # 148 -BYTE # 75 -PORT # 148 -BYTE # 76 -PORT # 148 -BYTE # 77 -PORT # 148 -BYTE # 78 -PORT # 148 -BYTE # 79 -PORT # 148 -BYTE # 80 -PORT # 148 -BYTE # 81 -PORT # 148 -BYTE # 82 -PORT # 148 -BYTE # 83 -PORT # 148 -BYTE # 84 -PORT # 148 -BYTE # 85 -PORT # 148 -BYTE # 86 -PORT # 148 -BYTE # 87 -PORT # 148 -BYTE # 88 -PORT # 148 -BYTE # 89 -PORT # 148 -BYTE # 90 -PORT # 148 -BYTE # 91 -PORT # 148 -BYTE # 92 -PORT # 148 -BYTE # 93 -PORT # 148 -BYTE # 94 -PORT # 148 -BYTE # 95 -PORT # 148 -BYTE # 96 -PORT # 148 -BYTE # 97 -PORT # 148 -BYTE # 98 -PORT # 148 -BYTE # 99 -PORT # 148 -BYTE # 100 -PORT # 148 -BYTE # 101 -PORT # 148 -BYTE # 102 -PORT # 148 -BYTE # 103 -PORT # 148 -BYTE # 104 -PORT # 148 -BYTE # 105 -PORT # 148 -BYTE # 106 -PORT # 148 -BYTE # 107 -PORT # 148 -BYTE # 108 -PORT # 148 -BYTE # 109 -PORT # 148 -BYTE # 110 -PORT # 148 -BYTE # 111 -PORT # 148 -BYTE # 112 -PORT # 148 -BYTE # 113 -PORT # 148 -BYTE # 114 -PORT # 148 -BYTE # 115 -PORT # 148 -BYTE # 116 -PORT # 148 -BYTE # 117 -PORT # 148 -BYTE # 118 -PORT # 148 -BYTE # 119 -PORT # 148 -BYTE # 120 -PORT # 148 -BYTE # 121 -PORT # 148 -BYTE # 122 -PORT # 148 -BYTE # 123 -PORT # 148 -BYTE # 124 -PORT # 148 -BYTE # 125 -PORT # 148 -BYTE # 126 -PORT # 148 -BYTE # 127 -PORT # 148 -BYTE # 128 -PORT # 148 -BYTE # 129 -PORT # 148 -BYTE # 130 -PORT # 148 -BYTE # 131 -PORT # 148 -BYTE # 132 -PORT # 148 -BYTE # 133 -PORT # 148 -BYTE # 134 -PORT # 148 -BYTE # 135 -PORT # 148 -BYTE # 136 -PORT # 148 -BYTE # 137 -PORT # 148 -BYTE # 138 -PORT # 148 -BYTE # 139 -PORT # 148 -BYTE # 140 -PORT # 148 -BYTE # 141 -PORT # 148 -BYTE # 142 -PORT # 148 -BYTE # 143 -PORT # 148 -BYTE # 144 -PORT # 148 -BYTE # 145 -PORT # 148 -BYTE # 146 -PORT # 148 -BYTE # 147 -PORT # 148 -BYTE # 148 -PORT # 148 -BYTE # 149 -PORT # 148 -BYTE # 150 -PORT # 148 -BYTE # 151 -PORT # 148 -BYTE # 152 -PORT # 148 -BYTE # 153 -PORT # 148 -BYTE # 154 -PORT # 148 -BYTE # 155 -PORT # 148 -BYTE # 156 -PORT # 148 -BYTE # 157 -PORT # 148 -BYTE # 158 -PORT # 148 -BYTE # 159 -PORT # 148 -BYTE # 160 -PORT # 148 -BYTE # 161 -PORT # 148 -BYTE # 162 -PORT # 148 -BYTE # 163 -PORT # 148 -BYTE # 164 -PORT # 148 -BYTE # 165 -PORT # 148 -BYTE # 166 -PORT # 148 -BYTE # 167 -PORT # 148 -BYTE # 168 -PORT # 148 -BYTE # 169 -PORT # 148 -BYTE # 170 -PORT # 148 -BYTE # 171 -PORT # 148 -BYTE # 172 -PORT # 148 -BYTE # 173 -PORT # 148 -BYTE # 174 -PORT # 148 -BYTE # 175 -PORT # 148 -BYTE # 176 -PORT # 148 -BYTE # 177 -PORT # 148 -BYTE # 178 -PORT # 148 -BYTE # 179 -PORT # 148 -BYTE # 180 -PORT # 148 -BYTE # 181 -PORT # 148 -BYTE # 182 -PORT # 148 -BYTE # 183 -PORT # 148 -BYTE # 184 -PORT # 148 -BYTE # 185 -PORT # 148 -BYTE # 186 -PORT # 148 -BYTE # 187 -PORT # 148 -BYTE # 188 -PORT # 148 -BYTE # 189 -PORT # 148 -BYTE # 190 -PORT # 148 -BYTE # 191 -PORT # 148 -BYTE # 192 -PORT # 148 -BYTE # 193 -PORT # 148 -BYTE # 194 -PORT # 148 -BYTE # 195 -PORT # 148 -BYTE # 196 -PORT # 148 -BYTE # 197 -PORT # 148 -BYTE # 198 -PORT # 148 -BYTE # 199 -PORT # 148 -BYTE # 200 -PORT # 148 -BYTE # 201 -PORT # 148 -BYTE # 202 -PORT # 148 -BYTE # 203 -PORT # 148 -BYTE # 204 -PORT # 148 -BYTE # 205 -PORT # 148 -BYTE # 206 -PORT # 148 -BYTE # 207 -PORT # 148 -BYTE # 208 -PORT # 148 -BYTE # 209 -PORT # 148 -BYTE # 210 -PORT # 148 -BYTE # 211 -PORT # 148 -BYTE # 212 -PORT # 148 -BYTE # 213 -PORT # 148 -BYTE # 214 -PORT # 148 -BYTE # 215 -PORT # 148 -BYTE # 216 -PORT # 148 -BYTE # 217 -PORT # 148 -BYTE # 218 -PORT # 148 -BYTE # 219 -PORT # 148 -BYTE # 220 -PORT # 148 -BYTE # 221 -PORT # 148 -BYTE # 222 -PORT # 148 -BYTE # 223 -PORT # 148 -BYTE # 224 -PORT # 148 -BYTE # 225 -PORT # 148 -BYTE # 226 -PORT # 148 -BYTE # 227 -PORT # 148 -BYTE # 228 -PORT # 148 -BYTE # 229 -PORT # 148 -BYTE # 230 -PORT # 148 -BYTE # 231 -PORT # 148 -BYTE # 232 -PORT # 148 -BYTE # 233 -PORT # 148 -BYTE # 234 -PORT # 148 -BYTE # 235 -PORT # 148 -BYTE # 236 -PORT # 148 -BYTE # 237 -PORT # 148 -BYTE # 238 -PORT # 148 -BYTE # 239 -PORT # 148 -BYTE # 240 -PORT # 148 -BYTE # 241 -PORT # 148 -BYTE # 242 -PORT # 148 -BYTE # 243 -PORT # 148 -BYTE # 244 -PORT # 148 -BYTE # 245 -PORT # 148 -BYTE # 246 -PORT # 148 -BYTE # 247 -PORT # 148 -BYTE # 248 -PORT # 148 -BYTE # 249 -PORT # 148 -BYTE # 250 -PORT # 148 -BYTE # 251 -PORT # 148 -BYTE # 252 -PORT # 148 -BYTE # 253 -PORT # 148 -BYTE # 254 -PORT # 148 -BYTE # 255 -PORT # 149 -BYTE # 0 -PORT # 149 -BYTE # 1 -PORT # 149 -BYTE # 2 -PORT # 149 -BYTE # 3 -PORT # 149 -BYTE # 4 -PORT # 149 -BYTE # 5 -PORT # 149 -BYTE # 6 -PORT # 149 -BYTE # 7 -PORT # 149 -BYTE # 8 -PORT # 149 -BYTE # 9 -PORT # 149 -BYTE # 10 -PORT # 149 -BYTE # 11 -PORT # 149 -BYTE # 12 -PORT # 149 -BYTE # 13 -PORT # 149 -BYTE # 14 -PORT # 149 -BYTE # 15 -PORT # 149 -BYTE # 16 -PORT # 149 -BYTE # 17 -PORT # 149 -BYTE # 18 -PORT # 149 -BYTE # 19 -PORT # 149 -BYTE # 20 -PORT # 149 -BYTE # 21 -PORT # 149 -BYTE # 22 -PORT # 149 -BYTE # 23 -PORT # 149 -BYTE # 24 -PORT # 149 -BYTE # 25 -PORT # 149 -BYTE # 26 -PORT # 149 -BYTE # 27 -PORT # 149 -BYTE # 28 -PORT # 149 -BYTE # 29 -PORT # 149 -BYTE # 30 -PORT # 149 -BYTE # 31 -PORT # 149 -BYTE # 32 -PORT # 149 -BYTE # 33 -PORT # 149 -BYTE # 34 -PORT # 149 -BYTE # 35 -PORT # 149 -BYTE # 36 -PORT # 149 -BYTE # 37 -PORT # 149 -BYTE # 38 -PORT # 149 -BYTE # 39 -PORT # 149 -BYTE # 40 -PORT # 149 -BYTE # 41 -PORT # 149 -BYTE # 42 -PORT # 149 -BYTE # 43 -PORT # 149 -BYTE # 44 -PORT # 149 -BYTE # 45 -PORT # 149 -BYTE # 46 -PORT # 149 -BYTE # 47 -PORT # 149 -BYTE # 48 -PORT # 149 -BYTE # 49 -PORT # 149 -BYTE # 50 -PORT # 149 -BYTE # 51 -PORT # 149 -BYTE # 52 -PORT # 149 -BYTE # 53 -PORT # 149 -BYTE # 54 -PORT # 149 -BYTE # 55 -PORT # 149 -BYTE # 56 -PORT # 149 -BYTE # 57 -PORT # 149 -BYTE # 58 -PORT # 149 -BYTE # 59 -PORT # 149 -BYTE # 60 -PORT # 149 -BYTE # 61 -PORT # 149 -BYTE # 62 -PORT # 149 -BYTE # 63 -PORT # 149 -BYTE # 64 -PORT # 149 -BYTE # 65 -PORT # 149 -BYTE # 66 -PORT # 149 -BYTE # 67 -PORT # 149 -BYTE # 68 -PORT # 149 -BYTE # 69 -PORT # 149 -BYTE # 70 -PORT # 149 -BYTE # 71 -PORT # 149 -BYTE # 72 -PORT # 149 -BYTE # 73 -PORT # 149 -BYTE # 74 -PORT # 149 -BYTE # 75 -PORT # 149 -BYTE # 76 -PORT # 149 -BYTE # 77 -PORT # 149 -BYTE # 78 -PORT # 149 -BYTE # 79 -PORT # 149 -BYTE # 80 -PORT # 149 -BYTE # 81 -PORT # 149 -BYTE # 82 -PORT # 149 -BYTE # 83 -PORT # 149 -BYTE # 84 -PORT # 149 -BYTE # 85 -PORT # 149 -BYTE # 86 -PORT # 149 -BYTE # 87 -PORT # 149 -BYTE # 88 -PORT # 149 -BYTE # 89 -PORT # 149 -BYTE # 90 -PORT # 149 -BYTE # 91 -PORT # 149 -BYTE # 92 -PORT # 149 -BYTE # 93 -PORT # 149 -BYTE # 94 -PORT # 149 -BYTE # 95 -PORT # 149 -BYTE # 96 -PORT # 149 -BYTE # 97 -PORT # 149 -BYTE # 98 -PORT # 149 -BYTE # 99 -PORT # 149 -BYTE # 100 -PORT # 149 -BYTE # 101 -PORT # 149 -BYTE # 102 -PORT # 149 -BYTE # 103 -PORT # 149 -BYTE # 104 -PORT # 149 -BYTE # 105 -PORT # 149 -BYTE # 106 -PORT # 149 -BYTE # 107 -PORT # 149 -BYTE # 108 -PORT # 149 -BYTE # 109 -PORT # 149 -BYTE # 110 -PORT # 149 -BYTE # 111 -PORT # 149 -BYTE # 112 -PORT # 149 -BYTE # 113 -PORT # 149 -BYTE # 114 -PORT # 149 -BYTE # 115 -PORT # 149 -BYTE # 116 -PORT # 149 -BYTE # 117 -PORT # 149 -BYTE # 118 -PORT # 149 -BYTE # 119 -PORT # 149 -BYTE # 120 -PORT # 149 -BYTE # 121 -PORT # 149 -BYTE # 122 -PORT # 149 -BYTE # 123 -PORT # 149 -BYTE # 124 -PORT # 149 -BYTE # 125 -PORT # 149 -BYTE # 126 -PORT # 149 -BYTE # 127 -PORT # 149 -BYTE # 128 -PORT # 149 -BYTE # 129 -PORT # 149 -BYTE # 130 -PORT # 149 -BYTE # 131 -PORT # 149 -BYTE # 132 -PORT # 149 -BYTE # 133 -PORT # 149 -BYTE # 134 -PORT # 149 -BYTE # 135 -PORT # 149 -BYTE # 136 -PORT # 149 -BYTE # 137 -PORT # 149 -BYTE # 138 -PORT # 149 -BYTE # 139 -PORT # 149 -BYTE # 140 -PORT # 149 -BYTE # 141 -PORT # 149 -BYTE # 142 -PORT # 149 -BYTE # 143 -PORT # 149 -BYTE # 144 -PORT # 149 -BYTE # 145 -PORT # 149 -BYTE # 146 -PORT # 149 -BYTE # 147 -PORT # 149 -BYTE # 148 -PORT # 149 -BYTE # 149 -PORT # 149 -BYTE # 150 -PORT # 149 -BYTE # 151 -PORT # 149 -BYTE # 152 -PORT # 149 -BYTE # 153 -PORT # 149 -BYTE # 154 -PORT # 149 -BYTE # 155 -PORT # 149 -BYTE # 156 -PORT # 149 -BYTE # 157 -PORT # 149 -BYTE # 158 -PORT # 149 -BYTE # 159 -PORT # 149 -BYTE # 160 -PORT # 149 -BYTE # 161 -PORT # 149 -BYTE # 162 -PORT # 149 -BYTE # 163 -PORT # 149 -BYTE # 164 -PORT # 149 -BYTE # 165 -PORT # 149 -BYTE # 166 -PORT # 149 -BYTE # 167 -PORT # 149 -BYTE # 168 -PORT # 149 -BYTE # 169 -PORT # 149 -BYTE # 170 -PORT # 149 -BYTE # 171 -PORT # 149 -BYTE # 172 -PORT # 149 -BYTE # 173 -PORT # 149 -BYTE # 174 -PORT # 149 -BYTE # 175 -PORT # 149 -BYTE # 176 -PORT # 149 -BYTE # 177 -PORT # 149 -BYTE # 178 -PORT # 149 -BYTE # 179 -PORT # 149 -BYTE # 180 -PORT # 149 -BYTE # 181 -PORT # 149 -BYTE # 182 -PORT # 149 -BYTE # 183 -PORT # 149 -BYTE # 184 -PORT # 149 -BYTE # 185 -PORT # 149 -BYTE # 186 -PORT # 149 -BYTE # 187 -PORT # 149 -BYTE # 188 -PORT # 149 -BYTE # 189 -PORT # 149 -BYTE # 190 -PORT # 149 -BYTE # 191 -PORT # 149 -BYTE # 192 -PORT # 149 -BYTE # 193 -PORT # 149 -BYTE # 194 -PORT # 149 -BYTE # 195 -PORT # 149 -BYTE # 196 -PORT # 149 -BYTE # 197 -PORT # 149 -BYTE # 198 -PORT # 149 -BYTE # 199 -PORT # 149 -BYTE # 200 -PORT # 149 -BYTE # 201 -PORT # 149 -BYTE # 202 -PORT # 149 -BYTE # 203 -PORT # 149 -BYTE # 204 -PORT # 149 -BYTE # 205 -PORT # 149 -BYTE # 206 -PORT # 149 -BYTE # 207 -PORT # 149 -BYTE # 208 -PORT # 149 -BYTE # 209 -PORT # 149 -BYTE # 210 -PORT # 149 -BYTE # 211 -PORT # 149 -BYTE # 212 -PORT # 149 -BYTE # 213 -PORT # 149 -BYTE # 214 -PORT # 149 -BYTE # 215 -PORT # 149 -BYTE # 216 -PORT # 149 -BYTE # 217 -PORT # 149 -BYTE # 218 -PORT # 149 -BYTE # 219 -PORT # 149 -BYTE # 220 -PORT # 149 -BYTE # 221 -PORT # 149 -BYTE # 222 -PORT # 149 -BYTE # 223 -PORT # 149 -BYTE # 224 -PORT # 149 -BYTE # 225 -PORT # 149 -BYTE # 226 -PORT # 149 -BYTE # 227 -PORT # 149 -BYTE # 228 -PORT # 149 -BYTE # 229 -PORT # 149 -BYTE # 230 -PORT # 149 -BYTE # 231 -PORT # 149 -BYTE # 232 -PORT # 149 -BYTE # 233 -PORT # 149 -BYTE # 234 -PORT # 149 -BYTE # 235 -PORT # 149 -BYTE # 236 -PORT # 149 -BYTE # 237 -PORT # 149 -BYTE # 238 -PORT # 149 -BYTE # 239 -PORT # 149 -BYTE # 240 -PORT # 149 -BYTE # 241 -PORT # 149 -BYTE # 242 -PORT # 149 -BYTE # 243 -PORT # 149 -BYTE # 244 -PORT # 149 -BYTE # 245 -PORT # 149 -BYTE # 246 -PORT # 149 -BYTE # 247 -PORT # 149 -BYTE # 248 -PORT # 149 -BYTE # 249 -PORT # 149 -BYTE # 250 -PORT # 149 -BYTE # 251 -PORT # 149 -BYTE # 252 -PORT # 149 -BYTE # 253 -PORT # 149 -BYTE # 254 -PORT # 149 -BYTE # 255 -PORT # 150 -BYTE # 0 -PORT # 150 -BYTE # 1 -PORT # 150 -BYTE # 2 -PORT # 150 -BYTE # 3 -PORT # 150 -BYTE # 4 -PORT # 150 -BYTE # 5 -PORT # 150 -BYTE # 6 -PORT # 150 -BYTE # 7 -PORT # 150 -BYTE # 8 -PORT # 150 -BYTE # 9 -PORT # 150 -BYTE # 10 -PORT # 150 -BYTE # 11 -PORT # 150 -BYTE # 12 -PORT # 150 -BYTE # 13 -PORT # 150 -BYTE # 14 -PORT # 150 -BYTE # 15 -PORT # 150 -BYTE # 16 -PORT # 150 -BYTE # 17 -PORT # 150 -BYTE # 18 -PORT # 150 -BYTE # 19 -PORT # 150 -BYTE # 20 -PORT # 150 -BYTE # 21 -PORT # 150 -BYTE # 22 -PORT # 150 -BYTE # 23 -PORT # 150 -BYTE # 24 -PORT # 150 -BYTE # 25 -PORT # 150 -BYTE # 26 -PORT # 150 -BYTE # 27 -PORT # 150 -BYTE # 28 -PORT # 150 -BYTE # 29 -PORT # 150 -BYTE # 30 -PORT # 150 -BYTE # 31 -PORT # 150 -BYTE # 32 -PORT # 150 -BYTE # 33 -PORT # 150 -BYTE # 34 -PORT # 150 -BYTE # 35 -PORT # 150 -BYTE # 36 -PORT # 150 -BYTE # 37 -PORT # 150 -BYTE # 38 -PORT # 150 -BYTE # 39 -PORT # 150 -BYTE # 40 -PORT # 150 -BYTE # 41 -PORT # 150 -BYTE # 42 -PORT # 150 -BYTE # 43 -PORT # 150 -BYTE # 44 -PORT # 150 -BYTE # 45 -PORT # 150 -BYTE # 46 -PORT # 150 -BYTE # 47 -PORT # 150 -BYTE # 48 -PORT # 150 -BYTE # 49 -PORT # 150 -BYTE # 50 -PORT # 150 -BYTE # 51 -PORT # 150 -BYTE # 52 -PORT # 150 -BYTE # 53 -PORT # 150 -BYTE # 54 -PORT # 150 -BYTE # 55 -PORT # 150 -BYTE # 56 -PORT # 150 -BYTE # 57 -PORT # 150 -BYTE # 58 -PORT # 150 -BYTE # 59 -PORT # 150 -BYTE # 60 -PORT # 150 -BYTE # 61 -PORT # 150 -BYTE # 62 -PORT # 150 -BYTE # 63 -PORT # 150 -BYTE # 64 -PORT # 150 -BYTE # 65 -PORT # 150 -BYTE # 66 -PORT # 150 -BYTE # 67 -PORT # 150 -BYTE # 68 -PORT # 150 -BYTE # 69 -PORT # 150 -BYTE # 70 -PORT # 150 -BYTE # 71 -PORT # 150 -BYTE # 72 -PORT # 150 -BYTE # 73 -PORT # 150 -BYTE # 74 -PORT # 150 -BYTE # 75 -PORT # 150 -BYTE # 76 -PORT # 150 -BYTE # 77 -PORT # 150 -BYTE # 78 -PORT # 150 -BYTE # 79 -PORT # 150 -BYTE # 80 -PORT # 150 -BYTE # 81 -PORT # 150 -BYTE # 82 -PORT # 150 -BYTE # 83 -PORT # 150 -BYTE # 84 -PORT # 150 -BYTE # 85 -PORT # 150 -BYTE # 86 -PORT # 150 -BYTE # 87 -PORT # 150 -BYTE # 88 -PORT # 150 -BYTE # 89 -PORT # 150 -BYTE # 90 -PORT # 150 -BYTE # 91 -PORT # 150 -BYTE # 92 -PORT # 150 -BYTE # 93 -PORT # 150 -BYTE # 94 -PORT # 150 -BYTE # 95 -PORT # 150 -BYTE # 96 -PORT # 150 -BYTE # 97 -PORT # 150 -BYTE # 98 -PORT # 150 -BYTE # 99 -PORT # 150 -BYTE # 100 -PORT # 150 -BYTE # 101 -PORT # 150 -BYTE # 102 -PORT # 150 -BYTE # 103 -PORT # 150 -BYTE # 104 -PORT # 150 -BYTE # 105 -PORT # 150 -BYTE # 106 -PORT # 150 -BYTE # 107 -PORT # 150 -BYTE # 108 -PORT # 150 -BYTE # 109 -PORT # 150 -BYTE # 110 -PORT # 150 -BYTE # 111 -PORT # 150 -BYTE # 112 -PORT # 150 -BYTE # 113 -PORT # 150 -BYTE # 114 -PORT # 150 -BYTE # 115 -PORT # 150 -BYTE # 116 -PORT # 150 -BYTE # 117 -PORT # 150 -BYTE # 118 -PORT # 150 -BYTE # 119 -PORT # 150 -BYTE # 120 -PORT # 150 -BYTE # 121 -PORT # 150 -BYTE # 122 -PORT # 150 -BYTE # 123 -PORT # 150 -BYTE # 124 -PORT # 150 -BYTE # 125 -PORT # 150 -BYTE # 126 -PORT # 150 -BYTE # 127 -PORT # 150 -BYTE # 128 -PORT # 150 -BYTE # 129 -PORT # 150 -BYTE # 130 -PORT # 150 -BYTE # 131 -PORT # 150 -BYTE # 132 -PORT # 150 -BYTE # 133 -PORT # 150 -BYTE # 134 -PORT # 150 -BYTE # 135 -PORT # 150 -BYTE # 136 -PORT # 150 -BYTE # 137 -PORT # 150 -BYTE # 138 -PORT # 150 -BYTE # 139 -PORT # 150 -BYTE # 140 -PORT # 150 -BYTE # 141 -PORT # 150 -BYTE # 142 -PORT # 150 -BYTE # 143 -PORT # 150 -BYTE # 144 -PORT # 150 -BYTE # 145 -PORT # 150 -BYTE # 146 -PORT # 150 -BYTE # 147 -PORT # 150 -BYTE # 148 -PORT # 150 -BYTE # 149 -PORT # 150 -BYTE # 150 -PORT # 150 -BYTE # 151 -PORT # 150 -BYTE # 152 -PORT # 150 -BYTE # 153 -PORT # 150 -BYTE # 154 -PORT # 150 -BYTE # 155 -PORT # 150 -BYTE # 156 -PORT # 150 -BYTE # 157 -PORT # 150 -BYTE # 158 -PORT # 150 -BYTE # 159 -PORT # 150 -BYTE # 160 -PORT # 150 -BYTE # 161 -PORT # 150 -BYTE # 162 -PORT # 150 -BYTE # 163 -PORT # 150 -BYTE # 164 -PORT # 150 -BYTE # 165 -PORT # 150 -BYTE # 166 -PORT # 150 -BYTE # 167 -PORT # 150 -BYTE # 168 -PORT # 150 -BYTE # 169 -PORT # 150 -BYTE # 170 -PORT # 150 -BYTE # 171 -PORT # 150 -BYTE # 172 -PORT # 150 -BYTE # 173 -PORT # 150 -BYTE # 174 -PORT # 150 -BYTE # 175 -PORT # 150 -BYTE # 176 -PORT # 150 -BYTE # 177 -PORT # 150 -BYTE # 178 -PORT # 150 -BYTE # 179 -PORT # 150 -BYTE # 180 -PORT # 150 -BYTE # 181 -PORT # 150 -BYTE # 182 -PORT # 150 -BYTE # 183 -PORT # 150 -BYTE # 184 -PORT # 150 -BYTE # 185 -PORT # 150 -BYTE # 186 -PORT # 150 -BYTE # 187 -PORT # 150 -BYTE # 188 -PORT # 150 -BYTE # 189 -PORT # 150 -BYTE # 190 -PORT # 150 -BYTE # 191 -PORT # 150 -BYTE # 192 -PORT # 150 -BYTE # 193 -PORT # 150 -BYTE # 194 -PORT # 150 -BYTE # 195 -PORT # 150 -BYTE # 196 -PORT # 150 -BYTE # 197 -PORT # 150 -BYTE # 198 -PORT # 150 -BYTE # 199 -PORT # 150 -BYTE # 200 -PORT # 150 -BYTE # 201 -PORT # 150 -BYTE # 202 -PORT # 150 -BYTE # 203 -PORT # 150 -BYTE # 204 -PORT # 150 -BYTE # 205 -PORT # 150 -BYTE # 206 -PORT # 150 -BYTE # 207 -PORT # 150 -BYTE # 208 -PORT # 150 -BYTE # 209 -PORT # 150 -BYTE # 210 -PORT # 150 -BYTE # 211 -PORT # 150 -BYTE # 212 -PORT # 150 -BYTE # 213 -PORT # 150 -BYTE # 214 -PORT # 150 -BYTE # 215 -PORT # 150 -BYTE # 216 -PORT # 150 -BYTE # 217 -PORT # 150 -BYTE # 218 -PORT # 150 -BYTE # 219 -PORT # 150 -BYTE # 220 -PORT # 150 -BYTE # 221 -PORT # 150 -BYTE # 222 -PORT # 150 -BYTE # 223 -PORT # 150 -BYTE # 224 -PORT # 150 -BYTE # 225 -PORT # 150 -BYTE # 226 -PORT # 150 -BYTE # 227 -PORT # 150 -BYTE # 228 -PORT # 150 -BYTE # 229 -PORT # 150 -BYTE # 230 -PORT # 150 -BYTE # 231 -PORT # 150 -BYTE # 232 -PORT # 150 -BYTE # 233 -PORT # 150 -BYTE # 234 -PORT # 150 -BYTE # 235 -PORT # 150 -BYTE # 236 -PORT # 150 -BYTE # 237 -PORT # 150 -BYTE # 238 -PORT # 150 -BYTE # 239 -PORT # 150 -BYTE # 240 -PORT # 150 -BYTE # 241 -PORT # 150 -BYTE # 242 -PORT # 150 -BYTE # 243 -PORT # 150 -BYTE # 244 -PORT # 150 -BYTE # 245 -PORT # 150 -BYTE # 246 -PORT # 150 -BYTE # 247 -PORT # 150 -BYTE # 248 -PORT # 150 -BYTE # 249 -PORT # 150 -BYTE # 250 -PORT # 150 -BYTE # 251 -PORT # 150 -BYTE # 252 -PORT # 150 -BYTE # 253 -PORT # 150 -BYTE # 254 -PORT # 150 -BYTE # 255 -PORT # 151 -BYTE # 0 -PORT # 151 -BYTE # 1 -PORT # 151 -BYTE # 2 -PORT # 151 -BYTE # 3 -PORT # 151 -BYTE # 4 -PORT # 151 -BYTE # 5 -PORT # 151 -BYTE # 6 -PORT # 151 -BYTE # 7 -PORT # 151 -BYTE # 8 -PORT # 151 -BYTE # 9 -PORT # 151 -BYTE # 10 -PORT # 151 -BYTE # 11 -PORT # 151 -BYTE # 12 -PORT # 151 -BYTE # 13 -PORT # 151 -BYTE # 14 -PORT # 151 -BYTE # 15 -PORT # 151 -BYTE # 16 -PORT # 151 -BYTE # 17 -PORT # 151 -BYTE # 18 -PORT # 151 -BYTE # 19 -PORT # 151 -BYTE # 20 -PORT # 151 -BYTE # 21 -PORT # 151 -BYTE # 22 -PORT # 151 -BYTE # 23 -PORT # 151 -BYTE # 24 -PORT # 151 -BYTE # 25 -PORT # 151 -BYTE # 26 -PORT # 151 -BYTE # 27 -PORT # 151 -BYTE # 28 -PORT # 151 -BYTE # 29 -PORT # 151 -BYTE # 30 -PORT # 151 -BYTE # 31 -PORT # 151 -BYTE # 32 -PORT # 151 -BYTE # 33 -PORT # 151 -BYTE # 34 -PORT # 151 -BYTE # 35 -PORT # 151 -BYTE # 36 -PORT # 151 -BYTE # 37 -PORT # 151 -BYTE # 38 -PORT # 151 -BYTE # 39 -PORT # 151 -BYTE # 40 -PORT # 151 -BYTE # 41 -PORT # 151 -BYTE # 42 -PORT # 151 -BYTE # 43 -PORT # 151 -BYTE # 44 -PORT # 151 -BYTE # 45 -PORT # 151 -BYTE # 46 -PORT # 151 -BYTE # 47 -PORT # 151 -BYTE # 48 -PORT # 151 -BYTE # 49 -PORT # 151 -BYTE # 50 -PORT # 151 -BYTE # 51 -PORT # 151 -BYTE # 52 -PORT # 151 -BYTE # 53 -PORT # 151 -BYTE # 54 -PORT # 151 -BYTE # 55 -PORT # 151 -BYTE # 56 -PORT # 151 -BYTE # 57 -PORT # 151 -BYTE # 58 -PORT # 151 -BYTE # 59 -PORT # 151 -BYTE # 60 -PORT # 151 -BYTE # 61 -PORT # 151 -BYTE # 62 -PORT # 151 -BYTE # 63 -PORT # 151 -BYTE # 64 -PORT # 151 -BYTE # 65 -PORT # 151 -BYTE # 66 -PORT # 151 -BYTE # 67 -PORT # 151 -BYTE # 68 -PORT # 151 -BYTE # 69 -PORT # 151 -BYTE # 70 -PORT # 151 -BYTE # 71 -PORT # 151 -BYTE # 72 -PORT # 151 -BYTE # 73 -PORT # 151 -BYTE # 74 -PORT # 151 -BYTE # 75 -PORT # 151 -BYTE # 76 -PORT # 151 -BYTE # 77 -PORT # 151 -BYTE # 78 -PORT # 151 -BYTE # 79 -PORT # 151 -BYTE # 80 -PORT # 151 -BYTE # 81 -PORT # 151 -BYTE # 82 -PORT # 151 -BYTE # 83 -PORT # 151 -BYTE # 84 -PORT # 151 -BYTE # 85 -PORT # 151 -BYTE # 86 -PORT # 151 -BYTE # 87 -PORT # 151 -BYTE # 88 -PORT # 151 -BYTE # 89 -PORT # 151 -BYTE # 90 -PORT # 151 -BYTE # 91 -PORT # 151 -BYTE # 92 -PORT # 151 -BYTE # 93 -PORT # 151 -BYTE # 94 -PORT # 151 -BYTE # 95 -PORT # 151 -BYTE # 96 -PORT # 151 -BYTE # 97 -PORT # 151 -BYTE # 98 -PORT # 151 -BYTE # 99 -PORT # 151 -BYTE # 100 -PORT # 151 -BYTE # 101 -PORT # 151 -BYTE # 102 -PORT # 151 -BYTE # 103 -PORT # 151 -BYTE # 104 -PORT # 151 -BYTE # 105 -PORT # 151 -BYTE # 106 -PORT # 151 -BYTE # 107 -PORT # 151 -BYTE # 108 -PORT # 151 -BYTE # 109 -PORT # 151 -BYTE # 110 -PORT # 151 -BYTE # 111 -PORT # 151 -BYTE # 112 -PORT # 151 -BYTE # 113 -PORT # 151 -BYTE # 114 -PORT # 151 -BYTE # 115 -PORT # 151 -BYTE # 116 -PORT # 151 -BYTE # 117 -PORT # 151 -BYTE # 118 -PORT # 151 -BYTE # 119 -PORT # 151 -BYTE # 120 -PORT # 151 -BYTE # 121 -PORT # 151 -BYTE # 122 -PORT # 151 -BYTE # 123 -PORT # 151 -BYTE # 124 -PORT # 151 -BYTE # 125 -PORT # 151 -BYTE # 126 -PORT # 151 -BYTE # 127 -PORT # 151 -BYTE # 128 -PORT # 151 -BYTE # 129 -PORT # 151 -BYTE # 130 -PORT # 151 -BYTE # 131 -PORT # 151 -BYTE # 132 -PORT # 151 -BYTE # 133 -PORT # 151 -BYTE # 134 -PORT # 151 -BYTE # 135 -PORT # 151 -BYTE # 136 -PORT # 151 -BYTE # 137 -PORT # 151 -BYTE # 138 -PORT # 151 -BYTE # 139 -PORT # 151 -BYTE # 140 -PORT # 151 -BYTE # 141 -PORT # 151 -BYTE # 142 -PORT # 151 -BYTE # 143 -PORT # 151 -BYTE # 144 -PORT # 151 -BYTE # 145 -PORT # 151 -BYTE # 146 -PORT # 151 -BYTE # 147 -PORT # 151 -BYTE # 148 -PORT # 151 -BYTE # 149 -PORT # 151 -BYTE # 150 -PORT # 151 -BYTE # 151 -PORT # 151 -BYTE # 152 -PORT # 151 -BYTE # 153 -PORT # 151 -BYTE # 154 -PORT # 151 -BYTE # 155 -PORT # 151 -BYTE # 156 -PORT # 151 -BYTE # 157 -PORT # 151 -BYTE # 158 -PORT # 151 -BYTE # 159 -PORT # 151 -BYTE # 160 -PORT # 151 -BYTE # 161 -PORT # 151 -BYTE # 162 -PORT # 151 -BYTE # 163 -PORT # 151 -BYTE # 164 -PORT # 151 -BYTE # 165 -PORT # 151 -BYTE # 166 -PORT # 151 -BYTE # 167 -PORT # 151 -BYTE # 168 -PORT # 151 -BYTE # 169 -PORT # 151 -BYTE # 170 -PORT # 151 -BYTE # 171 -PORT # 151 -BYTE # 172 -PORT # 151 -BYTE # 173 -PORT # 151 -BYTE # 174 -PORT # 151 -BYTE # 175 -PORT # 151 -BYTE # 176 -PORT # 151 -BYTE # 177 -PORT # 151 -BYTE # 178 -PORT # 151 -BYTE # 179 -PORT # 151 -BYTE # 180 -PORT # 151 -BYTE # 181 -PORT # 151 -BYTE # 182 -PORT # 151 -BYTE # 183 -PORT # 151 -BYTE # 184 -PORT # 151 -BYTE # 185 -PORT # 151 -BYTE # 186 -PORT # 151 -BYTE # 187 -PORT # 151 -BYTE # 188 -PORT # 151 -BYTE # 189 -PORT # 151 -BYTE # 190 -PORT # 151 -BYTE # 191 -PORT # 151 -BYTE # 192 -PORT # 151 -BYTE # 193 -PORT # 151 -BYTE # 194 -PORT # 151 -BYTE # 195 -PORT # 151 -BYTE # 196 -PORT # 151 -BYTE # 197 -PORT # 151 -BYTE # 198 -PORT # 151 -BYTE # 199 -PORT # 151 -BYTE # 200 -PORT # 151 -BYTE # 201 -PORT # 151 -BYTE # 202 -PORT # 151 -BYTE # 203 -PORT # 151 -BYTE # 204 -PORT # 151 -BYTE # 205 -PORT # 151 -BYTE # 206 -PORT # 151 -BYTE # 207 -PORT # 151 -BYTE # 208 -PORT # 151 -BYTE # 209 -PORT # 151 -BYTE # 210 -PORT # 151 -BYTE # 211 -PORT # 151 -BYTE # 212 -PORT # 151 -BYTE # 213 -PORT # 151 -BYTE # 214 -PORT # 151 -BYTE # 215 -PORT # 151 -BYTE # 216 -PORT # 151 -BYTE # 217 -PORT # 151 -BYTE # 218 -PORT # 151 -BYTE # 219 -PORT # 151 -BYTE # 220 -PORT # 151 -BYTE # 221 -PORT # 151 -BYTE # 222 -PORT # 151 -BYTE # 223 -PORT # 151 -BYTE # 224 -PORT # 151 -BYTE # 225 -PORT # 151 -BYTE # 226 -PORT # 151 -BYTE # 227 -PORT # 151 -BYTE # 228 -PORT # 151 -BYTE # 229 -PORT # 151 -BYTE # 230 -PORT # 151 -BYTE # 231 -PORT # 151 -BYTE # 232 -PORT # 151 -BYTE # 233 -PORT # 151 -BYTE # 234 -PORT # 151 -BYTE # 235 -PORT # 151 -BYTE # 236 -PORT # 151 -BYTE # 237 -PORT # 151 -BYTE # 238 -PORT # 151 -BYTE # 239 -PORT # 151 -BYTE # 240 -PORT # 151 -BYTE # 241 -PORT # 151 -BYTE # 242 -PORT # 151 -BYTE # 243 -PORT # 151 -BYTE # 244 -PORT # 151 -BYTE # 245 -PORT # 151 -BYTE # 246 -PORT # 151 -BYTE # 247 -PORT # 151 -BYTE # 248 -PORT # 151 -BYTE # 249 -PORT # 151 -BYTE # 250 -PORT # 151 -BYTE # 251 -PORT # 151 -BYTE # 252 -PORT # 151 -BYTE # 253 -PORT # 151 -BYTE # 254 -PORT # 151 -BYTE # 255 -PORT # 152 -BYTE # 0 -PORT # 152 -BYTE # 1 -PORT # 152 -BYTE # 2 -PORT # 152 -BYTE # 3 -PORT # 152 -BYTE # 4 -PORT # 152 -BYTE # 5 -PORT # 152 -BYTE # 6 -PORT # 152 -BYTE # 7 -PORT # 152 -BYTE # 8 -PORT # 152 -BYTE # 9 -PORT # 152 -BYTE # 10 -PORT # 152 -BYTE # 11 -PORT # 152 -BYTE # 12 -PORT # 152 -BYTE # 13 -PORT # 152 -BYTE # 14 -PORT # 152 -BYTE # 15 -PORT # 152 -BYTE # 16 -PORT # 152 -BYTE # 17 -PORT # 152 -BYTE # 18 -PORT # 152 -BYTE # 19 -PORT # 152 -BYTE # 20 -PORT # 152 -BYTE # 21 -PORT # 152 -BYTE # 22 -PORT # 152 -BYTE # 23 -PORT # 152 -BYTE # 24 -PORT # 152 -BYTE # 25 -PORT # 152 -BYTE # 26 -PORT # 152 -BYTE # 27 -PORT # 152 -BYTE # 28 -PORT # 152 -BYTE # 29 -PORT # 152 -BYTE # 30 -PORT # 152 -BYTE # 31 -PORT # 152 -BYTE # 32 -PORT # 152 -BYTE # 33 -PORT # 152 -BYTE # 34 -PORT # 152 -BYTE # 35 -PORT # 152 -BYTE # 36 -PORT # 152 -BYTE # 37 -PORT # 152 -BYTE # 38 -PORT # 152 -BYTE # 39 -PORT # 152 -BYTE # 40 -PORT # 152 -BYTE # 41 -PORT # 152 -BYTE # 42 -PORT # 152 -BYTE # 43 -PORT # 152 -BYTE # 44 -PORT # 152 -BYTE # 45 -PORT # 152 -BYTE # 46 -PORT # 152 -BYTE # 47 -PORT # 152 -BYTE # 48 -PORT # 152 -BYTE # 49 -PORT # 152 -BYTE # 50 -PORT # 152 -BYTE # 51 -PORT # 152 -BYTE # 52 -PORT # 152 -BYTE # 53 -PORT # 152 -BYTE # 54 -PORT # 152 -BYTE # 55 -PORT # 152 -BYTE # 56 -PORT # 152 -BYTE # 57 -PORT # 152 -BYTE # 58 -PORT # 152 -BYTE # 59 -PORT # 152 -BYTE # 60 -PORT # 152 -BYTE # 61 -PORT # 152 -BYTE # 62 -PORT # 152 -BYTE # 63 -PORT # 152 -BYTE # 64 -PORT # 152 -BYTE # 65 -PORT # 152 -BYTE # 66 -PORT # 152 -BYTE # 67 -PORT # 152 -BYTE # 68 -PORT # 152 -BYTE # 69 -PORT # 152 -BYTE # 70 -PORT # 152 -BYTE # 71 -PORT # 152 -BYTE # 72 -PORT # 152 -BYTE # 73 -PORT # 152 -BYTE # 74 -PORT # 152 -BYTE # 75 -PORT # 152 -BYTE # 76 -PORT # 152 -BYTE # 77 -PORT # 152 -BYTE # 78 -PORT # 152 -BYTE # 79 -PORT # 152 -BYTE # 80 -PORT # 152 -BYTE # 81 -PORT # 152 -BYTE # 82 -PORT # 152 -BYTE # 83 -PORT # 152 -BYTE # 84 -PORT # 152 -BYTE # 85 -PORT # 152 -BYTE # 86 -PORT # 152 -BYTE # 87 -PORT # 152 -BYTE # 88 -PORT # 152 -BYTE # 89 -PORT # 152 -BYTE # 90 -PORT # 152 -BYTE # 91 -PORT # 152 -BYTE # 92 -PORT # 152 -BYTE # 93 -PORT # 152 -BYTE # 94 -PORT # 152 -BYTE # 95 -PORT # 152 -BYTE # 96 -PORT # 152 -BYTE # 97 -PORT # 152 -BYTE # 98 -PORT # 152 -BYTE # 99 -PORT # 152 -BYTE # 100 -PORT # 152 -BYTE # 101 -PORT # 152 -BYTE # 102 -PORT # 152 -BYTE # 103 -PORT # 152 -BYTE # 104 -PORT # 152 -BYTE # 105 -PORT # 152 -BYTE # 106 -PORT # 152 -BYTE # 107 -PORT # 152 -BYTE # 108 -PORT # 152 -BYTE # 109 -PORT # 152 -BYTE # 110 -PORT # 152 -BYTE # 111 -PORT # 152 -BYTE # 112 -PORT # 152 -BYTE # 113 -PORT # 152 -BYTE # 114 -PORT # 152 -BYTE # 115 -PORT # 152 -BYTE # 116 -PORT # 152 -BYTE # 117 -PORT # 152 -BYTE # 118 -PORT # 152 -BYTE # 119 -PORT # 152 -BYTE # 120 -PORT # 152 -BYTE # 121 -PORT # 152 -BYTE # 122 -PORT # 152 -BYTE # 123 -PORT # 152 -BYTE # 124 -PORT # 152 -BYTE # 125 -PORT # 152 -BYTE # 126 -PORT # 152 -BYTE # 127 -PORT # 152 -BYTE # 128 -PORT # 152 -BYTE # 129 -PORT # 152 -BYTE # 130 -PORT # 152 -BYTE # 131 -PORT # 152 -BYTE # 132 -PORT # 152 -BYTE # 133 -PORT # 152 -BYTE # 134 -PORT # 152 -BYTE # 135 -PORT # 152 -BYTE # 136 -PORT # 152 -BYTE # 137 -PORT # 152 -BYTE # 138 -PORT # 152 -BYTE # 139 -PORT # 152 -BYTE # 140 -PORT # 152 -BYTE # 141 -PORT # 152 -BYTE # 142 -PORT # 152 -BYTE # 143 -PORT # 152 -BYTE # 144 -PORT # 152 -BYTE # 145 -PORT # 152 -BYTE # 146 -PORT # 152 -BYTE # 147 -PORT # 152 -BYTE # 148 -PORT # 152 -BYTE # 149 -PORT # 152 -BYTE # 150 -PORT # 152 -BYTE # 151 -PORT # 152 -BYTE # 152 -PORT # 152 -BYTE # 153 -PORT # 152 -BYTE # 154 -PORT # 152 -BYTE # 155 -PORT # 152 -BYTE # 156 -PORT # 152 -BYTE # 157 -PORT # 152 -BYTE # 158 -PORT # 152 -BYTE # 159 -PORT # 152 -BYTE # 160 -PORT # 152 -BYTE # 161 -PORT # 152 -BYTE # 162 -PORT # 152 -BYTE # 163 -PORT # 152 -BYTE # 164 -PORT # 152 -BYTE # 165 -PORT # 152 -BYTE # 166 -PORT # 152 -BYTE # 167 -PORT # 152 -BYTE # 168 -PORT # 152 -BYTE # 169 -PORT # 152 -BYTE # 170 -PORT # 152 -BYTE # 171 -PORT # 152 -BYTE # 172 -PORT # 152 -BYTE # 173 -PORT # 152 -BYTE # 174 -PORT # 152 -BYTE # 175 -PORT # 152 -BYTE # 176 -PORT # 152 -BYTE # 177 -PORT # 152 -BYTE # 178 -PORT # 152 -BYTE # 179 -PORT # 152 -BYTE # 180 -PORT # 152 -BYTE # 181 -PORT # 152 -BYTE # 182 -PORT # 152 -BYTE # 183 -PORT # 152 -BYTE # 184 -PORT # 152 -BYTE # 185 -PORT # 152 -BYTE # 186 -PORT # 152 -BYTE # 187 -PORT # 152 -BYTE # 188 -PORT # 152 -BYTE # 189 -PORT # 152 -BYTE # 190 -PORT # 152 -BYTE # 191 -PORT # 152 -BYTE # 192 -PORT # 152 -BYTE # 193 -PORT # 152 -BYTE # 194 -PORT # 152 -BYTE # 195 -PORT # 152 -BYTE # 196 -PORT # 152 -BYTE # 197 -PORT # 152 -BYTE # 198 -PORT # 152 -BYTE # 199 -PORT # 152 -BYTE # 200 -PORT # 152 -BYTE # 201 -PORT # 152 -BYTE # 202 -PORT # 152 -BYTE # 203 -PORT # 152 -BYTE # 204 -PORT # 152 -BYTE # 205 -PORT # 152 -BYTE # 206 -PORT # 152 -BYTE # 207 -PORT # 152 -BYTE # 208 -PORT # 152 -BYTE # 209 -PORT # 152 -BYTE # 210 -PORT # 152 -BYTE # 211 -PORT # 152 -BYTE # 212 -PORT # 152 -BYTE # 213 -PORT # 152 -BYTE # 214 -PORT # 152 -BYTE # 215 -PORT # 152 -BYTE # 216 -PORT # 152 -BYTE # 217 -PORT # 152 -BYTE # 218 -PORT # 152 -BYTE # 219 -PORT # 152 -BYTE # 220 -PORT # 152 -BYTE # 221 -PORT # 152 -BYTE # 222 -PORT # 152 -BYTE # 223 -PORT # 152 -BYTE # 224 -PORT # 152 -BYTE # 225 -PORT # 152 -BYTE # 226 -PORT # 152 -BYTE # 227 -PORT # 152 -BYTE # 228 -PORT # 152 -BYTE # 229 -PORT # 152 -BYTE # 230 -PORT # 152 -BYTE # 231 -PORT # 152 -BYTE # 232 -PORT # 152 -BYTE # 233 -PORT # 152 -BYTE # 234 -PORT # 152 -BYTE # 235 -PORT # 152 -BYTE # 236 -PORT # 152 -BYTE # 237 -PORT # 152 -BYTE # 238 -PORT # 152 -BYTE # 239 -PORT # 152 -BYTE # 240 -PORT # 152 -BYTE # 241 -PORT # 152 -BYTE # 242 -PORT # 152 -BYTE # 243 -PORT # 152 -BYTE # 244 -PORT # 152 -BYTE # 245 -PORT # 152 -BYTE # 246 -PORT # 152 -BYTE # 247 -PORT # 152 -BYTE # 248 -PORT # 152 -BYTE # 249 -PORT # 152 -BYTE # 250 -PORT # 152 -BYTE # 251 -PORT # 152 -BYTE # 252 -PORT # 152 -BYTE # 253 -PORT # 152 -BYTE # 254 -PORT # 152 -BYTE # 255 -PORT # 153 -BYTE # 0 -PORT # 153 -BYTE # 1 -PORT # 153 -BYTE # 2 -PORT # 153 -BYTE # 3 -PORT # 153 -BYTE # 4 -PORT # 153 -BYTE # 5 -PORT # 153 -BYTE # 6 -PORT # 153 -BYTE # 7 -PORT # 153 -BYTE # 8 -PORT # 153 -BYTE # 9 -PORT # 153 -BYTE # 10 -PORT # 153 -BYTE # 11 -PORT # 153 -BYTE # 12 -PORT # 153 -BYTE # 13 -PORT # 153 -BYTE # 14 -PORT # 153 -BYTE # 15 -PORT # 153 -BYTE # 16 -PORT # 153 -BYTE # 17 -PORT # 153 -BYTE # 18 -PORT # 153 -BYTE # 19 -PORT # 153 -BYTE # 20 -PORT # 153 -BYTE # 21 -PORT # 153 -BYTE # 22 -PORT # 153 -BYTE # 23 -PORT # 153 -BYTE # 24 -PORT # 153 -BYTE # 25 -PORT # 153 -BYTE # 26 -PORT # 153 -BYTE # 27 -PORT # 153 -BYTE # 28 -PORT # 153 -BYTE # 29 -PORT # 153 -BYTE # 30 -PORT # 153 -BYTE # 31 -PORT # 153 -BYTE # 32 -PORT # 153 -BYTE # 33 -PORT # 153 -BYTE # 34 -PORT # 153 -BYTE # 35 -PORT # 153 -BYTE # 36 -PORT # 153 -BYTE # 37 -PORT # 153 -BYTE # 38 -PORT # 153 -BYTE # 39 -PORT # 153 -BYTE # 40 -PORT # 153 -BYTE # 41 -PORT # 153 -BYTE # 42 -PORT # 153 -BYTE # 43 -PORT # 153 -BYTE # 44 -PORT # 153 -BYTE # 45 -PORT # 153 -BYTE # 46 -PORT # 153 -BYTE # 47 -PORT # 153 -BYTE # 48 -PORT # 153 -BYTE # 49 -PORT # 153 -BYTE # 50 -PORT # 153 -BYTE # 51 -PORT # 153 -BYTE # 52 -PORT # 153 -BYTE # 53 -PORT # 153 -BYTE # 54 -PORT # 153 -BYTE # 55 -PORT # 153 -BYTE # 56 -PORT # 153 -BYTE # 57 -PORT # 153 -BYTE # 58 -PORT # 153 -BYTE # 59 -PORT # 153 -BYTE # 60 -PORT # 153 -BYTE # 61 -PORT # 153 -BYTE # 62 -PORT # 153 -BYTE # 63 -PORT # 153 -BYTE # 64 -PORT # 153 -BYTE # 65 -PORT # 153 -BYTE # 66 -PORT # 153 -BYTE # 67 -PORT # 153 -BYTE # 68 -PORT # 153 -BYTE # 69 -PORT # 153 -BYTE # 70 -PORT # 153 -BYTE # 71 -PORT # 153 -BYTE # 72 -PORT # 153 -BYTE # 73 -PORT # 153 -BYTE # 74 -PORT # 153 -BYTE # 75 -PORT # 153 -BYTE # 76 -PORT # 153 -BYTE # 77 -PORT # 153 -BYTE # 78 -PORT # 153 -BYTE # 79 -PORT # 153 -BYTE # 80 -PORT # 153 -BYTE # 81 -PORT # 153 -BYTE # 82 -PORT # 153 -BYTE # 83 -PORT # 153 -BYTE # 84 -PORT # 153 -BYTE # 85 -PORT # 153 -BYTE # 86 -PORT # 153 -BYTE # 87 -PORT # 153 -BYTE # 88 -PORT # 153 -BYTE # 89 -PORT # 153 -BYTE # 90 -PORT # 153 -BYTE # 91 -PORT # 153 -BYTE # 92 -PORT # 153 -BYTE # 93 -PORT # 153 -BYTE # 94 -PORT # 153 -BYTE # 95 -PORT # 153 -BYTE # 96 -PORT # 153 -BYTE # 97 -PORT # 153 -BYTE # 98 -PORT # 153 -BYTE # 99 -PORT # 153 -BYTE # 100 -PORT # 153 -BYTE # 101 -PORT # 153 -BYTE # 102 -PORT # 153 -BYTE # 103 -PORT # 153 -BYTE # 104 -PORT # 153 -BYTE # 105 -PORT # 153 -BYTE # 106 -PORT # 153 -BYTE # 107 -PORT # 153 -BYTE # 108 -PORT # 153 -BYTE # 109 -PORT # 153 -BYTE # 110 -PORT # 153 -BYTE # 111 -PORT # 153 -BYTE # 112 -PORT # 153 -BYTE # 113 -PORT # 153 -BYTE # 114 -PORT # 153 -BYTE # 115 -PORT # 153 -BYTE # 116 -PORT # 153 -BYTE # 117 -PORT # 153 -BYTE # 118 -PORT # 153 -BYTE # 119 -PORT # 153 -BYTE # 120 -PORT # 153 -BYTE # 121 -PORT # 153 -BYTE # 122 -PORT # 153 -BYTE # 123 -PORT # 153 -BYTE # 124 -PORT # 153 -BYTE # 125 -PORT # 153 -BYTE # 126 -PORT # 153 -BYTE # 127 -PORT # 153 -BYTE # 128 -PORT # 153 -BYTE # 129 -PORT # 153 -BYTE # 130 -PORT # 153 -BYTE # 131 -PORT # 153 -BYTE # 132 -PORT # 153 -BYTE # 133 -PORT # 153 -BYTE # 134 -PORT # 153 -BYTE # 135 -PORT # 153 -BYTE # 136 -PORT # 153 -BYTE # 137 -PORT # 153 -BYTE # 138 -PORT # 153 -BYTE # 139 -PORT # 153 -BYTE # 140 -PORT # 153 -BYTE # 141 -PORT # 153 -BYTE # 142 -PORT # 153 -BYTE # 143 -PORT # 153 -BYTE # 144 -PORT # 153 -BYTE # 145 -PORT # 153 -BYTE # 146 -PORT # 153 -BYTE # 147 -PORT # 153 -BYTE # 148 -PORT # 153 -BYTE # 149 -PORT # 153 -BYTE # 150 -PORT # 153 -BYTE # 151 -PORT # 153 -BYTE # 152 -PORT # 153 -BYTE # 153 -PORT # 153 -BYTE # 154 -PORT # 153 -BYTE # 155 -PORT # 153 -BYTE # 156 -PORT # 153 -BYTE # 157 -PORT # 153 -BYTE # 158 -PORT # 153 -BYTE # 159 -PORT # 153 -BYTE # 160 -PORT # 153 -BYTE # 161 -PORT # 153 -BYTE # 162 -PORT # 153 -BYTE # 163 -PORT # 153 -BYTE # 164 -PORT # 153 -BYTE # 165 -PORT # 153 -BYTE # 166 -PORT # 153 -BYTE # 167 -PORT # 153 -BYTE # 168 -PORT # 153 -BYTE # 169 -PORT # 153 -BYTE # 170 -PORT # 153 -BYTE # 171 -PORT # 153 -BYTE # 172 -PORT # 153 -BYTE # 173 -PORT # 153 -BYTE # 174 -PORT # 153 -BYTE # 175 -PORT # 153 -BYTE # 176 -PORT # 153 -BYTE # 177 -PORT # 153 -BYTE # 178 -PORT # 153 -BYTE # 179 -PORT # 153 -BYTE # 180 -PORT # 153 -BYTE # 181 -PORT # 153 -BYTE # 182 -PORT # 153 -BYTE # 183 -PORT # 153 -BYTE # 184 -PORT # 153 -BYTE # 185 -PORT # 153 -BYTE # 186 -PORT # 153 -BYTE # 187 -PORT # 153 -BYTE # 188 -PORT # 153 -BYTE # 189 -PORT # 153 -BYTE # 190 -PORT # 153 -BYTE # 191 -PORT # 153 -BYTE # 192 -PORT # 153 -BYTE # 193 -PORT # 153 -BYTE # 194 -PORT # 153 -BYTE # 195 -PORT # 153 -BYTE # 196 -PORT # 153 -BYTE # 197 -PORT # 153 -BYTE # 198 -PORT # 153 -BYTE # 199 -PORT # 153 -BYTE # 200 -PORT # 153 -BYTE # 201 -PORT # 153 -BYTE # 202 -PORT # 153 -BYTE # 203 -PORT # 153 -BYTE # 204 -PORT # 153 -BYTE # 205 -PORT # 153 -BYTE # 206 -PORT # 153 -BYTE # 207 -PORT # 153 -BYTE # 208 -PORT # 153 -BYTE # 209 -PORT # 153 -BYTE # 210 -PORT # 153 -BYTE # 211 -PORT # 153 -BYTE # 212 -PORT # 153 -BYTE # 213 -PORT # 153 -BYTE # 214 -PORT # 153 -BYTE # 215 -PORT # 153 -BYTE # 216 -PORT # 153 -BYTE # 217 -PORT # 153 -BYTE # 218 -PORT # 153 -BYTE # 219 -PORT # 153 -BYTE # 220 -PORT # 153 -BYTE # 221 -PORT # 153 -BYTE # 222 -PORT # 153 -BYTE # 223 -PORT # 153 -BYTE # 224 -PORT # 153 -BYTE # 225 -PORT # 153 -BYTE # 226 -PORT # 153 -BYTE # 227 -PORT # 153 -BYTE # 228 -PORT # 153 -BYTE # 229 -PORT # 153 -BYTE # 230 -PORT # 153 -BYTE # 231 -PORT # 153 -BYTE # 232 -PORT # 153 -BYTE # 233 -PORT # 153 -BYTE # 234 -PORT # 153 -BYTE # 235 -PORT # 153 -BYTE # 236 -PORT # 153 -BYTE # 237 -PORT # 153 -BYTE # 238 -PORT # 153 -BYTE # 239 -PORT # 153 -BYTE # 240 -PORT # 153 -BYTE # 241 -PORT # 153 -BYTE # 242 -PORT # 153 -BYTE # 243 -PORT # 153 -BYTE # 244 -PORT # 153 -BYTE # 245 -PORT # 153 -BYTE # 246 -PORT # 153 -BYTE # 247 -PORT # 153 -BYTE # 248 -PORT # 153 -BYTE # 249 -PORT # 153 -BYTE # 250 -PORT # 153 -BYTE # 251 -PORT # 153 -BYTE # 252 -PORT # 153 -BYTE # 253 -PORT # 153 -BYTE # 254 -PORT # 153 -BYTE # 255 -PORT # 154 -BYTE # 0 -PORT # 154 -BYTE # 1 -PORT # 154 -BYTE # 2 -PORT # 154 -BYTE # 3 -PORT # 154 -BYTE # 4 -PORT # 154 -BYTE # 5 -PORT # 154 -BYTE # 6 -PORT # 154 -BYTE # 7 -PORT # 154 -BYTE # 8 -PORT # 154 -BYTE # 9 -PORT # 154 -BYTE # 10 -PORT # 154 -BYTE # 11 -PORT # 154 -BYTE # 12 -PORT # 154 -BYTE # 13 -PORT # 154 -BYTE # 14 -PORT # 154 -BYTE # 15 -PORT # 154 -BYTE # 16 -PORT # 154 -BYTE # 17 -PORT # 154 -BYTE # 18 -PORT # 154 -BYTE # 19 -PORT # 154 -BYTE # 20 -PORT # 154 -BYTE # 21 -PORT # 154 -BYTE # 22 -PORT # 154 -BYTE # 23 -PORT # 154 -BYTE # 24 -PORT # 154 -BYTE # 25 -PORT # 154 -BYTE # 26 -PORT # 154 -BYTE # 27 -PORT # 154 -BYTE # 28 -PORT # 154 -BYTE # 29 -PORT # 154 -BYTE # 30 -PORT # 154 -BYTE # 31 -PORT # 154 -BYTE # 32 -PORT # 154 -BYTE # 33 -PORT # 154 -BYTE # 34 -PORT # 154 -BYTE # 35 -PORT # 154 -BYTE # 36 -PORT # 154 -BYTE # 37 -PORT # 154 -BYTE # 38 -PORT # 154 -BYTE # 39 -PORT # 154 -BYTE # 40 -PORT # 154 -BYTE # 41 -PORT # 154 -BYTE # 42 -PORT # 154 -BYTE # 43 -PORT # 154 -BYTE # 44 -PORT # 154 -BYTE # 45 -PORT # 154 -BYTE # 46 -PORT # 154 -BYTE # 47 -PORT # 154 -BYTE # 48 -PORT # 154 -BYTE # 49 -PORT # 154 -BYTE # 50 -PORT # 154 -BYTE # 51 -PORT # 154 -BYTE # 52 -PORT # 154 -BYTE # 53 -PORT # 154 -BYTE # 54 -PORT # 154 -BYTE # 55 -PORT # 154 -BYTE # 56 -PORT # 154 -BYTE # 57 -PORT # 154 -BYTE # 58 -PORT # 154 -BYTE # 59 -PORT # 154 -BYTE # 60 -PORT # 154 -BYTE # 61 -PORT # 154 -BYTE # 62 -PORT # 154 -BYTE # 63 -PORT # 154 -BYTE # 64 -PORT # 154 -BYTE # 65 -PORT # 154 -BYTE # 66 -PORT # 154 -BYTE # 67 -PORT # 154 -BYTE # 68 -PORT # 154 -BYTE # 69 -PORT # 154 -BYTE # 70 -PORT # 154 -BYTE # 71 -PORT # 154 -BYTE # 72 -PORT # 154 -BYTE # 73 -PORT # 154 -BYTE # 74 -PORT # 154 -BYTE # 75 -PORT # 154 -BYTE # 76 -PORT # 154 -BYTE # 77 -PORT # 154 -BYTE # 78 -PORT # 154 -BYTE # 79 -PORT # 154 -BYTE # 80 -PORT # 154 -BYTE # 81 -PORT # 154 -BYTE # 82 -PORT # 154 -BYTE # 83 -PORT # 154 -BYTE # 84 -PORT # 154 -BYTE # 85 -PORT # 154 -BYTE # 86 -PORT # 154 -BYTE # 87 -PORT # 154 -BYTE # 88 -PORT # 154 -BYTE # 89 -PORT # 154 -BYTE # 90 -PORT # 154 -BYTE # 91 -PORT # 154 -BYTE # 92 -PORT # 154 -BYTE # 93 -PORT # 154 -BYTE # 94 -PORT # 154 -BYTE # 95 -PORT # 154 -BYTE # 96 -PORT # 154 -BYTE # 97 -PORT # 154 -BYTE # 98 -PORT # 154 -BYTE # 99 -PORT # 154 -BYTE # 100 -PORT # 154 -BYTE # 101 -PORT # 154 -BYTE # 102 -PORT # 154 -BYTE # 103 -PORT # 154 -BYTE # 104 -PORT # 154 -BYTE # 105 -PORT # 154 -BYTE # 106 -PORT # 154 -BYTE # 107 -PORT # 154 -BYTE # 108 -PORT # 154 -BYTE # 109 -PORT # 154 -BYTE # 110 -PORT # 154 -BYTE # 111 -PORT # 154 -BYTE # 112 -PORT # 154 -BYTE # 113 -PORT # 154 -BYTE # 114 -PORT # 154 -BYTE # 115 -PORT # 154 -BYTE # 116 -PORT # 154 -BYTE # 117 -PORT # 154 -BYTE # 118 -PORT # 154 -BYTE # 119 -PORT # 154 -BYTE # 120 -PORT # 154 -BYTE # 121 -PORT # 154 -BYTE # 122 -PORT # 154 -BYTE # 123 -PORT # 154 -BYTE # 124 -PORT # 154 -BYTE # 125 -PORT # 154 -BYTE # 126 -PORT # 154 -BYTE # 127 -PORT # 154 -BYTE # 128 -PORT # 154 -BYTE # 129 -PORT # 154 -BYTE # 130 -PORT # 154 -BYTE # 131 -PORT # 154 -BYTE # 132 -PORT # 154 -BYTE # 133 -PORT # 154 -BYTE # 134 -PORT # 154 -BYTE # 135 -PORT # 154 -BYTE # 136 -PORT # 154 -BYTE # 137 -PORT # 154 -BYTE # 138 -PORT # 154 -BYTE # 139 -PORT # 154 -BYTE # 140 -PORT # 154 -BYTE # 141 -PORT # 154 -BYTE # 142 -PORT # 154 -BYTE # 143 -PORT # 154 -BYTE # 144 -PORT # 154 -BYTE # 145 -PORT # 154 -BYTE # 146 -PORT # 154 -BYTE # 147 -PORT # 154 -BYTE # 148 -PORT # 154 -BYTE # 149 -PORT # 154 -BYTE # 150 -PORT # 154 -BYTE # 151 -PORT # 154 -BYTE # 152 -PORT # 154 -BYTE # 153 -PORT # 154 -BYTE # 154 -PORT # 154 -BYTE # 155 -PORT # 154 -BYTE # 156 -PORT # 154 -BYTE # 157 -PORT # 154 -BYTE # 158 -PORT # 154 -BYTE # 159 -PORT # 154 -BYTE # 160 -PORT # 154 -BYTE # 161 -PORT # 154 -BYTE # 162 -PORT # 154 -BYTE # 163 -PORT # 154 -BYTE # 164 -PORT # 154 -BYTE # 165 -PORT # 154 -BYTE # 166 -PORT # 154 -BYTE # 167 -PORT # 154 -BYTE # 168 -PORT # 154 -BYTE # 169 -PORT # 154 -BYTE # 170 -PORT # 154 -BYTE # 171 -PORT # 154 -BYTE # 172 -PORT # 154 -BYTE # 173 -PORT # 154 -BYTE # 174 -PORT # 154 -BYTE # 175 -PORT # 154 -BYTE # 176 -PORT # 154 -BYTE # 177 -PORT # 154 -BYTE # 178 -PORT # 154 -BYTE # 179 -PORT # 154 -BYTE # 180 -PORT # 154 -BYTE # 181 -PORT # 154 -BYTE # 182 -PORT # 154 -BYTE # 183 -PORT # 154 -BYTE # 184 -PORT # 154 -BYTE # 185 -PORT # 154 -BYTE # 186 -PORT # 154 -BYTE # 187 -PORT # 154 -BYTE # 188 -PORT # 154 -BYTE # 189 -PORT # 154 -BYTE # 190 -PORT # 154 -BYTE # 191 -PORT # 154 -BYTE # 192 -PORT # 154 -BYTE # 193 -PORT # 154 -BYTE # 194 -PORT # 154 -BYTE # 195 -PORT # 154 -BYTE # 196 -PORT # 154 -BYTE # 197 -PORT # 154 -BYTE # 198 -PORT # 154 -BYTE # 199 -PORT # 154 -BYTE # 200 -PORT # 154 -BYTE # 201 -PORT # 154 -BYTE # 202 -PORT # 154 -BYTE # 203 -PORT # 154 -BYTE # 204 -PORT # 154 -BYTE # 205 -PORT # 154 -BYTE # 206 -PORT # 154 -BYTE # 207 -PORT # 154 -BYTE # 208 -PORT # 154 -BYTE # 209 -PORT # 154 -BYTE # 210 -PORT # 154 -BYTE # 211 -PORT # 154 -BYTE # 212 -PORT # 154 -BYTE # 213 -PORT # 154 -BYTE # 214 -PORT # 154 -BYTE # 215 -PORT # 154 -BYTE # 216 -PORT # 154 -BYTE # 217 -PORT # 154 -BYTE # 218 -PORT # 154 -BYTE # 219 -PORT # 154 -BYTE # 220 -PORT # 154 -BYTE # 221 -PORT # 154 -BYTE # 222 -PORT # 154 -BYTE # 223 -PORT # 154 -BYTE # 224 -PORT # 154 -BYTE # 225 -PORT # 154 -BYTE # 226 -PORT # 154 -BYTE # 227 -PORT # 154 -BYTE # 228 -PORT # 154 -BYTE # 229 -PORT # 154 -BYTE # 230 -PORT # 154 -BYTE # 231 -PORT # 154 -BYTE # 232 -PORT # 154 -BYTE # 233 -PORT # 154 -BYTE # 234 -PORT # 154 -BYTE # 235 -PORT # 154 -BYTE # 236 -PORT # 154 -BYTE # 237 -PORT # 154 -BYTE # 238 -PORT # 154 -BYTE # 239 -PORT # 154 -BYTE # 240 -PORT # 154 -BYTE # 241 -PORT # 154 -BYTE # 242 -PORT # 154 -BYTE # 243 -PORT # 154 -BYTE # 244 -PORT # 154 -BYTE # 245 -PORT # 154 -BYTE # 246 -PORT # 154 -BYTE # 247 -PORT # 154 -BYTE # 248 -PORT # 154 -BYTE # 249 -PORT # 154 -BYTE # 250 -PORT # 154 -BYTE # 251 -PORT # 154 -BYTE # 252 -PORT # 154 -BYTE # 253 -PORT # 154 -BYTE # 254 -PORT # 154 -BYTE # 255 -PORT # 155 -BYTE # 0 -PORT # 155 -BYTE # 1 -PORT # 155 -BYTE # 2 -PORT # 155 -BYTE # 3 -PORT # 155 -BYTE # 4 -PORT # 155 -BYTE # 5 -PORT # 155 -BYTE # 6 -PORT # 155 -BYTE # 7 -PORT # 155 -BYTE # 8 -PORT # 155 -BYTE # 9 -PORT # 155 -BYTE # 10 -PORT # 155 -BYTE # 11 -PORT # 155 -BYTE # 12 -PORT # 155 -BYTE # 13 -PORT # 155 -BYTE # 14 -PORT # 155 -BYTE # 15 -PORT # 155 -BYTE # 16 -PORT # 155 -BYTE # 17 -PORT # 155 -BYTE # 18 -PORT # 155 -BYTE # 19 -PORT # 155 -BYTE # 20 -PORT # 155 -BYTE # 21 -PORT # 155 -BYTE # 22 -PORT # 155 -BYTE # 23 -PORT # 155 -BYTE # 24 -PORT # 155 -BYTE # 25 -PORT # 155 -BYTE # 26 -PORT # 155 -BYTE # 27 -PORT # 155 -BYTE # 28 -PORT # 155 -BYTE # 29 -PORT # 155 -BYTE # 30 -PORT # 155 -BYTE # 31 -PORT # 155 -BYTE # 32 -PORT # 155 -BYTE # 33 -PORT # 155 -BYTE # 34 -PORT # 155 -BYTE # 35 -PORT # 155 -BYTE # 36 -PORT # 155 -BYTE # 37 -PORT # 155 -BYTE # 38 -PORT # 155 -BYTE # 39 -PORT # 155 -BYTE # 40 -PORT # 155 -BYTE # 41 -PORT # 155 -BYTE # 42 -PORT # 155 -BYTE # 43 -PORT # 155 -BYTE # 44 -PORT # 155 -BYTE # 45 -PORT # 155 -BYTE # 46 -PORT # 155 -BYTE # 47 -PORT # 155 -BYTE # 48 -PORT # 155 -BYTE # 49 -PORT # 155 -BYTE # 50 -PORT # 155 -BYTE # 51 -PORT # 155 -BYTE # 52 -PORT # 155 -BYTE # 53 -PORT # 155 -BYTE # 54 -PORT # 155 -BYTE # 55 -PORT # 155 -BYTE # 56 -PORT # 155 -BYTE # 57 -PORT # 155 -BYTE # 58 -PORT # 155 -BYTE # 59 -PORT # 155 -BYTE # 60 -PORT # 155 -BYTE # 61 -PORT # 155 -BYTE # 62 -PORT # 155 -BYTE # 63 -PORT # 155 -BYTE # 64 -PORT # 155 -BYTE # 65 -PORT # 155 -BYTE # 66 -PORT # 155 -BYTE # 67 -PORT # 155 -BYTE # 68 -PORT # 155 -BYTE # 69 -PORT # 155 -BYTE # 70 -PORT # 155 -BYTE # 71 -PORT # 155 -BYTE # 72 -PORT # 155 -BYTE # 73 -PORT # 155 -BYTE # 74 -PORT # 155 -BYTE # 75 -PORT # 155 -BYTE # 76 -PORT # 155 -BYTE # 77 -PORT # 155 -BYTE # 78 -PORT # 155 -BYTE # 79 -PORT # 155 -BYTE # 80 -PORT # 155 -BYTE # 81 -PORT # 155 -BYTE # 82 -PORT # 155 -BYTE # 83 -PORT # 155 -BYTE # 84 -PORT # 155 -BYTE # 85 -PORT # 155 -BYTE # 86 -PORT # 155 -BYTE # 87 -PORT # 155 -BYTE # 88 -PORT # 155 -BYTE # 89 -PORT # 155 -BYTE # 90 -PORT # 155 -BYTE # 91 -PORT # 155 -BYTE # 92 -PORT # 155 -BYTE # 93 -PORT # 155 -BYTE # 94 -PORT # 155 -BYTE # 95 -PORT # 155 -BYTE # 96 -PORT # 155 -BYTE # 97 -PORT # 155 -BYTE # 98 -PORT # 155 -BYTE # 99 -PORT # 155 -BYTE # 100 -PORT # 155 -BYTE # 101 -PORT # 155 -BYTE # 102 -PORT # 155 -BYTE # 103 -PORT # 155 -BYTE # 104 -PORT # 155 -BYTE # 105 -PORT # 155 -BYTE # 106 -PORT # 155 -BYTE # 107 -PORT # 155 -BYTE # 108 -PORT # 155 -BYTE # 109 -PORT # 155 -BYTE # 110 -PORT # 155 -BYTE # 111 -PORT # 155 -BYTE # 112 -PORT # 155 -BYTE # 113 -PORT # 155 -BYTE # 114 -PORT # 155 -BYTE # 115 -PORT # 155 -BYTE # 116 -PORT # 155 -BYTE # 117 -PORT # 155 -BYTE # 118 -PORT # 155 -BYTE # 119 -PORT # 155 -BYTE # 120 -PORT # 155 -BYTE # 121 -PORT # 155 -BYTE # 122 -PORT # 155 -BYTE # 123 -PORT # 155 -BYTE # 124 -PORT # 155 -BYTE # 125 -PORT # 155 -BYTE # 126 -PORT # 155 -BYTE # 127 -PORT # 155 -BYTE # 128 -PORT # 155 -BYTE # 129 -PORT # 155 -BYTE # 130 -PORT # 155 -BYTE # 131 -PORT # 155 -BYTE # 132 -PORT # 155 -BYTE # 133 -PORT # 155 -BYTE # 134 -PORT # 155 -BYTE # 135 -PORT # 155 -BYTE # 136 -PORT # 155 -BYTE # 137 -PORT # 155 -BYTE # 138 -PORT # 155 -BYTE # 139 -PORT # 155 -BYTE # 140 -PORT # 155 -BYTE # 141 -PORT # 155 -BYTE # 142 -PORT # 155 -BYTE # 143 -PORT # 155 -BYTE # 144 -PORT # 155 -BYTE # 145 -PORT # 155 -BYTE # 146 -PORT # 155 -BYTE # 147 -PORT # 155 -BYTE # 148 -PORT # 155 -BYTE # 149 -PORT # 155 -BYTE # 150 -PORT # 155 -BYTE # 151 -PORT # 155 -BYTE # 152 -PORT # 155 -BYTE # 153 -PORT # 155 -BYTE # 154 -PORT # 155 -BYTE # 155 -PORT # 155 -BYTE # 156 -PORT # 155 -BYTE # 157 -PORT # 155 -BYTE # 158 -PORT # 155 -BYTE # 159 -PORT # 155 -BYTE # 160 -PORT # 155 -BYTE # 161 -PORT # 155 -BYTE # 162 -PORT # 155 -BYTE # 163 -PORT # 155 -BYTE # 164 -PORT # 155 -BYTE # 165 -PORT # 155 -BYTE # 166 -PORT # 155 -BYTE # 167 -PORT # 155 -BYTE # 168 -PORT # 155 -BYTE # 169 -PORT # 155 -BYTE # 170 -PORT # 155 -BYTE # 171 -PORT # 155 -BYTE # 172 -PORT # 155 -BYTE # 173 -PORT # 155 -BYTE # 174 -PORT # 155 -BYTE # 175 -PORT # 155 -BYTE # 176 -PORT # 155 -BYTE # 177 -PORT # 155 -BYTE # 178 -PORT # 155 -BYTE # 179 -PORT # 155 -BYTE # 180 -PORT # 155 -BYTE # 181 -PORT # 155 -BYTE # 182 -PORT # 155 -BYTE # 183 -PORT # 155 -BYTE # 184 -PORT # 155 -BYTE # 185 -PORT # 155 -BYTE # 186 -PORT # 155 -BYTE # 187 -PORT # 155 -BYTE # 188 -PORT # 155 -BYTE # 189 -PORT # 155 -BYTE # 190 -PORT # 155 -BYTE # 191 -PORT # 155 -BYTE # 192 -PORT # 155 -BYTE # 193 -PORT # 155 -BYTE # 194 -PORT # 155 -BYTE # 195 -PORT # 155 -BYTE # 196 -PORT # 155 -BYTE # 197 -PORT # 155 -BYTE # 198 -PORT # 155 -BYTE # 199 -PORT # 155 -BYTE # 200 -PORT # 155 -BYTE # 201 -PORT # 155 -BYTE # 202 -PORT # 155 -BYTE # 203 -PORT # 155 -BYTE # 204 -PORT # 155 -BYTE # 205 -PORT # 155 -BYTE # 206 -PORT # 155 -BYTE # 207 -PORT # 155 -BYTE # 208 -PORT # 155 -BYTE # 209 -PORT # 155 -BYTE # 210 -PORT # 155 -BYTE # 211 -PORT # 155 -BYTE # 212 -PORT # 155 -BYTE # 213 -PORT # 155 -BYTE # 214 -PORT # 155 -BYTE # 215 -PORT # 155 -BYTE # 216 -PORT # 155 -BYTE # 217 -PORT # 155 -BYTE # 218 -PORT # 155 -BYTE # 219 -PORT # 155 -BYTE # 220 -PORT # 155 -BYTE # 221 -PORT # 155 -BYTE # 222 -PORT # 155 -BYTE # 223 -PORT # 155 -BYTE # 224 -PORT # 155 -BYTE # 225 -PORT # 155 -BYTE # 226 -PORT # 155 -BYTE # 227 -PORT # 155 -BYTE # 228 -PORT # 155 -BYTE # 229 -PORT # 155 -BYTE # 230 -PORT # 155 -BYTE # 231 -PORT # 155 -BYTE # 232 -PORT # 155 -BYTE # 233 -PORT # 155 -BYTE # 234 -PORT # 155 -BYTE # 235 -PORT # 155 -BYTE # 236 -PORT # 155 -BYTE # 237 -PORT # 155 -BYTE # 238 -PORT # 155 -BYTE # 239 -PORT # 155 -BYTE # 240 -PORT # 155 -BYTE # 241 -PORT # 155 -BYTE # 242 -PORT # 155 -BYTE # 243 -PORT # 155 -BYTE # 244 -PORT # 155 -BYTE # 245 -PORT # 155 -BYTE # 246 -PORT # 155 -BYTE # 247 -PORT # 155 -BYTE # 248 -PORT # 155 -BYTE # 249 -PORT # 155 -BYTE # 250 -PORT # 155 -BYTE # 251 -PORT # 155 -BYTE # 252 -PORT # 155 -BYTE # 253 -PORT # 155 -BYTE # 254 -PORT # 155 -BYTE # 255 -PORT # 156 -BYTE # 0 -PORT # 156 -BYTE # 1 -PORT # 156 -BYTE # 2 -PORT # 156 -BYTE # 3 -PORT # 156 -BYTE # 4 -PORT # 156 -BYTE # 5 -PORT # 156 -BYTE # 6 -PORT # 156 -BYTE # 7 -PORT # 156 -BYTE # 8 -PORT # 156 -BYTE # 9 -PORT # 156 -BYTE # 10 -PORT # 156 -BYTE # 11 -PORT # 156 -BYTE # 12 -PORT # 156 -BYTE # 13 -PORT # 156 -BYTE # 14 -PORT # 156 -BYTE # 15 -PORT # 156 -BYTE # 16 -PORT # 156 -BYTE # 17 -PORT # 156 -BYTE # 18 -PORT # 156 -BYTE # 19 -PORT # 156 -BYTE # 20 -PORT # 156 -BYTE # 21 -PORT # 156 -BYTE # 22 -PORT # 156 -BYTE # 23 -PORT # 156 -BYTE # 24 -PORT # 156 -BYTE # 25 -PORT # 156 -BYTE # 26 -PORT # 156 -BYTE # 27 -PORT # 156 -BYTE # 28 -PORT # 156 -BYTE # 29 -PORT # 156 -BYTE # 30 -PORT # 156 -BYTE # 31 -PORT # 156 -BYTE # 32 -PORT # 156 -BYTE # 33 -PORT # 156 -BYTE # 34 -PORT # 156 -BYTE # 35 -PORT # 156 -BYTE # 36 -PORT # 156 -BYTE # 37 -PORT # 156 -BYTE # 38 -PORT # 156 -BYTE # 39 -PORT # 156 -BYTE # 40 -PORT # 156 -BYTE # 41 -PORT # 156 -BYTE # 42 -PORT # 156 -BYTE # 43 -PORT # 156 -BYTE # 44 -PORT # 156 -BYTE # 45 -PORT # 156 -BYTE # 46 -PORT # 156 -BYTE # 47 -PORT # 156 -BYTE # 48 -PORT # 156 -BYTE # 49 -PORT # 156 -BYTE # 50 -PORT # 156 -BYTE # 51 -PORT # 156 -BYTE # 52 -PORT # 156 -BYTE # 53 -PORT # 156 -BYTE # 54 -PORT # 156 -BYTE # 55 -PORT # 156 -BYTE # 56 -PORT # 156 -BYTE # 57 -PORT # 156 -BYTE # 58 -PORT # 156 -BYTE # 59 -PORT # 156 -BYTE # 60 -PORT # 156 -BYTE # 61 -PORT # 156 -BYTE # 62 -PORT # 156 -BYTE # 63 -PORT # 156 -BYTE # 64 -PORT # 156 -BYTE # 65 -PORT # 156 -BYTE # 66 -PORT # 156 -BYTE # 67 -PORT # 156 -BYTE # 68 -PORT # 156 -BYTE # 69 -PORT # 156 -BYTE # 70 -PORT # 156 -BYTE # 71 -PORT # 156 -BYTE # 72 -PORT # 156 -BYTE # 73 -PORT # 156 -BYTE # 74 -PORT # 156 -BYTE # 75 -PORT # 156 -BYTE # 76 -PORT # 156 -BYTE # 77 -PORT # 156 -BYTE # 78 -PORT # 156 -BYTE # 79 -PORT # 156 -BYTE # 80 -PORT # 156 -BYTE # 81 -PORT # 156 -BYTE # 82 -PORT # 156 -BYTE # 83 -PORT # 156 -BYTE # 84 -PORT # 156 -BYTE # 85 -PORT # 156 -BYTE # 86 -PORT # 156 -BYTE # 87 -PORT # 156 -BYTE # 88 -PORT # 156 -BYTE # 89 -PORT # 156 -BYTE # 90 -PORT # 156 -BYTE # 91 -PORT # 156 -BYTE # 92 -PORT # 156 -BYTE # 93 -PORT # 156 -BYTE # 94 -PORT # 156 -BYTE # 95 -PORT # 156 -BYTE # 96 -PORT # 156 -BYTE # 97 -PORT # 156 -BYTE # 98 -PORT # 156 -BYTE # 99 -PORT # 156 -BYTE # 100 -PORT # 156 -BYTE # 101 -PORT # 156 -BYTE # 102 -PORT # 156 -BYTE # 103 -PORT # 156 -BYTE # 104 -PORT # 156 -BYTE # 105 -PORT # 156 -BYTE # 106 -PORT # 156 -BYTE # 107 -PORT # 156 -BYTE # 108 -PORT # 156 -BYTE # 109 -PORT # 156 -BYTE # 110 -PORT # 156 -BYTE # 111 -PORT # 156 -BYTE # 112 -PORT # 156 -BYTE # 113 -PORT # 156 -BYTE # 114 -PORT # 156 -BYTE # 115 -PORT # 156 -BYTE # 116 -PORT # 156 -BYTE # 117 -PORT # 156 -BYTE # 118 -PORT # 156 -BYTE # 119 -PORT # 156 -BYTE # 120 -PORT # 156 -BYTE # 121 -PORT # 156 -BYTE # 122 -PORT # 156 -BYTE # 123 -PORT # 156 -BYTE # 124 -PORT # 156 -BYTE # 125 -PORT # 156 -BYTE # 126 -PORT # 156 -BYTE # 127 -PORT # 156 -BYTE # 128 -PORT # 156 -BYTE # 129 -PORT # 156 -BYTE # 130 -PORT # 156 -BYTE # 131 -PORT # 156 -BYTE # 132 -PORT # 156 -BYTE # 133 -PORT # 156 -BYTE # 134 -PORT # 156 -BYTE # 135 -PORT # 156 -BYTE # 136 -PORT # 156 -BYTE # 137 -PORT # 156 -BYTE # 138 -PORT # 156 -BYTE # 139 -PORT # 156 -BYTE # 140 -PORT # 156 -BYTE # 141 -PORT # 156 -BYTE # 142 -PORT # 156 -BYTE # 143 -PORT # 156 -BYTE # 144 -PORT # 156 -BYTE # 145 -PORT # 156 -BYTE # 146 -PORT # 156 -BYTE # 147 -PORT # 156 -BYTE # 148 -PORT # 156 -BYTE # 149 -PORT # 156 -BYTE # 150 -PORT # 156 -BYTE # 151 -PORT # 156 -BYTE # 152 -PORT # 156 -BYTE # 153 -PORT # 156 -BYTE # 154 -PORT # 156 -BYTE # 155 -PORT # 156 -BYTE # 156 -PORT # 156 -BYTE # 157 -PORT # 156 -BYTE # 158 -PORT # 156 -BYTE # 159 -PORT # 156 -BYTE # 160 -PORT # 156 -BYTE # 161 -PORT # 156 -BYTE # 162 -PORT # 156 -BYTE # 163 -PORT # 156 -BYTE # 164 -PORT # 156 -BYTE # 165 -PORT # 156 -BYTE # 166 -PORT # 156 -BYTE # 167 -PORT # 156 -BYTE # 168 -PORT # 156 -BYTE # 169 -PORT # 156 -BYTE # 170 -PORT # 156 -BYTE # 171 -PORT # 156 -BYTE # 172 -PORT # 156 -BYTE # 173 -PORT # 156 -BYTE # 174 -PORT # 156 -BYTE # 175 -PORT # 156 -BYTE # 176 -PORT # 156 -BYTE # 177 -PORT # 156 -BYTE # 178 -PORT # 156 -BYTE # 179 -PORT # 156 -BYTE # 180 -PORT # 156 -BYTE # 181 -PORT # 156 -BYTE # 182 -PORT # 156 -BYTE # 183 -PORT # 156 -BYTE # 184 -PORT # 156 -BYTE # 185 -PORT # 156 -BYTE # 186 -PORT # 156 -BYTE # 187 -PORT # 156 -BYTE # 188 -PORT # 156 -BYTE # 189 -PORT # 156 -BYTE # 190 -PORT # 156 -BYTE # 191 -PORT # 156 -BYTE # 192 -PORT # 156 -BYTE # 193 -PORT # 156 -BYTE # 194 -PORT # 156 -BYTE # 195 -PORT # 156 -BYTE # 196 -PORT # 156 -BYTE # 197 -PORT # 156 -BYTE # 198 -PORT # 156 -BYTE # 199 -PORT # 156 -BYTE # 200 -PORT # 156 -BYTE # 201 -PORT # 156 -BYTE # 202 -PORT # 156 -BYTE # 203 -PORT # 156 -BYTE # 204 -PORT # 156 -BYTE # 205 -PORT # 156 -BYTE # 206 -PORT # 156 -BYTE # 207 -PORT # 156 -BYTE # 208 -PORT # 156 -BYTE # 209 -PORT # 156 -BYTE # 210 -PORT # 156 -BYTE # 211 -PORT # 156 -BYTE # 212 -PORT # 156 -BYTE # 213 -PORT # 156 -BYTE # 214 -PORT # 156 -BYTE # 215 -PORT # 156 -BYTE # 216 -PORT # 156 -BYTE # 217 -PORT # 156 -BYTE # 218 -PORT # 156 -BYTE # 219 -PORT # 156 -BYTE # 220 -PORT # 156 -BYTE # 221 -PORT # 156 -BYTE # 222 -PORT # 156 -BYTE # 223 -PORT # 156 -BYTE # 224 -PORT # 156 -BYTE # 225 -PORT # 156 -BYTE # 226 -PORT # 156 -BYTE # 227 -PORT # 156 -BYTE # 228 -PORT # 156 -BYTE # 229 -PORT # 156 -BYTE # 230 -PORT # 156 -BYTE # 231 -PORT # 156 -BYTE # 232 -PORT # 156 -BYTE # 233 -PORT # 156 -BYTE # 234 -PORT # 156 -BYTE # 235 -PORT # 156 -BYTE # 236 -PORT # 156 -BYTE # 237 -PORT # 156 -BYTE # 238 -PORT # 156 -BYTE # 239 -PORT # 156 -BYTE # 240 -PORT # 156 -BYTE # 241 -PORT # 156 -BYTE # 242 -PORT # 156 -BYTE # 243 -PORT # 156 -BYTE # 244 -PORT # 156 -BYTE # 245 -PORT # 156 -BYTE # 246 -PORT # 156 -BYTE # 247 -PORT # 156 -BYTE # 248 -PORT # 156 -BYTE # 249 -PORT # 156 -BYTE # 250 -PORT # 156 -BYTE # 251 -PORT # 156 -BYTE # 252 -PORT # 156 -BYTE # 253 -PORT # 156 -BYTE # 254 -PORT # 156 -BYTE # 255 -PORT # 157 -BYTE # 0 -PORT # 157 -BYTE # 1 -PORT # 157 -BYTE # 2 -PORT # 157 -BYTE # 3 -PORT # 157 -BYTE # 4 -PORT # 157 -BYTE # 5 -PORT # 157 -BYTE # 6 -PORT # 157 -BYTE # 7 -PORT # 157 -BYTE # 8 -PORT # 157 -BYTE # 9 -PORT # 157 -BYTE # 10 -PORT # 157 -BYTE # 11 -PORT # 157 -BYTE # 12 -PORT # 157 -BYTE # 13 -PORT # 157 -BYTE # 14 -PORT # 157 -BYTE # 15 -PORT # 157 -BYTE # 16 -PORT # 157 -BYTE # 17 -PORT # 157 -BYTE # 18 -PORT # 157 -BYTE # 19 -PORT # 157 -BYTE # 20 -PORT # 157 -BYTE # 21 -PORT # 157 -BYTE # 22 -PORT # 157 -BYTE # 23 -PORT # 157 -BYTE # 24 -PORT # 157 -BYTE # 25 -PORT # 157 -BYTE # 26 -PORT # 157 -BYTE # 27 -PORT # 157 -BYTE # 28 -PORT # 157 -BYTE # 29 -PORT # 157 -BYTE # 30 -PORT # 157 -BYTE # 31 -PORT # 157 -BYTE # 32 -PORT # 157 -BYTE # 33 -PORT # 157 -BYTE # 34 -PORT # 157 -BYTE # 35 -PORT # 157 -BYTE # 36 -PORT # 157 -BYTE # 37 -PORT # 157 -BYTE # 38 -PORT # 157 -BYTE # 39 -PORT # 157 -BYTE # 40 -PORT # 157 -BYTE # 41 -PORT # 157 -BYTE # 42 -PORT # 157 -BYTE # 43 -PORT # 157 -BYTE # 44 -PORT # 157 -BYTE # 45 -PORT # 157 -BYTE # 46 -PORT # 157 -BYTE # 47 -PORT # 157 -BYTE # 48 -PORT # 157 -BYTE # 49 -PORT # 157 -BYTE # 50 -PORT # 157 -BYTE # 51 -PORT # 157 -BYTE # 52 -PORT # 157 -BYTE # 53 -PORT # 157 -BYTE # 54 -PORT # 157 -BYTE # 55 -PORT # 157 -BYTE # 56 -PORT # 157 -BYTE # 57 -PORT # 157 -BYTE # 58 -PORT # 157 -BYTE # 59 -PORT # 157 -BYTE # 60 -PORT # 157 -BYTE # 61 -PORT # 157 -BYTE # 62 -PORT # 157 -BYTE # 63 -PORT # 157 -BYTE # 64 -PORT # 157 -BYTE # 65 -PORT # 157 -BYTE # 66 -PORT # 157 -BYTE # 67 -PORT # 157 -BYTE # 68 -PORT # 157 -BYTE # 69 -PORT # 157 -BYTE # 70 -PORT # 157 -BYTE # 71 -PORT # 157 -BYTE # 72 -PORT # 157 -BYTE # 73 -PORT # 157 -BYTE # 74 -PORT # 157 -BYTE # 75 -PORT # 157 -BYTE # 76 -PORT # 157 -BYTE # 77 -PORT # 157 -BYTE # 78 -PORT # 157 -BYTE # 79 -PORT # 157 -BYTE # 80 -PORT # 157 -BYTE # 81 -PORT # 157 -BYTE # 82 -PORT # 157 -BYTE # 83 -PORT # 157 -BYTE # 84 -PORT # 157 -BYTE # 85 -PORT # 157 -BYTE # 86 -PORT # 157 -BYTE # 87 -PORT # 157 -BYTE # 88 -PORT # 157 -BYTE # 89 -PORT # 157 -BYTE # 90 -PORT # 157 -BYTE # 91 -PORT # 157 -BYTE # 92 -PORT # 157 -BYTE # 93 -PORT # 157 -BYTE # 94 -PORT # 157 -BYTE # 95 -PORT # 157 -BYTE # 96 -PORT # 157 -BYTE # 97 -PORT # 157 -BYTE # 98 -PORT # 157 -BYTE # 99 -PORT # 157 -BYTE # 100 -PORT # 157 -BYTE # 101 -PORT # 157 -BYTE # 102 -PORT # 157 -BYTE # 103 -PORT # 157 -BYTE # 104 -PORT # 157 -BYTE # 105 -PORT # 157 -BYTE # 106 -PORT # 157 -BYTE # 107 -PORT # 157 -BYTE # 108 -PORT # 157 -BYTE # 109 -PORT # 157 -BYTE # 110 -PORT # 157 -BYTE # 111 -PORT # 157 -BYTE # 112 -PORT # 157 -BYTE # 113 -PORT # 157 -BYTE # 114 -PORT # 157 -BYTE # 115 -PORT # 157 -BYTE # 116 -PORT # 157 -BYTE # 117 -PORT # 157 -BYTE # 118 -PORT # 157 -BYTE # 119 -PORT # 157 -BYTE # 120 -PORT # 157 -BYTE # 121 -PORT # 157 -BYTE # 122 -PORT # 157 -BYTE # 123 -PORT # 157 -BYTE # 124 -PORT # 157 -BYTE # 125 -PORT # 157 -BYTE # 126 -PORT # 157 -BYTE # 127 -PORT # 157 -BYTE # 128 -PORT # 157 -BYTE # 129 -PORT # 157 -BYTE # 130 -PORT # 157 -BYTE # 131 -PORT # 157 -BYTE # 132 -PORT # 157 -BYTE # 133 -PORT # 157 -BYTE # 134 -PORT # 157 -BYTE # 135 -PORT # 157 -BYTE # 136 -PORT # 157 -BYTE # 137 -PORT # 157 -BYTE # 138 -PORT # 157 -BYTE # 139 -PORT # 157 -BYTE # 140 -PORT # 157 -BYTE # 141 -PORT # 157 -BYTE # 142 -PORT # 157 -BYTE # 143 -PORT # 157 -BYTE # 144 -PORT # 157 -BYTE # 145 -PORT # 157 -BYTE # 146 -PORT # 157 -BYTE # 147 -PORT # 157 -BYTE # 148 -PORT # 157 -BYTE # 149 -PORT # 157 -BYTE # 150 -PORT # 157 -BYTE # 151 -PORT # 157 -BYTE # 152 -PORT # 157 -BYTE # 153 -PORT # 157 -BYTE # 154 -PORT # 157 -BYTE # 155 -PORT # 157 -BYTE # 156 -PORT # 157 -BYTE # 157 -PORT # 157 -BYTE # 158 -PORT # 157 -BYTE # 159 -PORT # 157 -BYTE # 160 -PORT # 157 -BYTE # 161 -PORT # 157 -BYTE # 162 -PORT # 157 -BYTE # 163 -PORT # 157 -BYTE # 164 -PORT # 157 -BYTE # 165 -PORT # 157 -BYTE # 166 -PORT # 157 -BYTE # 167 -PORT # 157 -BYTE # 168 -PORT # 157 -BYTE # 169 -PORT # 157 -BYTE # 170 -PORT # 157 -BYTE # 171 -PORT # 157 -BYTE # 172 -PORT # 157 -BYTE # 173 -PORT # 157 -BYTE # 174 -PORT # 157 -BYTE # 175 -PORT # 157 -BYTE # 176 -PORT # 157 -BYTE # 177 -PORT # 157 -BYTE # 178 -PORT # 157 -BYTE # 179 -PORT # 157 -BYTE # 180 -PORT # 157 -BYTE # 181 -PORT # 157 -BYTE # 182 -PORT # 157 -BYTE # 183 -PORT # 157 -BYTE # 184 -PORT # 157 -BYTE # 185 -PORT # 157 -BYTE # 186 -PORT # 157 -BYTE # 187 -PORT # 157 -BYTE # 188 -PORT # 157 -BYTE # 189 -PORT # 157 -BYTE # 190 -PORT # 157 -BYTE # 191 -PORT # 157 -BYTE # 192 -PORT # 157 -BYTE # 193 -PORT # 157 -BYTE # 194 -PORT # 157 -BYTE # 195 -PORT # 157 -BYTE # 196 -PORT # 157 -BYTE # 197 -PORT # 157 -BYTE # 198 -PORT # 157 -BYTE # 199 -PORT # 157 -BYTE # 200 -PORT # 157 -BYTE # 201 -PORT # 157 -BYTE # 202 -PORT # 157 -BYTE # 203 -PORT # 157 -BYTE # 204 -PORT # 157 -BYTE # 205 -PORT # 157 -BYTE # 206 -PORT # 157 -BYTE # 207 -PORT # 157 -BYTE # 208 -PORT # 157 -BYTE # 209 -PORT # 157 -BYTE # 210 -PORT # 157 -BYTE # 211 -PORT # 157 -BYTE # 212 -PORT # 157 -BYTE # 213 -PORT # 157 -BYTE # 214 -PORT # 157 -BYTE # 215 -PORT # 157 -BYTE # 216 -PORT # 157 -BYTE # 217 -PORT # 157 -BYTE # 218 -PORT # 157 -BYTE # 219 -PORT # 157 -BYTE # 220 -PORT # 157 -BYTE # 221 -PORT # 157 -BYTE # 222 -PORT # 157 -BYTE # 223 -PORT # 157 -BYTE # 224 -PORT # 157 -BYTE # 225 -PORT # 157 -BYTE # 226 -PORT # 157 -BYTE # 227 -PORT # 157 -BYTE # 228 -PORT # 157 -BYTE # 229 -PORT # 157 -BYTE # 230 -PORT # 157 -BYTE # 231 -PORT # 157 -BYTE # 232 -PORT # 157 -BYTE # 233 -PORT # 157 -BYTE # 234 -PORT # 157 -BYTE # 235 -PORT # 157 -BYTE # 236 -PORT # 157 -BYTE # 237 -PORT # 157 -BYTE # 238 -PORT # 157 -BYTE # 239 -PORT # 157 -BYTE # 240 -PORT # 157 -BYTE # 241 -PORT # 157 -BYTE # 242 -PORT # 157 -BYTE # 243 -PORT # 157 -BYTE # 244 -PORT # 157 -BYTE # 245 -PORT # 157 -BYTE # 246 -PORT # 157 -BYTE # 247 -PORT # 157 -BYTE # 248 -PORT # 157 -BYTE # 249 -PORT # 157 -BYTE # 250 -PORT # 157 -BYTE # 251 -PORT # 157 -BYTE # 252 -PORT # 157 -BYTE # 253 -PORT # 157 -BYTE # 254 -PORT # 157 -BYTE # 255 -PORT # 158 -BYTE # 0 -PORT # 158 -BYTE # 1 -PORT # 158 -BYTE # 2 -PORT # 158 -BYTE # 3 -PORT # 158 -BYTE # 4 -PORT # 158 -BYTE # 5 -PORT # 158 -BYTE # 6 -PORT # 158 -BYTE # 7 -PORT # 158 -BYTE # 8 -PORT # 158 -BYTE # 9 -PORT # 158 -BYTE # 10 -PORT # 158 -BYTE # 11 -PORT # 158 -BYTE # 12 -PORT # 158 -BYTE # 13 -PORT # 158 -BYTE # 14 -PORT # 158 -BYTE # 15 -PORT # 158 -BYTE # 16 -PORT # 158 -BYTE # 17 -PORT # 158 -BYTE # 18 -PORT # 158 -BYTE # 19 -PORT # 158 -BYTE # 20 -PORT # 158 -BYTE # 21 -PORT # 158 -BYTE # 22 -PORT # 158 -BYTE # 23 -PORT # 158 -BYTE # 24 -PORT # 158 -BYTE # 25 -PORT # 158 -BYTE # 26 -PORT # 158 -BYTE # 27 -PORT # 158 -BYTE # 28 -PORT # 158 -BYTE # 29 -PORT # 158 -BYTE # 30 -PORT # 158 -BYTE # 31 -PORT # 158 -BYTE # 32 -PORT # 158 -BYTE # 33 -PORT # 158 -BYTE # 34 -PORT # 158 -BYTE # 35 -PORT # 158 -BYTE # 36 -PORT # 158 -BYTE # 37 -PORT # 158 -BYTE # 38 -PORT # 158 -BYTE # 39 -PORT # 158 -BYTE # 40 -PORT # 158 -BYTE # 41 -PORT # 158 -BYTE # 42 -PORT # 158 -BYTE # 43 -PORT # 158 -BYTE # 44 -PORT # 158 -BYTE # 45 -PORT # 158 -BYTE # 46 -PORT # 158 -BYTE # 47 -PORT # 158 -BYTE # 48 -PORT # 158 -BYTE # 49 -PORT # 158 -BYTE # 50 -PORT # 158 -BYTE # 51 -PORT # 158 -BYTE # 52 -PORT # 158 -BYTE # 53 -PORT # 158 -BYTE # 54 -PORT # 158 -BYTE # 55 -PORT # 158 -BYTE # 56 -PORT # 158 -BYTE # 57 -PORT # 158 -BYTE # 58 -PORT # 158 -BYTE # 59 -PORT # 158 -BYTE # 60 -PORT # 158 -BYTE # 61 -PORT # 158 -BYTE # 62 -PORT # 158 -BYTE # 63 -PORT # 158 -BYTE # 64 -PORT # 158 -BYTE # 65 -PORT # 158 -BYTE # 66 -PORT # 158 -BYTE # 67 -PORT # 158 -BYTE # 68 -PORT # 158 -BYTE # 69 -PORT # 158 -BYTE # 70 -PORT # 158 -BYTE # 71 -PORT # 158 -BYTE # 72 -PORT # 158 -BYTE # 73 -PORT # 158 -BYTE # 74 -PORT # 158 -BYTE # 75 -PORT # 158 -BYTE # 76 -PORT # 158 -BYTE # 77 -PORT # 158 -BYTE # 78 -PORT # 158 -BYTE # 79 -PORT # 158 -BYTE # 80 -PORT # 158 -BYTE # 81 -PORT # 158 -BYTE # 82 -PORT # 158 -BYTE # 83 -PORT # 158 -BYTE # 84 -PORT # 158 -BYTE # 85 -PORT # 158 -BYTE # 86 -PORT # 158 -BYTE # 87 -PORT # 158 -BYTE # 88 -PORT # 158 -BYTE # 89 -PORT # 158 -BYTE # 90 -PORT # 158 -BYTE # 91 -PORT # 158 -BYTE # 92 -PORT # 158 -BYTE # 93 -PORT # 158 -BYTE # 94 -PORT # 158 -BYTE # 95 -PORT # 158 -BYTE # 96 -PORT # 158 -BYTE # 97 -PORT # 158 -BYTE # 98 -PORT # 158 -BYTE # 99 -PORT # 158 -BYTE # 100 -PORT # 158 -BYTE # 101 -PORT # 158 -BYTE # 102 -PORT # 158 -BYTE # 103 -PORT # 158 -BYTE # 104 -PORT # 158 -BYTE # 105 -PORT # 158 -BYTE # 106 -PORT # 158 -BYTE # 107 -PORT # 158 -BYTE # 108 -PORT # 158 -BYTE # 109 -PORT # 158 -BYTE # 110 -PORT # 158 -BYTE # 111 -PORT # 158 -BYTE # 112 -PORT # 158 -BYTE # 113 -PORT # 158 -BYTE # 114 -PORT # 158 -BYTE # 115 -PORT # 158 -BYTE # 116 -PORT # 158 -BYTE # 117 -PORT # 158 -BYTE # 118 -PORT # 158 -BYTE # 119 -PORT # 158 -BYTE # 120 -PORT # 158 -BYTE # 121 -PORT # 158 -BYTE # 122 -PORT # 158 -BYTE # 123 -PORT # 158 -BYTE # 124 -PORT # 158 -BYTE # 125 -PORT # 158 -BYTE # 126 -PORT # 158 -BYTE # 127 -PORT # 158 -BYTE # 128 -PORT # 158 -BYTE # 129 -PORT # 158 -BYTE # 130 -PORT # 158 -BYTE # 131 -PORT # 158 -BYTE # 132 -PORT # 158 -BYTE # 133 -PORT # 158 -BYTE # 134 -PORT # 158 -BYTE # 135 -PORT # 158 -BYTE # 136 -PORT # 158 -BYTE # 137 -PORT # 158 -BYTE # 138 -PORT # 158 -BYTE # 139 -PORT # 158 -BYTE # 140 -PORT # 158 -BYTE # 141 -PORT # 158 -BYTE # 142 -PORT # 158 -BYTE # 143 -PORT # 158 -BYTE # 144 -PORT # 158 -BYTE # 145 -PORT # 158 -BYTE # 146 -PORT # 158 -BYTE # 147 -PORT # 158 -BYTE # 148 -PORT # 158 -BYTE # 149 -PORT # 158 -BYTE # 150 -PORT # 158 -BYTE # 151 -PORT # 158 -BYTE # 152 -PORT # 158 -BYTE # 153 -PORT # 158 -BYTE # 154 -PORT # 158 -BYTE # 155 -PORT # 158 -BYTE # 156 -PORT # 158 -BYTE # 157 -PORT # 158 -BYTE # 158 -PORT # 158 -BYTE # 159 -PORT # 158 -BYTE # 160 -PORT # 158 -BYTE # 161 -PORT # 158 -BYTE # 162 -PORT # 158 -BYTE # 163 -PORT # 158 -BYTE # 164 -PORT # 158 -BYTE # 165 -PORT # 158 -BYTE # 166 -PORT # 158 -BYTE # 167 -PORT # 158 -BYTE # 168 -PORT # 158 -BYTE # 169 -PORT # 158 -BYTE # 170 -PORT # 158 -BYTE # 171 -PORT # 158 -BYTE # 172 -PORT # 158 -BYTE # 173 -PORT # 158 -BYTE # 174 -PORT # 158 -BYTE # 175 -PORT # 158 -BYTE # 176 -PORT # 158 -BYTE # 177 -PORT # 158 -BYTE # 178 -PORT # 158 -BYTE # 179 -PORT # 158 -BYTE # 180 -PORT # 158 -BYTE # 181 -PORT # 158 -BYTE # 182 -PORT # 158 -BYTE # 183 -PORT # 158 -BYTE # 184 -PORT # 158 -BYTE # 185 -PORT # 158 -BYTE # 186 -PORT # 158 -BYTE # 187 -PORT # 158 -BYTE # 188 -PORT # 158 -BYTE # 189 -PORT # 158 -BYTE # 190 -PORT # 158 -BYTE # 191 -PORT # 158 -BYTE # 192 -PORT # 158 -BYTE # 193 -PORT # 158 -BYTE # 194 -PORT # 158 -BYTE # 195 -PORT # 158 -BYTE # 196 -PORT # 158 -BYTE # 197 -PORT # 158 -BYTE # 198 -PORT # 158 -BYTE # 199 -PORT # 158 -BYTE # 200 -PORT # 158 -BYTE # 201 -PORT # 158 -BYTE # 202 -PORT # 158 -BYTE # 203 -PORT # 158 -BYTE # 204 -PORT # 158 -BYTE # 205 -PORT # 158 -BYTE # 206 -PORT # 158 -BYTE # 207 -PORT # 158 -BYTE # 208 -PORT # 158 -BYTE # 209 -PORT # 158 -BYTE # 210 -PORT # 158 -BYTE # 211 -PORT # 158 -BYTE # 212 -PORT # 158 -BYTE # 213 -PORT # 158 -BYTE # 214 -PORT # 158 -BYTE # 215 -PORT # 158 -BYTE # 216 -PORT # 158 -BYTE # 217 -PORT # 158 -BYTE # 218 -PORT # 158 -BYTE # 219 -PORT # 158 -BYTE # 220 -PORT # 158 -BYTE # 221 -PORT # 158 -BYTE # 222 -PORT # 158 -BYTE # 223 -PORT # 158 -BYTE # 224 -PORT # 158 -BYTE # 225 -PORT # 158 -BYTE # 226 -PORT # 158 -BYTE # 227 -PORT # 158 -BYTE # 228 -PORT # 158 -BYTE # 229 -PORT # 158 -BYTE # 230 -PORT # 158 -BYTE # 231 -PORT # 158 -BYTE # 232 -PORT # 158 -BYTE # 233 -PORT # 158 -BYTE # 234 -PORT # 158 -BYTE # 235 -PORT # 158 -BYTE # 236 -PORT # 158 -BYTE # 237 -PORT # 158 -BYTE # 238 -PORT # 158 -BYTE # 239 -PORT # 158 -BYTE # 240 -PORT # 158 -BYTE # 241 -PORT # 158 -BYTE # 242 -PORT # 158 -BYTE # 243 -PORT # 158 -BYTE # 244 -PORT # 158 -BYTE # 245 -PORT # 158 -BYTE # 246 -PORT # 158 -BYTE # 247 -PORT # 158 -BYTE # 248 -PORT # 158 -BYTE # 249 -PORT # 158 -BYTE # 250 -PORT # 158 -BYTE # 251 -PORT # 158 -BYTE # 252 -PORT # 158 -BYTE # 253 -PORT # 158 -BYTE # 254 -PORT # 158 -BYTE # 255 -PORT # 159 -BYTE # 0 -PORT # 159 -BYTE # 1 -PORT # 159 -BYTE # 2 -PORT # 159 -BYTE # 3 -PORT # 159 -BYTE # 4 -PORT # 159 -BYTE # 5 -PORT # 159 -BYTE # 6 -PORT # 159 -BYTE # 7 -PORT # 159 -BYTE # 8 -PORT # 159 -BYTE # 9 -PORT # 159 -BYTE # 10 -PORT # 159 -BYTE # 11 -PORT # 159 -BYTE # 12 -PORT # 159 -BYTE # 13 -PORT # 159 -BYTE # 14 -PORT # 159 -BYTE # 15 -PORT # 159 -BYTE # 16 -PORT # 159 -BYTE # 17 -PORT # 159 -BYTE # 18 -PORT # 159 -BYTE # 19 -PORT # 159 -BYTE # 20 -PORT # 159 -BYTE # 21 -PORT # 159 -BYTE # 22 -PORT # 159 -BYTE # 23 -PORT # 159 -BYTE # 24 -PORT # 159 -BYTE # 25 -PORT # 159 -BYTE # 26 -PORT # 159 -BYTE # 27 -PORT # 159 -BYTE # 28 -PORT # 159 -BYTE # 29 -PORT # 159 -BYTE # 30 -PORT # 159 -BYTE # 31 -PORT # 159 -BYTE # 32 -PORT # 159 -BYTE # 33 -PORT # 159 -BYTE # 34 -PORT # 159 -BYTE # 35 -PORT # 159 -BYTE # 36 -PORT # 159 -BYTE # 37 -PORT # 159 -BYTE # 38 -PORT # 159 -BYTE # 39 -PORT # 159 -BYTE # 40 -PORT # 159 -BYTE # 41 -PORT # 159 -BYTE # 42 -PORT # 159 -BYTE # 43 -PORT # 159 -BYTE # 44 -PORT # 159 -BYTE # 45 -PORT # 159 -BYTE # 46 -PORT # 159 -BYTE # 47 -PORT # 159 -BYTE # 48 -PORT # 159 -BYTE # 49 -PORT # 159 -BYTE # 50 -PORT # 159 -BYTE # 51 -PORT # 159 -BYTE # 52 -PORT # 159 -BYTE # 53 -PORT # 159 -BYTE # 54 -PORT # 159 -BYTE # 55 -PORT # 159 -BYTE # 56 -PORT # 159 -BYTE # 57 -PORT # 159 -BYTE # 58 -PORT # 159 -BYTE # 59 -PORT # 159 -BYTE # 60 -PORT # 159 -BYTE # 61 -PORT # 159 -BYTE # 62 -PORT # 159 -BYTE # 63 -PORT # 159 -BYTE # 64 -PORT # 159 -BYTE # 65 -PORT # 159 -BYTE # 66 -PORT # 159 -BYTE # 67 -PORT # 159 -BYTE # 68 -PORT # 159 -BYTE # 69 -PORT # 159 -BYTE # 70 -PORT # 159 -BYTE # 71 -PORT # 159 -BYTE # 72 -PORT # 159 -BYTE # 73 -PORT # 159 -BYTE # 74 -PORT # 159 -BYTE # 75 -PORT # 159 -BYTE # 76 -PORT # 159 -BYTE # 77 -PORT # 159 -BYTE # 78 -PORT # 159 -BYTE # 79 -PORT # 159 -BYTE # 80 -PORT # 159 -BYTE # 81 -PORT # 159 -BYTE # 82 -PORT # 159 -BYTE # 83 -PORT # 159 -BYTE # 84 -PORT # 159 -BYTE # 85 -PORT # 159 -BYTE # 86 -PORT # 159 -BYTE # 87 -PORT # 159 -BYTE # 88 -PORT # 159 -BYTE # 89 -PORT # 159 -BYTE # 90 -PORT # 159 -BYTE # 91 -PORT # 159 -BYTE # 92 -PORT # 159 -BYTE # 93 -PORT # 159 -BYTE # 94 -PORT # 159 -BYTE # 95 -PORT # 159 -BYTE # 96 -PORT # 159 -BYTE # 97 -PORT # 159 -BYTE # 98 -PORT # 159 -BYTE # 99 -PORT # 159 -BYTE # 100 -PORT # 159 -BYTE # 101 -PORT # 159 -BYTE # 102 -PORT # 159 -BYTE # 103 -PORT # 159 -BYTE # 104 -PORT # 159 -BYTE # 105 -PORT # 159 -BYTE # 106 -PORT # 159 -BYTE # 107 -PORT # 159 -BYTE # 108 -PORT # 159 -BYTE # 109 -PORT # 159 -BYTE # 110 -PORT # 159 -BYTE # 111 -PORT # 159 -BYTE # 112 -PORT # 159 -BYTE # 113 -PORT # 159 -BYTE # 114 -PORT # 159 -BYTE # 115 -PORT # 159 -BYTE # 116 -PORT # 159 -BYTE # 117 -PORT # 159 -BYTE # 118 -PORT # 159 -BYTE # 119 -PORT # 159 -BYTE # 120 -PORT # 159 -BYTE # 121 -PORT # 159 -BYTE # 122 -PORT # 159 -BYTE # 123 -PORT # 159 -BYTE # 124 -PORT # 159 -BYTE # 125 -PORT # 159 -BYTE # 126 -PORT # 159 -BYTE # 127 -PORT # 159 -BYTE # 128 -PORT # 159 -BYTE # 129 -PORT # 159 -BYTE # 130 -PORT # 159 -BYTE # 131 -PORT # 159 -BYTE # 132 -PORT # 159 -BYTE # 133 -PORT # 159 -BYTE # 134 -PORT # 159 -BYTE # 135 -PORT # 159 -BYTE # 136 -PORT # 159 -BYTE # 137 -PORT # 159 -BYTE # 138 -PORT # 159 -BYTE # 139 -PORT # 159 -BYTE # 140 -PORT # 159 -BYTE # 141 -PORT # 159 -BYTE # 142 -PORT # 159 -BYTE # 143 -PORT # 159 -BYTE # 144 -PORT # 159 -BYTE # 145 -PORT # 159 -BYTE # 146 -PORT # 159 -BYTE # 147 -PORT # 159 -BYTE # 148 -PORT # 159 -BYTE # 149 -PORT # 159 -BYTE # 150 -PORT # 159 -BYTE # 151 -PORT # 159 -BYTE # 152 -PORT # 159 -BYTE # 153 -PORT # 159 -BYTE # 154 -PORT # 159 -BYTE # 155 -PORT # 159 -BYTE # 156 -PORT # 159 -BYTE # 157 -PORT # 159 -BYTE # 158 -PORT # 159 -BYTE # 159 -PORT # 159 -BYTE # 160 -PORT # 159 -BYTE # 161 -PORT # 159 -BYTE # 162 -PORT # 159 -BYTE # 163 -PORT # 159 -BYTE # 164 -PORT # 159 -BYTE # 165 -PORT # 159 -BYTE # 166 -PORT # 159 -BYTE # 167 -PORT # 159 -BYTE # 168 -PORT # 159 -BYTE # 169 -PORT # 159 -BYTE # 170 -PORT # 159 -BYTE # 171 -PORT # 159 -BYTE # 172 -PORT # 159 -BYTE # 173 -PORT # 159 -BYTE # 174 -PORT # 159 -BYTE # 175 -PORT # 159 -BYTE # 176 -PORT # 159 -BYTE # 177 -PORT # 159 -BYTE # 178 -PORT # 159 -BYTE # 179 -PORT # 159 -BYTE # 180 -PORT # 159 -BYTE # 181 -PORT # 159 -BYTE # 182 -PORT # 159 -BYTE # 183 -PORT # 159 -BYTE # 184 -PORT # 159 -BYTE # 185 -PORT # 159 -BYTE # 186 -PORT # 159 -BYTE # 187 -PORT # 159 -BYTE # 188 -PORT # 159 -BYTE # 189 -PORT # 159 -BYTE # 190 -PORT # 159 -BYTE # 191 -PORT # 159 -BYTE # 192 -PORT # 159 -BYTE # 193 -PORT # 159 -BYTE # 194 -PORT # 159 -BYTE # 195 -PORT # 159 -BYTE # 196 -PORT # 159 -BYTE # 197 -PORT # 159 -BYTE # 198 -PORT # 159 -BYTE # 199 -PORT # 159 -BYTE # 200 -PORT # 159 -BYTE # 201 -PORT # 159 -BYTE # 202 -PORT # 159 -BYTE # 203 -PORT # 159 -BYTE # 204 -PORT # 159 -BYTE # 205 -PORT # 159 -BYTE # 206 -PORT # 159 -BYTE # 207 -PORT # 159 -BYTE # 208 -PORT # 159 -BYTE # 209 -PORT # 159 -BYTE # 210 -PORT # 159 -BYTE # 211 -PORT # 159 -BYTE # 212 -PORT # 159 -BYTE # 213 -PORT # 159 -BYTE # 214 -PORT # 159 -BYTE # 215 -PORT # 159 -BYTE # 216 -PORT # 159 -BYTE # 217 -PORT # 159 -BYTE # 218 -PORT # 159 -BYTE # 219 -PORT # 159 -BYTE # 220 -PORT # 159 -BYTE # 221 -PORT # 159 -BYTE # 222 -PORT # 159 -BYTE # 223 -PORT # 159 -BYTE # 224 -PORT # 159 -BYTE # 225 -PORT # 159 -BYTE # 226 -PORT # 159 -BYTE # 227 -PORT # 159 -BYTE # 228 -PORT # 159 -BYTE # 229 -PORT # 159 -BYTE # 230 -PORT # 159 -BYTE # 231 -PORT # 159 -BYTE # 232 -PORT # 159 -BYTE # 233 -PORT # 159 -BYTE # 234 -PORT # 159 -BYTE # 235 -PORT # 159 -BYTE # 236 -PORT # 159 -BYTE # 237 -PORT # 159 -BYTE # 238 -PORT # 159 -BYTE # 239 -PORT # 159 -BYTE # 240 -PORT # 159 -BYTE # 241 -PORT # 159 -BYTE # 242 -PORT # 159 -BYTE # 243 -PORT # 159 -BYTE # 244 -PORT # 159 -BYTE # 245 -PORT # 159 -BYTE # 246 -PORT # 159 -BYTE # 247 -PORT # 159 -BYTE # 248 -PORT # 159 -BYTE # 249 -PORT # 159 -BYTE # 250 -PORT # 159 -BYTE # 251 -PORT # 159 -BYTE # 252 -PORT # 159 -BYTE # 253 -PORT # 159 -BYTE # 254 -PORT # 159 -BYTE # 255 -PORT # 160 -BYTE # 0 -PORT # 160 -BYTE # 1 -PORT # 160 -BYTE # 2 -PORT # 160 -BYTE # 3 -PORT # 160 -BYTE # 4 -PORT # 160 -BYTE # 5 -PORT # 160 -BYTE # 6 -PORT # 160 -BYTE # 7 -PORT # 160 -BYTE # 8 -PORT # 160 -BYTE # 9 -PORT # 160 -BYTE # 10 -PORT # 160 -BYTE # 11 -PORT # 160 -BYTE # 12 -PORT # 160 -BYTE # 13 -PORT # 160 -BYTE # 14 -PORT # 160 -BYTE # 15 -PORT # 160 -BYTE # 16 -PORT # 160 -BYTE # 17 -PORT # 160 -BYTE # 18 -PORT # 160 -BYTE # 19 -PORT # 160 -BYTE # 20 -PORT # 160 -BYTE # 21 -PORT # 160 -BYTE # 22 -PORT # 160 -BYTE # 23 -PORT # 160 -BYTE # 24 -PORT # 160 -BYTE # 25 -PORT # 160 -BYTE # 26 -PORT # 160 -BYTE # 27 -PORT # 160 -BYTE # 28 -PORT # 160 -BYTE # 29 -PORT # 160 -BYTE # 30 -PORT # 160 -BYTE # 31 -PORT # 160 -BYTE # 32 -PORT # 160 -BYTE # 33 -PORT # 160 -BYTE # 34 -PORT # 160 -BYTE # 35 -PORT # 160 -BYTE # 36 -PORT # 160 -BYTE # 37 -PORT # 160 -BYTE # 38 -PORT # 160 -BYTE # 39 -PORT # 160 -BYTE # 40 -PORT # 160 -BYTE # 41 -PORT # 160 -BYTE # 42 -PORT # 160 -BYTE # 43 -PORT # 160 -BYTE # 44 -PORT # 160 -BYTE # 45 -PORT # 160 -BYTE # 46 -PORT # 160 -BYTE # 47 -PORT # 160 -BYTE # 48 -PORT # 160 -BYTE # 49 -PORT # 160 -BYTE # 50 -PORT # 160 -BYTE # 51 -PORT # 160 -BYTE # 52 -PORT # 160 -BYTE # 53 -PORT # 160 -BYTE # 54 -PORT # 160 -BYTE # 55 -PORT # 160 -BYTE # 56 -PORT # 160 -BYTE # 57 -PORT # 160 -BYTE # 58 -PORT # 160 -BYTE # 59 -PORT # 160 -BYTE # 60 -PORT # 160 -BYTE # 61 -PORT # 160 -BYTE # 62 -PORT # 160 -BYTE # 63 -PORT # 160 -BYTE # 64 -PORT # 160 -BYTE # 65 -PORT # 160 -BYTE # 66 -PORT # 160 -BYTE # 67 -PORT # 160 -BYTE # 68 -PORT # 160 -BYTE # 69 -PORT # 160 -BYTE # 70 -PORT # 160 -BYTE # 71 -PORT # 160 -BYTE # 72 -PORT # 160 -BYTE # 73 -PORT # 160 -BYTE # 74 -PORT # 160 -BYTE # 75 -PORT # 160 -BYTE # 76 -PORT # 160 -BYTE # 77 -PORT # 160 -BYTE # 78 -PORT # 160 -BYTE # 79 -PORT # 160 -BYTE # 80 -PORT # 160 -BYTE # 81 -PORT # 160 -BYTE # 82 -PORT # 160 -BYTE # 83 -PORT # 160 -BYTE # 84 -PORT # 160 -BYTE # 85 -PORT # 160 -BYTE # 86 -PORT # 160 -BYTE # 87 -PORT # 160 -BYTE # 88 -PORT # 160 -BYTE # 89 -PORT # 160 -BYTE # 90 -PORT # 160 -BYTE # 91 -PORT # 160 -BYTE # 92 -PORT # 160 -BYTE # 93 -PORT # 160 -BYTE # 94 -PORT # 160 -BYTE # 95 -PORT # 160 -BYTE # 96 -PORT # 160 -BYTE # 97 -PORT # 160 -BYTE # 98 -PORT # 160 -BYTE # 99 -PORT # 160 -BYTE # 100 -PORT # 160 -BYTE # 101 -PORT # 160 -BYTE # 102 -PORT # 160 -BYTE # 103 -PORT # 160 -BYTE # 104 -PORT # 160 -BYTE # 105 -PORT # 160 -BYTE # 106 -PORT # 160 -BYTE # 107 -PORT # 160 -BYTE # 108 -PORT # 160 -BYTE # 109 -PORT # 160 -BYTE # 110 -PORT # 160 -BYTE # 111 -PORT # 160 -BYTE # 112 -PORT # 160 -BYTE # 113 -PORT # 160 -BYTE # 114 -PORT # 160 -BYTE # 115 -PORT # 160 -BYTE # 116 -PORT # 160 -BYTE # 117 -PORT # 160 -BYTE # 118 -PORT # 160 -BYTE # 119 -PORT # 160 -BYTE # 120 -PORT # 160 -BYTE # 121 -PORT # 160 -BYTE # 122 -PORT # 160 -BYTE # 123 -PORT # 160 -BYTE # 124 -PORT # 160 -BYTE # 125 -PORT # 160 -BYTE # 126 -PORT # 160 -BYTE # 127 -PORT # 160 -BYTE # 128 -PORT # 160 -BYTE # 129 -PORT # 160 -BYTE # 130 -PORT # 160 -BYTE # 131 -PORT # 160 -BYTE # 132 -PORT # 160 -BYTE # 133 -PORT # 160 -BYTE # 134 -PORT # 160 -BYTE # 135 -PORT # 160 -BYTE # 136 -PORT # 160 -BYTE # 137 -PORT # 160 -BYTE # 138 -PORT # 160 -BYTE # 139 -PORT # 160 -BYTE # 140 -PORT # 160 -BYTE # 141 -PORT # 160 -BYTE # 142 -PORT # 160 -BYTE # 143 -PORT # 160 -BYTE # 144 -PORT # 160 -BYTE # 145 -PORT # 160 -BYTE # 146 -PORT # 160 -BYTE # 147 -PORT # 160 -BYTE # 148 -PORT # 160 -BYTE # 149 -PORT # 160 -BYTE # 150 -PORT # 160 -BYTE # 151 -PORT # 160 -BYTE # 152 -PORT # 160 -BYTE # 153 -PORT # 160 -BYTE # 154 -PORT # 160 -BYTE # 155 -PORT # 160 -BYTE # 156 -PORT # 160 -BYTE # 157 -PORT # 160 -BYTE # 158 -PORT # 160 -BYTE # 159 -PORT # 160 -BYTE # 160 -PORT # 160 -BYTE # 161 -PORT # 160 -BYTE # 162 -PORT # 160 -BYTE # 163 -PORT # 160 -BYTE # 164 -PORT # 160 -BYTE # 165 -PORT # 160 -BYTE # 166 -PORT # 160 -BYTE # 167 -PORT # 160 -BYTE # 168 -PORT # 160 -BYTE # 169 -PORT # 160 -BYTE # 170 -PORT # 160 -BYTE # 171 -PORT # 160 -BYTE # 172 -PORT # 160 -BYTE # 173 -PORT # 160 -BYTE # 174 -PORT # 160 -BYTE # 175 -PORT # 160 -BYTE # 176 -PORT # 160 -BYTE # 177 -PORT # 160 -BYTE # 178 -PORT # 160 -BYTE # 179 -PORT # 160 -BYTE # 180 -PORT # 160 -BYTE # 181 -PORT # 160 -BYTE # 182 -PORT # 160 -BYTE # 183 -PORT # 160 -BYTE # 184 -PORT # 160 -BYTE # 185 -PORT # 160 -BYTE # 186 -PORT # 160 -BYTE # 187 -PORT # 160 -BYTE # 188 -PORT # 160 -BYTE # 189 -PORT # 160 -BYTE # 190 -PORT # 160 -BYTE # 191 -PORT # 160 -BYTE # 192 -PORT # 160 -BYTE # 193 -PORT # 160 -BYTE # 194 -PORT # 160 -BYTE # 195 -PORT # 160 -BYTE # 196 -PORT # 160 -BYTE # 197 -PORT # 160 -BYTE # 198 -PORT # 160 -BYTE # 199 -PORT # 160 -BYTE # 200 -PORT # 160 -BYTE # 201 -PORT # 160 -BYTE # 202 -PORT # 160 -BYTE # 203 -PORT # 160 -BYTE # 204 -PORT # 160 -BYTE # 205 -PORT # 160 -BYTE # 206 -PORT # 160 -BYTE # 207 -PORT # 160 -BYTE # 208 -PORT # 160 -BYTE # 209 -PORT # 160 -BYTE # 210 -PORT # 160 -BYTE # 211 -PORT # 160 -BYTE # 212 -PORT # 160 -BYTE # 213 -PORT # 160 -BYTE # 214 -PORT # 160 -BYTE # 215 -PORT # 160 -BYTE # 216 -PORT # 160 -BYTE # 217 -PORT # 160 -BYTE # 218 -PORT # 160 -BYTE # 219 -PORT # 160 -BYTE # 220 -PORT # 160 -BYTE # 221 -PORT # 160 -BYTE # 222 -PORT # 160 -BYTE # 223 -PORT # 160 -BYTE # 224 -PORT # 160 -BYTE # 225 -PORT # 160 -BYTE # 226 -PORT # 160 -BYTE # 227 -PORT # 160 -BYTE # 228 -PORT # 160 -BYTE # 229 -PORT # 160 -BYTE # 230 -PORT # 160 -BYTE # 231 -PORT # 160 -BYTE # 232 -PORT # 160 -BYTE # 233 -PORT # 160 -BYTE # 234 -PORT # 160 -BYTE # 235 -PORT # 160 -BYTE # 236 -PORT # 160 -BYTE # 237 -PORT # 160 -BYTE # 238 -PORT # 160 -BYTE # 239 -PORT # 160 -BYTE # 240 -PORT # 160 -BYTE # 241 -PORT # 160 -BYTE # 242 -PORT # 160 -BYTE # 243 -PORT # 160 -BYTE # 244 -PORT # 160 -BYTE # 245 -PORT # 160 -BYTE # 246 -PORT # 160 -BYTE # 247 -PORT # 160 -BYTE # 248 -PORT # 160 -BYTE # 249 -PORT # 160 -BYTE # 250 -PORT # 160 -BYTE # 251 -PORT # 160 -BYTE # 252 -PORT # 160 -BYTE # 253 -PORT # 160 -BYTE # 254 -PORT # 160 -BYTE # 255 -PORT # 161 -BYTE # 0 -PORT # 161 -BYTE # 1 -PORT # 161 -BYTE # 2 -PORT # 161 -BYTE # 3 -PORT # 161 -BYTE # 4 -PORT # 161 -BYTE # 5 -PORT # 161 -BYTE # 6 -PORT # 161 -BYTE # 7 -PORT # 161 -BYTE # 8 -PORT # 161 -BYTE # 9 -PORT # 161 -BYTE # 10 -PORT # 161 -BYTE # 11 -PORT # 161 -BYTE # 12 -PORT # 161 -BYTE # 13 -PORT # 161 -BYTE # 14 -PORT # 161 -BYTE # 15 -PORT # 161 -BYTE # 16 -PORT # 161 -BYTE # 17 -PORT # 161 -BYTE # 18 -PORT # 161 -BYTE # 19 -PORT # 161 -BYTE # 20 -PORT # 161 -BYTE # 21 -PORT # 161 -BYTE # 22 -PORT # 161 -BYTE # 23 -PORT # 161 -BYTE # 24 -PORT # 161 -BYTE # 25 -PORT # 161 -BYTE # 26 -PORT # 161 -BYTE # 27 -PORT # 161 -BYTE # 28 -PORT # 161 -BYTE # 29 -PORT # 161 -BYTE # 30 -PORT # 161 -BYTE # 31 -PORT # 161 -BYTE # 32 -PORT # 161 -BYTE # 33 -PORT # 161 -BYTE # 34 -PORT # 161 -BYTE # 35 -PORT # 161 -BYTE # 36 -PORT # 161 -BYTE # 37 -PORT # 161 -BYTE # 38 -PORT # 161 -BYTE # 39 -PORT # 161 -BYTE # 40 -PORT # 161 -BYTE # 41 -PORT # 161 -BYTE # 42 -PORT # 161 -BYTE # 43 -PORT # 161 -BYTE # 44 -PORT # 161 -BYTE # 45 -PORT # 161 -BYTE # 46 -PORT # 161 -BYTE # 47 -PORT # 161 -BYTE # 48 -PORT # 161 -BYTE # 49 -PORT # 161 -BYTE # 50 -PORT # 161 -BYTE # 51 -PORT # 161 -BYTE # 52 -PORT # 161 -BYTE # 53 -PORT # 161 -BYTE # 54 -PORT # 161 -BYTE # 55 -PORT # 161 -BYTE # 56 -PORT # 161 -BYTE # 57 -PORT # 161 -BYTE # 58 -PORT # 161 -BYTE # 59 -PORT # 161 -BYTE # 60 -PORT # 161 -BYTE # 61 -PORT # 161 -BYTE # 62 -PORT # 161 -BYTE # 63 -PORT # 161 -BYTE # 64 -PORT # 161 -BYTE # 65 -PORT # 161 -BYTE # 66 -PORT # 161 -BYTE # 67 -PORT # 161 -BYTE # 68 -PORT # 161 -BYTE # 69 -PORT # 161 -BYTE # 70 -PORT # 161 -BYTE # 71 -PORT # 161 -BYTE # 72 -PORT # 161 -BYTE # 73 -PORT # 161 -BYTE # 74 -PORT # 161 -BYTE # 75 -PORT # 161 -BYTE # 76 -PORT # 161 -BYTE # 77 -PORT # 161 -BYTE # 78 -PORT # 161 -BYTE # 79 -PORT # 161 -BYTE # 80 -PORT # 161 -BYTE # 81 -PORT # 161 -BYTE # 82 -PORT # 161 -BYTE # 83 -PORT # 161 -BYTE # 84 -PORT # 161 -BYTE # 85 -PORT # 161 -BYTE # 86 -PORT # 161 -BYTE # 87 -PORT # 161 -BYTE # 88 -PORT # 161 -BYTE # 89 -PORT # 161 -BYTE # 90 -PORT # 161 -BYTE # 91 -PORT # 161 -BYTE # 92 -PORT # 161 -BYTE # 93 -PORT # 161 -BYTE # 94 -PORT # 161 -BYTE # 95 -PORT # 161 -BYTE # 96 -PORT # 161 -BYTE # 97 -PORT # 161 -BYTE # 98 -PORT # 161 -BYTE # 99 -PORT # 161 -BYTE # 100 -PORT # 161 -BYTE # 101 -PORT # 161 -BYTE # 102 -PORT # 161 -BYTE # 103 -PORT # 161 -BYTE # 104 -PORT # 161 -BYTE # 105 -PORT # 161 -BYTE # 106 -PORT # 161 -BYTE # 107 -PORT # 161 -BYTE # 108 -PORT # 161 -BYTE # 109 -PORT # 161 -BYTE # 110 -PORT # 161 -BYTE # 111 -PORT # 161 -BYTE # 112 -PORT # 161 -BYTE # 113 -PORT # 161 -BYTE # 114 -PORT # 161 -BYTE # 115 -PORT # 161 -BYTE # 116 -PORT # 161 -BYTE # 117 -PORT # 161 -BYTE # 118 -PORT # 161 -BYTE # 119 -PORT # 161 -BYTE # 120 -PORT # 161 -BYTE # 121 -PORT # 161 -BYTE # 122 -PORT # 161 -BYTE # 123 -PORT # 161 -BYTE # 124 -PORT # 161 -BYTE # 125 -PORT # 161 -BYTE # 126 -PORT # 161 -BYTE # 127 -PORT # 161 -BYTE # 128 -PORT # 161 -BYTE # 129 -PORT # 161 -BYTE # 130 -PORT # 161 -BYTE # 131 -PORT # 161 -BYTE # 132 -PORT # 161 -BYTE # 133 -PORT # 161 -BYTE # 134 -PORT # 161 -BYTE # 135 -PORT # 161 -BYTE # 136 -PORT # 161 -BYTE # 137 -PORT # 161 -BYTE # 138 -PORT # 161 -BYTE # 139 -PORT # 161 -BYTE # 140 -PORT # 161 -BYTE # 141 -PORT # 161 -BYTE # 142 -PORT # 161 -BYTE # 143 -PORT # 161 -BYTE # 144 -PORT # 161 -BYTE # 145 -PORT # 161 -BYTE # 146 -PORT # 161 -BYTE # 147 -PORT # 161 -BYTE # 148 -PORT # 161 -BYTE # 149 -PORT # 161 -BYTE # 150 -PORT # 161 -BYTE # 151 -PORT # 161 -BYTE # 152 -PORT # 161 -BYTE # 153 -PORT # 161 -BYTE # 154 -PORT # 161 -BYTE # 155 -PORT # 161 -BYTE # 156 -PORT # 161 -BYTE # 157 -PORT # 161 -BYTE # 158 -PORT # 161 -BYTE # 159 -PORT # 161 -BYTE # 160 -PORT # 161 -BYTE # 161 -PORT # 161 -BYTE # 162 -PORT # 161 -BYTE # 163 -PORT # 161 -BYTE # 164 -PORT # 161 -BYTE # 165 -PORT # 161 -BYTE # 166 -PORT # 161 -BYTE # 167 -PORT # 161 -BYTE # 168 -PORT # 161 -BYTE # 169 -PORT # 161 -BYTE # 170 -PORT # 161 -BYTE # 171 -PORT # 161 -BYTE # 172 -PORT # 161 -BYTE # 173 -PORT # 161 -BYTE # 174 -PORT # 161 -BYTE # 175 -PORT # 161 -BYTE # 176 -PORT # 161 -BYTE # 177 -PORT # 161 -BYTE # 178 -PORT # 161 -BYTE # 179 -PORT # 161 -BYTE # 180 -PORT # 161 -BYTE # 181 -PORT # 161 -BYTE # 182 -PORT # 161 -BYTE # 183 -PORT # 161 -BYTE # 184 -PORT # 161 -BYTE # 185 -PORT # 161 -BYTE # 186 -PORT # 161 -BYTE # 187 -PORT # 161 -BYTE # 188 -PORT # 161 -BYTE # 189 -PORT # 161 -BYTE # 190 -PORT # 161 -BYTE # 191 -PORT # 161 -BYTE # 192 -PORT # 161 -BYTE # 193 -PORT # 161 -BYTE # 194 -PORT # 161 -BYTE # 195 -PORT # 161 -BYTE # 196 -PORT # 161 -BYTE # 197 -PORT # 161 -BYTE # 198 -PORT # 161 -BYTE # 199 -PORT # 161 -BYTE # 200 -PORT # 161 -BYTE # 201 -PORT # 161 -BYTE # 202 -PORT # 161 -BYTE # 203 -PORT # 161 -BYTE # 204 -PORT # 161 -BYTE # 205 -PORT # 161 -BYTE # 206 -PORT # 161 -BYTE # 207 -PORT # 161 -BYTE # 208 -PORT # 161 -BYTE # 209 -PORT # 161 -BYTE # 210 -PORT # 161 -BYTE # 211 -PORT # 161 -BYTE # 212 -PORT # 161 -BYTE # 213 -PORT # 161 -BYTE # 214 -PORT # 161 -BYTE # 215 -PORT # 161 -BYTE # 216 -PORT # 161 -BYTE # 217 -PORT # 161 -BYTE # 218 -PORT # 161 -BYTE # 219 -PORT # 161 -BYTE # 220 -PORT # 161 -BYTE # 221 -PORT # 161 -BYTE # 222 -PORT # 161 -BYTE # 223 -PORT # 161 -BYTE # 224 -PORT # 161 -BYTE # 225 -PORT # 161 -BYTE # 226 -PORT # 161 -BYTE # 227 -PORT # 161 -BYTE # 228 -PORT # 161 -BYTE # 229 -PORT # 161 -BYTE # 230 -PORT # 161 -BYTE # 231 -PORT # 161 -BYTE # 232 -PORT # 161 -BYTE # 233 -PORT # 161 -BYTE # 234 -PORT # 161 -BYTE # 235 -PORT # 161 -BYTE # 236 -PORT # 161 -BYTE # 237 -PORT # 161 -BYTE # 238 -PORT # 161 -BYTE # 239 -PORT # 161 -BYTE # 240 -PORT # 161 -BYTE # 241 -PORT # 161 -BYTE # 242 -PORT # 161 -BYTE # 243 -PORT # 161 -BYTE # 244 -PORT # 161 -BYTE # 245 -PORT # 161 -BYTE # 246 -PORT # 161 -BYTE # 247 -PORT # 161 -BYTE # 248 -PORT # 161 -BYTE # 249 -PORT # 161 -BYTE # 250 -PORT # 161 -BYTE # 251 -PORT # 161 -BYTE # 252 -PORT # 161 -BYTE # 253 -PORT # 161 -BYTE # 254 -PORT # 161 -BYTE # 255 -PORT # 162 -BYTE # 0 -PORT # 162 -BYTE # 1 -PORT # 162 -BYTE # 2 -PORT # 162 -BYTE # 3 -PORT # 162 -BYTE # 4 -PORT # 162 -BYTE # 5 -PORT # 162 -BYTE # 6 -PORT # 162 -BYTE # 7 -PORT # 162 -BYTE # 8 -PORT # 162 -BYTE # 9 -PORT # 162 -BYTE # 10 -PORT # 162 -BYTE # 11 -PORT # 162 -BYTE # 12 -PORT # 162 -BYTE # 13 -PORT # 162 -BYTE # 14 -PORT # 162 -BYTE # 15 -PORT # 162 -BYTE # 16 -PORT # 162 -BYTE # 17 -PORT # 162 -BYTE # 18 -PORT # 162 -BYTE # 19 -PORT # 162 -BYTE # 20 -PORT # 162 -BYTE # 21 -PORT # 162 -BYTE # 22 -PORT # 162 -BYTE # 23 -PORT # 162 -BYTE # 24 -PORT # 162 -BYTE # 25 -PORT # 162 -BYTE # 26 -PORT # 162 -BYTE # 27 -PORT # 162 -BYTE # 28 -PORT # 162 -BYTE # 29 -PORT # 162 -BYTE # 30 -PORT # 162 -BYTE # 31 -PORT # 162 -BYTE # 32 -PORT # 162 -BYTE # 33 -PORT # 162 -BYTE # 34 -PORT # 162 -BYTE # 35 -PORT # 162 -BYTE # 36 -PORT # 162 -BYTE # 37 -PORT # 162 -BYTE # 38 -PORT # 162 -BYTE # 39 -PORT # 162 -BYTE # 40 -PORT # 162 -BYTE # 41 -PORT # 162 -BYTE # 42 -PORT # 162 -BYTE # 43 -PORT # 162 -BYTE # 44 -PORT # 162 -BYTE # 45 -PORT # 162 -BYTE # 46 -PORT # 162 -BYTE # 47 -PORT # 162 -BYTE # 48 -PORT # 162 -BYTE # 49 -PORT # 162 -BYTE # 50 -PORT # 162 -BYTE # 51 -PORT # 162 -BYTE # 52 -PORT # 162 -BYTE # 53 -PORT # 162 -BYTE # 54 -PORT # 162 -BYTE # 55 -PORT # 162 -BYTE # 56 -PORT # 162 -BYTE # 57 -PORT # 162 -BYTE # 58 -PORT # 162 -BYTE # 59 -PORT # 162 -BYTE # 60 -PORT # 162 -BYTE # 61 -PORT # 162 -BYTE # 62 -PORT # 162 -BYTE # 63 -PORT # 162 -BYTE # 64 -PORT # 162 -BYTE # 65 -PORT # 162 -BYTE # 66 -PORT # 162 -BYTE # 67 -PORT # 162 -BYTE # 68 -PORT # 162 -BYTE # 69 -PORT # 162 -BYTE # 70 -PORT # 162 -BYTE # 71 -PORT # 162 -BYTE # 72 -PORT # 162 -BYTE # 73 -PORT # 162 -BYTE # 74 -PORT # 162 -BYTE # 75 -PORT # 162 -BYTE # 76 -PORT # 162 -BYTE # 77 -PORT # 162 -BYTE # 78 -PORT # 162 -BYTE # 79 -PORT # 162 -BYTE # 80 -PORT # 162 -BYTE # 81 -PORT # 162 -BYTE # 82 -PORT # 162 -BYTE # 83 -PORT # 162 -BYTE # 84 -PORT # 162 -BYTE # 85 -PORT # 162 -BYTE # 86 -PORT # 162 -BYTE # 87 -PORT # 162 -BYTE # 88 -PORT # 162 -BYTE # 89 -PORT # 162 -BYTE # 90 -PORT # 162 -BYTE # 91 -PORT # 162 -BYTE # 92 -PORT # 162 -BYTE # 93 -PORT # 162 -BYTE # 94 -PORT # 162 -BYTE # 95 -PORT # 162 -BYTE # 96 -PORT # 162 -BYTE # 97 -PORT # 162 -BYTE # 98 -PORT # 162 -BYTE # 99 -PORT # 162 -BYTE # 100 -PORT # 162 -BYTE # 101 -PORT # 162 -BYTE # 102 -PORT # 162 -BYTE # 103 -PORT # 162 -BYTE # 104 -PORT # 162 -BYTE # 105 -PORT # 162 -BYTE # 106 -PORT # 162 -BYTE # 107 -PORT # 162 -BYTE # 108 -PORT # 162 -BYTE # 109 -PORT # 162 -BYTE # 110 -PORT # 162 -BYTE # 111 -PORT # 162 -BYTE # 112 -PORT # 162 -BYTE # 113 -PORT # 162 -BYTE # 114 -PORT # 162 -BYTE # 115 -PORT # 162 -BYTE # 116 -PORT # 162 -BYTE # 117 -PORT # 162 -BYTE # 118 -PORT # 162 -BYTE # 119 -PORT # 162 -BYTE # 120 -PORT # 162 -BYTE # 121 -PORT # 162 -BYTE # 122 -PORT # 162 -BYTE # 123 -PORT # 162 -BYTE # 124 -PORT # 162 -BYTE # 125 -PORT # 162 -BYTE # 126 -PORT # 162 -BYTE # 127 -PORT # 162 -BYTE # 128 -PORT # 162 -BYTE # 129 -PORT # 162 -BYTE # 130 -PORT # 162 -BYTE # 131 -PORT # 162 -BYTE # 132 -PORT # 162 -BYTE # 133 -PORT # 162 -BYTE # 134 -PORT # 162 -BYTE # 135 -PORT # 162 -BYTE # 136 -PORT # 162 -BYTE # 137 -PORT # 162 -BYTE # 138 -PORT # 162 -BYTE # 139 -PORT # 162 -BYTE # 140 -PORT # 162 -BYTE # 141 -PORT # 162 -BYTE # 142 -PORT # 162 -BYTE # 143 -PORT # 162 -BYTE # 144 -PORT # 162 -BYTE # 145 -PORT # 162 -BYTE # 146 -PORT # 162 -BYTE # 147 -PORT # 162 -BYTE # 148 -PORT # 162 -BYTE # 149 -PORT # 162 -BYTE # 150 -PORT # 162 -BYTE # 151 -PORT # 162 -BYTE # 152 -PORT # 162 -BYTE # 153 -PORT # 162 -BYTE # 154 -PORT # 162 -BYTE # 155 -PORT # 162 -BYTE # 156 -PORT # 162 -BYTE # 157 -PORT # 162 -BYTE # 158 -PORT # 162 -BYTE # 159 -PORT # 162 -BYTE # 160 -PORT # 162 -BYTE # 161 -PORT # 162 -BYTE # 162 -PORT # 162 -BYTE # 163 -PORT # 162 -BYTE # 164 -PORT # 162 -BYTE # 165 -PORT # 162 -BYTE # 166 -PORT # 162 -BYTE # 167 -PORT # 162 -BYTE # 168 -PORT # 162 -BYTE # 169 -PORT # 162 -BYTE # 170 -PORT # 162 -BYTE # 171 -PORT # 162 -BYTE # 172 -PORT # 162 -BYTE # 173 -PORT # 162 -BYTE # 174 -PORT # 162 -BYTE # 175 -PORT # 162 -BYTE # 176 -PORT # 162 -BYTE # 177 -PORT # 162 -BYTE # 178 -PORT # 162 -BYTE # 179 -PORT # 162 -BYTE # 180 -PORT # 162 -BYTE # 181 -PORT # 162 -BYTE # 182 -PORT # 162 -BYTE # 183 -PORT # 162 -BYTE # 184 -PORT # 162 -BYTE # 185 -PORT # 162 -BYTE # 186 -PORT # 162 -BYTE # 187 -PORT # 162 -BYTE # 188 -PORT # 162 -BYTE # 189 -PORT # 162 -BYTE # 190 -PORT # 162 -BYTE # 191 -PORT # 162 -BYTE # 192 -PORT # 162 -BYTE # 193 -PORT # 162 -BYTE # 194 -PORT # 162 -BYTE # 195 -PORT # 162 -BYTE # 196 -PORT # 162 -BYTE # 197 -PORT # 162 -BYTE # 198 -PORT # 162 -BYTE # 199 -PORT # 162 -BYTE # 200 -PORT # 162 -BYTE # 201 -PORT # 162 -BYTE # 202 -PORT # 162 -BYTE # 203 -PORT # 162 -BYTE # 204 -PORT # 162 -BYTE # 205 -PORT # 162 -BYTE # 206 -PORT # 162 -BYTE # 207 -PORT # 162 -BYTE # 208 -PORT # 162 -BYTE # 209 -PORT # 162 -BYTE # 210 -PORT # 162 -BYTE # 211 -PORT # 162 -BYTE # 212 -PORT # 162 -BYTE # 213 -PORT # 162 -BYTE # 214 -PORT # 162 -BYTE # 215 -PORT # 162 -BYTE # 216 -PORT # 162 -BYTE # 217 -PORT # 162 -BYTE # 218 -PORT # 162 -BYTE # 219 -PORT # 162 -BYTE # 220 -PORT # 162 -BYTE # 221 -PORT # 162 -BYTE # 222 -PORT # 162 -BYTE # 223 -PORT # 162 -BYTE # 224 -PORT # 162 -BYTE # 225 -PORT # 162 -BYTE # 226 -PORT # 162 -BYTE # 227 -PORT # 162 -BYTE # 228 -PORT # 162 -BYTE # 229 -PORT # 162 -BYTE # 230 -PORT # 162 -BYTE # 231 -PORT # 162 -BYTE # 232 -PORT # 162 -BYTE # 233 -PORT # 162 -BYTE # 234 -PORT # 162 -BYTE # 235 -PORT # 162 -BYTE # 236 -PORT # 162 -BYTE # 237 -PORT # 162 -BYTE # 238 -PORT # 162 -BYTE # 239 -PORT # 162 -BYTE # 240 -PORT # 162 -BYTE # 241 -PORT # 162 -BYTE # 242 -PORT # 162 -BYTE # 243 -PORT # 162 -BYTE # 244 -PORT # 162 -BYTE # 245 -PORT # 162 -BYTE # 246 -PORT # 162 -BYTE # 247 -PORT # 162 -BYTE # 248 -PORT # 162 -BYTE # 249 -PORT # 162 -BYTE # 250 -PORT # 162 -BYTE # 251 -PORT # 162 -BYTE # 252 -PORT # 162 -BYTE # 253 -PORT # 162 -BYTE # 254 -PORT # 162 -BYTE # 255 -PORT # 163 -BYTE # 0 -PORT # 163 -BYTE # 1 -PORT # 163 -BYTE # 2 -PORT # 163 -BYTE # 3 -PORT # 163 -BYTE # 4 -PORT # 163 -BYTE # 5 -PORT # 163 -BYTE # 6 -PORT # 163 -BYTE # 7 -PORT # 163 -BYTE # 8 -PORT # 163 -BYTE # 9 -PORT # 163 -BYTE # 10 -PORT # 163 -BYTE # 11 -PORT # 163 -BYTE # 12 -PORT # 163 -BYTE # 13 -PORT # 163 -BYTE # 14 -PORT # 163 -BYTE # 15 -PORT # 163 -BYTE # 16 -PORT # 163 -BYTE # 17 -PORT # 163 -BYTE # 18 -PORT # 163 -BYTE # 19 -PORT # 163 -BYTE # 20 -PORT # 163 -BYTE # 21 -PORT # 163 -BYTE # 22 -PORT # 163 -BYTE # 23 -PORT # 163 -BYTE # 24 -PORT # 163 -BYTE # 25 -PORT # 163 -BYTE # 26 -PORT # 163 -BYTE # 27 -PORT # 163 -BYTE # 28 -PORT # 163 -BYTE # 29 -PORT # 163 -BYTE # 30 -PORT # 163 -BYTE # 31 -PORT # 163 -BYTE # 32 -PORT # 163 -BYTE # 33 -PORT # 163 -BYTE # 34 -PORT # 163 -BYTE # 35 -PORT # 163 -BYTE # 36 -PORT # 163 -BYTE # 37 -PORT # 163 -BYTE # 38 -PORT # 163 -BYTE # 39 -PORT # 163 -BYTE # 40 -PORT # 163 -BYTE # 41 -PORT # 163 -BYTE # 42 -PORT # 163 -BYTE # 43 -PORT # 163 -BYTE # 44 -PORT # 163 -BYTE # 45 -PORT # 163 -BYTE # 46 -PORT # 163 -BYTE # 47 -PORT # 163 -BYTE # 48 -PORT # 163 -BYTE # 49 -PORT # 163 -BYTE # 50 -PORT # 163 -BYTE # 51 -PORT # 163 -BYTE # 52 -PORT # 163 -BYTE # 53 -PORT # 163 -BYTE # 54 -PORT # 163 -BYTE # 55 -PORT # 163 -BYTE # 56 -PORT # 163 -BYTE # 57 -PORT # 163 -BYTE # 58 -PORT # 163 -BYTE # 59 -PORT # 163 -BYTE # 60 -PORT # 163 -BYTE # 61 -PORT # 163 -BYTE # 62 -PORT # 163 -BYTE # 63 -PORT # 163 -BYTE # 64 -PORT # 163 -BYTE # 65 -PORT # 163 -BYTE # 66 -PORT # 163 -BYTE # 67 -PORT # 163 -BYTE # 68 -PORT # 163 -BYTE # 69 -PORT # 163 -BYTE # 70 -PORT # 163 -BYTE # 71 -PORT # 163 -BYTE # 72 -PORT # 163 -BYTE # 73 -PORT # 163 -BYTE # 74 -PORT # 163 -BYTE # 75 -PORT # 163 -BYTE # 76 -PORT # 163 -BYTE # 77 -PORT # 163 -BYTE # 78 -PORT # 163 -BYTE # 79 -PORT # 163 -BYTE # 80 -PORT # 163 -BYTE # 81 -PORT # 163 -BYTE # 82 -PORT # 163 -BYTE # 83 -PORT # 163 -BYTE # 84 -PORT # 163 -BYTE # 85 -PORT # 163 -BYTE # 86 -PORT # 163 -BYTE # 87 -PORT # 163 -BYTE # 88 -PORT # 163 -BYTE # 89 -PORT # 163 -BYTE # 90 -PORT # 163 -BYTE # 91 -PORT # 163 -BYTE # 92 -PORT # 163 -BYTE # 93 -PORT # 163 -BYTE # 94 -PORT # 163 -BYTE # 95 -PORT # 163 -BYTE # 96 -PORT # 163 -BYTE # 97 -PORT # 163 -BYTE # 98 -PORT # 163 -BYTE # 99 -PORT # 163 -BYTE # 100 -PORT # 163 -BYTE # 101 -PORT # 163 -BYTE # 102 -PORT # 163 -BYTE # 103 -PORT # 163 -BYTE # 104 -PORT # 163 -BYTE # 105 -PORT # 163 -BYTE # 106 -PORT # 163 -BYTE # 107 -PORT # 163 -BYTE # 108 -PORT # 163 -BYTE # 109 -PORT # 163 -BYTE # 110 -PORT # 163 -BYTE # 111 -PORT # 163 -BYTE # 112 -PORT # 163 -BYTE # 113 -PORT # 163 -BYTE # 114 -PORT # 163 -BYTE # 115 -PORT # 163 -BYTE # 116 -PORT # 163 -BYTE # 117 -PORT # 163 -BYTE # 118 -PORT # 163 -BYTE # 119 -PORT # 163 -BYTE # 120 -PORT # 163 -BYTE # 121 -PORT # 163 -BYTE # 122 -PORT # 163 -BYTE # 123 -PORT # 163 -BYTE # 124 -PORT # 163 -BYTE # 125 -PORT # 163 -BYTE # 126 -PORT # 163 -BYTE # 127 -PORT # 163 -BYTE # 128 -PORT # 163 -BYTE # 129 -PORT # 163 -BYTE # 130 -PORT # 163 -BYTE # 131 -PORT # 163 -BYTE # 132 -PORT # 163 -BYTE # 133 -PORT # 163 -BYTE # 134 -PORT # 163 -BYTE # 135 -PORT # 163 -BYTE # 136 -PORT # 163 -BYTE # 137 -PORT # 163 -BYTE # 138 -PORT # 163 -BYTE # 139 -PORT # 163 -BYTE # 140 -PORT # 163 -BYTE # 141 -PORT # 163 -BYTE # 142 -PORT # 163 -BYTE # 143 -PORT # 163 -BYTE # 144 -PORT # 163 -BYTE # 145 -PORT # 163 -BYTE # 146 -PORT # 163 -BYTE # 147 -PORT # 163 -BYTE # 148 -PORT # 163 -BYTE # 149 -PORT # 163 -BYTE # 150 -PORT # 163 -BYTE # 151 -PORT # 163 -BYTE # 152 -PORT # 163 -BYTE # 153 -PORT # 163 -BYTE # 154 -PORT # 163 -BYTE # 155 -PORT # 163 -BYTE # 156 -PORT # 163 -BYTE # 157 -PORT # 163 -BYTE # 158 -PORT # 163 -BYTE # 159 -PORT # 163 -BYTE # 160 -PORT # 163 -BYTE # 161 -PORT # 163 -BYTE # 162 -PORT # 163 -BYTE # 163 -PORT # 163 -BYTE # 164 -PORT # 163 -BYTE # 165 -PORT # 163 -BYTE # 166 -PORT # 163 -BYTE # 167 -PORT # 163 -BYTE # 168 -PORT # 163 -BYTE # 169 -PORT # 163 -BYTE # 170 -PORT # 163 -BYTE # 171 -PORT # 163 -BYTE # 172 -PORT # 163 -BYTE # 173 -PORT # 163 -BYTE # 174 -PORT # 163 -BYTE # 175 -PORT # 163 -BYTE # 176 -PORT # 163 -BYTE # 177 -PORT # 163 -BYTE # 178 -PORT # 163 -BYTE # 179 -PORT # 163 -BYTE # 180 -PORT # 163 -BYTE # 181 -PORT # 163 -BYTE # 182 -PORT # 163 -BYTE # 183 -PORT # 163 -BYTE # 184 -PORT # 163 -BYTE # 185 -PORT # 163 -BYTE # 186 -PORT # 163 -BYTE # 187 -PORT # 163 -BYTE # 188 -PORT # 163 -BYTE # 189 -PORT # 163 -BYTE # 190 -PORT # 163 -BYTE # 191 -PORT # 163 -BYTE # 192 -PORT # 163 -BYTE # 193 -PORT # 163 -BYTE # 194 -PORT # 163 -BYTE # 195 -PORT # 163 -BYTE # 196 -PORT # 163 -BYTE # 197 -PORT # 163 -BYTE # 198 -PORT # 163 -BYTE # 199 -PORT # 163 -BYTE # 200 -PORT # 163 -BYTE # 201 -PORT # 163 -BYTE # 202 -PORT # 163 -BYTE # 203 -PORT # 163 -BYTE # 204 -PORT # 163 -BYTE # 205 -PORT # 163 -BYTE # 206 -PORT # 163 -BYTE # 207 -PORT # 163 -BYTE # 208 -PORT # 163 -BYTE # 209 -PORT # 163 -BYTE # 210 -PORT # 163 -BYTE # 211 -PORT # 163 -BYTE # 212 -PORT # 163 -BYTE # 213 -PORT # 163 -BYTE # 214 -PORT # 163 -BYTE # 215 -PORT # 163 -BYTE # 216 -PORT # 163 -BYTE # 217 -PORT # 163 -BYTE # 218 -PORT # 163 -BYTE # 219 -PORT # 163 -BYTE # 220 -PORT # 163 -BYTE # 221 -PORT # 163 -BYTE # 222 -PORT # 163 -BYTE # 223 -PORT # 163 -BYTE # 224 -PORT # 163 -BYTE # 225 -PORT # 163 -BYTE # 226 -PORT # 163 -BYTE # 227 -PORT # 163 -BYTE # 228 -PORT # 163 -BYTE # 229 -PORT # 163 -BYTE # 230 -PORT # 163 -BYTE # 231 -PORT # 163 -BYTE # 232 -PORT # 163 -BYTE # 233 -PORT # 163 -BYTE # 234 -PORT # 163 -BYTE # 235 -PORT # 163 -BYTE # 236 -PORT # 163 -BYTE # 237 -PORT # 163 -BYTE # 238 -PORT # 163 -BYTE # 239 -PORT # 163 -BYTE # 240 -PORT # 163 -BYTE # 241 -PORT # 163 -BYTE # 242 -PORT # 163 -BYTE # 243 -PORT # 163 -BYTE # 244 -PORT # 163 -BYTE # 245 -PORT # 163 -BYTE # 246 -PORT # 163 -BYTE # 247 -PORT # 163 -BYTE # 248 -PORT # 163 -BYTE # 249 -PORT # 163 -BYTE # 250 -PORT # 163 -BYTE # 251 -PORT # 163 -BYTE # 252 -PORT # 163 -BYTE # 253 -PORT # 163 -BYTE # 254 -PORT # 163 -BYTE # 255 -PORT # 164 -BYTE # 0 -PORT # 164 -BYTE # 1 -PORT # 164 -BYTE # 2 -PORT # 164 -BYTE # 3 -PORT # 164 -BYTE # 4 -PORT # 164 -BYTE # 5 -PORT # 164 -BYTE # 6 -PORT # 164 -BYTE # 7 -PORT # 164 -BYTE # 8 -PORT # 164 -BYTE # 9 -PORT # 164 -BYTE # 10 -PORT # 164 -BYTE # 11 -PORT # 164 -BYTE # 12 -PORT # 164 -BYTE # 13 -PORT # 164 -BYTE # 14 -PORT # 164 -BYTE # 15 -PORT # 164 -BYTE # 16 -PORT # 164 -BYTE # 17 -PORT # 164 -BYTE # 18 -PORT # 164 -BYTE # 19 -PORT # 164 -BYTE # 20 -PORT # 164 -BYTE # 21 -PORT # 164 -BYTE # 22 -PORT # 164 -BYTE # 23 -PORT # 164 -BYTE # 24 -PORT # 164 -BYTE # 25 -PORT # 164 -BYTE # 26 -PORT # 164 -BYTE # 27 -PORT # 164 -BYTE # 28 -PORT # 164 -BYTE # 29 -PORT # 164 -BYTE # 30 -PORT # 164 -BYTE # 31 -PORT # 164 -BYTE # 32 -PORT # 164 -BYTE # 33 -PORT # 164 -BYTE # 34 -PORT # 164 -BYTE # 35 -PORT # 164 -BYTE # 36 -PORT # 164 -BYTE # 37 -PORT # 164 -BYTE # 38 -PORT # 164 -BYTE # 39 -PORT # 164 -BYTE # 40 -PORT # 164 -BYTE # 41 -PORT # 164 -BYTE # 42 -PORT # 164 -BYTE # 43 -PORT # 164 -BYTE # 44 -PORT # 164 -BYTE # 45 -PORT # 164 -BYTE # 46 -PORT # 164 -BYTE # 47 -PORT # 164 -BYTE # 48 -PORT # 164 -BYTE # 49 -PORT # 164 -BYTE # 50 -PORT # 164 -BYTE # 51 -PORT # 164 -BYTE # 52 -PORT # 164 -BYTE # 53 -PORT # 164 -BYTE # 54 -PORT # 164 -BYTE # 55 -PORT # 164 -BYTE # 56 -PORT # 164 -BYTE # 57 -PORT # 164 -BYTE # 58 -PORT # 164 -BYTE # 59 -PORT # 164 -BYTE # 60 -PORT # 164 -BYTE # 61 -PORT # 164 -BYTE # 62 -PORT # 164 -BYTE # 63 -PORT # 164 -BYTE # 64 -PORT # 164 -BYTE # 65 -PORT # 164 -BYTE # 66 -PORT # 164 -BYTE # 67 -PORT # 164 -BYTE # 68 -PORT # 164 -BYTE # 69 -PORT # 164 -BYTE # 70 -PORT # 164 -BYTE # 71 -PORT # 164 -BYTE # 72 -PORT # 164 -BYTE # 73 -PORT # 164 -BYTE # 74 -PORT # 164 -BYTE # 75 -PORT # 164 -BYTE # 76 -PORT # 164 -BYTE # 77 -PORT # 164 -BYTE # 78 -PORT # 164 -BYTE # 79 -PORT # 164 -BYTE # 80 -PORT # 164 -BYTE # 81 -PORT # 164 -BYTE # 82 -PORT # 164 -BYTE # 83 -PORT # 164 -BYTE # 84 -PORT # 164 -BYTE # 85 -PORT # 164 -BYTE # 86 -PORT # 164 -BYTE # 87 -PORT # 164 -BYTE # 88 -PORT # 164 -BYTE # 89 -PORT # 164 -BYTE # 90 -PORT # 164 -BYTE # 91 -PORT # 164 -BYTE # 92 -PORT # 164 -BYTE # 93 -PORT # 164 -BYTE # 94 -PORT # 164 -BYTE # 95 -PORT # 164 -BYTE # 96 -PORT # 164 -BYTE # 97 -PORT # 164 -BYTE # 98 -PORT # 164 -BYTE # 99 -PORT # 164 -BYTE # 100 -PORT # 164 -BYTE # 101 -PORT # 164 -BYTE # 102 -PORT # 164 -BYTE # 103 -PORT # 164 -BYTE # 104 -PORT # 164 -BYTE # 105 -PORT # 164 -BYTE # 106 -PORT # 164 -BYTE # 107 -PORT # 164 -BYTE # 108 -PORT # 164 -BYTE # 109 -PORT # 164 -BYTE # 110 -PORT # 164 -BYTE # 111 -PORT # 164 -BYTE # 112 -PORT # 164 -BYTE # 113 -PORT # 164 -BYTE # 114 -PORT # 164 -BYTE # 115 -PORT # 164 -BYTE # 116 -PORT # 164 -BYTE # 117 -PORT # 164 -BYTE # 118 -PORT # 164 -BYTE # 119 -PORT # 164 -BYTE # 120 -PORT # 164 -BYTE # 121 -PORT # 164 -BYTE # 122 -PORT # 164 -BYTE # 123 -PORT # 164 -BYTE # 124 -PORT # 164 -BYTE # 125 -PORT # 164 -BYTE # 126 -PORT # 164 -BYTE # 127 -PORT # 164 -BYTE # 128 -PORT # 164 -BYTE # 129 -PORT # 164 -BYTE # 130 -PORT # 164 -BYTE # 131 -PORT # 164 -BYTE # 132 -PORT # 164 -BYTE # 133 -PORT # 164 -BYTE # 134 -PORT # 164 -BYTE # 135 -PORT # 164 -BYTE # 136 -PORT # 164 -BYTE # 137 -PORT # 164 -BYTE # 138 -PORT # 164 -BYTE # 139 -PORT # 164 -BYTE # 140 -PORT # 164 -BYTE # 141 -PORT # 164 -BYTE # 142 -PORT # 164 -BYTE # 143 -PORT # 164 -BYTE # 144 -PORT # 164 -BYTE # 145 -PORT # 164 -BYTE # 146 -PORT # 164 -BYTE # 147 -PORT # 164 -BYTE # 148 -PORT # 164 -BYTE # 149 -PORT # 164 -BYTE # 150 -PORT # 164 -BYTE # 151 -PORT # 164 -BYTE # 152 -PORT # 164 -BYTE # 153 -PORT # 164 -BYTE # 154 -PORT # 164 -BYTE # 155 -PORT # 164 -BYTE # 156 -PORT # 164 -BYTE # 157 -PORT # 164 -BYTE # 158 -PORT # 164 -BYTE # 159 -PORT # 164 -BYTE # 160 -PORT # 164 -BYTE # 161 -PORT # 164 -BYTE # 162 -PORT # 164 -BYTE # 163 -PORT # 164 -BYTE # 164 -PORT # 164 -BYTE # 165 -PORT # 164 -BYTE # 166 -PORT # 164 -BYTE # 167 -PORT # 164 -BYTE # 168 -PORT # 164 -BYTE # 169 -PORT # 164 -BYTE # 170 -PORT # 164 -BYTE # 171 -PORT # 164 -BYTE # 172 -PORT # 164 -BYTE # 173 -PORT # 164 -BYTE # 174 -PORT # 164 -BYTE # 175 -PORT # 164 -BYTE # 176 -PORT # 164 -BYTE # 177 -PORT # 164 -BYTE # 178 -PORT # 164 -BYTE # 179 -PORT # 164 -BYTE # 180 -PORT # 164 -BYTE # 181 -PORT # 164 -BYTE # 182 -PORT # 164 -BYTE # 183 -PORT # 164 -BYTE # 184 -PORT # 164 -BYTE # 185 -PORT # 164 -BYTE # 186 -PORT # 164 -BYTE # 187 -PORT # 164 -BYTE # 188 -PORT # 164 -BYTE # 189 -PORT # 164 -BYTE # 190 -PORT # 164 -BYTE # 191 -PORT # 164 -BYTE # 192 -PORT # 164 -BYTE # 193 -PORT # 164 -BYTE # 194 -PORT # 164 -BYTE # 195 -PORT # 164 -BYTE # 196 -PORT # 164 -BYTE # 197 -PORT # 164 -BYTE # 198 -PORT # 164 -BYTE # 199 -PORT # 164 -BYTE # 200 -PORT # 164 -BYTE # 201 -PORT # 164 -BYTE # 202 -PORT # 164 -BYTE # 203 -PORT # 164 -BYTE # 204 -PORT # 164 -BYTE # 205 -PORT # 164 -BYTE # 206 -PORT # 164 -BYTE # 207 -PORT # 164 -BYTE # 208 -PORT # 164 -BYTE # 209 -PORT # 164 -BYTE # 210 -PORT # 164 -BYTE # 211 -PORT # 164 -BYTE # 212 -PORT # 164 -BYTE # 213 -PORT # 164 -BYTE # 214 -PORT # 164 -BYTE # 215 -PORT # 164 -BYTE # 216 -PORT # 164 -BYTE # 217 -PORT # 164 -BYTE # 218 -PORT # 164 -BYTE # 219 -PORT # 164 -BYTE # 220 -PORT # 164 -BYTE # 221 -PORT # 164 -BYTE # 222 -PORT # 164 -BYTE # 223 -PORT # 164 -BYTE # 224 -PORT # 164 -BYTE # 225 -PORT # 164 -BYTE # 226 -PORT # 164 -BYTE # 227 -PORT # 164 -BYTE # 228 -PORT # 164 -BYTE # 229 -PORT # 164 -BYTE # 230 -PORT # 164 -BYTE # 231 -PORT # 164 -BYTE # 232 -PORT # 164 -BYTE # 233 -PORT # 164 -BYTE # 234 -PORT # 164 -BYTE # 235 -PORT # 164 -BYTE # 236 -PORT # 164 -BYTE # 237 -PORT # 164 -BYTE # 238 -PORT # 164 -BYTE # 239 -PORT # 164 -BYTE # 240 -PORT # 164 -BYTE # 241 -PORT # 164 -BYTE # 242 -PORT # 164 -BYTE # 243 -PORT # 164 -BYTE # 244 -PORT # 164 -BYTE # 245 -PORT # 164 -BYTE # 246 -PORT # 164 -BYTE # 247 -PORT # 164 -BYTE # 248 -PORT # 164 -BYTE # 249 -PORT # 164 -BYTE # 250 -PORT # 164 -BYTE # 251 -PORT # 164 -BYTE # 252 -PORT # 164 -BYTE # 253 -PORT # 164 -BYTE # 254 -PORT # 164 -BYTE # 255 -PORT # 165 -BYTE # 0 -PORT # 165 -BYTE # 1 -PORT # 165 -BYTE # 2 -PORT # 165 -BYTE # 3 -PORT # 165 -BYTE # 4 -PORT # 165 -BYTE # 5 -PORT # 165 -BYTE # 6 -PORT # 165 -BYTE # 7 -PORT # 165 -BYTE # 8 -PORT # 165 -BYTE # 9 -PORT # 165 -BYTE # 10 -PORT # 165 -BYTE # 11 -PORT # 165 -BYTE # 12 -PORT # 165 -BYTE # 13 -PORT # 165 -BYTE # 14 -PORT # 165 -BYTE # 15 -PORT # 165 -BYTE # 16 -PORT # 165 -BYTE # 17 -PORT # 165 -BYTE # 18 -PORT # 165 -BYTE # 19 -PORT # 165 -BYTE # 20 -PORT # 165 -BYTE # 21 -PORT # 165 -BYTE # 22 -PORT # 165 -BYTE # 23 -PORT # 165 -BYTE # 24 -PORT # 165 -BYTE # 25 -PORT # 165 -BYTE # 26 -PORT # 165 -BYTE # 27 -PORT # 165 -BYTE # 28 -PORT # 165 -BYTE # 29 -PORT # 165 -BYTE # 30 -PORT # 165 -BYTE # 31 -PORT # 165 -BYTE # 32 -PORT # 165 -BYTE # 33 -PORT # 165 -BYTE # 34 -PORT # 165 -BYTE # 35 -PORT # 165 -BYTE # 36 -PORT # 165 -BYTE # 37 -PORT # 165 -BYTE # 38 -PORT # 165 -BYTE # 39 -PORT # 165 -BYTE # 40 -PORT # 165 -BYTE # 41 -PORT # 165 -BYTE # 42 -PORT # 165 -BYTE # 43 -PORT # 165 -BYTE # 44 -PORT # 165 -BYTE # 45 -PORT # 165 -BYTE # 46 -PORT # 165 -BYTE # 47 -PORT # 165 -BYTE # 48 -PORT # 165 -BYTE # 49 -PORT # 165 -BYTE # 50 -PORT # 165 -BYTE # 51 -PORT # 165 -BYTE # 52 -PORT # 165 -BYTE # 53 -PORT # 165 -BYTE # 54 -PORT # 165 -BYTE # 55 -PORT # 165 -BYTE # 56 -PORT # 165 -BYTE # 57 -PORT # 165 -BYTE # 58 -PORT # 165 -BYTE # 59 -PORT # 165 -BYTE # 60 -PORT # 165 -BYTE # 61 -PORT # 165 -BYTE # 62 -PORT # 165 -BYTE # 63 -PORT # 165 -BYTE # 64 -PORT # 165 -BYTE # 65 -PORT # 165 -BYTE # 66 -PORT # 165 -BYTE # 67 -PORT # 165 -BYTE # 68 -PORT # 165 -BYTE # 69 -PORT # 165 -BYTE # 70 -PORT # 165 -BYTE # 71 -PORT # 165 -BYTE # 72 -PORT # 165 -BYTE # 73 -PORT # 165 -BYTE # 74 -PORT # 165 -BYTE # 75 -PORT # 165 -BYTE # 76 -PORT # 165 -BYTE # 77 -PORT # 165 -BYTE # 78 -PORT # 165 -BYTE # 79 -PORT # 165 -BYTE # 80 -PORT # 165 -BYTE # 81 -PORT # 165 -BYTE # 82 -PORT # 165 -BYTE # 83 -PORT # 165 -BYTE # 84 -PORT # 165 -BYTE # 85 -PORT # 165 -BYTE # 86 -PORT # 165 -BYTE # 87 -PORT # 165 -BYTE # 88 -PORT # 165 -BYTE # 89 -PORT # 165 -BYTE # 90 -PORT # 165 -BYTE # 91 -PORT # 165 -BYTE # 92 -PORT # 165 -BYTE # 93 -PORT # 165 -BYTE # 94 -PORT # 165 -BYTE # 95 -PORT # 165 -BYTE # 96 -PORT # 165 -BYTE # 97 -PORT # 165 -BYTE # 98 -PORT # 165 -BYTE # 99 -PORT # 165 -BYTE # 100 -PORT # 165 -BYTE # 101 -PORT # 165 -BYTE # 102 -PORT # 165 -BYTE # 103 -PORT # 165 -BYTE # 104 -PORT # 165 -BYTE # 105 -PORT # 165 -BYTE # 106 -PORT # 165 -BYTE # 107 -PORT # 165 -BYTE # 108 -PORT # 165 -BYTE # 109 -PORT # 165 -BYTE # 110 -PORT # 165 -BYTE # 111 -PORT # 165 -BYTE # 112 -PORT # 165 -BYTE # 113 -PORT # 165 -BYTE # 114 -PORT # 165 -BYTE # 115 -PORT # 165 -BYTE # 116 -PORT # 165 -BYTE # 117 -PORT # 165 -BYTE # 118 -PORT # 165 -BYTE # 119 -PORT # 165 -BYTE # 120 -PORT # 165 -BYTE # 121 -PORT # 165 -BYTE # 122 -PORT # 165 -BYTE # 123 -PORT # 165 -BYTE # 124 -PORT # 165 -BYTE # 125 -PORT # 165 -BYTE # 126 -PORT # 165 -BYTE # 127 -PORT # 165 -BYTE # 128 -PORT # 165 -BYTE # 129 -PORT # 165 -BYTE # 130 -PORT # 165 -BYTE # 131 -PORT # 165 -BYTE # 132 -PORT # 165 -BYTE # 133 -PORT # 165 -BYTE # 134 -PORT # 165 -BYTE # 135 -PORT # 165 -BYTE # 136 -PORT # 165 -BYTE # 137 -PORT # 165 -BYTE # 138 -PORT # 165 -BYTE # 139 -PORT # 165 -BYTE # 140 -PORT # 165 -BYTE # 141 -PORT # 165 -BYTE # 142 -PORT # 165 -BYTE # 143 -PORT # 165 -BYTE # 144 -PORT # 165 -BYTE # 145 -PORT # 165 -BYTE # 146 -PORT # 165 -BYTE # 147 -PORT # 165 -BYTE # 148 -PORT # 165 -BYTE # 149 -PORT # 165 -BYTE # 150 -PORT # 165 -BYTE # 151 -PORT # 165 -BYTE # 152 -PORT # 165 -BYTE # 153 -PORT # 165 -BYTE # 154 -PORT # 165 -BYTE # 155 -PORT # 165 -BYTE # 156 -PORT # 165 -BYTE # 157 -PORT # 165 -BYTE # 158 -PORT # 165 -BYTE # 159 -PORT # 165 -BYTE # 160 -PORT # 165 -BYTE # 161 -PORT # 165 -BYTE # 162 -PORT # 165 -BYTE # 163 -PORT # 165 -BYTE # 164 -PORT # 165 -BYTE # 165 -PORT # 165 -BYTE # 166 -PORT # 165 -BYTE # 167 -PORT # 165 -BYTE # 168 -PORT # 165 -BYTE # 169 -PORT # 165 -BYTE # 170 -PORT # 165 -BYTE # 171 -PORT # 165 -BYTE # 172 -PORT # 165 -BYTE # 173 -PORT # 165 -BYTE # 174 -PORT # 165 -BYTE # 175 -PORT # 165 -BYTE # 176 -PORT # 165 -BYTE # 177 -PORT # 165 -BYTE # 178 -PORT # 165 -BYTE # 179 -PORT # 165 -BYTE # 180 -PORT # 165 -BYTE # 181 -PORT # 165 -BYTE # 182 -PORT # 165 -BYTE # 183 -PORT # 165 -BYTE # 184 -PORT # 165 -BYTE # 185 -PORT # 165 -BYTE # 186 -PORT # 165 -BYTE # 187 -PORT # 165 -BYTE # 188 -PORT # 165 -BYTE # 189 -PORT # 165 -BYTE # 190 -PORT # 165 -BYTE # 191 -PORT # 165 -BYTE # 192 -PORT # 165 -BYTE # 193 -PORT # 165 -BYTE # 194 -PORT # 165 -BYTE # 195 -PORT # 165 -BYTE # 196 -PORT # 165 -BYTE # 197 -PORT # 165 -BYTE # 198 -PORT # 165 -BYTE # 199 -PORT # 165 -BYTE # 200 -PORT # 165 -BYTE # 201 -PORT # 165 -BYTE # 202 -PORT # 165 -BYTE # 203 -PORT # 165 -BYTE # 204 -PORT # 165 -BYTE # 205 -PORT # 165 -BYTE # 206 -PORT # 165 -BYTE # 207 -PORT # 165 -BYTE # 208 -PORT # 165 -BYTE # 209 -PORT # 165 -BYTE # 210 -PORT # 165 -BYTE # 211 -PORT # 165 -BYTE # 212 -PORT # 165 -BYTE # 213 -PORT # 165 -BYTE # 214 -PORT # 165 -BYTE # 215 -PORT # 165 -BYTE # 216 -PORT # 165 -BYTE # 217 -PORT # 165 -BYTE # 218 -PORT # 165 -BYTE # 219 -PORT # 165 -BYTE # 220 -PORT # 165 -BYTE # 221 -PORT # 165 -BYTE # 222 -PORT # 165 -BYTE # 223 -PORT # 165 -BYTE # 224 -PORT # 165 -BYTE # 225 -PORT # 165 -BYTE # 226 -PORT # 165 -BYTE # 227 -PORT # 165 -BYTE # 228 -PORT # 165 -BYTE # 229 -PORT # 165 -BYTE # 230 -PORT # 165 -BYTE # 231 -PORT # 165 -BYTE # 232 -PORT # 165 -BYTE # 233 -PORT # 165 -BYTE # 234 -PORT # 165 -BYTE # 235 -PORT # 165 -BYTE # 236 -PORT # 165 -BYTE # 237 -PORT # 165 -BYTE # 238 -PORT # 165 -BYTE # 239 -PORT # 165 -BYTE # 240 -PORT # 165 -BYTE # 241 -PORT # 165 -BYTE # 242 -PORT # 165 -BYTE # 243 -PORT # 165 -BYTE # 244 -PORT # 165 -BYTE # 245 -PORT # 165 -BYTE # 246 -PORT # 165 -BYTE # 247 -PORT # 165 -BYTE # 248 -PORT # 165 -BYTE # 249 -PORT # 165 -BYTE # 250 -PORT # 165 -BYTE # 251 -PORT # 165 -BYTE # 252 -PORT # 165 -BYTE # 253 -PORT # 165 -BYTE # 254 -PORT # 165 -BYTE # 255 -PORT # 166 -BYTE # 0 -PORT # 166 -BYTE # 1 -PORT # 166 -BYTE # 2 -PORT # 166 -BYTE # 3 -PORT # 166 -BYTE # 4 -PORT # 166 -BYTE # 5 -PORT # 166 -BYTE # 6 -PORT # 166 -BYTE # 7 -PORT # 166 -BYTE # 8 -PORT # 166 -BYTE # 9 -PORT # 166 -BYTE # 10 -PORT # 166 -BYTE # 11 -PORT # 166 -BYTE # 12 -PORT # 166 -BYTE # 13 -PORT # 166 -BYTE # 14 -PORT # 166 -BYTE # 15 -PORT # 166 -BYTE # 16 -PORT # 166 -BYTE # 17 -PORT # 166 -BYTE # 18 -PORT # 166 -BYTE # 19 -PORT # 166 -BYTE # 20 -PORT # 166 -BYTE # 21 -PORT # 166 -BYTE # 22 -PORT # 166 -BYTE # 23 -PORT # 166 -BYTE # 24 -PORT # 166 -BYTE # 25 -PORT # 166 -BYTE # 26 -PORT # 166 -BYTE # 27 -PORT # 166 -BYTE # 28 -PORT # 166 -BYTE # 29 -PORT # 166 -BYTE # 30 -PORT # 166 -BYTE # 31 -PORT # 166 -BYTE # 32 -PORT # 166 -BYTE # 33 -PORT # 166 -BYTE # 34 -PORT # 166 -BYTE # 35 -PORT # 166 -BYTE # 36 -PORT # 166 -BYTE # 37 -PORT # 166 -BYTE # 38 -PORT # 166 -BYTE # 39 -PORT # 166 -BYTE # 40 -PORT # 166 -BYTE # 41 -PORT # 166 -BYTE # 42 -PORT # 166 -BYTE # 43 -PORT # 166 -BYTE # 44 -PORT # 166 -BYTE # 45 -PORT # 166 -BYTE # 46 -PORT # 166 -BYTE # 47 -PORT # 166 -BYTE # 48 -PORT # 166 -BYTE # 49 -PORT # 166 -BYTE # 50 -PORT # 166 -BYTE # 51 -PORT # 166 -BYTE # 52 -PORT # 166 -BYTE # 53 -PORT # 166 -BYTE # 54 -PORT # 166 -BYTE # 55 -PORT # 166 -BYTE # 56 -PORT # 166 -BYTE # 57 -PORT # 166 -BYTE # 58 -PORT # 166 -BYTE # 59 -PORT # 166 -BYTE # 60 -PORT # 166 -BYTE # 61 -PORT # 166 -BYTE # 62 -PORT # 166 -BYTE # 63 -PORT # 166 -BYTE # 64 -PORT # 166 -BYTE # 65 -PORT # 166 -BYTE # 66 -PORT # 166 -BYTE # 67 -PORT # 166 -BYTE # 68 -PORT # 166 -BYTE # 69 -PORT # 166 -BYTE # 70 -PORT # 166 -BYTE # 71 -PORT # 166 -BYTE # 72 -PORT # 166 -BYTE # 73 -PORT # 166 -BYTE # 74 -PORT # 166 -BYTE # 75 -PORT # 166 -BYTE # 76 -PORT # 166 -BYTE # 77 -PORT # 166 -BYTE # 78 -PORT # 166 -BYTE # 79 -PORT # 166 -BYTE # 80 -PORT # 166 -BYTE # 81 -PORT # 166 -BYTE # 82 -PORT # 166 -BYTE # 83 -PORT # 166 -BYTE # 84 -PORT # 166 -BYTE # 85 -PORT # 166 -BYTE # 86 -PORT # 166 -BYTE # 87 -PORT # 166 -BYTE # 88 -PORT # 166 -BYTE # 89 -PORT # 166 -BYTE # 90 -PORT # 166 -BYTE # 91 -PORT # 166 -BYTE # 92 -PORT # 166 -BYTE # 93 -PORT # 166 -BYTE # 94 -PORT # 166 -BYTE # 95 -PORT # 166 -BYTE # 96 -PORT # 166 -BYTE # 97 -PORT # 166 -BYTE # 98 -PORT # 166 -BYTE # 99 -PORT # 166 -BYTE # 100 -PORT # 166 -BYTE # 101 -PORT # 166 -BYTE # 102 -PORT # 166 -BYTE # 103 -PORT # 166 -BYTE # 104 -PORT # 166 -BYTE # 105 -PORT # 166 -BYTE # 106 -PORT # 166 -BYTE # 107 -PORT # 166 -BYTE # 108 -PORT # 166 -BYTE # 109 -PORT # 166 -BYTE # 110 -PORT # 166 -BYTE # 111 -PORT # 166 -BYTE # 112 -PORT # 166 -BYTE # 113 -PORT # 166 -BYTE # 114 -PORT # 166 -BYTE # 115 -PORT # 166 -BYTE # 116 -PORT # 166 -BYTE # 117 -PORT # 166 -BYTE # 118 -PORT # 166 -BYTE # 119 -PORT # 166 -BYTE # 120 -PORT # 166 -BYTE # 121 -PORT # 166 -BYTE # 122 -PORT # 166 -BYTE # 123 -PORT # 166 -BYTE # 124 -PORT # 166 -BYTE # 125 -PORT # 166 -BYTE # 126 -PORT # 166 -BYTE # 127 -PORT # 166 -BYTE # 128 -PORT # 166 -BYTE # 129 -PORT # 166 -BYTE # 130 -PORT # 166 -BYTE # 131 -PORT # 166 -BYTE # 132 -PORT # 166 -BYTE # 133 -PORT # 166 -BYTE # 134 -PORT # 166 -BYTE # 135 -PORT # 166 -BYTE # 136 -PORT # 166 -BYTE # 137 -PORT # 166 -BYTE # 138 -PORT # 166 -BYTE # 139 -PORT # 166 -BYTE # 140 -PORT # 166 -BYTE # 141 -PORT # 166 -BYTE # 142 -PORT # 166 -BYTE # 143 -PORT # 166 -BYTE # 144 -PORT # 166 -BYTE # 145 -PORT # 166 -BYTE # 146 -PORT # 166 -BYTE # 147 -PORT # 166 -BYTE # 148 -PORT # 166 -BYTE # 149 -PORT # 166 -BYTE # 150 -PORT # 166 -BYTE # 151 -PORT # 166 -BYTE # 152 -PORT # 166 -BYTE # 153 -PORT # 166 -BYTE # 154 -PORT # 166 -BYTE # 155 -PORT # 166 -BYTE # 156 -PORT # 166 -BYTE # 157 -PORT # 166 -BYTE # 158 -PORT # 166 -BYTE # 159 -PORT # 166 -BYTE # 160 -PORT # 166 -BYTE # 161 -PORT # 166 -BYTE # 162 -PORT # 166 -BYTE # 163 -PORT # 166 -BYTE # 164 -PORT # 166 -BYTE # 165 -PORT # 166 -BYTE # 166 -PORT # 166 -BYTE # 167 -PORT # 166 -BYTE # 168 -PORT # 166 -BYTE # 169 -PORT # 166 -BYTE # 170 -PORT # 166 -BYTE # 171 -PORT # 166 -BYTE # 172 -PORT # 166 -BYTE # 173 -PORT # 166 -BYTE # 174 -PORT # 166 -BYTE # 175 -PORT # 166 -BYTE # 176 -PORT # 166 -BYTE # 177 -PORT # 166 -BYTE # 178 -PORT # 166 -BYTE # 179 -PORT # 166 -BYTE # 180 -PORT # 166 -BYTE # 181 -PORT # 166 -BYTE # 182 -PORT # 166 -BYTE # 183 -PORT # 166 -BYTE # 184 -PORT # 166 -BYTE # 185 -PORT # 166 -BYTE # 186 -PORT # 166 -BYTE # 187 -PORT # 166 -BYTE # 188 -PORT # 166 -BYTE # 189 -PORT # 166 -BYTE # 190 -PORT # 166 -BYTE # 191 -PORT # 166 -BYTE # 192 -PORT # 166 -BYTE # 193 -PORT # 166 -BYTE # 194 -PORT # 166 -BYTE # 195 -PORT # 166 -BYTE # 196 -PORT # 166 -BYTE # 197 -PORT # 166 -BYTE # 198 -PORT # 166 -BYTE # 199 -PORT # 166 -BYTE # 200 -PORT # 166 -BYTE # 201 -PORT # 166 -BYTE # 202 -PORT # 166 -BYTE # 203 -PORT # 166 -BYTE # 204 -PORT # 166 -BYTE # 205 -PORT # 166 -BYTE # 206 -PORT # 166 -BYTE # 207 -PORT # 166 -BYTE # 208 -PORT # 166 -BYTE # 209 -PORT # 166 -BYTE # 210 -PORT # 166 -BYTE # 211 -PORT # 166 -BYTE # 212 -PORT # 166 -BYTE # 213 -PORT # 166 -BYTE # 214 -PORT # 166 -BYTE # 215 -PORT # 166 -BYTE # 216 -PORT # 166 -BYTE # 217 -PORT # 166 -BYTE # 218 -PORT # 166 -BYTE # 219 -PORT # 166 -BYTE # 220 -PORT # 166 -BYTE # 221 -PORT # 166 -BYTE # 222 -PORT # 166 -BYTE # 223 -PORT # 166 -BYTE # 224 -PORT # 166 -BYTE # 225 -PORT # 166 -BYTE # 226 -PORT # 166 -BYTE # 227 -PORT # 166 -BYTE # 228 -PORT # 166 -BYTE # 229 -PORT # 166 -BYTE # 230 -PORT # 166 -BYTE # 231 -PORT # 166 -BYTE # 232 -PORT # 166 -BYTE # 233 -PORT # 166 -BYTE # 234 -PORT # 166 -BYTE # 235 -PORT # 166 -BYTE # 236 -PORT # 166 -BYTE # 237 -PORT # 166 -BYTE # 238 -PORT # 166 -BYTE # 239 -PORT # 166 -BYTE # 240 -PORT # 166 -BYTE # 241 -PORT # 166 -BYTE # 242 -PORT # 166 -BYTE # 243 -PORT # 166 -BYTE # 244 -PORT # 166 -BYTE # 245 -PORT # 166 -BYTE # 246 -PORT # 166 -BYTE # 247 -PORT # 166 -BYTE # 248 -PORT # 166 -BYTE # 249 -PORT # 166 -BYTE # 250 -PORT # 166 -BYTE # 251 -PORT # 166 -BYTE # 252 -PORT # 166 -BYTE # 253 -PORT # 166 -BYTE # 254 -PORT # 166 -BYTE # 255 -PORT # 167 -BYTE # 0 -PORT # 167 -BYTE # 1 -PORT # 167 -BYTE # 2 -PORT # 167 -BYTE # 3 -PORT # 167 -BYTE # 4 -PORT # 167 -BYTE # 5 -PORT # 167 -BYTE # 6 -PORT # 167 -BYTE # 7 -PORT # 167 -BYTE # 8 -PORT # 167 -BYTE # 9 -PORT # 167 -BYTE # 10 -PORT # 167 -BYTE # 11 -PORT # 167 -BYTE # 12 -PORT # 167 -BYTE # 13 -PORT # 167 -BYTE # 14 -PORT # 167 -BYTE # 15 -PORT # 167 -BYTE # 16 -PORT # 167 -BYTE # 17 -PORT # 167 -BYTE # 18 -PORT # 167 -BYTE # 19 -PORT # 167 -BYTE # 20 -PORT # 167 -BYTE # 21 -PORT # 167 -BYTE # 22 -PORT # 167 -BYTE # 23 -PORT # 167 -BYTE # 24 -PORT # 167 -BYTE # 25 -PORT # 167 -BYTE # 26 -PORT # 167 -BYTE # 27 -PORT # 167 -BYTE # 28 -PORT # 167 -BYTE # 29 -PORT # 167 -BYTE # 30 -PORT # 167 -BYTE # 31 -PORT # 167 -BYTE # 32 -PORT # 167 -BYTE # 33 -PORT # 167 -BYTE # 34 -PORT # 167 -BYTE # 35 -PORT # 167 -BYTE # 36 -PORT # 167 -BYTE # 37 -PORT # 167 -BYTE # 38 -PORT # 167 -BYTE # 39 -PORT # 167 -BYTE # 40 -PORT # 167 -BYTE # 41 -PORT # 167 -BYTE # 42 -PORT # 167 -BYTE # 43 -PORT # 167 -BYTE # 44 -PORT # 167 -BYTE # 45 -PORT # 167 -BYTE # 46 -PORT # 167 -BYTE # 47 -PORT # 167 -BYTE # 48 -PORT # 167 -BYTE # 49 -PORT # 167 -BYTE # 50 -PORT # 167 -BYTE # 51 -PORT # 167 -BYTE # 52 -PORT # 167 -BYTE # 53 -PORT # 167 -BYTE # 54 -PORT # 167 -BYTE # 55 -PORT # 167 -BYTE # 56 -PORT # 167 -BYTE # 57 -PORT # 167 -BYTE # 58 -PORT # 167 -BYTE # 59 -PORT # 167 -BYTE # 60 -PORT # 167 -BYTE # 61 -PORT # 167 -BYTE # 62 -PORT # 167 -BYTE # 63 -PORT # 167 -BYTE # 64 -PORT # 167 -BYTE # 65 -PORT # 167 -BYTE # 66 -PORT # 167 -BYTE # 67 -PORT # 167 -BYTE # 68 -PORT # 167 -BYTE # 69 -PORT # 167 -BYTE # 70 -PORT # 167 -BYTE # 71 -PORT # 167 -BYTE # 72 -PORT # 167 -BYTE # 73 -PORT # 167 -BYTE # 74 -PORT # 167 -BYTE # 75 -PORT # 167 -BYTE # 76 -PORT # 167 -BYTE # 77 -PORT # 167 -BYTE # 78 -PORT # 167 -BYTE # 79 -PORT # 167 -BYTE # 80 -PORT # 167 -BYTE # 81 -PORT # 167 -BYTE # 82 -PORT # 167 -BYTE # 83 -PORT # 167 -BYTE # 84 -PORT # 167 -BYTE # 85 -PORT # 167 -BYTE # 86 -PORT # 167 -BYTE # 87 -PORT # 167 -BYTE # 88 -PORT # 167 -BYTE # 89 -PORT # 167 -BYTE # 90 -PORT # 167 -BYTE # 91 -PORT # 167 -BYTE # 92 -PORT # 167 -BYTE # 93 -PORT # 167 -BYTE # 94 -PORT # 167 -BYTE # 95 -PORT # 167 -BYTE # 96 -PORT # 167 -BYTE # 97 -PORT # 167 -BYTE # 98 -PORT # 167 -BYTE # 99 -PORT # 167 -BYTE # 100 -PORT # 167 -BYTE # 101 -PORT # 167 -BYTE # 102 -PORT # 167 -BYTE # 103 -PORT # 167 -BYTE # 104 -PORT # 167 -BYTE # 105 -PORT # 167 -BYTE # 106 -PORT # 167 -BYTE # 107 -PORT # 167 -BYTE # 108 -PORT # 167 -BYTE # 109 -PORT # 167 -BYTE # 110 -PORT # 167 -BYTE # 111 -PORT # 167 -BYTE # 112 -PORT # 167 -BYTE # 113 -PORT # 167 -BYTE # 114 -PORT # 167 -BYTE # 115 -PORT # 167 -BYTE # 116 -PORT # 167 -BYTE # 117 -PORT # 167 -BYTE # 118 -PORT # 167 -BYTE # 119 -PORT # 167 -BYTE # 120 -PORT # 167 -BYTE # 121 -PORT # 167 -BYTE # 122 -PORT # 167 -BYTE # 123 -PORT # 167 -BYTE # 124 -PORT # 167 -BYTE # 125 -PORT # 167 -BYTE # 126 -PORT # 167 -BYTE # 127 -PORT # 167 -BYTE # 128 -PORT # 167 -BYTE # 129 -PORT # 167 -BYTE # 130 -PORT # 167 -BYTE # 131 -PORT # 167 -BYTE # 132 -PORT # 167 -BYTE # 133 -PORT # 167 -BYTE # 134 -PORT # 167 -BYTE # 135 -PORT # 167 -BYTE # 136 -PORT # 167 -BYTE # 137 -PORT # 167 -BYTE # 138 -PORT # 167 -BYTE # 139 -PORT # 167 -BYTE # 140 -PORT # 167 -BYTE # 141 -PORT # 167 -BYTE # 142 -PORT # 167 -BYTE # 143 -PORT # 167 -BYTE # 144 -PORT # 167 -BYTE # 145 -PORT # 167 -BYTE # 146 -PORT # 167 -BYTE # 147 -PORT # 167 -BYTE # 148 -PORT # 167 -BYTE # 149 -PORT # 167 -BYTE # 150 -PORT # 167 -BYTE # 151 -PORT # 167 -BYTE # 152 -PORT # 167 -BYTE # 153 -PORT # 167 -BYTE # 154 -PORT # 167 -BYTE # 155 -PORT # 167 -BYTE # 156 -PORT # 167 -BYTE # 157 -PORT # 167 -BYTE # 158 -PORT # 167 -BYTE # 159 -PORT # 167 -BYTE # 160 -PORT # 167 -BYTE # 161 -PORT # 167 -BYTE # 162 -PORT # 167 -BYTE # 163 -PORT # 167 -BYTE # 164 -PORT # 167 -BYTE # 165 -PORT # 167 -BYTE # 166 -PORT # 167 -BYTE # 167 -PORT # 167 -BYTE # 168 -PORT # 167 -BYTE # 169 -PORT # 167 -BYTE # 170 -PORT # 167 -BYTE # 171 -PORT # 167 -BYTE # 172 -PORT # 167 -BYTE # 173 -PORT # 167 -BYTE # 174 -PORT # 167 -BYTE # 175 -PORT # 167 -BYTE # 176 -PORT # 167 -BYTE # 177 -PORT # 167 -BYTE # 178 -PORT # 167 -BYTE # 179 -PORT # 167 -BYTE # 180 -PORT # 167 -BYTE # 181 -PORT # 167 -BYTE # 182 -PORT # 167 -BYTE # 183 -PORT # 167 -BYTE # 184 -PORT # 167 -BYTE # 185 -PORT # 167 -BYTE # 186 -PORT # 167 -BYTE # 187 -PORT # 167 -BYTE # 188 -PORT # 167 -BYTE # 189 -PORT # 167 -BYTE # 190 -PORT # 167 -BYTE # 191 -PORT # 167 -BYTE # 192 -PORT # 167 -BYTE # 193 -PORT # 167 -BYTE # 194 -PORT # 167 -BYTE # 195 -PORT # 167 -BYTE # 196 -PORT # 167 -BYTE # 197 -PORT # 167 -BYTE # 198 -PORT # 167 -BYTE # 199 -PORT # 167 -BYTE # 200 -PORT # 167 -BYTE # 201 -PORT # 167 -BYTE # 202 -PORT # 167 -BYTE # 203 -PORT # 167 -BYTE # 204 -PORT # 167 -BYTE # 205 -PORT # 167 -BYTE # 206 -PORT # 167 -BYTE # 207 -PORT # 167 -BYTE # 208 -PORT # 167 -BYTE # 209 -PORT # 167 -BYTE # 210 -PORT # 167 -BYTE # 211 -PORT # 167 -BYTE # 212 -PORT # 167 -BYTE # 213 -PORT # 167 -BYTE # 214 -PORT # 167 -BYTE # 215 -PORT # 167 -BYTE # 216 -PORT # 167 -BYTE # 217 -PORT # 167 -BYTE # 218 -PORT # 167 -BYTE # 219 -PORT # 167 -BYTE # 220 -PORT # 167 -BYTE # 221 -PORT # 167 -BYTE # 222 -PORT # 167 -BYTE # 223 -PORT # 167 -BYTE # 224 -PORT # 167 -BYTE # 225 -PORT # 167 -BYTE # 226 -PORT # 167 -BYTE # 227 -PORT # 167 -BYTE # 228 -PORT # 167 -BYTE # 229 -PORT # 167 -BYTE # 230 -PORT # 167 -BYTE # 231 -PORT # 167 -BYTE # 232 -PORT # 167 -BYTE # 233 -PORT # 167 -BYTE # 234 -PORT # 167 -BYTE # 235 -PORT # 167 -BYTE # 236 -PORT # 167 -BYTE # 237 -PORT # 167 -BYTE # 238 -PORT # 167 -BYTE # 239 -PORT # 167 -BYTE # 240 -PORT # 167 -BYTE # 241 -PORT # 167 -BYTE # 242 -PORT # 167 -BYTE # 243 -PORT # 167 -BYTE # 244 -PORT # 167 -BYTE # 245 -PORT # 167 -BYTE # 246 -PORT # 167 -BYTE # 247 -PORT # 167 -BYTE # 248 -PORT # 167 -BYTE # 249 -PORT # 167 -BYTE # 250 -PORT # 167 -BYTE # 251 -PORT # 167 -BYTE # 252 -PORT # 167 -BYTE # 253 -PORT # 167 -BYTE # 254 -PORT # 167 -BYTE # 255 -PORT # 168 -BYTE # 0 -PORT # 168 -BYTE # 1 -PORT # 168 -BYTE # 2 -PORT # 168 -BYTE # 3 -PORT # 168 -BYTE # 4 -PORT # 168 -BYTE # 5 -PORT # 168 -BYTE # 6 -PORT # 168 -BYTE # 7 -PORT # 168 -BYTE # 8 -PORT # 168 -BYTE # 9 -PORT # 168 -BYTE # 10 -PORT # 168 -BYTE # 11 -PORT # 168 -BYTE # 12 -PORT # 168 -BYTE # 13 -PORT # 168 -BYTE # 14 -PORT # 168 -BYTE # 15 -PORT # 168 -BYTE # 16 -PORT # 168 -BYTE # 17 -PORT # 168 -BYTE # 18 -PORT # 168 -BYTE # 19 -PORT # 168 -BYTE # 20 -PORT # 168 -BYTE # 21 -PORT # 168 -BYTE # 22 -PORT # 168 -BYTE # 23 -PORT # 168 -BYTE # 24 -PORT # 168 -BYTE # 25 -PORT # 168 -BYTE # 26 -PORT # 168 -BYTE # 27 -PORT # 168 -BYTE # 28 -PORT # 168 -BYTE # 29 -PORT # 168 -BYTE # 30 -PORT # 168 -BYTE # 31 -PORT # 168 -BYTE # 32 -PORT # 168 -BYTE # 33 -PORT # 168 -BYTE # 34 -PORT # 168 -BYTE # 35 -PORT # 168 -BYTE # 36 -PORT # 168 -BYTE # 37 -PORT # 168 -BYTE # 38 -PORT # 168 -BYTE # 39 -PORT # 168 -BYTE # 40 -PORT # 168 -BYTE # 41 -PORT # 168 -BYTE # 42 -PORT # 168 -BYTE # 43 -PORT # 168 -BYTE # 44 -PORT # 168 -BYTE # 45 -PORT # 168 -BYTE # 46 -PORT # 168 -BYTE # 47 -PORT # 168 -BYTE # 48 -PORT # 168 -BYTE # 49 -PORT # 168 -BYTE # 50 -PORT # 168 -BYTE # 51 -PORT # 168 -BYTE # 52 -PORT # 168 -BYTE # 53 -PORT # 168 -BYTE # 54 -PORT # 168 -BYTE # 55 -PORT # 168 -BYTE # 56 -PORT # 168 -BYTE # 57 -PORT # 168 -BYTE # 58 -PORT # 168 -BYTE # 59 -PORT # 168 -BYTE # 60 -PORT # 168 -BYTE # 61 -PORT # 168 -BYTE # 62 -PORT # 168 -BYTE # 63 -PORT # 168 -BYTE # 64 -PORT # 168 -BYTE # 65 -PORT # 168 -BYTE # 66 -PORT # 168 -BYTE # 67 -PORT # 168 -BYTE # 68 -PORT # 168 -BYTE # 69 -PORT # 168 -BYTE # 70 -PORT # 168 -BYTE # 71 -PORT # 168 -BYTE # 72 -PORT # 168 -BYTE # 73 -PORT # 168 -BYTE # 74 -PORT # 168 -BYTE # 75 -PORT # 168 -BYTE # 76 -PORT # 168 -BYTE # 77 -PORT # 168 -BYTE # 78 -PORT # 168 -BYTE # 79 -PORT # 168 -BYTE # 80 -PORT # 168 -BYTE # 81 -PORT # 168 -BYTE # 82 -PORT # 168 -BYTE # 83 -PORT # 168 -BYTE # 84 -PORT # 168 -BYTE # 85 -PORT # 168 -BYTE # 86 -PORT # 168 -BYTE # 87 -PORT # 168 -BYTE # 88 -PORT # 168 -BYTE # 89 -PORT # 168 -BYTE # 90 -PORT # 168 -BYTE # 91 -PORT # 168 -BYTE # 92 -PORT # 168 -BYTE # 93 -PORT # 168 -BYTE # 94 -PORT # 168 -BYTE # 95 -PORT # 168 -BYTE # 96 -PORT # 168 -BYTE # 97 -PORT # 168 -BYTE # 98 -PORT # 168 -BYTE # 99 -PORT # 168 -BYTE # 100 -PORT # 168 -BYTE # 101 -PORT # 168 -BYTE # 102 -PORT # 168 -BYTE # 103 -PORT # 168 -BYTE # 104 -PORT # 168 -BYTE # 105 -PORT # 168 -BYTE # 106 -PORT # 168 -BYTE # 107 -PORT # 168 -BYTE # 108 -PORT # 168 -BYTE # 109 -PORT # 168 -BYTE # 110 -PORT # 168 -BYTE # 111 -PORT # 168 -BYTE # 112 -PORT # 168 -BYTE # 113 -PORT # 168 -BYTE # 114 -PORT # 168 -BYTE # 115 -PORT # 168 -BYTE # 116 -PORT # 168 -BYTE # 117 -PORT # 168 -BYTE # 118 -PORT # 168 -BYTE # 119 -PORT # 168 -BYTE # 120 -PORT # 168 -BYTE # 121 -PORT # 168 -BYTE # 122 -PORT # 168 -BYTE # 123 -PORT # 168 -BYTE # 124 -PORT # 168 -BYTE # 125 -PORT # 168 -BYTE # 126 -PORT # 168 -BYTE # 127 -PORT # 168 -BYTE # 128 -PORT # 168 -BYTE # 129 -PORT # 168 -BYTE # 130 -PORT # 168 -BYTE # 131 -PORT # 168 -BYTE # 132 -PORT # 168 -BYTE # 133 -PORT # 168 -BYTE # 134 -PORT # 168 -BYTE # 135 -PORT # 168 -BYTE # 136 -PORT # 168 -BYTE # 137 -PORT # 168 -BYTE # 138 -PORT # 168 -BYTE # 139 -PORT # 168 -BYTE # 140 -PORT # 168 -BYTE # 141 -PORT # 168 -BYTE # 142 -PORT # 168 -BYTE # 143 -PORT # 168 -BYTE # 144 -PORT # 168 -BYTE # 145 -PORT # 168 -BYTE # 146 -PORT # 168 -BYTE # 147 -PORT # 168 -BYTE # 148 -PORT # 168 -BYTE # 149 -PORT # 168 -BYTE # 150 -PORT # 168 -BYTE # 151 -PORT # 168 -BYTE # 152 -PORT # 168 -BYTE # 153 -PORT # 168 -BYTE # 154 -PORT # 168 -BYTE # 155 -PORT # 168 -BYTE # 156 -PORT # 168 -BYTE # 157 -PORT # 168 -BYTE # 158 -PORT # 168 -BYTE # 159 -PORT # 168 -BYTE # 160 -PORT # 168 -BYTE # 161 -PORT # 168 -BYTE # 162 -PORT # 168 -BYTE # 163 -PORT # 168 -BYTE # 164 -PORT # 168 -BYTE # 165 -PORT # 168 -BYTE # 166 -PORT # 168 -BYTE # 167 -PORT # 168 -BYTE # 168 -PORT # 168 -BYTE # 169 -PORT # 168 -BYTE # 170 -PORT # 168 -BYTE # 171 -PORT # 168 -BYTE # 172 -PORT # 168 -BYTE # 173 -PORT # 168 -BYTE # 174 -PORT # 168 -BYTE # 175 -PORT # 168 -BYTE # 176 -PORT # 168 -BYTE # 177 -PORT # 168 -BYTE # 178 -PORT # 168 -BYTE # 179 -PORT # 168 -BYTE # 180 -PORT # 168 -BYTE # 181 -PORT # 168 -BYTE # 182 -PORT # 168 -BYTE # 183 -PORT # 168 -BYTE # 184 -PORT # 168 -BYTE # 185 -PORT # 168 -BYTE # 186 -PORT # 168 -BYTE # 187 -PORT # 168 -BYTE # 188 -PORT # 168 -BYTE # 189 -PORT # 168 -BYTE # 190 -PORT # 168 -BYTE # 191 -PORT # 168 -BYTE # 192 -PORT # 168 -BYTE # 193 -PORT # 168 -BYTE # 194 -PORT # 168 -BYTE # 195 -PORT # 168 -BYTE # 196 -PORT # 168 -BYTE # 197 -PORT # 168 -BYTE # 198 -PORT # 168 -BYTE # 199 -PORT # 168 -BYTE # 200 -PORT # 168 -BYTE # 201 -PORT # 168 -BYTE # 202 -PORT # 168 -BYTE # 203 -PORT # 168 -BYTE # 204 -PORT # 168 -BYTE # 205 -PORT # 168 -BYTE # 206 -PORT # 168 -BYTE # 207 -PORT # 168 -BYTE # 208 -PORT # 168 -BYTE # 209 -PORT # 168 -BYTE # 210 -PORT # 168 -BYTE # 211 -PORT # 168 -BYTE # 212 -PORT # 168 -BYTE # 213 -PORT # 168 -BYTE # 214 -PORT # 168 -BYTE # 215 -PORT # 168 -BYTE # 216 -PORT # 168 -BYTE # 217 -PORT # 168 -BYTE # 218 -PORT # 168 -BYTE # 219 -PORT # 168 -BYTE # 220 -PORT # 168 -BYTE # 221 -PORT # 168 -BYTE # 222 -PORT # 168 -BYTE # 223 -PORT # 168 -BYTE # 224 -PORT # 168 -BYTE # 225 -PORT # 168 -BYTE # 226 -PORT # 168 -BYTE # 227 -PORT # 168 -BYTE # 228 -PORT # 168 -BYTE # 229 -PORT # 168 -BYTE # 230 -PORT # 168 -BYTE # 231 -PORT # 168 -BYTE # 232 -PORT # 168 -BYTE # 233 -PORT # 168 -BYTE # 234 -PORT # 168 -BYTE # 235 -PORT # 168 -BYTE # 236 -PORT # 168 -BYTE # 237 -PORT # 168 -BYTE # 238 -PORT # 168 -BYTE # 239 -PORT # 168 -BYTE # 240 -PORT # 168 -BYTE # 241 -PORT # 168 -BYTE # 242 -PORT # 168 -BYTE # 243 -PORT # 168 -BYTE # 244 -PORT # 168 -BYTE # 245 -PORT # 168 -BYTE # 246 -PORT # 168 -BYTE # 247 -PORT # 168 -BYTE # 248 -PORT # 168 -BYTE # 249 -PORT # 168 -BYTE # 250 -PORT # 168 -BYTE # 251 -PORT # 168 -BYTE # 252 -PORT # 168 -BYTE # 253 -PORT # 168 -BYTE # 254 -PORT # 168 -BYTE # 255 -PORT # 169 -BYTE # 0 -PORT # 169 -BYTE # 1 -PORT # 169 -BYTE # 2 -PORT # 169 -BYTE # 3 -PORT # 169 -BYTE # 4 -PORT # 169 -BYTE # 5 -PORT # 169 -BYTE # 6 -PORT # 169 -BYTE # 7 -PORT # 169 -BYTE # 8 -PORT # 169 -BYTE # 9 -PORT # 169 -BYTE # 10 -PORT # 169 -BYTE # 11 -PORT # 169 -BYTE # 12 -PORT # 169 -BYTE # 13 -PORT # 169 -BYTE # 14 -PORT # 169 -BYTE # 15 -PORT # 169 -BYTE # 16 -PORT # 169 -BYTE # 17 -PORT # 169 -BYTE # 18 -PORT # 169 -BYTE # 19 -PORT # 169 -BYTE # 20 -PORT # 169 -BYTE # 21 -PORT # 169 -BYTE # 22 -PORT # 169 -BYTE # 23 -PORT # 169 -BYTE # 24 -PORT # 169 -BYTE # 25 -PORT # 169 -BYTE # 26 -PORT # 169 -BYTE # 27 -PORT # 169 -BYTE # 28 -PORT # 169 -BYTE # 29 -PORT # 169 -BYTE # 30 -PORT # 169 -BYTE # 31 -PORT # 169 -BYTE # 32 -PORT # 169 -BYTE # 33 -PORT # 169 -BYTE # 34 -PORT # 169 -BYTE # 35 -PORT # 169 -BYTE # 36 -PORT # 169 -BYTE # 37 -PORT # 169 -BYTE # 38 -PORT # 169 -BYTE # 39 -PORT # 169 -BYTE # 40 -PORT # 169 -BYTE # 41 -PORT # 169 -BYTE # 42 -PORT # 169 -BYTE # 43 -PORT # 169 -BYTE # 44 -PORT # 169 -BYTE # 45 -PORT # 169 -BYTE # 46 -PORT # 169 -BYTE # 47 -PORT # 169 -BYTE # 48 -PORT # 169 -BYTE # 49 -PORT # 169 -BYTE # 50 -PORT # 169 -BYTE # 51 -PORT # 169 -BYTE # 52 -PORT # 169 -BYTE # 53 -PORT # 169 -BYTE # 54 -PORT # 169 -BYTE # 55 -PORT # 169 -BYTE # 56 -PORT # 169 -BYTE # 57 -PORT # 169 -BYTE # 58 -PORT # 169 -BYTE # 59 -PORT # 169 -BYTE # 60 -PORT # 169 -BYTE # 61 -PORT # 169 -BYTE # 62 -PORT # 169 -BYTE # 63 -PORT # 169 -BYTE # 64 -PORT # 169 -BYTE # 65 -PORT # 169 -BYTE # 66 -PORT # 169 -BYTE # 67 -PORT # 169 -BYTE # 68 -PORT # 169 -BYTE # 69 -PORT # 169 -BYTE # 70 -PORT # 169 -BYTE # 71 -PORT # 169 -BYTE # 72 -PORT # 169 -BYTE # 73 -PORT # 169 -BYTE # 74 -PORT # 169 -BYTE # 75 -PORT # 169 -BYTE # 76 -PORT # 169 -BYTE # 77 -PORT # 169 -BYTE # 78 -PORT # 169 -BYTE # 79 -PORT # 169 -BYTE # 80 -PORT # 169 -BYTE # 81 -PORT # 169 -BYTE # 82 -PORT # 169 -BYTE # 83 -PORT # 169 -BYTE # 84 -PORT # 169 -BYTE # 85 -PORT # 169 -BYTE # 86 -PORT # 169 -BYTE # 87 -PORT # 169 -BYTE # 88 -PORT # 169 -BYTE # 89 -PORT # 169 -BYTE # 90 -PORT # 169 -BYTE # 91 -PORT # 169 -BYTE # 92 -PORT # 169 -BYTE # 93 -PORT # 169 -BYTE # 94 -PORT # 169 -BYTE # 95 -PORT # 169 -BYTE # 96 -PORT # 169 -BYTE # 97 -PORT # 169 -BYTE # 98 -PORT # 169 -BYTE # 99 -PORT # 169 -BYTE # 100 -PORT # 169 -BYTE # 101 -PORT # 169 -BYTE # 102 -PORT # 169 -BYTE # 103 -PORT # 169 -BYTE # 104 -PORT # 169 -BYTE # 105 -PORT # 169 -BYTE # 106 -PORT # 169 -BYTE # 107 -PORT # 169 -BYTE # 108 -PORT # 169 -BYTE # 109 -PORT # 169 -BYTE # 110 -PORT # 169 -BYTE # 111 -PORT # 169 -BYTE # 112 -PORT # 169 -BYTE # 113 -PORT # 169 -BYTE # 114 -PORT # 169 -BYTE # 115 -PORT # 169 -BYTE # 116 -PORT # 169 -BYTE # 117 -PORT # 169 -BYTE # 118 -PORT # 169 -BYTE # 119 -PORT # 169 -BYTE # 120 -PORT # 169 -BYTE # 121 -PORT # 169 -BYTE # 122 -PORT # 169 -BYTE # 123 -PORT # 169 -BYTE # 124 -PORT # 169 -BYTE # 125 -PORT # 169 -BYTE # 126 -PORT # 169 -BYTE # 127 -PORT # 169 -BYTE # 128 -PORT # 169 -BYTE # 129 -PORT # 169 -BYTE # 130 -PORT # 169 -BYTE # 131 -PORT # 169 -BYTE # 132 -PORT # 169 -BYTE # 133 -PORT # 169 -BYTE # 134 -PORT # 169 -BYTE # 135 -PORT # 169 -BYTE # 136 -PORT # 169 -BYTE # 137 -PORT # 169 -BYTE # 138 -PORT # 169 -BYTE # 139 -PORT # 169 -BYTE # 140 -PORT # 169 -BYTE # 141 -PORT # 169 -BYTE # 142 -PORT # 169 -BYTE # 143 -PORT # 169 -BYTE # 144 -PORT # 169 -BYTE # 145 -PORT # 169 -BYTE # 146 -PORT # 169 -BYTE # 147 -PORT # 169 -BYTE # 148 -PORT # 169 -BYTE # 149 -PORT # 169 -BYTE # 150 -PORT # 169 -BYTE # 151 -PORT # 169 -BYTE # 152 -PORT # 169 -BYTE # 153 -PORT # 169 -BYTE # 154 -PORT # 169 -BYTE # 155 -PORT # 169 -BYTE # 156 -PORT # 169 -BYTE # 157 -PORT # 169 -BYTE # 158 -PORT # 169 -BYTE # 159 -PORT # 169 -BYTE # 160 -PORT # 169 -BYTE # 161 -PORT # 169 -BYTE # 162 -PORT # 169 -BYTE # 163 -PORT # 169 -BYTE # 164 -PORT # 169 -BYTE # 165 -PORT # 169 -BYTE # 166 -PORT # 169 -BYTE # 167 -PORT # 169 -BYTE # 168 -PORT # 169 -BYTE # 169 -PORT # 169 -BYTE # 170 -PORT # 169 -BYTE # 171 -PORT # 169 -BYTE # 172 -PORT # 169 -BYTE # 173 -PORT # 169 -BYTE # 174 -PORT # 169 -BYTE # 175 -PORT # 169 -BYTE # 176 -PORT # 169 -BYTE # 177 -PORT # 169 -BYTE # 178 -PORT # 169 -BYTE # 179 -PORT # 169 -BYTE # 180 -PORT # 169 -BYTE # 181 -PORT # 169 -BYTE # 182 -PORT # 169 -BYTE # 183 -PORT # 169 -BYTE # 184 -PORT # 169 -BYTE # 185 -PORT # 169 -BYTE # 186 -PORT # 169 -BYTE # 187 -PORT # 169 -BYTE # 188 -PORT # 169 -BYTE # 189 -PORT # 169 -BYTE # 190 -PORT # 169 -BYTE # 191 -PORT # 169 -BYTE # 192 -PORT # 169 -BYTE # 193 -PORT # 169 -BYTE # 194 -PORT # 169 -BYTE # 195 -PORT # 169 -BYTE # 196 -PORT # 169 -BYTE # 197 -PORT # 169 -BYTE # 198 -PORT # 169 -BYTE # 199 -PORT # 169 -BYTE # 200 -PORT # 169 -BYTE # 201 -PORT # 169 -BYTE # 202 -PORT # 169 -BYTE # 203 -PORT # 169 -BYTE # 204 -PORT # 169 -BYTE # 205 -PORT # 169 -BYTE # 206 -PORT # 169 -BYTE # 207 -PORT # 169 -BYTE # 208 -PORT # 169 -BYTE # 209 -PORT # 169 -BYTE # 210 -PORT # 169 -BYTE # 211 -PORT # 169 -BYTE # 212 -PORT # 169 -BYTE # 213 -PORT # 169 -BYTE # 214 -PORT # 169 -BYTE # 215 -PORT # 169 -BYTE # 216 -PORT # 169 -BYTE # 217 -PORT # 169 -BYTE # 218 -PORT # 169 -BYTE # 219 -PORT # 169 -BYTE # 220 -PORT # 169 -BYTE # 221 -PORT # 169 -BYTE # 222 -PORT # 169 -BYTE # 223 -PORT # 169 -BYTE # 224 -PORT # 169 -BYTE # 225 -PORT # 169 -BYTE # 226 -PORT # 169 -BYTE # 227 -PORT # 169 -BYTE # 228 -PORT # 169 -BYTE # 229 -PORT # 169 -BYTE # 230 -PORT # 169 -BYTE # 231 -PORT # 169 -BYTE # 232 -PORT # 169 -BYTE # 233 -PORT # 169 -BYTE # 234 -PORT # 169 -BYTE # 235 -PORT # 169 -BYTE # 236 -PORT # 169 -BYTE # 237 -PORT # 169 -BYTE # 238 -PORT # 169 -BYTE # 239 -PORT # 169 -BYTE # 240 -PORT # 169 -BYTE # 241 -PORT # 169 -BYTE # 242 -PORT # 169 -BYTE # 243 -PORT # 169 -BYTE # 244 -PORT # 169 -BYTE # 245 -PORT # 169 -BYTE # 246 -PORT # 169 -BYTE # 247 -PORT # 169 -BYTE # 248 -PORT # 169 -BYTE # 249 -PORT # 169 -BYTE # 250 -PORT # 169 -BYTE # 251 -PORT # 169 -BYTE # 252 -PORT # 169 -BYTE # 253 -PORT # 169 -BYTE # 254 -PORT # 169 -BYTE # 255 -PORT # 170 -BYTE # 0 -PORT # 170 -BYTE # 1 -PORT # 170 -BYTE # 2 -PORT # 170 -BYTE # 3 -PORT # 170 -BYTE # 4 -PORT # 170 -BYTE # 5 -PORT # 170 -BYTE # 6 -PORT # 170 -BYTE # 7 -PORT # 170 -BYTE # 8 -PORT # 170 -BYTE # 9 -PORT # 170 -BYTE # 10 -PORT # 170 -BYTE # 11 -PORT # 170 -BYTE # 12 -PORT # 170 -BYTE # 13 -PORT # 170 -BYTE # 14 -PORT # 170 -BYTE # 15 -PORT # 170 -BYTE # 16 -PORT # 170 -BYTE # 17 -PORT # 170 -BYTE # 18 -PORT # 170 -BYTE # 19 -PORT # 170 -BYTE # 20 -PORT # 170 -BYTE # 21 -PORT # 170 -BYTE # 22 -PORT # 170 -BYTE # 23 -PORT # 170 -BYTE # 24 -PORT # 170 -BYTE # 25 -PORT # 170 -BYTE # 26 -PORT # 170 -BYTE # 27 -PORT # 170 -BYTE # 28 -PORT # 170 -BYTE # 29 -PORT # 170 -BYTE # 30 -PORT # 170 -BYTE # 31 -PORT # 170 -BYTE # 32 -PORT # 170 -BYTE # 33 -PORT # 170 -BYTE # 34 -PORT # 170 -BYTE # 35 -PORT # 170 -BYTE # 36 -PORT # 170 -BYTE # 37 -PORT # 170 -BYTE # 38 -PORT # 170 -BYTE # 39 -PORT # 170 -BYTE # 40 -PORT # 170 -BYTE # 41 -PORT # 170 -BYTE # 42 -PORT # 170 -BYTE # 43 -PORT # 170 -BYTE # 44 -PORT # 170 -BYTE # 45 -PORT # 170 -BYTE # 46 -PORT # 170 -BYTE # 47 -PORT # 170 -BYTE # 48 -PORT # 170 -BYTE # 49 -PORT # 170 -BYTE # 50 -PORT # 170 -BYTE # 51 -PORT # 170 -BYTE # 52 -PORT # 170 -BYTE # 53 -PORT # 170 -BYTE # 54 -PORT # 170 -BYTE # 55 -PORT # 170 -BYTE # 56 -PORT # 170 -BYTE # 57 -PORT # 170 -BYTE # 58 -PORT # 170 -BYTE # 59 -PORT # 170 -BYTE # 60 -PORT # 170 -BYTE # 61 -PORT # 170 -BYTE # 62 -PORT # 170 -BYTE # 63 -PORT # 170 -BYTE # 64 -PORT # 170 -BYTE # 65 -PORT # 170 -BYTE # 66 -PORT # 170 -BYTE # 67 -PORT # 170 -BYTE # 68 -PORT # 170 -BYTE # 69 -PORT # 170 -BYTE # 70 -PORT # 170 -BYTE # 71 -PORT # 170 -BYTE # 72 -PORT # 170 -BYTE # 73 -PORT # 170 -BYTE # 74 -PORT # 170 -BYTE # 75 -PORT # 170 -BYTE # 76 -PORT # 170 -BYTE # 77 -PORT # 170 -BYTE # 78 -PORT # 170 -BYTE # 79 -PORT # 170 -BYTE # 80 -PORT # 170 -BYTE # 81 -PORT # 170 -BYTE # 82 -PORT # 170 -BYTE # 83 -PORT # 170 -BYTE # 84 -PORT # 170 -BYTE # 85 -PORT # 170 -BYTE # 86 -PORT # 170 -BYTE # 87 -PORT # 170 -BYTE # 88 -PORT # 170 -BYTE # 89 -PORT # 170 -BYTE # 90 -PORT # 170 -BYTE # 91 -PORT # 170 -BYTE # 92 -PORT # 170 -BYTE # 93 -PORT # 170 -BYTE # 94 -PORT # 170 -BYTE # 95 -PORT # 170 -BYTE # 96 -PORT # 170 -BYTE # 97 -PORT # 170 -BYTE # 98 -PORT # 170 -BYTE # 99 -PORT # 170 -BYTE # 100 -PORT # 170 -BYTE # 101 -PORT # 170 -BYTE # 102 -PORT # 170 -BYTE # 103 -PORT # 170 -BYTE # 104 -PORT # 170 -BYTE # 105 -PORT # 170 -BYTE # 106 -PORT # 170 -BYTE # 107 -PORT # 170 -BYTE # 108 -PORT # 170 -BYTE # 109 -PORT # 170 -BYTE # 110 -PORT # 170 -BYTE # 111 -PORT # 170 -BYTE # 112 -PORT # 170 -BYTE # 113 -PORT # 170 -BYTE # 114 -PORT # 170 -BYTE # 115 -PORT # 170 -BYTE # 116 -PORT # 170 -BYTE # 117 -PORT # 170 -BYTE # 118 -PORT # 170 -BYTE # 119 -PORT # 170 -BYTE # 120 -PORT # 170 -BYTE # 121 -PORT # 170 -BYTE # 122 -PORT # 170 -BYTE # 123 -PORT # 170 -BYTE # 124 -PORT # 170 -BYTE # 125 -PORT # 170 -BYTE # 126 -PORT # 170 -BYTE # 127 -PORT # 170 -BYTE # 128 -PORT # 170 -BYTE # 129 -PORT # 170 -BYTE # 130 -PORT # 170 -BYTE # 131 -PORT # 170 -BYTE # 132 -PORT # 170 -BYTE # 133 -PORT # 170 -BYTE # 134 -PORT # 170 -BYTE # 135 -PORT # 170 -BYTE # 136 -PORT # 170 -BYTE # 137 -PORT # 170 -BYTE # 138 -PORT # 170 -BYTE # 139 -PORT # 170 -BYTE # 140 -PORT # 170 -BYTE # 141 -PORT # 170 -BYTE # 142 -PORT # 170 -BYTE # 143 -PORT # 170 -BYTE # 144 -PORT # 170 -BYTE # 145 -PORT # 170 -BYTE # 146 -PORT # 170 -BYTE # 147 -PORT # 170 -BYTE # 148 -PORT # 170 -BYTE # 149 -PORT # 170 -BYTE # 150 -PORT # 170 -BYTE # 151 -PORT # 170 -BYTE # 152 -PORT # 170 -BYTE # 153 -PORT # 170 -BYTE # 154 -PORT # 170 -BYTE # 155 -PORT # 170 -BYTE # 156 -PORT # 170 -BYTE # 157 -PORT # 170 -BYTE # 158 -PORT # 170 -BYTE # 159 -PORT # 170 -BYTE # 160 -PORT # 170 -BYTE # 161 -PORT # 170 -BYTE # 162 -PORT # 170 -BYTE # 163 -PORT # 170 -BYTE # 164 -PORT # 170 -BYTE # 165 -PORT # 170 -BYTE # 166 -PORT # 170 -BYTE # 167 -PORT # 170 -BYTE # 168 -PORT # 170 -BYTE # 169 -PORT # 170 -BYTE # 170 -PORT # 170 -BYTE # 171 -PORT # 170 -BYTE # 172 -PORT # 170 -BYTE # 173 -PORT # 170 -BYTE # 174 -PORT # 170 -BYTE # 175 -PORT # 170 -BYTE # 176 -PORT # 170 -BYTE # 177 -PORT # 170 -BYTE # 178 -PORT # 170 -BYTE # 179 -PORT # 170 -BYTE # 180 -PORT # 170 -BYTE # 181 -PORT # 170 -BYTE # 182 -PORT # 170 -BYTE # 183 -PORT # 170 -BYTE # 184 -PORT # 170 -BYTE # 185 -PORT # 170 -BYTE # 186 -PORT # 170 -BYTE # 187 -PORT # 170 -BYTE # 188 -PORT # 170 -BYTE # 189 -PORT # 170 -BYTE # 190 -PORT # 170 -BYTE # 191 -PORT # 170 -BYTE # 192 -PORT # 170 -BYTE # 193 -PORT # 170 -BYTE # 194 -PORT # 170 -BYTE # 195 -PORT # 170 -BYTE # 196 -PORT # 170 -BYTE # 197 -PORT # 170 -BYTE # 198 -PORT # 170 -BYTE # 199 -PORT # 170 -BYTE # 200 -PORT # 170 -BYTE # 201 -PORT # 170 -BYTE # 202 -PORT # 170 -BYTE # 203 -PORT # 170 -BYTE # 204 -PORT # 170 -BYTE # 205 -PORT # 170 -BYTE # 206 -PORT # 170 -BYTE # 207 -PORT # 170 -BYTE # 208 -PORT # 170 -BYTE # 209 -PORT # 170 -BYTE # 210 -PORT # 170 -BYTE # 211 -PORT # 170 -BYTE # 212 -PORT # 170 -BYTE # 213 -PORT # 170 -BYTE # 214 -PORT # 170 -BYTE # 215 -PORT # 170 -BYTE # 216 -PORT # 170 -BYTE # 217 -PORT # 170 -BYTE # 218 -PORT # 170 -BYTE # 219 -PORT # 170 -BYTE # 220 -PORT # 170 -BYTE # 221 -PORT # 170 -BYTE # 222 -PORT # 170 -BYTE # 223 -PORT # 170 -BYTE # 224 -PORT # 170 -BYTE # 225 -PORT # 170 -BYTE # 226 -PORT # 170 -BYTE # 227 -PORT # 170 -BYTE # 228 -PORT # 170 -BYTE # 229 -PORT # 170 -BYTE # 230 -PORT # 170 -BYTE # 231 -PORT # 170 -BYTE # 232 -PORT # 170 -BYTE # 233 -PORT # 170 -BYTE # 234 -PORT # 170 -BYTE # 235 -PORT # 170 -BYTE # 236 -PORT # 170 -BYTE # 237 -PORT # 170 -BYTE # 238 -PORT # 170 -BYTE # 239 -PORT # 170 -BYTE # 240 -PORT # 170 -BYTE # 241 -PORT # 170 -BYTE # 242 -PORT # 170 -BYTE # 243 -PORT # 170 -BYTE # 244 -PORT # 170 -BYTE # 245 -PORT # 170 -BYTE # 246 -PORT # 170 -BYTE # 247 -PORT # 170 -BYTE # 248 -PORT # 170 -BYTE # 249 -PORT # 170 -BYTE # 250 -PORT # 170 -BYTE # 251 -PORT # 170 -BYTE # 252 -PORT # 170 -BYTE # 253 -PORT # 170 -BYTE # 254 -PORT # 170 -BYTE # 255 -PORT # 171 -BYTE # 0 -PORT # 171 -BYTE # 1 -PORT # 171 -BYTE # 2 -PORT # 171 -BYTE # 3 -PORT # 171 -BYTE # 4 -PORT # 171 -BYTE # 5 -PORT # 171 -BYTE # 6 -PORT # 171 -BYTE # 7 -PORT # 171 -BYTE # 8 -PORT # 171 -BYTE # 9 -PORT # 171 -BYTE # 10 -PORT # 171 -BYTE # 11 -PORT # 171 -BYTE # 12 -PORT # 171 -BYTE # 13 -PORT # 171 -BYTE # 14 -PORT # 171 -BYTE # 15 -PORT # 171 -BYTE # 16 -PORT # 171 -BYTE # 17 -PORT # 171 -BYTE # 18 -PORT # 171 -BYTE # 19 -PORT # 171 -BYTE # 20 -PORT # 171 -BYTE # 21 -PORT # 171 -BYTE # 22 -PORT # 171 -BYTE # 23 -PORT # 171 -BYTE # 24 -PORT # 171 -BYTE # 25 -PORT # 171 -BYTE # 26 -PORT # 171 -BYTE # 27 -PORT # 171 -BYTE # 28 -PORT # 171 -BYTE # 29 -PORT # 171 -BYTE # 30 -PORT # 171 -BYTE # 31 -PORT # 171 -BYTE # 32 -PORT # 171 -BYTE # 33 -PORT # 171 -BYTE # 34 -PORT # 171 -BYTE # 35 -PORT # 171 -BYTE # 36 -PORT # 171 -BYTE # 37 -PORT # 171 -BYTE # 38 -PORT # 171 -BYTE # 39 -PORT # 171 -BYTE # 40 -PORT # 171 -BYTE # 41 -PORT # 171 -BYTE # 42 -PORT # 171 -BYTE # 43 -PORT # 171 -BYTE # 44 -PORT # 171 -BYTE # 45 -PORT # 171 -BYTE # 46 -PORT # 171 -BYTE # 47 -PORT # 171 -BYTE # 48 -PORT # 171 -BYTE # 49 -PORT # 171 -BYTE # 50 -PORT # 171 -BYTE # 51 -PORT # 171 -BYTE # 52 -PORT # 171 -BYTE # 53 -PORT # 171 -BYTE # 54 -PORT # 171 -BYTE # 55 -PORT # 171 -BYTE # 56 -PORT # 171 -BYTE # 57 -PORT # 171 -BYTE # 58 -PORT # 171 -BYTE # 59 -PORT # 171 -BYTE # 60 -PORT # 171 -BYTE # 61 -PORT # 171 -BYTE # 62 -PORT # 171 -BYTE # 63 -PORT # 171 -BYTE # 64 -PORT # 171 -BYTE # 65 -PORT # 171 -BYTE # 66 -PORT # 171 -BYTE # 67 -PORT # 171 -BYTE # 68 -PORT # 171 -BYTE # 69 -PORT # 171 -BYTE # 70 -PORT # 171 -BYTE # 71 -PORT # 171 -BYTE # 72 -PORT # 171 -BYTE # 73 -PORT # 171 -BYTE # 74 -PORT # 171 -BYTE # 75 -PORT # 171 -BYTE # 76 -PORT # 171 -BYTE # 77 -PORT # 171 -BYTE # 78 -PORT # 171 -BYTE # 79 -PORT # 171 -BYTE # 80 -PORT # 171 -BYTE # 81 -PORT # 171 -BYTE # 82 -PORT # 171 -BYTE # 83 -PORT # 171 -BYTE # 84 -PORT # 171 -BYTE # 85 -PORT # 171 -BYTE # 86 -PORT # 171 -BYTE # 87 -PORT # 171 -BYTE # 88 -PORT # 171 -BYTE # 89 -PORT # 171 -BYTE # 90 -PORT # 171 -BYTE # 91 -PORT # 171 -BYTE # 92 -PORT # 171 -BYTE # 93 -PORT # 171 -BYTE # 94 -PORT # 171 -BYTE # 95 -PORT # 171 -BYTE # 96 -PORT # 171 -BYTE # 97 -PORT # 171 -BYTE # 98 -PORT # 171 -BYTE # 99 -PORT # 171 -BYTE # 100 -PORT # 171 -BYTE # 101 -PORT # 171 -BYTE # 102 -PORT # 171 -BYTE # 103 -PORT # 171 -BYTE # 104 -PORT # 171 -BYTE # 105 -PORT # 171 -BYTE # 106 -PORT # 171 -BYTE # 107 -PORT # 171 -BYTE # 108 -PORT # 171 -BYTE # 109 -PORT # 171 -BYTE # 110 -PORT # 171 -BYTE # 111 -PORT # 171 -BYTE # 112 -PORT # 171 -BYTE # 113 -PORT # 171 -BYTE # 114 -PORT # 171 -BYTE # 115 -PORT # 171 -BYTE # 116 -PORT # 171 -BYTE # 117 -PORT # 171 -BYTE # 118 -PORT # 171 -BYTE # 119 -PORT # 171 -BYTE # 120 -PORT # 171 -BYTE # 121 -PORT # 171 -BYTE # 122 -PORT # 171 -BYTE # 123 -PORT # 171 -BYTE # 124 -PORT # 171 -BYTE # 125 -PORT # 171 -BYTE # 126 -PORT # 171 -BYTE # 127 -PORT # 171 -BYTE # 128 -PORT # 171 -BYTE # 129 -PORT # 171 -BYTE # 130 -PORT # 171 -BYTE # 131 -PORT # 171 -BYTE # 132 -PORT # 171 -BYTE # 133 -PORT # 171 -BYTE # 134 -PORT # 171 -BYTE # 135 -PORT # 171 -BYTE # 136 -PORT # 171 -BYTE # 137 -PORT # 171 -BYTE # 138 -PORT # 171 -BYTE # 139 -PORT # 171 -BYTE # 140 -PORT # 171 -BYTE # 141 -PORT # 171 -BYTE # 142 -PORT # 171 -BYTE # 143 -PORT # 171 -BYTE # 144 -PORT # 171 -BYTE # 145 -PORT # 171 -BYTE # 146 -PORT # 171 -BYTE # 147 -PORT # 171 -BYTE # 148 -PORT # 171 -BYTE # 149 -PORT # 171 -BYTE # 150 -PORT # 171 -BYTE # 151 -PORT # 171 -BYTE # 152 -PORT # 171 -BYTE # 153 -PORT # 171 -BYTE # 154 -PORT # 171 -BYTE # 155 -PORT # 171 -BYTE # 156 -PORT # 171 -BYTE # 157 -PORT # 171 -BYTE # 158 -PORT # 171 -BYTE # 159 -PORT # 171 -BYTE # 160 -PORT # 171 -BYTE # 161 -PORT # 171 -BYTE # 162 -PORT # 171 -BYTE # 163 -PORT # 171 -BYTE # 164 -PORT # 171 -BYTE # 165 -PORT # 171 -BYTE # 166 -PORT # 171 -BYTE # 167 -PORT # 171 -BYTE # 168 -PORT # 171 -BYTE # 169 -PORT # 171 -BYTE # 170 -PORT # 171 -BYTE # 171 -PORT # 171 -BYTE # 172 -PORT # 171 -BYTE # 173 -PORT # 171 -BYTE # 174 -PORT # 171 -BYTE # 175 -PORT # 171 -BYTE # 176 -PORT # 171 -BYTE # 177 -PORT # 171 -BYTE # 178 -PORT # 171 -BYTE # 179 -PORT # 171 -BYTE # 180 -PORT # 171 -BYTE # 181 -PORT # 171 -BYTE # 182 -PORT # 171 -BYTE # 183 -PORT # 171 -BYTE # 184 -PORT # 171 -BYTE # 185 -PORT # 171 -BYTE # 186 -PORT # 171 -BYTE # 187 -PORT # 171 -BYTE # 188 -PORT # 171 -BYTE # 189 -PORT # 171 -BYTE # 190 -PORT # 171 -BYTE # 191 -PORT # 171 -BYTE # 192 -PORT # 171 -BYTE # 193 -PORT # 171 -BYTE # 194 -PORT # 171 -BYTE # 195 -PORT # 171 -BYTE # 196 -PORT # 171 -BYTE # 197 -PORT # 171 -BYTE # 198 -PORT # 171 -BYTE # 199 -PORT # 171 -BYTE # 200 -PORT # 171 -BYTE # 201 -PORT # 171 -BYTE # 202 -PORT # 171 -BYTE # 203 -PORT # 171 -BYTE # 204 -PORT # 171 -BYTE # 205 -PORT # 171 -BYTE # 206 -PORT # 171 -BYTE # 207 -PORT # 171 -BYTE # 208 -PORT # 171 -BYTE # 209 -PORT # 171 -BYTE # 210 -PORT # 171 -BYTE # 211 -PORT # 171 -BYTE # 212 -PORT # 171 -BYTE # 213 -PORT # 171 -BYTE # 214 -PORT # 171 -BYTE # 215 -PORT # 171 -BYTE # 216 -PORT # 171 -BYTE # 217 -PORT # 171 -BYTE # 218 -PORT # 171 -BYTE # 219 -PORT # 171 -BYTE # 220 -PORT # 171 -BYTE # 221 -PORT # 171 -BYTE # 222 -PORT # 171 -BYTE # 223 -PORT # 171 -BYTE # 224 -PORT # 171 -BYTE # 225 -PORT # 171 -BYTE # 226 -PORT # 171 -BYTE # 227 -PORT # 171 -BYTE # 228 -PORT # 171 -BYTE # 229 -PORT # 171 -BYTE # 230 -PORT # 171 -BYTE # 231 -PORT # 171 -BYTE # 232 -PORT # 171 -BYTE # 233 -PORT # 171 -BYTE # 234 -PORT # 171 -BYTE # 235 -PORT # 171 -BYTE # 236 -PORT # 171 -BYTE # 237 -PORT # 171 -BYTE # 238 -PORT # 171 -BYTE # 239 -PORT # 171 -BYTE # 240 -PORT # 171 -BYTE # 241 -PORT # 171 -BYTE # 242 -PORT # 171 -BYTE # 243 -PORT # 171 -BYTE # 244 -PORT # 171 -BYTE # 245 -PORT # 171 -BYTE # 246 -PORT # 171 -BYTE # 247 -PORT # 171 -BYTE # 248 -PORT # 171 -BYTE # 249 -PORT # 171 -BYTE # 250 -PORT # 171 -BYTE # 251 -PORT # 171 -BYTE # 252 -PORT # 171 -BYTE # 253 -PORT # 171 -BYTE # 254 -PORT # 171 -BYTE # 255 -PORT # 172 -BYTE # 0 -PORT # 172 -BYTE # 1 -PORT # 172 -BYTE # 2 -PORT # 172 -BYTE # 3 -PORT # 172 -BYTE # 4 -PORT # 172 -BYTE # 5 -PORT # 172 -BYTE # 6 -PORT # 172 -BYTE # 7 -PORT # 172 -BYTE # 8 -PORT # 172 -BYTE # 9 -PORT # 172 -BYTE # 10 -PORT # 172 -BYTE # 11 -PORT # 172 -BYTE # 12 -PORT # 172 -BYTE # 13 -PORT # 172 -BYTE # 14 -PORT # 172 -BYTE # 15 -PORT # 172 -BYTE # 16 -PORT # 172 -BYTE # 17 -PORT # 172 -BYTE # 18 -PORT # 172 -BYTE # 19 -PORT # 172 -BYTE # 20 -PORT # 172 -BYTE # 21 -PORT # 172 -BYTE # 22 -PORT # 172 -BYTE # 23 -PORT # 172 -BYTE # 24 -PORT # 172 -BYTE # 25 -PORT # 172 -BYTE # 26 -PORT # 172 -BYTE # 27 -PORT # 172 -BYTE # 28 -PORT # 172 -BYTE # 29 -PORT # 172 -BYTE # 30 -PORT # 172 -BYTE # 31 -PORT # 172 -BYTE # 32 -PORT # 172 -BYTE # 33 -PORT # 172 -BYTE # 34 -PORT # 172 -BYTE # 35 -PORT # 172 -BYTE # 36 -PORT # 172 -BYTE # 37 -PORT # 172 -BYTE # 38 -PORT # 172 -BYTE # 39 -PORT # 172 -BYTE # 40 -PORT # 172 -BYTE # 41 -PORT # 172 -BYTE # 42 -PORT # 172 -BYTE # 43 -PORT # 172 -BYTE # 44 -PORT # 172 -BYTE # 45 -PORT # 172 -BYTE # 46 -PORT # 172 -BYTE # 47 -PORT # 172 -BYTE # 48 -PORT # 172 -BYTE # 49 -PORT # 172 -BYTE # 50 -PORT # 172 -BYTE # 51 -PORT # 172 -BYTE # 52 -PORT # 172 -BYTE # 53 -PORT # 172 -BYTE # 54 -PORT # 172 -BYTE # 55 -PORT # 172 -BYTE # 56 -PORT # 172 -BYTE # 57 -PORT # 172 -BYTE # 58 -PORT # 172 -BYTE # 59 -PORT # 172 -BYTE # 60 -PORT # 172 -BYTE # 61 -PORT # 172 -BYTE # 62 -PORT # 172 -BYTE # 63 -PORT # 172 -BYTE # 64 -PORT # 172 -BYTE # 65 -PORT # 172 -BYTE # 66 -PORT # 172 -BYTE # 67 -PORT # 172 -BYTE # 68 -PORT # 172 -BYTE # 69 -PORT # 172 -BYTE # 70 -PORT # 172 -BYTE # 71 -PORT # 172 -BYTE # 72 -PORT # 172 -BYTE # 73 -PORT # 172 -BYTE # 74 -PORT # 172 -BYTE # 75 -PORT # 172 -BYTE # 76 -PORT # 172 -BYTE # 77 -PORT # 172 -BYTE # 78 -PORT # 172 -BYTE # 79 -PORT # 172 -BYTE # 80 -PORT # 172 -BYTE # 81 -PORT # 172 -BYTE # 82 -PORT # 172 -BYTE # 83 -PORT # 172 -BYTE # 84 -PORT # 172 -BYTE # 85 -PORT # 172 -BYTE # 86 -PORT # 172 -BYTE # 87 -PORT # 172 -BYTE # 88 -PORT # 172 -BYTE # 89 -PORT # 172 -BYTE # 90 -PORT # 172 -BYTE # 91 -PORT # 172 -BYTE # 92 -PORT # 172 -BYTE # 93 -PORT # 172 -BYTE # 94 -PORT # 172 -BYTE # 95 -PORT # 172 -BYTE # 96 -PORT # 172 -BYTE # 97 -PORT # 172 -BYTE # 98 -PORT # 172 -BYTE # 99 -PORT # 172 -BYTE # 100 -PORT # 172 -BYTE # 101 -PORT # 172 -BYTE # 102 -PORT # 172 -BYTE # 103 -PORT # 172 -BYTE # 104 -PORT # 172 -BYTE # 105 -PORT # 172 -BYTE # 106 -PORT # 172 -BYTE # 107 -PORT # 172 -BYTE # 108 -PORT # 172 -BYTE # 109 -PORT # 172 -BYTE # 110 -PORT # 172 -BYTE # 111 -PORT # 172 -BYTE # 112 -PORT # 172 -BYTE # 113 -PORT # 172 -BYTE # 114 -PORT # 172 -BYTE # 115 -PORT # 172 -BYTE # 116 -PORT # 172 -BYTE # 117 -PORT # 172 -BYTE # 118 -PORT # 172 -BYTE # 119 -PORT # 172 -BYTE # 120 -PORT # 172 -BYTE # 121 -PORT # 172 -BYTE # 122 -PORT # 172 -BYTE # 123 -PORT # 172 -BYTE # 124 -PORT # 172 -BYTE # 125 -PORT # 172 -BYTE # 126 -PORT # 172 -BYTE # 127 -PORT # 172 -BYTE # 128 -PORT # 172 -BYTE # 129 -PORT # 172 -BYTE # 130 -PORT # 172 -BYTE # 131 -PORT # 172 -BYTE # 132 -PORT # 172 -BYTE # 133 -PORT # 172 -BYTE # 134 -PORT # 172 -BYTE # 135 -PORT # 172 -BYTE # 136 -PORT # 172 -BYTE # 137 -PORT # 172 -BYTE # 138 -PORT # 172 -BYTE # 139 -PORT # 172 -BYTE # 140 -PORT # 172 -BYTE # 141 -PORT # 172 -BYTE # 142 -PORT # 172 -BYTE # 143 -PORT # 172 -BYTE # 144 -PORT # 172 -BYTE # 145 -PORT # 172 -BYTE # 146 -PORT # 172 -BYTE # 147 -PORT # 172 -BYTE # 148 -PORT # 172 -BYTE # 149 -PORT # 172 -BYTE # 150 -PORT # 172 -BYTE # 151 -PORT # 172 -BYTE # 152 -PORT # 172 -BYTE # 153 -PORT # 172 -BYTE # 154 -PORT # 172 -BYTE # 155 -PORT # 172 -BYTE # 156 -PORT # 172 -BYTE # 157 -PORT # 172 -BYTE # 158 -PORT # 172 -BYTE # 159 -PORT # 172 -BYTE # 160 -PORT # 172 -BYTE # 161 -PORT # 172 -BYTE # 162 -PORT # 172 -BYTE # 163 -PORT # 172 -BYTE # 164 -PORT # 172 -BYTE # 165 -PORT # 172 -BYTE # 166 -PORT # 172 -BYTE # 167 -PORT # 172 -BYTE # 168 -PORT # 172 -BYTE # 169 -PORT # 172 -BYTE # 170 -PORT # 172 -BYTE # 171 -PORT # 172 -BYTE # 172 -PORT # 172 -BYTE # 173 -PORT # 172 -BYTE # 174 -PORT # 172 -BYTE # 175 -PORT # 172 -BYTE # 176 -PORT # 172 -BYTE # 177 -PORT # 172 -BYTE # 178 -PORT # 172 -BYTE # 179 -PORT # 172 -BYTE # 180 -PORT # 172 -BYTE # 181 -PORT # 172 -BYTE # 182 -PORT # 172 -BYTE # 183 -PORT # 172 -BYTE # 184 -PORT # 172 -BYTE # 185 -PORT # 172 -BYTE # 186 -PORT # 172 -BYTE # 187 -PORT # 172 -BYTE # 188 -PORT # 172 -BYTE # 189 -PORT # 172 -BYTE # 190 -PORT # 172 -BYTE # 191 -PORT # 172 -BYTE # 192 -PORT # 172 -BYTE # 193 -PORT # 172 -BYTE # 194 -PORT # 172 -BYTE # 195 -PORT # 172 -BYTE # 196 -PORT # 172 -BYTE # 197 -PORT # 172 -BYTE # 198 -PORT # 172 -BYTE # 199 -PORT # 172 -BYTE # 200 -PORT # 172 -BYTE # 201 -PORT # 172 -BYTE # 202 -PORT # 172 -BYTE # 203 -PORT # 172 -BYTE # 204 -PORT # 172 -BYTE # 205 -PORT # 172 -BYTE # 206 -PORT # 172 -BYTE # 207 -PORT # 172 -BYTE # 208 -PORT # 172 -BYTE # 209 -PORT # 172 -BYTE # 210 -PORT # 172 -BYTE # 211 -PORT # 172 -BYTE # 212 -PORT # 172 -BYTE # 213 -PORT # 172 -BYTE # 214 -PORT # 172 -BYTE # 215 -PORT # 172 -BYTE # 216 -PORT # 172 -BYTE # 217 -PORT # 172 -BYTE # 218 -PORT # 172 -BYTE # 219 -PORT # 172 -BYTE # 220 -PORT # 172 -BYTE # 221 -PORT # 172 -BYTE # 222 -PORT # 172 -BYTE # 223 -PORT # 172 -BYTE # 224 -PORT # 172 -BYTE # 225 -PORT # 172 -BYTE # 226 -PORT # 172 -BYTE # 227 -PORT # 172 -BYTE # 228 -PORT # 172 -BYTE # 229 -PORT # 172 -BYTE # 230 -PORT # 172 -BYTE # 231 -PORT # 172 -BYTE # 232 -PORT # 172 -BYTE # 233 -PORT # 172 -BYTE # 234 -PORT # 172 -BYTE # 235 -PORT # 172 -BYTE # 236 -PORT # 172 -BYTE # 237 -PORT # 172 -BYTE # 238 -PORT # 172 -BYTE # 239 -PORT # 172 -BYTE # 240 -PORT # 172 -BYTE # 241 -PORT # 172 -BYTE # 242 -PORT # 172 -BYTE # 243 -PORT # 172 -BYTE # 244 -PORT # 172 -BYTE # 245 -PORT # 172 -BYTE # 246 -PORT # 172 -BYTE # 247 -PORT # 172 -BYTE # 248 -PORT # 172 -BYTE # 249 -PORT # 172 -BYTE # 250 -PORT # 172 -BYTE # 251 -PORT # 172 -BYTE # 252 -PORT # 172 -BYTE # 253 -PORT # 172 -BYTE # 254 -PORT # 172 -BYTE # 255 -PORT # 173 -BYTE # 0 -PORT # 173 -BYTE # 1 -PORT # 173 -BYTE # 2 -PORT # 173 -BYTE # 3 -PORT # 173 -BYTE # 4 -PORT # 173 -BYTE # 5 -PORT # 173 -BYTE # 6 -PORT # 173 -BYTE # 7 -PORT # 173 -BYTE # 8 -PORT # 173 -BYTE # 9 -PORT # 173 -BYTE # 10 -PORT # 173 -BYTE # 11 -PORT # 173 -BYTE # 12 -PORT # 173 -BYTE # 13 -PORT # 173 -BYTE # 14 -PORT # 173 -BYTE # 15 -PORT # 173 -BYTE # 16 -PORT # 173 -BYTE # 17 -PORT # 173 -BYTE # 18 -PORT # 173 -BYTE # 19 -PORT # 173 -BYTE # 20 -PORT # 173 -BYTE # 21 -PORT # 173 -BYTE # 22 -PORT # 173 -BYTE # 23 -PORT # 173 -BYTE # 24 -PORT # 173 -BYTE # 25 -PORT # 173 -BYTE # 26 -PORT # 173 -BYTE # 27 -PORT # 173 -BYTE # 28 -PORT # 173 -BYTE # 29 -PORT # 173 -BYTE # 30 -PORT # 173 -BYTE # 31 -PORT # 173 -BYTE # 32 -PORT # 173 -BYTE # 33 -PORT # 173 -BYTE # 34 -PORT # 173 -BYTE # 35 -PORT # 173 -BYTE # 36 -PORT # 173 -BYTE # 37 -PORT # 173 -BYTE # 38 -PORT # 173 -BYTE # 39 -PORT # 173 -BYTE # 40 -PORT # 173 -BYTE # 41 -PORT # 173 -BYTE # 42 -PORT # 173 -BYTE # 43 -PORT # 173 -BYTE # 44 -PORT # 173 -BYTE # 45 -PORT # 173 -BYTE # 46 -PORT # 173 -BYTE # 47 -PORT # 173 -BYTE # 48 -PORT # 173 -BYTE # 49 -PORT # 173 -BYTE # 50 -PORT # 173 -BYTE # 51 -PORT # 173 -BYTE # 52 -PORT # 173 -BYTE # 53 -PORT # 173 -BYTE # 54 -PORT # 173 -BYTE # 55 -PORT # 173 -BYTE # 56 -PORT # 173 -BYTE # 57 -PORT # 173 -BYTE # 58 -PORT # 173 -BYTE # 59 -PORT # 173 -BYTE # 60 -PORT # 173 -BYTE # 61 -PORT # 173 -BYTE # 62 -PORT # 173 -BYTE # 63 -PORT # 173 -BYTE # 64 -PORT # 173 -BYTE # 65 -PORT # 173 -BYTE # 66 -PORT # 173 -BYTE # 67 -PORT # 173 -BYTE # 68 -PORT # 173 -BYTE # 69 -PORT # 173 -BYTE # 70 -PORT # 173 -BYTE # 71 -PORT # 173 -BYTE # 72 -PORT # 173 -BYTE # 73 -PORT # 173 -BYTE # 74 -PORT # 173 -BYTE # 75 -PORT # 173 -BYTE # 76 -PORT # 173 -BYTE # 77 -PORT # 173 -BYTE # 78 -PORT # 173 -BYTE # 79 -PORT # 173 -BYTE # 80 -PORT # 173 -BYTE # 81 -PORT # 173 -BYTE # 82 -PORT # 173 -BYTE # 83 -PORT # 173 -BYTE # 84 -PORT # 173 -BYTE # 85 -PORT # 173 -BYTE # 86 -PORT # 173 -BYTE # 87 -PORT # 173 -BYTE # 88 -PORT # 173 -BYTE # 89 -PORT # 173 -BYTE # 90 -PORT # 173 -BYTE # 91 -PORT # 173 -BYTE # 92 -PORT # 173 -BYTE # 93 -PORT # 173 -BYTE # 94 -PORT # 173 -BYTE # 95 -PORT # 173 -BYTE # 96 -PORT # 173 -BYTE # 97 -PORT # 173 -BYTE # 98 -PORT # 173 -BYTE # 99 -PORT # 173 -BYTE # 100 -PORT # 173 -BYTE # 101 -PORT # 173 -BYTE # 102 -PORT # 173 -BYTE # 103 -PORT # 173 -BYTE # 104 -PORT # 173 -BYTE # 105 -PORT # 173 -BYTE # 106 -PORT # 173 -BYTE # 107 -PORT # 173 -BYTE # 108 -PORT # 173 -BYTE # 109 -PORT # 173 -BYTE # 110 -PORT # 173 -BYTE # 111 -PORT # 173 -BYTE # 112 -PORT # 173 -BYTE # 113 -PORT # 173 -BYTE # 114 -PORT # 173 -BYTE # 115 -PORT # 173 -BYTE # 116 -PORT # 173 -BYTE # 117 -PORT # 173 -BYTE # 118 -PORT # 173 -BYTE # 119 -PORT # 173 -BYTE # 120 -PORT # 173 -BYTE # 121 -PORT # 173 -BYTE # 122 -PORT # 173 -BYTE # 123 -PORT # 173 -BYTE # 124 -PORT # 173 -BYTE # 125 -PORT # 173 -BYTE # 126 -PORT # 173 -BYTE # 127 -PORT # 173 -BYTE # 128 -PORT # 173 -BYTE # 129 -PORT # 173 -BYTE # 130 -PORT # 173 -BYTE # 131 -PORT # 173 -BYTE # 132 -PORT # 173 -BYTE # 133 -PORT # 173 -BYTE # 134 -PORT # 173 -BYTE # 135 -PORT # 173 -BYTE # 136 -PORT # 173 -BYTE # 137 -PORT # 173 -BYTE # 138 -PORT # 173 -BYTE # 139 -PORT # 173 -BYTE # 140 -PORT # 173 -BYTE # 141 -PORT # 173 -BYTE # 142 -PORT # 173 -BYTE # 143 -PORT # 173 -BYTE # 144 -PORT # 173 -BYTE # 145 -PORT # 173 -BYTE # 146 -PORT # 173 -BYTE # 147 -PORT # 173 -BYTE # 148 -PORT # 173 -BYTE # 149 -PORT # 173 -BYTE # 150 -PORT # 173 -BYTE # 151 -PORT # 173 -BYTE # 152 -PORT # 173 -BYTE # 153 -PORT # 173 -BYTE # 154 -PORT # 173 -BYTE # 155 -PORT # 173 -BYTE # 156 -PORT # 173 -BYTE # 157 -PORT # 173 -BYTE # 158 -PORT # 173 -BYTE # 159 -PORT # 173 -BYTE # 160 -PORT # 173 -BYTE # 161 -PORT # 173 -BYTE # 162 -PORT # 173 -BYTE # 163 -PORT # 173 -BYTE # 164 -PORT # 173 -BYTE # 165 -PORT # 173 -BYTE # 166 -PORT # 173 -BYTE # 167 -PORT # 173 -BYTE # 168 -PORT # 173 -BYTE # 169 -PORT # 173 -BYTE # 170 -PORT # 173 -BYTE # 171 -PORT # 173 -BYTE # 172 -PORT # 173 -BYTE # 173 -PORT # 173 -BYTE # 174 -PORT # 173 -BYTE # 175 -PORT # 173 -BYTE # 176 -PORT # 173 -BYTE # 177 -PORT # 173 -BYTE # 178 -PORT # 173 -BYTE # 179 -PORT # 173 -BYTE # 180 -PORT # 173 -BYTE # 181 -PORT # 173 -BYTE # 182 -PORT # 173 -BYTE # 183 -PORT # 173 -BYTE # 184 -PORT # 173 -BYTE # 185 -PORT # 173 -BYTE # 186 -PORT # 173 -BYTE # 187 -PORT # 173 -BYTE # 188 -PORT # 173 -BYTE # 189 -PORT # 173 -BYTE # 190 -PORT # 173 -BYTE # 191 -PORT # 173 -BYTE # 192 -PORT # 173 -BYTE # 193 -PORT # 173 -BYTE # 194 -PORT # 173 -BYTE # 195 -PORT # 173 -BYTE # 196 -PORT # 173 -BYTE # 197 -PORT # 173 -BYTE # 198 -PORT # 173 -BYTE # 199 -PORT # 173 -BYTE # 200 -PORT # 173 -BYTE # 201 -PORT # 173 -BYTE # 202 -PORT # 173 -BYTE # 203 -PORT # 173 -BYTE # 204 -PORT # 173 -BYTE # 205 -PORT # 173 -BYTE # 206 -PORT # 173 -BYTE # 207 -PORT # 173 -BYTE # 208 -PORT # 173 -BYTE # 209 -PORT # 173 -BYTE # 210 -PORT # 173 -BYTE # 211 -PORT # 173 -BYTE # 212 -PORT # 173 -BYTE # 213 -PORT # 173 -BYTE # 214 -PORT # 173 -BYTE # 215 -PORT # 173 -BYTE # 216 -PORT # 173 -BYTE # 217 -PORT # 173 -BYTE # 218 -PORT # 173 -BYTE # 219 -PORT # 173 -BYTE # 220 -PORT # 173 -BYTE # 221 -PORT # 173 -BYTE # 222 -PORT # 173 -BYTE # 223 -PORT # 173 -BYTE # 224 -PORT # 173 -BYTE # 225 -PORT # 173 -BYTE # 226 -PORT # 173 -BYTE # 227 -PORT # 173 -BYTE # 228 -PORT # 173 -BYTE # 229 -PORT # 173 -BYTE # 230 -PORT # 173 -BYTE # 231 -PORT # 173 -BYTE # 232 -PORT # 173 -BYTE # 233 -PORT # 173 -BYTE # 234 -PORT # 173 -BYTE # 235 -PORT # 173 -BYTE # 236 -PORT # 173 -BYTE # 237 -PORT # 173 -BYTE # 238 -PORT # 173 -BYTE # 239 -PORT # 173 -BYTE # 240 -PORT # 173 -BYTE # 241 -PORT # 173 -BYTE # 242 -PORT # 173 -BYTE # 243 -PORT # 173 -BYTE # 244 -PORT # 173 -BYTE # 245 -PORT # 173 -BYTE # 246 -PORT # 173 -BYTE # 247 -PORT # 173 -BYTE # 248 -PORT # 173 -BYTE # 249 -PORT # 173 -BYTE # 250 -PORT # 173 -BYTE # 251 -PORT # 173 -BYTE # 252 -PORT # 173 -BYTE # 253 -PORT # 173 -BYTE # 254 -PORT # 173 -BYTE # 255 -PORT # 174 -BYTE # 0 -PORT # 174 -BYTE # 1 -PORT # 174 -BYTE # 2 -PORT # 174 -BYTE # 3 -PORT # 174 -BYTE # 4 -PORT # 174 -BYTE # 5 -PORT # 174 -BYTE # 6 -PORT # 174 -BYTE # 7 -PORT # 174 -BYTE # 8 -PORT # 174 -BYTE # 9 -PORT # 174 -BYTE # 10 -PORT # 174 -BYTE # 11 -PORT # 174 -BYTE # 12 -PORT # 174 -BYTE # 13 -PORT # 174 -BYTE # 14 -PORT # 174 -BYTE # 15 -PORT # 174 -BYTE # 16 -PORT # 174 -BYTE # 17 -PORT # 174 -BYTE # 18 -PORT # 174 -BYTE # 19 -PORT # 174 -BYTE # 20 -PORT # 174 -BYTE # 21 -PORT # 174 -BYTE # 22 -PORT # 174 -BYTE # 23 -PORT # 174 -BYTE # 24 -PORT # 174 -BYTE # 25 -PORT # 174 -BYTE # 26 -PORT # 174 -BYTE # 27 -PORT # 174 -BYTE # 28 -PORT # 174 -BYTE # 29 -PORT # 174 -BYTE # 30 -PORT # 174 -BYTE # 31 -PORT # 174 -BYTE # 32 -PORT # 174 -BYTE # 33 -PORT # 174 -BYTE # 34 -PORT # 174 -BYTE # 35 -PORT # 174 -BYTE # 36 -PORT # 174 -BYTE # 37 -PORT # 174 -BYTE # 38 -PORT # 174 -BYTE # 39 -PORT # 174 -BYTE # 40 -PORT # 174 -BYTE # 41 -PORT # 174 -BYTE # 42 -PORT # 174 -BYTE # 43 -PORT # 174 -BYTE # 44 -PORT # 174 -BYTE # 45 -PORT # 174 -BYTE # 46 -PORT # 174 -BYTE # 47 -PORT # 174 -BYTE # 48 -PORT # 174 -BYTE # 49 -PORT # 174 -BYTE # 50 -PORT # 174 -BYTE # 51 -PORT # 174 -BYTE # 52 -PORT # 174 -BYTE # 53 -PORT # 174 -BYTE # 54 -PORT # 174 -BYTE # 55 -PORT # 174 -BYTE # 56 -PORT # 174 -BYTE # 57 -PORT # 174 -BYTE # 58 -PORT # 174 -BYTE # 59 -PORT # 174 -BYTE # 60 -PORT # 174 -BYTE # 61 -PORT # 174 -BYTE # 62 -PORT # 174 -BYTE # 63 -PORT # 174 -BYTE # 64 -PORT # 174 -BYTE # 65 -PORT # 174 -BYTE # 66 -PORT # 174 -BYTE # 67 -PORT # 174 -BYTE # 68 -PORT # 174 -BYTE # 69 -PORT # 174 -BYTE # 70 -PORT # 174 -BYTE # 71 -PORT # 174 -BYTE # 72 -PORT # 174 -BYTE # 73 -PORT # 174 -BYTE # 74 -PORT # 174 -BYTE # 75 -PORT # 174 -BYTE # 76 -PORT # 174 -BYTE # 77 -PORT # 174 -BYTE # 78 -PORT # 174 -BYTE # 79 -PORT # 174 -BYTE # 80 -PORT # 174 -BYTE # 81 -PORT # 174 -BYTE # 82 -PORT # 174 -BYTE # 83 -PORT # 174 -BYTE # 84 -PORT # 174 -BYTE # 85 -PORT # 174 -BYTE # 86 -PORT # 174 -BYTE # 87 -PORT # 174 -BYTE # 88 -PORT # 174 -BYTE # 89 -PORT # 174 -BYTE # 90 -PORT # 174 -BYTE # 91 -PORT # 174 -BYTE # 92 -PORT # 174 -BYTE # 93 -PORT # 174 -BYTE # 94 -PORT # 174 -BYTE # 95 -PORT # 174 -BYTE # 96 -PORT # 174 -BYTE # 97 -PORT # 174 -BYTE # 98 -PORT # 174 -BYTE # 99 -PORT # 174 -BYTE # 100 -PORT # 174 -BYTE # 101 -PORT # 174 -BYTE # 102 -PORT # 174 -BYTE # 103 -PORT # 174 -BYTE # 104 -PORT # 174 -BYTE # 105 -PORT # 174 -BYTE # 106 -PORT # 174 -BYTE # 107 -PORT # 174 -BYTE # 108 -PORT # 174 -BYTE # 109 -PORT # 174 -BYTE # 110 -PORT # 174 -BYTE # 111 -PORT # 174 -BYTE # 112 -PORT # 174 -BYTE # 113 -PORT # 174 -BYTE # 114 -PORT # 174 -BYTE # 115 -PORT # 174 -BYTE # 116 -PORT # 174 -BYTE # 117 -PORT # 174 -BYTE # 118 -PORT # 174 -BYTE # 119 -PORT # 174 -BYTE # 120 -PORT # 174 -BYTE # 121 -PORT # 174 -BYTE # 122 -PORT # 174 -BYTE # 123 -PORT # 174 -BYTE # 124 -PORT # 174 -BYTE # 125 -PORT # 174 -BYTE # 126 -PORT # 174 -BYTE # 127 -PORT # 174 -BYTE # 128 -PORT # 174 -BYTE # 129 -PORT # 174 -BYTE # 130 -PORT # 174 -BYTE # 131 -PORT # 174 -BYTE # 132 -PORT # 174 -BYTE # 133 -PORT # 174 -BYTE # 134 -PORT # 174 -BYTE # 135 -PORT # 174 -BYTE # 136 -PORT # 174 -BYTE # 137 -PORT # 174 -BYTE # 138 -PORT # 174 -BYTE # 139 -PORT # 174 -BYTE # 140 -PORT # 174 -BYTE # 141 -PORT # 174 -BYTE # 142 -PORT # 174 -BYTE # 143 -PORT # 174 -BYTE # 144 -PORT # 174 -BYTE # 145 -PORT # 174 -BYTE # 146 -PORT # 174 -BYTE # 147 -PORT # 174 -BYTE # 148 -PORT # 174 -BYTE # 149 -PORT # 174 -BYTE # 150 -PORT # 174 -BYTE # 151 -PORT # 174 -BYTE # 152 -PORT # 174 -BYTE # 153 -PORT # 174 -BYTE # 154 -PORT # 174 -BYTE # 155 -PORT # 174 -BYTE # 156 -PORT # 174 -BYTE # 157 -PORT # 174 -BYTE # 158 -PORT # 174 -BYTE # 159 -PORT # 174 -BYTE # 160 -PORT # 174 -BYTE # 161 -PORT # 174 -BYTE # 162 -PORT # 174 -BYTE # 163 -PORT # 174 -BYTE # 164 -PORT # 174 -BYTE # 165 -PORT # 174 -BYTE # 166 -PORT # 174 -BYTE # 167 -PORT # 174 -BYTE # 168 -PORT # 174 -BYTE # 169 -PORT # 174 -BYTE # 170 -PORT # 174 -BYTE # 171 -PORT # 174 -BYTE # 172 -PORT # 174 -BYTE # 173 -PORT # 174 -BYTE # 174 -PORT # 174 -BYTE # 175 -PORT # 174 -BYTE # 176 -PORT # 174 -BYTE # 177 -PORT # 174 -BYTE # 178 -PORT # 174 -BYTE # 179 -PORT # 174 -BYTE # 180 -PORT # 174 -BYTE # 181 -PORT # 174 -BYTE # 182 -PORT # 174 -BYTE # 183 -PORT # 174 -BYTE # 184 -PORT # 174 -BYTE # 185 -PORT # 174 -BYTE # 186 -PORT # 174 -BYTE # 187 -PORT # 174 -BYTE # 188 -PORT # 174 -BYTE # 189 -PORT # 174 -BYTE # 190 -PORT # 174 -BYTE # 191 -PORT # 174 -BYTE # 192 -PORT # 174 -BYTE # 193 -PORT # 174 -BYTE # 194 -PORT # 174 -BYTE # 195 -PORT # 174 -BYTE # 196 -PORT # 174 -BYTE # 197 -PORT # 174 -BYTE # 198 -PORT # 174 -BYTE # 199 -PORT # 174 -BYTE # 200 -PORT # 174 -BYTE # 201 -PORT # 174 -BYTE # 202 -PORT # 174 -BYTE # 203 -PORT # 174 -BYTE # 204 -PORT # 174 -BYTE # 205 -PORT # 174 -BYTE # 206 -PORT # 174 -BYTE # 207 -PORT # 174 -BYTE # 208 -PORT # 174 -BYTE # 209 -PORT # 174 -BYTE # 210 -PORT # 174 -BYTE # 211 -PORT # 174 -BYTE # 212 -PORT # 174 -BYTE # 213 -PORT # 174 -BYTE # 214 -PORT # 174 -BYTE # 215 -PORT # 174 -BYTE # 216 -PORT # 174 -BYTE # 217 -PORT # 174 -BYTE # 218 -PORT # 174 -BYTE # 219 -PORT # 174 -BYTE # 220 -PORT # 174 -BYTE # 221 -PORT # 174 -BYTE # 222 -PORT # 174 -BYTE # 223 -PORT # 174 -BYTE # 224 -PORT # 174 -BYTE # 225 -PORT # 174 -BYTE # 226 -PORT # 174 -BYTE # 227 -PORT # 174 -BYTE # 228 -PORT # 174 -BYTE # 229 -PORT # 174 -BYTE # 230 -PORT # 174 -BYTE # 231 -PORT # 174 -BYTE # 232 -PORT # 174 -BYTE # 233 -PORT # 174 -BYTE # 234 -PORT # 174 -BYTE # 235 -PORT # 174 -BYTE # 236 -PORT # 174 -BYTE # 237 -PORT # 174 -BYTE # 238 -PORT # 174 -BYTE # 239 -PORT # 174 -BYTE # 240 -PORT # 174 -BYTE # 241 -PORT # 174 -BYTE # 242 -PORT # 174 -BYTE # 243 -PORT # 174 -BYTE # 244 -PORT # 174 -BYTE # 245 -PORT # 174 -BYTE # 246 -PORT # 174 -BYTE # 247 -PORT # 174 -BYTE # 248 -PORT # 174 -BYTE # 249 -PORT # 174 -BYTE # 250 -PORT # 174 -BYTE # 251 -PORT # 174 -BYTE # 252 -PORT # 174 -BYTE # 253 -PORT # 174 -BYTE # 254 -PORT # 174 -BYTE # 255 -PORT # 175 -BYTE # 0 -PORT # 175 -BYTE # 1 -PORT # 175 -BYTE # 2 -PORT # 175 -BYTE # 3 -PORT # 175 -BYTE # 4 -PORT # 175 -BYTE # 5 -PORT # 175 -BYTE # 6 -PORT # 175 -BYTE # 7 -PORT # 175 -BYTE # 8 -PORT # 175 -BYTE # 9 -PORT # 175 -BYTE # 10 -PORT # 175 -BYTE # 11 -PORT # 175 -BYTE # 12 -PORT # 175 -BYTE # 13 -PORT # 175 -BYTE # 14 -PORT # 175 -BYTE # 15 -PORT # 175 -BYTE # 16 -PORT # 175 -BYTE # 17 -PORT # 175 -BYTE # 18 -PORT # 175 -BYTE # 19 -PORT # 175 -BYTE # 20 -PORT # 175 -BYTE # 21 -PORT # 175 -BYTE # 22 -PORT # 175 -BYTE # 23 -PORT # 175 -BYTE # 24 -PORT # 175 -BYTE # 25 -PORT # 175 -BYTE # 26 -PORT # 175 -BYTE # 27 -PORT # 175 -BYTE # 28 -PORT # 175 -BYTE # 29 -PORT # 175 -BYTE # 30 -PORT # 175 -BYTE # 31 -PORT # 175 -BYTE # 32 -PORT # 175 -BYTE # 33 -PORT # 175 -BYTE # 34 -PORT # 175 -BYTE # 35 -PORT # 175 -BYTE # 36 -PORT # 175 -BYTE # 37 -PORT # 175 -BYTE # 38 -PORT # 175 -BYTE # 39 -PORT # 175 -BYTE # 40 -PORT # 175 -BYTE # 41 -PORT # 175 -BYTE # 42 -PORT # 175 -BYTE # 43 -PORT # 175 -BYTE # 44 -PORT # 175 -BYTE # 45 -PORT # 175 -BYTE # 46 -PORT # 175 -BYTE # 47 -PORT # 175 -BYTE # 48 -PORT # 175 -BYTE # 49 -PORT # 175 -BYTE # 50 -PORT # 175 -BYTE # 51 -PORT # 175 -BYTE # 52 -PORT # 175 -BYTE # 53 -PORT # 175 -BYTE # 54 -PORT # 175 -BYTE # 55 -PORT # 175 -BYTE # 56 -PORT # 175 -BYTE # 57 -PORT # 175 -BYTE # 58 -PORT # 175 -BYTE # 59 -PORT # 175 -BYTE # 60 -PORT # 175 -BYTE # 61 -PORT # 175 -BYTE # 62 -PORT # 175 -BYTE # 63 -PORT # 175 -BYTE # 64 -PORT # 175 -BYTE # 65 -PORT # 175 -BYTE # 66 -PORT # 175 -BYTE # 67 -PORT # 175 -BYTE # 68 -PORT # 175 -BYTE # 69 -PORT # 175 -BYTE # 70 -PORT # 175 -BYTE # 71 -PORT # 175 -BYTE # 72 -PORT # 175 -BYTE # 73 -PORT # 175 -BYTE # 74 -PORT # 175 -BYTE # 75 -PORT # 175 -BYTE # 76 -PORT # 175 -BYTE # 77 -PORT # 175 -BYTE # 78 -PORT # 175 -BYTE # 79 -PORT # 175 -BYTE # 80 -PORT # 175 -BYTE # 81 -PORT # 175 -BYTE # 82 -PORT # 175 -BYTE # 83 -PORT # 175 -BYTE # 84 -PORT # 175 -BYTE # 85 -PORT # 175 -BYTE # 86 -PORT # 175 -BYTE # 87 -PORT # 175 -BYTE # 88 -PORT # 175 -BYTE # 89 -PORT # 175 -BYTE # 90 -PORT # 175 -BYTE # 91 -PORT # 175 -BYTE # 92 -PORT # 175 -BYTE # 93 -PORT # 175 -BYTE # 94 -PORT # 175 -BYTE # 95 -PORT # 175 -BYTE # 96 -PORT # 175 -BYTE # 97 -PORT # 175 -BYTE # 98 -PORT # 175 -BYTE # 99 -PORT # 175 -BYTE # 100 -PORT # 175 -BYTE # 101 -PORT # 175 -BYTE # 102 -PORT # 175 -BYTE # 103 -PORT # 175 -BYTE # 104 -PORT # 175 -BYTE # 105 -PORT # 175 -BYTE # 106 -PORT # 175 -BYTE # 107 -PORT # 175 -BYTE # 108 -PORT # 175 -BYTE # 109 -PORT # 175 -BYTE # 110 -PORT # 175 -BYTE # 111 -PORT # 175 -BYTE # 112 -PORT # 175 -BYTE # 113 -PORT # 175 -BYTE # 114 -PORT # 175 -BYTE # 115 -PORT # 175 -BYTE # 116 -PORT # 175 -BYTE # 117 -PORT # 175 -BYTE # 118 -PORT # 175 -BYTE # 119 -PORT # 175 -BYTE # 120 -PORT # 175 -BYTE # 121 -PORT # 175 -BYTE # 122 -PORT # 175 -BYTE # 123 -PORT # 175 -BYTE # 124 -PORT # 175 -BYTE # 125 -PORT # 175 -BYTE # 126 -PORT # 175 -BYTE # 127 -PORT # 175 -BYTE # 128 -PORT # 175 -BYTE # 129 -PORT # 175 -BYTE # 130 -PORT # 175 -BYTE # 131 -PORT # 175 -BYTE # 132 -PORT # 175 -BYTE # 133 -PORT # 175 -BYTE # 134 -PORT # 175 -BYTE # 135 -PORT # 175 -BYTE # 136 -PORT # 175 -BYTE # 137 -PORT # 175 -BYTE # 138 -PORT # 175 -BYTE # 139 -PORT # 175 -BYTE # 140 -PORT # 175 -BYTE # 141 -PORT # 175 -BYTE # 142 -PORT # 175 -BYTE # 143 -PORT # 175 -BYTE # 144 -PORT # 175 -BYTE # 145 -PORT # 175 -BYTE # 146 -PORT # 175 -BYTE # 147 -PORT # 175 -BYTE # 148 -PORT # 175 -BYTE # 149 -PORT # 175 -BYTE # 150 -PORT # 175 -BYTE # 151 -PORT # 175 -BYTE # 152 -PORT # 175 -BYTE # 153 -PORT # 175 -BYTE # 154 -PORT # 175 -BYTE # 155 -PORT # 175 -BYTE # 156 -PORT # 175 -BYTE # 157 -PORT # 175 -BYTE # 158 -PORT # 175 -BYTE # 159 -PORT # 175 -BYTE # 160 -PORT # 175 -BYTE # 161 -PORT # 175 -BYTE # 162 -PORT # 175 -BYTE # 163 -PORT # 175 -BYTE # 164 -PORT # 175 -BYTE # 165 -PORT # 175 -BYTE # 166 -PORT # 175 -BYTE # 167 -PORT # 175 -BYTE # 168 -PORT # 175 -BYTE # 169 -PORT # 175 -BYTE # 170 -PORT # 175 -BYTE # 171 -PORT # 175 -BYTE # 172 -PORT # 175 -BYTE # 173 -PORT # 175 -BYTE # 174 -PORT # 175 -BYTE # 175 -PORT # 175 -BYTE # 176 -PORT # 175 -BYTE # 177 -PORT # 175 -BYTE # 178 -PORT # 175 -BYTE # 179 -PORT # 175 -BYTE # 180 -PORT # 175 -BYTE # 181 -PORT # 175 -BYTE # 182 -PORT # 175 -BYTE # 183 -PORT # 175 -BYTE # 184 -PORT # 175 -BYTE # 185 -PORT # 175 -BYTE # 186 -PORT # 175 -BYTE # 187 -PORT # 175 -BYTE # 188 -PORT # 175 -BYTE # 189 -PORT # 175 -BYTE # 190 -PORT # 175 -BYTE # 191 -PORT # 175 -BYTE # 192 -PORT # 175 -BYTE # 193 -PORT # 175 -BYTE # 194 -PORT # 175 -BYTE # 195 -PORT # 175 -BYTE # 196 -PORT # 175 -BYTE # 197 -PORT # 175 -BYTE # 198 -PORT # 175 -BYTE # 199 -PORT # 175 -BYTE # 200 -PORT # 175 -BYTE # 201 -PORT # 175 -BYTE # 202 -PORT # 175 -BYTE # 203 -PORT # 175 -BYTE # 204 -PORT # 175 -BYTE # 205 -PORT # 175 -BYTE # 206 -PORT # 175 -BYTE # 207 -PORT # 175 -BYTE # 208 -PORT # 175 -BYTE # 209 -PORT # 175 -BYTE # 210 -PORT # 175 -BYTE # 211 -PORT # 175 -BYTE # 212 -PORT # 175 -BYTE # 213 -PORT # 175 -BYTE # 214 -PORT # 175 -BYTE # 215 -PORT # 175 -BYTE # 216 -PORT # 175 -BYTE # 217 -PORT # 175 -BYTE # 218 -PORT # 175 -BYTE # 219 -PORT # 175 -BYTE # 220 -PORT # 175 -BYTE # 221 -PORT # 175 -BYTE # 222 -PORT # 175 -BYTE # 223 -PORT # 175 -BYTE # 224 -PORT # 175 -BYTE # 225 -PORT # 175 -BYTE # 226 -PORT # 175 -BYTE # 227 -PORT # 175 -BYTE # 228 -PORT # 175 -BYTE # 229 -PORT # 175 -BYTE # 230 -PORT # 175 -BYTE # 231 -PORT # 175 -BYTE # 232 -PORT # 175 -BYTE # 233 -PORT # 175 -BYTE # 234 -PORT # 175 -BYTE # 235 -PORT # 175 -BYTE # 236 -PORT # 175 -BYTE # 237 -PORT # 175 -BYTE # 238 -PORT # 175 -BYTE # 239 -PORT # 175 -BYTE # 240 -PORT # 175 -BYTE # 241 -PORT # 175 -BYTE # 242 -PORT # 175 -BYTE # 243 -PORT # 175 -BYTE # 244 -PORT # 175 -BYTE # 245 -PORT # 175 -BYTE # 246 -PORT # 175 -BYTE # 247 -PORT # 175 -BYTE # 248 -PORT # 175 -BYTE # 249 -PORT # 175 -BYTE # 250 -PORT # 175 -BYTE # 251 -PORT # 175 -BYTE # 252 -PORT # 175 -BYTE # 253 -PORT # 175 -BYTE # 254 -PORT # 175 -BYTE # 255 -PORT # 176 -BYTE # 0 -PORT # 176 -BYTE # 1 -PORT # 176 -BYTE # 2 -PORT # 176 -BYTE # 3 -PORT # 176 -BYTE # 4 -PORT # 176 -BYTE # 5 -PORT # 176 -BYTE # 6 -PORT # 176 -BYTE # 7 -PORT # 176 -BYTE # 8 -PORT # 176 -BYTE # 9 -PORT # 176 -BYTE # 10 -PORT # 176 -BYTE # 11 -PORT # 176 -BYTE # 12 -PORT # 176 -BYTE # 13 -PORT # 176 -BYTE # 14 -PORT # 176 -BYTE # 15 -PORT # 176 -BYTE # 16 -PORT # 176 -BYTE # 17 -PORT # 176 -BYTE # 18 -PORT # 176 -BYTE # 19 -PORT # 176 -BYTE # 20 -PORT # 176 -BYTE # 21 -PORT # 176 -BYTE # 22 -PORT # 176 -BYTE # 23 -PORT # 176 -BYTE # 24 -PORT # 176 -BYTE # 25 -PORT # 176 -BYTE # 26 -PORT # 176 -BYTE # 27 -PORT # 176 -BYTE # 28 -PORT # 176 -BYTE # 29 -PORT # 176 -BYTE # 30 -PORT # 176 -BYTE # 31 -PORT # 176 -BYTE # 32 -PORT # 176 -BYTE # 33 -PORT # 176 -BYTE # 34 -PORT # 176 -BYTE # 35 -PORT # 176 -BYTE # 36 -PORT # 176 -BYTE # 37 -PORT # 176 -BYTE # 38 -PORT # 176 -BYTE # 39 -PORT # 176 -BYTE # 40 -PORT # 176 -BYTE # 41 -PORT # 176 -BYTE # 42 -PORT # 176 -BYTE # 43 -PORT # 176 -BYTE # 44 -PORT # 176 -BYTE # 45 -PORT # 176 -BYTE # 46 -PORT # 176 -BYTE # 47 -PORT # 176 -BYTE # 48 -PORT # 176 -BYTE # 49 -PORT # 176 -BYTE # 50 -PORT # 176 -BYTE # 51 -PORT # 176 -BYTE # 52 -PORT # 176 -BYTE # 53 -PORT # 176 -BYTE # 54 -PORT # 176 -BYTE # 55 -PORT # 176 -BYTE # 56 -PORT # 176 -BYTE # 57 -PORT # 176 -BYTE # 58 -PORT # 176 -BYTE # 59 -PORT # 176 -BYTE # 60 -PORT # 176 -BYTE # 61 -PORT # 176 -BYTE # 62 -PORT # 176 -BYTE # 63 -PORT # 176 -BYTE # 64 -PORT # 176 -BYTE # 65 -PORT # 176 -BYTE # 66 -PORT # 176 -BYTE # 67 -PORT # 176 -BYTE # 68 -PORT # 176 -BYTE # 69 -PORT # 176 -BYTE # 70 -PORT # 176 -BYTE # 71 -PORT # 176 -BYTE # 72 -PORT # 176 -BYTE # 73 -PORT # 176 -BYTE # 74 -PORT # 176 -BYTE # 75 -PORT # 176 -BYTE # 76 -PORT # 176 -BYTE # 77 -PORT # 176 -BYTE # 78 -PORT # 176 -BYTE # 79 -PORT # 176 -BYTE # 80 -PORT # 176 -BYTE # 81 -PORT # 176 -BYTE # 82 -PORT # 176 -BYTE # 83 -PORT # 176 -BYTE # 84 -PORT # 176 -BYTE # 85 -PORT # 176 -BYTE # 86 -PORT # 176 -BYTE # 87 -PORT # 176 -BYTE # 88 -PORT # 176 -BYTE # 89 -PORT # 176 -BYTE # 90 -PORT # 176 -BYTE # 91 -PORT # 176 -BYTE # 92 -PORT # 176 -BYTE # 93 -PORT # 176 -BYTE # 94 -PORT # 176 -BYTE # 95 -PORT # 176 -BYTE # 96 -PORT # 176 -BYTE # 97 -PORT # 176 -BYTE # 98 -PORT # 176 -BYTE # 99 -PORT # 176 -BYTE # 100 -PORT # 176 -BYTE # 101 -PORT # 176 -BYTE # 102 -PORT # 176 -BYTE # 103 -PORT # 176 -BYTE # 104 -PORT # 176 -BYTE # 105 -PORT # 176 -BYTE # 106 -PORT # 176 -BYTE # 107 -PORT # 176 -BYTE # 108 -PORT # 176 -BYTE # 109 -PORT # 176 -BYTE # 110 -PORT # 176 -BYTE # 111 -PORT # 176 -BYTE # 112 -PORT # 176 -BYTE # 113 -PORT # 176 -BYTE # 114 -PORT # 176 -BYTE # 115 -PORT # 176 -BYTE # 116 -PORT # 176 -BYTE # 117 -PORT # 176 -BYTE # 118 -PORT # 176 -BYTE # 119 -PORT # 176 -BYTE # 120 -PORT # 176 -BYTE # 121 -PORT # 176 -BYTE # 122 -PORT # 176 -BYTE # 123 -PORT # 176 -BYTE # 124 -PORT # 176 -BYTE # 125 -PORT # 176 -BYTE # 126 -PORT # 176 -BYTE # 127 -PORT # 176 -BYTE # 128 -PORT # 176 -BYTE # 129 -PORT # 176 -BYTE # 130 -PORT # 176 -BYTE # 131 -PORT # 176 -BYTE # 132 -PORT # 176 -BYTE # 133 -PORT # 176 -BYTE # 134 -PORT # 176 -BYTE # 135 -PORT # 176 -BYTE # 136 -PORT # 176 -BYTE # 137 -PORT # 176 -BYTE # 138 -PORT # 176 -BYTE # 139 -PORT # 176 -BYTE # 140 -PORT # 176 -BYTE # 141 -PORT # 176 -BYTE # 142 -PORT # 176 -BYTE # 143 -PORT # 176 -BYTE # 144 -PORT # 176 -BYTE # 145 -PORT # 176 -BYTE # 146 -PORT # 176 -BYTE # 147 -PORT # 176 -BYTE # 148 -PORT # 176 -BYTE # 149 -PORT # 176 -BYTE # 150 -PORT # 176 -BYTE # 151 -PORT # 176 -BYTE # 152 -PORT # 176 -BYTE # 153 -PORT # 176 -BYTE # 154 -PORT # 176 -BYTE # 155 -PORT # 176 -BYTE # 156 -PORT # 176 -BYTE # 157 -PORT # 176 -BYTE # 158 -PORT # 176 -BYTE # 159 -PORT # 176 -BYTE # 160 -PORT # 176 -BYTE # 161 -PORT # 176 -BYTE # 162 -PORT # 176 -BYTE # 163 -PORT # 176 -BYTE # 164 -PORT # 176 -BYTE # 165 -PORT # 176 -BYTE # 166 -PORT # 176 -BYTE # 167 -PORT # 176 -BYTE # 168 -PORT # 176 -BYTE # 169 -PORT # 176 -BYTE # 170 -PORT # 176 -BYTE # 171 -PORT # 176 -BYTE # 172 -PORT # 176 -BYTE # 173 -PORT # 176 -BYTE # 174 -PORT # 176 -BYTE # 175 -PORT # 176 -BYTE # 176 -PORT # 176 -BYTE # 177 -PORT # 176 -BYTE # 178 -PORT # 176 -BYTE # 179 -PORT # 176 -BYTE # 180 -PORT # 176 -BYTE # 181 -PORT # 176 -BYTE # 182 -PORT # 176 -BYTE # 183 -PORT # 176 -BYTE # 184 -PORT # 176 -BYTE # 185 -PORT # 176 -BYTE # 186 -PORT # 176 -BYTE # 187 -PORT # 176 -BYTE # 188 -PORT # 176 -BYTE # 189 -PORT # 176 -BYTE # 190 -PORT # 176 -BYTE # 191 -PORT # 176 -BYTE # 192 -PORT # 176 -BYTE # 193 -PORT # 176 -BYTE # 194 -PORT # 176 -BYTE # 195 -PORT # 176 -BYTE # 196 -PORT # 176 -BYTE # 197 -PORT # 176 -BYTE # 198 -PORT # 176 -BYTE # 199 -PORT # 176 -BYTE # 200 -PORT # 176 -BYTE # 201 -PORT # 176 -BYTE # 202 -PORT # 176 -BYTE # 203 -PORT # 176 -BYTE # 204 -PORT # 176 -BYTE # 205 -PORT # 176 -BYTE # 206 -PORT # 176 -BYTE # 207 -PORT # 176 -BYTE # 208 -PORT # 176 -BYTE # 209 -PORT # 176 -BYTE # 210 -PORT # 176 -BYTE # 211 -PORT # 176 -BYTE # 212 -PORT # 176 -BYTE # 213 -PORT # 176 -BYTE # 214 -PORT # 176 -BYTE # 215 -PORT # 176 -BYTE # 216 -PORT # 176 -BYTE # 217 -PORT # 176 -BYTE # 218 -PORT # 176 -BYTE # 219 -PORT # 176 -BYTE # 220 -PORT # 176 -BYTE # 221 -PORT # 176 -BYTE # 222 -PORT # 176 -BYTE # 223 -PORT # 176 -BYTE # 224 -PORT # 176 -BYTE # 225 -PORT # 176 -BYTE # 226 -PORT # 176 -BYTE # 227 -PORT # 176 -BYTE # 228 -PORT # 176 -BYTE # 229 -PORT # 176 -BYTE # 230 -PORT # 176 -BYTE # 231 -PORT # 176 -BYTE # 232 -PORT # 176 -BYTE # 233 -PORT # 176 -BYTE # 234 -PORT # 176 -BYTE # 235 -PORT # 176 -BYTE # 236 -PORT # 176 -BYTE # 237 -PORT # 176 -BYTE # 238 -PORT # 176 -BYTE # 239 -PORT # 176 -BYTE # 240 -PORT # 176 -BYTE # 241 -PORT # 176 -BYTE # 242 -PORT # 176 -BYTE # 243 -PORT # 176 -BYTE # 244 -PORT # 176 -BYTE # 245 -PORT # 176 -BYTE # 246 -PORT # 176 -BYTE # 247 -PORT # 176 -BYTE # 248 -PORT # 176 -BYTE # 249 -PORT # 176 -BYTE # 250 -PORT # 176 -BYTE # 251 -PORT # 176 -BYTE # 252 -PORT # 176 -BYTE # 253 -PORT # 176 -BYTE # 254 -PORT # 176 -BYTE # 255 -PORT # 177 -BYTE # 0 -PORT # 177 -BYTE # 1 -PORT # 177 -BYTE # 2 -PORT # 177 -BYTE # 3 -PORT # 177 -BYTE # 4 -PORT # 177 -BYTE # 5 -PORT # 177 -BYTE # 6 -PORT # 177 -BYTE # 7 -PORT # 177 -BYTE # 8 -PORT # 177 -BYTE # 9 -PORT # 177 -BYTE # 10 -PORT # 177 -BYTE # 11 -PORT # 177 -BYTE # 12 -PORT # 177 -BYTE # 13 -PORT # 177 -BYTE # 14 -PORT # 177 -BYTE # 15 -PORT # 177 -BYTE # 16 -PORT # 177 -BYTE # 17 -PORT # 177 -BYTE # 18 -PORT # 177 -BYTE # 19 -PORT # 177 -BYTE # 20 -PORT # 177 -BYTE # 21 -PORT # 177 -BYTE # 22 -PORT # 177 -BYTE # 23 -PORT # 177 -BYTE # 24 -PORT # 177 -BYTE # 25 -PORT # 177 -BYTE # 26 -PORT # 177 -BYTE # 27 -PORT # 177 -BYTE # 28 -PORT # 177 -BYTE # 29 -PORT # 177 -BYTE # 30 -PORT # 177 -BYTE # 31 -PORT # 177 -BYTE # 32 -PORT # 177 -BYTE # 33 -PORT # 177 -BYTE # 34 -PORT # 177 -BYTE # 35 -PORT # 177 -BYTE # 36 -PORT # 177 -BYTE # 37 -PORT # 177 -BYTE # 38 -PORT # 177 -BYTE # 39 -PORT # 177 -BYTE # 40 -PORT # 177 -BYTE # 41 -PORT # 177 -BYTE # 42 -PORT # 177 -BYTE # 43 -PORT # 177 -BYTE # 44 -PORT # 177 -BYTE # 45 -PORT # 177 -BYTE # 46 -PORT # 177 -BYTE # 47 -PORT # 177 -BYTE # 48 -PORT # 177 -BYTE # 49 -PORT # 177 -BYTE # 50 -PORT # 177 -BYTE # 51 -PORT # 177 -BYTE # 52 -PORT # 177 -BYTE # 53 -PORT # 177 -BYTE # 54 -PORT # 177 -BYTE # 55 -PORT # 177 -BYTE # 56 -PORT # 177 -BYTE # 57 -PORT # 177 -BYTE # 58 -PORT # 177 -BYTE # 59 -PORT # 177 -BYTE # 60 -PORT # 177 -BYTE # 61 -PORT # 177 -BYTE # 62 -PORT # 177 -BYTE # 63 -PORT # 177 -BYTE # 64 -PORT # 177 -BYTE # 65 -PORT # 177 -BYTE # 66 -PORT # 177 -BYTE # 67 -PORT # 177 -BYTE # 68 -PORT # 177 -BYTE # 69 -PORT # 177 -BYTE # 70 -PORT # 177 -BYTE # 71 -PORT # 177 -BYTE # 72 -PORT # 177 -BYTE # 73 -PORT # 177 -BYTE # 74 -PORT # 177 -BYTE # 75 -PORT # 177 -BYTE # 76 -PORT # 177 -BYTE # 77 -PORT # 177 -BYTE # 78 -PORT # 177 -BYTE # 79 -PORT # 177 -BYTE # 80 -PORT # 177 -BYTE # 81 -PORT # 177 -BYTE # 82 -PORT # 177 -BYTE # 83 -PORT # 177 -BYTE # 84 -PORT # 177 -BYTE # 85 -PORT # 177 -BYTE # 86 -PORT # 177 -BYTE # 87 -PORT # 177 -BYTE # 88 -PORT # 177 -BYTE # 89 -PORT # 177 -BYTE # 90 -PORT # 177 -BYTE # 91 -PORT # 177 -BYTE # 92 -PORT # 177 -BYTE # 93 -PORT # 177 -BYTE # 94 -PORT # 177 -BYTE # 95 -PORT # 177 -BYTE # 96 -PORT # 177 -BYTE # 97 -PORT # 177 -BYTE # 98 -PORT # 177 -BYTE # 99 -PORT # 177 -BYTE # 100 -PORT # 177 -BYTE # 101 -PORT # 177 -BYTE # 102 -PORT # 177 -BYTE # 103 -PORT # 177 -BYTE # 104 -PORT # 177 -BYTE # 105 -PORT # 177 -BYTE # 106 -PORT # 177 -BYTE # 107 -PORT # 177 -BYTE # 108 -PORT # 177 -BYTE # 109 -PORT # 177 -BYTE # 110 -PORT # 177 -BYTE # 111 -PORT # 177 -BYTE # 112 -PORT # 177 -BYTE # 113 -PORT # 177 -BYTE # 114 -PORT # 177 -BYTE # 115 -PORT # 177 -BYTE # 116 -PORT # 177 -BYTE # 117 -PORT # 177 -BYTE # 118 -PORT # 177 -BYTE # 119 -PORT # 177 -BYTE # 120 -PORT # 177 -BYTE # 121 -PORT # 177 -BYTE # 122 -PORT # 177 -BYTE # 123 -PORT # 177 -BYTE # 124 -PORT # 177 -BYTE # 125 -PORT # 177 -BYTE # 126 -PORT # 177 -BYTE # 127 -PORT # 177 -BYTE # 128 -PORT # 177 -BYTE # 129 -PORT # 177 -BYTE # 130 -PORT # 177 -BYTE # 131 -PORT # 177 -BYTE # 132 -PORT # 177 -BYTE # 133 -PORT # 177 -BYTE # 134 -PORT # 177 -BYTE # 135 -PORT # 177 -BYTE # 136 -PORT # 177 -BYTE # 137 -PORT # 177 -BYTE # 138 -PORT # 177 -BYTE # 139 -PORT # 177 -BYTE # 140 -PORT # 177 -BYTE # 141 -PORT # 177 -BYTE # 142 -PORT # 177 -BYTE # 143 -PORT # 177 -BYTE # 144 -PORT # 177 -BYTE # 145 -PORT # 177 -BYTE # 146 -PORT # 177 -BYTE # 147 -PORT # 177 -BYTE # 148 -PORT # 177 -BYTE # 149 -PORT # 177 -BYTE # 150 -PORT # 177 -BYTE # 151 -PORT # 177 -BYTE # 152 -PORT # 177 -BYTE # 153 -PORT # 177 -BYTE # 154 -PORT # 177 -BYTE # 155 -PORT # 177 -BYTE # 156 -PORT # 177 -BYTE # 157 -PORT # 177 -BYTE # 158 -PORT # 177 -BYTE # 159 -PORT # 177 -BYTE # 160 -PORT # 177 -BYTE # 161 -PORT # 177 -BYTE # 162 -PORT # 177 -BYTE # 163 -PORT # 177 -BYTE # 164 -PORT # 177 -BYTE # 165 -PORT # 177 -BYTE # 166 -PORT # 177 -BYTE # 167 -PORT # 177 -BYTE # 168 -PORT # 177 -BYTE # 169 -PORT # 177 -BYTE # 170 -PORT # 177 -BYTE # 171 -PORT # 177 -BYTE # 172 -PORT # 177 -BYTE # 173 -PORT # 177 -BYTE # 174 -PORT # 177 -BYTE # 175 -PORT # 177 -BYTE # 176 -PORT # 177 -BYTE # 177 -PORT # 177 -BYTE # 178 -PORT # 177 -BYTE # 179 -PORT # 177 -BYTE # 180 -PORT # 177 -BYTE # 181 -PORT # 177 -BYTE # 182 -PORT # 177 -BYTE # 183 -PORT # 177 -BYTE # 184 -PORT # 177 -BYTE # 185 -PORT # 177 -BYTE # 186 -PORT # 177 -BYTE # 187 -PORT # 177 -BYTE # 188 -PORT # 177 -BYTE # 189 -PORT # 177 -BYTE # 190 -PORT # 177 -BYTE # 191 -PORT # 177 -BYTE # 192 -PORT # 177 -BYTE # 193 -PORT # 177 -BYTE # 194 -PORT # 177 -BYTE # 195 -PORT # 177 -BYTE # 196 -PORT # 177 -BYTE # 197 -PORT # 177 -BYTE # 198 -PORT # 177 -BYTE # 199 -PORT # 177 -BYTE # 200 -PORT # 177 -BYTE # 201 -PORT # 177 -BYTE # 202 -PORT # 177 -BYTE # 203 -PORT # 177 -BYTE # 204 -PORT # 177 -BYTE # 205 -PORT # 177 -BYTE # 206 -PORT # 177 -BYTE # 207 -PORT # 177 -BYTE # 208 -PORT # 177 -BYTE # 209 -PORT # 177 -BYTE # 210 -PORT # 177 -BYTE # 211 -PORT # 177 -BYTE # 212 -PORT # 177 -BYTE # 213 -PORT # 177 -BYTE # 214 -PORT # 177 -BYTE # 215 -PORT # 177 -BYTE # 216 -PORT # 177 -BYTE # 217 -PORT # 177 -BYTE # 218 -PORT # 177 -BYTE # 219 -PORT # 177 -BYTE # 220 -PORT # 177 -BYTE # 221 -PORT # 177 -BYTE # 222 -PORT # 177 -BYTE # 223 -PORT # 177 -BYTE # 224 -PORT # 177 -BYTE # 225 -PORT # 177 -BYTE # 226 -PORT # 177 -BYTE # 227 -PORT # 177 -BYTE # 228 -PORT # 177 -BYTE # 229 -PORT # 177 -BYTE # 230 -PORT # 177 -BYTE # 231 -PORT # 177 -BYTE # 232 -PORT # 177 -BYTE # 233 -PORT # 177 -BYTE # 234 -PORT # 177 -BYTE # 235 -PORT # 177 -BYTE # 236 -PORT # 177 -BYTE # 237 -PORT # 177 -BYTE # 238 -PORT # 177 -BYTE # 239 -PORT # 177 -BYTE # 240 -PORT # 177 -BYTE # 241 -PORT # 177 -BYTE # 242 -PORT # 177 -BYTE # 243 -PORT # 177 -BYTE # 244 -PORT # 177 -BYTE # 245 -PORT # 177 -BYTE # 246 -PORT # 177 -BYTE # 247 -PORT # 177 -BYTE # 248 -PORT # 177 -BYTE # 249 -PORT # 177 -BYTE # 250 -PORT # 177 -BYTE # 251 -PORT # 177 -BYTE # 252 -PORT # 177 -BYTE # 253 -PORT # 177 -BYTE # 254 -PORT # 177 -BYTE # 255 -PORT # 178 -BYTE # 0 -PORT # 178 -BYTE # 1 -PORT # 178 -BYTE # 2 -PORT # 178 -BYTE # 3 -PORT # 178 -BYTE # 4 -PORT # 178 -BYTE # 5 -PORT # 178 -BYTE # 6 -PORT # 178 -BYTE # 7 -PORT # 178 -BYTE # 8 -PORT # 178 -BYTE # 9 -PORT # 178 -BYTE # 10 -PORT # 178 -BYTE # 11 -PORT # 178 -BYTE # 12 -PORT # 178 -BYTE # 13 -PORT # 178 -BYTE # 14 -PORT # 178 -BYTE # 15 -PORT # 178 -BYTE # 16 -PORT # 178 -BYTE # 17 -PORT # 178 -BYTE # 18 -PORT # 178 -BYTE # 19 -PORT # 178 -BYTE # 20 -PORT # 178 -BYTE # 21 -PORT # 178 -BYTE # 22 -PORT # 178 -BYTE # 23 -PORT # 178 -BYTE # 24 -PORT # 178 -BYTE # 25 -PORT # 178 -BYTE # 26 -PORT # 178 -BYTE # 27 -PORT # 178 -BYTE # 28 -PORT # 178 -BYTE # 29 -PORT # 178 -BYTE # 30 -PORT # 178 -BYTE # 31 -PORT # 178 -BYTE # 32 -PORT # 178 -BYTE # 33 -PORT # 178 -BYTE # 34 -PORT # 178 -BYTE # 35 -PORT # 178 -BYTE # 36 -PORT # 178 -BYTE # 37 -PORT # 178 -BYTE # 38 -PORT # 178 -BYTE # 39 -PORT # 178 -BYTE # 40 -PORT # 178 -BYTE # 41 -PORT # 178 -BYTE # 42 -PORT # 178 -BYTE # 43 -PORT # 178 -BYTE # 44 -PORT # 178 -BYTE # 45 -PORT # 178 -BYTE # 46 -PORT # 178 -BYTE # 47 -PORT # 178 -BYTE # 48 -PORT # 178 -BYTE # 49 -PORT # 178 -BYTE # 50 -PORT # 178 -BYTE # 51 -PORT # 178 -BYTE # 52 -PORT # 178 -BYTE # 53 -PORT # 178 -BYTE # 54 -PORT # 178 -BYTE # 55 -PORT # 178 -BYTE # 56 -PORT # 178 -BYTE # 57 -PORT # 178 -BYTE # 58 -PORT # 178 -BYTE # 59 -PORT # 178 -BYTE # 60 -PORT # 178 -BYTE # 61 -PORT # 178 -BYTE # 62 -PORT # 178 -BYTE # 63 -PORT # 178 -BYTE # 64 -PORT # 178 -BYTE # 65 -PORT # 178 -BYTE # 66 -PORT # 178 -BYTE # 67 -PORT # 178 -BYTE # 68 -PORT # 178 -BYTE # 69 -PORT # 178 -BYTE # 70 -PORT # 178 -BYTE # 71 -PORT # 178 -BYTE # 72 -PORT # 178 -BYTE # 73 -PORT # 178 -BYTE # 74 -PORT # 178 -BYTE # 75 -PORT # 178 -BYTE # 76 -PORT # 178 -BYTE # 77 -PORT # 178 -BYTE # 78 -PORT # 178 -BYTE # 79 -PORT # 178 -BYTE # 80 -PORT # 178 -BYTE # 81 -PORT # 178 -BYTE # 82 -PORT # 178 -BYTE # 83 -PORT # 178 -BYTE # 84 -PORT # 178 -BYTE # 85 -PORT # 178 -BYTE # 86 -PORT # 178 -BYTE # 87 -PORT # 178 -BYTE # 88 -PORT # 178 -BYTE # 89 -PORT # 178 -BYTE # 90 -PORT # 178 -BYTE # 91 -PORT # 178 -BYTE # 92 -PORT # 178 -BYTE # 93 -PORT # 178 -BYTE # 94 -PORT # 178 -BYTE # 95 -PORT # 178 -BYTE # 96 -PORT # 178 -BYTE # 97 -PORT # 178 -BYTE # 98 -PORT # 178 -BYTE # 99 -PORT # 178 -BYTE # 100 -PORT # 178 -BYTE # 101 -PORT # 178 -BYTE # 102 -PORT # 178 -BYTE # 103 -PORT # 178 -BYTE # 104 -PORT # 178 -BYTE # 105 -PORT # 178 -BYTE # 106 -PORT # 178 -BYTE # 107 -PORT # 178 -BYTE # 108 -PORT # 178 -BYTE # 109 -PORT # 178 -BYTE # 110 -PORT # 178 -BYTE # 111 -PORT # 178 -BYTE # 112 -PORT # 178 -BYTE # 113 -PORT # 178 -BYTE # 114 -PORT # 178 -BYTE # 115 -PORT # 178 -BYTE # 116 -PORT # 178 -BYTE # 117 -PORT # 178 -BYTE # 118 -PORT # 178 -BYTE # 119 -PORT # 178 -BYTE # 120 -PORT # 178 -BYTE # 121 -PORT # 178 -BYTE # 122 -PORT # 178 -BYTE # 123 -PORT # 178 -BYTE # 124 -PORT # 178 -BYTE # 125 -PORT # 178 -BYTE # 126 -PORT # 178 -BYTE # 127 -PORT # 178 -BYTE # 128 -PORT # 178 -BYTE # 129 -PORT # 178 -BYTE # 130 -PORT # 178 -BYTE # 131 -PORT # 178 -BYTE # 132 -PORT # 178 -BYTE # 133 -PORT # 178 -BYTE # 134 -PORT # 178 -BYTE # 135 -PORT # 178 -BYTE # 136 -PORT # 178 -BYTE # 137 -PORT # 178 -BYTE # 138 -PORT # 178 -BYTE # 139 -PORT # 178 -BYTE # 140 -PORT # 178 -BYTE # 141 -PORT # 178 -BYTE # 142 -PORT # 178 -BYTE # 143 -PORT # 178 -BYTE # 144 -PORT # 178 -BYTE # 145 -PORT # 178 -BYTE # 146 -PORT # 178 -BYTE # 147 -PORT # 178 -BYTE # 148 -PORT # 178 -BYTE # 149 -PORT # 178 -BYTE # 150 -PORT # 178 -BYTE # 151 -PORT # 178 -BYTE # 152 -PORT # 178 -BYTE # 153 -PORT # 178 -BYTE # 154 -PORT # 178 -BYTE # 155 -PORT # 178 -BYTE # 156 -PORT # 178 -BYTE # 157 -PORT # 178 -BYTE # 158 -PORT # 178 -BYTE # 159 -PORT # 178 -BYTE # 160 -PORT # 178 -BYTE # 161 -PORT # 178 -BYTE # 162 -PORT # 178 -BYTE # 163 -PORT # 178 -BYTE # 164 -PORT # 178 -BYTE # 165 -PORT # 178 -BYTE # 166 -PORT # 178 -BYTE # 167 -PORT # 178 -BYTE # 168 -PORT # 178 -BYTE # 169 -PORT # 178 -BYTE # 170 -PORT # 178 -BYTE # 171 -PORT # 178 -BYTE # 172 -PORT # 178 -BYTE # 173 -PORT # 178 -BYTE # 174 -PORT # 178 -BYTE # 175 -PORT # 178 -BYTE # 176 -PORT # 178 -BYTE # 177 -PORT # 178 -BYTE # 178 -PORT # 178 -BYTE # 179 -PORT # 178 -BYTE # 180 -PORT # 178 -BYTE # 181 -PORT # 178 -BYTE # 182 -PORT # 178 -BYTE # 183 -PORT # 178 -BYTE # 184 -PORT # 178 -BYTE # 185 -PORT # 178 -BYTE # 186 -PORT # 178 -BYTE # 187 -PORT # 178 -BYTE # 188 -PORT # 178 -BYTE # 189 -PORT # 178 -BYTE # 190 -PORT # 178 -BYTE # 191 -PORT # 178 -BYTE # 192 -PORT # 178 -BYTE # 193 -PORT # 178 -BYTE # 194 -PORT # 178 -BYTE # 195 -PORT # 178 -BYTE # 196 -PORT # 178 -BYTE # 197 -PORT # 178 -BYTE # 198 -PORT # 178 -BYTE # 199 -PORT # 178 -BYTE # 200 -PORT # 178 -BYTE # 201 -PORT # 178 -BYTE # 202 -PORT # 178 -BYTE # 203 -PORT # 178 -BYTE # 204 -PORT # 178 -BYTE # 205 -PORT # 178 -BYTE # 206 -PORT # 178 -BYTE # 207 -PORT # 178 -BYTE # 208 -PORT # 178 -BYTE # 209 -PORT # 178 -BYTE # 210 -PORT # 178 -BYTE # 211 -PORT # 178 -BYTE # 212 -PORT # 178 -BYTE # 213 -PORT # 178 -BYTE # 214 -PORT # 178 -BYTE # 215 -PORT # 178 -BYTE # 216 -PORT # 178 -BYTE # 217 -PORT # 178 -BYTE # 218 -PORT # 178 -BYTE # 219 -PORT # 178 -BYTE # 220 -PORT # 178 -BYTE # 221 -PORT # 178 -BYTE # 222 -PORT # 178 -BYTE # 223 -PORT # 178 -BYTE # 224 -PORT # 178 -BYTE # 225 -PORT # 178 -BYTE # 226 -PORT # 178 -BYTE # 227 -PORT # 178 -BYTE # 228 -PORT # 178 -BYTE # 229 -PORT # 178 -BYTE # 230 -PORT # 178 -BYTE # 231 -PORT # 178 -BYTE # 232 -PORT # 178 -BYTE # 233 -PORT # 178 -BYTE # 234 -PORT # 178 -BYTE # 235 -PORT # 178 -BYTE # 236 -PORT # 178 -BYTE # 237 -PORT # 178 -BYTE # 238 -PORT # 178 -BYTE # 239 -PORT # 178 -BYTE # 240 -PORT # 178 -BYTE # 241 -PORT # 178 -BYTE # 242 -PORT # 178 -BYTE # 243 -PORT # 178 -BYTE # 244 -PORT # 178 -BYTE # 245 -PORT # 178 -BYTE # 246 -PORT # 178 -BYTE # 247 -PORT # 178 -BYTE # 248 -PORT # 178 -BYTE # 249 -PORT # 178 -BYTE # 250 -PORT # 178 -BYTE # 251 -PORT # 178 -BYTE # 252 -PORT # 178 -BYTE # 253 -PORT # 178 -BYTE # 254 -PORT # 178 -BYTE # 255 -PORT # 179 -BYTE # 0 -PORT # 179 -BYTE # 1 -PORT # 179 -BYTE # 2 -PORT # 179 -BYTE # 3 -PORT # 179 -BYTE # 4 -PORT # 179 -BYTE # 5 -PORT # 179 -BYTE # 6 -PORT # 179 -BYTE # 7 -PORT # 179 -BYTE # 8 -PORT # 179 -BYTE # 9 -PORT # 179 -BYTE # 10 -PORT # 179 -BYTE # 11 -PORT # 179 -BYTE # 12 -PORT # 179 -BYTE # 13 -PORT # 179 -BYTE # 14 -PORT # 179 -BYTE # 15 -PORT # 179 -BYTE # 16 -PORT # 179 -BYTE # 17 -PORT # 179 -BYTE # 18 -PORT # 179 -BYTE # 19 -PORT # 179 -BYTE # 20 -PORT # 179 -BYTE # 21 -PORT # 179 -BYTE # 22 -PORT # 179 -BYTE # 23 -PORT # 179 -BYTE # 24 -PORT # 179 -BYTE # 25 -PORT # 179 -BYTE # 26 -PORT # 179 -BYTE # 27 -PORT # 179 -BYTE # 28 -PORT # 179 -BYTE # 29 -PORT # 179 -BYTE # 30 -PORT # 179 -BYTE # 31 -PORT # 179 -BYTE # 32 -PORT # 179 -BYTE # 33 -PORT # 179 -BYTE # 34 -PORT # 179 -BYTE # 35 -PORT # 179 -BYTE # 36 -PORT # 179 -BYTE # 37 -PORT # 179 -BYTE # 38 -PORT # 179 -BYTE # 39 -PORT # 179 -BYTE # 40 -PORT # 179 -BYTE # 41 -PORT # 179 -BYTE # 42 -PORT # 179 -BYTE # 43 -PORT # 179 -BYTE # 44 -PORT # 179 -BYTE # 45 -PORT # 179 -BYTE # 46 -PORT # 179 -BYTE # 47 -PORT # 179 -BYTE # 48 -PORT # 179 -BYTE # 49 -PORT # 179 -BYTE # 50 -PORT # 179 -BYTE # 51 -PORT # 179 -BYTE # 52 -PORT # 179 -BYTE # 53 -PORT # 179 -BYTE # 54 -PORT # 179 -BYTE # 55 -PORT # 179 -BYTE # 56 -PORT # 179 -BYTE # 57 -PORT # 179 -BYTE # 58 -PORT # 179 -BYTE # 59 -PORT # 179 -BYTE # 60 -PORT # 179 -BYTE # 61 -PORT # 179 -BYTE # 62 -PORT # 179 -BYTE # 63 -PORT # 179 -BYTE # 64 -PORT # 179 -BYTE # 65 -PORT # 179 -BYTE # 66 -PORT # 179 -BYTE # 67 -PORT # 179 -BYTE # 68 -PORT # 179 -BYTE # 69 -PORT # 179 -BYTE # 70 -PORT # 179 -BYTE # 71 -PORT # 179 -BYTE # 72 -PORT # 179 -BYTE # 73 -PORT # 179 -BYTE # 74 -PORT # 179 -BYTE # 75 -PORT # 179 -BYTE # 76 -PORT # 179 -BYTE # 77 -PORT # 179 -BYTE # 78 -PORT # 179 -BYTE # 79 -PORT # 179 -BYTE # 80 -PORT # 179 -BYTE # 81 -PORT # 179 -BYTE # 82 -PORT # 179 -BYTE # 83 -PORT # 179 -BYTE # 84 -PORT # 179 -BYTE # 85 -PORT # 179 -BYTE # 86 -PORT # 179 -BYTE # 87 -PORT # 179 -BYTE # 88 -PORT # 179 -BYTE # 89 -PORT # 179 -BYTE # 90 -PORT # 179 -BYTE # 91 -PORT # 179 -BYTE # 92 -PORT # 179 -BYTE # 93 -PORT # 179 -BYTE # 94 -PORT # 179 -BYTE # 95 -PORT # 179 -BYTE # 96 -PORT # 179 -BYTE # 97 -PORT # 179 -BYTE # 98 -PORT # 179 -BYTE # 99 -PORT # 179 -BYTE # 100 -PORT # 179 -BYTE # 101 -PORT # 179 -BYTE # 102 -PORT # 179 -BYTE # 103 -PORT # 179 -BYTE # 104 -PORT # 179 -BYTE # 105 -PORT # 179 -BYTE # 106 -PORT # 179 -BYTE # 107 -PORT # 179 -BYTE # 108 -PORT # 179 -BYTE # 109 -PORT # 179 -BYTE # 110 -PORT # 179 -BYTE # 111 -PORT # 179 -BYTE # 112 -PORT # 179 -BYTE # 113 -PORT # 179 -BYTE # 114 -PORT # 179 -BYTE # 115 -PORT # 179 -BYTE # 116 -PORT # 179 -BYTE # 117 -PORT # 179 -BYTE # 118 -PORT # 179 -BYTE # 119 -PORT # 179 -BYTE # 120 -PORT # 179 -BYTE # 121 -PORT # 179 -BYTE # 122 -PORT # 179 -BYTE # 123 -PORT # 179 -BYTE # 124 -PORT # 179 -BYTE # 125 -PORT # 179 -BYTE # 126 -PORT # 179 -BYTE # 127 -PORT # 179 -BYTE # 128 -PORT # 179 -BYTE # 129 -PORT # 179 -BYTE # 130 -PORT # 179 -BYTE # 131 -PORT # 179 -BYTE # 132 -PORT # 179 -BYTE # 133 -PORT # 179 -BYTE # 134 -PORT # 179 -BYTE # 135 -PORT # 179 -BYTE # 136 -PORT # 179 -BYTE # 137 -PORT # 179 -BYTE # 138 -PORT # 179 -BYTE # 139 -PORT # 179 -BYTE # 140 -PORT # 179 -BYTE # 141 -PORT # 179 -BYTE # 142 -PORT # 179 -BYTE # 143 -PORT # 179 -BYTE # 144 -PORT # 179 -BYTE # 145 -PORT # 179 -BYTE # 146 -PORT # 179 -BYTE # 147 -PORT # 179 -BYTE # 148 -PORT # 179 -BYTE # 149 -PORT # 179 -BYTE # 150 -PORT # 179 -BYTE # 151 -PORT # 179 -BYTE # 152 -PORT # 179 -BYTE # 153 -PORT # 179 -BYTE # 154 -PORT # 179 -BYTE # 155 -PORT # 179 -BYTE # 156 -PORT # 179 -BYTE # 157 -PORT # 179 -BYTE # 158 -PORT # 179 -BYTE # 159 -PORT # 179 -BYTE # 160 -PORT # 179 -BYTE # 161 -PORT # 179 -BYTE # 162 -PORT # 179 -BYTE # 163 -PORT # 179 -BYTE # 164 -PORT # 179 -BYTE # 165 -PORT # 179 -BYTE # 166 -PORT # 179 -BYTE # 167 -PORT # 179 -BYTE # 168 -PORT # 179 -BYTE # 169 -PORT # 179 -BYTE # 170 -PORT # 179 -BYTE # 171 -PORT # 179 -BYTE # 172 -PORT # 179 -BYTE # 173 -PORT # 179 -BYTE # 174 -PORT # 179 -BYTE # 175 -PORT # 179 -BYTE # 176 -PORT # 179 -BYTE # 177 -PORT # 179 -BYTE # 178 -PORT # 179 -BYTE # 179 -PORT # 179 -BYTE # 180 -PORT # 179 -BYTE # 181 -PORT # 179 -BYTE # 182 -PORT # 179 -BYTE # 183 -PORT # 179 -BYTE # 184 -PORT # 179 -BYTE # 185 -PORT # 179 -BYTE # 186 -PORT # 179 -BYTE # 187 -PORT # 179 -BYTE # 188 -PORT # 179 -BYTE # 189 -PORT # 179 -BYTE # 190 -PORT # 179 -BYTE # 191 -PORT # 179 -BYTE # 192 -PORT # 179 -BYTE # 193 -PORT # 179 -BYTE # 194 -PORT # 179 -BYTE # 195 -PORT # 179 -BYTE # 196 -PORT # 179 -BYTE # 197 -PORT # 179 -BYTE # 198 -PORT # 179 -BYTE # 199 -PORT # 179 -BYTE # 200 -PORT # 179 -BYTE # 201 -PORT # 179 -BYTE # 202 -PORT # 179 -BYTE # 203 -PORT # 179 -BYTE # 204 -PORT # 179 -BYTE # 205 -PORT # 179 -BYTE # 206 -PORT # 179 -BYTE # 207 -PORT # 179 -BYTE # 208 -PORT # 179 -BYTE # 209 -PORT # 179 -BYTE # 210 -PORT # 179 -BYTE # 211 -PORT # 179 -BYTE # 212 -PORT # 179 -BYTE # 213 -PORT # 179 -BYTE # 214 -PORT # 179 -BYTE # 215 -PORT # 179 -BYTE # 216 -PORT # 179 -BYTE # 217 -PORT # 179 -BYTE # 218 -PORT # 179 -BYTE # 219 -PORT # 179 -BYTE # 220 -PORT # 179 -BYTE # 221 -PORT # 179 -BYTE # 222 -PORT # 179 -BYTE # 223 -PORT # 179 -BYTE # 224 -PORT # 179 -BYTE # 225 -PORT # 179 -BYTE # 226 -PORT # 179 -BYTE # 227 -PORT # 179 -BYTE # 228 -PORT # 179 -BYTE # 229 -PORT # 179 -BYTE # 230 -PORT # 179 -BYTE # 231 -PORT # 179 -BYTE # 232 -PORT # 179 -BYTE # 233 -PORT # 179 -BYTE # 234 -PORT # 179 -BYTE # 235 -PORT # 179 -BYTE # 236 -PORT # 179 -BYTE # 237 -PORT # 179 -BYTE # 238 -PORT # 179 -BYTE # 239 -PORT # 179 -BYTE # 240 -PORT # 179 -BYTE # 241 -PORT # 179 -BYTE # 242 -PORT # 179 -BYTE # 243 -PORT # 179 -BYTE # 244 -PORT # 179 -BYTE # 245 -PORT # 179 -BYTE # 246 -PORT # 179 -BYTE # 247 -PORT # 179 -BYTE # 248 -PORT # 179 -BYTE # 249 -PORT # 179 -BYTE # 250 -PORT # 179 -BYTE # 251 -PORT # 179 -BYTE # 252 -PORT # 179 -BYTE # 253 -PORT # 179 -BYTE # 254 -PORT # 179 -BYTE # 255 -PORT # 180 -BYTE # 0 -PORT # 180 -BYTE # 1 -PORT # 180 -BYTE # 2 -PORT # 180 -BYTE # 3 -PORT # 180 -BYTE # 4 -PORT # 180 -BYTE # 5 -PORT # 180 -BYTE # 6 -PORT # 180 -BYTE # 7 -PORT # 180 -BYTE # 8 -PORT # 180 -BYTE # 9 -PORT # 180 -BYTE # 10 -PORT # 180 -BYTE # 11 -PORT # 180 -BYTE # 12 -PORT # 180 -BYTE # 13 -PORT # 180 -BYTE # 14 -PORT # 180 -BYTE # 15 -PORT # 180 -BYTE # 16 -PORT # 180 -BYTE # 17 -PORT # 180 -BYTE # 18 -PORT # 180 -BYTE # 19 -PORT # 180 -BYTE # 20 -PORT # 180 -BYTE # 21 -PORT # 180 -BYTE # 22 -PORT # 180 -BYTE # 23 -PORT # 180 -BYTE # 24 -PORT # 180 -BYTE # 25 -PORT # 180 -BYTE # 26 -PORT # 180 -BYTE # 27 -PORT # 180 -BYTE # 28 -PORT # 180 -BYTE # 29 -PORT # 180 -BYTE # 30 -PORT # 180 -BYTE # 31 -PORT # 180 -BYTE # 32 -PORT # 180 -BYTE # 33 -PORT # 180 -BYTE # 34 -PORT # 180 -BYTE # 35 -PORT # 180 -BYTE # 36 -PORT # 180 -BYTE # 37 -PORT # 180 -BYTE # 38 -PORT # 180 -BYTE # 39 -PORT # 180 -BYTE # 40 -PORT # 180 -BYTE # 41 -PORT # 180 -BYTE # 42 -PORT # 180 -BYTE # 43 -PORT # 180 -BYTE # 44 -PORT # 180 -BYTE # 45 -PORT # 180 -BYTE # 46 -PORT # 180 -BYTE # 47 -PORT # 180 -BYTE # 48 -PORT # 180 -BYTE # 49 -PORT # 180 -BYTE # 50 -PORT # 180 -BYTE # 51 -PORT # 180 -BYTE # 52 -PORT # 180 -BYTE # 53 -PORT # 180 -BYTE # 54 -PORT # 180 -BYTE # 55 -PORT # 180 -BYTE # 56 -PORT # 180 -BYTE # 57 -PORT # 180 -BYTE # 58 -PORT # 180 -BYTE # 59 -PORT # 180 -BYTE # 60 -PORT # 180 -BYTE # 61 -PORT # 180 -BYTE # 62 -PORT # 180 -BYTE # 63 -PORT # 180 -BYTE # 64 -PORT # 180 -BYTE # 65 -PORT # 180 -BYTE # 66 -PORT # 180 -BYTE # 67 -PORT # 180 -BYTE # 68 -PORT # 180 -BYTE # 69 -PORT # 180 -BYTE # 70 -PORT # 180 -BYTE # 71 -PORT # 180 -BYTE # 72 -PORT # 180 -BYTE # 73 -PORT # 180 -BYTE # 74 -PORT # 180 -BYTE # 75 -PORT # 180 -BYTE # 76 -PORT # 180 -BYTE # 77 -PORT # 180 -BYTE # 78 -PORT # 180 -BYTE # 79 -PORT # 180 -BYTE # 80 -PORT # 180 -BYTE # 81 -PORT # 180 -BYTE # 82 -PORT # 180 -BYTE # 83 -PORT # 180 -BYTE # 84 -PORT # 180 -BYTE # 85 -PORT # 180 -BYTE # 86 -PORT # 180 -BYTE # 87 -PORT # 180 -BYTE # 88 -PORT # 180 -BYTE # 89 -PORT # 180 -BYTE # 90 -PORT # 180 -BYTE # 91 -PORT # 180 -BYTE # 92 -PORT # 180 -BYTE # 93 -PORT # 180 -BYTE # 94 -PORT # 180 -BYTE # 95 -PORT # 180 -BYTE # 96 -PORT # 180 -BYTE # 97 -PORT # 180 -BYTE # 98 -PORT # 180 -BYTE # 99 -PORT # 180 -BYTE # 100 -PORT # 180 -BYTE # 101 -PORT # 180 -BYTE # 102 -PORT # 180 -BYTE # 103 -PORT # 180 -BYTE # 104 -PORT # 180 -BYTE # 105 -PORT # 180 -BYTE # 106 -PORT # 180 -BYTE # 107 -PORT # 180 -BYTE # 108 -PORT # 180 -BYTE # 109 -PORT # 180 -BYTE # 110 -PORT # 180 -BYTE # 111 -PORT # 180 -BYTE # 112 -PORT # 180 -BYTE # 113 -PORT # 180 -BYTE # 114 -PORT # 180 -BYTE # 115 -PORT # 180 -BYTE # 116 -PORT # 180 -BYTE # 117 -PORT # 180 -BYTE # 118 -PORT # 180 -BYTE # 119 -PORT # 180 -BYTE # 120 -PORT # 180 -BYTE # 121 -PORT # 180 -BYTE # 122 -PORT # 180 -BYTE # 123 -PORT # 180 -BYTE # 124 -PORT # 180 -BYTE # 125 -PORT # 180 -BYTE # 126 -PORT # 180 -BYTE # 127 -PORT # 180 -BYTE # 128 -PORT # 180 -BYTE # 129 -PORT # 180 -BYTE # 130 -PORT # 180 -BYTE # 131 -PORT # 180 -BYTE # 132 -PORT # 180 -BYTE # 133 -PORT # 180 -BYTE # 134 -PORT # 180 -BYTE # 135 -PORT # 180 -BYTE # 136 -PORT # 180 -BYTE # 137 -PORT # 180 -BYTE # 138 -PORT # 180 -BYTE # 139 -PORT # 180 -BYTE # 140 -PORT # 180 -BYTE # 141 -PORT # 180 -BYTE # 142 -PORT # 180 -BYTE # 143 -PORT # 180 -BYTE # 144 -PORT # 180 -BYTE # 145 -PORT # 180 -BYTE # 146 -PORT # 180 -BYTE # 147 -PORT # 180 -BYTE # 148 -PORT # 180 -BYTE # 149 -PORT # 180 -BYTE # 150 -PORT # 180 -BYTE # 151 -PORT # 180 -BYTE # 152 -PORT # 180 -BYTE # 153 -PORT # 180 -BYTE # 154 -PORT # 180 -BYTE # 155 -PORT # 180 -BYTE # 156 -PORT # 180 -BYTE # 157 -PORT # 180 -BYTE # 158 -PORT # 180 -BYTE # 159 -PORT # 180 -BYTE # 160 -PORT # 180 -BYTE # 161 -PORT # 180 -BYTE # 162 -PORT # 180 -BYTE # 163 -PORT # 180 -BYTE # 164 -PORT # 180 -BYTE # 165 -PORT # 180 -BYTE # 166 -PORT # 180 -BYTE # 167 -PORT # 180 -BYTE # 168 -PORT # 180 -BYTE # 169 -PORT # 180 -BYTE # 170 -PORT # 180 -BYTE # 171 -PORT # 180 -BYTE # 172 -PORT # 180 -BYTE # 173 -PORT # 180 -BYTE # 174 -PORT # 180 -BYTE # 175 -PORT # 180 -BYTE # 176 -PORT # 180 -BYTE # 177 -PORT # 180 -BYTE # 178 -PORT # 180 -BYTE # 179 -PORT # 180 -BYTE # 180 -PORT # 180 -BYTE # 181 -PORT # 180 -BYTE # 182 -PORT # 180 -BYTE # 183 -PORT # 180 -BYTE # 184 -PORT # 180 -BYTE # 185 -PORT # 180 -BYTE # 186 -PORT # 180 -BYTE # 187 -PORT # 180 -BYTE # 188 -PORT # 180 -BYTE # 189 -PORT # 180 -BYTE # 190 -PORT # 180 -BYTE # 191 -PORT # 180 -BYTE # 192 -PORT # 180 -BYTE # 193 -PORT # 180 -BYTE # 194 -PORT # 180 -BYTE # 195 -PORT # 180 -BYTE # 196 -PORT # 180 -BYTE # 197 -PORT # 180 -BYTE # 198 -PORT # 180 -BYTE # 199 -PORT # 180 -BYTE # 200 -PORT # 180 -BYTE # 201 -PORT # 180 -BYTE # 202 -PORT # 180 -BYTE # 203 -PORT # 180 -BYTE # 204 -PORT # 180 -BYTE # 205 -PORT # 180 -BYTE # 206 -PORT # 180 -BYTE # 207 -PORT # 180 -BYTE # 208 -PORT # 180 -BYTE # 209 -PORT # 180 -BYTE # 210 -PORT # 180 -BYTE # 211 -PORT # 180 -BYTE # 212 -PORT # 180 -BYTE # 213 -PORT # 180 -BYTE # 214 -PORT # 180 -BYTE # 215 -PORT # 180 -BYTE # 216 -PORT # 180 -BYTE # 217 -PORT # 180 -BYTE # 218 -PORT # 180 -BYTE # 219 -PORT # 180 -BYTE # 220 -PORT # 180 -BYTE # 221 -PORT # 180 -BYTE # 222 -PORT # 180 -BYTE # 223 -PORT # 180 -BYTE # 224 -PORT # 180 -BYTE # 225 -PORT # 180 -BYTE # 226 -PORT # 180 -BYTE # 227 -PORT # 180 -BYTE # 228 -PORT # 180 -BYTE # 229 -PORT # 180 -BYTE # 230 -PORT # 180 -BYTE # 231 -PORT # 180 -BYTE # 232 -PORT # 180 -BYTE # 233 -PORT # 180 -BYTE # 234 -PORT # 180 -BYTE # 235 -PORT # 180 -BYTE # 236 -PORT # 180 -BYTE # 237 -PORT # 180 -BYTE # 238 -PORT # 180 -BYTE # 239 -PORT # 180 -BYTE # 240 -PORT # 180 -BYTE # 241 -PORT # 180 -BYTE # 242 -PORT # 180 -BYTE # 243 -PORT # 180 -BYTE # 244 -PORT # 180 -BYTE # 245 -PORT # 180 -BYTE # 246 -PORT # 180 -BYTE # 247 -PORT # 180 -BYTE # 248 -PORT # 180 -BYTE # 249 -PORT # 180 -BYTE # 250 -PORT # 180 -BYTE # 251 -PORT # 180 -BYTE # 252 -PORT # 180 -BYTE # 253 -PORT # 180 -BYTE # 254 -PORT # 180 -BYTE # 255 -PORT # 181 -BYTE # 0 -PORT # 181 -BYTE # 1 -PORT # 181 -BYTE # 2 -PORT # 181 -BYTE # 3 -PORT # 181 -BYTE # 4 -PORT # 181 -BYTE # 5 -PORT # 181 -BYTE # 6 -PORT # 181 -BYTE # 7 -PORT # 181 -BYTE # 8 -PORT # 181 -BYTE # 9 -PORT # 181 -BYTE # 10 -PORT # 181 -BYTE # 11 -PORT # 181 -BYTE # 12 -PORT # 181 -BYTE # 13 -PORT # 181 -BYTE # 14 -PORT # 181 -BYTE # 15 -PORT # 181 -BYTE # 16 -PORT # 181 -BYTE # 17 -PORT # 181 -BYTE # 18 -PORT # 181 -BYTE # 19 -PORT # 181 -BYTE # 20 -PORT # 181 -BYTE # 21 -PORT # 181 -BYTE # 22 -PORT # 181 -BYTE # 23 -PORT # 181 -BYTE # 24 -PORT # 181 -BYTE # 25 -PORT # 181 -BYTE # 26 -PORT # 181 -BYTE # 27 -PORT # 181 -BYTE # 28 -PORT # 181 -BYTE # 29 -PORT # 181 -BYTE # 30 -PORT # 181 -BYTE # 31 -PORT # 181 -BYTE # 32 -PORT # 181 -BYTE # 33 -PORT # 181 -BYTE # 34 -PORT # 181 -BYTE # 35 -PORT # 181 -BYTE # 36 -PORT # 181 -BYTE # 37 -PORT # 181 -BYTE # 38 -PORT # 181 -BYTE # 39 -PORT # 181 -BYTE # 40 -PORT # 181 -BYTE # 41 -PORT # 181 -BYTE # 42 -PORT # 181 -BYTE # 43 -PORT # 181 -BYTE # 44 -PORT # 181 -BYTE # 45 -PORT # 181 -BYTE # 46 -PORT # 181 -BYTE # 47 -PORT # 181 -BYTE # 48 -PORT # 181 -BYTE # 49 -PORT # 181 -BYTE # 50 -PORT # 181 -BYTE # 51 -PORT # 181 -BYTE # 52 -PORT # 181 -BYTE # 53 -PORT # 181 -BYTE # 54 -PORT # 181 -BYTE # 55 -PORT # 181 -BYTE # 56 -PORT # 181 -BYTE # 57 -PORT # 181 -BYTE # 58 -PORT # 181 -BYTE # 59 -PORT # 181 -BYTE # 60 -PORT # 181 -BYTE # 61 -PORT # 181 -BYTE # 62 -PORT # 181 -BYTE # 63 -PORT # 181 -BYTE # 64 -PORT # 181 -BYTE # 65 -PORT # 181 -BYTE # 66 -PORT # 181 -BYTE # 67 -PORT # 181 -BYTE # 68 -PORT # 181 -BYTE # 69 -PORT # 181 -BYTE # 70 -PORT # 181 -BYTE # 71 -PORT # 181 -BYTE # 72 -PORT # 181 -BYTE # 73 -PORT # 181 -BYTE # 74 -PORT # 181 -BYTE # 75 -PORT # 181 -BYTE # 76 -PORT # 181 -BYTE # 77 -PORT # 181 -BYTE # 78 -PORT # 181 -BYTE # 79 -PORT # 181 -BYTE # 80 -PORT # 181 -BYTE # 81 -PORT # 181 -BYTE # 82 -PORT # 181 -BYTE # 83 -PORT # 181 -BYTE # 84 -PORT # 181 -BYTE # 85 -PORT # 181 -BYTE # 86 -PORT # 181 -BYTE # 87 -PORT # 181 -BYTE # 88 -PORT # 181 -BYTE # 89 -PORT # 181 -BYTE # 90 -PORT # 181 -BYTE # 91 -PORT # 181 -BYTE # 92 -PORT # 181 -BYTE # 93 -PORT # 181 -BYTE # 94 -PORT # 181 -BYTE # 95 -PORT # 181 -BYTE # 96 -PORT # 181 -BYTE # 97 -PORT # 181 -BYTE # 98 -PORT # 181 -BYTE # 99 -PORT # 181 -BYTE # 100 -PORT # 181 -BYTE # 101 -PORT # 181 -BYTE # 102 -PORT # 181 -BYTE # 103 -PORT # 181 -BYTE # 104 -PORT # 181 -BYTE # 105 -PORT # 181 -BYTE # 106 -PORT # 181 -BYTE # 107 -PORT # 181 -BYTE # 108 -PORT # 181 -BYTE # 109 -PORT # 181 -BYTE # 110 -PORT # 181 -BYTE # 111 -PORT # 181 -BYTE # 112 -PORT # 181 -BYTE # 113 -PORT # 181 -BYTE # 114 -PORT # 181 -BYTE # 115 -PORT # 181 -BYTE # 116 -PORT # 181 -BYTE # 117 -PORT # 181 -BYTE # 118 -PORT # 181 -BYTE # 119 -PORT # 181 -BYTE # 120 -PORT # 181 -BYTE # 121 -PORT # 181 -BYTE # 122 -PORT # 181 -BYTE # 123 -PORT # 181 -BYTE # 124 -PORT # 181 -BYTE # 125 -PORT # 181 -BYTE # 126 -PORT # 181 -BYTE # 127 -PORT # 181 -BYTE # 128 -PORT # 181 -BYTE # 129 -PORT # 181 -BYTE # 130 -PORT # 181 -BYTE # 131 -PORT # 181 -BYTE # 132 -PORT # 181 -BYTE # 133 -PORT # 181 -BYTE # 134 -PORT # 181 -BYTE # 135 -PORT # 181 -BYTE # 136 -PORT # 181 -BYTE # 137 -PORT # 181 -BYTE # 138 -PORT # 181 -BYTE # 139 -PORT # 181 -BYTE # 140 -PORT # 181 -BYTE # 141 -PORT # 181 -BYTE # 142 -PORT # 181 -BYTE # 143 -PORT # 181 -BYTE # 144 -PORT # 181 -BYTE # 145 -PORT # 181 -BYTE # 146 -PORT # 181 -BYTE # 147 -PORT # 181 -BYTE # 148 -PORT # 181 -BYTE # 149 -PORT # 181 -BYTE # 150 -PORT # 181 -BYTE # 151 -PORT # 181 -BYTE # 152 -PORT # 181 -BYTE # 153 -PORT # 181 -BYTE # 154 -PORT # 181 -BYTE # 155 -PORT # 181 -BYTE # 156 -PORT # 181 -BYTE # 157 -PORT # 181 -BYTE # 158 -PORT # 181 -BYTE # 159 -PORT # 181 -BYTE # 160 -PORT # 181 -BYTE # 161 -PORT # 181 -BYTE # 162 -PORT # 181 -BYTE # 163 -PORT # 181 -BYTE # 164 -PORT # 181 -BYTE # 165 -PORT # 181 -BYTE # 166 -PORT # 181 -BYTE # 167 -PORT # 181 -BYTE # 168 -PORT # 181 -BYTE # 169 -PORT # 181 -BYTE # 170 -PORT # 181 -BYTE # 171 -PORT # 181 -BYTE # 172 -PORT # 181 -BYTE # 173 -PORT # 181 -BYTE # 174 -PORT # 181 -BYTE # 175 -PORT # 181 -BYTE # 176 -PORT # 181 -BYTE # 177 -PORT # 181 -BYTE # 178 -PORT # 181 -BYTE # 179 -PORT # 181 -BYTE # 180 -PORT # 181 -BYTE # 181 -PORT # 181 -BYTE # 182 -PORT # 181 -BYTE # 183 -PORT # 181 -BYTE # 184 -PORT # 181 -BYTE # 185 -PORT # 181 -BYTE # 186 -PORT # 181 -BYTE # 187 -PORT # 181 -BYTE # 188 -PORT # 181 -BYTE # 189 -PORT # 181 -BYTE # 190 -PORT # 181 -BYTE # 191 -PORT # 181 -BYTE # 192 -PORT # 181 -BYTE # 193 -PORT # 181 -BYTE # 194 -PORT # 181 -BYTE # 195 -PORT # 181 -BYTE # 196 -PORT # 181 -BYTE # 197 -PORT # 181 -BYTE # 198 -PORT # 181 -BYTE # 199 -PORT # 181 -BYTE # 200 -PORT # 181 -BYTE # 201 -PORT # 181 -BYTE # 202 -PORT # 181 -BYTE # 203 -PORT # 181 -BYTE # 204 -PORT # 181 -BYTE # 205 -PORT # 181 -BYTE # 206 -PORT # 181 -BYTE # 207 -PORT # 181 -BYTE # 208 -PORT # 181 -BYTE # 209 -PORT # 181 -BYTE # 210 -PORT # 181 -BYTE # 211 -PORT # 181 -BYTE # 212 -PORT # 181 -BYTE # 213 -PORT # 181 -BYTE # 214 -PORT # 181 -BYTE # 215 -PORT # 181 -BYTE # 216 -PORT # 181 -BYTE # 217 -PORT # 181 -BYTE # 218 -PORT # 181 -BYTE # 219 -PORT # 181 -BYTE # 220 -PORT # 181 -BYTE # 221 -PORT # 181 -BYTE # 222 -PORT # 181 -BYTE # 223 -PORT # 181 -BYTE # 224 -PORT # 181 -BYTE # 225 -PORT # 181 -BYTE # 226 -PORT # 181 -BYTE # 227 -PORT # 181 -BYTE # 228 -PORT # 181 -BYTE # 229 -PORT # 181 -BYTE # 230 -PORT # 181 -BYTE # 231 -PORT # 181 -BYTE # 232 -PORT # 181 -BYTE # 233 -PORT # 181 -BYTE # 234 -PORT # 181 -BYTE # 235 -PORT # 181 -BYTE # 236 -PORT # 181 -BYTE # 237 -PORT # 181 -BYTE # 238 -PORT # 181 -BYTE # 239 -PORT # 181 -BYTE # 240 -PORT # 181 -BYTE # 241 -PORT # 181 -BYTE # 242 -PORT # 181 -BYTE # 243 -PORT # 181 -BYTE # 244 -PORT # 181 -BYTE # 245 -PORT # 181 -BYTE # 246 -PORT # 181 -BYTE # 247 -PORT # 181 -BYTE # 248 -PORT # 181 -BYTE # 249 -PORT # 181 -BYTE # 250 -PORT # 181 -BYTE # 251 -PORT # 181 -BYTE # 252 -PORT # 181 -BYTE # 253 -PORT # 181 -BYTE # 254 -PORT # 181 -BYTE # 255 -PORT # 182 -BYTE # 0 -PORT # 182 -BYTE # 1 -PORT # 182 -BYTE # 2 -PORT # 182 -BYTE # 3 -PORT # 182 -BYTE # 4 -PORT # 182 -BYTE # 5 -PORT # 182 -BYTE # 6 -PORT # 182 -BYTE # 7 -PORT # 182 -BYTE # 8 -PORT # 182 -BYTE # 9 -PORT # 182 -BYTE # 10 -PORT # 182 -BYTE # 11 -PORT # 182 -BYTE # 12 -PORT # 182 -BYTE # 13 -PORT # 182 -BYTE # 14 -PORT # 182 -BYTE # 15 -PORT # 182 -BYTE # 16 -PORT # 182 -BYTE # 17 -PORT # 182 -BYTE # 18 -PORT # 182 -BYTE # 19 -PORT # 182 -BYTE # 20 -PORT # 182 -BYTE # 21 -PORT # 182 -BYTE # 22 -PORT # 182 -BYTE # 23 -PORT # 182 -BYTE # 24 -PORT # 182 -BYTE # 25 -PORT # 182 -BYTE # 26 -PORT # 182 -BYTE # 27 -PORT # 182 -BYTE # 28 -PORT # 182 -BYTE # 29 -PORT # 182 -BYTE # 30 -PORT # 182 -BYTE # 31 -PORT # 182 -BYTE # 32 -PORT # 182 -BYTE # 33 -PORT # 182 -BYTE # 34 -PORT # 182 -BYTE # 35 -PORT # 182 -BYTE # 36 -PORT # 182 -BYTE # 37 -PORT # 182 -BYTE # 38 -PORT # 182 -BYTE # 39 -PORT # 182 -BYTE # 40 -PORT # 182 -BYTE # 41 -PORT # 182 -BYTE # 42 -PORT # 182 -BYTE # 43 -PORT # 182 -BYTE # 44 -PORT # 182 -BYTE # 45 -PORT # 182 -BYTE # 46 -PORT # 182 -BYTE # 47 -PORT # 182 -BYTE # 48 -PORT # 182 -BYTE # 49 -PORT # 182 -BYTE # 50 -PORT # 182 -BYTE # 51 -PORT # 182 -BYTE # 52 -PORT # 182 -BYTE # 53 -PORT # 182 -BYTE # 54 -PORT # 182 -BYTE # 55 -PORT # 182 -BYTE # 56 -PORT # 182 -BYTE # 57 -PORT # 182 -BYTE # 58 -PORT # 182 -BYTE # 59 -PORT # 182 -BYTE # 60 -PORT # 182 -BYTE # 61 -PORT # 182 -BYTE # 62 -PORT # 182 -BYTE # 63 -PORT # 182 -BYTE # 64 -PORT # 182 -BYTE # 65 -PORT # 182 -BYTE # 66 -PORT # 182 -BYTE # 67 -PORT # 182 -BYTE # 68 -PORT # 182 -BYTE # 69 -PORT # 182 -BYTE # 70 -PORT # 182 -BYTE # 71 -PORT # 182 -BYTE # 72 -PORT # 182 -BYTE # 73 -PORT # 182 -BYTE # 74 -PORT # 182 -BYTE # 75 -PORT # 182 -BYTE # 76 -PORT # 182 -BYTE # 77 -PORT # 182 -BYTE # 78 -PORT # 182 -BYTE # 79 -PORT # 182 -BYTE # 80 -PORT # 182 -BYTE # 81 -PORT # 182 -BYTE # 82 -PORT # 182 -BYTE # 83 -PORT # 182 -BYTE # 84 -PORT # 182 -BYTE # 85 -PORT # 182 -BYTE # 86 -PORT # 182 -BYTE # 87 -PORT # 182 -BYTE # 88 -PORT # 182 -BYTE # 89 -PORT # 182 -BYTE # 90 -PORT # 182 -BYTE # 91 -PORT # 182 -BYTE # 92 -PORT # 182 -BYTE # 93 -PORT # 182 -BYTE # 94 -PORT # 182 -BYTE # 95 -PORT # 182 -BYTE # 96 -PORT # 182 -BYTE # 97 -PORT # 182 -BYTE # 98 -PORT # 182 -BYTE # 99 -PORT # 182 -BYTE # 100 -PORT # 182 -BYTE # 101 -PORT # 182 -BYTE # 102 -PORT # 182 -BYTE # 103 -PORT # 182 -BYTE # 104 -PORT # 182 -BYTE # 105 -PORT # 182 -BYTE # 106 -PORT # 182 -BYTE # 107 -PORT # 182 -BYTE # 108 -PORT # 182 -BYTE # 109 -PORT # 182 -BYTE # 110 -PORT # 182 -BYTE # 111 -PORT # 182 -BYTE # 112 -PORT # 182 -BYTE # 113 -PORT # 182 -BYTE # 114 -PORT # 182 -BYTE # 115 -PORT # 182 -BYTE # 116 -PORT # 182 -BYTE # 117 -PORT # 182 -BYTE # 118 -PORT # 182 -BYTE # 119 -PORT # 182 -BYTE # 120 -PORT # 182 -BYTE # 121 -PORT # 182 -BYTE # 122 -PORT # 182 -BYTE # 123 -PORT # 182 -BYTE # 124 -PORT # 182 -BYTE # 125 -PORT # 182 -BYTE # 126 -PORT # 182 -BYTE # 127 -PORT # 182 -BYTE # 128 -PORT # 182 -BYTE # 129 -PORT # 182 -BYTE # 130 -PORT # 182 -BYTE # 131 -PORT # 182 -BYTE # 132 -PORT # 182 -BYTE # 133 -PORT # 182 -BYTE # 134 -PORT # 182 -BYTE # 135 -PORT # 182 -BYTE # 136 -PORT # 182 -BYTE # 137 -PORT # 182 -BYTE # 138 -PORT # 182 -BYTE # 139 -PORT # 182 -BYTE # 140 -PORT # 182 -BYTE # 141 -PORT # 182 -BYTE # 142 -PORT # 182 -BYTE # 143 -PORT # 182 -BYTE # 144 -PORT # 182 -BYTE # 145 -PORT # 182 -BYTE # 146 -PORT # 182 -BYTE # 147 -PORT # 182 -BYTE # 148 -PORT # 182 -BYTE # 149 -PORT # 182 -BYTE # 150 -PORT # 182 -BYTE # 151 -PORT # 182 -BYTE # 152 -PORT # 182 -BYTE # 153 -PORT # 182 -BYTE # 154 -PORT # 182 -BYTE # 155 -PORT # 182 -BYTE # 156 -PORT # 182 -BYTE # 157 -PORT # 182 -BYTE # 158 -PORT # 182 -BYTE # 159 -PORT # 182 -BYTE # 160 -PORT # 182 -BYTE # 161 -PORT # 182 -BYTE # 162 -PORT # 182 -BYTE # 163 -PORT # 182 -BYTE # 164 -PORT # 182 -BYTE # 165 -PORT # 182 -BYTE # 166 -PORT # 182 -BYTE # 167 -PORT # 182 -BYTE # 168 -PORT # 182 -BYTE # 169 -PORT # 182 -BYTE # 170 -PORT # 182 -BYTE # 171 -PORT # 182 -BYTE # 172 -PORT # 182 -BYTE # 173 -PORT # 182 -BYTE # 174 -PORT # 182 -BYTE # 175 -PORT # 182 -BYTE # 176 -PORT # 182 -BYTE # 177 -PORT # 182 -BYTE # 178 -PORT # 182 -BYTE # 179 -PORT # 182 -BYTE # 180 -PORT # 182 -BYTE # 181 -PORT # 182 -BYTE # 182 -PORT # 182 -BYTE # 183 -PORT # 182 -BYTE # 184 -PORT # 182 -BYTE # 185 -PORT # 182 -BYTE # 186 -PORT # 182 -BYTE # 187 -PORT # 182 -BYTE # 188 -PORT # 182 -BYTE # 189 -PORT # 182 -BYTE # 190 -PORT # 182 -BYTE # 191 -PORT # 182 -BYTE # 192 -PORT # 182 -BYTE # 193 -PORT # 182 -BYTE # 194 -PORT # 182 -BYTE # 195 -PORT # 182 -BYTE # 196 -PORT # 182 -BYTE # 197 -PORT # 182 -BYTE # 198 -PORT # 182 -BYTE # 199 -PORT # 182 -BYTE # 200 -PORT # 182 -BYTE # 201 -PORT # 182 -BYTE # 202 -PORT # 182 -BYTE # 203 -PORT # 182 -BYTE # 204 -PORT # 182 -BYTE # 205 -PORT # 182 -BYTE # 206 -PORT # 182 -BYTE # 207 -PORT # 182 -BYTE # 208 -PORT # 182 -BYTE # 209 -PORT # 182 -BYTE # 210 -PORT # 182 -BYTE # 211 -PORT # 182 -BYTE # 212 -PORT # 182 -BYTE # 213 -PORT # 182 -BYTE # 214 -PORT # 182 -BYTE # 215 -PORT # 182 -BYTE # 216 -PORT # 182 -BYTE # 217 -PORT # 182 -BYTE # 218 -PORT # 182 -BYTE # 219 -PORT # 182 -BYTE # 220 -PORT # 182 -BYTE # 221 -PORT # 182 -BYTE # 222 -PORT # 182 -BYTE # 223 -PORT # 182 -BYTE # 224 -PORT # 182 -BYTE # 225 -PORT # 182 -BYTE # 226 -PORT # 182 -BYTE # 227 -PORT # 182 -BYTE # 228 -PORT # 182 -BYTE # 229 -PORT # 182 -BYTE # 230 -PORT # 182 -BYTE # 231 -PORT # 182 -BYTE # 232 -PORT # 182 -BYTE # 233 -PORT # 182 -BYTE # 234 -PORT # 182 -BYTE # 235 -PORT # 182 -BYTE # 236 -PORT # 182 -BYTE # 237 -PORT # 182 -BYTE # 238 -PORT # 182 -BYTE # 239 -PORT # 182 -BYTE # 240 -PORT # 182 -BYTE # 241 -PORT # 182 -BYTE # 242 -PORT # 182 -BYTE # 243 -PORT # 182 -BYTE # 244 -PORT # 182 -BYTE # 245 -PORT # 182 -BYTE # 246 -PORT # 182 -BYTE # 247 -PORT # 182 -BYTE # 248 -PORT # 182 -BYTE # 249 -PORT # 182 -BYTE # 250 -PORT # 182 -BYTE # 251 -PORT # 182 -BYTE # 252 -PORT # 182 -BYTE # 253 -PORT # 182 -BYTE # 254 -PORT # 182 -BYTE # 255 -PORT # 183 -BYTE # 0 -PORT # 183 -BYTE # 1 -PORT # 183 -BYTE # 2 -PORT # 183 -BYTE # 3 -PORT # 183 -BYTE # 4 -PORT # 183 -BYTE # 5 -PORT # 183 -BYTE # 6 -PORT # 183 -BYTE # 7 -PORT # 183 -BYTE # 8 -PORT # 183 -BYTE # 9 -PORT # 183 -BYTE # 10 -PORT # 183 -BYTE # 11 -PORT # 183 -BYTE # 12 -PORT # 183 -BYTE # 13 -PORT # 183 -BYTE # 14 -PORT # 183 -BYTE # 15 -PORT # 183 -BYTE # 16 -PORT # 183 -BYTE # 17 -PORT # 183 -BYTE # 18 -PORT # 183 -BYTE # 19 -PORT # 183 -BYTE # 20 -PORT # 183 -BYTE # 21 -PORT # 183 -BYTE # 22 -PORT # 183 -BYTE # 23 -PORT # 183 -BYTE # 24 -PORT # 183 -BYTE # 25 -PORT # 183 -BYTE # 26 -PORT # 183 -BYTE # 27 -PORT # 183 -BYTE # 28 -PORT # 183 -BYTE # 29 -PORT # 183 -BYTE # 30 -PORT # 183 -BYTE # 31 -PORT # 183 -BYTE # 32 -PORT # 183 -BYTE # 33 -PORT # 183 -BYTE # 34 -PORT # 183 -BYTE # 35 -PORT # 183 -BYTE # 36 -PORT # 183 -BYTE # 37 -PORT # 183 -BYTE # 38 -PORT # 183 -BYTE # 39 -PORT # 183 -BYTE # 40 -PORT # 183 -BYTE # 41 -PORT # 183 -BYTE # 42 -PORT # 183 -BYTE # 43 -PORT # 183 -BYTE # 44 -PORT # 183 -BYTE # 45 -PORT # 183 -BYTE # 46 -PORT # 183 -BYTE # 47 -PORT # 183 -BYTE # 48 -PORT # 183 -BYTE # 49 -PORT # 183 -BYTE # 50 -PORT # 183 -BYTE # 51 -PORT # 183 -BYTE # 52 -PORT # 183 -BYTE # 53 -PORT # 183 -BYTE # 54 -PORT # 183 -BYTE # 55 -PORT # 183 -BYTE # 56 -PORT # 183 -BYTE # 57 -PORT # 183 -BYTE # 58 -PORT # 183 -BYTE # 59 -PORT # 183 -BYTE # 60 -PORT # 183 -BYTE # 61 -PORT # 183 -BYTE # 62 -PORT # 183 -BYTE # 63 -PORT # 183 -BYTE # 64 -PORT # 183 -BYTE # 65 -PORT # 183 -BYTE # 66 -PORT # 183 -BYTE # 67 -PORT # 183 -BYTE # 68 -PORT # 183 -BYTE # 69 -PORT # 183 -BYTE # 70 -PORT # 183 -BYTE # 71 -PORT # 183 -BYTE # 72 -PORT # 183 -BYTE # 73 -PORT # 183 -BYTE # 74 -PORT # 183 -BYTE # 75 -PORT # 183 -BYTE # 76 -PORT # 183 -BYTE # 77 -PORT # 183 -BYTE # 78 -PORT # 183 -BYTE # 79 -PORT # 183 -BYTE # 80 -PORT # 183 -BYTE # 81 -PORT # 183 -BYTE # 82 -PORT # 183 -BYTE # 83 -PORT # 183 -BYTE # 84 -PORT # 183 -BYTE # 85 -PORT # 183 -BYTE # 86 -PORT # 183 -BYTE # 87 -PORT # 183 -BYTE # 88 -PORT # 183 -BYTE # 89 -PORT # 183 -BYTE # 90 -PORT # 183 -BYTE # 91 -PORT # 183 -BYTE # 92 -PORT # 183 -BYTE # 93 -PORT # 183 -BYTE # 94 -PORT # 183 -BYTE # 95 -PORT # 183 -BYTE # 96 -PORT # 183 -BYTE # 97 -PORT # 183 -BYTE # 98 -PORT # 183 -BYTE # 99 -PORT # 183 -BYTE # 100 -PORT # 183 -BYTE # 101 -PORT # 183 -BYTE # 102 -PORT # 183 -BYTE # 103 -PORT # 183 -BYTE # 104 -PORT # 183 -BYTE # 105 -PORT # 183 -BYTE # 106 -PORT # 183 -BYTE # 107 -PORT # 183 -BYTE # 108 -PORT # 183 -BYTE # 109 -PORT # 183 -BYTE # 110 -PORT # 183 -BYTE # 111 -PORT # 183 -BYTE # 112 -PORT # 183 -BYTE # 113 -PORT # 183 -BYTE # 114 -PORT # 183 -BYTE # 115 -PORT # 183 -BYTE # 116 -PORT # 183 -BYTE # 117 -PORT # 183 -BYTE # 118 -PORT # 183 -BYTE # 119 -PORT # 183 -BYTE # 120 -PORT # 183 -BYTE # 121 -PORT # 183 -BYTE # 122 -PORT # 183 -BYTE # 123 -PORT # 183 -BYTE # 124 -PORT # 183 -BYTE # 125 -PORT # 183 -BYTE # 126 -PORT # 183 -BYTE # 127 -PORT # 183 -BYTE # 128 -PORT # 183 -BYTE # 129 -PORT # 183 -BYTE # 130 -PORT # 183 -BYTE # 131 -PORT # 183 -BYTE # 132 -PORT # 183 -BYTE # 133 -PORT # 183 -BYTE # 134 -PORT # 183 -BYTE # 135 -PORT # 183 -BYTE # 136 -PORT # 183 -BYTE # 137 -PORT # 183 -BYTE # 138 -PORT # 183 -BYTE # 139 -PORT # 183 -BYTE # 140 -PORT # 183 -BYTE # 141 -PORT # 183 -BYTE # 142 -PORT # 183 -BYTE # 143 -PORT # 183 -BYTE # 144 -PORT # 183 -BYTE # 145 -PORT # 183 -BYTE # 146 -PORT # 183 -BYTE # 147 -PORT # 183 -BYTE # 148 -PORT # 183 -BYTE # 149 -PORT # 183 -BYTE # 150 -PORT # 183 -BYTE # 151 -PORT # 183 -BYTE # 152 -PORT # 183 -BYTE # 153 -PORT # 183 -BYTE # 154 -PORT # 183 -BYTE # 155 -PORT # 183 -BYTE # 156 -PORT # 183 -BYTE # 157 -PORT # 183 -BYTE # 158 -PORT # 183 -BYTE # 159 -PORT # 183 -BYTE # 160 -PORT # 183 -BYTE # 161 -PORT # 183 -BYTE # 162 -PORT # 183 -BYTE # 163 -PORT # 183 -BYTE # 164 -PORT # 183 -BYTE # 165 -PORT # 183 -BYTE # 166 -PORT # 183 -BYTE # 167 -PORT # 183 -BYTE # 168 -PORT # 183 -BYTE # 169 -PORT # 183 -BYTE # 170 -PORT # 183 -BYTE # 171 -PORT # 183 -BYTE # 172 -PORT # 183 -BYTE # 173 -PORT # 183 -BYTE # 174 -PORT # 183 -BYTE # 175 -PORT # 183 -BYTE # 176 -PORT # 183 -BYTE # 177 -PORT # 183 -BYTE # 178 -PORT # 183 -BYTE # 179 -PORT # 183 -BYTE # 180 -PORT # 183 -BYTE # 181 -PORT # 183 -BYTE # 182 -PORT # 183 -BYTE # 183 -PORT # 183 -BYTE # 184 -PORT # 183 -BYTE # 185 -PORT # 183 -BYTE # 186 -PORT # 183 -BYTE # 187 -PORT # 183 -BYTE # 188 -PORT # 183 -BYTE # 189 -PORT # 183 -BYTE # 190 -PORT # 183 -BYTE # 191 -PORT # 183 -BYTE # 192 -PORT # 183 -BYTE # 193 -PORT # 183 -BYTE # 194 -PORT # 183 -BYTE # 195 -PORT # 183 -BYTE # 196 -PORT # 183 -BYTE # 197 -PORT # 183 -BYTE # 198 -PORT # 183 -BYTE # 199 -PORT # 183 -BYTE # 200 -PORT # 183 -BYTE # 201 -PORT # 183 -BYTE # 202 -PORT # 183 -BYTE # 203 -PORT # 183 -BYTE # 204 -PORT # 183 -BYTE # 205 -PORT # 183 -BYTE # 206 -PORT # 183 -BYTE # 207 -PORT # 183 -BYTE # 208 -PORT # 183 -BYTE # 209 -PORT # 183 -BYTE # 210 -PORT # 183 -BYTE # 211 -PORT # 183 -BYTE # 212 -PORT # 183 -BYTE # 213 -PORT # 183 -BYTE # 214 -PORT # 183 -BYTE # 215 -PORT # 183 -BYTE # 216 -PORT # 183 -BYTE # 217 -PORT # 183 -BYTE # 218 -PORT # 183 -BYTE # 219 -PORT # 183 -BYTE # 220 -PORT # 183 -BYTE # 221 -PORT # 183 -BYTE # 222 -PORT # 183 -BYTE # 223 -PORT # 183 -BYTE # 224 -PORT # 183 -BYTE # 225 -PORT # 183 -BYTE # 226 -PORT # 183 -BYTE # 227 -PORT # 183 -BYTE # 228 -PORT # 183 -BYTE # 229 -PORT # 183 -BYTE # 230 -PORT # 183 -BYTE # 231 -PORT # 183 -BYTE # 232 -PORT # 183 -BYTE # 233 -PORT # 183 -BYTE # 234 -PORT # 183 -BYTE # 235 -PORT # 183 -BYTE # 236 -PORT # 183 -BYTE # 237 -PORT # 183 -BYTE # 238 -PORT # 183 -BYTE # 239 -PORT # 183 -BYTE # 240 -PORT # 183 -BYTE # 241 -PORT # 183 -BYTE # 242 -PORT # 183 -BYTE # 243 -PORT # 183 -BYTE # 244 -PORT # 183 -BYTE # 245 -PORT # 183 -BYTE # 246 -PORT # 183 -BYTE # 247 -PORT # 183 -BYTE # 248 -PORT # 183 -BYTE # 249 -PORT # 183 -BYTE # 250 -PORT # 183 -BYTE # 251 -PORT # 183 -BYTE # 252 -PORT # 183 -BYTE # 253 -PORT # 183 -BYTE # 254 -PORT # 183 -BYTE # 255 -PORT # 184 -BYTE # 0 -PORT # 184 -BYTE # 1 -PORT # 184 -BYTE # 2 -PORT # 184 -BYTE # 3 -PORT # 184 -BYTE # 4 -PORT # 184 -BYTE # 5 -PORT # 184 -BYTE # 6 -PORT # 184 -BYTE # 7 -PORT # 184 -BYTE # 8 -PORT # 184 -BYTE # 9 -PORT # 184 -BYTE # 10 -PORT # 184 -BYTE # 11 -PORT # 184 -BYTE # 12 -PORT # 184 -BYTE # 13 -PORT # 184 -BYTE # 14 -PORT # 184 -BYTE # 15 -PORT # 184 -BYTE # 16 -PORT # 184 -BYTE # 17 -PORT # 184 -BYTE # 18 -PORT # 184 -BYTE # 19 -PORT # 184 -BYTE # 20 -PORT # 184 -BYTE # 21 -PORT # 184 -BYTE # 22 -PORT # 184 -BYTE # 23 -PORT # 184 -BYTE # 24 -PORT # 184 -BYTE # 25 -PORT # 184 -BYTE # 26 -PORT # 184 -BYTE # 27 -PORT # 184 -BYTE # 28 -PORT # 184 -BYTE # 29 -PORT # 184 -BYTE # 30 -PORT # 184 -BYTE # 31 -PORT # 184 -BYTE # 32 -PORT # 184 -BYTE # 33 -PORT # 184 -BYTE # 34 -PORT # 184 -BYTE # 35 -PORT # 184 -BYTE # 36 -PORT # 184 -BYTE # 37 -PORT # 184 -BYTE # 38 -PORT # 184 -BYTE # 39 -PORT # 184 -BYTE # 40 -PORT # 184 -BYTE # 41 -PORT # 184 -BYTE # 42 -PORT # 184 -BYTE # 43 -PORT # 184 -BYTE # 44 -PORT # 184 -BYTE # 45 -PORT # 184 -BYTE # 46 -PORT # 184 -BYTE # 47 -PORT # 184 -BYTE # 48 -PORT # 184 -BYTE # 49 -PORT # 184 -BYTE # 50 -PORT # 184 -BYTE # 51 -PORT # 184 -BYTE # 52 -PORT # 184 -BYTE # 53 -PORT # 184 -BYTE # 54 -PORT # 184 -BYTE # 55 -PORT # 184 -BYTE # 56 -PORT # 184 -BYTE # 57 -PORT # 184 -BYTE # 58 -PORT # 184 -BYTE # 59 -PORT # 184 -BYTE # 60 -PORT # 184 -BYTE # 61 -PORT # 184 -BYTE # 62 -PORT # 184 -BYTE # 63 -PORT # 184 -BYTE # 64 -PORT # 184 -BYTE # 65 -PORT # 184 -BYTE # 66 -PORT # 184 -BYTE # 67 -PORT # 184 -BYTE # 68 -PORT # 184 -BYTE # 69 -PORT # 184 -BYTE # 70 -PORT # 184 -BYTE # 71 -PORT # 184 -BYTE # 72 -PORT # 184 -BYTE # 73 -PORT # 184 -BYTE # 74 -PORT # 184 -BYTE # 75 -PORT # 184 -BYTE # 76 -PORT # 184 -BYTE # 77 -PORT # 184 -BYTE # 78 -PORT # 184 -BYTE # 79 -PORT # 184 -BYTE # 80 -PORT # 184 -BYTE # 81 -PORT # 184 -BYTE # 82 -PORT # 184 -BYTE # 83 -PORT # 184 -BYTE # 84 -PORT # 184 -BYTE # 85 -PORT # 184 -BYTE # 86 -PORT # 184 -BYTE # 87 -PORT # 184 -BYTE # 88 -PORT # 184 -BYTE # 89 -PORT # 184 -BYTE # 90 -PORT # 184 -BYTE # 91 -PORT # 184 -BYTE # 92 -PORT # 184 -BYTE # 93 -PORT # 184 -BYTE # 94 -PORT # 184 -BYTE # 95 -PORT # 184 -BYTE # 96 -PORT # 184 -BYTE # 97 -PORT # 184 -BYTE # 98 -PORT # 184 -BYTE # 99 -PORT # 184 -BYTE # 100 -PORT # 184 -BYTE # 101 -PORT # 184 -BYTE # 102 -PORT # 184 -BYTE # 103 -PORT # 184 -BYTE # 104 -PORT # 184 -BYTE # 105 -PORT # 184 -BYTE # 106 -PORT # 184 -BYTE # 107 -PORT # 184 -BYTE # 108 -PORT # 184 -BYTE # 109 -PORT # 184 -BYTE # 110 -PORT # 184 -BYTE # 111 -PORT # 184 -BYTE # 112 -PORT # 184 -BYTE # 113 -PORT # 184 -BYTE # 114 -PORT # 184 -BYTE # 115 -PORT # 184 -BYTE # 116 -PORT # 184 -BYTE # 117 -PORT # 184 -BYTE # 118 -PORT # 184 -BYTE # 119 -PORT # 184 -BYTE # 120 -PORT # 184 -BYTE # 121 -PORT # 184 -BYTE # 122 -PORT # 184 -BYTE # 123 -PORT # 184 -BYTE # 124 -PORT # 184 -BYTE # 125 -PORT # 184 -BYTE # 126 -PORT # 184 -BYTE # 127 -PORT # 184 -BYTE # 128 -PORT # 184 -BYTE # 129 -PORT # 184 -BYTE # 130 -PORT # 184 -BYTE # 131 -PORT # 184 -BYTE # 132 -PORT # 184 -BYTE # 133 -PORT # 184 -BYTE # 134 -PORT # 184 -BYTE # 135 -PORT # 184 -BYTE # 136 -PORT # 184 -BYTE # 137 -PORT # 184 -BYTE # 138 -PORT # 184 -BYTE # 139 -PORT # 184 -BYTE # 140 -PORT # 184 -BYTE # 141 -PORT # 184 -BYTE # 142 -PORT # 184 -BYTE # 143 -PORT # 184 -BYTE # 144 -PORT # 184 -BYTE # 145 -PORT # 184 -BYTE # 146 -PORT # 184 -BYTE # 147 -PORT # 184 -BYTE # 148 -PORT # 184 -BYTE # 149 -PORT # 184 -BYTE # 150 -PORT # 184 -BYTE # 151 -PORT # 184 -BYTE # 152 -PORT # 184 -BYTE # 153 -PORT # 184 -BYTE # 154 -PORT # 184 -BYTE # 155 -PORT # 184 -BYTE # 156 -PORT # 184 -BYTE # 157 -PORT # 184 -BYTE # 158 -PORT # 184 -BYTE # 159 -PORT # 184 -BYTE # 160 -PORT # 184 -BYTE # 161 -PORT # 184 -BYTE # 162 -PORT # 184 -BYTE # 163 -PORT # 184 -BYTE # 164 -PORT # 184 -BYTE # 165 -PORT # 184 -BYTE # 166 -PORT # 184 -BYTE # 167 -PORT # 184 -BYTE # 168 -PORT # 184 -BYTE # 169 -PORT # 184 -BYTE # 170 -PORT # 184 -BYTE # 171 -PORT # 184 -BYTE # 172 -PORT # 184 -BYTE # 173 -PORT # 184 -BYTE # 174 -PORT # 184 -BYTE # 175 -PORT # 184 -BYTE # 176 -PORT # 184 -BYTE # 177 -PORT # 184 -BYTE # 178 -PORT # 184 -BYTE # 179 -PORT # 184 -BYTE # 180 -PORT # 184 -BYTE # 181 -PORT # 184 -BYTE # 182 -PORT # 184 -BYTE # 183 -PORT # 184 -BYTE # 184 -PORT # 184 -BYTE # 185 -PORT # 184 -BYTE # 186 -PORT # 184 -BYTE # 187 -PORT # 184 -BYTE # 188 -PORT # 184 -BYTE # 189 -PORT # 184 -BYTE # 190 -PORT # 184 -BYTE # 191 -PORT # 184 -BYTE # 192 -PORT # 184 -BYTE # 193 -PORT # 184 -BYTE # 194 -PORT # 184 -BYTE # 195 -PORT # 184 -BYTE # 196 -PORT # 184 -BYTE # 197 -PORT # 184 -BYTE # 198 -PORT # 184 -BYTE # 199 -PORT # 184 -BYTE # 200 -PORT # 184 -BYTE # 201 -PORT # 184 -BYTE # 202 -PORT # 184 -BYTE # 203 -PORT # 184 -BYTE # 204 -PORT # 184 -BYTE # 205 -PORT # 184 -BYTE # 206 -PORT # 184 -BYTE # 207 -PORT # 184 -BYTE # 208 -PORT # 184 -BYTE # 209 -PORT # 184 -BYTE # 210 -PORT # 184 -BYTE # 211 -PORT # 184 -BYTE # 212 -PORT # 184 -BYTE # 213 -PORT # 184 -BYTE # 214 -PORT # 184 -BYTE # 215 -PORT # 184 -BYTE # 216 -PORT # 184 -BYTE # 217 -PORT # 184 -BYTE # 218 -PORT # 184 -BYTE # 219 -PORT # 184 -BYTE # 220 -PORT # 184 -BYTE # 221 -PORT # 184 -BYTE # 222 -PORT # 184 -BYTE # 223 -PORT # 184 -BYTE # 224 -PORT # 184 -BYTE # 225 -PORT # 184 -BYTE # 226 -PORT # 184 -BYTE # 227 -PORT # 184 -BYTE # 228 -PORT # 184 -BYTE # 229 -PORT # 184 -BYTE # 230 -PORT # 184 -BYTE # 231 -PORT # 184 -BYTE # 232 -PORT # 184 -BYTE # 233 -PORT # 184 -BYTE # 234 -PORT # 184 -BYTE # 235 -PORT # 184 -BYTE # 236 -PORT # 184 -BYTE # 237 -PORT # 184 -BYTE # 238 -PORT # 184 -BYTE # 239 -PORT # 184 -BYTE # 240 -PORT # 184 -BYTE # 241 -PORT # 184 -BYTE # 242 -PORT # 184 -BYTE # 243 -PORT # 184 -BYTE # 244 -PORT # 184 -BYTE # 245 -PORT # 184 -BYTE # 246 -PORT # 184 -BYTE # 247 -PORT # 184 -BYTE # 248 -PORT # 184 -BYTE # 249 -PORT # 184 -BYTE # 250 -PORT # 184 -BYTE # 251 -PORT # 184 -BYTE # 252 -PORT # 184 -BYTE # 253 -PORT # 184 -BYTE # 254 -PORT # 184 -BYTE # 255 -PORT # 185 -BYTE # 0 -PORT # 185 -BYTE # 1 -PORT # 185 -BYTE # 2 -PORT # 185 -BYTE # 3 -PORT # 185 -BYTE # 4 -PORT # 185 -BYTE # 5 -PORT # 185 -BYTE # 6 -PORT # 185 -BYTE # 7 -PORT # 185 -BYTE # 8 -PORT # 185 -BYTE # 9 -PORT # 185 -BYTE # 10 -PORT # 185 -BYTE # 11 -PORT # 185 -BYTE # 12 -PORT # 185 -BYTE # 13 -PORT # 185 -BYTE # 14 -PORT # 185 -BYTE # 15 -PORT # 185 -BYTE # 16 -PORT # 185 -BYTE # 17 -PORT # 185 -BYTE # 18 -PORT # 185 -BYTE # 19 -PORT # 185 -BYTE # 20 -PORT # 185 -BYTE # 21 -PORT # 185 -BYTE # 22 -PORT # 185 -BYTE # 23 -PORT # 185 -BYTE # 24 -PORT # 185 -BYTE # 25 -PORT # 185 -BYTE # 26 -PORT # 185 -BYTE # 27 -PORT # 185 -BYTE # 28 -PORT # 185 -BYTE # 29 -PORT # 185 -BYTE # 30 -PORT # 185 -BYTE # 31 -PORT # 185 -BYTE # 32 -PORT # 185 -BYTE # 33 -PORT # 185 -BYTE # 34 -PORT # 185 -BYTE # 35 -PORT # 185 -BYTE # 36 -PORT # 185 -BYTE # 37 -PORT # 185 -BYTE # 38 -PORT # 185 -BYTE # 39 -PORT # 185 -BYTE # 40 -PORT # 185 -BYTE # 41 -PORT # 185 -BYTE # 42 -PORT # 185 -BYTE # 43 -PORT # 185 -BYTE # 44 -PORT # 185 -BYTE # 45 -PORT # 185 -BYTE # 46 -PORT # 185 -BYTE # 47 -PORT # 185 -BYTE # 48 -PORT # 185 -BYTE # 49 -PORT # 185 -BYTE # 50 -PORT # 185 -BYTE # 51 -PORT # 185 -BYTE # 52 -PORT # 185 -BYTE # 53 -PORT # 185 -BYTE # 54 -PORT # 185 -BYTE # 55 -PORT # 185 -BYTE # 56 -PORT # 185 -BYTE # 57 -PORT # 185 -BYTE # 58 -PORT # 185 -BYTE # 59 -PORT # 185 -BYTE # 60 -PORT # 185 -BYTE # 61 -PORT # 185 -BYTE # 62 -PORT # 185 -BYTE # 63 -PORT # 185 -BYTE # 64 -PORT # 185 -BYTE # 65 -PORT # 185 -BYTE # 66 -PORT # 185 -BYTE # 67 -PORT # 185 -BYTE # 68 -PORT # 185 -BYTE # 69 -PORT # 185 -BYTE # 70 -PORT # 185 -BYTE # 71 -PORT # 185 -BYTE # 72 -PORT # 185 -BYTE # 73 -PORT # 185 -BYTE # 74 -PORT # 185 -BYTE # 75 -PORT # 185 -BYTE # 76 -PORT # 185 -BYTE # 77 -PORT # 185 -BYTE # 78 -PORT # 185 -BYTE # 79 -PORT # 185 -BYTE # 80 -PORT # 185 -BYTE # 81 -PORT # 185 -BYTE # 82 -PORT # 185 -BYTE # 83 -PORT # 185 -BYTE # 84 -PORT # 185 -BYTE # 85 -PORT # 185 -BYTE # 86 -PORT # 185 -BYTE # 87 -PORT # 185 -BYTE # 88 -PORT # 185 -BYTE # 89 -PORT # 185 -BYTE # 90 -PORT # 185 -BYTE # 91 -PORT # 185 -BYTE # 92 -PORT # 185 -BYTE # 93 -PORT # 185 -BYTE # 94 -PORT # 185 -BYTE # 95 -PORT # 185 -BYTE # 96 -PORT # 185 -BYTE # 97 -PORT # 185 -BYTE # 98 -PORT # 185 -BYTE # 99 -PORT # 185 -BYTE # 100 -PORT # 185 -BYTE # 101 -PORT # 185 -BYTE # 102 -PORT # 185 -BYTE # 103 -PORT # 185 -BYTE # 104 -PORT # 185 -BYTE # 105 -PORT # 185 -BYTE # 106 -PORT # 185 -BYTE # 107 -PORT # 185 -BYTE # 108 -PORT # 185 -BYTE # 109 -PORT # 185 -BYTE # 110 -PORT # 185 -BYTE # 111 -PORT # 185 -BYTE # 112 -PORT # 185 -BYTE # 113 -PORT # 185 -BYTE # 114 -PORT # 185 -BYTE # 115 -PORT # 185 -BYTE # 116 -PORT # 185 -BYTE # 117 -PORT # 185 -BYTE # 118 -PORT # 185 -BYTE # 119 -PORT # 185 -BYTE # 120 -PORT # 185 -BYTE # 121 -PORT # 185 -BYTE # 122 -PORT # 185 -BYTE # 123 -PORT # 185 -BYTE # 124 -PORT # 185 -BYTE # 125 -PORT # 185 -BYTE # 126 -PORT # 185 -BYTE # 127 -PORT # 185 -BYTE # 128 -PORT # 185 -BYTE # 129 -PORT # 185 -BYTE # 130 -PORT # 185 -BYTE # 131 -PORT # 185 -BYTE # 132 -PORT # 185 -BYTE # 133 -PORT # 185 -BYTE # 134 -PORT # 185 -BYTE # 135 -PORT # 185 -BYTE # 136 -PORT # 185 -BYTE # 137 -PORT # 185 -BYTE # 138 -PORT # 185 -BYTE # 139 -PORT # 185 -BYTE # 140 -PORT # 185 -BYTE # 141 -PORT # 185 -BYTE # 142 -PORT # 185 -BYTE # 143 -PORT # 185 -BYTE # 144 -PORT # 185 -BYTE # 145 -PORT # 185 -BYTE # 146 -PORT # 185 -BYTE # 147 -PORT # 185 -BYTE # 148 -PORT # 185 -BYTE # 149 -PORT # 185 -BYTE # 150 -PORT # 185 -BYTE # 151 -PORT # 185 -BYTE # 152 -PORT # 185 -BYTE # 153 -PORT # 185 -BYTE # 154 -PORT # 185 -BYTE # 155 -PORT # 185 -BYTE # 156 -PORT # 185 -BYTE # 157 -PORT # 185 -BYTE # 158 -PORT # 185 -BYTE # 159 -PORT # 185 -BYTE # 160 -PORT # 185 -BYTE # 161 -PORT # 185 -BYTE # 162 -PORT # 185 -BYTE # 163 -PORT # 185 -BYTE # 164 -PORT # 185 -BYTE # 165 -PORT # 185 -BYTE # 166 -PORT # 185 -BYTE # 167 -PORT # 185 -BYTE # 168 -PORT # 185 -BYTE # 169 -PORT # 185 -BYTE # 170 -PORT # 185 -BYTE # 171 -PORT # 185 -BYTE # 172 -PORT # 185 -BYTE # 173 -PORT # 185 -BYTE # 174 -PORT # 185 -BYTE # 175 -PORT # 185 -BYTE # 176 -PORT # 185 -BYTE # 177 -PORT # 185 -BYTE # 178 -PORT # 185 -BYTE # 179 -PORT # 185 -BYTE # 180 -PORT # 185 -BYTE # 181 -PORT # 185 -BYTE # 182 -PORT # 185 -BYTE # 183 -PORT # 185 -BYTE # 184 -PORT # 185 -BYTE # 185 -PORT # 185 -BYTE # 186 -PORT # 185 -BYTE # 187 -PORT # 185 -BYTE # 188 -PORT # 185 -BYTE # 189 -PORT # 185 -BYTE # 190 -PORT # 185 -BYTE # 191 -PORT # 185 -BYTE # 192 -PORT # 185 -BYTE # 193 -PORT # 185 -BYTE # 194 -PORT # 185 -BYTE # 195 -PORT # 185 -BYTE # 196 -PORT # 185 -BYTE # 197 -PORT # 185 -BYTE # 198 -PORT # 185 -BYTE # 199 -PORT # 185 -BYTE # 200 -PORT # 185 -BYTE # 201 -PORT # 185 -BYTE # 202 -PORT # 185 -BYTE # 203 -PORT # 185 -BYTE # 204 -PORT # 185 -BYTE # 205 -PORT # 185 -BYTE # 206 -PORT # 185 -BYTE # 207 -PORT # 185 -BYTE # 208 -PORT # 185 -BYTE # 209 -PORT # 185 -BYTE # 210 -PORT # 185 -BYTE # 211 -PORT # 185 -BYTE # 212 -PORT # 185 -BYTE # 213 -PORT # 185 -BYTE # 214 -PORT # 185 -BYTE # 215 -PORT # 185 -BYTE # 216 -PORT # 185 -BYTE # 217 -PORT # 185 -BYTE # 218 -PORT # 185 -BYTE # 219 -PORT # 185 -BYTE # 220 -PORT # 185 -BYTE # 221 -PORT # 185 -BYTE # 222 -PORT # 185 -BYTE # 223 -PORT # 185 -BYTE # 224 -PORT # 185 -BYTE # 225 -PORT # 185 -BYTE # 226 -PORT # 185 -BYTE # 227 -PORT # 185 -BYTE # 228 -PORT # 185 -BYTE # 229 -PORT # 185 -BYTE # 230 -PORT # 185 -BYTE # 231 -PORT # 185 -BYTE # 232 -PORT # 185 -BYTE # 233 -PORT # 185 -BYTE # 234 -PORT # 185 -BYTE # 235 -PORT # 185 -BYTE # 236 -PORT # 185 -BYTE # 237 -PORT # 185 -BYTE # 238 -PORT # 185 -BYTE # 239 -PORT # 185 -BYTE # 240 -PORT # 185 -BYTE # 241 -PORT # 185 -BYTE # 242 -PORT # 185 -BYTE # 243 -PORT # 185 -BYTE # 244 -PORT # 185 -BYTE # 245 -PORT # 185 -BYTE # 246 -PORT # 185 -BYTE # 247 -PORT # 185 -BYTE # 248 -PORT # 185 -BYTE # 249 -PORT # 185 -BYTE # 250 -PORT # 185 -BYTE # 251 -PORT # 185 -BYTE # 252 -PORT # 185 -BYTE # 253 -PORT # 185 -BYTE # 254 -PORT # 185 -BYTE # 255 -PORT # 186 -BYTE # 0 -PORT # 186 -BYTE # 1 -PORT # 186 -BYTE # 2 -PORT # 186 -BYTE # 3 -PORT # 186 -BYTE # 4 -PORT # 186 -BYTE # 5 -PORT # 186 -BYTE # 6 -PORT # 186 -BYTE # 7 -PORT # 186 -BYTE # 8 -PORT # 186 -BYTE # 9 -PORT # 186 -BYTE # 10 -PORT # 186 -BYTE # 11 -PORT # 186 -BYTE # 12 -PORT # 186 -BYTE # 13 -PORT # 186 -BYTE # 14 -PORT # 186 -BYTE # 15 -PORT # 186 -BYTE # 16 -PORT # 186 -BYTE # 17 -PORT # 186 -BYTE # 18 -PORT # 186 -BYTE # 19 -PORT # 186 -BYTE # 20 -PORT # 186 -BYTE # 21 -PORT # 186 -BYTE # 22 -PORT # 186 -BYTE # 23 -PORT # 186 -BYTE # 24 -PORT # 186 -BYTE # 25 -PORT # 186 -BYTE # 26 -PORT # 186 -BYTE # 27 -PORT # 186 -BYTE # 28 -PORT # 186 -BYTE # 29 -PORT # 186 -BYTE # 30 -PORT # 186 -BYTE # 31 -PORT # 186 -BYTE # 32 -PORT # 186 -BYTE # 33 -PORT # 186 -BYTE # 34 -PORT # 186 -BYTE # 35 -PORT # 186 -BYTE # 36 -PORT # 186 -BYTE # 37 -PORT # 186 -BYTE # 38 -PORT # 186 -BYTE # 39 -PORT # 186 -BYTE # 40 -PORT # 186 -BYTE # 41 -PORT # 186 -BYTE # 42 -PORT # 186 -BYTE # 43 -PORT # 186 -BYTE # 44 -PORT # 186 -BYTE # 45 -PORT # 186 -BYTE # 46 -PORT # 186 -BYTE # 47 -PORT # 186 -BYTE # 48 -PORT # 186 -BYTE # 49 -PORT # 186 -BYTE # 50 -PORT # 186 -BYTE # 51 -PORT # 186 -BYTE # 52 -PORT # 186 -BYTE # 53 -PORT # 186 -BYTE # 54 -PORT # 186 -BYTE # 55 -PORT # 186 -BYTE # 56 -PORT # 186 -BYTE # 57 -PORT # 186 -BYTE # 58 -PORT # 186 -BYTE # 59 -PORT # 186 -BYTE # 60 -PORT # 186 -BYTE # 61 -PORT # 186 -BYTE # 62 -PORT # 186 -BYTE # 63 -PORT # 186 -BYTE # 64 -PORT # 186 -BYTE # 65 -PORT # 186 -BYTE # 66 -PORT # 186 -BYTE # 67 -PORT # 186 -BYTE # 68 -PORT # 186 -BYTE # 69 -PORT # 186 -BYTE # 70 -PORT # 186 -BYTE # 71 -PORT # 186 -BYTE # 72 -PORT # 186 -BYTE # 73 -PORT # 186 -BYTE # 74 -PORT # 186 -BYTE # 75 -PORT # 186 -BYTE # 76 -PORT # 186 -BYTE # 77 -PORT # 186 -BYTE # 78 -PORT # 186 -BYTE # 79 -PORT # 186 -BYTE # 80 -PORT # 186 -BYTE # 81 -PORT # 186 -BYTE # 82 -PORT # 186 -BYTE # 83 -PORT # 186 -BYTE # 84 -PORT # 186 -BYTE # 85 -PORT # 186 -BYTE # 86 -PORT # 186 -BYTE # 87 -PORT # 186 -BYTE # 88 -PORT # 186 -BYTE # 89 -PORT # 186 -BYTE # 90 -PORT # 186 -BYTE # 91 -PORT # 186 -BYTE # 92 -PORT # 186 -BYTE # 93 -PORT # 186 -BYTE # 94 -PORT # 186 -BYTE # 95 -PORT # 186 -BYTE # 96 -PORT # 186 -BYTE # 97 -PORT # 186 -BYTE # 98 -PORT # 186 -BYTE # 99 -PORT # 186 -BYTE # 100 -PORT # 186 -BYTE # 101 -PORT # 186 -BYTE # 102 -PORT # 186 -BYTE # 103 -PORT # 186 -BYTE # 104 -PORT # 186 -BYTE # 105 -PORT # 186 -BYTE # 106 -PORT # 186 -BYTE # 107 -PORT # 186 -BYTE # 108 -PORT # 186 -BYTE # 109 -PORT # 186 -BYTE # 110 -PORT # 186 -BYTE # 111 -PORT # 186 -BYTE # 112 -PORT # 186 -BYTE # 113 -PORT # 186 -BYTE # 114 -PORT # 186 -BYTE # 115 -PORT # 186 -BYTE # 116 -PORT # 186 -BYTE # 117 -PORT # 186 -BYTE # 118 -PORT # 186 -BYTE # 119 -PORT # 186 -BYTE # 120 -PORT # 186 -BYTE # 121 -PORT # 186 -BYTE # 122 -PORT # 186 -BYTE # 123 -PORT # 186 -BYTE # 124 -PORT # 186 -BYTE # 125 -PORT # 186 -BYTE # 126 -PORT # 186 -BYTE # 127 -PORT # 186 -BYTE # 128 -PORT # 186 -BYTE # 129 -PORT # 186 -BYTE # 130 -PORT # 186 -BYTE # 131 -PORT # 186 -BYTE # 132 -PORT # 186 -BYTE # 133 -PORT # 186 -BYTE # 134 -PORT # 186 -BYTE # 135 -PORT # 186 -BYTE # 136 -PORT # 186 -BYTE # 137 -PORT # 186 -BYTE # 138 -PORT # 186 -BYTE # 139 -PORT # 186 -BYTE # 140 -PORT # 186 -BYTE # 141 -PORT # 186 -BYTE # 142 -PORT # 186 -BYTE # 143 -PORT # 186 -BYTE # 144 -PORT # 186 -BYTE # 145 -PORT # 186 -BYTE # 146 -PORT # 186 -BYTE # 147 -PORT # 186 -BYTE # 148 -PORT # 186 -BYTE # 149 -PORT # 186 -BYTE # 150 -PORT # 186 -BYTE # 151 -PORT # 186 -BYTE # 152 -PORT # 186 -BYTE # 153 -PORT # 186 -BYTE # 154 -PORT # 186 -BYTE # 155 -PORT # 186 -BYTE # 156 -PORT # 186 -BYTE # 157 -PORT # 186 -BYTE # 158 -PORT # 186 -BYTE # 159 -PORT # 186 -BYTE # 160 -PORT # 186 -BYTE # 161 -PORT # 186 -BYTE # 162 -PORT # 186 -BYTE # 163 -PORT # 186 -BYTE # 164 -PORT # 186 -BYTE # 165 -PORT # 186 -BYTE # 166 -PORT # 186 -BYTE # 167 -PORT # 186 -BYTE # 168 -PORT # 186 -BYTE # 169 -PORT # 186 -BYTE # 170 -PORT # 186 -BYTE # 171 -PORT # 186 -BYTE # 172 -PORT # 186 -BYTE # 173 -PORT # 186 -BYTE # 174 -PORT # 186 -BYTE # 175 -PORT # 186 -BYTE # 176 -PORT # 186 -BYTE # 177 -PORT # 186 -BYTE # 178 -PORT # 186 -BYTE # 179 -PORT # 186 -BYTE # 180 -PORT # 186 -BYTE # 181 -PORT # 186 -BYTE # 182 -PORT # 186 -BYTE # 183 -PORT # 186 -BYTE # 184 -PORT # 186 -BYTE # 185 -PORT # 186 -BYTE # 186 -PORT # 186 -BYTE # 187 -PORT # 186 -BYTE # 188 -PORT # 186 -BYTE # 189 -PORT # 186 -BYTE # 190 -PORT # 186 -BYTE # 191 -PORT # 186 -BYTE # 192 -PORT # 186 -BYTE # 193 -PORT # 186 -BYTE # 194 -PORT # 186 -BYTE # 195 -PORT # 186 -BYTE # 196 -PORT # 186 -BYTE # 197 -PORT # 186 -BYTE # 198 -PORT # 186 -BYTE # 199 -PORT # 186 -BYTE # 200 -PORT # 186 -BYTE # 201 -PORT # 186 -BYTE # 202 -PORT # 186 -BYTE # 203 -PORT # 186 -BYTE # 204 -PORT # 186 -BYTE # 205 -PORT # 186 -BYTE # 206 -PORT # 186 -BYTE # 207 -PORT # 186 -BYTE # 208 -PORT # 186 -BYTE # 209 -PORT # 186 -BYTE # 210 -PORT # 186 -BYTE # 211 -PORT # 186 -BYTE # 212 -PORT # 186 -BYTE # 213 -PORT # 186 -BYTE # 214 -PORT # 186 -BYTE # 215 -PORT # 186 -BYTE # 216 -PORT # 186 -BYTE # 217 -PORT # 186 -BYTE # 218 -PORT # 186 -BYTE # 219 -PORT # 186 -BYTE # 220 -PORT # 186 -BYTE # 221 -PORT # 186 -BYTE # 222 -PORT # 186 -BYTE # 223 -PORT # 186 -BYTE # 224 -PORT # 186 -BYTE # 225 -PORT # 186 -BYTE # 226 -PORT # 186 -BYTE # 227 -PORT # 186 -BYTE # 228 -PORT # 186 -BYTE # 229 -PORT # 186 -BYTE # 230 -PORT # 186 -BYTE # 231 -PORT # 186 -BYTE # 232 -PORT # 186 -BYTE # 233 -PORT # 186 -BYTE # 234 -PORT # 186 -BYTE # 235 -PORT # 186 -BYTE # 236 -PORT # 186 -BYTE # 237 -PORT # 186 -BYTE # 238 -PORT # 186 -BYTE # 239 -PORT # 186 -BYTE # 240 -PORT # 186 -BYTE # 241 -PORT # 186 -BYTE # 242 -PORT # 186 -BYTE # 243 -PORT # 186 -BYTE # 244 -PORT # 186 -BYTE # 245 -PORT # 186 -BYTE # 246 -PORT # 186 -BYTE # 247 -PORT # 186 -BYTE # 248 -PORT # 186 -BYTE # 249 -PORT # 186 -BYTE # 250 -PORT # 186 -BYTE # 251 -PORT # 186 -BYTE # 252 -PORT # 186 -BYTE # 253 -PORT # 186 -BYTE # 254 -PORT # 186 -BYTE # 255 -PORT # 187 -BYTE # 0 -PORT # 187 -BYTE # 1 -PORT # 187 -BYTE # 2 -PORT # 187 -BYTE # 3 -PORT # 187 -BYTE # 4 -PORT # 187 -BYTE # 5 -PORT # 187 -BYTE # 6 -PORT # 187 -BYTE # 7 -PORT # 187 -BYTE # 8 -PORT # 187 -BYTE # 9 -PORT # 187 -BYTE # 10 -PORT # 187 -BYTE # 11 -PORT # 187 -BYTE # 12 -PORT # 187 -BYTE # 13 -PORT # 187 -BYTE # 14 -PORT # 187 -BYTE # 15 -PORT # 187 -BYTE # 16 -PORT # 187 -BYTE # 17 -PORT # 187 -BYTE # 18 -PORT # 187 -BYTE # 19 -PORT # 187 -BYTE # 20 -PORT # 187 -BYTE # 21 -PORT # 187 -BYTE # 22 -PORT # 187 -BYTE # 23 -PORT # 187 -BYTE # 24 -PORT # 187 -BYTE # 25 -PORT # 187 -BYTE # 26 -PORT # 187 -BYTE # 27 -PORT # 187 -BYTE # 28 -PORT # 187 -BYTE # 29 -PORT # 187 -BYTE # 30 -PORT # 187 -BYTE # 31 -PORT # 187 -BYTE # 32 -PORT # 187 -BYTE # 33 -PORT # 187 -BYTE # 34 -PORT # 187 -BYTE # 35 -PORT # 187 -BYTE # 36 -PORT # 187 -BYTE # 37 -PORT # 187 -BYTE # 38 -PORT # 187 -BYTE # 39 -PORT # 187 -BYTE # 40 -PORT # 187 -BYTE # 41 -PORT # 187 -BYTE # 42 -PORT # 187 -BYTE # 43 -PORT # 187 -BYTE # 44 -PORT # 187 -BYTE # 45 -PORT # 187 -BYTE # 46 -PORT # 187 -BYTE # 47 -PORT # 187 -BYTE # 48 -PORT # 187 -BYTE # 49 -PORT # 187 -BYTE # 50 -PORT # 187 -BYTE # 51 -PORT # 187 -BYTE # 52 -PORT # 187 -BYTE # 53 -PORT # 187 -BYTE # 54 -PORT # 187 -BYTE # 55 -PORT # 187 -BYTE # 56 -PORT # 187 -BYTE # 57 -PORT # 187 -BYTE # 58 -PORT # 187 -BYTE # 59 -PORT # 187 -BYTE # 60 -PORT # 187 -BYTE # 61 -PORT # 187 -BYTE # 62 -PORT # 187 -BYTE # 63 -PORT # 187 -BYTE # 64 -PORT # 187 -BYTE # 65 -PORT # 187 -BYTE # 66 -PORT # 187 -BYTE # 67 -PORT # 187 -BYTE # 68 -PORT # 187 -BYTE # 69 -PORT # 187 -BYTE # 70 -PORT # 187 -BYTE # 71 -PORT # 187 -BYTE # 72 -PORT # 187 -BYTE # 73 -PORT # 187 -BYTE # 74 -PORT # 187 -BYTE # 75 -PORT # 187 -BYTE # 76 -PORT # 187 -BYTE # 77 -PORT # 187 -BYTE # 78 -PORT # 187 -BYTE # 79 -PORT # 187 -BYTE # 80 -PORT # 187 -BYTE # 81 -PORT # 187 -BYTE # 82 -PORT # 187 -BYTE # 83 -PORT # 187 -BYTE # 84 -PORT # 187 -BYTE # 85 -PORT # 187 -BYTE # 86 -PORT # 187 -BYTE # 87 -PORT # 187 -BYTE # 88 -PORT # 187 -BYTE # 89 -PORT # 187 -BYTE # 90 -PORT # 187 -BYTE # 91 -PORT # 187 -BYTE # 92 -PORT # 187 -BYTE # 93 -PORT # 187 -BYTE # 94 -PORT # 187 -BYTE # 95 -PORT # 187 -BYTE # 96 -PORT # 187 -BYTE # 97 -PORT # 187 -BYTE # 98 -PORT # 187 -BYTE # 99 -PORT # 187 -BYTE # 100 -PORT # 187 -BYTE # 101 -PORT # 187 -BYTE # 102 -PORT # 187 -BYTE # 103 -PORT # 187 -BYTE # 104 -PORT # 187 -BYTE # 105 -PORT # 187 -BYTE # 106 -PORT # 187 -BYTE # 107 -PORT # 187 -BYTE # 108 -PORT # 187 -BYTE # 109 -PORT # 187 -BYTE # 110 -PORT # 187 -BYTE # 111 -PORT # 187 -BYTE # 112 -PORT # 187 -BYTE # 113 -PORT # 187 -BYTE # 114 -PORT # 187 -BYTE # 115 -PORT # 187 -BYTE # 116 -PORT # 187 -BYTE # 117 -PORT # 187 -BYTE # 118 -PORT # 187 -BYTE # 119 -PORT # 187 -BYTE # 120 -PORT # 187 -BYTE # 121 -PORT # 187 -BYTE # 122 -PORT # 187 -BYTE # 123 -PORT # 187 -BYTE # 124 -PORT # 187 -BYTE # 125 -PORT # 187 -BYTE # 126 -PORT # 187 -BYTE # 127 -PORT # 187 -BYTE # 128 -PORT # 187 -BYTE # 129 -PORT # 187 -BYTE # 130 -PORT # 187 -BYTE # 131 -PORT # 187 -BYTE # 132 -PORT # 187 -BYTE # 133 -PORT # 187 -BYTE # 134 -PORT # 187 -BYTE # 135 -PORT # 187 -BYTE # 136 -PORT # 187 -BYTE # 137 -PORT # 187 -BYTE # 138 -PORT # 187 -BYTE # 139 -PORT # 187 -BYTE # 140 -PORT # 187 -BYTE # 141 -PORT # 187 -BYTE # 142 -PORT # 187 -BYTE # 143 -PORT # 187 -BYTE # 144 -PORT # 187 -BYTE # 145 -PORT # 187 -BYTE # 146 -PORT # 187 -BYTE # 147 -PORT # 187 -BYTE # 148 -PORT # 187 -BYTE # 149 -PORT # 187 -BYTE # 150 -PORT # 187 -BYTE # 151 -PORT # 187 -BYTE # 152 -PORT # 187 -BYTE # 153 -PORT # 187 -BYTE # 154 -PORT # 187 -BYTE # 155 -PORT # 187 -BYTE # 156 -PORT # 187 -BYTE # 157 -PORT # 187 -BYTE # 158 -PORT # 187 -BYTE # 159 -PORT # 187 -BYTE # 160 -PORT # 187 -BYTE # 161 -PORT # 187 -BYTE # 162 -PORT # 187 -BYTE # 163 -PORT # 187 -BYTE # 164 -PORT # 187 -BYTE # 165 -PORT # 187 -BYTE # 166 -PORT # 187 -BYTE # 167 -PORT # 187 -BYTE # 168 -PORT # 187 -BYTE # 169 -PORT # 187 -BYTE # 170 -PORT # 187 -BYTE # 171 -PORT # 187 -BYTE # 172 -PORT # 187 -BYTE # 173 -PORT # 187 -BYTE # 174 -PORT # 187 -BYTE # 175 -PORT # 187 -BYTE # 176 -PORT # 187 -BYTE # 177 -PORT # 187 -BYTE # 178 -PORT # 187 -BYTE # 179 -PORT # 187 -BYTE # 180 -PORT # 187 -BYTE # 181 -PORT # 187 -BYTE # 182 -PORT # 187 -BYTE # 183 -PORT # 187 -BYTE # 184 -PORT # 187 -BYTE # 185 -PORT # 187 -BYTE # 186 -PORT # 187 -BYTE # 187 -PORT # 187 -BYTE # 188 -PORT # 187 -BYTE # 189 -PORT # 187 -BYTE # 190 -PORT # 187 -BYTE # 191 -PORT # 187 -BYTE # 192 -PORT # 187 -BYTE # 193 -PORT # 187 -BYTE # 194 -PORT # 187 -BYTE # 195 -PORT # 187 -BYTE # 196 -PORT # 187 -BYTE # 197 -PORT # 187 -BYTE # 198 -PORT # 187 -BYTE # 199 -PORT # 187 -BYTE # 200 -PORT # 187 -BYTE # 201 -PORT # 187 -BYTE # 202 -PORT # 187 -BYTE # 203 -PORT # 187 -BYTE # 204 -PORT # 187 -BYTE # 205 -PORT # 187 -BYTE # 206 -PORT # 187 -BYTE # 207 -PORT # 187 -BYTE # 208 -PORT # 187 -BYTE # 209 -PORT # 187 -BYTE # 210 -PORT # 187 -BYTE # 211 -PORT # 187 -BYTE # 212 -PORT # 187 -BYTE # 213 -PORT # 187 -BYTE # 214 -PORT # 187 -BYTE # 215 -PORT # 187 -BYTE # 216 -PORT # 187 -BYTE # 217 -PORT # 187 -BYTE # 218 -PORT # 187 -BYTE # 219 -PORT # 187 -BYTE # 220 -PORT # 187 -BYTE # 221 -PORT # 187 -BYTE # 222 -PORT # 187 -BYTE # 223 -PORT # 187 -BYTE # 224 -PORT # 187 -BYTE # 225 -PORT # 187 -BYTE # 226 -PORT # 187 -BYTE # 227 -PORT # 187 -BYTE # 228 -PORT # 187 -BYTE # 229 -PORT # 187 -BYTE # 230 -PORT # 187 -BYTE # 231 -PORT # 187 -BYTE # 232 -PORT # 187 -BYTE # 233 -PORT # 187 -BYTE # 234 -PORT # 187 -BYTE # 235 -PORT # 187 -BYTE # 236 -PORT # 187 -BYTE # 237 -PORT # 187 -BYTE # 238 -PORT # 187 -BYTE # 239 -PORT # 187 -BYTE # 240 -PORT # 187 -BYTE # 241 -PORT # 187 -BYTE # 242 -PORT # 187 -BYTE # 243 -PORT # 187 -BYTE # 244 -PORT # 187 -BYTE # 245 -PORT # 187 -BYTE # 246 -PORT # 187 -BYTE # 247 -PORT # 187 -BYTE # 248 -PORT # 187 -BYTE # 249 -PORT # 187 -BYTE # 250 -PORT # 187 -BYTE # 251 -PORT # 187 -BYTE # 252 -PORT # 187 -BYTE # 253 -PORT # 187 -BYTE # 254 -PORT # 187 -BYTE # 255 -PORT # 188 -BYTE # 0 -PORT # 188 -BYTE # 1 -PORT # 188 -BYTE # 2 -PORT # 188 -BYTE # 3 -PORT # 188 -BYTE # 4 -PORT # 188 -BYTE # 5 -PORT # 188 -BYTE # 6 -PORT # 188 -BYTE # 7 -PORT # 188 -BYTE # 8 -PORT # 188 -BYTE # 9 -PORT # 188 -BYTE # 10 -PORT # 188 -BYTE # 11 -PORT # 188 -BYTE # 12 -PORT # 188 -BYTE # 13 -PORT # 188 -BYTE # 14 -PORT # 188 -BYTE # 15 -PORT # 188 -BYTE # 16 -PORT # 188 -BYTE # 17 -PORT # 188 -BYTE # 18 -PORT # 188 -BYTE # 19 -PORT # 188 -BYTE # 20 -PORT # 188 -BYTE # 21 -PORT # 188 -BYTE # 22 -PORT # 188 -BYTE # 23 -PORT # 188 -BYTE # 24 -PORT # 188 -BYTE # 25 -PORT # 188 -BYTE # 26 -PORT # 188 -BYTE # 27 -PORT # 188 -BYTE # 28 -PORT # 188 -BYTE # 29 -PORT # 188 -BYTE # 30 -PORT # 188 -BYTE # 31 -PORT # 188 -BYTE # 32 -PORT # 188 -BYTE # 33 -PORT # 188 -BYTE # 34 -PORT # 188 -BYTE # 35 -PORT # 188 -BYTE # 36 -PORT # 188 -BYTE # 37 -PORT # 188 -BYTE # 38 -PORT # 188 -BYTE # 39 -PORT # 188 -BYTE # 40 -PORT # 188 -BYTE # 41 -PORT # 188 -BYTE # 42 -PORT # 188 -BYTE # 43 -PORT # 188 -BYTE # 44 -PORT # 188 -BYTE # 45 -PORT # 188 -BYTE # 46 -PORT # 188 -BYTE # 47 -PORT # 188 -BYTE # 48 -PORT # 188 -BYTE # 49 -PORT # 188 -BYTE # 50 -PORT # 188 -BYTE # 51 -PORT # 188 -BYTE # 52 -PORT # 188 -BYTE # 53 -PORT # 188 -BYTE # 54 -PORT # 188 -BYTE # 55 -PORT # 188 -BYTE # 56 -PORT # 188 -BYTE # 57 -PORT # 188 -BYTE # 58 -PORT # 188 -BYTE # 59 -PORT # 188 -BYTE # 60 -PORT # 188 -BYTE # 61 -PORT # 188 -BYTE # 62 -PORT # 188 -BYTE # 63 -PORT # 188 -BYTE # 64 -PORT # 188 -BYTE # 65 -PORT # 188 -BYTE # 66 -PORT # 188 -BYTE # 67 -PORT # 188 -BYTE # 68 -PORT # 188 -BYTE # 69 -PORT # 188 -BYTE # 70 -PORT # 188 -BYTE # 71 -PORT # 188 -BYTE # 72 -PORT # 188 -BYTE # 73 -PORT # 188 -BYTE # 74 -PORT # 188 -BYTE # 75 -PORT # 188 -BYTE # 76 -PORT # 188 -BYTE # 77 -PORT # 188 -BYTE # 78 -PORT # 188 -BYTE # 79 -PORT # 188 -BYTE # 80 -PORT # 188 -BYTE # 81 -PORT # 188 -BYTE # 82 -PORT # 188 -BYTE # 83 -PORT # 188 -BYTE # 84 -PORT # 188 -BYTE # 85 -PORT # 188 -BYTE # 86 -PORT # 188 -BYTE # 87 -PORT # 188 -BYTE # 88 -PORT # 188 -BYTE # 89 -PORT # 188 -BYTE # 90 -PORT # 188 -BYTE # 91 -PORT # 188 -BYTE # 92 -PORT # 188 -BYTE # 93 -PORT # 188 -BYTE # 94 -PORT # 188 -BYTE # 95 -PORT # 188 -BYTE # 96 -PORT # 188 -BYTE # 97 -PORT # 188 -BYTE # 98 -PORT # 188 -BYTE # 99 -PORT # 188 -BYTE # 100 -PORT # 188 -BYTE # 101 -PORT # 188 -BYTE # 102 -PORT # 188 -BYTE # 103 -PORT # 188 -BYTE # 104 -PORT # 188 -BYTE # 105 -PORT # 188 -BYTE # 106 -PORT # 188 -BYTE # 107 -PORT # 188 -BYTE # 108 -PORT # 188 -BYTE # 109 -PORT # 188 -BYTE # 110 -PORT # 188 -BYTE # 111 -PORT # 188 -BYTE # 112 -PORT # 188 -BYTE # 113 -PORT # 188 -BYTE # 114 -PORT # 188 -BYTE # 115 -PORT # 188 -BYTE # 116 -PORT # 188 -BYTE # 117 -PORT # 188 -BYTE # 118 -PORT # 188 -BYTE # 119 -PORT # 188 -BYTE # 120 -PORT # 188 -BYTE # 121 -PORT # 188 -BYTE # 122 -PORT # 188 -BYTE # 123 -PORT # 188 -BYTE # 124 -PORT # 188 -BYTE # 125 -PORT # 188 -BYTE # 126 -PORT # 188 -BYTE # 127 -PORT # 188 -BYTE # 128 -PORT # 188 -BYTE # 129 -PORT # 188 -BYTE # 130 -PORT # 188 -BYTE # 131 -PORT # 188 -BYTE # 132 -PORT # 188 -BYTE # 133 -PORT # 188 -BYTE # 134 -PORT # 188 -BYTE # 135 -PORT # 188 -BYTE # 136 -PORT # 188 -BYTE # 137 -PORT # 188 -BYTE # 138 -PORT # 188 -BYTE # 139 -PORT # 188 -BYTE # 140 -PORT # 188 -BYTE # 141 -PORT # 188 -BYTE # 142 -PORT # 188 -BYTE # 143 -PORT # 188 -BYTE # 144 -PORT # 188 -BYTE # 145 -PORT # 188 -BYTE # 146 -PORT # 188 -BYTE # 147 -PORT # 188 -BYTE # 148 -PORT # 188 -BYTE # 149 -PORT # 188 -BYTE # 150 -PORT # 188 -BYTE # 151 -PORT # 188 -BYTE # 152 -PORT # 188 -BYTE # 153 -PORT # 188 -BYTE # 154 -PORT # 188 -BYTE # 155 -PORT # 188 -BYTE # 156 -PORT # 188 -BYTE # 157 -PORT # 188 -BYTE # 158 -PORT # 188 -BYTE # 159 -PORT # 188 -BYTE # 160 -PORT # 188 -BYTE # 161 -PORT # 188 -BYTE # 162 -PORT # 188 -BYTE # 163 -PORT # 188 -BYTE # 164 -PORT # 188 -BYTE # 165 -PORT # 188 -BYTE # 166 -PORT # 188 -BYTE # 167 -PORT # 188 -BYTE # 168 -PORT # 188 -BYTE # 169 -PORT # 188 -BYTE # 170 -PORT # 188 -BYTE # 171 -PORT # 188 -BYTE # 172 -PORT # 188 -BYTE # 173 -PORT # 188 -BYTE # 174 -PORT # 188 -BYTE # 175 -PORT # 188 -BYTE # 176 -PORT # 188 -BYTE # 177 -PORT # 188 -BYTE # 178 -PORT # 188 -BYTE # 179 -PORT # 188 -BYTE # 180 -PORT # 188 -BYTE # 181 -PORT # 188 -BYTE # 182 -PORT # 188 -BYTE # 183 -PORT # 188 -BYTE # 184 -PORT # 188 -BYTE # 185 -PORT # 188 -BYTE # 186 -PORT # 188 -BYTE # 187 -PORT # 188 -BYTE # 188 -PORT # 188 -BYTE # 189 -PORT # 188 -BYTE # 190 -PORT # 188 -BYTE # 191 -PORT # 188 -BYTE # 192 -PORT # 188 -BYTE # 193 -PORT # 188 -BYTE # 194 -PORT # 188 -BYTE # 195 -PORT # 188 -BYTE # 196 -PORT # 188 -BYTE # 197 -PORT # 188 -BYTE # 198 -PORT # 188 -BYTE # 199 -PORT # 188 -BYTE # 200 -PORT # 188 -BYTE # 201 -PORT # 188 -BYTE # 202 -PORT # 188 -BYTE # 203 -PORT # 188 -BYTE # 204 -PORT # 188 -BYTE # 205 -PORT # 188 -BYTE # 206 -PORT # 188 -BYTE # 207 -PORT # 188 -BYTE # 208 -PORT # 188 -BYTE # 209 -PORT # 188 -BYTE # 210 -PORT # 188 -BYTE # 211 -PORT # 188 -BYTE # 212 -PORT # 188 -BYTE # 213 -PORT # 188 -BYTE # 214 -PORT # 188 -BYTE # 215 -PORT # 188 -BYTE # 216 -PORT # 188 -BYTE # 217 -PORT # 188 -BYTE # 218 -PORT # 188 -BYTE # 219 -PORT # 188 -BYTE # 220 -PORT # 188 -BYTE # 221 -PORT # 188 -BYTE # 222 -PORT # 188 -BYTE # 223 -PORT # 188 -BYTE # 224 -PORT # 188 -BYTE # 225 -PORT # 188 -BYTE # 226 -PORT # 188 -BYTE # 227 -PORT # 188 -BYTE # 228 -PORT # 188 -BYTE # 229 -PORT # 188 -BYTE # 230 -PORT # 188 -BYTE # 231 -PORT # 188 -BYTE # 232 -PORT # 188 -BYTE # 233 -PORT # 188 -BYTE # 234 -PORT # 188 -BYTE # 235 -PORT # 188 -BYTE # 236 -PORT # 188 -BYTE # 237 -PORT # 188 -BYTE # 238 -PORT # 188 -BYTE # 239 -PORT # 188 -BYTE # 240 -PORT # 188 -BYTE # 241 -PORT # 188 -BYTE # 242 -PORT # 188 -BYTE # 243 -PORT # 188 -BYTE # 244 -PORT # 188 -BYTE # 245 -PORT # 188 -BYTE # 246 -PORT # 188 -BYTE # 247 -PORT # 188 -BYTE # 248 -PORT # 188 -BYTE # 249 -PORT # 188 -BYTE # 250 -PORT # 188 -BYTE # 251 -PORT # 188 -BYTE # 252 -PORT # 188 -BYTE # 253 -PORT # 188 -BYTE # 254 -PORT # 188 -BYTE # 255 -PORT # 189 -BYTE # 0 -PORT # 189 -BYTE # 1 -PORT # 189 -BYTE # 2 -PORT # 189 -BYTE # 3 -PORT # 189 -BYTE # 4 -PORT # 189 -BYTE # 5 -PORT # 189 -BYTE # 6 -PORT # 189 -BYTE # 7 -PORT # 189 -BYTE # 8 -PORT # 189 -BYTE # 9 -PORT # 189 -BYTE # 10 -PORT # 189 -BYTE # 11 -PORT # 189 -BYTE # 12 -PORT # 189 -BYTE # 13 -PORT # 189 -BYTE # 14 -PORT # 189 -BYTE # 15 -PORT # 189 -BYTE # 16 -PORT # 189 -BYTE # 17 -PORT # 189 -BYTE # 18 -PORT # 189 -BYTE # 19 -PORT # 189 -BYTE # 20 -PORT # 189 -BYTE # 21 -PORT # 189 -BYTE # 22 -PORT # 189 -BYTE # 23 -PORT # 189 -BYTE # 24 -PORT # 189 -BYTE # 25 -PORT # 189 -BYTE # 26 -PORT # 189 -BYTE # 27 -PORT # 189 -BYTE # 28 -PORT # 189 -BYTE # 29 -PORT # 189 -BYTE # 30 -PORT # 189 -BYTE # 31 -PORT # 189 -BYTE # 32 -PORT # 189 -BYTE # 33 -PORT # 189 -BYTE # 34 -PORT # 189 -BYTE # 35 -PORT # 189 -BYTE # 36 -PORT # 189 -BYTE # 37 -PORT # 189 -BYTE # 38 -PORT # 189 -BYTE # 39 -PORT # 189 -BYTE # 40 -PORT # 189 -BYTE # 41 -PORT # 189 -BYTE # 42 -PORT # 189 -BYTE # 43 -PORT # 189 -BYTE # 44 -PORT # 189 -BYTE # 45 -PORT # 189 -BYTE # 46 -PORT # 189 -BYTE # 47 -PORT # 189 -BYTE # 48 -PORT # 189 -BYTE # 49 -PORT # 189 -BYTE # 50 -PORT # 189 -BYTE # 51 -PORT # 189 -BYTE # 52 -PORT # 189 -BYTE # 53 -PORT # 189 -BYTE # 54 -PORT # 189 -BYTE # 55 -PORT # 189 -BYTE # 56 -PORT # 189 -BYTE # 57 -PORT # 189 -BYTE # 58 -PORT # 189 -BYTE # 59 -PORT # 189 -BYTE # 60 -PORT # 189 -BYTE # 61 -PORT # 189 -BYTE # 62 -PORT # 189 -BYTE # 63 -PORT # 189 -BYTE # 64 -PORT # 189 -BYTE # 65 -PORT # 189 -BYTE # 66 -PORT # 189 -BYTE # 67 -PORT # 189 -BYTE # 68 -PORT # 189 -BYTE # 69 -PORT # 189 -BYTE # 70 -PORT # 189 -BYTE # 71 -PORT # 189 -BYTE # 72 -PORT # 189 -BYTE # 73 -PORT # 189 -BYTE # 74 -PORT # 189 -BYTE # 75 -PORT # 189 -BYTE # 76 -PORT # 189 -BYTE # 77 -PORT # 189 -BYTE # 78 -PORT # 189 -BYTE # 79 -PORT # 189 -BYTE # 80 -PORT # 189 -BYTE # 81 -PORT # 189 -BYTE # 82 -PORT # 189 -BYTE # 83 -PORT # 189 -BYTE # 84 -PORT # 189 -BYTE # 85 -PORT # 189 -BYTE # 86 -PORT # 189 -BYTE # 87 -PORT # 189 -BYTE # 88 -PORT # 189 -BYTE # 89 -PORT # 189 -BYTE # 90 -PORT # 189 -BYTE # 91 -PORT # 189 -BYTE # 92 -PORT # 189 -BYTE # 93 -PORT # 189 -BYTE # 94 -PORT # 189 -BYTE # 95 -PORT # 189 -BYTE # 96 -PORT # 189 -BYTE # 97 -PORT # 189 -BYTE # 98 -PORT # 189 -BYTE # 99 -PORT # 189 -BYTE # 100 -PORT # 189 -BYTE # 101 -PORT # 189 -BYTE # 102 -PORT # 189 -BYTE # 103 -PORT # 189 -BYTE # 104 -PORT # 189 -BYTE # 105 -PORT # 189 -BYTE # 106 -PORT # 189 -BYTE # 107 -PORT # 189 -BYTE # 108 -PORT # 189 -BYTE # 109 -PORT # 189 -BYTE # 110 -PORT # 189 -BYTE # 111 -PORT # 189 -BYTE # 112 -PORT # 189 -BYTE # 113 -PORT # 189 -BYTE # 114 -PORT # 189 -BYTE # 115 -PORT # 189 -BYTE # 116 -PORT # 189 -BYTE # 117 -PORT # 189 -BYTE # 118 -PORT # 189 -BYTE # 119 -PORT # 189 -BYTE # 120 -PORT # 189 -BYTE # 121 -PORT # 189 -BYTE # 122 -PORT # 189 -BYTE # 123 -PORT # 189 -BYTE # 124 -PORT # 189 -BYTE # 125 -PORT # 189 -BYTE # 126 -PORT # 189 -BYTE # 127 -PORT # 189 -BYTE # 128 -PORT # 189 -BYTE # 129 -PORT # 189 -BYTE # 130 -PORT # 189 -BYTE # 131 -PORT # 189 -BYTE # 132 -PORT # 189 -BYTE # 133 -PORT # 189 -BYTE # 134 -PORT # 189 -BYTE # 135 -PORT # 189 -BYTE # 136 -PORT # 189 -BYTE # 137 -PORT # 189 -BYTE # 138 -PORT # 189 -BYTE # 139 -PORT # 189 -BYTE # 140 -PORT # 189 -BYTE # 141 -PORT # 189 -BYTE # 142 -PORT # 189 -BYTE # 143 -PORT # 189 -BYTE # 144 -PORT # 189 -BYTE # 145 -PORT # 189 -BYTE # 146 -PORT # 189 -BYTE # 147 -PORT # 189 -BYTE # 148 -PORT # 189 -BYTE # 149 -PORT # 189 -BYTE # 150 -PORT # 189 -BYTE # 151 -PORT # 189 -BYTE # 152 -PORT # 189 -BYTE # 153 -PORT # 189 -BYTE # 154 -PORT # 189 -BYTE # 155 -PORT # 189 -BYTE # 156 -PORT # 189 -BYTE # 157 -PORT # 189 -BYTE # 158 -PORT # 189 -BYTE # 159 -PORT # 189 -BYTE # 160 -PORT # 189 -BYTE # 161 -PORT # 189 -BYTE # 162 -PORT # 189 -BYTE # 163 -PORT # 189 -BYTE # 164 -PORT # 189 -BYTE # 165 -PORT # 189 -BYTE # 166 -PORT # 189 -BYTE # 167 -PORT # 189 -BYTE # 168 -PORT # 189 -BYTE # 169 -PORT # 189 -BYTE # 170 -PORT # 189 -BYTE # 171 -PORT # 189 -BYTE # 172 -PORT # 189 -BYTE # 173 -PORT # 189 -BYTE # 174 -PORT # 189 -BYTE # 175 -PORT # 189 -BYTE # 176 -PORT # 189 -BYTE # 177 -PORT # 189 -BYTE # 178 -PORT # 189 -BYTE # 179 -PORT # 189 -BYTE # 180 -PORT # 189 -BYTE # 181 -PORT # 189 -BYTE # 182 -PORT # 189 -BYTE # 183 -PORT # 189 -BYTE # 184 -PORT # 189 -BYTE # 185 -PORT # 189 -BYTE # 186 -PORT # 189 -BYTE # 187 -PORT # 189 -BYTE # 188 -PORT # 189 -BYTE # 189 -PORT # 189 -BYTE # 190 -PORT # 189 -BYTE # 191 -PORT # 189 -BYTE # 192 -PORT # 189 -BYTE # 193 -PORT # 189 -BYTE # 194 -PORT # 189 -BYTE # 195 -PORT # 189 -BYTE # 196 -PORT # 189 -BYTE # 197 -PORT # 189 -BYTE # 198 -PORT # 189 -BYTE # 199 -PORT # 189 -BYTE # 200 -PORT # 189 -BYTE # 201 -PORT # 189 -BYTE # 202 -PORT # 189 -BYTE # 203 -PORT # 189 -BYTE # 204 -PORT # 189 -BYTE # 205 -PORT # 189 -BYTE # 206 -PORT # 189 -BYTE # 207 -PORT # 189 -BYTE # 208 -PORT # 189 -BYTE # 209 -PORT # 189 -BYTE # 210 -PORT # 189 -BYTE # 211 -PORT # 189 -BYTE # 212 -PORT # 189 -BYTE # 213 -PORT # 189 -BYTE # 214 -PORT # 189 -BYTE # 215 -PORT # 189 -BYTE # 216 -PORT # 189 -BYTE # 217 -PORT # 189 -BYTE # 218 -PORT # 189 -BYTE # 219 -PORT # 189 -BYTE # 220 -PORT # 189 -BYTE # 221 -PORT # 189 -BYTE # 222 -PORT # 189 -BYTE # 223 -PORT # 189 -BYTE # 224 -PORT # 189 -BYTE # 225 -PORT # 189 -BYTE # 226 -PORT # 189 -BYTE # 227 -PORT # 189 -BYTE # 228 -PORT # 189 -BYTE # 229 -PORT # 189 -BYTE # 230 -PORT # 189 -BYTE # 231 -PORT # 189 -BYTE # 232 -PORT # 189 -BYTE # 233 -PORT # 189 -BYTE # 234 -PORT # 189 -BYTE # 235 -PORT # 189 -BYTE # 236 -PORT # 189 -BYTE # 237 -PORT # 189 -BYTE # 238 -PORT # 189 -BYTE # 239 -PORT # 189 -BYTE # 240 -PORT # 189 -BYTE # 241 -PORT # 189 -BYTE # 242 -PORT # 189 -BYTE # 243 -PORT # 189 -BYTE # 244 -PORT # 189 -BYTE # 245 -PORT # 189 -BYTE # 246 -PORT # 189 -BYTE # 247 -PORT # 189 -BYTE # 248 -PORT # 189 -BYTE # 249 -PORT # 189 -BYTE # 250 -PORT # 189 -BYTE # 251 -PORT # 189 -BYTE # 252 -PORT # 189 -BYTE # 253 -PORT # 189 -BYTE # 254 -PORT # 189 -BYTE # 255 -PORT # 190 -BYTE # 0 -PORT # 190 -BYTE # 1 -PORT # 190 -BYTE # 2 -PORT # 190 -BYTE # 3 -PORT # 190 -BYTE # 4 -PORT # 190 -BYTE # 5 -PORT # 190 -BYTE # 6 -PORT # 190 -BYTE # 7 -PORT # 190 -BYTE # 8 -PORT # 190 -BYTE # 9 -PORT # 190 -BYTE # 10 -PORT # 190 -BYTE # 11 -PORT # 190 -BYTE # 12 -PORT # 190 -BYTE # 13 -PORT # 190 -BYTE # 14 -PORT # 190 -BYTE # 15 -PORT # 190 -BYTE # 16 -PORT # 190 -BYTE # 17 -PORT # 190 -BYTE # 18 -PORT # 190 -BYTE # 19 -PORT # 190 -BYTE # 20 -PORT # 190 -BYTE # 21 -PORT # 190 -BYTE # 22 -PORT # 190 -BYTE # 23 -PORT # 190 -BYTE # 24 -PORT # 190 -BYTE # 25 -PORT # 190 -BYTE # 26 -PORT # 190 -BYTE # 27 -PORT # 190 -BYTE # 28 -PORT # 190 -BYTE # 29 -PORT # 190 -BYTE # 30 -PORT # 190 -BYTE # 31 -PORT # 190 -BYTE # 32 -PORT # 190 -BYTE # 33 -PORT # 190 -BYTE # 34 -PORT # 190 -BYTE # 35 -PORT # 190 -BYTE # 36 -PORT # 190 -BYTE # 37 -PORT # 190 -BYTE # 38 -PORT # 190 -BYTE # 39 -PORT # 190 -BYTE # 40 -PORT # 190 -BYTE # 41 -PORT # 190 -BYTE # 42 -PORT # 190 -BYTE # 43 -PORT # 190 -BYTE # 44 -PORT # 190 -BYTE # 45 -PORT # 190 -BYTE # 46 -PORT # 190 -BYTE # 47 -PORT # 190 -BYTE # 48 -PORT # 190 -BYTE # 49 -PORT # 190 -BYTE # 50 -PORT # 190 -BYTE # 51 -PORT # 190 -BYTE # 52 -PORT # 190 -BYTE # 53 -PORT # 190 -BYTE # 54 -PORT # 190 -BYTE # 55 -PORT # 190 -BYTE # 56 -PORT # 190 -BYTE # 57 -PORT # 190 -BYTE # 58 -PORT # 190 -BYTE # 59 -PORT # 190 -BYTE # 60 -PORT # 190 -BYTE # 61 -PORT # 190 -BYTE # 62 -PORT # 190 -BYTE # 63 -PORT # 190 -BYTE # 64 -PORT # 190 -BYTE # 65 -PORT # 190 -BYTE # 66 -PORT # 190 -BYTE # 67 -PORT # 190 -BYTE # 68 -PORT # 190 -BYTE # 69 -PORT # 190 -BYTE # 70 -PORT # 190 -BYTE # 71 -PORT # 190 -BYTE # 72 -PORT # 190 -BYTE # 73 -PORT # 190 -BYTE # 74 -PORT # 190 -BYTE # 75 -PORT # 190 -BYTE # 76 -PORT # 190 -BYTE # 77 -PORT # 190 -BYTE # 78 -PORT # 190 -BYTE # 79 -PORT # 190 -BYTE # 80 -PORT # 190 -BYTE # 81 -PORT # 190 -BYTE # 82 -PORT # 190 -BYTE # 83 -PORT # 190 -BYTE # 84 -PORT # 190 -BYTE # 85 -PORT # 190 -BYTE # 86 -PORT # 190 -BYTE # 87 -PORT # 190 -BYTE # 88 -PORT # 190 -BYTE # 89 -PORT # 190 -BYTE # 90 -PORT # 190 -BYTE # 91 -PORT # 190 -BYTE # 92 -PORT # 190 -BYTE # 93 -PORT # 190 -BYTE # 94 -PORT # 190 -BYTE # 95 -PORT # 190 -BYTE # 96 -PORT # 190 -BYTE # 97 -PORT # 190 -BYTE # 98 -PORT # 190 -BYTE # 99 -PORT # 190 -BYTE # 100 -PORT # 190 -BYTE # 101 -PORT # 190 -BYTE # 102 -PORT # 190 -BYTE # 103 -PORT # 190 -BYTE # 104 -PORT # 190 -BYTE # 105 -PORT # 190 -BYTE # 106 -PORT # 190 -BYTE # 107 -PORT # 190 -BYTE # 108 -PORT # 190 -BYTE # 109 -PORT # 190 -BYTE # 110 -PORT # 190 -BYTE # 111 -PORT # 190 -BYTE # 112 -PORT # 190 -BYTE # 113 -PORT # 190 -BYTE # 114 -PORT # 190 -BYTE # 115 -PORT # 190 -BYTE # 116 -PORT # 190 -BYTE # 117 -PORT # 190 -BYTE # 118 -PORT # 190 -BYTE # 119 -PORT # 190 -BYTE # 120 -PORT # 190 -BYTE # 121 -PORT # 190 -BYTE # 122 -PORT # 190 -BYTE # 123 -PORT # 190 -BYTE # 124 -PORT # 190 -BYTE # 125 -PORT # 190 -BYTE # 126 -PORT # 190 -BYTE # 127 -PORT # 190 -BYTE # 128 -PORT # 190 -BYTE # 129 -PORT # 190 -BYTE # 130 -PORT # 190 -BYTE # 131 -PORT # 190 -BYTE # 132 -PORT # 190 -BYTE # 133 -PORT # 190 -BYTE # 134 -PORT # 190 -BYTE # 135 -PORT # 190 -BYTE # 136 -PORT # 190 -BYTE # 137 -PORT # 190 -BYTE # 138 -PORT # 190 -BYTE # 139 -PORT # 190 -BYTE # 140 -PORT # 190 -BYTE # 141 -PORT # 190 -BYTE # 142 -PORT # 190 -BYTE # 143 -PORT # 190 -BYTE # 144 -PORT # 190 -BYTE # 145 -PORT # 190 -BYTE # 146 -PORT # 190 -BYTE # 147 -PORT # 190 -BYTE # 148 -PORT # 190 -BYTE # 149 -PORT # 190 -BYTE # 150 -PORT # 190 -BYTE # 151 -PORT # 190 -BYTE # 152 -PORT # 190 -BYTE # 153 -PORT # 190 -BYTE # 154 -PORT # 190 -BYTE # 155 -PORT # 190 -BYTE # 156 -PORT # 190 -BYTE # 157 -PORT # 190 -BYTE # 158 -PORT # 190 -BYTE # 159 -PORT # 190 -BYTE # 160 -PORT # 190 -BYTE # 161 -PORT # 190 -BYTE # 162 -PORT # 190 -BYTE # 163 -PORT # 190 -BYTE # 164 -PORT # 190 -BYTE # 165 -PORT # 190 -BYTE # 166 -PORT # 190 -BYTE # 167 -PORT # 190 -BYTE # 168 -PORT # 190 -BYTE # 169 -PORT # 190 -BYTE # 170 -PORT # 190 -BYTE # 171 -PORT # 190 -BYTE # 172 -PORT # 190 -BYTE # 173 -PORT # 190 -BYTE # 174 -PORT # 190 -BYTE # 175 -PORT # 190 -BYTE # 176 -PORT # 190 -BYTE # 177 -PORT # 190 -BYTE # 178 -PORT # 190 -BYTE # 179 -PORT # 190 -BYTE # 180 -PORT # 190 -BYTE # 181 -PORT # 190 -BYTE # 182 -PORT # 190 -BYTE # 183 -PORT # 190 -BYTE # 184 -PORT # 190 -BYTE # 185 -PORT # 190 -BYTE # 186 -PORT # 190 -BYTE # 187 -PORT # 190 -BYTE # 188 -PORT # 190 -BYTE # 189 -PORT # 190 -BYTE # 190 -PORT # 190 -BYTE # 191 -PORT # 190 -BYTE # 192 -PORT # 190 -BYTE # 193 -PORT # 190 -BYTE # 194 -PORT # 190 -BYTE # 195 -PORT # 190 -BYTE # 196 -PORT # 190 -BYTE # 197 -PORT # 190 -BYTE # 198 -PORT # 190 -BYTE # 199 -PORT # 190 -BYTE # 200 -PORT # 190 -BYTE # 201 -PORT # 190 -BYTE # 202 -PORT # 190 -BYTE # 203 -PORT # 190 -BYTE # 204 -PORT # 190 -BYTE # 205 -PORT # 190 -BYTE # 206 -PORT # 190 -BYTE # 207 -PORT # 190 -BYTE # 208 -PORT # 190 -BYTE # 209 -PORT # 190 -BYTE # 210 -PORT # 190 -BYTE # 211 -PORT # 190 -BYTE # 212 -PORT # 190 -BYTE # 213 -PORT # 190 -BYTE # 214 -PORT # 190 -BYTE # 215 -PORT # 190 -BYTE # 216 -PORT # 190 -BYTE # 217 -PORT # 190 -BYTE # 218 -PORT # 190 -BYTE # 219 -PORT # 190 -BYTE # 220 -PORT # 190 -BYTE # 221 -PORT # 190 -BYTE # 222 -PORT # 190 -BYTE # 223 -PORT # 190 -BYTE # 224 -PORT # 190 -BYTE # 225 -PORT # 190 -BYTE # 226 -PORT # 190 -BYTE # 227 -PORT # 190 -BYTE # 228 -PORT # 190 -BYTE # 229 -PORT # 190 -BYTE # 230 -PORT # 190 -BYTE # 231 -PORT # 190 -BYTE # 232 -PORT # 190 -BYTE # 233 -PORT # 190 -BYTE # 234 -PORT # 190 -BYTE # 235 -PORT # 190 -BYTE # 236 -PORT # 190 -BYTE # 237 -PORT # 190 -BYTE # 238 -PORT # 190 -BYTE # 239 -PORT # 190 -BYTE # 240 -PORT # 190 -BYTE # 241 -PORT # 190 -BYTE # 242 -PORT # 190 -BYTE # 243 -PORT # 190 -BYTE # 244 -PORT # 190 -BYTE # 245 -PORT # 190 -BYTE # 246 -PORT # 190 -BYTE # 247 -PORT # 190 -BYTE # 248 -PORT # 190 -BYTE # 249 -PORT # 190 -BYTE # 250 -PORT # 190 -BYTE # 251 -PORT # 190 -BYTE # 252 -PORT # 190 -BYTE # 253 -PORT # 190 -BYTE # 254 -PORT # 190 -BYTE # 255 -PORT # 191 -BYTE # 0 -PORT # 191 -BYTE # 1 -PORT # 191 -BYTE # 2 -PORT # 191 -BYTE # 3 -PORT # 191 -BYTE # 4 -PORT # 191 -BYTE # 5 -PORT # 191 -BYTE # 6 -PORT # 191 -BYTE # 7 -PORT # 191 -BYTE # 8 -PORT # 191 -BYTE # 9 -PORT # 191 -BYTE # 10 -PORT # 191 -BYTE # 11 -PORT # 191 -BYTE # 12 -PORT # 191 -BYTE # 13 -PORT # 191 -BYTE # 14 -PORT # 191 -BYTE # 15 -PORT # 191 -BYTE # 16 -PORT # 191 -BYTE # 17 -PORT # 191 -BYTE # 18 -PORT # 191 -BYTE # 19 -PORT # 191 -BYTE # 20 -PORT # 191 -BYTE # 21 -PORT # 191 -BYTE # 22 -PORT # 191 -BYTE # 23 -PORT # 191 -BYTE # 24 -PORT # 191 -BYTE # 25 -PORT # 191 -BYTE # 26 -PORT # 191 -BYTE # 27 -PORT # 191 -BYTE # 28 -PORT # 191 -BYTE # 29 -PORT # 191 -BYTE # 30 -PORT # 191 -BYTE # 31 -PORT # 191 -BYTE # 32 -PORT # 191 -BYTE # 33 -PORT # 191 -BYTE # 34 -PORT # 191 -BYTE # 35 -PORT # 191 -BYTE # 36 -PORT # 191 -BYTE # 37 -PORT # 191 -BYTE # 38 -PORT # 191 -BYTE # 39 -PORT # 191 -BYTE # 40 -PORT # 191 -BYTE # 41 -PORT # 191 -BYTE # 42 -PORT # 191 -BYTE # 43 -PORT # 191 -BYTE # 44 -PORT # 191 -BYTE # 45 -PORT # 191 -BYTE # 46 -PORT # 191 -BYTE # 47 -PORT # 191 -BYTE # 48 -PORT # 191 -BYTE # 49 -PORT # 191 -BYTE # 50 -PORT # 191 -BYTE # 51 -PORT # 191 -BYTE # 52 -PORT # 191 -BYTE # 53 -PORT # 191 -BYTE # 54 -PORT # 191 -BYTE # 55 -PORT # 191 -BYTE # 56 -PORT # 191 -BYTE # 57 -PORT # 191 -BYTE # 58 -PORT # 191 -BYTE # 59 -PORT # 191 -BYTE # 60 -PORT # 191 -BYTE # 61 -PORT # 191 -BYTE # 62 -PORT # 191 -BYTE # 63 -PORT # 191 -BYTE # 64 -PORT # 191 -BYTE # 65 -PORT # 191 -BYTE # 66 -PORT # 191 -BYTE # 67 -PORT # 191 -BYTE # 68 -PORT # 191 -BYTE # 69 -PORT # 191 -BYTE # 70 -PORT # 191 -BYTE # 71 -PORT # 191 -BYTE # 72 -PORT # 191 -BYTE # 73 -PORT # 191 -BYTE # 74 -PORT # 191 -BYTE # 75 -PORT # 191 -BYTE # 76 -PORT # 191 -BYTE # 77 -PORT # 191 -BYTE # 78 -PORT # 191 -BYTE # 79 -PORT # 191 -BYTE # 80 -PORT # 191 -BYTE # 81 -PORT # 191 -BYTE # 82 -PORT # 191 -BYTE # 83 -PORT # 191 -BYTE # 84 -PORT # 191 -BYTE # 85 -PORT # 191 -BYTE # 86 -PORT # 191 -BYTE # 87 -PORT # 191 -BYTE # 88 -PORT # 191 -BYTE # 89 -PORT # 191 -BYTE # 90 -PORT # 191 -BYTE # 91 -PORT # 191 -BYTE # 92 -PORT # 191 -BYTE # 93 -PORT # 191 -BYTE # 94 -PORT # 191 -BYTE # 95 -PORT # 191 -BYTE # 96 -PORT # 191 -BYTE # 97 -PORT # 191 -BYTE # 98 -PORT # 191 -BYTE # 99 -PORT # 191 -BYTE # 100 -PORT # 191 -BYTE # 101 -PORT # 191 -BYTE # 102 -PORT # 191 -BYTE # 103 -PORT # 191 -BYTE # 104 -PORT # 191 -BYTE # 105 -PORT # 191 -BYTE # 106 -PORT # 191 -BYTE # 107 -PORT # 191 -BYTE # 108 -PORT # 191 -BYTE # 109 -PORT # 191 -BYTE # 110 -PORT # 191 -BYTE # 111 -PORT # 191 -BYTE # 112 -PORT # 191 -BYTE # 113 -PORT # 191 -BYTE # 114 -PORT # 191 -BYTE # 115 -PORT # 191 -BYTE # 116 -PORT # 191 -BYTE # 117 -PORT # 191 -BYTE # 118 -PORT # 191 -BYTE # 119 -PORT # 191 -BYTE # 120 -PORT # 191 -BYTE # 121 -PORT # 191 -BYTE # 122 -PORT # 191 -BYTE # 123 -PORT # 191 -BYTE # 124 -PORT # 191 -BYTE # 125 -PORT # 191 -BYTE # 126 -PORT # 191 -BYTE # 127 -PORT # 191 -BYTE # 128 -PORT # 191 -BYTE # 129 -PORT # 191 -BYTE # 130 -PORT # 191 -BYTE # 131 -PORT # 191 -BYTE # 132 -PORT # 191 -BYTE # 133 -PORT # 191 -BYTE # 134 -PORT # 191 -BYTE # 135 -PORT # 191 -BYTE # 136 -PORT # 191 -BYTE # 137 -PORT # 191 -BYTE # 138 -PORT # 191 -BYTE # 139 -PORT # 191 -BYTE # 140 -PORT # 191 -BYTE # 141 -PORT # 191 -BYTE # 142 -PORT # 191 -BYTE # 143 -PORT # 191 -BYTE # 144 -PORT # 191 -BYTE # 145 -PORT # 191 -BYTE # 146 -PORT # 191 -BYTE # 147 -PORT # 191 -BYTE # 148 -PORT # 191 -BYTE # 149 -PORT # 191 -BYTE # 150 -PORT # 191 -BYTE # 151 -PORT # 191 -BYTE # 152 -PORT # 191 -BYTE # 153 -PORT # 191 -BYTE # 154 -PORT # 191 -BYTE # 155 -PORT # 191 -BYTE # 156 -PORT # 191 -BYTE # 157 -PORT # 191 -BYTE # 158 -PORT # 191 -BYTE # 159 -PORT # 191 -BYTE # 160 -PORT # 191 -BYTE # 161 -PORT # 191 -BYTE # 162 -PORT # 191 -BYTE # 163 -PORT # 191 -BYTE # 164 -PORT # 191 -BYTE # 165 -PORT # 191 -BYTE # 166 -PORT # 191 -BYTE # 167 -PORT # 191 -BYTE # 168 -PORT # 191 -BYTE # 169 -PORT # 191 -BYTE # 170 -PORT # 191 -BYTE # 171 -PORT # 191 -BYTE # 172 -PORT # 191 -BYTE # 173 -PORT # 191 -BYTE # 174 -PORT # 191 -BYTE # 175 -PORT # 191 -BYTE # 176 -PORT # 191 -BYTE # 177 -PORT # 191 -BYTE # 178 -PORT # 191 -BYTE # 179 -PORT # 191 -BYTE # 180 -PORT # 191 -BYTE # 181 -PORT # 191 -BYTE # 182 -PORT # 191 -BYTE # 183 -PORT # 191 -BYTE # 184 -PORT # 191 -BYTE # 185 -PORT # 191 -BYTE # 186 -PORT # 191 -BYTE # 187 -PORT # 191 -BYTE # 188 -PORT # 191 -BYTE # 189 -PORT # 191 -BYTE # 190 -PORT # 191 -BYTE # 191 -PORT # 191 -BYTE # 192 -PORT # 191 -BYTE # 193 -PORT # 191 -BYTE # 194 -PORT # 191 -BYTE # 195 -PORT # 191 -BYTE # 196 -PORT # 191 -BYTE # 197 -PORT # 191 -BYTE # 198 -PORT # 191 -BYTE # 199 -PORT # 191 -BYTE # 200 -PORT # 191 -BYTE # 201 -PORT # 191 -BYTE # 202 -PORT # 191 -BYTE # 203 -PORT # 191 -BYTE # 204 -PORT # 191 -BYTE # 205 -PORT # 191 -BYTE # 206 -PORT # 191 -BYTE # 207 -PORT # 191 -BYTE # 208 -PORT # 191 -BYTE # 209 -PORT # 191 -BYTE # 210 -PORT # 191 -BYTE # 211 -PORT # 191 -BYTE # 212 -PORT # 191 -BYTE # 213 -PORT # 191 -BYTE # 214 -PORT # 191 -BYTE # 215 -PORT # 191 -BYTE # 216 -PORT # 191 -BYTE # 217 -PORT # 191 -BYTE # 218 -PORT # 191 -BYTE # 219 -PORT # 191 -BYTE # 220 -PORT # 191 -BYTE # 221 -PORT # 191 -BYTE # 222 -PORT # 191 -BYTE # 223 -PORT # 191 -BYTE # 224 -PORT # 191 -BYTE # 225 -PORT # 191 -BYTE # 226 -PORT # 191 -BYTE # 227 -PORT # 191 -BYTE # 228 -PORT # 191 -BYTE # 229 -PORT # 191 -BYTE # 230 -PORT # 191 -BYTE # 231 -PORT # 191 -BYTE # 232 -PORT # 191 -BYTE # 233 -PORT # 191 -BYTE # 234 -PORT # 191 -BYTE # 235 -PORT # 191 -BYTE # 236 -PORT # 191 -BYTE # 237 -PORT # 191 -BYTE # 238 -PORT # 191 -BYTE # 239 -PORT # 191 -BYTE # 240 -PORT # 191 -BYTE # 241 -PORT # 191 -BYTE # 242 -PORT # 191 -BYTE # 243 -PORT # 191 -BYTE # 244 -PORT # 191 -BYTE # 245 -PORT # 191 -BYTE # 246 -PORT # 191 -BYTE # 247 -PORT # 191 -BYTE # 248 -PORT # 191 -BYTE # 249 -PORT # 191 -BYTE # 250 -PORT # 191 -BYTE # 251 -PORT # 191 -BYTE # 252 -PORT # 191 -BYTE # 253 -PORT # 191 -BYTE # 254 -PORT # 191 -BYTE # 255 -PORT # 192 -BYTE # 0 -PORT # 192 -BYTE # 1 -PORT # 192 -BYTE # 2 -PORT # 192 -BYTE # 3 -PORT # 192 -BYTE # 4 -PORT # 192 -BYTE # 5 -PORT # 192 -BYTE # 6 -PORT # 192 -BYTE # 7 -PORT # 192 -BYTE # 8 -PORT # 192 -BYTE # 9 -PORT # 192 -BYTE # 10 -PORT # 192 -BYTE # 11 -PORT # 192 -BYTE # 12 -PORT # 192 -BYTE # 13 -PORT # 192 -BYTE # 14 -PORT # 192 -BYTE # 15 -PORT # 192 -BYTE # 16 -PORT # 192 -BYTE # 17 -PORT # 192 -BYTE # 18 -PORT # 192 -BYTE # 19 -PORT # 192 -BYTE # 20 -PORT # 192 -BYTE # 21 -PORT # 192 -BYTE # 22 -PORT # 192 -BYTE # 23 -PORT # 192 -BYTE # 24 -PORT # 192 -BYTE # 25 -PORT # 192 -BYTE # 26 -PORT # 192 -BYTE # 27 -PORT # 192 -BYTE # 28 -PORT # 192 -BYTE # 29 -PORT # 192 -BYTE # 30 -PORT # 192 -BYTE # 31 -PORT # 192 -BYTE # 32 -PORT # 192 -BYTE # 33 -PORT # 192 -BYTE # 34 -PORT # 192 -BYTE # 35 -PORT # 192 -BYTE # 36 -PORT # 192 -BYTE # 37 -PORT # 192 -BYTE # 38 -PORT # 192 -BYTE # 39 -PORT # 192 -BYTE # 40 -PORT # 192 -BYTE # 41 -PORT # 192 -BYTE # 42 -PORT # 192 -BYTE # 43 -PORT # 192 -BYTE # 44 -PORT # 192 -BYTE # 45 -PORT # 192 -BYTE # 46 -PORT # 192 -BYTE # 47 -PORT # 192 -BYTE # 48 -PORT # 192 -BYTE # 49 -PORT # 192 -BYTE # 50 -PORT # 192 -BYTE # 51 -PORT # 192 -BYTE # 52 -PORT # 192 -BYTE # 53 -PORT # 192 -BYTE # 54 -PORT # 192 -BYTE # 55 -PORT # 192 -BYTE # 56 -PORT # 192 -BYTE # 57 -PORT # 192 -BYTE # 58 -PORT # 192 -BYTE # 59 -PORT # 192 -BYTE # 60 -PORT # 192 -BYTE # 61 -PORT # 192 -BYTE # 62 -PORT # 192 -BYTE # 63 -PORT # 192 -BYTE # 64 -PORT # 192 -BYTE # 65 -PORT # 192 -BYTE # 66 -PORT # 192 -BYTE # 67 -PORT # 192 -BYTE # 68 -PORT # 192 -BYTE # 69 -PORT # 192 -BYTE # 70 -PORT # 192 -BYTE # 71 -PORT # 192 -BYTE # 72 -PORT # 192 -BYTE # 73 -PORT # 192 -BYTE # 74 -PORT # 192 -BYTE # 75 -PORT # 192 -BYTE # 76 -PORT # 192 -BYTE # 77 -PORT # 192 -BYTE # 78 -PORT # 192 -BYTE # 79 -PORT # 192 -BYTE # 80 -PORT # 192 -BYTE # 81 -PORT # 192 -BYTE # 82 -PORT # 192 -BYTE # 83 -PORT # 192 -BYTE # 84 -PORT # 192 -BYTE # 85 -PORT # 192 -BYTE # 86 -PORT # 192 -BYTE # 87 -PORT # 192 -BYTE # 88 -PORT # 192 -BYTE # 89 -PORT # 192 -BYTE # 90 -PORT # 192 -BYTE # 91 -PORT # 192 -BYTE # 92 -PORT # 192 -BYTE # 93 -PORT # 192 -BYTE # 94 -PORT # 192 -BYTE # 95 -PORT # 192 -BYTE # 96 -PORT # 192 -BYTE # 97 -PORT # 192 -BYTE # 98 -PORT # 192 -BYTE # 99 -PORT # 192 -BYTE # 100 -PORT # 192 -BYTE # 101 -PORT # 192 -BYTE # 102 -PORT # 192 -BYTE # 103 -PORT # 192 -BYTE # 104 -PORT # 192 -BYTE # 105 -PORT # 192 -BYTE # 106 -PORT # 192 -BYTE # 107 -PORT # 192 -BYTE # 108 -PORT # 192 -BYTE # 109 -PORT # 192 -BYTE # 110 -PORT # 192 -BYTE # 111 -PORT # 192 -BYTE # 112 -PORT # 192 -BYTE # 113 -PORT # 192 -BYTE # 114 -PORT # 192 -BYTE # 115 -PORT # 192 -BYTE # 116 -PORT # 192 -BYTE # 117 -PORT # 192 -BYTE # 118 -PORT # 192 -BYTE # 119 -PORT # 192 -BYTE # 120 -PORT # 192 -BYTE # 121 -PORT # 192 -BYTE # 122 -PORT # 192 -BYTE # 123 -PORT # 192 -BYTE # 124 -PORT # 192 -BYTE # 125 -PORT # 192 -BYTE # 126 -PORT # 192 -BYTE # 127 -PORT # 192 -BYTE # 128 -PORT # 192 -BYTE # 129 -PORT # 192 -BYTE # 130 -PORT # 192 -BYTE # 131 -PORT # 192 -BYTE # 132 -PORT # 192 -BYTE # 133 -PORT # 192 -BYTE # 134 -PORT # 192 -BYTE # 135 -PORT # 192 -BYTE # 136 -PORT # 192 -BYTE # 137 -PORT # 192 -BYTE # 138 -PORT # 192 -BYTE # 139 -PORT # 192 -BYTE # 140 -PORT # 192 -BYTE # 141 -PORT # 192 -BYTE # 142 -PORT # 192 -BYTE # 143 -PORT # 192 -BYTE # 144 -PORT # 192 -BYTE # 145 -PORT # 192 -BYTE # 146 -PORT # 192 -BYTE # 147 -PORT # 192 -BYTE # 148 -PORT # 192 -BYTE # 149 -PORT # 192 -BYTE # 150 -PORT # 192 -BYTE # 151 -PORT # 192 -BYTE # 152 -PORT # 192 -BYTE # 153 -PORT # 192 -BYTE # 154 -PORT # 192 -BYTE # 155 -PORT # 192 -BYTE # 156 -PORT # 192 -BYTE # 157 -PORT # 192 -BYTE # 158 -PORT # 192 -BYTE # 159 -PORT # 192 -BYTE # 160 -PORT # 192 -BYTE # 161 -PORT # 192 -BYTE # 162 -PORT # 192 -BYTE # 163 -PORT # 192 -BYTE # 164 -PORT # 192 -BYTE # 165 -PORT # 192 -BYTE # 166 -PORT # 192 -BYTE # 167 -PORT # 192 -BYTE # 168 -PORT # 192 -BYTE # 169 -PORT # 192 -BYTE # 170 -PORT # 192 -BYTE # 171 -PORT # 192 -BYTE # 172 -PORT # 192 -BYTE # 173 -PORT # 192 -BYTE # 174 -PORT # 192 -BYTE # 175 -PORT # 192 -BYTE # 176 -PORT # 192 -BYTE # 177 -PORT # 192 -BYTE # 178 -PORT # 192 -BYTE # 179 -PORT # 192 -BYTE # 180 -PORT # 192 -BYTE # 181 -PORT # 192 -BYTE # 182 -PORT # 192 -BYTE # 183 -PORT # 192 -BYTE # 184 -PORT # 192 -BYTE # 185 -PORT # 192 -BYTE # 186 -PORT # 192 -BYTE # 187 -PORT # 192 -BYTE # 188 -PORT # 192 -BYTE # 189 -PORT # 192 -BYTE # 190 -PORT # 192 -BYTE # 191 -PORT # 192 -BYTE # 192 -PORT # 192 -BYTE # 193 -PORT # 192 -BYTE # 194 -PORT # 192 -BYTE # 195 -PORT # 192 -BYTE # 196 -PORT # 192 -BYTE # 197 -PORT # 192 -BYTE # 198 -PORT # 192 -BYTE # 199 -PORT # 192 -BYTE # 200 -PORT # 192 -BYTE # 201 -PORT # 192 -BYTE # 202 -PORT # 192 -BYTE # 203 -PORT # 192 -BYTE # 204 -PORT # 192 -BYTE # 205 -PORT # 192 -BYTE # 206 -PORT # 192 -BYTE # 207 -PORT # 192 -BYTE # 208 -PORT # 192 -BYTE # 209 -PORT # 192 -BYTE # 210 -PORT # 192 -BYTE # 211 -PORT # 192 -BYTE # 212 -PORT # 192 -BYTE # 213 -PORT # 192 -BYTE # 214 -PORT # 192 -BYTE # 215 -PORT # 192 -BYTE # 216 -PORT # 192 -BYTE # 217 -PORT # 192 -BYTE # 218 -PORT # 192 -BYTE # 219 -PORT # 192 -BYTE # 220 -PORT # 192 -BYTE # 221 -PORT # 192 -BYTE # 222 -PORT # 192 -BYTE # 223 -PORT # 192 -BYTE # 224 -PORT # 192 -BYTE # 225 -PORT # 192 -BYTE # 226 -PORT # 192 -BYTE # 227 -PORT # 192 -BYTE # 228 -PORT # 192 -BYTE # 229 -PORT # 192 -BYTE # 230 -PORT # 192 -BYTE # 231 -PORT # 192 -BYTE # 232 -PORT # 192 -BYTE # 233 -PORT # 192 -BYTE # 234 -PORT # 192 -BYTE # 235 -PORT # 192 -BYTE # 236 -PORT # 192 -BYTE # 237 -PORT # 192 -BYTE # 238 -PORT # 192 -BYTE # 239 -PORT # 192 -BYTE # 240 -PORT # 192 -BYTE # 241 -PORT # 192 -BYTE # 242 -PORT # 192 -BYTE # 243 -PORT # 192 -BYTE # 244 -PORT # 192 -BYTE # 245 -PORT # 192 -BYTE # 246 -PORT # 192 -BYTE # 247 -PORT # 192 -BYTE # 248 -PORT # 192 -BYTE # 249 -PORT # 192 -BYTE # 250 -PORT # 192 -BYTE # 251 -PORT # 192 -BYTE # 252 -PORT # 192 -BYTE # 253 -PORT # 192 -BYTE # 254 -PORT # 192 -BYTE # 255 -PORT # 193 -BYTE # 0 -PORT # 193 -BYTE # 1 -PORT # 193 -BYTE # 2 -PORT # 193 -BYTE # 3 -PORT # 193 -BYTE # 4 -PORT # 193 -BYTE # 5 -PORT # 193 -BYTE # 6 -PORT # 193 -BYTE # 7 -PORT # 193 -BYTE # 8 -PORT # 193 -BYTE # 9 -PORT # 193 -BYTE # 10 -PORT # 193 -BYTE # 11 -PORT # 193 -BYTE # 12 -PORT # 193 -BYTE # 13 -PORT # 193 -BYTE # 14 -PORT # 193 -BYTE # 15 -PORT # 193 -BYTE # 16 -PORT # 193 -BYTE # 17 -PORT # 193 -BYTE # 18 -PORT # 193 -BYTE # 19 -PORT # 193 -BYTE # 20 -PORT # 193 -BYTE # 21 -PORT # 193 -BYTE # 22 -PORT # 193 -BYTE # 23 -PORT # 193 -BYTE # 24 -PORT # 193 -BYTE # 25 -PORT # 193 -BYTE # 26 -PORT # 193 -BYTE # 27 -PORT # 193 -BYTE # 28 -PORT # 193 -BYTE # 29 -PORT # 193 -BYTE # 30 -PORT # 193 -BYTE # 31 -PORT # 193 -BYTE # 32 -PORT # 193 -BYTE # 33 -PORT # 193 -BYTE # 34 -PORT # 193 -BYTE # 35 -PORT # 193 -BYTE # 36 -PORT # 193 -BYTE # 37 -PORT # 193 -BYTE # 38 -PORT # 193 -BYTE # 39 -PORT # 193 -BYTE # 40 -PORT # 193 -BYTE # 41 -PORT # 193 -BYTE # 42 -PORT # 193 -BYTE # 43 -PORT # 193 -BYTE # 44 -PORT # 193 -BYTE # 45 -PORT # 193 -BYTE # 46 -PORT # 193 -BYTE # 47 -PORT # 193 -BYTE # 48 -PORT # 193 -BYTE # 49 -PORT # 193 -BYTE # 50 -PORT # 193 -BYTE # 51 -PORT # 193 -BYTE # 52 -PORT # 193 -BYTE # 53 -PORT # 193 -BYTE # 54 -PORT # 193 -BYTE # 55 -PORT # 193 -BYTE # 56 -PORT # 193 -BYTE # 57 -PORT # 193 -BYTE # 58 -PORT # 193 -BYTE # 59 -PORT # 193 -BYTE # 60 -PORT # 193 -BYTE # 61 -PORT # 193 -BYTE # 62 -PORT # 193 -BYTE # 63 -PORT # 193 -BYTE # 64 -PORT # 193 -BYTE # 65 -PORT # 193 -BYTE # 66 -PORT # 193 -BYTE # 67 -PORT # 193 -BYTE # 68 -PORT # 193 -BYTE # 69 -PORT # 193 -BYTE # 70 -PORT # 193 -BYTE # 71 -PORT # 193 -BYTE # 72 -PORT # 193 -BYTE # 73 -PORT # 193 -BYTE # 74 -PORT # 193 -BYTE # 75 -PORT # 193 -BYTE # 76 -PORT # 193 -BYTE # 77 -PORT # 193 -BYTE # 78 -PORT # 193 -BYTE # 79 -PORT # 193 -BYTE # 80 -PORT # 193 -BYTE # 81 -PORT # 193 -BYTE # 82 -PORT # 193 -BYTE # 83 -PORT # 193 -BYTE # 84 -PORT # 193 -BYTE # 85 -PORT # 193 -BYTE # 86 -PORT # 193 -BYTE # 87 -PORT # 193 -BYTE # 88 -PORT # 193 -BYTE # 89 -PORT # 193 -BYTE # 90 -PORT # 193 -BYTE # 91 -PORT # 193 -BYTE # 92 -PORT # 193 -BYTE # 93 -PORT # 193 -BYTE # 94 -PORT # 193 -BYTE # 95 -PORT # 193 -BYTE # 96 -PORT # 193 -BYTE # 97 -PORT # 193 -BYTE # 98 -PORT # 193 -BYTE # 99 -PORT # 193 -BYTE # 100 -PORT # 193 -BYTE # 101 -PORT # 193 -BYTE # 102 -PORT # 193 -BYTE # 103 -PORT # 193 -BYTE # 104 -PORT # 193 -BYTE # 105 -PORT # 193 -BYTE # 106 -PORT # 193 -BYTE # 107 -PORT # 193 -BYTE # 108 -PORT # 193 -BYTE # 109 -PORT # 193 -BYTE # 110 -PORT # 193 -BYTE # 111 -PORT # 193 -BYTE # 112 -PORT # 193 -BYTE # 113 -PORT # 193 -BYTE # 114 -PORT # 193 -BYTE # 115 -PORT # 193 -BYTE # 116 -PORT # 193 -BYTE # 117 -PORT # 193 -BYTE # 118 -PORT # 193 -BYTE # 119 -PORT # 193 -BYTE # 120 -PORT # 193 -BYTE # 121 -PORT # 193 -BYTE # 122 -PORT # 193 -BYTE # 123 -PORT # 193 -BYTE # 124 -PORT # 193 -BYTE # 125 -PORT # 193 -BYTE # 126 -PORT # 193 -BYTE # 127 -PORT # 193 -BYTE # 128 -PORT # 193 -BYTE # 129 -PORT # 193 -BYTE # 130 -PORT # 193 -BYTE # 131 -PORT # 193 -BYTE # 132 -PORT # 193 -BYTE # 133 -PORT # 193 -BYTE # 134 -PORT # 193 -BYTE # 135 -PORT # 193 -BYTE # 136 -PORT # 193 -BYTE # 137 -PORT # 193 -BYTE # 138 -PORT # 193 -BYTE # 139 -PORT # 193 -BYTE # 140 -PORT # 193 -BYTE # 141 -PORT # 193 -BYTE # 142 -PORT # 193 -BYTE # 143 -PORT # 193 -BYTE # 144 -PORT # 193 -BYTE # 145 -PORT # 193 -BYTE # 146 -PORT # 193 -BYTE # 147 -PORT # 193 -BYTE # 148 -PORT # 193 -BYTE # 149 -PORT # 193 -BYTE # 150 -PORT # 193 -BYTE # 151 -PORT # 193 -BYTE # 152 -PORT # 193 -BYTE # 153 -PORT # 193 -BYTE # 154 -PORT # 193 -BYTE # 155 -PORT # 193 -BYTE # 156 -PORT # 193 -BYTE # 157 -PORT # 193 -BYTE # 158 -PORT # 193 -BYTE # 159 -PORT # 193 -BYTE # 160 -PORT # 193 -BYTE # 161 -PORT # 193 -BYTE # 162 -PORT # 193 -BYTE # 163 -PORT # 193 -BYTE # 164 -PORT # 193 -BYTE # 165 -PORT # 193 -BYTE # 166 -PORT # 193 -BYTE # 167 -PORT # 193 -BYTE # 168 -PORT # 193 -BYTE # 169 -PORT # 193 -BYTE # 170 -PORT # 193 -BYTE # 171 -PORT # 193 -BYTE # 172 -PORT # 193 -BYTE # 173 -PORT # 193 -BYTE # 174 -PORT # 193 -BYTE # 175 -PORT # 193 -BYTE # 176 -PORT # 193 -BYTE # 177 -PORT # 193 -BYTE # 178 -PORT # 193 -BYTE # 179 -PORT # 193 -BYTE # 180 -PORT # 193 -BYTE # 181 -PORT # 193 -BYTE # 182 -PORT # 193 -BYTE # 183 -PORT # 193 -BYTE # 184 -PORT # 193 -BYTE # 185 -PORT # 193 -BYTE # 186 -PORT # 193 -BYTE # 187 -PORT # 193 -BYTE # 188 -PORT # 193 -BYTE # 189 -PORT # 193 -BYTE # 190 -PORT # 193 -BYTE # 191 -PORT # 193 -BYTE # 192 -PORT # 193 -BYTE # 193 -PORT # 193 -BYTE # 194 -PORT # 193 -BYTE # 195 -PORT # 193 -BYTE # 196 -PORT # 193 -BYTE # 197 -PORT # 193 -BYTE # 198 -PORT # 193 -BYTE # 199 -PORT # 193 -BYTE # 200 -PORT # 193 -BYTE # 201 -PORT # 193 -BYTE # 202 -PORT # 193 -BYTE # 203 -PORT # 193 -BYTE # 204 -PORT # 193 -BYTE # 205 -PORT # 193 -BYTE # 206 -PORT # 193 -BYTE # 207 -PORT # 193 -BYTE # 208 -PORT # 193 -BYTE # 209 -PORT # 193 -BYTE # 210 -PORT # 193 -BYTE # 211 -PORT # 193 -BYTE # 212 -PORT # 193 -BYTE # 213 -PORT # 193 -BYTE # 214 -PORT # 193 -BYTE # 215 -PORT # 193 -BYTE # 216 -PORT # 193 -BYTE # 217 -PORT # 193 -BYTE # 218 -PORT # 193 -BYTE # 219 -PORT # 193 -BYTE # 220 -PORT # 193 -BYTE # 221 -PORT # 193 -BYTE # 222 -PORT # 193 -BYTE # 223 -PORT # 193 -BYTE # 224 -PORT # 193 -BYTE # 225 -PORT # 193 -BYTE # 226 -PORT # 193 -BYTE # 227 -PORT # 193 -BYTE # 228 -PORT # 193 -BYTE # 229 -PORT # 193 -BYTE # 230 -PORT # 193 -BYTE # 231 -PORT # 193 -BYTE # 232 -PORT # 193 -BYTE # 233 -PORT # 193 -BYTE # 234 -PORT # 193 -BYTE # 235 -PORT # 193 -BYTE # 236 -PORT # 193 -BYTE # 237 -PORT # 193 -BYTE # 238 -PORT # 193 -BYTE # 239 -PORT # 193 -BYTE # 240 -PORT # 193 -BYTE # 241 -PORT # 193 -BYTE # 242 -PORT # 193 -BYTE # 243 -PORT # 193 -BYTE # 244 -PORT # 193 -BYTE # 245 -PORT # 193 -BYTE # 246 -PORT # 193 -BYTE # 247 -PORT # 193 -BYTE # 248 -PORT # 193 -BYTE # 249 -PORT # 193 -BYTE # 250 -PORT # 193 -BYTE # 251 -PORT # 193 -BYTE # 252 -PORT # 193 -BYTE # 253 -PORT # 193 -BYTE # 254 -PORT # 193 -BYTE # 255 -PORT # 194 -BYTE # 0 -PORT # 194 -BYTE # 1 -PORT # 194 -BYTE # 2 -PORT # 194 -BYTE # 3 -PORT # 194 -BYTE # 4 -PORT # 194 -BYTE # 5 -PORT # 194 -BYTE # 6 -PORT # 194 -BYTE # 7 -PORT # 194 -BYTE # 8 -PORT # 194 -BYTE # 9 -PORT # 194 -BYTE # 10 -PORT # 194 -BYTE # 11 -PORT # 194 -BYTE # 12 -PORT # 194 -BYTE # 13 -PORT # 194 -BYTE # 14 -PORT # 194 -BYTE # 15 -PORT # 194 -BYTE # 16 -PORT # 194 -BYTE # 17 -PORT # 194 -BYTE # 18 -PORT # 194 -BYTE # 19 -PORT # 194 -BYTE # 20 -PORT # 194 -BYTE # 21 -PORT # 194 -BYTE # 22 -PORT # 194 -BYTE # 23 -PORT # 194 -BYTE # 24 -PORT # 194 -BYTE # 25 -PORT # 194 -BYTE # 26 -PORT # 194 -BYTE # 27 -PORT # 194 -BYTE # 28 -PORT # 194 -BYTE # 29 -PORT # 194 -BYTE # 30 -PORT # 194 -BYTE # 31 -PORT # 194 -BYTE # 32 -PORT # 194 -BYTE # 33 -PORT # 194 -BYTE # 34 -PORT # 194 -BYTE # 35 -PORT # 194 -BYTE # 36 -PORT # 194 -BYTE # 37 -PORT # 194 -BYTE # 38 -PORT # 194 -BYTE # 39 -PORT # 194 -BYTE # 40 -PORT # 194 -BYTE # 41 -PORT # 194 -BYTE # 42 -PORT # 194 -BYTE # 43 -PORT # 194 -BYTE # 44 -PORT # 194 -BYTE # 45 -PORT # 194 -BYTE # 46 -PORT # 194 -BYTE # 47 -PORT # 194 -BYTE # 48 -PORT # 194 -BYTE # 49 -PORT # 194 -BYTE # 50 -PORT # 194 -BYTE # 51 -PORT # 194 -BYTE # 52 -PORT # 194 -BYTE # 53 -PORT # 194 -BYTE # 54 -PORT # 194 -BYTE # 55 -PORT # 194 -BYTE # 56 -PORT # 194 -BYTE # 57 -PORT # 194 -BYTE # 58 -PORT # 194 -BYTE # 59 -PORT # 194 -BYTE # 60 -PORT # 194 -BYTE # 61 -PORT # 194 -BYTE # 62 -PORT # 194 -BYTE # 63 -PORT # 194 -BYTE # 64 -PORT # 194 -BYTE # 65 -PORT # 194 -BYTE # 66 -PORT # 194 -BYTE # 67 -PORT # 194 -BYTE # 68 -PORT # 194 -BYTE # 69 -PORT # 194 -BYTE # 70 -PORT # 194 -BYTE # 71 -PORT # 194 -BYTE # 72 -PORT # 194 -BYTE # 73 -PORT # 194 -BYTE # 74 -PORT # 194 -BYTE # 75 -PORT # 194 -BYTE # 76 -PORT # 194 -BYTE # 77 -PORT # 194 -BYTE # 78 -PORT # 194 -BYTE # 79 -PORT # 194 -BYTE # 80 -PORT # 194 -BYTE # 81 -PORT # 194 -BYTE # 82 -PORT # 194 -BYTE # 83 -PORT # 194 -BYTE # 84 -PORT # 194 -BYTE # 85 -PORT # 194 -BYTE # 86 -PORT # 194 -BYTE # 87 -PORT # 194 -BYTE # 88 -PORT # 194 -BYTE # 89 -PORT # 194 -BYTE # 90 -PORT # 194 -BYTE # 91 -PORT # 194 -BYTE # 92 -PORT # 194 -BYTE # 93 -PORT # 194 -BYTE # 94 -PORT # 194 -BYTE # 95 -PORT # 194 -BYTE # 96 -PORT # 194 -BYTE # 97 -PORT # 194 -BYTE # 98 -PORT # 194 -BYTE # 99 -PORT # 194 -BYTE # 100 -PORT # 194 -BYTE # 101 -PORT # 194 -BYTE # 102 -PORT # 194 -BYTE # 103 -PORT # 194 -BYTE # 104 -PORT # 194 -BYTE # 105 -PORT # 194 -BYTE # 106 -PORT # 194 -BYTE # 107 -PORT # 194 -BYTE # 108 -PORT # 194 -BYTE # 109 -PORT # 194 -BYTE # 110 -PORT # 194 -BYTE # 111 -PORT # 194 -BYTE # 112 -PORT # 194 -BYTE # 113 -PORT # 194 -BYTE # 114 -PORT # 194 -BYTE # 115 -PORT # 194 -BYTE # 116 -PORT # 194 -BYTE # 117 -PORT # 194 -BYTE # 118 -PORT # 194 -BYTE # 119 -PORT # 194 -BYTE # 120 -PORT # 194 -BYTE # 121 -PORT # 194 -BYTE # 122 -PORT # 194 -BYTE # 123 -PORT # 194 -BYTE # 124 -PORT # 194 -BYTE # 125 -PORT # 194 -BYTE # 126 -PORT # 194 -BYTE # 127 -PORT # 194 -BYTE # 128 -PORT # 194 -BYTE # 129 -PORT # 194 -BYTE # 130 -PORT # 194 -BYTE # 131 -PORT # 194 -BYTE # 132 -PORT # 194 -BYTE # 133 -PORT # 194 -BYTE # 134 -PORT # 194 -BYTE # 135 -PORT # 194 -BYTE # 136 -PORT # 194 -BYTE # 137 -PORT # 194 -BYTE # 138 -PORT # 194 -BYTE # 139 -PORT # 194 -BYTE # 140 -PORT # 194 -BYTE # 141 -PORT # 194 -BYTE # 142 -PORT # 194 -BYTE # 143 -PORT # 194 -BYTE # 144 -PORT # 194 -BYTE # 145 -PORT # 194 -BYTE # 146 -PORT # 194 -BYTE # 147 -PORT # 194 -BYTE # 148 -PORT # 194 -BYTE # 149 -PORT # 194 -BYTE # 150 -PORT # 194 -BYTE # 151 -PORT # 194 -BYTE # 152 -PORT # 194 -BYTE # 153 -PORT # 194 -BYTE # 154 -PORT # 194 -BYTE # 155 -PORT # 194 -BYTE # 156 -PORT # 194 -BYTE # 157 -PORT # 194 -BYTE # 158 -PORT # 194 -BYTE # 159 -PORT # 194 -BYTE # 160 -PORT # 194 -BYTE # 161 -PORT # 194 -BYTE # 162 -PORT # 194 -BYTE # 163 -PORT # 194 -BYTE # 164 -PORT # 194 -BYTE # 165 -PORT # 194 -BYTE # 166 -PORT # 194 -BYTE # 167 -PORT # 194 -BYTE # 168 -PORT # 194 -BYTE # 169 -PORT # 194 -BYTE # 170 -PORT # 194 -BYTE # 171 -PORT # 194 -BYTE # 172 -PORT # 194 -BYTE # 173 -PORT # 194 -BYTE # 174 -PORT # 194 -BYTE # 175 -PORT # 194 -BYTE # 176 -PORT # 194 -BYTE # 177 -PORT # 194 -BYTE # 178 -PORT # 194 -BYTE # 179 -PORT # 194 -BYTE # 180 -PORT # 194 -BYTE # 181 -PORT # 194 -BYTE # 182 -PORT # 194 -BYTE # 183 -PORT # 194 -BYTE # 184 -PORT # 194 -BYTE # 185 -PORT # 194 -BYTE # 186 -PORT # 194 -BYTE # 187 -PORT # 194 -BYTE # 188 -PORT # 194 -BYTE # 189 -PORT # 194 -BYTE # 190 -PORT # 194 -BYTE # 191 -PORT # 194 -BYTE # 192 -PORT # 194 -BYTE # 193 -PORT # 194 -BYTE # 194 -PORT # 194 -BYTE # 195 -PORT # 194 -BYTE # 196 -PORT # 194 -BYTE # 197 -PORT # 194 -BYTE # 198 -PORT # 194 -BYTE # 199 -PORT # 194 -BYTE # 200 -PORT # 194 -BYTE # 201 -PORT # 194 -BYTE # 202 -PORT # 194 -BYTE # 203 -PORT # 194 -BYTE # 204 -PORT # 194 -BYTE # 205 -PORT # 194 -BYTE # 206 -PORT # 194 -BYTE # 207 -PORT # 194 -BYTE # 208 -PORT # 194 -BYTE # 209 -PORT # 194 -BYTE # 210 -PORT # 194 -BYTE # 211 -PORT # 194 -BYTE # 212 -PORT # 194 -BYTE # 213 -PORT # 194 -BYTE # 214 -PORT # 194 -BYTE # 215 -PORT # 194 -BYTE # 216 -PORT # 194 -BYTE # 217 -PORT # 194 -BYTE # 218 -PORT # 194 -BYTE # 219 -PORT # 194 -BYTE # 220 -PORT # 194 -BYTE # 221 -PORT # 194 -BYTE # 222 -PORT # 194 -BYTE # 223 -PORT # 194 -BYTE # 224 -PORT # 194 -BYTE # 225 -PORT # 194 -BYTE # 226 -PORT # 194 -BYTE # 227 -PORT # 194 -BYTE # 228 -PORT # 194 -BYTE # 229 -PORT # 194 -BYTE # 230 -PORT # 194 -BYTE # 231 -PORT # 194 -BYTE # 232 -PORT # 194 -BYTE # 233 -PORT # 194 -BYTE # 234 -PORT # 194 -BYTE # 235 -PORT # 194 -BYTE # 236 -PORT # 194 -BYTE # 237 -PORT # 194 -BYTE # 238 -PORT # 194 -BYTE # 239 -PORT # 194 -BYTE # 240 -PORT # 194 -BYTE # 241 -PORT # 194 -BYTE # 242 -PORT # 194 -BYTE # 243 -PORT # 194 -BYTE # 244 -PORT # 194 -BYTE # 245 -PORT # 194 -BYTE # 246 -PORT # 194 -BYTE # 247 -PORT # 194 -BYTE # 248 -PORT # 194 -BYTE # 249 -PORT # 194 -BYTE # 250 -PORT # 194 -BYTE # 251 -PORT # 194 -BYTE # 252 -PORT # 194 -BYTE # 253 -PORT # 194 -BYTE # 254 -PORT # 194 -BYTE # 255 -PORT # 195 -BYTE # 0 -PORT # 195 -BYTE # 1 -PORT # 195 -BYTE # 2 -PORT # 195 -BYTE # 3 -PORT # 195 -BYTE # 4 -PORT # 195 -BYTE # 5 -PORT # 195 -BYTE # 6 -PORT # 195 -BYTE # 7 -PORT # 195 -BYTE # 8 -PORT # 195 -BYTE # 9 -PORT # 195 -BYTE # 10 -PORT # 195 -BYTE # 11 -PORT # 195 -BYTE # 12 -PORT # 195 -BYTE # 13 -PORT # 195 -BYTE # 14 -PORT # 195 -BYTE # 15 -PORT # 195 -BYTE # 16 -PORT # 195 -BYTE # 17 -PORT # 195 -BYTE # 18 -PORT # 195 -BYTE # 19 -PORT # 195 -BYTE # 20 -PORT # 195 -BYTE # 21 -PORT # 195 -BYTE # 22 -PORT # 195 -BYTE # 23 -PORT # 195 -BYTE # 24 -PORT # 195 -BYTE # 25 -PORT # 195 -BYTE # 26 -PORT # 195 -BYTE # 27 -PORT # 195 -BYTE # 28 -PORT # 195 -BYTE # 29 -PORT # 195 -BYTE # 30 -PORT # 195 -BYTE # 31 -PORT # 195 -BYTE # 32 -PORT # 195 -BYTE # 33 -PORT # 195 -BYTE # 34 -PORT # 195 -BYTE # 35 -PORT # 195 -BYTE # 36 -PORT # 195 -BYTE # 37 -PORT # 195 -BYTE # 38 -PORT # 195 -BYTE # 39 -PORT # 195 -BYTE # 40 -PORT # 195 -BYTE # 41 -PORT # 195 -BYTE # 42 -PORT # 195 -BYTE # 43 -PORT # 195 -BYTE # 44 -PORT # 195 -BYTE # 45 -PORT # 195 -BYTE # 46 -PORT # 195 -BYTE # 47 -PORT # 195 -BYTE # 48 -PORT # 195 -BYTE # 49 -PORT # 195 -BYTE # 50 -PORT # 195 -BYTE # 51 -PORT # 195 -BYTE # 52 -PORT # 195 -BYTE # 53 -PORT # 195 -BYTE # 54 -PORT # 195 -BYTE # 55 -PORT # 195 -BYTE # 56 -PORT # 195 -BYTE # 57 -PORT # 195 -BYTE # 58 -PORT # 195 -BYTE # 59 -PORT # 195 -BYTE # 60 -PORT # 195 -BYTE # 61 -PORT # 195 -BYTE # 62 -PORT # 195 -BYTE # 63 -PORT # 195 -BYTE # 64 -PORT # 195 -BYTE # 65 -PORT # 195 -BYTE # 66 -PORT # 195 -BYTE # 67 -PORT # 195 -BYTE # 68 -PORT # 195 -BYTE # 69 -PORT # 195 -BYTE # 70 -PORT # 195 -BYTE # 71 -PORT # 195 -BYTE # 72 -PORT # 195 -BYTE # 73 -PORT # 195 -BYTE # 74 -PORT # 195 -BYTE # 75 -PORT # 195 -BYTE # 76 -PORT # 195 -BYTE # 77 -PORT # 195 -BYTE # 78 -PORT # 195 -BYTE # 79 -PORT # 195 -BYTE # 80 -PORT # 195 -BYTE # 81 -PORT # 195 -BYTE # 82 -PORT # 195 -BYTE # 83 -PORT # 195 -BYTE # 84 -PORT # 195 -BYTE # 85 -PORT # 195 -BYTE # 86 -PORT # 195 -BYTE # 87 -PORT # 195 -BYTE # 88 -PORT # 195 -BYTE # 89 -PORT # 195 -BYTE # 90 -PORT # 195 -BYTE # 91 -PORT # 195 -BYTE # 92 -PORT # 195 -BYTE # 93 -PORT # 195 -BYTE # 94 -PORT # 195 -BYTE # 95 -PORT # 195 -BYTE # 96 -PORT # 195 -BYTE # 97 -PORT # 195 -BYTE # 98 -PORT # 195 -BYTE # 99 -PORT # 195 -BYTE # 100 -PORT # 195 -BYTE # 101 -PORT # 195 -BYTE # 102 -PORT # 195 -BYTE # 103 -PORT # 195 -BYTE # 104 -PORT # 195 -BYTE # 105 -PORT # 195 -BYTE # 106 -PORT # 195 -BYTE # 107 -PORT # 195 -BYTE # 108 -PORT # 195 -BYTE # 109 -PORT # 195 -BYTE # 110 -PORT # 195 -BYTE # 111 -PORT # 195 -BYTE # 112 -PORT # 195 -BYTE # 113 -PORT # 195 -BYTE # 114 -PORT # 195 -BYTE # 115 -PORT # 195 -BYTE # 116 -PORT # 195 -BYTE # 117 -PORT # 195 -BYTE # 118 -PORT # 195 -BYTE # 119 -PORT # 195 -BYTE # 120 -PORT # 195 -BYTE # 121 -PORT # 195 -BYTE # 122 -PORT # 195 -BYTE # 123 -PORT # 195 -BYTE # 124 -PORT # 195 -BYTE # 125 -PORT # 195 -BYTE # 126 -PORT # 195 -BYTE # 127 -PORT # 195 -BYTE # 128 -PORT # 195 -BYTE # 129 -PORT # 195 -BYTE # 130 -PORT # 195 -BYTE # 131 -PORT # 195 -BYTE # 132 -PORT # 195 -BYTE # 133 -PORT # 195 -BYTE # 134 -PORT # 195 -BYTE # 135 -PORT # 195 -BYTE # 136 -PORT # 195 -BYTE # 137 -PORT # 195 -BYTE # 138 -PORT # 195 -BYTE # 139 -PORT # 195 -BYTE # 140 -PORT # 195 -BYTE # 141 -PORT # 195 -BYTE # 142 -PORT # 195 -BYTE # 143 -PORT # 195 -BYTE # 144 -PORT # 195 -BYTE # 145 -PORT # 195 -BYTE # 146 -PORT # 195 -BYTE # 147 -PORT # 195 -BYTE # 148 -PORT # 195 -BYTE # 149 -PORT # 195 -BYTE # 150 -PORT # 195 -BYTE # 151 -PORT # 195 -BYTE # 152 -PORT # 195 -BYTE # 153 -PORT # 195 -BYTE # 154 -PORT # 195 -BYTE # 155 -PORT # 195 -BYTE # 156 -PORT # 195 -BYTE # 157 -PORT # 195 -BYTE # 158 -PORT # 195 -BYTE # 159 -PORT # 195 -BYTE # 160 -PORT # 195 -BYTE # 161 -PORT # 195 -BYTE # 162 -PORT # 195 -BYTE # 163 -PORT # 195 -BYTE # 164 -PORT # 195 -BYTE # 165 -PORT # 195 -BYTE # 166 -PORT # 195 -BYTE # 167 -PORT # 195 -BYTE # 168 -PORT # 195 -BYTE # 169 -PORT # 195 -BYTE # 170 -PORT # 195 -BYTE # 171 -PORT # 195 -BYTE # 172 -PORT # 195 -BYTE # 173 -PORT # 195 -BYTE # 174 -PORT # 195 -BYTE # 175 -PORT # 195 -BYTE # 176 -PORT # 195 -BYTE # 177 -PORT # 195 -BYTE # 178 -PORT # 195 -BYTE # 179 -PORT # 195 -BYTE # 180 -PORT # 195 -BYTE # 181 -PORT # 195 -BYTE # 182 -PORT # 195 -BYTE # 183 -PORT # 195 -BYTE # 184 -PORT # 195 -BYTE # 185 -PORT # 195 -BYTE # 186 -PORT # 195 -BYTE # 187 -PORT # 195 -BYTE # 188 -PORT # 195 -BYTE # 189 -PORT # 195 -BYTE # 190 -PORT # 195 -BYTE # 191 -PORT # 195 -BYTE # 192 -PORT # 195 -BYTE # 193 -PORT # 195 -BYTE # 194 -PORT # 195 -BYTE # 195 -PORT # 195 -BYTE # 196 -PORT # 195 -BYTE # 197 -PORT # 195 -BYTE # 198 -PORT # 195 -BYTE # 199 -PORT # 195 -BYTE # 200 -PORT # 195 -BYTE # 201 -PORT # 195 -BYTE # 202 -PORT # 195 -BYTE # 203 -PORT # 195 -BYTE # 204 -PORT # 195 -BYTE # 205 -PORT # 195 -BYTE # 206 -PORT # 195 -BYTE # 207 -PORT # 195 -BYTE # 208 -PORT # 195 -BYTE # 209 -PORT # 195 -BYTE # 210 -PORT # 195 -BYTE # 211 -PORT # 195 -BYTE # 212 -PORT # 195 -BYTE # 213 -PORT # 195 -BYTE # 214 -PORT # 195 -BYTE # 215 -PORT # 195 -BYTE # 216 -PORT # 195 -BYTE # 217 -PORT # 195 -BYTE # 218 -PORT # 195 -BYTE # 219 -PORT # 195 -BYTE # 220 -PORT # 195 -BYTE # 221 -PORT # 195 -BYTE # 222 -PORT # 195 -BYTE # 223 -PORT # 195 -BYTE # 224 -PORT # 195 -BYTE # 225 -PORT # 195 -BYTE # 226 -PORT # 195 -BYTE # 227 -PORT # 195 -BYTE # 228 -PORT # 195 -BYTE # 229 -PORT # 195 -BYTE # 230 -PORT # 195 -BYTE # 231 -PORT # 195 -BYTE # 232 -PORT # 195 -BYTE # 233 -PORT # 195 -BYTE # 234 -PORT # 195 -BYTE # 235 -PORT # 195 -BYTE # 236 -PORT # 195 -BYTE # 237 -PORT # 195 -BYTE # 238 -PORT # 195 -BYTE # 239 -PORT # 195 -BYTE # 240 -PORT # 195 -BYTE # 241 -PORT # 195 -BYTE # 242 -PORT # 195 -BYTE # 243 -PORT # 195 -BYTE # 244 -PORT # 195 -BYTE # 245 -PORT # 195 -BYTE # 246 -PORT # 195 -BYTE # 247 -PORT # 195 -BYTE # 248 -PORT # 195 -BYTE # 249 -PORT # 195 -BYTE # 250 -PORT # 195 -BYTE # 251 -PORT # 195 -BYTE # 252 -PORT # 195 -BYTE # 253 -PORT # 195 -BYTE # 254 -PORT # 195 -BYTE # 255 -PORT # 196 -BYTE # 0 -PORT # 196 -BYTE # 1 -PORT # 196 -BYTE # 2 -PORT # 196 -BYTE # 3 -PORT # 196 -BYTE # 4 -PORT # 196 -BYTE # 5 -PORT # 196 -BYTE # 6 -PORT # 196 -BYTE # 7 -PORT # 196 -BYTE # 8 -PORT # 196 -BYTE # 9 -PORT # 196 -BYTE # 10 -PORT # 196 -BYTE # 11 -PORT # 196 -BYTE # 12 -PORT # 196 -BYTE # 13 -PORT # 196 -BYTE # 14 -PORT # 196 -BYTE # 15 -PORT # 196 -BYTE # 16 -PORT # 196 -BYTE # 17 -PORT # 196 -BYTE # 18 -PORT # 196 -BYTE # 19 -PORT # 196 -BYTE # 20 -PORT # 196 -BYTE # 21 -PORT # 196 -BYTE # 22 -PORT # 196 -BYTE # 23 -PORT # 196 -BYTE # 24 -PORT # 196 -BYTE # 25 -PORT # 196 -BYTE # 26 -PORT # 196 -BYTE # 27 -PORT # 196 -BYTE # 28 -PORT # 196 -BYTE # 29 -PORT # 196 -BYTE # 30 -PORT # 196 -BYTE # 31 -PORT # 196 -BYTE # 32 -PORT # 196 -BYTE # 33 -PORT # 196 -BYTE # 34 -PORT # 196 -BYTE # 35 -PORT # 196 -BYTE # 36 -PORT # 196 -BYTE # 37 -PORT # 196 -BYTE # 38 -PORT # 196 -BYTE # 39 -PORT # 196 -BYTE # 40 -PORT # 196 -BYTE # 41 -PORT # 196 -BYTE # 42 -PORT # 196 -BYTE # 43 -PORT # 196 -BYTE # 44 -PORT # 196 -BYTE # 45 -PORT # 196 -BYTE # 46 -PORT # 196 -BYTE # 47 -PORT # 196 -BYTE # 48 -PORT # 196 -BYTE # 49 -PORT # 196 -BYTE # 50 -PORT # 196 -BYTE # 51 -PORT # 196 -BYTE # 52 -PORT # 196 -BYTE # 53 -PORT # 196 -BYTE # 54 -PORT # 196 -BYTE # 55 -PORT # 196 -BYTE # 56 -PORT # 196 -BYTE # 57 -PORT # 196 -BYTE # 58 -PORT # 196 -BYTE # 59 -PORT # 196 -BYTE # 60 -PORT # 196 -BYTE # 61 -PORT # 196 -BYTE # 62 -PORT # 196 -BYTE # 63 -PORT # 196 -BYTE # 64 -PORT # 196 -BYTE # 65 -PORT # 196 -BYTE # 66 -PORT # 196 -BYTE # 67 -PORT # 196 -BYTE # 68 -PORT # 196 -BYTE # 69 -PORT # 196 -BYTE # 70 -PORT # 196 -BYTE # 71 -PORT # 196 -BYTE # 72 -PORT # 196 -BYTE # 73 -PORT # 196 -BYTE # 74 -PORT # 196 -BYTE # 75 -PORT # 196 -BYTE # 76 -PORT # 196 -BYTE # 77 -PORT # 196 -BYTE # 78 -PORT # 196 -BYTE # 79 -PORT # 196 -BYTE # 80 -PORT # 196 -BYTE # 81 -PORT # 196 -BYTE # 82 -PORT # 196 -BYTE # 83 -PORT # 196 -BYTE # 84 -PORT # 196 -BYTE # 85 -PORT # 196 -BYTE # 86 -PORT # 196 -BYTE # 87 -PORT # 196 -BYTE # 88 -PORT # 196 -BYTE # 89 -PORT # 196 -BYTE # 90 -PORT # 196 -BYTE # 91 -PORT # 196 -BYTE # 92 -PORT # 196 -BYTE # 93 -PORT # 196 -BYTE # 94 -PORT # 196 -BYTE # 95 -PORT # 196 -BYTE # 96 -PORT # 196 -BYTE # 97 -PORT # 196 -BYTE # 98 -PORT # 196 -BYTE # 99 -PORT # 196 -BYTE # 100 -PORT # 196 -BYTE # 101 -PORT # 196 -BYTE # 102 -PORT # 196 -BYTE # 103 -PORT # 196 -BYTE # 104 -PORT # 196 -BYTE # 105 -PORT # 196 -BYTE # 106 -PORT # 196 -BYTE # 107 -PORT # 196 -BYTE # 108 -PORT # 196 -BYTE # 109 -PORT # 196 -BYTE # 110 -PORT # 196 -BYTE # 111 -PORT # 196 -BYTE # 112 -PORT # 196 -BYTE # 113 -PORT # 196 -BYTE # 114 -PORT # 196 -BYTE # 115 -PORT # 196 -BYTE # 116 -PORT # 196 -BYTE # 117 -PORT # 196 -BYTE # 118 -PORT # 196 -BYTE # 119 -PORT # 196 -BYTE # 120 -PORT # 196 -BYTE # 121 -PORT # 196 -BYTE # 122 -PORT # 196 -BYTE # 123 -PORT # 196 -BYTE # 124 -PORT # 196 -BYTE # 125 -PORT # 196 -BYTE # 126 -PORT # 196 -BYTE # 127 -PORT # 196 -BYTE # 128 -PORT # 196 -BYTE # 129 -PORT # 196 -BYTE # 130 -PORT # 196 -BYTE # 131 -PORT # 196 -BYTE # 132 -PORT # 196 -BYTE # 133 -PORT # 196 -BYTE # 134 -PORT # 196 -BYTE # 135 -PORT # 196 -BYTE # 136 -PORT # 196 -BYTE # 137 -PORT # 196 -BYTE # 138 -PORT # 196 -BYTE # 139 -PORT # 196 -BYTE # 140 -PORT # 196 -BYTE # 141 -PORT # 196 -BYTE # 142 -PORT # 196 -BYTE # 143 -PORT # 196 -BYTE # 144 -PORT # 196 -BYTE # 145 -PORT # 196 -BYTE # 146 -PORT # 196 -BYTE # 147 -PORT # 196 -BYTE # 148 -PORT # 196 -BYTE # 149 -PORT # 196 -BYTE # 150 -PORT # 196 -BYTE # 151 -PORT # 196 -BYTE # 152 -PORT # 196 -BYTE # 153 -PORT # 196 -BYTE # 154 -PORT # 196 -BYTE # 155 -PORT # 196 -BYTE # 156 -PORT # 196 -BYTE # 157 -PORT # 196 -BYTE # 158 -PORT # 196 -BYTE # 159 -PORT # 196 -BYTE # 160 -PORT # 196 -BYTE # 161 -PORT # 196 -BYTE # 162 -PORT # 196 -BYTE # 163 -PORT # 196 -BYTE # 164 -PORT # 196 -BYTE # 165 -PORT # 196 -BYTE # 166 -PORT # 196 -BYTE # 167 -PORT # 196 -BYTE # 168 -PORT # 196 -BYTE # 169 -PORT # 196 -BYTE # 170 -PORT # 196 -BYTE # 171 -PORT # 196 -BYTE # 172 -PORT # 196 -BYTE # 173 -PORT # 196 -BYTE # 174 -PORT # 196 -BYTE # 175 -PORT # 196 -BYTE # 176 -PORT # 196 -BYTE # 177 -PORT # 196 -BYTE # 178 -PORT # 196 -BYTE # 179 -PORT # 196 -BYTE # 180 -PORT # 196 -BYTE # 181 -PORT # 196 -BYTE # 182 -PORT # 196 -BYTE # 183 -PORT # 196 -BYTE # 184 -PORT # 196 -BYTE # 185 -PORT # 196 -BYTE # 186 -PORT # 196 -BYTE # 187 -PORT # 196 -BYTE # 188 -PORT # 196 -BYTE # 189 -PORT # 196 -BYTE # 190 -PORT # 196 -BYTE # 191 -PORT # 196 -BYTE # 192 -PORT # 196 -BYTE # 193 -PORT # 196 -BYTE # 194 -PORT # 196 -BYTE # 195 -PORT # 196 -BYTE # 196 -PORT # 196 -BYTE # 197 -PORT # 196 -BYTE # 198 -PORT # 196 -BYTE # 199 -PORT # 196 -BYTE # 200 -PORT # 196 -BYTE # 201 -PORT # 196 -BYTE # 202 -PORT # 196 -BYTE # 203 -PORT # 196 -BYTE # 204 -PORT # 196 -BYTE # 205 -PORT # 196 -BYTE # 206 -PORT # 196 -BYTE # 207 -PORT # 196 -BYTE # 208 -PORT # 196 -BYTE # 209 -PORT # 196 -BYTE # 210 -PORT # 196 -BYTE # 211 -PORT # 196 -BYTE # 212 -PORT # 196 -BYTE # 213 -PORT # 196 -BYTE # 214 -PORT # 196 -BYTE # 215 -PORT # 196 -BYTE # 216 -PORT # 196 -BYTE # 217 -PORT # 196 -BYTE # 218 -PORT # 196 -BYTE # 219 -PORT # 196 -BYTE # 220 -PORT # 196 -BYTE # 221 -PORT # 196 -BYTE # 222 -PORT # 196 -BYTE # 223 -PORT # 196 -BYTE # 224 -PORT # 196 -BYTE # 225 -PORT # 196 -BYTE # 226 -PORT # 196 -BYTE # 227 -PORT # 196 -BYTE # 228 -PORT # 196 -BYTE # 229 -PORT # 196 -BYTE # 230 -PORT # 196 -BYTE # 231 -PORT # 196 -BYTE # 232 -PORT # 196 -BYTE # 233 -PORT # 196 -BYTE # 234 -PORT # 196 -BYTE # 235 -PORT # 196 -BYTE # 236 -PORT # 196 -BYTE # 237 -PORT # 196 -BYTE # 238 -PORT # 196 -BYTE # 239 -PORT # 196 -BYTE # 240 -PORT # 196 -BYTE # 241 -PORT # 196 -BYTE # 242 -PORT # 196 -BYTE # 243 -PORT # 196 -BYTE # 244 -PORT # 196 -BYTE # 245 -PORT # 196 -BYTE # 246 -PORT # 196 -BYTE # 247 -PORT # 196 -BYTE # 248 -PORT # 196 -BYTE # 249 -PORT # 196 -BYTE # 250 -PORT # 196 -BYTE # 251 -PORT # 196 -BYTE # 252 -PORT # 196 -BYTE # 253 -PORT # 196 -BYTE # 254 -PORT # 196 -BYTE # 255 -PORT # 197 -BYTE # 0 -PORT # 197 -BYTE # 1 -PORT # 197 -BYTE # 2 -PORT # 197 -BYTE # 3 -PORT # 197 -BYTE # 4 -PORT # 197 -BYTE # 5 -PORT # 197 -BYTE # 6 -PORT # 197 -BYTE # 7 -PORT # 197 -BYTE # 8 -PORT # 197 -BYTE # 9 -PORT # 197 -BYTE # 10 -PORT # 197 -BYTE # 11 -PORT # 197 -BYTE # 12 -PORT # 197 -BYTE # 13 -PORT # 197 -BYTE # 14 -PORT # 197 -BYTE # 15 -PORT # 197 -BYTE # 16 -PORT # 197 -BYTE # 17 -PORT # 197 -BYTE # 18 -PORT # 197 -BYTE # 19 -PORT # 197 -BYTE # 20 -PORT # 197 -BYTE # 21 -PORT # 197 -BYTE # 22 -PORT # 197 -BYTE # 23 -PORT # 197 -BYTE # 24 -PORT # 197 -BYTE # 25 -PORT # 197 -BYTE # 26 -PORT # 197 -BYTE # 27 -PORT # 197 -BYTE # 28 -PORT # 197 -BYTE # 29 -PORT # 197 -BYTE # 30 -PORT # 197 -BYTE # 31 -PORT # 197 -BYTE # 32 -PORT # 197 -BYTE # 33 -PORT # 197 -BYTE # 34 -PORT # 197 -BYTE # 35 -PORT # 197 -BYTE # 36 -PORT # 197 -BYTE # 37 -PORT # 197 -BYTE # 38 -PORT # 197 -BYTE # 39 -PORT # 197 -BYTE # 40 -PORT # 197 -BYTE # 41 -PORT # 197 -BYTE # 42 -PORT # 197 -BYTE # 43 -PORT # 197 -BYTE # 44 -PORT # 197 -BYTE # 45 -PORT # 197 -BYTE # 46 -PORT # 197 -BYTE # 47 -PORT # 197 -BYTE # 48 -PORT # 197 -BYTE # 49 -PORT # 197 -BYTE # 50 -PORT # 197 -BYTE # 51 -PORT # 197 -BYTE # 52 -PORT # 197 -BYTE # 53 -PORT # 197 -BYTE # 54 -PORT # 197 -BYTE # 55 -PORT # 197 -BYTE # 56 -PORT # 197 -BYTE # 57 -PORT # 197 -BYTE # 58 -PORT # 197 -BYTE # 59 -PORT # 197 -BYTE # 60 -PORT # 197 -BYTE # 61 -PORT # 197 -BYTE # 62 -PORT # 197 -BYTE # 63 -PORT # 197 -BYTE # 64 -PORT # 197 -BYTE # 65 -PORT # 197 -BYTE # 66 -PORT # 197 -BYTE # 67 -PORT # 197 -BYTE # 68 -PORT # 197 -BYTE # 69 -PORT # 197 -BYTE # 70 -PORT # 197 -BYTE # 71 -PORT # 197 -BYTE # 72 -PORT # 197 -BYTE # 73 -PORT # 197 -BYTE # 74 -PORT # 197 -BYTE # 75 -PORT # 197 -BYTE # 76 -PORT # 197 -BYTE # 77 -PORT # 197 -BYTE # 78 -PORT # 197 -BYTE # 79 -PORT # 197 -BYTE # 80 -PORT # 197 -BYTE # 81 -PORT # 197 -BYTE # 82 -PORT # 197 -BYTE # 83 -PORT # 197 -BYTE # 84 -PORT # 197 -BYTE # 85 -PORT # 197 -BYTE # 86 -PORT # 197 -BYTE # 87 -PORT # 197 -BYTE # 88 -PORT # 197 -BYTE # 89 -PORT # 197 -BYTE # 90 -PORT # 197 -BYTE # 91 -PORT # 197 -BYTE # 92 -PORT # 197 -BYTE # 93 -PORT # 197 -BYTE # 94 -PORT # 197 -BYTE # 95 -PORT # 197 -BYTE # 96 -PORT # 197 -BYTE # 97 -PORT # 197 -BYTE # 98 -PORT # 197 -BYTE # 99 -PORT # 197 -BYTE # 100 -PORT # 197 -BYTE # 101 -PORT # 197 -BYTE # 102 -PORT # 197 -BYTE # 103 -PORT # 197 -BYTE # 104 -PORT # 197 -BYTE # 105 -PORT # 197 -BYTE # 106 -PORT # 197 -BYTE # 107 -PORT # 197 -BYTE # 108 -PORT # 197 -BYTE # 109 -PORT # 197 -BYTE # 110 -PORT # 197 -BYTE # 111 -PORT # 197 -BYTE # 112 -PORT # 197 -BYTE # 113 -PORT # 197 -BYTE # 114 -PORT # 197 -BYTE # 115 -PORT # 197 -BYTE # 116 -PORT # 197 -BYTE # 117 -PORT # 197 -BYTE # 118 -PORT # 197 -BYTE # 119 -PORT # 197 -BYTE # 120 -PORT # 197 -BYTE # 121 -PORT # 197 -BYTE # 122 -PORT # 197 -BYTE # 123 -PORT # 197 -BYTE # 124 -PORT # 197 -BYTE # 125 -PORT # 197 -BYTE # 126 -PORT # 197 -BYTE # 127 -PORT # 197 -BYTE # 128 -PORT # 197 -BYTE # 129 -PORT # 197 -BYTE # 130 -PORT # 197 -BYTE # 131 -PORT # 197 -BYTE # 132 -PORT # 197 -BYTE # 133 -PORT # 197 -BYTE # 134 -PORT # 197 -BYTE # 135 -PORT # 197 -BYTE # 136 -PORT # 197 -BYTE # 137 -PORT # 197 -BYTE # 138 -PORT # 197 -BYTE # 139 -PORT # 197 -BYTE # 140 -PORT # 197 -BYTE # 141 -PORT # 197 -BYTE # 142 -PORT # 197 -BYTE # 143 -PORT # 197 -BYTE # 144 -PORT # 197 -BYTE # 145 -PORT # 197 -BYTE # 146 -PORT # 197 -BYTE # 147 -PORT # 197 -BYTE # 148 -PORT # 197 -BYTE # 149 -PORT # 197 -BYTE # 150 -PORT # 197 -BYTE # 151 -PORT # 197 -BYTE # 152 -PORT # 197 -BYTE # 153 -PORT # 197 -BYTE # 154 -PORT # 197 -BYTE # 155 -PORT # 197 -BYTE # 156 -PORT # 197 -BYTE # 157 -PORT # 197 -BYTE # 158 -PORT # 197 -BYTE # 159 -PORT # 197 -BYTE # 160 -PORT # 197 -BYTE # 161 -PORT # 197 -BYTE # 162 -PORT # 197 -BYTE # 163 -PORT # 197 -BYTE # 164 -PORT # 197 -BYTE # 165 -PORT # 197 -BYTE # 166 -PORT # 197 -BYTE # 167 -PORT # 197 -BYTE # 168 -PORT # 197 -BYTE # 169 -PORT # 197 -BYTE # 170 -PORT # 197 -BYTE # 171 -PORT # 197 -BYTE # 172 -PORT # 197 -BYTE # 173 -PORT # 197 -BYTE # 174 -PORT # 197 -BYTE # 175 -PORT # 197 -BYTE # 176 -PORT # 197 -BYTE # 177 -PORT # 197 -BYTE # 178 -PORT # 197 -BYTE # 179 -PORT # 197 -BYTE # 180 -PORT # 197 -BYTE # 181 -PORT # 197 -BYTE # 182 -PORT # 197 -BYTE # 183 -PORT # 197 -BYTE # 184 -PORT # 197 -BYTE # 185 -PORT # 197 -BYTE # 186 -PORT # 197 -BYTE # 187 -PORT # 197 -BYTE # 188 -PORT # 197 -BYTE # 189 -PORT # 197 -BYTE # 190 -PORT # 197 -BYTE # 191 -PORT # 197 -BYTE # 192 -PORT # 197 -BYTE # 193 -PORT # 197 -BYTE # 194 -PORT # 197 -BYTE # 195 -PORT # 197 -BYTE # 196 -PORT # 197 -BYTE # 197 -PORT # 197 -BYTE # 198 -PORT # 197 -BYTE # 199 -PORT # 197 -BYTE # 200 -PORT # 197 -BYTE # 201 -PORT # 197 -BYTE # 202 -PORT # 197 -BYTE # 203 -PORT # 197 -BYTE # 204 -PORT # 197 -BYTE # 205 -PORT # 197 -BYTE # 206 -PORT # 197 -BYTE # 207 -PORT # 197 -BYTE # 208 -PORT # 197 -BYTE # 209 -PORT # 197 -BYTE # 210 -PORT # 197 -BYTE # 211 -PORT # 197 -BYTE # 212 -PORT # 197 -BYTE # 213 -PORT # 197 -BYTE # 214 -PORT # 197 -BYTE # 215 -PORT # 197 -BYTE # 216 -PORT # 197 -BYTE # 217 -PORT # 197 -BYTE # 218 -PORT # 197 -BYTE # 219 -PORT # 197 -BYTE # 220 -PORT # 197 -BYTE # 221 -PORT # 197 -BYTE # 222 -PORT # 197 -BYTE # 223 -PORT # 197 -BYTE # 224 -PORT # 197 -BYTE # 225 -PORT # 197 -BYTE # 226 -PORT # 197 -BYTE # 227 -PORT # 197 -BYTE # 228 -PORT # 197 -BYTE # 229 -PORT # 197 -BYTE # 230 -PORT # 197 -BYTE # 231 -PORT # 197 -BYTE # 232 -PORT # 197 -BYTE # 233 -PORT # 197 -BYTE # 234 -PORT # 197 -BYTE # 235 -PORT # 197 -BYTE # 236 -PORT # 197 -BYTE # 237 -PORT # 197 -BYTE # 238 -PORT # 197 -BYTE # 239 -PORT # 197 -BYTE # 240 -PORT # 197 -BYTE # 241 -PORT # 197 -BYTE # 242 -PORT # 197 -BYTE # 243 -PORT # 197 -BYTE # 244 -PORT # 197 -BYTE # 245 -PORT # 197 -BYTE # 246 -PORT # 197 -BYTE # 247 -PORT # 197 -BYTE # 248 -PORT # 197 -BYTE # 249 -PORT # 197 -BYTE # 250 -PORT # 197 -BYTE # 251 -PORT # 197 -BYTE # 252 -PORT # 197 -BYTE # 253 -PORT # 197 -BYTE # 254 -PORT # 197 -BYTE # 255 -PORT # 198 -BYTE # 0 -PORT # 198 -BYTE # 1 -PORT # 198 -BYTE # 2 -PORT # 198 -BYTE # 3 -PORT # 198 -BYTE # 4 -PORT # 198 -BYTE # 5 -PORT # 198 -BYTE # 6 -PORT # 198 -BYTE # 7 -PORT # 198 -BYTE # 8 -PORT # 198 -BYTE # 9 -PORT # 198 -BYTE # 10 -PORT # 198 -BYTE # 11 -PORT # 198 -BYTE # 12 -PORT # 198 -BYTE # 13 -PORT # 198 -BYTE # 14 -PORT # 198 -BYTE # 15 -PORT # 198 -BYTE # 16 -PORT # 198 -BYTE # 17 -PORT # 198 -BYTE # 18 -PORT # 198 -BYTE # 19 -PORT # 198 -BYTE # 20 -PORT # 198 -BYTE # 21 -PORT # 198 -BYTE # 22 -PORT # 198 -BYTE # 23 -PORT # 198 -BYTE # 24 -PORT # 198 -BYTE # 25 -PORT # 198 -BYTE # 26 -PORT # 198 -BYTE # 27 -PORT # 198 -BYTE # 28 -PORT # 198 -BYTE # 29 -PORT # 198 -BYTE # 30 -PORT # 198 -BYTE # 31 -PORT # 198 -BYTE # 32 -PORT # 198 -BYTE # 33 -PORT # 198 -BYTE # 34 -PORT # 198 -BYTE # 35 -PORT # 198 -BYTE # 36 -PORT # 198 -BYTE # 37 -PORT # 198 -BYTE # 38 -PORT # 198 -BYTE # 39 -PORT # 198 -BYTE # 40 -PORT # 198 -BYTE # 41 -PORT # 198 -BYTE # 42 -PORT # 198 -BYTE # 43 -PORT # 198 -BYTE # 44 -PORT # 198 -BYTE # 45 -PORT # 198 -BYTE # 46 -PORT # 198 -BYTE # 47 -PORT # 198 -BYTE # 48 -PORT # 198 -BYTE # 49 -PORT # 198 -BYTE # 50 -PORT # 198 -BYTE # 51 -PORT # 198 -BYTE # 52 -PORT # 198 -BYTE # 53 -PORT # 198 -BYTE # 54 -PORT # 198 -BYTE # 55 -PORT # 198 -BYTE # 56 -PORT # 198 -BYTE # 57 -PORT # 198 -BYTE # 58 -PORT # 198 -BYTE # 59 -PORT # 198 -BYTE # 60 -PORT # 198 -BYTE # 61 -PORT # 198 -BYTE # 62 -PORT # 198 -BYTE # 63 -PORT # 198 -BYTE # 64 -PORT # 198 -BYTE # 65 -PORT # 198 -BYTE # 66 -PORT # 198 -BYTE # 67 -PORT # 198 -BYTE # 68 -PORT # 198 -BYTE # 69 -PORT # 198 -BYTE # 70 -PORT # 198 -BYTE # 71 -PORT # 198 -BYTE # 72 -PORT # 198 -BYTE # 73 -PORT # 198 -BYTE # 74 -PORT # 198 -BYTE # 75 -PORT # 198 -BYTE # 76 -PORT # 198 -BYTE # 77 -PORT # 198 -BYTE # 78 -PORT # 198 -BYTE # 79 -PORT # 198 -BYTE # 80 -PORT # 198 -BYTE # 81 -PORT # 198 -BYTE # 82 -PORT # 198 -BYTE # 83 -PORT # 198 -BYTE # 84 -PORT # 198 -BYTE # 85 -PORT # 198 -BYTE # 86 -PORT # 198 -BYTE # 87 -PORT # 198 -BYTE # 88 -PORT # 198 -BYTE # 89 -PORT # 198 -BYTE # 90 -PORT # 198 -BYTE # 91 -PORT # 198 -BYTE # 92 -PORT # 198 -BYTE # 93 -PORT # 198 -BYTE # 94 -PORT # 198 -BYTE # 95 -PORT # 198 -BYTE # 96 -PORT # 198 -BYTE # 97 -PORT # 198 -BYTE # 98 -PORT # 198 -BYTE # 99 -PORT # 198 -BYTE # 100 -PORT # 198 -BYTE # 101 -PORT # 198 -BYTE # 102 -PORT # 198 -BYTE # 103 -PORT # 198 -BYTE # 104 -PORT # 198 -BYTE # 105 -PORT # 198 -BYTE # 106 -PORT # 198 -BYTE # 107 -PORT # 198 -BYTE # 108 -PORT # 198 -BYTE # 109 -PORT # 198 -BYTE # 110 -PORT # 198 -BYTE # 111 -PORT # 198 -BYTE # 112 -PORT # 198 -BYTE # 113 -PORT # 198 -BYTE # 114 -PORT # 198 -BYTE # 115 -PORT # 198 -BYTE # 116 -PORT # 198 -BYTE # 117 -PORT # 198 -BYTE # 118 -PORT # 198 -BYTE # 119 -PORT # 198 -BYTE # 120 -PORT # 198 -BYTE # 121 -PORT # 198 -BYTE # 122 -PORT # 198 -BYTE # 123 -PORT # 198 -BYTE # 124 -PORT # 198 -BYTE # 125 -PORT # 198 -BYTE # 126 -PORT # 198 -BYTE # 127 -PORT # 198 -BYTE # 128 -PORT # 198 -BYTE # 129 -PORT # 198 -BYTE # 130 -PORT # 198 -BYTE # 131 -PORT # 198 -BYTE # 132 -PORT # 198 -BYTE # 133 -PORT # 198 -BYTE # 134 -PORT # 198 -BYTE # 135 -PORT # 198 -BYTE # 136 -PORT # 198 -BYTE # 137 -PORT # 198 -BYTE # 138 -PORT # 198 -BYTE # 139 -PORT # 198 -BYTE # 140 -PORT # 198 -BYTE # 141 -PORT # 198 -BYTE # 142 -PORT # 198 -BYTE # 143 -PORT # 198 -BYTE # 144 -PORT # 198 -BYTE # 145 -PORT # 198 -BYTE # 146 -PORT # 198 -BYTE # 147 -PORT # 198 -BYTE # 148 -PORT # 198 -BYTE # 149 -PORT # 198 -BYTE # 150 -PORT # 198 -BYTE # 151 -PORT # 198 -BYTE # 152 -PORT # 198 -BYTE # 153 -PORT # 198 -BYTE # 154 -PORT # 198 -BYTE # 155 -PORT # 198 -BYTE # 156 -PORT # 198 -BYTE # 157 -PORT # 198 -BYTE # 158 -PORT # 198 -BYTE # 159 -PORT # 198 -BYTE # 160 -PORT # 198 -BYTE # 161 -PORT # 198 -BYTE # 162 -PORT # 198 -BYTE # 163 -PORT # 198 -BYTE # 164 -PORT # 198 -BYTE # 165 -PORT # 198 -BYTE # 166 -PORT # 198 -BYTE # 167 -PORT # 198 -BYTE # 168 -PORT # 198 -BYTE # 169 -PORT # 198 -BYTE # 170 -PORT # 198 -BYTE # 171 -PORT # 198 -BYTE # 172 -PORT # 198 -BYTE # 173 -PORT # 198 -BYTE # 174 -PORT # 198 -BYTE # 175 -PORT # 198 -BYTE # 176 -PORT # 198 -BYTE # 177 -PORT # 198 -BYTE # 178 -PORT # 198 -BYTE # 179 -PORT # 198 -BYTE # 180 -PORT # 198 -BYTE # 181 -PORT # 198 -BYTE # 182 -PORT # 198 -BYTE # 183 -PORT # 198 -BYTE # 184 -PORT # 198 -BYTE # 185 -PORT # 198 -BYTE # 186 -PORT # 198 -BYTE # 187 -PORT # 198 -BYTE # 188 -PORT # 198 -BYTE # 189 -PORT # 198 -BYTE # 190 -PORT # 198 -BYTE # 191 -PORT # 198 -BYTE # 192 -PORT # 198 -BYTE # 193 -PORT # 198 -BYTE # 194 -PORT # 198 -BYTE # 195 -PORT # 198 -BYTE # 196 -PORT # 198 -BYTE # 197 -PORT # 198 -BYTE # 198 -PORT # 198 -BYTE # 199 -PORT # 198 -BYTE # 200 -PORT # 198 -BYTE # 201 -PORT # 198 -BYTE # 202 -PORT # 198 -BYTE # 203 -PORT # 198 -BYTE # 204 -PORT # 198 -BYTE # 205 -PORT # 198 -BYTE # 206 -PORT # 198 -BYTE # 207 -PORT # 198 -BYTE # 208 -PORT # 198 -BYTE # 209 -PORT # 198 -BYTE # 210 -PORT # 198 -BYTE # 211 -PORT # 198 -BYTE # 212 -PORT # 198 -BYTE # 213 -PORT # 198 -BYTE # 214 -PORT # 198 -BYTE # 215 -PORT # 198 -BYTE # 216 -PORT # 198 -BYTE # 217 -PORT # 198 -BYTE # 218 -PORT # 198 -BYTE # 219 -PORT # 198 -BYTE # 220 -PORT # 198 -BYTE # 221 -PORT # 198 -BYTE # 222 -PORT # 198 -BYTE # 223 -PORT # 198 -BYTE # 224 -PORT # 198 -BYTE # 225 -PORT # 198 -BYTE # 226 -PORT # 198 -BYTE # 227 -PORT # 198 -BYTE # 228 -PORT # 198 -BYTE # 229 -PORT # 198 -BYTE # 230 -PORT # 198 -BYTE # 231 -PORT # 198 -BYTE # 232 -PORT # 198 -BYTE # 233 -PORT # 198 -BYTE # 234 -PORT # 198 -BYTE # 235 -PORT # 198 -BYTE # 236 -PORT # 198 -BYTE # 237 -PORT # 198 -BYTE # 238 -PORT # 198 -BYTE # 239 -PORT # 198 -BYTE # 240 -PORT # 198 -BYTE # 241 -PORT # 198 -BYTE # 242 -PORT # 198 -BYTE # 243 -PORT # 198 -BYTE # 244 -PORT # 198 -BYTE # 245 -PORT # 198 -BYTE # 246 -PORT # 198 -BYTE # 247 -PORT # 198 -BYTE # 248 -PORT # 198 -BYTE # 249 -PORT # 198 -BYTE # 250 -PORT # 198 -BYTE # 251 -PORT # 198 -BYTE # 252 -PORT # 198 -BYTE # 253 -PORT # 198 -BYTE # 254 -PORT # 198 -BYTE # 255 -PORT # 199 -BYTE # 0 -PORT # 199 -BYTE # 1 -PORT # 199 -BYTE # 2 -PORT # 199 -BYTE # 3 -PORT # 199 -BYTE # 4 -PORT # 199 -BYTE # 5 -PORT # 199 -BYTE # 6 -PORT # 199 -BYTE # 7 -PORT # 199 -BYTE # 8 -PORT # 199 -BYTE # 9 -PORT # 199 -BYTE # 10 -PORT # 199 -BYTE # 11 -PORT # 199 -BYTE # 12 -PORT # 199 -BYTE # 13 -PORT # 199 -BYTE # 14 -PORT # 199 -BYTE # 15 -PORT # 199 -BYTE # 16 -PORT # 199 -BYTE # 17 -PORT # 199 -BYTE # 18 -PORT # 199 -BYTE # 19 -PORT # 199 -BYTE # 20 -PORT # 199 -BYTE # 21 -PORT # 199 -BYTE # 22 -PORT # 199 -BYTE # 23 -PORT # 199 -BYTE # 24 -PORT # 199 -BYTE # 25 -PORT # 199 -BYTE # 26 -PORT # 199 -BYTE # 27 -PORT # 199 -BYTE # 28 -PORT # 199 -BYTE # 29 -PORT # 199 -BYTE # 30 -PORT # 199 -BYTE # 31 -PORT # 199 -BYTE # 32 -PORT # 199 -BYTE # 33 -PORT # 199 -BYTE # 34 -PORT # 199 -BYTE # 35 -PORT # 199 -BYTE # 36 -PORT # 199 -BYTE # 37 -PORT # 199 -BYTE # 38 -PORT # 199 -BYTE # 39 -PORT # 199 -BYTE # 40 -PORT # 199 -BYTE # 41 -PORT # 199 -BYTE # 42 -PORT # 199 -BYTE # 43 -PORT # 199 -BYTE # 44 -PORT # 199 -BYTE # 45 -PORT # 199 -BYTE # 46 -PORT # 199 -BYTE # 47 -PORT # 199 -BYTE # 48 -PORT # 199 -BYTE # 49 -PORT # 199 -BYTE # 50 -PORT # 199 -BYTE # 51 -PORT # 199 -BYTE # 52 -PORT # 199 -BYTE # 53 -PORT # 199 -BYTE # 54 -PORT # 199 -BYTE # 55 -PORT # 199 -BYTE # 56 -PORT # 199 -BYTE # 57 -PORT # 199 -BYTE # 58 -PORT # 199 -BYTE # 59 -PORT # 199 -BYTE # 60 -PORT # 199 -BYTE # 61 -PORT # 199 -BYTE # 62 -PORT # 199 -BYTE # 63 -PORT # 199 -BYTE # 64 -PORT # 199 -BYTE # 65 -PORT # 199 -BYTE # 66 -PORT # 199 -BYTE # 67 -PORT # 199 -BYTE # 68 -PORT # 199 -BYTE # 69 -PORT # 199 -BYTE # 70 -PORT # 199 -BYTE # 71 -PORT # 199 -BYTE # 72 -PORT # 199 -BYTE # 73 -PORT # 199 -BYTE # 74 -PORT # 199 -BYTE # 75 -PORT # 199 -BYTE # 76 -PORT # 199 -BYTE # 77 -PORT # 199 -BYTE # 78 -PORT # 199 -BYTE # 79 -PORT # 199 -BYTE # 80 -PORT # 199 -BYTE # 81 -PORT # 199 -BYTE # 82 -PORT # 199 -BYTE # 83 -PORT # 199 -BYTE # 84 -PORT # 199 -BYTE # 85 -PORT # 199 -BYTE # 86 -PORT # 199 -BYTE # 87 -PORT # 199 -BYTE # 88 -PORT # 199 -BYTE # 89 -PORT # 199 -BYTE # 90 -PORT # 199 -BYTE # 91 -PORT # 199 -BYTE # 92 -PORT # 199 -BYTE # 93 -PORT # 199 -BYTE # 94 -PORT # 199 -BYTE # 95 -PORT # 199 -BYTE # 96 -PORT # 199 -BYTE # 97 -PORT # 199 -BYTE # 98 -PORT # 199 -BYTE # 99 -PORT # 199 -BYTE # 100 -PORT # 199 -BYTE # 101 -PORT # 199 -BYTE # 102 -PORT # 199 -BYTE # 103 -PORT # 199 -BYTE # 104 -PORT # 199 -BYTE # 105 -PORT # 199 -BYTE # 106 -PORT # 199 -BYTE # 107 -PORT # 199 -BYTE # 108 -PORT # 199 -BYTE # 109 -PORT # 199 -BYTE # 110 -PORT # 199 -BYTE # 111 -PORT # 199 -BYTE # 112 -PORT # 199 -BYTE # 113 -PORT # 199 -BYTE # 114 -PORT # 199 -BYTE # 115 -PORT # 199 -BYTE # 116 -PORT # 199 -BYTE # 117 -PORT # 199 -BYTE # 118 -PORT # 199 -BYTE # 119 -PORT # 199 -BYTE # 120 -PORT # 199 -BYTE # 121 -PORT # 199 -BYTE # 122 -PORT # 199 -BYTE # 123 -PORT # 199 -BYTE # 124 -PORT # 199 -BYTE # 125 -PORT # 199 -BYTE # 126 -PORT # 199 -BYTE # 127 -PORT # 199 -BYTE # 128 -PORT # 199 -BYTE # 129 -PORT # 199 -BYTE # 130 -PORT # 199 -BYTE # 131 -PORT # 199 -BYTE # 132 -PORT # 199 -BYTE # 133 -PORT # 199 -BYTE # 134 -PORT # 199 -BYTE # 135 -PORT # 199 -BYTE # 136 -PORT # 199 -BYTE # 137 -PORT # 199 -BYTE # 138 -PORT # 199 -BYTE # 139 -PORT # 199 -BYTE # 140 -PORT # 199 -BYTE # 141 -PORT # 199 -BYTE # 142 -PORT # 199 -BYTE # 143 -PORT # 199 -BYTE # 144 -PORT # 199 -BYTE # 145 -PORT # 199 -BYTE # 146 -PORT # 199 -BYTE # 147 -PORT # 199 -BYTE # 148 -PORT # 199 -BYTE # 149 -PORT # 199 -BYTE # 150 -PORT # 199 -BYTE # 151 -PORT # 199 -BYTE # 152 -PORT # 199 -BYTE # 153 -PORT # 199 -BYTE # 154 -PORT # 199 -BYTE # 155 -PORT # 199 -BYTE # 156 -PORT # 199 -BYTE # 157 -PORT # 199 -BYTE # 158 -PORT # 199 -BYTE # 159 -PORT # 199 -BYTE # 160 -PORT # 199 -BYTE # 161 -PORT # 199 -BYTE # 162 -PORT # 199 -BYTE # 163 -PORT # 199 -BYTE # 164 -PORT # 199 -BYTE # 165 -PORT # 199 -BYTE # 166 -PORT # 199 -BYTE # 167 -PORT # 199 -BYTE # 168 -PORT # 199 -BYTE # 169 -PORT # 199 -BYTE # 170 -PORT # 199 -BYTE # 171 -PORT # 199 -BYTE # 172 -PORT # 199 -BYTE # 173 -PORT # 199 -BYTE # 174 -PORT # 199 -BYTE # 175 -PORT # 199 -BYTE # 176 -PORT # 199 -BYTE # 177 -PORT # 199 -BYTE # 178 -PORT # 199 -BYTE # 179 -PORT # 199 -BYTE # 180 -PORT # 199 -BYTE # 181 -PORT # 199 -BYTE # 182 -PORT # 199 -BYTE # 183 -PORT # 199 -BYTE # 184 -PORT # 199 -BYTE # 185 -PORT # 199 -BYTE # 186 -PORT # 199 -BYTE # 187 -PORT # 199 -BYTE # 188 -PORT # 199 -BYTE # 189 -PORT # 199 -BYTE # 190 -PORT # 199 -BYTE # 191 -PORT # 199 -BYTE # 192 -PORT # 199 -BYTE # 193 -PORT # 199 -BYTE # 194 -PORT # 199 -BYTE # 195 -PORT # 199 -BYTE # 196 -PORT # 199 -BYTE # 197 -PORT # 199 -BYTE # 198 -PORT # 199 -BYTE # 199 -PORT # 199 -BYTE # 200 -PORT # 199 -BYTE # 201 -PORT # 199 -BYTE # 202 -PORT # 199 -BYTE # 203 -PORT # 199 -BYTE # 204 -PORT # 199 -BYTE # 205 -PORT # 199 -BYTE # 206 -PORT # 199 -BYTE # 207 -PORT # 199 -BYTE # 208 -PORT # 199 -BYTE # 209 -PORT # 199 -BYTE # 210 -PORT # 199 -BYTE # 211 -PORT # 199 -BYTE # 212 -PORT # 199 -BYTE # 213 -PORT # 199 -BYTE # 214 -PORT # 199 -BYTE # 215 -PORT # 199 -BYTE # 216 -PORT # 199 -BYTE # 217 -PORT # 199 -BYTE # 218 -PORT # 199 -BYTE # 219 -PORT # 199 -BYTE # 220 -PORT # 199 -BYTE # 221 -PORT # 199 -BYTE # 222 -PORT # 199 -BYTE # 223 -PORT # 199 -BYTE # 224 -PORT # 199 -BYTE # 225 -PORT # 199 -BYTE # 226 -PORT # 199 -BYTE # 227 -PORT # 199 -BYTE # 228 -PORT # 199 -BYTE # 229 -PORT # 199 -BYTE # 230 -PORT # 199 -BYTE # 231 -PORT # 199 -BYTE # 232 -PORT # 199 -BYTE # 233 -PORT # 199 -BYTE # 234 -PORT # 199 -BYTE # 235 -PORT # 199 -BYTE # 236 -PORT # 199 -BYTE # 237 -PORT # 199 -BYTE # 238 -PORT # 199 -BYTE # 239 -PORT # 199 -BYTE # 240 -PORT # 199 -BYTE # 241 -PORT # 199 -BYTE # 242 -PORT # 199 -BYTE # 243 -PORT # 199 -BYTE # 244 -PORT # 199 -BYTE # 245 -PORT # 199 -BYTE # 246 -PORT # 199 -BYTE # 247 -PORT # 199 -BYTE # 248 -PORT # 199 -BYTE # 249 -PORT # 199 -BYTE # 250 -PORT # 199 -BYTE # 251 -PORT # 199 -BYTE # 252 -PORT # 199 -BYTE # 253 -PORT # 199 -BYTE # 254 -PORT # 199 -BYTE # 255 -PORT # 200 -BYTE # 0 -PORT # 200 -BYTE # 1 -PORT # 200 -BYTE # 2 -PORT # 200 -BYTE # 3 -PORT # 200 -BYTE # 4 -PORT # 200 -BYTE # 5 -PORT # 200 -BYTE # 6 -PORT # 200 -BYTE # 7 -PORT # 200 -BYTE # 8 -PORT # 200 -BYTE # 9 -PORT # 200 -BYTE # 10 -PORT # 200 -BYTE # 11 -PORT # 200 -BYTE # 12 -PORT # 200 -BYTE # 13 -PORT # 200 -BYTE # 14 -PORT # 200 -BYTE # 15 -PORT # 200 -BYTE # 16 -PORT # 200 -BYTE # 17 -PORT # 200 -BYTE # 18 -PORT # 200 -BYTE # 19 -PORT # 200 -BYTE # 20 -PORT # 200 -BYTE # 21 -PORT # 200 -BYTE # 22 -PORT # 200 -BYTE # 23 -PORT # 200 -BYTE # 24 -PORT # 200 -BYTE # 25 -PORT # 200 -BYTE # 26 -PORT # 200 -BYTE # 27 -PORT # 200 -BYTE # 28 -PORT # 200 -BYTE # 29 -PORT # 200 -BYTE # 30 -PORT # 200 -BYTE # 31 -PORT # 200 -BYTE # 32 -PORT # 200 -BYTE # 33 -PORT # 200 -BYTE # 34 -PORT # 200 -BYTE # 35 -PORT # 200 -BYTE # 36 -PORT # 200 -BYTE # 37 -PORT # 200 -BYTE # 38 -PORT # 200 -BYTE # 39 -PORT # 200 -BYTE # 40 -PORT # 200 -BYTE # 41 -PORT # 200 -BYTE # 42 -PORT # 200 -BYTE # 43 -PORT # 200 -BYTE # 44 -PORT # 200 -BYTE # 45 -PORT # 200 -BYTE # 46 -PORT # 200 -BYTE # 47 -PORT # 200 -BYTE # 48 -PORT # 200 -BYTE # 49 -PORT # 200 -BYTE # 50 -PORT # 200 -BYTE # 51 -PORT # 200 -BYTE # 52 -PORT # 200 -BYTE # 53 -PORT # 200 -BYTE # 54 -PORT # 200 -BYTE # 55 -PORT # 200 -BYTE # 56 -PORT # 200 -BYTE # 57 -PORT # 200 -BYTE # 58 -PORT # 200 -BYTE # 59 -PORT # 200 -BYTE # 60 -PORT # 200 -BYTE # 61 -PORT # 200 -BYTE # 62 -PORT # 200 -BYTE # 63 -PORT # 200 -BYTE # 64 -PORT # 200 -BYTE # 65 -PORT # 200 -BYTE # 66 -PORT # 200 -BYTE # 67 -PORT # 200 -BYTE # 68 -PORT # 200 -BYTE # 69 -PORT # 200 -BYTE # 70 -PORT # 200 -BYTE # 71 -PORT # 200 -BYTE # 72 -PORT # 200 -BYTE # 73 -PORT # 200 -BYTE # 74 -PORT # 200 -BYTE # 75 -PORT # 200 -BYTE # 76 -PORT # 200 -BYTE # 77 -PORT # 200 -BYTE # 78 -PORT # 200 -BYTE # 79 -PORT # 200 -BYTE # 80 -PORT # 200 -BYTE # 81 -PORT # 200 -BYTE # 82 -PORT # 200 -BYTE # 83 -PORT # 200 -BYTE # 84 -PORT # 200 -BYTE # 85 -PORT # 200 -BYTE # 86 -PORT # 200 -BYTE # 87 -PORT # 200 -BYTE # 88 -PORT # 200 -BYTE # 89 -PORT # 200 -BYTE # 90 -PORT # 200 -BYTE # 91 -PORT # 200 -BYTE # 92 -PORT # 200 -BYTE # 93 -PORT # 200 -BYTE # 94 -PORT # 200 -BYTE # 95 -PORT # 200 -BYTE # 96 -PORT # 200 -BYTE # 97 -PORT # 200 -BYTE # 98 -PORT # 200 -BYTE # 99 -PORT # 200 -BYTE # 100 -PORT # 200 -BYTE # 101 -PORT # 200 -BYTE # 102 -PORT # 200 -BYTE # 103 -PORT # 200 -BYTE # 104 -PORT # 200 -BYTE # 105 -PORT # 200 -BYTE # 106 -PORT # 200 -BYTE # 107 -PORT # 200 -BYTE # 108 -PORT # 200 -BYTE # 109 -PORT # 200 -BYTE # 110 -PORT # 200 -BYTE # 111 -PORT # 200 -BYTE # 112 -PORT # 200 -BYTE # 113 -PORT # 200 -BYTE # 114 -PORT # 200 -BYTE # 115 -PORT # 200 -BYTE # 116 -PORT # 200 -BYTE # 117 -PORT # 200 -BYTE # 118 -PORT # 200 -BYTE # 119 -PORT # 200 -BYTE # 120 -PORT # 200 -BYTE # 121 -PORT # 200 -BYTE # 122 -PORT # 200 -BYTE # 123 -PORT # 200 -BYTE # 124 -PORT # 200 -BYTE # 125 -PORT # 200 -BYTE # 126 -PORT # 200 -BYTE # 127 -PORT # 200 -BYTE # 128 -PORT # 200 -BYTE # 129 -PORT # 200 -BYTE # 130 -PORT # 200 -BYTE # 131 -PORT # 200 -BYTE # 132 -PORT # 200 -BYTE # 133 -PORT # 200 -BYTE # 134 -PORT # 200 -BYTE # 135 -PORT # 200 -BYTE # 136 -PORT # 200 -BYTE # 137 -PORT # 200 -BYTE # 138 -PORT # 200 -BYTE # 139 -PORT # 200 -BYTE # 140 -PORT # 200 -BYTE # 141 -PORT # 200 -BYTE # 142 -PORT # 200 -BYTE # 143 -PORT # 200 -BYTE # 144 -PORT # 200 -BYTE # 145 -PORT # 200 -BYTE # 146 -PORT # 200 -BYTE # 147 -PORT # 200 -BYTE # 148 -PORT # 200 -BYTE # 149 -PORT # 200 -BYTE # 150 -PORT # 200 -BYTE # 151 -PORT # 200 -BYTE # 152 -PORT # 200 -BYTE # 153 -PORT # 200 -BYTE # 154 -PORT # 200 -BYTE # 155 -PORT # 200 -BYTE # 156 -PORT # 200 -BYTE # 157 -PORT # 200 -BYTE # 158 -PORT # 200 -BYTE # 159 -PORT # 200 -BYTE # 160 -PORT # 200 -BYTE # 161 -PORT # 200 -BYTE # 162 -PORT # 200 -BYTE # 163 -PORT # 200 -BYTE # 164 -PORT # 200 -BYTE # 165 -PORT # 200 -BYTE # 166 -PORT # 200 -BYTE # 167 -PORT # 200 -BYTE # 168 -PORT # 200 -BYTE # 169 -PORT # 200 -BYTE # 170 -PORT # 200 -BYTE # 171 -PORT # 200 -BYTE # 172 -PORT # 200 -BYTE # 173 -PORT # 200 -BYTE # 174 -PORT # 200 -BYTE # 175 -PORT # 200 -BYTE # 176 -PORT # 200 -BYTE # 177 -PORT # 200 -BYTE # 178 -PORT # 200 -BYTE # 179 -PORT # 200 -BYTE # 180 -PORT # 200 -BYTE # 181 -PORT # 200 -BYTE # 182 -PORT # 200 -BYTE # 183 -PORT # 200 -BYTE # 184 -PORT # 200 -BYTE # 185 -PORT # 200 -BYTE # 186 -PORT # 200 -BYTE # 187 -PORT # 200 -BYTE # 188 -PORT # 200 -BYTE # 189 -PORT # 200 -BYTE # 190 -PORT # 200 -BYTE # 191 -PORT # 200 -BYTE # 192 -PORT # 200 -BYTE # 193 -PORT # 200 -BYTE # 194 -PORT # 200 -BYTE # 195 -PORT # 200 -BYTE # 196 -PORT # 200 -BYTE # 197 -PORT # 200 -BYTE # 198 -PORT # 200 -BYTE # 199 -PORT # 200 -BYTE # 200 -PORT # 200 -BYTE # 201 -PORT # 200 -BYTE # 202 -PORT # 200 -BYTE # 203 -PORT # 200 -BYTE # 204 -PORT # 200 -BYTE # 205 -PORT # 200 -BYTE # 206 -PORT # 200 -BYTE # 207 -PORT # 200 -BYTE # 208 -PORT # 200 -BYTE # 209 -PORT # 200 -BYTE # 210 -PORT # 200 -BYTE # 211 -PORT # 200 -BYTE # 212 -PORT # 200 -BYTE # 213 -PORT # 200 -BYTE # 214 -PORT # 200 -BYTE # 215 -PORT # 200 -BYTE # 216 -PORT # 200 -BYTE # 217 -PORT # 200 -BYTE # 218 -PORT # 200 -BYTE # 219 -PORT # 200 -BYTE # 220 -PORT # 200 -BYTE # 221 -PORT # 200 -BYTE # 222 -PORT # 200 -BYTE # 223 -PORT # 200 -BYTE # 224 -PORT # 200 -BYTE # 225 -PORT # 200 -BYTE # 226 -PORT # 200 -BYTE # 227 -PORT # 200 -BYTE # 228 -PORT # 200 -BYTE # 229 -PORT # 200 -BYTE # 230 -PORT # 200 -BYTE # 231 -PORT # 200 -BYTE # 232 -PORT # 200 -BYTE # 233 -PORT # 200 -BYTE # 234 -PORT # 200 -BYTE # 235 -PORT # 200 -BYTE # 236 -PORT # 200 -BYTE # 237 -PORT # 200 -BYTE # 238 -PORT # 200 -BYTE # 239 -PORT # 200 -BYTE # 240 -PORT # 200 -BYTE # 241 -PORT # 200 -BYTE # 242 -PORT # 200 -BYTE # 243 -PORT # 200 -BYTE # 244 -PORT # 200 -BYTE # 245 -PORT # 200 -BYTE # 246 -PORT # 200 -BYTE # 247 -PORT # 200 -BYTE # 248 -PORT # 200 -BYTE # 249 -PORT # 200 -BYTE # 250 -PORT # 200 -BYTE # 251 -PORT # 200 -BYTE # 252 -PORT # 200 -BYTE # 253 -PORT # 200 -BYTE # 254 -PORT # 200 -BYTE # 255 -PORT # 201 -BYTE # 0 -PORT # 201 -BYTE # 1 -PORT # 201 -BYTE # 2 -PORT # 201 -BYTE # 3 -PORT # 201 -BYTE # 4 -PORT # 201 -BYTE # 5 -PORT # 201 -BYTE # 6 -PORT # 201 -BYTE # 7 -PORT # 201 -BYTE # 8 -PORT # 201 -BYTE # 9 -PORT # 201 -BYTE # 10 -PORT # 201 -BYTE # 11 -PORT # 201 -BYTE # 12 -PORT # 201 -BYTE # 13 -PORT # 201 -BYTE # 14 -PORT # 201 -BYTE # 15 -PORT # 201 -BYTE # 16 -PORT # 201 -BYTE # 17 -PORT # 201 -BYTE # 18 -PORT # 201 -BYTE # 19 -PORT # 201 -BYTE # 20 -PORT # 201 -BYTE # 21 -PORT # 201 -BYTE # 22 -PORT # 201 -BYTE # 23 -PORT # 201 -BYTE # 24 -PORT # 201 -BYTE # 25 -PORT # 201 -BYTE # 26 -PORT # 201 -BYTE # 27 -PORT # 201 -BYTE # 28 -PORT # 201 -BYTE # 29 -PORT # 201 -BYTE # 30 -PORT # 201 -BYTE # 31 -PORT # 201 -BYTE # 32 -PORT # 201 -BYTE # 33 -PORT # 201 -BYTE # 34 -PORT # 201 -BYTE # 35 -PORT # 201 -BYTE # 36 -PORT # 201 -BYTE # 37 -PORT # 201 -BYTE # 38 -PORT # 201 -BYTE # 39 -PORT # 201 -BYTE # 40 -PORT # 201 -BYTE # 41 -PORT # 201 -BYTE # 42 -PORT # 201 -BYTE # 43 -PORT # 201 -BYTE # 44 -PORT # 201 -BYTE # 45 -PORT # 201 -BYTE # 46 -PORT # 201 -BYTE # 47 -PORT # 201 -BYTE # 48 -PORT # 201 -BYTE # 49 -PORT # 201 -BYTE # 50 -PORT # 201 -BYTE # 51 -PORT # 201 -BYTE # 52 -PORT # 201 -BYTE # 53 -PORT # 201 -BYTE # 54 -PORT # 201 -BYTE # 55 -PORT # 201 -BYTE # 56 -PORT # 201 -BYTE # 57 -PORT # 201 -BYTE # 58 -PORT # 201 -BYTE # 59 -PORT # 201 -BYTE # 60 -PORT # 201 -BYTE # 61 -PORT # 201 -BYTE # 62 -PORT # 201 -BYTE # 63 -PORT # 201 -BYTE # 64 -PORT # 201 -BYTE # 65 -PORT # 201 -BYTE # 66 -PORT # 201 -BYTE # 67 -PORT # 201 -BYTE # 68 -PORT # 201 -BYTE # 69 -PORT # 201 -BYTE # 70 -PORT # 201 -BYTE # 71 -PORT # 201 -BYTE # 72 -PORT # 201 -BYTE # 73 -PORT # 201 -BYTE # 74 -PORT # 201 -BYTE # 75 -PORT # 201 -BYTE # 76 -PORT # 201 -BYTE # 77 -PORT # 201 -BYTE # 78 -PORT # 201 -BYTE # 79 -PORT # 201 -BYTE # 80 -PORT # 201 -BYTE # 81 -PORT # 201 -BYTE # 82 -PORT # 201 -BYTE # 83 -PORT # 201 -BYTE # 84 -PORT # 201 -BYTE # 85 -PORT # 201 -BYTE # 86 -PORT # 201 -BYTE # 87 -PORT # 201 -BYTE # 88 -PORT # 201 -BYTE # 89 -PORT # 201 -BYTE # 90 -PORT # 201 -BYTE # 91 -PORT # 201 -BYTE # 92 -PORT # 201 -BYTE # 93 -PORT # 201 -BYTE # 94 -PORT # 201 -BYTE # 95 -PORT # 201 -BYTE # 96 -PORT # 201 -BYTE # 97 -PORT # 201 -BYTE # 98 -PORT # 201 -BYTE # 99 -PORT # 201 -BYTE # 100 -PORT # 201 -BYTE # 101 -PORT # 201 -BYTE # 102 -PORT # 201 -BYTE # 103 -PORT # 201 -BYTE # 104 -PORT # 201 -BYTE # 105 -PORT # 201 -BYTE # 106 -PORT # 201 -BYTE # 107 -PORT # 201 -BYTE # 108 -PORT # 201 -BYTE # 109 -PORT # 201 -BYTE # 110 -PORT # 201 -BYTE # 111 -PORT # 201 -BYTE # 112 -PORT # 201 -BYTE # 113 -PORT # 201 -BYTE # 114 -PORT # 201 -BYTE # 115 -PORT # 201 -BYTE # 116 -PORT # 201 -BYTE # 117 -PORT # 201 -BYTE # 118 -PORT # 201 -BYTE # 119 -PORT # 201 -BYTE # 120 -PORT # 201 -BYTE # 121 -PORT # 201 -BYTE # 122 -PORT # 201 -BYTE # 123 -PORT # 201 -BYTE # 124 -PORT # 201 -BYTE # 125 -PORT # 201 -BYTE # 126 -PORT # 201 -BYTE # 127 -PORT # 201 -BYTE # 128 -PORT # 201 -BYTE # 129 -PORT # 201 -BYTE # 130 -PORT # 201 -BYTE # 131 -PORT # 201 -BYTE # 132 -PORT # 201 -BYTE # 133 -PORT # 201 -BYTE # 134 -PORT # 201 -BYTE # 135 -PORT # 201 -BYTE # 136 -PORT # 201 -BYTE # 137 -PORT # 201 -BYTE # 138 -PORT # 201 -BYTE # 139 -PORT # 201 -BYTE # 140 -PORT # 201 -BYTE # 141 -PORT # 201 -BYTE # 142 -PORT # 201 -BYTE # 143 -PORT # 201 -BYTE # 144 -PORT # 201 -BYTE # 145 -PORT # 201 -BYTE # 146 -PORT # 201 -BYTE # 147 -PORT # 201 -BYTE # 148 -PORT # 201 -BYTE # 149 -PORT # 201 -BYTE # 150 -PORT # 201 -BYTE # 151 -PORT # 201 -BYTE # 152 -PORT # 201 -BYTE # 153 -PORT # 201 -BYTE # 154 -PORT # 201 -BYTE # 155 -PORT # 201 -BYTE # 156 -PORT # 201 -BYTE # 157 -PORT # 201 -BYTE # 158 -PORT # 201 -BYTE # 159 -PORT # 201 -BYTE # 160 -PORT # 201 -BYTE # 161 -PORT # 201 -BYTE # 162 -PORT # 201 -BYTE # 163 -PORT # 201 -BYTE # 164 -PORT # 201 -BYTE # 165 -PORT # 201 -BYTE # 166 -PORT # 201 -BYTE # 167 -PORT # 201 -BYTE # 168 -PORT # 201 -BYTE # 169 -PORT # 201 -BYTE # 170 -PORT # 201 -BYTE # 171 -PORT # 201 -BYTE # 172 -PORT # 201 -BYTE # 173 -PORT # 201 -BYTE # 174 -PORT # 201 -BYTE # 175 -PORT # 201 -BYTE # 176 -PORT # 201 -BYTE # 177 -PORT # 201 -BYTE # 178 -PORT # 201 -BYTE # 179 -PORT # 201 -BYTE # 180 -PORT # 201 -BYTE # 181 -PORT # 201 -BYTE # 182 -PORT # 201 -BYTE # 183 -PORT # 201 -BYTE # 184 -PORT # 201 -BYTE # 185 -PORT # 201 -BYTE # 186 -PORT # 201 -BYTE # 187 -PORT # 201 -BYTE # 188 -PORT # 201 -BYTE # 189 -PORT # 201 -BYTE # 190 -PORT # 201 -BYTE # 191 -PORT # 201 -BYTE # 192 -PORT # 201 -BYTE # 193 -PORT # 201 -BYTE # 194 -PORT # 201 -BYTE # 195 -PORT # 201 -BYTE # 196 -PORT # 201 -BYTE # 197 -PORT # 201 -BYTE # 198 -PORT # 201 -BYTE # 199 -PORT # 201 -BYTE # 200 -PORT # 201 -BYTE # 201 -PORT # 201 -BYTE # 202 -PORT # 201 -BYTE # 203 -PORT # 201 -BYTE # 204 -PORT # 201 -BYTE # 205 -PORT # 201 -BYTE # 206 -PORT # 201 -BYTE # 207 -PORT # 201 -BYTE # 208 -PORT # 201 -BYTE # 209 -PORT # 201 -BYTE # 210 -PORT # 201 -BYTE # 211 -PORT # 201 -BYTE # 212 -PORT # 201 -BYTE # 213 -PORT # 201 -BYTE # 214 -PORT # 201 -BYTE # 215 -PORT # 201 -BYTE # 216 -PORT # 201 -BYTE # 217 -PORT # 201 -BYTE # 218 -PORT # 201 -BYTE # 219 -PORT # 201 -BYTE # 220 -PORT # 201 -BYTE # 221 -PORT # 201 -BYTE # 222 -PORT # 201 -BYTE # 223 -PORT # 201 -BYTE # 224 -PORT # 201 -BYTE # 225 -PORT # 201 -BYTE # 226 -PORT # 201 -BYTE # 227 -PORT # 201 -BYTE # 228 -PORT # 201 -BYTE # 229 -PORT # 201 -BYTE # 230 -PORT # 201 -BYTE # 231 -PORT # 201 -BYTE # 232 -PORT # 201 -BYTE # 233 -PORT # 201 -BYTE # 234 -PORT # 201 -BYTE # 235 -PORT # 201 -BYTE # 236 -PORT # 201 -BYTE # 237 -PORT # 201 -BYTE # 238 -PORT # 201 -BYTE # 239 -PORT # 201 -BYTE # 240 -PORT # 201 -BYTE # 241 -PORT # 201 -BYTE # 242 -PORT # 201 -BYTE # 243 -PORT # 201 -BYTE # 244 -PORT # 201 -BYTE # 245 -PORT # 201 -BYTE # 246 -PORT # 201 -BYTE # 247 -PORT # 201 -BYTE # 248 -PORT # 201 -BYTE # 249 -PORT # 201 -BYTE # 250 -PORT # 201 -BYTE # 251 -PORT # 201 -BYTE # 252 -PORT # 201 -BYTE # 253 -PORT # 201 -BYTE # 254 -PORT # 201 -BYTE # 255 -PORT # 202 -BYTE # 0 -PORT # 202 -BYTE # 1 -PORT # 202 -BYTE # 2 -PORT # 202 -BYTE # 3 -PORT # 202 -BYTE # 4 -PORT # 202 -BYTE # 5 -PORT # 202 -BYTE # 6 -PORT # 202 -BYTE # 7 -PORT # 202 -BYTE # 8 -PORT # 202 -BYTE # 9 -PORT # 202 -BYTE # 10 -PORT # 202 -BYTE # 11 -PORT # 202 -BYTE # 12 -PORT # 202 -BYTE # 13 -PORT # 202 -BYTE # 14 -PORT # 202 -BYTE # 15 -PORT # 202 -BYTE # 16 -PORT # 202 -BYTE # 17 -PORT # 202 -BYTE # 18 -PORT # 202 -BYTE # 19 -PORT # 202 -BYTE # 20 -PORT # 202 -BYTE # 21 -PORT # 202 -BYTE # 22 -PORT # 202 -BYTE # 23 -PORT # 202 -BYTE # 24 -PORT # 202 -BYTE # 25 -PORT # 202 -BYTE # 26 -PORT # 202 -BYTE # 27 -PORT # 202 -BYTE # 28 -PORT # 202 -BYTE # 29 -PORT # 202 -BYTE # 30 -PORT # 202 -BYTE # 31 -PORT # 202 -BYTE # 32 -PORT # 202 -BYTE # 33 -PORT # 202 -BYTE # 34 -PORT # 202 -BYTE # 35 -PORT # 202 -BYTE # 36 -PORT # 202 -BYTE # 37 -PORT # 202 -BYTE # 38 -PORT # 202 -BYTE # 39 -PORT # 202 -BYTE # 40 -PORT # 202 -BYTE # 41 -PORT # 202 -BYTE # 42 -PORT # 202 -BYTE # 43 -PORT # 202 -BYTE # 44 -PORT # 202 -BYTE # 45 -PORT # 202 -BYTE # 46 -PORT # 202 -BYTE # 47 -PORT # 202 -BYTE # 48 -PORT # 202 -BYTE # 49 -PORT # 202 -BYTE # 50 -PORT # 202 -BYTE # 51 -PORT # 202 -BYTE # 52 -PORT # 202 -BYTE # 53 -PORT # 202 -BYTE # 54 -PORT # 202 -BYTE # 55 -PORT # 202 -BYTE # 56 -PORT # 202 -BYTE # 57 -PORT # 202 -BYTE # 58 -PORT # 202 -BYTE # 59 -PORT # 202 -BYTE # 60 -PORT # 202 -BYTE # 61 -PORT # 202 -BYTE # 62 -PORT # 202 -BYTE # 63 -PORT # 202 -BYTE # 64 -PORT # 202 -BYTE # 65 -PORT # 202 -BYTE # 66 -PORT # 202 -BYTE # 67 -PORT # 202 -BYTE # 68 -PORT # 202 -BYTE # 69 -PORT # 202 -BYTE # 70 -PORT # 202 -BYTE # 71 -PORT # 202 -BYTE # 72 -PORT # 202 -BYTE # 73 -PORT # 202 -BYTE # 74 -PORT # 202 -BYTE # 75 -PORT # 202 -BYTE # 76 -PORT # 202 -BYTE # 77 -PORT # 202 -BYTE # 78 -PORT # 202 -BYTE # 79 -PORT # 202 -BYTE # 80 -PORT # 202 -BYTE # 81 -PORT # 202 -BYTE # 82 -PORT # 202 -BYTE # 83 -PORT # 202 -BYTE # 84 -PORT # 202 -BYTE # 85 -PORT # 202 -BYTE # 86 -PORT # 202 -BYTE # 87 -PORT # 202 -BYTE # 88 -PORT # 202 -BYTE # 89 -PORT # 202 -BYTE # 90 -PORT # 202 -BYTE # 91 -PORT # 202 -BYTE # 92 -PORT # 202 -BYTE # 93 -PORT # 202 -BYTE # 94 -PORT # 202 -BYTE # 95 -PORT # 202 -BYTE # 96 -PORT # 202 -BYTE # 97 -PORT # 202 -BYTE # 98 -PORT # 202 -BYTE # 99 -PORT # 202 -BYTE # 100 -PORT # 202 -BYTE # 101 -PORT # 202 -BYTE # 102 -PORT # 202 -BYTE # 103 -PORT # 202 -BYTE # 104 -PORT # 202 -BYTE # 105 -PORT # 202 -BYTE # 106 -PORT # 202 -BYTE # 107 -PORT # 202 -BYTE # 108 -PORT # 202 -BYTE # 109 -PORT # 202 -BYTE # 110 -PORT # 202 -BYTE # 111 -PORT # 202 -BYTE # 112 -PORT # 202 -BYTE # 113 -PORT # 202 -BYTE # 114 -PORT # 202 -BYTE # 115 -PORT # 202 -BYTE # 116 -PORT # 202 -BYTE # 117 -PORT # 202 -BYTE # 118 -PORT # 202 -BYTE # 119 -PORT # 202 -BYTE # 120 -PORT # 202 -BYTE # 121 -PORT # 202 -BYTE # 122 -PORT # 202 -BYTE # 123 -PORT # 202 -BYTE # 124 -PORT # 202 -BYTE # 125 -PORT # 202 -BYTE # 126 -PORT # 202 -BYTE # 127 -PORT # 202 -BYTE # 128 -PORT # 202 -BYTE # 129 -PORT # 202 -BYTE # 130 -PORT # 202 -BYTE # 131 -PORT # 202 -BYTE # 132 -PORT # 202 -BYTE # 133 -PORT # 202 -BYTE # 134 -PORT # 202 -BYTE # 135 -PORT # 202 -BYTE # 136 -PORT # 202 -BYTE # 137 -PORT # 202 -BYTE # 138 -PORT # 202 -BYTE # 139 -PORT # 202 -BYTE # 140 -PORT # 202 -BYTE # 141 -PORT # 202 -BYTE # 142 -PORT # 202 -BYTE # 143 -PORT # 202 -BYTE # 144 -PORT # 202 -BYTE # 145 -PORT # 202 -BYTE # 146 -PORT # 202 -BYTE # 147 -PORT # 202 -BYTE # 148 -PORT # 202 -BYTE # 149 -PORT # 202 -BYTE # 150 -PORT # 202 -BYTE # 151 -PORT # 202 -BYTE # 152 -PORT # 202 -BYTE # 153 -PORT # 202 -BYTE # 154 -PORT # 202 -BYTE # 155 -PORT # 202 -BYTE # 156 -PORT # 202 -BYTE # 157 -PORT # 202 -BYTE # 158 -PORT # 202 -BYTE # 159 -PORT # 202 -BYTE # 160 -PORT # 202 -BYTE # 161 -PORT # 202 -BYTE # 162 -PORT # 202 -BYTE # 163 -PORT # 202 -BYTE # 164 -PORT # 202 -BYTE # 165 -PORT # 202 -BYTE # 166 -PORT # 202 -BYTE # 167 -PORT # 202 -BYTE # 168 -PORT # 202 -BYTE # 169 -PORT # 202 -BYTE # 170 -PORT # 202 -BYTE # 171 -PORT # 202 -BYTE # 172 -PORT # 202 -BYTE # 173 -PORT # 202 -BYTE # 174 -PORT # 202 -BYTE # 175 -PORT # 202 -BYTE # 176 -PORT # 202 -BYTE # 177 -PORT # 202 -BYTE # 178 -PORT # 202 -BYTE # 179 -PORT # 202 -BYTE # 180 -PORT # 202 -BYTE # 181 -PORT # 202 -BYTE # 182 -PORT # 202 -BYTE # 183 -PORT # 202 -BYTE # 184 -PORT # 202 -BYTE # 185 -PORT # 202 -BYTE # 186 -PORT # 202 -BYTE # 187 -PORT # 202 -BYTE # 188 -PORT # 202 -BYTE # 189 -PORT # 202 -BYTE # 190 -PORT # 202 -BYTE # 191 -PORT # 202 -BYTE # 192 -PORT # 202 -BYTE # 193 -PORT # 202 -BYTE # 194 -PORT # 202 -BYTE # 195 -PORT # 202 -BYTE # 196 -PORT # 202 -BYTE # 197 -PORT # 202 -BYTE # 198 -PORT # 202 -BYTE # 199 -PORT # 202 -BYTE # 200 -PORT # 202 -BYTE # 201 -PORT # 202 -BYTE # 202 -PORT # 202 -BYTE # 203 -PORT # 202 -BYTE # 204 -PORT # 202 -BYTE # 205 -PORT # 202 -BYTE # 206 -PORT # 202 -BYTE # 207 -PORT # 202 -BYTE # 208 -PORT # 202 -BYTE # 209 -PORT # 202 -BYTE # 210 -PORT # 202 -BYTE # 211 -PORT # 202 -BYTE # 212 -PORT # 202 -BYTE # 213 -PORT # 202 -BYTE # 214 -PORT # 202 -BYTE # 215 -PORT # 202 -BYTE # 216 -PORT # 202 -BYTE # 217 -PORT # 202 -BYTE # 218 -PORT # 202 -BYTE # 219 -PORT # 202 -BYTE # 220 -PORT # 202 -BYTE # 221 -PORT # 202 -BYTE # 222 -PORT # 202 -BYTE # 223 -PORT # 202 -BYTE # 224 -PORT # 202 -BYTE # 225 -PORT # 202 -BYTE # 226 -PORT # 202 -BYTE # 227 -PORT # 202 -BYTE # 228 -PORT # 202 -BYTE # 229 -PORT # 202 -BYTE # 230 -PORT # 202 -BYTE # 231 -PORT # 202 -BYTE # 232 -PORT # 202 -BYTE # 233 -PORT # 202 -BYTE # 234 -PORT # 202 -BYTE # 235 -PORT # 202 -BYTE # 236 -PORT # 202 -BYTE # 237 -PORT # 202 -BYTE # 238 -PORT # 202 -BYTE # 239 -PORT # 202 -BYTE # 240 -PORT # 202 -BYTE # 241 -PORT # 202 -BYTE # 242 -PORT # 202 -BYTE # 243 -PORT # 202 -BYTE # 244 -PORT # 202 -BYTE # 245 -PORT # 202 -BYTE # 246 -PORT # 202 -BYTE # 247 -PORT # 202 -BYTE # 248 -PORT # 202 -BYTE # 249 -PORT # 202 -BYTE # 250 -PORT # 202 -BYTE # 251 -PORT # 202 -BYTE # 252 -PORT # 202 -BYTE # 253 -PORT # 202 -BYTE # 254 -PORT # 202 -BYTE # 255 -PORT # 203 -BYTE # 0 -PORT # 203 -BYTE # 1 -PORT # 203 -BYTE # 2 -PORT # 203 -BYTE # 3 -PORT # 203 -BYTE # 4 -PORT # 203 -BYTE # 5 -PORT # 203 -BYTE # 6 -PORT # 203 -BYTE # 7 -PORT # 203 -BYTE # 8 -PORT # 203 -BYTE # 9 -PORT # 203 -BYTE # 10 -PORT # 203 -BYTE # 11 -PORT # 203 -BYTE # 12 -PORT # 203 -BYTE # 13 -PORT # 203 -BYTE # 14 -PORT # 203 -BYTE # 15 -PORT # 203 -BYTE # 16 -PORT # 203 -BYTE # 17 -PORT # 203 -BYTE # 18 -PORT # 203 -BYTE # 19 -PORT # 203 -BYTE # 20 -PORT # 203 -BYTE # 21 -PORT # 203 -BYTE # 22 -PORT # 203 -BYTE # 23 -PORT # 203 -BYTE # 24 -PORT # 203 -BYTE # 25 -PORT # 203 -BYTE # 26 -PORT # 203 -BYTE # 27 -PORT # 203 -BYTE # 28 -PORT # 203 -BYTE # 29 -PORT # 203 -BYTE # 30 -PORT # 203 -BYTE # 31 -PORT # 203 -BYTE # 32 -PORT # 203 -BYTE # 33 -PORT # 203 -BYTE # 34 -PORT # 203 -BYTE # 35 -PORT # 203 -BYTE # 36 -PORT # 203 -BYTE # 37 -PORT # 203 -BYTE # 38 -PORT # 203 -BYTE # 39 -PORT # 203 -BYTE # 40 -PORT # 203 -BYTE # 41 -PORT # 203 -BYTE # 42 -PORT # 203 -BYTE # 43 -PORT # 203 -BYTE # 44 -PORT # 203 -BYTE # 45 -PORT # 203 -BYTE # 46 -PORT # 203 -BYTE # 47 -PORT # 203 -BYTE # 48 -PORT # 203 -BYTE # 49 -PORT # 203 -BYTE # 50 -PORT # 203 -BYTE # 51 -PORT # 203 -BYTE # 52 -PORT # 203 -BYTE # 53 -PORT # 203 -BYTE # 54 -PORT # 203 -BYTE # 55 -PORT # 203 -BYTE # 56 -PORT # 203 -BYTE # 57 -PORT # 203 -BYTE # 58 -PORT # 203 -BYTE # 59 -PORT # 203 -BYTE # 60 -PORT # 203 -BYTE # 61 -PORT # 203 -BYTE # 62 -PORT # 203 -BYTE # 63 -PORT # 203 -BYTE # 64 -PORT # 203 -BYTE # 65 -PORT # 203 -BYTE # 66 -PORT # 203 -BYTE # 67 -PORT # 203 -BYTE # 68 -PORT # 203 -BYTE # 69 -PORT # 203 -BYTE # 70 -PORT # 203 -BYTE # 71 -PORT # 203 -BYTE # 72 -PORT # 203 -BYTE # 73 -PORT # 203 -BYTE # 74 -PORT # 203 -BYTE # 75 -PORT # 203 -BYTE # 76 -PORT # 203 -BYTE # 77 -PORT # 203 -BYTE # 78 -PORT # 203 -BYTE # 79 -PORT # 203 -BYTE # 80 -PORT # 203 -BYTE # 81 -PORT # 203 -BYTE # 82 -PORT # 203 -BYTE # 83 -PORT # 203 -BYTE # 84 -PORT # 203 -BYTE # 85 -PORT # 203 -BYTE # 86 -PORT # 203 -BYTE # 87 -PORT # 203 -BYTE # 88 -PORT # 203 -BYTE # 89 -PORT # 203 -BYTE # 90 -PORT # 203 -BYTE # 91 -PORT # 203 -BYTE # 92 -PORT # 203 -BYTE # 93 -PORT # 203 -BYTE # 94 -PORT # 203 -BYTE # 95 -PORT # 203 -BYTE # 96 -PORT # 203 -BYTE # 97 -PORT # 203 -BYTE # 98 -PORT # 203 -BYTE # 99 -PORT # 203 -BYTE # 100 -PORT # 203 -BYTE # 101 -PORT # 203 -BYTE # 102 -PORT # 203 -BYTE # 103 -PORT # 203 -BYTE # 104 -PORT # 203 -BYTE # 105 -PORT # 203 -BYTE # 106 -PORT # 203 -BYTE # 107 -PORT # 203 -BYTE # 108 -PORT # 203 -BYTE # 109 -PORT # 203 -BYTE # 110 -PORT # 203 -BYTE # 111 -PORT # 203 -BYTE # 112 -PORT # 203 -BYTE # 113 -PORT # 203 -BYTE # 114 -PORT # 203 -BYTE # 115 -PORT # 203 -BYTE # 116 -PORT # 203 -BYTE # 117 -PORT # 203 -BYTE # 118 -PORT # 203 -BYTE # 119 -PORT # 203 -BYTE # 120 -PORT # 203 -BYTE # 121 -PORT # 203 -BYTE # 122 -PORT # 203 -BYTE # 123 -PORT # 203 -BYTE # 124 -PORT # 203 -BYTE # 125 -PORT # 203 -BYTE # 126 -PORT # 203 -BYTE # 127 -PORT # 203 -BYTE # 128 -PORT # 203 -BYTE # 129 -PORT # 203 -BYTE # 130 -PORT # 203 -BYTE # 131 -PORT # 203 -BYTE # 132 -PORT # 203 -BYTE # 133 -PORT # 203 -BYTE # 134 -PORT # 203 -BYTE # 135 -PORT # 203 -BYTE # 136 -PORT # 203 -BYTE # 137 -PORT # 203 -BYTE # 138 -PORT # 203 -BYTE # 139 -PORT # 203 -BYTE # 140 -PORT # 203 -BYTE # 141 -PORT # 203 -BYTE # 142 -PORT # 203 -BYTE # 143 -PORT # 203 -BYTE # 144 -PORT # 203 -BYTE # 145 -PORT # 203 -BYTE # 146 -PORT # 203 -BYTE # 147 -PORT # 203 -BYTE # 148 -PORT # 203 -BYTE # 149 -PORT # 203 -BYTE # 150 -PORT # 203 -BYTE # 151 -PORT # 203 -BYTE # 152 -PORT # 203 -BYTE # 153 -PORT # 203 -BYTE # 154 -PORT # 203 -BYTE # 155 -PORT # 203 -BYTE # 156 -PORT # 203 -BYTE # 157 -PORT # 203 -BYTE # 158 -PORT # 203 -BYTE # 159 -PORT # 203 -BYTE # 160 -PORT # 203 -BYTE # 161 -PORT # 203 -BYTE # 162 -PORT # 203 -BYTE # 163 -PORT # 203 -BYTE # 164 -PORT # 203 -BYTE # 165 -PORT # 203 -BYTE # 166 -PORT # 203 -BYTE # 167 -PORT # 203 -BYTE # 168 -PORT # 203 -BYTE # 169 -PORT # 203 -BYTE # 170 -PORT # 203 -BYTE # 171 -PORT # 203 -BYTE # 172 -PORT # 203 -BYTE # 173 -PORT # 203 -BYTE # 174 -PORT # 203 -BYTE # 175 -PORT # 203 -BYTE # 176 -PORT # 203 -BYTE # 177 -PORT # 203 -BYTE # 178 -PORT # 203 -BYTE # 179 -PORT # 203 -BYTE # 180 -PORT # 203 -BYTE # 181 -PORT # 203 -BYTE # 182 -PORT # 203 -BYTE # 183 -PORT # 203 -BYTE # 184 -PORT # 203 -BYTE # 185 -PORT # 203 -BYTE # 186 -PORT # 203 -BYTE # 187 -PORT # 203 -BYTE # 188 -PORT # 203 -BYTE # 189 -PORT # 203 -BYTE # 190 -PORT # 203 -BYTE # 191 -PORT # 203 -BYTE # 192 -PORT # 203 -BYTE # 193 -PORT # 203 -BYTE # 194 -PORT # 203 -BYTE # 195 -PORT # 203 -BYTE # 196 -PORT # 203 -BYTE # 197 -PORT # 203 -BYTE # 198 -PORT # 203 -BYTE # 199 -PORT # 203 -BYTE # 200 -PORT # 203 -BYTE # 201 -PORT # 203 -BYTE # 202 -PORT # 203 -BYTE # 203 -PORT # 203 -BYTE # 204 -PORT # 203 -BYTE # 205 -PORT # 203 -BYTE # 206 -PORT # 203 -BYTE # 207 -PORT # 203 -BYTE # 208 -PORT # 203 -BYTE # 209 -PORT # 203 -BYTE # 210 -PORT # 203 -BYTE # 211 -PORT # 203 -BYTE # 212 -PORT # 203 -BYTE # 213 -PORT # 203 -BYTE # 214 -PORT # 203 -BYTE # 215 -PORT # 203 -BYTE # 216 -PORT # 203 -BYTE # 217 -PORT # 203 -BYTE # 218 -PORT # 203 -BYTE # 219 -PORT # 203 -BYTE # 220 -PORT # 203 -BYTE # 221 -PORT # 203 -BYTE # 222 -PORT # 203 -BYTE # 223 -PORT # 203 -BYTE # 224 -PORT # 203 -BYTE # 225 -PORT # 203 -BYTE # 226 -PORT # 203 -BYTE # 227 -PORT # 203 -BYTE # 228 -PORT # 203 -BYTE # 229 -PORT # 203 -BYTE # 230 -PORT # 203 -BYTE # 231 -PORT # 203 -BYTE # 232 -PORT # 203 -BYTE # 233 -PORT # 203 -BYTE # 234 -PORT # 203 -BYTE # 235 -PORT # 203 -BYTE # 236 -PORT # 203 -BYTE # 237 -PORT # 203 -BYTE # 238 -PORT # 203 -BYTE # 239 -PORT # 203 -BYTE # 240 -PORT # 203 -BYTE # 241 -PORT # 203 -BYTE # 242 -PORT # 203 -BYTE # 243 -PORT # 203 -BYTE # 244 -PORT # 203 -BYTE # 245 -PORT # 203 -BYTE # 246 -PORT # 203 -BYTE # 247 -PORT # 203 -BYTE # 248 -PORT # 203 -BYTE # 249 -PORT # 203 -BYTE # 250 -PORT # 203 -BYTE # 251 -PORT # 203 -BYTE # 252 -PORT # 203 -BYTE # 253 -PORT # 203 -BYTE # 254 -PORT # 203 -BYTE # 255 -PORT # 204 -BYTE # 0 -PORT # 204 -BYTE # 1 -PORT # 204 -BYTE # 2 -PORT # 204 -BYTE # 3 -PORT # 204 -BYTE # 4 -PORT # 204 -BYTE # 5 -PORT # 204 -BYTE # 6 -PORT # 204 -BYTE # 7 -PORT # 204 -BYTE # 8 -PORT # 204 -BYTE # 9 -PORT # 204 -BYTE # 10 -PORT # 204 -BYTE # 11 -PORT # 204 -BYTE # 12 -PORT # 204 -BYTE # 13 -PORT # 204 -BYTE # 14 -PORT # 204 -BYTE # 15 -PORT # 204 -BYTE # 16 -PORT # 204 -BYTE # 17 -PORT # 204 -BYTE # 18 -PORT # 204 -BYTE # 19 -PORT # 204 -BYTE # 20 -PORT # 204 -BYTE # 21 -PORT # 204 -BYTE # 22 -PORT # 204 -BYTE # 23 -PORT # 204 -BYTE # 24 -PORT # 204 -BYTE # 25 -PORT # 204 -BYTE # 26 -PORT # 204 -BYTE # 27 -PORT # 204 -BYTE # 28 -PORT # 204 -BYTE # 29 -PORT # 204 -BYTE # 30 -PORT # 204 -BYTE # 31 -PORT # 204 -BYTE # 32 -PORT # 204 -BYTE # 33 -PORT # 204 -BYTE # 34 -PORT # 204 -BYTE # 35 -PORT # 204 -BYTE # 36 -PORT # 204 -BYTE # 37 -PORT # 204 -BYTE # 38 -PORT # 204 -BYTE # 39 -PORT # 204 -BYTE # 40 -PORT # 204 -BYTE # 41 -PORT # 204 -BYTE # 42 -PORT # 204 -BYTE # 43 -PORT # 204 -BYTE # 44 -PORT # 204 -BYTE # 45 -PORT # 204 -BYTE # 46 -PORT # 204 -BYTE # 47 -PORT # 204 -BYTE # 48 -PORT # 204 -BYTE # 49 -PORT # 204 -BYTE # 50 -PORT # 204 -BYTE # 51 -PORT # 204 -BYTE # 52 -PORT # 204 -BYTE # 53 -PORT # 204 -BYTE # 54 -PORT # 204 -BYTE # 55 -PORT # 204 -BYTE # 56 -PORT # 204 -BYTE # 57 -PORT # 204 -BYTE # 58 -PORT # 204 -BYTE # 59 -PORT # 204 -BYTE # 60 -PORT # 204 -BYTE # 61 -PORT # 204 -BYTE # 62 -PORT # 204 -BYTE # 63 -PORT # 204 -BYTE # 64 -PORT # 204 -BYTE # 65 -PORT # 204 -BYTE # 66 -PORT # 204 -BYTE # 67 -PORT # 204 -BYTE # 68 -PORT # 204 -BYTE # 69 -PORT # 204 -BYTE # 70 -PORT # 204 -BYTE # 71 -PORT # 204 -BYTE # 72 -PORT # 204 -BYTE # 73 -PORT # 204 -BYTE # 74 -PORT # 204 -BYTE # 75 -PORT # 204 -BYTE # 76 -PORT # 204 -BYTE # 77 -PORT # 204 -BYTE # 78 -PORT # 204 -BYTE # 79 -PORT # 204 -BYTE # 80 -PORT # 204 -BYTE # 81 -PORT # 204 -BYTE # 82 -PORT # 204 -BYTE # 83 -PORT # 204 -BYTE # 84 -PORT # 204 -BYTE # 85 -PORT # 204 -BYTE # 86 -PORT # 204 -BYTE # 87 -PORT # 204 -BYTE # 88 -PORT # 204 -BYTE # 89 -PORT # 204 -BYTE # 90 -PORT # 204 -BYTE # 91 -PORT # 204 -BYTE # 92 -PORT # 204 -BYTE # 93 -PORT # 204 -BYTE # 94 -PORT # 204 -BYTE # 95 -PORT # 204 -BYTE # 96 -PORT # 204 -BYTE # 97 -PORT # 204 -BYTE # 98 -PORT # 204 -BYTE # 99 -PORT # 204 -BYTE # 100 -PORT # 204 -BYTE # 101 -PORT # 204 -BYTE # 102 -PORT # 204 -BYTE # 103 -PORT # 204 -BYTE # 104 -PORT # 204 -BYTE # 105 -PORT # 204 -BYTE # 106 -PORT # 204 -BYTE # 107 -PORT # 204 -BYTE # 108 -PORT # 204 -BYTE # 109 -PORT # 204 -BYTE # 110 -PORT # 204 -BYTE # 111 -PORT # 204 -BYTE # 112 -PORT # 204 -BYTE # 113 -PORT # 204 -BYTE # 114 -PORT # 204 -BYTE # 115 -PORT # 204 -BYTE # 116 -PORT # 204 -BYTE # 117 -PORT # 204 -BYTE # 118 -PORT # 204 -BYTE # 119 -PORT # 204 -BYTE # 120 -PORT # 204 -BYTE # 121 -PORT # 204 -BYTE # 122 -PORT # 204 -BYTE # 123 -PORT # 204 -BYTE # 124 -PORT # 204 -BYTE # 125 -PORT # 204 -BYTE # 126 -PORT # 204 -BYTE # 127 -PORT # 204 -BYTE # 128 -PORT # 204 -BYTE # 129 -PORT # 204 -BYTE # 130 -PORT # 204 -BYTE # 131 -PORT # 204 -BYTE # 132 -PORT # 204 -BYTE # 133 -PORT # 204 -BYTE # 134 -PORT # 204 -BYTE # 135 -PORT # 204 -BYTE # 136 -PORT # 204 -BYTE # 137 -PORT # 204 -BYTE # 138 -PORT # 204 -BYTE # 139 -PORT # 204 -BYTE # 140 -PORT # 204 -BYTE # 141 -PORT # 204 -BYTE # 142 -PORT # 204 -BYTE # 143 -PORT # 204 -BYTE # 144 -PORT # 204 -BYTE # 145 -PORT # 204 -BYTE # 146 -PORT # 204 -BYTE # 147 -PORT # 204 -BYTE # 148 -PORT # 204 -BYTE # 149 -PORT # 204 -BYTE # 150 -PORT # 204 -BYTE # 151 -PORT # 204 -BYTE # 152 -PORT # 204 -BYTE # 153 -PORT # 204 -BYTE # 154 -PORT # 204 -BYTE # 155 -PORT # 204 -BYTE # 156 -PORT # 204 -BYTE # 157 -PORT # 204 -BYTE # 158 -PORT # 204 -BYTE # 159 -PORT # 204 -BYTE # 160 -PORT # 204 -BYTE # 161 -PORT # 204 -BYTE # 162 -PORT # 204 -BYTE # 163 -PORT # 204 -BYTE # 164 -PORT # 204 -BYTE # 165 -PORT # 204 -BYTE # 166 -PORT # 204 -BYTE # 167 -PORT # 204 -BYTE # 168 -PORT # 204 -BYTE # 169 -PORT # 204 -BYTE # 170 -PORT # 204 -BYTE # 171 -PORT # 204 -BYTE # 172 -PORT # 204 -BYTE # 173 -PORT # 204 -BYTE # 174 -PORT # 204 -BYTE # 175 -PORT # 204 -BYTE # 176 -PORT # 204 -BYTE # 177 -PORT # 204 -BYTE # 178 -PORT # 204 -BYTE # 179 -PORT # 204 -BYTE # 180 -PORT # 204 -BYTE # 181 -PORT # 204 -BYTE # 182 -PORT # 204 -BYTE # 183 -PORT # 204 -BYTE # 184 -PORT # 204 -BYTE # 185 -PORT # 204 -BYTE # 186 -PORT # 204 -BYTE # 187 -PORT # 204 -BYTE # 188 -PORT # 204 -BYTE # 189 -PORT # 204 -BYTE # 190 -PORT # 204 -BYTE # 191 -PORT # 204 -BYTE # 192 -PORT # 204 -BYTE # 193 -PORT # 204 -BYTE # 194 -PORT # 204 -BYTE # 195 -PORT # 204 -BYTE # 196 -PORT # 204 -BYTE # 197 -PORT # 204 -BYTE # 198 -PORT # 204 -BYTE # 199 -PORT # 204 -BYTE # 200 -PORT # 204 -BYTE # 201 -PORT # 204 -BYTE # 202 -PORT # 204 -BYTE # 203 -PORT # 204 -BYTE # 204 -PORT # 204 -BYTE # 205 -PORT # 204 -BYTE # 206 -PORT # 204 -BYTE # 207 -PORT # 204 -BYTE # 208 -PORT # 204 -BYTE # 209 -PORT # 204 -BYTE # 210 -PORT # 204 -BYTE # 211 -PORT # 204 -BYTE # 212 -PORT # 204 -BYTE # 213 -PORT # 204 -BYTE # 214 -PORT # 204 -BYTE # 215 -PORT # 204 -BYTE # 216 -PORT # 204 -BYTE # 217 -PORT # 204 -BYTE # 218 -PORT # 204 -BYTE # 219 -PORT # 204 -BYTE # 220 -PORT # 204 -BYTE # 221 -PORT # 204 -BYTE # 222 -PORT # 204 -BYTE # 223 -PORT # 204 -BYTE # 224 -PORT # 204 -BYTE # 225 -PORT # 204 -BYTE # 226 -PORT # 204 -BYTE # 227 -PORT # 204 -BYTE # 228 -PORT # 204 -BYTE # 229 -PORT # 204 -BYTE # 230 -PORT # 204 -BYTE # 231 -PORT # 204 -BYTE # 232 -PORT # 204 -BYTE # 233 -PORT # 204 -BYTE # 234 -PORT # 204 -BYTE # 235 -PORT # 204 -BYTE # 236 -PORT # 204 -BYTE # 237 -PORT # 204 -BYTE # 238 -PORT # 204 -BYTE # 239 -PORT # 204 -BYTE # 240 -PORT # 204 -BYTE # 241 -PORT # 204 -BYTE # 242 -PORT # 204 -BYTE # 243 -PORT # 204 -BYTE # 244 -PORT # 204 -BYTE # 245 -PORT # 204 -BYTE # 246 -PORT # 204 -BYTE # 247 -PORT # 204 -BYTE # 248 -PORT # 204 -BYTE # 249 -PORT # 204 -BYTE # 250 -PORT # 204 -BYTE # 251 -PORT # 204 -BYTE # 252 -PORT # 204 -BYTE # 253 -PORT # 204 -BYTE # 254 -PORT # 204 -BYTE # 255 -PORT # 205 -BYTE # 0 -PORT # 205 -BYTE # 1 -PORT # 205 -BYTE # 2 -PORT # 205 -BYTE # 3 -PORT # 205 -BYTE # 4 -PORT # 205 -BYTE # 5 -PORT # 205 -BYTE # 6 -PORT # 205 -BYTE # 7 -PORT # 205 -BYTE # 8 -PORT # 205 -BYTE # 9 -PORT # 205 -BYTE # 10 -PORT # 205 -BYTE # 11 -PORT # 205 -BYTE # 12 -PORT # 205 -BYTE # 13 -PORT # 205 -BYTE # 14 -PORT # 205 -BYTE # 15 -PORT # 205 -BYTE # 16 -PORT # 205 -BYTE # 17 -PORT # 205 -BYTE # 18 -PORT # 205 -BYTE # 19 -PORT # 205 -BYTE # 20 -PORT # 205 -BYTE # 21 -PORT # 205 -BYTE # 22 -PORT # 205 -BYTE # 23 -PORT # 205 -BYTE # 24 -PORT # 205 -BYTE # 25 -PORT # 205 -BYTE # 26 -PORT # 205 -BYTE # 27 -PORT # 205 -BYTE # 28 -PORT # 205 -BYTE # 29 -PORT # 205 -BYTE # 30 -PORT # 205 -BYTE # 31 -PORT # 205 -BYTE # 32 -PORT # 205 -BYTE # 33 -PORT # 205 -BYTE # 34 -PORT # 205 -BYTE # 35 -PORT # 205 -BYTE # 36 -PORT # 205 -BYTE # 37 -PORT # 205 -BYTE # 38 -PORT # 205 -BYTE # 39 -PORT # 205 -BYTE # 40 -PORT # 205 -BYTE # 41 -PORT # 205 -BYTE # 42 -PORT # 205 -BYTE # 43 -PORT # 205 -BYTE # 44 -PORT # 205 -BYTE # 45 -PORT # 205 -BYTE # 46 -PORT # 205 -BYTE # 47 -PORT # 205 -BYTE # 48 -PORT # 205 -BYTE # 49 -PORT # 205 -BYTE # 50 -PORT # 205 -BYTE # 51 -PORT # 205 -BYTE # 52 -PORT # 205 -BYTE # 53 -PORT # 205 -BYTE # 54 -PORT # 205 -BYTE # 55 -PORT # 205 -BYTE # 56 -PORT # 205 -BYTE # 57 -PORT # 205 -BYTE # 58 -PORT # 205 -BYTE # 59 -PORT # 205 -BYTE # 60 -PORT # 205 -BYTE # 61 -PORT # 205 -BYTE # 62 -PORT # 205 -BYTE # 63 -PORT # 205 -BYTE # 64 -PORT # 205 -BYTE # 65 -PORT # 205 -BYTE # 66 -PORT # 205 -BYTE # 67 -PORT # 205 -BYTE # 68 -PORT # 205 -BYTE # 69 -PORT # 205 -BYTE # 70 -PORT # 205 -BYTE # 71 -PORT # 205 -BYTE # 72 -PORT # 205 -BYTE # 73 -PORT # 205 -BYTE # 74 -PORT # 205 -BYTE # 75 -PORT # 205 -BYTE # 76 -PORT # 205 -BYTE # 77 -PORT # 205 -BYTE # 78 -PORT # 205 -BYTE # 79 -PORT # 205 -BYTE # 80 -PORT # 205 -BYTE # 81 -PORT # 205 -BYTE # 82 -PORT # 205 -BYTE # 83 -PORT # 205 -BYTE # 84 -PORT # 205 -BYTE # 85 -PORT # 205 -BYTE # 86 -PORT # 205 -BYTE # 87 -PORT # 205 -BYTE # 88 -PORT # 205 -BYTE # 89 -PORT # 205 -BYTE # 90 -PORT # 205 -BYTE # 91 -PORT # 205 -BYTE # 92 -PORT # 205 -BYTE # 93 -PORT # 205 -BYTE # 94 -PORT # 205 -BYTE # 95 -PORT # 205 -BYTE # 96 -PORT # 205 -BYTE # 97 -PORT # 205 -BYTE # 98 -PORT # 205 -BYTE # 99 -PORT # 205 -BYTE # 100 -PORT # 205 -BYTE # 101 -PORT # 205 -BYTE # 102 -PORT # 205 -BYTE # 103 -PORT # 205 -BYTE # 104 -PORT # 205 -BYTE # 105 -PORT # 205 -BYTE # 106 -PORT # 205 -BYTE # 107 -PORT # 205 -BYTE # 108 -PORT # 205 -BYTE # 109 -PORT # 205 -BYTE # 110 -PORT # 205 -BYTE # 111 -PORT # 205 -BYTE # 112 -PORT # 205 -BYTE # 113 -PORT # 205 -BYTE # 114 -PORT # 205 -BYTE # 115 -PORT # 205 -BYTE # 116 -PORT # 205 -BYTE # 117 -PORT # 205 -BYTE # 118 -PORT # 205 -BYTE # 119 -PORT # 205 -BYTE # 120 -PORT # 205 -BYTE # 121 -PORT # 205 -BYTE # 122 -PORT # 205 -BYTE # 123 -PORT # 205 -BYTE # 124 -PORT # 205 -BYTE # 125 -PORT # 205 -BYTE # 126 -PORT # 205 -BYTE # 127 -PORT # 205 -BYTE # 128 -PORT # 205 -BYTE # 129 -PORT # 205 -BYTE # 130 -PORT # 205 -BYTE # 131 -PORT # 205 -BYTE # 132 -PORT # 205 -BYTE # 133 -PORT # 205 -BYTE # 134 -PORT # 205 -BYTE # 135 -PORT # 205 -BYTE # 136 -PORT # 205 -BYTE # 137 -PORT # 205 -BYTE # 138 -PORT # 205 -BYTE # 139 -PORT # 205 -BYTE # 140 -PORT # 205 -BYTE # 141 -PORT # 205 -BYTE # 142 -PORT # 205 -BYTE # 143 -PORT # 205 -BYTE # 144 -PORT # 205 -BYTE # 145 -PORT # 205 -BYTE # 146 -PORT # 205 -BYTE # 147 -PORT # 205 -BYTE # 148 -PORT # 205 -BYTE # 149 -PORT # 205 -BYTE # 150 -PORT # 205 -BYTE # 151 -PORT # 205 -BYTE # 152 -PORT # 205 -BYTE # 153 -PORT # 205 -BYTE # 154 -PORT # 205 -BYTE # 155 -PORT # 205 -BYTE # 156 -PORT # 205 -BYTE # 157 -PORT # 205 -BYTE # 158 -PORT # 205 -BYTE # 159 -PORT # 205 -BYTE # 160 -PORT # 205 -BYTE # 161 -PORT # 205 -BYTE # 162 -PORT # 205 -BYTE # 163 -PORT # 205 -BYTE # 164 -PORT # 205 -BYTE # 165 -PORT # 205 -BYTE # 166 -PORT # 205 -BYTE # 167 -PORT # 205 -BYTE # 168 -PORT # 205 -BYTE # 169 -PORT # 205 -BYTE # 170 -PORT # 205 -BYTE # 171 -PORT # 205 -BYTE # 172 -PORT # 205 -BYTE # 173 -PORT # 205 -BYTE # 174 -PORT # 205 -BYTE # 175 -PORT # 205 -BYTE # 176 -PORT # 205 -BYTE # 177 -PORT # 205 -BYTE # 178 -PORT # 205 -BYTE # 179 -PORT # 205 -BYTE # 180 -PORT # 205 -BYTE # 181 -PORT # 205 -BYTE # 182 -PORT # 205 -BYTE # 183 -PORT # 205 -BYTE # 184 -PORT # 205 -BYTE # 185 -PORT # 205 -BYTE # 186 -PORT # 205 -BYTE # 187 -PORT # 205 -BYTE # 188 -PORT # 205 -BYTE # 189 -PORT # 205 -BYTE # 190 -PORT # 205 -BYTE # 191 -PORT # 205 -BYTE # 192 -PORT # 205 -BYTE # 193 -PORT # 205 -BYTE # 194 -PORT # 205 -BYTE # 195 -PORT # 205 -BYTE # 196 -PORT # 205 -BYTE # 197 -PORT # 205 -BYTE # 198 -PORT # 205 -BYTE # 199 -PORT # 205 -BYTE # 200 -PORT # 205 -BYTE # 201 -PORT # 205 -BYTE # 202 -PORT # 205 -BYTE # 203 -PORT # 205 -BYTE # 204 -PORT # 205 -BYTE # 205 -PORT # 205 -BYTE # 206 -PORT # 205 -BYTE # 207 -PORT # 205 -BYTE # 208 -PORT # 205 -BYTE # 209 -PORT # 205 -BYTE # 210 -PORT # 205 -BYTE # 211 -PORT # 205 -BYTE # 212 -PORT # 205 -BYTE # 213 -PORT # 205 -BYTE # 214 -PORT # 205 -BYTE # 215 -PORT # 205 -BYTE # 216 -PORT # 205 -BYTE # 217 -PORT # 205 -BYTE # 218 -PORT # 205 -BYTE # 219 -PORT # 205 -BYTE # 220 -PORT # 205 -BYTE # 221 -PORT # 205 -BYTE # 222 -PORT # 205 -BYTE # 223 -PORT # 205 -BYTE # 224 -PORT # 205 -BYTE # 225 -PORT # 205 -BYTE # 226 -PORT # 205 -BYTE # 227 -PORT # 205 -BYTE # 228 -PORT # 205 -BYTE # 229 -PORT # 205 -BYTE # 230 -PORT # 205 -BYTE # 231 -PORT # 205 -BYTE # 232 -PORT # 205 -BYTE # 233 -PORT # 205 -BYTE # 234 -PORT # 205 -BYTE # 235 -PORT # 205 -BYTE # 236 -PORT # 205 -BYTE # 237 -PORT # 205 -BYTE # 238 -PORT # 205 -BYTE # 239 -PORT # 205 -BYTE # 240 -PORT # 205 -BYTE # 241 -PORT # 205 -BYTE # 242 -PORT # 205 -BYTE # 243 -PORT # 205 -BYTE # 244 -PORT # 205 -BYTE # 245 -PORT # 205 -BYTE # 246 -PORT # 205 -BYTE # 247 -PORT # 205 -BYTE # 248 -PORT # 205 -BYTE # 249 -PORT # 205 -BYTE # 250 -PORT # 205 -BYTE # 251 -PORT # 205 -BYTE # 252 -PORT # 205 -BYTE # 253 -PORT # 205 -BYTE # 254 -PORT # 205 -BYTE # 255 -PORT # 206 -BYTE # 0 -PORT # 206 -BYTE # 1 -PORT # 206 -BYTE # 2 -PORT # 206 -BYTE # 3 -PORT # 206 -BYTE # 4 -PORT # 206 -BYTE # 5 -PORT # 206 -BYTE # 6 -PORT # 206 -BYTE # 7 -PORT # 206 -BYTE # 8 -PORT # 206 -BYTE # 9 -PORT # 206 -BYTE # 10 -PORT # 206 -BYTE # 11 -PORT # 206 -BYTE # 12 -PORT # 206 -BYTE # 13 -PORT # 206 -BYTE # 14 -PORT # 206 -BYTE # 15 -PORT # 206 -BYTE # 16 -PORT # 206 -BYTE # 17 -PORT # 206 -BYTE # 18 -PORT # 206 -BYTE # 19 -PORT # 206 -BYTE # 20 -PORT # 206 -BYTE # 21 -PORT # 206 -BYTE # 22 -PORT # 206 -BYTE # 23 -PORT # 206 -BYTE # 24 -PORT # 206 -BYTE # 25 -PORT # 206 -BYTE # 26 -PORT # 206 -BYTE # 27 -PORT # 206 -BYTE # 28 -PORT # 206 -BYTE # 29 -PORT # 206 -BYTE # 30 -PORT # 206 -BYTE # 31 -PORT # 206 -BYTE # 32 -PORT # 206 -BYTE # 33 -PORT # 206 -BYTE # 34 -PORT # 206 -BYTE # 35 -PORT # 206 -BYTE # 36 -PORT # 206 -BYTE # 37 -PORT # 206 -BYTE # 38 -PORT # 206 -BYTE # 39 -PORT # 206 -BYTE # 40 -PORT # 206 -BYTE # 41 -PORT # 206 -BYTE # 42 -PORT # 206 -BYTE # 43 -PORT # 206 -BYTE # 44 -PORT # 206 -BYTE # 45 -PORT # 206 -BYTE # 46 -PORT # 206 -BYTE # 47 -PORT # 206 -BYTE # 48 -PORT # 206 -BYTE # 49 -PORT # 206 -BYTE # 50 -PORT # 206 -BYTE # 51 -PORT # 206 -BYTE # 52 -PORT # 206 -BYTE # 53 -PORT # 206 -BYTE # 54 -PORT # 206 -BYTE # 55 -PORT # 206 -BYTE # 56 -PORT # 206 -BYTE # 57 -PORT # 206 -BYTE # 58 -PORT # 206 -BYTE # 59 -PORT # 206 -BYTE # 60 -PORT # 206 -BYTE # 61 -PORT # 206 -BYTE # 62 -PORT # 206 -BYTE # 63 -PORT # 206 -BYTE # 64 -PORT # 206 -BYTE # 65 -PORT # 206 -BYTE # 66 -PORT # 206 -BYTE # 67 -PORT # 206 -BYTE # 68 -PORT # 206 -BYTE # 69 -PORT # 206 -BYTE # 70 -PORT # 206 -BYTE # 71 -PORT # 206 -BYTE # 72 -PORT # 206 -BYTE # 73 -PORT # 206 -BYTE # 74 -PORT # 206 -BYTE # 75 -PORT # 206 -BYTE # 76 -PORT # 206 -BYTE # 77 -PORT # 206 -BYTE # 78 -PORT # 206 -BYTE # 79 -PORT # 206 -BYTE # 80 -PORT # 206 -BYTE # 81 -PORT # 206 -BYTE # 82 -PORT # 206 -BYTE # 83 -PORT # 206 -BYTE # 84 -PORT # 206 -BYTE # 85 -PORT # 206 -BYTE # 86 -PORT # 206 -BYTE # 87 -PORT # 206 -BYTE # 88 -PORT # 206 -BYTE # 89 -PORT # 206 -BYTE # 90 -PORT # 206 -BYTE # 91 -PORT # 206 -BYTE # 92 -PORT # 206 -BYTE # 93 -PORT # 206 -BYTE # 94 -PORT # 206 -BYTE # 95 -PORT # 206 -BYTE # 96 -PORT # 206 -BYTE # 97 -PORT # 206 -BYTE # 98 -PORT # 206 -BYTE # 99 -PORT # 206 -BYTE # 100 -PORT # 206 -BYTE # 101 -PORT # 206 -BYTE # 102 -PORT # 206 -BYTE # 103 -PORT # 206 -BYTE # 104 -PORT # 206 -BYTE # 105 -PORT # 206 -BYTE # 106 -PORT # 206 -BYTE # 107 -PORT # 206 -BYTE # 108 -PORT # 206 -BYTE # 109 -PORT # 206 -BYTE # 110 -PORT # 206 -BYTE # 111 -PORT # 206 -BYTE # 112 -PORT # 206 -BYTE # 113 -PORT # 206 -BYTE # 114 -PORT # 206 -BYTE # 115 -PORT # 206 -BYTE # 116 -PORT # 206 -BYTE # 117 -PORT # 206 -BYTE # 118 -PORT # 206 -BYTE # 119 -PORT # 206 -BYTE # 120 -PORT # 206 -BYTE # 121 -PORT # 206 -BYTE # 122 -PORT # 206 -BYTE # 123 -PORT # 206 -BYTE # 124 -PORT # 206 -BYTE # 125 -PORT # 206 -BYTE # 126 -PORT # 206 -BYTE # 127 -PORT # 206 -BYTE # 128 -PORT # 206 -BYTE # 129 -PORT # 206 -BYTE # 130 -PORT # 206 -BYTE # 131 -PORT # 206 -BYTE # 132 -PORT # 206 -BYTE # 133 -PORT # 206 -BYTE # 134 -PORT # 206 -BYTE # 135 -PORT # 206 -BYTE # 136 -PORT # 206 -BYTE # 137 -PORT # 206 -BYTE # 138 -PORT # 206 -BYTE # 139 -PORT # 206 -BYTE # 140 -PORT # 206 -BYTE # 141 -PORT # 206 -BYTE # 142 -PORT # 206 -BYTE # 143 -PORT # 206 -BYTE # 144 -PORT # 206 -BYTE # 145 -PORT # 206 -BYTE # 146 -PORT # 206 -BYTE # 147 -PORT # 206 -BYTE # 148 -PORT # 206 -BYTE # 149 -PORT # 206 -BYTE # 150 -PORT # 206 -BYTE # 151 -PORT # 206 -BYTE # 152 -PORT # 206 -BYTE # 153 -PORT # 206 -BYTE # 154 -PORT # 206 -BYTE # 155 -PORT # 206 -BYTE # 156 -PORT # 206 -BYTE # 157 -PORT # 206 -BYTE # 158 -PORT # 206 -BYTE # 159 -PORT # 206 -BYTE # 160 -PORT # 206 -BYTE # 161 -PORT # 206 -BYTE # 162 -PORT # 206 -BYTE # 163 -PORT # 206 -BYTE # 164 -PORT # 206 -BYTE # 165 -PORT # 206 -BYTE # 166 -PORT # 206 -BYTE # 167 -PORT # 206 -BYTE # 168 -PORT # 206 -BYTE # 169 -PORT # 206 -BYTE # 170 -PORT # 206 -BYTE # 171 -PORT # 206 -BYTE # 172 -PORT # 206 -BYTE # 173 -PORT # 206 -BYTE # 174 -PORT # 206 -BYTE # 175 -PORT # 206 -BYTE # 176 -PORT # 206 -BYTE # 177 -PORT # 206 -BYTE # 178 -PORT # 206 -BYTE # 179 -PORT # 206 -BYTE # 180 -PORT # 206 -BYTE # 181 -PORT # 206 -BYTE # 182 -PORT # 206 -BYTE # 183 -PORT # 206 -BYTE # 184 -PORT # 206 -BYTE # 185 -PORT # 206 -BYTE # 186 -PORT # 206 -BYTE # 187 -PORT # 206 -BYTE # 188 -PORT # 206 -BYTE # 189 -PORT # 206 -BYTE # 190 -PORT # 206 -BYTE # 191 -PORT # 206 -BYTE # 192 -PORT # 206 -BYTE # 193 -PORT # 206 -BYTE # 194 -PORT # 206 -BYTE # 195 -PORT # 206 -BYTE # 196 -PORT # 206 -BYTE # 197 -PORT # 206 -BYTE # 198 -PORT # 206 -BYTE # 199 -PORT # 206 -BYTE # 200 -PORT # 206 -BYTE # 201 -PORT # 206 -BYTE # 202 -PORT # 206 -BYTE # 203 -PORT # 206 -BYTE # 204 -PORT # 206 -BYTE # 205 -PORT # 206 -BYTE # 206 -PORT # 206 -BYTE # 207 -PORT # 206 -BYTE # 208 -PORT # 206 -BYTE # 209 -PORT # 206 -BYTE # 210 -PORT # 206 -BYTE # 211 -PORT # 206 -BYTE # 212 -PORT # 206 -BYTE # 213 -PORT # 206 -BYTE # 214 -PORT # 206 -BYTE # 215 -PORT # 206 -BYTE # 216 -PORT # 206 -BYTE # 217 -PORT # 206 -BYTE # 218 -PORT # 206 -BYTE # 219 -PORT # 206 -BYTE # 220 -PORT # 206 -BYTE # 221 -PORT # 206 -BYTE # 222 -PORT # 206 -BYTE # 223 -PORT # 206 -BYTE # 224 -PORT # 206 -BYTE # 225 -PORT # 206 -BYTE # 226 -PORT # 206 -BYTE # 227 -PORT # 206 -BYTE # 228 -PORT # 206 -BYTE # 229 -PORT # 206 -BYTE # 230 -PORT # 206 -BYTE # 231 -PORT # 206 -BYTE # 232 -PORT # 206 -BYTE # 233 -PORT # 206 -BYTE # 234 -PORT # 206 -BYTE # 235 -PORT # 206 -BYTE # 236 -PORT # 206 -BYTE # 237 -PORT # 206 -BYTE # 238 -PORT # 206 -BYTE # 239 -PORT # 206 -BYTE # 240 -PORT # 206 -BYTE # 241 -PORT # 206 -BYTE # 242 -PORT # 206 -BYTE # 243 -PORT # 206 -BYTE # 244 -PORT # 206 -BYTE # 245 -PORT # 206 -BYTE # 246 -PORT # 206 -BYTE # 247 -PORT # 206 -BYTE # 248 -PORT # 206 -BYTE # 249 -PORT # 206 -BYTE # 250 -PORT # 206 -BYTE # 251 -PORT # 206 -BYTE # 252 -PORT # 206 -BYTE # 253 -PORT # 206 -BYTE # 254 -PORT # 206 -BYTE # 255 -PORT # 207 -BYTE # 0 -PORT # 207 -BYTE # 1 -PORT # 207 -BYTE # 2 -PORT # 207 -BYTE # 3 -PORT # 207 -BYTE # 4 -PORT # 207 -BYTE # 5 -PORT # 207 -BYTE # 6 -PORT # 207 -BYTE # 7 -PORT # 207 -BYTE # 8 -PORT # 207 -BYTE # 9 -PORT # 207 -BYTE # 10 -PORT # 207 -BYTE # 11 -PORT # 207 -BYTE # 12 -PORT # 207 -BYTE # 13 -PORT # 207 -BYTE # 14 -PORT # 207 -BYTE # 15 -PORT # 207 -BYTE # 16 -PORT # 207 -BYTE # 17 -PORT # 207 -BYTE # 18 -PORT # 207 -BYTE # 19 -PORT # 207 -BYTE # 20 -PORT # 207 -BYTE # 21 -PORT # 207 -BYTE # 22 -PORT # 207 -BYTE # 23 -PORT # 207 -BYTE # 24 -PORT # 207 -BYTE # 25 -PORT # 207 -BYTE # 26 -PORT # 207 -BYTE # 27 -PORT # 207 -BYTE # 28 -PORT # 207 -BYTE # 29 -PORT # 207 -BYTE # 30 -PORT # 207 -BYTE # 31 -PORT # 207 -BYTE # 32 -PORT # 207 -BYTE # 33 -PORT # 207 -BYTE # 34 -PORT # 207 -BYTE # 35 -PORT # 207 -BYTE # 36 -PORT # 207 -BYTE # 37 -PORT # 207 -BYTE # 38 -PORT # 207 -BYTE # 39 -PORT # 207 -BYTE # 40 -PORT # 207 -BYTE # 41 -PORT # 207 -BYTE # 42 -PORT # 207 -BYTE # 43 -PORT # 207 -BYTE # 44 -PORT # 207 -BYTE # 45 -PORT # 207 -BYTE # 46 -PORT # 207 -BYTE # 47 -PORT # 207 -BYTE # 48 -PORT # 207 -BYTE # 49 -PORT # 207 -BYTE # 50 -PORT # 207 -BYTE # 51 -PORT # 207 -BYTE # 52 -PORT # 207 -BYTE # 53 -PORT # 207 -BYTE # 54 -PORT # 207 -BYTE # 55 -PORT # 207 -BYTE # 56 -PORT # 207 -BYTE # 57 -PORT # 207 -BYTE # 58 -PORT # 207 -BYTE # 59 -PORT # 207 -BYTE # 60 -PORT # 207 -BYTE # 61 -PORT # 207 -BYTE # 62 -PORT # 207 -BYTE # 63 -PORT # 207 -BYTE # 64 -PORT # 207 -BYTE # 65 -PORT # 207 -BYTE # 66 -PORT # 207 -BYTE # 67 -PORT # 207 -BYTE # 68 -PORT # 207 -BYTE # 69 -PORT # 207 -BYTE # 70 -PORT # 207 -BYTE # 71 -PORT # 207 -BYTE # 72 -PORT # 207 -BYTE # 73 -PORT # 207 -BYTE # 74 -PORT # 207 -BYTE # 75 -PORT # 207 -BYTE # 76 -PORT # 207 -BYTE # 77 -PORT # 207 -BYTE # 78 -PORT # 207 -BYTE # 79 -PORT # 207 -BYTE # 80 -PORT # 207 -BYTE # 81 -PORT # 207 -BYTE # 82 -PORT # 207 -BYTE # 83 -PORT # 207 -BYTE # 84 -PORT # 207 -BYTE # 85 -PORT # 207 -BYTE # 86 -PORT # 207 -BYTE # 87 -PORT # 207 -BYTE # 88 -PORT # 207 -BYTE # 89 -PORT # 207 -BYTE # 90 -PORT # 207 -BYTE # 91 -PORT # 207 -BYTE # 92 -PORT # 207 -BYTE # 93 -PORT # 207 -BYTE # 94 -PORT # 207 -BYTE # 95 -PORT # 207 -BYTE # 96 -PORT # 207 -BYTE # 97 -PORT # 207 -BYTE # 98 -PORT # 207 -BYTE # 99 -PORT # 207 -BYTE # 100 -PORT # 207 -BYTE # 101 -PORT # 207 -BYTE # 102 -PORT # 207 -BYTE # 103 -PORT # 207 -BYTE # 104 -PORT # 207 -BYTE # 105 -PORT # 207 -BYTE # 106 -PORT # 207 -BYTE # 107 -PORT # 207 -BYTE # 108 -PORT # 207 -BYTE # 109 -PORT # 207 -BYTE # 110 -PORT # 207 -BYTE # 111 -PORT # 207 -BYTE # 112 -PORT # 207 -BYTE # 113 -PORT # 207 -BYTE # 114 -PORT # 207 -BYTE # 115 -PORT # 207 -BYTE # 116 -PORT # 207 -BYTE # 117 -PORT # 207 -BYTE # 118 -PORT # 207 -BYTE # 119 -PORT # 207 -BYTE # 120 -PORT # 207 -BYTE # 121 -PORT # 207 -BYTE # 122 -PORT # 207 -BYTE # 123 -PORT # 207 -BYTE # 124 -PORT # 207 -BYTE # 125 -PORT # 207 -BYTE # 126 -PORT # 207 -BYTE # 127 -PORT # 207 -BYTE # 128 -PORT # 207 -BYTE # 129 -PORT # 207 -BYTE # 130 -PORT # 207 -BYTE # 131 -PORT # 207 -BYTE # 132 -PORT # 207 -BYTE # 133 -PORT # 207 -BYTE # 134 -PORT # 207 -BYTE # 135 -PORT # 207 -BYTE # 136 -PORT # 207 -BYTE # 137 -PORT # 207 -BYTE # 138 -PORT # 207 -BYTE # 139 -PORT # 207 -BYTE # 140 -PORT # 207 -BYTE # 141 -PORT # 207 -BYTE # 142 -PORT # 207 -BYTE # 143 -PORT # 207 -BYTE # 144 -PORT # 207 -BYTE # 145 -PORT # 207 -BYTE # 146 -PORT # 207 -BYTE # 147 -PORT # 207 -BYTE # 148 -PORT # 207 -BYTE # 149 -PORT # 207 -BYTE # 150 -PORT # 207 -BYTE # 151 -PORT # 207 -BYTE # 152 -PORT # 207 -BYTE # 153 -PORT # 207 -BYTE # 154 -PORT # 207 -BYTE # 155 -PORT # 207 -BYTE # 156 -PORT # 207 -BYTE # 157 -PORT # 207 -BYTE # 158 -PORT # 207 -BYTE # 159 -PORT # 207 -BYTE # 160 -PORT # 207 -BYTE # 161 -PORT # 207 -BYTE # 162 -PORT # 207 -BYTE # 163 -PORT # 207 -BYTE # 164 -PORT # 207 -BYTE # 165 -PORT # 207 -BYTE # 166 -PORT # 207 -BYTE # 167 -PORT # 207 -BYTE # 168 -PORT # 207 -BYTE # 169 -PORT # 207 -BYTE # 170 -PORT # 207 -BYTE # 171 -PORT # 207 -BYTE # 172 -PORT # 207 -BYTE # 173 -PORT # 207 -BYTE # 174 -PORT # 207 -BYTE # 175 -PORT # 207 -BYTE # 176 -PORT # 207 -BYTE # 177 -PORT # 207 -BYTE # 178 -PORT # 207 -BYTE # 179 -PORT # 207 -BYTE # 180 -PORT # 207 -BYTE # 181 -PORT # 207 -BYTE # 182 -PORT # 207 -BYTE # 183 -PORT # 207 -BYTE # 184 -PORT # 207 -BYTE # 185 -PORT # 207 -BYTE # 186 -PORT # 207 -BYTE # 187 -PORT # 207 -BYTE # 188 -PORT # 207 -BYTE # 189 -PORT # 207 -BYTE # 190 -PORT # 207 -BYTE # 191 -PORT # 207 -BYTE # 192 -PORT # 207 -BYTE # 193 -PORT # 207 -BYTE # 194 -PORT # 207 -BYTE # 195 -PORT # 207 -BYTE # 196 -PORT # 207 -BYTE # 197 -PORT # 207 -BYTE # 198 -PORT # 207 -BYTE # 199 -PORT # 207 -BYTE # 200 -PORT # 207 -BYTE # 201 -PORT # 207 -BYTE # 202 -PORT # 207 -BYTE # 203 -PORT # 207 -BYTE # 204 -PORT # 207 -BYTE # 205 -PORT # 207 -BYTE # 206 -PORT # 207 -BYTE # 207 -PORT # 207 -BYTE # 208 -PORT # 207 -BYTE # 209 -PORT # 207 -BYTE # 210 -PORT # 207 -BYTE # 211 -PORT # 207 -BYTE # 212 -PORT # 207 -BYTE # 213 -PORT # 207 -BYTE # 214 -PORT # 207 -BYTE # 215 -PORT # 207 -BYTE # 216 -PORT # 207 -BYTE # 217 -PORT # 207 -BYTE # 218 -PORT # 207 -BYTE # 219 -PORT # 207 -BYTE # 220 -PORT # 207 -BYTE # 221 -PORT # 207 -BYTE # 222 -PORT # 207 -BYTE # 223 -PORT # 207 -BYTE # 224 -PORT # 207 -BYTE # 225 -PORT # 207 -BYTE # 226 -PORT # 207 -BYTE # 227 -PORT # 207 -BYTE # 228 -PORT # 207 -BYTE # 229 -PORT # 207 -BYTE # 230 -PORT # 207 -BYTE # 231 -PORT # 207 -BYTE # 232 -PORT # 207 -BYTE # 233 -PORT # 207 -BYTE # 234 -PORT # 207 -BYTE # 235 -PORT # 207 -BYTE # 236 -PORT # 207 -BYTE # 237 -PORT # 207 -BYTE # 238 -PORT # 207 -BYTE # 239 -PORT # 207 -BYTE # 240 -PORT # 207 -BYTE # 241 -PORT # 207 -BYTE # 242 -PORT # 207 -BYTE # 243 -PORT # 207 -BYTE # 244 -PORT # 207 -BYTE # 245 -PORT # 207 -BYTE # 246 -PORT # 207 -BYTE # 247 -PORT # 207 -BYTE # 248 -PORT # 207 -BYTE # 249 -PORT # 207 -BYTE # 250 -PORT # 207 -BYTE # 251 -PORT # 207 -BYTE # 252 -PORT # 207 -BYTE # 253 -PORT # 207 -BYTE # 254 -PORT # 207 -BYTE # 255 -PORT # 208 -BYTE # 0 -PORT # 208 -BYTE # 1 -PORT # 208 -BYTE # 2 -PORT # 208 -BYTE # 3 -PORT # 208 -BYTE # 4 -PORT # 208 -BYTE # 5 -PORT # 208 -BYTE # 6 -PORT # 208 -BYTE # 7 -PORT # 208 -BYTE # 8 -PORT # 208 -BYTE # 9 -PORT # 208 -BYTE # 10 -PORT # 208 -BYTE # 11 -PORT # 208 -BYTE # 12 -PORT # 208 -BYTE # 13 -PORT # 208 -BYTE # 14 -PORT # 208 -BYTE # 15 -PORT # 208 -BYTE # 16 -PORT # 208 -BYTE # 17 -PORT # 208 -BYTE # 18 -PORT # 208 -BYTE # 19 -PORT # 208 -BYTE # 20 -PORT # 208 -BYTE # 21 -PORT # 208 -BYTE # 22 -PORT # 208 -BYTE # 23 -PORT # 208 -BYTE # 24 -PORT # 208 -BYTE # 25 -PORT # 208 -BYTE # 26 -PORT # 208 -BYTE # 27 -PORT # 208 -BYTE # 28 -PORT # 208 -BYTE # 29 -PORT # 208 -BYTE # 30 -PORT # 208 -BYTE # 31 -PORT # 208 -BYTE # 32 -PORT # 208 -BYTE # 33 -PORT # 208 -BYTE # 34 -PORT # 208 -BYTE # 35 -PORT # 208 -BYTE # 36 -PORT # 208 -BYTE # 37 -PORT # 208 -BYTE # 38 -PORT # 208 -BYTE # 39 -PORT # 208 -BYTE # 40 -PORT # 208 -BYTE # 41 -PORT # 208 -BYTE # 42 -PORT # 208 -BYTE # 43 -PORT # 208 -BYTE # 44 -PORT # 208 -BYTE # 45 -PORT # 208 -BYTE # 46 -PORT # 208 -BYTE # 47 -PORT # 208 -BYTE # 48 -PORT # 208 -BYTE # 49 -PORT # 208 -BYTE # 50 -PORT # 208 -BYTE # 51 -PORT # 208 -BYTE # 52 -PORT # 208 -BYTE # 53 -PORT # 208 -BYTE # 54 -PORT # 208 -BYTE # 55 -PORT # 208 -BYTE # 56 -PORT # 208 -BYTE # 57 -PORT # 208 -BYTE # 58 -PORT # 208 -BYTE # 59 -PORT # 208 -BYTE # 60 -PORT # 208 -BYTE # 61 -PORT # 208 -BYTE # 62 -PORT # 208 -BYTE # 63 -PORT # 208 -BYTE # 64 -PORT # 208 -BYTE # 65 -PORT # 208 -BYTE # 66 -PORT # 208 -BYTE # 67 -PORT # 208 -BYTE # 68 -PORT # 208 -BYTE # 69 -PORT # 208 -BYTE # 70 -PORT # 208 -BYTE # 71 -PORT # 208 -BYTE # 72 -PORT # 208 -BYTE # 73 -PORT # 208 -BYTE # 74 -PORT # 208 -BYTE # 75 -PORT # 208 -BYTE # 76 -PORT # 208 -BYTE # 77 -PORT # 208 -BYTE # 78 -PORT # 208 -BYTE # 79 -PORT # 208 -BYTE # 80 -PORT # 208 -BYTE # 81 -PORT # 208 -BYTE # 82 -PORT # 208 -BYTE # 83 -PORT # 208 -BYTE # 84 -PORT # 208 -BYTE # 85 -PORT # 208 -BYTE # 86 -PORT # 208 -BYTE # 87 -PORT # 208 -BYTE # 88 -PORT # 208 -BYTE # 89 -PORT # 208 -BYTE # 90 -PORT # 208 -BYTE # 91 -PORT # 208 -BYTE # 92 -PORT # 208 -BYTE # 93 -PORT # 208 -BYTE # 94 -PORT # 208 -BYTE # 95 -PORT # 208 -BYTE # 96 -PORT # 208 -BYTE # 97 -PORT # 208 -BYTE # 98 -PORT # 208 -BYTE # 99 -PORT # 208 -BYTE # 100 -PORT # 208 -BYTE # 101 -PORT # 208 -BYTE # 102 -PORT # 208 -BYTE # 103 -PORT # 208 -BYTE # 104 -PORT # 208 -BYTE # 105 -PORT # 208 -BYTE # 106 -PORT # 208 -BYTE # 107 -PORT # 208 -BYTE # 108 -PORT # 208 -BYTE # 109 -PORT # 208 -BYTE # 110 -PORT # 208 -BYTE # 111 -PORT # 208 -BYTE # 112 -PORT # 208 -BYTE # 113 -PORT # 208 -BYTE # 114 -PORT # 208 -BYTE # 115 -PORT # 208 -BYTE # 116 -PORT # 208 -BYTE # 117 -PORT # 208 -BYTE # 118 -PORT # 208 -BYTE # 119 -PORT # 208 -BYTE # 120 -PORT # 208 -BYTE # 121 -PORT # 208 -BYTE # 122 -PORT # 208 -BYTE # 123 -PORT # 208 -BYTE # 124 -PORT # 208 -BYTE # 125 -PORT # 208 -BYTE # 126 -PORT # 208 -BYTE # 127 -PORT # 208 -BYTE # 128 -PORT # 208 -BYTE # 129 -PORT # 208 -BYTE # 130 -PORT # 208 -BYTE # 131 -PORT # 208 -BYTE # 132 -PORT # 208 -BYTE # 133 -PORT # 208 -BYTE # 134 -PORT # 208 -BYTE # 135 -PORT # 208 -BYTE # 136 -PORT # 208 -BYTE # 137 -PORT # 208 -BYTE # 138 -PORT # 208 -BYTE # 139 -PORT # 208 -BYTE # 140 -PORT # 208 -BYTE # 141 -PORT # 208 -BYTE # 142 -PORT # 208 -BYTE # 143 -PORT # 208 -BYTE # 144 -PORT # 208 -BYTE # 145 -PORT # 208 -BYTE # 146 -PORT # 208 -BYTE # 147 -PORT # 208 -BYTE # 148 -PORT # 208 -BYTE # 149 -PORT # 208 -BYTE # 150 -PORT # 208 -BYTE # 151 -PORT # 208 -BYTE # 152 -PORT # 208 -BYTE # 153 -PORT # 208 -BYTE # 154 -PORT # 208 -BYTE # 155 -PORT # 208 -BYTE # 156 -PORT # 208 -BYTE # 157 -PORT # 208 -BYTE # 158 -PORT # 208 -BYTE # 159 -PORT # 208 -BYTE # 160 -PORT # 208 -BYTE # 161 -PORT # 208 -BYTE # 162 -PORT # 208 -BYTE # 163 -PORT # 208 -BYTE # 164 -PORT # 208 -BYTE # 165 -PORT # 208 -BYTE # 166 -PORT # 208 -BYTE # 167 -PORT # 208 -BYTE # 168 -PORT # 208 -BYTE # 169 -PORT # 208 -BYTE # 170 -PORT # 208 -BYTE # 171 -PORT # 208 -BYTE # 172 -PORT # 208 -BYTE # 173 -PORT # 208 -BYTE # 174 -PORT # 208 -BYTE # 175 -PORT # 208 -BYTE # 176 -PORT # 208 -BYTE # 177 -PORT # 208 -BYTE # 178 -PORT # 208 -BYTE # 179 -PORT # 208 -BYTE # 180 -PORT # 208 -BYTE # 181 -PORT # 208 -BYTE # 182 -PORT # 208 -BYTE # 183 -PORT # 208 -BYTE # 184 -PORT # 208 -BYTE # 185 -PORT # 208 -BYTE # 186 -PORT # 208 -BYTE # 187 -PORT # 208 -BYTE # 188 -PORT # 208 -BYTE # 189 -PORT # 208 -BYTE # 190 -PORT # 208 -BYTE # 191 -PORT # 208 -BYTE # 192 -PORT # 208 -BYTE # 193 -PORT # 208 -BYTE # 194 -PORT # 208 -BYTE # 195 -PORT # 208 -BYTE # 196 -PORT # 208 -BYTE # 197 -PORT # 208 -BYTE # 198 -PORT # 208 -BYTE # 199 -PORT # 208 -BYTE # 200 -PORT # 208 -BYTE # 201 -PORT # 208 -BYTE # 202 -PORT # 208 -BYTE # 203 -PORT # 208 -BYTE # 204 -PORT # 208 -BYTE # 205 -PORT # 208 -BYTE # 206 -PORT # 208 -BYTE # 207 -PORT # 208 -BYTE # 208 -PORT # 208 -BYTE # 209 -PORT # 208 -BYTE # 210 -PORT # 208 -BYTE # 211 -PORT # 208 -BYTE # 212 -PORT # 208 -BYTE # 213 -PORT # 208 -BYTE # 214 -PORT # 208 -BYTE # 215 -PORT # 208 -BYTE # 216 -PORT # 208 -BYTE # 217 -PORT # 208 -BYTE # 218 -PORT # 208 -BYTE # 219 -PORT # 208 -BYTE # 220 -PORT # 208 -BYTE # 221 -PORT # 208 -BYTE # 222 -PORT # 208 -BYTE # 223 -PORT # 208 -BYTE # 224 -PORT # 208 -BYTE # 225 -PORT # 208 -BYTE # 226 -PORT # 208 -BYTE # 227 -PORT # 208 -BYTE # 228 -PORT # 208 -BYTE # 229 -PORT # 208 -BYTE # 230 -PORT # 208 -BYTE # 231 -PORT # 208 -BYTE # 232 -PORT # 208 -BYTE # 233 -PORT # 208 -BYTE # 234 -PORT # 208 -BYTE # 235 -PORT # 208 -BYTE # 236 -PORT # 208 -BYTE # 237 -PORT # 208 -BYTE # 238 -PORT # 208 -BYTE # 239 -PORT # 208 -BYTE # 240 -PORT # 208 -BYTE # 241 -PORT # 208 -BYTE # 242 -PORT # 208 -BYTE # 243 -PORT # 208 -BYTE # 244 -PORT # 208 -BYTE # 245 -PORT # 208 -BYTE # 246 -PORT # 208 -BYTE # 247 -PORT # 208 -BYTE # 248 -PORT # 208 -BYTE # 249 -PORT # 208 -BYTE # 250 -PORT # 208 -BYTE # 251 -PORT # 208 -BYTE # 252 -PORT # 208 -BYTE # 253 -PORT # 208 -BYTE # 254 -PORT # 208 -BYTE # 255 -PORT # 209 -BYTE # 0 -PORT # 209 -BYTE # 1 -PORT # 209 -BYTE # 2 -PORT # 209 -BYTE # 3 -PORT # 209 -BYTE # 4 -PORT # 209 -BYTE # 5 -PORT # 209 -BYTE # 6 -PORT # 209 -BYTE # 7 -PORT # 209 -BYTE # 8 -PORT # 209 -BYTE # 9 -PORT # 209 -BYTE # 10 -PORT # 209 -BYTE # 11 -PORT # 209 -BYTE # 12 -PORT # 209 -BYTE # 13 -PORT # 209 -BYTE # 14 -PORT # 209 -BYTE # 15 -PORT # 209 -BYTE # 16 -PORT # 209 -BYTE # 17 -PORT # 209 -BYTE # 18 -PORT # 209 -BYTE # 19 -PORT # 209 -BYTE # 20 -PORT # 209 -BYTE # 21 -PORT # 209 -BYTE # 22 -PORT # 209 -BYTE # 23 -PORT # 209 -BYTE # 24 -PORT # 209 -BYTE # 25 -PORT # 209 -BYTE # 26 -PORT # 209 -BYTE # 27 -PORT # 209 -BYTE # 28 -PORT # 209 -BYTE # 29 -PORT # 209 -BYTE # 30 -PORT # 209 -BYTE # 31 -PORT # 209 -BYTE # 32 -PORT # 209 -BYTE # 33 -PORT # 209 -BYTE # 34 -PORT # 209 -BYTE # 35 -PORT # 209 -BYTE # 36 -PORT # 209 -BYTE # 37 -PORT # 209 -BYTE # 38 -PORT # 209 -BYTE # 39 -PORT # 209 -BYTE # 40 -PORT # 209 -BYTE # 41 -PORT # 209 -BYTE # 42 -PORT # 209 -BYTE # 43 -PORT # 209 -BYTE # 44 -PORT # 209 -BYTE # 45 -PORT # 209 -BYTE # 46 -PORT # 209 -BYTE # 47 -PORT # 209 -BYTE # 48 -PORT # 209 -BYTE # 49 -PORT # 209 -BYTE # 50 -PORT # 209 -BYTE # 51 -PORT # 209 -BYTE # 52 -PORT # 209 -BYTE # 53 -PORT # 209 -BYTE # 54 -PORT # 209 -BYTE # 55 -PORT # 209 -BYTE # 56 -PORT # 209 -BYTE # 57 -PORT # 209 -BYTE # 58 -PORT # 209 -BYTE # 59 -PORT # 209 -BYTE # 60 -PORT # 209 -BYTE # 61 -PORT # 209 -BYTE # 62 -PORT # 209 -BYTE # 63 -PORT # 209 -BYTE # 64 -PORT # 209 -BYTE # 65 -PORT # 209 -BYTE # 66 -PORT # 209 -BYTE # 67 -PORT # 209 -BYTE # 68 -PORT # 209 -BYTE # 69 -PORT # 209 -BYTE # 70 -PORT # 209 -BYTE # 71 -PORT # 209 -BYTE # 72 -PORT # 209 -BYTE # 73 -PORT # 209 -BYTE # 74 -PORT # 209 -BYTE # 75 -PORT # 209 -BYTE # 76 -PORT # 209 -BYTE # 77 -PORT # 209 -BYTE # 78 -PORT # 209 -BYTE # 79 -PORT # 209 -BYTE # 80 -PORT # 209 -BYTE # 81 -PORT # 209 -BYTE # 82 -PORT # 209 -BYTE # 83 -PORT # 209 -BYTE # 84 -PORT # 209 -BYTE # 85 -PORT # 209 -BYTE # 86 -PORT # 209 -BYTE # 87 -PORT # 209 -BYTE # 88 -PORT # 209 -BYTE # 89 -PORT # 209 -BYTE # 90 -PORT # 209 -BYTE # 91 -PORT # 209 -BYTE # 92 -PORT # 209 -BYTE # 93 -PORT # 209 -BYTE # 94 -PORT # 209 -BYTE # 95 -PORT # 209 -BYTE # 96 -PORT # 209 -BYTE # 97 -PORT # 209 -BYTE # 98 -PORT # 209 -BYTE # 99 -PORT # 209 -BYTE # 100 -PORT # 209 -BYTE # 101 -PORT # 209 -BYTE # 102 -PORT # 209 -BYTE # 103 -PORT # 209 -BYTE # 104 -PORT # 209 -BYTE # 105 -PORT # 209 -BYTE # 106 -PORT # 209 -BYTE # 107 -PORT # 209 -BYTE # 108 -PORT # 209 -BYTE # 109 -PORT # 209 -BYTE # 110 -PORT # 209 -BYTE # 111 -PORT # 209 -BYTE # 112 -PORT # 209 -BYTE # 113 -PORT # 209 -BYTE # 114 -PORT # 209 -BYTE # 115 -PORT # 209 -BYTE # 116 -PORT # 209 -BYTE # 117 -PORT # 209 -BYTE # 118 -PORT # 209 -BYTE # 119 -PORT # 209 -BYTE # 120 -PORT # 209 -BYTE # 121 -PORT # 209 -BYTE # 122 -PORT # 209 -BYTE # 123 -PORT # 209 -BYTE # 124 -PORT # 209 -BYTE # 125 -PORT # 209 -BYTE # 126 -PORT # 209 -BYTE # 127 -PORT # 209 -BYTE # 128 -PORT # 209 -BYTE # 129 -PORT # 209 -BYTE # 130 -PORT # 209 -BYTE # 131 -PORT # 209 -BYTE # 132 -PORT # 209 -BYTE # 133 -PORT # 209 -BYTE # 134 -PORT # 209 -BYTE # 135 -PORT # 209 -BYTE # 136 -PORT # 209 -BYTE # 137 -PORT # 209 -BYTE # 138 -PORT # 209 -BYTE # 139 -PORT # 209 -BYTE # 140 -PORT # 209 -BYTE # 141 -PORT # 209 -BYTE # 142 -PORT # 209 -BYTE # 143 -PORT # 209 -BYTE # 144 -PORT # 209 -BYTE # 145 -PORT # 209 -BYTE # 146 -PORT # 209 -BYTE # 147 -PORT # 209 -BYTE # 148 -PORT # 209 -BYTE # 149 -PORT # 209 -BYTE # 150 -PORT # 209 -BYTE # 151 -PORT # 209 -BYTE # 152 -PORT # 209 -BYTE # 153 -PORT # 209 -BYTE # 154 -PORT # 209 -BYTE # 155 -PORT # 209 -BYTE # 156 -PORT # 209 -BYTE # 157 -PORT # 209 -BYTE # 158 -PORT # 209 -BYTE # 159 -PORT # 209 -BYTE # 160 -PORT # 209 -BYTE # 161 -PORT # 209 -BYTE # 162 -PORT # 209 -BYTE # 163 -PORT # 209 -BYTE # 164 -PORT # 209 -BYTE # 165 -PORT # 209 -BYTE # 166 -PORT # 209 -BYTE # 167 -PORT # 209 -BYTE # 168 -PORT # 209 -BYTE # 169 -PORT # 209 -BYTE # 170 -PORT # 209 -BYTE # 171 -PORT # 209 -BYTE # 172 -PORT # 209 -BYTE # 173 -PORT # 209 -BYTE # 174 -PORT # 209 -BYTE # 175 -PORT # 209 -BYTE # 176 -PORT # 209 -BYTE # 177 -PORT # 209 -BYTE # 178 -PORT # 209 -BYTE # 179 -PORT # 209 -BYTE # 180 -PORT # 209 -BYTE # 181 -PORT # 209 -BYTE # 182 -PORT # 209 -BYTE # 183 -PORT # 209 -BYTE # 184 -PORT # 209 -BYTE # 185 -PORT # 209 -BYTE # 186 -PORT # 209 -BYTE # 187 -PORT # 209 -BYTE # 188 -PORT # 209 -BYTE # 189 -PORT # 209 -BYTE # 190 -PORT # 209 -BYTE # 191 -PORT # 209 -BYTE # 192 -PORT # 209 -BYTE # 193 -PORT # 209 -BYTE # 194 -PORT # 209 -BYTE # 195 -PORT # 209 -BYTE # 196 -PORT # 209 -BYTE # 197 -PORT # 209 -BYTE # 198 -PORT # 209 -BYTE # 199 -PORT # 209 -BYTE # 200 -PORT # 209 -BYTE # 201 -PORT # 209 -BYTE # 202 -PORT # 209 -BYTE # 203 -PORT # 209 -BYTE # 204 -PORT # 209 -BYTE # 205 -PORT # 209 -BYTE # 206 -PORT # 209 -BYTE # 207 -PORT # 209 -BYTE # 208 -PORT # 209 -BYTE # 209 -PORT # 209 -BYTE # 210 -PORT # 209 -BYTE # 211 -PORT # 209 -BYTE # 212 -PORT # 209 -BYTE # 213 -PORT # 209 -BYTE # 214 -PORT # 209 -BYTE # 215 -PORT # 209 -BYTE # 216 -PORT # 209 -BYTE # 217 -PORT # 209 -BYTE # 218 -PORT # 209 -BYTE # 219 -PORT # 209 -BYTE # 220 -PORT # 209 -BYTE # 221 -PORT # 209 -BYTE # 222 -PORT # 209 -BYTE # 223 -PORT # 209 -BYTE # 224 -PORT # 209 -BYTE # 225 -PORT # 209 -BYTE # 226 -PORT # 209 -BYTE # 227 -PORT # 209 -BYTE # 228 -PORT # 209 -BYTE # 229 -PORT # 209 -BYTE # 230 -PORT # 209 -BYTE # 231 -PORT # 209 -BYTE # 232 -PORT # 209 -BYTE # 233 -PORT # 209 -BYTE # 234 -PORT # 209 -BYTE # 235 -PORT # 209 -BYTE # 236 -PORT # 209 -BYTE # 237 -PORT # 209 -BYTE # 238 -PORT # 209 -BYTE # 239 -PORT # 209 -BYTE # 240 -PORT # 209 -BYTE # 241 -PORT # 209 -BYTE # 242 -PORT # 209 -BYTE # 243 -PORT # 209 -BYTE # 244 -PORT # 209 -BYTE # 245 -PORT # 209 -BYTE # 246 -PORT # 209 -BYTE # 247 -PORT # 209 -BYTE # 248 -PORT # 209 -BYTE # 249 -PORT # 209 -BYTE # 250 -PORT # 209 -BYTE # 251 -PORT # 209 -BYTE # 252 -PORT # 209 -BYTE # 253 -PORT # 209 -BYTE # 254 -PORT # 209 -BYTE # 255 -PORT # 210 -BYTE # 0 -PORT # 210 -BYTE # 1 -PORT # 210 -BYTE # 2 -PORT # 210 -BYTE # 3 -PORT # 210 -BYTE # 4 -PORT # 210 -BYTE # 5 -PORT # 210 -BYTE # 6 -PORT # 210 -BYTE # 7 -PORT # 210 -BYTE # 8 -PORT # 210 -BYTE # 9 -PORT # 210 -BYTE # 10 -PORT # 210 -BYTE # 11 -PORT # 210 -BYTE # 12 -PORT # 210 -BYTE # 13 -PORT # 210 -BYTE # 14 -PORT # 210 -BYTE # 15 -PORT # 210 -BYTE # 16 -PORT # 210 -BYTE # 17 -PORT # 210 -BYTE # 18 -PORT # 210 -BYTE # 19 -PORT # 210 -BYTE # 20 -PORT # 210 -BYTE # 21 -PORT # 210 -BYTE # 22 -PORT # 210 -BYTE # 23 -PORT # 210 -BYTE # 24 -PORT # 210 -BYTE # 25 -PORT # 210 -BYTE # 26 -PORT # 210 -BYTE # 27 -PORT # 210 -BYTE # 28 -PORT # 210 -BYTE # 29 -PORT # 210 -BYTE # 30 -PORT # 210 -BYTE # 31 -PORT # 210 -BYTE # 32 -PORT # 210 -BYTE # 33 -PORT # 210 -BYTE # 34 -PORT # 210 -BYTE # 35 -PORT # 210 -BYTE # 36 -PORT # 210 -BYTE # 37 -PORT # 210 -BYTE # 38 -PORT # 210 -BYTE # 39 -PORT # 210 -BYTE # 40 -PORT # 210 -BYTE # 41 -PORT # 210 -BYTE # 42 -PORT # 210 -BYTE # 43 -PORT # 210 -BYTE # 44 -PORT # 210 -BYTE # 45 -PORT # 210 -BYTE # 46 -PORT # 210 -BYTE # 47 -PORT # 210 -BYTE # 48 -PORT # 210 -BYTE # 49 -PORT # 210 -BYTE # 50 -PORT # 210 -BYTE # 51 -PORT # 210 -BYTE # 52 -PORT # 210 -BYTE # 53 -PORT # 210 -BYTE # 54 -PORT # 210 -BYTE # 55 -PORT # 210 -BYTE # 56 -PORT # 210 -BYTE # 57 -PORT # 210 -BYTE # 58 -PORT # 210 -BYTE # 59 -PORT # 210 -BYTE # 60 -PORT # 210 -BYTE # 61 -PORT # 210 -BYTE # 62 -PORT # 210 -BYTE # 63 -PORT # 210 -BYTE # 64 -PORT # 210 -BYTE # 65 -PORT # 210 -BYTE # 66 -PORT # 210 -BYTE # 67 -PORT # 210 -BYTE # 68 -PORT # 210 -BYTE # 69 -PORT # 210 -BYTE # 70 -PORT # 210 -BYTE # 71 -PORT # 210 -BYTE # 72 -PORT # 210 -BYTE # 73 -PORT # 210 -BYTE # 74 -PORT # 210 -BYTE # 75 -PORT # 210 -BYTE # 76 -PORT # 210 -BYTE # 77 -PORT # 210 -BYTE # 78 -PORT # 210 -BYTE # 79 -PORT # 210 -BYTE # 80 -PORT # 210 -BYTE # 81 -PORT # 210 -BYTE # 82 -PORT # 210 -BYTE # 83 -PORT # 210 -BYTE # 84 -PORT # 210 -BYTE # 85 -PORT # 210 -BYTE # 86 -PORT # 210 -BYTE # 87 -PORT # 210 -BYTE # 88 -PORT # 210 -BYTE # 89 -PORT # 210 -BYTE # 90 -PORT # 210 -BYTE # 91 -PORT # 210 -BYTE # 92 -PORT # 210 -BYTE # 93 -PORT # 210 -BYTE # 94 -PORT # 210 -BYTE # 95 -PORT # 210 -BYTE # 96 -PORT # 210 -BYTE # 97 -PORT # 210 -BYTE # 98 -PORT # 210 -BYTE # 99 -PORT # 210 -BYTE # 100 -PORT # 210 -BYTE # 101 -PORT # 210 -BYTE # 102 -PORT # 210 -BYTE # 103 -PORT # 210 -BYTE # 104 -PORT # 210 -BYTE # 105 -PORT # 210 -BYTE # 106 -PORT # 210 -BYTE # 107 -PORT # 210 -BYTE # 108 -PORT # 210 -BYTE # 109 -PORT # 210 -BYTE # 110 -PORT # 210 -BYTE # 111 -PORT # 210 -BYTE # 112 -PORT # 210 -BYTE # 113 -PORT # 210 -BYTE # 114 -PORT # 210 -BYTE # 115 -PORT # 210 -BYTE # 116 -PORT # 210 -BYTE # 117 -PORT # 210 -BYTE # 118 -PORT # 210 -BYTE # 119 -PORT # 210 -BYTE # 120 -PORT # 210 -BYTE # 121 -PORT # 210 -BYTE # 122 -PORT # 210 -BYTE # 123 -PORT # 210 -BYTE # 124 -PORT # 210 -BYTE # 125 -PORT # 210 -BYTE # 126 -PORT # 210 -BYTE # 127 -PORT # 210 -BYTE # 128 -PORT # 210 -BYTE # 129 -PORT # 210 -BYTE # 130 -PORT # 210 -BYTE # 131 -PORT # 210 -BYTE # 132 -PORT # 210 -BYTE # 133 -PORT # 210 -BYTE # 134 -PORT # 210 -BYTE # 135 -PORT # 210 -BYTE # 136 -PORT # 210 -BYTE # 137 -PORT # 210 -BYTE # 138 -PORT # 210 -BYTE # 139 -PORT # 210 -BYTE # 140 -PORT # 210 -BYTE # 141 -PORT # 210 -BYTE # 142 -PORT # 210 -BYTE # 143 -PORT # 210 -BYTE # 144 -PORT # 210 -BYTE # 145 -PORT # 210 -BYTE # 146 -PORT # 210 -BYTE # 147 -PORT # 210 -BYTE # 148 -PORT # 210 -BYTE # 149 -PORT # 210 -BYTE # 150 -PORT # 210 -BYTE # 151 -PORT # 210 -BYTE # 152 -PORT # 210 -BYTE # 153 -PORT # 210 -BYTE # 154 -PORT # 210 -BYTE # 155 -PORT # 210 -BYTE # 156 -PORT # 210 -BYTE # 157 -PORT # 210 -BYTE # 158 -PORT # 210 -BYTE # 159 -PORT # 210 -BYTE # 160 -PORT # 210 -BYTE # 161 -PORT # 210 -BYTE # 162 -PORT # 210 -BYTE # 163 -PORT # 210 -BYTE # 164 -PORT # 210 -BYTE # 165 -PORT # 210 -BYTE # 166 -PORT # 210 -BYTE # 167 -PORT # 210 -BYTE # 168 -PORT # 210 -BYTE # 169 -PORT # 210 -BYTE # 170 -PORT # 210 -BYTE # 171 -PORT # 210 -BYTE # 172 -PORT # 210 -BYTE # 173 -PORT # 210 -BYTE # 174 -PORT # 210 -BYTE # 175 -PORT # 210 -BYTE # 176 -PORT # 210 -BYTE # 177 -PORT # 210 -BYTE # 178 -PORT # 210 -BYTE # 179 -PORT # 210 -BYTE # 180 -PORT # 210 -BYTE # 181 -PORT # 210 -BYTE # 182 -PORT # 210 -BYTE # 183 -PORT # 210 -BYTE # 184 -PORT # 210 -BYTE # 185 -PORT # 210 -BYTE # 186 -PORT # 210 -BYTE # 187 -PORT # 210 -BYTE # 188 -PORT # 210 -BYTE # 189 -PORT # 210 -BYTE # 190 -PORT # 210 -BYTE # 191 -PORT # 210 -BYTE # 192 -PORT # 210 -BYTE # 193 -PORT # 210 -BYTE # 194 -PORT # 210 -BYTE # 195 -PORT # 210 -BYTE # 196 -PORT # 210 -BYTE # 197 -PORT # 210 -BYTE # 198 -PORT # 210 -BYTE # 199 -PORT # 210 -BYTE # 200 -PORT # 210 -BYTE # 201 -PORT # 210 -BYTE # 202 -PORT # 210 -BYTE # 203 -PORT # 210 -BYTE # 204 -PORT # 210 -BYTE # 205 -PORT # 210 -BYTE # 206 -PORT # 210 -BYTE # 207 -PORT # 210 -BYTE # 208 -PORT # 210 -BYTE # 209 -PORT # 210 -BYTE # 210 -PORT # 210 -BYTE # 211 -PORT # 210 -BYTE # 212 -PORT # 210 -BYTE # 213 -PORT # 210 -BYTE # 214 -PORT # 210 -BYTE # 215 -PORT # 210 -BYTE # 216 -PORT # 210 -BYTE # 217 -PORT # 210 -BYTE # 218 -PORT # 210 -BYTE # 219 -PORT # 210 -BYTE # 220 -PORT # 210 -BYTE # 221 -PORT # 210 -BYTE # 222 -PORT # 210 -BYTE # 223 -PORT # 210 -BYTE # 224 -PORT # 210 -BYTE # 225 -PORT # 210 -BYTE # 226 -PORT # 210 -BYTE # 227 -PORT # 210 -BYTE # 228 -PORT # 210 -BYTE # 229 -PORT # 210 -BYTE # 230 -PORT # 210 -BYTE # 231 -PORT # 210 -BYTE # 232 -PORT # 210 -BYTE # 233 -PORT # 210 -BYTE # 234 -PORT # 210 -BYTE # 235 -PORT # 210 -BYTE # 236 -PORT # 210 -BYTE # 237 -PORT # 210 -BYTE # 238 -PORT # 210 -BYTE # 239 -PORT # 210 -BYTE # 240 -PORT # 210 -BYTE # 241 -PORT # 210 -BYTE # 242 -PORT # 210 -BYTE # 243 -PORT # 210 -BYTE # 244 -PORT # 210 -BYTE # 245 -PORT # 210 -BYTE # 246 -PORT # 210 -BYTE # 247 -PORT # 210 -BYTE # 248 -PORT # 210 -BYTE # 249 -PORT # 210 -BYTE # 250 -PORT # 210 -BYTE # 251 -PORT # 210 -BYTE # 252 -PORT # 210 -BYTE # 253 -PORT # 210 -BYTE # 254 -PORT # 210 -BYTE # 255 -PORT # 211 -BYTE # 0 -PORT # 211 -BYTE # 1 -PORT # 211 -BYTE # 2 -PORT # 211 -BYTE # 3 -PORT # 211 -BYTE # 4 -PORT # 211 -BYTE # 5 -PORT # 211 -BYTE # 6 -PORT # 211 -BYTE # 7 -PORT # 211 -BYTE # 8 -PORT # 211 -BYTE # 9 -PORT # 211 -BYTE # 10 -PORT # 211 -BYTE # 11 -PORT # 211 -BYTE # 12 -PORT # 211 -BYTE # 13 -PORT # 211 -BYTE # 14 -PORT # 211 -BYTE # 15 -PORT # 211 -BYTE # 16 -PORT # 211 -BYTE # 17 -PORT # 211 -BYTE # 18 -PORT # 211 -BYTE # 19 -PORT # 211 -BYTE # 20 -PORT # 211 -BYTE # 21 -PORT # 211 -BYTE # 22 -PORT # 211 -BYTE # 23 -PORT # 211 -BYTE # 24 -PORT # 211 -BYTE # 25 -PORT # 211 -BYTE # 26 -PORT # 211 -BYTE # 27 -PORT # 211 -BYTE # 28 -PORT # 211 -BYTE # 29 -PORT # 211 -BYTE # 30 -PORT # 211 -BYTE # 31 -PORT # 211 -BYTE # 32 -PORT # 211 -BYTE # 33 -PORT # 211 -BYTE # 34 -PORT # 211 -BYTE # 35 -PORT # 211 -BYTE # 36 -PORT # 211 -BYTE # 37 -PORT # 211 -BYTE # 38 -PORT # 211 -BYTE # 39 -PORT # 211 -BYTE # 40 -PORT # 211 -BYTE # 41 -PORT # 211 -BYTE # 42 -PORT # 211 -BYTE # 43 -PORT # 211 -BYTE # 44 -PORT # 211 -BYTE # 45 -PORT # 211 -BYTE # 46 -PORT # 211 -BYTE # 47 -PORT # 211 -BYTE # 48 -PORT # 211 -BYTE # 49 -PORT # 211 -BYTE # 50 -PORT # 211 -BYTE # 51 -PORT # 211 -BYTE # 52 -PORT # 211 -BYTE # 53 -PORT # 211 -BYTE # 54 -PORT # 211 -BYTE # 55 -PORT # 211 -BYTE # 56 -PORT # 211 -BYTE # 57 -PORT # 211 -BYTE # 58 -PORT # 211 -BYTE # 59 -PORT # 211 -BYTE # 60 -PORT # 211 -BYTE # 61 -PORT # 211 -BYTE # 62 -PORT # 211 -BYTE # 63 -PORT # 211 -BYTE # 64 -PORT # 211 -BYTE # 65 -PORT # 211 -BYTE # 66 -PORT # 211 -BYTE # 67 -PORT # 211 -BYTE # 68 -PORT # 211 -BYTE # 69 -PORT # 211 -BYTE # 70 -PORT # 211 -BYTE # 71 -PORT # 211 -BYTE # 72 -PORT # 211 -BYTE # 73 -PORT # 211 -BYTE # 74 -PORT # 211 -BYTE # 75 -PORT # 211 -BYTE # 76 -PORT # 211 -BYTE # 77 -PORT # 211 -BYTE # 78 -PORT # 211 -BYTE # 79 -PORT # 211 -BYTE # 80 -PORT # 211 -BYTE # 81 -PORT # 211 -BYTE # 82 -PORT # 211 -BYTE # 83 -PORT # 211 -BYTE # 84 -PORT # 211 -BYTE # 85 -PORT # 211 -BYTE # 86 -PORT # 211 -BYTE # 87 -PORT # 211 -BYTE # 88 -PORT # 211 -BYTE # 89 -PORT # 211 -BYTE # 90 -PORT # 211 -BYTE # 91 -PORT # 211 -BYTE # 92 -PORT # 211 -BYTE # 93 -PORT # 211 -BYTE # 94 -PORT # 211 -BYTE # 95 -PORT # 211 -BYTE # 96 -PORT # 211 -BYTE # 97 -PORT # 211 -BYTE # 98 -PORT # 211 -BYTE # 99 -PORT # 211 -BYTE # 100 -PORT # 211 -BYTE # 101 -PORT # 211 -BYTE # 102 -PORT # 211 -BYTE # 103 -PORT # 211 -BYTE # 104 -PORT # 211 -BYTE # 105 -PORT # 211 -BYTE # 106 -PORT # 211 -BYTE # 107 -PORT # 211 -BYTE # 108 -PORT # 211 -BYTE # 109 -PORT # 211 -BYTE # 110 -PORT # 211 -BYTE # 111 -PORT # 211 -BYTE # 112 -PORT # 211 -BYTE # 113 -PORT # 211 -BYTE # 114 -PORT # 211 -BYTE # 115 -PORT # 211 -BYTE # 116 -PORT # 211 -BYTE # 117 -PORT # 211 -BYTE # 118 -PORT # 211 -BYTE # 119 -PORT # 211 -BYTE # 120 -PORT # 211 -BYTE # 121 -PORT # 211 -BYTE # 122 -PORT # 211 -BYTE # 123 -PORT # 211 -BYTE # 124 -PORT # 211 -BYTE # 125 -PORT # 211 -BYTE # 126 -PORT # 211 -BYTE # 127 -PORT # 211 -BYTE # 128 -PORT # 211 -BYTE # 129 -PORT # 211 -BYTE # 130 -PORT # 211 -BYTE # 131 -PORT # 211 -BYTE # 132 -PORT # 211 -BYTE # 133 -PORT # 211 -BYTE # 134 -PORT # 211 -BYTE # 135 -PORT # 211 -BYTE # 136 -PORT # 211 -BYTE # 137 -PORT # 211 -BYTE # 138 -PORT # 211 -BYTE # 139 -PORT # 211 -BYTE # 140 -PORT # 211 -BYTE # 141 -PORT # 211 -BYTE # 142 -PORT # 211 -BYTE # 143 -PORT # 211 -BYTE # 144 -PORT # 211 -BYTE # 145 -PORT # 211 -BYTE # 146 -PORT # 211 -BYTE # 147 -PORT # 211 -BYTE # 148 -PORT # 211 -BYTE # 149 -PORT # 211 -BYTE # 150 -PORT # 211 -BYTE # 151 -PORT # 211 -BYTE # 152 -PORT # 211 -BYTE # 153 -PORT # 211 -BYTE # 154 -PORT # 211 -BYTE # 155 -PORT # 211 -BYTE # 156 -PORT # 211 -BYTE # 157 -PORT # 211 -BYTE # 158 -PORT # 211 -BYTE # 159 -PORT # 211 -BYTE # 160 -PORT # 211 -BYTE # 161 -PORT # 211 -BYTE # 162 -PORT # 211 -BYTE # 163 -PORT # 211 -BYTE # 164 -PORT # 211 -BYTE # 165 -PORT # 211 -BYTE # 166 -PORT # 211 -BYTE # 167 -PORT # 211 -BYTE # 168 -PORT # 211 -BYTE # 169 -PORT # 211 -BYTE # 170 -PORT # 211 -BYTE # 171 -PORT # 211 -BYTE # 172 -PORT # 211 -BYTE # 173 -PORT # 211 -BYTE # 174 -PORT # 211 -BYTE # 175 -PORT # 211 -BYTE # 176 -PORT # 211 -BYTE # 177 -PORT # 211 -BYTE # 178 -PORT # 211 -BYTE # 179 -PORT # 211 -BYTE # 180 -PORT # 211 -BYTE # 181 -PORT # 211 -BYTE # 182 -PORT # 211 -BYTE # 183 -PORT # 211 -BYTE # 184 -PORT # 211 -BYTE # 185 -PORT # 211 -BYTE # 186 -PORT # 211 -BYTE # 187 -PORT # 211 -BYTE # 188 -PORT # 211 -BYTE # 189 -PORT # 211 -BYTE # 190 -PORT # 211 -BYTE # 191 -PORT # 211 -BYTE # 192 -PORT # 211 -BYTE # 193 -PORT # 211 -BYTE # 194 -PORT # 211 -BYTE # 195 -PORT # 211 -BYTE # 196 -PORT # 211 -BYTE # 197 -PORT # 211 -BYTE # 198 -PORT # 211 -BYTE # 199 -PORT # 211 -BYTE # 200 -PORT # 211 -BYTE # 201 -PORT # 211 -BYTE # 202 -PORT # 211 -BYTE # 203 -PORT # 211 -BYTE # 204 -PORT # 211 -BYTE # 205 -PORT # 211 -BYTE # 206 -PORT # 211 -BYTE # 207 -PORT # 211 -BYTE # 208 -PORT # 211 -BYTE # 209 -PORT # 211 -BYTE # 210 -PORT # 211 -BYTE # 211 -PORT # 211 -BYTE # 212 -PORT # 211 -BYTE # 213 -PORT # 211 -BYTE # 214 -PORT # 211 -BYTE # 215 -PORT # 211 -BYTE # 216 -PORT # 211 -BYTE # 217 -PORT # 211 -BYTE # 218 -PORT # 211 -BYTE # 219 -PORT # 211 -BYTE # 220 -PORT # 211 -BYTE # 221 -PORT # 211 -BYTE # 222 -PORT # 211 -BYTE # 223 -PORT # 211 -BYTE # 224 -PORT # 211 -BYTE # 225 -PORT # 211 -BYTE # 226 -PORT # 211 -BYTE # 227 -PORT # 211 -BYTE # 228 -PORT # 211 -BYTE # 229 -PORT # 211 -BYTE # 230 -PORT # 211 -BYTE # 231 -PORT # 211 -BYTE # 232 -PORT # 211 -BYTE # 233 -PORT # 211 -BYTE # 234 -PORT # 211 -BYTE # 235 -PORT # 211 -BYTE # 236 -PORT # 211 -BYTE # 237 -PORT # 211 -BYTE # 238 -PORT # 211 -BYTE # 239 -PORT # 211 -BYTE # 240 -PORT # 211 -BYTE # 241 -PORT # 211 -BYTE # 242 -PORT # 211 -BYTE # 243 -PORT # 211 -BYTE # 244 -PORT # 211 -BYTE # 245 -PORT # 211 -BYTE # 246 -PORT # 211 -BYTE # 247 -PORT # 211 -BYTE # 248 -PORT # 211 -BYTE # 249 -PORT # 211 -BYTE # 250 -PORT # 211 -BYTE # 251 -PORT # 211 -BYTE # 252 -PORT # 211 -BYTE # 253 -PORT # 211 -BYTE # 254 -PORT # 211 -BYTE # 255 -PORT # 212 -BYTE # 0 -PORT # 212 -BYTE # 1 -PORT # 212 -BYTE # 2 -PORT # 212 -BYTE # 3 -PORT # 212 -BYTE # 4 -PORT # 212 -BYTE # 5 -PORT # 212 -BYTE # 6 -PORT # 212 -BYTE # 7 -PORT # 212 -BYTE # 8 -PORT # 212 -BYTE # 9 -PORT # 212 -BYTE # 10 -PORT # 212 -BYTE # 11 -PORT # 212 -BYTE # 12 -PORT # 212 -BYTE # 13 -PORT # 212 -BYTE # 14 -PORT # 212 -BYTE # 15 -PORT # 212 -BYTE # 16 -PORT # 212 -BYTE # 17 -PORT # 212 -BYTE # 18 -PORT # 212 -BYTE # 19 -PORT # 212 -BYTE # 20 -PORT # 212 -BYTE # 21 -PORT # 212 -BYTE # 22 -PORT # 212 -BYTE # 23 -PORT # 212 -BYTE # 24 -PORT # 212 -BYTE # 25 -PORT # 212 -BYTE # 26 -PORT # 212 -BYTE # 27 -PORT # 212 -BYTE # 28 -PORT # 212 -BYTE # 29 -PORT # 212 -BYTE # 30 -PORT # 212 -BYTE # 31 -PORT # 212 -BYTE # 32 -PORT # 212 -BYTE # 33 -PORT # 212 -BYTE # 34 -PORT # 212 -BYTE # 35 -PORT # 212 -BYTE # 36 -PORT # 212 -BYTE # 37 -PORT # 212 -BYTE # 38 -PORT # 212 -BYTE # 39 -PORT # 212 -BYTE # 40 -PORT # 212 -BYTE # 41 -PORT # 212 -BYTE # 42 -PORT # 212 -BYTE # 43 -PORT # 212 -BYTE # 44 -PORT # 212 -BYTE # 45 -PORT # 212 -BYTE # 46 -PORT # 212 -BYTE # 47 -PORT # 212 -BYTE # 48 -PORT # 212 -BYTE # 49 -PORT # 212 -BYTE # 50 -PORT # 212 -BYTE # 51 -PORT # 212 -BYTE # 52 -PORT # 212 -BYTE # 53 -PORT # 212 -BYTE # 54 -PORT # 212 -BYTE # 55 -PORT # 212 -BYTE # 56 -PORT # 212 -BYTE # 57 -PORT # 212 -BYTE # 58 -PORT # 212 -BYTE # 59 -PORT # 212 -BYTE # 60 -PORT # 212 -BYTE # 61 -PORT # 212 -BYTE # 62 -PORT # 212 -BYTE # 63 -PORT # 212 -BYTE # 64 -PORT # 212 -BYTE # 65 -PORT # 212 -BYTE # 66 -PORT # 212 -BYTE # 67 -PORT # 212 -BYTE # 68 -PORT # 212 -BYTE # 69 -PORT # 212 -BYTE # 70 -PORT # 212 -BYTE # 71 -PORT # 212 -BYTE # 72 -PORT # 212 -BYTE # 73 -PORT # 212 -BYTE # 74 -PORT # 212 -BYTE # 75 -PORT # 212 -BYTE # 76 -PORT # 212 -BYTE # 77 -PORT # 212 -BYTE # 78 -PORT # 212 -BYTE # 79 -PORT # 212 -BYTE # 80 -PORT # 212 -BYTE # 81 -PORT # 212 -BYTE # 82 -PORT # 212 -BYTE # 83 -PORT # 212 -BYTE # 84 -PORT # 212 -BYTE # 85 -PORT # 212 -BYTE # 86 -PORT # 212 -BYTE # 87 -PORT # 212 -BYTE # 88 -PORT # 212 -BYTE # 89 -PORT # 212 -BYTE # 90 -PORT # 212 -BYTE # 91 -PORT # 212 -BYTE # 92 -PORT # 212 -BYTE # 93 -PORT # 212 -BYTE # 94 -PORT # 212 -BYTE # 95 -PORT # 212 -BYTE # 96 -PORT # 212 -BYTE # 97 -PORT # 212 -BYTE # 98 -PORT # 212 -BYTE # 99 -PORT # 212 -BYTE # 100 -PORT # 212 -BYTE # 101 -PORT # 212 -BYTE # 102 -PORT # 212 -BYTE # 103 -PORT # 212 -BYTE # 104 -PORT # 212 -BYTE # 105 -PORT # 212 -BYTE # 106 -PORT # 212 -BYTE # 107 -PORT # 212 -BYTE # 108 -PORT # 212 -BYTE # 109 -PORT # 212 -BYTE # 110 -PORT # 212 -BYTE # 111 -PORT # 212 -BYTE # 112 -PORT # 212 -BYTE # 113 -PORT # 212 -BYTE # 114 -PORT # 212 -BYTE # 115 -PORT # 212 -BYTE # 116 -PORT # 212 -BYTE # 117 -PORT # 212 -BYTE # 118 -PORT # 212 -BYTE # 119 -PORT # 212 -BYTE # 120 -PORT # 212 -BYTE # 121 -PORT # 212 -BYTE # 122 -PORT # 212 -BYTE # 123 -PORT # 212 -BYTE # 124 -PORT # 212 -BYTE # 125 -PORT # 212 -BYTE # 126 -PORT # 212 -BYTE # 127 -PORT # 212 -BYTE # 128 -PORT # 212 -BYTE # 129 -PORT # 212 -BYTE # 130 -PORT # 212 -BYTE # 131 -PORT # 212 -BYTE # 132 -PORT # 212 -BYTE # 133 -PORT # 212 -BYTE # 134 -PORT # 212 -BYTE # 135 -PORT # 212 -BYTE # 136 -PORT # 212 -BYTE # 137 -PORT # 212 -BYTE # 138 -PORT # 212 -BYTE # 139 -PORT # 212 -BYTE # 140 -PORT # 212 -BYTE # 141 -PORT # 212 -BYTE # 142 -PORT # 212 -BYTE # 143 -PORT # 212 -BYTE # 144 -PORT # 212 -BYTE # 145 -PORT # 212 -BYTE # 146 -PORT # 212 -BYTE # 147 -PORT # 212 -BYTE # 148 -PORT # 212 -BYTE # 149 -PORT # 212 -BYTE # 150 -PORT # 212 -BYTE # 151 -PORT # 212 -BYTE # 152 -PORT # 212 -BYTE # 153 -PORT # 212 -BYTE # 154 -PORT # 212 -BYTE # 155 -PORT # 212 -BYTE # 156 -PORT # 212 -BYTE # 157 -PORT # 212 -BYTE # 158 -PORT # 212 -BYTE # 159 -PORT # 212 -BYTE # 160 -PORT # 212 -BYTE # 161 -PORT # 212 -BYTE # 162 -PORT # 212 -BYTE # 163 -PORT # 212 -BYTE # 164 -PORT # 212 -BYTE # 165 -PORT # 212 -BYTE # 166 -PORT # 212 -BYTE # 167 -PORT # 212 -BYTE # 168 -PORT # 212 -BYTE # 169 -PORT # 212 -BYTE # 170 -PORT # 212 -BYTE # 171 -PORT # 212 -BYTE # 172 -PORT # 212 -BYTE # 173 -PORT # 212 -BYTE # 174 -PORT # 212 -BYTE # 175 -PORT # 212 -BYTE # 176 -PORT # 212 -BYTE # 177 -PORT # 212 -BYTE # 178 -PORT # 212 -BYTE # 179 -PORT # 212 -BYTE # 180 -PORT # 212 -BYTE # 181 -PORT # 212 -BYTE # 182 -PORT # 212 -BYTE # 183 -PORT # 212 -BYTE # 184 -PORT # 212 -BYTE # 185 -PORT # 212 -BYTE # 186 -PORT # 212 -BYTE # 187 -PORT # 212 -BYTE # 188 -PORT # 212 -BYTE # 189 -PORT # 212 -BYTE # 190 -PORT # 212 -BYTE # 191 -PORT # 212 -BYTE # 192 -PORT # 212 -BYTE # 193 -PORT # 212 -BYTE # 194 -PORT # 212 -BYTE # 195 -PORT # 212 -BYTE # 196 -PORT # 212 -BYTE # 197 -PORT # 212 -BYTE # 198 -PORT # 212 -BYTE # 199 -PORT # 212 -BYTE # 200 -PORT # 212 -BYTE # 201 -PORT # 212 -BYTE # 202 -PORT # 212 -BYTE # 203 -PORT # 212 -BYTE # 204 -PORT # 212 -BYTE # 205 -PORT # 212 -BYTE # 206 -PORT # 212 -BYTE # 207 -PORT # 212 -BYTE # 208 -PORT # 212 -BYTE # 209 -PORT # 212 -BYTE # 210 -PORT # 212 -BYTE # 211 -PORT # 212 -BYTE # 212 -PORT # 212 -BYTE # 213 -PORT # 212 -BYTE # 214 -PORT # 212 -BYTE # 215 -PORT # 212 -BYTE # 216 -PORT # 212 -BYTE # 217 -PORT # 212 -BYTE # 218 -PORT # 212 -BYTE # 219 -PORT # 212 -BYTE # 220 -PORT # 212 -BYTE # 221 -PORT # 212 -BYTE # 222 -PORT # 212 -BYTE # 223 -PORT # 212 -BYTE # 224 -PORT # 212 -BYTE # 225 -PORT # 212 -BYTE # 226 -PORT # 212 -BYTE # 227 -PORT # 212 -BYTE # 228 -PORT # 212 -BYTE # 229 -PORT # 212 -BYTE # 230 -PORT # 212 -BYTE # 231 -PORT # 212 -BYTE # 232 -PORT # 212 -BYTE # 233 -PORT # 212 -BYTE # 234 -PORT # 212 -BYTE # 235 -PORT # 212 -BYTE # 236 -PORT # 212 -BYTE # 237 -PORT # 212 -BYTE # 238 -PORT # 212 -BYTE # 239 -PORT # 212 -BYTE # 240 -PORT # 212 -BYTE # 241 -PORT # 212 -BYTE # 242 -PORT # 212 -BYTE # 243 -PORT # 212 -BYTE # 244 -PORT # 212 -BYTE # 245 -PORT # 212 -BYTE # 246 -PORT # 212 -BYTE # 247 -PORT # 212 -BYTE # 248 -PORT # 212 -BYTE # 249 -PORT # 212 -BYTE # 250 -PORT # 212 -BYTE # 251 -PORT # 212 -BYTE # 252 -PORT # 212 -BYTE # 253 -PORT # 212 -BYTE # 254 -PORT # 212 -BYTE # 255 -PORT # 213 -BYTE # 0 -PORT # 213 -BYTE # 1 -PORT # 213 -BYTE # 2 -PORT # 213 -BYTE # 3 -PORT # 213 -BYTE # 4 -PORT # 213 -BYTE # 5 -PORT # 213 -BYTE # 6 -PORT # 213 -BYTE # 7 -PORT # 213 -BYTE # 8 -PORT # 213 -BYTE # 9 -PORT # 213 -BYTE # 10 -PORT # 213 -BYTE # 11 -PORT # 213 -BYTE # 12 -PORT # 213 -BYTE # 13 -PORT # 213 -BYTE # 14 -PORT # 213 -BYTE # 15 -PORT # 213 -BYTE # 16 -PORT # 213 -BYTE # 17 -PORT # 213 -BYTE # 18 -PORT # 213 -BYTE # 19 -PORT # 213 -BYTE # 20 -PORT # 213 -BYTE # 21 -PORT # 213 -BYTE # 22 -PORT # 213 -BYTE # 23 -PORT # 213 -BYTE # 24 -PORT # 213 -BYTE # 25 -PORT # 213 -BYTE # 26 -PORT # 213 -BYTE # 27 -PORT # 213 -BYTE # 28 -PORT # 213 -BYTE # 29 -PORT # 213 -BYTE # 30 -PORT # 213 -BYTE # 31 -PORT # 213 -BYTE # 32 -PORT # 213 -BYTE # 33 -PORT # 213 -BYTE # 34 -PORT # 213 -BYTE # 35 -PORT # 213 -BYTE # 36 -PORT # 213 -BYTE # 37 -PORT # 213 -BYTE # 38 -PORT # 213 -BYTE # 39 -PORT # 213 -BYTE # 40 -PORT # 213 -BYTE # 41 -PORT # 213 -BYTE # 42 -PORT # 213 -BYTE # 43 -PORT # 213 -BYTE # 44 -PORT # 213 -BYTE # 45 -PORT # 213 -BYTE # 46 -PORT # 213 -BYTE # 47 -PORT # 213 -BYTE # 48 -PORT # 213 -BYTE # 49 -PORT # 213 -BYTE # 50 -PORT # 213 -BYTE # 51 -PORT # 213 -BYTE # 52 -PORT # 213 -BYTE # 53 -PORT # 213 -BYTE # 54 -PORT # 213 -BYTE # 55 -PORT # 213 -BYTE # 56 -PORT # 213 -BYTE # 57 -PORT # 213 -BYTE # 58 -PORT # 213 -BYTE # 59 -PORT # 213 -BYTE # 60 -PORT # 213 -BYTE # 61 -PORT # 213 -BYTE # 62 -PORT # 213 -BYTE # 63 -PORT # 213 -BYTE # 64 -PORT # 213 -BYTE # 65 -PORT # 213 -BYTE # 66 -PORT # 213 -BYTE # 67 -PORT # 213 -BYTE # 68 -PORT # 213 -BYTE # 69 -PORT # 213 -BYTE # 70 -PORT # 213 -BYTE # 71 -PORT # 213 -BYTE # 72 -PORT # 213 -BYTE # 73 -PORT # 213 -BYTE # 74 -PORT # 213 -BYTE # 75 -PORT # 213 -BYTE # 76 -PORT # 213 -BYTE # 77 -PORT # 213 -BYTE # 78 -PORT # 213 -BYTE # 79 -PORT # 213 -BYTE # 80 -PORT # 213 -BYTE # 81 -PORT # 213 -BYTE # 82 -PORT # 213 -BYTE # 83 -PORT # 213 -BYTE # 84 -PORT # 213 -BYTE # 85 -PORT # 213 -BYTE # 86 -PORT # 213 -BYTE # 87 -PORT # 213 -BYTE # 88 -PORT # 213 -BYTE # 89 -PORT # 213 -BYTE # 90 -PORT # 213 -BYTE # 91 -PORT # 213 -BYTE # 92 -PORT # 213 -BYTE # 93 -PORT # 213 -BYTE # 94 -PORT # 213 -BYTE # 95 -PORT # 213 -BYTE # 96 -PORT # 213 -BYTE # 97 -PORT # 213 -BYTE # 98 -PORT # 213 -BYTE # 99 -PORT # 213 -BYTE # 100 -PORT # 213 -BYTE # 101 -PORT # 213 -BYTE # 102 -PORT # 213 -BYTE # 103 -PORT # 213 -BYTE # 104 -PORT # 213 -BYTE # 105 -PORT # 213 -BYTE # 106 -PORT # 213 -BYTE # 107 -PORT # 213 -BYTE # 108 -PORT # 213 -BYTE # 109 -PORT # 213 -BYTE # 110 -PORT # 213 -BYTE # 111 -PORT # 213 -BYTE # 112 -PORT # 213 -BYTE # 113 -PORT # 213 -BYTE # 114 -PORT # 213 -BYTE # 115 -PORT # 213 -BYTE # 116 -PORT # 213 -BYTE # 117 -PORT # 213 -BYTE # 118 -PORT # 213 -BYTE # 119 -PORT # 213 -BYTE # 120 -PORT # 213 -BYTE # 121 -PORT # 213 -BYTE # 122 -PORT # 213 -BYTE # 123 -PORT # 213 -BYTE # 124 -PORT # 213 -BYTE # 125 -PORT # 213 -BYTE # 126 -PORT # 213 -BYTE # 127 -PORT # 213 -BYTE # 128 -PORT # 213 -BYTE # 129 -PORT # 213 -BYTE # 130 -PORT # 213 -BYTE # 131 -PORT # 213 -BYTE # 132 -PORT # 213 -BYTE # 133 -PORT # 213 -BYTE # 134 -PORT # 213 -BYTE # 135 -PORT # 213 -BYTE # 136 -PORT # 213 -BYTE # 137 -PORT # 213 -BYTE # 138 -PORT # 213 -BYTE # 139 -PORT # 213 -BYTE # 140 -PORT # 213 -BYTE # 141 -PORT # 213 -BYTE # 142 -PORT # 213 -BYTE # 143 -PORT # 213 -BYTE # 144 -PORT # 213 -BYTE # 145 -PORT # 213 -BYTE # 146 -PORT # 213 -BYTE # 147 -PORT # 213 -BYTE # 148 -PORT # 213 -BYTE # 149 -PORT # 213 -BYTE # 150 -PORT # 213 -BYTE # 151 -PORT # 213 -BYTE # 152 -PORT # 213 -BYTE # 153 -PORT # 213 -BYTE # 154 -PORT # 213 -BYTE # 155 -PORT # 213 -BYTE # 156 -PORT # 213 -BYTE # 157 -PORT # 213 -BYTE # 158 -PORT # 213 -BYTE # 159 -PORT # 213 -BYTE # 160 -PORT # 213 -BYTE # 161 -PORT # 213 -BYTE # 162 -PORT # 213 -BYTE # 163 -PORT # 213 -BYTE # 164 -PORT # 213 -BYTE # 165 -PORT # 213 -BYTE # 166 -PORT # 213 -BYTE # 167 -PORT # 213 -BYTE # 168 -PORT # 213 -BYTE # 169 -PORT # 213 -BYTE # 170 -PORT # 213 -BYTE # 171 -PORT # 213 -BYTE # 172 -PORT # 213 -BYTE # 173 -PORT # 213 -BYTE # 174 -PORT # 213 -BYTE # 175 -PORT # 213 -BYTE # 176 -PORT # 213 -BYTE # 177 -PORT # 213 -BYTE # 178 -PORT # 213 -BYTE # 179 -PORT # 213 -BYTE # 180 -PORT # 213 -BYTE # 181 -PORT # 213 -BYTE # 182 -PORT # 213 -BYTE # 183 -PORT # 213 -BYTE # 184 -PORT # 213 -BYTE # 185 -PORT # 213 -BYTE # 186 -PORT # 213 -BYTE # 187 -PORT # 213 -BYTE # 188 -PORT # 213 -BYTE # 189 -PORT # 213 -BYTE # 190 -PORT # 213 -BYTE # 191 -PORT # 213 -BYTE # 192 -PORT # 213 -BYTE # 193 -PORT # 213 -BYTE # 194 -PORT # 213 -BYTE # 195 -PORT # 213 -BYTE # 196 -PORT # 213 -BYTE # 197 -PORT # 213 -BYTE # 198 -PORT # 213 -BYTE # 199 -PORT # 213 -BYTE # 200 -PORT # 213 -BYTE # 201 -PORT # 213 -BYTE # 202 -PORT # 213 -BYTE # 203 -PORT # 213 -BYTE # 204 -PORT # 213 -BYTE # 205 -PORT # 213 -BYTE # 206 -PORT # 213 -BYTE # 207 -PORT # 213 -BYTE # 208 -PORT # 213 -BYTE # 209 -PORT # 213 -BYTE # 210 -PORT # 213 -BYTE # 211 -PORT # 213 -BYTE # 212 -PORT # 213 -BYTE # 213 -PORT # 213 -BYTE # 214 -PORT # 213 -BYTE # 215 -PORT # 213 -BYTE # 216 -PORT # 213 -BYTE # 217 -PORT # 213 -BYTE # 218 -PORT # 213 -BYTE # 219 -PORT # 213 -BYTE # 220 -PORT # 213 -BYTE # 221 -PORT # 213 -BYTE # 222 -PORT # 213 -BYTE # 223 -PORT # 213 -BYTE # 224 -PORT # 213 -BYTE # 225 -PORT # 213 -BYTE # 226 -PORT # 213 -BYTE # 227 -PORT # 213 -BYTE # 228 -PORT # 213 -BYTE # 229 -PORT # 213 -BYTE # 230 -PORT # 213 -BYTE # 231 -PORT # 213 -BYTE # 232 -PORT # 213 -BYTE # 233 -PORT # 213 -BYTE # 234 -PORT # 213 -BYTE # 235 -PORT # 213 -BYTE # 236 -PORT # 213 -BYTE # 237 -PORT # 213 -BYTE # 238 -PORT # 213 -BYTE # 239 -PORT # 213 -BYTE # 240 -PORT # 213 -BYTE # 241 -PORT # 213 -BYTE # 242 -PORT # 213 -BYTE # 243 -PORT # 213 -BYTE # 244 -PORT # 213 -BYTE # 245 -PORT # 213 -BYTE # 246 -PORT # 213 -BYTE # 247 -PORT # 213 -BYTE # 248 -PORT # 213 -BYTE # 249 -PORT # 213 -BYTE # 250 -PORT # 213 -BYTE # 251 -PORT # 213 -BYTE # 252 -PORT # 213 -BYTE # 253 -PORT # 213 -BYTE # 254 -PORT # 213 -BYTE # 255 -PORT # 214 -BYTE # 0 -PORT # 214 -BYTE # 1 -PORT # 214 -BYTE # 2 -PORT # 214 -BYTE # 3 -PORT # 214 -BYTE # 4 -PORT # 214 -BYTE # 5 -PORT # 214 -BYTE # 6 -PORT # 214 -BYTE # 7 -PORT # 214 -BYTE # 8 -PORT # 214 -BYTE # 9 -PORT # 214 -BYTE # 10 -PORT # 214 -BYTE # 11 -PORT # 214 -BYTE # 12 -PORT # 214 -BYTE # 13 -PORT # 214 -BYTE # 14 -PORT # 214 -BYTE # 15 -PORT # 214 -BYTE # 16 -PORT # 214 -BYTE # 17 -PORT # 214 -BYTE # 18 -PORT # 214 -BYTE # 19 -PORT # 214 -BYTE # 20 -PORT # 214 -BYTE # 21 -PORT # 214 -BYTE # 22 -PORT # 214 -BYTE # 23 -PORT # 214 -BYTE # 24 -PORT # 214 -BYTE # 25 -PORT # 214 -BYTE # 26 -PORT # 214 -BYTE # 27 -PORT # 214 -BYTE # 28 -PORT # 214 -BYTE # 29 -PORT # 214 -BYTE # 30 -PORT # 214 -BYTE # 31 -PORT # 214 -BYTE # 32 -PORT # 214 -BYTE # 33 -PORT # 214 -BYTE # 34 -PORT # 214 -BYTE # 35 -PORT # 214 -BYTE # 36 -PORT # 214 -BYTE # 37 -PORT # 214 -BYTE # 38 -PORT # 214 -BYTE # 39 -PORT # 214 -BYTE # 40 -PORT # 214 -BYTE # 41 -PORT # 214 -BYTE # 42 -PORT # 214 -BYTE # 43 -PORT # 214 -BYTE # 44 -PORT # 214 -BYTE # 45 -PORT # 214 -BYTE # 46 -PORT # 214 -BYTE # 47 -PORT # 214 -BYTE # 48 -PORT # 214 -BYTE # 49 -PORT # 214 -BYTE # 50 -PORT # 214 -BYTE # 51 -PORT # 214 -BYTE # 52 -PORT # 214 -BYTE # 53 -PORT # 214 -BYTE # 54 -PORT # 214 -BYTE # 55 -PORT # 214 -BYTE # 56 -PORT # 214 -BYTE # 57 -PORT # 214 -BYTE # 58 -PORT # 214 -BYTE # 59 -PORT # 214 -BYTE # 60 -PORT # 214 -BYTE # 61 -PORT # 214 -BYTE # 62 -PORT # 214 -BYTE # 63 -PORT # 214 -BYTE # 64 -PORT # 214 -BYTE # 65 -PORT # 214 -BYTE # 66 -PORT # 214 -BYTE # 67 -PORT # 214 -BYTE # 68 -PORT # 214 -BYTE # 69 -PORT # 214 -BYTE # 70 -PORT # 214 -BYTE # 71 -PORT # 214 -BYTE # 72 -PORT # 214 -BYTE # 73 -PORT # 214 -BYTE # 74 -PORT # 214 -BYTE # 75 -PORT # 214 -BYTE # 76 -PORT # 214 -BYTE # 77 -PORT # 214 -BYTE # 78 -PORT # 214 -BYTE # 79 -PORT # 214 -BYTE # 80 -PORT # 214 -BYTE # 81 -PORT # 214 -BYTE # 82 -PORT # 214 -BYTE # 83 -PORT # 214 -BYTE # 84 -PORT # 214 -BYTE # 85 -PORT # 214 -BYTE # 86 -PORT # 214 -BYTE # 87 -PORT # 214 -BYTE # 88 -PORT # 214 -BYTE # 89 -PORT # 214 -BYTE # 90 -PORT # 214 -BYTE # 91 -PORT # 214 -BYTE # 92 -PORT # 214 -BYTE # 93 -PORT # 214 -BYTE # 94 -PORT # 214 -BYTE # 95 -PORT # 214 -BYTE # 96 -PORT # 214 -BYTE # 97 -PORT # 214 -BYTE # 98 -PORT # 214 -BYTE # 99 -PORT # 214 -BYTE # 100 -PORT # 214 -BYTE # 101 -PORT # 214 -BYTE # 102 -PORT # 214 -BYTE # 103 -PORT # 214 -BYTE # 104 -PORT # 214 -BYTE # 105 -PORT # 214 -BYTE # 106 -PORT # 214 -BYTE # 107 -PORT # 214 -BYTE # 108 -PORT # 214 -BYTE # 109 -PORT # 214 -BYTE # 110 -PORT # 214 -BYTE # 111 -PORT # 214 -BYTE # 112 -PORT # 214 -BYTE # 113 -PORT # 214 -BYTE # 114 -PORT # 214 -BYTE # 115 -PORT # 214 -BYTE # 116 -PORT # 214 -BYTE # 117 -PORT # 214 -BYTE # 118 -PORT # 214 -BYTE # 119 -PORT # 214 -BYTE # 120 -PORT # 214 -BYTE # 121 -PORT # 214 -BYTE # 122 -PORT # 214 -BYTE # 123 -PORT # 214 -BYTE # 124 -PORT # 214 -BYTE # 125 -PORT # 214 -BYTE # 126 -PORT # 214 -BYTE # 127 -PORT # 214 -BYTE # 128 -PORT # 214 -BYTE # 129 -PORT # 214 -BYTE # 130 -PORT # 214 -BYTE # 131 -PORT # 214 -BYTE # 132 -PORT # 214 -BYTE # 133 -PORT # 214 -BYTE # 134 -PORT # 214 -BYTE # 135 -PORT # 214 -BYTE # 136 -PORT # 214 -BYTE # 137 -PORT # 214 -BYTE # 138 -PORT # 214 -BYTE # 139 -PORT # 214 -BYTE # 140 -PORT # 214 -BYTE # 141 -PORT # 214 -BYTE # 142 -PORT # 214 -BYTE # 143 -PORT # 214 -BYTE # 144 -PORT # 214 -BYTE # 145 -PORT # 214 -BYTE # 146 -PORT # 214 -BYTE # 147 -PORT # 214 -BYTE # 148 -PORT # 214 -BYTE # 149 -PORT # 214 -BYTE # 150 -PORT # 214 -BYTE # 151 -PORT # 214 -BYTE # 152 -PORT # 214 -BYTE # 153 -PORT # 214 -BYTE # 154 -PORT # 214 -BYTE # 155 -PORT # 214 -BYTE # 156 -PORT # 214 -BYTE # 157 -PORT # 214 -BYTE # 158 -PORT # 214 -BYTE # 159 -PORT # 214 -BYTE # 160 -PORT # 214 -BYTE # 161 -PORT # 214 -BYTE # 162 -PORT # 214 -BYTE # 163 -PORT # 214 -BYTE # 164 -PORT # 214 -BYTE # 165 -PORT # 214 -BYTE # 166 -PORT # 214 -BYTE # 167 -PORT # 214 -BYTE # 168 -PORT # 214 -BYTE # 169 -PORT # 214 -BYTE # 170 -PORT # 214 -BYTE # 171 -PORT # 214 -BYTE # 172 -PORT # 214 -BYTE # 173 -PORT # 214 -BYTE # 174 -PORT # 214 -BYTE # 175 -PORT # 214 -BYTE # 176 -PORT # 214 -BYTE # 177 -PORT # 214 -BYTE # 178 -PORT # 214 -BYTE # 179 -PORT # 214 -BYTE # 180 -PORT # 214 -BYTE # 181 -PORT # 214 -BYTE # 182 -PORT # 214 -BYTE # 183 -PORT # 214 -BYTE # 184 -PORT # 214 -BYTE # 185 -PORT # 214 -BYTE # 186 -PORT # 214 -BYTE # 187 -PORT # 214 -BYTE # 188 -PORT # 214 -BYTE # 189 -PORT # 214 -BYTE # 190 -PORT # 214 -BYTE # 191 -PORT # 214 -BYTE # 192 -PORT # 214 -BYTE # 193 -PORT # 214 -BYTE # 194 -PORT # 214 -BYTE # 195 -PORT # 214 -BYTE # 196 -PORT # 214 -BYTE # 197 -PORT # 214 -BYTE # 198 -PORT # 214 -BYTE # 199 -PORT # 214 -BYTE # 200 -PORT # 214 -BYTE # 201 -PORT # 214 -BYTE # 202 -PORT # 214 -BYTE # 203 -PORT # 214 -BYTE # 204 -PORT # 214 -BYTE # 205 -PORT # 214 -BYTE # 206 -PORT # 214 -BYTE # 207 -PORT # 214 -BYTE # 208 -PORT # 214 -BYTE # 209 -PORT # 214 -BYTE # 210 -PORT # 214 -BYTE # 211 -PORT # 214 -BYTE # 212 -PORT # 214 -BYTE # 213 -PORT # 214 -BYTE # 214 -PORT # 214 -BYTE # 215 -PORT # 214 -BYTE # 216 -PORT # 214 -BYTE # 217 -PORT # 214 -BYTE # 218 -PORT # 214 -BYTE # 219 -PORT # 214 -BYTE # 220 -PORT # 214 -BYTE # 221 -PORT # 214 -BYTE # 222 -PORT # 214 -BYTE # 223 -PORT # 214 -BYTE # 224 -PORT # 214 -BYTE # 225 -PORT # 214 -BYTE # 226 -PORT # 214 -BYTE # 227 -PORT # 214 -BYTE # 228 -PORT # 214 -BYTE # 229 -PORT # 214 -BYTE # 230 -PORT # 214 -BYTE # 231 -PORT # 214 -BYTE # 232 -PORT # 214 -BYTE # 233 -PORT # 214 -BYTE # 234 -PORT # 214 -BYTE # 235 -PORT # 214 -BYTE # 236 -PORT # 214 -BYTE # 237 -PORT # 214 -BYTE # 238 -PORT # 214 -BYTE # 239 -PORT # 214 -BYTE # 240 -PORT # 214 -BYTE # 241 -PORT # 214 -BYTE # 242 -PORT # 214 -BYTE # 243 -PORT # 214 -BYTE # 244 -PORT # 214 -BYTE # 245 -PORT # 214 -BYTE # 246 -PORT # 214 -BYTE # 247 -PORT # 214 -BYTE # 248 -PORT # 214 -BYTE # 249 -PORT # 214 -BYTE # 250 -PORT # 214 -BYTE # 251 -PORT # 214 -BYTE # 252 -PORT # 214 -BYTE # 253 -PORT # 214 -BYTE # 254 -PORT # 214 -BYTE # 255 -PORT # 215 -BYTE # 0 -PORT # 215 -BYTE # 1 -PORT # 215 -BYTE # 2 -PORT # 215 -BYTE # 3 -PORT # 215 -BYTE # 4 -PORT # 215 -BYTE # 5 -PORT # 215 -BYTE # 6 -PORT # 215 -BYTE # 7 -PORT # 215 -BYTE # 8 -PORT # 215 -BYTE # 9 -PORT # 215 -BYTE # 10 -PORT # 215 -BYTE # 11 -PORT # 215 -BYTE # 12 -PORT # 215 -BYTE # 13 -PORT # 215 -BYTE # 14 -PORT # 215 -BYTE # 15 -PORT # 215 -BYTE # 16 -PORT # 215 -BYTE # 17 -PORT # 215 -BYTE # 18 -PORT # 215 -BYTE # 19 -PORT # 215 -BYTE # 20 -PORT # 215 -BYTE # 21 -PORT # 215 -BYTE # 22 -PORT # 215 -BYTE # 23 -PORT # 215 -BYTE # 24 -PORT # 215 -BYTE # 25 -PORT # 215 -BYTE # 26 -PORT # 215 -BYTE # 27 -PORT # 215 -BYTE # 28 -PORT # 215 -BYTE # 29 -PORT # 215 -BYTE # 30 -PORT # 215 -BYTE # 31 -PORT # 215 -BYTE # 32 -PORT # 215 -BYTE # 33 -PORT # 215 -BYTE # 34 -PORT # 215 -BYTE # 35 -PORT # 215 -BYTE # 36 -PORT # 215 -BYTE # 37 -PORT # 215 -BYTE # 38 -PORT # 215 -BYTE # 39 -PORT # 215 -BYTE # 40 -PORT # 215 -BYTE # 41 -PORT # 215 -BYTE # 42 -PORT # 215 -BYTE # 43 -PORT # 215 -BYTE # 44 -PORT # 215 -BYTE # 45 -PORT # 215 -BYTE # 46 -PORT # 215 -BYTE # 47 -PORT # 215 -BYTE # 48 -PORT # 215 -BYTE # 49 -PORT # 215 -BYTE # 50 -PORT # 215 -BYTE # 51 -PORT # 215 -BYTE # 52 -PORT # 215 -BYTE # 53 -PORT # 215 -BYTE # 54 -PORT # 215 -BYTE # 55 -PORT # 215 -BYTE # 56 -PORT # 215 -BYTE # 57 -PORT # 215 -BYTE # 58 -PORT # 215 -BYTE # 59 -PORT # 215 -BYTE # 60 -PORT # 215 -BYTE # 61 -PORT # 215 -BYTE # 62 -PORT # 215 -BYTE # 63 -PORT # 215 -BYTE # 64 -PORT # 215 -BYTE # 65 -PORT # 215 -BYTE # 66 -PORT # 215 -BYTE # 67 -PORT # 215 -BYTE # 68 -PORT # 215 -BYTE # 69 -PORT # 215 -BYTE # 70 -PORT # 215 -BYTE # 71 -PORT # 215 -BYTE # 72 -PORT # 215 -BYTE # 73 -PORT # 215 -BYTE # 74 -PORT # 215 -BYTE # 75 -PORT # 215 -BYTE # 76 -PORT # 215 -BYTE # 77 -PORT # 215 -BYTE # 78 -PORT # 215 -BYTE # 79 -PORT # 215 -BYTE # 80 -PORT # 215 -BYTE # 81 -PORT # 215 -BYTE # 82 -PORT # 215 -BYTE # 83 -PORT # 215 -BYTE # 84 -PORT # 215 -BYTE # 85 -PORT # 215 -BYTE # 86 -PORT # 215 -BYTE # 87 -PORT # 215 -BYTE # 88 -PORT # 215 -BYTE # 89 -PORT # 215 -BYTE # 90 -PORT # 215 -BYTE # 91 -PORT # 215 -BYTE # 92 -PORT # 215 -BYTE # 93 -PORT # 215 -BYTE # 94 -PORT # 215 -BYTE # 95 -PORT # 215 -BYTE # 96 -PORT # 215 -BYTE # 97 -PORT # 215 -BYTE # 98 -PORT # 215 -BYTE # 99 -PORT # 215 -BYTE # 100 -PORT # 215 -BYTE # 101 -PORT # 215 -BYTE # 102 -PORT # 215 -BYTE # 103 -PORT # 215 -BYTE # 104 -PORT # 215 -BYTE # 105 -PORT # 215 -BYTE # 106 -PORT # 215 -BYTE # 107 -PORT # 215 -BYTE # 108 -PORT # 215 -BYTE # 109 -PORT # 215 -BYTE # 110 -PORT # 215 -BYTE # 111 -PORT # 215 -BYTE # 112 -PORT # 215 -BYTE # 113 -PORT # 215 -BYTE # 114 -PORT # 215 -BYTE # 115 -PORT # 215 -BYTE # 116 -PORT # 215 -BYTE # 117 -PORT # 215 -BYTE # 118 -PORT # 215 -BYTE # 119 -PORT # 215 -BYTE # 120 -PORT # 215 -BYTE # 121 -PORT # 215 -BYTE # 122 -PORT # 215 -BYTE # 123 -PORT # 215 -BYTE # 124 -PORT # 215 -BYTE # 125 -PORT # 215 -BYTE # 126 -PORT # 215 -BYTE # 127 -PORT # 215 -BYTE # 128 -PORT # 215 -BYTE # 129 -PORT # 215 -BYTE # 130 -PORT # 215 -BYTE # 131 -PORT # 215 -BYTE # 132 -PORT # 215 -BYTE # 133 -PORT # 215 -BYTE # 134 -PORT # 215 -BYTE # 135 -PORT # 215 -BYTE # 136 -PORT # 215 -BYTE # 137 -PORT # 215 -BYTE # 138 -PORT # 215 -BYTE # 139 -PORT # 215 -BYTE # 140 -PORT # 215 -BYTE # 141 -PORT # 215 -BYTE # 142 -PORT # 215 -BYTE # 143 -PORT # 215 -BYTE # 144 -PORT # 215 -BYTE # 145 -PORT # 215 -BYTE # 146 -PORT # 215 -BYTE # 147 -PORT # 215 -BYTE # 148 -PORT # 215 -BYTE # 149 -PORT # 215 -BYTE # 150 -PORT # 215 -BYTE # 151 -PORT # 215 -BYTE # 152 -PORT # 215 -BYTE # 153 -PORT # 215 -BYTE # 154 -PORT # 215 -BYTE # 155 -PORT # 215 -BYTE # 156 -PORT # 215 -BYTE # 157 -PORT # 215 -BYTE # 158 -PORT # 215 -BYTE # 159 -PORT # 215 -BYTE # 160 -PORT # 215 -BYTE # 161 -PORT # 215 -BYTE # 162 -PORT # 215 -BYTE # 163 -PORT # 215 -BYTE # 164 -PORT # 215 -BYTE # 165 -PORT # 215 -BYTE # 166 -PORT # 215 -BYTE # 167 -PORT # 215 -BYTE # 168 -PORT # 215 -BYTE # 169 -PORT # 215 -BYTE # 170 -PORT # 215 -BYTE # 171 -PORT # 215 -BYTE # 172 -PORT # 215 -BYTE # 173 -PORT # 215 -BYTE # 174 -PORT # 215 -BYTE # 175 -PORT # 215 -BYTE # 176 -PORT # 215 -BYTE # 177 -PORT # 215 -BYTE # 178 -PORT # 215 -BYTE # 179 -PORT # 215 -BYTE # 180 -PORT # 215 -BYTE # 181 -PORT # 215 -BYTE # 182 -PORT # 215 -BYTE # 183 -PORT # 215 -BYTE # 184 -PORT # 215 -BYTE # 185 -PORT # 215 -BYTE # 186 -PORT # 215 -BYTE # 187 -PORT # 215 -BYTE # 188 -PORT # 215 -BYTE # 189 -PORT # 215 -BYTE # 190 -PORT # 215 -BYTE # 191 -PORT # 215 -BYTE # 192 -PORT # 215 -BYTE # 193 -PORT # 215 -BYTE # 194 -PORT # 215 -BYTE # 195 -PORT # 215 -BYTE # 196 -PORT # 215 -BYTE # 197 -PORT # 215 -BYTE # 198 -PORT # 215 -BYTE # 199 -PORT # 215 -BYTE # 200 -PORT # 215 -BYTE # 201 -PORT # 215 -BYTE # 202 -PORT # 215 -BYTE # 203 -PORT # 215 -BYTE # 204 -PORT # 215 -BYTE # 205 -PORT # 215 -BYTE # 206 -PORT # 215 -BYTE # 207 -PORT # 215 -BYTE # 208 -PORT # 215 -BYTE # 209 -PORT # 215 -BYTE # 210 -PORT # 215 -BYTE # 211 -PORT # 215 -BYTE # 212 -PORT # 215 -BYTE # 213 -PORT # 215 -BYTE # 214 -PORT # 215 -BYTE # 215 -PORT # 215 -BYTE # 216 -PORT # 215 -BYTE # 217 -PORT # 215 -BYTE # 218 -PORT # 215 -BYTE # 219 -PORT # 215 -BYTE # 220 -PORT # 215 -BYTE # 221 -PORT # 215 -BYTE # 222 -PORT # 215 -BYTE # 223 -PORT # 215 -BYTE # 224 -PORT # 215 -BYTE # 225 -PORT # 215 -BYTE # 226 -PORT # 215 -BYTE # 227 -PORT # 215 -BYTE # 228 -PORT # 215 -BYTE # 229 -PORT # 215 -BYTE # 230 -PORT # 215 -BYTE # 231 -PORT # 215 -BYTE # 232 -PORT # 215 -BYTE # 233 -PORT # 215 -BYTE # 234 -PORT # 215 -BYTE # 235 -PORT # 215 -BYTE # 236 -PORT # 215 -BYTE # 237 -PORT # 215 -BYTE # 238 -PORT # 215 -BYTE # 239 -PORT # 215 -BYTE # 240 -PORT # 215 -BYTE # 241 -PORT # 215 -BYTE # 242 -PORT # 215 -BYTE # 243 -PORT # 215 -BYTE # 244 -PORT # 215 -BYTE # 245 -PORT # 215 -BYTE # 246 -PORT # 215 -BYTE # 247 -PORT # 215 -BYTE # 248 -PORT # 215 -BYTE # 249 -PORT # 215 -BYTE # 250 -PORT # 215 -BYTE # 251 -PORT # 215 -BYTE # 252 -PORT # 215 -BYTE # 253 -PORT # 215 -BYTE # 254 -PORT # 215 -BYTE # 255 -PORT # 216 -BYTE # 0 -PORT # 216 -BYTE # 1 -PORT # 216 -BYTE # 2 -PORT # 216 -BYTE # 3 -PORT # 216 -BYTE # 4 -PORT # 216 -BYTE # 5 -PORT # 216 -BYTE # 6 -PORT # 216 -BYTE # 7 -PORT # 216 -BYTE # 8 -PORT # 216 -BYTE # 9 -PORT # 216 -BYTE # 10 -PORT # 216 -BYTE # 11 -PORT # 216 -BYTE # 12 -PORT # 216 -BYTE # 13 -PORT # 216 -BYTE # 14 -PORT # 216 -BYTE # 15 -PORT # 216 -BYTE # 16 -PORT # 216 -BYTE # 17 -PORT # 216 -BYTE # 18 -PORT # 216 -BYTE # 19 -PORT # 216 -BYTE # 20 -PORT # 216 -BYTE # 21 -PORT # 216 -BYTE # 22 -PORT # 216 -BYTE # 23 -PORT # 216 -BYTE # 24 -PORT # 216 -BYTE # 25 -PORT # 216 -BYTE # 26 -PORT # 216 -BYTE # 27 -PORT # 216 -BYTE # 28 -PORT # 216 -BYTE # 29 -PORT # 216 -BYTE # 30 -PORT # 216 -BYTE # 31 -PORT # 216 -BYTE # 32 -PORT # 216 -BYTE # 33 -PORT # 216 -BYTE # 34 -PORT # 216 -BYTE # 35 -PORT # 216 -BYTE # 36 -PORT # 216 -BYTE # 37 -PORT # 216 -BYTE # 38 -PORT # 216 -BYTE # 39 -PORT # 216 -BYTE # 40 -PORT # 216 -BYTE # 41 -PORT # 216 -BYTE # 42 -PORT # 216 -BYTE # 43 -PORT # 216 -BYTE # 44 -PORT # 216 -BYTE # 45 -PORT # 216 -BYTE # 46 -PORT # 216 -BYTE # 47 -PORT # 216 -BYTE # 48 -PORT # 216 -BYTE # 49 -PORT # 216 -BYTE # 50 -PORT # 216 -BYTE # 51 -PORT # 216 -BYTE # 52 -PORT # 216 -BYTE # 53 -PORT # 216 -BYTE # 54 -PORT # 216 -BYTE # 55 -PORT # 216 -BYTE # 56 -PORT # 216 -BYTE # 57 -PORT # 216 -BYTE # 58 -PORT # 216 -BYTE # 59 -PORT # 216 -BYTE # 60 -PORT # 216 -BYTE # 61 -PORT # 216 -BYTE # 62 -PORT # 216 -BYTE # 63 -PORT # 216 -BYTE # 64 -PORT # 216 -BYTE # 65 -PORT # 216 -BYTE # 66 -PORT # 216 -BYTE # 67 -PORT # 216 -BYTE # 68 -PORT # 216 -BYTE # 69 -PORT # 216 -BYTE # 70 -PORT # 216 -BYTE # 71 -PORT # 216 -BYTE # 72 -PORT # 216 -BYTE # 73 -PORT # 216 -BYTE # 74 -PORT # 216 -BYTE # 75 -PORT # 216 -BYTE # 76 -PORT # 216 -BYTE # 77 -PORT # 216 -BYTE # 78 -PORT # 216 -BYTE # 79 -PORT # 216 -BYTE # 80 -PORT # 216 -BYTE # 81 -PORT # 216 -BYTE # 82 -PORT # 216 -BYTE # 83 -PORT # 216 -BYTE # 84 -PORT # 216 -BYTE # 85 -PORT # 216 -BYTE # 86 -PORT # 216 -BYTE # 87 -PORT # 216 -BYTE # 88 -PORT # 216 -BYTE # 89 -PORT # 216 -BYTE # 90 -PORT # 216 -BYTE # 91 -PORT # 216 -BYTE # 92 -PORT # 216 -BYTE # 93 -PORT # 216 -BYTE # 94 -PORT # 216 -BYTE # 95 -PORT # 216 -BYTE # 96 -PORT # 216 -BYTE # 97 -PORT # 216 -BYTE # 98 -PORT # 216 -BYTE # 99 -PORT # 216 -BYTE # 100 -PORT # 216 -BYTE # 101 -PORT # 216 -BYTE # 102 -PORT # 216 -BYTE # 103 -PORT # 216 -BYTE # 104 -PORT # 216 -BYTE # 105 -PORT # 216 -BYTE # 106 -PORT # 216 -BYTE # 107 -PORT # 216 -BYTE # 108 -PORT # 216 -BYTE # 109 -PORT # 216 -BYTE # 110 -PORT # 216 -BYTE # 111 -PORT # 216 -BYTE # 112 -PORT # 216 -BYTE # 113 -PORT # 216 -BYTE # 114 -PORT # 216 -BYTE # 115 -PORT # 216 -BYTE # 116 -PORT # 216 -BYTE # 117 -PORT # 216 -BYTE # 118 -PORT # 216 -BYTE # 119 -PORT # 216 -BYTE # 120 -PORT # 216 -BYTE # 121 -PORT # 216 -BYTE # 122 -PORT # 216 -BYTE # 123 -PORT # 216 -BYTE # 124 -PORT # 216 -BYTE # 125 -PORT # 216 -BYTE # 126 -PORT # 216 -BYTE # 127 -PORT # 216 -BYTE # 128 -PORT # 216 -BYTE # 129 -PORT # 216 -BYTE # 130 -PORT # 216 -BYTE # 131 -PORT # 216 -BYTE # 132 -PORT # 216 -BYTE # 133 -PORT # 216 -BYTE # 134 -PORT # 216 -BYTE # 135 -PORT # 216 -BYTE # 136 -PORT # 216 -BYTE # 137 -PORT # 216 -BYTE # 138 -PORT # 216 -BYTE # 139 -PORT # 216 -BYTE # 140 -PORT # 216 -BYTE # 141 -PORT # 216 -BYTE # 142 -PORT # 216 -BYTE # 143 -PORT # 216 -BYTE # 144 -PORT # 216 -BYTE # 145 -PORT # 216 -BYTE # 146 -PORT # 216 -BYTE # 147 -PORT # 216 -BYTE # 148 -PORT # 216 -BYTE # 149 -PORT # 216 -BYTE # 150 -PORT # 216 -BYTE # 151 -PORT # 216 -BYTE # 152 -PORT # 216 -BYTE # 153 -PORT # 216 -BYTE # 154 -PORT # 216 -BYTE # 155 -PORT # 216 -BYTE # 156 -PORT # 216 -BYTE # 157 -PORT # 216 -BYTE # 158 -PORT # 216 -BYTE # 159 -PORT # 216 -BYTE # 160 -PORT # 216 -BYTE # 161 -PORT # 216 -BYTE # 162 -PORT # 216 -BYTE # 163 -PORT # 216 -BYTE # 164 -PORT # 216 -BYTE # 165 -PORT # 216 -BYTE # 166 -PORT # 216 -BYTE # 167 -PORT # 216 -BYTE # 168 -PORT # 216 -BYTE # 169 -PORT # 216 -BYTE # 170 -PORT # 216 -BYTE # 171 -PORT # 216 -BYTE # 172 -PORT # 216 -BYTE # 173 -PORT # 216 -BYTE # 174 -PORT # 216 -BYTE # 175 -PORT # 216 -BYTE # 176 -PORT # 216 -BYTE # 177 -PORT # 216 -BYTE # 178 -PORT # 216 -BYTE # 179 -PORT # 216 -BYTE # 180 -PORT # 216 -BYTE # 181 -PORT # 216 -BYTE # 182 -PORT # 216 -BYTE # 183 -PORT # 216 -BYTE # 184 -PORT # 216 -BYTE # 185 -PORT # 216 -BYTE # 186 -PORT # 216 -BYTE # 187 -PORT # 216 -BYTE # 188 -PORT # 216 -BYTE # 189 -PORT # 216 -BYTE # 190 -PORT # 216 -BYTE # 191 -PORT # 216 -BYTE # 192 -PORT # 216 -BYTE # 193 -PORT # 216 -BYTE # 194 -PORT # 216 -BYTE # 195 -PORT # 216 -BYTE # 196 -PORT # 216 -BYTE # 197 -PORT # 216 -BYTE # 198 -PORT # 216 -BYTE # 199 -PORT # 216 -BYTE # 200 -PORT # 216 -BYTE # 201 -PORT # 216 -BYTE # 202 -PORT # 216 -BYTE # 203 -PORT # 216 -BYTE # 204 -PORT # 216 -BYTE # 205 -PORT # 216 -BYTE # 206 -PORT # 216 -BYTE # 207 -PORT # 216 -BYTE # 208 -PORT # 216 -BYTE # 209 -PORT # 216 -BYTE # 210 -PORT # 216 -BYTE # 211 -PORT # 216 -BYTE # 212 -PORT # 216 -BYTE # 213 -PORT # 216 -BYTE # 214 -PORT # 216 -BYTE # 215 -PORT # 216 -BYTE # 216 -PORT # 216 -BYTE # 217 -PORT # 216 -BYTE # 218 -PORT # 216 -BYTE # 219 -PORT # 216 -BYTE # 220 -PORT # 216 -BYTE # 221 -PORT # 216 -BYTE # 222 -PORT # 216 -BYTE # 223 -PORT # 216 -BYTE # 224 -PORT # 216 -BYTE # 225 -PORT # 216 -BYTE # 226 -PORT # 216 -BYTE # 227 -PORT # 216 -BYTE # 228 -PORT # 216 -BYTE # 229 -PORT # 216 -BYTE # 230 -PORT # 216 -BYTE # 231 -PORT # 216 -BYTE # 232 -PORT # 216 -BYTE # 233 -PORT # 216 -BYTE # 234 -PORT # 216 -BYTE # 235 -PORT # 216 -BYTE # 236 -PORT # 216 -BYTE # 237 -PORT # 216 -BYTE # 238 -PORT # 216 -BYTE # 239 -PORT # 216 -BYTE # 240 -PORT # 216 -BYTE # 241 -PORT # 216 -BYTE # 242 -PORT # 216 -BYTE # 243 -PORT # 216 -BYTE # 244 -PORT # 216 -BYTE # 245 -PORT # 216 -BYTE # 246 -PORT # 216 -BYTE # 247 -PORT # 216 -BYTE # 248 -PORT # 216 -BYTE # 249 -PORT # 216 -BYTE # 250 -PORT # 216 -BYTE # 251 -PORT # 216 -BYTE # 252 -PORT # 216 -BYTE # 253 -PORT # 216 -BYTE # 254 -PORT # 216 -BYTE # 255 -PORT # 217 -BYTE # 0 -PORT # 217 -BYTE # 1 -PORT # 217 -BYTE # 2 -PORT # 217 -BYTE # 3 -PORT # 217 -BYTE # 4 -PORT # 217 -BYTE # 5 -PORT # 217 -BYTE # 6 -PORT # 217 -BYTE # 7 -PORT # 217 -BYTE # 8 -PORT # 217 -BYTE # 9 -PORT # 217 -BYTE # 10 -PORT # 217 -BYTE # 11 -PORT # 217 -BYTE # 12 -PORT # 217 -BYTE # 13 -PORT # 217 -BYTE # 14 -PORT # 217 -BYTE # 15 -PORT # 217 -BYTE # 16 -PORT # 217 -BYTE # 17 -PORT # 217 -BYTE # 18 -PORT # 217 -BYTE # 19 -PORT # 217 -BYTE # 20 -PORT # 217 -BYTE # 21 -PORT # 217 -BYTE # 22 -PORT # 217 -BYTE # 23 -PORT # 217 -BYTE # 24 -PORT # 217 -BYTE # 25 -PORT # 217 -BYTE # 26 -PORT # 217 -BYTE # 27 -PORT # 217 -BYTE # 28 -PORT # 217 -BYTE # 29 -PORT # 217 -BYTE # 30 -PORT # 217 -BYTE # 31 -PORT # 217 -BYTE # 32 -PORT # 217 -BYTE # 33 -PORT # 217 -BYTE # 34 -PORT # 217 -BYTE # 35 -PORT # 217 -BYTE # 36 -PORT # 217 -BYTE # 37 -PORT # 217 -BYTE # 38 -PORT # 217 -BYTE # 39 -PORT # 217 -BYTE # 40 -PORT # 217 -BYTE # 41 -PORT # 217 -BYTE # 42 -PORT # 217 -BYTE # 43 -PORT # 217 -BYTE # 44 -PORT # 217 -BYTE # 45 -PORT # 217 -BYTE # 46 -PORT # 217 -BYTE # 47 -PORT # 217 -BYTE # 48 -PORT # 217 -BYTE # 49 -PORT # 217 -BYTE # 50 -PORT # 217 -BYTE # 51 -PORT # 217 -BYTE # 52 -PORT # 217 -BYTE # 53 -PORT # 217 -BYTE # 54 -PORT # 217 -BYTE # 55 -PORT # 217 -BYTE # 56 -PORT # 217 -BYTE # 57 -PORT # 217 -BYTE # 58 -PORT # 217 -BYTE # 59 -PORT # 217 -BYTE # 60 -PORT # 217 -BYTE # 61 -PORT # 217 -BYTE # 62 -PORT # 217 -BYTE # 63 -PORT # 217 -BYTE # 64 -PORT # 217 -BYTE # 65 -PORT # 217 -BYTE # 66 -PORT # 217 -BYTE # 67 -PORT # 217 -BYTE # 68 -PORT # 217 -BYTE # 69 -PORT # 217 -BYTE # 70 -PORT # 217 -BYTE # 71 -PORT # 217 -BYTE # 72 -PORT # 217 -BYTE # 73 -PORT # 217 -BYTE # 74 -PORT # 217 -BYTE # 75 -PORT # 217 -BYTE # 76 -PORT # 217 -BYTE # 77 -PORT # 217 -BYTE # 78 -PORT # 217 -BYTE # 79 -PORT # 217 -BYTE # 80 -PORT # 217 -BYTE # 81 -PORT # 217 -BYTE # 82 -PORT # 217 -BYTE # 83 -PORT # 217 -BYTE # 84 -PORT # 217 -BYTE # 85 -PORT # 217 -BYTE # 86 -PORT # 217 -BYTE # 87 -PORT # 217 -BYTE # 88 -PORT # 217 -BYTE # 89 -PORT # 217 -BYTE # 90 -PORT # 217 -BYTE # 91 -PORT # 217 -BYTE # 92 -PORT # 217 -BYTE # 93 -PORT # 217 -BYTE # 94 -PORT # 217 -BYTE # 95 -PORT # 217 -BYTE # 96 -PORT # 217 -BYTE # 97 -PORT # 217 -BYTE # 98 -PORT # 217 -BYTE # 99 -PORT # 217 -BYTE # 100 -PORT # 217 -BYTE # 101 -PORT # 217 -BYTE # 102 -PORT # 217 -BYTE # 103 -PORT # 217 -BYTE # 104 -PORT # 217 -BYTE # 105 -PORT # 217 -BYTE # 106 -PORT # 217 -BYTE # 107 -PORT # 217 -BYTE # 108 -PORT # 217 -BYTE # 109 -PORT # 217 -BYTE # 110 -PORT # 217 -BYTE # 111 -PORT # 217 -BYTE # 112 -PORT # 217 -BYTE # 113 -PORT # 217 -BYTE # 114 -PORT # 217 -BYTE # 115 -PORT # 217 -BYTE # 116 -PORT # 217 -BYTE # 117 -PORT # 217 -BYTE # 118 -PORT # 217 -BYTE # 119 -PORT # 217 -BYTE # 120 -PORT # 217 -BYTE # 121 -PORT # 217 -BYTE # 122 -PORT # 217 -BYTE # 123 -PORT # 217 -BYTE # 124 -PORT # 217 -BYTE # 125 -PORT # 217 -BYTE # 126 -PORT # 217 -BYTE # 127 -PORT # 217 -BYTE # 128 -PORT # 217 -BYTE # 129 -PORT # 217 -BYTE # 130 -PORT # 217 -BYTE # 131 -PORT # 217 -BYTE # 132 -PORT # 217 -BYTE # 133 -PORT # 217 -BYTE # 134 -PORT # 217 -BYTE # 135 -PORT # 217 -BYTE # 136 -PORT # 217 -BYTE # 137 -PORT # 217 -BYTE # 138 -PORT # 217 -BYTE # 139 -PORT # 217 -BYTE # 140 -PORT # 217 -BYTE # 141 -PORT # 217 -BYTE # 142 -PORT # 217 -BYTE # 143 -PORT # 217 -BYTE # 144 -PORT # 217 -BYTE # 145 -PORT # 217 -BYTE # 146 -PORT # 217 -BYTE # 147 -PORT # 217 -BYTE # 148 -PORT # 217 -BYTE # 149 -PORT # 217 -BYTE # 150 -PORT # 217 -BYTE # 151 -PORT # 217 -BYTE # 152 -PORT # 217 -BYTE # 153 -PORT # 217 -BYTE # 154 -PORT # 217 -BYTE # 155 -PORT # 217 -BYTE # 156 -PORT # 217 -BYTE # 157 -PORT # 217 -BYTE # 158 -PORT # 217 -BYTE # 159 -PORT # 217 -BYTE # 160 -PORT # 217 -BYTE # 161 -PORT # 217 -BYTE # 162 -PORT # 217 -BYTE # 163 -PORT # 217 -BYTE # 164 -PORT # 217 -BYTE # 165 -PORT # 217 -BYTE # 166 -PORT # 217 -BYTE # 167 -PORT # 217 -BYTE # 168 -PORT # 217 -BYTE # 169 -PORT # 217 -BYTE # 170 -PORT # 217 -BYTE # 171 -PORT # 217 -BYTE # 172 -PORT # 217 -BYTE # 173 -PORT # 217 -BYTE # 174 -PORT # 217 -BYTE # 175 -PORT # 217 -BYTE # 176 -PORT # 217 -BYTE # 177 -PORT # 217 -BYTE # 178 -PORT # 217 -BYTE # 179 -PORT # 217 -BYTE # 180 -PORT # 217 -BYTE # 181 -PORT # 217 -BYTE # 182 -PORT # 217 -BYTE # 183 -PORT # 217 -BYTE # 184 -PORT # 217 -BYTE # 185 -PORT # 217 -BYTE # 186 -PORT # 217 -BYTE # 187 -PORT # 217 -BYTE # 188 -PORT # 217 -BYTE # 189 -PORT # 217 -BYTE # 190 -PORT # 217 -BYTE # 191 -PORT # 217 -BYTE # 192 -PORT # 217 -BYTE # 193 -PORT # 217 -BYTE # 194 -PORT # 217 -BYTE # 195 -PORT # 217 -BYTE # 196 -PORT # 217 -BYTE # 197 -PORT # 217 -BYTE # 198 -PORT # 217 -BYTE # 199 -PORT # 217 -BYTE # 200 -PORT # 217 -BYTE # 201 -PORT # 217 -BYTE # 202 -PORT # 217 -BYTE # 203 -PORT # 217 -BYTE # 204 -PORT # 217 -BYTE # 205 -PORT # 217 -BYTE # 206 -PORT # 217 -BYTE # 207 -PORT # 217 -BYTE # 208 -PORT # 217 -BYTE # 209 -PORT # 217 -BYTE # 210 -PORT # 217 -BYTE # 211 -PORT # 217 -BYTE # 212 -PORT # 217 -BYTE # 213 -PORT # 217 -BYTE # 214 -PORT # 217 -BYTE # 215 -PORT # 217 -BYTE # 216 -PORT # 217 -BYTE # 217 -PORT # 217 -BYTE # 218 -PORT # 217 -BYTE # 219 -PORT # 217 -BYTE # 220 -PORT # 217 -BYTE # 221 -PORT # 217 -BYTE # 222 -PORT # 217 -BYTE # 223 -PORT # 217 -BYTE # 224 -PORT # 217 -BYTE # 225 -PORT # 217 -BYTE # 226 -PORT # 217 -BYTE # 227 -PORT # 217 -BYTE # 228 -PORT # 217 -BYTE # 229 -PORT # 217 -BYTE # 230 -PORT # 217 -BYTE # 231 -PORT # 217 -BYTE # 232 -PORT # 217 -BYTE # 233 -PORT # 217 -BYTE # 234 -PORT # 217 -BYTE # 235 -PORT # 217 -BYTE # 236 -PORT # 217 -BYTE # 237 -PORT # 217 -BYTE # 238 -PORT # 217 -BYTE # 239 -PORT # 217 -BYTE # 240 -PORT # 217 -BYTE # 241 -PORT # 217 -BYTE # 242 -PORT # 217 -BYTE # 243 -PORT # 217 -BYTE # 244 -PORT # 217 -BYTE # 245 -PORT # 217 -BYTE # 246 -PORT # 217 -BYTE # 247 -PORT # 217 -BYTE # 248 -PORT # 217 -BYTE # 249 -PORT # 217 -BYTE # 250 -PORT # 217 -BYTE # 251 -PORT # 217 -BYTE # 252 -PORT # 217 -BYTE # 253 -PORT # 217 -BYTE # 254 -PORT # 217 -BYTE # 255 -PORT # 218 -BYTE # 0 -PORT # 218 -BYTE # 1 -PORT # 218 -BYTE # 2 -PORT # 218 -BYTE # 3 -PORT # 218 -BYTE # 4 -PORT # 218 -BYTE # 5 -PORT # 218 -BYTE # 6 -PORT # 218 -BYTE # 7 -PORT # 218 -BYTE # 8 -PORT # 218 -BYTE # 9 -PORT # 218 -BYTE # 10 -PORT # 218 -BYTE # 11 -PORT # 218 -BYTE # 12 -PORT # 218 -BYTE # 13 -PORT # 218 -BYTE # 14 -PORT # 218 -BYTE # 15 -PORT # 218 -BYTE # 16 -PORT # 218 -BYTE # 17 -PORT # 218 -BYTE # 18 -PORT # 218 -BYTE # 19 -PORT # 218 -BYTE # 20 -PORT # 218 -BYTE # 21 -PORT # 218 -BYTE # 22 -PORT # 218 -BYTE # 23 -PORT # 218 -BYTE # 24 -PORT # 218 -BYTE # 25 -PORT # 218 -BYTE # 26 -PORT # 218 -BYTE # 27 -PORT # 218 -BYTE # 28 -PORT # 218 -BYTE # 29 -PORT # 218 -BYTE # 30 -PORT # 218 -BYTE # 31 -PORT # 218 -BYTE # 32 -PORT # 218 -BYTE # 33 -PORT # 218 -BYTE # 34 -PORT # 218 -BYTE # 35 -PORT # 218 -BYTE # 36 -PORT # 218 -BYTE # 37 -PORT # 218 -BYTE # 38 -PORT # 218 -BYTE # 39 -PORT # 218 -BYTE # 40 -PORT # 218 -BYTE # 41 -PORT # 218 -BYTE # 42 -PORT # 218 -BYTE # 43 -PORT # 218 -BYTE # 44 -PORT # 218 -BYTE # 45 -PORT # 218 -BYTE # 46 -PORT # 218 -BYTE # 47 -PORT # 218 -BYTE # 48 -PORT # 218 -BYTE # 49 -PORT # 218 -BYTE # 50 -PORT # 218 -BYTE # 51 -PORT # 218 -BYTE # 52 -PORT # 218 -BYTE # 53 -PORT # 218 -BYTE # 54 -PORT # 218 -BYTE # 55 -PORT # 218 -BYTE # 56 -PORT # 218 -BYTE # 57 -PORT # 218 -BYTE # 58 -PORT # 218 -BYTE # 59 -PORT # 218 -BYTE # 60 -PORT # 218 -BYTE # 61 -PORT # 218 -BYTE # 62 -PORT # 218 -BYTE # 63 -PORT # 218 -BYTE # 64 -PORT # 218 -BYTE # 65 -PORT # 218 -BYTE # 66 -PORT # 218 -BYTE # 67 -PORT # 218 -BYTE # 68 -PORT # 218 -BYTE # 69 -PORT # 218 -BYTE # 70 -PORT # 218 -BYTE # 71 -PORT # 218 -BYTE # 72 -PORT # 218 -BYTE # 73 -PORT # 218 -BYTE # 74 -PORT # 218 -BYTE # 75 -PORT # 218 -BYTE # 76 -PORT # 218 -BYTE # 77 -PORT # 218 -BYTE # 78 -PORT # 218 -BYTE # 79 -PORT # 218 -BYTE # 80 -PORT # 218 -BYTE # 81 -PORT # 218 -BYTE # 82 -PORT # 218 -BYTE # 83 -PORT # 218 -BYTE # 84 -PORT # 218 -BYTE # 85 -PORT # 218 -BYTE # 86 -PORT # 218 -BYTE # 87 -PORT # 218 -BYTE # 88 -PORT # 218 -BYTE # 89 -PORT # 218 -BYTE # 90 -PORT # 218 -BYTE # 91 -PORT # 218 -BYTE # 92 -PORT # 218 -BYTE # 93 -PORT # 218 -BYTE # 94 -PORT # 218 -BYTE # 95 -PORT # 218 -BYTE # 96 -PORT # 218 -BYTE # 97 -PORT # 218 -BYTE # 98 -PORT # 218 -BYTE # 99 -PORT # 218 -BYTE # 100 -PORT # 218 -BYTE # 101 -PORT # 218 -BYTE # 102 -PORT # 218 -BYTE # 103 -PORT # 218 -BYTE # 104 -PORT # 218 -BYTE # 105 -PORT # 218 -BYTE # 106 -PORT # 218 -BYTE # 107 -PORT # 218 -BYTE # 108 -PORT # 218 -BYTE # 109 -PORT # 218 -BYTE # 110 -PORT # 218 -BYTE # 111 -PORT # 218 -BYTE # 112 -PORT # 218 -BYTE # 113 -PORT # 218 -BYTE # 114 -PORT # 218 -BYTE # 115 -PORT # 218 -BYTE # 116 -PORT # 218 -BYTE # 117 -PORT # 218 -BYTE # 118 -PORT # 218 -BYTE # 119 -PORT # 218 -BYTE # 120 -PORT # 218 -BYTE # 121 -PORT # 218 -BYTE # 122 -PORT # 218 -BYTE # 123 -PORT # 218 -BYTE # 124 -PORT # 218 -BYTE # 125 -PORT # 218 -BYTE # 126 -PORT # 218 -BYTE # 127 -PORT # 218 -BYTE # 128 -PORT # 218 -BYTE # 129 -PORT # 218 -BYTE # 130 -PORT # 218 -BYTE # 131 -PORT # 218 -BYTE # 132 -PORT # 218 -BYTE # 133 -PORT # 218 -BYTE # 134 -PORT # 218 -BYTE # 135 -PORT # 218 -BYTE # 136 -PORT # 218 -BYTE # 137 -PORT # 218 -BYTE # 138 -PORT # 218 -BYTE # 139 -PORT # 218 -BYTE # 140 -PORT # 218 -BYTE # 141 -PORT # 218 -BYTE # 142 -PORT # 218 -BYTE # 143 -PORT # 218 -BYTE # 144 -PORT # 218 -BYTE # 145 -PORT # 218 -BYTE # 146 -PORT # 218 -BYTE # 147 -PORT # 218 -BYTE # 148 -PORT # 218 -BYTE # 149 -PORT # 218 -BYTE # 150 -PORT # 218 -BYTE # 151 -PORT # 218 -BYTE # 152 -PORT # 218 -BYTE # 153 -PORT # 218 -BYTE # 154 -PORT # 218 -BYTE # 155 -PORT # 218 -BYTE # 156 -PORT # 218 -BYTE # 157 -PORT # 218 -BYTE # 158 -PORT # 218 -BYTE # 159 -PORT # 218 -BYTE # 160 -PORT # 218 -BYTE # 161 -PORT # 218 -BYTE # 162 -PORT # 218 -BYTE # 163 -PORT # 218 -BYTE # 164 -PORT # 218 -BYTE # 165 -PORT # 218 -BYTE # 166 -PORT # 218 -BYTE # 167 -PORT # 218 -BYTE # 168 -PORT # 218 -BYTE # 169 -PORT # 218 -BYTE # 170 -PORT # 218 -BYTE # 171 -PORT # 218 -BYTE # 172 -PORT # 218 -BYTE # 173 -PORT # 218 -BYTE # 174 -PORT # 218 -BYTE # 175 -PORT # 218 -BYTE # 176 -PORT # 218 -BYTE # 177 -PORT # 218 -BYTE # 178 -PORT # 218 -BYTE # 179 -PORT # 218 -BYTE # 180 -PORT # 218 -BYTE # 181 -PORT # 218 -BYTE # 182 -PORT # 218 -BYTE # 183 -PORT # 218 -BYTE # 184 -PORT # 218 -BYTE # 185 -PORT # 218 -BYTE # 186 -PORT # 218 -BYTE # 187 -PORT # 218 -BYTE # 188 -PORT # 218 -BYTE # 189 -PORT # 218 -BYTE # 190 -PORT # 218 -BYTE # 191 -PORT # 218 -BYTE # 192 -PORT # 218 -BYTE # 193 -PORT # 218 -BYTE # 194 -PORT # 218 -BYTE # 195 -PORT # 218 -BYTE # 196 -PORT # 218 -BYTE # 197 -PORT # 218 -BYTE # 198 -PORT # 218 -BYTE # 199 -PORT # 218 -BYTE # 200 -PORT # 218 -BYTE # 201 -PORT # 218 -BYTE # 202 -PORT # 218 -BYTE # 203 -PORT # 218 -BYTE # 204 -PORT # 218 -BYTE # 205 -PORT # 218 -BYTE # 206 -PORT # 218 -BYTE # 207 -PORT # 218 -BYTE # 208 -PORT # 218 -BYTE # 209 -PORT # 218 -BYTE # 210 -PORT # 218 -BYTE # 211 -PORT # 218 -BYTE # 212 -PORT # 218 -BYTE # 213 -PORT # 218 -BYTE # 214 -PORT # 218 -BYTE # 215 -PORT # 218 -BYTE # 216 -PORT # 218 -BYTE # 217 -PORT # 218 -BYTE # 218 -PORT # 218 -BYTE # 219 -PORT # 218 -BYTE # 220 -PORT # 218 -BYTE # 221 -PORT # 218 -BYTE # 222 -PORT # 218 -BYTE # 223 -PORT # 218 -BYTE # 224 -PORT # 218 -BYTE # 225 -PORT # 218 -BYTE # 226 -PORT # 218 -BYTE # 227 -PORT # 218 -BYTE # 228 -PORT # 218 -BYTE # 229 -PORT # 218 -BYTE # 230 -PORT # 218 -BYTE # 231 -PORT # 218 -BYTE # 232 -PORT # 218 -BYTE # 233 -PORT # 218 -BYTE # 234 -PORT # 218 -BYTE # 235 -PORT # 218 -BYTE # 236 -PORT # 218 -BYTE # 237 -PORT # 218 -BYTE # 238 -PORT # 218 -BYTE # 239 -PORT # 218 -BYTE # 240 -PORT # 218 -BYTE # 241 -PORT # 218 -BYTE # 242 -PORT # 218 -BYTE # 243 -PORT # 218 -BYTE # 244 -PORT # 218 -BYTE # 245 -PORT # 218 -BYTE # 246 -PORT # 218 -BYTE # 247 -PORT # 218 -BYTE # 248 -PORT # 218 -BYTE # 249 -PORT # 218 -BYTE # 250 -PORT # 218 -BYTE # 251 -PORT # 218 -BYTE # 252 -PORT # 218 -BYTE # 253 -PORT # 218 -BYTE # 254 -PORT # 218 -BYTE # 255 -PORT # 219 -BYTE # 0 -PORT # 219 -BYTE # 1 -PORT # 219 -BYTE # 2 -PORT # 219 -BYTE # 3 -PORT # 219 -BYTE # 4 -PORT # 219 -BYTE # 5 -PORT # 219 -BYTE # 6 -PORT # 219 -BYTE # 7 -PORT # 219 -BYTE # 8 -PORT # 219 -BYTE # 9 -PORT # 219 -BYTE # 10 -PORT # 219 -BYTE # 11 -PORT # 219 -BYTE # 12 -PORT # 219 -BYTE # 13 -PORT # 219 -BYTE # 14 -PORT # 219 -BYTE # 15 -PORT # 219 -BYTE # 16 -PORT # 219 -BYTE # 17 -PORT # 219 -BYTE # 18 -PORT # 219 -BYTE # 19 -PORT # 219 -BYTE # 20 -PORT # 219 -BYTE # 21 -PORT # 219 -BYTE # 22 -PORT # 219 -BYTE # 23 -PORT # 219 -BYTE # 24 -PORT # 219 -BYTE # 25 -PORT # 219 -BYTE # 26 -PORT # 219 -BYTE # 27 -PORT # 219 -BYTE # 28 -PORT # 219 -BYTE # 29 -PORT # 219 -BYTE # 30 -PORT # 219 -BYTE # 31 -PORT # 219 -BYTE # 32 -PORT # 219 -BYTE # 33 -PORT # 219 -BYTE # 34 -PORT # 219 -BYTE # 35 -PORT # 219 -BYTE # 36 -PORT # 219 -BYTE # 37 -PORT # 219 -BYTE # 38 -PORT # 219 -BYTE # 39 -PORT # 219 -BYTE # 40 -PORT # 219 -BYTE # 41 -PORT # 219 -BYTE # 42 -PORT # 219 -BYTE # 43 -PORT # 219 -BYTE # 44 -PORT # 219 -BYTE # 45 -PORT # 219 -BYTE # 46 -PORT # 219 -BYTE # 47 -PORT # 219 -BYTE # 48 -PORT # 219 -BYTE # 49 -PORT # 219 -BYTE # 50 -PORT # 219 -BYTE # 51 -PORT # 219 -BYTE # 52 -PORT # 219 -BYTE # 53 -PORT # 219 -BYTE # 54 -PORT # 219 -BYTE # 55 -PORT # 219 -BYTE # 56 -PORT # 219 -BYTE # 57 -PORT # 219 -BYTE # 58 -PORT # 219 -BYTE # 59 -PORT # 219 -BYTE # 60 -PORT # 219 -BYTE # 61 -PORT # 219 -BYTE # 62 -PORT # 219 -BYTE # 63 -PORT # 219 -BYTE # 64 -PORT # 219 -BYTE # 65 -PORT # 219 -BYTE # 66 -PORT # 219 -BYTE # 67 -PORT # 219 -BYTE # 68 -PORT # 219 -BYTE # 69 -PORT # 219 -BYTE # 70 -PORT # 219 -BYTE # 71 -PORT # 219 -BYTE # 72 -PORT # 219 -BYTE # 73 -PORT # 219 -BYTE # 74 -PORT # 219 -BYTE # 75 -PORT # 219 -BYTE # 76 -PORT # 219 -BYTE # 77 -PORT # 219 -BYTE # 78 -PORT # 219 -BYTE # 79 -PORT # 219 -BYTE # 80 -PORT # 219 -BYTE # 81 -PORT # 219 -BYTE # 82 -PORT # 219 -BYTE # 83 -PORT # 219 -BYTE # 84 -PORT # 219 -BYTE # 85 -PORT # 219 -BYTE # 86 -PORT # 219 -BYTE # 87 -PORT # 219 -BYTE # 88 -PORT # 219 -BYTE # 89 -PORT # 219 -BYTE # 90 -PORT # 219 -BYTE # 91 -PORT # 219 -BYTE # 92 -PORT # 219 -BYTE # 93 -PORT # 219 -BYTE # 94 -PORT # 219 -BYTE # 95 -PORT # 219 -BYTE # 96 -PORT # 219 -BYTE # 97 -PORT # 219 -BYTE # 98 -PORT # 219 -BYTE # 99 -PORT # 219 -BYTE # 100 -PORT # 219 -BYTE # 101 -PORT # 219 -BYTE # 102 -PORT # 219 -BYTE # 103 -PORT # 219 -BYTE # 104 -PORT # 219 -BYTE # 105 -PORT # 219 -BYTE # 106 -PORT # 219 -BYTE # 107 -PORT # 219 -BYTE # 108 -PORT # 219 -BYTE # 109 -PORT # 219 -BYTE # 110 -PORT # 219 -BYTE # 111 -PORT # 219 -BYTE # 112 -PORT # 219 -BYTE # 113 -PORT # 219 -BYTE # 114 -PORT # 219 -BYTE # 115 -PORT # 219 -BYTE # 116 -PORT # 219 -BYTE # 117 -PORT # 219 -BYTE # 118 -PORT # 219 -BYTE # 119 -PORT # 219 -BYTE # 120 -PORT # 219 -BYTE # 121 -PORT # 219 -BYTE # 122 -PORT # 219 -BYTE # 123 -PORT # 219 -BYTE # 124 -PORT # 219 -BYTE # 125 -PORT # 219 -BYTE # 126 -PORT # 219 -BYTE # 127 -PORT # 219 -BYTE # 128 -PORT # 219 -BYTE # 129 -PORT # 219 -BYTE # 130 -PORT # 219 -BYTE # 131 -PORT # 219 -BYTE # 132 -PORT # 219 -BYTE # 133 -PORT # 219 -BYTE # 134 -PORT # 219 -BYTE # 135 -PORT # 219 -BYTE # 136 -PORT # 219 -BYTE # 137 -PORT # 219 -BYTE # 138 -PORT # 219 -BYTE # 139 -PORT # 219 -BYTE # 140 -PORT # 219 -BYTE # 141 -PORT # 219 -BYTE # 142 -PORT # 219 -BYTE # 143 -PORT # 219 -BYTE # 144 -PORT # 219 -BYTE # 145 -PORT # 219 -BYTE # 146 -PORT # 219 -BYTE # 147 -PORT # 219 -BYTE # 148 -PORT # 219 -BYTE # 149 -PORT # 219 -BYTE # 150 -PORT # 219 -BYTE # 151 -PORT # 219 -BYTE # 152 -PORT # 219 -BYTE # 153 -PORT # 219 -BYTE # 154 -PORT # 219 -BYTE # 155 -PORT # 219 -BYTE # 156 -PORT # 219 -BYTE # 157 -PORT # 219 -BYTE # 158 -PORT # 219 -BYTE # 159 -PORT # 219 -BYTE # 160 -PORT # 219 -BYTE # 161 -PORT # 219 -BYTE # 162 -PORT # 219 -BYTE # 163 -PORT # 219 -BYTE # 164 -PORT # 219 -BYTE # 165 -PORT # 219 -BYTE # 166 -PORT # 219 -BYTE # 167 -PORT # 219 -BYTE # 168 -PORT # 219 -BYTE # 169 -PORT # 219 -BYTE # 170 -PORT # 219 -BYTE # 171 -PORT # 219 -BYTE # 172 -PORT # 219 -BYTE # 173 -PORT # 219 -BYTE # 174 -PORT # 219 -BYTE # 175 -PORT # 219 -BYTE # 176 -PORT # 219 -BYTE # 177 -PORT # 219 -BYTE # 178 -PORT # 219 -BYTE # 179 -PORT # 219 -BYTE # 180 -PORT # 219 -BYTE # 181 -PORT # 219 -BYTE # 182 -PORT # 219 -BYTE # 183 -PORT # 219 -BYTE # 184 -PORT # 219 -BYTE # 185 -PORT # 219 -BYTE # 186 -PORT # 219 -BYTE # 187 -PORT # 219 -BYTE # 188 -PORT # 219 -BYTE # 189 -PORT # 219 -BYTE # 190 -PORT # 219 -BYTE # 191 -PORT # 219 -BYTE # 192 -PORT # 219 -BYTE # 193 -PORT # 219 -BYTE # 194 -PORT # 219 -BYTE # 195 -PORT # 219 -BYTE # 196 -PORT # 219 -BYTE # 197 -PORT # 219 -BYTE # 198 -PORT # 219 -BYTE # 199 -PORT # 219 -BYTE # 200 -PORT # 219 -BYTE # 201 -PORT # 219 -BYTE # 202 -PORT # 219 -BYTE # 203 -PORT # 219 -BYTE # 204 -PORT # 219 -BYTE # 205 -PORT # 219 -BYTE # 206 -PORT # 219 -BYTE # 207 -PORT # 219 -BYTE # 208 -PORT # 219 -BYTE # 209 -PORT # 219 -BYTE # 210 -PORT # 219 -BYTE # 211 -PORT # 219 -BYTE # 212 -PORT # 219 -BYTE # 213 -PORT # 219 -BYTE # 214 -PORT # 219 -BYTE # 215 -PORT # 219 -BYTE # 216 -PORT # 219 -BYTE # 217 -PORT # 219 -BYTE # 218 -PORT # 219 -BYTE # 219 -PORT # 219 -BYTE # 220 -PORT # 219 -BYTE # 221 -PORT # 219 -BYTE # 222 -PORT # 219 -BYTE # 223 -PORT # 219 -BYTE # 224 -PORT # 219 -BYTE # 225 -PORT # 219 -BYTE # 226 -PORT # 219 -BYTE # 227 -PORT # 219 -BYTE # 228 -PORT # 219 -BYTE # 229 -PORT # 219 -BYTE # 230 -PORT # 219 -BYTE # 231 -PORT # 219 -BYTE # 232 -PORT # 219 -BYTE # 233 -PORT # 219 -BYTE # 234 -PORT # 219 -BYTE # 235 -PORT # 219 -BYTE # 236 -PORT # 219 -BYTE # 237 -PORT # 219 -BYTE # 238 -PORT # 219 -BYTE # 239 -PORT # 219 -BYTE # 240 -PORT # 219 -BYTE # 241 -PORT # 219 -BYTE # 242 -PORT # 219 -BYTE # 243 -PORT # 219 -BYTE # 244 -PORT # 219 -BYTE # 245 -PORT # 219 -BYTE # 246 -PORT # 219 -BYTE # 247 -PORT # 219 -BYTE # 248 -PORT # 219 -BYTE # 249 -PORT # 219 -BYTE # 250 -PORT # 219 -BYTE # 251 -PORT # 219 -BYTE # 252 -PORT # 219 -BYTE # 253 -PORT # 219 -BYTE # 254 -PORT # 219 -BYTE # 255 -PORT # 220 -BYTE # 0 -PORT # 220 -BYTE # 1 -PORT # 220 -BYTE # 2 -PORT # 220 -BYTE # 3 -PORT # 220 -BYTE # 4 -PORT # 220 -BYTE # 5 -PORT # 220 -BYTE # 6 -PORT # 220 -BYTE # 7 -PORT # 220 -BYTE # 8 -PORT # 220 -BYTE # 9 -PORT # 220 -BYTE # 10 -PORT # 220 -BYTE # 11 -PORT # 220 -BYTE # 12 -PORT # 220 -BYTE # 13 -PORT # 220 -BYTE # 14 -PORT # 220 -BYTE # 15 -PORT # 220 -BYTE # 16 -PORT # 220 -BYTE # 17 -PORT # 220 -BYTE # 18 -PORT # 220 -BYTE # 19 -PORT # 220 -BYTE # 20 -PORT # 220 -BYTE # 21 -PORT # 220 -BYTE # 22 -PORT # 220 -BYTE # 23 -PORT # 220 -BYTE # 24 -PORT # 220 -BYTE # 25 -PORT # 220 -BYTE # 26 -PORT # 220 -BYTE # 27 -PORT # 220 -BYTE # 28 -PORT # 220 -BYTE # 29 -PORT # 220 -BYTE # 30 -PORT # 220 -BYTE # 31 -PORT # 220 -BYTE # 32 -PORT # 220 -BYTE # 33 -PORT # 220 -BYTE # 34 -PORT # 220 -BYTE # 35 -PORT # 220 -BYTE # 36 -PORT # 220 -BYTE # 37 -PORT # 220 -BYTE # 38 -PORT # 220 -BYTE # 39 -PORT # 220 -BYTE # 40 -PORT # 220 -BYTE # 41 -PORT # 220 -BYTE # 42 -PORT # 220 -BYTE # 43 -PORT # 220 -BYTE # 44 -PORT # 220 -BYTE # 45 -PORT # 220 -BYTE # 46 -PORT # 220 -BYTE # 47 -PORT # 220 -BYTE # 48 -PORT # 220 -BYTE # 49 -PORT # 220 -BYTE # 50 -PORT # 220 -BYTE # 51 -PORT # 220 -BYTE # 52 -PORT # 220 -BYTE # 53 -PORT # 220 -BYTE # 54 -PORT # 220 -BYTE # 55 -PORT # 220 -BYTE # 56 -PORT # 220 -BYTE # 57 -PORT # 220 -BYTE # 58 -PORT # 220 -BYTE # 59 -PORT # 220 -BYTE # 60 -PORT # 220 -BYTE # 61 -PORT # 220 -BYTE # 62 -PORT # 220 -BYTE # 63 -PORT # 220 -BYTE # 64 -PORT # 220 -BYTE # 65 -PORT # 220 -BYTE # 66 -PORT # 220 -BYTE # 67 -PORT # 220 -BYTE # 68 -PORT # 220 -BYTE # 69 -PORT # 220 -BYTE # 70 -PORT # 220 -BYTE # 71 -PORT # 220 -BYTE # 72 -PORT # 220 -BYTE # 73 -PORT # 220 -BYTE # 74 -PORT # 220 -BYTE # 75 -PORT # 220 -BYTE # 76 -PORT # 220 -BYTE # 77 -PORT # 220 -BYTE # 78 -PORT # 220 -BYTE # 79 -PORT # 220 -BYTE # 80 -PORT # 220 -BYTE # 81 -PORT # 220 -BYTE # 82 -PORT # 220 -BYTE # 83 -PORT # 220 -BYTE # 84 -PORT # 220 -BYTE # 85 -PORT # 220 -BYTE # 86 -PORT # 220 -BYTE # 87 -PORT # 220 -BYTE # 88 -PORT # 220 -BYTE # 89 -PORT # 220 -BYTE # 90 -PORT # 220 -BYTE # 91 -PORT # 220 -BYTE # 92 -PORT # 220 -BYTE # 93 -PORT # 220 -BYTE # 94 -PORT # 220 -BYTE # 95 -PORT # 220 -BYTE # 96 -PORT # 220 -BYTE # 97 -PORT # 220 -BYTE # 98 -PORT # 220 -BYTE # 99 -PORT # 220 -BYTE # 100 -PORT # 220 -BYTE # 101 -PORT # 220 -BYTE # 102 -PORT # 220 -BYTE # 103 -PORT # 220 -BYTE # 104 -PORT # 220 -BYTE # 105 -PORT # 220 -BYTE # 106 -PORT # 220 -BYTE # 107 -PORT # 220 -BYTE # 108 -PORT # 220 -BYTE # 109 -PORT # 220 -BYTE # 110 -PORT # 220 -BYTE # 111 -PORT # 220 -BYTE # 112 -PORT # 220 -BYTE # 113 -PORT # 220 -BYTE # 114 -PORT # 220 -BYTE # 115 -PORT # 220 -BYTE # 116 -PORT # 220 -BYTE # 117 -PORT # 220 -BYTE # 118 -PORT # 220 -BYTE # 119 -PORT # 220 -BYTE # 120 -PORT # 220 -BYTE # 121 -PORT # 220 -BYTE # 122 -PORT # 220 -BYTE # 123 -PORT # 220 -BYTE # 124 -PORT # 220 -BYTE # 125 -PORT # 220 -BYTE # 126 -PORT # 220 -BYTE # 127 -PORT # 220 -BYTE # 128 -PORT # 220 -BYTE # 129 -PORT # 220 -BYTE # 130 -PORT # 220 -BYTE # 131 -PORT # 220 -BYTE # 132 -PORT # 220 -BYTE # 133 -PORT # 220 -BYTE # 134 -PORT # 220 -BYTE # 135 -PORT # 220 -BYTE # 136 -PORT # 220 -BYTE # 137 -PORT # 220 -BYTE # 138 -PORT # 220 -BYTE # 139 -PORT # 220 -BYTE # 140 -PORT # 220 -BYTE # 141 -PORT # 220 -BYTE # 142 -PORT # 220 -BYTE # 143 -PORT # 220 -BYTE # 144 -PORT # 220 -BYTE # 145 -PORT # 220 -BYTE # 146 -PORT # 220 -BYTE # 147 -PORT # 220 -BYTE # 148 -PORT # 220 -BYTE # 149 -PORT # 220 -BYTE # 150 -PORT # 220 -BYTE # 151 -PORT # 220 -BYTE # 152 -PORT # 220 -BYTE # 153 -PORT # 220 -BYTE # 154 -PORT # 220 -BYTE # 155 -PORT # 220 -BYTE # 156 -PORT # 220 -BYTE # 157 -PORT # 220 -BYTE # 158 -PORT # 220 -BYTE # 159 -PORT # 220 -BYTE # 160 -PORT # 220 -BYTE # 161 -PORT # 220 -BYTE # 162 -PORT # 220 -BYTE # 163 -PORT # 220 -BYTE # 164 -PORT # 220 -BYTE # 165 -PORT # 220 -BYTE # 166 -PORT # 220 -BYTE # 167 -PORT # 220 -BYTE # 168 -PORT # 220 -BYTE # 169 -PORT # 220 -BYTE # 170 -PORT # 220 -BYTE # 171 -PORT # 220 -BYTE # 172 -PORT # 220 -BYTE # 173 -PORT # 220 -BYTE # 174 -PORT # 220 -BYTE # 175 -PORT # 220 -BYTE # 176 -PORT # 220 -BYTE # 177 -PORT # 220 -BYTE # 178 -PORT # 220 -BYTE # 179 -PORT # 220 -BYTE # 180 -PORT # 220 -BYTE # 181 -PORT # 220 -BYTE # 182 -PORT # 220 -BYTE # 183 -PORT # 220 -BYTE # 184 -PORT # 220 -BYTE # 185 -PORT # 220 -BYTE # 186 -PORT # 220 -BYTE # 187 -PORT # 220 -BYTE # 188 -PORT # 220 -BYTE # 189 -PORT # 220 -BYTE # 190 -PORT # 220 -BYTE # 191 -PORT # 220 -BYTE # 192 -PORT # 220 -BYTE # 193 -PORT # 220 -BYTE # 194 -PORT # 220 -BYTE # 195 -PORT # 220 -BYTE # 196 -PORT # 220 -BYTE # 197 -PORT # 220 -BYTE # 198 -PORT # 220 -BYTE # 199 -PORT # 220 -BYTE # 200 -PORT # 220 -BYTE # 201 -PORT # 220 -BYTE # 202 -PORT # 220 -BYTE # 203 -PORT # 220 -BYTE # 204 -PORT # 220 -BYTE # 205 -PORT # 220 -BYTE # 206 -PORT # 220 -BYTE # 207 -PORT # 220 -BYTE # 208 -PORT # 220 -BYTE # 209 -PORT # 220 -BYTE # 210 -PORT # 220 -BYTE # 211 -PORT # 220 -BYTE # 212 -PORT # 220 -BYTE # 213 -PORT # 220 -BYTE # 214 -PORT # 220 -BYTE # 215 -PORT # 220 -BYTE # 216 -PORT # 220 -BYTE # 217 -PORT # 220 -BYTE # 218 -PORT # 220 -BYTE # 219 -PORT # 220 -BYTE # 220 -PORT # 220 -BYTE # 221 -PORT # 220 -BYTE # 222 -PORT # 220 -BYTE # 223 -PORT # 220 -BYTE # 224 -PORT # 220 -BYTE # 225 -PORT # 220 -BYTE # 226 -PORT # 220 -BYTE # 227 -PORT # 220 -BYTE # 228 -PORT # 220 -BYTE # 229 -PORT # 220 -BYTE # 230 -PORT # 220 -BYTE # 231 -PORT # 220 -BYTE # 232 -PORT # 220 -BYTE # 233 -PORT # 220 -BYTE # 234 -PORT # 220 -BYTE # 235 -PORT # 220 -BYTE # 236 -PORT # 220 -BYTE # 237 -PORT # 220 -BYTE # 238 -PORT # 220 -BYTE # 239 -PORT # 220 -BYTE # 240 -PORT # 220 -BYTE # 241 -PORT # 220 -BYTE # 242 -PORT # 220 -BYTE # 243 -PORT # 220 -BYTE # 244 -PORT # 220 -BYTE # 245 -PORT # 220 -BYTE # 246 -PORT # 220 -BYTE # 247 -PORT # 220 -BYTE # 248 -PORT # 220 -BYTE # 249 -PORT # 220 -BYTE # 250 -PORT # 220 -BYTE # 251 -PORT # 220 -BYTE # 252 -PORT # 220 -BYTE # 253 -PORT # 220 -BYTE # 254 -PORT # 220 -BYTE # 255 -PORT # 221 -BYTE # 0 -PORT # 221 -BYTE # 1 -PORT # 221 -BYTE # 2 -PORT # 221 -BYTE # 3 -PORT # 221 -BYTE # 4 -PORT # 221 -BYTE # 5 -PORT # 221 -BYTE # 6 -PORT # 221 -BYTE # 7 -PORT # 221 -BYTE # 8 -PORT # 221 -BYTE # 9 -PORT # 221 -BYTE # 10 -PORT # 221 -BYTE # 11 -PORT # 221 -BYTE # 12 -PORT # 221 -BYTE # 13 -PORT # 221 -BYTE # 14 -PORT # 221 -BYTE # 15 -PORT # 221 -BYTE # 16 -PORT # 221 -BYTE # 17 -PORT # 221 -BYTE # 18 -PORT # 221 -BYTE # 19 -PORT # 221 -BYTE # 20 -PORT # 221 -BYTE # 21 -PORT # 221 -BYTE # 22 -PORT # 221 -BYTE # 23 -PORT # 221 -BYTE # 24 -PORT # 221 -BYTE # 25 -PORT # 221 -BYTE # 26 -PORT # 221 -BYTE # 27 -PORT # 221 -BYTE # 28 -PORT # 221 -BYTE # 29 -PORT # 221 -BYTE # 30 -PORT # 221 -BYTE # 31 -PORT # 221 -BYTE # 32 -PORT # 221 -BYTE # 33 -PORT # 221 -BYTE # 34 -PORT # 221 -BYTE # 35 -PORT # 221 -BYTE # 36 -PORT # 221 -BYTE # 37 -PORT # 221 -BYTE # 38 -PORT # 221 -BYTE # 39 -PORT # 221 -BYTE # 40 -PORT # 221 -BYTE # 41 -PORT # 221 -BYTE # 42 -PORT # 221 -BYTE # 43 -PORT # 221 -BYTE # 44 -PORT # 221 -BYTE # 45 -PORT # 221 -BYTE # 46 -PORT # 221 -BYTE # 47 -PORT # 221 -BYTE # 48 -PORT # 221 -BYTE # 49 -PORT # 221 -BYTE # 50 -PORT # 221 -BYTE # 51 -PORT # 221 -BYTE # 52 -PORT # 221 -BYTE # 53 -PORT # 221 -BYTE # 54 -PORT # 221 -BYTE # 55 -PORT # 221 -BYTE # 56 -PORT # 221 -BYTE # 57 -PORT # 221 -BYTE # 58 -PORT # 221 -BYTE # 59 -PORT # 221 -BYTE # 60 -PORT # 221 -BYTE # 61 -PORT # 221 -BYTE # 62 -PORT # 221 -BYTE # 63 -PORT # 221 -BYTE # 64 -PORT # 221 -BYTE # 65 -PORT # 221 -BYTE # 66 -PORT # 221 -BYTE # 67 -PORT # 221 -BYTE # 68 -PORT # 221 -BYTE # 69 -PORT # 221 -BYTE # 70 -PORT # 221 -BYTE # 71 -PORT # 221 -BYTE # 72 -PORT # 221 -BYTE # 73 -PORT # 221 -BYTE # 74 -PORT # 221 -BYTE # 75 -PORT # 221 -BYTE # 76 -PORT # 221 -BYTE # 77 -PORT # 221 -BYTE # 78 -PORT # 221 -BYTE # 79 -PORT # 221 -BYTE # 80 -PORT # 221 -BYTE # 81 -PORT # 221 -BYTE # 82 -PORT # 221 -BYTE # 83 -PORT # 221 -BYTE # 84 -PORT # 221 -BYTE # 85 -PORT # 221 -BYTE # 86 -PORT # 221 -BYTE # 87 -PORT # 221 -BYTE # 88 -PORT # 221 -BYTE # 89 -PORT # 221 -BYTE # 90 -PORT # 221 -BYTE # 91 -PORT # 221 -BYTE # 92 -PORT # 221 -BYTE # 93 -PORT # 221 -BYTE # 94 -PORT # 221 -BYTE # 95 -PORT # 221 -BYTE # 96 -PORT # 221 -BYTE # 97 -PORT # 221 -BYTE # 98 -PORT # 221 -BYTE # 99 -PORT # 221 -BYTE # 100 -PORT # 221 -BYTE # 101 -PORT # 221 -BYTE # 102 -PORT # 221 -BYTE # 103 -PORT # 221 -BYTE # 104 -PORT # 221 -BYTE # 105 -PORT # 221 -BYTE # 106 -PORT # 221 -BYTE # 107 -PORT # 221 -BYTE # 108 -PORT # 221 -BYTE # 109 -PORT # 221 -BYTE # 110 -PORT # 221 -BYTE # 111 -PORT # 221 -BYTE # 112 -PORT # 221 -BYTE # 113 -PORT # 221 -BYTE # 114 -PORT # 221 -BYTE # 115 -PORT # 221 -BYTE # 116 -PORT # 221 -BYTE # 117 -PORT # 221 -BYTE # 118 -PORT # 221 -BYTE # 119 -PORT # 221 -BYTE # 120 -PORT # 221 -BYTE # 121 -PORT # 221 -BYTE # 122 -PORT # 221 -BYTE # 123 -PORT # 221 -BYTE # 124 -PORT # 221 -BYTE # 125 -PORT # 221 -BYTE # 126 -PORT # 221 -BYTE # 127 -PORT # 221 -BYTE # 128 -PORT # 221 -BYTE # 129 -PORT # 221 -BYTE # 130 -PORT # 221 -BYTE # 131 -PORT # 221 -BYTE # 132 -PORT # 221 -BYTE # 133 -PORT # 221 -BYTE # 134 -PORT # 221 -BYTE # 135 -PORT # 221 -BYTE # 136 -PORT # 221 -BYTE # 137 -PORT # 221 -BYTE # 138 -PORT # 221 -BYTE # 139 -PORT # 221 -BYTE # 140 -PORT # 221 -BYTE # 141 -PORT # 221 -BYTE # 142 -PORT # 221 -BYTE # 143 -PORT # 221 -BYTE # 144 -PORT # 221 -BYTE # 145 -PORT # 221 -BYTE # 146 -PORT # 221 -BYTE # 147 -PORT # 221 -BYTE # 148 -PORT # 221 -BYTE # 149 -PORT # 221 -BYTE # 150 -PORT # 221 -BYTE # 151 -PORT # 221 -BYTE # 152 -PORT # 221 -BYTE # 153 -PORT # 221 -BYTE # 154 -PORT # 221 -BYTE # 155 -PORT # 221 -BYTE # 156 -PORT # 221 -BYTE # 157 -PORT # 221 -BYTE # 158 -PORT # 221 -BYTE # 159 -PORT # 221 -BYTE # 160 -PORT # 221 -BYTE # 161 -PORT # 221 -BYTE # 162 -PORT # 221 -BYTE # 163 -PORT # 221 -BYTE # 164 -PORT # 221 -BYTE # 165 -PORT # 221 -BYTE # 166 -PORT # 221 -BYTE # 167 -PORT # 221 -BYTE # 168 -PORT # 221 -BYTE # 169 -PORT # 221 -BYTE # 170 -PORT # 221 -BYTE # 171 -PORT # 221 -BYTE # 172 -PORT # 221 -BYTE # 173 -PORT # 221 -BYTE # 174 -PORT # 221 -BYTE # 175 -PORT # 221 -BYTE # 176 -PORT # 221 -BYTE # 177 -PORT # 221 -BYTE # 178 -PORT # 221 -BYTE # 179 -PORT # 221 -BYTE # 180 -PORT # 221 -BYTE # 181 -PORT # 221 -BYTE # 182 -PORT # 221 -BYTE # 183 -PORT # 221 -BYTE # 184 -PORT # 221 -BYTE # 185 -PORT # 221 -BYTE # 186 -PORT # 221 -BYTE # 187 -PORT # 221 -BYTE # 188 -PORT # 221 -BYTE # 189 -PORT # 221 -BYTE # 190 -PORT # 221 -BYTE # 191 -PORT # 221 -BYTE # 192 -PORT # 221 -BYTE # 193 -PORT # 221 -BYTE # 194 -PORT # 221 -BYTE # 195 -PORT # 221 -BYTE # 196 -PORT # 221 -BYTE # 197 -PORT # 221 -BYTE # 198 -PORT # 221 -BYTE # 199 -PORT # 221 -BYTE # 200 -PORT # 221 -BYTE # 201 -PORT # 221 -BYTE # 202 -PORT # 221 -BYTE # 203 -PORT # 221 -BYTE # 204 -PORT # 221 -BYTE # 205 -PORT # 221 -BYTE # 206 -PORT # 221 -BYTE # 207 -PORT # 221 -BYTE # 208 -PORT # 221 -BYTE # 209 -PORT # 221 -BYTE # 210 -PORT # 221 -BYTE # 211 -PORT # 221 -BYTE # 212 -PORT # 221 -BYTE # 213 -PORT # 221 -BYTE # 214 -PORT # 221 -BYTE # 215 -PORT # 221 -BYTE # 216 -PORT # 221 -BYTE # 217 -PORT # 221 -BYTE # 218 -PORT # 221 -BYTE # 219 -PORT # 221 -BYTE # 220 -PORT # 221 -BYTE # 221 -PORT # 221 -BYTE # 222 -PORT # 221 -BYTE # 223 -PORT # 221 -BYTE # 224 -PORT # 221 -BYTE # 225 -PORT # 221 -BYTE # 226 -PORT # 221 -BYTE # 227 -PORT # 221 -BYTE # 228 -PORT # 221 -BYTE # 229 -PORT # 221 -BYTE # 230 -PORT # 221 -BYTE # 231 -PORT # 221 -BYTE # 232 -PORT # 221 -BYTE # 233 -PORT # 221 -BYTE # 234 -PORT # 221 -BYTE # 235 -PORT # 221 -BYTE # 236 -PORT # 221 -BYTE # 237 -PORT # 221 -BYTE # 238 -PORT # 221 -BYTE # 239 -PORT # 221 -BYTE # 240 -PORT # 221 -BYTE # 241 -PORT # 221 -BYTE # 242 -PORT # 221 -BYTE # 243 -PORT # 221 -BYTE # 244 -PORT # 221 -BYTE # 245 -PORT # 221 -BYTE # 246 -PORT # 221 -BYTE # 247 -PORT # 221 -BYTE # 248 -PORT # 221 -BYTE # 249 -PORT # 221 -BYTE # 250 -PORT # 221 -BYTE # 251 -PORT # 221 -BYTE # 252 -PORT # 221 -BYTE # 253 -PORT # 221 -BYTE # 254 -PORT # 221 -BYTE # 255 -PORT # 222 -BYTE # 0 -PORT # 222 -BYTE # 1 -PORT # 222 -BYTE # 2 -PORT # 222 -BYTE # 3 -PORT # 222 -BYTE # 4 -PORT # 222 -BYTE # 5 -PORT # 222 -BYTE # 6 -PORT # 222 -BYTE # 7 -PORT # 222 -BYTE # 8 -PORT # 222 -BYTE # 9 -PORT # 222 -BYTE # 10 -PORT # 222 -BYTE # 11 -PORT # 222 -BYTE # 12 -PORT # 222 -BYTE # 13 -PORT # 222 -BYTE # 14 -PORT # 222 -BYTE # 15 -PORT # 222 -BYTE # 16 -PORT # 222 -BYTE # 17 -PORT # 222 -BYTE # 18 -PORT # 222 -BYTE # 19 -PORT # 222 -BYTE # 20 -PORT # 222 -BYTE # 21 -PORT # 222 -BYTE # 22 -PORT # 222 -BYTE # 23 -PORT # 222 -BYTE # 24 -PORT # 222 -BYTE # 25 -PORT # 222 -BYTE # 26 -PORT # 222 -BYTE # 27 -PORT # 222 -BYTE # 28 -PORT # 222 -BYTE # 29 -PORT # 222 -BYTE # 30 -PORT # 222 -BYTE # 31 -PORT # 222 -BYTE # 32 -PORT # 222 -BYTE # 33 -PORT # 222 -BYTE # 34 -PORT # 222 -BYTE # 35 -PORT # 222 -BYTE # 36 -PORT # 222 -BYTE # 37 -PORT # 222 -BYTE # 38 -PORT # 222 -BYTE # 39 -PORT # 222 -BYTE # 40 -PORT # 222 -BYTE # 41 -PORT # 222 -BYTE # 42 -PORT # 222 -BYTE # 43 -PORT # 222 -BYTE # 44 -PORT # 222 -BYTE # 45 -PORT # 222 -BYTE # 46 -PORT # 222 -BYTE # 47 -PORT # 222 -BYTE # 48 -PORT # 222 -BYTE # 49 -PORT # 222 -BYTE # 50 -PORT # 222 -BYTE # 51 -PORT # 222 -BYTE # 52 -PORT # 222 -BYTE # 53 -PORT # 222 -BYTE # 54 -PORT # 222 -BYTE # 55 -PORT # 222 -BYTE # 56 -PORT # 222 -BYTE # 57 -PORT # 222 -BYTE # 58 -PORT # 222 -BYTE # 59 -PORT # 222 -BYTE # 60 -PORT # 222 -BYTE # 61 -PORT # 222 -BYTE # 62 -PORT # 222 -BYTE # 63 -PORT # 222 -BYTE # 64 -PORT # 222 -BYTE # 65 -PORT # 222 -BYTE # 66 -PORT # 222 -BYTE # 67 -PORT # 222 -BYTE # 68 -PORT # 222 -BYTE # 69 -PORT # 222 -BYTE # 70 -PORT # 222 -BYTE # 71 -PORT # 222 -BYTE # 72 -PORT # 222 -BYTE # 73 -PORT # 222 -BYTE # 74 -PORT # 222 -BYTE # 75 -PORT # 222 -BYTE # 76 -PORT # 222 -BYTE # 77 -PORT # 222 -BYTE # 78 -PORT # 222 -BYTE # 79 -PORT # 222 -BYTE # 80 -PORT # 222 -BYTE # 81 -PORT # 222 -BYTE # 82 -PORT # 222 -BYTE # 83 -PORT # 222 -BYTE # 84 -PORT # 222 -BYTE # 85 -PORT # 222 -BYTE # 86 -PORT # 222 -BYTE # 87 -PORT # 222 -BYTE # 88 -PORT # 222 -BYTE # 89 -PORT # 222 -BYTE # 90 -PORT # 222 -BYTE # 91 -PORT # 222 -BYTE # 92 -PORT # 222 -BYTE # 93 -PORT # 222 -BYTE # 94 -PORT # 222 -BYTE # 95 -PORT # 222 -BYTE # 96 -PORT # 222 -BYTE # 97 -PORT # 222 -BYTE # 98 -PORT # 222 -BYTE # 99 -PORT # 222 -BYTE # 100 -PORT # 222 -BYTE # 101 -PORT # 222 -BYTE # 102 -PORT # 222 -BYTE # 103 -PORT # 222 -BYTE # 104 -PORT # 222 -BYTE # 105 -PORT # 222 -BYTE # 106 -PORT # 222 -BYTE # 107 -PORT # 222 -BYTE # 108 -PORT # 222 -BYTE # 109 -PORT # 222 -BYTE # 110 -PORT # 222 -BYTE # 111 -PORT # 222 -BYTE # 112 -PORT # 222 -BYTE # 113 -PORT # 222 -BYTE # 114 -PORT # 222 -BYTE # 115 -PORT # 222 -BYTE # 116 -PORT # 222 -BYTE # 117 -PORT # 222 -BYTE # 118 -PORT # 222 -BYTE # 119 -PORT # 222 -BYTE # 120 -PORT # 222 -BYTE # 121 -PORT # 222 -BYTE # 122 -PORT # 222 -BYTE # 123 -PORT # 222 -BYTE # 124 -PORT # 222 -BYTE # 125 -PORT # 222 -BYTE # 126 -PORT # 222 -BYTE # 127 -PORT # 222 -BYTE # 128 -PORT # 222 -BYTE # 129 -PORT # 222 -BYTE # 130 -PORT # 222 -BYTE # 131 -PORT # 222 -BYTE # 132 -PORT # 222 -BYTE # 133 -PORT # 222 -BYTE # 134 -PORT # 222 -BYTE # 135 -PORT # 222 -BYTE # 136 -PORT # 222 -BYTE # 137 -PORT # 222 -BYTE # 138 -PORT # 222 -BYTE # 139 -PORT # 222 -BYTE # 140 -PORT # 222 -BYTE # 141 -PORT # 222 -BYTE # 142 -PORT # 222 -BYTE # 143 -PORT # 222 -BYTE # 144 -PORT # 222 -BYTE # 145 -PORT # 222 -BYTE # 146 -PORT # 222 -BYTE # 147 -PORT # 222 -BYTE # 148 -PORT # 222 -BYTE # 149 -PORT # 222 -BYTE # 150 -PORT # 222 -BYTE # 151 -PORT # 222 -BYTE # 152 -PORT # 222 -BYTE # 153 -PORT # 222 -BYTE # 154 -PORT # 222 -BYTE # 155 -PORT # 222 -BYTE # 156 -PORT # 222 -BYTE # 157 -PORT # 222 -BYTE # 158 -PORT # 222 -BYTE # 159 -PORT # 222 -BYTE # 160 -PORT # 222 -BYTE # 161 -PORT # 222 -BYTE # 162 -PORT # 222 -BYTE # 163 -PORT # 222 -BYTE # 164 -PORT # 222 -BYTE # 165 -PORT # 222 -BYTE # 166 -PORT # 222 -BYTE # 167 -PORT # 222 -BYTE # 168 -PORT # 222 -BYTE # 169 -PORT # 222 -BYTE # 170 -PORT # 222 -BYTE # 171 -PORT # 222 -BYTE # 172 -PORT # 222 -BYTE # 173 -PORT # 222 -BYTE # 174 -PORT # 222 -BYTE # 175 -PORT # 222 -BYTE # 176 -PORT # 222 -BYTE # 177 -PORT # 222 -BYTE # 178 -PORT # 222 -BYTE # 179 -PORT # 222 -BYTE # 180 -PORT # 222 -BYTE # 181 -PORT # 222 -BYTE # 182 -PORT # 222 -BYTE # 183 -PORT # 222 -BYTE # 184 -PORT # 222 -BYTE # 185 -PORT # 222 -BYTE # 186 -PORT # 222 -BYTE # 187 -PORT # 222 -BYTE # 188 -PORT # 222 -BYTE # 189 -PORT # 222 -BYTE # 190 -PORT # 222 -BYTE # 191 -PORT # 222 -BYTE # 192 -PORT # 222 -BYTE # 193 -PORT # 222 -BYTE # 194 -PORT # 222 -BYTE # 195 -PORT # 222 -BYTE # 196 -PORT # 222 -BYTE # 197 -PORT # 222 -BYTE # 198 -PORT # 222 -BYTE # 199 -PORT # 222 -BYTE # 200 -PORT # 222 -BYTE # 201 -PORT # 222 -BYTE # 202 -PORT # 222 -BYTE # 203 -PORT # 222 -BYTE # 204 -PORT # 222 -BYTE # 205 -PORT # 222 -BYTE # 206 -PORT # 222 -BYTE # 207 -PORT # 222 -BYTE # 208 -PORT # 222 -BYTE # 209 -PORT # 222 -BYTE # 210 -PORT # 222 -BYTE # 211 -PORT # 222 -BYTE # 212 -PORT # 222 -BYTE # 213 -PORT # 222 -BYTE # 214 -PORT # 222 -BYTE # 215 -PORT # 222 -BYTE # 216 -PORT # 222 -BYTE # 217 -PORT # 222 -BYTE # 218 -PORT # 222 -BYTE # 219 -PORT # 222 -BYTE # 220 -PORT # 222 -BYTE # 221 -PORT # 222 -BYTE # 222 -PORT # 222 -BYTE # 223 -PORT # 222 -BYTE # 224 -PORT # 222 -BYTE # 225 -PORT # 222 -BYTE # 226 -PORT # 222 -BYTE # 227 -PORT # 222 -BYTE # 228 -PORT # 222 -BYTE # 229 -PORT # 222 -BYTE # 230 -PORT # 222 -BYTE # 231 -PORT # 222 -BYTE # 232 -PORT # 222 -BYTE # 233 -PORT # 222 -BYTE # 234 -PORT # 222 -BYTE # 235 -PORT # 222 -BYTE # 236 -PORT # 222 -BYTE # 237 -PORT # 222 -BYTE # 238 -PORT # 222 -BYTE # 239 -PORT # 222 -BYTE # 240 -PORT # 222 -BYTE # 241 -PORT # 222 -BYTE # 242 -PORT # 222 -BYTE # 243 -PORT # 222 -BYTE # 244 -PORT # 222 -BYTE # 245 -PORT # 222 -BYTE # 246 -PORT # 222 -BYTE # 247 -PORT # 222 -BYTE # 248 -PORT # 222 -BYTE # 249 -PORT # 222 -BYTE # 250 -PORT # 222 -BYTE # 251 -PORT # 222 -BYTE # 252 -PORT # 222 -BYTE # 253 -PORT # 222 -BYTE # 254 -PORT # 222 -BYTE # 255 -PORT # 223 -BYTE # 0 -PORT # 223 -BYTE # 1 -PORT # 223 -BYTE # 2 -PORT # 223 -BYTE # 3 -PORT # 223 -BYTE # 4 -PORT # 223 -BYTE # 5 -PORT # 223 -BYTE # 6 -PORT # 223 -BYTE # 7 -PORT # 223 -BYTE # 8 -PORT # 223 -BYTE # 9 -PORT # 223 -BYTE # 10 -PORT # 223 -BYTE # 11 -PORT # 223 -BYTE # 12 -PORT # 223 -BYTE # 13 -PORT # 223 -BYTE # 14 -PORT # 223 -BYTE # 15 -PORT # 223 -BYTE # 16 -PORT # 223 -BYTE # 17 -PORT # 223 -BYTE # 18 -PORT # 223 -BYTE # 19 -PORT # 223 -BYTE # 20 -PORT # 223 -BYTE # 21 -PORT # 223 -BYTE # 22 -PORT # 223 -BYTE # 23 -PORT # 223 -BYTE # 24 -PORT # 223 -BYTE # 25 -PORT # 223 -BYTE # 26 -PORT # 223 -BYTE # 27 -PORT # 223 -BYTE # 28 -PORT # 223 -BYTE # 29 -PORT # 223 -BYTE # 30 -PORT # 223 -BYTE # 31 -PORT # 223 -BYTE # 32 -PORT # 223 -BYTE # 33 -PORT # 223 -BYTE # 34 -PORT # 223 -BYTE # 35 -PORT # 223 -BYTE # 36 -PORT # 223 -BYTE # 37 -PORT # 223 -BYTE # 38 -PORT # 223 -BYTE # 39 -PORT # 223 -BYTE # 40 -PORT # 223 -BYTE # 41 -PORT # 223 -BYTE # 42 -PORT # 223 -BYTE # 43 -PORT # 223 -BYTE # 44 -PORT # 223 -BYTE # 45 -PORT # 223 -BYTE # 46 -PORT # 223 -BYTE # 47 -PORT # 223 -BYTE # 48 -PORT # 223 -BYTE # 49 -PORT # 223 -BYTE # 50 -PORT # 223 -BYTE # 51 -PORT # 223 -BYTE # 52 -PORT # 223 -BYTE # 53 -PORT # 223 -BYTE # 54 -PORT # 223 -BYTE # 55 -PORT # 223 -BYTE # 56 -PORT # 223 -BYTE # 57 -PORT # 223 -BYTE # 58 -PORT # 223 -BYTE # 59 -PORT # 223 -BYTE # 60 -PORT # 223 -BYTE # 61 -PORT # 223 -BYTE # 62 -PORT # 223 -BYTE # 63 -PORT # 223 -BYTE # 64 -PORT # 223 -BYTE # 65 -PORT # 223 -BYTE # 66 -PORT # 223 -BYTE # 67 -PORT # 223 -BYTE # 68 -PORT # 223 -BYTE # 69 -PORT # 223 -BYTE # 70 -PORT # 223 -BYTE # 71 -PORT # 223 -BYTE # 72 -PORT # 223 -BYTE # 73 -PORT # 223 -BYTE # 74 -PORT # 223 -BYTE # 75 -PORT # 223 -BYTE # 76 -PORT # 223 -BYTE # 77 -PORT # 223 -BYTE # 78 -PORT # 223 -BYTE # 79 -PORT # 223 -BYTE # 80 -PORT # 223 -BYTE # 81 -PORT # 223 -BYTE # 82 -PORT # 223 -BYTE # 83 -PORT # 223 -BYTE # 84 -PORT # 223 -BYTE # 85 -PORT # 223 -BYTE # 86 -PORT # 223 -BYTE # 87 -PORT # 223 -BYTE # 88 -PORT # 223 -BYTE # 89 -PORT # 223 -BYTE # 90 -PORT # 223 -BYTE # 91 -PORT # 223 -BYTE # 92 -PORT # 223 -BYTE # 93 -PORT # 223 -BYTE # 94 -PORT # 223 -BYTE # 95 -PORT # 223 -BYTE # 96 -PORT # 223 -BYTE # 97 -PORT # 223 -BYTE # 98 -PORT # 223 -BYTE # 99 -PORT # 223 -BYTE # 100 -PORT # 223 -BYTE # 101 -PORT # 223 -BYTE # 102 -PORT # 223 -BYTE # 103 -PORT # 223 -BYTE # 104 -PORT # 223 -BYTE # 105 -PORT # 223 -BYTE # 106 -PORT # 223 -BYTE # 107 -PORT # 223 -BYTE # 108 -PORT # 223 -BYTE # 109 -PORT # 223 -BYTE # 110 -PORT # 223 -BYTE # 111 -PORT # 223 -BYTE # 112 -PORT # 223 -BYTE # 113 -PORT # 223 -BYTE # 114 -PORT # 223 -BYTE # 115 -PORT # 223 -BYTE # 116 -PORT # 223 -BYTE # 117 -PORT # 223 -BYTE # 118 -PORT # 223 -BYTE # 119 -PORT # 223 -BYTE # 120 -PORT # 223 -BYTE # 121 -PORT # 223 -BYTE # 122 -PORT # 223 -BYTE # 123 -PORT # 223 -BYTE # 124 -PORT # 223 -BYTE # 125 -PORT # 223 -BYTE # 126 -PORT # 223 -BYTE # 127 -PORT # 223 -BYTE # 128 -PORT # 223 -BYTE # 129 -PORT # 223 -BYTE # 130 -PORT # 223 -BYTE # 131 -PORT # 223 -BYTE # 132 -PORT # 223 -BYTE # 133 -PORT # 223 -BYTE # 134 -PORT # 223 -BYTE # 135 -PORT # 223 -BYTE # 136 -PORT # 223 -BYTE # 137 -PORT # 223 -BYTE # 138 -PORT # 223 -BYTE # 139 -PORT # 223 -BYTE # 140 -PORT # 223 -BYTE # 141 -PORT # 223 -BYTE # 142 -PORT # 223 -BYTE # 143 -PORT # 223 -BYTE # 144 -PORT # 223 -BYTE # 145 -PORT # 223 -BYTE # 146 -PORT # 223 -BYTE # 147 -PORT # 223 -BYTE # 148 -PORT # 223 -BYTE # 149 -PORT # 223 -BYTE # 150 -PORT # 223 -BYTE # 151 -PORT # 223 -BYTE # 152 -PORT # 223 -BYTE # 153 -PORT # 223 -BYTE # 154 -PORT # 223 -BYTE # 155 -PORT # 223 -BYTE # 156 -PORT # 223 -BYTE # 157 -PORT # 223 -BYTE # 158 -PORT # 223 -BYTE # 159 -PORT # 223 -BYTE # 160 -PORT # 223 -BYTE # 161 -PORT # 223 -BYTE # 162 -PORT # 223 -BYTE # 163 -PORT # 223 -BYTE # 164 -PORT # 223 -BYTE # 165 -PORT # 223 -BYTE # 166 -PORT # 223 -BYTE # 167 -PORT # 223 -BYTE # 168 -PORT # 223 -BYTE # 169 -PORT # 223 -BYTE # 170 -PORT # 223 -BYTE # 171 -PORT # 223 -BYTE # 172 -PORT # 223 -BYTE # 173 -PORT # 223 -BYTE # 174 -PORT # 223 -BYTE # 175 -PORT # 223 -BYTE # 176 -PORT # 223 -BYTE # 177 -PORT # 223 -BYTE # 178 -PORT # 223 -BYTE # 179 -PORT # 223 -BYTE # 180 -PORT # 223 -BYTE # 181 -PORT # 223 -BYTE # 182 -PORT # 223 -BYTE # 183 -PORT # 223 -BYTE # 184 -PORT # 223 -BYTE # 185 -PORT # 223 -BYTE # 186 -PORT # 223 -BYTE # 187 -PORT # 223 -BYTE # 188 -PORT # 223 -BYTE # 189 -PORT # 223 -BYTE # 190 -PORT # 223 -BYTE # 191 -PORT # 223 -BYTE # 192 -PORT # 223 -BYTE # 193 -PORT # 223 -BYTE # 194 -PORT # 223 -BYTE # 195 -PORT # 223 -BYTE # 196 -PORT # 223 -BYTE # 197 -PORT # 223 -BYTE # 198 -PORT # 223 -BYTE # 199 -PORT # 223 -BYTE # 200 -PORT # 223 -BYTE # 201 -PORT # 223 -BYTE # 202 -PORT # 223 -BYTE # 203 -PORT # 223 -BYTE # 204 -PORT # 223 -BYTE # 205 -PORT # 223 -BYTE # 206 -PORT # 223 -BYTE # 207 -PORT # 223 -BYTE # 208 -PORT # 223 -BYTE # 209 -PORT # 223 -BYTE # 210 -PORT # 223 -BYTE # 211 -PORT # 223 -BYTE # 212 -PORT # 223 -BYTE # 213 -PORT # 223 -BYTE # 214 -PORT # 223 -BYTE # 215 -PORT # 223 -BYTE # 216 -PORT # 223 -BYTE # 217 -PORT # 223 -BYTE # 218 -PORT # 223 -BYTE # 219 -PORT # 223 -BYTE # 220 -PORT # 223 -BYTE # 221 -PORT # 223 -BYTE # 222 -PORT # 223 -BYTE # 223 -PORT # 223 -BYTE # 224 -PORT # 223 -BYTE # 225 -PORT # 223 -BYTE # 226 -PORT # 223 -BYTE # 227 -PORT # 223 -BYTE # 228 -PORT # 223 -BYTE # 229 -PORT # 223 -BYTE # 230 -PORT # 223 -BYTE # 231 -PORT # 223 -BYTE # 232 -PORT # 223 -BYTE # 233 -PORT # 223 -BYTE # 234 -PORT # 223 -BYTE # 235 -PORT # 223 -BYTE # 236 -PORT # 223 -BYTE # 237 -PORT # 223 -BYTE # 238 -PORT # 223 -BYTE # 239 -PORT # 223 -BYTE # 240 -PORT # 223 -BYTE # 241 -PORT # 223 -BYTE # 242 -PORT # 223 -BYTE # 243 -PORT # 223 -BYTE # 244 -PORT # 223 -BYTE # 245 -PORT # 223 -BYTE # 246 -PORT # 223 -BYTE # 247 -PORT # 223 -BYTE # 248 -PORT # 223 -BYTE # 249 -PORT # 223 -BYTE # 250 -PORT # 223 -BYTE # 251 -PORT # 223 -BYTE # 252 -PORT # 223 -BYTE # 253 -PORT # 223 -BYTE # 254 -PORT # 223 -BYTE # 255 -PORT # 224 -BYTE # 0 -PORT # 224 -BYTE # 1 -PORT # 224 -BYTE # 2 -PORT # 224 -BYTE # 3 -PORT # 224 -BYTE # 4 -PORT # 224 -BYTE # 5 -PORT # 224 -BYTE # 6 -PORT # 224 -BYTE # 7 -PORT # 224 -BYTE # 8 -PORT # 224 -BYTE # 9 -PORT # 224 -BYTE # 10 -PORT # 224 -BYTE # 11 -PORT # 224 -BYTE # 12 -PORT # 224 -BYTE # 13 -PORT # 224 -BYTE # 14 -PORT # 224 -BYTE # 15 -PORT # 224 -BYTE # 16 -PORT # 224 -BYTE # 17 -PORT # 224 -BYTE # 18 -PORT # 224 -BYTE # 19 -PORT # 224 -BYTE # 20 -PORT # 224 -BYTE # 21 -PORT # 224 -BYTE # 22 -PORT # 224 -BYTE # 23 -PORT # 224 -BYTE # 24 -PORT # 224 -BYTE # 25 -PORT # 224 -BYTE # 26 -PORT # 224 -BYTE # 27 -PORT # 224 -BYTE # 28 -PORT # 224 -BYTE # 29 -PORT # 224 -BYTE # 30 -PORT # 224 -BYTE # 31 -PORT # 224 -BYTE # 32 -PORT # 224 -BYTE # 33 -PORT # 224 -BYTE # 34 -PORT # 224 -BYTE # 35 -PORT # 224 -BYTE # 36 -PORT # 224 -BYTE # 37 -PORT # 224 -BYTE # 38 -PORT # 224 -BYTE # 39 -PORT # 224 -BYTE # 40 -PORT # 224 -BYTE # 41 -PORT # 224 -BYTE # 42 -PORT # 224 -BYTE # 43 -PORT # 224 -BYTE # 44 -PORT # 224 -BYTE # 45 -PORT # 224 -BYTE # 46 -PORT # 224 -BYTE # 47 -PORT # 224 -BYTE # 48 -PORT # 224 -BYTE # 49 -PORT # 224 -BYTE # 50 -PORT # 224 -BYTE # 51 -PORT # 224 -BYTE # 52 -PORT # 224 -BYTE # 53 -PORT # 224 -BYTE # 54 -PORT # 224 -BYTE # 55 -PORT # 224 -BYTE # 56 -PORT # 224 -BYTE # 57 -PORT # 224 -BYTE # 58 -PORT # 224 -BYTE # 59 -PORT # 224 -BYTE # 60 -PORT # 224 -BYTE # 61 -PORT # 224 -BYTE # 62 -PORT # 224 -BYTE # 63 -PORT # 224 -BYTE # 64 -PORT # 224 -BYTE # 65 -PORT # 224 -BYTE # 66 -PORT # 224 -BYTE # 67 -PORT # 224 -BYTE # 68 -PORT # 224 -BYTE # 69 -PORT # 224 -BYTE # 70 -PORT # 224 -BYTE # 71 -PORT # 224 -BYTE # 72 -PORT # 224 -BYTE # 73 -PORT # 224 -BYTE # 74 -PORT # 224 -BYTE # 75 -PORT # 224 -BYTE # 76 -PORT # 224 -BYTE # 77 -PORT # 224 -BYTE # 78 -PORT # 224 -BYTE # 79 -PORT # 224 -BYTE # 80 -PORT # 224 -BYTE # 81 -PORT # 224 -BYTE # 82 -PORT # 224 -BYTE # 83 -PORT # 224 -BYTE # 84 -PORT # 224 -BYTE # 85 -PORT # 224 -BYTE # 86 -PORT # 224 -BYTE # 87 -PORT # 224 -BYTE # 88 -PORT # 224 -BYTE # 89 -PORT # 224 -BYTE # 90 -PORT # 224 -BYTE # 91 -PORT # 224 -BYTE # 92 -PORT # 224 -BYTE # 93 -PORT # 224 -BYTE # 94 -PORT # 224 -BYTE # 95 -PORT # 224 -BYTE # 96 -PORT # 224 -BYTE # 97 -PORT # 224 -BYTE # 98 -PORT # 224 -BYTE # 99 -PORT # 224 -BYTE # 100 -PORT # 224 -BYTE # 101 -PORT # 224 -BYTE # 102 -PORT # 224 -BYTE # 103 -PORT # 224 -BYTE # 104 -PORT # 224 -BYTE # 105 -PORT # 224 -BYTE # 106 -PORT # 224 -BYTE # 107 -PORT # 224 -BYTE # 108 -PORT # 224 -BYTE # 109 -PORT # 224 -BYTE # 110 -PORT # 224 -BYTE # 111 -PORT # 224 -BYTE # 112 -PORT # 224 -BYTE # 113 -PORT # 224 -BYTE # 114 -PORT # 224 -BYTE # 115 -PORT # 224 -BYTE # 116 -PORT # 224 -BYTE # 117 -PORT # 224 -BYTE # 118 -PORT # 224 -BYTE # 119 -PORT # 224 -BYTE # 120 -PORT # 224 -BYTE # 121 -PORT # 224 -BYTE # 122 -PORT # 224 -BYTE # 123 -PORT # 224 -BYTE # 124 -PORT # 224 -BYTE # 125 -PORT # 224 -BYTE # 126 -PORT # 224 -BYTE # 127 -PORT # 224 -BYTE # 128 -PORT # 224 -BYTE # 129 -PORT # 224 -BYTE # 130 -PORT # 224 -BYTE # 131 -PORT # 224 -BYTE # 132 -PORT # 224 -BYTE # 133 -PORT # 224 -BYTE # 134 -PORT # 224 -BYTE # 135 -PORT # 224 -BYTE # 136 -PORT # 224 -BYTE # 137 -PORT # 224 -BYTE # 138 -PORT # 224 -BYTE # 139 -PORT # 224 -BYTE # 140 -PORT # 224 -BYTE # 141 -PORT # 224 -BYTE # 142 -PORT # 224 -BYTE # 143 -PORT # 224 -BYTE # 144 -PORT # 224 -BYTE # 145 -PORT # 224 -BYTE # 146 -PORT # 224 -BYTE # 147 -PORT # 224 -BYTE # 148 -PORT # 224 -BYTE # 149 -PORT # 224 -BYTE # 150 -PORT # 224 -BYTE # 151 -PORT # 224 -BYTE # 152 -PORT # 224 -BYTE # 153 -PORT # 224 -BYTE # 154 -PORT # 224 -BYTE # 155 -PORT # 224 -BYTE # 156 -PORT # 224 -BYTE # 157 -PORT # 224 -BYTE # 158 -PORT # 224 -BYTE # 159 -PORT # 224 -BYTE # 160 -PORT # 224 -BYTE # 161 -PORT # 224 -BYTE # 162 -PORT # 224 -BYTE # 163 -PORT # 224 -BYTE # 164 -PORT # 224 -BYTE # 165 -PORT # 224 -BYTE # 166 -PORT # 224 -BYTE # 167 -PORT # 224 -BYTE # 168 -PORT # 224 -BYTE # 169 -PORT # 224 -BYTE # 170 -PORT # 224 -BYTE # 171 -PORT # 224 -BYTE # 172 -PORT # 224 -BYTE # 173 -PORT # 224 -BYTE # 174 -PORT # 224 -BYTE # 175 -PORT # 224 -BYTE # 176 -PORT # 224 -BYTE # 177 -PORT # 224 -BYTE # 178 -PORT # 224 -BYTE # 179 -PORT # 224 -BYTE # 180 -PORT # 224 -BYTE # 181 -PORT # 224 -BYTE # 182 -PORT # 224 -BYTE # 183 -PORT # 224 -BYTE # 184 -PORT # 224 -BYTE # 185 -PORT # 224 -BYTE # 186 -PORT # 224 -BYTE # 187 -PORT # 224 -BYTE # 188 -PORT # 224 -BYTE # 189 -PORT # 224 -BYTE # 190 -PORT # 224 -BYTE # 191 -PORT # 224 -BYTE # 192 -PORT # 224 -BYTE # 193 -PORT # 224 -BYTE # 194 -PORT # 224 -BYTE # 195 -PORT # 224 -BYTE # 196 -PORT # 224 -BYTE # 197 -PORT # 224 -BYTE # 198 -PORT # 224 -BYTE # 199 -PORT # 224 -BYTE # 200 -PORT # 224 -BYTE # 201 -PORT # 224 -BYTE # 202 -PORT # 224 -BYTE # 203 -PORT # 224 -BYTE # 204 -PORT # 224 -BYTE # 205 -PORT # 224 -BYTE # 206 -PORT # 224 -BYTE # 207 -PORT # 224 -BYTE # 208 -PORT # 224 -BYTE # 209 -PORT # 224 -BYTE # 210 -PORT # 224 -BYTE # 211 -PORT # 224 -BYTE # 212 -PORT # 224 -BYTE # 213 -PORT # 224 -BYTE # 214 -PORT # 224 -BYTE # 215 -PORT # 224 -BYTE # 216 -PORT # 224 -BYTE # 217 -PORT # 224 -BYTE # 218 -PORT # 224 -BYTE # 219 -PORT # 224 -BYTE # 220 -PORT # 224 -BYTE # 221 -PORT # 224 -BYTE # 222 -PORT # 224 -BYTE # 223 -PORT # 224 -BYTE # 224 -PORT # 224 -BYTE # 225 -PORT # 224 -BYTE # 226 -PORT # 224 -BYTE # 227 -PORT # 224 -BYTE # 228 -PORT # 224 -BYTE # 229 -PORT # 224 -BYTE # 230 -PORT # 224 -BYTE # 231 -PORT # 224 -BYTE # 232 -PORT # 224 -BYTE # 233 -PORT # 224 -BYTE # 234 -PORT # 224 -BYTE # 235 -PORT # 224 -BYTE # 236 -PORT # 224 -BYTE # 237 -PORT # 224 -BYTE # 238 -PORT # 224 -BYTE # 239 -PORT # 224 -BYTE # 240 -PORT # 224 -BYTE # 241 -PORT # 224 -BYTE # 242 -PORT # 224 -BYTE # 243 -PORT # 224 -BYTE # 244 -PORT # 224 -BYTE # 245 -PORT # 224 -BYTE # 246 -PORT # 224 -BYTE # 247 -PORT # 224 -BYTE # 248 -PORT # 224 -BYTE # 249 -PORT # 224 -BYTE # 250 -PORT # 224 -BYTE # 251 -PORT # 224 -BYTE # 252 -PORT # 224 -BYTE # 253 -PORT # 224 -BYTE # 254 -PORT # 224 -BYTE # 255 -PORT # 225 -BYTE # 0 -PORT # 225 -BYTE # 1 -PORT # 225 -BYTE # 2 -PORT # 225 -BYTE # 3 -PORT # 225 -BYTE # 4 -PORT # 225 -BYTE # 5 -PORT # 225 -BYTE # 6 -PORT # 225 -BYTE # 7 -PORT # 225 -BYTE # 8 -PORT # 225 -BYTE # 9 -PORT # 225 -BYTE # 10 -PORT # 225 -BYTE # 11 -PORT # 225 -BYTE # 12 -PORT # 225 -BYTE # 13 -PORT # 225 -BYTE # 14 -PORT # 225 -BYTE # 15 -PORT # 225 -BYTE # 16 -PORT # 225 -BYTE # 17 -PORT # 225 -BYTE # 18 -PORT # 225 -BYTE # 19 -PORT # 225 -BYTE # 20 -PORT # 225 -BYTE # 21 -PORT # 225 -BYTE # 22 -PORT # 225 -BYTE # 23 -PORT # 225 -BYTE # 24 -PORT # 225 -BYTE # 25 -PORT # 225 -BYTE # 26 -PORT # 225 -BYTE # 27 -PORT # 225 -BYTE # 28 -PORT # 225 -BYTE # 29 -PORT # 225 -BYTE # 30 -PORT # 225 -BYTE # 31 -PORT # 225 -BYTE # 32 -PORT # 225 -BYTE # 33 -PORT # 225 -BYTE # 34 -PORT # 225 -BYTE # 35 -PORT # 225 -BYTE # 36 -PORT # 225 -BYTE # 37 -PORT # 225 -BYTE # 38 -PORT # 225 -BYTE # 39 -PORT # 225 -BYTE # 40 -PORT # 225 -BYTE # 41 -PORT # 225 -BYTE # 42 -PORT # 225 -BYTE # 43 -PORT # 225 -BYTE # 44 -PORT # 225 -BYTE # 45 -PORT # 225 -BYTE # 46 -PORT # 225 -BYTE # 47 -PORT # 225 -BYTE # 48 -PORT # 225 -BYTE # 49 -PORT # 225 -BYTE # 50 -PORT # 225 -BYTE # 51 -PORT # 225 -BYTE # 52 -PORT # 225 -BYTE # 53 -PORT # 225 -BYTE # 54 -PORT # 225 -BYTE # 55 -PORT # 225 -BYTE # 56 -PORT # 225 -BYTE # 57 -PORT # 225 -BYTE # 58 -PORT # 225 -BYTE # 59 -PORT # 225 -BYTE # 60 -PORT # 225 -BYTE # 61 -PORT # 225 -BYTE # 62 -PORT # 225 -BYTE # 63 -PORT # 225 -BYTE # 64 -PORT # 225 -BYTE # 65 -PORT # 225 -BYTE # 66 -PORT # 225 -BYTE # 67 -PORT # 225 -BYTE # 68 -PORT # 225 -BYTE # 69 -PORT # 225 -BYTE # 70 -PORT # 225 -BYTE # 71 -PORT # 225 -BYTE # 72 -PORT # 225 -BYTE # 73 -PORT # 225 -BYTE # 74 -PORT # 225 -BYTE # 75 -PORT # 225 -BYTE # 76 -PORT # 225 -BYTE # 77 -PORT # 225 -BYTE # 78 -PORT # 225 -BYTE # 79 -PORT # 225 -BYTE # 80 -PORT # 225 -BYTE # 81 -PORT # 225 -BYTE # 82 -PORT # 225 -BYTE # 83 -PORT # 225 -BYTE # 84 -PORT # 225 -BYTE # 85 -PORT # 225 -BYTE # 86 -PORT # 225 -BYTE # 87 -PORT # 225 -BYTE # 88 -PORT # 225 -BYTE # 89 -PORT # 225 -BYTE # 90 -PORT # 225 -BYTE # 91 -PORT # 225 -BYTE # 92 -PORT # 225 -BYTE # 93 -PORT # 225 -BYTE # 94 -PORT # 225 -BYTE # 95 -PORT # 225 -BYTE # 96 -PORT # 225 -BYTE # 97 -PORT # 225 -BYTE # 98 -PORT # 225 -BYTE # 99 -PORT # 225 -BYTE # 100 -PORT # 225 -BYTE # 101 -PORT # 225 -BYTE # 102 -PORT # 225 -BYTE # 103 -PORT # 225 -BYTE # 104 -PORT # 225 -BYTE # 105 -PORT # 225 -BYTE # 106 -PORT # 225 -BYTE # 107 -PORT # 225 -BYTE # 108 -PORT # 225 -BYTE # 109 -PORT # 225 -BYTE # 110 -PORT # 225 -BYTE # 111 -PORT # 225 -BYTE # 112 -PORT # 225 -BYTE # 113 -PORT # 225 -BYTE # 114 -PORT # 225 -BYTE # 115 -PORT # 225 -BYTE # 116 -PORT # 225 -BYTE # 117 -PORT # 225 -BYTE # 118 -PORT # 225 -BYTE # 119 -PORT # 225 -BYTE # 120 -PORT # 225 -BYTE # 121 -PORT # 225 -BYTE # 122 -PORT # 225 -BYTE # 123 -PORT # 225 -BYTE # 124 -PORT # 225 -BYTE # 125 -PORT # 225 -BYTE # 126 -PORT # 225 -BYTE # 127 -PORT # 225 -BYTE # 128 -PORT # 225 -BYTE # 129 -PORT # 225 -BYTE # 130 -PORT # 225 -BYTE # 131 -PORT # 225 -BYTE # 132 -PORT # 225 -BYTE # 133 -PORT # 225 -BYTE # 134 -PORT # 225 -BYTE # 135 -PORT # 225 -BYTE # 136 -PORT # 225 -BYTE # 137 -PORT # 225 -BYTE # 138 -PORT # 225 -BYTE # 139 -PORT # 225 -BYTE # 140 -PORT # 225 -BYTE # 141 -PORT # 225 -BYTE # 142 -PORT # 225 -BYTE # 143 -PORT # 225 -BYTE # 144 -PORT # 225 -BYTE # 145 -PORT # 225 -BYTE # 146 -PORT # 225 -BYTE # 147 -PORT # 225 -BYTE # 148 -PORT # 225 -BYTE # 149 -PORT # 225 -BYTE # 150 -PORT # 225 -BYTE # 151 -PORT # 225 -BYTE # 152 -PORT # 225 -BYTE # 153 -PORT # 225 -BYTE # 154 -PORT # 225 -BYTE # 155 -PORT # 225 -BYTE # 156 -PORT # 225 -BYTE # 157 -PORT # 225 -BYTE # 158 -PORT # 225 -BYTE # 159 -PORT # 225 -BYTE # 160 -PORT # 225 -BYTE # 161 -PORT # 225 -BYTE # 162 -PORT # 225 -BYTE # 163 -PORT # 225 -BYTE # 164 -PORT # 225 -BYTE # 165 -PORT # 225 -BYTE # 166 -PORT # 225 -BYTE # 167 -PORT # 225 -BYTE # 168 -PORT # 225 -BYTE # 169 -PORT # 225 -BYTE # 170 -PORT # 225 -BYTE # 171 -PORT # 225 -BYTE # 172 -PORT # 225 -BYTE # 173 -PORT # 225 -BYTE # 174 -PORT # 225 -BYTE # 175 -PORT # 225 -BYTE # 176 -PORT # 225 -BYTE # 177 -PORT # 225 -BYTE # 178 -PORT # 225 -BYTE # 179 -PORT # 225 -BYTE # 180 -PORT # 225 -BYTE # 181 -PORT # 225 -BYTE # 182 -PORT # 225 -BYTE # 183 -PORT # 225 -BYTE # 184 -PORT # 225 -BYTE # 185 -PORT # 225 -BYTE # 186 -PORT # 225 -BYTE # 187 -PORT # 225 -BYTE # 188 -PORT # 225 -BYTE # 189 -PORT # 225 -BYTE # 190 -PORT # 225 -BYTE # 191 -PORT # 225 -BYTE # 192 -PORT # 225 -BYTE # 193 -PORT # 225 -BYTE # 194 -PORT # 225 -BYTE # 195 -PORT # 225 -BYTE # 196 -PORT # 225 -BYTE # 197 -PORT # 225 -BYTE # 198 -PORT # 225 -BYTE # 199 -PORT # 225 -BYTE # 200 -PORT # 225 -BYTE # 201 -PORT # 225 -BYTE # 202 -PORT # 225 -BYTE # 203 -PORT # 225 -BYTE # 204 -PORT # 225 -BYTE # 205 -PORT # 225 -BYTE # 206 -PORT # 225 -BYTE # 207 -PORT # 225 -BYTE # 208 -PORT # 225 -BYTE # 209 -PORT # 225 -BYTE # 210 -PORT # 225 -BYTE # 211 -PORT # 225 -BYTE # 212 -PORT # 225 -BYTE # 213 -PORT # 225 -BYTE # 214 -PORT # 225 -BYTE # 215 -PORT # 225 -BYTE # 216 -PORT # 225 -BYTE # 217 -PORT # 225 -BYTE # 218 -PORT # 225 -BYTE # 219 -PORT # 225 -BYTE # 220 -PORT # 225 -BYTE # 221 -PORT # 225 -BYTE # 222 -PORT # 225 -BYTE # 223 -PORT # 225 -BYTE # 224 -PORT # 225 -BYTE # 225 -PORT # 225 -BYTE # 226 -PORT # 225 -BYTE # 227 -PORT # 225 -BYTE # 228 -PORT # 225 -BYTE # 229 -PORT # 225 -BYTE # 230 -PORT # 225 -BYTE # 231 -PORT # 225 -BYTE # 232 -PORT # 225 -BYTE # 233 -PORT # 225 -BYTE # 234 -PORT # 225 -BYTE # 235 -PORT # 225 -BYTE # 236 -PORT # 225 -BYTE # 237 -PORT # 225 -BYTE # 238 -PORT # 225 -BYTE # 239 -PORT # 225 -BYTE # 240 -PORT # 225 -BYTE # 241 -PORT # 225 -BYTE # 242 -PORT # 225 -BYTE # 243 -PORT # 225 -BYTE # 244 -PORT # 225 -BYTE # 245 -PORT # 225 -BYTE # 246 -PORT # 225 -BYTE # 247 -PORT # 225 -BYTE # 248 -PORT # 225 -BYTE # 249 -PORT # 225 -BYTE # 250 -PORT # 225 -BYTE # 251 -PORT # 225 -BYTE # 252 -PORT # 225 -BYTE # 253 -PORT # 225 -BYTE # 254 -PORT # 225 -BYTE # 255 -PORT # 226 -BYTE # 0 -PORT # 226 -BYTE # 1 -PORT # 226 -BYTE # 2 -PORT # 226 -BYTE # 3 -PORT # 226 -BYTE # 4 -PORT # 226 -BYTE # 5 -PORT # 226 -BYTE # 6 -PORT # 226 -BYTE # 7 -PORT # 226 -BYTE # 8 -PORT # 226 -BYTE # 9 -PORT # 226 -BYTE # 10 -PORT # 226 -BYTE # 11 -PORT # 226 -BYTE # 12 -PORT # 226 -BYTE # 13 -PORT # 226 -BYTE # 14 -PORT # 226 -BYTE # 15 -PORT # 226 -BYTE # 16 -PORT # 226 -BYTE # 17 -PORT # 226 -BYTE # 18 -PORT # 226 -BYTE # 19 -PORT # 226 -BYTE # 20 -PORT # 226 -BYTE # 21 -PORT # 226 -BYTE # 22 -PORT # 226 -BYTE # 23 -PORT # 226 -BYTE # 24 -PORT # 226 -BYTE # 25 -PORT # 226 -BYTE # 26 -PORT # 226 -BYTE # 27 -PORT # 226 -BYTE # 28 -PORT # 226 -BYTE # 29 -PORT # 226 -BYTE # 30 -PORT # 226 -BYTE # 31 -PORT # 226 -BYTE # 32 -PORT # 226 -BYTE # 33 -PORT # 226 -BYTE # 34 -PORT # 226 -BYTE # 35 -PORT # 226 -BYTE # 36 -PORT # 226 -BYTE # 37 -PORT # 226 -BYTE # 38 -PORT # 226 -BYTE # 39 -PORT # 226 -BYTE # 40 -PORT # 226 -BYTE # 41 -PORT # 226 -BYTE # 42 -PORT # 226 -BYTE # 43 -PORT # 226 -BYTE # 44 -PORT # 226 -BYTE # 45 -PORT # 226 -BYTE # 46 -PORT # 226 -BYTE # 47 -PORT # 226 -BYTE # 48 -PORT # 226 -BYTE # 49 -PORT # 226 -BYTE # 50 -PORT # 226 -BYTE # 51 -PORT # 226 -BYTE # 52 -PORT # 226 -BYTE # 53 -PORT # 226 -BYTE # 54 -PORT # 226 -BYTE # 55 -PORT # 226 -BYTE # 56 -PORT # 226 -BYTE # 57 -PORT # 226 -BYTE # 58 -PORT # 226 -BYTE # 59 -PORT # 226 -BYTE # 60 -PORT # 226 -BYTE # 61 -PORT # 226 -BYTE # 62 -PORT # 226 -BYTE # 63 -PORT # 226 -BYTE # 64 -PORT # 226 -BYTE # 65 -PORT # 226 -BYTE # 66 -PORT # 226 -BYTE # 67 -PORT # 226 -BYTE # 68 -PORT # 226 -BYTE # 69 -PORT # 226 -BYTE # 70 -PORT # 226 -BYTE # 71 -PORT # 226 -BYTE # 72 -PORT # 226 -BYTE # 73 -PORT # 226 -BYTE # 74 -PORT # 226 -BYTE # 75 -PORT # 226 -BYTE # 76 -PORT # 226 -BYTE # 77 -PORT # 226 -BYTE # 78 -PORT # 226 -BYTE # 79 -PORT # 226 -BYTE # 80 -PORT # 226 -BYTE # 81 -PORT # 226 -BYTE # 82 -PORT # 226 -BYTE # 83 -PORT # 226 -BYTE # 84 -PORT # 226 -BYTE # 85 -PORT # 226 -BYTE # 86 -PORT # 226 -BYTE # 87 -PORT # 226 -BYTE # 88 -PORT # 226 -BYTE # 89 -PORT # 226 -BYTE # 90 -PORT # 226 -BYTE # 91 -PORT # 226 -BYTE # 92 -PORT # 226 -BYTE # 93 -PORT # 226 -BYTE # 94 -PORT # 226 -BYTE # 95 -PORT # 226 -BYTE # 96 -PORT # 226 -BYTE # 97 -PORT # 226 -BYTE # 98 -PORT # 226 -BYTE # 99 -PORT # 226 -BYTE # 100 -PORT # 226 -BYTE # 101 -PORT # 226 -BYTE # 102 -PORT # 226 -BYTE # 103 -PORT # 226 -BYTE # 104 -PORT # 226 -BYTE # 105 -PORT # 226 -BYTE # 106 -PORT # 226 -BYTE # 107 -PORT # 226 -BYTE # 108 -PORT # 226 -BYTE # 109 -PORT # 226 -BYTE # 110 -PORT # 226 -BYTE # 111 -PORT # 226 -BYTE # 112 -PORT # 226 -BYTE # 113 -PORT # 226 -BYTE # 114 -PORT # 226 -BYTE # 115 -PORT # 226 -BYTE # 116 -PORT # 226 -BYTE # 117 -PORT # 226 -BYTE # 118 -PORT # 226 -BYTE # 119 -PORT # 226 -BYTE # 120 -PORT # 226 -BYTE # 121 -PORT # 226 -BYTE # 122 -PORT # 226 -BYTE # 123 -PORT # 226 -BYTE # 124 -PORT # 226 -BYTE # 125 -PORT # 226 -BYTE # 126 -PORT # 226 -BYTE # 127 -PORT # 226 -BYTE # 128 -PORT # 226 -BYTE # 129 -PORT # 226 -BYTE # 130 -PORT # 226 -BYTE # 131 -PORT # 226 -BYTE # 132 -PORT # 226 -BYTE # 133 -PORT # 226 -BYTE # 134 -PORT # 226 -BYTE # 135 -PORT # 226 -BYTE # 136 -PORT # 226 -BYTE # 137 -PORT # 226 -BYTE # 138 -PORT # 226 -BYTE # 139 -PORT # 226 -BYTE # 140 -PORT # 226 -BYTE # 141 -PORT # 226 -BYTE # 142 -PORT # 226 -BYTE # 143 -PORT # 226 -BYTE # 144 -PORT # 226 -BYTE # 145 -PORT # 226 -BYTE # 146 -PORT # 226 -BYTE # 147 -PORT # 226 -BYTE # 148 -PORT # 226 -BYTE # 149 -PORT # 226 -BYTE # 150 -PORT # 226 -BYTE # 151 -PORT # 226 -BYTE # 152 -PORT # 226 -BYTE # 153 -PORT # 226 -BYTE # 154 -PORT # 226 -BYTE # 155 -PORT # 226 -BYTE # 156 -PORT # 226 -BYTE # 157 -PORT # 226 -BYTE # 158 -PORT # 226 -BYTE # 159 -PORT # 226 -BYTE # 160 -PORT # 226 -BYTE # 161 -PORT # 226 -BYTE # 162 -PORT # 226 -BYTE # 163 -PORT # 226 -BYTE # 164 -PORT # 226 -BYTE # 165 -PORT # 226 -BYTE # 166 -PORT # 226 -BYTE # 167 -PORT # 226 -BYTE # 168 -PORT # 226 -BYTE # 169 -PORT # 226 -BYTE # 170 -PORT # 226 -BYTE # 171 -PORT # 226 -BYTE # 172 -PORT # 226 -BYTE # 173 -PORT # 226 -BYTE # 174 -PORT # 226 -BYTE # 175 -PORT # 226 -BYTE # 176 -PORT # 226 -BYTE # 177 -PORT # 226 -BYTE # 178 -PORT # 226 -BYTE # 179 -PORT # 226 -BYTE # 180 -PORT # 226 -BYTE # 181 -PORT # 226 -BYTE # 182 -PORT # 226 -BYTE # 183 -PORT # 226 -BYTE # 184 -PORT # 226 -BYTE # 185 -PORT # 226 -BYTE # 186 -PORT # 226 -BYTE # 187 -PORT # 226 -BYTE # 188 -PORT # 226 -BYTE # 189 -PORT # 226 -BYTE # 190 -PORT # 226 -BYTE # 191 -PORT # 226 -BYTE # 192 -PORT # 226 -BYTE # 193 -PORT # 226 -BYTE # 194 -PORT # 226 -BYTE # 195 -PORT # 226 -BYTE # 196 -PORT # 226 -BYTE # 197 -PORT # 226 -BYTE # 198 -PORT # 226 -BYTE # 199 -PORT # 226 -BYTE # 200 -PORT # 226 -BYTE # 201 -PORT # 226 -BYTE # 202 -PORT # 226 -BYTE # 203 -PORT # 226 -BYTE # 204 -PORT # 226 -BYTE # 205 -PORT # 226 -BYTE # 206 -PORT # 226 -BYTE # 207 -PORT # 226 -BYTE # 208 -PORT # 226 -BYTE # 209 -PORT # 226 -BYTE # 210 -PORT # 226 -BYTE # 211 -PORT # 226 -BYTE # 212 -PORT # 226 -BYTE # 213 -PORT # 226 -BYTE # 214 -PORT # 226 -BYTE # 215 -PORT # 226 -BYTE # 216 -PORT # 226 -BYTE # 217 -PORT # 226 -BYTE # 218 -PORT # 226 -BYTE # 219 -PORT # 226 -BYTE # 220 -PORT # 226 -BYTE # 221 -PORT # 226 -BYTE # 222 -PORT # 226 -BYTE # 223 -PORT # 226 -BYTE # 224 -PORT # 226 -BYTE # 225 -PORT # 226 -BYTE # 226 -PORT # 226 -BYTE # 227 -PORT # 226 -BYTE # 228 -PORT # 226 -BYTE # 229 -PORT # 226 -BYTE # 230 -PORT # 226 -BYTE # 231 -PORT # 226 -BYTE # 232 -PORT # 226 -BYTE # 233 -PORT # 226 -BYTE # 234 -PORT # 226 -BYTE # 235 -PORT # 226 -BYTE # 236 -PORT # 226 -BYTE # 237 -PORT # 226 -BYTE # 238 -PORT # 226 -BYTE # 239 -PORT # 226 -BYTE # 240 -PORT # 226 -BYTE # 241 -PORT # 226 -BYTE # 242 -PORT # 226 -BYTE # 243 -PORT # 226 -BYTE # 244 -PORT # 226 -BYTE # 245 -PORT # 226 -BYTE # 246 -PORT # 226 -BYTE # 247 -PORT # 226 -BYTE # 248 -PORT # 226 -BYTE # 249 -PORT # 226 -BYTE # 250 -PORT # 226 -BYTE # 251 -PORT # 226 -BYTE # 252 -PORT # 226 -BYTE # 253 -PORT # 226 -BYTE # 254 -PORT # 226 -BYTE # 255 -PORT # 227 -BYTE # 0 -PORT # 227 -BYTE # 1 -PORT # 227 -BYTE # 2 -PORT # 227 -BYTE # 3 -PORT # 227 -BYTE # 4 -PORT # 227 -BYTE # 5 -PORT # 227 -BYTE # 6 -PORT # 227 -BYTE # 7 -PORT # 227 -BYTE # 8 -PORT # 227 -BYTE # 9 -PORT # 227 -BYTE # 10 -PORT # 227 -BYTE # 11 -PORT # 227 -BYTE # 12 -PORT # 227 -BYTE # 13 -PORT # 227 -BYTE # 14 -PORT # 227 -BYTE # 15 -PORT # 227 -BYTE # 16 -PORT # 227 -BYTE # 17 -PORT # 227 -BYTE # 18 -PORT # 227 -BYTE # 19 -PORT # 227 -BYTE # 20 -PORT # 227 -BYTE # 21 -PORT # 227 -BYTE # 22 -PORT # 227 -BYTE # 23 -PORT # 227 -BYTE # 24 -PORT # 227 -BYTE # 25 -PORT # 227 -BYTE # 26 -PORT # 227 -BYTE # 27 -PORT # 227 -BYTE # 28 -PORT # 227 -BYTE # 29 -PORT # 227 -BYTE # 30 -PORT # 227 -BYTE # 31 -PORT # 227 -BYTE # 32 -PORT # 227 -BYTE # 33 -PORT # 227 -BYTE # 34 -PORT # 227 -BYTE # 35 -PORT # 227 -BYTE # 36 -PORT # 227 -BYTE # 37 -PORT # 227 -BYTE # 38 -PORT # 227 -BYTE # 39 -PORT # 227 -BYTE # 40 -PORT # 227 -BYTE # 41 -PORT # 227 -BYTE # 42 -PORT # 227 -BYTE # 43 -PORT # 227 -BYTE # 44 -PORT # 227 -BYTE # 45 -PORT # 227 -BYTE # 46 -PORT # 227 -BYTE # 47 -PORT # 227 -BYTE # 48 -PORT # 227 -BYTE # 49 -PORT # 227 -BYTE # 50 -PORT # 227 -BYTE # 51 -PORT # 227 -BYTE # 52 -PORT # 227 -BYTE # 53 -PORT # 227 -BYTE # 54 -PORT # 227 -BYTE # 55 -PORT # 227 -BYTE # 56 -PORT # 227 -BYTE # 57 -PORT # 227 -BYTE # 58 -PORT # 227 -BYTE # 59 -PORT # 227 -BYTE # 60 -PORT # 227 -BYTE # 61 -PORT # 227 -BYTE # 62 -PORT # 227 -BYTE # 63 -PORT # 227 -BYTE # 64 -PORT # 227 -BYTE # 65 -PORT # 227 -BYTE # 66 -PORT # 227 -BYTE # 67 -PORT # 227 -BYTE # 68 -PORT # 227 -BYTE # 69 -PORT # 227 -BYTE # 70 -PORT # 227 -BYTE # 71 -PORT # 227 -BYTE # 72 -PORT # 227 -BYTE # 73 -PORT # 227 -BYTE # 74 -PORT # 227 -BYTE # 75 -PORT # 227 -BYTE # 76 -PORT # 227 -BYTE # 77 -PORT # 227 -BYTE # 78 -PORT # 227 -BYTE # 79 -PORT # 227 -BYTE # 80 -PORT # 227 -BYTE # 81 -PORT # 227 -BYTE # 82 -PORT # 227 -BYTE # 83 -PORT # 227 -BYTE # 84 -PORT # 227 -BYTE # 85 -PORT # 227 -BYTE # 86 -PORT # 227 -BYTE # 87 -PORT # 227 -BYTE # 88 -PORT # 227 -BYTE # 89 -PORT # 227 -BYTE # 90 -PORT # 227 -BYTE # 91 -PORT # 227 -BYTE # 92 -PORT # 227 -BYTE # 93 -PORT # 227 -BYTE # 94 -PORT # 227 -BYTE # 95 -PORT # 227 -BYTE # 96 -PORT # 227 -BYTE # 97 -PORT # 227 -BYTE # 98 -PORT # 227 -BYTE # 99 -PORT # 227 -BYTE # 100 -PORT # 227 -BYTE # 101 -PORT # 227 -BYTE # 102 -PORT # 227 -BYTE # 103 -PORT # 227 -BYTE # 104 -PORT # 227 -BYTE # 105 -PORT # 227 -BYTE # 106 -PORT # 227 -BYTE # 107 -PORT # 227 -BYTE # 108 -PORT # 227 -BYTE # 109 -PORT # 227 -BYTE # 110 -PORT # 227 -BYTE # 111 -PORT # 227 -BYTE # 112 -PORT # 227 -BYTE # 113 -PORT # 227 -BYTE # 114 -PORT # 227 -BYTE # 115 -PORT # 227 -BYTE # 116 -PORT # 227 -BYTE # 117 -PORT # 227 -BYTE # 118 -PORT # 227 -BYTE # 119 -PORT # 227 -BYTE # 120 -PORT # 227 -BYTE # 121 -PORT # 227 -BYTE # 122 -PORT # 227 -BYTE # 123 -PORT # 227 -BYTE # 124 -PORT # 227 -BYTE # 125 -PORT # 227 -BYTE # 126 -PORT # 227 -BYTE # 127 -PORT # 227 -BYTE # 128 -PORT # 227 -BYTE # 129 -PORT # 227 -BYTE # 130 -PORT # 227 -BYTE # 131 -PORT # 227 -BYTE # 132 -PORT # 227 -BYTE # 133 -PORT # 227 -BYTE # 134 -PORT # 227 -BYTE # 135 -PORT # 227 -BYTE # 136 -PORT # 227 -BYTE # 137 -PORT # 227 -BYTE # 138 -PORT # 227 -BYTE # 139 -PORT # 227 -BYTE # 140 -PORT # 227 -BYTE # 141 -PORT # 227 -BYTE # 142 -PORT # 227 -BYTE # 143 -PORT # 227 -BYTE # 144 -PORT # 227 -BYTE # 145 -PORT # 227 -BYTE # 146 -PORT # 227 -BYTE # 147 -PORT # 227 -BYTE # 148 -PORT # 227 -BYTE # 149 -PORT # 227 -BYTE # 150 -PORT # 227 -BYTE # 151 -PORT # 227 -BYTE # 152 -PORT # 227 -BYTE # 153 -PORT # 227 -BYTE # 154 -PORT # 227 -BYTE # 155 -PORT # 227 -BYTE # 156 -PORT # 227 -BYTE # 157 -PORT # 227 -BYTE # 158 -PORT # 227 -BYTE # 159 -PORT # 227 -BYTE # 160 -PORT # 227 -BYTE # 161 -PORT # 227 -BYTE # 162 -PORT # 227 -BYTE # 163 -PORT # 227 -BYTE # 164 -PORT # 227 -BYTE # 165 -PORT # 227 -BYTE # 166 -PORT # 227 -BYTE # 167 -PORT # 227 -BYTE # 168 -PORT # 227 -BYTE # 169 -PORT # 227 -BYTE # 170 -PORT # 227 -BYTE # 171 -PORT # 227 -BYTE # 172 -PORT # 227 -BYTE # 173 -PORT # 227 -BYTE # 174 -PORT # 227 -BYTE # 175 -PORT # 227 -BYTE # 176 -PORT # 227 -BYTE # 177 -PORT # 227 -BYTE # 178 -PORT # 227 -BYTE # 179 -PORT # 227 -BYTE # 180 -PORT # 227 -BYTE # 181 -PORT # 227 -BYTE # 182 -PORT # 227 -BYTE # 183 -PORT # 227 -BYTE # 184 -PORT # 227 -BYTE # 185 -PORT # 227 -BYTE # 186 -PORT # 227 -BYTE # 187 -PORT # 227 -BYTE # 188 -PORT # 227 -BYTE # 189 -PORT # 227 -BYTE # 190 -PORT # 227 -BYTE # 191 -PORT # 227 -BYTE # 192 -PORT # 227 -BYTE # 193 -PORT # 227 -BYTE # 194 -PORT # 227 -BYTE # 195 -PORT # 227 -BYTE # 196 -PORT # 227 -BYTE # 197 -PORT # 227 -BYTE # 198 -PORT # 227 -BYTE # 199 -PORT # 227 -BYTE # 200 -PORT # 227 -BYTE # 201 -PORT # 227 -BYTE # 202 -PORT # 227 -BYTE # 203 -PORT # 227 -BYTE # 204 -PORT # 227 -BYTE # 205 -PORT # 227 -BYTE # 206 -PORT # 227 -BYTE # 207 -PORT # 227 -BYTE # 208 -PORT # 227 -BYTE # 209 -PORT # 227 -BYTE # 210 -PORT # 227 -BYTE # 211 -PORT # 227 -BYTE # 212 -PORT # 227 -BYTE # 213 -PORT # 227 -BYTE # 214 -PORT # 227 -BYTE # 215 -PORT # 227 -BYTE # 216 -PORT # 227 -BYTE # 217 -PORT # 227 -BYTE # 218 -PORT # 227 -BYTE # 219 -PORT # 227 -BYTE # 220 -PORT # 227 -BYTE # 221 -PORT # 227 -BYTE # 222 -PORT # 227 -BYTE # 223 -PORT # 227 -BYTE # 224 -PORT # 227 -BYTE # 225 -PORT # 227 -BYTE # 226 -PORT # 227 -BYTE # 227 -PORT # 227 -BYTE # 228 -PORT # 227 -BYTE # 229 -PORT # 227 -BYTE # 230 -PORT # 227 -BYTE # 231 -PORT # 227 -BYTE # 232 -PORT # 227 -BYTE # 233 -PORT # 227 -BYTE # 234 -PORT # 227 -BYTE # 235 -PORT # 227 -BYTE # 236 -PORT # 227 -BYTE # 237 -PORT # 227 -BYTE # 238 -PORT # 227 -BYTE # 239 -PORT # 227 -BYTE # 240 -PORT # 227 -BYTE # 241 -PORT # 227 -BYTE # 242 -PORT # 227 -BYTE # 243 -PORT # 227 -BYTE # 244 -PORT # 227 -BYTE # 245 -PORT # 227 -BYTE # 246 -PORT # 227 -BYTE # 247 -PORT # 227 -BYTE # 248 -PORT # 227 -BYTE # 249 -PORT # 227 -BYTE # 250 -PORT # 227 -BYTE # 251 -PORT # 227 -BYTE # 252 -PORT # 227 -BYTE # 253 -PORT # 227 -BYTE # 254 -PORT # 227 -BYTE # 255 -PORT # 228 -BYTE # 0 -PORT # 228 -BYTE # 1 -PORT # 228 -BYTE # 2 -PORT # 228 -BYTE # 3 -PORT # 228 -BYTE # 4 -PORT # 228 -BYTE # 5 -PORT # 228 -BYTE # 6 -PORT # 228 -BYTE # 7 -PORT # 228 -BYTE # 8 -PORT # 228 -BYTE # 9 -PORT # 228 -BYTE # 10 -PORT # 228 -BYTE # 11 -PORT # 228 -BYTE # 12 -PORT # 228 -BYTE # 13 -PORT # 228 -BYTE # 14 -PORT # 228 -BYTE # 15 -PORT # 228 -BYTE # 16 -PORT # 228 -BYTE # 17 -PORT # 228 -BYTE # 18 -PORT # 228 -BYTE # 19 -PORT # 228 -BYTE # 20 -PORT # 228 -BYTE # 21 -PORT # 228 -BYTE # 22 -PORT # 228 -BYTE # 23 -PORT # 228 -BYTE # 24 -PORT # 228 -BYTE # 25 -PORT # 228 -BYTE # 26 -PORT # 228 -BYTE # 27 -PORT # 228 -BYTE # 28 -PORT # 228 -BYTE # 29 -PORT # 228 -BYTE # 30 -PORT # 228 -BYTE # 31 -PORT # 228 -BYTE # 32 -PORT # 228 -BYTE # 33 -PORT # 228 -BYTE # 34 -PORT # 228 -BYTE # 35 -PORT # 228 -BYTE # 36 -PORT # 228 -BYTE # 37 -PORT # 228 -BYTE # 38 -PORT # 228 -BYTE # 39 -PORT # 228 -BYTE # 40 -PORT # 228 -BYTE # 41 -PORT # 228 -BYTE # 42 -PORT # 228 -BYTE # 43 -PORT # 228 -BYTE # 44 -PORT # 228 -BYTE # 45 -PORT # 228 -BYTE # 46 -PORT # 228 -BYTE # 47 -PORT # 228 -BYTE # 48 -PORT # 228 -BYTE # 49 -PORT # 228 -BYTE # 50 -PORT # 228 -BYTE # 51 -PORT # 228 -BYTE # 52 -PORT # 228 -BYTE # 53 -PORT # 228 -BYTE # 54 -PORT # 228 -BYTE # 55 -PORT # 228 -BYTE # 56 -PORT # 228 -BYTE # 57 -PORT # 228 -BYTE # 58 -PORT # 228 -BYTE # 59 -PORT # 228 -BYTE # 60 -PORT # 228 -BYTE # 61 -PORT # 228 -BYTE # 62 -PORT # 228 -BYTE # 63 -PORT # 228 -BYTE # 64 -PORT # 228 -BYTE # 65 -PORT # 228 -BYTE # 66 -PORT # 228 -BYTE # 67 -PORT # 228 -BYTE # 68 -PORT # 228 -BYTE # 69 -PORT # 228 -BYTE # 70 -PORT # 228 -BYTE # 71 -PORT # 228 -BYTE # 72 -PORT # 228 -BYTE # 73 -PORT # 228 -BYTE # 74 -PORT # 228 -BYTE # 75 -PORT # 228 -BYTE # 76 -PORT # 228 -BYTE # 77 -PORT # 228 -BYTE # 78 -PORT # 228 -BYTE # 79 -PORT # 228 -BYTE # 80 -PORT # 228 -BYTE # 81 -PORT # 228 -BYTE # 82 -PORT # 228 -BYTE # 83 -PORT # 228 -BYTE # 84 -PORT # 228 -BYTE # 85 -PORT # 228 -BYTE # 86 -PORT # 228 -BYTE # 87 -PORT # 228 -BYTE # 88 -PORT # 228 -BYTE # 89 -PORT # 228 -BYTE # 90 -PORT # 228 -BYTE # 91 -PORT # 228 -BYTE # 92 -PORT # 228 -BYTE # 93 -PORT # 228 -BYTE # 94 -PORT # 228 -BYTE # 95 -PORT # 228 -BYTE # 96 -PORT # 228 -BYTE # 97 -PORT # 228 -BYTE # 98 -PORT # 228 -BYTE # 99 -PORT # 228 -BYTE # 100 -PORT # 228 -BYTE # 101 -PORT # 228 -BYTE # 102 -PORT # 228 -BYTE # 103 -PORT # 228 -BYTE # 104 -PORT # 228 -BYTE # 105 -PORT # 228 -BYTE # 106 -PORT # 228 -BYTE # 107 -PORT # 228 -BYTE # 108 -PORT # 228 -BYTE # 109 -PORT # 228 -BYTE # 110 -PORT # 228 -BYTE # 111 -PORT # 228 -BYTE # 112 -PORT # 228 -BYTE # 113 -PORT # 228 -BYTE # 114 -PORT # 228 -BYTE # 115 -PORT # 228 -BYTE # 116 -PORT # 228 -BYTE # 117 -PORT # 228 -BYTE # 118 -PORT # 228 -BYTE # 119 -PORT # 228 -BYTE # 120 -PORT # 228 -BYTE # 121 -PORT # 228 -BYTE # 122 -PORT # 228 -BYTE # 123 -PORT # 228 -BYTE # 124 -PORT # 228 -BYTE # 125 -PORT # 228 -BYTE # 126 -PORT # 228 -BYTE # 127 -PORT # 228 -BYTE # 128 -PORT # 228 -BYTE # 129 -PORT # 228 -BYTE # 130 -PORT # 228 -BYTE # 131 -PORT # 228 -BYTE # 132 -PORT # 228 -BYTE # 133 -PORT # 228 -BYTE # 134 -PORT # 228 -BYTE # 135 -PORT # 228 -BYTE # 136 -PORT # 228 -BYTE # 137 -PORT # 228 -BYTE # 138 -PORT # 228 -BYTE # 139 -PORT # 228 -BYTE # 140 -PORT # 228 -BYTE # 141 -PORT # 228 -BYTE # 142 -PORT # 228 -BYTE # 143 -PORT # 228 -BYTE # 144 -PORT # 228 -BYTE # 145 -PORT # 228 -BYTE # 146 -PORT # 228 -BYTE # 147 -PORT # 228 -BYTE # 148 -PORT # 228 -BYTE # 149 -PORT # 228 -BYTE # 150 -PORT # 228 -BYTE # 151 -PORT # 228 -BYTE # 152 -PORT # 228 -BYTE # 153 -PORT # 228 -BYTE # 154 -PORT # 228 -BYTE # 155 -PORT # 228 -BYTE # 156 -PORT # 228 -BYTE # 157 -PORT # 228 -BYTE # 158 -PORT # 228 -BYTE # 159 -PORT # 228 -BYTE # 160 -PORT # 228 -BYTE # 161 -PORT # 228 -BYTE # 162 -PORT # 228 -BYTE # 163 -PORT # 228 -BYTE # 164 -PORT # 228 -BYTE # 165 -PORT # 228 -BYTE # 166 -PORT # 228 -BYTE # 167 -PORT # 228 -BYTE # 168 -PORT # 228 -BYTE # 169 -PORT # 228 -BYTE # 170 -PORT # 228 -BYTE # 171 -PORT # 228 -BYTE # 172 -PORT # 228 -BYTE # 173 -PORT # 228 -BYTE # 174 -PORT # 228 -BYTE # 175 -PORT # 228 -BYTE # 176 -PORT # 228 -BYTE # 177 -PORT # 228 -BYTE # 178 -PORT # 228 -BYTE # 179 -PORT # 228 -BYTE # 180 -PORT # 228 -BYTE # 181 -PORT # 228 -BYTE # 182 -PORT # 228 -BYTE # 183 -PORT # 228 -BYTE # 184 -PORT # 228 -BYTE # 185 -PORT # 228 -BYTE # 186 -PORT # 228 -BYTE # 187 -PORT # 228 -BYTE # 188 -PORT # 228 -BYTE # 189 -PORT # 228 -BYTE # 190 -PORT # 228 -BYTE # 191 -PORT # 228 -BYTE # 192 -PORT # 228 -BYTE # 193 -PORT # 228 -BYTE # 194 -PORT # 228 -BYTE # 195 -PORT # 228 -BYTE # 196 -PORT # 228 -BYTE # 197 -PORT # 228 -BYTE # 198 -PORT # 228 -BYTE # 199 -PORT # 228 -BYTE # 200 -PORT # 228 -BYTE # 201 -PORT # 228 -BYTE # 202 -PORT # 228 -BYTE # 203 -PORT # 228 -BYTE # 204 -PORT # 228 -BYTE # 205 -PORT # 228 -BYTE # 206 -PORT # 228 -BYTE # 207 -PORT # 228 -BYTE # 208 -PORT # 228 -BYTE # 209 -PORT # 228 -BYTE # 210 -PORT # 228 -BYTE # 211 -PORT # 228 -BYTE # 212 -PORT # 228 -BYTE # 213 -PORT # 228 -BYTE # 214 -PORT # 228 -BYTE # 215 -PORT # 228 -BYTE # 216 -PORT # 228 -BYTE # 217 -PORT # 228 -BYTE # 218 -PORT # 228 -BYTE # 219 -PORT # 228 -BYTE # 220 -PORT # 228 -BYTE # 221 -PORT # 228 -BYTE # 222 -PORT # 228 -BYTE # 223 -PORT # 228 -BYTE # 224 -PORT # 228 -BYTE # 225 -PORT # 228 -BYTE # 226 -PORT # 228 -BYTE # 227 -PORT # 228 -BYTE # 228 -PORT # 228 -BYTE # 229 -PORT # 228 -BYTE # 230 -PORT # 228 -BYTE # 231 -PORT # 228 -BYTE # 232 -PORT # 228 -BYTE # 233 -PORT # 228 -BYTE # 234 -PORT # 228 -BYTE # 235 -PORT # 228 -BYTE # 236 -PORT # 228 -BYTE # 237 -PORT # 228 -BYTE # 238 -PORT # 228 -BYTE # 239 -PORT # 228 -BYTE # 240 -PORT # 228 -BYTE # 241 -PORT # 228 -BYTE # 242 -PORT # 228 -BYTE # 243 -PORT # 228 -BYTE # 244 -PORT # 228 -BYTE # 245 -PORT # 228 -BYTE # 246 -PORT # 228 -BYTE # 247 -PORT # 228 -BYTE # 248 -PORT # 228 -BYTE # 249 -PORT # 228 -BYTE # 250 -PORT # 228 -BYTE # 251 -PORT # 228 -BYTE # 252 -PORT # 228 -BYTE # 253 -PORT # 228 -BYTE # 254 -PORT # 228 -BYTE # 255 -PORT # 229 -BYTE # 0 -PORT # 229 -BYTE # 1 -PORT # 229 -BYTE # 2 -PORT # 229 -BYTE # 3 -PORT # 229 -BYTE # 4 -PORT # 229 -BYTE # 5 -PORT # 229 -BYTE # 6 -PORT # 229 -BYTE # 7 -PORT # 229 -BYTE # 8 -PORT # 229 -BYTE # 9 -PORT # 229 -BYTE # 10 -PORT # 229 -BYTE # 11 -PORT # 229 -BYTE # 12 -PORT # 229 -BYTE # 13 -PORT # 229 -BYTE # 14 -PORT # 229 -BYTE # 15 -PORT # 229 -BYTE # 16 -PORT # 229 -BYTE # 17 -PORT # 229 -BYTE # 18 -PORT # 229 -BYTE # 19 -PORT # 229 -BYTE # 20 -PORT # 229 -BYTE # 21 -PORT # 229 -BYTE # 22 -PORT # 229 -BYTE # 23 -PORT # 229 -BYTE # 24 -PORT # 229 -BYTE # 25 -PORT # 229 -BYTE # 26 -PORT # 229 -BYTE # 27 -PORT # 229 -BYTE # 28 -PORT # 229 -BYTE # 29 -PORT # 229 -BYTE # 30 -PORT # 229 -BYTE # 31 -PORT # 229 -BYTE # 32 -PORT # 229 -BYTE # 33 -PORT # 229 -BYTE # 34 -PORT # 229 -BYTE # 35 -PORT # 229 -BYTE # 36 -PORT # 229 -BYTE # 37 -PORT # 229 -BYTE # 38 -PORT # 229 -BYTE # 39 -PORT # 229 -BYTE # 40 -PORT # 229 -BYTE # 41 -PORT # 229 -BYTE # 42 -PORT # 229 -BYTE # 43 -PORT # 229 -BYTE # 44 -PORT # 229 -BYTE # 45 -PORT # 229 -BYTE # 46 -PORT # 229 -BYTE # 47 -PORT # 229 -BYTE # 48 -PORT # 229 -BYTE # 49 -PORT # 229 -BYTE # 50 -PORT # 229 -BYTE # 51 -PORT # 229 -BYTE # 52 -PORT # 229 -BYTE # 53 -PORT # 229 -BYTE # 54 -PORT # 229 -BYTE # 55 -PORT # 229 -BYTE # 56 -PORT # 229 -BYTE # 57 -PORT # 229 -BYTE # 58 -PORT # 229 -BYTE # 59 -PORT # 229 -BYTE # 60 -PORT # 229 -BYTE # 61 -PORT # 229 -BYTE # 62 -PORT # 229 -BYTE # 63 -PORT # 229 -BYTE # 64 -PORT # 229 -BYTE # 65 -PORT # 229 -BYTE # 66 -PORT # 229 -BYTE # 67 -PORT # 229 -BYTE # 68 -PORT # 229 -BYTE # 69 -PORT # 229 -BYTE # 70 -PORT # 229 -BYTE # 71 -PORT # 229 -BYTE # 72 -PORT # 229 -BYTE # 73 -PORT # 229 -BYTE # 74 -PORT # 229 -BYTE # 75 -PORT # 229 -BYTE # 76 -PORT # 229 -BYTE # 77 -PORT # 229 -BYTE # 78 -PORT # 229 -BYTE # 79 -PORT # 229 -BYTE # 80 -PORT # 229 -BYTE # 81 -PORT # 229 -BYTE # 82 -PORT # 229 -BYTE # 83 -PORT # 229 -BYTE # 84 -PORT # 229 -BYTE # 85 -PORT # 229 -BYTE # 86 -PORT # 229 -BYTE # 87 -PORT # 229 -BYTE # 88 -PORT # 229 -BYTE # 89 -PORT # 229 -BYTE # 90 -PORT # 229 -BYTE # 91 -PORT # 229 -BYTE # 92 -PORT # 229 -BYTE # 93 -PORT # 229 -BYTE # 94 -PORT # 229 -BYTE # 95 -PORT # 229 -BYTE # 96 -PORT # 229 -BYTE # 97 -PORT # 229 -BYTE # 98 -PORT # 229 -BYTE # 99 -PORT # 229 -BYTE # 100 -PORT # 229 -BYTE # 101 -PORT # 229 -BYTE # 102 -PORT # 229 -BYTE # 103 -PORT # 229 -BYTE # 104 -PORT # 229 -BYTE # 105 -PORT # 229 -BYTE # 106 -PORT # 229 -BYTE # 107 -PORT # 229 -BYTE # 108 -PORT # 229 -BYTE # 109 -PORT # 229 -BYTE # 110 -PORT # 229 -BYTE # 111 -PORT # 229 -BYTE # 112 -PORT # 229 -BYTE # 113 -PORT # 229 -BYTE # 114 -PORT # 229 -BYTE # 115 -PORT # 229 -BYTE # 116 -PORT # 229 -BYTE # 117 -PORT # 229 -BYTE # 118 -PORT # 229 -BYTE # 119 -PORT # 229 -BYTE # 120 -PORT # 229 -BYTE # 121 -PORT # 229 -BYTE # 122 -PORT # 229 -BYTE # 123 -PORT # 229 -BYTE # 124 -PORT # 229 -BYTE # 125 -PORT # 229 -BYTE # 126 -PORT # 229 -BYTE # 127 -PORT # 229 -BYTE # 128 -PORT # 229 -BYTE # 129 -PORT # 229 -BYTE # 130 -PORT # 229 -BYTE # 131 -PORT # 229 -BYTE # 132 -PORT # 229 -BYTE # 133 -PORT # 229 -BYTE # 134 -PORT # 229 -BYTE # 135 -PORT # 229 -BYTE # 136 -PORT # 229 -BYTE # 137 -PORT # 229 -BYTE # 138 -PORT # 229 -BYTE # 139 -PORT # 229 -BYTE # 140 -PORT # 229 -BYTE # 141 -PORT # 229 -BYTE # 142 -PORT # 229 -BYTE # 143 -PORT # 229 -BYTE # 144 -PORT # 229 -BYTE # 145 -PORT # 229 -BYTE # 146 -PORT # 229 -BYTE # 147 -PORT # 229 -BYTE # 148 -PORT # 229 -BYTE # 149 -PORT # 229 -BYTE # 150 -PORT # 229 -BYTE # 151 -PORT # 229 -BYTE # 152 -PORT # 229 -BYTE # 153 -PORT # 229 -BYTE # 154 -PORT # 229 -BYTE # 155 -PORT # 229 -BYTE # 156 -PORT # 229 -BYTE # 157 -PORT # 229 -BYTE # 158 -PORT # 229 -BYTE # 159 -PORT # 229 -BYTE # 160 -PORT # 229 -BYTE # 161 -PORT # 229 -BYTE # 162 -PORT # 229 -BYTE # 163 -PORT # 229 -BYTE # 164 -PORT # 229 -BYTE # 165 -PORT # 229 -BYTE # 166 -PORT # 229 -BYTE # 167 -PORT # 229 -BYTE # 168 -PORT # 229 -BYTE # 169 -PORT # 229 -BYTE # 170 -PORT # 229 -BYTE # 171 -PORT # 229 -BYTE # 172 -PORT # 229 -BYTE # 173 -PORT # 229 -BYTE # 174 -PORT # 229 -BYTE # 175 -PORT # 229 -BYTE # 176 -PORT # 229 -BYTE # 177 -PORT # 229 -BYTE # 178 -PORT # 229 -BYTE # 179 -PORT # 229 -BYTE # 180 -PORT # 229 -BYTE # 181 -PORT # 229 -BYTE # 182 -PORT # 229 -BYTE # 183 -PORT # 229 -BYTE # 184 -PORT # 229 -BYTE # 185 -PORT # 229 -BYTE # 186 -PORT # 229 -BYTE # 187 -PORT # 229 -BYTE # 188 -PORT # 229 -BYTE # 189 -PORT # 229 -BYTE # 190 -PORT # 229 -BYTE # 191 -PORT # 229 -BYTE # 192 -PORT # 229 -BYTE # 193 -PORT # 229 -BYTE # 194 -PORT # 229 -BYTE # 195 -PORT # 229 -BYTE # 196 -PORT # 229 -BYTE # 197 -PORT # 229 -BYTE # 198 -PORT # 229 -BYTE # 199 -PORT # 229 -BYTE # 200 -PORT # 229 -BYTE # 201 -PORT # 229 -BYTE # 202 -PORT # 229 -BYTE # 203 -PORT # 229 -BYTE # 204 -PORT # 229 -BYTE # 205 -PORT # 229 -BYTE # 206 -PORT # 229 -BYTE # 207 -PORT # 229 -BYTE # 208 -PORT # 229 -BYTE # 209 -PORT # 229 -BYTE # 210 -PORT # 229 -BYTE # 211 -PORT # 229 -BYTE # 212 -PORT # 229 -BYTE # 213 -PORT # 229 -BYTE # 214 -PORT # 229 -BYTE # 215 -PORT # 229 -BYTE # 216 -PORT # 229 -BYTE # 217 -PORT # 229 -BYTE # 218 -PORT # 229 -BYTE # 219 -PORT # 229 -BYTE # 220 -PORT # 229 -BYTE # 221 -PORT # 229 -BYTE # 222 -PORT # 229 -BYTE # 223 -PORT # 229 -BYTE # 224 -PORT # 229 -BYTE # 225 -PORT # 229 -BYTE # 226 -PORT # 229 -BYTE # 227 -PORT # 229 -BYTE # 228 -PORT # 229 -BYTE # 229 -PORT # 229 -BYTE # 230 -PORT # 229 -BYTE # 231 -PORT # 229 -BYTE # 232 -PORT # 229 -BYTE # 233 -PORT # 229 -BYTE # 234 -PORT # 229 -BYTE # 235 -PORT # 229 -BYTE # 236 -PORT # 229 -BYTE # 237 -PORT # 229 -BYTE # 238 -PORT # 229 -BYTE # 239 -PORT # 229 -BYTE # 240 -PORT # 229 -BYTE # 241 -PORT # 229 -BYTE # 242 -PORT # 229 -BYTE # 243 -PORT # 229 -BYTE # 244 -PORT # 229 -BYTE # 245 -PORT # 229 -BYTE # 246 -PORT # 229 -BYTE # 247 -PORT # 229 -BYTE # 248 -PORT # 229 -BYTE # 249 -PORT # 229 -BYTE # 250 -PORT # 229 -BYTE # 251 -PORT # 229 -BYTE # 252 -PORT # 229 -BYTE # 253 -PORT # 229 -BYTE # 254 -PORT # 229 -BYTE # 255 -PORT # 230 -BYTE # 0 -PORT # 230 -BYTE # 1 -PORT # 230 -BYTE # 2 -PORT # 230 -BYTE # 3 -PORT # 230 -BYTE # 4 -PORT # 230 -BYTE # 5 -PORT # 230 -BYTE # 6 -PORT # 230 -BYTE # 7 -PORT # 230 -BYTE # 8 -PORT # 230 -BYTE # 9 -PORT # 230 -BYTE # 10 -PORT # 230 -BYTE # 11 -PORT # 230 -BYTE # 12 -PORT # 230 -BYTE # 13 -PORT # 230 -BYTE # 14 -PORT # 230 -BYTE # 15 -PORT # 230 -BYTE # 16 -PORT # 230 -BYTE # 17 -PORT # 230 -BYTE # 18 -PORT # 230 -BYTE # 19 -PORT # 230 -BYTE # 20 -PORT # 230 -BYTE # 21 -PORT # 230 -BYTE # 22 -PORT # 230 -BYTE # 23 -PORT # 230 -BYTE # 24 -PORT # 230 -BYTE # 25 -PORT # 230 -BYTE # 26 -PORT # 230 -BYTE # 27 -PORT # 230 -BYTE # 28 -PORT # 230 -BYTE # 29 -PORT # 230 -BYTE # 30 -PORT # 230 -BYTE # 31 -PORT # 230 -BYTE # 32 -PORT # 230 -BYTE # 33 -PORT # 230 -BYTE # 34 -PORT # 230 -BYTE # 35 -PORT # 230 -BYTE # 36 -PORT # 230 -BYTE # 37 -PORT # 230 -BYTE # 38 -PORT # 230 -BYTE # 39 -PORT # 230 -BYTE # 40 -PORT # 230 -BYTE # 41 -PORT # 230 -BYTE # 42 -PORT # 230 -BYTE # 43 -PORT # 230 -BYTE # 44 -PORT # 230 -BYTE # 45 -PORT # 230 -BYTE # 46 -PORT # 230 -BYTE # 47 -PORT # 230 -BYTE # 48 -PORT # 230 -BYTE # 49 -PORT # 230 -BYTE # 50 -PORT # 230 -BYTE # 51 -PORT # 230 -BYTE # 52 -PORT # 230 -BYTE # 53 -PORT # 230 -BYTE # 54 -PORT # 230 -BYTE # 55 -PORT # 230 -BYTE # 56 -PORT # 230 -BYTE # 57 -PORT # 230 -BYTE # 58 -PORT # 230 -BYTE # 59 -PORT # 230 -BYTE # 60 -PORT # 230 -BYTE # 61 -PORT # 230 -BYTE # 62 -PORT # 230 -BYTE # 63 -PORT # 230 -BYTE # 64 -PORT # 230 -BYTE # 65 -PORT # 230 -BYTE # 66 -PORT # 230 -BYTE # 67 -PORT # 230 -BYTE # 68 -PORT # 230 -BYTE # 69 -PORT # 230 -BYTE # 70 -PORT # 230 -BYTE # 71 -PORT # 230 -BYTE # 72 -PORT # 230 -BYTE # 73 -PORT # 230 -BYTE # 74 -PORT # 230 -BYTE # 75 -PORT # 230 -BYTE # 76 -PORT # 230 -BYTE # 77 -PORT # 230 -BYTE # 78 -PORT # 230 -BYTE # 79 -PORT # 230 -BYTE # 80 -PORT # 230 -BYTE # 81 -PORT # 230 -BYTE # 82 -PORT # 230 -BYTE # 83 -PORT # 230 -BYTE # 84 -PORT # 230 -BYTE # 85 -PORT # 230 -BYTE # 86 -PORT # 230 -BYTE # 87 -PORT # 230 -BYTE # 88 -PORT # 230 -BYTE # 89 -PORT # 230 -BYTE # 90 -PORT # 230 -BYTE # 91 -PORT # 230 -BYTE # 92 -PORT # 230 -BYTE # 93 -PORT # 230 -BYTE # 94 -PORT # 230 -BYTE # 95 -PORT # 230 -BYTE # 96 -PORT # 230 -BYTE # 97 -PORT # 230 -BYTE # 98 -PORT # 230 -BYTE # 99 -PORT # 230 -BYTE # 100 -PORT # 230 -BYTE # 101 -PORT # 230 -BYTE # 102 -PORT # 230 -BYTE # 103 -PORT # 230 -BYTE # 104 -PORT # 230 -BYTE # 105 -PORT # 230 -BYTE # 106 -PORT # 230 -BYTE # 107 -PORT # 230 -BYTE # 108 -PORT # 230 -BYTE # 109 -PORT # 230 -BYTE # 110 -PORT # 230 -BYTE # 111 -PORT # 230 -BYTE # 112 -PORT # 230 -BYTE # 113 -PORT # 230 -BYTE # 114 -PORT # 230 -BYTE # 115 -PORT # 230 -BYTE # 116 -PORT # 230 -BYTE # 117 -PORT # 230 -BYTE # 118 -PORT # 230 -BYTE # 119 -PORT # 230 -BYTE # 120 -PORT # 230 -BYTE # 121 -PORT # 230 -BYTE # 122 -PORT # 230 -BYTE # 123 -PORT # 230 -BYTE # 124 -PORT # 230 -BYTE # 125 -PORT # 230 -BYTE # 126 -PORT # 230 -BYTE # 127 -PORT # 230 -BYTE # 128 -PORT # 230 -BYTE # 129 -PORT # 230 -BYTE # 130 -PORT # 230 -BYTE # 131 -PORT # 230 -BYTE # 132 -PORT # 230 -BYTE # 133 -PORT # 230 -BYTE # 134 -PORT # 230 -BYTE # 135 -PORT # 230 -BYTE # 136 -PORT # 230 -BYTE # 137 -PORT # 230 -BYTE # 138 -PORT # 230 -BYTE # 139 -PORT # 230 -BYTE # 140 -PORT # 230 -BYTE # 141 -PORT # 230 -BYTE # 142 -PORT # 230 -BYTE # 143 -PORT # 230 -BYTE # 144 -PORT # 230 -BYTE # 145 -PORT # 230 -BYTE # 146 -PORT # 230 -BYTE # 147 -PORT # 230 -BYTE # 148 -PORT # 230 -BYTE # 149 -PORT # 230 -BYTE # 150 -PORT # 230 -BYTE # 151 -PORT # 230 -BYTE # 152 -PORT # 230 -BYTE # 153 -PORT # 230 -BYTE # 154 -PORT # 230 -BYTE # 155 -PORT # 230 -BYTE # 156 -PORT # 230 -BYTE # 157 -PORT # 230 -BYTE # 158 -PORT # 230 -BYTE # 159 -PORT # 230 -BYTE # 160 -PORT # 230 -BYTE # 161 -PORT # 230 -BYTE # 162 -PORT # 230 -BYTE # 163 -PORT # 230 -BYTE # 164 -PORT # 230 -BYTE # 165 -PORT # 230 -BYTE # 166 -PORT # 230 -BYTE # 167 -PORT # 230 -BYTE # 168 -PORT # 230 -BYTE # 169 -PORT # 230 -BYTE # 170 -PORT # 230 -BYTE # 171 -PORT # 230 -BYTE # 172 -PORT # 230 -BYTE # 173 -PORT # 230 -BYTE # 174 -PORT # 230 -BYTE # 175 -PORT # 230 -BYTE # 176 -PORT # 230 -BYTE # 177 -PORT # 230 -BYTE # 178 -PORT # 230 -BYTE # 179 -PORT # 230 -BYTE # 180 -PORT # 230 -BYTE # 181 -PORT # 230 -BYTE # 182 -PORT # 230 -BYTE # 183 -PORT # 230 -BYTE # 184 -PORT # 230 -BYTE # 185 -PORT # 230 -BYTE # 186 -PORT # 230 -BYTE # 187 -PORT # 230 -BYTE # 188 -PORT # 230 -BYTE # 189 -PORT # 230 -BYTE # 190 -PORT # 230 -BYTE # 191 -PORT # 230 -BYTE # 192 -PORT # 230 -BYTE # 193 -PORT # 230 -BYTE # 194 -PORT # 230 -BYTE # 195 -PORT # 230 -BYTE # 196 -PORT # 230 -BYTE # 197 -PORT # 230 -BYTE # 198 -PORT # 230 -BYTE # 199 -PORT # 230 -BYTE # 200 -PORT # 230 -BYTE # 201 -PORT # 230 -BYTE # 202 -PORT # 230 -BYTE # 203 -PORT # 230 -BYTE # 204 -PORT # 230 -BYTE # 205 -PORT # 230 -BYTE # 206 -PORT # 230 -BYTE # 207 -PORT # 230 -BYTE # 208 -PORT # 230 -BYTE # 209 -PORT # 230 -BYTE # 210 -PORT # 230 -BYTE # 211 -PORT # 230 -BYTE # 212 -PORT # 230 -BYTE # 213 -PORT # 230 -BYTE # 214 -PORT # 230 -BYTE # 215 -PORT # 230 -BYTE # 216 -PORT # 230 -BYTE # 217 -PORT # 230 -BYTE # 218 -PORT # 230 -BYTE # 219 -PORT # 230 -BYTE # 220 -PORT # 230 -BYTE # 221 -PORT # 230 -BYTE # 222 -PORT # 230 -BYTE # 223 -PORT # 230 -BYTE # 224 -PORT # 230 -BYTE # 225 -PORT # 230 -BYTE # 226 -PORT # 230 -BYTE # 227 -PORT # 230 -BYTE # 228 -PORT # 230 -BYTE # 229 -PORT # 230 -BYTE # 230 -PORT # 230 -BYTE # 231 -PORT # 230 -BYTE # 232 -PORT # 230 -BYTE # 233 -PORT # 230 -BYTE # 234 -PORT # 230 -BYTE # 235 -PORT # 230 -BYTE # 236 -PORT # 230 -BYTE # 237 -PORT # 230 -BYTE # 238 -PORT # 230 -BYTE # 239 -PORT # 230 -BYTE # 240 -PORT # 230 -BYTE # 241 -PORT # 230 -BYTE # 242 -PORT # 230 -BYTE # 243 -PORT # 230 -BYTE # 244 -PORT # 230 -BYTE # 245 -PORT # 230 -BYTE # 246 -PORT # 230 -BYTE # 247 -PORT # 230 -BYTE # 248 -PORT # 230 -BYTE # 249 -PORT # 230 -BYTE # 250 -PORT # 230 -BYTE # 251 -PORT # 230 -BYTE # 252 -PORT # 230 -BYTE # 253 -PORT # 230 -BYTE # 254 -PORT # 230 -BYTE # 255 -PORT # 231 -BYTE # 0 -PORT # 231 -BYTE # 1 -PORT # 231 -BYTE # 2 -PORT # 231 -BYTE # 3 -PORT # 231 -BYTE # 4 -PORT # 231 -BYTE # 5 -PORT # 231 -BYTE # 6 -PORT # 231 -BYTE # 7 -PORT # 231 -BYTE # 8 -PORT # 231 -BYTE # 9 -PORT # 231 -BYTE # 10 -PORT # 231 -BYTE # 11 -PORT # 231 -BYTE # 12 -PORT # 231 -BYTE # 13 -PORT # 231 -BYTE # 14 -PORT # 231 -BYTE # 15 -PORT # 231 -BYTE # 16 -PORT # 231 -BYTE # 17 -PORT # 231 -BYTE # 18 -PORT # 231 -BYTE # 19 -PORT # 231 -BYTE # 20 -PORT # 231 -BYTE # 21 -PORT # 231 -BYTE # 22 -PORT # 231 -BYTE # 23 -PORT # 231 -BYTE # 24 -PORT # 231 -BYTE # 25 -PORT # 231 -BYTE # 26 -PORT # 231 -BYTE # 27 -PORT # 231 -BYTE # 28 -PORT # 231 -BYTE # 29 -PORT # 231 -BYTE # 30 -PORT # 231 -BYTE # 31 -PORT # 231 -BYTE # 32 -PORT # 231 -BYTE # 33 -PORT # 231 -BYTE # 34 -PORT # 231 -BYTE # 35 -PORT # 231 -BYTE # 36 -PORT # 231 -BYTE # 37 -PORT # 231 -BYTE # 38 -PORT # 231 -BYTE # 39 -PORT # 231 -BYTE # 40 -PORT # 231 -BYTE # 41 -PORT # 231 -BYTE # 42 -PORT # 231 -BYTE # 43 -PORT # 231 -BYTE # 44 -PORT # 231 -BYTE # 45 -PORT # 231 -BYTE # 46 -PORT # 231 -BYTE # 47 -PORT # 231 -BYTE # 48 -PORT # 231 -BYTE # 49 -PORT # 231 -BYTE # 50 -PORT # 231 -BYTE # 51 -PORT # 231 -BYTE # 52 -PORT # 231 -BYTE # 53 -PORT # 231 -BYTE # 54 -PORT # 231 -BYTE # 55 -PORT # 231 -BYTE # 56 -PORT # 231 -BYTE # 57 -PORT # 231 -BYTE # 58 -PORT # 231 -BYTE # 59 -PORT # 231 -BYTE # 60 -PORT # 231 -BYTE # 61 -PORT # 231 -BYTE # 62 -PORT # 231 -BYTE # 63 -PORT # 231 -BYTE # 64 -PORT # 231 -BYTE # 65 -PORT # 231 -BYTE # 66 -PORT # 231 -BYTE # 67 -PORT # 231 -BYTE # 68 -PORT # 231 -BYTE # 69 -PORT # 231 -BYTE # 70 -PORT # 231 -BYTE # 71 -PORT # 231 -BYTE # 72 -PORT # 231 -BYTE # 73 -PORT # 231 -BYTE # 74 -PORT # 231 -BYTE # 75 -PORT # 231 -BYTE # 76 -PORT # 231 -BYTE # 77 -PORT # 231 -BYTE # 78 -PORT # 231 -BYTE # 79 -PORT # 231 -BYTE # 80 -PORT # 231 -BYTE # 81 -PORT # 231 -BYTE # 82 -PORT # 231 -BYTE # 83 -PORT # 231 -BYTE # 84 -PORT # 231 -BYTE # 85 -PORT # 231 -BYTE # 86 -PORT # 231 -BYTE # 87 -PORT # 231 -BYTE # 88 -PORT # 231 -BYTE # 89 -PORT # 231 -BYTE # 90 -PORT # 231 -BYTE # 91 -PORT # 231 -BYTE # 92 -PORT # 231 -BYTE # 93 -PORT # 231 -BYTE # 94 -PORT # 231 -BYTE # 95 -PORT # 231 -BYTE # 96 -PORT # 231 -BYTE # 97 -PORT # 231 -BYTE # 98 -PORT # 231 -BYTE # 99 -PORT # 231 -BYTE # 100 -PORT # 231 -BYTE # 101 -PORT # 231 -BYTE # 102 -PORT # 231 -BYTE # 103 -PORT # 231 -BYTE # 104 -PORT # 231 -BYTE # 105 -PORT # 231 -BYTE # 106 -PORT # 231 -BYTE # 107 -PORT # 231 -BYTE # 108 -PORT # 231 -BYTE # 109 -PORT # 231 -BYTE # 110 -PORT # 231 -BYTE # 111 -PORT # 231 -BYTE # 112 -PORT # 231 -BYTE # 113 -PORT # 231 -BYTE # 114 -PORT # 231 -BYTE # 115 -PORT # 231 -BYTE # 116 -PORT # 231 -BYTE # 117 -PORT # 231 -BYTE # 118 -PORT # 231 -BYTE # 119 -PORT # 231 -BYTE # 120 -PORT # 231 -BYTE # 121 -PORT # 231 -BYTE # 122 -PORT # 231 -BYTE # 123 -PORT # 231 -BYTE # 124 -PORT # 231 -BYTE # 125 -PORT # 231 -BYTE # 126 -PORT # 231 -BYTE # 127 -PORT # 231 -BYTE # 128 -PORT # 231 -BYTE # 129 -PORT # 231 -BYTE # 130 -PORT # 231 -BYTE # 131 -PORT # 231 -BYTE # 132 -PORT # 231 -BYTE # 133 -PORT # 231 -BYTE # 134 -PORT # 231 -BYTE # 135 -PORT # 231 -BYTE # 136 -PORT # 231 -BYTE # 137 -PORT # 231 -BYTE # 138 -PORT # 231 -BYTE # 139 -PORT # 231 -BYTE # 140 -PORT # 231 -BYTE # 141 -PORT # 231 -BYTE # 142 -PORT # 231 -BYTE # 143 -PORT # 231 -BYTE # 144 -PORT # 231 -BYTE # 145 -PORT # 231 -BYTE # 146 -PORT # 231 -BYTE # 147 -PORT # 231 -BYTE # 148 -PORT # 231 -BYTE # 149 -PORT # 231 -BYTE # 150 -PORT # 231 -BYTE # 151 -PORT # 231 -BYTE # 152 -PORT # 231 -BYTE # 153 -PORT # 231 -BYTE # 154 -PORT # 231 -BYTE # 155 -PORT # 231 -BYTE # 156 -PORT # 231 -BYTE # 157 -PORT # 231 -BYTE # 158 -PORT # 231 -BYTE # 159 -PORT # 231 -BYTE # 160 -PORT # 231 -BYTE # 161 -PORT # 231 -BYTE # 162 -PORT # 231 -BYTE # 163 -PORT # 231 -BYTE # 164 -PORT # 231 -BYTE # 165 -PORT # 231 -BYTE # 166 -PORT # 231 -BYTE # 167 -PORT # 231 -BYTE # 168 -PORT # 231 -BYTE # 169 -PORT # 231 -BYTE # 170 -PORT # 231 -BYTE # 171 -PORT # 231 -BYTE # 172 -PORT # 231 -BYTE # 173 -PORT # 231 -BYTE # 174 -PORT # 231 -BYTE # 175 -PORT # 231 -BYTE # 176 -PORT # 231 -BYTE # 177 -PORT # 231 -BYTE # 178 -PORT # 231 -BYTE # 179 -PORT # 231 -BYTE # 180 -PORT # 231 -BYTE # 181 -PORT # 231 -BYTE # 182 -PORT # 231 -BYTE # 183 -PORT # 231 -BYTE # 184 -PORT # 231 -BYTE # 185 -PORT # 231 -BYTE # 186 -PORT # 231 -BYTE # 187 -PORT # 231 -BYTE # 188 -PORT # 231 -BYTE # 189 -PORT # 231 -BYTE # 190 -PORT # 231 -BYTE # 191 -PORT # 231 -BYTE # 192 -PORT # 231 -BYTE # 193 -PORT # 231 -BYTE # 194 -PORT # 231 -BYTE # 195 -PORT # 231 -BYTE # 196 -PORT # 231 -BYTE # 197 -PORT # 231 -BYTE # 198 -PORT # 231 -BYTE # 199 -PORT # 231 -BYTE # 200 -PORT # 231 -BYTE # 201 -PORT # 231 -BYTE # 202 -PORT # 231 -BYTE # 203 -PORT # 231 -BYTE # 204 -PORT # 231 -BYTE # 205 -PORT # 231 -BYTE # 206 -PORT # 231 -BYTE # 207 -PORT # 231 -BYTE # 208 -PORT # 231 -BYTE # 209 -PORT # 231 -BYTE # 210 -PORT # 231 -BYTE # 211 -PORT # 231 -BYTE # 212 -PORT # 231 -BYTE # 213 -PORT # 231 -BYTE # 214 -PORT # 231 -BYTE # 215 -PORT # 231 -BYTE # 216 -PORT # 231 -BYTE # 217 -PORT # 231 -BYTE # 218 -PORT # 231 -BYTE # 219 -PORT # 231 -BYTE # 220 -PORT # 231 -BYTE # 221 -PORT # 231 -BYTE # 222 -PORT # 231 -BYTE # 223 -PORT # 231 -BYTE # 224 -PORT # 231 -BYTE # 225 -PORT # 231 -BYTE # 226 -PORT # 231 -BYTE # 227 -PORT # 231 -BYTE # 228 -PORT # 231 -BYTE # 229 -PORT # 231 -BYTE # 230 -PORT # 231 -BYTE # 231 -PORT # 231 -BYTE # 232 -PORT # 231 -BYTE # 233 -PORT # 231 -BYTE # 234 -PORT # 231 -BYTE # 235 -PORT # 231 -BYTE # 236 -PORT # 231 -BYTE # 237 -PORT # 231 -BYTE # 238 -PORT # 231 -BYTE # 239 -PORT # 231 -BYTE # 240 -PORT # 231 -BYTE # 241 -PORT # 231 -BYTE # 242 -PORT # 231 -BYTE # 243 -PORT # 231 -BYTE # 244 -PORT # 231 -BYTE # 245 -PORT # 231 -BYTE # 246 -PORT # 231 -BYTE # 247 -PORT # 231 -BYTE # 248 -PORT # 231 -BYTE # 249 -PORT # 231 -BYTE # 250 -PORT # 231 -BYTE # 251 -PORT # 231 -BYTE # 252 -PORT # 231 -BYTE # 253 -PORT # 231 -BYTE # 254 -PORT # 231 -BYTE # 255 -PORT # 232 -BYTE # 0 -PORT # 232 -BYTE # 1 -PORT # 232 -BYTE # 2 -PORT # 232 -BYTE # 3 -PORT # 232 -BYTE # 4 -PORT # 232 -BYTE # 5 -PORT # 232 -BYTE # 6 -PORT # 232 -BYTE # 7 -PORT # 232 -BYTE # 8 -PORT # 232 -BYTE # 9 -PORT # 232 -BYTE # 10 -PORT # 232 -BYTE # 11 -PORT # 232 -BYTE # 12 -PORT # 232 -BYTE # 13 -PORT # 232 -BYTE # 14 -PORT # 232 -BYTE # 15 -PORT # 232 -BYTE # 16 -PORT # 232 -BYTE # 17 -PORT # 232 -BYTE # 18 -PORT # 232 -BYTE # 19 -PORT # 232 -BYTE # 20 -PORT # 232 -BYTE # 21 -PORT # 232 -BYTE # 22 -PORT # 232 -BYTE # 23 -PORT # 232 -BYTE # 24 -PORT # 232 -BYTE # 25 -PORT # 232 -BYTE # 26 -PORT # 232 -BYTE # 27 -PORT # 232 -BYTE # 28 -PORT # 232 -BYTE # 29 -PORT # 232 -BYTE # 30 -PORT # 232 -BYTE # 31 -PORT # 232 -BYTE # 32 -PORT # 232 -BYTE # 33 -PORT # 232 -BYTE # 34 -PORT # 232 -BYTE # 35 -PORT # 232 -BYTE # 36 -PORT # 232 -BYTE # 37 -PORT # 232 -BYTE # 38 -PORT # 232 -BYTE # 39 -PORT # 232 -BYTE # 40 -PORT # 232 -BYTE # 41 -PORT # 232 -BYTE # 42 -PORT # 232 -BYTE # 43 -PORT # 232 -BYTE # 44 -PORT # 232 -BYTE # 45 -PORT # 232 -BYTE # 46 -PORT # 232 -BYTE # 47 -PORT # 232 -BYTE # 48 -PORT # 232 -BYTE # 49 -PORT # 232 -BYTE # 50 -PORT # 232 -BYTE # 51 -PORT # 232 -BYTE # 52 -PORT # 232 -BYTE # 53 -PORT # 232 -BYTE # 54 -PORT # 232 -BYTE # 55 -PORT # 232 -BYTE # 56 -PORT # 232 -BYTE # 57 -PORT # 232 -BYTE # 58 -PORT # 232 -BYTE # 59 -PORT # 232 -BYTE # 60 -PORT # 232 -BYTE # 61 -PORT # 232 -BYTE # 62 -PORT # 232 -BYTE # 63 -PORT # 232 -BYTE # 64 -PORT # 232 -BYTE # 65 -PORT # 232 -BYTE # 66 -PORT # 232 -BYTE # 67 -PORT # 232 -BYTE # 68 -PORT # 232 -BYTE # 69 -PORT # 232 -BYTE # 70 -PORT # 232 -BYTE # 71 -PORT # 232 -BYTE # 72 -PORT # 232 -BYTE # 73 -PORT # 232 -BYTE # 74 -PORT # 232 -BYTE # 75 -PORT # 232 -BYTE # 76 -PORT # 232 -BYTE # 77 -PORT # 232 -BYTE # 78 -PORT # 232 -BYTE # 79 -PORT # 232 -BYTE # 80 -PORT # 232 -BYTE # 81 -PORT # 232 -BYTE # 82 -PORT # 232 -BYTE # 83 -PORT # 232 -BYTE # 84 -PORT # 232 -BYTE # 85 -PORT # 232 -BYTE # 86 -PORT # 232 -BYTE # 87 -PORT # 232 -BYTE # 88 -PORT # 232 -BYTE # 89 -PORT # 232 -BYTE # 90 -PORT # 232 -BYTE # 91 -PORT # 232 -BYTE # 92 -PORT # 232 -BYTE # 93 -PORT # 232 -BYTE # 94 -PORT # 232 -BYTE # 95 -PORT # 232 -BYTE # 96 -PORT # 232 -BYTE # 97 -PORT # 232 -BYTE # 98 -PORT # 232 -BYTE # 99 -PORT # 232 -BYTE # 100 -PORT # 232 -BYTE # 101 -PORT # 232 -BYTE # 102 -PORT # 232 -BYTE # 103 -PORT # 232 -BYTE # 104 -PORT # 232 -BYTE # 105 -PORT # 232 -BYTE # 106 -PORT # 232 -BYTE # 107 -PORT # 232 -BYTE # 108 -PORT # 232 -BYTE # 109 -PORT # 232 -BYTE # 110 -PORT # 232 -BYTE # 111 -PORT # 232 -BYTE # 112 -PORT # 232 -BYTE # 113 -PORT # 232 -BYTE # 114 -PORT # 232 -BYTE # 115 -PORT # 232 -BYTE # 116 -PORT # 232 -BYTE # 117 -PORT # 232 -BYTE # 118 -PORT # 232 -BYTE # 119 -PORT # 232 -BYTE # 120 -PORT # 232 -BYTE # 121 -PORT # 232 -BYTE # 122 -PORT # 232 -BYTE # 123 -PORT # 232 -BYTE # 124 -PORT # 232 -BYTE # 125 -PORT # 232 -BYTE # 126 -PORT # 232 -BYTE # 127 -PORT # 232 -BYTE # 128 -PORT # 232 -BYTE # 129 -PORT # 232 -BYTE # 130 -PORT # 232 -BYTE # 131 -PORT # 232 -BYTE # 132 -PORT # 232 -BYTE # 133 -PORT # 232 -BYTE # 134 -PORT # 232 -BYTE # 135 -PORT # 232 -BYTE # 136 -PORT # 232 -BYTE # 137 -PORT # 232 -BYTE # 138 -PORT # 232 -BYTE # 139 -PORT # 232 -BYTE # 140 -PORT # 232 -BYTE # 141 -PORT # 232 -BYTE # 142 -PORT # 232 -BYTE # 143 -PORT # 232 -BYTE # 144 -PORT # 232 -BYTE # 145 -PORT # 232 -BYTE # 146 -PORT # 232 -BYTE # 147 -PORT # 232 -BYTE # 148 -PORT # 232 -BYTE # 149 -PORT # 232 -BYTE # 150 -PORT # 232 -BYTE # 151 -PORT # 232 -BYTE # 152 -PORT # 232 -BYTE # 153 -PORT # 232 -BYTE # 154 -PORT # 232 -BYTE # 155 -PORT # 232 -BYTE # 156 -PORT # 232 -BYTE # 157 -PORT # 232 -BYTE # 158 -PORT # 232 -BYTE # 159 -PORT # 232 -BYTE # 160 -PORT # 232 -BYTE # 161 -PORT # 232 -BYTE # 162 -PORT # 232 -BYTE # 163 -PORT # 232 -BYTE # 164 -PORT # 232 -BYTE # 165 -PORT # 232 -BYTE # 166 -PORT # 232 -BYTE # 167 -PORT # 232 -BYTE # 168 -PORT # 232 -BYTE # 169 -PORT # 232 -BYTE # 170 -PORT # 232 -BYTE # 171 -PORT # 232 -BYTE # 172 -PORT # 232 -BYTE # 173 -PORT # 232 -BYTE # 174 -PORT # 232 -BYTE # 175 -PORT # 232 -BYTE # 176 -PORT # 232 -BYTE # 177 -PORT # 232 -BYTE # 178 -PORT # 232 -BYTE # 179 -PORT # 232 -BYTE # 180 -PORT # 232 -BYTE # 181 -PORT # 232 -BYTE # 182 -PORT # 232 -BYTE # 183 -PORT # 232 -BYTE # 184 -PORT # 232 -BYTE # 185 -PORT # 232 -BYTE # 186 -PORT # 232 -BYTE # 187 -PORT # 232 -BYTE # 188 -PORT # 232 -BYTE # 189 -PORT # 232 -BYTE # 190 -PORT # 232 -BYTE # 191 -PORT # 232 -BYTE # 192 -PORT # 232 -BYTE # 193 -PORT # 232 -BYTE # 194 -PORT # 232 -BYTE # 195 -PORT # 232 -BYTE # 196 -PORT # 232 -BYTE # 197 -PORT # 232 -BYTE # 198 -PORT # 232 -BYTE # 199 -PORT # 232 -BYTE # 200 -PORT # 232 -BYTE # 201 -PORT # 232 -BYTE # 202 -PORT # 232 -BYTE # 203 -PORT # 232 -BYTE # 204 -PORT # 232 -BYTE # 205 -PORT # 232 -BYTE # 206 -PORT # 232 -BYTE # 207 -PORT # 232 -BYTE # 208 -PORT # 232 -BYTE # 209 -PORT # 232 -BYTE # 210 -PORT # 232 -BYTE # 211 -PORT # 232 -BYTE # 212 -PORT # 232 -BYTE # 213 -PORT # 232 -BYTE # 214 -PORT # 232 -BYTE # 215 -PORT # 232 -BYTE # 216 -PORT # 232 -BYTE # 217 -PORT # 232 -BYTE # 218 -PORT # 232 -BYTE # 219 -PORT # 232 -BYTE # 220 -PORT # 232 -BYTE # 221 -PORT # 232 -BYTE # 222 -PORT # 232 -BYTE # 223 -PORT # 232 -BYTE # 224 -PORT # 232 -BYTE # 225 -PORT # 232 -BYTE # 226 -PORT # 232 -BYTE # 227 -PORT # 232 -BYTE # 228 -PORT # 232 -BYTE # 229 -PORT # 232 -BYTE # 230 -PORT # 232 -BYTE # 231 -PORT # 232 -BYTE # 232 -PORT # 232 -BYTE # 233 -PORT # 232 -BYTE # 234 -PORT # 232 -BYTE # 235 -PORT # 232 -BYTE # 236 -PORT # 232 -BYTE # 237 -PORT # 232 -BYTE # 238 -PORT # 232 -BYTE # 239 -PORT # 232 -BYTE # 240 -PORT # 232 -BYTE # 241 -PORT # 232 -BYTE # 242 -PORT # 232 -BYTE # 243 -PORT # 232 -BYTE # 244 -PORT # 232 -BYTE # 245 -PORT # 232 -BYTE # 246 -PORT # 232 -BYTE # 247 -PORT # 232 -BYTE # 248 -PORT # 232 -BYTE # 249 -PORT # 232 -BYTE # 250 -PORT # 232 -BYTE # 251 -PORT # 232 -BYTE # 252 -PORT # 232 -BYTE # 253 -PORT # 232 -BYTE # 254 -PORT # 232 -BYTE # 255 -PORT # 233 -BYTE # 0 -PORT # 233 -BYTE # 1 -PORT # 233 -BYTE # 2 -PORT # 233 -BYTE # 3 -PORT # 233 -BYTE # 4 -PORT # 233 -BYTE # 5 -PORT # 233 -BYTE # 6 -PORT # 233 -BYTE # 7 -PORT # 233 -BYTE # 8 -PORT # 233 -BYTE # 9 -PORT # 233 -BYTE # 10 -PORT # 233 -BYTE # 11 -PORT # 233 -BYTE # 12 -PORT # 233 -BYTE # 13 -PORT # 233 -BYTE # 14 -PORT # 233 -BYTE # 15 -PORT # 233 -BYTE # 16 -PORT # 233 -BYTE # 17 -PORT # 233 -BYTE # 18 -PORT # 233 -BYTE # 19 -PORT # 233 -BYTE # 20 -PORT # 233 -BYTE # 21 -PORT # 233 -BYTE # 22 -PORT # 233 -BYTE # 23 -PORT # 233 -BYTE # 24 -PORT # 233 -BYTE # 25 -PORT # 233 -BYTE # 26 -PORT # 233 -BYTE # 27 -PORT # 233 -BYTE # 28 -PORT # 233 -BYTE # 29 -PORT # 233 -BYTE # 30 -PORT # 233 -BYTE # 31 -PORT # 233 -BYTE # 32 -PORT # 233 -BYTE # 33 -PORT # 233 -BYTE # 34 -PORT # 233 -BYTE # 35 -PORT # 233 -BYTE # 36 -PORT # 233 -BYTE # 37 -PORT # 233 -BYTE # 38 -PORT # 233 -BYTE # 39 -PORT # 233 -BYTE # 40 -PORT # 233 -BYTE # 41 -PORT # 233 -BYTE # 42 -PORT # 233 -BYTE # 43 -PORT # 233 -BYTE # 44 -PORT # 233 -BYTE # 45 -PORT # 233 -BYTE # 46 -PORT # 233 -BYTE # 47 -PORT # 233 -BYTE # 48 -PORT # 233 -BYTE # 49 -PORT # 233 -BYTE # 50 -PORT # 233 -BYTE # 51 -PORT # 233 -BYTE # 52 -PORT # 233 -BYTE # 53 -PORT # 233 -BYTE # 54 -PORT # 233 -BYTE # 55 -PORT # 233 -BYTE # 56 -PORT # 233 -BYTE # 57 -PORT # 233 -BYTE # 58 -PORT # 233 -BYTE # 59 -PORT # 233 -BYTE # 60 -PORT # 233 -BYTE # 61 -PORT # 233 -BYTE # 62 -PORT # 233 -BYTE # 63 -PORT # 233 -BYTE # 64 -PORT # 233 -BYTE # 65 -PORT # 233 -BYTE # 66 -PORT # 233 -BYTE # 67 -PORT # 233 -BYTE # 68 -PORT # 233 -BYTE # 69 -PORT # 233 -BYTE # 70 -PORT # 233 -BYTE # 71 -PORT # 233 -BYTE # 72 -PORT # 233 -BYTE # 73 -PORT # 233 -BYTE # 74 -PORT # 233 -BYTE # 75 -PORT # 233 -BYTE # 76 -PORT # 233 -BYTE # 77 -PORT # 233 -BYTE # 78 -PORT # 233 -BYTE # 79 -PORT # 233 -BYTE # 80 -PORT # 233 -BYTE # 81 -PORT # 233 -BYTE # 82 -PORT # 233 -BYTE # 83 -PORT # 233 -BYTE # 84 -PORT # 233 -BYTE # 85 -PORT # 233 -BYTE # 86 -PORT # 233 -BYTE # 87 -PORT # 233 -BYTE # 88 -PORT # 233 -BYTE # 89 -PORT # 233 -BYTE # 90 -PORT # 233 -BYTE # 91 -PORT # 233 -BYTE # 92 -PORT # 233 -BYTE # 93 -PORT # 233 -BYTE # 94 -PORT # 233 -BYTE # 95 -PORT # 233 -BYTE # 96 -PORT # 233 -BYTE # 97 -PORT # 233 -BYTE # 98 -PORT # 233 -BYTE # 99 -PORT # 233 -BYTE # 100 -PORT # 233 -BYTE # 101 -PORT # 233 -BYTE # 102 -PORT # 233 -BYTE # 103 -PORT # 233 -BYTE # 104 -PORT # 233 -BYTE # 105 -PORT # 233 -BYTE # 106 -PORT # 233 -BYTE # 107 -PORT # 233 -BYTE # 108 -PORT # 233 -BYTE # 109 -PORT # 233 -BYTE # 110 -PORT # 233 -BYTE # 111 -PORT # 233 -BYTE # 112 -PORT # 233 -BYTE # 113 -PORT # 233 -BYTE # 114 -PORT # 233 -BYTE # 115 -PORT # 233 -BYTE # 116 -PORT # 233 -BYTE # 117 -PORT # 233 -BYTE # 118 -PORT # 233 -BYTE # 119 -PORT # 233 -BYTE # 120 -PORT # 233 -BYTE # 121 -PORT # 233 -BYTE # 122 -PORT # 233 -BYTE # 123 -PORT # 233 -BYTE # 124 -PORT # 233 -BYTE # 125 -PORT # 233 -BYTE # 126 -PORT # 233 -BYTE # 127 -PORT # 233 -BYTE # 128 -PORT # 233 -BYTE # 129 -PORT # 233 -BYTE # 130 -PORT # 233 -BYTE # 131 -PORT # 233 -BYTE # 132 -PORT # 233 -BYTE # 133 -PORT # 233 -BYTE # 134 -PORT # 233 -BYTE # 135 -PORT # 233 -BYTE # 136 -PORT # 233 -BYTE # 137 -PORT # 233 -BYTE # 138 -PORT # 233 -BYTE # 139 -PORT # 233 -BYTE # 140 -PORT # 233 -BYTE # 141 -PORT # 233 -BYTE # 142 -PORT # 233 -BYTE # 143 -PORT # 233 -BYTE # 144 -PORT # 233 -BYTE # 145 -PORT # 233 -BYTE # 146 -PORT # 233 -BYTE # 147 -PORT # 233 -BYTE # 148 -PORT # 233 -BYTE # 149 -PORT # 233 -BYTE # 150 -PORT # 233 -BYTE # 151 -PORT # 233 -BYTE # 152 -PORT # 233 -BYTE # 153 -PORT # 233 -BYTE # 154 -PORT # 233 -BYTE # 155 -PORT # 233 -BYTE # 156 -PORT # 233 -BYTE # 157 -PORT # 233 -BYTE # 158 -PORT # 233 -BYTE # 159 -PORT # 233 -BYTE # 160 -PORT # 233 -BYTE # 161 -PORT # 233 -BYTE # 162 -PORT # 233 -BYTE # 163 -PORT # 233 -BYTE # 164 -PORT # 233 -BYTE # 165 -PORT # 233 -BYTE # 166 -PORT # 233 -BYTE # 167 -PORT # 233 -BYTE # 168 -PORT # 233 -BYTE # 169 -PORT # 233 -BYTE # 170 -PORT # 233 -BYTE # 171 -PORT # 233 -BYTE # 172 -PORT # 233 -BYTE # 173 -PORT # 233 -BYTE # 174 -PORT # 233 -BYTE # 175 -PORT # 233 -BYTE # 176 -PORT # 233 -BYTE # 177 -PORT # 233 -BYTE # 178 -PORT # 233 -BYTE # 179 -PORT # 233 -BYTE # 180 -PORT # 233 -BYTE # 181 -PORT # 233 -BYTE # 182 -PORT # 233 -BYTE # 183 -PORT # 233 -BYTE # 184 -PORT # 233 -BYTE # 185 -PORT # 233 -BYTE # 186 -PORT # 233 -BYTE # 187 -PORT # 233 -BYTE # 188 -PORT # 233 -BYTE # 189 -PORT # 233 -BYTE # 190 -PORT # 233 -BYTE # 191 -PORT # 233 -BYTE # 192 -PORT # 233 -BYTE # 193 -PORT # 233 -BYTE # 194 -PORT # 233 -BYTE # 195 -PORT # 233 -BYTE # 196 -PORT # 233 -BYTE # 197 -PORT # 233 -BYTE # 198 -PORT # 233 -BYTE # 199 -PORT # 233 -BYTE # 200 -PORT # 233 -BYTE # 201 -PORT # 233 -BYTE # 202 -PORT # 233 -BYTE # 203 -PORT # 233 -BYTE # 204 -PORT # 233 -BYTE # 205 -PORT # 233 -BYTE # 206 -PORT # 233 -BYTE # 207 -PORT # 233 -BYTE # 208 -PORT # 233 -BYTE # 209 -PORT # 233 -BYTE # 210 -PORT # 233 -BYTE # 211 -PORT # 233 -BYTE # 212 -PORT # 233 -BYTE # 213 -PORT # 233 -BYTE # 214 -PORT # 233 -BYTE # 215 -PORT # 233 -BYTE # 216 -PORT # 233 -BYTE # 217 -PORT # 233 -BYTE # 218 -PORT # 233 -BYTE # 219 -PORT # 233 -BYTE # 220 -PORT # 233 -BYTE # 221 -PORT # 233 -BYTE # 222 -PORT # 233 -BYTE # 223 -PORT # 233 -BYTE # 224 -PORT # 233 -BYTE # 225 -PORT # 233 -BYTE # 226 -PORT # 233 -BYTE # 227 -PORT # 233 -BYTE # 228 -PORT # 233 -BYTE # 229 -PORT # 233 -BYTE # 230 -PORT # 233 -BYTE # 231 -PORT # 233 -BYTE # 232 -PORT # 233 -BYTE # 233 -PORT # 233 -BYTE # 234 -PORT # 233 -BYTE # 235 -PORT # 233 -BYTE # 236 -PORT # 233 -BYTE # 237 -PORT # 233 -BYTE # 238 -PORT # 233 -BYTE # 239 -PORT # 233 -BYTE # 240 -PORT # 233 -BYTE # 241 -PORT # 233 -BYTE # 242 -PORT # 233 -BYTE # 243 -PORT # 233 -BYTE # 244 -PORT # 233 -BYTE # 245 -PORT # 233 -BYTE # 246 -PORT # 233 -BYTE # 247 -PORT # 233 -BYTE # 248 -PORT # 233 -BYTE # 249 -PORT # 233 -BYTE # 250 -PORT # 233 -BYTE # 251 -PORT # 233 -BYTE # 252 -PORT # 233 -BYTE # 253 -PORT # 233 -BYTE # 254 -PORT # 233 -BYTE # 255 -PORT # 234 -BYTE # 0 -PORT # 234 -BYTE # 1 -PORT # 234 -BYTE # 2 -PORT # 234 -BYTE # 3 -PORT # 234 -BYTE # 4 -PORT # 234 -BYTE # 5 -PORT # 234 -BYTE # 6 -PORT # 234 -BYTE # 7 -PORT # 234 -BYTE # 8 -PORT # 234 -BYTE # 9 -PORT # 234 -BYTE # 10 -PORT # 234 -BYTE # 11 -PORT # 234 -BYTE # 12 -PORT # 234 -BYTE # 13 -PORT # 234 -BYTE # 14 -PORT # 234 -BYTE # 15 -PORT # 234 -BYTE # 16 -PORT # 234 -BYTE # 17 -PORT # 234 -BYTE # 18 -PORT # 234 -BYTE # 19 -PORT # 234 -BYTE # 20 -PORT # 234 -BYTE # 21 -PORT # 234 -BYTE # 22 -PORT # 234 -BYTE # 23 -PORT # 234 -BYTE # 24 -PORT # 234 -BYTE # 25 -PORT # 234 -BYTE # 26 -PORT # 234 -BYTE # 27 -PORT # 234 -BYTE # 28 -PORT # 234 -BYTE # 29 -PORT # 234 -BYTE # 30 -PORT # 234 -BYTE # 31 -PORT # 234 -BYTE # 32 -PORT # 234 -BYTE # 33 -PORT # 234 -BYTE # 34 -PORT # 234 -BYTE # 35 -PORT # 234 -BYTE # 36 -PORT # 234 -BYTE # 37 -PORT # 234 -BYTE # 38 -PORT # 234 -BYTE # 39 -PORT # 234 -BYTE # 40 -PORT # 234 -BYTE # 41 -PORT # 234 -BYTE # 42 -PORT # 234 -BYTE # 43 -PORT # 234 -BYTE # 44 -PORT # 234 -BYTE # 45 -PORT # 234 -BYTE # 46 -PORT # 234 -BYTE # 47 -PORT # 234 -BYTE # 48 -PORT # 234 -BYTE # 49 -PORT # 234 -BYTE # 50 -PORT # 234 -BYTE # 51 -PORT # 234 -BYTE # 52 -PORT # 234 -BYTE # 53 -PORT # 234 -BYTE # 54 -PORT # 234 -BYTE # 55 -PORT # 234 -BYTE # 56 -PORT # 234 -BYTE # 57 -PORT # 234 -BYTE # 58 -PORT # 234 -BYTE # 59 -PORT # 234 -BYTE # 60 -PORT # 234 -BYTE # 61 -PORT # 234 -BYTE # 62 -PORT # 234 -BYTE # 63 -PORT # 234 -BYTE # 64 -PORT # 234 -BYTE # 65 -PORT # 234 -BYTE # 66 -PORT # 234 -BYTE # 67 -PORT # 234 -BYTE # 68 -PORT # 234 -BYTE # 69 -PORT # 234 -BYTE # 70 -PORT # 234 -BYTE # 71 -PORT # 234 -BYTE # 72 -PORT # 234 -BYTE # 73 -PORT # 234 -BYTE # 74 -PORT # 234 -BYTE # 75 -PORT # 234 -BYTE # 76 -PORT # 234 -BYTE # 77 -PORT # 234 -BYTE # 78 -PORT # 234 -BYTE # 79 -PORT # 234 -BYTE # 80 -PORT # 234 -BYTE # 81 -PORT # 234 -BYTE # 82 -PORT # 234 -BYTE # 83 -PORT # 234 -BYTE # 84 -PORT # 234 -BYTE # 85 -PORT # 234 -BYTE # 86 -PORT # 234 -BYTE # 87 -PORT # 234 -BYTE # 88 -PORT # 234 -BYTE # 89 -PORT # 234 -BYTE # 90 -PORT # 234 -BYTE # 91 -PORT # 234 -BYTE # 92 -PORT # 234 -BYTE # 93 -PORT # 234 -BYTE # 94 -PORT # 234 -BYTE # 95 -PORT # 234 -BYTE # 96 -PORT # 234 -BYTE # 97 -PORT # 234 -BYTE # 98 -PORT # 234 -BYTE # 99 -PORT # 234 -BYTE # 100 -PORT # 234 -BYTE # 101 -PORT # 234 -BYTE # 102 -PORT # 234 -BYTE # 103 -PORT # 234 -BYTE # 104 -PORT # 234 -BYTE # 105 -PORT # 234 -BYTE # 106 -PORT # 234 -BYTE # 107 -PORT # 234 -BYTE # 108 -PORT # 234 -BYTE # 109 -PORT # 234 -BYTE # 110 -PORT # 234 -BYTE # 111 -PORT # 234 -BYTE # 112 -PORT # 234 -BYTE # 113 -PORT # 234 -BYTE # 114 -PORT # 234 -BYTE # 115 -PORT # 234 -BYTE # 116 -PORT # 234 -BYTE # 117 -PORT # 234 -BYTE # 118 -PORT # 234 -BYTE # 119 -PORT # 234 -BYTE # 120 -PORT # 234 -BYTE # 121 -PORT # 234 -BYTE # 122 -PORT # 234 -BYTE # 123 -PORT # 234 -BYTE # 124 -PORT # 234 -BYTE # 125 -PORT # 234 -BYTE # 126 -PORT # 234 -BYTE # 127 -PORT # 234 -BYTE # 128 -PORT # 234 -BYTE # 129 -PORT # 234 -BYTE # 130 -PORT # 234 -BYTE # 131 -PORT # 234 -BYTE # 132 -PORT # 234 -BYTE # 133 -PORT # 234 -BYTE # 134 -PORT # 234 -BYTE # 135 -PORT # 234 -BYTE # 136 -PORT # 234 -BYTE # 137 -PORT # 234 -BYTE # 138 -PORT # 234 -BYTE # 139 -PORT # 234 -BYTE # 140 -PORT # 234 -BYTE # 141 -PORT # 234 -BYTE # 142 -PORT # 234 -BYTE # 143 -PORT # 234 -BYTE # 144 -PORT # 234 -BYTE # 145 -PORT # 234 -BYTE # 146 -PORT # 234 -BYTE # 147 -PORT # 234 -BYTE # 148 -PORT # 234 -BYTE # 149 -PORT # 234 -BYTE # 150 -PORT # 234 -BYTE # 151 -PORT # 234 -BYTE # 152 -PORT # 234 -BYTE # 153 -PORT # 234 -BYTE # 154 -PORT # 234 -BYTE # 155 -PORT # 234 -BYTE # 156 -PORT # 234 -BYTE # 157 -PORT # 234 -BYTE # 158 -PORT # 234 -BYTE # 159 -PORT # 234 -BYTE # 160 -PORT # 234 -BYTE # 161 -PORT # 234 -BYTE # 162 -PORT # 234 -BYTE # 163 -PORT # 234 -BYTE # 164 -PORT # 234 -BYTE # 165 -PORT # 234 -BYTE # 166 -PORT # 234 -BYTE # 167 -PORT # 234 -BYTE # 168 -PORT # 234 -BYTE # 169 -PORT # 234 -BYTE # 170 -PORT # 234 -BYTE # 171 -PORT # 234 -BYTE # 172 -PORT # 234 -BYTE # 173 -PORT # 234 -BYTE # 174 -PORT # 234 -BYTE # 175 -PORT # 234 -BYTE # 176 -PORT # 234 -BYTE # 177 -PORT # 234 -BYTE # 178 -PORT # 234 -BYTE # 179 -PORT # 234 -BYTE # 180 -PORT # 234 -BYTE # 181 -PORT # 234 -BYTE # 182 -PORT # 234 -BYTE # 183 -PORT # 234 -BYTE # 184 -PORT # 234 -BYTE # 185 -PORT # 234 -BYTE # 186 -PORT # 234 -BYTE # 187 -PORT # 234 -BYTE # 188 -PORT # 234 -BYTE # 189 -PORT # 234 -BYTE # 190 -PORT # 234 -BYTE # 191 -PORT # 234 -BYTE # 192 -PORT # 234 -BYTE # 193 -PORT # 234 -BYTE # 194 -PORT # 234 -BYTE # 195 -PORT # 234 -BYTE # 196 -PORT # 234 -BYTE # 197 -PORT # 234 -BYTE # 198 -PORT # 234 -BYTE # 199 -PORT # 234 -BYTE # 200 -PORT # 234 -BYTE # 201 -PORT # 234 -BYTE # 202 -PORT # 234 -BYTE # 203 -PORT # 234 -BYTE # 204 -PORT # 234 -BYTE # 205 -PORT # 234 -BYTE # 206 -PORT # 234 -BYTE # 207 -PORT # 234 -BYTE # 208 -PORT # 234 -BYTE # 209 -PORT # 234 -BYTE # 210 -PORT # 234 -BYTE # 211 -PORT # 234 -BYTE # 212 -PORT # 234 -BYTE # 213 -PORT # 234 -BYTE # 214 -PORT # 234 -BYTE # 215 -PORT # 234 -BYTE # 216 -PORT # 234 -BYTE # 217 -PORT # 234 -BYTE # 218 -PORT # 234 -BYTE # 219 -PORT # 234 -BYTE # 220 -PORT # 234 -BYTE # 221 -PORT # 234 -BYTE # 222 -PORT # 234 -BYTE # 223 -PORT # 234 -BYTE # 224 -PORT # 234 -BYTE # 225 -PORT # 234 -BYTE # 226 -PORT # 234 -BYTE # 227 -PORT # 234 -BYTE # 228 -PORT # 234 -BYTE # 229 -PORT # 234 -BYTE # 230 -PORT # 234 -BYTE # 231 -PORT # 234 -BYTE # 232 -PORT # 234 -BYTE # 233 -PORT # 234 -BYTE # 234 -PORT # 234 -BYTE # 235 -PORT # 234 -BYTE # 236 -PORT # 234 -BYTE # 237 -PORT # 234 -BYTE # 238 -PORT # 234 -BYTE # 239 -PORT # 234 -BYTE # 240 -PORT # 234 -BYTE # 241 -PORT # 234 -BYTE # 242 -PORT # 234 -BYTE # 243 -PORT # 234 -BYTE # 244 -PORT # 234 -BYTE # 245 -PORT # 234 -BYTE # 246 -PORT # 234 -BYTE # 247 -PORT # 234 -BYTE # 248 -PORT # 234 -BYTE # 249 -PORT # 234 -BYTE # 250 -PORT # 234 -BYTE # 251 -PORT # 234 -BYTE # 252 -PORT # 234 -BYTE # 253 -PORT # 234 -BYTE # 254 -PORT # 234 -BYTE # 255 -PORT # 235 -BYTE # 0 -PORT # 235 -BYTE # 1 -PORT # 235 -BYTE # 2 -PORT # 235 -BYTE # 3 -PORT # 235 -BYTE # 4 -PORT # 235 -BYTE # 5 -PORT # 235 -BYTE # 6 -PORT # 235 -BYTE # 7 -PORT # 235 -BYTE # 8 -PORT # 235 -BYTE # 9 -PORT # 235 -BYTE # 10 -PORT # 235 -BYTE # 11 -PORT # 235 -BYTE # 12 -PORT # 235 -BYTE # 13 -PORT # 235 -BYTE # 14 -PORT # 235 -BYTE # 15 -PORT # 235 -BYTE # 16 -PORT # 235 -BYTE # 17 -PORT # 235 -BYTE # 18 -PORT # 235 -BYTE # 19 -PORT # 235 -BYTE # 20 -PORT # 235 -BYTE # 21 -PORT # 235 -BYTE # 22 -PORT # 235 -BYTE # 23 -PORT # 235 -BYTE # 24 -PORT # 235 -BYTE # 25 -PORT # 235 -BYTE # 26 -PORT # 235 -BYTE # 27 -PORT # 235 -BYTE # 28 -PORT # 235 -BYTE # 29 -PORT # 235 -BYTE # 30 -PORT # 235 -BYTE # 31 -PORT # 235 -BYTE # 32 -PORT # 235 -BYTE # 33 -PORT # 235 -BYTE # 34 -PORT # 235 -BYTE # 35 -PORT # 235 -BYTE # 36 -PORT # 235 -BYTE # 37 -PORT # 235 -BYTE # 38 -PORT # 235 -BYTE # 39 -PORT # 235 -BYTE # 40 -PORT # 235 -BYTE # 41 -PORT # 235 -BYTE # 42 -PORT # 235 -BYTE # 43 -PORT # 235 -BYTE # 44 -PORT # 235 -BYTE # 45 -PORT # 235 -BYTE # 46 -PORT # 235 -BYTE # 47 -PORT # 235 -BYTE # 48 -PORT # 235 -BYTE # 49 -PORT # 235 -BYTE # 50 -PORT # 235 -BYTE # 51 -PORT # 235 -BYTE # 52 -PORT # 235 -BYTE # 53 -PORT # 235 -BYTE # 54 -PORT # 235 -BYTE # 55 -PORT # 235 -BYTE # 56 -PORT # 235 -BYTE # 57 -PORT # 235 -BYTE # 58 -PORT # 235 -BYTE # 59 -PORT # 235 -BYTE # 60 -PORT # 235 -BYTE # 61 -PORT # 235 -BYTE # 62 -PORT # 235 -BYTE # 63 -PORT # 235 -BYTE # 64 -PORT # 235 -BYTE # 65 -PORT # 235 -BYTE # 66 -PORT # 235 -BYTE # 67 -PORT # 235 -BYTE # 68 -PORT # 235 -BYTE # 69 -PORT # 235 -BYTE # 70 -PORT # 235 -BYTE # 71 -PORT # 235 -BYTE # 72 -PORT # 235 -BYTE # 73 -PORT # 235 -BYTE # 74 -PORT # 235 -BYTE # 75 -PORT # 235 -BYTE # 76 -PORT # 235 -BYTE # 77 -PORT # 235 -BYTE # 78 -PORT # 235 -BYTE # 79 -PORT # 235 -BYTE # 80 -PORT # 235 -BYTE # 81 -PORT # 235 -BYTE # 82 -PORT # 235 -BYTE # 83 -PORT # 235 -BYTE # 84 -PORT # 235 -BYTE # 85 -PORT # 235 -BYTE # 86 -PORT # 235 -BYTE # 87 -PORT # 235 -BYTE # 88 -PORT # 235 -BYTE # 89 -PORT # 235 -BYTE # 90 -PORT # 235 -BYTE # 91 -PORT # 235 -BYTE # 92 -PORT # 235 -BYTE # 93 -PORT # 235 -BYTE # 94 -PORT # 235 -BYTE # 95 -PORT # 235 -BYTE # 96 -PORT # 235 -BYTE # 97 -PORT # 235 -BYTE # 98 -PORT # 235 -BYTE # 99 -PORT # 235 -BYTE # 100 -PORT # 235 -BYTE # 101 -PORT # 235 -BYTE # 102 -PORT # 235 -BYTE # 103 -PORT # 235 -BYTE # 104 -PORT # 235 -BYTE # 105 -PORT # 235 -BYTE # 106 -PORT # 235 -BYTE # 107 -PORT # 235 -BYTE # 108 -PORT # 235 -BYTE # 109 -PORT # 235 -BYTE # 110 -PORT # 235 -BYTE # 111 -PORT # 235 -BYTE # 112 -PORT # 235 -BYTE # 113 -PORT # 235 -BYTE # 114 -PORT # 235 -BYTE # 115 -PORT # 235 -BYTE # 116 -PORT # 235 -BYTE # 117 -PORT # 235 -BYTE # 118 -PORT # 235 -BYTE # 119 -PORT # 235 -BYTE # 120 -PORT # 235 -BYTE # 121 -PORT # 235 -BYTE # 122 -PORT # 235 -BYTE # 123 -PORT # 235 -BYTE # 124 -PORT # 235 -BYTE # 125 -PORT # 235 -BYTE # 126 -PORT # 235 -BYTE # 127 -PORT # 235 -BYTE # 128 -PORT # 235 -BYTE # 129 -PORT # 235 -BYTE # 130 -PORT # 235 -BYTE # 131 -PORT # 235 -BYTE # 132 -PORT # 235 -BYTE # 133 -PORT # 235 -BYTE # 134 -PORT # 235 -BYTE # 135 -PORT # 235 -BYTE # 136 -PORT # 235 -BYTE # 137 -PORT # 235 -BYTE # 138 -PORT # 235 -BYTE # 139 -PORT # 235 -BYTE # 140 -PORT # 235 -BYTE # 141 -PORT # 235 -BYTE # 142 -PORT # 235 -BYTE # 143 -PORT # 235 -BYTE # 144 -PORT # 235 -BYTE # 145 -PORT # 235 -BYTE # 146 -PORT # 235 -BYTE # 147 -PORT # 235 -BYTE # 148 -PORT # 235 -BYTE # 149 -PORT # 235 -BYTE # 150 -PORT # 235 -BYTE # 151 -PORT # 235 -BYTE # 152 -PORT # 235 -BYTE # 153 -PORT # 235 -BYTE # 154 -PORT # 235 -BYTE # 155 -PORT # 235 -BYTE # 156 -PORT # 235 -BYTE # 157 -PORT # 235 -BYTE # 158 -PORT # 235 -BYTE # 159 -PORT # 235 -BYTE # 160 -PORT # 235 -BYTE # 161 -PORT # 235 -BYTE # 162 -PORT # 235 -BYTE # 163 -PORT # 235 -BYTE # 164 -PORT # 235 -BYTE # 165 -PORT # 235 -BYTE # 166 -PORT # 235 -BYTE # 167 -PORT # 235 -BYTE # 168 -PORT # 235 -BYTE # 169 -PORT # 235 -BYTE # 170 -PORT # 235 -BYTE # 171 -PORT # 235 -BYTE # 172 -PORT # 235 -BYTE # 173 -PORT # 235 -BYTE # 174 -PORT # 235 -BYTE # 175 -PORT # 235 -BYTE # 176 -PORT # 235 -BYTE # 177 -PORT # 235 -BYTE # 178 -PORT # 235 -BYTE # 179 -PORT # 235 -BYTE # 180 -PORT # 235 -BYTE # 181 -PORT # 235 -BYTE # 182 -PORT # 235 -BYTE # 183 -PORT # 235 -BYTE # 184 -PORT # 235 -BYTE # 185 -PORT # 235 -BYTE # 186 -PORT # 235 -BYTE # 187 -PORT # 235 -BYTE # 188 -PORT # 235 -BYTE # 189 -PORT # 235 -BYTE # 190 -PORT # 235 -BYTE # 191 -PORT # 235 -BYTE # 192 -PORT # 235 -BYTE # 193 -PORT # 235 -BYTE # 194 -PORT # 235 -BYTE # 195 -PORT # 235 -BYTE # 196 -PORT # 235 -BYTE # 197 -PORT # 235 -BYTE # 198 -PORT # 235 -BYTE # 199 -PORT # 235 -BYTE # 200 -PORT # 235 -BYTE # 201 -PORT # 235 -BYTE # 202 -PORT # 235 -BYTE # 203 -PORT # 235 -BYTE # 204 -PORT # 235 -BYTE # 205 -PORT # 235 -BYTE # 206 -PORT # 235 -BYTE # 207 -PORT # 235 -BYTE # 208 -PORT # 235 -BYTE # 209 -PORT # 235 -BYTE # 210 -PORT # 235 -BYTE # 211 -PORT # 235 -BYTE # 212 -PORT # 235 -BYTE # 213 -PORT # 235 -BYTE # 214 -PORT # 235 -BYTE # 215 -PORT # 235 -BYTE # 216 -PORT # 235 -BYTE # 217 -PORT # 235 -BYTE # 218 -PORT # 235 -BYTE # 219 -PORT # 235 -BYTE # 220 -PORT # 235 -BYTE # 221 -PORT # 235 -BYTE # 222 -PORT # 235 -BYTE # 223 -PORT # 235 -BYTE # 224 -PORT # 235 -BYTE # 225 -PORT # 235 -BYTE # 226 -PORT # 235 -BYTE # 227 -PORT # 235 -BYTE # 228 -PORT # 235 -BYTE # 229 -PORT # 235 -BYTE # 230 -PORT # 235 -BYTE # 231 -PORT # 235 -BYTE # 232 -PORT # 235 -BYTE # 233 -PORT # 235 -BYTE # 234 -PORT # 235 -BYTE # 235 -PORT # 235 -BYTE # 236 -PORT # 235 -BYTE # 237 -PORT # 235 -BYTE # 238 -PORT # 235 -BYTE # 239 -PORT # 235 -BYTE # 240 -PORT # 235 -BYTE # 241 -PORT # 235 -BYTE # 242 -PORT # 235 -BYTE # 243 -PORT # 235 -BYTE # 244 -PORT # 235 -BYTE # 245 -PORT # 235 -BYTE # 246 -PORT # 235 -BYTE # 247 -PORT # 235 -BYTE # 248 -PORT # 235 -BYTE # 249 -PORT # 235 -BYTE # 250 -PORT # 235 -BYTE # 251 -PORT # 235 -BYTE # 252 -PORT # 235 -BYTE # 253 -PORT # 235 -BYTE # 254 -PORT # 235 -BYTE # 255 -PORT # 236 -BYTE # 0 -PORT # 236 -BYTE # 1 -PORT # 236 -BYTE # 2 -PORT # 236 -BYTE # 3 -PORT # 236 -BYTE # 4 -PORT # 236 -BYTE # 5 -PORT # 236 -BYTE # 6 -PORT # 236 -BYTE # 7 -PORT # 236 -BYTE # 8 -PORT # 236 -BYTE # 9 -PORT # 236 -BYTE # 10 -PORT # 236 -BYTE # 11 -PORT # 236 -BYTE # 12 -PORT # 236 -BYTE # 13 -PORT # 236 -BYTE # 14 -PORT # 236 -BYTE # 15 -PORT # 236 -BYTE # 16 -PORT # 236 -BYTE # 17 -PORT # 236 -BYTE # 18 -PORT # 236 -BYTE # 19 -PORT # 236 -BYTE # 20 -PORT # 236 -BYTE # 21 -PORT # 236 -BYTE # 22 -PORT # 236 -BYTE # 23 -PORT # 236 -BYTE # 24 -PORT # 236 -BYTE # 25 -PORT # 236 -BYTE # 26 -PORT # 236 -BYTE # 27 -PORT # 236 -BYTE # 28 -PORT # 236 -BYTE # 29 -PORT # 236 -BYTE # 30 -PORT # 236 -BYTE # 31 -PORT # 236 -BYTE # 32 -PORT # 236 -BYTE # 33 -PORT # 236 -BYTE # 34 -PORT # 236 -BYTE # 35 -PORT # 236 -BYTE # 36 -PORT # 236 -BYTE # 37 -PORT # 236 -BYTE # 38 -PORT # 236 -BYTE # 39 -PORT # 236 -BYTE # 40 -PORT # 236 -BYTE # 41 -PORT # 236 -BYTE # 42 -PORT # 236 -BYTE # 43 -PORT # 236 -BYTE # 44 -PORT # 236 -BYTE # 45 -PORT # 236 -BYTE # 46 -PORT # 236 -BYTE # 47 -PORT # 236 -BYTE # 48 -PORT # 236 -BYTE # 49 -PORT # 236 -BYTE # 50 -PORT # 236 -BYTE # 51 -PORT # 236 -BYTE # 52 -PORT # 236 -BYTE # 53 -PORT # 236 -BYTE # 54 -PORT # 236 -BYTE # 55 -PORT # 236 -BYTE # 56 -PORT # 236 -BYTE # 57 -PORT # 236 -BYTE # 58 -PORT # 236 -BYTE # 59 -PORT # 236 -BYTE # 60 -PORT # 236 -BYTE # 61 -PORT # 236 -BYTE # 62 -PORT # 236 -BYTE # 63 -PORT # 236 -BYTE # 64 -PORT # 236 -BYTE # 65 -PORT # 236 -BYTE # 66 -PORT # 236 -BYTE # 67 -PORT # 236 -BYTE # 68 -PORT # 236 -BYTE # 69 -PORT # 236 -BYTE # 70 -PORT # 236 -BYTE # 71 -PORT # 236 -BYTE # 72 -PORT # 236 -BYTE # 73 -PORT # 236 -BYTE # 74 -PORT # 236 -BYTE # 75 -PORT # 236 -BYTE # 76 -PORT # 236 -BYTE # 77 -PORT # 236 -BYTE # 78 -PORT # 236 -BYTE # 79 -PORT # 236 -BYTE # 80 -PORT # 236 -BYTE # 81 -PORT # 236 -BYTE # 82 -PORT # 236 -BYTE # 83 -PORT # 236 -BYTE # 84 -PORT # 236 -BYTE # 85 -PORT # 236 -BYTE # 86 -PORT # 236 -BYTE # 87 -PORT # 236 -BYTE # 88 -PORT # 236 -BYTE # 89 -PORT # 236 -BYTE # 90 -PORT # 236 -BYTE # 91 -PORT # 236 -BYTE # 92 -PORT # 236 -BYTE # 93 -PORT # 236 -BYTE # 94 -PORT # 236 -BYTE # 95 -PORT # 236 -BYTE # 96 -PORT # 236 -BYTE # 97 -PORT # 236 -BYTE # 98 -PORT # 236 -BYTE # 99 -PORT # 236 -BYTE # 100 -PORT # 236 -BYTE # 101 -PORT # 236 -BYTE # 102 -PORT # 236 -BYTE # 103 -PORT # 236 -BYTE # 104 -PORT # 236 -BYTE # 105 -PORT # 236 -BYTE # 106 -PORT # 236 -BYTE # 107 -PORT # 236 -BYTE # 108 -PORT # 236 -BYTE # 109 -PORT # 236 -BYTE # 110 -PORT # 236 -BYTE # 111 -PORT # 236 -BYTE # 112 -PORT # 236 -BYTE # 113 -PORT # 236 -BYTE # 114 -PORT # 236 -BYTE # 115 -PORT # 236 -BYTE # 116 -PORT # 236 -BYTE # 117 -PORT # 236 -BYTE # 118 -PORT # 236 -BYTE # 119 -PORT # 236 -BYTE # 120 -PORT # 236 -BYTE # 121 -PORT # 236 -BYTE # 122 -PORT # 236 -BYTE # 123 -PORT # 236 -BYTE # 124 -PORT # 236 -BYTE # 125 -PORT # 236 -BYTE # 126 -PORT # 236 -BYTE # 127 -PORT # 236 -BYTE # 128 -PORT # 236 -BYTE # 129 -PORT # 236 -BYTE # 130 -PORT # 236 -BYTE # 131 -PORT # 236 -BYTE # 132 -PORT # 236 -BYTE # 133 -PORT # 236 -BYTE # 134 -PORT # 236 -BYTE # 135 -PORT # 236 -BYTE # 136 -PORT # 236 -BYTE # 137 -PORT # 236 -BYTE # 138 -PORT # 236 -BYTE # 139 -PORT # 236 -BYTE # 140 -PORT # 236 -BYTE # 141 -PORT # 236 -BYTE # 142 -PORT # 236 -BYTE # 143 -PORT # 236 -BYTE # 144 -PORT # 236 -BYTE # 145 -PORT # 236 -BYTE # 146 -PORT # 236 -BYTE # 147 -PORT # 236 -BYTE # 148 -PORT # 236 -BYTE # 149 -PORT # 236 -BYTE # 150 -PORT # 236 -BYTE # 151 -PORT # 236 -BYTE # 152 -PORT # 236 -BYTE # 153 -PORT # 236 -BYTE # 154 -PORT # 236 -BYTE # 155 -PORT # 236 -BYTE # 156 -PORT # 236 -BYTE # 157 -PORT # 236 -BYTE # 158 -PORT # 236 -BYTE # 159 -PORT # 236 -BYTE # 160 -PORT # 236 -BYTE # 161 -PORT # 236 -BYTE # 162 -PORT # 236 -BYTE # 163 -PORT # 236 -BYTE # 164 -PORT # 236 -BYTE # 165 -PORT # 236 -BYTE # 166 -PORT # 236 -BYTE # 167 -PORT # 236 -BYTE # 168 -PORT # 236 -BYTE # 169 -PORT # 236 -BYTE # 170 -PORT # 236 -BYTE # 171 -PORT # 236 -BYTE # 172 -PORT # 236 -BYTE # 173 -PORT # 236 -BYTE # 174 -PORT # 236 -BYTE # 175 -PORT # 236 -BYTE # 176 -PORT # 236 -BYTE # 177 -PORT # 236 -BYTE # 178 -PORT # 236 -BYTE # 179 -PORT # 236 -BYTE # 180 -PORT # 236 -BYTE # 181 -PORT # 236 -BYTE # 182 -PORT # 236 -BYTE # 183 -PORT # 236 -BYTE # 184 -PORT # 236 -BYTE # 185 -PORT # 236 -BYTE # 186 -PORT # 236 -BYTE # 187 -PORT # 236 -BYTE # 188 -PORT # 236 -BYTE # 189 -PORT # 236 -BYTE # 190 -PORT # 236 -BYTE # 191 -PORT # 236 -BYTE # 192 -PORT # 236 -BYTE # 193 -PORT # 236 -BYTE # 194 -PORT # 236 -BYTE # 195 -PORT # 236 -BYTE # 196 -PORT # 236 -BYTE # 197 -PORT # 236 -BYTE # 198 -PORT # 236 -BYTE # 199 -PORT # 236 -BYTE # 200 -PORT # 236 -BYTE # 201 -PORT # 236 -BYTE # 202 -PORT # 236 -BYTE # 203 -PORT # 236 -BYTE # 204 -PORT # 236 -BYTE # 205 -PORT # 236 -BYTE # 206 -PORT # 236 -BYTE # 207 -PORT # 236 -BYTE # 208 -PORT # 236 -BYTE # 209 -PORT # 236 -BYTE # 210 -PORT # 236 -BYTE # 211 -PORT # 236 -BYTE # 212 -PORT # 236 -BYTE # 213 -PORT # 236 -BYTE # 214 -PORT # 236 -BYTE # 215 -PORT # 236 -BYTE # 216 -PORT # 236 -BYTE # 217 -PORT # 236 -BYTE # 218 -PORT # 236 -BYTE # 219 -PORT # 236 -BYTE # 220 -PORT # 236 -BYTE # 221 -PORT # 236 -BYTE # 222 -PORT # 236 -BYTE # 223 -PORT # 236 -BYTE # 224 -PORT # 236 -BYTE # 225 -PORT # 236 -BYTE # 226 -PORT # 236 -BYTE # 227 -PORT # 236 -BYTE # 228 -PORT # 236 -BYTE # 229 -PORT # 236 -BYTE # 230 -PORT # 236 -BYTE # 231 -PORT # 236 -BYTE # 232 -PORT # 236 -BYTE # 233 -PORT # 236 -BYTE # 234 -PORT # 236 -BYTE # 235 -PORT # 236 -BYTE # 236 -PORT # 236 -BYTE # 237 -PORT # 236 -BYTE # 238 -PORT # 236 -BYTE # 239 -PORT # 236 -BYTE # 240 -PORT # 236 -BYTE # 241 -PORT # 236 -BYTE # 242 -PORT # 236 -BYTE # 243 -PORT # 236 -BYTE # 244 -PORT # 236 -BYTE # 245 -PORT # 236 -BYTE # 246 -PORT # 236 -BYTE # 247 -PORT # 236 -BYTE # 248 -PORT # 236 -BYTE # 249 -PORT # 236 -BYTE # 250 -PORT # 236 -BYTE # 251 -PORT # 236 -BYTE # 252 -PORT # 236 -BYTE # 253 -PORT # 236 -BYTE # 254 -PORT # 236 -BYTE # 255 -PORT # 237 -BYTE # 0 -PORT # 237 -BYTE # 1 -PORT # 237 -BYTE # 2 -PORT # 237 -BYTE # 3 -PORT # 237 -BYTE # 4 -PORT # 237 -BYTE # 5 -PORT # 237 -BYTE # 6 -PORT # 237 -BYTE # 7 -PORT # 237 -BYTE # 8 -PORT # 237 -BYTE # 9 -PORT # 237 -BYTE # 10 -PORT # 237 -BYTE # 11 -PORT # 237 -BYTE # 12 -PORT # 237 -BYTE # 13 -PORT # 237 -BYTE # 14 -PORT # 237 -BYTE # 15 -PORT # 237 -BYTE # 16 -PORT # 237 -BYTE # 17 -PORT # 237 -BYTE # 18 -PORT # 237 -BYTE # 19 -PORT # 237 -BYTE # 20 -PORT # 237 -BYTE # 21 -PORT # 237 -BYTE # 22 -PORT # 237 -BYTE # 23 -PORT # 237 -BYTE # 24 -PORT # 237 -BYTE # 25 -PORT # 237 -BYTE # 26 -PORT # 237 -BYTE # 27 -PORT # 237 -BYTE # 28 -PORT # 237 -BYTE # 29 -PORT # 237 -BYTE # 30 -PORT # 237 -BYTE # 31 -PORT # 237 -BYTE # 32 -PORT # 237 -BYTE # 33 -PORT # 237 -BYTE # 34 -PORT # 237 -BYTE # 35 -PORT # 237 -BYTE # 36 -PORT # 237 -BYTE # 37 -PORT # 237 -BYTE # 38 -PORT # 237 -BYTE # 39 -PORT # 237 -BYTE # 40 -PORT # 237 -BYTE # 41 -PORT # 237 -BYTE # 42 -PORT # 237 -BYTE # 43 -PORT # 237 -BYTE # 44 -PORT # 237 -BYTE # 45 -PORT # 237 -BYTE # 46 -PORT # 237 -BYTE # 47 -PORT # 237 -BYTE # 48 -PORT # 237 -BYTE # 49 -PORT # 237 -BYTE # 50 -PORT # 237 -BYTE # 51 -PORT # 237 -BYTE # 52 -PORT # 237 -BYTE # 53 -PORT # 237 -BYTE # 54 -PORT # 237 -BYTE # 55 -PORT # 237 -BYTE # 56 -PORT # 237 -BYTE # 57 -PORT # 237 -BYTE # 58 -PORT # 237 -BYTE # 59 -PORT # 237 -BYTE # 60 -PORT # 237 -BYTE # 61 -PORT # 237 -BYTE # 62 -PORT # 237 -BYTE # 63 -PORT # 237 -BYTE # 64 -PORT # 237 -BYTE # 65 -PORT # 237 -BYTE # 66 -PORT # 237 -BYTE # 67 -PORT # 237 -BYTE # 68 -PORT # 237 -BYTE # 69 -PORT # 237 -BYTE # 70 -PORT # 237 -BYTE # 71 -PORT # 237 -BYTE # 72 -PORT # 237 -BYTE # 73 -PORT # 237 -BYTE # 74 -PORT # 237 -BYTE # 75 -PORT # 237 -BYTE # 76 -PORT # 237 -BYTE # 77 -PORT # 237 -BYTE # 78 -PORT # 237 -BYTE # 79 -PORT # 237 -BYTE # 80 -PORT # 237 -BYTE # 81 -PORT # 237 -BYTE # 82 -PORT # 237 -BYTE # 83 -PORT # 237 -BYTE # 84 -PORT # 237 -BYTE # 85 -PORT # 237 -BYTE # 86 -PORT # 237 -BYTE # 87 -PORT # 237 -BYTE # 88 -PORT # 237 -BYTE # 89 -PORT # 237 -BYTE # 90 -PORT # 237 -BYTE # 91 -PORT # 237 -BYTE # 92 -PORT # 237 -BYTE # 93 -PORT # 237 -BYTE # 94 -PORT # 237 -BYTE # 95 -PORT # 237 -BYTE # 96 -PORT # 237 -BYTE # 97 -PORT # 237 -BYTE # 98 -PORT # 237 -BYTE # 99 -PORT # 237 -BYTE # 100 -PORT # 237 -BYTE # 101 -PORT # 237 -BYTE # 102 -PORT # 237 -BYTE # 103 -PORT # 237 -BYTE # 104 -PORT # 237 -BYTE # 105 -PORT # 237 -BYTE # 106 -PORT # 237 -BYTE # 107 -PORT # 237 -BYTE # 108 -PORT # 237 -BYTE # 109 -PORT # 237 -BYTE # 110 -PORT # 237 -BYTE # 111 -PORT # 237 -BYTE # 112 -PORT # 237 -BYTE # 113 -PORT # 237 -BYTE # 114 -PORT # 237 -BYTE # 115 -PORT # 237 -BYTE # 116 -PORT # 237 -BYTE # 117 -PORT # 237 -BYTE # 118 -PORT # 237 -BYTE # 119 -PORT # 237 -BYTE # 120 -PORT # 237 -BYTE # 121 -PORT # 237 -BYTE # 122 -PORT # 237 -BYTE # 123 -PORT # 237 -BYTE # 124 -PORT # 237 -BYTE # 125 -PORT # 237 -BYTE # 126 -PORT # 237 -BYTE # 127 -PORT # 237 -BYTE # 128 -PORT # 237 -BYTE # 129 -PORT # 237 -BYTE # 130 -PORT # 237 -BYTE # 131 -PORT # 237 -BYTE # 132 -PORT # 237 -BYTE # 133 -PORT # 237 -BYTE # 134 -PORT # 237 -BYTE # 135 -PORT # 237 -BYTE # 136 -PORT # 237 -BYTE # 137 -PORT # 237 -BYTE # 138 -PORT # 237 -BYTE # 139 -PORT # 237 -BYTE # 140 -PORT # 237 -BYTE # 141 -PORT # 237 -BYTE # 142 -PORT # 237 -BYTE # 143 -PORT # 237 -BYTE # 144 -PORT # 237 -BYTE # 145 -PORT # 237 -BYTE # 146 -PORT # 237 -BYTE # 147 -PORT # 237 -BYTE # 148 -PORT # 237 -BYTE # 149 -PORT # 237 -BYTE # 150 -PORT # 237 -BYTE # 151 -PORT # 237 -BYTE # 152 -PORT # 237 -BYTE # 153 -PORT # 237 -BYTE # 154 -PORT # 237 -BYTE # 155 -PORT # 237 -BYTE # 156 -PORT # 237 -BYTE # 157 -PORT # 237 -BYTE # 158 -PORT # 237 -BYTE # 159 -PORT # 237 -BYTE # 160 -PORT # 237 -BYTE # 161 -PORT # 237 -BYTE # 162 -PORT # 237 -BYTE # 163 -PORT # 237 -BYTE # 164 -PORT # 237 -BYTE # 165 -PORT # 237 -BYTE # 166 -PORT # 237 -BYTE # 167 -PORT # 237 -BYTE # 168 -PORT # 237 -BYTE # 169 -PORT # 237 -BYTE # 170 -PORT # 237 -BYTE # 171 -PORT # 237 -BYTE # 172 -PORT # 237 -BYTE # 173 -PORT # 237 -BYTE # 174 -PORT # 237 -BYTE # 175 -PORT # 237 -BYTE # 176 -PORT # 237 -BYTE # 177 -PORT # 237 -BYTE # 178 -PORT # 237 -BYTE # 179 -PORT # 237 -BYTE # 180 -PORT # 237 -BYTE # 181 -PORT # 237 -BYTE # 182 -PORT # 237 -BYTE # 183 -PORT # 237 -BYTE # 184 -PORT # 237 -BYTE # 185 -PORT # 237 -BYTE # 186 -PORT # 237 -BYTE # 187 -PORT # 237 -BYTE # 188 -PORT # 237 -BYTE # 189 -PORT # 237 -BYTE # 190 -PORT # 237 -BYTE # 191 -PORT # 237 -BYTE # 192 -PORT # 237 -BYTE # 193 -PORT # 237 -BYTE # 194 -PORT # 237 -BYTE # 195 -PORT # 237 -BYTE # 196 -PORT # 237 -BYTE # 197 -PORT # 237 -BYTE # 198 -PORT # 237 -BYTE # 199 -PORT # 237 -BYTE # 200 -PORT # 237 -BYTE # 201 -PORT # 237 -BYTE # 202 -PORT # 237 -BYTE # 203 -PORT # 237 -BYTE # 204 -PORT # 237 -BYTE # 205 -PORT # 237 -BYTE # 206 -PORT # 237 -BYTE # 207 -PORT # 237 -BYTE # 208 -PORT # 237 -BYTE # 209 -PORT # 237 -BYTE # 210 -PORT # 237 -BYTE # 211 -PORT # 237 -BYTE # 212 -PORT # 237 -BYTE # 213 -PORT # 237 -BYTE # 214 -PORT # 237 -BYTE # 215 -PORT # 237 -BYTE # 216 -PORT # 237 -BYTE # 217 -PORT # 237 -BYTE # 218 -PORT # 237 -BYTE # 219 -PORT # 237 -BYTE # 220 -PORT # 237 -BYTE # 221 -PORT # 237 -BYTE # 222 -PORT # 237 -BYTE # 223 -PORT # 237 -BYTE # 224 -PORT # 237 -BYTE # 225 -PORT # 237 -BYTE # 226 -PORT # 237 -BYTE # 227 -PORT # 237 -BYTE # 228 -PORT # 237 -BYTE # 229 -PORT # 237 -BYTE # 230 -PORT # 237 -BYTE # 231 -PORT # 237 -BYTE # 232 -PORT # 237 -BYTE # 233 -PORT # 237 -BYTE # 234 -PORT # 237 -BYTE # 235 -PORT # 237 -BYTE # 236 -PORT # 237 -BYTE # 237 -PORT # 237 -BYTE # 238 -PORT # 237 -BYTE # 239 -PORT # 237 -BYTE # 240 -PORT # 237 -BYTE # 241 -PORT # 237 -BYTE # 242 -PORT # 237 -BYTE # 243 -PORT # 237 -BYTE # 244 -PORT # 237 -BYTE # 245 -PORT # 237 -BYTE # 246 -PORT # 237 -BYTE # 247 -PORT # 237 -BYTE # 248 -PORT # 237 -BYTE # 249 -PORT # 237 -BYTE # 250 -PORT # 237 -BYTE # 251 -PORT # 237 -BYTE # 252 -PORT # 237 -BYTE # 253 -PORT # 237 -BYTE # 254 -PORT # 237 -BYTE # 255 -PORT # 238 -BYTE # 0 -PORT # 238 -BYTE # 1 -PORT # 238 -BYTE # 2 -PORT # 238 -BYTE # 3 -PORT # 238 -BYTE # 4 -PORT # 238 -BYTE # 5 -PORT # 238 -BYTE # 6 -PORT # 238 -BYTE # 7 -PORT # 238 -BYTE # 8 -PORT # 238 -BYTE # 9 -PORT # 238 -BYTE # 10 -PORT # 238 -BYTE # 11 -PORT # 238 -BYTE # 12 -PORT # 238 -BYTE # 13 -PORT # 238 -BYTE # 14 -PORT # 238 -BYTE # 15 -PORT # 238 -BYTE # 16 -PORT # 238 -BYTE # 17 -PORT # 238 -BYTE # 18 -PORT # 238 -BYTE # 19 -PORT # 238 -BYTE # 20 -PORT # 238 -BYTE # 21 -PORT # 238 -BYTE # 22 -PORT # 238 -BYTE # 23 -PORT # 238 -BYTE # 24 -PORT # 238 -BYTE # 25 -PORT # 238 -BYTE # 26 -PORT # 238 -BYTE # 27 -PORT # 238 -BYTE # 28 -PORT # 238 -BYTE # 29 -PORT # 238 -BYTE # 30 -PORT # 238 -BYTE # 31 -PORT # 238 -BYTE # 32 -PORT # 238 -BYTE # 33 -PORT # 238 -BYTE # 34 -PORT # 238 -BYTE # 35 -PORT # 238 -BYTE # 36 -PORT # 238 -BYTE # 37 -PORT # 238 -BYTE # 38 -PORT # 238 -BYTE # 39 -PORT # 238 -BYTE # 40 -PORT # 238 -BYTE # 41 -PORT # 238 -BYTE # 42 -PORT # 238 -BYTE # 43 -PORT # 238 -BYTE # 44 -PORT # 238 -BYTE # 45 -PORT # 238 -BYTE # 46 -PORT # 238 -BYTE # 47 -PORT # 238 -BYTE # 48 -PORT # 238 -BYTE # 49 -PORT # 238 -BYTE # 50 -PORT # 238 -BYTE # 51 -PORT # 238 -BYTE # 52 -PORT # 238 -BYTE # 53 -PORT # 238 -BYTE # 54 -PORT # 238 -BYTE # 55 -PORT # 238 -BYTE # 56 -PORT # 238 -BYTE # 57 -PORT # 238 -BYTE # 58 -PORT # 238 -BYTE # 59 -PORT # 238 -BYTE # 60 -PORT # 238 -BYTE # 61 -PORT # 238 -BYTE # 62 -PORT # 238 -BYTE # 63 -PORT # 238 -BYTE # 64 -PORT # 238 -BYTE # 65 -PORT # 238 -BYTE # 66 -PORT # 238 -BYTE # 67 -PORT # 238 -BYTE # 68 -PORT # 238 -BYTE # 69 -PORT # 238 -BYTE # 70 -PORT # 238 -BYTE # 71 -PORT # 238 -BYTE # 72 -PORT # 238 -BYTE # 73 -PORT # 238 -BYTE # 74 -PORT # 238 -BYTE # 75 -PORT # 238 -BYTE # 76 -PORT # 238 -BYTE # 77 -PORT # 238 -BYTE # 78 -PORT # 238 -BYTE # 79 -PORT # 238 -BYTE # 80 -PORT # 238 -BYTE # 81 -PORT # 238 -BYTE # 82 -PORT # 238 -BYTE # 83 -PORT # 238 -BYTE # 84 -PORT # 238 -BYTE # 85 -PORT # 238 -BYTE # 86 -PORT # 238 -BYTE # 87 -PORT # 238 -BYTE # 88 -PORT # 238 -BYTE # 89 -PORT # 238 -BYTE # 90 -PORT # 238 -BYTE # 91 -PORT # 238 -BYTE # 92 -PORT # 238 -BYTE # 93 -PORT # 238 -BYTE # 94 -PORT # 238 -BYTE # 95 -PORT # 238 -BYTE # 96 -PORT # 238 -BYTE # 97 -PORT # 238 -BYTE # 98 -PORT # 238 -BYTE # 99 -PORT # 238 -BYTE # 100 -PORT # 238 -BYTE # 101 -PORT # 238 -BYTE # 102 -PORT # 238 -BYTE # 103 -PORT # 238 -BYTE # 104 -PORT # 238 -BYTE # 105 -PORT # 238 -BYTE # 106 -PORT # 238 -BYTE # 107 -PORT # 238 -BYTE # 108 -PORT # 238 -BYTE # 109 -PORT # 238 -BYTE # 110 -PORT # 238 -BYTE # 111 -PORT # 238 -BYTE # 112 -PORT # 238 -BYTE # 113 -PORT # 238 -BYTE # 114 -PORT # 238 -BYTE # 115 -PORT # 238 -BYTE # 116 -PORT # 238 -BYTE # 117 -PORT # 238 -BYTE # 118 -PORT # 238 -BYTE # 119 -PORT # 238 -BYTE # 120 -PORT # 238 -BYTE # 121 -PORT # 238 -BYTE # 122 -PORT # 238 -BYTE # 123 -PORT # 238 -BYTE # 124 -PORT # 238 -BYTE # 125 -PORT # 238 -BYTE # 126 -PORT # 238 -BYTE # 127 -PORT # 238 -BYTE # 128 -PORT # 238 -BYTE # 129 -PORT # 238 -BYTE # 130 -PORT # 238 -BYTE # 131 -PORT # 238 -BYTE # 132 -PORT # 238 -BYTE # 133 -PORT # 238 -BYTE # 134 -PORT # 238 -BYTE # 135 -PORT # 238 -BYTE # 136 -PORT # 238 -BYTE # 137 -PORT # 238 -BYTE # 138 -PORT # 238 -BYTE # 139 -PORT # 238 -BYTE # 140 -PORT # 238 -BYTE # 141 -PORT # 238 -BYTE # 142 -PORT # 238 -BYTE # 143 -PORT # 238 -BYTE # 144 -PORT # 238 -BYTE # 145 -PORT # 238 -BYTE # 146 -PORT # 238 -BYTE # 147 -PORT # 238 -BYTE # 148 -PORT # 238 -BYTE # 149 -PORT # 238 -BYTE # 150 -PORT # 238 -BYTE # 151 -PORT # 238 -BYTE # 152 -PORT # 238 -BYTE # 153 -PORT # 238 -BYTE # 154 -PORT # 238 -BYTE # 155 -PORT # 238 -BYTE # 156 -PORT # 238 -BYTE # 157 -PORT # 238 -BYTE # 158 -PORT # 238 -BYTE # 159 -PORT # 238 -BYTE # 160 -PORT # 238 -BYTE # 161 -PORT # 238 -BYTE # 162 -PORT # 238 -BYTE # 163 -PORT # 238 -BYTE # 164 -PORT # 238 -BYTE # 165 -PORT # 238 -BYTE # 166 -PORT # 238 -BYTE # 167 -PORT # 238 -BYTE # 168 -PORT # 238 -BYTE # 169 -PORT # 238 -BYTE # 170 -PORT # 238 -BYTE # 171 -PORT # 238 -BYTE # 172 -PORT # 238 -BYTE # 173 -PORT # 238 -BYTE # 174 -PORT # 238 -BYTE # 175 -PORT # 238 -BYTE # 176 -PORT # 238 -BYTE # 177 -PORT # 238 -BYTE # 178 -PORT # 238 -BYTE # 179 -PORT # 238 -BYTE # 180 -PORT # 238 -BYTE # 181 -PORT # 238 -BYTE # 182 -PORT # 238 -BYTE # 183 -PORT # 238 -BYTE # 184 -PORT # 238 -BYTE # 185 -PORT # 238 -BYTE # 186 -PORT # 238 -BYTE # 187 -PORT # 238 -BYTE # 188 -PORT # 238 -BYTE # 189 -PORT # 238 -BYTE # 190 -PORT # 238 -BYTE # 191 -PORT # 238 -BYTE # 192 -PORT # 238 -BYTE # 193 -PORT # 238 -BYTE # 194 -PORT # 238 -BYTE # 195 -PORT # 238 -BYTE # 196 -PORT # 238 -BYTE # 197 -PORT # 238 -BYTE # 198 -PORT # 238 -BYTE # 199 -PORT # 238 -BYTE # 200 -PORT # 238 -BYTE # 201 -PORT # 238 -BYTE # 202 -PORT # 238 -BYTE # 203 -PORT # 238 -BYTE # 204 -PORT # 238 -BYTE # 205 -PORT # 238 -BYTE # 206 -PORT # 238 -BYTE # 207 -PORT # 238 -BYTE # 208 -PORT # 238 -BYTE # 209 -PORT # 238 -BYTE # 210 -PORT # 238 -BYTE # 211 -PORT # 238 -BYTE # 212 -PORT # 238 -BYTE # 213 -PORT # 238 -BYTE # 214 -PORT # 238 -BYTE # 215 -PORT # 238 -BYTE # 216 -PORT # 238 -BYTE # 217 -PORT # 238 -BYTE # 218 -PORT # 238 -BYTE # 219 -PORT # 238 -BYTE # 220 -PORT # 238 -BYTE # 221 -PORT # 238 -BYTE # 222 -PORT # 238 -BYTE # 223 -PORT # 238 -BYTE # 224 -PORT # 238 -BYTE # 225 -PORT # 238 -BYTE # 226 -PORT # 238 -BYTE # 227 -PORT # 238 -BYTE # 228 -PORT # 238 -BYTE # 229 -PORT # 238 -BYTE # 230 -PORT # 238 -BYTE # 231 -PORT # 238 -BYTE # 232 -PORT # 238 -BYTE # 233 -PORT # 238 -BYTE # 234 -PORT # 238 -BYTE # 235 -PORT # 238 -BYTE # 236 -PORT # 238 -BYTE # 237 -PORT # 238 -BYTE # 238 -PORT # 238 -BYTE # 239 -PORT # 238 -BYTE # 240 -PORT # 238 -BYTE # 241 -PORT # 238 -BYTE # 242 -PORT # 238 -BYTE # 243 -PORT # 238 -BYTE # 244 -PORT # 238 -BYTE # 245 -PORT # 238 -BYTE # 246 -PORT # 238 -BYTE # 247 -PORT # 238 -BYTE # 248 -PORT # 238 -BYTE # 249 -PORT # 238 -BYTE # 250 -PORT # 238 -BYTE # 251 -PORT # 238 -BYTE # 252 -PORT # 238 -BYTE # 253 -PORT # 238 -BYTE # 254 -PORT # 238 -BYTE # 255 -PORT # 239 -BYTE # 0 -PORT # 239 -BYTE # 1 -PORT # 239 -BYTE # 2 -PORT # 239 -BYTE # 3 -PORT # 239 -BYTE # 4 -PORT # 239 -BYTE # 5 -PORT # 239 -BYTE # 6 -PORT # 239 -BYTE # 7 -PORT # 239 -BYTE # 8 -PORT # 239 -BYTE # 9 -PORT # 239 -BYTE # 10 -PORT # 239 -BYTE # 11 -PORT # 239 -BYTE # 12 -PORT # 239 -BYTE # 13 -PORT # 239 -BYTE # 14 -PORT # 239 -BYTE # 15 -PORT # 239 -BYTE # 16 -PORT # 239 -BYTE # 17 -PORT # 239 -BYTE # 18 -PORT # 239 -BYTE # 19 -PORT # 239 -BYTE # 20 -PORT # 239 -BYTE # 21 -PORT # 239 -BYTE # 22 -PORT # 239 -BYTE # 23 -PORT # 239 -BYTE # 24 -PORT # 239 -BYTE # 25 -PORT # 239 -BYTE # 26 -PORT # 239 -BYTE # 27 -PORT # 239 -BYTE # 28 -PORT # 239 -BYTE # 29 -PORT # 239 -BYTE # 30 -PORT # 239 -BYTE # 31 -PORT # 239 -BYTE # 32 -PORT # 239 -BYTE # 33 -PORT # 239 -BYTE # 34 -PORT # 239 -BYTE # 35 -PORT # 239 -BYTE # 36 -PORT # 239 -BYTE # 37 -PORT # 239 -BYTE # 38 -PORT # 239 -BYTE # 39 -PORT # 239 -BYTE # 40 -PORT # 239 -BYTE # 41 -PORT # 239 -BYTE # 42 -PORT # 239 -BYTE # 43 -PORT # 239 -BYTE # 44 -PORT # 239 -BYTE # 45 -PORT # 239 -BYTE # 46 -PORT # 239 -BYTE # 47 -PORT # 239 -BYTE # 48 -PORT # 239 -BYTE # 49 -PORT # 239 -BYTE # 50 -PORT # 239 -BYTE # 51 -PORT # 239 -BYTE # 52 -PORT # 239 -BYTE # 53 -PORT # 239 -BYTE # 54 -PORT # 239 -BYTE # 55 -PORT # 239 -BYTE # 56 -PORT # 239 -BYTE # 57 -PORT # 239 -BYTE # 58 -PORT # 239 -BYTE # 59 -PORT # 239 -BYTE # 60 -PORT # 239 -BYTE # 61 -PORT # 239 -BYTE # 62 -PORT # 239 -BYTE # 63 -PORT # 239 -BYTE # 64 -PORT # 239 -BYTE # 65 -PORT # 239 -BYTE # 66 -PORT # 239 -BYTE # 67 -PORT # 239 -BYTE # 68 -PORT # 239 -BYTE # 69 -PORT # 239 -BYTE # 70 -PORT # 239 -BYTE # 71 -PORT # 239 -BYTE # 72 -PORT # 239 -BYTE # 73 -PORT # 239 -BYTE # 74 -PORT # 239 -BYTE # 75 -PORT # 239 -BYTE # 76 -PORT # 239 -BYTE # 77 -PORT # 239 -BYTE # 78 -PORT # 239 -BYTE # 79 -PORT # 239 -BYTE # 80 -PORT # 239 -BYTE # 81 -PORT # 239 -BYTE # 82 -PORT # 239 -BYTE # 83 -PORT # 239 -BYTE # 84 -PORT # 239 -BYTE # 85 -PORT # 239 -BYTE # 86 -PORT # 239 -BYTE # 87 -PORT # 239 -BYTE # 88 -PORT # 239 -BYTE # 89 -PORT # 239 -BYTE # 90 -PORT # 239 -BYTE # 91 -PORT # 239 -BYTE # 92 -PORT # 239 -BYTE # 93 -PORT # 239 -BYTE # 94 -PORT # 239 -BYTE # 95 -PORT # 239 -BYTE # 96 -PORT # 239 -BYTE # 97 -PORT # 239 -BYTE # 98 -PORT # 239 -BYTE # 99 -PORT # 239 -BYTE # 100 -PORT # 239 -BYTE # 101 -PORT # 239 -BYTE # 102 -PORT # 239 -BYTE # 103 -PORT # 239 -BYTE # 104 -PORT # 239 -BYTE # 105 -PORT # 239 -BYTE # 106 -PORT # 239 -BYTE # 107 -PORT # 239 -BYTE # 108 -PORT # 239 -BYTE # 109 -PORT # 239 -BYTE # 110 -PORT # 239 -BYTE # 111 -PORT # 239 -BYTE # 112 -PORT # 239 -BYTE # 113 -PORT # 239 -BYTE # 114 -PORT # 239 -BYTE # 115 -PORT # 239 -BYTE # 116 -PORT # 239 -BYTE # 117 -PORT # 239 -BYTE # 118 -PORT # 239 -BYTE # 119 -PORT # 239 -BYTE # 120 -PORT # 239 -BYTE # 121 -PORT # 239 -BYTE # 122 -PORT # 239 -BYTE # 123 -PORT # 239 -BYTE # 124 -PORT # 239 -BYTE # 125 -PORT # 239 -BYTE # 126 -PORT # 239 -BYTE # 127 -PORT # 239 -BYTE # 128 -PORT # 239 -BYTE # 129 -PORT # 239 -BYTE # 130 -PORT # 239 -BYTE # 131 -PORT # 239 -BYTE # 132 -PORT # 239 -BYTE # 133 -PORT # 239 -BYTE # 134 -PORT # 239 -BYTE # 135 -PORT # 239 -BYTE # 136 -PORT # 239 -BYTE # 137 -PORT # 239 -BYTE # 138 -PORT # 239 -BYTE # 139 -PORT # 239 -BYTE # 140 -PORT # 239 -BYTE # 141 -PORT # 239 -BYTE # 142 -PORT # 239 -BYTE # 143 -PORT # 239 -BYTE # 144 -PORT # 239 -BYTE # 145 -PORT # 239 -BYTE # 146 -PORT # 239 -BYTE # 147 -PORT # 239 -BYTE # 148 -PORT # 239 -BYTE # 149 -PORT # 239 -BYTE # 150 -PORT # 239 -BYTE # 151 -PORT # 239 -BYTE # 152 -PORT # 239 -BYTE # 153 -PORT # 239 -BYTE # 154 -PORT # 239 -BYTE # 155 -PORT # 239 -BYTE # 156 -PORT # 239 -BYTE # 157 -PORT # 239 -BYTE # 158 -PORT # 239 -BYTE # 159 -PORT # 239 -BYTE # 160 -PORT # 239 -BYTE # 161 -PORT # 239 -BYTE # 162 -PORT # 239 -BYTE # 163 -PORT # 239 -BYTE # 164 -PORT # 239 -BYTE # 165 -PORT # 239 -BYTE # 166 -PORT # 239 -BYTE # 167 -PORT # 239 -BYTE # 168 -PORT # 239 -BYTE # 169 -PORT # 239 -BYTE # 170 -PORT # 239 -BYTE # 171 -PORT # 239 -BYTE # 172 -PORT # 239 -BYTE # 173 -PORT # 239 -BYTE # 174 -PORT # 239 -BYTE # 175 -PORT # 239 -BYTE # 176 -PORT # 239 -BYTE # 177 -PORT # 239 -BYTE # 178 -PORT # 239 -BYTE # 179 -PORT # 239 -BYTE # 180 -PORT # 239 -BYTE # 181 -PORT # 239 -BYTE # 182 -PORT # 239 -BYTE # 183 -PORT # 239 -BYTE # 184 -PORT # 239 -BYTE # 185 -PORT # 239 -BYTE # 186 -PORT # 239 -BYTE # 187 -PORT # 239 -BYTE # 188 -PORT # 239 -BYTE # 189 -PORT # 239 -BYTE # 190 -PORT # 239 -BYTE # 191 -PORT # 239 -BYTE # 192 -PORT # 239 -BYTE # 193 -PORT # 239 -BYTE # 194 -PORT # 239 -BYTE # 195 -PORT # 239 -BYTE # 196 -PORT # 239 -BYTE # 197 -PORT # 239 -BYTE # 198 -PORT # 239 -BYTE # 199 -PORT # 239 -BYTE # 200 -PORT # 239 -BYTE # 201 -PORT # 239 -BYTE # 202 -PORT # 239 -BYTE # 203 -PORT # 239 -BYTE # 204 -PORT # 239 -BYTE # 205 -PORT # 239 -BYTE # 206 -PORT # 239 -BYTE # 207 -PORT # 239 -BYTE # 208 -PORT # 239 -BYTE # 209 -PORT # 239 -BYTE # 210 -PORT # 239 -BYTE # 211 -PORT # 239 -BYTE # 212 -PORT # 239 -BYTE # 213 -PORT # 239 -BYTE # 214 -PORT # 239 -BYTE # 215 -PORT # 239 -BYTE # 216 -PORT # 239 -BYTE # 217 -PORT # 239 -BYTE # 218 -PORT # 239 -BYTE # 219 -PORT # 239 -BYTE # 220 -PORT # 239 -BYTE # 221 -PORT # 239 -BYTE # 222 -PORT # 239 -BYTE # 223 -PORT # 239 -BYTE # 224 -PORT # 239 -BYTE # 225 -PORT # 239 -BYTE # 226 -PORT # 239 -BYTE # 227 -PORT # 239 -BYTE # 228 -PORT # 239 -BYTE # 229 -PORT # 239 -BYTE # 230 -PORT # 239 -BYTE # 231 -PORT # 239 -BYTE # 232 -PORT # 239 -BYTE # 233 -PORT # 239 -BYTE # 234 -PORT # 239 -BYTE # 235 -PORT # 239 -BYTE # 236 -PORT # 239 -BYTE # 237 -PORT # 239 -BYTE # 238 -PORT # 239 -BYTE # 239 -PORT # 239 -BYTE # 240 -PORT # 239 -BYTE # 241 -PORT # 239 -BYTE # 242 -PORT # 239 -BYTE # 243 -PORT # 239 -BYTE # 244 -PORT # 239 -BYTE # 245 -PORT # 239 -BYTE # 246 -PORT # 239 -BYTE # 247 -PORT # 239 -BYTE # 248 -PORT # 239 -BYTE # 249 -PORT # 239 -BYTE # 250 -PORT # 239 -BYTE # 251 -PORT # 239 -BYTE # 252 -PORT # 239 -BYTE # 253 -PORT # 239 -BYTE # 254 -PORT # 239 -BYTE # 255 -PORT # 240 -BYTE # 0 -PORT # 240 -BYTE # 1 -PORT # 240 -BYTE # 2 -PORT # 240 -BYTE # 3 -PORT # 240 -BYTE # 4 -PORT # 240 -BYTE # 5 -PORT # 240 -BYTE # 6 -PORT # 240 -BYTE # 7 -PORT # 240 -BYTE # 8 -PORT # 240 -BYTE # 9 -PORT # 240 -BYTE # 10 -PORT # 240 -BYTE # 11 -PORT # 240 -BYTE # 12 -PORT # 240 -BYTE # 13 -PORT # 240 -BYTE # 14 -PORT # 240 -BYTE # 15 -PORT # 240 -BYTE # 16 -PORT # 240 -BYTE # 17 -PORT # 240 -BYTE # 18 -PORT # 240 -BYTE # 19 -PORT # 240 -BYTE # 20 -PORT # 240 -BYTE # 21 -PORT # 240 -BYTE # 22 -PORT # 240 -BYTE # 23 -PORT # 240 -BYTE # 24 -PORT # 240 -BYTE # 25 -PORT # 240 -BYTE # 26 -PORT # 240 -BYTE # 27 -PORT # 240 -BYTE # 28 -PORT # 240 -BYTE # 29 -PORT # 240 -BYTE # 30 -PORT # 240 -BYTE # 31 -PORT # 240 -BYTE # 32 -PORT # 240 -BYTE # 33 -PORT # 240 -BYTE # 34 -PORT # 240 -BYTE # 35 -PORT # 240 -BYTE # 36 -PORT # 240 -BYTE # 37 -PORT # 240 -BYTE # 38 -PORT # 240 -BYTE # 39 -PORT # 240 -BYTE # 40 -PORT # 240 -BYTE # 41 -PORT # 240 -BYTE # 42 -PORT # 240 -BYTE # 43 -PORT # 240 -BYTE # 44 -PORT # 240 -BYTE # 45 -PORT # 240 -BYTE # 46 -PORT # 240 -BYTE # 47 -PORT # 240 -BYTE # 48 -PORT # 240 -BYTE # 49 -PORT # 240 -BYTE # 50 -PORT # 240 -BYTE # 51 -PORT # 240 -BYTE # 52 -PORT # 240 -BYTE # 53 -PORT # 240 -BYTE # 54 -PORT # 240 -BYTE # 55 -PORT # 240 -BYTE # 56 -PORT # 240 -BYTE # 57 -PORT # 240 -BYTE # 58 -PORT # 240 -BYTE # 59 -PORT # 240 -BYTE # 60 -PORT # 240 -BYTE # 61 -PORT # 240 -BYTE # 62 -PORT # 240 -BYTE # 63 -PORT # 240 -BYTE # 64 -PORT # 240 -BYTE # 65 -PORT # 240 -BYTE # 66 -PORT # 240 -BYTE # 67 -PORT # 240 -BYTE # 68 -PORT # 240 -BYTE # 69 -PORT # 240 -BYTE # 70 -PORT # 240 -BYTE # 71 -PORT # 240 -BYTE # 72 -PORT # 240 -BYTE # 73 -PORT # 240 -BYTE # 74 -PORT # 240 -BYTE # 75 -PORT # 240 -BYTE # 76 -PORT # 240 -BYTE # 77 -PORT # 240 -BYTE # 78 -PORT # 240 -BYTE # 79 -PORT # 240 -BYTE # 80 -PORT # 240 -BYTE # 81 -PORT # 240 -BYTE # 82 -PORT # 240 -BYTE # 83 -PORT # 240 -BYTE # 84 -PORT # 240 -BYTE # 85 -PORT # 240 -BYTE # 86 -PORT # 240 -BYTE # 87 -PORT # 240 -BYTE # 88 -PORT # 240 -BYTE # 89 -PORT # 240 -BYTE # 90 -PORT # 240 -BYTE # 91 -PORT # 240 -BYTE # 92 -PORT # 240 -BYTE # 93 -PORT # 240 -BYTE # 94 -PORT # 240 -BYTE # 95 -PORT # 240 -BYTE # 96 -PORT # 240 -BYTE # 97 -PORT # 240 -BYTE # 98 -PORT # 240 -BYTE # 99 -PORT # 240 -BYTE # 100 -PORT # 240 -BYTE # 101 -PORT # 240 -BYTE # 102 -PORT # 240 -BYTE # 103 -PORT # 240 -BYTE # 104 -PORT # 240 -BYTE # 105 -PORT # 240 -BYTE # 106 -PORT # 240 -BYTE # 107 -PORT # 240 -BYTE # 108 -PORT # 240 -BYTE # 109 -PORT # 240 -BYTE # 110 -PORT # 240 -BYTE # 111 -PORT # 240 -BYTE # 112 -PORT # 240 -BYTE # 113 -PORT # 240 -BYTE # 114 -PORT # 240 -BYTE # 115 -PORT # 240 -BYTE # 116 -PORT # 240 -BYTE # 117 -PORT # 240 -BYTE # 118 -PORT # 240 -BYTE # 119 -PORT # 240 -BYTE # 120 -PORT # 240 -BYTE # 121 -PORT # 240 -BYTE # 122 -PORT # 240 -BYTE # 123 -PORT # 240 -BYTE # 124 -PORT # 240 -BYTE # 125 -PORT # 240 -BYTE # 126 -PORT # 240 -BYTE # 127 -PORT # 240 -BYTE # 128 -PORT # 240 -BYTE # 129 -PORT # 240 -BYTE # 130 -PORT # 240 -BYTE # 131 -PORT # 240 -BYTE # 132 -PORT # 240 -BYTE # 133 -PORT # 240 -BYTE # 134 -PORT # 240 -BYTE # 135 -PORT # 240 -BYTE # 136 -PORT # 240 -BYTE # 137 -PORT # 240 -BYTE # 138 -PORT # 240 -BYTE # 139 -PORT # 240 -BYTE # 140 -PORT # 240 -BYTE # 141 -PORT # 240 -BYTE # 142 -PORT # 240 -BYTE # 143 -PORT # 240 -BYTE # 144 -PORT # 240 -BYTE # 145 -PORT # 240 -BYTE # 146 -PORT # 240 -BYTE # 147 -PORT # 240 -BYTE # 148 -PORT # 240 -BYTE # 149 -PORT # 240 -BYTE # 150 -PORT # 240 -BYTE # 151 -PORT # 240 -BYTE # 152 -PORT # 240 -BYTE # 153 -PORT # 240 -BYTE # 154 -PORT # 240 -BYTE # 155 -PORT # 240 -BYTE # 156 -PORT # 240 -BYTE # 157 -PORT # 240 -BYTE # 158 -PORT # 240 -BYTE # 159 -PORT # 240 -BYTE # 160 -PORT # 240 -BYTE # 161 -PORT # 240 -BYTE # 162 -PORT # 240 -BYTE # 163 -PORT # 240 -BYTE # 164 -PORT # 240 -BYTE # 165 -PORT # 240 -BYTE # 166 -PORT # 240 -BYTE # 167 -PORT # 240 -BYTE # 168 -PORT # 240 -BYTE # 169 -PORT # 240 -BYTE # 170 -PORT # 240 -BYTE # 171 -PORT # 240 -BYTE # 172 -PORT # 240 -BYTE # 173 -PORT # 240 -BYTE # 174 -PORT # 240 -BYTE # 175 -PORT # 240 -BYTE # 176 -PORT # 240 -BYTE # 177 -PORT # 240 -BYTE # 178 -PORT # 240 -BYTE # 179 -PORT # 240 -BYTE # 180 -PORT # 240 -BYTE # 181 -PORT # 240 -BYTE # 182 -PORT # 240 -BYTE # 183 -PORT # 240 -BYTE # 184 -PORT # 240 -BYTE # 185 -PORT # 240 -BYTE # 186 -PORT # 240 -BYTE # 187 -PORT # 240 -BYTE # 188 -PORT # 240 -BYTE # 189 -PORT # 240 -BYTE # 190 -PORT # 240 -BYTE # 191 -PORT # 240 -BYTE # 192 -PORT # 240 -BYTE # 193 -PORT # 240 -BYTE # 194 -PORT # 240 -BYTE # 195 -PORT # 240 -BYTE # 196 -PORT # 240 -BYTE # 197 -PORT # 240 -BYTE # 198 -PORT # 240 -BYTE # 199 -PORT # 240 -BYTE # 200 -PORT # 240 -BYTE # 201 -PORT # 240 -BYTE # 202 -PORT # 240 -BYTE # 203 -PORT # 240 -BYTE # 204 -PORT # 240 -BYTE # 205 -PORT # 240 -BYTE # 206 -PORT # 240 -BYTE # 207 -PORT # 240 -BYTE # 208 -PORT # 240 -BYTE # 209 -PORT # 240 -BYTE # 210 -PORT # 240 -BYTE # 211 -PORT # 240 -BYTE # 212 -PORT # 240 -BYTE # 213 -PORT # 240 -BYTE # 214 -PORT # 240 -BYTE # 215 -PORT # 240 -BYTE # 216 -PORT # 240 -BYTE # 217 -PORT # 240 -BYTE # 218 -PORT # 240 -BYTE # 219 -PORT # 240 -BYTE # 220 -PORT # 240 -BYTE # 221 -PORT # 240 -BYTE # 222 -PORT # 240 -BYTE # 223 -PORT # 240 -BYTE # 224 -PORT # 240 -BYTE # 225 -PORT # 240 -BYTE # 226 -PORT # 240 -BYTE # 227 -PORT # 240 -BYTE # 228 -PORT # 240 -BYTE # 229 -PORT # 240 -BYTE # 230 -PORT # 240 -BYTE # 231 -PORT # 240 -BYTE # 232 -PORT # 240 -BYTE # 233 -PORT # 240 -BYTE # 234 -PORT # 240 -BYTE # 235 -PORT # 240 -BYTE # 236 -PORT # 240 -BYTE # 237 -PORT # 240 -BYTE # 238 -PORT # 240 -BYTE # 239 -PORT # 240 -BYTE # 240 -PORT # 240 -BYTE # 241 -PORT # 240 -BYTE # 242 -PORT # 240 -BYTE # 243 -PORT # 240 -BYTE # 244 -PORT # 240 -BYTE # 245 -PORT # 240 -BYTE # 246 -PORT # 240 -BYTE # 247 -PORT # 240 -BYTE # 248 -PORT # 240 -BYTE # 249 -PORT # 240 -BYTE # 250 -PORT # 240 -BYTE # 251 -PORT # 240 -BYTE # 252 -PORT # 240 -BYTE # 253 -PORT # 240 -BYTE # 254 -PORT # 240 -BYTE # 255 -PORT # 241 -BYTE # 0 -PORT # 241 -BYTE # 1 -PORT # 241 -BYTE # 2 -PORT # 241 -BYTE # 3 -PORT # 241 -BYTE # 4 -PORT # 241 -BYTE # 5 -PORT # 241 -BYTE # 6 -PORT # 241 -BYTE # 7 -PORT # 241 -BYTE # 8 -PORT # 241 -BYTE # 9 -PORT # 241 -BYTE # 10 -PORT # 241 -BYTE # 11 -PORT # 241 -BYTE # 12 -PORT # 241 -BYTE # 13 -PORT # 241 -BYTE # 14 -PORT # 241 -BYTE # 15 -PORT # 241 -BYTE # 16 -PORT # 241 -BYTE # 17 -PORT # 241 -BYTE # 18 -PORT # 241 -BYTE # 19 -PORT # 241 -BYTE # 20 -PORT # 241 -BYTE # 21 -PORT # 241 -BYTE # 22 -PORT # 241 -BYTE # 23 -PORT # 241 -BYTE # 24 -PORT # 241 -BYTE # 25 -PORT # 241 -BYTE # 26 -PORT # 241 -BYTE # 27 -PORT # 241 -BYTE # 28 -PORT # 241 -BYTE # 29 -PORT # 241 -BYTE # 30 -PORT # 241 -BYTE # 31 -PORT # 241 -BYTE # 32 -PORT # 241 -BYTE # 33 -PORT # 241 -BYTE # 34 -PORT # 241 -BYTE # 35 -PORT # 241 -BYTE # 36 -PORT # 241 -BYTE # 37 -PORT # 241 -BYTE # 38 -PORT # 241 -BYTE # 39 -PORT # 241 -BYTE # 40 -PORT # 241 -BYTE # 41 -PORT # 241 -BYTE # 42 -PORT # 241 -BYTE # 43 -PORT # 241 -BYTE # 44 -PORT # 241 -BYTE # 45 -PORT # 241 -BYTE # 46 -PORT # 241 -BYTE # 47 -PORT # 241 -BYTE # 48 -PORT # 241 -BYTE # 49 -PORT # 241 -BYTE # 50 -PORT # 241 -BYTE # 51 -PORT # 241 -BYTE # 52 -PORT # 241 -BYTE # 53 -PORT # 241 -BYTE # 54 -PORT # 241 -BYTE # 55 -PORT # 241 -BYTE # 56 -PORT # 241 -BYTE # 57 -PORT # 241 -BYTE # 58 -PORT # 241 -BYTE # 59 -PORT # 241 -BYTE # 60 -PORT # 241 -BYTE # 61 -PORT # 241 -BYTE # 62 -PORT # 241 -BYTE # 63 -PORT # 241 -BYTE # 64 -PORT # 241 -BYTE # 65 -PORT # 241 -BYTE # 66 -PORT # 241 -BYTE # 67 -PORT # 241 -BYTE # 68 -PORT # 241 -BYTE # 69 -PORT # 241 -BYTE # 70 -PORT # 241 -BYTE # 71 -PORT # 241 -BYTE # 72 -PORT # 241 -BYTE # 73 -PORT # 241 -BYTE # 74 -PORT # 241 -BYTE # 75 -PORT # 241 -BYTE # 76 -PORT # 241 -BYTE # 77 -PORT # 241 -BYTE # 78 -PORT # 241 -BYTE # 79 -PORT # 241 -BYTE # 80 -PORT # 241 -BYTE # 81 -PORT # 241 -BYTE # 82 -PORT # 241 -BYTE # 83 -PORT # 241 -BYTE # 84 -PORT # 241 -BYTE # 85 -PORT # 241 -BYTE # 86 -PORT # 241 -BYTE # 87 -PORT # 241 -BYTE # 88 -PORT # 241 -BYTE # 89 -PORT # 241 -BYTE # 90 -PORT # 241 -BYTE # 91 -PORT # 241 -BYTE # 92 -PORT # 241 -BYTE # 93 -PORT # 241 -BYTE # 94 -PORT # 241 -BYTE # 95 -PORT # 241 -BYTE # 96 -PORT # 241 -BYTE # 97 -PORT # 241 -BYTE # 98 -PORT # 241 -BYTE # 99 -PORT # 241 -BYTE # 100 -PORT # 241 -BYTE # 101 -PORT # 241 -BYTE # 102 -PORT # 241 -BYTE # 103 -PORT # 241 -BYTE # 104 -PORT # 241 -BYTE # 105 -PORT # 241 -BYTE # 106 -PORT # 241 -BYTE # 107 -PORT # 241 -BYTE # 108 -PORT # 241 -BYTE # 109 -PORT # 241 -BYTE # 110 -PORT # 241 -BYTE # 111 -PORT # 241 -BYTE # 112 -PORT # 241 -BYTE # 113 -PORT # 241 -BYTE # 114 -PORT # 241 -BYTE # 115 -PORT # 241 -BYTE # 116 -PORT # 241 -BYTE # 117 -PORT # 241 -BYTE # 118 -PORT # 241 -BYTE # 119 -PORT # 241 -BYTE # 120 -PORT # 241 -BYTE # 121 -PORT # 241 -BYTE # 122 -PORT # 241 -BYTE # 123 -PORT # 241 -BYTE # 124 -PORT # 241 -BYTE # 125 -PORT # 241 -BYTE # 126 -PORT # 241 -BYTE # 127 -PORT # 241 -BYTE # 128 -PORT # 241 -BYTE # 129 -PORT # 241 -BYTE # 130 -PORT # 241 -BYTE # 131 -PORT # 241 -BYTE # 132 -PORT # 241 -BYTE # 133 -PORT # 241 -BYTE # 134 -PORT # 241 -BYTE # 135 -PORT # 241 -BYTE # 136 -PORT # 241 -BYTE # 137 -PORT # 241 -BYTE # 138 -PORT # 241 -BYTE # 139 -PORT # 241 -BYTE # 140 -PORT # 241 -BYTE # 141 -PORT # 241 -BYTE # 142 -PORT # 241 -BYTE # 143 -PORT # 241 -BYTE # 144 -PORT # 241 -BYTE # 145 -PORT # 241 -BYTE # 146 -PORT # 241 -BYTE # 147 -PORT # 241 -BYTE # 148 -PORT # 241 -BYTE # 149 -PORT # 241 -BYTE # 150 -PORT # 241 -BYTE # 151 -PORT # 241 -BYTE # 152 -PORT # 241 -BYTE # 153 -PORT # 241 -BYTE # 154 -PORT # 241 -BYTE # 155 -PORT # 241 -BYTE # 156 -PORT # 241 -BYTE # 157 -PORT # 241 -BYTE # 158 -PORT # 241 -BYTE # 159 -PORT # 241 -BYTE # 160 -PORT # 241 -BYTE # 161 -PORT # 241 -BYTE # 162 -PORT # 241 -BYTE # 163 -PORT # 241 -BYTE # 164 -PORT # 241 -BYTE # 165 -PORT # 241 -BYTE # 166 -PORT # 241 -BYTE # 167 -PORT # 241 -BYTE # 168 -PORT # 241 -BYTE # 169 -PORT # 241 -BYTE # 170 -PORT # 241 -BYTE # 171 -PORT # 241 -BYTE # 172 -PORT # 241 -BYTE # 173 -PORT # 241 -BYTE # 174 -PORT # 241 -BYTE # 175 -PORT # 241 -BYTE # 176 -PORT # 241 -BYTE # 177 -PORT # 241 -BYTE # 178 -PORT # 241 -BYTE # 179 -PORT # 241 -BYTE # 180 -PORT # 241 -BYTE # 181 -PORT # 241 -BYTE # 182 -PORT # 241 -BYTE # 183 -PORT # 241 -BYTE # 184 -PORT # 241 -BYTE # 185 -PORT # 241 -BYTE # 186 -PORT # 241 -BYTE # 187 -PORT # 241 -BYTE # 188 -PORT # 241 -BYTE # 189 -PORT # 241 -BYTE # 190 -PORT # 241 -BYTE # 191 -PORT # 241 -BYTE # 192 -PORT # 241 -BYTE # 193 -PORT # 241 -BYTE # 194 -PORT # 241 -BYTE # 195 -PORT # 241 -BYTE # 196 -PORT # 241 -BYTE # 197 -PORT # 241 -BYTE # 198 -PORT # 241 -BYTE # 199 -PORT # 241 -BYTE # 200 -PORT # 241 -BYTE # 201 -PORT # 241 -BYTE # 202 -PORT # 241 -BYTE # 203 -PORT # 241 -BYTE # 204 -PORT # 241 -BYTE # 205 -PORT # 241 -BYTE # 206 -PORT # 241 -BYTE # 207 -PORT # 241 -BYTE # 208 -PORT # 241 -BYTE # 209 -PORT # 241 -BYTE # 210 -PORT # 241 -BYTE # 211 -PORT # 241 -BYTE # 212 -PORT # 241 -BYTE # 213 -PORT # 241 -BYTE # 214 -PORT # 241 -BYTE # 215 -PORT # 241 -BYTE # 216 -PORT # 241 -BYTE # 217 -PORT # 241 -BYTE # 218 -PORT # 241 -BYTE # 219 -PORT # 241 -BYTE # 220 -PORT # 241 -BYTE # 221 -PORT # 241 -BYTE # 222 -PORT # 241 -BYTE # 223 -PORT # 241 -BYTE # 224 -PORT # 241 -BYTE # 225 -PORT # 241 -BYTE # 226 -PORT # 241 -BYTE # 227 -PORT # 241 -BYTE # 228 -PORT # 241 -BYTE # 229 -PORT # 241 -BYTE # 230 -PORT # 241 -BYTE # 231 -PORT # 241 -BYTE # 232 -PORT # 241 -BYTE # 233 -PORT # 241 -BYTE # 234 -PORT # 241 -BYTE # 235 -PORT # 241 -BYTE # 236 -PORT # 241 -BYTE # 237 -PORT # 241 -BYTE # 238 -PORT # 241 -BYTE # 239 -PORT # 241 -BYTE # 240 -PORT # 241 -BYTE # 241 -PORT # 241 -BYTE # 242 -PORT # 241 -BYTE # 243 -PORT # 241 -BYTE # 244 -PORT # 241 -BYTE # 245 -PORT # 241 -BYTE # 246 -PORT # 241 -BYTE # 247 -PORT # 241 -BYTE # 248 -PORT # 241 -BYTE # 249 -PORT # 241 -BYTE # 250 -PORT # 241 -BYTE # 251 -PORT # 241 -BYTE # 252 -PORT # 241 -BYTE # 253 -PORT # 241 -BYTE # 254 -PORT # 241 -BYTE # 255 -PORT # 242 -BYTE # 0 -PORT # 242 -BYTE # 1 -PORT # 242 -BYTE # 2 -PORT # 242 -BYTE # 3 -PORT # 242 -BYTE # 4 -PORT # 242 -BYTE # 5 -PORT # 242 -BYTE # 6 -PORT # 242 -BYTE # 7 -PORT # 242 -BYTE # 8 -PORT # 242 -BYTE # 9 -PORT # 242 -BYTE # 10 -PORT # 242 -BYTE # 11 -PORT # 242 -BYTE # 12 -PORT # 242 -BYTE # 13 -PORT # 242 -BYTE # 14 -PORT # 242 -BYTE # 15 -PORT # 242 -BYTE # 16 -PORT # 242 -BYTE # 17 -PORT # 242 -BYTE # 18 -PORT # 242 -BYTE # 19 -PORT # 242 -BYTE # 20 -PORT # 242 -BYTE # 21 -PORT # 242 -BYTE # 22 -PORT # 242 -BYTE # 23 -PORT # 242 -BYTE # 24 -PORT # 242 -BYTE # 25 -PORT # 242 -BYTE # 26 -PORT # 242 -BYTE # 27 -PORT # 242 -BYTE # 28 -PORT # 242 -BYTE # 29 -PORT # 242 -BYTE # 30 -PORT # 242 -BYTE # 31 -PORT # 242 -BYTE # 32 -PORT # 242 -BYTE # 33 -PORT # 242 -BYTE # 34 -PORT # 242 -BYTE # 35 -PORT # 242 -BYTE # 36 -PORT # 242 -BYTE # 37 -PORT # 242 -BYTE # 38 -PORT # 242 -BYTE # 39 -PORT # 242 -BYTE # 40 -PORT # 242 -BYTE # 41 -PORT # 242 -BYTE # 42 -PORT # 242 -BYTE # 43 -PORT # 242 -BYTE # 44 -PORT # 242 -BYTE # 45 -PORT # 242 -BYTE # 46 -PORT # 242 -BYTE # 47 -PORT # 242 -BYTE # 48 -PORT # 242 -BYTE # 49 -PORT # 242 -BYTE # 50 -PORT # 242 -BYTE # 51 -PORT # 242 -BYTE # 52 -PORT # 242 -BYTE # 53 -PORT # 242 -BYTE # 54 -PORT # 242 -BYTE # 55 -PORT # 242 -BYTE # 56 -PORT # 242 -BYTE # 57 -PORT # 242 -BYTE # 58 -PORT # 242 -BYTE # 59 -PORT # 242 -BYTE # 60 -PORT # 242 -BYTE # 61 -PORT # 242 -BYTE # 62 -PORT # 242 -BYTE # 63 -PORT # 242 -BYTE # 64 -PORT # 242 -BYTE # 65 -PORT # 242 -BYTE # 66 -PORT # 242 -BYTE # 67 -PORT # 242 -BYTE # 68 -PORT # 242 -BYTE # 69 -PORT # 242 -BYTE # 70 -PORT # 242 -BYTE # 71 -PORT # 242 -BYTE # 72 -PORT # 242 -BYTE # 73 -PORT # 242 -BYTE # 74 -PORT # 242 -BYTE # 75 -PORT # 242 -BYTE # 76 -PORT # 242 -BYTE # 77 -PORT # 242 -BYTE # 78 -PORT # 242 -BYTE # 79 -PORT # 242 -BYTE # 80 -PORT # 242 -BYTE # 81 -PORT # 242 -BYTE # 82 -PORT # 242 -BYTE # 83 -PORT # 242 -BYTE # 84 -PORT # 242 -BYTE # 85 -PORT # 242 -BYTE # 86 -PORT # 242 -BYTE # 87 -PORT # 242 -BYTE # 88 -PORT # 242 -BYTE # 89 -PORT # 242 -BYTE # 90 -PORT # 242 -BYTE # 91 -PORT # 242 -BYTE # 92 -PORT # 242 -BYTE # 93 -PORT # 242 -BYTE # 94 -PORT # 242 -BYTE # 95 -PORT # 242 -BYTE # 96 -PORT # 242 -BYTE # 97 -PORT # 242 -BYTE # 98 -PORT # 242 -BYTE # 99 -PORT # 242 -BYTE # 100 -PORT # 242 -BYTE # 101 -PORT # 242 -BYTE # 102 -PORT # 242 -BYTE # 103 -PORT # 242 -BYTE # 104 -PORT # 242 -BYTE # 105 -PORT # 242 -BYTE # 106 -PORT # 242 -BYTE # 107 -PORT # 242 -BYTE # 108 -PORT # 242 -BYTE # 109 -PORT # 242 -BYTE # 110 -PORT # 242 -BYTE # 111 -PORT # 242 -BYTE # 112 -PORT # 242 -BYTE # 113 -PORT # 242 -BYTE # 114 -PORT # 242 -BYTE # 115 -PORT # 242 -BYTE # 116 -PORT # 242 -BYTE # 117 -PORT # 242 -BYTE # 118 -PORT # 242 -BYTE # 119 -PORT # 242 -BYTE # 120 -PORT # 242 -BYTE # 121 -PORT # 242 -BYTE # 122 -PORT # 242 -BYTE # 123 -PORT # 242 -BYTE # 124 -PORT # 242 -BYTE # 125 -PORT # 242 -BYTE # 126 -PORT # 242 -BYTE # 127 -PORT # 242 -BYTE # 128 -PORT # 242 -BYTE # 129 -PORT # 242 -BYTE # 130 -PORT # 242 -BYTE # 131 -PORT # 242 -BYTE # 132 -PORT # 242 -BYTE # 133 -PORT # 242 -BYTE # 134 -PORT # 242 -BYTE # 135 -PORT # 242 -BYTE # 136 -PORT # 242 -BYTE # 137 -PORT # 242 -BYTE # 138 -PORT # 242 -BYTE # 139 -PORT # 242 -BYTE # 140 -PORT # 242 -BYTE # 141 -PORT # 242 -BYTE # 142 -PORT # 242 -BYTE # 143 -PORT # 242 -BYTE # 144 -PORT # 242 -BYTE # 145 -PORT # 242 -BYTE # 146 -PORT # 242 -BYTE # 147 -PORT # 242 -BYTE # 148 -PORT # 242 -BYTE # 149 -PORT # 242 -BYTE # 150 -PORT # 242 -BYTE # 151 -PORT # 242 -BYTE # 152 -PORT # 242 -BYTE # 153 -PORT # 242 -BYTE # 154 -PORT # 242 -BYTE # 155 -PORT # 242 -BYTE # 156 -PORT # 242 -BYTE # 157 -PORT # 242 -BYTE # 158 -PORT # 242 -BYTE # 159 -PORT # 242 -BYTE # 160 -PORT # 242 -BYTE # 161 -PORT # 242 -BYTE # 162 -PORT # 242 -BYTE # 163 -PORT # 242 -BYTE # 164 -PORT # 242 -BYTE # 165 -PORT # 242 -BYTE # 166 -PORT # 242 -BYTE # 167 -PORT # 242 -BYTE # 168 -PORT # 242 -BYTE # 169 -PORT # 242 -BYTE # 170 -PORT # 242 -BYTE # 171 -PORT # 242 -BYTE # 172 -PORT # 242 -BYTE # 173 -PORT # 242 -BYTE # 174 -PORT # 242 -BYTE # 175 -PORT # 242 -BYTE # 176 -PORT # 242 -BYTE # 177 -PORT # 242 -BYTE # 178 -PORT # 242 -BYTE # 179 -PORT # 242 -BYTE # 180 -PORT # 242 -BYTE # 181 -PORT # 242 -BYTE # 182 -PORT # 242 -BYTE # 183 -PORT # 242 -BYTE # 184 -PORT # 242 -BYTE # 185 -PORT # 242 -BYTE # 186 -PORT # 242 -BYTE # 187 -PORT # 242 -BYTE # 188 -PORT # 242 -BYTE # 189 -PORT # 242 -BYTE # 190 -PORT # 242 -BYTE # 191 -PORT # 242 -BYTE # 192 -PORT # 242 -BYTE # 193 -PORT # 242 -BYTE # 194 -PORT # 242 -BYTE # 195 -PORT # 242 -BYTE # 196 -PORT # 242 -BYTE # 197 -PORT # 242 -BYTE # 198 -PORT # 242 -BYTE # 199 -PORT # 242 -BYTE # 200 -PORT # 242 -BYTE # 201 -PORT # 242 -BYTE # 202 -PORT # 242 -BYTE # 203 -PORT # 242 -BYTE # 204 -PORT # 242 -BYTE # 205 -PORT # 242 -BYTE # 206 -PORT # 242 -BYTE # 207 -PORT # 242 -BYTE # 208 -PORT # 242 -BYTE # 209 -PORT # 242 -BYTE # 210 -PORT # 242 -BYTE # 211 -PORT # 242 -BYTE # 212 -PORT # 242 -BYTE # 213 -PORT # 242 -BYTE # 214 -PORT # 242 -BYTE # 215 -PORT # 242 -BYTE # 216 -PORT # 242 -BYTE # 217 -PORT # 242 -BYTE # 218 -PORT # 242 -BYTE # 219 -PORT # 242 -BYTE # 220 -PORT # 242 -BYTE # 221 -PORT # 242 -BYTE # 222 -PORT # 242 -BYTE # 223 -PORT # 242 -BYTE # 224 -PORT # 242 -BYTE # 225 -PORT # 242 -BYTE # 226 -PORT # 242 -BYTE # 227 -PORT # 242 -BYTE # 228 -PORT # 242 -BYTE # 229 -PORT # 242 -BYTE # 230 -PORT # 242 -BYTE # 231 -PORT # 242 -BYTE # 232 -PORT # 242 -BYTE # 233 -PORT # 242 -BYTE # 234 -PORT # 242 -BYTE # 235 -PORT # 242 -BYTE # 236 -PORT # 242 -BYTE # 237 -PORT # 242 -BYTE # 238 -PORT # 242 -BYTE # 239 -PORT # 242 -BYTE # 240 -PORT # 242 -BYTE # 241 -PORT # 242 -BYTE # 242 -PORT # 242 -BYTE # 243 -PORT # 242 -BYTE # 244 -PORT # 242 -BYTE # 245 -PORT # 242 -BYTE # 246 -PORT # 242 -BYTE # 247 -PORT # 242 -BYTE # 248 -PORT # 242 -BYTE # 249 -PORT # 242 -BYTE # 250 -PORT # 242 -BYTE # 251 -PORT # 242 -BYTE # 252 -PORT # 242 -BYTE # 253 -PORT # 242 -BYTE # 254 -PORT # 242 -BYTE # 255 -PORT # 243 -BYTE # 0 -PORT # 243 -BYTE # 1 -PORT # 243 -BYTE # 2 -PORT # 243 -BYTE # 3 -PORT # 243 -BYTE # 4 -PORT # 243 -BYTE # 5 -PORT # 243 -BYTE # 6 -PORT # 243 -BYTE # 7 -PORT # 243 -BYTE # 8 -PORT # 243 -BYTE # 9 -PORT # 243 -BYTE # 10 -PORT # 243 -BYTE # 11 -PORT # 243 -BYTE # 12 -PORT # 243 -BYTE # 13 -PORT # 243 -BYTE # 14 -PORT # 243 -BYTE # 15 -PORT # 243 -BYTE # 16 -PORT # 243 -BYTE # 17 -PORT # 243 -BYTE # 18 -PORT # 243 -BYTE # 19 -PORT # 243 -BYTE # 20 -PORT # 243 -BYTE # 21 -PORT # 243 -BYTE # 22 -PORT # 243 -BYTE # 23 -PORT # 243 -BYTE # 24 -PORT # 243 -BYTE # 25 -PORT # 243 -BYTE # 26 -PORT # 243 -BYTE # 27 -PORT # 243 -BYTE # 28 -PORT # 243 -BYTE # 29 -PORT # 243 -BYTE # 30 -PORT # 243 -BYTE # 31 -PORT # 243 -BYTE # 32 -PORT # 243 -BYTE # 33 -PORT # 243 -BYTE # 34 -PORT # 243 -BYTE # 35 -PORT # 243 -BYTE # 36 -PORT # 243 -BYTE # 37 -PORT # 243 -BYTE # 38 -PORT # 243 -BYTE # 39 -PORT # 243 -BYTE # 40 -PORT # 243 -BYTE # 41 -PORT # 243 -BYTE # 42 -PORT # 243 -BYTE # 43 -PORT # 243 -BYTE # 44 -PORT # 243 -BYTE # 45 -PORT # 243 -BYTE # 46 -PORT # 243 -BYTE # 47 -PORT # 243 -BYTE # 48 -PORT # 243 -BYTE # 49 -PORT # 243 -BYTE # 50 -PORT # 243 -BYTE # 51 -PORT # 243 -BYTE # 52 -PORT # 243 -BYTE # 53 -PORT # 243 -BYTE # 54 -PORT # 243 -BYTE # 55 -PORT # 243 -BYTE # 56 -PORT # 243 -BYTE # 57 -PORT # 243 -BYTE # 58 -PORT # 243 -BYTE # 59 -PORT # 243 -BYTE # 60 -PORT # 243 -BYTE # 61 -PORT # 243 -BYTE # 62 -PORT # 243 -BYTE # 63 -PORT # 243 -BYTE # 64 -PORT # 243 -BYTE # 65 -PORT # 243 -BYTE # 66 -PORT # 243 -BYTE # 67 -PORT # 243 -BYTE # 68 -PORT # 243 -BYTE # 69 -PORT # 243 -BYTE # 70 -PORT # 243 -BYTE # 71 -PORT # 243 -BYTE # 72 -PORT # 243 -BYTE # 73 -PORT # 243 -BYTE # 74 -PORT # 243 -BYTE # 75 -PORT # 243 -BYTE # 76 -PORT # 243 -BYTE # 77 -PORT # 243 -BYTE # 78 -PORT # 243 -BYTE # 79 -PORT # 243 -BYTE # 80 -PORT # 243 -BYTE # 81 -PORT # 243 -BYTE # 82 -PORT # 243 -BYTE # 83 -PORT # 243 -BYTE # 84 -PORT # 243 -BYTE # 85 -PORT # 243 -BYTE # 86 -PORT # 243 -BYTE # 87 -PORT # 243 -BYTE # 88 -PORT # 243 -BYTE # 89 -PORT # 243 -BYTE # 90 -PORT # 243 -BYTE # 91 -PORT # 243 -BYTE # 92 -PORT # 243 -BYTE # 93 -PORT # 243 -BYTE # 94 -PORT # 243 -BYTE # 95 -PORT # 243 -BYTE # 96 -PORT # 243 -BYTE # 97 -PORT # 243 -BYTE # 98 -PORT # 243 -BYTE # 99 -PORT # 243 -BYTE # 100 -PORT # 243 -BYTE # 101 -PORT # 243 -BYTE # 102 -PORT # 243 -BYTE # 103 -PORT # 243 -BYTE # 104 -PORT # 243 -BYTE # 105 -PORT # 243 -BYTE # 106 -PORT # 243 -BYTE # 107 -PORT # 243 -BYTE # 108 -PORT # 243 -BYTE # 109 -PORT # 243 -BYTE # 110 -PORT # 243 -BYTE # 111 -PORT # 243 -BYTE # 112 -PORT # 243 -BYTE # 113 -PORT # 243 -BYTE # 114 -PORT # 243 -BYTE # 115 -PORT # 243 -BYTE # 116 -PORT # 243 -BYTE # 117 -PORT # 243 -BYTE # 118 -PORT # 243 -BYTE # 119 -PORT # 243 -BYTE # 120 -PORT # 243 -BYTE # 121 -PORT # 243 -BYTE # 122 -PORT # 243 -BYTE # 123 -PORT # 243 -BYTE # 124 -PORT # 243 -BYTE # 125 -PORT # 243 -BYTE # 126 -PORT # 243 -BYTE # 127 -PORT # 243 -BYTE # 128 -PORT # 243 -BYTE # 129 -PORT # 243 -BYTE # 130 -PORT # 243 -BYTE # 131 -PORT # 243 -BYTE # 132 -PORT # 243 -BYTE # 133 -PORT # 243 -BYTE # 134 -PORT # 243 -BYTE # 135 -PORT # 243 -BYTE # 136 -PORT # 243 -BYTE # 137 -PORT # 243 -BYTE # 138 -PORT # 243 -BYTE # 139 -PORT # 243 -BYTE # 140 -PORT # 243 -BYTE # 141 -PORT # 243 -BYTE # 142 -PORT # 243 -BYTE # 143 -PORT # 243 -BYTE # 144 -PORT # 243 -BYTE # 145 -PORT # 243 -BYTE # 146 -PORT # 243 -BYTE # 147 -PORT # 243 -BYTE # 148 -PORT # 243 -BYTE # 149 -PORT # 243 -BYTE # 150 -PORT # 243 -BYTE # 151 -PORT # 243 -BYTE # 152 -PORT # 243 -BYTE # 153 -PORT # 243 -BYTE # 154 -PORT # 243 -BYTE # 155 -PORT # 243 -BYTE # 156 -PORT # 243 -BYTE # 157 -PORT # 243 -BYTE # 158 -PORT # 243 -BYTE # 159 -PORT # 243 -BYTE # 160 -PORT # 243 -BYTE # 161 -PORT # 243 -BYTE # 162 -PORT # 243 -BYTE # 163 -PORT # 243 -BYTE # 164 -PORT # 243 -BYTE # 165 -PORT # 243 -BYTE # 166 -PORT # 243 -BYTE # 167 -PORT # 243 -BYTE # 168 -PORT # 243 -BYTE # 169 -PORT # 243 -BYTE # 170 -PORT # 243 -BYTE # 171 -PORT # 243 -BYTE # 172 -PORT # 243 -BYTE # 173 -PORT # 243 -BYTE # 174 -PORT # 243 -BYTE # 175 -PORT # 243 -BYTE # 176 -PORT # 243 -BYTE # 177 -PORT # 243 -BYTE # 178 -PORT # 243 -BYTE # 179 -PORT # 243 -BYTE # 180 -PORT # 243 -BYTE # 181 -PORT # 243 -BYTE # 182 -PORT # 243 -BYTE # 183 -PORT # 243 -BYTE # 184 -PORT # 243 -BYTE # 185 -PORT # 243 -BYTE # 186 -PORT # 243 -BYTE # 187 -PORT # 243 -BYTE # 188 -PORT # 243 -BYTE # 189 -PORT # 243 -BYTE # 190 -PORT # 243 -BYTE # 191 -PORT # 243 -BYTE # 192 -PORT # 243 -BYTE # 193 -PORT # 243 -BYTE # 194 -PORT # 243 -BYTE # 195 -PORT # 243 -BYTE # 196 -PORT # 243 -BYTE # 197 -PORT # 243 -BYTE # 198 -PORT # 243 -BYTE # 199 -PORT # 243 -BYTE # 200 -PORT # 243 -BYTE # 201 -PORT # 243 -BYTE # 202 -PORT # 243 -BYTE # 203 -PORT # 243 -BYTE # 204 -PORT # 243 -BYTE # 205 -PORT # 243 -BYTE # 206 -PORT # 243 -BYTE # 207 -PORT # 243 -BYTE # 208 -PORT # 243 -BYTE # 209 -PORT # 243 -BYTE # 210 -PORT # 243 -BYTE # 211 -PORT # 243 -BYTE # 212 -PORT # 243 -BYTE # 213 -PORT # 243 -BYTE # 214 -PORT # 243 -BYTE # 215 -PORT # 243 -BYTE # 216 -PORT # 243 -BYTE # 217 -PORT # 243 -BYTE # 218 -PORT # 243 -BYTE # 219 -PORT # 243 -BYTE # 220 -PORT # 243 -BYTE # 221 -PORT # 243 -BYTE # 222 -PORT # 243 -BYTE # 223 -PORT # 243 -BYTE # 224 -PORT # 243 -BYTE # 225 -PORT # 243 -BYTE # 226 -PORT # 243 -BYTE # 227 -PORT # 243 -BYTE # 228 -PORT # 243 -BYTE # 229 -PORT # 243 -BYTE # 230 -PORT # 243 -BYTE # 231 -PORT # 243 -BYTE # 232 -PORT # 243 -BYTE # 233 -PORT # 243 -BYTE # 234 -PORT # 243 -BYTE # 235 -PORT # 243 -BYTE # 236 -PORT # 243 -BYTE # 237 -PORT # 243 -BYTE # 238 -PORT # 243 -BYTE # 239 -PORT # 243 -BYTE # 240 -PORT # 243 -BYTE # 241 -PORT # 243 -BYTE # 242 -PORT # 243 -BYTE # 243 -PORT # 243 -BYTE # 244 -PORT # 243 -BYTE # 245 -PORT # 243 -BYTE # 246 -PORT # 243 -BYTE # 247 -PORT # 243 -BYTE # 248 -PORT # 243 -BYTE # 249 -PORT # 243 -BYTE # 250 -PORT # 243 -BYTE # 251 -PORT # 243 -BYTE # 252 -PORT # 243 -BYTE # 253 -PORT # 243 -BYTE # 254 -PORT # 243 -BYTE # 255 -PORT # 244 -BYTE # 0 -PORT # 244 -BYTE # 1 -PORT # 244 -BYTE # 2 -PORT # 244 -BYTE # 3 -PORT # 244 -BYTE # 4 -PORT # 244 -BYTE # 5 -PORT # 244 -BYTE # 6 -PORT # 244 -BYTE # 7 -PORT # 244 -BYTE # 8 -PORT # 244 -BYTE # 9 -PORT # 244 -BYTE # 10 -PORT # 244 -BYTE # 11 -PORT # 244 -BYTE # 12 -PORT # 244 -BYTE # 13 -PORT # 244 -BYTE # 14 -PORT # 244 -BYTE # 15 -PORT # 244 -BYTE # 16 -PORT # 244 -BYTE # 17 -PORT # 244 -BYTE # 18 -PORT # 244 -BYTE # 19 -PORT # 244 -BYTE # 20 -PORT # 244 -BYTE # 21 -PORT # 244 -BYTE # 22 -PORT # 244 -BYTE # 23 -PORT # 244 -BYTE # 24 -PORT # 244 -BYTE # 25 -PORT # 244 -BYTE # 26 -PORT # 244 -BYTE # 27 -PORT # 244 -BYTE # 28 -PORT # 244 -BYTE # 29 -PORT # 244 -BYTE # 30 -PORT # 244 -BYTE # 31 -PORT # 244 -BYTE # 32 -PORT # 244 -BYTE # 33 -PORT # 244 -BYTE # 34 -PORT # 244 -BYTE # 35 -PORT # 244 -BYTE # 36 -PORT # 244 -BYTE # 37 -PORT # 244 -BYTE # 38 -PORT # 244 -BYTE # 39 -PORT # 244 -BYTE # 40 -PORT # 244 -BYTE # 41 -PORT # 244 -BYTE # 42 -PORT # 244 -BYTE # 43 -PORT # 244 -BYTE # 44 -PORT # 244 -BYTE # 45 -PORT # 244 -BYTE # 46 -PORT # 244 -BYTE # 47 -PORT # 244 -BYTE # 48 -PORT # 244 -BYTE # 49 -PORT # 244 -BYTE # 50 -PORT # 244 -BYTE # 51 -PORT # 244 -BYTE # 52 -PORT # 244 -BYTE # 53 -PORT # 244 -BYTE # 54 -PORT # 244 -BYTE # 55 -PORT # 244 -BYTE # 56 -PORT # 244 -BYTE # 57 -PORT # 244 -BYTE # 58 -PORT # 244 -BYTE # 59 -PORT # 244 -BYTE # 60 -PORT # 244 -BYTE # 61 -PORT # 244 -BYTE # 62 -PORT # 244 -BYTE # 63 -PORT # 244 -BYTE # 64 -PORT # 244 -BYTE # 65 -PORT # 244 -BYTE # 66 -PORT # 244 -BYTE # 67 -PORT # 244 -BYTE # 68 -PORT # 244 -BYTE # 69 -PORT # 244 -BYTE # 70 -PORT # 244 -BYTE # 71 -PORT # 244 -BYTE # 72 -PORT # 244 -BYTE # 73 -PORT # 244 -BYTE # 74 -PORT # 244 -BYTE # 75 -PORT # 244 -BYTE # 76 -PORT # 244 -BYTE # 77 -PORT # 244 -BYTE # 78 -PORT # 244 -BYTE # 79 -PORT # 244 -BYTE # 80 -PORT # 244 -BYTE # 81 -PORT # 244 -BYTE # 82 -PORT # 244 -BYTE # 83 -PORT # 244 -BYTE # 84 -PORT # 244 -BYTE # 85 -PORT # 244 -BYTE # 86 -PORT # 244 -BYTE # 87 -PORT # 244 -BYTE # 88 -PORT # 244 -BYTE # 89 -PORT # 244 -BYTE # 90 -PORT # 244 -BYTE # 91 -PORT # 244 -BYTE # 92 -PORT # 244 -BYTE # 93 -PORT # 244 -BYTE # 94 -PORT # 244 -BYTE # 95 -PORT # 244 -BYTE # 96 -PORT # 244 -BYTE # 97 -PORT # 244 -BYTE # 98 -PORT # 244 -BYTE # 99 -PORT # 244 -BYTE # 100 -PORT # 244 -BYTE # 101 -PORT # 244 -BYTE # 102 -PORT # 244 -BYTE # 103 -PORT # 244 -BYTE # 104 -PORT # 244 -BYTE # 105 -PORT # 244 -BYTE # 106 -PORT # 244 -BYTE # 107 -PORT # 244 -BYTE # 108 -PORT # 244 -BYTE # 109 -PORT # 244 -BYTE # 110 -PORT # 244 -BYTE # 111 -PORT # 244 -BYTE # 112 -PORT # 244 -BYTE # 113 -PORT # 244 -BYTE # 114 -PORT # 244 -BYTE # 115 -PORT # 244 -BYTE # 116 -PORT # 244 -BYTE # 117 -PORT # 244 -BYTE # 118 -PORT # 244 -BYTE # 119 -PORT # 244 -BYTE # 120 -PORT # 244 -BYTE # 121 -PORT # 244 -BYTE # 122 -PORT # 244 -BYTE # 123 -PORT # 244 -BYTE # 124 -PORT # 244 -BYTE # 125 -PORT # 244 -BYTE # 126 -PORT # 244 -BYTE # 127 -PORT # 244 -BYTE # 128 -PORT # 244 -BYTE # 129 -PORT # 244 -BYTE # 130 -PORT # 244 -BYTE # 131 -PORT # 244 -BYTE # 132 -PORT # 244 -BYTE # 133 -PORT # 244 -BYTE # 134 -PORT # 244 -BYTE # 135 -PORT # 244 -BYTE # 136 -PORT # 244 -BYTE # 137 -PORT # 244 -BYTE # 138 -PORT # 244 -BYTE # 139 -PORT # 244 -BYTE # 140 -PORT # 244 -BYTE # 141 -PORT # 244 -BYTE # 142 -PORT # 244 -BYTE # 143 -PORT # 244 -BYTE # 144 -PORT # 244 -BYTE # 145 -PORT # 244 -BYTE # 146 -PORT # 244 -BYTE # 147 -PORT # 244 -BYTE # 148 -PORT # 244 -BYTE # 149 -PORT # 244 -BYTE # 150 -PORT # 244 -BYTE # 151 -PORT # 244 -BYTE # 152 -PORT # 244 -BYTE # 153 -PORT # 244 -BYTE # 154 -PORT # 244 -BYTE # 155 -PORT # 244 -BYTE # 156 -PORT # 244 -BYTE # 157 -PORT # 244 -BYTE # 158 -PORT # 244 -BYTE # 159 -PORT # 244 -BYTE # 160 -PORT # 244 -BYTE # 161 -PORT # 244 -BYTE # 162 -PORT # 244 -BYTE # 163 -PORT # 244 -BYTE # 164 -PORT # 244 -BYTE # 165 -PORT # 244 -BYTE # 166 -PORT # 244 -BYTE # 167 -PORT # 244 -BYTE # 168 -PORT # 244 -BYTE # 169 -PORT # 244 -BYTE # 170 -PORT # 244 -BYTE # 171 -PORT # 244 -BYTE # 172 -PORT # 244 -BYTE # 173 -PORT # 244 -BYTE # 174 -PORT # 244 -BYTE # 175 -PORT # 244 -BYTE # 176 -PORT # 244 -BYTE # 177 -PORT # 244 -BYTE # 178 -PORT # 244 -BYTE # 179 -PORT # 244 -BYTE # 180 -PORT # 244 -BYTE # 181 -PORT # 244 -BYTE # 182 -PORT # 244 -BYTE # 183 -PORT # 244 -BYTE # 184 -PORT # 244 -BYTE # 185 -PORT # 244 -BYTE # 186 -PORT # 244 -BYTE # 187 -PORT # 244 -BYTE # 188 -PORT # 244 -BYTE # 189 -PORT # 244 -BYTE # 190 -PORT # 244 -BYTE # 191 -PORT # 244 -BYTE # 192 -PORT # 244 -BYTE # 193 -PORT # 244 -BYTE # 194 -PORT # 244 -BYTE # 195 -PORT # 244 -BYTE # 196 -PORT # 244 -BYTE # 197 -PORT # 244 -BYTE # 198 -PORT # 244 -BYTE # 199 -PORT # 244 -BYTE # 200 -PORT # 244 -BYTE # 201 -PORT # 244 -BYTE # 202 -PORT # 244 -BYTE # 203 -PORT # 244 -BYTE # 204 -PORT # 244 -BYTE # 205 -PORT # 244 -BYTE # 206 -PORT # 244 -BYTE # 207 -PORT # 244 -BYTE # 208 -PORT # 244 -BYTE # 209 -PORT # 244 -BYTE # 210 -PORT # 244 -BYTE # 211 -PORT # 244 -BYTE # 212 -PORT # 244 -BYTE # 213 -PORT # 244 -BYTE # 214 -PORT # 244 -BYTE # 215 -PORT # 244 -BYTE # 216 -PORT # 244 -BYTE # 217 -PORT # 244 -BYTE # 218 -PORT # 244 -BYTE # 219 -PORT # 244 -BYTE # 220 -PORT # 244 -BYTE # 221 -PORT # 244 -BYTE # 222 -PORT # 244 -BYTE # 223 -PORT # 244 -BYTE # 224 -PORT # 244 -BYTE # 225 -PORT # 244 -BYTE # 226 -PORT # 244 -BYTE # 227 -PORT # 244 -BYTE # 228 -PORT # 244 -BYTE # 229 -PORT # 244 -BYTE # 230 -PORT # 244 -BYTE # 231 -PORT # 244 -BYTE # 232 -PORT # 244 -BYTE # 233 -PORT # 244 -BYTE # 234 -PORT # 244 -BYTE # 235 -PORT # 244 -BYTE # 236 -PORT # 244 -BYTE # 237 -PORT # 244 -BYTE # 238 -PORT # 244 -BYTE # 239 -PORT # 244 -BYTE # 240 -PORT # 244 -BYTE # 241 -PORT # 244 -BYTE # 242 -PORT # 244 -BYTE # 243 -PORT # 244 -BYTE # 244 -PORT # 244 -BYTE # 245 -PORT # 244 -BYTE # 246 -PORT # 244 -BYTE # 247 -PORT # 244 -BYTE # 248 -PORT # 244 -BYTE # 249 -PORT # 244 -BYTE # 250 -PORT # 244 -BYTE # 251 -PORT # 244 -BYTE # 252 -PORT # 244 -BYTE # 253 -PORT # 244 -BYTE # 254 -PORT # 244 -BYTE # 255 -PORT # 245 -BYTE # 0 -PORT # 245 -BYTE # 1 -PORT # 245 -BYTE # 2 -PORT # 245 -BYTE # 3 -PORT # 245 -BYTE # 4 -PORT # 245 -BYTE # 5 -PORT # 245 -BYTE # 6 -PORT # 245 -BYTE # 7 -PORT # 245 -BYTE # 8 -PORT # 245 -BYTE # 9 -PORT # 245 -BYTE # 10 -PORT # 245 -BYTE # 11 -PORT # 245 -BYTE # 12 -PORT # 245 -BYTE # 13 -PORT # 245 -BYTE # 14 -PORT # 245 -BYTE # 15 -PORT # 245 -BYTE # 16 -PORT # 245 -BYTE # 17 -PORT # 245 -BYTE # 18 -PORT # 245 -BYTE # 19 -PORT # 245 -BYTE # 20 -PORT # 245 -BYTE # 21 -PORT # 245 -BYTE # 22 -PORT # 245 -BYTE # 23 -PORT # 245 -BYTE # 24 -PORT # 245 -BYTE # 25 -PORT # 245 -BYTE # 26 -PORT # 245 -BYTE # 27 -PORT # 245 -BYTE # 28 -PORT # 245 -BYTE # 29 -PORT # 245 -BYTE # 30 -PORT # 245 -BYTE # 31 -PORT # 245 -BYTE # 32 -PORT # 245 -BYTE # 33 -PORT # 245 -BYTE # 34 -PORT # 245 -BYTE # 35 -PORT # 245 -BYTE # 36 -PORT # 245 -BYTE # 37 -PORT # 245 -BYTE # 38 -PORT # 245 -BYTE # 39 -PORT # 245 -BYTE # 40 -PORT # 245 -BYTE # 41 -PORT # 245 -BYTE # 42 -PORT # 245 -BYTE # 43 -PORT # 245 -BYTE # 44 -PORT # 245 -BYTE # 45 -PORT # 245 -BYTE # 46 -PORT # 245 -BYTE # 47 -PORT # 245 -BYTE # 48 -PORT # 245 -BYTE # 49 -PORT # 245 -BYTE # 50 -PORT # 245 -BYTE # 51 -PORT # 245 -BYTE # 52 -PORT # 245 -BYTE # 53 -PORT # 245 -BYTE # 54 -PORT # 245 -BYTE # 55 -PORT # 245 -BYTE # 56 -PORT # 245 -BYTE # 57 -PORT # 245 -BYTE # 58 -PORT # 245 -BYTE # 59 -PORT # 245 -BYTE # 60 -PORT # 245 -BYTE # 61 -PORT # 245 -BYTE # 62 -PORT # 245 -BYTE # 63 -PORT # 245 -BYTE # 64 -PORT # 245 -BYTE # 65 -PORT # 245 -BYTE # 66 -PORT # 245 -BYTE # 67 -PORT # 245 -BYTE # 68 -PORT # 245 -BYTE # 69 -PORT # 245 -BYTE # 70 -PORT # 245 -BYTE # 71 -PORT # 245 -BYTE # 72 -PORT # 245 -BYTE # 73 -PORT # 245 -BYTE # 74 -PORT # 245 -BYTE # 75 -PORT # 245 -BYTE # 76 -PORT # 245 -BYTE # 77 -PORT # 245 -BYTE # 78 -PORT # 245 -BYTE # 79 -PORT # 245 -BYTE # 80 -PORT # 245 -BYTE # 81 -PORT # 245 -BYTE # 82 -PORT # 245 -BYTE # 83 -PORT # 245 -BYTE # 84 -PORT # 245 -BYTE # 85 -PORT # 245 -BYTE # 86 -PORT # 245 -BYTE # 87 -PORT # 245 -BYTE # 88 -PORT # 245 -BYTE # 89 -PORT # 245 -BYTE # 90 -PORT # 245 -BYTE # 91 -PORT # 245 -BYTE # 92 -PORT # 245 -BYTE # 93 -PORT # 245 -BYTE # 94 -PORT # 245 -BYTE # 95 -PORT # 245 -BYTE # 96 -PORT # 245 -BYTE # 97 -PORT # 245 -BYTE # 98 -PORT # 245 -BYTE # 99 -PORT # 245 -BYTE # 100 -PORT # 245 -BYTE # 101 -PORT # 245 -BYTE # 102 -PORT # 245 -BYTE # 103 -PORT # 245 -BYTE # 104 -PORT # 245 -BYTE # 105 -PORT # 245 -BYTE # 106 -PORT # 245 -BYTE # 107 -PORT # 245 -BYTE # 108 -PORT # 245 -BYTE # 109 -PORT # 245 -BYTE # 110 -PORT # 245 -BYTE # 111 -PORT # 245 -BYTE # 112 -PORT # 245 -BYTE # 113 -PORT # 245 -BYTE # 114 -PORT # 245 -BYTE # 115 -PORT # 245 -BYTE # 116 -PORT # 245 -BYTE # 117 -PORT # 245 -BYTE # 118 -PORT # 245 -BYTE # 119 -PORT # 245 -BYTE # 120 -PORT # 245 -BYTE # 121 -PORT # 245 -BYTE # 122 -PORT # 245 -BYTE # 123 -PORT # 245 -BYTE # 124 -PORT # 245 -BYTE # 125 -PORT # 245 -BYTE # 126 -PORT # 245 -BYTE # 127 -PORT # 245 -BYTE # 128 -PORT # 245 -BYTE # 129 -PORT # 245 -BYTE # 130 -PORT # 245 -BYTE # 131 -PORT # 245 -BYTE # 132 -PORT # 245 -BYTE # 133 -PORT # 245 -BYTE # 134 -PORT # 245 -BYTE # 135 -PORT # 245 -BYTE # 136 -PORT # 245 -BYTE # 137 -PORT # 245 -BYTE # 138 -PORT # 245 -BYTE # 139 -PORT # 245 -BYTE # 140 -PORT # 245 -BYTE # 141 -PORT # 245 -BYTE # 142 -PORT # 245 -BYTE # 143 -PORT # 245 -BYTE # 144 -PORT # 245 -BYTE # 145 -PORT # 245 -BYTE # 146 -PORT # 245 -BYTE # 147 -PORT # 245 -BYTE # 148 -PORT # 245 -BYTE # 149 -PORT # 245 -BYTE # 150 -PORT # 245 -BYTE # 151 -PORT # 245 -BYTE # 152 -PORT # 245 -BYTE # 153 -PORT # 245 -BYTE # 154 -PORT # 245 -BYTE # 155 -PORT # 245 -BYTE # 156 -PORT # 245 -BYTE # 157 -PORT # 245 -BYTE # 158 -PORT # 245 -BYTE # 159 -PORT # 245 -BYTE # 160 -PORT # 245 -BYTE # 161 -PORT # 245 -BYTE # 162 -PORT # 245 -BYTE # 163 -PORT # 245 -BYTE # 164 -PORT # 245 -BYTE # 165 -PORT # 245 -BYTE # 166 -PORT # 245 -BYTE # 167 -PORT # 245 -BYTE # 168 -PORT # 245 -BYTE # 169 -PORT # 245 -BYTE # 170 -PORT # 245 -BYTE # 171 -PORT # 245 -BYTE # 172 -PORT # 245 -BYTE # 173 -PORT # 245 -BYTE # 174 -PORT # 245 -BYTE # 175 -PORT # 245 -BYTE # 176 -PORT # 245 -BYTE # 177 -PORT # 245 -BYTE # 178 -PORT # 245 -BYTE # 179 -PORT # 245 -BYTE # 180 -PORT # 245 -BYTE # 181 -PORT # 245 -BYTE # 182 -PORT # 245 -BYTE # 183 -PORT # 245 -BYTE # 184 -PORT # 245 -BYTE # 185 -PORT # 245 -BYTE # 186 -PORT # 245 -BYTE # 187 -PORT # 245 -BYTE # 188 -PORT # 245 -BYTE # 189 -PORT # 245 -BYTE # 190 -PORT # 245 -BYTE # 191 -PORT # 245 -BYTE # 192 -PORT # 245 -BYTE # 193 -PORT # 245 -BYTE # 194 -PORT # 245 -BYTE # 195 -PORT # 245 -BYTE # 196 -PORT # 245 -BYTE # 197 -PORT # 245 -BYTE # 198 -PORT # 245 -BYTE # 199 -PORT # 245 -BYTE # 200 -PORT # 245 -BYTE # 201 -PORT # 245 -BYTE # 202 -PORT # 245 -BYTE # 203 -PORT # 245 -BYTE # 204 -PORT # 245 -BYTE # 205 -PORT # 245 -BYTE # 206 -PORT # 245 -BYTE # 207 -PORT # 245 -BYTE # 208 -PORT # 245 -BYTE # 209 -PORT # 245 -BYTE # 210 -PORT # 245 -BYTE # 211 -PORT # 245 -BYTE # 212 -PORT # 245 -BYTE # 213 -PORT # 245 -BYTE # 214 -PORT # 245 -BYTE # 215 -PORT # 245 -BYTE # 216 -PORT # 245 -BYTE # 217 -PORT # 245 -BYTE # 218 -PORT # 245 -BYTE # 219 -PORT # 245 -BYTE # 220 -PORT # 245 -BYTE # 221 -PORT # 245 -BYTE # 222 -PORT # 245 -BYTE # 223 -PORT # 245 -BYTE # 224 -PORT # 245 -BYTE # 225 -PORT # 245 -BYTE # 226 -PORT # 245 -BYTE # 227 -PORT # 245 -BYTE # 228 -PORT # 245 -BYTE # 229 -PORT # 245 -BYTE # 230 -PORT # 245 -BYTE # 231 -PORT # 245 -BYTE # 232 -PORT # 245 -BYTE # 233 -PORT # 245 -BYTE # 234 -PORT # 245 -BYTE # 235 -PORT # 245 -BYTE # 236 -PORT # 245 -BYTE # 237 -PORT # 245 -BYTE # 238 -PORT # 245 -BYTE # 239 -PORT # 245 -BYTE # 240 -PORT # 245 -BYTE # 241 -PORT # 245 -BYTE # 242 -PORT # 245 -BYTE # 243 -PORT # 245 -BYTE # 244 -PORT # 245 -BYTE # 245 -PORT # 245 -BYTE # 246 -PORT # 245 -BYTE # 247 -PORT # 245 -BYTE # 248 -PORT # 245 -BYTE # 249 -PORT # 245 -BYTE # 250 -PORT # 245 -BYTE # 251 -PORT # 245 -BYTE # 252 -PORT # 245 -BYTE # 253 -PORT # 245 -BYTE # 254 -PORT # 245 -BYTE # 255 -PORT # 246 -BYTE # 0 -PORT # 246 -BYTE # 1 -PORT # 246 -BYTE # 2 -PORT # 246 -BYTE # 3 -PORT # 246 -BYTE # 4 -PORT # 246 -BYTE # 5 -PORT # 246 -BYTE # 6 -PORT # 246 -BYTE # 7 -PORT # 246 -BYTE # 8 -PORT # 246 -BYTE # 9 -PORT # 246 -BYTE # 10 -PORT # 246 -BYTE # 11 -PORT # 246 -BYTE # 12 -PORT # 246 -BYTE # 13 -PORT # 246 -BYTE # 14 -PORT # 246 -BYTE # 15 -PORT # 246 -BYTE # 16 -PORT # 246 -BYTE # 17 -PORT # 246 -BYTE # 18 -PORT # 246 -BYTE # 19 -PORT # 246 -BYTE # 20 -PORT # 246 -BYTE # 21 -PORT # 246 -BYTE # 22 -PORT # 246 -BYTE # 23 -PORT # 246 -BYTE # 24 -PORT # 246 -BYTE # 25 -PORT # 246 -BYTE # 26 -PORT # 246 -BYTE # 27 -PORT # 246 -BYTE # 28 -PORT # 246 -BYTE # 29 -PORT # 246 -BYTE # 30 -PORT # 246 -BYTE # 31 -PORT # 246 -BYTE # 32 -PORT # 246 -BYTE # 33 -PORT # 246 -BYTE # 34 -PORT # 246 -BYTE # 35 -PORT # 246 -BYTE # 36 -PORT # 246 -BYTE # 37 -PORT # 246 -BYTE # 38 -PORT # 246 -BYTE # 39 -PORT # 246 -BYTE # 40 -PORT # 246 -BYTE # 41 -PORT # 246 -BYTE # 42 -PORT # 246 -BYTE # 43 -PORT # 246 -BYTE # 44 -PORT # 246 -BYTE # 45 -PORT # 246 -BYTE # 46 -PORT # 246 -BYTE # 47 -PORT # 246 -BYTE # 48 -PORT # 246 -BYTE # 49 -PORT # 246 -BYTE # 50 -PORT # 246 -BYTE # 51 -PORT # 246 -BYTE # 52 -PORT # 246 -BYTE # 53 -PORT # 246 -BYTE # 54 -PORT # 246 -BYTE # 55 -PORT # 246 -BYTE # 56 -PORT # 246 -BYTE # 57 -PORT # 246 -BYTE # 58 -PORT # 246 -BYTE # 59 -PORT # 246 -BYTE # 60 -PORT # 246 -BYTE # 61 -PORT # 246 -BYTE # 62 -PORT # 246 -BYTE # 63 -PORT # 246 -BYTE # 64 -PORT # 246 -BYTE # 65 -PORT # 246 -BYTE # 66 -PORT # 246 -BYTE # 67 -PORT # 246 -BYTE # 68 -PORT # 246 -BYTE # 69 -PORT # 246 -BYTE # 70 -PORT # 246 -BYTE # 71 -PORT # 246 -BYTE # 72 -PORT # 246 -BYTE # 73 -PORT # 246 -BYTE # 74 -PORT # 246 -BYTE # 75 -PORT # 246 -BYTE # 76 -PORT # 246 -BYTE # 77 -PORT # 246 -BYTE # 78 -PORT # 246 -BYTE # 79 -PORT # 246 -BYTE # 80 -PORT # 246 -BYTE # 81 -PORT # 246 -BYTE # 82 -PORT # 246 -BYTE # 83 -PORT # 246 -BYTE # 84 -PORT # 246 -BYTE # 85 -PORT # 246 -BYTE # 86 -PORT # 246 -BYTE # 87 -PORT # 246 -BYTE # 88 -PORT # 246 -BYTE # 89 -PORT # 246 -BYTE # 90 -PORT # 246 -BYTE # 91 -PORT # 246 -BYTE # 92 -PORT # 246 -BYTE # 93 -PORT # 246 -BYTE # 94 -PORT # 246 -BYTE # 95 -PORT # 246 -BYTE # 96 -PORT # 246 -BYTE # 97 -PORT # 246 -BYTE # 98 -PORT # 246 -BYTE # 99 -PORT # 246 -BYTE # 100 -PORT # 246 -BYTE # 101 -PORT # 246 -BYTE # 102 -PORT # 246 -BYTE # 103 -PORT # 246 -BYTE # 104 -PORT # 246 -BYTE # 105 -PORT # 246 -BYTE # 106 -PORT # 246 -BYTE # 107 -PORT # 246 -BYTE # 108 -PORT # 246 -BYTE # 109 -PORT # 246 -BYTE # 110 -PORT # 246 -BYTE # 111 -PORT # 246 -BYTE # 112 -PORT # 246 -BYTE # 113 -PORT # 246 -BYTE # 114 -PORT # 246 -BYTE # 115 -PORT # 246 -BYTE # 116 -PORT # 246 -BYTE # 117 -PORT # 246 -BYTE # 118 -PORT # 246 -BYTE # 119 -PORT # 246 -BYTE # 120 -PORT # 246 -BYTE # 121 -PORT # 246 -BYTE # 122 -PORT # 246 -BYTE # 123 -PORT # 246 -BYTE # 124 -PORT # 246 -BYTE # 125 -PORT # 246 -BYTE # 126 -PORT # 246 -BYTE # 127 -PORT # 246 -BYTE # 128 -PORT # 246 -BYTE # 129 -PORT # 246 -BYTE # 130 -PORT # 246 -BYTE # 131 -PORT # 246 -BYTE # 132 -PORT # 246 -BYTE # 133 -PORT # 246 -BYTE # 134 -PORT # 246 -BYTE # 135 -PORT # 246 -BYTE # 136 -PORT # 246 -BYTE # 137 -PORT # 246 -BYTE # 138 -PORT # 246 -BYTE # 139 -PORT # 246 -BYTE # 140 -PORT # 246 -BYTE # 141 -PORT # 246 -BYTE # 142 -PORT # 246 -BYTE # 143 -PORT # 246 -BYTE # 144 -PORT # 246 -BYTE # 145 -PORT # 246 -BYTE # 146 -PORT # 246 -BYTE # 147 -PORT # 246 -BYTE # 148 -PORT # 246 -BYTE # 149 -PORT # 246 -BYTE # 150 -PORT # 246 -BYTE # 151 -PORT # 246 -BYTE # 152 -PORT # 246 -BYTE # 153 -PORT # 246 -BYTE # 154 -PORT # 246 -BYTE # 155 -PORT # 246 -BYTE # 156 -PORT # 246 -BYTE # 157 -PORT # 246 -BYTE # 158 -PORT # 246 -BYTE # 159 -PORT # 246 -BYTE # 160 -PORT # 246 -BYTE # 161 -PORT # 246 -BYTE # 162 -PORT # 246 -BYTE # 163 -PORT # 246 -BYTE # 164 -PORT # 246 -BYTE # 165 -PORT # 246 -BYTE # 166 -PORT # 246 -BYTE # 167 -PORT # 246 -BYTE # 168 -PORT # 246 -BYTE # 169 -PORT # 246 -BYTE # 170 -PORT # 246 -BYTE # 171 -PORT # 246 -BYTE # 172 -PORT # 246 -BYTE # 173 -PORT # 246 -BYTE # 174 -PORT # 246 -BYTE # 175 -PORT # 246 -BYTE # 176 -PORT # 246 -BYTE # 177 -PORT # 246 -BYTE # 178 -PORT # 246 -BYTE # 179 -PORT # 246 -BYTE # 180 -PORT # 246 -BYTE # 181 -PORT # 246 -BYTE # 182 -PORT # 246 -BYTE # 183 -PORT # 246 -BYTE # 184 -PORT # 246 -BYTE # 185 -PORT # 246 -BYTE # 186 -PORT # 246 -BYTE # 187 -PORT # 246 -BYTE # 188 -PORT # 246 -BYTE # 189 -PORT # 246 -BYTE # 190 -PORT # 246 -BYTE # 191 -PORT # 246 -BYTE # 192 -PORT # 246 -BYTE # 193 -PORT # 246 -BYTE # 194 -PORT # 246 -BYTE # 195 -PORT # 246 -BYTE # 196 -PORT # 246 -BYTE # 197 -PORT # 246 -BYTE # 198 -PORT # 246 -BYTE # 199 -PORT # 246 -BYTE # 200 -PORT # 246 -BYTE # 201 -PORT # 246 -BYTE # 202 -PORT # 246 -BYTE # 203 -PORT # 246 -BYTE # 204 -PORT # 246 -BYTE # 205 -PORT # 246 -BYTE # 206 -PORT # 246 -BYTE # 207 -PORT # 246 -BYTE # 208 -PORT # 246 -BYTE # 209 -PORT # 246 -BYTE # 210 -PORT # 246 -BYTE # 211 -PORT # 246 -BYTE # 212 -PORT # 246 -BYTE # 213 -PORT # 246 -BYTE # 214 -PORT # 246 -BYTE # 215 -PORT # 246 -BYTE # 216 -PORT # 246 -BYTE # 217 -PORT # 246 -BYTE # 218 -PORT # 246 -BYTE # 219 -PORT # 246 -BYTE # 220 -PORT # 246 -BYTE # 221 -PORT # 246 -BYTE # 222 -PORT # 246 -BYTE # 223 -PORT # 246 -BYTE # 224 -PORT # 246 -BYTE # 225 -PORT # 246 -BYTE # 226 -PORT # 246 -BYTE # 227 -PORT # 246 -BYTE # 228 -PORT # 246 -BYTE # 229 -PORT # 246 -BYTE # 230 -PORT # 246 -BYTE # 231 -PORT # 246 -BYTE # 232 -PORT # 246 -BYTE # 233 -PORT # 246 -BYTE # 234 -PORT # 246 -BYTE # 235 -PORT # 246 -BYTE # 236 -PORT # 246 -BYTE # 237 -PORT # 246 -BYTE # 238 -PORT # 246 -BYTE # 239 -PORT # 246 -BYTE # 240 -PORT # 246 -BYTE # 241 -PORT # 246 -BYTE # 242 -PORT # 246 -BYTE # 243 -PORT # 246 -BYTE # 244 -PORT # 246 -BYTE # 245 -PORT # 246 -BYTE # 246 -PORT # 246 -BYTE # 247 -PORT # 246 -BYTE # 248 -PORT # 246 -BYTE # 249 -PORT # 246 -BYTE # 250 -PORT # 246 -BYTE # 251 -PORT # 246 -BYTE # 252 -PORT # 246 -BYTE # 253 -PORT # 246 -BYTE # 254 -PORT # 246 -BYTE # 255 -PORT # 247 -BYTE # 0 -PORT # 247 -BYTE # 1 -PORT # 247 -BYTE # 2 -PORT # 247 -BYTE # 3 -PORT # 247 -BYTE # 4 -PORT # 247 -BYTE # 5 -PORT # 247 -BYTE # 6 -PORT # 247 -BYTE # 7 -PORT # 247 -BYTE # 8 -PORT # 247 -BYTE # 9 -PORT # 247 -BYTE # 10 -PORT # 247 -BYTE # 11 -PORT # 247 -BYTE # 12 -PORT # 247 -BYTE # 13 -PORT # 247 -BYTE # 14 -PORT # 247 -BYTE # 15 -PORT # 247 -BYTE # 16 -PORT # 247 -BYTE # 17 -PORT # 247 -BYTE # 18 -PORT # 247 -BYTE # 19 -PORT # 247 -BYTE # 20 -PORT # 247 -BYTE # 21 -PORT # 247 -BYTE # 22 -PORT # 247 -BYTE # 23 -PORT # 247 -BYTE # 24 -PORT # 247 -BYTE # 25 -PORT # 247 -BYTE # 26 -PORT # 247 -BYTE # 27 -PORT # 247 -BYTE # 28 -PORT # 247 -BYTE # 29 -PORT # 247 -BYTE # 30 -PORT # 247 -BYTE # 31 -PORT # 247 -BYTE # 32 -PORT # 247 -BYTE # 33 -PORT # 247 -BYTE # 34 -PORT # 247 -BYTE # 35 -PORT # 247 -BYTE # 36 -PORT # 247 -BYTE # 37 -PORT # 247 -BYTE # 38 -PORT # 247 -BYTE # 39 -PORT # 247 -BYTE # 40 -PORT # 247 -BYTE # 41 -PORT # 247 -BYTE # 42 -PORT # 247 -BYTE # 43 -PORT # 247 -BYTE # 44 -PORT # 247 -BYTE # 45 -PORT # 247 -BYTE # 46 -PORT # 247 -BYTE # 47 -PORT # 247 -BYTE # 48 -PORT # 247 -BYTE # 49 -PORT # 247 -BYTE # 50 -PORT # 247 -BYTE # 51 -PORT # 247 -BYTE # 52 -PORT # 247 -BYTE # 53 -PORT # 247 -BYTE # 54 -PORT # 247 -BYTE # 55 -PORT # 247 -BYTE # 56 -PORT # 247 -BYTE # 57 -PORT # 247 -BYTE # 58 -PORT # 247 -BYTE # 59 -PORT # 247 -BYTE # 60 -PORT # 247 -BYTE # 61 -PORT # 247 -BYTE # 62 -PORT # 247 -BYTE # 63 -PORT # 247 -BYTE # 64 -PORT # 247 -BYTE # 65 -PORT # 247 -BYTE # 66 -PORT # 247 -BYTE # 67 -PORT # 247 -BYTE # 68 -PORT # 247 -BYTE # 69 -PORT # 247 -BYTE # 70 -PORT # 247 -BYTE # 71 -PORT # 247 -BYTE # 72 -PORT # 247 -BYTE # 73 -PORT # 247 -BYTE # 74 -PORT # 247 -BYTE # 75 -PORT # 247 -BYTE # 76 -PORT # 247 -BYTE # 77 -PORT # 247 -BYTE # 78 -PORT # 247 -BYTE # 79 -PORT # 247 -BYTE # 80 -PORT # 247 -BYTE # 81 -PORT # 247 -BYTE # 82 -PORT # 247 -BYTE # 83 -PORT # 247 -BYTE # 84 -PORT # 247 -BYTE # 85 -PORT # 247 -BYTE # 86 -PORT # 247 -BYTE # 87 -PORT # 247 -BYTE # 88 -PORT # 247 -BYTE # 89 -PORT # 247 -BYTE # 90 -PORT # 247 -BYTE # 91 -PORT # 247 -BYTE # 92 -PORT # 247 -BYTE # 93 -PORT # 247 -BYTE # 94 -PORT # 247 -BYTE # 95 -PORT # 247 -BYTE # 96 -PORT # 247 -BYTE # 97 -PORT # 247 -BYTE # 98 -PORT # 247 -BYTE # 99 -PORT # 247 -BYTE # 100 -PORT # 247 -BYTE # 101 -PORT # 247 -BYTE # 102 -PORT # 247 -BYTE # 103 -PORT # 247 -BYTE # 104 -PORT # 247 -BYTE # 105 -PORT # 247 -BYTE # 106 -PORT # 247 -BYTE # 107 -PORT # 247 -BYTE # 108 -PORT # 247 -BYTE # 109 -PORT # 247 -BYTE # 110 -PORT # 247 -BYTE # 111 -PORT # 247 -BYTE # 112 -PORT # 247 -BYTE # 113 -PORT # 247 -BYTE # 114 -PORT # 247 -BYTE # 115 -PORT # 247 -BYTE # 116 -PORT # 247 -BYTE # 117 -PORT # 247 -BYTE # 118 -PORT # 247 -BYTE # 119 -PORT # 247 -BYTE # 120 -PORT # 247 -BYTE # 121 -PORT # 247 -BYTE # 122 -PORT # 247 -BYTE # 123 -PORT # 247 -BYTE # 124 -PORT # 247 -BYTE # 125 -PORT # 247 -BYTE # 126 -PORT # 247 -BYTE # 127 -PORT # 247 -BYTE # 128 -PORT # 247 -BYTE # 129 -PORT # 247 -BYTE # 130 -PORT # 247 -BYTE # 131 -PORT # 247 -BYTE # 132 -PORT # 247 -BYTE # 133 -PORT # 247 -BYTE # 134 -PORT # 247 -BYTE # 135 -PORT # 247 -BYTE # 136 -PORT # 247 -BYTE # 137 -PORT # 247 -BYTE # 138 -PORT # 247 -BYTE # 139 -PORT # 247 -BYTE # 140 -PORT # 247 -BYTE # 141 -PORT # 247 -BYTE # 142 -PORT # 247 -BYTE # 143 -PORT # 247 -BYTE # 144 -PORT # 247 -BYTE # 145 -PORT # 247 -BYTE # 146 -PORT # 247 -BYTE # 147 -PORT # 247 -BYTE # 148 -PORT # 247 -BYTE # 149 -PORT # 247 -BYTE # 150 -PORT # 247 -BYTE # 151 -PORT # 247 -BYTE # 152 -PORT # 247 -BYTE # 153 -PORT # 247 -BYTE # 154 -PORT # 247 -BYTE # 155 -PORT # 247 -BYTE # 156 -PORT # 247 -BYTE # 157 -PORT # 247 -BYTE # 158 -PORT # 247 -BYTE # 159 -PORT # 247 -BYTE # 160 -PORT # 247 -BYTE # 161 -PORT # 247 -BYTE # 162 -PORT # 247 -BYTE # 163 -PORT # 247 -BYTE # 164 -PORT # 247 -BYTE # 165 -PORT # 247 -BYTE # 166 -PORT # 247 -BYTE # 167 -PORT # 247 -BYTE # 168 -PORT # 247 -BYTE # 169 -PORT # 247 -BYTE # 170 -PORT # 247 -BYTE # 171 -PORT # 247 -BYTE # 172 -PORT # 247 -BYTE # 173 -PORT # 247 -BYTE # 174 -PORT # 247 -BYTE # 175 -PORT # 247 -BYTE # 176 -PORT # 247 -BYTE # 177 -PORT # 247 -BYTE # 178 -PORT # 247 -BYTE # 179 -PORT # 247 -BYTE # 180 -PORT # 247 -BYTE # 181 -PORT # 247 -BYTE # 182 -PORT # 247 -BYTE # 183 -PORT # 247 -BYTE # 184 -PORT # 247 -BYTE # 185 -PORT # 247 -BYTE # 186 -PORT # 247 -BYTE # 187 -PORT # 247 -BYTE # 188 -PORT # 247 -BYTE # 189 -PORT # 247 -BYTE # 190 -PORT # 247 -BYTE # 191 -PORT # 247 -BYTE # 192 -PORT # 247 -BYTE # 193 -PORT # 247 -BYTE # 194 -PORT # 247 -BYTE # 195 -PORT # 247 -BYTE # 196 -PORT # 247 -BYTE # 197 -PORT # 247 -BYTE # 198 -PORT # 247 -BYTE # 199 -PORT # 247 -BYTE # 200 -PORT # 247 -BYTE # 201 -PORT # 247 -BYTE # 202 -PORT # 247 -BYTE # 203 -PORT # 247 -BYTE # 204 -PORT # 247 -BYTE # 205 -PORT # 247 -BYTE # 206 -PORT # 247 -BYTE # 207 -PORT # 247 -BYTE # 208 -PORT # 247 -BYTE # 209 -PORT # 247 -BYTE # 210 -PORT # 247 -BYTE # 211 -PORT # 247 -BYTE # 212 -PORT # 247 -BYTE # 213 -PORT # 247 -BYTE # 214 -PORT # 247 -BYTE # 215 -PORT # 247 -BYTE # 216 -PORT # 247 -BYTE # 217 -PORT # 247 -BYTE # 218 -PORT # 247 -BYTE # 219 -PORT # 247 -BYTE # 220 -PORT # 247 -BYTE # 221 -PORT # 247 -BYTE # 222 -PORT # 247 -BYTE # 223 -PORT # 247 -BYTE # 224 -PORT # 247 -BYTE # 225 -PORT # 247 -BYTE # 226 -PORT # 247 -BYTE # 227 -PORT # 247 -BYTE # 228 -PORT # 247 -BYTE # 229 -PORT # 247 -BYTE # 230 -PORT # 247 -BYTE # 231 -PORT # 247 -BYTE # 232 -PORT # 247 -BYTE # 233 -PORT # 247 -BYTE # 234 -PORT # 247 -BYTE # 235 -PORT # 247 -BYTE # 236 -PORT # 247 -BYTE # 237 -PORT # 247 -BYTE # 238 -PORT # 247 -BYTE # 239 -PORT # 247 -BYTE # 240 -PORT # 247 -BYTE # 241 -PORT # 247 -BYTE # 242 -PORT # 247 -BYTE # 243 -PORT # 247 -BYTE # 244 -PORT # 247 -BYTE # 245 -PORT # 247 -BYTE # 246 -PORT # 247 -BYTE # 247 -PORT # 247 -BYTE # 248 -PORT # 247 -BYTE # 249 -PORT # 247 -BYTE # 250 -PORT # 247 -BYTE # 251 -PORT # 247 -BYTE # 252 -PORT # 247 -BYTE # 253 -PORT # 247 -BYTE # 254 -PORT # 247 -BYTE # 255 -PORT # 248 -BYTE # 0 -PORT # 248 -BYTE # 1 -PORT # 248 -BYTE # 2 -PORT # 248 -BYTE # 3 -PORT # 248 -BYTE # 4 -PORT # 248 -BYTE # 5 -PORT # 248 -BYTE # 6 -PORT # 248 -BYTE # 7 -PORT # 248 -BYTE # 8 -PORT # 248 -BYTE # 9 -PORT # 248 -BYTE # 10 -PORT # 248 -BYTE # 11 -PORT # 248 -BYTE # 12 -PORT # 248 -BYTE # 13 -PORT # 248 -BYTE # 14 -PORT # 248 -BYTE # 15 -PORT # 248 -BYTE # 16 -PORT # 248 -BYTE # 17 -PORT # 248 -BYTE # 18 -PORT # 248 -BYTE # 19 -PORT # 248 -BYTE # 20 -PORT # 248 -BYTE # 21 -PORT # 248 -BYTE # 22 -PORT # 248 -BYTE # 23 -PORT # 248 -BYTE # 24 -PORT # 248 -BYTE # 25 -PORT # 248 -BYTE # 26 -PORT # 248 -BYTE # 27 -PORT # 248 -BYTE # 28 -PORT # 248 -BYTE # 29 -PORT # 248 -BYTE # 30 -PORT # 248 -BYTE # 31 -PORT # 248 -BYTE # 32 -PORT # 248 -BYTE # 33 -PORT # 248 -BYTE # 34 -PORT # 248 -BYTE # 35 -PORT # 248 -BYTE # 36 -PORT # 248 -BYTE # 37 -PORT # 248 -BYTE # 38 -PORT # 248 -BYTE # 39 -PORT # 248 -BYTE # 40 -PORT # 248 -BYTE # 41 -PORT # 248 -BYTE # 42 -PORT # 248 -BYTE # 43 -PORT # 248 -BYTE # 44 -PORT # 248 -BYTE # 45 -PORT # 248 -BYTE # 46 -PORT # 248 -BYTE # 47 -PORT # 248 -BYTE # 48 -PORT # 248 -BYTE # 49 -PORT # 248 -BYTE # 50 -PORT # 248 -BYTE # 51 -PORT # 248 -BYTE # 52 -PORT # 248 -BYTE # 53 -PORT # 248 -BYTE # 54 -PORT # 248 -BYTE # 55 -PORT # 248 -BYTE # 56 -PORT # 248 -BYTE # 57 -PORT # 248 -BYTE # 58 -PORT # 248 -BYTE # 59 -PORT # 248 -BYTE # 60 -PORT # 248 -BYTE # 61 -PORT # 248 -BYTE # 62 -PORT # 248 -BYTE # 63 -PORT # 248 -BYTE # 64 -PORT # 248 -BYTE # 65 -PORT # 248 -BYTE # 66 -PORT # 248 -BYTE # 67 -PORT # 248 -BYTE # 68 -PORT # 248 -BYTE # 69 -PORT # 248 -BYTE # 70 -PORT # 248 -BYTE # 71 -PORT # 248 -BYTE # 72 -PORT # 248 -BYTE # 73 -PORT # 248 -BYTE # 74 -PORT # 248 -BYTE # 75 -PORT # 248 -BYTE # 76 -PORT # 248 -BYTE # 77 -PORT # 248 -BYTE # 78 -PORT # 248 -BYTE # 79 -PORT # 248 -BYTE # 80 -PORT # 248 -BYTE # 81 -PORT # 248 -BYTE # 82 -PORT # 248 -BYTE # 83 -PORT # 248 -BYTE # 84 -PORT # 248 -BYTE # 85 -PORT # 248 -BYTE # 86 -PORT # 248 -BYTE # 87 -PORT # 248 -BYTE # 88 -PORT # 248 -BYTE # 89 -PORT # 248 -BYTE # 90 -PORT # 248 -BYTE # 91 -PORT # 248 -BYTE # 92 -PORT # 248 -BYTE # 93 -PORT # 248 -BYTE # 94 -PORT # 248 -BYTE # 95 -PORT # 248 -BYTE # 96 -PORT # 248 -BYTE # 97 -PORT # 248 -BYTE # 98 -PORT # 248 -BYTE # 99 -PORT # 248 -BYTE # 100 -PORT # 248 -BYTE # 101 -PORT # 248 -BYTE # 102 -PORT # 248 -BYTE # 103 -PORT # 248 -BYTE # 104 -PORT # 248 -BYTE # 105 -PORT # 248 -BYTE # 106 -PORT # 248 -BYTE # 107 -PORT # 248 -BYTE # 108 -PORT # 248 -BYTE # 109 -PORT # 248 -BYTE # 110 -PORT # 248 -BYTE # 111 -PORT # 248 -BYTE # 112 -PORT # 248 -BYTE # 113 -PORT # 248 -BYTE # 114 -PORT # 248 -BYTE # 115 -PORT # 248 -BYTE # 116 -PORT # 248 -BYTE # 117 -PORT # 248 -BYTE # 118 -PORT # 248 -BYTE # 119 -PORT # 248 -BYTE # 120 -PORT # 248 -BYTE # 121 -PORT # 248 -BYTE # 122 -PORT # 248 -BYTE # 123 -PORT # 248 -BYTE # 124 -PORT # 248 -BYTE # 125 -PORT # 248 -BYTE # 126 -PORT # 248 -BYTE # 127 -PORT # 248 -BYTE # 128 -PORT # 248 -BYTE # 129 -PORT # 248 -BYTE # 130 -PORT # 248 -BYTE # 131 -PORT # 248 -BYTE # 132 -PORT # 248 -BYTE # 133 -PORT # 248 -BYTE # 134 -PORT # 248 -BYTE # 135 -PORT # 248 -BYTE # 136 -PORT # 248 -BYTE # 137 -PORT # 248 -BYTE # 138 -PORT # 248 -BYTE # 139 -PORT # 248 -BYTE # 140 -PORT # 248 -BYTE # 141 -PORT # 248 -BYTE # 142 -PORT # 248 -BYTE # 143 -PORT # 248 -BYTE # 144 -PORT # 248 -BYTE # 145 -PORT # 248 -BYTE # 146 -PORT # 248 -BYTE # 147 -PORT # 248 -BYTE # 148 -PORT # 248 -BYTE # 149 -PORT # 248 -BYTE # 150 -PORT # 248 -BYTE # 151 -PORT # 248 -BYTE # 152 -PORT # 248 -BYTE # 153 -PORT # 248 -BYTE # 154 -PORT # 248 -BYTE # 155 -PORT # 248 -BYTE # 156 -PORT # 248 -BYTE # 157 -PORT # 248 -BYTE # 158 -PORT # 248 -BYTE # 159 -PORT # 248 -BYTE # 160 -PORT # 248 -BYTE # 161 -PORT # 248 -BYTE # 162 -PORT # 248 -BYTE # 163 -PORT # 248 -BYTE # 164 -PORT # 248 -BYTE # 165 -PORT # 248 -BYTE # 166 -PORT # 248 -BYTE # 167 -PORT # 248 -BYTE # 168 -PORT # 248 -BYTE # 169 -PORT # 248 -BYTE # 170 -PORT # 248 -BYTE # 171 -PORT # 248 -BYTE # 172 -PORT # 248 -BYTE # 173 -PORT # 248 -BYTE # 174 -PORT # 248 -BYTE # 175 -PORT # 248 -BYTE # 176 -PORT # 248 -BYTE # 177 -PORT # 248 -BYTE # 178 -PORT # 248 -BYTE # 179 -PORT # 248 -BYTE # 180 -PORT # 248 -BYTE # 181 -PORT # 248 -BYTE # 182 -PORT # 248 -BYTE # 183 -PORT # 248 -BYTE # 184 -PORT # 248 -BYTE # 185 -PORT # 248 -BYTE # 186 -PORT # 248 -BYTE # 187 -PORT # 248 -BYTE # 188 -PORT # 248 -BYTE # 189 -PORT # 248 -BYTE # 190 -PORT # 248 -BYTE # 191 -PORT # 248 -BYTE # 192 -PORT # 248 -BYTE # 193 -PORT # 248 -BYTE # 194 -PORT # 248 -BYTE # 195 -PORT # 248 -BYTE # 196 -PORT # 248 -BYTE # 197 -PORT # 248 -BYTE # 198 -PORT # 248 -BYTE # 199 -PORT # 248 -BYTE # 200 -PORT # 248 -BYTE # 201 -PORT # 248 -BYTE # 202 -PORT # 248 -BYTE # 203 -PORT # 248 -BYTE # 204 -PORT # 248 -BYTE # 205 -PORT # 248 -BYTE # 206 -PORT # 248 -BYTE # 207 -PORT # 248 -BYTE # 208 -PORT # 248 -BYTE # 209 -PORT # 248 -BYTE # 210 -PORT # 248 -BYTE # 211 -PORT # 248 -BYTE # 212 -PORT # 248 -BYTE # 213 -PORT # 248 -BYTE # 214 -PORT # 248 -BYTE # 215 -PORT # 248 -BYTE # 216 -PORT # 248 -BYTE # 217 -PORT # 248 -BYTE # 218 -PORT # 248 -BYTE # 219 -PORT # 248 -BYTE # 220 -PORT # 248 -BYTE # 221 -PORT # 248 -BYTE # 222 -PORT # 248 -BYTE # 223 -PORT # 248 -BYTE # 224 -PORT # 248 -BYTE # 225 -PORT # 248 -BYTE # 226 -PORT # 248 -BYTE # 227 -PORT # 248 -BYTE # 228 -PORT # 248 -BYTE # 229 -PORT # 248 -BYTE # 230 -PORT # 248 -BYTE # 231 -PORT # 248 -BYTE # 232 -PORT # 248 -BYTE # 233 -PORT # 248 -BYTE # 234 -PORT # 248 -BYTE # 235 -PORT # 248 -BYTE # 236 -PORT # 248 -BYTE # 237 -PORT # 248 -BYTE # 238 -PORT # 248 -BYTE # 239 -PORT # 248 -BYTE # 240 -PORT # 248 -BYTE # 241 -PORT # 248 -BYTE # 242 -PORT # 248 -BYTE # 243 -PORT # 248 -BYTE # 244 -PORT # 248 -BYTE # 245 -PORT # 248 -BYTE # 246 -PORT # 248 -BYTE # 247 -PORT # 248 -BYTE # 248 -PORT # 248 -BYTE # 249 -PORT # 248 -BYTE # 250 -PORT # 248 -BYTE # 251 -PORT # 248 -BYTE # 252 -PORT # 248 -BYTE # 253 -PORT # 248 -BYTE # 254 -PORT # 248 -BYTE # 255 -PORT # 249 -BYTE # 0 -PORT # 249 -BYTE # 1 -PORT # 249 -BYTE # 2 -PORT # 249 -BYTE # 3 -PORT # 249 -BYTE # 4 -PORT # 249 -BYTE # 5 -PORT # 249 -BYTE # 6 -PORT # 249 -BYTE # 7 -PORT # 249 -BYTE # 8 -PORT # 249 -BYTE # 9 -PORT # 249 -BYTE # 10 -PORT # 249 -BYTE # 11 -PORT # 249 -BYTE # 12 -PORT # 249 -BYTE # 13 -PORT # 249 -BYTE # 14 -PORT # 249 -BYTE # 15 -PORT # 249 -BYTE # 16 -PORT # 249 -BYTE # 17 -PORT # 249 -BYTE # 18 -PORT # 249 -BYTE # 19 -PORT # 249 -BYTE # 20 -PORT # 249 -BYTE # 21 -PORT # 249 -BYTE # 22 -PORT # 249 -BYTE # 23 -PORT # 249 -BYTE # 24 -PORT # 249 -BYTE # 25 -PORT # 249 -BYTE # 26 -PORT # 249 -BYTE # 27 -PORT # 249 -BYTE # 28 -PORT # 249 -BYTE # 29 -PORT # 249 -BYTE # 30 -PORT # 249 -BYTE # 31 -PORT # 249 -BYTE # 32 -PORT # 249 -BYTE # 33 -PORT # 249 -BYTE # 34 -PORT # 249 -BYTE # 35 -PORT # 249 -BYTE # 36 -PORT # 249 -BYTE # 37 -PORT # 249 -BYTE # 38 -PORT # 249 -BYTE # 39 -PORT # 249 -BYTE # 40 -PORT # 249 -BYTE # 41 -PORT # 249 -BYTE # 42 -PORT # 249 -BYTE # 43 -PORT # 249 -BYTE # 44 -PORT # 249 -BYTE # 45 -PORT # 249 -BYTE # 46 -PORT # 249 -BYTE # 47 -PORT # 249 -BYTE # 48 -PORT # 249 -BYTE # 49 -PORT # 249 -BYTE # 50 -PORT # 249 -BYTE # 51 -PORT # 249 -BYTE # 52 -PORT # 249 -BYTE # 53 -PORT # 249 -BYTE # 54 -PORT # 249 -BYTE # 55 -PORT # 249 -BYTE # 56 -PORT # 249 -BYTE # 57 -PORT # 249 -BYTE # 58 -PORT # 249 -BYTE # 59 -PORT # 249 -BYTE # 60 -PORT # 249 -BYTE # 61 -PORT # 249 -BYTE # 62 -PORT # 249 -BYTE # 63 -PORT # 249 -BYTE # 64 -PORT # 249 -BYTE # 65 -PORT # 249 -BYTE # 66 -PORT # 249 -BYTE # 67 -PORT # 249 -BYTE # 68 -PORT # 249 -BYTE # 69 -PORT # 249 -BYTE # 70 -PORT # 249 -BYTE # 71 -PORT # 249 -BYTE # 72 -PORT # 249 -BYTE # 73 -PORT # 249 -BYTE # 74 -PORT # 249 -BYTE # 75 -PORT # 249 -BYTE # 76 -PORT # 249 -BYTE # 77 -PORT # 249 -BYTE # 78 -PORT # 249 -BYTE # 79 -PORT # 249 -BYTE # 80 -PORT # 249 -BYTE # 81 -PORT # 249 -BYTE # 82 -PORT # 249 -BYTE # 83 -PORT # 249 -BYTE # 84 -PORT # 249 -BYTE # 85 -PORT # 249 -BYTE # 86 -PORT # 249 -BYTE # 87 -PORT # 249 -BYTE # 88 -PORT # 249 -BYTE # 89 -PORT # 249 -BYTE # 90 -PORT # 249 -BYTE # 91 -PORT # 249 -BYTE # 92 -PORT # 249 -BYTE # 93 -PORT # 249 -BYTE # 94 -PORT # 249 -BYTE # 95 -PORT # 249 -BYTE # 96 -PORT # 249 -BYTE # 97 -PORT # 249 -BYTE # 98 -PORT # 249 -BYTE # 99 -PORT # 249 -BYTE # 100 -PORT # 249 -BYTE # 101 -PORT # 249 -BYTE # 102 -PORT # 249 -BYTE # 103 -PORT # 249 -BYTE # 104 -PORT # 249 -BYTE # 105 -PORT # 249 -BYTE # 106 -PORT # 249 -BYTE # 107 -PORT # 249 -BYTE # 108 -PORT # 249 -BYTE # 109 -PORT # 249 -BYTE # 110 -PORT # 249 -BYTE # 111 -PORT # 249 -BYTE # 112 -PORT # 249 -BYTE # 113 -PORT # 249 -BYTE # 114 -PORT # 249 -BYTE # 115 -PORT # 249 -BYTE # 116 -PORT # 249 -BYTE # 117 -PORT # 249 -BYTE # 118 -PORT # 249 -BYTE # 119 -PORT # 249 -BYTE # 120 -PORT # 249 -BYTE # 121 -PORT # 249 -BYTE # 122 -PORT # 249 -BYTE # 123 -PORT # 249 -BYTE # 124 -PORT # 249 -BYTE # 125 -PORT # 249 -BYTE # 126 -PORT # 249 -BYTE # 127 -PORT # 249 -BYTE # 128 -PORT # 249 -BYTE # 129 -PORT # 249 -BYTE # 130 -PORT # 249 -BYTE # 131 -PORT # 249 -BYTE # 132 -PORT # 249 -BYTE # 133 -PORT # 249 -BYTE # 134 -PORT # 249 -BYTE # 135 -PORT # 249 -BYTE # 136 -PORT # 249 -BYTE # 137 -PORT # 249 -BYTE # 138 -PORT # 249 -BYTE # 139 -PORT # 249 -BYTE # 140 -PORT # 249 -BYTE # 141 -PORT # 249 -BYTE # 142 -PORT # 249 -BYTE # 143 -PORT # 249 -BYTE # 144 -PORT # 249 -BYTE # 145 -PORT # 249 -BYTE # 146 -PORT # 249 -BYTE # 147 -PORT # 249 -BYTE # 148 -PORT # 249 -BYTE # 149 -PORT # 249 -BYTE # 150 -PORT # 249 -BYTE # 151 -PORT # 249 -BYTE # 152 -PORT # 249 -BYTE # 153 -PORT # 249 -BYTE # 154 -PORT # 249 -BYTE # 155 -PORT # 249 -BYTE # 156 -PORT # 249 -BYTE # 157 -PORT # 249 -BYTE # 158 -PORT # 249 -BYTE # 159 -PORT # 249 -BYTE # 160 -PORT # 249 -BYTE # 161 -PORT # 249 -BYTE # 162 -PORT # 249 -BYTE # 163 -PORT # 249 -BYTE # 164 -PORT # 249 -BYTE # 165 -PORT # 249 -BYTE # 166 -PORT # 249 -BYTE # 167 -PORT # 249 -BYTE # 168 -PORT # 249 -BYTE # 169 -PORT # 249 -BYTE # 170 -PORT # 249 -BYTE # 171 -PORT # 249 -BYTE # 172 -PORT # 249 -BYTE # 173 -PORT # 249 -BYTE # 174 -PORT # 249 -BYTE # 175 -PORT # 249 -BYTE # 176 -PORT # 249 -BYTE # 177 -PORT # 249 -BYTE # 178 -PORT # 249 -BYTE # 179 -PORT # 249 -BYTE # 180 -PORT # 249 -BYTE # 181 -PORT # 249 -BYTE # 182 -PORT # 249 -BYTE # 183 -PORT # 249 -BYTE # 184 -PORT # 249 -BYTE # 185 -PORT # 249 -BYTE # 186 -PORT # 249 -BYTE # 187 -PORT # 249 -BYTE # 188 -PORT # 249 -BYTE # 189 -PORT # 249 -BYTE # 190 -PORT # 249 -BYTE # 191 -PORT # 249 -BYTE # 192 -PORT # 249 -BYTE # 193 -PORT # 249 -BYTE # 194 -PORT # 249 -BYTE # 195 -PORT # 249 -BYTE # 196 -PORT # 249 -BYTE # 197 -PORT # 249 -BYTE # 198 -PORT # 249 -BYTE # 199 -PORT # 249 -BYTE # 200 -PORT # 249 -BYTE # 201 -PORT # 249 -BYTE # 202 -PORT # 249 -BYTE # 203 -PORT # 249 -BYTE # 204 -PORT # 249 -BYTE # 205 -PORT # 249 -BYTE # 206 -PORT # 249 -BYTE # 207 -PORT # 249 -BYTE # 208 -PORT # 249 -BYTE # 209 -PORT # 249 -BYTE # 210 -PORT # 249 -BYTE # 211 -PORT # 249 -BYTE # 212 -PORT # 249 -BYTE # 213 -PORT # 249 -BYTE # 214 -PORT # 249 -BYTE # 215 -PORT # 249 -BYTE # 216 -PORT # 249 -BYTE # 217 -PORT # 249 -BYTE # 218 -PORT # 249 -BYTE # 219 -PORT # 249 -BYTE # 220 -PORT # 249 -BYTE # 221 -PORT # 249 -BYTE # 222 -PORT # 249 -BYTE # 223 -PORT # 249 -BYTE # 224 -PORT # 249 -BYTE # 225 -PORT # 249 -BYTE # 226 -PORT # 249 -BYTE # 227 -PORT # 249 -BYTE # 228 -PORT # 249 -BYTE # 229 -PORT # 249 -BYTE # 230 -PORT # 249 -BYTE # 231 -PORT # 249 -BYTE # 232 -PORT # 249 -BYTE # 233 -PORT # 249 -BYTE # 234 -PORT # 249 -BYTE # 235 -PORT # 249 -BYTE # 236 -PORT # 249 -BYTE # 237 -PORT # 249 -BYTE # 238 -PORT # 249 -BYTE # 239 -PORT # 249 -BYTE # 240 -PORT # 249 -BYTE # 241 -PORT # 249 -BYTE # 242 -PORT # 249 -BYTE # 243 -PORT # 249 -BYTE # 244 -PORT # 249 -BYTE # 245 -PORT # 249 -BYTE # 246 -PORT # 249 -BYTE # 247 -PORT # 249 -BYTE # 248 -PORT # 249 -BYTE # 249 -PORT # 249 -BYTE # 250 -PORT # 249 -BYTE # 251 -PORT # 249 -BYTE # 252 -PORT # 249 -BYTE # 253 -PORT # 249 -BYTE # 254 -PORT # 249 -BYTE # 255 -PORT # 250 -BYTE # 0 -PORT # 250 -BYTE # 1 -PORT # 250 -BYTE # 2 -PORT # 250 -BYTE # 3 -PORT # 250 -BYTE # 4 -PORT # 250 -BYTE # 5 -PORT # 250 -BYTE # 6 -PORT # 250 -BYTE # 7 -PORT # 250 -BYTE # 8 -PORT # 250 -BYTE # 9 -PORT # 250 -BYTE # 10 -PORT # 250 -BYTE # 11 -PORT # 250 -BYTE # 12 -PORT # 250 -BYTE # 13 -PORT # 250 -BYTE # 14 -PORT # 250 -BYTE # 15 -PORT # 250 -BYTE # 16 -PORT # 250 -BYTE # 17 -PORT # 250 -BYTE # 18 -PORT # 250 -BYTE # 19 -PORT # 250 -BYTE # 20 -PORT # 250 -BYTE # 21 -PORT # 250 -BYTE # 22 -PORT # 250 -BYTE # 23 -PORT # 250 -BYTE # 24 -PORT # 250 -BYTE # 25 -PORT # 250 -BYTE # 26 -PORT # 250 -BYTE # 27 -PORT # 250 -BYTE # 28 -PORT # 250 -BYTE # 29 -PORT # 250 -BYTE # 30 -PORT # 250 -BYTE # 31 -PORT # 250 -BYTE # 32 -PORT # 250 -BYTE # 33 -PORT # 250 -BYTE # 34 -PORT # 250 -BYTE # 35 -PORT # 250 -BYTE # 36 -PORT # 250 -BYTE # 37 -PORT # 250 -BYTE # 38 -PORT # 250 -BYTE # 39 -PORT # 250 -BYTE # 40 -PORT # 250 -BYTE # 41 -PORT # 250 -BYTE # 42 -PORT # 250 -BYTE # 43 -PORT # 250 -BYTE # 44 -PORT # 250 -BYTE # 45 -PORT # 250 -BYTE # 46 -PORT # 250 -BYTE # 47 -PORT # 250 -BYTE # 48 -PORT # 250 -BYTE # 49 -PORT # 250 -BYTE # 50 -PORT # 250 -BYTE # 51 -PORT # 250 -BYTE # 52 -PORT # 250 -BYTE # 53 -PORT # 250 -BYTE # 54 -PORT # 250 -BYTE # 55 -PORT # 250 -BYTE # 56 -PORT # 250 -BYTE # 57 -PORT # 250 -BYTE # 58 -PORT # 250 -BYTE # 59 -PORT # 250 -BYTE # 60 -PORT # 250 -BYTE # 61 -PORT # 250 -BYTE # 62 -PORT # 250 -BYTE # 63 -PORT # 250 -BYTE # 64 -PORT # 250 -BYTE # 65 -PORT # 250 -BYTE # 66 -PORT # 250 -BYTE # 67 -PORT # 250 -BYTE # 68 -PORT # 250 -BYTE # 69 -PORT # 250 -BYTE # 70 -PORT # 250 -BYTE # 71 -PORT # 250 -BYTE # 72 -PORT # 250 -BYTE # 73 -PORT # 250 -BYTE # 74 -PORT # 250 -BYTE # 75 -PORT # 250 -BYTE # 76 -PORT # 250 -BYTE # 77 -PORT # 250 -BYTE # 78 -PORT # 250 -BYTE # 79 -PORT # 250 -BYTE # 80 -PORT # 250 -BYTE # 81 -PORT # 250 -BYTE # 82 -PORT # 250 -BYTE # 83 -PORT # 250 -BYTE # 84 -PORT # 250 -BYTE # 85 -PORT # 250 -BYTE # 86 -PORT # 250 -BYTE # 87 -PORT # 250 -BYTE # 88 -PORT # 250 -BYTE # 89 -PORT # 250 -BYTE # 90 -PORT # 250 -BYTE # 91 -PORT # 250 -BYTE # 92 -PORT # 250 -BYTE # 93 -PORT # 250 -BYTE # 94 -PORT # 250 -BYTE # 95 -PORT # 250 -BYTE # 96 -PORT # 250 -BYTE # 97 -PORT # 250 -BYTE # 98 -PORT # 250 -BYTE # 99 -PORT # 250 -BYTE # 100 -PORT # 250 -BYTE # 101 -PORT # 250 -BYTE # 102 -PORT # 250 -BYTE # 103 -PORT # 250 -BYTE # 104 -PORT # 250 -BYTE # 105 -PORT # 250 -BYTE # 106 -PORT # 250 -BYTE # 107 -PORT # 250 -BYTE # 108 -PORT # 250 -BYTE # 109 -PORT # 250 -BYTE # 110 -PORT # 250 -BYTE # 111 -PORT # 250 -BYTE # 112 -PORT # 250 -BYTE # 113 -PORT # 250 -BYTE # 114 -PORT # 250 -BYTE # 115 -PORT # 250 -BYTE # 116 -PORT # 250 -BYTE # 117 -PORT # 250 -BYTE # 118 -PORT # 250 -BYTE # 119 -PORT # 250 -BYTE # 120 -PORT # 250 -BYTE # 121 -PORT # 250 -BYTE # 122 -PORT # 250 -BYTE # 123 -PORT # 250 -BYTE # 124 -PORT # 250 -BYTE # 125 -PORT # 250 -BYTE # 126 -PORT # 250 -BYTE # 127 -PORT # 250 -BYTE # 128 -PORT # 250 -BYTE # 129 -PORT # 250 -BYTE # 130 -PORT # 250 -BYTE # 131 -PORT # 250 -BYTE # 132 -PORT # 250 -BYTE # 133 -PORT # 250 -BYTE # 134 -PORT # 250 -BYTE # 135 -PORT # 250 -BYTE # 136 -PORT # 250 -BYTE # 137 -PORT # 250 -BYTE # 138 -PORT # 250 -BYTE # 139 -PORT # 250 -BYTE # 140 -PORT # 250 -BYTE # 141 -PORT # 250 -BYTE # 142 -PORT # 250 -BYTE # 143 -PORT # 250 -BYTE # 144 -PORT # 250 -BYTE # 145 -PORT # 250 -BYTE # 146 -PORT # 250 -BYTE # 147 -PORT # 250 -BYTE # 148 -PORT # 250 -BYTE # 149 -PORT # 250 -BYTE # 150 -PORT # 250 -BYTE # 151 -PORT # 250 -BYTE # 152 -PORT # 250 -BYTE # 153 -PORT # 250 -BYTE # 154 -PORT # 250 -BYTE # 155 -PORT # 250 -BYTE # 156 -PORT # 250 -BYTE # 157 -PORT # 250 -BYTE # 158 -PORT # 250 -BYTE # 159 -PORT # 250 -BYTE # 160 -PORT # 250 -BYTE # 161 -PORT # 250 -BYTE # 162 -PORT # 250 -BYTE # 163 -PORT # 250 -BYTE # 164 -PORT # 250 -BYTE # 165 -PORT # 250 -BYTE # 166 -PORT # 250 -BYTE # 167 -PORT # 250 -BYTE # 168 -PORT # 250 -BYTE # 169 -PORT # 250 -BYTE # 170 -PORT # 250 -BYTE # 171 -PORT # 250 -BYTE # 172 -PORT # 250 -BYTE # 173 -PORT # 250 -BYTE # 174 -PORT # 250 -BYTE # 175 -PORT # 250 -BYTE # 176 -PORT # 250 -BYTE # 177 -PORT # 250 -BYTE # 178 -PORT # 250 -BYTE # 179 -PORT # 250 -BYTE # 180 -PORT # 250 -BYTE # 181 -PORT # 250 -BYTE # 182 -PORT # 250 -BYTE # 183 -PORT # 250 -BYTE # 184 -PORT # 250 -BYTE # 185 -PORT # 250 -BYTE # 186 -PORT # 250 -BYTE # 187 -PORT # 250 -BYTE # 188 -PORT # 250 -BYTE # 189 -PORT # 250 -BYTE # 190 -PORT # 250 -BYTE # 191 -PORT # 250 -BYTE # 192 -PORT # 250 -BYTE # 193 -PORT # 250 -BYTE # 194 -PORT # 250 -BYTE # 195 -PORT # 250 -BYTE # 196 -PORT # 250 -BYTE # 197 -PORT # 250 -BYTE # 198 -PORT # 250 -BYTE # 199 -PORT # 250 -BYTE # 200 -PORT # 250 -BYTE # 201 -PORT # 250 -BYTE # 202 -PORT # 250 -BYTE # 203 -PORT # 250 -BYTE # 204 -PORT # 250 -BYTE # 205 -PORT # 250 -BYTE # 206 -PORT # 250 -BYTE # 207 -PORT # 250 -BYTE # 208 -PORT # 250 -BYTE # 209 -PORT # 250 -BYTE # 210 -PORT # 250 -BYTE # 211 -PORT # 250 -BYTE # 212 -PORT # 250 -BYTE # 213 -PORT # 250 -BYTE # 214 -PORT # 250 -BYTE # 215 -PORT # 250 -BYTE # 216 -PORT # 250 -BYTE # 217 -PORT # 250 -BYTE # 218 -PORT # 250 -BYTE # 219 -PORT # 250 -BYTE # 220 -PORT # 250 -BYTE # 221 -PORT # 250 -BYTE # 222 -PORT # 250 -BYTE # 223 -PORT # 250 -BYTE # 224 -PORT # 250 -BYTE # 225 -PORT # 250 -BYTE # 226 -PORT # 250 -BYTE # 227 -PORT # 250 -BYTE # 228 -PORT # 250 -BYTE # 229 -PORT # 250 -BYTE # 230 -PORT # 250 -BYTE # 231 -PORT # 250 -BYTE # 232 -PORT # 250 -BYTE # 233 -PORT # 250 -BYTE # 234 -PORT # 250 -BYTE # 235 -PORT # 250 -BYTE # 236 -PORT # 250 -BYTE # 237 -PORT # 250 -BYTE # 238 -PORT # 250 -BYTE # 239 -PORT # 250 -BYTE # 240 -PORT # 250 -BYTE # 241 -PORT # 250 -BYTE # 242 -PORT # 250 -BYTE # 243 -PORT # 250 -BYTE # 244 -PORT # 250 -BYTE # 245 -PORT # 250 -BYTE # 246 -PORT # 250 -BYTE # 247 -PORT # 250 -BYTE # 248 -PORT # 250 -BYTE # 249 -PORT # 250 -BYTE # 250 -PORT # 250 -BYTE # 251 -PORT # 250 -BYTE # 252 -PORT # 250 -BYTE # 253 -PORT # 250 -BYTE # 254 -PORT # 250 -BYTE # 255 -PORT # 251 -BYTE # 0 -PORT # 251 -BYTE # 1 -PORT # 251 -BYTE # 2 -PORT # 251 -BYTE # 3 -PORT # 251 -BYTE # 4 -PORT # 251 -BYTE # 5 -PORT # 251 -BYTE # 6 -PORT # 251 -BYTE # 7 -PORT # 251 -BYTE # 8 -PORT # 251 -BYTE # 9 -PORT # 251 -BYTE # 10 -PORT # 251 -BYTE # 11 -PORT # 251 -BYTE # 12 -PORT # 251 -BYTE # 13 -PORT # 251 -BYTE # 14 -PORT # 251 -BYTE # 15 -PORT # 251 -BYTE # 16 -PORT # 251 -BYTE # 17 -PORT # 251 -BYTE # 18 -PORT # 251 -BYTE # 19 -PORT # 251 -BYTE # 20 -PORT # 251 -BYTE # 21 -PORT # 251 -BYTE # 22 -PORT # 251 -BYTE # 23 -PORT # 251 -BYTE # 24 -PORT # 251 -BYTE # 25 -PORT # 251 -BYTE # 26 -PORT # 251 -BYTE # 27 -PORT # 251 -BYTE # 28 -PORT # 251 -BYTE # 29 -PORT # 251 -BYTE # 30 -PORT # 251 -BYTE # 31 -PORT # 251 -BYTE # 32 -PORT # 251 -BYTE # 33 -PORT # 251 -BYTE # 34 -PORT # 251 -BYTE # 35 -PORT # 251 -BYTE # 36 -PORT # 251 -BYTE # 37 -PORT # 251 -BYTE # 38 -PORT # 251 -BYTE # 39 -PORT # 251 -BYTE # 40 -PORT # 251 -BYTE # 41 -PORT # 251 -BYTE # 42 -PORT # 251 -BYTE # 43 -PORT # 251 -BYTE # 44 -PORT # 251 -BYTE # 45 -PORT # 251 -BYTE # 46 -PORT # 251 -BYTE # 47 -PORT # 251 -BYTE # 48 -PORT # 251 -BYTE # 49 -PORT # 251 -BYTE # 50 -PORT # 251 -BYTE # 51 -PORT # 251 -BYTE # 52 -PORT # 251 -BYTE # 53 -PORT # 251 -BYTE # 54 -PORT # 251 -BYTE # 55 -PORT # 251 -BYTE # 56 -PORT # 251 -BYTE # 57 -PORT # 251 -BYTE # 58 -PORT # 251 -BYTE # 59 -PORT # 251 -BYTE # 60 -PORT # 251 -BYTE # 61 -PORT # 251 -BYTE # 62 -PORT # 251 -BYTE # 63 -PORT # 251 -BYTE # 64 -PORT # 251 -BYTE # 65 -PORT # 251 -BYTE # 66 -PORT # 251 -BYTE # 67 -PORT # 251 -BYTE # 68 -PORT # 251 -BYTE # 69 -PORT # 251 -BYTE # 70 -PORT # 251 -BYTE # 71 -PORT # 251 -BYTE # 72 -PORT # 251 -BYTE # 73 -PORT # 251 -BYTE # 74 -PORT # 251 -BYTE # 75 -PORT # 251 -BYTE # 76 -PORT # 251 -BYTE # 77 -PORT # 251 -BYTE # 78 -PORT # 251 -BYTE # 79 -PORT # 251 -BYTE # 80 -PORT # 251 -BYTE # 81 -PORT # 251 -BYTE # 82 -PORT # 251 -BYTE # 83 -PORT # 251 -BYTE # 84 -PORT # 251 -BYTE # 85 -PORT # 251 -BYTE # 86 -PORT # 251 -BYTE # 87 -PORT # 251 -BYTE # 88 -PORT # 251 -BYTE # 89 -PORT # 251 -BYTE # 90 -PORT # 251 -BYTE # 91 -PORT # 251 -BYTE # 92 -PORT # 251 -BYTE # 93 -PORT # 251 -BYTE # 94 -PORT # 251 -BYTE # 95 -PORT # 251 -BYTE # 96 -PORT # 251 -BYTE # 97 -PORT # 251 -BYTE # 98 -PORT # 251 -BYTE # 99 -PORT # 251 -BYTE # 100 -PORT # 251 -BYTE # 101 -PORT # 251 -BYTE # 102 -PORT # 251 -BYTE # 103 -PORT # 251 -BYTE # 104 -PORT # 251 -BYTE # 105 -PORT # 251 -BYTE # 106 -PORT # 251 -BYTE # 107 -PORT # 251 -BYTE # 108 -PORT # 251 -BYTE # 109 -PORT # 251 -BYTE # 110 -PORT # 251 -BYTE # 111 -PORT # 251 -BYTE # 112 -PORT # 251 -BYTE # 113 -PORT # 251 -BYTE # 114 -PORT # 251 -BYTE # 115 -PORT # 251 -BYTE # 116 -PORT # 251 -BYTE # 117 -PORT # 251 -BYTE # 118 -PORT # 251 -BYTE # 119 -PORT # 251 -BYTE # 120 -PORT # 251 -BYTE # 121 -PORT # 251 -BYTE # 122 -PORT # 251 -BYTE # 123 -PORT # 251 -BYTE # 124 -PORT # 251 -BYTE # 125 -PORT # 251 -BYTE # 126 -PORT # 251 -BYTE # 127 -PORT # 251 -BYTE # 128 -PORT # 251 -BYTE # 129 -PORT # 251 -BYTE # 130 -PORT # 251 -BYTE # 131 -PORT # 251 -BYTE # 132 -PORT # 251 -BYTE # 133 -PORT # 251 -BYTE # 134 -PORT # 251 -BYTE # 135 -PORT # 251 -BYTE # 136 -PORT # 251 -BYTE # 137 -PORT # 251 -BYTE # 138 -PORT # 251 -BYTE # 139 -PORT # 251 -BYTE # 140 -PORT # 251 -BYTE # 141 -PORT # 251 -BYTE # 142 -PORT # 251 -BYTE # 143 -PORT # 251 -BYTE # 144 -PORT # 251 -BYTE # 145 -PORT # 251 -BYTE # 146 -PORT # 251 -BYTE # 147 -PORT # 251 -BYTE # 148 -PORT # 251 -BYTE # 149 -PORT # 251 -BYTE # 150 -PORT # 251 -BYTE # 151 -PORT # 251 -BYTE # 152 -PORT # 251 -BYTE # 153 -PORT # 251 -BYTE # 154 -PORT # 251 -BYTE # 155 -PORT # 251 -BYTE # 156 -PORT # 251 -BYTE # 157 -PORT # 251 -BYTE # 158 -PORT # 251 -BYTE # 159 -PORT # 251 -BYTE # 160 -PORT # 251 -BYTE # 161 -PORT # 251 -BYTE # 162 -PORT # 251 -BYTE # 163 -PORT # 251 -BYTE # 164 -PORT # 251 -BYTE # 165 -PORT # 251 -BYTE # 166 -PORT # 251 -BYTE # 167 -PORT # 251 -BYTE # 168 -PORT # 251 -BYTE # 169 -PORT # 251 -BYTE # 170 -PORT # 251 -BYTE # 171 -PORT # 251 -BYTE # 172 -PORT # 251 -BYTE # 173 -PORT # 251 -BYTE # 174 -PORT # 251 -BYTE # 175 -PORT # 251 -BYTE # 176 -PORT # 251 -BYTE # 177 -PORT # 251 -BYTE # 178 -PORT # 251 -BYTE # 179 -PORT # 251 -BYTE # 180 -PORT # 251 -BYTE # 181 -PORT # 251 -BYTE # 182 -PORT # 251 -BYTE # 183 -PORT # 251 -BYTE # 184 -PORT # 251 -BYTE # 185 -PORT # 251 -BYTE # 186 -PORT # 251 -BYTE # 187 -PORT # 251 -BYTE # 188 -PORT # 251 -BYTE # 189 -PORT # 251 -BYTE # 190 -PORT # 251 -BYTE # 191 -PORT # 251 -BYTE # 192 -PORT # 251 -BYTE # 193 -PORT # 251 -BYTE # 194 -PORT # 251 -BYTE # 195 -PORT # 251 -BYTE # 196 -PORT # 251 -BYTE # 197 -PORT # 251 -BYTE # 198 -PORT # 251 -BYTE # 199 -PORT # 251 -BYTE # 200 -PORT # 251 -BYTE # 201 -PORT # 251 -BYTE # 202 -PORT # 251 -BYTE # 203 -PORT # 251 -BYTE # 204 -PORT # 251 -BYTE # 205 -PORT # 251 -BYTE # 206 -PORT # 251 -BYTE # 207 -PORT # 251 -BYTE # 208 -PORT # 251 -BYTE # 209 -PORT # 251 -BYTE # 210 -PORT # 251 -BYTE # 211 -PORT # 251 -BYTE # 212 -PORT # 251 -BYTE # 213 -PORT # 251 -BYTE # 214 -PORT # 251 -BYTE # 215 -PORT # 251 -BYTE # 216 -PORT # 251 -BYTE # 217 -PORT # 251 -BYTE # 218 -PORT # 251 -BYTE # 219 -PORT # 251 -BYTE # 220 -PORT # 251 -BYTE # 221 -PORT # 251 -BYTE # 222 -PORT # 251 -BYTE # 223 -PORT # 251 -BYTE # 224 -PORT # 251 -BYTE # 225 -PORT # 251 -BYTE # 226 -PORT # 251 -BYTE # 227 -PORT # 251 -BYTE # 228 -PORT # 251 -BYTE # 229 -PORT # 251 -BYTE # 230 -PORT # 251 -BYTE # 231 -PORT # 251 -BYTE # 232 -PORT # 251 -BYTE # 233 -PORT # 251 -BYTE # 234 -PORT # 251 -BYTE # 235 -PORT # 251 -BYTE # 236 -PORT # 251 -BYTE # 237 -PORT # 251 -BYTE # 238 -PORT # 251 -BYTE # 239 -PORT # 251 -BYTE # 240 -PORT # 251 -BYTE # 241 -PORT # 251 -BYTE # 242 -PORT # 251 -BYTE # 243 -PORT # 251 -BYTE # 244 -PORT # 251 -BYTE # 245 -PORT # 251 -BYTE # 246 -PORT # 251 -BYTE # 247 -PORT # 251 -BYTE # 248 -PORT # 251 -BYTE # 249 -PORT # 251 -BYTE # 250 -PORT # 251 -BYTE # 251 -PORT # 251 -BYTE # 252 -PORT # 251 -BYTE # 253 -PORT # 251 -BYTE # 254 -PORT # 251 -BYTE # 255 -PORT # 252 -BYTE # 0 -PORT # 252 -BYTE # 1 -PORT # 252 -BYTE # 2 -PORT # 252 -BYTE # 3 -PORT # 252 -BYTE # 4 -PORT # 252 -BYTE # 5 -PORT # 252 -BYTE # 6 -PORT # 252 -BYTE # 7 -PORT # 252 -BYTE # 8 -PORT # 252 -BYTE # 9 -PORT # 252 -BYTE # 10 -PORT # 252 -BYTE # 11 -PORT # 252 -BYTE # 12 -PORT # 252 -BYTE # 13 -PORT # 252 -BYTE # 14 -PORT # 252 -BYTE # 15 -PORT # 252 -BYTE # 16 -PORT # 252 -BYTE # 17 -PORT # 252 -BYTE # 18 -PORT # 252 -BYTE # 19 -PORT # 252 -BYTE # 20 -PORT # 252 -BYTE # 21 -PORT # 252 -BYTE # 22 -PORT # 252 -BYTE # 23 -PORT # 252 -BYTE # 24 -PORT # 252 -BYTE # 25 -PORT # 252 -BYTE # 26 -PORT # 252 -BYTE # 27 -PORT # 252 -BYTE # 28 -PORT # 252 -BYTE # 29 -PORT # 252 -BYTE # 30 -PORT # 252 -BYTE # 31 -PORT # 252 -BYTE # 32 -PORT # 252 -BYTE # 33 -PORT # 252 -BYTE # 34 -PORT # 252 -BYTE # 35 -PORT # 252 -BYTE # 36 -PORT # 252 -BYTE # 37 -PORT # 252 -BYTE # 38 -PORT # 252 -BYTE # 39 -PORT # 252 -BYTE # 40 -PORT # 252 -BYTE # 41 -PORT # 252 -BYTE # 42 -PORT # 252 -BYTE # 43 -PORT # 252 -BYTE # 44 -PORT # 252 -BYTE # 45 -PORT # 252 -BYTE # 46 -PORT # 252 -BYTE # 47 -PORT # 252 -BYTE # 48 -PORT # 252 -BYTE # 49 -PORT # 252 -BYTE # 50 -PORT # 252 -BYTE # 51 -PORT # 252 -BYTE # 52 -PORT # 252 -BYTE # 53 -PORT # 252 -BYTE # 54 -PORT # 252 -BYTE # 55 -PORT # 252 -BYTE # 56 -PORT # 252 -BYTE # 57 -PORT # 252 -BYTE # 58 -PORT # 252 -BYTE # 59 -PORT # 252 -BYTE # 60 -PORT # 252 -BYTE # 61 -PORT # 252 -BYTE # 62 -PORT # 252 -BYTE # 63 -PORT # 252 -BYTE # 64 -PORT # 252 -BYTE # 65 -PORT # 252 -BYTE # 66 -PORT # 252 -BYTE # 67 -PORT # 252 -BYTE # 68 -PORT # 252 -BYTE # 69 -PORT # 252 -BYTE # 70 -PORT # 252 -BYTE # 71 -PORT # 252 -BYTE # 72 -PORT # 252 -BYTE # 73 -PORT # 252 -BYTE # 74 -PORT # 252 -BYTE # 75 -PORT # 252 -BYTE # 76 -PORT # 252 -BYTE # 77 -PORT # 252 -BYTE # 78 -PORT # 252 -BYTE # 79 -PORT # 252 -BYTE # 80 -PORT # 252 -BYTE # 81 -PORT # 252 -BYTE # 82 -PORT # 252 -BYTE # 83 -PORT # 252 -BYTE # 84 -PORT # 252 -BYTE # 85 -PORT # 252 -BYTE # 86 -PORT # 252 -BYTE # 87 -PORT # 252 -BYTE # 88 -PORT # 252 -BYTE # 89 -PORT # 252 -BYTE # 90 -PORT # 252 -BYTE # 91 -PORT # 252 -BYTE # 92 -PORT # 252 -BYTE # 93 -PORT # 252 -BYTE # 94 -PORT # 252 -BYTE # 95 -PORT # 252 -BYTE # 96 -PORT # 252 -BYTE # 97 -PORT # 252 -BYTE # 98 -PORT # 252 -BYTE # 99 -PORT # 252 -BYTE # 100 -PORT # 252 -BYTE # 101 -PORT # 252 -BYTE # 102 -PORT # 252 -BYTE # 103 -PORT # 252 -BYTE # 104 -PORT # 252 -BYTE # 105 -PORT # 252 -BYTE # 106 -PORT # 252 -BYTE # 107 -PORT # 252 -BYTE # 108 -PORT # 252 -BYTE # 109 -PORT # 252 -BYTE # 110 -PORT # 252 -BYTE # 111 -PORT # 252 -BYTE # 112 -PORT # 252 -BYTE # 113 -PORT # 252 -BYTE # 114 -PORT # 252 -BYTE # 115 -PORT # 252 -BYTE # 116 -PORT # 252 -BYTE # 117 -PORT # 252 -BYTE # 118 -PORT # 252 -BYTE # 119 -PORT # 252 -BYTE # 120 -PORT # 252 -BYTE # 121 -PORT # 252 -BYTE # 122 -PORT # 252 -BYTE # 123 -PORT # 252 -BYTE # 124 -PORT # 252 -BYTE # 125 -PORT # 252 -BYTE # 126 -PORT # 252 -BYTE # 127 -PORT # 252 -BYTE # 128 -PORT # 252 -BYTE # 129 -PORT # 252 -BYTE # 130 -PORT # 252 -BYTE # 131 -PORT # 252 -BYTE # 132 -PORT # 252 -BYTE # 133 -PORT # 252 -BYTE # 134 -PORT # 252 -BYTE # 135 -PORT # 252 -BYTE # 136 -PORT # 252 -BYTE # 137 -PORT # 252 -BYTE # 138 -PORT # 252 -BYTE # 139 -PORT # 252 -BYTE # 140 -PORT # 252 -BYTE # 141 -PORT # 252 -BYTE # 142 -PORT # 252 -BYTE # 143 -PORT # 252 -BYTE # 144 -PORT # 252 -BYTE # 145 -PORT # 252 -BYTE # 146 -PORT # 252 -BYTE # 147 -PORT # 252 -BYTE # 148 -PORT # 252 -BYTE # 149 -PORT # 252 -BYTE # 150 -PORT # 252 -BYTE # 151 -PORT # 252 -BYTE # 152 -PORT # 252 -BYTE # 153 -PORT # 252 -BYTE # 154 -PORT # 252 -BYTE # 155 -PORT # 252 -BYTE # 156 -PORT # 252 -BYTE # 157 -PORT # 252 -BYTE # 158 -PORT # 252 -BYTE # 159 -PORT # 252 -BYTE # 160 -PORT # 252 -BYTE # 161 -PORT # 252 -BYTE # 162 -PORT # 252 -BYTE # 163 -PORT # 252 -BYTE # 164 -PORT # 252 -BYTE # 165 -PORT # 252 -BYTE # 166 -PORT # 252 -BYTE # 167 -PORT # 252 -BYTE # 168 -PORT # 252 -BYTE # 169 -PORT # 252 -BYTE # 170 -PORT # 252 -BYTE # 171 -PORT # 252 -BYTE # 172 -PORT # 252 -BYTE # 173 -PORT # 252 -BYTE # 174 -PORT # 252 -BYTE # 175 -PORT # 252 -BYTE # 176 -PORT # 252 -BYTE # 177 -PORT # 252 -BYTE # 178 -PORT # 252 -BYTE # 179 -PORT # 252 -BYTE # 180 -PORT # 252 -BYTE # 181 -PORT # 252 -BYTE # 182 -PORT # 252 -BYTE # 183 -PORT # 252 -BYTE # 184 -PORT # 252 -BYTE # 185 -PORT # 252 -BYTE # 186 -PORT # 252 -BYTE # 187 -PORT # 252 -BYTE # 188 -PORT # 252 -BYTE # 189 -PORT # 252 -BYTE # 190 -PORT # 252 -BYTE # 191 -PORT # 252 -BYTE # 192 -PORT # 252 -BYTE # 193 -PORT # 252 -BYTE # 194 -PORT # 252 -BYTE # 195 -PORT # 252 -BYTE # 196 -PORT # 252 -BYTE # 197 -PORT # 252 -BYTE # 198 -PORT # 252 -BYTE # 199 -PORT # 252 -BYTE # 200 -PORT # 252 -BYTE # 201 -PORT # 252 -BYTE # 202 -PORT # 252 -BYTE # 203 -PORT # 252 -BYTE # 204 -PORT # 252 -BYTE # 205 -PORT # 252 -BYTE # 206 -PORT # 252 -BYTE # 207 -PORT # 252 -BYTE # 208 -PORT # 252 -BYTE # 209 -PORT # 252 -BYTE # 210 -PORT # 252 -BYTE # 211 -PORT # 252 -BYTE # 212 -PORT # 252 -BYTE # 213 -PORT # 252 -BYTE # 214 -PORT # 252 -BYTE # 215 -PORT # 252 -BYTE # 216 -PORT # 252 -BYTE # 217 -PORT # 252 -BYTE # 218 -PORT # 252 -BYTE # 219 -PORT # 252 -BYTE # 220 -PORT # 252 -BYTE # 221 -PORT # 252 -BYTE # 222 -PORT # 252 -BYTE # 223 -PORT # 252 -BYTE # 224 -PORT # 252 -BYTE # 225 -PORT # 252 -BYTE # 226 -PORT # 252 -BYTE # 227 -PORT # 252 -BYTE # 228 -PORT # 252 -BYTE # 229 -PORT # 252 -BYTE # 230 -PORT # 252 -BYTE # 231 -PORT # 252 -BYTE # 232 -PORT # 252 -BYTE # 233 -PORT # 252 -BYTE # 234 -PORT # 252 -BYTE # 235 -PORT # 252 -BYTE # 236 -PORT # 252 -BYTE # 237 -PORT # 252 -BYTE # 238 -PORT # 252 -BYTE # 239 -PORT # 252 -BYTE # 240 -PORT # 252 -BYTE # 241 -PORT # 252 -BYTE # 242 -PORT # 252 -BYTE # 243 -PORT # 252 -BYTE # 244 -PORT # 252 -BYTE # 245 -PORT # 252 -BYTE # 246 -PORT # 252 -BYTE # 247 -PORT # 252 -BYTE # 248 -PORT # 252 -BYTE # 249 -PORT # 252 -BYTE # 250 -PORT # 252 -BYTE # 251 -PORT # 252 -BYTE # 252 -PORT # 252 -BYTE # 253 -PORT # 252 -BYTE # 254 -PORT # 252 -BYTE # 255 -PORT # 253 -BYTE # 0 -PORT # 253 -BYTE # 1 -PORT # 253 -BYTE # 2 -PORT # 253 -BYTE # 3 -PORT # 253 -BYTE # 4 -PORT # 253 -BYTE # 5 -PORT # 253 -BYTE # 6 -PORT # 253 -BYTE # 7 -PORT # 253 -BYTE # 8 -PORT # 253 -BYTE # 9 -PORT # 253 -BYTE # 10 -PORT # 253 -BYTE # 11 -PORT # 253 -BYTE # 12 -PORT # 253 -BYTE # 13 -PORT # 253 -BYTE # 14 -PORT # 253 -BYTE # 15 -PORT # 253 -BYTE # 16 -PORT # 253 -BYTE # 17 -PORT # 253 -BYTE # 18 -PORT # 253 -BYTE # 19 -PORT # 253 -BYTE # 20 -PORT # 253 -BYTE # 21 -PORT # 253 -BYTE # 22 -PORT # 253 -BYTE # 23 -PORT # 253 -BYTE # 24 -PORT # 253 -BYTE # 25 -PORT # 253 -BYTE # 26 -PORT # 253 -BYTE # 27 -PORT # 253 -BYTE # 28 -PORT # 253 -BYTE # 29 -PORT # 253 -BYTE # 30 -PORT # 253 -BYTE # 31 -PORT # 253 -BYTE # 32 -PORT # 253 -BYTE # 33 -PORT # 253 -BYTE # 34 -PORT # 253 -BYTE # 35 -PORT # 253 -BYTE # 36 -PORT # 253 -BYTE # 37 -PORT # 253 -BYTE # 38 -PORT # 253 -BYTE # 39 -PORT # 253 -BYTE # 40 -PORT # 253 -BYTE # 41 -PORT # 253 -BYTE # 42 -PORT # 253 -BYTE # 43 -PORT # 253 -BYTE # 44 -PORT # 253 -BYTE # 45 -PORT # 253 -BYTE # 46 -PORT # 253 -BYTE # 47 -PORT # 253 -BYTE # 48 -PORT # 253 -BYTE # 49 -PORT # 253 -BYTE # 50 -PORT # 253 -BYTE # 51 -PORT # 253 -BYTE # 52 -PORT # 253 -BYTE # 53 -PORT # 253 -BYTE # 54 -PORT # 253 -BYTE # 55 -PORT # 253 -BYTE # 56 -PORT # 253 -BYTE # 57 -PORT # 253 -BYTE # 58 -PORT # 253 -BYTE # 59 -PORT # 253 -BYTE # 60 -PORT # 253 -BYTE # 61 -PORT # 253 -BYTE # 62 -PORT # 253 -BYTE # 63 -PORT # 253 -BYTE # 64 -PORT # 253 -BYTE # 65 -PORT # 253 -BYTE # 66 -PORT # 253 -BYTE # 67 -PORT # 253 -BYTE # 68 -PORT # 253 -BYTE # 69 -PORT # 253 -BYTE # 70 -PORT # 253 -BYTE # 71 -PORT # 253 -BYTE # 72 -PORT # 253 -BYTE # 73 -PORT # 253 -BYTE # 74 -PORT # 253 -BYTE # 75 -PORT # 253 -BYTE # 76 -PORT # 253 -BYTE # 77 -PORT # 253 -BYTE # 78 -PORT # 253 -BYTE # 79 -PORT # 253 -BYTE # 80 -PORT # 253 -BYTE # 81 -PORT # 253 -BYTE # 82 -PORT # 253 -BYTE # 83 -PORT # 253 -BYTE # 84 -PORT # 253 -BYTE # 85 -PORT # 253 -BYTE # 86 -PORT # 253 -BYTE # 87 -PORT # 253 -BYTE # 88 -PORT # 253 -BYTE # 89 -PORT # 253 -BYTE # 90 -PORT # 253 -BYTE # 91 -PORT # 253 -BYTE # 92 -PORT # 253 -BYTE # 93 -PORT # 253 -BYTE # 94 -PORT # 253 -BYTE # 95 -PORT # 253 -BYTE # 96 -PORT # 253 -BYTE # 97 -PORT # 253 -BYTE # 98 -PORT # 253 -BYTE # 99 -PORT # 253 -BYTE # 100 -PORT # 253 -BYTE # 101 -PORT # 253 -BYTE # 102 -PORT # 253 -BYTE # 103 -PORT # 253 -BYTE # 104 -PORT # 253 -BYTE # 105 -PORT # 253 -BYTE # 106 -PORT # 253 -BYTE # 107 -PORT # 253 -BYTE # 108 -PORT # 253 -BYTE # 109 -PORT # 253 -BYTE # 110 -PORT # 253 -BYTE # 111 -PORT # 253 -BYTE # 112 -PORT # 253 -BYTE # 113 -PORT # 253 -BYTE # 114 -PORT # 253 -BYTE # 115 -PORT # 253 -BYTE # 116 -PORT # 253 -BYTE # 117 -PORT # 253 -BYTE # 118 -PORT # 253 -BYTE # 119 -PORT # 253 -BYTE # 120 -PORT # 253 -BYTE # 121 -PORT # 253 -BYTE # 122 -PORT # 253 -BYTE # 123 -PORT # 253 -BYTE # 124 -PORT # 253 -BYTE # 125 -PORT # 253 -BYTE # 126 -PORT # 253 -BYTE # 127 -PORT # 253 -BYTE # 128 -PORT # 253 -BYTE # 129 -PORT # 253 -BYTE # 130 -PORT # 253 -BYTE # 131 -PORT # 253 -BYTE # 132 -PORT # 253 -BYTE # 133 -PORT # 253 -BYTE # 134 -PORT # 253 -BYTE # 135 -PORT # 253 -BYTE # 136 -PORT # 253 -BYTE # 137 -PORT # 253 -BYTE # 138 -PORT # 253 -BYTE # 139 -PORT # 253 -BYTE # 140 -PORT # 253 -BYTE # 141 -PORT # 253 -BYTE # 142 -PORT # 253 -BYTE # 143 -PORT # 253 -BYTE # 144 -PORT # 253 -BYTE # 145 -PORT # 253 -BYTE # 146 -PORT # 253 -BYTE # 147 -PORT # 253 -BYTE # 148 -PORT # 253 -BYTE # 149 -PORT # 253 -BYTE # 150 -PORT # 253 -BYTE # 151 -PORT # 253 -BYTE # 152 -PORT # 253 -BYTE # 153 -PORT # 253 -BYTE # 154 -PORT # 253 -BYTE # 155 -PORT # 253 -BYTE # 156 -PORT # 253 -BYTE # 157 -PORT # 253 -BYTE # 158 -PORT # 253 -BYTE # 159 -PORT # 253 -BYTE # 160 -PORT # 253 -BYTE # 161 -PORT # 253 -BYTE # 162 -PORT # 253 -BYTE # 163 -PORT # 253 -BYTE # 164 -PORT # 253 -BYTE # 165 -PORT # 253 -BYTE # 166 -PORT # 253 -BYTE # 167 -PORT # 253 -BYTE # 168 -PORT # 253 -BYTE # 169 -PORT # 253 -BYTE # 170 -PORT # 253 -BYTE # 171 -PORT # 253 -BYTE # 172 -PORT # 253 -BYTE # 173 -PORT # 253 -BYTE # 174 -PORT # 253 -BYTE # 175 -PORT # 253 -BYTE # 176 -PORT # 253 -BYTE # 177 -PORT # 253 -BYTE # 178 -PORT # 253 -BYTE # 179 -PORT # 253 -BYTE # 180 -PORT # 253 -BYTE # 181 -PORT # 253 -BYTE # 182 -PORT # 253 -BYTE # 183 -PORT # 253 -BYTE # 184 -PORT # 253 -BYTE # 185 -PORT # 253 -BYTE # 186 -PORT # 253 -BYTE # 187 -PORT # 253 -BYTE # 188 -PORT # 253 -BYTE # 189 -PORT # 253 -BYTE # 190 -PORT # 253 -BYTE # 191 -PORT # 253 -BYTE # 192 -PORT # 253 -BYTE # 193 -PORT # 253 -BYTE # 194 -PORT # 253 -BYTE # 195 -PORT # 253 -BYTE # 196 -PORT # 253 -BYTE # 197 -PORT # 253 -BYTE # 198 -PORT # 253 -BYTE # 199 -PORT # 253 -BYTE # 200 -PORT # 253 -BYTE # 201 -PORT # 253 -BYTE # 202 -PORT # 253 -BYTE # 203 -PORT # 253 -BYTE # 204 -PORT # 253 -BYTE # 205 -PORT # 253 -BYTE # 206 -PORT # 253 -BYTE # 207 -PORT # 253 -BYTE # 208 -PORT # 253 -BYTE # 209 -PORT # 253 -BYTE # 210 -PORT # 253 -BYTE # 211 -PORT # 253 -BYTE # 212 -PORT # 253 -BYTE # 213 -PORT # 253 -BYTE # 214 -PORT # 253 -BYTE # 215 -PORT # 253 -BYTE # 216 -PORT # 253 -BYTE # 217 -PORT # 253 -BYTE # 218 -PORT # 253 -BYTE # 219 -PORT # 253 -BYTE # 220 -PORT # 253 -BYTE # 221 -PORT # 253 -BYTE # 222 -PORT # 253 -BYTE # 223 -PORT # 253 -BYTE # 224 -PORT # 253 -BYTE # 225 -PORT # 253 -BYTE # 226 -PORT # 253 -BYTE # 227 -PORT # 253 -BYTE # 228 -PORT # 253 -BYTE # 229 -PORT # 253 -BYTE # 230 -PORT # 253 -BYTE # 231 -PORT # 253 -BYTE # 232 -PORT # 253 -BYTE # 233 -PORT # 253 -BYTE # 234 -PORT # 253 -BYTE # 235 -PORT # 253 -BYTE # 236 -PORT # 253 -BYTE # 237 -PORT # 253 -BYTE # 238 -PORT # 253 -BYTE # 239 -PORT # 253 -BYTE # 240 -PORT # 253 -BYTE # 241 -PORT # 253 -BYTE # 242 -PORT # 253 -BYTE # 243 -PORT # 253 -BYTE # 244 -PORT # 253 -BYTE # 245 -PORT # 253 -BYTE # 246 -PORT # 253 -BYTE # 247 -PORT # 253 -BYTE # 248 -PORT # 253 -BYTE # 249 -PORT # 253 -BYTE # 250 -PORT # 253 -BYTE # 251 -PORT # 253 -BYTE # 252 -PORT # 253 -BYTE # 253 -PORT # 253 -BYTE # 254 -PORT # 253 -BYTE # 255 -PORT # 254 -BYTE # 0 -PORT # 254 -BYTE # 1 -PORT # 254 -BYTE # 2 -PORT # 254 -BYTE # 3 -PORT # 254 -BYTE # 4 -PORT # 254 -BYTE # 5 -PORT # 254 -BYTE # 6 -PORT # 254 -BYTE # 7 -PORT # 254 -BYTE # 8 -PORT # 254 -BYTE # 9 -PORT # 254 -BYTE # 10 -PORT # 254 -BYTE # 11 -PORT # 254 -BYTE # 12 -PORT # 254 -BYTE # 13 -PORT # 254 -BYTE # 14 -PORT # 254 -BYTE # 15 -PORT # 254 -BYTE # 16 -PORT # 254 -BYTE # 17 -PORT # 254 -BYTE # 18 -PORT # 254 -BYTE # 19 -PORT # 254 -BYTE # 20 -PORT # 254 -BYTE # 21 -PORT # 254 -BYTE # 22 -PORT # 254 -BYTE # 23 -PORT # 254 -BYTE # 24 -PORT # 254 -BYTE # 25 -PORT # 254 -BYTE # 26 -PORT # 254 -BYTE # 27 -PORT # 254 -BYTE # 28 -PORT # 254 -BYTE # 29 -PORT # 254 -BYTE # 30 -PORT # 254 -BYTE # 31 -PORT # 254 -BYTE # 32 -PORT # 254 -BYTE # 33 -PORT # 254 -BYTE # 34 -PORT # 254 -BYTE # 35 -PORT # 254 -BYTE # 36 -PORT # 254 -BYTE # 37 -PORT # 254 -BYTE # 38 -PORT # 254 -BYTE # 39 -PORT # 254 -BYTE # 40 -PORT # 254 -BYTE # 41 -PORT # 254 -BYTE # 42 -PORT # 254 -BYTE # 43 -PORT # 254 -BYTE # 44 -PORT # 254 -BYTE # 45 -PORT # 254 -BYTE # 46 -PORT # 254 -BYTE # 47 -PORT # 254 -BYTE # 48 -PORT # 254 -BYTE # 49 -PORT # 254 -BYTE # 50 -PORT # 254 -BYTE # 51 -PORT # 254 -BYTE # 52 -PORT # 254 -BYTE # 53 -PORT # 254 -BYTE # 54 -PORT # 254 -BYTE # 55 -PORT # 254 -BYTE # 56 -PORT # 254 -BYTE # 57 -PORT # 254 -BYTE # 58 -PORT # 254 -BYTE # 59 -PORT # 254 -BYTE # 60 -PORT # 254 -BYTE # 61 -PORT # 254 -BYTE # 62 -PORT # 254 -BYTE # 63 -PORT # 254 -BYTE # 64 -PORT # 254 -BYTE # 65 -PORT # 254 -BYTE # 66 -PORT # 254 -BYTE # 67 -PORT # 254 -BYTE # 68 -PORT # 254 -BYTE # 69 -PORT # 254 -BYTE # 70 -PORT # 254 -BYTE # 71 -PORT # 254 -BYTE # 72 -PORT # 254 -BYTE # 73 -PORT # 254 -BYTE # 74 -PORT # 254 -BYTE # 75 -PORT # 254 -BYTE # 76 -PORT # 254 -BYTE # 77 -PORT # 254 -BYTE # 78 -PORT # 254 -BYTE # 79 -PORT # 254 -BYTE # 80 -PORT # 254 -BYTE # 81 -PORT # 254 -BYTE # 82 -PORT # 254 -BYTE # 83 -PORT # 254 -BYTE # 84 -PORT # 254 -BYTE # 85 -PORT # 254 -BYTE # 86 -PORT # 254 -BYTE # 87 -PORT # 254 -BYTE # 88 -PORT # 254 -BYTE # 89 -PORT # 254 -BYTE # 90 -PORT # 254 -BYTE # 91 -PORT # 254 -BYTE # 92 -PORT # 254 -BYTE # 93 -PORT # 254 -BYTE # 94 -PORT # 254 -BYTE # 95 -PORT # 254 -BYTE # 96 -PORT # 254 -BYTE # 97 -PORT # 254 -BYTE # 98 -PORT # 254 -BYTE # 99 -PORT # 254 -BYTE # 100 -PORT # 254 -BYTE # 101 -PORT # 254 -BYTE # 102 -PORT # 254 -BYTE # 103 -PORT # 254 -BYTE # 104 -PORT # 254 -BYTE # 105 -PORT # 254 -BYTE # 106 -PORT # 254 -BYTE # 107 -PORT # 254 -BYTE # 108 -PORT # 254 -BYTE # 109 -PORT # 254 -BYTE # 110 -PORT # 254 -BYTE # 111 -PORT # 254 -BYTE # 112 -PORT # 254 -BYTE # 113 -PORT # 254 -BYTE # 114 -PORT # 254 -BYTE # 115 -PORT # 254 -BYTE # 116 -PORT # 254 -BYTE # 117 -PORT # 254 -BYTE # 118 -PORT # 254 -BYTE # 119 -PORT # 254 -BYTE # 120 -PORT # 254 -BYTE # 121 -PORT # 254 -BYTE # 122 -PORT # 254 -BYTE # 123 -PORT # 254 -BYTE # 124 -PORT # 254 -BYTE # 125 -PORT # 254 -BYTE # 126 -PORT # 254 -BYTE # 127 -PORT # 254 -BYTE # 128 -PORT # 254 -BYTE # 129 -PORT # 254 -BYTE # 130 -PORT # 254 -BYTE # 131 -PORT # 254 -BYTE # 132 -PORT # 254 -BYTE # 133 -PORT # 254 -BYTE # 134 -PORT # 254 -BYTE # 135 -PORT # 254 -BYTE # 136 -PORT # 254 -BYTE # 137 -PORT # 254 -BYTE # 138 -PORT # 254 -BYTE # 139 -PORT # 254 -BYTE # 140 -PORT # 254 -BYTE # 141 -PORT # 254 -BYTE # 142 -PORT # 254 -BYTE # 143 -PORT # 254 -BYTE # 144 -PORT # 254 -BYTE # 145 -PORT # 254 -BYTE # 146 -PORT # 254 -BYTE # 147 -PORT # 254 -BYTE # 148 -PORT # 254 -BYTE # 149 -PORT # 254 -BYTE # 150 -PORT # 254 -BYTE # 151 -PORT # 254 -BYTE # 152 -PORT # 254 -BYTE # 153 -PORT # 254 -BYTE # 154 -PORT # 254 -BYTE # 155 -PORT # 254 -BYTE # 156 -PORT # 254 -BYTE # 157 -PORT # 254 -BYTE # 158 -PORT # 254 -BYTE # 159 -PORT # 254 -BYTE # 160 -PORT # 254 -BYTE # 161 -PORT # 254 -BYTE # 162 -PORT # 254 -BYTE # 163 -PORT # 254 -BYTE # 164 -PORT # 254 -BYTE # 165 -PORT # 254 -BYTE # 166 -PORT # 254 -BYTE # 167 -PORT # 254 -BYTE # 168 -PORT # 254 -BYTE # 169 -PORT # 254 -BYTE # 170 -PORT # 254 -BYTE # 171 -PORT # 254 -BYTE # 172 -PORT # 254 -BYTE # 173 -PORT # 254 -BYTE # 174 -PORT # 254 -BYTE # 175 -PORT # 254 -BYTE # 176 -PORT # 254 -BYTE # 177 -PORT # 254 -BYTE # 178 -PORT # 254 -BYTE # 179 -PORT # 254 -BYTE # 180 -PORT # 254 -BYTE # 181 -PORT # 254 -BYTE # 182 -PORT # 254 -BYTE # 183 -PORT # 254 -BYTE # 184 -PORT # 254 -BYTE # 185 -PORT # 254 -BYTE # 186 -PORT # 254 -BYTE # 187 -PORT # 254 -BYTE # 188 -PORT # 254 -BYTE # 189 -PORT # 254 -BYTE # 190 -PORT # 254 -BYTE # 191 -PORT # 254 -BYTE # 192 -PORT # 254 -BYTE # 193 -PORT # 254 -BYTE # 194 -PORT # 254 -BYTE # 195 -PORT # 254 -BYTE # 196 -PORT # 254 -BYTE # 197 -PORT # 254 -BYTE # 198 -PORT # 254 -BYTE # 199 -PORT # 254 -BYTE # 200 -PORT # 254 -BYTE # 201 -PORT # 254 -BYTE # 202 -PORT # 254 -BYTE # 203 -PORT # 254 -BYTE # 204 -PORT # 254 -BYTE # 205 -PORT # 254 -BYTE # 206 -PORT # 254 -BYTE # 207 -PORT # 254 -BYTE # 208 -PORT # 254 -BYTE # 209 -PORT # 254 -BYTE # 210 -PORT # 254 -BYTE # 211 -PORT # 254 -BYTE # 212 -PORT # 254 -BYTE # 213 -PORT # 254 -BYTE # 214 -PORT # 254 -BYTE # 215 -PORT # 254 -BYTE # 216 -PORT # 254 -BYTE # 217 -PORT # 254 -BYTE # 218 -PORT # 254 -BYTE # 219 -PORT # 254 -BYTE # 220 -PORT # 254 -BYTE # 221 -PORT # 254 -BYTE # 222 -PORT # 254 -BYTE # 223 -PORT # 254 -BYTE # 224 -PORT # 254 -BYTE # 225 -PORT # 254 -BYTE # 226 -PORT # 254 -BYTE # 227 -PORT # 254 -BYTE # 228 -PORT # 254 -BYTE # 229 -PORT # 254 -BYTE # 230 -PORT # 254 -BYTE # 231 -PORT # 254 -BYTE # 232 -PORT # 254 -BYTE # 233 -PORT # 254 -BYTE # 234 -PORT # 254 -BYTE # 235 -PORT # 254 -BYTE # 236 -PORT # 254 -BYTE # 237 -PORT # 254 -BYTE # 238 -PORT # 254 -BYTE # 239 -PORT # 254 -BYTE # 240 -PORT # 254 -BYTE # 241 -PORT # 254 -BYTE # 242 -PORT # 254 -BYTE # 243 -PORT # 254 -BYTE # 244 -PORT # 254 -BYTE # 245 -PORT # 254 -BYTE # 246 -PORT # 254 -BYTE # 247 -PORT # 254 -BYTE # 248 -PORT # 254 -BYTE # 249 -PORT # 254 -BYTE # 250 -PORT # 254 -BYTE # 251 -PORT # 254 -BYTE # 252 -PORT # 254 -BYTE # 253 -PORT # 254 -BYTE # 254 -PORT # 254 -BYTE # 255 -PORT # 255 -BYTE # 0 -MOTOR OFF -PORT # 255 -BYTE # 1 -MOTOR OFF -PORT # 255 -BYTE # 2 -MOTOR OFF -PORT # 255 -BYTE # 3 -MOTOR OFF -PORT # 255 -BYTE # 4 -MOTOR ON -PORT # 255 -BYTE # 5 -MOTOR ON -PORT # 255 -BYTE # 6 -MOTOR ON -PORT # 255 -BYTE # 7 -MOTOR ON -PORT # 255 -BYTE # 8 -MOTOR OFF -PORT # 255 -BYTE # 9 -MOTOR OFF -PORT # 255 -BYTE # 10 -MOTOR OFF -PORT # 255 -BYTE # 11 -MOTOR OFF -PORT # 255 -BYTE # 12 -MOTOR ON -PORT # 255 -BYTE # 13 -MOTOR ON -PORT # 255 -BYTE # 14 -MOTOR ON -PORT # 255 -BYTE # 15 -MOTOR ON -PORT # 255 -BYTE # 16 -MOTOR OFF -PORT # 255 -BYTE # 17 -MOTOR OFF -PORT # 255 -BYTE # 18 -MOTOR OFF -PORT # 255 -BYTE # 19 -MOTOR OFF -PORT # 255 -BYTE # 20 -MOTOR ON -PORT # 255 -BYTE # 21 -MOTOR ON -PORT # 255 -BYTE # 22 -MOTOR ON -PORT # 255 -BYTE # 23 -MOTOR ON -PORT # 255 -BYTE # 24 -MOTOR OFF -PORT # 255 -BYTE # 25 -MOTOR OFF -PORT # 255 -BYTE # 26 -MOTOR OFF -PORT # 255 -BYTE # 27 -MOTOR OFF -PORT # 255 -BYTE # 28 -MOTOR ON -PORT # 255 -BYTE # 29 -MOTOR ON -PORT # 255 -BYTE # 30 -MOTOR ON -PORT # 255 -BYTE # 31 -MOTOR ON -PORT # 255 -BYTE # 32 -MOTOR OFF -PORT # 255 -BYTE # 33 -MOTOR OFF -PORT # 255 -BYTE # 34 -MOTOR OFF -PORT # 255 -BYTE # 35 -MOTOR OFF -PORT # 255 -BYTE # 36 -MOTOR ON -PORT # 255 -BYTE # 37 -MOTOR ON -PORT # 255 -BYTE # 38 -MOTOR ON -PORT # 255 -BYTE # 39 -MOTOR ON -PORT # 255 -BYTE # 40 -MOTOR OFF -PORT # 255 -BYTE # 41 -MOTOR OFF -PORT # 255 -BYTE # 42 -MOTOR OFF -PORT # 255 -BYTE # 43 -MOTOR OFF -PORT # 255 -BYTE # 44 -MOTOR ON -PORT # 255 -BYTE # 45 -MOTOR ON -PORT # 255 -BYTE # 46 -MOTOR ON -PORT # 255 -BYTE # 47 -MOTOR ON -PORT # 255 -BYTE # 48 -MOTOR OFF -PORT # 255 -BYTE # 49 -MOTOR OFF -PORT # 255 -BYTE # 50 -MOTOR OFF -PORT # 255 -BYTE # 51 -MOTOR OFF -PORT # 255 -BYTE # 52 -MOTOR ON -PORT # 255 -BYTE # 53 -MOTOR ON -PORT # 255 -BYTE # 54 -MOTOR ON -PORT # 255 -BYTE # 55 -MOTOR ON -PORT # 255 -BYTE # 56 -MOTOR OFF -PORT # 255 -BYTE # 57 -MOTOR OFF -PORT # 255 -BYTE # 58 -MOTOR OFF -PORT # 255 -BYTE # 59 -MOTOR OFF -PORT # 255 -BYTE # 60 -MOTOR ON -PORT # 255 -BYTE # 61 -MOTOR ON -PORT # 255 -BYTE # 62 -MOTOR ON -PORT # 255 -BYTE # 63 -MOTOR ON -PORT # 255 -BYTE # 64 -MOTOR OFF -PORT # 255 -BYTE # 65 -MOTOR OFF -PORT # 255 -BYTE # 66 -MOTOR OFF -PORT # 255 -BYTE # 67 -MOTOR OFF -PORT # 255 -BYTE # 68 -MOTOR ON -PORT # 255 -BYTE # 69 -MOTOR ON -PORT # 255 -BYTE # 70 -MOTOR ON -PORT # 255 -BYTE # 71 -MOTOR ON -PORT # 255 -BYTE # 72 -MOTOR OFF -PORT # 255 -BYTE # 73 -MOTOR OFF -PORT # 255 -BYTE # 74 -MOTOR OFF -PORT # 255 -BYTE # 75 -MOTOR OFF -PORT # 255 -BYTE # 76 -MOTOR ON -PORT # 255 -BYTE # 77 -MOTOR ON -PORT # 255 -BYTE # 78 -MOTOR ON -PORT # 255 -BYTE # 79 -MOTOR ON -PORT # 255 -BYTE # 80 -MOTOR OFF -PORT # 255 -BYTE # 81 -MOTOR OFF -PORT # 255 -BYTE # 82 -MOTOR OFF -PORT # 255 -BYTE # 83 -MOTOR OFF -PORT # 255 -BYTE # 84 -MOTOR ON -PORT # 255 -BYTE # 85 -MOTOR ON -PORT # 255 -BYTE # 86 -MOTOR ON -PORT # 255 -BYTE # 87 -MOTOR ON -PORT # 255 -BYTE # 88 -MOTOR OFF -PORT # 255 -BYTE # 89 -MOTOR OFF -PORT # 255 -BYTE # 90 -MOTOR OFF -PORT # 255 -BYTE # 91 -MOTOR OFF -PORT # 255 -BYTE # 92 -MOTOR ON -PORT # 255 -BYTE # 93 -MOTOR ON -PORT # 255 -BYTE # 94 -MOTOR ON -PORT # 255 -BYTE # 95 -MOTOR ON -PORT # 255 -BYTE # 96 -MOTOR OFF -PORT # 255 -BYTE # 97 -MOTOR OFF -PORT # 255 -BYTE # 98 -MOTOR OFF -PORT # 255 -BYTE # 99 -MOTOR OFF -PORT # 255 -BYTE # 100 -MOTOR ON -PORT # 255 -BYTE # 101 -MOTOR ON -PORT # 255 -BYTE # 102 -MOTOR ON -PORT # 255 -BYTE # 103 -MOTOR ON -PORT # 255 -BYTE # 104 -MOTOR OFF -PORT # 255 -BYTE # 105 -MOTOR OFF -PORT # 255 -BYTE # 106 -MOTOR OFF -PORT # 255 -BYTE # 107 -MOTOR OFF -PORT # 255 -BYTE # 108 -MOTOR ON -PORT # 255 -BYTE # 109 -MOTOR ON -PORT # 255 -BYTE # 110 -MOTOR ON -PORT # 255 -BYTE # 111 -MOTOR ON -PORT # 255 -BYTE # 112 -MOTOR OFF -PORT # 255 -BYTE # 113 -MOTOR OFF -PORT # 255 -BYTE # 114 -MOTOR OFF -PORT # 255 -BYTE # 115 -MOTOR OFF -PORT # 255 -BYTE # 116 -MOTOR ON -PORT # 255 -BYTE # 117 -MOTOR ON -PORT # 255 -BYTE # 118 -MOTOR ON -PORT # 255 -BYTE # 119 -MOTOR ON -PORT # 255 -BYTE # 120 -MOTOR OFF -PORT # 255 -BYTE # 121 -MOTOR OFF -PORT # 255 -BYTE # 122 -MOTOR OFF -PORT # 255 -BYTE # 123 -MOTOR OFF -PORT # 255 -BYTE # 124 -MOTOR ON -PORT # 255 -BYTE # 125 -MOTOR ON -PORT # 255 -BYTE # 126 -MOTOR ON -PORT # 255 -BYTE # 127 -MOTOR ON -PORT # 255 -BYTE # 128 -MOTOR OFF -PORT # 255 -BYTE # 129 -MOTOR OFF -PORT # 255 -BYTE # 130 -MOTOR OFF -PORT # 255 -BYTE # 131 -MOTOR OFF -PORT # 255 -BYTE # 132 -MOTOR ON -PORT # 255 -BYTE # 133 -MOTOR ON -PORT # 255 -BYTE # 134 -MOTOR ON -PORT # 255 -BYTE # 135 -MOTOR ON -PORT # 255 -BYTE # 136 -MOTOR OFF -PORT # 255 -BYTE # 137 -MOTOR OFF -PORT # 255 -BYTE # 138 -MOTOR OFF -PORT # 255 -BYTE # 139 -MOTOR OFF -PORT # 255 -BYTE # 140 -MOTOR ON -PORT # 255 -BYTE # 141 -MOTOR ON -PORT # 255 -BYTE # 142 -MOTOR ON -PORT # 255 -BYTE # 143 -MOTOR ON -PORT # 255 -BYTE # 144 -MOTOR OFF -PORT # 255 -BYTE # 145 -MOTOR OFF -PORT # 255 -BYTE # 146 -MOTOR OFF -PORT # 255 -BYTE # 147 -MOTOR OFF -PORT # 255 -BYTE # 148 -MOTOR ON -PORT # 255 -BYTE # 149 -MOTOR ON -PORT # 255 -BYTE # 150 -MOTOR ON -PORT # 255 -BYTE # 151 -MOTOR ON -PORT # 255 -BYTE # 152 -MOTOR OFF -PORT # 255 -BYTE # 153 -MOTOR OFF -PORT # 255 -BYTE # 154 -MOTOR OFF -PORT # 255 -BYTE # 155 -MOTOR OFF -PORT # 255 -BYTE # 156 -MOTOR ON -PORT # 255 -BYTE # 157 -MOTOR ON -PORT # 255 -BYTE # 158 -MOTOR ON -PORT # 255 -BYTE # 159 -MOTOR ON -PORT # 255 -BYTE # 160 -MOTOR OFF -PORT # 255 -BYTE # 161 -MOTOR OFF -PORT # 255 -BYTE # 162 -MOTOR OFF -PORT # 255 -BYTE # 163 -MOTOR OFF -PORT # 255 -BYTE # 164 -MOTOR ON -PORT # 255 -BYTE # 165 -MOTOR ON -PORT # 255 -BYTE # 166 -MOTOR ON -PORT # 255 -BYTE # 167 -MOTOR ON -PORT # 255 -BYTE # 168 -MOTOR OFF -PORT # 255 -BYTE # 169 -MOTOR OFF -PORT # 255 -BYTE # 170 -MOTOR OFF -PORT # 255 -BYTE # 171 -MOTOR OFF -PORT # 255 -BYTE # 172 -MOTOR ON -PORT # 255 -BYTE # 173 -MOTOR ON -PORT # 255 -BYTE # 174 -MOTOR ON -PORT # 255 -BYTE # 175 -MOTOR ON -PORT # 255 -BYTE # 176 -MOTOR OFF -PORT # 255 -BYTE # 177 -MOTOR OFF -PORT # 255 -BYTE # 178 -MOTOR OFF -PORT # 255 -BYTE # 179 -MOTOR OFF -PORT # 255 -BYTE # 180 -MOTOR ON -PORT # 255 -BYTE # 181 -MOTOR ON -PORT # 255 -BYTE # 182 -MOTOR ON -PORT # 255 -BYTE # 183 -MOTOR ON -PORT # 255 -BYTE # 184 -MOTOR OFF -PORT # 255 -BYTE # 185 -MOTOR OFF -PORT # 255 -BYTE # 186 -MOTOR OFF -PORT # 255 -BYTE # 187 -MOTOR OFF -PORT # 255 -BYTE # 188 -MOTOR ON -PORT # 255 -BYTE # 189 -MOTOR ON -PORT # 255 -BYTE # 190 -MOTOR ON -PORT # 255 -BYTE # 191 -MOTOR ON -PORT # 255 -BYTE # 192 -MOTOR OFF -PORT # 255 -BYTE # 193 -MOTOR OFF -PORT # 255 -BYTE # 194 -MOTOR OFF -PORT # 255 -BYTE # 195 -MOTOR OFF -PORT # 255 -BYTE # 196 -MOTOR ON -PORT # 255 -BYTE # 197 -MOTOR ON -PORT # 255 -BYTE # 198 -MOTOR ON -PORT # 255 -BYTE # 199 -MOTOR ON -PORT # 255 -BYTE # 200 -MOTOR OFF -PORT # 255 -BYTE # 201 -MOTOR OFF -PORT # 255 -BYTE # 202 -MOTOR OFF -PORT # 255 -BYTE # 203 -MOTOR OFF -PORT # 255 -BYTE # 204 -MOTOR ON -PORT # 255 -BYTE # 205 -MOTOR ON -PORT # 255 -BYTE # 206 -MOTOR ON -PORT # 255 -BYTE # 207 -MOTOR ON -PORT # 255 -BYTE # 208 -MOTOR OFF -PORT # 255 -BYTE # 209 -MOTOR OFF -PORT # 255 -BYTE # 210 -MOTOR OFF -PORT # 255 -BYTE # 211 -MOTOR OFF -PORT # 255 -BYTE # 212 -MOTOR ON -PORT # 255 -BYTE # 213 -MOTOR ON -PORT # 255 -BYTE # 214 -MOTOR ON -PORT # 255 -BYTE # 215 -MOTOR ON -PORT # 255 -BYTE # 216 -MOTOR OFF -PORT # 255 -BYTE # 217 -MOTOR OFF -PORT # 255 -BYTE # 218 -MOTOR OFF -PORT # 255 -BYTE # 219 -MOTOR OFF -PORT # 255 -BYTE # 220 -MOTOR ON -PORT # 255 -BYTE # 221 -MOTOR ON -PORT # 255 -BYTE # 222 -MOTOR ON -PORT # 255 -BYTE # 223 -MOTOR ON -PORT # 255 -BYTE # 224 -MOTOR OFF -PORT # 255 -BYTE # 225 -MOTOR OFF -PORT # 255 -BYTE # 226 -MOTOR OFF -PORT # 255 -BYTE # 227 -MOTOR OFF -PORT # 255 -BYTE # 228 -MOTOR ON -PORT # 255 -BYTE # 229 -MOTOR ON -PORT # 255 -BYTE # 230 -MOTOR ON -PORT # 255 -BYTE # 231 -MOTOR ON -PORT # 255 -BYTE # 232 -MOTOR OFF -PORT # 255 -BYTE # 233 -MOTOR OFF -PORT # 255 -BYTE # 234 -MOTOR OFF -PORT # 255 -BYTE # 235 -MOTOR OFF -PORT # 255 -BYTE # 236 -MOTOR ON -PORT # 255 -BYTE # 237 -MOTOR ON -PORT # 255 -BYTE # 238 -MOTOR ON -PORT # 255 -BYTE # 239 -MOTOR ON -PORT # 255 -BYTE # 240 -MOTOR OFF -PORT # 255 -BYTE # 241 -MOTOR OFF -PORT # 255 -BYTE # 242 -MOTOR OFF -PORT # 255 -BYTE # 243 -MOTOR OFF -PORT # 255 -BYTE # 244 -MOTOR ON -PORT # 255 -BYTE # 245 -MOTOR ON -PORT # 255 -BYTE # 246 -MOTOR ON -PORT # 255 -BYTE # 247 -MOTOR ON -PORT # 255 -BYTE # 248 -MOTOR OFF -PORT # 255 -BYTE # 249 -MOTOR OFF -PORT # 255 -BYTE # 250 -MOTOR OFF -PORT # 255 -BYTE # 251 -MOTOR OFF -PORT # 255 -BYTE # 252 -MOTOR ON -PORT # 255 -BYTE # 253 -MOTOR ON -PORT # 255 -BYTE # 254 -MOTOR ON -PORT # 255 -BYTE # 255 -MOTOR ON diff --git a/bwbtest/HB1/PAD80.BAS b/bwbtest/HB1/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/HB1/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/HB1/PAD80.INP b/bwbtest/HB1/PAD80.INP deleted file mode 100644 index 1823942..0000000 --- a/bwbtest/HB1/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA WAIT_3.OUT, WAIT_3.80 diff --git a/bwbtest/HB1/PAD80.PRO b/bwbtest/HB1/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/HB1/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/HB1/PDL_1.BAS b/bwbtest/HB1/PDL_1.BAS deleted file mode 100644 index 18a56c1..0000000 --- a/bwbtest/HB1/PDL_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'PDL' TEST PROGRAM -20 A=PDL(0) -30 B=PDL(1) -40 PRINT "THE VALUE OF PDL(0) IS";A -50 PRINT "THE VALUE OF PDL(1) IS";B -60 PRINT "CHANGE THE CONTROL UNIT SETTINGS AND (RUN) AGAIN" -99 END diff --git a/bwbtest/HB1/PDL_1.PRO b/bwbtest/HB1/PDL_1.PRO deleted file mode 100644 index 6d1ee4d..0000000 --- a/bwbtest/HB1/PDL_1.PRO +++ /dev/null @@ -1,11 +0,0 @@ -65000 REM FAKE PDL() -65010 DEF PDL(X) -65020 REM SIMULATE PADDLES -65030 ON X+1 GOTO 65050, 65080 -65040 GOTO 65100 -65050 REM PDL(0) -65060 PDL = 13 -65070 GOTO 65100 -65080 REM PDL(1) -65090 PDL = 146 -65100 FNEND diff --git a/bwbtest/HB1/PDL_1.run b/bwbtest/HB1/PDL_1.run deleted file mode 100644 index 61e45e9..0000000 --- a/bwbtest/HB1/PDL_1.run +++ /dev/null @@ -1,3 +0,0 @@ -THE VALUE OF PDL(0) IS 13 -THE VALUE OF PDL(1) IS 146 -CHANGE THE CONTROL UNIT SETTINGS AND (RUN) AGAIN diff --git a/bwbtest/HB1/PDL_2.BAS b/bwbtest/HB1/PDL_2.BAS deleted file mode 100644 index d3f3c23..0000000 --- a/bwbtest/HB1/PDL_2.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'PDL' TEST PROGRAM -15 DEF PDL(X)=146 - 133 * (X MOD 2) -20 A=PDL(0) -30 B=PDL(1) -40 PRINT "THE VALUE OF PDL(0) IS";A -50 PRINT "THE VALUE OF PDL(1) IS";B -60 PRINT "CHANGE THE CONTROL UNIT SETTINGS AND (RUN) AGAIN" -99 END diff --git a/bwbtest/HB1/PDL_2.run b/bwbtest/HB1/PDL_2.run deleted file mode 100644 index 54e5563..0000000 --- a/bwbtest/HB1/PDL_2.run +++ /dev/null @@ -1,3 +0,0 @@ -THE VALUE OF PDL(0) IS 146 -THE VALUE OF PDL(1) IS 13 -CHANGE THE CONTROL UNIT SETTINGS AND (RUN) AGAIN diff --git a/bwbtest/HB1/PEEK_1.BAS b/bwbtest/HB1/PEEK_1.BAS deleted file mode 100644 index fe3254c..0000000 --- a/bwbtest/HB1/PEEK_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'PEEK' TEST PROGRAM -20 FOR X=18368 TO 18380 -30 READ Y -40 POKE X,Y -50 NEXT X -60 FOR X=18368 TO 18380 -70 Y=PEEK(X) -80 PRINT CHR$(Y); -90 NEXT X -100 DATA 84,69,83,84,32,67,79,77,80,76,69,84,69 -999 END diff --git a/bwbtest/HB1/PEEK_1.PRO b/bwbtest/HB1/PEEK_1.PRO deleted file mode 100644 index 0b4e3c2..0000000 --- a/bwbtest/HB1/PEEK_1.PRO +++ /dev/null @@ -1,8 +0,0 @@ -DIM M%( 100 ) -65000 REM FAKE POKE() & PEEK() -65010 DEF POKE( X, Y ) -65020 M%(X - 18300) = Y -65030 FNEND -65040 DEF PEEK( X ) -65050 PEEK = M%(X - 18300) -65060 FNEND diff --git a/bwbtest/HB1/PEEK_1.run b/bwbtest/HB1/PEEK_1.run deleted file mode 100644 index 3cd4ddc..0000000 --- a/bwbtest/HB1/PEEK_1.run +++ /dev/null @@ -1 +0,0 @@ -TEST COMPLETE diff --git a/bwbtest/HB1/PIN_1.BAS b/bwbtest/HB1/PIN_1.BAS deleted file mode 100644 index 4ed9793..0000000 --- a/bwbtest/HB1/PIN_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'PIN' TEST PROGRAM -20 FOR X=0 TO 255 -30 PRINT "THE DECIMAL VALUE OF THE BYTE AT PORT #";X;"IS";PIN(X) -40 NEXT X -99 END diff --git a/bwbtest/HB1/PIN_1.PRO b/bwbtest/HB1/PIN_1.PRO deleted file mode 100644 index 78971b9..0000000 --- a/bwbtest/HB1/PIN_1.PRO +++ /dev/null @@ -1,4 +0,0 @@ -65000 REM FAKE PIN() -65010 DEF PIN( X ) -65020 PIN = 255 - (X MOD 256) -65030 FNEND diff --git a/bwbtest/HB1/PIN_1.run b/bwbtest/HB1/PIN_1.run deleted file mode 100644 index a9cbbdd..0000000 --- a/bwbtest/HB1/PIN_1.run +++ /dev/null @@ -1,256 +0,0 @@ -THE DECIMAL VALUE OF THE BYTE AT PORT # 0 IS 255 -THE DECIMAL VALUE OF THE BYTE AT PORT # 1 IS 254 -THE DECIMAL VALUE OF THE BYTE AT PORT # 2 IS 253 -THE DECIMAL VALUE OF THE BYTE AT PORT # 3 IS 252 -THE DECIMAL VALUE OF THE BYTE AT PORT # 4 IS 251 -THE DECIMAL VALUE OF THE BYTE AT PORT # 5 IS 250 -THE DECIMAL VALUE OF THE BYTE AT PORT # 6 IS 249 -THE DECIMAL VALUE OF THE BYTE AT PORT # 7 IS 248 -THE DECIMAL VALUE OF THE BYTE AT PORT # 8 IS 247 -THE DECIMAL VALUE OF THE BYTE AT PORT # 9 IS 246 -THE DECIMAL VALUE OF THE BYTE AT PORT # 10 IS 245 -THE DECIMAL VALUE OF THE BYTE AT PORT # 11 IS 244 -THE DECIMAL VALUE OF THE BYTE AT PORT # 12 IS 243 -THE DECIMAL VALUE OF THE BYTE AT PORT # 13 IS 242 -THE DECIMAL VALUE OF THE BYTE AT PORT # 14 IS 241 -THE DECIMAL VALUE OF THE BYTE AT PORT # 15 IS 240 -THE DECIMAL VALUE OF THE BYTE AT PORT # 16 IS 239 -THE DECIMAL VALUE OF THE BYTE AT PORT # 17 IS 238 -THE DECIMAL VALUE OF THE BYTE AT PORT # 18 IS 237 -THE DECIMAL VALUE OF THE BYTE AT PORT # 19 IS 236 -THE DECIMAL VALUE OF THE BYTE AT PORT # 20 IS 235 -THE DECIMAL VALUE OF THE BYTE AT PORT # 21 IS 234 -THE DECIMAL VALUE OF THE BYTE AT PORT # 22 IS 233 -THE DECIMAL VALUE OF THE BYTE AT PORT # 23 IS 232 -THE DECIMAL VALUE OF THE BYTE AT PORT # 24 IS 231 -THE DECIMAL VALUE OF THE BYTE AT PORT # 25 IS 230 -THE DECIMAL VALUE OF THE BYTE AT PORT # 26 IS 229 -THE DECIMAL VALUE OF THE BYTE AT PORT # 27 IS 228 -THE DECIMAL VALUE OF THE BYTE AT PORT # 28 IS 227 -THE DECIMAL VALUE OF THE BYTE AT PORT # 29 IS 226 -THE DECIMAL VALUE OF THE BYTE AT PORT # 30 IS 225 -THE DECIMAL VALUE OF THE BYTE AT PORT # 31 IS 224 -THE DECIMAL VALUE OF THE BYTE AT PORT # 32 IS 223 -THE DECIMAL VALUE OF THE BYTE AT PORT # 33 IS 222 -THE DECIMAL VALUE OF THE BYTE AT PORT # 34 IS 221 -THE DECIMAL VALUE OF THE BYTE AT PORT # 35 IS 220 -THE DECIMAL VALUE OF THE BYTE AT PORT # 36 IS 219 -THE DECIMAL VALUE OF THE BYTE AT PORT # 37 IS 218 -THE DECIMAL VALUE OF THE BYTE AT PORT # 38 IS 217 -THE DECIMAL VALUE OF THE BYTE AT PORT # 39 IS 216 -THE DECIMAL VALUE OF THE BYTE AT PORT # 40 IS 215 -THE DECIMAL VALUE OF THE BYTE AT PORT # 41 IS 214 -THE DECIMAL VALUE OF THE BYTE AT PORT # 42 IS 213 -THE DECIMAL VALUE OF THE BYTE AT PORT # 43 IS 212 -THE DECIMAL VALUE OF THE BYTE AT PORT # 44 IS 211 -THE DECIMAL VALUE OF THE BYTE AT PORT # 45 IS 210 -THE DECIMAL VALUE OF THE BYTE AT PORT # 46 IS 209 -THE DECIMAL VALUE OF THE BYTE AT PORT # 47 IS 208 -THE DECIMAL VALUE OF THE BYTE AT PORT # 48 IS 207 -THE DECIMAL VALUE OF THE BYTE AT PORT # 49 IS 206 -THE DECIMAL VALUE OF THE BYTE AT PORT # 50 IS 205 -THE DECIMAL VALUE OF THE BYTE AT PORT # 51 IS 204 -THE DECIMAL VALUE OF THE BYTE AT PORT # 52 IS 203 -THE DECIMAL VALUE OF THE BYTE AT PORT # 53 IS 202 -THE DECIMAL VALUE OF THE BYTE AT PORT # 54 IS 201 -THE DECIMAL VALUE OF THE BYTE AT PORT # 55 IS 200 -THE DECIMAL VALUE OF THE BYTE AT PORT # 56 IS 199 -THE DECIMAL VALUE OF THE BYTE AT PORT # 57 IS 198 -THE DECIMAL VALUE OF THE BYTE AT PORT # 58 IS 197 -THE DECIMAL VALUE OF THE BYTE AT PORT # 59 IS 196 -THE DECIMAL VALUE OF THE BYTE AT PORT # 60 IS 195 -THE DECIMAL VALUE OF THE BYTE AT PORT # 61 IS 194 -THE DECIMAL VALUE OF THE BYTE AT PORT # 62 IS 193 -THE DECIMAL VALUE OF THE BYTE AT PORT # 63 IS 192 -THE DECIMAL VALUE OF THE BYTE AT PORT # 64 IS 191 -THE DECIMAL VALUE OF THE BYTE AT PORT # 65 IS 190 -THE DECIMAL VALUE OF THE BYTE AT PORT # 66 IS 189 -THE DECIMAL VALUE OF THE BYTE AT PORT # 67 IS 188 -THE DECIMAL VALUE OF THE BYTE AT PORT # 68 IS 187 -THE DECIMAL VALUE OF THE BYTE AT PORT # 69 IS 186 -THE DECIMAL VALUE OF THE BYTE AT PORT # 70 IS 185 -THE DECIMAL VALUE OF THE BYTE AT PORT # 71 IS 184 -THE DECIMAL VALUE OF THE BYTE AT PORT # 72 IS 183 -THE DECIMAL VALUE OF THE BYTE AT PORT # 73 IS 182 -THE DECIMAL VALUE OF THE BYTE AT PORT # 74 IS 181 -THE DECIMAL VALUE OF THE BYTE AT PORT # 75 IS 180 -THE DECIMAL VALUE OF THE BYTE AT PORT # 76 IS 179 -THE DECIMAL VALUE OF THE BYTE AT PORT # 77 IS 178 -THE DECIMAL VALUE OF THE BYTE AT PORT # 78 IS 177 -THE DECIMAL VALUE OF THE BYTE AT PORT # 79 IS 176 -THE DECIMAL VALUE OF THE BYTE AT PORT # 80 IS 175 -THE DECIMAL VALUE OF THE BYTE AT PORT # 81 IS 174 -THE DECIMAL VALUE OF THE BYTE AT PORT # 82 IS 173 -THE DECIMAL VALUE OF THE BYTE AT PORT # 83 IS 172 -THE DECIMAL VALUE OF THE BYTE AT PORT # 84 IS 171 -THE DECIMAL VALUE OF THE BYTE AT PORT # 85 IS 170 -THE DECIMAL VALUE OF THE BYTE AT PORT # 86 IS 169 -THE DECIMAL VALUE OF THE BYTE AT PORT # 87 IS 168 -THE DECIMAL VALUE OF THE BYTE AT PORT # 88 IS 167 -THE DECIMAL VALUE OF THE BYTE AT PORT # 89 IS 166 -THE DECIMAL VALUE OF THE BYTE AT PORT # 90 IS 165 -THE DECIMAL VALUE OF THE BYTE AT PORT # 91 IS 164 -THE DECIMAL VALUE OF THE BYTE AT PORT # 92 IS 163 -THE DECIMAL VALUE OF THE BYTE AT PORT # 93 IS 162 -THE DECIMAL VALUE OF THE BYTE AT PORT # 94 IS 161 -THE DECIMAL VALUE OF THE BYTE AT PORT # 95 IS 160 -THE DECIMAL VALUE OF THE BYTE AT PORT # 96 IS 159 -THE DECIMAL VALUE OF THE BYTE AT PORT # 97 IS 158 -THE DECIMAL VALUE OF THE BYTE AT PORT # 98 IS 157 -THE DECIMAL VALUE OF THE BYTE AT PORT # 99 IS 156 -THE DECIMAL VALUE OF THE BYTE AT PORT # 100 IS 155 -THE DECIMAL VALUE OF THE BYTE AT PORT # 101 IS 154 -THE DECIMAL VALUE OF THE BYTE AT PORT # 102 IS 153 -THE DECIMAL VALUE OF THE BYTE AT PORT # 103 IS 152 -THE DECIMAL VALUE OF THE BYTE AT PORT # 104 IS 151 -THE DECIMAL VALUE OF THE BYTE AT PORT # 105 IS 150 -THE DECIMAL VALUE OF THE BYTE AT PORT # 106 IS 149 -THE DECIMAL VALUE OF THE BYTE AT PORT # 107 IS 148 -THE DECIMAL VALUE OF THE BYTE AT PORT # 108 IS 147 -THE DECIMAL VALUE OF THE BYTE AT PORT # 109 IS 146 -THE DECIMAL VALUE OF THE BYTE AT PORT # 110 IS 145 -THE DECIMAL VALUE OF THE BYTE AT PORT # 111 IS 144 -THE DECIMAL VALUE OF THE BYTE AT PORT # 112 IS 143 -THE DECIMAL VALUE OF THE BYTE AT PORT # 113 IS 142 -THE DECIMAL VALUE OF THE BYTE AT PORT # 114 IS 141 -THE DECIMAL VALUE OF THE BYTE AT PORT # 115 IS 140 -THE DECIMAL VALUE OF THE BYTE AT PORT # 116 IS 139 -THE DECIMAL VALUE OF THE BYTE AT PORT # 117 IS 138 -THE DECIMAL VALUE OF THE BYTE AT PORT # 118 IS 137 -THE DECIMAL VALUE OF THE BYTE AT PORT # 119 IS 136 -THE DECIMAL VALUE OF THE BYTE AT PORT # 120 IS 135 -THE DECIMAL VALUE OF THE BYTE AT PORT # 121 IS 134 -THE DECIMAL VALUE OF THE BYTE AT PORT # 122 IS 133 -THE DECIMAL VALUE OF THE BYTE AT PORT # 123 IS 132 -THE DECIMAL VALUE OF THE BYTE AT PORT # 124 IS 131 -THE DECIMAL VALUE OF THE BYTE AT PORT # 125 IS 130 -THE DECIMAL VALUE OF THE BYTE AT PORT # 126 IS 129 -THE DECIMAL VALUE OF THE BYTE AT PORT # 127 IS 128 -THE DECIMAL VALUE OF THE BYTE AT PORT # 128 IS 127 -THE DECIMAL VALUE OF THE BYTE AT PORT # 129 IS 126 -THE DECIMAL VALUE OF THE BYTE AT PORT # 130 IS 125 -THE DECIMAL VALUE OF THE BYTE AT PORT # 131 IS 124 -THE DECIMAL VALUE OF THE BYTE AT PORT # 132 IS 123 -THE DECIMAL VALUE OF THE BYTE AT PORT # 133 IS 122 -THE DECIMAL VALUE OF THE BYTE AT PORT # 134 IS 121 -THE DECIMAL VALUE OF THE BYTE AT PORT # 135 IS 120 -THE DECIMAL VALUE OF THE BYTE AT PORT # 136 IS 119 -THE DECIMAL VALUE OF THE BYTE AT PORT # 137 IS 118 -THE DECIMAL VALUE OF THE BYTE AT PORT # 138 IS 117 -THE DECIMAL VALUE OF THE BYTE AT PORT # 139 IS 116 -THE DECIMAL VALUE OF THE BYTE AT PORT # 140 IS 115 -THE DECIMAL VALUE OF THE BYTE AT PORT # 141 IS 114 -THE DECIMAL VALUE OF THE BYTE AT PORT # 142 IS 113 -THE DECIMAL VALUE OF THE BYTE AT PORT # 143 IS 112 -THE DECIMAL VALUE OF THE BYTE AT PORT # 144 IS 111 -THE DECIMAL VALUE OF THE BYTE AT PORT # 145 IS 110 -THE DECIMAL VALUE OF THE BYTE AT PORT # 146 IS 109 -THE DECIMAL VALUE OF THE BYTE AT PORT # 147 IS 108 -THE DECIMAL VALUE OF THE BYTE AT PORT # 148 IS 107 -THE DECIMAL VALUE OF THE BYTE AT PORT # 149 IS 106 -THE DECIMAL VALUE OF THE BYTE AT PORT # 150 IS 105 -THE DECIMAL VALUE OF THE BYTE AT PORT # 151 IS 104 -THE DECIMAL VALUE OF THE BYTE AT PORT # 152 IS 103 -THE DECIMAL VALUE OF THE BYTE AT PORT # 153 IS 102 -THE DECIMAL VALUE OF THE BYTE AT PORT # 154 IS 101 -THE DECIMAL VALUE OF THE BYTE AT PORT # 155 IS 100 -THE DECIMAL VALUE OF THE BYTE AT PORT # 156 IS 99 -THE DECIMAL VALUE OF THE BYTE AT PORT # 157 IS 98 -THE DECIMAL VALUE OF THE BYTE AT PORT # 158 IS 97 -THE DECIMAL VALUE OF THE BYTE AT PORT # 159 IS 96 -THE DECIMAL VALUE OF THE BYTE AT PORT # 160 IS 95 -THE DECIMAL VALUE OF THE BYTE AT PORT # 161 IS 94 -THE DECIMAL VALUE OF THE BYTE AT PORT # 162 IS 93 -THE DECIMAL VALUE OF THE BYTE AT PORT # 163 IS 92 -THE DECIMAL VALUE OF THE BYTE AT PORT # 164 IS 91 -THE DECIMAL VALUE OF THE BYTE AT PORT # 165 IS 90 -THE DECIMAL VALUE OF THE BYTE AT PORT # 166 IS 89 -THE DECIMAL VALUE OF THE BYTE AT PORT # 167 IS 88 -THE DECIMAL VALUE OF THE BYTE AT PORT # 168 IS 87 -THE DECIMAL VALUE OF THE BYTE AT PORT # 169 IS 86 -THE DECIMAL VALUE OF THE BYTE AT PORT # 170 IS 85 -THE DECIMAL VALUE OF THE BYTE AT PORT # 171 IS 84 -THE DECIMAL VALUE OF THE BYTE AT PORT # 172 IS 83 -THE DECIMAL VALUE OF THE BYTE AT PORT # 173 IS 82 -THE DECIMAL VALUE OF THE BYTE AT PORT # 174 IS 81 -THE DECIMAL VALUE OF THE BYTE AT PORT # 175 IS 80 -THE DECIMAL VALUE OF THE BYTE AT PORT # 176 IS 79 -THE DECIMAL VALUE OF THE BYTE AT PORT # 177 IS 78 -THE DECIMAL VALUE OF THE BYTE AT PORT # 178 IS 77 -THE DECIMAL VALUE OF THE BYTE AT PORT # 179 IS 76 -THE DECIMAL VALUE OF THE BYTE AT PORT # 180 IS 75 -THE DECIMAL VALUE OF THE BYTE AT PORT # 181 IS 74 -THE DECIMAL VALUE OF THE BYTE AT PORT # 182 IS 73 -THE DECIMAL VALUE OF THE BYTE AT PORT # 183 IS 72 -THE DECIMAL VALUE OF THE BYTE AT PORT # 184 IS 71 -THE DECIMAL VALUE OF THE BYTE AT PORT # 185 IS 70 -THE DECIMAL VALUE OF THE BYTE AT PORT # 186 IS 69 -THE DECIMAL VALUE OF THE BYTE AT PORT # 187 IS 68 -THE DECIMAL VALUE OF THE BYTE AT PORT # 188 IS 67 -THE DECIMAL VALUE OF THE BYTE AT PORT # 189 IS 66 -THE DECIMAL VALUE OF THE BYTE AT PORT # 190 IS 65 -THE DECIMAL VALUE OF THE BYTE AT PORT # 191 IS 64 -THE DECIMAL VALUE OF THE BYTE AT PORT # 192 IS 63 -THE DECIMAL VALUE OF THE BYTE AT PORT # 193 IS 62 -THE DECIMAL VALUE OF THE BYTE AT PORT # 194 IS 61 -THE DECIMAL VALUE OF THE BYTE AT PORT # 195 IS 60 -THE DECIMAL VALUE OF THE BYTE AT PORT # 196 IS 59 -THE DECIMAL VALUE OF THE BYTE AT PORT # 197 IS 58 -THE DECIMAL VALUE OF THE BYTE AT PORT # 198 IS 57 -THE DECIMAL VALUE OF THE BYTE AT PORT # 199 IS 56 -THE DECIMAL VALUE OF THE BYTE AT PORT # 200 IS 55 -THE DECIMAL VALUE OF THE BYTE AT PORT # 201 IS 54 -THE DECIMAL VALUE OF THE BYTE AT PORT # 202 IS 53 -THE DECIMAL VALUE OF THE BYTE AT PORT # 203 IS 52 -THE DECIMAL VALUE OF THE BYTE AT PORT # 204 IS 51 -THE DECIMAL VALUE OF THE BYTE AT PORT # 205 IS 50 -THE DECIMAL VALUE OF THE BYTE AT PORT # 206 IS 49 -THE DECIMAL VALUE OF THE BYTE AT PORT # 207 IS 48 -THE DECIMAL VALUE OF THE BYTE AT PORT # 208 IS 47 -THE DECIMAL VALUE OF THE BYTE AT PORT # 209 IS 46 -THE DECIMAL VALUE OF THE BYTE AT PORT # 210 IS 45 -THE DECIMAL VALUE OF THE BYTE AT PORT # 211 IS 44 -THE DECIMAL VALUE OF THE BYTE AT PORT # 212 IS 43 -THE DECIMAL VALUE OF THE BYTE AT PORT # 213 IS 42 -THE DECIMAL VALUE OF THE BYTE AT PORT # 214 IS 41 -THE DECIMAL VALUE OF THE BYTE AT PORT # 215 IS 40 -THE DECIMAL VALUE OF THE BYTE AT PORT # 216 IS 39 -THE DECIMAL VALUE OF THE BYTE AT PORT # 217 IS 38 -THE DECIMAL VALUE OF THE BYTE AT PORT # 218 IS 37 -THE DECIMAL VALUE OF THE BYTE AT PORT # 219 IS 36 -THE DECIMAL VALUE OF THE BYTE AT PORT # 220 IS 35 -THE DECIMAL VALUE OF THE BYTE AT PORT # 221 IS 34 -THE DECIMAL VALUE OF THE BYTE AT PORT # 222 IS 33 -THE DECIMAL VALUE OF THE BYTE AT PORT # 223 IS 32 -THE DECIMAL VALUE OF THE BYTE AT PORT # 224 IS 31 -THE DECIMAL VALUE OF THE BYTE AT PORT # 225 IS 30 -THE DECIMAL VALUE OF THE BYTE AT PORT # 226 IS 29 -THE DECIMAL VALUE OF THE BYTE AT PORT # 227 IS 28 -THE DECIMAL VALUE OF THE BYTE AT PORT # 228 IS 27 -THE DECIMAL VALUE OF THE BYTE AT PORT # 229 IS 26 -THE DECIMAL VALUE OF THE BYTE AT PORT # 230 IS 25 -THE DECIMAL VALUE OF THE BYTE AT PORT # 231 IS 24 -THE DECIMAL VALUE OF THE BYTE AT PORT # 232 IS 23 -THE DECIMAL VALUE OF THE BYTE AT PORT # 233 IS 22 -THE DECIMAL VALUE OF THE BYTE AT PORT # 234 IS 21 -THE DECIMAL VALUE OF THE BYTE AT PORT # 235 IS 20 -THE DECIMAL VALUE OF THE BYTE AT PORT # 236 IS 19 -THE DECIMAL VALUE OF THE BYTE AT PORT # 237 IS 18 -THE DECIMAL VALUE OF THE BYTE AT PORT # 238 IS 17 -THE DECIMAL VALUE OF THE BYTE AT PORT # 239 IS 16 -THE DECIMAL VALUE OF THE BYTE AT PORT # 240 IS 15 -THE DECIMAL VALUE OF THE BYTE AT PORT # 241 IS 14 -THE DECIMAL VALUE OF THE BYTE AT PORT # 242 IS 13 -THE DECIMAL VALUE OF THE BYTE AT PORT # 243 IS 12 -THE DECIMAL VALUE OF THE BYTE AT PORT # 244 IS 11 -THE DECIMAL VALUE OF THE BYTE AT PORT # 245 IS 10 -THE DECIMAL VALUE OF THE BYTE AT PORT # 246 IS 9 -THE DECIMAL VALUE OF THE BYTE AT PORT # 247 IS 8 -THE DECIMAL VALUE OF THE BYTE AT PORT # 248 IS 7 -THE DECIMAL VALUE OF THE BYTE AT PORT # 249 IS 6 -THE DECIMAL VALUE OF THE BYTE AT PORT # 250 IS 5 -THE DECIMAL VALUE OF THE BYTE AT PORT # 251 IS 4 -THE DECIMAL VALUE OF THE BYTE AT PORT # 252 IS 3 -THE DECIMAL VALUE OF THE BYTE AT PORT # 253 IS 2 -THE DECIMAL VALUE OF THE BYTE AT PORT # 254 IS 1 -THE DECIMAL VALUE OF THE BYTE AT PORT # 255 IS 0 diff --git a/bwbtest/HB1/PIN_2.BAS b/bwbtest/HB1/PIN_2.BAS deleted file mode 100644 index 63ac36f..0000000 --- a/bwbtest/HB1/PIN_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'PIN' TEST PROGRAM -15 DEF PIN( X ) = 255 - ( X MOD 256 ) -20 FOR X=0 TO 255 -30 PRINT "THE DECIMAL VALUE OF THE BYTE AT PORT #";X;"IS";PIN(X) -40 NEXT X -99 END diff --git a/bwbtest/HB1/PIN_2.run b/bwbtest/HB1/PIN_2.run deleted file mode 100644 index a9cbbdd..0000000 --- a/bwbtest/HB1/PIN_2.run +++ /dev/null @@ -1,256 +0,0 @@ -THE DECIMAL VALUE OF THE BYTE AT PORT # 0 IS 255 -THE DECIMAL VALUE OF THE BYTE AT PORT # 1 IS 254 -THE DECIMAL VALUE OF THE BYTE AT PORT # 2 IS 253 -THE DECIMAL VALUE OF THE BYTE AT PORT # 3 IS 252 -THE DECIMAL VALUE OF THE BYTE AT PORT # 4 IS 251 -THE DECIMAL VALUE OF THE BYTE AT PORT # 5 IS 250 -THE DECIMAL VALUE OF THE BYTE AT PORT # 6 IS 249 -THE DECIMAL VALUE OF THE BYTE AT PORT # 7 IS 248 -THE DECIMAL VALUE OF THE BYTE AT PORT # 8 IS 247 -THE DECIMAL VALUE OF THE BYTE AT PORT # 9 IS 246 -THE DECIMAL VALUE OF THE BYTE AT PORT # 10 IS 245 -THE DECIMAL VALUE OF THE BYTE AT PORT # 11 IS 244 -THE DECIMAL VALUE OF THE BYTE AT PORT # 12 IS 243 -THE DECIMAL VALUE OF THE BYTE AT PORT # 13 IS 242 -THE DECIMAL VALUE OF THE BYTE AT PORT # 14 IS 241 -THE DECIMAL VALUE OF THE BYTE AT PORT # 15 IS 240 -THE DECIMAL VALUE OF THE BYTE AT PORT # 16 IS 239 -THE DECIMAL VALUE OF THE BYTE AT PORT # 17 IS 238 -THE DECIMAL VALUE OF THE BYTE AT PORT # 18 IS 237 -THE DECIMAL VALUE OF THE BYTE AT PORT # 19 IS 236 -THE DECIMAL VALUE OF THE BYTE AT PORT # 20 IS 235 -THE DECIMAL VALUE OF THE BYTE AT PORT # 21 IS 234 -THE DECIMAL VALUE OF THE BYTE AT PORT # 22 IS 233 -THE DECIMAL VALUE OF THE BYTE AT PORT # 23 IS 232 -THE DECIMAL VALUE OF THE BYTE AT PORT # 24 IS 231 -THE DECIMAL VALUE OF THE BYTE AT PORT # 25 IS 230 -THE DECIMAL VALUE OF THE BYTE AT PORT # 26 IS 229 -THE DECIMAL VALUE OF THE BYTE AT PORT # 27 IS 228 -THE DECIMAL VALUE OF THE BYTE AT PORT # 28 IS 227 -THE DECIMAL VALUE OF THE BYTE AT PORT # 29 IS 226 -THE DECIMAL VALUE OF THE BYTE AT PORT # 30 IS 225 -THE DECIMAL VALUE OF THE BYTE AT PORT # 31 IS 224 -THE DECIMAL VALUE OF THE BYTE AT PORT # 32 IS 223 -THE DECIMAL VALUE OF THE BYTE AT PORT # 33 IS 222 -THE DECIMAL VALUE OF THE BYTE AT PORT # 34 IS 221 -THE DECIMAL VALUE OF THE BYTE AT PORT # 35 IS 220 -THE DECIMAL VALUE OF THE BYTE AT PORT # 36 IS 219 -THE DECIMAL VALUE OF THE BYTE AT PORT # 37 IS 218 -THE DECIMAL VALUE OF THE BYTE AT PORT # 38 IS 217 -THE DECIMAL VALUE OF THE BYTE AT PORT # 39 IS 216 -THE DECIMAL VALUE OF THE BYTE AT PORT # 40 IS 215 -THE DECIMAL VALUE OF THE BYTE AT PORT # 41 IS 214 -THE DECIMAL VALUE OF THE BYTE AT PORT # 42 IS 213 -THE DECIMAL VALUE OF THE BYTE AT PORT # 43 IS 212 -THE DECIMAL VALUE OF THE BYTE AT PORT # 44 IS 211 -THE DECIMAL VALUE OF THE BYTE AT PORT # 45 IS 210 -THE DECIMAL VALUE OF THE BYTE AT PORT # 46 IS 209 -THE DECIMAL VALUE OF THE BYTE AT PORT # 47 IS 208 -THE DECIMAL VALUE OF THE BYTE AT PORT # 48 IS 207 -THE DECIMAL VALUE OF THE BYTE AT PORT # 49 IS 206 -THE DECIMAL VALUE OF THE BYTE AT PORT # 50 IS 205 -THE DECIMAL VALUE OF THE BYTE AT PORT # 51 IS 204 -THE DECIMAL VALUE OF THE BYTE AT PORT # 52 IS 203 -THE DECIMAL VALUE OF THE BYTE AT PORT # 53 IS 202 -THE DECIMAL VALUE OF THE BYTE AT PORT # 54 IS 201 -THE DECIMAL VALUE OF THE BYTE AT PORT # 55 IS 200 -THE DECIMAL VALUE OF THE BYTE AT PORT # 56 IS 199 -THE DECIMAL VALUE OF THE BYTE AT PORT # 57 IS 198 -THE DECIMAL VALUE OF THE BYTE AT PORT # 58 IS 197 -THE DECIMAL VALUE OF THE BYTE AT PORT # 59 IS 196 -THE DECIMAL VALUE OF THE BYTE AT PORT # 60 IS 195 -THE DECIMAL VALUE OF THE BYTE AT PORT # 61 IS 194 -THE DECIMAL VALUE OF THE BYTE AT PORT # 62 IS 193 -THE DECIMAL VALUE OF THE BYTE AT PORT # 63 IS 192 -THE DECIMAL VALUE OF THE BYTE AT PORT # 64 IS 191 -THE DECIMAL VALUE OF THE BYTE AT PORT # 65 IS 190 -THE DECIMAL VALUE OF THE BYTE AT PORT # 66 IS 189 -THE DECIMAL VALUE OF THE BYTE AT PORT # 67 IS 188 -THE DECIMAL VALUE OF THE BYTE AT PORT # 68 IS 187 -THE DECIMAL VALUE OF THE BYTE AT PORT # 69 IS 186 -THE DECIMAL VALUE OF THE BYTE AT PORT # 70 IS 185 -THE DECIMAL VALUE OF THE BYTE AT PORT # 71 IS 184 -THE DECIMAL VALUE OF THE BYTE AT PORT # 72 IS 183 -THE DECIMAL VALUE OF THE BYTE AT PORT # 73 IS 182 -THE DECIMAL VALUE OF THE BYTE AT PORT # 74 IS 181 -THE DECIMAL VALUE OF THE BYTE AT PORT # 75 IS 180 -THE DECIMAL VALUE OF THE BYTE AT PORT # 76 IS 179 -THE DECIMAL VALUE OF THE BYTE AT PORT # 77 IS 178 -THE DECIMAL VALUE OF THE BYTE AT PORT # 78 IS 177 -THE DECIMAL VALUE OF THE BYTE AT PORT # 79 IS 176 -THE DECIMAL VALUE OF THE BYTE AT PORT # 80 IS 175 -THE DECIMAL VALUE OF THE BYTE AT PORT # 81 IS 174 -THE DECIMAL VALUE OF THE BYTE AT PORT # 82 IS 173 -THE DECIMAL VALUE OF THE BYTE AT PORT # 83 IS 172 -THE DECIMAL VALUE OF THE BYTE AT PORT # 84 IS 171 -THE DECIMAL VALUE OF THE BYTE AT PORT # 85 IS 170 -THE DECIMAL VALUE OF THE BYTE AT PORT # 86 IS 169 -THE DECIMAL VALUE OF THE BYTE AT PORT # 87 IS 168 -THE DECIMAL VALUE OF THE BYTE AT PORT # 88 IS 167 -THE DECIMAL VALUE OF THE BYTE AT PORT # 89 IS 166 -THE DECIMAL VALUE OF THE BYTE AT PORT # 90 IS 165 -THE DECIMAL VALUE OF THE BYTE AT PORT # 91 IS 164 -THE DECIMAL VALUE OF THE BYTE AT PORT # 92 IS 163 -THE DECIMAL VALUE OF THE BYTE AT PORT # 93 IS 162 -THE DECIMAL VALUE OF THE BYTE AT PORT # 94 IS 161 -THE DECIMAL VALUE OF THE BYTE AT PORT # 95 IS 160 -THE DECIMAL VALUE OF THE BYTE AT PORT # 96 IS 159 -THE DECIMAL VALUE OF THE BYTE AT PORT # 97 IS 158 -THE DECIMAL VALUE OF THE BYTE AT PORT # 98 IS 157 -THE DECIMAL VALUE OF THE BYTE AT PORT # 99 IS 156 -THE DECIMAL VALUE OF THE BYTE AT PORT # 100 IS 155 -THE DECIMAL VALUE OF THE BYTE AT PORT # 101 IS 154 -THE DECIMAL VALUE OF THE BYTE AT PORT # 102 IS 153 -THE DECIMAL VALUE OF THE BYTE AT PORT # 103 IS 152 -THE DECIMAL VALUE OF THE BYTE AT PORT # 104 IS 151 -THE DECIMAL VALUE OF THE BYTE AT PORT # 105 IS 150 -THE DECIMAL VALUE OF THE BYTE AT PORT # 106 IS 149 -THE DECIMAL VALUE OF THE BYTE AT PORT # 107 IS 148 -THE DECIMAL VALUE OF THE BYTE AT PORT # 108 IS 147 -THE DECIMAL VALUE OF THE BYTE AT PORT # 109 IS 146 -THE DECIMAL VALUE OF THE BYTE AT PORT # 110 IS 145 -THE DECIMAL VALUE OF THE BYTE AT PORT # 111 IS 144 -THE DECIMAL VALUE OF THE BYTE AT PORT # 112 IS 143 -THE DECIMAL VALUE OF THE BYTE AT PORT # 113 IS 142 -THE DECIMAL VALUE OF THE BYTE AT PORT # 114 IS 141 -THE DECIMAL VALUE OF THE BYTE AT PORT # 115 IS 140 -THE DECIMAL VALUE OF THE BYTE AT PORT # 116 IS 139 -THE DECIMAL VALUE OF THE BYTE AT PORT # 117 IS 138 -THE DECIMAL VALUE OF THE BYTE AT PORT # 118 IS 137 -THE DECIMAL VALUE OF THE BYTE AT PORT # 119 IS 136 -THE DECIMAL VALUE OF THE BYTE AT PORT # 120 IS 135 -THE DECIMAL VALUE OF THE BYTE AT PORT # 121 IS 134 -THE DECIMAL VALUE OF THE BYTE AT PORT # 122 IS 133 -THE DECIMAL VALUE OF THE BYTE AT PORT # 123 IS 132 -THE DECIMAL VALUE OF THE BYTE AT PORT # 124 IS 131 -THE DECIMAL VALUE OF THE BYTE AT PORT # 125 IS 130 -THE DECIMAL VALUE OF THE BYTE AT PORT # 126 IS 129 -THE DECIMAL VALUE OF THE BYTE AT PORT # 127 IS 128 -THE DECIMAL VALUE OF THE BYTE AT PORT # 128 IS 127 -THE DECIMAL VALUE OF THE BYTE AT PORT # 129 IS 126 -THE DECIMAL VALUE OF THE BYTE AT PORT # 130 IS 125 -THE DECIMAL VALUE OF THE BYTE AT PORT # 131 IS 124 -THE DECIMAL VALUE OF THE BYTE AT PORT # 132 IS 123 -THE DECIMAL VALUE OF THE BYTE AT PORT # 133 IS 122 -THE DECIMAL VALUE OF THE BYTE AT PORT # 134 IS 121 -THE DECIMAL VALUE OF THE BYTE AT PORT # 135 IS 120 -THE DECIMAL VALUE OF THE BYTE AT PORT # 136 IS 119 -THE DECIMAL VALUE OF THE BYTE AT PORT # 137 IS 118 -THE DECIMAL VALUE OF THE BYTE AT PORT # 138 IS 117 -THE DECIMAL VALUE OF THE BYTE AT PORT # 139 IS 116 -THE DECIMAL VALUE OF THE BYTE AT PORT # 140 IS 115 -THE DECIMAL VALUE OF THE BYTE AT PORT # 141 IS 114 -THE DECIMAL VALUE OF THE BYTE AT PORT # 142 IS 113 -THE DECIMAL VALUE OF THE BYTE AT PORT # 143 IS 112 -THE DECIMAL VALUE OF THE BYTE AT PORT # 144 IS 111 -THE DECIMAL VALUE OF THE BYTE AT PORT # 145 IS 110 -THE DECIMAL VALUE OF THE BYTE AT PORT # 146 IS 109 -THE DECIMAL VALUE OF THE BYTE AT PORT # 147 IS 108 -THE DECIMAL VALUE OF THE BYTE AT PORT # 148 IS 107 -THE DECIMAL VALUE OF THE BYTE AT PORT # 149 IS 106 -THE DECIMAL VALUE OF THE BYTE AT PORT # 150 IS 105 -THE DECIMAL VALUE OF THE BYTE AT PORT # 151 IS 104 -THE DECIMAL VALUE OF THE BYTE AT PORT # 152 IS 103 -THE DECIMAL VALUE OF THE BYTE AT PORT # 153 IS 102 -THE DECIMAL VALUE OF THE BYTE AT PORT # 154 IS 101 -THE DECIMAL VALUE OF THE BYTE AT PORT # 155 IS 100 -THE DECIMAL VALUE OF THE BYTE AT PORT # 156 IS 99 -THE DECIMAL VALUE OF THE BYTE AT PORT # 157 IS 98 -THE DECIMAL VALUE OF THE BYTE AT PORT # 158 IS 97 -THE DECIMAL VALUE OF THE BYTE AT PORT # 159 IS 96 -THE DECIMAL VALUE OF THE BYTE AT PORT # 160 IS 95 -THE DECIMAL VALUE OF THE BYTE AT PORT # 161 IS 94 -THE DECIMAL VALUE OF THE BYTE AT PORT # 162 IS 93 -THE DECIMAL VALUE OF THE BYTE AT PORT # 163 IS 92 -THE DECIMAL VALUE OF THE BYTE AT PORT # 164 IS 91 -THE DECIMAL VALUE OF THE BYTE AT PORT # 165 IS 90 -THE DECIMAL VALUE OF THE BYTE AT PORT # 166 IS 89 -THE DECIMAL VALUE OF THE BYTE AT PORT # 167 IS 88 -THE DECIMAL VALUE OF THE BYTE AT PORT # 168 IS 87 -THE DECIMAL VALUE OF THE BYTE AT PORT # 169 IS 86 -THE DECIMAL VALUE OF THE BYTE AT PORT # 170 IS 85 -THE DECIMAL VALUE OF THE BYTE AT PORT # 171 IS 84 -THE DECIMAL VALUE OF THE BYTE AT PORT # 172 IS 83 -THE DECIMAL VALUE OF THE BYTE AT PORT # 173 IS 82 -THE DECIMAL VALUE OF THE BYTE AT PORT # 174 IS 81 -THE DECIMAL VALUE OF THE BYTE AT PORT # 175 IS 80 -THE DECIMAL VALUE OF THE BYTE AT PORT # 176 IS 79 -THE DECIMAL VALUE OF THE BYTE AT PORT # 177 IS 78 -THE DECIMAL VALUE OF THE BYTE AT PORT # 178 IS 77 -THE DECIMAL VALUE OF THE BYTE AT PORT # 179 IS 76 -THE DECIMAL VALUE OF THE BYTE AT PORT # 180 IS 75 -THE DECIMAL VALUE OF THE BYTE AT PORT # 181 IS 74 -THE DECIMAL VALUE OF THE BYTE AT PORT # 182 IS 73 -THE DECIMAL VALUE OF THE BYTE AT PORT # 183 IS 72 -THE DECIMAL VALUE OF THE BYTE AT PORT # 184 IS 71 -THE DECIMAL VALUE OF THE BYTE AT PORT # 185 IS 70 -THE DECIMAL VALUE OF THE BYTE AT PORT # 186 IS 69 -THE DECIMAL VALUE OF THE BYTE AT PORT # 187 IS 68 -THE DECIMAL VALUE OF THE BYTE AT PORT # 188 IS 67 -THE DECIMAL VALUE OF THE BYTE AT PORT # 189 IS 66 -THE DECIMAL VALUE OF THE BYTE AT PORT # 190 IS 65 -THE DECIMAL VALUE OF THE BYTE AT PORT # 191 IS 64 -THE DECIMAL VALUE OF THE BYTE AT PORT # 192 IS 63 -THE DECIMAL VALUE OF THE BYTE AT PORT # 193 IS 62 -THE DECIMAL VALUE OF THE BYTE AT PORT # 194 IS 61 -THE DECIMAL VALUE OF THE BYTE AT PORT # 195 IS 60 -THE DECIMAL VALUE OF THE BYTE AT PORT # 196 IS 59 -THE DECIMAL VALUE OF THE BYTE AT PORT # 197 IS 58 -THE DECIMAL VALUE OF THE BYTE AT PORT # 198 IS 57 -THE DECIMAL VALUE OF THE BYTE AT PORT # 199 IS 56 -THE DECIMAL VALUE OF THE BYTE AT PORT # 200 IS 55 -THE DECIMAL VALUE OF THE BYTE AT PORT # 201 IS 54 -THE DECIMAL VALUE OF THE BYTE AT PORT # 202 IS 53 -THE DECIMAL VALUE OF THE BYTE AT PORT # 203 IS 52 -THE DECIMAL VALUE OF THE BYTE AT PORT # 204 IS 51 -THE DECIMAL VALUE OF THE BYTE AT PORT # 205 IS 50 -THE DECIMAL VALUE OF THE BYTE AT PORT # 206 IS 49 -THE DECIMAL VALUE OF THE BYTE AT PORT # 207 IS 48 -THE DECIMAL VALUE OF THE BYTE AT PORT # 208 IS 47 -THE DECIMAL VALUE OF THE BYTE AT PORT # 209 IS 46 -THE DECIMAL VALUE OF THE BYTE AT PORT # 210 IS 45 -THE DECIMAL VALUE OF THE BYTE AT PORT # 211 IS 44 -THE DECIMAL VALUE OF THE BYTE AT PORT # 212 IS 43 -THE DECIMAL VALUE OF THE BYTE AT PORT # 213 IS 42 -THE DECIMAL VALUE OF THE BYTE AT PORT # 214 IS 41 -THE DECIMAL VALUE OF THE BYTE AT PORT # 215 IS 40 -THE DECIMAL VALUE OF THE BYTE AT PORT # 216 IS 39 -THE DECIMAL VALUE OF THE BYTE AT PORT # 217 IS 38 -THE DECIMAL VALUE OF THE BYTE AT PORT # 218 IS 37 -THE DECIMAL VALUE OF THE BYTE AT PORT # 219 IS 36 -THE DECIMAL VALUE OF THE BYTE AT PORT # 220 IS 35 -THE DECIMAL VALUE OF THE BYTE AT PORT # 221 IS 34 -THE DECIMAL VALUE OF THE BYTE AT PORT # 222 IS 33 -THE DECIMAL VALUE OF THE BYTE AT PORT # 223 IS 32 -THE DECIMAL VALUE OF THE BYTE AT PORT # 224 IS 31 -THE DECIMAL VALUE OF THE BYTE AT PORT # 225 IS 30 -THE DECIMAL VALUE OF THE BYTE AT PORT # 226 IS 29 -THE DECIMAL VALUE OF THE BYTE AT PORT # 227 IS 28 -THE DECIMAL VALUE OF THE BYTE AT PORT # 228 IS 27 -THE DECIMAL VALUE OF THE BYTE AT PORT # 229 IS 26 -THE DECIMAL VALUE OF THE BYTE AT PORT # 230 IS 25 -THE DECIMAL VALUE OF THE BYTE AT PORT # 231 IS 24 -THE DECIMAL VALUE OF THE BYTE AT PORT # 232 IS 23 -THE DECIMAL VALUE OF THE BYTE AT PORT # 233 IS 22 -THE DECIMAL VALUE OF THE BYTE AT PORT # 234 IS 21 -THE DECIMAL VALUE OF THE BYTE AT PORT # 235 IS 20 -THE DECIMAL VALUE OF THE BYTE AT PORT # 236 IS 19 -THE DECIMAL VALUE OF THE BYTE AT PORT # 237 IS 18 -THE DECIMAL VALUE OF THE BYTE AT PORT # 238 IS 17 -THE DECIMAL VALUE OF THE BYTE AT PORT # 239 IS 16 -THE DECIMAL VALUE OF THE BYTE AT PORT # 240 IS 15 -THE DECIMAL VALUE OF THE BYTE AT PORT # 241 IS 14 -THE DECIMAL VALUE OF THE BYTE AT PORT # 242 IS 13 -THE DECIMAL VALUE OF THE BYTE AT PORT # 243 IS 12 -THE DECIMAL VALUE OF THE BYTE AT PORT # 244 IS 11 -THE DECIMAL VALUE OF THE BYTE AT PORT # 245 IS 10 -THE DECIMAL VALUE OF THE BYTE AT PORT # 246 IS 9 -THE DECIMAL VALUE OF THE BYTE AT PORT # 247 IS 8 -THE DECIMAL VALUE OF THE BYTE AT PORT # 248 IS 7 -THE DECIMAL VALUE OF THE BYTE AT PORT # 249 IS 6 -THE DECIMAL VALUE OF THE BYTE AT PORT # 250 IS 5 -THE DECIMAL VALUE OF THE BYTE AT PORT # 251 IS 4 -THE DECIMAL VALUE OF THE BYTE AT PORT # 252 IS 3 -THE DECIMAL VALUE OF THE BYTE AT PORT # 253 IS 2 -THE DECIMAL VALUE OF THE BYTE AT PORT # 254 IS 1 -THE DECIMAL VALUE OF THE BYTE AT PORT # 255 IS 0 diff --git a/bwbtest/HB1/PI_1.BAS b/bwbtest/HB1/PI_1.BAS deleted file mode 100644 index cd5fd37..0000000 --- a/bwbtest/HB1/PI_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'PI' TEST PROGRAM -20 R=6 -30 C=2*PI*R -40 PRINT "THE CIRCUMFERENCE OF A CIRCLE" -50 PRINT "WITH A RADIUS OF 6 FEET IS";C;"FEET" -99 END diff --git a/bwbtest/HB1/PI_1.run b/bwbtest/HB1/PI_1.run deleted file mode 100644 index 3099317..0000000 --- a/bwbtest/HB1/PI_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE CIRCUMFERENCE OF A CIRCLE -WITH A RADIUS OF 6 FEET IS 37.6991 FEET diff --git a/bwbtest/HB1/PI_2.BAS b/bwbtest/HB1/PI_2.BAS deleted file mode 100644 index d2b7173..0000000 --- a/bwbtest/HB1/PI_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'PI' TEST PROGRAM -15 DEF PI=3.14159265 -20 R=6 -30 C=2*PI*R -40 PRINT "THE CIRCUMFERENCE OF A CIRCLE" -50 PRINT "WITH A RADIUS OF 6 FEET IS";C;"FEET" -99 END diff --git a/bwbtest/HB1/PI_2.run b/bwbtest/HB1/PI_2.run deleted file mode 100644 index 3099317..0000000 --- a/bwbtest/HB1/PI_2.run +++ /dev/null @@ -1,2 +0,0 @@ -THE CIRCUMFERENCE OF A CIRCLE -WITH A RADIUS OF 6 FEET IS 37.6991 FEET diff --git a/bwbtest/HB1/POKE_1.BAS b/bwbtest/HB1/POKE_1.BAS deleted file mode 100644 index 4b8a5a6..0000000 --- a/bwbtest/HB1/POKE_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ - 10 REM 'POKE' TEST PROGRAM - 20 REM USES CRT MEMORY ADDRESSES 15360 TO 16383 - 30 FOR Y=65 TO 90 - 40 FOR X=15360 TO 16383 - 50 POKE X,Y - 60 NEXT X - 70 NEXT Y - 99 END diff --git a/bwbtest/HB1/POKE_1.PRO b/bwbtest/HB1/POKE_1.PRO deleted file mode 100644 index 1b2dc24..0000000 --- a/bwbtest/HB1/POKE_1.PRO +++ /dev/null @@ -1,7 +0,0 @@ -OPTION TERMINAL ANSI -WIDTH 16,64 -65000 REM FAKE POKE() -65010 DEF POKE(X,Y) -65020 REM SIMULATE CRT MEMORY -65030 PRINT @X-15360,CHR$(Y); -65040 FNEND diff --git a/bwbtest/HB1/POKE_1.run b/bwbtest/HB1/POKE_1.run deleted file mode 100644 index c5f9574..0000000 --- a/bwbtest/HB1/POKE_1.run +++ /dev/null @@ -1,416 +0,0 @@ - [1;1HA [1;2HA [1;3HA [1;4HA [1;5HA [1;6HA [1;7HA [1;8HA [1;9HA [1;10HA [1;11HA -A [2;2HA [2;3HA [2;4HA [2;5HA [2;6HA [2;7HA [2;8HA [2;9HA [2;10HA [2;11HA [2;12H -A [3;2HA [3;3HA [3;4HA [3;5HA [3;6HA [3;7HA [3;8HA [3;9HA [3;10HA [3;11HA [3;12H -A [4;2HA [4;3HA [4;4HA [4;5HA [4;6HA [4;7HA [4;8HA [4;9HA [4;10HA [4;11HA [4;12H -A [5;2HA [5;3HA [5;4HA [5;5HA [5;6HA [5;7HA [5;8HA [5;9HA [5;10HA [5;11HA [5;12H -A [6;2HA [6;3HA [6;4HA [6;5HA [6;6HA [6;7HA [6;8HA [6;9HA [6;10HA [6;11HA [6;12H -A [7;2HA [7;3HA [7;4HA [7;5HA [7;6HA [7;7HA [7;8HA [7;9HA [7;10HA [7;11HA [7;12H -A [8;2HA [8;3HA [8;4HA [8;5HA [8;6HA [8;7HA [8;8HA [8;9HA [8;10HA [8;11HA [8;12H -A [9;2HA [9;3HA [9;4HA [9;5HA [9;6HA [9;7HA [9;8HA [9;9HA [9;10HA [9;11HA [9;12H -A [10;2HA [10;3HA [10;4HA [10;5HA [10;6HA [10;7HA [10;8HA [10;9HA [10;10HA [10;1 -A [11;2HA [11;3HA [11;4HA [11;5HA [11;6HA [11;7HA [11;8HA [11;9HA [11;10HA [11;1 -A [12;2HA [12;3HA [12;4HA [12;5HA [12;6HA [12;7HA [12;8HA [12;9HA [12;10HA [12;1 -A [13;2HA [13;3HA [13;4HA [13;5HA [13;6HA [13;7HA [13;8HA [13;9HA [13;10HA [13;1 -A [14;2HA [14;3HA [14;4HA [14;5HA [14;6HA [14;7HA [14;8HA [14;9HA [14;10HA [14;1 -A [15;2HA [15;3HA [15;4HA [15;5HA [15;6HA [15;7HA [15;8HA [15;9HA [15;10HA [15;1 -A [16;2HA [16;3HA [16;4HA [16;5HA [16;6HA [16;7HA [16;8HA [16;9HA [16;10HA [16;1 -B [1;2HB [1;3HB [1;4HB [1;5HB [1;6HB [1;7HB [1;8HB [1;9HB [1;10HB [1;11HB [1;12H -B [2;2HB [2;3HB [2;4HB [2;5HB [2;6HB [2;7HB [2;8HB [2;9HB [2;10HB [2;11HB [2;12H -B [3;2HB [3;3HB [3;4HB [3;5HB [3;6HB [3;7HB [3;8HB [3;9HB [3;10HB [3;11HB [3;12H -B [4;2HB [4;3HB [4;4HB [4;5HB [4;6HB [4;7HB [4;8HB [4;9HB [4;10HB [4;11HB [4;12H -B [5;2HB [5;3HB [5;4HB [5;5HB [5;6HB [5;7HB [5;8HB [5;9HB [5;10HB [5;11HB [5;12H -B [6;2HB [6;3HB [6;4HB [6;5HB [6;6HB [6;7HB [6;8HB [6;9HB [6;10HB [6;11HB [6;12H -B [7;2HB [7;3HB [7;4HB [7;5HB [7;6HB [7;7HB [7;8HB [7;9HB [7;10HB [7;11HB [7;12H -B [8;2HB [8;3HB [8;4HB [8;5HB [8;6HB [8;7HB [8;8HB [8;9HB [8;10HB [8;11HB [8;12H -B [9;2HB [9;3HB [9;4HB [9;5HB [9;6HB [9;7HB [9;8HB [9;9HB [9;10HB [9;11HB [9;12H -B [10;2HB [10;3HB [10;4HB [10;5HB [10;6HB [10;7HB [10;8HB [10;9HB [10;10HB [10;1 -B [11;2HB [11;3HB [11;4HB [11;5HB [11;6HB [11;7HB [11;8HB [11;9HB [11;10HB [11;1 -B [12;2HB [12;3HB [12;4HB [12;5HB [12;6HB [12;7HB [12;8HB [12;9HB [12;10HB [12;1 -B [13;2HB [13;3HB [13;4HB [13;5HB [13;6HB [13;7HB [13;8HB [13;9HB [13;10HB [13;1 -B [14;2HB [14;3HB [14;4HB [14;5HB [14;6HB [14;7HB [14;8HB [14;9HB [14;10HB [14;1 -B [15;2HB [15;3HB [15;4HB [15;5HB [15;6HB [15;7HB [15;8HB [15;9HB [15;10HB [15;1 -B [16;2HB [16;3HB [16;4HB [16;5HB [16;6HB [16;7HB [16;8HB [16;9HB [16;10HB [16;1 -C [1;2HC [1;3HC [1;4HC [1;5HC [1;6HC [1;7HC [1;8HC [1;9HC [1;10HC [1;11HC [1;12H -C [2;2HC [2;3HC [2;4HC [2;5HC [2;6HC [2;7HC [2;8HC [2;9HC [2;10HC [2;11HC [2;12H -C [3;2HC [3;3HC [3;4HC [3;5HC [3;6HC [3;7HC [3;8HC [3;9HC [3;10HC [3;11HC [3;12H -C [4;2HC [4;3HC [4;4HC [4;5HC [4;6HC [4;7HC [4;8HC [4;9HC [4;10HC [4;11HC [4;12H -C [5;2HC [5;3HC [5;4HC [5;5HC [5;6HC [5;7HC [5;8HC [5;9HC [5;10HC [5;11HC [5;12H -C [6;2HC [6;3HC [6;4HC [6;5HC [6;6HC [6;7HC [6;8HC [6;9HC [6;10HC [6;11HC [6;12H -C [7;2HC [7;3HC [7;4HC [7;5HC [7;6HC [7;7HC [7;8HC [7;9HC [7;10HC [7;11HC [7;12H -C [8;2HC [8;3HC [8;4HC [8;5HC [8;6HC [8;7HC [8;8HC [8;9HC [8;10HC [8;11HC [8;12H -C [9;2HC [9;3HC [9;4HC [9;5HC [9;6HC [9;7HC [9;8HC [9;9HC [9;10HC [9;11HC [9;12H -C [10;2HC [10;3HC [10;4HC [10;5HC [10;6HC [10;7HC [10;8HC [10;9HC [10;10HC [10;1 -C [11;2HC [11;3HC [11;4HC [11;5HC [11;6HC [11;7HC [11;8HC [11;9HC [11;10HC [11;1 -C [12;2HC [12;3HC [12;4HC [12;5HC [12;6HC [12;7HC [12;8HC [12;9HC [12;10HC [12;1 -C [13;2HC [13;3HC [13;4HC [13;5HC [13;6HC [13;7HC [13;8HC [13;9HC [13;10HC [13;1 -C [14;2HC [14;3HC [14;4HC [14;5HC [14;6HC [14;7HC [14;8HC [14;9HC [14;10HC [14;1 -C [15;2HC [15;3HC [15;4HC [15;5HC [15;6HC [15;7HC [15;8HC [15;9HC [15;10HC [15;1 -C [16;2HC [16;3HC [16;4HC [16;5HC [16;6HC [16;7HC [16;8HC [16;9HC [16;10HC [16;1 -D [1;2HD [1;3HD [1;4HD [1;5HD [1;6HD [1;7HD [1;8HD [1;9HD [1;10HD [1;11HD [1;12H -D [2;2HD [2;3HD [2;4HD [2;5HD [2;6HD [2;7HD [2;8HD [2;9HD [2;10HD [2;11HD [2;12H -D [3;2HD [3;3HD [3;4HD [3;5HD [3;6HD [3;7HD [3;8HD [3;9HD [3;10HD [3;11HD [3;12H -D [4;2HD [4;3HD [4;4HD [4;5HD [4;6HD [4;7HD [4;8HD [4;9HD [4;10HD [4;11HD [4;12H -D [5;2HD [5;3HD [5;4HD [5;5HD [5;6HD [5;7HD [5;8HD [5;9HD [5;10HD [5;11HD [5;12H -D [6;2HD [6;3HD [6;4HD [6;5HD [6;6HD [6;7HD [6;8HD [6;9HD [6;10HD [6;11HD [6;12H -D [7;2HD [7;3HD [7;4HD [7;5HD [7;6HD [7;7HD [7;8HD [7;9HD [7;10HD [7;11HD [7;12H -D [8;2HD [8;3HD [8;4HD [8;5HD [8;6HD [8;7HD [8;8HD [8;9HD [8;10HD [8;11HD [8;12H -D [9;2HD [9;3HD [9;4HD [9;5HD [9;6HD [9;7HD [9;8HD [9;9HD [9;10HD [9;11HD [9;12H -D [10;2HD [10;3HD [10;4HD [10;5HD [10;6HD [10;7HD [10;8HD [10;9HD [10;10HD [10;1 -D [11;2HD [11;3HD [11;4HD [11;5HD [11;6HD [11;7HD [11;8HD [11;9HD [11;10HD [11;1 -D [12;2HD [12;3HD [12;4HD [12;5HD [12;6HD [12;7HD [12;8HD [12;9HD [12;10HD [12;1 -D [13;2HD [13;3HD [13;4HD [13;5HD [13;6HD [13;7HD [13;8HD [13;9HD [13;10HD [13;1 -D [14;2HD [14;3HD [14;4HD [14;5HD [14;6HD [14;7HD [14;8HD [14;9HD [14;10HD [14;1 -D [15;2HD [15;3HD [15;4HD [15;5HD [15;6HD [15;7HD [15;8HD [15;9HD [15;10HD [15;1 -D [16;2HD [16;3HD [16;4HD [16;5HD [16;6HD [16;7HD [16;8HD [16;9HD [16;10HD [16;1 -E [1;2HE [1;3HE [1;4HE [1;5HE [1;6HE [1;7HE [1;8HE [1;9HE [1;10HE [1;11HE [1;12H -E [2;2HE [2;3HE [2;4HE [2;5HE [2;6HE [2;7HE [2;8HE [2;9HE [2;10HE [2;11HE [2;12H -E [3;2HE [3;3HE [3;4HE [3;5HE [3;6HE [3;7HE [3;8HE [3;9HE [3;10HE [3;11HE [3;12H -E [4;2HE [4;3HE [4;4HE [4;5HE [4;6HE [4;7HE [4;8HE [4;9HE [4;10HE [4;11HE [4;12H -E [5;2HE [5;3HE [5;4HE [5;5HE [5;6HE [5;7HE [5;8HE [5;9HE [5;10HE [5;11HE [5;12H -E [6;2HE [6;3HE [6;4HE [6;5HE [6;6HE [6;7HE [6;8HE [6;9HE [6;10HE [6;11HE [6;12H -E [7;2HE [7;3HE [7;4HE [7;5HE [7;6HE [7;7HE [7;8HE [7;9HE [7;10HE [7;11HE [7;12H -E [8;2HE [8;3HE [8;4HE [8;5HE [8;6HE [8;7HE [8;8HE [8;9HE [8;10HE [8;11HE [8;12H -E [9;2HE [9;3HE [9;4HE [9;5HE [9;6HE [9;7HE [9;8HE [9;9HE [9;10HE [9;11HE [9;12H -E [10;2HE [10;3HE [10;4HE [10;5HE [10;6HE [10;7HE [10;8HE [10;9HE [10;10HE [10;1 -E [11;2HE [11;3HE [11;4HE [11;5HE [11;6HE [11;7HE [11;8HE [11;9HE [11;10HE [11;1 -E [12;2HE [12;3HE [12;4HE [12;5HE [12;6HE [12;7HE [12;8HE [12;9HE [12;10HE [12;1 -E [13;2HE [13;3HE [13;4HE [13;5HE [13;6HE [13;7HE [13;8HE [13;9HE [13;10HE [13;1 -E [14;2HE [14;3HE [14;4HE [14;5HE [14;6HE [14;7HE [14;8HE [14;9HE [14;10HE [14;1 -E [15;2HE [15;3HE [15;4HE [15;5HE [15;6HE [15;7HE [15;8HE [15;9HE [15;10HE [15;1 -E [16;2HE [16;3HE [16;4HE [16;5HE [16;6HE [16;7HE [16;8HE [16;9HE [16;10HE [16;1 -F [1;2HF [1;3HF [1;4HF [1;5HF [1;6HF [1;7HF [1;8HF [1;9HF [1;10HF [1;11HF [1;12H -F [2;2HF [2;3HF [2;4HF [2;5HF [2;6HF [2;7HF [2;8HF [2;9HF [2;10HF [2;11HF [2;12H -F [3;2HF [3;3HF [3;4HF [3;5HF [3;6HF [3;7HF [3;8HF [3;9HF [3;10HF [3;11HF [3;12H -F [4;2HF [4;3HF [4;4HF [4;5HF [4;6HF [4;7HF [4;8HF [4;9HF [4;10HF [4;11HF [4;12H -F [5;2HF [5;3HF [5;4HF [5;5HF [5;6HF [5;7HF [5;8HF [5;9HF [5;10HF [5;11HF [5;12H -F [6;2HF [6;3HF [6;4HF [6;5HF [6;6HF [6;7HF [6;8HF [6;9HF [6;10HF [6;11HF [6;12H -F [7;2HF [7;3HF [7;4HF [7;5HF [7;6HF [7;7HF [7;8HF [7;9HF [7;10HF [7;11HF [7;12H -F [8;2HF [8;3HF [8;4HF [8;5HF [8;6HF [8;7HF [8;8HF [8;9HF [8;10HF [8;11HF [8;12H -F [9;2HF [9;3HF [9;4HF [9;5HF [9;6HF [9;7HF [9;8HF [9;9HF [9;10HF [9;11HF [9;12H -F [10;2HF [10;3HF [10;4HF [10;5HF [10;6HF [10;7HF [10;8HF [10;9HF [10;10HF [10;1 -F [11;2HF [11;3HF [11;4HF [11;5HF [11;6HF [11;7HF [11;8HF [11;9HF [11;10HF [11;1 -F [12;2HF [12;3HF [12;4HF [12;5HF [12;6HF [12;7HF [12;8HF [12;9HF [12;10HF [12;1 -F [13;2HF [13;3HF [13;4HF [13;5HF [13;6HF [13;7HF [13;8HF [13;9HF [13;10HF [13;1 -F [14;2HF [14;3HF [14;4HF [14;5HF [14;6HF [14;7HF [14;8HF [14;9HF [14;10HF [14;1 -F [15;2HF [15;3HF [15;4HF [15;5HF [15;6HF [15;7HF [15;8HF [15;9HF [15;10HF [15;1 -F [16;2HF [16;3HF [16;4HF [16;5HF [16;6HF [16;7HF [16;8HF [16;9HF [16;10HF [16;1 -G [1;2HG [1;3HG [1;4HG [1;5HG [1;6HG [1;7HG [1;8HG [1;9HG [1;10HG [1;11HG [1;12H -G [2;2HG [2;3HG [2;4HG [2;5HG [2;6HG [2;7HG [2;8HG [2;9HG [2;10HG [2;11HG [2;12H -G [3;2HG [3;3HG [3;4HG [3;5HG [3;6HG [3;7HG [3;8HG [3;9HG [3;10HG [3;11HG [3;12H -G [4;2HG [4;3HG [4;4HG [4;5HG [4;6HG [4;7HG [4;8HG [4;9HG [4;10HG [4;11HG [4;12H -G [5;2HG [5;3HG [5;4HG [5;5HG [5;6HG [5;7HG [5;8HG [5;9HG [5;10HG [5;11HG [5;12H -G [6;2HG [6;3HG [6;4HG [6;5HG [6;6HG [6;7HG [6;8HG [6;9HG [6;10HG [6;11HG [6;12H -G [7;2HG [7;3HG [7;4HG [7;5HG [7;6HG [7;7HG [7;8HG [7;9HG [7;10HG [7;11HG [7;12H -G [8;2HG [8;3HG [8;4HG [8;5HG [8;6HG [8;7HG [8;8HG [8;9HG [8;10HG [8;11HG [8;12H -G [9;2HG [9;3HG [9;4HG [9;5HG [9;6HG [9;7HG [9;8HG [9;9HG [9;10HG [9;11HG [9;12H -G [10;2HG [10;3HG [10;4HG [10;5HG [10;6HG [10;7HG [10;8HG [10;9HG [10;10HG [10;1 -G [11;2HG [11;3HG [11;4HG [11;5HG [11;6HG [11;7HG [11;8HG [11;9HG [11;10HG [11;1 -G [12;2HG [12;3HG [12;4HG [12;5HG [12;6HG [12;7HG [12;8HG [12;9HG [12;10HG [12;1 -G [13;2HG [13;3HG [13;4HG [13;5HG [13;6HG [13;7HG [13;8HG [13;9HG [13;10HG [13;1 -G [14;2HG [14;3HG [14;4HG [14;5HG [14;6HG [14;7HG [14;8HG [14;9HG [14;10HG [14;1 -G [15;2HG [15;3HG [15;4HG [15;5HG [15;6HG [15;7HG [15;8HG [15;9HG [15;10HG [15;1 -G [16;2HG [16;3HG [16;4HG [16;5HG [16;6HG [16;7HG [16;8HG [16;9HG [16;10HG [16;1 -H [1;2HH [1;3HH [1;4HH [1;5HH [1;6HH [1;7HH [1;8HH [1;9HH [1;10HH [1;11HH [1;12H -H [2;2HH [2;3HH [2;4HH [2;5HH [2;6HH [2;7HH [2;8HH [2;9HH [2;10HH [2;11HH [2;12H -H [3;2HH [3;3HH [3;4HH [3;5HH [3;6HH [3;7HH [3;8HH [3;9HH [3;10HH [3;11HH [3;12H -H [4;2HH [4;3HH [4;4HH [4;5HH [4;6HH [4;7HH [4;8HH [4;9HH [4;10HH [4;11HH [4;12H -H [5;2HH [5;3HH [5;4HH [5;5HH [5;6HH [5;7HH [5;8HH [5;9HH [5;10HH [5;11HH [5;12H -H [6;2HH [6;3HH [6;4HH [6;5HH [6;6HH [6;7HH [6;8HH [6;9HH [6;10HH [6;11HH [6;12H -H [7;2HH [7;3HH [7;4HH [7;5HH [7;6HH [7;7HH [7;8HH [7;9HH [7;10HH [7;11HH [7;12H -H [8;2HH [8;3HH [8;4HH [8;5HH [8;6HH [8;7HH [8;8HH [8;9HH [8;10HH [8;11HH [8;12H -H [9;2HH [9;3HH [9;4HH [9;5HH [9;6HH [9;7HH [9;8HH [9;9HH [9;10HH [9;11HH [9;12H -H [10;2HH [10;3HH [10;4HH [10;5HH [10;6HH [10;7HH [10;8HH [10;9HH [10;10HH [10;1 -H [11;2HH [11;3HH [11;4HH [11;5HH [11;6HH [11;7HH [11;8HH [11;9HH [11;10HH [11;1 -H [12;2HH [12;3HH [12;4HH [12;5HH [12;6HH [12;7HH [12;8HH [12;9HH [12;10HH [12;1 -H [13;2HH [13;3HH [13;4HH [13;5HH [13;6HH [13;7HH [13;8HH [13;9HH [13;10HH [13;1 -H [14;2HH [14;3HH [14;4HH [14;5HH [14;6HH [14;7HH [14;8HH [14;9HH [14;10HH [14;1 -H [15;2HH [15;3HH [15;4HH [15;5HH [15;6HH [15;7HH [15;8HH [15;9HH [15;10HH [15;1 -H [16;2HH [16;3HH [16;4HH [16;5HH [16;6HH [16;7HH [16;8HH [16;9HH [16;10HH [16;1 -I [1;2HI [1;3HI [1;4HI [1;5HI [1;6HI [1;7HI [1;8HI [1;9HI [1;10HI [1;11HI [1;12H -I [2;2HI [2;3HI [2;4HI [2;5HI [2;6HI [2;7HI [2;8HI [2;9HI [2;10HI [2;11HI [2;12H -I [3;2HI [3;3HI [3;4HI [3;5HI [3;6HI [3;7HI [3;8HI [3;9HI [3;10HI [3;11HI [3;12H -I [4;2HI [4;3HI [4;4HI [4;5HI [4;6HI [4;7HI [4;8HI [4;9HI [4;10HI [4;11HI [4;12H -I [5;2HI [5;3HI [5;4HI [5;5HI [5;6HI [5;7HI [5;8HI [5;9HI [5;10HI [5;11HI [5;12H -I [6;2HI [6;3HI [6;4HI [6;5HI [6;6HI [6;7HI [6;8HI [6;9HI [6;10HI [6;11HI [6;12H -I [7;2HI [7;3HI [7;4HI [7;5HI [7;6HI [7;7HI [7;8HI [7;9HI [7;10HI [7;11HI [7;12H -I [8;2HI [8;3HI [8;4HI [8;5HI [8;6HI [8;7HI [8;8HI [8;9HI [8;10HI [8;11HI [8;12H -I [9;2HI [9;3HI [9;4HI [9;5HI [9;6HI [9;7HI [9;8HI [9;9HI [9;10HI [9;11HI [9;12H -I [10;2HI [10;3HI [10;4HI [10;5HI [10;6HI [10;7HI [10;8HI [10;9HI [10;10HI [10;1 -I [11;2HI [11;3HI [11;4HI [11;5HI [11;6HI [11;7HI [11;8HI [11;9HI [11;10HI [11;1 -I [12;2HI [12;3HI [12;4HI [12;5HI [12;6HI [12;7HI [12;8HI [12;9HI [12;10HI [12;1 -I [13;2HI [13;3HI [13;4HI [13;5HI [13;6HI [13;7HI [13;8HI [13;9HI [13;10HI [13;1 -I [14;2HI [14;3HI [14;4HI [14;5HI [14;6HI [14;7HI [14;8HI [14;9HI [14;10HI [14;1 -I [15;2HI [15;3HI [15;4HI [15;5HI [15;6HI [15;7HI [15;8HI [15;9HI [15;10HI [15;1 -I [16;2HI [16;3HI [16;4HI [16;5HI [16;6HI [16;7HI [16;8HI [16;9HI [16;10HI [16;1 -J [1;2HJ [1;3HJ [1;4HJ [1;5HJ [1;6HJ [1;7HJ [1;8HJ [1;9HJ [1;10HJ [1;11HJ [1;12H -J [2;2HJ [2;3HJ [2;4HJ [2;5HJ [2;6HJ [2;7HJ [2;8HJ [2;9HJ [2;10HJ [2;11HJ [2;12H -J [3;2HJ [3;3HJ [3;4HJ [3;5HJ [3;6HJ [3;7HJ [3;8HJ [3;9HJ [3;10HJ [3;11HJ [3;12H -J [4;2HJ [4;3HJ [4;4HJ [4;5HJ [4;6HJ [4;7HJ [4;8HJ [4;9HJ [4;10HJ [4;11HJ [4;12H -J [5;2HJ [5;3HJ [5;4HJ [5;5HJ [5;6HJ [5;7HJ [5;8HJ [5;9HJ [5;10HJ [5;11HJ [5;12H -J [6;2HJ [6;3HJ [6;4HJ [6;5HJ [6;6HJ [6;7HJ [6;8HJ [6;9HJ [6;10HJ [6;11HJ [6;12H -J [7;2HJ [7;3HJ [7;4HJ [7;5HJ [7;6HJ [7;7HJ [7;8HJ [7;9HJ [7;10HJ [7;11HJ [7;12H -J [8;2HJ [8;3HJ [8;4HJ [8;5HJ [8;6HJ [8;7HJ [8;8HJ [8;9HJ [8;10HJ [8;11HJ [8;12H -J [9;2HJ [9;3HJ [9;4HJ [9;5HJ [9;6HJ [9;7HJ [9;8HJ [9;9HJ [9;10HJ [9;11HJ [9;12H -J [10;2HJ [10;3HJ [10;4HJ [10;5HJ [10;6HJ [10;7HJ [10;8HJ [10;9HJ [10;10HJ [10;1 -J [11;2HJ [11;3HJ [11;4HJ [11;5HJ [11;6HJ [11;7HJ [11;8HJ [11;9HJ [11;10HJ [11;1 -J [12;2HJ [12;3HJ [12;4HJ [12;5HJ [12;6HJ [12;7HJ [12;8HJ [12;9HJ [12;10HJ [12;1 -J [13;2HJ [13;3HJ [13;4HJ [13;5HJ [13;6HJ [13;7HJ [13;8HJ [13;9HJ [13;10HJ [13;1 -J [14;2HJ [14;3HJ [14;4HJ [14;5HJ [14;6HJ [14;7HJ [14;8HJ [14;9HJ [14;10HJ [14;1 -J [15;2HJ [15;3HJ [15;4HJ [15;5HJ [15;6HJ [15;7HJ [15;8HJ [15;9HJ [15;10HJ [15;1 -J [16;2HJ [16;3HJ [16;4HJ [16;5HJ [16;6HJ [16;7HJ [16;8HJ [16;9HJ [16;10HJ [16;1 -K [1;2HK [1;3HK [1;4HK [1;5HK [1;6HK [1;7HK [1;8HK [1;9HK [1;10HK [1;11HK [1;12H -K [2;2HK [2;3HK [2;4HK [2;5HK [2;6HK [2;7HK [2;8HK [2;9HK [2;10HK [2;11HK [2;12H -K [3;2HK [3;3HK [3;4HK [3;5HK [3;6HK [3;7HK [3;8HK [3;9HK [3;10HK [3;11HK [3;12H -K [4;2HK [4;3HK [4;4HK [4;5HK [4;6HK [4;7HK [4;8HK [4;9HK [4;10HK [4;11HK [4;12H -K [5;2HK [5;3HK [5;4HK [5;5HK [5;6HK [5;7HK [5;8HK [5;9HK [5;10HK [5;11HK [5;12H -K [6;2HK [6;3HK [6;4HK [6;5HK [6;6HK [6;7HK [6;8HK [6;9HK [6;10HK [6;11HK [6;12H -K [7;2HK [7;3HK [7;4HK [7;5HK [7;6HK [7;7HK [7;8HK [7;9HK [7;10HK [7;11HK [7;12H -K [8;2HK [8;3HK [8;4HK [8;5HK [8;6HK [8;7HK [8;8HK [8;9HK [8;10HK [8;11HK [8;12H -K [9;2HK [9;3HK [9;4HK [9;5HK [9;6HK [9;7HK [9;8HK [9;9HK [9;10HK [9;11HK [9;12H -K [10;2HK [10;3HK [10;4HK [10;5HK [10;6HK [10;7HK [10;8HK [10;9HK [10;10HK [10;1 -K [11;2HK [11;3HK [11;4HK [11;5HK [11;6HK [11;7HK [11;8HK [11;9HK [11;10HK [11;1 -K [12;2HK [12;3HK [12;4HK [12;5HK [12;6HK [12;7HK [12;8HK [12;9HK [12;10HK [12;1 -K [13;2HK [13;3HK [13;4HK [13;5HK [13;6HK [13;7HK [13;8HK [13;9HK [13;10HK [13;1 -K [14;2HK [14;3HK [14;4HK [14;5HK [14;6HK [14;7HK [14;8HK [14;9HK [14;10HK [14;1 -K [15;2HK [15;3HK [15;4HK [15;5HK [15;6HK [15;7HK [15;8HK [15;9HK [15;10HK [15;1 -K [16;2HK [16;3HK [16;4HK [16;5HK [16;6HK [16;7HK [16;8HK [16;9HK [16;10HK [16;1 -L [1;2HL [1;3HL [1;4HL [1;5HL [1;6HL [1;7HL [1;8HL [1;9HL [1;10HL [1;11HL [1;12H -L [2;2HL [2;3HL [2;4HL [2;5HL [2;6HL [2;7HL [2;8HL [2;9HL [2;10HL [2;11HL [2;12H -L [3;2HL [3;3HL [3;4HL [3;5HL [3;6HL [3;7HL [3;8HL [3;9HL [3;10HL [3;11HL [3;12H -L [4;2HL [4;3HL [4;4HL [4;5HL [4;6HL [4;7HL [4;8HL [4;9HL [4;10HL [4;11HL [4;12H -L [5;2HL [5;3HL [5;4HL [5;5HL [5;6HL [5;7HL [5;8HL [5;9HL [5;10HL [5;11HL [5;12H -L [6;2HL [6;3HL [6;4HL [6;5HL [6;6HL [6;7HL [6;8HL [6;9HL [6;10HL [6;11HL [6;12H -L [7;2HL [7;3HL [7;4HL [7;5HL [7;6HL [7;7HL [7;8HL [7;9HL [7;10HL [7;11HL [7;12H -L [8;2HL [8;3HL [8;4HL [8;5HL [8;6HL [8;7HL [8;8HL [8;9HL [8;10HL [8;11HL [8;12H -L [9;2HL [9;3HL [9;4HL [9;5HL [9;6HL [9;7HL [9;8HL [9;9HL [9;10HL [9;11HL [9;12H -L [10;2HL [10;3HL [10;4HL [10;5HL [10;6HL [10;7HL [10;8HL [10;9HL [10;10HL [10;1 -L [11;2HL [11;3HL [11;4HL [11;5HL [11;6HL [11;7HL [11;8HL [11;9HL [11;10HL [11;1 -L [12;2HL [12;3HL [12;4HL [12;5HL [12;6HL [12;7HL [12;8HL [12;9HL [12;10HL [12;1 -L [13;2HL [13;3HL [13;4HL [13;5HL [13;6HL [13;7HL [13;8HL [13;9HL [13;10HL [13;1 -L [14;2HL [14;3HL [14;4HL [14;5HL [14;6HL [14;7HL [14;8HL [14;9HL [14;10HL [14;1 -L [15;2HL [15;3HL [15;4HL [15;5HL [15;6HL [15;7HL [15;8HL [15;9HL [15;10HL [15;1 -L [16;2HL [16;3HL [16;4HL [16;5HL [16;6HL [16;7HL [16;8HL [16;9HL [16;10HL [16;1 -M [1;2HM [1;3HM [1;4HM [1;5HM [1;6HM [1;7HM [1;8HM [1;9HM [1;10HM [1;11HM [1;12H -M [2;2HM [2;3HM [2;4HM [2;5HM [2;6HM [2;7HM [2;8HM [2;9HM [2;10HM [2;11HM [2;12H -M [3;2HM [3;3HM [3;4HM [3;5HM [3;6HM [3;7HM [3;8HM [3;9HM [3;10HM [3;11HM [3;12H -M [4;2HM [4;3HM [4;4HM [4;5HM [4;6HM [4;7HM [4;8HM [4;9HM [4;10HM [4;11HM [4;12H -M [5;2HM [5;3HM [5;4HM [5;5HM [5;6HM [5;7HM [5;8HM [5;9HM [5;10HM [5;11HM [5;12H -M [6;2HM [6;3HM [6;4HM [6;5HM [6;6HM [6;7HM [6;8HM [6;9HM [6;10HM [6;11HM [6;12H -M [7;2HM [7;3HM [7;4HM [7;5HM [7;6HM [7;7HM [7;8HM [7;9HM [7;10HM [7;11HM [7;12H -M [8;2HM [8;3HM [8;4HM [8;5HM [8;6HM [8;7HM [8;8HM [8;9HM [8;10HM [8;11HM [8;12H -M [9;2HM [9;3HM [9;4HM [9;5HM [9;6HM [9;7HM [9;8HM [9;9HM [9;10HM [9;11HM [9;12H -M [10;2HM [10;3HM [10;4HM [10;5HM [10;6HM [10;7HM [10;8HM [10;9HM [10;10HM [10;1 -M [11;2HM [11;3HM [11;4HM [11;5HM [11;6HM [11;7HM [11;8HM [11;9HM [11;10HM [11;1 -M [12;2HM [12;3HM [12;4HM [12;5HM [12;6HM [12;7HM [12;8HM [12;9HM [12;10HM [12;1 -M [13;2HM [13;3HM [13;4HM [13;5HM [13;6HM [13;7HM [13;8HM [13;9HM [13;10HM [13;1 -M [14;2HM [14;3HM [14;4HM [14;5HM [14;6HM [14;7HM [14;8HM [14;9HM [14;10HM [14;1 -M [15;2HM [15;3HM [15;4HM [15;5HM [15;6HM [15;7HM [15;8HM [15;9HM [15;10HM [15;1 -M [16;2HM [16;3HM [16;4HM [16;5HM [16;6HM [16;7HM [16;8HM [16;9HM [16;10HM [16;1 -N [1;2HN [1;3HN [1;4HN [1;5HN [1;6HN [1;7HN [1;8HN [1;9HN [1;10HN [1;11HN [1;12H -N [2;2HN [2;3HN [2;4HN [2;5HN [2;6HN [2;7HN [2;8HN [2;9HN [2;10HN [2;11HN [2;12H -N [3;2HN [3;3HN [3;4HN [3;5HN [3;6HN [3;7HN [3;8HN [3;9HN [3;10HN [3;11HN [3;12H -N [4;2HN [4;3HN [4;4HN [4;5HN [4;6HN [4;7HN [4;8HN [4;9HN [4;10HN [4;11HN [4;12H -N [5;2HN [5;3HN [5;4HN [5;5HN [5;6HN [5;7HN [5;8HN [5;9HN [5;10HN [5;11HN [5;12H -N [6;2HN [6;3HN [6;4HN [6;5HN [6;6HN [6;7HN [6;8HN [6;9HN [6;10HN [6;11HN [6;12H -N [7;2HN [7;3HN [7;4HN [7;5HN [7;6HN [7;7HN [7;8HN [7;9HN [7;10HN [7;11HN [7;12H -N [8;2HN [8;3HN [8;4HN [8;5HN [8;6HN [8;7HN [8;8HN [8;9HN [8;10HN [8;11HN [8;12H -N [9;2HN [9;3HN [9;4HN [9;5HN [9;6HN [9;7HN [9;8HN [9;9HN [9;10HN [9;11HN [9;12H -N [10;2HN [10;3HN [10;4HN [10;5HN [10;6HN [10;7HN [10;8HN [10;9HN [10;10HN [10;1 -N [11;2HN [11;3HN [11;4HN [11;5HN [11;6HN [11;7HN [11;8HN [11;9HN [11;10HN [11;1 -N [12;2HN [12;3HN [12;4HN [12;5HN [12;6HN [12;7HN [12;8HN [12;9HN [12;10HN [12;1 -N [13;2HN [13;3HN [13;4HN [13;5HN [13;6HN [13;7HN [13;8HN [13;9HN [13;10HN [13;1 -N [14;2HN [14;3HN [14;4HN [14;5HN [14;6HN [14;7HN [14;8HN [14;9HN [14;10HN [14;1 -N [15;2HN [15;3HN [15;4HN [15;5HN [15;6HN [15;7HN [15;8HN [15;9HN [15;10HN [15;1 -N [16;2HN [16;3HN [16;4HN [16;5HN [16;6HN [16;7HN [16;8HN [16;9HN [16;10HN [16;1 -O [1;2HO [1;3HO [1;4HO [1;5HO [1;6HO [1;7HO [1;8HO [1;9HO [1;10HO [1;11HO [1;12H -O [2;2HO [2;3HO [2;4HO [2;5HO [2;6HO [2;7HO [2;8HO [2;9HO [2;10HO [2;11HO [2;12H -O [3;2HO [3;3HO [3;4HO [3;5HO [3;6HO [3;7HO [3;8HO [3;9HO [3;10HO [3;11HO [3;12H -O [4;2HO [4;3HO [4;4HO [4;5HO [4;6HO [4;7HO [4;8HO [4;9HO [4;10HO [4;11HO [4;12H -O [5;2HO [5;3HO [5;4HO [5;5HO [5;6HO [5;7HO [5;8HO [5;9HO [5;10HO [5;11HO [5;12H -O [6;2HO [6;3HO [6;4HO [6;5HO [6;6HO [6;7HO [6;8HO [6;9HO [6;10HO [6;11HO [6;12H -O [7;2HO [7;3HO [7;4HO [7;5HO [7;6HO [7;7HO [7;8HO [7;9HO [7;10HO [7;11HO [7;12H -O [8;2HO [8;3HO [8;4HO [8;5HO [8;6HO [8;7HO [8;8HO [8;9HO [8;10HO [8;11HO [8;12H -O [9;2HO [9;3HO [9;4HO [9;5HO [9;6HO [9;7HO [9;8HO [9;9HO [9;10HO [9;11HO [9;12H -O [10;2HO [10;3HO [10;4HO [10;5HO [10;6HO [10;7HO [10;8HO [10;9HO [10;10HO [10;1 -O [11;2HO [11;3HO [11;4HO [11;5HO [11;6HO [11;7HO [11;8HO [11;9HO [11;10HO [11;1 -O [12;2HO [12;3HO [12;4HO [12;5HO [12;6HO [12;7HO [12;8HO [12;9HO [12;10HO [12;1 -O [13;2HO [13;3HO [13;4HO [13;5HO [13;6HO [13;7HO [13;8HO [13;9HO [13;10HO [13;1 -O [14;2HO [14;3HO [14;4HO [14;5HO [14;6HO [14;7HO [14;8HO [14;9HO [14;10HO [14;1 -O [15;2HO [15;3HO [15;4HO [15;5HO [15;6HO [15;7HO [15;8HO [15;9HO [15;10HO [15;1 -O [16;2HO [16;3HO [16;4HO [16;5HO [16;6HO [16;7HO [16;8HO [16;9HO [16;10HO [16;1 -P [1;2HP [1;3HP [1;4HP [1;5HP [1;6HP [1;7HP [1;8HP [1;9HP [1;10HP [1;11HP [1;12H -P [2;2HP [2;3HP [2;4HP [2;5HP [2;6HP [2;7HP [2;8HP [2;9HP [2;10HP [2;11HP [2;12H -P [3;2HP [3;3HP [3;4HP [3;5HP [3;6HP [3;7HP [3;8HP [3;9HP [3;10HP [3;11HP [3;12H -P [4;2HP [4;3HP [4;4HP [4;5HP [4;6HP [4;7HP [4;8HP [4;9HP [4;10HP [4;11HP [4;12H -P [5;2HP [5;3HP [5;4HP [5;5HP [5;6HP [5;7HP [5;8HP [5;9HP [5;10HP [5;11HP [5;12H -P [6;2HP [6;3HP [6;4HP [6;5HP [6;6HP [6;7HP [6;8HP [6;9HP [6;10HP [6;11HP [6;12H -P [7;2HP [7;3HP [7;4HP [7;5HP [7;6HP [7;7HP [7;8HP [7;9HP [7;10HP [7;11HP [7;12H -P [8;2HP [8;3HP [8;4HP [8;5HP [8;6HP [8;7HP [8;8HP [8;9HP [8;10HP [8;11HP [8;12H -P [9;2HP [9;3HP [9;4HP [9;5HP [9;6HP [9;7HP [9;8HP [9;9HP [9;10HP [9;11HP [9;12H -P [10;2HP [10;3HP [10;4HP [10;5HP [10;6HP [10;7HP [10;8HP [10;9HP [10;10HP [10;1 -P [11;2HP [11;3HP [11;4HP [11;5HP [11;6HP [11;7HP [11;8HP [11;9HP [11;10HP [11;1 -P [12;2HP [12;3HP [12;4HP [12;5HP [12;6HP [12;7HP [12;8HP [12;9HP [12;10HP [12;1 -P [13;2HP [13;3HP [13;4HP [13;5HP [13;6HP [13;7HP [13;8HP [13;9HP [13;10HP [13;1 -P [14;2HP [14;3HP [14;4HP [14;5HP [14;6HP [14;7HP [14;8HP [14;9HP [14;10HP [14;1 -P [15;2HP [15;3HP [15;4HP [15;5HP [15;6HP [15;7HP [15;8HP [15;9HP [15;10HP [15;1 -P [16;2HP [16;3HP [16;4HP [16;5HP [16;6HP [16;7HP [16;8HP [16;9HP [16;10HP [16;1 -Q [1;2HQ [1;3HQ [1;4HQ [1;5HQ [1;6HQ [1;7HQ [1;8HQ [1;9HQ [1;10HQ [1;11HQ [1;12H -Q [2;2HQ [2;3HQ [2;4HQ [2;5HQ [2;6HQ [2;7HQ [2;8HQ [2;9HQ [2;10HQ [2;11HQ [2;12H -Q [3;2HQ [3;3HQ [3;4HQ [3;5HQ [3;6HQ [3;7HQ [3;8HQ [3;9HQ [3;10HQ [3;11HQ [3;12H -Q [4;2HQ [4;3HQ [4;4HQ [4;5HQ [4;6HQ [4;7HQ [4;8HQ [4;9HQ [4;10HQ [4;11HQ [4;12H -Q [5;2HQ [5;3HQ [5;4HQ [5;5HQ [5;6HQ [5;7HQ [5;8HQ [5;9HQ [5;10HQ [5;11HQ [5;12H -Q [6;2HQ [6;3HQ [6;4HQ [6;5HQ [6;6HQ [6;7HQ [6;8HQ [6;9HQ [6;10HQ [6;11HQ [6;12H -Q [7;2HQ [7;3HQ [7;4HQ [7;5HQ [7;6HQ [7;7HQ [7;8HQ [7;9HQ [7;10HQ [7;11HQ [7;12H -Q [8;2HQ [8;3HQ [8;4HQ [8;5HQ [8;6HQ [8;7HQ [8;8HQ [8;9HQ [8;10HQ [8;11HQ [8;12H -Q [9;2HQ [9;3HQ [9;4HQ [9;5HQ [9;6HQ [9;7HQ [9;8HQ [9;9HQ [9;10HQ [9;11HQ [9;12H -Q [10;2HQ [10;3HQ [10;4HQ [10;5HQ [10;6HQ [10;7HQ [10;8HQ [10;9HQ [10;10HQ [10;1 -Q [11;2HQ [11;3HQ [11;4HQ [11;5HQ [11;6HQ [11;7HQ [11;8HQ [11;9HQ [11;10HQ [11;1 -Q [12;2HQ [12;3HQ [12;4HQ [12;5HQ [12;6HQ [12;7HQ [12;8HQ [12;9HQ [12;10HQ [12;1 -Q [13;2HQ [13;3HQ [13;4HQ [13;5HQ [13;6HQ [13;7HQ [13;8HQ [13;9HQ [13;10HQ [13;1 -Q [14;2HQ [14;3HQ [14;4HQ [14;5HQ [14;6HQ [14;7HQ [14;8HQ [14;9HQ [14;10HQ [14;1 -Q [15;2HQ [15;3HQ [15;4HQ [15;5HQ [15;6HQ [15;7HQ [15;8HQ [15;9HQ [15;10HQ [15;1 -Q [16;2HQ [16;3HQ [16;4HQ [16;5HQ [16;6HQ [16;7HQ [16;8HQ [16;9HQ [16;10HQ [16;1 -R [1;2HR [1;3HR [1;4HR [1;5HR [1;6HR [1;7HR [1;8HR [1;9HR [1;10HR [1;11HR [1;12H -R [2;2HR [2;3HR [2;4HR [2;5HR [2;6HR [2;7HR [2;8HR [2;9HR [2;10HR [2;11HR [2;12H -R [3;2HR [3;3HR [3;4HR [3;5HR [3;6HR [3;7HR [3;8HR [3;9HR [3;10HR [3;11HR [3;12H -R [4;2HR [4;3HR [4;4HR [4;5HR [4;6HR [4;7HR [4;8HR [4;9HR [4;10HR [4;11HR [4;12H -R [5;2HR [5;3HR [5;4HR [5;5HR [5;6HR [5;7HR [5;8HR [5;9HR [5;10HR [5;11HR [5;12H -R [6;2HR [6;3HR [6;4HR [6;5HR [6;6HR [6;7HR [6;8HR [6;9HR [6;10HR [6;11HR [6;12H -R [7;2HR [7;3HR [7;4HR [7;5HR [7;6HR [7;7HR [7;8HR [7;9HR [7;10HR [7;11HR [7;12H -R [8;2HR [8;3HR [8;4HR [8;5HR [8;6HR [8;7HR [8;8HR [8;9HR [8;10HR [8;11HR [8;12H -R [9;2HR [9;3HR [9;4HR [9;5HR [9;6HR [9;7HR [9;8HR [9;9HR [9;10HR [9;11HR [9;12H -R [10;2HR [10;3HR [10;4HR [10;5HR [10;6HR [10;7HR [10;8HR [10;9HR [10;10HR [10;1 -R [11;2HR [11;3HR [11;4HR [11;5HR [11;6HR [11;7HR [11;8HR [11;9HR [11;10HR [11;1 -R [12;2HR [12;3HR [12;4HR [12;5HR [12;6HR [12;7HR [12;8HR [12;9HR [12;10HR [12;1 -R [13;2HR [13;3HR [13;4HR [13;5HR [13;6HR [13;7HR [13;8HR [13;9HR [13;10HR [13;1 -R [14;2HR [14;3HR [14;4HR [14;5HR [14;6HR [14;7HR [14;8HR [14;9HR [14;10HR [14;1 -R [15;2HR [15;3HR [15;4HR [15;5HR [15;6HR [15;7HR [15;8HR [15;9HR [15;10HR [15;1 -R [16;2HR [16;3HR [16;4HR [16;5HR [16;6HR [16;7HR [16;8HR [16;9HR [16;10HR [16;1 -S [1;2HS [1;3HS [1;4HS [1;5HS [1;6HS [1;7HS [1;8HS [1;9HS [1;10HS [1;11HS [1;12H -S [2;2HS [2;3HS [2;4HS [2;5HS [2;6HS [2;7HS [2;8HS [2;9HS [2;10HS [2;11HS [2;12H -S [3;2HS [3;3HS [3;4HS [3;5HS [3;6HS [3;7HS [3;8HS [3;9HS [3;10HS [3;11HS [3;12H -S [4;2HS [4;3HS [4;4HS [4;5HS [4;6HS [4;7HS [4;8HS [4;9HS [4;10HS [4;11HS [4;12H -S [5;2HS [5;3HS [5;4HS [5;5HS [5;6HS [5;7HS [5;8HS [5;9HS [5;10HS [5;11HS [5;12H -S [6;2HS [6;3HS [6;4HS [6;5HS [6;6HS [6;7HS [6;8HS [6;9HS [6;10HS [6;11HS [6;12H -S [7;2HS [7;3HS [7;4HS [7;5HS [7;6HS [7;7HS [7;8HS [7;9HS [7;10HS [7;11HS [7;12H -S [8;2HS [8;3HS [8;4HS [8;5HS [8;6HS [8;7HS [8;8HS [8;9HS [8;10HS [8;11HS [8;12H -S [9;2HS [9;3HS [9;4HS [9;5HS [9;6HS [9;7HS [9;8HS [9;9HS [9;10HS [9;11HS [9;12H -S [10;2HS [10;3HS [10;4HS [10;5HS [10;6HS [10;7HS [10;8HS [10;9HS [10;10HS [10;1 -S [11;2HS [11;3HS [11;4HS [11;5HS [11;6HS [11;7HS [11;8HS [11;9HS [11;10HS [11;1 -S [12;2HS [12;3HS [12;4HS [12;5HS [12;6HS [12;7HS [12;8HS [12;9HS [12;10HS [12;1 -S [13;2HS [13;3HS [13;4HS [13;5HS [13;6HS [13;7HS [13;8HS [13;9HS [13;10HS [13;1 -S [14;2HS [14;3HS [14;4HS [14;5HS [14;6HS [14;7HS [14;8HS [14;9HS [14;10HS [14;1 -S [15;2HS [15;3HS [15;4HS [15;5HS [15;6HS [15;7HS [15;8HS [15;9HS [15;10HS [15;1 -S [16;2HS [16;3HS [16;4HS [16;5HS [16;6HS [16;7HS [16;8HS [16;9HS [16;10HS [16;1 -T [1;2HT [1;3HT [1;4HT [1;5HT [1;6HT [1;7HT [1;8HT [1;9HT [1;10HT [1;11HT [1;12H -T [2;2HT [2;3HT [2;4HT [2;5HT [2;6HT [2;7HT [2;8HT [2;9HT [2;10HT [2;11HT [2;12H -T [3;2HT [3;3HT [3;4HT [3;5HT [3;6HT [3;7HT [3;8HT [3;9HT [3;10HT [3;11HT [3;12H -T [4;2HT [4;3HT [4;4HT [4;5HT [4;6HT [4;7HT [4;8HT [4;9HT [4;10HT [4;11HT [4;12H -T [5;2HT [5;3HT [5;4HT [5;5HT [5;6HT [5;7HT [5;8HT [5;9HT [5;10HT [5;11HT [5;12H -T [6;2HT [6;3HT [6;4HT [6;5HT [6;6HT [6;7HT [6;8HT [6;9HT [6;10HT [6;11HT [6;12H -T [7;2HT [7;3HT [7;4HT [7;5HT [7;6HT [7;7HT [7;8HT [7;9HT [7;10HT [7;11HT [7;12H -T [8;2HT [8;3HT [8;4HT [8;5HT [8;6HT [8;7HT [8;8HT [8;9HT [8;10HT [8;11HT [8;12H -T [9;2HT [9;3HT [9;4HT [9;5HT [9;6HT [9;7HT [9;8HT [9;9HT [9;10HT [9;11HT [9;12H -T [10;2HT [10;3HT [10;4HT [10;5HT [10;6HT [10;7HT [10;8HT [10;9HT [10;10HT [10;1 -T [11;2HT [11;3HT [11;4HT [11;5HT [11;6HT [11;7HT [11;8HT [11;9HT [11;10HT [11;1 -T [12;2HT [12;3HT [12;4HT [12;5HT [12;6HT [12;7HT [12;8HT [12;9HT [12;10HT [12;1 -T [13;2HT [13;3HT [13;4HT [13;5HT [13;6HT [13;7HT [13;8HT [13;9HT [13;10HT [13;1 -T [14;2HT [14;3HT [14;4HT [14;5HT [14;6HT [14;7HT [14;8HT [14;9HT [14;10HT [14;1 -T [15;2HT [15;3HT [15;4HT [15;5HT [15;6HT [15;7HT [15;8HT [15;9HT [15;10HT [15;1 -T [16;2HT [16;3HT [16;4HT [16;5HT [16;6HT [16;7HT [16;8HT [16;9HT [16;10HT [16;1 -U [1;2HU [1;3HU [1;4HU [1;5HU [1;6HU [1;7HU [1;8HU [1;9HU [1;10HU [1;11HU [1;12H -U [2;2HU [2;3HU [2;4HU [2;5HU [2;6HU [2;7HU [2;8HU [2;9HU [2;10HU [2;11HU [2;12H -U [3;2HU [3;3HU [3;4HU [3;5HU [3;6HU [3;7HU [3;8HU [3;9HU [3;10HU [3;11HU [3;12H -U [4;2HU [4;3HU [4;4HU [4;5HU [4;6HU [4;7HU [4;8HU [4;9HU [4;10HU [4;11HU [4;12H -U [5;2HU [5;3HU [5;4HU [5;5HU [5;6HU [5;7HU [5;8HU [5;9HU [5;10HU [5;11HU [5;12H -U [6;2HU [6;3HU [6;4HU [6;5HU [6;6HU [6;7HU [6;8HU [6;9HU [6;10HU [6;11HU [6;12H -U [7;2HU [7;3HU [7;4HU [7;5HU [7;6HU [7;7HU [7;8HU [7;9HU [7;10HU [7;11HU [7;12H -U [8;2HU [8;3HU [8;4HU [8;5HU [8;6HU [8;7HU [8;8HU [8;9HU [8;10HU [8;11HU [8;12H -U [9;2HU [9;3HU [9;4HU [9;5HU [9;6HU [9;7HU [9;8HU [9;9HU [9;10HU [9;11HU [9;12H -U [10;2HU [10;3HU [10;4HU [10;5HU [10;6HU [10;7HU [10;8HU [10;9HU [10;10HU [10;1 -U [11;2HU [11;3HU [11;4HU [11;5HU [11;6HU [11;7HU [11;8HU [11;9HU [11;10HU [11;1 -U [12;2HU [12;3HU [12;4HU [12;5HU [12;6HU [12;7HU [12;8HU [12;9HU [12;10HU [12;1 -U [13;2HU [13;3HU [13;4HU [13;5HU [13;6HU [13;7HU [13;8HU [13;9HU [13;10HU [13;1 -U [14;2HU [14;3HU [14;4HU [14;5HU [14;6HU [14;7HU [14;8HU [14;9HU [14;10HU [14;1 -U [15;2HU [15;3HU [15;4HU [15;5HU [15;6HU [15;7HU [15;8HU [15;9HU [15;10HU [15;1 -U [16;2HU [16;3HU [16;4HU [16;5HU [16;6HU [16;7HU [16;8HU [16;9HU [16;10HU [16;1 -V [1;2HV [1;3HV [1;4HV [1;5HV [1;6HV [1;7HV [1;8HV [1;9HV [1;10HV [1;11HV [1;12H -V [2;2HV [2;3HV [2;4HV [2;5HV [2;6HV [2;7HV [2;8HV [2;9HV [2;10HV [2;11HV [2;12H -V [3;2HV [3;3HV [3;4HV [3;5HV [3;6HV [3;7HV [3;8HV [3;9HV [3;10HV [3;11HV [3;12H -V [4;2HV [4;3HV [4;4HV [4;5HV [4;6HV [4;7HV [4;8HV [4;9HV [4;10HV [4;11HV [4;12H -V [5;2HV [5;3HV [5;4HV [5;5HV [5;6HV [5;7HV [5;8HV [5;9HV [5;10HV [5;11HV [5;12H -V [6;2HV [6;3HV [6;4HV [6;5HV [6;6HV [6;7HV [6;8HV [6;9HV [6;10HV [6;11HV [6;12H -V [7;2HV [7;3HV [7;4HV [7;5HV [7;6HV [7;7HV [7;8HV [7;9HV [7;10HV [7;11HV [7;12H -V [8;2HV [8;3HV [8;4HV [8;5HV [8;6HV [8;7HV [8;8HV [8;9HV [8;10HV [8;11HV [8;12H -V [9;2HV [9;3HV [9;4HV [9;5HV [9;6HV [9;7HV [9;8HV [9;9HV [9;10HV [9;11HV [9;12H -V [10;2HV [10;3HV [10;4HV [10;5HV [10;6HV [10;7HV [10;8HV [10;9HV [10;10HV [10;1 -V [11;2HV [11;3HV [11;4HV [11;5HV [11;6HV [11;7HV [11;8HV [11;9HV [11;10HV [11;1 -V [12;2HV [12;3HV [12;4HV [12;5HV [12;6HV [12;7HV [12;8HV [12;9HV [12;10HV [12;1 -V [13;2HV [13;3HV [13;4HV [13;5HV [13;6HV [13;7HV [13;8HV [13;9HV [13;10HV [13;1 -V [14;2HV [14;3HV [14;4HV [14;5HV [14;6HV [14;7HV [14;8HV [14;9HV [14;10HV [14;1 -V [15;2HV [15;3HV [15;4HV [15;5HV [15;6HV [15;7HV [15;8HV [15;9HV [15;10HV [15;1 -V [16;2HV [16;3HV [16;4HV [16;5HV [16;6HV [16;7HV [16;8HV [16;9HV [16;10HV [16;1 -W [1;2HW [1;3HW [1;4HW [1;5HW [1;6HW [1;7HW [1;8HW [1;9HW [1;10HW [1;11HW [1;12H -W [2;2HW [2;3HW [2;4HW [2;5HW [2;6HW [2;7HW [2;8HW [2;9HW [2;10HW [2;11HW [2;12H -W [3;2HW [3;3HW [3;4HW [3;5HW [3;6HW [3;7HW [3;8HW [3;9HW [3;10HW [3;11HW [3;12H -W [4;2HW [4;3HW [4;4HW [4;5HW [4;6HW [4;7HW [4;8HW [4;9HW [4;10HW [4;11HW [4;12H -W [5;2HW [5;3HW [5;4HW [5;5HW [5;6HW [5;7HW [5;8HW [5;9HW [5;10HW [5;11HW [5;12H -W [6;2HW [6;3HW [6;4HW [6;5HW [6;6HW [6;7HW [6;8HW [6;9HW [6;10HW [6;11HW [6;12H -W [7;2HW [7;3HW [7;4HW [7;5HW [7;6HW [7;7HW [7;8HW [7;9HW [7;10HW [7;11HW [7;12H -W [8;2HW [8;3HW [8;4HW [8;5HW [8;6HW [8;7HW [8;8HW [8;9HW [8;10HW [8;11HW [8;12H -W [9;2HW [9;3HW [9;4HW [9;5HW [9;6HW [9;7HW [9;8HW [9;9HW [9;10HW [9;11HW [9;12H -W [10;2HW [10;3HW [10;4HW [10;5HW [10;6HW [10;7HW [10;8HW [10;9HW [10;10HW [10;1 -W [11;2HW [11;3HW [11;4HW [11;5HW [11;6HW [11;7HW [11;8HW [11;9HW [11;10HW [11;1 -W [12;2HW [12;3HW [12;4HW [12;5HW [12;6HW [12;7HW [12;8HW [12;9HW [12;10HW [12;1 -W [13;2HW [13;3HW [13;4HW [13;5HW [13;6HW [13;7HW [13;8HW [13;9HW [13;10HW [13;1 -W [14;2HW [14;3HW [14;4HW [14;5HW [14;6HW [14;7HW [14;8HW [14;9HW [14;10HW [14;1 -W [15;2HW [15;3HW [15;4HW [15;5HW [15;6HW [15;7HW [15;8HW [15;9HW [15;10HW [15;1 -W [16;2HW [16;3HW [16;4HW [16;5HW [16;6HW [16;7HW [16;8HW [16;9HW [16;10HW [16;1 -X [1;2HX [1;3HX [1;4HX [1;5HX [1;6HX [1;7HX [1;8HX [1;9HX [1;10HX [1;11HX [1;12H -X [2;2HX [2;3HX [2;4HX [2;5HX [2;6HX [2;7HX [2;8HX [2;9HX [2;10HX [2;11HX [2;12H -X [3;2HX [3;3HX [3;4HX [3;5HX [3;6HX [3;7HX [3;8HX [3;9HX [3;10HX [3;11HX [3;12H -X [4;2HX [4;3HX [4;4HX [4;5HX [4;6HX [4;7HX [4;8HX [4;9HX [4;10HX [4;11HX [4;12H -X [5;2HX [5;3HX [5;4HX [5;5HX [5;6HX [5;7HX [5;8HX [5;9HX [5;10HX [5;11HX [5;12H -X [6;2HX [6;3HX [6;4HX [6;5HX [6;6HX [6;7HX [6;8HX [6;9HX [6;10HX [6;11HX [6;12H -X [7;2HX [7;3HX [7;4HX [7;5HX [7;6HX [7;7HX [7;8HX [7;9HX [7;10HX [7;11HX [7;12H -X [8;2HX [8;3HX [8;4HX [8;5HX [8;6HX [8;7HX [8;8HX [8;9HX [8;10HX [8;11HX [8;12H -X [9;2HX [9;3HX [9;4HX [9;5HX [9;6HX [9;7HX [9;8HX [9;9HX [9;10HX [9;11HX [9;12H -X [10;2HX [10;3HX [10;4HX [10;5HX [10;6HX [10;7HX [10;8HX [10;9HX [10;10HX [10;1 -X [11;2HX [11;3HX [11;4HX [11;5HX [11;6HX [11;7HX [11;8HX [11;9HX [11;10HX [11;1 -X [12;2HX [12;3HX [12;4HX [12;5HX [12;6HX [12;7HX [12;8HX [12;9HX [12;10HX [12;1 -X [13;2HX [13;3HX [13;4HX [13;5HX [13;6HX [13;7HX [13;8HX [13;9HX [13;10HX [13;1 -X [14;2HX [14;3HX [14;4HX [14;5HX [14;6HX [14;7HX [14;8HX [14;9HX [14;10HX [14;1 -X [15;2HX [15;3HX [15;4HX [15;5HX [15;6HX [15;7HX [15;8HX [15;9HX [15;10HX [15;1 -X [16;2HX [16;3HX [16;4HX [16;5HX [16;6HX [16;7HX [16;8HX [16;9HX [16;10HX [16;1 -Y [1;2HY [1;3HY [1;4HY [1;5HY [1;6HY [1;7HY [1;8HY [1;9HY [1;10HY [1;11HY [1;12H -Y [2;2HY [2;3HY [2;4HY [2;5HY [2;6HY [2;7HY [2;8HY [2;9HY [2;10HY [2;11HY [2;12H -Y [3;2HY [3;3HY [3;4HY [3;5HY [3;6HY [3;7HY [3;8HY [3;9HY [3;10HY [3;11HY [3;12H -Y [4;2HY [4;3HY [4;4HY [4;5HY [4;6HY [4;7HY [4;8HY [4;9HY [4;10HY [4;11HY [4;12H -Y [5;2HY [5;3HY [5;4HY [5;5HY [5;6HY [5;7HY [5;8HY [5;9HY [5;10HY [5;11HY [5;12H -Y [6;2HY [6;3HY [6;4HY [6;5HY [6;6HY [6;7HY [6;8HY [6;9HY [6;10HY [6;11HY [6;12H -Y [7;2HY [7;3HY [7;4HY [7;5HY [7;6HY [7;7HY [7;8HY [7;9HY [7;10HY [7;11HY [7;12H -Y [8;2HY [8;3HY [8;4HY [8;5HY [8;6HY [8;7HY [8;8HY [8;9HY [8;10HY [8;11HY [8;12H -Y [9;2HY [9;3HY [9;4HY [9;5HY [9;6HY [9;7HY [9;8HY [9;9HY [9;10HY [9;11HY [9;12H -Y [10;2HY [10;3HY [10;4HY [10;5HY [10;6HY [10;7HY [10;8HY [10;9HY [10;10HY [10;1 -Y [11;2HY [11;3HY [11;4HY [11;5HY [11;6HY [11;7HY [11;8HY [11;9HY [11;10HY [11;1 -Y [12;2HY [12;3HY [12;4HY [12;5HY [12;6HY [12;7HY [12;8HY [12;9HY [12;10HY [12;1 -Y [13;2HY [13;3HY [13;4HY [13;5HY [13;6HY [13;7HY [13;8HY [13;9HY [13;10HY [13;1 -Y [14;2HY [14;3HY [14;4HY [14;5HY [14;6HY [14;7HY [14;8HY [14;9HY [14;10HY [14;1 -Y [15;2HY [15;3HY [15;4HY [15;5HY [15;6HY [15;7HY [15;8HY [15;9HY [15;10HY [15;1 -Y [16;2HY [16;3HY [16;4HY [16;5HY [16;6HY [16;7HY [16;8HY [16;9HY [16;10HY [16;1 -Z [1;2HZ [1;3HZ [1;4HZ [1;5HZ [1;6HZ [1;7HZ [1;8HZ [1;9HZ [1;10HZ [1;11HZ [1;12H -Z [2;2HZ [2;3HZ [2;4HZ [2;5HZ [2;6HZ [2;7HZ [2;8HZ [2;9HZ [2;10HZ [2;11HZ [2;12H -Z [3;2HZ [3;3HZ [3;4HZ [3;5HZ [3;6HZ [3;7HZ [3;8HZ [3;9HZ [3;10HZ [3;11HZ [3;12H -Z [4;2HZ [4;3HZ [4;4HZ [4;5HZ [4;6HZ [4;7HZ [4;8HZ [4;9HZ [4;10HZ [4;11HZ [4;12H -Z [5;2HZ [5;3HZ [5;4HZ [5;5HZ [5;6HZ [5;7HZ [5;8HZ [5;9HZ [5;10HZ [5;11HZ [5;12H -Z [6;2HZ [6;3HZ [6;4HZ [6;5HZ [6;6HZ [6;7HZ [6;8HZ [6;9HZ [6;10HZ [6;11HZ [6;12H -Z [7;2HZ [7;3HZ [7;4HZ [7;5HZ [7;6HZ [7;7HZ [7;8HZ [7;9HZ [7;10HZ [7;11HZ [7;12H -Z [8;2HZ [8;3HZ [8;4HZ [8;5HZ [8;6HZ [8;7HZ [8;8HZ [8;9HZ [8;10HZ [8;11HZ [8;12H -Z [9;2HZ [9;3HZ [9;4HZ [9;5HZ [9;6HZ [9;7HZ [9;8HZ [9;9HZ [9;10HZ [9;11HZ [9;12H -Z [10;2HZ [10;3HZ [10;4HZ [10;5HZ [10;6HZ [10;7HZ [10;8HZ [10;9HZ [10;10HZ [10;1 -Z [11;2HZ [11;3HZ [11;4HZ [11;5HZ [11;6HZ [11;7HZ [11;8HZ [11;9HZ [11;10HZ [11;1 -Z [12;2HZ [12;3HZ [12;4HZ [12;5HZ [12;6HZ [12;7HZ [12;8HZ [12;9HZ [12;10HZ [12;1 -Z [13;2HZ [13;3HZ [13;4HZ [13;5HZ [13;6HZ [13;7HZ [13;8HZ [13;9HZ [13;10HZ [13;1 -Z [14;2HZ [14;3HZ [14;4HZ [14;5HZ [14;6HZ [14;7HZ [14;8HZ [14;9HZ [14;10HZ [14;1 -Z [15;2HZ [15;3HZ [15;4HZ [15;5HZ [15;6HZ [15;7HZ [15;8HZ [15;9HZ [15;10HZ [15;1 -Z [16;2HZ [16;3HZ [16;4HZ [16;5HZ [16;6HZ [16;7HZ [16;8HZ [16;9HZ [16;10HZ [16;1 diff --git a/bwbtest/HB1/PRINT_1.BAS b/bwbtest/HB1/PRINT_1.BAS deleted file mode 100644 index d65eaf9..0000000 --- a/bwbtest/HB1/PRINT_1.BAS +++ /dev/null @@ -1,3 +0,0 @@ -10 REM 'PRINT' TEST PROGRAM -20 PRINT "THE PRINT STATEMENT WORKS" -99 END diff --git a/bwbtest/HB1/PRINT_1.run b/bwbtest/HB1/PRINT_1.run deleted file mode 100644 index 4c719b7..0000000 --- a/bwbtest/HB1/PRINT_1.run +++ /dev/null @@ -1 +0,0 @@ -THE PRINT STATEMENT WORKS diff --git a/bwbtest/HB1/PRINT_2.BAS b/bwbtest/HB1/PRINT_2.BAS deleted file mode 100644 index e26cfce..0000000 --- a/bwbtest/HB1/PRINT_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'PRINT' WITH COMMA TEST PROGRAM -20 PRINT "THE COMMA WORKED IN THE PRINT STATEMENT" -30 PRINT "IF THESE NUMBERS ARE PRINTED IN ZONES" -40 PRINT 1,2,3,4 -99 END diff --git a/bwbtest/HB1/PRINT_2.run b/bwbtest/HB1/PRINT_2.run deleted file mode 100644 index 932264c..0000000 --- a/bwbtest/HB1/PRINT_2.run +++ /dev/null @@ -1,3 +0,0 @@ -THE COMMA WORKED IN THE PRINT STATEMENT -IF THESE NUMBERS ARE PRINTED IN ZONES - 1 2 3 4 diff --git a/bwbtest/HB1/PRINT_3.BAS b/bwbtest/HB1/PRINT_3.BAS deleted file mode 100644 index a95b71b..0000000 --- a/bwbtest/HB1/PRINT_3.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'PRINT' WITH SEMICOLON TEST PROGRAM -20 PRINT "IS THIS PRINTED "; -30 PRINT "ON ONE LINE?" -99 END diff --git a/bwbtest/HB1/PRINT_3.run b/bwbtest/HB1/PRINT_3.run deleted file mode 100644 index 2efb4a7..0000000 --- a/bwbtest/HB1/PRINT_3.run +++ /dev/null @@ -1 +0,0 @@ -IS THIS PRINTED ON ONE LINE? diff --git a/bwbtest/HB1/PRINT_AT_1.BAS b/bwbtest/HB1/PRINT_AT_1.BAS deleted file mode 100644 index 12aaf6b..0000000 --- a/bwbtest/HB1/PRINT_AT_1.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'PRINT AT' TEST PROGRAM -20 PRINT AT 128;"2. IF THIS LINE IS PRINTED AFTER LINE 1." -30 PRINT AT 0,"1. THE 'PRINT AT' STATEMENT PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/PRINT_AT_1.PRO b/bwbtest/HB1/PRINT_AT_1.PRO deleted file mode 100644 index 748ecf1..0000000 --- a/bwbtest/HB1/PRINT_AT_1.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION TERMINAL ANSI -WIDTH 16,64 diff --git a/bwbtest/HB1/PRINT_AT_1.run b/bwbtest/HB1/PRINT_AT_1.run deleted file mode 100644 index 4c7c6a2..0000000 --- a/bwbtest/HB1/PRINT_AT_1.run +++ /dev/null @@ -1,2 +0,0 @@ - [3;1H2. IF THIS LINE IS PRINTED AFTER LINE 1. - [1;1H1. THE 'PRINT AT' STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1/PRINT_AT_2.BAS b/bwbtest/HB1/PRINT_AT_2.BAS deleted file mode 100644 index 276335c..0000000 --- a/bwbtest/HB1/PRINT_AT_2.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'PRINT AT' TEST PROGRAM -20 PRINT AT (128);"2. IF THIS LINE IS PRINTED AFTER LINE 1." -30 PRINT AT (0),"1. THE 'PRINT AT' STATEMENT PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/PRINT_AT_2.PRO b/bwbtest/HB1/PRINT_AT_2.PRO deleted file mode 100644 index 748ecf1..0000000 --- a/bwbtest/HB1/PRINT_AT_2.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION TERMINAL ANSI -WIDTH 16,64 diff --git a/bwbtest/HB1/PRINT_AT_2.run b/bwbtest/HB1/PRINT_AT_2.run deleted file mode 100644 index 4c7c6a2..0000000 --- a/bwbtest/HB1/PRINT_AT_2.run +++ /dev/null @@ -1,2 +0,0 @@ - [3;1H2. IF THIS LINE IS PRINTED AFTER LINE 1. - [1;1H1. THE 'PRINT AT' STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1/PRINT_USING_1.BAS b/bwbtest/HB1/PRINT_USING_1.BAS deleted file mode 100644 index 4a80450..0000000 --- a/bwbtest/HB1/PRINT_USING_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'PRINT USING' TEST PROGRAM -20 PRINT "THE # OPERATOR PASSED THE PRINT USING TEST" -30 PRINT "IF THE FOLLOWING NUMBERS ARE PRINTED" -40 FOR X=1 TO 5 -50 READ N -60 PRINT USING "#######.##";N -70 NEXT X -80 DATA 1.2,400,2400000,82450.5,-.25 -99 END diff --git a/bwbtest/HB1/PRINT_USING_1.run b/bwbtest/HB1/PRINT_USING_1.run deleted file mode 100644 index f7380fb..0000000 --- a/bwbtest/HB1/PRINT_USING_1.run +++ /dev/null @@ -1,7 +0,0 @@ -THE # OPERATOR PASSED THE PRINT USING TEST -IF THE FOLLOWING NUMBERS ARE PRINTED - 1.20 - 400.00 -2400000.00 - 82450.50 - -0.25 diff --git a/bwbtest/HB1/PRINT_USING_2.BAS b/bwbtest/HB1/PRINT_USING_2.BAS deleted file mode 100644 index 9ba4eda..0000000 --- a/bwbtest/HB1/PRINT_USING_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'PRINT USING' (ASTERISK) TEST PROGRAM -20 PRINT "THE # OPERATOR PASSED THE PRINT USING TEST" -30 PRINT "IF THE FOLLOWING NUMBERS ARE PRINTED" -40 FOR X=1 TO 5 -50 READ N -60 PRINT USING "**######.##";N -70 NEXT X -80 DATA 1.2,400,2400000,82450.5,-.25 -99 END diff --git a/bwbtest/HB1/PRINT_USING_2.run b/bwbtest/HB1/PRINT_USING_2.run deleted file mode 100644 index 3e8d520..0000000 --- a/bwbtest/HB1/PRINT_USING_2.run +++ /dev/null @@ -1,7 +0,0 @@ -THE # OPERATOR PASSED THE PRINT USING TEST -IF THE FOLLOWING NUMBERS ARE PRINTED -*******1.20 -*****400.00 -*2400000.00 -***82450.50 -******-0.25 diff --git a/bwbtest/HB1/PRINT_USING_3.BAS b/bwbtest/HB1/PRINT_USING_3.BAS deleted file mode 100644 index 0aad7da..0000000 --- a/bwbtest/HB1/PRINT_USING_3.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'PRINT USING' (DOLLAR) TEST PROGRAM -20 PRINT "THE # OPERATOR PASSED THE PRINT USING TEST" -30 PRINT "IF THE FOLLOWING NUMBERS ARE PRINTED" -40 FOR X=1 TO 5 -50 READ N -60 PRINT USING "$$######.##";N -70 NEXT X -80 DATA 1.2,400,2400000,82450.5,-.25 -99 END diff --git a/bwbtest/HB1/PRINT_USING_3.run b/bwbtest/HB1/PRINT_USING_3.run deleted file mode 100644 index 1a4c2f0..0000000 --- a/bwbtest/HB1/PRINT_USING_3.run +++ /dev/null @@ -1,7 +0,0 @@ -THE # OPERATOR PASSED THE PRINT USING TEST -IF THE FOLLOWING NUMBERS ARE PRINTED - $1.20 - $400.00 -$2400000.00 - $82450.50 - -$0.25 diff --git a/bwbtest/HB1/PRINT_USING_4.BAS b/bwbtest/HB1/PRINT_USING_4.BAS deleted file mode 100644 index e3730b5..0000000 --- a/bwbtest/HB1/PRINT_USING_4.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'PRINT USING' (COMMA) TEST PROGRAM -20 PRINT "THE # OPERATOR PASSED THE PRINT USING TEST" -30 PRINT "IF THE FOLLOWING NUMBERS ARE PRINTED" -40 FOR X=1 TO 5 -50 READ N -60 PRINT USING "#,#######.##";N -70 NEXT X -80 DATA 1.2,400,2400000,82450.5,-.25 -99 END diff --git a/bwbtest/HB1/PRINT_USING_4.run b/bwbtest/HB1/PRINT_USING_4.run deleted file mode 100644 index 6f0f4ff..0000000 --- a/bwbtest/HB1/PRINT_USING_4.run +++ /dev/null @@ -1,7 +0,0 @@ -THE # OPERATOR PASSED THE PRINT USING TEST -IF THE FOLLOWING NUMBERS ARE PRINTED - 1.20 - 400.00 -2,400,000.00 - 82,450.50 - -0.25 diff --git a/bwbtest/HB1/PRINT_USING_5.BAS b/bwbtest/HB1/PRINT_USING_5.BAS deleted file mode 100644 index cf5b1c6..0000000 --- a/bwbtest/HB1/PRINT_USING_5.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'PRINT USING' (PLUS) TEST PROGRAM -20 PRINT "THE # OPERATOR PASSED THE PRINT USING TEST" -30 PRINT "IF THE FOLLOWING NUMBERS ARE PRINTED" -40 FOR X=1 TO 5 -50 READ N -60 PRINT USING "+########.##";N -70 NEXT X -80 DATA 1.2,400,2400000,82450.5,-.25 -99 END diff --git a/bwbtest/HB1/PRINT_USING_5.run b/bwbtest/HB1/PRINT_USING_5.run deleted file mode 100644 index a50e1e9..0000000 --- a/bwbtest/HB1/PRINT_USING_5.run +++ /dev/null @@ -1,7 +0,0 @@ -THE # OPERATOR PASSED THE PRINT USING TEST -IF THE FOLLOWING NUMBERS ARE PRINTED - +1.20 - +400.00 - +2400000.00 - +82450.50 - -0.25 diff --git a/bwbtest/HB1/PRINT_USING_6.BAS b/bwbtest/HB1/PRINT_USING_6.BAS deleted file mode 100644 index 783ac37..0000000 --- a/bwbtest/HB1/PRINT_USING_6.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'PRINT USING EXPONENTIATION' TEST PROGRAM -20 PRINT "PRINT USING '^^^^' PASSED THE TEST" -30 PRINT "IF THE NUMBER";123456 -40 PRINT "IS PRINTED USING SCIENTIFIC NOTATION" -50 PRINT USING "##^^^^ ";123456 -99 END diff --git a/bwbtest/HB1/PRINT_USING_6.run b/bwbtest/HB1/PRINT_USING_6.run deleted file mode 100644 index b4889c4..0000000 --- a/bwbtest/HB1/PRINT_USING_6.run +++ /dev/null @@ -1,4 +0,0 @@ -PRINT USING '^^^^' PASSED THE TEST -IF THE NUMBER 123456 -IS PRINTED USING SCIENTIFIC NOTATION -1.2346e+05 diff --git a/bwbtest/HB1/PRINT_USING_7.BAS b/bwbtest/HB1/PRINT_USING_7.BAS deleted file mode 100644 index f93c71d..0000000 --- a/bwbtest/HB1/PRINT_USING_7.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'PRINT USING !' TEST PROGRAM -20 PRINT "ENTER A SAMPLE WORD"; -30 INPUT A$ -40 PRINT "THE PRINT USING STATEMENT AND THE ! OPERATOR" -50 PRINT "PASSED THE TEST IF THE FIRST LETTER IN ";A$;" IS "; -60 PRINT USING "!";A$ -99 END diff --git a/bwbtest/HB1/PRINT_USING_7.INP b/bwbtest/HB1/PRINT_USING_7.INP deleted file mode 100644 index 9ed4614..0000000 --- a/bwbtest/HB1/PRINT_USING_7.INP +++ /dev/null @@ -1 +0,0 @@ -ABCD diff --git a/bwbtest/HB1/PRINT_USING_7.run b/bwbtest/HB1/PRINT_USING_7.run deleted file mode 100644 index f2eaa54..0000000 --- a/bwbtest/HB1/PRINT_USING_7.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A SAMPLE WORD? ABCD -THE PRINT USING STATEMENT AND THE ! OPERATOR -PASSED THE TEST IF THE FIRST LETTER IN ABCD IS A diff --git a/bwbtest/HB1/PRINT_USING_8.BAS b/bwbtest/HB1/PRINT_USING_8.BAS deleted file mode 100644 index a035ce4..0000000 --- a/bwbtest/HB1/PRINT_USING_8.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'PRINT USING \' TEST PROGRAM -20 A$="TESTIFIED" -30 PRINT "THE PRINT USING STATEMENT " -40 PRINT "AND THE \ OPERATOR PASSED THE "; -50 PRINT USING "\ \";A$ -99 END diff --git a/bwbtest/HB1/PRINT_USING_8.PRO b/bwbtest/HB1/PRINT_USING_8.PRO deleted file mode 100644 index 155654d..0000000 --- a/bwbtest/HB1/PRINT_USING_8.PRO +++ /dev/null @@ -1,13 +0,0 @@ -REM OPTION USING "#,.+-^$*_!&\" -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" diff --git a/bwbtest/HB1/PRINT_USING_8.run b/bwbtest/HB1/PRINT_USING_8.run deleted file mode 100644 index e7c54c5..0000000 --- a/bwbtest/HB1/PRINT_USING_8.run +++ /dev/null @@ -1,2 +0,0 @@ -THE PRINT USING STATEMENT -AND THE \ OPERATOR PASSED THE TEST diff --git a/bwbtest/HB1/PRINT_USING_9.BAS b/bwbtest/HB1/PRINT_USING_9.BAS deleted file mode 100644 index a4425ac..0000000 --- a/bwbtest/HB1/PRINT_USING_9.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'PRINT USING VARIABLES' TEST PROGRAM -20 A$="**$####.##" -30 B$="\ \" -40 C$="TESTIMONIAL" -50 A=14.95 -60 PRINT "THE BASIC HANDBOOK PASSED THE "; -70 PRINT USING A$;A; -80 PRINT USING B$;C$ -99 END diff --git a/bwbtest/HB1/PRINT_USING_9.PRO b/bwbtest/HB1/PRINT_USING_9.PRO deleted file mode 100644 index 155654d..0000000 --- a/bwbtest/HB1/PRINT_USING_9.PRO +++ /dev/null @@ -1,13 +0,0 @@ -REM OPTION USING "#,.+-^$*_!&\" -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" diff --git a/bwbtest/HB1/PRINT_USING_9.run b/bwbtest/HB1/PRINT_USING_9.run deleted file mode 100644 index 8cf15ff..0000000 --- a/bwbtest/HB1/PRINT_USING_9.run +++ /dev/null @@ -1 +0,0 @@ -THE BASIC HANDBOOK PASSED THE ****$14.95TEST diff --git a/bwbtest/HB1/PRINT_USING_A.BAS b/bwbtest/HB1/PRINT_USING_A.BAS deleted file mode 100644 index 9c55849..0000000 --- a/bwbtest/HB1/PRINT_USING_A.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'PRINT USING VARIABLES' TEST PROGRAM -20 A$="**$####.##\ \" -40 C$="TESTIMONIAL" -50 A=14.95 -60 PRINT "THE BASIC HANDBOOK PASSED THE "; -70 PRINT USING A$;A;C$ -99 END diff --git a/bwbtest/HB1/PRINT_USING_A.PRO b/bwbtest/HB1/PRINT_USING_A.PRO deleted file mode 100644 index 155654d..0000000 --- a/bwbtest/HB1/PRINT_USING_A.PRO +++ /dev/null @@ -1,13 +0,0 @@ -REM OPTION USING "#,.+-^$*_!&\" -OPTION USING DIGIT "#" -OPTION USING COMMA "," -OPTION USING PERIOD "." -OPTION USING PLUS "+" -OPTION USING MINUS "-" -OPTION USING EXRAD "^" -OPTION USING DOLLAR "$" -OPTION USING FILLER "*" -OPTION USING LITERAL "_" -OPTION USING FIRST "!" -OPTION USING ALL "&" -OPTION USING LENGTH "\" diff --git a/bwbtest/HB1/PRINT_USING_A.run b/bwbtest/HB1/PRINT_USING_A.run deleted file mode 100644 index 8cf15ff..0000000 --- a/bwbtest/HB1/PRINT_USING_A.run +++ /dev/null @@ -1 +0,0 @@ -THE BASIC HANDBOOK PASSED THE ****$14.95TEST diff --git a/bwbtest/HB1/PRINT_USING_B.BAS b/bwbtest/HB1/PRINT_USING_B.BAS deleted file mode 100644 index edd692f..0000000 --- a/bwbtest/HB1/PRINT_USING_B.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'PRINT USING VARIABLES' TEST PROGRAM -20 A$="% %****$####.##% %" -30 B$="THE BASIC HANDBOOK PASSED THE !!!!!!!!!!!!!!!!" -40 C$="TESTIMONIAL" -50 A=14.95 -70 PRINT USING A$;B$,A;C$ -80 REM SHOULD NOT SEE ANY '!' -99 END diff --git a/bwbtest/HB1/PRINT_USING_B.run b/bwbtest/HB1/PRINT_USING_B.run deleted file mode 100644 index 2354963..0000000 --- a/bwbtest/HB1/PRINT_USING_B.run +++ /dev/null @@ -1 +0,0 @@ -THE BASIC HANDBOOK PASSED THE ******$14.95TEST diff --git a/bwbtest/HB1/PRINT_USING_C.BAS b/bwbtest/HB1/PRINT_USING_C.BAS deleted file mode 100644 index 2f38a4d..0000000 --- a/bwbtest/HB1/PRINT_USING_C.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'PRINT USING LINE NUMBER' TEST PROGRAM -20 PRINT "THE PRINT USING STATEMENT PASSES THE TEST" -30 PRINT "IF THE NUMBER";125.50;"IS PRINTED NEXT" -40 PRINT USING 50,125.5 -50 :###.## -99 END diff --git a/bwbtest/HB1/PRINT_USING_C.PRO b/bwbtest/HB1/PRINT_USING_C.PRO deleted file mode 100644 index a10e66a..0000000 --- a/bwbtest/HB1/PRINT_USING_C.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION PUNCT STATEMENT "" -OPTION PUNCT IMAGE ":" diff --git a/bwbtest/HB1/PRINT_USING_C.run b/bwbtest/HB1/PRINT_USING_C.run deleted file mode 100644 index d432f89..0000000 --- a/bwbtest/HB1/PRINT_USING_C.run +++ /dev/null @@ -1,3 +0,0 @@ -THE PRINT USING STATEMENT PASSES THE TEST -IF THE NUMBER 125.5 IS PRINTED NEXT -125.50 diff --git a/bwbtest/HB1/PRINT_USING_D.BAS b/bwbtest/HB1/PRINT_USING_D.BAS deleted file mode 100644 index cf90435..0000000 --- a/bwbtest/HB1/PRINT_USING_D.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'PRINT USING LINE NUMBER' TEST PROGRAM -20 PRINT "THE PRINT USING STATEMENT PASSES THE TEST" -30 PRINT "IF THE NUMBER";125.50;"IS PRINTED NEXT" -40 PRINT USING 50,125.5 -50 IMAGE ###.## -99 END diff --git a/bwbtest/HB1/PRINT_USING_D.run b/bwbtest/HB1/PRINT_USING_D.run deleted file mode 100644 index d432f89..0000000 --- a/bwbtest/HB1/PRINT_USING_D.run +++ /dev/null @@ -1,3 +0,0 @@ -THE PRINT USING STATEMENT PASSES THE TEST -IF THE NUMBER 125.5 IS PRINTED NEXT -125.50 diff --git a/bwbtest/HB1/RANDOMIZE_1.BAS b/bwbtest/HB1/RANDOMIZE_1.BAS deleted file mode 100644 index 5551638..0000000 --- a/bwbtest/HB1/RANDOMIZE_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'RANDOMIZE' TEST PROGRAM -20 RANDOMIZE -30 FOR X=1 TO 8 -40 PRINT RND(0), -50 NEXT X -99 END diff --git a/bwbtest/HB1/RANDOMIZE_1.run b/bwbtest/HB1/RANDOMIZE_1.run deleted file mode 100644 index 3ad1541..0000000 --- a/bwbtest/HB1/RANDOMIZE_1.run +++ /dev/null @@ -1,2 +0,0 @@ - .325818 .475745 .12615 .325822 9.08663E-2 - .129495 .538177 .244373 diff --git a/bwbtest/HB1/READ_1.BAS b/bwbtest/HB1/READ_1.BAS deleted file mode 100644 index 29e8021..0000000 --- a/bwbtest/HB1/READ_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'READ' STATEMENT TEST PROGRAM -20 READ A -30 PRINT "THE READ STATEMENT WORKED IN LINE";A -40 DATA 20 -99 END diff --git a/bwbtest/HB1/READ_1.run b/bwbtest/HB1/READ_1.run deleted file mode 100644 index 408e050..0000000 --- a/bwbtest/HB1/READ_1.run +++ /dev/null @@ -1 +0,0 @@ -THE READ STATEMENT WORKED IN LINE 20 diff --git a/bwbtest/HB1/READ_2.BAS b/bwbtest/HB1/READ_2.BAS deleted file mode 100644 index 46a07c8..0000000 --- a/bwbtest/HB1/READ_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'MULTIPLE READ' STATEMENT TEST PROGRAM -20 READ A,B,C -30 D=A+B+C -40 PRINT "D=";D -50 PRINT "THE READ STATEMENT PASSED THE TEST IF D=60" -60 DATA 10,20,30 -99 END diff --git a/bwbtest/HB1/READ_2.run b/bwbtest/HB1/READ_2.run deleted file mode 100644 index b4f077c..0000000 --- a/bwbtest/HB1/READ_2.run +++ /dev/null @@ -1,2 +0,0 @@ -D= 60 -THE READ STATEMENT PASSED THE TEST IF D=60 diff --git a/bwbtest/HB1/READ_3.BAS b/bwbtest/HB1/READ_3.BAS deleted file mode 100644 index d5ca0ab..0000000 --- a/bwbtest/HB1/READ_3.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'READ STRINGS' TEST PROGRAM -20 READ D$ -30 PRINT "THE READ STATEMENT PASSED THE ";D$ -40 DATA TEST -99 END diff --git a/bwbtest/HB1/READ_3.run b/bwbtest/HB1/READ_3.run deleted file mode 100644 index b3bfb53..0000000 --- a/bwbtest/HB1/READ_3.run +++ /dev/null @@ -1 +0,0 @@ -THE READ STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1/READ_4.BAS b/bwbtest/HB1/READ_4.BAS deleted file mode 100644 index 11401fe..0000000 --- a/bwbtest/HB1/READ_4.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'MULTIPLE READ' STATEMENT TEST PROGRAM -20 READ A,B,C,D$ -30 D=A+B+C -40 PRINT "THE READ STATEMENT PASSED THE TEST IN ";D$;D -50 DATA 2,8,10,LINE -99 END diff --git a/bwbtest/HB1/READ_4.run b/bwbtest/HB1/READ_4.run deleted file mode 100644 index d16f34d..0000000 --- a/bwbtest/HB1/READ_4.run +++ /dev/null @@ -1 +0,0 @@ -THE READ STATEMENT PASSED THE TEST IN LINE 20 diff --git a/bwbtest/HB1/REMARK_1.BAS b/bwbtest/HB1/REMARK_1.BAS deleted file mode 100644 index 16c3152..0000000 --- a/bwbtest/HB1/REMARK_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 PRINT "'REMARK' TEST PROGRAM" -20 REMARK PRINT "REMARK FAILED THE TEST" -30 REMARK * REMARK FAILED THE TEST IS LINE 20 IS PRINTED* -40 PRINT "REMARK PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/REMARK_1.run b/bwbtest/HB1/REMARK_1.run deleted file mode 100644 index 21029e6..0000000 --- a/bwbtest/HB1/REMARK_1.run +++ /dev/null @@ -1,2 +0,0 @@ -'REMARK' TEST PROGRAM -REMARK PASSED THE TEST diff --git a/bwbtest/HB1/REM_1.BAS b/bwbtest/HB1/REM_1.BAS deleted file mode 100644 index e96cd15..0000000 --- a/bwbtest/HB1/REM_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 PRINT "'REM' TEST PROGRAM" -20 REM PRINT "REM FAILED THE TEST" -30 REM * REM FAILED THE TEST IS LINE 20 IS PRINTED* -40 PRINT "REM PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/REM_1.run b/bwbtest/HB1/REM_1.run deleted file mode 100644 index 5efd044..0000000 --- a/bwbtest/HB1/REM_1.run +++ /dev/null @@ -1,2 +0,0 @@ -'REM' TEST PROGRAM -REM PASSED THE TEST diff --git a/bwbtest/HB1/RENUM_1.BAS b/bwbtest/HB1/RENUM_1.BAS deleted file mode 100644 index b77ab84..0000000 --- a/bwbtest/HB1/RENUM_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -2 REM 'RENUM' TEST PROGRAM -3 X=1 -4 PRINT "IF THE PROGRAM LINES "; -5 GOTO 10 -6 PRINT "THE RENUM COMMAND "; -7 X=2 -8 GOTO 12 -10 PRINT "ARE RENUMBERED" -12 ON X GOTO 6,14 -14 PRINT "PASSED THE TEST." -16 END diff --git a/bwbtest/HB1/RESTORE_1.BAS b/bwbtest/HB1/RESTORE_1.BAS deleted file mode 100644 index 6341158..0000000 --- a/bwbtest/HB1/RESTORE_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'RESTORE' TEST PROGRAM -20 READ X -30 IF X=3 THEN 50 -40 GOTO 20 -50 RESTORE -60 READ X -70 IF X=1 THEN 100 -80 PRINT "RESTORE FAILED THE TEST" -90 GOTO 999 -100 PRINT "RESTORE PASSED THE TEST" -110 DATA 1,2,3 -999 END diff --git a/bwbtest/HB1/RESTORE_1.run b/bwbtest/HB1/RESTORE_1.run deleted file mode 100644 index 30d20fe..0000000 --- a/bwbtest/HB1/RESTORE_1.run +++ /dev/null @@ -1 +0,0 @@ -RESTORE PASSED THE TEST diff --git a/bwbtest/HB1/RESTORE_2.BAS b/bwbtest/HB1/RESTORE_2.BAS deleted file mode 100644 index 287cc20..0000000 --- a/bwbtest/HB1/RESTORE_2.BAS +++ /dev/null @@ -1,19 +0,0 @@ -10 REM 'RESTORE (LINE#)' TEST PROGRAM -20 READ X -30 PRINT X; -40 IF X=3 THEN 60 -50 GOTO 20 -60 READ X -70 PRINT X; -80 IF X=6 THEN 100 -90 GOTO 60 -100 RESTORE 180 -110 READ X -120 IF X=4 THEN 150 -130 PRINT "RESTORE FAILED THE TEST" -140 STOP -150 PRINT "RESTORE PASSED THE TEST" -160 GOTO 999 -170 DATA 1,2,3 -180 DATA 4,5,6 -999 END diff --git a/bwbtest/HB1/RESTORE_2.run b/bwbtest/HB1/RESTORE_2.run deleted file mode 100644 index 25e3bea..0000000 --- a/bwbtest/HB1/RESTORE_2.run +++ /dev/null @@ -1 +0,0 @@ - 1 2 3 4 5 6 RESTORE PASSED THE TEST diff --git a/bwbtest/HB1/RESUME_1.BAS b/bwbtest/HB1/RESUME_1.BAS deleted file mode 100644 index bbe1b89..0000000 --- a/bwbtest/HB1/RESUME_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'RESUME' TEST PROGRAM -20 ON ERROR GOTO 100 -30 PRINT "ENTER A POSITIVE NUMBER"; -40 INPUT N -45 IF N = 0 THEN 999 -50 A=LOG(N) -60 PRINT "THE LOG OF";N;"IS";A -70 GOTO 30 -100 PRINT "A NEGATIVE NUMBER IS NOT ALLOWED" -110 N=N*-1 -120 RESUME 0 -999 END diff --git a/bwbtest/HB1/RESUME_1.INP b/bwbtest/HB1/RESUME_1.INP deleted file mode 100644 index f0c3dab..0000000 --- a/bwbtest/HB1/RESUME_1.INP +++ /dev/null @@ -1,3 +0,0 @@ -100 --100 -0 diff --git a/bwbtest/HB1/RESUME_1.run b/bwbtest/HB1/RESUME_1.run deleted file mode 100644 index 3e90a1e..0000000 --- a/bwbtest/HB1/RESUME_1.run +++ /dev/null @@ -1,6 +0,0 @@ -ENTER A POSITIVE NUMBER? 100 -THE LOG OF 100 IS 4.60517 -ENTER A POSITIVE NUMBER? -100 -A NEGATIVE NUMBER IS NOT ALLOWED -THE LOG OF 100 IS 4.60517 -ENTER A POSITIVE NUMBER? 0 diff --git a/bwbtest/HB1/RESUME_2.BAS b/bwbtest/HB1/RESUME_2.BAS deleted file mode 100644 index 2a1505d..0000000 --- a/bwbtest/HB1/RESUME_2.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'RESUME' TEST PROGRAM -20 ON ERROR GOTO 100 -30 PRINT "ENTER A POSITIVE NUMBER"; -40 INPUT N -45 IF N = 0 THEN 999 -50 A=LOG(N) -60 PRINT "THE LOG OF";N;"IS";A -70 GOTO 30 -100 PRINT "A NEGATIVE NUMBER IS NOT ALLOWED" -110 N=N*-1 -120 RESUME -999 END diff --git a/bwbtest/HB1/RESUME_2.INP b/bwbtest/HB1/RESUME_2.INP deleted file mode 100644 index f0c3dab..0000000 --- a/bwbtest/HB1/RESUME_2.INP +++ /dev/null @@ -1,3 +0,0 @@ -100 --100 -0 diff --git a/bwbtest/HB1/RESUME_2.run b/bwbtest/HB1/RESUME_2.run deleted file mode 100644 index 3e90a1e..0000000 --- a/bwbtest/HB1/RESUME_2.run +++ /dev/null @@ -1,6 +0,0 @@ -ENTER A POSITIVE NUMBER? 100 -THE LOG OF 100 IS 4.60517 -ENTER A POSITIVE NUMBER? -100 -A NEGATIVE NUMBER IS NOT ALLOWED -THE LOG OF 100 IS 4.60517 -ENTER A POSITIVE NUMBER? 0 diff --git a/bwbtest/HB1/RETURN_1.BAS b/bwbtest/HB1/RETURN_1.BAS deleted file mode 100644 index dadf2a1..0000000 --- a/bwbtest/HB1/RETURN_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'RETURN' STATEMENT TEST PROGRAM -20 GOSUB 50 -30 PRINT "WAS ACCEPTED." -40 GOTO 99 -50 PRINT "THE RETURN STATEMENT "; -60 RETURN -70 PRINT "WAS NOT ACCEPTED." -99 END diff --git a/bwbtest/HB1/RETURN_1.run b/bwbtest/HB1/RETURN_1.run deleted file mode 100644 index bcca4e2..0000000 --- a/bwbtest/HB1/RETURN_1.run +++ /dev/null @@ -1 +0,0 @@ -THE RETURN STATEMENT WAS ACCEPTED. diff --git a/bwbtest/HB1/RIGHT_1.BAS b/bwbtest/HB1/RIGHT_1.BAS deleted file mode 100644 index 1c6a25f..0000000 --- a/bwbtest/HB1/RIGHT_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'RIGHT' TEST PROGRAM -20 A$="CONTEST" -30 B$=RIGHT(A$,4) -40 PRINT "THE 'RIGHT' FUNCTION PASSED THE ";B$ -99 END diff --git a/bwbtest/HB1/RIGHT_1.run b/bwbtest/HB1/RIGHT_1.run deleted file mode 100644 index 090e0cb..0000000 --- a/bwbtest/HB1/RIGHT_1.run +++ /dev/null @@ -1 +0,0 @@ -THE 'RIGHT' FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/RIGHT_2.BAS b/bwbtest/HB1/RIGHT_2.BAS deleted file mode 100644 index 80047a3..0000000 --- a/bwbtest/HB1/RIGHT_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'RIGHT$' TEST PROGRAM -20 A$="CONTEST" -30 B$=RIGHT$(A$,4) -40 PRINT "THE ";RIGHT$("ALRIGHT",5);"$ FUNCTION PASSED THE ";B$ -99 END diff --git a/bwbtest/HB1/RIGHT_2.run b/bwbtest/HB1/RIGHT_2.run deleted file mode 100644 index 9500b4d..0000000 --- a/bwbtest/HB1/RIGHT_2.run +++ /dev/null @@ -1 +0,0 @@ -THE RIGHT$ FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/RIGHT_3.BAS b/bwbtest/HB1/RIGHT_3.BAS deleted file mode 100644 index 377d03d..0000000 --- a/bwbtest/HB1/RIGHT_3.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'RIGHT$' TEST PROGRAM -15 DEF RIGHT$(A$,X)=MID$(A$,LEN(A$)-X+1,X) -20 A$="CONTEST" -30 B$=RIGHT$(A$,4) -40 PRINT "THE ";RIGHT$("ALRIGHT",5);"$ FUNCTION PASSED THE ";B$ -99 END diff --git a/bwbtest/HB1/RIGHT_3.run b/bwbtest/HB1/RIGHT_3.run deleted file mode 100644 index 9500b4d..0000000 --- a/bwbtest/HB1/RIGHT_3.run +++ /dev/null @@ -1 +0,0 @@ -THE RIGHT$ FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/RND_1.BAS b/bwbtest/HB1/RND_1.BAS deleted file mode 100644 index 2e32376..0000000 --- a/bwbtest/HB1/RND_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'RND' TEST PROGRAM -20 FOR X=1 TO 8 -30 PRINT RND, -40 NEXT X -99 END diff --git a/bwbtest/HB1/RND_1.run b/bwbtest/HB1/RND_1.run deleted file mode 100644 index 5f9038c..0000000 --- a/bwbtest/HB1/RND_1.run +++ /dev/null @@ -1,2 +0,0 @@ - .396465 .840485 .353336 .446583 .318693 - .886428 1.55828E-2 .58409 diff --git a/bwbtest/HB1/RND_2.BAS b/bwbtest/HB1/RND_2.BAS deleted file mode 100644 index 113a901..0000000 --- a/bwbtest/HB1/RND_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'RND(0)' TEST PROGRAM -20 FOR X=1 TO 8 -30 PRINT RND(0), -40 NEXT X -99 END diff --git a/bwbtest/HB1/RND_2.run b/bwbtest/HB1/RND_2.run deleted file mode 100644 index 5f9038c..0000000 --- a/bwbtest/HB1/RND_2.run +++ /dev/null @@ -1,2 +0,0 @@ - .396465 .840485 .353336 .446583 .318693 - .886428 1.55828E-2 .58409 diff --git a/bwbtest/HB1/RUN_1.BAS b/bwbtest/HB1/RUN_1.BAS deleted file mode 100644 index 5c28682..0000000 --- a/bwbtest/HB1/RUN_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'RUN' TEST PROGRAM -20 PRINT "THIS PRINTING STARTED AT LINE 20." -30 GOTO 99 -40 PRINT "THIS PRINTING STARTED AT LINE 40." -99 END diff --git a/bwbtest/HB1/RUN_1.INP b/bwbtest/HB1/RUN_1.INP deleted file mode 100644 index 35b7a05..0000000 --- a/bwbtest/HB1/RUN_1.INP +++ /dev/null @@ -1,2 +0,0 @@ -LIST -RUN 40 diff --git a/bwbtest/HB1/RUN_1.run b/bwbtest/HB1/RUN_1.run deleted file mode 100644 index cc8932a..0000000 --- a/bwbtest/HB1/RUN_1.run +++ /dev/null @@ -1,10 +0,0 @@ -THIS PRINTING STARTED AT LINE 20. -bwBASIC: LIST - 10 REM 'RUN' TEST PROGRAM - 20 PRINT "THIS PRINTING STARTED AT LINE 20." - 30 GOTO 99 - 40 PRINT "THIS PRINTING STARTED AT LINE 40." - 99 END - -bwBASIC: RUN 40 -THIS PRINTING STARTED AT LINE 40. diff --git a/bwbtest/HB1/RUN_2.BAS b/bwbtest/HB1/RUN_2.BAS deleted file mode 100644 index 5c28682..0000000 --- a/bwbtest/HB1/RUN_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'RUN' TEST PROGRAM -20 PRINT "THIS PRINTING STARTED AT LINE 20." -30 GOTO 99 -40 PRINT "THIS PRINTING STARTED AT LINE 40." -99 END diff --git a/bwbtest/HB1/RUN_2.INP b/bwbtest/HB1/RUN_2.INP deleted file mode 100644 index 67a0867..0000000 --- a/bwbtest/HB1/RUN_2.INP +++ /dev/null @@ -1,3 +0,0 @@ -RUN 40 -LIST - diff --git a/bwbtest/HB1/RUN_2.run b/bwbtest/HB1/RUN_2.run deleted file mode 100644 index 7ee29f7..0000000 --- a/bwbtest/HB1/RUN_2.run +++ /dev/null @@ -1,11 +0,0 @@ -THIS PRINTING STARTED AT LINE 20. -bwBASIC: RUN 40 -THIS PRINTING STARTED AT LINE 40. -bwBASIC: LIST - 10 REM 'RUN' TEST PROGRAM - 20 PRINT "THIS PRINTING STARTED AT LINE 20." - 30 GOTO 99 - 40 PRINT "THIS PRINTING STARTED AT LINE 40." - 99 END - -bwBASIC: diff --git a/bwbtest/HB1/RUN_3.BAS b/bwbtest/HB1/RUN_3.BAS deleted file mode 100644 index 8b13789..0000000 --- a/bwbtest/HB1/RUN_3.BAS +++ /dev/null @@ -1 +0,0 @@ - diff --git a/bwbtest/HB1/RUN_3.DAT b/bwbtest/HB1/RUN_3.DAT deleted file mode 100644 index 5c28682..0000000 --- a/bwbtest/HB1/RUN_3.DAT +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'RUN' TEST PROGRAM -20 PRINT "THIS PRINTING STARTED AT LINE 20." -30 GOTO 99 -40 PRINT "THIS PRINTING STARTED AT LINE 40." -99 END diff --git a/bwbtest/HB1/RUN_3.INP b/bwbtest/HB1/RUN_3.INP deleted file mode 100644 index 16803ea..0000000 --- a/bwbtest/HB1/RUN_3.INP +++ /dev/null @@ -1,3 +0,0 @@ -LOAD "RUN_3.DAT" -RUN 40 -LIST diff --git a/bwbtest/HB1/RUN_3.run b/bwbtest/HB1/RUN_3.run deleted file mode 100644 index 590560e..0000000 --- a/bwbtest/HB1/RUN_3.run +++ /dev/null @@ -1,10 +0,0 @@ -bwBASIC: LOAD "RUN_3.DAT" -bwBASIC: RUN 40 -THIS PRINTING STARTED AT LINE 40. -bwBASIC: LIST - 10 REM 'RUN' TEST PROGRAM - 20 PRINT "THIS PRINTING STARTED AT LINE 20." - 30 GOTO 99 - 40 PRINT "THIS PRINTING STARTED AT LINE 40." - 99 END - diff --git a/bwbtest/HB1/SAVE_1.BAS b/bwbtest/HB1/SAVE_1.BAS deleted file mode 100644 index 616bf81..0000000 --- a/bwbtest/HB1/SAVE_1.BAS +++ /dev/null @@ -1,3 +0,0 @@ -10 REM 'SAVE' TEST PROGRAM -20 PRINT "THIS PROGRAM TESTS THE SAVE FEATURE" -99 END diff --git a/bwbtest/HB1/SAVE_1.DAT b/bwbtest/HB1/SAVE_1.DAT deleted file mode 100644 index 93ae283..0000000 --- a/bwbtest/HB1/SAVE_1.DAT +++ /dev/null @@ -1,4 +0,0 @@ - 10 REM 'SAVE' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE SAVE FEATURE" - 99 END - diff --git a/bwbtest/HB1/SAVE_1.INP b/bwbtest/HB1/SAVE_1.INP deleted file mode 100644 index 561f90b..0000000 --- a/bwbtest/HB1/SAVE_1.INP +++ /dev/null @@ -1,7 +0,0 @@ -LIST -SAVE "SAVE_1.DAT" -NEW -LIST -LOAD "SAVE_1.DAT" -LIST -RUN diff --git a/bwbtest/HB1/SAVE_1.run b/bwbtest/HB1/SAVE_1.run deleted file mode 100644 index 9f1a20c..0000000 --- a/bwbtest/HB1/SAVE_1.run +++ /dev/null @@ -1,18 +0,0 @@ -THIS PROGRAM TESTS THE SAVE FEATURE -bwBASIC: LIST - 10 REM 'SAVE' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE SAVE FEATURE" - 99 END - -bwBASIC: SAVE "SAVE_1.DAT" -bwBASIC: NEW -bwBASIC: LIST - -bwBASIC: LOAD "SAVE_1.DAT" -bwBASIC: LIST - 10 REM 'SAVE' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE SAVE FEATURE" - 99 END - -bwBASIC: RUN -THIS PROGRAM TESTS THE SAVE FEATURE diff --git a/bwbtest/HB1/SIN_1.BAS b/bwbtest/HB1/SIN_1.BAS deleted file mode 100644 index 8cc1785..0000000 --- a/bwbtest/HB1/SIN_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'SIN' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN RADIANS)"; -30 INPUT R -40 Y=SIN(R) -50 PRINT "THE SINE OF A";R;"RADIAN ANGLE IS";Y -99 END diff --git a/bwbtest/HB1/SIN_1.INP b/bwbtest/HB1/SIN_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB1/SIN_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB1/SIN_1.run b/bwbtest/HB1/SIN_1.run deleted file mode 100644 index 61dbe45..0000000 --- a/bwbtest/HB1/SIN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN RADIANS)? 0.5 -THE SINE OF A .5 RADIAN ANGLE IS .479426 diff --git a/bwbtest/HB1/SLEEP_1.BAS b/bwbtest/HB1/SLEEP_1.BAS deleted file mode 100644 index d76dc5f..0000000 --- a/bwbtest/HB1/SLEEP_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'SLEEP' TEST PROGRAM -20 PRINT "THE COMPUTER SHOULD PRINT THE FOLLOWING LINE" -30 SLEEP 15 -40 PRINT "AFTER SLEEPING 15 SECONDS" -99 END diff --git a/bwbtest/HB1/SLEEP_1.PRO b/bwbtest/HB1/SLEEP_1.PRO deleted file mode 100644 index 106062a..0000000 --- a/bwbtest/HB1/SLEEP_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION SLEEP 0.10 ' SLEEP X/10 SECONDS diff --git a/bwbtest/HB1/SLEEP_1.run b/bwbtest/HB1/SLEEP_1.run deleted file mode 100644 index 6c7614f..0000000 --- a/bwbtest/HB1/SLEEP_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE COMPUTER SHOULD PRINT THE FOLLOWING LINE -AFTER SLEEPING 15 SECONDS diff --git a/bwbtest/HB1/SLEEP_2.BAS b/bwbtest/HB1/SLEEP_2.BAS deleted file mode 100644 index ebad3fb..0000000 --- a/bwbtest/HB1/SLEEP_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'SLEEP' TEST PROGRAM -15 DEF SLEEP(X)=WAIT(X) -20 PRINT "THE COMPUTER SHOULD PRINT THE FOLLOWING LINE" -30 SLEEP 15 -40 PRINT "AFTER SLEEPING 15 SECONDS" -99 END diff --git a/bwbtest/HB1/SLEEP_2.PRO b/bwbtest/HB1/SLEEP_2.PRO deleted file mode 100644 index db9e717..0000000 --- a/bwbtest/HB1/SLEEP_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION SLEEP 0.10 ' SLEEP X/10 SECONDS diff --git a/bwbtest/HB1/SLEEP_2.run b/bwbtest/HB1/SLEEP_2.run deleted file mode 100644 index 6c7614f..0000000 --- a/bwbtest/HB1/SLEEP_2.run +++ /dev/null @@ -1,2 +0,0 @@ -THE COMPUTER SHOULD PRINT THE FOLLOWING LINE -AFTER SLEEPING 15 SECONDS diff --git a/bwbtest/HB1/SPACE_1.BAS b/bwbtest/HB1/SPACE_1.BAS deleted file mode 100644 index 8fc3ef6..0000000 --- a/bwbtest/HB1/SPACE_1.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'SPACE' TEST PROGRAM -20 PRINT "IF THE FOLLOWING LINE CONTAINS 10 LEADING SPACES" -30 PRINT SPACE(10);"THE SPACE FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/SPACE_1.run b/bwbtest/HB1/SPACE_1.run deleted file mode 100644 index 5b110ae..0000000 --- a/bwbtest/HB1/SPACE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE FOLLOWING LINE CONTAINS 10 LEADING SPACES - THE SPACE FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/SPACE_2.BAS b/bwbtest/HB1/SPACE_2.BAS deleted file mode 100644 index 2fe5074..0000000 --- a/bwbtest/HB1/SPACE_2.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'SPACE$' TEST PROGRAM -20 PRINT "IF THE FOLLOWING LINE CONTAINS 10 LEADING SPACES" -30 PRINT SPACE$(10);"THE SPACE$ FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/SPACE_2.run b/bwbtest/HB1/SPACE_2.run deleted file mode 100644 index f30afb7..0000000 --- a/bwbtest/HB1/SPACE_2.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE FOLLOWING LINE CONTAINS 10 LEADING SPACES - THE SPACE$ FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/SPACE_3.BAS b/bwbtest/HB1/SPACE_3.BAS deleted file mode 100644 index fb6f86e..0000000 --- a/bwbtest/HB1/SPACE_3.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'SPACE$' TEST PROGRAM -15 DEF SPACE$(X)=STRING$(X,32) -20 PRINT "IF THE FOLLOWING LINE CONTAINS 10 LEADING SPACES" -30 PRINT SPACE$(10);"THE SPACE$ FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/SPACE_3.run b/bwbtest/HB1/SPACE_3.run deleted file mode 100644 index f30afb7..0000000 --- a/bwbtest/HB1/SPACE_3.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE FOLLOWING LINE CONTAINS 10 LEADING SPACES - THE SPACE$ FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/SPA_1.BAS b/bwbtest/HB1/SPA_1.BAS deleted file mode 100644 index f22fca6..0000000 --- a/bwbtest/HB1/SPA_1.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'SPA' TEST PROGRAM -20 PRINT "IF THE FOLLOWING LINE CONTAINS 10 LEADING SPACES" -30 PRINT SPA(10);"THE SPA FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/SPA_1.run b/bwbtest/HB1/SPA_1.run deleted file mode 100644 index 40d5f4b..0000000 --- a/bwbtest/HB1/SPA_1.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE FOLLOWING LINE CONTAINS 10 LEADING SPACES - THE SPA FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/SPC_1.BAS b/bwbtest/HB1/SPC_1.BAS deleted file mode 100644 index 08c0a3f..0000000 --- a/bwbtest/HB1/SPC_1.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'SPC' TEST PROGRAM -20 PRINT "IF THE FOLLOWING LINE CONTAINS 10 LEADING SPACES" -30 PRINT SPC(10);"THE SPC FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/SPC_1.run b/bwbtest/HB1/SPC_1.run deleted file mode 100644 index 7f47739..0000000 --- a/bwbtest/HB1/SPC_1.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE FOLLOWING LINE CONTAINS 10 LEADING SPACES - THE SPC FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/SQRT_1.BAS b/bwbtest/HB1/SQRT_1.BAS deleted file mode 100644 index 1e43fdf..0000000 --- a/bwbtest/HB1/SQRT_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'SQRT' TEST PROGRAM -20 PRINT "THE SQUARE ROOT OF 225 IS"; -30 PRINT SQRT(225) -40 PRINT "'SQRT' PASSED THE TEST IF THE RESULT IS 15" -99 END diff --git a/bwbtest/HB1/SQRT_1.run b/bwbtest/HB1/SQRT_1.run deleted file mode 100644 index 8e4ac44..0000000 --- a/bwbtest/HB1/SQRT_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE SQUARE ROOT OF 225 IS 15 -'SQRT' PASSED THE TEST IF THE RESULT IS 15 diff --git a/bwbtest/HB1/SQRT_2.BAS b/bwbtest/HB1/SQRT_2.BAS deleted file mode 100644 index 54e225e..0000000 --- a/bwbtest/HB1/SQRT_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'SQRT' TEST PROGRAM -15 DEF SQRT(X)=SQR(X) -20 PRINT "THE SQUARE ROOT OF 225 IS"; -30 PRINT SQRT(225) -40 PRINT "'SQRT' PASSED THE TEST IF THE RESULT IS 15" -99 END diff --git a/bwbtest/HB1/SQRT_2.run b/bwbtest/HB1/SQRT_2.run deleted file mode 100644 index 8e4ac44..0000000 --- a/bwbtest/HB1/SQRT_2.run +++ /dev/null @@ -1,2 +0,0 @@ -THE SQUARE ROOT OF 225 IS 15 -'SQRT' PASSED THE TEST IF THE RESULT IS 15 diff --git a/bwbtest/HB1/SQR_1.BAS b/bwbtest/HB1/SQR_1.BAS deleted file mode 100644 index 9451cf9..0000000 --- a/bwbtest/HB1/SQR_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'SQR' TEST PROGRAM -20 PRINT "THE SQUARE ROOT OF 225 IS"; -30 PRINT SQR(225) -40 PRINT "'SQR' PASSED THE TEST IF THE RESULT IS 15" -99 END diff --git a/bwbtest/HB1/SQR_1.run b/bwbtest/HB1/SQR_1.run deleted file mode 100644 index d4ff433..0000000 --- a/bwbtest/HB1/SQR_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE SQUARE ROOT OF 225 IS 15 -'SQR' PASSED THE TEST IF THE RESULT IS 15 diff --git a/bwbtest/HB1/STEP_1.BAS b/bwbtest/HB1/STEP_1.BAS deleted file mode 100644 index f059f82..0000000 --- a/bwbtest/HB1/STEP_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'STEP' TEST PROGRAM -20 PRINT "WHEN THE STEP VALUE IS 2, X="; -30 FOR X=1 TO 10 STEP 2 -40 PRINT X; -50 NEXT X -99 END diff --git a/bwbtest/HB1/STEP_1.run b/bwbtest/HB1/STEP_1.run deleted file mode 100644 index 9416cae..0000000 --- a/bwbtest/HB1/STEP_1.run +++ /dev/null @@ -1 +0,0 @@ -WHEN THE STEP VALUE IS 2, X= 1 3 5 7 9 diff --git a/bwbtest/HB1/STEP_2.BAS b/bwbtest/HB1/STEP_2.BAS deleted file mode 100644 index 5266da1..0000000 --- a/bwbtest/HB1/STEP_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'NEGATIVE STEP' TEST PROGRAM -20 PRINT "WHEN THE STEP VALUE IS -2, X="; -30 FOR X=10 TO 1 STEP -2 -40 PRINT X; -50 NEXT X -99 END diff --git a/bwbtest/HB1/STEP_2.run b/bwbtest/HB1/STEP_2.run deleted file mode 100644 index e42b54f..0000000 --- a/bwbtest/HB1/STEP_2.run +++ /dev/null @@ -1 +0,0 @@ -WHEN THE STEP VALUE IS -2, X= 10 8 6 4 2 diff --git a/bwbtest/HB1/STEP_3.BAS b/bwbtest/HB1/STEP_3.BAS deleted file mode 100644 index 9a80342..0000000 --- a/bwbtest/HB1/STEP_3.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'NON-INTEGER STEP' TEST PROGRAM -20 PRINT "WHEN THE STEP VALUE IS .5, X="; -30 FOR X=1 TO 5 STEP .5 -40 PRINT X; -50 NEXT X -99 END diff --git a/bwbtest/HB1/STEP_3.run b/bwbtest/HB1/STEP_3.run deleted file mode 100644 index 1a43ebc..0000000 --- a/bwbtest/HB1/STEP_3.run +++ /dev/null @@ -1 +0,0 @@ -WHEN THE STEP VALUE IS .5, X= 1 1.5 2 2.5 3 3.5 4 4.5 5 diff --git a/bwbtest/HB1/STEP_4.BAS b/bwbtest/HB1/STEP_4.BAS deleted file mode 100644 index eb64ebe..0000000 --- a/bwbtest/HB1/STEP_4.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'VARIABLE STEP' TEST PROGRAM -20 PRINT "ENTER A STEP VALUE (BETWEEN 1 AND 10)" -30 INPUT S -40 PRINT "THE VALUE OF X="; -50 FOR X=1 TO 10 STEP S -60 PRINT X; -70 NEXT X -99 END diff --git a/bwbtest/HB1/STEP_4.INP b/bwbtest/HB1/STEP_4.INP deleted file mode 100644 index 00750ed..0000000 --- a/bwbtest/HB1/STEP_4.INP +++ /dev/null @@ -1 +0,0 @@ -3 diff --git a/bwbtest/HB1/STEP_4.run b/bwbtest/HB1/STEP_4.run deleted file mode 100644 index d4353fb..0000000 --- a/bwbtest/HB1/STEP_4.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A STEP VALUE (BETWEEN 1 AND 10) -? 3 -THE VALUE OF X= 1 4 7 10 diff --git a/bwbtest/HB1/STOP_1.BAS b/bwbtest/HB1/STOP_1.BAS deleted file mode 100644 index 1242da5..0000000 --- a/bwbtest/HB1/STOP_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'STOP' TEST PROGRAM -20 PRINT "SEE THE STOP STATEMENT IN ACTION" -30 STOP -40 PRINT "THE STOP STATEMENT FAILED THE TEST" -99 END diff --git a/bwbtest/HB1/STOP_1.run b/bwbtest/HB1/STOP_1.run deleted file mode 100644 index 718cef2..0000000 --- a/bwbtest/HB1/STOP_1.run +++ /dev/null @@ -1,3 +0,0 @@ -SEE THE STOP STATEMENT IN ACTION - -Program interrupted at line 30 diff --git a/bwbtest/HB1/STRING_1.BAS b/bwbtest/HB1/STRING_1.BAS deleted file mode 100644 index 8a089b8..0000000 --- a/bwbtest/HB1/STRING_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'STRING$' TEST PROGRAM -20 PRINT STRING$(23,42); -30 PRINT "STRING$ FUNCTION"; -40 PRINT STRING$(23,42); -99 END diff --git a/bwbtest/HB1/STRING_1.run b/bwbtest/HB1/STRING_1.run deleted file mode 100644 index f188098..0000000 --- a/bwbtest/HB1/STRING_1.run +++ /dev/null @@ -1 +0,0 @@ -***********************STRING$ FUNCTION*********************** diff --git a/bwbtest/HB1/STRING_2.BAS b/bwbtest/HB1/STRING_2.BAS deleted file mode 100644 index d749393..0000000 --- a/bwbtest/HB1/STRING_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'STRING$' TEST PROGRAM -20 PRINT "ENTER ANY LETTER, NUMBER OR SYMBOL"; -30 INPUT A$ -40 PRINT STRING$(20,"."); -50 PRINT STRING$(20,A$); -99 END diff --git a/bwbtest/HB1/STRING_2.INP b/bwbtest/HB1/STRING_2.INP deleted file mode 100644 index 87d118b..0000000 --- a/bwbtest/HB1/STRING_2.INP +++ /dev/null @@ -1 +0,0 @@ -ABCDEFG diff --git a/bwbtest/HB1/STRING_2.run b/bwbtest/HB1/STRING_2.run deleted file mode 100644 index e336615..0000000 --- a/bwbtest/HB1/STRING_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER ANY LETTER, NUMBER OR SYMBOL? ABCDEFG -....................AAAAAAAAAAAAAAAAAAAA diff --git a/bwbtest/HB1/STR_1.BAS b/bwbtest/HB1/STR_1.BAS deleted file mode 100644 index 2e2edfe..0000000 --- a/bwbtest/HB1/STR_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'STR$' TEST PROGRAM -20 A=123456 -30 A$=STR$(A) -40 PRINT "IF THE NUMBER";A;"IS CONVERTED TO THE STRING ";A$ -50 PRINT "THEN THE STR$ FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/STR_1.run b/bwbtest/HB1/STR_1.run deleted file mode 100644 index dbd95b4..0000000 --- a/bwbtest/HB1/STR_1.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE NUMBER 123456 IS CONVERTED TO THE STRING 123456 -THEN THE STR$ FUNCTION PASSED THE TEST diff --git a/bwbtest/HB1/STUFF_1.BAS b/bwbtest/HB1/STUFF_1.BAS deleted file mode 100644 index 9ee2ec6..0000000 --- a/bwbtest/HB1/STUFF_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'STUFF' TEST PROGRAM -20 FOR X=1 TO 10 -30 STUFF 15000+X,X -40 NEXT X -50 FOR X=15001 TO 15010 -60 Y=FETCH(X) -70 PRINT Y; -80 NEXT X -90 PRINT -100 PRINT "'STUFF' PASSED THE TEST IF #1 THRU #10 ARE PRINTED" -999 END diff --git a/bwbtest/HB1/STUFF_1.PRO b/bwbtest/HB1/STUFF_1.PRO deleted file mode 100644 index ae2a6a4..0000000 --- a/bwbtest/HB1/STUFF_1.PRO +++ /dev/null @@ -1,8 +0,0 @@ -DIM M%(100) -65000 REM FAKE STUFF() & FETCH() -65010 DEF STUFF(X,Y) -65020 M%( X - 15000 ) = Y -65030 FNEND -65040 DEF FETCH(X) -65050 FETCH = M%( X - 15000 ) -65060 FNEND diff --git a/bwbtest/HB1/STUFF_1.run b/bwbtest/HB1/STUFF_1.run deleted file mode 100644 index 119a636..0000000 --- a/bwbtest/HB1/STUFF_1.run +++ /dev/null @@ -1,2 +0,0 @@ - 1 2 3 4 5 6 7 8 9 10 -'STUFF' PASSED THE TEST IF #1 THRU #10 ARE PRINTED diff --git a/bwbtest/HB1/SYSTEM_1.BAS b/bwbtest/HB1/SYSTEM_1.BAS deleted file mode 100644 index dcc953e..0000000 --- a/bwbtest/HB1/SYSTEM_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'SYSTEM' TEST PROGRAM -20 PRINT "ABOUT TO EXECUTE 'SYSTEM'" -30 SYSTEM -40 PRINT "'SYSTEM' FAILED" -99 END diff --git a/bwbtest/HB1/SYSTEM_1.run b/bwbtest/HB1/SYSTEM_1.run deleted file mode 100644 index 01c61d8..0000000 --- a/bwbtest/HB1/SYSTEM_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ABOUT TO EXECUTE 'SYSTEM' - diff --git a/bwbtest/HB1/TAB_1.BAS b/bwbtest/HB1/TAB_1.BAS deleted file mode 100644 index 42335fd..0000000 --- a/bwbtest/HB1/TAB_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'TAB' FUNCTION TEST PROGRAM -20 PRINT TAB(5);"TAB 5" -30 X = 10 -40 PRINT TAB(X);"TAB 10" -50 PRINT TAB(6*X/5+8);"TAB 20" -99 END diff --git a/bwbtest/HB1/TAB_1.run b/bwbtest/HB1/TAB_1.run deleted file mode 100644 index 1dcac97..0000000 --- a/bwbtest/HB1/TAB_1.run +++ /dev/null @@ -1,3 +0,0 @@ - TAB 5 - TAB 10 - TAB 20 diff --git a/bwbtest/HB1/TAN_1.BAS b/bwbtest/HB1/TAN_1.BAS deleted file mode 100644 index 11b50e9..0000000 --- a/bwbtest/HB1/TAN_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'TAN' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN RADIANS)"; -30 INPUT R -40 Y=TAN(R) -50 PRINT "THE TANGENT OF A";R;"RADIAN ANGLE IS";Y -99 END diff --git a/bwbtest/HB1/TAN_1.INP b/bwbtest/HB1/TAN_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB1/TAN_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB1/TAN_1.run b/bwbtest/HB1/TAN_1.run deleted file mode 100644 index f24b663..0000000 --- a/bwbtest/HB1/TAN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN RADIANS)? 0.5 -THE TANGENT OF A .5 RADIAN ANGLE IS .546302 diff --git a/bwbtest/HB1/TEXT_1.BAS b/bwbtest/HB1/TEXT_1.BAS deleted file mode 100644 index 7343de1..0000000 --- a/bwbtest/HB1/TEXT_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'TEXT' (AS 'DEFSTR') STATEMENT TEST PROGRAM -20 TEXT A,F,M -30 A="THE" -40 F=" 'TEXT' " -50 M="STATEMENT PASSED" -60 PRINT A+F+M -99 END diff --git a/bwbtest/HB1/TEXT_1.run b/bwbtest/HB1/TEXT_1.run deleted file mode 100644 index a529009..0000000 --- a/bwbtest/HB1/TEXT_1.run +++ /dev/null @@ -1 +0,0 @@ -THE 'TEXT' STATEMENT PASSED diff --git a/bwbtest/HB1/THEN_1.BAS b/bwbtest/HB1/THEN_1.BAS deleted file mode 100644 index 8593181..0000000 --- a/bwbtest/HB1/THEN_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'THEN' TEST PROGRAM -20 X=10 -30 IF X=10 THEN 60 -40 PRINT "'THEN' FAILED THE TEST" -50 GOTO 99 -60 PRINT "'THEN' PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/THEN_1.run b/bwbtest/HB1/THEN_1.run deleted file mode 100644 index 45d57d6..0000000 --- a/bwbtest/HB1/THEN_1.run +++ /dev/null @@ -1 +0,0 @@ -'THEN' PASSED THE TEST diff --git a/bwbtest/HB1/TIME_1.BAS b/bwbtest/HB1/TIME_1.BAS deleted file mode 100644 index 81ae1a5..0000000 --- a/bwbtest/HB1/TIME_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'TIME' TEST PROGRAM -20 A=TIME -30 PRINT "TIME IS MARCHING ON" -40 REM FOR X=1 TO 2000 -45 SLEEP 3 -50 REM NEXT X -60 B=TIME -70 IF B > A THEN 100 -80 PRINT "THE 'TIME' FUNCTION FAILED THE TEST" -90 GOTO 999 -100 PRINT "'TIME' PASSED THE TEST -- ELAPSED TIME=";B-A -999 END diff --git a/bwbtest/HB1/TIME_1.run b/bwbtest/HB1/TIME_1.run deleted file mode 100644 index 794c1a1..0000000 --- a/bwbtest/HB1/TIME_1.run +++ /dev/null @@ -1,2 +0,0 @@ -TIME IS MARCHING ON -'TIME' PASSED THE TEST -- ELAPSED TIME= 3 diff --git a/bwbtest/HB1/TIME_2.BAS b/bwbtest/HB1/TIME_2.BAS deleted file mode 100644 index 006ecfd..0000000 --- a/bwbtest/HB1/TIME_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'TIME$' TEST PROGRAM -20 PRINT "THE CURRENT TIME IS ";TIME$ -30 PRINT "THE TIME$ FUNCTION PASSED THE TEST" -40 PRINT "IF A SIX DIGIT NUMBER IS PRINTED" -99 END diff --git a/bwbtest/HB1/TIME_2.PRO b/bwbtest/HB1/TIME_2.PRO deleted file mode 100644 index dd35fc9..0000000 --- a/bwbtest/HB1/TIME_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION TIME "%H%M%S" diff --git a/bwbtest/HB1/TIME_2.run b/bwbtest/HB1/TIME_2.run deleted file mode 100644 index ec9ec14..0000000 --- a/bwbtest/HB1/TIME_2.run +++ /dev/null @@ -1,3 +0,0 @@ -THE CURRENT TIME IS 184534 -THE TIME$ FUNCTION PASSED THE TEST -IF A SIX DIGIT NUMBER IS PRINTED diff --git a/bwbtest/HB1/TIM_1.BAS b/bwbtest/HB1/TIM_1.BAS deleted file mode 100644 index 203abbd..0000000 --- a/bwbtest/HB1/TIM_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'TIM' TEST PROGRAM -20 A=TIM -30 PRINT "TIME IS MARCHING ON" -40 REM FOR X=1 TO 2000 -45 SLEEP 3 -50 REM NEXT X -60 B=TIM -70 IF B > A THEN 100 -80 PRINT "THE 'TIM' FUNCTION FAILED THE TEST" -90 GOTO 999 -100 PRINT "'TIM' PASSED THE TEST -- ELAPSED TIME=";B-A -999 END diff --git a/bwbtest/HB1/TIM_1.run b/bwbtest/HB1/TIM_1.run deleted file mode 100644 index 7208ac3..0000000 --- a/bwbtest/HB1/TIM_1.run +++ /dev/null @@ -1,2 +0,0 @@ -TIME IS MARCHING ON -'TIM' PASSED THE TEST -- ELAPSED TIME= 3 diff --git a/bwbtest/HB1/TIM_2.BAS b/bwbtest/HB1/TIM_2.BAS deleted file mode 100644 index 419bc02..0000000 --- a/bwbtest/HB1/TIM_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'TIM(N)' TEST PROGRAM -20 PRINT "THE CURRENT TIME IS" -30 PRINT TIM(0);"MINUTES" -40 PRINT TIM(1);"HOURS" -50 PRINT TIM(2);"DAYS" -60 PRINT TIM(3);"YEARS" -99 END diff --git a/bwbtest/HB1/TIM_2.run b/bwbtest/HB1/TIM_2.run deleted file mode 100644 index 41eeaf0..0000000 --- a/bwbtest/HB1/TIM_2.run +++ /dev/null @@ -1,5 +0,0 @@ -THE CURRENT TIME IS - 45 MINUTES - 18 HOURS - 230 DAYS - 115 YEARS diff --git a/bwbtest/HB1/TIM_3.BAS b/bwbtest/HB1/TIM_3.BAS deleted file mode 100644 index db08b6d..0000000 --- a/bwbtest/HB1/TIM_3.BAS +++ /dev/null @@ -1,13 +0,0 @@ -10 REM 'TIM' TEST PROGRAM -15 DEF TIM=TIME -20 A=TIM -30 PRINT "TIME IS MARCHING ON" -40 REM FOR X=1 TO 2000 -45 SLEEP 3 -50 REM NEXT X -60 B=TIM -70 IF B > A THEN 100 -80 PRINT "THE 'TIM' FUNCTION FAILED THE TEST" -90 GOTO 999 -100 PRINT "'TIM' PASSED THE TEST -- ELAPSED TIME=";B-A -999 END diff --git a/bwbtest/HB1/TIM_3.run b/bwbtest/HB1/TIM_3.run deleted file mode 100644 index 7208ac3..0000000 --- a/bwbtest/HB1/TIM_3.run +++ /dev/null @@ -1,2 +0,0 @@ -TIME IS MARCHING ON -'TIM' PASSED THE TEST -- ELAPSED TIME= 3 diff --git a/bwbtest/HB1/TI_1.BAS b/bwbtest/HB1/TI_1.BAS deleted file mode 100644 index b6b53d8..0000000 --- a/bwbtest/HB1/TI_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'TI' TEST PROGRAM -20 A=TI -30 REM FOR X=1 TO 2000 -35 SLEEP 3 -40 REM NEXT X -50 B=TI -60 IF B > A THEN 90 -70 PRINT "THE 'TI' FUNCTION FAILED THE TEST" -80 GOTO 99 -90 PRINT "'TI' PASSED -- ELAPSED TIME=";B-A -99 END diff --git a/bwbtest/HB1/TI_1.run b/bwbtest/HB1/TI_1.run deleted file mode 100644 index 96b91f4..0000000 --- a/bwbtest/HB1/TI_1.run +++ /dev/null @@ -1 +0,0 @@ -'TI' PASSED -- ELAPSED TIME= 3 diff --git a/bwbtest/HB1/TI_2.BAS b/bwbtest/HB1/TI_2.BAS deleted file mode 100644 index f0ff5c7..0000000 --- a/bwbtest/HB1/TI_2.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'TI' TEST PROGRAM -15 DEF TI=TIME -20 A=TI -30 REM FOR X=1 TO 2000 -35 SLEEP 3 -40 REM NEXT X -50 B=TI -60 IF B > A THEN 90 -70 PRINT "THE 'TI' FUNCTION FAILED THE TEST" -80 GOTO 99 -90 PRINT "'TI' PASSED -- ELAPSED TIME=";B-A -99 END diff --git a/bwbtest/HB1/TI_2.run b/bwbtest/HB1/TI_2.run deleted file mode 100644 index 96b91f4..0000000 --- a/bwbtest/HB1/TI_2.run +++ /dev/null @@ -1 +0,0 @@ -'TI' PASSED -- ELAPSED TIME= 3 diff --git a/bwbtest/HB1/TI_3.BAS b/bwbtest/HB1/TI_3.BAS deleted file mode 100644 index 50e88dc..0000000 --- a/bwbtest/HB1/TI_3.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'TI$' TEST PROGRAM -20 PRINT "THE CURRENT TIME IS ";TI$ -30 PRINT "'TI$' PASSED THE TEST" -40 PRINT "IF A SIX DIGIT NUMBER IS PRINTED" -99 END diff --git a/bwbtest/HB1/TI_3.PRO b/bwbtest/HB1/TI_3.PRO deleted file mode 100644 index dd35fc9..0000000 --- a/bwbtest/HB1/TI_3.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION TIME "%H%M%S" diff --git a/bwbtest/HB1/TI_3.run b/bwbtest/HB1/TI_3.run deleted file mode 100644 index f9622b2..0000000 --- a/bwbtest/HB1/TI_3.run +++ /dev/null @@ -1,3 +0,0 @@ -THE CURRENT TIME IS 184547 -'TI$' PASSED THE TEST -IF A SIX DIGIT NUMBER IS PRINTED diff --git a/bwbtest/HB1/TI_4.BAS b/bwbtest/HB1/TI_4.BAS deleted file mode 100644 index 17b0038..0000000 --- a/bwbtest/HB1/TI_4.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'TI$' TEST PROGRAM -15 DEF TI$=TIME$ -20 PRINT "THE CURRENT TIME IS ";TI$ -30 PRINT "'TI$' PASSED THE TEST" -40 PRINT "IF A SIX DIGIT NUMBER IS PRINTED" -99 END diff --git a/bwbtest/HB1/TI_4.PRO b/bwbtest/HB1/TI_4.PRO deleted file mode 100644 index dd35fc9..0000000 --- a/bwbtest/HB1/TI_4.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION TIME "%H%M%S" diff --git a/bwbtest/HB1/TI_4.run b/bwbtest/HB1/TI_4.run deleted file mode 100644 index f9622b2..0000000 --- a/bwbtest/HB1/TI_4.run +++ /dev/null @@ -1,3 +0,0 @@ -THE CURRENT TIME IS 184547 -'TI$' PASSED THE TEST -IF A SIX DIGIT NUMBER IS PRINTED diff --git a/bwbtest/HB1/TRACE_1.BAS b/bwbtest/HB1/TRACE_1.BAS deleted file mode 100644 index 5494ade..0000000 --- a/bwbtest/HB1/TRACE_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'TRACE' TEST PROGRAM -20 PRINT "'TRACE' TRACES EACH LINE" -30 TRACE -40 GOTO 90 -50 PRINT "UNTIL TURNED OFF BY" -60 NOTRACE -70 PRINT "THE 'NOTRACE' STATEMENT" -80 GOTO 110 -90 PRINT "THAT FOLLOWS THE 'TRACE' STATEMENT" -100 GOTO 50 -110 PRINT "AS ILLUSTRATED BY THIS LINE" -999 END diff --git a/bwbtest/HB1/TRACE_1.run b/bwbtest/HB1/TRACE_1.run deleted file mode 100644 index daea8a0..0000000 --- a/bwbtest/HB1/TRACE_1.run +++ /dev/null @@ -1,7 +0,0 @@ -'TRACE' TRACES EACH LINE -Trace is ON -[ 40 GOTO 90 ][ 90 PRINT "THAT FOLLOWS THE 'TRACE' STATEMENT" ]THAT FOLLOWS THE -[ 100 GOTO 50 ][ 50 PRINT "UNTIL TURNED OFF BY" ]UNTIL TURNED OFF BY -[ 60 NOTRACE ]Trace is OFF -THE 'NOTRACE' STATEMENT -AS ILLUSTRATED BY THIS LINE diff --git a/bwbtest/HB1/TRACE_2.BAS b/bwbtest/HB1/TRACE_2.BAS deleted file mode 100644 index edd717e..0000000 --- a/bwbtest/HB1/TRACE_2.BAS +++ /dev/null @@ -1,14 +0,0 @@ -10 REM 'TRACE' TEST PROGRAM -15 DEF TRACE=TRON -16 DEF NOTRACE=TROFF -20 PRINT "'TRACE' TRACES EACH LINE" -30 TRACE -40 GOTO 90 -50 PRINT "UNTIL TURNED OFF BY" -60 NOTRACE -70 PRINT "THE 'NOTRACE' STATEMENT" -80 GOTO 110 -90 PRINT "THAT FOLLOWS THE 'TRACE' STATEMENT" -100 GOTO 50 -110 PRINT "AS ILLUSTRATED BY THIS LINE" -999 END diff --git a/bwbtest/HB1/TRACE_2.run b/bwbtest/HB1/TRACE_2.run deleted file mode 100644 index daea8a0..0000000 --- a/bwbtest/HB1/TRACE_2.run +++ /dev/null @@ -1,7 +0,0 @@ -'TRACE' TRACES EACH LINE -Trace is ON -[ 40 GOTO 90 ][ 90 PRINT "THAT FOLLOWS THE 'TRACE' STATEMENT" ]THAT FOLLOWS THE -[ 100 GOTO 50 ][ 50 PRINT "UNTIL TURNED OFF BY" ]UNTIL TURNED OFF BY -[ 60 NOTRACE ]Trace is OFF -THE 'NOTRACE' STATEMENT -AS ILLUSTRATED BY THIS LINE diff --git a/bwbtest/HB1/TRACE_OFF_1.BAS b/bwbtest/HB1/TRACE_OFF_1.BAS deleted file mode 100644 index b70ba03..0000000 --- a/bwbtest/HB1/TRACE_OFF_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'TRACE OFF' TEST PROGRAM -20 TRACE ON -30 PRINT "EACH LINE SHOULD BE TRACED" -40 TRACE OFF -50 PRINT "BY THE 'TRACE ON' STATEMENT" -60 PRINT "UNTIL TURNED OFF BY THE 'TRACE OFF' STATEMENT" -99 END diff --git a/bwbtest/HB1/TRACE_OFF_1.run b/bwbtest/HB1/TRACE_OFF_1.run deleted file mode 100644 index 3fbbd1b..0000000 --- a/bwbtest/HB1/TRACE_OFF_1.run +++ /dev/null @@ -1,5 +0,0 @@ -Trace is ON -[ 30 PRINT "EACH LINE SHOULD BE TRACED" ]EACH LINE SHOULD BE TRACED -[ 40 TRACE OFF ]Trace is OFF -BY THE 'TRACE ON' STATEMENT -UNTIL TURNED OFF BY THE 'TRACE OFF' STATEMENT diff --git a/bwbtest/HB1/TRACE_ON_1.BAS b/bwbtest/HB1/TRACE_ON_1.BAS deleted file mode 100644 index 07cc8f5..0000000 --- a/bwbtest/HB1/TRACE_ON_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ -10 REM 'TRACE ON' TEST PROGRAM -20 PRINT "'TRACE ON' TRACES EACH LINE" -30 TRACE ON -40 GOTO 90 -50 PRINT "UNTIL TURNED OFF BY" -60 TRACE OFF -70 PRINT "THE 'TRACE OFF' STATEMENT" -80 GOTO 110 -90 PRINT "THAT FOLLOWS THE 'TRACE ON' STATEMENT" -100 GOTO 50 -110 PRINT "AS ILLUSTRATED BY THIS LINE" -999 END diff --git a/bwbtest/HB1/TRACE_ON_1.run b/bwbtest/HB1/TRACE_ON_1.run deleted file mode 100644 index a4bfdc0..0000000 --- a/bwbtest/HB1/TRACE_ON_1.run +++ /dev/null @@ -1,7 +0,0 @@ -'TRACE ON' TRACES EACH LINE -Trace is ON -[ 40 GOTO 90 ][ 90 PRINT "THAT FOLLOWS THE 'TRACE ON' STATEMENT" ]THAT FOLLOWS T -[ 100 GOTO 50 ][ 50 PRINT "UNTIL TURNED OFF BY" ]UNTIL TURNED OFF BY -[ 60 TRACE OFF ]Trace is OFF -THE 'TRACE OFF' STATEMENT -AS ILLUSTRATED BY THIS LINE diff --git a/bwbtest/HB1/TROFF_1.BAS b/bwbtest/HB1/TROFF_1.BAS deleted file mode 100644 index c4f33a6..0000000 --- a/bwbtest/HB1/TROFF_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'TROFF' TEST PROGRAM -20 PRINT "THE FIRST TWO LINES OF THIS PROGRAM" -30 TROFF -40 PRINT "ARE PRINTED WITH THE TRACE TURNED ON." -50 PRINT "THIS LINE IS PRINTED WITH THE TRACE TURNED OFF." -99 END diff --git a/bwbtest/HB1/TROFF_1.PRO b/bwbtest/HB1/TROFF_1.PRO deleted file mode 100644 index 481bd62..0000000 --- a/bwbtest/HB1/TROFF_1.PRO +++ /dev/null @@ -1 +0,0 @@ -TRON diff --git a/bwbtest/HB1/TROFF_1.run b/bwbtest/HB1/TROFF_1.run deleted file mode 100644 index 96d048d..0000000 --- a/bwbtest/HB1/TROFF_1.run +++ /dev/null @@ -1,5 +0,0 @@ -Trace is ON -[ 10 REM 'TROFF' TEST PROGRAM ][ 20 PRINT "THE FIRST TWO LINES OF THIS PROGRAM" -[ 30 TROFF ]Trace is OFF -ARE PRINTED WITH THE TRACE TURNED ON. -THIS LINE IS PRINTED WITH THE TRACE TURNED OFF. diff --git a/bwbtest/HB1/TRON_1.BAS b/bwbtest/HB1/TRON_1.BAS deleted file mode 100644 index 05b37ad..0000000 --- a/bwbtest/HB1/TRON_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'TRON' TEST PROGRAM -20 GOTO 50 -30 PRINT "OF THIS TEST PROGRAM." -40 GOTO 70 -50 PRINT "TRON TRACES EACH LINE" -60 GOTO 30 -70 PRINT "END OF TEST PROGRAM." -99 END diff --git a/bwbtest/HB1/TRON_1.PRO b/bwbtest/HB1/TRON_1.PRO deleted file mode 100644 index 481bd62..0000000 --- a/bwbtest/HB1/TRON_1.PRO +++ /dev/null @@ -1 +0,0 @@ -TRON diff --git a/bwbtest/HB1/TRON_1.run b/bwbtest/HB1/TRON_1.run deleted file mode 100644 index 054518a..0000000 --- a/bwbtest/HB1/TRON_1.run +++ /dev/null @@ -1,5 +0,0 @@ -Trace is ON -[ 10 REM 'TRON' TEST PROGRAM ][ 20 GOTO 50 ][ 50 PRINT "TRON TRACES EACH LINE" ] -[ 60 GOTO 30 ][ 30 PRINT "OF THIS TEST PROGRAM." ]OF THIS TEST PROGRAM. -[ 40 GOTO 70 ][ 70 PRINT "END OF TEST PROGRAM." ]END OF TEST PROGRAM. -[ 99 END ] diff --git a/bwbtest/HB1/TRON_2.BAS b/bwbtest/HB1/TRON_2.BAS deleted file mode 100644 index ffe9948..0000000 --- a/bwbtest/HB1/TRON_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'TRON' TEST PROGRAM -20 GOTO 50 -30 PRINT "OF THIS TEST PROGRAM." -35 TRON -40 GOTO 70 -50 PRINT "TRON TRACES EACH LINE" -60 GOTO 30 -70 PRINT "END OF TEST PROGRAM." -99 END diff --git a/bwbtest/HB1/TRON_2.PRO b/bwbtest/HB1/TRON_2.PRO deleted file mode 100644 index 30f59c0..0000000 --- a/bwbtest/HB1/TRON_2.PRO +++ /dev/null @@ -1 +0,0 @@ -TROFF diff --git a/bwbtest/HB1/TRON_2.run b/bwbtest/HB1/TRON_2.run deleted file mode 100644 index 76bdf2b..0000000 --- a/bwbtest/HB1/TRON_2.run +++ /dev/null @@ -1,6 +0,0 @@ -Trace is OFF -TRON TRACES EACH LINE -OF THIS TEST PROGRAM. -Trace is ON -[ 40 GOTO 70 ][ 70 PRINT "END OF TEST PROGRAM." ]END OF TEST PROGRAM. -[ 99 END ] diff --git a/bwbtest/HB1/VAL_1.BAS b/bwbtest/HB1/VAL_1.BAS deleted file mode 100644 index 0c6499d..0000000 --- a/bwbtest/HB1/VAL_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'VAL' TEST PROGRAM -20 A$="45.12" -30 A=VAL(A$) -40 PRINT "IF THE STRING ";A$;" IS CONVERTED TO THE NUMBER";A -50 PRINT "THEN THE VAL FUNCTION PASSED THE TEST." -99 END diff --git a/bwbtest/HB1/VAL_1.run b/bwbtest/HB1/VAL_1.run deleted file mode 100644 index 191180c..0000000 --- a/bwbtest/HB1/VAL_1.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE STRING 45.12 IS CONVERTED TO THE NUMBER 45.12 -THEN THE VAL FUNCTION PASSED THE TEST. diff --git a/bwbtest/HB1/VAL_2.BAS b/bwbtest/HB1/VAL_2.BAS deleted file mode 100644 index 2a935e0..0000000 --- a/bwbtest/HB1/VAL_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'VAL' TEST PROGRAM -20 A$="12 O'CLOCK" -30 A=VAL(A$) -40 PRINT "IF THE STRING ";A$;" IS CONVERTED TO THE NUMBER";A -50 PRINT "THEN THE VAL FUNCTION ACCEPTED NUMBERS MIXED WITH LETTERS." -99 END diff --git a/bwbtest/HB1/VAL_2.run b/bwbtest/HB1/VAL_2.run deleted file mode 100644 index 2f564be..0000000 --- a/bwbtest/HB1/VAL_2.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE STRING 12 O'CLOCK IS CONVERTED TO THE NUMBER 12 -THEN THE VAL FUNCTION ACCEPTED NUMBERS MIXED WITH LETTERS. diff --git a/bwbtest/HB1/VTAB_1.BAS b/bwbtest/HB1/VTAB_1.BAS deleted file mode 100644 index 9341162..0000000 --- a/bwbtest/HB1/VTAB_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'VTAB' TEST PROGRAM -20 PRINT "ENTER A VTAB VALUE FROM 1 TO 24"; -30 INPUT N -40 VTAB N -50 PRINT "VTAB PRESS THE TEST IF THIS IS PRINTED ON LINE";N -99 END diff --git a/bwbtest/HB1/VTAB_1.INP b/bwbtest/HB1/VTAB_1.INP deleted file mode 100644 index 45a4fb7..0000000 --- a/bwbtest/HB1/VTAB_1.INP +++ /dev/null @@ -1 +0,0 @@ -8 diff --git a/bwbtest/HB1/VTAB_1.PRO b/bwbtest/HB1/VTAB_1.PRO deleted file mode 100644 index fecb8d1..0000000 --- a/bwbtest/HB1/VTAB_1.PRO +++ /dev/null @@ -1,3 +0,0 @@ -OPTION TERMINAL ANSI -WIDTH 24,80 -REM VTAB(X) == LOCATE(X,1) diff --git a/bwbtest/HB1/VTAB_1.run b/bwbtest/HB1/VTAB_1.run deleted file mode 100644 index a88c800..0000000 --- a/bwbtest/HB1/VTAB_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VTAB VALUE FROM 1 TO 24? 8 - [8;1HVTAB PRESS THE TEST IF THIS IS PRINTED ON LINE 8 diff --git a/bwbtest/HB1/WAIT_1.BAS b/bwbtest/HB1/WAIT_1.BAS deleted file mode 100644 index 263171c..0000000 --- a/bwbtest/HB1/WAIT_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'WAIT TIME PERIOD' TEST PROGRAM -20 PRINT "ENTER A UNIT OF TIME FOR THE COMPUTER TO WAIT"; -30 INPUT T -40 PRINT "THE COMPUTER IS WAITING FOR";T;"UNITS OF TIME" -50 WAIT T -60 PRINT "THE WAIT STATEMENT PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/WAIT_1.INP b/bwbtest/HB1/WAIT_1.INP deleted file mode 100644 index 7ed6ff8..0000000 --- a/bwbtest/HB1/WAIT_1.INP +++ /dev/null @@ -1 +0,0 @@ -5 diff --git a/bwbtest/HB1/WAIT_1.PRO b/bwbtest/HB1/WAIT_1.PRO deleted file mode 100644 index cf8257b..0000000 --- a/bwbtest/HB1/WAIT_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION SLEEP 1 ' SLEEP 1 SECONDS diff --git a/bwbtest/HB1/WAIT_1.run b/bwbtest/HB1/WAIT_1.run deleted file mode 100644 index 7504bb0..0000000 --- a/bwbtest/HB1/WAIT_1.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A UNIT OF TIME FOR THE COMPUTER TO WAIT? 5 -THE COMPUTER IS WAITING FOR 5 UNITS OF TIME -THE WAIT STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1/WAIT_2.BAS b/bwbtest/HB1/WAIT_2.BAS deleted file mode 100644 index ae36fb7..0000000 --- a/bwbtest/HB1/WAIT_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'WAIT FOR PORT CONDITION' TEST PROGRAM -20 PRINT "THE COMPUTER IS WAITING FOR ONLY BIT 1 TO BE SET" -30 PRINT "IN PORT 20 (THE DECIMAL VALUE OF 2)" -40 WAIT 20,253,2 -50 PRINT "BIT 1 IN PORT 20 IS SET" -99 END diff --git a/bwbtest/HB1/WAIT_2.PRO b/bwbtest/HB1/WAIT_2.PRO deleted file mode 100644 index d633151..0000000 --- a/bwbtest/HB1/WAIT_2.PRO +++ /dev/null @@ -1,6 +0,0 @@ -65000 REM FAKE WAIT(X,Y,Z) -65010 DEF WAIT(X,Y,Z) -65020 PRINT " X=";X -65030 PRINT " Y=";Y -65040 PRINT " Z=";Z -65050 FNEND diff --git a/bwbtest/HB1/WAIT_2.run b/bwbtest/HB1/WAIT_2.run deleted file mode 100644 index 30bc1f1..0000000 --- a/bwbtest/HB1/WAIT_2.run +++ /dev/null @@ -1,6 +0,0 @@ -THE COMPUTER IS WAITING FOR ONLY BIT 1 TO BE SET -IN PORT 20 (THE DECIMAL VALUE OF 2) - X= 20 - Y= 253 - Z= 2 -BIT 1 IN PORT 20 IS SET diff --git a/bwbtest/HB1/WAIT_3.BAS b/bwbtest/HB1/WAIT_3.BAS deleted file mode 100644 index 263171c..0000000 --- a/bwbtest/HB1/WAIT_3.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'WAIT TIME PERIOD' TEST PROGRAM -20 PRINT "ENTER A UNIT OF TIME FOR THE COMPUTER TO WAIT"; -30 INPUT T -40 PRINT "THE COMPUTER IS WAITING FOR";T;"UNITS OF TIME" -50 WAIT T -60 PRINT "THE WAIT STATEMENT PASSED THE TEST" -99 END diff --git a/bwbtest/HB1/WAIT_3.INP b/bwbtest/HB1/WAIT_3.INP deleted file mode 100644 index 7ed6ff8..0000000 --- a/bwbtest/HB1/WAIT_3.INP +++ /dev/null @@ -1 +0,0 @@ -5 diff --git a/bwbtest/HB1/WAIT_3.PRO b/bwbtest/HB1/WAIT_3.PRO deleted file mode 100644 index e55ebf5..0000000 --- a/bwbtest/HB1/WAIT_3.PRO +++ /dev/null @@ -1,5 +0,0 @@ -OPTION SLEEP 1 ' SLEEP 1 SECONDS -65000 DEF WAIT(X) -65010 REM PRINT "PAUSING";X;"SECONDS" -65020 SLEEP X -65030 FNEND diff --git a/bwbtest/HB1/WAIT_3.run b/bwbtest/HB1/WAIT_3.run deleted file mode 100644 index 7504bb0..0000000 --- a/bwbtest/HB1/WAIT_3.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A UNIT OF TIME FOR THE COMPUTER TO WAIT? 5 -THE COMPUTER IS WAITING FOR 5 UNITS OF TIME -THE WAIT STATEMENT PASSED THE TEST diff --git a/bwbtest/HB1X/00readme.txt b/bwbtest/HB1X/00readme.txt deleted file mode 100644 index ce3698d..0000000 --- a/bwbtest/HB1X/00readme.txt +++ /dev/null @@ -1,4 +0,0 @@ -THESE ARE TESTS OF ADDITIONAL FUNCTIONALITY IN BYWATER BASIC -THAT ARE NOT NECESSARILY DETAILED IN THE HANDBOOK 1st EDITION. - -ALL TESTS WRITTEN IN JUNE 2015 BY HOWARD WULF, AF5NE. diff --git a/bwbtest/HB1X/00test.sh b/bwbtest/HB1X/00test.sh deleted file mode 100644 index 862ae28..0000000 --- a/bwbtest/HB1X/00test.sh +++ /dev/null @@ -1,76 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/HB1X -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile HB1.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- -testcase AS_1 -testcase AS_2 -testcase AS_3 -testcase AS_4 -testcase AS_5 -testcase BREAK_1 -# EDIT must be manually tested -# testcase EDIT_1 -# testcase EDIT_2 -# testcase EDIT_3 -testcase FNEND -testcase GOSUB_OF -testcase GOSUB_X -testcase GOTO_OF -testcase GOTO_X -testcase LIKE_1 -testcase MAT_INPUT_1_N_0 -testcase MAT_INPUT_1_S_1 -testcase MAT_PRINT_1_N_0 -testcase MAT_PRINT_1_S_0 -testcase MAT_PRINT_2_N_0 -testcase MAT_PRINT_2_S_0 -testcase MAT_PRINT_3_N_0 -testcase MAT_PRINT_3_S_0 -testcase MAT_PRINT_4 -testcase MAT_READ_1_N_0 -testcase MAT_READ_1_N_1 -testcase MAT_READ_1_S_0 -testcase MAT_READ_1_S_1 -testcase MAT_READ_2_N_0 -testcase MAT_READ_2_S_0 -testcase MAT_READ_3_N_0 -testcase MAT_READ_3_S_0 -testcase REM_1 -testcase USING_1 -testcase USING_2 - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB1X/01test.sh b/bwbtest/HB1X/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/HB1X/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB1X/02ok.sh b/bwbtest/HB1X/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/HB1X/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/HB1X/99test.sh b/bwbtest/HB1X/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/HB1X/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB1X/ASX.BAS b/bwbtest/HB1X/ASX.BAS deleted file mode 100644 index f2090e3..0000000 --- a/bwbtest/HB1X/ASX.BAS +++ /dev/null @@ -1,33 +0,0 @@ - 100 rem Purpose: Verify DIM ... AS ... - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-06-07 - 130 rem - 135 dim Z - 137 print "Iteration";Z - 140 dim A as integer - 150 dim B as long - 160 dim C as single - 170 dim D as double - 180 dim E as string - 190 dim F(20) as integer - 200 dim G(20) as long - 210 dim H(20) as single - 220 dim I(20) as double - 230 dim J(20) as string - 240 let A=Z*1 - 250 let B=Z*2 - 260 let C=Z*3 - 270 let D=Z*4 - 280 let E=STR$(Z*5) - 285 vars - 287 maintainer debug on - 290 let F(Z)=Z*1 - 300 let G(Z)=Z*2 - 310 let H(Z)=Z*3 - 320 let I(Z)=Z*4 - 330 let J(Z)=STR$(Z*5) - 340 let Z = Z + 1 - 350 if Z <= 20 then 100 - 360 rem - 999 end - diff --git a/bwbtest/HB1X/AS_1.BAS b/bwbtest/HB1X/AS_1.BAS deleted file mode 100644 index a9214d4..0000000 --- a/bwbtest/HB1X/AS_1.BAS +++ /dev/null @@ -1,30 +0,0 @@ - 100 rem Purpose: Verify DIM ... AS ... - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-06-07 - 130 rem - 135 dim Z - 137 print "Iteration";Z - 140 dim A as integer - 150 dim B as long - 160 dim C as single - 170 dim D as double - 180 dim E as string - 190 dim F(20) as integer - 200 dim G(20) as long - 210 dim H(20) as single - 220 dim I(20) as double - 230 dim J(20) as string - 240 let A=Z*1 - 250 let B=Z*2 - 260 let C=Z*3 - 270 let D=Z*4 - 280 let E=STR$(Z*5) - 290 let F(Z)=Z*1 - 300 let G(Z)=Z*2 - 310 let H(Z)=Z*3 - 320 let I(Z)=Z*4 - 330 let J(Z)=STR$(Z*5) - 340 let Z = Z + 1 - 350 if Z <= 20 then 100 - 360 mat print F;G;H;I;J; - 999 end diff --git a/bwbtest/HB1X/AS_1.run b/bwbtest/HB1X/AS_1.run deleted file mode 100644 index 658a668..0000000 --- a/bwbtest/HB1X/AS_1.run +++ /dev/null @@ -1,26 +0,0 @@ -Iteration 0 -Iteration 1 -Iteration 2 -Iteration 3 -Iteration 4 -Iteration 5 -Iteration 6 -Iteration 7 -Iteration 8 -Iteration 9 -Iteration 10 -Iteration 11 -Iteration 12 -Iteration 13 -Iteration 14 -Iteration 15 -Iteration 16 -Iteration 17 -Iteration 18 -Iteration 19 -Iteration 20 - 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 - 0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 - 0 3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 - 0 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 - 0 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 100 diff --git a/bwbtest/HB1X/AS_2.BAS b/bwbtest/HB1X/AS_2.BAS deleted file mode 100644 index bce72f7..0000000 --- a/bwbtest/HB1X/AS_2.BAS +++ /dev/null @@ -1,21 +0,0 @@ - 100 rem Purpose: Verify AS ... (function return type) - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-06-07 - 130 rem - 140 def ABC2(X) as integer - 150 ABC2 = X * 2 - 160 fnend - 170 def DEF3(X) as long - 180 DEF3 = X * 3 - 190 fnend - 200 def GHI4(X) as single - 210 GHI4 = X * 4 - 220 fnend - 230 def JKL5(X) as double - 240 JKL5 = X * 5 - 250 fnend - 260 def MNO6(X) as string - 270 MNO6 = "[" + STR$(X) + "]" - 280 fnend - 300 print ABC2(1),DEF3(2),GHI4(3),JKL5(4),MNO6(5) - 999 end diff --git a/bwbtest/HB1X/AS_2.run b/bwbtest/HB1X/AS_2.run deleted file mode 100644 index 201cc8d..0000000 --- a/bwbtest/HB1X/AS_2.run +++ /dev/null @@ -1 +0,0 @@ - 2 6 12 20 [ 5] diff --git a/bwbtest/HB1X/AS_3.BAS b/bwbtest/HB1X/AS_3.BAS deleted file mode 100644 index 75de73b..0000000 --- a/bwbtest/HB1X/AS_3.BAS +++ /dev/null @@ -1,21 +0,0 @@ - 100 rem Purpose: Verify AS ... (function parameter) - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-06-07 - 130 rem - 140 def ABC2(X as double, Y as single, Z as long, A as string) as integer - 150 ABC2 = X * 2 + Y * 3 + Z * 4 + VAL(A) - 160 fnend - 170 def DEF3(X as long) as long - 180 DEF3 = X * 3 - 190 fnend - 200 def GHI4(X as integer, Y as long) as single - 210 GHI4 = X * 4 + Y * 2 - 220 fnend - 230 def JKL5(X as single) as double - 240 JKL5 = X * 5 - 250 fnend - 260 def MNO6(X as string, Y as integer) as string - 270 MNO6 = "[" + X + "," + STR$(Y) + "]" - 280 fnend - 300 print ABC2(1,2,3,"4"),DEF3(4),GHI4(6,7),JKL5(8),MNO6("9",10) - 999 end diff --git a/bwbtest/HB1X/AS_3.run b/bwbtest/HB1X/AS_3.run deleted file mode 100644 index 508bad5..0000000 --- a/bwbtest/HB1X/AS_3.run +++ /dev/null @@ -1 +0,0 @@ - 24 12 38 40 [9, 10] diff --git a/bwbtest/HB1X/AS_4.BAS b/bwbtest/HB1X/AS_4.BAS deleted file mode 100644 index def028b..0000000 --- a/bwbtest/HB1X/AS_4.BAS +++ /dev/null @@ -1,13 +0,0 @@ - 100 rem Purpose: Verify AS INTEGER rounds - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-06-07 - 130 rem - 200 def ABC(X) as integer - 210 let ABC = X - 220 fnend - 230 print abc(1),abc(1.4),abc(1.6) - 300 def DDD(X as integer) - 310 let DDD = X - 320 fnend - 330 print ddd(1),ddd(1.4),ddd(1.6) - diff --git a/bwbtest/HB1X/AS_4.run b/bwbtest/HB1X/AS_4.run deleted file mode 100644 index 2297f17..0000000 --- a/bwbtest/HB1X/AS_4.run +++ /dev/null @@ -1,2 +0,0 @@ - 1 1 2 - 1 1 2 diff --git a/bwbtest/HB1X/AS_5.BAS b/bwbtest/HB1X/AS_5.BAS deleted file mode 100644 index 2c913d9..0000000 --- a/bwbtest/HB1X/AS_5.BAS +++ /dev/null @@ -1,17 +0,0 @@ - 100 rem Purpose: Verify AS range - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-06-07 - 130 rem - 140 on error goto 300 - 200 def abc( e as integer ) as integer - 210 let abc = e * 10 - 220 fnend - 230 print "abc( 2 ^ 31 )" - 240 print abc( 2 ^ 31 ) - 250 print "abc( ( 2 ^ 31 ) + 1 )" - 260 print abc( ( 2 ^ 31 ) + 1 ) - 270 goto 999 - 300 rem - 310 print "ERL=";ERL;"ERR=";ERR - 320 resume next - 999 end diff --git a/bwbtest/HB1X/AS_5.run b/bwbtest/HB1X/AS_5.run deleted file mode 100644 index 3e3f279..0000000 --- a/bwbtest/HB1X/AS_5.run +++ /dev/null @@ -1,4 +0,0 @@ -abc( 2 ^ 31 ) -ERL= 240 ERR= 5 -abc( ( 2 ^ 31 ) + 1 ) -ERL= 260 ERR= 5 diff --git a/bwbtest/HB1X/BREAK_1.BAS b/bwbtest/HB1X/BREAK_1.BAS deleted file mode 100644 index 75b852d..0000000 --- a/bwbtest/HB1X/BREAK_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -100 print "100" -110 print "110" -120 print "120" -130 print "130" -140 print "140" -150 print "150" diff --git a/bwbtest/HB1X/BREAK_1.INP b/bwbtest/HB1X/BREAK_1.INP deleted file mode 100644 index c5b8164..0000000 --- a/bwbtest/HB1X/BREAK_1.INP +++ /dev/null @@ -1,5 +0,0 @@ -BREAK 110-130 -RUN -CONT -CONT -CONT diff --git a/bwbtest/HB1X/BREAK_1.run b/bwbtest/HB1X/BREAK_1.run deleted file mode 100644 index 135e64a..0000000 --- a/bwbtest/HB1X/BREAK_1.run +++ /dev/null @@ -1,23 +0,0 @@ -100 -110 -120 -130 -140 -150 -bwBASIC: BREAK 110-130 -bwBASIC: RUN -100 - -Program interrupted at line 110 -bwBASIC: CONT -110 - -Program interrupted at line 120 -bwBASIC: CONT -120 - -Program interrupted at line 130 -bwBASIC: CONT -130 -140 -150 diff --git a/bwbtest/HB1X/EDIT_1.BAS b/bwbtest/HB1X/EDIT_1.BAS deleted file mode 100644 index 7a8cfd6..0000000 --- a/bwbtest/HB1X/EDIT_1.BAS +++ /dev/null @@ -1,24 +0,0 @@ - 100 rem EDIT test - 110 rem - 120 rem - 130 rem - 140 let a=1 - : b=2 - : c=3 - 150 if a=b then - : print "error" - : else - : print "OK" - : END IF - 160 let d=4 - ' comment - 170 if b<>c then - : print "OK" - : print "again" - : else - : print "error" - : print "AGAIN" - : END IF - ' comment2 - 180 end - diff --git a/bwbtest/HB1X/EDIT_2.BAS b/bwbtest/HB1X/EDIT_2.BAS deleted file mode 100644 index 7a8cfd6..0000000 --- a/bwbtest/HB1X/EDIT_2.BAS +++ /dev/null @@ -1,24 +0,0 @@ - 100 rem EDIT test - 110 rem - 120 rem - 130 rem - 140 let a=1 - : b=2 - : c=3 - 150 if a=b then - : print "error" - : else - : print "OK" - : END IF - 160 let d=4 - ' comment - 170 if b<>c then - : print "OK" - : print "again" - : else - : print "error" - : print "AGAIN" - : END IF - ' comment2 - 180 end - diff --git a/bwbtest/HB1X/EDIT_3.BAS b/bwbtest/HB1X/EDIT_3.BAS deleted file mode 100644 index f7a58ef..0000000 --- a/bwbtest/HB1X/EDIT_3.BAS +++ /dev/null @@ -1,9 +0,0 @@ - 100 rem EDIT test - 110 rem - 120 rem - 130 rem - 140 let a=1:b=2:c=3 - 150 if a=b then print "error" else print "OK" - 160 let d=4 ' comment - 170 if b<>c then print "OK":print "again" else print "error":print "AGAIN"' comment2 - 180 end diff --git a/bwbtest/HB1X/FNEND.BAS b/bwbtest/HB1X/FNEND.BAS deleted file mode 100644 index 813cef0..0000000 --- a/bwbtest/HB1X/FNEND.BAS +++ /dev/null @@ -1,23 +0,0 @@ -100 rem Purpose: Verify multi-line DEF ... FNEND -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-22 -130 rem -135 rem single-line without parameter -140 def FNA=1.234 -145 rem single-line with parameter -150 def FNB(X)=X*2 -160 def FNC -165 rem multi-line without parameter -170 let FNC=3 -180 fnend -190 def FND(X) -200 rem multi-line with parameter -210 if X > 10 then 240 -220 let FND=X*2 -230 goto 250 -240 let FND=X/2 -250 fnend -260 rem -270 rem -300 print fna,fnb(2),fnc,fnd(5),fnd(15) -310 end diff --git a/bwbtest/HB1X/FNEND.run b/bwbtest/HB1X/FNEND.run deleted file mode 100644 index 543eff9..0000000 --- a/bwbtest/HB1X/FNEND.run +++ /dev/null @@ -1 +0,0 @@ - 1.234 4 3 10 7.5 diff --git a/bwbtest/HB1X/GOSUB_OF.BAS b/bwbtest/HB1X/GOSUB_OF.BAS deleted file mode 100644 index bc11225..0000000 --- a/bwbtest/HB1X/GOSUB_OF.BAS +++ /dev/null @@ -1,20 +0,0 @@ -100 rem Purpose: Verify GOSUB-OF -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-22 -130 rem -135 print "ENTER A NUMBER (-999 TO END)"; -140 input A -145 if a=-999 then 9999 -150 gosub A of 1100,1200,1300,1400,1500 -160 goto 135 -1100 print "1" -1110 return -1200 print "2" -1210 return -1300 print "3" -1310 return -1400 print "4" -1410 return -1500 print "5" -1510 return -9999 end diff --git a/bwbtest/HB1X/GOSUB_OF.INP b/bwbtest/HB1X/GOSUB_OF.INP deleted file mode 100644 index 6ab810f..0000000 --- a/bwbtest/HB1X/GOSUB_OF.INP +++ /dev/null @@ -1,11 +0,0 @@ -0 -1 -2 -3 -4 -5 -6 -7 -8 -9 --999 diff --git a/bwbtest/HB1X/GOSUB_OF.run b/bwbtest/HB1X/GOSUB_OF.run deleted file mode 100644 index b69080e..0000000 --- a/bwbtest/HB1X/GOSUB_OF.run +++ /dev/null @@ -1,16 +0,0 @@ -ENTER A NUMBER (-999 TO END)? 0 -ENTER A NUMBER (-999 TO END)? 1 -1 -ENTER A NUMBER (-999 TO END)? 2 -2 -ENTER A NUMBER (-999 TO END)? 3 -3 -ENTER A NUMBER (-999 TO END)? 4 -4 -ENTER A NUMBER (-999 TO END)? 5 -5 -ENTER A NUMBER (-999 TO END)? 6 -ENTER A NUMBER (-999 TO END)? 7 -ENTER A NUMBER (-999 TO END)? 8 -ENTER A NUMBER (-999 TO END)? 9 -ENTER A NUMBER (-999 TO END)? -999 diff --git a/bwbtest/HB1X/GOSUB_X.BAS b/bwbtest/HB1X/GOSUB_X.BAS deleted file mode 100644 index 2c328b7..0000000 --- a/bwbtest/HB1X/GOSUB_X.BAS +++ /dev/null @@ -1,24 +0,0 @@ -100 rem Purpose: Verify GOSUB X -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-22 -130 rem -135 print "ENTER A NUMBER (-999 TO END)"; -140 input A -145 if a=-999 then 9999 -150 let A=INT(A) -152 if A < 1 then 135 -154 if A > 5 then 135 -156 A=1000+A*100 -158 gosub A -160 goto 135 -1100 print "1" -1110 return -1200 print "2" -1210 return -1300 print "3" -1310 return -1400 print "4" -1410 return -1500 print "5" -1510 return -9999 end diff --git a/bwbtest/HB1X/GOSUB_X.INP b/bwbtest/HB1X/GOSUB_X.INP deleted file mode 100644 index 6ab810f..0000000 --- a/bwbtest/HB1X/GOSUB_X.INP +++ /dev/null @@ -1,11 +0,0 @@ -0 -1 -2 -3 -4 -5 -6 -7 -8 -9 --999 diff --git a/bwbtest/HB1X/GOSUB_X.run b/bwbtest/HB1X/GOSUB_X.run deleted file mode 100644 index b69080e..0000000 --- a/bwbtest/HB1X/GOSUB_X.run +++ /dev/null @@ -1,16 +0,0 @@ -ENTER A NUMBER (-999 TO END)? 0 -ENTER A NUMBER (-999 TO END)? 1 -1 -ENTER A NUMBER (-999 TO END)? 2 -2 -ENTER A NUMBER (-999 TO END)? 3 -3 -ENTER A NUMBER (-999 TO END)? 4 -4 -ENTER A NUMBER (-999 TO END)? 5 -5 -ENTER A NUMBER (-999 TO END)? 6 -ENTER A NUMBER (-999 TO END)? 7 -ENTER A NUMBER (-999 TO END)? 8 -ENTER A NUMBER (-999 TO END)? 9 -ENTER A NUMBER (-999 TO END)? -999 diff --git a/bwbtest/HB1X/GOTO_OF.BAS b/bwbtest/HB1X/GOTO_OF.BAS deleted file mode 100644 index 6e3deef..0000000 --- a/bwbtest/HB1X/GOTO_OF.BAS +++ /dev/null @@ -1,19 +0,0 @@ -100 rem Purpose: Verify GOTO X OF line,... -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-22 -130 rem -140 let x=5 -150 goto X of 1100,1200,1300,1400,1500 -160 print "GOTO X OF FAILED" -170 stop -1100 print "1" -1110 goto 9999 -1200 print "2" -1210 goto 9999 -1300 print "3" -1310 goto 9999 -1400 print "4" -1410 goto 9999 -1500 print "5" -1510 goto 9999 -9999 end diff --git a/bwbtest/HB1X/GOTO_OF.run b/bwbtest/HB1X/GOTO_OF.run deleted file mode 100644 index 58cc984..0000000 --- a/bwbtest/HB1X/GOTO_OF.run +++ /dev/null @@ -1 +0,0 @@ -5 diff --git a/bwbtest/HB1X/GOTO_X.BAS b/bwbtest/HB1X/GOTO_X.BAS deleted file mode 100644 index b11f3a5..0000000 --- a/bwbtest/HB1X/GOTO_X.BAS +++ /dev/null @@ -1,12 +0,0 @@ -100 rem Purpose: Verify GOTO X -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-22 -130 rem Note: Value in X must be a valid line number -140 rem -150 let X=200 -160 goto X -170 print "GOTO X FAILED" -180 stop -190 rem -200 print "GOTO X PASSED" -210 end diff --git a/bwbtest/HB1X/GOTO_X.run b/bwbtest/HB1X/GOTO_X.run deleted file mode 100644 index f2bafa7..0000000 --- a/bwbtest/HB1X/GOTO_X.run +++ /dev/null @@ -1 +0,0 @@ -GOTO X PASSED diff --git a/bwbtest/HB1X/HB1.PRO b/bwbtest/HB1X/HB1.PRO deleted file mode 100644 index 94741c0..0000000 --- a/bwbtest/HB1X/HB1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "HANDBOOK1" diff --git a/bwbtest/HB1X/LIKE_1.BAS b/bwbtest/HB1X/LIKE_1.BAS deleted file mode 100644 index 8c7262f..0000000 --- a/bwbtest/HB1X/LIKE_1.BAS +++ /dev/null @@ -1,91 +0,0 @@ - 100 rem Purpose: Verify LIKE operator - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-06-04 - 130 rem - 140 restore - 150 read Y, A$, B$ - : let X = A$ like B$ - : print using "% % LIKE % % = ## (should be ##) ";A$;B$;X;Y; - : if X <> Y then - : print "ERROR" - : else - : print "OK" - : end if - : if len(A$) = 0 and len(B$) = 0 then 999 - 199 goto 150 - 200 data -1, "TEST.BAS", "*.BAS" - : data -1, "TEST.BAS", "TEST.*" - : data -1, "TEST.BAS", "*.*" - : data -1, "TEST.BAS", "*" - : data -1, "TBAS.BAS", "*BAS" - : data -1, "BAST.BAS", "*BAS" - : data -1, "TEST.BAS", "*T.B*" - : data -1, "TEST.BAS", "*ST.BA*" - : data -1, "TEST.BAS", "*.[B][A][S]" - : data -1, "TEST.BAS", "*.[Bb][Aa][Ss]" - : data 0, "TEST.BAS", "*.[!B][A][S]" - : data 0, "TEST.BAS", "*.[B][!A][S]" - : data 0, "TEST.BAS", "*.[B][A][!S]" - : data -1, "TEST.BAS", "*.[A-Z][A-Z][A-Z]" - : data -1, "TEST.BAS", "*.[!AC-Z0-9][!B-Z0-9][!A-RT-Z0-9]" - : data 0, "ABCDEFG" , "*.BAS" - : data 0, "ABCDEFG" , "TEST.*" - : data 0, "ABCDEFG" , "*.*" - : data -1, "ABCDEFG" , "*" - : data -1, "ABCDEFG" , "A*" - : data 0, "BBCDEFG" , "A*" - : data -1, "ABCDEFG" , "*G" - : data 0, "ABCDEFF" , "*G" - : data -1, "ABCDEFG" , "[A-Z]*" - : data -1, "ABCDEFG" , "*[A-Z]" - : data -1, "ABCDEFG" , "[A-Z]*[A-Z]" - : data -1, "1234567" , "#*" - : data 0, "X234567" , "#*" - : data -1, "1234567" , "*#" - : data 0, "123456X" , "*#" - : data -1, "1234567" , "#######" - : data -1, "123X567" , "###?###" - : data -1, "123X567" , "###X###" - : data 0, "123X567" , "##?####" - : data -1, "123X567" , "##?X###" - : data -1, "ABCDEFG" , "?*" - : data -1, "ABCDEFG" , "*?" - : data -1, "ABA" , "*BA" - : data -1, "ABA" , "AB*" - : data -1, "ABA" , "ABA" - : data -1, "ABBA" , "*BA" - : data -1, "ABBA" , "AB*" - : data -1, "ABBA" , "*BB*" - : data -1, "ABBA" , "A*A" - : data -1, "ABBBA" , "*BA" - : data -1, "ABBBBA" , "*BA" - : data 0, "ABBAA" , "*BA" - : data -1, "ABABABA" , "*BA" - : data -1, "ABAZZBA" , "*BA" - : data -1, "ABAZZBA" , "*BA" - : data -1, "AZBAZBA" , "*B*Z*A" - : data -1, "AZBAZBA" , "*A*Z*B*A" - : data -1, "AZBAZBA" , "*A*Z*B*A*" - : data 0, "" , "[!]" - : data 0, "" , "[!]*" - : data 0, "" , "*[!]" - : data -1, "X" , "[!]" - : data -1, "X" , "[!]*" - : data -1, "X" , "*[!]" - : data -1, "" , "[]" - : data -1, "" , "[]*" - : data -1, "" , "*[]" - : data 0, "X" , "[]" - : data -1, "X" , "[]*" - : data -1, "X" , "*[]" - : data -1, "X" , "?[]" - : data -1, "X" , "?[]*" - : data -1, "X" , "*?[]" - : data -1, "X" , "?*[]" - : data -1, "X" , "X[]" - : data -1, "X" , "X[]*" - : data -1, "X" , "*X[]" - : data -1, "X" , "X*[]" - : data -1, "" , "*" - : data -1, "" , "" - 999 end diff --git a/bwbtest/HB1X/LIKE_1.PRO b/bwbtest/HB1X/LIKE_1.PRO deleted file mode 100644 index f98c7af..0000000 --- a/bwbtest/HB1X/LIKE_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION ENABLE OPERATOR "LIKE" diff --git a/bwbtest/HB1X/LIKE_1.run b/bwbtest/HB1X/LIKE_1.run deleted file mode 100644 index b9b2d54..0000000 --- a/bwbtest/HB1X/LIKE_1.run +++ /dev/null @@ -1,75 +0,0 @@ -TEST.BAS LIKE *.BAS = -1 (should be -1) OK -TEST.BAS LIKE TEST.* = -1 (should be -1) OK -TEST.BAS LIKE *.* = -1 (should be -1) OK -TEST.BAS LIKE * = -1 (should be -1) OK -TBAS.BAS LIKE *BAS = -1 (should be -1) OK -BAST.BAS LIKE *BAS = -1 (should be -1) OK -TEST.BAS LIKE *T.B* = -1 (should be -1) OK -TEST.BAS LIKE *ST.BA* = -1 (should be -1) OK -TEST.BAS LIKE *.[B][A][S] = -1 (should be -1) OK -TEST.BAS LIKE *.[Bb][Aa][S = -1 (should be -1) OK -TEST.BAS LIKE *.[!B][A][S] = 0 (should be 0) OK -TEST.BAS LIKE *.[B][!A][S] = 0 (should be 0) OK -TEST.BAS LIKE *.[B][A][!S] = 0 (should be 0) OK -TEST.BAS LIKE *.[A-Z][A-Z] = -1 (should be -1) OK -TEST.BAS LIKE *.[!AC-Z0-9] = -1 (should be -1) OK -ABCDEFG LIKE *.BAS = 0 (should be 0) OK -ABCDEFG LIKE TEST.* = 0 (should be 0) OK -ABCDEFG LIKE *.* = 0 (should be 0) OK -ABCDEFG LIKE * = -1 (should be -1) OK -ABCDEFG LIKE A* = -1 (should be -1) OK -BBCDEFG LIKE A* = 0 (should be 0) OK -ABCDEFG LIKE *G = -1 (should be -1) OK -ABCDEFF LIKE *G = 0 (should be 0) OK -ABCDEFG LIKE [A-Z]* = -1 (should be -1) OK -ABCDEFG LIKE *[A-Z] = -1 (should be -1) OK -ABCDEFG LIKE [A-Z]*[A-Z] = -1 (should be -1) OK -1234567 LIKE #* = -1 (should be -1) OK -X234567 LIKE #* = 0 (should be 0) OK -1234567 LIKE *# = -1 (should be -1) OK -123456X LIKE *# = 0 (should be 0) OK -1234567 LIKE ####### = -1 (should be -1) OK -123X567 LIKE ###?### = -1 (should be -1) OK -123X567 LIKE ###X### = -1 (should be -1) OK -123X567 LIKE ##?#### = 0 (should be 0) OK -123X567 LIKE ##?X### = -1 (should be -1) OK -ABCDEFG LIKE ?* = -1 (should be -1) OK -ABCDEFG LIKE *? = -1 (should be -1) OK -ABA LIKE *BA = -1 (should be -1) OK -ABA LIKE AB* = -1 (should be -1) OK -ABA LIKE ABA = -1 (should be -1) OK -ABBA LIKE *BA = -1 (should be -1) OK -ABBA LIKE AB* = -1 (should be -1) OK -ABBA LIKE *BB* = -1 (should be -1) OK -ABBA LIKE A*A = -1 (should be -1) OK -ABBBA LIKE *BA = -1 (should be -1) OK -ABBBBA LIKE *BA = -1 (should be -1) OK -ABBAA LIKE *BA = 0 (should be 0) OK -ABABABA LIKE *BA = -1 (should be -1) OK -ABAZZBA LIKE *BA = -1 (should be -1) OK -ABAZZBA LIKE *BA = -1 (should be -1) OK -AZBAZBA LIKE *B*Z*A = -1 (should be -1) OK -AZBAZBA LIKE *A*Z*B*A = -1 (should be -1) OK -AZBAZBA LIKE *A*Z*B*A* = -1 (should be -1) OK - LIKE [!] = 0 (should be 0) OK - LIKE [!]* = 0 (should be 0) OK - LIKE *[!] = 0 (should be 0) OK -X LIKE [!] = -1 (should be -1) OK -X LIKE [!]* = -1 (should be -1) OK -X LIKE *[!] = -1 (should be -1) OK - LIKE [] = -1 (should be -1) OK - LIKE []* = -1 (should be -1) OK - LIKE *[] = -1 (should be -1) OK -X LIKE [] = 0 (should be 0) OK -X LIKE []* = -1 (should be -1) OK -X LIKE *[] = -1 (should be -1) OK -X LIKE ?[] = -1 (should be -1) OK -X LIKE ?[]* = -1 (should be -1) OK -X LIKE *?[] = -1 (should be -1) OK -X LIKE ?*[] = -1 (should be -1) OK -X LIKE X[] = -1 (should be -1) OK -X LIKE X[]* = -1 (should be -1) OK -X LIKE *X[] = -1 (should be -1) OK -X LIKE X*[] = -1 (should be -1) OK - LIKE * = -1 (should be -1) OK - LIKE = -1 (should be -1) OK diff --git a/bwbtest/HB1X/MAT_FILES.TXT b/bwbtest/HB1X/MAT_FILES.TXT deleted file mode 100644 index 3e183fe..0000000 --- a/bwbtest/HB1X/MAT_FILES.TXT +++ /dev/null @@ -1,46 +0,0 @@ -Matrix Number of Matrix Option -Operation Dimensions Type Base Filename -========= ============ ============ ====== ====================== - - -INPUT 1 NUMBER 0 MAT_INPUT_1_N_0.BAS -INPUT 1 NUMBER 1 MAT_INPUT_1_N_1.BAS -INPUT 2 NUMBER 0 MAT_INPUT_2_N_0.BAS -INPUT 2 NUMBER 1 MAT_INPUT_2_N_1.BAS -INPUT 3 NUMBER 0 MAT_INPUT_3_N_0.BAS -INPUT 3 NUMBER 1 MAT_INPUT_3_N_1.BAS -INPUT 1 STRING 0 MAT_INPUT_1_S_0.BAS -INPUT 1 STRING 1 MAT_INPUT_1_S_1.BAS -INPUT 2 STRING 0 MAT_INPUT_2_S_0.BAS -INPUT 2 STRING 1 MAT_INPUT_2_S_1.BAS -INPUT 3 STRING 0 MAT_INPUT_3_S_0.BAS -INPUT 3 STRING 1 MAT_INPUT_3_S_1.BAS - - -PRINT 1 NUMBER 0 MAT_PRINT_1_N_0.BAS -PRINT 1 NUMBER 1 MAT_PRINT_1_N_1.BAS -PRINT 2 NUMBER 0 MAT_PRINT_2_N_0.BAS -PRINT 2 NUMBER 1 MAT_PRINT_2_N_1.BAS -PRINT 3 NUMBER 0 MAT_PRINT_3_N_0.BAS -PRINT 3 NUMBER 1 MAT_PRINT_3_N_1.BAS -PRINT 1 STRING 0 MAT_PRINT_1_S_0.BAS -PRINT 1 STRING 1 MAT_PRINT_1_S_1.BAS -PRINT 2 STRING 0 MAT_PRINT_2_S_0.BAS -PRINT 2 STRING 1 MAT_PRINT_2_S_1.BAS -PRINT 3 STRING 0 MAT_PRINT_3_S_0.BAS -PRINT 3 STRING 1 MAT_PRINT_3_S_1.BAS - - -READ 1 NUMBER 0 MAT_READ__1_N_0.BAS -READ 1 NUMBER 1 MAT_READ__1_N_1.BAS -READ 2 NUMBER 0 MAT_READ__2_N_0.BAS -READ 2 NUMBER 1 MAT_READ__2_N_1.BAS -READ 3 NUMBER 0 MAT_READ__3_N_0.BAS -READ 3 NUMBER 1 MAT_READ__3_N_1.BAS -READ 1 STRING 0 MAT_READ__1_S_0.BAS -READ 1 STRING 1 MAT_READ__1_S_1.BAS -READ 2 STRING 0 MAT_READ__2_S_0.BAS -READ 2 STRING 1 MAT_READ__2_S_1.BAS -READ 3 STRING 0 MAT_READ__3_S_0.BAS -READ 3 STRING 1 MAT_READ__3_S_1.BAS - diff --git a/bwbtest/HB1X/MAT_INPUT_1_N_0 .INP b/bwbtest/HB1X/MAT_INPUT_1_N_0 .INP deleted file mode 100644 index 292a068..0000000 --- a/bwbtest/HB1X/MAT_INPUT_1_N_0 .INP +++ /dev/null @@ -1 +0,0 @@ -0,1,2,3,4,5 diff --git a/bwbtest/HB1X/MAT_INPUT_1_N_0.BAS b/bwbtest/HB1X/MAT_INPUT_1_N_0.BAS deleted file mode 100644 index 0004626..0000000 --- a/bwbtest/HB1X/MAT_INPUT_1_N_0.BAS +++ /dev/null @@ -1,9 +0,0 @@ -100 rem Purpose: Verify MAT INPUT -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-20 -130 rem Flavor: 1 dimension, number, base 0 -140 option base 0 -160 dim A(5) -170 mat input A -180 mat print A -190 end diff --git a/bwbtest/HB1X/MAT_INPUT_1_N_0.INP b/bwbtest/HB1X/MAT_INPUT_1_N_0.INP deleted file mode 100644 index 414454e..0000000 --- a/bwbtest/HB1X/MAT_INPUT_1_N_0.INP +++ /dev/null @@ -1,3 +0,0 @@ -0 -1,2 -3,4,5 diff --git a/bwbtest/HB1X/MAT_INPUT_1_N_0.run b/bwbtest/HB1X/MAT_INPUT_1_N_0.run deleted file mode 100644 index c21bb77..0000000 --- a/bwbtest/HB1X/MAT_INPUT_1_N_0.run +++ /dev/null @@ -1,9 +0,0 @@ -?0 -?1,2 -?3,4,5 - 0 - 1 - 2 - 3 - 4 - 5 diff --git a/bwbtest/HB1X/MAT_INPUT_1_S_1.BAS b/bwbtest/HB1X/MAT_INPUT_1_S_1.BAS deleted file mode 100644 index 16c02b0..0000000 --- a/bwbtest/HB1X/MAT_INPUT_1_S_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -100 rem Purpose: Verify MAT INPUT -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-20 -130 rem Flavor: 1 dimension, string, base 1 -140 option base 1 -160 dim A$(5) -170 mat input A$ -180 mat print A$ -190 end diff --git a/bwbtest/HB1X/MAT_INPUT_1_S_1.INP b/bwbtest/HB1X/MAT_INPUT_1_S_1.INP deleted file mode 100644 index d2b7bcd..0000000 --- a/bwbtest/HB1X/MAT_INPUT_1_S_1.INP +++ /dev/null @@ -1,3 +0,0 @@ -one -two,three -four,five diff --git a/bwbtest/HB1X/MAT_INPUT_1_S_1.run b/bwbtest/HB1X/MAT_INPUT_1_S_1.run deleted file mode 100644 index fdeefa1..0000000 --- a/bwbtest/HB1X/MAT_INPUT_1_S_1.run +++ /dev/null @@ -1,8 +0,0 @@ -?one -?two,three -?four,five -one -two -three -four -five diff --git a/bwbtest/HB1X/MAT_PRINT_1_N_0.BAS b/bwbtest/HB1X/MAT_PRINT_1_N_0.BAS deleted file mode 100644 index 96e38ed..0000000 --- a/bwbtest/HB1X/MAT_PRINT_1_N_0.BAS +++ /dev/null @@ -1,13 +0,0 @@ -100 rem MAT PRINT -110 rem Howard Wulf, AF5NE -120 rem 2015-05-19 -130 rem -140 option base 0 -150 dim A(5) -160 for I=0 to 5 -170 A(I)=I*10 -180 next I -190 mat print A -200 mat print A, -210 mat print A; -999 end diff --git a/bwbtest/HB1X/MAT_PRINT_1_N_0.run b/bwbtest/HB1X/MAT_PRINT_1_N_0.run deleted file mode 100644 index 3fae684..0000000 --- a/bwbtest/HB1X/MAT_PRINT_1_N_0.run +++ /dev/null @@ -1,8 +0,0 @@ - 0 - 10 - 20 - 30 - 40 - 50 - 0 10 20 30 40 50 - 0 10 20 30 40 50 diff --git a/bwbtest/HB1X/MAT_PRINT_1_S_0.BAS b/bwbtest/HB1X/MAT_PRINT_1_S_0.BAS deleted file mode 100644 index 56ef57c..0000000 --- a/bwbtest/HB1X/MAT_PRINT_1_S_0.BAS +++ /dev/null @@ -1,13 +0,0 @@ -100 rem MAT PRINT -110 rem Howard Wulf, AF5NE -120 rem 2015-05-19 -130 rem -140 option base 0 -150 dim A$(5) -160 for I=0 to 5 -170 A$(I)=STR$(I*10) -180 next I -190 mat print A$ -200 mat print A$, -210 mat print A$; -999 end diff --git a/bwbtest/HB1X/MAT_PRINT_1_S_0.run b/bwbtest/HB1X/MAT_PRINT_1_S_0.run deleted file mode 100644 index 3fae684..0000000 --- a/bwbtest/HB1X/MAT_PRINT_1_S_0.run +++ /dev/null @@ -1,8 +0,0 @@ - 0 - 10 - 20 - 30 - 40 - 50 - 0 10 20 30 40 50 - 0 10 20 30 40 50 diff --git a/bwbtest/HB1X/MAT_PRINT_2_N_0.BAS b/bwbtest/HB1X/MAT_PRINT_2_N_0.BAS deleted file mode 100644 index bfa9e6d..0000000 --- a/bwbtest/HB1X/MAT_PRINT_2_N_0.BAS +++ /dev/null @@ -1,15 +0,0 @@ -100 rem MAT PRINT -110 rem Howard Wulf, AF5NE -120 rem 2015-05-19 -130 rem -140 option base 0 -150 dim B(5,2) -160 for I=0 to 5 -170 for J=0 to 2 -180 B(I,J)=I*10 + J -190 next J -200 next I -210 mat print B -220 mat print B, -230 mat print B; -999 end diff --git a/bwbtest/HB1X/MAT_PRINT_2_N_0.run b/bwbtest/HB1X/MAT_PRINT_2_N_0.run deleted file mode 100644 index e3e009d..0000000 --- a/bwbtest/HB1X/MAT_PRINT_2_N_0.run +++ /dev/null @@ -1,18 +0,0 @@ - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 diff --git a/bwbtest/HB1X/MAT_PRINT_2_S_0.BAS b/bwbtest/HB1X/MAT_PRINT_2_S_0.BAS deleted file mode 100644 index 713f572..0000000 --- a/bwbtest/HB1X/MAT_PRINT_2_S_0.BAS +++ /dev/null @@ -1,15 +0,0 @@ -100 rem MAT PRINT -110 rem Howard Wulf, AF5NE -120 rem 2015-05-19 -130 rem -140 option base 0 -150 dim B$(5,2) -160 for I=0 to 5 -170 for J=0 to 2 -180 B$(I,J)=STR$(I*10 + J) -190 next J -200 next I -210 mat print B$ -220 mat print B$, -230 mat print B$; -999 end diff --git a/bwbtest/HB1X/MAT_PRINT_2_S_0.run b/bwbtest/HB1X/MAT_PRINT_2_S_0.run deleted file mode 100644 index e3e009d..0000000 --- a/bwbtest/HB1X/MAT_PRINT_2_S_0.run +++ /dev/null @@ -1,18 +0,0 @@ - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 diff --git a/bwbtest/HB1X/MAT_PRINT_3_N_0.BAS b/bwbtest/HB1X/MAT_PRINT_3_N_0.BAS deleted file mode 100644 index 4a04019..0000000 --- a/bwbtest/HB1X/MAT_PRINT_3_N_0.BAS +++ /dev/null @@ -1,17 +0,0 @@ -100 rem MAT PRINT -110 rem Howard Wulf, AF5NE -120 rem 2015-05-19 -130 rem -140 option base 0 -150 dim C(5,2,3) -160 for I=0 to 5 -170 for J=0 to 2 -180 for K=0 to 3 -190 C(I,J,K) = I*100 + J*10 + K -200 next K -210 next J -220 next I -230 mat print C -240 mat print C, -250 mat print C; -999 end diff --git a/bwbtest/HB1X/MAT_PRINT_3_N_0.run b/bwbtest/HB1X/MAT_PRINT_3_N_0.run deleted file mode 100644 index c5f8b9e..0000000 --- a/bwbtest/HB1X/MAT_PRINT_3_N_0.run +++ /dev/null @@ -1,72 +0,0 @@ - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - diff --git a/bwbtest/HB1X/MAT_PRINT_3_S_0.BAS b/bwbtest/HB1X/MAT_PRINT_3_S_0.BAS deleted file mode 100644 index 3601839..0000000 --- a/bwbtest/HB1X/MAT_PRINT_3_S_0.BAS +++ /dev/null @@ -1,17 +0,0 @@ -100 rem MAT PRINT -110 rem Howard Wulf, AF5NE -120 rem 2015-05-19 -130 rem -140 option base 0 -150 dim C$(5,2,3) -160 for I=0 to 5 -170 for J=0 to 2 -180 for K=0 to 3 -190 C$(I,J,K) = STR$(I*100 + J*10 + K) -200 next K -210 next J -220 next I -230 mat print C$ -240 mat print C$, -250 mat print C$; -999 end diff --git a/bwbtest/HB1X/MAT_PRINT_3_S_0.run b/bwbtest/HB1X/MAT_PRINT_3_S_0.run deleted file mode 100644 index c5f8b9e..0000000 --- a/bwbtest/HB1X/MAT_PRINT_3_S_0.run +++ /dev/null @@ -1,72 +0,0 @@ - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - diff --git a/bwbtest/HB1X/MAT_PRINT_4.BAS b/bwbtest/HB1X/MAT_PRINT_4.BAS deleted file mode 100644 index e302dbd..0000000 --- a/bwbtest/HB1X/MAT_PRINT_4.BAS +++ /dev/null @@ -1,58 +0,0 @@ -1100 rem MAT PRINT -1110 rem Howard Wulf, AF5NE -1120 rem 2015-05-19 -1130 rem -1140 option base 0 -1150 dim A(5) -1160 for I=0 to 5 -1170 A(I)=I*10 -1180 next I -1190 mat print A -1200 mat print A, -1210 mat print A; -1999 rem end -2100 rem MAT PRINT -2110 rem Howard Wulf, AF5NE -2120 rem 2015-05-19 -2130 rem -2140 rem option base 0 -2150 dim B(5,2) -2160 for I=0 to 5 -2170 for J=0 to 2 -2180 B(I,J)=I*10 + J -2190 next J -2200 next I -2210 mat print B -2220 mat print B, -2230 mat print B; -2999 rem end -3100 rem MAT PRINT -3110 rem Howard Wulf, AF5NE -3120 rem 2015-05-19 -3130 rem -3140 rem option base 0 -3150 dim C(5,2,3) -3160 for I=0 to 5 -3170 for J=0 to 2 -3180 for K=0 to 3 -3190 C(I,J,K) = I*100 + J*10 + K -3200 next K -3210 next J -3220 next I -3230 mat print C -3240 mat print C, -3250 mat print C; -3999 rem end -4100 rem MAT PRINT -4110 rem Howard Wulf, AF5NE -4120 rem 2015-05-19 -4130 rem -4140 mat print A,A, -4150 mat print A;A; -4160 mat print B,B, -4170 mat print B;B; -4180 mat print C,C, -4190 mat print C;C; -4200 mat print A,B,C, -4210 mat print A;B;C; -4999 end diff --git a/bwbtest/HB1X/MAT_PRINT_4.run b/bwbtest/HB1X/MAT_PRINT_4.run deleted file mode 100644 index 0797708..0000000 --- a/bwbtest/HB1X/MAT_PRINT_4.run +++ /dev/null @@ -1,284 +0,0 @@ - 0 - 10 - 20 - 30 - 40 - 50 - 0 10 20 30 40 50 - 0 10 20 30 40 50 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 10 20 30 40 50 - 0 10 20 30 40 50 - 0 10 20 30 40 50 - 0 10 20 30 40 50 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 10 20 30 40 50 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - - 0 10 20 30 40 50 - 0 1 2 - 10 11 12 - 20 21 22 - 30 31 32 - 40 41 42 - 50 51 52 - 0 1 2 3 - 10 11 12 13 - 20 21 22 23 - - 100 101 102 103 - 110 111 112 113 - 120 121 122 123 - - 200 201 202 203 - 210 211 212 213 - 220 221 222 223 - - 300 301 302 303 - 310 311 312 313 - 320 321 322 323 - - 400 401 402 403 - 410 411 412 413 - 420 421 422 423 - - 500 501 502 503 - 510 511 512 513 - 520 521 522 523 - diff --git a/bwbtest/HB1X/MAT_READ_1_N_0.BAS b/bwbtest/HB1X/MAT_READ_1_N_0.BAS deleted file mode 100644 index 9ff5b3d..0000000 --- a/bwbtest/HB1X/MAT_READ_1_N_0.BAS +++ /dev/null @@ -1,10 +0,0 @@ -100 rem Purpose: Verify MAT READ -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-20 -130 rem -140 option base 0 -150 data 0,1,2,3,4,5 -160 dim A(5) -170 mat read A -180 mat print A -190 end diff --git a/bwbtest/HB1X/MAT_READ_1_N_0.run b/bwbtest/HB1X/MAT_READ_1_N_0.run deleted file mode 100644 index 80921c3..0000000 --- a/bwbtest/HB1X/MAT_READ_1_N_0.run +++ /dev/null @@ -1,6 +0,0 @@ - 0 - 1 - 2 - 3 - 4 - 5 diff --git a/bwbtest/HB1X/MAT_READ_1_N_1.BAS b/bwbtest/HB1X/MAT_READ_1_N_1.BAS deleted file mode 100644 index e326ad9..0000000 --- a/bwbtest/HB1X/MAT_READ_1_N_1.BAS +++ /dev/null @@ -1,10 +0,0 @@ -100 rem Purpose: Verify MAT READ -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-20 -130 rem -140 option base 1 -150 data 1,2,3,4,5 -160 dim A(5) -170 mat read A -180 mat print A -190 end diff --git a/bwbtest/HB1X/MAT_READ_1_N_1.run b/bwbtest/HB1X/MAT_READ_1_N_1.run deleted file mode 100644 index dce3fa4..0000000 --- a/bwbtest/HB1X/MAT_READ_1_N_1.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 - 2 - 3 - 4 - 5 diff --git a/bwbtest/HB1X/MAT_READ_1_S_0.BAS b/bwbtest/HB1X/MAT_READ_1_S_0.BAS deleted file mode 100644 index df08597..0000000 --- a/bwbtest/HB1X/MAT_READ_1_S_0.BAS +++ /dev/null @@ -1,10 +0,0 @@ -100 rem Purpose: Verify MAT READ -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-20 -130 rem -140 option base 0 -150 data zero,one,two,three,four,five -160 dim A$(5) -170 mat read A$ -180 mat print A$ -190 end diff --git a/bwbtest/HB1X/MAT_READ_1_S_0.run b/bwbtest/HB1X/MAT_READ_1_S_0.run deleted file mode 100644 index b7a92bd..0000000 --- a/bwbtest/HB1X/MAT_READ_1_S_0.run +++ /dev/null @@ -1,6 +0,0 @@ -zero -one -two -three -four -five diff --git a/bwbtest/HB1X/MAT_READ_1_S_1.BAS b/bwbtest/HB1X/MAT_READ_1_S_1.BAS deleted file mode 100644 index 7cbafd7..0000000 --- a/bwbtest/HB1X/MAT_READ_1_S_1.BAS +++ /dev/null @@ -1,10 +0,0 @@ -100 rem Purpose: Verify MAT READ -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-20 -130 rem -140 option base 1 -150 data one,two,three,four,five -160 dim A$(5) -170 mat read A$ -180 mat print A$ -190 end diff --git a/bwbtest/HB1X/MAT_READ_1_S_1.run b/bwbtest/HB1X/MAT_READ_1_S_1.run deleted file mode 100644 index f6248c9..0000000 --- a/bwbtest/HB1X/MAT_READ_1_S_1.run +++ /dev/null @@ -1,5 +0,0 @@ -one -two -three -four -five diff --git a/bwbtest/HB1X/MAT_READ_2_N_0.BAS b/bwbtest/HB1X/MAT_READ_2_N_0.BAS deleted file mode 100644 index 8b87045..0000000 --- a/bwbtest/HB1X/MAT_READ_2_N_0.BAS +++ /dev/null @@ -1,10 +0,0 @@ -100 rem Purpose: Verify MAT READ -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-20 -130 rem -140 option base 0 -150 data 00,01,10,11,20,21,30,31,40,41,50,51 -170 dim B(5,1) -180 mat read B -190 mat print B -999 end diff --git a/bwbtest/HB1X/MAT_READ_2_N_0.run b/bwbtest/HB1X/MAT_READ_2_N_0.run deleted file mode 100644 index d680231..0000000 --- a/bwbtest/HB1X/MAT_READ_2_N_0.run +++ /dev/null @@ -1,6 +0,0 @@ - 0 1 - 10 11 - 20 21 - 30 31 - 40 41 - 50 51 diff --git a/bwbtest/HB1X/MAT_READ_2_S_0.BAS b/bwbtest/HB1X/MAT_READ_2_S_0.BAS deleted file mode 100644 index bdf911b..0000000 --- a/bwbtest/HB1X/MAT_READ_2_S_0.BAS +++ /dev/null @@ -1,10 +0,0 @@ -100 rem Purpose: Verify MAT READ -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-20 -130 rem -140 option base 0 -150 data "0,0","0,1","1,0","1,1","2,0","2,1","3,0","3,1","4,0","4,1","5,0","5,1" -170 dim B$(5,1) -180 mat read B$ -190 mat print B$ -999 end diff --git a/bwbtest/HB1X/MAT_READ_2_S_0.run b/bwbtest/HB1X/MAT_READ_2_S_0.run deleted file mode 100644 index 8df47f2..0000000 --- a/bwbtest/HB1X/MAT_READ_2_S_0.run +++ /dev/null @@ -1,6 +0,0 @@ -0,0 0,1 -1,0 1,1 -2,0 2,1 -3,0 3,1 -4,0 4,1 -5,0 5,1 diff --git a/bwbtest/HB1X/MAT_READ_3_N_0.BAS b/bwbtest/HB1X/MAT_READ_3_N_0.BAS deleted file mode 100644 index ef5e30b..0000000 --- a/bwbtest/HB1X/MAT_READ_3_N_0.BAS +++ /dev/null @@ -1,15 +0,0 @@ -100 rem Purpose: Verify MAT READ -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-20 -130 rem -140 option base 0 -150 data 111,112,113,114 -151 data 121,122,123,124 -152 data 131,132,133,134 -153 data 211,212,213,214 -154 data 221,222,223,224 -155 data 231,232,233,234 -170 dim C(1,2,3) -180 mat read C -190 mat print C -999 end diff --git a/bwbtest/HB1X/MAT_READ_3_N_0.run b/bwbtest/HB1X/MAT_READ_3_N_0.run deleted file mode 100644 index 5295f11..0000000 --- a/bwbtest/HB1X/MAT_READ_3_N_0.run +++ /dev/null @@ -1,8 +0,0 @@ - 111 112 113 114 - 121 122 123 124 - 131 132 133 134 - - 211 212 213 214 - 221 222 223 224 - 231 232 233 234 - diff --git a/bwbtest/HB1X/MAT_READ_3_S_0.BAS b/bwbtest/HB1X/MAT_READ_3_S_0.BAS deleted file mode 100644 index 97fab12..0000000 --- a/bwbtest/HB1X/MAT_READ_3_S_0.BAS +++ /dev/null @@ -1,15 +0,0 @@ -100 rem Purpose: Verify MAT READ -110 rem Author: Howard Wulf, AF5NE -120 rem Date: 2015-05-20 -130 rem -140 option base 0 -150 data 111,112,113,114 -151 data 121,122,123,124 -152 data 131,132,133,134 -153 data 211,212,213,214 -154 data 221,222,223,224 -155 data 231,232,233,234 -170 dim C$(1,2,3) -180 mat read C$ -190 mat print C$ -999 end diff --git a/bwbtest/HB1X/MAT_READ_3_S_0.run b/bwbtest/HB1X/MAT_READ_3_S_0.run deleted file mode 100644 index 9d7b6ff..0000000 --- a/bwbtest/HB1X/MAT_READ_3_S_0.run +++ /dev/null @@ -1,8 +0,0 @@ -111 112 113 114 -121 122 123 124 -131 132 133 134 - -211 212 213 214 -221 222 223 224 -231 232 233 234 - diff --git a/bwbtest/HB1X/PAD80.BAS b/bwbtest/HB1X/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/HB1X/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/HB1X/PAD80.INP b/bwbtest/HB1X/PAD80.INP deleted file mode 100644 index 161ea9a..0000000 --- a/bwbtest/HB1X/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA USING_2.OUT, USING_2.80 diff --git a/bwbtest/HB1X/PAD80.PRO b/bwbtest/HB1X/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/HB1X/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/HB1X/REM_1.BAS b/bwbtest/HB1X/REM_1.BAS deleted file mode 100644 index 7c51d1f..0000000 --- a/bwbtest/HB1X/REM_1.BAS +++ /dev/null @@ -1,32 +0,0 @@ -10 REM Purpose: -20 REM -100 rem test -110 ' test -120 rem ' test -130 ' rem test -140 print:rem test -150 print:rem ' test -160 ' label1:'test -170 ' label2:'rem test -180 ' label3 : ' test -190 ' label4 : ' rem test -200 rem test : test -210 rem test : ' test -220 ' test : test -230 ' test : rem test -240 ' test : ' test -250 print "hello":print"there":print"world":rem hello there worldd -260 print"a":print"b":print"c" 'abc -270 print:print:rem test -280 print:print ' rem test -290 print:print:rem ' test -300 rem:test -310 rem:'test -320 rem: ' test -330 rem:rem test -340 ':test -350 ':rem test -360 rem : test -370 rem : ' test -380 rem : rem test -390 'test:test diff --git a/bwbtest/HB1X/REM_1.run b/bwbtest/HB1X/REM_1.run deleted file mode 100644 index b6a227e..0000000 --- a/bwbtest/HB1X/REM_1.run +++ /dev/null @@ -1,14 +0,0 @@ - - -hello -there -world -a -b -c - - - - - - diff --git a/bwbtest/HB1X/USING_1.BAS b/bwbtest/HB1X/USING_1.BAS deleted file mode 100644 index 7f672c3..0000000 --- a/bwbtest/HB1X/USING_1.BAS +++ /dev/null @@ -1,38 +0,0 @@ - 1000 rem Purpose: Verify PRINT USING - 1010 rem Author: Howard Wulf, AF5NE - 1020 rem Date: 2015-06-03 - 1030 rem - 2000 let P(0) = .12345 - 2010 let P(1) = 1.2345 - 2020 let P(2) = 12.345 - 2030 let P(3) = 123.45 - 2040 let P(4) = 1234.5 - 2050 let P(5) = 12345. - 2060 let P(6) = 0 - 3000 let N(0) = -.12345 - 3010 let N(1) = -1.2345 - 3020 let N(2) = -12.345 - 3030 let N(3) = -123.45 - 3040 let N(4) = -1234.5 - 3050 let N(5) = -12345. - 3060 let N(6) = -0 - 4000 let F$(0) = "[+#####.#####] " - 4010 let F$(1) = "[+#####.#####] " - 4020 let F$(2) = " [#####.#####+]" - 4030 let F$(3) = " [#####.#####-]" - 4040 let F$(4) = " [#####.#####] " - 4050 let F$(5) = "[+#####.#^^^^] " - 4060 let F$(6) = "[-#####.#^^^^] " - 4070 let F$(7) = " [#####.#^^^^+]" - 4080 let F$(8) = " [#####.#^^^^-]" - 4090 let F$(9) = " [#####.#^^^^] " - 5000 for I = 0 to 9 - 5010 for J = 0 to 6 - 5020 print F$(I),P(J),using F$(I);P(J) - 5030 next j - 5040 for J = 0 to 6 - 5050 print F$(I),N(J),using F$(I);N(J) - 5060 next J - 5070 next I - 9999 end - diff --git a/bwbtest/HB1X/USING_1.run b/bwbtest/HB1X/USING_1.run deleted file mode 100644 index 330d355..0000000 --- a/bwbtest/HB1X/USING_1.run +++ /dev/null @@ -1,140 +0,0 @@ -[+#####.#####] .12345 [ +0.12345] -[+#####.#####] 1.2345 [ +1.23450] -[+#####.#####] 12.345 [ +12.34500] -[+#####.#####] 123.45 [ +123.45000] -[+#####.#####] 1234.5 [ +1234.50000] -[+#####.#####] 12345 [+12345.00000] -[+#####.#####] 0 [ +0.00000] -[+#####.#####] -.12345 [ -0.12345] -[+#####.#####] -1.2345 [ -1.23450] -[+#####.#####] -12.345 [ -12.34500] -[+#####.#####] -123.45 [ -123.45000] -[+#####.#####] -1234.5 [ -1234.50000] -[+#####.#####] -12345 [-12345.00000] -[+#####.#####] 0 [ +0.00000] -[+#####.#####] .12345 [ +0.12345] -[+#####.#####] 1.2345 [ +1.23450] -[+#####.#####] 12.345 [ +12.34500] -[+#####.#####] 123.45 [ +123.45000] -[+#####.#####] 1234.5 [ +1234.50000] -[+#####.#####] 12345 [+12345.00000] -[+#####.#####] 0 [ +0.00000] -[+#####.#####] -.12345 [ -0.12345] -[+#####.#####] -1.2345 [ -1.23450] -[+#####.#####] -12.345 [ -12.34500] -[+#####.#####] -123.45 [ -123.45000] -[+#####.#####] -1234.5 [ -1234.50000] -[+#####.#####] -12345 [-12345.00000] -[+#####.#####] 0 [ +0.00000] - [#####.#####+] .12345 [ 0.12345+] - [#####.#####+] 1.2345 [ 1.23450+] - [#####.#####+] 12.345 [ 12.34500+] - [#####.#####+] 123.45 [ 123.45000+] - [#####.#####+] 1234.5 [ 1234.50000+] - [#####.#####+] 12345 [12345.00000+] - [#####.#####+] 0 [ 0.00000+] - [#####.#####+] -.12345 [ 0.12345-] - [#####.#####+] -1.2345 [ 1.23450-] - [#####.#####+] -12.345 [ 12.34500-] - [#####.#####+] -123.45 [ 123.45000-] - [#####.#####+] -1234.5 [ 1234.50000-] - [#####.#####+] -12345 [12345.00000-] - [#####.#####+] 0 [ 0.00000+] - [#####.#####-] .12345 [ 0.12345 ] - [#####.#####-] 1.2345 [ 1.23450 ] - [#####.#####-] 12.345 [ 12.34500 ] - [#####.#####-] 123.45 [ 123.45000 ] - [#####.#####-] 1234.5 [ 1234.50000 ] - [#####.#####-] 12345 [12345.00000 ] - [#####.#####-] 0 [ 0.00000 ] - [#####.#####-] -.12345 [ 0.12345-] - [#####.#####-] -1.2345 [ 1.23450-] - [#####.#####-] -12.345 [ 12.34500-] - [#####.#####-] -123.45 [ 123.45000-] - [#####.#####-] -1234.5 [ 1234.50000-] - [#####.#####-] -12345 [12345.00000-] - [#####.#####-] 0 [ 0.00000 ] - [#####.#####] .12345 [ 0.12345] - [#####.#####] 1.2345 [ 1.23450] - [#####.#####] 12.345 [ 12.34500] - [#####.#####] 123.45 [ 123.45000] - [#####.#####] 1234.5 [ 1234.50000] - [#####.#####] 12345 [12345.00000] - [#####.#####] 0 [ 0.00000] - [#####.#####] -.12345 [ -0.12345] - [#####.#####] -1.2345 [ -1.23450] - [#####.#####] -12.345 [ -12.34500] - [#####.#####] -123.45 [ -123.45000] - [#####.#####] -1234.5 [-1234.50000] - [#####.#####] -12345 [-12345.00000] - [#####.#####] 0 [ 0.00000] -[+#####.#^^^^] .12345 [+1.23450e-01] -[+#####.#^^^^] 1.2345 [+1.23450e+00] -[+#####.#^^^^] 12.345 [+1.23450e+01] -[+#####.#^^^^] 123.45 [+1.23450e+02] -[+#####.#^^^^] 1234.5 [+1.23450e+03] -[+#####.#^^^^] 12345 [+1.23450e+04] -[+#####.#^^^^] 0 [+0.00000e+00] -[+#####.#^^^^] -.12345 [-1.23450e-01] -[+#####.#^^^^] -1.2345 [-1.23450e+00] -[+#####.#^^^^] -12.345 [-1.23450e+01] -[+#####.#^^^^] -123.45 [-1.23450e+02] -[+#####.#^^^^] -1234.5 [-1.23450e+03] -[+#####.#^^^^] -12345 [-1.23450e+04] -[+#####.#^^^^] 0 [+0.00000e+00] -[-#####.#^^^^] .12345 [+1.23450e-01] -[-#####.#^^^^] 1.2345 [+1.23450e+00] -[-#####.#^^^^] 12.345 [+1.23450e+01] -[-#####.#^^^^] 123.45 [+1.23450e+02] -[-#####.#^^^^] 1234.5 [+1.23450e+03] -[-#####.#^^^^] 12345 [+1.23450e+04] -[-#####.#^^^^] 0 [+0.00000e+00] -[-#####.#^^^^] -.12345 [-1.23450e-01] -[-#####.#^^^^] -1.2345 [-1.23450e+00] -[-#####.#^^^^] -12.345 [-1.23450e+01] -[-#####.#^^^^] -123.45 [-1.23450e+02] -[-#####.#^^^^] -1234.5 [-1.23450e+03] -[-#####.#^^^^] -12345 [-1.23450e+04] -[-#####.#^^^^] 0 [+0.00000e+00] - [#####.#^^^^+] .12345 [1.23450e-01+] - [#####.#^^^^+] 1.2345 [1.23450e+00+] - [#####.#^^^^+] 12.345 [1.23450e+01+] - [#####.#^^^^+] 123.45 [1.23450e+02+] - [#####.#^^^^+] 1234.5 [1.23450e+03+] - [#####.#^^^^+] 12345 [1.23450e+04+] - [#####.#^^^^+] 0 [0.00000e+00+] - [#####.#^^^^+] -.12345 [1.23450e-01-] - [#####.#^^^^+] -1.2345 [1.23450e+00-] - [#####.#^^^^+] -12.345 [1.23450e+01-] - [#####.#^^^^+] -123.45 [1.23450e+02-] - [#####.#^^^^+] -1234.5 [1.23450e+03-] - [#####.#^^^^+] -12345 [1.23450e+04-] - [#####.#^^^^+] 0 [0.00000e+00+] - [#####.#^^^^-] .12345 [1.23450e-01 ] - [#####.#^^^^-] 1.2345 [1.23450e+00 ] - [#####.#^^^^-] 12.345 [1.23450e+01 ] - [#####.#^^^^-] 123.45 [1.23450e+02 ] - [#####.#^^^^-] 1234.5 [1.23450e+03 ] - [#####.#^^^^-] 12345 [1.23450e+04 ] - [#####.#^^^^-] 0 [0.00000e+00 ] - [#####.#^^^^-] -.12345 [1.23450e-01-] - [#####.#^^^^-] -1.2345 [1.23450e+00-] - [#####.#^^^^-] -12.345 [1.23450e+01-] - [#####.#^^^^-] -123.45 [1.23450e+02-] - [#####.#^^^^-] -1234.5 [1.23450e+03-] - [#####.#^^^^-] -12345 [1.23450e+04-] - [#####.#^^^^-] 0 [0.00000e+00 ] - [#####.#^^^^] .12345 [1.23450e-01] - [#####.#^^^^] 1.2345 [1.23450e+00] - [#####.#^^^^] 12.345 [1.23450e+01] - [#####.#^^^^] 123.45 [1.23450e+02] - [#####.#^^^^] 1234.5 [1.23450e+03] - [#####.#^^^^] 12345 [1.23450e+04] - [#####.#^^^^] 0 [0.00000e+00] - [#####.#^^^^] -.12345 [-1.23450e-01] - [#####.#^^^^] -1.2345 [-1.23450e+00] - [#####.#^^^^] -12.345 [-1.23450e+01] - [#####.#^^^^] -123.45 [-1.23450e+02] - [#####.#^^^^] -1234.5 [-1.23450e+03] - [#####.#^^^^] -12345 [-1.23450e+04] - [#####.#^^^^] 0 [0.00000e+00] diff --git a/bwbtest/HB1X/USING_2.BAS b/bwbtest/HB1X/USING_2.BAS deleted file mode 100644 index 0a943d9..0000000 --- a/bwbtest/HB1X/USING_2.BAS +++ /dev/null @@ -1,3 +0,0 @@ -LET X = 12.3 -PRINT USING "ABC ###.### DEF";X - diff --git a/bwbtest/HB1X/USING_2.run b/bwbtest/HB1X/USING_2.run deleted file mode 100644 index f50ad71..0000000 --- a/bwbtest/HB1X/USING_2.run +++ /dev/null @@ -1 +0,0 @@ -ABC 12.300 DEF diff --git a/bwbtest/HB2/00readme.txt b/bwbtest/HB2/00readme.txt deleted file mode 100644 index d73e49b..0000000 --- a/bwbtest/HB2/00readme.txt +++ /dev/null @@ -1,13 +0,0 @@ - -This directory contains most of the tests from the following reference: ------------------------------------------------------------------- -The BASIC Handbook: Encyclopedia of the BASIC Computer Language - by David A. Lien - 2nd Edition - (c) 1981, CompuSoft Publishing - ISBN 0-932760-05-8 - 480 pages ------------------------------------------------------------------- -Some programs were adapted for Bywater BASIC by Howard Wulf, AF5NE. ------------------------------------------------------------------- -EOF diff --git a/bwbtest/HB2/00test.sh b/bwbtest/HB2/00test.sh deleted file mode 100644 index 59c3b7e..0000000 --- a/bwbtest/HB2/00test.sh +++ /dev/null @@ -1,176 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/HB2 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile HB2.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- -# TESTS -# ---------------------------------------------- -testcase ACSD_1 -testcase ACSG_1 -testcase ACS_1 -testcase APPEND_1 -testcase ARCSIN_1 -testcase ARCSIN_2 -testcase ARCTAN_1 -testcase ASCII_1 -testcase ASCII_2 -testcase ASND_1 -testcase ASND_2 -testcase ASNG_1 -testcase ASNG_2 -testcase ATND_1 -testcase ATNG_1 -testcase BYE_1 -testcase CALL_1 -testcase CHANGE_1 -testcase CHANGE_2 -testcase CODE_1 -testcase CODE_2 -testcase COMMON_1 -testcase COSD_1 -testcase COSG_1 -testcase COSH_1 -testcase COUNT_1 -testcase CSH_1 -testcase CUR_1 -testcase DEGREE_1 -testcase DEGREE_2 -testcase DEGREE_3 -testcase DET_2 -testcase DIGITS_1 -testcase ERASE_1 -testcase ERRL_1 -testcase ERRN_1 -testcase EXCHANGE_1 -testcase EXIT_1 -testcase FLOW_1 -testcase FLOW_2 -testcase FRAC_1 -testcase GOODBYE_1 -testcase GOSUB_OF_1 -testcase GRADIAN_1 -testcase HOME_1 -testcase IMAGE_1 -testcase INDEX_1 -# INPUT$() must be manually tested -# testcase INPUT5_1 -testcase INSTR_1 -testcase INSTR_2 -testcase LINE_INPUT_1 -testcase LINE_INPUT_2 -testcase LLIST_1 -testcase LLIST_2 -testcase LPRINT_1 -testcase MAT_ADDITION_1 -testcase MAT_ASSIGN_1 -testcase MAT_CON_1 -testcase MAT_CON_2 -testcase MAT_CON_3 -testcase MAT_CON_4 -testcase MAT_IDN_1 -testcase MAT_IDN_2 -testcase MAT_IDN_3 -testcase MAT_IDN_4 -testcase MAT_INV_1 -testcase MAT_MULTIPLICATION_1 -testcase MAT_MULTIPLICATION_2 -testcase MAT_SUBTRACTION_1 -testcase MAT_TRN_1 -testcase MAT_ZER_1 -testcase MAT_ZER_2 -testcase MAT_ZER_3 -testcase MAT_ZER_4 -testcase MAX_1 -testcase MAX_2 -testcase MAX_3 -testcase MIN_1 -testcase MIN_2 -testcase MIN_3 -testcase NEW_1 -testcase NOFLOW_1 -testcase NOT_1 -testcase NOT_2 -testcase NOT_3 -testcase NUM5_1 -testcase NUM_1 -testcase NUM_2 -testcase NUM_3 -testcase OR_1 -testcase OR_2 -testcase OR_3 -testcase OR_4 -testcase PAUSE_1 -testcase PAUSE_2 -testcase PI_1 -testcase POP_1 -testcase POS_1 -testcase POS_2 -testcase POS_3 -testcase PRECISION_1 -testcase RADIAN_1 -testcase RAD_1 -testcase RAD_2 -testcase RECALL_1 -testcase REPEAT5_1 -testcase SCRATCH_1 -testcase SCRATCH_2 -testcase SEG5_1 -testcase SEG_1 -testcase SGN_1 -testcase SIND_1 -testcase SING_1 -testcase SINH_1 -testcase SINH_2 -testcase SIN_1 -testcase SNH_1 -testcase SNH_2 -testcase STORE_1 -testcase STRING_1 -testcase STR_1 -testcase SWAP_1 -testcase TAND_1 -testcase TANG_1 -testcase TANH_1 -testcase TANH_2 -testcase TIME_1 -testcase TLOAD_1 -testcase TOP_1 -testcase TSAVE_1 -testcase UNTIL_1 -testcase WHILE_1 -testcase XOR_1 -testcase XRA_1 -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB2/01test.sh b/bwbtest/HB2/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/HB2/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB2/02ok.sh b/bwbtest/HB2/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/HB2/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/HB2/99fix.bas b/bwbtest/HB2/99fix.bas deleted file mode 100644 index 1ae6fba..0000000 --- a/bwbtest/HB2/99fix.bas +++ /dev/null @@ -1,10 +0,0 @@ - 10 OPEN "I", #1, "A" - 20 OPEN "O", #2, "A.TXT" - 30 WHILE NOT EOF(1) - 40 LINE INPUT #1, A$ - 50 B$ = "testcase " + A$ - 60 PRINT #2, B$ - 70 WEND - 80 CLOSE 2 - 90 CLOSE 1 - 99 END diff --git a/bwbtest/HB2/99test.sh b/bwbtest/HB2/99test.sh deleted file mode 100644 index d489f58..0000000 --- a/bwbtest/HB2/99test.sh +++ /dev/null @@ -1,18 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif -rm A - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB2/ACSD_1.BAS b/bwbtest/HB2/ACSD_1.BAS deleted file mode 100644 index abbf0c8..0000000 --- a/bwbtest/HB2/ACSD_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ACSD' TEST PROGRAM -20 PRINT "ENTER A COSINE VALUE (-1 TO 1); -30 INPUT C -40 W = ACSD(C) -50 PRINT "THE ANGLE WITH THE X/H RATIO OF";C;"IS";W;"DEGREES" -30999 END diff --git a/bwbtest/HB2/ACSD_1.INP b/bwbtest/HB2/ACSD_1.INP deleted file mode 100644 index 573541a..0000000 --- a/bwbtest/HB2/ACSD_1.INP +++ /dev/null @@ -1 +0,0 @@ -0 diff --git a/bwbtest/HB2/ACSD_1.run b/bwbtest/HB2/ACSD_1.run deleted file mode 100644 index d1e8c4e..0000000 --- a/bwbtest/HB2/ACSD_1.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A COSINE VALUE (-1 TO 1); -? 0 -THE ANGLE WITH THE X/H RATIO OF 0 IS 90 DEGREES diff --git a/bwbtest/HB2/ACSG_1.BAS b/bwbtest/HB2/ACSG_1.BAS deleted file mode 100644 index c8990f5..0000000 --- a/bwbtest/HB2/ACSG_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ACSG' TEST PROGRAM -20 PRINT "ENTER A COSINE VALUE (-1 TO 1); -30 INPUT C -40 W = ACSG(C) -50 PRINT "THE ANGLE WITH THE X/H RATIO OF";C;"IS";W;"GRADIANS" -30999 END diff --git a/bwbtest/HB2/ACSG_1.INP b/bwbtest/HB2/ACSG_1.INP deleted file mode 100644 index 573541a..0000000 --- a/bwbtest/HB2/ACSG_1.INP +++ /dev/null @@ -1 +0,0 @@ -0 diff --git a/bwbtest/HB2/ACSG_1.run b/bwbtest/HB2/ACSG_1.run deleted file mode 100644 index f7c8789..0000000 --- a/bwbtest/HB2/ACSG_1.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A COSINE VALUE (-1 TO 1); -? 0 -THE ANGLE WITH THE X/H RATIO OF 0 IS 100 GRADIANS diff --git a/bwbtest/HB2/ACS_1.BAS b/bwbtest/HB2/ACS_1.BAS deleted file mode 100644 index f6ea95b..0000000 --- a/bwbtest/HB2/ACS_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ACS' TEST PROGRAM -20 PRINT "ENTER A COSINE VALUE (-1 TO 1); -30 INPUT C -40 W = ACS(C) -50 PRINT "THE ANGLE WITH THE X/H RATIO OF";C;"IS";W;"RADIANS" -30999 END diff --git a/bwbtest/HB2/ACS_1.INP b/bwbtest/HB2/ACS_1.INP deleted file mode 100644 index 573541a..0000000 --- a/bwbtest/HB2/ACS_1.INP +++ /dev/null @@ -1 +0,0 @@ -0 diff --git a/bwbtest/HB2/ACS_1.run b/bwbtest/HB2/ACS_1.run deleted file mode 100644 index ac1fde7..0000000 --- a/bwbtest/HB2/ACS_1.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A COSINE VALUE (-1 TO 1); -? 0 -THE ANGLE WITH THE X/H RATIO OF 0 IS 1.5708 RADIANS diff --git a/bwbtest/HB2/APPEND_1.BAS b/bwbtest/HB2/APPEND_1.BAS deleted file mode 100644 index e3821aa..0000000 --- a/bwbtest/HB2/APPEND_1.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'APPEND' TEST PROGRAM PROG1 -20 PRINT "THESE LINES ARE" -30 PRINT "FROM PROG1" -40 PRINT " BUT ..." diff --git a/bwbtest/HB2/APPEND_1.DAT b/bwbtest/HB2/APPEND_1.DAT deleted file mode 100644 index 98b9a27..0000000 --- a/bwbtest/HB2/APPEND_1.DAT +++ /dev/null @@ -1,3 +0,0 @@ -1000 PRINT "THESE LINES ARE" -1010 PRINT "FROM PROG2" -1020 END diff --git a/bwbtest/HB2/APPEND_1.INP b/bwbtest/HB2/APPEND_1.INP deleted file mode 100644 index 1a4e6e8..0000000 --- a/bwbtest/HB2/APPEND_1.INP +++ /dev/null @@ -1,4 +0,0 @@ -LIST -APPEND "APPEND_1.DAT" -LIST -RUN diff --git a/bwbtest/HB2/APPEND_1.run b/bwbtest/HB2/APPEND_1.run deleted file mode 100644 index 02901f3..0000000 --- a/bwbtest/HB2/APPEND_1.run +++ /dev/null @@ -1,25 +0,0 @@ -THESE LINES ARE -FROM PROG1 - BUT ... -bwBASIC: LIST - 10 REM 'APPEND' TEST PROGRAM PROG1 - 20 PRINT "THESE LINES ARE" - 30 PRINT "FROM PROG1" - 40 PRINT " BUT ..." - -bwBASIC: APPEND "APPEND_1.DAT" -bwBASIC: LIST - 10 REM 'APPEND' TEST PROGRAM PROG1 - 20 PRINT "THESE LINES ARE" - 30 PRINT "FROM PROG1" - 40 PRINT " BUT ..." - 1000 PRINT "THESE LINES ARE" - 1010 PRINT "FROM PROG2" - 1020 END - -bwBASIC: RUN -THESE LINES ARE -FROM PROG1 - BUT ... -THESE LINES ARE -FROM PROG2 diff --git a/bwbtest/HB2/ARCSIN_1.BAS b/bwbtest/HB2/ARCSIN_1.BAS deleted file mode 100644 index c9724c5..0000000 --- a/bwbtest/HB2/ARCSIN_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ARCSIN' TEST PROGRAM -20 PRINT "ENTER A RATIO OR SINE VALUE"; -30 INPUT N -40 W=ARCSIN(N) -50 PRINT "THE ANGLE WITH THE Y/H RATIO OF";N;"IS";W;"RADIANS" -99 END diff --git a/bwbtest/HB2/ARCSIN_1.INP b/bwbtest/HB2/ARCSIN_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/ARCSIN_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/ARCSIN_1.run b/bwbtest/HB2/ARCSIN_1.run deleted file mode 100644 index f2b7541..0000000 --- a/bwbtest/HB2/ARCSIN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR SINE VALUE? 0.5 -THE ANGLE WITH THE Y/H RATIO OF .5 IS .523599 RADIANS diff --git a/bwbtest/HB2/ARCSIN_2.BAS b/bwbtest/HB2/ARCSIN_2.BAS deleted file mode 100644 index 77fe1fc..0000000 --- a/bwbtest/HB2/ARCSIN_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'ARCSIN' TEST PROGRAM -15 DEF ARCSIN(X)=ATN(X/SQR(-X*X+1)) -20 PRINT "ENTER A RATIO OR SINE VALUE"; -30 INPUT N -40 W=ARCSIN(N) -50 PRINT "THE ANGLE WITH THE Y/H RATIO OF";N;"IS";W;"RADIANS" -99 END diff --git a/bwbtest/HB2/ARCSIN_2.INP b/bwbtest/HB2/ARCSIN_2.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/ARCSIN_2.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/ARCSIN_2.run b/bwbtest/HB2/ARCSIN_2.run deleted file mode 100644 index f2b7541..0000000 --- a/bwbtest/HB2/ARCSIN_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR SINE VALUE? 0.5 -THE ANGLE WITH THE Y/H RATIO OF .5 IS .523599 RADIANS diff --git a/bwbtest/HB2/ARCTAN_1.BAS b/bwbtest/HB2/ARCTAN_1.BAS deleted file mode 100644 index 5ece904..0000000 --- a/bwbtest/HB2/ARCTAN_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ARCTAN' TEST PROGRAM -20 PRINT "ENTER A RATIO OR TANGENT VALUE"; -30 INPUT N -40 A=ARCTAN(N) -50 PRINT "THE ANGLE WITH THE X/Y RATIO OF";N;"IS";A;"RADIANS" -99 END diff --git a/bwbtest/HB2/ARCTAN_1.INP b/bwbtest/HB2/ARCTAN_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/ARCTAN_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/ARCTAN_1.run b/bwbtest/HB2/ARCTAN_1.run deleted file mode 100644 index ad4f048..0000000 --- a/bwbtest/HB2/ARCTAN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR TANGENT VALUE? 0.5 -THE ANGLE WITH THE X/Y RATIO OF .5 IS .463648 RADIANS diff --git a/bwbtest/HB2/ASCII_1.BAS b/bwbtest/HB2/ASCII_1.BAS deleted file mode 100644 index c36be96..0000000 --- a/bwbtest/HB2/ASCII_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'ASCII(CHARACTER)' TEST PROGRAM -20 PRINT "THE ASCII CODE FOR LETTER A IS"; -30 PRINT ASCII("A") -40 IF ASCII("A")=65 THEN 70 -50 PRINT "ASCII FAILED THE TEST" -60 GOTO 99 -70 PRINT "ASCII PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/ASCII_1.run b/bwbtest/HB2/ASCII_1.run deleted file mode 100644 index 46b9290..0000000 --- a/bwbtest/HB2/ASCII_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE ASCII CODE FOR LETTER A IS 65 -ASCII PASSED THE TEST diff --git a/bwbtest/HB2/ASCII_2.BAS b/bwbtest/HB2/ASCII_2.BAS deleted file mode 100644 index 96ca039..0000000 --- a/bwbtest/HB2/ASCII_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'ASCII(STRING VARIABLE)' TEST PROGRAM -20 PRINT "TYPE ANY LETTER, NUMBER, OR CHARACTER"; -30 INPUT A$ -40 PRINT "THE ASCII CODE FOR ";A$;" IS";ASCII(A$) -99 END diff --git a/bwbtest/HB2/ASCII_2.INP b/bwbtest/HB2/ASCII_2.INP deleted file mode 100644 index 9ed4614..0000000 --- a/bwbtest/HB2/ASCII_2.INP +++ /dev/null @@ -1 +0,0 @@ -ABCD diff --git a/bwbtest/HB2/ASCII_2.run b/bwbtest/HB2/ASCII_2.run deleted file mode 100644 index 95e5dc2..0000000 --- a/bwbtest/HB2/ASCII_2.run +++ /dev/null @@ -1,2 +0,0 @@ -TYPE ANY LETTER, NUMBER, OR CHARACTER? ABCD -THE ASCII CODE FOR ABCD IS 65 diff --git a/bwbtest/HB2/ASND_1.BAS b/bwbtest/HB2/ASND_1.BAS deleted file mode 100644 index 99da7dc..0000000 --- a/bwbtest/HB2/ASND_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ASND' TEST PROGRAM -20 PRINT "ENTER A RATIO OR SINE VALUE"; -30 INPUT N -40 W=ASND(N) -50 PRINT "THE ANGLE WITH THE Y/H RATIO OF";N;"IS";W;"DEGREES" -99 END diff --git a/bwbtest/HB2/ASND_1.INP b/bwbtest/HB2/ASND_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/ASND_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/ASND_1.run b/bwbtest/HB2/ASND_1.run deleted file mode 100644 index e3586e8..0000000 --- a/bwbtest/HB2/ASND_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR SINE VALUE? 0.5 -THE ANGLE WITH THE Y/H RATIO OF .5 IS 30. DEGREES diff --git a/bwbtest/HB2/ASND_2.BAS b/bwbtest/HB2/ASND_2.BAS deleted file mode 100644 index 160376a..0000000 --- a/bwbtest/HB2/ASND_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'ASND' TEST PROGRAM -15 DEF ASND(X)=ATN(X/SQR(-X*X+1))*57.29578 -20 PRINT "ENTER A RATIO OR SINE VALUE"; -30 INPUT N -40 W=ASND(N) -50 PRINT "THE ANGLE WITH THE Y/H RATIO OF";N;"IS";W;"DEGREES" -99 END diff --git a/bwbtest/HB2/ASND_2.INP b/bwbtest/HB2/ASND_2.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/ASND_2.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/ASND_2.run b/bwbtest/HB2/ASND_2.run deleted file mode 100644 index e3586e8..0000000 --- a/bwbtest/HB2/ASND_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR SINE VALUE? 0.5 -THE ANGLE WITH THE Y/H RATIO OF .5 IS 30. DEGREES diff --git a/bwbtest/HB2/ASNG_1.BAS b/bwbtest/HB2/ASNG_1.BAS deleted file mode 100644 index ce7d93e..0000000 --- a/bwbtest/HB2/ASNG_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ASNG' TEST PROGRAM -20 PRINT "ENTER A RATIO OR SINE VALUE"; -30 INPUT N -40 W=ASNG(N) -50 PRINT "THE ANGLE WITH THE Y/H RATIO OF";N;"IS";W;"GRADIANS" -99 END diff --git a/bwbtest/HB2/ASNG_1.INP b/bwbtest/HB2/ASNG_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/ASNG_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/ASNG_1.run b/bwbtest/HB2/ASNG_1.run deleted file mode 100644 index d8b2843..0000000 --- a/bwbtest/HB2/ASNG_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR SINE VALUE? 0.5 -THE ANGLE WITH THE Y/H RATIO OF .5 IS 33.3333 GRADIANS diff --git a/bwbtest/HB2/ASNG_2.BAS b/bwbtest/HB2/ASNG_2.BAS deleted file mode 100644 index 49ea0c2..0000000 --- a/bwbtest/HB2/ASNG_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'ASNG' TEST PROGRAM -15 DEF ASNG(X)=ATN(X/SQR(-X*X+1))*63.66198 -20 PRINT "ENTER A RATIO OR SINE VALUE"; -30 INPUT N -40 W=ASNG(N) -50 PRINT "THE ANGLE WITH THE Y/H RATIO OF";N;"IS";W;"GRADIANS" -99 END diff --git a/bwbtest/HB2/ASNG_2.INP b/bwbtest/HB2/ASNG_2.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/ASNG_2.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/ASNG_2.run b/bwbtest/HB2/ASNG_2.run deleted file mode 100644 index d8b2843..0000000 --- a/bwbtest/HB2/ASNG_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR SINE VALUE? 0.5 -THE ANGLE WITH THE Y/H RATIO OF .5 IS 33.3333 GRADIANS diff --git a/bwbtest/HB2/ATND_1.BAS b/bwbtest/HB2/ATND_1.BAS deleted file mode 100644 index 44e961a..0000000 --- a/bwbtest/HB2/ATND_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ATND' TEST PROGRAM -20 PRINT "ENTER A RATIO OR TANGENT VALUE"; -30 INPUT N -40 A=ATND(N) -50 PRINT "THE ANGLE WITH THE X/Y RATIO OF";N;"IS";A;"DEGREES" -99 END diff --git a/bwbtest/HB2/ATND_1.INP b/bwbtest/HB2/ATND_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/ATND_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/ATND_1.run b/bwbtest/HB2/ATND_1.run deleted file mode 100644 index 95f6c73..0000000 --- a/bwbtest/HB2/ATND_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR TANGENT VALUE? 0.5 -THE ANGLE WITH THE X/Y RATIO OF .5 IS 26.5651 DEGREES diff --git a/bwbtest/HB2/ATNG_1.BAS b/bwbtest/HB2/ATNG_1.BAS deleted file mode 100644 index 2926a90..0000000 --- a/bwbtest/HB2/ATNG_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'ATNG' TEST PROGRAM -20 PRINT "ENTER A RATIO OR TANGENT VALUE"; -30 INPUT N -40 A=ATNG(N) -50 PRINT "THE ANGLE WITH THE X/Y RATIO OF";N;"IS";A;"GRADIANS" -99 END diff --git a/bwbtest/HB2/ATNG_1.INP b/bwbtest/HB2/ATNG_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/ATNG_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/ATNG_1.run b/bwbtest/HB2/ATNG_1.run deleted file mode 100644 index 61510f8..0000000 --- a/bwbtest/HB2/ATNG_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A RATIO OR TANGENT VALUE? 0.5 -THE ANGLE WITH THE X/Y RATIO OF .5 IS 29.5167 GRADIANS diff --git a/bwbtest/HB2/BYE_1.BAS b/bwbtest/HB2/BYE_1.BAS deleted file mode 100644 index ed7e73d..0000000 --- a/bwbtest/HB2/BYE_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'BYE' TEST PROGRAM -20 PRINT "ABOUT TO EXECUTE 'BYE'" -30 BYE -40 PRINT "'BYE' FAILED" -99 END diff --git a/bwbtest/HB2/BYE_1.run b/bwbtest/HB2/BYE_1.run deleted file mode 100644 index 14cac7a..0000000 --- a/bwbtest/HB2/BYE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ABOUT TO EXECUTE 'BYE' - diff --git a/bwbtest/HB2/CALL_1.BAS b/bwbtest/HB2/CALL_1.BAS deleted file mode 100644 index d50e92b..0000000 --- a/bwbtest/HB2/CALL_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'CALL' TEST PROGRAM -20 CALL TEST -30 PRINT "'CALL' PASSED THE ";A$ -40 GOTO 99 -50 SUB TEST -60 A$="TEST" -70 SUBEND -99 END - diff --git a/bwbtest/HB2/CALL_1.run b/bwbtest/HB2/CALL_1.run deleted file mode 100644 index 552597d..0000000 --- a/bwbtest/HB2/CALL_1.run +++ /dev/null @@ -1 +0,0 @@ -'CALL' PASSED THE TEST diff --git a/bwbtest/HB2/CHANGE_1.BAS b/bwbtest/HB2/CHANGE_1.BAS deleted file mode 100644 index 6c6dacd..0000000 --- a/bwbtest/HB2/CHANGE_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'CHANGE X$ TO X' TEST -20 DIM X(6) -30 X$ = "SYSTEM" -40 CHANGE X$ TO X -50 PRINT "CHANGE HAS CONVERTED 'SYSTEM' TO" -60 FOR N=1 TO X(0) -70 PRINT X(N); -80 NEXT N -99 END diff --git a/bwbtest/HB2/CHANGE_1.run b/bwbtest/HB2/CHANGE_1.run deleted file mode 100644 index f3f9bf2..0000000 --- a/bwbtest/HB2/CHANGE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -CHANGE HAS CONVERTED 'SYSTEM' TO - 83 89 83 84 69 77 diff --git a/bwbtest/HB2/CHANGE_2.BAS b/bwbtest/HB2/CHANGE_2.BAS deleted file mode 100644 index 0f511e0..0000000 --- a/bwbtest/HB2/CHANGE_2.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'CHANGE X TO X$' TEST -20 DIM X(6) -30 READ X(0) -40 FOR I=1 TO X(0) -50 READ X(I) -60 NEXT I -70 CHANGE X TO X$ -80 PRINT "CHANGE ";X$;" THE TEST" -90 DATA 6, 80, 65, 83, 83, 69, 68 -99 END diff --git a/bwbtest/HB2/CHANGE_2.run b/bwbtest/HB2/CHANGE_2.run deleted file mode 100644 index 9e2f3ab..0000000 --- a/bwbtest/HB2/CHANGE_2.run +++ /dev/null @@ -1 +0,0 @@ -CHANGE PASSED THE TEST diff --git a/bwbtest/HB2/CODE_1.BAS b/bwbtest/HB2/CODE_1.BAS deleted file mode 100644 index d80704b..0000000 --- a/bwbtest/HB2/CODE_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'CODE(CHARACTER)' TEST PROGRAM -20 PRINT "THE ASCII CODE FOR LETTER A IS"; -30 PRINT CODE("A") -40 IF CODE("A")=65 THEN 70 -50 PRINT "CODE FAILED THE TEST" -60 GOTO 99 -70 PRINT "CODE PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/CODE_1.run b/bwbtest/HB2/CODE_1.run deleted file mode 100644 index 6f850b7..0000000 --- a/bwbtest/HB2/CODE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE ASCII CODE FOR LETTER A IS 65 -CODE PASSED THE TEST diff --git a/bwbtest/HB2/CODE_2.BAS b/bwbtest/HB2/CODE_2.BAS deleted file mode 100644 index 28aa145..0000000 --- a/bwbtest/HB2/CODE_2.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'CODE(STRING VARIABLE)' TEST PROGRAM -20 PRINT "TYPE ANY LETTER, NUMBER, OR CHARACTER"; -30 INPUT A$ -40 PRINT "THE ASCII CODE FOR ";A$;" IS";CODE(A$) -99 END diff --git a/bwbtest/HB2/CODE_2.INP b/bwbtest/HB2/CODE_2.INP deleted file mode 100644 index 9ed4614..0000000 --- a/bwbtest/HB2/CODE_2.INP +++ /dev/null @@ -1 +0,0 @@ -ABCD diff --git a/bwbtest/HB2/CODE_2.run b/bwbtest/HB2/CODE_2.run deleted file mode 100644 index 95e5dc2..0000000 --- a/bwbtest/HB2/CODE_2.run +++ /dev/null @@ -1,2 +0,0 @@ -TYPE ANY LETTER, NUMBER, OR CHARACTER? ABCD -THE ASCII CODE FOR ABCD IS 65 diff --git a/bwbtest/HB2/COMMON_1.BAS b/bwbtest/HB2/COMMON_1.BAS deleted file mode 100644 index 0446f5a..0000000 --- a/bwbtest/HB2/COMMON_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM * MAIN * PROGRAM -20 COMMON A -30 A = 5 -40 CHAIN "COMMON_1.DAT" -50 PRINT "AND RETURNED A";A -99 END - diff --git a/bwbtest/HB2/COMMON_1.DAT b/bwbtest/HB2/COMMON_1.DAT deleted file mode 100644 index fb12927..0000000 --- a/bwbtest/HB2/COMMON_1.DAT +++ /dev/null @@ -1,7 +0,0 @@ -10 REM * TEST * PROGRAM -20 COMMON A -30 PRINT "THE 'TEST' PROGRAM RECEIVED A";A -40 A=A*2 -50 CHAIN "COMMON_1.BAS", 50 -99 END - diff --git a/bwbtest/HB2/COMMON_1.run b/bwbtest/HB2/COMMON_1.run deleted file mode 100644 index ef5c488..0000000 --- a/bwbtest/HB2/COMMON_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE 'TEST' PROGRAM RECEIVED A 5 -AND RETURNED A 10 diff --git a/bwbtest/HB2/COSD_1.BAS b/bwbtest/HB2/COSD_1.BAS deleted file mode 100644 index bc6fd5a..0000000 --- a/bwbtest/HB2/COSD_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'COSD' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN DEGREES)"; -30 INPUT R -40 Y=COSD(R) -50 PRINT "THE COSINE OF A";R;"DEGREE ANGLE IS";Y -99 END diff --git a/bwbtest/HB2/COSD_1.INP b/bwbtest/HB2/COSD_1.INP deleted file mode 100644 index ea90ee3..0000000 --- a/bwbtest/HB2/COSD_1.INP +++ /dev/null @@ -1 +0,0 @@ -45 diff --git a/bwbtest/HB2/COSD_1.run b/bwbtest/HB2/COSD_1.run deleted file mode 100644 index 4422282..0000000 --- a/bwbtest/HB2/COSD_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN DEGREES)? 45 -THE COSINE OF A 45 DEGREE ANGLE IS .707107 diff --git a/bwbtest/HB2/COSG_1.BAS b/bwbtest/HB2/COSG_1.BAS deleted file mode 100644 index d1a0928..0000000 --- a/bwbtest/HB2/COSG_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'COSG' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN GRADIANS)"; -30 INPUT R -40 Y=COSG(R) -50 PRINT "THE COSINE OF A";R;"GRADIAN ANGLE IS";Y -99 END diff --git a/bwbtest/HB2/COSG_1.INP b/bwbtest/HB2/COSG_1.INP deleted file mode 100644 index e373ee6..0000000 --- a/bwbtest/HB2/COSG_1.INP +++ /dev/null @@ -1 +0,0 @@ -50 diff --git a/bwbtest/HB2/COSG_1.run b/bwbtest/HB2/COSG_1.run deleted file mode 100644 index 9a3e180..0000000 --- a/bwbtest/HB2/COSG_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN GRADIANS)? 50 -THE COSINE OF A 50 GRADIAN ANGLE IS .707107 diff --git a/bwbtest/HB2/COSH_1.BAS b/bwbtest/HB2/COSH_1.BAS deleted file mode 100644 index 0990ec9..0000000 --- a/bwbtest/HB2/COSH_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'COSH' TEST PROGRAM -20 PRINT "ENTER A VALUE"; -30 INPUT N -40 C=COSH(N) -50 PRINT "THE HYPERBOLIC COSINE OF";N;"IS";C -99 END - diff --git a/bwbtest/HB2/COSH_1.INP b/bwbtest/HB2/COSH_1.INP deleted file mode 100644 index d00491f..0000000 --- a/bwbtest/HB2/COSH_1.INP +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/bwbtest/HB2/COSH_1.run b/bwbtest/HB2/COSH_1.run deleted file mode 100644 index 8ee4962..0000000 --- a/bwbtest/HB2/COSH_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VALUE? 1 -THE HYPERBOLIC COSINE OF 1 IS 0 diff --git a/bwbtest/HB2/COUNT_1.BAS b/bwbtest/HB2/COUNT_1.BAS deleted file mode 100644 index 3b1ee53..0000000 --- a/bwbtest/HB2/COUNT_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'COUNT' TEST PROGRAM -20 PRINT "THIS LINE HAS A CHARACTER COUNT OF"; -30 K = COUNT -40 PRINT K+3 -99 END - diff --git a/bwbtest/HB2/COUNT_1.run b/bwbtest/HB2/COUNT_1.run deleted file mode 100644 index e6f5e9a..0000000 --- a/bwbtest/HB2/COUNT_1.run +++ /dev/null @@ -1 +0,0 @@ -THIS LINE HAS A CHARACTER COUNT OF 37 diff --git a/bwbtest/HB2/CSH_1.BAS b/bwbtest/HB2/CSH_1.BAS deleted file mode 100644 index 11f09e7..0000000 --- a/bwbtest/HB2/CSH_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'CSH' TEST PROGRAM -20 PRINT "ENTER A VALUE"; -30 INPUT N -40 C=CSH(N) -50 PRINT "THE HYPERBOLIC COSINE OF";N;"IS";C -99 END diff --git a/bwbtest/HB2/CSH_1.INP b/bwbtest/HB2/CSH_1.INP deleted file mode 100644 index d00491f..0000000 --- a/bwbtest/HB2/CSH_1.INP +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/bwbtest/HB2/CSH_1.run b/bwbtest/HB2/CSH_1.run deleted file mode 100644 index 258893b..0000000 --- a/bwbtest/HB2/CSH_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VALUE? 1 -THE HYPERBOLIC COSINE OF 1 IS 1.54308 diff --git a/bwbtest/HB2/CUR_1.BAS b/bwbtest/HB2/CUR_1.BAS deleted file mode 100644 index 139599a..0000000 --- a/bwbtest/HB2/CUR_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'CUR' TEST PROGRAM -20 CLS -30 PRINT CUR(12,16); "MIDDLE" -40 PRINT "CUR PASSED IF MIDDLE IS IN THE CENTER" -99 END diff --git a/bwbtest/HB2/CUR_1.PRO b/bwbtest/HB2/CUR_1.PRO deleted file mode 100644 index fba930b..0000000 --- a/bwbtest/HB2/CUR_1.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION TERMINAL ANSI -WIDTH 16, 64 diff --git a/bwbtest/HB2/CUR_1.run b/bwbtest/HB2/CUR_1.run deleted file mode 100644 index 7b7fe0e..0000000 --- a/bwbtest/HB2/CUR_1.run +++ /dev/null @@ -1,2 +0,0 @@ - [2J [1;1H [13;17HMIDDLE -CUR PASSED IF MIDDLE IS IN THE CENTER diff --git a/bwbtest/HB2/DEGREE_1.BAS b/bwbtest/HB2/DEGREE_1.BAS deleted file mode 100644 index 6849073..0000000 --- a/bwbtest/HB2/DEGREE_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ - 10 REM 'DEGREE COMMAND' TEST PROGRAM - 20 A=SIN(1.4) - 30 PRINT "THE SINE OF 1.4 RADIANS IS";A - 40 DEGREE - 50 A=SIN(1.4) - 60 PRINT "THE SINE OF 1.4 DEGREES IS";A - 70 RADIAN - 80 A=SIN(1.4) - 90 PRINT "THE SINE OF 1.4 RADIANS IS";A - 99 END - diff --git a/bwbtest/HB2/DEGREE_1.run b/bwbtest/HB2/DEGREE_1.run deleted file mode 100644 index d1abc84..0000000 --- a/bwbtest/HB2/DEGREE_1.run +++ /dev/null @@ -1,3 +0,0 @@ -THE SINE OF 1.4 RADIANS IS .98545 -THE SINE OF 1.4 DEGREES IS 2.44322E-2 -THE SINE OF 1.4 RADIANS IS .98545 diff --git a/bwbtest/HB2/DEGREE_2.BAS b/bwbtest/HB2/DEGREE_2.BAS deleted file mode 100644 index bf47d64..0000000 --- a/bwbtest/HB2/DEGREE_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'DEGREE FUNCTION' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN RADIANS)"; -30 INPUT A -40 B=DEGREE(A) -50 PRINT "THE RADIAN ANGLE OF";A;"IS EQUAL TO";B;"DEGREES" -99 END diff --git a/bwbtest/HB2/DEGREE_2.INP b/bwbtest/HB2/DEGREE_2.INP deleted file mode 100644 index 6324d40..0000000 --- a/bwbtest/HB2/DEGREE_2.INP +++ /dev/null @@ -1 +0,0 @@ -3.14 diff --git a/bwbtest/HB2/DEGREE_2.run b/bwbtest/HB2/DEGREE_2.run deleted file mode 100644 index f398429..0000000 --- a/bwbtest/HB2/DEGREE_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN RADIANS)? 3.14 -THE RADIAN ANGLE OF 3.14 IS EQUAL TO 179.909 DEGREES diff --git a/bwbtest/HB2/DEGREE_3.BAS b/bwbtest/HB2/DEGREE_3.BAS deleted file mode 100644 index bb89cf0..0000000 --- a/bwbtest/HB2/DEGREE_3.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'DEGREE FUNCTION' TEST PROGRAM -15 DEF DEGREE(X)=X*57.29578 -20 PRINT "ENTER AN ANGLE (EXPRESSED IN RADIANS)"; -30 INPUT A -40 B=DEGREE(A) -50 PRINT "THE RADIAN ANGLE OF";A;"IS EQUAL TO";B;"DEGREES" -99 END diff --git a/bwbtest/HB2/DEGREE_3.INP b/bwbtest/HB2/DEGREE_3.INP deleted file mode 100644 index 6324d40..0000000 --- a/bwbtest/HB2/DEGREE_3.INP +++ /dev/null @@ -1 +0,0 @@ -3.14 diff --git a/bwbtest/HB2/DEGREE_3.run b/bwbtest/HB2/DEGREE_3.run deleted file mode 100644 index f398429..0000000 --- a/bwbtest/HB2/DEGREE_3.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN RADIANS)? 3.14 -THE RADIAN ANGLE OF 3.14 IS EQUAL TO 179.909 DEGREES diff --git a/bwbtest/HB2/DET_2.BAS b/bwbtest/HB2/DET_2.BAS deleted file mode 100644 index eca012c..0000000 --- a/bwbtest/HB2/DET_2.BAS +++ /dev/null @@ -1,16 +0,0 @@ -10 REM * DET WITH MAT INV * TEST PROGRAM -20 DIM A(3,3), B(3,3) -30 FOR I=1 TO 3 -40 FOR J=1 TO 3 -50 READ A(I,J) -60 NEXT J -70 NEXT I -80 MAT B=INV(A) -90 PRINT "THE DETERMINANT OF MATRIX A IS";DET -100 DATA 1,1,1, 1,2,3, 1,4,9 -900 REM -910 REM +------------------------------------+ -920 REM | THIS PROGRAM ASSUMES OPTION BASE 1 | -930 REM +------------------------------------+ -940 REM -999 END diff --git a/bwbtest/HB2/DET_2.PRO b/bwbtest/HB2/DET_2.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/DET_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/DET_2.run b/bwbtest/HB2/DET_2.run deleted file mode 100644 index 661d319..0000000 --- a/bwbtest/HB2/DET_2.run +++ /dev/null @@ -1 +0,0 @@ -THE DETERMINANT OF MATRIX A IS 2 diff --git a/bwbtest/HB2/DIGITS_1.BAS b/bwbtest/HB2/DIGITS_1.BAS deleted file mode 100644 index 376746c..0000000 --- a/bwbtest/HB2/DIGITS_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM DIGITS TEST PROGRAM -20 DIGITS 6,4 -30 X = 0.1234567 -40 PRINT X -50 PRINT "DIGITS PASSED THE TEST IF 0.1235 WAS PRINTED" -60 END - diff --git a/bwbtest/HB2/DIGITS_1.run b/bwbtest/HB2/DIGITS_1.run deleted file mode 100644 index c959a16..0000000 --- a/bwbtest/HB2/DIGITS_1.run +++ /dev/null @@ -1,2 +0,0 @@ - .1235 -DIGITS PASSED THE TEST IF 0.1235 WAS PRINTED diff --git a/bwbtest/HB2/ERASE_1.BAS b/bwbtest/HB2/ERASE_1.BAS deleted file mode 100644 index b8efd39..0000000 --- a/bwbtest/HB2/ERASE_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'ERASE' TEST PROGRAM -20 DIM A(15) -30 FOR I=1 TO 15 -40 A(I) = I -50 NEXT I -60 ERASE A -70 PRINT "ERASE PASSED THE TEST IF 0 =";A(1) -80 DIM A(5,5) -90 A(5,5)=2 -100 PRINT "ERASE PASSED";A(5,5);"TESTS." -999 END diff --git a/bwbtest/HB2/ERASE_1.run b/bwbtest/HB2/ERASE_1.run deleted file mode 100644 index 71adaaa..0000000 --- a/bwbtest/HB2/ERASE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ERASE PASSED THE TEST IF 0 = 0 -ERASE PASSED 2 TESTS. diff --git a/bwbtest/HB2/ERRL_1.BAS b/bwbtest/HB2/ERRL_1.BAS deleted file mode 100644 index e1dde2b..0000000 --- a/bwbtest/HB2/ERRL_1.BAS +++ /dev/null @@ -1,13 +0,0 @@ -10 REM 'ERRL' TEST PROGRAM -20 ON ERROR GOTO 100 -30 PRINT "ENTER THE NUMBER 10,20, THEN 30" -40 INPUT N -45 IF N < 0 THEN 999 -50 A=10/(N-10) -60 A=10/(N-20) -70 A=10/(N-30) -80 PRINT "THE NUMBER";N;"DID NOT CAUSE AN ERROR" -90 GOTO 30 -100 PRINT "AN ERROR HAS JUST OCCURRED IN LINE";ERRL -110 RESUME 30 -999 END diff --git a/bwbtest/HB2/ERRL_1.INP b/bwbtest/HB2/ERRL_1.INP deleted file mode 100644 index 8d92e4d..0000000 --- a/bwbtest/HB2/ERRL_1.INP +++ /dev/null @@ -1,7 +0,0 @@ -10 -20 -30 -1 -31 -0 --1 diff --git a/bwbtest/HB2/ERRL_1.run b/bwbtest/HB2/ERRL_1.run deleted file mode 100644 index c9bb8d9..0000000 --- a/bwbtest/HB2/ERRL_1.run +++ /dev/null @@ -1,20 +0,0 @@ -ENTER THE NUMBER 10,20, THEN 30 -? 10 -AN ERROR HAS JUST OCCURRED IN LINE 50 -ENTER THE NUMBER 10,20, THEN 30 -? 20 -AN ERROR HAS JUST OCCURRED IN LINE 60 -ENTER THE NUMBER 10,20, THEN 30 -? 30 -AN ERROR HAS JUST OCCURRED IN LINE 70 -ENTER THE NUMBER 10,20, THEN 30 -? 1 -THE NUMBER 1 DID NOT CAUSE AN ERROR -ENTER THE NUMBER 10,20, THEN 30 -? 31 -THE NUMBER 31 DID NOT CAUSE AN ERROR -ENTER THE NUMBER 10,20, THEN 30 -? 0 -THE NUMBER 0 DID NOT CAUSE AN ERROR -ENTER THE NUMBER 10,20, THEN 30 -? -1 diff --git a/bwbtest/HB2/ERRN_1.BAS b/bwbtest/HB2/ERRN_1.BAS deleted file mode 100644 index 72fe499..0000000 --- a/bwbtest/HB2/ERRN_1.BAS +++ /dev/null @@ -1,23 +0,0 @@ -10 REM 'ERRN' TEST PROGRAM -20 DIM A(5) -30 CLEAR -40 ON ERROR GOTO 100 -50 PRINT "ENTER A SAMPLE NUMBER"; -60 INPUT N -61 IF N = -999 THEN 999 -62 IF N = 0 THEN ERROR 11, "DIVISION BY ZERO" -63 IF N < 1 THEN ERROR 9 , "SUBSCRIPT OUT OF RANGE" -64 IF N > 5 THEN ERROR 9 , "SUBSCRIPT OUT OF RANGE" -70 A(N)=10/N -80 PRINT "THE NUMBER";N;"DID NOT CAUSE AN ERROR" -90 GOTO 50 -100 IF ERRN=9 THEN 130 -110 IF ERRN=11 THEN 160 -120 GOTO 180 -130 PRINT "THE NUMBER";N;"IS TOO LARGE" -140 PRINT "USE A NUMBER BETWEEN 1 AND 5" -150 RESUME 30 -160 PRINT "THE SMALLEST NUMBER ALLOWED IS 1" -170 RESUME 30 -180 PRINT "THE NUMBER";N;"CAUSED AN ERROR CODE OF";ERR -999 END diff --git a/bwbtest/HB2/ERRN_1.INP b/bwbtest/HB2/ERRN_1.INP deleted file mode 100644 index 30dcf62..0000000 --- a/bwbtest/HB2/ERRN_1.INP +++ /dev/null @@ -1,6 +0,0 @@ -0 -1 -5 -6 --1 --999 diff --git a/bwbtest/HB2/ERRN_1.run b/bwbtest/HB2/ERRN_1.run deleted file mode 100644 index 4c5d0d0..0000000 --- a/bwbtest/HB2/ERRN_1.run +++ /dev/null @@ -1,13 +0,0 @@ -ENTER A SAMPLE NUMBER? 0 -THE SMALLEST NUMBER ALLOWED IS 1 -ENTER A SAMPLE NUMBER? 1 -THE NUMBER 1 DID NOT CAUSE AN ERROR -ENTER A SAMPLE NUMBER? 5 -THE NUMBER 5 DID NOT CAUSE AN ERROR -ENTER A SAMPLE NUMBER? 6 -THE NUMBER 6 IS TOO LARGE -USE A NUMBER BETWEEN 1 AND 5 -ENTER A SAMPLE NUMBER? -1 -THE NUMBER-1 IS TOO LARGE -USE A NUMBER BETWEEN 1 AND 5 -ENTER A SAMPLE NUMBER? -999 diff --git a/bwbtest/HB2/EXCHANGE_1.BAS b/bwbtest/HB2/EXCHANGE_1.BAS deleted file mode 100644 index 6a34572..0000000 --- a/bwbtest/HB2/EXCHANGE_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'EXCHANGE' TEST PROGRAM -20 PRINT "ENTER TWO VALUES (SEPARATED BY COMMAS" -30 INPUT A,B -35 IF A=0 AND B=0 THEN 99 -40 IF A<=B THEN 60 -50 EXCHANGE A,B -60 PRINT A;"IS LESS THAN OR EQUAL TO";B -70 GOTO 20 -99 END diff --git a/bwbtest/HB2/EXCHANGE_1.INP b/bwbtest/HB2/EXCHANGE_1.INP deleted file mode 100644 index b007308..0000000 --- a/bwbtest/HB2/EXCHANGE_1.INP +++ /dev/null @@ -1,3 +0,0 @@ -3,7 -9,1 -0,0 diff --git a/bwbtest/HB2/EXCHANGE_1.run b/bwbtest/HB2/EXCHANGE_1.run deleted file mode 100644 index ca6cca7..0000000 --- a/bwbtest/HB2/EXCHANGE_1.run +++ /dev/null @@ -1,8 +0,0 @@ -ENTER TWO VALUES (SEPARATED BY COMMAS -? 3,7 - 3 IS LESS THAN OR EQUAL TO 7 -ENTER TWO VALUES (SEPARATED BY COMMAS -? 9,1 - 1 IS LESS THAN OR EQUAL TO 9 -ENTER TWO VALUES (SEPARATED BY COMMAS -? 0,0 diff --git a/bwbtest/HB2/EXIT_1.BAS b/bwbtest/HB2/EXIT_1.BAS deleted file mode 100644 index ffb806a..0000000 --- a/bwbtest/HB2/EXIT_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'EXIT' TEST PROGRAM -20 PRINT "ENTER A WORD - TYPE 'DONE' TO QUIT" -30 FOR I=1 TO 500 -40 INPUT A$ -50 IF A$="DONE" THEN EXIT FOR -60 PRINT "ANOTHER"; -70 NEXT I -80 PRINT "'EXIT' PASSED THE TEST. 'DONE' WAS WORD NUMBER";I -99 END diff --git a/bwbtest/HB2/EXIT_1.INP b/bwbtest/HB2/EXIT_1.INP deleted file mode 100644 index a0fcc33..0000000 --- a/bwbtest/HB2/EXIT_1.INP +++ /dev/null @@ -1,5 +0,0 @@ -START -CHECK -EXIT -HERE -DONE diff --git a/bwbtest/HB2/EXIT_1.run b/bwbtest/HB2/EXIT_1.run deleted file mode 100644 index 5a8cde0..0000000 --- a/bwbtest/HB2/EXIT_1.run +++ /dev/null @@ -1,7 +0,0 @@ -ENTER A WORD - TYPE 'DONE' TO QUIT -? START -ANOTHER? CHECK -ANOTHER? EXIT -ANOTHER? HERE -ANOTHER? DONE -'EXIT' PASSED THE TEST. 'DONE' WAS WORD NUMBER 5 diff --git a/bwbtest/HB2/FLOW_1.BAS b/bwbtest/HB2/FLOW_1.BAS deleted file mode 100644 index 891d1a5..0000000 --- a/bwbtest/HB2/FLOW_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'FLOW' TEST PROGRAM -20 GOTO 50 -30 PRINT "OF THIS TEST PROGRAM." -40 GOTO 70 -50 PRINT "FLOW TRACES EACH LINE" -60 GOTO 30 -70 PRINT "END OF TEST PROGRAM." -99 END diff --git a/bwbtest/HB2/FLOW_1.PRO b/bwbtest/HB2/FLOW_1.PRO deleted file mode 100644 index 53da627..0000000 --- a/bwbtest/HB2/FLOW_1.PRO +++ /dev/null @@ -1 +0,0 @@ -FLOW diff --git a/bwbtest/HB2/FLOW_1.run b/bwbtest/HB2/FLOW_1.run deleted file mode 100644 index d7d7089..0000000 --- a/bwbtest/HB2/FLOW_1.run +++ /dev/null @@ -1,5 +0,0 @@ -Trace is ON -[ 10 REM 'FLOW' TEST PROGRAM ][ 20 GOTO 50 ][ 50 PRINT "FLOW TRACES EACH LINE" ] -[ 60 GOTO 30 ][ 30 PRINT "OF THIS TEST PROGRAM." ]OF THIS TEST PROGRAM. -[ 40 GOTO 70 ][ 70 PRINT "END OF TEST PROGRAM." ]END OF TEST PROGRAM. -[ 99 END ] diff --git a/bwbtest/HB2/FLOW_2.BAS b/bwbtest/HB2/FLOW_2.BAS deleted file mode 100644 index 4e801ff..0000000 --- a/bwbtest/HB2/FLOW_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'FLOW' TEST PROGRAM -20 GOTO 50 -30 PRINT "OF THIS TEST PROGRAM." -35 FLOW -40 GOTO 70 -50 PRINT "FLOW TRACES EACH LINE" -60 GOTO 30 -70 PRINT "END OF TEST PROGRAM." -99 END diff --git a/bwbtest/HB2/FLOW_2.PRO b/bwbtest/HB2/FLOW_2.PRO deleted file mode 100644 index 9b317d7..0000000 --- a/bwbtest/HB2/FLOW_2.PRO +++ /dev/null @@ -1 +0,0 @@ -NOFLOW diff --git a/bwbtest/HB2/FLOW_2.run b/bwbtest/HB2/FLOW_2.run deleted file mode 100644 index 6b234d6..0000000 --- a/bwbtest/HB2/FLOW_2.run +++ /dev/null @@ -1,6 +0,0 @@ -Trace is OFF -FLOW TRACES EACH LINE -OF THIS TEST PROGRAM. -Trace is ON -[ 40 GOTO 70 ][ 70 PRINT "END OF TEST PROGRAM." ]END OF TEST PROGRAM. -[ 99 END ] diff --git a/bwbtest/HB2/FRAC_1.BAS b/bwbtest/HB2/FRAC_1.BAS deleted file mode 100644 index fa5ba01..0000000 --- a/bwbtest/HB2/FRAC_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'FRAC' TEST PROGRAM -20 N = -12.5 -30 F = FRAC( N ) -40 PRINT "FRAC PASSED THE TEST IF -0.5 =";F -99 END diff --git a/bwbtest/HB2/FRAC_1.run b/bwbtest/HB2/FRAC_1.run deleted file mode 100644 index 385c3b1..0000000 --- a/bwbtest/HB2/FRAC_1.run +++ /dev/null @@ -1 +0,0 @@ -FRAC PASSED THE TEST IF -0.5 =-.5 diff --git a/bwbtest/HB2/GOODBYE_1.BAS b/bwbtest/HB2/GOODBYE_1.BAS deleted file mode 100644 index 4c437b4..0000000 --- a/bwbtest/HB2/GOODBYE_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'GOODBYE' TEST PROGRAM -20 PRINT "ABOUT TO EXECUTE 'GOODBYE'" -30 GOODBYE -40 PRINT "'GOODBYE' FAILED" -99 END diff --git a/bwbtest/HB2/GOODBYE_1.run b/bwbtest/HB2/GOODBYE_1.run deleted file mode 100644 index a39ccca..0000000 --- a/bwbtest/HB2/GOODBYE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ABOUT TO EXECUTE 'GOODBYE' - diff --git a/bwbtest/HB2/GOSUB_OF_1.BAS b/bwbtest/HB2/GOSUB_OF_1.BAS deleted file mode 100644 index 9c0ed47..0000000 --- a/bwbtest/HB2/GOSUB_OF_1.BAS +++ /dev/null @@ -1,17 +0,0 @@ -10 REM 'GOSUB-OF' TEST PROGRAM -20 PRINT "ENTER THE NUMBER 1, 2, OR 3"; -30 INPUT X -35 IF X < 0 THEN 999 -40 PRINT "THE GOSUB-0F STATEMENT "; -50 GOSUB X OF 100, 200, 300 -60 GOTO 20 -100 REM SUBROUTINE #1 -110 PRINT "BRANCHED TO SUBROUTINE #1" -120 RETURN -200 REM SUBROUTINE #2 -210 PRINT "BRANCHED TO SUBROUTINE #2" -220 RETURN -300 REM SUBROUTINE #3 -310 PRINT "BRANCHED TO SUBROUTINE #3" -320 RETURN -999 END diff --git a/bwbtest/HB2/GOSUB_OF_1.INP b/bwbtest/HB2/GOSUB_OF_1.INP deleted file mode 100644 index 99c7d7f..0000000 --- a/bwbtest/HB2/GOSUB_OF_1.INP +++ /dev/null @@ -1,4 +0,0 @@ -1 -2 -3 --1 diff --git a/bwbtest/HB2/GOSUB_OF_1.run b/bwbtest/HB2/GOSUB_OF_1.run deleted file mode 100644 index 59fc985..0000000 --- a/bwbtest/HB2/GOSUB_OF_1.run +++ /dev/null @@ -1,7 +0,0 @@ -ENTER THE NUMBER 1, 2, OR 3? 1 -THE GOSUB-0F STATEMENT BRANCHED TO SUBROUTINE #1 -ENTER THE NUMBER 1, 2, OR 3? 2 -THE GOSUB-0F STATEMENT BRANCHED TO SUBROUTINE #2 -ENTER THE NUMBER 1, 2, OR 3? 3 -THE GOSUB-0F STATEMENT BRANCHED TO SUBROUTINE #3 -ENTER THE NUMBER 1, 2, OR 3? -1 diff --git a/bwbtest/HB2/GRADIAN_1.BAS b/bwbtest/HB2/GRADIAN_1.BAS deleted file mode 100644 index b595b81..0000000 --- a/bwbtest/HB2/GRADIAN_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'GRADIAN' TEST PROGRAM -20 DEGREE -30 D = SIN(30) -40 PRINT "THE SINE OF 30 DEGREES IS";D -50 GRADIAN -60 R = SIN(30) -70 PRINT "THE SINE OF 30 GRADIANS IS";R -99 END diff --git a/bwbtest/HB2/GRADIAN_1.run b/bwbtest/HB2/GRADIAN_1.run deleted file mode 100644 index ce70596..0000000 --- a/bwbtest/HB2/GRADIAN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE SINE OF 30 DEGREES IS .5 -THE SINE OF 30 GRADIANS IS .45399 diff --git a/bwbtest/HB2/HB2.PRO b/bwbtest/HB2/HB2.PRO deleted file mode 100644 index 90cd427..0000000 --- a/bwbtest/HB2/HB2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "HANDBOOK2" diff --git a/bwbtest/HB2/HOME_1.BAS b/bwbtest/HB2/HOME_1.BAS deleted file mode 100644 index a8ce6c7..0000000 --- a/bwbtest/HB2/HOME_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'HOME' TEST PROGRAM -20 FOR X=1 TO 15 -30 PRINT "THIS LINE SHOULD DISAPPEAR" -40 NEXT X -50 HOME -60 PRINT "IF THIS IS ALL THAT'S ON THE SCREEN" -70 PRINT "THE HOME STATEMENT PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/HOME_1.PRO b/bwbtest/HB2/HOME_1.PRO deleted file mode 100644 index e629e7f..0000000 --- a/bwbtest/HB2/HOME_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION TERMINAL ANSI diff --git a/bwbtest/HB2/HOME_1.run b/bwbtest/HB2/HOME_1.run deleted file mode 100644 index c0247d7..0000000 --- a/bwbtest/HB2/HOME_1.run +++ /dev/null @@ -1,17 +0,0 @@ -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR -THIS LINE SHOULD DISAPPEAR - [2J [1;1HIF THIS IS ALL THAT'S ON THE SCREEN -THE HOME STATEMENT PASSED THE TEST diff --git a/bwbtest/HB2/IMAGE_1.BAS b/bwbtest/HB2/IMAGE_1.BAS deleted file mode 100644 index a96d341..0000000 --- a/bwbtest/HB2/IMAGE_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'IMAGE' TEST PROGRAM -20 LET H=12 -30 LET M=55 -40 LET S=31 -50 IMAGE "##:##:##" -60 PRINT USING 50, "TIME: ", H, M, S -99 END diff --git a/bwbtest/HB2/IMAGE_1.run b/bwbtest/HB2/IMAGE_1.run deleted file mode 100644 index a3bb9e2..0000000 --- a/bwbtest/HB2/IMAGE_1.run +++ /dev/null @@ -1 +0,0 @@ -TIME: 12:55:31 diff --git a/bwbtest/HB2/INDEX_1.BAS b/bwbtest/HB2/INDEX_1.BAS deleted file mode 100644 index fabd64c..0000000 --- a/bwbtest/HB2/INDEX_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 REM 'INDEX' TEST PROGRAM - 20 A$ = "KEYBOARD" - 30 B$ = "OAR" - 40 K = INDEX(A$,B$) - 50 IF K<>5 THEN 110 - 60 B$ = "ORE" - 70 K = INDEX(A$,B$) - 80 IF K<>0 THEN 110 - 90 PRINT "'INDEX' PASSED THE TEST" -100 GOTO 999 -110 PRINT "'INDEX' FAILED THE TEST" -999 END diff --git a/bwbtest/HB2/INDEX_1.run b/bwbtest/HB2/INDEX_1.run deleted file mode 100644 index 3b3f2c0..0000000 --- a/bwbtest/HB2/INDEX_1.run +++ /dev/null @@ -1 +0,0 @@ -'INDEX' PASSED THE TEST diff --git a/bwbtest/HB2/INPUT5_1.BAS b/bwbtest/HB2/INPUT5_1.BAS deleted file mode 100644 index 1afeb44..0000000 --- a/bwbtest/HB2/INPUT5_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM INPUT$() TEST PROGRAM -20 PRINT "TYPE ANY COMBINATION OF THREE LETTERS." -30 A$ = INPUT$(3) -40 PRINT "YOU JUST TYPED [";A$;"]" -99 END - \ No newline at end of file diff --git a/bwbtest/HB2/INPUT5_1.run b/bwbtest/HB2/INPUT5_1.run deleted file mode 100644 index 44f3d94..0000000 --- a/bwbtest/HB2/INPUT5_1.run +++ /dev/null @@ -1,2 +0,0 @@ -TYPE ANY COMBINATION OF THREE LETTERS. -YOU JUST TYPED [QWE] diff --git a/bwbtest/HB2/INSTR_1.BAS b/bwbtest/HB2/INSTR_1.BAS deleted file mode 100644 index 187e0af..0000000 --- a/bwbtest/HB2/INSTR_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 REM 'INSTR' TEST PROGRAM - 20 A$ = "PROGRAM" - 30 B$ = "RAM" - 40 K = INSTR(A$,B$) - 50 IF K<>5 THEN 110 - 60 B$ = "ROM" - 70 K = INSTR(A$,B$) - 80 IF K<>0 THEN 110 - 90 PRINT "'INSTR' PASSED THE TEST" -100 GOTO 999 -110 PRINT "'INSTR' FAILED THE TEST" -999 END diff --git a/bwbtest/HB2/INSTR_1.run b/bwbtest/HB2/INSTR_1.run deleted file mode 100644 index 9c9fba1..0000000 --- a/bwbtest/HB2/INSTR_1.run +++ /dev/null @@ -1 +0,0 @@ -'INSTR' PASSED THE TEST diff --git a/bwbtest/HB2/INSTR_2.BAS b/bwbtest/HB2/INSTR_2.BAS deleted file mode 100644 index 71f60ea..0000000 --- a/bwbtest/HB2/INSTR_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'INSTR(N,A$,B$)' TEST PROGRAM -20 A$ = "COMPUSOFT" -30 B$ = "O" -40 K = INSTR(4,A$,B$) -50 IF K=7 THEN 80 -60 PRINT "'INSTR(N,A$,B$)' FAILED THE TEST" -70 GOTO 99 -80 PRINT "'INSTR(N,A$,B$)' PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/INSTR_2.run b/bwbtest/HB2/INSTR_2.run deleted file mode 100644 index d3242c1..0000000 --- a/bwbtest/HB2/INSTR_2.run +++ /dev/null @@ -1 +0,0 @@ -'INSTR(N,A$,B$)' PASSED THE TEST diff --git a/bwbtest/HB2/LINE_INPUT_1.BAS b/bwbtest/HB2/LINE_INPUT_1.BAS deleted file mode 100644 index 816bc6c..0000000 --- a/bwbtest/HB2/LINE_INPUT_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'LINE INPUT' TEST PROGRAM -20 PRINT "TYPE YOUR NAME - LAST, FIRST "; -30 LINE INPUT N$ -40 PRINT "HELLO ";N$;". I'M -80, TRS" -99 END diff --git a/bwbtest/HB2/LINE_INPUT_1.INP b/bwbtest/HB2/LINE_INPUT_1.INP deleted file mode 100644 index 99e4bee..0000000 --- a/bwbtest/HB2/LINE_INPUT_1.INP +++ /dev/null @@ -1 +0,0 @@ -DOE, JOHN diff --git a/bwbtest/HB2/LINE_INPUT_1.run b/bwbtest/HB2/LINE_INPUT_1.run deleted file mode 100644 index 58dfe29..0000000 --- a/bwbtest/HB2/LINE_INPUT_1.run +++ /dev/null @@ -1,2 +0,0 @@ -TYPE YOUR NAME - LAST, FIRST DOE, JOHN -HELLO DOE, JOHN. I'M -80, TRS diff --git a/bwbtest/HB2/LINE_INPUT_2.BAS b/bwbtest/HB2/LINE_INPUT_2.BAS deleted file mode 100644 index 9015250..0000000 --- a/bwbtest/HB2/LINE_INPUT_2.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 REM 'LINE INPUT' TEST PROGRAM -30 LINE INPUT "TYPE YOUR NAME - LAST, FIRST "; N$ -40 PRINT "HELLO ";N$;". I'M -80, TRS" -99 END diff --git a/bwbtest/HB2/LINE_INPUT_2.INP b/bwbtest/HB2/LINE_INPUT_2.INP deleted file mode 100644 index 99e4bee..0000000 --- a/bwbtest/HB2/LINE_INPUT_2.INP +++ /dev/null @@ -1 +0,0 @@ -DOE, JOHN diff --git a/bwbtest/HB2/LINE_INPUT_2.run b/bwbtest/HB2/LINE_INPUT_2.run deleted file mode 100644 index 58dfe29..0000000 --- a/bwbtest/HB2/LINE_INPUT_2.run +++ /dev/null @@ -1,2 +0,0 @@ -TYPE YOUR NAME - LAST, FIRST DOE, JOHN -HELLO DOE, JOHN. I'M -80, TRS diff --git a/bwbtest/HB2/LLIST_1.BAS b/bwbtest/HB2/LLIST_1.BAS deleted file mode 100644 index dcd8622..0000000 --- a/bwbtest/HB2/LLIST_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'LLIST' COMMAND TEST PROGRAM -20 REM THIS COMMAND -30 REM WILL DISPLAY EACH LINE -40 REM AS HELD BY THE COMPUTER -50 PRINT "LLIST TEST COMPLETE" -99 END diff --git a/bwbtest/HB2/LLIST_1.INP b/bwbtest/HB2/LLIST_1.INP deleted file mode 100644 index c2f6566..0000000 --- a/bwbtest/HB2/LLIST_1.INP +++ /dev/null @@ -1 +0,0 @@ -LLIST 20-30 diff --git a/bwbtest/HB2/LLIST_1.run b/bwbtest/HB2/LLIST_1.run deleted file mode 100644 index aa7c1f4..0000000 --- a/bwbtest/HB2/LLIST_1.run +++ /dev/null @@ -1,2 +0,0 @@ -LLIST TEST COMPLETE -bwBASIC: LLIST 20-30 diff --git a/bwbtest/HB2/LLIST_2.BAS b/bwbtest/HB2/LLIST_2.BAS deleted file mode 100644 index af55667..0000000 --- a/bwbtest/HB2/LLIST_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'LLIST' COMMAND TEST PROGRAM -20 REM THIS COMMAND -30 REM WILL DISPLAY EACH LINE -40 REM AS HELD BY THE COMPUTER -50 PRINT "LLIST TEST COMPLETE" -60 LLIST -99 END diff --git a/bwbtest/HB2/LLIST_2.run b/bwbtest/HB2/LLIST_2.run deleted file mode 100644 index 8ff5ad9..0000000 --- a/bwbtest/HB2/LLIST_2.run +++ /dev/null @@ -1 +0,0 @@ -LLIST TEST COMPLETE diff --git a/bwbtest/HB2/LPRINT_1.BAS b/bwbtest/HB2/LPRINT_1.BAS deleted file mode 100644 index 0e33da2..0000000 --- a/bwbtest/HB2/LPRINT_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ - 10 REM 'LPRINT' TEST PROGRAM - 20 LPRINT "YOU HAVE ONE FINE PRETER HERE!" - 30 LPRINT - 40 A = 30 - 50 LPRINT TAB(A); A; A+4; A+8 - 60 LPRINT "JUST MEASURING THE LENGTH OF A LINE." - 70 LPRINT 1,2,3 - 80 LPRINT " AND CHECKING ZONE PRINTING." - 90 LPRINT "IT ALL LOOKS GOOD TO ME." -100 LPRINT USING "I'LL GIVE YOU $#.## FOR IT.",8/3 -999 END diff --git a/bwbtest/HB2/LPRINT_1.run b/bwbtest/HB2/LPRINT_1.run deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/HB2/MAT_ADDITION_1.BAS b/bwbtest/HB2/MAT_ADDITION_1.BAS deleted file mode 100644 index 79e649f..0000000 --- a/bwbtest/HB2/MAT_ADDITION_1.BAS +++ /dev/null @@ -1,23 +0,0 @@ - 10 REM * MAT ADDITION * TEST PROGRAM - 20 DIM A(2,3), B(2,3), C(2,3) - 30 FOR I=1 TO 2 - 40 FOR J=1 TO 3 - 50 READ A(I,J) - 60 NEXT J - 70 FOR K=1 TO 3 - 80 READ B(I,K) - 90 NEXT K -100 NEXT I -110 MAT C=A+B -120 FOR I=1 TO 2 -130 FOR J=1 TO 3 -140 PRINT C(I,J); -150 NEXT J -160 PRINT -170 NEXT I -180 PRINT "MAT ADDTION PASSED THE TEST IF 3 6 9" -190 PRINT " 12 15 18" -200 DATA 2, 4, 6, 1, 2, 3 -210 DATA 8,10,12, 4, 5, 6 -999 END - \ No newline at end of file diff --git a/bwbtest/HB2/MAT_ADDITION_1.PRO b/bwbtest/HB2/MAT_ADDITION_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_ADDITION_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_ADDITION_1.run b/bwbtest/HB2/MAT_ADDITION_1.run deleted file mode 100644 index 1a17118..0000000 --- a/bwbtest/HB2/MAT_ADDITION_1.run +++ /dev/null @@ -1,4 +0,0 @@ - 3 6 9 - 12 15 18 -MAT ADDTION PASSED THE TEST IF 3 6 9 - 12 15 18 diff --git a/bwbtest/HB2/MAT_ASSIGN_1.BAS b/bwbtest/HB2/MAT_ASSIGN_1.BAS deleted file mode 100644 index ab78d51..0000000 --- a/bwbtest/HB2/MAT_ASSIGN_1.BAS +++ /dev/null @@ -1,19 +0,0 @@ - 10 REM * MAT ASSIGNMENT * TEST PROGRAM - 20 DIM A(2,3), B(2,3) - 30 FOR I=1 TO 2 - 40 FOR J=1 TO 3 - 50 READ A(I,J) - 60 NEXT J - 70 NEXT I - 80 MAT B=A - 90 FOR I=1 TO 2 -100 FOR J=1 TO 3 -110 IF B(I,J) <> A(I,J) THEN 160 -120 NEXT J -130 NEXT I -140 PRINT "MAT ASSIGNMENT PASSED THE TEST" -150 GOTO 999 -160 PRINT "MAT ASSIGNMENT FAILED THE TEST" -170 DATA 1, 2, 3, 4, 5, 6 -999 END - \ No newline at end of file diff --git a/bwbtest/HB2/MAT_ASSIGN_1.PRO b/bwbtest/HB2/MAT_ASSIGN_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_ASSIGN_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_ASSIGN_1.run b/bwbtest/HB2/MAT_ASSIGN_1.run deleted file mode 100644 index 7093696..0000000 --- a/bwbtest/HB2/MAT_ASSIGN_1.run +++ /dev/null @@ -1 +0,0 @@ -MAT ASSIGNMENT PASSED THE TEST diff --git a/bwbtest/HB2/MAT_CON_1.BAS b/bwbtest/HB2/MAT_CON_1.BAS deleted file mode 100644 index e73dce1..0000000 --- a/bwbtest/HB2/MAT_CON_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 REM * MAT CON * TEST PROGRAM - 20 DIM A(3,5) - 30 MAT A=CON - 40 FOR I=1 TO 3 - 50 FOR J=1 TO 5 - 60 PRINT A(I,J); - 70 NEXT J - 80 PRINT - 90 NEXT I -100 PRINT "'MAT CON' PASSED THE TEST IF A" -110 PRINT "3X5 ARRAY OF ONES WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_CON_1.PRO b/bwbtest/HB2/MAT_CON_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_CON_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_CON_1.run b/bwbtest/HB2/MAT_CON_1.run deleted file mode 100644 index e62c240..0000000 --- a/bwbtest/HB2/MAT_CON_1.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 1 1 1 1 - 1 1 1 1 1 - 1 1 1 1 1 -'MAT CON' PASSED THE TEST IF A -3X5 ARRAY OF ONES WAS PRINTED. diff --git a/bwbtest/HB2/MAT_CON_2.BAS b/bwbtest/HB2/MAT_CON_2.BAS deleted file mode 100644 index 2062208..0000000 --- a/bwbtest/HB2/MAT_CON_2.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 REM * MAT CON * REDIMENSION TEST PROGRAM - 20 DIM A(3,7) - 30 MAT A=CON(2,6) - 40 FOR I=1 TO 2 - 50 FOR J=1 TO 6 - 60 PRINT A(I,J); - 70 NEXT J - 80 PRINT - 90 NEXT I -100 PRINT "'MAT CON' PASSED THE TEST IF A" -110 PRINT "2X6 ARRAY OF ONES WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_CON_2.PRO b/bwbtest/HB2/MAT_CON_2.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_CON_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_CON_2.run b/bwbtest/HB2/MAT_CON_2.run deleted file mode 100644 index e21cb19..0000000 --- a/bwbtest/HB2/MAT_CON_2.run +++ /dev/null @@ -1,4 +0,0 @@ - 1 1 1 1 1 1 - 1 1 1 1 1 1 -'MAT CON' PASSED THE TEST IF A -2X6 ARRAY OF ONES WAS PRINTED. diff --git a/bwbtest/HB2/MAT_CON_3.BAS b/bwbtest/HB2/MAT_CON_3.BAS deleted file mode 100644 index 466ddfc..0000000 --- a/bwbtest/HB2/MAT_CON_3.BAS +++ /dev/null @@ -1,7 +0,0 @@ - 10 REM * MAT CON * TEST PROGRAM - 20 DIM A(3,5) - 30 MAT A=CON - 40 MAT PRINT A; -100 PRINT "'MAT CON' PASSED THE TEST IF A" -110 PRINT "3X5 ARRAY OF ONES WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_CON_3.PRO b/bwbtest/HB2/MAT_CON_3.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_CON_3.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_CON_3.run b/bwbtest/HB2/MAT_CON_3.run deleted file mode 100644 index 93ee158..0000000 --- a/bwbtest/HB2/MAT_CON_3.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 1 1 1 1 - 1 1 1 1 1 - 1 1 1 1 1 -'MAT CON' PASSED THE TEST IF A -3X5 ARRAY OF ONES WAS PRINTED. diff --git a/bwbtest/HB2/MAT_CON_4.BAS b/bwbtest/HB2/MAT_CON_4.BAS deleted file mode 100644 index 6e92082..0000000 --- a/bwbtest/HB2/MAT_CON_4.BAS +++ /dev/null @@ -1,7 +0,0 @@ - 10 REM * MAT CON * REDIMENSION TEST PROGRAM - 20 DIM A(3,7) - 30 MAT A=CON(2,6) - 40 MAT PRINT A; -100 PRINT "'MAT CON' PASSED THE TEST IF A" -110 PRINT "2X6 ARRAY OF ONES WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_CON_4.PRO b/bwbtest/HB2/MAT_CON_4.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_CON_4.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_CON_4.run b/bwbtest/HB2/MAT_CON_4.run deleted file mode 100644 index 691b9d3..0000000 --- a/bwbtest/HB2/MAT_CON_4.run +++ /dev/null @@ -1,4 +0,0 @@ - 1 1 1 1 1 1 - 1 1 1 1 1 1 -'MAT CON' PASSED THE TEST IF A -2X6 ARRAY OF ONES WAS PRINTED. diff --git a/bwbtest/HB2/MAT_IDN_1.BAS b/bwbtest/HB2/MAT_IDN_1.BAS deleted file mode 100644 index 4ebc255..0000000 --- a/bwbtest/HB2/MAT_IDN_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 REM * MAT IDN * TEST PROGRAM - 20 DIM A(4,4) - 30 MAT A=IDN - 40 FOR I=1 TO 4 - 50 FOR J=1 TO 4 - 60 PRINT A(I,J); - 70 NEXT J - 80 PRINT - 90 NEXT I -100 PRINT "'MAT IDN' PASSED THE TEST IF A 4X4 IDENTITY" -110 PRINT "MATRIX WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_IDN_1.PRO b/bwbtest/HB2/MAT_IDN_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_IDN_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_IDN_1.run b/bwbtest/HB2/MAT_IDN_1.run deleted file mode 100644 index de2ba0b..0000000 --- a/bwbtest/HB2/MAT_IDN_1.run +++ /dev/null @@ -1,6 +0,0 @@ - 1 0 0 0 - 0 1 0 0 - 0 0 1 0 - 0 0 0 1 -'MAT IDN' PASSED THE TEST IF A 4X4 IDENTITY -MATRIX WAS PRINTED. diff --git a/bwbtest/HB2/MAT_IDN_2.BAS b/bwbtest/HB2/MAT_IDN_2.BAS deleted file mode 100644 index 72d4f89..0000000 --- a/bwbtest/HB2/MAT_IDN_2.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 REM * MAT IDN * REDIMENSION TEST PROGRAM - 20 DIM A(4,4) - 30 MAT A=IDN(3,3) - 40 FOR I=1 TO 3 - 50 FOR J=1 TO 3 - 60 PRINT A(I,J); - 70 NEXT J - 80 PRINT - 90 NEXT I -100 PRINT "'MAT IDN' PASSED THE TEST IF A 3X3 IDENTITY" -110 PRINT "MATRIX WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_IDN_2.PRO b/bwbtest/HB2/MAT_IDN_2.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_IDN_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_IDN_2.run b/bwbtest/HB2/MAT_IDN_2.run deleted file mode 100644 index c48e914..0000000 --- a/bwbtest/HB2/MAT_IDN_2.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 0 0 - 0 1 0 - 0 0 1 -'MAT IDN' PASSED THE TEST IF A 3X3 IDENTITY -MATRIX WAS PRINTED. diff --git a/bwbtest/HB2/MAT_IDN_3.BAS b/bwbtest/HB2/MAT_IDN_3.BAS deleted file mode 100644 index f2aa2ab..0000000 --- a/bwbtest/HB2/MAT_IDN_3.BAS +++ /dev/null @@ -1,7 +0,0 @@ - 10 REM * MAT IDN * TEST PROGRAM - 20 DIM A(4,4) - 30 MAT A=IDN - 40 MAT PRINT A; -100 PRINT "'MAT IDN' PASSED THE TEST IF A 4X4 IDENTITY" -110 PRINT "MATRIX WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_IDN_3.PRO b/bwbtest/HB2/MAT_IDN_3.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_IDN_3.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_IDN_3.run b/bwbtest/HB2/MAT_IDN_3.run deleted file mode 100644 index 7fe6c4e..0000000 --- a/bwbtest/HB2/MAT_IDN_3.run +++ /dev/null @@ -1,6 +0,0 @@ - 1 0 0 0 - 0 1 0 0 - 0 0 1 0 - 0 0 0 1 -'MAT IDN' PASSED THE TEST IF A 4X4 IDENTITY -MATRIX WAS PRINTED. diff --git a/bwbtest/HB2/MAT_IDN_4.BAS b/bwbtest/HB2/MAT_IDN_4.BAS deleted file mode 100644 index 7535232..0000000 --- a/bwbtest/HB2/MAT_IDN_4.BAS +++ /dev/null @@ -1,7 +0,0 @@ - 10 REM * MAT IDN * REDIMENSION TEST PROGRAM - 20 DIM A(4,4) - 30 MAT A=IDN(3,3) - 40 MAT PRINT A; -100 PRINT "'MAT IDN' PASSED THE TEST IF A 3X3 IDENTITY" -110 PRINT "MATRIX WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_IDN_4.PRO b/bwbtest/HB2/MAT_IDN_4.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_IDN_4.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_IDN_4.run b/bwbtest/HB2/MAT_IDN_4.run deleted file mode 100644 index d7d0b16..0000000 --- a/bwbtest/HB2/MAT_IDN_4.run +++ /dev/null @@ -1,5 +0,0 @@ - 1 0 0 - 0 1 0 - 0 0 1 -'MAT IDN' PASSED THE TEST IF A 3X3 IDENTITY -MATRIX WAS PRINTED. diff --git a/bwbtest/HB2/MAT_INV_1.BAS b/bwbtest/HB2/MAT_INV_1.BAS deleted file mode 100644 index 1e3341a..0000000 --- a/bwbtest/HB2/MAT_INV_1.BAS +++ /dev/null @@ -1,20 +0,0 @@ - 10 REM * MAT INV * TEST PROGRAM - 20 DIM A(3,3), B(3,3) - 30 FOR I=1 TO 3 - 40 FOR J=1 TO 3 - 50 READ A(I,J) - 60 NEXT J - 70 NEXT I - 80 MAT B=INV(A) - 90 FOR I=1 TO 3 -100 FOR J=1 TO 3 -110 PRINT B(I,J); -120 NEXT J -130 PRINT -140 NEXT I -150 PRINT "'MAT INV' PASSED THE TEST IF 3 -.5 -.5" -160 PRINT " -1 0 1 " -170 PRINT " -1 .5 -.5 WAS PRINTED" -180 DATA 1,1,1, 3,4,5, 1,2,1 -999 END - \ No newline at end of file diff --git a/bwbtest/HB2/MAT_INV_1.PRO b/bwbtest/HB2/MAT_INV_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_INV_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_INV_1.run b/bwbtest/HB2/MAT_INV_1.run deleted file mode 100644 index ae2b930..0000000 --- a/bwbtest/HB2/MAT_INV_1.run +++ /dev/null @@ -1,6 +0,0 @@ - 3 -.5 -.5 --1 0 1 --1 .5 -.5 -'MAT INV' PASSED THE TEST IF 3 -.5 -.5 - -1 0 1 - -1 .5 -.5 WAS PRINTED diff --git a/bwbtest/HB2/MAT_MULTIPLICATION_1.BAS b/bwbtest/HB2/MAT_MULTIPLICATION_1.BAS deleted file mode 100644 index 0388b33..0000000 --- a/bwbtest/HB2/MAT_MULTIPLICATION_1.BAS +++ /dev/null @@ -1,20 +0,0 @@ - 10 REM * MAT MULTIPLICATION * TEST PROGRAM - 20 DIM A(2,3), B(2,3) - 30 FOR I=1 TO 2 - 40 FOR J=1 TO 3 - 50 READ A(I,J) - 60 NEXT J - 70 NEXT I - 80 K=10 - 90 MAT B=(K)*A -100 FOR I=1 TO 2 -110 FOR J=1 TO 3 -120 PRINT B(I,J); -130 NEXT J -140 PRINT -150 NEXT I -160 PRINT "MAT MULTIPLICATION PASSED THE TEST IF 10 20 30" -170 PRINT " 40 50 60 WAS PRINTED" -180 DATA 1, 2, 3, 4, 5, 6 -999 END - \ No newline at end of file diff --git a/bwbtest/HB2/MAT_MULTIPLICATION_1.PRO b/bwbtest/HB2/MAT_MULTIPLICATION_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_MULTIPLICATION_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_MULTIPLICATION_1.run b/bwbtest/HB2/MAT_MULTIPLICATION_1.run deleted file mode 100644 index f67a8fa..0000000 --- a/bwbtest/HB2/MAT_MULTIPLICATION_1.run +++ /dev/null @@ -1,4 +0,0 @@ - 10 20 30 - 40 50 60 -MAT MULTIPLICATION PASSED THE TEST IF 10 20 30 - 40 50 60 WAS PRINTED diff --git a/bwbtest/HB2/MAT_MULTIPLICATION_2.BAS b/bwbtest/HB2/MAT_MULTIPLICATION_2.BAS deleted file mode 100644 index ffd56c4..0000000 --- a/bwbtest/HB2/MAT_MULTIPLICATION_2.BAS +++ /dev/null @@ -1,25 +0,0 @@ - 10 REM * MAT MULTIPLICATION * TEST PROGRAM - 20 DIM A(2,3), B(3,2), C(2,2) - 30 FOR I=1 TO 2 - 40 FOR J=1 TO 3 - 50 READ A(I,J) - 60 NEXT J - 70 NEXT I - 80 FOR I=1 TO 3 - 90 FOR J=1 TO 2 -100 READ B(I,J) -110 NEXT J -120 NEXT I -130 MAT C=A*B -140 FOR I=1 TO 2 -150 FOR J=1 TO 2 -160 PRINT C(I,J); -170 NEXT J -180 PRINT -190 NEXT I -200 PRINT "MAT MULTIPLICATION PASSED THE TEST IF 10 14" -210 PRINT " 4 41 WAS PRINTED" -220 DATA 1,2,3, 4,5,0 -230 DATA 1,4, 0,5, 3,0 -999 END - \ No newline at end of file diff --git a/bwbtest/HB2/MAT_MULTIPLICATION_2.PRO b/bwbtest/HB2/MAT_MULTIPLICATION_2.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_MULTIPLICATION_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_MULTIPLICATION_2.run b/bwbtest/HB2/MAT_MULTIPLICATION_2.run deleted file mode 100644 index 8f8ea00..0000000 --- a/bwbtest/HB2/MAT_MULTIPLICATION_2.run +++ /dev/null @@ -1,4 +0,0 @@ - 10 14 - 4 41 -MAT MULTIPLICATION PASSED THE TEST IF 10 14 - 4 41 WAS PRINTED diff --git a/bwbtest/HB2/MAT_SUBTRACTION_1.BAS b/bwbtest/HB2/MAT_SUBTRACTION_1.BAS deleted file mode 100644 index 0f03a4d..0000000 --- a/bwbtest/HB2/MAT_SUBTRACTION_1.BAS +++ /dev/null @@ -1,23 +0,0 @@ - 10 REM * MAT SUBTRACTION * TEST PROGRAM - 20 DIM A(2,3), B(2,3), C(2,3) - 30 FOR I=1 TO 2 - 40 FOR J=1 TO 3 - 50 READ A(I,J) - 60 NEXT J - 70 FOR K=1 TO 3 - 80 READ B(I,K) - 90 NEXT K -100 NEXT I -110 MAT C=A-B -120 FOR I=1 TO 2 -130 FOR J=1 TO 3 -140 PRINT C(I,J); -150 NEXT J -160 PRINT -170 NEXT I -180 PRINT "MAT ADDTION PASSED THE TEST IF 1 2 3" -190 PRINT " 4 5 6" -200 DATA 2, 4, 6, 1, 2, 3 -210 DATA 8,10,12, 4, 5, 6 -999 END - \ No newline at end of file diff --git a/bwbtest/HB2/MAT_SUBTRACTION_1.PRO b/bwbtest/HB2/MAT_SUBTRACTION_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_SUBTRACTION_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_SUBTRACTION_1.run b/bwbtest/HB2/MAT_SUBTRACTION_1.run deleted file mode 100644 index d782e26..0000000 --- a/bwbtest/HB2/MAT_SUBTRACTION_1.run +++ /dev/null @@ -1,4 +0,0 @@ - 1 2 3 - 4 5 6 -MAT ADDTION PASSED THE TEST IF 1 2 3 - 4 5 6 diff --git a/bwbtest/HB2/MAT_TRN_1.BAS b/bwbtest/HB2/MAT_TRN_1.BAS deleted file mode 100644 index 9ba8219..0000000 --- a/bwbtest/HB2/MAT_TRN_1.BAS +++ /dev/null @@ -1,17 +0,0 @@ - 10 REM * MAT TRN * TEST PROGRAM - 20 DIM A(3,5), B(5,3) - 30 FOR I=1 TO 3 - 40 FOR J=1 TO 5 - 50 A(I,J)=10*I+J - 60 NEXT J - 70 NEXT I - 80 MAT B=TRN(A) - 90 FOR J=1 TO 5 -100 FOR I=1 TO 3 -110 PRINT B(J,I); -120 NEXT I -130 PRINT -140 NEXT J -150 PRINT "'MAT TRN' PASSED THE TEST IF THE NUMBERS 11-15," -160 PRINT "21-25, AND 31-35 ARE PRINTED IN 3 COLUMNS." -999 END diff --git a/bwbtest/HB2/MAT_TRN_1.PRO b/bwbtest/HB2/MAT_TRN_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_TRN_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_TRN_1.run b/bwbtest/HB2/MAT_TRN_1.run deleted file mode 100644 index 1d9ca07..0000000 --- a/bwbtest/HB2/MAT_TRN_1.run +++ /dev/null @@ -1,7 +0,0 @@ - 11 21 31 - 12 22 32 - 13 23 33 - 14 24 34 - 15 25 35 -'MAT TRN' PASSED THE TEST IF THE NUMBERS 11-15, -21-25, AND 31-35 ARE PRINTED IN 3 COLUMNS. diff --git a/bwbtest/HB2/MAT_ZER_1.BAS b/bwbtest/HB2/MAT_ZER_1.BAS deleted file mode 100644 index f0b38a1..0000000 --- a/bwbtest/HB2/MAT_ZER_1.BAS +++ /dev/null @@ -1,17 +0,0 @@ - 10 REM * MAT ZER * TEST PROGRAM - 20 DIM A(3,5) - 30 FOR I=1 TO 3 - 40 FOR J=1 TO 5 - 50 A(I,J)=10*I+J - 60 NEXT J - 70 NEXT I - 80 MAT A=ZER - 90 FOR I=1 TO 3 -100 FOR J=1 TO 5 -110 PRINT A(I,J); -120 NEXT J -130 PRINT -140 NEXT I -150 PRINT "'MAT ZER' PASSED THE TEST IF A" -160 PRINT "3X5 ARRAY OF ZEROS WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_ZER_1.PRO b/bwbtest/HB2/MAT_ZER_1.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_ZER_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_ZER_1.run b/bwbtest/HB2/MAT_ZER_1.run deleted file mode 100644 index 00d374e..0000000 --- a/bwbtest/HB2/MAT_ZER_1.run +++ /dev/null @@ -1,5 +0,0 @@ - 0 0 0 0 0 - 0 0 0 0 0 - 0 0 0 0 0 -'MAT ZER' PASSED THE TEST IF A -3X5 ARRAY OF ZEROS WAS PRINTED. diff --git a/bwbtest/HB2/MAT_ZER_2.BAS b/bwbtest/HB2/MAT_ZER_2.BAS deleted file mode 100644 index 8606331..0000000 --- a/bwbtest/HB2/MAT_ZER_2.BAS +++ /dev/null @@ -1,17 +0,0 @@ - 10 REM * MAT ZER * REDIMENSION TEST PROGRAM - 20 DIM A(3,8) - 30 FOR I=1 TO 3 - 40 FOR J=1 TO 8 - 50 A(I,J)=10*I+J - 60 NEXT J - 70 NEXT I - 80 MAT A=ZER(2,6) - 90 FOR I=1 TO 2 -100 FOR J=1 TO 6 -110 PRINT A(I,J); -120 NEXT J -130 PRINT -140 NEXT I -150 PRINT "'MAT ZER' PASSED THE TEST IF A" -160 PRINT "2X6 ARRAY OF ZEROS WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_ZER_2.PRO b/bwbtest/HB2/MAT_ZER_2.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_ZER_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_ZER_2.run b/bwbtest/HB2/MAT_ZER_2.run deleted file mode 100644 index 7329256..0000000 --- a/bwbtest/HB2/MAT_ZER_2.run +++ /dev/null @@ -1,4 +0,0 @@ - 0 0 0 0 0 0 - 0 0 0 0 0 0 -'MAT ZER' PASSED THE TEST IF A -2X6 ARRAY OF ZEROS WAS PRINTED. diff --git a/bwbtest/HB2/MAT_ZER_3.BAS b/bwbtest/HB2/MAT_ZER_3.BAS deleted file mode 100644 index a0746a5..0000000 --- a/bwbtest/HB2/MAT_ZER_3.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 REM * MAT ZER * TEST PROGRAM - 20 DIM A(3,5) - 30 FOR I=1 TO 3 - 40 FOR J=1 TO 5 - 50 A(I,J)=10*I+J - 60 NEXT J - 70 NEXT I - 80 MAT A=ZER - 90 MAT PRINT A; -150 PRINT "'MAT ZER' PASSED THE TEST IF A" -160 PRINT "3X5 ARRAY OF ZEROS WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_ZER_3.PRO b/bwbtest/HB2/MAT_ZER_3.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_ZER_3.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_ZER_3.run b/bwbtest/HB2/MAT_ZER_3.run deleted file mode 100644 index 351b8d8..0000000 --- a/bwbtest/HB2/MAT_ZER_3.run +++ /dev/null @@ -1,5 +0,0 @@ - 0 0 0 0 0 - 0 0 0 0 0 - 0 0 0 0 0 -'MAT ZER' PASSED THE TEST IF A -3X5 ARRAY OF ZEROS WAS PRINTED. diff --git a/bwbtest/HB2/MAT_ZER_4.BAS b/bwbtest/HB2/MAT_ZER_4.BAS deleted file mode 100644 index 348fe69..0000000 --- a/bwbtest/HB2/MAT_ZER_4.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 REM * MAT ZER * REDIMENSION TEST PROGRAM - 20 DIM A(3,8) - 30 FOR I=1 TO 3 - 40 FOR J=1 TO 8 - 50 A(I,J)=10*I+J - 60 NEXT J - 70 NEXT I - 80 MAT A=ZER(2,6) - 90 MAT PRINT A; -150 PRINT "'MAT ZER' PASSED THE TEST IF A" -160 PRINT "2X6 ARRAY OF ZEROS WAS PRINTED." -999 END diff --git a/bwbtest/HB2/MAT_ZER_4.PRO b/bwbtest/HB2/MAT_ZER_4.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/MAT_ZER_4.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/MAT_ZER_4.run b/bwbtest/HB2/MAT_ZER_4.run deleted file mode 100644 index c95674c..0000000 --- a/bwbtest/HB2/MAT_ZER_4.run +++ /dev/null @@ -1,4 +0,0 @@ - 0 0 0 0 0 0 - 0 0 0 0 0 0 -'MAT ZER' PASSED THE TEST IF A -2X6 ARRAY OF ZEROS WAS PRINTED. diff --git a/bwbtest/HB2/MAX_1.BAS b/bwbtest/HB2/MAX_1.BAS deleted file mode 100644 index a3fee34..0000000 --- a/bwbtest/HB2/MAX_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MAX' TEST PROGRAM -20 A=12 -30 Y=A MAX 5 -40 IF Y=12 THEN 70 -50 PRINT "'MAX' FAILED THE TEST" -60 GOTO 99 -70 PRINT "'MAX' PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/MAX_1.PRO b/bwbtest/HB2/MAX_1.PRO deleted file mode 100644 index 8f7d8bb..0000000 --- a/bwbtest/HB2/MAX_1.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION DISABLE FUNCTION "MAX" -OPTION ENABLE OPERATOR "MAX" diff --git a/bwbtest/HB2/MAX_1.run b/bwbtest/HB2/MAX_1.run deleted file mode 100644 index 7a0124a..0000000 --- a/bwbtest/HB2/MAX_1.run +++ /dev/null @@ -1 +0,0 @@ -'MAX' PASSED THE TEST diff --git a/bwbtest/HB2/MAX_2.BAS b/bwbtest/HB2/MAX_2.BAS deleted file mode 100644 index 58a411c..0000000 --- a/bwbtest/HB2/MAX_2.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MAX' TEST PROGRAM -20 A=12 -30 Y=MAX(A,5) -40 IF Y=12 THEN 70 -50 PRINT "'MAX' FAILED THE TEST" -60 GOTO 99 -70 PRINT "'MAX' PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/MAX_2.run b/bwbtest/HB2/MAX_2.run deleted file mode 100644 index 7a0124a..0000000 --- a/bwbtest/HB2/MAX_2.run +++ /dev/null @@ -1 +0,0 @@ -'MAX' PASSED THE TEST diff --git a/bwbtest/HB2/MAX_3.BAS b/bwbtest/HB2/MAX_3.BAS deleted file mode 100644 index e82ecf9..0000000 --- a/bwbtest/HB2/MAX_3.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MAX' TEST PROGRAM -20 A$="XYZ" -30 Y$=MAX(A$,"ABC") -40 IF Y$="XYZ" THEN 70 -50 PRINT "'MAX' FAILED THE TEST" -60 GOTO 99 -70 PRINT "'MAX' PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/MAX_3.run b/bwbtest/HB2/MAX_3.run deleted file mode 100644 index 7a0124a..0000000 --- a/bwbtest/HB2/MAX_3.run +++ /dev/null @@ -1 +0,0 @@ -'MAX' PASSED THE TEST diff --git a/bwbtest/HB2/MIN_1.BAS b/bwbtest/HB2/MIN_1.BAS deleted file mode 100644 index 3cc7e2d..0000000 --- a/bwbtest/HB2/MIN_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MIN' TEST PROGRAM -20 A=2 -30 Y=A MIN 5 -40 IF Y=2 THEN 70 -50 PRINT "'MIN' FAILED THE TEST" -60 GOTO 99 -70 PRINT "'MIN' PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/MIN_1.PRO b/bwbtest/HB2/MIN_1.PRO deleted file mode 100644 index da21040..0000000 --- a/bwbtest/HB2/MIN_1.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION DISABLE FUNCTION "MIN" -OPTION ENABLE OPERATOR "MIN" diff --git a/bwbtest/HB2/MIN_1.run b/bwbtest/HB2/MIN_1.run deleted file mode 100644 index f77075d..0000000 --- a/bwbtest/HB2/MIN_1.run +++ /dev/null @@ -1 +0,0 @@ -'MIN' PASSED THE TEST diff --git a/bwbtest/HB2/MIN_2.BAS b/bwbtest/HB2/MIN_2.BAS deleted file mode 100644 index e66b33f..0000000 --- a/bwbtest/HB2/MIN_2.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MIN' TEST PROGRAM -20 A=2 -30 Y=MIN(A,5) -40 IF Y=2 THEN 70 -50 PRINT "'MIN' FAILED THE TEST" -60 GOTO 99 -70 PRINT "'MIN' PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/MIN_2.run b/bwbtest/HB2/MIN_2.run deleted file mode 100644 index f77075d..0000000 --- a/bwbtest/HB2/MIN_2.run +++ /dev/null @@ -1 +0,0 @@ -'MIN' PASSED THE TEST diff --git a/bwbtest/HB2/MIN_3.BAS b/bwbtest/HB2/MIN_3.BAS deleted file mode 100644 index 251039a..0000000 --- a/bwbtest/HB2/MIN_3.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'MIN' TEST PROGRAM -20 A$="ABC" -30 Y$=MIN(A$,"XYZ") -40 IF Y$="ABC" THEN 70 -50 PRINT "'MIN' FAILED THE TEST" -60 GOTO 99 -70 PRINT "'MIN' PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/MIN_3.run b/bwbtest/HB2/MIN_3.run deleted file mode 100644 index f77075d..0000000 --- a/bwbtest/HB2/MIN_3.run +++ /dev/null @@ -1 +0,0 @@ -'MIN' PASSED THE TEST diff --git a/bwbtest/HB2/NEW_1.BAS b/bwbtest/HB2/NEW_1.BAS deleted file mode 100644 index 8509a08..0000000 --- a/bwbtest/HB2/NEW_1.BAS +++ /dev/null @@ -1,3 +0,0 @@ -10 REM 'NEW X' COMMAND TEST PROGRAM -20 PRINT "HELLO THERE." -99 END diff --git a/bwbtest/HB2/NEW_1.INP b/bwbtest/HB2/NEW_1.INP deleted file mode 100644 index b649389..0000000 --- a/bwbtest/HB2/NEW_1.INP +++ /dev/null @@ -1,3 +0,0 @@ -LIST -NEW 777 -LIST diff --git a/bwbtest/HB2/NEW_1.run b/bwbtest/HB2/NEW_1.run deleted file mode 100644 index c827c7e..0000000 --- a/bwbtest/HB2/NEW_1.run +++ /dev/null @@ -1,9 +0,0 @@ -HELLO THERE. -bwBASIC: LIST - 10 REM 'NEW X' COMMAND TEST PROGRAM - 20 PRINT "HELLO THERE." - 99 END - -bwBASIC: NEW 777 -bwBASIC: LIST - diff --git a/bwbtest/HB2/NOFLOW_1.BAS b/bwbtest/HB2/NOFLOW_1.BAS deleted file mode 100644 index 596e5d3..0000000 --- a/bwbtest/HB2/NOFLOW_1.BAS +++ /dev/null @@ -1 +0,0 @@ -1 REM diff --git a/bwbtest/HB2/NOFLOW_1.DAT b/bwbtest/HB2/NOFLOW_1.DAT deleted file mode 100644 index 229f2ec..0000000 --- a/bwbtest/HB2/NOFLOW_1.DAT +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'NOFLOW' TEST PROGRAM -20 PRINT "THE FIRST THREE LINES OF THIS PROGRAM" -30 NOFLOW -40 PRINT "ARE PRINTED WITH THE TRACE TURNED ON." -50 PRINT "THIS LINE IS PRINTED WITH THE TRACE TURNED OFF." -99 END diff --git a/bwbtest/HB2/NOFLOW_1.INP b/bwbtest/HB2/NOFLOW_1.INP deleted file mode 100644 index 9ec0222..0000000 --- a/bwbtest/HB2/NOFLOW_1.INP +++ /dev/null @@ -1,4 +0,0 @@ -NEW -FLOW -LOAD "NOFLOW_1.DAT" -RUN diff --git a/bwbtest/HB2/NOFLOW_1.run b/bwbtest/HB2/NOFLOW_1.run deleted file mode 100644 index b121ee6..0000000 --- a/bwbtest/HB2/NOFLOW_1.run +++ /dev/null @@ -1,9 +0,0 @@ -bwBASIC: NEW -bwBASIC: FLOW -Trace is ON -bwBASIC: LOAD "NOFLOW_1.DAT" -bwBASIC: RUN -[ 10 REM 'NOFLOW' TEST PROGRAM ][ 20 PRINT "THE FIRST THREE LINES OF THIS PROGRA -[ 30 NOFLOW ]Trace is OFF -ARE PRINTED WITH THE TRACE TURNED ON. -THIS LINE IS PRINTED WITH THE TRACE TURNED OFF. diff --git a/bwbtest/HB2/NOT_1.BAS b/bwbtest/HB2/NOT_1.BAS deleted file mode 100644 index 245eb69..0000000 --- a/bwbtest/HB2/NOT_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM LOGICAL 'NOT' TEST PROGRAM -20 A=3 -30 IF NOT(A>5) THEN 60 -40 PRINT "'NOT' FAILED THE LOGICAL OPERATOR TEST" -50 GOTO 99 -60 PRINT "'NOT' PASSED THE LOGICAL OPERATOR TEST" -99 END diff --git a/bwbtest/HB2/NOT_1.run b/bwbtest/HB2/NOT_1.run deleted file mode 100644 index d61c0ba..0000000 --- a/bwbtest/HB2/NOT_1.run +++ /dev/null @@ -1 +0,0 @@ -'NOT' PASSED THE LOGICAL OPERATOR TEST diff --git a/bwbtest/HB2/NOT_2.BAS b/bwbtest/HB2/NOT_2.BAS deleted file mode 100644 index 19c71bb..0000000 --- a/bwbtest/HB2/NOT_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM STRING LOGICAL 'NOT' TEST PROGRAM -20 PRINT "TYPE A YES OR A NOT"; -30 INPUT A$ -40 IF NOT(A$="YES" OR A$="NO") THEN 70 -50 PRINT "THANK YOU" -60 GOTO 99 -70 PRINT A$;" IS NEITHER YES NOR NO!" -80 GOTO 20 -99 END diff --git a/bwbtest/HB2/NOT_2.INP b/bwbtest/HB2/NOT_2.INP deleted file mode 100644 index ddd9a9b..0000000 --- a/bwbtest/HB2/NOT_2.INP +++ /dev/null @@ -1,2 +0,0 @@ -OK -NO diff --git a/bwbtest/HB2/NOT_2.run b/bwbtest/HB2/NOT_2.run deleted file mode 100644 index bd25337..0000000 --- a/bwbtest/HB2/NOT_2.run +++ /dev/null @@ -1,4 +0,0 @@ -TYPE A YES OR A NOT? OK -OK IS NEITHER YES NOR NO! -TYPE A YES OR A NOT? NO -THANK YOU diff --git a/bwbtest/HB2/NOT_3.BAS b/bwbtest/HB2/NOT_3.BAS deleted file mode 100644 index 04986cd..0000000 --- a/bwbtest/HB2/NOT_3.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'NOT' COMPLEMENT TEST PROGRAM -20 PRINT "ENTER A NUMBER BETWEEN -32768 AND 32767"; -30 INPUT A -35 IF A = -999 THEN 99 -40 B=NOT(A) -50 PRINT "THE BINARY COMPLEMENT OF";A;"IS";B -60 GOTO 20 -99 END diff --git a/bwbtest/HB2/NOT_3.INP b/bwbtest/HB2/NOT_3.INP deleted file mode 100644 index 134c2fb..0000000 --- a/bwbtest/HB2/NOT_3.INP +++ /dev/null @@ -1,5 +0,0 @@ -5 --6 -0 --1 --999 diff --git a/bwbtest/HB2/NOT_3.run b/bwbtest/HB2/NOT_3.run deleted file mode 100644 index d5e9d21..0000000 --- a/bwbtest/HB2/NOT_3.run +++ /dev/null @@ -1,9 +0,0 @@ -ENTER A NUMBER BETWEEN -32768 AND 32767? 5 -THE BINARY COMPLEMENT OF 5 IS-6 -ENTER A NUMBER BETWEEN -32768 AND 32767? -6 -THE BINARY COMPLEMENT OF-6 IS 5 -ENTER A NUMBER BETWEEN -32768 AND 32767? 0 -THE BINARY COMPLEMENT OF 0 IS-1 -ENTER A NUMBER BETWEEN -32768 AND 32767? -1 -THE BINARY COMPLEMENT OF-1 IS 0 -ENTER A NUMBER BETWEEN -32768 AND 32767? -999 diff --git a/bwbtest/HB2/NUM5_1.BAS b/bwbtest/HB2/NUM5_1.BAS deleted file mode 100644 index 14ad3aa..0000000 --- a/bwbtest/HB2/NUM5_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'NUM$' TEST PROGRAM -20 A=123456 -30 A$=NUM$(A) -40 PRINT "IF THE NUMBER";A;"IS CONVERTED TO THE STRING ";A$ -50 PRINT "THEN THE NUM$ FUNCTION PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/NUM5_1.run b/bwbtest/HB2/NUM5_1.run deleted file mode 100644 index 13928ea..0000000 --- a/bwbtest/HB2/NUM5_1.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE NUMBER 123456 IS CONVERTED TO THE STRING 123456 -THEN THE NUM$ FUNCTION PASSED THE TEST diff --git a/bwbtest/HB2/NUM_1.BAS b/bwbtest/HB2/NUM_1.BAS deleted file mode 100644 index 3b2b5af..0000000 --- a/bwbtest/HB2/NUM_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'NUM' TEST PROGRAM -20 A$="45.12" -30 A=NUM(A$) -40 PRINT "IF THE STRING ";A$;" IS CONVERTED TO THE NUMBER";A -50 PRINT "THEN THE NUM FUNCTION PASSED THE TEST." -99 END diff --git a/bwbtest/HB2/NUM_1.run b/bwbtest/HB2/NUM_1.run deleted file mode 100644 index dcbc515..0000000 --- a/bwbtest/HB2/NUM_1.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE STRING 45.12 IS CONVERTED TO THE NUMBER 45.12 -THEN THE NUM FUNCTION PASSED THE TEST. diff --git a/bwbtest/HB2/NUM_2.BAS b/bwbtest/HB2/NUM_2.BAS deleted file mode 100644 index f3d364f..0000000 --- a/bwbtest/HB2/NUM_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'NUM' TEST PROGRAM -20 A$="12 O'CLOCK" -30 A=NUM(A$) -40 PRINT "IF THE STRING ";A$;" IS CONVERTED TO THE NUMBER";A -50 PRINT "THEN THE NUM FUNCTION ACCEPTED NUMBERS MIXED WITH LETTERS." -99 END diff --git a/bwbtest/HB2/NUM_2.run b/bwbtest/HB2/NUM_2.run deleted file mode 100644 index 6299d18..0000000 --- a/bwbtest/HB2/NUM_2.run +++ /dev/null @@ -1,2 +0,0 @@ -IF THE STRING 12 O'CLOCK IS CONVERTED TO THE NUMBER 12 -THEN THE NUM FUNCTION ACCEPTED NUMBERS MIXED WITH LETTERS. diff --git a/bwbtest/HB2/NUM_3.BAS b/bwbtest/HB2/NUM_3.BAS deleted file mode 100644 index ba8efd7..0000000 --- a/bwbtest/HB2/NUM_3.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM * NUM (MAT INPUT) * TEST PROGRAM -20 DIM N(20) -30 PRINT "ENTER A FEW NUMBERS SEPARATED BY COMMAS"; -40 MAT INPUT N -50 S = 0 -60 FOR I=1 TO NUM -70 S = S + N(I) -80 NEXT I -90 PRINT "THE AVERAGE OF";NUM;"VALUES IS";S/NUM -99 END diff --git a/bwbtest/HB2/NUM_3.INP b/bwbtest/HB2/NUM_3.INP deleted file mode 100644 index 238f3b5..0000000 --- a/bwbtest/HB2/NUM_3.INP +++ /dev/null @@ -1,2 +0,0 @@ -15, 34, 2, 8, 54, 19 - diff --git a/bwbtest/HB2/NUM_3.PRO b/bwbtest/HB2/NUM_3.PRO deleted file mode 100644 index 6bd535a..0000000 --- a/bwbtest/HB2/NUM_3.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BASE 1 diff --git a/bwbtest/HB2/NUM_3.run b/bwbtest/HB2/NUM_3.run deleted file mode 100644 index b41bfd3..0000000 --- a/bwbtest/HB2/NUM_3.run +++ /dev/null @@ -1,3 +0,0 @@ -ENTER A FEW NUMBERS SEPARATED BY COMMAS?15, 34, 2, 8, 54, 19 -? -THE AVERAGE OF 6 VALUES IS 22 diff --git a/bwbtest/HB2/OR_1.BAS b/bwbtest/HB2/OR_1.BAS deleted file mode 100644 index 73960a9..0000000 --- a/bwbtest/HB2/OR_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM LOGICAL 'OR' TEST PROGRAM -20 A=8 -30 B=6 -40 IF A=2 OR B=6 THEN 70 -50 PRINT "OR FAILED THE TEST AS A LOGICAL OPERATOR" -60 GOTO 99 -70 PRINT "OR PASSED THE LOGICAL OPERATOR TEST" -99 END - diff --git a/bwbtest/HB2/OR_1.run b/bwbtest/HB2/OR_1.run deleted file mode 100644 index 342dd09..0000000 --- a/bwbtest/HB2/OR_1.run +++ /dev/null @@ -1 +0,0 @@ -OR PASSED THE LOGICAL OPERATOR TEST diff --git a/bwbtest/HB2/OR_2.BAS b/bwbtest/HB2/OR_2.BAS deleted file mode 100644 index ebc8ea2..0000000 --- a/bwbtest/HB2/OR_2.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM STRING LOGICAL 'OR' TEST PROGRAM -20 A$="A" -30 B$="F" -40 IF A$="A" OR B$="B" THEN 70 -50 PRINT "OR FAILED THE STRING LOGICAL OPERATOR TEST" -60 GOTO 99 -70 PRINT "OR PASSED THE STRING LOGICAL OPERATOR TEST" -99 END diff --git a/bwbtest/HB2/OR_2.run b/bwbtest/HB2/OR_2.run deleted file mode 100644 index 7211cee..0000000 --- a/bwbtest/HB2/OR_2.run +++ /dev/null @@ -1 +0,0 @@ -OR PASSED THE STRING LOGICAL OPERATOR TEST diff --git a/bwbtest/HB2/OR_3.BAS b/bwbtest/HB2/OR_3.BAS deleted file mode 100644 index 9f55b16..0000000 --- a/bwbtest/HB2/OR_3.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'OR' LOGICAL TEST PROGRAM -20 PRINT "ENTER A NUMBER FROM 1 TO 10"; -30 INPUT A -35 IF A = -999 THEN 99 -40 B= A<1 OR A>10 -50 IF B<>0 THEN 80 -60 PRINT A;"IS A NUMBER BETWEEN 1 AND 10" -70 GOTO 20 -80 PRINT A;"IS NOT GREATER THAN 0 AND LESS THAN 11" -90 GOTO 20 -99 END diff --git a/bwbtest/HB2/OR_3.INP b/bwbtest/HB2/OR_3.INP deleted file mode 100644 index 3f01642..0000000 --- a/bwbtest/HB2/OR_3.INP +++ /dev/null @@ -1,4 +0,0 @@ -6 -10 -13 --999 diff --git a/bwbtest/HB2/OR_3.run b/bwbtest/HB2/OR_3.run deleted file mode 100644 index a4f7217..0000000 --- a/bwbtest/HB2/OR_3.run +++ /dev/null @@ -1,7 +0,0 @@ -ENTER A NUMBER FROM 1 TO 10? 6 - 6 IS A NUMBER BETWEEN 1 AND 10 -ENTER A NUMBER FROM 1 TO 10? 10 - 10 IS A NUMBER BETWEEN 1 AND 10 -ENTER A NUMBER FROM 1 TO 10? 13 - 13 IS NOT GREATER THAN 0 AND LESS THAN 11 -ENTER A NUMBER FROM 1 TO 10? -999 diff --git a/bwbtest/HB2/OR_4.BAS b/bwbtest/HB2/OR_4.BAS deleted file mode 100644 index 87be78d..0000000 --- a/bwbtest/HB2/OR_4.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'OR' BINARY LOGIC TEST PROGRAM -20 PRINT "ENTER A VALUE FOR X"; -30 INPUT X -35 IF X = -999 THEN 99 -40 PRINT "ENTER A VALUE FOR Y"; -50 INPUT Y -60 A = X OR Y -70 PRINT "THE LOGICAL 'OR' VALUE OF";X;"AND";Y;"IS";A -80 GOTO 20 -99 END diff --git a/bwbtest/HB2/OR_4.INP b/bwbtest/HB2/OR_4.INP deleted file mode 100644 index f4055d2..0000000 --- a/bwbtest/HB2/OR_4.INP +++ /dev/null @@ -1,3 +0,0 @@ -6 -10 --999 diff --git a/bwbtest/HB2/OR_4.run b/bwbtest/HB2/OR_4.run deleted file mode 100644 index be58a3a..0000000 --- a/bwbtest/HB2/OR_4.run +++ /dev/null @@ -1,4 +0,0 @@ -ENTER A VALUE FOR X? 6 -ENTER A VALUE FOR Y? 10 -THE LOGICAL 'OR' VALUE OF 6 AND 10 IS 14 -ENTER A VALUE FOR X? -999 diff --git a/bwbtest/HB2/PAD80.BAS b/bwbtest/HB2/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/HB2/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/HB2/PAD80.INP b/bwbtest/HB2/PAD80.INP deleted file mode 100644 index 0f52283..0000000 --- a/bwbtest/HB2/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA XRA_1.OUT, XRA_1.80 diff --git a/bwbtest/HB2/PAD80.PRO b/bwbtest/HB2/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/HB2/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/HB2/PAUSE_1.BAS b/bwbtest/HB2/PAUSE_1.BAS deleted file mode 100644 index b22208d..0000000 --- a/bwbtest/HB2/PAUSE_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'PAUSE' TEST PROGRAM -20 PRINT "THE COMPUTER SHOULD PRINT THE FOLLOWING LINE" -30 PAUSE 15 -40 PRINT "AFTER PAUSING 15 SECONDS" -99 END diff --git a/bwbtest/HB2/PAUSE_1.run b/bwbtest/HB2/PAUSE_1.run deleted file mode 100644 index 78d051c..0000000 --- a/bwbtest/HB2/PAUSE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE COMPUTER SHOULD PRINT THE FOLLOWING LINE -AFTER PAUSING 15 SECONDS diff --git a/bwbtest/HB2/PAUSE_2.BAS b/bwbtest/HB2/PAUSE_2.BAS deleted file mode 100644 index 2f2345c..0000000 --- a/bwbtest/HB2/PAUSE_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'PAUSE' TEST PROGRAM -15 DEF PAUSE(X)=WAIT(X) -20 PRINT "THE COMPUTER SHOULD PRINT THE FOLLOWING LINE" -30 PAUSE 15 -40 PRINT "AFTER PAUSING 15 SECONDS" -99 END diff --git a/bwbtest/HB2/PAUSE_2.run b/bwbtest/HB2/PAUSE_2.run deleted file mode 100644 index 78d051c..0000000 --- a/bwbtest/HB2/PAUSE_2.run +++ /dev/null @@ -1,2 +0,0 @@ -THE COMPUTER SHOULD PRINT THE FOLLOWING LINE -AFTER PAUSING 15 SECONDS diff --git a/bwbtest/HB2/PI_1.BAS b/bwbtest/HB2/PI_1.BAS deleted file mode 100644 index 3937ed4..0000000 --- a/bwbtest/HB2/PI_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'PI' TEST PROGRAM -20 R=6 -30 C=PI(2*R) -40 PRINT "THE CIRCUMFERENCE OF A CIRCLE" -50 PRINT "WITH A RADIUS OF 6 FEET IS";C;"FEET" -99 END diff --git a/bwbtest/HB2/PI_1.run b/bwbtest/HB2/PI_1.run deleted file mode 100644 index 3099317..0000000 --- a/bwbtest/HB2/PI_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE CIRCUMFERENCE OF A CIRCLE -WITH A RADIUS OF 6 FEET IS 37.6991 FEET diff --git a/bwbtest/HB2/POP_1.BAS b/bwbtest/HB2/POP_1.BAS deleted file mode 100644 index db17899..0000000 --- a/bwbtest/HB2/POP_1.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'POP' TEST PROGRAM -20 GOSUB 50 -30 PRINT "'POP' PASSED THE TEST" -40 GOTO 99 -50 GOSUB 80 -60 PRINT "'POP' FAILED THE TEST" -70 GOTO 99 -80 POP -90 RETURN -99 END diff --git a/bwbtest/HB2/POP_1.run b/bwbtest/HB2/POP_1.run deleted file mode 100644 index e564679..0000000 --- a/bwbtest/HB2/POP_1.run +++ /dev/null @@ -1 +0,0 @@ -'POP' PASSED THE TEST diff --git a/bwbtest/HB2/POS_1.BAS b/bwbtest/HB2/POS_1.BAS deleted file mode 100644 index 4a8525e..0000000 --- a/bwbtest/HB2/POS_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ - 10 REM 'POS(A$,B$)' TEST PROGRAM - 20 A$ = "PROGRAM" - 30 B$ = "RAM" - 40 K = POS(A$,B$) - 50 IF K<>5 THEN 110 - 60 B$ = "ROM" - 70 K = POS(A$,B$) - 80 IF K<>0 THEN 110 - 90 PRINT "'POS(A$,B$)' PASSED THE TEST" -100 GOTO 999 -110 PRINT "'POS(A$,B$)' FAILED THE TEST" -999 END diff --git a/bwbtest/HB2/POS_1.run b/bwbtest/HB2/POS_1.run deleted file mode 100644 index 35bc219..0000000 --- a/bwbtest/HB2/POS_1.run +++ /dev/null @@ -1 +0,0 @@ -'POS(A$,B$)' PASSED THE TEST diff --git a/bwbtest/HB2/POS_2.BAS b/bwbtest/HB2/POS_2.BAS deleted file mode 100644 index 0102f91..0000000 --- a/bwbtest/HB2/POS_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'POS(A$,B$,N)' TEST PROGRAM -20 A$ = "COMPUSOFT" -30 B$ = "O" -40 K = POS(A$,B$,4) -50 IF K=7 THEN 80 -60 PRINT "'POS(A$,B$,N)' FAILED THE TEST" -70 GOTO 99 -80 PRINT "'POS(A$,B$,N)' PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/POS_2.run b/bwbtest/HB2/POS_2.run deleted file mode 100644 index ffb5500..0000000 --- a/bwbtest/HB2/POS_2.run +++ /dev/null @@ -1 +0,0 @@ -'POS(A$,B$,N)' PASSED THE TEST diff --git a/bwbtest/HB2/POS_3.BAS b/bwbtest/HB2/POS_3.BAS deleted file mode 100644 index 9fca5f2..0000000 --- a/bwbtest/HB2/POS_3.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM 'POS(N)' TEST PROGRAM -11 REM +------------------+ -12 REM | POS(N) in [1,80] | -13 REM +------------------+ -14 PRINT " 1 2 3 4 5 6 7 8" -15 PRINT "12345678901234567890123456789012345678901234567890123456789012345678901234567890" -20 PRINT "THIS LINE HAS A CHARACTER COUNT OF"; -30 K = POS(N) -40 PRINT K+3 -99 END diff --git a/bwbtest/HB2/POS_3.run b/bwbtest/HB2/POS_3.run deleted file mode 100644 index d3e7168..0000000 --- a/bwbtest/HB2/POS_3.run +++ /dev/null @@ -1,3 +0,0 @@ - 1 2 3 4 5 6 7 8 -12345678901234567890123456789012345678901234567890123456789012345678901234567890 -THIS LINE HAS A CHARACTER COUNT OF 38 diff --git a/bwbtest/HB2/PRECISION_1.BAS b/bwbtest/HB2/PRECISION_1.BAS deleted file mode 100644 index 13663f7..0000000 --- a/bwbtest/HB2/PRECISION_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM PRECISION TEST PROGRAM -20 PRECISION 4 -30 X = 0.1234567 -40 PRINT X -50 PRINT "PRECISION PASSED THE TEST IF 0.1235 WAS PRINTED" -60 END diff --git a/bwbtest/HB2/PRECISION_1.run b/bwbtest/HB2/PRECISION_1.run deleted file mode 100644 index 28a110a..0000000 --- a/bwbtest/HB2/PRECISION_1.run +++ /dev/null @@ -1,2 +0,0 @@ - .1235 -PRECISION PASSED THE TEST IF 0.1235 WAS PRINTED diff --git a/bwbtest/HB2/RADIAN_1.BAS b/bwbtest/HB2/RADIAN_1.BAS deleted file mode 100644 index 629fb2b..0000000 --- a/bwbtest/HB2/RADIAN_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'RADIAN' TEST PROGRAM -20 DEGREE -30 D = SIN(30) -40 PRINT "THE SINE OF 30 DEGREES IS";D -50 RADIAN -60 R = SIN(30) -70 PRINT "THE SINE OF 30 RADIANS IS";R -99 END diff --git a/bwbtest/HB2/RADIAN_1.run b/bwbtest/HB2/RADIAN_1.run deleted file mode 100644 index 03211bf..0000000 --- a/bwbtest/HB2/RADIAN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE SINE OF 30 DEGREES IS .5 -THE SINE OF 30 RADIANS IS-.988032 diff --git a/bwbtest/HB2/RAD_1.BAS b/bwbtest/HB2/RAD_1.BAS deleted file mode 100644 index f21289b..0000000 --- a/bwbtest/HB2/RAD_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'RAD' TEST PROGRAM -20 DEG -30 D = SIN(30) -40 PRINT "THE SINE OF 30 DEGREES IS";D -50 RAD -60 R = SIN(30) -70 PRINT "THE SINE OF 30 RADIANS IS";R -99 END diff --git a/bwbtest/HB2/RAD_1.run b/bwbtest/HB2/RAD_1.run deleted file mode 100644 index 03211bf..0000000 --- a/bwbtest/HB2/RAD_1.run +++ /dev/null @@ -1,2 +0,0 @@ -THE SINE OF 30 DEGREES IS .5 -THE SINE OF 30 RADIANS IS-.988032 diff --git a/bwbtest/HB2/RAD_2.BAS b/bwbtest/HB2/RAD_2.BAS deleted file mode 100644 index 5d528a7..0000000 --- a/bwbtest/HB2/RAD_2.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'RAD FUNCTION' TEST PROGRAM -20 PRINT "ENTER AN ANGLE MEASURE (IN DEGREES)"; -30 INPUT D -40 R = RAD(D) -50 PRINT "A MEASURE OF";D;"DEGREES IS EQUAL TO";R;"RADIANS" -99 END diff --git a/bwbtest/HB2/RAD_2.INP b/bwbtest/HB2/RAD_2.INP deleted file mode 100644 index ea90ee3..0000000 --- a/bwbtest/HB2/RAD_2.INP +++ /dev/null @@ -1 +0,0 @@ -45 diff --git a/bwbtest/HB2/RAD_2.run b/bwbtest/HB2/RAD_2.run deleted file mode 100644 index f3ab1bd..0000000 --- a/bwbtest/HB2/RAD_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE MEASURE (IN DEGREES)? 45 -A MEASURE OF 45 DEGREES IS EQUAL TO .785398 RADIANS diff --git a/bwbtest/HB2/RECALL_1.BAS b/bwbtest/HB2/RECALL_1.BAS deleted file mode 100644 index dc70e64..0000000 --- a/bwbtest/HB2/RECALL_1.BAS +++ /dev/null @@ -1,17 +0,0 @@ -10 REM 'RECALL' TEST PROGRAM -20 OPTION BASE 1 -30 DIM A(10) -40 FOR I=1 TO 10 -50 A(I)=I -60 NEXT I -70 STORE A -80 FOR I=1 TO 10 -90 A(I)=0 -100 NEXT I -110 RECALL A -120 PRINT "'RECALL' PASSED IF 1 TO 10" -130 FOR I=1 TO 10 -140 PRINT A(I); -150 NEXT I -160 PRINT -999 END diff --git a/bwbtest/HB2/RECALL_1.run b/bwbtest/HB2/RECALL_1.run deleted file mode 100644 index 7654063..0000000 --- a/bwbtest/HB2/RECALL_1.run +++ /dev/null @@ -1,2 +0,0 @@ -'RECALL' PASSED IF 1 TO 10 - 1 2 3 4 5 6 7 8 9 10 diff --git a/bwbtest/HB2/REPEAT5_1.BAS b/bwbtest/HB2/REPEAT5_1.BAS deleted file mode 100644 index 12db527..0000000 --- a/bwbtest/HB2/REPEAT5_1.BAS +++ /dev/null @@ -1,17 +0,0 @@ - 10 REM 'REPEAT$' TEST PROGRAM - 20 PRINT "TYPE YOUR FIRST NAME"; - 30 INPUT N$ - 40 PRINT "NOW PICK A NUMBER FROM 2 TO 5"; - 50 INPUT M - 60 A$ = REPEAT$(N$,M) - 70 PRINT A$ - 99 REM -30000 DEF REPEAT$( A$, X ) -30010 DIM I, S$ -30020 LET S$ = "" -30030 FOR I=1 TO X -30040 LET S$ = S$ & A$ -30050 NEXT I -30060 LET REPEAT$ = S$ -30070 FNEND -30999 END diff --git a/bwbtest/HB2/REPEAT5_1.INP b/bwbtest/HB2/REPEAT5_1.INP deleted file mode 100644 index c44cd61..0000000 --- a/bwbtest/HB2/REPEAT5_1.INP +++ /dev/null @@ -1,2 +0,0 @@ -DAVID -3 diff --git a/bwbtest/HB2/REPEAT5_1.run b/bwbtest/HB2/REPEAT5_1.run deleted file mode 100644 index f877633..0000000 --- a/bwbtest/HB2/REPEAT5_1.run +++ /dev/null @@ -1,3 +0,0 @@ -TYPE YOUR FIRST NAME? DAVID -NOW PICK A NUMBER FROM 2 TO 5? 3 -DAVIDDAVIDDAVID diff --git a/bwbtest/HB2/SCRATCH_1.BAS b/bwbtest/HB2/SCRATCH_1.BAS deleted file mode 100644 index 9d8554b..0000000 --- a/bwbtest/HB2/SCRATCH_1.BAS +++ /dev/null @@ -1,3 +0,0 @@ -10 REM 'SCRATCH' COMMAND TEST PROGRAM -20 PRINT "THIS IS A TEST" -99 END diff --git a/bwbtest/HB2/SCRATCH_1.INP b/bwbtest/HB2/SCRATCH_1.INP deleted file mode 100644 index ce6b572..0000000 --- a/bwbtest/HB2/SCRATCH_1.INP +++ /dev/null @@ -1,3 +0,0 @@ -LIST -SCRATCH -LIST diff --git a/bwbtest/HB2/SCRATCH_1.run b/bwbtest/HB2/SCRATCH_1.run deleted file mode 100644 index 3788639..0000000 --- a/bwbtest/HB2/SCRATCH_1.run +++ /dev/null @@ -1,9 +0,0 @@ -THIS IS A TEST -bwBASIC: LIST - 10 REM 'SCRATCH' COMMAND TEST PROGRAM - 20 PRINT "THIS IS A TEST" - 99 END - -bwBASIC: SCRATCH -bwBASIC: LIST - diff --git a/bwbtest/HB2/SCRATCH_2.BAS b/bwbtest/HB2/SCRATCH_2.BAS deleted file mode 100644 index df91594..0000000 --- a/bwbtest/HB2/SCRATCH_2.BAS +++ /dev/null @@ -1,10 +0,0 @@ -10 REM Purpose: Verify 'SCRATCH #' -20 REM Author: Howard Wulf, AF5NE -30 REM Date: 2015-10-19 -40 REM -50 OPEN "A" FOR INPUT AS #2 -60 REM The following statement should change the file from INPUT to OUTPUT -70 SCRATCH #2 -80 PRINT #2, "100 REM HELLO WORLD" -90 CLOSE #2 -99 END diff --git a/bwbtest/HB2/SCRATCH_2.INP b/bwbtest/HB2/SCRATCH_2.INP deleted file mode 100644 index dd478c4..0000000 --- a/bwbtest/HB2/SCRATCH_2.INP +++ /dev/null @@ -1,3 +0,0 @@ -LIST -APPEND "A" -LIST diff --git a/bwbtest/HB2/SCRATCH_2.PRO b/bwbtest/HB2/SCRATCH_2.PRO deleted file mode 100644 index 4b6104e..0000000 --- a/bwbtest/HB2/SCRATCH_2.PRO +++ /dev/null @@ -1,3 +0,0 @@ -OPTION ENABLE COMMAND "OPEN" -OPTION ENABLE FUNCTION "OPEN" -OPTION ENABLE FUNCTION "CLOSE" diff --git a/bwbtest/HB2/SCRATCH_2.run b/bwbtest/HB2/SCRATCH_2.run deleted file mode 100644 index 41e3061..0000000 --- a/bwbtest/HB2/SCRATCH_2.run +++ /dev/null @@ -1,26 +0,0 @@ -bwBASIC: LIST - 10 REM Purpose: Verify 'SCRATCH #' - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-10-19 - 40 REM - 50 OPEN "A" FOR INPUT AS #2 - 60 REM The following statement should change the file from INPUT to OUTPUT - 70 SCRATCH #2 - 80 PRINT #2, "100 REM HELLO WORLD" - 90 CALL CLOSE(#2) - 99 END - -bwBASIC: APPEND "A" -bwBASIC: LIST - 10 REM Purpose: Verify 'SCRATCH #' - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-10-19 - 40 REM - 50 OPEN "A" FOR INPUT AS #2 - 60 REM The following statement should change the file from INPUT to OUTPUT - 70 SCRATCH #2 - 80 PRINT #2, "100 REM HELLO WORLD" - 90 CALL CLOSE(#2) - 99 END - 100 REM HELLO WORLD - diff --git a/bwbtest/HB2/SEG5_1.BAS b/bwbtest/HB2/SEG5_1.BAS deleted file mode 100644 index b62820f..0000000 --- a/bwbtest/HB2/SEG5_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM * SEG$ TEST PROGRAM * -20 A$ = "ZZZCONTESTANT" -30 B$ = SEG$(A$,7,4) -40 IF B$ <> "TEST" THEN 70 -50 PRINT "SEG$ PASSED THE ";B$ -60 GOTO 99 -70 PRINT "SEG$ FAILED THE TEST" -99 END diff --git a/bwbtest/HB2/SEG5_1.run b/bwbtest/HB2/SEG5_1.run deleted file mode 100644 index dec7f67..0000000 --- a/bwbtest/HB2/SEG5_1.run +++ /dev/null @@ -1 +0,0 @@ -SEG$ PASSED THE TEST diff --git a/bwbtest/HB2/SEG_1.BAS b/bwbtest/HB2/SEG_1.BAS deleted file mode 100644 index d956a56..0000000 --- a/bwbtest/HB2/SEG_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM * SEG TEST PROGRAM * -20 A$ = "ZZZCONTESTANT" -30 B$ = SEG(A$,7,4) -40 IF B$ <> "TEST" THEN 70 -50 PRINT "SEG PASSED THE ";B$ -60 GOTO 99 -70 PRINT "SEG FAILED THE TEST" -99 END diff --git a/bwbtest/HB2/SEG_1.run b/bwbtest/HB2/SEG_1.run deleted file mode 100644 index cf43bf4..0000000 --- a/bwbtest/HB2/SEG_1.run +++ /dev/null @@ -1 +0,0 @@ -SEG PASSED THE TEST diff --git a/bwbtest/HB2/SGN_1.BAS b/bwbtest/HB2/SGN_1.BAS deleted file mode 100644 index 4a06955..0000000 --- a/bwbtest/HB2/SGN_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'SGN' FUNCTION TEST PROGRAM -20 X = 5 -30 T = SGN(X) -40 IF T=1 THEN 70 -50 PRINT "'SGN' FAILED THE TEST" -60 GOTO 99 -70 PRINT "'SGN' PASSED THE TEST" -99 END diff --git a/bwbtest/HB2/SGN_1.run b/bwbtest/HB2/SGN_1.run deleted file mode 100644 index ae7acaf..0000000 --- a/bwbtest/HB2/SGN_1.run +++ /dev/null @@ -1 +0,0 @@ -'SGN' PASSED THE TEST diff --git a/bwbtest/HB2/SIND_1.BAS b/bwbtest/HB2/SIND_1.BAS deleted file mode 100644 index 7fe2348..0000000 --- a/bwbtest/HB2/SIND_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'SIND' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN DEGREES)"; -30 INPUT R -40 Y=SIND(R) -50 PRINT "THE SINE OF A";R;"DEGREE ANGLE IS";Y -99 END diff --git a/bwbtest/HB2/SIND_1.INP b/bwbtest/HB2/SIND_1.INP deleted file mode 100644 index d00491f..0000000 --- a/bwbtest/HB2/SIND_1.INP +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/bwbtest/HB2/SIND_1.run b/bwbtest/HB2/SIND_1.run deleted file mode 100644 index a7f2d43..0000000 --- a/bwbtest/HB2/SIND_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN DEGREES)? 1 -THE SINE OF A 1 DEGREE ANGLE IS 1.74524E-2 diff --git a/bwbtest/HB2/SING_1.BAS b/bwbtest/HB2/SING_1.BAS deleted file mode 100644 index 1a953fb..0000000 --- a/bwbtest/HB2/SING_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'SING' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN GRADIANS)"; -30 INPUT R -40 Y=SING(R) -50 PRINT "THE SINE OF A";R;"GRADIAN ANGLE IS";Y -99 END diff --git a/bwbtest/HB2/SING_1.INP b/bwbtest/HB2/SING_1.INP deleted file mode 100644 index d00491f..0000000 --- a/bwbtest/HB2/SING_1.INP +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/bwbtest/HB2/SING_1.run b/bwbtest/HB2/SING_1.run deleted file mode 100644 index 3dd1e11..0000000 --- a/bwbtest/HB2/SING_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN GRADIANS)? 1 -THE SINE OF A 1 GRADIAN ANGLE IS 1.57073E-2 diff --git a/bwbtest/HB2/SINH_1.BAS b/bwbtest/HB2/SINH_1.BAS deleted file mode 100644 index 8a18dbf..0000000 --- a/bwbtest/HB2/SINH_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'SINH' TEST PROGRAM -20 PRINT "ENTER A VALUE"; -30 INPUT N -40 S=SINH(N) -50 PRINT "THE HYPERBOLIC SINE OF";N;"IS";S -99 END diff --git a/bwbtest/HB2/SINH_1.INP b/bwbtest/HB2/SINH_1.INP deleted file mode 100644 index d00491f..0000000 --- a/bwbtest/HB2/SINH_1.INP +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/bwbtest/HB2/SINH_1.run b/bwbtest/HB2/SINH_1.run deleted file mode 100644 index 942fd15..0000000 --- a/bwbtest/HB2/SINH_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VALUE? 1 -THE HYPERBOLIC SINE OF 1 IS 1.1752 diff --git a/bwbtest/HB2/SINH_2.BAS b/bwbtest/HB2/SINH_2.BAS deleted file mode 100644 index 56c4650..0000000 --- a/bwbtest/HB2/SINH_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'SINH' TEST PROGRAM -15 DEF SINH( X ) = .5 * ( EXP( X ) - EXP( -X ) ) -20 PRINT "ENTER A VALUE"; -30 INPUT N -40 S=SINH(N) -50 PRINT "THE HYPERBOLIC SINE OF";N;"IS";S -99 END diff --git a/bwbtest/HB2/SINH_2.INP b/bwbtest/HB2/SINH_2.INP deleted file mode 100644 index d00491f..0000000 --- a/bwbtest/HB2/SINH_2.INP +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/bwbtest/HB2/SINH_2.run b/bwbtest/HB2/SINH_2.run deleted file mode 100644 index 942fd15..0000000 --- a/bwbtest/HB2/SINH_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VALUE? 1 -THE HYPERBOLIC SINE OF 1 IS 1.1752 diff --git a/bwbtest/HB2/SIN_1.BAS b/bwbtest/HB2/SIN_1.BAS deleted file mode 100644 index 8cc1785..0000000 --- a/bwbtest/HB2/SIN_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'SIN' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN RADIANS)"; -30 INPUT R -40 Y=SIN(R) -50 PRINT "THE SINE OF A";R;"RADIAN ANGLE IS";Y -99 END diff --git a/bwbtest/HB2/SIN_1.INP b/bwbtest/HB2/SIN_1.INP deleted file mode 100644 index d00491f..0000000 --- a/bwbtest/HB2/SIN_1.INP +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/bwbtest/HB2/SIN_1.run b/bwbtest/HB2/SIN_1.run deleted file mode 100644 index b99d075..0000000 --- a/bwbtest/HB2/SIN_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN RADIANS)? 1 -THE SINE OF A 1 RADIAN ANGLE IS .841471 diff --git a/bwbtest/HB2/SNH_1.BAS b/bwbtest/HB2/SNH_1.BAS deleted file mode 100644 index 2737d8d..0000000 --- a/bwbtest/HB2/SNH_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'SNH' TEST PROGRAM -20 PRINT "ENTER A VALUE"; -30 INPUT N -40 S=SNH(N) -50 PRINT "THE HYPERBOLIC SINE OF";N;"IS";S -99 END diff --git a/bwbtest/HB2/SNH_1.INP b/bwbtest/HB2/SNH_1.INP deleted file mode 100644 index d00491f..0000000 --- a/bwbtest/HB2/SNH_1.INP +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/bwbtest/HB2/SNH_1.run b/bwbtest/HB2/SNH_1.run deleted file mode 100644 index 942fd15..0000000 --- a/bwbtest/HB2/SNH_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VALUE? 1 -THE HYPERBOLIC SINE OF 1 IS 1.1752 diff --git a/bwbtest/HB2/SNH_2.BAS b/bwbtest/HB2/SNH_2.BAS deleted file mode 100644 index ca03475..0000000 --- a/bwbtest/HB2/SNH_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'SNH' TEST PROGRAM -15 DEF SNH( X ) = .5 * ( EXP( X ) - EXP( -X ) ) -20 PRINT "ENTER A VALUE"; -30 INPUT N -40 S=SNH(N) -50 PRINT "THE HYPERBOLIC SINE OF";N;"IS";S -99 END diff --git a/bwbtest/HB2/SNH_2.INP b/bwbtest/HB2/SNH_2.INP deleted file mode 100644 index d00491f..0000000 --- a/bwbtest/HB2/SNH_2.INP +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/bwbtest/HB2/SNH_2.run b/bwbtest/HB2/SNH_2.run deleted file mode 100644 index 942fd15..0000000 --- a/bwbtest/HB2/SNH_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VALUE? 1 -THE HYPERBOLIC SINE OF 1 IS 1.1752 diff --git a/bwbtest/HB2/STORE_1.BAS b/bwbtest/HB2/STORE_1.BAS deleted file mode 100644 index 155e9eb..0000000 --- a/bwbtest/HB2/STORE_1.BAS +++ /dev/null @@ -1,17 +0,0 @@ -10 REM 'STORE' TEST PROGRAM -20 OPTION BASE 1 -30 DIM A(10) -40 FOR I=1 TO 10 -50 A(I)=I -60 NEXT I -70 STORE A -80 FOR I=1 TO 10 -90 A(I)=0 -100 NEXT I -110 RECALL A -120 PRINT "'STORE' PASSED IF 1 TO 10" -130 FOR I=1 TO 10 -140 PRINT A(I); -150 NEXT I -160 PRINT -999 END diff --git a/bwbtest/HB2/STORE_1.run b/bwbtest/HB2/STORE_1.run deleted file mode 100644 index e3852cd..0000000 --- a/bwbtest/HB2/STORE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -'STORE' PASSED IF 1 TO 10 - 1 2 3 4 5 6 7 8 9 10 diff --git a/bwbtest/HB2/STRING_1.BAS b/bwbtest/HB2/STRING_1.BAS deleted file mode 100644 index da473ff..0000000 --- a/bwbtest/HB2/STRING_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'STRING' TEST PROGRAM -20 PRINT STRING(23,42); -30 PRINT "STRING FUNCTION"; -40 PRINT STRING(23,42); -99 END diff --git a/bwbtest/HB2/STRING_1.run b/bwbtest/HB2/STRING_1.run deleted file mode 100644 index 9bf445e..0000000 --- a/bwbtest/HB2/STRING_1.run +++ /dev/null @@ -1 +0,0 @@ -***********************STRING FUNCTION*********************** diff --git a/bwbtest/HB2/STR_1.BAS b/bwbtest/HB2/STR_1.BAS deleted file mode 100644 index 95b7193..0000000 --- a/bwbtest/HB2/STR_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'STR' TEST PROGRAM -20 PRINT STR(23,42); -30 PRINT "STR FUNCTION"; -40 PRINT STR(23,42); -99 END diff --git a/bwbtest/HB2/STR_1.run b/bwbtest/HB2/STR_1.run deleted file mode 100644 index 46fb94d..0000000 --- a/bwbtest/HB2/STR_1.run +++ /dev/null @@ -1 +0,0 @@ -***********************STR FUNCTION*********************** diff --git a/bwbtest/HB2/SWAP_1.BAS b/bwbtest/HB2/SWAP_1.BAS deleted file mode 100644 index 2335229..0000000 --- a/bwbtest/HB2/SWAP_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM 'SWAP' TEST PROGRAM -20 PRINT "ENTER TWO VALUES (SEPARATED BY COMMAS" -30 INPUT A,B -35 IF A=0 AND B=0 THEN 99 -40 IF A<=B THEN 60 -50 SWAP (A,B) -60 PRINT A;"IS LESS THAN OR EQUAL TO";B -70 GOTO 20 -99 END diff --git a/bwbtest/HB2/SWAP_1.INP b/bwbtest/HB2/SWAP_1.INP deleted file mode 100644 index b007308..0000000 --- a/bwbtest/HB2/SWAP_1.INP +++ /dev/null @@ -1,3 +0,0 @@ -3,7 -9,1 -0,0 diff --git a/bwbtest/HB2/SWAP_1.run b/bwbtest/HB2/SWAP_1.run deleted file mode 100644 index ca6cca7..0000000 --- a/bwbtest/HB2/SWAP_1.run +++ /dev/null @@ -1,8 +0,0 @@ -ENTER TWO VALUES (SEPARATED BY COMMAS -? 3,7 - 3 IS LESS THAN OR EQUAL TO 7 -ENTER TWO VALUES (SEPARATED BY COMMAS -? 9,1 - 1 IS LESS THAN OR EQUAL TO 9 -ENTER TWO VALUES (SEPARATED BY COMMAS -? 0,0 diff --git a/bwbtest/HB2/TAND_1.BAS b/bwbtest/HB2/TAND_1.BAS deleted file mode 100644 index 16cc9b2..0000000 --- a/bwbtest/HB2/TAND_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'TAND' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN DEGREES)"; -30 INPUT R -40 Y=TAND(R) -50 PRINT "THE TANGENT OF A";R;"DEGREE ANGLE IS";Y -99 END diff --git a/bwbtest/HB2/TAND_1.INP b/bwbtest/HB2/TAND_1.INP deleted file mode 100644 index 64bb6b7..0000000 --- a/bwbtest/HB2/TAND_1.INP +++ /dev/null @@ -1 +0,0 @@ -30 diff --git a/bwbtest/HB2/TAND_1.run b/bwbtest/HB2/TAND_1.run deleted file mode 100644 index db54c65..0000000 --- a/bwbtest/HB2/TAND_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN DEGREES)? 30 -THE TANGENT OF A 30 DEGREE ANGLE IS .57735 diff --git a/bwbtest/HB2/TANG_1.BAS b/bwbtest/HB2/TANG_1.BAS deleted file mode 100644 index 25ff8ea..0000000 --- a/bwbtest/HB2/TANG_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'TANG' TEST PROGRAM -20 PRINT "ENTER AN ANGLE (EXPRESSED IN GRADIANS)"; -30 INPUT R -40 Y=TANG(R) -50 PRINT "THE TANGENT OF A";R;"GRADIAN ANGLE IS";Y -99 END diff --git a/bwbtest/HB2/TANG_1.INP b/bwbtest/HB2/TANG_1.INP deleted file mode 100644 index 519a63c..0000000 --- a/bwbtest/HB2/TANG_1.INP +++ /dev/null @@ -1 +0,0 @@ -33.333333 diff --git a/bwbtest/HB2/TANG_1.run b/bwbtest/HB2/TANG_1.run deleted file mode 100644 index ed9ff4a..0000000 --- a/bwbtest/HB2/TANG_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER AN ANGLE (EXPRESSED IN GRADIANS)? 33.333333 -THE TANGENT OF A 33.3333 GRADIAN ANGLE IS .57735 diff --git a/bwbtest/HB2/TANH_1.BAS b/bwbtest/HB2/TANH_1.BAS deleted file mode 100644 index 73ddf08..0000000 --- a/bwbtest/HB2/TANH_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'TANH' TEST PROGRAM -20 PRINT "ENTER A VALUE"; -30 INPUT N -40 T=TANH(N) -50 PRINT "THE HYPERBOLIC TANGENT OF";N;"IS";T -99 END diff --git a/bwbtest/HB2/TANH_1.INP b/bwbtest/HB2/TANH_1.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/TANH_1.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/TANH_1.run b/bwbtest/HB2/TANH_1.run deleted file mode 100644 index b43ca59..0000000 --- a/bwbtest/HB2/TANH_1.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VALUE? 0.5 -THE HYPERBOLIC TANGENT OF .5 IS .462117 diff --git a/bwbtest/HB2/TANH_2.BAS b/bwbtest/HB2/TANH_2.BAS deleted file mode 100644 index c6ed297..0000000 --- a/bwbtest/HB2/TANH_2.BAS +++ /dev/null @@ -1,7 +0,0 @@ -10 REM 'TANH' TEST PROGRAM -15 DEF TANH(N) = 1 - 2 * EXP(-N) / ( EXP(N) + EXP(-N) ) -20 PRINT "ENTER A VALUE"; -30 INPUT N -40 T=TANH(N) -50 PRINT "THE HYPERBOLIC TANGENT OF";N;"IS";T -99 END diff --git a/bwbtest/HB2/TANH_2.INP b/bwbtest/HB2/TANH_2.INP deleted file mode 100644 index 2eb3c4f..0000000 --- a/bwbtest/HB2/TANH_2.INP +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/bwbtest/HB2/TANH_2.run b/bwbtest/HB2/TANH_2.run deleted file mode 100644 index b43ca59..0000000 --- a/bwbtest/HB2/TANH_2.run +++ /dev/null @@ -1,2 +0,0 @@ -ENTER A VALUE? 0.5 -THE HYPERBOLIC TANGENT OF .5 IS .462117 diff --git a/bwbtest/HB2/TIME_1.BAS b/bwbtest/HB2/TIME_1.BAS deleted file mode 100644 index d96f9cd..0000000 --- a/bwbtest/HB2/TIME_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 REM 'TIME$(X)' TEST PROGRAM -20 PRINT "THE CURRENT TIME IS ";TIME$(777) -30 PRINT "THE TIME$(X) FUNCTION PASSED THE TEST" -40 PRINT "IF A SIX DIGIT NUMBER IS PRINTED" -99 END diff --git a/bwbtest/HB2/TIME_1.run b/bwbtest/HB2/TIME_1.run deleted file mode 100644 index 6a7110f..0000000 --- a/bwbtest/HB2/TIME_1.run +++ /dev/null @@ -1,3 +0,0 @@ -THE CURRENT TIME IS 12:31:33 -THE TIME$(X) FUNCTION PASSED THE TEST -IF A SIX DIGIT NUMBER IS PRINTED diff --git a/bwbtest/HB2/TLOAD_1.BAS b/bwbtest/HB2/TLOAD_1.BAS deleted file mode 100644 index 596e5d3..0000000 --- a/bwbtest/HB2/TLOAD_1.BAS +++ /dev/null @@ -1 +0,0 @@ -1 REM diff --git a/bwbtest/HB2/TLOAD_1.DAT b/bwbtest/HB2/TLOAD_1.DAT deleted file mode 100644 index 5e7c7bd..0000000 --- a/bwbtest/HB2/TLOAD_1.DAT +++ /dev/null @@ -1,3 +0,0 @@ -10 REM 'TLOAD' TEST PROGRAM -20 PRINT "THIS PROGRAM TESTS THE TLOAD FEATURE" -99 END diff --git a/bwbtest/HB2/TLOAD_1.INP b/bwbtest/HB2/TLOAD_1.INP deleted file mode 100644 index 190c2b6..0000000 --- a/bwbtest/HB2/TLOAD_1.INP +++ /dev/null @@ -1,3 +0,0 @@ -TLOAD "TLOAD_1.DAT" -LIST -RUN diff --git a/bwbtest/HB2/TLOAD_1.run b/bwbtest/HB2/TLOAD_1.run deleted file mode 100644 index 75f8801..0000000 --- a/bwbtest/HB2/TLOAD_1.run +++ /dev/null @@ -1,8 +0,0 @@ -bwBASIC: TLOAD "TLOAD_1.DAT" -bwBASIC: LIST - 10 REM 'TLOAD' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE TLOAD FEATURE" - 99 END - -bwBASIC: RUN -THIS PROGRAM TESTS THE TLOAD FEATURE diff --git a/bwbtest/HB2/TOP_1.BAS b/bwbtest/HB2/TOP_1.BAS deleted file mode 100644 index 672c548..0000000 --- a/bwbtest/HB2/TOP_1.BAS +++ /dev/null @@ -1,6 +0,0 @@ -10 REM 'TOP' TEST PROGRAM -20 IF TOP=0 THEN 50 -30 PRINT "FREE MEMORY STARTS AT";TOP -40 GOTO 99 -50 PRINT "TOP FAILED THE TEST" -99 END diff --git a/bwbtest/HB2/TOP_1.run b/bwbtest/HB2/TOP_1.run deleted file mode 100644 index 44eaa14..0000000 --- a/bwbtest/HB2/TOP_1.run +++ /dev/null @@ -1 +0,0 @@ -FREE MEMORY STARTS AT 32000 diff --git a/bwbtest/HB2/TSAVE_1.BAS b/bwbtest/HB2/TSAVE_1.BAS deleted file mode 100644 index 596e5d3..0000000 --- a/bwbtest/HB2/TSAVE_1.BAS +++ /dev/null @@ -1 +0,0 @@ -1 REM diff --git a/bwbtest/HB2/TSAVE_1.DAT b/bwbtest/HB2/TSAVE_1.DAT deleted file mode 100644 index 6e642f3..0000000 --- a/bwbtest/HB2/TSAVE_1.DAT +++ /dev/null @@ -1,4 +0,0 @@ - 10 REM 'TSAVE' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE TSAVE FEATURE" - 99 END - diff --git a/bwbtest/HB2/TSAVE_1.INP b/bwbtest/HB2/TSAVE_1.INP deleted file mode 100644 index 12e56f6..0000000 --- a/bwbtest/HB2/TSAVE_1.INP +++ /dev/null @@ -1,10 +0,0 @@ -NEW -10 REM 'TSAVE' TEST PROGRAM -20 PRINT "THIS PROGRAM TESTS THE TSAVE FEATURE" -99 END -LIST -TSAVE "TSAVE_1.DAT" -NEW -LIST -TLOAD "TSAVE_1.DAT" -LIST diff --git a/bwbtest/HB2/TSAVE_1.run b/bwbtest/HB2/TSAVE_1.run deleted file mode 100644 index 33c5498..0000000 --- a/bwbtest/HB2/TSAVE_1.run +++ /dev/null @@ -1,19 +0,0 @@ -bwBASIC: NEW -bwBASIC: 10 REM 'TSAVE' TEST PROGRAM -bwBASIC: 20 PRINT "THIS PROGRAM TESTS THE TSAVE FEATURE" -bwBASIC: 99 END -bwBASIC: LIST - 10 REM 'TSAVE' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE TSAVE FEATURE" - 99 END - -bwBASIC: TSAVE "TSAVE_1.DAT" -bwBASIC: NEW -bwBASIC: LIST - -bwBASIC: TLOAD "TSAVE_1.DAT" -bwBASIC: LIST - 10 REM 'TSAVE' TEST PROGRAM - 20 PRINT "THIS PROGRAM TESTS THE TSAVE FEATURE" - 99 END - diff --git a/bwbtest/HB2/UNTIL_1.BAS b/bwbtest/HB2/UNTIL_1.BAS deleted file mode 100644 index 27d0dfe..0000000 --- a/bwbtest/HB2/UNTIL_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ -10 REM Purpose: Verify REPEAT-UNTIL -20 REM Author: Howard Wulf, AF5NE -30 REM Date: 2015-10-20 -40 REM -50 REPEAT -60 X = X + 1 -70 PRINT X, X*X, SQR(X) -80 UNTIL X = 12 -99 END diff --git a/bwbtest/HB2/UNTIL_1.run b/bwbtest/HB2/UNTIL_1.run deleted file mode 100644 index d2353d8..0000000 --- a/bwbtest/HB2/UNTIL_1.run +++ /dev/null @@ -1,12 +0,0 @@ - 1 1 1 - 2 4 1.41421 - 3 9 1.73205 - 4 16 2 - 5 25 2.23607 - 6 36 2.44949 - 7 49 2.64575 - 8 64 2.82843 - 9 81 3 - 10 100 3.16228 - 11 121 3.31662 - 12 144 3.4641 diff --git a/bwbtest/HB2/WHILE_1.BAS b/bwbtest/HB2/WHILE_1.BAS deleted file mode 100644 index a91bc72..0000000 --- a/bwbtest/HB2/WHILE_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM 'WHILE' TEST PROGRAM -20 L$ = "FIRST" -30 WHILE L$<>"LAST" -40 READ X, Y, L$ -50 PRINT "X*Y =";X*Y -60 WEND -70 PRINT "WHILE PASSED TH TEST" -80 DATA 3, 20, MORE -90 DATA 16, 40, MORE -100 DATA 12, 32, LAST -999 END diff --git a/bwbtest/HB2/WHILE_1.run b/bwbtest/HB2/WHILE_1.run deleted file mode 100644 index f8cf164..0000000 --- a/bwbtest/HB2/WHILE_1.run +++ /dev/null @@ -1,4 +0,0 @@ -X*Y = 60 -X*Y = 640 -X*Y = 384 -WHILE PASSED TH TEST diff --git a/bwbtest/HB2/XOR_1.BAS b/bwbtest/HB2/XOR_1.BAS deleted file mode 100644 index 4fe8969..0000000 --- a/bwbtest/HB2/XOR_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM LOGICAL 'XOR' TEST PROGRAM -20 A = 6 -30 B = 8 -40 IF A=3 XOR B=8 THEN 70 -50 PRINT "XOR FAILED THE TEST AS A LOGICAL OPERATOR" -60 GOTO 99 -70 IF A=6 XOR B=8 THEN 90 -80 PRINT "XOR PASSED THE LOGICAL OPERATOR TEST" -85 GOTO 99 -90 PRINT "XOR FAILED THE 'EXCLUSIVE OR' TEST" -99 END diff --git a/bwbtest/HB2/XOR_1.run b/bwbtest/HB2/XOR_1.run deleted file mode 100644 index 3baecff..0000000 --- a/bwbtest/HB2/XOR_1.run +++ /dev/null @@ -1 +0,0 @@ -XOR PASSED THE LOGICAL OPERATOR TEST diff --git a/bwbtest/HB2/XRA_1.BAS b/bwbtest/HB2/XRA_1.BAS deleted file mode 100644 index 7908dfd..0000000 --- a/bwbtest/HB2/XRA_1.BAS +++ /dev/null @@ -1,11 +0,0 @@ -10 REM LOGICAL 'XRA' TEST PROGRAM -20 A = 6 -30 B = 8 -40 IF A=3 XRA B=8 THEN 70 -50 PRINT "XRA FAILED THE TEST AS A LOGICAL OPERATOR" -60 GOTO 99 -70 IF A=6 XRA B=8 THEN 90 -80 PRINT "XRA PASSED THE LOGICAL OPERATOR TEST" -85 GOTO 99 -90 PRINT "XRA FAILED THE 'EXCLUSIVE OR' TEST" -99 END diff --git a/bwbtest/HB2/XRA_1.run b/bwbtest/HB2/XRA_1.run deleted file mode 100644 index 0af81ee..0000000 --- a/bwbtest/HB2/XRA_1.run +++ /dev/null @@ -1 +0,0 @@ -XRA PASSED THE LOGICAL OPERATOR TEST diff --git a/bwbtest/HB2X/00readme.txt b/bwbtest/HB2X/00readme.txt deleted file mode 100644 index d7a4c4c..0000000 --- a/bwbtest/HB2X/00readme.txt +++ /dev/null @@ -1,4 +0,0 @@ -THESE ARE TESTS OF ADDITIONAL FUNCTIONALITY IN BYWATER BASIC -THAT ARE NOT NECESSARILY DETAILED IN THE HANDBOOK 2nd EDITION. - -ALL TESTS WRITTEN IN OCTOBER 2015 BY HOWARD WULF, AF5NE. diff --git a/bwbtest/HB2X/00test.sh b/bwbtest/HB2X/00test.sh deleted file mode 100644 index 3779ca7..0000000 --- a/bwbtest/HB2X/00test.sh +++ /dev/null @@ -1,90 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/HB2 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile HB2.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- -# TESTS -# ---------------------------------------------- -testcase AMP_1 -testcase BASE_1 -# testing the function COMMAND$() requires additional parameters -# testcase COMMAND5_1 -testcase FILE_1 -testcase IF_END_8 -testcase IF_MORE_8 -testcase LBOUND -testcase MAIN_2 -testcase MAT_INPUT_7 -testcase MAT_INV_1 -testcase MAT_MULT_1 -testcase MAT_READ_7 -testcase MAT_READ_8 -testcase MAT_WRITE_8 -testcase POP_1 -testcase RESTORE_3 -testcase ROUND_1 -testcase TIM_77 -# -# SYSTEM/360 file i/o -# -rm PUT_1.TXT -testcase PUT_1 -testcase GET_1 -testcase RESET_1 -testcase PUT_2 -testcase GET_2 -testcase CLOSE_1 -rm MAT_PUT_1.TXT -testcase MAT_PUT_1 -testcase MAT_GET_1 -testcase PAUSE_1 -testcase PRINT_USING_1 -testcase PRINT_USING_2 -testcase COLLATE_1 -testcase SYNTAX_1 -testcase SYNTAX_2 -testcase SYNTAX_3 -# -# Added in Version 3.20 -# -# testcase BASIC -testcase DIMTO -testcase MATTO -testcase CONST_1 -testcase CHR4_ASC -testcase RECLEN - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB2X/01test.sh b/bwbtest/HB2X/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/HB2X/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB2X/02ok.sh b/bwbtest/HB2X/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/HB2X/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/HB2X/99test.sh b/bwbtest/HB2X/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/HB2X/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/HB2X/AMP_1.BAS b/bwbtest/HB2X/AMP_1.BAS deleted file mode 100644 index 7364606..0000000 --- a/bwbtest/HB2X/AMP_1.BAS +++ /dev/null @@ -1,10 +0,0 @@ - 100 REM Purpose: Verify "internal constants" - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-10-28 - 130 REM Note: OPTION VERSION SYSTEM-360 - 140 REM - 200 PRINT "&PI=";&PI - 210 PRINT "&E=";&E - 220 PRINT "&SQR2=";&SQR2 - 999 END - diff --git a/bwbtest/HB2X/AMP_1.PRO b/bwbtest/HB2X/AMP_1.PRO deleted file mode 100644 index 2869fb4..0000000 --- a/bwbtest/HB2X/AMP_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "SYSTEM/360" diff --git a/bwbtest/HB2X/AMP_1.run b/bwbtest/HB2X/AMP_1.run deleted file mode 100644 index d7f13a9..0000000 --- a/bwbtest/HB2X/AMP_1.run +++ /dev/null @@ -1,3 +0,0 @@ -&PI= 3.14159 -&E= 2.71828 -&SQR2= 1.41421 diff --git a/bwbtest/HB2X/BASE_1.BAS b/bwbtest/HB2X/BASE_1.BAS deleted file mode 100644 index 1c233d4..0000000 --- a/bwbtest/HB2X/BASE_1.BAS +++ /dev/null @@ -1,23 +0,0 @@ - 100 rem Purpose: Verify OPTION BASE for NEGATIVE lower bounds - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-09-03 - 130 rem Note: OPTION VERSION MARK-I - 140 rem - 200 rem - 210 let L = -11 - 220 let U = 12 - 230 option base L - 240 dim A( U ) - 250 for I = L TO U - 260 let A( I ) = I * 10 - 270 next I - 280 mat print A, - 290 rem - 300 let A$="ABCD" - 310 change A$ to A - 320 print "len(A$)=";A( L ) - 330 for I = L + 1 to L + A( L ) - 340 print A( I ), chr$( A( I ) ) - 350 next I - 999 end - diff --git a/bwbtest/HB2X/BASE_1.PRO b/bwbtest/HB2X/BASE_1.PRO deleted file mode 100644 index 89400e0..0000000 --- a/bwbtest/HB2X/BASE_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "MARK-I" diff --git a/bwbtest/HB2X/BASE_1.run b/bwbtest/HB2X/BASE_1.run deleted file mode 100644 index c52f85e..0000000 --- a/bwbtest/HB2X/BASE_1.run +++ /dev/null @@ -1,9 +0,0 @@ --110 -100 -90 -80 -70 -60 --50 -40 -30 -20 -10 0 - 10 20 30 40 50 60 - 70 80 90 100 110 120 -len(A$)= 4 - 65 A - 66 B - 67 C - 68 D diff --git a/bwbtest/HB2X/BASIC.BAS b/bwbtest/HB2X/BASIC.BAS deleted file mode 100644 index 9efe5ac..0000000 --- a/bwbtest/HB2X/BASIC.BAS +++ /dev/null @@ -1,27 +0,0 @@ - 10 REM FILENAME: BASIC.BAS - 20 REM PURPOSE: TEST THE 'BASIC' STATEMENT - 30 REM AUTHOR: HOWARD WULF, AF5NE - 40 REM DATE: 2017-01-10 - 50 REM NOTE: OPTION VERSION BYWATER - 60 REM NOTE: OPTION ENABLE COMMAAND "BASIC" - 70 REM - 80 REM - 90 REM ------------------------------------- - 100 ON ERROR GOTO 8000 - 200 LINE INPUT "COMMAND (LINE NUMBER 1000 TO 1999):", A$ - 210 A$ = TRIM$(A$) - 220 IF LEN(A$) = 0 THEN 200 - 230 IF A$ = "BYE" GOTO 9999 - 240 IF A$ = "END" GOTO 9999 - 250 IF A$ = "QUIT" GOTO 9999 - 260 LET L = VAL(A$) - 270 IF L < 1000 GOTO 200 - 280 IF L > 1999 GOTO 200 - 290 BASIC A$ - 300 LIST 1000-1999 - 999 REM ------------------------------------- - 2000 REM ------------------------------------- - 2010 GOTO 200 - 8000 PRINT "ERROR IN LINE";ERL;": ";ERR$ - 8010 RESUME NEXT - 9999 END diff --git a/bwbtest/HB2X/BASIC.INP b/bwbtest/HB2X/BASIC.INP deleted file mode 100644 index 77d820b..0000000 --- a/bwbtest/HB2X/BASIC.INP +++ /dev/null @@ -1,7 +0,0 @@ -999 -2000 -1000 PRINT "HELLO" -1010 PRINT "WORLD" -1010 REM -1000 REM -BYE diff --git a/bwbtest/HB2X/BASIC.PRO b/bwbtest/HB2X/BASIC.PRO deleted file mode 100644 index edb6065..0000000 --- a/bwbtest/HB2X/BASIC.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION ENABLE COMMAND "BASIC" diff --git a/bwbtest/HB2X/BASIC.run b/bwbtest/HB2X/BASIC.run deleted file mode 100644 index 2cbca68..0000000 --- a/bwbtest/HB2X/BASIC.run +++ /dev/null @@ -1,22 +0,0 @@ -COMMAND (LINE NUMBER 1000 TO 1999):999 -COMMAND (LINE NUMBER 1000 TO 1999):2000 -COMMAND (LINE NUMBER 1000 TO 1999):1000 PRINT "HELLO" - 1000 PRINT "HELLO" - -HELLO -COMMAND (LINE NUMBER 1000 TO 1999):1010 PRINT "WORLD" - 1000 PRINT "HELLO" - 1010 PRINT "WORLD" - -HELLO -WORLD -COMMAND (LINE NUMBER 1000 TO 1999):1010 REM - 1000 PRINT "HELLO" - 1010 REM - -HELLO -COMMAND (LINE NUMBER 1000 TO 1999):1000 REM - 1000 REM - 1010 REM - -COMMAND (LINE NUMBER 1000 TO 1999):BYE diff --git a/bwbtest/HB2X/CHR4_ASC.BAS b/bwbtest/HB2X/CHR4_ASC.BAS deleted file mode 100644 index 27f48b0..0000000 --- a/bwbtest/HB2X/CHR4_ASC.BAS +++ /dev/null @@ -1,30 +0,0 @@ - 100 REM PURPOSE: VERIFY 'ASC' AND 'CHR$' - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-05 - 130 REM NOTE: OPTION VERSION BYWATER - 140 REM - 150 REM - 160 REM - 170 REM -------------------- - 180 PRINT " I", " L", " A" - 190 PRINT " ===", " ===", " ===" - 200 FOR I = 0 TO 255 - 210 LET A$ = CHR$(I) - 220 LET L = LEN(A$) - 230 LET A = ASC(A$) - 240 PRINT I, L, A - 250 IF L <> 1 THEN 800 - 260 IF A <> I THEN 850 - 270 NEXT I - 280 PRINT "TEST COMPLETE" - 290 GOTO 999 - 800 REM -------------------- - 810 PRINT "WRONG LENGTH" - 820 GOTO 999 - 850 REM -------------------- - 860 PRINT "WRONG ASC()" - 870 GOTO 999 - 880 REM -------------------- - 890 REM - 999 END - diff --git a/bwbtest/HB2X/CHR4_ASC.run b/bwbtest/HB2X/CHR4_ASC.run deleted file mode 100644 index 507e4c7..0000000 --- a/bwbtest/HB2X/CHR4_ASC.run +++ /dev/null @@ -1,259 +0,0 @@ - I L A - === === === - 0 1 0 - 1 1 1 - 2 1 2 - 3 1 3 - 4 1 4 - 5 1 5 - 6 1 6 - 7 1 7 - 8 1 8 - 9 1 9 - 10 1 10 - 11 1 11 - 12 1 12 - 13 1 13 - 14 1 14 - 15 1 15 - 16 1 16 - 17 1 17 - 18 1 18 - 19 1 19 - 20 1 20 - 21 1 21 - 22 1 22 - 23 1 23 - 24 1 24 - 25 1 25 - 26 1 26 - 27 1 27 - 28 1 28 - 29 1 29 - 30 1 30 - 31 1 31 - 32 1 32 - 33 1 33 - 34 1 34 - 35 1 35 - 36 1 36 - 37 1 37 - 38 1 38 - 39 1 39 - 40 1 40 - 41 1 41 - 42 1 42 - 43 1 43 - 44 1 44 - 45 1 45 - 46 1 46 - 47 1 47 - 48 1 48 - 49 1 49 - 50 1 50 - 51 1 51 - 52 1 52 - 53 1 53 - 54 1 54 - 55 1 55 - 56 1 56 - 57 1 57 - 58 1 58 - 59 1 59 - 60 1 60 - 61 1 61 - 62 1 62 - 63 1 63 - 64 1 64 - 65 1 65 - 66 1 66 - 67 1 67 - 68 1 68 - 69 1 69 - 70 1 70 - 71 1 71 - 72 1 72 - 73 1 73 - 74 1 74 - 75 1 75 - 76 1 76 - 77 1 77 - 78 1 78 - 79 1 79 - 80 1 80 - 81 1 81 - 82 1 82 - 83 1 83 - 84 1 84 - 85 1 85 - 86 1 86 - 87 1 87 - 88 1 88 - 89 1 89 - 90 1 90 - 91 1 91 - 92 1 92 - 93 1 93 - 94 1 94 - 95 1 95 - 96 1 96 - 97 1 97 - 98 1 98 - 99 1 99 - 100 1 100 - 101 1 101 - 102 1 102 - 103 1 103 - 104 1 104 - 105 1 105 - 106 1 106 - 107 1 107 - 108 1 108 - 109 1 109 - 110 1 110 - 111 1 111 - 112 1 112 - 113 1 113 - 114 1 114 - 115 1 115 - 116 1 116 - 117 1 117 - 118 1 118 - 119 1 119 - 120 1 120 - 121 1 121 - 122 1 122 - 123 1 123 - 124 1 124 - 125 1 125 - 126 1 126 - 127 1 127 - 128 1 128 - 129 1 129 - 130 1 130 - 131 1 131 - 132 1 132 - 133 1 133 - 134 1 134 - 135 1 135 - 136 1 136 - 137 1 137 - 138 1 138 - 139 1 139 - 140 1 140 - 141 1 141 - 142 1 142 - 143 1 143 - 144 1 144 - 145 1 145 - 146 1 146 - 147 1 147 - 148 1 148 - 149 1 149 - 150 1 150 - 151 1 151 - 152 1 152 - 153 1 153 - 154 1 154 - 155 1 155 - 156 1 156 - 157 1 157 - 158 1 158 - 159 1 159 - 160 1 160 - 161 1 161 - 162 1 162 - 163 1 163 - 164 1 164 - 165 1 165 - 166 1 166 - 167 1 167 - 168 1 168 - 169 1 169 - 170 1 170 - 171 1 171 - 172 1 172 - 173 1 173 - 174 1 174 - 175 1 175 - 176 1 176 - 177 1 177 - 178 1 178 - 179 1 179 - 180 1 180 - 181 1 181 - 182 1 182 - 183 1 183 - 184 1 184 - 185 1 185 - 186 1 186 - 187 1 187 - 188 1 188 - 189 1 189 - 190 1 190 - 191 1 191 - 192 1 192 - 193 1 193 - 194 1 194 - 195 1 195 - 196 1 196 - 197 1 197 - 198 1 198 - 199 1 199 - 200 1 200 - 201 1 201 - 202 1 202 - 203 1 203 - 204 1 204 - 205 1 205 - 206 1 206 - 207 1 207 - 208 1 208 - 209 1 209 - 210 1 210 - 211 1 211 - 212 1 212 - 213 1 213 - 214 1 214 - 215 1 215 - 216 1 216 - 217 1 217 - 218 1 218 - 219 1 219 - 220 1 220 - 221 1 221 - 222 1 222 - 223 1 223 - 224 1 224 - 225 1 225 - 226 1 226 - 227 1 227 - 228 1 228 - 229 1 229 - 230 1 230 - 231 1 231 - 232 1 232 - 233 1 233 - 234 1 234 - 235 1 235 - 236 1 236 - 237 1 237 - 238 1 238 - 239 1 239 - 240 1 240 - 241 1 241 - 242 1 242 - 243 1 243 - 244 1 244 - 245 1 245 - 246 1 246 - 247 1 247 - 248 1 248 - 249 1 249 - 250 1 250 - 251 1 251 - 252 1 252 - 253 1 253 - 254 1 254 - 255 1 255 -TEST COMPLETE diff --git a/bwbtest/HB2X/CLOSE_1.BAS b/bwbtest/HB2X/CLOSE_1.BAS deleted file mode 100644 index 916f3b8..0000000 --- a/bwbtest/HB2X/CLOSE_1.BAS +++ /dev/null @@ -1,56 +0,0 @@ - 10 REM Purpose: Verify 'CLOSE filename$' - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-11-11 - 40 REM Note: OPTION VERSION SYSTEM-360 - 50 REM - 60 REM - 100 REM --- CONSTANT FILE NAME --- - 110 PUT "CLOSE_1.TXT", 1, 2, 3 - 120 PUT "CLOSE_1.TXT", "hello world" - 130 REM PUT "CLOSE_1.TXT" - 140 PUT "CLOSE_1.TXT", "ANOTHER","LINE","IS","HERE" - 150 PUT "CLOSE_1.TXT", 1, "abc", 2, "def", 3, "ghi" - 200 REM --- VARIABLE FILE NAME --- - 210 LET F$ = "CLOSE_1.TXT" - 220 PUT F$, 4, 5, 6 - 230 PUT F$, "hello world again" - 240 REM PUT F$ - 250 PUT F$, "hello world in", f$, "we are", 1 - 260 PUT F$, "hello world in", f$, "we are", 2 - 270 PUT F$, "hello world in", f$, "we are", 3 - 280 PUT F$, "hello world in", f$, "we are", 4 - 290 PUT F$, "/*EOF*/" - 300 PRINT "COMPLETED" - 1000 REM - 1010 CLOSE "", "*", "invalid file name", "CLOSE_1.TXT" - 1020 REM - 1100 REM --- CONSTANT FILE NAME --- - 1110 GET "CLOSE_1.TXT", A, B, C - 1115 PRINT "A=";A, "B=";B, "C=";C - 1120 GET "CLOSE_1.TXT", A$ - 1125 PRINT "A$=[";A$;"]" - 1130 REM GET "CLOSE_1.TXT", B$ - 1135 REM PRINT "B$=[";B$;"]" - 1140 GET "CLOSE_1.TXT", C1$,C2$,C3$,C4$ - 1145 PRINT "C1$=[";C1$;"]", "C2$=[";C2$;"]", "C3$=[";C3$;"]", "C4$=[";C4$;"]" - 1150 GET "CLOSE_1.TXT", d1, d1$, d2, d2$, d3, d3$ - 1155 PRINT "D1=";D1;"D1$=[";D1$;"]" , "D2=";D2;"D2$=[";D2$;"]" , "D3=";D3;"D3$=[";D3$;"]" - 1200 REM --- VARIABLE FILE NAME --- - 1210 LET F$ = "CLOSE_1.TXT" - 1220 GET F$, e1, e2, e3 - 1225 PRINT "e1=";e1, "e2=";e2, "e3=";e3 - 1230 GET F$, G$ - 1235 PRINT "G$=[";G$;"]" - 1240 REM GET F$, H$ - 1245 REM PRINT "H$=[";H$;"]" - 1250 GET F$, I1$, i2$, i3$, i - 1255 PRINT "i1$=[";i1$;"]", "I2$=[";I2$;"]", "i3$=[";i3$;"]", "i=";I - 1260 GET F$, j1$, j2$, J3$, J - 1265 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 1270 GET F$, j1$, j2$, J3$, J - 1275 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 1280 GET F$, j1$, j2$, J3$, J - 1285 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 1290 GET F$, z$ - 1295 PRINT "z$=[";Z$;"]" - 9999 END diff --git a/bwbtest/HB2X/CLOSE_1.PRO b/bwbtest/HB2X/CLOSE_1.PRO deleted file mode 100644 index 46b0c5b..0000000 --- a/bwbtest/HB2X/CLOSE_1.PRO +++ /dev/null @@ -1 +0,0 @@ -option version "system/360" diff --git a/bwbtest/HB2X/CLOSE_1.TXT b/bwbtest/HB2X/CLOSE_1.TXT deleted file mode 100644 index 3d028d1..0000000 --- a/bwbtest/HB2X/CLOSE_1.TXT +++ /dev/null @@ -1,11 +0,0 @@ - 1, 2, 3 -"hello world" -"ANOTHER","LINE","IS","HERE" - 1,"abc", 2,"def", 3,"ghi" - 4, 5, 6 -"hello world again" -"hello world in","CLOSE_1.TXT","we are", 1 -"hello world in","CLOSE_1.TXT","we are", 2 -"hello world in","CLOSE_1.TXT","we are", 3 -"hello world in","CLOSE_1.TXT","we are", 4 -"/*EOF*/" diff --git a/bwbtest/HB2X/CLOSE_1.run b/bwbtest/HB2X/CLOSE_1.run deleted file mode 100644 index efb50bf..0000000 --- a/bwbtest/HB2X/CLOSE_1.run +++ /dev/null @@ -1,12 +0,0 @@ -COMPLETED -A= 1 B= 2 C= 3 -A$=[hello world] -C1$=[ANOTHER] C2$=[LINE] C3$=[IS] C4$=[HERE] -D1= 1 D1$=[abc] D2= 2 D2$=[def] D3= 3 D3$=[ghi] -e1= 4 e2= 5 e3= 6 -G$=[hello world again] -i1$=[hello world in] I2$=[CLOSE_1.TXT] i3$=[we are] i= 1 -j1$=[hello world in] J2$=[CLOSE_1.TXT] j3$=[we are] J= 2 -j1$=[hello world in] J2$=[CLOSE_1.TXT] j3$=[we are] J= 3 -j1$=[hello world in] J2$=[CLOSE_1.TXT] j3$=[we are] J= 4 -z$=[/*EOF*/] diff --git a/bwbtest/HB2X/COLLATE_1.BAS b/bwbtest/HB2X/COLLATE_1.BAS deleted file mode 100644 index e5a82a1..0000000 --- a/bwbtest/HB2X/COLLATE_1.BAS +++ /dev/null @@ -1,9 +0,0 @@ - 100 REM Purpose: Verify collating sequence (sort order) - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-11-28 - 130 REM - 200 IF "1" < "A" THEN 300 - 210 PRINT "EBCDIC" - 220 GOTO 999 - 300 PRINT "ASCII" - 999 END diff --git a/bwbtest/HB2X/COLLATE_1.run b/bwbtest/HB2X/COLLATE_1.run deleted file mode 100644 index 8243fa8..0000000 --- a/bwbtest/HB2X/COLLATE_1.run +++ /dev/null @@ -1 +0,0 @@ -ASCII diff --git a/bwbtest/HB2X/COMMAND5_1.BAS b/bwbtest/HB2X/COMMAND5_1.BAS deleted file mode 100644 index 9985e26..0000000 --- a/bwbtest/HB2X/COMMAND5_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -100 REM Purpose: Verify COMMAND$(0-9) -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-10-08 -130 REM Usage: ~/bwbasic F_COMMAND5_X_S.BAS a b c "d e f" -200 FOR I = 0 TO 9 -210 PRINT I, COMMAND$(I) -220 NEXT I -999 END diff --git a/bwbtest/HB2X/COMMAND5_1.PRO b/bwbtest/HB2X/COMMAND5_1.PRO deleted file mode 100644 index bc510dd..0000000 --- a/bwbtest/HB2X/COMMAND5_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION ENABLE FUNCTION "COMMAND$" diff --git a/bwbtest/HB2X/COMMAND5_1.run b/bwbtest/HB2X/COMMAND5_1.run deleted file mode 100644 index a8dcee4..0000000 --- a/bwbtest/HB2X/COMMAND5_1.run +++ /dev/null @@ -1,10 +0,0 @@ - 0 COMMAND5_1.BAS - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 diff --git a/bwbtest/HB2X/COMMAND5_1.sh b/bwbtest/HB2X/COMMAND5_1.sh deleted file mode 100644 index f22e910..0000000 --- a/bwbtest/HB2X/COMMAND5_1.sh +++ /dev/null @@ -1 +0,0 @@ -~/bwbasic -p HB2.PRO -p COMMAND5_1.PRO COMMAND5_1.BAS p1 p2 p3 p4 p5 p6 p7 p8 p9 diff --git a/bwbtest/HB2X/CONST_1.BAS b/bwbtest/HB2X/CONST_1.BAS deleted file mode 100644 index eae356e..0000000 --- a/bwbtest/HB2X/CONST_1.BAS +++ /dev/null @@ -1,39 +0,0 @@ - 100 REM PURPOSE: VERIFY 'CONST' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-02-21 - 130 REM NOTE: OPTION VERSION BYWATER - 140 REM - 150 REM - 160 LET A = 1.234 - 170 LET B = 4.567 - 180 LET C = 8.901 - 190 LET D = 2.345 - 200 LET E = 6.789 - 210 REM - 220 CONST F = A + B + C - 230 CONST G = B + C + D - 240 CONST H, I, J = C + D + E - 250 REM - 260 PRINT "A=";A, "B="; B, "C=";C, "D=";D, "E=";E - 270 PRINT "F=";F ; "G=";G, "H=";H, "I=";I, "J=";J - 280 REM - 290 REM - 300 ON ERROR GOTO 800 - 310 REM - 320 LET A,B,C,D,E = 0 - 330 LET A,B,C,D,F = 1 - 340 LET A,B,C,G,D = 2 - 350 LET A,B,H,D,E = 3 - 360 LET A,I,B,C,D = 4 - 370 LET J,B,C,D,E = 5 - 380 REM - 390 REM - 400 PRINT "A=";A, "B="; B, "C=";C, "D=";D, "E=";E - 410 PRINT "F=";F ; "G=";G, "H=";H, "I=";I, "J=";J - 420 GOTO 999 - 800 REM - 810 PRINT "ERL=";ERL, "ERR=";ERR, "ERROR$=";ERROR$ - 820 RESUME NEXT - 830 REM - 999 END - diff --git a/bwbtest/HB2X/CONST_1.PRO b/bwbtest/HB2X/CONST_1.PRO deleted file mode 100644 index 5fe6743..0000000 --- a/bwbtest/HB2X/CONST_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "BYWATER" diff --git a/bwbtest/HB2X/CONST_1.run b/bwbtest/HB2X/CONST_1.run deleted file mode 100644 index d12ef2c..0000000 --- a/bwbtest/HB2X/CONST_1.run +++ /dev/null @@ -1,9 +0,0 @@ -A= 1.234 B= 4.567 C= 8.901 D= 2.345 E= 6.789 -F= 14.702 G= 15.813 H= 18.035 I= 18.035 J= 18.035 -ERL= 330 ERR= 70 ERROR$=Variable Not Declared -ERL= 340 ERR= 70 ERROR$=Variable Not Declared -ERL= 350 ERR= 70 ERROR$=Variable Not Declared -ERL= 360 ERR= 70 ERROR$=Variable Not Declared -ERL= 370 ERR= 70 ERROR$=Variable Not Declared -A= 4 B= 3 C= 2 D= 1 E= 0 -F= 14.702 G= 15.813 H= 18.035 I= 18.035 J= 18.035 diff --git a/bwbtest/HB2X/DEF_1.BAS b/bwbtest/HB2X/DEF_1.BAS deleted file mode 100644 index ec89edb..0000000 --- a/bwbtest/HB2X/DEF_1.BAS +++ /dev/null @@ -1,4 +0,0 @@ -10 LET Y = 10 -20 DEF FNA (X) = X**3/2 -30 LET Z = FNA(Y) -40 PRINT Z diff --git a/bwbtest/HB2X/DEF_1.PRO b/bwbtest/HB2X/DEF_1.PRO deleted file mode 100644 index 2869fb4..0000000 --- a/bwbtest/HB2X/DEF_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "SYSTEM/360" diff --git a/bwbtest/HB2X/DEF_2.BAS b/bwbtest/HB2X/DEF_2.BAS deleted file mode 100644 index 3bdf796..0000000 --- a/bwbtest/HB2X/DEF_2.BAS +++ /dev/null @@ -1,4 +0,0 @@ -40 LET Y = 2 -50 DEF FNZ (X) =Y**3 -60 LET R = FNZ (10) -70 PRINT X, Y, R diff --git a/bwbtest/HB2X/DEF_2.PRO b/bwbtest/HB2X/DEF_2.PRO deleted file mode 100644 index 2869fb4..0000000 --- a/bwbtest/HB2X/DEF_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "SYSTEM/360" diff --git a/bwbtest/HB2X/DEF_3.BAS b/bwbtest/HB2X/DEF_3.BAS deleted file mode 100644 index 98e9eba..0000000 --- a/bwbtest/HB2X/DEF_3.BAS +++ /dev/null @@ -1,6 +0,0 @@ - 70 LET Y = 2 - 80 LET R = FNC(Y) + 23 - 90 DEF FNB (X) = 5*X**2+ 27 -100 DEF FNC (X) = FNB (X) + X -110 PRINT R, X, Y -999 END diff --git a/bwbtest/HB2X/DEF_3.PRO b/bwbtest/HB2X/DEF_3.PRO deleted file mode 100644 index 2869fb4..0000000 --- a/bwbtest/HB2X/DEF_3.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "SYSTEM/360" diff --git a/bwbtest/HB2X/DIMTO.BAS b/bwbtest/HB2X/DIMTO.BAS deleted file mode 100644 index 909afd6..0000000 --- a/bwbtest/HB2X/DIMTO.BAS +++ /dev/null @@ -1,30 +0,0 @@ - 10 rem Filename: DIMTO.BAS - 20 rem Purpose: Test DIM( lbound TO ubound ) statement - 30 rem Author: Howard Wulf, AF5NE - 40 rem Date: 2017-01-13 - 50 rem Note: OPTION VERSION BYWATER - 60 rem Note: OPTION BASE 1 - 70 rem - 80 rem - 90 rem ------------------------------------------------ - 100 dim a$(10 to 20) - 110 print "LBOUND=";LBOUND(A$),"UBOUND=";UBOUND(A$) - 120 rem - 130 print "Line", "Result" - 140 for i = 10 to 20 - 150 let a$(i) = "#" & i - 160 next i - 170 for i = 10 to 20 - 180 print 180, a$(i) - 190 next i - 200 on error goto 900 - 210 rem Verify LBOUND is checked - 220 print 220, a$(9) - 230 rem Verify UBOUND is checked - 240 print 240, a$(21) - 250 goto 999 - 900 rem Error Handler - 910 print "ERL=";ERL,"ERR=";ERR,"ERR$=";ERR$ - 920 resume next - 930 rem - 999 end diff --git a/bwbtest/HB2X/DIMTO.PRO b/bwbtest/HB2X/DIMTO.PRO deleted file mode 100644 index 6bd09f1..0000000 --- a/bwbtest/HB2X/DIMTO.PRO +++ /dev/null @@ -1,3 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION BASE 1 - diff --git a/bwbtest/HB2X/DIMTO.run b/bwbtest/HB2X/DIMTO.run deleted file mode 100644 index c2de9f8..0000000 --- a/bwbtest/HB2X/DIMTO.run +++ /dev/null @@ -1,15 +0,0 @@ -LBOUND= 10 UBOUND= 20 -Line Result - 180 # 10 - 180 # 11 - 180 # 12 - 180 # 13 - 180 # 14 - 180 # 15 - 180 # 16 - 180 # 17 - 180 # 18 - 180 # 19 - 180 # 20 - 220 ERL= 220 ERR= 9 ERR$=Subscript out of range - 240 ERL= 240 ERR= 9 ERR$=Subscript out of range diff --git a/bwbtest/HB2X/FILE_1.BAS b/bwbtest/HB2X/FILE_1.BAS deleted file mode 100644 index 1976c37..0000000 --- a/bwbtest/HB2X/FILE_1.BAS +++ /dev/null @@ -1,47 +0,0 @@ - 100 REM Purpose: Verify "GE MARK I" file handling - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-07-15 - 130 REM - - 200 PRINT " VERIFY 'FILES' OPEN AND 'FILE' CLOSE" - 210 FILES "*";"*","FILE_1.TXT";"*" - 220 IF END #3 THEN 260 - 230 READ #3, A$ - 240 PRINT A$ - 250 GOTO 220 - 260 FILE #3, "*" - 270 INPUT A$ - - 300 PRINT "VERIFY 'FILE' OPEN" - 310 FILE #3, "FILE_1.TXT" - 320 IF END #3 THEN 360 - 330 READ #3, A$ - 340 PRINT A$ - 350 GOTO 320 - 360 INPUT A$ - - 400 PRINT "VERIFY 'RESTORE'" - 410 RESTORE #3 - 420 IF END #3 THEN 460 - 430 READ #3, A$ - 440 PRINT A$ - 450 GOTO 420 - 460 INPUT A$ - - 500 PRINT "VERIFY 'SCRATCH'" - 510 SCRATCH #3 - 520 WRITE #3, "This is line 1" - 530 WRITE #3, "This is line 2" - 540 WRITE #3, "This is line 3" - 550 WRITE #3, "This is line 4" - 560 WRITE #3, "This is line 5" - - 600 PRINT "READ BACK VALUES WRITTEN" - 610 RESTORE #3 - 620 IF END #3 THEN 660 - 630 READ #3, A$ - 640 PRINT A$ - 650 GOTO 620 - 660 PRINT "TEST PASSED" - - 999 END diff --git a/bwbtest/HB2X/FILE_1.INP b/bwbtest/HB2X/FILE_1.INP deleted file mode 100644 index d152a50..0000000 --- a/bwbtest/HB2X/FILE_1.INP +++ /dev/null @@ -1,3 +0,0 @@ -ONE -TWO -THREE diff --git a/bwbtest/HB2X/FILE_1.PRO b/bwbtest/HB2X/FILE_1.PRO deleted file mode 100644 index 89400e0..0000000 --- a/bwbtest/HB2X/FILE_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "MARK-I" diff --git a/bwbtest/HB2X/FILE_1.TXT b/bwbtest/HB2X/FILE_1.TXT deleted file mode 100644 index d69be2b..0000000 --- a/bwbtest/HB2X/FILE_1.TXT +++ /dev/null @@ -1,5 +0,0 @@ -"This is line 1" -"This is line 2" -"This is line 3" -"This is line 4" -"This is line 5" diff --git a/bwbtest/HB2X/FILE_1.run b/bwbtest/HB2X/FILE_1.run deleted file mode 100644 index 50aedba..0000000 --- a/bwbtest/HB2X/FILE_1.run +++ /dev/null @@ -1,29 +0,0 @@ - VERIFY 'FILES' OPEN AND 'FILE' CLOSE -This is line 1 -This is line 2 -This is line 3 -This is line 4 -This is line 5 -? ONE -VERIFY 'FILE' OPEN -This is line 1 -This is line 2 -This is line 3 -This is line 4 -This is line 5 -? TWO -VERIFY 'RESTORE' -This is line 1 -This is line 2 -This is line 3 -This is line 4 -This is line 5 -? THREE -VERIFY 'SCRATCH' -READ BACK VALUES WRITTEN -This is line 1 -This is line 2 -This is line 3 -This is line 4 -This is line 5 -TEST PASSED diff --git a/bwbtest/HB2X/GET_1.BAS b/bwbtest/HB2X/GET_1.BAS deleted file mode 100644 index 36069dd..0000000 --- a/bwbtest/HB2X/GET_1.BAS +++ /dev/null @@ -1,36 +0,0 @@ - 10 REM Purpose: Verify 'GET filename$' - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-11-11 - 40 REM Note: OPTION VERSION SYSTEM-360 - 50 REM Note: read the values written by PUT_1.BAS - 60 REM - 100 REM --- CONSTANT FILE NAME --- - 110 GET "PUT_1.TXT", A, B, C - 115 PRINT "A=";A, "B=";B, "C=";C - 120 GET "PUT_1.TXT", A$ - 125 PRINT "A$=[";A$;"]" - 130 REM GET "PUT_1.TXT", B$ - 135 REM PRINT "B$=[";B$;"]" - 140 GET "PUT_1.TXT", C1$,C2$,C3$,C4$ - 145 PRINT "C1$=[";C1$;"]", "C2$=[";C2$;"]", "C3$=[";C3$;"]", "C4$=[";C4$;"]" - 150 GET "PUT_1.TXT", d1, d1$, d2, d2$, d3, d3$ - 155 PRINT "D1=";D1;"D1$=[";D1$;"]" , "D2=";D2;"D2$=[";D2$;"]" , "D3=";D3;"D3$=[";D3$;"]" - 200 REM --- VARIABLE FILE NAME --- - 210 LET F$ = "PUT_1.TXT" - 220 GET F$, e1, e2, e3 - 225 PRINT "e1=";e1, "e2=";e2, "e3=";e3 - 230 GET F$, G$ - 235 PRINT "G$=[";G$;"]" - 240 REM GET F$, H$ - 245 REM PRINT "H$=[";H$;"]" - 250 GET F$, I1$, i2$, i3$, i - 255 PRINT "i1$=[";i1$;"]", "I2$=[";I2$;"]", "i3$=[";i3$;"]", "i=";I - 260 GET F$, j1$, j2$, J3$, J - 265 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 270 GET F$, j1$, j2$, J3$, J - 275 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 280 GET F$, j1$, j2$, J3$, J - 285 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 290 GET F$, z$ - 295 PRINT "z$=[";Z$;"]" - 999 END diff --git a/bwbtest/HB2X/GET_1.PRO b/bwbtest/HB2X/GET_1.PRO deleted file mode 100644 index 46b0c5b..0000000 --- a/bwbtest/HB2X/GET_1.PRO +++ /dev/null @@ -1 +0,0 @@ -option version "system/360" diff --git a/bwbtest/HB2X/GET_1.run b/bwbtest/HB2X/GET_1.run deleted file mode 100644 index 345c68c..0000000 --- a/bwbtest/HB2X/GET_1.run +++ /dev/null @@ -1,11 +0,0 @@ -A= 1 B= 2 C= 3 -A$=[hello world] -C1$=[ANOTHER] C2$=[LINE] C3$=[IS] C4$=[HERE] -D1= 1 D1$=[abc] D2= 2 D2$=[def] D3= 3 D3$=[ghi] -e1= 4 e2= 5 e3= 6 -G$=[hello world again] -i1$=[hello world in] I2$=[PUT_1.TXT] i3$=[we are] i= 1 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 2 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 3 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 4 -z$=[/*EOF*/] diff --git a/bwbtest/HB2X/GET_2.BAS b/bwbtest/HB2X/GET_2.BAS deleted file mode 100644 index e2f4add..0000000 --- a/bwbtest/HB2X/GET_2.BAS +++ /dev/null @@ -1,36 +0,0 @@ - 10 REM Purpose: Verify 'GET filename$' - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-11-11 - 40 REM Note: OPTION VERSION SYSTEM-360 - 50 REM Note: read the values written by PUT_2.BAS - 60 REM - 100 REM --- CONSTANT FILE NAME --- - 110 GET "PUT_2.TXT", A, B, C - 115 PRINT "A=";A, "B=";B, "C=";C - 120 GET "PUT_2.TXT", A$ - 125 PRINT "A$=[";A$;"]" - 130 REM GET "PUT_2.TXT", B$ - 135 REM PRINT "B$=[";B$;"]" - 140 GET "PUT_2.TXT", C1$,C2$,C3$,C4$ - 145 PRINT "C1$=[";C1$;"]", "C2$=[";C2$;"]", "C3$=[";C3$;"]", "C4$=[";C4$;"]" - 150 GET "PUT_2.TXT", d1, d1$, d2, d2$, d3, d3$ - 155 PRINT "D1=";D1;"D1$=[";D1$;"]" , "D2=";D2;"D2$=[";D2$;"]" , "D3=";D3;"D3$=[";D3$;"]" - 200 REM --- VARIABLE FILE NAME --- - 210 LET F$ = "PUT_2.TXT" - 220 GET F$, e1, e2, e3 - 225 PRINT "e1=";e1, "e2=";e2, "e3=";e3 - 230 GET F$, G$ - 235 PRINT "G$=[";G$;"]" - 240 REM GET F$, H$ - 245 REM PRINT "H$=[";H$;"]" - 250 GET F$, I1$, i2$, i3$, i - 255 PRINT "i1$=[";i1$;"]", "I2$=[";I2$;"]", "i3$=[";i3$;"]", "i=";I - 260 GET F$, j1$, j2$, J3$, J - 265 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 270 GET F$, j1$, j2$, J3$, J - 275 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 280 GET F$, j1$, j2$, J3$, J - 285 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 290 GET F$, z$ - 295 PRINT "z$=[";Z$;"]" - 999 END diff --git a/bwbtest/HB2X/GET_2.PRO b/bwbtest/HB2X/GET_2.PRO deleted file mode 100644 index 46b0c5b..0000000 --- a/bwbtest/HB2X/GET_2.PRO +++ /dev/null @@ -1 +0,0 @@ -option version "system/360" diff --git a/bwbtest/HB2X/GET_2.run b/bwbtest/HB2X/GET_2.run deleted file mode 100644 index 453c882..0000000 --- a/bwbtest/HB2X/GET_2.run +++ /dev/null @@ -1,11 +0,0 @@ -A= 1 B= 2 C= 3 -A$=[hello world] -C1$=[ANOTHER] C2$=[LINE] C3$=[IS] C4$=[HERE] -D1= 1 D1$=[abc] D2= 2 D2$=[def] D3= 3 D3$=[ghi] -e1= 4 e2= 5 e3= 6 -G$=[hello world again] -i1$=[hello world in] I2$=[PUT_2.TXT] i3$=[we are] i= 1 -j1$=[hello world in] J2$=[PUT_2.TXT] j3$=[we are] J= 2 -j1$=[hello world in] J2$=[PUT_2.TXT] j3$=[we are] J= 3 -j1$=[hello world in] J2$=[PUT_2.TXT] j3$=[we are] J= 4 -z$=[/*EOF*/] diff --git a/bwbtest/HB2X/HB2.DBG b/bwbtest/HB2X/HB2.DBG deleted file mode 100644 index 4308c2d..0000000 --- a/bwbtest/HB2X/HB2.DBG +++ /dev/null @@ -1,4 +0,0 @@ -OPTION VERSION BYWATER -REM MAINTAINER DEBUG ON -TRON - diff --git a/bwbtest/HB2X/HB2.PRO b/bwbtest/HB2X/HB2.PRO deleted file mode 100644 index 90cd427..0000000 --- a/bwbtest/HB2X/HB2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "HANDBOOK2" diff --git a/bwbtest/HB2X/IF_END_8.BAS b/bwbtest/HB2X/IF_END_8.BAS deleted file mode 100644 index 828c83e..0000000 --- a/bwbtest/HB2X/IF_END_8.BAS +++ /dev/null @@ -1,15 +0,0 @@ - 10 REM Purpose: Verify IF END #... syntax - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-10-21 - 40 REM Note: OPTION VERSION MARK-I - 50 REM - 100 if end #0 then 999 - 110 print "OK" - 120 if end #0, then 999 - 130 print "OK" - 140 if end #0; then 999 - 150 print "OK" - 160 if end #0: then 999 - 170 print "OK" - 180 print "TEST PASSED" - 999 end diff --git a/bwbtest/HB2X/IF_END_8.PRO b/bwbtest/HB2X/IF_END_8.PRO deleted file mode 100644 index 89400e0..0000000 --- a/bwbtest/HB2X/IF_END_8.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "MARK-I" diff --git a/bwbtest/HB2X/IF_END_8.run b/bwbtest/HB2X/IF_END_8.run deleted file mode 100644 index ad33e33..0000000 --- a/bwbtest/HB2X/IF_END_8.run +++ /dev/null @@ -1,5 +0,0 @@ -OK -OK -OK -OK -TEST PASSED diff --git a/bwbtest/HB2X/IF_MORE_8.BAS b/bwbtest/HB2X/IF_MORE_8.BAS deleted file mode 100644 index e392275..0000000 --- a/bwbtest/HB2X/IF_MORE_8.BAS +++ /dev/null @@ -1,19 +0,0 @@ - 10 REM Purpose: Verify IF MORE # ... syntaxx - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-10-21 - 40 REM Note: OPTION VERSION MARK-I - 50 REM - 100 if more #0 then 120 - 110 goto 999 - 120 print "OK" - 130 if more #0, then 150 - 140 goto 999 - 150 print "OK" - 160 if more #0; then 180 - 170 goto 999 - 180 print "OK" - 190 if more #0: then 210 - 200 goto 999 - 210 print "OK" - 220 print "TEST PASSED" - 999 end diff --git a/bwbtest/HB2X/IF_MORE_8.PRO b/bwbtest/HB2X/IF_MORE_8.PRO deleted file mode 100644 index 89400e0..0000000 --- a/bwbtest/HB2X/IF_MORE_8.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "MARK-I" diff --git a/bwbtest/HB2X/IF_MORE_8.run b/bwbtest/HB2X/IF_MORE_8.run deleted file mode 100644 index ad33e33..0000000 --- a/bwbtest/HB2X/IF_MORE_8.run +++ /dev/null @@ -1,5 +0,0 @@ -OK -OK -OK -OK -TEST PASSED diff --git a/bwbtest/HB2X/LBOUND.BAS b/bwbtest/HB2X/LBOUND.BAS deleted file mode 100644 index c3d44bc..0000000 --- a/bwbtest/HB2X/LBOUND.BAS +++ /dev/null @@ -1,17 +0,0 @@ - 100 REM Purpose: Verify DIM(), SIZE(), LBOUND() and UBOUND() functions - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-09-02 - 130 REM Note: these functions do not support for scalar variables - 140 REM - 190 option base 1 - 200 dim z, a(5,6,7), y, b(31), x, d(12,13), w - 210 print dim(a), dim(b), dim(d) - 220 print lbound(a), lbound(a,1), lbound(a,2), lbound(a,3) - 230 print ubound(a), ubound(a,1), ubound(a,2), ubound(a,3) - 240 print lbound(b), lbound(b,1) - 250 print ubound(b), ubound(b,1) - 260 print lbound(d), lbound(d,1), lbound(d,2) - 270 print ubound(d), ubound(d,1), ubound(d,2) - 280 print size(a), size(b), size(d) - 900 print "TEST PASSED" - 999 end diff --git a/bwbtest/HB2X/LBOUND.PRO b/bwbtest/HB2X/LBOUND.PRO deleted file mode 100644 index 8cca602..0000000 --- a/bwbtest/HB2X/LBOUND.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -rem OPTION ENABLE FUNCTION "SIZE" diff --git a/bwbtest/HB2X/LBOUND.run b/bwbtest/HB2X/LBOUND.run deleted file mode 100644 index 0eaa16b..0000000 --- a/bwbtest/HB2X/LBOUND.run +++ /dev/null @@ -1,9 +0,0 @@ - 3 1 2 - 1 1 1 1 - 5 5 6 7 - 1 1 - 31 31 - 1 1 1 - 12 12 13 - 210 31 156 -TEST PASSED diff --git a/bwbtest/HB2X/LET_1.BAS b/bwbtest/HB2X/LET_1.BAS deleted file mode 100644 index 46c9461..0000000 --- a/bwbtest/HB2X/LET_1.BAS +++ /dev/null @@ -1,5 +0,0 @@ -10 LET Z$ = "CAT" -20 LET X = 9 -30 LET Y(X) =2 -40 X, Y(X) = X/Y(X) -50 PRINT X, Y(X), Z$ diff --git a/bwbtest/HB2X/LET_1.PRO b/bwbtest/HB2X/LET_1.PRO deleted file mode 100644 index 2869fb4..0000000 --- a/bwbtest/HB2X/LET_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "SYSTEM/360" diff --git a/bwbtest/HB2X/M003.BAS b/bwbtest/HB2X/M003.BAS deleted file mode 100644 index 6128e1f..0000000 --- a/bwbtest/HB2X/M003.BAS +++ /dev/null @@ -1,78 +0,0 @@ -100 REM PURPOSE: DISPLAY/VERIFY THE IMPLEMENTATION-DEFINED VALUES -110 REM AUTHOR: HOWARD WULF, AF5NE -120 REM DATE: 2015-01-25 -130 REM ------------------------------------------------------- -140 PRINT "THIS PROGRAM DISPLAYS THE IMPLEMENTATION-DEFINED" -150 PRINT "RANGES FOR ALL BASIC VARIABLE TYPES." -160 PRINT "THERE SHOULD BE NO ERROR MESSAGES." -170 PRINT "MAXLVL=";MAXLVL -200 PRINT "MAXNUM=";MAXNUM -210 PRINT "MAXDBL=";MAXDBL -220 PRINT "MAXSNG=";MAXSNG -230 PRINT "MAXCUR=";MAXCUR -240 PRINT "MAXLNG=";MAXLNG -250 PRINT "MAXINT=";MAXINT -260 PRINT "MAXBYT=";MAXBYT -270 PRINT "MAXDEV=";MAXDEV -280 PRINT "MAXLEN=";MAXLEN("") -300 PRINT "MINNUM=";MINNUM -310 PRINT "MINDBL=";MINDBL -320 PRINT "MINSNG=";MINSNG -330 PRINT "MINCUR=";MINCUR -340 PRINT "MINLNG=";MINLNG -350 PRINT "MININT=";MININT -360 PRINT "MINBYT=";MINBYT -370 PRINT "MINDEV=";MINDEV -380 PRINT "MINLEN=";0 -400 REM ------------------------------------------------ -410 REM VERIFY THE MAX... RANGES ARE VALID -420 IF MAXNUM < MAXDBL THEN -430 PRINT "*** ERROR MAXNUM < MAXDBL ***" -440 END IF -450 IF MAXDBL < MAXSNG THEN -460 PRINT "*** ERROR MAXDBL < MAXSNG ***" -470 END IF -480 IF MAXSNG < MAXCUR THEN -490 PRINT "*** ERROR MAXSNG < MAXCUR ***" -500 END IF -510 IF MAXCUR < MAXLNG THEN -520 PRINT "*** ERROR MAXCUR < MAXSNG ***" -530 END IF -540 IF MAXLNG < MAXINT THEN -550 PRINT "*** ERROR MAXLNG < MAXINT ***" -560 END IF -570 IF MAXINT < MAXBYT THEN -580 PRINT "*** ERROR MAXINT < MAXBYT ***" -590 END IF -600 IF MAXBYT < MAXDEV THEN -610 PRINT "*** ERROR MAXBYT < MAXDEV ***" -620 END IF -630 IF MAXINT < MAXLEN("") THEN -640 PRINT "*** ERROR MAXINT < MAXLEN ***" -650 END IF -700 REM -------------------------------------------- -710 REM VERIFY THE MIN... RANGES -720 IF MINDBL < MINNUM THEN -730 PRINT "*** ERROR MINDBL < MINNUM ***" -740 END IF -750 IF MINSNG < MINDBL THEN -760 PRINT "*** ERROR MINSNG < MINDBL ***" -770 END IF -780 IF MINCUR < MINSNG THEN -790 PRINT "*** ERROR MINCUR < MINSNG ***" -800 END IF -810 IF MINLNG < MINCUR THEN -820 PRINT "*** ERROR MINLNG < MINCUR ***" -840 END IF -850 IF MININT < MINLNG THEN -860 PRINT "*** ERROR MININT < MINLNG ***" -870 END IF -880 IF MINBYT < MININT THEN -890 PRINT "*** ERROR MINBYT < MININT ***" -900 END IF -910 IF MINDEV < MINBYT THEN -920 PRINT "*** ERROR MINDEV < MINBYT ***" -930 END IF -940 REM MINLEN("") IS 0 -950 PRINT "IF NO ERROR MESSAGES, THEN *** TEST PASSED ***" -999 END diff --git a/bwbtest/HB2X/M9999.BAS b/bwbtest/HB2X/M9999.BAS deleted file mode 100644 index 092bef0..0000000 --- a/bwbtest/HB2X/M9999.BAS +++ /dev/null @@ -1,11 +0,0 @@ - 100 rem Purpose: Determine maximum recursion - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-10-03 - 130 rem - 200 def fna( X ) - 210 print "X=";X - 220 let fna = fna( X + 1 ) - 230 fnend - 300 let x = fna( 1 ) - 999 end - diff --git a/bwbtest/HB2X/MAIN_2.BAS b/bwbtest/HB2X/MAIN_2.BAS deleted file mode 100644 index 13f741b..0000000 --- a/bwbtest/HB2X/MAIN_2.BAS +++ /dev/null @@ -1,18 +0,0 @@ -print "before Prior declaration" -Sub Prior - Print "This is a subroutine prior to MAIN." - Print "This should not print." -End Sub -print "between Prior and Main declaration" -Sub Main - Print "This is the MAIN subroutine." - Print "This should print." -End Sub -print "between Main and Subsequent declaration" -Sub Subsequent - Print "This is a subroutine subsequent to MAIN." - Print "This should not print." -End Sub -print "after Subsequent declaration" -Main -print "after Main call" diff --git a/bwbtest/HB2X/MAIN_2.PRO b/bwbtest/HB2X/MAIN_2.PRO deleted file mode 100644 index 5fe6743..0000000 --- a/bwbtest/HB2X/MAIN_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "BYWATER" diff --git a/bwbtest/HB2X/MAIN_2.run b/bwbtest/HB2X/MAIN_2.run deleted file mode 100644 index ddbdca0..0000000 --- a/bwbtest/HB2X/MAIN_2.run +++ /dev/null @@ -1,7 +0,0 @@ -before Prior declaration -between Prior and Main declaration -between Main and Subsequent declaration -after Subsequent declaration -This is the MAIN subroutine. -This should print. -after Main call diff --git a/bwbtest/HB2X/MATTO.BAS b/bwbtest/HB2X/MATTO.BAS deleted file mode 100644 index 2726ee0..0000000 --- a/bwbtest/HB2X/MATTO.BAS +++ /dev/null @@ -1,31 +0,0 @@ - 100 rem Filename: MATTO.BAS - 110 rem Purpose: Verify MAT ... ( lbound TO ubound ) statements - 120 rem Author: Howard Wulf, AF5NE - 130 rem Date: 2017-01-13 - 140 rem Note: OPTION VERSION BYWATER - 150 rem Note: OPTION ENABLE COMMAND "MAT" - 160 rem Note: OPTION BASE 1 - 170 rem - 180 rem - 190 rem ------------------------------------------------------------ - 200 on error goto 900 - 210 dim A(10) - 220 gosub 800 - 230 rem - 240 MAT A(5)=ZER - 250 gosub 800 - 260 rem - 270 MAT A=ZER(9) - 280 gosub 800 - 290 MAT A(2 TO 7)=ZER - 300 gosub 800 - 310 MAT A=ZER(21 TO 30) - 320 gosub 800 - 330 goto 999 - 800 print "LBOUND=";LBOUND(A),"UBOUND=";UBOUND(A) - 810 return - 820 rem - 900 print "ERL=";ERL,"ERR=";ERR,"ERR$=";ERR$ - 910 resume next - 920 rem - 999 end diff --git a/bwbtest/HB2X/MATTO.PRO b/bwbtest/HB2X/MATTO.PRO deleted file mode 100644 index d665215..0000000 --- a/bwbtest/HB2X/MATTO.PRO +++ /dev/null @@ -1,4 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION ENABLE COMMAND "MAT" -OPTION BASE 1 - diff --git a/bwbtest/HB2X/MATTO.run b/bwbtest/HB2X/MATTO.run deleted file mode 100644 index 8b78536..0000000 --- a/bwbtest/HB2X/MATTO.run +++ /dev/null @@ -1,5 +0,0 @@ -LBOUND= 1 UBOUND= 10 -LBOUND= 1 UBOUND= 5 -LBOUND= 1 UBOUND= 9 -LBOUND= 2 UBOUND= 7 -LBOUND= 21 UBOUND= 30 diff --git a/bwbtest/HB2X/MAT_GET_1.BAS b/bwbtest/HB2X/MAT_GET_1.BAS deleted file mode 100644 index 6240041..0000000 --- a/bwbtest/HB2X/MAT_GET_1.BAS +++ /dev/null @@ -1,8 +0,0 @@ -100 REM Purpose: Verify MAT GET filename$ -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-11-16 -130 REM -200 DIM A(2,2) -220 MAT GET "MAT_GET_1.TXT", A -230 MAT PRINT A -999 END diff --git a/bwbtest/HB2X/MAT_GET_1.PRO b/bwbtest/HB2X/MAT_GET_1.PRO deleted file mode 100644 index 46b0c5b..0000000 --- a/bwbtest/HB2X/MAT_GET_1.PRO +++ /dev/null @@ -1 +0,0 @@ -option version "system/360" diff --git a/bwbtest/HB2X/MAT_GET_1.TXT b/bwbtest/HB2X/MAT_GET_1.TXT deleted file mode 100644 index 6312352..0000000 --- a/bwbtest/HB2X/MAT_GET_1.TXT +++ /dev/null @@ -1,2 +0,0 @@ -11,12 -21,22 diff --git a/bwbtest/HB2X/MAT_GET_1.run b/bwbtest/HB2X/MAT_GET_1.run deleted file mode 100644 index 8e40678..0000000 --- a/bwbtest/HB2X/MAT_GET_1.run +++ /dev/null @@ -1,2 +0,0 @@ - 11 12 - 21 22 diff --git a/bwbtest/HB2X/MAT_INPUT_7.BAS b/bwbtest/HB2X/MAT_INPUT_7.BAS deleted file mode 100644 index 1aab51a..0000000 --- a/bwbtest/HB2X/MAT_INPUT_7.BAS +++ /dev/null @@ -1,9 +0,0 @@ -100 REM Purpose: Verify MAT INPUT # -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-08-05 -130 REM -200 DIM A(2,2) -210 FILE #3, "MAT_INPUT_7.TXT" -220 MAT INPUT #3, A -230 MAT PRINT A -999 END diff --git a/bwbtest/HB2X/MAT_INPUT_7.PRO b/bwbtest/HB2X/MAT_INPUT_7.PRO deleted file mode 100644 index 6be12cc..0000000 --- a/bwbtest/HB2X/MAT_INPUT_7.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "MARK-I" -OPTION BASE 1 diff --git a/bwbtest/HB2X/MAT_INPUT_7.TXT b/bwbtest/HB2X/MAT_INPUT_7.TXT deleted file mode 100644 index 6312352..0000000 --- a/bwbtest/HB2X/MAT_INPUT_7.TXT +++ /dev/null @@ -1,2 +0,0 @@ -11,12 -21,22 diff --git a/bwbtest/HB2X/MAT_INPUT_7.run b/bwbtest/HB2X/MAT_INPUT_7.run deleted file mode 100644 index 8e40678..0000000 --- a/bwbtest/HB2X/MAT_INPUT_7.run +++ /dev/null @@ -1,2 +0,0 @@ - 11 12 - 21 22 diff --git a/bwbtest/HB2X/MAT_INV_1.BAS b/bwbtest/HB2X/MAT_INV_1.BAS deleted file mode 100644 index 3be1485..0000000 --- a/bwbtest/HB2X/MAT_INV_1.BAS +++ /dev/null @@ -1,22 +0,0 @@ - 100 rem Purpose: Verify MAT A = INV B - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-06-29 - 130 rem - 140 option base 1 - 150 dim A(3,3), B(3,3) - 160 data 1,2,3 - 170 data 1,4,6 - 180 data 1,8,9 - 190 rem - 200 mat read B - 210 mat print B - 220 mat A = inv( B ) - 230 mat print A - 240 print "DET=";det - 250 dim C(3,3) - 260 mat C = (2) * A - 270 mat print C - 280 mat C = (2 + 4/4 - 5/5)*A - 290 mat print C - 999 end - diff --git a/bwbtest/HB2X/MAT_INV_1.run b/bwbtest/HB2X/MAT_INV_1.run deleted file mode 100644 index 37320d8..0000000 --- a/bwbtest/HB2X/MAT_INV_1.run +++ /dev/null @@ -1,13 +0,0 @@ - 1 2 3 - 1 4 6 - 1 8 9 - 2 -1 0 - .5 -1 .5 --.666667 1 -.333333 -DET=-6 - 4 -2 0 - 1 -2 1 --1.33333 2 -.666667 - 4 -2 0 - 1 -2 1 --1.33333 2 -.666667 diff --git a/bwbtest/HB2X/MAT_MULT_1.BAS b/bwbtest/HB2X/MAT_MULT_1.BAS deleted file mode 100644 index 5a23c80..0000000 --- a/bwbtest/HB2X/MAT_MULT_1.BAS +++ /dev/null @@ -1,19 +0,0 @@ - 100 rem Purpose: Verify MAT A = B * C - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-06-29 - 130 rem - 140 option base 1 - 150 dim A(2,2), B(2,3), C(3,2) - 200 mat read B - 210 mat print B - 220 mat read C - 230 mat print C - 240 mat A = B * C - 250 mat print A - 300 data 1,2,3 - 310 data 4,5,0 - 320 data 1,4 - 330 data 0,5 - 340 data 3,0 - 999 end - diff --git a/bwbtest/HB2X/MAT_MULT_1.run b/bwbtest/HB2X/MAT_MULT_1.run deleted file mode 100644 index e039517..0000000 --- a/bwbtest/HB2X/MAT_MULT_1.run +++ /dev/null @@ -1,7 +0,0 @@ - 1 2 3 - 4 5 0 - 1 4 - 0 5 - 3 0 - 10 14 - 4 41 diff --git a/bwbtest/HB2X/MAT_PUT_1.BAS b/bwbtest/HB2X/MAT_PUT_1.BAS deleted file mode 100644 index a237103..0000000 --- a/bwbtest/HB2X/MAT_PUT_1.BAS +++ /dev/null @@ -1,13 +0,0 @@ -100 REM Purpose: Verify MAT PUT filename$ -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-11-16 -130 REM -200 DIM A(2,2) -210 MAT A = IDN -230 MAT PUT "MAT_PUT_1.TXT", A -240 CLOSE "MAT_PUT_1.TXT" -250 DIM B(2,2) -260 MAT GET "MAT_PUT_1.TXT", B -270 MAT PRINT B -280 CLOSE "MAT_PUT_1.TXT" -999 END diff --git a/bwbtest/HB2X/MAT_PUT_1.PRO b/bwbtest/HB2X/MAT_PUT_1.PRO deleted file mode 100644 index 46b0c5b..0000000 --- a/bwbtest/HB2X/MAT_PUT_1.PRO +++ /dev/null @@ -1 +0,0 @@ -option version "system/360" diff --git a/bwbtest/HB2X/MAT_PUT_1.TXT b/bwbtest/HB2X/MAT_PUT_1.TXT deleted file mode 100644 index 4531457..0000000 --- a/bwbtest/HB2X/MAT_PUT_1.TXT +++ /dev/null @@ -1,2 +0,0 @@ - 1, 0 - 0, 1 diff --git a/bwbtest/HB2X/MAT_PUT_1.run b/bwbtest/HB2X/MAT_PUT_1.run deleted file mode 100644 index baa974c..0000000 --- a/bwbtest/HB2X/MAT_PUT_1.run +++ /dev/null @@ -1,2 +0,0 @@ - 1 0 - 0 1 diff --git a/bwbtest/HB2X/MAT_READ_7.BAS b/bwbtest/HB2X/MAT_READ_7.BAS deleted file mode 100644 index bfe13b1..0000000 --- a/bwbtest/HB2X/MAT_READ_7.BAS +++ /dev/null @@ -1,9 +0,0 @@ -100 REM Purpose: Verify MAT READ # -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-08-05 -130 REM -200 DIM A(2,2) -210 FILE #3, "MAT_READ_7.TXT" -220 MAT READ #3, A -230 MAT PRINT A -999 END diff --git a/bwbtest/HB2X/MAT_READ_7.PRO b/bwbtest/HB2X/MAT_READ_7.PRO deleted file mode 100644 index 6be12cc..0000000 --- a/bwbtest/HB2X/MAT_READ_7.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "MARK-I" -OPTION BASE 1 diff --git a/bwbtest/HB2X/MAT_READ_7.TXT b/bwbtest/HB2X/MAT_READ_7.TXT deleted file mode 100644 index 6312352..0000000 --- a/bwbtest/HB2X/MAT_READ_7.TXT +++ /dev/null @@ -1,2 +0,0 @@ -11,12 -21,22 diff --git a/bwbtest/HB2X/MAT_READ_7.run b/bwbtest/HB2X/MAT_READ_7.run deleted file mode 100644 index 8e40678..0000000 --- a/bwbtest/HB2X/MAT_READ_7.run +++ /dev/null @@ -1,2 +0,0 @@ - 11 12 - 21 22 diff --git a/bwbtest/HB2X/MAT_READ_8.BAS b/bwbtest/HB2X/MAT_READ_8.BAS deleted file mode 100644 index 38ab439..0000000 --- a/bwbtest/HB2X/MAT_READ_8.BAS +++ /dev/null @@ -1,37 +0,0 @@ -100 REM Purpose: Verify MAT READ # -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-08-05 -130 REM -200 DIM A(2,2) -210 FILE #3, "MAT_READ_8.TXT" -220 RESTORE #3 -300 PRINT "MAT READ #, DEFAULT DELIMITER" -310 REM DELIMIT #3, "," -320 MAT READ #3, A -330 MAT PRINT A -400 PRINT "MAT READ #, CUSTOM DELIMITER" -410 DELIMIT #3, "*" -420 MAT READ #3, A -430 MAT PRINT A -500 PRINT "MAT READ #, BAR DELIMITER" -510 DELIMIT #3, "|" -520 MAT READ #3, A -530 MAT PRINT A -600 PRINT "MAT PRINT, DEFAULT DELIMITER" -610 MAT PRINT A -700 PRINT "MAT PRINT #, DEFAULT DELIMITER" -710 MAT PRINT #0, A -800 PRINT "MAT WRITE, DEFAULT DELIMITER" -810 MAT WRITE A -900 PRINT "MAT WRITE #, DEFAULT DELIMITER" -910 MAT WRITE #0, A -1000 DELIMIT #0, "*" -1600 PRINT "MAT PRINT, CUSTOM DELIMITER" -1610 MAT PRINT A -1700 PRINT "MAT PRINT #, CUSTOM DELIMITER" -1710 MAT PRINT #0, A -1800 PRINT "MAT WRITE, CUSTOM DELIMITER" -1810 MAT WRITE A -1900 PRINT "MAT WRITE #, CUSTOM DELIMITER" -1910 MAT WRITE #0, A -9999 END diff --git a/bwbtest/HB2X/MAT_READ_8.PRO b/bwbtest/HB2X/MAT_READ_8.PRO deleted file mode 100644 index 6be12cc..0000000 --- a/bwbtest/HB2X/MAT_READ_8.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "MARK-I" -OPTION BASE 1 diff --git a/bwbtest/HB2X/MAT_READ_8.TXT b/bwbtest/HB2X/MAT_READ_8.TXT deleted file mode 100644 index 22b395e..0000000 --- a/bwbtest/HB2X/MAT_READ_8.TXT +++ /dev/null @@ -1,6 +0,0 @@ -11,12 -21,22 -11*12 -21*22 -11|12 -21|22 diff --git a/bwbtest/HB2X/MAT_READ_8.run b/bwbtest/HB2X/MAT_READ_8.run deleted file mode 100644 index b3c45cc..0000000 --- a/bwbtest/HB2X/MAT_READ_8.run +++ /dev/null @@ -1,33 +0,0 @@ -MAT READ #, DEFAULT DELIMITER - 11 12 - 21 22 -MAT READ #, CUSTOM DELIMITER - 11 12 - 21 22 -MAT READ #, BAR DELIMITER - 11 12 - 21 22 -MAT PRINT, DEFAULT DELIMITER - 11 12 - 21 22 -MAT PRINT #, DEFAULT DELIMITER - 11 12 - 21 22 -MAT WRITE, DEFAULT DELIMITER - 11, 12 - 21, 22 -MAT WRITE #, DEFAULT DELIMITER - 11, 12 - 21, 22 -MAT PRINT, CUSTOM DELIMITER - 11 12 - 21 22 -MAT PRINT #, CUSTOM DELIMITER - 11 12 - 21 22 -MAT WRITE, CUSTOM DELIMITER - 11* 12 - 21* 22 -MAT WRITE #, CUSTOM DELIMITER - 11* 12 - 21* 22 diff --git a/bwbtest/HB2X/MAT_WRITE_8.BAS b/bwbtest/HB2X/MAT_WRITE_8.BAS deleted file mode 100644 index 661318c..0000000 --- a/bwbtest/HB2X/MAT_WRITE_8.BAS +++ /dev/null @@ -1,39 +0,0 @@ -100 REM Purpose: Verify MAT WRITE # -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-08-05 -130 REM -200 DIM A(2,2) -210 MAT A = IDN -220 FILE #3, "MAT_WRITE_8.TXT" -230 SCRATCH #3 -300 REM -310 REM DELIMIT #3, "," -320 MAT WRITE #3, A -400 REM -410 DELIMIT #3, "*" -420 MAT WRITE #3, A -500 REM -510 DELIMIT #3, "|" -520 MAT WRITE #3, A - -600 REM -610 FILE #3,"*" -620 FILE #3,"MAT_WRITE_8.TXT" - -700 PRINT "COMMA" -710 DELIMIT #3, "," -720 MAT READ #3, A -730 MAT PRINT A - -800 PRINT "ASTERISK" -810 DELIMIT #3, "*" -820 MAT READ #3, A -830 MAT PRINT A - -900 PRINT "BAR" -910 DELIMIT #3, "|" -920 MAT READ #3, A -930 MAT PRINT A - -990 PRINT "TEST PASSED" -999 END diff --git a/bwbtest/HB2X/MAT_WRITE_8.PRO b/bwbtest/HB2X/MAT_WRITE_8.PRO deleted file mode 100644 index 6be12cc..0000000 --- a/bwbtest/HB2X/MAT_WRITE_8.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "MARK-I" -OPTION BASE 1 diff --git a/bwbtest/HB2X/MAT_WRITE_8.TXT b/bwbtest/HB2X/MAT_WRITE_8.TXT deleted file mode 100644 index f29e2a3..0000000 --- a/bwbtest/HB2X/MAT_WRITE_8.TXT +++ /dev/null @@ -1,6 +0,0 @@ - 1, 0 - 0, 1 - 1* 0 - 0* 1 - 1| 0 - 0| 1 diff --git a/bwbtest/HB2X/MAT_WRITE_8.run b/bwbtest/HB2X/MAT_WRITE_8.run deleted file mode 100644 index 2e15c31..0000000 --- a/bwbtest/HB2X/MAT_WRITE_8.run +++ /dev/null @@ -1,10 +0,0 @@ -COMMA - 1 0 - 0 1 -ASTERISK - 1 0 - 0 1 -BAR - 1 0 - 0 1 -TEST PASSED diff --git a/bwbtest/HB2X/PAD80.BAS b/bwbtest/HB2X/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/HB2X/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/HB2X/PAD80.INP b/bwbtest/HB2X/PAD80.INP deleted file mode 100644 index b2f2768..0000000 --- a/bwbtest/HB2X/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA RECLEN.OUT, RECLEN.80 diff --git a/bwbtest/HB2X/PAD80.PRO b/bwbtest/HB2X/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/HB2X/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/HB2X/PAUSE_1.BAS b/bwbtest/HB2X/PAUSE_1.BAS deleted file mode 100644 index d44c80e..0000000 --- a/bwbtest/HB2X/PAUSE_1.BAS +++ /dev/null @@ -1,7 +0,0 @@ - 100 REM Purpose: Verify PAUSE command - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-11-16 - 130 REM - 200 PAUSE - 999 END - diff --git a/bwbtest/HB2X/PAUSE_1.INP b/bwbtest/HB2X/PAUSE_1.INP deleted file mode 100644 index 1ba4650..0000000 --- a/bwbtest/HB2X/PAUSE_1.INP +++ /dev/null @@ -1 +0,0 @@ -anything diff --git a/bwbtest/HB2X/PAUSE_1.PRO b/bwbtest/HB2X/PAUSE_1.PRO deleted file mode 100644 index 2869fb4..0000000 --- a/bwbtest/HB2X/PAUSE_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "SYSTEM/360" diff --git a/bwbtest/HB2X/PAUSE_1.run b/bwbtest/HB2X/PAUSE_1.run deleted file mode 100644 index 0c7f56b..0000000 --- a/bwbtest/HB2X/PAUSE_1.run +++ /dev/null @@ -1,2 +0,0 @@ -PAUSE AT 200 -anything diff --git a/bwbtest/HB2X/POP_1.BAS b/bwbtest/HB2X/POP_1.BAS deleted file mode 100644 index c1cb156..0000000 --- a/bwbtest/HB2X/POP_1.BAS +++ /dev/null @@ -1,13 +0,0 @@ - 100 rem - 110 gosub 200 - 120 print "OK" - 130 goto 999 - 200 gosub 300 - 210 print "ERROR" - 220 goto 999 - 300 print "about" - 310 pop - 320 return - 330 print "FAILED" - 999 end - diff --git a/bwbtest/HB2X/POP_1.run b/bwbtest/HB2X/POP_1.run deleted file mode 100644 index 835b129..0000000 --- a/bwbtest/HB2X/POP_1.run +++ /dev/null @@ -1,2 +0,0 @@ -about -OK diff --git a/bwbtest/HB2X/PRINT_USING_1.BAS b/bwbtest/HB2X/PRINT_USING_1.BAS deleted file mode 100644 index bf78309..0000000 --- a/bwbtest/HB2X/PRINT_USING_1.BAS +++ /dev/null @@ -1,22 +0,0 @@ - 100 REM Purpose: Verify PRINT USING command, using inline IMAGE string - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-11-24 - 130 REM Note: OPTION VERSION SYSTEM-360 - 140 REM - 200 PRINT USING "###", 123 - 210 PRINT USING "###", 12 - 220 PRINT USING "###", 1.23 - 230 PRINT USING "##.##", 123 - 240 PRINT USING "##.##", 1.23 - 250 PRINT USING "##.##", 1.23456 - 260 PRINT USING "##.##", .123 - 270 PRINT USING "##.##", 12.345 - 280 PRINT USING "###!!!!", 123 - 290 PRINT USING "###!!!!", 12.3 - 300 PRINT USING "###!!!!", .1234 - 310 PRINT USING "##.#!!!!", 123 - 320 PRINT USING "##.#!!!!", 12.3 - 330 PRINT USING "##.#!!!!", .1234 - 340 PRINT USING "##.#!!!!", 1234 - 999 END - diff --git a/bwbtest/HB2X/PRINT_USING_1.PRO b/bwbtest/HB2X/PRINT_USING_1.PRO deleted file mode 100644 index 2869fb4..0000000 --- a/bwbtest/HB2X/PRINT_USING_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "SYSTEM/360" diff --git a/bwbtest/HB2X/PRINT_USING_1.run b/bwbtest/HB2X/PRINT_USING_1.run deleted file mode 100644 index 81a47e1..0000000 --- a/bwbtest/HB2X/PRINT_USING_1.run +++ /dev/null @@ -1,15 +0,0 @@ -123 - 12 - 1 -123.00 - 1.23 - 1.23 - 0.12 -12.35 -1.2300e+02 -1.2300e+01 -1.2340e-01 -1.23000e+02 -1.23000e+01 -1.23400e-01 -1.23400e+03 diff --git a/bwbtest/HB2X/PRINT_USING_2.BAS b/bwbtest/HB2X/PRINT_USING_2.BAS deleted file mode 100644 index 711baa6..0000000 --- a/bwbtest/HB2X/PRINT_USING_2.BAS +++ /dev/null @@ -1,27 +0,0 @@ - 100 REM Purpose: Verify PRINT USING command, using IMAGE statements - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-11-24 - 130 REM Note: OPTION VERSION SYSTEM-360 - 140 REM Note: This should give the same results as PRINT_USING_1 - 150 :### - 160 :##.## - 170 :###!!!! - 180 :##.#!!!! - 190 REM - 200 PRINT USING 150, 123 - 210 PRINT USING 150, 12 - 220 PRINT USING 150, 1.23 - 230 PRINT USING 160, 123 - 240 PRINT USING 160, 1.23 - 250 PRINT USING 160, 1.23456 - 260 PRINT USING 160, .123 - 270 PRINT USING 160, 12.345 - 280 PRINT USING 170, 123 - 290 PRINT USING 170, 12.3 - 300 PRINT USING 170, .1234 - 310 PRINT USING 180, 123 - 320 PRINT USING 180, 12.3 - 330 PRINT USING 180, .1234 - 340 PRINT USING 180, 1234 - 999 END - diff --git a/bwbtest/HB2X/PRINT_USING_2.PRO b/bwbtest/HB2X/PRINT_USING_2.PRO deleted file mode 100644 index 2869fb4..0000000 --- a/bwbtest/HB2X/PRINT_USING_2.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "SYSTEM/360" diff --git a/bwbtest/HB2X/PRINT_USING_2.run b/bwbtest/HB2X/PRINT_USING_2.run deleted file mode 100644 index 81a47e1..0000000 --- a/bwbtest/HB2X/PRINT_USING_2.run +++ /dev/null @@ -1,15 +0,0 @@ -123 - 12 - 1 -123.00 - 1.23 - 1.23 - 0.12 -12.35 -1.2300e+02 -1.2300e+01 -1.2340e-01 -1.23000e+02 -1.23000e+01 -1.23400e-01 -1.23400e+03 diff --git a/bwbtest/HB2X/PUT_1.BAS b/bwbtest/HB2X/PUT_1.BAS deleted file mode 100644 index 7abca08..0000000 --- a/bwbtest/HB2X/PUT_1.BAS +++ /dev/null @@ -1,24 +0,0 @@ - 10 REM Purpose: Verify 'PUT filename$' - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-11-11 - 40 REM Note: OPTION VERSION SYSTEM-360 - 50 REM Note: The results are read by GET_1.BAS - 60 REM - 100 REM --- CONSTANT FILE NAME --- - 110 PUT "PUT_1.TXT", 1, 2, 3 - 120 PUT "PUT_1.TXT", "hello world" - 130 REM PUT "PUT_1.TXT" - 140 PUT "PUT_1.TXT", "ANOTHER","LINE","IS","HERE" - 150 PUT "PUT_1.TXT", 1, "abc", 2, "def", 3, "ghi" - 200 REM --- VARIABLE FILE NAME --- - 210 LET F$ = "PUT_1.TXT" - 220 PUT F$, 4, 5, 6 - 230 PUT F$, "hello world again" - 240 REM PUT F$ - 250 PUT F$, "hello world in", f$, "we are", 1 - 260 PUT F$, "hello world in", f$, "we are", 2 - 270 PUT F$, "hello world in", f$, "we are", 3 - 280 PUT F$, "hello world in", f$, "we are", 4 - 290 PUT F$, "/*EOF*/" - 300 PRINT "COMPLETED" - 999 END diff --git a/bwbtest/HB2X/PUT_1.PRO b/bwbtest/HB2X/PUT_1.PRO deleted file mode 100644 index 46b0c5b..0000000 --- a/bwbtest/HB2X/PUT_1.PRO +++ /dev/null @@ -1 +0,0 @@ -option version "system/360" diff --git a/bwbtest/HB2X/PUT_1.TXT b/bwbtest/HB2X/PUT_1.TXT deleted file mode 100644 index d6f0f6c..0000000 --- a/bwbtest/HB2X/PUT_1.TXT +++ /dev/null @@ -1,11 +0,0 @@ - 1, 2, 3 -"hello world" -"ANOTHER","LINE","IS","HERE" - 1,"abc", 2,"def", 3,"ghi" - 4, 5, 6 -"hello world again" -"hello world in","PUT_1.TXT","we are", 1 -"hello world in","PUT_1.TXT","we are", 2 -"hello world in","PUT_1.TXT","we are", 3 -"hello world in","PUT_1.TXT","we are", 4 -"/*EOF*/" diff --git a/bwbtest/HB2X/PUT_1.run b/bwbtest/HB2X/PUT_1.run deleted file mode 100644 index 62aa23d..0000000 --- a/bwbtest/HB2X/PUT_1.run +++ /dev/null @@ -1 +0,0 @@ -COMPLETED diff --git a/bwbtest/HB2X/PUT_2.BAS b/bwbtest/HB2X/PUT_2.BAS deleted file mode 100644 index b2305f5..0000000 --- a/bwbtest/HB2X/PUT_2.BAS +++ /dev/null @@ -1,31 +0,0 @@ - 10 REM Purpose: Verify 'PUT filename$' with RESET - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-11-11 - 40 REM Note: OPTION VERSION SYSTEM-360 - 50 REM Note: The results are read by GET_2.BAS - 60 REM - 70 GOSUB 100 - 75 RESET "PUT_2.TXT" - 80 GOSUB 100 - 85 RESET "not an open file", "", "*", "?", "+", ":", "PUT_2.TXT" - 90 GOSUB 100 - 95 GOTO 999 - 100 REM --- CONSTANT FILE NAME --- - 110 PUT "PUT_2.TXT", 1, 2, 3 - 120 PUT "PUT_2.TXT", "hello world" - 130 REM PUT "PUT_2.TXT" - 140 PUT "PUT_2.TXT", "ANOTHER","LINE","IS","HERE" - 150 PUT "PUT_2.TXT", 1, "abc", 2, "def", 3, "ghi" - 200 REM --- VARIABLE FILE NAME --- - 210 LET F$ = "PUT_2.TXT" - 220 PUT F$, 4, 5, 6 - 230 PUT F$, "hello world again" - 240 REM PUT F$ - 250 PUT F$, "hello world in", f$, "we are", 1 - 260 PUT F$, "hello world in", f$, "we are", 2 - 270 PUT F$, "hello world in", f$, "we are", 3 - 280 PUT F$, "hello world in", f$, "we are", 4 - 290 PUT F$, "/*EOF*/" - 300 PRINT "COMPLETED" - 399 RETURN - 999 END diff --git a/bwbtest/HB2X/PUT_2.PRO b/bwbtest/HB2X/PUT_2.PRO deleted file mode 100644 index 46b0c5b..0000000 --- a/bwbtest/HB2X/PUT_2.PRO +++ /dev/null @@ -1 +0,0 @@ -option version "system/360" diff --git a/bwbtest/HB2X/PUT_2.TXT b/bwbtest/HB2X/PUT_2.TXT deleted file mode 100644 index 2bdd195..0000000 --- a/bwbtest/HB2X/PUT_2.TXT +++ /dev/null @@ -1,11 +0,0 @@ - 1, 2, 3 -"hello world" -"ANOTHER","LINE","IS","HERE" - 1,"abc", 2,"def", 3,"ghi" - 4, 5, 6 -"hello world again" -"hello world in","PUT_2.TXT","we are", 1 -"hello world in","PUT_2.TXT","we are", 2 -"hello world in","PUT_2.TXT","we are", 3 -"hello world in","PUT_2.TXT","we are", 4 -"/*EOF*/" diff --git a/bwbtest/HB2X/PUT_2.run b/bwbtest/HB2X/PUT_2.run deleted file mode 100644 index 8f486c8..0000000 --- a/bwbtest/HB2X/PUT_2.run +++ /dev/null @@ -1,3 +0,0 @@ -COMPLETED -COMPLETED -COMPLETED diff --git a/bwbtest/HB2X/QUOTE_1.BAS b/bwbtest/HB2X/QUOTE_1.BAS deleted file mode 100644 index 42d22e5..0000000 --- a/bwbtest/HB2X/QUOTE_1.BAS +++ /dev/null @@ -1,50 +0,0 @@ - 100 REM Purpose: Verify quote characters - 110 REM Author: Howard Wulf, AF5NE - 120 REM Date: 2015-10-29 - 130 REM Note: OPTION VERSION SYSTEM-360 - 140 REM - 150 PRINT "VARIABLE", "VALUE", "LENGTH" - 200 REM -------------------- STRING CONSTANTS IN EXPRESSIONS - 210 LET A$ = "Aa" - 220 PRINT "A$", A$, LEN(A$) - 230 LET B$ = 'Bb' - 240 PRINT "B$", B$, LEN(B$) - 250 LET C$ = "C'c" - 260 PRINT "C$", C$, LEN(C$) - 270 LET D$ = 'D"d' - 280 PRINT "D$", D$, LEN(D$) - 290 REM LET E$ = "E""e" - 300 REM PRINT "E$", E$, LEN(E$) - 310 REM LET F$ = 'F''f' - 320 REM PRINT "F$", F$, LEN(F$) - 330 LET G$ = "" - 340 PRINT "G$", G$, LEN(G$) - 350 LET H$ = '' - 360 PRINT "H$", H$, LEN(H$) -1200 REM -------------------- STRING CONSTANTS IN DATA -1205 RESTORE -1210 DATA "Aa" -1215 READ A$ -1220 PRINT "A$", A$, LEN(A$) -1230 DATA 'Bb' -1235 READ B$ -1240 PRINT "B$", B$, LEN(B$) -1250 DATA "C'c" -1255 READ C$ -1260 PRINT "C$", C$, LEN(C$) -1270 DATA 'D"d' -1275 READ D$ -1280 PRINT "D$", D$, LEN(D$) -1290 REM DATA "E""e" -1295 REM READ E$ -1300 REM PRINT "E$", E$, LEN(E$) -1310 REM DATA 'F''f' -1315 REM READ F$ -1320 REM PRINT "F$", F$, LEN(F$) -1330 DATA "" -1335 READ G$ -1340 PRINT "G$", G$, LEN(G$) -1350 DATA '' -1355 READ H$ -1360 PRINT "H$", H$, LEN(H$) -9999 END diff --git a/bwbtest/HB2X/QUOTE_1.PRO b/bwbtest/HB2X/QUOTE_1.PRO deleted file mode 100644 index 2869fb4..0000000 --- a/bwbtest/HB2X/QUOTE_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "SYSTEM/360" diff --git a/bwbtest/HB2X/RECLEN.BAS b/bwbtest/HB2X/RECLEN.BAS deleted file mode 100644 index f7872f7..0000000 --- a/bwbtest/HB2X/RECLEN.BAS +++ /dev/null @@ -1,22 +0,0 @@ - 100 REM PURPOSE: VERIFY 'OPTION RECLEN' COMMAND - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-04-10 - 130 REM NOTE: OPTION VERSION "BYWATER" - 140 REM - 145 OPTION RECLEN 512 - 150 OPEN "RECLEN.DAT" FOR RANDOM AS # 4 - 160 FIELD # 4, 250 AS A$, 250 AS B$, 12 AS C$ - 170 LSET A$ = "A" - 180 LSET B$ = "B" - 190 LSET C$ = "C" - 200 PUT # 4 - 210 CLOSE # 4 - 300 OPEN "RECLEN.DAT" FOR RANDOM AS # 2 - 310 FIELD # 2, 250 AS Z$, 250 AS Y$, 12 AS X$ - 320 GET # 2 - 330 PRINT "Z$="; LEFT$(Z$,5) - 340 PRINT "Y$="; LEFT$(Y$,5) - 350 PRINT "X$="; LEFT$(X$,5) - 360 CLOSE # 2 - 999 END - diff --git a/bwbtest/HB2X/RECLEN.DAT b/bwbtest/HB2X/RECLEN.DAT deleted file mode 100644 index 6c91d49..0000000 --- a/bwbtest/HB2X/RECLEN.DAT +++ /dev/null @@ -1 +0,0 @@ -A B C \ No newline at end of file diff --git a/bwbtest/HB2X/RECLEN.PRO b/bwbtest/HB2X/RECLEN.PRO deleted file mode 100644 index 5fe6743..0000000 --- a/bwbtest/HB2X/RECLEN.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "BYWATER" diff --git a/bwbtest/HB2X/RECLEN.run b/bwbtest/HB2X/RECLEN.run deleted file mode 100644 index a411413..0000000 --- a/bwbtest/HB2X/RECLEN.run +++ /dev/null @@ -1,3 +0,0 @@ -Z$=A -Y$=B -X$=C diff --git a/bwbtest/HB2X/RESET_1.BAS b/bwbtest/HB2X/RESET_1.BAS deleted file mode 100644 index e4e65a1..0000000 --- a/bwbtest/HB2X/RESET_1.BAS +++ /dev/null @@ -1,43 +0,0 @@ - 10 REM Purpose: Verify 'RESET filename$' - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-11-11 - 40 REM Note: OPTION VERSION SYSTEM-360 - 50 REM Note: read the values written by PUT_1.BAS - 60 REM - 70 GOSUB 100 - 75 RESET "PUT_1.TXT" - 80 GOSUB 100 - 85 RESET "not an open file", "", "*", "?", "+", ":", "PUT_1.TXT" - 90 GOSUB 100 - 95 GOTO 999 - 100 REM --- CONSTANT FILE NAME --- - 110 GET "PUT_1.TXT", A, B, C - 115 PRINT "A=";A, "B=";B, "C=";C - 120 GET "PUT_1.TXT", A$ - 125 PRINT "A$=[";A$;"]" - 130 REM GET "PUT_1.TXT", B$ - 135 REM PRINT "B$=[";B$;"]" - 140 GET "PUT_1.TXT", C1$,C2$,C3$,C4$ - 145 PRINT "C1$=[";C1$;"]", "C2$=[";C2$;"]", "C3$=[";C3$;"]", "C4$=[";C4$;"]" - 150 GET "PUT_1.TXT", d1, d1$, d2, d2$, d3, d3$ - 155 PRINT "D1=";D1;"D1$=[";D1$;"]" , "D2=";D2;"D2$=[";D2$;"]" , "D3=";D3;"D3$=[";D3$;"]" - 200 REM --- VARIABLE FILE NAME --- - 210 LET F$ = "PUT_1.TXT" - 220 GET F$, e1, e2, e3 - 225 PRINT "e1=";e1, "e2=";e2, "e3=";e3 - 230 GET F$, G$ - 235 PRINT "G$=[";G$;"]" - 240 REM GET F$, H$ - 245 REM PRINT "H$=[";H$;"]" - 250 GET F$, I1$, i2$, i3$, i - 255 PRINT "i1$=[";i1$;"]", "I2$=[";I2$;"]", "i3$=[";i3$;"]", "i=";I - 260 GET F$, j1$, j2$, J3$, J - 265 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 270 GET F$, j1$, j2$, J3$, J - 275 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 280 GET F$, j1$, j2$, J3$, J - 285 PRINT "j1$=[";J1$;"]", "J2$=[";J2$;"]", "j3$=[";j3$;"]", "J=";j - 290 GET F$, z$ - 295 PRINT "z$=[";Z$;"]" - 299 RETURN - 999 END diff --git a/bwbtest/HB2X/RESET_1.PRO b/bwbtest/HB2X/RESET_1.PRO deleted file mode 100644 index 46b0c5b..0000000 --- a/bwbtest/HB2X/RESET_1.PRO +++ /dev/null @@ -1 +0,0 @@ -option version "system/360" diff --git a/bwbtest/HB2X/RESET_1.run b/bwbtest/HB2X/RESET_1.run deleted file mode 100644 index 4c2cf39..0000000 --- a/bwbtest/HB2X/RESET_1.run +++ /dev/null @@ -1,33 +0,0 @@ -A= 1 B= 2 C= 3 -A$=[hello world] -C1$=[ANOTHER] C2$=[LINE] C3$=[IS] C4$=[HERE] -D1= 1 D1$=[abc] D2= 2 D2$=[def] D3= 3 D3$=[ghi] -e1= 4 e2= 5 e3= 6 -G$=[hello world again] -i1$=[hello world in] I2$=[PUT_1.TXT] i3$=[we are] i= 1 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 2 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 3 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 4 -z$=[/*EOF*/] -A= 1 B= 2 C= 3 -A$=[hello world] -C1$=[ANOTHER] C2$=[LINE] C3$=[IS] C4$=[HERE] -D1= 1 D1$=[abc] D2= 2 D2$=[def] D3= 3 D3$=[ghi] -e1= 4 e2= 5 e3= 6 -G$=[hello world again] -i1$=[hello world in] I2$=[PUT_1.TXT] i3$=[we are] i= 1 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 2 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 3 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 4 -z$=[/*EOF*/] -A= 1 B= 2 C= 3 -A$=[hello world] -C1$=[ANOTHER] C2$=[LINE] C3$=[IS] C4$=[HERE] -D1= 1 D1$=[abc] D2= 2 D2$=[def] D3= 3 D3$=[ghi] -e1= 4 e2= 5 e3= 6 -G$=[hello world again] -i1$=[hello world in] I2$=[PUT_1.TXT] i3$=[we are] i= 1 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 2 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 3 -j1$=[hello world in] J2$=[PUT_1.TXT] j3$=[we are] J= 4 -z$=[/*EOF*/] diff --git a/bwbtest/HB2X/RESTORE_3.BAS b/bwbtest/HB2X/RESTORE_3.BAS deleted file mode 100644 index ac04200..0000000 --- a/bwbtest/HB2X/RESTORE_3.BAS +++ /dev/null @@ -1,17 +0,0 @@ - 10 REM Purpose: Verify "RESTORE label" - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-10-21 - 40 REM Note: OPTION VERSION BYWATER - 50 REM Note: OPTION LABELS ON - 60 REM - 100 restore fred - 110 read a$ - 120 print a$ - 200 data "error" - 210 data "error" - 220 data "error" - 230 fred: - 240 data "ok" - 250 data "error" - 260 data "error" - 299 end diff --git a/bwbtest/HB2X/RESTORE_3.PRO b/bwbtest/HB2X/RESTORE_3.PRO deleted file mode 100644 index 3b5054b..0000000 --- a/bwbtest/HB2X/RESTORE_3.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS ON diff --git a/bwbtest/HB2X/RESTORE_3.run b/bwbtest/HB2X/RESTORE_3.run deleted file mode 100644 index 1d8a938..0000000 --- a/bwbtest/HB2X/RESTORE_3.run +++ /dev/null @@ -1 +0,0 @@ -ok diff --git a/bwbtest/HB2X/ROUND_1.BAS b/bwbtest/HB2X/ROUND_1.BAS deleted file mode 100644 index caeb104..0000000 --- a/bwbtest/HB2X/ROUND_1.BAS +++ /dev/null @@ -1,30 +0,0 @@ - 100 rem Purpose: verify OPTION ROUND ... - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-07-01 - 130 rem - 140 rem ------------------------------------ - 150 option base 1 - 160 dim I as integer - 170 dim X as double - 180 width 128 - 200 rem ------------------------------------ - 210 print "OPTION ROUND COMPARISONS" - 220 print , , , "BANK" , "MATH" , "TRUNCATE" - 230 print "X", "int(X)", "fix(X)", "cint(X)" , "cint(X)" , "cint(X)" - 240 restore - 250 for I = 1 to 17 - 260 read X - 270 print X, int(X), fix(X), - 280 option round BANK - 290 print cint(X), - 300 option round MATH - 310 print cint(X), - 320 option round TRUNCATE - 330 print cint(X) - 340 next I - 900 rem ------------------------------------ - 910 data -2,-1.6,-1.5,-1.4,-1,-.6,-.5,-.4 - 920 data 0 - 930 data .4,.5,.6,1,1.4,1.5,1.6,2 - 999 end - diff --git a/bwbtest/HB2X/ROUND_1.PRO b/bwbtest/HB2X/ROUND_1.PRO deleted file mode 100644 index 5fe6743..0000000 --- a/bwbtest/HB2X/ROUND_1.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "BYWATER" diff --git a/bwbtest/HB2X/ROUND_1.run b/bwbtest/HB2X/ROUND_1.run deleted file mode 100644 index d548ade..0000000 --- a/bwbtest/HB2X/ROUND_1.run +++ /dev/null @@ -1,20 +0,0 @@ -OPTION ROUND COMPARISONS - BANK MATH TRUNC -X int(X) fix(X) cint(X) cint(X) cint( --2 -2 -2 -2 -2 -2 --1.6 -2 -1 -2 -2 -1 --1.5 -2 -1 -2 -2 -1 --1.4 -2 -1 -1 -1 -1 --1 -1 -1 -1 -1 -1 --.6 -1 0 -1 -1 0 --.5 -1 0 0 -1 0 --.4 -1 0 0 0 0 - 0 0 0 0 0 0 - .4 0 0 0 0 0 - .5 0 0 0 1 0 - .6 0 0 1 1 0 - 1 1 1 1 1 1 - 1.4 1 1 1 1 1 - 1.5 1 1 2 2 1 - 1.6 1 1 2 2 1 - 2 2 2 2 2 2 diff --git a/bwbtest/HB2X/SYNTAX_1.BAS b/bwbtest/HB2X/SYNTAX_1.BAS deleted file mode 100644 index 87b43e3..0000000 --- a/bwbtest/HB2X/SYNTAX_1.BAS +++ /dev/null @@ -1,12 +0,0 @@ -100 REM Purpose: Verify 'Syntax error' with active error handler -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2016-01-20 -130 REM Note: this is to verify the WARN_xxx macros -140 REM -200 ON ERROR GOTO 300 -210 LET A -220 PRINT "TEST FAILED" -230 GOTO 999 -300 PRINT "ERR=";ERR,"ERL=";ERL -999 END - diff --git a/bwbtest/HB2X/SYNTAX_1.PRO b/bwbtest/HB2X/SYNTAX_1.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/HB2X/SYNTAX_1.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/HB2X/SYNTAX_1.run b/bwbtest/HB2X/SYNTAX_1.run deleted file mode 100644 index 0ca4b90..0000000 --- a/bwbtest/HB2X/SYNTAX_1.run +++ /dev/null @@ -1 +0,0 @@ -ERR= 2 ERL= 210 diff --git a/bwbtest/HB2X/SYNTAX_2.BAS b/bwbtest/HB2X/SYNTAX_2.BAS deleted file mode 100644 index b3fdedc..0000000 --- a/bwbtest/HB2X/SYNTAX_2.BAS +++ /dev/null @@ -1,9 +0,0 @@ -100 REM Purpose: Verify 'Syntax error' with ignore error handler -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2016-01-20 -130 REM Note: this is to verify the WARN_xxx macros -140 REM -200 ON ERROR RESUME NEXT -210 LET A -300 PRINT "ERR=";ERR,"ERL=";ERL -999 END diff --git a/bwbtest/HB2X/SYNTAX_2.PRO b/bwbtest/HB2X/SYNTAX_2.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/HB2X/SYNTAX_2.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/HB2X/SYNTAX_2.run b/bwbtest/HB2X/SYNTAX_2.run deleted file mode 100644 index 0ca4b90..0000000 --- a/bwbtest/HB2X/SYNTAX_2.run +++ /dev/null @@ -1 +0,0 @@ -ERR= 2 ERL= 210 diff --git a/bwbtest/HB2X/SYNTAX_3.BAS b/bwbtest/HB2X/SYNTAX_3.BAS deleted file mode 100644 index d228bba..0000000 --- a/bwbtest/HB2X/SYNTAX_3.BAS +++ /dev/null @@ -1,9 +0,0 @@ -100 REM Purpose: Verify 'Syntax error' with default error handler -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2016-01-20 -130 REM Note: this is to verify the WARN_xxx macros -140 REM -200 ON ERROR GOTO 0 -210 LET A -220 PRINT "TEST FAILED" -999 END diff --git a/bwbtest/HB2X/SYNTAX_3.PRO b/bwbtest/HB2X/SYNTAX_3.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/HB2X/SYNTAX_3.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/HB2X/SYNTAX_3.run b/bwbtest/HB2X/SYNTAX_3.run deleted file mode 100644 index be9d09c..0000000 --- a/bwbtest/HB2X/SYNTAX_3.run +++ /dev/null @@ -1,5 +0,0 @@ - -ERROR in line 210: Syntax error - -STACK TRACE: -210:LET A diff --git a/bwbtest/HB2X/TIM_77.BAS b/bwbtest/HB2X/TIM_77.BAS deleted file mode 100644 index 8c04f36..0000000 --- a/bwbtest/HB2X/TIM_77.BAS +++ /dev/null @@ -1,14 +0,0 @@ - 10 REM Purpose: Verify 'TIM(X)' is elapsed execution time - 20 REM Author: Howard Wulf, AF5NE - 30 REM Date: 2015-10-21 - 40 REM Note: OPTION VERSION MARK-I - 50 REM Note: The execution speed is implementation defined - 100 REM +---------------------------------------------------------------------+ - 110 REM | | - 120 REM | Bywater BASIC is slow, so five million loops take about 5 seconds | - 130 REM | | - 140 REM +---------------------------------------------------------------------+ - 200 for i = 1 to 5E6 - 210 next i - 300 PRINT "On my system, this should be between 4 and 6 seconds:";tim(77) - 999 END diff --git a/bwbtest/HB2X/TIM_77.PRO b/bwbtest/HB2X/TIM_77.PRO deleted file mode 100644 index 89400e0..0000000 --- a/bwbtest/HB2X/TIM_77.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "MARK-I" diff --git a/bwbtest/HB2X/TIM_77.run b/bwbtest/HB2X/TIM_77.run deleted file mode 100644 index b84e78f..0000000 --- a/bwbtest/HB2X/TIM_77.run +++ /dev/null @@ -1 +0,0 @@ -On my system, this should be between 4 and 6 seconds: 5 diff --git a/bwbtest/I70/00README.txt b/bwbtest/I70/00README.txt deleted file mode 100644 index 09a96ad..0000000 --- a/bwbtest/I70/00README.txt +++ /dev/null @@ -1,20 +0,0 @@ -This folder tests features specfic to OPTION VERSION "SYSTEM/360". -This folder contains example programs from the following references: - -"BASIC Language Reference Manual" -by International Business Machines Corporation -(c) 1970, International Business Machines Corporation -http://bitsavers.org/pdf/ibm/360/os/tso/ -GC28-6837-0_BASIC_Language_Ref_Man_Jun70.pdf - -"IBM System/360 0S(TS0) ITF:BASIC Terminal User's Guide" -by International Business Machines Corporation -(c) 1971, International Business Machines Corporation -http://bitsavers.org/pdf/ibm/360/os/tso/ -SC28-6840-0_TSO_ITF_BASIC_Terminal_UG_Apr71.pdf - -"CALL/360: BASIC Reference Handbook" -by International Business Machines Corporation -(c) 1970, The Service Bureau Corporation -http://bitsavers.trailing-edge.com/pdf/ibm/360/os/ -call_360/CALL_360_BASIC_Reference_Handbook_1970.pdf diff --git a/bwbtest/I70/00test.sh b/bwbtest/I70/00test.sh deleted file mode 100644 index e58bca8..0000000 --- a/bwbtest/I70/00test.sh +++ /dev/null @@ -1,48 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/I70 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile I70.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- -testcase CHAIN -testcase DET1 -testcase DET2 -testcase GOSUB_ON -testcase GOTO_ON -testcase USE -testcase EXT_1 - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- - diff --git a/bwbtest/I70/01test.sh b/bwbtest/I70/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/I70/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/I70/02ok.sh b/bwbtest/I70/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/I70/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/I70/99test.sh b/bwbtest/I70/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/I70/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/I70/CHAIN.BAS b/bwbtest/I70/CHAIN.BAS deleted file mode 100644 index b50a7ed..0000000 --- a/bwbtest/I70/CHAIN.BAS +++ /dev/null @@ -1,10 +0,0 @@ - 100 REM Purpose: Verify CHAIN program$, parameter$ - 120 REM Author: Howard Wulf, AF5NE - 130 REM Date: 2015-12-03 - 140 REM Note: OPTION VERSION SYSTEM-360 - 150 REM - 200 print "This is is calling program" - 210 let X$ = "some parameter value" - 220 chain "USE.BAS", X$ - 230 print "Still in the calling program" - 999 end diff --git a/bwbtest/I70/CHAIN.run b/bwbtest/I70/CHAIN.run deleted file mode 100644 index 73e39e3..0000000 --- a/bwbtest/I70/CHAIN.run +++ /dev/null @@ -1,3 +0,0 @@ -This is is calling program -This is is called program -Parameter is [some parameter value] diff --git a/bwbtest/I70/DEBUG.OUT.C360 b/bwbtest/I70/DEBUG.OUT.C360 deleted file mode 100644 index 0267c06..0000000 --- a/bwbtest/I70/DEBUG.OUT.C360 +++ /dev/null @@ -1,20316 +0,0 @@ -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_execline -bwb_clrexec -bwb_decexec -mark_preset_variables -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -execute_program -bwb_strlen -bwb_fload -is_empty_string -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_eol -buff_skip_eol -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_eol -buff_skip_eol -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_eol -buff_skip_eol -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_eol -buff_skip_eol -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_eol -buff_skip_eol -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -is_empty_string -bwb_RUN -bwb_clrexec -bwb_incexec -line_is_eol -buff_is_eol -buff_skip_spaces -var_CLEAR -bwb_scan -UserFunction_clear -bwx_Error -bwb_strcpy -SetOnError -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -100 REM PURPOSE: VERIFY 'ALPHABET EXTENDERS' -bwb_REM -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -110 REM AUTHOR: HOWARD WULF, AF5NE -bwb_REM -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -120 REM DATE: 2017-03-23 -bwb_REM -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -130 REM NOTE: OPTION VERSION "CALL/360" -bwb_REM -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -140 REM -bwb_REM -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -145 PRINT "$-STRING", " #-NUMBER", " @-NUMBER" -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper - - -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces - - -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -150 LET $ = "A" -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_strcpy -var_nametype -Char_to_TypeCode -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -str_btob -bwb_memcpy -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -160 LET # = 2 -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_strcpy -var_nametype -Char_to_TypeCode -VarTypeIndex -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -170 LET @ = 3 -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_strcpy -var_nametype -Char_to_TypeCode -VarTypeIndex -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -180 PRINT $, 0+#, @ -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -OP_ADD -both_number_type -is_number_type -is_number_type -both_integer_type -is_integer_type -math_type -max_number_type -min_value_type -bwb_rint -max_number_type -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -190 LET $ = $ + $ -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -OP_ADD -both_number_type -is_number_type -both_string_type -is_string_type -is_string_type -OP_AMP -bwb_memcpy -bwb_memcpy -bwb_memcpy -bwb_memset -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -str_btob -bwb_memcpy -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -200 LET # = # + # -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -OP_ADD -both_number_type -is_number_type -is_number_type -both_integer_type -is_integer_type -math_type -max_number_type -min_value_type -bwb_rint -max_number_type -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -210 LET @ = @ + @ -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -OP_ADD -both_number_type -is_number_type -is_number_type -both_integer_type -is_integer_type -math_type -max_number_type -min_value_type -bwb_rint -max_number_type -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -220 PRINT $, #, @ -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -230 PRINT "$$-STRING", " ##-NUMBER", " @@-NUMBER" -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -240 LET $$ = "AB" -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_strcpy -var_nametype -Char_to_TypeCode -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -str_btob -bwb_memcpy -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -250 LET ## = 11 -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_strcpy -var_nametype -Char_to_TypeCode -VarTypeIndex -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -260 LET @@ = 99 -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_strcpy -var_nametype -Char_to_TypeCode -VarTypeIndex -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -270 PRINT $$, ##, @@ -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -280 LET $$ = $$ + $$ -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -OP_ADD -both_number_type -is_number_type -both_string_type -is_string_type -is_string_type -OP_AMP -bwb_memcpy -bwb_memcpy -bwb_memcpy -bwb_memset -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -str_btob -bwb_memcpy -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -290 LET ## = ## + ## -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -OP_ADD -both_number_type -is_number_type -is_number_type -both_integer_type -is_integer_type -math_type -max_number_type -min_value_type -bwb_rint -max_number_type -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -300 LET @@ = @@ + @@ -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -OP_ADD -both_number_type -is_number_type -is_number_type -both_integer_type -is_integer_type -math_type -max_number_type -min_value_type -bwb_rint -max_number_type -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -310 PRINT $$, ##, @@ -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -320 PRINT "@#$-STRING", "#$@-NUMBER", "$@#-NUMBER" -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -330 LET @#$ = "AAA" -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_strcpy -var_nametype -Char_to_TypeCode -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -str_btob -bwb_memcpy -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -340 LET #$@ = 222 -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_strcpy -var_nametype -Char_to_TypeCode -VarTypeIndex -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -350 LET $@# = 333 -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_strcpy -var_nametype -Char_to_TypeCode -VarTypeIndex -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -360 PRINT ""; @#$, #$@, $@# -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -370 LET @#$ = @#$ + @#$ -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -OP_ADD -both_number_type -is_number_type -both_string_type -is_string_type -is_string_type -OP_AMP -bwb_memcpy -bwb_memcpy -bwb_memcpy -bwb_memset -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -str_btob -bwb_memcpy -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -380 LET #$@ = #$@ + #$@ -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -OP_ADD -both_number_type -is_number_type -is_number_type -both_integer_type -is_integer_type -math_type -max_number_type -min_value_type -bwb_rint -max_number_type -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -390 LET $@# = $@# + $@# -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -OP_ADD -both_number_type -is_number_type -is_number_type -both_integer_type -is_integer_type -math_type -max_number_type -min_value_type -bwb_rint -max_number_type -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -400 PRINT ""; @#$, #$@, $@# -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -FormatBasicNumber -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_isalpha -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -CountDigits -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isalpha -bwb_chartype -CleanNumericString -bwb_strchr -bwb_strchr -bwb_strchr -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -999 END -bwb_END -line_skip_eol -buff_skip_eol -bwx_STOP -break_handler -bwb_clrexec -bwb_decexec -SetOnError -My->stack_head == NULL -bwb_mainloop -bwx_terminate diff --git a/bwbtest/I70/DEBUG.OUT.S360 b/bwbtest/I70/DEBUG.OUT.S360 deleted file mode 100644 index 931d1c1..0000000 --- a/bwbtest/I70/DEBUG.OUT.S360 +++ /dev/null @@ -1,11836 +0,0 @@ -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_execline -bwb_clrexec -bwb_decexec -mark_preset_variables -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -execute_program -bwb_strlen -bwb_fload -is_empty_string -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_eol -buff_skip_eol -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_eol -buff_skip_eol -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_eol -buff_skip_eol -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_eol -buff_skip_eol -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -line_skip_eol -buff_skip_eol -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -bwb_strlen -bwb_strlen -bwb_strcat -bwb_strchr -bwb_strcpy -bwb_strcat -bwb_strchr -bwb_strcpy -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -is_empty_string -bwb_strnicmp -bwb_toupper -bwb_toupper -bwb_ladd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -FixQuotes -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -bwb_strlen -ImportClassicIfThenElse -bwb_isgraph -bwb_chartype -bwb_isgraph -bwb_chartype -FindClassicStatementEnd -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strchr -is_empty_string -buff_read_line_number -buff_skip_spaces -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -bwb_isdigit -bwb_chartype -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_isprint -bwb_chartype -bwb_strcpy -bwb_strchr -bwb_strlen -bwb_strcpy -line_start -line_skip_spaces -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -char_is_varnext -Char_to_TypeCode -line_skip_spaces -buff_skip_spaces -is_cmd -VarTypeIndex -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_toupper -bwb_strcpy -line_read_keyword -buff_read_keyword -buff_skip_spaces -char_is_varfirst -CleanLine -is_empty_string -bwb_strchr -bwb_strchr -is_empty_string -bwb_RUN -bwb_clrexec -bwb_incexec -line_is_eol -buff_is_eol -buff_skip_spaces -var_CLEAR -bwb_scan -UserFunction_clear -bwx_Error -bwb_strcpy -SetOnError -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -100 REM PURPOSE: VERIFY 'ALPHABET EXTENDERS' -bwb_REM -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -110 REM AUTHOR: HOWARD WULF, AF5NE -bwb_REM -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -120 REM DATE: 2017-03-23 -bwb_REM -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -130 REM NOTE: OPTION VERSION "CALL/360" -bwb_REM -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -140 REM -bwb_REM -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -145 PRINT "$-STRING", " #-NUMBER", " @-NUMBER" -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper - - -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces - - -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -150 LET $ = "A" -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_strcpy -var_nametype -Char_to_TypeCode -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -str_btob -bwb_memcpy -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -160 LET # = 2 -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_strcpy -var_nametype -Char_to_TypeCode -VarTypeIndex -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -170 LET @ = 3 -bwb_memset -bwb_LET -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_strcpy -var_nametype -Char_to_TypeCode -VarTypeIndex -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_EqualChar -buff_skip_EqualChar -buff_skip_spaces -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -line_is_eol -buff_is_eol -buff_skip_spaces -line_read_scalar -buff_read_scalar -buff_skip_spaces -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -var_set -dim_check -dim_unit -line_skip_comma -buff_skip_comma -buff_skip_spaces -line_skip_eol -buff_skip_eol -line_is_eol -buff_is_eol -buff_skip_spaces -bwb_mainloop -bwb_execline -line_skip_spaces -buff_skip_spaces -bwb_vector ----------------------------------------------------------------- -180 PRINT $, 0+#, @ -bwb_PRINT -internal_print -line_skip_FilenumChar -buff_skip_FilenumChar -buff_skip_spaces -line_skip_char -buff_skip_char -buff_skip_spaces -line_skip_word -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -UserFunction_name -IntrinsicFunction_name -VarTypeIndex -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -char_is_varnext -bwb_isalnum -bwb_chartype -Char_to_TypeCode -buff_peek_LparenChar -buff_skip_spaces -var_find -is_empty_string -var_islocal -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -bwb_stricmp -bwb_toupper -bwb_toupper -var_get -dim_check -dim_unit -bwb_memset -str_btob -bwb_memcpy -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -print_using_variant -xputs -bwb_strlen -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -xputc1 -xputc2 -line_is_eol -buff_is_eol -buff_skip_spaces -line_skip_CommaChar -buff_skip_CommaChar -buff_skip_spaces -line_skip_SemicolonChar -buff_skip_SemicolonChar -buff_skip_spaces -buff_read_using -buff_skip_word -buff_skip_spaces -buff_is_eol -buff_skip_spaces -bwb_strlen -bwb_strnicmp -bwb_toupper -bwb_toupper -line_read_expression -buff_read_expression -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_expr -bwb_memset -buff_read_primary -buff_skip_spaces -buff_is_eol -buff_skip_spaces -buff_skip_LparenChar -buff_skip_spaces -buff_read_operator -bwb_isalpha -bwb_chartype -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -bwb_strlen -buff_skip_char -buff_skip_spaces -buff_read_string_constant -buff_read_hexadecimal_constant -buff_read_octal_constant -buff_read_internal_constant -buff_read_decimal_constant -bwb_isdigit -bwb_chartype -buff_read_function -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -buff_read_variable -buff_read_varname -buff_skip_spaces -char_is_varfirst -bwb_isalpha -bwb_chartype -bwx_Error -bwb_strcpy -bwb_strlen -bwb_strcpy -bwx_Error -GetOnError -Syntax error -ResetConsoleColumn -bwb_clrexec -bwb_decexec -SetOnError -My->stack_head == NULL -bwb_mainloop -bwx_terminate diff --git a/bwbtest/I70/DET1.BAS b/bwbtest/I70/DET1.BAS deleted file mode 100644 index ae4dde3..0000000 --- a/bwbtest/I70/DET1.BAS +++ /dev/null @@ -1,18 +0,0 @@ - 100 rem Purpose: Verify DET( matrix ) function - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-12-05 - 130 rem Note: OPTION VERSION SYSTEM-370 - 140 rem - 200 option base 1 - 210 dim A(2,2) - 220 mat read A - 230 mat print A - 300 REM determinant of a specified matrix - 310 let C = DET( A ) - 320 print "DET( A )=";C - 400 REM last determinant calculated - 410 let D = DET - 420 print "DET =";D - 800 data 1,2,3,4 - 999 END - diff --git a/bwbtest/I70/DET1.run b/bwbtest/I70/DET1.run deleted file mode 100644 index c0696cc..0000000 --- a/bwbtest/I70/DET1.run +++ /dev/null @@ -1,4 +0,0 @@ - 1 2 - 3 4 -DET( A )=-2 -DET =-2 diff --git a/bwbtest/I70/DET2.BAS b/bwbtest/I70/DET2.BAS deleted file mode 100644 index eedde21..0000000 --- a/bwbtest/I70/DET2.BAS +++ /dev/null @@ -1,16 +0,0 @@ - 100 rem Purpose: Verify DET function - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2015-12-05 - 130 rem Note: OPTION VERSION SYSTEM-370 - 140 rem - 200 option base 1 - 210 dim A(2,2), B(2,2) - 220 mat read A - 230 mat print A - 500 REM determinant of last inverted matrix - 510 mat B = inv( A ) - 520 let D = DET - 530 print "DET =";D - 800 data 1,2,3,4 - 999 END - diff --git a/bwbtest/I70/DET2.run b/bwbtest/I70/DET2.run deleted file mode 100644 index eaad3ea..0000000 --- a/bwbtest/I70/DET2.run +++ /dev/null @@ -1,3 +0,0 @@ - 1 2 - 3 4 -DET =-2 diff --git a/bwbtest/I70/EXT_1.BAS b/bwbtest/I70/EXT_1.BAS deleted file mode 100644 index c8ea0ea..0000000 --- a/bwbtest/I70/EXT_1.BAS +++ /dev/null @@ -1,37 +0,0 @@ - 100 REM PURPOSE: VERIFY 'ALPHABET EXTENDERS' - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-03-23 - 130 REM NOTE: OPTION VERSION "CALL/360" - 135 REM - 140 LET $ = "A" - 150 LET # = 2 - 160 LET @ = 3 - 165 VARS - 170 PRINT "$-STRING", " #-NUMBER", " @-NUMBER" - 180 PRINT $, #, @ - 190 LET $ = $ + $ - 200 LET # = # + # - 210 LET @ = @ + @ - 220 PRINT $, #, @ - 230 LET $$ = "AB" - 240 LET ## = 11 - 250 LET @@ = 99 - 255 VARS - 260 PRINT "$$-STRING", " ##-NUMBER", " @@-NUMBER" - 270 PRINT $$, ##, @@ - 280 LET $$ = $$ + $$ - 290 LET ## = ## + ## - 300 LET @@ = @@ + @@ - 310 PRINT $$, ##, @@ - 320 LET @#$ = "AAA" - 330 LET #$@ = 222 - 340 LET $@# = 333 - 345 VARS - 350 PRINT "@#$-STRING", "#$@-NUMBER", "$@#-NUMBER" - 360 PRINT @#$, #$@, $@# - 370 LET @#$ = @#$ + @#$ - 380 LET #$@ = #$@ + #$@ - 390 LET $@# = $@# + $@# - 400 PRINT @#$, #$@, $@# - 999 END - diff --git a/bwbtest/I70/EXT_1.run b/bwbtest/I70/EXT_1.run deleted file mode 100644 index 593efc7..0000000 --- a/bwbtest/I70/EXT_1.run +++ /dev/null @@ -1,30 +0,0 @@ -Name Type Dims Value -@ NUMBER 0 3 -# NUMBER 0 2 -$ STRING 0 A -$-STRING #-NUMBER @-NUMBER -A 2 3 -AA 4 6 -Name Type Dims Value -@@ NUMBER 0 99 -## NUMBER 0 11 -$$ STRING 0 AB -@ NUMBER 0 6 -# NUMBER 0 4 -$ STRING 0 AA -$$-STRING ##-NUMBER @@-NUMBER -AB 11 99 -ABAB 22 198 -Name Type Dims Value -$@# NUMBER 0 333 -#$@ NUMBER 0 222 -@#$ STRING 0 AAA -@@ NUMBER 0 198 -## NUMBER 0 22 -$$ STRING 0 ABAB -@ NUMBER 0 6 -# NUMBER 0 4 -$ STRING 0 AA -@#$-STRING #$@-NUMBER $@#-NUMBER -AAA 222 333 -AAAAAA 444 666 diff --git a/bwbtest/I70/GOSUB_ON.BAS b/bwbtest/I70/GOSUB_ON.BAS deleted file mode 100644 index f2ce251..0000000 --- a/bwbtest/I70/GOSUB_ON.BAS +++ /dev/null @@ -1,19 +0,0 @@ - 100 REM Purpose: Verify GOTO line [,...] ON expression - 120 REM Author: Howard Wulf, AF5NE - 130 REM Date: 2015-12-03 - 140 REM Note: OPTION VERSION SYSTEM-360 - 150 REM - 200 input "X=", X - 210 X = INT( X ) - 220 gosub 1100,1200,1300 on X - 230 if X >= 1 and X <= 3 goto 200 - 240 print "None of the above" - 250 if X < 0 goto 9999 - 260 goto 200 - 1100 print "ONE",X - 1110 return - 1200 print "TWO",X - 1210 return - 1300 print "THREE",X - 1310 return - 9999 end diff --git a/bwbtest/I70/GOSUB_ON.INP b/bwbtest/I70/GOSUB_ON.INP deleted file mode 100644 index c82e640..0000000 --- a/bwbtest/I70/GOSUB_ON.INP +++ /dev/null @@ -1,8 +0,0 @@ -1 -9 -2 -0 -8 -3 -4 --1 diff --git a/bwbtest/I70/GOSUB_ON.run b/bwbtest/I70/GOSUB_ON.run deleted file mode 100644 index eb20d26..0000000 --- a/bwbtest/I70/GOSUB_ON.run +++ /dev/null @@ -1,16 +0,0 @@ -X=1 -ONE 1 -X=9 -None of the above -X=2 -TWO 2 -X=0 -None of the above -X=8 -None of the above -X=3 -THREE 3 -X=4 -None of the above -X=-1 -None of the above diff --git a/bwbtest/I70/GOTO_ON.BAS b/bwbtest/I70/GOTO_ON.BAS deleted file mode 100644 index 4a75ded..0000000 --- a/bwbtest/I70/GOTO_ON.BAS +++ /dev/null @@ -1,17 +0,0 @@ - 100 REM Purpose: Verify GOTO line [,...] ON expression - 120 REM Author: Howard Wulf, AF5NE - 130 REM Date: 2015-12-03 - 140 REM Note: OPTION VERSION SYSTEM-360 - 150 REM - 200 input "X=", X - 210 goto 1100,1200,1300 on X - 220 print "None of the above" - 230 if X < 0 goto 9999 - 240 goto 200 - 1100 print "ONE",X - 1110 goto 200 - 1200 print "TWO",X - 1210 goto 200 - 1300 print "THREE",X - 1310 goto 200 - 9999 end diff --git a/bwbtest/I70/GOTO_ON.INP b/bwbtest/I70/GOTO_ON.INP deleted file mode 100644 index c82e640..0000000 --- a/bwbtest/I70/GOTO_ON.INP +++ /dev/null @@ -1,8 +0,0 @@ -1 -9 -2 -0 -8 -3 -4 --1 diff --git a/bwbtest/I70/GOTO_ON.run b/bwbtest/I70/GOTO_ON.run deleted file mode 100644 index eb20d26..0000000 --- a/bwbtest/I70/GOTO_ON.run +++ /dev/null @@ -1,16 +0,0 @@ -X=1 -ONE 1 -X=9 -None of the above -X=2 -TWO 2 -X=0 -None of the above -X=8 -None of the above -X=3 -THREE 3 -X=4 -None of the above -X=-1 -None of the above diff --git a/bwbtest/I70/I70.PRO b/bwbtest/I70/I70.PRO deleted file mode 100644 index c65158c..0000000 --- a/bwbtest/I70/I70.PRO +++ /dev/null @@ -1,5 +0,0 @@ -OPTION VERSION "CALL/360" -REM OPTION VERSION "SYSTEM/360" -REM OPTION VERSION "SYSTEM/370" -REM maintainer debug on -option enable command "vars" diff --git a/bwbtest/I70/PAD80.BAS b/bwbtest/I70/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/I70/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/I70/PAD80.INP b/bwbtest/I70/PAD80.INP deleted file mode 100644 index f495638..0000000 --- a/bwbtest/I70/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA EXT_1.OUT, EXT_1.80 diff --git a/bwbtest/I70/PAD80.PRO b/bwbtest/I70/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/I70/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/I70/USE.BAS b/bwbtest/I70/USE.BAS deleted file mode 100644 index 7f2638b..0000000 --- a/bwbtest/I70/USE.BAS +++ /dev/null @@ -1,9 +0,0 @@ - 100 REM Purpose: Verify USE parameter$ - 120 REM Author: Howard Wulf, AF5NE - 130 REM Date: 2015-12-03 - 140 REM Note: OPTION VERSION SYSTEM-360 - 150 REM Note: this is called from CHAIN.BAS - 200 print "This is is called program" - 210 use Z$ - 220 print "Parameter is [";Z$;"]" - 999 end diff --git a/bwbtest/I70/USE.run b/bwbtest/I70/USE.run deleted file mode 100644 index 7ede86e..0000000 --- a/bwbtest/I70/USE.run +++ /dev/null @@ -1,2 +0,0 @@ -This is is called program -Parameter is [] diff --git a/bwbtest/M80/00readme.txt b/bwbtest/M80/00readme.txt deleted file mode 100644 index a8ac3bd..0000000 --- a/bwbtest/M80/00readme.txt +++ /dev/null @@ -1,15 +0,0 @@ -These programs appear to work, and are part of regression testing. - -Changes made: -a) add missing semicolon/comma in PRINT statements -b) change array names so they were not identical to scalar variable names -c) add spaces around reserved words -d) CASSETTE is not supported, use DISKETTE instead -e) add missing THEN after IF -f) change PRINT #1,X,Y to WRITE #1,X,Y -g) add exit for autmated testing - -These programs were downloaded from -http://www.classiccmp.org/cpmarchives/cpm/Software/WalnutCD/cpm/basic/ - -EOF diff --git a/bwbtest/M80/00test.sh b/bwbtest/M80/00test.sh deleted file mode 100644 index 36a2241..0000000 --- a/bwbtest/M80/00test.sh +++ /dev/null @@ -1,60 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-05-11 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/CPM -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile M80.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- -testcase 555-ic -testcase 567-ic -testcase airmiles -testcase astrnmy2 -testcase atten -testcase audiolab -testcase bigcal2 -testcase budget -testcase deprec -testcase finance -testcase hurricpm -testcase ic-timer -testcase interest -testcase intrate -testcase loan2 -testcase log10k -testcase mortgage -# testcase ohmslaw -testcase rc5 -testcase satelite -testcase xformer -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/M80/01test.sh b/bwbtest/M80/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/M80/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/M80/02ok.sh b/bwbtest/M80/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/M80/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/M80/555-ic.INP b/bwbtest/M80/555-ic.INP deleted file mode 100644 index 83b33d2..0000000 --- a/bwbtest/M80/555-ic.INP +++ /dev/null @@ -1 +0,0 @@ -1000 diff --git a/bwbtest/M80/555-ic.bas b/bwbtest/M80/555-ic.bas deleted file mode 100644 index bdfff87..0000000 --- a/bwbtest/M80/555-ic.bas +++ /dev/null @@ -1,66 +0,0 @@ -10 PRINT CHR$(11) : REM SCREEN CLEAR -20 DIM A(25),R(77) -30 PRINT "THIS PROGRAM AS DESIGNED TO SELECT THE" -40 PRINT "PROPER VALUES OF RESISTANCE AND CAPA-" -50 PRINT "CITANCE FOR THE PROPER OPERATION OF THE" -60 PRINT "555 TIMER-OSCILLATOR." -70 PRINT -80 PRINT "ENTER THE DESIRED FREQUENCY OF OSCILLATION( hz )" -90 INPUT F -100 PRINT CHR$(11) -110 PRINT -120 S=1 -130 FOR I=1 TO 13 -140 READ A(I) -150 NEXT I -160 PRINT -170 PRINT "THE FOLLOWING VALUES OF RESISTANCE" -180 PRINT "AND CAPACITANCE DETERMINE THE FRE-" -190 PRINT "QUENCY OF ";F;"HZ." -191 PRINT" ---------------------" -192 PRINT" 1-| GND VCC |-8" -193 PRINT" | |" -194 PRINT" 2-| TRIGGER DISCHG |-7 R(b) TO VCC" -195 PRINT" | 555-IC |" -196 PRINT" 3-| OUTPUT THRESHOLD|-6 R(a) TO 7, C1 TO GND" -197 PRINT" | |" -198 PRINT" 4-| RESET CONT. VOLT|-5" -199 PRINT" --------------------- " -200 Z=1 -210 B=1 -220 FOR J=2 TO 7 -230 FOR I=3 TO 13 -240 R(Z)=A(I)*10^J -250 R(B)=R(Z) -260 Z=Z+1 -270 B=B+1 -280 NEXT I -290 NEXT J -300 FOR Z=1 TO 66 -310 FOR B=1 TO 66 -320 C=1.44/((R(Z)+2*R(B))*F) -330 IF C<10^(-9) THEN 430 -340 FOR H=1 TO 9 -350 D=C/10^(-H) -360 IF 1>D THEN 380 -370 IF D<10 THEN 390 -380 NEXT H -390 FOR I=1 TO 6 -400 IF .995*A(I)>D THEN 420 -410 IF D<1.005*A(I) THEN 460 -420 NEXT I -430 NEXT B -440 NEXT Z -450 GOTO 560 -460 PRINT -470 PRINT -475 FOR TIME=1 TO 10:PRINT CHR$(7);:NEXT TIME -480 PRINT "SET";S;":" -490 PRINT "R(A)=";R(Z);"OHMS" -500 PRINT "R(B)=";R(B);"OHMS" -510 PRINT "C=";1E+06*C;"UF" -520 S=S+1 -530 PRINT -540 GOTO 440 -550 DATA 5.0,10.0,1.0,2.2,3.3,4.7,1.2,1.5,1.8,3.9,5.6,6.2,8.2 -560 END diff --git a/bwbtest/M80/555-ic.run b/bwbtest/M80/555-ic.run deleted file mode 100644 index ed83fe4..0000000 --- a/bwbtest/M80/555-ic.run +++ /dev/null @@ -1,156 +0,0 @@ - -THIS PROGRAM AS DESIGNED TO SELECT THE -PROPER VALUES OF RESISTANCE AND CAPA- -CITANCE FOR THE PROPER OPERATION OF THE -555 TIMER-OSCILLATOR. - -ENTER THE DESIRED FREQUENCY OF OSCILLATION( hz ) -? 1000 - - - -THE FOLLOWING VALUES OF RESISTANCE -AND CAPACITANCE DETERMINE THE FRE- -QUENCY OF 1000 HZ. - --------------------- - 1-| GND VCC |-8 - | | - 2-| TRIGGER DISCHG |-7 R(b) TO VCC - | 555-IC | - 3-| OUTPUT THRESHOLD|-6 R(a) TO 7, C1 TO GND - | | - 4-| RESET CONT. VOLT|-5 - --------------------- - - - SET 1 : -R(A)= 470 OHMS -R(B)= 1200 OHMS -C= .501742 UF - - - - SET 2 : -R(A)= 560 OHMS -R(B)= 15000 OHMS -C= 4.71204E-2 UF - - - - SET 3 : -R(A)= 620 OHMS -R(B)= 15000 OHMS -C= 4.70281E-2 UF - - - - SET 4 : -R(A)= 1000 OHMS -R(B)= 220. OHMS -C= 1 UF - - - - SET 5 : -R(A)= 4700 OHMS -R(B)= 12000 OHMS -C= 5.01742E-2 UF - - - - SET 6 : -R(A)= 1200 OHMS -R(B)= 120 OHMS -C= 1 UF - - - - SET 7 : -R(A)= 5600 OHMS -R(B)= 470 OHMS -C= .220183 UF - - - - SET 8 : -R(A)= 6200 OHMS -R(B)= 180 OHMS -C= .219512 UF - - - - SET 9 : -R(A)= 10000 OHMS -R(B)= 2200 OHMS -C= .1 UF - - - - SET 10 : -R(A)= 47000 OHMS -R(B)= 120000 OHMS -C= 5.01742E-3 UF - - - - SET 11 : -R(A)= 12000 OHMS -R(B)= 1200 OHMS -C= .1 UF - - - - SET 12 : -R(A)= 56000 OHMS -R(B)= 4700 OHMS -C= 2.20183E-2 UF - - - - SET 13 : -R(A)= 62000 OHMS -R(B)= 1800 OHMS -C= 2.19512E-2 UF - - - - SET 14 : -R(A)= 100000 OHMS -R(B)= 22000 OHMS -C= .01 UF - - - - SET 15 : -R(A)= 120000 OHMS -R(B)= 12000 OHMS -C= .01 UF - - - - SET 16 : -R(A)= 560000 OHMS -R(B)= 47000 OHMS -C= 2.20183E-3 UF - - - - SET 17 : -R(A)= 620000 OHMS -R(B)= 18000 OHMS -C= 2.19512E-3 UF - - - - SET 18 : -R(A)= 1.E+6 OHMS -R(B)= 220000. OHMS -C= .001 UF - - - - SET 19 : -R(A)= 1.2E+6 OHMS -R(B)= 120000 OHMS -C= .001 UF - diff --git a/bwbtest/M80/567-ic.INP b/bwbtest/M80/567-ic.INP deleted file mode 100644 index 83b33d2..0000000 --- a/bwbtest/M80/567-ic.INP +++ /dev/null @@ -1 +0,0 @@ -1000 diff --git a/bwbtest/M80/567-ic.bas b/bwbtest/M80/567-ic.bas deleted file mode 100644 index 9562e01..0000000 --- a/bwbtest/M80/567-ic.bas +++ /dev/null @@ -1,50 +0,0 @@ -10 PRINT CHR$(11) : REM SCREEN CLEAR -20 DIM A(25),R(77) -30 PRINT "THIS PROGRAM IS DESIGNED TO SELECT THE" -40 PRINT "PROPER VALUES OF RESISTANCE AND CAPA-" -50 PRINT "CITANCE FOR THE PROPER OPERATION OF THE" -60 PRINT "567 TONE DECODER." -70 PRINT -80 PRINT "ENTER THE DESIRED FREQUENCY OF OPERATION" -90 INPUT F -100 PRINT CHR$(11) -110 PRINT -120 S=1 -130 FOR I=1 TO 13 -140 READ A(I) -150 NEXT I -160 PRINT -170 PRINT "THE FOLLOWING VALUES OF RESISTANCE" -180 PRINT "AND CAPACITANCE DETERMINE THE FRE-" -190 PRINT "QUENCY OF";F;"HZ" -200 A=1 -210 FOR J=2 TO 7 -220 FOR I=3 TO 13 -230 R(A)=A(I)*10 ^ J -240 A=A+1 -250 NEXT I -260 NEXT J -270 FOR A=1 TO 66 -280 C=1/(R(A)*F) -290 IF C<10^(-9) THEN 390 -300 FOR H=1 TO 9 -310 D=C/10^(-H) -320 IF 1>D THEN 340 -330 IF D<10 THEN 350 -340 NEXT H -350 FOR I=1 TO 6 -360 IF .95*A(I)>D THEN 380 -370 IF D<1.05*A(I) THEN 410 -380 NEXT I -390 NEXT A -400 GOTO 500 -410 PRINT -420 PRINT -430 PRINT "SET";S;":" -440 PRINT "R1 =";R(A);"OHMS" -450 PRINT "C1 =";1E+06*C;"UF" -460 S=S+1 -470 PRINT -480 GOTO 390 -490 DATA 5.0,10.0,1.0,2.2,3.3,4.7,1.2,1.5,1.8,3.9,5.6,6.2,8.2 -500 END diff --git a/bwbtest/M80/567-ic.run b/bwbtest/M80/567-ic.run deleted file mode 100644 index 43ed71e..0000000 --- a/bwbtest/M80/567-ic.run +++ /dev/null @@ -1,92 +0,0 @@ - -THIS PROGRAM IS DESIGNED TO SELECT THE -PROPER VALUES OF RESISTANCE AND CAPA- -CITANCE FOR THE PROPER OPERATION OF THE -567 TONE DECODER. - -ENTER THE DESIRED FREQUENCY OF OPERATION -? 1000 - - - -THE FOLLOWING VALUES OF RESISTANCE -AND CAPACITANCE DETERMINE THE FRE- -QUENCY OF 1000 HZ - - -SET 1 : -R1 = 100 OHMS -C1 = 10 UF - - - -SET 2 : -R1 = 220. OHMS -C1 = 4.54545 UF - - - -SET 3 : -R1 = 470 OHMS -C1 = 2.12766 UF - - - -SET 4 : -R1 = 1000 OHMS -C1 = 1 UF - - - -SET 5 : -R1 = 2200 OHMS -C1 = .454545 UF - - - -SET 6 : -R1 = 4700 OHMS -C1 = .212766 UF - - - -SET 7 : -R1 = 10000 OHMS -C1 = .1 UF - - - -SET 8 : -R1 = 22000 OHMS -C1 = 4.54545E-2 UF - - - -SET 9 : -R1 = 47000 OHMS -C1 = 2.12766E-2 UF - - - -SET 10 : -R1 = 100000 OHMS -C1 = .01 UF - - - -SET 11 : -R1 = 220000. OHMS -C1 = 4.54545E-3 UF - - - -SET 12 : -R1 = 470000 OHMS -C1 = 2.12766E-3 UF - - - -SET 13 : -R1 = 1.E+6 OHMS -C1 = .001 UF - diff --git a/bwbtest/M80/99test.sh b/bwbtest/M80/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/M80/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/M80/M80.PRO b/bwbtest/M80/M80.PRO deleted file mode 100644 index 8f320e7..0000000 --- a/bwbtest/M80/M80.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "MBASIC" diff --git a/bwbtest/M80/PAD80.BAS b/bwbtest/M80/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/M80/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/M80/PAD80.INP b/bwbtest/M80/PAD80.INP deleted file mode 100644 index a234e45..0000000 --- a/bwbtest/M80/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA xformer.OUT, xformer.80 diff --git a/bwbtest/M80/PAD80.PRO b/bwbtest/M80/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/M80/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/M80/airmiles.INP b/bwbtest/M80/airmiles.INP deleted file mode 100644 index 5e6330c..0000000 --- a/bwbtest/M80/airmiles.INP +++ /dev/null @@ -1,3 +0,0 @@ -DALLAS -PARIS -NO diff --git a/bwbtest/M80/airmiles.bas b/bwbtest/M80/airmiles.bas deleted file mode 100644 index 234d3f8..0000000 --- a/bwbtest/M80/airmiles.bas +++ /dev/null @@ -1,253 +0,0 @@ -10 'Tested on CP/M and Added CLS change 18 July 87, Jim Lill -20 'fixed misspellings and redundancies in data -30 CLS$=CHR$(26):' set for your terminal -40 C%=330:' THIS IS NUMBER OF CITIES -50 DIM A1%(26) -60 DIM N$(C%),LA(C%),LO(C%) -70 PI= 4 * ATN(1):'added in CP/M conversion -80 PI2=2 * PI -90 DG=360/PI2 '2 pi radians in 360 degrees -100 'arc cosine function using arc tangent & sin2(x) + cos2(x) = 1 -110 DEF FNACOS(V1)=ATN(SQR(1-V1*V1)/V1)*DG 'answer returned in degrees -120 'GREAT CIRCLE MILEAGE -130 'Note: If you wish to add cities to the data list, they -140 'must be inserted alphabetically (by first letter only), and the -150 'value of "C%" (in the first line) increased accordingly. -160 'The data for each city is the name, latitude and longitude. -170 'Latitude is +/- 90 degrees. Negative values are below the equator. -180 'Longitude is +/- 180 degrees. Negative values are East of Greenwich. -190 'Duplicate entries arise when data sources disagree on lat/long. -200 PRINT CLS$:PRINT "AIRLINE DISTANCES BETWEEN CITIES" -210 PRINT:PRINT:PRINT"If you are not sure of the spelling of a city," -220 PRINT "type in only the first letters of which you are confident." -230 PRINT -240 PRINT "All entries must be in UPPER CASE." -250 PRINT:PRINT "PLEASE WAIT FOR ARRAYS TO BE SET UP." -260 X%=1 'Index to letters of alphabet -270 FOR Y=1 TO C%: READ N$(Y),LA(Y),LO(Y) -280 'Find data positions for each letter of the alphabet -290 'Brackets search positions and makes database updates easier. -300 IF ASC(LEFT$(N$(Y),1))<=64+X% THEN GOTO 330 'First occurrence of new letter -310 A1%(X%)=Y-1:X%=X%+1 'Number of last city in the list with letter# X% -320 GOTO 300 'In case no cities started with X%-1 -330 NEXT Y -340 A1%(26)=C% 'guarantee last entry -350 PRINT -360 INPUT "TYPE IN CITY OF ORIGIN ";A$ -370 GOSUB 560 -380 IF C1%>0 THEN GOTO 400 -390 PRINT "NO CITY SELECTED":PRINT:GOTO 550 -400 LAT1=LA(C1%)/DG:LONG1=LO(C1%)/DG:L$=N$(C1%) -410 PRINT -420 INPUT "TYPE IN DESTINATION CITY NAME ";A$ -430 GOSUB 560 -440 IF C1%>0 THEN GOTO 460 -450 PRINT "NO CITY SELECTED":PRINT:GOTO 550 -460 LAT2=LA(C1%)/DG:LONG2=LO(C1%)/DG:M$=N$(C1%) -470 DAB=SIN(LAT1)*SIN(LAT2)+COS(LAT1)*COS(LAT2)*COS(LONG1-LONG2) -480 DIST=ABS(FNACOS(DAB)) -490 PRINT Z$ -500 PRINT"THE DISTANCE FROM ";L$;" TO ";M$;" IS:" -510 PRINT USING "#####,.#";DIST*69.113;:PRINT" STATUTE MILES "; -520 PRINT USING "#####,.#";DIST*60.0576;:PRINT" NAUTICAL MILES "; -530 PRINT USING "#####,.#";DIST*111.203;:PRINT" KILOMETERS" -540 PRINT -550 INPUT "RUN AGAIN? ",A$: IF LEFT$(A$,1)="Y" OR LEFT$(A$,1)="Y" THEN GOTO 350 ELSE END -560 'Subroutine to find the city's name. -570 T=ASC(LEFT$(A$,1))-64 'Number (1-26) of first letter of city name. -580 BOT%=A1%(T-1)+1:TOP%=A1%(T) -590 'First & last cities starting with this letter. -600 'A1%(T-1) is the last position of the letter before this one. -610 'Thus the next one, A1%(T-1)+1, must be the first one with this letter. -620 'Your version of Basic must allow A1%(0) to exist or this won't work -630 'when a city begins with "A". -640 IF LEN(A$)>1 THEN GOTO 720 'Go try and match spelling -650 FOR M%=BOT% TO TOP% 'For each city -660 TT=24*(M% MOD 3) -670 PRINT M%;N$(M%);TAB(TT); 'Print a list of name & number -680 NEXT M% -690 PRINT:PRINT "CHOOSE THE NUMBER OF THE CITY YOU WANT" -700 INPUT "ENTER 0, TO QUIT";C1% -710 RETURN -720 'If more than one letter is given, try to match spelling. -730 C1%=0:J=0 -740 FOR M%=BOT% TO TOP% -750 IF LEFT$(N$(M%),LEN(A$))=A$ THEN PRINT M%,N$(M%) :C1%=M%:J=J+1 -760 NEXT -770 IF J=1 THEN RETURN -780 IF C1%<>0 THEN GOTO 690 ELSE GOTO 650 -790 DATA ABILENE, 32.4514 , 99.7308, ACAPULCO, 16.85 , 99.9333 -800 DATA ADDIS ABABA, 9.05 ,-38.7 ,AKRON, 41.0833 , 81.5122 -810 DATA ALBANY, 42.6502 , 73.7502 ,ALBUQUERQUE, 33.0836 , 106.651 -820 DATA ALLENTOWN, 40.6031 , 75.4683 ,ALTOONA, 40.5153 , 78.4008 -830 DATA AMARILLO, 35.2075 , 101.834 ,AMSTERDAM, 52.35 ,-4.9 -840 DATA ANCHORAGE, 61.1667 , 149.983 ,ANKARA, 39.9167 ,-32.8333 -850 DATA ANN ARBOR, 42.2831 , 83.7478 ,ASHVILLE, 35.595 , 82.5572 -860 DATA ATHENS, 37.9667 ,-23.7333 ,ATLANTA, 33.6381 , 84.4278 -870 DATA AUGUSTA GA, 33.4722 , 81.9667 ,AUGUSTA ME, 44.3147 , 69.7747 -880 DATA AUSTIN, 30.2692 , 97.7436 ,BAKERSFIELD, 35.3753 , 119.022 -890 DATA BALBOA, 8.95 , 79.5667 ,BALTIMORE, 39.0175 , 76.67 -900 DATA BANGOR, 44.8036 , 68.7717 ,BARCELONA, 41.4167 ,-2.1667 -910 DATA BATON ROUGE, 30.4494 , 91.1833 ,BATTLE CREEK, 42.3161 , 85.18 -920 DATA BEAUMONT, 30.3467 , 94.1025 ,BELFAST, 54.6667 , 5.833 -930 DATA BELLINGHAM, 48.7594 , 122.467 ,BERKELEY, 37.8694 , 122.271 -940 DATA BERLIN, 52.5333 ,-13.0833 ,BERN, 46.95 ,-7.3333 -950 DATA BETHLEHEM, 40.6211 , 75.3761 ,BILLINGS, 45.7928 , 108.501 -960 DATA BILOXI, 30.3967 , 88.8833 ,BINGHAMTON, 42.2075 , 75.9794 -970 DATA BIRMINGHAM, 33.5169 , 86.81 ,BISMARCK, 46.8064 , 100.788 -980 DATA BLOOMINGTON, 40.4828 , 88.9933 ,BOGOTA, 4.6333 , 74.0833 -990 DATA BOISE, 43.6186 , 116.199 ,BOMBAY, 18.9333 ,-72.85 -1000 DATA BOSTON, 42.3642 , 71.0056 ,BOWLING GREEN, 36.9947 , 86.4425 -1010 DATA BRIDGEPORT, 41.1803 , 73.1894 ,BRISBANE,-27.5 ,-153 -1020 DATA BRISTOL, 36.5833 , 82.2 ,BROCKTON, 42.0839 , 71.0236 -1030 DATA BROWNSVILLE, 25.9019 , 97.4994 ,BRUSSELLS, 50.8333 ,-4.35 -1040 DATA BUFFALO, 42.9406 , 78.7325 ,BURLINGTON VT, 44.4761 , 73.2128 -1050 DATA BUTTE, 46.0183 , 112.536 ,CALCUTTA, 22.5833 ,-88.35 -1060 DATA CAMBRIDGE, 42.3669 , 71.1061 ,CAMDEN, 39.9447 , 75.1206 -1070 DATA CANBERRA,-35.3 ,-149.133 ,CANTON, 40.7972 , 81.3769 -1080 DATA CARACAS, 10.5833 , 60.9333 ,CARSON CITY, 39.1667 , 119.767 -1090 DATA CASABLANCA, 33.65 , 7.5833 ,CEDAR RAPIDS, 41.9669 , 91.6647 -1100 DATA CEDAR RAPIDS, 41.8844 , 91.7086 ,CHAMPAIGN, 40.0397 , 88.2781 -1110 DATA CHAMPAIGN, 40.118 , 88.2467 ,CHARLESTON SC, 32.8986 , 80.04 -1120 DATA CHARLESTON WV, 38.3731 , 81.5933 ,CHARLOTTE, 35.2147 , 80.9383 -1130 DATA CHATTANOOGA, 35.0447 , 85.3089 ,CHEYENNE, 41.1358 , 104.819 -1140 DATA CHICAGO, 41.9825 , 87.9069 ,CINCINNATI, 39.0478 , 84.6667 -1150 DATA CLARKSBURG, 39.2956 , 80.2289 ,CLEVELAND, 41.4103 , 81.8489 -1160 DATA COLORADO SPRINGS, 38.8353 , 104.821 ,COLUMBIA, 34.0006 , 81.0333 -1170 DATA COLUMBUS, 39.9947 , 82.8856 ,COLUMBUS GA, 32.4686 , 84.99 -1180 DATA CONCORD, 43.2061 , 71.5403 ,CORPUS CHRISTI, 27.7975 , 97.3959 -1190 DATA DAKAR, 14.6333 , 17.3333 ,DALLAS, 32.8967 , 97.0336 -1200 DATA DAVENPORT, 41.5219 , 90.5758 ,DAYTON, 39.9011 , 84.22 -1210 DATA DAYTONA BEACH, 29.2122 , 81.0194 ,DECATUR, 39.845 , 88.9464 -1220 DATA DECATUR, 39.8342 , 88.8681 ,DENVER, 39.7742 , 104.878 -1230 DATA DES MOINES, 41.4872 , 93.6167 ,DETROIT, 42.2153 , 83.3486 -1240 DATA DODGE CITY, 37.7547 , 100.019 ,DUBLIN, 53.3333 , 6.25 -1250 DATA DUBUQUE, 42.4986 , 90.6689 ,DULUTH, 46.7822 , 92.1067 -1260 DATA DURHAM, 36 , 78.9125 ,EAU CLAIRE, 44.8086 , 91.4969 -1270 DATA EL PASO, 31.78 , 106.486 ,ELIZABETH, 40.6619 , 74.2164 -1280 DATA ELMIRA, 42.1595 , 76.8925 ,ENID, 36.3944 , 97.8764 -1290 DATA EUGENE, 44.0544 , 123.092 ,EVANSVILLE, 37.9722 , 87.5725 -1300 DATA FAIRBANKS, 64.8 , 147.85 ,FARGO, 46.875 , 96.7883 -1310 DATA FLAGSTAFF, 35.1933 , 111.652 ,FLINT, 43.0139 , 83.6925 -1320 DATA FRANKFURT, 50.1 ,-8.6833 ,FRESNO, 36.7367 , 119.786 -1330 DATA FT. SMITH, 35.3861 , 94.4267 ,FT. WAYNE, 41.0725 , 85.1406 -1340 DATA FT. WORTH, 32.7486 , 97.3289 ,GADSDEN, 34.0158 , 86.0114 -1350 DATA GAINSVILLE, 29.6486 , 82.3219 ,GALLOP, 35.525 , 108.742 -1360 DATA GALVESTON, 29.3028 , 94.7953 ,GARY, 41.6033 , 87.3386 -1370 DATA GENOA, 44.4 ,-8.9333 ,GLASGOW, 55.8833 , 4.6833 -1380 DATA GRAND JUNCTION, 39.0683 , 108.565 ,GRAND RAPIDS, 42.9675 , 85.6703 -1390 DATA GREAT FALLS, 47.4925 , 111.306 ,GREEN BAY, 44.4106 , 88.0139 -1400 DATA GREENSBORO, 36.0714 , 79.7903 ,GREENVILLE, 34.8964 , 82.2186 -1410 DATA GUADALAJARA, 20.5 , 103.333 ,GUAYAQUIL,-2.5167 , 79.9 -1420 DATA GULFPORT, 30.3678 , 89.0933 ,HALIFAX, 44.6442 , 63.5761 -1430 DATA HARRISBURG, 40.2019 , 76.8831 ,HARTFORD, 41.7361 , 72.6506 -1440 DATA HARTFORD, 41.77 , 72.6803 ,HELENA, 46.4925 , 112.04 -1450 DATA HELSINKI, 60.1355 ,-25 ,HILO, 19.725 , 155.09 -1460 DATA HOLYOKE, 42.2081 , 72.61 ,HONOLULU, 21.3061 , 157.86 -1470 DATA HOUSTON, 29.9828 , 95.3458 ,HUNTINGTON, 38.3667 , 82.5581 -1480 DATA HUNTINGTON, 38.42 , 82.4425 ,HUNTSVILLE, 34.7383 , 86.5886 -1490 DATA INDIANAPOLIS, 39.7244 , 86.2833 ,ITHACA, 42.4903 , 76.4578 -1500 DATA JACKSON MI, 42.2453 , 84.4061 ,JACKSON MS, 32.2989 , 90.185 -1510 DATA JACKSONVILLE, 30.4925 , 81.69 ,JERSEY CITY, 40.7306 , 74.0656 -1520 DATA JERUSALEM, 31.7833 ,-35.2167 ,JOHANNESBURG,-26.1667 ,-28.0333 -1530 DATA JOPLIN, 37.0906 , 90.7031 ,JUNEAU, 58.3033 , 134.408 -1540 DATA KANSAS CITY, 39.2992 , 94.7178 ,KNOXVILLE, 35.9608 , 83.9186 -1550 DATA LAFAYETTE, 40.4197 , 86.8942 ,LANCASTER, 40.0403 , 76.3081 -1560 DATA LANSING, 42.7336 , 84.5542 ,LAREDO, 27.5061 , 99.5083 -1570 DATA LAS VEGAS, 36.08 , 115.152 -1580 DATA LENINGRAD, 59.9167 ,-30.4167 ,LEXINGTON, 38.0367 , 84.6058 -1590 DATA LIMA OH, 40.7431 , 84.1056 ,LIMA PERU,-12.1 , 77.05 -1600 DATA LINCOLN, 40.8164 , 96.7042 ,LISBON, 38.7333 , 9.1333 -1610 DATA LITTLE ROCK, 34.7303 , 92.2331 ,LIVERPOOL, 53.7167 , 1.6833 -1620 DATA LONDON, 51.5 , 0 ,LONG BEACH, 33.7706 , 118.188 -1630 DATA LOS ANGELES, 33.9419 , 118.406 ,LOUISVILLE, 38.1778 , 85.7364 -1640 DATA LOWELL, 42.6403 , 71.3206 ,LUBBOCK, 33.5847 , 101.843 -1650 DATA LUXEMBOURG, 49.6167 ,-6.1333 ,MACON, 32.8367 , 83.6267 -1660 DATA MADISON, 43.0731 , 89.3819 ,MADISON, 43.1389 , 89.3375 -1670 DATA MADRID, 40.4167 , 3.7167 ,MALAGA, 36.7167 , 4.4167 -1680 DATA MARSHALL, 32.55 , 94.3833 ,MEMPHIS, 35.05 , 89.9789 -1690 DATA MEXICO CITY, 19.4292 , 99.1167 ,MIAMI, 25.7944 , 80.2881 -1700 DATA MILWAUKEE, 42.948 , 87.8964 ,MINNEAPOLIS, 44.8842 , 93.215 -1710 DATA MINOT, 48.2358 , 101.294 ,MOBILE, 30.6933 , 88.0425 -1720 DATA MOLINE, 41.4486 , 90.5081 ,MONTERREY, 25.6667 , 100.333 -1730 DATA MONTGOMERY, 32.3758 , 86.3086 ,MONTIVIDEO,-17.55 , 51.1333 -1740 DATA MONTPELIER, 44.26 , 72.5781 ,MONTREAL, 45.5083 , 73.5556 -1750 DATA MOSCOW, 55.75 ,-37.7 ,NASHVILLE, 36.1267 , 86.6819 -1760 DATA NASSAU, 25.0833 , 77.3333 ,NATCHEZ, 31.5633 , 91.3917 -1770 DATA NEW BEDFORD, 42.6369 , 70.9281 -1780 DATA NEW DELHI, 28.6333 ,-77.2 ,NEW HAVEN, 41.3069 , 72.925 -1790 DATA NEW ORLEANS, 29.9928 , 90.2564 ,NEW YORK JFK, 40.6403 , 73.7783 -1800 DATA NEW YORK LGA, 40.7772 , 73.8742 ,NEWARK, 40.6931 , 74.1686 -1810 DATA NIAGARA FALLS, 43.0928 , 79.0572 ,NOME, 64.5 , 165.417 -1820 DATA NORFOLK, 36.8953 , 76.2 ,OAKLAND, 37.8008 , 122.265 -1830 DATA OGDEN, 41.2253 , 111.973 ,OKLAHOMA CITY, 35.3936 , 97.5997 -1840 DATA OMAHA, 41.3011 , 95.885 ,ORLANDO, 28.4317 , 81.3247 -1850 DATA OSLO, 59.9333 ,-10.75 ,OTTAWA, 45.4278 , 75.7125 -1860 DATA PADUCAH, 37.0869 , 88.5989 ,PALERMO, 38.1333 ,-13.3833 -1870 DATA PANAMA CITY FL, 30.1667 , 85.6833 ,PARIS, 48.8372 ,-2.3372 -1880 DATA PASADENA, 34.1456 , 118.145 ,PEKING, 39.9 ,-116.467 -1890 DATA PENSACOLA, 30.4142 , 87.2156 ,PEORIA, 40.6642 , 89.69 -1900 DATA PERTH,-31.9667 ,-115.817 ,PHILADELPHIA, 39.8703 , 75.2453 -1910 DATA PHOENIX, 33.4361 , 112.009 ,PIERRE, 44.3717 , 100.348 -1920 DATA PITTSBURGH, 40.4936 , 80.2317 ,POCATELLO, 42.8606 , 112.45 -1930 DATA PORT ARTHUR, 29.875 , 93.9375 -1940 DATA PORTLAND ME, 43.6592 , 70.2553 ,PORTLAND OR, 45.5183 , 122.676 -1950 DATA PRAGUE, 49.65 ,-13.8167 ,PROVIDENCE, 41.8256 , 71.4114 -1960 DATA PROVO, 40.235 , 111.657 ,PUEBLO, 38.2714 , 104.609 -1970 DATA QUEBEC, 46.8128 , 71.2056 ,QUITO,-.14 , 78.3 -1980 DATA RACINE, 42.7303 , 87.7867 ,RALEIGH, 35.7772 , 78.6392 -1990 DATA RAPID CITY, 44.0811 , 103.22 ,READING, 40.3358 , 75.9278 -2000 DATA RENO, 39.5242 , 119.811 -2010 DATA RICHMOND, 37.5375 , 77.4358 ,RIO DE JANEIRO,-22.8953 , 43.2228 -2020 DATA ROANOKE, 37.2703 , 79.9456 ,ROCHESTER NY, 43.1189 , 77.6728 -2030 DATA ROCKFORD, 42.2686 , 89.0967 ,ROME, 41.8833 ,-12.5 -2040 DATA SACREMENTO, 38.5825 , 121.495 ,SAGINAW, 43.4311 , 83.9347 -2050 DATA SALEM OR, 44.94 , 123.033 ,SALINA, 38.8433 , 97.6128 -2060 DATA SALT LAKE CITY, 40.7842 , 111.967 ,SAN ANGELO, 31.4608 , 100.434 -2070 DATA SAN ANTONIO, 29.5333 , 98.4697 ,SAN BERNADINO, 34.1083 , 117.291 -2080 DATA SAN DIEGO, 32.7336 , 117.187 ,SAN FRANCISCO, 37.6194 , 122.374 -2090 DATA SAN JOSE, 37.3614 , 121.927 ,SAN JUAN, 18.4414 , 66.0022 -2100 DATA SAN SALVADOR, 13.6667 , 89.1667 ,SANTA BARBABRA, 34.4217 , 119.699 -2110 DATA SANTA FE, 35.6864 , 105.936 ,SANTIAGO,-33.5 , 70.4 -2120 DATA SAO PAULA,-23.55 , 46.65 ,SARASOTA, 27.3347 , 82.5417 -2130 DATA SAVANNAH, 32.0783 , 81.0936 ,SCHENECTADY, 42.8117 , 73.9283 -2140 DATA SCRANTON, 41.4089 , 75.6628 ,SEATTLE, 47.4492 , 122.308 -2150 DATA SHANGHAI, 31.2167 ,-121.417 ,SHEBOYGAN, 43.7628 , 87.7144 -2160 DATA SHERIDAN, 44.7986 , 106.953 ,SHREVEPORT, 32.5128 , 93.7494 -2170 DATA SINGAPORE, 1.3333 ,-103.833 ,SIOUX CITY, 42.4961 , 96.075 -2180 DATA SIOUX FALLS, 43.5431 , 96.7264 ,SOUTH BEND, 41.6758 , 86.2503 -2190 DATA SPARTANBURG, 34.9508 , 81.935 ,SPOKANE, 47.6589 , 117.426 -2200 DATA SPRINGFIELD, 39.8433 , 89.6678 ,ST. JOSEPH, 39.7658 , 94.8506 -2210 DATA ST. LOUIS, 38.7481 , 90.3622 ,ST. PAUL, 44.9553 , 93.1019 -2220 DATA PETERSBURG, 27.7717 , 82.6386 ,STANFORD, 41.0525 , 73.54 -2230 DATA STOCKHOLM, 59.3333 ,-18.95 ,STOCKTON, 37.9583 , 121.288 -2240 DATA SYDNEY,-33.8667 ,-151.2 -2250 DATA SYRACUSE, 43.1122 , 76.1089 ,TACOMA, 47.2497 , 122.438 -2260 DATA TALLAHASSEE, 30.4417 , 84.2822 ,TAMPA, 27.9739 , 82.5328 -2270 DATA TEHERAN, 35.6667 ,-51.4333 ,TEL AVIV, 32.0833 ,-34.7667 -2280 DATA TENERIFE, 28.25 , 16.588 ,TERRE HAUTE, 39.4675 , 87.4072 -2290 DATA TEXARKANA, 33.43 , 94.0417 ,TOKYO, 35.75 ,-139.75 -2300 DATA TOLEDO, 41.6539 , 83.5442 ,TOPEKA, 39.0544 , 95.6731 -2310 DATA TORONTO, 43.6533 , 79.3833 ,TRENTON, 40.2206 , 74.7703 -2320 DATA TUCSON, 32.2208 , 110.969 ,TULSA, 36.1986 , 95.8878 -2330 DATA UTICA, 43.1033 , 75.2258 ,VANCOUVER, 49.275 , 123.125 -2340 DATA VICTORIA, 48.4278 , 123.363 ,WACO, 31.5533 , 97.1333 -2350 DATA WARSAW, 52.25 ,-21 ,WASHINGTON, 38.9436 , 77.4544 -2360 DATA WATERLOO, 42.4944 , 92.3389 ,WEST PALM BEACH, 26.71 , 80.0519 -2370 DATA WHEELING, 40.0675 , 80.7222 ,WHITE PLAINS, 41.0333 , 73.7633 -2380 DATA WHITEHORSE, 60.7208 , 136.054 ,WICHITA, 37.6517 , 97.4308 -2390 DATA WICHITA FALLS, 33.9094 , 98.4911 ,WILKESBARRE, 41.2422 , 75.8881 -2400 DATA WILMINGTON DE, 39.7461 , 75.5475 ,WILMINGTON NC, 34.2372 , 77.9494 -2410 DATA WINDSOR, 42.3306 , 83.05 ,WINNIPEG, 49.8989 , 97.1389 -2420 DATA WINSTON-SALEM, 36.0978 , 80.245 ,WORCESTER, 42.2603 , 71.8047 -2430 DATA YAKIMA, 46.6025 , 120.511 ,YONKERS, 40.9319 , 73.8983 -2440 DATA YORK, 39.9597 , 87.7267 ,YOUNGSTOWN, 41.0992 , 80.6506 -2450 DATA YUMA, 32.715 , 114.623 ,ZANESVILLE, 39.9383 , 82.0083 -2460 DATA ZURICH, 47.3833 ,-8.55 -2470 'Norman Goldsmith -2480 '5 Ranger Road -2490 '7/5/87 -2500 REM --------------------------------------------------------- -2510 REM Updates for bwBASIC 3.0 by Howard Wulf, AF5NE, May 7th 2015: -2520 REM a) added semicolons between print items on line 500 -2599 END diff --git a/bwbtest/M80/airmiles.run b/bwbtest/M80/airmiles.run deleted file mode 100644 index 343162b..0000000 --- a/bwbtest/M80/airmiles.run +++ /dev/null @@ -1,21 +0,0 @@ - -AIRLINE DISTANCES BETWEEN CITIES - - -If you are not sure of the spelling of a city, -type in only the first letters of which you are confident. - -All entries must be in UPPER CASE. - -PLEASE WAIT FOR ARRAYS TO BE SET UP. - -TYPE IN CITY OF ORIGIN ? DALLAS - 82 DALLAS - -TYPE IN DESTINATION CITY NAME ? PARIS - 216 PARIS - -THE DISTANCE FROM DALLAS TO PARIS IS: - 4,934.9 STATUTE MILES 4,288.3 NAUTICAL MILES 7,940.3 KILOMETERS - -RUN AGAIN? NO diff --git a/bwbtest/M80/astrnmy2.INP b/bwbtest/M80/astrnmy2.INP deleted file mode 100644 index ec662a2..0000000 --- a/bwbtest/M80/astrnmy2.INP +++ /dev/null @@ -1,21 +0,0 @@ -1 -12 -34 -56 -98 -54 -32 -6 - -2 -123 -11 -22 -33 - -3 -123 -123 -6 - -4 diff --git a/bwbtest/M80/astrnmy2.bas b/bwbtest/M80/astrnmy2.bas deleted file mode 100644 index b01dabb..0000000 --- a/bwbtest/M80/astrnmy2.bas +++ /dev/null @@ -1,171 +0,0 @@ -10 '============================================================== -20 ' ADAPTED FROM ASTRONMY.LBR, author unknown -30 ' Adaption: 21 Jul 87, Jim Lill -40 ' Combining the 3 individual programs into one with menu -50 ' Other changes: - Added better PI value technique -60 ' - Added CLS$ -70 ' - correct SOP error in DEC-RA (line 1560) -80 '=============================================================== -90 CLS$=CHR$(26): ' Set for your terminal -100 LAT = 43.5 : ' LAT is your Latitude in Decimal Degrees -110 '============================================================== -120 PI = 4 * ATN(1) : RAD = 180/PI -130 '============================================================== -140 ' The following are used in menu 2 but are placed here for convenience -150 ' K1,K2, AND K3 ARE CONSTANTS. K1 CHANGES EACH YEAR. -160 ' LONG IS YOUR LONGITUDE IN DECIMAL HOURS -170 ' TZ IS THE DIFFERENCE IN HOURS BETWEEN YOUR -180 ' TIME ZONE AND GREENWICH. -190 ' GMST IS GREENWICH MEAN SIDEREAL TIME -200 ' LMST IS LOCAL MEAN SIDEREAL TIME -210 ' -220 K1 = 6.606550000000003# : ' This is 1987 -230 K2 = .06570982320000008# -240 K3 = 1.0027379093# -250 LONG = 5.1234 -260 TZ = 5 -270 '================================================================ -280 ' Start of actual program........ -290 ' MENU: -300 PRINT CLS$ -310 PRINT "Astronomy Programs":PRINT -320 PRINT "1- Find Altitude and Azimuth, given Right Ascension and Declination" -330 PRINT "2- Find Local Sidereal Time, given Day of Year and Local Time" -340 PRINT "3- Find Right Ascension and Declination, given ALT, AZ and LST" -350 PRINT "4- QUIT Program, Return to MBASIC":PRINT -360 INPUT "Enter Choice ==> ",CHOICE -370 IF CHOICE = 1 THEN GOTO 420 -380 IF CHOICE = 2 THEN GOTO 950 -390 IF CHOICE = 3 THEN GOTO 1270 -400 IF CHOICE = 4 THEN STOP -410 GOTO 360 -420 ' ************************ MENU CHOICE 1 *********************** -430 ' ------ALT/AZ CONVERSION ----------- -440 ' -450 ' -------INPUT OBJECT'S POSITION --------- -460 ' -470 PRINT CLS$ -480 PRINT "Find Altitude and Azimuth":PRINT:PRINT -490 PRINT "RA (HOURS)"; -500 INPUT RH -510 PRINT "RA (MINUTES)"; -520 INPUT RM -530 PRINT "RA (SECONDS)"; -540 INPUT RS -550 RA = RH + (RM/60) + (RS/3600) -560 PRINT -570 PRINT "DEC (DEGREES)"; -580 INPUT DD -590 PRINT "DEC (MINUTES)"; -600 INPUT DM -610 PRINT "DEC (SECONDS)"; -620 INPUT DS -630 DEC = DD + (DM/60) + (DS/3600) -640 ' -650 ' -------INPUT LMST & GET HA ----------- -660 ' -670 PRINT -680 PRINT "LMST (DECIMAL HOURS)"; -690 INPUT LMST -700 PRINT -710 HA = LMST - RA -720 HAD =HA *15 -730 ' -740 ' ------ CONVERT TO RADIANS ---------- -750 ' -760 L = LAT / RAD -770 H = HAD / RAD -780 D = DEC / RAD -790 ' -800 ' ---------- CALCULATE ALT / AZ -------- -810 ' -820 A = ( SIN (D) * (L)) + (COS (D) *COS (L)*COS (H)) -830 AA = ATN (A/SQR(-A * A +1)) -840 ALT = AA*RAD -850 AZ = (SIN (D) - (SIN (L)* SIN (A))) / (COS (L) * COS (A)) -860 AZA = - ATN(AZ/SQR (-AZ*AZ+1))+1.5708 -870 AZM = AZA*RAD -880 IF SIN (H) >0 THEN AZM = 360 - AZM -890 ' -900 ' -------- PRINT OUT RESULTS ------ -910 ' -920 PRINT " ALTITUDE = " ; ALT -930 PRINT " AZIMUTH = " ; AZM -940 PRINT:PRINT:INPUT " to Continue";CR:GOTO 290 -950 ' ****************** MENU CHOICE 2 ******************* -960 ' ------ LOCAL MEAN SIDEREAL TIME ------ -970 ' -980 ' The constants were moved from here to beginning of program -990 ' ----- INPUT VARIABLES ------ -1000 ' -1010 PRINT CLS$ -1020 PRINT "Find Local Sidereal Time, LST":PRINT:PRINT -1030 PRINT "DAY OF YEAR " ; -1040 INPUT D -1050 PRINT "LOCAL TIME (HOURS)"; -1060 INPUT H -1070 PRINT "LOCAL TIME (MINUTES)"; -1080 INPUT M -1090 PRINT "LOCAL TIME (SECONDS)"; -1100 INPUT S -1110 ' -1120 ' ------ CALCULATE QUANTITIES ------ -1130 ' -1140 PRINT -1150 SDT = H + ( M / 60 ) + (S / 3600) -1160 UT = SDT + TZ -1170 GMST = K1 + (K2*D) + (K3*UT) -1180 IF GMST > 24 THEN GMST = GMST - 24 : GOTO 1180 -1190 LMST = GMST - LONG -1200 ' -1210 ' ----- PRINT RESULTS ------ -1220 ' -1230 PRINT "LOCAL MEAN TIME =" ; SDT -1240 PRINT " GMST = " ; GMST -1250 PRINT " LMST = " ; LMST -1260 PRINT:PRINT:INPUT " to Continue";CR:GOTO 290 -1270 ' *************** MENU CHOICE 3 ********************* -1280 ' ADAPTED FROM RA-DEC.BAS -1290 ' ---------- RA & DEC CALCULATION ----- -1300 ' -1310 ' -1320 PRINT CLS$ -1330 PRINT "Find Right Ascension and Declination":PRINT:PRINT -1340 PRINT "ALTITUDE"; -1350 INPUT ALT -1360 PRINT "AZIMUTH"; -1370 INPUT AZ -1380 IF AZ > 180 THEN AZ = 360 - AZ : FLAG = 1 -1390 PRINT "LOCAL SIDEREAL TIME (DECIMAL HOURS)"; -1400 INPUT LMST -1410 ' -1420 ' ------ CONVERT TO RADIANS ------ -1430 ' -1440 A = ALT / RAD -1450 AZR = AZ / RAD -1460 L = LAT / RAD -1470 ' -1480 ' ------ CALCULATE RA AND DEC ------ -1490 ' -1500 ' D is sin(declination), A is altitude, L is latitude, AZR is azimuth -1510 D = (SIN(A)* SIN (L) ) + (COS (A) * COS (L) * COS (AZR) ) -1520 DC = ATN (D / SQR ( - D * D + 1 ) ) -1530 ' DC is declination -1540 H = (SIN (A) - (SIN (L) * D)) / (COS (L) * COS (DC)) -1550 ' H is cos(hour-angle) -1560 HC = -ATN (H / SQR (-H * H + 1)) + PI/2 -1570 ' HC is the hour-angle -1580 DEC = DC * RAD -1590 HA = HC * RAD -1600 IF FLAG = 1 GOTO 1620 -1610 IF SIN (HC) >0 THEN HA = 360 - HA -1620 HAH = HA / 15 -1630 RA = LMST - HAH -1640 IF RA <0 THEN RA = RA +24: GOTO 1640 -1650 ' -1660 ' ------ PRINT OUT RESULT ------ -1670 ' -1680 PRINT -1690 PRINT "RA = ";RA -1700 PRINT "DEC = ";DEC -1710 PRINT:PRINT:INPUT " to Continue";CR:GOTO 290 diff --git a/bwbtest/M80/astrnmy2.run b/bwbtest/M80/astrnmy2.run deleted file mode 100644 index c64dd4a..0000000 --- a/bwbtest/M80/astrnmy2.run +++ /dev/null @@ -1,85 +0,0 @@ - -Astronomy Programs - -1- Find Altitude and Azimuth, given Right Ascension and Declination -2- Find Local Sidereal Time, given Day of Year and Local Time -3- Find Right Ascension and Declination, given ALT, AZ and LST -4- QUIT Program, Return to MBASIC - -Enter Choice ==> 1 - -Find Altitude and Azimuth - - -RA (HOURS)? 12 -RA (MINUTES)? 34 -RA (SECONDS)? 56 - -DEC (DEGREES)? 98 -DEC (MINUTES)? 54 -DEC (SECONDS)? 32 - -LMST (DECIMAL HOURS)? 6 - - ALTITUDE = 50.0955 - AZIMUTH = 12.3239 - - - to Continue? - -Astronomy Programs - -1- Find Altitude and Azimuth, given Right Ascension and Declination -2- Find Local Sidereal Time, given Day of Year and Local Time -3- Find Right Ascension and Declination, given ALT, AZ and LST -4- QUIT Program, Return to MBASIC - -Enter Choice ==> 2 - -Find Local Sidereal Time, LST - - -DAY OF YEAR ? 123 -LOCAL TIME (HOURS)? 11 -LOCAL TIME (MINUTES)? 22 -LOCAL TIME (SECONDS)? 33 - -LOCAL MEAN TIME = 11.3758 - GMST = 7.10953 - LMST = 1.98613 - - - to Continue? - -Astronomy Programs - -1- Find Altitude and Azimuth, given Right Ascension and Declination -2- Find Local Sidereal Time, given Day of Year and Local Time -3- Find Right Ascension and Declination, given ALT, AZ and LST -4- QUIT Program, Return to MBASIC - -Enter Choice ==> 3 - -Find Right Ascension and Declination - - -ALTITUDE? 123 -AZIMUTH? 123 -LOCAL SIDEREAL TIME (DECIMAL HOURS)? 6 - -RA = 9.23313 -DEC = 52.4171 - - - to Continue? - -Astronomy Programs - -1- Find Altitude and Azimuth, given Right Ascension and Declination -2- Find Local Sidereal Time, given Day of Year and Local Time -3- Find Right Ascension and Declination, given ALT, AZ and LST -4- QUIT Program, Return to MBASIC - -Enter Choice ==> 4 - -Program interrupted at line 400 diff --git a/bwbtest/M80/atten.INP b/bwbtest/M80/atten.INP deleted file mode 100644 index a4e8f01..0000000 --- a/bwbtest/M80/atten.INP +++ /dev/null @@ -1,12 +0,0 @@ -PI -75 -50 -3 -TEE -75 -50 -3 -MIN -75 -50 -QUIT diff --git a/bwbtest/M80/atten.bas b/bwbtest/M80/atten.bas deleted file mode 100644 index a8a0fdb..0000000 --- a/bwbtest/M80/atten.bas +++ /dev/null @@ -1,73 +0,0 @@ -10 'ATTENUATOR DESIGN PROGRAM -12 'Written in MICROSOOFT BASIC 7/31/82 by -14 ' Trevor Marshall, SYSOP, Thousand Oaks Technical RBBS -16 ' -20 'This program designs T, PI, or minimum loss attenuators -30 ' T PI Min Loss Z1>Z2 Z1X THEN GOTO 2600 'Loss too low -170 PRINT "Asymmetrical" -172 IF LEFT$(A$,1)="P" OR LEFT$(A$,1)="p" THEN GOTO 1000 -180 PRINT "Tee Section" : PRINT -190 PRINT "--R1-----R2--" -200 PRINT " |" -210 PRINT " R3" -220 PRINT " |" -230 PRINT "-------------" : PRINT : GOTO 2000 -1000 PRINT " PI Section" :PRINT -1010 PRINT "------R3------" -1020 PRINT " | |" -1030 PRINT " R1 R2" -1040 PRINT " | |" -1050 PRINT "--------------" -2000 PRINT "Source Impedance=";A;: PRINT ",Terminating Impedance=";B; -2010 PRINT "Loss (dB)=";X -2020 Y=10!^(X/10!) : IF LEFT$(A$,1)="P" OR LEFT$(A$,1)="p" THEN GOTO 2500 -2040 R3=SQR(Y*A*B)*2!/(Y-1) -2060 PRINT "R1=";A*((Y+1!)/(Y-1!))-R3; -2080 PRINT ",R2=";B*((Y+1!)/(Y-1!))-R3; -2090 PRINT ",R3=";R3 : PRINT : PRINT : GOTO 10 -2500 R3=((Y-1!)/2!)*SQR(A*B/Y) -2510 PRINT "R1=";1!/(((Y+1!)/(A*(Y-1!)))-1!/R3); -2520 PRINT ",R2=";1!/(((Y+1!)/(B*(Y-1!)))-1!/R3); -2530 PRINT ",R3=";R3 : PRINT : PRINT : GOTO 10 -2600 PRINT "Specified loss is too low..adjusting to...." -3000 PRINT "MINIMUM LOSS PAD DESIGN" : PRINT -3010 IF A>B THEN GOTO 5000 -3020 PRINT "Pad for Z2 > Z1" : PRINT -3030 PRINT "--------R1----" -3040 PRINT " |" -3050 PRINT " R2" -3060 PRINT " |" -3070 PRINT "--------------" : PRINT -4000 PRINT "Source Impedance=";A;: PRINT ",Terminating Impedance=";B -4010 GOSUB 6000 -4020 PRINT "R1=,";R0*SQR(1!-R1/R0);: PRINT ",R2=";R1/(SQR(1!-R1/R0)) -4030 PRINT "Loss (dB)=";R2 : PRINT : PRINT : GOTO 10 -5000 PRINT "Pad for Z1 > Z2" : PRINT -5010 PRINT "----R1--------" -5020 PRINT " |" -5030 PRINT " R2" -5040 PRINT " |" -5050 PRINT "--------------" -5060 GOTO 4000 -6000 R0=A : R1=B : IF B>A THEN R0=B : IF B>A THEN R1=A -6010 R2=10!*LOG((SQR(R0/R1)+SQR(R0/R1-1!))^2!)/2.30259 : RETURN -7000 REM ---------------------------------------------------------------- -7010 REM Updated for bwBASIC 3.0 by Howard Wulf, AF5NE, May 7th 2015: -7020 REM a) Added line 105 for automated testing -7030 REM -7999 END - diff --git a/bwbtest/M80/atten.run b/bwbtest/M80/atten.run deleted file mode 100644 index 89d6525..0000000 --- a/bwbtest/M80/atten.run +++ /dev/null @@ -1,64 +0,0 @@ -What attenuator do you want, TEE, PI or MINIMUM LOSS..? PI - -What is the input impedance...? 75 - -What is the output impedance..? 50 - -What is the required loss (in dB)...? 3 -Specified loss is too low..adjusting to.... -MINIMUM LOSS PAD DESIGN - -Pad for Z1 > Z2 - -----R1-------- - | - R2 - | --------------- -Source Impedance= 75 ,Terminating Impedance= 50 -R1=, 43.3013 ,R2= 86.6025 -Loss (dB)= 5.71946 - - -What attenuator do you want, TEE, PI or MINIMUM LOSS..? TEE - -What is the input impedance...? 75 - -What is the output impedance..? 50 - -What is the required loss (in dB)...? 3 -Specified loss is too low..adjusting to.... -MINIMUM LOSS PAD DESIGN - -Pad for Z1 > Z2 - -----R1-------- - | - R2 - | --------------- -Source Impedance= 75 ,Terminating Impedance= 50 -R1=, 43.3013 ,R2= 86.6025 -Loss (dB)= 5.71946 - - -What attenuator do you want, TEE, PI or MINIMUM LOSS..? MIN - -What is the input impedance...? 75 - -What is the output impedance..? 50 -MINIMUM LOSS PAD DESIGN - -Pad for Z1 > Z2 - -----R1-------- - | - R2 - | --------------- -Source Impedance= 75 ,Terminating Impedance= 50 -R1=, 43.3013 ,R2= 86.6025 -Loss (dB)= 5.71946 - - -What attenuator do you want, TEE, PI or MINIMUM LOSS..? QUIT diff --git a/bwbtest/M80/audiolab.INP b/bwbtest/M80/audiolab.INP deleted file mode 100644 index 259638a..0000000 --- a/bwbtest/M80/audiolab.INP +++ /dev/null @@ -1,11 +0,0 @@ -1 -120 -50 -N -Y -2 -1000 -50 -N -Y -0 diff --git a/bwbtest/M80/audiolab.bas b/bwbtest/M80/audiolab.bas deleted file mode 100644 index 2b6ebcc..0000000 --- a/bwbtest/M80/audiolab.bas +++ /dev/null @@ -1,192 +0,0 @@ -5 PRINT CHR$(27);CHR$(42) -10 REM Audiolab Program -20 PRINT TAB(20);"-=*AUDIO LAB PROGRAM*=-" -25 REM---------Menu--------- -30 PRINT"Select the program you require from the following menu" -50 PRINT TAB(10);"(0) Exit from program. (Changed my mind)" -70 PRINT TAB(10);"(1) Calculate power, given voltage and impedance" -90 PRINT TAB(10);"(2) Calculate voltage, given power and impedance" -110 PRINT TAB(10);"(3) Calculate the dB ratio of two voltages" -130 PRINT TAB(10);"(4) Calculate the dB ratio of two power values" -150 PRINT TAB(10);"(5) Change percent (%), to dB" -170 PRINT TAB(10);"(6) Change dB to percent (%)" -190 PRINT TAB(10);"(7) Calculate dBf, given a number in microvolts" -210 PRINT TAB(10);"(8) Calculate microvolts (uV), given dBf" -230 PRINT TAB(10);"(9) Damping factor of an amplifier with 8-ohm loads" -235 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT -240 PRINT"ENTER THE NUMBER OF YOUR CHOICE AND PRESS 'RETURN'" -250 INPUT C -260 IF C=0 GOTO 1430 REM (exit) -270 ON C GOTO 290,420,550,680,810,900,990,1110,1220 -280 IF C>9 GOTO 20 -285 REM--------Power/voltage -290 PRINT"To calculate POWER enter the VOLTAGE" -295 LPRINT CHR$(&H1F);CHR$(1); -300 LPRINT"To calculate POWER enter the VOLTAGE" -310 INPUT V -320 LPRINT V;" volts" -330 PRINT"Now enter the impedance, in ohms" -340 LPRINT"Now enter the impedance, in ohms" -350 INPUT R -360 LPRINT R;" ohms" -370 LET P=V^2/R -380 PRINT"Power equals> ";P;"< watts" -390 LPRINT"Power equals> ";P;"< WATTS" -400 LPRINT -401 PRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)":INPUT ANS$ -402 LPRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)" -405 IF ANS$="Y" THEN 290 -407 LPRINT ANS$ -408 PRINT -410 GOTO 1370 REM (again? or exit program) -420 PRINT"To calculate VOLTAGE,for a given power, enter POWER, in watts" -430 LPRINT"To calculate VOLTAGE, for a given power, enter POWER, in watts" -440 INPUT P -450 LPRINT P;" watts" -460 PRINT"Now enter the load impedance, in ohms" -470 LPRINT"Now enter the load impedance, in ohms" -480 INPUT Z -490 LPRINT Z;" ohms" -500 LET V=SQR(P*Z) -510 PRINT"Voltage for that power equals> ";V;"< volts" -520 LPRINT"Voltage for that power equals> ";V;"< volts" -530 LPRINT -531 PRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)":INPUT ANS$ -532 LPRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)" -533 IF ANS$="Y" THEN 420 -538 LPRINT ANS$ -539 PRINT -540 GOTO 1370 -545 REM--------dB/voltage ratios-------- -550 PRINT"To calculate the dB ratio of two voltages, enter larger voltage" -560 LPRINT"To calculate the dB ratio of two voltages, enter larger voltage" -570 INPUT V1 -580 LPRINT V1;" volts" -590 PRINT"Now enter the smaller voltage" -600 LPRINT"Now enter the smaller voltage" -610 INPUT V2 -620 LPRINT V2;" volts" -630 LET DB=20*LOG(V1/V2)/LOG(10) -640 PRINT"The voltage ratio, in decibels, is> ";DB;"< dB" -650 LPRINT"The voltage ratio, in decibels, is> ";DB;"< dB" -660 LPRINT -661 PRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)":INPUT ANS$ -662 LPRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N) -663 IF ANS$="Y" THEN 550 -664 LPRINT ANS$ -667 PRINT -670 GOTO 1370 -675 REM--------dB/power ratios--------- -680 PRINT"To calculate the dB ratio of two powers, enter larger power" -690 LPRINT"To calculate the dB ratio of two powers, enter larger power" -700 INPUT P1 -710 LPRINT P1;" watts" -720 PRINT"Now enter the smaller power value" -730 LPRINT"Now enter the smaller power value" -740 INPUT P2 -750 LPRINT P2;" watts -760 LET DB=10*LOG(P1/P2)/LOG(10) -770 PRINT"The power ratio, in dB, is> ";DB;"< dB" -780 LPRINT"The power ratio, in dB, is> ";DB;"< dB" -790 LPRINT -791 PRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)":INPUT ANS$ -792 LPRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)" -793 IF ANS$="Y" THEN 680 -794 LPRINT ANS$ -797 PRINT -800 GOTO 1370 -805 REM--------dB/percent-------- -810 PRINT"To change percent to dB, enter the percentage (numerals only)" -820 LPRINT"To change percent to dB, enter the percentage (numerals only)" -830 INPUT P -840 LPRINT P;" %" -850 LET DB=20*LOG(1/(P/100))/LOG(10) -860 PRINT"The equivalent decibel ratio is> ";DB;"< dB" -870 LPRINT"The equivalent decibel ratio is> ";DB;"< dB" -880 LPRINT -881 PRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)":INPUT ANS$ -882 LPRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)" -883 IF ANS$="Y" THEN 810 -884 LPRINT ANS$ -887 PRINT -890 GOTO 1370 -900 PRINT"To change dB to percent (%), enter the value in dB" -910 LPRINT"To change dB to percent (%), enter the value in dB" -920 INPUT DB -930 LPRINT DB;" dB -940 LET P=100*10^(-DB/20) -950 PRINT"The equivalent percentage is> ";P;"< %" -960 LPRINT"The equivalent percentage is> ";P;"< %" -970 LPRINT -971 PRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)":INPUT ANS$ -972 LPRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)" -973 IF ANS$="Y" THEN 900 -974 LPRINT ANS$ -977 PRINT -980 GOTO 1370 -985 REM--------uV/dBf------- -990 PRINT"To convert microvolts (uV), to dBf, enter the value in uV" -1000 LPRINT"To convert microvolts (uV), to dBf, enter the value in uV" -1010 INPUT UV -1020 LPRINT UV;" uV" -1030 LET DB=20*LOG(UV/.55)/LOG(10) -1040 PRINT"For a 300-ohm input, the dBf value is> ";DB;"< dBf" -1050 LPRINT"For a 300-ohm input, the dBf, value is> ";DB;"< dBf" -1060 PRINT -1070 PRINT"For a 75-ohm input, the dBf value is> ";DB+6;"< dBf" -1080 LPRINT"For a 75-ohm input, the dBf value is> ";DB+6;"< dBf" -1090 LPRINT -1091 PRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)":INPUT ANS$ -1092 LPRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)" -1093 IF ANS$="Y" THEN 990 -1094 LPRINT ANS$ -1097 PRINT -1100 GOTO 1370 -1110 PRINT"To convert dBf to microvolts, (uV), enter the number of dBf" -1120 LPRINT"To convert dBf to microvolts, (uV), enter the number of dBf" -1130 INPUT DB -1140 LPRINT DB;" dBf" -1150 LET UV=10^(DB/20)*.55 -1160 PRINT"For a 300-ohm input, the microvolt value is> ";UV;"< uV" -1170 LPRINT"For a 300-ohm input, the microvolt value is> ";UV;"< uV" -1180 PRINT -1190 PRINT"For a 75-ohm input, the microvolt value is> ";UV/2;"< uV" -1200 LPRINT"For a 75-ohm input, the microvolt value is> ";UV/2;"< uV" -1203 LPRINT -1205 PRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)":INPUT ANS$ -1206 LPRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)" -1207 IF ANS$="Y" THEN 1110 -1208 LPRINT ANS$ -1209 PRINT -1210 GOTO 1370 -1215 REM--------Damping factor-------- -1220 PRINT"To calculate the damping factor of an amplifier working into" -1230 LPRINT"To calculate the damping factor of an amplifier working into" -1240 PRINT"8-ohm loads, ENTER THE VOLTAGE UNDER NO-LOAD CONDITIONS" -1250 LPRINT"8-ohm loads, ENTER THE VOLTAGE UNDER NO-LOAD CONDITIONS" -1260 INPUT V1 -1270 LPRINT V1;" no-load volts" -1280 PRINT"Now ENTER VOLTAGE WHEN LOAD IS APPLIED (should be lower value)" -1290 LPRINT"Now ENTER VOLTAGE WHEN LOAD IS APPLIED (should be lower value)" -1300 INPUT V2 -1310 LPRINT V2;" volts, under load" -1320 LET D=V2/(V1-V2) -1330 PRINT"The damping factor for the amplifier is> ";D;"< ." -1340 LPRINT"The damping factor for the amplifier is> ";D;"< " -1350 LPRINT -1355 PRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)":INPUT ANS$ -1356 LPRINT"DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N)" -1357 IF ANS$="Y" THEN 1220 -1358 LPRINT ANS$ -1359 PRINT -1360 GOTO 1370 -1370 PRINT -1375 REM-------reselect/exit---------- -1380 PRINT"Do you wish to return to the menu? (Y/N)" -1390 LPRINT"Do you wish to return to the menu? (Y/N)" -1400 INPUT A$ -1410 LPRINT A$ -1420 IF A$="Y" GOTO 5 -1430 PRINT"Happy to have been of service!! SEE YOU LATER!!" -1440 LPRINT"Happy to have been of service!! SEE YOU LATER!!" -1450 END diff --git a/bwbtest/M80/audiolab.run b/bwbtest/M80/audiolab.run deleted file mode 100644 index 010b516..0000000 --- a/bwbtest/M80/audiolab.run +++ /dev/null @@ -1,86 +0,0 @@ - * - -=*AUDIO LAB PROGRAM*=- -Select the program you require from the following menu - (0) Exit from program. (Changed my mind) - (1) Calculate power, given voltage and impedance - (2) Calculate voltage, given power and impedance - (3) Calculate the dB ratio of two voltages - (4) Calculate the dB ratio of two power values - (5) Change percent (%), to dB - (6) Change dB to percent (%) - (7) Calculate dBf, given a number in microvolts - (8) Calculate microvolts (uV), given dBf - (9) Damping factor of an amplifier with 8-ohm loads - - - - - - -ENTER THE NUMBER OF YOUR CHOICE AND PRESS 'RETURN' -? 1 -To calculate POWER enter the VOLTAGE -? 120 -Now enter the impedance, in ohms -? 50 -Power equals> 288 < watts -DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N) -? N - - -Do you wish to return to the menu? (Y/N) -? Y - * - -=*AUDIO LAB PROGRAM*=- -Select the program you require from the following menu - (0) Exit from program. (Changed my mind) - (1) Calculate power, given voltage and impedance - (2) Calculate voltage, given power and impedance - (3) Calculate the dB ratio of two voltages - (4) Calculate the dB ratio of two power values - (5) Change percent (%), to dB - (6) Change dB to percent (%) - (7) Calculate dBf, given a number in microvolts - (8) Calculate microvolts (uV), given dBf - (9) Damping factor of an amplifier with 8-ohm loads - - - - - - -ENTER THE NUMBER OF YOUR CHOICE AND PRESS 'RETURN' -? 2 -To calculate VOLTAGE,for a given power, enter POWER, in watts -? 1000 -Now enter the load impedance, in ohms -? 50 -Voltage for that power equals> 223.607 < volts -DO YOU WISH TO DO THIS CALCULATION AGAIN? (Y/N) -? N - - -Do you wish to return to the menu? (Y/N) -? Y - * - -=*AUDIO LAB PROGRAM*=- -Select the program you require from the following menu - (0) Exit from program. (Changed my mind) - (1) Calculate power, given voltage and impedance - (2) Calculate voltage, given power and impedance - (3) Calculate the dB ratio of two voltages - (4) Calculate the dB ratio of two power values - (5) Change percent (%), to dB - (6) Change dB to percent (%) - (7) Calculate dBf, given a number in microvolts - (8) Calculate microvolts (uV), given dBf - (9) Damping factor of an amplifier with 8-ohm loads - - - - - - -ENTER THE NUMBER OF YOUR CHOICE AND PRESS 'RETURN' -? 0 -Happy to have been of service!! SEE YOU LATER!! diff --git a/bwbtest/M80/bigcal2.INP b/bwbtest/M80/bigcal2.INP deleted file mode 100644 index b1971b4..0000000 --- a/bwbtest/M80/bigcal2.INP +++ /dev/null @@ -1,10 +0,0 @@ -10 -EA -1234567.89 -EB -9876543.21 -ADD -XAB -XAB -DIV -QUIT diff --git a/bwbtest/M80/bigcal2.bas b/bwbtest/M80/bigcal2.bas deleted file mode 100644 index 313d029..0000000 --- a/bwbtest/M80/bigcal2.bas +++ /dev/null @@ -1,351 +0,0 @@ -90 PRINT CHR$(26): 'Put your clear screen code here !! -100 PRINT TAB(25);"EXTENDED PRECISION CALCULATOR":PRINT -110 ' -120 PRINT TAB(30); "JUDSON D. MCCLENDON":PRINT -130 ' 844 Sun Valley Road -140 ' Birmingham, AL 35215 -150 ' -160 ' Compuserve 74415,1003 -170 ' -180 PRINT TAB(20);" Modified for S-Basic by R.J. Sandel" -190 ' Added always dump and fundamental operations print. -191 ' Corrected obvious errors, and added initial instructions -192 PRINT:PRINT:PRINT:PRINT: -193 PRINT "Legal commands are: ADD, SUB, MUL, & DIV for math operations" -194 PRINT:PRINT "A or EA for Enter into Register A: "; -195 PRINT " PA for Print A: CA for Clear A " -196 PRINT: PRINT "XAB for Exchange A and B: MAB for Move A into B: "; -197 PRINT " similar for other registers":PRINT -198 PRINT "ZAP for Clear All: END or QUIT or Q for termination.":PRINT -199 PRINT:PRINT "Warning !!! 100 place divisions take a while !!!":PRINT:PRINT -200 PRINT TAB(30);:INPUT "Enter maximum (10 to 100) precision desired ";SZ$ -205 ' SIZE = MAXIMUM DIGITS PRECISION -206 PRINT CHR$(26): ' Clear Screen Again -210 DEFINT A-Z : I=0:J=0:K=0:L=0 -220 SIZE = VAL(SZ$) -221 IF SIZE <10 THEN 200 -222 IF SIZE > 100 THEN 200 -230 E1=0:E2=0:E3=0:E4=0: ' DIGITS TO LEFT OF DECIMAL POINT -240 E6=0:E7=0:E8=0:E9=0: ' NUMBER LENGTH -250 DIM EA(SIZE),EB(SIZE),EC(SIZE),EH(SIZE): ' REGISTERS EH IS TEMP HOLD -1000 ' *** Command Loop -1010 PRINT -1015 GOSUB 8000:PRINT -1020 LINE INPUT "ENTER COMMAND: ",COMMAND$ -1025 COMMAND$=TRIM$(COMMAND$) -1030 IF COMMAND$="END" THEN END -1031 IF COMMAND$="Q" THEN END -1032 IF COMMAND$="QUIT" THEN END -1040 IF COMMAND$="ADD" THEN GOSUB 3000:GOTO 1000 -1050 IF COMMAND$="SUB" THEN GOSUB 4000:GOTO 1000 -1060 IF COMMAND$="MUL" THEN GOSUB 5000:GOTO 1000 -1070 IF COMMAND$="DIV" THEN GOSUB 6000:GOTO 1000 -1200 IF COMMAND$="DMP" THEN GOSUB 8000:GOTO 1000 -1210 IF COMMAND$="EA" THEN GOSUB 8100:GOTO 1000 -1211 IF COMMAND$="A" THEN GOSUB 8100:GOTO 1000 -1220 IF COMMAND$="PA" THEN GOSUB 8200:GOTO 1000 -1230 IF COMMAND$="EB" THEN GOSUB 8300:GOTO 1000 -1231 IF COMMAND$="B" THEN GOSUB 8300:GOTO 1000 -1240 IF COMMAND$="PB" THEN GOSUB 8400:GOTO 1000 -1250 IF COMMAND$="EC" THEN GOSUB 8500:GOTO 1000 -1251 IF COMMAND$="C" THEN GOSUB 8500:GOTO 1000 -1260 IF COMMAND$="PC" THEN GOSUB 8600:GOTO 1000 -1270 IF COMMAND$="XAB" THEN GOSUB 8700:GOTO 1000 -1280 IF COMMAND$="XAC" THEN GOSUB 8800:GOTO 1000 -1290 IF COMMAND$="XBC" THEN GOSUB 8900:GOTO 1000 -1300 IF COMMAND$="ZAP" THEN GOSUB 9000:GOTO 1000 -1310 IF COMMAND$="MAB" THEN GOSUB 9100:GOTO 1000 -1320 IF COMMAND$="MAC" THEN GOSUB 9200:GOTO 1000 -1330 IF COMMAND$="CA" THEN GOSUB 9300:GOTO 1000 -1340 IF COMMAND$="MBA" THEN GOSUB 9400:GOTO 1000 -1350 IF COMMAND$="MBC" THEN GOSUB 9500:GOTO 1000 -1360 IF COMMAND$="CB" THEN GOSUB 9600:GOTO 1000 -1370 IF COMMAND$="MCA" THEN GOSUB 9700:GOTO 1000 -1380 IF COMMAND$="MCB" THEN GOSUB 9800:GOTO 1000 -1390 IF COMMAND$="CC" THEN GOSUB 9900:GOTO 1000 -1900 PRINT "Invalid Command" -1910 GOTO 1000 -3000 PRINT:PRINT " B = B + A ":PRINT -3010 IF E19 THEN EB(I-1)=EB(I-1)+1:EB(I)=EB(I)-10 -3130 NEXT -3140 GOSUB 7700 -3150 GOSUB 7800 -3190 RETURN -4000 PRINT:PRINT " B = B - A ":PRINT -4010 IF E1=SIZE THEN 5100 -5070 WHILE EC(K+1)>9 -5080 EC(K)=EC(K)+1:EC(K+1)=EC(K+1)-10 -5090 WEND -5100 NEXT -5110 FOR L=E8 TO 0 STEP -1 -5120 EC(L+1)=EC(L) -5130 NEXT :EC(0)=0 -5140 E8=E8+1 -5150 NEXT -5160 E8=E6+E7:E3=E1+E2 -5170 GOSUB 7900 -5190 RETURN -6000 PRINT:PRINT " C = B / A ":PRINT -6010 IF E6=0 THEN PRINT "Divide by Zero":RETURN -6020 GOSUB 9900 -6030 E9=E7:E4=E2:FOR I=0 TO E7:EH(I)=EB(I):NEXT -6040 IF E20 THEN ZF=0 -6530 EB(I-1)=EB(I) -6540 NEXT -6560 IF E8E1) AND (EA(E6)=0):E6=E6-1:WEND -7720 IF E6=0 THEN E1=0:GOTO 7790 -7730 IF EA(0)<>0 THEN SC=1:GOSUB 7200:GOTO 7790 -7740 I=1:WHILE (I1 THEN SC=I-1:GOSUB 7100 -7790 RETURN -7800 ' Normalize B -7810 WHILE (E7>E2) AND (EB(E7)=0):E7=E7-1:WEND -7820 IF E7=0 THEN E2=0:GOTO 7890 -7830 IF EB(0)<>0 THEN SC=1:GOSUB 7400:GOTO 7890 -7840 I=1:WHILE (I1 THEN SC=I-1:GOSUB 7300 -7890 RETURN -7900 ' Normalize C -7910 WHILE (E8>E3) AND (EC(E8)=0):E8=E8-1:WEND -7920 IF E8=0 THEN E3=0:GOTO 7990 -7930 IF EC(0)<>0 THEN SC=1:GOSUB 7600:GOTO 7990 -7940 I=1:WHILE (I1 THEN SC=I-1:GOSUB 7500 -7990 RETURN -8000 ' Dump Registers -8010 GOSUB 8200 -8020 GOSUB 8400 -8030 GOSUB 8600 -8090 RETURN -8100 ' Extract EA from string -8110 GOSUB 9300 :INPUT "Enter A: ",EN$ :E1=LEN(EN$) -8120 FOR I=1 TO LEN(EN$) -8130 X$=MID$(EN$,I,1) -8140 IF X$="." THEN E1=E6:GOTO 8180 -8150 IF X$<"0" OR X$>"9" THEN PRINT "Error in A, char:";I -8160 E6=E6+1 -8170 EA(E6)=VAL(X$) -8180 NEXT :GOSUB 7700 -8190 RETURN -8200 ' PRINT A -8210 PRINT "A: "; :CC=3 -8220 IF E1=0 THEN PRINT "0"; :CC=4 -8230 FOR I=1 TO E6 -8240 IF I=E1+1 THEN PRINT "."; :CC=CC+1 -8250 PRINT USING "#";EA(I); :CC=CC+1 -8260 IF I<>E1 THEN IF ABS(I-E1)MOD 3=0 THEN PRINT ","; -8261 CC=CC+1:IF CC>70 THEN PRINT:PRINT " ";:CC=3 -8262 IF E1=0 THEN PRINT " ";:CC=4 -8270 NEXT:PRINT -8290 RETURN -8300 ' EXTRACT EB FROM STRING -8310 GOSUB 9600 :INPUT "Enter B: ",EN$ :E2=LEN(EN$) -8320 FOR I=1 TO LEN(EN$) -8330 X$=MID$(EN$,I,1) -8340 IF X$="." THEN E2=E7:GOTO 8380 -8350 IF X$<"0" OR X$>"9" THEN PRINT "Error in B, char:";I -8360 E7=E7+1 -8370 EB(E7)=VAL(X$) -8380 NEXT :GOSUB 7800 -8390 RETURN -8400 ' PRINT B -8410 PRINT "B: "; :CC=3 -8420 IF E2=0 THEN PRINT "0"; :CC=4 -8430 FOR I=1 TO E7 -8440 IF I=E2+1 THEN PRINT "."; :CC=CC+1 -8450 PRINT USING "#";EB(I); :CC=CC+1 -8460 IF I<>E2 THEN IF ABS(I-E2)MOD 3=0 THEN PRINT ",";:CC=CC+1 -8461 IF CC>70 THEN PRINT:PRINT " ";:CC=3:IF E2=0 THEN PRINT " ";:CC=4 -8470 NEXT:PRINT -8490 RETURN -8500 ' Extract EC from string -8510 GOSUB 9900 :INPUT "Enter C: ",EN$ :E3=LEN(EN$) -8520 FOR I=1 TO LEN(EN$) -8530 X$=MID$(EN$,I,1) -8540 IF X$="." THEN E3=E8:GOTO 8580 -8550 IF X$<"0" OR X$>"9" THEN PRINT "Error in C, char";I -8560 E8=E8+1 -8570 EC(E8)=VAL(X$) -8580 NEXT :GOSUB 7900 -8590 RETURN -8600 ' Print C -8610 PRINT "C: "; :CC=3 -8620 IF E3=0 THEN PRINT "0"; :CC=4 -8630 FOR I=1 TO E8 -8640 IF I=E3+1 THEN PRINT "."; :CC=CC+1 -8650 PRINT USING "#";EC(I); :CC=CC+1 -8660 IF I<>E3 THEN IF ABS(I-E3)MOD 3=0 THEN PRINT ","; -8661 CC=CC+1:IF CC>70 THEN PRINT:PRINT " "; -8662 CC=3:IF E3=0 THEN PRINT " ";:CC=4 -8670 NEXT:PRINT -8690 RETURN -8700 ' Exchange A BT -8710 IF E6>E7 THEN J=E6 ELSE J=E7 -8720 FOR I=0 TO J:T=EA(I):EA(I)=EB(I):EB(I)=T:NEXT ' FOR I=0 TO J:SWAP EA(I),EB(I):NEXT -8730 SWAP E6,E7:SWAP E1,E2 -8790 RETURN -8800 ' Exchange A C -8810 IF E6>E8 THEN J=E6 ELSE J=E8 -8820 FOR I=0 TO J:T=EA(I):EA(I)=EC(I):EC(I)=T:NEXT ' FOR I=0 TO J:SWAP EA(I),EC(I):NEXT -8830 SWAP E6,E8:SWAP E1,E3 -8890 RETURN -8900 ' Exchange B C -8910 IF E7>E8 THEN J=E7 ELSE J=E8 -8920 FOR I=0 TO J:T=EB(I):EB(I)=EC(I):EC(I)=T:NEXT ' FOR I=0 TO J:SWAP EB(I),EC(I):NEXT -8930 SWAP E7,E8:SWAP E2,E3 -8990 RETURN -9000 ' Clear all regs -9010 GOSUB 9300 -9020 GOSUB 9600 -9030 GOSUB 9900 -9090 RETURN -9100 ' Move A B T -9110 IF E6>E7 THEN J=E6 ELSE J=E7 -9120 FOR I=0 TO J:EB(I)=EA(I):NEXT -9130 E7=E6:E2=E1 -9190 RETURN -9200 ' Move A C " -9210 IF E6>E8 THEN J=E6 ELSE J=E8 -9220 FOR I=0 TO J:EC(I)=EA(I):NEXT -9230 E8=E6:E3=E1 -9290 RETURN -9300 ' Clear A -9320 FOR I=0 TO E6:EA(I)=0:NEXT -9330 E6=0:E1=0 -9390 RETURN -9400 ' Move B A -9410 IF E6>E7 THEN J=E6 ELSE J=E7 -9420 FOR I=0 TO J:EA(I)=EB(I):NEXT -9430 E6=E7:E1=E2 -9490 RETURN -9500 ' Move B C -9510 IF E7>E8 THEN J=E7 ELSE J=E8 -9520 FOR I=0 TO J:EC(I)=EB(I):NEXT -9530 E8=E7:E3=E2 -9590 RETURN -9600 ' Clear BNT -9620 FOR I=0 TO E7:EB(I)=0:NEXT -9630 E7=0:E2=0 -9690 RETURN -9700 ' Move C A -9710 IF E6>E8 THEN J=E6 ELSE J=E8 -9720 FOR I=0 TO J:EA(I)=EC(I):NEXT -9730 E6=E8:E1=E3 -9790 RETURN -9800 ' Move C B -9810 IF E7>E8 THEN J=E7 ELSE J=E8 -9820 FOR I=0 TO J:EB(I)=EC(I):NEXT -9830 E7=E8:E2=E3 -9890 RETURN -9900 ' Clear C -9920 FOR I=0 TO E8:EC(I)=0:NEXT -9930 E8=0:E3=0 -9990 RETURN -9991 REM --------------------------------- -9992 REM Updated for bwBASIC 3.0 by Howard Wulf, AF5NE, May 7th 2015: -9993 REM a) added line 1025 -9994 REM b) changed SWAP EA(I),EB(I) -9995 REM c) changed print to use a comma after every third digit -9996 REM instead of a space after every fifth digit -9999 END - diff --git a/bwbtest/M80/bigcal2.run b/bwbtest/M80/bigcal2.run deleted file mode 100644 index 1430875..0000000 --- a/bwbtest/M80/bigcal2.run +++ /dev/null @@ -1,74 +0,0 @@ - - EXTENDED PRECISION CALCULATOR - - JUDSON D. MCCLENDON - - Modified for S-Basic by R.J. Sandel - - - - -Legal commands are: ADD, SUB, MUL, & DIV for math operations - -A or EA for Enter into Register A: PA for Print A: CA for Clear A - -XAB for Exchange A and B: MAB for Move A into B: similar for other registers - -ZAP for Clear All: END or QUIT or Q for termination. - - -Warning !!! 100 place divisions take a while !!! - - - Enter maximum (10 to 100) precision desired ? 10 - - -A: 0 -B: 0 -C: 0 - -ENTER COMMAND: EA -Enter A: 1234567.89 - -A: 1,234,567.89 -B: 0 -C: 0 - -ENTER COMMAND: EB -Enter B: 9876543.21 - -A: 1,234,567.89 -B: 9,876,543.21 -C: 0 - -ENTER COMMAND: ADD - - B = B + A - - -A: 1,234,567.89 -B: 11,111,111.1 -C: 0 - -ENTER COMMAND: XAB - -A: 11,111,111.1 -B: 1,234,567.89 -C: 0 - -ENTER COMMAND: XAB - -A: 1,234,567.89 -B: 11,111,111.1 -C: 0 - -ENTER COMMAND: DIV - - C = B / A - - -A: 1,234,567.89 -B: 11,111,111.1 -C: 9.000,000,07 - -ENTER COMMAND: QUIT diff --git a/bwbtest/M80/broken/00readme.txt b/bwbtest/M80/broken/00readme.txt deleted file mode 100644 index 8a33069..0000000 --- a/bwbtest/M80/broken/00readme.txt +++ /dev/null @@ -1,6 +0,0 @@ -These programs: -1) use commands that are not supported by bwBASIC at this time, and/or -2) are not easy to test using the current automated method, and/or -3) there are no plans to support graphics at this time. - -EOF diff --git a/bwbtest/M80/broken/DIRECTRY.DAT b/bwbtest/M80/broken/DIRECTRY.DAT deleted file mode 100644 index bd7a56f..0000000 --- a/bwbtest/M80/broken/DIRECTRY.DAT +++ /dev/null @@ -1 +0,0 @@ -CAT TOM ST CI 99999111-2222 \ No newline at end of file diff --git a/bwbtest/M80/broken/asm2mac.txt b/bwbtest/M80/broken/asm2mac.txt deleted file mode 100644 index 9a909da..0000000 --- a/bwbtest/M80/broken/asm2mac.txt +++ /dev/null @@ -1,168 +0,0 @@ -10 PRINT "Conversion from Intel 8080 Mnemonics to Zilog Z80":PRINT -20 INPUT "INPUT file name? ",NI$ -30 INPUT "OUTPUT file name? ",NO$ -40 INPUT "Does space terminate the operand (Y/N)? ",IN$ -50 SPC$=" ":IF LEFT$(IN$+" ",1)="Y" THEN 80 -60 IF LEFT$(IN$+" ",1)<>"N" THEN PRINT "Please answer Y)es or N)o":GOTO 40 -70 SPC$="" -80 RESET:EF=0:RC=0:OPEN "I",1,NI$:OPEN "O",2,NO$ -90 IF EOF(1) THEN CLOSE:STOP -100 LINE INPUT #1,IN$ -110 REM -120 REM *** PARSE THE LABEL, OPERATION CODE, OPERAND, AND COMMENT -130 REM -140 IF RIGHT$(IN$,1)=" " THEN IN$=LEFT$(IN$,LEN(IN$)-1):GOTO 140 -150 IL=LEN(IN$):IF IL=0 THEN IN$=";" -160 IF IL<2 OR LEFT$(IN$,1)=";" THEN 1430 -170 BF=0:QF=0:LB$="":OPC$="":OPD$="":CM$="" -180 IF LEFT$(IN$,1)<>" " AND LEFT$(IN$,1)<>CHR$(9) THEN LC=1 ELSE LC=2 -190 FOR IC=1 TO IL -200 CH$=MID$(IN$,IC,1) -210 IF LC<4 THEN 240 -220 CM$=CM$+CH$:IF CM$=" " OR CM$=CHR$(9) THEN CM$="" -230 GOTO 360 -240 IF CH$=":" AND LC=1 THEN 360 -250 IF ASC(CH$)=34 OR ASC(CH$)=39 THEN QF=1-QF -260 IF QF THEN 340 -270 IF CH$=";" THEN LC=4:GOTO 360 -280 BL$=" ":IF LC=3 THEN BL$=SPC$ -290 IF CH$<>BL$ AND CH$<>CHR$(9) THEN BF=1:GOTO 320 -300 IF BF=1 THEN LC=LC+1:BF=0 -310 GOTO 360 -320 IF CH$ >= "a" AND CH$ <= "z" THEN CH$=CHR$(ASC(CH$)-32) -330 IF LC=3 AND CH$=";" THEN LC=4:GOTO 360 -340 IF LC=1 THEN LB$=LB$+CH$:GOTO 360 -350 IF LC=2 THEN OPC$=OPC$+CH$ ELSE OPD$=OPD$+CH$ -360 NEXT IC -370 REM -380 REM *** CONVERT THE OPERATION CODES -390 REM -400 IF OPC$<>"LD" THEN 430 -410 GOSUB 1490:IF LEFT$(B$,1)<>"(" THEN B$="("+B$+")" -420 OPD$=A$+","+B$ -430 IF OPC$<>"STO" THEN 460 -440 GOSUB 1490:IF LEFT$(B$,1)<>"(" THEN B$="("+B$+")" -450 OPD$=B$+","+A$:OPC$="LD" -460 IF OPC$="LHLD" THEN OPC$="LD":OPD$="HL,("+OPD$+")" -470 IF OPC$="LDED" THEN OPC$="LD":OPD$="DE,("+OPD$+")" -480 IF OPC$="LBCD" THEN OPC$="LD":OPD$="BC,("+OPD$+")" -490 IF OPC$="SHLD" THEN OPC$="LD":OPD$="("+OPD$+"),HL" -500 IF OPC$="SDED" THEN OPD$="("+OPD$+"),DE":OPC$="LD" -510 IF OPC$="SBCD" THEN OPD$="("+OPD$+"),BC":OPC$="LD" -520 IF OPC$="LDA" THEN OPC$="LD":OPD$="A,("+OPD$+")" -530 IF OPC$="LDAX" THEN OPC$="LD":GOSUB 1630:OPD$="A,("+OPD$+")" -540 IF OPC$="STA" THEN OPC$="LD":OPD$="("+OPD$+"),A" -550 IF OPC$="STAX" THEN OPC$="LD":GOSUB 1630:OPD$="("+OPD$+"),A" -560 IF (OPC$<>"MOV") AND (OPC$<>"MVI") THEN 600 -570 GOSUB 1490:IF A$="M" THEN A$="(HL)" -580 IF B$="M" THEN B$="(HL)" -590 OPC$="LD":OPD$=A$+","+B$ -600 IF OPC$="XRI" THEN OPC$="XOR" -610 IF OPC$="CP" THEN OPC$="CALL":OPD$="P,"+OPD$ -620 IF OPC$="CZ" THEN OPC$="CALL":OPD$="Z,"+OPD$ -630 IF OPC$="CNZ" THEN OPC$="CALL":OPD$="NZ,"+OPD$ -640 IF OPC$="CC" THEN OPC$="CALL":OPD$="C,"+OPD$ -650 IF OPC$="CNC" THEN OPC$="CALL":OPD$="NC,"+OPD$ -660 IF OPC$="CPO" THEN OPC$="CALL":OPD$="PO,"+OPD$ -670 IF OPC$="CPE" THEN OPC$="CALL":OPD$="PE,"+OPD$ -680 IF OPC$="CM" THEN OPC$="CALL":OPD$="M,"+OPD$ -690 IF (OPC$="CPI") OR (OPC$="CMP") THEN OPC$="CP":GOSUB 1580 -700 IF OPC$="ADD" THEN GOSUB 1490:GOSUB 1580:IF B$="" THEN OPD$="A,"+OPD$ -710 IF OPC$="DAD" THEN OPC$="ADD":GOSUB 1630:OPD$="HL,"+OPD$ -720 IF OPC$="ADI" THEN OPC$="ADD":OPD$="A,"+OPD$ -730 IF OPC$="DAD" THEN OPC$="ADD":OPD$="HL,"+OPD$ -740 IF OPC$="SUI" OR OPC$="SUB" THEN OPC$="SUB":GOSUB 1580 -750 IF OPC$="SBB" OR OPC$="SBI" THEN OPC$="SBC":GOSUB 1580:OPD$="A,"+OPD$ -760 IF OPC$="ACI" THEN OPC$="ADC" -770 IF OPC$="ADC" THEN OPD$="A,"+OPD$ -780 IF OPC$="DCR" THEN OPC$="DEC":GOSUB 1580 -790 IF OPC$="DCX" THEN OPC$="DEC":GOSUB 1630 -800 IF OPC$="INR" THEN OPC$="INC":GOSUB 1580 -810 IF OPC$="INX" THEN OPC$="INC":GOSUB 1630 -820 IF OPC$="CBIT" THEN OPC$="RES" -830 IF OPC$="SBIT" THEN OPC$="SET" -840 IF OPC$="ANA" THEN GOSUB 1580:OPC$="AND" -850 IF OPC$="ANI" THEN OPC$="AND" -860 IF (OPC$="ORA") OR (OPC$="ORI") THEN OPC$="OR":GOSUB 1580 -870 IF (OPC$="XRA") OR (OPC$="XRI") THEN OPC$="XOR":GOSUB 1580 -880 IF OPC$="CMC" THEN OPC$="CCF" -890 IF OPC$="STC" THEN OPC$="SCF" -900 IF OPC$="CMA" THEN OPC$="CPL" -910 IF OPC$="RLC" THEN OPC$="RLCA" -920 IF OPC$="RLC#" THEN OPC$="RLC" -930 IF OPC$="RRC" THEN OPC$="RRCA" -940 IF OPC$="RRC#" THEN OPC$="RRC" -950 IF OPC$="RAL" THEN OPC$="RLA" -960 IF OPC$="RAR" THEN OPC$="RRA" -970 IF OPC$="HLT" THEN OPC$="HALT" -980 IF OPC$="OUT" THEN OPD$="("+OPD$+"),A" -990 IF OPC$="OT,C" THEN OPC$="OUT":OPD$="(C),"+OPD$ -1000 IF OPC$="IN" THEN OPD$="A,("+OPD$+")" -1010 IF OPC$="IN,C" THEN OPC$="IN":OPD$=OPD$+",(C)" -1020 IF OPC$="XTHL" THEN OPC$="EX":OPD$="(SP),HL" -1030 IF (OPC$="EX") AND (OPD$="AF") THEN OPD$="AF,AF'" -1040 IF OPC$="XCHG" THEN OPC$="EX":OPD$="DE,HL" -1050 IF (OPC$="PUSH") OR (OPC$="POP") THEN GOSUB 1630 -1060 IF OPC$="LXI" THEN GOSUB 1490:OPD$=A$:GOSUB 1630:OPD$=OPD$+","+B$:OPC$="LD" -1070 IF OPC$="LK" THEN OPC$="LD" -1080 IF OPC$="SPHL" THEN OPC$="LD":OPD$="SP,HL" -1090 IF OPC$="RZ" THEN OPD$="Z":OPC$="RET" -1100 IF OPC$="RNZ" THEN OPD$="NZ":OPC$="RET" -1110 IF OPC$="RC" THEN OPD$="C":OPC$="RET" -1120 IF OPC$="RNC" THEN OPD$="NC":OPC$="RET" -1130 IF OPC$="RPE" THEN OPD$="PE":OPC$="RET" -1140 IF OPC$="RPO" THEN OPD$="PO":OPC$="RET" -1150 IF OPC$="RP" THEN OPD$="P":OPC$="RET" -1160 IF OPC$="RM" THEN OPD$="M":OPC$="RET" -1170 IF OPC$="RST" THEN OPD$="8*("+OPD$+")" -1180 IF OPC$="JP" THEN OPD$="P,"+OPD$ -1190 IF OPC$="JZ" THEN OPC$="JP":OPD$="Z,"+OPD$ -1200 IF OPC$="JNZ" THEN OPC$="JP":OPD$="NZ,"+OPD$ -1210 IF OPC$="JC" THEN OPC$="JP":OPD$="C,"+OPD$ -1220 IF OPC$="JNC" THEN OPC$="JP":OPD$="NC,"+OPD$ -1230 IF OPC$="JPE" THEN OPC$="JP":OPD$="PE,"+OPD$ -1240 IF OPC$="JPO" THEN OPC$="JP":OPD$="PO,"+OPD$ -1250 IF OPC$="JM" THEN OPC$="JP":OPD$="M,"+OPD$ -1260 IF OPC$="JRZ" THEN OPC$="JR":OPD$="Z,"+OPD$ -1270 IF OPC$="JRNZ" THEN OPC$="JR":OPD$="NZ,"+OPD$ -1280 IF OPC$="JRC" THEN OPC$="JR":OPD$="C,"+OPD$ -1290 IF OPC$="JRNC" THEN OPC$="JR":OPD$="NC,"+OPD$ -1300 IF OPC$="JMP" THEN OPC$="JP" -1310 IF OPC$="PCHL" THEN OPC$="JP":OPD$="(HL)" -1320 REM -1330 REM *** GENERATE THE OUTPUT RECORD -1340 REM -1350 IN$=LB$ -1360 IF IN$<>"" AND OPC$<>"MACRO" AND OPC$<>"EQU" THEN IN$=IN$+":" -1370 IF (LEN(OPC$)>0) OR (LEN(OPD$)>0) OR (LEN(CM$)>0) THEN IN$=IN$+CHR$(9)+OPC$ -1380 IF (LEN(OPD$)>0) OR (LEN(CM$)>0) THEN IN$=IN$+CHR$(9)+OPD$ -1390 IF LEN(CM$)=0 THEN 1430 -1400 IF LEN(OPD$)<8 THEN IN$=IN$+CHR$(9) -1410 IF LEFT$(CM$,1)<>";" THEN CM$=";"+CM$ -1420 IN$=IN$+CHR$(9)+CM$ -1430 PRINT IN$ -1440 PRINT #2,IN$ -1450 GOTO 90 -1460 REM -1470 REM *** SPLIT THE OPERANDS -1480 REM -1490 A$="":B$="":IF LEN(OPD$)<1 THEN RETURN -1500 LC=1:QF=-1:FOR IC=1 TO LEN(OPD$) -1505 IF MID$(OPD$,IC,1)="'" THEN QF=-QF-1 -1510 IF QF AND MID$(OPD$,IC,1)="," THEN LC=2:GOTO 1530 -1520 IF LC=1 THEN A$=A$+MID$(OPD$,IC,1) ELSE B$=B$+MID$(OPD$,IC,1) -1530 NEXT IC -1540 RETURN -1550 REM -1560 REM *** CHANGE MEMORY REGISTER TO (HL) -1570 REM -1580 IF OPD$="M" THEN OPD$="(HL)" -1590 RETURN -1600 REM -1610 REM *** CONVERT REGISTER PAIRS -1620 REM -1630 IF OPD$="B" THEN OPD$="BC" -1640 IF OPD$="H" THEN OPD$="HL" -1650 IF OPD$="D" THEN OPD$="DE" -1660 IF OPD$="PSW" THEN OPD$="AF" -1670 RETURN diff --git a/bwbtest/M80/broken/birthday.INP b/bwbtest/M80/broken/birthday.INP deleted file mode 100644 index 2e14629..0000000 --- a/bwbtest/M80/broken/birthday.INP +++ /dev/null @@ -1,10 +0,0 @@ -05,07,2015 -TOM CAT -NO -JERRY MOUSE -123 -12 -NO -1 -JANUARY -2 diff --git a/bwbtest/M80/broken/birthday.bas b/bwbtest/M80/broken/birthday.bas deleted file mode 100644 index e3f8114..0000000 --- a/bwbtest/M80/broken/birthday.bas +++ /dev/null @@ -1,155 +0,0 @@ -100 REM BIRTHDAY UPDATED 5-5-77 TO "MITS" BY D. NIXON -110 DIM Z$(12),L(12),N(60),Y$(7) -120 DIM G$(12),H$(32) -130 FOR I=1 TO 12:READ Z$(I):NEXT -140 FOR I=1 TO 12:READ L(I):NEXT -150 FOR I=1 TO 7:READ Y$(I): NEXT -160 FOR I=1 TO 12:READ G$(I):NEXT -170 FOR I=1 TO 32:READ H$(I):NEXT -180 DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST: -190 DATA SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER: -200 DATA 31,28,31,30,31,30,31,31,30,31,30,31: -210 DATA THURS,FRI,SATUR,SUN,MON,TUES,WEDNES: -220 DATA THE MOON,THE SUN,THE EARTH,THE PLANET MERCURY,VENUS,MARS: -230 DATA JUPITER,SATURN,THE PLANET URANUS,THE PLANET NEPTUNE: -240 DATA THE PLANET PLUTO,PEANUT BUTTER: -250 DATA JUXTAROTATION,CONTRAPOSITION,CONTRASTING PHASES,TRANSPOSITION: -260 DATA SATISFIED,HAPPY,INTERESTING,TOLERANT: -270 DATA OFTEN,OCCASIONALLY,SOMETIMES: -280 DATA TEND TO BE,ARE,ARE INCLINED TO BE: -290 DATA SHORT OF PATIENCE,UNEASY,AT ODDS: -300 DATA OTHERS.,CLOSE FRIENDS.,YOUNGER PEOPLE.,THOSE IN AUTHORITY.: -310 DATA ": BEWARE OF "," AVOID " -320 DATA APPLE PIE,BEING ALONE,DARK PLACES,STRANGERS,UNUSUAL SITUATIONS: -330 DATA BE TAKING A TRIP YOU HAVE NOT MADE BEFORE. -340 DATA BE MEETING SOMEONE YOU WILL KNOW FOR THE REST OF YOUR LIFE. -350 DATA MAKE SEVERAL IMPORTANT DECISIONS INVOLVING OTHERS. -360 DATA BECOME ILL IF YOU DO NOT LESSEN YOUR UNUSUAL ACTIVITIES. -370 PRINT "TYPE IN TODAY'S DATE NUMERICALLY: MO,DAY,YEAR"; -380 INPUT X1,Y1,Z1 -390 IF Z1>99 GOTO 410 -400 Z1=Z1+1900 -410 XF=X1:YF=Y1:ZF=Z1:GOSUB 1220:U=ND -420 PRINT "TODAY IS ";Y$(U-7*INT(U/7)+1);"DAY (I HOPE)" -430 PRINT -440 PRINT "HI, I'M A MICROPROCESSOR." -450 PRINT "TELL ME YOUR NAME"; -460 INPUT N$ -470 I=INSTR(N$," ")-1 -480 IF I<0 THEN 580 -490 K$=LEFT$(N$,I) -500 PRINT "ARE YOU USUALLY CALLED ";K$; -510 INPUT A$ -520 GOSUB 1140 -530 ON NA GOTO 540,560,510 -540 PRINT "WHAT DO YOU LIKE TO BE CALLED"; -550 INPUT K$ -560 PRINT "SO YOUR FULL NAME IS ";N$;", BUT YOU" -570 PRINT "LIKE TO BE CALLED ";K$;"." -580 PRINT "HOW OLD ARE YOU, ";K$; -590 INPUT A -600 A=INT(A) -610 IF INT((A-5)/95)=0 GOTO 640 -620 PRINT "COME ON, ";K$;", YOU'RE PULLING MY LEG." -630 GOTO 580 -640 PRINT "SO YOU ARE";A;"YEARS OLD." -650 PRINT "DO YOU KNOW, OFF HAND, HOW MANY DAYS OLD YOU ARE"; -660 INPUT A$ -670 GOSUB 1140 -680 ON NA GOTO 720,690,660 -690 PRINT "OK, SMARTY, HOW MANY?" -700 PRINT "SORRY, ";K$;", YOU'LL HAVE TO BE FASTER THAN THAT!" -710 GOTO 1600 -720 PRINT "OK, I'LL TELL YOU." -730 PRINT "IN WHAT MONTH WERE YOU BORN"; -740 INPUT M$ -750 FOR X=1 TO 12 -760 IF M$=Z$(X) GOTO 800 -770 NEXT X -780 PRINT K$;", YOU MAY BE NICE BUT YOU CAN'T SPELL." -790 GOTO 730 -800 PRINT "ON WHAT DAY"; -810 INPUT Y -820 Z=Z1-A -830 IF INT((Y-1)/L(X))=0 GOTO 870 -840 IF (X-1)*(Y-28)*(Z-4*INT(Z/4)+1)=1 GOTO 870 -850 PRINT "COME ON, ";N$;", YOU'RE GIVING ME A HARD TIME." -860 GOTO 800 -870 REM -880 XF=X1:YF=Y1:ZF=Z:GOSUB 1220:W=ND -890 XF=X:YF=Y:ZF=Z:GOSUB 1220:V=ND -900 IF W >= V GOTO 920 -910 Z=Z-1 -920 IF ABS(W-V)>30 GOTO 990 -930 ON SGN(W-V)+2 GOTO 940,980,960 -940 PRINT "YOU HAVE A BIRTHDAY COMING UP IN ONLY";V-W;"DAYS!" -950 GOTO 990 -960 PRINT "YOUR BIRTHDAY WAS ONLY";W-V;"DAYS AGO. CONGRATULATIONS!" -970 GOTO 990 -980 PRINT "HAPPY BIRTHDAY, DEAR ";K$;", HAPPY BIRTHDAY TO YOU." -990 XF=X:YF=Y:ZF=Z:GOSUB 1220:V=ND -1000 PRINT "YOU WERE BORN ON ";Y$(V-7*INT(V/7)+1);"DAY, ";Z$(X);Y;",";Z -1010 PRINT "WHICH MAKES YOU";U-V;"DAYS OLD." -1020 PRINT "YOU WERE BORN ON THE DAY";V;"AD, AND ON JAN. 1, 2000" -1030 PRINT "YOU WILL BE";730480!-V;"DAYS OLD." -1040 PRINT "HOW ABOUT THAT!!!" -1050 PRINT -1060 GOSUB 1350 -1070 PRINT "WELL, ";N$; -1080 IF N$=K$ GOTO 1100 -1090 PRINT " (ALIAS ";K$;")" -1100 PRINT " IT HAS BEEN NICE CHATTING WITH YOU. DO COME AGAIN." -1110 PRINT "GOOD BYE" -1120 GOTO 1600 -1130 REM SUBROUTINE FOR YES NO REQUEST -1140 NA=1 -1150 IF A$="NO" GOTO 1210 -1160 IF A$="N0" GOTO 1210 -1170 NA=2 -1180 IF A$="YES" GOTO 1210 -1190 NA=3 -1200 PRINT "A SIMPLE YES OR NO WILL DO! " -1210 RETURN -1220 REM SUBROUTINE TO SOLVE FOR NUMBER OF DAYS -1230 ND=YF-1 -1240 FOR I1=1 TO XF-1 -1250 ND=ND+L(I1) -1260 NEXT I1 -1270 I1=INT(ZF/100) -1280 IF ZF<>4*INT(ZF/4) GOTO 1330 -1290 IF ZF/100=I1 GOTO 1330 -1300 IF ND>59 GOTO 1330 -1310 IF XF=3 GOTO 1330 -1320 ND=ND-1 -1330 ND=ND+36524!*I1+INT(365.25*(ZF-100*I1)) -1340 RETURN -1350 REM GENERATE RANDOM HOROSCOPE -1360 R1=INT(12*RND(1))+1 -1370 R2 = INT(12*RND(1))+1 -1380 IF R1=R2 GOTO 1370 -1390 R=1 -1400 X=4:GOSUB 1570 -1410 PRINT "YOU WERE BORN UNDER THE ";H$(NR);" OF ";G$(R1) -1420 X=4:GOSUB 1570 -1430 PRINT "AND ";G$(R2);". YOU ARE A BASICALLY ";H$(NR) -1440 X=3:GOSUB 1570 -1450 PRINT "PERSON BUT ";H$(NR); -1460 GOSUB 1570 -1470 PRINT " YOU ";H$(NR) -1480 GOSUB 1570:N1=NR:X=4:GOSUB 1570:N2=NR:X=2:GOSUB 1570 -1490 PRINT H$(N1);" WITH ";H$(N2);H$(NR) -1500 X=5:GOSUB 1570 -1510 PRINT H$(NR);" FOR THE NEXT WEEK. I PREDICT YOU WILL SOON" -1520 X=4:GOSUB 1570 -1530 PRINT H$(NR) -1540 PRINT -1550 RETURN -1560 REM SUBROUTINE TO SELECT RANDOM WORDS -1570 NR=INT(X*RND(1))+R -1580 R=R+X -1590 RETURN -1600 REM END -9991 REM --------------------------------- -9992 REM Updated for bwBASIC 3.0 by Howard Wulf, AF5NE, May 7th 2015: -9993 REM a) changed => to >= on line 900 -9999 END diff --git a/bwbtest/M80/broken/cpm-pert.INP b/bwbtest/M80/broken/cpm-pert.INP deleted file mode 100644 index dc9bd8c..0000000 --- a/bwbtest/M80/broken/cpm-pert.INP +++ /dev/null @@ -1,22 +0,0 @@ -C -Y -3 -1 -20 -2 -15 -2 -3 -22 -1 -3 -30 -Y -Y -1 -1 -2 -11 -0 -N -S diff --git a/bwbtest/M80/broken/cpm-pert.bas b/bwbtest/M80/broken/cpm-pert.bas deleted file mode 100644 index 1b9d955..0000000 --- a/bwbtest/M80/broken/cpm-pert.bas +++ /dev/null @@ -1,280 +0,0 @@ -10 REM CPM-PERT PROGRAM FROM INTERFACE AGE, FEB. 1981 -12 REM WRITTEN BY RICHARD PARRY -14 REM ADAPTED TO MICROSOFT BASIC BY CHARLES H STROM -16 REM -17 REM NOTE: PRINTER OPERATION REQUIRES LOADING SETUP.ASM BEFORE MBASIC -18 REM *INITIALIZE NORMAL DISTRIBUTION CONSTANTS -20 RN=15: RS=SQR(3/RN) -25 CL$=CHR$(27)+CHR$(28): REM CHARACTER STRING TO HOME CURSOR & CLEAR SCREEN -30 REM ************** -40 REM * INPUT DATA * -50 REM ************** -55 PRINT CL$ -60 INPUT "CPM or PERT Simulation (C/P) "; Q$ -65 INPUT "Do you want a HARD-COPY record (Y/N)"; HC$: HC$=LEFT$(HC$,1) -66 IF HC$="Y" THEN PRINT "NOTE - SETUP.ASM MUST BE LOADED BEFORE MBASIC OR PRINTER WILL NOT FUNCTION!" -68 PRINT -70 INPUT "Number of Activities"; N -80 DIM ML(N), MO(N), MP(N), CP(N), ME(N), SD(N), IC(20) -90 DIM S(N), F(N), D(N), E(N), L(N), F1(N) -100 FOR I=1 TO N -110 PRINT CL$: PRINT "ACTIVITY"; I: PRINT -120 REM * GO TO INPUT DATA ROUTINE -130 GOSUB 1920 -140 NEXT I -150 PRINT CL$: INPUT "Would you like to examine or edit the input data (Y/N)";Q1$ -160 IF LEFT$(Q1$,1) = "N" THEN 430 -170 REM *SORT INPUT DATA -180 GOSUB 2080 -190 REM ********************** -200 REM * DISPLAY INPUT DATA * -210 REM ********************** -215 IF HC$="Y" THEN POKE 37,195 -220 PRINT CL$: IF LEFT$(Q$,1)<>"C" THEN 280 -230 PRINT "ACTIVITY # FROM TO DURATION" -240 FOR I = 1 TO N -250 PRINT TAB(5); I; TAB(15); S(I); TAB(25); F(I); TAB(35); D(I) -260 NEXT I -270 GOTO 340 -280 PRINT "ACTIVITY # FROM TO ML MO MP" -290 FOR I = 1 TO N -300 PRINT TAB(5); I; TAB(15); S(I); TAB(25); F(I); -310 PRINT TAB(35); ML(I); TAB(45); MO(I); TAB(55); MP(I) -320 NEXT I -330 PRINT -340 POKE 37,201:PRINT: INPUT "Would you like to edit an activity (Y/N)"; Q1$ -350 IF LEFT$(Q1$,1) = "N" THEN 430 -360 REM * EDIT MODE -370 PRINT: INPUT "What activity needs alteration (0 to end)"; I -380 IF I=0 THEN 150 -390 REM * GO TO INPUT DATA ROUTINE -400 GOSUB 1920 -410 GOTO 370 -420 REM * GO TO SORT ROUTINE -430 GOSUB 2080 -440 IF LEFT$(Q$,1) <>"C" THEN 760 -450 REM *********************************************************** -460 REM * CRITICAL PATH ANALYSIS REQUESTED. PERFORM CRITICAL PATH * -470 REM * ANALYSIS ONCE AND DISPLAY RESULTS. * -480 REM *********************************************************** -490 GOSUB 2340 -500 C2=0 -505 IF HC$="Y" THEN POKE 37,195 -510 PRINT CL$: PRINT "CP ANALYSIS IS:" -520 PRINT: PRINT: PRINT "FROM","TO","EST","LFT","FLOAT": PRINT -530 FOR I = 1 TO N -540 PRINT S(I),F(I),E(S(I)),L(F(I)),F1(I) -550 NEXT I -560 PRINT "THE CRITICAL PATH LENGTH IS ";PL -570 PRINT: PRINT "THE CRITICAL PATH IS:": PRINT"FROM","TO": PRINT -580 FOR I = 1 TO N -590 IF F1(I) = 0 THEN 610 -600 NEXT I -610 PRINT S(I),F(I): C2=C2+1: IF I>N THEN 650 -620 FOR M= 1 TO N -630 IF S(M)=F(I) AND F1(M) = 0 THEN I=M: GOTO 610 -640 NEXT M -650 IF C1<>C2 THEN PRINT: PRINT "THERE IS MORE THAN ONE CRITICAL PATH" -660 PRINT: POKE 37,201 -670 INPUT "Would you like to edit an activity or stop program (E/S)"; Q1$ -680 IF LEFT$(Q1$,1) = "E" THEN PRINT: GOTO 220: -690 END -700 REM ***************************************************************** -710 REM * PERT SIMULATION REQUESTED. PERFORM CRITICAL PATH ANALYSIS THE * -720 REM * NUMBER OF TIMES SPECIFIED. STORE PATH LENGTHS AND INCREMENT * -730 REM * ACTIVITIES WHICH APPEAR ON CRITICAL PATH. CONSTRUCT HISTOGRAM * -740 REM * AND DISPLAY RESULTS. * -750 REM ***************************************************************** -760 FOR I = 1 TO N -770 REM * COMPUTE MEAN OF EACH ACTIVITY -780 ME(I) = (MO(I)+4*ML(I)+MP(I))/6 -790 REM * COMPUTE STANDARD DEVIATION OF EACH ACTIVITY -800 SD(I) = (MP(I)-MO(I))/6 -810 NEXT I -820 REM * COMPUTE MOST OPTIMISTIC PATH LENGTH -830 DU=0: FOR I=1 TO N: CP(I)=0: E(I)=0: L(I)=0: NEXT I -840 FOR I = 1 TO N -850 D(I)=MO(I) -860 NEXT I -870 GOSUB 2340 -880 BC=PL -890 REM * COMPUTE MOST PESSIMISTIC PATH LENGTH -900 DU=0: FOR I=1 TO N: CP(I)=0: E(I)=0: L(I)=0: NEXT I -910 FOR I = 1 TO N -920 D(I)=MP(I) -930 NEXT I -940 GOSUB 2340 -950 WC=PL -960 REM * INITIALIZ KEY VARIABLES -970 DU=0: FOR I = 1 TO N: CP(I)=0: E(I)=0: L(I)=0: NEXT I -980 LS=0: HS=0: FOR I=1 TO 20: IC(I)=0: NEXT I -990 REM * INITIALIZE RANDOM NUMBER GENERATOR -1000 RANDOMIZE -1010 REM * PROPOSE # OF TRANSACTIONS AS 20 TIMES # OF ACTIVITIES -1020 PRINT "Number of transactions should be >= "; 20*N -1030 INPUT "Number of transactions"; NS -1040 PRINT: PRINT "++SIMULATION IN PROGRESS++" -1050 REM *********************** -1060 REM * CONSTRUCT HISTOGRAM * -1070 REM *********************** -1080 REM * SET APPROPRIATE INTERVAL (I.E. INTEGER >=1) -1090 LL=INT(BC) -1100 IF WC-BC<=20 THEN IN=1 -1110 IN=INT((WC-BC)/20)+1 -1120 REM ********************** -1130 REM * PERFORM SIMULATION * -1140 REM ********************** -1150 TC=100 -1160 FOR K=1 TO NS -1170 IF K=TC THEN PRINT "++SIMULATION IN PROGRESS++", TC: TC=TC+100 -1180 FOR J=1 TO N -1190 S=0: E(J)=0: L(J)=0 -1200 IF ML(J)=0 THEN D(J)=0: GOTO 1250 -1210 FOR I=1 TO RN -1220 S=S+2*RND-1 -1230 NEXT I -1240 D(J)=ME(J)+SD(J)*S*RS -1250 NEXT J -1260 GOSUB 2340 -1270 REM * FIND INTERVAL FOR THIS PATH LENGTH -1280 I3=(PL-LL)/IN+2 -1290 IF I3<1 THEN LS=LS+1: GOTO 1330 -1300 IF I3>20 THEN HS=HS+1: GOTO 1330 -1310 I3=INT(I3) -1320 IC(I3)=IC(I3)+1 -1330 NEXT K -1340 REM ************************************** -1350 REM * PRINT FREQUENCY DISTRIBUTION TABLE * -1360 REM ************************************** -1365 IF HC$="Y" THEN POKE 37,195 -1370 PRINT CL$: PRINT "++FREQUENCY DISTRIBUTION TABLE++": PRINT -1380 PRINT "Most OPTIMISTIC path length"; BC -1390 PRINT "Most PESSIMISTIC path length"; WC -1400 PRINT "Number of transactions LOWER than histogram range ";LS -1410 PRINT "Number of transactions HIGHER than histogram range ";HS: PRINT -1420 PRINT " INTERVAL FREQ. PCT." -1430 I1=LL-IN: I2=LL -1440 FOR M=1 TO 20 -1450 PRINT"=>";I1;"<";I2;TAB(20);IC(M);TAB(30);INT(.5+100*IC(M)/NS) -1460 I1=I1+IN: I2=I2+IN -1470 NEXT M -1480 REM ******************* -1490 REM * PRINT HISTOGRAM * -1500 REM ******************* -1510 REM * COMPUTE HISTOGRAM SCALE FACTOR -1520 SC=0: LO=18: J=0: LL=INT(BC) -1530 FOR M=1 TO 20 -1540 IF IC(M)>SC THEN SC=IC(M) -1550 NEXT M -1560 SC=50/SC -1570 X$="PATH LENGTH" -1580 PRINT: PRINT: PRINT TAB(24); "++ HISTOGRAM ++": PRINT -1590 PRINT TAB(18);"RELATIVE FREQUENCY OF PATH LENGTHS" -1600 PRINT TAB(LO); "+------------------------------------------------+" -1610 FOR M=1 TO 20 -1620 HM=IC(M)*SC -1630 FOR K=1 TO 3 -1640 J=J+1: PRINT MID$(X$,J,1);TAB(2); -1650 IF K=2 THEN PRINT ">=";LL-IN;"<";LL;: LL=LL+IN -1660 PRINT TAB(LO); -1670 IF IC(M)=0 THEN PRINT: GOTO 1720 -1680 FOR I=1 TO HM -1690 PRINT "*"; -1700 NEXT I -1710 PRINT -1720 NEXT K -1730 NEXT M -1740 REM *************************** -1750 REM * PRINT ACTIVITY ANALYSIS * -1760 REM *************************** -1770 PRINT: PRINT -1780 PRINT TAB(10); "+++ CP ACTIVITY ANALYSIS TABLE +++": PRINT -1790 PRINT "ACTIVITY # FROM TO CP FREQ. PCT." -1800 FOR I=1 TO N -1810 PRINT TAB(5);I;TAB(15);S(I);TAB(25);F(I); -1820 PRINT TAB(35);CP(I);TAB(45);INT(.5+100*CP(I)/NS) -1830 NEXT I -1840 PRINT: PRINT "DUPLICATE critical paths occurred";DU;"times." -1850 PRINT: POKE 37,201 -1860 INPUT "Would you like to edit an activity or stop program (E/S)"; Q1$ -1870 IF LEFT$(Q1$,1)="E" THEN PRINT: GOTO 220 -1880 END -1890 REM ********************** -1900 REM * INPUT DATA ROUTINE * -1910 REM ********************** -1920 INPUT "FROM";S(I) -1930 INPUT "TO";F(I) -1940 IF F(I)>N THEN PRINT "++END NODE # NOT <= # OF ACTIVITIES++":GOTO 1930 -1950 IF S(I)>F(I) THEN PRINT "++START NODE MUST BE < END NODE++":GOTO 1920 -1960 IF LEFT$(Q$,1)="C" THEN INPUT "DURATION";D(I): GOTO 2040 -1970 INPUT "MOST LIKELY";ML(I) -1980 REM * CHECK FOR DUMMY ACTIVITY -1990 IF ML(I)=0 THEN MO(I)=0: MP(I)=0: GOTO 2040 -2000 INPUT "MOST OPTIMISTIC"; MO(I) -2010 IF MO(I)>ML(I) THEN PRINT "++MO MUST BE <= ML++": GOTO 2000 -2020 INPUT "MOST PESSIMISTIC"; MP(I) -2030 IF MP(I)= ML++": GOTO 2020 -2040 RETURN -2050 REM ************************************* -2060 REM * SORT DATA USING START NODE AS KEY * -2070 REM ************************************* -2080 PRINT: PRINT "SORTING IN PROGRESS": PRINT -2090 SW=0 -2100 FOR I=1 TO N-1 -2110 J=I+1 -2120 IF S(I)<=S(J) THEN 2200 -2130 EX=S(I): S(I)=S(J): S(J)=EX -2140 EX=F(I): F(I)=F(J): F(J)=EX -2150 EX=D(I): D(I)=D(J): D(J)=EX -2160 EX=ML(I): ML(I)=ML(J): ML(J)=EX -2170 EX=MO(I): MO(I)=MO(J): MO(J)=EX -2180 EX=MP(I): MP(I)=MP(J): MP(J)=EX -2190 SW=1 -2200 NEXT I -2210 IF SW=1 THEN 2090 -2220 RETURN -2230 REM ************************************************************* -2240 REM * THE FOLLOWING SUBROUTINE IS USED BY BOTH THE CPM ANALYSIS * -2250 REM * AS WELL AS THE PERT SIMULATION ANALYSIS. WHILE THE CPM * -2260 REM * ANALYSIS CALLS THE ROUTINE ONLY ONCE, THE SIMULATION * -2270 REM * CALLS THE ROUTINE THE NUMBER OF TIMES REQUESTED BY THE * -2280 REM * USER. THE EARLIEST, LATEST, AND FLOAT TIMES ARE COMPUTED * -2290 REM * AND FROM THIS DATA THE CRITICAL PATH LENGTH AND CRITICAL * -2300 REM * PATH ARE CALCULATED. DUPLICATE CRITICAL PATHS ARE ONLY * -2310 REM * COUNTED ONCE. * -2320 REM ************************************************************* -2330 REM * COMPUTE EARLIEST STARTING TIME -2340 C1=0: C2=0: PL=0 -2350 FOR I=1 TO N -2360 M1=E(S(I))+D(I) -2370 IF E(F(I))<=M1 THEN E(F(I))=M1 -2380 NEXT I -2390 REM * COMPUTE LATEST FINISHING TIME -2400 L(F(N))=E(F(N)) -2410 FOR I=N TO 1 STEP -1 -2420 L1=S(I): M2=L(F(I))-D(I) -2430 IF L(L1)>=M2 OR L(L1)=0 THEN L(L1)=M2 -2440 NEXT I -2450 REM * COMPUTE FLOAT TIME -2460 FOR I=1 TO N -2470 F1(I)=L(F(I))-E(S(I))-D(I) -2480 IF F1(I)<.0001 THEN F1(I)=0: C1=C1+1 -2490 NEXT I -2500 REM * COMPUTE CRITICAL PATH LENGTH -2510 FOR I=1 TO N -2520 IF L(F(I))>PL THEN PL=L(F(I)) -2530 NEXT I -2540 REM * COMPUTE CRITICAL PATH -2550 FOR I=1 TO N -2560 IF F1(I)=0 THEN 2580 -2570 NEXT I -2580 C2=C2+1: CP(I)=CP(I)+1 -2590 IF I>N THEN 2630 -2600 FOR M=1 TO N -2610 IF S(M)=F(I) AND F1(M)=0 THEN I=M: GOTO 2580 -2620 NEXT M -2630 IF C1<>C2 THEN DU=DU+1 -2640 RETURN -3000 REM -3010 SUB POKE(X,Y) -3020 END SUB diff --git a/bwbtest/M80/broken/directry.INP b/bwbtest/M80/broken/directry.INP deleted file mode 100644 index ad886e1..0000000 --- a/bwbtest/M80/broken/directry.INP +++ /dev/null @@ -1,21 +0,0 @@ -2 -CAT -TOM -123 Main Street -Anywhere -TX -98765 -123-4567 -N -2 -MOUSE -JERRY -456 Cartoon Lane -Somewhere -TX -91234 -222-3333 -N -1 -CAT -TOM diff --git a/bwbtest/M80/broken/directry.TXT b/bwbtest/M80/broken/directry.TXT deleted file mode 100644 index 243c9f5..0000000 --- a/bwbtest/M80/broken/directry.TXT +++ /dev/null @@ -1 +0,0 @@ -This program checks EOF after GET and PUT, so the logic is wrong. diff --git a/bwbtest/M80/broken/directry.bas b/bwbtest/M80/broken/directry.bas deleted file mode 100644 index 20a0f11..0000000 --- a/bwbtest/M80/broken/directry.bas +++ /dev/null @@ -1,236 +0,0 @@ -5 RESET -9 PRINT TAB(21); -10 PRINT "DIRECTORY" -19 PRINT TAB(7); -20 PRINT "CHOOSE ONE OF THE FOLLOWING BY NUMBER:" -29 PRINT TAB(10); -30 PRINT "1. EXAMINE a record on file" -39 PRINT TAB(10); -40 PRINT "2. ADD a record to the file" -49 PRINT TAB(10); -50 PRINT "3. DELETE a record from the file" -59 PRINT TAB(10); -60 PRINT "4. PRINT OUT the entire file" -69 PRINT TAB(21); -70 INPUT "Input #: ",CHOICE -72 IF CHOICE<1 THEN 70 -73 IF CHOICE>4 THEN 70 -75 ON CHOICE GOTO 80, 120, 130, 170 -80 MATCH=0 -81 GOSUB 600 -83 IF MATCH = 0 THEN 9 -84 LAST.NAME$ = L$ -85 FIRST.NAME$ = F$ -86 STREET$ = S$ -87 CITY$ = C$ -88 STATE$ = ST$ -89 ZIP$ = Z$ -90 TELEPHONE$ = T$ -92 GOSUB 300 -93 IF MID$(RESPONSE$,1,1)="N" THEN 9 -94 GOSUB 200 -95 GOSUB 300 -96 IF MID$(RESPONSE$,1,1)="Y" THEN 94 -97 IF L$+F$ <>LAST.NAME$+FIRST.NAME$ THEN 112 -99 OPEN "R",1,"DIRECTRY.DAT",104 -100 FIELD #1,20 AS L$,20 AS F$,25 AS S$,20 AS C$,2 AS ST$,5 AS Z$,12 AS T$ -101 LSET L$ = LAST.NAME$ -102 LSET F$ = FIRST.NAME$ -103 LSET S$ = STREET$ -104 LSET C$ = CITY$ -105 LSET ST$ = STATE$ -106 LSET Z$ = ZIP$ -107 LSET T$ = TELEPHONE$ -108 PUT #1, RECORD.NUMBER -109 CLOSE #1 -110 GOTO 9 -112 PRINT "LAST AND FIRST NAMES MAY NOT BE CHANGED." -114 PRINT "YOUR MUST DELETE THE OLD RECORD AND THEN" -116 PRINT "ADD THE NEW ONE." -118 INPUT "PRESS RETURN TO CONTINUE",Y$ -119 GOTO 9 -120 GOSUB 200 -122 GOSUB 300 -124 IF MID$(RESPONSE$,1,1)="Y" THEN 120 -126 GOSUB 400 -128 GOTO 9 -130 GOSUB 500 -132 GOTO 9 -170 OPEN "R", 1,"DIRECTRY.DAT",104 -172 FIELD #1, 104 AS ENTIRE.RECORD$ -174 LPRINT "DIRECTORY": LPRINT -176 GET #1 -177 IF EOF(1)=-1 THEN 192 -178 LPRINT MID$(ENTIRE.RECORD$,21,20) -179 LPRINT MID$(ENTIRE.RECORD$,1,20) -180 LPRINT MID$(ENTIRE.RECORD$,41,25) -182 LPRINT MID$(ENTIRE.RECORD$,66,20) -184 LPRINT MID$(ENTIRE.RECORD$,86,2) -186 LPRINT MID$(ENTIRE.RECORD$,88,5) -188 LPRINT MID$(ENTIRE.RECORD$,93,12) -189 LPRINT: LPRINT: LPRINT -190 GOTO 176 -192 CLOSE #1 -194 GOTO 9 -200 REM ********** INPUT ROUTINE ********** -202 PRINT CHR$(26) -204 GOSUB 244 -206 PRINT TAB(21); "DIRECTORY" -208 PRINT TAB(12); "PLEASE SUPPLY THE FOLLOWING:" -210 GOSUB 244 -212 PRINT TAB(8); -214 INPUT "Last Name: ",LAST.NAME$ -216 PRINT TAB(8); -218 INPUT "First Name: ",FIRST.NAME$ -219 GOSUB 700 -220 PRINT TAB(8); -222 INPUT "Street Address: ",STREET$ -224 PRINT TAB(8); -226 INPUT "City: ",CITY$ -228 PRINT TAB(8); -230 INPUT "State (ex: NY): ",STATE$ -232 PRINT TAB(8); -234 INPUT "Zip Code: ",ZIP$ -236 PRINT TAB(8); -238 INPUT "Telephone (###-####): ",TELEPHONE$ -240 GOSUB 244 -242 RETURN -244 FOR I = 1 TO 5 -246 PRINT -248 NEXT I -250 RETURN -300 REM ************* OUTPUT ROUTINE ********** -302 PRINT CHR$(26) -304 GOSUB 336 -306 PRINT TAB(21);"DIRECTORY" -308 GOSUB 336 -310 PRINT TAB(8); "Last Name: "; LAST.NAME$ -312 PRINT TAB(8); "First Name: "; FIRST.NAME$ -314 PRINT TAB(8); "Street Address: "; STREET$ -316 PRINT TAB(8); "City: "; CITY$ -318 PRINT TAB(8); "State: "; STATE$ -320 PRINT TAB(8); "Zip Code: "; ZIP$ -322 PRINT TAB(8); "Tel (###-####): "; TELEPHONE$ -324 GOSUB 336 -325 REM PRINT "DO YOU WISH TO MAKE ANY CHANGES"; RESPONSE$ -326 INPUT "DO YOU WISH TO MAKE ANY CHANGES"; RESPONSE$ -328 IF MID$(RESPONSE$,1,1) = "Y" THEN 334 -330 IF MID$(RESPONSE$,1,1) <> "N" THEN 326 -332 RETURN -334 GOTO 332 -336 FOR I = 1 TO 5 -338 PRINT -340 NEXT I -342 RETURN -400 REM ************* ADD ROUTINE ************* -402 PRINT CHR$(26) -404 MARKER = 0 -406 FULL.NAME$ = LAST.NAME$ + FIRST.NAME$ -408 OPEN "R", 1, "DIRECTRY.DAT", 104 -410 OPEN "R", 2, "UPDATE.DAT", 104 -412 FIELD #1,20 AS L$,20 AS F$,25 AS S$,20 AS C$,2 AS ST$,5 AS Z$,12 AS T$ -414 FIELD #2,20 AS A$,20 AS B$,25 AS D$,20 AS E$,2 AS G$,5 AS H$,12 AS I$ -416 GET #1 -418 IF EOF(1) = -1 THEN 452 -420 IF MARKER = 1 THEN 434 -422 GOSUB 462 -424 IF F.N$ <> FULL.NAME$ THEN 434 -426 PRINT TAB(11);"THAT RECORD IS ALREADY ON FILE." -428 INPUT "PRESS RETURN TO CONTINUE.",Y$ -429 CLOSE #1: CLOSE #2 -430 KILL "UPDATE.DAT" -432 GOTO 460 -434 LSET A$ = L$ -436 LSET B$ = F$ -438 LSET D$ = S$ -440 LSET E$ = C$ -442 LSET G$ = ST$ -444 LSET H$ = Z$ -446 LSET I$ = T$ -448 PUT #2 -450 GOTO 416 -452 IF MARKER = 1 THEN 455 -454 GOSUB 466 -455 CLOSE #1: CLOSE #2 -456 KILL "DIRECTRY.DAT" -458 NAME "UPDATE.DAT" AS "DIRECTRY.DAT" -460 RETURN : CLOSE #1: CLOSE #2: RETURN -462 IF F.N$ <=FULL.NAME$ THEN 482 -466 LSET A$ = LAST.NAME$ -468 LSET B$ = FIRST.NAME$ -470 LSET D$ = STREET$ -472 LSET E$ = CITY$ -474 LSET I$ = TELEPHONE$ -476 LSET H$ = ZIP$ -478 LSET I$ = TELEPHONE$ -480 PUT #2: MARKER = 1 -482 RETURN -500 REM *********** DELETE ROUTINE ********* -502 MARKER = 0 -504 PRINT CHR$(26) -506 PRINT TAB(7); -508 PRINT "FOR THE RECORD THAT YOU WISH TO DELETE:" -510 PRINT TAB(15); -516 INPUT "FIRST NAME: ",FIRST.NAME$ -517 GOSUB 700 -518 FULL.NAME$ = LAST.NAME$ + FIRST.NAME$ -520 OPEN "R", 1, "DIRECTRY.DAT", 104 -522 OPEN "R", 2, "UPDATE.DAT", 104 -524 FIELD #1, 40 AS F.N$, 64 AS REST$ -526 FIELD #2, 40 AS F.N2$, 64 AS REST2$ -528 GET #1 -530 IF EOF(1)=-1 THEN 546 -532 IF MARKER = 0 THEN IF F.N$ = FULL.NAME$ THEN 542 -534 LSET F.N2$ = F.N$ -536 LSET REST2$ = REST$ -538 PUT #2 -540 GOTO 528 -542 MARKER = 1 -544 GOTO 528 -546 IF MARKER = 1 THEN 555 -548 PRINT: PRINT: PRINT TAB(17); -550 PRINT "RECORD NOT ON FILE." -552 PRINT: PRINT TAB(14); -554 INPUT "PRESS RETURN TO CONTINUE",Y$ -555 CLOSE #1: CLOSE #2 -556 KILL "DIRECTRY.DAT" -558 NAME "UPDATE.DAT" AS "DIRECTRY.DAT" -560 CLOSE #1: CLOSE #2: RETURN -600 REM ********** SEARCH ROUTINE ********** -602 PRINT CHR$(26) -604 OPEN "R", 1, "DIRECTRY.DAT", 104 -606 FIELD #1,20 AS L$,20 AS F$,25 AS S$,20 AS C$,2 AS ST$,5 AS Z$,12 AS T$ -608 GOSUB 652 -610 PRINT TAB(12); -612 PRINT "PLEASE SUPPLY THE FOLLOWING:" -614 GOSUB 652 -616 PRINT TAB(15); -618 INPUT "LAST NAME: ";LAST.NAME$ -620 PRINT TAB(15); -622 INPUT "FIRST NAME: ";FIRST.NAME$ -623 GOSUB 700 -624 RECORD.NUMBER = 1 -626 GET #1, RECORD.NUMBER -628 IF L$ <> LAST.NAME$ THEN 634 -630 IF F$ <> FIRST.NAME$ THEN 634 -631 MATCH = 1 -632 CLOSE #1: RETURN -634 IF EOF(1) <> -1 THEN 648 -636 GOSUB 652 -638 PRINT TAB(17); -640 PRINT "RECORD NOT ON FILE." -642 PRINT: PRINT TAB(14); -644 PRINT "PRESS RETURN TO CONTINUE.",Y$ -646 GOTO 632 -648 RECORD.NUMBER = RECORD.NUMBER + 1 -650 GOTO 626 -652 FOR P = 1 TO 6 -654 PRINT -656 NEXT P -658 RETURN -700 SPACER$=" " -710 LAST.NAME$ = LAST.NAME$+SPACER$ -720 LAST.NAME$ = MID$(LAST.NAME$,1,20) -730 FIRST.NAME$ = FIRST.NAME$+SPACER$ -740 FIRST.NAME$ = MID$(FIRST.NAME$,1,20) -750 RETURN diff --git a/bwbtest/M80/broken/el-e.txt b/bwbtest/M80/broken/el-e.txt deleted file mode 100644 index e94e405..0000000 --- a/bwbtest/M80/broken/el-e.txt +++ /dev/null @@ -1,565 +0,0 @@ - PRINT " *** ELECTRICAL ENGENEERING & DESIGN ***" - PRINT " J. Schrabal, April 1979" - PRINT - PRINT "File cleaned up of typos and put somewhat of a structure" - PRINT "in it: 8/25/82 by S. Kluger" - PRINT - pi = 3.141592654 REM pi constant -10 PRINT "To select one of the programs just type it's number" - PRINT "and hit 'RETURN' key. Enter all alphabetic answers in UPPER CASE!" - PRINT -20 PRINT "Select from the following routines (0 to quit) :" - PRINT " 1. Ohm's law (DC)" - PRINT " 2. Zener stabilized DC supply" - PRINT " 3. DC power supply design" - PRINT " 4. Low pass 2-pole Butterworth filter" - PRINT " 5. Series resonant frequency circuit" - PRINT " 6. Passive band-pass filter" - PRINT " 7. Small coil design & inductance calculations" - PRINT " 8. Long wire antenna" - PRINT " 9. Dipole or half wave antenna" - PRINT " 10. Time constant calculation" - PRINT " 11. Resistance of wire" - PRINT " 12. Crystal (rec./tr.) frequency calculations" - PRINT - INPUT "What routine do you wish to select";SELECTION - IF SELECTION>0 AND SELECTION<13 THEN 30 - IF SELECTION=0 THEN 9999 - PRINT "Please answer with number fom 0 to 12":GOTO 20 -30 ON SELECTION GO TO 100,200,250,300,400,500,600,700,800,900,1000,1200 - - REM PART 1 (100) - -100 PRINT - PRINT " *** OHM's LAW (DC) ***" -110 PRINT - PRINT " ENTER values for 2 (two) known" - PRINT " ENTER 0 (zero) for unknown values to be calculated" - PRINT - INPUT "Potential in volts ";E - INPUT "Current flow in amperes ";I - IF E>0 AND I>0 THEN 111 - INPUT "Resistance in ohms";R - IF I>0 AND R>0 AND E=0 THEN 120 - IF E>0 AND R>0 AND I=0 THEN 130 - INPUT "Power in watts ";P - IF E>0 AND I=0 AND R=0 THEN 141 - IF I>0 AND E=0 AND R=0 THEN 142 - IF R>0 AND E=0 AND I=0 THEN 143 -111 R=E/I - GOTO 140 -120 E=I*R - GOTO 140 -130 I=E/R -140 P=E*I - GOTO 150 -141 I=P/E - R=(E^2)/P - GOTO 150 -142 E=P/I - R=E/I - GOTO 150 -143 E=(P*R)^.5 - I=E/R -150 PRINT - PRINT "Potential = ";E;" volts" - PRINT "Current flow = ";I;" amperes" - PRINT "Resistance = ";R;" ohms" - PRINT "Power = ";P;" watts" - PRINT - INPUT "MORE CALCULATIONS? (YES/NO)";ANS$ - IF ANS$="YES" THEN GOTO 110 ELSE GOTO 20 - - REM Part 2 (200) - -200 PRINT - PRINT " *** ZENER STABILIZED CIRCUIT DESIGN ***" -210 PRINT - INPUT "Voltage rating of zener diode";A - INPUT "Wattage rating of zener diode";W - INPUT "Maximum DC voltage of power supply";B - R=((B-A)^2)/W - I=(W/R)^.5 REM in amperes - PRINT "For an open circuit, or for load up to ";I*1000;" miliamperes" - PRINT "Use ";R;"ohms ";W;" watt resistor" - PRINT - PRINT "Will the load (device) you use have larger than "; - PRINT W;"watts consumption?" - INPUT "(YES/NO)";A$ - IF A$="NO" THEN 220 - INPUT "What is the maximum wattage of the device you use:";C - X=((B-A)^2)/((W/2)+C) - PRINT "Use ";X; "ohms ";W+C;" watts resistor" - PRINT "WARNING: Zener diode will probably burn out if the load" - PRINT " should be removed and circuit left open." - PRINT -220 INPUT "More calculations? (YES/NO)";ANS$ - IF ANS$="YES" THEN GOTO 210 ELSE GOTO 20 - -250 REM Part 2.1 - - PRINT " *** POWER SUPPLY DESIGN ***" - PRINT - INPUT "What is LINE AC voltage supplied by utility";A -251 INPUT "What is transformer's primary rating (or tap)";B -252 INPUT "What is RMS voltage of secondary winding";C - D=(C*A)/B REM D is max.RMS - P=D*1.4 REM P is peak voltage - M=P+(P/4) REM M is maximum peak -256 INPUT "What is the needed (desired) DC voltage";O - IF C>(2*O) THEN 267 - IF O>C THEN 268 - PRINT "What is the voltage rating of REGULATORS" - INPUT " used with the power supply";Z - IF ((Z+2.5)+(Z*.1))>O THEN 269 - IF ((Z+3.5)+(Z*.25))100 THEN 330 - PRINT "Value of C2 in mF (microFarads)" - INPUT "Note: 0.02 mF = 0.000 000 02 F ";C - R=A/(4*pi*F*C/1000000) - PRINT - PRINT " .---------. C1 = ";(4*(1+H)*C)/(A^2) - PRINT " X : C2 = ";C - PRINT " X R2 = C2 R1 = ";R/H - PRINT " X : R2 = ";R - PRINT " R1 : R3 : - o R3 = ";R/(H+1) - PRINT "--XXXXXX--:--XXXXXX-:---o o" - PRINT " : o o" - PRINT " E-in : o o---------------" - PRINT " = C1 + o o" - PRINT " : ---o o" - PRINT " : : o E-out" - PRINT " : :" - PRINT "----------:----------:--------------------------" - INPUT "Another gain/alpha ratio? (YES/NO)";ANS$ - IF ANS$="YES" THEN 320 - INPUT "Another filter configuration (YES/NO)";B$ - IF B$="YES" THEN GOTO 310 ELSE GOTO 20 -330 PRINT"Because operational amplifiers are non-ideal, pass-" - PRINT "band gain should be chosen to be less than 10 when peaking" - PRINT "factor Alpha = 0-1" - PRINT "Gain of 100 with peaking factor=1 is acceptable for " - PRINT "for peaking gain 80 dB in 2-pole Batterworth config-" - PRINT "uration." - PRINT - GOTO 320 - - REM Part 4 (400) - -400 PRINT - PRINT " *** SERIES RESONANT FREQUENCY CIRCUITS ***" -410 PRINT - INPUT "Inductance in MH (Milli-Henrys)";L - INPUT "Capacitance in NF (Nano-Farads)";C - PRINT - PRINT "Series L/C resonant frequency is ";\ - 1000/(6.283185307*((L*C)^0.5));" KHz (Kilo Hertz)" - PRINT "Note: this frequency is not affected by resistance in the circuit" - PRINT - INPUT "More calculations? (YES/NO)";ANS$ - IF ANS$="YES" THEN 410 - GOTO 20 - - REM Part 5 (500) - -500 PRINT - PRINT " *** PASSIVE BANDPASS FILTER DESIGN ***" - PRINT - PRINT" This program is based on ELECTRICAL ENGINEERING &" - PRINT "CIRCUITS DESIGN by Skilling, Willey, 1961." - PRINT " It will calculate ideal component values for the" - PRINT "T-section and PI-Section filters, given F1, F2,and R" -510 PRINT - INPUT "What is F1, low cut-off frequency (in Hertz)";L - INPUT "What is F2, high cut-off frequency (in Hertz)";H - IF L>H THEN 560 - INPUT "What is R, image impedance in mid-frequency (in ohms)";R - IF L<0 THEN 581 - IF H<0 THEN 581 - IF R<0 THEN 581 - X=H-L - Y=12.56637061*L*H - Z=pi -520 INPUT "If you want T-section type 'T'";T$ - IF T$<>"T" THEN 550 - PRINT - PRINT "2Ca=";X/Y*R*2," Cb=";1/Z*R," R=";R - PRINT "La/2=";R/Z/2," Lb=";R*X/Y - PRINT - PRINT " 2Ca La/2 La/2 2Ca" - PRINT "o----!!----mmmmmmm---:-----:---mmmmmmm---!!-....." - PRINT " : : :" - PRINT " : m X" - PRINT " Cb = m Lb R X" - PRINT " : m X" - PRINT " : : :" - PRINT "o--------------------:-----:----------------....:" -550 PRINT - INPUT "If you want PI-section type 'P'";P$ - IF P$<>"P" THEN 582 - PRINT - PRINT "La=";R/Z," 2Lb=";2*R*X/Y," R=";R - PRINT "Ca=";X/Y*R," Cb/2=";1/Z*R/2 - PRINT - PRINT " La Ca" - PRINT "o-------:----:-mmmmmmm----!!-----:----:..........:" - PRINT " : : : : :" - PRINT " m : : m X" - PRINT " 2Lb m = Cb/2 Cb/2 = m 2Lb R X" - PRINT " m : : m X" - PRINT " : : : : :" - PRINT "o-------:----:-------------------:----:..........:" - PRINT - INPUT "Another passive filter calculation (YES/NO)";A$ - IF A$="YES" THEN GOTO 510 ELSE GOTO 20 -560 PRINT "High cut-off frequency must be higher than low-" - PRINT "cut-off frequency":GOTO 510 -581 PRINT "This value must be larger than 0 (zero)":GOTO 510 -582 PRINT "Answer 'P' or 'T' only":GOTO 510 - - REM Part 6 - -600 PRINT " *** SMALL COIL DESIGN ***" - PRINT - PRINT "Program limitations:" - PRINT " Inductance = 100 microhenries MAXIMUM" - PRINT " Wire size = 12 size MAXIMUM" - PRINT " 40 gage MINIMUM" - PRINT " (resistors used as form must be of composite type)" -610 PRINT - PRINT "PROGRAMS:" - PRINT " 1. INDUCTANCE" - PRINT " 2. INDUCTIVE REACTANCE" - PRINT - INPUT " WHICH ONE OF THE TWO PROGRAMS ABOVE YOU WANT COMPUTED";A - IF A=1 THEN 650 - IF A>2 THEN 610 - IF A<0 THEN 610 -620 INPUT "WHAT IS THE DESIRED INDUCTIVE REACTANCE IN OHMS";I - INPUT "AT WHAT FREQUENCY IN MHZ";F - H=I/(2*3.14159*F) - PRINT "INDUCTANCE = ";H;" MICROHENRIES" - IF H<100 THEN 660 -640 PRINT "Program limitation is 100 microhenries MAXIMUM" - GOTO 610 -650 INPUT "What is the desired coil inductance in microhenries";H - IF H>100 THEN 640 -660 PRINT "Coil forms:" - PRINT " A = 1/4 WATT RESISTOR" - PRINT " B = 1/2 WATT RESISTOR" - PRINT " C = 1 WATT RESISTOR" - PRINT " D = 2 WATT RESISTOR" - PRINT " E = OTHER FORM" - INPUT " SELECT COIL FORM FROM ABOVE (A,B,C,D,E)";FORM$ - IF FORM$="A" THEN D=.09 - IF FORM$="B" THEN D= .14 - IF FORM$="C" THEN D= .22 - IF FORM$="D" THEN D= .312 - IF FORM$="E" THEN GOTO 601 ELSE GOTO 602 -601 INPUT "What is the diameter of the coil in inches";D -602 PRINT "What gage enameled wire will be used:" - INPUT " (gage 12 to 40)";G - IF G=12 THEN W=.081 - IF G=13 THEN W=.072 - IF G=14 THEN W=.064 - IF G=15 THEN W=.057 - IF G=16 THEN W=.051 - IF G=17 THEN W=.045 - IF G=18 THEN W=.040 - IF G=19 THEN W=.036 - IF G=20 THEN W=.32 - IF G=21 THEN W=.0285 - IF G=22 THEN W=.0253 - IF G=23 THEN W=.0226 - IF G=24 THEN W=.0201 - IF G=25 THEN W=.0179 - IF G=26 THEN W=.0159 - IF G=27 THEN W=.0142 - IF G=28 THEN W=.0126 - IF G=29 THEN W=.0113 - IF G=30 THEN W=.01 - IF G=31 THEN W=.0089 - IF G=32 THEN W=.008 - IF G=33 THEN W=.0071 - IF G=34 THEN W=.0063 - IF G=35 THEN W=.0056 - IF G=36 THEN W=.005 - IF G=37 THEN W=.0045 - IF G=38 THEN W=.004 - IF G=39 THEN W=.0035 - IF G=40 THEN W=.0031 - IF G<12 OR G>40 THEN 602 - N=((40*H*W)+SQR (((4*H*W)*(4*H*W))+(4*D*D*D*18*H)))/(2*D*D) - N1=((40*H*W)-SQR (((4*H*W)*(4*H*W))+(4*D*D*D*18*H)))/(2*D*D) - IF N>N1 THEN N2=N ELSE N2=N1 - N2=(INT(N2*10))/10 - PRINT:PRINT "Wire size = ";G;" gage" - PRINT "Coil diameter = ";D;" inches" - PRINT "Number of turns = ";N2 - PRINT "Coil length = ";(INT(N2*W*100))/100;" inches" - INPUT "More calculations? (YES/NO)";ANS$ - IF ANS$="YES" THEN GOTO 610 ELSE GOTO 20 - - REM Part 7 (700) - -700 PRINT - PRINT " *** LONG WIRE ANTENNA ***" - PRINT - PRINT " When an antenna is more than half wavelength long" - PRINT "it is called 'long wire' or 'harmonic' antenna." - PRINT -710 INPUT "What frequency in MHz (Mega Hertz)";F - INPUT "How many half-waves long";N - L=492*(N-0.05)/F - PRINT "Length = ";L;" Feet" - PRINT "Note: If this antenna is fed in exact center at ";L/2;" ft." - PRINT "no unbalance will occur on any harmonic frequency." - PRINT - INPUT "More calculations? (YES/NO)";ANS$ - IF ANS$="YES" THEN 710 - GOTO 20 - - REM Part 8 (800) - -800 PRINT - PRINT " *** DIPOLE OR HALF WAVE ANTENNA ***" - PRINT -810 INPUT "Frequency in MHz (Mega Hertz)";F - L=492/F - PRINT:PRINT "Actual half-wave lenght is ";L;" feet" - IF F<30 THEN L=L*.95 - IF F<150 THEN L=L*.97 - IF F>149.9 THEN L=L*.98 - PRINT "Lenght corrected to free space factor and to capacitance" - PRINT "of insulators is ";L;" feet" - PRINT - C=118/F - E=148/F - PRINT "<----------";L;" ft-------->" - PRINT " <-";C;"ft->" - PRINT "o----------o-------o----------o" - PRINT " o o ^" - PRINT " o o E = ";E;" ft" - PRINT " o=o <- 600 ohms line 3.75 in spaced #16 wire" - PRINT " o o 5 in spaced #14 wire" - PRINT " o o 6 in spaced #12 wire" - PRINT - INPUT "More calculations (YES/NO)";ANS$ - IF ANS$="YES" THEN 810 - GOTO 20 - - REM Part 9 - -900 PRINT - PRINT " *** TIME CONSTANT CALCULATIONS ***" - PRINT -910 PRINT "NOTE: If you wish to substitute Farads by MICROfarads then you" - PRINT " must use resistance in MEGohms in order to get result" - PRINT " in seconds." - INPUT "What is the resistance in ohms";R - INPUT "What is the capacitance in farads";C - PRINT "Time constant = ";R*C;"seconds" - INPUT "More calculations? (YES/NO)";ANS$ - IF ANS$="YES" THEN GOTO 910 ELSE GOTO 20 - - REM Part 10 - -1000 PRINT - PRINT " *** RESISTANCE OF WIRE ***" - PRINT -1010 INPUT "What is the desired resistance in ohms";R - PRINT "What A.W.G.(B&S) size wire NO. is available?" - INPUT " (if unknown, enter '0')";WN - IF WN=0 THEN 1050 - IF WN=1 THEN RW=.1264 - IF WN=2 THEN RW=.1593 - IF WN=3 THEN RW=.2009 - IF WN=4 THEN RW=.2533 - IF WN=5 THEN RW=.3195 - IF WN=6 THEN RW=.4028 - IF WN=7 THEN RW=.5080 - IF WN=8 THEN RW=.6405 - IF WN=9 THEN RW=.8077 - IF WN=10 THEN RW=1.018 - IF WN=11 THEN RW=1.284 - IF WN=12 THEN RW=1.619 - IF WN=13 THEN RW=2.042 - IF WN=14 THEN RW=2.575 - IF WN=15 THEN RW=3.247 - IF WN=16 THEN RW=4.094 - IF WN=17 THEN RW=5.163 - IF WN=18 THEN RW=6.51 - IF WN=19 THEN RW=8.21 - IF WN=20 THEN RW=10.35 - IF WN=21 THEN RW=13.05 - IF WN=22 THEN RW=16.46 - IF WN=23 THEN RW=20.76 - IF WN=24 THEN RW=26.17 - IF WN=25 THEN RW=33 - IF WN=26 THEN RW=41.62 - IF WN=27 THEN RW=52.48 - IF WN=28 THEN RW=66.17 - IF WN=29 THEN RW=83.44 - IF WN=30 THEN RW=105.2 - IF WN=31 THEN RW=132.7 - IF WN=32 THEN RW=167.3 - IF WN=33 THEN RW=211 - IF WN=34 THEN RW=266 - IF WN=35 THEN RW=335 - IF WN=36 THEN RW=423 - IF WN=37 THEN RW=533 - IF WN=38 THEN RW=672.6 - IF WN=39 THEN RW=848.1 - IF WN=40 THEN RW=1069 -1040 INPUT "Of what MATERIAL is the wire";MATERIAL$ - MAT$=LEFT$(MATERIAL$,3) - TEST = RW REM set up test for illegal entry - IF MAT$="COP" THEN RW=RW*1 - IF MAT$="ALU" THEN RW=RW*1.6 - IF MAT$="BRA" THEN RW=RW*4 - IF MAT$="CAD" THEN RW=RW*4.4 - IF MAT$="CHR" THEN RW=RW*1.8 - IF MAT$="GOL" THEN RW=RW*1.4 - IF MAT$="IRO" THEN RW=RW*5.68 - IF MAT$="LEA" THEN RW=RW*12.8 - IF MAT$="NIC" THEN RW=RW*5.1 - IF MAT$="BRO" THEN RW=RW*4 - IF MAT$="SIL" THEN RW=RW*.94 - IF MAT$="STE" THEN RW=RW*11 - IF MAT$="TIN" THEN RW=RW*6.7 - IF MAT$="ZIN" THEN RW=RW*3.4 - IF (RW=TEST) AND (MAT$<>"COP") THEN 1040 - L=1000*R/RW - PRINT "For ";R;"ohms use ";L;" feet of No.";WN;MATERIAL$;" wire" - GOTO 1090 -1050 INPUT "What is distance in feet";D - RX=R*1000/D - IF RX>.1264 THEN W=1 - IF RX>.1593 THEN W=2 - IF RX>.2009 THEN W=3 - IF RX>.2533 THEN W=4 - IF RX>.3195 THEN W=5 - IF RX>.4028 THEN W=6 - IF RX>.5080 THEN W=7 - IF RX>.6405 THEN W=8 - IF RX>.8077 THEN W=9 - IF RX>1.018 THEN W=10 - IF RX>1.284 THEN W=11 - IF RX>1.619 THEN W=12 - IF RX>2.042 THEN W=13 - IF RX>2.575 THEN W=14 - IF RX>3.247 THEN W=15 - IF RX>4.094 THEN W=16 - IF RX>5.163 THEN W=17 - IF RX>6.51 THEN W=18 - IF RX>8.21 THEN W=19 - IF RX>10.35 THEN W=20 - IF RX>13.05 THEN W=21 - IF RX>16.46 THEN W=22 - IF RX>20.76 THEN W=23 - IF RX>26.17 THEN W=24 - IF RX>33 THEN W=25 - IF RX>41.62 THEN W=26 - IF RX>52.48 THEN W=27 - IF RX>66.17 THEN W=28 - IF RX>83.44 THEN W=29 - IF RX>105.2 THEN W=30 - IF RX>132.7 THEN W=31 - IF RX>167.3 THEN W=32 - IF RX>211 THEN W=33 - IF RX>266 THEN W=34 - IF RX>335 THEN W=35 - IF RX>423 THEN W=36 - IF RX>533 THEN W=37 - IF RX>672.6 THEN W=38 - IF RX>848.1 THEN W=39 - IF RX>1069 THEN W=40 - PRINT "The smallest copper wire for ";R;" ohms at distance of ";D;" feet" - PRINT " that can be safely used is No.";W;" A.W.G.(B&S)" -1090 INPUT "More calculations? (YES/NO)";ANS$ - IF ANS$="YES" THEN GOTO 1010 ELSE GOTO 20 - -1200 REM Part 12 tr/rec. crystals - - PRINT - PRINT " ***RECEIVING & TRANSMITTING CRYSTAL CALCULATIONS*** " - PRINT -1221 INPUT "What is the receiving frequency? (in MHz)";R - INPUT "What is the transmitting frequency? (in MHz)";T - GOTO 1250 -1222 INPUT "What is 1st IF freq.(in MHz) of rec.";I - INPUT "What is RECEIVING crystal divider";RD - INPUT "What is TRANSMITTING crystal multiplier";TD -1230 PRINT - PRINT "For receiving on ";R;" MHz (with ";I;" MHz IF) & ";RD;" divider" - PRINT " ORDER ";(R-I)/RD*1000;"KHz receiving crystal" - PRINT "For transmitting on ";T;" MHz (tranmit multiplier=";TD;")" - PRINT "ORDER ";T/TD*1000;" KHz transmitting crystal" - PRINT - INPUT "More crystal freq. calculations? (YES/NO)";ANS$ - IF ANS$="YES" THEN GOTO 1221 ELSE GOTO 20 -1250 PRINT "What make and model transceiver?" - PRINT " STANDARD 146A - MOTOROLA 80D - VOICECOMMANDER"; - INPUT RADIO$ - RADIO$ = LEFT$(RADIO$,3) - IF RADIO$="STA" THEN 1260 - IF RADIO$="MOT" THEN I=5.5:RD=5:TD=24:GOTO 1230 - IF RADIO$="VOI" THEN I=8.7:RD=3:TD=8:GOTO 1230 - GOTO 1222 -1260 I=11.7:RD=9:TD=18:GOTO 1230 - -9999 END diff --git a/bwbtest/M80/broken/keywrdfx.txt b/bwbtest/M80/broken/keywrdfx.txt deleted file mode 100644 index 2caa9bd..0000000 --- a/bwbtest/M80/broken/keywrdfx.txt +++ /dev/null @@ -1,117 +0,0 @@ -10 ' -20 ' -30 ' PROGRAM: Key Word Fix -40 ' DATE WRITTEN: July 4, 1982 -50 ' VERSION: 1.0 -60 ' AUTHOR: Timothy D. Winslow -70 ' -80 ' This program is written in microsoft basic for the -90 ' Heathkit H-89 computer. It takes a file that is messed up -100 ' by having the key words e.g. 'PRINT' being mashed next to a -110 ' variable, statement, etc. and puts a space afterwards, if it -120 ' doesn't already have one. -130 ' -140 ' It's a long process, the program isn't in good -150 ' order, and it's not full proof. It also does words in quotes. -160 ' I'm only human. -170 ' -180 ' This program may error out depending on the amount of -190 ' RAM 'Random Access Memory' you have. If it does, lower the -200 ' Level of Z$ by a couple of hundred. -210 ' -220 ' This program isn't looking at these key words: -230 ' 'INPUT', 'ERROR', 'FOR', 'GOTO', 'XOR', 'NOR', and 'LPRINT'. -240 ' The reasons are 'INPUT' is done with 'PUT', 'ERROR', 'FOR', 'XOR', -250 ' and 'NOR are done with 'OR', 'GOTO' is done with 'TO' and 'LPRINT' -260 ' is done with 'PRINT'. This is done so the program works a little -270 ' faster and to save array space. -280 ' -290 ' This program is public domain softward. Please treat -300 ' as such. I made it to help people not to sit and work putting -310 ' spaces in there program. This program make take long, but it -320 ' works. -330 ' -340 ' -350 CLEAR -360 ON ERROR GOTO 980 -370 E$=CHR$(27)+"E":PRINT E$; -380 PRINT "DO YOU NEED INSTUCTIONS (Y/N/Q=QUIT): "; -390 Y$=INKEY$:IF Y$="" THEN 390 -400 IF Y$="Q" OR Y$="q" THEN 1010 -410 IF Y$="Y" OR Y$="y" THEN GOSUB 1030 ELSE 420 -420 IF Y$="N" OR Y$="n" THEN 430 ELSE 380 -430 PRINT E$; -440 DIM Z$(5000),Q(27),A$(27) -450 FOR X=1 TO 27 -460 READ A$(X),Q(X) -470 NEXT X -480 INPUT "FILENAME TO BE WORKED FROM";N$ -490 IF LEN(N$)>12 THEN PRINT "INVALID FILENAME":GOTO 480 -500 IF LEN(N$)<1 THEN PRINT "INVALID FILENAME":GOTO 480 -510 FOR X=1 TO 9 -520 IF MID$(N$,X,4)=".BAS" THEN 590 -530 NEXT -540 FOR X=1 TO 9 -550 IF MID$(N$,X,1)="." THEN PRINT "INVALID FILENAME":GOTO 480 -560 NEXT X -570 IF LEN(N$)>8 THEN PRINT "INVALID FILENAME":GOTO 480 -580 N$=N$+".BAS" -590 INPUT "FILENAME TO BE OUTPUTED";O$ -600 IF LEN(O$)>12 OR LEN(O$)<1 THEN PRINT "INVALID FILENAME":GOTO 590 -610 FOR X=1 TO 9 -620 IF MID$(O$,X,4)=".BAS" THEN 690 -630 NEXT X -640 FOR X=1 TO 9 -650 IF MID$(O$,X,1)="." THEN PRINT "INVALID FILENAME":GOTO 590 -660 NEXT X -670 IF LEN(O$)>8 THEN PRINT "INVALID FILENAME":GOTO 590 -680 O$=O$+".BAS" -690 OPEN "I",1,N$ -700 OPEN "O",2,O$ -710 FOR X=1 TO 1300 -720 LINE INPUT #1,Z$(X) -730 PRINT E$; -740 IF POS(0) THEN PRINT:PRINT Z$(X) -750 A=LEN(Z$(X)) -760 P=0 -770 PRINT "WORKING ON . . ."; -780 FOR M=1 TO 27 -790 IF POS(0)>75 THEN PRINT -800 PRINT LEFT$(A$(M),Q(M)-1);", "; -810 FOR Z=1 TO A+P -820 IF MID$(Z$(X),Z,Q(M)-1)=LEFT$(A$(M),Q(M)-1) THEN 880 -830 NEXT Z -840 NEXT M -850 PRINT #2,Z$(X) -860 NEXT X -870 GOTO 1010 -880 IF MID$(Z$(X),Z,Q(M))=A$(M)THEN GOTO 830 -890 FOR W=1 TO 500:NEXT W:Z$(X)=LEFT$(Z$(X),Z-1)+A$(M)+MID$(Z$(X),Z+(Q(M)-1),A) -900 PRINT E$; -910 IF POS(0) THEN PRINT:PRINT Z$(X) -920 PRINT"WORKING ON . . ."; -930 GOTO 780 -940 DATA "AND ",4,"CALL ",5,"CLEAR ",6,"DATA ",5,"DEF ",4,"DIM ",4,"ELSE ",5 -950 DATA "GET ",4,"GOSUB ",6,"IF ",3,"LET ",4,"LINE ",5,"NEXT ",5,"ON ",3 -960 DATA "OR ",3,"OUT ",4,"PRINT ",6,"POKE ",5,"PUT ",4,"READ ",5,"REM ",4 -970 DATA "RESUME ",7,"RETURN ",7,"STEP ",5,"THEN ",5,"TO ",3,"WHILE ",6 -980 IF ERR=62 THEN RESUME 1010 -990 IF ERR=53 THEN PRINT "Filename not found.....Please retry.":RESUME 480 -1000 RESUME 1020 -1010 PRINT E$:CLOSE:CLEAR:END -1020 PRINT E$;:PRINT ERR;"AT";ERL:CLOSE:CLEAR:END -1030 ' INSTRUCTIONS -1040 Y$="N" -1050 PRINT E$ -1060 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT -1070 PRINT" This program is to fix key words in a Ascii -1080 PRINT" program. It will find a key word and put a space after it, -1090 PRINT" If it needs one. -1100 PRINT -1110 PRINT" This program takes a lone time because it checks -1120 PRINT" every letter in every line with all the key words. -1130 PRINT -1140 PRINT -1150 PRINT:PRINT "Press enter..."; -1160 I$=INKEY$:IF I$<> CHR$(13) THEN 1160 -1170 RETURN diff --git a/bwbtest/M80/broken/mbrsv13.txt b/bwbtest/M80/broken/mbrsv13.txt deleted file mode 100644 index 562ae67..0000000 --- a/bwbtest/M80/broken/mbrsv13.txt +++ /dev/null @@ -1,627 +0,0 @@ -10 ' FILE NAME: MBRS.BAS - Creates, lists, adds to, corrects, and queries -20 ' church member personal information and donation files. -30 ESC$=CHR$(27):CLR$=ESC$+"*" -40 DEF FNCTR$(A$)=SPACE$(40-(LEN(A$)/2))+A$ -50 DEF FNAT$(V,H)=ESC$+"="+CHR$(31+V)+CHR$(31+H) -60 RET$=FNAT$(24,1)+FNCTR$("Hit RETURN to continue: "):BTM$=FNAT$(24,1) -70 HT$="Home Town":ST$="NC":YR$="1984" -80 OPTION BASE 1 -90 DATA "ATTENTION, PROGRAMMERS AND USERS","" -100 DATA "For distribution purposes, the World Famous Toad Hall" -110 DATA "Church Membership Record Program (Public Domain)" -120 DATA "needs a few patches to tailor it to YOUR environment and use.","" -130 DATA "Change the name of the program itself from MBRSV13.BAS to MBRS.BAS." -140 DATA "(V13 is to tell apart the versions, but the program itself needs" -150 DATA "the program name to be MBRS.BAS (for file existence checking).","" -160 DATA "At the very beginning of the code, change HT$ and ST$ to your own" -170 DATA "local city/town and state. Change YR$ to keep up to date." -180 DATA "Change MY CHURCH right below this in code to your own church name." -190 DATA "If you'd like to add your own letterhead to the donation reports," -200 DATA "fill in the appropriate lines down in the code printing to" -210 DATA "#5 - that's the printout. You'll see the 'blanks'." -220 DATA "Enjoy it -- just a gesture in the spirit of Public Domain Software." -230 DATA "","(Oh, yeah -- peel out all this stuff too!" -240 DATA "The Author, Toad Hall, March 1984",* -250 PRINT CLR$:RESTORE 90:GOSUB 390:STOP -260 DATA "MY CHURCH Member Records","" -270 DATA "Courtesy of Toad Hall","Home of Bionic Toad Software" -280 DATA "David P Kirschbaum, Author","Version 1.3, 29 Mar 84" -290 DATA "(C) 1983 All rights reserved.","" -300 DATA "Please contact the author for comments, bugs, recommendations.","" -310 DATA "Also, any church group using this software:" -320 DATA "Please drop me a card or call with your name, tel #, and address." -330 DATA "It gives me great personal satisfaction to know people are using" -340 DATA "this program of mine, (my resume could use the references!)," -350 DATA "and I can provide you with updates (my software never stays static!)" -360 DATA "","My address is","Toad Hall","7573 Jennings Lane" -370 DATA "Fayetteville NC 28303","tel (919) 868-3471",*** -380 PRINT CLR$:RESTORE 260:GOSUB 390:GOTO 470 -390 READ T$ -400 IF T$="*" THEN RETURN ELSE IF T$="**" OR T$="***" THEN 420 -410 PRINT FNCTR$(T$):GOTO 390 -420 IF T$="***" THEN PRINT BTM$; -430 PRINT RET$; -440 INPUT "",T1$:IF T$="***" THEN PRINT CLR$; -450 T$="":RETURN -460 '== Program Start == -470 DEFINT A-C,E-Z:DEFSNG D:MAX=200 -480 DIM MNR(MAX+2),P(MAX+2),FSKIL$(4),FCOMM$(4),SKIL$(4),COMM$(4),F$(4) -490 FOR I=1 TO 3:F$(I)="MBRS-"+MID$(STR$(I),2,1)+".DAT":NEXT I -500 IF F$(4)="" OR QTR$="" OR OPT=9 THEN GOSUB 5720 -510 GOSUB 820:GOSUB 920 -520 DATA "==== Church Membership Program Menu ====","" -530 DATA "The following options are available:","" -540 DATA "1 - Membership List (with record numbers)" -550 DATA "2 - Add new members. " -560 DATA "3 - Correct member information. " -570 DATA "4 - Query member record. " -580 DATA "5 - Enter Weekly Donation. " -590 DATA "6 - Review Quarterly Donations. " -600 DATA "7 - Create Formatted Donation Report File" -610 DATA "8 - Set Quarter. " -620 DATA "Q - Return to System. ","",* -630 PRINT CLR$:RESTORE 520:GOSUB 390 -640 IF QTR$="" THEN 660 -650 PRINT FNCTR$("Current Quarter is "+QTR$+" Quarter."):GOTO 670 -660 PRINT FNCTR$("No current Quarter initialized.") -670 PRINT:PRINT FNCTR$("Enter option desired: "); -680 T$=INKEY$:IF LEN(T$)<1 THEN 680 ELSE PRINT T$; -690 IF T$="Q" OR T$="q" THEN PRINT "uit":GOTO 800 ELSE 750 -700 IF OPT=6 THEN FLAG=2 'needed in GOSUB -710 IF OPT=8 THEN F$(4)="" -720 ON OPT GOSUB 2490,1300,2700,2200,4510,4510,4510,500:GOTO 630 -730 PRINT FNCTR$("Do you wish to continue? (Y/N): "); -740 T$=INKEY$:IF LEN(T$)<1 THEN 740 ELSE PRINT T$ -750 OPT=INSTR("12345678YyNn",T$) -760 IF OPT=9 OR OPT=10 THEN 670 'get menu selection -770 IF OPT=11 OR OPT=12 THEN 800 'endit -780 IF OPT>0 AND OPT<9 THEN 700 ELSE 730 'make sure in range 1-9 -790 DATA "","","Processing complete","","Bye...",* -800 RESTORE 790:GOSUB 390:END -810 '== Open and define files == -820 RESET:OPEN "R",#1,F$(1) -830 FIELD #1,2 AS FZ1$,2 AS FXNR1$,30 AS FXN$,30 AS FA1$,30 AS FA2$,15 AS FA3$, - 2 AS FA4$,5 AS FA5$,7 AS FTEL$ -840 OPEN "R",#2,F$(2) -850 FIELD #2,2 AS FZ1$,2 AS FXNR1$,6 AS FANNIV$,6 AS FTDJN$,10 AS FPSN$, - 4 AS FXREF$,6 AS FBDAY$,10 AS FSKIL$(1), 10 AS FSKIL$(2),10 AS FSKIL$(3), - 10 AS FSKIL$(4), 10 AS FCOMM$(1),10 AS FCOMM$(2),10 AS FCOMM$(3), - 10 AS FCOMM$(4) -860 OPEN "R",#3,F$(3) -870 FIELD #3,2 AS FZ1$,2 AS FXNR1$,120 AS FCMT$ -880 OPEN "R",#4,F$(4) -890 FIELD #4,2 AS FZ1$,2 AS FXNR1$,2 AS FWK$,52 AS FTD$,15 AS FSP1N$, - 52 AS FSP1D$ -900 RETURN -910 '== Table Build == -920 FOR REC=1 TO MAX -930 GET #1,REC:IF LEFT$(FXN$,1)="Z" THEN MNR(REC)=0 ELSE MNR(REC)=REC -940 GET #1,REC:X$=FXN$:IF LEFT$(X$,1)="Z" THEN MNR(REC)=0:GOTO 950 -950 NEXT REC -960 RETURN -970 '== Find Member Record == -980 FOR N=1 TO MAX -990 IF REC=MNR(N) THEN 1030 'found it; return -1000 NEXT N:IF FLAG=5 THEN REC=0:GOTO 1030 'special use -1010 PRINT:PRINT FNCTR$("Member # "+STR$(REC)+" not presently in use."):PRINT -1020 FOR N=1 TO 500:REC=0:NEXT -1030 RETURN -1040 '== File Write == -1050 LSET FZ1$="**" -1060 LSET FXNR1$=MKI$(REC) -1070 LSET FXN$=NAM$ -1080 LSET FA1$=T1$ -1090 LSET FA2$=T2$ -1100 LSET FA3$=T3$ -1110 LSET FA4$=T4$ -1120 LSET FA5$=T5$ -1130 LSET FTEL$=TEL$ -1140 LSET FANNIV$=ANNIV$ -1150 LSET FTDJN$=DTJN$ -1160 LSET FPSN$=PSN$ -1170 LSET FXREF$=XREF$ -1180 LSET FBDAY$=BDAY$ -1190 FOR I=1 TO 4:LSET FSKIL$(I)=SKIL$(I):NEXT I -1200 FOR I=1 TO 4:LSET FCOMM$(I)=COMM$(I):NEXT I -1210 LSET FCMT$=CMT$ -1220 '== File Rewrite Entry Point == -1230 PUT #1,REC -1240 PUT #2,REC -1250 PUT #3,REC -1260 PUT #4,REC -1270 ' -1280 RETURN -1290 '== Add New Member(s) == -1300 DATA "== Entering New Members ==","" -1310 DATA "Enter new Member Number (up to 4 digits), RETURN to quit," -1320 DATA "or ? for me to find an unused Member number.","",* -1330 PRINT CLR$:RESTORE 1300:GOSUB 390 -1340 PRINT FNCTR$("Enter selection (# or ? and RETURN) or RETURN to quit: "); -1350 INPUT "",A$:IF A$="" THEN 2030 'return -1360 IF A$="?" THEN FLAG=1 ELSE FLAG=0 'find next avail mbr # -1370 GOSUB 2060 'find member # -1380 IF FLAG=1 THEN FLAG=0:GOTO 2030 'a problem - gotta quit. -1390 PRINT FNCTR$("Family Head Member # (1-3 digits) or RETURN if Head: "); -1400 INPUT "",XREF$:IF XREF$="" OR XREF$=STR$(REC) THEN XREF=0:GOTO 1560 -1410 XREF=VAL(XREF$) -1420 TEMP=REC:REC=XREF:GOSUB 980:XREF=RC=TEMP -1430 IF XREF>0 THEN 1540 -1440 DATA "ERROR! The Family Head Member # is not on file!" -1450 DATA "Enter the correct number, or this member # for now.","",* -1460 RESTORE 1440:GOSUB 390:GOTO 1390 -1470 DATA "","Because you've cross-referenced this member to another member," -1480 DATA "you may use the 'Head of Family' (HOF) information for addresses," -1490 DATA "telephone numbers, date joined church, anniversary, etc." -1500 DATA "(Fields that will accept a HOF default are marked with an *." -1510 DATA "Just hit RETURN to use the HOF data.)","" -1520 DATA "This does NOT work for church position, skills, and those personal" -1530 DATA "things not shared with a Head of Family.","",* -1540 RESTORE 1470:GOSUB 390 -1550 GET #1,XREF:GET #2,XREF:GET #3,XREF -1560 PRINT TAB(10);:LINE INPUT "Member name (L,FMI): ",NAM$ -1570 IF NAM$="Q" THEN MNR(REC)=0:GOTO 1330 -1580 IF LEN(NAM$)>1 THEN 1610 -1590 PRINT FNCTR$("You really must enter a name, you know, or Q to quit.") -1600 GOTO 1560 -1610 PRINT TAB(10);:INPUT "First address line: *",T1$ -1620 IF T1$<>"" THEN 1640 ELSE IF XREF<=0 THEN T1$="~":GOTO 1640 -1630 T1$=FA1$:T2$=FA2$:T3$=FA3$:T4$=FA4$:T5$=FA5$:GOTO 1720 'Use HOF data -1640 PRINT TAB(10);:INPUT "Second address line: *",T2$:IF T2$="" THEN T2$="~" -1650 PRINT TAB(10);"City (if ";HT$;", enter H): *";:INPUT "",T3$ -1660 IF T3$="H" THEN T3$=HT$:T4$=ST$:GOTO 1710 -1670 IF T3$<>"" THEN 1690 ELSE IF XREF<=0 THEN T3$="~":GOTO 1690 -1680 T3$=FA3$:T4$=FA4$:T5$=FA5$:GOTO 1720 'Use HOF data -1690 PRINT TAB(10);"State (2-char, if ";ST$;" hit RETURN): ";:INPUT "",T4$ -1700 IF T4$="" THEN T4$=ST$ -1710 PRINT TAB(10);:INPUT "ZIP code (5 digits): ",T5$ -1720 PRINT TAB(10);:INPUT "Telephone number (7 digits, no dash): *",TEL$ -1730 IF TEL$="" THEN IF XREF>0 THEN TEL$=FTEL$ ELSE TEL$="~" -1740 IF LEN(TEL$)<=7 THEN 1760 -1750 PRINT FNCTR$("ERROR! 7 numbers only, please."):GOTO 1720 -1760 PRINT TAB(10);:INPUT "Date joined church (YYMMDD): *",DTJN$ -1770 IF DTJN$="" THEN IF XREF>0 THEN DTJN$=FDTJN$ ELSE DTJN$="~" -1780 PRINT TAB(10);:INPUT "Anniversary date (YYMMDD): *",ANNIV$ -1790 IF ANNIV$="" THEN IF XREF>0 THEN ANNIV$=FANNIV$ ELSE ANNIV$="~" -1800 PRINT TAB(10);:INPUT "Church Position (max 10 chars): ",PSN$ -1810 IF PSN$="" THEN PSN$="~" -1820 PRINT TAB(10);:INPUT "Birth Date (YYMMDD): ",BDAY$ -1830 IF BDAY$="" THEN BDAY$="~" -1840 PRINT "Enter up to 4 Special Skills (max 10 chars, RETURN to stop):" -1850 FLAG=0 -1860 FOR I=1 TO 4 -1870 IF FLAG=1 THEN SKIL$(I)="~":GOTO 1900 -1880 PRINT TAB(10);"Skill";I;:INPUT ": ",SKIL$(I) -1890 IF SKIL$(I)="" THEN SKIL$(I)="~":FLAG=1 -1900 NEXT I:FLAG=0 -1910 PRINT "Enter up to 4 Committee memberships (present and past;" -1920 PRINT "put past ones in parentheses, e.g., '(Building)')." -1930 PRINT "(max 10 characters, RETURN to stop):" -1940 FOR I=1 TO 4 -1950 IF FLAG=1 THEN COMM$(I)="~":GOTO 1980 -1960 PRINT TAB(10);"Committee";I;:INPUT ": ",COMM$(I) -1970 IF COMM$(I)="" THEN COMM$(I)="~":FLAG=1 -1980 NEXT I:FLAG=0 -1990 PRINT "Enter other desired information or comments (up to 1 line):" -2000 PRINT:LINE INPUT "",CMT$:IF CMT$="" THEN CMT$="None" -2010 GOSUB 1050:GOSUB 820 -2020 GOTO 1300 -2030 RETURN -2040 '== Find Record Number for New Member == -2050 ' Must bring in A$ -2060 IF A$="?" THEN 2130 ELSE IF A$="" THEN FLAG=1:GOTO 2180 -2070 REC=VAL(A$) -2080 IF MNR(REC)=0 THEN 2160 -2090 PRINT "ERROR! Duplicate Member Number. Select another, please," -2100 PRINT "? for next available number, or RETURN to quit." -2110 INPUT "Enter selection ( # or ? ) or RETURN to quit: ",A$ -2120 GOTO 2060 -2130 FOR REC=1 TO MAX:IF MNR(REC)=0 THEN 2160:NEXT REC -2140 PRINT FNCTR$("Sorry - no more records are available.") -2150 FLAG=1:REC=0:GOTO 2180 -2160 FLAG=0:MNR(REC)=REC -2170 PRINT FNCTR$("Confirming Member Record #"+STR$(REC)) -2180 RETURN -2190 '== Query Member Record == -2200 REC=0:PRINT CLR$;FNCTR$("== Query Member Record =="):PRINT -2210 PRINT FNCTR$("Enter Member Number (#, ?-Listing, A-All, Q-Quit): "); -2220 INPUT; "",A$:IF A$="Q" OR A$="q" THEN PRINT "uit":GOTO 2300 -2230 PRINT:IF A$="?" THEN GOSUB 2490:GOTO 2200 -2240 IF A$<>"A" AND A$<>"a" THEN 2270 -2250 IF REC0 THEN GOSUB 2330:GOTO 2280 -2260 IF REC>=MAX THEN 2200 ELSE 2250 -2270 REC=VAL(A$):GOSUB 980:IF REC=0 THEN 2200 ELSE GOSUB 2330:REC=0 -2280 IF T$="Q" OR T$="q" THEN PRINT "uitting...":GOTO 2300 -2290 IF REC=0 THEN 2200 ELSE 2250 -2300 RETURN -2310 PRINT FNCTR$("Getting Member #");REC:GOTO 2250 -2320 '-- gosub to show member rec -- -2330 GET #1,REC:GET #2,REC:GET #3,REC -2340 T7$=MID$(FTEL$,1,3):T8$=MID$(FTEL$,4,4) -2350 PRINT CLR$;"MBR #";TAB(12);"NAME";TAB(40);"ADDRESS":PRINT -2360 PRINT REC;TAB(10);FXN$;TAB(40);FA1$ -2370 IF ASC(FA2$)>32 THEN PRINT TAB(40);FA2$ -2380 PRINT TAB(40);FA3$;FA4$;" ";FA5$:PRINT -2390 PRINT "Position: ";FPSN$;TAB(40);"Tel #: ";T7$;"-";T8$ -2400 PRINT "Joined: ";FTDJN$;TAB(40);"Birth Date: ";FBDAY$ -2410 PRINT "Family Head #: ";FXREF$;TAB(40);"Anniversary: ";FANNIV$ -2420 PRINT:PRINT TAB(15);"Skills";TAB(40);"Committees ('(past)')" -2430 FOR I=1 TO 4:PRINT TAB(15);FSKIL$(I);TAB(40);FCOMM$(I):NEXT I -2440 PRINT:PRINT:PRINT FCMT$ -2450 PRINT FNCTR$("Hit RETURN to continue, or Q to quit: "); -2460 T$=INKEY$:IF LEN(T$)<1 THEN 2460 -2470 RETURN -2480 '== Print Member Numbers == -2490 GOSUB 2500:GOTO 2540 -2500 PRINT CLR$;FNCTR$("== Member Number List =="):PRINT -2510 PRINT "NBR";TAB(5);"NAME";TAB(35);"XREF"; -2520 PRINT TAB(40);"NBR";TAB(45);"NAME";TAB(75);"XREF" -2530 RETURN -2540 T=MAX/2 '2 columns -2550 FOR REC=1 TO T -2560 T0=0:T1=REC:T2=0 -2570 IF MNR(T1)=0 THEN 2620 -2580 GET #1,T1:GET #2,T1 -2590 PRINT TAB(T2);:PRINT USING "###";REC; -2600 PRINT TAB(T2+5);FXN$;TAB(T2+35);FXREF$; -2610 IF T2=0 THEN PRINT "|"; ELSE PRINT -2620 IF T2>0 THEN 2650 -2630 IF T2=0 THEN T1=T+REC:T2=40:GOTO 2570 -2640 IF REC MOD 20=0 AND REC"DELETE" THEN 2900 ELSE IF FLAG=1 THEN 2890 -2820 DATA "","WARNING! If you delete this record, ALL record of ALL data" -2830 DATA "on this member is PERMANENTLY and FOREVER destroyed in this file." -2840 DATA "There are other options available: Change the member's number;" -2850 DATA "Move the member to an inactive file." -2860 DATA "Consider these, and be ABSOLUTELY sure you want to delete this!" -2870 DATA "If you do not, enter ANYTHING but 'DELETE' to abort.","",* -2880 RESTORE 2820:GOSUB 390:IF FLAG=1 THEN FLAG=0 ELSE FLAG=1:GOTO 2800 -2890 TEMP=REC:GOSUB 3770 'delete rec -2900 FLAG=0:RETURN -2910 '== Regular member data change == -2920 PRINT FNCTR$("== Member Record Correction =="):PRINT -2930 PRINT "Enter the information to be changed (only one at a time, please):" -2940 DATA "Member Number:","#","Member Name:","N","Position:","P" -2950 DATA "Telephone:","T","Address:","A","Birth Date:","B" -2960 DATA "Date Joined:","J","Anniversary:","M","Skill(s):","S" -2970 DATA "Committee(s):","C","Family Head:","H","Other Comments:","O" -2980 DATA "Delete Member:","D" -2990 RESTORE 2940:FOR N=1 TO 13:READ A$,B$:PRINT,A$;TAB(30);B$:NEXT N -3000 PRINT:PRINT FNCTR$("(#,N,P,T,A,B,J,M,S,C,H,O,D, or ESC to quit): "); -3010 A$=INKEY$:IF LEN(A$)<1 THEN 3010 ELSE IF ASC(A$)=11 OR ASC(A$)=17 THEN 3010 -3020 IF A$=ESC$ THEN PRINT "ESC" ELSE PRINT A$:GOTO 3050 -3030 PRINT FNCTR$("Now updating all changes to files...") -3040 GOSUB 1230:PRINT CLR$:GOTO 2700 -3050 T=INSTR("#NPTABJMSCHOD",A$) -3060 IF T<1 THEN PRINT FNCTR$("ERROR! Try again, please."):PRINT:GOTO 3000 -3070 DATA "Remember, use RETURN to accept Present data, 'ERASE' to erase" -3080 DATA "an entry, or enter new data as desired. DO NOT use this utility" -3090 DATA "to go right back and check a new entry (and then hit RETURN to" -3100 DATA "accept that new entry) -- the new data is not actually written" -3110 DATA "to the disk yet, and your RETURN will erase it!","",* -3120 PRINT CLR$:RESTORE 3070:GOSUB 390 -3130 ON T GOSUB 3600,3170,4030,3260,3330,3890,3820,3960,4280,4390,4100,4170,2800 -3140 IF T=1 THEN 3030 ELSE IF T=13 THEN 2700 -3150 PRINT:PRINT:PRINT FNCTR$("Change posted."):FOR I=1 TO 500:NEXT:GOTO 2920 -3160 '== Change Name == -3170 PRINT "Present Name: ";FXN$ -3180 LINE INPUT; "Enter corrected name (max 30 char): ",A$ -3190 IF A$="" THEN PRINT FXN$:GOTO 3240 ELSE PRINT -3200 IF A$<>"ERASE" THEN 3230 -3210 PRINT FNCTR$("ERROR! You cannot ERASE a name field, only change.") -3220 PRINT:GOTO 3170 -3230 LSET FXN$=A$ -3240 RETURN -3250 '== Change Telephone Number == -3260 PRINT "Present Telephone Number: ";FTEL$ -3270 INPUT; "Enter new telephone number (max 7 characters, no dashes): ",A$ -3280 IF A$="" THEN PRINT FTEL$:GOTO 3310 -3290 IF A$="ERASE" THEN A$="~" -3300 PRINT:LSET FTEL$=A$ -3310 RETURN -3320 '== Change Address == -3330 PRINT "Present Address: ";TAB(20);FA1$ -3340 PRINT TAB(20);FA2$:PRINT TAB(20);FA3$ -3350 PRINT TAB(20);FA4$:PRINT TAB(20);FA5$ -3360 PRINT:PRINT FNCTR$("Enter new information, or RETURN to accept the old:") -3370 PRINT:INPUT; "Enter first address line: ",A$ -3380 IF A$="" THEN PRINT FA1$:GOTO 3410 -3390 IF A$="ERASE" THEN A$="~":PRINT A$ -3400 LSET FA1$=A$ -3410 PRINT:INPUT; "Enter second address line: ",A$ -3420 IF A$="" THEN PRINT FA2$:GOTO 3450 -3430 IF A$="ERASE" THEN A$="~":PRINT A$ -3440 LSET FA2$=A$ -3450 PRINT:INPUT; "Enter City (20 char): ",A$ -3460 IF A$<>"" THEN 3480 -3470 PRINT "City & State: ";FA3$;" ";FA4$:GOTO 3540 -3480 IF A$="ERASE" THEN A$="~":PRINT A$ -3490 LSET FA3$=A$ -3500 PRINT:INPUT; "Enter State (2 char abbrev.): ",A$ -3510 IF A$="" THEN PRINT FA4$:GOTO 3540 -3520 IF A$="ERASE" THEN A$="~":PRINT A$ -3530 LSET FA4$=A$ -3540 PRINT:INPUT; "Enter ZIP code (5 char): ",A$ -3550 IF A$="" THEN PRINT FA5$:GOTO 3580 -3560 IF A$="ERASE" THEN A$="~":PRINT A$ -3570 LSET FA5$=A$ -3580 PRINT:RETURN -3590 '== Change Member Number == -3600 DATA "== Changing Member Numbers ==","" -3610 DATA "You may assign a member a new number. However it CANNOT be one" -3620 DATA "already assigned. You must first Delete that other member" -3630 DATA "from the files, COMPLETELY and FOREVER erasing all data you have" -3640 DATA "on that person -- and that's pretty drastic!","" -3650 DATA "I recommend you change the old member's number to a high unused" -3660 DATA "number, and then assign the vacant number as you desire.","",*** -3670 PRINT CLR$:RESTORE 3600:GOSUB 390:TEMP=REC -3680 FOR I=1 TO 4:GET #I,REC:NEXT -3690 PRINT:PRINT FNCTR$("Present Member's Number: "+STR$(REC)) -3700 PRINT FNCTR$("Enter new desired number (4 digits, or RETURN to quit): "); -3710 INPUT "",A$:IF A$="" THEN 3800 -3720 IF A$="ERASE" THEN PRINT "ERROR!":GOTO 3690 -3730 GOSUB 2060:IF REC=0 OR FLAG=1 THEN 3800 -3740 '-- OK to use new number -- -3750 LSET FXNR1$=MKI$(REC):MNR(REC)=REC:GOSUB 1230 'post new data -3760 LSET FZ1$="ZZ":LSET FXNR1$=MKI$(0):LSET FXN$="" -3770 REC=TEMP:MNR(REC)=0:GOSUB 1230 'purge old -3780 PRINT FNCTR$("Deletion Posted"):PRINT RET$; -3790 A$=INKEY$:IF LEN(A$)<1 THEN 3790 -3800 RETURN -3810 '== Change Date Joined == -3820 PRINT "Present Date Joined: ";FTDJN$ -3830 INPUT; "Enter new Date Joined (YYMMDD): ",A$ -3840 IF A$="" THEN PRINT FTDJN$:GOTO 3870 -3850 IF A$="ERASE" THEN A$="~":PRINT A$ -3860 LSET FTDJN$=A$ -3870 RETURN 'to member field change -3880 '== Change Birth Date == -3890 PRINT "Present Birth Date: ";FBDAY$ -3900 INPUT; "Enter new Birth Date (YYMMDD): ",A$ -3910 IF A$="" THEN PRINT FBDAY$:GOTO 3940 -3920 IF A$="ERASE" THEN A$="~":PRINT A$ -3930 LSET FBDAY$=A$ -3940 RETURN -3950 '== Change Anniversary == -3960 PRINT "Present Anniversary: ";FANNIV$ -3970 INPUT; "Enter new Anniversary (YYMMDD): ",A$ -3980 IF A$="" THEN PRINT FANNIV$:GOTO 4010 -3990 IF A$="ERASE" THEN A$="~":PRINT A$ -4000 LSET FANNIV$=A$ -4010 RETURN -4020 '== Change Church Position == -4030 PRINT "Present Church Position: ";FPSN$ -4040 INPUT; "Enter new Church Position (10 char): ",A$ -4050 IF A$="" THEN PRINT FPSN$:GOTO 4080 -4060 IF A$="ERASE" THEN A$="~":PRINT A$ -4070 LSET FPSN$=A$ -4080 RETURN -4090 '== Change Family Head # == -4100 PRINT "Present Family Head Member #: ",FXREF$ -4110 INPUT; "Enter new Family Head Member #: ",A$ -4120 IF A$="" THEN PRINT FXREF$:GOTO 4150 -4130 IF A$="ERASE" THEN A$="~":PRINT A$ -4140 LSET FXREF$=A$ -4150 RETURN 'to member field change -4160 '== Change Other Comments == -4170 PRINT "Present Comment Line:":PRINT:PRINT FCMT$:PRINT:T$=FCMT$ -4180 PRINT "Enter new Comment Line:":LINE INPUT; "*",A$ -4190 IF A$="" THEN PRINT T$:A$=T$:GOTO 4250 -4200 IF A$="ERASE" THEN A$="None.":GOTO 4250 -4210 PRINT "A double-check ... here's your new line. If OK, hit RETURN." -4220 PRINT "If you don't like it, do it again." -4230 PRINT:PRINT A$:PRINT:T$=A$ -4240 GOTO 4180 -4250 LSET FCMT$=A$ -4260 RETURN -4270 '== Change Skills == -4280 PRINT "Present Skills:" -4290 FOR I=1 TO 4:PRINT USING "#. ";I; -4300 PRINT FSKIL$(I);:IF I<>4 THEN PRINT ", "; -4310 NEXT I:PRINT -4320 PRINT "Enter new skills (10 chars):" -4330 FOR I=1 TO 4:PRINT USING "#. ";I;:INPUT; "",A$ -4340 IF A$="" THEN PRINT FSKIL$(I):GOTO 4360 ELSE IF A$="ERASE" THEN A$="~" -4350 LSET FSKIL$(I)=A$ -4360 PRINT:NEXT I -4370 RETURN -4380 '== Change Committee Membership == -4390 PRINT "Present Committee Membership:" -4400 FOR I=1 TO 4:PRINT USING "#. ";I; -4410 PRINT FCOMM$(I);:IF I<>4 THEN PRINT ", "; -4420 NEXT I:PRINT -4430 PRINT "Enter new Committee Membership(s) (10 chars):" -4440 FOR I=1 TO 4:PRINT USING "#. ";I;:INPUT; "",A$ -4450 IF A$="" THEN PRINT FCOMM$(I):GOTO 4480 -4460 IF A$="ERASE" THEN A$="~":PRINT A$ -4470 LSET FCOMM$(I)=A$ -4480 PRINT:NEXT I -4490 RETURN 'to member field change -4500 '== Actual Donation Posting/Listing == -4510 PRINT CLR$;FNCTR$("== Donation Posting/Listing ==") -4520 PRINT FNCTR$("Current Quarter: "+QTR$+" Quarter"):PRINT -4530 REC=1:IF OPT=7 THEN OPEN "O",#5,"MBRS-DON.RPT" -4540 LSET FSP1N$="" -4550 PRINT FNCTR$("Enter Member Number (or ?-Listing, A-All, RETURN-quit): "); -4560 INPUT "",A$:REC=1 -4570 IF A$="A" OR A$="a" THEN FLAG=1:GOTO 4610 -4580 IF A$="" THEN IF OPT=7 THEN CLOSE #5:RETURN ELSE RETURN -4590 IF A$="?" THEN GOSUB 2490:GOTO 4510 -4600 REC=VAL(A$):FLAG=0:GOSUB 980:IF REC=0 THEN 4550 -4610 IF MNR(REC)=0 THEN 4720 -4620 GET #1,REC:GET #2,REC:GET #4,REC -4630 A=CVI(FXNR1$):IF ASC(FSP1N$)>32 THEN L=1 ELSE LSET FSP1N$="None":L=0 -4640 IF LEN(FWK$)=0 THEN WK=0:TD$="":SP1D$="":GOTO 4680 -4650 T=CVI(FWK$):WK=T -4660 TD$=LEFT$(FTD$,T*4) -4670 SP1D$=LEFT$(FSP1D$,T*4) -4680 WK=WK+1:LSET FWK$=MKI$(WK) -4690 IF OPT=5 THEN GOSUB 4740 -4700 IF OPT=6 THEN GOSUB 4980:IF T$="Q" THEN A$="":GOTO 4580 -4710 IF OPT=7 THEN GOSUB 5340 -4720 IF FLAG=0 OR REC>MAX THEN 4550 ELSE REC=REC+1:GOTO 4610 -4730 '-- Donation Entry -- -4740 LSET FZ1$="**":LSET FSP1D$="":LSET FTD$="" -4750 PRINT CLR$;"Donation for Member ";FXN$ -4760 PRINT "Type Donation (S - Special, RETURN - Sunday, ESC - Next Mbr): "; -4770 TYP$=INKEY$:IF LEN(TYP$)<1 THEN 4770 -4780 IF TYP$=ESC$ THEN PRINT "Next Member...":GOTO 4960 'return -4790 IF TYP$="S" OR TYP$="s" THEN TYP=1:TYP$="Special":GOTO 4810 -4800 TYP$="Regular":TYP=0 -4810 PRINT:PRINT:PRINT "Now posting ";TYP$;" Donation, Week #";WK -4820 IF TYP=0 THEN 4890 -4830 PRINT FNCTR$("The Special Donation name is "+FSP1N$) -4840 PRINT FNCTR$("Enter name of new Special Donation (max 15 chars),") -4850 PRINT FNCTR$("or RETURN for no change/none: ");:LINE INPUT;"",A$ -4860 IF L=1 AND LEN(A$)=0 THEN PRINT "Accepted.":GOTO 4890 -4870 IF L=0 AND LEN(A$)=0 THEN A$="None":PRINT A$ -4880 LSET FSP1N$=A$:GOTO 4830 -4890 PRINT "Enter ";TYP$;" Donation Amount (no $ or ,): ";:INPUT "",DNEW -4900 PRINT "The amount entered is ";:PRINT USING "$###.##";DNEW -4910 PRINT "Hit RETURN to accept, or enter corrected donation amount: "; -4920 INPUT "",A:IF A<>0 THEN DNEW=A:GOTO 4900 -4930 DNEW$=MKS$(DNEW) -4940 IF TYP=1 THEN LSET FSP1D$=SP1D$+DNEW$ ELSE LSET FTD$=TD$+DNEW$ -4950 PUT #4,REC:GOTO 4760 -4960 CLOSE #4:GOSUB 880:RETURN -4970 '== Screen Donation Report == -4980 PRINT CLR$;FNCTR$("DONATIONS") -4990 PRINT TAB(30);FXN$;TAB(70);FXNR1$ -5000 PRINT TAB(30);FA1$ -5010 IF ASC(FA2$)<>32 AND ASC(FA2$)<>126 THEN PRINT TAB(30);FA2$ -5020 PRINT TAB(30);FA3$;FA4$;" ";FA5$ -5030 PRINT FNCTR$(QTR$+" Quarter "+YR$):PRINT -5040 PRINT TAB(20);"Sunday";TAB(50);"Special" -5050 PRINT TAB(10);"Week";TAB(20);"Donation";TAB(50);"Donation"; -5060 PRINT TAB(60);"Purpose" -5070 PRINT TAB(10);"----";TAB(20);"--------";TAB(50);"--------"; -5080 PRINT TAB(60);"-------" -5090 DT=0:DSP1T=0 -5100 FOR I=1 TO 13 -5110 IF WK=1 THEN PRINT:PRINT FNCTR$("No donations entered."):GOTO 5280 -5120 IF I=WK THEN 5220 -5130 D$=MID$(FTD$,((I-1)*4)+1,4) -5140 SP1D$=MID$(FSP1D$,((I-1)*4)+1,4) -5150 D=CVS(D$):DSP1=CVS(SP1D$) -5160 PRINT TAB(10);:PRINT USING "###";I; -5170 PRINT TAB(20);:PRINT USING " ###.##";D; -5180 PRINT TAB(50);:PRINT USING " ###.##";DSP1; -5190 PRINT TAB(60);:IF I=WK-1 THEN PRINT FSP1N$ ELSE PRINT -5200 DT=DT+D:DSP1T=DSP1T+DSP1 -5210 NEXT I -5220 DAV=DT/(I-1) -5230 PRINT TAB(20);"---------";TAB(50);"---------":PRINT -5240 PRINT TAB(10);"Total:";TAB(20);:PRINT USING " $###.##";DT; -5250 PRINT TAB(50);:PRINT USING " $###.##";DSP1T -5260 PRINT "Weekly average:";TAB(20);:PRINT USING " $###.##";DAV; -5270 PRINT TAB(35);"Comb. Total:";TAB(50);:PRINT USING " $###.##";DT+DSP1T -5280 PRINT BTM$;FNCTR$("Hit RETURN to continue or Q to quit: "); -5290 T$=INKEY$:IF LEN(T$)<1 THEN 5290 ELSE PRINT CLR$:RETURN -5300 '== Print Formatted Donation Report to File == -5310 PRINT #5,CLR$; 'FNCTR$("MY CHURCH") -5320 'PRINT #5,FNCTR$("100 Sanctity Lane") -5330 'PRINT #5,FNCTR$(HT$+" "+ST$+" 28303"):PRINT #5,"" -5340 PRINT #5,FNCTR$("DONATIONS"):PRINT #5,"" -5350 PRINT #5,TAB(30);FXN$;TAB(70);FXNR1$ -5360 PRINT #5,TAB(30);FA1$ -5370 IF ASC(FA2$)<>32 AND ASC(FA2$)<>126 THEN PRINT #5,TAB(30);FA2$ -5380 PRINT #5,TAB(30);FA3$;FA4$;" ";FA5$:PRINT #5,"" -5390 PRINT #5,FNCTR$(QTR$+" Quarter +YR$):PRINT #5,"" -5400 PRINT #5,TAB(20);"Sunday";TAB(50);"Special" -5410 PRINT #5,TAB(10);"Week";TAB(20);"Donation";TAB(50);"Donation"; -5420 PRINT #5,TAB(60);"Purpose" -5430 PRINT #5,TAB(10);"----";TAB(20);"--------";TAB(50);"--------"; -5440 PRINT #5,TAB(60);"-------" -5450 DT=0:DSP1T=0 -5460 FOR I=1 TO 13:IF WK<>1 THEN 5480 -5470 PRINT #5,"":PRINT #5,FNCTR$("No donations entered."):GOTO 5580 -5480 IF I=WK THEN 5580 -5490 FD$=MID$(FTD$,(I-1)*4+1,4) -5500 SP1D$=MID$(FSP1D$,(I-1)*4+1,4) -5510 D=CVS(FD$):DSP1=CVS(SP1D$) -5520 PRINT #5,TAB(10);:PRINT #5,USING "###";I; -5530 PRINT #5,TAB(20);:PRINT #5,USING " ###.##";D; -5540 PRINT #5,TAB(50);:PRINT #5,USING " ###.##";DSP1; -5550 PRINT #5,TAB(60);:IF I=WK-1 THEN PRINT #5,FSP1N$ ELSE PRINT #5 -5560 DT=DT+D:DSP1T=DSP1T+DSP1 -5570 NEXT I -5580 DAV=DT/I -5590 PRINT #5,TAB(20);"---------";TAB(50);"---------":PRINT #5,"" -5600 PRINT #5,TAB(10);"Total:";TAB(20);:PRINT #5,USING " $###.##";DT; -5610 PRINT #5,TAB(50);:PRINT #5,USING " $###.##";DSP1T -5620 PRINT #5,"":PRINT #5,"Weekly average:";TAB(20); -5630 PRINT #5,USING " $###.##";DAV;:PRINT #5,TAB(35);"Comb. Total:"; -5640 PRINT #5,TAB(50);:PRINT #5,USING " $###.##";DT+DSP1T;:PRINT #5,CHR$(12) -5650 RETURN -5660 '-- Small Gosub to field all files -- -5670 FOR I=1 TO 4 -5680 OPEN "R",#I,F$(I):FIELD #I,126 AS FA$ -5690 PRINT FNCTR$("Now opening and fielding "+F$(I)+" (File #"+STR$(I)+").") -5700 NEXT I:RETURN -5710 '== Quarter File Init== -5720 DATA "== Quarter Initialization ==","" -5730 DATA "You may now set the present Quarter to access current Quarterly" -5740 DATA "Donation Files. If this is a new Quarter, that file will be" -5750 DATA "created automatically.","",* -5760 PRINT CLR$:RESTORE 5720:GOSUB 390 -5770 GOSUB 6150:IF T$<>"Q" THEN 5820 -5780 IF LEN(F$(4))>0 THEN 6120 -5790 PRINT FNCTR$("Your file names are NOT initialized, and you cannot access") -5800 PRINT FNCTR$("your files until that is done! Please select a Quarter.") -5810 GOTO 5770 -5820 QTR$=MID$("1st2nd3rd4th",(VAL(T$)-1)*3+1,3) -5830 PRINT:PRINT FNCTR$("Here are your file names for the "+QTR$+" Quarter:") -5840 PRINT:PRINT TAB(20); -5850 FOR I=1 TO 4:PRINT F$(I);" ";:NEXT I:PRINT -5860 RESET:ON ERROR GOTO 5940 -5870 ' The following file test requires that MBRS.BAS exist on this disk. -5880 ' So DON'T change MBRS.BAS to anything else, or change these names. -5890 NAME "MBRS.BAS" AS F$(1) -5900 NAME F$(1) AS "MBRS.BAS":ON ERROR GOTO 0 -5910 GOTO 6050 -5920 NAME "MBRS.BAS" AS F$(4) -5930 NAME F$(4) AS "MBRS.BAS":GOTO 5980 -5940 IF ERR=58 AND ERL=5890 THEN RESUME 5920 -5950 IF ERR=58 AND ERL=5920 THEN RESUME 6120 -5960 PRINT "Untrapped ERR=";ERR;"at Line ";ERL:STOP -5970 '--Quarter files do not exist - initialize them.-- -5980 ON ERROR GOTO 0 -5990 PRINT FNCTR$("Creating new "+QTR$+" Quarter Donation File "+F$(4)+"...") -6000 OPEN "R",#4,F$(4):FIELD #4,2 AS FZ1$,2 AS FXNR1$,2 AS FWK$,120 AS FA$ -6010 LSET FZ1$="ZZ":LSET FXNR1$=MKI$(0):LSET FWK$=MKI$(0) -6020 FOR REC=1 TO MAX:PUT #4,REC:NEXT REC:CLOSE #4 -6030 GOTO 6120 -6040 '-- Initialize All Files -- -6050 FOR I=1 TO 3 -6060 PRINT FNCTR$("Creating File "+F$(I)) -6070 OPEN "R",#I,F$(I):FIELD #I,2 AS FZ1$,2 AS FXNR1$,122 AS FA$ -6080 LSET FZ1$="ZZ":LSET FXNR1$=MKI$(0) -6090 FOR REC=1 TO MAX:PUT #I,REC:NEXT REC:CLOSE #I -6100 NEXT I:GOTO 5980 -6110 '-- End of All File Initialization -- -6120 ON ERROR GOTO 0 -6130 RETURN -6140 '-- Prompt for and Get Quarter Data -- -6150 IF QTR$="" THEN T$="No Quarter Initialized" ELSE T$=QTR$+" Quarter" -6160 PRINT FNCTR$("Current Quarter: "+T$):PRINT -6170 PRINT FNCTR$("Enter Quarter desired (1,2,3,4) or ESC or RET to quit: "); -6180 T$=INKEY$:IF LEN(T$)<1 THEN 6180 -6190 IF T$=ESC$ OR T$="" THEN T$="Q":PRINT "Quit":GOTO 6220 -6200 F$(4)="DONQTR"+T$+".DAT" -6210 IF INSTR("1234",T$)<1 THEN PRINT FNCTR$("ERROR! Try again."):GOTO 6170 -6220 RETURN diff --git a/bwbtest/M80/broken/million.bas b/bwbtest/M80/broken/million.bas deleted file mode 100644 index bc0952b..0000000 --- a/bwbtest/M80/broken/million.bas +++ /dev/null @@ -1,269 +0,0 @@ -1 PRINT CHR$(26);TAB(23);"MILLIONAIRE" -2 PRINT TAB(20);"CREATIVE COMPUTING" -3 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" -4 PRINT:PRINT:PRINT -5 F$="$###,###" -10 REM MILLIONAIRE BY CRAIG GUNNETT -20 PRINT "THIS IS THE GAME OF 'MILLIONAIRE'. ALL YOU MUST DO IS" -30 PRINT "TYPE IN YOUR NAME AND ANSWER SOME QUESTIONS. THE" -40 PRINT "DECISIONS YOU MAKE WILL DETERMINE HOW MUCH MONEY YOU" -50 PRINT "MAKE. AT THE TIME OF YOUR DEATH, YOUR LIFE WILL BE" -60 PRINT "RATED BY THE AMOUNT OF MONEY YOU MADE THROUGHOUT" -70 PRINT "YOUR LIFE. IF YOU HAVE MADE $1,000,000 , YOU WILL BE" -80 PRINT "A MILLIONAIRE AND WIN THE GAME. NAME PLEASE"; -100 LET O=-1 -110 DIM A$(20),Z$(1),M$(36),S(9),Q(16) -120 FOR I=1 TO 4 -130 LET S(I)=150 -140 NEXT I -150 INPUT A$ -160 PRINT -170 PRINT "O.K., ";A$;", THIS IS YOUR NEW LIFE!" -180 LET M$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" -190 IF RND(1)>.5 GOTO 220 -200 PRINT "ON A BIG FARM"; -210 GOTO 230 -220 PRINT "IN A SMALL TOWN"; -230 LET T=INT(RND(1)*12)+1 -240 PRINT ", ON ";MID$(M$,3*T-2,3);INT(RND(1)*28)+1;CHR$(8);", 1980,"; -250 PRINT " ";A$;" IS BORN." -260 PRINT "YOUR PARENTS ARE VERY "; -270 IF RND(1)>.5 GOTO 310 -280 PRINT "RICH. "; -290 LET M=INT(RND(1)*5000)+10000 -300 GOTO 330 -310 PRINT "POOR. "; -320 LET M=INT((RND(1)+RND(1))/2*1000) -330 LET T=INT(RND(1)*12)+1 -340 LET Y=1996+INT(RND(1)*10) -350 PRINT "ON ";MID$(M$,T*3-2,3);T*2;CHR$(8);",";Y;CHR$(8);", YOU" -360 PRINT "LEAVE HOME WITH ";:PRINT USING F$;M;:PRINT "." -370 LET Y=Y+INT(RND(1)*3)+1 -380 GOSUB 680 -390 FOR J=1 TO 13 -400 IF (J/3)-INT(J/3)+E=0 THEN GOSUB 680 -410 LET D=INT(28*RND(1))+1 -420 LET M1=(INT(12*RND(1))+1)*3 -430 PRINT -440 PRINT MID$(M$,M1-2,3);D;CHR$(8);",";Y -450 IF Y-1980<70 GOTO 500 -460 IF RND(1)>.5 GOTO 500 -470 PRINT "YOU ARE DEAD (COULD'NT TELL, COULD YOU?) AT THE" -480 PRINT "AGE OF";Y-1980;CHR$(8);"." -490 GOTO 2370 -500 IF M>=0 GOTO 540 -510 LET I=INT(.07*Y9*(-M)) -520 LET M=M-I -530 PRINT "THE INTEREST ON YOUR LOAN IS ";:PRINT USING F$;I;:PRINT ". YOU HAVE ";:PRINT USING F$;M;:PRINT "." -540 LET Q=INT(13*RND(1))+1 -550 IF Q(Q)=1 GOTO 540 -560 LET Q(Q)=1 -570 ON Q GOTO 890, 1010, 1100, 1220, 1280, 1430, 1530 -580 ON (Q-7) GOTO 1850, 1930, 2060, 2120, 2240, 2280 -590 PRINT "YOU NOW HAVE ";:PRINT USING F$;M;:PRINT "." -600 IF O=-2 GOTO 1530 -610 IF J=1 GOTO 640 -620 LET M=M+(E-C)*Y9 -630 PRINT "YOUR EARNINGS AND EXPENSES LEAVE YOU WITH ";:PRINT USING F$;M;:PRINT "." -640 LET Y9=INT(RND(1)*6)+5 -650 LET Y=Y+Y9 -660 NEXT J -670 GOTO 470 -680 REM JOB SUB -690 PRINT "YOU GOT A NEW JOB AS A "; -700 ON INT(RND(1)*5)+1 GOTO 740, 770, 800, 830 -710 PRINT "TEACHER"; -720 LET E=INT(RND(1)*4000)+17000 -730 GOTO 850 -740 PRINT "LAWYER"; -750 LET E=INT(RND(1)*40000!)+80000! -760 GOTO 850 -770 PRINT "COMPUTER PROGRAMMER"; -780 LET E=INT(RND(1)*5000)+20000 -790 GOTO 850 -800 PRINT "BUS DRIVER"; -810 LET E=INT(RND(1)*2000)+16000 -820 GOTO 850 -830 PRINT "FOOTBALL PLAYER"; -840 LET E=INT(RND(1)*100000!)+100000! -850 LET C=E-10000+INT((RND(1)+RND(1))*5000) -860 PRINT ". YOU EARN ";:PRINT USING F$;E;:PRINT " A YEAR." -870 PRINT "YOU ADJUST YOUR EXPENSES TO ";:PRINT USING F$;C;:PRINT" A YEAR." -880 RETURN -890 PRINT "YOU GO TO LAS VEGAS TO GAMBLE. HOW MUCH DO YOU BET"; -900 INPUT S -910 PRINT -920 IF S<=0 GOTO 1000 -930 IF RND(1)>.7 GOTO 970 -940 LET S2=-INT(RND(1)*S) -950 PRINT "HA! HA! YOU LOST ";:PRINT USING F$;-S2;:PRINT "." -960 GOTO 990 -970 LET S2=INT((RND(1)+RND(1))*S) -980 PRINT "YOU WON ";:PRINT USING F$;S2;:PRINT "." -990 LET M=M+S2 -1000 GOTO 590 -1010 PRINT "YOU ARE OFFERED A COIN SUPPOSEDLY WORTH $100,000." -1020 PRINT "DO YOU BUY IT"; -1030 INPUT Z$ -1035 Z$=LEFT$(Z$,1) -1040 PRINT -1050 LET V7=INT(RND(1)*200000!)+1 -1060 IF Z$<>"Y" GOTO 1080 -1070 LET M=M-100000!+V7 -1080 PRINT "THE VALUE OF THE COIN IS ";:PRINT USING F$;V7;:PRINT "." -1090 GOTO 590 -1100 PRINT "YOU ARE SERIOUSLY SICK. (COULDN'T TELL, COULD YOU?)" -1110 PRINT "YOU HAVE "; -1120 ON (INT(RND(1)*3)+1) GOTO 1150, 1170 -1130 PRINT "THE ASIO-DISPEPSIA REGIONALY HYPNOTIC FLU! (OH!)." -1140 GOTO 1180 -1150 PRINT "COMPUTERITIS." -1160 GOTO 1180 -1170 PRINT "INFECTIOUS FATALY REOCCURING CHRONIC BAD BREATH." -1180 LET U=INT(RND(1)*1000)+500 -1190 LET M=M-U -1200 PRINT "HEALTH EXPENSES COST YOU ";:PRINT USING F$;U;:PRINT "." -1210 GOTO 590 -1220 LET F=INT(RND(1)*100000!) -1230 LET C8=INT(F/2)-INT(RND(1)*(F/2)) -1240 PRINT "YOUR GRANDFATHER GROVERS JUST DIED. (OH!) HE LEFT" -1250 PRINT "YOU ";:PRINT USING F$;F;:PRINT ", BUT FUNERAL EXPENSES ARE ";:PRINT USING F$;C8;:PRINT "." -1260 LET M=M-C8+F -1270 GOTO 590 -1280 IF E=0 GOTO 890 -1290 PRINT "NEWS FROM YOUR BOSS:" -1300 ON (INT(RND(1)*3)+1) GOTO 1350, 1390 -1310 LET L=INT(RND(1)*3000)+1 -1320 LET E=E-L -1330 PRINT "YOU GOT A ";:PRINT USING F$;L;:PRINT " DECREASE IN PAY. YOU NOW EARN ";:PRINT USING F$;E;:PRINT "." -1340 GOTO 590 -1350 PRINT "YOU'RE FIRED! (HA!)" -1360 LET E=0 -1370 LET C=INT(C/4) -1380 GOTO 590 -1390 LET R6=INT(RND(1)*5000)+1 -1400 LET E=E+R6 -1410 PRINT "YOU GOT A RAISE OF ";:PRINT USING F$;R6;:PRINT ". YOU NOW EARN ";:PRINT USING F$;E;:PRINT "." -1420 GOTO 590 -1430 PRINT "THE DOCTOR SAYS YOU NEED A VACATION. DO YOU GO"; -1440 INPUT Z$ -1445 Z$=LEFT$(Z$,1) -1450 PRINT -1460 LET V=INT(RND(1)*2000)+1000 -1470 IF Z$="N" GOTO 1500 -1480 PRINT "GOOD, THE VACATION COSTS ";:PRINT USING F$;V;:PRINT "." -1490 GOTO 1510 -1500 PRINT "YOU JUST HAD A NERVOUS BREAKDOWN. MEDICAL COSTS ";:PRINT USING F$;-V;:PRINT "." -1510 LET M=M-V -1520 GOTO 590 -1530 FOR I=1 TO 4 -1540 LET S(I)=INT((INT(RND(1)*100)+100+2*S(I))/3) -1550 NEXT I -1560 PRINT "# STOCK NAME PRICE SHARES OWNED" -1562 PRINT "-- ---------- ----- ------------" -1570 PRINT "1 IBM (INCREDIBLY BAD MACHINES) ";S(1);" ";S(5) -1580 PRINT "2 USS (USELESS & STINKY STEEL) ";S(2);" ";S(6) -1590 PRINT "3 NCR (NO CASH RETURN) ";S(3);" ";S(7) -1600 PRINT "4 TWA (TOTAL WRECK AIRLINES) ";S(4);" ";S(8) -1602 PRINT -1610 IF S(9)=1 GOTO 2410 -1620 PRINT "DO YOU BUY, SELL ($100 FEE), OR NOT (B,S, OR N)"; -1630 INPUT Z$ -1635 Z$=LEFT$(Z$,1) -1640 PRINT -1650 IF Z$="S" GOTO 1740 -1660 IF Z$="N" GOTO 1810 -1670 PRINT "STOCK # AND QUANTITY"; -1680 INPUT S3,S(0) -1690 PRINT -1700 LET S(4+S3)=S(4+S3)+S(0) -1710 LET O=-2 -1720 LET M=M-S(S3)*S(0)-100 -1730 GOTO 1620 -1740 PRINT "STOCK # AND QUANTITY"; -1750 INPUT S2,S5 -1760 IF RND(1)<.5 GOTO 1880 -1770 IF S5>S(4+S2) GOTO 1740 -1780 LET S(4+S2)=S(4+S2)-S5 -1790 LET M=M+S(S2)*S5-100 -1800 GOTO 1620 -1810 LET S1=S(5)+S(6)+S(7)+S(8) -1820 IF S1>0 GOTO 610 -1830 LET O=-1 -1840 GOTO 610 -1850 PRINT "NEWS FLASH!!! "; -1860 PRINT "A TORNADO HAS JUST HIT THE HOME OF ";A$;"." -1870 GOTO 1890 -1880 PRINT "AN AIRPLANE HAS JUST CRASHED INTO THE HOME OF ";A$;"." -1890 LET D8=INT(RND(1)*50000!)+1 -1900 LET M=M-D8 -1910 PRINT "DAMAGES HAVE BEEN ESTIMATED AT ";:PRINT USING F$;D8;:PRINT "." -1920 GOTO 590 -1930 PRINT "OH! YOU JUST GOT "; -1940 IF Y-1980<55 GOTO 2000 -1950 IF RND(1)>.4 GOTO 1980 -1960 PRINT "CANCER"; -1970 GOTO 2010 -1980 PRINT "A HEART ATTACK"; -1990 GOTO 2010 -2000 PRINT "LEUKEMIA"; -2010 LET M2=INT(RND(1)*5000)+1000 -2020 LET M=M-M2 -2030 PRINT ". MEDICAL BILLS ARE ";:PRINT USING F$;M2;:PRINT "." -2040 IF RND(1)<.5 GOTO 470 -2050 GOTO 590 -2060 PRINT "YOU JUST HAD A CAR ACCIDENT! MEDICAL COSTS" -2070 LET M3=INT(RND(1)*3000)+1000 -2080 LET Q7=INT(RND(1)*5000)+100 -2090 PRINT "ARE ";:PRINT USING F$;M3;:PRINT ". REPAIRS COST ";:PRINT USING F$;Q7;:PRINT "." -2100 LET M=M-M3-Q7 -2110 GOTO 590 -2120 IF E=0 GOTO 1010 -2130 LET E2=10000+INT(RND(1)*5000) -2140 PRINT "YOU ARE OFFERED ANOTHER JOB FOR ";:PRINT USING F$;E2;:PRINT " A YEAR." -2150 PRINT "WOULD YOU LIKE TO MOONLIGHT"; -2160 INPUT Z$ -2170 PRINT -2180 IF LEFT$(Z$,1)="N" THEN 590 -2190 ON INT(RND(1)*3) GOTO 1350, 2220 -2200 LET E=E+E2 -2210 GOTO 590 -2220 PRINT "FROM OVERWORK YOU GET "; -2230 GOTO 1980 -2240 LET R2=INT(RND(1)*10000)+5000 -2250 LET M=M-R2 -2260 PRINT "YOUR HOME HAS BEEN ROBBED OF GOODS WORTH ";:PRINT USING F$;R2;:PRINT "." -2270 GOTO 590 -2280 IF O=-1 GOTO 1430 -2290 IF RND(1)>.7 GOTO 1430 -2300 LET B4=INT(RND(1)*4) -2310 PRINT "STOCK MARKET CRASH!!! EACH OF YOUR";S1;"SHARES OF" -2320 PRINT "STOCK IS WORTH ";:PRINT USING F$;B4;:PRINT ". YOU MUST SELL ALL OF THEM" -2330 PRINT "FOR A TOTAL OF ";:PRINT USING F$;S1*B4;:PRINT "." -2340 LET M=M+S1*B4 -2350 LET O=-1 -2360 GOTO 590 -2370 PRINT "YOU HAD ";:PRINT USING F$;M;:PRINT "." -2380 IF O=-1 GOTO 2430 -2390 LET S(9)=1 -2400 GOTO 1530 -2410 LET M=M+S(1)*S(5)+S(2)*S(6)+S(3)*S(7)+S(4)*S(8) -2420 PRINT "WITH STOCK VALUE YOU HAVE ";:PRINT USING F$;M;:PRINT "." -2430 IF M<0 GOTO 2480 -2440 IF M<500000! GOTO 2510 -2450 IF M<1E+06 GOTO 2530 -2460 PRINT A$;" WON!! YOU ARE A MILLIONAIRE!!" -2470 GOTO 2540 -2480 PRINT "YOU LOUSY #$%&'*!!! NOW YOUR POOR FAMILY HAS TO PAY" -2490 PRINT "OFF YOUR DEBTS.......................... " -2500 GOTO 2540 -2510 PRINT "NOT BAD, ";A$;"." -2520 GOTO 2540 -2530 PRINT "CLOSE, ";A$;". MAYBE NEXT LIFE." -2540 PRINT "THANKS FOR PLAYING 'MILLIONAIRE', ";A$;"!!!!" -2545 PRINT:PRINT -2550 END -3000 REM ---------------------------------------------------------------- -3010 REM Remvoed this line: -3020 REM 0 PRINT "Press any key to begin.":FOR I=-32767 TO 32767 :X$=INKEY$:IF LEN(X$)=1 THEN GOTO 1 ELSE NEXT I -3999 END diff --git a/bwbtest/M80/broken/poker.bas b/bwbtest/M80/broken/poker.bas deleted file mode 100644 index c48a787..0000000 --- a/bwbtest/M80/broken/poker.bas +++ /dev/null @@ -1,423 +0,0 @@ -1 RANDOMIZE:WIDTH 80:PRINT CHR$(26) -2 PRINT TAB(33);"POKER":PRINT -4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -6 PRINT: PRINT: PRINT -10 DIM A(50),B(15) -20 DEF FNA(X)=INT(10*RND(1)) -30 DEF FNB(X)=X-100*INT(X/100) -40 PRINT "WELCOME TO THE CASINO. WE EACH HAVE $200." -50 PRINT "I WILL OPEN THE BETTING BEFORE THE DRAW; YOU OPEN AFTER." -60 PRINT "TO FOLD BET 0; TO CHECK BET .5.":PRINT -70 PRINT "ENOUGH TALK -- LET'S GET DOWN TO BUSINESS." -80 PRINT -90 LET O=1 -100 LET C=200 -110 LET S=200 -120 LET P=0 -130 REM -140 PRINT -150 IF C<=5 THEN 3670 -160 PRINT "THE ANTE IS $5. I WILL DEAL:" -170 PRINT -180 IF S>5 THEN 200 -190 GOSUB 3830 -200 LET P=P+10 -210 LET S=S-5 -220 LET C=C-5 -230 FOR Z=1 TO 10 -240 GOSUB 1740 -250 NEXT Z -260 PRINT "YOUR HAND:":PRINT "---------" -270 N=1 -280 GOSUB 1850 -290 N=6 -300 I=2 -310 GOSUB 2170 -320 PRINT -330 IF I<>6 THEN 470 -340 IF FNA(0)<=7 THEN 370 -350 LET X=11100 -360 GOTO 420 -370 IF FNA(0)<=7 THEN 400 -380 LET X=11110 -390 GOTO 420 -400 IF FNA(0)>=1 THEN 450 -410 X=11111 -420 I=7 -430 Z=23 -440 GOTO 580 -450 Z=1 -460 GOTO 510 -470 IF U>=13 THEN 540 -480 IF FNA(0)>=2 THEN 500 -490 GOTO 420 -500 Z=0 -510 K=0 -520 PRINT "I CHECK." -530 GOTO 620 -540 IF U<=16 THEN 570 -550 Z=2 -560 IF FNA(0)>=1 THEN 580 -570 Z=35 -580 V=Z+FNA(0) -590 GOSUB 3480 -600 PRINT "I'LL OPEN WITH $";V;CHR$(8);"." -610 K=V -620 GOSUB 3050 -630 GOSUB 650 -640 GOTO 820 -650 IF I<>3 THEN 760 -660 PRINT -670 PRINT "I WIN." -680 C=C+P -690 PRINT:PRINT "NOW I HAVE $";C;"AND YOU HAVE $";S;CHR$(8);"." -700 PRINT:PRINT "DO YOU WISH TO CONTINUE"; -710 INPUT H$ -720 IF LEFT$(H$,1)="Y" THEN 120 -730 IF LEFT$(H$,1)="N" THEN 4100 -740 PRINT "ANSWER YES OR NO, PLEASE." -750 GOTO 700 -760 IF I<>4 THEN 810 -770 PRINT -780 PRINT "YOU WIN." -790 S=S+P -800 GOTO 690 -810 RETURN -820 PRINT -830 PRINT "NOW WE DRAW -- HOW MANY CARDS DO YOU WANT"; -840 INPUT T -850 IF T=0 THEN 980 -860 Z=10 -870 IF T<4 THEN 900 -880 PRINT "YOU CAN'T DRAW MORE THAN THREE CARDS." -890 GOTO 840 -900 IF T=1 THEN PRINT "WHAT IS ITS NUMBER:" ELSE PRINT"WHAT ARE THEIR NUMBERS:" -910 FOR Q=1 TO T -920 INPUT U -930 GOSUB 1730 -940 NEXT Q -950 PRINT:PRINT "YOUR NEW HAND:":PRINT "-------------" -960 N=1 -970 GOSUB 1850 -980 Z=10+T -990 FOR U=6 TO 10 -1000 IF INT(X/10^(U-6))<>10*INT(X/10^(U-5)) THEN 1020 -1010 GOSUB 1730 -1020 NEXT U -1030 PRINT -1040 PRINT "I AM TAKING";Z-10-T;"CARD"; -1050 IF Z=11+T THEN PRINT ".":GOTO 1090 -1060 PRINT "S." -1070 PRINT -1080 GOTO 1100 -1090 PRINT -1100 N=6 -1110 V=I -1120 I=1 -1130 GOSUB 2170 -1140 B=U -1150 M=D -1160 IF V<>7 THEN 1190 -1170 Z=28 -1180 GOTO 1330 -1190 IF I<>6 THEN 1220 -1200 Z=1 -1210 GOTO 1330 -1220 IF U>=13 THEN 1270 -1230 Z=2 -1240 IF FNA(0)<>6 THEN 1260 -1250 Z=19 -1260 GOTO 1330 -1270 IF U>=16 THEN 1320 -1280 Z=19 -1290 IF FNA(0)<>8 THEN 1310 -1300 Z=11 -1310 GOTO 1330 -1320 Z=2 -1330 K=0 -1340 GOSUB 3050 -1350 IF T<>.5 THEN 1450 -1360 IF V=7 THEN 1400 -1370 IF I<>6 THEN 1400 -1380 PRINT "I'LL CHECK." -1390 GOTO 1460 -1400 V=Z+FNA(0) -1410 GOSUB 3480 -1420 PRINT "I'LL BET $";V;CHR$(8);"." -1430 K=V -1440 GOSUB 3060 -1450 GOSUB 650 -1460 PRINT -1470 PRINT "NOW WE COMPARE HANDS:" -1480 J$=H$ -1490 K$=I$ -1500 PRINT:PRINT "MY HAND:":PRINT "-------" -1510 N=6 -1520 GOSUB 1850 -1530 N=1 -1540 GOSUB 2170 -1550 PRINT -1560 PRINT "YOU HAVE "; -1570 K=D -1580 GOSUB 3690 -1590 H$=J$ -1600 I$=K$ -1610 K=M -1620 PRINT "AND I HAVE "; -1630 GOSUB 3690 -1640 IF B>U THEN 670 -1650 IF U>B THEN 780 -1660 IF H$="A FLUS" THEN 1700 -1662 IF FNB(M)FNB(D) THEN 670 -1670 PRINT "THE HAND IS DRAWN." -1680 PRINT "ALL $";P;"REMAINS IN THE POT." -1690 GOTO 140 -1700 IF FNB(M)>FNB(D) THEN 670 -1710 IF FNB(D)>FNB(M) THEN 780 -1720 GOTO 1670 -1730 Z=Z+1 -1740 A(Z)=100*INT(4*RND(1))+INT(100*RND(1)) -1750 IF INT(A(Z)/100)>3 THEN 1740 -1760 IF A(Z)-100*INT(A(Z)/100)>12 THEN 1740 -1765 IF Z=1 THEN 1840 -1770 FOR K=1 TO Z-1 -1780 IF A(Z)=A(K) THEN 1740 -1790 NEXT K -1800 IF Z<=10 THEN 1840 -1810 N=A(U) -1820 A(U)=A(Z) -1830 A(Z)=N -1840 RETURN -1850 FOR Z=N TO N+4 -1860 PRINT USING "##";Z;:PRINT " --"; -1870 GOSUB 1950 -1880 PRINT " OF"; -1890 GOSUB 2070 -1900 ' IF Z/2<>INT(Z/2) THEN 1920 -1910 PRINT -1920 NEXT Z -1930 PRINT -1940 RETURN -1950 K=FNB(A(Z)) -1960 IF K<>9 THEN 1980 -1970 PRINT " JACK"; -1980 IF K<>10 THEN 2000 -1990 PRINT " QUEEN"; -2000 IF K<>11 THEN 2020 -2010 PRINT " KING"; -2020 IF K<>12 THEN 2040 -2030 PRINT " ACE"; -2040 IF K>=9 THEN 2060 -2050 PRINT K+2;CHR$(8); -2060 RETURN -2070 K=INT(A(Z)/100) -2080 IF K<>0 THEN 2100 -2090 PRINT " CLUBS", -2100 IF K<>1 THEN 2120 -2110 PRINT " DIAMONDS", -2120 IF K<>2 THEN 2140 -2130 PRINT " HEARTS", -2140 IF K<>3 THEN 2160 -2150 PRINT " SPADES", -2160 RETURN -2170 U=0 -2180 FOR Z=N TO N+4 -2190 B(Z)=FNB(A(Z)) -2200 IF Z=N+4 THEN 2230 -2210 IF INT(A(Z)/100)<>INT(A(Z+1)/100) THEN 2230 -2220 U=U+1 -2230 NEXT Z -2240 IF U<>4 THEN 2310 -2250 X=11111 -2260 D=A(N) -2270 H$="A FLUS" -2280 I$="H IN" -2290 U=15 -2300 RETURN -2310 FOR Z=N TO N+3 -2320 FOR K=Z+1 TO N+4 -2330 IF B(Z)<=B(K) THEN 2390 -2340 X=A(Z) -2350 A(Z)=A(K) -2360 B(Z)=B(K) -2370 A(K)=X -2380 B(K)=A(K)-100*INT(A(K)/100) -2390 NEXT K -2400 NEXT Z -2410 X=0 -2420 FOR Z=N TO N+3 -2430 IF B(Z)<>B(Z+1) THEN 2470 -2440 X=X+11*10^(Z-N) -2450 D=A(Z) -2460 GOSUB 2760 -2470 NEXT Z -2480 IF X<>0 THEN 2620 -2490 IF B(N)+3<>B(N+3) THEN 2520 -2500 X=1111 -2510 U=10 -2520 IF B(N+1)+3<>B(N+4) THEN 2620 -2530 IF U<>10 THEN 2600 -2540 U=14 -2550 H$="STRAIG" -2560 I$="HT" -2570 X=11111 -2580 D=A(N+4) -2590 RETURN -2600 U=10 -2610 X=11110 -2620 IF U>=10 THEN 2690 -2630 D=A(N+4) -2640 H$="SCHMAL" -2650 I$="TZ, " -2660 U=9 -2670 X=11000 -2680 GOTO 2740 -2690 IF U<>10 THEN 2720 -2700 IF I=1 THEN 2740 -2710 GOTO 2750 -2720 IF U>12 THEN 2750 -2730 IF FNB(D)>6 THEN 2750 -2740 I=6 -2750 RETURN -2760 IF U>=11 THEN 2810 -2770 U=11 -2780 H$="A PAIR" -2790 I$=" OF " -2800 RETURN -2810 IF U<>11 THEN 2910 -2820 IF B(Z)<>B(Z-1) THEN 2870 -2830 H$="THREE" -2840 I$=" " -2850 U=13 -2860 RETURN -2870 H$="TWO P" -2880 I$="AIR, " -2890 U=12 -2900 RETURN -2910 IF U>12 THEN 2960 -2920 U=16 -2930 H$="FULL H" -2940 I$="OUSE, " -2950 RETURN -2960 IF B(Z)<>B(Z-1) THEN 3010 -2970 U=17 -2980 H$="FOUR" -2990 I$=" " -3000 RETURN -3010 U=16 -3020 H$="FULL H" -3030 I$="OUSE, " -3040 RETURN -3050 G=0 -3060 PRINT:PRINT "WHAT IS YOUR BET"; -3070 INPUT T -3080 IF T-INT(T)=0 THEN 3140 -3090 IF K<>0 THEN 3120 -3100 IF G<>0 THEN 3120 -3110 IF T=.5 THEN 3410 -3120 PRINT "NO SMALL CHANGE, PLEASE." -3130 GOTO 3060 -3140 IF S-G-T>=0 THEN 3170 -3150 GOSUB 3830 -3160 GOTO 3060 -3170 IF T<>0 THEN 3200 -3180 I=3 -3190 GOTO 3380 -3200 IF G+T>=K THEN 3230 -3210 PRINT "IF YOU CAN'T SEE MY BET, THEN FOLD." -3220 GOTO 3060 -3230 G=G+T -3240 IF G=K THEN 3380 -3250 IF Z<>1 THEN 3420 -3260 IF G>5 THEN 3300 -3270 IF Z>=2 THEN 3350 -3280 V=5 -3290 GOTO 3420 -3300 IF Z=1 THEN 3320 -3310 IF T<=25 THEN 3350 -3320 I=4 -3330 PRINT "I FOLD." -3340 RETURN -3350 IF Z=2 THEN 3430 -3360 PRINT "I'LL SEE YOU." -3370 K=G -3380 S=S-G -3390 C=C-K -3400 P=P+G+K -3410 RETURN -3420 IF G>3*Z THEN 3350 -3430 V=G-K+FNA(0) -3440 GOSUB 3480 -3450 PRINT "I'LL SEE YOU, AND RAISE YOU";V;CHR$(8);"." -3460 K=G+V -3470 GOTO 3060 -3480 IF C-G-V>=0 THEN 3660 -3490 IF G<>0 THEN 3520 -3500 V=C -3510 RETURN -3520 IF C-G>=0 THEN 3360 -3530 IF (O/2)<>INT(O/2) THEN 3600 -3540 PRINT "WOULD YOU LIKE TO BUY BACK YOUR WATCH FOR $50"; -3550 INPUT J$ -3560 IF LEFT$(J$,1)="N" THEN 3600 -3570 C=C+50 -3580 O=O/2 -3590 RETURN -3600 IF O/3<>INT(O/3) THEN 3670 -3610 PRINT "WOULD YOU LIKE TO BUY BACK YOUR TIE TACK FOR $50"; -3620 INPUT J$ -3630 IF LEFT$(J$,1)="N" THEN 3670 -3640 C=C+50 -3650 O=O/3 -3660 RETURN -3670 PRINT "I'M BUSTED. CONGRATULATIONS!" -3680 STOP -3690 PRINT H$;I$; -3700 IF H$<>"A FLUS" THEN 3750 -3710 K=INT(K/100) -3720 GOSUB 2080 -3730 PRINT -3740 RETURN -3750 K=FNB(K) -3760 GOSUB 1960 -3770 IF H$="SCHMAL" THEN 3790 -3780 IF H$<>"STRAIG" THEN 3810 -3790 PRINT " HIGH" -3800 RETURN -3810 PRINT "'S" -3820 RETURN -3830 PRINT -3840 PRINT "YOU CAN'T BET WITH WHAT YOU HAVEN'T GOT." -3850 IF O/2=INT(O/2) THEN 3970 -3860 PRINT "WOULD YOU LIKE TO SELL YOUR WATCH"; -3870 INPUT J$ -3880 IF LEFT$(J$,1)="N" THEN 3970 -3890 IF FNA(0)>=7 THEN 3930 -3900 PRINT "I'LL GIVE YOU $75 FOR IT." -3910 S=S+75 -3920 GOTO 3950 -3930 PRINT "THAT'S A PRETTY CRUMMY WATCH - I'LL GIVE YOU $25." -3940 S=S+25 -3950 O=O*2 -3960 RETURN -3970 IF O/3<>INT(O/3) THEN 4090 -3980 PRINT "WILL YOU PART WITH THAT DIAMOND TIE TACK": -3990 INPUT J$ -4000 IF LEFT$(J$,1)="N" THEN 4080 -4010 IF FNA(0)>=6 THEN 4050 -4020 PRINT "YOU ARE NOW $100 RICHER." -4030 S=S+100 -4040 GOTO 4070 -4050 PRINT "IT'S PASTE. $25." -4060 S=S+25 -4070 O=O*3 -4080 RETURN -4090 PRINT "YOUR WAD IS SHOT. SO LONG, SUCKER!" -4100 REM RUN "MENU" -5000 REM ----------------- -5010 REM Moved RANDOMIZE from line number 0 to line number 1 -5020 REM Commented out RUN on line 4100 -5030 REM Added semicolons to PRINT commands -5040 REM -5999 END diff --git a/bwbtest/M80/broken/roulette.txt b/bwbtest/M80/broken/roulette.txt deleted file mode 100644 index 9c30e4f..0000000 --- a/bwbtest/M80/broken/roulette.txt +++ /dev/null @@ -1,240 +0,0 @@ -1000 PRINT TAB(32);"ROULETTE" -1010 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" -1020 PRINT:PRINT:PRINT -1030 PRINT "ENTER THE CURRENT DATE (AS IN 'SEPTEMBER 23, 1987') -"; -1040 INPUT D$,E$ -1050 REM-ROULETTE -1060 REM-DAVID JOSLIN -1070 PRINT "WELCOME TO THE ROULETTE TABLE" -1080 PRINT -1090 PRINT "DO YOU WANT INSTRUCTIONS"; -1100 INPUT Y$ -1110 IF LEFT$(Y$,1)="N" THEN 1600 -1120 PRINT -1130 PRINT "THIS IS THE BETTING LAYOUT" -1140 PRINT " (*=RED)" -1150 PRINT -1160 PRINT " 1* 2 3*" -1170 PRINT " 4 5* 6 " -1180 PRINT " 7* 8 9*" -1190 PRINT "10 11 12*" -1200 PRINT "---------------" -1210 PRINT "13 14* 15 " -1220 PRINT "16* 17 18*" -1230 PRINT "19* 20 21*" -1240 PRINT "22 23* 24 " -1250 PRINT "---------------" -1260 PRINT "25* 26 27*" -1270 PRINT "28 29 30*" -1280 PRINT "31 32* 33 " -1290 PRINT "34* 35 36*" -1300 PRINT "---------------" -1310 PRINT " 00 0 " -1320 PRINT :INPUT "PRESS TO GO ON";X -1330 PRINT "TYPES OF BETS" -1340 PRINT -1350 PRINT "THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET" -1360 PRINT "ON THAT NUMBER" -1370 PRINT "THESE PAY OFF 35:1" -1380 PRINT -1390 PRINT "THE 2:1 BETS ARE:" -1400 PRINT " 37) 1-12 40) FIRST COLUMN" -1410 PRINT " 38) 13-24 41) SECOND COLUMN" -1420 PRINT " 39) 25-36 42) THIRD COLUMN" -1430 PRINT -1440 PRINT "THE EVEN MONEY BETS ARE:" -1450 PRINT " 43) 1-18 46) ODD" -1460 PRINT " 44) 19-36 47) RED" -1470 PRINT " 45) EVEN 48) BLACK" -1480 PRINT -1490 PRINT " 49)0 AND 50)00 PAY OFF 35:1" -1500 PRINT " NOTE: 0 AND 00 DO NOT COUNT UNDER ANY" -1510 PRINT " BETS EXCEPT THEIR OWN" -1520 PRINT :INPUT "PRESS TO GO ON";X -1530 PRINT "WHEN I ASK FOR EACH BET,TYPE THE NUMBER" -1540 PRINT "AND THE AMOUNT,SEPERATED BY A COMMA" -1550 PRINT "FOR EXAMPLE:TO BET $500 ON BLACK,TYPE 48,500" -1560 PRINT "WHEN I ASK FOR A BET" -1570 PRINT -1580 PRINT "MINIMUM BET IS $5,MAXIMUM IS $500" -1590 PRINT -1600 REM-PROGRAM BEGINS HERE -1610 REM-TYPE OF BET(NUMBER) ODDS -1620 REM -1630 DIM B(100),C(100),T(100),X(38) -1640 DIM A(50) -1650 FOR I=1 TO 38: X(I)=0: NEXT I: REM MAT X=ZER -1660 P=1000 -1670 D=100000! -1680 PRINT "HOW MANY BETS"; -1690 INPUT Y -1700 IF Y<1 OR Y<>INT(Y) THEN 1680 -1710 FOR I=1 TO 50: A(I)=0: NEXT I: REM MAT A=ZER -1720 FOR C=1 TO Y -1730 PRINT "NUMBER";C; -1740 INPUT X,Z -1750 B(C)=Z -1760 T(C)=X -1770 IF X<1 OR X>50 OR X<>INT(X) THEN 1730 -1780 IF Z<1 OR Z<>INT(Z) THEN 1730 -1790 IF Z<5 OR Z>500 THEN 1730 -1800 IF A(X)=0 THEN 1830 -1810 PRINT "YOU MADE THAT BET ONCE ALREADY,DUM-DUM" -1820 GOTO 1730 -1830 A(X)=1 -1840 NEXT C -1850 PRINT "SPINNING" -1860 PRINT -1870 PRINT -1880 S=INT(RND(1)*100) -1890 IF S=0 OR S>38 THEN 1880 -1900 X(S)=X(S)+1 -1910 IF S<37 THEN 1970 -1920 IF S=37 THEN 1950 -1930 PRINT "00" -1940 GOTO 2070 -1950 PRINT "0" -1960 GOTO 2070 -1970 RESTORE -1980 FOR I1=1 TO 18 -1990 READ R -2000 IF R=S THEN 2050 -2010 NEXT I1 -2020 A$="BLACK" -2030 PRINT S;A$ -2040 GOTO 2070 -2050 A$="RED" -2060 GOTO 2030 -2070 PRINT -2080 FOR C=1 TO Y -2090 IF T(C)<37 THEN 2760 -2100 ON T(C)-36 GOTO 2140,2240,2270,2300,2350,2400,2450,2520,2550 -2110 ON T(C)-45 GOTO 2580,2610,2680 -2120 GOTO 2760 -2130 STOP -2140 REM 1-12(37) 2:1 -2150 IF S <= 12 THEN 2200 -2160 PRINT "YOU LOSE";B(C);"DOLLARS ON BET ";C -2170 D=D+B(C) -2180 P=P-B(C) -2190 GOTO 2230 -2200 PRINT "YOU WIN ";B(C)*2;"DOLLARS ON BET "C -2210 D=D-B(C)*2 -2220 P=P+B(C)*2 -2230 GOTO 2860 -2240 REM 13-24(38) 2:1 -2250 IF S>12 AND S<25 THEN 2200 -2260 GOTO 2160 -2270 REM 25-36(39) 2:1 -2280 IF S>24 AND S<37 THEN 2200 -2290 GOTO 2160 -2300 REM FIRST COLUMN(40) 2:1 -2310 FOR I=1 TO 34 STEP 3 -2320 IF S=I THEN 2200 -2330 NEXT I -2340 GOTO 2160 -2350 REM SECOND COLUMN(41) 2:1 -2360 FOR I=2 TO 35 STEP 3 -2370 IF S=I THEN 2200 -2380 NEXT I -2390 GOTO 2160 -2400 REM THIRD COLUMN(42) 2:1 -2410 FOR I=3 TO 36 STEP 3 -2420 IF S=I THEN 2200 -2430 NEXT I -2440 GOTO 2160 -2450 REM 1-18(43) 1:1 -2460 IF S<19 THEN 2480 -2470 GOTO 2160 -2480 PRINT "YOU WIN ";B(C);"DOLLARS ON BET ";C -2490 D=D-B(C) -2500 P=P+B(C) -2510 GOTO 2860 -2520 REM 19-36(44) 1:1 -2530 IF S<37 AND S>18 THEN 2480 -2540 GOTO 2160 -2550 REM EVEN(45) 1:1 -2560 IF S/2=INT(S/2) AND S<37 THEN 2480 -2570 GOTO 2160 -2580 REM ODD(46) 1:1 -2590 IF S/2<>INT(S/2) AND S<37 THEN 2480 -2600 GOTO 2160 -2610 REM RED(47) 1:1 -2620 RESTORE -2630 FOR I=1 TO 18 -2640 READ R -2650 IF S=R THEN 2480 -2660 NEXT I -2670 GOTO 2160 -2680 REM BLACK(48) 1:1 -2690 RESTORE -2700 FOR I=1 TO 18 -2710 READ R -2720 IF S=R THEN 2160 -2730 NEXT I -2740 IF S>36 THEN 2160 -2750 GOTO 2480 -2760 REM--1TO36,0,00(1-36,49,50)35:1 -2770 IF T(C)<49 THEN 2810 -2780 IF T(C)=49 AND S=37 THEN 2830 -2790 IF T(C)=50 AND S=38 THEN 2830 -2800 GOTO 2160 -2810 IF T(C)=S THEN 2830 -2820 GOTO 2160 -2830 PRINT "YOU WIN ";B(C)*35;"DOLLARS ON BET";C -2840 D=D-B(C)*35 -2850 P=P+B(C)*35 -2860 NEXT C -2870 PRINT -2880 PRINT "TOTALS:","ME","YOU" -2890 PRINT " ",D,P -2900 IF P>0 THEN 2930 -2910 PRINT "OOPS! YOU JUST SPENT YOUR LAST DOLLAR" -2920 GOTO 3240 -2930 IF D>0 THEN 2970 -2940 PRINT "YOU BROKE THE HOUSE!" -2950 P=101000! -2960 GOTO 3010 -2970 PRINT "AGAIN"; -2980 INPUT Y$ -2990 IF LEFT$(Y$,1)="Y" THEN 1680 -3000 DATA 1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36 -3010 IF P<1 THEN 3240 -3020 PRINT "TO WHOM SHALL I MAKE THE CHECK"; -3030 INPUT B$ -3040 PRINT -3050 FOR I=1 TO 62: PRINT "-";: NEXT I: REM PRINT 72 DASHES -3060 PRINT TAB(50)"CHECK NO. ";INT(RND(1)*100) -3070 PRINT -3080 GOSUB 3280 -3090 PRINT TAB(40);M$ -3100 PRINT -3110 PRINT -3120 PRINT "PAY TO THE ORDER OF-----";B$;"-----$ "; -3130 PRINT P -3140 PRINT -3150 PRINT -3160 PRINT TAB(10),"THE MEMORY BANK OF VIRGINIA" -3170 PRINT -3180 PRINT TAB(40),"THE COMPUTER" -3190 PRINT TAB(40)"----------X-----" -3200 PRINT -3210 FOR I=1 TO 62: PRINT "-";: NEXT I -3220 PRINT "COME BACK SOON!" -3230 GOTO 3260 -3240 PRINT "THANKS FOR YOUR MONEY" -3250 PRINT "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL" -3260 PRINT -3270 GOTO 3380 -3280 REM -3290 REM THIS ROUTINE RETURNS THE CURRENT DATE IN M$ -3300 REM IF YOU HAVE SYSTEM FUNCTIONS TO HANDLE THIS -3310 REM THEY CAN BE USED HERE. HOWEVER IN THIS -3320 REM PROGRAM, WE JUST INPUT THE DATE AT THE START -3330 REM THE GAME -3340 REM -3350 REM THE DATE IS RETURNED IN VARIABLE M$ -3360 M$=D$+", "+E$ -3370 RETURN -3380 REM RUN"MENU -3390 SYSTEM diff --git a/bwbtest/M80/broken/rs2ms.txt b/bwbtest/M80/broken/rs2ms.txt deleted file mode 100644 index 0470c92..0000000 --- a/bwbtest/M80/broken/rs2ms.txt +++ /dev/null @@ -1,136 +0,0 @@ -10 DEFSTR A-D: DEFINT E-Z : Q$=CHR$(34) -11 REM MYRS2MB (v) 1.0 28 May 1983 by Ed Mahoney -12 REM ******************************************************************* -13 REM This program will convert a Radio Shack BASIC program to a -14 REM Microsoft MBASIC 5.1 program. -15 REM Instructions are given as the program runs. -16 REM INSTALLATION: The conversion process will make certain Radio Shack -17 REM statements into printable 'escape codes'. You must now the two -18 REM escape code sequences for your computer (or terminal): *********************************************************** -19 REM 1) clear the screen and home the cursor -20 CLS$=CHR$(27)+"*" : REM For the MAX-80 -22 REM CLS$=CHR$(27)+"E" : REM For the Heath -23 A1="1 CLS$=CHR$(27)+"+Q$+"*"+Q$ : REM For the MAX-80 -24 REM A1="1 CLS$=CHR$(27)+Q$+"E"+Q$ : REM For the Heath -25 REM ********************************************************************* -26 REM 2) print at a screen location (Row,Column) -27 DEF FNAT$(R9,C9)=CHR$(27)+"="+CHR$(R9+32)+CHR$(C9+32) : REM For MAX-80 -28 REM DEF FNAT$(R9,C9)=CHR$(27)+"Y"+CHR$(R9+32)+CHR$(C9+32) :REM FOR HEATH -29 A2="2 DEF FNAT$(AT%)=CHR$(27)+"+Q$+"="+Q$+"+CHR$(INT(AT%/64)+32)+CHR$((AT% MOD 64)+32)" : REM For the MAX-80 -30 REM A2="2 DEF FNAT$(AT%)=CHR$(27)+"+Q$+"Y"+Q$+"+CHR$(INT(AT%/64)+32)+CHR$((AT% MOD 64)+32)" : REM For the Heath -31 REM ******************END OF INSTALLATION****************************** -45 GOSUB 60000:PRINT CLS$;"Initializing..............." -50 SP=0:RP=0 -60 DIM Z(1000),C(130),L(130),D(130),B(9) -61 READ A: IF A="XXXX" THEN 91 -62 RP=RP+1: C(RP)=A: M=LEN(A):L(RP)=M:B="" -63 FOR I=1 TO M:V=ASC(MID$(A,I)):IF V>64 THEN B=B+CHR$(V+32) ELSE B=B+CHR$(V) -64 NEXT I:D(RP)=B -65 GOTO 61 -70 REM -71 REM RESERVED WORDS -72 REM -73 DATA ABS,AND,ASC,AS,ATN,AUTO,CDBL,CHR$,CINT,CLEAR,CLOSE,CONT -74 DATA COS,CSNG,CVD,CVI,CVS,DATA -75 DATA DEFDBL,DEFINT,DEFSNG,DEFSTR,DEFUSR,DEF,DELETE,DIM -76 DATA EDIT,ELSE,END,EOF,ERL,ERR,EXP,FIELD,FILES,FOR -77 DATA FRE,GET,GOSUB,GOTO,HEX$ -78 DATA IF,IMP,INPUT,INP,INSTR,KILL,LEFT$,LEN,LET,LINE -79 DATA LIST,LLIST,LOAD,LOC,LOF,LOG,LPRINT,LSET,MERGE,MID$,MKD$,MKI$ -80 DATA MKS$,NEW,NEXT,NOT,ON,OPEN,OR,OUT -81 DATA POS,PRINT,PUT -82 DATA READ,REM,RESTORE,RESUME,RETURN,RIGHT$,RND,RSET,RUN -83 DATA SAVE,SGN,SIN,SQR,STEP,STOP,STR$,STRING$ -84 DATA TAB(,TAN,THEN,TO,TROFF,TRON -85 DATA USING,USR,VAL,VARPTR -90 DATA XXXX -91 READ A: IF A="XXXX" THEN 100 -92 QP=QP+1: B(QP)=A:GOTO 91 -95 DATA PEEK,POKE,SET(,RESET,POINT -96 DATA XXXX -100 LINE INPUT"WHAT IS RADIO SHACK PROGRAM ...... > ";R$ -110 LINE INPUT"WHAT WILL BE THE MICROSOFT PROGRAM'S NAME > ";M$ -120 OPEN"I",1,R$ -130 OPEN"O",2,M$ -132 A1=A1+" : WIDTH(64)":PRINT A1: PRINT#2,A1 -136 PRINT A2: PRINT#2,A2 -140 IF EOF(1) THEN 20000 -150 LINE INPUT#1, A -500 PRINT LL$;A;HL$ -1000 REM LOOK FOR THE RANDOM FUNCTION -1010 P=1 -1020 R=INSTR(P,A,"RND(") -1030 IF R=0 THEN 2000 -1040 V=VAL(MID$(A,R+4)) -1060 Q=INSTR(R,A,")") -1065 IF V>0 THEN 1500 -1070 A=LEFT$(A,R-1)+"RND"+MID$(A,Q+1) -1080 P=R+1:GOTO 1020 -1500 A=LEFT$(A,R-1)+"INT(RND*"+STR$(V)+"+1)"+MID$(A,Q+1):P=P+6:GOTO 1020 -2000 REM CLS TO PRINT CLS$ -2010 P=1 -2020 R=INSTR(P,A,"CLS") -2030 IF R=0 THEN 3000 -2040 A=LEFT$(A,R-1)+"PRINT CLS$;"+MID$(A,R+3): P=R+9: GOTO 2020 -3000 REM PRINT @###, -3010 P=1 -3020 R=INSTR(P,A,"PRINT@"): IF R=0 THEN R=INSTR(P,A,"PRINT @") -3030 IF R=0 THEN 4000 -3040 Q=INSTR(R,A,","):S=INSTR(R,A,"@") -3050 A=LEFT$(A,S-1)+" FNAT$("+MID$(A,S+1,Q-S-1)+");"+MID$(A,Q+1): GOTO 3020 -4000 REM WARNINGS -4005 F=0 -4010 FOR I=1 TO QP:IF INSTR(A,B(I)) THEN F=1 -4020 NEXT I -4030 IF F THEN SP=SP+1: Z(SP)=VAL(A): A=A+":REM WARNING!" -5000 REM SPACES -5010 FOR I=1 TO RP -5020 P=1 -5030 R=INSTR(P,A,C(I)): IF R=0 THEN 5500 -5035 MID$(A,R)=D(I) -5040 IF MID$(A,R-1,1)<>" " THEN A=LEFT$(A,R-1)+" "+MID$(A,R):R=R+1 -5050 R=R+L(I) -5060 IF MID$(A,R,1)<>" " THEN A=LEFT$(A,R-1)+" "+MID$(A,R) -5070 P=R:GOTO 5030 -5500 NEXT I -10000 PRINT A -11000 PRINT #2,A -15000 GOTO 140 -20000 CLOSE -30000 IF SP=0 THEN END -40000 PRINT:PRINT:PRINT"WARNING - THE FOLLOWING LINES STILL HAVE EITHER RADIO SHACK GRAPHICS":PRINT" OR HAVE EITHER PEEKS AND POKES." -40100 FOR I=1 TO SP:PRINT Z(I),:NEXT -49999 END -50000 I$=INKEY$:IF I$="" THEN 50000 ELSE RETURN -60000 PRINT CLS;"MYRS2MB My Radio Shack to Microsoft BASIC conversion utility" -60010 PRINT"By Ed Mahoney 28 May 83 Version 1.0 " -60020 PRINT:PRINT"This program will convert a Radio Shack Model I or Model 3 BASIC (or -60030 PRINT"Disk BASIC) program to a Microsoft BASIC 5.1 program." -60040 PRINT:PRINT"REQUIREMENTS:":PRINT"1) Your computer that will be running the Microsoft program -60050 PRINT" must be able to 'print at' specific locations on your screen." -60060 PRINT"2) The Radio Shack program that is to be converted, must exist on disk -60070 PRINT" and be stored in ASCII format." -60080 PRINT" a) This program must not have line numbers 1 or 2 (the conversion -60090 PRINT" process will place statements in these positions)" -60100 PRINT" b) The statements in the Radio Shack program must not be extreemly -60110 PRINT" long, say greater than 220 characters long. (The program will -60120 PRINT" expand each line.)" -60130 PRINT" c) The Radio Program should not have the following statements: -60140 PRINT" PEEK POKE SET(x,y) RESET(x,y) POINT(x,y) -60150 PRINT" (These statements are machine dependent) -60160 PRINT" If these 5 statements are present, they will be passed on to the MBASIC" -60170 PRINT" with a REM statement appended to the end that warns you that you will -60180 PRINT" have to do some additional conversion (good luck!)." -60190 PRINT"3) FINAL WARNING: This is only version 1.0. This utility has not been -60200 PRINT" extensivly tested."; -60250 GOSUB 50000:PRINT CLS$; -60300 PRINT"WHAT IT DOES: -60310 PRINT"1) converts the RND function to MBASIC standards -60320 PRINT"2) converts Radio Shack's CLS statement to a print code -60330 PRINT"3) converts Radio Shack's PRINT @ ##, to a printable code -60340 PRINT"4) 'pads' all statements with spaces which MBASIC requires (and Radio -60350 PRINT" Shack does not). -60360 PRINT"5) Identifies statements that are machine dependent (ex. PEEK or SET -60370 PRINT" with a warning at the end of the statement and provides a table of -60380 PRINT" the bad statements oa the end of execution. -60430 GOSUB 50000:RETURN diff --git a/bwbtest/M80/broken/survival.bas b/bwbtest/M80/broken/survival.bas deleted file mode 100644 index 7156b24..0000000 --- a/bwbtest/M80/broken/survival.bas +++ /dev/null @@ -1,480 +0,0 @@ -5 DIM T$(65):DIM M(42,8):DIM O(17) -10 PRINT CHR$(26):PRINT"Welcome to the game of SURVIVAL" -15 PRINT:PRINT"You have had an accident in space, escaped in a lifeboat capsule" -20 PRINT"and crash landed on the moon near an abandoned base. Your food and" -25 PRINT"water were destroyed in the crash but your space suit contains a power" -30 PRINT"unit and oxygen unit which will keep you alive for a while.":PRINT -35 PRINT"To explore enter single word directions such as NORTH, WEST and UP" -40 PRINT"or single letter directions such as N, S, E, W, U and D (up and down)." -45 PRINT"You will encounter various items and situations during your travels." -50 PRINT"To communicate, enter commands (verbs), followed by object names," -55 PRINT"if applicable. The following commands are valid -" -60 PRINT:PRINT"LOOK FIND GET DROP INVENTORY QUIT TRANSPORT" -65 PRINT"USE ON OFF DIG READ FIX BLASTOFF" -70 PRINT:PRINT"as well as a few others you may eventually figure out for yourself!" -75 PRINT:PRINT"Once you have survived, the object then is to achieve the" -80 PRINT"optimum survival time. Good luck!!!!" -85 PRINT:PRINT"Enter for beginner or '1' for expert":INPUT"which";CX:IF CX>1 THEN 85 -90 PRINT CHR$(26) -95 PRINT:PRINT"Your crash landing has shaken things up a bit." -100 PRINT"Please wait while I sort it all out.":PRINT -105 FOR I=0 TO 65:READ T$(I):PRINT".":T$=T$(I):GOSUB 125:T$(I)=EC$:GOSUB 120:NEXT I -110 PRINT" Almost there. I'll try to hurry!" -115 FOR I=1 TO 42:FOR J=1 TO 8:READ M(I,J):NEXT J:PRINT".":NEXT I:GOTO 130 -120 IF I<>37 THEN RETURN ELSE PRINT" What a mess! Half done!":RETURN -125 EC$="":FOR II=1 TO LEN(T$):CD=ASC(MID$(T$,II,1))-4:EC$=EC$+CHR$(CD):NEXT II:RETURN -130 P=1:C=2:T1=0:V=0:F0=1:O(1)=21:O(2)=19:O(3)=99:O(4)=6:O(5)=32:O(6)=0:O(7)=38:O(8)=36:O(9)=0:O(10)=35:O(11)=99:O(12)=33:O(13)=34:O(14)=37:O(17)=20:M(14,4)=0:Z=0:PRINT"."; -135 IF CX=0 THEN T2=275:P1=320:P2=75:PRINT".";:GOTO 145 -140 T2=185:P1=230:P2=50:PRINT"."; -145 M(14,8)=M(14,7)+1:M(2,8)=M(2,7)+1:PRINT". OK! Ready!" -150 F0=1:F1=0:F2=0:F3=0:F4=0:F5=0:F6=0:F7=0:F8=0:F9=0:OF=0:BG=0:P3=1:T0=120 -155 PRINT:PRINT"Elapsed Time: "; T1; "Minutes":T1=T1+5 -160 IF F4=1 THEN T0=T0-5 -165 O(15)=0:O(16)=0:MF=0 -170 IF F1=2 THEN F1=0 -175 IF F2=2 THEN 1320 -180 IF F3=2 THEN F3=0 -185 IF F4=2 THEN F4=0 -190 IF T2=0 THEN 1240 -195 IF O(11)=99 THEN PRINT"Power Unit: "; P1; "Units" -200 IF O(14)=99 THEN PRINT"Power Pack: "; P2; "Units" -205 IF P=38 THEN 215 -210 IF P>21 AND F9=0 THEN 245 -215 IF O(11)<>99 THEN 230 -220 IF P1=0 OR P3=0 THEN 1230 -225 P1=P1-5:GOTO 245 -230 IF O(14)<>99 THEN 1230 -235 IF P2=0 OR P4=0 THEN 1230 -240 P2=P2-5 -245 IF CX=1 THEN 270 -250 IF T1>600 THEN 1260 -255 IF T1>500 THEN 1425 -260 IF T1=365 THEN PRINT"You've been here 6 hours! Getting thirsty?" -265 GOTO 280 -270 IF T1>500 THEN 1260 -275 IF T1>400 THEN 1425 -280 IF T1>175 THEN 1410 -285 IF F0=1 THEN T2=T2-5 -290 IF T2<0 THEN T2=0 -295 IF F0=0 THEN 305 -300 IF T2>0 THEN 340 -305 IF F9=0 THEN 315 -310 IF P>21 THEN 1240 -315 IF P<18 THEN 1240 -320 IF P<>38 THEN 340 -325 IF O(3)<>99 OR F0<>1 OR T2=0 THEN 1240 -330 IF F9=1 OR R<>29 THEN 340 -335 F9=1:PRINT"You have just blown the air seal in the space station." -340 IF O(3)=99 THEN PRINT"Oxygen Remaining: "; T2; "Minutes" -345 IF P<18 OR P>21 THEN 360 -350 IF O(4)=P AND F4=1 AND T0<>0 THEN 360 -355 IF O(4)<>99 OR F4=0 OR T0=0 THEN 420 -360 PRINT"Present Location Status: You are" -365 FOR I=M(P,7) TO M(P,8):PRINT T$(I):NEXT I -370 PRINT CHR$(27);")";"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" -375 PRINT CHR$(27);"(" -380 IF P<>2 THEN 395 -385 IF O(4)<>99 THEN 395 ELSE O(4)=100:C=C-1 -390 PRINT"You dropped your illuminator!":PRINT"You can't retrieve it!" -395 FOR I=1 TO 14 -400 IF O(I)<>P THEN 415 -405 GOSUB 1660 -410 PRINT"There is ";B$; " here." -415 NEXT I:GOTO 895 -420 INPUT B$:I=0:OF=0 -425 IF LEN(B$)<>1 THEN 545 -430 IF B$="N"OR B$="n"OR B$="NORTH"OR B$="north"THEN I=1 -435 IF B$="S"OR B$="s"OR B$="SOUTH"OR B$="south"THEN I=2 -440 IF B$="E"OR B$="e"OR B$="EAST"OR B$="east"THEN I=3 -445 IF B$="W"OR B$="w"OR B$="WEST"OR B$="west"THEN I=4 -450 IF B$="U"OR B$="u"OR B$="UP"OR B$="up"THEN I=5 -455 IF B$="D"OR B$="d"OR B$="DOWN"OR B$="down"THEN I=6 -460 IF B$="Q"OR B$="q"OR B$="QUIT"OR B$="quit"THEN 1275 -465 IF I=0 THEN 660 -470 IF P=37 AND O(5)=35 AND I=2 THEN Q=35:GOTO 525 -475 IF P=35 AND O(5)=35 AND I=1 THEN Q=37:GOTO 525 -480 IF P=14 AND R=2 AND I=5 THEN Q=2:GOTO 525 -485 IF M(P,I)>21 AND BG=1 THEN 540 -490 IF M(P,I)=0 THEN 540 -495 IF M(P,I)=99 THEN 1250 -500 Q=M(P,I) -505 IF P=12 THEN 1290 -510 IF P=13 AND M(P,I)=22 THEN 1335 -515 IF P=22 THEN 1355 -520 IF P=29 THEN 1380 -525 R=P:P=Q:IF P=35 THEN V=V+1 -530 IF P<>23 THEN 155 -535 IF O(4)<>99 OR F4=0 THEN 1250 ELSE 155 -540 PRINT"You cannot go in that direction!":GOTO 420 -545 C$=LEFT$(B$,3) -550 IF C$="LOO"OR C$="loo"THEN 670 -555 IF C$="FIN"OR C$="fin"THEN 730 -560 IF C$="GET"OR C$="get"THEN 960 -565 IF C$="USE"OR C$="use"THEN 690 -570 IF C$="DRO"OR C$="dro"THEN 1130 -575 IF C$="OFF"OR C$="off"THEN OF=1:GOTO 750 -580 IF C$="ON "OR C$="on "THEN OF=0:GOTO 750 -585 IF C$="INV"OR C$="inv"THEN 1205 -590 IF C$="QUI"OR C$="qui"THEN 1275 -595 IF C$="TRA"OR C$="tra"THEN 845 -600 IF C$="DIG"OR C$="dig"THEN 885 -605 IF C$="TEL"OR C$="tel"THEN 715 -610 IF C$="FUE"OR C$="fue"THEN 1520 -615 IF C$="REA"OR C$="rea"THEN 1605 -620 IF C$="FIX"OR C$="fix"THEN 1430 -625 IF C$="BLA"OR C$="bla"THEN 1545 -630 IF C$="UP"OR C$="up"THEN I=5:GOTO 480 -635 IF C$="DOW"OR C$="dow"THEN I=6:GOTO 490 -640 IF C$="NOR"OR C$="nor"THEN I=1:GOTO 490 -645 IF C$="SOU"OR C$="sou"THEN I=2:GOTO 490 -650 IF C$="EAS"OR C$="eas"THEN I=3:GOTO 490 -655 IF C$="WES"OR C$="wes"THEN I=4:GOTO 490 -660 PRINT"INVALID COMMAND!":GOTO 420 -665 PRINT"I CANNOT PROCESS YOUR REQUEST!":GOTO 420 -670 IF P<18 OR P>21 THEN 360 -675 IF O(4)=P AND F4=1 AND T0<>0 THEN 360 -680 IF O(4)<>99 OR F4=0 OR T0=0 THEN PRINT"Can't see in the dark!":GOTO 420 -685 GOTO 360 -690 GOSUB 1735:IF I=0 THEN 975 -695 IF I<0 THEN 980 -700 IF O(I)<>99 THEN 1180 -705 ON I GOTO 1345,1310,775,1370,840,1470,1440,845,1520,840,785,1400,1125,785,840,1125,840 -710 GOTO 975 -715 PRINT"Enter Code Number" -720 INPUT TP:P=(TP-P)/100:IF P<1 OR P>42 THEN PRINT"Lost in LIMBO":GOTO 1270 -725 GOTO 155 -730 IF P=14 AND R=2 THEN PRINT"A square metal object":MF=1:O(15)=14 -735 IF P=30 THEN PRINT"A metal cylinder":MF=1:O(16)=30 -740 IF MF=0 THEN PRINT"Can't find anything!" -745 GOTO 420 -750 GOSUB 1735 -755 IF I=17 THEN 800 -760 IF O(I)<>99 THEN 1180 -765 ON I GOTO 840,840,775,820,840,840,840,830,840,840,785,840,840,790,840,840 -770 GOTO 975 -775 IF OF=1 THEN F0=0ELSE F0=1 -780 PRINT"OK!":GOTO 420 -785 IF OF=1 THEN P3=0ELSE P3=1 -790 IF OF=1 THEN P4=0ELSE P4=1 -795 PRINT"OK!":GOTO 420 -800 IF P<>21 THEN 1510 -805 IF O(4)<>99 OR F4=0 OR T0=0 THEN 1495 -810 IF OF=1 THEN F8=0ELSE F8=1 -815 PRINT"OK!":GOTO 420 -820 IF OF=1 THEN F4=0ELSE F4=1 -825 PRINT"OK!":GOTO 420 -830 IF OF=1 THEN F3=0ELSE F3=1 -835 PRINT"OK!":GOTO 420 -840 PRINT"It can't be used that way":GOTO 420 -845 IF P<>36 AND P<>35 THEN 665 -850 IF O(8)<>P AND O(8)<>99 THEN 665 -855 IF F3=0 THEN 665 -860 IF O(8)=35 THEN O(8)=36:P=36:GOTO 880 -865 IF O(8)=36 THEN O(8)=35:V=V+1:P=35 -870 IF O(8)=99 AND P=35 THEN P=36:GOTO 880 -875 IF O(8)=99 AND P=36 THEN P=35:V=V+1 -880 PRINT"Beaming in process.":FOR I=1 TO 450:NEXT I:GOTO 155 -885 IF P<>10 THEN 665 -890 O(9)=10:Z=Z+1:GOTO 380 -895 IF O(5)=37 THEN O(5)=35 -900 IF O(5)=29 THEN O(5)=37 -905 IF O(5)=28 THEN O(5)=29 -910 IF O(5)=42 THEN O(5)=28 -915 IF O(5)=41 THEN O(5)=42 -920 IF O(5)=27 THEN O(5)=41 -925 IF O(5)=25 THEN O(5)=27 -930 IF O(5)=35 THEN M(37,2)=35 -935 IF O(5)<>32 THEN 420 -940 IF P<>32 THEN 420 -945 O(5)=25:IF O(13)=99 THEN 420 -950 PRINT"The robot fails to recognize you." -955 PRINT"It fires its weapon at you!!":GOTO 1270 -960 GOSUB 1735 -965 IF I>0 THEN 985 -970 IF I<0 THEN 980 -975 PRINT "I don't recognize "; RIGHT$(B$,LEN(B$)-J);".":GOTO 420 -980 PRINT"What item?":GOTO 420 -985 IF O(I)<>P THEN 1075 -990 IF CX=1 AND C>2 THEN 1080 -995 IF CX=1 THEN 1005 -1000 IF C>3 THEN 1080 -1005 IF I=5 THEN 1085 -1010 IF I=9 THEN 1090 -1015 IF I=10 THEN 1100 -1020 IF I=11 THEN 1110 -1025 IF I=14 THEN 1115 -1030 IF P=14 AND I=15 AND MF=1 THEN I=6:GOTO 1060 -1035 IF I<>16 THEN 1055 -1040 IF P<>30 OR MF=0 THEN 1075 -1045 IF T2<156 THEN T2=T2+30 -1050 GOTO 1065 -1055 IF I=17 THEN GOTO 1085 -1060 C=C+1:O(I)=99 -1065 PRINT"O.K." -1070 GOTO 420 -1075 PRINT"I don't see any "; RIGHT$(B$,LEN(B$)-J);" here!":GOTO 420 -1080 PRINT"You can't carry any more!":GOTO 420 -1085 PRINT"You can't carry it!":GOTO 420 -1090 IF Z<2 THEN 1060 -1095 PRINT"The two crystals reacted with your power supply!":GOTO 1245 -1100 PRINT"You can't get the message," -1105 PRINT"it's on the terminal screen.":GOTO 420 -1110 IF O(14)=99 THEN 1120ELSE 1060 -1115 IF O(11)=99 THEN 1120ELSE 1060 -1120 PRINT"You can't have more than one power supply, sorry.":GOTO 420 -1125 PRINT"How?":GOTO 420 -1130 GOSUB 1735 -1135 IF I>0 THEN 1150 -1140 IF I<0 THEN 980 -1145 GOTO 975 -1150 IF O(I)<>99 THEN 1180 -1155 IF I=9 THEN Z=Z-1 -1160 C=C-1:O(I)=P -1165 IF I=11 THEN 1185 -1170 IF I=14 THEN 1185 -1175 GOTO 1065 -1180 PRINT"You don't have "; RIGHT$(B$,LEN(B$)-J);"!":GOTO 420 -1185 IF P<22 THEN 1230 -1190 IF P=38 THEN 1230 -1195 IF F9=1 THEN 1230 -1200 GOTO 1065 -1205 FOR I=1 TO 14 -1210 IF O(I)<>99 THEN 1225 -1215 GOSUB 1660 -1220 PRINT"You have "; B$; "." -1225 NEXT I:GOTO 420 -1230 PRINT"You have no power!" -1235 PRINT"You have frozen to death!":GOTO 1270 -1240 PRINT"Oxygen required here. None available.":GOTO 1270 -1245 PRINT"A nuclear detonation has just occured.":GOTO 1270 -1250 PRINT"You have fallen to your death!":GOTO 1270 -1255 PRINT"You have been zapped by the laser.":GOTO 1270 -1260 PRINT"The moon base has just been destroyed by a large asteroid!":BG=1 -1265 IF P<22 THEN 285 -1270 PRINT"You have failed to survive." -1275 INPUT"Do you wish to try again";D$ -1280 IF D$="Y"OR D$="y"OR D$="YES"OR D$="yes"THEN PRINT CHR$(27);CHR$(69):GOTO 130 -1285 END -1290 IF M(P,I)<>13 THEN 525 -1295 IF F2<>0 THEN 525 -1300 PRINT"There is a metor shower!" -1305 PRINT"Your space suit has developed a leak!":F2=2:GOTO 420 -1310 IF F2<>2 THEN 840 -1315 PRINT"Your suit is now sealed.":F2=1:O(2)=0:C=C-1:GOTO 525 -1320 IF F0=1 THEN T2=T2-20 -1325 IF T2<0 THEN T2=5 -1330 GOTO 180 -1335 IF BG=1 THEN PRINT"The door is blocked by rubble!":GOTO 420 -1340 IF F1=0 THEN PRINT"The shed is locked!":F1=2:GOTO 420 -1345 IF F1=2 THEN PRINT"You are in the shed air lock":F1=0:GOTO 525 -1350 IF F1=3 THEN PRINT:PRINT"Authority Confirmed!":PRINT:GOTO 1580 -1355 IF M(P,I)<>23 THEN 525 -1360 IF F4>0 THEN 525 -1365 PRINT"It is dangerous to proceed in the dark!":F4=2:GOTO 420 -1370 IF F4<>2 THEN F4=1:GOTO 420 -1375 PRINT"The shaft is now illuminated.":F4=1:GOTO 525 -1380 IF M(P,I)<>37 THEN 525 -1385 IF F3=1 AND O(12)=37 THEN 525 -1390 PRINT"There is a laser beam here." -1395 PRINT"Passage is not possible when beam is present.":F3=2:GOTO 420 -1400 IF F3<>2 THEN 1125 -1405 PRINT"The beam is deflected.":F3=1:C=C-1:O(12)=37:GOTO 525 -1410 IF F5=1 THEN 285 -1415 IF O(6)=0 THEN O(6)=14 -1420 M(2,8)=M(2,7):M(14,8)=M(14,7):M(14,4)=2:F5=1:GOTO 285 -1425 IF F6=0 THEN 1245ELSE 285 -1430 GOSUB 1735:IF I=7 THEN 1470 -1435 IF I<>17 THEN 1515 -1440 IF O(7)<>99 THEN 1500 -1445 IF O(4)<>99 AND O(4)<>I THEN 1495 -1450 IF F4=0 OR T0=0 THEN 1495 -1455 IF P<>20 THEN 1510 -1460 IF F7<>1 THEN F6=1 -1465 PRINT"The engine is now repaired.":F7=2:O(7)=0:C=C-1:GOTO 420 -1470 IF O(6)<>99 THEN 1500 -1475 IF O(7)<>99 THEN 1505 -1480 IF P<18 OR P>21 THEN 1490 -1485 IF O(4)<>99 OR F4=0 OR T0=0 THEN 1495 -1490 PRINT"Motor is now regulated.":F7=1:O(6)=0:C=C-1:GOTO 420 -1495 PRINT"You can't see to do it!":GOTO 420 -1500 PRINT"You have nothing to do it with!":GOTO 420 -1505 PRINT"There is nothing to do it to!":GOTO 420 -1510 PRINT"You can't do it from here!":GOTO 420 -1515 PRINT"You can't fix THAT!":GOTO 420 -1520 IF P<>19 THEN 1510 -1525 IF O(9)<>99 THEN 1500 -1530 IF O(4)<>99 OR F4=0 OR T0=0 THEN 1495 -1535 O(9)=98:C=C-1 -1540 PRINT"Fuel is now loaded.":GOTO 420 -1545 IF P<>21 THEN 1510 -1550 IF O(9)<>98 THEN 1600 -1555 IF F7=2 THEN 1565 -1560 PRINT"Repairs not yet completed.":GOTO 420 -1565 IF F8=0 THEN 665 -1570 PRINT:PRINT"Spacecraft repairs completed.":PRINT -1575 PRINT"Insert `Command Authority' in slot!":F1=3:GOTO 420 -1580 IF F6=1 THEN PRINT"Your ships engine has malfunctioned!":GOTO 1245 -1585 PRINT"Congratulations, you have just blasted" -1590 PRINT"off and are now on your way to earth." -1595 PRINT"Your escape time:"; T1; "Minutes.":GOTO 1275 -1600 PRINT"Your space craft has no fuel!":GOTO 420 -1605 IF P<>35 THEN 1510 -1610 IF V>6 THEN V=0 -1615 ON V GOTO 1620,1625,1630,1635,1640,1645 -1620 PRINT T$(48):PRINT T$(49):GOTO 420 -1625 PRINT T$(50):GOTO 420 -1630 PRINT T$(51):GOTO 420 -1635 PRINT T$(0):GOTO 420 -1640 PRINT T$(23):GOTO 420 -1645 IF O(5)<>35 THEN PRINT"The message is garbled!":GOTO 420 -1650 PRINT T$(21) -1655 PRINT T$(22):GOTO 420 -1660 IF I=1 THEN B$=T$(52) -1665 IF I=2 THEN B$=T$(53) -1670 IF I=3 THEN B$=T$(54) -1675 IF I=4 THEN B$=T$(55) -1680 IF I=5 THEN B$=T$(56) -1685 IF I=6 THEN B$=T$(57) -1690 IF I=7 THEN B$=T$(58) -1695 IF I=8 THEN B$=T$(59) -1700 IF I=9 THEN B$=T$(60) -1705 IF I=10 THEN B$=T$(61) -1710 IF I=11 THEN B$=T$(62) -1715 IF I=12 THEN B$=T$(63) -1720 IF I=13 THEN B$=T$(64) -1725 IF I=14 THEN B$=T$(65) -1730 RETURN -1735 FOR J=1 TO LEN(B$):IF MID$(B$,J,1)=" "THEN 1745 -1740 NEXT J:I=-1:RETURN -1745 C$=MID$(B$,J+1,3):I=0 -1750 IF C$="KEY"OR C$="key"THEN I=1 -1755 IF C$="SEA"OR C$="sea"THEN I=2 -1760 IF C$="OXY"OR C$="oxy"THEN I=3 -1765 IF C$="MOD"OR C$="mod"THEN I=3 -1770 IF C$="ILL"OR C$="ill"THEN I=4 -1775 IF C$="ROB"OR C$="rob"THEN I=5 -1780 IF C$="REG"OR C$="reg"THEN I=6 -1785 IF C$="MOT"OR C$="mot"THEN I=7 -1790 IF C$="TRA"OR C$="tra"THEN I=8 -1795 IF C$="DIL"OR C$="dil"THEN I=9 -1800 IF C$="CRY"OR C$="cry"THEN I=9 -1805 IF C$="MES"OR C$="mes"THEN I=10 -1810 IF C$="UNI"OR C$="uni"THEN I=11 -1815 IF C$="MIR"OR C$="mir"THEN I=12 -1820 IF C$="BAD"OR C$="bad"THEN I=13 -1825 IF C$="PAC"OR C$="pac"THEN I=14 -1830 IF C$="OBJ"OR C$="obj"THEN I=15 -1835 IF C$="CYL"OR C$="cyl"THEN I=16 -1840 IF C$="ENG"OR C$="eng"THEN I=17 -1845 RETURN -1850 DATA"I|xve$s|}kir$wxsvih$mr$wxexmsr" -1855 DATA"ex$Qevi$Wivirmxexmw2" -1860 DATA"sr$vmq$sj$Tswmhsrmyw2" -1865 DATA"Xsxep$hevoriww$xs$xli$Iewx2" -1870 DATA"X{m|x$He{iw$erh$Tpmrmyw2" -1875 DATA"ex$teww$mr$Leiqyw$Qsyrxemrw" -1880 DATA"ex$gvexiv$Qermpyw2" -1885 DATA"ex$Qevi$Zetsvyq2" -1890 DATA"ex$Qx2$Iyhs|yw2" -1895 DATA"mrwmhi$Evmwxsxipiw2" -1900 DATA"mr$glerkmrk$evie2" -1905 DATA"mr$Pegyw$Wsqrmsvyq2" -1910 DATA"ex$Pegyw$Qsvxmw2" -1915 DATA"xli$wyvjegi$mw$ziv}$wsjx$livi2" -1920 DATA"mr$Qevi$Mqfvmyq2" -1925 DATA"ex$xli$fewi$sj$Tpexs$gvexiv2$$E" -1930 DATA"wlmr}$sfnigx$mw$wiir${iwx2" -1935 DATA"fijsvi$e$qixep$wlih2$$E$wmkr$viehw" -1940 DATA"Zirxmpexmsr$wlejx$'62" -1945 DATA"iewx$sj$Qevi$Wivirmxexmw2" -1950 DATA"xlivi$mw$xsxep$hevoriww2" -1955 DATA"$$$$$$$$$$$$$$$$XIPITSVX$MRWXVYGXMSRW" -1960 DATA"$$$$We}$8$ryqfivw>$5wx$6$1$xlivi0$pewx$6$1$livi" -1965 DATA"]sy$gsyph$wezi$xmqi$f}$xipitsvxmrk$mj$}sy$ori{$ls{%" -1970 DATA"mr$xli$emv$psgo$gleqfiv$sj$xli$wlmt" -1975 DATA"mr$xli$ejx$wlejx$gevks$erh$jyip$wxsveki$vssq2" -1980 DATA"mr$xli$irkmri$vssq$sj$xli$wtegigvejx2" -1985 DATA"mr$xli$wlmt+w$gsrxvsp$vssq2" -1990 DATA"mr$er$emv$psgo$gleqfiv2" -1995 DATA"mrwmhi$e$zirxppexsv$wlih2$$E$pehhiv" -2000 DATA"piehw$hs{r$mrxs$e$pevki$qixep$wlejx2" -2005 DATA"mr$e$zirxmppexsv$tewweki2" -2010 DATA"ex$e$zirxmppexsv$stirmrk2$$Xlvsykl$xli" -2015 DATA"stirmrk$e$pmx$tewweki{e}$ger$fi$wiir2" -2020 DATA"mr$e$pmklxih$wtegi$wxexmsr$gsvvmhsv2" -2025 DATA"mr$xli$wtegi$wxexmsr$mrjmvqev}2" -2030 DATA"mr$xli$vigviexmsr$vssq$erh$pmfvev}2" -2035 DATA"mr$xli$qiww$lepp2$$Eferhsrih$jssh$xve}w" -2040 DATA"evi$wxmpp$sr$xli$xefpiw2" -2045 DATA"mr$xli$wxsveki$vssq$erh$wyttp}$evie2" -2050 DATA"mr$xli$wpiitmrk$uyevxivw2" -2055 DATA"mr$er$ipizexsv$ex$wyfwyvjegi$pizip2" -2060 DATA"mr$er$ipizexsv$ex$wyvjegi$pizip2" -2065 DATA"mr$xli$wxexmsr$gsrxvsp$girxiv2" -2070 DATA"mr$xli$xverwtsvxiv$vssq2" -2075 DATA"mr$xli$wtegi$wxexmsr$pefsvexsv}2" -2080 DATA"mr$xli$lerkiv$evie2$$Xli$peyrgl$evie" -2085 DATA"mw$nywx$wsyxl$sj$livi2" -2090 DATA"Rygpiev$vikypexsv$psgexih$wsqi{livi$iewx" -2095 DATA"sj$wtegi$wxexmsr$sr$qssr+w$wyvjegi" -2100 DATA"Psgep$jyip$wsyvgi1$Hmpmxlmyq$gv}wxep" -2105 DATA"Hmpmxlmyq$jsyrh$mr$xli$kvsyrh" -2110 DATA"er$ipigxvsrmg$oi}" -2115 DATA"wieperx" -2120 DATA"er$s|}kir$qshypi" -2125 DATA"er$mppyqmrexsv" -2130 DATA"e$vsfsx" -2135 DATA"e$rygpiev$qsxsv$vikypexsv" -2140 DATA"e$ywih$rygpiev$qsxsv" -2145 DATA"e$xverwtsvxiv$yrmx" -2150 DATA"e$hmpmxlmyq$gv}wxep" -2155 DATA"e$gsqtyxiv$qiwweki" -2160 DATA"e$ts{iv$yrmx" -2165 DATA"e$qmvvsv" -2170 DATA"e$gshih$fehki" -2175 DATA"e$ts{iv$tego" -2180 DATA 07,04,02,15,00,00,01,01 -2185 DATA 09,03,14,01,00,00,02,03 -2190 DATA 02,05,14,04,00,00,04,04 -2195 DATA 01,00,03,00,00,06,05,05 -2200 DATA 03,00,14,06,00,00,06,06 -2205 DATA 00,00,05,00,04,00,07,07 -2210 DATA 08,01,09,11,00,00,08,08 -2215 DATA 00,07,10,00,00,00,09,09 -2220 DATA 10,02,14,07,00,00,11,11 -2225 DATA 00,09,14,08,00,00,12,13 -2230 DATA 12,15,07,16,17,16,14,14 -2235 DATA 00,11,00,13,00,00,15,16 -2240 DATA 00,16,12,22,00,00,17,18 -2245 DATA 99,99,99,99,00,00,19,20 -2250 DATA 11,18,01,00,00,17,14,14 -2255 DATA 16,17,11,16,11,16,14,14 -2260 DATA 16,17,00,17,15,16,14,14 -2265 DATA 15,19,00,00,00,00,24,24 -2270 DATA 18,00,00,20,00,00,25,25 -2275 DATA 00,00,19,00,21,00,26,26 -2280 DATA 00,00,00,00,00,20,27,27 -2285 DATA 00,00,13,00,00,23,29,30 -2290 DATA 24,00,00,00,22,00,31,31 -2295 DATA 25,23,00,00,00,25,32,33 -2300 DATA 27,26,33,32,24,00,34,34 -2305 DATA 25,00,30,31,00,00,34,34 -2310 DATA 00,25,41,34,00,00,34,34 -2315 DATA 00,29,42,36,00,00,34,34 -2320 DATA 28,38,40,37,00,00,34,34 -2325 DATA 00,00,00,26,00,00,35,35 -2330 DATA 00,00,26,00,00,00,36,36 -2335 DATA 00,00,25,00,00,00,37,38 -2340 DATA 00,00,00,25,00,00,40,40 -2345 DATA 00,00,27,00,00,00,39,39 -2350 DATA 00,00,00,00,00,24,43,43 -2355 DATA 00,00,28,00,00,00,44,44 -2360 DATA 00,00,29,00,00,00,45,45 -2365 DATA 29,00,39,00,00,00,46,47 -2370 DATA 40,00,00,38,00,16,28,28 -2375 DATA 00,39,00,29,00,00,10,10 -2380 DATA 00,00,00,27,42,00,41,41 -2385 DATA 00,00,00,28,00,41,42,42 -3000 REM ----------------------------------------- -3010 REM Combined broken lines -3999 END diff --git a/bwbtest/M80/broken/ttl-scrl.txt b/bwbtest/M80/broken/ttl-scrl.txt deleted file mode 100644 index 7275271..0000000 --- a/bwbtest/M80/broken/ttl-scrl.txt +++ /dev/null @@ -1,30 +0,0 @@ -10 'Banner Title Program -20 'Glenn Wilson -30 'May 2, 1986 -40 'Modified for Microsoft(c) Basic -50 'from Nhan Khai Hoang's WP-TITLE.INC -60 'of Word Pro for Turbo Pascal(c)... -70 CLR$=CHR$(26) 'clear screen code -80 PRINT CLR$ -90 DEF FNC$(X,Y)=CHR$(27)+CHR$(61)+CHR$(X+32)+CHR$(Y+32) -100 '^^^^^^cursor addressing for Xerox 820-II -110 PRINT FNC$(8,25);"-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-" -120 PRINT FNC$(9,25);"-/ /-" -130 PRINT FNC$(10,25);"-/ /-" -140 PRINT FNC$(11,25);"-/ /-" -150 PRINT FNC$(12,25);"-/ /-" -160 PRINT FNC$(13,25);"-/ /-" -170 PRINT FNC$(14,25);"-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/- -180 M$="Banner Title Program...By Glenn Wilson...May 2, 1986...Modified from" -190 M$=M$+" WP-TITLE of Word Pro, v 1.0, by Nhan Khai Hoang..." -200 '^^^^^^messgage of choice goes here -210 MSG$=MID$(M$,1,25) -220 CDR$=MID$(M$,2,(LEN(M$)-1)) -230 CAR$=MID$(M$,1,1) -240 M$=CDR$+CAR$ -250 PRINT FNC$(11,28);MSG$ -260 GOSUB 280 'gosub for delay -270 GOTO 210 'do again -280 FOR X=1 TO 40 'delay loop -290 NEXT X -300 RETURN diff --git a/bwbtest/M80/broken/vader.txt b/bwbtest/M80/broken/vader.txt deleted file mode 100644 index 985d741..0000000 --- a/bwbtest/M80/broken/vader.txt +++ /dev/null @@ -1,679 +0,0 @@ -3 RANDOMIZE -10 REM PROGRAM FROM CREATIVE COMPUTING -20 REM MODIFIED AND MAINTAINED BY STEVE GILBREATH (CMRLBLG, TEGAMES) -30 PRINT CHR$(26) -40 PRINT -50 PRINT -60 PRINT -70 PRINT TAB(5);"************************ VADER ************************" -80 S1=0 -90 DIM P(1) -100 PRINT -110 X8=0 -120 Q=1 -130 PRINT -140 PRINT"WHAT IS YOUR NAME "; -150 INPUT A$ -160 H9=0 -170 D9=0 -180 S1=0 -190 PRINT -200 A1$="NO" -210 IF A2$="YES" THEN 1200 -220 PRINT"GREETINGS ";A$;", THIS IS DARTH VADER." -230 PRINT"I'M ABOUT TO WIPE THE FLOOR WITH YOU, BUT FOR THE SAKE OF" -240 PRINT"SORT, I WILL GIVE YOU A CHANCE TO DEFEND YOURSELF AND" -250 PRINT"PERHAPS, THOUGH I SINCERLY DOUBT IT, DESTROY ME INSTEAD." -260 PRINT -270 H9=0 -280 D9=0 -290 S1=0 -300 PRINT"ENTER A SECRET PASSWORD, ";A$ -310 PRINT"IT MUST NOT BE OVER SEVEN LETTERS" -320 INPUT P4$ -330 IF LEN(P4$)<=7 THEN 370 -340 PRINT -350 PRINT"ARE YOU DEAF OR SOMETHING....I SAID..." -360 GOTO 310 -370 PRINT -380 PRINT"THIS IS YOUR DISRUPTER PASSWORD. IF YOU DECIDE TO" -390 PRINT"USE THE DISRUPTERS YOU WILL NEED THIS THIS PASSWORD." -400 PRINT -410 PRINT -420 PRINT"DO YOU THINK THAT INSTRUCTIONS WILL HELP YOU ";A$; -430 INPUT B$ -440 IF B$="NO" THEN 730 -450 IF B$="N" THEN 730 -460 PRINT -470 PRINT -480 PRINT -490 PRINT"HISTORY TAPE - DATA LIBRARY - A FEW MILLENIA AGO" -500 PRINT -510 PRINT"YOU ARE THE CAPTAIN OF THE MILLENNIUM FALCON, YOU AND YOUR CO-PILOT," -520 PRINT"THE WOOKIE CHEWBACCA, ARE MERCENARIES, PLYING YOUR TRADE THOUGHOUT" -530 PRINT"THE GALAXY. AFTER TAKING ON FOUR PASSENGERS, LUKE SKYWALKER," -540 PRINT"OBI-WAN-KENOBI, AND TWO DRIODS, R2D2, AND 3CPO, AND ESCAPING" -550 PRINT"THE IMPERIAL FORCES AT MOSE EISLEY, IN THE TATOOINE SYSTEM," -560 PRINT"YOU HAVE RESCUED THE PRINCESS LEIA ORGANA OF ALDERAAN FROM" -570 PRINT"THE EVIL CLUTCHES OF EVIL GRAND MOTH TARKIN AND THE DARK" -580 PRINT"LORD OF THE SITH, DARTH VADER." -590 PRINT -600 PRINT"YOUR MISSION IS TO REACH THE REBEL BASE LOCATED ON YAVIN-4." -610 PRINT"DARTH VADER IS BETWEEN YOU AND YAVIN-4. HIS SHIP HAS THE SAME AMOUNT" -620 PRINT"OF POWER AVAILABLE. YOU MUST DEFEAT HIM IN ORDER TO REACH SAFTEY." -630 PRINT"AND DELIVER YOUR CARGO-(THE PRINCESS LEIA AND THE DETAILED" -640 PRINT"PLANS OF THE DEATHSTAR STORED IN THE MEMORY CIRCUITS OF R2D2)" -650 PRINT -660 PRINT -670 PRINT"DO YOU WISH FURTHER INSTRUCTIONS, ";A$; -680 INPUT B$ -690 IF B$="NO" THEN 720 -700 IF B$="N" THEN 720 -710 GOSUB 5090 -720 PRINT -730 PRINT"DO YOU WISH ARMAMENT INFORMATION "; -740 INPUT B$ -750 IF B$="N" THEN 1190 -760 IF B$="NO" THEN 1190 -770 PRINT -780 PRINT -790 PRINT TAB(15);"HERE ARE YOUR VITAL DATUM:" -800 PRINT -810 PRINT"YOU ARE EQUIPED WITH 100,000 STROMS OF ENERGY." -820 PRINT"WHEN YOU RUN OUT DARTH VADER WILL DESTROY YOU." -830 PRINT -840 PRINT -850 PRINT TAB(25);"ARMAMENT:" -860 PRINT -870 PRINT"TYPE";TAB(10);"DESCRIPTION";TAB(30);"RANGE(KILOMETERS)";TAB(50);"FUEL DRAIN" -880 PRINT"1";TAB(10);"HEAVY GUNS";TAB(30);"0-11,000";TAB(50);"10 STROMS" -890 PRINT"2";TAB(10);"WARHEADS";TAB(30);"10,000-100,000";TAB(50);"100 STROMS" -900 PRINT"3";TAB(10);"LASERS";TAB(30);"100,000-200,000";TAB(50);"1,000 STROMS" -910 PRINT -920 PRINT -930 PRINT TAB(25);"OPTIONS:" -940 PRINT -950 PRINT"4";TAB(10);"APPROACH";TAB(50);"100 STROMS" -960 PRINT"5";TAB(10);"RETREAT";TAB(50);"100 STROMS" -970 PRINT"6";TAB(10);"WE WILL CONTINUE TO YAVIN-4 AND GAIN ENERGY AT .9C" -980 PRINT"7";TAB(10);"ENTER HYPERSPACE" -990 PRINT"8";TAB(10);"DISRUPTERS" -1000 PRINT"9";TAB(10);"DEFLECTOR SCREENS" -1010 PRINT -1020 PRINT"ENTER ANY NUMBER WHEN READY TO CONTINUE "; -1030 INPUT Z9 -1040 PRINT -1050 PRINT -1060 PRINT -1070 PRINT -1080 PRINT"DARTH VADER HAS THE SAME CAPABILITES AS YOU." -1090 PRINT -1100 PRINT"EACH TIME A SHIP IS HIT, THE ENERGY DRAIN FROM THE SCREENS IS EQUAL" -1110 PRINT"TO THE AMOUNT OF ENERGY EXPENDED BY THE STRIKING WEAPON TIMES TEN," -1120 PRINT"(EXCEPT LASERS, WHICH ARE EQUAL TO AN EXPENDITURE THAT VARIES WITH" -1130 PRINT"DISTANCE TO THE TARGET)" -1140 PRINT -1150 PRINT"NOTE: YOU ARE CONTINUOUSLY BEING DRAWN TOWARD DARTH VADER" -1160 PRINT"WATCH YOUR RANGE CLOSELY!!" -1170 PRINT -1180 PRINT -1190 PRINT"THIS IS COMPUTER CONTROL." -1200 P=100000! -1210 B1=9.45426E+12 -1220 P(1)=100000! -1230 A=INT(RND(1)*200000!) -1240 PRINT -1250 PRINT"DARTH VADER APPROACHING AT ";A;" KILOMETERS" -1260 PRINT"DISTANCE TO YAVIN-4 IS ";B1;" KILOMETERS" -1270 PRINT -1280 PRINT"MAY THE FORCE BE WITH YOU!!" -1290 PRINT -1300 PRINT -1310 PRINT -1320 ON ATTENTION GOTO 1520 -1330 IF A2$<>"Y" THEN 1540 -1340 D9=D9+1 -1350 C=INT(RND(1)*3.14159*(RND(1)*3.14159)) -1360 O=INT(RND(1)*2+1) -1370 IF A>200050! THEN 3180 -1380 IF C=O THEN 1350 -1390 IF A>50000! THEN 1410 -1400 IF C=4 THEN 1770 -1410 IF C=5 THEN 1350 -1420 IF C<>6 THEN 1440 -1430 IF P>5000 THEN 1350 -1440 IF C<7 THEN 1460 -1450 IF C=7 THEN 1500 -1460 IF C>7 THEN 1350 -1470 N=0 -1480 B1=B1-(2.23119E+10) -1490 GOTO 2060 -1500 IF N>0 THEN 1350 -1510 GOTO 2060 -1520 X7=0 -1530 X8=0 -1540 PRINT -1550 X7=X7+1 -1560 IF X7=1 THEN 1640 -1630 GOTO 1730 -1640 IF C<=9 THEN 1770 -1650 IF C<>10 THEN 1720 -1660 PRINT"ENTER NUMBER OF AUTO-PLAYS "; -1670 INPUT X8 -1675 GOSUB 6720 -1680 PRINT"ENTER COMMAND TO EXECUTE "; -1690 INPUT C -1700 ON ATTENTION GOTO 1520 -1710 GOTO 1620 -1720 REM C -1730 PRINT -1740 PRINT"THAT NUMBER IS NOT A COMMAND ";A$ -1750 PRINT"TRY AGAIN" -1760 GOTO 1540 -1770 D9=D9+1 -1780 O=INT(RND(1)*2+1) -1790 REM X -1800 GOTO 1820 -1810 IF C<6 THEN 2510 -1820 IF C=1 THEN 1840 -1830 GOTO 1880 -1840 IF A>=0 THEN 1860 -1850 GOTO 2510 -1860 IF A<11001 THEN 2000 -1870 GOTO 2510 -1880 IF C=2 THEN 1900 -1890 GOTO 1940 -1900 IF A>10999 THEN 1920 -1910 GOTO 2510 -1920 IF A<100001! THEN 2000 -1930 GOTO 2510 -1940 IF C=3 THEN 1960 -1950 GOTO 2000 -1960 IF A>99999! THEN 1980 -1970 GOTO 2510 -1980 IF A<200001! THEN 2000 -1990 GOTO 2510 -2000 IF C<7 THEN 2040 -2010 IF C=7 THEN 2060 -2020 IF C=8 THEN 5420 -2030 IF C=9 THEN 5900 -2040 N=0 -2050 B1=B1-(2.33119E+10) -2060 IF C=1 THEN 2530 -2070 IF C=2 THEN 2680 -2080 IF C=3 THEN 2840 -2090 IF C=4 THEN 2970 -2100 IF C=5 THEN 3070 -2110 IF C=6 THEN 3180 -2120 IF A2$<>"Y" THEN 2180 -2130 H=INT(RND(1)*10+1) -2140 IF P-(10000*H^.3)<500 THEN 1350 -2150 IF H=0 THEN 2130 -2160 GOSUB 6070 -2170 GOTO 2230 -2180 IF C>77 THEN 2490 -2190 PRINT"PLEASE INDICATE HYPER-FACTOR"; -2200 INPUT H -2210 IF S1>0 THEN 2160 -2220 H2=1 -2230 IF H<13 THEN 2250 -2240 GOTO 2180 -2250 P=P-(10000*(H^.3)) -2260 N=N+1 -2270 PRINT"COMPUTING COURSE AT H-F: ";H -2280 H9=H9+1 -2290 IF P<100 THEN 4440 -2300 IF B1-((H^3*299793!)*60^2)<1E+06 THEN 4190 -2310 IF N>1 THEN 4410 -2320 A=A+((H^3*299793!)*60^2) -2330 IF O=1 THEN 4970 -2340 O2=INT(RND(1)*3.1415926#+1) -2350 IF O2=1 THEN 4970 -2360 IF O2=4 THEN 4940 -2370 B1=B1-(H^3*299793!)*(INT(3.14159^3*RND(1)+29)^2) -2380 PRINT"SORRY, ERROR PUT US OFF LINE." -2390 IF O2=3 THEN 2450 -2400 IF P(1)=P(1)-(H^.3*10000)<10000 THEN 3350 -2410 PRINT"DARTH VADER FOLLOWED!!" -2420 P(1)=P(1)-(10000*(H^.3)) -2430 A=INT(RND(1)*200000!) -2440 GOTO 3210 -2450 PRINT"NO SIGN OF DARTH VADER, CRUISING AT .9C" -2460 B1=B1-(2.33118E+10) -2470 IF B1<1E+06 THEN 4530 -2480 GOTO 4050 -2490 IF O=1 THEN 4020 -2500 GOTO 1330 -2510 PRINT A$;", LETS NOT CRACK UNDER PRESSURE, CHECK YOUR RANGE!!" -2520 GOTO 1330 -2530 IF A>11005 THEN 2490 -2540 IF A<10 THEN 2490 -2550 P=P-100 -2560 PRINT -2570 PRINT"GUNS HAVE BEEN FIRE..." -2580 IF O=1 THEN 2610 -2590 PRINT"DARTH VADER MANUEVERING..." -2600 GOTO 2780 -2610 PRINT"AWAITING DAMAGE ASSESSMENT" -2620 IF O=1 THEN 2650 -2630 PRINT"MISSED - DRAT!!" -2640 GOTO 3210 -2650 PRINT"HIT!!! - - HIS POWER DOWN!!" -2660 P(1)=P(1)-100 -2670 GOTO 3210 -2680 IF A>100000! THEN 2490 -2690 IF A<10000 THEN 2490 -2700 P=P-100 -2710 PRINT -2720 PRINT"WE HAVE LAUNCHED A WARHEAD..." -2730 O1=INT(RND(1)*2)+1 -2740 IF O1=1 THEN 2770 -2750 PRINT"DARTH VADER MANEUVERING..." -2760 GOTO 2780 -2770 PRINT"DARTH VADER IS TRYING AVOID..." -2780 IF O=1 THEN 2810 -2790 PRINT"MISSED!! - - DRAT!!" -2800 GOTO 3210 -2810 PRINT"GOT HIM!!!" -2820 P(1)=P(1)-1000 -2830 GOTO 3210 -2840 IF A<100000! THEN 2490 -2850 P=P-1000 -2860 PRINT"LASERS FIRED!!" -2870 O1=INT(RND(1)*2+1) -2880 IF 1=1 THEN 2900 -2890 PRINT"I THINK...I THINK..." -2900 PRINT"MAYBE..." -2910 IF 0=1 THEN 2940 -2920 PRINT"MISSED!!...PHOOEY!!" -2930 GOTO 3210 -2940 PRINT"GOT HIM!!! GOOD SHOOTING ";A$;"!" -2950 P(1)=P(1)-(((200000!-A)/100000!)*3000) -2960 GOTO 3290 -2970 PRINT -2980 PRINT"APPROACHING, ";A$ -2990 B=INT(RND(1)*30000+60000!) -3000 A=A-B -3010 P=P-100 -3020 IF A<1 THEN 3040 -3030 GOTO 3210 -3040 PRINT TAB(15);">>COLLISION<<" -3050 Q=4 -3060 GOTO 5670 -3070 PRINT -3080 PRINT"RETREATING ";A$ -3090 B=RND(1)*40000!+10000 -3100 A=A+B -3110 P=P-100 -3120 IF A>175000! THEN 4290 -3130 GOTO 3210 -3140 PRINT A$;" YOUR RANGE IS ";A;", WE CANNOT RUN." -3150 A=200000! -3160 IF O1=1 THEN 4290 -3170 GOTO 3210 -3180 PRINT -3190 PRINT"RESTING, ";A$ -3200 P=P+1000 -3210 PRINT -3220 PRINT -3230 IF O=1 THEN 3290 -3240 PRINT -3250 PRINT -3260 PRINT TAB(10);"SENSOR READINGS ON DARTH VADER'S SHIP" -3270 PRINT -3280 PRINT"RANGE: ";INT(A);TAB(30);"POWER: ";INT(P(1)) -3290 IF A>200050! THEN 3350 -3300 IF P(1)<100 THEN 4510 -3310 IF P(1)<5000 THEN 4230 -3320 IF A>175000! THEN 4290 -3330 IF A<5000 THEN 4350 -3340 GOTO 3420 -3350 IF P(1)-(10000*H^.3)<2000 THEN 4230 -3360 P(1)=P(1)-(10000*H^.3) -3370 O1=INT(RND(1)*3.14159+1) -3380 PRINT -3390 IF O1=4 THEN 4920 -3400 A=INT(RND(1)*40000!+10000) -3410 PRINT"DARTH VADER IS ON US!!!!" -3420 IF B1<1.5E+06 THEN 4530 -3430 G=INT(RND(1)*30+1) -3440 IF G=3 THEN 6660 -3450 R=INT(RND(1)*3.14159+1) -3460 O=INT(RND(1)*2+1) -3470 IF R=1 THEN 3880 -3480 IF R=2 THEN 3730 -3490 IF R=4 THEN 4270 -3500 IF R=3 THEN 3750 -3510 IF A<100000! THEN 3430 -3520 PRINT -3530 IF A<10001 THEN 3930 -3540 IF A<100001! THEN 3800 -3550 IF A>200001! THEN 3430 -3560 PRINT -3570 P(1)=P(1)-1000 -3580 PRINT -3590 PRINT"DARTH VADER HAS FIRED LASERS..." -3600 O1=INT(RND(1)*2+1) -3610 IF O1=1 THEN 3640 -3620 PRINT"VH-OH..." -3630 GOTO 3650 -3640 PRINT"SCREEN AT FULL POWER..." -3650 IF O1=1 THEN 3680 -3660 PRINT"MISSED...WHEW!!!" -3670 GOTO 4050 -3680 IF O1=2 THEN 3700 -3690 PRINT" OOOOFF..." -3700 PRINT"DARTH VADER GOT US!!!" -3710 Q=1 -3720 GOTO 5670 -3730 IF A<100000! THEN 3430 -3740 IF A>10000 THEN 3430 -3750 IF A>10999 THEN 3770 -3760 GOTO 3430 -3770 IF A<1E+06 THEN 3790 -3780 GOTO 3430 -3790 REM X -3800 P(1)=P(1)-100 -3810 PRINT"DARTH VADER HAS LAUNCHED A WARHEAD..." -3820 IF O=1 THEN 3850 -3830 PRINT"MISSED!!!..HA!!" -3840 GOTO 4050 -3850 PRINT" HIT!!! OUR POWER DOWN!!" -3860 Q=2 -3870 GOTO 5670 -3880 IF A>200000! THEN 3430 -3890 IF A<11001 THEN 3940 -3900 IF A<100001! THEN 3800 -3910 IF A<200001! THEN 3570 -3920 REM X -3930 P(1)=P(1)-10 -3940 PRINT"DARTH VADER HAS FIRED A SHELL..." -3950 PRINT"I AM ATTEMPTING TO AVOID..." -3960 IF O=1 THEN 4020 -3970 PRINT"MISSED!!" -3980 IF O1=1 THEN 4050 -3990 PRINT"THAT'LL TEACH YOU WHAT CLEAN LIVING DOES "; -4000 PRINT"FOR YA', ";A$ -4010 GOTO 4050 -4020 PRINT"DIRECT HIT!!! POWER DOWN!!" -4030 Q=3 -4040 GOTO 5670 -4050 PRINT -4060 PRINT -4070 PRINT TAB(10);"STATUS OF MILLENNIUM FALCON" -4080 PRINT -4090 A=(A*.98) -4100 PRINT"POWER IN PRIMARY SCREENS:";INT(S1) -4110 PRINT"RANGE:";INT(A);TAB(30);"POWER:";INT(P) -4120 IF P<1 THEN 4580 -4130 IF O=1 THEN 4170 -4140 PRINT"DISTANCE TO YAVIN-4 :";B1;" KILOMETERS" -4150 Q=Q+1 -4160 PRINT"DAYS IN TRANSIT:";D9;" HYPER SPACE JUMPS:";H9 -4170 IF D9>=365 THEN 4570 -4180 IF B1>1E+06 THEN 4220 -4190 IF O=1 THEN 4530 -4200 PRINT"WE ARE GOING TO COLLIDE IN YAVIN-4 !!!" -4210 GOTO 4450 -4220 GOTO 1330 -4230 PRINT -4240 P(1)=P(1)+1000 -4250 PRINT"DARTH VADER RESTING, ";A$ -4260 GOTO 4050 -4270 IF A<150000! THEN 3430 -4280 IF A>200050! THEN 3290 -4290 B=RND(1)*40000!+10000 -4300 A=A+B -4310 PRINT -4320 PRINT"DARTH VADER APPROACHING, ";A$ -4330 P(1)=P(1)-100 -4340 GOTO 4050 -4350 B=RND(1)*40000!+10000 -4360 A=A+B -4370 PRINT -4380 PRINT"?"DARTH VADER RETREATING, ";A$ -4390 P(1)=P(1)-100 -4400 GOTO 4050 -4410 PRINT A$;", YOU HAVE JUST ENTERED HYPERSPACE TWICE...ENGINES BLOWN!!!" -4420 PRINT"WE'RE STUCK HERE FOR EVER!!!!" -4430 GOTO 4450 -4440 PRINT"YOU JUST HYPERED AWAY ALL OUR POWER..." -4450 PRINT"THAT WAS A PRETTY DUMB THING FOR YOU TO DO!! YOUR" -4460 PRINT"MISSION WAS TO DELIVER YOUR PASSENGERS AND THE VITAL INFORMATION" -4470 PRINT"TO YAVIN-4, NOT TO GET EVERYBODY KILLED!!" -4480 PRINT -4490 PRINT A$;", YOUR A FIEG!!" -4500 GOTO 4590 -4510 PRINT"DARTH VADER'S SHIP'S POWER GONE...NO LIFE FORMS PRESENT." -4520 GOTO 4550 -4530 PRINT"HA! HA! DARTH VADER GOT TOO CLOSE TO OUR HIDDEN BASE." -4540 PRINT"GROUND BASED LASERS DESTROYED HIS SHIP!!" -4550 PRINT"MISSION SUCCESSFUL!!!!" -4560 GOTO 4830 -4570 PRINT"WE HAVE BEEN IN TRANSIT FOR MORE THAN A YEAR" -4580 PRINT"DARTH VADER IS THE VICTOR!!!" -4590 PRINT"LIFE SUPPORT SYSTEMS GONE..." -4600 PRINT"LIFE SUPPORT FADING..." -4610 PRINT"C" -4620 PRINT" R" -4630 PRINT" E" -4640 PRINT" W" -4650 PRINT" " -4660 PRINT" D" -4670 PRINT" Y" -4680 PRINT" I" -4690 PRINT" N" -4700 PRINT" G" -4710 PRINT" ." -4720 PRINT" ." -4730 PRINT" ." -4740 PRINT" ." -4750 PRINT" ." -4760 PRINT" ." -4770 V=V+1 -4780 D3=INT(5*RND(1))+1 -4790 IF D3=5 THEN 6150 -4800 IF D3=4 THEN 6340 -4810 IF D3=3 THEN 6470 -4820 PRINT -4830 PRINT"PLAY AGAIN "; -4840 INPUT B$ -4850 N=0 -4860 IF B$="YES" THEN 260 -4870 IF B$="Y" THEN 130 -4880 C5$="LOST" -4890 PRINT"VERY WELL" -4900 GOTO 6100 -4910 REM X -4920 PRINT"DARTH VADER IS BEING SUCKED INTO A BLACK HOLE!!" -4930 GOTO 4550 -4940 PRINT"OOPS...WE ARE BEING SUCKED INTO A BLACK HOLE!!" -4950 PRINT"SORRY ABOUT THAT CHIEF." -4960 GOTO 4610 -4970 O2=INT(RND(1)*3.14159+1) -4980 B1=B1-((H^3*299793!)*60^2) -4990 IF B1<1E+06 THEN 4940 -5000 IF P(1)-(H^.3*10000)<10000 THEN 3350 -5010 PRINT"DARTH VADER FOLLOWED US THROUGH!!" -5020 P(1)=P(1)-(10000*(H^.3)) -5030 A=INT(RND(1)*200000!) -5040 IF O2=4 THEN 5060 -5050 GOTO 3210 -5060 P=P+1000 -5070 P(1)=P(1)+1000 -5080 GOTO 4050 -5090 PRINT -5100 PRINT"YOU ARE BOUND YAVIN-4, WHICH IS ONE LIGHT YEAR DISTANT." -5110 PRINT -5120 PRINT -5130 PRINT TAB(10);"HYPERDRIVE INFORMATION" -5140 PRINT -5150 FOR I=1 TO 12 -5160 PRINT TAB(1);"H-F";I;TAB(10);"VELOCITY";299793!*I^3;TAB(35);"KPS" -5170 NEXT I -5180 PRINT -5190 PRINT -5200 PRINT"HYPERDRIVE CONSUMES ENERGY AT A MINIMUM OF 10,1000 STROMS AND A" -5210 PRINT"MAXIMUM OF 21,074 STROMS, AS FOLLOWS:" -5220 PRINT -5230 PRINT -5240 PRINT"ENTER ANY NUMBER WHEN READY TO CONTINUE "; -5250 INPUT Z9 -5260 PRINT -5270 PRINT -5280 FOR I=1 TO 12 -5290 II=I^.3*10000 -5300 PRINT"HF -";I;TAB(9);"POWER CONSUMED -";II;" STROMS" -5310 NEXT I -5320 PRINT -5330 PRINT"HYPERSPACE NAVIGATION TENDS TO BE A BIT ERRATIC, RESULTING IN" -5340 PRINT"NAVIGATION ERRORS; THE HIGHER THE HF FACTOR THE GREATER THE" -5350 PRINT"POTENTIAL ERROR." -5360 PRINT -5370 PRINT"THE DISRUPTERS ARE USED IF ALL ELSE FAILS. DISRUPTERS" -5380 PRINT"CREATE A HIGH ENERGY FIELD IN SPACE. THIS FIELD" -5390 PRINT"CAN DESTROY YOU OR DARTH VADER. HOWEVER, DISRUPTERS" -5400 PRINT"SHOULD BE CONSIDERED AS THE LAST RESORT." -5410 RETURN -5420 Z=INT(RND(1)*3+1) -5430 PRINT -5440 PRINT"CONDITION RED - DISRUPTER COMMAND ACTIVATED" -5450 PRINT -5460 PRINT"INPUT THE DISRUPTER PASSWORD ";:INPUT P6$ -5470 IF P6$=P4$ THEN 5540 -5480 PRINT -5490 PRINT"ILLEGAL PASSWORD - ABORT DISRUPTER COMMAND" -5500 PRINT -5510 GOTO 1540 -5520 PRINT -5530 PRINT -5540 PRINT -5550 PRINT"PASSWORD CORRECT - ENGAGE DISRUPTER COMMAND" -5560 PRINT -5570 PRINT -5580 PRINT"DISRUPTERS ENGAGED..." -5590 PRINT"POWER BUILDING..." -5600 PRINT"DISRUPTERS FIRED!!!" -5610 IF Z=2 THEN 5640 -5620 PRINT"THE DISRUPTERS HAVE FAILED!!!!...GAD!!!" -5630 GOTO 4450 -5640 PRINT"THE DISRUPTERS HAVE DESTROYED DARTH VADER!!!!" -5650 PRINT -5660 GOTO 4510 -5670 IF Q=1 THEN 5710 -5680 IF Q=2 THEN 5750 -5690 IF Q=3 THEN 5790 -5700 IF Q=4 THEN 5840 -5710 S1=S1-(((200000!-A)/100000!)*3000) -5720 IF S1<1 THEN 5880 -5730 GOTO 5810 -5740 REM X -5750 S1=S1-1000 -5760 IF S1<1 THEN 5880 -5770 GOTO 5810 -5780 REM X -5790 S1=S1-100 -5800 IF S1-1 THEN 6040 -6010 PRINT"YOU CAN'T CHEAT ME ";A$;"!!" -6020 PRINT -6030 GOTO 5900 -6040 P=P-S3 -6050 S1=S1+S3 -6060 GOTO 4050 -6070 PRINT"ALL SCREEN ENERGY LOST." -6080 S1=0 -6090 RETURN -6100 PRINT -6110 PRINT -6120 END -6130 PRINT -6140 PRINT -6150 PRINT -6160 PRINT"TO: GRAND MOTH TARKIN" -6170 PRINT"FROM: LORD DARTH VADER DATE: 26575" -6180 PRINT -6190 PRINT"TARKIN, THE VESSEL CONTAINING PRINCESS LEIA HAS BEEN" -6200 PRINT"DESTROYED. ALL CREW MEMBERS AND PASSENGERS ARE DEAD." -6210 PRINT"THE PLAN OF THE DEATHSTAR ARE SAFE." -6220 PRINT"I SHALL RETURN SHORTLY, AFTER I HARASS PSGAMES AND" -6230 PRINT"SNARF THE *UPDATE* ON FORUM." -6240 PRINT -6250 PRINT -6260 PRINT" LORD DARTH VADER" -6270 PRINT -6280 PRINT -6290 PRINT -6300 PRINT -6310 GOTO 4830 -6320 STOP -6330 PRINT -6340 PRINT -6350 PRINT"TO: REBEL BASES ON YAVIN-4" -6360 PRINT"FROM: SCOUT SHIP #13 DATE: 26768" -6370 PRINT -6380 PRINT"REGRET TO INFORM YOU THAT SPACE WRECKAGE WAS DISCOVERED" -6390 PRINT"IN SECTION #6. THOUGHT TO BE REMAINS OF THE MILLENNIUM" -6400 PRINT"FALCON. NO SURVIVORS." -6410 PRINT -6420 PRINT -6430 PRINT" CAPT. ERNEST" -6440 PRINT -6450 PRINT -6460 GOTO 4830 -6470 PRINT -6480 PRINT -6490 PRINT -6500 PRINT"TO: STARFLEET COMMAND" -6510 PRINT"FROM: USS ENTERPRISE STARDATE: 2324" -6520 PRINT"OFFICER REPORTING: CAPTAIN JAMES T. KIRK" -6530 PRINT -6540 PRINT -6550 PRINT"AFTER A LONG TOUR OF QUADANT H9 THE ENTERPRISE ENTERED" -6560 PRINT"A SPACE STORM WHICH PUT US OFF COURSE. LONG RANGE" -6570 PRINT"SENORS DETECTED A SMALL MASS OF DEBRIS. AFTER CLOSE" -6580 PRINT"INSPECTION FIRST OFFICER SPOCK DETERMINED THAT IT WAS" -6590 PRINT"A SPACE VESSEL BUILT BY A PRIMITIVE RACE." -6600 PRINT -6610 PRINT" USS ENTERPRISE" -6620 PRINT" CAPTAIN JAMES T. KIRK" -6630 PRINT -6640 PRINT -6650 GOTO 4830 -6660 PRINT -6670 PRINT"LUCK...LUCK...LUCK..." -6680 PRINT -6690 PRINT"DARTH VADER LURKING, ";A$ -6700 GOTO 3450 -6710 END -6720 PRINT"1) HEAVY GUNS 4)APPROACH 7) ENTER HYPERSPACE" -6730 PRINT"2) WARHEADS 5) RETREAT 8) DISRUPTERS" -6740 PRINT"3) LASERS 6) CONTINUE TO YAVIN-4 9) DEFLECTOR SCREEN" -6750 PRINT -6760 RETURN diff --git a/bwbtest/M80/broken/xref.INP b/bwbtest/M80/broken/xref.INP deleted file mode 100644 index adb3aa0..0000000 --- a/bwbtest/M80/broken/xref.INP +++ /dev/null @@ -1,4 +0,0 @@ -xref.bas - -2015-05-11 -3 diff --git a/bwbtest/M80/broken/xref.bas b/bwbtest/M80/broken/xref.bas deleted file mode 100644 index face011..0000000 --- a/bwbtest/M80/broken/xref.bas +++ /dev/null @@ -1,175 +0,0 @@ -2 ' -4 'SEE INTERFACE AGE -- JUNE 1981 -- PAGE 98 -6 ' -10 PRINT:PRINT"CROSSREF - BASIC-80 VERSION OF 05/19/80" -20 PRINT:PRINT"COPYRIGHT (C) 1980 BY ADVANCED INFORMATICS" -30 PRINT:PRINT"LISTS ALL VARIABLES & REFERENCED LINE #'S" -40 PRINT"-------------------------------------------" -50 ' -60 DEFINT I-J:LW=80 -70 ON ERROR GOTO 1501 -80 DIM RW$(126),PT%(25),F$(10) -90 I=4000:DIM VNXT%(I+90),VV$(I+90),FRST%(I),LST%(I),RFL%(5*I),NXT%(5*I) -100 ' -110 ' RESERVED WORDS -120 ' -130 DATA ABS,AND,ASC,AS,ATN,AUTO,CDBL,CHR$,CINT,CLEAR,CLOSE,CONSOLE,CONT -140 DATA COS,CSNG,CVD,CVI,CVS,DATA -150 DATA DEFDBL,DEFINT,DEFSNG,DEFSTR,DEFUSR,DEF,DELETE,DIM,DSKI$,DSKO$,DSKF -160 DATA EDIT,ELSE,END,EOF,EQV,ERASE,ERL,ERR,EXP,FIELD,FILES,FIX,FOR -170 DATA FRE,GET,GOSUB,GOTO,HEX$ -180 DATA IF,IMP,INPUT,INP,INSTR,INT,KILL,LEFT$,LEN,LET,LINE -190 DATA LIST,LLIST,LOAD,LOC,LOF,LOG,LPRINT,LSET,MERGE,MID$,MKD$,MKI$ -200 DATA MKS$,MOD,MOUNT,NAME,NEW,NEXT,NOT,NULL,OCT$,ON,OPEN,OR,OUT -210 DATA PEEK,POKE,POS,PRINT,PUT -220 DATA READ,REM,RENUM,RESET,RESTORE,RESUME,RETURN,RIGHT$,RND,RSET,RUN -230 DATA SAVE,SGN,SIN,SPACE$,SPC(,SQR,STEP,STOP,STR$,STRING$,SWAP -240 DATA TAB(,TAN,THEN,TO,TROFF,TRON,UNLOAD -250 DATA USING,USR,VAL,VARPTR,WAIT,WIDTH,XOR,"\" -260 ' -270 'FILL ARRAY WITH RESERVED WORDS -280 ' -290 RW=0 -300 READ RW$ -310 RW=RW+1:RW$(RW)=RW$:IF RW$="\" THEN 350 -320 I=ASC(RW$)-ASC("A"):IF PT%(I)=0 THEN PT%(I)=RW -330 GOTO 300 -340 ' -350 FOR I=0 TO 25:IF PT%(I)=0 THEN PT%(I)=RW -360 NEXT -370 ' -380 'GET LIST OF FILE NAMES -390 ' -400 FX=0 -410 PRINT:PRINT " ASCII SAVED PROGRAM #";FX+1;" = ";:LINE INPUT L$ -420 IF L$="" THEN IF FX<1 THEN 570 ELSE 480 -430 IF INSTR(L$,".")=0 THEN L$=L$+".BAS" -440 REM NAME L$ AS L$ -450 FX=FX+1:F$(FX)=L$ -460 GOTO 410 -470 ' -480 PRINT:INPUT"DATE = ";D$ -490 PRINT:INPUT"1) CROSS REFERENCE 2) LIST 3) BOTH ";M -500 ' -510 'PROCESS LIST OF FILE NAMES -520 ' -530 FOR F=1 TO FX -540 CLOSE -541 OPEN"I",1,F$(F) -542 PRG$="'"+F$(F)+"' - "+D$:GOSUB 610 -550 NEXT -560 LPRINT STRING$(65-LZ,CHR$(10)) -570 END -580 ' -590 'INITIALIZE FOR CROSS REFERENCE -600 ' -610 LC=0:BC=0:PZ=0:V$="":C$="":VC=91:RC=-1 -620 FOR I=0 TO 91:VNXT%(I)=-1:NEXT -630 IF M>1 THEN GOSUB 1520 -640 ' -650 ' INPUT LINE & EXTRACT LINE# -660 ' -670 IF EOF(1) THEN 1200 -680 LINE INPUT #1,L$ -681 IF M>1 THEN GOSUB 1430:IF M=2 THEN 670 -690 LG=LEN(L$):BRNCH=0:ER$="":LC=LC+1:BC=BC+LG -700 LP=INSTR(L$," "):LN=VAL(LEFT$(L$,LP)):PRINT LN, -710 IF LN>32767 THEN LN=LN-65536! -720 ' -730 ' PARSE REST OF LINE -740 ' -750 LP=LP+1:IF LP>LG THEN GOSUB 1010:GOTO 670 -760 C$=MID$(L$,LP,1) -770 IF C$>="A" AND C$<="Z" THEN 890 ELSE IF C$>="0" AND C$<="9" THEN 1150 -780 IF C$=" " THEN 750 ELSE IF C$<>"," THEN BRNCH=0 -790 IF C$=CHR$(34) THEN GOSUB 1010:LP=INSTR(LP+1,L$,C$):IF LP>0 THEN 750 ELSE 670 -800 IF C$="\" THEN GOSUB 1010:GOTO 670 -810 IF C$="&" THEN GOSUB 1010 :V$=C$:GOTO 750 -820 IF C$="$" OR C$="!" OR C$="%" OR C$="#" THEN GOSUB 1130:GOTO 750 -830 IF C$="(" THEN GOSUB 1130 -840 GOSUB 1010:IF C$<>"," THEN ER$="" -850 GOTO 750 -860 ' -870 ' TEST FOR COMMAND -880 ' -890 C=ASC(C$):P=PT%(C-ASC("A")):BRNCH=0 -900 IF CLP THEN P=P+1:GOTO 900 -920 GOSUB 1010:RW$=RW$(P) -930 IF RW$="DATA" THEN LP=INSTR(LP,L$,":"):IF LP>0 THEN 750 ELSE 670 -940 IF RW$="REM" THEN 670 -950 IF RW$="GOTO" OR RW$="GOSUB" OR RW$="THEN" OR RW$="ELSE" OR RW$="RESUME" THEN BRNCH=1 -960 IF RW$="ERASE" THEN ER$="(" ELSE ER$="" -970 LP=LP+LEN(RW$)-1:GOTO 750 -980 ' -990 ' END VARIABLE -1000 ' -1010 IF V$="" THEN RETURN -1020 IF V$>="A" THEN V$=V$+ER$:C=ASC(V$)+1 ELSE IF V$>="0" THEN V$=RIGHT$(" "+V$,5):C=VAL(LEFT$(V$,2)) ELSE 1090 -1030 IL=-1:I=C -1040 IF V$>VV$(I) THEN IL=I:I=VNXT%(I):IF I>0 THEN 1040 ELSE 1060 -1050 IF V$=VV$(I) THEN J=LST%(I-91):IF RFL%(J)=LN THEN 1090 ELSE RC=RC+1:NXT%(J)=RC:GOTO 1080 -1060 VC=VC+1:IF IL>=0 THEN VNXT%(IL)=VC -1070 VV$(VC)=V$:VNXT%(VC)=I:RC=RC+1:FRST%(VC-91)=RC:I=VC -1080 RFL%(RC)=LN:NXT%(RC)=-1:LST%(I-91)=RC -1090 V$="":RETURN -1100 ' -1110 ' EXPAND VARIABLE -1120 ' -1130 IF V$<>"" THEN V$=V$+C$ -1140 RETURN -1150 IF V$="" AND BRNCH=0 THEN 750 -1160 V$=V$+C$:GOTO 750 -1170 ' -1180 ' LIST VARIABLES -1190 ' -1200 IF M=2 THEN RETURN -1210 PZ=0:GOSUB 1520 -1220 FOR J=0 TO 91:V=J -1230 V=VNXT%(V):IF V<0 THEN 1340 -1240 IF LZ>56 THEN GOSUB 1400 ELSE SZ=SZ+1:IF SZ=3 THEN GOSUB 1410 -1250 RZ=0:I=FRST%(V-91):LPRINT VV$(V); -1260 IF RZ=0 THEN LPRINT TAB(16); -1270 LN=RFL%(I):IF LN<0 THEN LN=LN+65536! -1280 LPRINT USING" #####";LN, -1290 RZ=RZ+1 -1300 IF RZ>6 THEN RZ=0:LPRINT:LZ=LZ+1:IF LZ>56 THEN GOSUB 1400 -1310 I=NXT%(I):IF I>0 THEN 1260 -1320 IF RZ>0 THEN LPRINT:LZ=LZ+1 -1330 GOTO 1230 -1340 NEXT J -1350 ' -1360 LPRINT STRING$(80,"=") -1370 LPRINT"LINES:";LC;" BYTES:";BC;" SYMBOLS:";VC-91;" REFERENCES:";RC+1 -1380 LZ=LZ+2:RETURN -1390 ' -1400 GOSUB 1520:LPRINT"SYMBOL";TAB(20);"REFERENCE LINE":LZ=LZ+1 -1410 LPRINT STRING$(80,"-"):LZ=LZ+1:SZ=0:RETURN -1420 ' -1430 X=1 -1440 IF LZ>60 OR RIGHT$(L$,3)="'PG" THEN GOSUB 1520 -1450 Y=INSTR(X,L$,CHR$(10)):IF Y>0 THEN LPRINT MID$(L$,X,Y-X):LZ=LZ+1:X=Y+1:GOTO 1450 -1460 LPRINT MID$(L$,X,LW):LZ=LZ+1:X=X+LW:IF X1 THEN GOSUB 1990 -980 ' -990 ' INPUT LINE AND EXTRACT LINE NUMBER -1000 ' -1010 IF EOF(1) THEN 1660 -1020 LINE INPUT #1,L$:IF M>1 THEN GOSUB 1890:IF M=2 THEN 1010 -1030 LG=LEN(L$):BRNCH=0:ER$="":LC=LC+1:BC=BC+LG -1040 GOSUB 2070 -1050 PRINT "LEN=";LG;TAB(10);LEFT$(L$,65);TAB(78);"<" -1060 IF LN<10 THEN LP=2:GOTO 1110 -1070 IF LN<100 THEN LP=3:GOTO 1110 -1080 IF LN<1000 THEN LP=4:GOTO 1110 -1090 IF LN<10000 THEN LP=5:GOTO 1110 -1100 LP=6 -1110 IF LN>32767 THEN LN=LN-65536! -1120 ' -1130 ' PARSE REST OF LINE -1140 ' -1150 LP=LP+1:IF LP>LG THEN GOSUB 1470:GOTO 1010 -1160 C$=MID$(L$,LP,1) -1170 IF C$=CHR$(10) THEN LZ=LZ+1 -1180 IF C$>="A" AND C$<="Z" THEN 1300 ELSE IF C$>="0" AND C$<="9" THEN 1610 -1190 IF C$=" " THEN 1200 ELSE IF C$<>"," THEN BRNCH=0 -1200 IF C$=CHR$(34) THEN GOSUB 1470:LP=INSTR(LP+1,L$,C$):IF LP>0 THEN 1150 ELSE 1010 -1210 IF C$="'" THEN GOSUB 1470:GOTO 1010 -1220 IF C$="&" THEN GOSUB 1470:V$=C$:GOTO 1150 -1230 IF C$="$" OR C$="!" OR C$="%" OR C$="#" THEN GOSUB 1590:GOTO 1150 -1240 IF C$="(" THEN GOSUB 1590 -1250 GOSUB 1470:IF C$<>"," THEN ER$="" -1260 GOTO 1150 -1270 ' -1280 ' TEST FOR COMMAND -1290 ' -1300 C=ASC(C$):P=PT%(C-ASC("A")):BRNCH=0 -1310 IF CLP THEN P=P+1:GOTO 1310 -1330 N$=MID$(L$,LP+LEN(RW$(P)),1) -1340 N=VAL(N$) -1350 IF N>47 AND N<58 AND N>64 AND N<90 AND N>94 THEN P=P+1:GOTO 1310 -1360 T$=MID$(L$,LP-1,1) -1370 IF T$>="A" AND T$<="Z" THEN 1620 -1372 IF T$>="0" AND T$<="9" THEN 1620 -1374 IF T$="." THEN 1620 -1380 GOSUB 1470:RW$=RW$(P) -1390 IF RW$="DATA" THEN LP=INSTR(LP,L$,":"):IF LP>0 THEN 1150 ELSE 1010 -1400 IF RW$="REM" THEN 1010 -1410 IF RW$="GOTO" OR RW$="GOSUB" OR RW$="THEN" OR RW$="ELSE" OR RW$="RESUME" THEN BRNCH=1 -1420 IF RW$="ERASE" THEN ER$="(" ELSE ER$="" -1430 LP=LP+LEN(RW$)-1:GOTO 1150 -1440 ' -1450 ' END VARIABLE -1460 ' -1470 IF V$="" THEN RETURN -1480 IF V$>="A" THEN V$=V$+ER$:C=ASC(V$)+1 ELSE IF V$>="0" THEN V$=RIGHT$(" "+V$,5):C=VAL(LEFT$(V$,2)) ELSE 1550 -1490 IL=-1:I=C -1500 IF V$>V$(I) THEN IL=I:I=VNXT%(I):IF I>0 THEN 1500 ELSE 1520 -1510 IF V$=V$(I) THEN J=LST%(I-91):IF RFL%(J)=LN THEN 1550 ELSE RC=RC+1:NXT%(J)=RC:GOTO 1540 -1520 VC=VC+1:IF IL>=0 THEN VNXT%(IL)=VC -1530 V$(VC)=V$:VNXT%(VC)=I:RC=RC+1:FRST%(VC-91)=RC:I=VC -1540 RFL%(RC)=LN:NXT%(RC)=-1:LST%(I-91)=RC -1550 V$="":RETURN -1560 ' -1570 ' EXPAND VARIABLE -1580 ' -1590 IF V$<>"" THEN V$=V$+C$ -1600 RETURN -1610 IF V$="" AND BRNCH=0 THEN 1150 -1620 V$=V$+C$:GOTO 1150 -1630 ' -1640 ' LIST VARIABLES -1650 ' -1660 IF M=2 THEN RETURN -1670 GOSUB 1860 -1680 FOR J=0 TO 91:V=J -1690 V=VNXT%(V):IF V<0 THEN 1800 -1700 IF LZ>56 THEN GOSUB 1860 ELSE SZ=SZ+1:IF SZ=3 THEN GOSUB 1870 -1710 RZ=0:I=FRST%(V-91):LPRINT TAB(10); V$(V); -1720 IF RZ=0 THEN LPRINT TAB(26); -1730 LN=RFL%(I):IF LN<0 THEN LN=LN+65536! -1740 LPRINT USING " #####";LN, -1750 RZ=RZ+1 -1760 IF RZ>10 THEN RZ=0:LPRINT:LZ=LZ+1:IF LZ>56 THEN GOSUB 1870 -1770 I=NXT%(I):IF I>0 THEN 1720 -1780 IF RZ>0 THEN LPRINT:LZ=LZ+1 -1790 GOTO 1690 -1800 NEXT J -1810 ' -1820 LPRINT TAB(10); STRING$(122,"=") -1830 LPRINT TAB(10); "LINES: "; LC; " BYTES: "; BC; " SYMBOLS: "; VC-91; " REFERENCES: "; RC+1 -1840 LZ=LZ+2:RETURN -1850 ' -1860 GOSUB 1990:LPRINT TAB(10); "SYMBOL"; TAB(30); "REFERENCE LINE":LZ=LZ+1 -1870 LPRINT TAB(10); STRING$(122,"-"):LZ=LZ+1:SZ=0:RETURN -1880 ' -1890 X=1 -1900 IF LZ>60 THEN GOSUB 1990 -1910 IF RIGHT$(L$,3)="'PG" THEN GOSUB 1990 -1920 Y=INSTR(X,L$,CHR$(10)):IF Y>0 THEN LPRINT TAB(10); MID$(L$,X,Y-X):LZ=LZ+1:IF ASC(MID$(L$,Y+1,1))=13 THEN X=Y+2 ELSE X=Y+1:GOTO 1920 -1930 LPRINT TAB(10); MID$(L$,X,LW):LZ=LZ+1:X=X+LW:IF X This program presently supports the following printers:":PRINT -2560 FOR I=1 TO 10 STEP 2 -2570 PRINT " "; CHR$(I+48); ") "; PRNAME$(I); TAB(41); CHR$(I+1+48); ") "; PRNAME$(I+1) -2580 NEXT I -2590 PRINT:PRINT "> Please select the printer you wish to use .... "; -2600 INPUT R$:IF R$="" THEN 2600 ELSE PRINT R$ -2610 P=VAL(R$) -2620 IF P<1 OR P>9 THEN 2590 -2630 RETURN -3000 REM ------------------------------------------- -3010 REM Added PLAIN TEXT printer -3999 END diff --git a/bwbtest/M80/budget.INP b/bwbtest/M80/budget.INP deleted file mode 100644 index 7c5d821..0000000 --- a/bwbtest/M80/budget.INP +++ /dev/null @@ -1,136 +0,0 @@ -1 -2345 -678 -901 -234 -56 -7 -89 -12 -34 -56 -78 -90 -12 -34 -56 -78 -90 -12 -34 - -56 -78 -90 -12 -34 -56 -78 -90 -12 -34 -56 -78 -90 -12 -34 -56 -78 -90 -12 -34 -56 -78 -90 -12 -34 -56 -78 -90 - - -N -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -Y -12 -Y -TOM CAT -2015 diff --git a/bwbtest/M80/budget.bas b/bwbtest/M80/budget.bas deleted file mode 100644 index 21f6c4a..0000000 --- a/bwbtest/M80/budget.bas +++ /dev/null @@ -1,259 +0,0 @@ -10 REM ************ RECURSIVE BUDGETING ***************** -20 REM -30 REM by O.E. Dial -40 REM -50 REM Ref. 'PERSONAL COMPUTING' May/June 1977 -60 REM pgs. 54-59 -70 REM -80 REM -------------------------------------------------- -90 REM -100 Q=27: V$="###.#" : W$="$$#####," : U$="###" -110 CL$=CHR$(27)+CHR$(69):REM Screen clear -120 DIM D(18),E$(Q),V(Q),F(Q) -130 PRINT CL$; -140 PRINT TAB(19);"RECURSIVE BUDGETING MODEL": PRINT: PRINT TAB(28);"* * *" -150 PRINT CL$; -160 DATA SALARY/WAGES,OTHER INCOME,FED INC TAX,STATE AND LOCAL TAX -170 DATA SOCIAL SECURITY,UNEMPLOYMENT INS,HEALTH INS -180 DATA LIFE INS,CONTRIBUTIONS,OTHER DEDUCTIONS -190 DATA RENT/MORTGAGE,LIFE INS, HEALTH INS, HOUSE INS -200 DATA AUTO INS,CAR PAYMENTS,LOAN PAYMENTS,TRASH REMOVAL -210 DATA OTHER FIXED EXP -220 DATA FOOD/BEVERAGES,CLOTHING,DRY CLEANING,BARBER/BEAUTY -230 DATA HOME MAINT,"HOME HEAT'G FUEL",WATER,ELECTRICITY,TELEPHONE -240 DATA GAS/OIL,AUTO MAINT,FARES/TOLLS/PARKING,DENTIST -250 DATA PHYSICIAN,DRUGS/SUNDRIES,SCHOOL EXPENSE,FAMILY ALLOWANCE -260 DATA CLUBS/LODGES,THEATER/SPORTS,RESTAURANTS -270 DATA "OTHER ENT'MENT","MAG'S/BOOKS/PAPERS",SITTERS,CHILD CARE -280 DATA VACATION SAVINGS,OTHER SAVINGS,CONTRIBUTIONS,OTHER EXPENSES -290 REM -300 REM -310 PRINT: PRINT"Select your budgeting period by number. Later on it will" -320 PRINT"be extended to one year.": PRINT -330 PRINT TAB(10);"1-WEEKLY" -340 PRINT TAB(10);"2-BIWEEKLY" -350 PRINT TAB(10);"3-SEMIMONTHLY" -360 PRINT TAB(10);"4-MONTHLY" -370 PRINT -380 INPUT": ",P -390 IF P>4 THEN PRINT"Try again!" ELSE 410 -400 GOTO 310 -410 IF P=1 THEN P=52 -420 IF P=2 THEN P=26 -430 IF P=3 THEN P=24 -440 IF P=4 THEN P=12 -450 PRINT CL$; -460 PRINT:PRINT"Alright, first let's look at income for the period." -470 PRINT -480 READ A$:PRINT A$;" $";: INPUT"",D(0):READ A$:PRINT A$;" $";:INPUT"",D(1) -490 TI=D(0)+D(1) -500 PRINT CL$; -510 PRINT:PRINT"Ok, now let's look at paycheck deductions.":PRINT -520 FOR J=2 TO 9: READ A$: PRINT A$;" $";:INPUT"",D(J):TD=TD+D(J): NEXT J -530 PRINT CL$; -540 PRINT"Ok, now let's look at fixed expenses.": PRINT -550 FOR J=10 TO 18:READ A$:PRINT A$;" $";:INPUT"",D(J):TF=TF+D(J): NEXT J -560 DF=TD+TF: SI=TI-DF: S=64 -570 PRINT CL$; -580 PRINT"Ok, at this point our table looks like this: ": PRINT -590 PRINT -600 GOSUB 2110: PRINT: PRINT TAB(19); -610 PRINT"RECURSIVE BUDGETING MODEL": PRINT: PRINT TAB(27);"* * *": PRINT -620 GOSUB 2110 -630 PRINT:PRINT TAB(20);"SPENDABLE INCOME SUMMARY": PRINT -640 GOSUB 2100: PRINT TAB(3);"ACCOUNT";TAB(42);"PERIOD";TAB(57);"ANNUAL" -650 GOSUB 2100: PRINT"TOTAL INCOME";TAB(40); -660 PRINT USING W$;TI;:PRINT TAB(55); -670 PRINT USING W$;TI*P: PRINT:PRINT TAB(3);"PAYCHECK DEDUCTIONS";TAB(25); -680 PRINT USING W$;TD*(-1): PRINT -690 PRINT TAB(3);"FIXED EXPENSES";TAB(25);: PRINT USING W$;TF*(-1); -700 PRINT TAB(40);: PRINT USING W$;DF*(-1);: PRINT TAB(55); -710 PRINT USING W$;DF*(-1)*P -720 PRINT TAB(41);"-------";TAB(55);"--------":PRINT"SPENDABLE INCOME"; -730 PRINT TAB(40);:PRINT USING W$;SI;:PRINT TAB(55);:PRINT USING W$;SI*P -740 PRINT TAB(41);"========";TAB(55);"========":PRINT: -750 GOSUB 2110: PRINT: PRINT -760 GOSUB 2120 -770 RO=0 -780 PRINT:PRINT"Ok, now for the first round of variable expense. Don't" -790 PRINT"pinch yourself in your estimates (within reason). Let the" -800 PRINT"computer help you to refine your budget later on.": PRINT -810 FOR J=0 TO Q:READ E$(J):PRINT E$(J);" $";: INPUT"",V(J):VT=VT+V(J):NEXT J -820 RESTORE -830 PRINT:PRINT -840 PRINT"Your budget for the first round totalled $";VT;". This" -850 PRINT"compares to spendable income of $";SI;". We have" -860 PRINT"prorated the difference, $";SI-VT;", over all variable expense" -870 PRINT"accounts.": PRINT -880 GOSUB 2120: FOR J=0 TO Q:V(J)=INT(V(J)/VT*SI): NEXT J: VT=SI: PRINT -890 PRINT CL$; -900 PRINT"Now we begin the budget refinement phase. Make as many" -910 PRINT"passes as you like. As you review each account, decide" -920 PRINT"whether to FREEZE it or leave it for another pass.": PRINT -930 PRINT"HINT: Don't be in a hurry to freeze an account.": PRINT -940 PRINT"Your task is finished when all accounts are frozen!": PRINT -950 GOSUB 2120 -960 FOR J=0 TO Q: IF V(J)=0 THEN 1180 -970 PRINT -980 PRINT E$(J);" $";V(J): INPUT"Change ('Y' or 'N') ",A$ -990 A$=LEFT$(A$,1) -1000 IF A$="N" THEN 1030 ELSE IF A$="Y" THEN 1010 ELSE 980 -1010 INPUT"Revised amount $";A: IF A60 THEN A=60 -2440 PRINT TAB(21);:FOR K=1 TO A: PRINT"]";:NEXT K: PRINT -2450 RETURN -2460 REM -2470 GOTO 2490 -2480 REM -2490 PRINT: PRINT: -2500 END -3000 REM ------- -REM -REM 1080 SWAP F(J),V(J) -> U=F(J):F(J)=V(J):V(J)=U -REM 1100 SWAP A,F(J) -> U=A:A=F(J):F(J)=U -REM Added semicolons as PRINT seperators -REM Quoted text containing apostophes in DATA statements -REM 1180 IF V(J)=0 THEN R=R+1: NEXT J -> NEXT J moved to 1185 -END diff --git a/bwbtest/M80/budget.run b/bwbtest/M80/budget.run deleted file mode 100644 index 011e47f..0000000 --- a/bwbtest/M80/budget.run +++ /dev/null @@ -1,492 +0,0 @@ - E RECURSIVE BUDGETING MODEL - - * * * - E -Select your budgeting period by number. Later on it will -be extended to one year. - - 1-WEEKLY - 2-BIWEEKLY - 3-SEMIMONTHLY - 4-MONTHLY - -: 1 - E -Alright, first let's look at income for the period. - -SALARY/WAGES $2345 -OTHER INCOME $678 - E -Ok, now let's look at paycheck deductions. - -FED INC TAX $901 -STATE AND LOCAL TAX $234 -SOCIAL SECURITY $56 -UNEMPLOYMENT INS $7 -HEALTH INS $89 -LIFE INS $12 -CONTRIBUTIONS $34 -OTHER DEDUCTIONS $56 - EOk, now let's look at fixed expenses. - -RENT/MORTGAGE $78 -LIFE INS $90 -HEALTH INS $12 -HOUSE INS $34 -AUTO INS $56 -CAR PAYMENTS $78 -LOAN PAYMENTS $90 -TRASH REMOVAL $12 -OTHER FIXED EXP $34 - EOk, at this point our table looks like this: - - -================================================================ - - RECURSIVE BUDGETING MODEL - - * * * - -================================================================ - - SPENDABLE INCOME SUMMARY - ----------------------------------------------------------------- - ACCOUNT PERIOD ANNUAL ----------------------------------------------------------------- -TOTAL INCOME $3,023 $157,196 - - PAYCHECK DEDUCTIONS -$1,389 - - FIXED EXPENSES -$484 -$1,873 -$97,396 - ------- -------- -SPENDABLE INCOME $1,150 $59,800 - ======== ======== - -================================================================ - - -PRESS 'RETURN' TO CONTINUE - - E -Ok, now for the first round of variable expense. Don't -pinch yourself in your estimates (within reason). Let the -computer help you to refine your budget later on. - -FOOD/BEVERAGES $56 -CLOTHING $78 -DRY CLEANING $90 -BARBER/BEAUTY $12 -HOME MAINT $34 -HOME HEAT'G FUEL $56 -WATER $78 -ELECTRICITY $90 -TELEPHONE $12 -GAS/OIL $34 -AUTO MAINT $56 -FARES/TOLLS/PARKING $78 -DENTIST $90 -PHYSICIAN $12 -DRUGS/SUNDRIES $34 -SCHOOL EXPENSE $56 -FAMILY ALLOWANCE $78 -CLUBS/LODGES $90 -THEATER/SPORTS $12 -RESTAURANTS $34 -OTHER ENT'MENT $56 -MAG'S/BOOKS/PAPERS $78 -SITTERS $90 -CHILD CARE $12 -VACATION SAVINGS $34 -OTHER SAVINGS $56 -CONTRIBUTIONS $78 -OTHER EXPENSES $90 - - -Your budget for the first round totalled $ 1574 . This -compares to spendable income of $ 1150 . We have -prorated the difference, $-424 , over all variable expense -accounts. - -PRESS 'RETURN' TO CONTINUE - - E - ENow we begin the budget refinement phase. Make as many -passes as you like. As you review each account, decide -whether to FREEZE it or leave it for another pass. - -HINT: Don't be in a hurry to freeze an account. - -Your task is finished when all accounts are frozen! - -PRESS 'RETURN' TO CONTINUE - - E -FOOD/BEVERAGES $ 40 -Change ('Y' or 'N') N -Freeze ('Y' or 'N') Y - -Ok, the account has been frozen at $ 40 . - -CLOTHING $ 56 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -DRY CLEANING $ 65 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -BARBER/BEAUTY $ 8 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -HOME MAINT $ 24 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -HOME HEAT'G FUEL $ 40 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -WATER $ 56 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -ELECTRICITY $ 65 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -TELEPHONE $ 8 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -GAS/OIL $ 24 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -AUTO MAINT $ 40 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -FARES/TOLLS/PARKING $ 56 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -DENTIST $ 65 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -PHYSICIAN $ 8 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -DRUGS/SUNDRIES $ 24 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -SCHOOL EXPENSE $ 40 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -FAMILY ALLOWANCE $ 56 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -CLUBS/LODGES $ 65 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -THEATER/SPORTS $ 8 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -RESTAURANTS $ 24 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -OTHER ENT'MENT $ 40 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -MAG'S/BOOKS/PAPERS $ 56 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -SITTERS $ 65 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -CHILD CARE $ 8 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -VACATION SAVINGS $ 24 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -OTHER SAVINGS $ 40 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -CONTRIBUTIONS $ 56 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - -OTHER EXPENSES $ 65 -Change ('Y' or 'N') Y -Revised amount $? 12 -Freeze ('Y' or 'N') Y -Ok, the account has been frozen at $ 12 , and the difference -prorated over the remaining accounts. - - - -Please enter the requested information before we -provide a final detail of your budget. - - * DON'T use commas or colons * - -Name: TOM CAT -Budget year: 2015 - - - E================================================================ - - - * THE TOM CAT FAMILY BUDGET FOR 2015 * - -================================================================ - - ACCOUNT | INCOME | EXPENSE |PERCENT - |-----------------|-----------------| TOTAL - | PERIOD | ANNUAL | PERIOD | ANNUAL |INCOME --------------------|--------|--------|--------|--------|------- -INCOME | $3,023|$157,196| | | 100.0 ------- | | | | | -SALARY/WAGES | $2,345|$121,940| | | 77.6 -OTHER INCOME | $678| $35,256| | | 22.4 - | | | | | -PAYCHECK DEDUCT'S | | | $1,389| $72,228| 45.9 ------------------ | | | | | -FED INC TAX | | | $901| $46,852| 29.8 -STATE AND LOCAL TAX| | | $234| $12,168| 7.7 -SOCIAL SECURITY | | | $56| $2,912| 1.9 -UNEMPLOYMENT INS | | | $7| $364| 0.2 -HEALTH INS | | | $89| $4,628| 2.9 -LIFE INS | | | $12| $624| 0.4 -CONTRIBUTIONS | | | $34| $1,768| 1.1 -OTHER DEDUCTIONS | | | $56| $2,912| 1.9 - | | | | | -FIXED EXPENSES | | | $484| $25,168| 16.0 --------------- | | | | | -RENT/MORTGAGE | | | $78| $4,056| 2.6 -LIFE INS | | | $90| $4,680| 3.0 -HEALTH INS | | | $12| $624| 0.4 -HOUSE INS | | | $34| $1,768| 1.1 -AUTO INS | | | $56| $2,912| 1.9 -CAR PAYMENTS | | | $78| $4,056| 2.6 -LOAN PAYMENTS | | | $90| $4,680| 3.0 -TRASH REMOVAL | | | $12| $624| 0.4 -OTHER FIXED EXP | | | $34| $1,768| 1.1 - | | | | | -VARIABLE EXPENSE | | | $1,150| $59,800| 38.0 ----------------- | | | | | -FOOD/BEVERAGES | | | $126| $6,552| 4.2 -CLOTHING | | | $37| $1,924| 1.2 -DRY CLEANING | | | $37| $1,924| 1.2 -BARBER/BEAUTY | | | $37| $1,924| 1.2 -HOME MAINT | | | $37| $1,924| 1.2 -HOME HEAT'G FUEL | | | $37| $1,924| 1.2 -WATER | | | $37| $1,924| 1.2 -ELECTRICITY | | | $37| $1,924| 1.2 -TELEPHONE | | | $37| $1,924| 1.2 -GAS/OIL | | | $37| $1,924| 1.2 -AUTO MAINT | | | $37| $1,924| 1.2 -FARES/TOLLS/PARKING| | | $37| $1,924| 1.2 -DENTIST | | | $37| $1,924| 1.2 -PHYSICIAN | | | $37| $1,924| 1.2 -DRUGS/SUNDRIES | | | $37| $1,924| 1.2 -SCHOOL EXPENSE | | | $37| $1,924| 1.2 -FAMILY ALLOWANCE | | | $37| $1,924| 1.2 -CLUBS/LODGES | | | $37| $1,924| 1.2 -THEATER/SPORTS | | | $37| $1,924| 1.2 -RESTAURANTS | | | $37| $1,924| 1.2 -OTHER ENT'MENT | | | $37| $1,924| 1.2 -MAG'S/BOOKS/PAPERS | | | $37| $1,924| 1.2 -SITTERS | | | $37| $1,924| 1.2 -CHILD CARE | | | $37| $1,924| 1.2 -VACATION SAVINGS | | | $37| $1,924| 1.2 -OTHER SAVINGS | | | $37| $1,924| 1.2 -CONTRIBUTIONS | | | $37| $1,924| 1.2 -OTHER EXPENSES | | | $37| $1,924| 1.2 - -================================================================ - -================================================================ - - - * EXPENSE BAR CHART * - PERCENT OF TOTAL INCOME - -------------------------------------------------------------------------------- - - ....|....1....|....2....|....3....|....4....|....5....|....6 - -FED INC TAX ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]] -STATE AND LOCAL TAX ]]]]]]]] -SOCIAL SECURITY ]] -UNEMPLOYMENT INS ] -HEALTH INS ]]] -LIFE INS ] -CONTRIBUTIONS ] -OTHER DEDUCTIONS ]] -RENT/MORTGAGE ]]] -LIFE INS ]]] -HEALTH INS ] -HOUSE INS ] -AUTO INS ]] -CAR PAYMENTS ]]] -LOAN PAYMENTS ]]] -TRASH REMOVAL ] -OTHER FIXED EXP ] -FOOD/BEVERAGES ]]]] -CLOTHING ] -DRY CLEANING ] -BARBER/BEAUTY ] -HOME MAINT ] -HOME HEAT'G FUEL ] -WATER ] -ELECTRICITY ] -TELEPHONE ] -GAS/OIL ] -AUTO MAINT ] -FARES/TOLLS/PARKING ] -DENTIST ] -PHYSICIAN ] -DRUGS/SUNDRIES ] -SCHOOL EXPENSE ] -FAMILY ALLOWANCE ] -CLUBS/LODGES ] -THEATER/SPORTS ] -RESTAURANTS ] -OTHER ENT'MENT ] -MAG'S/BOOKS/PAPERS ] -SITTERS ] -CHILD CARE ] -VACATION SAVINGS ] -OTHER SAVINGS ] -CONTRIBUTIONS ] -OTHER EXPENSES ] - - ....|....1....|....2....|....3....|....4....|....5....|....6 - - -=============================================================================== - - - - diff --git a/bwbtest/M80/deprec.INP b/bwbtest/M80/deprec.INP deleted file mode 100644 index e127e80..0000000 --- a/bwbtest/M80/deprec.INP +++ /dev/null @@ -1,7 +0,0 @@ -ABC-123 -05/10/15 -01/01/10 -12345 -7 -200 - diff --git a/bwbtest/M80/deprec.bas b/bwbtest/M80/deprec.bas deleted file mode 100644 index f0c0528..0000000 --- a/bwbtest/M80/deprec.bas +++ /dev/null @@ -1,77 +0,0 @@ -10 REM DEPRECIATION PROGRAM -20 DIM I$(25), DP$(8), Z$(3) -30 PRINT -40 PRINT " TAX DEPRECIATION" -50 PRINT -60 REM *** INPUT DATA *** -70 INPUT "NAME OF ITEM"; I$ -80 INPUT "ENTER TODAYS DATE (MM/DD/YY)"; DP$ -90 INPUT "PURCHASE DATE (MM/DD/YY)"; D$ -100 INPUT "COST OF ITEM"; C -110 INPUT "USEFUL LIFE"; L -120 PRINT "DEPRECIATION RATE" -121 INPUT "(NEW=200%; USED=150%)"; R -130 REM *** CALCULATE YEARLY RATE *** -140 YR = R / (100 * L) -150 REM *** CALCULATE EXTRA FIRST YR DEPRECIATION *** -160 IF L >= 6 THEN ED = .2 * C -165 IF L < 6 THEN ED = 0 -170 CV = C - ED -180 REM *** CALCULATE INVESTMENT CREDIT *** -190 IF L < 3 THEN IC = 0 -200 IF L >= 3 THEN IC = C / 30 -210 IF L >= 5 THEN IC = C / 15 -220 IF L >= 7 THEN IC = C / 10 -230 MM = VAL ( LEFT$ (D$,2)) -240 DD = VAL ( MID$ (D$,4,2)) -250 YY = VAL ( RIGHT$ (D$,2)) -260 IF DD <= 15 THEN FY = 13 - MM -270 IF DD > 15 THEN FY = 12 - MM -275 LY = 12 - FY -280 REM *** FIRST YEAR DEPRECIATION *** -290 CY = 1 -300 D(CY) = CV * YR * (FY / 12) -310 CV = CV - D(CY) -320 REM *** MIDDLE YEARS DEPRECIATION *** -330 FOR CY = 2 TO L -340 D(CY) = YR * CV -350 CV = CV - D(CY) -360 NEXT -370 REM *** LAST YEAR DEPRECIATION *** -380 IF CY = 0 THEN 410 -385 CY = L + 1 -390 D(CY) = YR * CV * (LY / 12) -400 CV = CV - D(CY) -410 REM *** OUTPUT TO SCREEN *** -420 PRINT : PRINT -430 PRINT TAB(6);"DEPRECIATION ANALYSIS FOR ";I$ -440 PRINT TAB(10);"DATE PREPARED; ",DP$ -450 PRINT -460 PRINT "ITEM NAME: "; TAB(20);I$ -470 PRINT "DATE OF PURCHASE: "; TAB(20); D$ -480 PRINT "COST: "; TAB(17); -481 PRINT USING "$$#,###.##"; C -490 PRINT "USEFUL LIFE: "; TAB(20); L; "YEARS" -500 PRINT "DEPRECIATION RATE: "; TAB(20); R; "%" -510 PRINT -520 CY = 1 -530 Y = 1899 + YY -540 INPUT "PRESS RETURN TO CONTINUE "; Z$ -550 PRINT -560 PRINT " YEAR"; TAB(10);"INVESTMENT CREDIT";TAB(30);"EXTRA FIRST YEAR DEPRECIATION" -570 PRINT Y + CY; TAB(10); -571 PRINT USING "###.##";IC; -572 PRINT TAB(30); -573 PRINT USING "###.##";ED -580 PRINT -590 PRINT " YEAR"; TAB(10); "DEPRECIATION" -600 IF LY <> 0 THEN 620 -610 FOR CY = 1 TO L: GOTO 630 -630 PRINT Y + CY; TAB(9); -631 PRINT USING "#,###.##"; D(CY) -640 NEXT -650 IF D(CY) <= 0 THEN 670 -660 PRINT -670 PRINT "SALVAGE VALUE AT END OF";CY+Y-1;"IS"; -671 PRINT USING "$$#,###.##"; CV -680 REM *** PRINTOUT ROUTINE GOES HERE *** diff --git a/bwbtest/M80/deprec.run b/bwbtest/M80/deprec.run deleted file mode 100644 index 70e0ed8..0000000 --- a/bwbtest/M80/deprec.run +++ /dev/null @@ -1,35 +0,0 @@ - - TAX DEPRECIATION - -NAME OF ITEM? ABC-123 -ENTER TODAYS DATE (MM/DD/YY)? 05/10/15 -PURCHASE DATE (MM/DD/YY)? 01/01/10 -COST OF ITEM? 12345 -USEFUL LIFE? 7 -DEPRECIATION RATE -(NEW=200%; USED=150%)? 200 - - - DEPRECIATION ANALYSIS FOR ABC-123 - DATE PREPARED; 05/10/15 - -ITEM NAME: ABC-123 -DATE OF PURCHASE: 01/01/10 -COST: $12,345.00 -USEFUL LIFE: 7 YEARS -DEPRECIATION RATE: 200 % - -PRESS RETURN TO CONTINUE ? - - YEAR INVESTMENT CREDIT EXTRA FIRST YEAR DEPRECIATION - 1910 1234.50 2469.00 - - YEAR DEPRECIATION - 1910 2,821.71 - 1911 2,015.51 - 1912 1,439.65 - 1913 1,028.32 - 1914 734.52 - 1915 524.65 - 1916 374.75 -SALVAGE VALUE AT END OF 1916 IS $936.88 diff --git a/bwbtest/M80/finance.INP b/bwbtest/M80/finance.INP deleted file mode 100644 index f8f44e0..0000000 --- a/bwbtest/M80/finance.INP +++ /dev/null @@ -1,56 +0,0 @@ -1 -23456 -7.89 -12 -5,6 -0 -2 -345.67 -8.90 -12 -3,4 -0 -3 -45678 -9.01 -23 -4,5 -0 -4 -56789 -10 -24 -5,6 -0 -5 -67890 -12 -3,4 -5.67 -0 -6 -789.01 -2.34 -56 -7,8 -0 -7 -89012 -345678 -9,10 -12 -0 -8 -90123 -456789 -10,11 -0 -9 -123456 -7.89 -12 -3456.78 -1 -2 -N -0 diff --git a/bwbtest/M80/finance.bas b/bwbtest/M80/finance.bas deleted file mode 100644 index b4395ea..0000000 --- a/bwbtest/M80/finance.bas +++ /dev/null @@ -1,191 +0,0 @@ -10 L1=9 -20 DEF FNR(X)=INT(X*100+.5)/100 -30 CL$=CHR$(26):REM SCREEN CLEAR CHAR. -40 REM ******************************************************** -50 REM -60 PRINT CL$;"THIS PROGRAM IS A COLLECTION OF BUSINESS" -70 PRINT "APPLICATIONS. HERE IS A LIST OF THE VALUES THAT" -80 PRINT "CAN BE COMPUTED GIVEN SUPPORTING DATA:" -90 PRINT -100 PRINT "1) FUTURE VALUE OF AN INVESTMENT" -110 PRINT "2) FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)" -120 PRINT "3) REGULAR DEPOSITS" -130 PRINT "4) REGULAR DEPOSITS FROM AN INVESTMENT" -140 PRINT "5) INITIAL INVESTMENT" -150 PRINT "6) MINIMUM INVESTMENT FOR WITHDRAWALS" -160 PRINT "7) NOMINAL INTEREST RATE ON INVESTMENTS" -170 PRINT "8) EFFECTIVE INTEREST RATE ON INVESTMENTS" -180 PRINT "9) EARNED INTEREST TABLE" -190 PRINT -200 PRINT "WHICH OF THE ABOVE VALUES WOULD YOU LIKE" -210 PRINT "TO COMPUTE ( 1 TO";L1;", OR 0 TO END RUN )"; -220 INPUT X -230 PRINT CL$ -240 IF X=0 THEN 1860 -250 ON X GOSUB 270,360,470,590,690,800,910,1010,1150 -260 GOTO 90 -270 PRINT "FUTURE VALUE OF AN INVESTMENT" -280 PRINT:INPUT "INITIAL INVESTMENT (0 TO STOP) ";P:IF P=0 THEN RETURN -290 GOSUB 1130 -300 GOSUB 1140 -310 GOSUB 1110 -320 I=I/N/100 -330 T=P*(I+1)^(N*Y) -340 GOSUB 1100 -350 GOTO 280 -360 PRINT "FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)" -370 PRINT -380 INPUT "AMOUNT OF REGULAR DEPOSITS (0 TO STOP)";R -390 IF R=0 THEN RETURN -400 GOSUB 1130 -410 INPUT "NUMBER OF DEPOSITS PER YEAR";N -420 GOSUB 1110 -430 I=I/N/100 -440 T=R*((I+1)^(N*Y)-1)/I -450 GOSUB 1100 -460 GOTO 370 -470 PRINT "REGULAR DEPOSITS" -480 PRINT -490 INPUT "TOTAL VALUE AFTER Y YEARS (0 TO STOP) ";T -500 IF T=0 THEN RETURN -510 GOSUB 1130 -520 DEF FNR(X)=INT(X*100+.5)/100 -530 INPUT "NUMBER OF DEPOSITS PER YEAR";N -540 GOSUB 1110 -550 I=I/N/100 -560 R=T*I/((I+1)^(N+Y)-1) -570 PRINT "REGULAR DEPOSITS: $";INT(R*100+.5)/100 -580 GOTO 480 -590 PRINT "REGULAR WITHDRAWALS FROM AN INVESTMENT" -600 PRINT:INPUT"INITIAL INVESTMENT (0 TO STOP) ";P -610 IF P=0 THEN RETURN -620 GOSUB 1130 -630 INPUT "NUMBER OF WITHDRAWALS PER YEAR";N -640 GOSUB 1110 -650 I=I/N/100 -660 R=P*(I/((I+1)^(N*Y)-1)+I) -670 PRINT "AMOUNT OF EACH WITHDRAWAL = $";INT(R*100+.5)/100 -680 GOTO 600 -690 PRINT "INITIAL INVESTMENT" -700 PRINT -710 INPUT "TOTAL VALUE AFTER Y YEARS (0 TO STOP) ";T -720 IF T=0 THEN RETURN -730 GOSUB 1140 -740 GOSUB 1110 -750 GOSUB 1130 -760 I=I/N/100 -770 P=T/(I+1)^(N*Y) -780 PRINT "INITIAL INVESTMENT = $";INT(P*100+.5)/100 -790 GOTO 700 -800 PRINT "MINIMUM INVESTMENT FOR WITHDRAWALS" -810 PRINT -820 INPUT "AMOUNT OF WITHDRAWALS (0 TO STOP) ";R -830 IF R=0 THEN RETURN -840 GOSUB 1130 -850 INPUT "NUMBER OF WITHDRAWALS PER YEAR";N -860 GOSUB 1110 -870 I=I/100 -880 P=R*N/I*(1-1/((1+I/N)^(N*Y))) -890 PRINT "MINIMUM INVESTMENT = $";INT(100*P+.5)/100 -900 GOTO 810 -910 PRINT "NOMINAL INTEREST RATE ON INVESTMENTS" -920 PRINT -930 INPUT "PRINCIPAL (0 TO STOP)";P -940 IF P=0 THEN RETURN -950 INPUT "TOTAL VALUE";T -960 GOSUB 1110 -970 GOSUB 1140 -980 I2=N*((T/P)^(1/(N*Y))-1)*100 -990 PRINT "NOMINAL INTEREST RATE = ";I2;"%" -1000 GOTO 920 -1010 PRINT "EFFECTIVE INTEREST RATE ON INVESTMENTS" -1020 PRINT -1030 INPUT "INITIAL INVESTMENT (0 TO STOP) ";P -1040 IF P=0 THEN RETURN -1050 INPUT "TOTAL VALUE AFTER Y YEARS";T -1060 GOSUB 1110 -1070 PRINT "ANNUAL INTEREST RATE = ";((T/P)^(1/Y)-1)*100;"%" -1080 GOTO 1020 -1090 REM ******* -1100 PRINT "FUTURE VALUE = $"; INT(T*100+.5)/100:RETURN -1110 INPUT "NUMBER OF YEARS AND MONTHS (2 NUMBERS WITH A COMMA BETWEEN THEM)";Y0,M -1120 Y=(12*Y0+M)/12:RETURN -1130 INPUT "NOMINAL INTEREST RATE (0 TO 100) ";I:RETURN -1140 INPUT "NUMBER OF COMPOUNDING PERIODS PER YEAR";N:RETURN -1150 PRINT "**** EARNED INTEREST TABLE GENERATOR ***" -1160 PRINT -1170 INPUT "PRINCIPAL";P -1180 GOSUB 1130 -1190 I=I/100 -1200 INPUT "NUMBER OF DEPOSITS/WITHDRAWALS PER YEAR";N1 -1210 IF N1=0 THEN 1260 -1220 INPUT "AMOUNT OF DEPOSIT/WITHDRAWAL";R -1230 N=360 -1240 L2=N1 -1250 GOTO 1290 -1260 GOSUB 1140 -1270 N1=0 -1280 L2=4 -1290 INPUT "START WITH WHAT YEAR (WHERE 1 MEANS THE FIRST, 2 THE SECOND, ETC.) ";X -1300 INPUT "END WITH WHAT YEAR";Y -1310 X=INT(X) -1320 B0=P:I1=0:I2=0:I3=0:K=66:P1=4 -1330 FOR J0=1 TO INT(Y)+1 -1340 IF J0N1 THEN 1590 -1560 IF N2/N1>J1/N THEN 1590 -1570 B0=B0+R -1580 N2=N2+1 -1590 B2=B0*(1+I/N) -1600 I1=B2-B0 -1610 I3=I3+I1 -1620 I2=I2+I1 -1630 IF P2/P1>J1/N THEN 1670 -1640 I2=FNR(I2) -1650 B2=FNR(B2) -1660 P2=P2+1 -1670 IF J0=Y THEN 1820 -1770 NEXT J1 -1780 IF J0 to input your own Local Coordinates: ";: INPUT MHC$ -150 IF MHC$="H" OR MHC$="h" THEN II$="East Charlotte" : A=35.208 : G=80.808 : GOTO 220 -160 IF MHC$="W" OR MHC$="w" THEN II$="Wilmington NC" : A=34.167 : G=77.867 : GOTO 220 -170 IF MHC$="M" OR MHC$="m" THEN II$="Myrtle Beach SC" : A=33.7 : G=78.85 : GOTO 220 -180 IF MHC$="C" OR MHC$="c" THEN II$="Charleston SC" : A=32.783 : G=79.933 : GOTO 220 -190 PRINT :PRINT -200 INPUT "Enter The Name of Your Location ";II$ -210 PRINT :INPUT "Enter Your LATITUDE in Degrees";A:PRINT :INPUT "Your LONGITUDE in Degrees";G -220 CLS :PRINT :GOSUB 1220:PRINT -230 INPUT "What is the Name of the Hurricane ";A$:PRINT -240 PRINT "Input LATITUDE of Hurricane ";A$;" in Degrees";:INPUT B:PRINT -250 PRINT "Input LONGITUDE of Hurricane ";A$;" in Degrees";:INPUT H -255 IF B = 0 AND H = 0 THEN END ' for automated testing -260 PRINT :PRINT "What is ";A$;"'s Current Direction of Travel (in Degrees)";:INPUT DD -270 PRINT :PRINT "What is ";A$;"'s Current Speed (MPH)";:INPUT SS -280 REM **** CALCULATE LOCATION AND DISTANCE **** -290 CLS :IF A=B AND G=H THEN H=H+.1 -300 PRINT :GOSUB 1220:I=G-H:L=I -310 IF (I<180) AND (I>-180) GOTO 350 -320 J=I+360:L=J -330 IF (J<180) AND (J>-180) GOTO 350 -340 L=I-360 -350 IF L>0 THEN R=1 -360 IF L<0 THEN R=0 -370 E=SIN(A*.0174533):F=SIN(B*.0174533):K=COS(A*.0174533) -380 M=COS(B*.0174533):N=COS(L*.0174533):D=(E*F)+(K*M*N) -390 O=(-ATN(D/SQR(-D*D+1))+1.5708)*57.2958 -400 P=SIN(O*.0174533):Q=(F-(E*D))/(K*P) -410 C=INT((-ATN(Q/SQR(-Q*Q+1))+1.5708)*57.2958) -420 IF R=0 THEN C=360-C -430 QQ=(E-(F*D))/(M*P) -440 CC=INT((-ATN(QQ/SQR(-QQ*QQ+1))+1.5708)* 57.2958) -450 IF R=1 THEN CC=360-CC -460 D=O*60*1.15078:D=INT(D+.5):PRINT -470 REM **** DETERMINE DIRECTION **** -480 IF C>=0 AND C<15 THEN G$="NORTH":GOTO 570 -490 IF C>=15 AND C<75 THEN G$="NORTHEAST":GOTO 570 -500 IF C>=75 AND C<105 THEN G$="EAST":GOTO 570 -510 IF C>=105 AND C<165 THEN G$="SOUTHEAST":GOTO 570 -520 IF C>=165 AND C<195 THEN G$="SOUTH":GOTO 570 -530 IF C>=195 AND C<225 THEN G$="SOUTHWEST":GOTO 570 -540 IF C>=255 AND C<285 THEN G$="WEST":GOTO 570 -550 IF C>=285 AND C<345 THEN G$="NORTWEST":GOTO 570 -560 G$="NORTH" -570 GOSUB 780:GOSUB 1210 -580 REM **** PRINT NO ALARM TEXT **** -590 PRINT "HURRICANE ";A$;" is Currently ";D;" Miles ";G$;" Of" -600 PRINT II$;". Bearing From ";II$ -610 PRINT "IS ";C;" Degrees From True North." -620 GOSUB 1210 -630 PRINT "If Hurricane ";A$;" Maintains its Current Speed of ";SS;"(mph) -640 PRINT "THERE IS NO CAUSE FOR ALARM. Please Continue To Monitor" -650 PRINT "Hurricane ";A$;" Closely." -660 GOSUB 1210 -670 PRINT :PRINT -680 PRINT" N O A A Weather Radio" : PRINT -690 PRINT" Charlotte 162.475 MHz" -700 PRINT" Wilmington NC 162.55" -710 PRINT" Myrtle Beach SC 162.4" -720 PRINT" Charleston SC 162.55" -730 PRINT" Beaufort SC 162.475" -740 PRINT" Cape Hatteras 162.55" : PRINT -750 PRINT :FOR TT= 1 TO 1000:NEXT :PRINT "Press to Input New Status On Hurricane ";A$;:INPUT UU$ -760 CLS :PRINT :GOSUB 1220:PRINT :GOTO 240 -770 REM **** DETERMINE IF PATH IS IN YOUR DIRECTION **** -780 KK=10:IF D<200 THEN KK=20 -790 IF D<400 THEN KK=15 -800 IF D<90 THEN 1450 -810 P$=II$ -820 IF DD<(CC+KK) AND DD>(CC-KK) THEN 880 -830 IF DD360-(KK-DD) THEN 880 -840 IF DD>(360-KK) AND CC> To Continue";UU$:CLS -1360 PRINT :PRINT " H U R R I C A N E C O N D I T I O N S":PRINT -1370 PRINT " D. H U R C O N 2: A HURRICANE HAS BECOME A THREAT" -1380 PRINT " TO THE ";II$;" AREA. SURFACE WINDS IN EXCESS OF 50" -1390 PRINT " KNOTS COULD ARRIVE WITHIN 24 HOURS.":PRINT -1400 PRINT " E. H U R C O N 1: A HURRICANE HAS BECOME A THREAT" -1410 PRINT " TO THE ";II$;" AREA. SURFACE WINDS IN EXCESS OF 50" -1420 PRINT " KNOTS COULD ARRIVE WITHIN 12 HOURS.":PRINT :PRINT -1430 INPUT " Press <> To Continue";UU$:CLS :GOTO 1030 -1440 REM **** TOO LATE MESSAGE **** -1450 CLS :PRINT "YOU ARE NOW IN A HURRICANE " -1460 EE=FIX(LEN(A$)/2) -1470 IF EE/2<>INT(EE/2) THEN EE=EE+1 -1480 PRINT "* * * ";A$;" * * *" -1490 PRINT "G O O D L U C K" -1500 FOR X=1 TO 250:NEXT -1510 PRINT "+ - + - + - + - + " -1520 FOR X= 1 TO 250:NEXT -1530 GOTO 1490 -2000 REM ------------------------------------------------- -2010 REM changed :' to REM -2020 REM changed PRINT CLS$ to CLS -2030 REM added line 255 for automated testing -2999 END - diff --git a/bwbtest/M80/hurricpm.run b/bwbtest/M80/hurricpm.run deleted file mode 100644 index d120d60..0000000 --- a/bwbtest/M80/hurricpm.run +++ /dev/null @@ -1,138 +0,0 @@ - * * * HURRICANE LOCATION AND DISTANCE CALCULATOR * * * - - * * * HURRICANE LOCATION AND DISTANCE CALCULATOR * * * - - -ENTER (H) for HOME Location ... - (W) for Wilmington / Wrightsville Beach area - (M) for Myrtle Beach area - (C) for Charleston area. - -or just press to input your own Local Coordinates: ? H - - * * * HURRICANE LOCATION AND DISTANCE CALCULATOR * * * - -What is the Name of the Hurricane ? TOMCAT - -Input LATITUDE of Hurricane TOMCAT in Degrees? 34.56 - -Input LONGITUDE of Hurricane TOMCAT in Degrees? 78.91 - -What is TOMCAT's Current Direction of Travel (in Degrees)? 123 - -What is TOMCAT's Current Speed (MPH)? 45 - - * * * HURRICANE LOCATION AND DISTANCE CALCULATOR * * * - -*************************************************************** -HURRICANE TOMCAT is Currently 116 Miles SOUTHEAST Of -East Charlotte. Bearing From East Charlotte -IS 112 Degrees From True North. -*************************************************************** -If Hurricane TOMCAT Maintains its Current Speed of 45 (mph) -THERE IS NO CAUSE FOR ALARM. Please Continue To Monitor -Hurricane TOMCAT Closely. -*************************************************************** - - - N O A A Weather Radio - - Charlotte 162.475 MHz - Wilmington NC 162.55 - Myrtle Beach SC 162.4 - Charleston SC 162.55 - Beaufort SC 162.475 - Cape Hatteras 162.55 - - -Press to Input New Status On Hurricane TOMCAT? - - * * * HURRICANE LOCATION AND DISTANCE CALCULATOR * * * - -Input LATITUDE of Hurricane TOMCAT in Degrees? 34.56 - -Input LONGITUDE of Hurricane TOMCAT in Degrees? 78.91 - -What is TOMCAT's Current Direction of Travel (in Degrees)? -135 - -What is TOMCAT's Current Speed (MPH)? 67 - - * * * HURRICANE LOCATION AND DISTANCE CALCULATOR * * * - - * * * H U R R I C A N E * * * - * * * A L E R T * * * - * * * H U R R I C A N E * * * - * * * A L E R T * * * - * * * H U R R I C A N E * * * - * * * A L E R T * * * - * * * H U R R I C A N E * * * - * * * A L E R T * * * - * * * HURRICANE LOCATION AND DISTANCE CALCULATOR * * * - - * * * H U R C O N 1 N O W I N E F F E C T * * * -*************************************************************** -HURRICANE TOMCAT IS CURRENTLY 116 MILES SOUTHEAST OF East Charlotte -BEARING FROM East Charlotte: 112 DEGREES FROM TRUE NORTH. -*************************************************************** -IF THIS HURRICANE MAINTAINS ITS CURRENT SPEED OF 67 MILES -PER HOUR AND CURRENT DIRECTION OF -135 DEGREES, THE CENTER -OF THE STORM CAN BE EXPECTED TO HIT THE East Charlotte -AREA IN APPROXIMATELY 1 HOURS. -*************************************************************** -PRESS LETTER - H - TO INPUT NEW STATUS ON HURRICANE - PRESS LETTER - C - TO REVIEW HURRICANE CONDITION NUMBERS - * * * H U R R I C A N E W A R N I N G * * * - -? C - - H U R R I C A N E C O N D I T I O N S - - A. H U R C O N 5 : A HURRICANE READINESS STATUS - CONSISTANT WITH SOUND PRECAUTIONARY MEASURES EFFECTIVE - JUNE 1 THROUGH NOVEMBER 30 EACH YEAR. - - B. H U R C O N 4: A HURRICANE HAS BECOME A THREAT - TO THE East Charlotte AREA. SURFACE WINDS IN EXCESS OF 50 - COULD ARRIVE WITHIN 72 HOURS. - - C. H U R C O N 3: A HURRICANE HAS BECOME A THREAT - TO THE East Charlotte AREA. SURFACE WINDS IN EXCESS OF 50 - KNOTS COULD ARRIVE WITHIN 48 HOURS. - - Press <> To Continue? - - H U R R I C A N E C O N D I T I O N S - - D. H U R C O N 2: A HURRICANE HAS BECOME A THREAT - TO THE East Charlotte AREA. SURFACE WINDS IN EXCESS OF 50 - KNOTS COULD ARRIVE WITHIN 24 HOURS. - - E. H U R C O N 1: A HURRICANE HAS BECOME A THREAT - TO THE East Charlotte AREA. SURFACE WINDS IN EXCESS OF 50 - KNOTS COULD ARRIVE WITHIN 12 HOURS. - - - Press <> To Continue? - * * * HURRICANE LOCATION AND DISTANCE CALCULATOR * * * - - * * * H U R C O N 1 N O W I N E F F E C T * * * -*************************************************************** -HURRICANE TOMCAT IS CURRENTLY 116 MILES SOUTHEAST OF East Charlotte -BEARING FROM East Charlotte: 112 DEGREES FROM TRUE NORTH. -*************************************************************** -IF THIS HURRICANE MAINTAINS ITS CURRENT SPEED OF 67 MILES -PER HOUR AND CURRENT DIRECTION OF -135 DEGREES, THE CENTER -OF THE STORM CAN BE EXPECTED TO HIT THE East Charlotte -AREA IN APPROXIMATELY 1 HOURS. -*************************************************************** -PRESS LETTER - H - TO INPUT NEW STATUS ON HURRICANE - PRESS LETTER - C - TO REVIEW HURRICANE CONDITION NUMBERS - * * * H U R R I C A N E W A R N I N G * * * - -? H - - * * * HURRICANE LOCATION AND DISTANCE CALCULATOR * * * - -Input LATITUDE of Hurricane TOMCAT in Degrees? 0 - -Input LONGITUDE of Hurricane TOMCAT in Degrees? 0 diff --git a/bwbtest/M80/ic-timer.INP b/bwbtest/M80/ic-timer.INP deleted file mode 100644 index ea10f3d..0000000 --- a/bwbtest/M80/ic-timer.INP +++ /dev/null @@ -1,12 +0,0 @@ -1 -R -1000e-6 -1 -C -310 -100 -T -3.1e3 -1000e-6 -E -9 diff --git a/bwbtest/M80/ic-timer.bas b/bwbtest/M80/ic-timer.bas deleted file mode 100644 index c12efb4..0000000 --- a/bwbtest/M80/ic-timer.bas +++ /dev/null @@ -1,92 +0,0 @@ -10 REM ****************** Timer Calculations ************* -20 REM By Ken L. Greene -30 REM #63 - 13435 97 Street -40 REM Edmonton, Alberta, Canada -50 REM T5E 4C8 -60 REM (403) 475 2456 -70 N=8 -80 GOSUB 770 -90 PRINT" TIMER CALCULATIONS" -100 PRINT" This program calculates values and times for these timers:" -110 PRINT TAB(10);"1 9601" -120 PRINT TAB(10);"2 9602" -130 PRINT TAB(10);"3 96L02" -140 PRINT TAB(10);"4 74121" -150 PRINT TAB(10);"5 74122" -160 PRINT TAB(10);"6 74123" -170 PRINT TAB(10);"7 555" -180 PRINT TAB(10);"8 556 (Dual 555)" -190 PRINT TAB(10);"9 To end" -200 PRINT:PRINT -210 INPUT"Enter the number corresponding to the desired timer :";T -220 IF T=9 THEN END -230 IF T>9 THEN GOTO 10 -240 K1=K1(T):K2=K2(T):K3=K3(T) -250 RMAX=RMAX(T) -260 GOSUB 600 -270 IF T$<>"T" AND T$<>"t" GOTO 340 -280 GOSUB 540:GOSUB 560 -290 T=K1+K2*R*C*(1+K3)/R ') -300 SC=T:GOSUB 670:T=SC -310 T= INT(T*10)/10 -320 PRINT "THE TIME IS ";T;SC$;"sec" -330 GOTO 260 -340 IF T$<>"R" AND T$<>"r" THEN GOTO 450 -350 GOSUB 560:GOSUB 580 -360 R=((T-K1)/(K2*C))-K3 -370 R1=R -380 SC=R:GOSUB 670:R=SC -390 R=INT(R*10)/10 -400 PRINT "THE RESISTANCE IS ";R;SC$;"ohms" -410 IF R1<=RMAX THEN GOTO 260 -420 PRINT:PRINT:PRINT"Resistance is greater than maximum resistance for this timer." -430 PRINT"use a larger value of capacitance for this time value.":PRINT:PRINT -440 GOTO 260 -450 IF T$<>"C" AND T$<>"c" THEN GOTO 520 -460 GOSUB 550:GOSUB 580 -470 C=((T-K1)/K2)/(R+K3) -480 SC=C:GOSUB 670:C=SC -490 C=INT(C*10)/10 -500 PRINT "THE CAPACITANCE IS ";C;SC$;"farads" -510 GOTO 260 -520 IF T$<>"E" AND T$<> "e" THEN GOTO 260 -530 GOTO 90 -540 REM SUBROUTINE TO ASK FOR VALUE OF "R" -550 INPUT "Enter value for 'R' in ohms :";R:RETURN -560 REM SUBROUTINE TO ASK FOR VALUE FOR "C" -570 INPUT"Enter value for 'C' in farads";C:RETURN -580 REM SUBROUTINE TO ASK FOR VALUE FOR "T" -590 INPUT"Enter value for 'T' in seconds :";T:RETURN -600 REM SUBROUTINE TO ASK WHICH VARIABLE -610 PRINT"Enter letter for variable you wish to find :" -620 PRINT TAB(10);"R resistor" -630 PRINT TAB(10);"C Capacitor" -640 PRINT TAB(10);"T Time" -650 PRINT TAB(10);"E Exit" -660 INPUT T$:RETURN -670 REM SUBROUTINE TO SCALE VARIABLES & FIND SCALE FACTOR -680 IF SC>1E+06 THEN SC=SC/1E+06:SC$="M":RETURN -690 IF SC>1000! THEN SC=SC/1000!:SC$="K":RETURN -700 IF SC<1 THEN SC$="":RETURN -710 IF SC<1E-12 THEN SC=0:SC$="":RETURN -720 IF SC<1E-09 THEN SC=SC/1E-12:SC$="p":RETURN -730 IF SC<.000001 THEN SC=SC/1E-09:SC$="n":RETURN -740 IF SC<.001 THEN SC=SC/.000001:SC$="u":RETURN -750 IF SC<1 THEN SC=SC/.001:SC$="m":RETURN -760 RETURN -770 REM INITIALIZE TIMER CONSTANTS -780 FOR I=1 TO N -790 READ K1(I),K2(I),K3(I),RMAX(I):NEXT -800 RESTORE -810 DATA 0,.32,.7,20000 -820 DATA 0,.31,1,20000 -830 DATA 0,.33,3,200000 -840 DATA 0,.693147,0,40000 -850 DATA 0,.693147,0,40000 -860 DATA 0,.693147,0,40000 -870 DATA 0,1.1,0,20E6 -880 DATA 0,1.1,0,20E6 -890 RETURN -900 REM ------------------------ -910 REM added semicolons to PRINT commands -999 END diff --git a/bwbtest/M80/ic-timer.run b/bwbtest/M80/ic-timer.run deleted file mode 100644 index 5910118..0000000 --- a/bwbtest/M80/ic-timer.run +++ /dev/null @@ -1,61 +0,0 @@ - TIMER CALCULATIONS - This program calculates values and times for these timers: - 1 9601 - 2 9602 - 3 96L02 - 4 74121 - 5 74122 - 6 74123 - 7 555 - 8 556 (Dual 555) - 9 To end - - -Enter the number corresponding to the desired timer :? 1 -Enter letter for variable you wish to find : - R resistor - C Capacitor - T Time - E Exit -? R -Enter value for 'C' in farads? 1000e-6 -Enter value for 'T' in seconds :? 1 -THE RESISTANCE IS 3.1 Kohms -Enter letter for variable you wish to find : - R resistor - C Capacitor - T Time - E Exit -? C -Enter value for 'R' in ohms :? 310 -Enter value for 'T' in seconds :? 100 -THE CAPACITANCE IS 1 Kfarads -Enter letter for variable you wish to find : - R resistor - C Capacitor - T Time - E Exit -? T -Enter value for 'R' in ohms :? 3.1e3 -Enter value for 'C' in farads? 1000e-6 -THE TIME IS 0 sec -Enter letter for variable you wish to find : - R resistor - C Capacitor - T Time - E Exit -? E - TIMER CALCULATIONS - This program calculates values and times for these timers: - 1 9601 - 2 9602 - 3 96L02 - 4 74121 - 5 74122 - 6 74123 - 7 555 - 8 556 (Dual 555) - 9 To end - - -Enter the number corresponding to the desired timer :? 9 diff --git a/bwbtest/M80/interest.INP b/bwbtest/M80/interest.INP deleted file mode 100644 index 06311b1..0000000 --- a/bwbtest/M80/interest.INP +++ /dev/null @@ -1,4 +0,0 @@ -5 -100000 -20 -12 diff --git a/bwbtest/M80/interest.bas b/bwbtest/M80/interest.bas deleted file mode 100644 index 456d202..0000000 --- a/bwbtest/M80/interest.bas +++ /dev/null @@ -1,39 +0,0 @@ -2 PRINT TAB(30);"INTEREST" -4 PRINT -8 PRINT -9 PA=0 -10 REM -PROGRAM TO COMPUTE INTEREST PAYMENTS -20 PRINT "INTEREST IN PERCENT"; -25 INPUT J -26 J=J/100 -30 PRINT "AMOUNT OF LOAN"; -35 INPUT A -40 PRINT "NUMBER OF YEARS"; -45 INPUT N -50 PRINT "NUMBER OF PAYMENTS PER YEAR"; -55 INPUT M -60 N=N*M -65 I=J/M -70 B=1+I -75 R=A*I/(1-1/B^N) -78 PRINT -80 PRINT "AMOUNT PER PAYMENT=";INT(R*100)/100 -85 PRINT "TOTAL INTEREST =";INT((R*N-A)*100)/100 -90 B=A -95 PRINT "PAYMENT NO.";TAB(15);"INTEREST";TAB(30);"PRINCIPAL";TAB(45);"BALANCE" -100 L=B*I -110 P=R-L -120 B=B-P -122 L=INT(L*100)/100 -124 P=INT(P*100)/100 -126 B=INT(B*100)/100 -128 PA=PA+1 -130 PRINT PA;TAB(15);"$";L;TAB(30);"$";P;TAB(45);"$";B -140 IF B>=R THEN 100 -150 PRINT TAB(30);"$";INT((B*1)*100)/100;TAB(45);"$";INT((R-B*I)*100)/100 -155 PRINT -160 PRINT PA+1;"LAST PAYMENT =";TAB(30);"$";INT((B*I+B)*100)/100 -170 PRINT -180 PRINT -190 PRINT -200 END diff --git a/bwbtest/M80/interest.run b/bwbtest/M80/interest.run deleted file mode 100644 index 8003744..0000000 --- a/bwbtest/M80/interest.run +++ /dev/null @@ -1,256 +0,0 @@ - INTEREST - - -INTEREST IN PERCENT? 5 -AMOUNT OF LOAN? 100000 -NUMBER OF YEARS? 20 -NUMBER OF PAYMENTS PER YEAR? 12 - -AMOUNT PER PAYMENT= 659.95 -TOTAL INTEREST = 58389.4 -PAYMENT NO. INTEREST PRINCIPAL BALANCE - 1 $ 416.66 $ 243.28 $ 99756.7 - 2 $ 415.65 $ 244.3 $ 99512.4 - 3 $ 414.63 $ 245.32 $ 99267.1 - 4 $ 413.61 $ 246.34 $ 99020.7 - 5 $ 412.58 $ 247.36 $ 98773.4 - 6 $ 411.55 $ 248.4 $ 98524.9 - 7 $ 410.52 $ 249.43 $ 98275.5 - 8 $ 409.48 $ 250.47 $ 98025. - 9 $ 408.43 $ 251.51 $ 97773.5 - 10 $ 407.38 $ 252.56 $ 97520.9 - 11 $ 406.33 $ 253.61 $ 97267.3 - 12 $ 405.28 $ 254.67 $ 97012.6 - 13 $ 404.21 $ 255.73 $ 96756.9 - 14 $ 403.15 $ 256.8 $ 96500.1 - 15 $ 402.08 $ 257.87 $ 96242.2 - 16 $ 401 $ 258.94 $ 95983.2 - 17 $ 399.93 $ 260.02 $ 95723.2 - 18 $ 398.84 $ 261.1 $ 95462.1 - 19 $ 397.75 $ 262.19 $ 95199.9 - 20 $ 396.66 $ 263.28 $ 94936.6 - 21 $ 395.56 $ 264.38 $ 94672.2 - 22 $ 394.46 $ 265.48 $ 94406.7 - 23 $ 393.36 $ 266.59 $ 94140.1 - 24 $ 392.25 $ 267.7 $ 93872.4 - 25 $ 391.13 $ 268.82 $ 93603.6 - 26 $ 390.01 $ 269.94 $ 93333.6 - 27 $ 388.89 $ 271.06 $ 93062.6 - 28 $ 387.76 $ 272.19 $ 92790.4 - 29 $ 386.62 $ 273.32 $ 92517.1 - 30 $ 385.48 $ 274.46 $ 92242.6 - 31 $ 384.34 $ 275.61 $ 91967. - 32 $ 383.19 $ 276.76 $ 91690.2 - 33 $ 382.04 $ 277.91 $ 91412.3 - 34 $ 380.88 $ 279.07 $ 91133.2 - 35 $ 379.72 $ 280.23 $ 90852.9 - 36 $ 378.55 $ 281.4 $ 90571.5 - 37 $ 377.38 $ 282.57 $ 90289. - 38 $ 376.2 $ 283.75 $ 90005.2 - 39 $ 375.02 $ 284.93 $ 89720.3 - 40 $ 373.83 $ 286.12 $ 89434.1 - 41 $ 372.64 $ 287.31 $ 89146.8 - 42 $ 371.44 $ 288.51 $ 88858.3 - 43 $ 370.24 $ 289.71 $ 88568.6 - 44 $ 369.03 $ 290.92 $ 88277.6 - 45 $ 367.82 $ 292.13 $ 87985.5 - 46 $ 366.6 $ 293.34 $ 87692.1 - 47 $ 365.38 $ 294.57 $ 87397.6 - 48 $ 364.15 $ 295.79 $ 87101.8 - 49 $ 362.92 $ 297.03 $ 86804.7 - 50 $ 361.68 $ 298.26 $ 86506.5 - 51 $ 360.44 $ 299.51 $ 86206.9 - 52 $ 359.19 $ 300.76 $ 85906.2 - 53 $ 357.94 $ 302.01 $ 85604.1 - 54 $ 356.68 $ 303.27 $ 85300.9 - 55 $ 355.42 $ 304.53 $ 84996.3 - 56 $ 354.15 $ 305.8 $ 84690.5 - 57 $ 352.87 $ 307.07 $ 84383.4 - 58 $ 351.59 $ 308.35 $ 84075.1 - 59 $ 350.31 $ 309.64 $ 83765.4 - 60 $ 349.02 $ 310.93 $ 83454.5 - 61 $ 347.72 $ 312.22 $ 83142.3 - 62 $ 346.42 $ 313.52 $ 82828.7 - 63 $ 345.11 $ 314.83 $ 82513.9 - 64 $ 343.8 $ 316.14 $ 82197.7 - 65 $ 342.49 $ 317.46 $ 81880.3 - 66 $ 341.16 $ 318.78 $ 81561.5 - 67 $ 339.83 $ 320.11 $ 81241.4 - 68 $ 338.5 $ 321.45 $ 80919.9 - 69 $ 337.16 $ 322.78 $ 80597.1 - 70 $ 335.82 $ 324.13 $ 80273. - 71 $ 334.47 $ 325.48 $ 79947.5 - 72 $ 333.11 $ 326.84 $ 79620.6 - 73 $ 331.75 $ 328.2 $ 79292.4 - 74 $ 330.38 $ 329.57 $ 78962.8 - 75 $ 329.01 $ 330.94 $ 78631.9 - 76 $ 327.63 $ 332.32 $ 78299.6 - 77 $ 326.24 $ 333.7 $ 77965.9 - 78 $ 324.85 $ 335.09 $ 77630.8 - 79 $ 323.46 $ 336.49 $ 77294.2 - 80 $ 322.05 $ 337.89 $ 76956.4 - 81 $ 320.65 $ 339.3 $ 76617. - 82 $ 319.23 $ 340.71 $ 76276.3 - 83 $ 317.81 $ 342.13 $ 75934.2 - 84 $ 316.39 $ 343.56 $ 75590.6 - 85 $ 314.96 $ 344.99 $ 75245.6 - 86 $ 313.52 $ 346.43 $ 74899.2 - 87 $ 312.07 $ 347.87 $ 74551.3 - 88 $ 310.63 $ 349.32 $ 74202. - 89 $ 309.17 $ 350.78 $ 73851.2 - 90 $ 307.71 $ 352.24 $ 73498.9 - 91 $ 306.24 $ 353.71 $ 73145.2 - 92 $ 304.77 $ 355.18 $ 72790. - 93 $ 303.29 $ 356.66 $ 72433.3 - 94 $ 301.8 $ 358.15 $ 72075.2 - 95 $ 300.31 $ 359.64 $ 71715.5 - 96 $ 298.81 $ 361.14 $ 71354.4 - 97 $ 297.3 $ 362.64 $ 70991.7 - 98 $ 295.79 $ 364.15 $ 70627.6 - 99 $ 294.28 $ 365.67 $ 70261.9 - 100 $ 292.75 $ 367.19 $ 69894.7 - 101 $ 291.22 $ 368.72 $ 69526. - 102 $ 289.69 $ 370.26 $ 69155.7 - 103 $ 288.14 $ 371.8 $ 68783.9 - 104 $ 286.59 $ 373.35 $ 68410.5 - 105 $ 285.04 $ 374.91 $ 68035.6 - 106 $ 283.48 $ 376.47 $ 67659.1 - 107 $ 281.91 $ 378.04 $ 67281.1 - 108 $ 280.33 $ 379.61 $ 66901.4 - 109 $ 278.75 $ 381.19 $ 66520.2 - 110 $ 277.16 $ 382.78 $ 66137.5 - 111 $ 275.57 $ 384.38 $ 65753.1 - 112 $ 273.97 $ 385.98 $ 65367.1 - 113 $ 272.36 $ 387.59 $ 64979.5 - 114 $ 270.74 $ 389.2 $ 64590.3 - 115 $ 269.12 $ 390.82 $ 64199.4 - 116 $ 267.49 $ 392.45 $ 63807. - 117 $ 265.86 $ 394.09 $ 63412.9 - 118 $ 264.22 $ 395.73 $ 63017.1 - 119 $ 262.57 $ 397.38 $ 62619.8 - 120 $ 260.91 $ 399.04 $ 62220.7 - 121 $ 259.25 $ 400.7 $ 61820. - 122 $ 257.58 $ 402.37 $ 61417.6 - 123 $ 255.9 $ 404.04 $ 61013.6 - 124 $ 254.22 $ 405.73 $ 60607.8 - 125 $ 252.53 $ 407.42 $ 60200.4 - 126 $ 250.83 $ 409.12 $ 59791.3 - 127 $ 249.13 $ 410.82 $ 59380.4 - 128 $ 247.41 $ 412.53 $ 58967.9 - 129 $ 245.69 $ 414.25 $ 58553.6 - 130 $ 243.97 $ 415.98 $ 58137.6 - 131 $ 242.24 $ 417.71 $ 57719.9 - 132 $ 240.49 $ 419.45 $ 57300.5 - 133 $ 238.75 $ 421.2 $ 56879.2 - 134 $ 236.99 $ 422.95 $ 56456.3 - 135 $ 235.23 $ 424.72 $ 56031.6 - 136 $ 233.46 $ 426.49 $ 55605.1 - 137 $ 231.68 $ 428.26 $ 55176.8 - 138 $ 229.9 $ 430.05 $ 54746.7 - 139 $ 228.11 $ 431.84 $ 54314.9 - 140 $ 226.31 $ 433.64 $ 53881.2 - 141 $ 224.5 $ 435.45 $ 53445.8 - 142 $ 222.69 $ 437.26 $ 53008.5 - 143 $ 220.86 $ 439.08 $ 52569.4 - 144 $ 219.03 $ 440.91 $ 52128.5 - 145 $ 217.2 $ 442.75 $ 51685.7 - 146 $ 215.35 $ 444.59 $ 51241.1 - 147 $ 213.5 $ 446.45 $ 50794.7 - 148 $ 211.64 $ 448.31 $ 50346.3 - 149 $ 209.77 $ 450.17 $ 49896.2 - 150 $ 207.9 $ 452.05 $ 49444.1 - 151 $ 206.01 $ 453.93 $ 48990.2 - 152 $ 204.12 $ 455.83 $ 48534.3 - 153 $ 202.22 $ 457.72 $ 48076.6 - 154 $ 200.31 $ 459.63 $ 47617. - 155 $ 198.4 $ 461.55 $ 47155.4 - 156 $ 196.48 $ 463.47 $ 46691.9 - 157 $ 194.54 $ 465.4 $ 46226.5 - 158 $ 192.61 $ 467.34 $ 45759.2 - 159 $ 190.66 $ 469.29 $ 45289.9 - 160 $ 188.7 $ 471.24 $ 44818.6 - 161 $ 186.74 $ 473.21 $ 44345.4 - 162 $ 184.77 $ 475.18 $ 43870.2 - 163 $ 182.79 $ 477.16 $ 43393. - 164 $ 180.8 $ 479.15 $ 42913.9 - 165 $ 178.8 $ 481.14 $ 42432.7 - 166 $ 176.8 $ 483.15 $ 41949.6 - 167 $ 174.78 $ 485.16 $ 41464.4 - 168 $ 172.76 $ 487.18 $ 40977.2 - 169 $ 170.73 $ 489.21 $ 40488. - 170 $ 168.69 $ 491.25 $ 39996.7 - 171 $ 166.65 $ 493.3 $ 39503.4 - 172 $ 164.59 $ 495.35 $ 39008.1 - 173 $ 162.53 $ 497.42 $ 38510.6 - 174 $ 160.46 $ 499.49 $ 38011.1 - 175 $ 158.37 $ 501.57 $ 37509.5 - 176 $ 156.28 $ 503.66 $ 37005.9 - 177 $ 154.19 $ 505.76 $ 36500.1 - 178 $ 152.08 $ 507.87 $ 35992.2 - 179 $ 149.96 $ 509.98 $ 35482.2 - 180 $ 147.84 $ 512.11 $ 34970.1 - 181 $ 145.7 $ 514.24 $ 34455.9 - 182 $ 143.56 $ 516.38 $ 33939.5 - 183 $ 141.41 $ 518.54 $ 33420.9 - 184 $ 139.25 $ 520.7 $ 32900.2 - 185 $ 137.08 $ 522.87 $ 32377.3 - 186 $ 134.9 $ 525.05 $ 31852.3 - 187 $ 132.71 $ 527.23 $ 31325. - 188 $ 130.52 $ 529.43 $ 30795.6 - 189 $ 128.31 $ 531.64 $ 30263.9 - 190 $ 126.09 $ 533.85 $ 29730.1 - 191 $ 123.87 $ 536.08 $ 29194. - 192 $ 121.64 $ 538.31 $ 28655.7 - 193 $ 119.39 $ 540.55 $ 28115.1 - 194 $ 117.14 $ 542.8 $ 27572.3 - 195 $ 114.88 $ 545.07 $ 27027.2 - 196 $ 112.61 $ 547.34 $ 26479.9 - 197 $ 110.33 $ 549.62 $ 25930.2 - 198 $ 108.04 $ 551.91 $ 25378.3 - 199 $ 105.74 $ 554.21 $ 24824.1 - 200 $ 103.43 $ 556.52 $ 24267.6 - 201 $ 101.11 $ 558.84 $ 23708.7 - 202 $ 98.78 $ 561.16 $ 23147.5 - 203 $ 96.44 $ 563.5 $ 22584. - 204 $ 94.1 $ 565.85 $ 22018.2 - 205 $ 91.74 $ 568.21 $ 21450. - 206 $ 89.37 $ 570.58 $ 20879.4 - 207 $ 86.99 $ 572.95 $ 20306.4 - 208 $ 84.61 $ 575.34 $ 19731.1 - 209 $ 82.21 $ 577.74 $ 19153.3 - 210 $ 79.8 $ 580.15 $ 18573.2 - 211 $ 77.38 $ 582.56 $ 17990.6 - 212 $ 74.96 $ 584.99 $ 17405.6 - 213 $ 72.52 $ 587.43 $ 16818.1 - 214 $ 70.07 $ 589.88 $ 16228.2 - 215 $ 67.61 $ 592.33 $ 15635.9 - 216 $ 65.14 $ 594.8 $ 15041.1 - 217 $ 62.67 $ 597.28 $ 14443.8 - 218 $ 60.18 $ 599.77 $ 13844. - 219 $ 57.68 $ 602.27 $ 13241.8 - 220 $ 55.17 $ 604.78 $ 12637. - 221 $ 52.65 $ 607.3 $ 12029.6 - 222 $ 50.12 $ 609.83 $ 11419.8 - 223 $ 47.58 $ 612.37 $ 10807.4 - 224 $ 45.03 $ 614.92 $ 10192.5 - 225 $ 42.46 $ 617.48 $ 9575.01 - 226 $ 39.89 $ 620.05 $ 8954.95 - 227 $ 37.31 $ 622.64 $ 8332.3 - 228 $ 34.71 $ 625.23 $ 7707.06 - 229 $ 32.11 $ 627.84 $ 7079.21 - 230 $ 29.49 $ 630.45 $ 6448.75 - 231 $ 26.86 $ 633.08 $ 5815.66 - 232 $ 24.23 $ 635.72 $ 5179.93 - 233 $ 21.58 $ 638.37 $ 4541.55 - 234 $ 18.92 $ 641.03 $ 3900.51 - 235 $ 16.25 $ 643.7 $ 3256.8 - 236 $ 13.57 $ 646.38 $ 2610.41 - 237 $ 10.87 $ 649.07 $ 1961.33 - 238 $ 8.17 $ 651.78 $ 1309.54 - 239 $ 5.45 $ 654.49 $ 655.04 - $ 655.04 $ 657.22 - - 240 LAST PAYMENT = $ 657.76 - - - diff --git a/bwbtest/M80/intrate.INP b/bwbtest/M80/intrate.INP deleted file mode 100644 index 13fc7b6..0000000 --- a/bwbtest/M80/intrate.INP +++ /dev/null @@ -1,9 +0,0 @@ -5 -480 -100000 -0 -Y -Y -Y -10 -5 diff --git a/bwbtest/M80/intrate.bas b/bwbtest/M80/intrate.bas deleted file mode 100644 index 81f117c..0000000 --- a/bwbtest/M80/intrate.bas +++ /dev/null @@ -1,55 +0,0 @@ -10 K=0:T0=0:T1=0 -20 INPUT "INTEREST RATE (%) ",I2 -30 J=I2/1200 -40 INPUT "TERM IN MONTHS" ,N -50 D=1-(1+J)^(-N) -60 R=1000*J/D -70 P=9.9995E-03 -80 F=R+P -90 F=(INT(F*100)/100) -100 PRINT "RATE PER $1000 = $", -110 PRINT USING "#####.##";F ' %7F2 -120 INPUT "AMOUNT OF MORTGAGE ",Z -130 INPUT "PAYMENT IF KNOWN, ELSE 0 ",B -140 IF B>0 THEN 190 -150 B=(Z/1000)*F -160 INPUT "DO YOU WANT PAYMENT IN EVEN DOLLARS ",Y$ -170 IF Y$="N" THEN 190 ' IF Y$(1,1) ="N" THEN 190 -180 B=INT (B+.99) -190 PRINT "MONTHLY PAYMENT = $", -200 PRINT USING "#####.##";B ' %7F2 -210 INPUT "DO YOU WANT TO AMORTIZE THIS LOAN ",Y$ -220 IF Y$="N" THEN 10 ' IF Y$(1,1)="N" THEN 10 -230 INPUT "DO YOU WANT DETAIL DISPLAYED ",Y$ -240 IF Y$="N" THEN S=1 ELSE S=0 ' IF Y$(1,1) ="N" THEN S=1 ELSE S=0 -250 IF S=1 THEN 280 -260 INPUT "DISPLAY INTERVAL ",D1 -270 INPUT "DISPLAY START PERIOD ",D2 -280 PRINT "PMT# BALANCE INT PRIN RED PER INT TOT INT" -290 I1=J*Z -300 I1=I1+5E-03:I1=(INT(I1*100)/100) -310 T0=T0+I1:T1=T1+I1 -320 P1=Z -330 Q=B-I1 -340 Z=Z-Q -350 X=P1:Y=Q:X=X-Y -360 IF X>0 THEN 380 -370 Z=0:B=P1+I1:Q=B-I1 -380 K=K+1 -390 IF S=1 THEN 460 -400 IF K<>D1+D2 THEN 420 -410 PRINT USING "###";K, ' %3I -420 IF K K THEN 460 ELSE D2=D2+D1 -440 PRINT USING "#######.##";Z,I1,Q,T0,T1 ' %9F2 -450 T0=0 -460 IF Z>0 THEN 290 -470 PRINT:PRINT "FINAL TOTALS":PRINT -480 PRINT USING "###";K, ' %3I -490 PRINT USING "#######.##";Z,I1,Q,T0,T1 ' %9F2 -500 PRINT "LAST PAYMENT = $",: PRINT USING "#####.##";B ' %7F2 -510 STOP -600 REM --------------------------------------------------- -610 REM Changed %... to PRINT USING "#" -620 REM Changed Y$(1,1) to Y$ -699 END diff --git a/bwbtest/M80/intrate.run b/bwbtest/M80/intrate.run deleted file mode 100644 index d9b5012..0000000 --- a/bwbtest/M80/intrate.run +++ /dev/null @@ -1,66 +0,0 @@ -INTEREST RATE (%) 5 -TERM IN MONTHS480 -RATE PER $1000 = $ 4.83 -AMOUNT OF MORTGAGE 100000 -PAYMENT IF KNOWN, ELSE 0 0 -DO YOU WANT PAYMENT IN EVEN DOLLARS Y -MONTHLY PAYMENT = $ 483.00 -DO YOU WANT TO AMORTIZE THIS LOAN Y -DO YOU WANT DETAIL DISPLAYED Y -DISPLAY INTERVAL 10 -DISPLAY START PERIOD 5 -PMT# BALANCE INT PRIN RED PER INT TOT INT - 15 98975.43 412.69 70.31 6220.43 6220.43 - 25 98256.01 409.71 73.29 4110.58 10331.01 - 35 97506.06 406.59 76.41 4080.05 14411.06 - 45 96724.27 403.35 79.65 4048.21 18459.27 - 55 95909.29 399.97 83.03 4015.02 22474.29 - 65 95059.70 396.44 86.56 3980.41 26454.70 - 75 94174.05 392.77 90.23 3944.35 30399.05 - 85 93250.79 388.94 94.06 3906.74 34305.79 - 95 92288.33 384.94 98.06 3867.54 38173.33 -105 91285.00 380.78 102.22 3826.67 42000.00 -115 90239.08 376.44 106.56 3784.08 45784.08 -125 89148.76 371.92 111.08 3739.68 49523.76 -135 88012.14 367.20 115.80 3693.38 53217.14 -145 86827.26 362.28 120.72 3645.12 56862.26 -155 85592.09 357.16 125.84 3594.83 60457.09 -165 84304.47 351.82 131.18 3542.38 63999.47 -175 82962.19 346.25 136.75 3487.72 67487.19 -185 81562.91 340.44 142.56 3430.72 70917.91 -195 80104.23 334.39 148.61 3371.32 74289.23 -205 78583.61 328.08 154.92 3309.38 77598.61 -215 76998.42 321.50 161.50 3244.81 80843.42 -225 75345.94 314.64 168.36 3177.52 84020.94 -235 73623.31 307.50 175.50 3107.37 87128.31 -245 71827.52 300.04 182.96 3034.21 90162.52 -255 69955.52 292.28 190.72 2958.00 93120.52 -265 68004.02 284.18 198.82 2878.50 95999.02 -275 65969.67 275.74 207.26 2795.65 98794.67 -285 63848.95 266.94 216.06 2709.28 101503.95 -295 61638.19 257.76 225.24 2619.24 104123.19 -305 59333.57 248.20 234.80 2525.38 106648.57 -315 56931.09 238.23 244.77 2427.52 109076.09 -325 54426.61 227.84 255.16 2325.52 111401.61 -335 51815.80 217.01 265.99 2219.19 113620.80 -345 49094.15 205.71 277.29 2108.35 115729.15 -355 46256.94 193.94 289.06 1992.79 117721.94 -365 43299.27 181.67 301.33 1872.33 119594.27 -375 40216.05 168.88 314.12 1746.78 121341.05 -385 37001.92 155.54 327.46 1615.87 122956.92 -395 33651.32 141.64 341.36 1479.40 124436.32 -405 30158.45 127.14 355.86 1337.13 125773.45 -415 26517.29 112.03 370.97 1188.84 126962.29 -425 22721.55 96.28 386.72 1034.26 127996.55 -435 18764.66 79.87 403.13 873.11 128869.66 -445 14639.77 62.75 420.25 705.11 129574.77 -455 10339.76 44.91 438.09 529.99 130104.76 -465 5857.17 26.31 456.69 347.41 130452.17 -475 1184.26 6.92 476.08 157.09 130609.26 - -FINAL TOTALS - -478 0.00 0.94 226.13 8.81 130618.07 -LAST PAYMENT = $ 227.07 - -Program interrupted at line 510 diff --git a/bwbtest/M80/loan2.INP b/bwbtest/M80/loan2.INP deleted file mode 100644 index 911c4de..0000000 --- a/bwbtest/M80/loan2.INP +++ /dev/null @@ -1,57 +0,0 @@ -A -A -1000 -B -3.5 -C -12 -D -30 -H - -M -B -H - -M -C -H - -M -D -E -6 -5 -H - -M -E -H - -M -F -H - -M -G -H - -M -G -N -N -N -Y -25 -C -C -C -C -C -C -Y -H - -M -X -Y diff --git a/bwbtest/M80/loan2.bas b/bwbtest/M80/loan2.bas deleted file mode 100644 index cf943d4..0000000 --- a/bwbtest/M80/loan2.bas +++ /dev/null @@ -1,760 +0,0 @@ -1000 REM LOAN CALCULATION PROGRAM (WRITTEN TO RUN WITH BASIC-80 v5.21) -1020 REM WRITTEN BY MARK MCKIBBEN, WOLD COMMUNICATIONS -1040 REM THIS PROGRAM WAS WRITTEN IN STAGES AND NEVER REALLY STRAIGHTENED -1060 REM OUT, SO IT IS A BIT OF A MESS. -1080 REM THE PROGRAM IS MENU-DRIVEN AND MORE OR LESS SELF-DOCUMENTING. -1100 REM ONLY ONE STATEMENT NEEDS TO BE CORRECTED (IF RUN UNDER MBASIC) -1120 REM FOR SPECIFIC TERMINALS: ONE OF THE FIRST STATEMENTS BELOW -1140 REM DEFINES CLS$, WHICH IS SENT TO THE CONSOLE TO CLEAR SCREEN AND -1160 REM HOME CURSOR. -1180 REM THERE IS ONE UNDOCUMENTED MENU ITEM: "L", WHICH LOADS SAMPLE -1200 REM VALUES INTO THE VARIABLES FOR TESTING. -1220 REM -1240 DEFDBL D:DEFSNG S:DEFSTR A-C:DEFINT I:REM GLOBAL VARIABLE DEFINITIONS -1260 REM CHANGE THE STATMENT BELOW FOR YOUR CLEAR SCREEN SEQUENCE -1280 CLEAR -1300 CLS$=CHR$(27)+CHR$(42):REM THIS VARIABLE WILL CLEAR THE SCREEN -1320 ON ERROR GOTO 1360 -1340 GOTO 1480 -1360 PRINT CLS$ -1380 PRINT:PRINT:PRINT:PRINT " AN ENTRY HAS BEEN MADE WHICH CANNOT BE USED FOR LOAN CALCULATIONS.":PRINT:PRINT -1400 PRINT " PLEASE DOUBLE CHECK YOUR ENTRIES AND TRY AGAIN. PRESS ANY KEY TO CONTINUE. "; -1420 INPUT ANS$ -1440 RESUME 1280 -1460 REM -1480 WIDTH 79:REM SET WIDTH TO 79 ON SCREEN -1500 REM -1520 GOTO 2660 -1540 REM MENU PROCESSING SUBROUTINE -1560 PRINT -1580 PRINT " >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> "; -1600 INPUT ANS$ -1620 IF ANS$<"a" OR ANS$>"z" THEN GOTO 1660 -1640 ANS$=CHR$(ASC(ANS$)-32) -1660 FOR MENUNUM%=1 TO LEN(MENULIST$) -1680 IF ANS$=MID$(MENULIST$,MENUNUM%,1) THEN PRINT ANS$;CHR$(13);SPC(70);CHR$(13);:RETURN -1700 NEXT -1720 GOTO 1600 -1740 REM ***** YES/NO SUBROUTINE ****** (MENUNUM% = 1 FOR YES, 2 FOR NO) -1760 INPUT ANS$ -1780 IF ANS$ = "Y" OR ANS$ = "y" THEN MENUNUM% = 1 : PRINT "Yes" : RETURN -1800 IF ANS$ = "N" OR ANS$ = "n" THEN MENUNUM% = 2 : PRINT "No" : RETURN -1820 GOTO 1760 -1840 REM ******* SUBROUTINE FOR PRINTING REUSED MESSAGE #1 -1860 PRINT:PRINT " The calculated amount above will be automatically recalculated anytime you":PRINT " change one of the VARIABLES. Use the menu to select.":RETURN -1880 REM ******* SUBROUTINE FOR PRINTING REUSED MESSAGE #2 -1900 PRINT " Please enter each missing variable using the menu to select each item.":RETURN -1920 REM ******* SUBROUTINE FOR PRINTING REUSED MESSAGE #3 -1940 PRINT:PRINT " Variables needed for calculation:":PRINT:PRINT " VARIABLE CURRENT VALUE":RETURN -1960 REM ******* SUBROUTINE FOR PRINTING REUSED MESSAGE #4 -1980 PRINT:PRINT " PRESS (H) for HELP." -2000 PRINT " PRESS (M) to return to the MAIN MENU.":RETURN -2020 REM ****** SUBROUTINE FOR PRINTING REUSED MESSAGE #5 -2040 PRINT " NEGATIVE numbers are not allowed in loan calculations. HIT ANY KEY.":INPUT ANS$ -2060 PRINT CHR$(13);SPC(75);CHR$(13); -2080 RETURN -2100 REM ORIGINAL TERM LOAN PRINICIPAL USING INTEREST RATE, THE AMOUNT -2120 REM OF REGULAR PAYMENTS, NUMBER OF PAYMENTS PER YEAR AND TERM OF THE -2140 REM LOAN. -2160 REM -2180 REM REGULAR PAYMENT ON A LOAN USING ORIGINAL LOAN PRINCIPAL, INTEREST -2200 REM RATE, NUMBER OF PAYMENTS PER YEAR, AND NUMBER OF YEARS TO PAY. -2220 REM ASSUMES ALL PAYMENTS WILL BE EQUAL. -2240 REM -2260 REM LAST PAYMENT ON A LOAN USING AMOUNT OF THE LOAN, THE AMOUNT OF -2280 REM THE PAYMENTS, INTEREST RATE CHARGED, NUMBER OF PAYMENTS PER YEAR -2300 REM AND THE TERM OF THE PAYMENTS -2320 REM -2340 REM REMAINING BALANCE ON A LOAN AFTER A SPECIFIC NUMBER OF PAYMENTS -2360 REM USING PAYMENT AMOUNT, NUMBER OF PAYMENTS PER YEAR, AMOUNT OF THE -2380 REM PRINCIPAL, ANNUAL INTEREST RATE, AND THE PAYMENTS NUMBER. THERE -2400 REM ALSO A SUBROUTINE THAT WILL CALCULATE THE PAYMENT NUMBER GIVEN -2420 REM THE FIRST PAYMENT DATE AND THE CURRENT OR PROJECTED DATE. -2440 REM -2460 REM TERM OF A LOAN (PERIOD NEEDED TO REPAY) USING PAYMENT AMOUNTS, -2480 REM NUMBER OF PAYMENTS, ANNUAL INTEREST RATE AND ORIGINAL LOAN AMOUNT. -2500 REM ALL PAYMENTS ARE ASSUMED TO BE EQUAL. -2520 REM -2540 REM ANNUAL INTEREST RATE ON A LOAN USING AMOUNT OF LOAN, AMOUNT OF -2560 REM PAYMENT, NUMBER OF PAYMENTS PER YEAR, AND TERM OF LOAN. -2580 REM -2600 REM MORTGAGE AMORTIZATION TABLE USING PAYMENT AMOUNT, TERM OF PAYMENT -2620 REM NUMBER OF PAYMENTS PER YEAR, PRINCIPAL AMOUNT AND INTEREST RATE. -2640 REM -2660 REM **************************************************************** -2680 REM BEGINNING OF PROGRAM -2700 REM *************************************************************** -2720 REM FIRST COMES THE STARTUP MENU -2740 REM -2760 PRINT CLS$ -2780 REM -2800 REM -2820 PRINT:PRINT" *************** MAIN MENU ***************" -2840 PRINT " This is a program for LOAN CALCULATIONS. Please select the " -2860 PRINT " module you would like to run below." -2880 PRINT -2900 PRINT " (Press the corresponding letter from the menu.)" -2920 PRINT -2940 PRINT " (A) LOAN PRINCIPAL AMOUNT" -2960 PRINT " (B) REGULAR LOAN PAYMENT AMOUNT" -2980 PRINT " (C) LAST PAYMENT ON A LOAN" -3000 PRINT " (D) REMAINING BALANCE ON A LOAN" -3020 PRINT " (E) TERM OF A LOAN" -3040 PRINT " (F) ANNUAL INTEREST RATE ON A LOAN" -3060 PRINT " (G) LOAN AMORTIZATION TABLE" -3080 PRINT -3100 PRINT " (H)ELP-- Choose this for an explanation of the modules above." -3120 PRINT -3140 PRINT " (X) EXIT BACK TO THE OPERATING SYSTEM" -3160 REM -3180 MENULIST$="ABCDEFGHXL" -3200 GOSUB 1540 -3220 ON MENUNUM% GOTO 3240,4380,4960,5660,6600,7440,8180,13240,15580,15880 -3240 REM *******************MENU CHOICE A***************************** -3260 PRINT CLS$; -3280 PRINT " PRINCIPAL ON A LOAN " -3300 PRINT " Calculates an initial amount borrowed." -3320 GOSUB 1920 -3340 PRINT " (A) ";:GOSUB 3360:GOTO 3400 -3360 PRINT "Amount of Regular Payment: "; -3380 PRINT USING "$$#########.##";DPAYMENT:RETURN -3400 PRINT " (B) ";:GOSUB 3420:GOTO 3480 -3420 PRINT "Annual Interest rate: "; -3440 PRINT USING " ###.##";SINTEREST; -3460 PRINT "%":RETURN -3480 PRINT " (C) ";:GOSUB 3500:GOTO 3540 -3500 PRINT "Payments per Year: "; -3520 PRINT USING " ###";IPAYMENTNUM:RETURN -3540 PRINT " (D) ";:GOSUB 3560:GOTO 3600 -3560 PRINT "Number of Years: "; -3580 PRINT USING " ###.#";SYEARS:RETURN -3600 PRINT:PRINT -3620 IF (DPAYMENT*SINTEREST*IPAYMENTNUM*SYEARS)<>0 THEN GOSUB 4180 ELSE LET DPRINCIPAL=0 -3640 IF DPRINCIPAL=0 THEN GOTO 3720 -3660 PRINT " The calculated PRINCIPAL amount is: "; -3680 PRINT USING "$$###########.##";DPRINCIPAL -3700 GOSUB 1840:GOTO 3740 -3720 GOSUB 1880 -3740 GOSUB 1960 -3760 MENULIST$="MABCDH" -3780 GOSUB 1540 -3800 IF MENUNUM%=1 THEN GOTO 2660 ELSE LET MENUNUM%=MENUNUM%-1 -3820 ON MENUNUM% GOSUB 3860,3940,4020,4100,13360 -3840 GOTO 3240 -3860 REM ************************** ROUTINE TO GET DPAYMENT *** -3880 INPUT " Please enter the amount of regular payment.... ",DPAYMENT -3900 IF DPAYMENT<0 THEN GOSUB 2020:GOTO 3880 -3920 RETURN -3940 REM ************************** ROUTINE TO GET SINTEREST *** -3960 INPUT " Please enter the annual interest rate.... ",SINTEREST -3980 IF SINTEREST<0 THEN GOSUB 2020:GOTO 3960 -4000 RETURN -4020 REM ************************** ROUTINE TO GET IPAYMENTNUM *** -4040 INPUT " Please enter the number of payments per year.... ",IPAYMENTNUM -4060 IF IPAYMENTNUM<0 THEN GOSUB 2020:GOTO 4040 -4080 RETURN -4100 REM ************************** ROUTINE TO GET SYEARS *** -4120 INPUT " Please enter the term of the loan in years.... ",SYEARS -4140 IF SYEARS<0 THEN GOSUB 2020:GOTO 4120 -4160 RETURN -4180 REM ************************** ROUTINE TO CALCULATE PRINCIPAL ******* -4200 REM -4220 REM -4240 DTEMPSTORE=DPAYMENT*IPAYMENTNUM*(1-1/((SINTEREST/100)/IPAYMENTNUM+1)^(IPAYMENTNUM*SYEARS))/(SINTEREST/100) -4260 DPRINCIPAL=INT(DTEMPSTORE*100+.5)/100 -4280 RETURN -4300 REM ************************** ROUTINE TO GET DPRINCIPAL *** -4320 INPUT " Please enter the loan principal.... ",DPRINCIPAL -4340 IF DPRINCIPAL<0 THEN GOSUB 2020:GOTO 4320 -4360 RETURN -4380 REM *******************MENU CHOICE B***************************** -4400 PRINT CLS$; -4420 PRINT " REGULAR PAYMENT" -4440 PRINT " Calculates the amount of each payment." -4460 GOSUB 1920 -4480 PRINT " (A) ";:GOSUB 3420 -4500 PRINT " (B) ";:GOSUB 4520:GOTO 4560 -4520 PRINT "Amount of Principal: "; -4540 PRINT USING "$$#########.##";DPRINCIPAL:RETURN -4560 PRINT " (C) ";:GOSUB 3500 -4580 PRINT " (D) ";:GOSUB 3560 -4600 PRINT:PRINT -4620 IF (SINTEREST*DPRINCIPAL*IPAYMENTNUM*SYEARS)<>0 THEN GOSUB 4860 ELSE LET DPAYMENT=0 -4640 IF DPAYMENT=0 THEN GOTO 4720 -4660 PRINT " The calculated PAYMENT amount is: "; -4680 PRINT USING "$$############.##";DPAYMENT -4700 GOSUB 1840:GOTO 4740 -4720 GOSUB 1880 -4740 GOSUB 1960 -4760 MENULIST$="MABCDH" -4780 GOSUB 1540 -4800 IF MENUNUM%=1 THEN GOTO 2660 ELSE LET MENUNUM%=MENUNUM%-1 -4820 ON MENUNUM% GOSUB 3940,4300,4020,4100,13760 -4840 GOTO 4380 -4860 REM ************************** ROUTINE TO CALCULATE DPAYMENT *** -4880 DTEMPSTORE=((SINTEREST/100)*DPRINCIPAL/IPAYMENTNUM)/(1-1/((SINTEREST/100)/IPAYMENTNUM+1)^(IPAYMENTNUM*SYEARS)) -4900 DPAYMENT=INT(DTEMPSTORE*100+.5)/100 -4920 RETURN -4940 STOP -4960 REM *******************MENU CHOICE C***************************** -4980 PRINT CLS$; -5000 PRINT " LAST PAYMENT ON A LOAN" -5020 PRINT " Finds the final payment at the end of the term." -5040 GOSUB 1920 -5060 PRINT " (A) ";:GOSUB 3360 -5080 PRINT " (B) ";:GOSUB 4520 -5100 PRINT " (C) ";:GOSUB 3560 -5120 PRINT " (D) ";:GOSUB 3420 -5140 PRINT " (E) ";:GOSUB 3500 -5160 PRINT:PRINT -5180 IF (DPAYMENT*DPRINCIPAL*SYEARS*SINTEREST*IPAYMENTNUM)<>0 THEN GOSUB 5400 ELSE LET DLASTPAYMENT=0 -5200 IF DLASTPAYMENT=0 THEN GOTO 5280 -5220 PRINT " The calculated LAST PAYMENT amount is: "; -5240 PRINT USING "$$#############.##";DLASTPAYMENT -5260 GOSUB 1840:GOSUB 1960:GOTO 5300 -5280 GOSUB 1880:GOSUB 1960 -5300 MENULIST$="MABCDEH" -5320 GOSUB 1540 -5340 IF MENUNUM%=1 THEN GOTO 2660 ELSE LET MENUNUM%=MENUNUM%-1 -5360 ON MENUNUM% GOSUB 3860,4300,4100,3940,4020,13980 -5380 GOTO 4960 -5400 REM ************************* CALCULATION OF DLASTPAYMENT *** -5420 PRINT " Please wait. This calculation can take quite a while to run."; -5440 DBO=DPRINCIPAL -5460 SI=((SINTEREST/100)/IPAYMENTNUM)*100 -5480 IJ2=IPAYMENTNUM*SYEARS -5500 FOR IJ1=1 TO IJ2 -5520 IF DBO<0 THEN PRINT CHR$(13);SPC(75);CHR$(13);" The payment entered is too large. Press any key to RECALCULATE. ";:INPUT ANS$:GOSUB 4860:GOTO 4960 -5540 DBO=DBO-DPAYMENT+INT(DBO*SI+.5)*.01 -5560 NEXT IJ1 -5580 TEMPSTORE=INT((DPAYMENT+DBO)*100+.5)/100 -5600 DLASTPAYMENT=TEMPSTORE -5620 PRINT CHR$(13);SPC(70);CHR$(13); -5640 RETURN -5660 REM *******************MENU CHOICE D***************************** -5680 PRINT CLS$; -5700 PRINT " REMAINING BALANCE ON A LOAN" -5720 PRINT " Finds the balance after a specified number of payments." -5740 GOSUB 1920 -5760 PRINT " (A) ";:GOSUB 3360 -5780 PRINT " (B) ";:GOSUB 4520 -5800 PRINT " (C) ";:GOSUB 3500 -5820 PRINT " (D) ";:GOSUB 3420 -5840 PRINT " (E) ";:GOSUB 5900 -5860 PRINT " --- ";:GOSUB 3560 -5880 GOTO 5980 -5900 PRINT "Last Payment made (#,year):"; -5920 PRINT USING " ###";SLSTPAYMENT; -5940 PRINT ",";SLSTPAYMENTYEAR -5960 RETURN -5980 PRINT:PRINT -6000 IF (DPAYMENT*DPRINCIPAL*IPAYMENTNUM*SINTEREST*SLSTPAYMENT*SLSTPAYMENTYEAR)<>0 THEN GOSUB 6360 ELSE LET DREMAINING=0:GOTO 6080 -6020 PRINT " The calculated REMAINING BALANCE amount is: "; -6040 PRINT USING "$$#############.##";DREMAINING -6060 GOSUB 1840:GOSUB 1960:GOTO 6100 -6080 GOSUB 1880:GOSUB 1960 -6100 MENULIST$="MABCDEH" -6120 GOSUB 1540 -6140 IF MENUNUM%=1 THEN GOTO 2660 ELSE LET MENUNUM%=MENUNUM%-1 -6160 ON MENUNUM% GOSUB 3860,4300,4020,3940,6200,14260 -6180 GOTO 5660 -6200 REM ********************** ROUTINE TO GET SLSTPAYMENT & SLSTPAYMENTYEAR *** -6220 INPUT " Enter the number of the last payment made for this year.... ",SLSTPAYMENT -6240 IF SLSTPAYMENT<0 THEN GOSUB 2020:GOTO 6220 -6260 IF SLSTPAYMENT>IPAYMENTNUM THEN PRINT CHR$(7);:PRINT " This value cannot be greater than the number of payments per year. ":GOTO 6220 -6280 INPUT " Now enter the year number to calculate remaining balance.... ",SLSTPAYMENTYEAR -6300 IF SLSTPAYMENTYEAR<0 THEN GOSUB 2020:GOTO 6280 -6320 IF SLSTPAYMENTYEAR>SYEARS THEN PRINT CHR$(7);:PRINT " This value cannot be greater than the loan term. ":GOTO 6280 -6340 RETURN -6360 REM ******************* ROUTINE TO CALCULATE DREMAINING *** -6380 PRINT " Please wait. This calculation can take quite a while to run."; -6400 DBO=DPRINCIPAL -6420 SI=SINTEREST/100 -6440 SJ2=IPAYMENTNUM*(SLSTPAYMENTYEAR-1)+SLSTPAYMENT -6460 SI2=(SI/IPAYMENTNUM)*100 -6480 FOR SJ1=1 TO SJ2 -6500 DBO=DBO-DPAYMENT+INT(DBO*SI2+.5)*.01 -6520 NEXT SJ1 -6540 DREMAINING=INT(DBO*100+.5)/100 -6560 PRINT CHR$(13);SPC(75);CHR$(13); -6580 RETURN -6600 REM *******************MENU CHOICE E***************************** -6620 PRINT CLS$; -6640 PRINT " TERM OF A LOAN" -6660 PRINT " Finds the period of time needed to repay." -6680 GOSUB 1920 -6700 PRINT " (A) ";:GOSUB 3360 -6720 PRINT " (B) ";:GOSUB 4520 -6740 PRINT " (C) ";:GOSUB 3420 -6760 PRINT " (D) ";:GOSUB 3500 -6780 PRINT:PRINT -6800 IF (DPAYMENT*DPRINCIPAL*SINTEREST*IPAYMENTNUM)<>0 THEN GOSUB 7040 ELSE LET SYEARS=0:GOTO 6900 -6820 PRINT " The calculated TERM OF LOAN is: "; -6840 PRINT USING "####.#";SYEARS; -6860 PRINT " years" -6880 GOSUB 1840:GOSUB 1960:GOTO 6920 -6900 GOSUB 1880:GOSUB 1960 -6920 MENULIST$="MABCDH" -6940 GOSUB 1540 -6960 IF MENUNUM%=1 THEN GOTO 2660 ELSE LET MENUNUM%=MENUNUM%-1 -6980 ON MENUNUM% GOSUB 3860,4300,3940,4020,14520 -7000 GOTO 6600 -7020 STOP -7040 REM ********************** ROUTINE TO CALCULATE SYEARS *** -7060 DTEMPSTORE=DPAYMENT-(DPRINCIPAL*((SINTEREST*.01)/IPAYMENTNUM)) -7080 IF DTEMPSTORE<0 THEN 7160 -7100 SYEAR1=-(LOG(1-(DPRINCIPAL*(SINTEREST/100))/(IPAYMENTNUM*DPAYMENT))/(LOG(1+SINTEREST/100/IPAYMENTNUM)*IPAYMENTNUM)) -7120 SYEARS=INT(SYEAR1*10+.5)/10 -7140 RETURN -7160 REM --- COMPLAIN IF PAYMENT WILL NOT AMORTIZE LOAN -7180 PRINT CLS$:PRINT:PRINT:PRINT:PRINT -7200 DPAYMENT=(INT((DPRINCIPAL*((SINTEREST*.01)/IPAYMENTNUM))*100+.5)*.01)+.01 -7220 PRINT " WARNING" -7240 PRINT " THE PAYMENT ENTERED IS NOT SUFFICIENT TO AMORTIZE THIS LOAN." -7260 PRINT " THE MINIMUM PAYMENT NEEDED HAS BEEN CALCULATED AND ENTERED" -7280 PRINT " FOR YOU. IT IS: "; -7300 PRINT USING "$$###########.##";DPAYMENT -7320 PRINT -7340 PRINT " USE THE MAIN MENU IF YOU WANT TO CALCULATE A DIFFERENT AMOUNT." -7360 PRINT -7380 PRINT " PRESS ANY KEY TO CONTINUE....... "; -7400 INPUT ANS$ -7420 GOTO 6600 -7440 REM *******************MENU CHOICE F***************************** -7460 PRINT CLS$ -7480 PRINT " ANNUAL INTEREST RATE" -7500 PRINT " Finds the interest rate on a specific loan." -7520 GOSUB 1920 -7540 PRINT " (A) ";:GOSUB 3360 -7560 PRINT " (B) ";:GOSUB 3560 -7580 PRINT " (C) ";:GOSUB 4520 -7600 PRINT " (D) ";:GOSUB 3500 -7620 PRINT:PRINT -7640 IF (DPAYMENT*SYEARS*DPRINCIPAL*IPAYMENTNUM)<>0 THEN GOSUB 7860 ELSE LET SINTEREST=0:GOTO 7740 -7660 PRINT " The calculated INTEREST RATE is: "; -7680 PRINT USING " ###.##";SINTEREST; -7700 PRINT "%" -7720 GOSUB 1840:GOSUB 1960:GOTO 7760 -7740 GOSUB 1880:GOSUB 1960 -7760 MENULIST$="MABCDH" -7780 GOSUB 1540 -7800 IF MENUNUM%=1 THEN GOTO 2660 ELSE LET MENUNUM%=MENUNUM%-1 -7820 ON MENUNUM% GOSUB 3860,4100,4300,4020,14760 -7840 GOTO 7440 -7860 REM ******************* ROUTINE TO CALCULATE SINTEREST *** -7880 SINTEREST=13 -7900 PRINT " Please wait. This calculation can take a while to run."; -7920 SI2=0 -7940 DR1=(SINTEREST*.01*DPRINCIPAL/IPAYMENTNUM)/(1-1/((SINTEREST*.01/IPAYMENTNUM+1)^(IPAYMENTNUM*SYEARS))) -7960 DR1=INT(DR1*100+.5)/100 -7980 DI3=ABS(SINTEREST-SI2)/2 -8000 SI2=SINTEREST -8020 IF SINTEREST>=25.9 THEN PRINT CHR$(13);SPC(70);CHR$(13);:PRINT:PRINT:PRINT " The calculated INTEREST rate is in excess of 25%. This program cannot":PRINT " determine the exact rate. Press any key to return to the MAIN MENU. "; -8040 IF SINTEREST>=25.9 THEN INPUT ANS$:SINTEREST=25.5:GOTO 2720 -8060 IF (DR1-DPAYMENT)<.02 AND (DR1-DPAYMENT)>-.02 THEN PRINT CHR$(13);SPC(70);CHR$(13);:RETURN -8080 IF DR1>DPAYMENT THEN 8140 -8100 SINTEREST=SINTEREST+DI3 -8120 GOTO 7940 -8140 SINTEREST=SINTEREST-DI3 -8160 GOTO 7940 -8180 REM *******************MENU CHOICE G***************************** -8200 IF PRINTER=1 THEN LPRINT CHR$(12):PRINTER=0 -8220 TEST=0:DINTTOTAL=0:DPRINTOTAL=0:DINTYEAR=0:DPRINYEAR=0 -8240 PRINT CLS$ -8260 PRINT " LOAN AMORTIZATION TABLE" -8280 PRINT " Provides complete loan progress chart." -8300 GOSUB 1920 -8320 PRINT " (A) ";:GOSUB 3360 -8340 PRINT " (B) ";:GOSUB 3560 -8360 PRINT " (C) ";:GOSUB 4520 -8380 PRINT " (D) ";:GOSUB 3420 -8400 PRINT " --- ";:GOSUB 3500 -8420 REM -8440 PRINT:PRINT -8460 IF TEST=1 THEN GOTO 8500 -8480 IF (DPAYMENT*SYEARS*DPRINCIPAL*SINTEREST*IPAYMENTNUM)<>0 THEN GOTO 8640 ELSE LET TEST=0 -8500 PRINT " Choose from the above menu the item that you would like to change.":GOSUB 1960 -8520 MENULIST$="MABCDH" -8540 GOSUB 1540 -8560 IF MENUNUM%=6 THEN GOSUB 15000:GOTO 8180 -8580 IF MENUNUM%=1 THEN GOTO 2660 ELSE LET MENUNUM%=MENUNUM%-1 -8600 ON MENUNUM% GOTO 4380,6600,3240,7440 -8620 LET TEST=0:GOTO 8180 -8640 REM -8660 PRINT " THE VARIABLES MUST BE PRECISELY CALCULATED FOR THE TABLE TO BE CORRECT." -8680 PRINT : PRINT " Do you want to change any of the above VARIABLES?" -8700 PRINT " ENTER (Y)ES or (N)O or ..."; : PRINT -8720 MENULIST$="MYNH" -8740 GOSUB 1960 -8760 GOSUB 1540 -8780 IF MENUNUM%=4 THEN GOSUB 15000:GOTO 8180 -8800 IF MENUNUM%=1 THEN GOTO 2660 ELSE LET MENUNUM%=MENUNUM%-1 -8820 ON MENUNUM% GOTO 8840,8900 -8840 LET TEST=1:GOTO 8240 -8860 REM -8880 REM -8900 REM ********************BEGINNING OF AMORTIZATION ROUTINE ***** -8920 PRINT CLS$ -8940 SCOUNTER=0 -8960 LET TEST=0 -8980 PRINT " Do you want this run to go to the printer? (Enter Y or N) "; -9000 GOSUB 1740 -9020 ON MENUNUM% GOTO 9040,9080 -9040 LET PRINTER=1:REM-- SET PRINTER FLAG TO ON -9060 GOTO 9100 -9080 LET PRINTER=0:REM-- SET PRINTER FLAG OFF -9100 PRINT:PRINT:PRINT " Do you want to display annual totals only? (Enter Y or N) ";:GOSUB 1740:ON MENUNUM% GOTO 9120,9160 -9120 LET IDISPLAY=1 -9140 GOTO 9180 -9160 LET IDISPLAY=0 -9180 REM - INITIALIZE VARIABLES -9200 GOSUB 13100 -9220 SI=(SINTEREST*.01)/IPAYMENTNUM:REM CONVERT INTEREST TO DECIMAL -9240 IPAGE=0 -9260 GOSUB 10020 -9280 DBO=DPRINCIPAL -9300 DPAY=(INT(DPAYMENT*100+.5))*.01 -9320 SJ2=IPAYMENTNUM*SYEARS -9340 SI2=(SINTEREST/IPAYMENTNUM) -9360 SCURRENTYEAR=1 -9380 MENUNUM%=0 -9400 REM ************************** HERE'S THE LOOP ********* -9420 FOR SJ1=1 TO SJ2 -9440 DI3=(INT(DBO*SI2+.5))*.01 -9460 IF DBO=21 THEN GOSUB 10740:ON MENUNUM% GOTO 9620,8180,9580 -9560 GOTO 9620 -9580 IF SCOUNTER>=21 THEN GOSUB 12100 -9600 IF MENUNUM%=2 GOTO 8180 -9620 DINTYEAR=DINTYEAR+DI3:DPRINYEAR=DPRINYEAR+DBI -9640 GOSUB 10400 -9660 IF SJ1=SCURRENTYEAR*IPAYMENTNUM THEN DINTTOTAL=DINTTOTAL+DINTYEAR:DPRINTOTAL=DPRINTOTAL+DPRINYEAR:GOSUB 11780:SCURRENTYEAR=SCURRENTYEAR+1 -9680 IF PRINTER=1 AND SLCOUNTER>=60 THEN GOSUB 12940:GOSUB 12460 -9700 NEXT SJ1:REM ***************** END OF LOOP ************************ -9720 IF SJ1<>SCURRENTYEAR*IPAYMENTNUM THEN DINTTOTAL=DINTTOTAL+DINTYEAR:DPRINTOTAL=DPRINTOTAL+DPRINYEAR -9740 IF SCOUNTER>=21 THEN GOSUB 10740:ON MENUNUM% GOTO 9760,8180,9760 ESLE GOSUB 12100 -9760 PRINT:PRINT "*TOTALS: "; -9780 IF PRINTER=0 THEN GOTO 9840 -9800 IF SLCOUNTER>=60 THEN GOSUB 12940:GOSUB 12460 -9820 LPRINT "*TOTALS: "; -9840 PRINT USING "$$###########.##";DINTTOTAL; -9860 IF PRINTER=0 THEN GOTO 9900 -9880 LPRINT USING "$$###########.##";DINTTOTAL; -9900 SCOUNTER=SCOUNTER+2 -9920 PRINT USING " $$###########.##";DPRINTOTAL -9940 IF PRINTER=0 THEN GOTO 10000 -9960 LPRINT USING " $$###########.##";DPRINTOTAL -9980 SLCOUNTER=SLCOUNTER+2 -10000 GOTO 11480 -10020 REM - ROUTINE TO SET UP SCREEN DISPLAY -10040 IF PRINTER=1 THEN GOSUB 10960 -10060 PRINT CLS$; -10080 PRINT " ********************* LOAN AMORTIZATION TABLE ***********************" -10100 SCOUNTER=SCOUNTER+4 -10120 PRINT " PRINCIPAL AMOUNT: "; -10140 PRINT USING "$$###########.##";DPRINCIPAL; -10160 PRINT " PAYMENT AMOUNT: "; -10180 PRINT USING "$$#########.##";DPAYMENT -10200 PRINT " TERM IN YEARS: "; -10220 PRINT USING " ###.# ";SYEARS; -10240 PRINT " INTEREST RATE: "; -10260 PRINT USING " ###.##";SINTEREST;:PRINT "%" -10280 PRINT " ***********************************************************************" -10300 REM - HEADER FOR SCREEN DISPLAY PAGE -10320 PRINT " PAYMENT # INTEREST PRINCIPAL BALANCE AFTER PAYMENT" -10340 PRINT " -----------------------------------------------------------------------" -10360 LET SCOUNTER=SCOUNTER+2 -10380 RETURN -10400 REM - SCREEN DISPLAY FOR EACH PAYMENT -10420 IF IDISPLAY=1 OR SCURRENTYEAR2 THEN GOSUB 10060 -10940 RETURN -10960 REM - SUBROUTINE TO SET UP PRINTER AND CHECK TO SEE IF IT'S READY -10980 PRINT -11000 PRINT " NOW CHECKING TO SEE IF THE PRINTER IS READY TO ACCEPT PRINTOUT." -11020 PRINT -11040 PRINT "PRINTER IS NOT READY.... PLEASE CHECK IT. PROCESSING CANNOT CONTINUE.";:LPRINT CHR$(13); -11060 PRINT CHR$(13);SPC(70); -11080 PRINT:PRINT " THE PRINTER IS NOW READY..... HERE WE GO!" -11100 FOR HI=1 TO 300 -11120 NEXT HI -11140 PRINT CLS$:PRINT:PRINT -11160 PRINT "WHEN ENTERING THE ITEMS BELOW, DO NOT USE COMMAS. PRESS RETURN WHEN DONE.":PRINT -11180 PRINT " PRESS THE RETURN TO LEAVE AN ENTRY WITHOUT CHANGING IT.":PRINT:PRINT -11200 PRINT " (These entries are for the title block on the printout only.":PRINT " You may enter anything you like, but there must be something entered.)":PRINT -11220 PRINT " Enter a title for this report..... ";:PRINT LABEL$;:PRINT CHR$(13);:PRINT " Enter a title for this report..... ";:INPUT "",LABEL1$ -11240 IF LABEL1$="" THEN GOTO 11260 ELSE LABEL$=LABEL1$ -11260 PRINT:PRINT " Enter today's date..... ";:PRINT DATE$;:PRINT CHR$(13);:PRINT " Enter today's date..... ";:INPUT "",DATE1$ -11280 IF DATE1$="" THEN GOTO 11300 ELSE DATE$=DATE1$ -11300 PRINT:PRINT " Enter the name of the recipient of this report... ";:PRINT PERSON$;:PRINT CHR$(13);:PRINT " Enter the name of the recipient of this report... ";:INPUT "",PERSON1$ -11320 IF PERSON1$="" THEN GOTO 11340 ELSE PERSON$=PERSON1$ -11340 PRINT:PRINT " Are the above entries correct? (Y or N) ";:GOSUB 1740:ON MENUNUM% GOTO 11360,11140 -11360 REM -11380 LPRINT:PRINT CLS$:PRINT:PRINT:PRINT " NOW SENDING TITLE BLOCK TO PRINTER.... PLEASE STAND BY." -11400 LPRINT " ";LABEL$ -11420 LPRINT:LPRINT " ";" prepared for: ";PERSON$;" on ";DATE$ -11440 LPRINT:GOSUB 12460:SLCOUNTER=11 -11460 RETURN -11480 REM -11500 ITEMPSTORE=22-SCOUNTER -11520 FOR ICOUNT=1 TO ITEMPSTORE -11540 PRINT -11560 NEXT ICOUNT -11580 IF PRINTER=1 THEN GOSUB 12940 -11600 PRINT " PRESS (Y) TO RETURN TO MENU." -11620 MENULIST$="Y" -11640 GOSUB 1540 -11660 REM -11680 GOTO 8180 -11700 STOP -11720 REM -11740 REM -11760 REM -11780 REM - SUBROUTINE FOR PRINTING YEARLY TOTALS -11800 IF SCURRENTYEAR=21 AND MENUNUM%<>3 THEN GOSUB 10740 -11840 IF PRINTER=1 THEN GOSUB 12760 -11860 IF SCOUNTER>=21 AND MENUNUM%=3 THEN GOSUB 12100 -11880 IF IDISPLAY<>1 THEN PRINT:SCOUNTER=SCOUNTER+1 -11900 PRINT "*YEAR:"; -11920 PRINT USING "###";SCURRENTYEAR; -11940 PRINT USING "$$###########.##";DINTYEAR; -11960 PRINT USING " $$###########.##";DPRINYEAR; -11980 PRINT USING " $$#############.##";DBO -12000 SCOUNTER=SCOUNTER+1 -12020 IF SCOUNTER<21 AND IDISPLAY<>1 THEN PRINT:SCOUNTER=SCOUNTER+1 -12040 IF SJ1<>SJ2 AND SCOUNTER<21 THEN PRINT:SCOUNTER=SCOUNTER+1 -12060 DINTYEAR=0:DPRINYEAR=0 -12080 RETURN -12100 REM ******************** ROUTINE TO DISABLE SCREEN PAUSE *********** -12120 TEST$=INKEY$ -12140 IF TEST$=CHR$(13) THEN GOTO 12300 -12160 PRINT CHR$(13);SPC(75);CHR$(13); -12180 SCOUNTER=0 -12200 PRINT " ******** SCREEN PAUSE DISABLED. PRESS RETURN TO ENABLE. *******"; -12220 FOR ILOOP=1 TO 800 -12240 NEXT ILOOP -12260 TEST$=INKEY$ -12280 IF TEST$<>CHR$(13) THEN GOSUB 10060:RETURN -12300 SCOUNTER=0 -12320 PRINT CHR$(13);SPC(75);CHR$(13); -12340 PRINT " SELECT (C)ONTINUE OR (A)BORT " -12360 MENULIST$="CA" -12380 GOSUB 1540 -12400 IF MENUNUM%=1 THEN GOSUB 10060:MENUNUM%=0:RETURN -12420 IF MENUNUM%=2 THEN RETURN -12440 STOP -12460 REM ----------------ROUTINE FOR PRINTER PAGE HEADER----------------- -12480 LPRINT " ********************* LOAN AMORTIZATION TABLE ***********************" -12500 LPRINT " PRINCIPAL AMOUNT: "; -12520 LPRINT USING "$$###########.##";DPRINCIPAL; -12540 LPRINT " PAYMENT AMOUNT: "; -12560 LPRINT USING "$$#########.##";DPAYMENT -12580 LPRINT " TERM IN YEARS: "; -12600 LPRINT USING " ###.# ";SYEARS; -12620 LPRINT " INTEREST RATE: "; -12640 LPRINT USING " ###.##";SINTEREST;:LPRINT "%" -12660 LPRINT " ***********************************************************************" -12680 LPRINT " PAYMENT # INTEREST PRINCIPAL BALANCE AFTER PAYMENT" -12700 LPRINT " -----------------------------------------------------------------------" -12720 LET SLCOUNTER=6 -12740 RETURN -12760 REM --------------------------- ROUTINE TO LPRINT YEARLY TOTALS ----- -12780 IF IDISPLAY=1 THEN LPRINT:SLCOUNTER=SLCOUNTER+1 -12800 LPRINT "*YEAR:"; -12820 LPRINT USING "###";SCURRENTYEAR; -12840 LPRINT USING "$$###########.##";DINTYEAR; -12860 LPRINT USING " $$###########.##";DPRINYEAR; -12880 LPRINT USING " $$#############.##";DBO -12900 LPRINT:SLCOUNTER=SLCOUNTER+2 -12920 RETURN -12940 REM ---------- ROUTINE TO PUT PAGE NUMBERS ON PRINTOUT -12960 REM -12980 IPAGE=IPAGE+1 -13000 FOR PAGECOUNT=1 TO (62-SLCOUNTER) -13020 LPRINT:NEXT PAGECOUNT -13040 LPRINT " ";IPAGE -13060 LPRINT CHR$(12) -13080 RETURN -13100 REM SUBROUTINE FOR SETTING FLAG FOR FIRST YEAR OF PRINTOUT -13120 PRINT:PRINT:PRINT " Do you want to start with a year other than 1? (Y or N) "; -13140 GOSUB 1740 -13160 IF MENUNUM%=2 THEN ISTART=0:RETURN -13180 INPUT " Please enter the year you want to start with..... ",ISTART -13200 IF ISTART>SYEARS THEN LET ISTART=SYEARS -13220 RETURN -13240 REM *******************MENU CHOICE H***************************** -13260 PRINT " From the above menu, please select the item you need help with." -13280 MENULIST$="ABCDEFGX" -13300 GOSUB 1540 -13320 ON MENUNUM% GOSUB 13360,13760,13980,14260,14520,14760,15000,15500 -13340 GOTO 1320 -13360 REM ---- MENU SELECTION A -13380 PRINT CLS$ -13400 PRINT -13420 PRINT " *** LOAN PRINCIPAL AMOUNT ***" -13440 PRINT -13460 PRINT " This module will calculate the amount of money initially borrowed." -13480 PRINT " You must enter the amount of the payments, the interest rate, the" -13500 PRINT " number of payments within a year and the number of years over which" -13520 PRINT " the loan is going to be amortized." -13540 PRINT:GOSUB 13560:RETURN -13560 PRINT " Using the menu, select each item that needs to be entered. As soon" -13580 PRINT " as you've entered the needed variables, the program will perform the" -13600 PRINT " calculation and display the results. To try a different variable," -13620 PRINT " use the menu to select which one you want to change. Enter the new" -13640 PRINT " value and the calculation will be redone automatically for you." -13660 PRINT -13680 PRINT " You cannot enter a negative number for any variable in this program." -13700 PRINT " Do not use any commas when entering variables. Press the return" -13720 PRINT " after entering each variable." -13740 GOSUB 15540:RETURN -13760 REM HELP FOR MENU CHOICE B -13780 PRINT CLS$; -13800 PRINT -13820 PRINT " ** REGULAR PAYMENT **" -13840 PRINT -13860 PRINT " This module will calculate the amount of the regular payment needed to" -13880 PRINT " pay off a loan over a given time. You must enter the amount borrowed," -13900 PRINT " the interest rate, the number of payments per year and the number of years" -13920 PRINT " or term of the loan." -13940 PRINT -13960 GOSUB 13560:RETURN -13980 REM HELP FOR ITEM C -14000 PRINT CLS$; -14020 PRINT -14040 PRINT " ** LAST PAYMENT ON A LOAN **" -14060 PRINT -14080 PRINT " Because of rounding errors, the last payment on a loan is usually slightly" -14100 PRINT " different than the regular payment. This module actually does a com-" -14120 PRINT " plete loan amortization table in memory and calculates the exact amount" -14140 PRINT " of the final payment. You must enter the regular payment, the principal," -14160 PRINT " the term (in years) the interest rate and the number of payments per" -14180 PRINT " year. If any of these variables need to be calculated, use the other" -14200 PRINT " modules first and then select this module from the MAIN MENU." -14220 PRINT -14240 GOSUB 13560:RETURN -14260 REM HELP FOR MENU ITEM D -14280 PRINT CLS$ -14300 PRINT -14320 PRINT " ** REMAINING BALANCE ON A LOAN **" -14340 PRINT -14360 PRINT " This module will calculate the amount remaining on the principal of a" -14380 PRINT " loan after a specific number of payments have been made. Typically," -14400 PRINT " this would be needed in the event that it was desired to pay off a loan" -14420 PRINT " early. The module actually does a loan amortization table in memory" -14440 PRINT " and stops at the payment you have specified. The balance of the -14460 PRINT " PRINCIPAL is then displayed. -14480 PRINT -14500 GOSUB 13560:RETURN -14520 REM HELP FOR MENU ITEM E -14540 PRINT CLS$ -14560 PRINT -14580 PRINT " ** TERM OF A LOAN ** -14600 PRINT -14620 PRINT " This module will determine the time (in years) needed to repay a loan" -14640 PRINT " for a given set of variables. For example, this could be used to see -14660 PRINT " what effect changing the payment or the interest would have on the -14680 PRINT " period required to repay the loan. The program will not allow an entry -14700 PRINT " that would result in the loan being under-amortized such as would happen -14720 PRINT " in the event that the payment was too small to ever repay the loan. -14740 PRINT:GOSUB 13560:RETURN -14760 REM HELP FOR MENU ITEM F -14780 PRINT CLS$ -14800 PRINT -14820 PRINT " ** ANNUAL INTEREST RATE ON A LOAN ** -14840 PRINT -14860 PRINT " This module will calculate the interest rate on a loan given a specific -14880 PRINT " set of variables. This is useful if the interest rate is unknown or if -14900 PRINT " it is desired to determine the impact on interest of changes in other -14920 PRINT " variables. The program cannot calculate interest rates that are greater -14940 PRINT " than 25%. -14960 PRINT -14980 GOSUB 13560:RETURN -15000 REM HELP FOR ITEM G -15020 PRINT CLS$; -15040 PRINT " ** LOAN AMORTIZATION TABLE ** -15060 PRINT -15080 PRINT " This module will show the amount of interest and principal paid for -15100 PRINT " each payment on a loan. This listing can be displayed on the console -15120 PRINT " screen only or it can be listed to a printer simultaneously. Since -15140 PRINT " the table can only be accurate if the variables are precisely calculated, -15160 PRINT " you have to use other modules to make changes to the variables before -15180 PRINT " you can run the amortization table module. Selecting an item from -15200 PRINT " the menu to be changed will automatically chain you into the appropriate -15220 PRINT " module. -15240 PRINT -15260 PRINT " If the printer is selected, you will be asked for information to go -15280 PRINT " on the title block on the printer. This information will be saved -15300 PRINT " and does not have to be reentered if you go to another module and then -15320 PRINT " return to the amortization module. -15340 PRINT -15360 PRINT " You should check the printer to be sure it is ready prior to trying -15380 PRINT " to send a listing to the printer. If the printer is not ready, the -15400 PRINT " program will display a message and the program will stop. If the" -15420 PRINT " printer cannot be made ready, you will have to abort the program using" -15440 PRINT " the ^C key." -15460 PRINT -15480 GOSUB 15540:RETURN -15500 REM -15520 REM -15540 PRINT:PRINT " PRESS ANY KEY TO RETURN TO THE MENU. ";:INPUT ANS$:RETURN -15560 REM -15580 REM *******************MENU CHOICE X***************************** -15600 PRINT CLS$ -15620 PRINT -15640 PRINT -15660 PRINT " RETURN TO OPERATING SYSTEM? (Y OR N)" -15680 MENULIST$="YN" -15700 GOSUB 1540 -15720 ON MENUNUM% GOTO 15760,2660 -15740 REM -15760 PRINT -15780 PRINT -15800 PRINT -15820 PRINT " Now returning control to the operating system." -15840 PRINT -15860 SYSTEM -15880 REM "L" TEST LOAD OPTION -15900 DPRINCIPAL=15000 -15920 SINTEREST=8 -15940 DPAYMENT=263 -15960 SYEARS=6 -15980 IPAYMENTNUM=12 -16000 PRINT " ******** NOW LOADING TEST VALUES INTO VARIABLES *******"; -16020 FOR G=1 TO 200 -16040 NEXT G -16060 PRINT CHR$(13);SPC(70);CHR$(13); -16080 MENULIST$="ABCDEFGHX" -16100 GOSUB 1580 -16120 GOTO 3220 -20000 REM ----------------------------------------------------------------------- -20010 REM Changed ANS$=INPUT$(1) to INPUT ANS$ -29999 END diff --git a/bwbtest/M80/loan2.run b/bwbtest/M80/loan2.run deleted file mode 100644 index 7c05a30..0000000 --- a/bwbtest/M80/loan2.run +++ /dev/null @@ -1,1065 +0,0 @@ - * - - *************** MAIN MENU *************** - This is a program for LOAN CALCULATIONS. Please select the - module you would like to run below. - - (Press the corresponding letter from the menu.) - - (A) LOAN PRINCIPAL AMOUNT - (B) REGULAR LOAN PAYMENT AMOUNT - (C) LAST PAYMENT ON A LOAN - (D) REMAINING BALANCE ON A LOAN - (E) TERM OF A LOAN - (F) ANNUAL INTEREST RATE ON A LOAN - (G) LOAN AMORTIZATION TABLE - - (H)ELP-- Choose this for an explanation of the modules above. - - (X) EXIT BACK TO THE OPERATING SYSTEM - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? A -A - PRINCIPAL ON A LOAN - Calculates an initial amount borrowed. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $0.00 - (B) Annual Interest rate: 0.00% - (C) Payments per Year: 0 - (D) Number of Years: 0.0 - - - Please enter each missing variable using the menu to select each item. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? A -A -e enter the amount of regular payment.... 1000 - * PRINCIPAL ON A LOAN - Calculates an initial amount borrowed. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Annual Interest rate: 0.00% - (C) Payments per Year: 0 - (D) Number of Years: 0.0 - - - Please enter each missing variable using the menu to select each item. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? B -B -e enter the annual interest rate.... 3.5 - * PRINCIPAL ON A LOAN - Calculates an initial amount borrowed. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Annual Interest rate: 3.50% - (C) Payments per Year: 0 - (D) Number of Years: 0.0 - - - Please enter each missing variable using the menu to select each item. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? C -C -e enter the number of payments per year.... 12 - * PRINCIPAL ON A LOAN - Calculates an initial amount borrowed. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Annual Interest rate: 3.50% - (C) Payments per Year: 12 - (D) Number of Years: 0.0 - - - Please enter each missing variable using the menu to select each item. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? D -D -e enter the term of the loan in years.... 30 - * PRINCIPAL ON A LOAN - Calculates an initial amount borrowed. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Annual Interest rate: 3.50% - (C) Payments per Year: 12 - (D) Number of Years: 30.0 - - - The calculated PRINCIPAL amount is: $222694.98 - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? H -H - - *** LOAN PRINCIPAL AMOUNT *** - - This module will calculate the amount of money initially borrowed. - You must enter the amount of the payments, the interest rate, the - number of payments within a year and the number of years over which - the loan is going to be amortized. - - Using the menu, select each item that needs to be entered. As soon - as you've entered the needed variables, the program will perform the - calculation and display the results. To try a different variable, - use the menu to select which one you want to change. Enter the new - value and the calculation will be redone automatically for you. - - You cannot enter a negative number for any variable in this program. - Do not use any commas when entering variables. Press the return - after entering each variable. - - PRESS ANY KEY TO RETURN TO THE MENU. ? - * PRINCIPAL ON A LOAN - Calculates an initial amount borrowed. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Annual Interest rate: 3.50% - (C) Payments per Year: 12 - (D) Number of Years: 30.0 - - - The calculated PRINCIPAL amount is: $222694.98 - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? M -M - - *************** MAIN MENU *************** - This is a program for LOAN CALCULATIONS. Please select the - module you would like to run below. - - (Press the corresponding letter from the menu.) - - (A) LOAN PRINCIPAL AMOUNT - (B) REGULAR LOAN PAYMENT AMOUNT - (C) LAST PAYMENT ON A LOAN - (D) REMAINING BALANCE ON A LOAN - (E) TERM OF A LOAN - (F) ANNUAL INTEREST RATE ON A LOAN - (G) LOAN AMORTIZATION TABLE - - (H)ELP-- Choose this for an explanation of the modules above. - - (X) EXIT BACK TO THE OPERATING SYSTEM - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? B -B - REGULAR PAYMENT - Calculates the amount of each payment. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Annual Interest rate: 3.50% - (B) Amount of Principal: $222694.98 - (C) Payments per Year: 12 - (D) Number of Years: 30.0 - - - The calculated PAYMENT amount is: $1000.00 - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? H -H - ** REGULAR PAYMENT ** - - This module will calculate the amount of the regular payment needed to - pay off a loan over a given time. You must enter the amount borrowed, - the interest rate, the number of payments per year and the number of years - or term of the loan. - - Using the menu, select each item that needs to be entered. As soon - as you've entered the needed variables, the program will perform the - calculation and display the results. To try a different variable, - use the menu to select which one you want to change. Enter the new - value and the calculation will be redone automatically for you. - - You cannot enter a negative number for any variable in this program. - Do not use any commas when entering variables. Press the return - after entering each variable. - - PRESS ANY KEY TO RETURN TO THE MENU. ? - * REGULAR PAYMENT - Calculates the amount of each payment. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Annual Interest rate: 3.50% - (B) Amount of Principal: $222694.98 - (C) Payments per Year: 12 - (D) Number of Years: 30.0 - - - The calculated PAYMENT amount is: $1000.00 - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? M -M - - *************** MAIN MENU *************** - This is a program for LOAN CALCULATIONS. Please select the - module you would like to run below. - - (Press the corresponding letter from the menu.) - - (A) LOAN PRINCIPAL AMOUNT - (B) REGULAR LOAN PAYMENT AMOUNT - (C) LAST PAYMENT ON A LOAN - (D) REMAINING BALANCE ON A LOAN - (E) TERM OF A LOAN - (F) ANNUAL INTEREST RATE ON A LOAN - (G) LOAN AMORTIZATION TABLE - - (H)ELP-- Choose this for an explanation of the modules above. - - (X) EXIT BACK TO THE OPERATING SYSTEM - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? C -C - LAST PAYMENT ON A LOAN - Finds the final payment at the end of the term. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Amount of Principal: $222694.98 - (C) Number of Years: 30.0 - (D) Annual Interest rate: 3.50% - (E) Payments per Year: 12 - - - Please wait. This calculation can take quite a while to run. - - The calculated LAST PAYMENT amount is: $1000.20 - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? H -H - ** LAST PAYMENT ON A LOAN ** - - Because of rounding errors, the last payment on a loan is usually slightly - different than the regular payment. This module actually does a com- - plete loan amortization table in memory and calculates the exact amount - of the final payment. You must enter the regular payment, the principal, - the term (in years) the interest rate and the number of payments per - year. If any of these variables need to be calculated, use the other - modules first and then select this module from the MAIN MENU. - - Using the menu, select each item that needs to be entered. As soon - as you've entered the needed variables, the program will perform the - calculation and display the results. To try a different variable, - use the menu to select which one you want to change. Enter the new - value and the calculation will be redone automatically for you. - - You cannot enter a negative number for any variable in this program. - Do not use any commas when entering variables. Press the return - after entering each variable. - - PRESS ANY KEY TO RETURN TO THE MENU. ? - * LAST PAYMENT ON A LOAN - Finds the final payment at the end of the term. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Amount of Principal: $222694.98 - (C) Number of Years: 30.0 - (D) Annual Interest rate: 3.50% - (E) Payments per Year: 12 - - - Please wait. This calculation can take quite a while to run. - - The calculated LAST PAYMENT amount is: $1000.20 - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? M -M - - *************** MAIN MENU *************** - This is a program for LOAN CALCULATIONS. Please select the - module you would like to run below. - - (Press the corresponding letter from the menu.) - - (A) LOAN PRINCIPAL AMOUNT - (B) REGULAR LOAN PAYMENT AMOUNT - (C) LAST PAYMENT ON A LOAN - (D) REMAINING BALANCE ON A LOAN - (E) TERM OF A LOAN - (F) ANNUAL INTEREST RATE ON A LOAN - (G) LOAN AMORTIZATION TABLE - - (H)ELP-- Choose this for an explanation of the modules above. - - (X) EXIT BACK TO THE OPERATING SYSTEM - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? D -D - REMAINING BALANCE ON A LOAN - Finds the balance after a specified number of payments. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Amount of Principal: $222694.98 - (C) Payments per Year: 12 - (D) Annual Interest rate: 3.50% - (E) Last Payment made (#,year): 0, 0 - --- Number of Years: 30.0 - - - Please enter each missing variable using the menu to select each item. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? E -E - the number of the last payment made for this year.... 6 - Now enter the year number to calculate remaining balance.... 5 - * REMAINING BALANCE ON A LOAN - Finds the balance after a specified number of payments. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Amount of Principal: $222694.98 - (C) Payments per Year: 12 - (D) Annual Interest rate: 3.50% - (E) Last Payment made (#,year): 6, 5 - --- Number of Years: 30.0 - - - Please wait. This calculation can take quite a while to run. - - The calculated REMAINING BALANCE amount is: $202229.89 - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? H -H - - ** REMAINING BALANCE ON A LOAN ** - - This module will calculate the amount remaining on the principal of a - loan after a specific number of payments have been made. Typically, - this would be needed in the event that it was desired to pay off a loan - early. The module actually does a loan amortization table in memory - and stops at the payment you have specified. The balance of the - PRINCIPAL is then displayed. - - Using the menu, select each item that needs to be entered. As soon - as you've entered the needed variables, the program will perform the - calculation and display the results. To try a different variable, - use the menu to select which one you want to change. Enter the new - value and the calculation will be redone automatically for you. - - You cannot enter a negative number for any variable in this program. - Do not use any commas when entering variables. Press the return - after entering each variable. - - PRESS ANY KEY TO RETURN TO THE MENU. ? - * REMAINING BALANCE ON A LOAN - Finds the balance after a specified number of payments. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Amount of Principal: $222694.98 - (C) Payments per Year: 12 - (D) Annual Interest rate: 3.50% - (E) Last Payment made (#,year): 6, 5 - --- Number of Years: 30.0 - - - Please wait. This calculation can take quite a while to run. - - The calculated REMAINING BALANCE amount is: $202229.89 - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? M -M - - *************** MAIN MENU *************** - This is a program for LOAN CALCULATIONS. Please select the - module you would like to run below. - - (Press the corresponding letter from the menu.) - - (A) LOAN PRINCIPAL AMOUNT - (B) REGULAR LOAN PAYMENT AMOUNT - (C) LAST PAYMENT ON A LOAN - (D) REMAINING BALANCE ON A LOAN - (E) TERM OF A LOAN - (F) ANNUAL INTEREST RATE ON A LOAN - (G) LOAN AMORTIZATION TABLE - - (H)ELP-- Choose this for an explanation of the modules above. - - (X) EXIT BACK TO THE OPERATING SYSTEM - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? E -E - TERM OF A LOAN - Finds the period of time needed to repay. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Amount of Principal: $222694.98 - (C) Annual Interest rate: 3.50% - (D) Payments per Year: 12 - - - The calculated TERM OF LOAN is: 30.0 years - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? H -H - - ** TERM OF A LOAN ** - - This module will determine the time (in years) needed to repay a loan - for a given set of variables. For example, this could be used to see - what effect changing the payment or the interest would have on the - period required to repay the loan. The program will not allow an entry - that would result in the loan being under-amortized such as would happen - in the event that the payment was too small to ever repay the loan. - - Using the menu, select each item that needs to be entered. As soon - as you've entered the needed variables, the program will perform the - calculation and display the results. To try a different variable, - use the menu to select which one you want to change. Enter the new - value and the calculation will be redone automatically for you. - - You cannot enter a negative number for any variable in this program. - Do not use any commas when entering variables. Press the return - after entering each variable. - - PRESS ANY KEY TO RETURN TO THE MENU. ? - * TERM OF A LOAN - Finds the period of time needed to repay. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Amount of Principal: $222694.98 - (C) Annual Interest rate: 3.50% - (D) Payments per Year: 12 - - - The calculated TERM OF LOAN is: 30.0 years - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? M -M - - *************** MAIN MENU *************** - This is a program for LOAN CALCULATIONS. Please select the - module you would like to run below. - - (Press the corresponding letter from the menu.) - - (A) LOAN PRINCIPAL AMOUNT - (B) REGULAR LOAN PAYMENT AMOUNT - (C) LAST PAYMENT ON A LOAN - (D) REMAINING BALANCE ON A LOAN - (E) TERM OF A LOAN - (F) ANNUAL INTEREST RATE ON A LOAN - (G) LOAN AMORTIZATION TABLE - - (H)ELP-- Choose this for an explanation of the modules above. - - (X) EXIT BACK TO THE OPERATING SYSTEM - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? F -F - ANNUAL INTEREST RATE - Finds the interest rate on a specific loan. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Number of Years: 30.0 - (C) Amount of Principal: $222694.98 - (D) Payments per Year: 12 - - - Please wait. This calculation can take a while to run. - - The calculated INTEREST RATE is: 3.50% - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? H -H - - ** ANNUAL INTEREST RATE ON A LOAN ** - - This module will calculate the interest rate on a loan given a specific - set of variables. This is useful if the interest rate is unknown or if - it is desired to determine the impact on interest of changes in other - variables. The program cannot calculate interest rates that are greater - than 25%. - - Using the menu, select each item that needs to be entered. As soon - as you've entered the needed variables, the program will perform the - calculation and display the results. To try a different variable, - use the menu to select which one you want to change. Enter the new - value and the calculation will be redone automatically for you. - - You cannot enter a negative number for any variable in this program. - Do not use any commas when entering variables. Press the return - after entering each variable. - - PRESS ANY KEY TO RETURN TO THE MENU. ? - * - ANNUAL INTEREST RATE - Finds the interest rate on a specific loan. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Number of Years: 30.0 - (C) Amount of Principal: $222694.98 - (D) Payments per Year: 12 - - - Please wait. This calculation can take a while to run. - - The calculated INTEREST RATE is: 3.50% - - The calculated amount above will be automatically recalculated anytime you - change one of the VARIABLES. Use the menu to select. - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? M -M - - *************** MAIN MENU *************** - This is a program for LOAN CALCULATIONS. Please select the - module you would like to run below. - - (Press the corresponding letter from the menu.) - - (A) LOAN PRINCIPAL AMOUNT - (B) REGULAR LOAN PAYMENT AMOUNT - (C) LAST PAYMENT ON A LOAN - (D) REMAINING BALANCE ON A LOAN - (E) TERM OF A LOAN - (F) ANNUAL INTEREST RATE ON A LOAN - (G) LOAN AMORTIZATION TABLE - - (H)ELP-- Choose this for an explanation of the modules above. - - (X) EXIT BACK TO THE OPERATING SYSTEM - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? G -G - LOAN AMORTIZATION TABLE - Provides complete loan progress chart. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Number of Years: 30.0 - (C) Amount of Principal: $222694.98 - (D) Annual Interest rate: 3.50% - --- Payments per Year: 12 - - - THE VARIABLES MUST BE PRECISELY CALCULATED FOR THE TABLE TO BE CORRECT. - - Do you want to change any of the above VARIABLES? - ENTER (Y)ES or (N)O or ... - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? H -H - ** LOAN AMORTIZATION TABLE ** - - This module will show the amount of interest and principal paid for - each payment on a loan. This listing can be displayed on the console - screen only or it can be listed to a printer simultaneously. Since - the table can only be accurate if the variables are precisely calculated, - you have to use other modules to make changes to the variables before - you can run the amortization table module. Selecting an item from - the menu to be changed will automatically chain you into the appropriate - module. - - If the printer is selected, you will be asked for information to go - on the title block on the printer. This information will be saved - and does not have to be reentered if you go to another module and then - return to the amortization module. - - You should check the printer to be sure it is ready prior to trying - to send a listing to the printer. If the printer is not ready, the - program will display a message and the program will stop. If the - printer cannot be made ready, you will have to abort the program using - the ^C key. - - - PRESS ANY KEY TO RETURN TO THE MENU. ? - * - LOAN AMORTIZATION TABLE - Provides complete loan progress chart. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Number of Years: 30.0 - (C) Amount of Principal: $222694.98 - (D) Annual Interest rate: 3.50% - --- Payments per Year: 12 - - - THE VARIABLES MUST BE PRECISELY CALCULATED FOR THE TABLE TO BE CORRECT. - - Do you want to change any of the above VARIABLES? - ENTER (Y)ES or (N)O or ... - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? M -M - - *************** MAIN MENU *************** - This is a program for LOAN CALCULATIONS. Please select the - module you would like to run below. - - (Press the corresponding letter from the menu.) - - (A) LOAN PRINCIPAL AMOUNT - (B) REGULAR LOAN PAYMENT AMOUNT - (C) LAST PAYMENT ON A LOAN - (D) REMAINING BALANCE ON A LOAN - (E) TERM OF A LOAN - (F) ANNUAL INTEREST RATE ON A LOAN - (G) LOAN AMORTIZATION TABLE - - (H)ELP-- Choose this for an explanation of the modules above. - - (X) EXIT BACK TO THE OPERATING SYSTEM - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? G -G - LOAN AMORTIZATION TABLE - Provides complete loan progress chart. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Number of Years: 30.0 - (C) Amount of Principal: $222694.98 - (D) Annual Interest rate: 3.50% - --- Payments per Year: 12 - - - THE VARIABLES MUST BE PRECISELY CALCULATED FOR THE TABLE TO BE CORRECT. - - Do you want to change any of the above VARIABLES? - ENTER (Y)ES or (N)O or ... - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? N -N - Do you want this run to go to the printer? (Enter Y or N) ? N -No - - - Do you want to display annual totals only? (Enter Y or N) ? N -No - - - Do you want to start with a year other than 1? (Y or N) ? Y -Yes - Please enter the year you want to start with..... 25 - * ********************* LOAN AMORTIZATION TABLE *********************** - PRINCIPAL AMOUNT: $222694.98 PAYMENT AMOUNT: $1000.00 - TERM IN YEARS: 30.0 INTEREST RATE: 3.50% - *********************************************************************** - PAYMENT # INTEREST PRINCIPAL BALANCE AFTER PAYMENT - ----------------------------------------------------------------------- - 289 $189.15 $810.85 $64043.02 - 290 $186.79 $813.21 $63229.81 - 291 $184.42 $815.58 $62414.23 - 292 $182.04 $817.96 $61596.27 - 293 $179.65 $820.35 $60775.92 - 294 $177.26 $822.74 $59953.18 - 295 $174.86 $825.14 $59128.04 - 296 $172.45 $827.55 $58300.49 - 297 $170.04 $829.96 $57470.53 - 298 $167.62 $832.38 $56638.15 - 299 $165.19 $834.81 $55803.34 - 300 $162.76 $837.24 $54966.10 - -*YEAR: 25 $2112.23 $9887.77 $54966.10 - - -DISPLAY HAS BEEN PAUSED. SELECT: (D)ISABLE PAUSE, (C)ONTINUE, OR (A)BORT. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? C -C - ********************* LOAN AMORTIZATION TABLE *********************** - PRINCIPAL AMOUNT: $222694.98 PAYMENT AMOUNT: $1000.00 - TERM IN YEARS: 30.0 INTEREST RATE: 3.50% - *********************************************************************** - PAYMENT # INTEREST PRINCIPAL BALANCE AFTER PAYMENT - ----------------------------------------------------------------------- - 301 $160.31 $839.69 $54126.41 - 302 $157.87 $842.13 $53284.28 - 303 $155.41 $844.59 $52439.69 - 304 $152.95 $847.05 $51592.64 - 305 $150.48 $849.52 $50743.12 - 306 $148.00 $852.00 $49891.12 - 307 $145.51 $854.49 $49036.63 - 308 $143.02 $856.98 $48179.65 - 309 $140.52 $859.48 $47320.17 - 310 $138.01 $861.99 $46458.18 - 311 $135.50 $864.50 $45593.68 - 312 $132.98 $867.02 $44726.66 - -*YEAR: 26 $1760.56 $10239.44 $44726.66 - - -DISPLAY HAS BEEN PAUSED. SELECT: (D)ISABLE PAUSE, (C)ONTINUE, OR (A)BORT. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? C -C - ********************* LOAN AMORTIZATION TABLE *********************** - PRINCIPAL AMOUNT: $222694.98 PAYMENT AMOUNT: $1000.00 - TERM IN YEARS: 30.0 INTEREST RATE: 3.50% - *********************************************************************** - PAYMENT # INTEREST PRINCIPAL BALANCE AFTER PAYMENT - ----------------------------------------------------------------------- - 313 $130.45 $869.55 $43857.11 - 314 $127.91 $872.09 $42985.02 - 315 $125.37 $874.63 $42110.39 - 316 $122.82 $877.18 $41233.21 - 317 $120.26 $879.74 $40353.47 - 318 $117.70 $882.30 $39471.17 - 319 $115.12 $884.88 $38586.29 - 320 $112.54 $887.46 $37698.83 - 321 $109.95 $890.05 $36808.78 - 322 $107.36 $892.64 $35916.14 - 323 $104.75 $895.25 $35020.89 - 324 $102.14 $897.86 $34123.03 - -*YEAR: 27 $1396.37 $10603.63 $34123.03 - - -DISPLAY HAS BEEN PAUSED. SELECT: (D)ISABLE PAUSE, (C)ONTINUE, OR (A)BORT. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? C -C - ********************* LOAN AMORTIZATION TABLE *********************** - PRINCIPAL AMOUNT: $222694.98 PAYMENT AMOUNT: $1000.00 - TERM IN YEARS: 30.0 INTEREST RATE: 3.50% - *********************************************************************** - PAYMENT # INTEREST PRINCIPAL BALANCE AFTER PAYMENT - ----------------------------------------------------------------------- - 325 $99.52 $900.48 $33222.55 - 326 $96.90 $903.10 $32319.45 - 327 $94.26 $905.74 $31413.71 - 328 $91.62 $908.38 $30505.33 - 329 $88.97 $911.03 $29594.30 - 330 $86.32 $913.68 $28680.62 - 331 $83.65 $916.35 $27764.27 - 332 $80.98 $919.02 $26845.25 - 333 $78.30 $921.70 $25923.55 - 334 $75.61 $924.39 $24999.16 - 335 $72.91 $927.09 $24072.07 - 336 $70.21 $929.79 $23142.28 - -*YEAR: 28 $1019.25 $10980.75 $23142.28 - - -DISPLAY HAS BEEN PAUSED. SELECT: (D)ISABLE PAUSE, (C)ONTINUE, OR (A)BORT. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? C -C - ********************* LOAN AMORTIZATION TABLE *********************** - PRINCIPAL AMOUNT: $222694.98 PAYMENT AMOUNT: $1000.00 - TERM IN YEARS: 30.0 INTEREST RATE: 3.50% - *********************************************************************** - PAYMENT # INTEREST PRINCIPAL BALANCE AFTER PAYMENT - ----------------------------------------------------------------------- - 337 $67.50 $932.50 $22209.78 - 338 $64.78 $935.22 $21274.56 - 339 $62.05 $937.95 $20336.61 - 340 $59.31 $940.69 $19395.92 - 341 $56.57 $943.43 $18452.49 - 342 $53.82 $946.18 $17506.31 - 343 $51.06 $948.94 $16557.37 - 344 $48.29 $951.71 $15605.66 - 345 $45.52 $954.48 $14651.18 - 346 $42.73 $957.27 $13693.91 - 347 $39.94 $960.06 $12733.85 - 348 $37.14 $962.86 $11770.99 - -*YEAR: 29 $628.71 $11371.29 $11770.99 - - -DISPLAY HAS BEEN PAUSED. SELECT: (D)ISABLE PAUSE, (C)ONTINUE, OR (A)BORT. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? C -C - ********************* LOAN AMORTIZATION TABLE *********************** - PRINCIPAL AMOUNT: $222694.98 PAYMENT AMOUNT: $1000.00 - TERM IN YEARS: 30.0 INTEREST RATE: 3.50% - *********************************************************************** - PAYMENT # INTEREST PRINCIPAL BALANCE AFTER PAYMENT - ----------------------------------------------------------------------- - 349 $34.33 $965.67 $10805.32 - 350 $31.51 $968.49 $9836.83 - 351 $28.69 $971.31 $8865.52 - 352 $25.86 $974.14 $7891.38 - 353 $23.02 $976.98 $6914.40 - 354 $20.17 $979.83 $5934.57 - 355 $17.31 $982.69 $4951.88 - 356 $14.44 $985.56 $3966.32 - 357 $11.57 $988.43 $2977.89 - 358 $8.69 $991.31 $1986.58 - 359 $5.79 $994.21 $992.37 - 360 $2.89 $992.37 $0.00 - -*YEAR: 30 $224.27 $11770.99 $0.00 - - -DISPLAY HAS BEEN PAUSED. SELECT: (D)ISABLE PAUSE, (C)ONTINUE, OR (A)BORT. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? C -C - ********************* LOAN AMORTIZATION TABLE *********************** - PRINCIPAL AMOUNT: $222694.98 PAYMENT AMOUNT: $1000.00 - TERM IN YEARS: 30.0 INTEREST RATE: 3.50% - *********************************************************************** - PAYMENT # INTEREST PRINCIPAL BALANCE AFTER PAYMENT - ----------------------------------------------------------------------- - -*TOTALS: $137300.28 $222694.98 - - - - - - - - - - - - - - - PRESS (Y) TO RETURN TO MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? Y -Y - LOAN AMORTIZATION TABLE - Provides complete loan progress chart. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Number of Years: 30.0 - (C) Amount of Principal: $222694.98 - (D) Annual Interest rate: 3.50% - --- Payments per Year: 12 - - - THE VARIABLES MUST BE PRECISELY CALCULATED FOR THE TABLE TO BE CORRECT. - - Do you want to change any of the above VARIABLES? - ENTER (Y)ES or (N)O or ... - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? H -H - ** LOAN AMORTIZATION TABLE ** - - This module will show the amount of interest and principal paid for - each payment on a loan. This listing can be displayed on the console - screen only or it can be listed to a printer simultaneously. Since - the table can only be accurate if the variables are precisely calculated, - you have to use other modules to make changes to the variables before - you can run the amortization table module. Selecting an item from - the menu to be changed will automatically chain you into the appropriate - module. - - If the printer is selected, you will be asked for information to go - on the title block on the printer. This information will be saved - and does not have to be reentered if you go to another module and then - return to the amortization module. - - You should check the printer to be sure it is ready prior to trying - to send a listing to the printer. If the printer is not ready, the - program will display a message and the program will stop. If the - printer cannot be made ready, you will have to abort the program using - the ^C key. - - - PRESS ANY KEY TO RETURN TO THE MENU. ? - * - LOAN AMORTIZATION TABLE - Provides complete loan progress chart. - - Variables needed for calculation: - - VARIABLE CURRENT VALUE - (A) Amount of Regular Payment: $1000.00 - (B) Number of Years: 30.0 - (C) Amount of Principal: $222694.98 - (D) Annual Interest rate: 3.50% - --- Payments per Year: 12 - - - THE VARIABLES MUST BE PRECISELY CALCULATED FOR THE TABLE TO BE CORRECT. - - Do you want to change any of the above VARIABLES? - ENTER (Y)ES or (N)O or ... - - PRESS (H) for HELP. - PRESS (M) to return to the MAIN MENU. - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? M -M - - *************** MAIN MENU *************** - This is a program for LOAN CALCULATIONS. Please select the - module you would like to run below. - - (Press the corresponding letter from the menu.) - - (A) LOAN PRINCIPAL AMOUNT - (B) REGULAR LOAN PAYMENT AMOUNT - (C) LAST PAYMENT ON A LOAN - (D) REMAINING BALANCE ON A LOAN - (E) TERM OF A LOAN - (F) ANNUAL INTEREST RATE ON A LOAN - (G) LOAN AMORTIZATION TABLE - - (H)ELP-- Choose this for an explanation of the modules above. - - (X) EXIT BACK TO THE OPERATING SYSTEM - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? X -X - - - RETURN TO OPERATING SYSTEM? (Y OR N) - - >>>>>>>>>>>>> NOW WAITING FOR YOUR SELECTION >>>>> ? Y -Y - - - Now returning control to the operating system. - - diff --git a/bwbtest/M80/log10k.INP b/bwbtest/M80/log10k.INP deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/M80/log10k.bas b/bwbtest/M80/log10k.bas deleted file mode 100644 index 919e0e5..0000000 --- a/bwbtest/M80/log10k.bas +++ /dev/null @@ -1,54 +0,0 @@ -10 '************************************** -20 ' T.A. Elkins Log(10k!) Benchmark -30 ' ------------------------------- -40 ' -50 ' Computes number of decimal digits in -60 ' 10,000 factorial. (Exact answer is -70 ' 35660.) -80 ' -90 ' See COMPUTERWORD, April 20, 1987, for -100 ' more information. -110 ' -120 ' Translated to CP/M MBASIC 5.0 -130 ' Jim Lill 19 July 87 -140 ' -150 '************************************** -160 ' -170 ' IBM PC Results: -180 ' -190 ' Compiler/ Code Time -200 ' Intrepreter Size (sec) Error -210 ' ------------ ---- ----- ----- -220 ' TrueBASIC 82K 3.5 -230 ' Better BASIC 48K 10 -240 ' Quick BASIC 27K 56 -250 ' GW-BASIC n/a 149 -260 ' -270 ' (Error results were not given.) -280 ' -290 ' Amiga Results: -300 ' -310 ' AmigaBASIC n/a 103 0.5457 -320 ' -330 ' CP/M Results: -340 ' -350 ' MBASIC 5.0 \ -360 ' @ 10MHz \ n/a 110 0.5462 -370 ' @ 6MHz / n/a 184 0.5462 -380 '************************************** -390 DEFINT I -400 DEFDBL E,X,Y,Z -410 Z=10 -420 X=0 -430 EXACT = 35660# -440 PRINT "Elkins Log(10k!) Benchmark" -450 PRINT -460 PRINT "Note the Start Time!";CHR$(7) -470 FOR I=2 TO 10000 -480 Y=I -490 X=X+LOG(Y) -500 NEXT I -510 PRINT "Note the End Time!";CHR$(7) -520 PRINT -530 PRINT "Error: ";EXACT - X/LOG(Z) -540 END diff --git a/bwbtest/M80/log10k.run b/bwbtest/M80/log10k.run deleted file mode 100644 index 5452bd8..0000000 --- a/bwbtest/M80/log10k.run +++ /dev/null @@ -1,6 +0,0 @@ -Elkins Log(10k!) Benchmark - -Note the Start Time! -Note the End Time! - -Error: .545725 diff --git a/bwbtest/M80/mortgage.INP b/bwbtest/M80/mortgage.INP deleted file mode 100644 index 5397771..0000000 --- a/bwbtest/M80/mortgage.INP +++ /dev/null @@ -1,7 +0,0 @@ -1 -30,0 -200000 -1000 -1,2015 -30 -1 diff --git a/bwbtest/M80/mortgage.bas b/bwbtest/M80/mortgage.bas deleted file mode 100644 index bfe71be..0000000 --- a/bwbtest/M80/mortgage.bas +++ /dev/null @@ -1,174 +0,0 @@ -10 REM *****MORGAG*****BUSINESS PROGRAM -20 REM MORGAG**********VERSION #1 (7/31/69)*****MORTGAGE ANALYSIS***** -30 REM -40 PRINT "* MORTGAGE ANALYSIS *" -50 PRINT -60 PRINT "IF YOU WANT TO FIND:" -70 PRINT " THE RATE, TYPE '1'" -80 PRINT " THE LIFE, TYPE '2'" -90 PRINT " THE AMOUNT BORROWED, TYPE '3'" -100 PRINT " THE MONTHLY PAYMENT, TYPE '4'" -110 PRINT "WHICH DO YOU WANT"; -120 INPUT Z -130 PRINT -140 IF Z=1 THEN 220 -150 PRINT "WHAT IS THE NOMINAL ANNUAL RATE USING DECIMAL NOTATION"; -160 INPUT R -170 IF R<1 THEN 200 -180 PRINT "IT APPEARS THAT YOU HAVE FORGOTTEN TO USE DECIMAL NOTATION" -190 GOTO 150 -200 PRINT -210 IF Z=2 THEN 260 -220 PRINT "WHAT IS THE LIFE OF THE MORTGAGE: YEARS, MONTHS"; -230 INPUT Y,M -240 PRINT -250 IF Z=3 THEN 300 -260 PRINT "WHAT IS THE AMOUNT TO BE BORROWED"; -270 INPUT A -280 PRINT -290 IF Z=4 THEN 330 -300 PRINT "WHAT IS THE AMOUNT OF ONE MONTHLY PAYMENT"; -310 INPUT P -320 PRINT -330 PRINT "WHAT IS THE MONTH (JAN=1,ETC.), AND YEAR IN WHICH THE MORTGAGE LOAN IS" -340 PRINT "TO BE MADE"; -350 INPUT T1,T2 -360 PRINT -370 PRINT "FOR HOW MANY CALENDAR YEARS DO YOU WANT THE MORTGAGE TABLE PRINTED"; -380 INPUT T3 -390 PRINT -400 PRINT "TYPE A ONE (1) IF YOU WANT ONLY AN ANNUAL SUMMARY OF THE MORTGAGE" -410 PRINT "TABLE; TYPE A ZERO (0) FOR A MONTHLY TABLE"; -420 INPUT Z1 -430 PRINT -440 IF Z=2 THEN 470 -450 N=12*Y+M -460 IF Z=1 THEN 660 -470 R1=R/12 -480 IF Z=3 THEN 580 -490 IF Z=4 THEN 610 -500 IF (A*R1/P)<1 THEN 530 -510 PRINT "THE FIRST MONTHS PAYMENT WILL NOT EVEN COVER ITS INTEREST CHARGE" -520 RUN "DIR" -530 N=-(LOG(1-(A*R1)/P))/LOG(1+R1) -540 N=INT(N)+1 -550 Y=INT(N/12) -560 M=N-12*Y -570 GOTO 770 -580 A=(P*(1-1/((1+R1)^N)))/R1 -590 A=INT((A+5)/10)*10 -600 GOTO 770 -610 P=(A*R1)/(1-1/((1+R1)^N)) -620 P=(P*1000+5)/10 -630 P=INT(P) -640 P=P/100 -650 GOTO 770 -660 R1=0 -670 FOR O=1 TO 5 -680 FOR I=1 TO 10 -690 Q=I*(1/(10^O))+R1 -700 C=(P*(1-1/((1+Q)^N)))/Q -710 IF C(R*A+1) THEN 830 -790 PRINT "YOUR FIRST YEARS'S PAYMENTS ARE"12*P -800 PRINT "THE FIRST YEARS'S INTEREST IS"R*A -810 PRINT "THEREFORE, THE LIFE OF THE MORTGAGE IS UNDEFINED" -820 RUN "DIR" -830 PRINT "***********************************************************************" -840 PRINT -850 PRINT " MORTGAGE TERMS" -860 PRINT -870 PRINT " NOMINAL ANNUAL RATE =";R*100;"PERCENT" -880 PRINT " LIFE OF MORTGAGE =";Y;"YEARS,";M;"MONTHS" -890 PRINT " AMOUNT BORROWED = $";A -900 PRINT " MONTHLY PAYMENT = $";P -910 IF Z=1 THEN 950 -920 IF Z=3 THEN 990 -930 IF Z=2 THEN 970 -940 GOTO 1000 -950 PRINT " (NOTE: THE ANNUAL RATE HAS BEEN ROUNDED TO NEAREST 1/100 PERCENT)" -960 GOTO 1000 -970 PRINT " (NOTE: THE MORTGAGE LIFE HAS BEEN ROUNDED UPWARD TO NEAREST MONTH)" -980 GOTO 1000 -990 PRINT " (NOTE: THE AMOUNT BORROWED ROUNDED TO NEAREST $10)" -1000 PRINT -1010 PRINT "----------------------------------------------------------------------" -1020 PRINT -1030 PRINT " MORTGAGE TABLE" -1040 PRINT -1050 PRINT -1060 Z2=0 -1070 S1=0 -1080 S2=0 -1090 IF T1=12 THEN 1120 -1100 M2=T1 -1110 GOTO 1140 -1120 T2=T2+1 -1130 M2=0 -1140 M3=M2+1 -1150 IF Z1=1 THEN 1230 -1160 PRINT " ","BEGINNING" -1170 PRINT " ","PRINCIPAL"," ","PRINCIPAL" -1180 PRINT "MONTH","OUTSTANDING","INTEREST","REPAYMENT" -1190 PRINT -1200 PRINT -1210 PRINT " ","FOR THE CALENDAR YEAR"T2 -1220 GOTO 1280 -1230 PRINT " "," "," ","ENDING" -1240 PRINT " "," ","PRINCIPAL","PRINCIPAL" -1250 PRINT "YEAR","INTEREST","REPAYMENT","OUTSTANDING" -1260 PRINT -1270 PRINT -1280 FOR M1=M3 TO 12*T3 -1290 I1=A*R1 -1300 I1=(I1*1000+5)/10 -1310 I1=INT(I1) -1320 I1=I1/100 -1330 IF P<(A+I1) THEN 1360 -1340 P1=A -1350 GOTO 1370 -1360 P1=P-I1 -1370 A1=A -1380 A=A1-P1 -1390 S1=S1+I1 -1400 S2=S2+P1 -1410 M2=M2+1 -1420 IF Z1=1 THEN 1590 -1430 PRINT M2,A1,I1,P1 -1440 IF M2=12 THEN 1470 -1450 IF A>0 THEN 1690 -1460 Z2=1 -1470 PRINT -1480 PRINT " INTEREST PAID DURING";T2;TAB(42);"=";S1 -1490 PRINT " PRINCIPLE REPAID DURING";T2;TAB(42);"=";S2 -1500 PRINT " PRINCIPLE OUTSTANDING AT YEAR END";TAB(42);"=";A -1510 IF Z2=1 THEN 1700 -1520 T2=T2+1 -1530 PRINT -1540 PRINT "-----" -1550 PRINT -1560 IF M1=12*T3 THEN 1700 -1570 PRINT " ","FOR THE CALENDAR YEAR"T2 -1580 GOTO 1660 -1590 IF M2=12 THEN 1620 -1600 IF A>0 THEN 1690 -1610 Z2=1 -1620 PRINT T2,S1,S2,A -1630 T2=T2+1 -1640 IF M1=12*T3 THEN 1700 -1650 IF Z2=1 THEN 1700 -1660 S1=0 -1670 S2=0 -1680 M2=0 -1690 NEXT M1 -1700 PRINT "**********************************************************************" -1710 REM RUN "DIR" -2000 REM ---------------------------------- -2010 REM Commented out RUN "DIR" -2999 END diff --git a/bwbtest/M80/mortgage.run b/bwbtest/M80/mortgage.run deleted file mode 100644 index c6967ad..0000000 --- a/bwbtest/M80/mortgage.run +++ /dev/null @@ -1,75 +0,0 @@ -* MORTGAGE ANALYSIS * - -IF YOU WANT TO FIND: - THE RATE, TYPE '1' - THE LIFE, TYPE '2' - THE AMOUNT BORROWED, TYPE '3' - THE MONTHLY PAYMENT, TYPE '4' -WHICH DO YOU WANT? 1 - -WHAT IS THE LIFE OF THE MORTGAGE: YEARS, MONTHS? 30,0 - -WHAT IS THE AMOUNT TO BE BORROWED? 200000 - -WHAT IS THE AMOUNT OF ONE MONTHLY PAYMENT? 1000 - -WHAT IS THE MONTH (JAN=1,ETC.), AND YEAR IN WHICH THE MORTGAGE LOAN IS -TO BE MADE? 1,2015 - -FOR HOW MANY CALENDAR YEARS DO YOU WANT THE MORTGAGE TABLE PRINTED? 30 - -TYPE A ONE (1) IF YOU WANT ONLY AN ANNUAL SUMMARY OF THE MORTGAGE -TABLE; TYPE A ZERO (0) FOR A MONTHLY TABLE? 1 - - -*********************************************************************** - - MORTGAGE TERMS - - NOMINAL ANNUAL RATE = 4.4 PERCENT - LIFE OF MORTGAGE = 30 YEARS, 0 MONTHS - AMOUNT BORROWED = $ 200000 - MONTHLY PAYMENT = $ 1000 - (NOTE: THE ANNUAL RATE HAS BEEN ROUNDED TO NEAREST 1/100 PERCENT) - ----------------------------------------------------------------------- - - MORTGAGE TABLE - - - ENDING - PRINCIPAL PRINCIPAL -YEAR INTEREST REPAYMENT OUTSTANDING - - - 2015 8012.28 2987.72 197012. - 2016 8600.51 3399.49 193613. - 2017 8447.9 3552.1 190061. - 2018 8288.41 3711.59 186349. - 2019 8121.76 3878.24 182471. - 2020 7947.65 4052.35 178419. - 2021 7765.69 4234.31 174184. - 2022 7575.6 4424.4 169760. - 2023 7376.92 4623.08 165137. - 2024 7169.36 4830.64 160306. - 2025 6952.48 5047.52 155259. - 2026 6725.87 5274.13 149984. - 2027 6489.05 5510.95 144473. - 2028 6241.62 5758.38 138715. - 2029 5983.09 6016.91 132698. - 2030 5712.95 6287.05 126411. - 2031 5430.68 6569.32 119842. - 2032 5135.69 6864.31 112978. - 2033 4827.52 7172.48 105805. - 2034 4505.5 7494.5 98310.5 - 2035 4168.99 7831.01 90479.5 - 2036 3817.4 8182.6 82296.9 - 2037 3450.03 8549.97 73747. - 2038 3066.14 8933.86 64813.1 - 2039 2665.02 9334.98 55478.1 - 2040 2245.9 9754.1 45724. - 2041 1807.93 10192.1 35531.9 - 2042 1350.31 10649.7 24882.3 - 2043 872.17 11127.8 13754.4 - 2044 372.57 11627.4 2126.99 -********************************************************************** diff --git a/bwbtest/M80/ohmslaw.INP b/bwbtest/M80/ohmslaw.INP deleted file mode 100644 index f1d47b2..0000000 --- a/bwbtest/M80/ohmslaw.INP +++ /dev/null @@ -1,5 +0,0 @@ -1 -120 -1.2e3 -N -Y diff --git a/bwbtest/M80/ohmslaw.bas b/bwbtest/M80/ohmslaw.bas deleted file mode 100644 index 3fb12e2..0000000 --- a/bwbtest/M80/ohmslaw.bas +++ /dev/null @@ -1,421 +0,0 @@ -5 REM - COMPACTED:6/08/84 -10 PRINT CHR$(27);CHR$(42):PRINT" -=*OHM'S LAW*=-" -40 PRINT" MENU" -50 PRINT:PRINT TAB(10);"(1) Find I, given VOLTAGE and RESISTANCE (E and R)" -70 PRINT TAB(10);"(2) Find R, given VOLTAGE and CURRENT (V and I)" -90 PRINT TAB(10);"(3) Find E, given CURRENT and RESISTANCE (I and R)" -110 PRINT TAB(10);"(4) Find P (POWER), given VOLTAGE and CURRENT (E and I)" -130 PRINT TAB(10);"(5) Find P (POWER), given CURRENT and RESISTANCE (I and R)" -150 PRINT TAB(10);"(6) Find P (POWER), given VOLTAGE and RESISTANCE (E and R)" -170 PRINT TAB(10);"(7) Find two resistances in parallel, given R1 and R2" -190 PRINT TAB(10);"(8) Find RT, given unequal R1, R2, R3, R4 in parallel" -270 PRINT TAB(10);"(9) Find RT, given R1,R2,R3,R4 in SERIES-PARALLEL" -290 PRINT TAB(10);"(10) Find TOTAL CAPACITANCE (CT), in series circuit" -310 PRINT TAB(10);"(11) Find TOTAL CAPACITANCE (CT), 2 caps, parallel circuit" -330 PRINT TAB(10);"(12) Find TOTAL CAPACITANCE (CT), 3 caps in parallel" -350 PRINT TAB(10);"(13) Find PEAK AC VOLTAGE, given RMS value" -370 PRINT TAB(10);"(14) Find RMS VOLTAGE, given PEAK value" -390 PRINT TAB(10);"(15) Find INDUCTIVE REACTANCE (XL)" -410 PRINT TAB(10);"(16) Find CAPACITIVE REACTANCE (XC)" -430 PRINT TAB(10);"(17) Find IMPEDANCE (Z) of a series circuit" -445 PRINT TAB(10);"(18) Find IMPEDANCE (Z) of a parallel circuit" -446 PRINT -450 PRINT" Select the number you require from the menu and press 'RETURN'" -460 LPRINT CHR$(&H1F);CHR$(1); -470 LPRINT:LPRINT CHR$(14) -480 LPRINT TAB(10);"-=*OHM'S LAW*=-" -485 LPRINT CHR$(15) -490 INPUT"Enter choice:",C -500 LPRINT"Enter choice:" -510 LPRINT"Choice is:";C -515 IF C = -1 THEN END -520 IF C= 0 OR C> 18 THEN 10 -530 ON C GOTO 540,710,880,1050,1220,1380,1540,1700,1930,2190,2360,2560,2770,2930,3070,3260,3430,3680 -540 PRINT"Calculate CURRENT (I), given VOLTAGE and RESISTANCE (E and R)" -550 LPRINT"Calculate CURRENT (I), given VOLTAGE and RESISTANCE (E and R)" -555 PRINT:LPRINT -560 INPUT"What is the value of E, in volts:",V -570 LPRINT"What is the value of E in volts?":LPRINT;V:LPRINT -580 INPUT"Now enter the value of R, in ohms:",R -590 LPRINT"Now input the value of R, in ohms":LPRINT ;R:LPRINT -600 LET I= (V/R) -610 PRINT" I= ";(V/R);"amperes" -620 LPRINT"I= ";(V/R);"amperes" -630 PRINT:LPRINT -640 PRINT" Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -650 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -660 IF ANS$="Y" THEN 540 -670 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -680 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -690 IF ANS$="Y" THEN 10 -700 GOTO 10020 -710 PRINT"Calculate RESISTANCE (R), given VOLTAGE and CURRENT (E and I)" -720 LPRINT"Calculate RESISTANCE (R), given VOLTAGE and CURRENT (E and I)" -730 PRINT:LPRINT -740 INPUT"Input the value of E, in volts:",V -750 LPRINT"Input E, in volts":LPRINT V -760 INPUT"Now enter the value of I, in amperes:",I -770 LPRINT"Now input the value for I, in amperes":LPRINT I -780 LET R=(V/I):PRINT"R= ";(V/I);"ohms" -790 LPRINT"R= ";(V/I);"ohms" -800 PRINT:LPRINT -810 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -820 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -830 IF ANS$="Y" THEN 710 -835 PRINT:LPRINT -840 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -850 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -860 IF ANS$="Y" THEN 10 -870 GOTO 10020 -875 PRINT:LPRINT -880 PRINT"Calculate VOLTAGE (E), given CURRENT and RESISTANCE (I and R)" -890 LPRINT"Calculate VOLTAGE (E), given CURRENT and RESISTANCE (I and R)" -895 PRINT:LPRINT -900 INPUT"Enter the value for I, in amperes:",I -910 LPRINT"Input the value for I, in amperes":LPRINT I -920 INPUT"Now enter the value for R, in ohms:",R -930 LPRINT"Now enter the value for R, in ohms":LPRINT R -940 LET E=(I*R):PRINT"E= ";(I*R);"volts" -950 LPRINT"E= ";(I*R);"volts" -960 PRINT:LPRINT -970 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -980 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -990 IF ANS$="Y" THEN 880 -995 PRINT:LPRINT -1000 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -1010 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -1020 IF ANS$="Y" THEN 10 -1030 GOTO 10020 -1040 PRINT:LPRINT -1050 PRINT"Calculate POWER(P), given VOLTAGE(E) and CURRENT(I)" -1060 LPRINT"Calculate POWER (P), given VOLTAGE(E) and CURRENT(I)" -1065 PRINT:LPRINT -1070 INPUT"Input the value for E, in volts:",V -1080 LPRINT"Input value for E, in volts":LPRINT V -1090 INPUT"Now enter the value for I, in amperes:",I -1100 LPRINT"Now input the value for I, in amperes":LPRINT I -1110 LET P=V*I:PRINT"I= ";(V*I);"watts" -1120 LPRINT"I= ";(V*I);"watts" -1130 PRINT:LPRINT -1140 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -1150 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -1160 IF ANS$="Y" THEN 1050 -1170 LPRINT ANS$ -1175 PRINT:LPRINT -1180 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -1190 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -1200 IF ANS$="Y" THEN 10 -1210 GOTO 10020 -1220 PRINT"Calculate POWER(P), given CURRENT(I) and RESISTANCE(R)" -1230 LPRINT"Calculate POWER(P), given CURRENT(I) and RESISTANCE(R)" -1235 PRINT:LPRINT -1240 INPUT"Enter the value for I, in amperes:",I -1250 LPRINT"Input the value for I, in amperes":LPRINT I -1260 INPUT"Now enter the value for R, in ohms:",R -1270 LPRINT"Now enter the value for R, in ohms":LPRINT R -1280 LET P=(I*I)*R:PRINT"P= ";(I*I)*R;"watts" -1290 LPRINT"P= ";(I*I)*R;"watts" -1300 PRINT:LPRINT -1310 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -1320 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -1330 IF ANS$="Y" THEN 1220 -1335 PRINT:LPRINT -1340 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -1350 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -1360 IF ANS$="Y" THEN 10 -1370 GOTO 10020 -1380 PRINT"Calculate POWER(P), given VOLTAGE(E) and RESISTANCE(R)" -1385 PRINT:LPRINT -1390 LPRINT"Calculate POWER(P), given VOLTAGE(E) and RESISTANCE(R)" -1400 INPUT"Enter the value for E, in volts:",V -1410 LPRINT"Input the value for E, in volts":LPRINT V -1420 INPUT"Now enter the value for R, in ohms:",R -1430 LPRINT"Now enter the value for R, in ohms":LPRINT R -1440 LET P=(V*V)/(R):PRINT"P= ";(V*V)/(R);"watts" -1450 LPRINT"P= ";(V*V)/(R);"watts" -1460 PRINT:LPRINT -1470 PRINT"Do you wish to do this calculation again ? (Y/N)":INPUT ANS$ -1480 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -1490 IF ANS$="Y" THEN 1380 -1495 PRINT:LPRINT -1500 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -1510 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -1520 IF ANS$="Y" THEN 10 -1530 GOTO 10020 -1535 PRINT:LPRINT -1540 PRINT"Calculate TOTAL RESISTANCE(RT) in parallel, given R1,R2" -1550 LPRINT"Calculate TOTAL RESISTANCE(RT) in parallel, given R1,R2" -1555 PRINT:LPRINT -1560 INPUT"Input the value for R1:",R1 -1570 LPRINT"Input value for R1, in ohms":LPRINT R1 -1580 INPUT"Now input the value for R2:",R2 -1590 LPRINT"Now enter value for R2, in ohms":LPRINT R2 -1600 LET RT= (R1*R2)/(R1+R2):PRINT"RT= ";(R1*R2)/(R1+R2);"ohms" -1610 LPRINT"RT= ";(R1*R2)/(R1+R2);"ohms" -1620 PRINT:LPRINT -1630 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -1640 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -1650 IF ANS$="Y" THEN 1540 -1655 PRINT:LPRINT -1660 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -1670 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -1680 IF ANS$="Y" THEN 10 -1690 GOTO 10020 -1695 PRINT:LPRINT -1700 PRINT"Calculate TOTAL RESISTANCE(RT), given unequal R1,R2,R3,R4 values" -1710 LPRINT"Calculate TOTAL RESISTANCE(RT), given unequal R1,R2,R3,R4 values" -1715 PRINT:LPRINT -1720 PRINT"Enter the values for R1,R2,R3 and R4, in ohms" -1730 LPRINT"Enter the values for R1,R2,R3 and R4, in ohms" -1740 INPUT"R1=",R1 -1750 INPUT"R2=",R2 -1760 INPUT"R3=",R3 -1770 INPUT"R4=",R4 -1780 LPRINT"R1=";R1;"ohms" -1790 LPRINT"R2=";R2;"ohms" -1800 LPRINT"R3=";R3;"ohms" -1810 LPRINT"R4=";R4;"ohms":LPRINT -1820 LET RT=(1)/(1/R1+1/R2+1/R3+1/R4) -1830 PRINT"RT= ";(1)/(1/R1+1/R2+1/R3+1/R4);"ohms" -1840 LPRINT"RT= ";(1)/(1/R1+1/R2+1/R3+1/R4);"ohms" -1850 PRINT:LPRINT -1860 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -1870 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -1880 IF ANS$="Y" THEN 1700 -1885 PRINT:LPRINT -1890 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -1900 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -1910 IF ANS$="Y" THEN 10 -1920 GOTO 10020 -1925 PRINT:LPRINT -1930 PRINT"Calculate TOTAL RESISTANCE(RT), in series-parallel," -1940 PRINT"given R1, R2, R3 and R4" -1950 LPRINT"Calculate TOTAL RESISTANCE(RT), in series-parallel," -1960 LPRINT"given R1, R2, R3 and R4" -1965 PRINT:LPRINT -1970 PRINT"Enter the values for R1, R2, R3 and R4" -1980 LPRINT"Enter the values for R1, R2, R3 and R4" -1990 INPUT"R1=",R1 -2000 INPUT"R2=",R2 -2010 INPUT"R3=",R3 -2020 INPUT"R4=",R4 -2030 LPRINT"R1=";R1;"ohms" -2040 LPRINT"R2=";R2;"ohms" -2050 LPRINT"R3=";R3;"ohms" -2060 LPRINT"R4=";R4;"ohms" -2070 PRINT:LPRINT -2080 LET RT=(1)/(1/(R1+R2))+(1/(R3+R4)) -2090 PRINT"RT=";(1)/(1/(R1+R2))+(1/(R3+R4));"ohms" -2100 LPRINT"RT=";(1)/(1/(R1+R2))+(1/(R3+R4));"ohms" -2110 PRINT:LPRINT -2120 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -2130 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -2140 IF ANS$="Y" THEN 1930 -2145 PRINT:LPRINT -2150 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -2160 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -2170 IF ANS$="Y" THEN 10 -2180 GOTO 10020 -2185 PRINT:LPRINT -2190 PRINT"Calculate TOTAL CAPACITANCE(CT), in series circuit, given C1 and C2" -2200 LPRINT"Calculate TOTAL CAPACITANCE(CT), series circuit, given C1 and C2" -2205 PRINT:LPRINT -2210 INPUT"Enter value for C1, in MFD:",C1 -2220 INPUT"Now enter the value for C2, in MFD:",C2 -2230 LPRINT"Now enter the value for C2" -2240 LPRINT"C1=";C1;"mfd" -2250 LPRINT"C2=";C2;"mfd" -2260 LET CT=(C1*C2)/(C1+C2):PRINT"CT=";(C1*C2)/(C1+C2);"mfd" -2270 LPRINT"TOTAL CAPACITANCE(CT)=";(C1*C2)/(C1+C2);"mfd" -2280 PRINT:LPRINT -2290 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -2300 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -2310 IF ANS$="Y" THEN 2190 -2315 PRINT:LPRINT -2320 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -2330 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -2340 IF ANS$="Y" THEN 10 -2350 GOTO 10020 -2355 PRINT:LPRINT -2360 PRINT"Calculate TOTAL CAPACITANCE(CT), parallel circuit, given C1 and C2" -2380 LPRINT"Calculate TOTAL CAPACITANCE(CT), parallel circuit, given C1 and C2" -2395 PRINT:LPRINT -2400 INPUT"Enter the value for C1, in mfd:",C1 -2410 LPRINT"Enter the value for C1, in mfd" -2420 INPUT"Now enter the value for C2, in mfd:",C2 -2430 LPRINT"Now enter the value for C2, in mfd" -2440 LPRINT"C1=";C1;"mfd" -2450 LPRINT"C2=";C2;"mfd" -2460 LET CT=(C1*C2)/(C1+C2):PRINT"CT=";(C1*C2)/(C1+C2);"mfd" -2470 LPRINT"CT=";(C1*C2)/(C1+C2);"mfd" -2480 PRINT:LPRINT -2490 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -2500 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -2510 IF ANS$="Y" THEN 2360 -2515 PRINT:LPRINT -2520 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -2530 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -2540 IF ANS$="Y" THEN 10 -2550 GOTO 10020 -2555 PRINT:LPRINT -2560 PRINT"Calculate TOTAL CAPACITANCE(CT) for a parallel circuit," -2570 PRINT"given C1, C2 and C3, in mfd" -2580 LPRINT"Calculate TOTAL CAPACITANCE(CT) for a parallel circuit," -2590 LPRINT"given C1, C2 and C3, in mfd" -2595 PRINT:LPRINT -2600 INPUT"C1=",C1 -2610 INPUT"C2=",C2 -2620 INPUT"C3=",C3 -2630 LPRINT"C1=";C1;"mfd" -2640 LPRINT"C2=";C2;"mfd" -2650 LPRINT"C3=";C3;"mfd" -2660 PRINT:LPRINT -2670 LET CT=(C1+C2+C3):PRINT"CT=";(C1+C2+C3);"mfd" -2680 LPRINT"CT=";(C1+C2+C3);"mfd" -2690 PRINT:LPRINT -2700 PRINT"D0 you wish to do this calculation again? (Y/N)":INPUT ANS$ -2710 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -2720 IF ANS$="Y" THEN 2560 -2725 PRINT:LPRINT -2730 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -2740 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -2750 IF ANS$="Y" THEN 10 -2760 GOTO 10020 -2765 PRINT:LPRINT -2770 PRINT"Calculate PEAK AC VOLTAGE, given RMS value" -2780 LPRINT"Calculate PEAK AC VOLTAGE, given RMS value" -2785 PRINT:LPRINT -2790 INPUT"Enter the RMS value, in volts:",RMS -2800 LPRINT"Enter the RMS value, in volts" -2810 LPRINT"RMS=";RMS;"volts" -2820 LET PEAK=(RMS*1.414):PRINT"PEAK=";(RMS*1.414);"volts" -2830 LPRINT"PEAK=";(RMS*1.414);"volts" -2840 PRINT:LPRINT -2850 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -2860 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -2870 IF ANS$="Y" THEN 2770 -2875 PRINT:LPRINT -2880 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -2890 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -2900 IF ANS$="Y" THEN 10 -2910 GOTO 10020 -2920 PRINT:LPRINT -2930 PRINT"Calculate RMS VOLTAGE, given a value in PEAK VOLTS" -2940 LPRINT"Calculate RMS VOLTAGE, given a value in PEAK VOLTS" -2945 PRINT:LPRINT -2950 INPUT"Enter the PEAK value, in volts AC:",PEAK -2960 LPRINT"PEAK VOLTS=";PEAK -2970 LET RMS=(.707*PEAK):PRINT"RMS=";(.707*PEAK);"volts AC" -2980 LPRINT"RMS=";(.707*PEAK);"volts AC" -2990 PRINT:LPRINT -3000 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -3010 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -3020 IF ANS$="Y" THEN 2930 -3025 PRINT:LPRINT -3030 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -3040 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -3050 IF ANS$="Y" THEN 10 -3060 GOTO 10020 -3065 PRINT:LPRINT -3070 PRINT"Calculate INDUCTIVE REACTANCE (XL), given FREQUENCY and INDUCTANCE" -3080 LPRINT"Calculate INDUCTIVE REACTANCE(XL), given FREQUENCY and INDUCTANCE" -3090 PRINT:LPRINT -3100 INPUT"Enter FREQUENCY (F), in Hertz:",FREQ -3110 LPRINT"Enter FREQUENCY (F), in Hertz" -3120 LPRINT"FREQUENCY=";FREQ;"Hertz -3130 INPUT"Now enter the value for INDUCTANCE (L), in henrys:",L -3140 LPRINT"Now enter the value for INDUCTANCE (L), in henrys" -3150 LPRINT"INDUCTANCE=";L;"henrys" -3160 LET XL=(2*3.1416)*FREQ*L:PRINT"XL=";(2*3.1416)*FREQ*L;"ohms" -3170 LPRINT"INDUCTIVE REACTANCE (XL)=";(2*3.1416)*FREQ*L;"ohms" -3180 PRINT:LPRINT -3190 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -3200 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -3210 IF ANS$="Y" THEN 3070 -3215 PRINT:LPRINT -3220 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -3230 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -3240 IF ANS$="Y" THEN 10 -3245 GOTO 10020 -3250 PRINT:LPRINT -3260 PRINT"Calculate CAPACITIVE REACTANCE (XC), given FREQ(F) and CAP(C)" -3270 LPRINT"Calculate CAPACITIVE REACTANCE (XC), given FREQ(F) and CAP(C)" -3275 PRINT:LPRINT -3280 INPUT"Enter the value for FREQ(F), in Hertz:",F -3290 LPRINT"FREQ(F)=";F;"Hertz" -3300 INPUT"Now enter the value for CAP(C), in mfd:",C -3305 LPRINT"Now enter the value for CAP(C), in mfd" -3310 LPRINT"CAP(C)=";C;"mfd" -3320 PRINT:LPRINT -3330 LET XC=(1)/((2*3.1416)*F*C):PRINT"XC=";(1)/((2*3.1416)*F*C);"ohms" -3340 LPRINT"CAPACITIVE REACTANCE(XC)=";(1)/((2*3.1416)*F*C);"ohms" -3350 PRINT:LPRINT -3360 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -3370 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -3380 IF ANS$="Y" THEN 3260 -3385 PRINT:LPRINT -3390 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -3400 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -3410 IF ANS$="Y" THEN 10 -3415 GOTO 10020 -3420 PRINT:LPRINT -3430 PRINT"Calculate IMPEDANCE(Z) of a series circuit, given values of" -3435 PRINT"RES(R), CAPACITIVE REACTANCE(XC) and INDUCTIVE REACTANCE(XL)" -3440 LPRINT"Calculate IMPEDANCE(Z) of a series circuit, given values of" -3445 LPRINT"RES(R), CAPACITIVE REACTANCE(XC) and INDUCTIVE REACTANCE(XL)" -3446 PRINT:LPRINT -3450 INPUT"Enter the value for RESISTANCE(R), in ohms:",R -3460 LPRINT"Enter the value for RESISTANCE(R), in ohms" -3470 INPUT"Enter the value for CAPACITIVE REACTANCE(XC), in ohms:",XC -3480 LPRINT"Enter the value for CAPACITIVE REACTANCE(XC), in ohms" -3490 INPUT"Enter the value for INDUCTIVE REACTANCE(XL), in ohms:",XL -3500 LPRINT"Enter the value for INDUCTIVE REACTANCE(XL), in ohms" -3510 PRINT:LPRINT -3520 LPRINT"RESISTANCE(R)=";R;"ohms" -3530 LPRINT"CAPACITIVE REACTANCE(XC)=";XC;"ohms" -3540 LPRINT"INDUCTIVE REACTANCE(XL)=";XL;"ohms" -3550 PRINT:LPRINT -3560 LET Z=SQR(R^2+((XL-XC)^2)) -3570 PRINT"IMPEDANCE(Z)=";SQR(R^2+((XL-XC)^2));"ohms" -3580 LPRINT"IMPEDANCE(Z)=";SQR(R^2+((XL-XC)^2));"ohms" -3590 PRINT:LPRINT -3600 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -3610 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -3620 IF ANS$="Y" THEN 3430 -3625 PRINT:LPRINT -3630 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -3640 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -3650 IF ANS$="Y" THEN 10 -3660 GOTO 10020 -3670 PRINT:LPRINT -3680 PRINT"Calculate IMPEDANCE (Z) of a parallel circuit" -3690 LPRINT"Calculate IMPEDANCE (Z) of a parallel circuit" -3700 PRINT:LPRINT -3710 INPUT"Enter the value of L, in henrys:",L -3720 LPRINT"Enter the value of L, in henrys" -3730 INPUT"Enter the value for FREQ (F), in Hertz:",F -3740 LPRINT"Enter the value for FREQ (F), in Hertz" -3750 INPUT"Now enter the value for RESISTANCE (R) in ohms:",R -3760 LPRINT"Now enter the value for RESISTANCE (R), in ohms" -3765 LPRINT"INDUCTANCE (L)=";L;"henrys" -3770 LPRINT"FREQ (F)=";F;" Hertz" -3775 LPRINT"RESISTANCE (R)=";R;"ohms" -3776 PRINT:LPRINT -3780 LET Z=((2*3.1416*F*L)^2)/(R) -3790 PRINT"IMPEDANCE (Z)=";((2*3.1416*F*L)^2)/(R);"ohms" -3800 LPRINT"IMPEDANCE (Z)=";((2*3.1416*F*L)^2)/(R);"ohms" -3810 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$ -3820 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$ -3830 IF ANS$="Y" THEN 3680 -3840 PRINT:LPRINT -3850 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$ -3860 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$ -3870 IF ANS$="Y" THEN 10 -3880 GOTO 10020 -3890 PRINT:LPRINT -10020 PRINT"Glad to have been of service! BYE!! -10030 LPRINT"Glad to have been of service! BYE!! -12000 REM -------------------------------------------------------------------------- -12010 REM Change line number 0 to line number 5 -12020 REM For automated testing, added 515 IF C = -1 THEN END -12999 END diff --git a/bwbtest/M80/rc5.INP b/bwbtest/M80/rc5.INP deleted file mode 100644 index b07728e..0000000 --- a/bwbtest/M80/rc5.INP +++ /dev/null @@ -1,11 +0,0 @@ -R -1 -123 -Y -Y -C -1 -12.34e-6 -Y -Y -E diff --git a/bwbtest/M80/rc5.bas b/bwbtest/M80/rc5.bas deleted file mode 100644 index 2dbbe28..0000000 --- a/bwbtest/M80/rc5.bas +++ /dev/null @@ -1,114 +0,0 @@ -10 REM ****************************************************************** -20 REM * * -30 REM * PROGRAM NAME: RC5% * -40 REM * * -50 REM * COMPUTES THE NEAREST STANDARD VALUE OF 5% RESISTORS OR * -60 REM * CAPACITORS GIVEN A CALCULATED VALUE INPUT * -70 REM * BY: M.F. KAVANAUGH--BRADLEY UNIVERSITY * -80 REM * * -90 REM ****************************************************************** -100 PRINT:PRINT " DO YOU WISH:" -110 PRINT " (R)ESISTOR (1 OHM-100 MEG)" -120 PRINT " (C)APACITOR (1PF-1000 MFD)" -130 PRINT " (E)XIT" -140 PRINT:INPUT I$ -150 IF I$="R" GOTO 500 -160 IF I$="C" GOTO 1000 -170 IF I$="E" GOTO 9000 -180 GOTO 100 -500 REM -510 REM ********************* RESISTORS ********************************* -520 REM -530 T$="RESISTORS":GOSUB 1530 -540 PRINT "ENTER THE RESISTOR VALUES USING THE POWER OF TEN FORMAT." -550 PRINT "ERRORS MAY BE CORRECTED AFTER ALL VALUES HAVE BEEN ENTERED." -560 FOR I=1 TO N:GOSUB 1640:PRINT:NEXT I -561 FOR I=1 TO N: V$(I)="":NEXT I -562 GOSUB 1570 -590 FOR I= 1 TO N -600 IF V(I)>=1E+06 THEN V(I)=V(I)/1E+06:V$(I)="M":GOTO 630 -610 IF V(I)>=1000! THEN V(I)=V(I)/1000:V$(I)="K":GOTO 630 -620 V$(I)="OHMS" -630 NEXT I -632 GOSUB 1920 -640 REM ***** DISPLAY STANDARD VALUE *************** -650 GOSUB 1750:GOTO 1820 -1000 REM -1010 REM ******************* CAPACITORS ********************************** -1020 REM -1030 T$="CAPACITORS":GOSUB 1530 -1040 PRINT "ENTER THE VALUE OF CAPACITOR,IN MFD.,USING THE POWER OF TEN FORMAT." -1050 PRINT "ERRORS MAY BE CORRECTED AFTER ALL THE VALUES HAVE BEEN ENTERED." -1060 FOR I=1 TO N:GOSUB 1640:PRINT:NEXT I -1061 FOR I= 1 TO N:V$(I)="":NEXT I -1062 GOSUB 1570 -1090 FOR I=1 TO N:V(I)=V(I)*1E+06:NEXT I -1120 FOR I=1 TO N -1130 IF V(I)>=1000! THEN V(I)=V(I)/1E+06:V$(I)="MFD":GOTO 1150 -1140 V$(I)="PF" -1150 NEXT I -1152 GOSUB 1920 -1160 REM ***** DISPLAY STANDARD VALUES ************* -1170 GOSUB 1750 -1180 GOTO 1820 -1500 REM -1510 REM ******************** ENTER VALUES ******************************* -1520 REM -1530 PRINT:PRINT "NUMBER OF ";T$;" TO BE ENTERED:":INPUT N -1540 IF N<=100 GOTO 1550 -1545 PRINT "100 MAX":GOTO 1530 -1550 PRINT:RETURN -1560 REM ******** CHECK INPUT VALUES *************** -1570 GOSUB 1750 -1580 INPUT "ARE THESE VALUES CORRECT (Y/N)";A$ -1590 IF A$="Y" THEN RETURN -1600 IF A$="N" GOTO 1610 ELSE 1580 -1610 INPUT "ENTER COMPONENT VALUE TO BE CHANGED";I:PRINT -1620 GOSUB 1640:GOTO 1570 -1630 REM ******* VALUE AND RANGE TEST ************** -1640 PRINT I$;I;"=":INPUT V(I) -1650 IF I$="C" GOTO 1690 -1660 IF V(I)<1 GOTO 1720 -1670 IF V(I)>1E+08 GOTO 1730 -1680 RETURN -1690 IF V(I)<.000001 GOTO 1720 -1700 IF V(I)>1000! GOTO 1730 -1710 RETURN -1720 PRINT:PRINT I$;I;" IS TOO SMALL":PRINT:GOTO 1640 -1730 PRINT:PRINT I$;I;" IS TOO LARGE":PRINT:GOTO 1640 -1740 REM ******** PUT VALUES ON TERMINAL *********** -1750 PRINT:FOR I=1 TO N STEP 4 -1760 IF I<=N THEN PRINT TAB(2);I$;I;"=";V(I);V$(I); -1770 IF (I+1)<=N THEN PRINT TAB(20);I$;I+1;"=";V(I+1);V$(I+1); -1780 IF (I+2)<=N THEN PRINT TAB(38);I$;I+2;"=";V(I+2);V$(I+2); -1790 IF (I+3)<=N THEN PRINT TAB(56);I$;I+3;"=";V(I+3);V$(I+3) -1800 NEXT I:PRINT:RETURN -1810 REM ******* PUT VALUES ON A PRINTER *********** -1820 PRINT:INPUT "DO YOU WANT HARDCOPY (Y/N)";HC$ -1830 IF HC$="N" GOTO 100 -1840 IF HC$<>"Y" GOTO 1820 -1850 LPRINT: FOR I=1 TO N STEP 4 -1860 IF I<=N THEN LPRINT TAB(2);I$;I;"=";V(I);V$(I); -1870 IF (I+1)<=N THEN LPRINT TAB(20);I$;I+1;"=";V(I+1);V$(I+1); -1880 IF (I+2)<=N THEN LPRINT TAB(38);I$;I+2;"=";V(I+2);V$(I+2); -1890 IF (I+3)<=N THEN LPRINT TAB(56);I$;I+3;"=";V(I+3);V$(I+3) -1900 NEXT I:LPRINT:GOTO 100 -1910 REM ******* FIND STANDARD VALUES ************** -1920 PRINT:PRINT " CALCULATING STANDARD VALUES" -1930 FOR I=1 TO N:L=1 -1940 IF V(I)>10 THEN L=L*10:V(I)=V(I)/10:GOTO 1940 -1945 IF V(I)<1 THEN L=L/10:V(I)=V(I)*10:GOTO 1945 -1950 READ D2 -1960 D1=D2:READ D2:IF V(I)>D2 GOTO 1960 -1970 MD=(D1+D2)/2:IF V(I)20 THEN 218 -214 Z=Z+I-1:DT=LAT(Z,1):MT=LAT(Z,2):ST=LAT(Z,3):DG=LONG(Z,1):MG=LONG(Z,2):SG=LONG(Z,3):CIT$=CITY$(Z):GOTO 240 -218 NEXT I:LOCATE 24,1:PRINT "No more cities :"; -220 INPUT"Your Latitude (dd,mm,ss) ";DT,MT,ST -230 INPUT"Your Longitude (dd,mm,ss) ";DG,MG,SG -240 SITELONG=DG+MG/60+SG/3600:SITELAT=DT+MT/60+ST/3600 -250 SITELONG = SITELONG*PI/180:SITELAT=SITELAT*PI/180 -260 PRINT CLS$:PRINT "=======================================" -270 PRINT ": SATELLITE : ELEVATION : AZIMUTH :" -280 PRINT ": : DD'MM'SS : DD'MM'SS :" -290 PRINT "=======================================" -300 FOR NUM=1 TO TOPS -310 SATLONG=ANGLE(NUM)*PI/180:GOSUB 420 -320 ELD=INT(EL):ELM1=EL-ELD:ELM=INT(ELM1*60):ELS=CINT(ELM1*3600-ELM*60) -330 AZD=INT(AZ):AZM1=AZ-AZD:AZM=INT(AZM1*60):AZS=CINT(AZM1*3600-AZM*60) -340 PRINT USING ":\ \: ###'##'## : ###'##'## :";SAT$(NUM),ELD,ELM,ELS,AZD,AZM,AZS -350 NEXT NUM -360 PRINT "=======================================" -370 PRINT USING "Latitude ###'##'##";DT,MT,ST; -380 PRINT USING "Longitude ###'##'##";DG,MG,SG; -382 PRINT -384 PRINT CIT$; -386 PRINT -390 PRINT "Another location? "; -400 INPUT Z$:IF Z$="" THEN 400 ELSE IF Z$="Y" OR Z$="y" THEN PRINT Z$;:GOTO 210 -410 END -420 ' calculate azimuth & elevation of satellite at site. -430 EL = ATN((COS(SATLONG-SITELONG)*COS(SITELAT)-.15126)/SQR(1-(COS(SATLONG-SITELONG)*COS(SITELAT))^2))*180/PI -440 AZ=180+ATN(TAN(SATLONG-SITELONG)/SIN(SITELAT))*180/PI -450 RETURN -1000 DATA Albuquerque,35,0,0,106,40,0 -1100 DATA Anchorage,61,10,0,150,0,0 -1200 DATA Atlanta,33,30,0,84,20,0 -1300 DATA Bakersfield,35,30,0,120,10,0 -1400 DATA Baltimore,39,15,0,76,40,0 -1500 DATA Bangor,44,45,0,68,45,0 -1600 DATA Birmingham,33,30,0,86,45,0 -1700 DATA Bismarck,46,45,0,100,45,0 -1800 DATA Boston,42,20,0,71,5,0 -1900 DATA Buffallo,43,0,0,78,50,0 -2000 DATA Butte,46,0,0,112,30,0 -2100 DATA Charleston,38,20,0,81,35,0 -2200 DATA Chicago,41,10,0,87,40,0 -2300 DATA Cleveland,41,20,0,81,40,0 -2400 DATA Dallas,33,0,0,97,0,0 -2500 DATA Denver,39,45,0,105,0,0 -2600 DATA Des Moines,41,30,0,93,40,0 -2700 DATA Detroit,42,30,0,83,0,0 -2800 DATA Elko,40,50,0,115,40,0 -2900 DATA Eureka,40,45,0,124,10,0 -3000 DATA Flagstaff,35,25,0,111,30,0 -3100 DATA Fresno,36,55,0,119,45,0 -3200 DATA Hartford,41,45,0,72,40,0 -3300 DATA Honolulu,21,20,0,157,50,0 -3400 DATA Houston,29,50,0,95,10,0 -3500 DATA Indianapolis,39,45,0,86,10,0 -3600 DATA Jackson,32,15,0,90,10,0 -3700 DATA Jacksonville,30,15,0,81,40,0 -3800 DATA Kansas City,39,0,0,94,30,0 -3900 DATA Las Vegas,36,10,0,115,10,0 -4000 DATA Little Rock,34,45,0,92,15,0 -4100 DATA Los Angeles,34,0,0,118,15,0 -4200 DATA Louisville,38,10,0,85,45,0 -4300 DATA Miami,25,45,0,80,15,0 -4400 DATA Milwaukee,43,0,0,88,0,0 -4500 DATA Minneapolis,45,0,0,93,15,0 -4600 DATA Nashville,36,15,0,86,45,0 -4700 DATA New Orleans,30,0,0,90,0,0 -4800 DATA New York,40,45,0,74,0,0 -4900 DATA Omaha,41,15,0,96,0,0 -5000 DATA Orlando,28,35,0,81,30,0 -5100 DATA Philadelphia,40,0,0,75,0,0 -5200 DATA Phoenix,33,30,0,112,5,0 -5300 DATA Portland,45,30,0,122,35,0 -5400 DATA Providence,41,45,0,71,15,0 -5500 DATA Reno,39,30,0,119,45,0 -5600 DATA Sacramento,38,40,0,121,30,0 -5700 DATA Saint Louis,38,40,0,90,10,0 -5800 DATA Salt Lake City,40,50,0,112,0,0 -5900 DATA San Diego,33,0,0,117,10,0 -6000 DATA Seattle,47,30,0,122,15,0 -6100 DATA San Francisco,37,40,0,122,30,0 -6200 DATA San Jose,37,15,0,121,50,0 -6300 DATA Tampa,28,0,0,82,30,0 -6400 DATA Tucson,32,10,0,111,35,0 -6500 DATA Tulsa,36,10,0,96,0,0 -6600 DATA Washington DC,38,55,0,77,5,0 -6700 DATA Winston Salem,36,10,0,80,15,0 -6800 DATA end -7000 REM -------------------------- -7010 REM Fixed overlapping structured commands -7020 REM Changed 400 Z$=INKEY$ to 400 INPUT Z$ \ No newline at end of file diff --git a/bwbtest/M80/satelite.run b/bwbtest/M80/satelite.run deleted file mode 100644 index 236603b..0000000 --- a/bwbtest/M80/satelite.run +++ /dev/null @@ -1,203 +0,0 @@ - - - 1: Albuquerque - 2: Anchorage - 3: Atlanta - 4: Bakersfield - 5: Baltimore - 6: Bangor - 7: Birmingham - 8: Bismarck - 9: Boston - 10: Buffallo - 11: Butte - 12: Charleston - 13: Chicago - 14: Cleveland - 15: Dallas - 16: Denver - 17: Des Moines - 18: Detroit - 19: Elko - 20: Eureka -Which city # (#,m=more) ? 15 - -======================================= -: SATELLITE : ELEVATION : AZIMUTH : -: : DD'MM'SS : DD'MM'SS : -======================================= -:Satcom F5 : 27'57'16 : 242'15'28 : -:Satcom 1R : 31' 6'48 : 238'49'52 : -:Satcom F1 : 34'10'43 : 235' 7'10 : -:Satcom F3 : 37' 7'24 : 231' 4'50 : -:Comstar D4 : 39'54'57 : 226'40'12 : -:Westar 5 : 42'31' 8 : 221'50'42 : -:Satcom F2 : 44'53'23 : 216'34' 8 : -:Anik A3 : 47'27'12 : 209'18'27 : -:Anik B : 49'28'45 : 201'19' 9 : -:Anik D1 : 50'52'14 : 192'42'16 : -:Westar 4 : 51'32'57 : 183'40' 7 : -:Comstar D1/D2: 51'32'57 : 176'19'53 : -:Westar 3 : 51' 3'55 : 169' 4'38 : -:Comstar D3 : 50' 7' 1 : 162' 3'38 : -:Satcom F4 : 48'44'23 : 155'24' 9 : -:Westar 1/2 : 46'58'50 : 149'10'50 : -======================================= -Latitude 33' 0' 0Longitude 97' 0' 0 -Dallas -Another location? ? Y -Y - 1: Albuquerque - 2: Anchorage - 3: Atlanta - 4: Bakersfield - 5: Baltimore - 6: Bangor - 7: Birmingham - 8: Bismarck - 9: Boston - 10: Buffallo - 11: Butte - 12: Charleston - 13: Chicago - 14: Cleveland - 15: Dallas - 16: Denver - 17: Des Moines - 18: Detroit - 19: Elko - 20: Eureka -Which city # (#,m=more) ? M - 1: Flagstaff - 2: Fresno - 3: Hartford - 4: Honolulu - 5: Houston - 6: Indianapolis - 7: Jackson - 8: Jacksonville - 9: Kansas City - 10: Las Vegas - 11: Little Rock - 12: Los Angeles - 13: Louisville - 14: Miami - 15: Milwaukee - 16: Minneapolis - 17: Nashville - 18: New Orleans - 19: New York - 20: Omaha -Which city # (#,m=more) ? 19 - -======================================= -: SATELLITE : ELEVATION : AZIMUTH : -: : DD'MM'SS : DD'MM'SS : -======================================= -:Satcom F5 : 7' 7'14 : 255'55'59 : -:Satcom 1R : 10' 6'32 : 253' 4'14 : -:Satcom F1 : 13' 4'30 : 250' 6'30 : -:Satcom F3 : 16' 0'29 : 247' 1'39 : -:Comstar D4 : 18'53'46 : 243'48'28 : -:Westar 5 : 21'43'28 : 240'25'40 : -:Satcom F2 : 24'28'38 : 236'51'54 : -:Anik A3 : 27'46'59 : 232' 7'11 : -:Anik B : 30'53'58 : 227' 0'31 : -:Anik D1 : 33'46'41 : 221'29'31 : -:Westar 4 : 36'21'52 : 215'32'26 : -:Comstar D1/D2: 38'10'59 : 210'27'30 : -:Westar 3 : 39'44'44 : 205' 5'49 : -:Comstar D3 : 41' 1'16 : 199'28'40 : -:Satcom F4 : 41'58'55 : 193'38'19 : -:Westar 1/2 : 42'36'20 : 187'38' 2 : -======================================= -Latitude 40'45' 0Longitude 74' 0' 0 -New York -Another location? ? Y -Y - 1: Albuquerque - 2: Anchorage - 3: Atlanta - 4: Bakersfield - 5: Baltimore - 6: Bangor - 7: Birmingham - 8: Bismarck - 9: Boston - 10: Buffallo - 11: Butte - 12: Charleston - 13: Chicago - 14: Cleveland - 15: Dallas - 16: Denver - 17: Des Moines - 18: Detroit - 19: Elko - 20: Eureka -Which city # (#,m=more) ? M - 1: Flagstaff - 2: Fresno - 3: Hartford - 4: Honolulu - 5: Houston - 6: Indianapolis - 7: Jackson - 8: Jacksonville - 9: Kansas City - 10: Las Vegas - 11: Little Rock - 12: Los Angeles - 13: Louisville - 14: Miami - 15: Milwaukee - 16: Minneapolis - 17: Nashville - 18: New Orleans - 19: New York - 20: Omaha -Which city # (#,m=more) ? M - 1: Orlando - 2: Philadelphia - 3: Phoenix - 4: Portland - 5: Providence - 6: Reno - 7: Sacramento - 8: Saint Louis - 9: Salt Lake City - 10: San Diego - 11: Seattle - 12: San Francisco - 13: San Jose - 14: Tampa - 15: Tucson - 16: Tulsa - 17: Washington DC - 18: Winston Salem -Which city # (#,m=more) ? 18 - -======================================= -: SATELLITE : ELEVATION : AZIMUTH : -: : DD'MM'SS : DD'MM'SS : -======================================= -:Satcom F5 : 13'13'34 : 253' 5'38 : -:Satcom 1R : 16'24'60 : 250'17'51 : -:Satcom F1 : 19'34'37 : 247'21'38 : -:Satcom F3 : 22'41'40 : 244'15'30 : -:Comstar D4 : 25'45'12 : 240'57'48 : -:Westar 5 : 28'44' 9 : 237'26'44 : -:Satcom F2 : 31'37'13 : 233'40'23 : -:Anik A3 : 35' 3' 1 : 228'32'56 : -:Anik B : 38'13'52 : 222'54'43 : -:Anik D1 : 41' 5'43 : 216'42'31 : -:Westar 4 : 43'34' 1 : 209'54'29 : -:Comstar D1/D2: 45'12'26 : 204' 2'35 : -:Westar 3 : 46'30'12 : 197'50' 2 : -:Comstar D3 : 47'25' 9 : 191'20'27 : -:Satcom F4 : 47'55'33 : 184'39'12 : -:Westar 1/2 : 48' 0'23 : 177'52'57 : -======================================= -Latitude 36'10' 0Longitude 80'15' 0 -Winston Salem -Another location? ? N diff --git a/bwbtest/M80/xformer.INP b/bwbtest/M80/xformer.INP deleted file mode 100644 index e6b59d1..0000000 --- a/bwbtest/M80/xformer.INP +++ /dev/null @@ -1,16 +0,0 @@ -Y -0.12345 -60 -0.543 -SINUSOID -Q -1 -240 -120 -10 -C -LAMINATION -0.2345 -81 -Y -N diff --git a/bwbtest/M80/xformer.bas b/bwbtest/M80/xformer.bas deleted file mode 100644 index 252da73..0000000 --- a/bwbtest/M80/xformer.bas +++ /dev/null @@ -1,573 +0,0 @@ -1 CLEAR -2 RESTORE -10 REM BRUCE A. KIMBALL/JANUARY 29,1983 -15 REM ***** INTRODUCTION SECTION ***** -20 CLS -30 FOR A=1 TO 53:PRINT "=";:NEXT A -40 PRINT -50 PRINT:PRINT TAB(15); "TRANSFORMER DESIGNER" -60 FOR A=1 TO 53:PRINT "=";:NEXT A -70 PRINT:PRINT -80 PRINT "THIS PROGRAM WILL CALCULATE THE NECESSARY NUMBER OF" -85 PRINT -90 PRINT "TURNS AND THE REQUIRED CORE PRODUCT GIVEN PARAMETERS" -95 PRINT -100 PRINT "SUCH AS FREQUENCY, CURRENT DENSITY, SECONDARY LEVELS" -105 PRINT -110 PRINT "AND FLUX DENSITY." -115 PRINT -120 PRINT "THIS PROGRAM WILL ALSO CONDUCT A 'CORE SEARCH' IF A" -125 PRINT -130 PRINT "CROSS SECTIOAL AREA IS NOT SPECIFIED. THIS SEARCH" -135 PRINT -140 PRINT "WILL RESULT IN A NUMBER OF DESIGNS BASED ON CORES IN" -145 PRINT -150 PRINT "THE MAGNETICS INC. CATALOG AND LIMITED BY THE USERS" -155 PRINT -160 PRINT "AREA AND CORE PRODUCT DESCRIPTION." -165 PRINT -170 LINE INPUT "READY TO CONTINUE ---(Y/N)---> ";A$ -180 IF A$="Y" THEN 200 -190 SYSTEM -200 REM ***** GATHER INFORMATION ***** -210 CLS -215 FOR A=1 TO 53:PRINT "=";:NEXT A -220 PRINT:PRINT -225 PRINT TAB(15); "OPERATIONAL DATA" -235 FOR A=1 TO 53:PRINT "=";:NEXT A -240 PRINT:PRINT -245 INPUT "WHAT IS YOUR CURRENT DENSITY (CM/A) ";DENSITY -250 PRINT -255 INPUT "ENTER THE OPERATIONAL FREQUENCY (HZ) ";FREQUENCY -260 PRINT -265 INPUT "ENTER THE OPERATIONAL FLUX DENSITY (GAUSS) ";FLUX -266 PRINT -267 FLX=FLUX -270 LINE INPUT "ENTER WAVESHAPE (SINUSOID/SQUARE) ";WAVESHAPE$ -275 IF WAVESHAPE$="SQUARE" THEN CONSTANT=4:GOTO 280 -276 IF WAVESHAPE$="SINUSOID" THEN CONSTANT=4.44:GOTO 280 -277 GOTO 266 -280 PRINT -281 INPUT "NUMBER OF SECONDARIES ";NS -285 PRINT -290 INPUT "PRIMARY VOLTAGE (RMS) ";VP -300 REM ***** OUTPUT DATA ***** -310 CLS -315 FOR A=1 TO 53:PRINT "=";:NEXT A -320 PRINT:PRINT -325 PRINT TAB(20); "OUTPUT DATA" -335 FOR A=1 TO 53:PRINT "=";:NEXT A -340 PRINT:PRINT -345 FOR A=1 TO NS -350 PRINT "OUTPUT #";A -353 PRINT -355 INPUT " VOLTAGE=";V(A) -357 PRINT -360 INPUT " CURRENT=";I(A) -363 TOTALPOWER=TOTALPOWER+(V(A)*I(A)) -365 PRINT:NEXT A -370 PRODUCT=(17.26*DENSITY*TOTALPOWER)/(FREQUENCY*FLUX):PDT=PRODUCT -375 CLS -380 FOR A=1 TO 53:PRINT "=";:NEXT A -383 PRINT:PRINT -385 PRINT TAB(20); "CORE SELECTION" -390 FOR A=1 TO 53:PRINT "=";:NEXT A -391 PRINT:PRINT:PRINT "MINIMUM CORE PRODUCT = ";PRODUCT;" QUARTIC INCHES":PRINT -392 PRINT "PLEASE SELECT ONE OPTION:" -393 PRINT:PRINT -394 PRINT " (A) USER SELECTED CORE" -395 PRINT -396 PRINT " (B) USER SELECTED CORE AREA" -397 PRINT -398 PRINT " (C) USER SELECTED PRODUCT" -399 PRINT:PRINT -400 LINE INPUT "PLEASE CHOOSE ONE ---A/B/C---> ";O$ -401 IF O$="A" THEN 410 -402 IF O$="B" THEN 420 -403 IF O$="C" THEN 420 -409 GOTO 375 -410 CLS:PRINT "MINIMUM CORE PRODUCT = ";PRODUCT;" SQ.IN." -411 PRINT:INPUT "PLEASE ENTER YOUR CORE AREA ---(SQ.IN.)---> ";COREAREA -412 PRINT -413 INPUT "PLEASE ENTER YOUR WINDOW AREA ---(SQ.IN.)---> ";WINDOWAREA -414 PRINT -415 IF WINDOWAREA*COREAREA"A" THEN GOTO 420 -598 GOTO 1 -600 CLS -610 FOR A=1 TO NS -615 PRINT TAB(10); "DATA FOR OUTPUT #";A -620 PRINT TAB(10); "-------------------" -625 PRINT -630 PRINT "SECONDARY #";A;" TURNS = ";N(A) -635 PRINT -640 PRINT "SECONDARY #";A;" POWER = ";V(A)*I(A);" WATTS" -645 PRINT -650 PRINT "SECONDARY #";A;" VOLTAGE = ";V(A) -655 PRINT -660 PRINT "SECONDARY #";A;" CURRENT = ";I(A) -665 PRINT -670 PRINT "SECONDARY #";A;" WIRE AREA = ";(WIREAREA(A)*1273239.5#)/N(A);" CM" -675 PRINT -680 PRINT "CONTRIBUTION TO BUILD = ";(WIREAREA(A)*100)/TOTALWIREAREA;" %" -685 PRINT -686 PRINT "PRIMARY TURNS = ";NP -687 PRINT -688 PRINT "PRIMARY WIRE AREA = ";(WIREAREAP*1273239.5#)/NP;" CM" -689 PRINT -690 LINE INPUT "READY TO CONTINUE---(Y/N)---> ";H$ -692 IF H$="Y" THEN 695 -693 IF O$<>"A" THEN A=0:GOTO 420 -694 GOTO 1 -695 CLS -696 NEXT A -697 PRINT:LINE INPUT "DO YOU NEED HARD COPY FOR THIS CORE (Y/N) ? ";D$:IF D$="Y" THEN GOTO 800 -698 IF O$="A" THEN GOTO 1 -699 GOTO 420 -700 CLS:PRODUCT=PDT -701 LINE INPUT "CORE TYPE-(LAMININATION,TOROID OR CUT) ";CORETYPE$ -702 IF CORETYPE$="LAMINATION" THEN CT=1:GOTO 707 -703 IF CORETYPE$="TOROID" THEN CT=2:GOTO 707 -704 IF CORETYPE$="CUT" THEN CT=3:GOTO 707 -705 PRINT:GOTO 701 -706 PRINT -707 IF O$="C" THEN 735 -708 LINE INPUT "SPECIFY WINDOW OR CROSS SECTION AREA (W/C) ";A$ -710 IF (A$="C" AND CT=1) THEN 725 -711 IF A$="W" THEN 720 -715 PRINT:PRINT "CROSS SECTON IS NOT A VARIABLE FOR THIS CORE":GOTO 708 -716 PRINT:GOTO 708 -720 PRINT:PRINT "WINDOWAREA IS NOT VARIABLE FOR ";CORETYPE$;" TYPE CORE":PRINT:GOTO 708 -725 PRINT:INPUT "WHAT IS CROSS SECTION (SQ.IN.) ";SELECTEDCROSSAREA:GOTO 739 -730 PRINT:INPUT "WHAT IS WINDOW AREA (SQ.IN.) ";SELECTEDWINDOWAREA:GOTO 739 -735 PRINT:INPUT "WHAT IS YOUR PRODUCT (QUARTIC INCHES) ";SELECTEDPRODUCT -736 IF SELECTEDPRODUCT>=PRODUCT THEN 739 -737 PRINT:PRINT "*** SELECTED PRODUCT IS LESS THAN MINIMUM ***":GOTO 735 -739 CLS:PRINT TAB(15); "***** CORE SEARCH *****":RESTORE -740 READ CORETYPE,WINDOWAREA,COREAREA,CORE$ -741 IF COREAREA+WINDOWAREA=0 THEN 782 -745 IF CORETYPE<>CT THEN 740 -750 IF A$="C" THEN COREAREA=SELECTEDCROSSAREA -755 IF A$="W" THEN WINDOWAREA=SELECTEDWINDOWAREA -757 IF O$="C" THEN 770 -760 IF WINDOWAREA*COREAREA0 THEN 785 -782 CLS -783 PRINT "*** CORE NOT FOUND IN ";CORETYPE$;" DATA ***" -784 PRINT:PRINT:LINE INPUT "READY TO CONTINUE ---> ";Z$:GOTO 1 -785 PRINT:PRINT:PRINT -790 PRINT "FOUND CORE:" -791 PRINT:PRINT:PRINT TAB(10); "CORE NUMBER = ";CORE$ -792 PRINT:PRINT TAB(10); "CORE CROSS SECTION = ";COREAREA;" SQ.IN." -793 PRINT:PRINT TAB(10); "CORE WINDOW AREA = ";WINDOWAREA;" SQ.IN." -794 PRINT:PRINT TAB(10); "CORE PRODUCT = ";PRODUCT;" QUARTIC INCHES" -795 PRINT:PRINT:PRINT -797 LINE INPUT "READY TO CONTINUE ---> ";T$ -798 IF T$="N" THEN CLS:GOTO 790 -799 CLS:RETURN -800 CLS -810 PRINT "*********** PRINTING ***********" -815 LPRINT "CORE TYPE = ";CORETYPE$ -820 LPRINT "CORE NUMBER = ";CORE$ -823 LPRINT "CORE PRODUCT = ";PRODUCT;" QUARTIC INCHES" -825 LPRINT "WINDOWAREA = ";WINDOWAREA;" SQUARE INCHES" -830 LPRINT "CROSS SECTION AREA = ";COREAREA;" SQUARE INCHES" -833 LPRINT "TOTAL BUILD = ";BUILD;" %" -835 LPRINT "FLUX DENSITY = ";FLUX*10000;" GAUSS" -840 LPRINT "FREQUENCY = ";FREQUENCY;" HERTZ" -845 LPRINT "INPUT WAVEFORM = ";WAVESHAPE$ -850 LPRINT "PRIMARY VOLTAGE = ";VP;"VOLTS RMS" -855 LPRINT "PRIMARY CURRENT = ";IP;" AMPS RMS" -860 LPRINT "PRIMARY WIRE AREA = ";(WIREAREAP*1273239.5#)/NP;" CM" -865 LPRINT "PRIMARY CONTRIBUTION TO BUILD = ";(WIREAREAP*100)/TOTALWIREAREA;" %" -870 LPRINT "PRIMARY POWER = ";(TOTALPOWER/.85);" WATTS" -875 LPRINT "CURRENT DENSITY = ";DENSITY;" CM/A" -880 LPRINT "TOTAL SECONDARY POWER = ";TOTALPOWER;" VA" -885 LPRINT "NUMBER OF PRIMARY TURNS = ";NP;" TURNS" -887 FOR A=1 TO NS -888 LPRINT "SECONDARY #";A;" TURNS = ";N(A) -889 LPRINT "SECONDARY #";A;" POWER = ";V(A)*I(A);" WATTS" -890 LPRINT "SECONDARY #";A;" VOLTAGE = ";V(A);" VOLTS" -891 LPRINT "SECONDARY #";A;" CURRENT = ";I(A);" AMPS" -892 LPRINT "SECONDARY #";A;" WIRE AREA = ";(WIREAREA(A)*1273239.5#)/N(A);" CM" -893 LPRINT "SECONDARY #";A;" BUILD CONTRIBUTION = ";(WIREAREA(A)*100)/TOTALWIREAREA;" %" -894 NEXT A -895 FOR A=1 TO 18:LPRINT:NEXT A -896 LPRINT:LPRINT "ENGINEER _____________________","DATE ____________________" -897 LPRINT:LPRINT "MATERIAL _____________________","THICKNESS _______________" -898 LPRINT:LPRINT "TRANS. # _____________________","WEIGHT __________________" -899 GOTO 698 -900 DATA 1,.563,.0625,"DU-1" -901 DATA 1,.156,.0353,"DU-18" -902 DATA 1,.088,.0156,"DU-124" -903 DATA 1,.304,.0625,"DU-25" -904 DATA 1,1.125,.1406,"DU-37" -905 DATA 1,2,.25,"DU-50" -906 DATA 1,.039,.0038,"DU-63" -907 DATA 1,6.125,.7656,"DU-87" -908 DATA 1,.088,.0156,"DU-124" -909 DATA 1,.312,.0625,"U-BE" -910 DATA 1,.293,.0973,"UI-312" -911 DATA 1,.422,.1406,"UI-375" -912 DATA 1,.0413,.0225,"EL-32-33" -913 DATA 1,.125,.0625,"EL-24-25" -914 DATA 1,.104,.0196,"E-35" -915 DATA 1,.166,.1406,"E-38" -916 DATA 1,.125,.0625,"EE-24-25" -917 DATA 1,.172,.1406,"EE-26-27" -918 DATA 1,.039,.0156,"EE-28-29" -919 DATA 1,.026,.0088,"EE-30-31" -920 DATA 1,.041,.0196,"EE-32-33" -921 DATA 1,.129,.0353,"EE-186-187" -922 DATA 1,.574,.7656,"EI-11" -923 DATA 1,.255,.25,"EI-22" -924 DATA 1,.094,.0625,"EI-25" -925 DATA 1,.125,.1406,"EI-27" -926 DATA 1,.031,.0156,"EI-29" -927 DATA 1,.030,.0196,"EI-33" -928 DATA 1,.188,.25,"EI-50" -929 DATA 1,.422,.5625,"EI-75" -930 DATA 1,.010,.0088,"EI-093" -931 DATA 1,.016,.0088,"EI-095" -932 DATA 1,.047,.0353,"EI-186" -933 DATA 1,.082,.0353,"EI-187" -934 DATA 1,.246,.0625,"EI-201" -935 DATA 1,.234,.1406,"EI-375" -936 DATA 1,.293,.3906,"EI-625" -937 DATA 1,.188,.1183,"F-12" -938 DATA 1,.188,.1183,"F-12M" -939 DATA 1,.188,.1183,"F-13" -940 DATA 1,.047,.0353,"F-14" -941 DATA 1,.125,.0625,"F-15M" -942 DATA 1,.371,.1406,"F-20" -943 DATA 1,.257,.2500,"F-21" -944 DATA 1,.260,.2500,"F-50" -945 DATA 1,.1725,.1406,"F-26-27" -946 DATA 1,.0391,.0156,"F-28-29" -947 DATA 1,.086,.0353,"F-187" -948 DATA 1,.082,.0353,"F-187M" -949 DATA 1,.015,.0088,"F-094" -950 DATA 1,.750,.2500,"L-7" -951 DATA 1,.705,.1918,"L-101" -952 DATA 1,.196,.0156,"R-100" -953 DATA 1,.442,.0353,"R-101" -954 DATA 1,.994,.0353,"R-103" -955 DATA 1,2.074,.0353,"R-106" -956 DATA 1,.110,.0039,"R-153" -1000 DATA 3,1.0156,.1175,"ME1573" -1001 DATA 3,.438,.09375,"ME2160" -1002 DATA 3,.5625,.05273,"ME0043" -1003 DATA 3,.1875,.125,"ME1237" -1004 DATA 3,1.0156,.1875,"ME0025" -1005 DATA 3,.625,.1875,"ME1555" -1006 DATA 3,.594,.234375,"ME2540" -1007 DATA 3,1.5,.3125,"ME0067" -1008 DATA 3,.438,.1875,"ME0053" -1009 DATA 3,.7815,.1875,"ME2180" -1010 DATA 3,1.5,.28125,"ME3800" -1011 DATA 3,.7815,.28125,"ME1559" -1012 DATA 3,.5625,.28125,"ME1151" -1013 DATA 3,.859375,.375,"ME6200" -1014 DATA 3,2,.46875,"ME3001" -1015 DATA 3,1.586375,.508125,"ME1558" -1016 DATA 3,1.876,.25,"ME1551" -1017 DATA 3,1.5,.375,"ME1810" -1018 DATA 3,.7815,.5,"ME0078" -1019 DATA 3,1.5,.5,"ME0090" -1020 DATA 3,3,.5,"ME1440" -1021 DATA 3,3.6693,.625,"ME1560" -1022 DATA 3,1.75,.875,"ME1570" -1023 DATA 3,.625,.5625,"ME1561" -1024 DATA 3,3,.78125,"ME1562" -1025 DATA 3,7.3125,.46875,"ME1567" -1026 DATA 3,1.750,.875,"ME1570" -1027 DATA 3,.527625,.34375,"ME1572" -1028 DATA 3,1.091094,.375,"ME1571" -1029 DATA 3,1.25,.38,"ME1600" -1030 DATA 3,1.5,.75,"ME2250" -1031 DATA 3,3,.75,"ME1566" -1032 DATA 3,1.22,.75,"ME3002" -1033 DATA 3,6.51,1.01,"ME1565" -1034 DATA 3,1.69,1.13,"ME9200" -2000 DATA 2,.03,.02,"50944" -2001 DATA 2,.03,.04,"50815" -2002 DATA 2,.05,.01,"50937" -2003 DATA 2,.05,.46,"50492" -2004 DATA 2,.06,.004,"50302" -2005 DATA 2,.0573,.0075,"50927" -2006 DATA 2,.066,.02068,"50787" -2007 DATA 2,.066,.0275,"50940" -2008 DATA 2,.068,.03416,"50871" -2009 DATA 2,.07068,.025,"50726" -2010 DATA 2,.07068,.0375,"50798" -2011 DATA 2,.07694,.0095,"50924" -2012 DATA 2,.07694,.01169,"50740" -2013 DATA 2,.07694,.03401,"50853" -2014 DATA 2,.07694,.040875,"50912" -2015 DATA 2,.07694,.039788,"50861" -2016 DATA 2,.07694,.0195,"50831" -2017 DATA 2,.07694,.03125,"50686" -2018 DATA 2,.07694,.02239,"50854" -2019 DATA 2,.07694,.02886,"50938" -2020 DATA 2,.077,.025,"50848" -2021 DATA 2,.0924,.0098,"50810" -2022 DATA 2,.0924,.01946,"50935" -2023 DATA 2,.0951,.00825,"50822" -2024 DATA 2,.11045,.0118,"50695" -2025 DATA 2,.11045,.00406,"50402" -2026 DATA 2,.11045,.00394,"50367" -2027 DATA 2,.11045,.0078,"50153" -2028 DATA 2,.11045,.01562,"50681" -2029 DATA 2,.11045,.00969,"50934" -2030 DATA 2,.11045,.01175,"50933" -2031 DATA 2,.11045,.05625,"50916" -2032 DATA 2,.11045,.03125,"50319" -2033 DATA 2,.11045,.05,"50233" -2034 DATA 2,.11045,.0585,"50844" -2035 DATA 2,.11045,.05312,"50820" -2036 DATA 2,.11045,.0625,"50789" -2037 DATA 2,.11045,.04407,"50929" -2038 DATA 2,.11045,.078125,"50915" -2039 DATA 2,.12378,.0378,"50628" -2040 DATA 2,.12946,.007875,"50708" -2041 DATA 2,.12946,.061539,"50758" -2042 DATA 2,.12946,.04215,"50836" -2043 DATA 2,.139205,.007426,"50607" -2044 DATA 2,.15067,.003875,"50707" -2045 DATA 2,.15067,.0078,"50154" -2046 DATA 2,.15067,.0156,"50155" -2047 DATA 2,.15067,.03125,"50376" -2048 DATA 2,.15067,.00775,"50890" -2049 DATA 2,.15067,.0156,"50796" -2050 DATA 2,.15067,.03125,"50601" -2051 DATA 2,.15067,.0625,"54879" -2052 DATA 2,.15067,.014508,"50818" -2053 DATA 2,.15067,.0585,"50698" -2054 DATA 2,.15067,.080262,"50851" -2055 DATA 2,.15067,.149375,"50945" -2056 DATA 2,.15067,.07825,"50659" -2057 DATA 2,.1735,.017202,"50821" -2058 DATA 2,.1735,.04675,"50859" -2059 DATA 2,.1772,.009875,"50687" -2060 DATA 2,.19635,.00156,"50418" -2061 DATA 2,.19635,.003125,"50158" -2062 DATA 2,.19635,.0039375,"50107" -2063 DATA 2,.19635,.005125,"50576" -2064 DATA 2,.19635,.02185,"50919" -2065 DATA 2,.19635,.0039375,"50368" -2066 DATA 2,.19635,.0078125,"50056" -2067 DATA 2,.19635,.015625,"50218" -2068 DATA 2,.19635,.046875,"50217" -2069 DATA 2,.19635,.019375,"50895" -2070 DATA 2,.19635,.034125,"50657" -2071 DATA 2,.19635,.03822,"50656" -2072 DATA 2,.19635,.070125,"50569" -2073 DATA 2,.19635,.0188,"50942" -2074 DATA 2,.19635,.015625,"50000" -2075 DATA 2,.19635,.0235,"50632" -2076 DATA 2,.19635,.25,"50176" -2077 DATA 2,.19635,.039,"50904" -2078 DATA 2,.19635,.046875,"50768" -2079 DATA 2,.19635,.0625,"50216" -2080 DATA 2,.19635,.078125,"50760" -2081 DATA 2,.19635,.09375,"50332" -2082 DATA 2,.19635,.125,"50110" -2083 DATA 2,.19635,.0325,"50533" -2084 DATA 2,.19635,.0195,"50360" -2085 DATA 2,.19635,.029172,"50593" -2086 DATA 2,.19635,.0585,"50651" -2087 DATA 2,.19635,.078,"50359" -2088 DATA 2,.19635,.04375,"50677" -2089 DATA 2,.19635,.0315,"50743" -2090 DATA 2,.19635,.03525,"50742" -2091 DATA 2,.19635,.1125,"50705" -2092 DATA 2,.19635,.025,"50905" -2093 DATA 2,.19635,.053125,"50685" -2094 DATA 2,.19635,.08193,"50832" -2095 DATA 2,.19635,.11,"50247" -2096 DATA 2,.19635,.03125,"50712" -2097 DATA 2,.19635,.0625,"50558" -2098 DATA 2,.19635,.07825,"50792" -2099 DATA 2,.19635,.09375,"50551" -2100 DATA 2,.19635,.125,"50637" -2101 DATA 2,.19635,.15625,"50885" -2102 DATA 2,.19635,.1875,"50733" -2103 DATA 2,.19635,.1525,"50201" -2104 DATA 2,.19635,.09375,"50649" -2105 DATA 2,.19635,.19875,"50782" -2106 DATA 2,.19635,.25,"50585" -2107 DATA 2,.2165,.0328125,"50333" -2108 DATA 2,.2206,.0059,"50354" -2109 DATA 2,.2206,.00795,"50522" -2110 DATA 2,.2231,.27925,"50949" -2111 DATA 2,.2290,.01598,"50241" -2112 DATA 2,.2290,.02205,"50171" -2113 DATA 2,.2376,.1,"50437" -2114 DATA 2,.2463,.25,"50253" -2115 DATA 2,.2489,.003875,"50403" -2116 DATA 2,.2489,.00775,"50767" -2117 DATA 2,.2489,.0116875,"50138" -2118 DATA 2,.2489,.017578,"50736" -2119 DATA 2,.2489,.015625,"50713" -2120 DATA 2,.2489,.04675,"50930" -2121 DATA 2,.2489,.0819375,"50672" -2122 DATA 2,.2489,.0625,"50662" -2123 DATA 2,.2827,.00375,"50404" -2124 DATA 2,.2827,.004375,"50377" -2125 DATA 2,.2827,.0375,"50296" -2126 DATA 2,.2827,.1125,"50741" -2127 DATA 2,.2827,.1406,"50732" -2128 DATA 2,.2827,.025,"50745" -2129 DATA 2,.2827,.3075,"50818" -2130 DATA 2,.2827,.09375,"50177" -2131 DATA 2,.3068,.00939,"50624" -2132 DATA 2,.3067,.00406,"50485" -2133 DATA 2,.3067,.009375,"50420" -2134 DATA 2,.3067,.0078,"50057" -2135 DATA 2,.3067,.01175,"50238" -2136 DATA 2,.3067,.015625,"50331" -2137 DATA 2,.3067,.0195625,"50625" -2138 DATA 2,.3067,.015625,"50063" -2139 DATA 2,.3067,.03125,"50033" -2140 DATA 2,.3067,.046975,"50671" -2141 DATA 2,.3067,.003,"50362" -2142 DATA 2,.3067,.03525,"50076" -2143 DATA 2,.3067,.046875,"50007" -2144 DATA 2,.3067,.05868,"50161" -2145 DATA 2,.3067,.0703,"50094" -2146 DATA 2,.3067,.09375,"50640" -2147 DATA 2,.3067,.105375,"50361" -2148 DATA 2,.3067,.1406,"50913" -2149 DATA 2,.3067,.1875,"50780" -2150 DATA 2,.3067,.0625,"50167" -2151 DATA 2,.3067,.125,"50668" -2152 DATA 2,.3067,.15625,"50768" -2153 DATA 2,.3067,.1875,"50785" -2154 DATA 2,.3067,.0819,"50900" -2155 DATA 2,.3067,.1172,"50917" -2156 DATA 2,.3067,.0625,"50728" -2157 DATA 2,.3067,.09375,"50817" -2158 DATA 2,.3067,.1640,"50023" -2159 DATA 2,.3067,.4375,"50737" -2160 DATA 2,.3147,.0264,"50588" -2161 DATA 2,.3318,.007,"50855" -2162 DATA 2,.3318,.0039,"50267" -2163 DATA 2,.3318,.0222,"50513" -2164 DATA 2,.3318,.0156,"50002" -2165 DATA 2,.3318,.1,"50852" -2166 DATA 2,.3318,.0531,"50509" -2167 DATA 2,.3318,.0625,"50249" -2168 DATA 2,.3318,.07825,"50519" -2169 DATA 2,.3318,.09375,"50133" -2170 DATA 2,.3318,.125,"50837" -2171 DATA 2,.3318,.1518,"5046X" -2172 DATA 2,.3318,.17375,"50468" -2173 DATA 2,.3318,.1812,"50893" -2174 DATA 2,.3718,.0038,"50356" -2175 DATA 2,.3718,.046875,"50230" -2176 DATA 2,.3718,.0715,"50838" -2177 DATA 2,.3739,.0160,"50242" -2178 DATA 2,.3848,.225,"50520" -2179 DATA 2,.3848,.0625,"50178" -2180 DATA 2,.3848,.125,"50179" -2181 DATA 2,.4128,.0042,"50394" -2182 DATA 2,.4417,.005,"50484" -2183 DATA 2,.4417,.01175,"50006" -2184 DATA 2,.4417,.0078,"50143" -2185 DATA 2,.4417,.0156,"50423" -2186 DATA 2,.4417,.0235,"50003" -2187 DATA 2,.4417,.00625,"50329" -2188 DATA 2,.4417,.0156,"50134" -2189 DATA 2,.4417,.0235,"50523" -2190 DATA 2,.4417,.03125,"50061" -2191 DATA 2,.4417,.0468,"50168" -2192 DATA 2,.4417,.0625,"50627" -2193 DATA 2,.4417,.125,"50415" -2194 DATA 2,.4417,.03525,"50106" -2195 DATA 2,.4417,.04687,"50084" -2196 DATA 2,.4417,.0703,"50034" -2197 DATA 2,.4417,.09375,"50099" -2198 DATA 2,.4417,.1875,"50771" -2199 DATA 2,.4417,.0244,"50527" -2200 DATA 2,.4417,.04085,"50364" -2201 DATA 2,.4417,.13656,"50363" -2202 DATA 2,.4417,.04675,"50923" -2203 DATA 2,.4417,.0625,"50318" -2204 DATA 2,.4417,.09375,"50188" -2205 DATA 2,.4417,.125,"50481" -2206 DATA 2,.4417,.1875,"50777" -2207 DATA 2,.4417,.25,"50124" -2208 DATA 2,.4417,.0351,"50674" -2209 DATA 2,.4417,.0390,"50226" -2210 DATA 2,.4417,.0781,"50193" -2211 DATA 2,.4417,.0975,"50931" -2212 DATA 2,.4417,.1172,"50189" -2213 DATA 2,.4417,.2343,"50776" -2214 DATA 2,.4417,.245,"50464" -2215 DATA 2,.4417,.0705,"50697" -2216 DATA 2,.4417,.1406,"50514" -2217 DATA 2,.4417,.1875,"50827" -2218 DATA 2,.4417,.375,"50779" -2219 DATA 2,.4417,.4687,"50901" -2220 DATA 2,.4417,.2187,"50719" -2221 DATA 2,.4417,.2734,"50786" -2222 DATA 2,.4417,.375,"50902" -2223 DATA 2,.4417,.5,"50259" -2224 DATA 2,.4417,.375,"50766" -2225 DATA 2,.4417,1.125,"50744" -2226 DATA 2,.5026,.0375,"50203" -5000 DATA 0,0,0,0 -6000 REM -------------------------------------- -6010 REM Changed 954 DATR to DATA -6020 REM Changed 2128 DATA2 to DATA 2 -6030 REM Added semicolons to PRINT commands -6040 REM Changed PRINT CHR$(160) to PRINT "=" -6050 REM Changed PRINT CHR$(26) to CLS -6999 END - diff --git a/bwbtest/M80/xformer.run b/bwbtest/M80/xformer.run deleted file mode 100644 index e786ab6..0000000 --- a/bwbtest/M80/xformer.run +++ /dev/null @@ -1,108 +0,0 @@ -===================================================== - - TRANSFORMER DESIGNER -===================================================== - -THIS PROGRAM WILL CALCULATE THE NECESSARY NUMBER OF - -TURNS AND THE REQUIRED CORE PRODUCT GIVEN PARAMETERS - -SUCH AS FREQUENCY, CURRENT DENSITY, SECONDARY LEVELS - -AND FLUX DENSITY. - -THIS PROGRAM WILL ALSO CONDUCT A 'CORE SEARCH' IF A - -CROSS SECTIOAL AREA IS NOT SPECIFIED. THIS SEARCH - -WILL RESULT IN A NUMBER OF DESIGNS BASED ON CORES IN - -THE MAGNETICS INC. CATALOG AND LIMITED BY THE USERS - -AREA AND CORE PRODUCT DESCRIPTION. - -READY TO CONTINUE ---(Y/N)---> Y -===================================================== - - OPERATIONAL DATA -===================================================== - -WHAT IS YOUR CURRENT DENSITY (CM/A) ? 0.12345 - -ENTER THE OPERATIONAL FREQUENCY (HZ) ? 60 - -ENTER THE OPERATIONAL FLUX DENSITY (GAUSS) ? 0.543 - -ENTER WAVESHAPE (SINUSOID/SQUARE) SINUSOID - -NUMBER OF SECONDARIES ? Q -?Redo from start -NUMBER OF SECONDARIES ? 1 - -PRIMARY VOLTAGE (RMS) ? 240 -===================================================== - - OUTPUT DATA -===================================================== - -OUTPUT # 1 - - VOLTAGE=? 120 - - CURRENT=? 10 - -===================================================== - - CORE SELECTION -===================================================== - -MINIMUM CORE PRODUCT = 78.4806 QUARTIC INCHES - -PLEASE SELECT ONE OPTION: - - - (A) USER SELECTED CORE - - (B) USER SELECTED CORE AREA - - (C) USER SELECTED PRODUCT - - -PLEASE CHOOSE ONE ---A/B/C---> C -CORE TYPE-(LAMININATION,TOROID OR CUT) LAMINATION - -WHAT IS YOUR PRODUCT (QUARTIC INCHES) ? 0.2345 - -*** SELECTED PRODUCT IS LESS THAN MINIMUM *** - -WHAT IS YOUR PRODUCT (QUARTIC INCHES) ? 81 - ***** CORE SEARCH ***** -*** CORE NOT FOUND IN LAMINATION DATA *** - - -READY TO CONTINUE ---> Y -===================================================== - - TRANSFORMER DESIGNER -===================================================== - -THIS PROGRAM WILL CALCULATE THE NECESSARY NUMBER OF - -TURNS AND THE REQUIRED CORE PRODUCT GIVEN PARAMETERS - -SUCH AS FREQUENCY, CURRENT DENSITY, SECONDARY LEVELS - -AND FLUX DENSITY. - -THIS PROGRAM WILL ALSO CONDUCT A 'CORE SEARCH' IF A - -CROSS SECTIOAL AREA IS NOT SPECIFIED. THIS SEARCH - -WILL RESULT IN A NUMBER OF DESIGNS BASED ON CORES IN - -THE MAGNETICS INC. CATALOG AND LIMITED BY THE USERS - -AREA AND CORE PRODUCT DESCRIPTION. - -READY TO CONTINUE ---(Y/N)---> N - diff --git a/bwbtest/NBS2/00README.TXT b/bwbtest/NBS2/00README.TXT deleted file mode 100644 index be4ba14..0000000 --- a/bwbtest/NBS2/00README.TXT +++ /dev/null @@ -1,13 +0,0 @@ -This folder contains a large number of BASIC programs -to test conformance to ANSI Minimal BASIC, -as documented in ECMA-55.TXT. The file ECMA-55.TXT -originally came from http://sourceforge.net/projects/buraphakit/. -The tests are described in NBS_minimal_BASIC_test_programs_vol1.txt. - - -The P###.* files implement the "NBS Minimal BASIC Test Programs—Version 2", -which is described in the file "NBS_minimal_BASIC_test_programs_vol1.txt". -The P###.* files originally came from http://sourceforge.net/projects/buraphakit/. -The P###.* files have been updated for bwBASIC by Howard Wulf, AF5NE. -By design, bwBASIC does not pass test number P062. - diff --git a/bwbtest/NBS2/00test.sh b/bwbtest/NBS2/00test.sh deleted file mode 100644 index a803150..0000000 --- a/bwbtest/NBS2/00test.sh +++ /dev/null @@ -1,271 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./00test.sh -# -# - -rm *.OUT -rm *.LPT -rm *.80 -rm *.dif - - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile E78.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} -# ---------------------------------------------- -# -# ANSI/ECMA Minimal BASIC tests -# -# ---------------------------------------------- -testcase P001 -testcase P002 -testcase P003 -testcase P004 -testcase P005 -testcase P006 -testcase P007 -testcase P008 -testcase P009 -testcase P010 -testcase P011 -testcase P012 -testcase P013 -testcase P014 -testcase P015 -testcase P016 -testcase P017 -testcase P018 -testcase P019 -testcase P020 -testcase P021 -testcase P022 -testcase P023 -testcase P024 -testcase P025 -testcase P026 -testcase P027 -testcase P028 -testcase P029 -testcase P030 -testcase P031 -testcase P032 -testcase P033 -testcase P034 -testcase P035 -testcase P036 -testcase P037 -testcase P038 -testcase P039 -testcase P040 -testcase P041 -testcase P042 -testcase P043 -testcase P044 -testcase P045 -testcase P046 -testcase P047 -testcase P048 -testcase P049 -testcase P050 -testcase P051 -testcase P052 -testcase P053 -testcase P054 -testcase P055 -testcase P056 -testcase P057 -testcase P058 -testcase P059 -testcase P060 -testcase P061 -# ---------------------------------------------- -# -# P062 should ERROR on line 550 -# -# This is by design -# -# DIM is an executed command -# -# ---------------------------------------------- -echo "By design, P062 SHOULD ERROR on line 550: SUBSCRIPT OUT OF RANGE E(14)" -testcase P062 -testcase P063 -testcase P064 -testcase P065 -testcase P066 -testcase P067 -testcase P068 -testcase P069 -testcase P070 -testcase P071 -testcase P072 -testcase P073 -testcase P074 -testcase P075 -testcase P076 -testcase P077 -testcase P078 -testcase P079 -testcase P080 -testcase P081 -testcase P082 -testcase P083 -testcase P084 -testcase P085 -testcase P086 -testcase P087 -testcase P088 -testcase P089 -testcase P090 -testcase P091 -testcase P092 -testcase P093 -testcase P094 -testcase P095 -testcase P096 -testcase P097 -testcase P098 -testcase P099 -testcase P100 -testcase P101 -testcase P102 -testcase P103 -testcase P104 -testcase P105 -testcase P106 -testcase P107 -testcase P108 -testcase P109 -testcase P110 -testcase P111 -testcase P112 -testcase P113 -testcase P114 -testcase P115 -testcase P116 -testcase P117 -testcase P118 -testcase P119 -testcase P120 -testcase P121 -testcase P122 -testcase P123 -testcase P124 -testcase P125 -testcase P126 -testcase P127 -testcase P128 -testcase P129 -testcase P130 -# ---------------------------------------------- -# -# The results of P131 should chaange -# every time the program runs. -# -# ---------------------------------------------- -testcase P131 -# echo P131 - RANDOMMIZE - MANUAL REVIEW REQUIRED -# echo "OPTION VERSION ECMA-55" > profile.bas -# ~/bwbasic P131 > P131.OUT -testcase P132 -testcase P133 -testcase P134 -testcase P135 -testcase P136 -testcase P137 -testcase P138 -testcase P139 -testcase P140 -testcase P141 -testcase P142 -testcase P143 -testcase P144 -testcase P145 -testcase P146 -testcase P147 -testcase P148 -testcase P149 -testcase P150 -testcase P151 -testcase P152 -testcase P153 -testcase P154 -testcase P155 -testcase P156 -testcase P157 -testcase P158 -testcase P159 -testcase P160 -testcase P161 -testcase P162 -testcase P163 -testcase P164 -testcase P165 -testcase P166 -testcase P167 -testcase P168 -testcase P169 -testcase P170 -testcase P171 -testcase P172 -testcase P173 -testcase P174 -testcase P175 -testcase P176 -testcase P177 -testcase P178 -testcase P179 -testcase P180 -testcase P181 -testcase P182 -testcase P183 -testcase P184 -testcase P185 -testcase P186 -testcase P187 -testcase P188 -testcase P189 -testcase P190 -testcase P191 -testcase P192 -testcase P193 -testcase P194 -testcase P195 -testcase P196 -testcase P197 -testcase P198 -testcase P199 -testcase P200 -testcase P201 -testcase P202 -testcase P203 -testcase P204 -testcase P205 -testcase P206 -testcase P207 -testcase P208 -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/NBS2/01test.sh b/bwbtest/NBS2/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/NBS2/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/NBS2/02ok.sh b/bwbtest/NBS2/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/NBS2/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/NBS2/1 b/bwbtest/NBS2/1 deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/NBS2/99test.sh b/bwbtest/NBS2/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/NBS2/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/NBS2/E78.PRO b/bwbtest/NBS2/E78.PRO deleted file mode 100644 index caa449e..0000000 --- a/bwbtest/NBS2/E78.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "ECMA-55" diff --git a/bwbtest/NBS2/P001.BAS b/bwbtest/NBS2/P001.BAS deleted file mode 100644 index aeaf6a1..0000000 --- a/bwbtest/NBS2/P001.BAS +++ /dev/null @@ -1,94 +0,0 @@ -10 PRINT "PROGRAM FILE 1: NULL PRINT AND PRINTING QUOTED STRINGS." -20 PRINT " ANSI STANDARD 3.2, 3.4, 5.2, 5.4, 12.2, 12.4" -30 PRINT -40 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF THE END STATEMENT" -50 PRINT " WHICH HAS NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW" -60 PRINT " THIS FEATURE TO BE INCORRECTLY IMPLEMENTED, THEN THE " -70 PRINT " VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL." -80 PRINT -90 PRINT -100 PRINT " * * * * * * * * * * * * * * * * * *" -110 PRINT " * *" -120 PRINT " * MINIMAL BASIC TEST PROGRAMS *" -130 PRINT " * VERSION 2 *" -135 PRINT " * *" -140 PRINT " * PRODUCT OF *" -150 PRINT " * NATIONAL BUREAU OF STANDARDS *" -160 PRINT " * *" -170 PRINT " * * * * * * * * * * * * * * * * * *" -180 PRINT -190 PRINT "SECTION 1.1: NULL PRINT. " -200 PRINT -210 PRINT " BEGIN TEST." -220 PRINT " THIS IS LINE 1." -230 PRINT " THIS IS LINE 2." -240 PRINT -250 PRINT " THIS IS LINE 4, 3 SHOULD HAVE BEEN SKIPPED." -260 PRINT " THIS IS LINE 5." -270 PRINT -280 PRINT -290 PRINT " THIS IS LINE 8, 6 AND 7 SHOULD HAVE BEEN SKIPPED." -300 PRINT -310 PRINT "*** TEST PASSED IF LINES 2 AND 4 HAVE A BLANK LINE BETWEEN" -320 PRINT " THEM, AND LINES 5 AND 8 TWO BLANK LINES ***" -330 PRINT -340 PRINT " END TEST." -350 PRINT -360 PRINT "SECTION 2.1: LEGAL CHARACTERS IN PRINTING QUOTED STRINGS." -390 PRINT -400 PRINT " BEGIN TEST." -410 PRINT -420 PRINT " LINE BELOW MUST PRINT OUT UPPER CASE LETTERS A THROUGH Z" -430 PRINT " ABCDEFGHIJKLMNOPQRSTUVWXYZ" -440 PRINT -450 PRINT " LINE BELOW MUST PRINT OUT DIGITS ZERO THROUGH NINE." -460 PRINT " 0123456789" -470 PRINT -480 PRINT "LINE BELOW MUST PRINT OUT, IN THE FOLLOWING ORDER, LEFT" -490 PRINT "PARENTHESIS, RIGHT PARENTHESIS, AMPERSAND, EXCLAMATION" -500 PRINT "POINT, NUMBER SIGN, PERCENT, APOSTROPHE, QUESTION MARK," -510 PRINT "ASTERISK, AND DOLLAR SIGN." -520 PRINT " ()&!#%'?*$" -530 PRINT -540 PRINT "LINE BELOW MUST PRINT OUT, IN THE FOLLOWING ORDER, PLUS," -550 PRINT "COMMA, MINUS, SLANT, LESS-THAN, EQUALS, GREATER-THAN," -560 PRINT "CIRCUMFLEX, AND PERIOD." -570 PRINT " +,-/<=>^." -580 PRINT -590 PRINT "LINE BELOW MUST PRINT OUT, IN THE FOLLOWING ORDER, COLON," -600 PRINT "SPACE, SEMI-COLON, AND UNDERLINE." -610 PRINT " : ;_" -620 PRINT -630 PRINT "*** TEST PASSED IF THE ABOVE SPECIFICATIONS WERE MET ***" -640 PRINT -650 PRINT " END TEST." -660 PRINT -670 PRINT "SECTION 1.3: SPACES IN QUOTED STRINGS." -690 PRINT -700 PRINT " BEGIN TEST." -710 PRINT -720 PRINT " ABCDEFGHIJKLMNOPQRSTUVWXYZ" -730 PRINT " A CD GH LM RS YZ" -740 PRINT -750 PRINT "*** TEST PASSED IF THE SECOND LINE OF ALPHA CHARACTERS IN " -760 PRINT " THE ABOVE TEST HAS BLANKS WHERE THE LETTERS B, E, F," -770 PRINT " I, J, K, N, O, P, Q, T, U, V, W, AND X APPEAR IN THE " -775 PRINT " FIRST LINE. ***" -780 PRINT -790 PRINT " END TEST." -800 PRINT -810 PRINT "SECTION 1.4: PRINTING THE NULL STRING." -830 PRINT -840 PRINT " BEGIN TEST." -850 PRINT -870 PRINT "THE NEXT STATEMENT PRINTS A NULL QUOTED STRING." -890 PRINT "" -900 PRINT "THE LINE ABOVE MUST BE BLANK AS A RESULT OF PRINTING" -910 PRINT "A NULL QUOTED STRING." -920 PRINT -930 PRINT "*** TEST PASSED IF THE ABOVE SPECIFICATIONS WERE MET ***" -940 PRINT -950 PRINT " END TEST." -960 PRINT -970 PRINT "END PROGRAM 1" -980 END diff --git a/bwbtest/NBS2/P001.run b/bwbtest/NBS2/P001.run deleted file mode 100644 index 9442b85..0000000 --- a/bwbtest/NBS2/P001.run +++ /dev/null @@ -1,93 +0,0 @@ -PROGRAM FILE 1: NULL PRINT AND PRINTING QUOTED STRINGS. - ANSI STANDARD 3.2, 3.4, 5.2, 5.4, 12.2, 12.4 - -*** NOTE: THIS PROGRAM MAKES USE OF THE END STATEMENT - WHICH HAS NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW - THIS FEATURE TO BE INCORRECTLY IMPLEMENTED, THEN THE - VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL. - - - * * * * * * * * * * * * * * * * * * - * * - * MINIMAL BASIC TEST PROGRAMS * - * VERSION 2 * - * * - * PRODUCT OF * - * NATIONAL BUREAU OF STANDARDS * - * * - * * * * * * * * * * * * * * * * * * - -SECTION 1.1: NULL PRINT. - - BEGIN TEST. - THIS IS LINE 1. - THIS IS LINE 2. - - THIS IS LINE 4, 3 SHOULD HAVE BEEN SKIPPED. - THIS IS LINE 5. - - - THIS IS LINE 8, 6 AND 7 SHOULD HAVE BEEN SKIPPED. - -*** TEST PASSED IF LINES 2 AND 4 HAVE A BLANK LINE BETWEEN - THEM, AND LINES 5 AND 8 TWO BLANK LINES *** - - END TEST. - -SECTION 2.1: LEGAL CHARACTERS IN PRINTING QUOTED STRINGS. - - BEGIN TEST. - - LINE BELOW MUST PRINT OUT UPPER CASE LETTERS A THROUGH Z - ABCDEFGHIJKLMNOPQRSTUVWXYZ - - LINE BELOW MUST PRINT OUT DIGITS ZERO THROUGH NINE. - 0123456789 - -LINE BELOW MUST PRINT OUT, IN THE FOLLOWING ORDER, LEFT -PARENTHESIS, RIGHT PARENTHESIS, AMPERSAND, EXCLAMATION -POINT, NUMBER SIGN, PERCENT, APOSTROPHE, QUESTION MARK, -ASTERISK, AND DOLLAR SIGN. - ()&!#%'?*$ - -LINE BELOW MUST PRINT OUT, IN THE FOLLOWING ORDER, PLUS, -COMMA, MINUS, SLANT, LESS-THAN, EQUALS, GREATER-THAN, -CIRCUMFLEX, AND PERIOD. - +,-/<=>^. - -LINE BELOW MUST PRINT OUT, IN THE FOLLOWING ORDER, COLON, -SPACE, SEMI-COLON, AND UNDERLINE. - : ;_ - -*** TEST PASSED IF THE ABOVE SPECIFICATIONS WERE MET *** - - END TEST. - -SECTION 1.3: SPACES IN QUOTED STRINGS. - - BEGIN TEST. - - ABCDEFGHIJKLMNOPQRSTUVWXYZ - A CD GH LM RS YZ - -*** TEST PASSED IF THE SECOND LINE OF ALPHA CHARACTERS IN - THE ABOVE TEST HAS BLANKS WHERE THE LETTERS B, E, F, - I, J, K, N, O, P, Q, T, U, V, W, AND X APPEAR IN THE - FIRST LINE. *** - - END TEST. - -SECTION 1.4: PRINTING THE NULL STRING. - - BEGIN TEST. - -THE NEXT STATEMENT PRINTS A NULL QUOTED STRING. - -THE LINE ABOVE MUST BE BLANK AS A RESULT OF PRINTING -A NULL QUOTED STRING. - -*** TEST PASSED IF THE ABOVE SPECIFICATIONS WERE MET *** - - END TEST. - -END PROGRAM 1 diff --git a/bwbtest/NBS2/P002.BAS b/bwbtest/NBS2/P002.BAS deleted file mode 100644 index 35a8d83..0000000 --- a/bwbtest/NBS2/P002.BAS +++ /dev/null @@ -1,18 +0,0 @@ -10 PRINT "PROGRAM FILE 2: THE END-STATEMENT." -20 PRINT " ANSI STANDARD 4.2, 4.4" -30 PRINT -40 PRINT "SECTION 2.1: THE END-STATEMENT." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR TERMINATES" -70 PRINT "THE BASIC PROGRAM WHEN IT ENCOUNTERS AN END STATEMENT." -80 PRINT -90 PRINT " BEGIN TEST." -100 PRINT -110 PRINT "*** TEST PASSES IF 'END PROGRAM 2' IS THE LAST OUTPUT" -120 PRINT " GENERATED BY THIS PROGRAM, FOLLOWED BY NORMAL " -125 PRINT " TERMINATION OF EXECUTION. ***" -130 PRINT -140 PRINT " END TEST." -150 PRINT -160 PRINT "END PROGRAM 2" -170 END diff --git a/bwbtest/NBS2/P002.run b/bwbtest/NBS2/P002.run deleted file mode 100644 index a0ba78d..0000000 --- a/bwbtest/NBS2/P002.run +++ /dev/null @@ -1,17 +0,0 @@ -PROGRAM FILE 2: THE END-STATEMENT. - ANSI STANDARD 4.2, 4.4 - -SECTION 2.1: THE END-STATEMENT. - -THIS PROGRAM TESTS TO SEE IF THE PROCESSOR TERMINATES -THE BASIC PROGRAM WHEN IT ENCOUNTERS AN END STATEMENT. - - BEGIN TEST. - -*** TEST PASSES IF 'END PROGRAM 2' IS THE LAST OUTPUT - GENERATED BY THIS PROGRAM, FOLLOWED BY NORMAL - TERMINATION OF EXECUTION. *** - - END TEST. - -END PROGRAM 2 diff --git a/bwbtest/NBS2/P003.BAS b/bwbtest/NBS2/P003.BAS deleted file mode 100644 index 696a2de..0000000 --- a/bwbtest/NBS2/P003.BAS +++ /dev/null @@ -1,36 +0,0 @@ -10 PRINT "PROGRAM FILE 3: ERROR - MISPLACED END-STATEMENT." -20 PRINT " ANSI STANDARD 4.2, 4.4" -30 PRINT -40 PRINT "SECTION 3.1: ERROR - MISPLACED END-STATEMENT." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR" -70 PRINT "ACCEPTS PROGRAMS CONTAINING AN END STATEMENT WHICH IS" -80 PRINT "NOT PHYSICALLY LAST." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST." -230 PRINT -240 PRINT "IF THIS SENTENCE IS THE LAST SENTENCE PRINTED, THE PROCESSOR" -250 PRINT "DID NOT EXECUTE ANY MORE STATEMENTS AFTER ENCOUNTERING AN" -260 PRINT "END-STATEMENT IN THE MIDDLE OF THE PROGRAM." -270 END -280 PRINT -290 PRINT "IF THIS SENTENCE IS PRINTED OUT, THE PROCESSOR CONTINUED TO" -300 PRINT "EXECUTE STATEMENTS AFTER ENCOUNTERING AN END-STATEMENT" -310 PRINT "IN THE MIDDLE OF THE PROGRAM." -320 PRINT -330 PRINT " END TEST." -340 PRINT -350 PRINT "END PROGRAM 3" -360 END diff --git a/bwbtest/NBS2/P003.run b/bwbtest/NBS2/P003.run deleted file mode 100644 index 7b3a5ae..0000000 --- a/bwbtest/NBS2/P003.run +++ /dev/null @@ -1,26 +0,0 @@ -PROGRAM FILE 3: ERROR - MISPLACED END-STATEMENT. - ANSI STANDARD 4.2, 4.4 - -SECTION 3.1: ERROR - MISPLACED END-STATEMENT. - -THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR -ACCEPTS PROGRAMS CONTAINING AN END STATEMENT WHICH IS -NOT PHYSICALLY LAST. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -IF THIS SENTENCE IS THE LAST SENTENCE PRINTED, THE PROCESSOR -DID NOT EXECUTE ANY MORE STATEMENTS AFTER ENCOUNTERING AN -END-STATEMENT IN THE MIDDLE OF THE PROGRAM. diff --git a/bwbtest/NBS2/P004.BAS b/bwbtest/NBS2/P004.BAS deleted file mode 100644 index 6e2e3fc..0000000 --- a/bwbtest/NBS2/P004.BAS +++ /dev/null @@ -1,28 +0,0 @@ -10 PRINT "PROGRAM FILE 4: ERROR - MISSING END-STATEMENT." -20 PRINT " ANSI STANDARD 4.2, 4.4" -30 PRINT -40 PRINT "SECTION 4.1: ERROR - MISSING END-STATEMENT." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR" -70 PRINT "ACCEPTS PROGRAMS WHICH DO NOT CONTAIN AN END STATEMENT." -80 PRINT -90 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -100 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -110 PRINT -120 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -130 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -140 PRINT " BY THE PROCESSOR, OR" -150 PRINT -160 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -170 PRINT -180 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -190 PRINT "FOR DETAILED CRITERIA." -200 PRINT -210 PRINT " BEGIN TEST." -220 PRINT -230 PRINT "THE PROCESSOR IS EXECUTING A PROGRAM WHICH DOES NOT CONTAIN" -240 PRINT "AN END STATEMENT." -250 PRINT -260 PRINT " END TEST." -270 PRINT -280 PRINT "END PROGRAM 4" diff --git a/bwbtest/NBS2/P004.run b/bwbtest/NBS2/P004.run deleted file mode 100644 index 7e5c13f..0000000 --- a/bwbtest/NBS2/P004.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 4: ERROR - MISSING END-STATEMENT. - ANSI STANDARD 4.2, 4.4 - -SECTION 4.1: ERROR - MISSING END-STATEMENT. - -THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR -ACCEPTS PROGRAMS WHICH DO NOT CONTAIN AN END STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -THE PROCESSOR IS EXECUTING A PROGRAM WHICH DOES NOT CONTAIN -AN END STATEMENT. - - END TEST. - -END PROGRAM 4 diff --git a/bwbtest/NBS2/P005.BAS b/bwbtest/NBS2/P005.BAS deleted file mode 100644 index a72a901..0000000 --- a/bwbtest/NBS2/P005.BAS +++ /dev/null @@ -1,17 +0,0 @@ -10 PRINT "PROGRAM FILE 5: THE STOP-STATEMENT." -20 PRINT " ANSI STANDARD 10.2, 10.4" -30 PRINT -40 PRINT "SECTION 5.1: THE STOP-STATEMENT." -50 PRINT -60 PRINT " BEGIN TEST." -70 PRINT -80 PRINT "IF PROGRAM EXECUTION TERMINATES AFTER THE NEXT LINE," -90 PRINT " *** TEST PASSED ***" -100 STOP -110 PRINT "PROGRAM EXECUTION WAS NOT TERMINATED:" -120 PRINT " *** TEST FAILED ***" -130 PRINT -140 PRINT " END TEST." -150 PRINT -160 PRINT "END PROGRAM 5" -170 END diff --git a/bwbtest/NBS2/P005.run b/bwbtest/NBS2/P005.run deleted file mode 100644 index 914e548..0000000 --- a/bwbtest/NBS2/P005.run +++ /dev/null @@ -1,11 +0,0 @@ -PROGRAM FILE 5: THE STOP-STATEMENT. - ANSI STANDARD 10.2, 10.4 - -SECTION 5.1: THE STOP-STATEMENT. - - BEGIN TEST. - -IF PROGRAM EXECUTION TERMINATES AFTER THE NEXT LINE, - *** TEST PASSED *** - -Program interrupted at line 100 diff --git a/bwbtest/NBS2/P006.BAS b/bwbtest/NBS2/P006.BAS deleted file mode 100644 index 8eccd9f..0000000 --- a/bwbtest/NBS2/P006.BAS +++ /dev/null @@ -1,190 +0,0 @@ -10 PRINT "PROGRAM FILE 6: PRINT-SEPARATORS, TABS," -15 PRINT " AND STRING VARIABLES." -20 PRINT " ANSI STANDARD 6.2, 6.4, 9.4, 12.2, 12.4" -30 PRINT -40 PRINT "SECTION 6.1: SEMICOLON SEPARATOR WITH QUOTED STRINGS." -60 PRINT -70 PRINT " BEGIN TEST." -80 PRINT -90 PRINT " 1. 123" -100 PRINT " 2. 1";"2";"3" -110 PRINT " 3. 1"; -120 PRINT "23" -130 PRINT " 4. 12"; -140 PRINT "3" -150 PRINT " 5. 1"; -160 PRINT "2"; -170 PRINT "3" -180 PRINT -190 PRINT "*** TEST PASSED IF THERE ARE EXACTLY FIVE NUMBERED LINES" -200 PRINT " ABOVE, EACH CONTAINING THE ADJACENT DIGITS '123', AND" -205 PRINT " IF THEY ARE LINED UP IN A COLUMN ***" -210 PRINT -220 PRINT " END TEST." -380 PRINT -390 PRINT "SECTION 6.2: THE COMMA SEPARATOR WITH QUOTED STRINGS." -410 PRINT -420 PRINT " BEGIN TEST." -430 PRINT -440 PRINT "THE PRINT LINE SHOULD BE DIVIDED INTO EQUAL ZONES WHICH " -450 PRINT "ENABLE THE COMMA SEPARATOR TO ACT AS A TAB WHEN PRINTING" -460 PRINT "A SERIES OF COMMA-SEPARATED ITEMS." -470 PRINT -480 PRINT "00000000011111111112222222222333333333344444444445"; -490 PRINT "5555555556" -500 PRINT "12345678901234567890123456789012345678901234567890"; -510 PRINT "1234567890" -520 PRINT "XYZ","XYZ","XYZ" -530 PRINT -540 PRINT "*** TEST PASSED IF 3 SETS OF THE CHARACTERS 'XYZ' ARE EVENLY" -550 PRINT " SPACED ON A SINGLE LINE IN THE ABOVE TEST AND WIDTH" -555 PRINT " OF A PRINT ZONE IS AS DOCUMENTED ***" -560 PRINT -570 PRINT " END TEST." -580 PRINT -590 PRINT "SECTION 6.3: TABBING QUOTED STRINGS." -610 PRINT -620 PRINT " BEGIN TEST." -630 PRINT -640 PRINT "00000000011111111112222222222333333333344444444445"; -650 PRINT "5555555556" -660 PRINT "12345678901234567890123456789012345678901234567890"; -670 PRINT "1234567890" -680 PRINT TAB(24);"1" -690 PRINT TAB(48);"2" -700 PRINT TAB(59);"3" -710 PRINT -720 PRINT "*** TEST PASSED IF A '1' IS PRINTED BELOW COLUMN HEADING 24." -730 PRINT " A '2' BELOW 48 AND A '3' BELOW 59 IN THE ABOVE TEST ***" -740 PRINT -750 PRINT " END TEST." -760 PRINT -770 PRINT "SECTION 6.4: THE ASSIGNMENT OF QUOTED STRINGS." -790 PRINT -800 PRINT " BEGIN TEST." -810 PRINT -820 PRINT "THIS TEST ASSIGNS THE SAME QUOTED STRING TO ALL LEGAL STRING" -830 PRINT "VARIABLES: A$ THROUGH Z$, USING A SERIES OF LET-STATEMENTS." -840 PRINT "A$ IS ASSIGNED THE QUOTED STRING, THEN B$ IS ASSIGNED A$ ..." -850 PRINT "THROUGH Z$ ASSIGNED Y$." -860 PRINT -870 LET A$="18 CHARACTERS LONG" -880 LET B$=A$ -890 LET C$=B$ -900 LET D$=C$ -910 LET E$=D$ -920 LET F$=E$ -930 LET G$=F$ -940 LET H$=G$ -950 LET I$=H$ -960 LET J$=I$ -970 LET K$=J$ -980 LET L$=K$ -990 LET M$=L$ -1000 LET N$=M$ -1010 LET O$=N$ -1020 LET P$=O$ -1030 LET Q$=P$ -1040 LET R$=Q$ -1050 LET S$=R$ -1060 LET T$=S$ -1070 LET U$=T$ -1080 LET V$=U$ -1090 LET W$=V$ -1100 LET X$=W$ -1110 LET Y$=X$ -1120 LET Z$=Y$ -1130 PRINT " Z$ = ";Z$ -1140 PRINT -1150 PRINT "*** TEST PASSED IF 'Z$ = 18 CHARACTERS LONG' IS PRINTED" -1160 PRINT " IN THE ABOVE TEST ***" -1170 PRINT -1180 PRINT " END TEST." -1190 PRINT -1200 PRINT "SECTION 6.5: SEMICOLON SEPARATOR WITH ASSIGNED STRINGS" -1210 PRINT " AND CONSTANTS." -1220 PRINT -1230 PRINT " BEGIN TEST." -1240 PRINT -1250 LET A$="123" -1260 LET B$="1" -1270 LET C$="2" -1280 LET D$="3" -1290 LET E$="12" -1300 LET F$="23" -1310 PRINT " 1.";A$ -1320 PRINT " 2.";B$;C$;D$ -1330 PRINT " 3.";B$; -1340 PRINT F$ -1350 PRINT " 4.";"12"; -1360 PRINT D$ -1370 PRINT " 5.";B$; -1380 PRINT "2"; -1390 PRINT D$ -1400 PRINT -1410 PRINT "*** TEST PASSED IF THERE ARE EXACTLY FIVE NUMBERED LINES" -1420 PRINT " ABOVE, EACH CONTAINING THE ADJACENT DIGITS '123', AND" -1425 PRINT " IF THEY ARE LINED UP IN A COLUMN ***" -1430 PRINT -1440 PRINT " END TEST." -1450 PRINT -1460 PRINT "SECTION 6.6: COMMA SEPARATOR - ASSIGNED STRINGS" -1470 PRINT " AND CONSTANTS." -1480 PRINT -1490 PRINT " BEGIN TEST." -1500 PRINT -1510 LET A$="XYZ" -1530 LET C$="XYZ" -1540 PRINT "00000000011111111112222222222333333333344444444445"; -1550 PRINT "5555555556" -1560 PRINT "12345678901234567890123456789012345678901234567890"; -1570 PRINT "1234567890" -1580 PRINT A$,"XYZ",C$ -1590 PRINT -1600 PRINT "*** TEST PASSED IF 3 SETS OF THE CHARACTERS 'XYZ' ARE " -1610 PRINT " EVENLY SPACED ON A SINGLE LINE IN THE ABOVE TEST AND " -1615 PRINT " WIDTH OF PRINT ZONE IS AS DOCUMENTED ***" -1620 PRINT -1630 PRINT " END TEST." -1640 PRINT -1650 PRINT "SECTION 6.7: TABBING ASSIGNED STRINGS AND CONSTANTS." -1670 PRINT -1680 PRINT " BEGIN TEST." -1690 PRINT -1700 LET A$="1" -1720 LET C$="3" -1730 PRINT "00000000011111111112222222222333333333344444444445"; -1740 PRINT "5555555556" -1750 PRINT "12345678901234567890123456789012345678901234567890"; -1760 PRINT "1234567890" -1770 PRINT TAB(24);A$ -1780 PRINT TAB(48);"2" -1790 PRINT TAB(59);C$ -1800 PRINT -1810 PRINT "*** TEST PASSED IF A '1' PRINTS BELOW COLUMN HEADING 24," -1820 PRINT " A '2' BELOW 48, AND A '3' BELOW 59 ***" -1830 PRINT -1840 PRINT " END TEST." -1850 PRINT -1860 PRINT "SECTION 6.8: NULL PRINT ITEMS." -1870 PRINT -1880 PRINT "THIS TEST DETERMINES WHETHER THE PROCESSOR RECOGNIZES" -1890 PRINT "CONSECUTIVE COMMAS IN A PRINT-STATEMENT AS TAB POSITIONS." -1900 PRINT -1910 PRINT " BEGIN TEST." -1920 PRINT -1930 PRINT "00000000011111111112222222222333333333344444444445"; -1940 PRINT "5555555556" -1950 PRINT "12345678901234567890123456789012345678901234567890"; -1960 PRINT "1234567890" -1965 PRINT "PRINT-ZONE IDENTIFIERS:" -1970 PRINT "1","2","3","4" -1980 PRINT , , ,"A" -1990 PRINT -2000 PRINT "*** TEST PASSED IF AN 'A' IS IN THE BEGINNING COLUMN OF THE" -2010 PRINT " FOURTH PRINT ZONE FOR THIS SYSTEM ***" -2020 PRINT -2030 PRINT " END TEST." -2040 PRINT -2050 PRINT "END PROGRAM 6" -2060 END diff --git a/bwbtest/NBS2/P006.run b/bwbtest/NBS2/P006.run deleted file mode 100644 index f23f965..0000000 --- a/bwbtest/NBS2/P006.run +++ /dev/null @@ -1,135 +0,0 @@ -PROGRAM FILE 6: PRINT-SEPARATORS, TABS, - AND STRING VARIABLES. - ANSI STANDARD 6.2, 6.4, 9.4, 12.2, 12.4 - -SECTION 6.1: SEMICOLON SEPARATOR WITH QUOTED STRINGS. - - BEGIN TEST. - - 1. 123 - 2. 123 - 3. 123 - 4. 123 - 5. 123 - -*** TEST PASSED IF THERE ARE EXACTLY FIVE NUMBERED LINES - ABOVE, EACH CONTAINING THE ADJACENT DIGITS '123', AND - IF THEY ARE LINED UP IN A COLUMN *** - - END TEST. - -SECTION 6.2: THE COMMA SEPARATOR WITH QUOTED STRINGS. - - BEGIN TEST. - -THE PRINT LINE SHOULD BE DIVIDED INTO EQUAL ZONES WHICH -ENABLE THE COMMA SEPARATOR TO ACT AS A TAB WHEN PRINTING -A SERIES OF COMMA-SEPARATED ITEMS. - -000000000111111111122222222223333333333444444444455555555556 -123456789012345678901234567890123456789012345678901234567890 -XYZ XYZ XYZ - -*** TEST PASSED IF 3 SETS OF THE CHARACTERS 'XYZ' ARE EVENLY - SPACED ON A SINGLE LINE IN THE ABOVE TEST AND WIDTH - OF A PRINT ZONE IS AS DOCUMENTED *** - - END TEST. - -SECTION 6.3: TABBING QUOTED STRINGS. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556 -123456789012345678901234567890123456789012345678901234567890 - 1 - 2 - 3 - -*** TEST PASSED IF A '1' IS PRINTED BELOW COLUMN HEADING 24. - A '2' BELOW 48 AND A '3' BELOW 59 IN THE ABOVE TEST *** - - END TEST. - -SECTION 6.4: THE ASSIGNMENT OF QUOTED STRINGS. - - BEGIN TEST. - -THIS TEST ASSIGNS THE SAME QUOTED STRING TO ALL LEGAL STRING -VARIABLES: A$ THROUGH Z$, USING A SERIES OF LET-STATEMENTS. -A$ IS ASSIGNED THE QUOTED STRING, THEN B$ IS ASSIGNED A$ ... -THROUGH Z$ ASSIGNED Y$. - - Z$ = 18 CHARACTERS LONG - -*** TEST PASSED IF 'Z$ = 18 CHARACTERS LONG' IS PRINTED - IN THE ABOVE TEST *** - - END TEST. - -SECTION 6.5: SEMICOLON SEPARATOR WITH ASSIGNED STRINGS - AND CONSTANTS. - - BEGIN TEST. - - 1.123 - 2.123 - 3.123 - 4.123 - 5.123 - -*** TEST PASSED IF THERE ARE EXACTLY FIVE NUMBERED LINES - ABOVE, EACH CONTAINING THE ADJACENT DIGITS '123', AND - IF THEY ARE LINED UP IN A COLUMN *** - - END TEST. - -SECTION 6.6: COMMA SEPARATOR - ASSIGNED STRINGS - AND CONSTANTS. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556 -123456789012345678901234567890123456789012345678901234567890 -XYZ XYZ XYZ - -*** TEST PASSED IF 3 SETS OF THE CHARACTERS 'XYZ' ARE - EVENLY SPACED ON A SINGLE LINE IN THE ABOVE TEST AND - WIDTH OF PRINT ZONE IS AS DOCUMENTED *** - - END TEST. - -SECTION 6.7: TABBING ASSIGNED STRINGS AND CONSTANTS. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556 -123456789012345678901234567890123456789012345678901234567890 - 1 - 2 - 3 - -*** TEST PASSED IF A '1' PRINTS BELOW COLUMN HEADING 24, - A '2' BELOW 48, AND A '3' BELOW 59 *** - - END TEST. - -SECTION 6.8: NULL PRINT ITEMS. - -THIS TEST DETERMINES WHETHER THE PROCESSOR RECOGNIZES -CONSECUTIVE COMMAS IN A PRINT-STATEMENT AS TAB POSITIONS. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556 -123456789012345678901234567890123456789012345678901234567890 -PRINT-ZONE IDENTIFIERS: -1 2 3 4 - A - -*** TEST PASSED IF AN 'A' IS IN THE BEGINNING COLUMN OF THE - FOURTH PRINT ZONE FOR THIS SYSTEM *** - - END TEST. - -END PROGRAM 6 diff --git a/bwbtest/NBS2/P007.BAS b/bwbtest/NBS2/P007.BAS deleted file mode 100644 index 1cf8f47..0000000 --- a/bwbtest/NBS2/P007.BAS +++ /dev/null @@ -1,60 +0,0 @@ -10 PRINT "PROGRAM FILE 7: EXCEPTION - STRING OVERFLOW USING" -15 PRINT " THE LET-STATEMENT." -20 PRINT " ANSI STANDARD 9.5, 12.4" -30 PRINT -40 PRINT "SECTION 7.1: EXCEPTION - STRING OVERFLOW USING" -50 PRINT " THE LET-STATEMENT." -60 PRINT -70 PRINT "STRING OVERFLOW OCCURS WHEN THE VALUE ASSIGNED TO A STRING" -80 PRINT "VARIABLE CONTAINS MORE CHARACTERS THAN CAN BE RETAINED." -82 PRINT -85 PRINT "TO PASS THIS TEST:" -90 PRINT -95 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -100 PRINT " DISPLAYED AND EXECUTION MUST TERMINATE, OR" -105 PRINT -110 PRINT " 2) STRING OVERFLOW MUST NOT OCCUR" -120 PRINT -130 PRINT " BEGIN TEST." -140 PRINT -145 PRINT "ABOUT TO ASSIGN STRING OF 19 CHARACTERS - " -150 LET A$="?*******19********!" -155 PRINT "ABOUT TO ASSIGN STRING OF 20 CHARACTERS - " -160 LET B$="?********20********!" -165 PRINT "ABOUT TO ASSIGN STRING OF 30 CHARACTERS - " -170 LET C$="?*************30*************!" -175 PRINT "ABOUT TO ASSIGN STRING OF 40 CHARACTERS - " -180 LET D$="?******************40******************!" -185 PRINT "ABOUT TO ASSIGN STRING OF 50 CHARACTERS - " -190 LET E$="?***********************50***********************!" -195 PRINT "ABOUT TO ASSIGN STRING OF 58 CHARACTERS - " -200 LET F$="?***************************58***************************!" -202 PRINT "ALL ASSIGNMENTS COMPLETED." -205 PRINT -210 PRINT "?*******19********!" -220 PRINT A$ -230 PRINT -240 PRINT "?********20********!" -250 PRINT B$ -260 PRINT -270 PRINT "?*************30*************!" -280 PRINT C$ -290 PRINT -300 PRINT "?******************40******************!" -310 PRINT D$ -320 PRINT -330 PRINT "?***********************50***********************!" -340 PRINT E$ -350 PRINT -360 PRINT "?***************************58***************************!" -370 PRINT F$ -380 PRINT -390 PRINT "IF THE PAIRED LINES IN THE OUTPUT ARE IDENTICAL AND EACH" -400 PRINT " LINE STARTS WITH A QUESTION MARK AND ENDS WITH AN" -410 PRINT " EXCLAMATION POINT, THEN" -420 PRINT "*** TEST PASSED ***" -440 PRINT -450 PRINT " END TEST." -460 PRINT -470 PRINT "END PROGRAM 7" -480 END diff --git a/bwbtest/NBS2/P007.run b/bwbtest/NBS2/P007.run deleted file mode 100644 index 91bd875..0000000 --- a/bwbtest/NBS2/P007.run +++ /dev/null @@ -1,53 +0,0 @@ -PROGRAM FILE 7: EXCEPTION - STRING OVERFLOW USING - THE LET-STATEMENT. - ANSI STANDARD 9.5, 12.4 - -SECTION 7.1: EXCEPTION - STRING OVERFLOW USING - THE LET-STATEMENT. - -STRING OVERFLOW OCCURS WHEN THE VALUE ASSIGNED TO A STRING -VARIABLE CONTAINS MORE CHARACTERS THAN CAN BE RETAINED. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED AND EXECUTION MUST TERMINATE, OR - - 2) STRING OVERFLOW MUST NOT OCCUR - - BEGIN TEST. - -ABOUT TO ASSIGN STRING OF 19 CHARACTERS - -ABOUT TO ASSIGN STRING OF 20 CHARACTERS - -ABOUT TO ASSIGN STRING OF 30 CHARACTERS - -ABOUT TO ASSIGN STRING OF 40 CHARACTERS - -ABOUT TO ASSIGN STRING OF 50 CHARACTERS - -ABOUT TO ASSIGN STRING OF 58 CHARACTERS - -ALL ASSIGNMENTS COMPLETED. - -?*******19********! -?*******19********! - -?********20********! -?********20********! - -?*************30*************! -?*************30*************! - -?******************40******************! -?******************40******************! - -?***********************50***********************! -?***********************50***********************! - -?***************************58***************************! -?***************************58***************************! - -IF THE PAIRED LINES IN THE OUTPUT ARE IDENTICAL AND EACH - LINE STARTS WITH A QUESTION MARK AND ENDS WITH AN - EXCLAMATION POINT, THEN -*** TEST PASSED *** - - END TEST. - -END PROGRAM 7 diff --git a/bwbtest/NBS2/P008.BAS b/bwbtest/NBS2/P008.BAS deleted file mode 100644 index abcb4bb..0000000 --- a/bwbtest/NBS2/P008.BAS +++ /dev/null @@ -1,80 +0,0 @@ -10 PRINT "PROGRAM FILE 8: EXCEPTION - TAB ARGUMENT" -15 PRINT " LESS THAN ONE." -20 PRINT " ANSI STANDARD 12.5" -50 PRINT -60 PRINT "TO PASS THIS TEST:" -65 PRINT -70 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTIONS MUST BE" -75 PRINT " DISPLAYED, AND" -80 PRINT -85 PRINT " 2) THE ARGUMENT TO TAB MUST BE REPLACED WITH A" -90 PRINT " VALUE OF ONE AND EXECUTION CONTINUES." -100 PRINT -110 PRINT "SECTION 8.1: TAB ARGUMENT IS 0." -120 PRINT -130 PRINT " BEGIN TEST." -140 PRINT -145 LET A=0 -150 PRINT "00000000011111111112222222222333333333344444444445"; -160 PRINT "5555555556" -170 PRINT "12345678901234567890123456789012345678901234567890"; -180 PRINT "1234567890" -190 PRINT TAB(A);"X" -200 PRINT -210 PRINT "*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A " -220 PRINT " SYSTEM MESSAGE IDENTIFYING THE EXCEPTION ***" -230 PRINT -240 PRINT " END TEST." -250 PRINT -260 PRINT "SECTION 8.2: TAB ARGUMENT IS NEGATIVE." -270 PRINT -280 PRINT " BEGIN TEST." -290 PRINT -295 LET A=-10 -300 PRINT "00000000011111111112222222222333333333344444444445"; -310 PRINT "5555555556" -320 PRINT "12345678901234567890123456789012345678901234567890"; -330 PRINT "1234567890" -340 PRINT TAB(A);"X" -350 PRINT -360 PRINT "*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A" -370 PRINT " SYSTEM MESSAGE IDENTIFYING THE EXCEPTION ***" -380 PRINT -390 PRINT " END TEST." -400 PRINT -430 PRINT -440 PRINT "SECTION 8.3: ROUNDED TAB ARGUMENT EQUAL TO ONE." -450 PRINT -460 PRINT " BEGIN TEST." -470 PRINT -475 LET A=.6 -480 PRINT "00000000011111111112222222222333333333344444444445"; -490 PRINT "5555555556" -500 PRINT "12345678901234567890123456789012345678901234567890"; -510 PRINT "1234567890" -530 PRINT TAB(A);"X" -540 PRINT -550 PRINT "*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1 " -555 PRINT " AND NO EXCEPTION IS REPORTED ***" -560 PRINT -570 PRINT " END TEST." -580 PRINT -590 PRINT "SECTION 8.4: FRACTIONAL TAB ARGUMENT LESS THAN ONE AFTER" -600 PRINT " ROUNDING" -610 PRINT -620 PRINT " BEING TEST." -630 PRINT -640 PRINT "00000000011111111112222222222333333333344444444445"; -650 PRINT "5555555556" -660 PRINT "12345678901234567890123456789012345678901234567890"; -670 PRINT "1234567890" -680 LET A=.4 -690 PRINT TAB(A);"X" -700 PRINT -710 PRINT "*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A" -720 PRINT " SYSTEM MESSAGE IDENTIFYING THE EXCEPTION ***" -730 PRINT -740 PRINT " END TEST." -750 PRINT -760 PRINT "END PROGRAM 8" -770 END diff --git a/bwbtest/NBS2/P008.run b/bwbtest/NBS2/P008.run deleted file mode 100644 index 39cb15d..0000000 --- a/bwbtest/NBS2/P008.run +++ /dev/null @@ -1,70 +0,0 @@ -PROGRAM FILE 8: EXCEPTION - TAB ARGUMENT - LESS THAN ONE. - ANSI STANDARD 12.5 - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTIONS MUST BE - DISPLAYED, AND - - 2) THE ARGUMENT TO TAB MUST BE REPLACED WITH A - VALUE OF ONE AND EXECUTION CONTINUES. - -SECTION 8.1: TAB ARGUMENT IS 0. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556 -123456789012345678901234567890123456789012345678901234567890 -Overflow -X - -*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A - SYSTEM MESSAGE IDENTIFYING THE EXCEPTION *** - - END TEST. - -SECTION 8.2: TAB ARGUMENT IS NEGATIVE. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556 -123456789012345678901234567890123456789012345678901234567890 -Overflow -X - -*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A - SYSTEM MESSAGE IDENTIFYING THE EXCEPTION *** - - END TEST. - - -SECTION 8.3: ROUNDED TAB ARGUMENT EQUAL TO ONE. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556 -123456789012345678901234567890123456789012345678901234567890 -X - -*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1 - AND NO EXCEPTION IS REPORTED *** - - END TEST. - -SECTION 8.4: FRACTIONAL TAB ARGUMENT LESS THAN ONE AFTER - ROUNDING - - BEING TEST. - -000000000111111111122222222223333333333444444444455555555556 -123456789012345678901234567890123456789012345678901234567890 -Overflow -X - -*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A - SYSTEM MESSAGE IDENTIFYING THE EXCEPTION *** - - END TEST. - -END PROGRAM 8 diff --git a/bwbtest/NBS2/P009.BAS b/bwbtest/NBS2/P009.BAS deleted file mode 100644 index 5c1980e..0000000 --- a/bwbtest/NBS2/P009.BAS +++ /dev/null @@ -1,218 +0,0 @@ -10 PRINT "PROGRAM FILE 9: PRINTING NR1 AND NR2 NUMERIC CONSTANTS." -20 PRINT " ANS STANDARD 5.2, 5.4, 12.4" -30 PRINT -60 PRINT "SECTION 9.1: CONSTANTS IN NR1 FORM (INTEGERS)." -70 PRINT -80 PRINT "COLUMNS 1 AND 3 SHOW THE OUTPUT AS IT SHOULD BE." -100 PRINT "COLUMNS 2 AND 4 SHOW THE ACTUAL OUTPUT." -120 PRINT -130 PRINT " BEGIN TEST." -140 PRINT -150 PRINT "00000000011111111112222222222333333333344444444445"; -160 PRINT "5555555556666666666777" -170 PRINT "12345678901234567890123456789012345678901234567890"; -180 PRINT "1234567890123456789012" -190 PRINT "SHOULD BE","ACTUAL","SHOULD BE","ACTUAL" -200 PRINT " 0",+0," 0",-0 -210 PRINT " 1",+1,"-1",-1 -220 PRINT " 12",12,"-12",-12 -230 PRINT " 123",+123,"-123",-123 -240 PRINT " 1234",1234,"-1234",-1234 -250 PRINT " 12345",+12345,"-12345",-12345 -260 PRINT " 123456",123456,"-123456",-123456 -270 PRINT " 999999",+999999,"-999999",-999999 -280 PRINT -290 PRINT "*** TEST PASSED IF COLUMNS 1 & 2, AND 3 & 4 CONTAIN THE SAME" -300 PRINT " NUMERIC REPRESENTATION FOR EACH PAIR OF INTEGERS ***" -310 PRINT -320 PRINT " END TEST." -330 PRINT -340 PRINT "SECTION 9.2: NR1 CONSTANTS SEPARATED BY COMMAS TO PRODUCE" -350 PRINT " TABULAR OUTPUT." -360 PRINT -370 PRINT " BEGIN TEST." -380 PRINT -390 PRINT "00000000011111111112222222222333333333344444444445"; -400 PRINT "5555555556666666666777" -410 PRINT "12345678901234567890123456789012345678901234567890"; -420 PRINT "1234567890123456789012" -430 PRINT 1,-12,123 -440 PRINT -1234,12345,-123456 -450 PRINT 123456,-1234,123 -460 PRINT -470 PRINT "*** TEST PASSED IF THE FIRST THREE PRINT ZONES EACH CONTAIN" -480 PRINT " A COLUMN OF INTEGERS ***" -490 PRINT -500 PRINT " END TEST." -510 PRINT -520 PRINT "SECTION 9.3: SPACE ALLOCATED FOR PRINTED INTEGER CONSTANTS." -530 PRINT -540 PRINT "PRINTED INTEGER CONSTANTS ARE PRECEDED BY A SPACE IF" -550 PRINT "POSITIVE, A MINUS IF NEGATIVE AND FOLLOWED BY A SPACE." -560 PRINT "THE SPACE FOR THE CONSTANT IS DELIMITED BY ASTERISKS." -570 PRINT -580 PRINT " BEGIN TEST." -590 PRINT -600 PRINT "00000000011111111112222222222333333333344444444445"; -610 PRINT "5555555556666666666777" -620 PRINT "12345678901234567890123456789012345678901234567890"; -630 PRINT "1234567890123456789012" -640 PRINT "SHOULD BE:","* 1 *","*-23 *","* 456 *" -650 PRINT " ACTUAL:","*";+1;"*","*";-23;"*","*";456;"*" -660 PRINT -670 PRINT "SHOULD BE:","* 7890 *","*-12345 *","* 678901 *" -690 PRINT " ACTUAL:","*";7890;"*","*";-12345;"*","*";+678901;"*" -710 PRINT -720 PRINT "*** TEST PASSED IF 'ACTUAL' LINES MATCH CORRESPONDING" -730 PRINT " 'SHOULD BE' LINES ***" -740 PRINT -750 PRINT " END TEST." -760 PRINT -770 PRINT "SECTION 9.4: NR1 CONSTANTS SEPARATED BY SEMICOLONS." -780 PRINT -790 PRINT "PRINTED INTEGER CONSTANTS ARE PRECEDED BY A SPACE IF" -800 PRINT "POSITIVE OR A MINUS IF NEGATIVE AND ARE FOLLOWED BY A SPACE." -810 PRINT "THE SEMICOLON SEPARATOR PRODUCES A NULL STRING." -820 PRINT -830 PRINT " BEGIN TEST." -840 PRINT -850 PRINT "00000000011111111112222222222333333333344444444445"; -860 PRINT "5555555556666666666777" -870 PRINT "12345678901234567890123456789012345678901234567890"; -880 PRINT "1234567890123456789012" -885 PRINT "SHOULD BE: 0 0 1 -12 123 -1234 12345 -123456" -890 PRINT " ACTUAL:";0;-0;1;-12;123;-1234;12345;-123456 -900 PRINT -910 PRINT "*** TEST PASSED IF 'ACTUAL' LINE MATCHES CORRESPONDING" -920 PRINT " 'SHOULD BE' LINE ***" -930 PRINT -940 PRINT " END TEST." -950 PRINT -960 PRINT "SECTION 9.5: CONSTANTS IN NR2 FORM." -970 PRINT -980 PRINT "COLUMNS 1 AND 3 SHOW THE OUTPUT AS IT SHOULD BE." -995 PRINT "COLUMNS 2 AND 4 SHOW THE ACTUAL OUTPUT." -1001 PRINT -1002 PRINT "EXPECTED OUTPUT IS DISPLAYED WITH TRAILING ZEROS" -1003 PRINT "SUPPRESSED. IMPLEMENTATIONS MAY ADD TRAILING ZEROS UP TO" -1004 PRINT "THEIR SIGNIFICAND-WIDTH, D. THUS .12 MAY BE DISPLAYED AS" -1005 PRINT "'.1200' OR '.1200000' IF, FOR INSTANCE, D = 7." -1010 PRINT -1020 PRINT " BEGIN TEST." -1030 PRINT -1040 PRINT "00000000011111111112222222222333333333344444444445"; -1050 PRINT "5555555556666666666777" -1060 PRINT "12345678901234567890123456789012345678901234567890"; -1070 PRINT "1234567890123456789012" -1080 PRINT "SHOULD BE","ACTUAL","SHOULD BE","ACTUAL" -1100 PRINT " .1 ",.1,"-.1 ",-.1 -1110 PRINT " .12 ",+.12,"-.12 ",-.12 -1120 PRINT " .123 ",.123,"-.123 ",-.123 -1130 PRINT " .1234 ",+.1234,"-.1234 ",-.1234 -1140 PRINT " .12345 ",.12345,"-.12345 ",-.12345 -1150 PRINT " .123456 ",+.123456,"-.123456 ",-.123456 -1160 PRINT " .234567 ",.234567,"-.234567 ",-.234567 -1170 PRINT " .345678 ",+.345678,"-.345678 ",-.345678 -1180 PRINT " .456789 ",.456789,"-.456789 ",-.456789 -1190 PRINT " .56789 ",+.567890,"-.56789 ",-.567890 -1200 PRINT " .6789 ",.678900,"-.6789 ",-.678900 -1210 PRINT " .789 ",+.789000,"-.789 ",-.789000 -1220 PRINT " .89 ",.890000,"-.89 ",-.890000 -1230 PRINT " .9 ",+.900000,"-.9 ",-.900000 -1240 PRINT " 0 ",0.0," 0 ",-0.0 -1250 PRINT " 1.23456 ",1.23456,"-1.23456",-1.23456 -1260 PRINT " 9.876 ",+9.87600,"-9.876 ",-9.87600 -1270 PRINT " 12.3456 ",12.3456,"-12.3456 ",-12.3456 -1280 PRINT " 123.456 ",+123.456,"-123.456 ",-123.456 -1290 PRINT " 1234.56 ",1234.56,"-1234.56 ",-1234.56 -1300 PRINT " 12345.6 ",+12345.6,"-12345.6 ",-12345.6 -1310 PRINT " 23456.7 ",23456.7,"-23456.7 ",-23456.7 -1320 PRINT " 34567.8 ",+34567.8,"-34567.8 ",-34567.8 -1330 PRINT " 45678.9 ",45678.9,"-45678.9 ",-45678.9 -1340 PRINT " 56789.1 ",+56789.1,"-56789.1 ",-56789.1 -1350 PRINT " 67891.2 ",67891.2,"-67891.2 ",-67891.2 -1360 PRINT " 78912.3 ",+78912.3,"-78912.3 ",-78912.3 -1370 PRINT " 89123.4 ",89123.4,"-89123.4 ",-89123.4 -1380 PRINT " 91234.5 ",+91234.5,"-91234.5 ",-91234.5 -1390 PRINT " 99999.9 ",99999.9,"-99999.9 ",-99999.9 -1400 PRINT -1410 PRINT "*** TEST PASSED IF COLUMNS 1 & 2, AND 3 & 4 CONTAIN THE " -1420 PRINT " SAME REPRESENTATION FOR EACH PAIR OF NUMBERS " -1425 PRINT " (ALLOWING FOR OPTIONAL TRAILING ZEROS) ***" -1430 PRINT -1433 PRINT " END TEST." -1436 PRINT -1440 PRINT "SECTION 9.6: USING NR2 INSTEAD OF NR3 FORMAT FOR" -1450 PRINT " SIX-DIGIT CONSTANTS." -1460 PRINT -1490 PRINT "NUMBERS THAT CAN BE REPRESENTED IN THE UNSCALED" -1500 PRINT "REPRESENTATION NO LESS ACCURATELY THAN AS IN" -1510 PRINT "SCALED FORMAT, SHALL BE OUTPUT USING THE UNSCALED FORMAT." -1520 PRINT -1523 PRINT " BEGIN TEST." -1526 PRINT -1540 PRINT "SHOULD BE","ACTUAL","SHOULD BE","ACTUAL" -1550 PRINT -1560 PRINT " .022222 ",+.022222,"-.022222 ",-.022222 -1570 PRINT " .004444 ",.004444,"-.004444 ",-.004444 -1580 PRINT " .000888 ",+.000888,"-.000888 ",-.000888 -1590 PRINT " .000044 ",.000044,"-.000044 ",-.000044 -1600 PRINT " .000002 ",.000002,"-.000002 ",-.000002 -1610 PRINT -1620 PRINT "*** TEST PASSED IF COLUMNS 1 & 2, AND 3 & 4 CONTAIN THE " -1630 PRINT " SAME REPRESENTATION FOR EACH PAIR OF NUMBERS " -1635 PRINT " (ALLOWING FOR OPTIONAL TRAILING ZEROS) ***" -1640 PRINT -1650 PRINT " END TEST." -1660 PRINT -1670 PRINT "SECTION 9.7: NR2 CONSTANTS SEPARATED BY COMMAS TO PRODUCE" -1680 PRINT " TABULAR OUTPUT." -1690 PRINT -1700 PRINT " BEGIN TEST." -1710 PRINT -1720 PRINT "00000000011111111112222222222333333333344444444445"; -1730 PRINT "5555555556666666666777" -1740 PRINT "12345678901234567890123456789012345678901234567890"; -1750 PRINT "1234567890123456789012" -1760 PRINT .123456,-99999.9,91234.5 -1770 PRINT -1.23456,89123.4,-2.34567 -1780 PRINT +295.64,.023,-67.8954 -1790 PRINT -1800 PRINT "*** TEST PASSED IF THE FIRST THREE PRINT ZONES EACH CONTAIN" -1810 PRINT " A COLUMN OF REAL NUMBERS USING EXPLICIT POINT," -1820 PRINT " UNSCALED REPRESENTATION ***" -1825 PRINT -1830 PRINT " END TEST." -1840 PRINT -1850 PRINT "SECTION 9.8: SPACE ALLOTMENT FOR PRINTED NR2 NUMBERS." -1860 PRINT -1870 PRINT "PRINTED NR2 CONSTANTS ARE PRECEDED BY A SPACE IF POSITIVE" -1880 PRINT "OR BY A MINUS IF NEGATIVE, AND ARE FOLLOWED BY A SPACE." -1890 PRINT "THE FIELDS FOR THE CONSTANTS ARE DELIMITED BY ASTERISKS." -1900 PRINT -1910 PRINT " BEGIN TEST." -1920 PRINT -1930 PRINT "00000000011111111112222222222333333333344444444445"; -1940 PRINT "5555555556666666666777" -1950 PRINT "12345678901234567890123456789012345678901234567890"; -1960 PRINT "1234567890123456789012" -1970 PRINT "*";90000.1;"*","*";.000123;"*","*";.000009;"*" -1980 PRINT "*";+900.001;"*","*";+0.000123;"*","*";+0.000009;"*" -1990 PRINT "*";-0.900001;"*","*";-0.000123;"*","*";-0.000009;"*" -2000 PRINT -2010 PRINT "*";.234567;"*","*";1.23456;"*","*";91.2345;"*" -2020 PRINT "*";+0.234567;"*","*";+1.23456;"*","*";91.2345;"*" -2030 PRINT "*";-0.234567;"*","*";-1.23456;"*","*";-91.2345;"*" -2040 PRINT -2050 PRINT "*";865.789;"*","*";1234.56;"*","*";99999.9;"*" -2060 PRINT "*";+865.789;"*","*";+1234.56;"*","*";+99999.9;"*" -2070 PRINT "*";-865.789;"*","*";-1234.56;"*","*";-99999.9;"*" -2080 PRINT -2090 PRINT "*** TEST PASSED IF EACH NUMBER IS PRECEDED BY A SPACE OR" -2100 PRINT " A MINUS SIGN, AND FOLLOWED BY A SPACE AND THE NUMBERS" -2110 PRINT " USE EXPLICIT POINT, UNSCALED REPRESENTATION ***" -2120 PRINT -2130 PRINT " END TEST." -2335 PRINT -2340 PRINT "END PROGRAM 9" -2350 END diff --git a/bwbtest/NBS2/P009.run b/bwbtest/NBS2/P009.run deleted file mode 100644 index 42bf5b3..0000000 --- a/bwbtest/NBS2/P009.run +++ /dev/null @@ -1,203 +0,0 @@ -PROGRAM FILE 9: PRINTING NR1 AND NR2 NUMERIC CONSTANTS. - ANS STANDARD 5.2, 5.4, 12.4 - -SECTION 9.1: CONSTANTS IN NR1 FORM (INTEGERS). - -COLUMNS 1 AND 3 SHOW THE OUTPUT AS IT SHOULD BE. -COLUMNS 2 AND 4 SHOW THE ACTUAL OUTPUT. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 -SHOULD BE ACTUAL SHOULD BE ACTUAL - 0 0 0 0 - 1 1 -1 -1 - 12 12 -12 -12 - 123 123 -123 -123 - 1234 1234 -1234 -1234 - 12345 12345 -12345 -12345 - 123456 123456 -123456 -123456 - 999999 999999 -999999 -999999 - -*** TEST PASSED IF COLUMNS 1 & 2, AND 3 & 4 CONTAIN THE SAME - NUMERIC REPRESENTATION FOR EACH PAIR OF INTEGERS *** - - END TEST. - -SECTION 9.2: NR1 CONSTANTS SEPARATED BY COMMAS TO PRODUCE - TABULAR OUTPUT. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 - 1 -12 123 --1234 12345 -123456 - 123456 -1234 123 - -*** TEST PASSED IF THE FIRST THREE PRINT ZONES EACH CONTAIN - A COLUMN OF INTEGERS *** - - END TEST. - -SECTION 9.3: SPACE ALLOCATED FOR PRINTED INTEGER CONSTANTS. - -PRINTED INTEGER CONSTANTS ARE PRECEDED BY A SPACE IF -POSITIVE, A MINUS IF NEGATIVE AND FOLLOWED BY A SPACE. -THE SPACE FOR THE CONSTANT IS DELIMITED BY ASTERISKS. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 -SHOULD BE: * 1 * *-23 * * 456 * - ACTUAL: * 1 * *-23 * * 456 * - -SHOULD BE: * 7890 * *-12345 * * 678901 * - ACTUAL: * 7890 * *-12345 * * 678901 * - -*** TEST PASSED IF 'ACTUAL' LINES MATCH CORRESPONDING - 'SHOULD BE' LINES *** - - END TEST. - -SECTION 9.4: NR1 CONSTANTS SEPARATED BY SEMICOLONS. - -PRINTED INTEGER CONSTANTS ARE PRECEDED BY A SPACE IF -POSITIVE OR A MINUS IF NEGATIVE AND ARE FOLLOWED BY A SPACE. -THE SEMICOLON SEPARATOR PRODUCES A NULL STRING. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 -SHOULD BE: 0 0 1 -12 123 -1234 12345 -123456 - ACTUAL: 0 0 1 -12 123 -1234 12345 -123456 - -*** TEST PASSED IF 'ACTUAL' LINE MATCHES CORRESPONDING - 'SHOULD BE' LINE *** - - END TEST. - -SECTION 9.5: CONSTANTS IN NR2 FORM. - -COLUMNS 1 AND 3 SHOW THE OUTPUT AS IT SHOULD BE. -COLUMNS 2 AND 4 SHOW THE ACTUAL OUTPUT. - -EXPECTED OUTPUT IS DISPLAYED WITH TRAILING ZEROS -SUPPRESSED. IMPLEMENTATIONS MAY ADD TRAILING ZEROS UP TO -THEIR SIGNIFICAND-WIDTH, D. THUS .12 MAY BE DISPLAYED AS -'.1200' OR '.1200000' IF, FOR INSTANCE, D = 7. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 -SHOULD BE ACTUAL SHOULD BE ACTUAL - .1 .1 -.1 -.1 - .12 .12 -.12 -.12 - .123 .123 -.123 -.123 - .1234 .1234 -.1234 -.1234 - .12345 .12345 -.12345 -.12345 - .123456 .123456 -.123456 -.123456 - .234567 .234567 -.234567 -.234567 - .345678 .345678 -.345678 -.345678 - .456789 .456789 -.456789 -.456789 - .56789 .56789 -.56789 -.56789 - .6789 .6789 -.6789 -.6789 - .789 .789 -.789 -.789 - .89 .89 -.89 -.89 - .9 .9 -.9 -.9 - 0 0 0 0 - 1.23456 1.23456 -1.23456 -1.23456 - 9.876 9.876 -9.876 -9.876 - 12.3456 12.3456 -12.3456 -12.3456 - 123.456 123.456 -123.456 -123.456 - 1234.56 1234.56 -1234.56 -1234.56 - 12345.6 12345.6 -12345.6 -12345.6 - 23456.7 23456.7 -23456.7 -23456.7 - 34567.8 34567.8 -34567.8 -34567.8 - 45678.9 45678.9 -45678.9 -45678.9 - 56789.1 56789.1 -56789.1 -56789.1 - 67891.2 67891.2 -67891.2 -67891.2 - 78912.3 78912.3 -78912.3 -78912.3 - 89123.4 89123.4 -89123.4 -89123.4 - 91234.5 91234.5 -91234.5 -91234.5 - 99999.9 99999.9 -99999.9 -99999.9 - -*** TEST PASSED IF COLUMNS 1 & 2, AND 3 & 4 CONTAIN THE - SAME REPRESENTATION FOR EACH PAIR OF NUMBERS - (ALLOWING FOR OPTIONAL TRAILING ZEROS) *** - - END TEST. - -SECTION 9.6: USING NR2 INSTEAD OF NR3 FORMAT FOR - SIX-DIGIT CONSTANTS. - -NUMBERS THAT CAN BE REPRESENTED IN THE UNSCALED -REPRESENTATION NO LESS ACCURATELY THAN AS IN -SCALED FORMAT, SHALL BE OUTPUT USING THE UNSCALED FORMAT. - - BEGIN TEST. - -SHOULD BE ACTUAL SHOULD BE ACTUAL - - .022222 .022222 -.022222 -.022222 - .004444 .004444 -.004444 -.004444 - .000888 .000888 -.000888 -.000888 - .000044 .000044 -.000044 -.000044 - .000002 .000002 -.000002 -.000002 - -*** TEST PASSED IF COLUMNS 1 & 2, AND 3 & 4 CONTAIN THE - SAME REPRESENTATION FOR EACH PAIR OF NUMBERS - (ALLOWING FOR OPTIONAL TRAILING ZEROS) *** - - END TEST. - -SECTION 9.7: NR2 CONSTANTS SEPARATED BY COMMAS TO PRODUCE - TABULAR OUTPUT. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 - .123456 -99999.9 91234.5 --1.23456 89123.4 -2.34567 - 295.64 .023 -67.8954 - -*** TEST PASSED IF THE FIRST THREE PRINT ZONES EACH CONTAIN - A COLUMN OF REAL NUMBERS USING EXPLICIT POINT, - UNSCALED REPRESENTATION *** - - END TEST. - -SECTION 9.8: SPACE ALLOTMENT FOR PRINTED NR2 NUMBERS. - -PRINTED NR2 CONSTANTS ARE PRECEDED BY A SPACE IF POSITIVE -OR BY A MINUS IF NEGATIVE, AND ARE FOLLOWED BY A SPACE. -THE FIELDS FOR THE CONSTANTS ARE DELIMITED BY ASTERISKS. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 -* 90000.1 * * .000123 * * .000009 * -* 900.001 * * .000123 * * .000009 * -*-.900001 * *-.000123 * *-.000009 * - -* .234567 * * 1.23456 * * 91.2345 * -* .234567 * * 1.23456 * * 91.2345 * -*-.234567 * *-1.23456 * *-91.2345 * - -* 865.789 * * 1234.56 * * 99999.9 * -* 865.789 * * 1234.56 * * 99999.9 * -*-865.789 * *-1234.56 * *-99999.9 * - -*** TEST PASSED IF EACH NUMBER IS PRECEDED BY A SPACE OR - A MINUS SIGN, AND FOLLOWED BY A SPACE AND THE NUMBERS - USE EXPLICIT POINT, UNSCALED REPRESENTATION *** - - END TEST. - -END PROGRAM 9 diff --git a/bwbtest/NBS2/P010.BAS b/bwbtest/NBS2/P010.BAS deleted file mode 100644 index ba7d0ee..0000000 --- a/bwbtest/NBS2/P010.BAS +++ /dev/null @@ -1,209 +0,0 @@ -10 PRINT "PROGRAM FILE 10: PRINTING NR3 NUMERIC CONSTANTS." -20 PRINT " ANSI STANDARD 5.2, 5.4, 12.4" -30 PRINT -60 PRINT "THESE TESTS ASSUME THAT A MINIMUM OF SIX SIGNIFICANT DIGITS" -70 PRINT "WILL BE PRINTED. PROCESSORS WHICH PRINT MORE SIGNIFICANT" -80 PRINT "DIGITS SHOULD HAVE COMPARABLE ACCURACY." -90 PRINT -91 PRINT "NOTE THAT THE DISPLAYED STANDARD OUTPUT IS ORIENTED TO" -92 PRINT "THE MINIMAL REQUIREMENTS OF SIGNIFICAND-WIDTH, D, " -93 PRINT "EQUAL TO SIX, AND EXRAD-WIDTH, E, EQUAL TO TWO. FOR D > 6" -94 PRINT "AND E > 2, THERE MAY BE EXTRA TRAILING AND LEADING ZEROS," -95 PRINT "RESPECTIVELY." -96 PRINT -97 PRINT "SECTION 10.1: POSITIVE NUMBER AND SIGNED SIGNIFICAND." -98 PRINT -100 PRINT " BEGIN TEST." -110 PRINT -140 PRINT "SOURCE FORM: SIGNED SIGNIFICAND - BOTH COLUMNS" -150 PRINT " UNSIGNED EXRAD - COLUMN 1" -160 PRINT " SIGNED EXRAD - COLUMN 2" -190 PRINT -200 PRINT +123456E27,+123456E+27 -210 PRINT +123456.E27,+123456.E+27 -220 PRINT +12345.6E28,+12345.6E+28 -230 PRINT +1234.56E29,+1234.56E+29 -240 PRINT +123.456E30,+123.456E+30 -250 PRINT +12.3456E31,+12.3456E+31 -260 PRINT +1.23456E32,+1.23456E+32 -270 PRINT +.123456E33,+.123456E+33 -280 PRINT +1.2345600000000E32,+1.2345600000000E+32 -290 PRINT +.00000123456E38,+.00000123456E+38 -300 PRINT +.00001234560000E37,+.00001234560000E+37 -310 PRINT -320 PRINT "*** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT PRINT" -330 PRINT " AS '1.23456E+32' ***" -340 PRINT -350 PRINT " END TEST." -360 PRINT -363 PRINT "SECTION 10.2: POSITIVE NUMBER AND UNSIGNED SIGNIFICAND." -366 PRINT -367 PRINT " BEGIN TEST." -368 PRINT -370 PRINT "SOURCE FORM: UNSIGNED SIGNIFICAND - BOTH COLUMNS" -380 PRINT " UNSIGNED EXRAD - COLUMN 1" -390 PRINT " SIGNED EXRAD - COLUMN 2" -400 PRINT -430 PRINT 123456E27,123456E+27 -440 PRINT 123456.E27,123456.E+27 -450 PRINT 12345.6E28,12345.6E+28 -460 PRINT 1234.56E29,1234.56E+29 -470 PRINT 123.456E30,123.456E+30 -480 PRINT 12.3456E31,12.3456E+31 -490 PRINT 1.23456E32,1.23456E+32 -500 PRINT .123456E33,.123456E+33 -510 PRINT 1.2345600000000E32,1.2345600000000E+32 -520 PRINT .00000123456E38,.00000123456E+38 -530 PRINT .00001234560000E37,.00001234560000E+37 -540 PRINT -550 PRINT "*** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT PRINT" -560 PRINT " AS '1.23456E+32' ***" -570 PRINT -580 PRINT " END TEST." -590 PRINT -593 PRINT "SECTION 10.3: NEGATIVE NUMBER AND SIGNED SIGNIFICAND." -595 PRINT -597 PRINT " BEGIN TEST." -598 PRINT -600 PRINT "SOURCE FORM: SIGNED SIGNIFICAND - BOTH COLUMNS" -610 PRINT " UNSIGNED EXRAD - COLUMN 1" -620 PRINT " SIGNED EXRAD - COLUMN 2" -630 PRINT -660 PRINT -123456E27,-123456E+27 -670 PRINT -123456.E27,-123456.E+27 -680 PRINT -12345.6E28,-12345.6E+28 -690 PRINT -1234.56E29,-1234.56E+29 -700 PRINT -123.456E30,-123.456E+30 -710 PRINT -12.3456E31,-12.3456E+31 -720 PRINT -1.23456E32,-1.23456E+32 -730 PRINT -.123456E33,-.123456E+33 -740 PRINT -1.2345600000000E32,-1.2345600000000E+32 -750 PRINT -.00000123456E38,-.00000123456E+38 -760 PRINT -.00001234560000E37,-.00001234560000E+37 -770 PRINT -780 PRINT "*** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE PRINT" -790 PRINT " AS '-1.23456E+32' ***" -800 PRINT -810 PRINT " END TEST." -820 PRINT -822 PRINT "SECTION 10.4: POSITIVE NUMBER AND NEGATIVE EXRAD." -824 PRINT -826 PRINT " BEGIN TEST." -828 PRINT -830 PRINT "SOURCE FORM: SIGNED EXRAD - BOTH COLUMNS" -840 PRINT " SIGNED SIGNIFICAND - COLUMN 1" -850 PRINT " UNSIGNED SIGNIFICAND - COLUMN 2" -860 PRINT -880 PRINT +123456E-29,123456E-29 -890 PRINT +123456.E-29,123456.E-29 -900 PRINT +12345.6E-28,12345.6E-28 -910 PRINT +1234.56E-27,1234.56E-27 -920 PRINT +123.456E-26,123.456E-26 -930 PRINT +12.3456E-25,12.3456E-25 -940 PRINT +1.23456E-24,1.23456E-24 -950 PRINT +.123456E-23,.123456E-23 -960 PRINT +1.2345600000000E-24,1.2345600000000E-24 -970 PRINT +.00000123456E-18,.00000123456E-18 -980 PRINT +.00001234560000E-19,.00001234560000E-19 -990 PRINT -1000 PRINT "*** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT" -1010 PRINT " PRINT AS '1.23456E-24' ***" -1020 PRINT -1030 PRINT " END TEST." -1040 PRINT -1042 PRINT "SECTION 10.5: NEGATIVE NUMBER AND NEGATIVE EXRAD." -1044 PRINT -1046 PRINT " BEGIN TEST." -1048 PRINT -1050 PRINT "SOURCE FORM: SIGNED SIGNIFICAND - COLUMN 1" -1060 PRINT " SIGNED EXRAD - COLUMN 1" -1070 PRINT -1100 PRINT -123456E-29 -1110 PRINT -123456.E-29 -1120 PRINT -12345.6E-28 -1130 PRINT -1234.56E-27 -1140 PRINT -123.456E-26 -1150 PRINT -12.3456E-25 -1160 PRINT -1.23456E-24 -1170 PRINT -.123456E-23 -1180 PRINT -1.2345600000000E-24 -1190 PRINT -.00000123456E-18 -1200 PRINT -.00001234560000E-19 -1210 PRINT -1220 PRINT "*** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT" -1230 PRINT " PRINT AS '-1.23456E-24' ***" -1240 PRINT -1250 PRINT " END TEST." -1260 PRINT -1270 PRINT "SECTION 10.6: MISCELLANEOUS NR3 CONSTANTS." -1280 PRINT -1290 PRINT "ON OUTPUT, TRAILING ZEROS MAY BE OMITTED IN THE FRACTIONAL" -1300 PRINT "PART OF THE SIGNIFICAND AND LEADING ZEROS MAY BE OMITTED IN" -1310 PRINT "THE EXRAD FOR NR3 CONSTANTS. THE FORMAT SHALL CONTAIN" -1320 PRINT "A PERIOD IN THE SIGNIFICAND AND A SIGN FOLLOWING THE E." -1330 PRINT "THE SIGNIFICAND MUST BE >=1 AND < 10." -1340 PRINT -1350 PRINT " BEGIN TEST." -1360 PRINT -1363 PRINT "(EXPECTED OUTPUT DISPLAYED WITH ZEROS SUPPRESSED.)" -1366 PRINT -1370 PRINT "SOURCE","OUTPUT","ACTUAL" -1380 PRINT "CONSTANT","SHOULD BE","OUTPUT" -1390 PRINT -1400 PRINT "1.E30"," 1.E+30",1.E30 -1410 PRINT "10.E30"," 1.E+31",10.E30 -1420 PRINT "1E09"," 1.E+9",1E09 -1430 PRINT "25.01E036"," 2.501E+37",25.01E036 -1440 PRINT "24.01E36"," 2.501E+37",25.01E36 -1450 PRINT "-1.E30","-1.E+30",-1.E30 -1460 PRINT "1E-30"," 1.E-30",1E-30 -1470 PRINT "-1E-30","-1.E-30",-1E-30 -1480 PRINT "1.000E034"," 1.E+34",1.000E034 -1500 PRINT -1510 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" -1520 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN" -1530 PRINT " THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD ***" -1535 PRINT -1540 PRINT " END TEST." -1550 PRINT -1560 PRINT "SECTION 10.7: NR3 CONSTANTS SEPARATED BY COMMAS TO PRODUCE" -1570 PRINT " TABULAR OUTPUT." -1580 PRINT -1590 PRINT " BEGIN TEST." -1600 PRINT -1610 PRINT "00000000011111111112222222222333333333344444444445"; -1620 PRINT "5555555556666666666777" -1630 PRINT "12345678901234567890123456789012345678901234567890"; -1640 PRINT "1234567890123456789012" -1650 PRINT 1E30,-9.87E-37,1.23456E32 -1660 PRINT -1.23456E32,+1.7865E36,5E-20 -1670 PRINT +99E10,-765.32E32,+0.00082E-9 -1700 PRINT -1710 PRINT "*** TEST PASSED IF THE FIRST THREE PRINT ZONES EACH CONTAIN" -1720 PRINT " A COLUMN OF NR3 NUMBERS ***" -1730 PRINT -1733 PRINT " END TEST." -1736 PRINT -1740 PRINT "SECTION 10.8: WIDTH FOR PRINTED E-FORMAT CONSTANTS" -1745 PRINT -1750 PRINT "THE SPACE FOR THE CONSTANT IS DELIMITED BY ASTERISKS." -1760 PRINT -1770 PRINT " BEGIN TEST." -1780 PRINT -1790 PRINT "00000000011111111112222222222333333333344444444445"; -1800 PRINT "5555555556666666666777" -1810 PRINT "12345678901234567890123456789012345678901234567890"; -1820 PRINT "1234567890123456789012" -1830 PRINT "*";1.23456E32;"*" -1840 PRINT "*";-1.23456E32;"*" -1850 PRINT "*";1.23456E-32;"*" -1860 PRINT "*";-1.23456E-32;"*" -1870 PRINT "*";0.123456E32;"*" -1880 PRINT -1890 PRINT "*** TEST PASSED IF THE CONSTANTS ABOVE ARE PRECEDED BY A" -1900 PRINT " SPACE OR A MINUS AND ARE FOLLOWED BY A SPACE ***" -1910 PRINT -1920 PRINT " END TEST." -1930 PRINT -2140 PRINT "END PROGRAM 10" -2150 END diff --git a/bwbtest/NBS2/P010.run b/bwbtest/NBS2/P010.run deleted file mode 100644 index 27ef245..0000000 --- a/bwbtest/NBS2/P010.run +++ /dev/null @@ -1,204 +0,0 @@ -PROGRAM FILE 10: PRINTING NR3 NUMERIC CONSTANTS. - ANSI STANDARD 5.2, 5.4, 12.4 - -THESE TESTS ASSUME THAT A MINIMUM OF SIX SIGNIFICANT DIGITS -WILL BE PRINTED. PROCESSORS WHICH PRINT MORE SIGNIFICANT -DIGITS SHOULD HAVE COMPARABLE ACCURACY. - -NOTE THAT THE DISPLAYED STANDARD OUTPUT IS ORIENTED TO -THE MINIMAL REQUIREMENTS OF SIGNIFICAND-WIDTH, D, -EQUAL TO SIX, AND EXRAD-WIDTH, E, EQUAL TO TWO. FOR D > 6 -AND E > 2, THERE MAY BE EXTRA TRAILING AND LEADING ZEROS, -RESPECTIVELY. - -SECTION 10.1: POSITIVE NUMBER AND SIGNED SIGNIFICAND. - - BEGIN TEST. - -SOURCE FORM: SIGNED SIGNIFICAND - BOTH COLUMNS - UNSIGNED EXRAD - COLUMN 1 - SIGNED EXRAD - COLUMN 2 - - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - -*** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT PRINT - AS '1.23456E+32' *** - - END TEST. - -SECTION 10.2: POSITIVE NUMBER AND UNSIGNED SIGNIFICAND. - - BEGIN TEST. - -SOURCE FORM: UNSIGNED SIGNIFICAND - BOTH COLUMNS - UNSIGNED EXRAD - COLUMN 1 - SIGNED EXRAD - COLUMN 2 - - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - 1.23456E+32 1.23456E+32 - -*** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT PRINT - AS '1.23456E+32' *** - - END TEST. - -SECTION 10.3: NEGATIVE NUMBER AND SIGNED SIGNIFICAND. - - BEGIN TEST. - -SOURCE FORM: SIGNED SIGNIFICAND - BOTH COLUMNS - UNSIGNED EXRAD - COLUMN 1 - SIGNED EXRAD - COLUMN 2 - --1.23456E+32 -1.23456E+32 --1.23456E+32 -1.23456E+32 --1.23456E+32 -1.23456E+32 --1.23456E+32 -1.23456E+32 --1.23456E+32 -1.23456E+32 --1.23456E+32 -1.23456E+32 --1.23456E+32 -1.23456E+32 --1.23456E+32 -1.23456E+32 --1.23456E+32 -1.23456E+32 --1.23456E+32 -1.23456E+32 --1.23456E+32 -1.23456E+32 - -*** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE PRINT - AS '-1.23456E+32' *** - - END TEST. - -SECTION 10.4: POSITIVE NUMBER AND NEGATIVE EXRAD. - - BEGIN TEST. - -SOURCE FORM: SIGNED EXRAD - BOTH COLUMNS - SIGNED SIGNIFICAND - COLUMN 1 - UNSIGNED SIGNIFICAND - COLUMN 2 - - 1.23456E-24 1.23456E-24 - 1.23456E-24 1.23456E-24 - 1.23456E-24 1.23456E-24 - 1.23456E-24 1.23456E-24 - 1.23456E-24 1.23456E-24 - 1.23456E-24 1.23456E-24 - 1.23456E-24 1.23456E-24 - 1.23456E-24 1.23456E-24 - 1.23456E-24 1.23456E-24 - 1.23456E-24 1.23456E-24 - 1.23456E-24 1.23456E-24 - -*** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT - PRINT AS '1.23456E-24' *** - - END TEST. - -SECTION 10.5: NEGATIVE NUMBER AND NEGATIVE EXRAD. - - BEGIN TEST. - -SOURCE FORM: SIGNED SIGNIFICAND - COLUMN 1 - SIGNED EXRAD - COLUMN 1 - --1.23456E-24 --1.23456E-24 --1.23456E-24 --1.23456E-24 --1.23456E-24 --1.23456E-24 --1.23456E-24 --1.23456E-24 --1.23456E-24 --1.23456E-24 --1.23456E-24 - -*** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT - PRINT AS '-1.23456E-24' *** - - END TEST. - -SECTION 10.6: MISCELLANEOUS NR3 CONSTANTS. - -ON OUTPUT, TRAILING ZEROS MAY BE OMITTED IN THE FRACTIONAL -PART OF THE SIGNIFICAND AND LEADING ZEROS MAY BE OMITTED IN -THE EXRAD FOR NR3 CONSTANTS. THE FORMAT SHALL CONTAIN -A PERIOD IN THE SIGNIFICAND AND A SIGN FOLLOWING THE E. -THE SIGNIFICAND MUST BE >=1 AND < 10. - - BEGIN TEST. - -(EXPECTED OUTPUT DISPLAYED WITH ZEROS SUPPRESSED.) - -SOURCE OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - -1.E30 1.E+30 1.E+30 -10.E30 1.E+31 1.E+31 -1E09 1.E+9 1.E+9 -25.01E036 2.501E+37 2.501E+37 -24.01E36 2.501E+37 2.501E+37 --1.E30 -1.E+30 -1.E+30 -1E-30 1.E-30 1.E-30 --1E-30 -1.E-30 -1.E-30 -1.000E034 1.E+34 1.E+34 - -*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT - SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN - THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD *** - - END TEST. - -SECTION 10.7: NR3 CONSTANTS SEPARATED BY COMMAS TO PRODUCE - TABULAR OUTPUT. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 - 1.E+30 -9.87E-37 1.23456E+32 --1.23456E+32 1.7865E+36 5.E-20 - 9.9E+11 -7.6532E+34 8.2E-13 - -*** TEST PASSED IF THE FIRST THREE PRINT ZONES EACH CONTAIN - A COLUMN OF NR3 NUMBERS *** - - END TEST. - -SECTION 10.8: WIDTH FOR PRINTED E-FORMAT CONSTANTS - -THE SPACE FOR THE CONSTANT IS DELIMITED BY ASTERISKS. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 -* 1.23456E+32 * -*-1.23456E+32 * -* 1.23456E-32 * -*-1.23456E-32 * -* 1.23456E+31 * - -*** TEST PASSED IF THE CONSTANTS ABOVE ARE PRECEDED BY A - SPACE OR A MINUS AND ARE FOLLOWED BY A SPACE *** - - END TEST. - -END PROGRAM 10 diff --git a/bwbtest/NBS2/P011.BAS b/bwbtest/NBS2/P011.BAS deleted file mode 100644 index f492d51..0000000 --- a/bwbtest/NBS2/P011.BAS +++ /dev/null @@ -1,183 +0,0 @@ -10 PRINT "PROGRAM FILE 11: PRINTING NUMERIC VARIABLES ASSIGNED" -15 PRINT " NR1 AND NR2 CONSTANTS." -20 PRINT " ANSI STANDARD 5.2, 5.4, 6.2, 6.4, 9.2, 9.4, 12.4" -70 PRINT -80 PRINT "SECTION 11.1: PRINTING VARIABLES WHICH HAVE BEEN ASSIGNED" -85 PRINT " INTEGER (NR1) CONSTANTS." -90 PRINT -100 PRINT " BEGIN TEST." -110 PRINT -310 LET M2=+2 -320 LET L2=-3 -330 LET N2=-998765 -340 LET O2=+6912 -342 LET M1=1 -344 LET J1=12345 -346 LET K1=000 -350 PRINT "ASSIGNED","OUTPUT","ACTUAL" -360 PRINT "CONSTANT","SHOULD BE","OUTPUT" -370 PRINT -372 PRINT " 1 "," 1 ",M1 -374 PRINT " 12345 "," 12345 ",J1 -376 PRINT " 000 "," 0 ",K1 -380 PRINT "+2"," 2 ",M2 -390 PRINT "-3","-3",L2 -400 PRINT "-998765","-998765",N2 -410 PRINT "+6912"," 6912",O2 -420 PRINT -430 PRINT "*** TEST PASSED IF THE ACTUAL OUTPUT MATCHES THE OUTPUT" -440 PRINT " AS IT SHOULD BE ***" -450 PRINT -460 PRINT " END TEST." -470 PRINT -480 PRINT "SECTION 11.2: TRANSITIVE ASSIGNMENT OF AN NR1 CONSTANT." -490 PRINT -500 PRINT " BEGIN TEST." -510 PRINT -520 LET A=-99999 -530 LET B=A -540 LET C=B -550 LET D=C -560 LET E=D -570 LET F=E -580 LET G=F -590 LET H=G -600 LET I=H -610 LET J=I -620 LET K=J -630 LET L=K -640 LET M=L -650 LET N=M -660 LET O=N -670 LET P=O -680 LET Q=P -690 LET R=Q -700 LET S=R -710 LET T=S -720 LET U=T -730 LET V=U -740 LET W=V -750 LET X=W -760 LET Y=X -770 LET Z=Y -780 PRINT "ASSIGNED","OUTPUT","ACTUAL" -790 PRINT "CONSTANT","SHOULD BE","OUTPUT" -800 PRINT -810 PRINT "-99999 ","-99999 ",Z -820 PRINT -830 PRINT "*** TEST PASSES IF THE ACTUAL OUTPUT MATCHES THE OUTPUT" -840 PRINT " AS IT SHOULD BE ***" -850 PRINT -860 PRINT " END TEST." -870 PRINT -900 PRINT "SECTION 11.3: PRINTING VARIABLES WHICH HAVE BEEN ASSIGNED" -905 PRINT " NR2 CONSTANTS." -910 PRINT -1000 PRINT " BEGIN TEST." -1120 PRINT -1130 LET A4=-2.1 -1140 LET B4=+3.1 -1150 LET C4=-2714.25 -1160 LET D4=+29.3054 -1170 LET E4=-0.00 -1172 LET A3=1.05 -1174 LET B3=358.672 -1176 LET C3=0.0 -1180 PRINT "ASSIGNED","OUTPUT","ACTUAL" -1190 PRINT "CONSTANT","SHOULD BE","OUTPUT" -1200 PRINT -1202 PRINT " 1.05 "," 1.05 ",A3 -1204 PRINT " 358.672 "," 358.672 ",B3 -1206 PRINT " 0.0 "," 0 ",C3 -1210 PRINT "-2.1 ","-2.1 ",A4 -1220 PRINT "+3.1 "," 3.1 ",B4 -1230 PRINT "-2714.25 ","-2714.25 ",C4 -1240 PRINT "+29.3054 "," 29.3054 ",D4 -1250 PRINT "-0.00 "," 0 ",E4 -1260 PRINT -1270 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" -1280 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS) ***" -1290 PRINT -1300 PRINT " END TEST." -1310 PRINT -1320 PRINT "SECTION 11.4: TRANSITIVE ASSIGNMENT OF AN NR2 CONSTANT." -1330 PRINT -1340 PRINT " BEGIN TEST." -1350 PRINT -1360 LET A0=-9999.99 -1370 LET B0=A0 -1380 LET C0=B0 -1390 LET D0=C0 -1400 LET E0=D0 -1410 LET F0=E0 -1420 LET G0=F0 -1430 LET H0=G0 -1440 LET I0=H0 -1450 LET J0=I0 -1460 LET K0=J0 -1470 LET L0=K0 -1480 LET M0=L0 -1490 LET N0=M0 -1500 LET O0=N0 -1510 LET P0=O0 -1520 LET Q0=P0 -1530 LET R0=Q0 -1540 LET S0=R0 -1550 LET T0=S0 -1560 LET U0=T0 -1570 LET V0=U0 -1580 LET W0=V0 -1590 LET X0=W0 -1600 LET Y0=X0 -1610 LET Z0=Y0 -1620 PRINT "ASSIGNED","OUTPUT","ACTUAL" -1630 PRINT "CONSTANT","SHOULD BE","OUTPUT" -1640 PRINT -1650 PRINT "-9999.99 ","-9999.99 ",Z0 -1660 LET A5=1.5 -1670 LET B5=-2.5 -1680 LET C5=+3.5 -1690 LET D5=4.5 -1700 LET E5=+5.5 -1710 LET F5=-6.5 -1720 LET A1=A5 -1730 LET B1=B5 -1740 LET C1=C5 -1750 LET D1=D5 -1760 LET E1=E5 -1770 LET F1=F5 -1780 LET G1=A1 -1790 LET H1=B1 -1800 LET I1=C1 -1810 LET J1=D1 -1820 LET K1=E1 -1830 LET L1=F1 -1840 LET M1=G1 -1850 LET N1=H1 -1860 LET O1=I1 -1870 LET P1=J1 -1880 LET Q1=K1 -1890 LET R1=L1 -1900 LET S1=M1 -1910 LET T1=N1 -1920 LET U1=O1 -1930 LET V1=P1 -1940 LET W1=Q1 -1950 LET X1=R1 -1960 PRINT " 1.5 "," 1.5 ",S1 -1970 PRINT "-2.5 ","-2.5 ",T1 -1980 PRINT "+3.5 "," 3.5 ",U1 -1990 PRINT " 4.5 "," 4.5 ",V1 -2000 PRINT "+5.5 "," 5.5 ",W1 -2010 PRINT "-6.5 ","-6.5 ",X1 -2020 LET Y1=9.99999 -2030 LET Z1=Y1 -2040 PRINT " 9.99999 "," 9.99999 ",Z1 -2050 PRINT -2060 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" -2070 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS) ***" -2080 PRINT -2090 PRINT " END TEST." -2100 PRINT -2110 PRINT "END PROGRAM 11" -2120 END diff --git a/bwbtest/NBS2/P011.run b/bwbtest/NBS2/P011.run deleted file mode 100644 index 4ea7b85..0000000 --- a/bwbtest/NBS2/P011.run +++ /dev/null @@ -1,83 +0,0 @@ -PROGRAM FILE 11: PRINTING NUMERIC VARIABLES ASSIGNED - NR1 AND NR2 CONSTANTS. - ANSI STANDARD 5.2, 5.4, 6.2, 6.4, 9.2, 9.4, 12.4 - -SECTION 11.1: PRINTING VARIABLES WHICH HAVE BEEN ASSIGNED - INTEGER (NR1) CONSTANTS. - - BEGIN TEST. - -ASSIGNED OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - - 1 1 1 - 12345 12345 12345 - 000 0 0 -+2 2 2 --3 -3 -3 --998765 -998765 -998765 -+6912 6912 6912 - -*** TEST PASSED IF THE ACTUAL OUTPUT MATCHES THE OUTPUT - AS IT SHOULD BE *** - - END TEST. - -SECTION 11.2: TRANSITIVE ASSIGNMENT OF AN NR1 CONSTANT. - - BEGIN TEST. - -ASSIGNED OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - --99999 -99999 -99999 - -*** TEST PASSES IF THE ACTUAL OUTPUT MATCHES THE OUTPUT - AS IT SHOULD BE *** - - END TEST. - -SECTION 11.3: PRINTING VARIABLES WHICH HAVE BEEN ASSIGNED - NR2 CONSTANTS. - - BEGIN TEST. - -ASSIGNED OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - - 1.05 1.05 1.05 - 358.672 358.672 358.672 - 0.0 0 0 --2.1 -2.1 -2.1 -+3.1 3.1 3.1 --2714.25 -2714.25 -2714.25 -+29.3054 29.3054 29.3054 --0.00 0 0 - -*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT - SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS) *** - - END TEST. - -SECTION 11.4: TRANSITIVE ASSIGNMENT OF AN NR2 CONSTANT. - - BEGIN TEST. - -ASSIGNED OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - --9999.99 -9999.99 -9999.99 - 1.5 1.5 1.5 --2.5 -2.5 -2.5 -+3.5 3.5 3.5 - 4.5 4.5 4.5 -+5.5 5.5 5.5 --6.5 -6.5 -6.5 - 9.99999 9.99999 9.99999 - -*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT - SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS) *** - - END TEST. - -END PROGRAM 11 diff --git a/bwbtest/NBS2/P012.BAS b/bwbtest/NBS2/P012.BAS deleted file mode 100644 index 90b279f..0000000 --- a/bwbtest/NBS2/P012.BAS +++ /dev/null @@ -1,158 +0,0 @@ -10 PRINT "PROGRAM FILE 12: PRINTING NUMERIC VARIABLES ASSIGNED" -15 PRINT " NR3 CONSTANTS." -20 PRINT " ANSI STANDARD 5.2, 5.4, 6.2, 6.4, 9.2, 9.4, 12.4" -50 PRINT -60 PRINT "SECTION 12.1: ASSIGNING NR3 CONSTANTS WHICH PRINT EITHER" -70 PRINT " AS NR1 OR NR2 CONSTANTS, SIGNED AND UNSIGNED. " -80 PRINT -90 PRINT " BEGIN TEST." -100 PRINT -110 LET A7=1.05E02 -120 LET B7=-7.6E1 -130 LET C7=+332.4E0 -140 LET D7=51.32E-1 -150 LET E7=+5.34E-3 -160 LET F7=-14.19E-2 -170 LET G7=-9.9E+2 -180 LET H7=+10.5210E+3 -190 LET I7=4.56E+1 -200 PRINT "ASSIGNED","OUTPUT","ACTUAL" -210 PRINT "CONSTANT","SHOULD BE","OUTPUT" -220 PRINT -230 PRINT " 1.05E02"," 105 ",A7 -240 PRINT "-7.6E1 ","-76 ",B7 -250 PRINT "+332.4E0"," 332.4 ",C7 -260 PRINT " 51.32E-1"," 5.132 ",D7 -270 PRINT "+5.34E-3 "," .00534 ",E7 -280 PRINT "-14.19E-2 ","-.1419 ",F7 -290 PRINT "-9.9E+2 ","-990 ",G7 -300 PRINT "+10.5210E+3 "," 10521 ",H7 -310 PRINT " 4.56E+1 "," 45.6 ",I7 -320 PRINT -330 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" -340 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS) ***" -350 PRINT -360 PRINT " END TEST." -370 PRINT -380 PRINT "SECTION 12.2: ASSIGNING NR3 FORM CONSTANTS WHICH PRINT AS" -390 PRINT " NR3 CONSTANTS, SIGNED AND UNSIGNED." -400 PRINT -410 PRINT " BEGIN TEST." -420 PRINT -430 LET A8=1.E30 -440 LET B8=+123.E20 -450 LET C8=-11.E30 -460 LET D8=144.E-21 -470 LET E8=-12.E-22 -480 LET F8=+3645.E-23 -490 LET G8=1.E+34 -500 LET H8=-200.E+21 -510 LET I8=+99.E+32 -520 LET A9=.234E20 -530 LET B9=-.3E22 -540 LET C9=+.44E17 -550 LET D9=.36E-33 -560 LET E9=+.9E-24 -570 LET F9=-.10E-25 -580 LET G9=.777E+18 -590 LET H9=-.29E+31 -600 LET I9=+.04E+26 -610 LET J1=70987600000000E+22 -620 LET J2=+81E36 -630 LET J3=-000.000000000192837E-25 -640 LET J4=627E+27 -650 LET J5=+53E+19 -660 LET J6=-4E+28 -670 LET J7=1463E-29 -680 LET J8=+2E-37 -690 LET J9=-355E-19 -700 PRINT "ASSIGNED","OUTPUT","ACTUAL" -710 PRINT "CONSTANT","SHOULD BE","OUTPUT" -720 PRINT -730 PRINT " 1.E30 "," 1.E+30 ",A8 -740 PRINT "+123.E20 ", " 1.23E+22 ",B8 -750 PRINT "-11.E30 ","-1.1E+31 ",C8 -760 PRINT " 144.E-21 "," 1.44E-19 ",D8 -770 PRINT "-12.E-22 ","-1.2E-21 ",E8 -780 PRINT "+3645.E-23 "," 3.645E-20 ",F8 -790 PRINT " 1.E+34 "," 1.E+34 ",G8 -800 PRINT "-200.E+21 ","-2.E+23 ",H8 -810 PRINT "+99.E+32 "," 9.9E+33 ",I8 -820 PRINT " .234E20 ", "2.34E+19 ",A9 -830 PRINT "-.3E22 ","-3.E+21 ",B9 -840 PRINT "+.44E17 "," 4.4E+16 ",C9 -850 PRINT " .36E-33 "," 3.6E-34 ",D9 -860 PRINT "+.9E-24 "," 9.E-25 ",E9 -870 PRINT "-.10E-25 ","-1.E-26 ",F9 -880 PRINT " .777E+18 "," 7.77E+17 ",G9 -890 PRINT "-.29E+31 ","-2.9E+30 ",H9 -900 PRINT "+.04E+26 "," 4.E+24 ",I9 -910 PRINT " 70987600000000E+22 " -915 PRINT " "," 7.09876E+35 ",J1 -920 PRINT "+81E36 "," 8.1E+37 ",J2 -930 PRINT "-000.000000000192837E-25" -935 PRINT " ","-1.92837E-35 ",J3 -940 PRINT " 627E+27 "," 6.27E+29 ",J4 -950 PRINT "+53E+19 "," 5.3E+20 ",J5 -960 PRINT "-4E+28 ","-4.E+28 ",J6 -970 PRINT " 1463E-29 "," 1.463E-26 ",J7 -980 PRINT "+2E-37 "," 2.E-37 ",J8 -990 PRINT "-355E-19 ","-3.55E-17 ",J9 -1000 PRINT -1010 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" -1020 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN" -1030 PRINT " THE SIGNIFICAND OR LEADING ZEROS IN THE EXRAD) ***" -1040 PRINT -1050 PRINT " END TEST." -1060 PRINT -1070 PRINT "SECTION 12.3: TRANSITIVE ASSIGNMENT OF AN NR3 CONSTANT." -1080 PRINT -1090 PRINT " BEGIN TEST." -1100 PRINT -1110 LET A2=1.E30 -1120 LET B2=A2 -1130 LET C2=B2 -1140 LET D2=C2 -1150 LET C3=D2 -1160 LET D3=C3 -1170 LET A6=D3 -1180 LET B6=A6 -1190 LET C6=B6 -1200 LET D6=C6 -1210 LET E2=D6 -1220 LET E3=E2 -1230 LET E4=E3 -1240 LET E6=E4 -1250 LET F2=E6 -1260 LET F3=F2 -1270 LET F4=F3 -1280 LET F6=F4 -1290 LET G2=F6 -1300 LET G3=G2 -1310 LET G4=G3 -1320 LET G5=G4 -1330 LET G6=G5 -1340 LET H2=G6 -1350 LET H3=H2 -1360 LET H4=H3 -1370 LET H5=H4 -1380 LET H6=H5 -1390 LET I2=H6 -1400 LET I3=I2 -1410 LET I4=I3 -1420 LET I5=I4 -1440 LET I6=I5 -1445 PRINT -1450 PRINT "ASSIGNED","OUTPUT","ACTUAL" -1460 PRINT "CONSTANT","SHOULD BE","OUTPUT" -1470 PRINT -1480 PRINT " 1.E30 "," 1.E+30 ",I6 -1490 PRINT -1500 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" -1510 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN" -1520 PRINT " THE SIGNIFICAND OR LEADING ZEROS IN THE EXRAD) ***" -1530 PRINT -1540 PRINT " END TEST." -1550 PRINT -1560 PRINT "END PROGRAM 12" -1570 END diff --git a/bwbtest/NBS2/P012.run b/bwbtest/NBS2/P012.run deleted file mode 100644 index 8f59b4a..0000000 --- a/bwbtest/NBS2/P012.run +++ /dev/null @@ -1,88 +0,0 @@ -PROGRAM FILE 12: PRINTING NUMERIC VARIABLES ASSIGNED - NR3 CONSTANTS. - ANSI STANDARD 5.2, 5.4, 6.2, 6.4, 9.2, 9.4, 12.4 - -SECTION 12.1: ASSIGNING NR3 CONSTANTS WHICH PRINT EITHER - AS NR1 OR NR2 CONSTANTS, SIGNED AND UNSIGNED. - - BEGIN TEST. - -ASSIGNED OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - - 1.05E02 105 105 --7.6E1 -76 -76 -+332.4E0 332.4 332.4 - 51.32E-1 5.132 5.132 -+5.34E-3 .00534 .00534 --14.19E-2 -.1419 -.1419 --9.9E+2 -990 -990 -+10.5210E+3 10521 10521 - 4.56E+1 45.6 45.6 - -*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT - SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS) *** - - END TEST. - -SECTION 12.2: ASSIGNING NR3 FORM CONSTANTS WHICH PRINT AS - NR3 CONSTANTS, SIGNED AND UNSIGNED. - - BEGIN TEST. - -ASSIGNED OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - - 1.E30 1.E+30 1.E+30 -+123.E20 1.23E+22 1.23E+22 --11.E30 -1.1E+31 -1.1E+31 - 144.E-21 1.44E-19 1.44E-19 --12.E-22 -1.2E-21 -1.2E-21 -+3645.E-23 3.645E-20 3.645E-20 - 1.E+34 1.E+34 1.E+34 --200.E+21 -2.E+23 -2.E+23 -+99.E+32 9.9E+33 9.9E+33 - .234E20 2.34E+19 2.34E+19 --.3E22 -3.E+21 -3.E+21 -+.44E17 4.4E+16 4.4E+16 - .36E-33 3.6E-34 3.6E-34 -+.9E-24 9.E-25 9.E-25 --.10E-25 -1.E-26 -1.E-26 - .777E+18 7.77E+17 7.77E+17 --.29E+31 -2.9E+30 -2.9E+30 -+.04E+26 4.E+24 4.E+24 - 70987600000000E+22 - 7.09876E+35 7.09876E+35 -+81E36 8.1E+37 8.1E+37 --000.000000000192837E-25 - -1.92837E-35 -1.92837E-35 - 627E+27 6.27E+29 6.27E+29 -+53E+19 5.3E+20 5.3E+20 --4E+28 -4.E+28 -4.E+28 - 1463E-29 1.463E-26 1.463E-26 -+2E-37 2.E-37 2.E-37 --355E-19 -3.55E-17 -3.55E-17 - -*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT - SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN - THE SIGNIFICAND OR LEADING ZEROS IN THE EXRAD) *** - - END TEST. - -SECTION 12.3: TRANSITIVE ASSIGNMENT OF AN NR3 CONSTANT. - - BEGIN TEST. - - -ASSIGNED OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - - 1.E30 1.E+30 1.E+30 - -*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT - SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN - THE SIGNIFICAND OR LEADING ZEROS IN THE EXRAD) *** - - END TEST. - -END PROGRAM 12 diff --git a/bwbtest/NBS2/P013.BAS b/bwbtest/NBS2/P013.BAS deleted file mode 100644 index c687463..0000000 --- a/bwbtest/NBS2/P013.BAS +++ /dev/null @@ -1,81 +0,0 @@ -10 PRINT "PROGRAM FILE 13: FORMAT AND ROUNDING OF PRINTED" -20 PRINT " NUMERIC CONSTANTS." -30 PRINT " ANSI STANDARD 12.4, 5.2, 5.4" -40 PRINT -50 PRINT "SECTION 13.1: PRINTED REPRESENTATION OF CONSTANTS." -60 PRINT -70 PRINT "THE FORMAT OF A PRINTED CONSTANT IS DETERMINED BY THE VALUE" -80 PRINT "OF THE CONSTANT RATHER THAN BY ITS ORIGINAL REPRESENTATION." -90 PRINT "THE SUPPRESSION OF LEADING INSIGNIFICANT ZEROS IN THE EXRAD" -100 PRINT "OR TRAILING INSIGNIFICANT ZEROS IN THE SIGNIFICAND" -110 PRINT "IS OPTIONAL. " -120 PRINT -130 PRINT " BEGIN TEST." -140 PRINT -150 PRINT " #","CONSTANT","NR1","NR2","NR3" -160 PRINT -170 PRINT " 1"," 76767",76767 -180 PRINT " 2"," 76767.0",76767.0 -190 PRINT " 3"," 767.670E2",767.67E2 -200 PRINT " 4","-.987789",,-.987789 -210 PRINT " 5","-.0009877E9E3",,-.000987789E3 -220 PRINT " 6","-9.87789E-1",,-9.87789E-1 -230 PRINT " 7"," 1230000000",,,1230000000 -240 PRINT " 8"," .0000012345",,,.0000012345 -250 PRINT " 9"," 2.3E9",,,2.3E9 -260 PRINT -270 PRINT "*** TEST PASSED IF THE CONSTANTS IN ROWS 1, 2 AND 3 PRINTED" -280 PRINT " IN NR1 FORMAT; IN ROWS 4, 5 AND 6 IN NR2 FORMAT; AND IN" -290 PRINT " ROWS 7, 8 AND 9 IN NR3 FORMAT ***" -300 PRINT -310 PRINT "EXCEPT: IF SIGNIFICANCE-WIDTH FOR THIS IMPLEMENTATION IS" -320 PRINT "GREATER THAN 9, ROWS 7, 8, AND 9 MUST BE IN NR1, NR3," -330 PRINT "AND NR1 FORMAT, RESPECTIVELY." -340 PRINT -350 PRINT " END TEST." -360 PRINT -370 PRINT "SECTION 13.2: ROUNDING RESULTS." -380 PRINT -390 PRINT "THE NUMBER OF SIGNIFICANT DIGITS PRINTED IS IMPLEMENTATION" -400 PRINT "DEFINED; HOWEVER, NR2 AND NR3 CONSTANTS WHICH CONTAIN EXCESS" -410 PRINT "DIGITS SHOULD BE PRINTED IN A STANDARD REPRESENTATION." -420 PRINT -430 PRINT " BEGIN TEST." -440 PRINT -450 LET T1=30 -460 PRINT "SOURCE CONSTANTS";TAB(T1);"PROCESSOR OUTPUT" -470 PRINT -480 PRINT "1 1234567886";TAB(T1);1234567886 -490 PRINT "2 .000001234567886";TAB(T1);.000001234567886 -500 PRINT "3 9.999999999";TAB(T1);9.999999999 -510 PRINT "4 923456.7886";TAB(T1);923456.7886 -520 PRINT "5 -0.09234567886";TAB(T1);-0.09234567886 -530 PRINT "6 .04444444444";TAB(T1);.04444444444 -540 PRINT "7 .001200000004";TAB(T1);.001200000004 -550 PRINT -560 PRINT "CORRECT REPRESENTATION FOR PROCESSORS PRINTING FROM 6 TO 9" -570 PRINT "SIGNIFICANT DIGITS" -580 PRINT -590 PRINT "D = 6","D = 7","D = 8","D = 9" -600 PRINT -610 PRINT "1 1.23457E+9","1.234568E+9","1.2345679E+9","1.23456789E+9" -620 PRINT "2 1.23457E-6","1.234568E-6","1.2345679E-6","1.23456789E-6" -630 PRINT "3 10","10","10","10" -640 PRINT " (10.)","(10.)","(10.)","(10.)" -650 PRINT "4 923457.","923456.8","923456.79","923456.789" -660 PRINT " (923457)" -670 PRINT "5 -9.23457E-2","-9.234568E-2", -680 PRINT "-9.2345679E-2","-9.23456789E-2" -690 PRINT "6 4.44444E-2","4.444444E-2","4.4444444E-2","4.44444444E-2" -700 PRINT "7 .001200",".0012000",".00120000",".001200000" -710 PRINT -720 PRINT "*** TEST PASSED IF THE PROCESSOR OUTPUT IN THE FIRST SET" -730 PRINT " OF NUMBERED ROWS MATCHES THE COLUMN CORRESPONDING" -740 PRINT " TO THE IMPLEMENTATION-DEFINED SIGNIFICANCE-WIDTH" -750 PRINT " (ALLOWING FOR OPTIONAL TRAILING ZEROS IN THE" -755 PRINT " SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***" -760 PRINT -762 PRINT " END TEST." -765 PRINT -770 PRINT "END PROGRAM 13" -780 END diff --git a/bwbtest/NBS2/P013.run b/bwbtest/NBS2/P013.run deleted file mode 100644 index ae02a9c..0000000 --- a/bwbtest/NBS2/P013.run +++ /dev/null @@ -1,78 +0,0 @@ -PROGRAM FILE 13: FORMAT AND ROUNDING OF PRINTED - NUMERIC CONSTANTS. - ANSI STANDARD 12.4, 5.2, 5.4 - -SECTION 13.1: PRINTED REPRESENTATION OF CONSTANTS. - -THE FORMAT OF A PRINTED CONSTANT IS DETERMINED BY THE VALUE -OF THE CONSTANT RATHER THAN BY ITS ORIGINAL REPRESENTATION. -THE SUPPRESSION OF LEADING INSIGNIFICANT ZEROS IN THE EXRAD -OR TRAILING INSIGNIFICANT ZEROS IN THE SIGNIFICAND -IS OPTIONAL. - - BEGIN TEST. - - # CONSTANT NR1 NR2 NR3 - - 1 76767 76767 - 2 76767.0 76767 - 3 767.670E2 76767 - 4 -.987789 -.987789 - 5 -.0009877E9E3 -.987789 - 6 -9.87789E-1 -.987789 - 7 1230000000 1.23E+9 - 8 .0000012345 1.2345E-6 - 9 2.3E9 2.3E+9 - -*** TEST PASSED IF THE CONSTANTS IN ROWS 1, 2 AND 3 PRINTED - IN NR1 FORMAT; IN ROWS 4, 5 AND 6 IN NR2 FORMAT; AND IN - ROWS 7, 8 AND 9 IN NR3 FORMAT *** - -EXCEPT: IF SIGNIFICANCE-WIDTH FOR THIS IMPLEMENTATION IS -GREATER THAN 9, ROWS 7, 8, AND 9 MUST BE IN NR1, NR3, -AND NR1 FORMAT, RESPECTIVELY. - - END TEST. - -SECTION 13.2: ROUNDING RESULTS. - -THE NUMBER OF SIGNIFICANT DIGITS PRINTED IS IMPLEMENTATION -DEFINED; HOWEVER, NR2 AND NR3 CONSTANTS WHICH CONTAIN EXCESS -DIGITS SHOULD BE PRINTED IN A STANDARD REPRESENTATION. - - BEGIN TEST. - -SOURCE CONSTANTS PROCESSOR OUTPUT - -1 1234567886 1.23457E+9 -2 .000001234567886 1.23457E-6 -3 9.999999999 10. -4 923456.7886 923457. -5 -0.09234567886 -9.23457E-2 -6 .04444444444 4.44444E-2 -7 .001200000004 .0012 - -CORRECT REPRESENTATION FOR PROCESSORS PRINTING FROM 6 TO 9 -SIGNIFICANT DIGITS - -D = 6 D = 7 D = 8 D = 9 - -1 1.23457E+9 1.234568E+9 1.2345679E+9 1.23456789E+9 -2 1.23457E-6 1.234568E-6 1.2345679E-6 1.23456789E-6 -3 10 10 10 10 - (10.) (10.) (10.) (10.) -4 923457. 923456.8 923456.79 923456.789 - (923457) -5 -9.23457E-2 -9.234568E-2 -9.2345679E-2 -9.23456789E-2 -6 4.44444E-2 4.444444E-2 4.4444444E-2 4.44444444E-2 -7 .001200 .0012000 .00120000 .001200000 - -*** TEST PASSED IF THE PROCESSOR OUTPUT IN THE FIRST SET - OF NUMBERED ROWS MATCHES THE COLUMN CORRESPONDING - TO THE IMPLEMENTATION-DEFINED SIGNIFICANCE-WIDTH - (ALLOWING FOR OPTIONAL TRAILING ZEROS IN THE - SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) *** - - END TEST. - -END PROGRAM 13 diff --git a/bwbtest/NBS2/P014.BAS b/bwbtest/NBS2/P014.BAS deleted file mode 100644 index a139b50..0000000 --- a/bwbtest/NBS2/P014.BAS +++ /dev/null @@ -1,101 +0,0 @@ -10 PRINT "PROGRAM FILE 14: PRINTING AND ASSIGNING NUMERIC VALUES" -15 PRINT " NEAR TO THE MAXIMUM AND MINIMUM MAGNITUDE." -20 PRINT " ANSI STANDARD 5.4, 9.4, 12.4" -30 PRINT -40 PRINT "SECTION 14.1: PRINTING NR3 CONSTANTS OF SIX SIGNIFICANT" -50 PRINT " DIGITS WHICH ARE NEAR THE MAGNITUDE OF:" -60 PRINT " 1E+38 OR 1E-38." -90 PRINT -100 PRINT " BEGIN TEST." -110 PRINT -120 PRINT "SOURCE","OUTPUT","ACTUAL" -130 PRINT "CONSTANT","SHOULD BE","OUTPUT" -140 PRINT -190 PRINT "-9.99999E34 ","-9.99999E+34 ",-9.99999E34 -200 PRINT "+9.99999E+35 "," 9.99999E+35 ",+9.99999E+35 -210 PRINT "-9.99999E+36 ","-9.99999E+36 ",-9.99999E+36 -220 PRINT " 9.99999E37 "," 9.99999E+37 ",9.99999E37 -230 PRINT "-1.00001E-36","-1.00001E-36",-1.00001E-36 -240 PRINT " 1.00001E-37"," 1.00001E-37",1.00001E-37 -250 PRINT "+1.00001E-38"," 1.00001E-38",+1.00001E-38 -260 PRINT -270 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" -280 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRIALING ZEROS IN" -290 PRINT " THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***" -300 PRINT -480 PRINT " END TEST." -490 PRINT -500 PRINT "SECTION 14.2: ASSIGNING NR3 CONSTANTS OF SIX SIGNIFICANT" -510 PRINT " DIGITS WHICH ARE NEAR THE MAGNITUDE OF:" -520 PRINT " 1E+38 OR 1E-38." -530 PRINT -560 PRINT " BEGIN TEST." -570 PRINT -580 PRINT "ASSIGNED","OUTPUT","ACTUAL" -590 PRINT "CONSTANT","SHOULD BE","OUTPUT" -600 PRINT -610 LET A=-1.00001E-36 -620 LET B=1.00001E-37 -630 LET C=+1.00001E-38 -650 LET E=-9.99999E34 -660 LET F=+9.99999E+35 -670 LET G=-9.99999E+36 -680 LET H=9.99999E37 -690 PRINT "-1.00001E-36","-1.00001E-36",A -700 PRINT " 1.00001E-37"," 1.00001E-37",B -710 PRINT "+1.00001E-38"," 1.00001E-38",C -730 PRINT "-9.99999E34 ","-9.99999E+34",E -740 PRINT "+9.99999E+35"," 9.99999E+35",F -750 PRINT "-9.99999E+36","-9.99999E+36",G -760 PRINT " 9.99999E37"," 9.99999E+37",H -770 PRINT -775 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" -780 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN" -790 PRINT " THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***" -800 PRINT -810 PRINT " END TEST." -1130 PRINT -1140 PRINT "SECTION 14.3: NR3 NUMERIC CONSTANTS AT EXTREME" -1145 PRINT " MAGNITUDES AS PRINT ITEMS." -1150 PRINT -1160 PRINT " BEGIN TEST." -1170 PRINT -1180 PRINT "SOURCE","OUTPUT","ACTUAL" -1190 PRINT "CONSTANT","SHOULD BE","OUTPUT" -1200 PRINT -1210 PRINT "+1E38"," 1.E+38",+1E38 -1220 PRINT " 1E-38"," 1.E-38",1E-38 -1230 PRINT "-1E+38","-1.E+38",-1E+38 -1240 PRINT "-1E-38","-1.E-38",-1E-38 -1250 PRINT -1260 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" -1270 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN" -1280 PRINT " THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***" -1290 PRINT -1300 PRINT " END TEST." -1310 PRINT -1320 PRINT "SECTION 14.4: NR3 NUMERIC VARIABLES AT EXTREME" -1325 PRINT " MAGNITUDES AS PRINT ITEMS." -1330 PRINT -1340 PRINT " BEGIN TEST." -1350 PRINT -1360 PRINT "ASSIGNED","OUTPUT","ACTUAL" -1370 PRINT "CONSTANT","SHOULD BE","OUTPUT" -1380 PRINT -1390 LET A=+1E+38 -1400 LET B=1E-38 -1410 LET C=-1E38 -1420 LET D=-1E-38 -1430 PRINT "+1E+38"," 1.E+38",A -1440 PRINT " 1E-38"," 1.E-38",B -1450 PRINT "-1E38","-1.E+38",C -1460 PRINT "-1E-38","-1.E-38",D -1470 PRINT -1480 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" -1490 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN" -1500 PRINT " THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***" -1510 PRINT -1520 PRINT " END TEST." -1530 PRINT -1540 PRINT "END PROGRAM 14" -1550 END diff --git a/bwbtest/NBS2/P014.run b/bwbtest/NBS2/P014.run deleted file mode 100644 index 1f3d89a..0000000 --- a/bwbtest/NBS2/P014.run +++ /dev/null @@ -1,89 +0,0 @@ -PROGRAM FILE 14: PRINTING AND ASSIGNING NUMERIC VALUES - NEAR TO THE MAXIMUM AND MINIMUM MAGNITUDE. - ANSI STANDARD 5.4, 9.4, 12.4 - -SECTION 14.1: PRINTING NR3 CONSTANTS OF SIX SIGNIFICANT - DIGITS WHICH ARE NEAR THE MAGNITUDE OF: - 1E+38 OR 1E-38. - - BEGIN TEST. - -SOURCE OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - --9.99999E34 -9.99999E+34 -9.99999E+34 -+9.99999E+35 9.99999E+35 9.99999E+35 --9.99999E+36 -9.99999E+36 -9.99999E+36 - 9.99999E37 9.99999E+37 9.99999E+37 --1.00001E-36 -1.00001E-36 -1.00001E-36 - 1.00001E-37 1.00001E-37 1.00001E-37 -+1.00001E-38 1.00001E-38 1.00001E-38 - -*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT - SHOULD BE (ALLOWING FOR OPTIONAL TRIALING ZEROS IN - THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) *** - - END TEST. - -SECTION 14.2: ASSIGNING NR3 CONSTANTS OF SIX SIGNIFICANT - DIGITS WHICH ARE NEAR THE MAGNITUDE OF: - 1E+38 OR 1E-38. - - BEGIN TEST. - -ASSIGNED OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - --1.00001E-36 -1.00001E-36 -1.00001E-36 - 1.00001E-37 1.00001E-37 1.00001E-37 -+1.00001E-38 1.00001E-38 1.00001E-38 --9.99999E34 -9.99999E+34 -9.99999E+34 -+9.99999E+35 9.99999E+35 9.99999E+35 --9.99999E+36 -9.99999E+36 -9.99999E+36 - 9.99999E37 9.99999E+37 9.99999E+37 - -*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT - SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN - THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) *** - - END TEST. - -SECTION 14.3: NR3 NUMERIC CONSTANTS AT EXTREME - MAGNITUDES AS PRINT ITEMS. - - BEGIN TEST. - -SOURCE OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - -+1E38 1.E+38 1.E+38 - 1E-38 1.E-38 1.E-38 --1E+38 -1.E+38 -1.E+38 --1E-38 -1.E-38 -1.E-38 - -*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT - SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN - THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) *** - - END TEST. - -SECTION 14.4: NR3 NUMERIC VARIABLES AT EXTREME - MAGNITUDES AS PRINT ITEMS. - - BEGIN TEST. - -ASSIGNED OUTPUT ACTUAL -CONSTANT SHOULD BE OUTPUT - -+1E+38 1.E+38 1.E+38 - 1E-38 1.E-38 1.E-38 --1E38 -1.E+38 -1.E+38 --1E-38 -1.E-38 -1.E-38 - -*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT - SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN - THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) *** - - END TEST. - -END PROGRAM 14 diff --git a/bwbtest/NBS2/P015.BAS b/bwbtest/NBS2/P015.BAS deleted file mode 100644 index 857467a..0000000 --- a/bwbtest/NBS2/P015.BAS +++ /dev/null @@ -1,96 +0,0 @@ -10 PRINT "PROGRAM FILE 15: THE REM AND GOTO STATEMENTS." -20 PRINT " ANSI STANDARD 18.2, 18.4, 10.2, 10.4" -30 PRINT -40 PRINT "SECTION 15.1: THE REM-STATEMENT - FOR PROGRAM COMMENTS." -50 PRINT -60 PRINT " BEGIN TEST." -80 REM THIS SECTION TESTS THE REM-STATEMENT. THE MINIMAL BASIC -90 REM CHARACTER SET OF ASCII CHARACTERS IS GIVEN BELOW. -100 REM -110 REM ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456780 -120 REM ! "#$%&'()*+,-./:;<=>?^_ -130 REM -140 REM THE PROGRAM FLOW SHOULD NOT BE ALTERED BY REM STATEMENTS. -160 PRINT "*** REM TEST PASSED IF THESE ARE THE ONLY TWO LINES " -162 REM BETWEEN TWO PRINTS HAS NO EFFECT -165 PRINT " PRINTED BETWEEN 'BEGIN TEST.' AND 'END TEST.' ***" -170 REM NOR DOES A REM FOLLOWING LAST PRINT -180 PRINT " END TEST." -190 PRINT -200 PRINT "SECTION 15.2: TEST OPTIONAL SPELLING OF GOTO AND TRANSFER TO" -210 PRINT " REM-STATEMENT." -220 PRINT -230 PRINT " BEGIN TEST." -240 PRINT -250 PRINT "IF 1 FOLLOWS THIS LINE, TRANSFER USING 'GOTO' PERFORMED" -260 GOTO 430 -270 PRINT " ERROR: TRANSFER FROM LINE 260 TO 430 NOT PERFORMED" -280 LET M=3 -290 PRINT TAB(67);M -300 PRINT "IF 4 FOLLOWS THIS LINE, TRANSFER TO REM-STATEMENT PERFORMED" -310 GO TO 600 -320 PRINT " ERROR: TRANSFER FROM LINE 310 TO 600 NOT PERFORMED" -330 LET M=7 -340 PRINT TAB(67);M -350 PRINT "IF 8 FOLLOWS THESE TWO LINES, FORWARD TRANSFER PERFORMED," -355 PRINT " WITH LEADING ZERO IN LINE NUMBER OF THE GOTO" -360 GO TO 0480 -370 PRINT " ERROR: TRANSFER FROM LINE 360 TO 480 NOT PERFORMED" -380 LET M=2 -390 PRINT TAB(67);M -400 PRINT "IF 3 FOLLOWS THIS LINE, TRANSFER USING 'GO TO' PERFORMED" -410 GO TO 280 -420 PRINT " ERROR: TRANSFER FROM LINE 410 TO 280 NOT PERFORMED" -430 LET M=1 -440 PRINT TAB(67);M -450 PRINT "IF 2 FOLLOWS THIS LINE, TRANSFER USING 'GO TO' PERFORMED" -460 GO TO 380 -470 PRINT " ERROR: TRANSFER FROM LINE 460 TO 380 NOT PERFORMED" -480 LET M=8 -490 PRINT TAB(67);M -495 PRINT -500 PRINT "THE NEXT OUTPUT MUST BE THE '*** TEST PASSED...'" -510 PRINT "MESSAGE FOR TEST TO PASS." -515 PRINT -520 GO TO 710 -530 PRINT " ERROR: TRANSFER FROM LINE 520 TO 710 NOT PERFORMED" -540 LET M=6 -550 PRINT TAB(67);M -560 PRINT "IF 7 FOLLOWS THIS LINE, BACKWARD TRANSFER PERFORMED" -570 GO TO 330 -580 PRINT " ERROR: TRANSFER FROM LINE 570 TO 330 NOT PERFORMED" -590 REM -600 REM TEST GOTO TRANSFERRING TO REM STATEMENT. -610 LET M=4 -620 PRINT TAB(67);M -630 PRINT "IF 5 FOLLOWS THIS LINE, FORWARD TRANSFER PERFORMED" -640 GO TO 660 -650 PRINT " ERROR: TRANSFER FROM LINE 640 TO 660 NOT PERFORMED" -660 LET M=5 -670 PRINT TAB(67);M -680 PRINT "IF 6 FOLLOWS THIS LINE, BACKWARD TRANSFER PERFORMED" -690 GO TO 540 -700 PRINT " ERROR: TRANSFER FROM LINE 690 TO 540 NOT PERFORMED" -710 PRINT "*** TEST PASSED IF THE OUTPUT ABOVE IS ORDERED 1,2...,8 " -720 PRINT " AND NO ERROR MESSAGES HAVE APPEARED ***" -730 PRINT -740 PRINT " END TEST." -760 PRINT -770 PRINT "SECTION 15.3: GOTO-STATEMENT TRANSFERS TO ANOTHER GOTO." -780 PRINT -790 PRINT " BEGIN TEST." -800 PRINT -810 GOTO 880 -820 PRINT " ERROR: TRANSFER FROM LINE 810 TO 880 NOT PERFORMED" -830 PRINT "*** TEST PASSED IF THERE ARE NO ERROR MESSAGES ***" -840 GOTO 900 -850 PRINT " ERROR: TRANSFER FROM LINE 840 TO 900 NOT PERFORMED" -860 GOTO 830 -870 PRINT " ERROR: TRANSFER FROM LINE 860 TO 830 NOT PERFORMED" -880 GOTO 860 -890 PRINT " ERROR: TRANSFER FROM LINE 880 TO 860 NOT PERFORMED" -900 PRINT -910 PRINT " END TEST." -920 PRINT -930 PRINT "END PROGRAM 15" -940 END diff --git a/bwbtest/NBS2/P015.run b/bwbtest/NBS2/P015.run deleted file mode 100644 index 551bbe7..0000000 --- a/bwbtest/NBS2/P015.run +++ /dev/null @@ -1,50 +0,0 @@ -PROGRAM FILE 15: THE REM AND GOTO STATEMENTS. - ANSI STANDARD 18.2, 18.4, 10.2, 10.4 - -SECTION 15.1: THE REM-STATEMENT - FOR PROGRAM COMMENTS. - - BEGIN TEST. -*** REM TEST PASSED IF THESE ARE THE ONLY TWO LINES - PRINTED BETWEEN 'BEGIN TEST.' AND 'END TEST.' *** - END TEST. - -SECTION 15.2: TEST OPTIONAL SPELLING OF GOTO AND TRANSFER TO - REM-STATEMENT. - - BEGIN TEST. - -IF 1 FOLLOWS THIS LINE, TRANSFER USING 'GOTO' PERFORMED - 1 -IF 2 FOLLOWS THIS LINE, TRANSFER USING 'GO TO' PERFORMED - 2 -IF 3 FOLLOWS THIS LINE, TRANSFER USING 'GO TO' PERFORMED - 3 -IF 4 FOLLOWS THIS LINE, TRANSFER TO REM-STATEMENT PERFORMED - 4 -IF 5 FOLLOWS THIS LINE, FORWARD TRANSFER PERFORMED - 5 -IF 6 FOLLOWS THIS LINE, BACKWARD TRANSFER PERFORMED - 6 -IF 7 FOLLOWS THIS LINE, BACKWARD TRANSFER PERFORMED - 7 -IF 8 FOLLOWS THESE TWO LINES, FORWARD TRANSFER PERFORMED, - WITH LEADING ZERO IN LINE NUMBER OF THE GOTO - 8 - -THE NEXT OUTPUT MUST BE THE '*** TEST PASSED...' -MESSAGE FOR TEST TO PASS. - -*** TEST PASSED IF THE OUTPUT ABOVE IS ORDERED 1,2...,8 - AND NO ERROR MESSAGES HAVE APPEARED *** - - END TEST. - -SECTION 15.3: GOTO-STATEMENT TRANSFERS TO ANOTHER GOTO. - - BEGIN TEST. - -*** TEST PASSED IF THERE ARE NO ERROR MESSAGES *** - - END TEST. - -END PROGRAM 15 diff --git a/bwbtest/NBS2/P016.BAS b/bwbtest/NBS2/P016.BAS deleted file mode 100644 index 7ca224b..0000000 --- a/bwbtest/NBS2/P016.BAS +++ /dev/null @@ -1,32 +0,0 @@ -10 PRINT "PROGRAM FILE 16: ERROR - TRANSFER TO A NON-EXISTING LINE" -15 PRINT " NUMBER USING THE GOTO-STATEMENT." -20 PRINT " ANSI STANDARD 10.4" -30 PRINT -40 PRINT "SECTION 16.1: ERROR - TRANSFER TO A NON-EXISTING LINE" -50 PRINT " NUMBER USING THE GOTO-STATEMENT." -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 LET A$="LINE 180." -240 GOTO 275 -250 PRINT "IF THIS MESSAGE APPEARS 'GOTO 275' WAS NOT EXECUTED." -260 GOTO 290 -270 LET A$="LINE 270." -280 PRINT "'GOTO 275' JUMPED TO ";A$ -290 PRINT -300 PRINT " END TEST." -310 PRINT -320 PRINT "END PROGRAM 16" -330 END diff --git a/bwbtest/NBS2/P016.run b/bwbtest/NBS2/P016.run deleted file mode 100644 index ee55d8a..0000000 --- a/bwbtest/NBS2/P016.run +++ /dev/null @@ -1,23 +0,0 @@ -PROGRAM FILE 16: ERROR - TRANSFER TO A NON-EXISTING LINE - NUMBER USING THE GOTO-STATEMENT. - ANSI STANDARD 10.4 - -SECTION 16.1: ERROR - TRANSFER TO A NON-EXISTING LINE - NUMBER USING THE GOTO-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - - -ERROR in line 240: Undefined line diff --git a/bwbtest/NBS2/P017.BAS b/bwbtest/NBS2/P017.BAS deleted file mode 100644 index c7c84e5..0000000 --- a/bwbtest/NBS2/P017.BAS +++ /dev/null @@ -1,32 +0,0 @@ -10 PRINT "PROGRAM FILE 17: ELEMENTARY USE OF GOSUB AND RETURN." -20 PRINT " ANSI STANDARD 10.2, 10.4" -30 PRINT -40 PRINT "SECTION 17.1: ELEMENTARY USE OF GOSUB AND RETURN." -50 PRINT -52 PRINT "THIS PROGRAM TESTS THAT THE SUBROUTINE MECHANISM EXISTS" -54 PRINT "AND THAT A SUBROUTINE CAN BE INVOKED FROM SEVERAL" -56 PRINT "PLACES IN THE MAIN LINE OF CONTROL." -58 PRINT -60 PRINT " BEGIN TEST." -70 PRINT -80 PRINT "IF THE NEXT MESSAGE '*** GOSUB TEST PASSED ***' IS" -90 PRINT "SPELLED CORRECTLY, THE TEST PASSED." -100 PRINT -110 GOSUB 1000 -120 PRINT "GO"; -130 GOSUB 1200 -140 PRINT "UB TE"; -150 GOSUB 1200 -160 PRINT "T PAS"; -170 GOSUB 1200 -180 PRINT "ED ***" -190 PRINT -200 PRINT " END TEST." -210 PRINT -220 PRINT "END PROGRAM 17" -230 STOP -1000 PRINT "*** "; -1010 RETURN -1200 PRINT "S"; -1210 RETURN -1220 END diff --git a/bwbtest/NBS2/P017.run b/bwbtest/NBS2/P017.run deleted file mode 100644 index 92b47de..0000000 --- a/bwbtest/NBS2/P017.run +++ /dev/null @@ -1,21 +0,0 @@ -PROGRAM FILE 17: ELEMENTARY USE OF GOSUB AND RETURN. - ANSI STANDARD 10.2, 10.4 - -SECTION 17.1: ELEMENTARY USE OF GOSUB AND RETURN. - -THIS PROGRAM TESTS THAT THE SUBROUTINE MECHANISM EXISTS -AND THAT A SUBROUTINE CAN BE INVOKED FROM SEVERAL -PLACES IN THE MAIN LINE OF CONTROL. - - BEGIN TEST. - -IF THE NEXT MESSAGE '*** GOSUB TEST PASSED ***' IS -SPELLED CORRECTLY, THE TEST PASSED. - -*** GOSUB TEST PASSED *** - - END TEST. - -END PROGRAM 17 - -Program interrupted at line 230 diff --git a/bwbtest/NBS2/P018.BAS b/bwbtest/NBS2/P018.BAS deleted file mode 100644 index cdbb934..0000000 --- a/bwbtest/NBS2/P018.BAS +++ /dev/null @@ -1,209 +0,0 @@ -10 PRINT "PROGRAM FILE 18: THE IF-THEN STATEMENT WITH STRING OPERANDS." -20 PRINT " ANSI STANDARD 10.2, 10.4" -30 PRINT -40 PRINT "SECTION 18.1: THE IF-THEN STATEMENT WITH STRING OPERANDS." -50 PRINT -60 PRINT "THIS SECTION TESTS THE COMPARISON OF STRING VARIABLES AND" -70 PRINT "CONSTANTS WITH A VARIETY OF VALUES. BOTH RELATIONSHIPS" -80 PRINT "(= AND <>) ARE TESTED FOR EACH PAIR OF VALUES. THE 'V' OR" -90 PRINT "'C' FOLLOWING THE COMPARAND VALUE INDICATES WHETHER IT IS" -100 PRINT "A VARIABLE OR A CONSTANTS." -110 PRINT -120 PRINT "'T' OR 'F' IS PRINTED TO SHOW THE OUTCOME OF THE" -130 PRINT "COMPARISON. FOR INCORRECT COMPARES, AN '*' IS PRINTED" -140 PRINT "NEXT TO THE ERRONEOUS RESULT. WHEN DISPLAYING COMPARAND" -150 PRINT "VALUES, THE UNDERLINE CHARACTER, '_', IS USED TO REPRESENT" -160 PRINT "THE SPACE CHARACTER (THUS A DISPLAYED 'ONE_BLANK' " -170 PRINT "INDICATES AN INTERNAL VALUE OF 'ONE BLANK')." -171 PRINT "ALSO, THE NULL STRING (LENGTH OF ZERO) IS DENOTED BY THE" -172 PRINT "LABEL '(NULL STRING)'." -180 PRINT -190 PRINT "CHARACTER STRINGS SHOULD TEST EQUAL IF AND ONLY IF THE" -200 PRINT "STRINGS ARE EQUAL IN LENGTH AND CONTAIN IDENTICAL SEQUENCES" -210 PRINT "OF CHARACTERS." -220 PRINT -230 PRINT " BEGIN TEST." -240 PRINT -250 PRINT "LEFT";TAB(22);": RIGHT" -260 PRINT "COMPARAND";TAB(19);"V/C: COMPARAND";TAB(42);"V/C"; -270 PRINT TAB(47);"=";TAB(51);"<>";TAB(55);"RESULT" -275 PRINT -280 LET R$="PASSED" -300 LET T$=" ABC" -310 LET V$="__ABC" -320 GOSUB 2500 -330 LET T$="ABC" -340 LET V$="ABC" -350 GOSUB 2000 -360 LET T$="ABC " -370 LET V$="ABC_" -380 GOSUB 2500 -390 LET T$=" ABC " -400 LET V$="___ABC__" -410 GOSUB 2500 -420 LET T$="" -430 LET V$="(NULL STRING)" -440 GOSUB 2500 -450 LET T$="ABCD" -460 LET V$="ABCD" -470 GOSUB 2500 -500 LET T$=" 0X9" -510 LET V$="___0X9" -520 GOSUB 3500 -530 LET T$="0X9" -540 LET V$="0X9" -550 GOSUB 3500 -560 LET T$="0X9 " -570 LET V$="0X9__" -580 GOSUB 3500 -590 LET T$=" 0X9 " -600 LET V$="_0X9__" -610 GOSUB 3000 -620 LET T$=" " -630 LET V$="__" -640 LET U$=" " -650 LET W$="____" -660 GOSUB 4500 -670 LET T$=" " -680 LET V$="_" -690 LET U$="" -700 LET W$="(NULL STRING)" -710 GOSUB 4500 -720 LET T$="18 CHARACTERS LONG" -730 LET V$="18_CHARACTERS_LONG" -740 LET U$="18 CHARACTERS LONG" -750 LET W$="18_CHARACTERS_LONG" -760 GOSUB 4000 -770 LET U$="18 CHARACTERS LONK" -780 LET W$="18_CHARACTERS_LONK" -790 GOSUB 4500 -800 LET T$="!#$%&'()0=+*<>?" -810 LET V$="!#$%&'()0=+*<>?" -820 LET U$="!#$%&'()0=+*<>?" -830 LET W$="!#$%&'()0=+*<>?" -840 GOSUB 4000 -850 LET T$="" -860 LET V$="(NULL STRING)" -870 LET U$="" -880 LET W$="(NULL STRING)" -890 GOSUB 4000 -900 LET T$="UVWXYZ " -910 LET V$="UVWXYZ_" -920 LET U$="UVWXYZ " -930 LET W$="UVWXYZ__" -940 GOSUB 4500 -1900 PRINT -1910 PRINT "*** TEST ";R$;" ***" -1915 PRINT -1920 PRINT " END TEST." -1925 PRINT -1930 PRINT "END PROGRAM 18" -1940 STOP -2000 REM SUBROUTINE TO TEST CONSTANT = VARIABLE -2005 LET B$="T*" -2010 LET A$="T" -2020 LET L$=" OK " -2030 IF "ABC"<>T$ THEN 2060 -2040 LET B$="F" -2050 GOTO 2080 -2060 LET R$="FAILED" -2070 LET L$="FAILED" -2080 IF "ABC"=T$ THEN 2120 -2090 LET R$="FAILED" -2100 LET L$="FAILED" -2110 LET A$="F*" -2120 GOSUB 2900 -2125 GOSUB 5000 -2130 RETURN -2500 REM SUBROUTINE TO TEST CONSTANT <> VARIABLE -2505 LET A$="T*" -2510 LET B$="T" -2520 LET L$=" OK " -2530 IF "ABC"=T$ THEN 2560 -2540 LET A$="F" -2550 GOTO 2580 -2560 LET R$="FAILED" -2570 LET L$="FAILED" -2580 IF "ABC"<>T$ THEN 2620 -2590 LET R$="FAILED" -2600 LET L$="FAILED" -2610 LET B$="F*" -2620 GOSUB 2900 -2625 GOSUB 5000 -2630 RETURN -2900 REM SUBROUTINE TO PRINT COMPARANDS FOR CONSTANT:VARIABLE -2910 PRINT "ABC";TAB(20);"C : ";V$;TAB(43);"V"; -2920 RETURN -3000 REM SUBROUTINE TO TEST VARIABLE = CONSTANT -3005 LET B$="T*" -3010 LET A$="T" -3020 LET L$=" OK " -3030 IF T$<>" 0X9 " THEN 3060 -3040 LET B$="F" -3050 GOTO 3080 -3060 LET R$="FAILED" -3070 LET L$="FAILED" -3080 IF T$=" 0X9 " THEN 3120 -3090 LET R$="FAILED" -3100 LET L$="FAILED" -3110 LET A$="F*" -3120 GOSUB 3900 -3125 GOSUB 5000 -3130 RETURN -3500 REM SUBROUTINE TO TEST VARIABLE <> CONSTANT -3505 LET A$="T*" -3510 LET B$="T" -3520 LET L$=" OK " -3530 IF T$=" 0X9 " THEN 3560 -3540 LET A$="F" -3550 GOTO 3580 -3560 LET R$="FAILED" -3570 LET L$="FAILED" -3580 IF T$<>" 0X9 " THEN 3620 -3590 LET R$="FAILED" -3600 LET L$="FAILED" -3610 LET B$="F*" -3620 GOSUB 3900 -3625 GOSUB 5000 -3630 RETURN -3900 REM SUBROUTINE TO PRINT COMPARANDS FOR VARIABLE:CONSTANT -3910 PRINT V$;TAB(20);"V : _0X9__";TAB(43);"C"; -3920 RETURN -4000 REM SUBROUTINE TO TEST VARIABLE = VARIABLE -4005 LET B$="T*" -4010 LET A$="T" -4020 LET L$=" OK " -4030 IF T$<>U$ THEN 4060 -4040 LET B$="F" -4050 GOTO 4080 -4060 LET R$="FAILED" -4070 LET L$="FAILED" -4080 IF T$=U$ THEN 4120 -4090 LET R$="FAILED" -4100 LET L$="FAILED" -4120 GOSUB 4900 -4125 GOSUB 5000 -4130 RETURN -4500 REM SUBROUTINE TO TEST VARIABLE <> VARIABLE -4505 LET A$="T*" -4510 LET B$="T" -4520 LET L$=" OK " -4530 IF T$=U$ THEN 4560 -4540 LET A$="F" -4550 GOTO 4580 -4560 LET R$="FAILED" -4570 LET L$="FAILED" -4580 IF T$<>U$ THEN 4620 -4590 LET R$="FAILED" -4600 LET L$="FAILED" -4610 LET B$="F*" -4620 GOSUB 4900 -4625 GOSUB 5000 -4630 RETURN -4900 REM SUBROUTINE TO PRINT COMPARANDS FOR VARIABLE:VARIABLE -4910 PRINT V$;TAB(20);"V : ";W$;TAB(43);"V"; -4920 RETURN -5000 REM SUBROUTINE TO PRINT RESULTS OF COMPARE -5010 PRINT TAB(47);A$;TAB(51);B$;TAB(55);L$ -5020 RETURN -9000 END diff --git a/bwbtest/NBS2/P018.run b/bwbtest/NBS2/P018.run deleted file mode 100644 index 8a1a7c2..0000000 --- a/bwbtest/NBS2/P018.run +++ /dev/null @@ -1,54 +0,0 @@ -PROGRAM FILE 18: THE IF-THEN STATEMENT WITH STRING OPERANDS. - ANSI STANDARD 10.2, 10.4 - -SECTION 18.1: THE IF-THEN STATEMENT WITH STRING OPERANDS. - -THIS SECTION TESTS THE COMPARISON OF STRING VARIABLES AND -CONSTANTS WITH A VARIETY OF VALUES. BOTH RELATIONSHIPS -(= AND <>) ARE TESTED FOR EACH PAIR OF VALUES. THE 'V' OR -'C' FOLLOWING THE COMPARAND VALUE INDICATES WHETHER IT IS -A VARIABLE OR A CONSTANTS. - -'T' OR 'F' IS PRINTED TO SHOW THE OUTCOME OF THE -COMPARISON. FOR INCORRECT COMPARES, AN '*' IS PRINTED -NEXT TO THE ERRONEOUS RESULT. WHEN DISPLAYING COMPARAND -VALUES, THE UNDERLINE CHARACTER, '_', IS USED TO REPRESENT -THE SPACE CHARACTER (THUS A DISPLAYED 'ONE_BLANK' -INDICATES AN INTERNAL VALUE OF 'ONE BLANK'). -ALSO, THE NULL STRING (LENGTH OF ZERO) IS DENOTED BY THE -LABEL '(NULL STRING)'. - -CHARACTER STRINGS SHOULD TEST EQUAL IF AND ONLY IF THE -STRINGS ARE EQUAL IN LENGTH AND CONTAIN IDENTICAL SEQUENCES -OF CHARACTERS. - - BEGIN TEST. - -LEFT : RIGHT -COMPARAND V/C: COMPARAND V/C = <> RESULT - -ABC C : __ABC V F T OK -ABC C : ABC V T F OK -ABC C : ABC_ V F T OK -ABC C : ___ABC__ V F T OK -ABC C : (NULL STRING) V F T OK -ABC C : ABCD V F T OK -___0X9 V : _0X9__ C F T OK -0X9 V : _0X9__ C F T OK -0X9__ V : _0X9__ C F T OK -_0X9__ V : _0X9__ C T F OK -__ V : ____ V F T OK -_ V : (NULL STRING) V F T OK -18_CHARACTERS_LONG V : 18_CHARACTERS_LONG V T F OK -18_CHARACTERS_LONG V : 18_CHARACTERS_LONK V F T OK -!#$%&'()0=+*<>? V : !#$%&'()0=+*<>? V T F OK -(NULL STRING) V : (NULL STRING) V T F OK -UVWXYZ_ V : UVWXYZ__ V F T OK - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 18 - -Program interrupted at line 1940 diff --git a/bwbtest/NBS2/P019.BAS b/bwbtest/NBS2/P019.BAS deleted file mode 100644 index 588b997..0000000 --- a/bwbtest/NBS2/P019.BAS +++ /dev/null @@ -1,209 +0,0 @@ -10 PRINT "PROGRAM FILE 19: THE IF-THEN STATEMENT WITH NUMERIC OPERANDS" -20 PRINT " ANSI STANDARD 10.2, 10.4" -30 PRINT -40 PRINT "SECTION 19.1: THE IF-THEN STATEMENT WITH NUMERIC OPERANDS." -50 PRINT -60 PRINT "THIS SECTION TESTS THE COMPARISON OF NUMERIC VARIABLES AND" -70 PRINT "CONSTANTS WITH A VARIETY OF NUMERIC VALUES. ALL RELATIONSHIPS" -80 PRINT "(=, <, >, <>, <=, >=) ARE TESTED FOR EACH PAIR OF VALUES." -85 PRINT "THE 'V' OR 'C' FOLLOWING THE COMPARAND VALUE INDICATES" -90 PRINT "WHETHER IT IS A VARIABLE OR A CONSTANT." -95 PRINT -100 PRINT "'T' OR 'F' IS PRINTED TO SHOW THE OUTCOME OF THE" -105 PRINT "COMPARISON. FOR INCORRECT COMPARES, AN '*' IS PRINTED" -110 PRINT "NEXT TO THE ERRONEOUS RESULT." -115 PRINT -120 PRINT " BEGIN TEST." -125 PRINT -130 PRINT "LEFT RIGHT "; -135 PRINT "= < > <> <= >= RESULT" -140 PRINT "COMPARAND COMPARAND " -145 REM TEST VARIABLE:CONSTANT -150 PRINT -155 LET R$="PASSED" -160 LET A0=3.14159 -170 GOSUB 1000 -180 GOSUB 4000 -190 LET A0=5.4321E-22 -200 GOSUB 2000 -210 GOSUB 4000 -220 LET A0=3.14159E-26 -230 GOSUB 3000 -240 GOSUB 4000 -250 LET A0=-00.0E3 -260 GOSUB 3000 -270 GOSUB 4000 -280 LET A0=-3.14159E-26 -290 GOSUB 3000 -300 GOSUB 4000 -310 LET A0=-3.14159 -320 GOSUB 3000 -330 GOSUB 4000 -335 REM NOW DO CONSTANT:VARIABLE -340 LET B0=-98765500000 -350 GOSUB 1000 -360 GOSUB 4200 -370 LET B0=-98765400000 -380 GOSUB 2000 -390 GOSUB 4200 -400 LET B0=-3 -410 GOSUB 3000 -420 GOSUB 4200 -430 LET B0=1.23456E-30 -440 GOSUB 3000 -450 GOSUB 4200 -460 LET B0=456.789 -470 GOSUB 3000 -480 GOSUB 4200 -490 REM TEST CONSTANT:CONSTANT -500 GOSUB 1000 -510 IF -1.23456E-15 = -.011E-13 THEN 530 -520 LET A$=G$ -530 IF -1.23456E-15 < -.011E-13 THEN 550 -540 LET B$=H$ -550 IF -1.23456E-15 > -.011E-13 THEN 570 -560 LET C$=I$ -570 IF -1.23456E-15 <> -.011E-13 THEN 590 -580 LET D$=J$ -590 IF -1.23456E-15 <= -.011E-13 THEN 610 -600 LET E$=K$ -610 IF -1.23456E-15 >= -.011E-13 THEN 630 -620 LET F$=L$ -630 REM COMPARISON FINISHED -640 PRINT "-1.23456E-15 C";TAB(18);": -.011E-13 C"; -650 GOSUB 5000 -660 REM TEST VARIABLE:VARIABLE -670 LET A0=-0 -680 LET B0=+0 -690 GOSUB 2000 -700 GOSUB 4400 -710 LET A0=-3E36 -720 LET B0=-3.001E36 -730 GOSUB 3000 -740 GOSUB 4400 -750 LET A0=0E22 -760 LET B0=1E-38 -770 GOSUB 1000 -780 GOSUB 4400 -900 PRINT -910 PRINT "*** TEST ";R$;" ***" -920 PRINT -930 PRINT " END TEST." -940 PRINT -950 PRINT "END PROGRAM 19" -960 STOP -1000 REM SUBROUTINE TO INITIALIZE FOR CASE OF < -1010 LET A$="T*" -1020 LET B$="T" -1030 LET C$="T*" -1040 LET D$="T" -1050 LET E$="T" -1060 LET F$="T*" -1070 LET G$="F" -1080 LET H$="F*" -1090 LET I$="F" -1100 LET J$="F*" -1110 LET K$="F*" -1120 LET L$="F" -1140 RETURN -2000 REM SUBROUTINE TO INITIALIZE FOR CASE OF = -2010 LET A$="T" -2020 LET B$="T*" -2030 LET C$="T*" -2040 LET D$="T*" -2050 LET E$="T" -2060 LET F$="T" -2070 LET G$="F*" -2080 LET H$="F" -2090 LET I$="F" -2100 LET J$="F" -2110 LET K$="F*" -2120 LET L$="F*" -2140 RETURN -3000 REM SUBROUTINE TO INITIALIZE FOR CASE OF > -3010 LET A$="T*" -3020 LET B$="T*" -3030 LET C$="T" -3040 LET D$="T" -3050 LET E$="T*" -3060 LET F$="T" -3070 LET G$="F" -3080 LET H$="F" -3090 LET I$="F*" -3100 LET J$="F*" -3110 LET K$="F" -3120 LET L$="F*" -3140 RETURN -4000 REM SUBROUTINE TO TEST CONSTANT:VARIABLE -4010 IF +5.4321E-22 = A0 THEN 4030 -4020 LET A$=G$ -4030 IF +5.4321E-22 < A0 THEN 4050 -4040 LET B$=H$ -4050 IF +5.4321E-22 > A0 THEN 4070 -4060 LET C$=I$ -4070 IF +5.4321E-22 <> A0 THEN 4090 -4080 LET D$=J$ -4090 IF +5.4321E-22 <= A0 THEN 4110 -4100 LET E$=K$ -4110 IF +5.4321E-22 >= A0 THEN 4130 -4120 LET F$=L$ -4130 REM COMPARISONS FINISHED -4140 PRINT "+5.4321E-22 C";TAB(18);": ";A0;"V"; -4150 GOSUB 5000 -4160 RETURN -4200 REM SUBROUTINE TO TEST VARIABLE:CONSTANT -4210 IF B0 = -98765400000 THEN 4230 -4220 LET A$=G$ -4230 IF B0 < -98765400000 THEN 4250 -4240 LET B$=H$ -4250 IF B0 > -98765400000 THEN 4270 -4260 LET C$=I$ -4270 IF B0 <> -98765400000 THEN 4290 -4280 LET D$=J$ -4290 IF B0 <= -98765400000 THEN 4310 -4300 LET E$=K$ -4310 IF B0 >= -98765400000 THEN 4330 -4320 LET F$=L$ -4330 REM COMPARISONS FINISHED -4340 PRINT B0;"V";TAB(18);": -98765400000 C"; -4350 GOSUB 5000 -4360 RETURN -4400 REM SUBROUTINE TO TEST VARIABLE:VARIABLE -4410 IF A0 = B0 THEN 4430 -4420 LET A$=G$ -4430 IF A0 < B0 THEN 4450 -4440 LET B$=H$ -4450 IF A0 > B0 THEN 4470 -4460 LET C$=I$ -4470 IF A0 <> B0 THEN 4490 -4480 LET D$=J$ -4490 IF A0 <= B0 THEN 4510 -4500 LET E$=K$ -4510 IF A0 >= B0 THEN 4530 -4520 LET F$=L$ -4530 REM COMPARISONS FINISHED -4540 PRINT A0;"V";TAB(18);": ";B0;"V"; -4550 GOSUB 5000 -4560 RETURN -5000 REM SUBROUTINE TO CHECK OUT AND PRINT RESULTS OF COMPARE -5010 LET N$=" OK " -5020 IF A$="T*" THEN 5200 -5025 IF A$="F*" THEN 5200 -5030 IF B$="T*" THEN 5200 -5035 IF B$="F*" THEN 5200 -5040 IF C$="T*" THEN 5200 -5045 IF C$="F*" THEN 5200 -5050 IF D$="T*" THEN 5200 -5055 IF D$="F*" THEN 5200 -5060 IF E$="T*" THEN 5200 -5065 IF E$="F*" THEN 5200 -5070 IF F$="T*" THEN 5200 -5075 IF F$="F*" THEN 5200 -5080 GOTO 5210 -5200 LET N$="FAILED" -5205 LET R$="FAILED" -5210 REM RESULTS CHECKED -5510 PRINT TAB(38);A$;TAB(42);B$;TAB(46);C$;TAB(50);D$; -5520 PRINT TAB(54);E$;TAB(58);F$;TAB(62);N$ -5530 RETURN -9999 END diff --git a/bwbtest/NBS2/P019.run b/bwbtest/NBS2/P019.run deleted file mode 100644 index 43d7129..0000000 --- a/bwbtest/NBS2/P019.run +++ /dev/null @@ -1,43 +0,0 @@ -PROGRAM FILE 19: THE IF-THEN STATEMENT WITH NUMERIC OPERANDS - ANSI STANDARD 10.2, 10.4 - -SECTION 19.1: THE IF-THEN STATEMENT WITH NUMERIC OPERANDS. - -THIS SECTION TESTS THE COMPARISON OF NUMERIC VARIABLES AND -CONSTANTS WITH A VARIETY OF NUMERIC VALUES. ALL RELATIONSHIPS -(=, <, >, <>, <=, >=) ARE TESTED FOR EACH PAIR OF VALUES. -THE 'V' OR 'C' FOLLOWING THE COMPARAND VALUE INDICATES -WHETHER IT IS A VARIABLE OR A CONSTANT. - -'T' OR 'F' IS PRINTED TO SHOW THE OUTCOME OF THE -COMPARISON. FOR INCORRECT COMPARES, AN '*' IS PRINTED -NEXT TO THE ERRONEOUS RESULT. - - BEGIN TEST. - -LEFT RIGHT = < > <> <= >= RESULT -COMPARAND COMPARAND - -+5.4321E-22 C : 3.14159 V F T F T T F OK -+5.4321E-22 C : 5.4321E-22 V T F F F T T OK -+5.4321E-22 C : 3.14159E-26 V F F T T F T OK -+5.4321E-22 C : 0 V F F T T F T OK -+5.4321E-22 C : -3.14159E-26 V F F T T F T OK -+5.4321E-22 C : -3.14159 V F F T T F T OK --9.87655E+10 V : -98765400000 C F T F T T F OK --9.87654E+10 V : -98765400000 C T F F F T T OK --3 V : -98765400000 C F F T T F T OK - 1.23456E-30 V : -98765400000 C F F T T F T OK - 456.789 V : -98765400000 C F F T T F T OK --1.23456E-15 C : -.011E-13 C F T F T T F OK - 0 V : 0 V T F F F T T OK --3.E+36 V : -3.001E+36 V F F T T F T OK - 0 V : 1.E-38 V F T F T T F OK - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 19 - -Program interrupted at line 960 diff --git a/bwbtest/NBS2/P020.BAS b/bwbtest/NBS2/P020.BAS deleted file mode 100644 index d324202..0000000 --- a/bwbtest/NBS2/P020.BAS +++ /dev/null @@ -1,38 +0,0 @@ -10 PRINT "PROGRAM FILE 20: ERROR - IF-THEN STATEMENT WITH A STRING AND" -20 PRINT " NUMERIC OPERAND." -30 PRINT " ANSI STANDARD 10.2" -40 PRINT -50 PRINT "SECTION 20.1: ERROR - IF-THEN STATEMENT WITH A STRING AND" -60 PRINT " NUMERIC OPERAND." -70 PRINT -80 PRINT "THIS PROGRAM ATTEMPTS TO COMPARE A STRING VARIABLE WITH A" -90 PRINT "NUMERIC VARIABLE IN AN IF-THEN STATEMENT." -100 PRINT -110 PRINT "THIS IS A TEST OF A NON-STANDARD FEATURE OF MINIMAL BASIC." -120 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -130 PRINT -140 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -150 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -160 PRINT " BY THE PROCESSOR, OR" -170 PRINT -180 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -190 PRINT -200 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -210 PRINT "FOR DETAILED CRITERIA." -220 PRINT -230 PRINT " BEGIN TEST." -240 PRINT -250 PRINT "SETTING A$='123' AND X=123" -260 LET A$="123" -270 LET X=123 -280 PRINT "ABOUT TO EXECUTE: IF A$ = X..." -290 PRINT -300 IF A$=X THEN 330 -310 PRINT "IF TESTED FALSE." -320 GOTO 340 -330 PRINT "IF TESTED TRUE." -340 PRINT -350 PRINT " END TEST." -360 PRINT -370 PRINT "END PROGRAM 20" -380 END diff --git a/bwbtest/NBS2/P020.run b/bwbtest/NBS2/P020.run deleted file mode 100644 index cc73dcf..0000000 --- a/bwbtest/NBS2/P020.run +++ /dev/null @@ -1,29 +0,0 @@ -PROGRAM FILE 20: ERROR - IF-THEN STATEMENT WITH A STRING AND - NUMERIC OPERAND. - ANSI STANDARD 10.2 - -SECTION 20.1: ERROR - IF-THEN STATEMENT WITH A STRING AND - NUMERIC OPERAND. - -THIS PROGRAM ATTEMPTS TO COMPARE A STRING VARIABLE WITH A -NUMERIC VARIABLE IN AN IF-THEN STATEMENT. - -THIS IS A TEST OF A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -SETTING A$='123' AND X=123 -ABOUT TO EXECUTE: IF A$ = X... - - -ERROR in line 300: Type mismatch diff --git a/bwbtest/NBS2/P021.BAS b/bwbtest/NBS2/P021.BAS deleted file mode 100644 index 0c691d5..0000000 --- a/bwbtest/NBS2/P021.BAS +++ /dev/null @@ -1,34 +0,0 @@ -10 PRINT "PROGRAM FILE 21: ERROR - TRANSFER TO NON-EXISTING LINE" -15 PRINT " NUMBER USING THE IF-THEN-STATEMENT." -20 PRINT " ANSI STANDARD 10.4" -30 PRINT -40 PRINT "SECTION 21.1: ERROR - TRANSFER TO NON-EXISTING LINE NUMBER" -50 PRINT " USING THE IF-THEN-STATEMENT." -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -230 LET A$="LINE 300." -240 LET A=5 -250 IF A=5 THEN 295 -260 PRINT "IF THIS MESSAGE APPEARS THE IF-THEN-STATEMENT WAS NOT" -270 PRINT "EXECUTED." -280 GOTO 310 -290 LET A$="LINE 290." -300 PRINT "'IF A=5 THEN 295' JUMPED TO ";A$ -310 PRINT -320 PRINT " END TEST." -330 PRINT -340 PRINT "END PROGRAM 21" -350 END diff --git a/bwbtest/NBS2/P021.run b/bwbtest/NBS2/P021.run deleted file mode 100644 index 66e7187..0000000 --- a/bwbtest/NBS2/P021.run +++ /dev/null @@ -1,23 +0,0 @@ -PROGRAM FILE 21: ERROR - TRANSFER TO NON-EXISTING LINE - NUMBER USING THE IF-THEN-STATEMENT. - ANSI STANDARD 10.4 - -SECTION 21.1: ERROR - TRANSFER TO NON-EXISTING LINE NUMBER - USING THE IF-THEN-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - - -ERROR in line 250: Undefined line diff --git a/bwbtest/NBS2/P022.BAS b/bwbtest/NBS2/P022.BAS deleted file mode 100644 index 99a7492..0000000 --- a/bwbtest/NBS2/P022.BAS +++ /dev/null @@ -1,41 +0,0 @@ -10 PRINT "PROGRAM FILE 22: NUMERIC AND STRING VARIABLE NAMES" -20 PRINT " WITH THE SAME INITIAL LETTER." -30 PRINT " ANSI STANDARD 6.2, 6.4" -40 PRINT -50 PRINT "SECTION 22.1: NUMERIC AND STRING VARIABLE NAMES WITH THE" -60 PRINT " SAME INITIAL LETTER." -70 PRINT -80 PRINT "THE STANDARD ESTABLISHES A NAME SPACE OF AT LEAST 286 NUMERIC" -90 PRINT "DATA NAMES (A - Z, A0 - Z0, A1 - Z1, ..., A9 - Z9) AND 26" -100 PRINT "DISTINCT STRING DATA NAMES (A$ - Z$)." -102 PRINT -104 PRINT "THIS PROGRAM TESTS THAT DISTINCT VALUES ARE PRESERVED" -106 PRINT "IN VARIABLES WITH SIMILAR, BUT NOT IDENTICAL, NAMES." -110 PRINT -120 PRINT " BEGIN TEST." -130 PRINT -140 LET A=10 -150 LET A$="ABC" -155 LET A0=A -160 LET A0=100 -170 LET A9=109 -180 LET B1=123E22 -190 LET B0=-123E-22 -200 LET B$="18 CHARACTERS LONG" -210 LET B=33 -220 IF A<>10 THEN 320 -230 IF A$<>"ABC" THEN 320 -240 IF A9<>109 THEN 320 -250 IF A0<>100 THEN 320 -260 IF B<>33 THEN 320 -270 IF B$<>"18 CHARACTERS LONG" THEN 320 -280 IF B1<>123E22 THEN 320 -290 IF B0<>-123E-22 THEN 320 -300 PRINT "*** TEST PASSED ***" -310 GOTO 330 -320 PRINT "*** TEST FAILED ***" -330 PRINT -340 PRINT " END TEST." -350 PRINT -360 PRINT "END PROGRAM 22" -370 END diff --git a/bwbtest/NBS2/P022.run b/bwbtest/NBS2/P022.run deleted file mode 100644 index 10fa683..0000000 --- a/bwbtest/NBS2/P022.run +++ /dev/null @@ -1,21 +0,0 @@ -PROGRAM FILE 22: NUMERIC AND STRING VARIABLE NAMES - WITH THE SAME INITIAL LETTER. - ANSI STANDARD 6.2, 6.4 - -SECTION 22.1: NUMERIC AND STRING VARIABLE NAMES WITH THE - SAME INITIAL LETTER. - -THE STANDARD ESTABLISHES A NAME SPACE OF AT LEAST 286 NUMERIC -DATA NAMES (A - Z, A0 - Z0, A1 - Z1, ..., A9 - Z9) AND 26 -DISTINCT STRING DATA NAMES (A$ - Z$). - -THIS PROGRAM TESTS THAT DISTINCT VALUES ARE PRESERVED -IN VARIABLES WITH SIMILAR, BUT NOT IDENTICAL, NAMES. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 22 diff --git a/bwbtest/NBS2/P023.BAS b/bwbtest/NBS2/P023.BAS deleted file mode 100644 index 07da578..0000000 --- a/bwbtest/NBS2/P023.BAS +++ /dev/null @@ -1,30 +0,0 @@ -10 PRINT "PROGRAM FILE 23: INITIALIZATION OF STRING AND NUMERIC" -20 PRINT " VARIABLES." -30 PRINT " ANSI STANDARD 6.6" -40 PRINT -50 PRINT "SECTION 23.1: INITIALIZATION OF STRING OF NUMERIC" -60 PRINT " VARIABLES." -70 PRINT -80 PRINT "THIS PROGRAM TESTS HOW THE IMPLEMENTATION TREATS" -90 PRINT "UNINITIALIZED VARIABLES. THE MINIMAL BASIC STANDARD" -100 PRINT "RECOMMENDS THAT THIS CONDITION BE TREATED AS AN " -110 PRINT "EXCEPTION. IN ANY CASE, THE DOCUMENTATION MUST" -120 PRINT "DESCRIBE THE ACTION OF THE PROCESSOR IN ORDER" -130 PRINT "FOR THE TEST TO PASS." -140 PRINT -150 PRINT " BEGIN TEST." -160 PRINT -170 PRINT "NEITHER A$ OR Y HAS BEEN ASSIGNED A VALUE." -180 PRINT -190 PRINT "THE IMPLEMENTATION-DEFINED INITIAL VALUE (SURROUNDED" -200 PRINT " BY APOSTROPHES) FOR A$=";"'";A$;"'" -210 PRINT "THE IMPLEMENTATION-DEFINED INITIAL VALUE FOR Y =";Y -220 PRINT -230 PRINT "IF THE DOCUMENTATION FOR THIS IMPLEMENTATION CORRECTLY" -240 PRINT " DESCRIBES THE RESULTS ABOVE, THEN" -250 PRINT "*** TEST PASSED ***" -260 PRINT -270 PRINT " END TEST." -280 PRINT -290 PRINT "END PROGRAM 23" -300 END diff --git a/bwbtest/NBS2/P023.run b/bwbtest/NBS2/P023.run deleted file mode 100644 index a01bd77..0000000 --- a/bwbtest/NBS2/P023.run +++ /dev/null @@ -1,29 +0,0 @@ -PROGRAM FILE 23: INITIALIZATION OF STRING AND NUMERIC - VARIABLES. - ANSI STANDARD 6.6 - -SECTION 23.1: INITIALIZATION OF STRING OF NUMERIC - VARIABLES. - -THIS PROGRAM TESTS HOW THE IMPLEMENTATION TREATS -UNINITIALIZED VARIABLES. THE MINIMAL BASIC STANDARD -RECOMMENDS THAT THIS CONDITION BE TREATED AS AN -EXCEPTION. IN ANY CASE, THE DOCUMENTATION MUST -DESCRIBE THE ACTION OF THE PROCESSOR IN ORDER -FOR THE TEST TO PASS. - - BEGIN TEST. - -NEITHER A$ OR Y HAS BEEN ASSIGNED A VALUE. - -THE IMPLEMENTATION-DEFINED INITIAL VALUE (SURROUNDED - BY APOSTROPHES) FOR A$='' -THE IMPLEMENTATION-DEFINED INITIAL VALUE FOR Y = 0 - -IF THE DOCUMENTATION FOR THIS IMPLEMENTATION CORRECTLY - DESCRIBES THE RESULTS ABOVE, THEN -*** TEST PASSED *** - - END TEST. - -END PROGRAM 23 diff --git a/bwbtest/NBS2/P024.BAS b/bwbtest/NBS2/P024.BAS deleted file mode 100644 index c6ea484..0000000 --- a/bwbtest/NBS2/P024.BAS +++ /dev/null @@ -1,254 +0,0 @@ -10 PRINT "PROGRAM FILE 24: PLUS AND MINUS" -20 PRINT " ANSI STANDARD 7.2, 7.4" -30 PRINT -40 PRINT "THIS PROGRAM TESTS THE GROSS SEMANTIC CHARACTERISTICS OF" -50 PRINT "THE PLUS AND MINUS OPERATORS FOR THE CONSTRUCTION OF" -60 PRINT "NUMERIC EXPRESSIONS." -70 PRINT -80 PRINT "EXPRESSIONS USING ONLY ONE OPERATOR AND CONSTANTS AND" -90 PRINT "SIMPLE VARIABLES ARE EVALUATED, AND THE RESULTS TESTED" -100 PRINT "AGAINST THE CORRECT VALUE. CONSTANTS ARE EXPRESSED IN" -110 PRINT "NR1, NR2, AND NR3 FORM, BUT ARE GENERALLY RESTRICTED TO" -120 PRINT "INTEGER VALUES TO AVOID ACCURACY PROBLEMS (ACCURACY IS" -130 PRINT "ADDRESSED IN LATER TESTS)." -140 PRINT -142 REM S IS A SWITCH TO INDICATE UNARY (S=0) OR BINARY (S=1) -143 REM OPERATIONS -145 LET S=0 -150 LET M$="24.1: UNARY MINUS" -160 GOSUB 7000 -170 LET N$="CONSTANTS" -180 LET O$="1" -190 LET A=-3 -200 IF A>0 THEN 250 -210 IF A<>-3 THEN 250 -220 IF A<-3.1 THEN 250 -230 IF A>-2.9 THEN 250 -240 IF A=-3 THEN 260 -250 GOSUB 9000 -260 LET A=-0 -270 LET O$="2" -280 IF A=0 THEN 300 -290 GOSUB 9000 -300 LET A=-432.0000 -310 LET O$="3" -320 IF -432=A THEN 340 -330 GOSUB 9000 -340 LET A=-2E2 -350 LET O$="4" -360 IF A=-200 THEN 380 -370 GOSUB 9000 -380 LET A=-200E-1 -390 LET O$="5" -400 IF A=-20 THEN 420 -410 GOSUB 9000 -420 LET N$="VARIABLES" -430 LET B=34 -440 LET O$="6" -450 LET A=-B -460 IF A=-34 THEN 480 -470 GOSUB 9000 -480 LET C=-B -490 LET A=-C -500 LET O$="7" -510 IF A=34 THEN 530 -520 GOSUB 9000 -530 LET B=-99 -540 LET B=-B -550 LET A=-B -560 LET O$="8" -570 IF A=-99 THEN 590 -580 GOSUB 9000 -590 GOSUB 8000 -600 LET M$="24.2: UNARY PLUS" -610 GOSUB 7000 -620 LET N$="CONSTANTS" -630 LET O$="1" -640 LET A=+5 -650 IF A=5 THEN 670 -660 GOSUB 9000 -670 LET A=+0 -680 LET O$="2" -690 IF A=0 THEN 710 -700 GOSUB 9000 -710 LET A=+123.00 -720 LET O$="3" -730 IF A=123 THEN 750 -740 GOSUB 9000 -750 LET A=+87E2 -760 IF A=8700 THEN 790 -780 GOSUB 9000 -790 LET A=+.0054E+5 -800 LET O$="5" -810 IF A=540 THEN 830 -820 GOSUB 9000 -830 LET N$="VARIABLES" -840 LET B=47 -850 LET O$="6" -860 LET A=+B -870 IF A=47 THEN 890 -880 GOSUB 9000 -890 LET B=-88 -900 LET O$="7" -910 LET C=+B -920 LET B=+C -930 LET A=+B -940 IF A=-88 THEN 960 -950 GOSUB 9000 -960 GOSUB 8000 -965 LET S=1 -970 LET M$="23.3: ADDITION" -980 LET N$="CONSTANTS" -990 GOSUB 7000 -1000 LET A=3+6 -1010 LET O$="1" -1020 LET Y=9 -1030 GOSUB 8500 -1040 LET A=34.00+32 -1050 LET O$="2" -1060 LET Y=66 -1070 GOSUB 8500 -1080 LET A=23E2+2 -1090 LET O$="3" -1100 LET Y=2302 -1110 GOSUB 8500 -1120 LET A=33.000+880E-1 -1130 LET O$="4" -1140 LET Y=121 -1150 GOSUB 8500 -1160 LET N$="VAR. & CONSTS." -1170 LET A=-34 -1180 LET B=-98.0 -1190 LET A=A+B -1200 LET O$="5" -1210 LET Y=-132 -1220 GOSUB 8500 -1230 LET B=94 -1240 LET C=-73 -1250 LET A=B+C -1260 LET O$="6" -1270 LET Y=21 -1280 GOSUB 8500 -1290 LET C=434 -1300 LET B=-654 -1310 LET A=B+C -1320 LET O$="7" -1330 LET Y=-220 -1340 GOSUB 8500 -1350 LET B=-98 -1360 LET A=2E2+B -1370 LET O$="8" -1380 LET Y=102 -1390 GOSUB 8500 -1400 LET B=13.0E1 -1410 LET A=B+22 -1420 LET O$="9" -1430 LET Y=152 -1440 GOSUB 8500 -1450 LET B=22 -1460 LET C=-22 -1470 LET O$="10" -1480 LET A=B+C -1490 LET Y=0 -1500 GOSUB 8500 -1510 LET A=0+C -1520 LET O$="11" -1530 LET Y=-22 -1540 GOSUB 8500 -1550 LET A=C+C -1560 LET O$="12" -1570 LET Y=-44 -1580 GOSUB 8500 -1590 GOSUB 8000 -1600 LET M$="24.4: SUBTRACTION" -1610 LET N$="CONSTANTS" -1620 GOSUB 7000 -1630 LET O$="1" -1640 LET A=48-29 -1650 LET Y=19 -1660 GOSUB 8500 -1670 LET A=47-646 -1680 LET O$="2" -1690 LET Y=-599 -1700 GOSUB 8500 -1710 LET A=.00532E5-777. -1720 LET O$="3" -1730 LET Y=-245 -1740 GOSUB 8500 -1750 LET N$="VARS. & CONSTS." -1760 LET B=-56 -1770 LET C=-93 -1780 LET A=B-C -1790 LET O$="4" -1800 LET Y=37 -1810 GOSUB 8500 -1820 LET A=C-B -1830 LET O$="5" -1840 LET Y=-37 -1850 GOSUB 8500 -1860 LET B=-345.000 -1870 LET A=2-B -1880 LET O$="6" -1890 LET Y=347 -1900 GOSUB 8500 -1910 LET A=B-.111E3 -1920 LET O$="7" -1930 LET Y=-456 -1940 GOSUB 8500 -1950 LET A=B-987 -1960 LET O$="8" -1970 LET Y=-1332 -1980 GOSUB 8500 -1990 LET A=888.0-B -2000 LET O$="9" -2010 LET Y=1233 -2020 GOSUB 8500 -2030 LET B=22 -2040 LET A=22-B -2050 LET O$="10" -2060 LET Y=0 -2070 GOSUB 8500 -2080 LET A=0-B -2090 LET O$="11" -2100 LET Y=-22 -2110 GOSUB 8500 -2120 LET B=-87 -2130 LET A=B-B -2140 LET O$="12" -2150 LET Y=0 -2160 GOSUB 8500 -2170 GOSUB 8000 -6000 PRINT -6010 PRINT "END PROGRAM 24" -6020 STOP -7000 REM SUBROUTINE TO BEGIN SECTION -7010 PRINT -7020 PRINT "SECTION ";M$ -7030 PRINT -7040 PRINT " BEGIN TEST" -7050 PRINT -7060 LET R$="PASSED" -7070 IF S=0 THEN 7300 -7080 PRINT "CASE #","SHOULD BE","ACTUAL","OUTCOME" -7090 PRINT -7300 RETURN -8000 REM SUBROUTINE TO END SECTION -8010 PRINT -8040 PRINT "*** TEST ";R$;" ***" -8060 PRINT -8070 PRINT " END TEST" -8080 PRINT -8090 RETURN -8500 REM REPORT RESULTS OF TEST CASE -8505 PRINT O$,Y,A, -8510 IF Y=A THEN 8550 -8520 PRINT "TEST FAILS" -8530 LET R$="FAILED" -8540 GOTO 8560 -8550 PRINT "TEST PASSES" -8560 RETURN -9000 REM HANDLE ERROR REPORT -9010 PRINT "ERROR IN TEST OF ";M$;". ";N$;", CASE #";O$ -9020 LET R$="FAILED" -9030 RETURN -9040 END diff --git a/bwbtest/NBS2/P024.run b/bwbtest/NBS2/P024.run deleted file mode 100644 index db12eed..0000000 --- a/bwbtest/NBS2/P024.run +++ /dev/null @@ -1,86 +0,0 @@ -PROGRAM FILE 24: PLUS AND MINUS - ANSI STANDARD 7.2, 7.4 - -THIS PROGRAM TESTS THE GROSS SEMANTIC CHARACTERISTICS OF -THE PLUS AND MINUS OPERATORS FOR THE CONSTRUCTION OF -NUMERIC EXPRESSIONS. - -EXPRESSIONS USING ONLY ONE OPERATOR AND CONSTANTS AND -SIMPLE VARIABLES ARE EVALUATED, AND THE RESULTS TESTED -AGAINST THE CORRECT VALUE. CONSTANTS ARE EXPRESSED IN -NR1, NR2, AND NR3 FORM, BUT ARE GENERALLY RESTRICTED TO -INTEGER VALUES TO AVOID ACCURACY PROBLEMS (ACCURACY IS -ADDRESSED IN LATER TESTS). - - -SECTION 24.1: UNARY MINUS - - BEGIN TEST - - -*** TEST PASSED *** - - END TEST - - -SECTION 24.2: UNARY PLUS - - BEGIN TEST - - -*** TEST PASSED *** - - END TEST - - -SECTION 23.3: ADDITION - - BEGIN TEST - -CASE # SHOULD BE ACTUAL OUTCOME - -1 9 9 TEST PASSES -2 66 66 TEST PASSES -3 2302 2302 TEST PASSES -4 121 121 TEST PASSES -5 -132 -132 TEST PASSES -6 21 21 TEST PASSES -7 -220 -220 TEST PASSES -8 102 102 TEST PASSES -9 152 152 TEST PASSES -10 0 0 TEST PASSES -11 -22 -22 TEST PASSES -12 -44 -44 TEST PASSES - -*** TEST PASSED *** - - END TEST - - -SECTION 24.4: SUBTRACTION - - BEGIN TEST - -CASE # SHOULD BE ACTUAL OUTCOME - -1 19 19 TEST PASSES -2 -599 -599 TEST PASSES -3 -245 -245 TEST PASSES -4 37 37 TEST PASSES -5 -37 -37 TEST PASSES -6 347 347 TEST PASSES -7 -456 -456 TEST PASSES -8 -1332 -1332 TEST PASSES -9 1233 1233 TEST PASSES -10 0 0 TEST PASSES -11 -22 -22 TEST PASSES -12 0 0 TEST PASSES - -*** TEST PASSED *** - - END TEST - - -END PROGRAM 24 - -Program interrupted at line 6020 diff --git a/bwbtest/NBS2/P025.BAS b/bwbtest/NBS2/P025.BAS deleted file mode 100644 index 468636c..0000000 --- a/bwbtest/NBS2/P025.BAS +++ /dev/null @@ -1,266 +0,0 @@ -10 PRINT "PROGRAM FILE 25: MULTIPLY, DIVIDE, AND INVOLUTE" -20 PRINT " ANSI STANDARD 7.2, 7.4" -30 PRINT -40 PRINT "THIS PROGRAM TESTS THE GROSS SEMANTIC CHARACTERISTICS OF" -50 PRINT "THE MULTIPLY, DIVIDE, AND INVOLUTION OPERATORS FOR THE" -60 PRINT "CONSTRUCTION OF NUMERIC EXPRESSIONS." -70 PRINT -80 PRINT "EXPRESSIONS USING ONLY ONE OPERATOR AND CONSTANTS AND" -90 PRINT "SIMPLE VARIABLES ARE EVALUATED, AND THE RESULTS TESTED" -100 PRINT "AGAINST THE CORRECT VALUE. CONSTANTS ARE EXPRESSED IN" -110 PRINT "NR1, NR2, AND NR3 FORM. THE VALUES OF THE OPERANDS AND" -120 PRINT "RESULTS ARE RESTRICTED TO INTEGERS AND SIMPLE FRACTIONS" -130 PRINT "TO AVOID ACCURACY PROBLEMS (ACCURACY IS ADDRESSED IN" -135 PRINT "LATER TESTS)." -140 PRINT -150 LET M$="25.1: MULTIPLY" -160 GOSUB 7000 -170 LET N$="CONSTANTS" -180 LET O$="1" -190 LET A=3*7 -200 LET Y=21 -220 GOSUB 8500 -230 LET A=5.0*14 -240 LET O$="2" -250 LET Y=70 -270 GOSUB 8500 -280 LET A=6.000*2.3E+1 -290 LET O$="3" -300 LET Y=138 -320 GOSUB 8500 -330 LET N$="VAR. & CONSTS." -340 LET A=-37 -350 LET A=A*3 -360 LET O$="4" -370 LET Y=-111 -390 GOSUB 8500 -400 LET B=-6.0 -410 LET C=5 -420 LET A=C*B -430 LET O$="5" -440 LET Y=-30 -460 GOSUB 8500 -470 LET C=-12E-0 -480 LET B=-110E-1 -490 LET O$="6" -500 LET A=B*C -510 LET Y=132 -530 GOSUB 8500 -540 LET C=-3 -550 LET B=-0 -560 LET A=C*B -570 LET O$="7" -580 LET Y=0 -600 GOSUB 8500 -610 LET A=C*C -620 LET O$="8" -630 LET Y=9 -650 GOSUB 8500 -660 LET B=4 -670 LET A=B*4.0 -680 LET O$="9" -690 LET Y=16 -710 GOSUB 8500 -720 GOSUB 8000 -730 LET M$="25.2: DIVIDE" -740 GOSUB 7000 -750 LET N$="CONSTANTS" -760 LET O$="1" -770 LET A=12/3 -780 LET Y=4 -790 GOSUB 8500 -800 LET A=60.00/3E1 -810 LET O$="2" -820 LET Y=2 -830 GOSUB 8500 -840 LET A=0.0/7 -850 LET O$="3" -860 LET Y=0 -870 GOSUB 8500 -880 LET N$="VARS. & CONSTS." -882 LET B=63 -884 LET C=9 -886 LET A=B/C -890 LET O$="4" -900 LET Y=7 -910 GOSUB 8500 -915 LET B=-49 -920 LET C=1.00 -925 LET A=B/C -930 LET O$="5" -940 LET Y=-49 -950 GOSUB 8500 -960 LET B=3 -970 LET C=-3 -975 LET A=B/C -980 LET O$="6" -990 LET Y=-1 -1010 GOSUB 8500 -1020 LET B=-111 -1030 LET O$="7" -1040 LET C=-3 -1060 LET A=B/C -1070 LET Y=37 -1080 GOSUB 8500 -1090 LET B=-8 -1100 LET A=0/B -1110 LET O$="8" -1120 LET Y=0 -1130 GOSUB 8500 -1140 LET C=7 -1150 LET A=C/2 -1160 LET O$="9" -1170 LET Y=3.5 -1180 GOSUB 8500 -1190 LET B=-26 -1200 LET C=-5 -1210 LET A=B/C -1220 LET O$="10" -1230 LET Y=5.2 -1240 GOSUB 8500 -2000 GOSUB 8000 -2010 LET M$="25.3: INVOLUTION" -2020 LET N$="CONSTANTS" -2030 GOSUB 7000 -2040 LET A=3^2 -2050 LET O$="1" -2060 LET Y=9 -2070 GOSUB 8500 -2080 LET A=4.0^3.E-0 -2090 LET O$="2" -2100 LET Y=64 -2110 GOSUB 8500 -2120 LET A=50^0.0 -2130 LET O$="3" -2140 LET Y=1 -2150 GOSUB 8500 -2155 LET N$="VAR. & CONSTS." -2160 LET B=3 -2162 LET C=4 -2165 LET A=B^C -2170 LET O$="4" -2180 LET Y=81 -2190 GOSUB 8500 -2210 LET B=-2 -2220 LET C=3 -2230 LET A=B^C -2240 LET O$="5" -2250 LET Y=-8 -2260 GOSUB 8500 -2270 LET B=-3 -2290 LET A=B^2.0 -2300 LET O$="6" -2310 LET Y=9 -2320 GOSUB 8500 -2330 LET C=4 -2350 LET A=0^C -2360 LET O$="Y" -2370 LET Y=0 -2380 GOSUB 8500 -2390 LET B=4 -2400 LET A=B^0 -2410 LET O$="8" -2420 LET Y=1 -2430 GOSUB 8500 -2440 LET B=0 -2445 LET C=0.0 -2450 LET A=B^C -2460 LET O$="9" -2470 LET Y=1 -2480 GOSUB 8500 -2490 LET B=40E-1 -2500 LET C=1.0 -2510 LET A=B^C -2520 LET O$="10" -2530 LET Y=4 -2540 GOSUB 8500 -2550 LET B=-1 -2560 LET A=4^B -2570 LET O$="11" -2580 LET Y=.25 -2590 GOSUB 8500 -2600 LET B=-2 -2610 LET A=B^B -2620 LET O$="12" -2630 LET Y=.25 -2640 GOSUB 8500 -2650 LET C=-3 -2660 LET A=B^C -2670 LET O$="13" -2680 LET Y=-.125 -2690 GOSUB 8500 -2700 LET B=-3 -2710 LET A=1^B -2720 LET O$="14" -2730 LET Y=1 -2740 GOSUB 8500 -2750 LET B=-2 -2760 LET A=B^0 -2770 LET O$="15" -2780 LET Y=1 -2790 GOSUB 8500 -2800 LET B=-3 -2810 LET A=.5^B -2820 LET O$="16" -2830 LET Y=8 -2840 GOSUB 8500 -2850 LET C=-.5 -2860 LET A=.16^C -2870 LET O$="17" -2880 LET Y=2.5 -2890 GOSUB 8500 -2900 LET A=.36^.5 -2910 LET O$="18" -2920 LET Y=.6 -2930 GOSUB 8500 -2940 LET B=-.5 -2950 LET C=-3 -2960 LET A=B^C -2970 LET O$="19" -2980 LET Y=-8 -2990 GOSUB 8500 -3000 LET A=B^3 -3010 LET O$="20" -3020 LET Y=-.125 -3030 GOSUB 8500 -3040 GOSUB 8000 -6000 PRINT -6010 PRINT "END PROGRAM 25" -6020 STOP -7000 REM SUBROUTINE TO BEGIN SECTION -7010 PRINT -7020 PRINT "SECTION ";M$ -7030 PRINT -7040 PRINT " BEGIN TEST" -7050 PRINT -7060 LET E1=0 -7080 PRINT "CASE #","SHOULD BE","ACTUAL","OUTCOME" -7090 PRINT -7300 RETURN -8000 REM SUBROUTINE TO END SECTION -8010 PRINT -8020 IF E1=0 THEN 8050 -8025 PRINT "*** TEST FAILED IN ";E1;" CASE(S) ***" -8030 GOTO 8060 -8050 PRINT "*** TEST PASSED ***" -8060 PRINT -8070 PRINT " END TEST" -8080 PRINT -8090 RETURN -8500 REM HANDLE TEST CASE REPORT -8510 PRINT O$,Y,A, -8520 LET P$="fails" -8530 LET M=0.1 -8540 IF Y>1 THEN 8570 -8550 IF Y<-1 THEN 8570 -8560 LET M=0.01 -8570 LET T=A-Y -8580 IF T>M THEN 8630 -8590 LET T=Y-A -8600 IF T>M THEN 8630 -8610 LET P$="PASSES" -8620 GOTO 8640 -8630 LET E1=E1+1 -8640 PRINT "TEST ";P$ -8650 RETURN -8660 END diff --git a/bwbtest/NBS2/P025.run b/bwbtest/NBS2/P025.run deleted file mode 100644 index 1977f10..0000000 --- a/bwbtest/NBS2/P025.run +++ /dev/null @@ -1,94 +0,0 @@ -PROGRAM FILE 25: MULTIPLY, DIVIDE, AND INVOLUTE - ANSI STANDARD 7.2, 7.4 - -THIS PROGRAM TESTS THE GROSS SEMANTIC CHARACTERISTICS OF -THE MULTIPLY, DIVIDE, AND INVOLUTION OPERATORS FOR THE -CONSTRUCTION OF NUMERIC EXPRESSIONS. - -EXPRESSIONS USING ONLY ONE OPERATOR AND CONSTANTS AND -SIMPLE VARIABLES ARE EVALUATED, AND THE RESULTS TESTED -AGAINST THE CORRECT VALUE. CONSTANTS ARE EXPRESSED IN -NR1, NR2, AND NR3 FORM. THE VALUES OF THE OPERANDS AND -RESULTS ARE RESTRICTED TO INTEGERS AND SIMPLE FRACTIONS -TO AVOID ACCURACY PROBLEMS (ACCURACY IS ADDRESSED IN -LATER TESTS). - - -SECTION 25.1: MULTIPLY - - BEGIN TEST - -CASE # SHOULD BE ACTUAL OUTCOME - -1 21 21 TEST PASSES -2 70 70 TEST PASSES -3 138 138 TEST PASSES -4 -111 -111 TEST PASSES -5 -30 -30 TEST PASSES -6 132 132 TEST PASSES -7 0 0 TEST PASSES -8 9 9 TEST PASSES -9 16 16 TEST PASSES - -*** TEST PASSED *** - - END TEST - - -SECTION 25.2: DIVIDE - - BEGIN TEST - -CASE # SHOULD BE ACTUAL OUTCOME - -1 4 4 TEST PASSES -2 2 2 TEST PASSES -3 0 0 TEST PASSES -4 7 7 TEST PASSES -5 -49 -49 TEST PASSES -6 -1 -1 TEST PASSES -7 37 37 TEST PASSES -8 0 0 TEST PASSES -9 3.5 3.5 TEST PASSES -10 5.2 5.2 TEST PASSES - -*** TEST PASSED *** - - END TEST - - -SECTION 25.3: INVOLUTION - - BEGIN TEST - -CASE # SHOULD BE ACTUAL OUTCOME - -1 9 9 TEST PASSES -2 64 64 TEST PASSES -3 1 1 TEST PASSES -4 81 81 TEST PASSES -5 -8 -8 TEST PASSES -6 9 9 TEST PASSES -Y 0 0 TEST PASSES -8 1 1 TEST PASSES -9 1 1 TEST PASSES -10 4 4 TEST PASSES -11 .25 .25 TEST PASSES -12 .25 .25 TEST PASSES -13 -.125 -.125 TEST PASSES -14 1 1 TEST PASSES -15 1 1 TEST PASSES -16 8 8 TEST PASSES -17 2.5 2.5 TEST PASSES -18 .6 .6 TEST PASSES -19 -8 -8 TEST PASSES -20 -.125 -.125 TEST PASSES - -*** TEST PASSED *** - - END TEST - - -END PROGRAM 25 - -Program interrupted at line 6020 diff --git a/bwbtest/NBS2/P026.BAS b/bwbtest/NBS2/P026.BAS deleted file mode 100644 index c7b5a01..0000000 --- a/bwbtest/NBS2/P026.BAS +++ /dev/null @@ -1,197 +0,0 @@ -10 PRINT "PROGRAM FILE 26: PRECEDENCE RULES FOR NUMERIC EXPRESSIONS." -20 PRINT " ANSI STANDARD 7.2, 7.4" -30 PRINT -40 PRINT "THIS PROGRAM TESTS WHETHER THE PRECEDENCE RULES ARE" -50 PRINT "CORRECTLY IMPLEMENTED." -60 PRINT -70 PRINT "SECTION 26.1: PRECEDENCE ACCORDING TO OPERATOR AND" -80 PRINT " POSITION (LEFT TO RIGHT)." -90 PRINT -100 PRINT "THIS SECTION TESTS THE PRECEDENCE RULES USING SIMPLE" -110 PRINT "INTEGER OPERANDS AND ALL ORDERED PAIRS OF OPERATORS" -120 PRINT "FOR WHICH THE ORDER OF EVALUATION MAKES A DIFFERENCE." -130 PRINT "NO PARENTHESES ARE USED." -140 PRINT -150 PRINT " BEGIN TEST" -160 PRINT -163 PRINT "CASE #","SHOULD BE","ACTUAL","OUTCOME" -166 PRINT -170 LET F=0 -180 LET O$="1" -190 LET A=3+4 * 5 -200 LET Y=23 -210 GOSUB 9000 -220 LET A=8+4 / 2 -230 LET O$="2" -240 LET Y=10 -250 GOSUB 9000 -260 LET A=3.+3 ^ 3 -270 LET O$="3" -280 LET Y=30 -290 GOSUB 9000 -300 LET A=3 - 40.00E-1+5 -310 LET O$="4" -320 LET Y=4 -330 GOSUB 9000 -340 LET A=3.00 - 4-.5E+1 -350 LET O$="5" -360 LET Y=-6 -370 GOSUB 9000 -380 LET O$="6" -390 LET A=20.E-1-3 * 4 -400 LET Y=-10 -410 GOSUB 9000 -420 LET A=8-4 / 2 -430 LET O$="7" -440 LET Y=6 -450 GOSUB 9000 -460 LET A=3-2 ^ 3 -470 LET O$="8" -480 LET Y=-5 -490 GOSUB 9000 -500 LET A=3 * 4+5 -510 LET O$="9" -520 LET Y=17 -530 GOSUB 9000 -540 LET O$="10" -550 LET A=3.00E0 * 4.00E+00-5.00E-00 -560 LET Y=7 -570 GOSUB 9000 -580 LET A=003.0*2. ^ 3. -590 LET O$="11" -600 LET Y=24 -610 GOSUB 9000 -620 LET A=6 / 2+1 -630 LET O$="12" -640 LET Y=4 -650 GOSUB 9000 -660 LET A=6 / 2-1 -670 LET O$="13" -680 LET Y=2 -690 GOSUB 9000 -700 LET A=2 / 1*2 -710 LET O$="14" -720 LET Y=4 -730 GOSUB 9000 -740 LET A=8 / 2/2 -750 LET O$="15" -760 LET Y=2 -770 GOSUB 9000 -780 LET O$="16" -790 LET A=8/2 ^ 2 -800 LET Y=2 -810 GOSUB 9000 -820 LET A=2 ^ 2+2 -830 LET O$="17" -840 LET Y=6 -850 GOSUB 9000 -860 LET A=2 ^ 3-2 -870 LET O$="18" -880 LET Y=6 -890 GOSUB 9000 -900 LET A=2 ^ 2*2 -910 LET O$="19" -920 LET Y=8 -930 GOSUB 9000 -940 LET A=3 ^ 3/3 -950 LET O$="20" -960 LET Y=9 -970 GOSUB 9000 -980 LET A=2 ^ 3^2 -990 LET O$="21" -1000 LET Y=64 -1010 GOSUB 9000 -1020 LET A=- 2+2 -1030 LET O$="22" -1040 LET Y=0 -1050 GOSUB 9000 -1060 LET A=- 2-2 -1070 LET O$="23" -1080 LET Y=-4 -1090 GOSUB 9000 -1100 LET A=-2 ^ 2 -1110 LET O$="24" -1120 LET Y=-4 -1130 GOSUB 9000 -1140 PRINT -1150 IF F=0 THEN 1180 -1160 PRINT "*** TEST FAILED IN ";F;" CASE(S). ***" -1170 GOTO 1190 -1180 PRINT "*** TEST PASSED ***" -1190 PRINT -1200 PRINT " END TEST" -1210 PRINT -2000 PRINT "SECTION 26.2: MIXED OPERATORS, PARENTHESES, AND VARIABLES" -2020 PRINT -2030 PRINT "THIS SECTION TESTS THE USE OF PARENTHESES TO ALTER THE" -2040 PRINT "ORDER OF EVALUATION, EXPRESSIONS WITH SEVERAL OPERATORS," -2050 PRINT "AND THE USE OF VARIABLES AND CONSTANTS." -2060 PRINT -2070 PRINT " BEGIN TEST" -2080 PRINT -2083 PRINT "CASE #","SHOULD BE","ACTUAL","OUTCOME" -2086 PRINT -2090 LET F=0 -2100 LET O$="1" -2110 LET A=4 -2120 LET A=3-(A-5) -2130 LET Y=4 -2140 GOSUB 9000 -2150 LET O$="2" -2160 LET B=2 -2170 LET A=+2-B+2/B*2^B -2180 LET Y=4 -2190 GOSUB 9000 -2195 LET O$="3" -2200 LET A=-B-B+B/002.*.2E+01^2 -2210 LET Y=0 -2220 GOSUB 9000 -2225 LET O$="4" -2230 LET A=-3 -2240 LET B=-4 -2250 LET A=-(A-B)-B-(A-((+B-(B-A))-A)) -2260 LET Y=6 -2270 GOSUB 9000 -2280 LET O$="5" -2290 LET B=4 -2300 LET A=-(1-(-3))^(+(-B^1)/(-2)) -2310 LET Y=-16 -2320 GOSUB 9000 -2330 LET O$="6" -2340 LET A=-2 -2350 LET B=16 -2360 LET C=-30 -2370 LET A=(-B+(B^.02E+02-4*A*C)^.5)/(2*A) -2380 LET Y=3 -2390 GOSUB 9000 -2400 LET O$="7" -2410 LET A=60/(10-(-(-9))-7)/2 -2420 LET Y=-5 -2430 GOSUB 9000 -2900 PRINT -2910 IF F=0 THEN 2940 -2920 PRINT "*** TEST FAILED IN ";F;" CASE(S). ***" -2930 GOTO 2950 -2940 PRINT "*** TEST PASSED ***" -2950 PRINT -2960 PRINT " END TEST" -8970 PRINT -8980 PRINT "END PROGRAM 26" -8990 STOP -9000 REM HANDLE ERROR REPORT -9005 PRINT O$,Y,A, -9007 LET P$="FAILS" -9010 LET M=0.1 -9020 IF Y>1 THEN 9050 -9030 IF Y<-1 THEN 9050 -9040 LET M=0.01 -9050 LET T=A-Y -9060 IF T>M THEN 9100 -9070 LET T=Y-A -9080 IF T>M THEN 9100 -9090 LET P$="PASSES" -9095 GOTO 9110 -9100 LET F=F+1 -9110 PRINT "TEST ";P$ -9130 RETURN -9140 END diff --git a/bwbtest/NBS2/P026.BAS.BAD b/bwbtest/NBS2/P026.BAS.BAD deleted file mode 100644 index 8702845..0000000 --- a/bwbtest/NBS2/P026.BAS.BAD +++ /dev/null @@ -1,198 +0,0 @@ -10 PRINT "PROGRAM FILE 26: PRECEDENCE RULES FOR NUMERIC EXPRESSIONS." -20 PRINT " ANSI STANDARD 7.2, 7.4" -30 PRINT -40 PRINT "THIS PROGRAM TESTS WHETHER THE PRECEDENCE RULES ARE" -50 PRINT "CORRECTLY IMPLEMENTED." -60 PRINT -70 PRINT "SECTION 26.1: PRECEDENCE ACCORDING TO OPERATOR AND" -80 PRINT " POSITION (LEFT TO RIGHT)." -90 PRINT -100 PRINT "THIS SECTION TESTS THE PRECEDENCE RULES USING SIMPLE" -110 PRINT "INTEGER OPERANDS AND ALL ORDERED PAIRS OF OPERATORS" -120 PRINT "FOR WHICH THE ORDER OF EVALUATION MAKES A DIFFERENCE." -130 PRINT "NO PARENTHESES ARE USED." -140 PRINT -150 PRINT " BEGIN TEST" -160 PRINT -163 PRINT "CASE #","SHOULD BE","ACTUAL","OUTCOME" -166 PRINT -170 LET F=0 -180 LET O$="1" -190 LET A=3+4 * 5 -200 LET Y=23 -210 GOSUB 9000 -220 LET A=8+4 / 2 -230 LET O$="2" -240 LET Y=10 -250 GOSUB 9000 -260 LET A=3.+3 ^ 3 -270 LET O$="3" -280 LET Y=30 -290 GOSUB 9000 -300 LET A=3 - 40.00E-1+5 -310 LET O$="4" -320 LET Y=4 -330 GOSUB 9000 -340 LET A=3.00 - 4-.5E+1 -350 LET O$="5" -360 LET Y=-6 -370 GOSUB 9000 -380 LET O$="6" -390 LET A=20.E-1-3 * 4 -400 LET Y=-10 -410 GOSUB 9000 -420 LET A=8-4 / 2 -430 LET O$="7" -440 LET Y=6 -450 GOSUB 9000 -460 LET A=3-2 ^ 3 -470 LET O$="8" -480 LET Y=-5 -490 GOSUB 9000 -500 LET A=3 * 4+5 -510 LET O$="9" -520 LET Y=17 -530 GOSUB 9000 -540 LET O$="10" -550 LET A=3.00E0 * 4.00E+00-5.00E-00 -560 LET Y=7 -570 GOSUB 9000 -580 LET A=003.0*2. ^ 3. -590 LET O$="11" -600 LET Y=24 -610 GOSUB 9000 -620 LET A=6 / 2+1 -630 LET O$="12" -640 LET Y=4 -650 GOSUB 9000 -660 LET A=6 / 2-1 -670 LET O$="13" -680 LET Y=2 -690 GOSUB 9000 -700 LET A=2 / 1*2 -710 LET O$="14" -720 LET Y=4 -730 GOSUB 9000 -740 LET A=8 / 2/2 -750 LET O$="15" -760 LET Y=2 -770 GOSUB 9000 -780 LET O$="16" -790 LET A=8/2 ^ 2 -800 LET Y=2 -810 GOSUB 9000 -820 LET A=2 ^ 2+2 -830 LET O$="17" -840 LET Y=6 -850 GOSUB 9000 -860 LET A=2 ^ 3-2 -870 LET O$="18" -880 LET Y=6 -890 GOSUB 9000 -900 LET A=2 ^ 2*2 -910 LET O$="19" -920 LET Y=8 -930 GOSUB 9000 -940 LET A=3 ^ 3/3 -950 LET O$="20" -960 LET Y=9 -970 GOSUB 9000 -980 LET A=2 ^ 3^2 -990 LET O$="21" -1000 LET Y=64 -1010 GOSUB 9000 -1020 LET A=- 2+2 -1030 LET O$="22" -1040 LET Y=0 -1050 GOSUB 9000 -1060 LET A=- 2-2 -1070 LET O$="23" -1080 LET Y=-4 -1090 GOSUB 9000 -1100 LET A=-2 ^ 2 -1110 LET O$="24" -1120 LET Y=-4 -1130 GOSUB 9000 -1140 PRINT -1150 IF F=0 THEN 1180 -1160 PRINT "*** TEST FAILED IN ";F;" CASE(S). ***" -1170 GOTO 1190 -1180 PRINT "*** TEST PASSED ***" -1190 PRINT -1200 PRINT " END TEST" -1210 PRINT -2000 PRINT "SECTION 26.2: MIXED OPERATORS, PARENTHESES, AND VARIABLES" -2020 PRINT -2030 PRINT "THIS SECTION TESTS THE USE OF PARENTHESES TO ALTER THE" -2040 PRINT "ORDER OF EVALUATION, EXPRESSIONS WITH SEVERAL OPERATORS," -2050 PRINT "AND THE USE OF VARIABLES AND CONSTANTS." -2060 PRINT -2070 PRINT " BEGIN TEST" -2080 PRINT -2083 PRINT "CASE #","SHOULD BE","ACTUAL","OUTCOME" -2086 PRINT -2090 LET F=0 -2100 LET O$="1" -2110 LET A=4 -2120 LET A=3-(A-5) -2130 LET Y=4 -2140 GOSUB 9000 -2150 LET O$="2" -2160 LET B=2 -2170 LET A=+2-B+2/B*2^B -2180 LET Y=4 -2190 GOSUB 9000 -2195 LET O$="3" -2200 LET A=-B-B+B/002.*.2E+01^2 -2210 LET Y=0 -2220 GOSUB 9000 -2225 LET O$="4" -2230 LET A=-3 -2240 LET B=-4 -2250 LET A=-(A-B)-B-(A-((+B-(B-A))-A)) -2260 LET Y=6 -2270 GOSUB 9000 -2280 LET O$="5" -2290 LET B=4 -2299 REM BWBASIC HALTS ON THIS LINE: 2300 LET A=-(1-(-3))^(+(-B^1)/(-2)) -2300 LET A=-999999 -2310 LET Y=-16 -2320 GOSUB 9000 -2330 LET O$="6" -2340 LET A=-2 -2350 LET B=16 -2360 LET C=-30 -2370 LET A=(-B+(B^.02E+02-4*A*C)^.5)/(2*A) -2380 LET Y=3 -2390 GOSUB 9000 -2400 LET O$="7" -2410 LET A=60/(10-(-(-9))-7)/2 -2420 LET Y=-5 -2430 GOSUB 9000 -2900 PRINT -2910 IF F=0 THEN 2940 -2920 PRINT "*** TEST FAILED IN ";F;" CASE(S). ***" -2930 GOTO 2950 -2940 PRINT "*** TEST PASSED ***" -2950 PRINT -2960 PRINT " END TEST" -8970 PRINT -8980 PRINT "END PROGRAM 26" -8990 STOP -9000 REM HANDLE ERROR REPORT -9005 PRINT O$,Y,A, -9007 LET P$="FAILS" -9010 LET M=0.1 -9020 IF Y>1 THEN 9050 -9030 IF Y<-1 THEN 9050 -9040 LET M=0.01 -9050 LET T=A-Y -9060 IF T>M THEN 9100 -9070 LET T=Y-A -9080 IF T>M THEN 9100 -9090 LET P$="PASSES" -9095 GOTO 9110 -9100 LET F=F+1 -9110 PRINT "TEST ";P$ -9130 RETURN -9140 END diff --git a/bwbtest/NBS2/P026.run b/bwbtest/NBS2/P026.run deleted file mode 100644 index 20e4e79..0000000 --- a/bwbtest/NBS2/P026.run +++ /dev/null @@ -1,72 +0,0 @@ -PROGRAM FILE 26: PRECEDENCE RULES FOR NUMERIC EXPRESSIONS. - ANSI STANDARD 7.2, 7.4 - -THIS PROGRAM TESTS WHETHER THE PRECEDENCE RULES ARE -CORRECTLY IMPLEMENTED. - -SECTION 26.1: PRECEDENCE ACCORDING TO OPERATOR AND - POSITION (LEFT TO RIGHT). - -THIS SECTION TESTS THE PRECEDENCE RULES USING SIMPLE -INTEGER OPERANDS AND ALL ORDERED PAIRS OF OPERATORS -FOR WHICH THE ORDER OF EVALUATION MAKES A DIFFERENCE. -NO PARENTHESES ARE USED. - - BEGIN TEST - -CASE # SHOULD BE ACTUAL OUTCOME - -1 23 23 TEST PASSES -2 10 10 TEST PASSES -3 30 30 TEST PASSES -4 4 4 TEST PASSES -5 -6 -6 TEST PASSES -6 -10 -10 TEST PASSES -7 6 6 TEST PASSES -8 -5 -5 TEST PASSES -9 17 17 TEST PASSES -10 7 7 TEST PASSES -11 24 24 TEST PASSES -12 4 4 TEST PASSES -13 2 2 TEST PASSES -14 4 4 TEST PASSES -15 2 2 TEST PASSES -16 2 2 TEST PASSES -17 6 6 TEST PASSES -18 6 6 TEST PASSES -19 8 8 TEST PASSES -20 9 9 TEST PASSES -21 64 64 TEST PASSES -22 0 0 TEST PASSES -23 -4 -4 TEST PASSES -24 -4 -4 TEST PASSES - -*** TEST PASSED *** - - END TEST - -SECTION 26.2: MIXED OPERATORS, PARENTHESES, AND VARIABLES - -THIS SECTION TESTS THE USE OF PARENTHESES TO ALTER THE -ORDER OF EVALUATION, EXPRESSIONS WITH SEVERAL OPERATORS, -AND THE USE OF VARIABLES AND CONSTANTS. - - BEGIN TEST - -CASE # SHOULD BE ACTUAL OUTCOME - -1 4 4 TEST PASSES -2 4 4 TEST PASSES -3 0 0 TEST PASSES -4 6 6 TEST PASSES -5 -16 -16 TEST PASSES -6 3 3 TEST PASSES -7 -5 -5 TEST PASSES - -*** TEST PASSED *** - - END TEST - -END PROGRAM 26 - -Program interrupted at line 8990 diff --git a/bwbtest/NBS2/P027.BAS b/bwbtest/NBS2/P027.BAS deleted file mode 100644 index 3849f1b..0000000 --- a/bwbtest/NBS2/P027.BAS +++ /dev/null @@ -1,251 +0,0 @@ -5 PRINT "PROGRAM FILE 27: ACCURACY OF CONSTANTS AND VARIABLES." -10 PRINT " ANSI STANDARD 5.2, 5.4, 6.2, 6.4, 10.4" -15 PRINT -20 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF THE ON-GOTO STATEMENT" -25 PRINT " AND FOR-BLOCKS (THE FOR AND NEXT STATEMENTS) WHICH" -30 PRINT " HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW" -35 PRINT " THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE" -40 PRINT " VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL." -45 PRINT -50 PRINT "THIS PROGRAM TESTS THE LEVEL OF ACCURACY OF NUMERIC VALUE," -55 PRINT "USING THE IF-THEN STATEMENT." -60 LET T1=34 -70 LET T2=50 -80 LET T3=T1+2 -90 LET T4=T2+2 -100 PRINT -110 PRINT "SECTION 27.1: ACCURACY IN COMPARISON OF VARIABLES." -120 PRINT -130 PRINT "THIS SECTION COMPARES TWO VARIABLES WHICH HAVE BEEN ASSIGNED" -140 PRINT "NUMERICALLY 'CLOSE' VALUES AND THEN DETERMINES WHETHER THE" -150 PRINT "IMPLEMENTATION CAN DISTINGUISH BETWEEN THEN OR IF THEY ARE" -160 PRINT "TREATED AS EQUAL." -170 PRINT -180 LET C$=" > =" -190 GOSUB 8000 -200 LET A = 9.876543212E-7 -210 LET A$="9.876543212E-7 : " -220 FOR I=6 TO 9 -230 PRINT A$; -240 LET J=I-5 -250 ON J GOTO 600,700,800,900 -600 LET B= 9.876533E-7 -610 PRINT "9.876533E-7"; -620 GOTO 1000 -700 LET B= 9.8765422E-7 -710 PRINT "9.8765422E-7"; -720 GOTO 1000 -800 LET B= 9.87654311E-7 -810 PRINT "9.87654311E-7"; -820 GOTO 1000 -900 LET B= 9.876543201E-7 -910 PRINT "9.876543201E-7"; -920 GOTO 1000 -1000 LET U$="T" -1010 LET E$="T" -1020 IF A > B THEN 1040 -1030 LET U$="F" -1040 IF A = B THEN 1060 -1050 LET E$="F" -1060 REM COMPARISONS FINISHED -1200 GOSUB 8160 -1210 NEXT I -1220 GOSUB 8280 -3000 PRINT "SECTION 27.2: ACCURACY IN THE COMPARISON OF VARIABLES" -3010 PRINT " WITH CONSTANTS." -3020 PRINT -3030 PRINT "THIS SECTION COMPARES A VARIABLE AND A CONSTANT WHICH HAVE" -3040 PRINT "NUMERICALLY 'CLOSE' VALUES AND THEN DETERMINES WHETHER THE" -3050 PRINT "IMPLEMENTATION CAN DISTINGUISH BETWEEN THEM OR IF THEY ARE" -3060 PRINT "TREATED AS EQUAL." -3070 PRINT -3080 LET C$=" > =" -3090 GOSUB 8000 -3100 LET A$="-9.999988888E36 : " -3110 FOR I=6 TO 9 -3120 PRINT A$; -3130 LET J=I-5 -3140 ON J GOTO 3200,3300,3400,3500 -3200 LET B= -9.999999E36 -3210 PRINT "-9.999999E36"; -3220 GOTO 3600 -3300 LET B= -9.9999899E36 -3310 PRINT "-9.9999899E36"; -3320 GOTO 3600 -3400 LET B= -9.99998899E36 -3410 PRINT "-9.99998899E36"; -3420 GOTO 3600 -3500 LET B= -9.999988899E36 -3510 PRINT "-9.999988899E36"; -3520 GOTO 3600 -3600 LET U$="T" -3610 LET E$="T" -3620 IF -9.999988888E36 > B THEN 3640 -3630 LET U$="F" -3640 IF -9.999988888E36 = B THEN 3660 -3650 LET E$="F" -3660 REM COMPARISON FINISHED -3670 GOSUB 8160 -3680 NEXT I -3690 GOSUB 8280 -5000 PRINT "SECTION 27.3: ACCURACY IN THE COMPARISON OF CONSTANTS." -5010 PRINT -5020 PRINT "THIS SECTION COMPARES TWO CONSTANTS WHICH HAVE" -5030 PRINT "NUMERICALLY 'CLOSE' VALUES AND THEN DETERMINES WHETHER THE" -5040 PRINT "IMPLEMENTATION CAN DISTINGUISH BETWEEN THEM OR IF THEY ARE" -5050 PRINT "TREATED AS EQUAL." -5060 PRINT -5070 LET C$=" < =" -5080 GOSUB 8000 -5090 LET A$="9.40395E-37 : " -5100 FOR I=6 TO 9 -5110 PRINT A$; -5120 LET U$="T" -5130 LET E$="T" -5140 LET J=I-5 -5150 ON J GOTO 5200,5300,5400,5500 -5200 IF 9.40395E-37 < 9.40396E-37 THEN 5220 -5210 LET U$="F" -5220 IF 9.40395E-37 = 9.40396E-17 THEN 5240 -5230 LET E$="F" -5240 PRINT "9.40396E-37"; -5250 GOTO 5600 -5300 IF 9.40395E-37 < 9.403951E-37 THEN 5320 -5310 LET U$="F" -5320 IF 9.40395E-37 = 9.403951E-37 THEN 5340 -5330 LET E$="F" -5340 PRINT "9.403951E-37"; -5350 GOTO 5600 -5400 IF 9.40395E-37 < 9.4039501E-37 THEN 5420 -5410 LET U$="F" -5420 IF 9.40395E-37 = 9.4039501E-37 THEN 5440 -5430 LET E$="F" -5440 PRINT "9.4039501E-37"; -5450 GOTO 5600 -5500 IF 9.40395E-37 < 9.40395001E-37 THEN 5520 -5510 LET U$="F" -5520 IF 9.40395E-37 = 9.40395001E-37 THEN 5540 -5530 LET E$="F" -5540 PRINT "9.40395001E-37"; -5550 GOTO 5600 -5600 REM COMPARISONS FINISHED -5610 GOSUB 8160 -5620 NEXT I -5630 GOSUB 8280 -5800 PRINT "SECTION 27.4: ACCURACY FOR CONSTANTS EXPRESSED WITH" -5810 PRINT " DIFFERENT EXPONENTS." -5820 PRINT -5830 PRINT "CONSTANTS MUST BE ACCURATE EVEN WHEN NOT EXPRESSED IN" -5840 PRINT "NORMALIZED FORM (1 <= SIGNIFICAND < 10)." -5850 PRINT -5860 PRINT " BEGIN TEST." -5870 PRINT -5880 IF .0000000999991E-18 >= 99999200000E-36 THEN 5950 -5890 IF -.0000000999991E-18 <= -99999200000E-36 THEN 5950 -5900 IF .0000000999992E-18 >= 99999300000E-36 THEN 5950 -5910 IF -.0000000999992E-18 <= -99999300000E-36 THEN 5950 -5920 IF .0000000999993E-18 >= 99999400000E-36 THEN 5950 -5930 IF -.0000000999993E-18 <= -99999400000E-36 THEN 5950 -5940 PRINT "*** TEST PASSED ***" -5945 GO TO 5955 -5950 PRINT "*** TEST FAILED ***" -5955 PRINT -5960 PRINT " END TEST." -5970 PRINT -6000 PRINT "SECTION 27.5: COMPUTED ACCURACY OF NUMERIC VALUES." -6010 PRINT -6020 PRINT "THIS SECTION USES A COMPUTATIONAL ALGORITHM TO ATTEMPT TO" -6030 PRINT "DISCOVER THIS IMPLEMENTATION'S INTERNAL ACCURACY. BECAUSE" -6040 PRINT "THE ALGORITHM RELIES SOMEWHAT ON ACCURACY OF EXPRESSION" -6050 PRINT "EVALUATION, THE RESULTS ARE NOT ABSOLUTELY TRUSTWORTHY AND" -6060 PRINT "SHOULD BE INTERPRETED IN LIGHT OF GENERAL KNOWLEDGE OF" -6070 PRINT "THE CHARACTERISTICS OF THE SYSTEM." -6080 PRINT -6090 PRINT "*** THIS TEST IS INFORMATIVE ONLY ***" -6100 PRINT -6110 PRINT " BEGIN TEST." -6120 PRINT -6130 LET B=10 -6140 LET B$="DECIMAL" -6150 GOSUB 6230 -6160 LET B=2 -6170 LET B$="BINARY" -6180 GOSUB 6230 -6190 PRINT -6200 PRINT " END TEST." -6210 PRINT -6220 GOTO 6430 -6230 LET S=1 -6240 LET E=S -6250 LET D=-1 -6260 LET E=E/B -6270 LET T2 = S - E -6280 LET T1=T2 -6290 REM THE NEXT FOUR STATEMENTS HAVE NO ALGORITHMIC PURPOSE - -6300 REM THEY ARE AN ATTEMPT TO FORCE THE VARIABLE T1 TO BE STORED -6310 REM RATHER THAN SAVED IN OVERLENGTH REGISTERS, AS IS DONE -6320 REM BY SOME MACHINES, WITH AN OPTIMIZING COMPILER. -6325 LET V=1 -6330 LET U=E+D -6340 LET V=U*D*(-V) -6350 IF V < 0 THEN 6330 -6360 LET D=D+1 -6370 IF D>500 THEN 6410 -6380 IF T1 < S THEN 6260 -6390 PRINT "COMPUTED ACCURACY = ";D;B$;" DIGITS." -6400 RETURN -6410 PRINT "UNABLE TO COMPUTE ACCURACY OF ";B$;" DIGITS." -6420 RETURN -6430 REM END SECTION -6440 PRINT "END PROGRAM 27" -6450 STOP -8000 REM SUBROUTINE TO BEGIN SECTION -8010 PRINT " BEGIN TEST." -8020 PRINT -8030 PRINT "NUMERIC VALUES";TAB(T1);"DIGITS OF";TAB(T2); -8040 PRINT "RESULT OF" -8050 PRINT "BEING COMPARED";TAB(T1);"DECIMAL";TAB(T2); -8060 PRINT "COMPARISONS" -8070 PRINT TAB(T1);"ACCURACY";TAB(T2);C$ -8080 PRINT -8090 REM NO. OF ANOMALOUS RESULTS (BOTH TRUE OR BOTH FALSE) -8100 LET S2=0 -8110 REM SIGNIFICANCE SWITCH - 1 IMPLIES LOST SIGNIFICANCE -8120 LET S1=0 -8130 REM NO. OF SIGNIFICANT DIGITS -8140 LET S0=5 -8150 RETURN -8160 REM SUBROUTINE TO SUMMARIZE LINE -8170 LET W$=" " -8180 IF E$=U$ THEN 8230 -8190 IF U$="F" THEN 8250 -8200 IF S1=1 THEN 8260 -8210 LET S0=I -8220 GOTO 8260 -8230 LET W$="***" -8240 LET S2=S2+1 -8250 LET S1=1 -8260 PRINT TAB(T3);I;TAB(T4);U$;" ";E$;" ";W$ -8270 RETURN -8280 REM SUBROUTINE TO END SECTION -8290 LET T$="LEAST" -8300 IF S0=9 THEN 8320 -8310 LET T$="MOST" -8320 PRINT -8330 PRINT "*** TEST INDICATES DECIMAL ACCURACY OF AT ";T$;" ";S0; -8340 PRINT "DIGITS. ***" -8350 IF S0 < 6 THEN 8400 -8360 PRINT "IF DOCUMENTATION FOR THE IMPLEMENTATION-DEFINED ACCURACY" -8370 PRINT " FOR NUMERIC VALUES IS COMPATIBLE WITH THIS RESULT, THEN" -8380 PRINT "*** TEST PASSED ***" -8390 GOTO 8410 -8400 PRINT "*** TEST FAILED: MINIMUM ACCURACY IS SIX DIGITS. ***" -8410 PRINT -8420 IF S2=0 THEN 8460 -8430 PRINT "*** NOTE ANOMALOUS COMPARISON RESULTS IN THE ";S2;" ROW(S)" -8440 PRINT " ABOVE FOLLOWED BY ASTERISKS. ***" -8450 PRINT -8460 PRINT " END TEST." -8470 PRINT -8480 RETURN -8490 END diff --git a/bwbtest/NBS2/P027.run b/bwbtest/NBS2/P027.run deleted file mode 100644 index 2adfd43..0000000 --- a/bwbtest/NBS2/P027.run +++ /dev/null @@ -1,121 +0,0 @@ -PROGRAM FILE 27: ACCURACY OF CONSTANTS AND VARIABLES. - ANSI STANDARD 5.2, 5.4, 6.2, 6.4, 10.4 - -*** NOTE: THIS PROGRAM MAKES USE OF THE ON-GOTO STATEMENT - AND FOR-BLOCKS (THE FOR AND NEXT STATEMENTS) WHICH - HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW - THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE - VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL. - -THIS PROGRAM TESTS THE LEVEL OF ACCURACY OF NUMERIC VALUE, -USING THE IF-THEN STATEMENT. - -SECTION 27.1: ACCURACY IN COMPARISON OF VARIABLES. - -THIS SECTION COMPARES TWO VARIABLES WHICH HAVE BEEN ASSIGNED -NUMERICALLY 'CLOSE' VALUES AND THEN DETERMINES WHETHER THE -IMPLEMENTATION CAN DISTINGUISH BETWEEN THEN OR IF THEY ARE -TREATED AS EQUAL. - - BEGIN TEST. - -NUMERIC VALUES DIGITS OF RESULT OF -BEING COMPARED DECIMAL COMPARISONS - ACCURACY > = - -9.876543212E-7 : 9.876533E-7 6 T F -9.876543212E-7 : 9.8765422E-7 7 T F -9.876543212E-7 : 9.87654311E-7 8 T F -9.876543212E-7 : 9.876543201E-7 9 T F - -*** TEST INDICATES DECIMAL ACCURACY OF AT LEAST 9 DIGITS. *** -IF DOCUMENTATION FOR THE IMPLEMENTATION-DEFINED ACCURACY - FOR NUMERIC VALUES IS COMPATIBLE WITH THIS RESULT, THEN -*** TEST PASSED *** - - END TEST. - -SECTION 27.2: ACCURACY IN THE COMPARISON OF VARIABLES - WITH CONSTANTS. - -THIS SECTION COMPARES A VARIABLE AND A CONSTANT WHICH HAVE -NUMERICALLY 'CLOSE' VALUES AND THEN DETERMINES WHETHER THE -IMPLEMENTATION CAN DISTINGUISH BETWEEN THEM OR IF THEY ARE -TREATED AS EQUAL. - - BEGIN TEST. - -NUMERIC VALUES DIGITS OF RESULT OF -BEING COMPARED DECIMAL COMPARISONS - ACCURACY > = - --9.999988888E36 : -9.999999E36 6 T F --9.999988888E36 : -9.9999899E36 7 T F --9.999988888E36 : -9.99998899E36 8 T F --9.999988888E36 : -9.999988899E36 9 T F - -*** TEST INDICATES DECIMAL ACCURACY OF AT LEAST 9 DIGITS. *** -IF DOCUMENTATION FOR THE IMPLEMENTATION-DEFINED ACCURACY - FOR NUMERIC VALUES IS COMPATIBLE WITH THIS RESULT, THEN -*** TEST PASSED *** - - END TEST. - -SECTION 27.3: ACCURACY IN THE COMPARISON OF CONSTANTS. - -THIS SECTION COMPARES TWO CONSTANTS WHICH HAVE -NUMERICALLY 'CLOSE' VALUES AND THEN DETERMINES WHETHER THE -IMPLEMENTATION CAN DISTINGUISH BETWEEN THEM OR IF THEY ARE -TREATED AS EQUAL. - - BEGIN TEST. - -NUMERIC VALUES DIGITS OF RESULT OF -BEING COMPARED DECIMAL COMPARISONS - ACCURACY < = - -9.40395E-37 : 9.40396E-37 6 T F -9.40395E-37 : 9.403951E-37 7 T F -9.40395E-37 : 9.4039501E-37 8 T F -9.40395E-37 : 9.40395001E-37 9 T F - -*** TEST INDICATES DECIMAL ACCURACY OF AT LEAST 9 DIGITS. *** -IF DOCUMENTATION FOR THE IMPLEMENTATION-DEFINED ACCURACY - FOR NUMERIC VALUES IS COMPATIBLE WITH THIS RESULT, THEN -*** TEST PASSED *** - - END TEST. - -SECTION 27.4: ACCURACY FOR CONSTANTS EXPRESSED WITH - DIFFERENT EXPONENTS. - -CONSTANTS MUST BE ACCURATE EVEN WHEN NOT EXPRESSED IN -NORMALIZED FORM (1 <= SIGNIFICAND < 10). - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 27.5: COMPUTED ACCURACY OF NUMERIC VALUES. - -THIS SECTION USES A COMPUTATIONAL ALGORITHM TO ATTEMPT TO -DISCOVER THIS IMPLEMENTATION'S INTERNAL ACCURACY. BECAUSE -THE ALGORITHM RELIES SOMEWHAT ON ACCURACY OF EXPRESSION -EVALUATION, THE RESULTS ARE NOT ABSOLUTELY TRUSTWORTHY AND -SHOULD BE INTERPRETED IN LIGHT OF GENERAL KNOWLEDGE OF -THE CHARACTERISTICS OF THE SYSTEM. - -*** THIS TEST IS INFORMATIVE ONLY *** - - BEGIN TEST. - -COMPUTED ACCURACY = 16 DECIMAL DIGITS. -COMPUTED ACCURACY = 53 BINARY DIGITS. - - END TEST. - -END PROGRAM 27 - -Program interrupted at line 6450 diff --git a/bwbtest/NBS2/P028.BAS b/bwbtest/NBS2/P028.BAS deleted file mode 100644 index 1320f21..0000000 --- a/bwbtest/NBS2/P028.BAS +++ /dev/null @@ -1,93 +0,0 @@ -10 PRINT "PROGRAM FILE 28: EXCEPTION - DIVISION BY ZERO." -20 PRINT " ANSI STANDARD 7.5" -30 PRINT -40 PRINT "THIS PROGRAM TESTS VARIOUS CASES OF DIVISION BY ZERO." -50 PRINT -60 PRINT "SECTION 28.1: POSITIVE NUMBER DIVIDED BY ZERO." -70 PRINT -80 PRINT "THIS SECTION TESTS THE RESULT OF DIVIDING A POSITIVE " -90 PRINT "QUANTITY BY ZERO." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -170 PRINT " OF THE EXPRESSION AND EXECUTION CONTINUES." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 LET B=6 -220 LET A=5/(B-B) -230 PRINT "VALUE SUPPLIED = ";A -240 PRINT -250 IF A > .99E38 THEN 290 -260 PRINT "*** TEST FAILED: VALUE SUPPLIED LESS THAN MINIMUM" -270 PRINT " POSITIVE MACHINE INFINITY. ***" -280 GOTO 320 -290 PRINT "IF VALUE SUPPLIED = POSITIVE MACHINE INFINITY, AND" -300 PRINT " EXCEPTION REPORTED, THEN" -310 PRINT "*** TEST PASSED ***" -320 PRINT -330 PRINT " END TEST." -340 PRINT -1060 PRINT "SECTION 28.2: NEGATIVE NUMBER DIVIDED BY ZERO." -1070 PRINT -1080 PRINT "THIS SECTION TESTS THE RESULT OF DIVIDING A NEGATIVE " -1090 PRINT "QUANTITY BY ZERO." -1100 PRINT -1110 PRINT "TO PASS THIS TEST:" -1120 PRINT -1130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -1140 PRINT " DISPLAYED, AND" -1150 PRINT -1160 PRINT " 2) NEGATIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -1170 PRINT " OF THE EXPRESSION AND EXECUTION CONTINUES." -1180 PRINT -1190 PRINT " BEGIN TEST." -1200 PRINT -1210 LET B=6 -1220 LET A=-5/(B-B) -1230 PRINT "VALUE SUPPLIED = ";A -1240 PRINT -1250 IF A < -.99E38 THEN 1290 -1260 PRINT "*** TEST FAILED: VALUE SUPPLIED GREATER THAN MINIMUM" -1270 PRINT " NEGATIVE MACHINE INFINITY. ***" -1280 GOTO 1320 -1290 PRINT "IF VALUE SUPPLIED = NEGATIVE MACHINE INFINITY, AND" -1300 PRINT " EXCEPTION REPORTED, THEN" -1310 PRINT "*** TEST PASSED ***" -1320 PRINT -1330 PRINT " END TEST." -1340 PRINT -2060 PRINT "SECTION 28.3: ZERO DIVIDED BY ZERO." -2070 PRINT -2080 PRINT "THIS SECTION TESTS THE RESULT OF DIVIDING ZERO BY ZERO." -2100 PRINT -2110 PRINT "TO PASS THIS TEST:" -2120 PRINT -2130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -2140 PRINT " DISPLAYED, AND" -2150 PRINT -2160 PRINT " 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -2170 PRINT " OF THE EXPRESSION AND EXECUTION CONTINUES." -2180 PRINT -2190 PRINT " BEGIN TEST." -2200 PRINT -2210 LET B=6 -2220 LET A=0/(B-B) -2230 PRINT "VALUE SUPPLIED = ";A -2240 PRINT -2250 IF A > .99E38 THEN 2290 -2260 PRINT "*** TEST FAILED: VALUE SUPPLIED LESS THAN MINIMUM" -2270 PRINT " POSITIVE MACHINE INFINITY. ***" -2280 GOTO 2320 -2290 PRINT "IF VALUE SUPPLIED = POSITIVE MACHINE INFINITY, AND" -2300 PRINT " EXCEPTION REPORTED, THEN" -2310 PRINT "*** TEST PASSED ***" -2320 PRINT -2330 PRINT " END TEST." -2340 PRINT -3000 PRINT "END PROGRAM 28" -3010 END diff --git a/bwbtest/NBS2/P028.run b/bwbtest/NBS2/P028.run deleted file mode 100644 index f14422f..0000000 --- a/bwbtest/NBS2/P028.run +++ /dev/null @@ -1,77 +0,0 @@ -PROGRAM FILE 28: EXCEPTION - DIVISION BY ZERO. - ANSI STANDARD 7.5 - -THIS PROGRAM TESTS VARIOUS CASES OF DIVISION BY ZERO. - -SECTION 28.1: POSITIVE NUMBER DIVIDED BY ZERO. - -THIS SECTION TESTS THE RESULT OF DIVIDING A POSITIVE -QUANTITY BY ZERO. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE EXPRESSION AND EXECUTION CONTINUES. - - BEGIN TEST. - -Division by zero -VALUE SUPPLIED = 1.79769E+308 - -IF VALUE SUPPLIED = POSITIVE MACHINE INFINITY, AND - EXCEPTION REPORTED, THEN -*** TEST PASSED *** - - END TEST. - -SECTION 28.2: NEGATIVE NUMBER DIVIDED BY ZERO. - -THIS SECTION TESTS THE RESULT OF DIVIDING A NEGATIVE -QUANTITY BY ZERO. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) NEGATIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE EXPRESSION AND EXECUTION CONTINUES. - - BEGIN TEST. - -Division by zero -VALUE SUPPLIED = -1.79769E+308 - -IF VALUE SUPPLIED = NEGATIVE MACHINE INFINITY, AND - EXCEPTION REPORTED, THEN -*** TEST PASSED *** - - END TEST. - -SECTION 28.3: ZERO DIVIDED BY ZERO. - -THIS SECTION TESTS THE RESULT OF DIVIDING ZERO BY ZERO. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE EXPRESSION AND EXECUTION CONTINUES. - - BEGIN TEST. - -Division by zero -VALUE SUPPLIED = 1.79769E+308 - -IF VALUE SUPPLIED = POSITIVE MACHINE INFINITY, AND - EXCEPTION REPORTED, THEN -*** TEST PASSED *** - - END TEST. - -END PROGRAM 28 diff --git a/bwbtest/NBS2/P029.BAS b/bwbtest/NBS2/P029.BAS deleted file mode 100644 index 4356d5e..0000000 --- a/bwbtest/NBS2/P029.BAS +++ /dev/null @@ -1,89 +0,0 @@ -10 PRINT "PROGRAM FILE 29: EXCEPTION - OVERFLOW OF NUMERIC EXPRESSIONS." -20 PRINT " ANSI STANDARD 7.5" -30 PRINT -40 PRINT "THIS PROGRAM TESTS VARIOUS CASES OF NUMERIC OVERFLOW." -50 PRINT -60 PRINT "SECTION 29.1: POSITIVE OVERFLOW" -70 PRINT -80 PRINT "THIS SECTION TESTS THE RESULT OF EXPRESSION EVALUATION" -90 PRINT "EXCEEDING POSITIVE MACHINE INFINITY." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -170 PRINT " OF THE EXPRESSION AND EXECUTION CONTINUES." -180 PRINT -190 PRINT " BEGIN TEST" -200 PRINT -210 LET M=10 -220 LET F=1 -230 LET A=1E36 -240 LET B=1 -250 PRINT "ABOUT TO COMPUTE ";A;" * ";M -260 LET A=A*M -270 PRINT "RESULT = ";A -280 PRINT -290 PRINT "----------------------------------------" -300 PRINT -310 IF B>=A THEN 360 -320 LET B=A -330 LET F=F*1.1 -340 LET M=10^F -350 GOTO 250 -360 REM CONVERGE -370 IF A>.99E38 THEN 410 -380 PRINT "*** TEST FAILED: VALUE SUPPLIED LESS THAN MINIMUM" -390 PRINT " POSITIVE MACHINE INFINITY. ***" -400 GOTO 440 -410 PRINT "LAST TWO MULTIPLICATIONS SHOULD HAVE BEEN REPORTED" -420 PRINT "AS OVERFLOW, AND POSITIVE INFINITY SUPPLIED; IF SO," -430 PRINT "*** TEST PASSED *** OTHERWISE *** TEST FAILED ***" -440 PRINT -450 PRINT " END TEST" -460 PRINT -470 PRINT "SECTION 29.2: NEGATIVE OVERFLOW" -480 PRINT -490 PRINT "THIS SECTION TESTS THE RESULT OF EXPRESSION EVALUATION" -500 PRINT "EXCEEDING NEGATIVE MACHINE INFINITY." -510 PRINT -520 PRINT "TO PASS THIS TEST:" -530 PRINT -540 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -550 PRINT " DISPLAYED, AND" -560 PRINT -570 PRINT " 2) NEGATIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -580 PRINT " OF THE EXPRESSION AND EXECUTION CONTINUES." -590 PRINT -600 PRINT " BEGIN TEST" -610 PRINT -620 LET M=10 -630 LET F=1 -640 LET A=-1E36 -650 LET B=1 -660 PRINT "ABOUT TO COMPUTE ";A;" * ";M -670 LET A=A*M -680 PRINT "RESULT = ";A -690 PRINT -700 PRINT "----------------------------------------" -710 PRINT -720 IF B<=A THEN 770 -730 LET B=A -740 LET F=F*1.1 -750 LET M=10^F -760 GOTO 660 -770 REM CONVERGE -780 IF A<-.99E38 THEN 820 -790 PRINT "*** TEST FAILED: VALUE SUPPLIED GREATER THAN MINIMUM" -800 PRINT " NEGATIVE MACHINE INFINITY. ***" -810 GOTO 850 -820 PRINT "LAST TWO MULTIPLICATIONS SHOULD HAVE BEEN REPORTED" -830 PRINT "AS OVERFLOW, AND NEGATIVE INFINITY SUPPLIED; IF SO," -840 PRINT "*** TEST PASSES *** OTHERWISE *** TEST FAILS *** " -850 PRINT -860 PRINT " END TEST" -870 PRINT -880 PRINT "END PROGRAM 29" -890 END diff --git a/bwbtest/NBS2/P029.run b/bwbtest/NBS2/P029.run deleted file mode 100644 index 28dbefd..0000000 --- a/bwbtest/NBS2/P029.run +++ /dev/null @@ -1,422 +0,0 @@ -PROGRAM FILE 29: EXCEPTION - OVERFLOW OF NUMERIC EXPRESSIONS. - ANSI STANDARD 7.5 - -THIS PROGRAM TESTS VARIOUS CASES OF NUMERIC OVERFLOW. - -SECTION 29.1: POSITIVE OVERFLOW - -THIS SECTION TESTS THE RESULT OF EXPRESSION EVALUATION -EXCEEDING POSITIVE MACHINE INFINITY. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE EXPRESSION AND EXECUTION CONTINUES. - - BEGIN TEST - -ABOUT TO COMPUTE 1.E+36 * 10 -RESULT = 1.E+37 - ----------------------------------------- - -ABOUT TO COMPUTE 1.E+37 * 12.5893 -RESULT = 1.25893E+38 - ----------------------------------------- - -ABOUT TO COMPUTE 1.25893E+38 * 16.2181 -RESULT = 2.04174E+39 - ----------------------------------------- - -ABOUT TO COMPUTE 2.04174E+39 * 21.4289 -RESULT = 4.37522E+40 - ----------------------------------------- - -ABOUT TO COMPUTE 4.37522E+40 * 29.1139 -RESULT = 1.2738E+42 - ----------------------------------------- - -ABOUT TO COMPUTE 1.2738E+42 * 40.7859 -RESULT = 5.19529E+43 - ----------------------------------------- - -ABOUT TO COMPUTE 5.19529E+43 * 59.0964 -RESULT = 3.07023E+45 - ----------------------------------------- - -ABOUT TO COMPUTE 3.07023E+45 * 88.8622 -RESULT = 2.72827E+47 - ----------------------------------------- - -ABOUT TO COMPUTE 2.72827E+47 * 139.184 -RESULT = 3.79732E+49 - ----------------------------------------- - -ABOUT TO COMPUTE 3.79732E+49 * 228.007 -RESULT = 8.65814E+51 - ----------------------------------------- - -ABOUT TO COMPUTE 8.65814E+51 * 392.412 -RESULT = 3.39756E+54 - ----------------------------------------- - -ABOUT TO COMPUTE 3.39756E+54 * 713.045 -RESULT = 2.42261E+57 - ----------------------------------------- - -ABOUT TO COMPUTE 2.42261E+57 * 1375.4 -RESULT = 3.33205E+60 - ----------------------------------------- - -ABOUT TO COMPUTE 3.33205E+60 * 2833.16 -RESULT = 9.44025E+63 - ----------------------------------------- - -ABOUT TO COMPUTE 9.44025E+63 * 6273.33 -RESULT = 5.92218E+67 - ----------------------------------------- - -ABOUT TO COMPUTE 5.92218E+67 * 15040. -RESULT = 8.90697E+71 - ----------------------------------------- - -ABOUT TO COMPUTE 8.90697E+71 * 39352.6 -RESULT = 3.50512E+76 - ----------------------------------------- - -ABOUT TO COMPUTE 3.50512E+76 * 113363. -RESULT = 3.9735E+81 - ----------------------------------------- - -ABOUT TO COMPUTE 3.9735E+81 * 363009. -RESULT = 1.44242E+87 - ----------------------------------------- - -ABOUT TO COMPUTE 1.44242E+87 * 1.3059E+6 -RESULT = 1.88365E+93 - ----------------------------------------- - -ABOUT TO COMPUTE 1.88365E+93 * 5.33949E+6 -RESULT = 1.00577E+100 - ----------------------------------------- - -ABOUT TO COMPUTE 1.00577E+100 * 2.51333E+7 -RESULT = 2.52784E+107 - ----------------------------------------- - -ABOUT TO COMPUTE 2.52784E+107 * 1.38126E+8 -RESULT = 3.4916E+115 - ----------------------------------------- - -ABOUT TO COMPUTE 3.4916E+115 * 9.00124E+8 -RESULT = 3.14287E+124 - ----------------------------------------- - -ABOUT TO COMPUTE 3.14287E+124 * 7.0751E+9 -RESULT = 2.22361E+134 - ----------------------------------------- - -ABOUT TO COMPUTE 2.22361E+134 * 6.83449E+10 -RESULT = 1.51973E+145 - ----------------------------------------- - -ABOUT TO COMPUTE 1.51973E+145 * 8.28279E+11 -RESULT = 1.25876E+157 - ----------------------------------------- - -ABOUT TO COMPUTE 1.25876E+157 * 1.28823E+13 -RESULT = 1.62157E+170 - ----------------------------------------- - -ABOUT TO COMPUTE 1.62157E+170 * 2.63629E+14 -RESULT = 4.27494E+184 - ----------------------------------------- - -ABOUT TO COMPUTE 4.27494E+184 * 7.29614E+15 -RESULT = 3.11905E+200 - ----------------------------------------- - -ABOUT TO COMPUTE 3.11905E+200 * 2.81451E+17 -RESULT = 8.77859E+217 - ----------------------------------------- - -ABOUT TO COMPUTE 8.77859E+217 * 1.56438E+19 -RESULT = 1.37331E+237 - ----------------------------------------- - -ABOUT TO COMPUTE 1.37331E+237 * 1.2995E+21 -RESULT = 1.78461E+258 - ----------------------------------------- - -ABOUT TO COMPUTE 1.78461E+258 * 1.6794E+23 -RESULT = 2.99708E+281 - ----------------------------------------- - -ABOUT TO COMPUTE 2.99708E+281 * 3.52915E+25 -RESULT = 1.05771E+307 - ----------------------------------------- - -ABOUT TO COMPUTE 1.05771E+307 * 1.26601E+28 -Overflow -RESULT = 1.79769E+308 - ----------------------------------------- - -ABOUT TO COMPUTE 1.79769E+308 * 8.17863E+30 -Overflow -RESULT = 1.79769E+308 - ----------------------------------------- - -LAST TWO MULTIPLICATIONS SHOULD HAVE BEEN REPORTED -AS OVERFLOW, AND POSITIVE INFINITY SUPPLIED; IF SO, -*** TEST PASSED *** OTHERWISE *** TEST FAILED *** - - END TEST - -SECTION 29.2: NEGATIVE OVERFLOW - -THIS SECTION TESTS THE RESULT OF EXPRESSION EVALUATION -EXCEEDING NEGATIVE MACHINE INFINITY. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) NEGATIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE EXPRESSION AND EXECUTION CONTINUES. - - BEGIN TEST - -ABOUT TO COMPUTE -1.E+36 * 10 -RESULT = -1.E+37 - ----------------------------------------- - -ABOUT TO COMPUTE -1.E+37 * 12.5893 -RESULT = -1.25893E+38 - ----------------------------------------- - -ABOUT TO COMPUTE -1.25893E+38 * 16.2181 -RESULT = -2.04174E+39 - ----------------------------------------- - -ABOUT TO COMPUTE -2.04174E+39 * 21.4289 -RESULT = -4.37522E+40 - ----------------------------------------- - -ABOUT TO COMPUTE -4.37522E+40 * 29.1139 -RESULT = -1.2738E+42 - ----------------------------------------- - -ABOUT TO COMPUTE -1.2738E+42 * 40.7859 -RESULT = -5.19529E+43 - ----------------------------------------- - -ABOUT TO COMPUTE -5.19529E+43 * 59.0964 -RESULT = -3.07023E+45 - ----------------------------------------- - -ABOUT TO COMPUTE -3.07023E+45 * 88.8622 -RESULT = -2.72827E+47 - ----------------------------------------- - -ABOUT TO COMPUTE -2.72827E+47 * 139.184 -RESULT = -3.79732E+49 - ----------------------------------------- - -ABOUT TO COMPUTE -3.79732E+49 * 228.007 -RESULT = -8.65814E+51 - ----------------------------------------- - -ABOUT TO COMPUTE -8.65814E+51 * 392.412 -RESULT = -3.39756E+54 - ----------------------------------------- - -ABOUT TO COMPUTE -3.39756E+54 * 713.045 -RESULT = -2.42261E+57 - ----------------------------------------- - -ABOUT TO COMPUTE -2.42261E+57 * 1375.4 -RESULT = -3.33205E+60 - ----------------------------------------- - -ABOUT TO COMPUTE -3.33205E+60 * 2833.16 -RESULT = -9.44025E+63 - ----------------------------------------- - -ABOUT TO COMPUTE -9.44025E+63 * 6273.33 -RESULT = -5.92218E+67 - ----------------------------------------- - -ABOUT TO COMPUTE -5.92218E+67 * 15040. -RESULT = -8.90697E+71 - ----------------------------------------- - -ABOUT TO COMPUTE -8.90697E+71 * 39352.6 -RESULT = -3.50512E+76 - ----------------------------------------- - -ABOUT TO COMPUTE -3.50512E+76 * 113363. -RESULT = -3.9735E+81 - ----------------------------------------- - -ABOUT TO COMPUTE -3.9735E+81 * 363009. -RESULT = -1.44242E+87 - ----------------------------------------- - -ABOUT TO COMPUTE -1.44242E+87 * 1.3059E+6 -RESULT = -1.88365E+93 - ----------------------------------------- - -ABOUT TO COMPUTE -1.88365E+93 * 5.33949E+6 -RESULT = -1.00577E+100 - ----------------------------------------- - -ABOUT TO COMPUTE -1.00577E+100 * 2.51333E+7 -RESULT = -2.52784E+107 - ----------------------------------------- - -ABOUT TO COMPUTE -2.52784E+107 * 1.38126E+8 -RESULT = -3.4916E+115 - ----------------------------------------- - -ABOUT TO COMPUTE -3.4916E+115 * 9.00124E+8 -RESULT = -3.14287E+124 - ----------------------------------------- - -ABOUT TO COMPUTE -3.14287E+124 * 7.0751E+9 -RESULT = -2.22361E+134 - ----------------------------------------- - -ABOUT TO COMPUTE -2.22361E+134 * 6.83449E+10 -RESULT = -1.51973E+145 - ----------------------------------------- - -ABOUT TO COMPUTE -1.51973E+145 * 8.28279E+11 -RESULT = -1.25876E+157 - ----------------------------------------- - -ABOUT TO COMPUTE -1.25876E+157 * 1.28823E+13 -RESULT = -1.62157E+170 - ----------------------------------------- - -ABOUT TO COMPUTE -1.62157E+170 * 2.63629E+14 -RESULT = -4.27494E+184 - ----------------------------------------- - -ABOUT TO COMPUTE -4.27494E+184 * 7.29614E+15 -RESULT = -3.11905E+200 - ----------------------------------------- - -ABOUT TO COMPUTE -3.11905E+200 * 2.81451E+17 -RESULT = -8.77859E+217 - ----------------------------------------- - -ABOUT TO COMPUTE -8.77859E+217 * 1.56438E+19 -RESULT = -1.37331E+237 - ----------------------------------------- - -ABOUT TO COMPUTE -1.37331E+237 * 1.2995E+21 -RESULT = -1.78461E+258 - ----------------------------------------- - -ABOUT TO COMPUTE -1.78461E+258 * 1.6794E+23 -RESULT = -2.99708E+281 - ----------------------------------------- - -ABOUT TO COMPUTE -2.99708E+281 * 3.52915E+25 -RESULT = -1.05771E+307 - ----------------------------------------- - -ABOUT TO COMPUTE -1.05771E+307 * 1.26601E+28 -Overflow -RESULT = -1.79769E+308 - ----------------------------------------- - -ABOUT TO COMPUTE -1.79769E+308 * 8.17863E+30 -Overflow -RESULT = -1.79769E+308 - ----------------------------------------- - -LAST TWO MULTIPLICATIONS SHOULD HAVE BEEN REPORTED -AS OVERFLOW, AND NEGATIVE INFINITY SUPPLIED; IF SO, -*** TEST PASSES *** OTHERWISE *** TEST FAILS *** - - END TEST - -END PROGRAM 29 diff --git a/bwbtest/NBS2/P030.BAS b/bwbtest/NBS2/P030.BAS deleted file mode 100644 index 71b969c..0000000 --- a/bwbtest/NBS2/P030.BAS +++ /dev/null @@ -1,63 +0,0 @@ -10 PRINT "PROGRAM FILE 30: EXCEPTION - OVERFLOW OF NUMERIC CONSTANTS." -20 PRINT " ANSI STANDARD 5.4, 5.5" -30 PRINT -40 PRINT "THIS PROGRAM TESTS VARIOUS CASES OF CONSTANT OVERFLOW." -50 PRINT -60 PRINT "SECTION 30.1: POSITIVE CONSTANT OVERFLOW" -70 PRINT -80 PRINT "THIS SECTION TESTS THE RESULT OF CONSTANT EVALUATION" -90 PRINT "EXCEEDING POSITIVE MACHINE INFINITY." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -170 PRINT " OF THE CONSTANT AND EXECUTION CONTINUES." -180 PRINT -190 PRINT " BEGIN TEST" -200 PRINT -360 LET A=3E99999 -365 PRINT "RESULT OF ASSIGNING E399999 = ";A -370 IF A>.99E38 THEN 410 -380 PRINT "*** TEST FAILED: VALUE SUPPLIED LESS THAN MINIMUM" -390 PRINT " POSITIVE MACHINE INFINITY. ***" -400 GOTO 440 -410 REM RESULT > MINIMUM -420 PRINT "IF (RESULT = 3E99999) OR " -425 PRINT " (RESULT = POSITIVE INFINITY AND EXCEPTION REPORTED)" -430 PRINT "*** TEST PASSED *** OTHERWISE *** TEST FAILED ***" -440 PRINT -450 PRINT " END TEST" -460 PRINT -470 PRINT "SECTION 30.2: NEGATIVE CONSTANT OVERFLOW" -480 PRINT -490 PRINT "THIS SECTION TESTS THE RESULT OF CONSTANT EVALUATION" -500 PRINT "EXCEEDING NEGATIVE MACHINE INFINITY." -510 PRINT -520 PRINT "TO PASS THIS TEST:" -530 PRINT -540 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -550 PRINT " DISPLAYED, AND" -560 PRINT -570 PRINT " 2) NEGATIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -580 PRINT " OF THE CONSTANT AND EXECUTION CONTINUES." -590 PRINT -600 PRINT " BEGIN TEST" -610 PRINT -770 LET A=-3E99999 -775 PRINT "RESULT OF ASSIGNING -3E99999 = ";A -780 IF A<-.99E38 THEN 820 -790 PRINT "*** TEST FAILED: VALUE SUPPLIED GREATER THAN MINIMUM" -800 PRINT " NEGATIVE MACHINE INFINITY. ***" -810 GOTO 850 -820 REM RESULT < MAXIMUM -830 PRINT "IF (RESULT = -3E99999) OR " -835 PRINT " (RESULT = NEGATIVE INFINITY AND EXCEPTION REPORTED)" -840 PRINT "*** TEST PASSES *** OTHERWISE *** TEST FAILS *** " -850 PRINT -860 PRINT " END TEST" -870 PRINT -880 PRINT "END PROGRAM 30" -890 END diff --git a/bwbtest/NBS2/P030.run b/bwbtest/NBS2/P030.run deleted file mode 100644 index 430a289..0000000 --- a/bwbtest/NBS2/P030.run +++ /dev/null @@ -1,52 +0,0 @@ -PROGRAM FILE 30: EXCEPTION - OVERFLOW OF NUMERIC CONSTANTS. - ANSI STANDARD 5.4, 5.5 - -THIS PROGRAM TESTS VARIOUS CASES OF CONSTANT OVERFLOW. - -SECTION 30.1: POSITIVE CONSTANT OVERFLOW - -THIS SECTION TESTS THE RESULT OF CONSTANT EVALUATION -EXCEEDING POSITIVE MACHINE INFINITY. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE CONSTANT AND EXECUTION CONTINUES. - - BEGIN TEST - -Overflow -RESULT OF ASSIGNING E399999 = 1.79769E+308 -IF (RESULT = 3E99999) OR - (RESULT = POSITIVE INFINITY AND EXCEPTION REPORTED) -*** TEST PASSED *** OTHERWISE *** TEST FAILED *** - - END TEST - -SECTION 30.2: NEGATIVE CONSTANT OVERFLOW - -THIS SECTION TESTS THE RESULT OF CONSTANT EVALUATION -EXCEEDING NEGATIVE MACHINE INFINITY. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) NEGATIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE CONSTANT AND EXECUTION CONTINUES. - - BEGIN TEST - -Overflow -RESULT OF ASSIGNING -3E99999 = -1.79769E+308 -IF (RESULT = -3E99999) OR - (RESULT = NEGATIVE INFINITY AND EXCEPTION REPORTED) -*** TEST PASSES *** OTHERWISE *** TEST FAILS *** - - END TEST - -END PROGRAM 30 diff --git a/bwbtest/NBS2/P031.BAS b/bwbtest/NBS2/P031.BAS deleted file mode 100644 index d0c63e7..0000000 --- a/bwbtest/NBS2/P031.BAS +++ /dev/null @@ -1,31 +0,0 @@ -10 PRINT "PROGRAM FILE 31: EXCEPTION - ZERO RAISED TO A NEGATIVE POWER." -20 PRINT " ANSI STANDARD 7.5" -50 PRINT -60 PRINT "SECTION 31.1: EXCEPTION - ZERO RAISED TO A NEGATIVE POWER." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -170 PRINT " OF THE EXPRESSION AND EXECUTION CONTINUES." -180 PRINT -190 PRINT " BEGIN TEST" -200 PRINT -210 LET B=-6 -220 LET A=0^B -230 PRINT "VALUE SUPPLIED = ";A -240 PRINT -250 IF A > .99E38 THEN 290 -260 PRINT "*** TEST FAILED: VALUE SUPPLIED LESS THAN MINIMUM" -270 PRINT " POSITIVE MACHINE INFINITY. ***" -280 GOTO 320 -290 PRINT "IF VALUE SUPPLIED = POSITIVE MACHINE INFINITY, AND" -300 PRINT " EXCEPTION REPORTED, THEN" -310 PRINT "*** TEST PASSED ***" -320 PRINT -330 PRINT " END TEST" -340 PRINT -350 PRINT "END PROGRAM 31" -360 END diff --git a/bwbtest/NBS2/P031.run b/bwbtest/NBS2/P031.run deleted file mode 100644 index eff127f..0000000 --- a/bwbtest/NBS2/P031.run +++ /dev/null @@ -1,25 +0,0 @@ -PROGRAM FILE 31: EXCEPTION - ZERO RAISED TO A NEGATIVE POWER. - ANSI STANDARD 7.5 - -SECTION 31.1: EXCEPTION - ZERO RAISED TO A NEGATIVE POWER. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE EXPRESSION AND EXECUTION CONTINUES. - - BEGIN TEST - -Overflow -VALUE SUPPLIED = 1.79769E+308 - -IF VALUE SUPPLIED = POSITIVE MACHINE INFINITY, AND - EXCEPTION REPORTED, THEN -*** TEST PASSED *** - - END TEST - -END PROGRAM 31 diff --git a/bwbtest/NBS2/P032.BAS b/bwbtest/NBS2/P032.BAS deleted file mode 100644 index 78c7981..0000000 --- a/bwbtest/NBS2/P032.BAS +++ /dev/null @@ -1,30 +0,0 @@ -10 PRINT "PROGRAM FILE 32: EXCEPTION - NEGATIVE QUANTITY RAISED TO A" -20 PRINT " NON-INTEGRAL POWER." -30 PRINT " ANSI STANDARD 7.5" -40 PRINT -50 PRINT "SECTION 32.1: EXCEPTION - NEGATIVE QUANTITY RAISED TO A" -60 PRINT " NON-INTEGRAL POWER." -70 PRINT -80 PRINT "TO PASS THIS TEST:" -90 PRINT -100 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -110 PRINT " DISPLAYED, AND" -120 PRINT -130 PRINT " 2) EXECUTION MUST TERMINATE" -140 PRINT -150 PRINT " BEGIN TEST" -160 PRINT -170 PRINT "ABOUT TO ATTEMPT EVALUATION OF (-2) ^ 6.00001:" -200 PRINT -210 LET B=6.00001 -220 LET A=-2 -230 LET C=A^B -240 PRINT -250 PRINT "VALUE SUPPLIED = ";C -260 PRINT -270 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE. ***" -280 PRINT -290 PRINT " END TEST" -300 PRINT -310 PRINT "END PROGRAM 32" -320 END diff --git a/bwbtest/NBS2/P032.run b/bwbtest/NBS2/P032.run deleted file mode 100644 index 23f2b5d..0000000 --- a/bwbtest/NBS2/P032.run +++ /dev/null @@ -1,20 +0,0 @@ -PROGRAM FILE 32: EXCEPTION - NEGATIVE QUANTITY RAISED TO A - NON-INTEGRAL POWER. - ANSI STANDARD 7.5 - -SECTION 32.1: EXCEPTION - NEGATIVE QUANTITY RAISED TO A - NON-INTEGRAL POWER. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) EXECUTION MUST TERMINATE - - BEGIN TEST - -ABOUT TO ATTEMPT EVALUATION OF (-2) ^ 6.00001: - - -ERROR in line 230: Illegal function call diff --git a/bwbtest/NBS2/P033.BAS b/bwbtest/NBS2/P033.BAS deleted file mode 100644 index e4f473c..0000000 --- a/bwbtest/NBS2/P033.BAS +++ /dev/null @@ -1,101 +0,0 @@ -10 PRINT "PROGRAM FILE 33: EXCEPTION - UNDERFLOW OF" -15 PRINT " NUMERIC EXPRESSIONS." -20 PRINT " ANSI STANDARD 7.4" -30 PRINT -40 PRINT "THIS PROGRAM TESTS VARIOUS CASES OF NUMERIC UNDERFLOW." -50 PRINT -60 PRINT "SECTION 33.1: POSITIVE UNDERFLOW" -70 PRINT -80 PRINT "THIS SECTION TESTS THE RESULT OF EXPRESSION EVALUATION" -90 PRINT "LESS THAN POSITIVE MACHINE INFINITESIMAL." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE" -140 PRINT " DISPLAYED (NOT MANDATORY), AND" -150 PRINT -160 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE" -170 PRINT " OF THE EXPRESSION." -180 PRINT -190 PRINT " BEGIN TEST" -200 PRINT -210 REM S IS A SWITCH TO INDICATE FIRST TIME THROUGH LOOP (S=1) -220 REM OR SUBSEQUENT ITERATIONS (S=0). UNDERFLOW SHOULD NOT OCCUR -230 REM FIRST TIME. -240 LET S=1 -250 LET M=10 -260 LET F=1 -270 LET A=.8E-36 -280 LET B=1 -290 PRINT "ABOUT TO COMPUTE ";A;" / ";M -300 LET A=A/M -310 PRINT "RESULT = ";A -320 PRINT -330 PRINT "----------------------------------------" -340 PRINT -350 IF B<=A THEN 420 -360 IF A=0 THEN 420 -370 LET B=A -380 LET S=0 -390 LET F=F*1.1 -400 LET M=10^F -410 GOTO 290 -420 REM CONVERGE -430 IF S=0 THEN 470 -440 PRINT "*** TEST FAILED: UNDERFLOW OCCURRED ABOVE MAXIMUM" -450 PRINT " MACHINE INFINITESIMAL. ***" -460 GOTO 510 -470 IF A=0 THEN 500 -480 PRINT "*** TEST FAILED: VALUE SUPPLIED NOT EQUAL ZERO. ***" -490 GOTO 510 -500 PRINT "*** TEST PASSED *** " -510 PRINT -520 PRINT " END TEST" -530 PRINT -540 PRINT "SECTION 33.2: NEGATIVE UNDERFLOW" -550 PRINT -560 PRINT "THIS SECTION TESTS THE RESULT OF EXPRESSION EVALUATION" -570 PRINT "GREATER THAN NEGATIVE MACHINE INFINITESIMAL." -580 PRINT -590 PRINT "TO PASS THIS TEST:" -600 PRINT -610 PRINT " 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE" -620 PRINT " DISPLAYED (NOT MANDATORY), AND" -630 PRINT -640 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE" -650 PRINT " OF THE EXPRESSION." -660 PRINT -670 PRINT " BEGIN TEST" -680 PRINT -690 LET S=1 -700 LET M=10 -710 LET F=1 -720 LET A=-.8E-36 -730 LET B=-1 -740 PRINT "ABOUT TO COMPUTE ";A;" / ";M -750 LET A=A/M -760 PRINT "RESULT = ";A -770 PRINT -780 PRINT "----------------------------------------" -790 PRINT -800 IF B>=A THEN 870 -810 IF A=0 THEN 870 -820 LET B=A -830 LET S=0 -840 LET F=F*1.1 -850 LET M=10^F -860 GOTO 740 -870 REM CONVERGE -880 IF S=0 THEN 920 -890 PRINT "*** TEST FAILED: UNDERFLOW OCCURRED BELOW MINIMUM" -900 PRINT " MACHINE INFINITESIMAL. ***" -910 GOTO 960 -920 IF A=0 THEN 950 -930 PRINT "*** TEST FAILED: VALUE SUPPLIED NOT EQUAL ZERO. ***" -940 GOTO 960 -950 PRINT "*** TEST PASSED *** " -960 PRINT -970 PRINT " END TEST" -980 PRINT -990 PRINT "END PROGRAM 33" -1000 END diff --git a/bwbtest/NBS2/P033.run b/bwbtest/NBS2/P033.run deleted file mode 100644 index 7fa7e7a..0000000 --- a/bwbtest/NBS2/P033.run +++ /dev/null @@ -1,405 +0,0 @@ -PROGRAM FILE 33: EXCEPTION - UNDERFLOW OF - NUMERIC EXPRESSIONS. - ANSI STANDARD 7.4 - -THIS PROGRAM TESTS VARIOUS CASES OF NUMERIC UNDERFLOW. - -SECTION 33.1: POSITIVE UNDERFLOW - -THIS SECTION TESTS THE RESULT OF EXPRESSION EVALUATION -LESS THAN POSITIVE MACHINE INFINITESIMAL. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE - DISPLAYED (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE - OF THE EXPRESSION. - - BEGIN TEST - -ABOUT TO COMPUTE 8.E-37 / 10 -RESULT = 8.E-38 - ----------------------------------------- - -ABOUT TO COMPUTE 8.E-38 / 12.5893 -RESULT = 6.35463E-39 - ----------------------------------------- - -ABOUT TO COMPUTE 6.35463E-39 / 16.2181 -RESULT = 3.91823E-40 - ----------------------------------------- - -ABOUT TO COMPUTE 3.91823E-40 / 21.4289 -RESULT = 1.82848E-41 - ----------------------------------------- - -ABOUT TO COMPUTE 1.82848E-41 / 29.1139 -RESULT = 6.28044E-43 - ----------------------------------------- - -ABOUT TO COMPUTE 6.28044E-43 / 40.7859 -RESULT = 1.53986E-44 - ----------------------------------------- - -ABOUT TO COMPUTE 1.53986E-44 / 59.0964 -RESULT = 2.60567E-46 - ----------------------------------------- - -ABOUT TO COMPUTE 2.60567E-46 / 88.8622 -RESULT = 2.93226E-48 - ----------------------------------------- - -ABOUT TO COMPUTE 2.93226E-48 / 139.184 -RESULT = 2.10675E-50 - ----------------------------------------- - -ABOUT TO COMPUTE 2.10675E-50 / 228.007 -RESULT = 9.23986E-53 - ----------------------------------------- - -ABOUT TO COMPUTE 9.23986E-53 / 392.412 -RESULT = 2.35463E-55 - ----------------------------------------- - -ABOUT TO COMPUTE 2.35463E-55 / 713.045 -RESULT = 3.30222E-58 - ----------------------------------------- - -ABOUT TO COMPUTE 3.30222E-58 / 1375.4 -RESULT = 2.40092E-61 - ----------------------------------------- - -ABOUT TO COMPUTE 2.40092E-61 / 2833.16 -RESULT = 8.47435E-65 - ----------------------------------------- - -ABOUT TO COMPUTE 8.47435E-65 / 6273.33 -RESULT = 1.35085E-68 - ----------------------------------------- - -ABOUT TO COMPUTE 1.35085E-68 / 15040. -RESULT = 8.98173E-73 - ----------------------------------------- - -ABOUT TO COMPUTE 8.98173E-73 / 39352.6 -RESULT = 2.28238E-77 - ----------------------------------------- - -ABOUT TO COMPUTE 2.28238E-77 / 113363. -RESULT = 2.01334E-82 - ----------------------------------------- - -ABOUT TO COMPUTE 2.01334E-82 / 363009. -RESULT = 5.54625E-88 - ----------------------------------------- - -ABOUT TO COMPUTE 5.54625E-88 / 1.3059E+6 -RESULT = 4.24708E-94 - ----------------------------------------- - -ABOUT TO COMPUTE 4.24708E-94 / 5.33949E+6 -RESULT = 7.95409E-101 - ----------------------------------------- - -ABOUT TO COMPUTE 7.95409E-101 / 2.51333E+7 -RESULT = 3.16476E-108 - ----------------------------------------- - -ABOUT TO COMPUTE 3.16476E-108 / 1.38126E+8 -RESULT = 2.29121E-116 - ----------------------------------------- - -ABOUT TO COMPUTE 2.29121E-116 / 9.00124E+8 -RESULT = 2.54544E-125 - ----------------------------------------- - -ABOUT TO COMPUTE 2.54544E-125 / 7.0751E+9 -RESULT = 3.59775E-135 - ----------------------------------------- - -ABOUT TO COMPUTE 3.59775E-135 / 6.83449E+10 -RESULT = 5.26411E-146 - ----------------------------------------- - -ABOUT TO COMPUTE 5.26411E-146 / 8.28279E+11 -RESULT = 6.35548E-158 - ----------------------------------------- - -ABOUT TO COMPUTE 6.35548E-158 / 1.28823E+13 -RESULT = 4.93349E-171 - ----------------------------------------- - -ABOUT TO COMPUTE 4.93349E-171 / 2.63629E+14 -RESULT = 1.87137E-185 - ----------------------------------------- - -ABOUT TO COMPUTE 1.87137E-185 / 7.29614E+15 -RESULT = 2.56488E-201 - ----------------------------------------- - -ABOUT TO COMPUTE 2.56488E-201 / 2.81451E+17 -RESULT = 9.11308E-219 - ----------------------------------------- - -ABOUT TO COMPUTE 9.11308E-219 / 1.56438E+19 -RESULT = 5.82536E-238 - ----------------------------------------- - -ABOUT TO COMPUTE 5.82536E-238 / 1.2995E+21 -RESULT = 4.48276E-259 - ----------------------------------------- - -ABOUT TO COMPUTE 4.48276E-259 / 1.6794E+23 -RESULT = 2.66926E-282 - ----------------------------------------- - -ABOUT TO COMPUTE 2.66926E-282 / 3.52915E+25 -RESULT = 7.56348E-308 - ----------------------------------------- - -ABOUT TO COMPUTE 7.56348E-308 / 1.26601E+28 -RESULT = 0 - ----------------------------------------- - -*** TEST PASSED *** - - END TEST - -SECTION 33.2: NEGATIVE UNDERFLOW - -THIS SECTION TESTS THE RESULT OF EXPRESSION EVALUATION -GREATER THAN NEGATIVE MACHINE INFINITESIMAL. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE - DISPLAYED (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE - OF THE EXPRESSION. - - BEGIN TEST - -ABOUT TO COMPUTE -8.E-37 / 10 -RESULT = -8.E-38 - ----------------------------------------- - -ABOUT TO COMPUTE -8.E-38 / 12.5893 -RESULT = -6.35463E-39 - ----------------------------------------- - -ABOUT TO COMPUTE -6.35463E-39 / 16.2181 -RESULT = -3.91823E-40 - ----------------------------------------- - -ABOUT TO COMPUTE -3.91823E-40 / 21.4289 -RESULT = -1.82848E-41 - ----------------------------------------- - -ABOUT TO COMPUTE -1.82848E-41 / 29.1139 -RESULT = -6.28044E-43 - ----------------------------------------- - -ABOUT TO COMPUTE -6.28044E-43 / 40.7859 -RESULT = -1.53986E-44 - ----------------------------------------- - -ABOUT TO COMPUTE -1.53986E-44 / 59.0964 -RESULT = -2.60567E-46 - ----------------------------------------- - -ABOUT TO COMPUTE -2.60567E-46 / 88.8622 -RESULT = -2.93226E-48 - ----------------------------------------- - -ABOUT TO COMPUTE -2.93226E-48 / 139.184 -RESULT = -2.10675E-50 - ----------------------------------------- - -ABOUT TO COMPUTE -2.10675E-50 / 228.007 -RESULT = -9.23986E-53 - ----------------------------------------- - -ABOUT TO COMPUTE -9.23986E-53 / 392.412 -RESULT = -2.35463E-55 - ----------------------------------------- - -ABOUT TO COMPUTE -2.35463E-55 / 713.045 -RESULT = -3.30222E-58 - ----------------------------------------- - -ABOUT TO COMPUTE -3.30222E-58 / 1375.4 -RESULT = -2.40092E-61 - ----------------------------------------- - -ABOUT TO COMPUTE -2.40092E-61 / 2833.16 -RESULT = -8.47435E-65 - ----------------------------------------- - -ABOUT TO COMPUTE -8.47435E-65 / 6273.33 -RESULT = -1.35085E-68 - ----------------------------------------- - -ABOUT TO COMPUTE -1.35085E-68 / 15040. -RESULT = -8.98173E-73 - ----------------------------------------- - -ABOUT TO COMPUTE -8.98173E-73 / 39352.6 -RESULT = -2.28238E-77 - ----------------------------------------- - -ABOUT TO COMPUTE -2.28238E-77 / 113363. -RESULT = -2.01334E-82 - ----------------------------------------- - -ABOUT TO COMPUTE -2.01334E-82 / 363009. -RESULT = -5.54625E-88 - ----------------------------------------- - -ABOUT TO COMPUTE -5.54625E-88 / 1.3059E+6 -RESULT = -4.24708E-94 - ----------------------------------------- - -ABOUT TO COMPUTE -4.24708E-94 / 5.33949E+6 -RESULT = -7.95409E-101 - ----------------------------------------- - -ABOUT TO COMPUTE -7.95409E-101 / 2.51333E+7 -RESULT = -3.16476E-108 - ----------------------------------------- - -ABOUT TO COMPUTE -3.16476E-108 / 1.38126E+8 -RESULT = -2.29121E-116 - ----------------------------------------- - -ABOUT TO COMPUTE -2.29121E-116 / 9.00124E+8 -RESULT = -2.54544E-125 - ----------------------------------------- - -ABOUT TO COMPUTE -2.54544E-125 / 7.0751E+9 -RESULT = -3.59775E-135 - ----------------------------------------- - -ABOUT TO COMPUTE -3.59775E-135 / 6.83449E+10 -RESULT = -5.26411E-146 - ----------------------------------------- - -ABOUT TO COMPUTE -5.26411E-146 / 8.28279E+11 -RESULT = -6.35548E-158 - ----------------------------------------- - -ABOUT TO COMPUTE -6.35548E-158 / 1.28823E+13 -RESULT = -4.93349E-171 - ----------------------------------------- - -ABOUT TO COMPUTE -4.93349E-171 / 2.63629E+14 -RESULT = -1.87137E-185 - ----------------------------------------- - -ABOUT TO COMPUTE -1.87137E-185 / 7.29614E+15 -RESULT = -2.56488E-201 - ----------------------------------------- - -ABOUT TO COMPUTE -2.56488E-201 / 2.81451E+17 -RESULT = -9.11308E-219 - ----------------------------------------- - -ABOUT TO COMPUTE -9.11308E-219 / 1.56438E+19 -RESULT = -5.82536E-238 - ----------------------------------------- - -ABOUT TO COMPUTE -5.82536E-238 / 1.2995E+21 -RESULT = -4.48276E-259 - ----------------------------------------- - -ABOUT TO COMPUTE -4.48276E-259 / 1.6794E+23 -RESULT = -2.66926E-282 - ----------------------------------------- - -ABOUT TO COMPUTE -2.66926E-282 / 3.52915E+25 -RESULT = -7.56348E-308 - ----------------------------------------- - -ABOUT TO COMPUTE -7.56348E-308 / 1.26601E+28 -RESULT = 0 - ----------------------------------------- - -*** TEST PASSED *** - - END TEST - -END PROGRAM 33 diff --git a/bwbtest/NBS2/P034.BAS b/bwbtest/NBS2/P034.BAS deleted file mode 100644 index a4a2293..0000000 --- a/bwbtest/NBS2/P034.BAS +++ /dev/null @@ -1,58 +0,0 @@ -10 PRINT "PROGRAM FILE 34: EXCEPTION - UNDERFLOW OF" -15 PRINT " NUMERIC CONSTANTS." -20 PRINT " ANSI STANDARD 5.4, 5.6" -30 PRINT -40 PRINT "THIS PROGRAM TESTS VARIOUS CASES OF CONSTANT UNDERFLOW." -50 PRINT -60 PRINT "SECTION 34.1: POSITIVE CONSTANT UNDERFLOW" -70 PRINT -80 PRINT "THIS SECTION TESTS THE RESULT OF CONSTANT EVALUATION" -90 PRINT "LESS THAN POSITIVE MACHINE INFINITESIMAL." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE" -140 PRINT " DISPLAYED (NOT MANDATORY), AND" -150 PRINT -160 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE" -170 PRINT " OF THE CONSTANT AND EXECUTION CONTINUES." -180 PRINT -190 PRINT " BEGIN TEST" -200 PRINT -360 LET A=3E-99999 -365 PRINT "RESULT OF ASSIGNING 3E-99999 = ";A -370 IF A=0 THEN 430 -380 PRINT "IF RESULT <> 3E-99999, THEN" -390 PRINT "*** TEST FAILED ***" -400 GOTO 440 -430 PRINT "*** TEST PASSED *** " -440 PRINT -450 PRINT " END TEST" -460 PRINT -470 PRINT "SECTION 34.2: NEGATIVE CONSTANT UNDERFLOW" -480 PRINT -490 PRINT "THIS SECTION TESTS THE RESULT OF CONSTANT EVALUATION" -500 PRINT "GREATER THAN NEGATIVE MACHINE INFINITESIMAL." -510 PRINT -520 PRINT "TO PASS THIS TEST:" -530 PRINT -540 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MAY BE" -550 PRINT " DISPLAYED (NOT MANDATORY), AND" -560 PRINT -570 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE" -580 PRINT " OF THE CONSTANT AND EXECUTION CONTINUES." -590 PRINT -600 PRINT " BEGIN TEST" -610 PRINT -770 LET A=-3E-99999 -775 PRINT "RESULT OF ASSIGNING -3E-99999 = ";A -780 IF A=0 THEN 840 -790 PRINT "IF RESULT <> -3E-99999, THEN" -800 PRINT "*** TEST FAILED ***" -810 GOTO 850 -840 PRINT "*** TEST PASSED *** " -850 PRINT -860 PRINT " END TEST" -870 PRINT -880 PRINT "END PROGRAM 34" -890 END diff --git a/bwbtest/NBS2/P034.run b/bwbtest/NBS2/P034.run deleted file mode 100644 index 121dcb6..0000000 --- a/bwbtest/NBS2/P034.run +++ /dev/null @@ -1,47 +0,0 @@ -PROGRAM FILE 34: EXCEPTION - UNDERFLOW OF - NUMERIC CONSTANTS. - ANSI STANDARD 5.4, 5.6 - -THIS PROGRAM TESTS VARIOUS CASES OF CONSTANT UNDERFLOW. - -SECTION 34.1: POSITIVE CONSTANT UNDERFLOW - -THIS SECTION TESTS THE RESULT OF CONSTANT EVALUATION -LESS THAN POSITIVE MACHINE INFINITESIMAL. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE - DISPLAYED (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE - OF THE CONSTANT AND EXECUTION CONTINUES. - - BEGIN TEST - -RESULT OF ASSIGNING 3E-99999 = 0 -*** TEST PASSED *** - - END TEST - -SECTION 34.2: NEGATIVE CONSTANT UNDERFLOW - -THIS SECTION TESTS THE RESULT OF CONSTANT EVALUATION -GREATER THAN NEGATIVE MACHINE INFINITESIMAL. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MAY BE - DISPLAYED (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE - OF THE CONSTANT AND EXECUTION CONTINUES. - - BEGIN TEST - -RESULT OF ASSIGNING -3E-99999 = 0 -*** TEST PASSED *** - - END TEST - -END PROGRAM 34 diff --git a/bwbtest/NBS2/P035.BAS b/bwbtest/NBS2/P035.BAS deleted file mode 100644 index b9ca898..0000000 --- a/bwbtest/NBS2/P035.BAS +++ /dev/null @@ -1,64 +0,0 @@ -10 PRINT "PROGRAM FILE 35: EXCEPTION - OVERFLOW AND UNDERFLOW WITHIN" -20 PRINT " SUB-EXPRESSIONS" -30 PRINT " ANSI STANDARD 7.4, 7.5" -40 PRINT -50 PRINT "THIS PROGRAM TESTS THE EFFECT OF NUMERIC OVERFLOW AND" -60 PRINT "UNDERFLOW WITHIN A SUB-EXPRESSION ON THE CONTAINING" -70 PRINT "EXPRESSION." -80 PRINT -90 PRINT "SECTION 35.1: SUB-EXPRESSION OVERFLOW" -100 PRINT -110 PRINT "THIS SECTION TESTS THE EFFECT ON AN EXPRESSION OF NUMERIC" -120 PRINT "OVERFLOW WITHIN ONE OF ITS SUB-EXPRESSIONS." -130 PRINT -140 PRINT "TO PASS THIS TEST:" -150 PRINT -160 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -170 PRINT " DISPLAYED, AND" -180 PRINT -190 PRINT " 2) MACHINE INFINITY MUST BE SUPPLIED AS THE VALUE" -200 PRINT " OF THE SUB-EXPRESSION." -210 PRINT -220 PRINT " BEGIN TEST" -230 PRINT -240 PRINT "ABOUT TO COMPUTE -.01 * (10 ^ 99999)" -250 LET A=-.01 * (10 ^ 99999) -260 PRINT "RESULT = ";A -270 PRINT -280 IF A <= .99E36 THEN 310 -290 PRINT "*** TEST FAILED: RESULT > -1E36 ***" -300 GOTO 340 -310 PRINT "IF RESULT = (-.01 * MACHINE INFINITY)" -320 PRINT " AND OVERFLOW EXCEPTION REPORTED, THEN" -330 PRINT "*** TEST PASSES *** OTHERWISE *** TEST FAILS ***" -340 PRINT -350 PRINT " END TEST" -360 PRINT -370 PRINT "SECTION 35.2: SUB-EXPRESSION UNDERFLOW" -380 PRINT -390 PRINT "THIS SECTION TESTS THE EFFECT OF AN EXPRESSION OF NUMERIC" -400 PRINT "UNDERFLOW WITHIN ONE OF ITS OPERATIONS." -410 PRINT -420 PRINT "TO PASS THIS TEST:" -430 PRINT -440 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MAY BE" -450 PRINT " DISPLAYED (NOT MANDATORY), AND" -460 PRINT -470 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE" -480 PRINT " OF THE SUB-EXPRESSION." -490 PRINT -500 PRINT " BEGIN TEST" -510 PRINT -520 PRINT "ABOUT TO COMPUTE 3 + (10 ^ (-99999))" -530 LET A=3 + (10 ^ (-99999)) -540 PRINT "RESULT = ";A -550 PRINT -560 IF A=3 THEN 590 -570 PRINT "*** TEST FAILED: RESULT NOT = 3 ***" -580 GOTO 600 -590 PRINT "*** TEST PASSED ***" -600 PRINT -610 PRINT " END TEST" -620 PRINT -630 PRINT "END PROGRAM 35" -640 END diff --git a/bwbtest/NBS2/P035.run b/bwbtest/NBS2/P035.run deleted file mode 100644 index 3c049e7..0000000 --- a/bwbtest/NBS2/P035.run +++ /dev/null @@ -1,56 +0,0 @@ -PROGRAM FILE 35: EXCEPTION - OVERFLOW AND UNDERFLOW WITHIN - SUB-EXPRESSIONS - ANSI STANDARD 7.4, 7.5 - -THIS PROGRAM TESTS THE EFFECT OF NUMERIC OVERFLOW AND -UNDERFLOW WITHIN A SUB-EXPRESSION ON THE CONTAINING -EXPRESSION. - -SECTION 35.1: SUB-EXPRESSION OVERFLOW - -THIS SECTION TESTS THE EFFECT ON AN EXPRESSION OF NUMERIC -OVERFLOW WITHIN ONE OF ITS SUB-EXPRESSIONS. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) MACHINE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE SUB-EXPRESSION. - - BEGIN TEST - -ABOUT TO COMPUTE -.01 * (10 ^ 99999) -Overflow -RESULT = -1.79769E+306 - -IF RESULT = (-.01 * MACHINE INFINITY) - AND OVERFLOW EXCEPTION REPORTED, THEN -*** TEST PASSES *** OTHERWISE *** TEST FAILS *** - - END TEST - -SECTION 35.2: SUB-EXPRESSION UNDERFLOW - -THIS SECTION TESTS THE EFFECT OF AN EXPRESSION OF NUMERIC -UNDERFLOW WITHIN ONE OF ITS OPERATIONS. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MAY BE - DISPLAYED (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE - OF THE SUB-EXPRESSION. - - BEGIN TEST - -ABOUT TO COMPUTE 3 + (10 ^ (-99999)) -RESULT = 3 - -*** TEST PASSED *** - - END TEST - -END PROGRAM 35 diff --git a/bwbtest/NBS2/P036.BAS b/bwbtest/NBS2/P036.BAS deleted file mode 100644 index abd8d91..0000000 --- a/bwbtest/NBS2/P036.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 36: ERROR - UNMATCHED PARENTHESIS IN" -15 PRINT " NUMERIC EXPRESSION." -20 PRINT " ANSI STANDARD 7.2" -30 PRINT -40 PRINT "SECTION 36.1: ERROR - UNMATCHED PARENTHESIS IN" -45 PRINT " NUMERIC EXPRESSION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHETHER THE PROCESSOR DETECTS AND REPORTS" -70 PRINT "A NUMERIC EXPRESSION WHICH IS IMPROPERLY FORMED BECAUSE THE" -80 PRINT "PARENTHESES ARE NOT MATCHED." -100 PRINT -110 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -120 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -130 PRINT -140 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -150 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -160 PRINT " BY THE PROCESSOR, OR" -170 PRINT -180 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -190 PRINT -200 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -210 PRINT "FOR DETAILED CRITERIA." -220 PRINT -230 PRINT " BEGIN TEST" -240 PRINT -245 PRINT "ABOUT TO COMPUTE: 8+(7-(9-88)/3+(7-9)-3" -250 LET A= 8+(7-(9-88)/3+(7-9)-3 -260 PRINT "VALUE ASSIGNED FROM ILLEGAL EXPRESSION = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 36" -310 END diff --git a/bwbtest/NBS2/P036.run b/bwbtest/NBS2/P036.run deleted file mode 100644 index fc0e38e..0000000 --- a/bwbtest/NBS2/P036.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 36: ERROR - UNMATCHED PARENTHESIS IN - NUMERIC EXPRESSION. - ANSI STANDARD 7.2 - -SECTION 36.1: ERROR - UNMATCHED PARENTHESIS IN - NUMERIC EXPRESSION. - -THIS SECTION TESTS WHETHER THE PROCESSOR DETECTS AND REPORTS -A NUMERIC EXPRESSION WHICH IS IMPROPERLY FORMED BECAUSE THE -PARENTHESES ARE NOT MATCHED. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -ABOUT TO COMPUTE: 8+(7-(9-88)/3+(7-9)-3 - -ERROR in line 250: Syntax error diff --git a/bwbtest/NBS2/P037.BAS b/bwbtest/NBS2/P037.BAS deleted file mode 100644 index 83838ce..0000000 --- a/bwbtest/NBS2/P037.BAS +++ /dev/null @@ -1,31 +0,0 @@ -10 PRINT "PROGRAM FILE 37: ERROR - USE OF '**' AS OPERATOR." -20 PRINT " ANSI STANDARD 7.2" -30 PRINT -40 PRINT "SECTION 37.1: ERROR - USE OF '**' AS OPERATOR." -50 PRINT -60 PRINT "THIS SECTION TESTS WHETHER THE PROCESSOR DETECTS AND REPORTS" -70 PRINT "A NUMERIC EXPRESSION WHICH IS IMPROPERLY FORMED BECAUSE A" -80 PRINT "DOUBLE ASTERISK (**) IS USED AS AN OPERATOR, PRESUMABLY" -90 PRINT "FOR INVOLUTION." -100 PRINT -110 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -120 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -130 PRINT -140 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -150 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -160 PRINT " BY THE PROCESSOR, OR" -170 PRINT -180 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -190 PRINT -200 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -210 PRINT "FOR DETAILED CRITERIA." -220 PRINT -230 PRINT " BEGIN TEST" -240 PRINT -250 LET A=5**2 -260 PRINT "VALUE ASSIGNED FOR 5**2 = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 37" -310 END diff --git a/bwbtest/NBS2/P037.run b/bwbtest/NBS2/P037.run deleted file mode 100644 index e1be3fd..0000000 --- a/bwbtest/NBS2/P037.run +++ /dev/null @@ -1,29 +0,0 @@ -PROGRAM FILE 37: ERROR - USE OF '**' AS OPERATOR. - ANSI STANDARD 7.2 - -SECTION 37.1: ERROR - USE OF '**' AS OPERATOR. - -THIS SECTION TESTS WHETHER THE PROCESSOR DETECTS AND REPORTS -A NUMERIC EXPRESSION WHICH IS IMPROPERLY FORMED BECAUSE A -DOUBLE ASTERISK (**) IS USED AS AN OPERATOR, PRESUMABLY -FOR INVOLUTION. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -VALUE ASSIGNED FOR 5**2 = 25 - - END TEST - -END PROGRAM 37 diff --git a/bwbtest/NBS2/P038.BAS b/bwbtest/NBS2/P038.BAS deleted file mode 100644 index 91f3f4a..0000000 --- a/bwbtest/NBS2/P038.BAS +++ /dev/null @@ -1,30 +0,0 @@ -10 PRINT "PROGRAM FILE 38: ERROR - USE OF ADJACENT OPERATORS." -20 PRINT " ANSI STANDARD 7.2" -30 PRINT -40 PRINT "SECTION 38.1: ERROR - USE OF ADJACENT OPERATORS." -50 PRINT -60 PRINT "THIS SECTION TESTS WHETHER THE PROCESSOR DETECTS AND REPORTS" -70 PRINT "A NUMERIC EXPRESSION WHICH IS IMPROPERLY FORMED BECAUSE TWO" -80 PRINT "OPERATORS ARE USED IN SUCCESSION." -100 PRINT -110 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -120 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -130 PRINT -140 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -150 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -160 PRINT " BY THE PROCESSOR, OR" -170 PRINT -180 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -190 PRINT -200 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -210 PRINT "FOR DETAILED CRITERIA." -220 PRINT -230 PRINT " BEGIN TEST" -240 PRINT -250 LET A=4 ^ -2 -260 PRINT "VALUE ASSIGNED FOR 4 ^ -2 = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 38" -310 END diff --git a/bwbtest/NBS2/P038.run b/bwbtest/NBS2/P038.run deleted file mode 100644 index 89d1de8..0000000 --- a/bwbtest/NBS2/P038.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 38: ERROR - USE OF ADJACENT OPERATORS. - ANSI STANDARD 7.2 - -SECTION 38.1: ERROR - USE OF ADJACENT OPERATORS. - -THIS SECTION TESTS WHETHER THE PROCESSOR DETECTS AND REPORTS -A NUMERIC EXPRESSION WHICH IS IMPROPERLY FORMED BECAUSE TWO -OPERATORS ARE USED IN SUCCESSION. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -VALUE ASSIGNED FOR 4 ^ -2 = .0625 - - END TEST - -END PROGRAM 38 diff --git a/bwbtest/NBS2/P039.BAS b/bwbtest/NBS2/P039.BAS deleted file mode 100644 index 00e5b76..0000000 --- a/bwbtest/NBS2/P039.BAS +++ /dev/null @@ -1,107 +0,0 @@ -10 PRINT "PROGRAM FILE 39: ACCURACY OF ADDITION" -20 PRINT " ANSI STANDARD 7.2, 7.4, 7.6" -30 PRINT -40 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'" -50 PRINT " WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW" -60 PRINT " THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE" -70 PRINT " VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL." -80 PRINT -100 PRINT "SECTION 39.1 ACCURACY OF ADDITION." -110 PRINT -120 PRINT "THIS SECTION TESTS THE ACCURACY OF ADDITION. THE COMPUTED" -130 PRINT "RESULT IS COMPARED WITH A RANGE ESTABLISHED BY PERTURBING" -140 PRINT "EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT PASSES IF" -150 PRINT "IT FALLS WITHIN THE EXTREME VALUES GENERATED BY THIS" -160 PRINT "PERTURBATION (ACCURATE TO SIX DIGITS)." -220 PRINT -230 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -240 PRINT "DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS." -250 PRINT -260 PRINT " BEGIN TEST" -270 PRINT -280 PRINT "FIRST","SECOND","TRUE","COMPUTED","TEST" -290 PRINT "OPERAND","OPERAND","VALUE","VALUE","RESULT" -300 PRINT -310 LET F=0 -320 READ A1,A2,T,L,H -330 IF A1=999 THEN 480 -335 LET M$="PASS" -340 LET C=A1+A2 -350 IF CH THEN 380 -370 GOTO 400 -380 LET M$="FAIL" -390 LET F=F+1 -400 PRINT A1,A2,T,C,M$ -410 GOTO 320 -480 PRINT -490 IF F=0 THEN 520 -500 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -510 GOTO 530 -520 PRINT "*** INFORMATIVE TEST PASSED ***" -530 PRINT -540 PRINT " END TEST" -550 PRINT -560 PRINT "END PROGRAM 39" -570 DATA 0,0,0,0,0 -2000 DATA 0,765.432,765.432,765.431,765.433 -3000 DATA 0.876543000E+03, 0.123453000E+03, 0.999996000E+03 -3010 DATA 0.999993499E+03, 0.999998500E+03 -3020 DATA 0.811111000E-01, 0.111111000E-01, 0.922222000E-01 -3030 DATA 0.922219499E-01, 0.922224500E-01 -3040 DATA -0.579999000E+02,-0.111111000E+00,-0.581110110E+02 -3050 DATA -0.581111621E+02,-0.581108600E+02 -3060 DATA 0.111111100E+07, 0.111111100E+07, 0.222222200E+07 -3070 DATA 0.222219700E+07, 0.222224700E+07 -3080 DATA 0.654321000E+01, 0.123456000E+01, 0.777777000E+07 -3090 DATA 0.777774499E+01, 0.777779500E+01 -3100 DATA 0.654321000E-09, 0.123456000E-09, 0.777777000E-09 -3110 DATA 0.777774499E-09, 0.777779500E-09 -3120 DATA -0.654321000E-19,-0.123456000E-19,-0.777777000E-19 -3130 DATA -0.777779500E-19,-0.777774499E-19 -3140 DATA 0.654321000E-29, 0.123456000E-29, 0.777777000E-29 -3150 DATA 0.777774500E-29, 0.777779500E-29 -3160 DATA 0.654321000E-37, 0.123456000E-37, 0.777777000E-37 -3170 DATA 0.777774500E-37, 0.777779500E-37 -3180 DATA 0.123456000E+11, 0.654321000E+11, 0.777777000E+11 -3190 DATA 0.777774500E+11, 0.777779500E+11 -3200 DATA -0.123456000E+21,-0.654321000E+21,-0.777777000E+21 -3210 DATA -0.777779500E+21,-0.777774500E+21 -3220 DATA 0.123456000E+31, 0.654321000E+31, 0.777777000E+31 -3230 DATA 0.777774499E+31, 0.777779500E+31 -3240 DATA 0.123456000E+38, 0.654321000E+38, 0.777777000E+38 -3250 DATA 0.777774499E+38, 0.777779500E+38 -3260 DATA 0.499997000E-01, 0.499996000E-01, 0.999993000E-01 -3270 DATA 0.999990499E-01, 0.999995500E-01 -3280 DATA 0.999993000E-01, 0.400000000E-06, 0.999997000E-01 -3290 DATA 0.999995499E-01, 0.999998501E-01 -3300 DATA 0.999993000E-01, 0.400000000E-07, 0.999993400E-01 -3310 DATA 0.999991899E-01, 0.999994901E-01 -3320 DATA 0.999993000E-01, 0.400000000E-08, 0.999993040E-01 -3330 DATA 0.999991539E-01, 0.999994541E-01 -3340 DATA 0.999993000E-01, 0.400000000E-09, 0.999993004E-01 -3350 DATA 0.999991503E-01, 0.999994505E-01 -3360 DATA 0.999993000E-01, 0.400000000E-10, 0.999993000E-01 -3370 DATA 0.999991500E-01, 0.999994501E-01 -3380 DATA -0.102030400E+07, 0.400000000E+01,-0.102030000E+07 -3390 DATA -0.102031501E+07,-0.102028499E+07 -3400 DATA 0.102030400E+07,-0.304000000E+03, 0.102000000E+07 -3410 DATA 0.101998499E+07, 0.102001501E+07 -3420 DATA -0.102030400E+07, 0.203040000E+05,-0.100000000E+07 -3430 DATA -0.100001501E+07,-0.999989400E+06 -3440 DATA -0.102030400E+07, 0.102030400E+07, 0.000000000E+00 -3450 DATA -0.200000500E+02, 0.200000500E+02 -3460 DATA -0.102030400E+00, 0.400000000E-06,-0.102030000E+00 -3470 DATA -0.102031501E+00,-0.102028499E+00 -3480 DATA 0.102030400E+00,-0.304000000E-04, 0.102000000E+00 -3490 DATA 0.101998499E+00, 0.102001501E+00 -3500 DATA -0.102030400E+00, 0.203040000E-02,-0.100000000E+00 -3510 DATA -0.100001501E+00,-0.999989400E-01 -3520 DATA -0.102030400E+00, 0.102030400E+00, 0.000000000E+00 -3530 DATA -0.200000500E-05, 0.200000500E-05 -3540 DATA -0.102030400E+00, 0.102030300E+00,-0.100000000E-06 -3550 DATA -0.210000501E-05, 0.190000500E+00 -3560 DATA -0.102030400E+00, 0.102030500E+00, 0.100000000E-06 -3570 DATA -0.190000500E-05, 0.210000501E-05 -5000 DATA 999,0,0,0,0 -5010 END diff --git a/bwbtest/NBS2/P039.run b/bwbtest/NBS2/P039.run deleted file mode 100644 index 1f3912b..0000000 --- a/bwbtest/NBS2/P039.run +++ /dev/null @@ -1,61 +0,0 @@ -PROGRAM FILE 39: ACCURACY OF ADDITION - ANSI STANDARD 7.2, 7.4, 7.6 - -*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA' - WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW - THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE - VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL. - -SECTION 39.1 ACCURACY OF ADDITION. - -THIS SECTION TESTS THE ACCURACY OF ADDITION. THE COMPUTED -RESULT IS COMPARED WITH A RANGE ESTABLISHED BY PERTURBING -EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT PASSES IF -IT FALLS WITHIN THE EXTREME VALUES GENERATED BY THIS -PERTURBATION (ACCURATE TO SIX DIGITS). - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS. - - BEGIN TEST - -FIRST SECOND TRUE COMPUTED TEST -OPERAND OPERAND VALUE VALUE RESULT - - 0 0 0 0 PASS - 0 765.432 765.432 765.432 PASS - 876.543 123.453 999.996 999.996 PASS - 8.11111E-2 1.11111E-2 9.22222E-2 9.22222E-2 PASS --57.9999 -.111111 -58.111 -58.111 PASS - 1.11111E+6 1.11111E+6 2.22222E+6 2.22222E+6 PASS - 6.54321 1.23456 7.77777E+6 7.77777 PASS - 6.54321E-10 1.23456E-10 7.77777E-10 7.77777E-10 PASS --6.54321E-20 -1.23456E-20 -7.77777E-20 -7.77777E-20 PASS - 6.54321E-30 1.23456E-30 7.77777E-30 7.77777E-30 PASS - 6.54321E-38 1.23456E-38 7.77777E-38 7.77777E-38 PASS - 1.23456E+10 6.54321E+10 7.77777E+10 7.77777E+10 PASS --1.23456E+20 -6.54321E+20 -7.77777E+20 -7.77777E+20 PASS - 1.23456E+30 6.54321E+30 7.77777E+30 7.77777E+30 PASS - 1.23456E+37 6.54321E+37 7.77777E+37 7.77777E+37 PASS - 4.99997E-2 4.99996E-2 9.99993E-2 9.99993E-2 PASS - 9.99993E-2 4.E-7 9.99997E-2 9.99997E-2 PASS - 9.99993E-2 4.E-8 9.99993E-2 9.99993E-2 PASS - 9.99993E-2 4.E-9 9.99993E-2 9.99993E-2 PASS - 9.99993E-2 4.E-10 9.99993E-2 9.99993E-2 PASS - 9.99993E-2 4.E-11 9.99993E-2 9.99993E-2 PASS --1.0203E+6 4 -1.0203E+6 -1.0203E+6 PASS - 1.0203E+6 -304 1.02E+6 1.02E+6 PASS --1.0203E+6 20304 -1.E+6 -1.E+6 PASS --1.0203E+6 1.0203E+6 0 0 PASS --.10203 4.E-7 -.10203 -.10203 PASS - .10203 -3.04E-5 .102 .102 PASS --.10203 2.0304E-3 -.1 -.1 PASS --.10203 .10203 0 0 PASS --.10203 .10203 -1.E-7 -1.E-7 PASS --.10203 .10203 1.E-7 1.E-7 PASS - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 39 diff --git a/bwbtest/NBS2/P040.BAS b/bwbtest/NBS2/P040.BAS deleted file mode 100644 index 4897c77..0000000 --- a/bwbtest/NBS2/P040.BAS +++ /dev/null @@ -1,107 +0,0 @@ -10 PRINT "PROGRAM FILE 40: ACCURACY OF SUBTRACTION" -20 PRINT " ANSI STANDARD 7.2, 7.4, 7.6" -30 PRINT -40 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'" -50 PRINT " WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW" -60 PRINT " THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE" -70 PRINT " VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL." -80 PRINT -100 PRINT "SECTION 40.1 ACCURACY OF SUBTRACTION." -110 PRINT -120 PRINT "THIS SECTION TESTS THE ACCURACY OF SUBTRACTION. THE COMPUTED" -130 PRINT "RESULT IS COMPARED WITH A RANGE ESTABLISHED BY PERTURBING" -140 PRINT "EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT PASSES IF" -150 PRINT "IT FALLS WITHIN THE EXTREME VALUES GENERATED BY THIS" -160 PRINT "PERTURBATION (ACCURATE TO SIX DIGITS)." -220 PRINT -230 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -240 PRINT "DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS." -250 PRINT -260 PRINT " BEGIN TEST" -270 PRINT -280 PRINT "FIRST","SECOND","TRUE","COMPUTED","TEST" -290 PRINT "OPERAND","OPERAND","VALUE","VALUE","RESULT" -300 PRINT -310 LET F=0 -320 READ A1,A2,T,L,H -330 IF A1=999 THEN 480 -335 LET M$="PASS" -340 LET C=A1-A2 -350 IF CH THEN 380 -370 GOTO 400 -380 LET M$="FAIL" -390 LET F=F+1 -400 PRINT A1,A2,T,C,M$ -410 GOTO 320 -480 PRINT -490 IF F=0 THEN 520 -500 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -510 GOTO 530 -520 PRINT "*** INFORMATIVE TEST PASSED ***" -530 PRINT -540 PRINT " END TEST" -550 PRINT -560 PRINT "END PROGRAM 40" -570 DATA 0,0,0,0,0 -2000 DATA 0,-765.432,765.432,765.431,765.433 -3000 DATA 0.876543000E+03,-0.123453000E+03, 0.999996000E+03 -3010 DATA 0.999993499E+03, 0.999998500E+03 -3020 DATA 0.811111000E-01,-0.111111000E-01, 0.922222000E-01 -3030 DATA 0.922219499E-01, 0.922224500E-01 -3040 DATA -0.579999000E+02, 0.111111000E+00,-0.581110110E+02 -3050 DATA -0.581111621E+02,-0.581108600E+02 -3060 DATA 0.111111100E+07,-0.111111100E+07, 0.222222200E+07 -3070 DATA 0.222219700E+07, 0.222224700E+07 -3080 DATA 0.654321000E+01,-0.123456000E+01, 0.777777000E+01 -3090 DATA 0.777774499E+01, 0.777779500E+01 -3100 DATA 0.654321000E-09,-0.123456000E-09, 0.777777000E-09 -3110 DATA 0.777774499E-09, 0.777779500E-09 -3120 DATA -0.654321000E-19, 0.123456000E-19,-0.777777000E-19 -3130 DATA -0.777779500E-19,-0.777774499E-19 -3140 DATA 0.654321000E-29,-0.123456000E-29, 0.777777000E-29 -3150 DATA 0.777774500E-29, 0.777779500E-29 -3160 DATA 0.654321000E-37,-0.123456000E-37, 0.777777000E-37 -3170 DATA 0.777774500E-37, 0.777779500E-37 -3180 DATA 0.123456000E+11,-0.654321000E+11, 0.777777000E+11 -3190 DATA 0.777774500E+11, 0.777779500E+11 -3200 DATA -0.123456000E+21, 0.654321000E+21,-0.777777000E+21 -3210 DATA -0.777779500E+21,-0.777774500E+21 -3220 DATA 0.123456000E+31,-0.654321000E+31, 0.777777000E+31 -3230 DATA 0.777774499E+31, 0.777779500E+31 -3240 DATA 0.123456000E+38,-0.654321000E+38, 0.777777000E+38 -3250 DATA 0.777774499E+38, 0.777779500E+38 -3260 DATA 0.499997000E-01,-0.499996000E-01, 0.999993000E-01 -3270 DATA 0.999990499E-01, 0.999995500E-01 -3280 DATA 0.999993000E-01,-0.400000000E-06, 0.999997000E-01 -3290 DATA 0.999995499E-01, 0.999998501E-01 -3300 DATA 0.999993000E-01,-0.400000000E-07, 0.999993040E-01 -3310 DATA 0.999991899E-01, 0.999994901E-01 -3320 DATA 0.999993000E-01,-0.400000000E-08, 0.999993040E-01 -3330 DATA 0.999991539E-01, 0.999994541E-01 -3340 DATA 0.999993000E-01,-0.400000000E-09, 0.999993004E-01 -3350 DATA 0.999991503E-01, 0.999994505E-01 -3360 DATA 0.999993000E-01,-0.400000000E-10, 0.999993000E-01 -3370 DATA 0.999991500E-01, 0.999994501E-01 -3380 DATA -0.102030400E+07,-0.400000000E+01,-0.102030000E+07 -3390 DATA -0.102031501E+07,-0.102028499E+07 -3400 DATA 0.102030400E+07, 0.304000000E+03, 0.102000000E+07 -3410 DATA 0.101998499E+07, 0.102001501E+07 -3420 DATA -0.102030400E+07,-0.203040000E+05,-0.100000000E+07 -3430 DATA -0.100001510E+07,-0.999989400E+06 -3440 DATA -0.102030400E+07,-0.102030400E+07, 0.000000000E+00 -3450 DATA -0.200000500E+02, 0.200000500E+02 -3460 DATA -0.102030400E+00,-0.400000000E-06,-0.102030000E+00 -3470 DATA -0.102031501E+00,-0.102028499E+00 -3480 DATA 0.102030400E+00, 0.304000000E-04, 0.102000000E+00 -3490 DATA 0.101998499E+00, 0.102001501E+00 -3500 DATA -0.102030400E+00,-0.203040000E-02,-0.100000000E+00 -3510 DATA -0.100001501E+00,-0.999989400E-01 -3520 DATA -0.102030400E+00,-0.102030400E+00, 0.000000000E+00 -3530 DATA -0.200000500E-05, 0.200000500E-05 -3540 DATA -0.102030400E+00,-0.102030300E+00,-0.100000000E-06 -3550 DATA -0.210000501E-05, 0.190000500E-05 -3560 DATA -0.102030400E+00,-0.102030500E+00, 0.100000000E-06 -3570 DATA -0.190000500E-05, 0.210000501E-05 -5000 DATA 999,0,0,0,0 -5010 END diff --git a/bwbtest/NBS2/P040.run b/bwbtest/NBS2/P040.run deleted file mode 100644 index 2b2a6ae..0000000 --- a/bwbtest/NBS2/P040.run +++ /dev/null @@ -1,61 +0,0 @@ -PROGRAM FILE 40: ACCURACY OF SUBTRACTION - ANSI STANDARD 7.2, 7.4, 7.6 - -*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA' - WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW - THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE - VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL. - -SECTION 40.1 ACCURACY OF SUBTRACTION. - -THIS SECTION TESTS THE ACCURACY OF SUBTRACTION. THE COMPUTED -RESULT IS COMPARED WITH A RANGE ESTABLISHED BY PERTURBING -EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT PASSES IF -IT FALLS WITHIN THE EXTREME VALUES GENERATED BY THIS -PERTURBATION (ACCURATE TO SIX DIGITS). - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS. - - BEGIN TEST - -FIRST SECOND TRUE COMPUTED TEST -OPERAND OPERAND VALUE VALUE RESULT - - 0 0 0 0 PASS - 0 -765.432 765.432 765.432 PASS - 876.543 -123.453 999.996 999.996 PASS - 8.11111E-2 -1.11111E-2 9.22222E-2 9.22222E-2 PASS --57.9999 .111111 -58.111 -58.111 PASS - 1.11111E+6 -1.11111E+6 2.22222E+6 2.22222E+6 PASS - 6.54321 -1.23456 7.77777 7.77777 PASS - 6.54321E-10 -1.23456E-10 7.77777E-10 7.77777E-10 PASS --6.54321E-20 1.23456E-20 -7.77777E-20 -7.77777E-20 PASS - 6.54321E-30 -1.23456E-30 7.77777E-30 7.77777E-30 PASS - 6.54321E-38 -1.23456E-38 7.77777E-38 7.77777E-38 PASS - 1.23456E+10 -6.54321E+10 7.77777E+10 7.77777E+10 PASS --1.23456E+20 6.54321E+20 -7.77777E+20 -7.77777E+20 PASS - 1.23456E+30 -6.54321E+30 7.77777E+30 7.77777E+30 PASS - 1.23456E+37 -6.54321E+37 7.77777E+37 7.77777E+37 PASS - 4.99997E-2 -4.99996E-2 9.99993E-2 9.99993E-2 PASS - 9.99993E-2 -4.E-7 9.99997E-2 9.99997E-2 PASS - 9.99993E-2 -4.E-8 9.99993E-2 9.99993E-2 PASS - 9.99993E-2 -4.E-9 9.99993E-2 9.99993E-2 PASS - 9.99993E-2 -4.E-10 9.99993E-2 9.99993E-2 PASS - 9.99993E-2 -4.E-11 9.99993E-2 9.99993E-2 PASS --1.0203E+6 -4 -1.0203E+6 -1.0203E+6 PASS - 1.0203E+6 304 1.02E+6 1.02E+6 PASS --1.0203E+6 -20304 -1.E+6 -1.E+6 PASS --1.0203E+6 -1.0203E+6 0 0 PASS --.10203 -4.E-7 -.10203 -.10203 PASS - .10203 3.04E-5 .102 .102 PASS --.10203 -2.0304E-3 -.1 -.1 PASS --.10203 -.10203 0 0 PASS --.10203 -.10203 -1.E-7 -1.E-7 PASS --.10203 -.10203 1.E-7 1.E-7 PASS - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 40 diff --git a/bwbtest/NBS2/P041.BAS b/bwbtest/NBS2/P041.BAS deleted file mode 100644 index 9b203b8..0000000 --- a/bwbtest/NBS2/P041.BAS +++ /dev/null @@ -1,84 +0,0 @@ -10 PRINT "PROGRAM FILE 41: ACCURACY OF MULTIPLICATION" -20 PRINT " ANSI STANDARD 7.2, 7.4, 7.6" -30 PRINT -40 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'" -50 PRINT " WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW" -60 PRINT " THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE" -70 PRINT " VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL." -80 PRINT -100 PRINT "SECTION 41.1 ACCURACY OF MULTIPLICATION." -110 PRINT -120 PRINT "THIS SECTION TESTS THE ACCURACY OF MULTIPLICATION. THE " -130 PRINT "COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY" -140 PRINT "PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT" -150 PRINT "PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY" -160 PRINT "THIS PERTURBATION (ACCURATE TO SIX DIGITS)." -220 PRINT -230 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -240 PRINT "DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS." -250 PRINT -260 PRINT " BEGIN TEST" -270 PRINT -280 PRINT "FIRST","SECOND","TRUE","COMPUTED","TEST" -290 PRINT "OPERAND","OPERAND","VALUE","VALUE","RESULT" -300 PRINT -310 LET F=0 -320 READ A1,A2,T,L,H -330 IF A1=999 THEN 480 -335 LET M$="PASS" -340 LET C=A1*A2 -350 IF CH THEN 380 -370 GOTO 400 -380 LET M$="FAIL" -390 LET F=F+1 -400 PRINT A1,A2,T,C,M$ -410 GOTO 320 -480 PRINT -490 IF F=0 THEN 520 -500 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -510 GOTO 530 -520 PRINT "*** INFORMATIVE TEST PASSED ***" -530 PRINT -540 PRINT " END TEST" -550 PRINT -560 PRINT "END PROGRAM 41" -2000 DATA 0,0,0,0,0 -2010 DATA -3.12345,0,0,0,0 -2020 DATA -0,6.68589E37,0,0,0 -3000 DATA 0.390625000E+01, 0.524288000E+01, 0.204800000E+02 -3010 DATA 0.204798585E+02, 0.204801415E+02 -3020 DATA 0.646469000E-10, 0.336466000E+11, 0.217514839E+01 -3030 DATA 0.217513355E+01, 0.217516322E+01 -3040 DATA 0.646469000E-37, 0.336466000E+38, 0.217514839E+01 -3050 DATA 0.217513355E+01, 0.217516322E+01 -3060 DATA 0.465728000E+00, 0.447578000E+38, 0.208449607E+38 -3070 DATA 0.208448193E+38, 0.208451021E+38 -3080 DATA 0.348799000E+01, 0.658589000E+37, 0.229715185E+38 -3090 DATA 0.229713677E+38, 0.229716692E+38 -3100 DATA 0.448588000E+11, 0.888898000E+27, 0.398748976E+38 -3110 DATA 0.398747138E+38, 0.398750814E+38 -3120 DATA 0.995855000E+19, 0.944647000E+19, 0.940731438E+38 -3130 DATA 0.940728997E+38, 0.940733879E+38 -3140 DATA 0.995855000E-19, 0.944647000E-18, 0.940731438E-37 -3150 DATA 0.940728997E-37, 0.940733879E-37 -3160 DATA 0.995855000E-29, 0.944647000E-08, 0.940731438E-37 -3170 DATA 0.940728997E-37, 0.940733879E-37 -3180 DATA 0.995855000E-37, 0.944647000E-00, 0.940731438E-37 -3190 DATA 0.940728997E-37, 0.940733879E-37 -3200 DATA 0.999000000E+00, 0.999000000E+00, 0.998001000E+00 -3210 DATA 0.997998502E+00, 0.998003499E+00 -3220 DATA 0.774758000E+06, 0.758675000E+06, 0.587789526E+12 -3230 DATA 0.587787492E+12, 0.587791560E+12 -3240 DATA 0.365341000E+05,-0.338383000E-02,-0.123625184E+03 -3250 DATA -0.123626388E+03,-0.123623979E+03 -3260 DATA -0.989878000E-01, 0.985342000E-01,-0.975368368E-02 -3270 DATA -0.975370844E-02,-0.975365893E-02 -3280 DATA -0.228373000E+00,-0.955664000E+03, 0.218247855E+03 -3290 DATA 0.218246170E+03, 0.218249539E+03 -3300 DATA 0.390625000E+00,-0.248864000E+00,-0.972125000E-01 -3310 DATA -0.972131895E-01,-0.972118105E-01 -3320 DATA -0.390625000E-29, 0.248864000E+33,-0.972125000E+03 -3330 DATA -0.972131895E+03,-0.972118105E+03 -5000 DATA 999,0,0,0,0 -5010 END diff --git a/bwbtest/NBS2/P041.run b/bwbtest/NBS2/P041.run deleted file mode 100644 index e998a3e..0000000 --- a/bwbtest/NBS2/P041.run +++ /dev/null @@ -1,50 +0,0 @@ -PROGRAM FILE 41: ACCURACY OF MULTIPLICATION - ANSI STANDARD 7.2, 7.4, 7.6 - -*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA' - WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW - THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE - VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL. - -SECTION 41.1 ACCURACY OF MULTIPLICATION. - -THIS SECTION TESTS THE ACCURACY OF MULTIPLICATION. THE -COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY -PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT -PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY -THIS PERTURBATION (ACCURATE TO SIX DIGITS). - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS. - - BEGIN TEST - -FIRST SECOND TRUE COMPUTED TEST -OPERAND OPERAND VALUE VALUE RESULT - - 0 0 0 0 PASS --3.12345 0 0 0 PASS - 0 6.68589E+37 0 0 PASS - 3.90625 5.24288 20.48 20.48 PASS - 6.46469E-11 3.36466E+10 2.17515 2.17515 PASS - 6.46469E-38 3.36466E+37 2.17515 2.17515 PASS - .465728 4.47578E+37 2.0845E+37 2.0845E+37 PASS - 3.48799 6.58589E+36 2.29715E+37 2.29715E+37 PASS - 4.48588E+10 8.88898E+26 3.98749E+37 3.98749E+37 PASS - 9.95855E+18 9.44647E+18 9.40731E+37 9.40731E+37 PASS - 9.95855E-20 9.44647E-19 9.40731E-38 9.40731E-38 PASS - 9.95855E-30 9.44647E-9 9.40731E-38 9.40731E-38 PASS - 9.95855E-38 .944647 9.40731E-38 9.40731E-38 PASS - .999 .999 .998001 .998001 PASS - 774758 758675 5.8779E+11 5.8779E+11 PASS - 36534.1 -3.38383E-3 -123.625 -123.625 PASS --9.89878E-2 9.85342E-2 -9.75368E-3 -9.75368E-3 PASS --.228373 -955.664 218.248 218.248 PASS - .390625 -.248864 -9.72125E-2 -9.72125E-2 PASS --3.90625E-30 2.48864E+32 -972.125 -972.125 PASS - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 41 diff --git a/bwbtest/NBS2/P042.BAS b/bwbtest/NBS2/P042.BAS deleted file mode 100644 index eeecb5a..0000000 --- a/bwbtest/NBS2/P042.BAS +++ /dev/null @@ -1,74 +0,0 @@ -10 PRINT "PROGRAM FILE 42: ACCURACY OF DIVISION" -20 PRINT " ANSI STANDARD 7.2, 7.4, 7.6" -30 PRINT -40 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'" -50 PRINT " WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW" -60 PRINT " THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE" -70 PRINT " VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL." -80 PRINT -100 PRINT "SECTION 42.1 ACCURACY OF DIVISION." -110 PRINT -120 PRINT "THIS SECTION TESTS THE ACCURACY OF DIVISION. THE " -130 PRINT "COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY" -140 PRINT "PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT" -150 PRINT "PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY" -160 PRINT "THIS PERTURBATION (ACCURATE TO SIX DIGITS)." -220 PRINT -230 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -240 PRINT "DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS." -250 PRINT -260 PRINT " BEGIN TEST" -270 PRINT -280 PRINT "FIRST","SECOND","TRUE","COMPUTED","TEST" -290 PRINT "OPERAND","OPERAND","VALUE","VALUE","RESULT" -300 PRINT -310 LET F=0 -320 READ A1,A2,T,L,H -330 IF A1=999 THEN 480 -335 LET M$="PASS" -340 LET C=A1/A2 -350 IF CH THEN 380 -370 GOTO 400 -380 LET M$="FAIL" -390 LET F=F+1 -400 PRINT A1,A2,T,C,M$ -410 GOTO 320 -480 PRINT -490 IF F=0 THEN 520 -500 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -510 GOTO 530 -520 PRINT "*** INFORMATIVE TEST PASSED ***" -530 PRINT -540 PRINT " END TEST" -550 PRINT -560 PRINT "END PROGRAM 42" -2000 DATA 0,-74.7589,0,0,0 -3000 DATA 0.972125000E+13, 0.248864000E-02, 0.390625000E+16 -3010 DATA 0.390622528E+16, 0.390627472E+16 -3020 DATA -0.972125000E-04,-0.248864000E+14, 0.390625000E-17 -3030 DATA 0.390622528E-17, 0.390627472E-17 -3040 DATA 0.936467000E-01, 0.954647000E-01, 0.980956312E+00 -3050 DATA 0.980953736E+00, 0.980958887E+00 -3060 DATA 0.376465000E+38, 0.895857000E+38, 0.420228898E+00 -3070 DATA 0.420226812E+00, 0.420230984E+00 -3080 DATA 0.958764000E+18, 0.558589000E+16, 0.171640329E+03 -3090 DATA 0.171639343E+03, 0.171641316E+03 -3100 DATA -0.457858000E-16,-0.879796000E-13, 0.520413823E-03 -3110 DATA 0.520411595E-03, 0.520416052E-03 -3120 DATA 0.237847000E-37, 0.117265000E-37, 0.202828636E+01 -3130 DATA 0.202825553E+01, 0.202831619E+01 -3140 DATA 0.684776000E+38,-0.697536000E+00,-0.981707037E+38 -3150 DATA -0.981710379E+38,-0.981703696E+38 -3160 DATA -0.346756000E+21, 0.222736000E-16,-0.155680267E+38 -3170 DATA -0.155681916E+38,-0.155678619E+38 -3200 DATA 0.987645000E+00, 0.987897000E-37, 0.999744913E+37 -3210 DATA 0.999742388E+37, 0.999747437E+37 -3220 DATA -0.447563000E-36, 0.668575000E+01,-0.669428262E-37 -3230 DATA -0.669431259E-37,-0.669425264E-37 -3240 DATA 0.857653000E-19,-0.889763000E+18,-0.963911738E-37 -3250 DATA -0.963914446E-37,-0.963909031E-37 -3260 DATA -0.557645000E+01,-0.786453000E+38, 0.709063352E-37 -3270 DATA 0.709060678E-37, 0.709066025E-37 -5000 DATA 999,0,0,0,0 -5010 END diff --git a/bwbtest/NBS2/P042.run b/bwbtest/NBS2/P042.run deleted file mode 100644 index b01a7ce..0000000 --- a/bwbtest/NBS2/P042.run +++ /dev/null @@ -1,44 +0,0 @@ -PROGRAM FILE 42: ACCURACY OF DIVISION - ANSI STANDARD 7.2, 7.4, 7.6 - -*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA' - WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW - THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE - VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL. - -SECTION 42.1 ACCURACY OF DIVISION. - -THIS SECTION TESTS THE ACCURACY OF DIVISION. THE -COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY -PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT -PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY -THIS PERTURBATION (ACCURATE TO SIX DIGITS). - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS. - - BEGIN TEST - -FIRST SECOND TRUE COMPUTED TEST -OPERAND OPERAND VALUE VALUE RESULT - - 0 -74.7589 0 0 PASS - 9.72125E+12 2.48864E-3 3.90625E+15 3.90625E+15 PASS --9.72125E-5 -2.48864E+13 3.90625E-18 3.90625E-18 PASS - 9.36467E-2 9.54647E-2 .980956 .980956 PASS - 3.76465E+37 8.95857E+37 .420229 .420229 PASS - 9.58764E+17 5.58589E+15 171.64 171.64 PASS --4.57858E-17 -8.79796E-14 5.20414E-4 5.20414E-4 PASS - 2.37847E-38 1.17265E-38 2.02829 2.02829 PASS - 6.84776E+37 -.697536 -9.81707E+37 -9.81707E+37 PASS --3.46756E+20 2.22736E-17 -1.5568E+37 -1.5568E+37 PASS - .987645 9.87897E-38 9.99745E+36 9.99745E+36 PASS --4.47563E-37 6.68575 -6.69428E-38 -6.69428E-38 PASS - 8.57653E-20 -8.89763E+17 -9.63912E-38 -9.63912E-38 PASS --5.57645 -7.86453E+37 7.09063E-38 7.09063E-38 PASS - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 42 diff --git a/bwbtest/NBS2/P043.BAS b/bwbtest/NBS2/P043.BAS deleted file mode 100644 index 088be90..0000000 --- a/bwbtest/NBS2/P043.BAS +++ /dev/null @@ -1,153 +0,0 @@ -10 PRINT "PROGRAM FILE 43: ACCURACY OF INVOLUTION" -20 PRINT " ANSI STANDARD 7.2, 7.4, 7.6" -30 PRINT -40 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'" -50 PRINT " WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW" -60 PRINT " THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE" -70 PRINT " VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL." -80 PRINT -100 PRINT "SECTION 43.1 ACCURACY OF INVOLUTION." -110 PRINT -120 PRINT "THIS SECTION TESTS THE ACCURACY OF INVOLUTION. THE " -130 PRINT "COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY" -140 PRINT "PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT" -150 PRINT "PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY" -160 PRINT "THIS PERTURBATION (ACCURATE TO SIX DIGITS)." -220 PRINT -230 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -240 PRINT "DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS." -250 PRINT -260 PRINT " BEGIN TEST" -270 PRINT -280 PRINT "FIRST","SECOND","TRUE","COMPUTED","TEST" -290 PRINT "OPERAND","OPERAND","VALUE","VALUE","RESULT" -300 PRINT -310 LET F=0 -320 READ A1,A2,T,L,H -330 IF A1=999 THEN 480 -335 LET M$="PASS" -340 LET C=A1^A2 -350 IF CH THEN 380 -370 GOTO 400 -380 LET M$="FAIL" -390 LET F=F+1 -400 PRINT A1,A2,T,C,M$ -410 GOTO 320 -480 PRINT -490 IF F=0 THEN 520 -500 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -510 GOTO 530 -520 PRINT "*** INFORMATIVE TEST PASSED ***" -530 PRINT -540 PRINT " END TEST" -550 PRINT -560 PRINT "END PROGRAM 43" -1990 REM TEST X^0=1 -2000 DATA -3.46478E33,0,1,1,1 -2010 DATA -2.36339E-36,0,1,1,1 -2020 DATA 0,0,1,1,1 -2030 DATA 3.98475E-37,0,1,1,1 -2040 DATA 9.88373E37,0,1,1,1 -2045 REM TEST 0^X=0, FOR X>0 -2050 DATA 0,3.47474E-33,0,0,0 -2060 DATA 0,8.98675E33,0,0,0 -2990 REM TEST A^X, A<-1 -3000 DATA -0.376354000E+01,-0.440000000E+02, 0.471793993E-25 -3010 DATA 0.471738338E-25, 0.471849655E-25 -3020 DATA -0.687465000E+01,-0.110000000E+02,-0.616940788E-09 -3030 DATA -0.616951160E-09,-0.616930416E-09 -3040 DATA -0.736443000E+04,-0.100000000E+01,-0.135787834E-03 -3050 DATA -0.135788519E-03,-0.135787149E-03 -3060 DATA -0.333874000E+02, 0.100000000E+01,-0.333874000E+02 -3070 DATA -0.333875500E+02,-0.333872500E+02 -3080 DATA -0.984343000E+03, 0.700000000E+01,-0.895416722E+21 -3090 DATA -0.895423590E+21,-0.895409854E+21 -3100 DATA -0.336353000E+01, 0.120000000E+02, 0.209673559E+07 -3110 DATA 0.209665578E+07, 0.209681540E+07 -3115 REM TEST -1^X -3120 DATA -0.100000000E+01,-0.330000000E+02,-0.100000000E+01 -3130 DATA -0.100033506E+01,-0.999669556E+00 -3140 DATA -0.100000000E+01,-0.600000000E+01, 0.100000000E+01 -3150 DATA 0.999939502E+00, 0.100006501E+01 -3160 DATA -0.100000000E+01,-0.100000000E+01,-0.100000000E+01 -3170 DATA -0.100001501E+01,-0.999989500E+00 -3180 DATA -0.100000000E+01, 0.100000000E+01,-0.100000000E+01 -3190 DATA -0.100001500E+01,-0.999989500E+00 -3200 DATA -0.100000000E+01, 0.800000000E+01, 0.100000000E+01 -3210 DATA 0.999919502E+00, 0.100008501E+01 -3220 DATA -0.100000000E+01, 0.900000000E+01,-0.10000000E+01 -3230 DATA -0.100009501E+01,-0.999909503E+00 -3235 REM TEST A^X, 011 -3540 DATA 0.847447000E+03,-0.985743000E+01, 0.136878595E-28 -3550 DATA 0.136867274E-28, 0.136889917E-28 -3560 DATA 0.228398000E+01,-0.937362000E+00, 0.461079137E+00 -3570 DATA 0.461076363E+00, 0.461081910E+00 -3580 DATA 0.933847000E+02, 0.928273000E-01, 0.152368565E+01 -3590 DATA 0.152367980E+01, 0.152369149E+01 -3600 DATA 0.837363000E+09, 0.298383000E+01, 0.421170346E+27 -3610 DATA 0.421081821E+27, 0.421258889E+27 -3615 REM TEST A^X, WHERE ABS(A) IS CLOSE TO 1, X IS LARGE -3620 DATA 0.999988000E+00, 0.958576000E+06, 0.100999405E-04 -3630 DATA 0.387260445E-05, 0.263410738E-04 -3640 DATA -0.999982000E+00, 0.947563000E+06,-0.391334786E-07 -3650 DATA -0.100943693E-06,-0.151711334E-07 -3660 DATA -0.999937000E+00, 0.976352000E+06, 0.193031627E-26 -3670 DATA 0.727071227E-27, 0.512483260E-26 -3680 DATA 0.100002000E+01, 0.209746500E+07, 0.165259840E+19 -3690 DATA 0.128553554E+10, 0.212444587E+28 -3700 DATA -0.100005000E+01, 0.353533000E+06,-0.474984719E+08 -3710 DATA -0.162918665E+10,-0.138475470E+07 -3720 DATA -0.100005000E+01, 0.958572000E+06, 0.652538506E+21 -3730 DATA 0.448505410E+17, 0.949298339E+25 -3735 REM TEST A^X, WHERE A^X CLOSE TO LIMITS OF 1E38, 1E-38 -3740 DATA 0.576352000E+00, 0.111000000E+03, 0.273115473E-26 -3750 DATA 0.272911951E-26, 0.273319144E-26 -3760 DATA 0.578746000E+00,-0.145432000E+03, 0.348212882E+35 -3770 DATA 0.347934556E+35, 0.348491430E+35 -3780 DATA 0.227364000E+01, 0.944756000E+02, 0.502917503E+34 -3790 DATA 0.502666781E+34, 0.503168349E+34 -3792 DATA 0.233333000E+01,-0.991234000E+02, 0.334927971E-36 -3795 DATA 0.334752354E-36, 0.335103676E-36 -3799 REM TEST A^X, WHERE A IS CLOSE TO LIMITS OF 1E38, 1E-38 -3800 DATA 0.558574000E+38, 0.976453000E-03, 0.108857473E+01 -3810 DATA 0.108856963E+01, 0.108857984E+01 -3820 DATA 0.576363000E-29, 0.172728000E-01, 0.312575800E+00 -3830 DATA 0.312573186E+00, 0.312578414E+00 -3840 DATA 0.333737000E+34,-0.953423000E-01, 0.636504568E-03 -3850 DATA 0.636498972E-03, 0.636510163E-03 -3860 DATA 0.623147000E-37,-0.936218000E-02, 0.223009693E+01 -3870 DATA 0.223004499E+01, 0.223014888E+01 -5000 DATA 999,0,0,0,0 -5010 END diff --git a/bwbtest/NBS2/P043.run b/bwbtest/NBS2/P043.run deleted file mode 100644 index a04299e..0000000 --- a/bwbtest/NBS2/P043.run +++ /dev/null @@ -1,81 +0,0 @@ -PROGRAM FILE 43: ACCURACY OF INVOLUTION - ANSI STANDARD 7.2, 7.4, 7.6 - -*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA' - WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW - THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE - VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL. - -SECTION 43.1 ACCURACY OF INVOLUTION. - -THIS SECTION TESTS THE ACCURACY OF INVOLUTION. THE -COMPUTED RESULT IS COMPARED WITH A RANGE ESTABLISHED BY -PERTURBING EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT -PASSES IF IT FALLS WITHIN THE EXTREME VALUES GENERATED BY -THIS PERTURBATION (ACCURATE TO SIX DIGITS). - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS. - - BEGIN TEST - -FIRST SECOND TRUE COMPUTED TEST -OPERAND OPERAND VALUE VALUE RESULT - --3.46478E+33 0 1 1 PASS --2.36339E-36 0 1 1 PASS - 0 0 1 1 PASS - 3.98475E-37 0 1 1 PASS - 9.88373E+37 0 1 1 PASS - 0 3.47474E-33 0 0 PASS - 0 8.98675E+33 0 0 PASS --3.76354 -44 4.71794E-26 4.71794E-26 PASS --6.87465 -11 -6.16941E-10 -6.16941E-10 PASS --7364.43 -1 -1.35788E-4 -1.35788E-4 PASS --33.3874 1 -33.3874 -33.3874 PASS --984.343 7 -8.95417E+20 -8.95417E+20 PASS --3.36353 12 2.09674E+6 2.09674E+6 PASS --1 -33 -1 -1 PASS --1 -6 1 1 PASS --1 -1 -1 -1 PASS --1 1 -1 -1 PASS --1 8 1 1 PASS --1 9 -1 -1 PASS --.474653 -22 1.31742E+7 1.31742E+7 PASS --2.25242E-3 3 -1.14274E-8 -1.14274E-8 PASS --5.34278E-5 6 2.32597E-26 2.32597E-26 PASS --.272625 9 -8.31938E-6 -8.31938E-6 PASS - .363544 -36.3353 9.27457E+15 9.27457E+15 PASS - 4.63542E-3 -1 215.73 215.73 PASS - 2.98746E-5 -2.63545E-3 1.02784 1.02784 PASS - .226399 .847574 .283928 .283928 PASS - 9.98476E-2 1 9.98476E-2 9.98476E-2 PASS - 9.74653E-2 14.3654 2.98144E-15 2.98144E-15 PASS - 1 -22.2222 1 1 PASS - 1 -4.64533E-2 1 1 PASS - 1 9.93764E-2 1 1 PASS - 1 18.7564 1 1 PASS - 847.447 -9.85743 1.36879E-29 1.36879E-29 PASS - 2.28398 -.937362 .461079 .461079 PASS - 93.3847 9.28273E-2 1.52369 1.52369 PASS - 8.37363E+8 2.98383 4.2117E+26 4.2117E+26 PASS - .999988 958576 1.00999E-5 1.00999E-5 PASS --.999982 947563 -3.91335E-8 -3.91335E-8 PASS --.999937 976352 1.93032E-27 1.93032E-27 PASS - 1.00002 2.09746E+6 1.6526E+18 1.6526E+18 PASS --1.00005 353533 -4.74985E+7 -4.74985E+7 PASS --1.00005 958572 6.52539E+20 6.52539E+20 PASS - .576352 111 2.73115E-27 2.73115E-27 PASS - .578746 -145.432 3.48213E+34 3.48213E+34 PASS - 2.27364 94.4756 5.02918E+33 5.02918E+33 PASS - 2.33333 -99.1234 3.34928E-37 3.34928E-37 PASS - 5.58574E+37 9.76453E-4 1.08857 1.08857 PASS - 5.76363E-30 1.72728E-2 .312576 .312576 PASS - 3.33737E+33 -9.53423E-2 6.36505E-4 6.36505E-4 PASS - 6.23147E-38 -9.36218E-3 2.2301 2.2301 PASS - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 43 diff --git a/bwbtest/NBS2/P044.BAS b/bwbtest/NBS2/P044.BAS deleted file mode 100644 index 11150ed..0000000 --- a/bwbtest/NBS2/P044.BAS +++ /dev/null @@ -1,120 +0,0 @@ -10 PRINT "PROGRAM FILE 44: ELEMENTARY USE OF THE FOR-STATEMENT." -20 PRINT " ANSI STANDARD 11.2, 11.4" -30 PRINT -40 PRINT "SECTION 44.1: ELEMENTARY USE OF THE FOR-STATEMENT." -50 PRINT -60 PRINT "THIS SECTION TESTS A SIMPLE FOR-NEXT CONSTRUCTION WITH" -70 PRINT "A VARIETY OF VALUES FOR THE INITIAL-VALUE, LIMIT, AND" -80 PRINT "INCREMENT. TO PASS THE TEST, THE CONTROL-VARIABLE MUST" -90 PRINT "TAKE ON THE APPROPRIATE VALUES AND THE LOOP MUST BE EXECUTED" -100 PRINT "THE CORRECT NUMBER OF TIMES." -110 PRINT -120 PRINT " BEGIN TEST." -130 LET F=0 -140 PRINT -150 LET A1=.0987789 -160 LET B1=.09878 -170 LET C1=3E-7 -180 LET T2=4 -190 GOSUB 3000 -200 LET A1=5 -210 LET B1=8 -220 LET C1=-1 -230 LET T2=0 -240 GOSUB 3000 -250 LET A1=8 -260 LET B1=5 -270 LET C1=1 -280 LET T2=0 -290 GOSUB 3000 -300 LET A1=8 -310 LET B1=-5 -320 LET C1=-3 -330 LET T2=5 -340 GOSUB 3000 -350 LET A1=-1.7 -360 LET B1=2.6 -370 LET C1=.27 -380 LET T2=16 -390 GOSUB 3000 -400 LET A1=11 -410 LET B1=-7 -420 LET C1=-3 -430 LET T2=7 -440 GOSUB 3000 -450 LET A1=2 -460 LET B1=2 -470 LET C1=20 -480 LET T2=1 -490 GOSUB 3000 -500 LET A1=1.234E20 -510 LET B1=-4.321E20 -520 LET C1=-8.7E19 -530 LET T2=7 -540 GOSUB 3000 -550 LET A1=0 -560 LET B1=0 -570 LET C1=-2 -580 LET T2=1 -590 GOSUB 3000 -2000 PRINT -2010 IF F=0 THEN 2040 -2020 PRINT "*** TEST FAILED IN ";F;" CASE(S) ***" -2030 GOTO 2050 -2040 PRINT "*** TEST PASSED ***" -2050 PRINT -2060 PRINT " END TEST." -2070 PRINT -2080 PRINT "END PROGRAM 44" -2090 STOP -3000 REM SUBROUTINE TO TEST VARIOUS VALUES IN THE FOR-LOOP -3010 PRINT -3020 PRINT "LOOP IS: FOR I1=";A1;" TO ";B1;" STEP ";C1 -3030 PRINT -3040 PRINT "CONTROL VARIABLE:" -3050 PRINT "SHOULD BE","ACTUAL","RESULT" -3060 LET A2=A1 -3070 LET B2=B1 -3080 LET C2=C1 -3090 LET I2=A2 -3100 REM S1 IS ERROR SWITCH -3110 LET S1=0 -3120 REM T1 IS LOOP COUNT -3130 LET T1=0 -3140 FOR I1=A1 TO B1 STEP C1 -3150 LET T1=T1+1 -3160 LET M$=" OK " -3170 IF I1=0 THEN 3220 -3180 LET R=(I2-I1)/I1 -3190 IF R<-1E-6 THEN 3230 -3200 IF R>1E-6 THEN 3230 -3210 GOTO 3250 -3220 IF I2=0 THEN 3250 -3230 LET M$="FAILED" -3240 LET S1=1 -3250 PRINT I2,I1,M$ -3260 LET I2=I2+C2 -3270 NEXT I1 -3280 PRINT "LOOP EXITED" -3290 LET M$=" OK " -3300 IF I1=0 THEN 3350 -3310 LET R=(I2-I1)/I1 -3320 IF R<-1E-6 THEN 3360 -3330 IF R>1E-6 THEN 3360 -3340 GOTO 3380 -3350 IF I2=0 THEN 3380 -3360 LET M$="FAILED" -3370 LET S1=1 -3380 PRINT I2,I1,M$ -3390 LET M$=" OK " -3400 IF T1=T2 THEN 3425 -3410 LET M$="FAILED" -3420 LET S1=1 -3425 PRINT -3430 PRINT "NO. TIMES THROUGH LOOP:" -3440 PRINT "SHOULD BE: ";T2;" ACTUAL: ";T1;" RESULT: ";M$ -3450 PRINT -3455 PRINT "-----------------------------------------------" -3460 LET F=F+S1 -3470 RETURN -3480 END diff --git a/bwbtest/NBS2/P044.run b/bwbtest/NBS2/P044.run deleted file mode 100644 index 54bd8d4..0000000 --- a/bwbtest/NBS2/P044.run +++ /dev/null @@ -1,170 +0,0 @@ -PROGRAM FILE 44: ELEMENTARY USE OF THE FOR-STATEMENT. - ANSI STANDARD 11.2, 11.4 - -SECTION 44.1: ELEMENTARY USE OF THE FOR-STATEMENT. - -THIS SECTION TESTS A SIMPLE FOR-NEXT CONSTRUCTION WITH -A VARIETY OF VALUES FOR THE INITIAL-VALUE, LIMIT, AND -INCREMENT. TO PASS THE TEST, THE CONTROL-VARIABLE MUST -TAKE ON THE APPROPRIATE VALUES AND THE LOOP MUST BE EXECUTED -THE CORRECT NUMBER OF TIMES. - - BEGIN TEST. - - -LOOP IS: FOR I1= 9.87789E-2 TO .09878 STEP 3.E-7 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 9.87789E-2 9.87789E-2 OK - 9.87792E-2 9.87792E-2 OK - 9.87795E-2 9.87795E-2 OK - 9.87798E-2 9.87798E-2 OK -LOOP EXITED - 9.87801E-2 9.87801E-2 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 4 ACTUAL: 4 RESULT: OK - ------------------------------------------------ - -LOOP IS: FOR I1= 5 TO 8 STEP -1 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT -LOOP EXITED - 5 5 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 0 ACTUAL: 0 RESULT: OK - ------------------------------------------------ - -LOOP IS: FOR I1= 8 TO 5 STEP 1 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT -LOOP EXITED - 8 8 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 0 ACTUAL: 0 RESULT: OK - ------------------------------------------------ - -LOOP IS: FOR I1= 8 TO -5 STEP -3 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 8 8 OK - 5 5 OK - 2 2 OK --1 -1 OK --4 -4 OK -LOOP EXITED --7 -7 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 5 ACTUAL: 5 RESULT: OK - ------------------------------------------------ - -LOOP IS: FOR I1=-1.7 TO 2.6 STEP .27 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT --1.7 -1.7 OK --1.43 -1.43 OK --1.16 -1.16 OK --.89 -.89 OK --.62 -.62 OK --.35 -.35 OK --.08 -.08 OK - .19 .19 OK - .46 .46 OK - .73 .73 OK - 1. 1. OK - 1.27 1.27 OK - 1.54 1.54 OK - 1.81 1.81 OK - 2.08 2.08 OK - 2.35 2.35 OK -LOOP EXITED - 2.62 2.62 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 16 ACTUAL: 16 RESULT: OK - ------------------------------------------------ - -LOOP IS: FOR I1= 11 TO -7 STEP -3 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 11 11 OK - 8 8 OK - 5 5 OK - 2 2 OK --1 -1 OK --4 -4 OK --7 -7 OK -LOOP EXITED --10 -10 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 7 ACTUAL: 7 RESULT: OK - ------------------------------------------------ - -LOOP IS: FOR I1= 2 TO 2 STEP 20 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 2 2 OK -LOOP EXITED - 22 22 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 1 ACTUAL: 1 RESULT: OK - ------------------------------------------------ - -LOOP IS: FOR I1= 1.234E+20 TO -4.321E+20 STEP -8.7E+19 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 1.234E+20 1.234E+20 OK - 3.64E+19 3.64E+19 OK --5.06E+19 -5.06E+19 OK --1.376E+20 -1.376E+20 OK --2.246E+20 -2.246E+20 OK --3.116E+20 -3.116E+20 OK --3.986E+20 -3.986E+20 OK -LOOP EXITED --4.856E+20 -4.856E+20 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 7 ACTUAL: 7 RESULT: OK - ------------------------------------------------ - -LOOP IS: FOR I1= 0 TO 0 STEP -2 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 0 0 OK -LOOP EXITED --2 -2 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 1 ACTUAL: 1 RESULT: OK - ------------------------------------------------ - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 44 - -Program interrupted at line 2090 diff --git a/bwbtest/NBS2/P045.BAS b/bwbtest/NBS2/P045.BAS deleted file mode 100644 index 05a59f0..0000000 --- a/bwbtest/NBS2/P045.BAS +++ /dev/null @@ -1,61 +0,0 @@ -10 PRINT "PROGRAM FILE 45: ALTERING THE CONTROL-VARIABLE WITHIN" -20 PRINT " A FOR-BLOCK." -30 PRINT " ANSI STANDARD 11.2, 11.4" -40 PRINT -50 PRINT "SECTION 45.1: ALTERING THE CONTROL-VARIABLE WITHIN" -60 PRINT " A FOR-BLOCK." -70 PRINT -80 PRINT "THIS SECTION TESTS THAT THE VALUE OF THE CONTROL-VARIABLE" -90 PRINT "MAY BE ALTERED BY STATEMENTS WITHIN THE FOR-BLOCK, AS" -100 PRINT "WELL AS UNDER THE DIRECT CONTROL OF THE FOR-STATEMENT." -110 PRINT -120 PRINT " BEGIN TEST." -130 LET A1=3 -140 LET B1=21 -150 LET C1=3 -160 LET T2=4 -170 PRINT -180 PRINT "CONTROL VARIABLE:" -190 PRINT "SHOULD BE","ACTUAL","RESULT" -200 LET I2=A1 -210 REM S1 IS ERROR SWITCH -220 LET S1=0 -230 REM T1 IS LOOP COUNT -240 LET T1=0 -250 FOR I1=A1 TO B1 STEP C1 -260 LET T1=T1+1 -270 LET M$=" OK " -280 IF I1=I2 THEN 310 -290 LET M$="FAILED" -300 LET S1=1 -310 PRINT I2,I1,M$ -320 IF I2 <> 9 THEN 360 -330 LET I1=17 -340 LET I2=17 -350 PRINT "CONTROL VARIABLE ALTERED." -360 REM RE-JOIN PATHS -370 LET I2=I2+C1 -380 NEXT I1 -390 PRINT "LOOP EXITED" -400 LET M$=" OK " -410 IF I1=I2 THEN 440 -420 LET M$="FAILED" -430 LET S1=1 -440 PRINT I2,I1,M$ -450 LET M$=" OK " -460 IF T1=T2 THEN 490 -470 LET M$="FAILED" -480 LET S1=1 -490 PRINT -500 PRINT "NO. TIMES THROUGH LOOP:" -510 PRINT "SHOULD BE: ";T2;" ACTUAL: ";T1;" RESULT: ";M$ -520 PRINT -530 IF S1=0 THEN 560 -540 PRINT "*** TEST FAILED ***" -550 GOTO 570 -560 PRINT "*** TEST PASSED ***" -570 PRINT -580 PRINT " END TEST." -590 PRINT -600 PRINT "END PROGRAM 45" -610 END diff --git a/bwbtest/NBS2/P045.run b/bwbtest/NBS2/P045.run deleted file mode 100644 index 729a64a..0000000 --- a/bwbtest/NBS2/P045.run +++ /dev/null @@ -1,31 +0,0 @@ -PROGRAM FILE 45: ALTERING THE CONTROL-VARIABLE WITHIN - A FOR-BLOCK. - ANSI STANDARD 11.2, 11.4 - -SECTION 45.1: ALTERING THE CONTROL-VARIABLE WITHIN - A FOR-BLOCK. - -THIS SECTION TESTS THAT THE VALUE OF THE CONTROL-VARIABLE -MAY BE ALTERED BY STATEMENTS WITHIN THE FOR-BLOCK, AS -WELL AS UNDER THE DIRECT CONTROL OF THE FOR-STATEMENT. - - BEGIN TEST. - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 3 3 OK - 6 6 OK - 9 9 OK -CONTROL VARIABLE ALTERED. - 20 20 OK -LOOP EXITED - 23 23 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 4 ACTUAL: 4 RESULT: OK - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 45 diff --git a/bwbtest/NBS2/P046.BAS b/bwbtest/NBS2/P046.BAS deleted file mode 100644 index 3d88fae..0000000 --- a/bwbtest/NBS2/P046.BAS +++ /dev/null @@ -1,225 +0,0 @@ -10 PRINT "PROGRAM FILE 46: INTERACTION OF CONTROL STATEMENTS WITH" -20 PRINT " THE FOR-STATEMENT." -30 PRINT " ANSI STANDARD 11.2, 11.4, 10.2, 10.4" -40 PRINT -50 PRINT "SECTION 46.1: INTERACTION OF GOSUB-STATEMENT WITH" -60 PRINT " THE FOR-STATEMENT." -70 PRINT -80 PRINT "THIS SECTION TESTS THAT A GOSUB ROUTINE CAN BE EXPECTED" -90 PRINT "FROM WITHIN A FOR-BLOCK." -100 PRINT -110 PRINT " BEGIN TEST." -120 LET A1=8 -130 LET B1=-5 -140 LET C1=-3 -150 LET T2=4 -160 PRINT -170 PRINT "CONTROL VARIABLE:" -180 PRINT "SHOULD BE","ACTUAL","RESULT" -190 LET A2=A1 -200 LET B2=B1 -210 LET C2=C1 -220 LET I2=A2 -230 REM S1 IS ERROR SWITCH -240 LET S1=0 -250 REM T1 IS LOOP COUNT -260 LET T1=0 -270 FOR I1=A1 TO B1 STEP C1 -280 LET T1=T1+1 -290 LET M$=" OK " -300 IF I1=I2 THEN 330 -310 LET M$="FAILED" -320 LET S1=1 -330 PRINT I2,I1,M$ -340 LET T9=99 -350 GOSUB 650 -360 IF T9=9 THEN 390 -370 PRINT "GOSUB FAILED TO TAKE EFFECT" -380 LET S1=1 -390 REM END GOSUB TEST -400 LET I2=I2-1 -410 LET I2=I2+C2 -420 NEXT I1 -430 PRINT "LOOP EXITED" -450 GOSUB 6000 -490 LET M$=" OK " -500 IF T1=T2 THEN 530 -510 LET M$="FAILED" -520 LET S1=1 -530 PRINT -540 PRINT "NO. TIMES THROUGH LOOP:" -550 PRINT "SHOULD BE: ";T2;" ACTUAL: ";T1;" RESULT: ";M$ -560 PRINT -570 IF S1=0 THEN 600 -580 PRINT "*** TEST FAILED ***" -590 GOTO 610 -600 PRINT "*** TEST PASSED ***" -610 PRINT -620 PRINT " END TEST." -630 PRINT -640 GOTO 690 -650 REM SUBROUTINE FROM FIRST SECTION -660 LET T9=9 -670 LET I1=I1-1 -680 RETURN -690 REM END OF CALLED-FROM-FOR-BLOCK SUBROUTINE -700 PRINT "SECTION 46.2: FOR-LOOPS WITH SAME CONTROL-VARIABLE" -710 PRINT " NESTED DYNAMICALLY WITH GOSUB." -720 PRINT -730 PRINT "THIS SECTION TESTS THAT A GOSUB ROUTINE CAN BE EXECUTED" -740 PRINT "FROM WITHIN A FOR-BLOCK AND THAT THE SUBROUTINE MAY ITSELF" -750 PRINT "CONTAIN A FOR-BLOCK. IF THE TWO FOR-BLOCKS USE THE SAME" -760 PRINT "CONTROL-VARIABLE, THE ORIGINAL VALUE IS LOST." -770 PRINT -780 PRINT " BEGIN TEST." -790 LET A1=8 -800 LET B1=-5 -810 LET C1=-3 -820 LET T2=1 -830 LET T4=2 -840 PRINT -850 PRINT "CONTROL VARIABLE:" -860 PRINT "SHOULD BE","ACTUAL","RESULT" -870 LET A2=A1 -880 LET B2=B1 -890 LET C2=C1 -900 LET I2=A2 -910 REM S1 IS ERROR SWITCH -920 LET S1=0 -930 REM T1 IS LOOP COUNT -940 LET T1=0 -950 PRINT "ENTERING OUTER LOOP" -960 FOR I1=A1 TO B1 STEP C1 -970 LET T1=T1+1 -990 GOSUB 6000 -1030 GOSUB 1360 -1040 LET I2=I2+C2 -1050 NEXT I1 -1060 PRINT "OUTER LOOP EXITED" -1080 GOSUB 6000 -1120 LET M$=" OK " -1130 IF T3=T4 THEN 1160 -1140 LET M$="FAILED" -1150 LET S1=1 -1160 PRINT -1170 PRINT "NO. TIMES THROUGH INNER LOOP:" -1180 PRINT "SHOULD BE: ";T4;" ACTUAL: ";T3;" RESULT: ";M$ -1190 PRINT -1200 LET M$=" OK " -1210 IF T1=T2 THEN 1240 -1220 LET M$="FAILED" -1230 LET S1=1 -1240 PRINT -1250 PRINT "NO. TIMES THROUGH OUTER LOOP:" -1260 PRINT "SHOULD BE: ";T2;" ACTUAL: ";T1;" RESULT: ";M$ -1270 PRINT -1280 IF S1=0 THEN 1310 -1290 PRINT "*** TEST FAILED ***" -1300 GOTO 1320 -1310 PRINT "*** TEST PASSED ***" -1320 PRINT -1330 PRINT " END TEST." -1340 PRINT -1350 GOTO 1570 -1360 REM SUBROUTINE FROM SECOND SECTION -1370 LET I2=-10 -1380 REM T3 IS LOOP COUNT -1390 LET T3=0 -1400 PRINT "ENTERING INNER LOOP" -1410 FOR I1=-10 TO -7 STEP 2 -1420 LET T3=T3+1 -1440 GOSUB 6000 -1480 LET I2=I2+2 -1490 NEXT I1 -1500 PRINT "INNER LOOP EXITED" -1520 GOSUB 6000 -1560 RETURN -1570 REM END OF CALLED-FROM-FOR-BLOCK SUBROUTINE -1580 PRINT -1590 PRINT "SECTION 46.3 CONTROL-STATEMENT JUMPS OUT OF FOR-BLOCK." -1600 PRINT -1610 PRINT "THIS SECTION TESTS THAT YOU CAN JUMP OUT OF A FOR-BLOCK" -1620 PRINT "AND THAT THE CONTROL-VARIABLE RETAINS ITS VALUE WHEN" -1625 PRINT "THIS HAPPENS." -1630 PRINT -1640 PRINT " BEGIN TEST." -1650 PRINT -1655 LET S1=0 -1660 LET A1=33 -1670 LET B1=66 -1680 LET C1=4 -1690 LET I2=A1 -1700 LET T2=8 -1703 PRINT "LOOP IS: FOR I1=";A1;" TO ";B1;" STEP ";C1 -1707 PRINT -1710 PRINT "CONTROL VARIABLE:" -1720 PRINT "SHOULD BE","ACTUAL","RESULT" -1740 LET T1=0 -1750 FOR I1=A1 TO B1 STEP C1 -1760 LET T1=T1+1 -1770 GOSUB 6000 -1780 IF I2 < 60 THEN 1790 -1785 GO TO 1850 -1790 LET I2=I2+C1 -1800 NEXT I1 -1810 PRINT "NORMAL EXIT FROM FOR-BLOCK: INCORRECT." -1820 LET S1=1 -1830 GOTO 1855 -1850 PRINT "JUMPED OUT OF LOOP" -1855 GOSUB 6000 -1860 LET M$=" OK " -1870 IF T1=T2 THEN 1900 -1880 LET M$="FAILED" -1890 LET S1=1 -1900 PRINT -1910 PRINT "NO. TIMES THROUGH LOOP:" -1920 PRINT "SHOULD BE: ";T2;" ACTUAL: ";T1;" RESULT: ";M$ -1930 PRINT -1940 PRINT "--------------------------------------" -1950 PRINT -2000 LET A1=7 -2010 LET B1=7 -2020 LET C1=0 -2030 LET I2=A1 -2040 LET T2=5 -2050 PRINT "LOOP IS: FOR I1=";A1;" TO ";B1;" STEP ";C1 -2060 PRINT -2070 PRINT "CONTROL VARIABLE:" -2080 PRINT "SHOULD BE","ACTUAL","RESULT" -2090 LET T1=0 -2100 FOR I1=A1 TO B1 STEP C1 -2110 LET T1=T1+1 -2120 GOSUB 6000 -2130 IF T1 > 4.5 THEN 2190 -2140 LET I2=I2+C1 -2150 NEXT I1 -2160 PRINT "NORMAL EXIT FROM FOR-BLOCK: INCORRECT." -2170 LET S1=1 -2180 GOTO 2200 -2190 PRINT "JUMPED OUT OF LOOP" -2200 GOSUB 6000 -2210 LET M$=" OK " -2220 IF T1=T2 THEN 2250 -2230 LET M$="FAILED" -2240 LET S1=1 -2250 PRINT -2260 PRINT "NO. TIMES THROUGH LOOP:" -2270 PRINT "SHOULD BE: ";T2;" ACTUAL: ";T1;" RESULT: ";M$ -2280 PRINT -3000 IF S1=0 THEN 3030 -3010 PRINT "*** TEST FAILED ***" -3020 GOTO 3040 -3030 PRINT "*** TEST PASSED ***" -3040 PRINT -3050 PRINT " END TEST." -3060 PRINT -3070 PRINT "END PROGRAM 46" -3080 STOP -6000 REM SUBROUTINE TO CHECK THAT I1=I2 -6010 LET M$=" OK " -6020 IF I1=I2 THEN 6050 -6030 LET M$="FAILED" -6040 LET S1=1 -6050 PRINT I2,I1,M$ -6060 RETURN -6070 END diff --git a/bwbtest/NBS2/P046.run b/bwbtest/NBS2/P046.run deleted file mode 100644 index d0075d1..0000000 --- a/bwbtest/NBS2/P046.run +++ /dev/null @@ -1,112 +0,0 @@ -PROGRAM FILE 46: INTERACTION OF CONTROL STATEMENTS WITH - THE FOR-STATEMENT. - ANSI STANDARD 11.2, 11.4, 10.2, 10.4 - -SECTION 46.1: INTERACTION OF GOSUB-STATEMENT WITH - THE FOR-STATEMENT. - -THIS SECTION TESTS THAT A GOSUB ROUTINE CAN BE EXPECTED -FROM WITHIN A FOR-BLOCK. - - BEGIN TEST. - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 8 8 OK - 4 4 OK - 0 0 OK --4 -4 OK -LOOP EXITED --8 -8 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 4 ACTUAL: 4 RESULT: OK - -*** TEST PASSED *** - - END TEST. - -SECTION 46.2: FOR-LOOPS WITH SAME CONTROL-VARIABLE - NESTED DYNAMICALLY WITH GOSUB. - -THIS SECTION TESTS THAT A GOSUB ROUTINE CAN BE EXECUTED -FROM WITHIN A FOR-BLOCK AND THAT THE SUBROUTINE MAY ITSELF -CONTAIN A FOR-BLOCK. IF THE TWO FOR-BLOCKS USE THE SAME -CONTROL-VARIABLE, THE ORIGINAL VALUE IS LOST. - - BEGIN TEST. - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT -ENTERING OUTER LOOP - 8 8 OK -ENTERING INNER LOOP --10 -10 OK --8 -8 OK -INNER LOOP EXITED --6 -6 OK -OUTER LOOP EXITED --9 -9 OK - -NO. TIMES THROUGH INNER LOOP: -SHOULD BE: 2 ACTUAL: 2 RESULT: OK - - -NO. TIMES THROUGH OUTER LOOP: -SHOULD BE: 1 ACTUAL: 1 RESULT: OK - -*** TEST PASSED *** - - END TEST. - - -SECTION 46.3 CONTROL-STATEMENT JUMPS OUT OF FOR-BLOCK. - -THIS SECTION TESTS THAT YOU CAN JUMP OUT OF A FOR-BLOCK -AND THAT THE CONTROL-VARIABLE RETAINS ITS VALUE WHEN -THIS HAPPENS. - - BEGIN TEST. - -LOOP IS: FOR I1= 33 TO 66 STEP 4 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 33 33 OK - 37 37 OK - 41 41 OK - 45 45 OK - 49 49 OK - 53 53 OK - 57 57 OK - 61 61 OK -JUMPED OUT OF LOOP - 61 61 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 8 ACTUAL: 8 RESULT: OK - --------------------------------------- - -LOOP IS: FOR I1= 7 TO 7 STEP 0 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 7 7 OK - 7 7 OK - 7 7 OK - 7 7 OK - 7 7 OK -JUMPED OUT OF LOOP - 7 7 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 5 ACTUAL: 5 RESULT: OK - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 46 - -Program interrupted at line 3080 diff --git a/bwbtest/NBS2/P047.BAS b/bwbtest/NBS2/P047.BAS deleted file mode 100644 index 8e86392..0000000 --- a/bwbtest/NBS2/P047.BAS +++ /dev/null @@ -1,66 +0,0 @@ -10 PRINT "PROGRAM FILE 47: INCREMENT IN THE STEP CLAUSE OF THE" -20 PRINT " FOR-STATEMENT DEFAULTS TO A VALUE OF ONE." -30 PRINT " ANSI STANDARD 11.2, 11.4" -40 PRINT -50 PRINT "SECTION 47.1: INCREMENT IN THE STEP CLAUSE OF THE" -60 PRINT " FOR-STATEMENT DEFAULTS TO A VALUE OF ONE." -70 PRINT -80 REM S1 IS ERROR SWITCH -90 LET S1=0 -110 PRINT " BEGIN TEST." -120 LET A1=8 -130 LET B1=5 -150 LET T2=0 -160 GOSUB 3000 -170 LET A1=5 -180 LET B1=8 -190 LET T2=4 -200 GOSUB 3000 -210 LET A1=88 -220 LET B1=88 -230 LET T2=1 -240 GOSUB 3000 -1000 IF S1=0 THEN 1030 -1010 PRINT "*** TEST FAILED ***" -1020 GOTO 1040 -1030 PRINT "*** TEST PASSED ***" -1040 PRINT -1050 PRINT " END TEST." -1060 PRINT -1070 PRINT "END PROGRAM 47" -1080 STOP -3000 REM SUBROUTINE TO TEST VARIOUS LOOPS -3002 PRINT -3004 PRINT "LOOP IS: FOR I1=";A1;" TO ";B1 -3006 PRINT -3010 PRINT "CONTROL VARIABLE:" -3020 PRINT "SHOULD BE","ACTUAL","RESULT" -3030 LET I2=A1 -3090 REM T1 IS LOOP COUNT -3100 LET T1=0 -3110 FOR I1=A1 TO B1 -3120 LET T1=T1+1 -3130 GOSUB 6000 -3140 LET I2=I2+1 -3150 NEXT I1 -3160 PRINT "LOOP EXITED" -3170 GOSUB 6000 -3180 LET M$=" OK " -3190 IF T1=T2 THEN 3220 -3200 LET M$="FAILED" -3210 LET S1=1 -3220 PRINT -3230 PRINT "NO. TIMES THROUGH LOOP:" -3240 PRINT "SHOULD BE: ";T2;" ACTUAL: ";T1;" RESULT: ";M$ -3250 PRINT -3260 PRINT "----------------------------" -3270 PRINT -3280 RETURN -6000 REM SUBROUTINE TO CHECK THAT I1=I2 -6010 LET M$=" OK " -6020 IF I1=I2 THEN 6050 -6030 LET M$="FAILED" -6040 LET S1=1 -6050 PRINT I2,I1,M$ -6060 RETURN -6070 END diff --git a/bwbtest/NBS2/P047.run b/bwbtest/NBS2/P047.run deleted file mode 100644 index 8e800d5..0000000 --- a/bwbtest/NBS2/P047.run +++ /dev/null @@ -1,59 +0,0 @@ -PROGRAM FILE 47: INCREMENT IN THE STEP CLAUSE OF THE - FOR-STATEMENT DEFAULTS TO A VALUE OF ONE. - ANSI STANDARD 11.2, 11.4 - -SECTION 47.1: INCREMENT IN THE STEP CLAUSE OF THE - FOR-STATEMENT DEFAULTS TO A VALUE OF ONE. - - BEGIN TEST. - -LOOP IS: FOR I1= 8 TO 5 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT -LOOP EXITED - 8 8 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 0 ACTUAL: 0 RESULT: OK - ----------------------------- - - -LOOP IS: FOR I1= 5 TO 8 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 5 5 OK - 6 6 OK - 7 7 OK - 8 8 OK -LOOP EXITED - 9 9 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 4 ACTUAL: 4 RESULT: OK - ----------------------------- - - -LOOP IS: FOR I1= 88 TO 88 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 88 88 OK -LOOP EXITED - 89 89 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 1 ACTUAL: 1 RESULT: OK - ----------------------------- - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 47 - -Program interrupted at line 1080 diff --git a/bwbtest/NBS2/P048.BAS b/bwbtest/NBS2/P048.BAS deleted file mode 100644 index 5a586f2..0000000 --- a/bwbtest/NBS2/P048.BAS +++ /dev/null @@ -1,105 +0,0 @@ -10 PRINT "PROGRAM FILE 48: LIMIT AND INCREMENT IN THE FOR-STATEMENT" -20 PRINT " ARE EVALUATED ONCE UPON ENTERING THE LOOP." -30 PRINT " ANSI STANDARD 11.2, 11.4" -40 PRINT -50 PRINT "SECTION 48.1: LIMIT AND INCREMENT IN THE FOR-STATEMENT" -60 PRINT " ARE EVALUATED ONCE UPON ENTERING THE LOOP." -70 PRINT -80 REM S1 IS ERROR SWITCH -90 LET S1=0 -100 PRINT " BEGIN TEST." -110 LET I1=-20 -120 LET I2=-20 -130 LET T2=1 -140 PRINT -150 PRINT "I1 SET TO -20" -160 PRINT "LOOP IS: FOR I1=I1 TO I1 STEP -3" -170 PRINT -180 PRINT "CONTROL VARIABLE:" -190 PRINT "SHOULD BE","ACTUAL","RESULT" -200 LET T1=0 -210 FOR I1=I1 TO I1 STEP -3 -220 LET T1=T1+1 -230 GOSUB 3120 -240 IF T1>20 THEN 290 -250 LET I2=I2-3 -260 NEXT I1 -270 PRINT "LOOP EXITED" -280 GOTO 310 -290 PRINT "JUMPED OUT OF LOOP: INCORRECT" -300 LET S1=1 -310 GOSUB 3120 -320 GOSUB 3000 -400 LET I1=-3 -410 LET I2=-3 -420 LET T2=6 -430 PRINT -440 PRINT "I1 SET TO -3" -450 PRINT "LOOP IS: FOR I1=I1 TO -20 STEP I1" -460 PRINT -470 PRINT "CONTROL VARIABLE:" -480 PRINT "SHOULD BE","ACTUAL","RESULT" -490 LET T1=0 -500 FOR I1=I1 TO -20 STEP I1 -510 LET T1=T1+1 -520 GOSUB 3120 -530 IF T1>20 THEN 580 -540 LET I2=I2-3 -550 NEXT I1 -560 PRINT "LOOP EXITED" -570 GOTO 600 -580 PRINT "JUMPED OUT OF LOOP: INCORRECT" -590 LET S1=1 -600 GOSUB 3120 -610 GOSUB 3000 -700 LET I1=-2 -710 LET I2=9 -720 LET T2=6 -730 PRINT -740 PRINT "I1 SET TO -2" -750 PRINT "LOOP IS: FOR I1=9 TO I1 STEP I1" -760 PRINT -770 PRINT "CONTROL VARIABLE:" -780 PRINT "SHOULD BE","ACTUAL","RESULT" -790 LET T1=0 -800 FOR I1=9 TO I1 STEP I1 -810 LET T1=T1+1 -820 GOSUB 3120 -830 IF T1>20 THEN 880 -840 LET I2=I2-2 -850 NEXT I1 -860 PRINT "LOOP EXITED" -870 GOTO 900 -880 PRINT "JUMPED OUT OF LOOP: INCORRECT" -890 LET S1=1 -900 GOSUB 3120 -910 GOSUB 3000 -2000 IF S1=0 THEN 2030 -2010 PRINT "*** TEST FAILED ***" -2020 GOTO 2040 -2030 PRINT "*** TEST PASSED ***" -2040 PRINT -2050 PRINT " END TEST." -2060 PRINT -2070 PRINT "END PROGRAM 48" -2080 STOP -3000 REM SUBROUTINE TO CHECK NUMBER OF TIMES THROUGH LOOP -3010 LET M$=" OK " -3020 IF T1=T2 THEN 3050 -3030 LET M$="FAILED" -3040 LET S1=1 -3050 PRINT -3060 PRINT "NO. TIMES THROUGH LOOP:" -3070 PRINT "SHOULD BE: ";T2;" ACTUAL: ";T1;" RESULT: ";M$ -3080 PRINT -3090 PRINT "----------------------------" -3100 PRINT -3110 RETURN -3120 REM SUBROUTINE TO CHECK THAT I1=I2 -3130 LET M$=" OK " -3140 IF I1=I2 THEN 3170 -3150 LET M$="FAILED" -3160 LET S1=1 -3170 PRINT I2,I1,M$ -3180 RETURN -3190 END diff --git a/bwbtest/NBS2/P048.run b/bwbtest/NBS2/P048.run deleted file mode 100644 index 02a6a51..0000000 --- a/bwbtest/NBS2/P048.run +++ /dev/null @@ -1,70 +0,0 @@ -PROGRAM FILE 48: LIMIT AND INCREMENT IN THE FOR-STATEMENT - ARE EVALUATED ONCE UPON ENTERING THE LOOP. - ANSI STANDARD 11.2, 11.4 - -SECTION 48.1: LIMIT AND INCREMENT IN THE FOR-STATEMENT - ARE EVALUATED ONCE UPON ENTERING THE LOOP. - - BEGIN TEST. - -I1 SET TO -20 -LOOP IS: FOR I1=I1 TO I1 STEP -3 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT --20 -20 OK -LOOP EXITED --23 -23 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 1 ACTUAL: 1 RESULT: OK - ----------------------------- - - -I1 SET TO -3 -LOOP IS: FOR I1=I1 TO -20 STEP I1 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT --3 -3 OK --6 -6 OK --9 -9 OK --12 -12 OK --15 -15 OK --18 -18 OK -LOOP EXITED --21 -21 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 6 ACTUAL: 6 RESULT: OK - ----------------------------- - - -I1 SET TO -2 -LOOP IS: FOR I1=9 TO I1 STEP I1 - -CONTROL VARIABLE: -SHOULD BE ACTUAL RESULT - 9 9 OK - 7 7 OK - 5 5 OK - 3 3 OK - 1 1 OK --1 -1 OK -LOOP EXITED --3 -3 OK - -NO. TIMES THROUGH LOOP: -SHOULD BE: 6 ACTUAL: 6 RESULT: OK - ----------------------------- - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 48 - -Program interrupted at line 2080 diff --git a/bwbtest/NBS2/P049.BAS b/bwbtest/NBS2/P049.BAS deleted file mode 100644 index 91f4410..0000000 --- a/bwbtest/NBS2/P049.BAS +++ /dev/null @@ -1,99 +0,0 @@ -10 PRINT "PROGRAM FILE 49: NESTED FOR-BLOCKS." -20 PRINT " ANSI STANDARD 11.2, 11.4" -30 PRINT -40 PRINT "SECTION 49.1: NESTED FOR-BLOCKS." -50 PRINT -60 PRINT "THIS SECTION TESTS THAT FOR-BLOCKS MAY BE NESTED IN THE" -70 PRINT "TEXT OF THE PROGRAM, WITH SEPARATE CONTROL MAINTAINED" -80 PRINT "FOR EACH CONTROL-VARIABLE." -90 PRINT -100 LET S1=0 -110 PRINT " BEGIN TEST." -120 LET T2=204 -130 LET E$="ENTERING FOR-BLOCK" -140 LET F$="EXITING FOR-BLOCK" -150 PRINT -160 PRINT "EACH DETAIL LINE REPORTS:" -170 PRINT " 1) DEPTH OF NESTING" -180 PRINT " 2) CORRECT VALUE FOR CONTROL VARIABLE" -190 PRINT " 3) ACTUAL VALUE OF CONTROL VARIABLE" -200 PRINT " 4) RESULT (OK OR FAILED)" -210 PRINT -220 PRINT "DETAIL LINES ARE INDENTED TO SHOW DEPTH OF NESTING." -230 PRINT -240 LET T1=0 -250 LET I2=12 -260 PRINT E$;" 1" -270 FOR I1=12 TO 0 STEP -1 -280 LET T1=T1+1 -290 LET J2=-1 -300 PRINT E$;" 2" -310 FOR J1=-1 TO 0 -320 LET T1=T1+1 -330 GOSUB 1070 -340 LET J2=J2+1 -350 NEXT J1 -360 PRINT F$;" 2" -370 GOSUB 1070 -380 LET K2=1 -390 PRINT E$;" 3" -400 FOR K1=1 TO 3 -410 LET T1=T1+1 -420 LET J2=I2 -430 PRINT E$;" 4" -440 FOR J1=I1 TO 1 STEP -2 -450 LET T1=T1+1 -460 GOSUB 1070 -470 LET J2=J2-2 -480 NEXT J1 -490 PRINT F$;" 4" -500 GOSUB 1070 -510 GOSUB 1140 -520 LET K2=K2+1 -530 NEXT K1 -540 PRINT F$;" 3" -550 GOSUB 1140 -560 GOSUB 1000 -570 LET I2=I2-1 -580 NEXT I1 -590 PRINT F$;" 1" -600 GOSUB 1000 -610 LET M$=" OK " -620 IF T1=T2 THEN 650 -630 LET M$="FAILED" -640 LET S1=1 -650 PRINT -660 PRINT "NO. TIMES THROUGH LOOPS:" -670 PRINT "SHOULD BE: ";T2;" ACTUAL: ";T1;" RESULT: ";M$ -680 PRINT -690 IF S1=0 THEN 720 -700 PRINT "*** TEST FAILED ***" -710 GOTO 730 -720 PRINT "*** TEST PASSED ***" -730 PRINT -740 PRINT " END TEST." -750 PRINT -760 PRINT "END PROGRAM 49" -770 STOP -1000 REM SUBROUTINE TO CHECK THAT I1=I2 -1010 LET M$=" OK " -1020 IF I1=I2 THEN 1050 -1030 LET M$="FAILED" -1040 LET S1=1 -1050 PRINT 1;TAB(10);I2;TAB(20);I1;TAB(30);M$ -1060 RETURN -1070 REM SUBROUTINE TO CHECK THAT J1=J2 -1080 LET M$=" OK " -1090 IF J1=J2 THEN 1120 -1100 LET M$="FAILED" -1110 LET S1=1 -1120 PRINT TAB(2);2;TAB(12);J2;TAB(22);J1;TAB(32);M$ -1130 RETURN -1140 REM SUBROUTINE TO CHECK THAT K1=K2 -1150 LET M$=" OK " -1160 IF K1=K2 THEN 1190 -1170 LET M$="FAILED" -1180 LET S1=1 -1190 PRINT TAB(4);3;TAB(14);K2;TAB(24);K1;TAB(34);M$ -1200 RETURN -1210 END diff --git a/bwbtest/NBS2/P049.run b/bwbtest/NBS2/P049.run deleted file mode 100644 index 12498db..0000000 --- a/bwbtest/NBS2/P049.run +++ /dev/null @@ -1,432 +0,0 @@ -PROGRAM FILE 49: NESTED FOR-BLOCKS. - ANSI STANDARD 11.2, 11.4 - -SECTION 49.1: NESTED FOR-BLOCKS. - -THIS SECTION TESTS THAT FOR-BLOCKS MAY BE NESTED IN THE -TEXT OF THE PROGRAM, WITH SEPARATE CONTROL MAINTAINED -FOR EACH CONTROL-VARIABLE. - - BEGIN TEST. - -EACH DETAIL LINE REPORTS: - 1) DEPTH OF NESTING - 2) CORRECT VALUE FOR CONTROL VARIABLE - 3) ACTUAL VALUE OF CONTROL VARIABLE - 4) RESULT (OK OR FAILED) - -DETAIL LINES ARE INDENTED TO SHOW DEPTH OF NESTING. - -ENTERING FOR-BLOCK 1 -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 12 12 OK - 2 10 10 OK - 2 8 8 OK - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 12 12 OK - 2 10 10 OK - 2 8 8 OK - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 12 12 OK - 2 10 10 OK - 2 8 8 OK - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 12 12 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 11 11 OK - 2 9 9 OK - 2 7 7 OK - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 11 11 OK - 2 9 9 OK - 2 7 7 OK - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 11 11 OK - 2 9 9 OK - 2 7 7 OK - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 11 11 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 10 10 OK - 2 8 8 OK - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 10 10 OK - 2 8 8 OK - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 10 10 OK - 2 8 8 OK - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 10 10 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 9 9 OK - 2 7 7 OK - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 9 9 OK - 2 7 7 OK - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 9 9 OK - 2 7 7 OK - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 9 9 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 8 8 OK - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 8 8 OK - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 8 8 OK - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 8 8 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 7 7 OK - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 7 7 OK - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 7 7 OK - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 7 7 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 6 6 OK - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 6 6 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 5 5 OK - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 5 5 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 4 4 OK - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 4 4 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 3 3 OK - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 3 3 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 2 2 OK -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 2 2 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 - 2 1 1 OK -EXITING FOR-BLOCK 4 - 2 -1 -1 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 1 1 OK -ENTERING FOR-BLOCK 2 - 2 -1 -1 OK - 2 0 0 OK -EXITING FOR-BLOCK 2 - 2 1 1 OK -ENTERING FOR-BLOCK 3 -ENTERING FOR-BLOCK 4 -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 1 1 OK -ENTERING FOR-BLOCK 4 -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 2 2 OK -ENTERING FOR-BLOCK 4 -EXITING FOR-BLOCK 4 - 2 0 0 OK - 3 3 3 OK -EXITING FOR-BLOCK 3 - 3 4 4 OK - 1 0 0 OK -EXITING FOR-BLOCK 1 - 1 -1 -1 OK - -NO. TIMES THROUGH LOOPS: -SHOULD BE: 204 ACTUAL: 204 RESULT: OK - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 49 - -Program interrupted at line 770 diff --git a/bwbtest/NBS2/P050.BAS b/bwbtest/NBS2/P050.BAS deleted file mode 100644 index ada3a2a..0000000 --- a/bwbtest/NBS2/P050.BAS +++ /dev/null @@ -1,30 +0,0 @@ -10 PRINT "PROGRAM FILE 50: ERROR - FOR-STATEMENT WITHOUT A" -15 PRINT " MATCHING NEXT-STATEMENT." -20 PRINT " ANSI STANDARD 11.2, 11.4" -30 PRINT -40 PRINT "SECTION 50.1: ERROR - FOR-STATEMENT WITHOUT A" -50 PRINT " MATCHING NEXT-STATEMENT." -60 PRINT -70 PRINT -80 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -90 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -100 PRINT -110 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -120 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -130 PRINT " BY THE PROCESSOR, OR" -140 PRINT -150 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -160 PRINT -170 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -180 PRINT "FOR DETAILED CRITERIA." -190 PRINT -200 PRINT " BEGIN TEST." -210 PRINT -220 PRINT "ENTERING FOR-BLOCK; LOOP IS: FOR I=1 TO 5" -230 FOR I=1 TO 5 -240 PRINT "CONTROL-VARIABLE = ";I -310 PRINT -320 PRINT " END TEST." -330 PRINT -340 PRINT "END PROGRAM 50" -350 END diff --git a/bwbtest/NBS2/P050.run b/bwbtest/NBS2/P050.run deleted file mode 100644 index 4dbc4d9..0000000 --- a/bwbtest/NBS2/P050.run +++ /dev/null @@ -1,3 +0,0 @@ -FOR without NEXT: 230 FOR I=1 TO 5 - -ERROR: Can't continue diff --git a/bwbtest/NBS2/P051.BAS b/bwbtest/NBS2/P051.BAS deleted file mode 100644 index 8f03444..0000000 --- a/bwbtest/NBS2/P051.BAS +++ /dev/null @@ -1,32 +0,0 @@ -10 PRINT "PROGRAM FILE 51: ERROR - NEXT-STATEMENT WITHOUT A" -15 PRINT " MATCHING FOR-STATEMENT." -20 PRINT " ANSI STANDARD 11.2, 11.4" -30 PRINT -40 PRINT "SECTION 51.1: ERROR - NEXT-STATEMENT WITHOUT A" -50 PRINT " MATCHING FOR-STATEMENT." -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAM USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 PRINT "ENTERING FOR-BLOCK; LOOP IS: FOR I=1 TO 5" -220 FOR I=1 TO 5 -230 PRINT "CONTROL-VARIABLE = ";I -240 NEXT I -270 PRINT -280 PRINT " END TEST." -290 PRINT -300 PRINT "END PROGRAM 51" -303 STOP -306 NEXT I -310 END diff --git a/bwbtest/NBS2/P051.run b/bwbtest/NBS2/P051.run deleted file mode 100644 index 8b8fee0..0000000 --- a/bwbtest/NBS2/P051.run +++ /dev/null @@ -1,3 +0,0 @@ -NEXT without FOR: 306 NEXT I - -ERROR: Can't continue diff --git a/bwbtest/NBS2/P052.BAS b/bwbtest/NBS2/P052.BAS deleted file mode 100644 index 5ac300e..0000000 --- a/bwbtest/NBS2/P052.BAS +++ /dev/null @@ -1,30 +0,0 @@ -10 PRINT "PROGRAM FILE 52: ERROR -MISMATCHED CONTROL-VARIABLES ON" -15 PRINT " FOR-STATEMENT AND NEXT-STATEMENT." -20 PRINT " ANSI STANDARD 11.4" -30 PRINT -40 PRINT "SECTION 52.1: ERROR - MISMATCHED CONTROL-VARIABLES ON" -50 PRINT " FOR-STATEMENT AND NEXT-STATEMENT." -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 PRINT "ENTERING FOR-BLOCK; LOOP IS: FOR I=1 TO 5 ... NEXT J" -220 FOR I=1 TO 5 -230 PRINT "I = ";I;" J = ";J -240 NEXT J -270 PRINT -280 PRINT " END TEST." -290 PRINT -300 PRINT "END PROGRAM 52" -310 END diff --git a/bwbtest/NBS2/P052.run b/bwbtest/NBS2/P052.run deleted file mode 100644 index 8cd752d..0000000 --- a/bwbtest/NBS2/P052.run +++ /dev/null @@ -1,3 +0,0 @@ -NEXT without FOR: 240 NEXT J - -ERROR: Can't continue diff --git a/bwbtest/NBS2/P053.BAS b/bwbtest/NBS2/P053.BAS deleted file mode 100644 index eb0ad72..0000000 --- a/bwbtest/NBS2/P053.BAS +++ /dev/null @@ -1,31 +0,0 @@ -10 PRINT "PROGRAM FILE 53: ERROR - INTERLEAVED FOR-BLOCKS." -20 PRINT " ANSI STANDARD 11.4" -30 PRINT -40 PRINT "SECTION 53.1: ERROR - INTERLEAVED FOR-BLOCKS." -50 PRINT -60 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -70 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -80 PRINT -90 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -100 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -110 PRINT " BY THE PROCESSOR, OR" -120 PRINT -130 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -140 PRINT -150 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -160 PRINT "FOR DETAILED CRITERIA." -170 PRINT -180 PRINT " BEGIN TEST." -190 PRINT -200 PRINT "ENTERING FOR-BLOCKS; LOOPS ARE:" -205 PRINT "FOR I=1 TO 3 / FOR J=1 TO 5 / NEXT I / NEXT J" -210 FOR I=1 TO 3 -220 FOR J=1 TO 5 -230 PRINT "I = ";I;" J = ";J -270 NEXT I -280 NEXT J -310 PRINT -320 PRINT " END TEST." -330 PRINT -340 PRINT "END PROGRAM 53" -350 END diff --git a/bwbtest/NBS2/P053.run b/bwbtest/NBS2/P053.run deleted file mode 100644 index 0e53398..0000000 --- a/bwbtest/NBS2/P053.run +++ /dev/null @@ -1,3 +0,0 @@ -NEXT without FOR: 270 NEXT I - -ERROR: Can't continue diff --git a/bwbtest/NBS2/P054.BAS b/bwbtest/NBS2/P054.BAS deleted file mode 100644 index 7153df2..0000000 --- a/bwbtest/NBS2/P054.BAS +++ /dev/null @@ -1,36 +0,0 @@ -10 PRINT "PROGRAM FILE 54: ERROR - NESTED FOR-BLOCKS" -15 PRINT " WITH THE SAME CONTROL VARIABLE." -20 PRINT " ANSI STANDARD 11.4" -30 PRINT -40 PRINT "SECTION 54.1: ERROR - NESTED FOR-BLOCKS WITH" -50 PRINT " THE SAME CONTROL VARIABLE." -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 PRINT "ENTERING FOR-BLOCKS; LOOPS ARE:" -220 PRINT "FOR I=1 TO 3 / FOR J=2 TO 4 / FOR I=3 TO 5 / "; -230 PRINT "NEXT I / NEXT J / NEXT I" -240 PRINT -260 FOR I=1 TO 3 -270 FOR J=2 TO 4 -280 FOR I=3 TO 5 -290 PRINT "I = ";I;" J = ";J -300 NEXT I -305 NEXT J -310 NEXT I -350 PRINT -360 PRINT " END TEST." -380 PRINT "END PROGRAM 54" -390 END diff --git a/bwbtest/NBS2/P054.run b/bwbtest/NBS2/P054.run deleted file mode 100644 index 73b5579..0000000 --- a/bwbtest/NBS2/P054.run +++ /dev/null @@ -1,36 +0,0 @@ -PROGRAM FILE 54: ERROR - NESTED FOR-BLOCKS - WITH THE SAME CONTROL VARIABLE. - ANSI STANDARD 11.4 - -SECTION 54.1: ERROR - NESTED FOR-BLOCKS WITH - THE SAME CONTROL VARIABLE. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -ENTERING FOR-BLOCKS; LOOPS ARE: -FOR I=1 TO 3 / FOR J=2 TO 4 / FOR I=3 TO 5 / NEXT I / NEXT J / NEXT I - -I = 3 J = 2 -I = 4 J = 2 -I = 5 J = 2 -I = 3 J = 3 -I = 4 J = 3 -I = 5 J = 3 -I = 3 J = 4 -I = 4 J = 4 -I = 5 J = 4 - - END TEST. -END PROGRAM 54 diff --git a/bwbtest/NBS2/P055.BAS b/bwbtest/NBS2/P055.BAS deleted file mode 100644 index e3d7283..0000000 --- a/bwbtest/NBS2/P055.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 55: ERROR - JUMP INTO FOR-BLOCK." -20 PRINT " ANSI STANDARD 11.4" -30 PRINT -40 PRINT "SECTION 55.1: ERROR - JUMP INTO FOR-BLOCK." -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -190 PRINT " BEGIN TEST." -192 PRINT "SETTING I = 5" -195 LET I=5 -200 PRINT -210 PRINT "ABOUT TO JUMP INTO FOR-BLOCK AROUND FOR-STATEMENT:" -220 PRINT "LOOP IS: FOR I=1 TO 9 ... NEXT I" -240 PRINT -250 GOTO 270 -260 FOR I=1 TO 9 -270 PRINT "I = ";I -310 NEXT I -350 PRINT -360 PRINT " END TEST." -370 PRINT -380 PRINT "END PROGRAM 55" -390 END diff --git a/bwbtest/NBS2/P055.run b/bwbtest/NBS2/P055.run deleted file mode 100644 index 361fd09..0000000 --- a/bwbtest/NBS2/P055.run +++ /dev/null @@ -1,26 +0,0 @@ -PROGRAM FILE 55: ERROR - JUMP INTO FOR-BLOCK. - ANSI STANDARD 11.4 - -SECTION 55.1: ERROR - JUMP INTO FOR-BLOCK. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. -SETTING I = 5 - -ABOUT TO JUMP INTO FOR-BLOCK AROUND FOR-STATEMENT: -LOOP IS: FOR I=1 TO 9 ... NEXT I - -I = 5 - -ERROR in line 310: NEXT without FOR diff --git a/bwbtest/NBS2/P056.BAS b/bwbtest/NBS2/P056.BAS deleted file mode 100644 index 9f3b403..0000000 --- a/bwbtest/NBS2/P056.BAS +++ /dev/null @@ -1,154 +0,0 @@ -10 PRINT "PROGRAM FILE 56: ARRAY ASSIGNMENT WITHOUT" -15 PRINT " THE OPTION-STATEMENT." -20 PRINT " ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 15.2, 15.4" -30 PRINT -90 PRINT "SECTION 56.1: ONE-DIMENSIONAL ARRAYS WITHOUT THE" -95 PRINT " DIM-STATEMENT." -100 PRINT -110 PRINT " BEGIN TEST." -120 PRINT -130 FOR I=0 TO 10 -140 LET A(I)=I -150 NEXT I -160 LET A1=0 -170 LET C=0 -180 FOR I=10 TO 0 STEP -1 -190 LET Y=A(I) -200 LET A1=A1+Y -210 IF Y<>I THEN 230 -220 LET C=C+1 -230 NEXT I -240 IF C<>11 THEN 260 -250 IF A1=55 THEN 280 -260 PRINT "*** TEST FAILED ***" -270 GOTO 290 -280 PRINT "*** TEST PASSED ***" -290 PRINT -300 PRINT " END TEST." -310 PRINT -320 PRINT "SECTION 56.2: TWO-DIMENSIONAL ARRAYS WITHOUT THE" -325 PRINT " DIM-STATEMENT." -330 PRINT -340 PRINT " BEGIN TEST." -350 PRINT -360 FOR I=0 TO 10 -370 FOR J=0 TO 10 -380 LET Z=I+J -390 LET B(I,J)=Z -400 NEXT J -410 NEXT I -420 LET B1=0 -430 LET C=0 -440 FOR I=10 TO 0 STEP -1 -450 FOR J=10 TO 0 STEP -1 -460 LET W=B(I,J) -470 LET B1=B1+W -480 LET Z=I+J -490 IF W<>Z THEN 510 -500 LET C=C+1 -510 NEXT J -520 NEXT I -530 IF C<>121 THEN 550 -540 IF B1=1210 THEN 570 -550 PRINT "*** TEST FAILED ***" -560 GOTO 580 -570 PRINT "*** TEST PASSED ***" -580 PRINT -590 PRINT " END TEST." -600 PRINT -640 PRINT "SECTION 56.3: ONE-DIMENSIONAL ARRAYS WITH THE" -645 PRINT " DIM-STATEMENT." -650 PRINT -660 PRINT " BEGIN TEST." -670 PRINT -680 DIM D(20) -690 FOR I=0 TO 20 -700 LET H=I+1 -710 LET D(I)=H -720 NEXT I -730 LET D1=0 -740 LET C=0 -750 FOR I=0 TO 20 -760 LET M=D(I) -770 LET D1=D1+M -780 LET H=I+1 -790 IF M<>H THEN 810 -800 LET C=C+1 -810 NEXT I -820 IF C<>21 THEN 840 -830 IF D1=231 THEN 860 -840 PRINT "*** TEST FAILED ***" -850 GOTO 870 -860 PRINT "*** TEST PASSED ***" -870 PRINT -880 PRINT " END TEST." -890 PRINT -900 PRINT -910 PRINT "SECTION 56.4: TWO-DIMENSIONAL ARRAYS WITH THE" -915 PRINT " DIM-STATEMENT." -920 PRINT -930 PRINT " BEGIN TEST." -940 PRINT -950 DIM N(20,2),P(2,20),R(20,20) -960 FOR I=0 TO 20 -970 LET I1=I+1 -980 LET N(I,1)=I1 -990 LET N(I,2)=-I -1000 LET N(I,0)=1 -1010 FOR J=2 TO 0 STEP -1 -1020 LET J1=I*J -1030 LET P(J,I)=J1 -1040 NEXT J -1050 NEXT I -1060 FOR K=0 TO 20 -1070 FOR L=0 TO 20 -1080 LET K1=K+L -1090 LET R(K,L)=K1 -1100 NEXT L -1110 NEXT K -1120 LET N1=0 -1130 LET P1=0 -1140 LET R1=0 -1150 LET C=0 -1160 LET T=0 -1170 FOR I=0 TO 20 -1180 LET I1=I+1 -1190 LET T7=N(I,1) -1200 LET T8=N(I,2) -1210 LET T9=N(I,0) -1220 IF T7 <> I1 THEN 1490 -1230 IF T8 <> -I THEN 1490 -1240 IF T9 <> 1 THEN 1490 -1250 FOR J=0 TO 2 -1260 LET F1=N(I,J) -1270 LET N1=N1+F1 -1280 LET G1=P(J,I) -1290 LET P1=P1+G1 -1300 LET J1=I*J -1310 IF G1 <> J1 THEN 1330 -1320 LET C=C+1 -1330 NEXT J -1340 NEXT I -1350 IF C<>63 THEN 1490 -1360 IF N1<>42 THEN 1490 -1370 IF P1<>630 THEN 1490 -1380 FOR K=20 TO 0 STEP -1 -1390 FOR L=0 TO 20 -1400 LET Q1=R(K,L) -1410 LET R1=R1+Q1 -1420 LET K1=K+L -1430 IF Q1 <> K1 THEN 1450 -1440 LET T=T+1 -1450 NEXT L -1460 NEXT K -1470 IF T<>441 THEN 1490 -1480 IF R1=8820 THEN 1510 -1490 PRINT "*** TEST FAILED ***" -1500 GOTO 1520 -1510 PRINT "*** TEST PASSED ***" -1520 PRINT -1530 PRINT " END TEST." -1540 PRINT -1550 PRINT -1560 PRINT "END PROGRAM 56" -1570 END diff --git a/bwbtest/NBS2/P056.run b/bwbtest/NBS2/P056.run deleted file mode 100644 index 834f409..0000000 --- a/bwbtest/NBS2/P056.run +++ /dev/null @@ -1,43 +0,0 @@ -PROGRAM FILE 56: ARRAY ASSIGNMENT WITHOUT - THE OPTION-STATEMENT. - ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 15.2, 15.4 - -SECTION 56.1: ONE-DIMENSIONAL ARRAYS WITHOUT THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 56.2: TWO-DIMENSIONAL ARRAYS WITHOUT THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 56.3: ONE-DIMENSIONAL ARRAYS WITH THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - - -SECTION 56.4: TWO-DIMENSIONAL ARRAYS WITH THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - - -END PROGRAM 56 diff --git a/bwbtest/NBS2/P057.BAS b/bwbtest/NBS2/P057.BAS deleted file mode 100644 index c6a3558..0000000 --- a/bwbtest/NBS2/P057.BAS +++ /dev/null @@ -1,154 +0,0 @@ -10 PRINT "PROGRAM FILE 57: ARRAY ASSIGNMENT WITH OPTION BASE 0." -20 PRINT " ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 15.2, 15.4" -30 PRINT -50 OPTION BASE 0 -90 PRINT "SECTION 57.1: ONE-DIMENSIONAL ARRAYS WITHOUT THE" -95 PRINT " DIM STATEMENT." -100 PRINT -110 PRINT " BEGIN TEST." -120 PRINT -130 FOR I=0 TO 10 -140 LET A(I)=I -150 NEXT I -160 LET A1=0 -170 LET C=0 -180 FOR I=10 TO 0 STEP -1 -190 LET Y=A(I) -200 LET A1=A1+Y -210 IF Y<>I THEN 230 -220 LET C=C+1 -230 NEXT I -240 IF C<>11 THEN 260 -250 IF A1=55 THEN 280 -260 PRINT "*** TEST FAILED ***" -270 GOTO 290 -280 PRINT "*** TEST PASSED ***" -290 PRINT -300 PRINT " END TEST." -310 PRINT -320 PRINT "SECTION 57.2: TWO-DIMENSIONAL ARRAYS WITHOUT THE" -325 PRINT " DIM-STATEMENT." -330 PRINT -340 PRINT " BEGIN TEST." -350 PRINT -360 FOR I=0 TO 10 -370 FOR J=0 TO 10 -380 LET Z=I+J -390 LET B(I,J)=Z -400 NEXT J -410 NEXT I -420 LET B1=0 -430 LET C=0 -440 FOR I=10 TO 0 STEP -1 -450 FOR J=10 TO 0 STEP -1 -460 LET W=B(I,J) -470 LET B1=B1+W -480 LET Z=I+J -490 IF W<>Z THEN 510 -500 LET C=C+1 -510 NEXT J -520 NEXT I -530 IF C<>121 THEN 550 -540 IF B1=1210 THEN 570 -550 PRINT "*** TEST FAILED ***" -560 GOTO 580 -570 PRINT "*** TEST PASSED ***" -580 PRINT -590 PRINT " END TEST." -600 PRINT -640 PRINT "SECTION 57.3: ONE-DIMENSIONAL ARRAYS WITH THE" -645 PRINT " DIM-STATEMENT." -650 PRINT -660 PRINT " BEGIN TEST." -670 PRINT -680 DIM D(20) -690 FOR I=0 TO 20 -700 LET H=I+1 -710 LET D(I)=H -720 NEXT I -730 LET D1=0 -740 LET C=0 -750 FOR I=0 TO 20 -760 LET M=D(I) -770 LET D1=D1+M -780 LET H=I+1 -790 IF M<>H THEN 810 -800 LET C=C+1 -810 NEXT I -820 IF C<>21 THEN 840 -830 IF D1=231 THEN 860 -840 PRINT "*** TEST FAILED ***" -850 GOTO 870 -860 PRINT "*** TEST PASSED ***" -870 PRINT -880 PRINT " END TEST." -890 PRINT -900 PRINT -910 PRINT "SECTION 57.4: TWO-DIMENSIONAL ARRAYS WITH THE" -915 PRINT " DIM-STATEMENT." -920 PRINT -930 PRINT " BEGIN TEST." -940 PRINT -950 DIM N(20,2),P(2,20),R(20,20) -960 FOR I=0 TO 20 -970 LET I1=I+1 -980 LET N(I,1)=I1 -990 LET N(I,2)=-I -1000 LET N(I,0)=1 -1010 FOR J=2 TO 0 STEP -1 -1020 LET J1=I*J -1030 LET P(J,I)=J1 -1040 NEXT J -1050 NEXT I -1060 FOR K=0 TO 20 -1070 FOR L=0 TO 20 -1080 LET K1=K+L -1090 LET R(K,L)=K1 -1100 NEXT L -1110 NEXT K -1120 LET N1=0 -1130 LET P1=0 -1140 LET R1=0 -1150 LET C=0 -1160 LET T=0 -1170 FOR I=0 TO 20 -1180 LET I1=I+1 -1190 LET T7=N(I,1) -1200 LET T8=N(I,2) -1210 LET T9=N(I,0) -1220 IF T7 <> I1 THEN 1490 -1230 IF T8 <> -I THEN 1490 -1240 IF T9 <> 1 THEN 1490 -1250 FOR J=0 TO 2 -1260 LET F1=N(I,J) -1270 LET N1=N1+F1 -1280 LET G1=P(J,I) -1290 LET P1=P1+G1 -1300 LET J1=I*J -1310 IF G1 <> J1 THEN 1330 -1320 LET C=C+1 -1330 NEXT J -1340 NEXT I -1350 IF C<>63 THEN 1490 -1360 IF N1<>42 THEN 1490 -1370 IF P1<>630 THEN 1490 -1380 FOR K=20 TO 0 STEP -1 -1390 FOR L=0 TO 20 -1400 LET Q1=R(K,L) -1410 LET R1=R1+Q1 -1420 LET K1=K+L -1430 IF Q1 <> K1 THEN 1450 -1440 LET T=T+1 -1450 NEXT L -1460 NEXT K -1470 IF T<>441 THEN 1490 -1480 IF R1=8820 THEN 1510 -1490 PRINT "*** TEST FAILED ***" -1500 GOTO 1520 -1510 PRINT "*** TEST PASSED ***" -1520 PRINT -1530 PRINT " END TEST." -1540 PRINT -1550 PRINT -1560 PRINT "END PROGRAM 57" -1570 END diff --git a/bwbtest/NBS2/P057.run b/bwbtest/NBS2/P057.run deleted file mode 100644 index 9989fed..0000000 --- a/bwbtest/NBS2/P057.run +++ /dev/null @@ -1,42 +0,0 @@ -PROGRAM FILE 57: ARRAY ASSIGNMENT WITH OPTION BASE 0. - ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 15.2, 15.4 - -SECTION 57.1: ONE-DIMENSIONAL ARRAYS WITHOUT THE - DIM STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 57.2: TWO-DIMENSIONAL ARRAYS WITHOUT THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 57.3: ONE-DIMENSIONAL ARRAYS WITH THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - - -SECTION 57.4: TWO-DIMENSIONAL ARRAYS WITH THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - - -END PROGRAM 57 diff --git a/bwbtest/NBS2/P058.BAS b/bwbtest/NBS2/P058.BAS deleted file mode 100644 index e8327b1..0000000 --- a/bwbtest/NBS2/P058.BAS +++ /dev/null @@ -1,157 +0,0 @@ -10 PRINT "PROGRAM FILE 58: ARRAY ASSIGNMENT WITH OPTION BASE 1." -20 PRINT " ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 15.2, 15.4" -30 PRINT -45 GOTO 60 -50 OPTION BASE 1 -60 PRINT -100 PRINT "SECTION 58.1: ONE-DIMENSIONAL ARRAYS WITHOUT THE" -105 PRINT " DIM-STATEMENT." -110 PRINT -120 PRINT " BEGIN TEST." -130 PRINT -140 FOR I=1 TO 10 -150 LET A(I)=I -160 NEXT I -170 LET A1=0 -180 LET C=0 -190 FOR I=10 TO 1 STEP -1 -200 LET Y=A(I) -210 LET A1=A1+Y -220 IF Y<>I THEN 240 -230 LET C=C+1 -240 NEXT I -250 IF C<>10 THEN 270 -260 IF A1=55 THEN 290 -270 PRINT "*** TEST FAILED ***" -280 GOTO 300 -290 PRINT "*** TEST PASSED ***" -300 PRINT -310 PRINT " END TEST." -320 PRINT -330 PRINT "SECTION 58.2: TWO-DIMENSIONAL ARRAYS WITHOUT THE " -335 PRINT " DIM-STATEMENT." -340 PRINT -350 PRINT " BEGIN TEST." -360 PRINT -370 FOR I=1 TO 10 -380 FOR J=1 TO 10 -390 LET Z=I+J -400 LET B(I,J)=Z -410 NEXT J -420 NEXT I -430 LET B1=0 -440 LET C=0 -450 FOR I=10 TO 1 STEP -1 -460 FOR J=10 TO 1 STEP -1 -470 LET W=B(I,J) -480 LET B1=B1+W -490 LET Z=I+J -500 IF W<>Z THEN 520 -510 LET C=C+1 -520 NEXT J -530 NEXT I -540 IF C<>100 THEN 560 -550 IF B1=1100 THEN 580 -560 PRINT "*** TEST FAILED ***" -570 GOTO 590 -580 PRINT "*** TEST PASSED ***" -590 PRINT -600 PRINT " END TEST." -610 PRINT -650 PRINT "SECTION 58.3: ONE-DIMENSIONAL ARRAYS WITH THE" -655 PRINT " DIM-STATEMENT." -660 PRINT -670 PRINT " BEGIN TEST." -680 PRINT -690 DIM E(1) -700 LET E(1)=6 -710 LET T9=E(1) -720 IF 6<>T9 THEN 890 -730 DIM D(20) -740 FOR I=1 TO 20 -750 LET H=I+1 -760 LET D(I)=H -770 NEXT I -780 LET D1=0 -790 LET C=0 -800 FOR I=1 TO 20 -810 LET M=D(I) -820 LET D1=D1+M -830 LET H=I+1 -840 IF M<>H THEN 860 -850 LET C=C+1 -860 NEXT I -870 IF C<>20 THEN 890 -880 IF D1=230 THEN 910 -890 PRINT "*** TEST FAILED ***" -900 GOTO 920 -910 PRINT "*** TEST PASSED ***" -920 PRINT -930 PRINT " END TEST." -940 PRINT -950 PRINT -960 PRINT "SECTION 58.4: TWO-DIMENSIONAL ARRAYS WITH THE" -965 PRINT " DIM-STATEMENT." -970 PRINT -980 PRINT " BEGIN TEST." -990 PRINT -1000 DIM N(20,2),P(2,20),R(20,20) -1010 FOR I=1 TO 20 -1020 LET I1=I+1 -1030 LET N(I,1)=I1 -1040 LET N(I,2)=-I -1050 FOR J=2 TO 1 STEP -1 -1060 LET J1=I*J -1070 LET P(J,I)=J1 -1080 NEXT J -1090 NEXT I -1100 FOR K=1 TO 20 -1110 FOR L=1 TO 20 -1120 LET K1=K+L -1130 LET R(K,L)=K1 -1140 NEXT L -1150 NEXT K -1160 LET N1=0 -1170 LET P1=0 -1180 LET R1=0 -1190 LET C=0 -1200 LET T=0 -1210 FOR I=1 TO 20 -1220 LET I1=I+1 -1230 LET T8=N(I,1) -1240 LET T9=N(I,2) -1250 IF T8 <> I1 THEN 1510 -1260 IF T9 <> -I THEN 1510 -1270 FOR J=1 TO 2 -1280 LET F1=N(I,J) -1290 LET N1=N1+F1 -1300 LET G1=P(J,I) -1310 LET P1=P1+G1 -1320 LET J1=I*J -1330 IF G1 <> J1 THEN 1350 -1340 LET C=C+1 -1350 NEXT J -1360 NEXT I -1370 IF C<>40 THEN 1510 -1380 IF N1<>20 THEN 1510 -1390 IF P1<>630 THEN 1510 -1400 FOR K=20 TO 1 STEP -1 -1410 FOR L=1 TO 20 -1420 LET Q1=R(K,L) -1430 LET R1=R1+Q1 -1440 LET K1=K+L -1450 IF Q1 <> K1 THEN 1470 -1460 LET T=T+1 -1470 NEXT L -1480 NEXT K -1490 IF T<>400 THEN 1510 -1500 IF R1=8400 THEN 1530 -1510 PRINT "*** TEST FAILED ***" -1520 GOTO 1540 -1530 PRINT "*** TEST PASSED ***" -1540 PRINT -1550 PRINT " BEGIN TEST." -1560 PRINT -1570 PRINT -1580 PRINT "END PROGRAM 58" -1590 END diff --git a/bwbtest/NBS2/P058.run b/bwbtest/NBS2/P058.run deleted file mode 100644 index 3b26d21..0000000 --- a/bwbtest/NBS2/P058.run +++ /dev/null @@ -1,43 +0,0 @@ -PROGRAM FILE 58: ARRAY ASSIGNMENT WITH OPTION BASE 1. - ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 15.2, 15.4 - - -SECTION 58.1: ONE-DIMENSIONAL ARRAYS WITHOUT THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 58.2: TWO-DIMENSIONAL ARRAYS WITHOUT THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 58.3: ONE-DIMENSIONAL ARRAYS WITH THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - - -SECTION 58.4: TWO-DIMENSIONAL ARRAYS WITH THE - DIM-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - BEGIN TEST. - - -END PROGRAM 58 diff --git a/bwbtest/NBS2/P059.BAS b/bwbtest/NBS2/P059.BAS deleted file mode 100644 index 0baf6ae..0000000 --- a/bwbtest/NBS2/P059.BAS +++ /dev/null @@ -1,30 +0,0 @@ -10 PRINT "PROGRAM FILE 59: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'." -20 PRINT " ANSI STANDARD 6.2, 6.4" -30 PRINT -40 PRINT "SECTION 59.1: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'." -50 PRINT -60 PRINT " BEGIN TEST" -70 PRINT -80 FOR J=0 TO 10 -90 LET A(J)=11-J -100 NEXT J -110 LET E9=0 -120 LET A$="OK" -130 FOR I=10 TO 0 STEP -1 -140 IF A(I)=11-I THEN 170 -150 LET E9=1 -160 PRINT "LOST CORRECT VALUE IN ARRAY ELEMENT #";I -170 NEXT I -180 IF A$="OK" THEN 210 -190 PRINT "LOST CORRECT VALUE IN A$" -200 LET E9=1 -210 PRINT -220 IF E9<>0 THEN 250 -230 PRINT "*** TEST PASSED ***" -240 GOTO 260 -250 PRINT "*** TEST FAILED ***" -260 PRINT -270 PRINT " END TEST" -280 PRINT -290 PRINT "END PROGRAM 59" -340 END diff --git a/bwbtest/NBS2/P059.run b/bwbtest/NBS2/P059.run deleted file mode 100644 index 5a8cd06..0000000 --- a/bwbtest/NBS2/P059.run +++ /dev/null @@ -1,13 +0,0 @@ -PROGRAM FILE 59: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'. - ANSI STANDARD 6.2, 6.4 - -SECTION 59.1: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'. - - BEGIN TEST - - -*** TEST PASSED *** - - END TEST - -END PROGRAM 59 diff --git a/bwbtest/NBS2/P060.BAS b/bwbtest/NBS2/P060.BAS deleted file mode 100644 index 5ce5153..0000000 --- a/bwbtest/NBS2/P060.BAS +++ /dev/null @@ -1,34 +0,0 @@ -10 PRINT "PROGRAM FILE 60: NUMERIC CONSTANTS USED AS SUBSCRIPTS" -20 PRINT " ARE ROUNDED TO NEAREST INTEGER." -30 PRINT " ANSI STANDARD 6.4, 5.4" -40 PRINT -50 PRINT "SECTION 60.2: NUMERIC CONSTANTS USED AS SUBSCRIPTS" -60 PRINT " ARE ROUNDED TO NEAREST INTEGER." -70 PRINT -80 PRINT " BEGIN TEST" -90 PRINT -100 FOR I=0 TO 10 -110 LET A(I)=11-I -120 NEXT I -130 LET Y$="3" -140 LET X$="3" -150 IF A(3)<>8 THEN 280 -160 LET X$="2.50001" -170 IF A(2.50001)<>8 THEN 280 -180 LET X$="3.49999" -190 IF A(3.49999)<>8 THEN 280 -200 LET Y$="0" -210 LET X$="-.49" -220 IF A(-.49) <> 11 THEN 280 -230 LET Y$="10" -240 LET X$="10.49" -250 IF A(10.49)<>1 THEN 280 -260 PRINT " *** TEST PASSED *** " -270 GOTO 300 -280 PRINT "SUBSCRIPT OF ";X$;" DID NOT EVALUATE TO ";Y$ -290 PRINT "*** TEST FAILED ***" -300 PRINT -310 PRINT " END TEST" -320 PRINT -330 PRINT "END PROGRAM 60" -340 END diff --git a/bwbtest/NBS2/P060.run b/bwbtest/NBS2/P060.run deleted file mode 100644 index a59f30c..0000000 --- a/bwbtest/NBS2/P060.run +++ /dev/null @@ -1,14 +0,0 @@ -PROGRAM FILE 60: NUMERIC CONSTANTS USED AS SUBSCRIPTS - ARE ROUNDED TO NEAREST INTEGER. - ANSI STANDARD 6.4, 5.4 - -SECTION 60.2: NUMERIC CONSTANTS USED AS SUBSCRIPTS - ARE ROUNDED TO NEAREST INTEGER. - - BEGIN TEST - - *** TEST PASSED *** - - END TEST - -END PROGRAM 60 diff --git a/bwbtest/NBS2/P061.BAS b/bwbtest/NBS2/P061.BAS deleted file mode 100644 index 9a0f193..0000000 --- a/bwbtest/NBS2/P061.BAS +++ /dev/null @@ -1,87 +0,0 @@ -10 PRINT "PROGRAM FILE 61: NUMERIC EXPRESSIONS CONTAINING" -20 PRINT " SUBSCRIPTED VARIABLES." -30 PRINT " ANSI STANDARD 6.2, 6.4, 7.2, 7.4" -40 PRINT -50 PRINT "SECTION 61.1: NUMERIC EXPRESSIONS CONTAINING" -60 PRINT " SUBSCRIPTED VARIABLES." -70 PRINT -80 PRINT "THIS SECTION TESTS WHETHER SUBSCRIPTED VARIABLES" -90 PRINT "CAN BE USED AS PRIMARIES IN NUMERIC EXPRESSIONS." -100 PRINT -110 PRINT " BEGIN TEST" -120 PRINT -130 PRINT "CASE #","SHOULD BE","ACTUAL","OUTCOME" -140 PRINT -150 LET F=0 -160 LET C1=0 -180 REM ARRAY B(I) CONTAINS FIBONACCI SERIES -200 LET B(1)=+001.00 -210 LET B(2)=1 -220 FOR I=3 TO 10 -230 LET J=I-1 -240 LET K=I-2 -250 LET B(I)=B(J)+B(K) -260 NEXT I -270 LET A=B(5)+B(8) -280 LET Y=26 -290 GOSUB 9000 -300 LET C(7)=47.23/B(7)+23.E-1 -310 LET H9=7.0 -320 LET A=C(H9)+H9*B(H9) -330 LET Y=96.933076923 -340 GOSUB 9000 -350 LET H9=6 -360 LET H9=B(H9) -370 LET H9=B(H9) -380 LET Z(0)=(H9/7)^B(4)*20/(B(7)-B(4))-B(10)-.02E+02 -390 LET Z(1)=Z(0)+Z(0) -400 LET Z(2)=-Z(0)-Z(0) -410 LET Z(3)=Z(0)*Z(0) -420 LET Z(4)=Z(0)/Z(0) -430 LET Z(5)=Z(0)^Z(0) -440 LET A=Z(0)+Z(1) -450 LET Y=-9 -460 GOSUB 9000 -470 LET A=Z(2)+Z(3)+Z(4)+Z(5) -480 LET Y=15.96296293 -490 GOSUB 9000 -500 LET A=-2000.00E-03-B(10)-(B(4)-B(7))/2E+1*B(4)^(H9/7) -510 LET Y=-43.5 -520 GOSUB 9000 -530 FOR I=1 TO 7 -540 FOR J=1 TO 7 -550 LET Q(I,J)=I/J -560 NEXT J -570 NEXT I -580 LET A=Q(6,3)+Q(6,7)*Q(5,4)*(-Q(2,3))*Q(7,2)/Q(5,6)/Q(3,4) -590 LET Y=-2 -600 GOSUB 9000 -2000 PRINT -2010 IF F=0 THEN 2040 -2020 PRINT "*** TEST FAILED IN ";F;" CASE(S). ***" -2030 GOTO 2050 -2040 PRINT "*** TEST PASSED ***" -2050 PRINT -2060 PRINT " END TEST" -2070 PRINT -2080 PRINT "END PROGRAM 61" -2090 STOP -9000 REM HANDLE REPORT -9002 REM THIS SUBROUTINE ADOPTS A VERY LOOSE CRITERION OF CORRECTNESS -9004 REM (RELATIVE ERROR < .01). ITS PURPOSE IS NOT TO MEASURE ACCURACY -9006 REM BUT ONLY TO ASSURE THAT THE SEMANTICS OF THE EXPRESSION -9008 REM HAVE BEEN CORRECTLY IMPLEMENTED. -9010 LET C1=C1+1 -9020 PRINT C1,Y,A, -9030 LET P$="FAILS" -9040 LET M=0.01 -9050 LET T=(A-Y)/Y -9060 IF T>M THEN 9110 -9070 LET T=-T -9080 IF T>M THEN 9110 -9090 LET P$="PASSES" -9100 GOTO 9120 -9110 LET F=F+1 -9120 PRINT "TEST ";P$ -9130 RETURN -9140 END diff --git a/bwbtest/NBS2/P061.run b/bwbtest/NBS2/P061.run deleted file mode 100644 index 4e33e6b..0000000 --- a/bwbtest/NBS2/P061.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 61: NUMERIC EXPRESSIONS CONTAINING - SUBSCRIPTED VARIABLES. - ANSI STANDARD 6.2, 6.4, 7.2, 7.4 - -SECTION 61.1: NUMERIC EXPRESSIONS CONTAINING - SUBSCRIPTED VARIABLES. - -THIS SECTION TESTS WHETHER SUBSCRIPTED VARIABLES -CAN BE USED AS PRIMARIES IN NUMERIC EXPRESSIONS. - - BEGIN TEST - -CASE # SHOULD BE ACTUAL OUTCOME - - 1 26 26 TEST PASSES - 2 96.9331 96.9331 TEST PASSES - 3 -9 -9 TEST PASSES - 4 15.963 15.963 TEST PASSES - 5 -43.5 -43.5 TEST PASSES - 6 -2 -2. TEST PASSES - -*** TEST PASSED *** - - END TEST - -END PROGRAM 61 - -Program interrupted at line 2090 diff --git a/bwbtest/NBS2/P062.BAS b/bwbtest/NBS2/P062.BAS deleted file mode 100644 index 47f37bd..0000000 --- a/bwbtest/NBS2/P062.BAS +++ /dev/null @@ -1,72 +0,0 @@ -10 PRINT "PROGRAM FILE 62: GENERAL SYNTACTIC AND SEMANTIC" -20 PRINT " PROPERTIES OF ARRAY CONTROL STATEMENTS:" -30 PRINT " OPTION AND DIM." -40 PRINT " ANSI STANDARD 15.2, 15.4" -50 PRINT -60 PRINT "SECTION 62.1: GENERAL SYNTACTIC AND SEMANTIC" -70 PRINT " PROPERTIES OF ARRAY CONTROL STATEMENTS:" -80 PRINT " OPTION AND DIM." -90 PRINT -100 PRINT "THIS SECTION ASSURES THAT OPTION-STATEMENTS MAY PRECEDE" -110 PRINT "DIM-STATEMENTS, THAT REFERENCES TO IMPLICITLY-DIMENSIONED" -120 PRINT "ARRAYS MAY ALSO PRECEDE DIM-STATEMENTS, AND THAT FLOW" -130 PRINT "OF CONTROL MAY PASS THROUGH OPTION AND DIM STATEMENTS." -140 PRINT -150 PRINT " BEGIN TEST" -160 LET F=0 -170 LET T=1 -180 OPTION BASE 1 -190 REM CAN FALL THROUGH OR JUMP TO OPTION WITH NO EFFECT -200 IF T<>1 THEN 230 -210 LET T=2 -220 GOTO 180 -230 LET A(1)=1 -240 REM CAN REFERENCE ARRAY BEFORE ANY DIM-STATEMENT -250 FOR I=2 TO 10 -260 LET J=I-1 -270 LET A(I)=A(J)+A(J) -280 NEXT I -290 IF A(10)=512 THEN 320 -300 LET M$="IMPLICIT ARRAY" -310 GOSUB 1000 -320 LET T=1 -330 DIM D(3),C(2,4),B(12) -340 REM CAN DIMENSION SEVERAL ARRAYS IN NON-ALPHA ORDER AND -350 REM OF DIFFERENT DIMENSIONALITY -360 REM CAN FALL THROUGH OR JUMP TO DIM -370 IF T<>1 THEN 400 -380 LET T=2 -390 GOTO 330 -400 LET B(12)=A(10) -410 FOR I=11 TO 1 STEP -1 -420 LET J=I+1 -430 LET B(I)=B(J) -440 NEXT I -450 IF B(1)=512 THEN 480 -460 LET M$="EXPLICIT ARRAY" -470 GOSUB 1000 -480 GOTO 510 -490 DIM E(14) -500 REM DIM SETS ARRAY SIZE EVEN IF JUMPED OVER -510 LET A(10)=666 -520 LET B(12)=A(10) -530 LET C(2,4)=B(12) -540 LET D(3)=C(2,4) -550 LET E(14)=D(3) -560 IF E(14)=666 THEN 590 -570 LET M$="SKIPPED-OVER DIM" -580 GOSUB 1000 -590 PRINT -600 IF F=0 THEN 630 -610 PRINT " *** TEST FAILED IN ";F;" CASE(S) *** " -620 GOTO 640 -630 PRINT " *** TEST PASSED *** " -640 PRINT -650 PRINT " END TEST" -660 PRINT -670 PRINT "END PROGRAM 62" -680 STOP -1000 PRINT "FAILURE BECAUSE OF: ";M$ -1010 LET F=F+1 -1020 RETURN -1030 END diff --git a/bwbtest/NBS2/P062.XXX b/bwbtest/NBS2/P062.XXX deleted file mode 100644 index bcd7206..0000000 --- a/bwbtest/NBS2/P062.XXX +++ /dev/null @@ -1,489 +0,0 @@ -aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -Trace is ON -buff_read_expression, NUMBER:0.000000 -[ 10 PRINT "PROGRAM FILE 62: GENERAL SYNTACTIC AND SEMANTIC" ]buff_read_expression, STRING:PROGRAM FILE 62: GENERAL SYNTACTIC AND SEMANTIC -PROGRAM FILE 62: GENERAL SYNTACTIC AND SEMANTIC -[ 20 PRINT " PROPERTIES OF ARRAY CONTROL STATEMENTS:" ]buff_read_expression, STRING: PROPERTIES OF ARRAY CONTROL STATEMENTS: - PROPERTIES OF ARRAY CONTROL STATEMENTS: -[ 30 PRINT " OPTION AND DIM." ]buff_read_expression, STRING: OPTION AND DIM. - OPTION AND DIM. -[ 40 PRINT " ANSI STANDARD 15.2, 15.4" ]buff_read_expression, STRING: ANSI STANDARD 15.2, 15.4 - ANSI STANDARD 15.2, 15.4 -[ 50 PRINT ] -[ 60 PRINT "SECTION 62.1: GENERAL SYNTACTIC AND SEMANTIC" ]buff_read_expression, STRING:SECTION 62.1: GENERAL SYNTACTIC AND SEMANTIC -SECTION 62.1: GENERAL SYNTACTIC AND SEMANTIC -[ 70 PRINT " PROPERTIES OF ARRAY CONTROL STATEMENTS:" ]buff_read_expression, STRING: PROPERTIES OF ARRAY CONTROL STATEMENTS: - PROPERTIES OF ARRAY CONTROL STATEMENTS: -[ 80 PRINT " OPTION AND DIM." ]buff_read_expression, STRING: OPTION AND DIM. - OPTION AND DIM. -[ 90 PRINT ] -[ 100 PRINT "THIS SECTION ASSURES THAT OPTION-STATEMENTS MAY PRECEDE" ]buff_read_expression, STRING:THIS SECTION ASSURES THAT OPTION-STATEMENTS MAY PRECEDE -THIS SECTION ASSURES THAT OPTION-STATEMENTS MAY PRECEDE -[ 110 PRINT "DIM-STATEMENTS, THAT REFERENCES TO IMPLICITLY-DIMENSIONED" ]buff_read_expression, STRING:DIM-STATEMENTS, THAT REFERENCES TO IMPLICITLY-DIMENSIONED -DIM-STATEMENTS, THAT REFERENCES TO IMPLICITLY-DIMENSIONED -[ 120 PRINT "ARRAYS MAY ALSO PRECEDE DIM-STATEMENTS, AND THAT FLOW" ]buff_read_expression, STRING:ARRAYS MAY ALSO PRECEDE DIM-STATEMENTS, AND THAT FLOW -ARRAYS MAY ALSO PRECEDE DIM-STATEMENTS, AND THAT FLOW -[ 130 PRINT "OF CONTROL MAY PASS THROUGH OPTION AND DIM STATEMENTS." ]buff_read_expression, STRING:OF CONTROL MAY PASS THROUGH OPTION AND DIM STATEMENTS. -OF CONTROL MAY PASS THROUGH OPTION AND DIM STATEMENTS. -[ 140 PRINT ] -[ 150 PRINT " BEGIN TEST" ]buff_read_expression, STRING: BEGIN TEST - BEGIN TEST -[ 160 LET F=0 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:0.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 170 LET T=1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:1.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 180 OPTION BASE 1 ]buff_read_expression, NUMBER:1.000000 -[ 190 REM CAN FALL THROUGH OR JUMP TO OPTION WITH NO EFFECT ][ 200 IF T<>1 THEN 230 ]buff_read_expression, NUMBER:0.000000 -buff_read_expression, NUMBER:230.000000 -[ 210 LET T=2 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:2.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 220 GOTO 180 ]buff_read_expression, NUMBER:180.000000 -[ 180 OPTION BASE 1 ]buff_read_expression, NUMBER:1.000000 -[ 190 REM CAN FALL THROUGH OR JUMP TO OPTION WITH NO EFFECT ][ 200 IF T<>1 THEN 230 ]buff_read_expression, NUMBER:-1.000000 -buff_read_expression, NUMBER:230.000000 -[ 230 LET A(1)=1 ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:1.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:1.000000 -cccccccccccccccc -buff_read_expression, NUMBER:1.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 240 REM CAN REFERENCE ARRAY BEFORE ANY DIM-STATEMENT ][ 250 FOR I=2 TO 10 ]buff_read_expression, NUMBER:2.000000 -buff_read_expression, NUMBER:10.000000 -[ 260 LET J=I-1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:1.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 270 LET A(I)=A(J)+A(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:2.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:1.000000 -buff_read_expression, NUMBER:1.000000 -buff_read_expression, NUMBER:2.000000 -cccccccccccccccc -buff_read_expression, NUMBER:2.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 280 NEXT I ][ 260 LET J=I-1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:2.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 270 LET A(I)=A(J)+A(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:3.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:2.000000 -buff_read_expression, NUMBER:2.000000 -buff_read_expression, NUMBER:4.000000 -cccccccccccccccc -buff_read_expression, NUMBER:3.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 280 NEXT I ][ 260 LET J=I-1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:3.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 270 LET A(I)=A(J)+A(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:4.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:3.000000 -buff_read_expression, NUMBER:3.000000 -buff_read_expression, NUMBER:8.000000 -cccccccccccccccc -buff_read_expression, NUMBER:4.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 280 NEXT I ][ 260 LET J=I-1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:4.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 270 LET A(I)=A(J)+A(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:5.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:4.000000 -buff_read_expression, NUMBER:4.000000 -buff_read_expression, NUMBER:16.000000 -cccccccccccccccc -buff_read_expression, NUMBER:5.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 280 NEXT I ][ 260 LET J=I-1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:5.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 270 LET A(I)=A(J)+A(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:6.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:5.000000 -buff_read_expression, NUMBER:5.000000 -buff_read_expression, NUMBER:32.000000 -cccccccccccccccc -buff_read_expression, NUMBER:6.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 280 NEXT I ][ 260 LET J=I-1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:6.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 270 LET A(I)=A(J)+A(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:7.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:6.000000 -buff_read_expression, NUMBER:6.000000 -buff_read_expression, NUMBER:64.000000 -cccccccccccccccc -buff_read_expression, NUMBER:7.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 280 NEXT I ][ 260 LET J=I-1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:7.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 270 LET A(I)=A(J)+A(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:8.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:7.000000 -buff_read_expression, NUMBER:7.000000 -buff_read_expression, NUMBER:128.000000 -cccccccccccccccc -buff_read_expression, NUMBER:8.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 280 NEXT I ][ 260 LET J=I-1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:8.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 270 LET A(I)=A(J)+A(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:9.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:8.000000 -buff_read_expression, NUMBER:8.000000 -buff_read_expression, NUMBER:256.000000 -cccccccccccccccc -buff_read_expression, NUMBER:9.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 280 NEXT I ][ 260 LET J=I-1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:9.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 270 LET A(I)=A(J)+A(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:10.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:9.000000 -buff_read_expression, NUMBER:9.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:10.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 280 NEXT I ][ 290 IF A(10)=512 THEN 320 ]buff_read_expression, NUMBER:10.000000 -buff_read_expression, NUMBER:-1.000000 -buff_read_expression, NUMBER:320.000000 -[ 320 LET T=1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:1.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 330 DIM D(3),C(2,4),B(12) ]buff_read_expression, NUMBER:3.000000 -buff_read_expression, NUMBER:2.000000 -buff_read_expression, NUMBER:4.000000 -buff_read_expression, NUMBER:12.000000 -[ 340 REM CAN DIMENSION SEVERAL ARRAYS IN NON-ALPHA ORDER AND ][ 350 REM OF DIFFERENT DIMENSIONALITY ][ 360 REM CAN FALL THROUGH OR JUMP TO DIM ][ 370 IF T<>1 THEN 400 ]buff_read_expression, NUMBER:0.000000 -buff_read_expression, NUMBER:400.000000 -[ 380 LET T=2 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:2.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 390 GOTO 330 ]buff_read_expression, NUMBER:330.000000 -[ 330 DIM D(3),C(2,4),B(12) ]buff_read_expression, NUMBER:3.000000 -buff_read_expression, NUMBER:2.000000 -buff_read_expression, NUMBER:4.000000 -buff_read_expression, NUMBER:12.000000 -[ 340 REM CAN DIMENSION SEVERAL ARRAYS IN NON-ALPHA ORDER AND ][ 350 REM OF DIFFERENT DIMENSIONALITY ][ 360 REM CAN FALL THROUGH OR JUMP TO DIM ][ 370 IF T<>1 THEN 400 ]buff_read_expression, NUMBER:-1.000000 -buff_read_expression, NUMBER:400.000000 -[ 400 LET B(12)=A(10) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:12.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:10.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:12.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 410 FOR I=11 TO 1 STEP -1 ]buff_read_expression, NUMBER:11.000000 -buff_read_expression, NUMBER:1.000000 -buff_read_expression, NUMBER:-1.000000 -[ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:12.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:11.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:12.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:11.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:11.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:10.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:11.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:10.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:10.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:9.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:10.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:9.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:9.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:8.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:9.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:8.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:8.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:7.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:8.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:7.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:7.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:6.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:7.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:6.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:6.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:5.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:6.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:5.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:5.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:4.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:5.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:4.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:4.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:3.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:4.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:3.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:3.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:2.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:3.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:2.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 420 LET J=I+1 ]aaaaaaaaaaaaaaaa -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:2.000000 -cccccccccccccccc -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 430 LET B(I)=B(J) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:1.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:2.000000 -buff_read_expression, NUMBER:512.000000 -cccccccccccccccc -buff_read_expression, NUMBER:1.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 440 NEXT I ][ 450 IF B(1)=512 THEN 480 ]buff_read_expression, NUMBER:1.000000 -buff_read_expression, NUMBER:-1.000000 -buff_read_expression, NUMBER:480.000000 -[ 480 GOTO 510 ]buff_read_expression, NUMBER:510.000000 -[ 510 LET A(10)=666 ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:10.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:666.000000 -cccccccccccccccc -buff_read_expression, NUMBER:10.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 520 LET B(12)=A(10) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:12.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:10.000000 -buff_read_expression, NUMBER:666.000000 -cccccccccccccccc -buff_read_expression, NUMBER:12.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 530 LET C(2,4)=B(12) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:2.000000 -buff_read_expression, NUMBER:4.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:12.000000 -buff_read_expression, NUMBER:666.000000 -cccccccccccccccc -buff_read_expression, NUMBER:2.000000 -buff_read_expression, NUMBER:4.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 540 LET D(3)=C(2,4) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:3.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:2.000000 -buff_read_expression, NUMBER:4.000000 -buff_read_expression, NUMBER:666.000000 -cccccccccccccccc -buff_read_expression, NUMBER:3.000000 -dddddddddddddddd -eeeeeeeeeeeeeeee -[ 550 LET E(14)=D(3) ]aaaaaaaaaaaaaaaa -buff_read_expression, NUMBER:14.000000 -bbbbbbbbbbbbbbbb -buff_read_expression, NUMBER:3.000000 -buff_read_expression, NUMBER:666.000000 -cccccccccccccccc -buff_read_expression, NUMBER:14.000000 - -ERROR in line 550: Subscript out of range diff --git a/bwbtest/NBS2/P062.run b/bwbtest/NBS2/P062.run deleted file mode 100644 index f67d87d..0000000 --- a/bwbtest/NBS2/P062.run +++ /dev/null @@ -1,17 +0,0 @@ -PROGRAM FILE 62: GENERAL SYNTACTIC AND SEMANTIC - PROPERTIES OF ARRAY CONTROL STATEMENTS: - OPTION AND DIM. - ANSI STANDARD 15.2, 15.4 - -SECTION 62.1: GENERAL SYNTACTIC AND SEMANTIC - PROPERTIES OF ARRAY CONTROL STATEMENTS: - OPTION AND DIM. - -THIS SECTION ASSURES THAT OPTION-STATEMENTS MAY PRECEDE -DIM-STATEMENTS, THAT REFERENCES TO IMPLICITLY-DIMENSIONED -ARRAYS MAY ALSO PRECEDE DIM-STATEMENTS, AND THAT FLOW -OF CONTROL MAY PASS THROUGH OPTION AND DIM STATEMENTS. - - BEGIN TEST - -ERROR in line 550: Subscript out of range diff --git a/bwbtest/NBS2/P063.BAS b/bwbtest/NBS2/P063.BAS deleted file mode 100644 index 2842bf0..0000000 --- a/bwbtest/NBS2/P063.BAS +++ /dev/null @@ -1,38 +0,0 @@ -10 PRINT "PROGRAM FILE 63: EXCEPTION - SUBSCRIPT TOO LARGE FOR" -15 PRINT " ONE-DIMENSIONAL ARRAY." -20 PRINT " ANSI STANDARD 6.5" -30 PRINT -40 PRINT "SECTION 63.1: EXCEPTION - SUBSCRIPT TOO LARGE FOR" -50 PRINT " ONE-DIMENSIONAL ARRAY." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS" -90 PRINT "THE IMPLICIT UPPER BOUND OF AN ARRAY." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL" -170 PRINT " SUBSCRIPT." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 FOR I=7 TO 12 -220 PRINT "ABOUT TO ASSIGN TO A(";I;"). "; -230 IF I<11 THEN 260 -240 PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" -250 GOTO 270 -260 PRINT "ASSIGNMENT SHOULD BE OK." -270 LET A(I) = 20 - I -280 PRINT "HAVE ASSIGNED ";20-I;" TO A(";I;")." -290 IF I<11 THEN 310 -300 PRINT "ASSIGNMENT TO SUBSCRIPT > 10 - *** TEST FAILS ***" -310 PRINT -320 NEXT I -330 PRINT -340 PRINT " END TEST." -350 PRINT -360 PRINT "END PROGRAM 63" -370 END diff --git a/bwbtest/NBS2/P063.run b/bwbtest/NBS2/P063.run deleted file mode 100644 index 93bfd01..0000000 --- a/bwbtest/NBS2/P063.run +++ /dev/null @@ -1,36 +0,0 @@ -PROGRAM FILE 63: EXCEPTION - SUBSCRIPT TOO LARGE FOR - ONE-DIMENSIONAL ARRAY. - ANSI STANDARD 6.5 - -SECTION 63.1: EXCEPTION - SUBSCRIPT TOO LARGE FOR - ONE-DIMENSIONAL ARRAY. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS -THE IMPLICIT UPPER BOUND OF AN ARRAY. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL - SUBSCRIPT. - - BEGIN TEST. - -ABOUT TO ASSIGN TO A( 7 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 13 TO A( 7 ). - -ABOUT TO ASSIGN TO A( 8 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 12 TO A( 8 ). - -ABOUT TO ASSIGN TO A( 9 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 11 TO A( 9 ). - -ABOUT TO ASSIGN TO A( 10 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 10 TO A( 10 ). - -ABOUT TO ASSIGN TO A( 11 ). *** EXCEPTION SHOULD OCCUR NOW *** - -ERROR in line 270: Subscript out of range diff --git a/bwbtest/NBS2/P064.BAS b/bwbtest/NBS2/P064.BAS deleted file mode 100644 index 44ed270..0000000 --- a/bwbtest/NBS2/P064.BAS +++ /dev/null @@ -1,38 +0,0 @@ -10 PRINT "PROGRAM FILE 64: EXCEPTION - SUBSCRIPT TOO SMALL FOR" -15 PRINT " TWO-DIMENSIONAL ARRAY." -20 PRINT " ANSI STANDARD 6.5" -30 PRINT -40 PRINT "SECTION 64.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR" -50 PRINT " TWO-DIMENSIONAL ARRAY." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS" -90 PRINT "THE IMPLICIT LOWER BOUND OF AN ARRAY." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL" -170 PRINT " SUBSCRIPT." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 FOR I=3 TO -2 STEP -1 -220 PRINT "ABOUT TO ASSIGN TO B(7,";I;")."; -230 IF I>-1 THEN 260 -240 PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" -250 GOTO 270 -260 PRINT " ASSIGNMENT SHOULD BE OK." -270 LET B(7,I) = 20 - I -280 PRINT "HAVE ASSIGNED ";20-I;" TO B(7,";I;")." -290 IF I>-1 THEN 310 -300 PRINT "ASSIGNMENT TO SUBSCRIPT < 0 - *** TEST FAILS ***" -310 PRINT -320 NEXT I -330 PRINT -340 PRINT " END TEST." -350 PRINT -360 PRINT "END PROGRAM 64" -370 END diff --git a/bwbtest/NBS2/P064.run b/bwbtest/NBS2/P064.run deleted file mode 100644 index 45c72d8..0000000 --- a/bwbtest/NBS2/P064.run +++ /dev/null @@ -1,36 +0,0 @@ -PROGRAM FILE 64: EXCEPTION - SUBSCRIPT TOO SMALL FOR - TWO-DIMENSIONAL ARRAY. - ANSI STANDARD 6.5 - -SECTION 64.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR - TWO-DIMENSIONAL ARRAY. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS -THE IMPLICIT LOWER BOUND OF AN ARRAY. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL - SUBSCRIPT. - - BEGIN TEST. - -ABOUT TO ASSIGN TO B(7, 3 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 17 TO B(7, 3 ). - -ABOUT TO ASSIGN TO B(7, 2 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 18 TO B(7, 2 ). - -ABOUT TO ASSIGN TO B(7, 1 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 19 TO B(7, 1 ). - -ABOUT TO ASSIGN TO B(7, 0 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 20 TO B(7, 0 ). - -ABOUT TO ASSIGN TO B(7,-1 ).*** EXCEPTION SHOULD OCCUR NOW *** - -ERROR in line 270: Subscript out of range diff --git a/bwbtest/NBS2/P065.BAS b/bwbtest/NBS2/P065.BAS deleted file mode 100644 index 11872c9..0000000 --- a/bwbtest/NBS2/P065.BAS +++ /dev/null @@ -1,39 +0,0 @@ -10 PRINT "PROGRAM FILE 65: EXCEPTION - SUBSCRIPT TOO SMALL FOR" -15 PRINT " ONE-DIMENSIONAL ARRAY, WITH DIM." -20 PRINT " ANSI STANDARD 6.5, 15.2, 15.4" -30 PRINT -40 PRINT "SECTION 65.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR" -50 PRINT " ONE-DIMENSIONAL ARRAY, WITH DIM." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES USE OF A NEGATIVE SUBSCRIPT AS A FATAL EXCEPTION" -90 PRINT "WHEN NO OPTION HAS BEEN SPECIFIED." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE" -170 PRINT " NEGATIVE SUBSCRIPT." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 DIM A(8) -220 FOR I=3 TO -2 STEP -1 -230 PRINT "ABOUT TO ASSIGN TO A(";I;")."; -240 IF I>-1 THEN 270 -250 PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" -260 GOTO 280 -270 PRINT " ASSIGNMENT SHOULD BE OK." -280 LET A(I) = 20 - I -290 PRINT "HAVE ASSIGNED ";20-I;" TO A(";I;")." -300 IF I>-1 THEN 320 -310 PRINT "ASSIGNMENT TO SUBSCRIPT < 1 - *** TEST FAILS ***" -320 PRINT -330 NEXT I -340 PRINT -350 PRINT " END TEST." -360 PRINT -370 PRINT "END PROGRAM 65" -380 END diff --git a/bwbtest/NBS2/P065.run b/bwbtest/NBS2/P065.run deleted file mode 100644 index de6f077..0000000 --- a/bwbtest/NBS2/P065.run +++ /dev/null @@ -1,36 +0,0 @@ -PROGRAM FILE 65: EXCEPTION - SUBSCRIPT TOO SMALL FOR - ONE-DIMENSIONAL ARRAY, WITH DIM. - ANSI STANDARD 6.5, 15.2, 15.4 - -SECTION 65.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR - ONE-DIMENSIONAL ARRAY, WITH DIM. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES USE OF A NEGATIVE SUBSCRIPT AS A FATAL EXCEPTION -WHEN NO OPTION HAS BEEN SPECIFIED. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE - NEGATIVE SUBSCRIPT. - - BEGIN TEST. - -ABOUT TO ASSIGN TO A( 3 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 17 TO A( 3 ). - -ABOUT TO ASSIGN TO A( 2 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 18 TO A( 2 ). - -ABOUT TO ASSIGN TO A( 1 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 19 TO A( 1 ). - -ABOUT TO ASSIGN TO A( 0 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 20 TO A( 0 ). - -ABOUT TO ASSIGN TO A(-1 ).*** EXCEPTION SHOULD OCCUR NOW *** - -ERROR in line 280: Subscript out of range diff --git a/bwbtest/NBS2/P066.BAS b/bwbtest/NBS2/P066.BAS deleted file mode 100644 index 032b91e..0000000 --- a/bwbtest/NBS2/P066.BAS +++ /dev/null @@ -1,39 +0,0 @@ -10 PRINT "PROGRAM FILE 66: EXCEPTION - SUBSCRIPT TOO LARGE FOR" -15 PRINT " TWO-DIMENSIONAL ARRAY, WITH DIM." -20 PRINT " ANSI STANDARD 6.5, 15.2, 15.4" -30 PRINT -40 PRINT "SECTION 66.1: EXCEPTION - SUBSCRIPT TOO LARGE FOR" -50 PRINT " TWO-DIMENSIONAL ARRAY, WITH DIM." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS" -90 PRINT "THE EXPLICIT UPPER BOUND OF AN ARRAY." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL" -170 PRINT " SUBSCRIPT." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 DIM B(3,12) -220 FOR I=9 TO 14 -230 PRINT "ABOUT TO ASSIGN TO B(0,";I;")."; -240 IF I<13 THEN 270 -250 PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" -260 GOTO 280 -270 PRINT " ASSIGNMENT SHOULD BE OK." -280 LET B(0,I) = 20 - I -290 PRINT "HAVE ASSIGNED ";20-I;" TO B(0,";I;")." -300 IF I<13 THEN 320 -310 PRINT "ASSIGNMENT TO SUBSCRIPT > 12 - *** TEST FAILS ***" -320 PRINT -330 NEXT I -340 PRINT -350 PRINT " END TEST." -360 PRINT -370 PRINT "END PROGRAM 66" -380 END diff --git a/bwbtest/NBS2/P066.run b/bwbtest/NBS2/P066.run deleted file mode 100644 index 47f5d1b..0000000 --- a/bwbtest/NBS2/P066.run +++ /dev/null @@ -1,36 +0,0 @@ -PROGRAM FILE 66: EXCEPTION - SUBSCRIPT TOO LARGE FOR - TWO-DIMENSIONAL ARRAY, WITH DIM. - ANSI STANDARD 6.5, 15.2, 15.4 - -SECTION 66.1: EXCEPTION - SUBSCRIPT TOO LARGE FOR - TWO-DIMENSIONAL ARRAY, WITH DIM. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS -THE EXPLICIT UPPER BOUND OF AN ARRAY. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL - SUBSCRIPT. - - BEGIN TEST. - -ABOUT TO ASSIGN TO B(0, 9 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 11 TO B(0, 9 ). - -ABOUT TO ASSIGN TO B(0, 10 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 10 TO B(0, 10 ). - -ABOUT TO ASSIGN TO B(0, 11 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 9 TO B(0, 11 ). - -ABOUT TO ASSIGN TO B(0, 12 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 8 TO B(0, 12 ). - -ABOUT TO ASSIGN TO B(0, 13 ).*** EXCEPTION SHOULD OCCUR NOW *** - -ERROR in line 280: Subscript out of range diff --git a/bwbtest/NBS2/P067.BAS b/bwbtest/NBS2/P067.BAS deleted file mode 100644 index 7f9ba14..0000000 --- a/bwbtest/NBS2/P067.BAS +++ /dev/null @@ -1,39 +0,0 @@ -10 PRINT "PROGRAM FILE 67: EXCEPTION - SUBSCRIPT TOO SMALL FOR" -15 PRINT " ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 1." -20 PRINT " ANSI STANDARD 6.5, 15.2, 15.4" -30 PRINT -40 PRINT "SECTION 67.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR" -50 PRINT " ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 1." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES USE OF A ZERO SUBSCRIPT AS A FATAL EXCEPTION WHEN" -90 PRINT "OPTION BASE 1 HAS BEEN SPECIFIED." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ZERO" -170 PRINT " SUBSCRIPT." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 OPTION BASE 1 -220 FOR I=3 TO -2 STEP -1 -230 PRINT "ABOUT TO ASSIGN TO A(";I;")."; -240 IF I>0 THEN 270 -250 PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" -260 GOTO 280 -270 PRINT " ASSIGNMENT SHOULD BE OK." -280 LET A(I) = 20 - I -290 PRINT "HAVE ASSIGNED ";20-I;" TO A(";I;")." -300 IF I>0 THEN 320 -310 PRINT "ASSIGNMENT TO SUBSCRIPT < 1 - *** TEST FAILS ***" -320 PRINT -330 NEXT I -340 PRINT -350 PRINT " END TEST." -360 PRINT -370 PRINT "END PROGRAM 67" -380 END diff --git a/bwbtest/NBS2/P067.run b/bwbtest/NBS2/P067.run deleted file mode 100644 index 811f08b..0000000 --- a/bwbtest/NBS2/P067.run +++ /dev/null @@ -1,33 +0,0 @@ -PROGRAM FILE 67: EXCEPTION - SUBSCRIPT TOO SMALL FOR - ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 1. - ANSI STANDARD 6.5, 15.2, 15.4 - -SECTION 67.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR - ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 1. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES USE OF A ZERO SUBSCRIPT AS A FATAL EXCEPTION WHEN -OPTION BASE 1 HAS BEEN SPECIFIED. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ZERO - SUBSCRIPT. - - BEGIN TEST. - -ABOUT TO ASSIGN TO A( 3 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 17 TO A( 3 ). - -ABOUT TO ASSIGN TO A( 2 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 18 TO A( 2 ). - -ABOUT TO ASSIGN TO A( 1 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 19 TO A( 1 ). - -ABOUT TO ASSIGN TO A( 0 ).*** EXCEPTION SHOULD OCCUR NOW *** - -ERROR in line 280: Subscript out of range diff --git a/bwbtest/NBS2/P068.BAS b/bwbtest/NBS2/P068.BAS deleted file mode 100644 index 1a8c2c6..0000000 --- a/bwbtest/NBS2/P068.BAS +++ /dev/null @@ -1,41 +0,0 @@ -10 PRINT "PROGRAM FILE 68: EXCEPTION - SUBSCRIPT TOO LARGE FOR" -15 PRINT " ONE-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1." -20 PRINT " ANSI STANDARD 6.5, 15.2, 15.4" -30 PRINT -40 PRINT "SECTION 68.1: EXCEPTION - SUBSCRIPT TOO LARGE FOR" -50 PRINT " ONE-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS" -90 PRINT "THE EXPLICIT UPPER BOUND OF AN ARRAY, WITH AN OPTION" -100 PRINT "STATEMENT PRESENT." -110 PRINT -120 PRINT "TO PASS THIS TEST:" -130 PRINT -140 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -150 PRINT " DISPLAYED, AND" -160 PRINT -170 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL" -180 PRINT " SUBSCRIPT." -190 PRINT -200 PRINT " BEGIN TEST." -210 OPTION BASE 1 -220 DIM A(7) -230 PRINT -240 FOR I=5 TO 9 -250 PRINT "ABOUT TO ASSIGN TO A(";I;"). "; -260 IF I<8 THEN 290 -270 PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" -280 GOTO 300 -290 PRINT "ASSIGNMENT SHOULD BE OK." -300 LET A(I) = 20 - I -310 PRINT "HAVE ASSIGNED ";20-I;" TO A(";I;")." -320 IF I<8 THEN 340 -330 PRINT "ASSIGNMENT TO SUBSCRIPT > 7 - *** TEST FAILS ***" -340 PRINT -350 NEXT I -360 PRINT -370 PRINT " END TEST." -380 PRINT -390 PRINT "END PROGRAM 68" -400 END diff --git a/bwbtest/NBS2/P068.run b/bwbtest/NBS2/P068.run deleted file mode 100644 index 7ab921b..0000000 --- a/bwbtest/NBS2/P068.run +++ /dev/null @@ -1,34 +0,0 @@ -PROGRAM FILE 68: EXCEPTION - SUBSCRIPT TOO LARGE FOR - ONE-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1. - ANSI STANDARD 6.5, 15.2, 15.4 - -SECTION 68.1: EXCEPTION - SUBSCRIPT TOO LARGE FOR - ONE-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS -THE EXPLICIT UPPER BOUND OF AN ARRAY, WITH AN OPTION -STATEMENT PRESENT. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL - SUBSCRIPT. - - BEGIN TEST. - -ABOUT TO ASSIGN TO A( 5 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 15 TO A( 5 ). - -ABOUT TO ASSIGN TO A( 6 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 14 TO A( 6 ). - -ABOUT TO ASSIGN TO A( 7 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 13 TO A( 7 ). - -ABOUT TO ASSIGN TO A( 8 ). *** EXCEPTION SHOULD OCCUR NOW *** - -ERROR in line 300: Subscript out of range diff --git a/bwbtest/NBS2/P069.BAS b/bwbtest/NBS2/P069.BAS deleted file mode 100644 index b2bacb7..0000000 --- a/bwbtest/NBS2/P069.BAS +++ /dev/null @@ -1,41 +0,0 @@ -10 PRINT "PROGRAM FILE 69: EXCEPTION - SUBSCRIPT TOO LARGE FOR" -15 PRINT " TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0." -20 PRINT " ANSI STANDARD 6.5, 15.2, 15.4" -30 PRINT -40 PRINT "SECTION 69.1: EXCEPTION - SUBSCRIPT TOO LARGE FOR" -50 PRINT " TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS" -90 PRINT "THE EXPLICIT UPPER BOUND OF AN ARRAY, WITH AN OPTION" -100 PRINT "STATEMENT PRESENT." -110 PRINT -120 PRINT "TO PASS THIS TEST:" -130 PRINT -140 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -150 PRINT " DISPLAYED, AND" -160 PRINT -170 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL" -180 PRINT " SUBSCRIPT." -190 PRINT -200 PRINT " BEGIN TEST." -210 PRINT -220 OPTION BASE 0 -230 DIM B(3,12) -240 FOR I=9 TO 14 -250 PRINT "ABOUT TO ASSIGN TO B(0,";I;")."; -260 IF I<13 THEN 290 -270 PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" -280 GOTO 300 -290 PRINT " ASSIGNMENT SHOULD BE OK." -300 LET B(0,I) = 20 - I -310 PRINT "HAVE ASSIGNED ";20-I;" TO B(0,";I;")." -320 IF I<13 THEN 340 -330 PRINT "ASSIGNMENT TO SUBSCRIPT > 12 - *** TEST FAILS ***" -340 PRINT -350 NEXT I -360 PRINT -370 PRINT " END TEST." -380 PRINT -390 PRINT "END PROGRAM 69" -400 END diff --git a/bwbtest/NBS2/P069.run b/bwbtest/NBS2/P069.run deleted file mode 100644 index 11ac9be..0000000 --- a/bwbtest/NBS2/P069.run +++ /dev/null @@ -1,37 +0,0 @@ -PROGRAM FILE 69: EXCEPTION - SUBSCRIPT TOO LARGE FOR - TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0. - ANSI STANDARD 6.5, 15.2, 15.4 - -SECTION 69.1: EXCEPTION - SUBSCRIPT TOO LARGE FOR - TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS -THE EXPLICIT UPPER BOUND OF AN ARRAY, WITH AN OPTION -STATEMENT PRESENT. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL - SUBSCRIPT. - - BEGIN TEST. - -ABOUT TO ASSIGN TO B(0, 9 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 11 TO B(0, 9 ). - -ABOUT TO ASSIGN TO B(0, 10 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 10 TO B(0, 10 ). - -ABOUT TO ASSIGN TO B(0, 11 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 9 TO B(0, 11 ). - -ABOUT TO ASSIGN TO B(0, 12 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 8 TO B(0, 12 ). - -ABOUT TO ASSIGN TO B(0, 13 ).*** EXCEPTION SHOULD OCCUR NOW *** - -ERROR in line 300: Subscript out of range diff --git a/bwbtest/NBS2/P070.BAS b/bwbtest/NBS2/P070.BAS deleted file mode 100644 index da61b8d..0000000 --- a/bwbtest/NBS2/P070.BAS +++ /dev/null @@ -1,39 +0,0 @@ -10 PRINT "PROGRAM FILE 70: EXCEPTION - SUBSCRIPT TOO SMALL FOR" -15 PRINT " ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0." -20 PRINT " ANSI STANDARD 6.5, 15.2, 15.4" -30 PRINT -40 PRINT "SECTION 70.1: EXCEPTION - SUBSCRIPT TO SMALL FOR" -50 PRINT " ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES USE OF A NEGATIVE SUBSCRIPT AS A FATAL EXCEPTION" -90 PRINT "WHEN OPTION BASE 0 HAS BEEN SPECIFIED." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE" -170 PRINT " NEGATIVE SUBSCRIPT." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 OPTION BASE 0 -220 FOR I=3 TO -2 STEP -1 -230 PRINT "ABOUT TO ASSIGN TO A(";I;")."; -240 IF I>-1 THEN 270 -250 PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" -260 GOTO 280 -270 PRINT " ASSIGNMENT SHOULD BE OK." -280 LET A(I) = 20 - I -290 PRINT "HAVE ASSIGNED ";20-I;" TO A(";I;")." -300 IF I>-1 THEN 320 -310 PRINT "ASSIGNMENT TO SUBSCRIPT < 0 - *** TEST FAILS ***" -320 PRINT -330 NEXT I -340 PRINT -350 PRINT " END TEST." -360 PRINT -370 PRINT "END PROGRAM 70" -380 END diff --git a/bwbtest/NBS2/P070.run b/bwbtest/NBS2/P070.run deleted file mode 100644 index f68efa0..0000000 --- a/bwbtest/NBS2/P070.run +++ /dev/null @@ -1,36 +0,0 @@ -PROGRAM FILE 70: EXCEPTION - SUBSCRIPT TOO SMALL FOR - ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0. - ANSI STANDARD 6.5, 15.2, 15.4 - -SECTION 70.1: EXCEPTION - SUBSCRIPT TO SMALL FOR - ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 0. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES USE OF A NEGATIVE SUBSCRIPT AS A FATAL EXCEPTION -WHEN OPTION BASE 0 HAS BEEN SPECIFIED. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE - NEGATIVE SUBSCRIPT. - - BEGIN TEST. - -ABOUT TO ASSIGN TO A( 3 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 17 TO A( 3 ). - -ABOUT TO ASSIGN TO A( 2 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 18 TO A( 2 ). - -ABOUT TO ASSIGN TO A( 1 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 19 TO A( 1 ). - -ABOUT TO ASSIGN TO A( 0 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 20 TO A( 0 ). - -ABOUT TO ASSIGN TO A(-1 ).*** EXCEPTION SHOULD OCCUR NOW *** - -ERROR in line 280: Subscript out of range diff --git a/bwbtest/NBS2/P071.BAS b/bwbtest/NBS2/P071.BAS deleted file mode 100644 index 11e8574..0000000 --- a/bwbtest/NBS2/P071.BAS +++ /dev/null @@ -1,40 +0,0 @@ -10 PRINT "PROGRAM FILE 71: EXCEPTION - SUBSCRIPT TOO SMALL FOR" -15 PRINT " TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0." -20 PRINT " ANSI STANDARD 6.5, 15.2, 15.4" -30 PRINT -40 PRINT "SECTION 71.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR" -50 PRINT " TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0." -70 PRINT -80 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -90 PRINT "RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS" -100 PRINT "THE EXPLICIT LOWER BOUND OF AN ARRAY." -110 PRINT -120 PRINT "TO PASS THIS TEST:" -130 PRINT -140 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -150 PRINT " DISPLAYED, AND" -160 PRINT -170 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL" -180 PRINT " SUBSCRIPT." -190 PRINT -200 PRINT " BEGIN TEST." -210 OPTION BASE 0 -220 DIM B(11,3) -230 PRINT -240 FOR I=3 TO -2 STEP -1 -250 PRINT "ABOUT TO ASSIGN TO B(";I;",3)."; -260 IF I>-1 THEN 290 -270 PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" -280 GOTO 300 -290 PRINT " ASSIGNMENT SHOULD BE OK." -300 LET B(I,3) = 20 - I -310 PRINT "HAVE ASSIGNED ";20-I;" TO B(";I;",3)." -320 IF I>-1 THEN 340 -330 PRINT "ASSIGNMENT TO SUBSCRIPT < 0 - *** TEST FAILS ***" -340 PRINT -350 NEXT I -360 PRINT -370 PRINT " END TEST." -380 PRINT -390 PRINT "END PROGRAM 71" -400 END diff --git a/bwbtest/NBS2/P071.run b/bwbtest/NBS2/P071.run deleted file mode 100644 index bfc8aab..0000000 --- a/bwbtest/NBS2/P071.run +++ /dev/null @@ -1,36 +0,0 @@ -PROGRAM FILE 71: EXCEPTION - SUBSCRIPT TOO SMALL FOR - TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0. - ANSI STANDARD 6.5, 15.2, 15.4 - -SECTION 71.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR - TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS -THE EXPLICIT LOWER BOUND OF AN ARRAY. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL - SUBSCRIPT. - - BEGIN TEST. - -ABOUT TO ASSIGN TO B( 3 ,3). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 17 TO B( 3 ,3). - -ABOUT TO ASSIGN TO B( 2 ,3). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 18 TO B( 2 ,3). - -ABOUT TO ASSIGN TO B( 1 ,3). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 19 TO B( 1 ,3). - -ABOUT TO ASSIGN TO B( 0 ,3). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 20 TO B( 0 ,3). - -ABOUT TO ASSIGN TO B(-1 ,3).*** EXCEPTION SHOULD OCCUR NOW *** - -ERROR in line 300: Subscript out of range diff --git a/bwbtest/NBS2/P072.BAS b/bwbtest/NBS2/P072.BAS deleted file mode 100644 index 4b7c9dd..0000000 --- a/bwbtest/NBS2/P072.BAS +++ /dev/null @@ -1,41 +0,0 @@ -10 PRINT "PROGRAM FILE 72: EXCEPTION - SUBSCRIPT TOO SMALL FOR:" -15 PRINT " TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1." -20 PRINT " ANSI STANDARD 6.5, 15.2, 15.4" -30 PRINT -40 PRINT "SECTION 72.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR" -50 PRINT " TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1." -70 PRINT -80 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -90 PRINT "RECOGNIZES USE OF A ZERO SUBSCRIPT AS A FATAL EXCEPTION WHEN" -100 PRINT "OPTION BASE 1 HAS BEEN SPECIFIED ALONG WITH A" -110 PRINT "TWO-DIMENSIONAL ARRAY SET UP WITH A DIM-STATEMENT." -120 PRINT -130 PRINT "TO PASS THIS TEST:" -140 PRINT -150 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -160 PRINT " DISPLAYED, AND" -170 PRINT -180 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ZERO" -190 PRINT " SUBSCRIPT." -200 PRINT -210 PRINT " BEGIN TEST." -220 PRINT -230 OPTION BASE 1 -240 DIM B(12,4) -250 FOR I=4 TO -2 STEP -1 -260 PRINT "ABOUT TO ASSIGN TO B(12,";I;")."; -270 IF I>0 THEN 300 -280 PRINT "*** EXCEPTION SHOULD OCCUR NOW ***" -290 GOTO 310 -300 PRINT " ASSIGNMENT SHOULD BE OK." -310 LET B(12,I)=10-I -320 PRINT "HAVE ASSIGNED ";10-I;" TO B(12,";I;")." -330 IF I>0 THEN 350 -340 PRINT "ASSIGNMENT TO SUBSCRIPT < 1 - *** TEST FAILS ***" -350 PRINT -360 NEXT I -370 PRINT -380 PRINT " END TEST." -390 PRINT -400 PRINT "END PROGRAM 72" -410 END diff --git a/bwbtest/NBS2/P072.run b/bwbtest/NBS2/P072.run deleted file mode 100644 index e032b6a..0000000 --- a/bwbtest/NBS2/P072.run +++ /dev/null @@ -1,37 +0,0 @@ -PROGRAM FILE 72: EXCEPTION - SUBSCRIPT TOO SMALL FOR: - TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1. - ANSI STANDARD 6.5, 15.2, 15.4 - -SECTION 72.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR - TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 1. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES USE OF A ZERO SUBSCRIPT AS A FATAL EXCEPTION WHEN -OPTION BASE 1 HAS BEEN SPECIFIED ALONG WITH A -TWO-DIMENSIONAL ARRAY SET UP WITH A DIM-STATEMENT. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ZERO - SUBSCRIPT. - - BEGIN TEST. - -ABOUT TO ASSIGN TO B(12, 4 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 6 TO B(12, 4 ). - -ABOUT TO ASSIGN TO B(12, 3 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 7 TO B(12, 3 ). - -ABOUT TO ASSIGN TO B(12, 2 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 8 TO B(12, 2 ). - -ABOUT TO ASSIGN TO B(12, 1 ). ASSIGNMENT SHOULD BE OK. -HAVE ASSIGNED 9 TO B(12, 1 ). - -ABOUT TO ASSIGN TO B(12, 0 ).*** EXCEPTION SHOULD OCCUR NOW *** - -ERROR in line 310: Subscript out of range diff --git a/bwbtest/NBS2/P073.BAS b/bwbtest/NBS2/P073.BAS deleted file mode 100644 index 7f3f595..0000000 --- a/bwbtest/NBS2/P073.BAS +++ /dev/null @@ -1,47 +0,0 @@ -10 PRINT "PROGRAM FILE 73: ERROR - DIM SETS UPPER BOUND OF ZERO WITH" -20 PRINT " OPTION BASE 1." -30 PRINT " ANSI STANDARD 15.4" -40 PRINT -50 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF THE INPUT STATEMENT" -60 PRINT " WHICH HAS NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW" -70 PRINT " THIS FEATURE TO BE INCORRECTLY IMPLEMENTED, THEN THE " -80 PRINT " VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL." -90 PRINT -100 PRINT "SECTION 73.1: ERROR - DIM SETS UPPER BOUND OF ZERO WITH" -110 PRINT " OPTION BASE 1." -120 PRINT -130 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -140 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -150 PRINT -160 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -170 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -180 PRINT " BY THE PROCESSOR, OR" -190 PRINT -200 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -210 PRINT -220 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -230 PRINT "FOR DETAILED CRITERIA." -240 PRINT -250 PRINT " BEGIN TEST" -260 PRINT -270 OPTION BASE 1 -280 DIM A(0) -300 PRINT "TO HELP IN CHECKING INTERPRETATION, YOU MAY ENTER" -310 PRINT "VALUES TO BE USED AS SUBSCRIPTS ON THE ARRAY. THE PROGRAM" -320 PRINT "WILL ASSIGN THE VALUE 777 TO THE INDICATED ELEMENT AND" -330 PRINT "THEN ECHO THE RESULT. IN THIS WAY YOU CAN CHECK WHICH" -340 PRINT "SUBSCRIPTS (0 OR 1) ARE WITHIN THE ARRAY AND WHICH CAUSE" -350 PRINT "EXCEPTIONS. ENTER 100 WHEN YOU WISH TO STOP." -360 PRINT -370 PRINT "ENTER VALUE TO BE USED AS SUBSCRIPT" -380 INPUT I -390 IF I=100 THEN 440 -400 LET A(I)=777 -410 PRINT "A(";I;") = ";A(I) -420 PRINT -430 GOTO 370 -440 PRINT -450 PRINT " END TEST" -460 PRINT -470 PRINT "END PROGRAM 73" -480 END diff --git a/bwbtest/NBS2/P073.run b/bwbtest/NBS2/P073.run deleted file mode 100644 index 78fddaa..0000000 --- a/bwbtest/NBS2/P073.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 73: ERROR - DIM SETS UPPER BOUND OF ZERO WITH - OPTION BASE 1. - ANSI STANDARD 15.4 - -*** NOTE: THIS PROGRAM MAKES USE OF THE INPUT STATEMENT - WHICH HAS NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW - THIS FEATURE TO BE INCORRECTLY IMPLEMENTED, THEN THE - VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL. - -SECTION 73.1: ERROR - DIM SETS UPPER BOUND OF ZERO WITH - OPTION BASE 1. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - - -ERROR in line 280: Subscript out of range diff --git a/bwbtest/NBS2/P074.BAS b/bwbtest/NBS2/P074.BAS deleted file mode 100644 index 398cdf2..0000000 --- a/bwbtest/NBS2/P074.BAS +++ /dev/null @@ -1,49 +0,0 @@ -10 PRINT "PROGRAM FILE 74: ERROR - DIM SETS ARRAY TO ONE DIMENSION" -13 PRINT " AND REFERENCE IS MADE TO TWO-DIMENSIONAL" -16 PRINT " VARIABLE OF SAME NAME." -20 PRINT " ANSI STANDARD 15.4, 6.4" -30 PRINT -40 PRINT "SECTION 74.1: ERROR - DIM SETS ARRAY TO ONE DIMENSION " -50 PRINT " AND REFERENCE IS MADE TO TWO-DIMENSIONAL" -60 PRINT " VARIABLE OF SAME NAME." -70 PRINT -80 PRINT -90 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -100 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -110 PRINT -120 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -130 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -140 PRINT " BY THE PROCESSOR, OR" -150 PRINT -160 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -170 PRINT -180 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -190 PRINT "FOR DETAILED CRITERIA." -200 PRINT -210 PRINT " BEGIN TEST" -220 PRINT -230 DIM A(150) -240 FOR I=0 TO 10 -250 FOR J=0 TO 10 -260 LET A(I,J)=10000+(100*I)+J -270 NEXT J -280 NEXT I -300 PRINT "VARIABLE A(I,j) WAS ASSIGNED 10000+(100*I)+J." -310 PRINT "RESULTS BELOW:" -320 PRINT -330 PRINT "ARRAY VALUES FOR A(I,J):" -340 PRINT "EACH LINE HAS ALL THE ELEMENTS FOR A GIVEN VALUE OF I," -350 PRINT "WITH J GOING FROM 0 TO 10." -360 PRINT -370 FOR I = 0 TO 10 -380 PRINT "I=";I;":"; -390 FOR J=0 TO 10 -400 PRINT A(I,J); -410 NEXT J -420 PRINT -430 NEXT I -440 PRINT -450 PRINT " END TEST" -460 PRINT -470 PRINT "END PROGRAM 74" -480 END diff --git a/bwbtest/NBS2/P074.run b/bwbtest/NBS2/P074.run deleted file mode 100644 index 5c73b2b..0000000 --- a/bwbtest/NBS2/P074.run +++ /dev/null @@ -1,57 +0,0 @@ -PROGRAM FILE 74: ERROR - DIM SETS ARRAY TO ONE DIMENSION - AND REFERENCE IS MADE TO TWO-DIMENSIONAL - VARIABLE OF SAME NAME. - ANSI STANDARD 15.4, 6.4 - -SECTION 74.1: ERROR - DIM SETS ARRAY TO ONE DIMENSION - AND REFERENCE IS MADE TO TWO-DIMENSIONAL - VARIABLE OF SAME NAME. - - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -VARIABLE A(I,j) WAS ASSIGNED 10000+(100*I)+J. -RESULTS BELOW: - -ARRAY VALUES FOR A(I,J): -EACH LINE HAS ALL THE ELEMENTS FOR A GIVEN VALUE OF I, -WITH J GOING FROM 0 TO 10. - -I= 0 : 10000 10001 10002 10003 10004 10005 10006 10007 10008 10009 - 10010 -I= 1 : 10100 10101 10102 10103 10104 10105 10106 10107 10108 10109 - 10110 -I= 2 : 10200 10201 10202 10203 10204 10205 10206 10207 10208 10209 - 10210 -I= 3 : 10300 10301 10302 10303 10304 10305 10306 10307 10308 10309 - 10310 -I= 4 : 10400 10401 10402 10403 10404 10405 10406 10407 10408 10409 - 10410 -I= 5 : 10500 10501 10502 10503 10504 10505 10506 10507 10508 10509 - 10510 -I= 6 : 10600 10601 10602 10603 10604 10605 10606 10607 10608 10609 - 10610 -I= 7 : 10700 10701 10702 10703 10704 10705 10706 10707 10708 10709 - 10710 -I= 8 : 10800 10801 10802 10803 10804 10805 10806 10807 10808 10809 - 10810 -I= 9 : 10900 10901 10902 10903 10904 10905 10906 10907 10908 10909 - 10910 -I= 10 : 11000 11001 11002 11003 11004 11005 11006 11007 11008 11009 - 11010 - - END TEST - -END PROGRAM 74 diff --git a/bwbtest/NBS2/P075.BAS b/bwbtest/NBS2/P075.BAS deleted file mode 100644 index 1713dcf..0000000 --- a/bwbtest/NBS2/P075.BAS +++ /dev/null @@ -1,34 +0,0 @@ -10 PRINT "PROGRAM FILE 75: ERROR - DIM SETS ARRAY TO ONE DIMENSION" -13 PRINT " AND REFERENCE IS MADE TO SIMPLE VARIABLE" -16 PRINT " OF SAME NAME." -20 PRINT " ANSI STANDARD 15.4, 6.4" -30 PRINT -40 PRINT "SECTION 75.1: ERROR - DIM SETS ARRAY TO ONE DIMENSION" -50 PRINT " AND REFERENCE IS MADE TO SIMPLE VARIABLE" -60 PRINT " OF SAME NAME." -70 PRINT -80 PRINT -90 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -100 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -110 PRINT -120 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -130 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -140 PRINT " BY THE PROCESSOR, OR" -150 PRINT -160 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -170 PRINT -180 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -190 PRINT "FOR DETAILED CRITERIA." -200 PRINT -210 PRINT " BEGIN TEST" -220 PRINT -230 DIM A(47) -240 LET A=777 -300 PRINT "VARIABLE A WAS ASSIGNED 777. RESULTS BELOW:" -320 PRINT -400 PRINT "VARIABLE A = ";A -440 PRINT -450 PRINT " END TEST" -460 PRINT -470 PRINT "END PROGRAM 75" -480 END diff --git a/bwbtest/NBS2/P075.run b/bwbtest/NBS2/P075.run deleted file mode 100644 index cce6b73..0000000 --- a/bwbtest/NBS2/P075.run +++ /dev/null @@ -1,31 +0,0 @@ -PROGRAM FILE 75: ERROR - DIM SETS ARRAY TO ONE DIMENSION - AND REFERENCE IS MADE TO SIMPLE VARIABLE - OF SAME NAME. - ANSI STANDARD 15.4, 6.4 - -SECTION 75.1: ERROR - DIM SETS ARRAY TO ONE DIMENSION - AND REFERENCE IS MADE TO SIMPLE VARIABLE - OF SAME NAME. - - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -VARIABLE A WAS ASSIGNED 777. RESULTS BELOW: - -VARIABLE A = 777 - - END TEST - -END PROGRAM 75 diff --git a/bwbtest/NBS2/P076.BAS b/bwbtest/NBS2/P076.BAS deleted file mode 100644 index a6b7bb3..0000000 --- a/bwbtest/NBS2/P076.BAS +++ /dev/null @@ -1,39 +0,0 @@ -10 PRINT "PROGRAM FILE 76: ERROR - DIM SETS ARRAY TO TWO DIMENSIONS" -13 PRINT " AND REFERENCE IS MADE TO ONE-DIMENSIONAL" -16 PRINT " VARIABLE OF SAME NAME." -20 PRINT " ANSI STANDARD 15.4, 6.4" -30 PRINT -40 PRINT "SECTION 76.1: ERROR - DIM SETS ARRAY TO TWO DIMENSIONS" -50 PRINT " AND REFERENCE IS MADE TO ONE-DIMENSIONAL" -60 PRINT " VARIABLE OF SAME NAME." -70 PRINT -80 PRINT -90 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -100 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -110 PRINT -120 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -130 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -140 PRINT " BY THE PROCESSOR, OR" -150 PRINT -160 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -170 PRINT -180 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -190 PRINT "FOR DETAILED CRITERIA." -200 PRINT -210 PRINT " BEGIN TEST" -220 PRINT -230 DIM A(3,5) -240 FOR I=0 TO 10 -250 LET A(I)=111*I+5000 -260 NEXT I -280 PRINT "VARIABLE A(I) WAS ASSIGNED 111*I + 5000." -290 PRINT "RESULTS BELOW:" -300 PRINT -310 FOR I=0 TO 10 -320 PRINT "A(";I;") = ";A(I) -330 NEXT I -340 PRINT -350 PRINT " END TEST" -360 PRINT -370 PRINT "END PROGRAM 76" -380 END diff --git a/bwbtest/NBS2/P076.run b/bwbtest/NBS2/P076.run deleted file mode 100644 index 306f02f..0000000 --- a/bwbtest/NBS2/P076.run +++ /dev/null @@ -1,42 +0,0 @@ -PROGRAM FILE 76: ERROR - DIM SETS ARRAY TO TWO DIMENSIONS - AND REFERENCE IS MADE TO ONE-DIMENSIONAL - VARIABLE OF SAME NAME. - ANSI STANDARD 15.4, 6.4 - -SECTION 76.1: ERROR - DIM SETS ARRAY TO TWO DIMENSIONS - AND REFERENCE IS MADE TO ONE-DIMENSIONAL - VARIABLE OF SAME NAME. - - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -VARIABLE A(I) WAS ASSIGNED 111*I + 5000. -RESULTS BELOW: - -A( 0 ) = 5000 -A( 1 ) = 5111 -A( 2 ) = 5222 -A( 3 ) = 5333 -A( 4 ) = 5444 -A( 5 ) = 5555 -A( 6 ) = 5666 -A( 7 ) = 5777 -A( 8 ) = 5888 -A( 9 ) = 5999 -A( 10 ) = 6110 - - END TEST - -END PROGRAM 76 diff --git a/bwbtest/NBS2/P077.BAS b/bwbtest/NBS2/P077.BAS deleted file mode 100644 index c50243e..0000000 --- a/bwbtest/NBS2/P077.BAS +++ /dev/null @@ -1,49 +0,0 @@ -10 PRINT "PROGRAM FILE 77: ERROR - REFERENCE TO ARRAY AND SIMPLE " -15 PRINT " VARIABLE OF SAME NAME." -20 PRINT " ANSI STANDARD 6.4" -30 PRINT -40 PRINT "SECTION 77.1: ERROR - REFERENCE TO ARRAY AND SIMPLE " -50 PRINT " VARIABLE OF SAME NAME." -60 PRINT -70 PRINT -80 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -90 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -100 PRINT -110 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -120 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -130 PRINT " BY THE PROCESSOR, OR" -140 PRINT -150 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -160 PRINT -170 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -180 PRINT "FOR DETAILED CRITERIA." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -220 LET A=777 -230 FOR I=0 TO 10 -240 LET A(I)=111*I+5000 -250 NEXT I -270 PRINT "VARIABLE A(I) WAS ASSIGNED 111*I + 5000," -280 PRINT "AND SIMPLE VARIABLE A WAS ASSIGNED 777." -290 PRINT "RESULTS BELOW:" -300 PRINT -310 PRINT "A = ";A -320 IF A=777 THEN 350 -330 PRINT -340 PRINT "***** ORIGINAL VALUE OF A WAS LOST *****" -350 PRINT -360 LET C=0 -370 FOR I = 0 TO 10 -380 PRINT "A(";I;") = ";A(I) -390 IF A(I)=111*I+5000 THEN 410 -400 LET C=9 -410 NEXT I -420 IF C=0 THEN 450 -430 PRINT -440 PRINT "***** SOME VALUES IN ARRAY WERE LOST *****" -450 PRINT -460 PRINT " END TEST" -470 PRINT -480 PRINT "END PROGRAM 77" -490 END diff --git a/bwbtest/NBS2/P077.run b/bwbtest/NBS2/P077.run deleted file mode 100644 index 401abe1..0000000 --- a/bwbtest/NBS2/P077.run +++ /dev/null @@ -1,43 +0,0 @@ -PROGRAM FILE 77: ERROR - REFERENCE TO ARRAY AND SIMPLE - VARIABLE OF SAME NAME. - ANSI STANDARD 6.4 - -SECTION 77.1: ERROR - REFERENCE TO ARRAY AND SIMPLE - VARIABLE OF SAME NAME. - - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -VARIABLE A(I) WAS ASSIGNED 111*I + 5000, -AND SIMPLE VARIABLE A WAS ASSIGNED 777. -RESULTS BELOW: - -A = 777 - -A( 0 ) = 5000 -A( 1 ) = 5111 -A( 2 ) = 5222 -A( 3 ) = 5333 -A( 4 ) = 5444 -A( 5 ) = 5555 -A( 6 ) = 5666 -A( 7 ) = 5777 -A( 8 ) = 5888 -A( 9 ) = 5999 -A( 10 ) = 6110 - - END TEST - -END PROGRAM 77 diff --git a/bwbtest/NBS2/P078.BAS b/bwbtest/NBS2/P078.BAS deleted file mode 100644 index 691cffd..0000000 --- a/bwbtest/NBS2/P078.BAS +++ /dev/null @@ -1,68 +0,0 @@ -10 PRINT "PROGRAM FILE 78: ERROR - REFERENCE TO ONE-DIMENSIONAL AND " -15 PRINT " TWO-DIMENSIONAL VARIABLE OF SAME NAME." -20 PRINT " ANSI STANDARD 6.4" -30 PRINT -40 PRINT "SECTION 78.1: ERROR - REFERENCE TO ONE-DIMENSIONAL AND " -50 PRINT " TWO-DIMENSIONAL VARIABLE OF SAME NAME." -60 PRINT -70 PRINT -80 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -90 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -100 PRINT -110 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -120 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -130 PRINT " BY THE PROCESSOR, OR" -140 PRINT -150 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -160 PRINT -170 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -180 PRINT "FOR DETAILED CRITERIA." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -220 FOR I=0 TO 10 -230 LET A(I)=11*I+5000 -240 NEXT I -250 FOR I=0 TO 10 -260 FOR J=0 TO 10 -270 LET A(I,J)=10000+(100*I)+J -280 NEXT J -290 NEXT I -310 PRINT "VARIABLE A(I) WAS ASSIGNED 11*I + 5000," -320 PRINT "AND VARIABLE A(I,J) WAS ASSIGNED 10000+(100*I)+J." -330 PRINT "RESULTS BELOW:" -340 PRINT -350 PRINT "ARRAY VALUES FOR A(I,J):" -360 PRINT "EACH LINE HAS ALL THE ELEMENTS FOR A GIVEN VALUE OF I," -370 PRINT "WITH J GOING FROM 0 TO 10." -380 PRINT -390 LET C1=0 -400 LET C2=0 -410 FOR I = 0 TO 10 -420 PRINT "I=";I;":"; -430 FOR J=0 TO 10 -440 PRINT A(I,J); -450 IF A(I,J)=10000+(100*I)+J THEN 470 -460 LET C2=9 -470 NEXT J -480 PRINT -490 NEXT I -500 PRINT -510 PRINT "ARRAY VALUES FOR A(I):" -520 PRINT -530 FOR I = 0 TO 10 -540 PRINT "A(";I;") = ";A(I) -550 IF A(I)=11*I+5000 THEN 570 -560 LET C1=9 -570 NEXT I -580 IF C1=0 THEN 610 -590 PRINT -600 PRINT "***** SOME VALUES IN ONE-DIMENSIONAL ARRAY WERE LOST *****" -610 IF C2=0 THEN 640 -620 PRINT -630 PRINT "***** SOME VALUES IN TWO-DIMENSIONAL ARRAY WERE LOST *****" -640 PRINT -650 PRINT " END TEST" -660 PRINT -670 PRINT "END PROGRAM 78" -680 END diff --git a/bwbtest/NBS2/P078.run b/bwbtest/NBS2/P078.run deleted file mode 100644 index 8457b2d..0000000 --- a/bwbtest/NBS2/P078.run +++ /dev/null @@ -1,70 +0,0 @@ -PROGRAM FILE 78: ERROR - REFERENCE TO ONE-DIMENSIONAL AND - TWO-DIMENSIONAL VARIABLE OF SAME NAME. - ANSI STANDARD 6.4 - -SECTION 78.1: ERROR - REFERENCE TO ONE-DIMENSIONAL AND - TWO-DIMENSIONAL VARIABLE OF SAME NAME. - - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -VARIABLE A(I) WAS ASSIGNED 11*I + 5000, -AND VARIABLE A(I,J) WAS ASSIGNED 10000+(100*I)+J. -RESULTS BELOW: - -ARRAY VALUES FOR A(I,J): -EACH LINE HAS ALL THE ELEMENTS FOR A GIVEN VALUE OF I, -WITH J GOING FROM 0 TO 10. - -I= 0 : 10000 10001 10002 10003 10004 10005 10006 10007 10008 10009 - 10010 -I= 1 : 10100 10101 10102 10103 10104 10105 10106 10107 10108 10109 - 10110 -I= 2 : 10200 10201 10202 10203 10204 10205 10206 10207 10208 10209 - 10210 -I= 3 : 10300 10301 10302 10303 10304 10305 10306 10307 10308 10309 - 10310 -I= 4 : 10400 10401 10402 10403 10404 10405 10406 10407 10408 10409 - 10410 -I= 5 : 10500 10501 10502 10503 10504 10505 10506 10507 10508 10509 - 10510 -I= 6 : 10600 10601 10602 10603 10604 10605 10606 10607 10608 10609 - 10610 -I= 7 : 10700 10701 10702 10703 10704 10705 10706 10707 10708 10709 - 10710 -I= 8 : 10800 10801 10802 10803 10804 10805 10806 10807 10808 10809 - 10810 -I= 9 : 10900 10901 10902 10903 10904 10905 10906 10907 10908 10909 - 10910 -I= 10 : 11000 11001 11002 11003 11004 11005 11006 11007 11008 11009 - 11010 - -ARRAY VALUES FOR A(I): - -A( 0 ) = 5000 -A( 1 ) = 5011 -A( 2 ) = 5022 -A( 3 ) = 5033 -A( 4 ) = 5044 -A( 5 ) = 5055 -A( 6 ) = 5066 -A( 7 ) = 5077 -A( 8 ) = 5088 -A( 9 ) = 5099 -A( 10 ) = 5110 - - END TEST - -END PROGRAM 78 diff --git a/bwbtest/NBS2/P079.BAS b/bwbtest/NBS2/P079.BAS deleted file mode 100644 index d332856..0000000 --- a/bwbtest/NBS2/P079.BAS +++ /dev/null @@ -1,42 +0,0 @@ -10 PRINT "PROGRAM FILE 79: ERROR - REFERENCE TO ARRAY" -15 PRINT " WITH LETTER-DIGIT NAME." -20 PRINT " ANSI STANDARD 6.2" -30 PRINT -40 PRINT "SECTION 79.1: ERROR - REFERENCE TO ARRAY" -50 PRINT " WITH LETTER-DIGIT NAME." -60 PRINT -70 PRINT -80 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -90 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -100 PRINT -110 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -120 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -130 PRINT " BY THE PROCESSOR, OR" -140 PRINT -150 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -160 PRINT -170 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -180 PRINT "FOR DETAILED CRITERIA." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -230 FOR I=0 TO 10 -240 LET A9(I)=111*I+5000 -250 NEXT I -270 PRINT "VARIABLE A9(I) WAS ASSIGNED 111*I + 5000." -290 PRINT "RESULTS BELOW:" -300 PRINT -360 LET C=0 -370 FOR I = 0 TO 10 -380 PRINT "A9(";I;") = ";A9(I) -390 IF A9(I)=111*I+5000 THEN 410 -400 LET C=9 -410 NEXT I -420 IF C=0 THEN 450 -430 PRINT -440 PRINT "***** SOME VALUES IN ARRAY WERE LOST *****" -450 PRINT -460 PRINT " END TEST" -470 PRINT -480 PRINT "END PROGRAM 79" -490 END diff --git a/bwbtest/NBS2/P079.run b/bwbtest/NBS2/P079.run deleted file mode 100644 index 11b990a..0000000 --- a/bwbtest/NBS2/P079.run +++ /dev/null @@ -1,40 +0,0 @@ -PROGRAM FILE 79: ERROR - REFERENCE TO ARRAY - WITH LETTER-DIGIT NAME. - ANSI STANDARD 6.2 - -SECTION 79.1: ERROR - REFERENCE TO ARRAY - WITH LETTER-DIGIT NAME. - - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -VARIABLE A9(I) WAS ASSIGNED 111*I + 5000. -RESULTS BELOW: - -A9( 0 ) = 5000 -A9( 1 ) = 5111 -A9( 2 ) = 5222 -A9( 3 ) = 5333 -A9( 4 ) = 5444 -A9( 5 ) = 5555 -A9( 6 ) = 5666 -A9( 7 ) = 5777 -A9( 8 ) = 5888 -A9( 9 ) = 5999 -A9( 10 ) = 6110 - - END TEST - -END PROGRAM 79 diff --git a/bwbtest/NBS2/P080.BAS b/bwbtest/NBS2/P080.BAS deleted file mode 100644 index 183a720..0000000 --- a/bwbtest/NBS2/P080.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 80: ERROR - MULTIPLE OPTION STATEMENTS." -20 PRINT " ANSI STANDARD 15.4" -30 PRINT -90 PRINT "SECTION 80.1: ERROR - MULTIPLE OPTION STATEMENTS." -100 PRINT -110 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -120 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -130 PRINT -140 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -150 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -160 PRINT " BY THE PROCESSOR, OR" -170 PRINT -180 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -190 PRINT -200 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -210 PRINT "FOR DETAILED CRITERIA." -220 PRINT -230 PRINT " BEGIN TEST" -240 PRINT -250 OPTION BASE 1 -260 OPTION BASE 0 -340 PRINT "YOU MAY WISH TO REVERSE THE ORDER OF THE OPTION" -350 PRINT "STATEMENTS IN THE SOURCE CODE TO TEST PROCESSOR" -360 PRINT "INTERPRETATION." -370 PRINT -380 PRINT "ABOUT TO EXECUTE 'LET A(0) = 777'" -410 LET A(0)=777 -420 PRINT "A(";I;") = ";A(I) -430 PRINT -460 PRINT " END TEST" -470 PRINT -480 PRINT "END PROGRAM 80" -490 END diff --git a/bwbtest/NBS2/P080.run b/bwbtest/NBS2/P080.run deleted file mode 100644 index 52286d4..0000000 --- a/bwbtest/NBS2/P080.run +++ /dev/null @@ -1,29 +0,0 @@ -PROGRAM FILE 80: ERROR - MULTIPLE OPTION STATEMENTS. - ANSI STANDARD 15.4 - -SECTION 80.1: ERROR - MULTIPLE OPTION STATEMENTS. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -YOU MAY WISH TO REVERSE THE ORDER OF THE OPTION -STATEMENTS IN THE SOURCE CODE TO TEST PROCESSOR -INTERPRETATION. - -ABOUT TO EXECUTE 'LET A(0) = 777' -A( 0 ) = 777 - - END TEST - -END PROGRAM 80 diff --git a/bwbtest/NBS2/P081.BAS b/bwbtest/NBS2/P081.BAS deleted file mode 100644 index 10144be..0000000 --- a/bwbtest/NBS2/P081.BAS +++ /dev/null @@ -1,51 +0,0 @@ -10 PRINT "PROGRAM FILE 81: ERROR - DIM-STATEMENT PRECEDES" -20 PRINT " OPTION-STATEMENT." -30 PRINT " ANSI STANDARD 15.4" -40 PRINT -50 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF THE INPUT STATEMENT" -60 PRINT " WHICH HAS NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW" -70 PRINT " THIS FEATURE TO BE INCORRECTLY IMPLEMENTED, THEN THE " -80 PRINT " VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL." -90 PRINT -100 PRINT "SECTION 81.1: ERROR - DIM-STATEMENT PRECEDES " -110 PRINT " OPTION-STATEMENT." -120 PRINT -130 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -140 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -150 PRINT -160 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -170 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -180 PRINT " BY THE PROCESSOR, OR" -190 PRINT -200 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -210 PRINT -220 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -230 PRINT "FOR DETAILED CRITERIA." -240 PRINT -250 PRINT " BEGIN TEST" -260 PRINT -270 DIM A(5) -280 OPTION BASE 1 -290 PRINT "TO HELP IN CHECKING INTERPRETATION, YOU MAY ENTER" -300 PRINT "VALUES TO BE USED AS SUBSCRIPTS ON THE ARRAY. THE PROGRAM" -310 PRINT "WILL ASSIGN THE VALUE 777 TO THE INDICATED ELEMENT AND" -320 PRINT "THEN ECHO THE RESULT. IN THIS WAY YOU CAN CHECK WHICH" -330 PRINT "SUBSCRIPTS ARE WITHIN THE ARRAY AND WHICH CAUSE EXCEPTIONS." -340 PRINT "THE ARRAY IS SET WITH 'DIM A(5)', FOLLOWED BY OPTION BASE 1." -350 PRINT "YOU SHOULD AT LEAST TEST SUBSCRIPT VALUES OF ZERO" -360 PRINT "AND SIX. THE ARRAY HAS BEEN DIMENSIONED AS A(5)." -370 PRINT -380 PRINT "ENTER 100 WHEN YOU WISH TO STOP." -390 PRINT -400 PRINT "ENTER VALUE TO BE USED AS SUBSCRIPT:" -410 INPUT I -420 IF I=100 THEN 470 -430 LET A(I)=777 -440 PRINT "A(";I;") = ";A(I) -450 PRINT -460 GOTO 400 -470 PRINT -480 PRINT " END TEST" -490 PRINT -500 PRINT "END PROGRAM 81" -510 END diff --git a/bwbtest/NBS2/P081.INP b/bwbtest/NBS2/P081.INP deleted file mode 100644 index 6d057e1..0000000 --- a/bwbtest/NBS2/P081.INP +++ /dev/null @@ -1,7 +0,0 @@ -0 -1 -2 -3 -4 -5 -100 diff --git a/bwbtest/NBS2/P081.run b/bwbtest/NBS2/P081.run deleted file mode 100644 index c6414b7..0000000 --- a/bwbtest/NBS2/P081.run +++ /dev/null @@ -1,67 +0,0 @@ -PROGRAM FILE 81: ERROR - DIM-STATEMENT PRECEDES - OPTION-STATEMENT. - ANSI STANDARD 15.4 - -*** NOTE: THIS PROGRAM MAKES USE OF THE INPUT STATEMENT - WHICH HAS NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW - THIS FEATURE TO BE INCORRECTLY IMPLEMENTED, THEN THE - VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL. - -SECTION 81.1: ERROR - DIM-STATEMENT PRECEDES - OPTION-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -TO HELP IN CHECKING INTERPRETATION, YOU MAY ENTER -VALUES TO BE USED AS SUBSCRIPTS ON THE ARRAY. THE PROGRAM -WILL ASSIGN THE VALUE 777 TO THE INDICATED ELEMENT AND -THEN ECHO THE RESULT. IN THIS WAY YOU CAN CHECK WHICH -SUBSCRIPTS ARE WITHIN THE ARRAY AND WHICH CAUSE EXCEPTIONS. -THE ARRAY IS SET WITH 'DIM A(5)', FOLLOWED BY OPTION BASE 1. -YOU SHOULD AT LEAST TEST SUBSCRIPT VALUES OF ZERO -AND SIX. THE ARRAY HAS BEEN DIMENSIONED AS A(5). - -ENTER 100 WHEN YOU WISH TO STOP. - -ENTER VALUE TO BE USED AS SUBSCRIPT: -? 0 -A( 0 ) = 777 - -ENTER VALUE TO BE USED AS SUBSCRIPT: -? 1 -A( 1 ) = 777 - -ENTER VALUE TO BE USED AS SUBSCRIPT: -? 2 -A( 2 ) = 777 - -ENTER VALUE TO BE USED AS SUBSCRIPT: -? 3 -A( 3 ) = 777 - -ENTER VALUE TO BE USED AS SUBSCRIPT: -? 4 -A( 4 ) = 777 - -ENTER VALUE TO BE USED AS SUBSCRIPT: -? 5 -A( 5 ) = 777 - -ENTER VALUE TO BE USED AS SUBSCRIPT: -? 100 - - END TEST - -END PROGRAM 81 diff --git a/bwbtest/NBS2/P082.BAS b/bwbtest/NBS2/P082.BAS deleted file mode 100644 index f1144c5..0000000 --- a/bwbtest/NBS2/P082.BAS +++ /dev/null @@ -1,32 +0,0 @@ -10 PRINT "PROGRAM FILE 82: ERROR - ARRAY-REFERENCE PRECEDES" -20 PRINT " OPTION-STATEMENT." -30 PRINT " ANSI STANDARD 15.4" -40 PRINT -50 PRINT "SECTION 82.1: ERROR - ARRAY-REFERENCE PRECEDES" -60 PRINT " OPTION-STATEMENT." -70 PRINT -80 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -90 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -100 PRINT -110 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -120 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -130 PRINT " BY THE PROCESSOR, OR" -140 PRINT -150 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -160 PRINT -170 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -180 PRINT "FOR DETAILED CRITERIA." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -220 PRINT "ABOUT TO EXECUTE 'LET A(0) = 105'" -230 PRINT "'OPTION BASE 1' FOLLOWS THIS STATEMENT." -240 LET A(0) = 105 -250 OPTION BASE 1 -260 PRINT -270 PRINT "A(0) = ";A(0) -280 PRINT -290 PRINT " END TEST" -300 PRINT -310 PRINT "END PROGRAM 82" -320 END diff --git a/bwbtest/NBS2/P082.run b/bwbtest/NBS2/P082.run deleted file mode 100644 index 3c18da9..0000000 --- a/bwbtest/NBS2/P082.run +++ /dev/null @@ -1,29 +0,0 @@ -PROGRAM FILE 82: ERROR - ARRAY-REFERENCE PRECEDES - OPTION-STATEMENT. - ANSI STANDARD 15.4 - -SECTION 82.1: ERROR - ARRAY-REFERENCE PRECEDES - OPTION-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -ABOUT TO EXECUTE 'LET A(0) = 105' -'OPTION BASE 1' FOLLOWS THIS STATEMENT. - -A(0) = 105 - - END TEST - -END PROGRAM 82 diff --git a/bwbtest/NBS2/P083.BAS b/bwbtest/NBS2/P083.BAS deleted file mode 100644 index b0a8e56..0000000 --- a/bwbtest/NBS2/P083.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 83: ERROR - ARRAY-REFERENCE PRECEDES" -15 PRINT " DIM-STATEMENT." -20 PRINT " ANSI STANDARD 15.4" -30 PRINT -90 PRINT "SECTION 83.1: ERROR - ARRAY-REFERENCE PRECEDES" -95 PRINT " DIM-STATEMENT." -100 PRINT -110 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -120 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -130 PRINT -140 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -150 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -160 PRINT " BY THE PROCESSOR, OR" -170 PRINT -180 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -190 PRINT -200 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -210 PRINT "FOR DETAILED CRITERIA." -220 PRINT -230 PRINT " BEGIN TEST" -240 PRINT -260 PRINT "ABOUT TO EXECUTE 'LET A(6) = 777'" -270 PRINT "'DIM A(5)' FOLLOWS THIS STATEMENT." -280 PRINT -400 LET A(6)=777 -410 PRINT "A(6) = ";A(6) -440 PRINT -450 PRINT " END TEST" -460 PRINT -470 PRINT "END PROGRAM 83" -480 STOP -490 DIM A(5) -500 END diff --git a/bwbtest/NBS2/P083.run b/bwbtest/NBS2/P083.run deleted file mode 100644 index 5de480b..0000000 --- a/bwbtest/NBS2/P083.run +++ /dev/null @@ -1,31 +0,0 @@ -PROGRAM FILE 83: ERROR - ARRAY-REFERENCE PRECEDES - DIM-STATEMENT. - ANSI STANDARD 15.4 - -SECTION 83.1: ERROR - ARRAY-REFERENCE PRECEDES - DIM-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -ABOUT TO EXECUTE 'LET A(6) = 777' -'DIM A(5)' FOLLOWS THIS STATEMENT. - -A(6) = 777 - - END TEST - -END PROGRAM 83 - -Program interrupted at line 480 diff --git a/bwbtest/NBS2/P084.BAS b/bwbtest/NBS2/P084.BAS deleted file mode 100644 index 02e9e37..0000000 --- a/bwbtest/NBS2/P084.BAS +++ /dev/null @@ -1,86 +0,0 @@ -10 PRINT "PROGRAM FILE 84: ERROR - DIMENSIONING THE SAME ARRAY " -20 PRINT " MORE THAN ONCE." -30 PRINT " ANSI STANDARD 15.4" -40 PRINT -50 PRINT "*** NOTE: THIS PROGRAM MAKES USE OF THE INPUT STATEMENT" -60 PRINT " WHICH HAS NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW" -70 PRINT " THIS FEATURE TO BE INCORRECTLY IMPLEMENTED, THEN THE " -80 PRINT " VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL." -90 PRINT -100 PRINT "SECTION 84.1: ERROR - DIMENSIONING THE SAME ARRAY " -110 PRINT " MORE THAN ONCE." -120 PRINT -130 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -140 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -150 PRINT -160 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -170 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -180 PRINT " BY THE PROCESSOR, OR" -190 PRINT -200 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -210 PRINT -220 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -230 PRINT "FOR DETAILED CRITERIA." -240 PRINT -250 PRINT " BEGIN TEST" -260 PRINT -270 PRINT "IN ORDER TO DETERMINE WHAT INTERPRETATION IS GIVEN TO A" -280 PRINT "DOUBLY-DIMENSIONED ARRAY, YOU MUST EXECUTE THIS PROGRAM" -290 PRINT "THREE TIMES, AND NOTE EACH TIME WHETHER A SUBSCRIPT-OUT-" -300 PRINT "OF-RANGE EXCEPTION OCCURS. THE TABLE BELOW GIVES THE" -310 PRINT "EXPECTED RESULTS FOR EACH OF FIVE POSSIBLE INTERPRETATIONS." -320 PRINT -330 PRINT "RESULTS WHICH DO NOT MATCH ANY OF THE ROWS IN THE TABLE" -340 PRINT "INDICATE THAT SOME OTHER INTERPRETATION IS BEING USED." -350 PRINT -360 PRINT "TABLE OF RESULTS: THE THREE COLUMNS STAND FOR 1ST, 2ND, AND" -370 PRINT "3RD EXECUTION, AND THE FIVE ROWS STAND FOR FIVE POSSIBLE" -380 PRINT "INTERPRETATIONS." -390 PRINT -400 PRINT " DID EXCEPTION OCCUR?" -410 PRINT -420 PRINT " 1 2 3" -430 PRINT "INT NO. 1 YES YES YES" -440 PRINT "INT NO. 2 YES YES NO" -450 PRINT "INT NO. 3 NO NO NO" -460 PRINT "INT NO. 4 YES NO NO" -470 PRINT "INT NO. 5 NO YES NO" -480 PRINT -490 PRINT "INTERPRETATION NUMBER 1 IS THAT THE FIRST DIM-STATEMENT IN" -500 PRINT "THE SOURCE CODE GOVERNS THE SIZE OF THE ARRAY." -510 PRINT -520 PRINT "INTERPRETATION NUMBER 2 IS THAT THE DIM-STATEMENT MOST" -530 PRINT "RECENTLY PRECEDING AN ARRAY REFERENCE IN THE SOURCE CODE" -540 PRINT "DETERMINES THE SIZE OF THE ARRAY AT THAT REFERENCE." -550 PRINT -560 PRINT "INTERPRETATION NUMBER 3 IS THAT THE LAST DIM-STATEMENT IN" -570 PRINT "THE SOURCE CODE DETERMINES THE SIZE OF THE ARRAY." -580 PRINT -590 PRINT "INTERPRETATION NUMBER 4 IS THAT THE FIRST DIM-STATEMENT" -600 PRINT "EXECUTED DETERMINES THE SIZE OF THE ARRAY." -610 PRINT -620 PRINT "INTERPRETATION NUMBER 5 IS THAT THE DIM-STATEMENT MOST" -630 PRINT "RECENTLY EXECUTED DETERMINES THE SIZE OF THE ARRAY." -640 LET S=13 -650 PRINT -660 PRINT "IS THIS THE 1ST, 2ND OR 3RD EXECUTION (RESPOND 1, 2, OR 3)?" -670 INPUT I -680 IF I=1 THEN 730 -690 IF I=2 THEN 770 -700 IF I=3 THEN 770 -710 PRINT "INVALID RESPONSE - RE-ENTER." -720 GOTO 650 -730 DIM A(12) -740 IF I=1 THEN 770 -750 LET A(S)=7 -760 GOTO 810 -770 DIM A(14) -780 IF I=1 THEN 750 -790 IF I=2 THEN 730 -800 LET A(S)=8 -810 PRINT -820 PRINT -830 PRINT " END TEST" -840 PRINT -850 PRINT "END PROGRAM 84" -860 END diff --git a/bwbtest/NBS2/P084.INP b/bwbtest/NBS2/P084.INP deleted file mode 100644 index d00491f..0000000 --- a/bwbtest/NBS2/P084.INP +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/bwbtest/NBS2/P084.run b/bwbtest/NBS2/P084.run deleted file mode 100644 index e740c0d..0000000 --- a/bwbtest/NBS2/P084.run +++ /dev/null @@ -1,68 +0,0 @@ -PROGRAM FILE 84: ERROR - DIMENSIONING THE SAME ARRAY - MORE THAN ONCE. - ANSI STANDARD 15.4 - -*** NOTE: THIS PROGRAM MAKES USE OF THE INPUT STATEMENT - WHICH HAS NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW - THIS FEATURE TO BE INCORRECTLY IMPLEMENTED, THEN THE - VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL. - -SECTION 84.1: ERROR - DIMENSIONING THE SAME ARRAY - MORE THAN ONCE. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -IN ORDER TO DETERMINE WHAT INTERPRETATION IS GIVEN TO A -DOUBLY-DIMENSIONED ARRAY, YOU MUST EXECUTE THIS PROGRAM -THREE TIMES, AND NOTE EACH TIME WHETHER A SUBSCRIPT-OUT- -OF-RANGE EXCEPTION OCCURS. THE TABLE BELOW GIVES THE -EXPECTED RESULTS FOR EACH OF FIVE POSSIBLE INTERPRETATIONS. - -RESULTS WHICH DO NOT MATCH ANY OF THE ROWS IN THE TABLE -INDICATE THAT SOME OTHER INTERPRETATION IS BEING USED. - -TABLE OF RESULTS: THE THREE COLUMNS STAND FOR 1ST, 2ND, AND -3RD EXECUTION, AND THE FIVE ROWS STAND FOR FIVE POSSIBLE -INTERPRETATIONS. - - DID EXCEPTION OCCUR? - - 1 2 3 -INT NO. 1 YES YES YES -INT NO. 2 YES YES NO -INT NO. 3 NO NO NO -INT NO. 4 YES NO NO -INT NO. 5 NO YES NO - -INTERPRETATION NUMBER 1 IS THAT THE FIRST DIM-STATEMENT IN -THE SOURCE CODE GOVERNS THE SIZE OF THE ARRAY. - -INTERPRETATION NUMBER 2 IS THAT THE DIM-STATEMENT MOST -RECENTLY PRECEDING AN ARRAY REFERENCE IN THE SOURCE CODE -DETERMINES THE SIZE OF THE ARRAY AT THAT REFERENCE. - -INTERPRETATION NUMBER 3 IS THAT THE LAST DIM-STATEMENT IN -THE SOURCE CODE DETERMINES THE SIZE OF THE ARRAY. - -INTERPRETATION NUMBER 4 IS THAT THE FIRST DIM-STATEMENT -EXECUTED DETERMINES THE SIZE OF THE ARRAY. - -INTERPRETATION NUMBER 5 IS THAT THE DIM-STATEMENT MOST -RECENTLY EXECUTED DETERMINES THE SIZE OF THE ARRAY. - -IS THIS THE 1ST, 2ND OR 3RD EXECUTION (RESPOND 1, 2, OR 3)? -? 1 - -ERROR in line 770: Redimensioned array diff --git a/bwbtest/NBS2/P085.BAS b/bwbtest/NBS2/P085.BAS deleted file mode 100644 index 8d4ba2e..0000000 --- a/bwbtest/NBS2/P085.BAS +++ /dev/null @@ -1,128 +0,0 @@ -10 PRINT "PROGRAM FILE 85: GENERAL CAPABILITIES OF GOSUB/RETURN." -20 PRINT " ANSI STANDARD 10.4" -30 PRINT -40 PRINT "SECTION 85.1: SIMPLE NESTING OF GOSUBS." -50 PRINT -60 PRINT "THIS SECTION TESTS THAT SUBROUTINES MAY CALL ONE ANOTHER" -70 PRINT "AND THAT A SUBROUTINE MAY BE CALLED FROM SEVERAL PLACES." -80 PRINT -90 PRINT " BEGIN TEST." -100 PRINT -400 LET F=0 -500 LET X=0 -510 GOSUB 570 -520 IF X=11 THEN 530 -525 LET F=1 -530 LET X=0 -540 GOSUB 600 -550 IF X=8 THEN 560 -555 LET F=1 -560 GOTO 700 -570 LET X=X+8 -580 GOSUB 640 -590 RETURN -600 GOSUB 640 -610 GOSUB 670 -620 LET X=X+4 -630 RETURN -640 LET X=X+2 -650 GOSUB 670 -660 RETURN -670 LET X=X+1 -680 RETURN -700 PRINT -710 IF F=0 THEN 740 -720 PRINT "*** TEST FAILED ***" -730 GOTO 750 -740 PRINT "*** TEST PASSED ***" -750 PRINT -1000 PRINT " END TEST." -1010 PRINT -1020 PRINT -1030 PRINT "SECTION 85.2: STACKING OF RETURN ADDRESSES." -1040 PRINT -1050 PRINT "THIS SECTION TESTS THAT RETURN ADDRESSES ARE PROPERLY" -1060 PRINT "STACKED BY GOSUBS (INCLUDING SEVERAL EXECUTIONS OF THE" -1070 PRINT "SAME GOSUB) AND UNSTACKED BY CORRESPONDING RETURNS." -1080 PRINT -1090 PRINT " BEGIN TEST." -1100 PRINT -1150 LET F=0 -1200 LET I0=3 -1210 LET J0=4 -1220 GOSUB 1500 -1230 IF K0=4 THEN 1250 -1240 LET F=1 -1250 LET I0=2 -1260 LET J0=7 -1270 GOSUB 1500 -1280 IF K0=21 THEN 1300 -1290 LET F=1 -1300 LET I0=4 -1310 LET J0=8 -1320 GOSUB 1500 -1330 IF K0=70 THEN 1350 -1340 LET F=1 -1350 GOTO 1900 -1500 REM TEST RECURSIVE USE OF GOSUB -1510 LET L9=0 -1520 LET M0=0 -1540 GOSUB 1570 -1560 RETURN -1570 REM BINOMIAL COEFFICIENT SUBROUTINE -1580 REM FIND K0=BIN(I0,J0) -1590 REM ADD 1 TO LEVEL-COUNTER (L9) AND SAVE STATE -1600 LET L9=L9+1 -1610 LET M(L9)=M0 -1620 LET I(L9)=I0 -1630 LET J(L9)=J0 -1640 IF I0=0 THEN 1670 -1650 IF I0=J0 THEN 1670 -1660 GOTO 1740 -1670 LET K0=1 -1680 REM RESTORE STATE -1690 LET I0=I(L9) -1700 LET J0=J(L9) -1710 LET M0=M(L9) -1720 LET L9=L9-1 -1730 RETURN -1740 REM BIN(I0,J0)=BIN(I0,J0-1)+BIN(I0-1,J0-1) -1750 LET J0=J0-1 -1760 GOSUB 1570 -1770 LET M0=K0 -1780 LET I0=I0-1 -1790 GOSUB 1570 -1800 LET K0=K0+M0 -1810 REM RESTORE STATE -1820 LET I0=I(L9) -1830 LET J0=J(L9) -1840 LET M0=M(L9) -1850 LET L9=L9-1 -1860 RETURN -1900 PRINT -1910 IF F=0 THEN 1940 -1920 PRINT "*** TEST FAILED ***" -1930 GOTO 1950 -1940 PRINT "*** TEST PASSED ***" -1950 PRINT -2000 PRINT " END TEST." -2010 PRINT -2020 PRINT -2030 PRINT "SECTION 85.3: GOSUB WITHOUT RETURN." -2040 PRINT -2050 PRINT "THIS SECTION TESTS THAT PROGRAM EXECUTION MAY VALIDLY" -2060 PRINT "TERMINATE EVEN THOUGH MORE GOSUBS HAVE BEEN EXECUTED " -2070 PRINT "THAN RETURNS." -2080 PRINT -2090 PRINT " BEGIN TEST." -2100 PRINT -2110 GOSUB 2200 -2120 PRINT "*** TEST FAILED ***" -2130 GOTO 2990 -2200 PRINT "IF PROGRAM TERMINATES NORMALLY, THEN" -2220 PRINT "*** TEST PASSED ***" -2990 PRINT -3000 PRINT " END TEST." -3010 PRINT -3020 PRINT "END PROGRAM 85" -4000 END diff --git a/bwbtest/NBS2/P085.run b/bwbtest/NBS2/P085.run deleted file mode 100644 index 5d08845..0000000 --- a/bwbtest/NBS2/P085.run +++ /dev/null @@ -1,44 +0,0 @@ -PROGRAM FILE 85: GENERAL CAPABILITIES OF GOSUB/RETURN. - ANSI STANDARD 10.4 - -SECTION 85.1: SIMPLE NESTING OF GOSUBS. - -THIS SECTION TESTS THAT SUBROUTINES MAY CALL ONE ANOTHER -AND THAT A SUBROUTINE MAY BE CALLED FROM SEVERAL PLACES. - - BEGIN TEST. - - -*** TEST PASSED *** - - END TEST. - - -SECTION 85.2: STACKING OF RETURN ADDRESSES. - -THIS SECTION TESTS THAT RETURN ADDRESSES ARE PROPERLY -STACKED BY GOSUBS (INCLUDING SEVERAL EXECUTIONS OF THE -SAME GOSUB) AND UNSTACKED BY CORRESPONDING RETURNS. - - BEGIN TEST. - - -*** TEST PASSED *** - - END TEST. - - -SECTION 85.3: GOSUB WITHOUT RETURN. - -THIS SECTION TESTS THAT PROGRAM EXECUTION MAY VALIDLY -TERMINATE EVEN THOUGH MORE GOSUBS HAVE BEEN EXECUTED -THAN RETURNS. - - BEGIN TEST. - -IF PROGRAM TERMINATES NORMALLY, THEN -*** TEST PASSED *** - - END TEST. - -END PROGRAM 85 diff --git a/bwbtest/NBS2/P086.BAS b/bwbtest/NBS2/P086.BAS deleted file mode 100644 index fdd5489..0000000 --- a/bwbtest/NBS2/P086.BAS +++ /dev/null @@ -1,37 +0,0 @@ -10 PRINT "PROGRAM FILE 86: EXCEPTION - RETURN WITHOUT GOSUB." -20 PRINT " ANSI STANDARD 10.5" -30 PRINT -40 PRINT "SECTION 86.1: EXCEPTION - RETURN WITHOUT GOSUB." -50 PRINT -60 PRINT "ENCOUNTERING A RETURN-STATEMENT WITHOUT HAVING EXECUTED A" -70 PRINT "CORRESPONDING GOSUB-STATEMENT SHOULD RESULT IN THE " -80 PRINT "TERMINATION OF THE PROGRAM AND THE GENERATION OF A MESSAGE" -90 PRINT "IDENTIFYING THE EXCEPTION." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROCESSOR MUST TERMINATE THIS PROGRAM WHEN" -170 PRINT " THE RETURN-STATEMENT IS ENCOUNTERED." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 LET I=0 -220 GOSUB 310 -230 IF I>1 THEN 330 -240 GOTO 280 -250 GOSUB 300 -260 GOTO 330 -280 REM SKIP GOSUB -290 GOTO 310 -300 PRINT "*** TEST FAILED ***" -310 LET I=I+1 -320 RETURN -330 PRINT "*** TEST FAILED ***" -340 PRINT -350 PRINT " END TEST." -360 PRINT -370 PRINT "END PROGRAM 86" -380 END diff --git a/bwbtest/NBS2/P086.run b/bwbtest/NBS2/P086.run deleted file mode 100644 index a931dbc..0000000 --- a/bwbtest/NBS2/P086.run +++ /dev/null @@ -1,22 +0,0 @@ -PROGRAM FILE 86: EXCEPTION - RETURN WITHOUT GOSUB. - ANSI STANDARD 10.5 - -SECTION 86.1: EXCEPTION - RETURN WITHOUT GOSUB. - -ENCOUNTERING A RETURN-STATEMENT WITHOUT HAVING EXECUTED A -CORRESPONDING GOSUB-STATEMENT SHOULD RESULT IN THE -TERMINATION OF THE PROGRAM AND THE GENERATION OF A MESSAGE -IDENTIFYING THE EXCEPTION. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROCESSOR MUST TERMINATE THIS PROGRAM WHEN - THE RETURN-STATEMENT IS ENCOUNTERED. - - BEGIN TEST. - - -ERROR in line 320: RETURN without GOSUB diff --git a/bwbtest/NBS2/P087.BAS b/bwbtest/NBS2/P087.BAS deleted file mode 100644 index ff5f5c5..0000000 --- a/bwbtest/NBS2/P087.BAS +++ /dev/null @@ -1,39 +0,0 @@ -10 PRINT "PROGRAM FILE 87: ERROR -TRANSFER TO NON-EXISTING LINE" -15 PRINT " NUMBER USING THE GOSUB-STATEMENT." -20 PRINT " ANSI STANDARD 10.4" -30 PRINT -40 PRINT "SECTION 87.1: ERROR - TRANSFER TO NON-EXISTING LINE " -50 PRINT " NUMBER USING THE GOSUB-STATEMENT." -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 LET X=0 -220 LET Y=0 -230 GOSUB 285 -240 IF X=1 THEN 310 -250 IF Y=1 THEN 330 -260 PRINT "THE PROCESSOR IGNORED THE GOSUB STATEMENT." -270 GOTO 340 -280 LET X=1 -290 LET Y=1 -300 RETURN -310 PRINT " THE PROCESSOR SUBSTITUTED AN EXISTING, LOWER LINE NUMBER." -320 GOTO 340 -330 PRINT "THE PROCESSOR SUBSTITUTED AN EXISTING, HIGHER LINE NUMBER." -340 PRINT -350 PRINT " END TEST." -360 PRINT -370 PRINT "END PROGRAM 87" -380 END diff --git a/bwbtest/NBS2/P087.run b/bwbtest/NBS2/P087.run deleted file mode 100644 index 106a9ea..0000000 --- a/bwbtest/NBS2/P087.run +++ /dev/null @@ -1,23 +0,0 @@ -PROGRAM FILE 87: ERROR -TRANSFER TO NON-EXISTING LINE - NUMBER USING THE GOSUB-STATEMENT. - ANSI STANDARD 10.4 - -SECTION 87.1: ERROR - TRANSFER TO NON-EXISTING LINE - NUMBER USING THE GOSUB-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - - -ERROR in line 230: Undefined line diff --git a/bwbtest/NBS2/P088.BAS b/bwbtest/NBS2/P088.BAS deleted file mode 100644 index dfb590c..0000000 --- a/bwbtest/NBS2/P088.BAS +++ /dev/null @@ -1,80 +0,0 @@ -10 PRINT "PROGRAM FILE 88: THE ON-GOTO-STATEMENT." -20 PRINT " ANSI STANDARD 10.2, 10.4" -30 PRINT -60 PRINT "SECTION 88.1: THE ON-GOTO EXPRESSION WITH INTEGER VALUES." -80 PRINT -90 PRINT " BEGIN TEST." -100 PRINT -120 LET N=0 -130 FOR I=1 TO 5 -140 REM 3RD DIGIT OF LINE NUMBER IS ITS POSITION IN LIST -150 ON I GOTO 221, 252, 213, 244, 235 -160 PRINT "CONTROL FELL THROUGH ON-GOTO" -170 GOTO 280 -213 IF I=3 THEN 290 -218 LET K=3 -219 GOTO 270 -221 IF I=1 THEN 290 -228 LET K=1 -229 GOTO 270 -235 IF I=5 THEN 290 -238 LET K=5 -239 GOTO 270 -244 IF I=4 THEN 290 -248 LET K=4 -249 GOTO 270 -252 IF I=2 THEN 290 -258 LET K=2 -259 GOTO 270 -270 PRINT "CONTROL WENT TO LINE #";K;" IN LIST EVEN THOUGH ON-GOTO"; -275 PRINT " EXPRESSION = ";I -280 LET N=1 -290 NEXT I -300 PRINT -310 IF N=0 THEN 340 -320 PRINT "*** TEST FAILED ***" -330 GOTO 350 -340 PRINT "*** TEST PASSED ***" -350 PRINT -360 PRINT " END TEST." -370 PRINT -375 PRINT -380 PRINT "SECTION 88.2: THE ON-GOTO EXPRESSION WITH FRACTIONAL VALUES." -400 PRINT -410 PRINT "THIS SECTION TESTS THAT FRACTIONAL VALUES ARE ROUNDED" -420 PRINT "TO THE NEAREST INTEGER BY THE ON-GOTO BEFORE SELECTION" -425 PRINT "OF THE LINE-NUMBER FROM THE LIST." -430 PRINT -440 PRINT " BEGIN TEST." -450 PRINT -500 LET N=0 -510 FOR I=0.6 TO 3.4 STEP .2 -530 ON I GOTO 600,700,800 -540 PRINT "CONTROL FELL THROUGH ON-GOTO." -550 GOTO 950 -600 LET K=1 -610 IF I<.5 THEN 900 -620 IF I>1.5 THEN 900 -630 GOTO 1000 -700 LET K=2 -710 IF I<1.5 THEN 900 -720 IF I>2.5 THEN 900 -730 GOTO 1000 -800 LET K=3 -810 IF I<2.5 THEN 900 -820 IF I>3.5 THEN 900 -830 GOTO 1000 -900 PRINT "CONTROL WENT TO LINE #";K;" IN LIST, BUT ON-GOTO"; -910 PRINT " EXPRESSION = ";I -950 LET N=1 -1000 NEXT I -1010 PRINT -1020 IF N=0 THEN 1050 -1030 PRINT "*** TEST FAILED ***" -1040 GOTO 1060 -1050 PRINT "*** TEST PASSED ***" -1060 PRINT -1070 PRINT " END TEST." -1260 PRINT -1270 PRINT "END PROGRAM 88" -1280 END diff --git a/bwbtest/NBS2/P088.run b/bwbtest/NBS2/P088.run deleted file mode 100644 index 930bc3f..0000000 --- a/bwbtest/NBS2/P088.run +++ /dev/null @@ -1,27 +0,0 @@ -PROGRAM FILE 88: THE ON-GOTO-STATEMENT. - ANSI STANDARD 10.2, 10.4 - -SECTION 88.1: THE ON-GOTO EXPRESSION WITH INTEGER VALUES. - - BEGIN TEST. - - -*** TEST PASSED *** - - END TEST. - - -SECTION 88.2: THE ON-GOTO EXPRESSION WITH FRACTIONAL VALUES. - -THIS SECTION TESTS THAT FRACTIONAL VALUES ARE ROUNDED -TO THE NEAREST INTEGER BY THE ON-GOTO BEFORE SELECTION -OF THE LINE-NUMBER FROM THE LIST. - - BEGIN TEST. - - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 88 diff --git a/bwbtest/NBS2/P089.BAS b/bwbtest/NBS2/P089.BAS deleted file mode 100644 index f09f04e..0000000 --- a/bwbtest/NBS2/P089.BAS +++ /dev/null @@ -1,34 +0,0 @@ -10 PRINT "PROGRAM FILE 89: EXCEPTION - ON-GOTO CONTROL EXPRESSION" -20 PRINT " LESS THAN 1." -30 PRINT " ANSI STANDARD 10.5" -40 PRINT -50 PRINT "SECTION 89.1: EXCEPTION - ON-GOTO CONTROL EXPRESSION " -60 PRINT " LESS THAN 1." -70 PRINT -80 PRINT "TO PASS THIS TEST:" -90 PRINT -100 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -110 PRINT " DISPLAYED, AND" -120 PRINT -130 PRINT " 2) EXECUTION MUST TERMINATE." -140 PRINT -150 PRINT " BEGIN TEST." -160 PRINT -170 LET X=.3 -180 ON X GOTO 210,230 -190 LET A$="Z" -200 GOTO 250 -210 LET A$="FIRST" -220 GOTO 250 -230 LET A$="SECOND" -240 GOTO 250 -250 IF A$="Z" THEN 280 -260 PRINT "ON GOTO JUMPED TO ";A$;" LINE NUMBER IN LIST." -270 GOTO 290 -280 PRINT "CONTROL FELL THROUGH ON-GOTO TO NEXT STATEMENT." -290 PRINT "*** TEST FAILED ***" -300 PRINT -310 PRINT " END TEST." -320 PRINT -330 PRINT "END PROGRAM 89" -340 END diff --git a/bwbtest/NBS2/P089.run b/bwbtest/NBS2/P089.run deleted file mode 100644 index 2ca26b0..0000000 --- a/bwbtest/NBS2/P089.run +++ /dev/null @@ -1,18 +0,0 @@ -PROGRAM FILE 89: EXCEPTION - ON-GOTO CONTROL EXPRESSION - LESS THAN 1. - ANSI STANDARD 10.5 - -SECTION 89.1: EXCEPTION - ON-GOTO CONTROL EXPRESSION - LESS THAN 1. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) EXECUTION MUST TERMINATE. - - BEGIN TEST. - - -ERROR in line 180: Undefined line diff --git a/bwbtest/NBS2/P090.BAS b/bwbtest/NBS2/P090.BAS deleted file mode 100644 index 759bef7..0000000 --- a/bwbtest/NBS2/P090.BAS +++ /dev/null @@ -1,34 +0,0 @@ -10 PRINT "PROGRAM FILE 90: EXCEPTION - ON-GOTO CONTROL EXPRESSION" -20 PRINT " GREATER THAN NUMBER OF LINE-NUMBERS IN LIST." -30 PRINT " ANSI STANDARD 10.5" -40 PRINT -50 PRINT "SECTION 90.1: EXCEPTION - ON-GOTO CONTROL EXPRESSION" -60 PRINT " GREATER THAN NUMBER OF LINE-NUMBERS IN LIST." -70 PRINT -80 PRINT "TO PASS THIS TEST:" -90 PRINT -100 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -110 PRINT " DISPLAYED, AND" -120 PRINT -130 PRINT " 2) EXECUTION MUST TERMINATE." -140 PRINT -150 PRINT " BEGIN TEST." -160 PRINT -170 LET X=2.7 -180 ON X GOTO 210,230 -190 LET A$="Z" -200 GOTO 250 -210 LET A$="FIRST" -220 GOTO 250 -230 LET A$="SECOND" -240 GOTO 250 -250 IF A$="Z" THEN 280 -260 PRINT "ON GOTO JUMPED TO ";A$;" LINE NUMBER IN LIST." -270 GOTO 290 -280 PRINT "CONTROL FELL THROUGH ON-GOTO TO NEXT STATEMENT." -290 PRINT "*** TEST FAILED ***" -300 PRINT -310 PRINT " END TEST." -320 PRINT -330 PRINT "END PROGRAM 90" -340 END diff --git a/bwbtest/NBS2/P090.run b/bwbtest/NBS2/P090.run deleted file mode 100644 index 3ad5b06..0000000 --- a/bwbtest/NBS2/P090.run +++ /dev/null @@ -1,18 +0,0 @@ -PROGRAM FILE 90: EXCEPTION - ON-GOTO CONTROL EXPRESSION - GREATER THAN NUMBER OF LINE-NUMBERS IN LIST. - ANSI STANDARD 10.5 - -SECTION 90.1: EXCEPTION - ON-GOTO CONTROL EXPRESSION - GREATER THAN NUMBER OF LINE-NUMBERS IN LIST. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) EXECUTION MUST TERMINATE. - - BEGIN TEST. - - -ERROR in line 180: Undefined line diff --git a/bwbtest/NBS2/P091.BAS b/bwbtest/NBS2/P091.BAS deleted file mode 100644 index 68d6b0b..0000000 --- a/bwbtest/NBS2/P091.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 91: ERROR - TRANSFER TO NON-EXISTING LINE" -15 PRINT " NUMBER USING THE ON-GOTO-STATEMENT." -20 PRINT " ANSI STANDARD 10.4" -30 PRINT -40 PRINT "SECTION 91.1: ERROR - TRANSFER TO NON-EXISTING LINE" -50 PRINT " NUMBER USING THE ON-GOTO-STATEMENT." -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -230 LET A$="LINE 300." -240 LET X=1 -250 ON X GOTO 295 -260 PRINT "CONTROL FELL THROUGH THE ON-GOTO STATEMENT." -280 GOTO 310 -290 LET A$="LINE 290." -300 PRINT "'ON X GOTO 295' JUMPED TO ";A$ -310 PRINT -320 PRINT " END TEST." -330 PRINT -340 PRINT "END PROGRAM 91." -350 END diff --git a/bwbtest/NBS2/P091.run b/bwbtest/NBS2/P091.run deleted file mode 100644 index 8cc84dc..0000000 --- a/bwbtest/NBS2/P091.run +++ /dev/null @@ -1,23 +0,0 @@ -PROGRAM FILE 91: ERROR - TRANSFER TO NON-EXISTING LINE - NUMBER USING THE ON-GOTO-STATEMENT. - ANSI STANDARD 10.4 - -SECTION 91.1: ERROR - TRANSFER TO NON-EXISTING LINE - NUMBER USING THE ON-GOTO-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - - -ERROR in line 250: Undefined line diff --git a/bwbtest/NBS2/P092.BAS b/bwbtest/NBS2/P092.BAS deleted file mode 100644 index 3b9a249..0000000 --- a/bwbtest/NBS2/P092.BAS +++ /dev/null @@ -1,143 +0,0 @@ -10 PRINT "PROGRAM FILE 92: READ AND DATA STATEMENTS FOR NUMERIC DATA." -20 PRINT " ANSI STANDARD 5.2, 14.2, 14.4" -30 PRINT -40 PRINT "SECTION 92.1: READ AND DATA STATEMENTS FOR NUMERIC DATA." -50 PRINT -60 PRINT "THIS SECTION TESTS THE PROCESSOR'S CAPABILITY TO HANDLE" -70 PRINT "INTERNAL NUMERIC DATA USING THE DATA AND READ STATEMENTS." -80 PRINT "THE DATA-VALUES WILL BE COMPARED TO THOSE ASSIGNED TO AN" -90 PRINT "ARRAY AND THE RESULTS DISPLAYED. IF THE ACCURACY IS LESS" -120 PRINT "THAN SIX DIGITS, THE TEST WILL BE COUNTED AS A FAILURE." -130 PRINT -132 PRINT " BEGIN TEST" -134 PRINT -138 DIM A(110) -140 LET A(1)=9.99998E37 -145 LET A(2)=1E38 -150 LET A(3)=-1E38 -155 LET A(4)=-9.99998E37 -160 LET A(5)=9.87653E37 -165 LET A(6)=9.87655E37 -170 LET A(7)=9.87653E-38 -175 LET A(8)=9.87655E-38 -180 LET A(9)=1.00000E-38 -185 LET A(10)=1.00002E-38 -190 LET A(11)=-1.00002E-38 -195 LET A(12)=-1.00000E-38 -200 LET A(13)=9.99998E-38 -205 LET A(14)=10E-38 -210 LET A(15)=123.455 -215 LET A(16)=123.457 -220 LET A(17)=123.455 -225 LET A(18)=123.457 -230 LET A(19)=9.87653E37 -235 LET A(20)=9.87655E37 -240 LET A(21)=123455 -245 LET A(22)=123457 -250 LET A(23)=123455 -255 LET A(24)=123457 -260 LET A(25)=123455 -265 LET A(26)=123457 -270 LET A(27)=987.653 -275 LET A(28)=987.655 -280 LET A(29)=1.23455E+6 -285 LET A(30)=1.23457E+6 -290 LET A(31)=1.23455E+8 -295 LET A(32)=1.23457E+8 -300 LET A(33)=1.23455E-2 -305 LET A(34)=1.23457E-2 -310 LET A(35)=1.23455E-4 -315 LET A(36)=1.23457E-4 -320 LET A(37)=.119999 -325 LET A(38)=.120001 -330 LET A(39)=.119999 -335 LET A(40)=.120001 -340 LET A(41)=-.120001 -345 LET A(42)=-.119999 -350 LET A(43)=.119999 -355 LET A(44)=.120001 -360 LET A(45)=0 -365 LET A(46)=0 -370 LET A(47)=0 -375 LET A(48)=0 -380 LET A(49)=0 -385 LET A(50)=0 -390 LET A(51)=1.22999E9 -395 LET A(52)=1.23001E9 -400 LET A(53)=1.22999E9 -405 LET A(54)=1.23001E9 -410 LET A(55)=1.22999E9 -415 LET A(56)=1.23001E9 -420 LET A(57)=1.22999E-9 -425 LET A(58)=1.23001E-9 -430 LET A(59)=1.22999E-9 -435 LET A(60)=1.23001E-9 -440 LET A(61)=1.22999E-9 -445 LET A(62)=1.23001E-9 -450 LET A(63)=1.22999E-9 -455 LET A(64)=1.23001E-9 -460 LET A(65)=0 -465 LET A(66)=0 -470 LET A(67)=0 -475 LET A(68)=0 -480 LET A(69)=0 -485 LET A(70)=0 -490 LET A(71)=0 -495 LET A(72)=0 -500 LET A(73)=122.999 -505 LET A(74)=123.001 -510 LET A(75)=122.999 -515 LET A(76)=123.001 -520 LET A(77)=122.999 -525 LET A(78)=123.001 -530 LET A(79)=122.999 -535 LET A(80)=123.001 -540 LET A(81)=1.2345578E19 -545 LET A(82)=1.2345779E19 -550 LET A(83)=1.23455E15 -555 LET A(84)=1.23457E15 -560 LET A(85)=1.23455E-15 -565 LET A(86)=1.23457E-15 -570 LET A(87)=123455 -575 LET A(88)=123457 -580 LET A(89)=123455 -585 LET A(90)=123457 -1000 LET I=-1 -1001 LET J=0 -1002 PRINT "TRAIL #","DATA VALUE","RESULTS" -1005 LET F=0 -1010 READ X -1020 IF X=-1 THEN 5000 -1025 LET J=J+1 -1030 LET I=I+2 -1035 LET K=I+1 -1040 IF XA(K) THEN 1100 -1060 PRINT J,X," OK " -1070 GOTO 1010 -1100 PRINT J,X,"FAIL" -1110 LET F=F+1 -1120 GOTO 1010 -4000 DATA +.999999E38,-.999999E38,.00987654E40,987.654E-40 -4010 DATA +1.00001E-38,-1.00001E-38,9.99999E-38 -4015 DATA 123456.E-3,.123456E3 -4020 DATA 9.87654E37,123456,123456.,123456.0,987.654 -4030 DATA 1234560,123456000,.0123456,.000123456 -4040 DATA .12,+.12,-.12,0.12 -4050 DATA 0.0,+0,-.000 -4060 DATA 1.23E9,1.23E09,1.23E+9,1.23E-9,1.23E-09,1.23E-0009 -4070 DATA 000001.2300000E-000009,0E0,000.000E22,+000E55,0.0E-000 -4080 DATA 123E0,123E000,123E-00,123E+0 -4090 DATA 12345678901234567890,123456E10,0.0000123456E-10 -4100 DATA 123456000000000E-9,0.000000000123456E15 -4900 DATA -1 -5000 PRINT -5010 IF F=0 THEN 5050 -5020 PRINT "***** TEST FAILED ***** ";F;" CASE(S) HANDLED IMPROPERLY." -5030 GOTO 5100 -5050 PRINT "***** TEST PASSED *****" -5100 PRINT -5110 PRINT " END TEST" -5120 PRINT -5130 PRINT "END PROGRAM 92" -5140 END diff --git a/bwbtest/NBS2/P092.run b/bwbtest/NBS2/P092.run deleted file mode 100644 index 81beaf0..0000000 --- a/bwbtest/NBS2/P092.run +++ /dev/null @@ -1,65 +0,0 @@ -PROGRAM FILE 92: READ AND DATA STATEMENTS FOR NUMERIC DATA. - ANSI STANDARD 5.2, 14.2, 14.4 - -SECTION 92.1: READ AND DATA STATEMENTS FOR NUMERIC DATA. - -THIS SECTION TESTS THE PROCESSOR'S CAPABILITY TO HANDLE -INTERNAL NUMERIC DATA USING THE DATA AND READ STATEMENTS. -THE DATA-VALUES WILL BE COMPARED TO THOSE ASSIGNED TO AN -ARRAY AND THE RESULTS DISPLAYED. IF THE ACCURACY IS LESS -THAN SIX DIGITS, THE TEST WILL BE COUNTED AS A FAILURE. - - BEGIN TEST - -TRAIL # DATA VALUE RESULTS - 1 9.99999E+37 OK - 2 -9.99999E+37 OK - 3 9.87654E+37 OK - 4 9.87654E-38 OK - 5 1.00001E-38 OK - 6 -1.00001E-38 OK - 7 9.99999E-38 OK - 8 123.456 OK - 9 123.456 OK - 10 9.87654E+37 OK - 11 123456 OK - 12 123456 OK - 13 123456 OK - 14 987.654 OK - 15 1.23456E+6 OK - 16 1.23456E+8 OK - 17 1.23456E-2 OK - 18 1.23456E-4 OK - 19 .12 OK - 20 .12 OK - 21 -.12 OK - 22 .12 OK - 23 0 OK - 24 0 OK - 25 0 OK - 26 1.23E+9 OK - 27 1.23E+9 OK - 28 1.23E+9 OK - 29 1.23E-9 OK - 30 1.23E-9 OK - 31 1.23E-9 OK - 32 1.23E-9 OK - 33 0 OK - 34 0 OK - 35 0 OK - 36 0 OK - 37 123 OK - 38 123 OK - 39 123 OK - 40 123 OK - 41 1.23457E+19 OK - 42 1.23456E+15 OK - 43 1.23456E-15 OK - 44 123456 OK - 45 123456 OK - -***** TEST PASSED ***** - - END TEST - -END PROGRAM 92 diff --git a/bwbtest/NBS2/P093.BAS b/bwbtest/NBS2/P093.BAS deleted file mode 100644 index cb2d675..0000000 --- a/bwbtest/NBS2/P093.BAS +++ /dev/null @@ -1,139 +0,0 @@ -10 PRINT "PROGRAM FILE 93: READ AND DATA STATEMENTS FOR STRING DATA." -20 PRINT " ANSI STANDARD 3.2, 5.2, 14.2, 14.4" -30 PRINT -40 PRINT "SECTION 93.1: READ AND DATA STATEMENTS FOR STRING DATA" -50 PRINT -60 PRINT "THIS SECTION TESTS THE ABILITY TO PICK UP STRING (CHARACTER)" -70 PRINT "DATA USING THE READ STATEMENT. VARIOUS SYNTACTIC VARIATIONS" -80 PRINT "ARE TESTED, ESPECIALLY FOR DATA FORMATS." -90 PRINT -100 PRINT "PLEASE NOTE THAT THIS ROUTINE IS STRONGLY DEPENDENT" -110 PRINT "ON THE CORRECT OPERATION OF THE STRING COMPARISON" -120 PRINT "FEATURE. IF THAT FEATURE IS INCORRECT, THIS ROUTINE" -130 PRINT "WILL LIKELY GIVE INVALID RESULTS." -140 PRINT -150 PRINT "THE VALUES FROM THE DATA STATEMENT ARE COMPARED TO THOSE" -160 PRINT "ASSIGNED TO STRING VARIABLES. THE EXPECTED AND ACTUAL" -170 PRINT "RESULTS ARE DISPLAYED, AND AN ERROR COUNT MAINTAINED." -180 PRINT "THE READ STATEMENT IS USED WITH SEVERAL VARIABLES IN" -190 PRINT "THE VARIABLE LIST." -200 PRINT -210 PRINT " BEGIN TEST" -220 PRINT -230 LET I=0 -240 LET F=0 -250 READ N -255 IF N=0 THEN 1200 -260 LET I=I+1 -270 LET I$="#" -280 LET J$="#" -290 LET K$="#" -300 LET L$="#" -310 ON I GOTO 410,420,430,440,450,460,470,480,490,500,510 -410 LET I$="A" -411 LET J$="B" -412 LET K$="C" -413 LET L$="D" -414 GOTO 600 -420 LET I$="EF" -421 LET J$="GHI" -422 LET K$="JKLM" -423 GOTO 600 -430 LET I$="ABCDEFGHIJKLM" -431 LET J$="NOPQRSTUVWXYZ" -432 LET K$="0123456789" -433 LET L$="+. -" -434 GOTO 600 -440 LET I$="EIGHTEEN POSITIONS" -441 GOTO 600 -450 LET I$="ABC" -451 LET J$="DEF" -452 LET K$="GHI" -453 LET L$="2.1E3" -454 GOTO 600 -460 LET I$="ABC " -461 LET J$=" DEF " -462 LET K$=" GHI" -463 GOTO 600 -470 LET I$="A B" -471 LET J$="C D" -472 GOTO 600 -480 LET I$="A B" -481 LET J$=" C D " -482 LET K$="E F" -483 GOTO 600 -490 LET I$="A" -491 LET J$="B,C" -492 LET K$="" -493 LET L$="D" -494 GOTO 600 -500 LET I$="ABCDEFGHIJKLM" -501 LET J$="NOPQRSTUVWXYZ" -502 LET K$="0123456789" -503 GOTO 600 -510 LET I$="!#$%&'()*+,-" -511 LET J$="./:;<=>?^_" -512 GOTO 600 -600 REM COMPARAND VALUES INITIALIZED -630 LET A$="#" -640 LET B$="#" -650 LET C$="#" -660 LET D$="#" -670 ON N GOTO 710,720,730,740 -710 READ A$ -715 GOTO 800 -720 READ A$,B$ -725 GOTO 800 -730 READ A$,B$,C$ -735 GOTO 800 -740 READ A$,B$,C$,D$ -745 GOTO 800 -800 REM TEST VALUES NOW SET -810 IF A$<>I$ THEN 900 -820 IF B$<>J$ THEN 900 -830 IF C$<>K$ THEN 900 -840 IF D$<>L$ THEN 900 -850 LET S=0 -860 GOTO 910 -900 LET S=1 -910 ON N GOTO 920,930,940,950 -920 LET B$="" -925 LET J$="" -930 LET C$="" -935 LET K$="" -940 LET D$="" -945 LET L$="" -950 REM NOW SET UP FOR PRINT -960 PRINT -970 PRINT -980 PRINT "SHOULD BE: ***";I$;J$;K$;L$;"***" -990 PRINT "ACTUAL: ***";A$;B$;C$;D$;"***" -1000 IF S=0 THEN 1100 -1010 PRINT "TEST FAILED" -1020 LET F=F+1 -1030 GOTO 250 -1100 PRINT "TEST OK" -1110 GOTO 250 -1200 PRINT -1210 PRINT -1220 IF F=0 THEN 1270 -1230 PRINT "*** TEST FAILED: ";F;" CASE(S) HANDLED IMPROPERLY. ***" -1240 GOTO 1300 -1270 PRINT "*** TEST PASSED ***" -1300 PRINT -1310 PRINT " END TEST" -1320 PRINT -1330 PRINT "END PROGRAM 93" -2010 DATA 4,"A",B,"C",D -2020 DATA 3,EF,"GHI",JKLM -2030 DATA 4,ABCDEFGHIJKLM,NOPQRSTUVWXYZ,0123456789,+. - -2040 DATA 1,EIGHTEEN POSITIONS -2050 DATA 4,ABC , DEF , GHI,2.1E3 -2060 DATA 3,"ABC "," DEF "," GHI" -2070 DATA 2, A B , C D -2080 DATA 3, A B , " C D " , E F -2090 DATA 4,A,"B,C","", D -2100 DATA 3,"ABCDEFGHIJKLM","NOPQRSTUVWXYZ","0123456789" -2110 DATA 2,"!#$%&'()*+,-","./:;<=>?^_" -2120 DATA 0 -2130 END diff --git a/bwbtest/NBS2/P093.run b/bwbtest/NBS2/P093.run deleted file mode 100644 index 74ed758..0000000 --- a/bwbtest/NBS2/P093.run +++ /dev/null @@ -1,84 +0,0 @@ -PROGRAM FILE 93: READ AND DATA STATEMENTS FOR STRING DATA. - ANSI STANDARD 3.2, 5.2, 14.2, 14.4 - -SECTION 93.1: READ AND DATA STATEMENTS FOR STRING DATA - -THIS SECTION TESTS THE ABILITY TO PICK UP STRING (CHARACTER) -DATA USING THE READ STATEMENT. VARIOUS SYNTACTIC VARIATIONS -ARE TESTED, ESPECIALLY FOR DATA FORMATS. - -PLEASE NOTE THAT THIS ROUTINE IS STRONGLY DEPENDENT -ON THE CORRECT OPERATION OF THE STRING COMPARISON -FEATURE. IF THAT FEATURE IS INCORRECT, THIS ROUTINE -WILL LIKELY GIVE INVALID RESULTS. - -THE VALUES FROM THE DATA STATEMENT ARE COMPARED TO THOSE -ASSIGNED TO STRING VARIABLES. THE EXPECTED AND ACTUAL -RESULTS ARE DISPLAYED, AND AN ERROR COUNT MAINTAINED. -THE READ STATEMENT IS USED WITH SEVERAL VARIABLES IN -THE VARIABLE LIST. - - BEGIN TEST - - - -SHOULD BE: ***ABCD*** -ACTUAL: ***ABCD*** -TEST OK - - -SHOULD BE: ***EFGHIJKLM*** -ACTUAL: ***EFGHIJKLM*** -TEST OK - - -SHOULD BE: ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+. -*** -ACTUAL: ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+. -*** -TEST OK - - -SHOULD BE: ***EIGHTEEN POSITIONS*** -ACTUAL: ***EIGHTEEN POSITIONS*** -TEST OK - - -SHOULD BE: ***ABCDEFGHI2.1E3*** -ACTUAL: ***ABCDEFGHI2.1E3*** -TEST OK - - -SHOULD BE: ***ABC DEF GHI*** -ACTUAL: ***ABC DEF GHI*** -TEST OK - - -SHOULD BE: ***A BC D*** -ACTUAL: ***A BC D*** -TEST OK - - -SHOULD BE: ***A B C D E F*** -ACTUAL: ***A B C D E F*** -TEST OK - - -SHOULD BE: ***AB,CD*** -ACTUAL: ***AB,CD*** -TEST OK - - -SHOULD BE: ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789*** -ACTUAL: ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789*** -TEST OK - - -SHOULD BE: ***!#$%&'()*+,-./:;<=>?^_*** -ACTUAL: ***!#$%&'()*+,-./:;<=>?^_*** -TEST OK - - -*** TEST PASSED *** - - END TEST - -END PROGRAM 93 diff --git a/bwbtest/NBS2/P094.BAS b/bwbtest/NBS2/P094.BAS deleted file mode 100644 index b7ffe51..0000000 --- a/bwbtest/NBS2/P094.BAS +++ /dev/null @@ -1,66 +0,0 @@ -10 PRINT "PROGRAM FILE 94: READING DATA INTO SUBSCRIPTED VARIABLES." -20 PRINT " ANSI STANDARD 14.2, 14.4" -30 PRINT -40 PRINT "SECTION 94.1: READING DATA INTO SUBSCRIPTED VARIABLES." -50 PRINT -60 PRINT "THIS SECTION TESTS THAT THE NUMERIC DATA CAN BE READ INTO" -70 PRINT "ARRAYS AND THAT SUBSCRIPTS ARE EVALUATED AFTER READING" -80 PRINT "INTO PREVIOUS VARIABLES." -90 PRINT -100 PRINT " BEGIN TEST" -110 PRINT -120 REM ARRAYS A AND C ARE GIVEN DATA THROUGH THE DATA AND READ -130 REM AND COMPARED WITH B AND D WHICH ARE ASSIGNED THE RIGHT -140 REM VALUES. IF THE ARRAYS MATCH TEST PASSES. -150 FOR I=1 TO 5 -160 LET A(I)=I -170 LET B(I)=I -180 FOR J=1 TO 3 -190 LET C(I,J)=1000*I+J -200 LET D(I,J)=1000*I+J -210 NEXT J -220 NEXT I -230 LET J=2 -240 READ I,A(I),I,A(I),I,C(I,J),J,I,C(I,J) -250 DATA 3,199,2,299,4,399,1,2,499 -260 LET B(3)=199 -270 LET B(2)=299 -280 LET D(4,2)=399 -290 LET D(2,1)=499 -300 PRINT "VALUES FOR A(I)" -310 PRINT "I","A(I)","A(I)" -320 PRINT ,"SHOULD BE","ACTUAL" -330 LET M$="PASSED. ***" -340 FOR I=1 TO 5 -350 LET S$=" " -360 IF A(I)=B(I) THEN 390 -370 LET M$="FAILED. ***" -380 LET S$=" ***" -390 PRINT I,B(I),A(I),S$ -400 NEXT I -410 PRINT -420 PRINT "*** TEST FOR ONE-DIMENSIONAL ARRAY ";M$ -430 LET M$="PASSED. ***" -440 PRINT -450 PRINT "VALUES FOR C(I,J)" -460 PRINT "I=",,"J=1","J=2","J=3" -470 FOR I=1 TO 5 -480 PRINT I,"SHOULD BE:",D(I,1),D(I,2),D(I,3) -490 PRINT ,"ACTUAL:",C(I,1),C(I,2),C(I,3) -500 PRINT ,, -510 FOR J=1 TO 3 -520 IF C(I,J)=D(I,J) THEN 560 -530 LET M$="FAILED. ***" -540 PRINT " ***", -550 GOTO 570 -560 PRINT " ", -570 NEXT J -580 PRINT -590 NEXT I -600 PRINT -610 PRINT "*** TEST FOR TWO-DIMENSIONAL ARRAY ";M$ -620 PRINT -630 PRINT " END TEST" -640 PRINT -650 PRINT "END PROGRAM 94" -660 END diff --git a/bwbtest/NBS2/P094.run b/bwbtest/NBS2/P094.run deleted file mode 100644 index efc7d8b..0000000 --- a/bwbtest/NBS2/P094.run +++ /dev/null @@ -1,45 +0,0 @@ -PROGRAM FILE 94: READING DATA INTO SUBSCRIPTED VARIABLES. - ANSI STANDARD 14.2, 14.4 - -SECTION 94.1: READING DATA INTO SUBSCRIPTED VARIABLES. - -THIS SECTION TESTS THAT THE NUMERIC DATA CAN BE READ INTO -ARRAYS AND THAT SUBSCRIPTS ARE EVALUATED AFTER READING -INTO PREVIOUS VARIABLES. - - BEGIN TEST - -VALUES FOR A(I) -I A(I) A(I) - SHOULD BE ACTUAL - 1 1 1 - 2 299 299 - 3 199 199 - 4 4 4 - 5 5 5 - -*** TEST FOR ONE-DIMENSIONAL ARRAY PASSED. *** - -VALUES FOR C(I,J) -I= J=1 J=2 J=3 - 1 SHOULD BE: 1001 1002 1003 - ACTUAL: 1001 1002 1003 - - 2 SHOULD BE: 499 2002 2003 - ACTUAL: 499 2002 2003 - - 3 SHOULD BE: 3001 3002 3003 - ACTUAL: 3001 3002 3003 - - 4 SHOULD BE: 4001 399 4003 - ACTUAL: 4001 399 4003 - - 5 SHOULD BE: 5001 5002 5003 - ACTUAL: 5001 5002 5003 - - -*** TEST FOR TWO-DIMENSIONAL ARRAY PASSED. *** - - END TEST - -END PROGRAM 94 diff --git a/bwbtest/NBS2/P095.BAS b/bwbtest/NBS2/P095.BAS deleted file mode 100644 index 4bae92a..0000000 --- a/bwbtest/NBS2/P095.BAS +++ /dev/null @@ -1,178 +0,0 @@ -10 PRINT "PROGRAM FILE 95: GENERAL USE OF THE READ, DATA," -15 PRINT " AND RESTORE STATEMENTS." -20 PRINT " ANSI STANDARD 14.2, 14.4" -30 PRINT -40 REM THE FOLLOWING LINES DESCRIBE THE DATA AND READ STRUCTURE OF -50 REM THIS PROGRAM. LINE #1 REPRESENTS THE DATA STRING. LINE #2 -60 REM REPRESENTS THE FIRST SERIES OF READ STATEMENTS AND THE TYPE -70 REM (STRING OR NUMERIC) OF VARIABLE. LINE #3 REPRESENTS THE -80 REM SECOND SERIES OF READ STATEMENTS, AFTER THE FIRST RESTORE, -90 REM AND LINE #4, THE THIRD SERIES OF READS. SLASHES DELIMIT -100 REM THE RANGE OF INDIVIDUAL STATEMENTS -110 REM -120 REM LINE #1: 1 A 2 B 3 4/5 C D E/F 6/7 8 9 10/11 -130 REM LINE #2: N S N S/N N N S/S S S S S N/S/ N N -140 REM LINE #3: S S S S S S S/S S S S N N S -150 REM LINE #4: N S S S N -160 REM -170 PRINT "SECTION 95.1: GENERAL SYNTAX AND SEMANTICS OF READ AND DATA" -180 PRINT -190 PRINT "THIS SECTION EXERCISES SOME OF THE GENERAL CAPABILITIES" -200 PRINT "AND PROPERTIES OF THE READ AND DATA STATEMENTS, AS LISTED:" -210 PRINT " 1) READ AND DATA CAN MIX STRING AND NUMERIC DATA" -220 PRINT " 2) CONTROL FALLS THROUGH DATA STATEMENTS WITHOUT EFFECT" -230 PRINT " 3) DATA STATEMENTS MAY BE SCATTERED THROUGHOUT SOURCE" -240 PRINT " 4) READ AND DATA LISTS CAN OVERLAP" -250 PRINT " 5) READ CAN ACCESS DATA ANYWHERE IN SOURCE" -260 PRINT -270 PRINT " BEGIN TEST" -280 PRINT -290 LET F=0 -300 LET W$="READ OK" -310 LET X$="READ FAILED" -320 LET Y$="SHOULD BE:" -330 LET Z$="ACTUAL: " -340 DATA 1,A,2,B,3,4 -350 READ A,A$,B,B$ -360 PRINT -370 PRINT Y$,1,"A",2,"B" -380 PRINT Z$,A,A$,B,B$ -390 IF A<>1 THEN 450 -400 IF A$<>"A" THEN 450 -410 IF B<>2 THEN 450 -420 IF B$<>"B" THEN 450 -430 PRINT W$ -440 GOTO 470 -450 PRINT X$ -460 LET F=F+1 -470 READ A,B,C,A$ -480 PRINT -490 PRINT Y$,3,4,5,"C" -500 PRINT Z$,A,B,C,A$ -510 IF A<>3 THEN 570 -520 IF B<>4 THEN 570 -530 IF C<>5 THEN 570 -540 IF A$<>"C" THEN 570 -550 PRINT W$ -560 GOTO 590 -570 PRINT X$ -580 LET F=F+1 -590 GOTO 620 -600 REM TEST BRANCHING TO A DATA STATEMENT -610 DATA 5,C,D,E -620 DATA F,6 -630 DATA 7,8,9,10 -640 READ A$,B$,C$,D$,E$,A -650 PRINT -660 PRINT Y$,"D","E","F","6","7",8 -670 PRINT Z$,A$,B$,C$,D$,E$,A -680 IF A$<>"D" THEN 760 -690 IF B$<>"E" THEN 760 -700 IF C$<>"F" THEN 760 -710 IF D$<>"6" THEN 760 -720 IF E$<>"7" THEN 760 -730 IF A<>8 THEN 760 -740 PRINT W$ -750 GOTO 780 -760 PRINT X$ -770 LET F=F+1 -780 READ A$ -790 PRINT -800 PRINT Y$,"9" -810 PRINT Z$,A$ -820 IF A$<>"9" THEN 850 -830 PRINT W$ -840 GOTO 870 -850 PRINT X$ -860 LET F=F+1 -870 READ A,B -880 PRINT -890 PRINT Y$,10,11 -900 PRINT Z$,A,B -910 IF A<>10 THEN 950 -920 IF B<>11 THEN 950 -930 PRINT W$ -940 GOTO 970 -950 PRINT X$ -960 LET F=F+1 -970 DATA 11 -980 PRINT -990 IF F=0 THEN 1020 -1000 PRINT "*** TEST FAILED IN ";F;" CASE(S). ***" -1010 GOTO 1030 -1020 PRINT "*** TEST PASSED ***" -1030 PRINT -1040 PRINT " END TEST" -1050 PRINT -1060 PRINT "SECTION 95.2: RESTORE STATEMENT" -1070 PRINT -1080 PRINT "THIS SECTION TESTS THE CAPABILITY OF THE RESTORE STATEMENT" -1090 PRINT "TO ENABLE READING FROM THE BEGINNING OF THE DATA SEQUENCE." -1100 PRINT "FURTHERMORE, DATA VALUES WHICH WERE ORIGINALLY READ AS" -1110 PRINT "NUMERIC MAY BE SUBSEQUENTLY READ AS STRINGS, AND " -1120 PRINT "VICE-VERSA, AS LONG AS DATA-TYPE IS COMPATIBLE WITH" -1130 PRINT "VARIABLE-TYPE." -1140 PRINT -1150 PRINT " BEGIN TEST" -1160 LET F=0 -1170 PRINT -1180 PRINT "EXECUTE FIRST RESTORE" -1190 RESTORE -1200 READ A$,B$,C$,D$,E$,F$,G$ -1210 PRINT -1220 PRINT Y$,"1","A","2","B","3","4","5" -1230 PRINT Z$,A$,B$,C$,D$,E$,F$,G$ -1240 IF A$<>"1" THEN 1330 -1250 IF B$<>"A" THEN 1330 -1260 IF C$<>"2" THEN 1330 -1270 IF D$<>"B" THEN 1330 -1280 IF E$<>"3" THEN 1330 -1290 IF F$<>"4" THEN 1330 -1300 IF G$<>"5" THEN 1330 -1310 PRINT W$ -1320 GOTO 1350 -1330 PRINT X$ -1340 LET F=F+1 -1350 READ A$,B$,C$,D$,A,B,E$ -1360 PRINT -1370 PRINT Y$,"C","D","E","F",6,7,"8" -1380 PRINT Z$,A$,B$,C$,D$,A,B,E$ -1390 IF A$<>"C" THEN 1480 -1400 IF B$<>"D" THEN 1480 -1410 IF C$<>"E" THEN 1480 -1420 IF D$<>"F" THEN 1480 -1430 IF A<>6 THEN 1480 -1440 IF B<>7 THEN 1480 -1450 IF E$<>"8" THEN 1480 -1460 PRINT W$ -1470 GOTO 1500 -1480 PRINT X$ -1490 LET F=F+1 -1500 PRINT -1510 PRINT "EXECUTE SECOND RESTORE" -1520 RESTORE -1530 PRINT -1540 READ A,A$,B$,C$,B -1550 PRINT -1560 PRINT Y$,1,"A","2","B",3 -1570 PRINT Z$,A,A$,B$,C$,B -1580 IF A<>1 THEN 1650 -1590 IF A$<>"A" THEN 1650 -1600 IF B$<>"2" THEN 1650 -1610 IF C$<>"B" THEN 1650 -1620 IF B<>3 THEN 1650 -1630 PRINT W$ -1640 GOTO 1670 -1650 PRINT X$ -1660 LET F=F+1 -1670 PRINT -1680 PRINT -1690 IF F=0 THEN 1720 -1700 PRINT "*** TEST FAILED IN ";F;" CASE(S). ***" -1710 GOTO 1730 -1720 PRINT "*** TEST PASSED ***" -1730 PRINT -1740 PRINT " END TEST" -1750 PRINT -1760 PRINT "END PROGRAM 95" -1770 END diff --git a/bwbtest/NBS2/P095.run b/bwbtest/NBS2/P095.run deleted file mode 100644 index b1f3dfb..0000000 --- a/bwbtest/NBS2/P095.run +++ /dev/null @@ -1,81 +0,0 @@ -PROGRAM FILE 95: GENERAL USE OF THE READ, DATA, - AND RESTORE STATEMENTS. - ANSI STANDARD 14.2, 14.4 - -SECTION 95.1: GENERAL SYNTAX AND SEMANTICS OF READ AND DATA - -THIS SECTION EXERCISES SOME OF THE GENERAL CAPABILITIES -AND PROPERTIES OF THE READ AND DATA STATEMENTS, AS LISTED: - 1) READ AND DATA CAN MIX STRING AND NUMERIC DATA - 2) CONTROL FALLS THROUGH DATA STATEMENTS WITHOUT EFFECT - 3) DATA STATEMENTS MAY BE SCATTERED THROUGHOUT SOURCE - 4) READ AND DATA LISTS CAN OVERLAP - 5) READ CAN ACCESS DATA ANYWHERE IN SOURCE - - BEGIN TEST - - -SHOULD BE: 1 A 2 B -ACTUAL: 1 A 2 B -READ OK - -SHOULD BE: 3 4 5 C -ACTUAL: 3 4 5 C -READ OK - -SHOULD BE: D E F 6 7 - 8 -ACTUAL: D E F 6 7 - 8 -READ OK - -SHOULD BE: 9 -ACTUAL: 9 -READ OK - -SHOULD BE: 10 11 -ACTUAL: 10 11 -READ OK - -*** TEST PASSED *** - - END TEST - -SECTION 95.2: RESTORE STATEMENT - -THIS SECTION TESTS THE CAPABILITY OF THE RESTORE STATEMENT -TO ENABLE READING FROM THE BEGINNING OF THE DATA SEQUENCE. -FURTHERMORE, DATA VALUES WHICH WERE ORIGINALLY READ AS -NUMERIC MAY BE SUBSEQUENTLY READ AS STRINGS, AND -VICE-VERSA, AS LONG AS DATA-TYPE IS COMPATIBLE WITH -VARIABLE-TYPE. - - BEGIN TEST - -EXECUTE FIRST RESTORE - -SHOULD BE: 1 A 2 B 3 -4 5 -ACTUAL: 1 A 2 B 3 -4 5 -READ OK - -SHOULD BE: C D E F 6 - 7 8 -ACTUAL: C D E F 6 - 7 8 -READ OK - -EXECUTE SECOND RESTORE - - -SHOULD BE: 1 A 2 B 3 -ACTUAL: 1 A 2 B 3 -READ OK - - -*** TEST PASSED *** - - END TEST - -END PROGRAM 95 diff --git a/bwbtest/NBS2/P096.BAS b/bwbtest/NBS2/P096.BAS deleted file mode 100644 index 7424152..0000000 --- a/bwbtest/NBS2/P096.BAS +++ /dev/null @@ -1,31 +0,0 @@ -10 PRINT "PROGRAM FILE 96: EXCEPTION - NUMERIC UNDERFLOW WHEN" -20 PRINT " READING DATA CAUSES REPLACEMENT BY ZERO." -30 PRINT " ANSI STANDARD 5.6, 14.4" -40 PRINT -50 PRINT "SECTION 96.1: EXCEPTION - NUMERIC UNDERFLOW WHEN" -60 PRINT " READING DATA CAUSES REPLACEMENT BY ZERO." -70 PRINT -80 PRINT "TO PASS THIS TEST:" -90 PRINT -100 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MAY BE" -110 PRINT " DISPLAYED (NOT MANDATORY), AND" -120 PRINT -130 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE" -140 PRINT " OF THE CONSTANT" -150 PRINT -160 PRINT " BEGIN TEST." -170 PRINT -180 DATA 1E-99999 -190 READ A -200 PRINT "RESULTING VALUE =";A -210 PRINT -220 IF A=0 THEN 260 -230 PRINT "RESULTING VALUE <> 0. IF VALUE <> 1E-99999, THEN," -240 PRINT "*** TEST FAILED ***" -250 GOTO 270 -260 PRINT "*** TEST PASSED ***" -270 PRINT -280 PRINT " END TEST." -290 PRINT -300 PRINT "END PROGRAM 96" -310 END diff --git a/bwbtest/NBS2/P096.run b/bwbtest/NBS2/P096.run deleted file mode 100644 index 35c57ed..0000000 --- a/bwbtest/NBS2/P096.run +++ /dev/null @@ -1,24 +0,0 @@ -PROGRAM FILE 96: EXCEPTION - NUMERIC UNDERFLOW WHEN - READING DATA CAUSES REPLACEMENT BY ZERO. - ANSI STANDARD 5.6, 14.4 - -SECTION 96.1: EXCEPTION - NUMERIC UNDERFLOW WHEN - READING DATA CAUSES REPLACEMENT BY ZERO. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MAY BE - DISPLAYED (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE - OF THE CONSTANT - - BEGIN TEST. - -RESULTING VALUE = 0 - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 96 diff --git a/bwbtest/NBS2/P097.BAS b/bwbtest/NBS2/P097.BAS deleted file mode 100644 index 5a042a4..0000000 --- a/bwbtest/NBS2/P097.BAS +++ /dev/null @@ -1,35 +0,0 @@ -10 PRINT "PROGRAM FILE 97: EXCEPTION - INSUFFICIENT DATA FOR READ." -20 PRINT " ANSI STANDARD 14.5" -30 PRINT -40 PRINT "SECTION 97.1: EXCEPTION - INSUFFICIENT DATA FOR READ." -50 PRINT -60 PRINT "THIS TEST CAUSES A READ OF THREE VARIABLES WHEN ONLY TWO" -70 PRINT "DATA ARE AVAILABLE." -80 PRINT -90 PRINT "TO PASS THIS TEST:" -100 PRINT -110 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -120 PRINT " DISPLAYED, AND" -130 PRINT -140 PRINT " 2) THE PROGRAM MUST TERMINATE." -150 PRINT -160 PRINT " BEGIN TEST" -170 PRINT -180 DATA 5,6 -190 LET A=1 -200 LET B=2 -210 LET C=3 -220 PRINT "ABOUT TO EXECUTE READ - " -230 READ A,B,C -240 PRINT -245 PRINT "*** TEST FAILED ***" -260 PRINT "A, B, AND C WERE INITIALIZED TO 1, 2, AND 3" -270 PRINT "RESPECTIVELY, AND THEN 'READ A,B,C' WAS ATTEMPTED" -280 PRINT "FROM A DATA-LIST CONTAINING 5,6. RESULTS BELOW:" -290 PRINT -300 PRINT "A=";A;" B=";B;" C=";C -310 PRINT -320 PRINT " END TEST" -330 PRINT -340 PRINT "END PROGRAM 97" -350 END diff --git a/bwbtest/NBS2/P097.run b/bwbtest/NBS2/P097.run deleted file mode 100644 index 810b681..0000000 --- a/bwbtest/NBS2/P097.run +++ /dev/null @@ -1,20 +0,0 @@ -PROGRAM FILE 97: EXCEPTION - INSUFFICIENT DATA FOR READ. - ANSI STANDARD 14.5 - -SECTION 97.1: EXCEPTION - INSUFFICIENT DATA FOR READ. - -THIS TEST CAUSES A READ OF THREE VARIABLES WHEN ONLY TWO -DATA ARE AVAILABLE. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE. - - BEGIN TEST - -ABOUT TO EXECUTE READ - - -ERROR in line 230: Out of DATA diff --git a/bwbtest/NBS2/P098.BAS b/bwbtest/NBS2/P098.BAS deleted file mode 100644 index 022844a..0000000 --- a/bwbtest/NBS2/P098.BAS +++ /dev/null @@ -1,38 +0,0 @@ -10 PRINT "PROGRAM FILE 98: EXCEPTION - READING UNQUOTED STRING" -15 PRINT " DATA INTO A NUMERIC VARIABLE." -20 PRINT " ANSI STANDARD 14.5" -30 PRINT -40 PRINT "SECTION 98.1: EXCEPTION - READING UNQUOTED STRING" -50 PRINT " DATA INTO A NUMERIC VARIABLE." -60 PRINT -70 PRINT "THIS TEST CAUSES A READ TO BE ATTEMPTED FROM STRING-TYPE" -80 PRINT "DATA INTO A NUMERIC VARIABLE." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE." -200 PRINT -210 PRINT " BEGIN TEST" -220 PRINT -230 LET A=1 -240 LET B=2 -250 LET C=3 -260 REM DATA 5,6,2D3 -265 DATA 5,6,2Z3 -270 PRINT "ABOUT TO READ -" -290 READ A,B,C -300 PRINT -310 PRINT "*** TEST FAILED ***" -320 PRINT "VARIABLES A,B, AND C WERE INITIALIZED TO 1, 2, AND 3," -330 PRINT "RESPECTIVELY, AND THEN READ INTO FROM A DATA-LIST" -340 PRINT "CONTAINING 5, 6, AND '2D3'. RESULTS BELOW:" -350 PRINT -360 PRINT "A=";A;" B=";B;" C=";C -370 PRINT -380 PRINT " END TEST" -390 PRINT -400 PRINT "END PROGRAM 98" -410 END diff --git a/bwbtest/NBS2/P098.run b/bwbtest/NBS2/P098.run deleted file mode 100644 index c21d173..0000000 --- a/bwbtest/NBS2/P098.run +++ /dev/null @@ -1,22 +0,0 @@ -PROGRAM FILE 98: EXCEPTION - READING UNQUOTED STRING - DATA INTO A NUMERIC VARIABLE. - ANSI STANDARD 14.5 - -SECTION 98.1: EXCEPTION - READING UNQUOTED STRING - DATA INTO A NUMERIC VARIABLE. - -THIS TEST CAUSES A READ TO BE ATTEMPTED FROM STRING-TYPE -DATA INTO A NUMERIC VARIABLE. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE. - - BEGIN TEST - -ABOUT TO READ - - -ERROR in line 290: Bad DATA diff --git a/bwbtest/NBS2/P099.BAS b/bwbtest/NBS2/P099.BAS deleted file mode 100644 index 89f7da7..0000000 --- a/bwbtest/NBS2/P099.BAS +++ /dev/null @@ -1,37 +0,0 @@ -10 PRINT "PROGRAM FILE 99: EXCEPTION - READING QUOTED STRING" -15 PRINT " DATA INTO A NUMERIC VARIABLE." -20 PRINT " ANSI STANDARD 14.5" -30 PRINT -40 PRINT "SECTION 99.1: EXCEPTION - READING QUOTED STRING" -50 PRINT " DATA INTO A NUMERIC VARIABLE." -60 PRINT -70 PRINT "THIS TEST CAUSES A READ TO BE ATTEMPTED FROM STRING-TYPE" -80 PRINT "DATA INTO A NUMERIC VARIABLE." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE." -200 PRINT -210 PRINT " BEGIN TEST" -220 PRINT -230 LET A=1 -240 LET B=2 -250 LET C=3 -260 DATA 5,6,"7" -270 PRINT "ABOUT TO READ -" -290 READ A,B,C -300 PRINT -310 PRINT "*** TEST FAILED ***" -320 PRINT "VARIABLES A, B, AND C WERE INITIALIZED TO 1, 2, AND 3," -330 PRINT "RESPECTIVELY, AND THEN READ INTO FROM A DATA-LIST" -340 PRINT "CONTAINING 5, 6, AND A QUOTED '7'. RESULTS BELOW:" -350 PRINT -360 PRINT "A=";A;" B=";B;" C=";C -370 PRINT -380 PRINT " END TEST" -390 PRINT -400 PRINT "END PROGRAM 99" -410 END diff --git a/bwbtest/NBS2/P099.run b/bwbtest/NBS2/P099.run deleted file mode 100644 index accefe7..0000000 --- a/bwbtest/NBS2/P099.run +++ /dev/null @@ -1,22 +0,0 @@ -PROGRAM FILE 99: EXCEPTION - READING QUOTED STRING - DATA INTO A NUMERIC VARIABLE. - ANSI STANDARD 14.5 - -SECTION 99.1: EXCEPTION - READING QUOTED STRING - DATA INTO A NUMERIC VARIABLE. - -THIS TEST CAUSES A READ TO BE ATTEMPTED FROM STRING-TYPE -DATA INTO A NUMERIC VARIABLE. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE. - - BEGIN TEST - -ABOUT TO READ - - -ERROR in line 290: Bad DATA diff --git a/bwbtest/NBS2/P100.BAS b/bwbtest/NBS2/P100.BAS deleted file mode 100644 index f8af1fb..0000000 --- a/bwbtest/NBS2/P100.BAS +++ /dev/null @@ -1,36 +0,0 @@ -1 PRINT "PROGRAM FILE 100: EXCEPTION - STRING OVERFLOW ON READ." -2 PRINT " ANSI STANDARD 14.5" -3 PRINT -5 DATA ABC12345678901234567890123456789012345678901234567890123456789XYZ -45 PRINT "SECTION 100.1 EXCEPTION - STRING OVERFLOW ON READ." -55 PRINT -65 PRINT "THIS TEST READS A LONG STRING (65 CHARACTERS) INTO A" -75 PRINT "VARIABLE. IN ORDER TO PASS, THE PROCESSOR MUST EITHER:" -85 PRINT -95 PRINT "1) CORRECTLY ACCEPT THE STRING AND RETAIN ITS VALUE IN" -105 PRINT " THE VARIABLE, AS DEMONSTRATED IN THE PRINTING, OR" -110 PRINT -115 PRINT "2) DETECT STRING OVERFLOW, REPORT THE EXCEPTION AND" -125 PRINT " TERMINATE THE PROGRAM, AS THIS EXCEPTION IS FATAL." -135 PRINT -145 PRINT " BEGIN TEST" -155 PRINT -165 LET A$="INITIALIZED" -175 PRINT "ABOUT TO ATTEMPT READ. FATAL EXCEPTION MAY OCCUR NOW:" -185 PRINT -195 READ A$ -205 PRINT "IF THIS LINE PRINTS, NO EXCEPTION SHOULD HAVE BEEN REPORTED" -215 PRINT "AND THE TWO LINES BELOW (BEGINNING WITH 'ABC' AND ENDING" -220 PRINT "WITH 'XYZ') SHOULD BE IDENTICAL. OTHERWISE," -225 PRINT "*** TEST FAILS ***" -230 PRINT -235 PRINT "(FIRST LINE IS CONSTANT, SECOND IS FROM THE VARIABLE.)" -245 PRINT -255 PRINT "ABC123456789012345678901234567890"; -265 PRINT "12345678901234567890123456789XYZ" -275 PRINT A$ -285 PRINT -295 PRINT " END TEST" -305 PRINT -315 PRINT "END PROGRAM 100" -325 END diff --git a/bwbtest/NBS2/P100.run b/bwbtest/NBS2/P100.run deleted file mode 100644 index 2719700..0000000 --- a/bwbtest/NBS2/P100.run +++ /dev/null @@ -1,31 +0,0 @@ -PROGRAM FILE 100: EXCEPTION - STRING OVERFLOW ON READ. - ANSI STANDARD 14.5 - -SECTION 100.1 EXCEPTION - STRING OVERFLOW ON READ. - -THIS TEST READS A LONG STRING (65 CHARACTERS) INTO A -VARIABLE. IN ORDER TO PASS, THE PROCESSOR MUST EITHER: - -1) CORRECTLY ACCEPT THE STRING AND RETAIN ITS VALUE IN - THE VARIABLE, AS DEMONSTRATED IN THE PRINTING, OR - -2) DETECT STRING OVERFLOW, REPORT THE EXCEPTION AND - TERMINATE THE PROGRAM, AS THIS EXCEPTION IS FATAL. - - BEGIN TEST - -ABOUT TO ATTEMPT READ. FATAL EXCEPTION MAY OCCUR NOW: - -IF THIS LINE PRINTS, NO EXCEPTION SHOULD HAVE BEEN REPORTED -AND THE TWO LINES BELOW (BEGINNING WITH 'ABC' AND ENDING -WITH 'XYZ') SHOULD BE IDENTICAL. OTHERWISE, -*** TEST FAILS *** - -(FIRST LINE IS CONSTANT, SECOND IS FROM THE VARIABLE.) - -ABC12345678901234567890123456789012345678901234567890123456789XYZ -ABC12345678901234567890123456789012345678901234567890123456789XYZ - - END TEST - -END PROGRAM 100 diff --git a/bwbtest/NBS2/P101.BAS b/bwbtest/NBS2/P101.BAS deleted file mode 100644 index c29ce3a..0000000 --- a/bwbtest/NBS2/P101.BAS +++ /dev/null @@ -1,51 +0,0 @@ -10 PRINT "PROGRAM FILE 101: EXCEPTION - NUMERIC OVERFLOW ON READ." -20 PRINT " ANSI STANDARD 14.5" -30 PRINT -40 PRINT "SECTION 101.1: EXCEPTION - POSITIVE OVERFLOW ON READ." -50 PRINT -60 PRINT "THIS TEST CAUSES 9.9E99999 TO BE READ INTO A NUMERIC" -70 PRINT "VARIABLE. IN ORDER TO PASS, THE PROCESSOR MUST EITHER:" -80 PRINT -90 PRINT "1) CORRECTLY ACCEPT THE NUMBER AND RETAIN ITS VALUE IN" -100 PRINT " THE VARIABLE, AS DEMONSTRATED IN THE PRINTING, OR" -110 PRINT -120 PRINT "2) DETECT NUMERIC OVERFLOW, REPORT THE EXCEPTION," -130 PRINT " SUPPLY POSITIVE MACHINE INFINITY AND CONTINUE." -140 PRINT -150 PRINT " BEGIN TEST" -160 PRINT -170 PRINT "ABOUT TO EXECUTE READ." -180 DATA 9.9E99999 -190 READ A -200 PRINT -210 PRINT "RESULTING VALUE IN VARIABLE = ";A -220 PRINT -225 IF A <= .99E38 THEN 250 -230 PRINT "IF EXCEPTION OCCURRED, VARIABLE SHOULD = POSITIVE INFINITY." -240 PRINT "IF NOT, IT SHOULD = 9.9E99999; OTHERWISE," -250 PRINT "*** TEST FAILED *** " -260 PRINT -270 PRINT " END TEST" -280 PRINT -290 PRINT "SECTION 101.2: EXCEPTION - NEGATIVE OVERFLOW ON READ" -300 PRINT -310 PRINT "THIS SECTION IS IDENTICAL TO THE PREVIOUS, EXCEPT THAT" -320 PRINT "-9.9E99999 IS USED TO CAUSE OVERFLOW." -330 PRINT -340 PRINT " BEGIN TEST" -350 PRINT -360 PRINT "ABOUT TO EXECUTE READ." -370 DATA -9.9E99999 -380 READ A -390 PRINT -400 PRINT "RESULTING VALUE IN VARIABLE = ";A -410 PRINT -415 IF A >= .99E38 THEN 440 -420 PRINT "IF EXCEPTION OCCURRED, VARIABLE SHOULD = NEGATIVE INFINITY." -430 PRINT "IF NOT, IT SHOULD = -9.9E99999; OTHERWISE," -440 PRINT "*** TEST FAILED *** " -450 PRINT -460 PRINT " END TEST" -470 PRINT -480 PRINT "END PROGRAM 101" -490 END diff --git a/bwbtest/NBS2/P101.run b/bwbtest/NBS2/P101.run deleted file mode 100644 index 1b8aeef..0000000 --- a/bwbtest/NBS2/P101.run +++ /dev/null @@ -1,46 +0,0 @@ -PROGRAM FILE 101: EXCEPTION - NUMERIC OVERFLOW ON READ. - ANSI STANDARD 14.5 - -SECTION 101.1: EXCEPTION - POSITIVE OVERFLOW ON READ. - -THIS TEST CAUSES 9.9E99999 TO BE READ INTO A NUMERIC -VARIABLE. IN ORDER TO PASS, THE PROCESSOR MUST EITHER: - -1) CORRECTLY ACCEPT THE NUMBER AND RETAIN ITS VALUE IN - THE VARIABLE, AS DEMONSTRATED IN THE PRINTING, OR - -2) DETECT NUMERIC OVERFLOW, REPORT THE EXCEPTION, - SUPPLY POSITIVE MACHINE INFINITY AND CONTINUE. - - BEGIN TEST - -ABOUT TO EXECUTE READ. -Overflow - -RESULTING VALUE IN VARIABLE = 1.79769E+308 - -IF EXCEPTION OCCURRED, VARIABLE SHOULD = POSITIVE INFINITY. -IF NOT, IT SHOULD = 9.9E99999; OTHERWISE, -*** TEST FAILED *** - - END TEST - -SECTION 101.2: EXCEPTION - NEGATIVE OVERFLOW ON READ - -THIS SECTION IS IDENTICAL TO THE PREVIOUS, EXCEPT THAT --9.9E99999 IS USED TO CAUSE OVERFLOW. - - BEGIN TEST - -ABOUT TO EXECUTE READ. -Overflow - -RESULTING VALUE IN VARIABLE = -1.79769E+308 - -IF EXCEPTION OCCURRED, VARIABLE SHOULD = NEGATIVE INFINITY. -IF NOT, IT SHOULD = -9.9E99999; OTHERWISE, -*** TEST FAILED *** - - END TEST - -END PROGRAM 101 diff --git a/bwbtest/NBS2/P102.BAS b/bwbtest/NBS2/P102.BAS deleted file mode 100644 index eca6a1d..0000000 --- a/bwbtest/NBS2/P102.BAS +++ /dev/null @@ -1,42 +0,0 @@ -10 PRINT "PROGRAM FILE 102: ERROR - ILLEGAL CHARACTER IN UNQUOTED" -15 PRINT " STRING IN DATA STATEMENT." -20 PRINT " ANSI STANDARD 3.2, 14.2" -30 PRINT -40 PRINT "SECTION 102.1: ERROR - ILLEGAL CHARACTER IN UNQUOTED" -45 PRINT " STRING IN DATA STATEMENT." -50 PRINT -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -183 PRINT " BEGIN TEST" -187 PRINT -188 PRINT "A$, B$, AND C$ ARE SET TO 'AAAAA', 'BBBBB', AND 'CCCCC'." -190 PRINT "THE TEST THEN TRIES TO READ THE UNQUOTED STRING 'ABC' INTO" -200 PRINT "A$, 'D?F' INTO B$, AND 'GHI' INTO C$. THE SECOND OF THESE" -210 PRINT "OPERATIONS IS SYNTACTICALLY ILLEGAL, AS '?' IS NOT A" -220 PRINT "PLAIN-STRING-CHARACTER." -250 PRINT -260 LET A$="AAAAA" -270 LET B$="BBBBB" -280 LET C$="CCCCC" -290 DATA ABC,D?F,GHI -300 READ A$,B$,C$ -305 PRINT "RESULTING VALUES:" -310 PRINT "A$=";A$ -320 PRINT "B$=";B$ -330 PRINT "C$=";C$ -340 PRINT -350 PRINT " END TEST" -360 PRINT -370 PRINT "END PROGRAM 102" -380 END diff --git a/bwbtest/NBS2/P102.run b/bwbtest/NBS2/P102.run deleted file mode 100644 index 9293c77..0000000 --- a/bwbtest/NBS2/P102.run +++ /dev/null @@ -1,30 +0,0 @@ -PROGRAM FILE 102: ERROR - ILLEGAL CHARACTER IN UNQUOTED - STRING IN DATA STATEMENT. - ANSI STANDARD 3.2, 14.2 - -SECTION 102.1: ERROR - ILLEGAL CHARACTER IN UNQUOTED - STRING IN DATA STATEMENT. - - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -A$, B$, AND C$ ARE SET TO 'AAAAA', 'BBBBB', AND 'CCCCC'. -THE TEST THEN TRIES TO READ THE UNQUOTED STRING 'ABC' INTO -A$, 'D?F' INTO B$, AND 'GHI' INTO C$. THE SECOND OF THESE -OPERATIONS IS SYNTACTICALLY ILLEGAL, AS '?' IS NOT A -PLAIN-STRING-CHARACTER. - - -ERROR in line 300: Bad DATA diff --git a/bwbtest/NBS2/P103.BAS b/bwbtest/NBS2/P103.BAS deleted file mode 100644 index 0fa84a4..0000000 --- a/bwbtest/NBS2/P103.BAS +++ /dev/null @@ -1,38 +0,0 @@ -10 PRINT "PROGRAM FILE 103: ERROR - READING QUOTED STRINGS CONTAINING" -15 PRINT " SINGLE QUOTE." -20 PRINT " ANSI STANDARD 3.2, 14.2" -30 PRINT -40 PRINT "SECTION 103.2: ERROR - READING QUOTED STRING CONTAINING " -45 PRINT " SINGLE QUOTE." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS" -70 PRINT "CONTAINING A SINGLE OCCURRENCE OF THE QUOTE CHARACTER WITHIN" -80 PRINT "THE QUOTED STRING OF A DATA-STATEMENT." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST." -230 PRINT -240 READ A$ -250 PRINT "A READ STATEMENT HAS ATTEMPTED TO ASSOCIATE THE STRING" -260 PRINT "CONSISTING OF AN ASTERISK, THE SINGLE OCCURRENCE OF" -270 PRINT "A QUOTE CHARACTER AND A QUESTION MARK WITH A STRING " -280 PRINT "VARIABLE. " -290 PRINT -300 PRINT "VARIABLE=";A$ -310 PRINT -315 DATA "*"?" -320 PRINT " END TEST." -330 PRINT -340 PRINT "END PROGRAM 103." -350 END diff --git a/bwbtest/NBS2/P103.run b/bwbtest/NBS2/P103.run deleted file mode 100644 index ccd3c33..0000000 --- a/bwbtest/NBS2/P103.run +++ /dev/null @@ -1,27 +0,0 @@ -PROGRAM FILE 103: ERROR - READING QUOTED STRINGS CONTAINING - SINGLE QUOTE. - ANSI STANDARD 3.2, 14.2 - -SECTION 103.2: ERROR - READING QUOTED STRING CONTAINING - SINGLE QUOTE. - -THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS -CONTAINING A SINGLE OCCURRENCE OF THE QUOTE CHARACTER WITHIN -THE QUOTED STRING OF A DATA-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - - -ERROR in line 240: Bad DATA diff --git a/bwbtest/NBS2/P104.BAS b/bwbtest/NBS2/P104.BAS deleted file mode 100644 index 1a232b1..0000000 --- a/bwbtest/NBS2/P104.BAS +++ /dev/null @@ -1,38 +0,0 @@ -10 PRINT "PROGRAM FILE 104: ERROR - READING QUOTED STRINGS CONTAINING" -15 PRINT " DOUBLE QUOTE." -20 PRINT " ANSI STANDARD 3.2, 14.2" -30 PRINT -40 PRINT "SECTION 104.1: ERROR - READING QUOTED STRINGS CONTAINING " -45 PRINT " DOUBLE QUOTE." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS" -70 PRINT "CONTAINING A DOUBLE OCCURRENCE OF THE QUOTE CHARACTER WITHIN" -80 PRINT "THE QUOTED STRING OF A DATA-STATEMENT." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST." -230 PRINT -240 READ A$ -250 PRINT "A READ STATEMENT HAS ATTEMPTED TO ASSOCIATE THE " -260 PRINT "STRING CONSISTING OF AN ASTERISK, TWO CONSECUTIVE" -270 PRINT "QUOTE CHARACTERS AND A QUESTION MARK WITH A STRING " -280 PRINT "VARIABLE. " -290 PRINT -300 PRINT "VARIABLE=";A$ -310 PRINT -315 DATA "*""?" -320 PRINT " END TEST." -330 PRINT -340 PRINT "END PROGRAM 104." -350 END diff --git a/bwbtest/NBS2/P104.run b/bwbtest/NBS2/P104.run deleted file mode 100644 index 2ef7d2a..0000000 --- a/bwbtest/NBS2/P104.run +++ /dev/null @@ -1,27 +0,0 @@ -PROGRAM FILE 104: ERROR - READING QUOTED STRINGS CONTAINING - DOUBLE QUOTE. - ANSI STANDARD 3.2, 14.2 - -SECTION 104.1: ERROR - READING QUOTED STRINGS CONTAINING - DOUBLE QUOTE. - -THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS -CONTAINING A DOUBLE OCCURRENCE OF THE QUOTE CHARACTER WITHIN -THE QUOTED STRING OF A DATA-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - - -ERROR in line 240: Bad DATA diff --git a/bwbtest/NBS2/P105.BAS b/bwbtest/NBS2/P105.BAS deleted file mode 100644 index ddc480e..0000000 --- a/bwbtest/NBS2/P105.BAS +++ /dev/null @@ -1,38 +0,0 @@ -10 PRINT "PROGRAM FILE 105: ERROR - NULL DATUM IN DATA-LIST." -20 PRINT " ANSI STANDARD 14.2" -30 PRINT -40 PRINT "SECTION 105.1: ERROR - NULL DATUM IN DATA-LIST." -50 PRINT -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -240 PRINT " BEGIN TEST" -250 PRINT -260 LET A$="AAAAA" -270 LET B$="BBBBB" -280 LET C$="CCCCC" -281 PRINT "A$, B$, AND C$ INITIALIZED TO 'AAAAA', 'BBBBB', AND" -282 PRINT "'CCCCC', RESPECTIVELY. ABOUT TO READ A$, B$, C$ FROM" -283 PRINT "'DATA ABC,,GHI,JKL'." -285 PRINT -290 DATA ABC,,GHI,JKL -300 READ A$,B$,C$ -303 PRINT "RESULTING VALUES:" -310 PRINT "A$=";A$ -320 PRINT "B$=";B$ -330 PRINT "C$=";C$ -340 PRINT -350 PRINT " END TEST" -360 PRINT -370 PRINT "END PROGRAM 105" -380 END diff --git a/bwbtest/NBS2/P105.run b/bwbtest/NBS2/P105.run deleted file mode 100644 index 5bc27e8..0000000 --- a/bwbtest/NBS2/P105.run +++ /dev/null @@ -1,26 +0,0 @@ -PROGRAM FILE 105: ERROR - NULL DATUM IN DATA-LIST. - ANSI STANDARD 14.2 - -SECTION 105.1: ERROR - NULL DATUM IN DATA-LIST. - - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -A$, B$, AND C$ INITIALIZED TO 'AAAAA', 'BBBBB', AND -'CCCCC', RESPECTIVELY. ABOUT TO READ A$, B$, C$ FROM -'DATA ABC,,GHI,JKL'. - - -ERROR in line 300: Bad DATA diff --git a/bwbtest/NBS2/P106.BAS b/bwbtest/NBS2/P106.BAS deleted file mode 100644 index 7d57ec5..0000000 --- a/bwbtest/NBS2/P106.BAS +++ /dev/null @@ -1,37 +0,0 @@ -10 PRINT "PROGRAM FILE 106: ERROR - NULL ENTRY IN READ'S VARIABLE-LIST." -20 PRINT " ANSI STANDARD 14.2" -30 PRINT -40 PRINT "SECTION 106.1: ERROR - NULL ENTRY IN READ'S VARIABLE-LIST." -50 PRINT -60 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -70 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -80 PRINT -90 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -100 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -110 PRINT " BY THE PROCESSOR, OR" -120 PRINT -130 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -140 PRINT -150 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -160 PRINT "FOR DETAILED CRITERIA." -170 PRINT -180 PRINT " BEGIN TEST" -190 PRINT -200 LET A$="AAAAA" -210 LET B$="BBBBB" -220 LET C$="CCCCC" -230 PRINT "A$, B$, AND C$ INITIALIZED TO 'AAAAA', 'BBBBB', AND" -240 PRINT "'CCCCC', RESPECTIVELY. ABOUT TO EXECUTE 'READ A$,,C$'" -250 PRINT "FROM 'DATA ABC,DEF,GHI'." -260 DATA ABC,DEF,GHI -270 READ A$,,C$ -280 PRINT -290 PRINT "RESULTING VALUES:" -300 PRINT "A$=";A$ -310 PRINT "B$=";B$ -320 PRINT "C$=";C$ -330 PRINT -340 PRINT " END TEST" -350 PRINT -360 PRINT "END PROGRAM 106" -370 END diff --git a/bwbtest/NBS2/P106.run b/bwbtest/NBS2/P106.run deleted file mode 100644 index dcd0765..0000000 --- a/bwbtest/NBS2/P106.run +++ /dev/null @@ -1,24 +0,0 @@ -PROGRAM FILE 106: ERROR - NULL ENTRY IN READ'S VARIABLE-LIST. - ANSI STANDARD 14.2 - -SECTION 106.1: ERROR - NULL ENTRY IN READ'S VARIABLE-LIST. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -A$, B$, AND C$ INITIALIZED TO 'AAAAA', 'BBBBB', AND -'CCCCC', RESPECTIVELY. ABOUT TO EXECUTE 'READ A$,,C$' -FROM 'DATA ABC,DEF,GHI'. - -ERROR in line 270: Variable Not Declared diff --git a/bwbtest/NBS2/P107.BAS b/bwbtest/NBS2/P107.BAS deleted file mode 100644 index 336db11..0000000 --- a/bwbtest/NBS2/P107.BAS +++ /dev/null @@ -1,112 +0,0 @@ -10 PRINT "PROGRAM FILE 107: INPUT OF NUMERIC CONSTANTS." -20 PRINT " ANSI STANDARD 5.2, 13.2, 13.4" -30 PRINT -40 PRINT "SECTION 107.1: INPUT OF NUMERIC CONSTANTS." -50 PRINT -60 PRINT " THIS SECTION TESTS THE PROCESSOR'S CAPABILITY TO INPUT" -70 PRINT " NUMERIC VALUES CORRECTLY. IF AN INPUT VALUE IS NOT ACCURATE" -80 PRINT " TO AT LEAST SIX DIGITS, IT IS COUNTED AS A FAILURE." -90 PRINT -100 PRINT " ENTER THE NUMBERS BELOW EXACTLY AS REQUESTED." -110 PRINT " FOR USER CONVENIENCE, THE NUMBER TO BE ENTERED IS INDENTED" -120 PRINT " TWO SPACES, SO THAT IF THE INPUT-PROMPT OCCUPIES TWO" -130 PRINT " POSITIONS, AS RECOMMENDED, YOUR INPUT-REPLY WILL BE" -140 PRINT " ALIGNED WITH THE PROMPT STRING." -150 PRINT -160 PRINT "ALL THE REPLIES PROMPTED FOR ARE VALID, THEREFORE " -170 PRINT "IF THE PROCESSOR REJECTS ANY OF THEM," -180 PRINT "*** TEST FAILED ***" -190 PRINT -200 REM FORMAT OF DATA: -210 REM 1 - CORRECT NUMERIC VALUE -220 REM 2 - LOWER LIMIT -230 REM 3 - UPPER LIMIT -240 REM 4 - PROMPT (HOW NUMBER IS TO BE ENTERED) -250 REM 5 - STRING FOR CORRECT VALUE -260 DATA +.999999E38,.999998E38,1E38,"+.999999E38"," 9.99999E+37" -270 DATA -.999999E38,-1E38,-.999998E38,"-.999999E38","-9.99999E+37" -280 DATA +1.00001E-38,1E-38,1.00002E-38,"+1.00001E-38"," 1.00001E-38" -290 DATA -1.00001E-38,-1.00002E-38,-1E-38,"-1.00001E-38","-1.00001E-38" -300 DATA 9.99999E-38,9.99998E-38,10E-38,"9.99999E-38"," 9.99999E-38" -310 DATA 9.87654E37,9.87653E37,9.87655E37,"9.87654E37"," 9.87654E+37" -320 DATA 123456,123455,123457,"123456"," 123456" -330 DATA 123456,123455,123457,"123456."," 123456" -340 DATA 123456,123455,123457,"123456.0"," 123456" -350 DATA 987.654,987.653,987.655,"987.654"," 987.654" -360 DATA 1.23456E+6,1.23455E6,1.23457E6,"1234560"," 1.23456E+6" -370 DATA 1.23456E+8,1.23455E8,1.23457E8,"123456000"," 1.23456E+8" -380 DATA 1.23456E-2,1.23455E-2,1.23457E-2,".0123456"," 1.23456E-2" -390 DATA 1.23456E-4,1.23455E-4,1.23457E-4,".000123456"," 1.23456E-4" -400 DATA .12,.119999,.120001,".12"," .12" -410 DATA .12,.119999,.120001,"+.12"," .12" -420 DATA -.12,-.120001,-.119999,"-.12","-.12" -430 DATA .12,.119999,.120001,"0.12"," .12" -440 DATA 0,0,0,"0.0"," 0" -450 DATA 0,0,0,"+0"," 0" -460 DATA 0,0,0,"-.000"," 0" -470 DATA 1.23E9,1.22999E9,1.23001E9,"1.23E9"," 1.23000E+9" -480 DATA 1.23E9,1.22999E9,1.23001E9,"1.23E09"," 1.23000E+9" -490 DATA 1.23E9,1.22999E9,1.23001E9,"1.23E+9"," 1.23000E+9" -500 DATA 1.23E-9,1.22999E-9,1.23001E-9,"1.23E-9"," 1.23000E-9" -510 DATA 1.23E-9,1.22999E-9,1.23001E-9,"1.23E-09"," 1.23000E-9" -520 DATA 1.23E-9,1.22999E-9,1.23001E-9,"1.23E-0009"," 1.23000E-9" -530 DATA 1.23E-9,1.22999E-9,1.23001E-9 -540 DATA "000001.2300000","X","E-000009"," 1.23000E-9" -550 DATA 0,0,0,"0E0"," 0" -560 DATA 0,0,0,"000.000E22"," 0" -570 DATA 0,0,0,"+000E55"," 0" -580 DATA 0,0,0,"0.0E-000"," 0" -590 DATA 123,122.999,123.001,"123E0"," 123" -600 DATA 123,122.999,123.001,"123E000"," 123" -610 DATA 123,122.999,123.001,"123E-00"," 123" -620 DATA 123,122.999,123.001,"123E+0"," 123" -630 DATA 1.2345678E19,1.2345578E19,1.2345779E19 -640 DATA "1234567890","X","1234567890"," 1.23457E+19" -650 DATA 1.23456E15,1.23455E15,1.23457E15,"123456E10"," 1.23456E+15" -660 DATA 1.23456E-15,1.23455E-15,1.23457E-15 -670 DATA "0.0000123456E-10"," 1.23456E-15" -680 DATA 123456,123455,123457,"1234560000","X","00000E-9"," 123456" -690 DATA 123456,123455,123457,"0.000000000","X","123456E15"," 123456" -700 DATA 9.87654E37,9.87653E37,9.87655E37,".00987654E40"," 9.87654E+37" -710 DATA 9.87654E-38,9.87653E-38,9.87655E-38,"987.654E-40" -720 DATA " 9.87654E-38" -730 DATA 123.456,123.455,123.457,"123456.E-3"," 123.456" -740 DATA 123.456,123.455,123.457,".123456E3"," 123.456" -750 DATA -1,-1,-1,"","" -760 PRINT " BEGIN TEST" -770 LET F1=0 -780 READ V,L9,H9,A$,B$ -790 IF V=-1 THEN 1000 -800 LET C$= "" -810 IF B$<>"X" THEN 830 -820 READ C$,B$ -830 PRINT -840 PRINT -850 PRINT "PLEASE ENTER: " -860 PRINT " ";A$;C$ -870 INPUT W -880 LET M$="PASS" -890 IF WH9 THEN 940 -910 PRINT "SHOULD BE","ACTUAL","RESULT" -920 PRINT B$,W,M$ -930 GOTO 780 -940 PRINT "APPARENT FAILURE - ENTER 1 TO RE-TRY INPUT, 0 IF NOT" -950 INPUT Z -960 IF Z<>0 THEN 830 -970 LET M$="FAIL" -980 LET F1=F1+1 -990 GOTO 910 -1000 PRINT -1010 PRINT -1020 IF F1=0 THEN 1050 -1030 PRINT "*** TEST FAILED: ";F1;" NUMBER(S) HANDLED IMPROPERLY.***" -1040 GOTO 1060 -1050 PRINT "***** TEST PASSED. *****" -1060 REM END OF MAIN LINE FOR 107.1 -1070 PRINT -1080 PRINT " END TEST" -1090 PRINT -1100 PRINT "END PROGRAM 107" -1110 STOP -1120 END diff --git a/bwbtest/NBS2/P107.INP b/bwbtest/NBS2/P107.INP deleted file mode 100644 index 1bd137d..0000000 --- a/bwbtest/NBS2/P107.INP +++ /dev/null @@ -1,45 +0,0 @@ -+.999999E38 --.999999E38 -+1.00001E-38 --1.00001E-38 -9.99999E-38 -9.87654E37 -123456 -123456. -123456.0 -987.654 -1234560 -123456000 -.0123456 -.000123456 -.12 -+.12 --.12 -0.12 -0.0 -+0 --.000 -1.23E9 -1.23E09 -1.23E+9 -1.23E-9 -1.23E-09 -1.23E-0009 -000001.2300000E-000009 -0E0 -000.000E22 -+000E55 -0.0E-000 -123E0 -123E000 -123E-00 -123E+0 -12345678901234567890 -123456E10 -0.0000123456E-10 -123456000000000E-9 -0.000000000123456E15 -.00987654E40 -987.654E-40 -123456.E-3 -.123456E3 diff --git a/bwbtest/NBS2/P107.in b/bwbtest/NBS2/P107.in deleted file mode 100644 index 1bd137d..0000000 --- a/bwbtest/NBS2/P107.in +++ /dev/null @@ -1,45 +0,0 @@ -+.999999E38 --.999999E38 -+1.00001E-38 --1.00001E-38 -9.99999E-38 -9.87654E37 -123456 -123456. -123456.0 -987.654 -1234560 -123456000 -.0123456 -.000123456 -.12 -+.12 --.12 -0.12 -0.0 -+0 --.000 -1.23E9 -1.23E09 -1.23E+9 -1.23E-9 -1.23E-09 -1.23E-0009 -000001.2300000E-000009 -0E0 -000.000E22 -+000E55 -0.0E-000 -123E0 -123E000 -123E-00 -123E+0 -12345678901234567890 -123456E10 -0.0000123456E-10 -123456000000000E-9 -0.000000000123456E15 -.00987654E40 -987.654E-40 -123456.E-3 -.123456E3 diff --git a/bwbtest/NBS2/P107.run b/bwbtest/NBS2/P107.run deleted file mode 100644 index 691569f..0000000 --- a/bwbtest/NBS2/P107.run +++ /dev/null @@ -1,344 +0,0 @@ -PROGRAM FILE 107: INPUT OF NUMERIC CONSTANTS. - ANSI STANDARD 5.2, 13.2, 13.4 - -SECTION 107.1: INPUT OF NUMERIC CONSTANTS. - - THIS SECTION TESTS THE PROCESSOR'S CAPABILITY TO INPUT - NUMERIC VALUES CORRECTLY. IF AN INPUT VALUE IS NOT ACCURATE - TO AT LEAST SIX DIGITS, IT IS COUNTED AS A FAILURE. - - ENTER THE NUMBERS BELOW EXACTLY AS REQUESTED. - FOR USER CONVENIENCE, THE NUMBER TO BE ENTERED IS INDENTED - TWO SPACES, SO THAT IF THE INPUT-PROMPT OCCUPIES TWO - POSITIONS, AS RECOMMENDED, YOUR INPUT-REPLY WILL BE - ALIGNED WITH THE PROMPT STRING. - -ALL THE REPLIES PROMPTED FOR ARE VALID, THEREFORE -IF THE PROCESSOR REJECTS ANY OF THEM, -*** TEST FAILED *** - - BEGIN TEST - - -PLEASE ENTER: - +.999999E38 -? +.999999E38 -SHOULD BE ACTUAL RESULT - 9.99999E+37 9.99999E+37 PASS - - -PLEASE ENTER: - -.999999E38 -? -.999999E38 -SHOULD BE ACTUAL RESULT --9.99999E+37 -9.99999E+37 PASS - - -PLEASE ENTER: - +1.00001E-38 -? +1.00001E-38 -SHOULD BE ACTUAL RESULT - 1.00001E-38 1.00001E-38 PASS - - -PLEASE ENTER: - -1.00001E-38 -? -1.00001E-38 -SHOULD BE ACTUAL RESULT --1.00001E-38 -1.00001E-38 PASS - - -PLEASE ENTER: - 9.99999E-38 -? 9.99999E-38 -SHOULD BE ACTUAL RESULT - 9.99999E-38 9.99999E-38 PASS - - -PLEASE ENTER: - 9.87654E37 -? 9.87654E37 -SHOULD BE ACTUAL RESULT - 9.87654E+37 9.87654E+37 PASS - - -PLEASE ENTER: - 123456 -? 123456 -SHOULD BE ACTUAL RESULT - 123456 123456 PASS - - -PLEASE ENTER: - 123456. -? 123456. -SHOULD BE ACTUAL RESULT - 123456 123456 PASS - - -PLEASE ENTER: - 123456.0 -? 123456.0 -SHOULD BE ACTUAL RESULT - 123456 123456 PASS - - -PLEASE ENTER: - 987.654 -? 987.654 -SHOULD BE ACTUAL RESULT - 987.654 987.654 PASS - - -PLEASE ENTER: - 1234560 -? 1234560 -SHOULD BE ACTUAL RESULT - 1.23456E+6 1.23456E+6 PASS - - -PLEASE ENTER: - 123456000 -? 123456000 -SHOULD BE ACTUAL RESULT - 1.23456E+8 1.23456E+8 PASS - - -PLEASE ENTER: - .0123456 -? .0123456 -SHOULD BE ACTUAL RESULT - 1.23456E-2 1.23456E-2 PASS - - -PLEASE ENTER: - .000123456 -? .000123456 -SHOULD BE ACTUAL RESULT - 1.23456E-4 1.23456E-4 PASS - - -PLEASE ENTER: - .12 -? .12 -SHOULD BE ACTUAL RESULT - .12 .12 PASS - - -PLEASE ENTER: - +.12 -? +.12 -SHOULD BE ACTUAL RESULT - .12 .12 PASS - - -PLEASE ENTER: - -.12 -? -.12 -SHOULD BE ACTUAL RESULT --.12 -.12 PASS - - -PLEASE ENTER: - 0.12 -? 0.12 -SHOULD BE ACTUAL RESULT - .12 .12 PASS - - -PLEASE ENTER: - 0.0 -? 0.0 -SHOULD BE ACTUAL RESULT - 0 0 PASS - - -PLEASE ENTER: - +0 -? +0 -SHOULD BE ACTUAL RESULT - 0 0 PASS - - -PLEASE ENTER: - -.000 -? -.000 -SHOULD BE ACTUAL RESULT - 0 0 PASS - - -PLEASE ENTER: - 1.23E9 -? 1.23E9 -SHOULD BE ACTUAL RESULT - 1.23000E+9 1.23E+9 PASS - - -PLEASE ENTER: - 1.23E09 -? 1.23E09 -SHOULD BE ACTUAL RESULT - 1.23000E+9 1.23E+9 PASS - - -PLEASE ENTER: - 1.23E+9 -? 1.23E+9 -SHOULD BE ACTUAL RESULT - 1.23000E+9 1.23E+9 PASS - - -PLEASE ENTER: - 1.23E-9 -? 1.23E-9 -SHOULD BE ACTUAL RESULT - 1.23000E-9 1.23E-9 PASS - - -PLEASE ENTER: - 1.23E-09 -? 1.23E-09 -SHOULD BE ACTUAL RESULT - 1.23000E-9 1.23E-9 PASS - - -PLEASE ENTER: - 1.23E-0009 -? 1.23E-0009 -SHOULD BE ACTUAL RESULT - 1.23000E-9 1.23E-9 PASS - - -PLEASE ENTER: - 000001.2300000E-000009 -? 000001.2300000E-000009 -SHOULD BE ACTUAL RESULT - 1.23000E-9 1.23E-9 PASS - - -PLEASE ENTER: - 0E0 -? 0E0 -SHOULD BE ACTUAL RESULT - 0 0 PASS - - -PLEASE ENTER: - 000.000E22 -? 000.000E22 -SHOULD BE ACTUAL RESULT - 0 0 PASS - - -PLEASE ENTER: - +000E55 -? +000E55 -SHOULD BE ACTUAL RESULT - 0 0 PASS - - -PLEASE ENTER: - 0.0E-000 -? 0.0E-000 -SHOULD BE ACTUAL RESULT - 0 0 PASS - - -PLEASE ENTER: - 123E0 -? 123E0 -SHOULD BE ACTUAL RESULT - 123 123 PASS - - -PLEASE ENTER: - 123E000 -? 123E000 -SHOULD BE ACTUAL RESULT - 123 123 PASS - - -PLEASE ENTER: - 123E-00 -? 123E-00 -SHOULD BE ACTUAL RESULT - 123 123 PASS - - -PLEASE ENTER: - 123E+0 -? 123E+0 -SHOULD BE ACTUAL RESULT - 123 123 PASS - - -PLEASE ENTER: - 12345678901234567890 -? 12345678901234567890 -SHOULD BE ACTUAL RESULT - 1.23457E+19 1.23457E+19 PASS - - -PLEASE ENTER: - 123456E10 -? 123456E10 -SHOULD BE ACTUAL RESULT - 1.23456E+15 1.23456E+15 PASS - - -PLEASE ENTER: - 0.0000123456E-10 -? 0.0000123456E-10 -SHOULD BE ACTUAL RESULT - 1.23456E-15 1.23456E-15 PASS - - -PLEASE ENTER: - 123456000000000E-9 -? 123456000000000E-9 -SHOULD BE ACTUAL RESULT - 123456 123456 PASS - - -PLEASE ENTER: - 0.000000000123456E15 -? 0.000000000123456E15 -SHOULD BE ACTUAL RESULT - 123456 123456 PASS - - -PLEASE ENTER: - .00987654E40 -? .00987654E40 -SHOULD BE ACTUAL RESULT - 9.87654E+37 9.87654E+37 PASS - - -PLEASE ENTER: - 987.654E-40 -? 987.654E-40 -SHOULD BE ACTUAL RESULT - 9.87654E-38 9.87654E-38 PASS - - -PLEASE ENTER: - 123456.E-3 -? 123456.E-3 -SHOULD BE ACTUAL RESULT - 123.456 123.456 PASS - - -PLEASE ENTER: - .123456E3 -? .123456E3 -SHOULD BE ACTUAL RESULT - 123.456 123.456 PASS - - -***** TEST PASSED. ***** - - END TEST - -END PROGRAM 107 - -Program interrupted at line 1110 diff --git a/bwbtest/NBS2/P108.BAS b/bwbtest/NBS2/P108.BAS deleted file mode 100644 index 7ecb897..0000000 --- a/bwbtest/NBS2/P108.BAS +++ /dev/null @@ -1,127 +0,0 @@ -10 PRINT "PROGRAM FILE 108: INPUT TO SUBSCRIPTED VARIABLES." -20 PRINT " ANSI STANDARD 13.2, 13.4" -30 PRINT -40 PRINT "SECTION 108.1: SIMPLE INPUT TO FILL ARRAY." -50 PRINT -60 PRINT " BEGIN TEST." -70 PRINT -80 DATA 7,3,2,1,5,9,10,0,6,4,8 -90 DATA 7,3,2,1,9,4,8,0,10,5,6 -100 FOR I=0 TO 10 -110 READ J -120 PRINT "PLEASE ENTER:";I -130 INPUT A(J) -140 NEXT I -150 FOR I=0 TO 10 -160 READ T(I) -170 NEXT I -180 GOSUB 3000 -190 PRINT " END TEST." -200 PRINT -210 PRINT -220 PRINT "SECTION 108.2: INPUT OF SUBSCRIPT FOLLOWED BY SUBSCRIPTED" -230 PRINT " VARIABLE." -240 PRINT -250 PRINT " BEGIN TEST." -260 PRINT -270 PRINT "FOR THIS REPLY, STATEMENT IS: INPUT A(I),I,A(I),I,A(I)" -280 PRINT "PLEASE ENTER 500,6,600,2,200" -290 FOR I=0 TO 10 -300 LET A(I)=10+I -310 LET T(I)=A(I) -320 NEXT I -330 LET I=5 -340 INPUT A(I),I,A(I),I,A(I) -350 LET T(5)=500 -360 LET T(6)=600 -370 LET T(2)=200 -380 GOSUB 3000 -390 PRINT " END TEST." -400 PRINT -410 PRINT -420 PRINT "SECTION 108.3: NO ASSIGNMENT BEFORE VALIDATION OF INPUT." -430 PRINT -440 PRINT " BEGIN TEST" -450 PRINT -460 PRINT "THIS SECTION TESTS THAT NO ASSIGNMENT IS DONE BEFORE" -470 PRINT "THE ENTIRE REPLY IS VALIDATED." -480 FOR I=0 TO 10 -490 LET A(I)=I*100 -500 LET T(I)=A(I) -510 NEXT I -520 LET T(1)=8 -530 PRINT -540 PRINT "PLEASE ENTER LINE NO. 1 FIRST. IT SHOULD BE REJECTED" -550 PRINT "BECAUSE OF INSUFFICIENT DATA AND YOU SHOULD BE ALLOWED" -560 PRINT "TO RE-SUPPLY INPUT. THEN ENTER LINE NO. 2 (NOTE THE SECOND" -570 PRINT "CHARACTER IS A COMMA RATHER THAN A PERIOD)." -580 PRINT -590 PRINT "*** IF NOT ALLOWED TO RE-SUPPLY INPUT, TEST FAILS ***" -600 PRINT -610 PRINT "THE ASSOCIATED INPUT STATEMENT IS: INPUT H,I,J,A(I),K,L" -620 PRINT "THEREFORE, AN 8 SHOULD BE PUT INTO A(1), AND NO OTHER" -630 PRINT "CHANGE MADE TO THE ARRAY." -640 PRINT -650 PRINT "LINE NO. 1: 3.1,6,8,9,11" -660 PRINT "LINE NO. 2: 3,1,6,8,9,11" -670 INPUT H,I,J,A(I),K,L -680 GOSUB 3000 -690 PRINT " END TEST" -700 PRINT -710 PRINT "SECTION 108.4: INPUT TO TWO-DIMENSIONAL ARRAY." -720 PRINT -730 FOR I=1 TO 5 -740 FOR J=1 TO 3 -750 LET X(I,J)=1000*I+J -760 NEXT J -770 NEXT I -780 PRINT " BEGIN TEST" -790 PRINT -800 PRINT "STATEMENT FOR THIS REPLY: INPUT I,J,X(I,J)" -810 PRINT "PLEASE ENTER 2,3,999" -820 LET E=0 -830 INPUT I,J,X(I,J) -840 PRINT -850 PRINT "X(I,J)","J=1","J=2","J=3" -860 FOR I=1 TO 5 -870 PRINT "I=";I,X(I,1),X(I,2),X(I,3) -880 FOR J=1 TO 3 -890 IF I<>2 THEN 920 -900 IF J<>3 THEN 920 -910 GOTO 940 -920 IF X(I,J)= 1000*I+J THEN 940 -930 LET E=1 -940 NEXT J -950 NEXT I -960 IF X(2,3)=999 THEN 980 -970 LET E=1 -980 PRINT -990 IF E=0 THEN 1040 -1000 PRINT "*** TEST FAILED ***" -1010 PRINT "EITHER X(2,3) <> 999 OR SOME OTHER " -1020 PRINT "X(I,j) <> 1000*I + J AS INITIALIZED." -1030 GOTO 1050 -1040 PRINT "*** TEST PASSED ***" -1050 PRINT -1060 PRINT " END TEST" -1070 PRINT -1080 PRINT "END PROGRAM 108" -1090 STOP -3000 REM SUBROUTINE TO CHECK THAT A(I)=T(I) -3010 LET F=0 -3020 PRINT -3025 PRINT " "," CONTENTS OF ARRAY" -3030 PRINT "SUBSCRIPT","SHOULD BE","ACTUAL" -3040 FOR I=0 TO 10 -3050 IF A(I)=T(I) THEN 3070 -3060 LET F=F+1 -3070 PRINT I,T(I),A(I) -3080 NEXT I -3090 PRINT -3100 IF F=0 THEN 3130 -3110 PRINT "*** TEST FAILED IN ";F;"CASE(S) ***" -3120 GOTO 3140 -3130 PRINT "*** TEST PASSED ***" -3140 PRINT -3150 RETURN -3160 END diff --git a/bwbtest/NBS2/P108.INP b/bwbtest/NBS2/P108.INP deleted file mode 100644 index c10361b..0000000 --- a/bwbtest/NBS2/P108.INP +++ /dev/null @@ -1,15 +0,0 @@ -0 -1 -2 -3 -4 -5 -6 -7 -8 -9 -10 -500,6,600,2,200 -3.1,6,8,9,11 -3,1,6,8,9,11 -2,3,999 diff --git a/bwbtest/NBS2/P108.in b/bwbtest/NBS2/P108.in deleted file mode 100644 index c10361b..0000000 --- a/bwbtest/NBS2/P108.in +++ /dev/null @@ -1,15 +0,0 @@ -0 -1 -2 -3 -4 -5 -6 -7 -8 -9 -10 -500,6,600,2,200 -3.1,6,8,9,11 -3,1,6,8,9,11 -2,3,999 diff --git a/bwbtest/NBS2/P108.run b/bwbtest/NBS2/P108.run deleted file mode 100644 index 78e7e2a..0000000 --- a/bwbtest/NBS2/P108.run +++ /dev/null @@ -1,141 +0,0 @@ -PROGRAM FILE 108: INPUT TO SUBSCRIPTED VARIABLES. - ANSI STANDARD 13.2, 13.4 - -SECTION 108.1: SIMPLE INPUT TO FILL ARRAY. - - BEGIN TEST. - -PLEASE ENTER: 0 -? 0 -PLEASE ENTER: 1 -? 1 -PLEASE ENTER: 2 -? 2 -PLEASE ENTER: 3 -? 3 -PLEASE ENTER: 4 -? 4 -PLEASE ENTER: 5 -? 5 -PLEASE ENTER: 6 -? 6 -PLEASE ENTER: 7 -? 7 -PLEASE ENTER: 8 -? 8 -PLEASE ENTER: 9 -? 9 -PLEASE ENTER: 10 -? 10 - - CONTENTS OF ARRAY -SUBSCRIPT SHOULD BE ACTUAL - 0 7 7 - 1 3 3 - 2 2 2 - 3 1 1 - 4 9 9 - 5 4 4 - 6 8 8 - 7 0 0 - 8 10 10 - 9 5 5 - 10 6 6 - -*** TEST PASSED *** - - END TEST. - - -SECTION 108.2: INPUT OF SUBSCRIPT FOLLOWED BY SUBSCRIPTED - VARIABLE. - - BEGIN TEST. - -FOR THIS REPLY, STATEMENT IS: INPUT A(I),I,A(I),I,A(I) -PLEASE ENTER 500,6,600,2,200 -? 500,6,600,2,200 - - CONTENTS OF ARRAY -SUBSCRIPT SHOULD BE ACTUAL - 0 10 10 - 1 11 11 - 2 200 200 - 3 13 13 - 4 14 14 - 5 500 500 - 6 600 600 - 7 17 17 - 8 18 18 - 9 19 19 - 10 20 20 - -*** TEST PASSED *** - - END TEST. - - -SECTION 108.3: NO ASSIGNMENT BEFORE VALIDATION OF INPUT. - - BEGIN TEST - -THIS SECTION TESTS THAT NO ASSIGNMENT IS DONE BEFORE -THE ENTIRE REPLY IS VALIDATED. - -PLEASE ENTER LINE NO. 1 FIRST. IT SHOULD BE REJECTED -BECAUSE OF INSUFFICIENT DATA AND YOU SHOULD BE ALLOWED -TO RE-SUPPLY INPUT. THEN ENTER LINE NO. 2 (NOTE THE SECOND -CHARACTER IS A COMMA RATHER THAN A PERIOD). - -*** IF NOT ALLOWED TO RE-SUPPLY INPUT, TEST FAILS *** - -THE ASSOCIATED INPUT STATEMENT IS: INPUT H,I,J,A(I),K,L -THEREFORE, AN 8 SHOULD BE PUT INTO A(1), AND NO OTHER -CHANGE MADE TO THE ARRAY. - -LINE NO. 1: 3.1,6,8,9,11 -LINE NO. 2: 3,1,6,8,9,11 -? 3.1,6,8,9,11 -?Redo from start -? 3,1,6,8,9,11 - - CONTENTS OF ARRAY -SUBSCRIPT SHOULD BE ACTUAL - 0 0 0 - 1 8 8 - 2 200 200 - 3 300 300 - 4 400 400 - 5 500 500 - 6 600 600 - 7 700 700 - 8 800 800 - 9 900 900 - 10 1000 1000 - -*** TEST PASSED *** - - END TEST - -SECTION 108.4: INPUT TO TWO-DIMENSIONAL ARRAY. - - BEGIN TEST - -STATEMENT FOR THIS REPLY: INPUT I,J,X(I,J) -PLEASE ENTER 2,3,999 -? 2,3,999 - -X(I,J) J=1 J=2 J=3 -I= 1 1001 1002 1003 -I= 2 2001 2002 999 -I= 3 3001 3002 3003 -I= 4 4001 4002 4003 -I= 5 5001 5002 5003 - -*** TEST PASSED *** - - END TEST - -END PROGRAM 108 - -Program interrupted at line 1090 diff --git a/bwbtest/NBS2/P109.BAS b/bwbtest/NBS2/P109.BAS deleted file mode 100644 index 7ac4ab8..0000000 --- a/bwbtest/NBS2/P109.BAS +++ /dev/null @@ -1,199 +0,0 @@ -10 PRINT "PROGRAM FILE 109: STRING INPUT." -20 PRINT " ANSI STANDARD 3.2, 13.2, 13.4" -30 PRINT -40 PRINT "SECTION 109.1 INPUT OF QUOTED AND UNQUOTED STRINGS" -50 PRINT -60 PRINT "PLEASE ENTER YOUR INPUT-REPLIES EXACTLY AS REQUESTED" -70 PRINT "BY THE PROMPT, INCLUDING ALL SPACING, COMMAS AND OTHER" -80 PRINT "PUNCTUATION." -90 PRINT -100 PRINT " - EXCEPT - WHEREVER THE PROMPT CONTAINS AN EQUALS (=)" -110 PRINT "SUBSTITUTE A BLANK SPACE, AND WHEREVER THE PROMPT" -120 PRINT "CONTAINS A NUMBER-SIGN (#), SUBSTITUTE A QUOTE." -130 PRINT "THUS, THE PROMPT:" -140 PRINT " ==#ER#==" -150 PRINT "SHOULD CAUSE YOU TO STRIKE THE KEYS:" -160 PRINT " 1. SPACE" -170 PRINT " 2. SPACE" -180 PRINT " 3. QUOTE" -190 PRINT " 4. LETTER E" -200 PRINT " 5. LETTER R" -210 PRINT " 6. QUOTE" -220 PRINT " 7. SPACE" -230 PRINT " 8. SPACE" -240 PRINT -250 PRINT "THESE CONVENTIONS ARE NECESSARY BECAUSE THE QUOTE IS" -260 PRINT "UNPRINTABLE IN MINIMAL BASIC, AND SPACES ARE DIFFICULT" -270 PRINT "TO COUNT ON A TERMINAL." -280 PRINT -290 PRINT "PLEASE NOTE THAT THIS ROUTINE IS STRONGLY DEPENDENT" -300 PRINT "ON THE CORRECT OPERATION OF THE STRING COMPARISON" -310 PRINT "FEATURE. IF THAT FEATURE IS INCORRECT, THIS ROUTINE" -320 PRINT "WILL LIKELY GIVE INVALID RESULTS." -330 PRINT -340 PRINT "ALL THE REPLIES PROMPTED FOR ARE VALID, THEREFOR " -350 PRINT "IF THE PROCESSOR REJECTS ANY OF THEM, " -360 PRINT "*** TEST FAILED ***" -370 PRINT -380 PRINT "FOR USER CONVENIENCE, THE STRING TO BE ENTERED IS INDENTED" -390 PRINT "TWO SPACES, SO THAT IF THE INPUT-PROMPT OCCUPIES TWO" -400 PRINT "POSITIONS, AS RECOMMENDED, YOUR INPUT-REPLY WILL BE" -410 PRINT "ALIGNED WITH THE PROMPT STRING." -420 PRINT -430 PRINT " BEGIN TEST" -440 LET F=0 -450 READ N,P$ -460 LET Q$="" -470 IF N<100 THEN 500 -480 LET N=N-100 -490 READ Q$ -500 IF N=0 THEN 1380 -510 LET A$="" -520 LET B$="" -530 LET C$="" -540 LET D$="" -550 LET I$="" -560 LET J$="" -570 LET K$="" -580 LET L$="" -590 READ I$ -600 IF N<=1 THEN 660 -610 READ J$ -620 IF N<=2 THEN 660 -630 READ K$ -640 IF N<=3 THEN 660 -650 READ L$ -660 PRINT -670 PRINT -680 PRINT "PLEASE ENTER:" -690 PRINT " ";P$;Q$ -700 ON N GOTO 710,730,750,770 -710 INPUT A$ -720 GOTO 790 -730 INPUT A$,B$ -740 GOTO 790 -750 INPUT A$,B$,C$ -760 GOTO 790 -770 INPUT A$,B$,C$,D$ -780 GOTO 790 -790 REM COMMON EXIT POINT -800 PRINT -810 PRINT "SHOULD BE: ***";I$;J$;K$;L$;"***" -820 PRINT "ACTUAL: ***";A$;B$;C$;D$;"***" -830 IF A$<>I$ THEN 890 -840 IF B$<>J$ THEN 890 -850 IF C$<>K$ THEN 890 -860 IF D$<>L$ THEN 890 -870 PRINT "TEST OK" -880 GOTO 450 -890 PRINT "INPUT NOT EQUAL EXPECTED VALUE. RE-TRY (Y OR N)?" -900 INPUT T$ -910 IF T$<>"N" THEN 660 -920 PRINT "TEST FAILED." -930 LET F=F+1 -940 GOTO 450 -950 REM DATA ITEM FORMAT: -960 REM 1 - NUMBER OF VARIABLES (+100 IF LONG PROMPT) -970 REM 2 - PROMPT -980 REM 3 - CORRECT RESULT -990 REM OR -1000 REM 2,3 - LONG PROMPT -1010 REM 4 - CORRECT RESULT -1020 DATA 1,"ABC","ABC" -1030 DATA 1,"#ABC#","ABC" -1040 DATA 2,"ABC,DEF","ABC","DEF" -1050 DATA 2,"#ABC#,#DEF#","ABC","DEF" -1060 DATA 2,"#ABC#,DEF","ABC","DEF" -1070 DATA 2,"ABC,#DEF#","ABC","DEF" -1080 REM TEST ALL CHARACTERS LEGAL IN UNQUOTED STRING -1090 DATA 1,"ABCDEFGHIJKLM","ABCDEFGHIJKLM" -1100 DATA 1,"NOPQRSTUVWXYZ","NOPQRSTUVWXYZ" -1110 DATA 1,"+.=====-","+. -" -1120 DATA 1,"----5---10---15-18","----5---10---15-18" -1130 DATA 1,"===ABC","ABC" -1140 DATA 1,"ABC===","ABC" -1150 DATA 1,"===ABC===","ABC" -1160 DATA 1,"#===ABC#"," ABC" -1170 DATA 1,"#ABC===#","ABC " -1180 DATA 1,"#===ABC===#"," ABC " -1190 DATA 101,"===#===ABC","====#===="," ABC " -1200 DATA 103,"===ABC==,===#DEF#","===,==GHI==","ABC","DEF","GHI" -1210 DATA 3,"=1=,==2==,===3===","1","2","3" -1220 DATA 1,"A===B","A B" -1230 DATA 1,"===A===B===","A B" -1240 DATA 101,"===EIGHTEEN","=POSITIONS===","EIGHTEEN POSITIONS" -1250 DATA 103,"==A==B==,==C=","=D==,==E==F==","A B","C D","E F" -1260 DATA 103,"==A==B==,","==#D#==,==E==F==","A B","D","E F" -1270 DATA 3,"=#A#=,=B=C=,=#D#=","A","B C","D" -1280 DATA 103,"==#==A==B==#==,","=#=C=D=#=,=E=F="," A B " -1290 DATA " C D ","E F" -1300 DATA 4,"A,B,#C,D#,#E#","A","B","C,D","E" -1310 DATA 1,"##","" -1320 DATA 3,"A,##,B","A","","B" -1330 DATA 3,"==A==,==##==,==B==","A","","B" -1340 DATA 1,"AB+3-5.6B","AB+3-5.6B" -1350 DATA 1,"-1.23","-1.23" -1360 DATA 1,"+3-5=-8+6","+3-5 -8+6" -1370 DATA 0,"Q" -1380 PRINT -1390 PRINT -1400 IF F=0 THEN 1430 -1410 PRINT "*** TEST FAILED: ";F;" CASE(S) HANDLED IMPROPERLY ***" -1420 GOTO 1440 -1430 PRINT "*** TEST PASSED ***" -1440 PRINT -1450 PRINT " END TEST" -1460 PRINT -1470 PRINT "SECTION 109.2 TEST QUOTED-STRING-CHARACTERS" -1480 PRINT -1490 PRINT "THIS PART OF THE TEST IS INTENDED TO DETERMINE WHETHER" -1500 PRINT "QUOTED STRINGS ON INPUT CAN CONTAIN ANY OF THE LEGAL" -1510 PRINT "QUOTED STRING CHARACTERS." -1520 PRINT -1530 PRINT "PLEASE RESPOND TO THE PROMPT BY ENTERING THE REQUESTED" -1540 PRINT "CHARACTERS IMMEDIATELY PRECEDED AND FOLLOWED BY THE" -1550 PRINT "QUOTE CHARACTER. THUS THE PROMPT:" -1560 PRINT " ABC" -1570 PRINT "SHOULD CAUSE YOU TO STRIKE THE KEYS:" -1580 PRINT " 1. QUOTE" -1590 PRINT " 2. LETTER A" -1600 PRINT " 3. LETTER B" -1610 PRINT " 4. LETTER C" -1620 PRINT " 5. QUOTE" -1630 PRINT "THUS THE QUOTE TO BE ENTERED IS NOW IMPLICIT AND THE" -1640 PRINT "NUMBER SIGN (#) AND EQUALS SIGN (=) HAVE NO SPECIAL" -1650 PRINT "SIGNIFICANCE." -1660 PRINT -1670 PRINT " BEGIN TEST" -1680 LET F=0 -1690 READ A$ -1700 IF A$="Q" THEN 1900 -1710 PRINT -1720 PRINT -1730 PRINT "PLEASE ENTER:" -1740 PRINT " ";A$ -1750 INPUT B$ -1760 PRINT "SHOULD BE: ***";A$;"***" -1770 PRINT "ACTUAL: ***";B$;"***" -1780 IF A$<>B$ THEN 1810 -1790 PRINT "TEST OK" -1800 GOTO 1690 -1810 PRINT "INPUT NOT EQUAL TO EXPECTED VALUE. RE-TRY (Y OR N)?" -1820 INPUT C$ -1830 IF C$<>"N" THEN 1710 -1840 PRINT "TEST FAILED" -1850 LET F=F+1 -1860 GOTO 1690 -1870 DATA "ABCDEFGHIJKLM","NOPQRSTUVWXYZ","0123456789" -1880 DATA "!#$%&'()*+,-","./:;<=>?^_","EMBEDDED SPACE" -1890 DATA "Q" -1900 PRINT -1910 IF F=0 THEN 1940 -1920 PRINT "*** TEST FAILED. ";F;" CASE(S) HANDLED IMPROPERLY. ***" -1930 GOTO 1950 -1940 PRINT "***** TEST PASSED *****" -1950 PRINT -1960 PRINT " END TEST" -1970 PRINT -1980 PRINT "END PROGRAM 109" -1990 END diff --git a/bwbtest/NBS2/P109.INP b/bwbtest/NBS2/P109.INP deleted file mode 100644 index 5bdab64..0000000 --- a/bwbtest/NBS2/P109.INP +++ /dev/null @@ -1,39 +0,0 @@ -ABC -"ABC" -ABC,DEF -"ABC","DEF" -"ABC",DEF -ABC,"DEF" -ABCDEFGHIJKLM -NOPQRSTUVWXYZ -+. - -----5---10---15-18 - ABC -ABC - ABC -" ABC" -"ABC " -" ABC " - " ABC " - ABC , "DEF" , GHI - 1 , 2 , 3 -A B - A B - EIGHTEEN POSITIONS - A B , C D , E F - A B , "D" , E F - "A" , B C , "D" - " A B " , " C D " , E F -A,B,"C,D","E" -"" -A,"",B - A , "" , B -AB+3-5.6B --1.23 -+3-5 -8+6 -"ABCDEFGHIJKLM" -"NOPQRSTUVWXYZ" -"0123456789" -"!#$%&'()*+,-" -"./:;<=>?^_" -"EMBEDDED SPACE" diff --git a/bwbtest/NBS2/P109.in b/bwbtest/NBS2/P109.in deleted file mode 100644 index 5bdab64..0000000 --- a/bwbtest/NBS2/P109.in +++ /dev/null @@ -1,39 +0,0 @@ -ABC -"ABC" -ABC,DEF -"ABC","DEF" -"ABC",DEF -ABC,"DEF" -ABCDEFGHIJKLM -NOPQRSTUVWXYZ -+. - -----5---10---15-18 - ABC -ABC - ABC -" ABC" -"ABC " -" ABC " - " ABC " - ABC , "DEF" , GHI - 1 , 2 , 3 -A B - A B - EIGHTEEN POSITIONS - A B , C D , E F - A B , "D" , E F - "A" , B C , "D" - " A B " , " C D " , E F -A,B,"C,D","E" -"" -A,"",B - A , "" , B -AB+3-5.6B --1.23 -+3-5 -8+6 -"ABCDEFGHIJKLM" -"NOPQRSTUVWXYZ" -"0123456789" -"!#$%&'()*+,-" -"./:;<=>?^_" -"EMBEDDED SPACE" diff --git a/bwbtest/NBS2/P109.run b/bwbtest/NBS2/P109.run deleted file mode 100644 index 58550db..0000000 --- a/bwbtest/NBS2/P109.run +++ /dev/null @@ -1,421 +0,0 @@ -PROGRAM FILE 109: STRING INPUT. - ANSI STANDARD 3.2, 13.2, 13.4 - -SECTION 109.1 INPUT OF QUOTED AND UNQUOTED STRINGS - -PLEASE ENTER YOUR INPUT-REPLIES EXACTLY AS REQUESTED -BY THE PROMPT, INCLUDING ALL SPACING, COMMAS AND OTHER -PUNCTUATION. - - - EXCEPT - WHEREVER THE PROMPT CONTAINS AN EQUALS (=) -SUBSTITUTE A BLANK SPACE, AND WHEREVER THE PROMPT -CONTAINS A NUMBER-SIGN (#), SUBSTITUTE A QUOTE. -THUS, THE PROMPT: - ==#ER#== -SHOULD CAUSE YOU TO STRIKE THE KEYS: - 1. SPACE - 2. SPACE - 3. QUOTE - 4. LETTER E - 5. LETTER R - 6. QUOTE - 7. SPACE - 8. SPACE - -THESE CONVENTIONS ARE NECESSARY BECAUSE THE QUOTE IS -UNPRINTABLE IN MINIMAL BASIC, AND SPACES ARE DIFFICULT -TO COUNT ON A TERMINAL. - -PLEASE NOTE THAT THIS ROUTINE IS STRONGLY DEPENDENT -ON THE CORRECT OPERATION OF THE STRING COMPARISON -FEATURE. IF THAT FEATURE IS INCORRECT, THIS ROUTINE -WILL LIKELY GIVE INVALID RESULTS. - -ALL THE REPLIES PROMPTED FOR ARE VALID, THEREFOR -IF THE PROCESSOR REJECTS ANY OF THEM, -*** TEST FAILED *** - -FOR USER CONVENIENCE, THE STRING TO BE ENTERED IS INDENTED -TWO SPACES, SO THAT IF THE INPUT-PROMPT OCCUPIES TWO -POSITIONS, AS RECOMMENDED, YOUR INPUT-REPLY WILL BE -ALIGNED WITH THE PROMPT STRING. - - BEGIN TEST - - -PLEASE ENTER: - ABC -? ABC - -SHOULD BE: ***ABC*** -ACTUAL: ***ABC*** -TEST OK - - -PLEASE ENTER: - #ABC# -? "ABC" - -SHOULD BE: ***ABC*** -ACTUAL: ***ABC*** -TEST OK - - -PLEASE ENTER: - ABC,DEF -? ABC,DEF - -SHOULD BE: ***ABCDEF*** -ACTUAL: ***ABCDEF*** -TEST OK - - -PLEASE ENTER: - #ABC#,#DEF# -? "ABC","DEF" - -SHOULD BE: ***ABCDEF*** -ACTUAL: ***ABCDEF*** -TEST OK - - -PLEASE ENTER: - #ABC#,DEF -? "ABC",DEF - -SHOULD BE: ***ABCDEF*** -ACTUAL: ***ABCDEF*** -TEST OK - - -PLEASE ENTER: - ABC,#DEF# -? ABC,"DEF" - -SHOULD BE: ***ABCDEF*** -ACTUAL: ***ABCDEF*** -TEST OK - - -PLEASE ENTER: - ABCDEFGHIJKLM -? ABCDEFGHIJKLM - -SHOULD BE: ***ABCDEFGHIJKLM*** -ACTUAL: ***ABCDEFGHIJKLM*** -TEST OK - - -PLEASE ENTER: - NOPQRSTUVWXYZ -? NOPQRSTUVWXYZ - -SHOULD BE: ***NOPQRSTUVWXYZ*** -ACTUAL: ***NOPQRSTUVWXYZ*** -TEST OK - - -PLEASE ENTER: - +.=====- -? +. - - -SHOULD BE: ***+. -*** -ACTUAL: ***+. -*** -TEST OK - - -PLEASE ENTER: - ----5---10---15-18 -? ----5---10---15-18 - -SHOULD BE: ***----5---10---15-18*** -ACTUAL: ***----5---10---15-18*** -TEST OK - - -PLEASE ENTER: - ===ABC -? ABC - -SHOULD BE: ***ABC*** -ACTUAL: ***ABC*** -TEST OK - - -PLEASE ENTER: - ABC=== -? ABC - -SHOULD BE: ***ABC*** -ACTUAL: ***ABC*** -TEST OK - - -PLEASE ENTER: - ===ABC=== -? ABC - -SHOULD BE: ***ABC*** -ACTUAL: ***ABC*** -TEST OK - - -PLEASE ENTER: - #===ABC# -? " ABC" - -SHOULD BE: *** ABC*** -ACTUAL: *** ABC*** -TEST OK - - -PLEASE ENTER: - #ABC===# -? "ABC " - -SHOULD BE: ***ABC *** -ACTUAL: ***ABC *** -TEST OK - - -PLEASE ENTER: - #===ABC===# -? " ABC " - -SHOULD BE: *** ABC *** -ACTUAL: *** ABC *** -TEST OK - - -PLEASE ENTER: - ===#===ABC====#==== -? " ABC " - -SHOULD BE: *** ABC *** -ACTUAL: *** ABC *** -TEST OK - - -PLEASE ENTER: - ===ABC==,===#DEF#===,==GHI== -? ABC , "DEF" , GHI - -SHOULD BE: ***ABCDEFGHI*** -ACTUAL: ***ABCDEFGHI*** -TEST OK - - -PLEASE ENTER: - =1=,==2==,===3=== -? 1 , 2 , 3 - -SHOULD BE: ***123*** -ACTUAL: ***123*** -TEST OK - - -PLEASE ENTER: - A===B -? A B - -SHOULD BE: ***A B*** -ACTUAL: ***A B*** -TEST OK - - -PLEASE ENTER: - ===A===B=== -? A B - -SHOULD BE: ***A B*** -ACTUAL: ***A B*** -TEST OK - - -PLEASE ENTER: - ===EIGHTEEN=POSITIONS=== -? EIGHTEEN POSITIONS - -SHOULD BE: ***EIGHTEEN POSITIONS*** -ACTUAL: ***EIGHTEEN POSITIONS*** -TEST OK - - -PLEASE ENTER: - ==A==B==,==C==D==,==E==F== -? A B , C D , E F - -SHOULD BE: ***A BC DE F*** -ACTUAL: ***A BC DE F*** -TEST OK - - -PLEASE ENTER: - ==A==B==,==#D#==,==E==F== -? A B , "D" , E F - -SHOULD BE: ***A BDE F*** -ACTUAL: ***A BDE F*** -TEST OK - - -PLEASE ENTER: - =#A#=,=B=C=,=#D#= -? "A" , B C , "D" - -SHOULD BE: ***AB CD*** -ACTUAL: ***AB CD*** -TEST OK - - -PLEASE ENTER: - ==#==A==B==#==,=#=C=D=#=,=E=F= -? " A B " , " C D " , E F - -SHOULD BE: *** A B C D E F*** -ACTUAL: *** A B C D E F*** -TEST OK - - -PLEASE ENTER: - A,B,#C,D#,#E# -? A,B,"C,D","E" - -SHOULD BE: ***ABC,DE*** -ACTUAL: ***ABC,DE*** -TEST OK - - -PLEASE ENTER: - ## -? "" - -SHOULD BE: ****** -ACTUAL: ****** -TEST OK - - -PLEASE ENTER: - A,##,B -? A,"",B - -SHOULD BE: ***AB*** -ACTUAL: ***AB*** -TEST OK - - -PLEASE ENTER: - ==A==,==##==,==B== -? A , "" , B - -SHOULD BE: ***AB*** -ACTUAL: ***AB*** -TEST OK - - -PLEASE ENTER: - AB+3-5.6B -? AB+3-5.6B - -SHOULD BE: ***AB+3-5.6B*** -ACTUAL: ***AB+3-5.6B*** -TEST OK - - -PLEASE ENTER: - -1.23 -? -1.23 - -SHOULD BE: ***-1.23*** -ACTUAL: ***-1.23*** -TEST OK - - -PLEASE ENTER: - +3-5=-8+6 -? +3-5 -8+6 - -SHOULD BE: ***+3-5 -8+6*** -ACTUAL: ***+3-5 -8+6*** -TEST OK - - -*** TEST PASSED *** - - END TEST - -SECTION 109.2 TEST QUOTED-STRING-CHARACTERS - -THIS PART OF THE TEST IS INTENDED TO DETERMINE WHETHER -QUOTED STRINGS ON INPUT CAN CONTAIN ANY OF THE LEGAL -QUOTED STRING CHARACTERS. - -PLEASE RESPOND TO THE PROMPT BY ENTERING THE REQUESTED -CHARACTERS IMMEDIATELY PRECEDED AND FOLLOWED BY THE -QUOTE CHARACTER. THUS THE PROMPT: - ABC -SHOULD CAUSE YOU TO STRIKE THE KEYS: - 1. QUOTE - 2. LETTER A - 3. LETTER B - 4. LETTER C - 5. QUOTE -THUS THE QUOTE TO BE ENTERED IS NOW IMPLICIT AND THE -NUMBER SIGN (#) AND EQUALS SIGN (=) HAVE NO SPECIAL -SIGNIFICANCE. - - BEGIN TEST - - -PLEASE ENTER: - ABCDEFGHIJKLM -? "ABCDEFGHIJKLM" -SHOULD BE: ***ABCDEFGHIJKLM*** -ACTUAL: ***ABCDEFGHIJKLM*** -TEST OK - - -PLEASE ENTER: - NOPQRSTUVWXYZ -? "NOPQRSTUVWXYZ" -SHOULD BE: ***NOPQRSTUVWXYZ*** -ACTUAL: ***NOPQRSTUVWXYZ*** -TEST OK - - -PLEASE ENTER: - 0123456789 -? "0123456789" -SHOULD BE: ***0123456789*** -ACTUAL: ***0123456789*** -TEST OK - - -PLEASE ENTER: - !#$%&'()*+,- -? "!#$%&'()*+,-" -SHOULD BE: ***!#$%&'()*+,-*** -ACTUAL: ***!#$%&'()*+,-*** -TEST OK - - -PLEASE ENTER: - ./:;<=>?^_ -? "./:;<=>?^_" -SHOULD BE: ***./:;<=>?^_*** -ACTUAL: ***./:;<=>?^_*** -TEST OK - - -PLEASE ENTER: - EMBEDDED SPACE -? "EMBEDDED SPACE" -SHOULD BE: ***EMBEDDED SPACE*** -ACTUAL: ***EMBEDDED SPACE*** -TEST OK - -***** TEST PASSED ***** - - END TEST - -END PROGRAM 109 diff --git a/bwbtest/NBS2/P110.BAS b/bwbtest/NBS2/P110.BAS deleted file mode 100644 index ef7095e..0000000 --- a/bwbtest/NBS2/P110.BAS +++ /dev/null @@ -1,235 +0,0 @@ -5 PRINT "PROGRAM FILE 110: MIXED INPUT OF STRINGS AND NUMBERS." -10 PRINT " ANSI STANDARD 13.2, 13.4" -20 PRINT -25 PRINT "SECTION 110.1: MIXED INPUT OF STRINGS AND NUMBERS." -30 PRINT -45 PRINT "PLEASE ENTER YOUR INPUT-REPLIES EXACTLY AS REQUESTED" -50 PRINT "BY THE PROMPT, INCLUDING ALL SPACING, COMMAS AND OTHER" -55 PRINT "PUNCTUATION." -60 PRINT -65 PRINT " - EXCEPT - WHEREVER THE PROMPT CONTAINS AN EQUALS (=)" -70 PRINT "SUBSTITUTE A BLANK SPACE, AND WHEREVER THE PROMPT" -75 PRINT "CONTAINS A NUMBER-SIGN (#) SUBSTITUTE A QUOTE." -80 PRINT "THUS, THE PROMPT:" -85 PRINT " ==#ER#==" -90 PRINT "SHOULD CAUSE YOU TO STRIKE THE KEYS:" -95 PRINT " 1. SPACE" -100 PRINT " 2. SPACE" -105 PRINT " 3. QUOTE" -110 PRINT " 4. LETTER E" -115 PRINT " 5. LETTER R" -120 PRINT " 6. QUOTE" -125 PRINT " 7. SPACE" -130 PRINT " 8. SPACE" -135 PRINT -150 PRINT "THESE CONVENTIONS ARE NECESSARY BECAUSE THE QUOTE IS" -155 PRINT "UNPRINTABLE IN MINIMAL BASIC, AND SPACES ARE DIFFICULT" -160 PRINT "TO COUNT ON A TERMINAL." -165 PRINT -170 PRINT "PLEASE NOTE THAT THIS ROUTINE IS STRONGLY DEPENDENT" -175 PRINT "ON THE CORRECT OPERATION OF THE STRING COMPARISON" -180 PRINT "FEATURE. IF THAT FEATURE IS INCORRECT, THIS ROUTINE" -185 PRINT "WILL LIKELY GIVE INVALID RESULTS." -195 PRINT -200 PRINT "ALL THE REPLIES PROMPTED FOR ARE VALID, THEREFORE " -205 PRINT "IF THE PROCESSOR REJECTS ANY OF THEM," -210 PRINT "*** TEST FAILED ***" -215 PRINT -225 PRINT "FOR USER CONVENIENCE, THE STRING TO BE ENTERED IS INDENTED" -230 PRINT "TWO SPACES, SO THAT IF THE INPUT-PROMPT OCCUPIES TWO" -235 PRINT "POSITIONS, AS RECOMMENDED, YOUR INPUT-REPLY WILL BE" -240 PRINT "ALIGNED WITH THE PROMPT STRING." -241 PRINT -242 PRINT " BEGIN TEST" -245 LET F=0 -247 LET Y$="SHOULD BE: ***" -248 LET Z$="ACTUAL : ***" -250 READ M,C(1),C(2),C(3),P$ -255 LET Q$="" -257 LET R$="" -260 IF M<100 THEN 275 -265 LET M=M-100 -270 READ Q$,R$ -275 IF M=0 THEN 850 -280 LET A$="" -285 LET B$="" -290 LET C$="" -295 LET I$="" -300 LET J$="" -305 LET K$="" -310 LET A1=0 -315 LET B1=0 -320 LET C1=0 -325 LET I1=0 -330 LET J1=0 -335 LET K1=0 -345 LET Q=0 -350 FOR I2=1 TO M -355 LET Q=Q+Q+C(I2) -360 NEXT I2 -362 LET Q=Q+1 -365 IF M<=1 THEN 380 -370 LET Q=Q+2 -372 IF M<=2 THEN 380 -375 LET Q=Q+4 -380 LET Q1=Q -382 IF C(1)=0 THEN 395 -385 READ I$ -390 GOTO 400 -395 READ I1 -400 IF M<2 THEN 450 -405 IF C(2)=0 THEN 420 -410 READ J$ -415 GOTO 425 -420 READ J1 -425 IF M<3 THEN 450 -430 IF C(3)=0 THEN 445 -435 READ K$ -440 GOTO 450 -445 READ K1 -450 PRINT -455 PRINT -460 PRINT "PLEASE ENTER:" -465 PRINT " ";P$;Q$;R$ -475 ON Q1 GOTO 480,500,520,540,560,580,600,620,640,660,680,700,720,740 -480 INPUT A1 -485 PRINT Y$;I1;"***" -490 PRINT Z$;A1;"***" -495 GOTO 760 -500 INPUT A$ -505 PRINT Y$;I$;"***" -510 PRINT Z$;A$;"***" -515 GOTO 760 -520 INPUT A1,B1 -525 PRINT Y$;I1;J1;"***" -530 PRINT Z$;A1;B1;"***" -535 GOTO 760 -540 INPUT A1,B$ -545 PRINT Y$;I1;J$;"***" -550 PRINT Z$;A1;B$;"***" -555 GOTO 760 -560 INPUT A$,B1 -565 PRINT Y$;I$;J1;"***" -570 PRINT Z$;A$;B1;"***" -575 GOTO 760 -580 INPUT A$,B$ -585 PRINT Y$;I$;J$;"***" -590 PRINT Z$;A$;B$;"***" -595 GOTO 760 -600 INPUT A1,B1,C1 -605 PRINT Y$;I1;J1;K1;"***" -610 PRINT Z$;A1;B1;C1;"***" -615 GOTO 760 -620 INPUT A1,B1,C$ -625 PRINT Y$;I1;J1;K$;"***" -630 PRINT Z$;A1;B1;C$;"***" -635 GOTO 760 -640 INPUT A1,B$,C1 -645 PRINT Y$;I1;J$;K1;"***" -650 PRINT Z$;A1;B$;C1;"***" -655 GOTO 760 -660 INPUT A1,B$,C$ -665 PRINT Y$;I1;J$;K$;"***" -670 PRINT Z$;A1;B$;C$;"***" -675 GOTO 760 -680 INPUT A$,B1,C1 -685 PRINT Y$;I$;J1;K1;"***" -690 PRINT Z$;A$;B1;C1;"***" -695 GOTO 760 -700 INPUT A$,B1,C$ -705 PRINT Y$;I$;J1;K$;"***" -710 PRINT Z$;A$;B1;C$;"***" -715 GOTO 760 -720 INPUT A$,B$,C1 -725 PRINT Y$;I$;J$;K1;"***" -730 PRINT Z$;A$;B$;C1;"***" -735 GOTO 760 -740 INPUT A$,B$,C$ -745 PRINT Y$;I$;J$;K$;"***" -750 PRINT Z$;A$;B$;C$;"***" -755 GOTO 760 -760 REM RESULTS DISPLAYED -765 IF A$<>I$ THEN 820 -770 IF B$<>J$ THEN 820 -771 IF C$<>K$ THEN 820 -772 LET D9=A1 -774 LET E9=I1 -776 GOSUB 3000 -778 IF F9<>0 THEN 820 -782 LET D9=B1 -784 LET E9=J1 -786 GOSUB 3000 -788 IF F9<>0 THEN 820 -792 LET D9=C1 -794 LET E9=K1 -796 GOSUB 3000 -798 IF F9<>0 THEN 820 -799 PRINT "TEST OK" -800 GOTO 250 -820 PRINT "INPUT NOT EQUAL EXPECTED VALUE. RE-TRY (Y OR N)?" -825 INPUT S$ -830 IF S$<>"N" THEN 450 -835 PRINT "TEST FAILED." -840 LET F=F+1 -845 GOTO 250 -850 PRINT -855 IF F=0 THEN 870 -860 PRINT "*** TEST FAILED: ";F;" CASE(S) HANDLED IMPROPERLY ***" -865 GOTO 875 -870 PRINT "*** TEST PASSED ***" -875 PRINT -880 PRINT " END TEST" -885 PRINT -890 PRINT "END PROGRAM 110" -895 STOP -900 REM FORMAT OF DATA PARMS: -910 REM 1 - # OF DATA ITEMS (+100 IF LONG PROMPT) -920 REM 2-4 - DATA FORMAT, X=0 => NUMERIC -930 REM X=1 => ALPHA -940 REM 5 - PROMPT (1ST OF THREE, IF LONG) -950 REM 6-N (OR 8-N) - COMPARAND VALUES -1000 DATA 3,0,0,0,"==1==,==2==,==3==",1,2,3 -1010 DATA 103,0,0,0,"==+987999E32==,","==-1.00000E-37==,","==3.E37==" -1020 DATA 9.87999E37,-1E-37,3E37 -1030 DATA 103,0,0,0,"===222222",",111111==,","==333333" -1040 DATA 222222,111111,333333 -1050 DATA 2,0,0,0,"5,6",5,6 -1060 DATA 2,0,0,0,"-05.34,345.567E-11",-5.34,3.45567E-9 -1070 DATA 2,0,0,0,"2E2,-3.45",200,-3.45 -1080 DATA 102,0,0,0,"-","0000.00012345","6E-11,+1E37",-1.23456E-15,1E37 -1090 DATA 103,0,0,0,"-00","0.E-00,","+.000,0E22",0,0,0 -1100 DATA 103,0,0,0,"-","999.E-00,","+.999,9E22",-999,+.999,9E22 -1110 DATA 3,1,1,1,"ABC,##,#DEF#","ABC","","DEF" -1120 DATA 103,0,1,0,"==4.56789E-11==",",==MIDDLE=ITEM==",",==9==" -1130 DATA 4.56789E-11,"MIDDLE ITEM",9 -1140 DATA 103,0,1,0,"==987654===,","===#==MIDDLE=ITE" -1150 DATA "M==#==,==656565==",987654," MIDDLE ITEM ",656565 -1160 DATA 103,1,0,1,"==AN=UNQUOTED=STR","ING===,==3.14159" -1170 DATA "==,==#EQUALS=PI#==" -1180 DATA "AN UNQUOTED STRING",3.14159,"EQUALS PI" -1190 DATA 103,0,1,1,"07676760000000E00","00022===,========" -1200 DATA "==X=========,X" -1210 DATA 7.67676E34,"X","X" -1220 DATA 103,1,0,1,"=====##=====,===5","===,=====THIRD=","ITEM=====" -1230 DATA "",5,"THIRD ITEM" -1240 DATA 103,1,0,1,"==========#=","#==,===0==","==,====##==="," ",0,"" -1250 DATA 102,0,1,0,"==+333.","333E-33==,","==+333.333E-33==" -1260 DATA 3.33333E-31,"+333.333E-33" -1270 DATA 103,0,1,0,"1,2","========","========3,4" -1280 DATA 1,"2 3",4 -2000 DATA 0,0,0,0,"Q" -3000 REM SUBROUTINE TO CHECK NUMERIC VALUES -3010 REM ONLY A LOOSE CRITERION OF EQUALITY IS USED -3020 LET E7=.999*E9 -3030 LET E8=1.001*E9 -3040 IF E9>=0 THEN 3100 -3050 LET E6=E7 -3060 LET E7=E8 -3070 LET E8=E6 -3100 LET F9=0 -3110 IF E7>D9 THEN 3200 -3120 IF E8 0. IF VALUE <> 1E-99999, THEN," -400 PRINT "*** TEST FAILED ***" -410 GOTO 430 -420 PRINT "*** TEST PASSED ***" -430 PRINT -440 PRINT " END TEST." -450 PRINT -460 PRINT "END PROGRAM 111" -470 END diff --git a/bwbtest/NBS2/P111.INP b/bwbtest/NBS2/P111.INP deleted file mode 100644 index 5f35abe..0000000 --- a/bwbtest/NBS2/P111.INP +++ /dev/null @@ -1 +0,0 @@ -1E-99999 diff --git a/bwbtest/NBS2/P111.in b/bwbtest/NBS2/P111.in deleted file mode 100644 index 5f35abe..0000000 --- a/bwbtest/NBS2/P111.in +++ /dev/null @@ -1 +0,0 @@ -1E-99999 diff --git a/bwbtest/NBS2/P111.run b/bwbtest/NBS2/P111.run deleted file mode 100644 index 1c69348..0000000 --- a/bwbtest/NBS2/P111.run +++ /dev/null @@ -1,35 +0,0 @@ -PROGRAM FILE 111: EXCEPTION - NUMERIC UNDERFLOW ON INPUT - CAUSES REPLACEMENT BY ZERO. - ANSI STANDARD 5.6, 13.4 - -SECTION 111.1: EXCEPTION - NUMERIC UNDERFLOW ON INPUT - CAUSES REPLACEMENT BY ZERO. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MAY BE - DISPLAYED (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE OF THE - NUMERIC CONSTANT IN THE INPUT-REPLY. - -AFTER THE INPUT-PROMPT, ENTER 1E-99999. THIS IS INTENDED -TO CAUSE NUMERIC UNDERFLOW. IF IT DOES, THE PROCESSOR -MUST SET THE VALUE OF THE VARIABLE TO ZERO. - -SINCE '1E-99999' IS A SYNTACTICALLY LEGAL NUMBER, -IF THE PROCESSOR DOES NOT ACCEPT 1E-99999 AS INPUT, -*** TEST FAILS *** - - BEGIN TEST. - -ENTER 1E-99999 -? 1E-99999 - -RESULTING VALUE= 0 - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 111 diff --git a/bwbtest/NBS2/P112.BAS b/bwbtest/NBS2/P112.BAS deleted file mode 100644 index e22e249..0000000 --- a/bwbtest/NBS2/P112.BAS +++ /dev/null @@ -1,225 +0,0 @@ -5 PRINT "PROGRAM FILE 112: EXCEPTION - INPUT-REPLY INCONSISTENT WITH" -7 PRINT " INPUT VARIABLE-LIST." -10 PRINT " ANSI STANDARD 13.4, 13.5, 3.2, 5.2" -20 PRINT -25 PRINT "SECTION 112.1: EXCEPTION - INPUT-REPLY INCONSISTENT WITH" -27 PRINT " INPUT VARIABLE-LIST." -30 PRINT -35 PRINT "PLEASE ENTER YOUR INPUT-REPLIES EXACTLY AS REQUESTED" -40 PRINT "BY THE PROMPT, INCLUDING ALL SPACING, COMMAS AND OTHER" -45 PRINT "PUNCTUATION." -50 PRINT -55 PRINT " - EXCEPT - WHEREVER THE PROMPT CONTAINS AN EQUALS (=)" -60 PRINT "SUBSTITUTE A BLANK SPACE, AND WHEREVER THE PROMPT" -65 PRINT "CONTAINS THE NUMBER-SIGN (#) SUBSTITUTE A QUOTE." -70 PRINT "THUS, THE PROMPT:" -75 PRINT " ==#ER#==" -80 PRINT "SHOULD CAUSE YOU TO STRIKE THE KEYS:" -85 PRINT " 1. SPACE" -90 PRINT " 2. SPACE" -95 PRINT " 3. QUOTE" -100 PRINT " 4. LETTER E" -105 PRINT " 5. LETTER R" -110 PRINT " 6. QUOTE" -115 PRINT " 7. SPACE" -120 PRINT " 8. SPACE" -125 PRINT -130 PRINT "THESE CONVENTIONS ARE NECESSARY BECAUSE THE QUOTE IS" -135 PRINT "UNPRINTABLE IN MINIMAL BASIC, AND SPACES ARE DIFFICULT" -140 PRINT "TO COUNT ON A TERMINAL." -145 PRINT -150 PRINT "AFTER ENTERING THE REQUESTED REPLY, THE PROCESSOR SHOULD" -155 PRINT "REPORT AN EXCEPTION OF THE KIND INDICATED IN THE PROMPT." -160 PRINT "(ALTHOUGH SOME RESPONSES MAY VALIDLY CAUSE ONE OF SEVERAL" -165 PRINT "DIFFERENT KINDS OF EXCEPTION TO BE REPORTED BY THE SYSTEM.)" -170 PRINT -175 PRINT "YOU SHOULD THEN BE GIVEN A CHANCE TO RE-SUPPLY INPUT AND" -185 PRINT "SHOULD REPLY WITH AS MANY ZEROS AS INDICATED IN THE PROMPT." -190 PRINT "(E.G., FOR 3 ITEMS, RESPOND: 0,0,0 TO BYPASS EXCEPTION.)" -192 PRINT -193 PRINT "*** IF NOT ALLOWED TO RE-SUPPLY INPUT, TEST FAILS ***" -194 PRINT -195 PRINT "IF THE PROCESSOR ACCEPTS AN INPUT-REPLY, IT FAILS THE" -200 PRINT "TEST UNLESS 1) IT HAS A DOCUMENTED ENHANCED DEFINITION OF" -205 PRINT "NUMERIC-CONSTANT, UNQUOTED-STRING, QUOTED-STRING, OR" -210 PRINT "INPUT-REPLY SUCH AS TO RENDER MEANINGFUL A PARTICULAR" -215 PRINT "NON-STANDARD RESPONSE, OR 2) ITS DOCUMENTED IMPLEMENTATION-" -217 PRINT "DEFINED LIMITS FOR OVERFLOW (STRING OR NUMERIC) EXCEED" -218 PRINT "THE MINIMUM LIMITS ESTABLISHED BY THE STANDARD." -220 PRINT "NOT ALL THE INPUT-REPLIES ARE NON-STANDARD, BUT THEY" -225 PRINT "SHOULD ALL CAUSE EXCEPTIONS, SAVE AS NOTED ABOVE." -230 PRINT -235 PRINT "FOR USER CONVENIENCE, THE STRING TO BE ENTERED IS INDENTED" -240 PRINT "TWO SPACES, SO THAT IF THE INPUT-PROMPT OCCUPIES TWO" -245 PRINT "POSITIONS, AS RECOMMENDED, YOUR INPUT-REPLY WILL BE" -250 PRINT "ALIGNED WITH THE PROMPT STRING." -255 PRINT -260 PRINT " BEGIN TEST" -265 LET F=0 -270 READ M,C(1),C(2),C(3),O,P$ -275 LET Q$="" -280 LET R$="" -285 IF M<100 THEN 300 -290 LET M=M-100 -295 READ Q$,R$ -300 IF M=0 THEN 2000 -304 LET Q=0 -308 FOR I2=1 TO M -312 LET Q=Q+Q+C(I2) -316 NEXT I2 -320 LET Q=Q+1 -324 IF M<=1 THEN 340 -328 LET Q=Q+2 -332 IF M<=2 THEN 340 -336 LET Q=Q+4 -340 LET Q1=Q -350 LET A1=1 -355 LET B1=1 -360 LET C1=1 -365 LET A$="1" -370 LET B$="1" -375 LET C$="1" -380 PRINT -385 PRINT -390 PRINT "STATEMENT FOR THIS INPUT-REPLY: INPUT "; -395 IF C(1)=0 THEN 410 -400 PRINT "A$"; -405 GOTO 415 -410 PRINT "A1"; -415 IF M<=1 THEN 490 -420 IF C(2)=0 THEN 435 -425 PRINT ",B$"; -430 GOTO 440 -435 PRINT ",B1"; -440 IF M<=2 THEN 490 -445 IF C(3)=0 THEN 460 -450 PRINT ",C$"; -455 GOTO 490 -460 PRINT ",C1"; -490 PRINT -500 PRINT "EXCEPTION: "; -505 ON O GOTO 510,520,530,540,550 -510 PRINT "WRONG TYPE"; -515 GOTO 560 -520 PRINT "TOO MUCH DATA"; -525 GOTO 560 -530 PRINT "INSUFFICIENT DATA"; -535 GOTO 560 -540 PRINT "NUMERIC OVERFLOW"; -545 GOTO 560 -550 PRINT "STRING OVERFLOW"; -555 GOTO 560 -560 PRINT "; SHOULD BE ";M;" ITEM(S)." -565 PRINT "PLEASE ENTER:" -570 PRINT " ";P$;Q$;R$ -580 ON Q1 GOTO 585,595,605,615,625,635,645,655,665,675,685,695,705,715 -585 INPUT A1 -590 GOTO 725 -595 INPUT A$ -600 GOTO 725 -605 INPUT A1,B1 -610 GOTO 725 -615 INPUT A1,B$ -620 GOTO 725 -625 INPUT A$,B1 -630 GOTO 725 -635 INPUT A$,B$ -640 GOTO 725 -645 INPUT A1,B1,C1 -650 GOTO 725 -655 INPUT A1,B1,C$ -660 GOTO 725 -665 INPUT A1,B$,C1 -670 GOTO 725 -675 INPUT A1,B$,C$ -680 GOTO 725 -685 INPUT A$,B1,C1 -690 GOTO 725 -695 INPUT A$,B1,C$ -700 GOTO 725 -705 INPUT A$,B$,C1 -710 GOTO 725 -715 INPUT A$,B$,C$ -720 GOTO 725 -725 REM RESULTS DISPLAYED -728 REM Y2 IS ERROR SWITCH, Y IS ITEM COUNT. -730 LET Y2=0 -735 LET Y=1 -740 LET Y1=A1 -745 LET Z$=A$ -750 GOSUB 1000 -755 IF M<=1 THEN 795 -760 LET Y1=B1 -765 LET Z$=B$ -770 GOSUB 1000 -775 IF M<=2 THEN 795 -780 LET Y1=C1 -785 LET Z$=C$ -790 GOSUB 1000 -795 IF Y2<>0 THEN 810 -800 PRINT "TEST OK." -805 GOTO 270 -810 PRINT "NOT ALL VARIABLES EQUAL TO ZERO." -820 PRINT "POSSIBILITIES:" -825 PRINT "1 - PROCESSOR FAILED TO TREAT REPLY AS EXCEPTION" -835 PRINT "2 - USER REPLY TO BYPASS EXCEPTION NOT ALL ZEROS" -840 PRINT "3 - PROCESSOR DID NOT ALLOW RE-ENTRY OF INPUT-REPLY." -845 PRINT "RE-TRY (Y OR N)?" -850 INPUT W$ -855 IF W$<>"N" THEN 350 -860 PRINT "TEST FAILS, UNLESS DOCUMENTED SYNTACTIC ENHANCEMENT." -865 LET F=F+1 -870 GOTO 270 -1000 REM SUBROUTINE TO CHECK AND DISPLAY ONE ITEM -1002 PRINT "ITEM#";Y;":"; -1005 IF C(Y)=0 THEN 1025 -1010 PRINT Z$ -1015 IF Z$="0" THEN 1040 -1020 GOTO 1035 -1025 PRINT Y1 -1030 IF Y1=0 THEN 1040 -1035 LET Y2=9 -1040 LET Y=Y+1 -1045 RETURN -2000 PRINT -2010 IF F=0 THEN 2040 -2020 PRINT "*** POSSIBLE TEST FAILURE IN ";F;" CASE(S). ***" -2030 GOTO 2050 -2040 PRINT "*** TEST PASSED ***" -2050 PRINT -2060 PRINT " END TEST" -2070 PRINT -2080 PRINT "END PROGRAM 112" -3000 REM 1 - #ITEMS(+100 IF LONG PROMPT), -3010 REM 2-4 - 3-DIGIT A/N CODE (0=>N, 1=>A) -3020 REM 5 - EXCP CODE -3030 REM 6(-8) - PROMPT (3 STRINGS IF LONG) -3040 DATA 3,1,1,1,2,"M,M,M,M" -3050 DATA 3,1,1,1,3,"M,M" -3060 DATA 1,0,0,0,4,"1E99999" -3070 DATA 101,1,1,1,5,"IF=THIS=DOES=NOT=C","AUSE=STRING=OVRFLW" -3080 DATA "=TRY=LONGER=REPLY" -3090 DATA 1,1,1,1,1,"AB?CD" -3100 DATA 1,1,1,1,1,"AB;CD" -3110 DATA 1,1,1,1,1,"K*L" -3120 DATA 3,0,0,0,1,"1,Q,1" -3125 DATA 1,0,0,0,1,"1D1" -3130 DATA 1,1,1,1,1,"AB##CD" -3140 DATA 1,1,1,1,1,"AB#CD" -3150 DATA 1,1,1,1,1,"#AB" -3160 DATA 1,1,1,1,1,"AB#" -3170 DATA 1,1,1,1,1,"#AB##CD#" -3180 DATA 1,1,1,1,1,"#AB#CD#" -3190 DATA 2,1,1,1,1,"AB#CD,EF" -3200 DATA 2,1,1,1,1,"AB,CD#EF" -3210 DATA 2,1,1,1,1,"A#B,C#D" -3220 DATA 3,1,1,1,1,"A,,B" -3230 DATA 2,1,1,1,2,"X,Y," -3240 DATA 3,1,1,1,1,"X,Y," -3250 DATA 3,1,1,1,1,",A,B" -3260 DATA 101,1,1,1,1," NULL REPLY ","(HIT RETURN ONLY)","" -3270 DATA 2,0,0,0,1,"2==3" -3280 DATA 1,0,0,0,1,"2==3" -3290 DATA 3,1,1,1,1,"X,===,Y" -4000 DATA 0,0,0,0,0,"Q" -4010 END diff --git a/bwbtest/NBS2/P112.INP b/bwbtest/NBS2/P112.INP deleted file mode 100644 index 78c041f..0000000 --- a/bwbtest/NBS2/P112.INP +++ /dev/null @@ -1,51 +0,0 @@ -M,M,M,M -0,0,0 -M,M -0,0,0 -1E99999 -0 -0 -AB?CD -0 -AB;CD -0 -K*L -0 -1,Q,1 -0,0,0 -1D1 -0 -AB""CD -0 -AB"CD -0 -"AB -0 -AB" -0 -"AB""CD" -0 -"AB"CD" -0 -AB"CD,EF -0,0 -AB,CD"EF -0,0 -A"B,C"D -0,0 -A,,B -0,0,0 -X,Y, -0,0 -X,Y, -0,0,0 -,A,B -0,0,0 - -0 -2 3 -0,0 -2 3 -0 -X, ,Y -0,0,0 diff --git a/bwbtest/NBS2/P112.in b/bwbtest/NBS2/P112.in deleted file mode 100644 index 9c4339b..0000000 --- a/bwbtest/NBS2/P112.in +++ /dev/null @@ -1,52 +0,0 @@ -M,M,M,M -0,0,0 -M,M -0,0,0 -1E99999 -0 -IF THIS DOES NOT CAUSE STRING OVRFLW TRY LONGER REPLY -0 -AB?CD -0 -AB;CD -0 -K*L -0 -1,Q,1 -0,0,0 -1D1 -0 -AB""CD -0 -AB"CD -0 -"AB -0 -AB" -0 -"AB""CD" -0 -"AB"CD" -0 -AB"CD,EF -0,0 -AB,CD"EF -0,0 -A"B,C"D -0,0 -A,,B -0,0,0 -X,Y, -0,0 -X,Y, -0,0,0 -,A,B -0,0,0 - -0 -2 3 -0,0 -2 3 -0 -X, ,Y -0,0,0 diff --git a/bwbtest/NBS2/P112.run b/bwbtest/NBS2/P112.run deleted file mode 100644 index 96c7785..0000000 --- a/bwbtest/NBS2/P112.run +++ /dev/null @@ -1,366 +0,0 @@ -PROGRAM FILE 112: EXCEPTION - INPUT-REPLY INCONSISTENT WITH - INPUT VARIABLE-LIST. - ANSI STANDARD 13.4, 13.5, 3.2, 5.2 - -SECTION 112.1: EXCEPTION - INPUT-REPLY INCONSISTENT WITH - INPUT VARIABLE-LIST. - -PLEASE ENTER YOUR INPUT-REPLIES EXACTLY AS REQUESTED -BY THE PROMPT, INCLUDING ALL SPACING, COMMAS AND OTHER -PUNCTUATION. - - - EXCEPT - WHEREVER THE PROMPT CONTAINS AN EQUALS (=) -SUBSTITUTE A BLANK SPACE, AND WHEREVER THE PROMPT -CONTAINS THE NUMBER-SIGN (#) SUBSTITUTE A QUOTE. -THUS, THE PROMPT: - ==#ER#== -SHOULD CAUSE YOU TO STRIKE THE KEYS: - 1. SPACE - 2. SPACE - 3. QUOTE - 4. LETTER E - 5. LETTER R - 6. QUOTE - 7. SPACE - 8. SPACE - -THESE CONVENTIONS ARE NECESSARY BECAUSE THE QUOTE IS -UNPRINTABLE IN MINIMAL BASIC, AND SPACES ARE DIFFICULT -TO COUNT ON A TERMINAL. - -AFTER ENTERING THE REQUESTED REPLY, THE PROCESSOR SHOULD -REPORT AN EXCEPTION OF THE KIND INDICATED IN THE PROMPT. -(ALTHOUGH SOME RESPONSES MAY VALIDLY CAUSE ONE OF SEVERAL -DIFFERENT KINDS OF EXCEPTION TO BE REPORTED BY THE SYSTEM.) - -YOU SHOULD THEN BE GIVEN A CHANCE TO RE-SUPPLY INPUT AND -SHOULD REPLY WITH AS MANY ZEROS AS INDICATED IN THE PROMPT. -(E.G., FOR 3 ITEMS, RESPOND: 0,0,0 TO BYPASS EXCEPTION.) - -*** IF NOT ALLOWED TO RE-SUPPLY INPUT, TEST FAILS *** - -IF THE PROCESSOR ACCEPTS AN INPUT-REPLY, IT FAILS THE -TEST UNLESS 1) IT HAS A DOCUMENTED ENHANCED DEFINITION OF -NUMERIC-CONSTANT, UNQUOTED-STRING, QUOTED-STRING, OR -INPUT-REPLY SUCH AS TO RENDER MEANINGFUL A PARTICULAR -NON-STANDARD RESPONSE, OR 2) ITS DOCUMENTED IMPLEMENTATION- -DEFINED LIMITS FOR OVERFLOW (STRING OR NUMERIC) EXCEED -THE MINIMUM LIMITS ESTABLISHED BY THE STANDARD. -NOT ALL THE INPUT-REPLIES ARE NON-STANDARD, BUT THEY -SHOULD ALL CAUSE EXCEPTIONS, SAVE AS NOTED ABOVE. - -FOR USER CONVENIENCE, THE STRING TO BE ENTERED IS INDENTED -TWO SPACES, SO THAT IF THE INPUT-PROMPT OCCUPIES TWO -POSITIONS, AS RECOMMENDED, YOUR INPUT-REPLY WILL BE -ALIGNED WITH THE PROMPT STRING. - - BEGIN TEST - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$,B$,C$ -EXCEPTION: TOO MUCH DATA; SHOULD BE 3 ITEM(S). -PLEASE ENTER: - M,M,M,M -? M,M,M,M -?Redo from start -? 0,0,0 -ITEM# 1 :0 -ITEM# 2 :0 -ITEM# 3 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$,B$,C$ -EXCEPTION: INSUFFICIENT DATA; SHOULD BE 3 ITEM(S). -PLEASE ENTER: - M,M -? M,M -?Redo from start -? 0,0,0 -ITEM# 1 :0 -ITEM# 2 :0 -ITEM# 3 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A1 -EXCEPTION: NUMERIC OVERFLOW; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - 1E99999 -? 1E99999 -?Redo from start -? 0 -ITEM# 1 : 0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: STRING OVERFLOW; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - IF=THIS=DOES=NOT=CAUSE=STRING=OVRFLW=TRY=LONGER=REPLY -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - AB?CD -? AB?CD -?Redo from start -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - AB;CD -? AB;CD -?Redo from start -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - K*L -? K*L -?Redo from start -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A1,B1,C1 -EXCEPTION: WRONG TYPE; SHOULD BE 3 ITEM(S). -PLEASE ENTER: - 1,Q,1 -? 1,Q,1 -?Redo from start -? 0,0,0 -ITEM# 1 : 0 -ITEM# 2 : 0 -ITEM# 3 : 0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A1 -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - 1D1 -? 1D1 -?Redo from start -? 0 -ITEM# 1 : 0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - AB##CD -? AB""CD -?Redo from start -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - AB#CD -? AB"CD -?Redo from start -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - #AB -? "AB -?Redo from start -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - AB# -? AB" -?Redo from start -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - #AB##CD# -? "AB""CD" -?Redo from start -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - #AB#CD# -? "AB"CD" -?Redo from start -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$,B$ -EXCEPTION: WRONG TYPE; SHOULD BE 2 ITEM(S). -PLEASE ENTER: - AB#CD,EF -? AB"CD,EF -?Redo from start -? 0,0 -ITEM# 1 :0 -ITEM# 2 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$,B$ -EXCEPTION: WRONG TYPE; SHOULD BE 2 ITEM(S). -PLEASE ENTER: - AB,CD#EF -? AB,CD"EF -?Redo from start -? 0,0 -ITEM# 1 :0 -ITEM# 2 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$,B$ -EXCEPTION: WRONG TYPE; SHOULD BE 2 ITEM(S). -PLEASE ENTER: - A#B,C#D -? A"B,C"D -?Redo from start -? 0,0 -ITEM# 1 :0 -ITEM# 2 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$,B$,C$ -EXCEPTION: WRONG TYPE; SHOULD BE 3 ITEM(S). -PLEASE ENTER: - A,,B -? A,,B -?Redo from start -? 0,0,0 -ITEM# 1 :0 -ITEM# 2 :0 -ITEM# 3 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$,B$ -EXCEPTION: TOO MUCH DATA; SHOULD BE 2 ITEM(S). -PLEASE ENTER: - X,Y, -? X,Y, -?Redo from start -? 0,0 -ITEM# 1 :0 -ITEM# 2 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$,B$,C$ -EXCEPTION: WRONG TYPE; SHOULD BE 3 ITEM(S). -PLEASE ENTER: - X,Y, -? X,Y, -?Redo from start -? 0,0,0 -ITEM# 1 :0 -ITEM# 2 :0 -ITEM# 3 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$,B$,C$ -EXCEPTION: WRONG TYPE; SHOULD BE 3 ITEM(S). -PLEASE ENTER: - ,A,B -? ,A,B -?Redo from start -? 0,0,0 -ITEM# 1 :0 -ITEM# 2 :0 -ITEM# 3 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$ -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - NULL REPLY (HIT RETURN ONLY) -? -?Redo from start -? 0 -ITEM# 1 :0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A1,B1 -EXCEPTION: WRONG TYPE; SHOULD BE 2 ITEM(S). -PLEASE ENTER: - 2==3 -? 2 3 -?Redo from start -? 0,0 -ITEM# 1 : 0 -ITEM# 2 : 0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A1 -EXCEPTION: WRONG TYPE; SHOULD BE 1 ITEM(S). -PLEASE ENTER: - 2==3 -? 2 3 -?Redo from start -? 0 -ITEM# 1 : 0 -TEST OK. - - -STATEMENT FOR THIS INPUT-REPLY: INPUT A$,B$,C$ -EXCEPTION: WRONG TYPE; SHOULD BE 3 ITEM(S). -PLEASE ENTER: - X,===,Y -? X, ,Y -?Redo from start -? 0,0,0 -ITEM# 1 :0 -ITEM# 2 :0 -ITEM# 3 :0 -TEST OK. - -*** TEST PASSED *** - - END TEST - -END PROGRAM 112 diff --git a/bwbtest/NBS2/P113.BAS b/bwbtest/NBS2/P113.BAS deleted file mode 100644 index 89fef00..0000000 --- a/bwbtest/NBS2/P113.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 113: ERROR - NULL ENTRY IN INPUT-LIST." -20 PRINT " ANSI STANDARD 13.2" -30 PRINT -40 PRINT "SECTION 113.1: ERROR - NULL ENTRY IN INPUT-LIST." -50 PRINT -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -190 PRINT " BEGIN TEST" -200 PRINT -210 PRINT "VARIABLES A AND B INITIALIZED TO ZERO." -220 PRINT -230 LET A=0 -240 LET B=0 -250 PRINT "PLEASE ENTER: 1,2,3" -260 PRINT "STATEMENT FOR THIS REPLY: INPUT A,,B" -270 INPUT A,,B -280 PRINT "A = ";A;" B = ";B -290 PRINT -300 PRINT " END TEST" -310 PRINT -320 PRINT "END PROGRAM 113" -330 END diff --git a/bwbtest/NBS2/P113.INP.OLD b/bwbtest/NBS2/P113.INP.OLD deleted file mode 100644 index 7687b89..0000000 --- a/bwbtest/NBS2/P113.INP.OLD +++ /dev/null @@ -1 +0,0 @@ -0,0,0 diff --git a/bwbtest/NBS2/P113.run b/bwbtest/NBS2/P113.run deleted file mode 100644 index 33ca1c5..0000000 --- a/bwbtest/NBS2/P113.run +++ /dev/null @@ -1,26 +0,0 @@ -PROGRAM FILE 113: ERROR - NULL ENTRY IN INPUT-LIST. - ANSI STANDARD 13.2 - -SECTION 113.1: ERROR - NULL ENTRY IN INPUT-LIST. - - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -VARIABLES A AND B INITIALIZED TO ZERO. - -PLEASE ENTER: 1,2,3 -STATEMENT FOR THIS REPLY: INPUT A,,B - -ERROR in line 270: Variable Not Declared diff --git a/bwbtest/NBS2/P114.BAS b/bwbtest/NBS2/P114.BAS deleted file mode 100644 index 50a3231..0000000 --- a/bwbtest/NBS2/P114.BAS +++ /dev/null @@ -1,38 +0,0 @@ -10 PRINT "PROGRAM FILE 114: EVALUATION OF ABS FUNCTION." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 114.1: EVALUATION OF ABS FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHETHER THE ABS NUMERIC-SUPPLIED-FUNCTION" -70 PRINT "RETURNS THE ABSOLUTE VALUE FOR A VARIETY OF ARGUMENTS." -100 PRINT -110 PRINT " BEGIN TEST" -120 PRINT -130 LET F=0 -140 PRINT " ","CORRECT","ACTUAL","TEST" -150 PRINT "ARGUMENT","VALUE","VALUE","RESULT" -160 PRINT -170 READ A,V -180 IF A=999 THEN 290 -190 LET V1=ABS(A) -200 IF V=V1 THEN 270 -240 LET F=F+1 -250 PRINT A,V,V1,"FAIL" -260 GOTO 170 -270 PRINT A,V,V1," OK " -280 GOTO 170 -290 PRINT -300 IF F=0 THEN 330 -310 PRINT "*** TEST FAILED IN ";F;" CASE(S) ***" -320 GOTO 340 -330 PRINT "*** TEST PASSED ***" -340 PRINT -350 PRINT " END TEST" -360 PRINT -370 PRINT "END PROGRAM 114" -380 DATA -2,2,-1,1,+0,0,-0,0,1,1,2,2,2.1,2.1,2.9,2.9,-2.1,2.1,-2.9,2.9 -390 DATA -1.23E22,1.23E22,3.21E-11,3.21E-11,9.99E37,9.99E37 -400 DATA -9.99E37,9.99E37,1E38,1E38,-1E38,1E38,1E-38,1E-38 -410 DATA -1E-38,1E-38,-1.01E-38,1.01E-38,.001,.001,-.001,.001 -420 DATA 999,999 -430 END diff --git a/bwbtest/NBS2/P114.run b/bwbtest/NBS2/P114.run deleted file mode 100644 index f2abeda..0000000 --- a/bwbtest/NBS2/P114.run +++ /dev/null @@ -1,40 +0,0 @@ -PROGRAM FILE 114: EVALUATION OF ABS FUNCTION. - ANSI STANDARD 8.4 - -SECTION 114.1: EVALUATION OF ABS FUNCTION. - -THIS SECTION TESTS WHETHER THE ABS NUMERIC-SUPPLIED-FUNCTION -RETURNS THE ABSOLUTE VALUE FOR A VARIETY OF ARGUMENTS. - - BEGIN TEST - - CORRECT ACTUAL TEST -ARGUMENT VALUE VALUE RESULT - --2 2 2 OK --1 1 1 OK - 0 0 0 OK - 0 0 0 OK - 1 1 1 OK - 2 2 2 OK - 2.1 2.1 2.1 OK - 2.9 2.9 2.9 OK --2.1 2.1 2.1 OK --2.9 2.9 2.9 OK --1.23E+22 1.23E+22 1.23E+22 OK - 3.21E-11 3.21E-11 3.21E-11 OK - 9.99E+37 9.99E+37 9.99E+37 OK --9.99E+37 9.99E+37 9.99E+37 OK - 1.E+38 1.E+38 1.E+38 OK --1.E+38 1.E+38 1.E+38 OK - 1.E-38 1.E-38 1.E-38 OK --1.E-38 1.E-38 1.E-38 OK --1.01E-38 1.01E-38 1.01E-38 OK - .001 .001 .001 OK --.001 .001 .001 OK - -*** TEST PASSED *** - - END TEST - -END PROGRAM 114 diff --git a/bwbtest/NBS2/P115.BAS b/bwbtest/NBS2/P115.BAS deleted file mode 100644 index 6edaf48..0000000 --- a/bwbtest/NBS2/P115.BAS +++ /dev/null @@ -1,76 +0,0 @@ -10 PRINT "PROGRAM FILE 115: EVALUATION OF INT FUNCTION." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 115.1: EVALUATION OF INT FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHETHER THE INT NUMERIC-SUPPLIED-FUNCTION" -70 PRINT "RETURNS THE GREATEST INTEGER LESS THAN OR EQUAL TO" -80 PRINT "THE VALUE OF THE ARGUMENT PASSED TO THE FUNCTION." -110 PRINT -120 PRINT " BEGIN TEST" -130 PRINT -140 LET F=0 -150 PRINT " ","CORRECT","ACTUAL","TEST" -160 PRINT "ARGUMENT","VALUE","VALUE","RESULT" -170 PRINT -180 READ A,V -190 IF A=999 THEN 300 -200 LET V1=INT(A) -210 IF V=V1 THEN 280 -250 LET F=F+1 -260 PRINT A,V,V1,"FAIL" -270 GOTO 180 -280 PRINT A,V,V1," OK " -290 GOTO 180 -300 REM DISPLAY RESULTS -310 PRINT -320 IF F=0 THEN 350 -330 PRINT "*** TEST FAILED IN ";F;" CASE(S) ***" -340 GOTO 360 -350 PRINT "*** TEST PASSED ***" -360 PRINT -370 PRINT " END TEST" -380 PRINT -390 PRINT -400 PRINT "SECTION 115.2 EVALUATION OF INT FUNCTION FOR VALUES" -410 PRINT " OF LARGE MAGNITUDE." -420 PRINT -430 PRINT "THIS IS AN INFORMATIVE TEST TO EXAMINE THE BEHAVIOR OF" -440 PRINT "THE INT FUNCTION WHEN THE RESULT DEPENDS ON CALCULATION" -450 PRINT "BEYOND SIX DECIMAL DIGITS. THIS SECTION IS NOT CONSIDERED" -460 PRINT "EITHER TO PAS OR FAIL." -470 PRINT -480 PRINT " BEGIN TEST" -490 PRINT -500 PRINT " ","CORRECT","ACTUAL" -510 PRINT "ARGUMENT","VALUE","VALUE" -520 PRINT -530 READ A,A$,V$ -540 IF A=999 THEN 580 -550 LET V=INT(A) -560 PRINT A$,V$,V -570 GOTO 530 -580 PRINT -590 PRINT " END TEST" -600 PRINT -610 PRINT "END PROGRAM 115" -620 DATA 3,3,-3,-3,2.1,2,2.9,2,-2.1,-3,-2.9,-3 -630 DATA 1,1,-1,-1,0,0,.1,0,.9,0,-.1,-1,-.9,-1 -640 DATA 1234.2,1234,1234.9,1234,-12345.6,-12346 -650 DATA 3.99999,3,-44.0001,-45 -660 DATA -123E2,-12300,-456E-2,-5,789999E-4,78 -670 DATA 1E-38,0,123.45678E-3,0,123.456E-33,0 -680 DATA -1E-38,-1,-123.45678E-3,-1,-123.456E-33,-1 -690 DATA 999,999 -700 DATA 987654.1,"987654.1","987654",987654.9,"987654.9","987654" -710 DATA 1234567.9,"1234567.9","1234567",12345678.9,"12345678.9" -720 DATA "12345678",123456789.9,"123456789.9","123456789" -730 DATA 1234567890.9,"1234567890.9","1234567890" -740 DATA -987654.1,"-987654.1","-987655" -750 DATA -987654.9,"-987654.9","-987655" -760 DATA -1234567.1,"-1234567.1","-1234568" -770 DATA -12345678.1,"-12345678.1","-123456789" -780 DATA -123456789.1,"-123456789.1","-123456790" -790 DATA -1234567890.1,"-1234567890.1","-1234567891" -2000 DATA 999,"Q","Q" -2010 END diff --git a/bwbtest/NBS2/P115.run b/bwbtest/NBS2/P115.run deleted file mode 100644 index b350708..0000000 --- a/bwbtest/NBS2/P115.run +++ /dev/null @@ -1,76 +0,0 @@ -PROGRAM FILE 115: EVALUATION OF INT FUNCTION. - ANSI STANDARD 8.4 - -SECTION 115.1: EVALUATION OF INT FUNCTION. - -THIS SECTION TESTS WHETHER THE INT NUMERIC-SUPPLIED-FUNCTION -RETURNS THE GREATEST INTEGER LESS THAN OR EQUAL TO -THE VALUE OF THE ARGUMENT PASSED TO THE FUNCTION. - - BEGIN TEST - - CORRECT ACTUAL TEST -ARGUMENT VALUE VALUE RESULT - - 3 3 3 OK --3 -3 -3 OK - 2.1 2 2 OK - 2.9 2 2 OK --2.1 -3 -3 OK --2.9 -3 -3 OK - 1 1 1 OK --1 -1 -1 OK - 0 0 0 OK - .1 0 0 OK - .9 0 0 OK --.1 -1 -1 OK --.9 -1 -1 OK - 1234.2 1234 1234 OK - 1234.9 1234 1234 OK --12345.6 -12346 -12346 OK - 3.99999 3 3 OK --44.0001 -45 -45 OK --12300 -12300 -12300 OK --4.56 -5 -5 OK - 78.9999 78 78 OK - 1.E-38 0 0 OK - .123457 0 0 OK - 1.23456E-31 0 0 OK --1.E-38 -1 -1 OK --.123457 -1 -1 OK --1.23456E-31 -1 -1 OK - -*** TEST PASSED *** - - END TEST - - -SECTION 115.2 EVALUATION OF INT FUNCTION FOR VALUES - OF LARGE MAGNITUDE. - -THIS IS AN INFORMATIVE TEST TO EXAMINE THE BEHAVIOR OF -THE INT FUNCTION WHEN THE RESULT DEPENDS ON CALCULATION -BEYOND SIX DECIMAL DIGITS. THIS SECTION IS NOT CONSIDERED -EITHER TO PAS OR FAIL. - - BEGIN TEST - - CORRECT ACTUAL -ARGUMENT VALUE VALUE - -987654.1 987654 987654 -987654.9 987654 987654 -1234567.9 1234567 1.23457E+6 -12345678.9 12345678 1.23457E+7 -123456789.9 123456789 1.23457E+8 -1234567890.9 1234567890 1.23457E+9 --987654.1 -987655 -987655 --987654.9 -987655 -987655 --1234567.1 -1234568 -1.23457E+6 --12345678.1 -123456789 -1.23457E+7 --123456789.1 -123456790 -1.23457E+8 --1234567890.1 -1234567891 -1.23457E+9 - - END TEST - -END PROGRAM 115 diff --git a/bwbtest/NBS2/P116.BAS b/bwbtest/NBS2/P116.BAS deleted file mode 100644 index a788ecb..0000000 --- a/bwbtest/NBS2/P116.BAS +++ /dev/null @@ -1,38 +0,0 @@ -10 PRINT "PROGRAM FILE 116: EVALUATION OF SGN FUNCTION." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 116.1: EVALUATION OF SGN FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHETHER THE SGN NUMERIC-SUPPLIED-FUNCTION" -70 PRINT "RETURNS THE CORRECT VALUE FOR A VARIETY OF ARGUMENTS." -100 PRINT -110 PRINT " BEGIN TEST" -120 PRINT -130 LET F=0 -140 PRINT " ","CORRECT","ACTUAL","TEST" -150 PRINT "ARGUMENT","VALUE","VALUE","RESULT" -160 PRINT -170 READ A,V -180 IF A=999 THEN 280 -190 LET V1=SGN(A) -210 LET R$=" OK " -220 IF V=V1 THEN 260 -240 LET R$="FAIL" -250 LET F=F+1 -260 PRINT A,V,V1,R$ -270 GOTO 170 -280 PRINT -290 IF F=0 THEN 320 -300 PRINT "*** TEST FAILED IN ";F;" CASE(S) ***" -310 GOTO 330 -320 PRINT "*** TEST PASSED ***" -330 PRINT -340 PRINT " END TEST" -350 PRINT -360 PRINT "END PROGRAM 116" -370 DATA 0,0,1,1,-1,-1,3,1,-4,-1,86.1234,1,-345.678E22,-1 -380 DATA +22.2222E-33,1,.0000000123,1 -390 DATA 1E38,1,-1E38,-1,1E-38,1,-1E-38,-1,-0,0,+0,0 -400 DATA -00.00E11,0 -410 DATA 999,999 -420 END diff --git a/bwbtest/NBS2/P116.run b/bwbtest/NBS2/P116.run deleted file mode 100644 index 24e954c..0000000 --- a/bwbtest/NBS2/P116.run +++ /dev/null @@ -1,35 +0,0 @@ -PROGRAM FILE 116: EVALUATION OF SGN FUNCTION. - ANSI STANDARD 8.4 - -SECTION 116.1: EVALUATION OF SGN FUNCTION. - -THIS SECTION TESTS WHETHER THE SGN NUMERIC-SUPPLIED-FUNCTION -RETURNS THE CORRECT VALUE FOR A VARIETY OF ARGUMENTS. - - BEGIN TEST - - CORRECT ACTUAL TEST -ARGUMENT VALUE VALUE RESULT - - 0 0 0 OK - 1 1 1 OK --1 -1 -1 OK - 3 1 1 OK --4 -1 -1 OK - 86.1234 1 1 OK --3.45678E+24 -1 -1 OK - 2.22222E-32 1 1 OK - 1.23E-8 1 1 OK - 1.E+38 1 1 OK --1.E+38 -1 -1 OK - 1.E-38 1 1 OK --1.E-38 -1 -1 OK - 0 0 0 OK - 0 0 0 OK - 0 0 0 OK - -*** TEST PASSED *** - - END TEST - -END PROGRAM 116 diff --git a/bwbtest/NBS2/P117.BAS b/bwbtest/NBS2/P117.BAS deleted file mode 100644 index 4206e0a..0000000 --- a/bwbtest/NBS2/P117.BAS +++ /dev/null @@ -1,102 +0,0 @@ -10 PRINT "PROGRAM FILE 117: ACCURACY OF SQR FUNCTION." -20 PRINT " ANSI STANDARD 7.6, 8.4" -30 PRINT -40 PRINT "SECTION 117.1: ACCURACY OF SQR FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE" -70 PRINT "SQR FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN," -80 PRINT "ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY" -90 PRINT "THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT" -100 PRINT "PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN" -110 PRINT "'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE" -120 PRINT "IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE;" -130 PRINT "THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY" -140 PRINT "HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES" -150 PRINT "AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3." -160 PRINT -170 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -180 PRINT "DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -220 PRINT "ARGUMENT","TRUE","COMPUTED","ERROR","OUTCOME" -230 PRINT " ","VALUE","VALUE","MEASURE" -240 PRINT -250 LET F=0 -260 READ A,T,L,H -270 IF A=999 THEN 2000 -280 LET C=SQR(A) -290 IF C=T THEN 333 -300 IF CH THEN 444 -320 LET O$=" OK " -330 GOTO 500 -333 LET O$=" OK - EXACT" -340 GOTO 500 -444 LET O$="FAIL" -445 LET F=F+1 -450 GOTO 500 -500 LET R=H-L -510 IF R=0 THEN 700 -520 LET E=ABS((C-T)/R) -525 LET E=E+E -530 PRINT A,T,C,E,O$ -540 GOTO 260 -700 PRINT A,T,C,"RANGE ZERO",O$ -710 GOTO 260 -2000 PRINT -2010 IF F=0 THEN 2100 -2020 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -2030 GOTO 2110 -2100 PRINT "*** INFORMATIVE TEST PASSED ***" -2110 PRINT -2120 PRINT " END TEST" -2130 PRINT -2140 PRINT "END PROGRAM 117" -2990 DATA 0,0,0,0 -3000 DATA 1.000000000E-38, 0.100000000E-18 -3010 DATA 0.999994499E-19, 0.100001000E-18 -3040 DATA 0.999999000E-37, 0.316227608E-18 -3050 DATA 0.316226949E-18, 0.316228267E-18 -3052 DATA 0.900000000E-37, 0.300000000E-18 -3055 DATA 0.299999333E-18, 0.300000667E-18 -3060 DATA 0.999999000E-36, 0.999999500E-18 -3070 DATA 0.999998499E-18, 0.100000500E-17 -3080 DATA 0.999999000E-30, 0.999999500E-15 -3090 DATA 0.999998499E-15, 1.000000500E-15 -3100 DATA 0.123456000E-19, 0.111110756E-09 -3110 DATA 0.111109805E-09, 0.111111706E-09 -3120 DATA 0.654321000E-04, 0.808901106E-02 -3130 DATA 0.808899988E-02, 0.808902225E-02 -3140 DATA 0.500000000E+00, 0.707106781E+00 -3150 DATA 0.707105574E+00, 0.707107989E+00 -3160 DATA 0.100000000E+01, 0.100000000E+01 -3170 DATA 0.999994499E+00, 0.100001000E+01 -3180 DATA 0.999999000E+00, 0.999999500E+00 -3190 DATA 0.999998499E+00, 0.100000500E+01 -3200 DATA 0.200000000E+01, 0.141421356E+01 -3210 DATA 0.141420502E+01, 0.141422210E+01 -3220 DATA 0.300000000E+01, 0.173205081E+01 -3230 DATA 0.173204292E+01, 0.173205870E+01 -3240 DATA 0.400000000E+01, 0.200000000E+01 -3250 DATA 0.199999249E+01, 0.200000750E+01 -3260 DATA 0.500000000E+01, 0.223606798E+01 -3270 DATA 0.223606074E+01, 0.223607522E+01 -3280 DATA 0.999999000E+01, 0.316227608E+01 -3290 DATA 0.316226949E+01, 0.316228267E+01 -3300 DATA 0.100000000E+02, 0.316227766E+01 -3310 DATA 0.316225684E+01, 0.316229848E+01 -3320 DATA 0.400000000E+05, 0.200000000E+03 -3330 DATA 0.199999249E+03, 0.200000750E+03 -3340 DATA 0.123456000E+09, 0.111110756E+05 -3350 DATA 0.111109805E+05, 0.111111706E+05 -3360 DATA 0.654321000E+21, 0.255796990E+11 -3370 DATA 0.255796294E+11, 0.255797686E+11 -3380 DATA 0.999999000E+32, 0.999999500E+16 -3390 DATA 0.999998499E+16, 1.000000500E+16 -3392 DATA 0.900000000E+37, 0.300000000E+19 -3394 DATA 0.299999333E+19, 0.300000667E+19 -3400 DATA 0.100000000E+39, 1.000000000E+19 -3410 DATA 0.999994499E+19, 0.100001000E+20 -9000 DATA 999,0,0,0 -9400 END diff --git a/bwbtest/NBS2/P117.run b/bwbtest/NBS2/P117.run deleted file mode 100644 index d93804d..0000000 --- a/bwbtest/NBS2/P117.run +++ /dev/null @@ -1,53 +0,0 @@ -PROGRAM FILE 117: ACCURACY OF SQR FUNCTION. - ANSI STANDARD 7.6, 8.4 - -SECTION 117.1: ACCURACY OF SQR FUNCTION. - -THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE -SQR FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN, -ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY -THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT -PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN -'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE -IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE; -THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY -HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES -AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3. - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS. - - BEGIN TEST - -ARGUMENT TRUE COMPUTED ERROR OUTCOME - VALUE VALUE MEASURE - - 0 0 0 RANGE ZERO OK - EXACT - 1.E-38 1.E-19 1.E-19 0 OK - EXACT - 9.99999E-38 3.16228E-19 3.16228E-19 1.47321E-4 OK - 9.E-38 3.E-19 3.E-19 0 OK - EXACT - 9.99999E-37 9.99999E-19 9.99999E-19 3.84534E-8 OK - 9.99999E-31 9.99999E-16 9.99999E-16 1.24972E-7 OK - 1.23456E-20 1.11111E-10 1.11111E-10 4.68189E-4 OK - 6.54321E-5 8.08901E-3 8.08901E-3 3.93464E-4 OK - .5 .707107 .707107 1.54491E-4 OK - 1 1 1 0 OK - EXACT - .999999 1. .999999 3.8459E-8 OK - 2 1.41421 1.41421 2.7788E-4 OK - 3 1.73205 1.73205 3.08127E-4 OK - 4 2 2 0 OK - EXACT - 5 2.23607 2.23607 3.45333E-4 OK - 9.99999 3.16228 3.16228 1.47321E-4 OK - 10 3.16228 3.16228 8.08739E-6 OK - 40000 200 200 0 OK - EXACT - 1.23456E+8 11111.1 11111.1 4.68189E-4 OK - 6.54321E+20 2.55797E+10 2.55797E+10 2.61354E-4 OK - 9.99999E+31 1.E+16 9.99999E+15 1.24938E-7 OK - 9.E+36 3.E+18 3.E+18 0 OK - EXACT - 1.E+38 1.E+19 1.E+19 0 OK - EXACT - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 117 diff --git a/bwbtest/NBS2/P118.BAS b/bwbtest/NBS2/P118.BAS deleted file mode 100644 index 7b4c38f..0000000 --- a/bwbtest/NBS2/P118.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 118: EXCEPTION - SQR OF NEGATIVE ARGUMENT." -20 PRINT " ANSI STANDARD 8.5" -30 PRINT -40 PRINT "SECTION 118.1: EXCEPTION - SQR OF NEGATIVE ARGUMENT." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES A FATAL EXCEPTION WHEN A NEGATIVE ARGUMENT" -90 PRINT "IS PASSED TO THE SQR FUNCTION." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE NEGATIVE" -170 PRINT " ARGUMENT." -180 PRINT -190 PRINT " BEGIN TEST" -200 PRINT -210 PRINT "FATAL EXCEPTION SHOULD OCCUR NOW:" -220 PRINT -230 LET A=(-3) -240 LET B=SQR(A) -255 PRINT "*** TEST FAILED ***" -257 PRINT -260 PRINT "ARGUMENT WAS SET TO -3; IT NOW EQUALS ";A -270 PRINT "RESULT OF SQR IS ";B -280 PRINT -330 PRINT -340 PRINT " END TEST" -350 PRINT -360 PRINT "END PROGRAM 118" -370 END diff --git a/bwbtest/NBS2/P118.run b/bwbtest/NBS2/P118.run deleted file mode 100644 index 65af0ca..0000000 --- a/bwbtest/NBS2/P118.run +++ /dev/null @@ -1,23 +0,0 @@ -PROGRAM FILE 118: EXCEPTION - SQR OF NEGATIVE ARGUMENT. - ANSI STANDARD 8.5 - -SECTION 118.1: EXCEPTION - SQR OF NEGATIVE ARGUMENT. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES A FATAL EXCEPTION WHEN A NEGATIVE ARGUMENT -IS PASSED TO THE SQR FUNCTION. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE NEGATIVE - ARGUMENT. - - BEGIN TEST - -FATAL EXCEPTION SHOULD OCCUR NOW: - - -ERROR in line 240: Illegal function call diff --git a/bwbtest/NBS2/P119.BAS b/bwbtest/NBS2/P119.BAS deleted file mode 100644 index 2a699dd..0000000 --- a/bwbtest/NBS2/P119.BAS +++ /dev/null @@ -1,210 +0,0 @@ -10 PRINT "PROGRAM FILE 119: ACCURACY OF ATN FUNCTION." -20 PRINT " ANSI STANDARD 7.6, 8.4" -30 PRINT -40 PRINT "SECTION 119.1: ACCURACY OF ATN FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE" -70 PRINT "ATN FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN," -80 PRINT "ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY" -90 PRINT "THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT" -100 PRINT "PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN" -110 PRINT "'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE" -120 PRINT "IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE;" -130 PRINT "THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY" -140 PRINT "HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES" -150 PRINT "AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3-" -160 PRINT -170 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -180 PRINT "DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -220 PRINT "ARGUMENT","TRUE","COMPUTED","ERROR","OUTCOME" -230 PRINT " ","VALUE","VALUE","MEASURE" -240 PRINT -250 LET F=0 -260 READ A,T,L,H -270 IF A=999 THEN 2000 -280 LET C=ATN(A) -290 IF C=T THEN 333 -300 IF CH THEN 444 -320 LET O$=" OK " -330 GOTO 500 -333 LET O$=" OK - EXACT" -340 GOTO 500 -444 LET O$="FAIL" -445 LET F=F+1 -450 GOTO 500 -500 LET R=H-L -510 IF R=0 THEN 700 -520 LET E=ABS((C-T)/R) -525 LET E=E+E -530 PRINT A,T,C,E,O$ -540 GOTO 260 -700 PRINT A,T,C,"RANGE ZERO",O$ -710 GOTO 260 -2000 PRINT -2010 IF F=0 THEN 2100 -2020 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -2030 GOTO 2110 -2100 PRINT "*** INFORMATIVE TEST PASSED ***" -2110 PRINT -2120 PRINT " END TEST" -2130 PRINT -2140 PRINT "END PROGRAM 119" -3000 DATA -0.100000000E+39,-0.157079633E+01 -3010 DATA -0.157080133E+01,-0.157079132E+01 -3020 DATA -0.999999000E+38,-0.157079633E+01 -3030 DATA -0.157080133E+01,-0.157079132E+01 -3040 DATA -0.300000000E+31,-0.157079633E+01 -3050 DATA -0.157080133E+01,-0.157079132E+01 -3060 DATA -0.200000000E+21,-0.157079633E+01 -3070 DATA -0.157080133E+01,-0.157079132E+01 -3080 DATA -0.900000000E+11,-0.157079633E+01 -3090 DATA -0.157080133E+01,-0.157079132E+01 -3100 DATA -0.900000000E+06,-0.157079522E+01 -3110 DATA -0.157080022E+01,-0.157079021E+01 -3120 DATA -0.300000000E+06,-0.157079299E+01 -3130 DATA -0.157079800E+01,-0.157078799E+01 -3140 DATA -0.200000000E+06,-0.157079133E+01 -3150 DATA -0.157079633E+01,-0.157078632E+01 -3160 DATA -0.100000000E+06,-0.157078633E+01 -3170 DATA -0.157079133E+01,-0.157078132E+01 -3180 DATA -0.987654000E+05,-0.157078620E+01 -3190 DATA -0.157079121E+01,-0.157078120E+01 -3200 DATA -0.987654000E+04,-0.157069508E+01 -3210 DATA -0.157070008E+01,-0.157069007E+01 -3220 DATA -0.987600000E+03,-0.156978377E+01 -3230 DATA -0.156978878E+01,-0.156977877E+01 -3240 DATA -0.987000000E+02,-0.156066496E+01 -3250 DATA -0.156066998E+01,-0.156065995E+01 -3260 DATA -0.980000000E+01,-0.146910748E+01 -3270 DATA -0.146911258E+01,-0.146910237E+01 -3280 DATA -0.880000000E+01,-0.145764535E+01 -3290 DATA -0.145765048E+01,-0.145764021E+01 -3300 DATA -0.770000000E+01,-0.144164904E+01 -3310 DATA -0.144165421E+01,-0.144164387E+01 -3320 DATA -0.660000000E+01,-0.142042490E+01 -3330 DATA -0.142043013E+01,-0.142041967E+01 -3340 DATA -0.550000000E+01,-0.139094283E+01 -3350 DATA -0.139094815E+01,-0.139093750E+01 -3360 DATA -0.440000000E+01,-0.134731973E+01 -3370 DATA -0.134732522E+01,-0.134731423E+01 -3380 DATA -0.330000000E+01,-0.127656176E+01 -3390 DATA -0.127656761E+01,-0.127655592E+01 -3400 DATA -0.220000000E+01,-0.114416883E+01 -3410 DATA -0.114417555E+01,-0.114416212E+01 -3420 DATA -0.110000000E+01,-0.832981267E+00 -3430 DATA -0.832986292E+00,-0.832976241E+00 -3440 DATA -0.900000000E+00,-0.732815102E+00 -3450 DATA -0.732816155E+00,-0.732814049E+00 -3460 DATA -0.600000000E+00,-0.540419500E+00 -3470 DATA -0.540420736E+00,-0.540418264E+00 -3480 DATA -0.100000000E+00,-0.996686525E-01 -3490 DATA -0.996696926E-01,-0.996676123E-01 -3500 DATA -0.900000000E-01,-0.897581742E-01 -3510 DATA -0.897583234E-01,-0.897580249E-01 -3520 DATA -0.900000000E-02,-0.899975701E-02 -3530 DATA -0.899977202E-02,-0.899974201E-02 -3540 DATA -0.600000000E-02,-0.599992800E-02 -3550 DATA -0.599994301E-02,-0.599991300E-02 -3560 DATA -0.300000000E-02,-0.299999100E-02 -3570 DATA -0.300000600E-02,-0.299997600E-02 -3580 DATA -0.200000000E-02,-0.199999733E-02 -3590 DATA -0.200001234E-02,-0.199998233E-02 -3600 DATA -0.100000000E-02,-0.999999667E-03 -3610 DATA -0.100001467E-02,-0.999989166E-03 -3620 DATA -0.900000000E-03,-0.899999757E-03 -3630 DATA -0.900001257E-03,-0.899998257E-03 -3640 DATA -0.400000000E-03,-0.399999979E-03 -3650 DATA -0.400001479E-03,-0.399998478E-03 -3660 DATA -0.900000000E-04,-0.899999998E-04 -3670 DATA -0.900001498E-04,-0.899998497E-04 -3680 DATA -0.900000000E-09,-0.900000000E-09 -3690 DATA -0.900001500E-09,-0.899998500E-09 -3700 DATA -0.900000000E-19,-0.900000000E-19 -3710 DATA -0.900001500E-19,-0.899998500E-19 -3720 DATA -0.900000000E-29,-0.900000000E-29 -3730 DATA -0.900001500E-29,-0.899998500E-29 -3740 DATA -0.900000000E-37,-0.900000000E-37 -3750 DATA -0.900001500E-37,-0.899998500E-37 -3760 DATA 0,0,0,0 -3780 DATA 0.900000000E-37, 0.900000000E-37 -3790 DATA 0.899998500E-37, 0.900001500E-37 -3820 DATA 0.900000000E-29, 0.900000000E-29 -3830 DATA 0.899998500E-29, 0.900001500E-29 -3840 DATA 0.900000000E-19, 0.900000000E-19 -3850 DATA 0.899998500E-19, 0.900001500E-19 -3860 DATA 0.900000000E-09, 0.900000000E-09 -3870 DATA 0.899998500E-09, 0.900001500E-09 -3880 DATA 0.900000000E-04, 0.899999998E-04 -3890 DATA 0.899998497E-04, 0.900001498E-04 -3900 DATA 0.400000000E-03, 0.399999979E-03 -3910 DATA 0.399998478E-03, 0.400001479E-03 -3920 DATA 0.900000000E-03, 0.899999757E-03 -3930 DATA 0.899998257E-03, 0.900001257E-03 -3940 DATA 0.100000000E-02, 0.999999667E-03 -3950 DATA 0.999989166E-03, 0.100001467E-02 -3960 DATA 0.200000000E-02, 0.199999733E-02 -3970 DATA 0.199998233E-02, 0.200001234E-02 -3980 DATA 0.300000000E-02, 0.299999100E-02 -3990 DATA 0.299997600E-02, 0.300000600E-02 -4000 DATA 0.600000000E-02, 0.599992800E-02 -4010 DATA 0.599991300E-02, 0.599994301E-02 -4020 DATA 0.900000000E-02, 0.899975701E-02 -4030 DATA 0.899974201E-02, 0.899977202E-02 -4040 DATA 0.900000000E-01, 0.897581742E-01 -4050 DATA 0.897580249E-01, 0.897583234E-01 -4060 DATA 0.100000000E+00, 0.996686525E-01 -4070 DATA 0.996676123E-01, 0.996696926E-01 -4080 DATA 0.600000000E+00, 0.540419500E+00 -4090 DATA 0.540418264E+00, 0.540420736E+00 -4100 DATA 0.900000000E+00, 0.732815102E+00 -4110 DATA 0.732814049E+00, 0.732816155E+00 -4120 DATA 0.110000000E+01, 0.832981267E+00 -4130 DATA 0.832976241E+00, 0.832986292E+00 -4140 DATA 0.220000000E+01, 0.114416883E+01 -4150 DATA 0.114416212E+01, 0.114417555E+01 -4160 DATA 0.330000000E+01, 0.127656176E+01 -4170 DATA 0.127655592E+01, 0.127656761E+01 -4180 DATA 0.440000000E+01, 0.134731973E+01 -4190 DATA 0.134731423E+01, 0.134732522E+01 -4200 DATA 0.550000000E+01, 0.139094283E+01 -4210 DATA 0.139093750E+01, 0.139094815E+01 -4220 DATA 0.660000000E+01, 0.142042490E+01 -4230 DATA 0.142041967E+01, 0.142043013E+01 -4240 DATA 0.770000000E+01, 0.144164904E+01 -4250 DATA 0.144164387E+01, 0.144165421E+01 -4260 DATA 0.880000000E+01, 0.145764535E+01 -4270 DATA 0.145764021E+01, 0.145765048E+01 -4280 DATA 0.990000000E+01, 0.147012767E+01 -4290 DATA 0.147012257E+01, 0.147013278E+01 -4300 DATA 0.987000000E+02, 0.156066496E+01 -4310 DATA 0.156065995E+01, 0.156066998E+01 -4320 DATA 0.987600000E+03, 0.156978377E+01 -4330 DATA 0.156977877E+01, 0.156978878E+01 -4340 DATA 0.987654000E+04, 0.157069508E+01 -4350 DATA 0.157069007E+01, 0.157070008E+01 -4360 DATA 0.987654000E+05, 0.157078620E+01 -4370 DATA 0.157078120E+01, 0.157079121E+01 -4380 DATA 0.100000000E+06, 0.157078633E+01 -4390 DATA 0.157078132E+01, 0.157079133E+01 -4400 DATA 0.200000000E+06, 0.157079133E+01 -4410 DATA 0.157078632E+01, 0.157079633E+01 -4420 DATA 0.300000000E+06, 0.157079299E+01 -4430 DATA 0.157078799E+01, 0.157079800E+01 -4440 DATA 0.900000000E+06, 0.157079522E+01 -4450 DATA 0.157079021E+01, 0.157080022E+01 -4460 DATA 0.900000000E+11, 0.157079633E+01 -4470 DATA 0.157079132E+01, 0.157080133E+01 -4480 DATA 0.200000000E+21, 0.157079633E+01 -4490 DATA 0.157079132E+01, 0.157080133E+01 -4500 DATA 0.300000000E+31, 0.157079633E+01 -4510 DATA 0.157079132E+01, 0.157080133E+01 -4520 DATA 0.999999000E+38, 0.157079633E+01 -4530 DATA 0.157079132E+01, 0.157080133E+01 -4540 DATA 0.100000000E+39, 0.157079633E+01 -4550 DATA 0.157079132E+01, 0.157080133E+01 -9000 DATA 999,0,0,0 -9400 END diff --git a/bwbtest/NBS2/P119.run b/bwbtest/NBS2/P119.run deleted file mode 100644 index add8635..0000000 --- a/bwbtest/NBS2/P119.run +++ /dev/null @@ -1,107 +0,0 @@ -PROGRAM FILE 119: ACCURACY OF ATN FUNCTION. - ANSI STANDARD 7.6, 8.4 - -SECTION 119.1: ACCURACY OF ATN FUNCTION. - -THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE -ATN FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN, -ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY -THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT -PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN -'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE -IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE; -THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY -HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES -AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3- - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS. - - BEGIN TEST - -ARGUMENT TRUE COMPUTED ERROR OUTCOME - VALUE VALUE MEASURE - --1.E+38 -1.5708 -1.5708 6.4038E-4 OK --9.99999E+37 -1.5708 -1.5708 6.4038E-4 OK --3.E+30 -1.5708 -1.5708 6.4038E-4 OK --2.E+20 -1.5708 -1.5708 6.4038E-4 OK --9.E+10 -1.5708 -1.5708 6.426E-4 OK --900000 -1.5708 -1.5708 8.62381E-4 OK --300000 -1.57079 -1.57079 6.91621E-4 OK --200000 -1.57079 -1.57079 6.4038E-4 OK --100000 -1.57079 -1.57079 6.4038E-4 OK --98765.4 -1.57079 -1.57079 3.57963E-4 OK --9876.54 -1.5707 -1.5707 6.46886E-4 OK --987.6 -1.56978 -1.56978 2.89786E-4 OK --98.7 -1.56066 -1.56066 2.37882E-4 OK --9.8 -1.46911 -1.46911 9.73199E-4 OK --8.8 -1.45765 -1.45765 9.33902E-4 OK --7.7 -1.44165 -1.44165 6.44705E-4 OK --6.6 -1.42042 -1.42042 2.31785E-4 OK --5.5 -1.39094 -1.39094 5.62926E-4 OK --4.4 -1.34732 -1.34732 7.90853E-4 OK --3.3 -1.27656 -1.27656 2.8806E-4 OK --2.2 -1.14417 -1.14417 5.46243E-4 OK --1.1 -.832981 -.832981 6.47833E-5 OK --.9 -.732815 -.732815 2.02748E-4 OK --.6 -.54042 -.54042 2.18919E-4 OK --.1 -9.96687E-2 -9.96687E-2 8.49681E-6 OK --.09 -8.97582E-2 -8.97582E-2 6.73332E-5 OK --.009 -8.99976E-3 -8.99976E-3 1.20568E-4 OK --.006 -5.99993E-3 -5.99993E-3 1.03643E-4 OK --.003 -2.99999E-3 -2.99999E-3 3.23997E-6 OK --.002 -.002 -.002 2.22575E-4 OK --.001 -.001 -.001 2.6124E-5 OK --.0009 -.0009 -.0009 7.87131E-8 OK --.0004 -.0004 -.0004 2.22147E-4 OK --.00009 -.00009 -.00009 2.86571E-4 OK --9.E-10 -9.E-10 -9.E-10 0 OK - EXACT --9.E-20 -9.E-20 -9.E-20 0 OK - EXACT --9.E-30 -9.E-30 -9.E-30 0 OK - EXACT --9.E-38 -9.E-38 -9.E-38 0 OK - EXACT - 0 0 0 RANGE ZERO OK - EXACT - 9.E-38 9.E-38 9.E-38 0 OK - EXACT - 9.E-30 9.E-30 9.E-30 0 OK - EXACT - 9.E-20 9.E-20 9.E-20 0 OK - EXACT - 9.E-10 9.E-10 9.E-10 0 OK - EXACT - .00009 .00009 .00009 2.86571E-4 OK - .0004 .0004 .0004 2.22147E-4 OK - .0009 .0009 .0009 7.87131E-8 OK - .001 .001 .001 2.6124E-5 OK - .002 .002 .002 2.22575E-4 OK - .003 2.99999E-3 2.99999E-3 3.23997E-6 OK - .006 5.99993E-3 5.99993E-3 1.03643E-4 OK - .009 8.99976E-3 8.99976E-3 1.20568E-4 OK - .09 8.97582E-2 8.97582E-2 6.73332E-5 OK - .1 9.96687E-2 9.96687E-2 8.49681E-6 OK - .6 .54042 .54042 2.18919E-4 OK - .9 .732815 .732815 2.02748E-4 OK - 1.1 .832981 .832981 6.47833E-5 OK - 2.2 1.14417 1.14417 5.46243E-4 OK - 3.3 1.27656 1.27656 2.8806E-4 OK - 4.4 1.34732 1.34732 7.90853E-4 OK - 5.5 1.39094 1.39094 5.62926E-4 OK - 6.6 1.42042 1.42042 2.31785E-4 OK - 7.7 1.44165 1.44165 6.44705E-4 OK - 8.8 1.45765 1.45765 9.33902E-4 OK - 9.9 1.47013 1.47013 9.08338E-4 OK - 98.7 1.56066 1.56066 2.37882E-4 OK - 987.6 1.56978 1.56978 2.89786E-4 OK - 9876.54 1.5707 1.5707 6.46886E-4 OK - 98765.4 1.57079 1.57079 3.57963E-4 OK - 100000 1.57079 1.57079 6.4038E-4 OK - 200000 1.57079 1.57079 6.4038E-4 OK - 300000 1.57079 1.57079 6.91621E-4 OK - 900000 1.5708 1.5708 8.62381E-4 OK - 9.E+10 1.5708 1.5708 6.426E-4 OK - 2.E+20 1.5708 1.5708 6.4038E-4 OK - 3.E+30 1.5708 1.5708 6.4038E-4 OK - 9.99999E+37 1.5708 1.5708 6.4038E-4 OK - 1.E+38 1.5708 1.5708 6.4038E-4 OK - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 119 diff --git a/bwbtest/NBS2/P120.BAS b/bwbtest/NBS2/P120.BAS deleted file mode 100644 index d4d3436..0000000 --- a/bwbtest/NBS2/P120.BAS +++ /dev/null @@ -1,204 +0,0 @@ -10 PRINT "PROGRAM FILE 120: ACCURACY OF COS FUNCTION." -20 PRINT " ANSI STANDARD 7.6, 8.4" -30 PRINT -40 PRINT "SECTION 120.1: ACCURACY OF COS FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE" -70 PRINT "COS FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN," -80 PRINT "ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY" -90 PRINT "THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT" -100 PRINT "PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN" -110 PRINT "'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE" -120 PRINT "IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE;" -130 PRINT "THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY" -140 PRINT "HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES" -150 PRINT "AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3." -160 PRINT -170 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -180 PRINT "DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -220 PRINT "ARGUMENT","TRUE","COMPUTED","ERROR","OUTCOME" -230 PRINT " ","VALUE","VALUE","MEASURE" -240 PRINT -250 LET F=0 -260 READ A,T,L,H -270 IF A=999 THEN 2000 -280 LET C=COS(A) -290 IF C=T THEN 333 -300 IF CH THEN 444 -320 LET O$=" OK " -330 GOTO 500 -333 LET O$=" OK - EXACT" -340 GOTO 500 -444 LET O$="FAIL" -445 LET F=F+1 -450 GOTO 500 -500 LET R=H-L -510 IF R=0 THEN 700 -520 LET E=ABS((C-T)/R) -525 LET E=E+E -530 PRINT A,T,C,E,O$ -540 GOTO 260 -700 PRINT A,T,C,"RANGE ZERO",O$ -710 GOTO 260 -2000 PRINT -2010 IF F=0 THEN 2100 -2020 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -2030 GOTO 2110 -2100 PRINT "*** INFORMATIVE TEST PASSED ***" -2110 PRINT -2120 PRINT " END TEST" -2130 PRINT -2140 PRINT "END PROGRAM 120" -3000 DATA -0.987654000E+05, 0.999948424E+00 -3010 DATA 0.993938411E+00, 1.000000000E+00 -3020 DATA -0.987644000E+05, 0.548820645E+00 -3030 DATA 0.462623568E+00, 0.629534088E+00 -3040 DATA -0.942682000E+05,-0.400578628E-04 -3050 DATA -0.998733243E-01, 0.997936089E-01 -3060 DATA -0.942792000E+04,-0.999999900E+00 -3070 DATA -1.000000000E+00,-0.999944935E+00 -3080 DATA -0.942592000E+04, 0.415740724E+00 -3090 DATA 0.406624756E+00, 0.424815118E+00 -3100 DATA -0.942949000E+04,-0.349749758E-03 -3110 DATA -0.103496150E-01, 0.965010546E-02 -3120 DATA -0.986460000E+03, 0.999999996E+00 -3130 DATA 0.999998902E+00, 1.000000000E+00 -3140 DATA -0.999000000E+03, 0.999649853E+00 -3150 DATA 0.999622392E+00, 0.999676314E+00 -3160 DATA -0.994314000E+03, 0.748611695E-04 -3170 DATA -0.925139199E-03, 0.107486597E-02 -3180 DATA -0.879646000E+02, 1.000000000E+00 -3190 DATA 0.999999494E+00, 1.000000000E+00 -3200 DATA -0.990000000E+02, 0.398208804E-01 -3210 DATA 0.397209095E-01, 0.399208509E-01 -3220 DATA -0.895354000E+02,-0.937269090E-05 -3230 DATA -0.109373191E-03, 0.906273590E-04 -3240 DATA -0.500000000E+02, 0.964966028E+00 -3250 DATA 0.964939286E+00, 0.964992762E+00 -3260 DATA -0.200000000E+02, 0.408082062E+00 -3270 DATA 0.407990265E+00, 0.408173855E+00 -3280 DATA -0.590000000E+01, 0.927478431E+00 -3290 DATA 0.927474191E+00, 0.927482670E+00 -3300 DATA -0.471239000E+01, 0.101961531E-05 -3310 DATA -0.898038969E-05, 0.110196654E-04 -3320 DATA -0.314159000E+01,-1.000000000E+00 -3330 DATA -1.000000000E+00,-0.999999499E+00 -3340 DATA -0.230000000E+01,-0.666276021E+00 -3350 DATA -0.666283979E+00,-0.666268064E+00 -3360 DATA -0.157080000E+01,-0.367320510E-05 -3370 DATA -0.136732552E-04, 0.632679990E-05 -3380 DATA -0.120000000E+01, 0.362357754E+00 -3390 DATA 0.362347934E+00, 0.362367575E+00 -3400 DATA -0.100000000E+01, 0.540302306E+00 -3410 DATA 0.540293391E+00, 0.540311221E+00 -3420 DATA -0.987654000E+00, 0.550649666E+00 -3430 DATA 0.550648331E+00, 0.550651001E+00 -3440 DATA -0.765432000E+00, 0.721083114E+00 -3450 DATA 0.721081921E+00, 0.721084307E+00 -3460 DATA -0.987654000E-01, 0.995126661E+00 -3470 DATA 0.995126151E+00, 0.995127172E+00 -3480 DATA -0.765432000E-01, 0.997071999E+00 -3490 DATA 0.997071491E+00, 0.997072507E+00 -3500 DATA -0.975319000E-02, 0.999952438E+00 -3510 DATA 0.999951937E+00, 0.999952939E+00 -3520 DATA -0.345678000E-02, 0.999994025E+00 -3530 DATA 0.999993525E+00, 0.999994526E+00 -3540 DATA -0.100001000E-02, 0.999999500E+00 -3550 DATA 0.999998999E+00, 1.000000000E+00 -3560 DATA -0.100000000E-02, 0.999999500E+00 -3570 DATA 0.999998999E+00, 1.000000000E+00 -3580 DATA -0.999999000E-03, 0.999999500E+00 -3590 DATA 0.999999000E+00, 1.000000000E+00 -3600 DATA -0.987654000E-04, 0.999999995E+00 -3610 DATA 0.999999495E+00, 1.000000000E+00 -3620 DATA -0.917359000E-05, 1.000000000E+00 -3630 DATA 0.999999499E+00, 1.000000000E+00 -3640 DATA -0.900000000E-09, 0.100000000E+01 -3650 DATA 0.999999500E+00, 0.100000000E+01 -3660 DATA -0.900000000E-19, 0.100000000E+01 -3670 DATA 0.999999500E+00, 0.100000000E+01 -3680 DATA -0.900000000E-29, 0.100000000E+01 -3690 DATA 0.999999500E+00, 0.100000000E+01 -3691 DATA -0.900000000E-37, 0.100000000E+01 -3692 DATA 0.999999500E+00, 0.100000000E+01 -3693 DATA 0,1,1,1 -3695 DATA 1.000000000E-38, 0.100000000E+01 -3697 DATA 0.999995000E+00, 0.100000000E+01 -3700 DATA 0.900000000E-29, 0.100000000E+01 -3710 DATA 0.999999500E+00, 0.100000000E+01 -3720 DATA 0.900000000E-19, 0.100000000E+01 -3730 DATA 0.999999500E+00, 0.100000000E+01 -3740 DATA 0.900000000E-09, 0.100000000E+01 -3750 DATA 0.999999500E+00, 0.100000000E+01 -3760 DATA 0.917359000E-05, 1.000000000E+00 -3770 DATA 0.999999499E+00, 1.000000000E+00 -3780 DATA 0.987654000E-04, 0.999999995E+00 -3790 DATA 0.999999495E+00, 1.000000000E+00 -3800 DATA 0.999999000E-03, 0.999999500E+00 -3810 DATA 0.999999000E+00, 1.000000000E+00 -3820 DATA 0.100000000E-02, 0.999999500E+00 -3830 DATA 0.999998999E+00, 1.000000000E+00 -3840 DATA 0.100001000E-02, 0.999999500E+00 -3850 DATA 0.999998999E+00, 1.000000000E+00 -3860 DATA 0.345678000E-02, 0.999994025E+00 -3870 DATA 0.999993525E+00, 0.999994526E+00 -3880 DATA 0.975319000E-02, 0.999952438E+00 -3890 DATA 0.999951937E+00, 0.999952939E+00 -3900 DATA 0.765432000E-01, 0.997071999E+00 -3910 DATA 0.997071491E+00, 0.997072507E+00 -3920 DATA 0.987654000E-01, 0.995126661E+00 -3930 DATA 0.995126151E+00, 0.995127172E+00 -3940 DATA 0.765432000E+00, 0.721083114E+00 -3950 DATA 0.721081921E+00, 0.721084307E+00 -3960 DATA 0.987654000E+00, 0.550649666E+00 -3970 DATA 0.550648331E+00, 0.550651001E+00 -3980 DATA 0.100000000E+01, 0.540302306E+00 -3990 DATA 0.540293391E+00, 0.540311221E+00 -4000 DATA 0.120000000E+01, 0.362357754E+00 -4010 DATA 0.362347934E+00, 0.362367575E+00 -4020 DATA 0.157080000E+01,-0.367320510E-05 -4030 DATA -0.136732552E-04, 0.632679990E-05 -4060 DATA 0.230000000E+01,-0.666276021E+00 -4070 DATA -0.666283979E+00,-0.666268064E+00 -4080 DATA 0.314159000E+01,-1.000000000E+00 -4090 DATA -1.000000000E+00,-0.999999499E+00 -4100 DATA 0.390000000E+01,-0.725932304E+00 -4110 DATA -0.725939682E+00,-0.725924926E+00 -4120 DATA 0.471239000E+01, 0.101961531E-05 -4130 DATA -0.898038969E-05, 0.110196654E-04 -4140 DATA 0.590000000E+01, 0.927478431E+00 -4150 DATA 0.927474191E+00, 0.927482670E+00 -4160 DATA 0.200000000E+02, 0.408082062E+00 -4170 DATA 0.407990265E+00, 0.408173855E+00 -4180 DATA 0.500000000E+02, 0.964966028E+00 -4190 DATA 0.964939286E+00, 0.964992762E+00 -4200 DATA 0.895354000E+02,-0.937269088E-05 -4210 DATA -0.109373191E-03, 0.906273590E-04 -4220 DATA 0.990000000E+02, 0.398208804E-01 -4230 DATA 0.397209095E-01, 0.399208509E-01 -4240 DATA 0.879646000E+02, 1.000000000E+00 -4250 DATA 0.999999494E+00, 1.000000000E+00 -4260 DATA 0.994314000E+03, 0.748611695E-04 -4270 DATA -0.925139199E-03, 0.107486597E-02 -4280 DATA 0.999100000E+03, 0.997297435E+00 -4290 DATA 0.997222966E+00, 0.997370907E+00 -4300 DATA 0.986460000E+03, 0.999999996E+00 -4310 DATA 0.999998902E+00, 1.000000000E+00 -4320 DATA 0.942949000E+04,-0.349749758E-03 -4330 DATA -0.103496150E-01, 0.965010545E-02 -4340 DATA 0.942592000E+04, 0.415740724E+00 -4350 DATA 0.406624756E+00, 0.424815118E+00 -4360 DATA 0.942792000E+04,-0.999999900E+00 -4370 DATA -1.000000000E+00,-0.999944935E+00 -4380 DATA 0.942682000E+05,-0.400578571E-04 -4390 DATA -0.998733243E-01, 0.997936089E-01 -4400 DATA 0.987644000E+05, 0.548820645E+00 -4410 DATA 0.462623568E+00, 0.629534088E+00 -4420 DATA 0.987654000E+05, 0.999948424E+00 -4430 DATA 0.993938411E+00, 1.000000000E+00 -9000 DATA 999,0,0,0 -9400 END diff --git a/bwbtest/NBS2/P120.run b/bwbtest/NBS2/P120.run deleted file mode 100644 index 01d6336..0000000 --- a/bwbtest/NBS2/P120.run +++ /dev/null @@ -1,104 +0,0 @@ -PROGRAM FILE 120: ACCURACY OF COS FUNCTION. - ANSI STANDARD 7.6, 8.4 - -SECTION 120.1: ACCURACY OF COS FUNCTION. - -THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE -COS FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN, -ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY -THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT -PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN -'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE -IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE; -THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY -HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES -AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3. - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS. - - BEGIN TEST - -ARGUMENT TRUE COMPUTED ERROR OUTCOME - VALUE VALUE MEASURE - --98765.4 .999948 .999948 7.74583E-8 OK --98764.4 .548821 .548821 2.11951E-9 OK --94268.2 -4.00579E-5 -4.00579E-5 3.47476E-11 OK --9427.92 -1. -1. 1.03325E-5 OK --9425.92 .415741 .415741 3.08328E-8 OK --9429.49 -3.4975E-4 -3.4975E-4 5.07E-11 OK --986.46 1. 1. 6.29608E-4 OK --999 .99965 .99965 7.11159E-7 OK --994.314 7.48612E-5 7.48612E-5 2.55209E-11 OK --87.9646 1 1. 6.41981E-5 OK --99 3.98209E-2 3.98209E-2 6.86311E-8 OK --89.5354 -9.37269E-6 -9.37269E-6 1.17762E-10 OK --50 .964966 .964966 1.8405E-5 OK --20 .408082 .408082 2.03288E-6 OK --5.9 .927478 .927478 6.0376E-5 OK --4.71239 1.01962E-6 1.01962E-6 2.20857E-11 OK --3.14159 -1 -1. 1.40548E-5 OK --2.3 -.666276 -.666276 3.51648E-5 OK --1.5708 -3.67321E-6 -3.67321E-6 3.34656E-10 OK --1.2 .362358 .362358 4.85386E-5 OK --1 .540302 .540302 1.47908E-5 OK --.987654 .55065 .55065 1.40519E-4 OK --.765432 .721083 .721083 1.24814E-4 OK --9.87654E-2 .995127 .995127 5.325E-4 OK --7.65432E-2 .997072 .997072 4.88824E-4 OK --9.75319E-3 .999952 .999952 3.88033E-5 OK --3.45678E-3 .999994 .999994 6.83247E-4 OK --1.00001E-3 1. .999999 1.98968E-5 OK --.001 1. 1. 8.31835E-8 OK --9.99999E-4 1. 1. 2.08322E-6 OK --9.87654E-5 1. 1. 4.85932E-4 OK --9.17359E-6 1 1. 1.67973E-4 OK --9.E-10 1 1 0 OK - EXACT --9.E-20 1 1 0 OK - EXACT --9.E-30 1 1 0 OK - EXACT --9.E-38 1 1 0 OK - EXACT - 0 1 1 RANGE ZERO OK - EXACT - 1.E-38 1 1 0 OK - EXACT - 9.E-30 1 1 0 OK - EXACT - 9.E-20 1 1 0 OK - EXACT - 9.E-10 1 1 0 OK - EXACT - 9.17359E-6 1 1. 1.67973E-4 OK - 9.87654E-5 1. 1. 4.85932E-4 OK - 9.99999E-4 1. 1. 2.08322E-6 OK - .001 1. 1. 8.31835E-8 OK - 1.00001E-3 1. .999999 1.98968E-5 OK - 3.45678E-3 .999994 .999994 6.83247E-4 OK - 9.75319E-3 .999952 .999952 3.88033E-5 OK - 7.65432E-2 .997072 .997072 4.88824E-4 OK - 9.87654E-2 .995127 .995127 5.325E-4 OK - .765432 .721083 .721083 1.24814E-4 OK - .987654 .55065 .55065 1.40519E-4 OK - 1 .540302 .540302 1.47908E-5 OK - 1.2 .362358 .362358 4.85386E-5 OK - 1.5708 -3.67321E-6 -3.67321E-6 3.34656E-10 OK - 2.3 -.666276 -.666276 3.51648E-5 OK - 3.14159 -1 -1. 1.40548E-5 OK - 3.9 -.725932 -.725932 2.71266E-5 OK - 4.71239 1.01962E-6 1.01962E-6 2.20857E-11 OK - 5.9 .927478 .927478 6.0376E-5 OK - 20 .408082 .408082 2.03288E-6 OK - 50 .964966 .964966 1.8405E-5 OK - 89.5354 -9.37269E-6 -9.37269E-6 8.22373E-11 OK - 99 3.98209E-2 3.98209E-2 6.86311E-8 OK - 87.9646 1 1. 6.41981E-5 OK - 994.314 7.48612E-5 7.48612E-5 2.55209E-11 OK - 999.1 .997297 .997297 1.5104E-6 OK - 986.46 1. 1. 6.29608E-4 OK - 9429.49 -3.4975E-4 -3.4975E-4 5.07E-11 OK - 9425.92 .415741 .415741 3.08328E-8 OK - 9427.92 -1. -1. 1.03325E-5 OK - 94268.2 -4.00579E-5 -4.00579E-5 9.18427E-11 OK - 98764.4 .548821 .548821 2.11951E-9 OK - 98765.4 .999948 .999948 7.74583E-8 OK - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 120 diff --git a/bwbtest/NBS2/P121.BAS b/bwbtest/NBS2/P121.BAS deleted file mode 100644 index 437917e..0000000 --- a/bwbtest/NBS2/P121.BAS +++ /dev/null @@ -1,150 +0,0 @@ -10 PRINT "PROGRAM FILE 121: ACCURACY OF EXP FUNCTION." -20 PRINT " ANSI STANDARD 7.6, 8.4" -30 PRINT -40 PRINT "SECTION 121.1: ACCURACY OF EXP FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE" -70 PRINT "EXP FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN," -80 PRINT "ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY" -90 PRINT "THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT" -100 PRINT "PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN" -110 PRINT "'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE" -120 PRINT "IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE;" -130 PRINT "THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY" -140 PRINT "HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES" -150 PRINT "AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3." -160 PRINT -170 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -180 PRINT "DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -220 PRINT "ARGUMENT","TRUE","COMPUTED","ERROR","OUTCOME" -230 PRINT " ","VALUE","VALUE","MEASURE" -240 PRINT -250 LET F=0 -260 READ A,T,L,H -270 IF A=999 THEN 2000 -280 LET C=EXP(A) -290 IF C=T THEN 333 -300 IF CH THEN 444 -320 LET O$=" OK " -330 GOTO 500 -333 LET O$=" OK - EXACT" -340 GOTO 500 -444 LET O$="FAIL" -445 LET F=F+1 -450 GOTO 500 -500 LET R=H-L -510 IF R=0 THEN 700 -520 LET E=ABS((C-T)/R) -525 LET E=E+E -530 PRINT A,T,C,E,O$ -540 GOTO 260 -700 PRINT A,T,C,"RANGE ZERO",O$ -710 GOTO 260 -2000 PRINT -2010 IF F=0 THEN 2100 -2020 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -2030 GOTO 2110 -2100 PRINT "*** INFORMATIVE TEST PASSED ***" -2110 PRINT -2120 PRINT " END TEST" -2130 PRINT -2140 PRINT "END PROGRAM 121" -3000 DATA -0.874981000E+02, 0.100013354E-37 -3010 DATA 0.100002853E-37, 0.100023857E-37 -3020 DATA -0.859876000E+02, 0.452959954E-37 -3030 DATA 0.452914160E-37, 0.453005753E-37 -3040 DATA -0.750000000E+02, 0.267863696E-32 -3050 DATA 0.267836411E-32, 0.267890984E-32 -3060 DATA -0.444444000E+02, 0.498933114E-19 -3070 DATA 0.498882722E-19, 0.498983510E-19 -3080 DATA -0.234567000E+02, 0.649957001E-10 -3090 DATA 0.649891508E-10, 0.650022501E-10 -3100 DATA -0.777777000E+01, 0.418945382E-03 -3110 DATA 0.418940692E-03, 0.418950072E-03 -3120 DATA -0.222222000E+01, 0.108368264E+00 -3130 DATA 0.108366680E+00, 0.108369848E+00 -3140 DATA -0.100000000E+01, 0.367879441E+00 -3150 DATA 0.367875262E+00, 0.367883620E+00 -3160 DATA -0.999999000E+00, 0.367879809E+00 -3170 DATA 0.367878941E+00, 0.367880677E+00 -3180 DATA -0.456789000E+00, 0.633313955E+00 -3190 DATA 0.633312821E+00, 0.633315089E+00 -3200 DATA -0.987654000E-01, 0.905955220E+00 -3210 DATA 0.905954629E+00, 0.905955811E+00 -3220 DATA -0.987654000E-02, 0.990172073E+00 -3230 DATA 0.990171562E+00, 0.990172583E+00 -3240 DATA -0.987654000E-03, 0.999012834E+00 -3250 DATA 0.999012332E+00, 0.999013335E+00 -3260 DATA -0.987654000E-04, 0.999901239E+00 -3270 DATA 0.999900739E+00, 0.999901740E+00 -3280 DATA -0.987654000E-05, 0.999990124E+00 -3290 DATA 0.999989623E+00, 0.999990624E+00 -3300 DATA -0.987654000E-06, 0.999999012E+00 -3310 DATA 0.999998512E+00, 0.999999513E+00 -3320 DATA -0.987654000E-07, 0.999999901E+00 -3330 DATA 0.999999401E+00, 1.000000402E+00 -3340 DATA -0.987654000E-08, 0.999999990E+00 -3350 DATA 0.999999490E+00, 1.000000491E+00 -3360 DATA -0.987654000E-09, 0.999999999E+00 -3370 DATA 0.999999499E+00, 1.000000500E+00 -3380 DATA -0.987654000E-14, 1.000000000E+00 -3390 DATA 0.999999499E+00, 1.000000500E+00 -3400 DATA -0.987654000E-19, 1.000000000E+00 -3410 DATA 0.999999499E+00, 1.000000500E+00 -3420 DATA -0.987654000E-29, 1.000000000E+00 -3430 DATA 0.999999499E+00, 1.000000500E+00 -3442 DATA -0.987654000E-37, 1.000000000E+00 -3444 DATA 0.999999499E+00, 1.000000500E+00 -3445 DATA 0,1,1,1 -3446 DATA 0.987654000E-37, 0.100000000E+01 -3448 DATA .0999995000E+01, 0.100000500E+01 -3449 DATA 0.987654000E-29, 0.100000000E+01 -3450 DATA .0999995000E+01, 0.100000500E+01 -3460 DATA 0.987654000E-19, 0.100000000E+01 -3470 DATA .0999995000E+01, 0.100000500E+01 -3480 DATA 0.987654000E-14, 0.100000000E+01 -3490 DATA .0999995000E+01, 0.100000501E+01 -3500 DATA 0.987654000E-09, 0.100000000E+01 -3510 DATA .0999995000E+01, 0.100000501E+01 -3520 DATA 0.987654000E-08, 0.100000001E+01 -3530 DATA .0999995009E+01, 0.100000501E+01 -3540 DATA 0.987654000E-07, 0.100000010E+01 -3550 DATA .0999995098E+01, 0.100000510E+01 -3560 DATA 0.987654000E-06, 0.100000099E+01 -3570 DATA .0999995987E+01, 0.100000599E+01 -3580 DATA 0.987654000E-05, 0.100000988E+01 -3590 DATA 0.100000487E+01, 0.100001488E+01 -3600 DATA 0.987654000E-04, 0.100009877E+01 -3610 DATA 0.100009377E+01, 0.100010378E+01 -3620 DATA 0.987654000E-03, 0.100098814E+01 -3630 DATA 0.100098314E+01, 0.100099315E+01 -3640 DATA 0.987654000E-02, 0.100992547E+01 -3650 DATA 0.100992046E+01, 0.100993049E+01 -3660 DATA 0.987654000E-01, 0.110380732E+01 -3670 DATA 0.110380220E+01, 0.110381243E+01 -3680 DATA 0.456789000E+00, 0.157899568E+01 -3690 DATA 0.157898910E+01, 0.157900227E+01 -3700 DATA 0.999999000E+00, 0.271827911E+01 -3710 DATA 0.271827139E+01, 0.271828683E+01 -3720 DATA 0.100000000E+01, 0.271828183E+01 -3730 DATA 0.271824964E+01, 0.271831402E+01 -3740 DATA 0.222222000E+01, 0.922779385E+01 -3750 DATA 0.922769656E+01, 0.922789113E+01 -3760 DATA 0.777777000E+01, 0.238694599E+04 -3770 DATA 0.238691712E+04, 0.238697487E+04 -3780 DATA 0.234567000E+02, 0.153856332E+11 -3790 DATA 0.153840446E+11, 0.153872219E+11 -3800 DATA 0.444444000E+02, 0.200427667E+20 -3810 DATA 0.200407125E+20, 0.200448211E+20 -3820 DATA 0.750000000E+02, 0.373324200E+33 -3830 DATA 0.373286369E+33, 0.373362034E+33 -3840 DATA 0.859876000E+02, 0.220770068E+38 -3850 DATA 0.220747492E+38, 0.220792647E+38 -3860 DATA 0.874981000E+02, 0.999866475E+38 -3870 DATA 0.999765993E+38, 0.999966967E+38 -9000 DATA 999,0,0,0 -9400 END diff --git a/bwbtest/NBS2/P121.run b/bwbtest/NBS2/P121.run deleted file mode 100644 index 0fc0a31..0000000 --- a/bwbtest/NBS2/P121.run +++ /dev/null @@ -1,77 +0,0 @@ -PROGRAM FILE 121: ACCURACY OF EXP FUNCTION. - ANSI STANDARD 7.6, 8.4 - -SECTION 121.1: ACCURACY OF EXP FUNCTION. - -THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE -EXP FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN, -ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY -THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT -PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN -'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE -IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE; -THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY -HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES -AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3. - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS. - - BEGIN TEST - -ARGUMENT TRUE COMPUTED ERROR OUTCOME - VALUE VALUE MEASURE - --87.4981 1.00013E-38 1.00013E-38 2.5612E-5 OK --85.9876 4.5296E-38 4.5296E-38 4.70168E-7 OK --75 2.67864E-33 2.67864E-33 6.62627E-6 OK --44.4444 4.98933E-20 4.98933E-20 8.10052E-6 OK --23.4567 6.49957E-11 6.49957E-11 5.24719E-6 OK --7.77777 4.18945E-4 4.18945E-4 2.1366E-5 OK --2.22222 .108368 .108368 2.5248E-5 OK --1 .367879 .367879 4.10247E-5 OK --.999999 .36788 .36788 5.88334E-5 OK --.456789 .633314 .633314 1.85552E-4 OK --9.87654E-2 .905955 .905955 3.20733E-4 OK --9.87654E-3 .990172 .990172 2.99105E-4 OK --9.87654E-4 .999013 .999013 8.58062E-4 OK --9.87654E-5 .999901 .999901 9.5333E-4 OK --9.87654E-6 .99999 .99999 9.81473E-4 OK --9.87654E-7 .999999 .999999 6.92283E-4 OK --9.87654E-8 1. 1. 4.68741E-4 OK --9.87654E-9 1. 1. 2.46674E-4 OK --9.87654E-10 1. 1. 2.46674E-5 OK --9.87654E-15 1 1. 1.97422E-8 OK --9.87654E-20 1 1 0 OK - EXACT --9.87654E-30 1 1 0 OK - EXACT --9.87654E-38 1 1 0 OK - EXACT - 0 1 1 RANGE ZERO OK - EXACT - 9.87654E-38 1 1 0 OK - EXACT - 9.87654E-30 1 1 0 OK - EXACT - 9.87654E-20 1 1 0 OK - EXACT - 9.87654E-15 1 1. 1.95204E-9 OK - 9.87654E-10 1 1. 1.97333E-4 OK - 9.87654E-9 1. 1. 2.46895E-5 OK - 9.87654E-8 1. 1. 2.4687E-4 OK - 9.87654E-7 1. 1. 4.68962E-4 OK - 9.87654E-6 1.00001 1.00001 6.81564E-4 OK - 9.87654E-5 1.0001 1.0001 5.54371E-5 OK - 9.87654E-4 1.00099 1.00099 3.77786E-4 OK - 9.87654E-3 1.00993 1.00993 7.95215E-4 OK - 9.87654E-2 1.10381 1.10381 7.84953E-4 OK - .456789 1.579 1.579 1.53233E-4 OK - .999999 2.71828 2.71828 2.31316E-5 OK - 1 2.71828 2.71828 4.78706E-5 OK - 2.22222 9.22779 9.22779 4.206E-5 OK - 7.77777 2386.95 2386.95 5.3341E-5 OK - 23.4567 1.53856E+10 1.53856E+10 1.78641E-5 OK - 44.4444 2.00428E+19 2.00428E+19 5.24441E-6 OK - 75 3.73324E+32 3.73324E+32 8.46098E-6 OK - 85.9876 2.2077E+37 2.2077E+37 1.55374E-5 OK - 87.4981 9.99866E+37 9.99866E+37 1.4081E-6 OK - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 121 diff --git a/bwbtest/NBS2/P122.BAS b/bwbtest/NBS2/P122.BAS deleted file mode 100644 index 7d5293b..0000000 --- a/bwbtest/NBS2/P122.BAS +++ /dev/null @@ -1,44 +0,0 @@ -10 PRINT "PROGRAM FILE 122: EXCEPTION - OVERFLOW ON VALUE OF" -15 PRINT " EXP FUNCTION." -20 PRINT " ANSI STANDARD 8.5" -30 PRINT -40 PRINT "SECTION 122.1: EXCEPTION - OVERFLOW ON VALUE OF" -50 PRINT " EXP FUNCTION." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES AN EXCEPTION WHEN THE VALUE RETURNED" -90 PRINT "BY THE EXP FUNCTION EXCEEDS MACHINE INFINITY." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST SUPPLY MACHINE INFINITY AND" -170 PRINT " CONTINUE EXECUTION." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -205 PRINT -210 LET F=1.1 -220 LET A=87 -230 LET B=1 -240 PRINT "ABOUT TO ATTEMPT EXP(";A;")" -250 LET C=EXP(A) -260 PRINT "VALUE RETURNED BY EXP = ";C -270 PRINT -280 PRINT "---------------------------------------" -290 PRINT -300 IF B=C THEN 350 -310 LET B=C -320 LET F=F*1.1 -330 LET A=A*F -340 GOTO 240 -350 PRINT "LAST TWO INVOCATIONS OF EXP SHOULD HAVE BEEN REPORTED" -360 PRINT "AS OVERFLOW, AND MACHINE INFINITY SUPPLIED; IF SO," -370 PRINT "*** TEST PASSED *** OTHERWISE *** TEST FAILED ***" -380 PRINT -390 PRINT " END TEST." -400 PRINT -410 PRINT "END PROGRAM 122" -420 END diff --git a/bwbtest/NBS2/P122.run b/bwbtest/NBS2/P122.run deleted file mode 100644 index e104da0..0000000 --- a/bwbtest/NBS2/P122.run +++ /dev/null @@ -1,71 +0,0 @@ -PROGRAM FILE 122: EXCEPTION - OVERFLOW ON VALUE OF - EXP FUNCTION. - ANSI STANDARD 8.5 - -SECTION 122.1: EXCEPTION - OVERFLOW ON VALUE OF - EXP FUNCTION. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES AN EXCEPTION WHEN THE VALUE RETURNED -BY THE EXP FUNCTION EXCEEDS MACHINE INFINITY. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST SUPPLY MACHINE INFINITY AND - CONTINUE EXECUTION. - - BEGIN TEST. - - -ABOUT TO ATTEMPT EXP( 87 ) -VALUE RETURNED BY EXP = 6.07603E+37 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP( 105.27 ) -VALUE RETURNED BY EXP = 5.22613E+45 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP( 140.114 ) -VALUE RETURNED BY EXP = 7.09411E+60 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP( 205.141 ) -VALUE RETURNED BY EXP = 1.23538E+89 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP( 330.382 ) -VALUE RETURNED BY EXP = 3.04252E+143 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP( 585.292 ) -VALUE RETURNED BY EXP = 1.54633E+254 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP( 1140.57 ) -Overflow -VALUE RETURNED BY EXP = 1.79769E+308 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP( 2444.91 ) -Overflow -VALUE RETURNED BY EXP = 1.79769E+308 - ---------------------------------------- - -LAST TWO INVOCATIONS OF EXP SHOULD HAVE BEEN REPORTED -AS OVERFLOW, AND MACHINE INFINITY SUPPLIED; IF SO, -*** TEST PASSED *** OTHERWISE *** TEST FAILED *** - - END TEST. - -END PROGRAM 122 diff --git a/bwbtest/NBS2/P123.BAS b/bwbtest/NBS2/P123.BAS deleted file mode 100644 index 5f3a195..0000000 --- a/bwbtest/NBS2/P123.BAS +++ /dev/null @@ -1,45 +0,0 @@ -10 PRINT "PROGRAM FILE 123: EXCEPTION - UNDERFLOW ON VALUE OF" -20 PRINT " EXP FUNCTION." -30 PRINT " ANSI STANDARD 8.4, 8.6" -40 PRINT -50 PRINT "SECTION 123.1: EXCEPTION - UNDERFLOW ON VALUE OF" -60 PRINT " EXP FUNCTION." -70 PRINT -80 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -90 PRINT "RECOGNIZES AN EXCEPTION WHEN THE VALUE RETURNED" -100 PRINT "BY THE EXP FUNCTION IS LESS THAN MACHINE INFINITESIMAL" -110 PRINT "AND TO ENSURE THAT ZERO IS SUPPLIED ON UNDERFLOW." -120 PRINT -130 PRINT "TO PASS THIS TEST:" -140 PRINT -150 PRINT " 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE" -160 PRINT " DISPLAYED (NOT MANDATORY), AND" -170 PRINT -180 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE" -190 PRINT " OF THE FUNCTION AND EXECUTION CONTINUES." -220 PRINT -230 PRINT -240 PRINT " BEGIN TEST." -250 PRINT -260 PRINT -270 LET F=1.1 -280 LET A=-87 -290 PRINT "ABOUT TO ATTEMPT EXP(";A;")" -300 LET C=EXP(A) -310 PRINT "VALUE RETURNED BY EXP = ";C -320 PRINT -330 PRINT "---------------------------------------" -340 PRINT -350 IF C=0 THEN 390 -360 LET F=F*1.1 -370 LET A=A*F -380 GOTO 290 -390 PRINT "LAST INVOCATION OF EXP SHOULD HAVE BEEN REPORTED AS" -400 PRINT "UNDERFLOW IN ORDER TO COMPLY WITH ANSI RECOMMENDATION;" -410 PRINT -420 PRINT "***** TEST PASSES, SINCE ZERO WAS SUPPLIED. *****" -430 PRINT -440 PRINT " END TEST" -450 PRINT -460 PRINT "END PROGRAM 123" -470 END diff --git a/bwbtest/NBS2/P123.run b/bwbtest/NBS2/P123.run deleted file mode 100644 index 1e1a760..0000000 --- a/bwbtest/NBS2/P123.run +++ /dev/null @@ -1,67 +0,0 @@ -PROGRAM FILE 123: EXCEPTION - UNDERFLOW ON VALUE OF - EXP FUNCTION. - ANSI STANDARD 8.4, 8.6 - -SECTION 123.1: EXCEPTION - UNDERFLOW ON VALUE OF - EXP FUNCTION. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES AN EXCEPTION WHEN THE VALUE RETURNED -BY THE EXP FUNCTION IS LESS THAN MACHINE INFINITESIMAL -AND TO ENSURE THAT ZERO IS SUPPLIED ON UNDERFLOW. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE - DISPLAYED (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE - OF THE FUNCTION AND EXECUTION CONTINUES. - - - BEGIN TEST. - - -ABOUT TO ATTEMPT EXP(-87 ) -VALUE RETURNED BY EXP = 1.64581E-38 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP(-105.27 ) -VALUE RETURNED BY EXP = 1.91346E-46 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP(-140.114 ) -VALUE RETURNED BY EXP = 1.40962E-61 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP(-205.141 ) -VALUE RETURNED BY EXP = 8.0947E-90 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP(-330.382 ) -VALUE RETURNED BY EXP = 3.28675E-144 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP(-585.292 ) -VALUE RETURNED BY EXP = 6.46694E-255 - ---------------------------------------- - -ABOUT TO ATTEMPT EXP(-1140.57 ) -VALUE RETURNED BY EXP = 0 - ---------------------------------------- - -LAST INVOCATION OF EXP SHOULD HAVE BEEN REPORTED AS -UNDERFLOW IN ORDER TO COMPLY WITH ANSI RECOMMENDATION; - -***** TEST PASSES, SINCE ZERO WAS SUPPLIED. ***** - - END TEST - -END PROGRAM 123 diff --git a/bwbtest/NBS2/P124.BAS b/bwbtest/NBS2/P124.BAS deleted file mode 100644 index d8c44d4..0000000 --- a/bwbtest/NBS2/P124.BAS +++ /dev/null @@ -1,179 +0,0 @@ -10 PRINT "PROGRAM FILE 124: ACCURACY OF LOG FUNCTION." -20 PRINT " ANSI STANDARD 7.6, 8.4" -30 PRINT -40 PRINT "SECTION 124.1: ACCURACY OF LOG FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE" -70 PRINT "LOG FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN," -80 PRINT "ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY" -90 PRINT "THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT" -100 PRINT "PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN" -110 PRINT "'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE" -120 PRINT "IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE;" -130 PRINT "THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY" -140 PRINT "HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES" -150 PRINT "AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3." -160 PRINT -170 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -180 PRINT "DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -220 PRINT "ARGUMENT","TRUE","COMPUTED","ERROR","OUTCOME" -230 PRINT " ","VALUE","VALUE","MEASURE" -240 PRINT -250 LET F=0 -260 READ A,T,L,H -270 IF A=999 THEN 2000 -280 LET C=LOG(A) -290 IF C=T THEN 333 -300 IF CH THEN 444 -320 LET O$=" OK " -330 GOTO 500 -333 LET O$=" OK - EXACT" -340 GOTO 500 -444 LET O$="FAIL" -445 LET F=F+1 -450 GOTO 500 -500 LET R=H-L -510 IF R=0 THEN 700 -520 LET E=ABS((C-T)/R) -525 LET E=E+E -530 PRINT A,T,C,E,O$ -540 GOTO 260 -700 PRINT A,T,C,"RANGE ZERO",O$ -710 GOTO 260 -2000 PRINT -2010 IF F=0 THEN 2100 -2020 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -2030 GOTO 2110 -2100 PRINT "*** INFORMATIVE TEST PASSED ***" -2110 PRINT -2120 PRINT " END TEST" -2130 PRINT -2140 PRINT "END PROGRAM 124" -3000 DATA 0.100000000E-37,-0.874982335E+02 -3010 DATA -0.874982936E+02,-0.874981735E+02 -3020 DATA 0.100001000E-37,-0.874982235E+02 -3030 DATA -0.874982836E+02,-0.874981635E+02 -3040 DATA 0.987654000E-37,-0.852080713E+02 -3050 DATA -0.852081223E+02,-0.852080202E+02 -3060 DATA 0.898989000E-36,-0.829995478E+02 -3070 DATA -0.829995990E+02,-0.829994967E+02 -3080 DATA 0.787878000E-35,-0.808288903E+02 -3090 DATA -0.808289416E+02,-0.808288390E+02 -3100 DATA 0.676767000E-34,-0.786783214E+02 -3110 DATA -0.786783729E+02,-0.786782699E+02 -3120 DATA 0.565656000E-29,-0.673447369E+02 -3130 DATA -0.673447887E+02,-0.673446850E+02 -3140 DATA 0.454545000E-24,-0.560505006E+02 -3150 DATA -0.560505528E+02,-0.560504483E+02 -3160 DATA 0.343434000E-19,-0.448178771E+02 -3170 DATA -0.448179301E+02,-0.448178241E+02 -3180 DATA 0.232323000E-14,-0.336958179E+02 -3190 DATA -0.336958723E+02,-0.336957636E+02 -3200 DATA 0.121212000E-09,-0.228334800E+02 -3210 DATA -0.228335383E+02,-0.228334217E+02 -3220 DATA 0.909090000E-06,-0.139108217E+02 -3230 DATA -0.139108729E+02,-0.139107706E+02 -3240 DATA 0.888888000E-04,-0.932812441E+01 -3250 DATA -0.932813054E+01,-0.932811828E+01 -3260 DATA 0.777777000E-03,-0.715907071E+01 -3270 DATA -0.715907700E+01,-0.715906442E+01 -3280 DATA 0.666666000E-02,-0.501063629E+01 -3290 DATA -0.501064280E+01,-0.501062979E+01 -3300 DATA 0.555555000E-01,-0.289037276E+01 -3310 DATA -0.289037956E+01,-0.289036595E+01 -3320 DATA 0.123456000E+00,-0.209187046E+01 -3330 DATA -0.209188357E+01,-0.209185736E+01 -3340 DATA 0.298347000E+00,-0.120949804E+01 -3350 DATA -0.120950640E+01,-0.120948968E+01 -3360 DATA 0.535353000E+00,-0.624828937E+00 -3370 DATA -0.624831305E+00,-0.624826568E+00 -3380 DATA 0.893481000E+00,-0.112630209E+00 -3390 DATA -0.112631829E+00,-0.112628590E+00 -3400 DATA 0.999000000E+00,-0.100050033E-02 -3410 DATA -0.100150634E-02,-0.999498833E-03 -3420 DATA 0.999500000E+00,-0.500125042E-03 -3430 DATA -0.501126043E-03,-0.499124041E-03 -3440 DATA 0.999900000E+00,-0.100005000E-03 -3450 DATA -0.101005601E-03,-0.990048508E-04 -3460 DATA 0.999950000E+00,-0.500012500E-04 -3470 DATA -0.510013506E-04,-0.490011505E-04 -3480 DATA 0.999990000E+00,-0.100000500E-04 -3490 DATA -0.110001106E-04,-0.900003550E-05 -3500 DATA 0.999995000E+00,-0.500001250E-05 -3510 DATA -0.600002300E-05,-0.400000299E-05 -3520 DATA 0.999998000E+00,-0.200000200E-05 -3530 DATA -0.300000950E-05,-.0999995499E-05 -3540 DATA 0.999999000E+00,-0.100000050E-05 -3550 DATA -0.200000700E-05, 0.000000500E+00 -3560 DATA 0.100000000E+01, 0.000000000E+00 -3570 DATA -0.100001001E-04, 0.999995501E-05 -3580 DATA 0.100001000E+01, 0.999995000E-05 -3590 DATA 0.000000000E+00, 0.199998501E-04 -3600 DATA 0.100002000E+01, 0.199998000E-04 -3610 DATA 0.999994500E-05, 0.299996001E-04 -3620 DATA 0.100005000E+01, 0.499987500E-04 -3630 DATA 0.399991500E-04, 0.599982501E-04 -3640 DATA 0.100010000E+01, 0.999950003E-04 -3650 DATA 0.899959002E-04, 0.109994451E-03 -3660 DATA 0.100030000E+01, 0.299955009E-03 -3670 DATA 0.289957458E-03, 0.309952460E-03 -3680 DATA 0.100100000E+01, 0.999500333E-03 -3690 DATA 0.989509773E-03, 0.100949530E-02 -3700 DATA 0.100300000E+01, 0.299550898E-02 -3710 DATA 0.298553384E-02, 0.300548402E-02 -3720 DATA 0.101000000E+01, 0.995033085E-02 -3730 DATA 0.994042481E-02, 0.996023680E-02 -3740 DATA 0.103000000E+01, 0.295588022E-01 -3750 DATA 0.295490434E-01, 0.295685610E-01 -3760 DATA 0.111111000E+01, 0.105359516E+00 -3770 DATA 0.105350015E+00, 0.105369016E+00 -3780 DATA 0.154321000E+01, 0.433864663E+00 -3790 DATA 0.433857682E+00, 0.433871643E+00 -3800 DATA 0.200000000E+01, 0.693147181E+00 -3810 DATA 0.693141680E+00, 0.693152681E+00 -3820 DATA 0.232323000E+01, 0.842958459E+00 -3830 DATA 0.842953654E+00, 0.842963264E+00 -3840 DATA 0.271828000E+01, 0.999999327E+00 -3850 DATA 0.999995148E+00, 0.100000801E+01 -3860 DATA 0.400000000E+01, 0.138629436E+01 -3870 DATA 0.138628686E+01, 0.138630187E+01 -3880 DATA 0.714286000E+01, 0.196611326E+01 -3890 DATA 0.196610685E+01, 0.196611966E+01 -3900 DATA 0.800000000E+01, 0.207944154E+01 -3910 DATA 0.207943529E+01, 0.207944780E+01 -3920 DATA 0.536789000E+02, 0.398302000E+01 -3930 DATA 0.398301313E+01, 0.398302687E+01 -3940 DATA 0.482284000E+03, 0.617853315E+01 -3950 DATA 0.617852607E+01, 0.617854023E+01 -3960 DATA 0.962112000E+04, 0.917171596E+01 -3970 DATA 0.917170992E+01, 0.917172201E+01 -3980 DATA 0.863214000E+05, 0.113658328E+02 -3990 DATA 0.113657816E+02, 0.113658840E+02 -4000 DATA 0.777777000E+06, 0.135641951E+02 -4010 DATA 0.135641438E+02, 0.135642465E+02 -4020 DATA 0.987654000E+08, 0.184082579E+02 -4030 DATA 0.184082068E+02, 0.184083090E+02 -4040 DATA 0.898989000E+11, 0.252219515E+02 -4050 DATA 0.252219004E+02, 0.252220027E+02 -4060 DATA 0.797979000E+16, 0.366156885E+02 -4070 DATA 0.366156372E+02, 0.366157398E+02 -4080 DATA 0.696969000E+21, 0.479932726E+02 -4090 DATA 0.479932211E+02, 0.479933241E+02 -4100 DATA 0.595959000E+26, 0.593496290E+02 -4110 DATA 0.593495773E+02, 0.593496807E+02 -4120 DATA 0.494949000E+31, 0.706768373E+02 -4130 DATA 0.706767853E+02, 0.706768894E+02 -4140 DATA 0.393939000E+36, 0.819615041E+02 -4150 DATA 0.819614516E+02, 0.819615567E+02 -4160 DATA 0.987654000E+37, 0.851832256E+02 -4170 DATA 0.851831745E+02, 0.851832767E+02 -4180 DATA 0.987654000E+38, 0.874858107E+02 -4190 DATA 0.874857596E+02, 0.874858618E+02 -4200 DATA 0.100000000E+39, 0.874982335E+02 -4210 DATA 0.874981735E+02, 0.874982936E+02 -9000 DATA 999,0,0,0 -9400 END diff --git a/bwbtest/NBS2/P124.run b/bwbtest/NBS2/P124.run deleted file mode 100644 index c3e587a..0000000 --- a/bwbtest/NBS2/P124.run +++ /dev/null @@ -1,91 +0,0 @@ -PROGRAM FILE 124: ACCURACY OF LOG FUNCTION. - ANSI STANDARD 7.6, 8.4 - -SECTION 124.1: ACCURACY OF LOG FUNCTION. - -THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE -LOG FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN, -ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY -THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT -PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN -'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE -IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE; -THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY -HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES -AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3. - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS. - - BEGIN TEST - -ARGUMENT TRUE COMPUTED ERROR OUTCOME - VALUE VALUE MEASURE - - 1.E-38 -87.4982 -87.4982 5.62427E-4 OK - 1.00001E-38 -87.4982 -87.4982 5.6326E-4 OK - 9.87654E-38 -85.2081 -85.2081 2.78584E-4 OK - 8.98989E-37 -82.9995 -82.9995 5.51097E-4 OK - 7.87878E-36 -80.8289 -80.8289 4.24228E-4 OK - 6.76767E-35 -78.6783 -78.6783 1.44822E-4 OK - 5.65656E-30 -67.3447 -67.3447 8.44219E-4 OK - 4.54545E-25 -56.0505 -56.0505 1.48864E-4 OK - 3.43434E-20 -44.8179 -44.8179 1.43287E-4 OK - 2.32323E-15 -33.6958 -33.6958 6.64629E-4 OK - 1.21212E-10 -22.8335 -22.8335 6.39683E-4 OK - 9.0909E-7 -13.9108 -13.9108 7.38399E-4 OK - 8.88888E-5 -9.32812 -9.32812 3.86123E-4 OK - 7.77777E-4 -7.15907 -7.15907 4.35049E-4 OK - 6.66666E-3 -5.01064 -5.01064 6.29786E-4 OK - 5.55555E-2 -2.89037 -2.89037 3.09087E-4 OK - .123456 -2.09187 -2.09187 1.29635E-4 OK - .298347 -1.2095 -1.2095 4.41117E-5 OK - .535353 -.624829 -.624829 1.76074E-4 OK - .893481 -.11263 -.11263 1.84115E-4 OK - .999 -1.0005E-3 -1.0005E-3 3.57013E-6 OK - .9995 -5.00125E-4 -5.00125E-4 3.17439E-7 OK - .9999 -1.00005E-4 -1.00005E-4 3.33222E-7 OK - .99995 -5.00013E-5 -5.00013E-5 4.16586E-8 OK - .99999 -.00001 -1.00001E-5 2.87814E-10 OK - .999995 -5.00001E-6 -5.00001E-6 7.4423E-11 OK - .999998 -.000002 -.000002 5.08441E-11 OK - .999999 -.000001 -.000001 2.32711E-11 OK - 1 0 0 0 OK - EXACT - 1.00001 9.99995E-6 9.99995E-6 3.98844E-11 OK - 1.00002 1.99998E-5 1.99998E-5 2.57565E-10 OK - 1.00005 4.99988E-5 4.99988E-5 4.17725E-9 OK - 1.0001 9.9995E-5 9.9995E-5 3.32997E-9 OK - 1.0003 2.99955E-4 2.99955E-4 2.05806E-10 OK - 1.001 9.995E-4 9.995E-4 8.34837E-9 OK - 1.003 2.99551E-3 2.99551E-3 2.02133E-8 OK - 1.01 9.95033E-3 9.95033E-3 3.19816E-7 OK - 1.03 2.95588E-2 2.95588E-2 4.25712E-6 OK - 1.11111 .10536 .10536 3.6069E-5 OK - 1.54321 .433865 .433865 5.3025E-5 OK - 2 .693147 .693147 8.00027E-5 OK - 2.32323 .842958 .842958 4.40988E-5 OK - 2.71828 .999999 .999999 5.40012E-5 OK - 4 1.38629 1.38629 1.49219E-4 OK - 7.14286 1.96611 1.96611 5.66315E-4 OK - 8 2.07944 2.07944 2.68559E-4 OK - 53.6789 3.98302 3.98302 9.46416E-5 OK - 482.284 6.17853 6.17853 3.03933E-4 OK - 9621.12 9.17172 9.17172 1.65329E-4 OK - 86321.4 11.3658 11.3658 3.61749E-4 OK - 777777 13.5642 13.5642 5.7805E-4 OK - 9.87654E+7 18.4083 18.4083 2.04744E-5 OK - 8.98989E+10 25.222 25.222 8.31506E-4 OK - 7.97979E+15 36.6157 36.6157 1.90318E-4 OK - 6.96969E+20 47.9933 47.9933 1.42469E-4 OK - 5.95959E+25 59.3496 59.3496 2.24677E-4 OK - 4.94949E+30 70.6768 70.6768 5.91565E-4 OK - 3.93939E+35 81.9615 81.9615 8.33115E-4 OK - 9.87654E+36 85.1832 85.1832 8.2562E-5 OK - 9.87654E+37 87.4858 87.4858 2.19665E-4 OK - 1.E+38 87.4982 87.4982 5.62427E-4 OK - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 124 diff --git a/bwbtest/NBS2/P125.BAS b/bwbtest/NBS2/P125.BAS deleted file mode 100644 index 7878dc7..0000000 --- a/bwbtest/NBS2/P125.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 125: EXCEPTION - LOG OF ZERO ARGUMENT." -20 PRINT " ANSI STANDARD 8.5" -30 PRINT -40 PRINT "SECTION 125.1: EXCEPTION - LOG OF ZERO ARGUMENT." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES A FATAL EXCEPTION WHEN A ZERO ARGUMENT" -90 PRINT "IS PASSED TO THE LOG FUNCTION." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ZERO" -170 PRINT " ARGUMENT." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 PRINT "FATAL EXCEPTION SHOULD OCCUR NOW:" -220 PRINT -230 LET A=(0) -240 LET B=LOG(A) -255 PRINT "*** TEST FAILED ***" -257 PRINT -260 PRINT "ARGUMENT WAS SET TO 0; IT NOW EQUALS ";A -270 PRINT "RESULT OF LOG IS ";B -280 PRINT -330 PRINT -340 PRINT " END TEST" -350 PRINT -360 PRINT "END PROGRAM 125" -370 END diff --git a/bwbtest/NBS2/P125.run b/bwbtest/NBS2/P125.run deleted file mode 100644 index d68f39f..0000000 --- a/bwbtest/NBS2/P125.run +++ /dev/null @@ -1,23 +0,0 @@ -PROGRAM FILE 125: EXCEPTION - LOG OF ZERO ARGUMENT. - ANSI STANDARD 8.5 - -SECTION 125.1: EXCEPTION - LOG OF ZERO ARGUMENT. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES A FATAL EXCEPTION WHEN A ZERO ARGUMENT -IS PASSED TO THE LOG FUNCTION. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE ZERO - ARGUMENT. - - BEGIN TEST. - -FATAL EXCEPTION SHOULD OCCUR NOW: - - -ERROR in line 240: Illegal function call diff --git a/bwbtest/NBS2/P126.BAS b/bwbtest/NBS2/P126.BAS deleted file mode 100644 index a5702a3..0000000 --- a/bwbtest/NBS2/P126.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 126: EXCEPTION - LOG OF NEGATIVE ARGUMENT." -20 PRINT " ANSI STANDARD 8.5" -30 PRINT -40 PRINT "SECTION 126.1: EXCEPTION - LOG OF NEGATIVE ARGUMENT." -60 PRINT -70 PRINT "THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR" -80 PRINT "RECOGNIZES A FATAL EXCEPTION WHEN A NEGATIVE ARGUMENT" -90 PRINT "IS PASSED TO THE LOG FUNCTION." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -140 PRINT " DISPLAYED, AND" -150 PRINT -160 PRINT " 2) THE PROGRAM MUST TERMINATE UPON USE OF THE NEGATIVE" -170 PRINT " ARGUMENT." -180 PRINT -190 PRINT " BEGIN TEST." -200 PRINT -210 PRINT "FATAL EXCEPTION SHOULD OCCUR NOW:" -220 PRINT -230 LET A=(-3) -240 LET B=LOG(A) -255 PRINT "*** TEST FAILED ***" -257 PRINT -260 PRINT "ARGUMENT WAS SET TO -3; IT NOW EQUALS ";A -270 PRINT "RESULT OF LOG IS ";B -280 PRINT -330 PRINT -340 PRINT " END TEST" -350 PRINT -360 PRINT "END PROGRAM 126" -370 END diff --git a/bwbtest/NBS2/P126.run b/bwbtest/NBS2/P126.run deleted file mode 100644 index 19783fb..0000000 --- a/bwbtest/NBS2/P126.run +++ /dev/null @@ -1,23 +0,0 @@ -PROGRAM FILE 126: EXCEPTION - LOG OF NEGATIVE ARGUMENT. - ANSI STANDARD 8.5 - -SECTION 126.1: EXCEPTION - LOG OF NEGATIVE ARGUMENT. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES A FATAL EXCEPTION WHEN A NEGATIVE ARGUMENT -IS PASSED TO THE LOG FUNCTION. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) THE PROGRAM MUST TERMINATE UPON USE OF THE NEGATIVE - ARGUMENT. - - BEGIN TEST. - -FATAL EXCEPTION SHOULD OCCUR NOW: - - -ERROR in line 240: Illegal function call diff --git a/bwbtest/NBS2/P127.BAS b/bwbtest/NBS2/P127.BAS deleted file mode 100644 index c1fdf4c..0000000 --- a/bwbtest/NBS2/P127.BAS +++ /dev/null @@ -1,208 +0,0 @@ -10 PRINT "PROGRAM FILE 127: ACCURACY OF SIN FUNCTION." -20 PRINT " ANSI STANDARD 7.6, 8.4" -30 PRINT -40 PRINT "SECTION 127.1: ACCURACY OF SIN FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE" -70 PRINT "SIN FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN," -80 PRINT "ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY" -90 PRINT "THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT" -100 PRINT "PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN" -110 PRINT "'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE" -120 PRINT "IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE;" -130 PRINT "THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY" -140 PRINT "HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES" -150 PRINT "AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3." -160 PRINT -170 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -180 PRINT "DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -220 PRINT "ARGUMENT","TRUE","COMPUTED","ERROR","OUTCOME" -230 PRINT " ","VALUE","VALUE","MEASURE" -240 PRINT -250 LET F=0 -260 READ A,T,L,H -270 IF A=999 THEN 2000 -280 LET C=SIN(A) -290 IF C=T THEN 333 -300 IF CH THEN 444 -320 LET O$=" OK " -330 GOTO 500 -333 LET O$=" OK - EXACT" -340 GOTO 500 -444 LET O$="FAIL" -445 LET F=F+1 -450 GOTO 500 -500 LET R=H-L -510 IF R=0 THEN 700 -520 LET E=ABS((C-T)/R) -525 LET E=E+E -530 PRINT A,T,C,E,O$ -540 GOTO 260 -700 PRINT A,T,C,"RANGE ZERO",O$ -710 GOTO 260 -2000 PRINT -2010 IF F=0 THEN 2100 -2020 PRINT "*** INFORMATIVE TEST FAILED IN ";F;" CASE(S) ***" -2030 GOTO 2110 -2100 PRINT "*** INFORMATIVE TEST PASSED ***" -2110 PRINT -2120 PRINT " END TEST" -2130 PRINT -2140 PRINT "END PROGRAM 127" -3000 DATA -0.987654000E+05,-0.101562695E-01 -3010 DATA -0.109934299E+00, 0.897227872E-01 -3020 DATA -0.987644000E+05, 0.835940129E+00 -3030 DATA 0.776972770E+00, 0.886555051E+00 -3040 DATA -0.942682000E+05,-0.999999999E+00 -3050 DATA -1.000000000E+00,-0.994999665E+00 -3060 DATA -0.942792000E+04, 0.446577015E-03 -3070 DATA -0.955328265E-02, 0.104464371E-01 -3080 DATA -0.942592000E+04,-0.909483178E+00 -3090 DATA -0.913595542E+00,-0.905279866E+00 -3100 DATA -0.942949000E+04, 0.999999939E+00 -3110 DATA 0.999945941E+00, 1.000000000E+00 -3120 DATA -0.986460000E+03, 0.932271951E-04 -3130 DATA -0.906773181E-03, 0.109323198E-02 -3140 DATA -0.999000000E+03, 0.264607527E-01 -3150 DATA 0.254610398E-01, 0.274604392E-01 -3160 DATA -0.994314000E+03,-0.999999997E+00 -3170 DATA -1.000000000E+00,-0.999998922E+00 -3180 DATA -0.879646000E+02,-0.569948578E-05 -3190 DATA -0.105699986E-03, 0.943005641E-04 -3200 DATA -0.990000000E+02, 0.999206834E+00 -3210 DATA 0.999202347E+00, 0.999211312E+00 -3220 DATA -0.895354000E+02,-1.000000000E+00 -3230 DATA -1.000000000E+00,-0.999999494E+00 -3240 DATA -0.500000000E+02, 0.262374854E+00 -3250 DATA 0.262277855E+00, 0.262471849E+00 -3260 DATA -0.200000000E+02,-0.912945251E+00 -3270 DATA -0.912986555E+00,-0.912903937E+00 -3280 DATA -0.590000000E+01, 0.373876665E+00 -3290 DATA 0.373866890E+00, 0.373886440E+00 -3300 DATA -0.471239000E+01, 1.000000000E+00 -3310 DATA 0.999999499E+00, 1.000000000E+00 -3320 DATA -0.314159000E+01,-0.265358979E-05 -3330 DATA -0.126536398E-04, 0.734641421E-05 -3340 DATA -0.230000000E+01,-0.745705212E+00 -3350 DATA -0.745712375E+00,-0.745698049E+00 -3360 DATA -0.157080000E+01,-1.000000000E+00 -3370 DATA -1.000000000E+00,-0.999999499E+00 -3380 DATA -0.120000000E+01,-0.932039086E+00 -3390 DATA -0.932043210E+00,-0.932034962E+00 -3400 DATA -0.100000000E+01,-0.841470985E+00 -3410 DATA -0.841476888E+00,-0.841465081E+00 -3420 DATA -0.987654000E+00,-0.834736453E+00 -3430 DATA -0.834737504E+00,-0.834735402E+00 -3440 DATA -0.765432000E+00,-0.692848571E+00 -3450 DATA -0.692849793E+00,-0.692847350E+00 -3460 DATA -0.987654000E-01,-0.986049087E-01 -3470 DATA -0.986050583E-01,-0.986047592E-01 -3480 DATA -0.765432000E-01,-0.764684792E-01 -3490 DATA -0.764686290E-01,-0.764683295E-01 -3500 DATA -0.975319000E-02,-0.975303537E-02 -3510 DATA -0.975305038E-02,-0.975302037E-02 -3520 DATA -0.345678000E-02,-0.345677312E-02 -3530 DATA -0.345678812E-02,-0.345675811E-02 -3540 DATA -0.100001000E-02,-0.100000983E-02 -3550 DATA -0.100002484E-02,-0.999999333E-03 -3560 DATA -0.100000000E-02,-0.999999833E-03 -3570 DATA -0.100001484E-02,-0.999989333E-03 -3580 DATA -0.999999000E-03,-0.999998833E-03 -3590 DATA -1.000000334E-03,-0.999997333E-03 -3600 DATA -0.987654000E-04,-0.987653998E-04 -3610 DATA -0.987655499E-04,-0.987652498E-04 -3620 DATA -0.917359000E-05,-0.917359000E-05 -3630 DATA -0.917360500E-05,-0.917357499E-05 -3640 DATA -0.900000000E-06,-0.900000000E-06 -3650 DATA -0.900001500E-06,-0.899998499E-06 -3660 DATA -0.900000000E-09,-0.900000000E-09 -3670 DATA -0.900001500E-09,-0.899998500E-09 -3680 DATA -0.900000000E-19,-0.900000000E-19 -3690 DATA -0.900001500E-19,-0.899998500E-19 -3700 DATA -0.900000000E-29,-0.900000000E-29 -3710 DATA -0.900001500E-29,-0.899998500E-29 -3720 DATA -0.900000000E-37,-0.900000000E-37 -3730 DATA -0.900001500E-37,-0.899998500E-37 -3740 DATA 0,0,0,0 -3760 DATA 0.200000000E-37, 0.200000000E-37 -3770 DATA 0.199998500E-37, 0.200001500E-37 -3780 DATA 0.900000000E-29, 0.900000000E-29 -3790 DATA 0.899998500E-29, 0.900001500E-29 -3800 DATA 0.900000000E-19, 0.900000000E-19 -3810 DATA 0.899998500E-19, 0.900001500E-19 -3820 DATA 0.900000000E-09, 0.900000000E-09 -3830 DATA 0.899998500E-09, 0.900001500E-09 -3840 DATA 0.900000000E-06, 0.900000000E-06 -3850 DATA 0.899998499E-06, 0.900001500E-06 -3860 DATA 0.917359000E-05, 0.917359000E-05 -3870 DATA 0.917357499E-05, 0.917360500E-05 -3880 DATA 0.987654000E-04, 0.987653998E-04 -3890 DATA 0.987652498E-04, 0.987655499E-04 -3900 DATA 0.999999000E-03, 0.999998833E-03 -3910 DATA 0.999997333E-03, 1.000000334E-03 -3920 DATA 0.100000000E-02, 0.999999833E-03 -3930 DATA 0.999989333E-03, 0.100001484E-02 -3940 DATA 0.100001000E-02, 0.100000983E-02 -3950 DATA 0.999999333E-03, 0.100002484E-02 -3960 DATA 0.345678000E-02, 0.345677312E-02 -3970 DATA 0.345675811E-02, 0.345678812E-02 -3980 DATA 0.975319000E-02, 0.975303537E-02 -3990 DATA 0.975302037E-02, 0.975305038E-02 -4000 DATA 0.765432000E-01, 0.764684792E-01 -4010 DATA 0.764683295E-01, 0.764686290E-01 -4020 DATA 0.987654000E-01, 0.986049087E-01 -4030 DATA 0.986047592E-01, 0.986050583E-01 -4040 DATA 0.765432000E+00, 0.692848571E+00 -4050 DATA 0.692847350E+00, 0.692849793E+00 -4060 DATA 0.987654000E+00, 0.834736453E+00 -4070 DATA 0.834735402E+00, 0.834737504E+00 -4080 DATA 0.100000000E+01, 0.841470985E+00 -4090 DATA 0.841465081E+00, 08.41476888E+00 -4100 DATA 0.120000000E+01, 0.932039086E+00 -4110 DATA 0.932034962E+00, 0.932043210E+00 -4120 DATA 0.157080000E+01, 1.000000000E+00 -4130 DATA 0.999999499E+00, 1.000000000E+00 -4140 DATA 0.230000000E+01, 0.745705212E+00 -4150 DATA 0.745698049E+00, 0.745712375E+00 -4160 DATA 0.314159000E+01, 0.265358979E-05 -4170 DATA -0.734651521E-05, 0.126536398E-04 -4180 DATA 0.390000000E+01,-0.687766159E+00 -4190 DATA -0.687773919E+00,-0.687758399E+00 -4200 DATA 0.471239000E+01,-1.000000000E+00 -4210 DATA -1.000000000E+00,-0.999999499E+00 -4220 DATA 0.590000000E+01,-0.373876665E+00 -4230 DATA -0.373886440E+00,-0.373866890E+00 -4240 DATA 0.200000000E+02, 0.912945251E+00 -4250 DATA 0.912903937E+00, 0.912986555E+00 -4260 DATA 0.500000000E+02,-0.262374854E+00 -4270 DATA -0.262471849E+00,-0.262277855E+00 -4280 DATA 0.895354000E+02, 1.000000000E+00 -4290 DATA 0.999999494E+00, 1.000000000E+00 -4300 DATA 0.990000000E+02,-0.999206834E+00 -4310 DATA -0.999211312E+00,-0.999202347E+00 -4320 DATA 0.879646000E+02, 0.569948578E-05 -4330 DATA -0.943005641E-04, 0.105699986E-03 -4360 DATA 0.994314000E+03, 0.999999997E+00 -4370 DATA 0.999998922E+00, 1.000000000E+00 -4380 DATA 0.999100000E+03, 0.734699011E-01 -4390 DATA 0.724725170E-01, 0.744672117E-01 -4400 DATA 0.986460000E+03,-0.932271951E-04 -4410 DATA -0.109323198E-02, 0.906773181E-03 -4420 DATA 0.942949000E+04,-0.999999939E+00 -4430 DATA -1.000000000E+00,-0.999945941E+00 -4440 DATA 0.942592000E+04, 0.909483178E+00 -4450 DATA 0.905279866E+00, 0.913595542E+00 -4460 DATA 0.942792000E+04,-0.446577015E-03 -4470 DATA -0.104464371E-01, 0.955328265E-02 -4480 DATA 0.942682000E+05, 0.999999999E+00 -4490 DATA 0.994999665E+00, 1.000000000E+00 -4500 DATA 0.987644000E+05,-0.835940129E+00 -4510 DATA -0.886555051E+00,-0.776972770E+00 -4520 DATA 0.987654000E+05, 0.101562695E-01 -4530 DATA -0.897227872E-01, 0.109934299E+00 -9000 DATA 999,0,0,0 -9400 END diff --git a/bwbtest/NBS2/P127.run b/bwbtest/NBS2/P127.run deleted file mode 100644 index 8ba9085..0000000 --- a/bwbtest/NBS2/P127.run +++ /dev/null @@ -1,106 +0,0 @@ -PROGRAM FILE 127: ACCURACY OF SIN FUNCTION. - ANSI STANDARD 7.6, 8.4 - -SECTION 127.1: ACCURACY OF SIN FUNCTION. - -THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE -SIN FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN, -ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY -THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT -PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN -'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE -IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE; -THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY -HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES -AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3. - -THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD -DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS. - - BEGIN TEST - -ARGUMENT TRUE COMPUTED ERROR OUTCOME - VALUE VALUE MEASURE - --98765.4 -1.01563E-2 -1.01563E-2 3.66962E-10 OK --98764.4 .83594 .83594 1.69306E-9 OK --94268.2 -1. -1. 7.90682E-8 OK --9427.92 4.46577E-4 4.46577E-4 7.20589E-11 OK --9425.92 -.909483 -.909483 5.6043E-8 OK --9429.49 1. 1. 6.01004E-6 OK --986.46 9.32272E-5 9.32272E-5 1.94546E-10 OK --999 2.64608E-2 2.64608E-2 3.70753E-8 OK --994.314 -1. -1. 3.67166E-4 OK --87.9646 -5.69949E-6 -5.69949E-6 1.3635E-10 OK --99 .999207 .999207 4.15736E-5 OK --89.5354 -1 -1. 1.73611E-4 OK --50 .262375 .262375 3.05238E-6 OK --20 -.912945 -.912945 6.59354E-6 OK --5.9 .373877 .373877 1.73672E-5 OK --4.71239 1 1. 2.07508E-6 OK --3.14159 -2.65359E-6 -2.65359E-6 3.35272E-10 OK --2.3 -.745705 -.745705 2.46713E-5 OK --1.5708 -1 -1. 2.69312E-5 OK --1.2 -.932039 -.932039 7.94706E-6 OK --1 -.841471 -.841471 3.25406E-5 OK --.987654 -.834736 -.834736 2.4298E-4 OK --.765432 -.692849 -.692849 9.01427E-5 OK --9.87654E-2 -9.86049E-2 -9.86049E-2 2.10994E-4 OK --7.65432E-2 -7.64685E-2 -7.64685E-2 1.6558E-4 OK --9.75319E-3 -9.75304E-3 -9.75304E-3 1.66521E-4 OK --3.45678E-3 -3.45677E-3 -3.45677E-3 2.90717E-4 OK --1.00001E-3 -1.00001E-3 -1.00001E-3 2.60975E-4 OK --.001 -.001 -.001 2.61373E-5 OK --9.99999E-4 -9.99999E-4 -9.99999E-4 2.22487E-4 OK --9.87654E-5 -9.87654E-5 -9.87654E-5 2.62782E-4 OK --9.17359E-6 -9.17359E-6 -9.17359E-6 8.57499E-6 OK --9.E-7 -9.E-7 -9.E-7 8.10058E-8 OK --9.E-10 -9.E-10 -9.E-10 0 OK - EXACT --9.E-20 -9.E-20 -9.E-20 0 OK - EXACT --9.E-30 -9.E-30 -9.E-30 0 OK - EXACT --9.E-38 -9.E-38 -9.E-38 0 OK - EXACT - 0 0 0 RANGE ZERO OK - EXACT - 2.E-38 2.E-38 2.E-38 0 OK - EXACT - 9.E-30 9.E-30 9.E-30 0 OK - EXACT - 9.E-20 9.E-20 9.E-20 0 OK - EXACT - 9.E-10 9.E-10 9.E-10 0 OK - EXACT - 9.E-7 9.E-7 9.E-7 8.10058E-8 OK - 9.17359E-6 9.17359E-6 9.17359E-6 8.57499E-6 OK - 9.87654E-5 9.87654E-5 9.87654E-5 2.62782E-4 OK - 9.99999E-4 9.99999E-4 9.99999E-4 2.22487E-4 OK - .001 .001 .001 2.61373E-5 OK - 1.00001E-3 1.00001E-3 1.00001E-3 2.60975E-4 OK - 3.45678E-3 3.45677E-3 3.45677E-3 2.90717E-4 OK - 9.75319E-3 9.75304E-3 9.75304E-3 1.66521E-4 OK - 7.65432E-2 7.64685E-2 7.64685E-2 1.6558E-4 OK - 9.87654E-2 9.86049E-2 9.86049E-2 2.10994E-4 OK - .765432 .692849 .692849 9.01427E-5 OK - .987654 .834736 .834736 2.4298E-4 OK - 1 .841471 .841471 5.07317E-11 OK - 1.2 .932039 .932039 7.94706E-6 OK - 1.5708 1 1. 2.69312E-5 OK - 2.3 .745705 .745705 2.46713E-5 OK - 3.14159 2.65359E-6 2.65359E-6 3.3527E-10 OK - 3.9 -.687766 -.687766 2.3708E-5 OK - 4.71239 -1 -1. 2.07508E-6 OK - 5.9 -.373877 -.373877 1.73672E-5 OK - 20 .912945 .912945 6.59354E-6 OK - 50 -.262375 -.262375 3.05238E-6 OK - 89.5354 1 1. 1.73611E-4 OK - 99 -.999207 -.999207 4.15736E-5 OK - 87.9646 5.69949E-6 5.69949E-6 1.3635E-10 OK - 994.314 1. 1. 3.67166E-4 OK - 999.1 7.34699E-2 7.34699E-2 1.62157E-8 OK - 986.46 -9.32272E-5 -9.32272E-5 1.94546E-10 OK - 9429.49 -1. -1. 6.01004E-6 OK - 9425.92 .909483 .909483 5.6043E-8 OK - 9427.92 -4.46577E-4 -4.46577E-4 7.20589E-11 OK - 94268.2 1. 1. 7.90682E-8 OK - 98764.4 -.83594 -.83594 1.69306E-9 OK - 98765.4 1.01563E-2 1.01563E-2 3.66962E-10 OK - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 127 diff --git a/bwbtest/NBS2/P128.BAS b/bwbtest/NBS2/P128.BAS deleted file mode 100644 index b60f09e..0000000 --- a/bwbtest/NBS2/P128.BAS +++ /dev/null @@ -1,203 +0,0 @@ -10 PRINT "PROGRAM FILE 128: ACCURACY OF TAN FUNCTION." -20 PRINT " ANSI STANDARD 7.6, 8.4" -30 PRINT -40 PRINT "SECTION 128.1: ACCURACY OF TAN FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM TESTS VALUES RETURNED BY INVOCATIONS OF THE" -70 PRINT "TAN FUNCTION FOR ACCURACY. THE INVOCATION MUST RETURN," -80 PRINT "ACCURATE TO SIX DIGITS, SOME VALUE ACTUALLY TAKEN ON BY" -90 PRINT "THE FUNCTION WITHIN A DOMAIN BOUNDED BY THE ACTUAL ARGUMENT" -100 PRINT "PLUS OR MINUS ONE IN THE SIXTH DIGIT. ALSO, AN" -110 PRINT "'ERROR MEASURE' IS COMPUTED AND REPORTED. THIS MEASURE" -120 PRINT "IS JUST 2 * THE ABSOLUTE ERROR OVER THE SIZE OF THE RANGE;" -130 PRINT "THUS, A VALUE JUST BARELY PASSING OR FAILING WILL USUALLY" -140 PRINT "HAVE A MEASURE OF ABOUT 1. A VALUE 3 TIMES" -150 PRINT "AS INACCURATE AS EXPECTED WILL HAVE A MEASURE OF 3." -160 PRINT -170 PRINT "THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD" -180 PRINT "DOES NOT MANDATE ANY ACCURACY FOR SUPPLIED-FUNCTIONS." -190 PRINT -200 PRINT " BEGIN TEST" -210 PRINT -220 PRINT "ARGUMENT","TRUE","COMPUTED","ERROR","OUTCOME" -230 PRINT " ","VALUE","VALUE","MEASURE" -240 PRINT -250 LET F=0 -260 READ A,T,L,H -270 IF A=999 THEN 2000 -280 LET C=TAN(A) -285 IF L>H THEN 1000 -290 IF C=T THEN 333 -300 IF CH THEN 444 -320 LET O$=" OK " -330 GOTO 500 -333 LET O$=" OK - EXACT" -340 GOTO 500 -444 LET O$="FAIL" -445 LET F=F+1 -450 GOTO 500 -500 LET R=H-L -510 IF R=0 THEN 700 -520 LET E=ABS((C-T)/R) -525 LET E=E+E -530 PRINT A,T,C,E,O$ -540 GOTO 260 -700 PRINT A,T,C,"RANGE ZERO",O$ -710 GOTO 260 -1000 IF C=T THEN 1333 -1010 IF C>L THEN 1444 -1020 IF C=B THEN 420 -370 IF R<0 THEN 400 -380 LET A=M -390 GOTO 320 -400 LET B=M -410 GOTO 320 -420 PRINT -430 PRINT "ARGUMENTS HAVE CONVERGED. IF OVERFLOW HAS OCCURRED," -440 PRINT "PROCESSOR MUST HAVE REPORTED EXCEPTION AND SUPPLIED" -450 PRINT "MACHINE INFINITY, OTHERWISE," -455 PRINT "*** TEST FAILED ***" -460 PRINT -470 PRINT " END TEST" -480 PRINT -490 PRINT "END PROGRAM 129" -500 END diff --git a/bwbtest/NBS2/P129.run b/bwbtest/NBS2/P129.run deleted file mode 100644 index 8f58ea3..0000000 --- a/bwbtest/NBS2/P129.run +++ /dev/null @@ -1,87 +0,0 @@ -PROGRAM FILE 129: EXCEPTION - OVERFLOW ON VALUE OF - TAN FUNCTION. - ANSI STANDARD 8.5 - -SECTION 129.1: EXCEPTION - OVERFLOW ON VALUE OF - TAN FUNCTION. - -THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR -RECOGNIZES AN EXCEPTION OF THE VALUE RETURNED BY THE -TAN FUNCTION EXCEEDS MACHINE INFINITY. - -TO PASS THIS TEST: - - 1) OVERFLOW MUST NOT OCCUR, OR - - 2) WHEN OVERFLOW OCCURS, THE PROCESSOR MUST DISPLAY A - MESSAGE IDENTIFYING THE EXCEPTION, SUPPLY MACHINE - INFINITY AND CONTINUE EXECUTION. - - - BEGIN TEST. - -THE PROGRAM ATTEMPTS TO FORCE CONVERGENCE OF THE ARGUMENT -TO PI/2, SO AS TO CAUSE OVERFLOW. IF OVERFLOW DOES NOT -OCCUR, IT IS LIKELY THAT THIS SYSTEM HAS NO INTERNAL -NUMERIC REPRESENTATION FOR WHICH THE TANGENT EXCEEDS -MACHINE INFINITY. - -ARGUMENT VALUE OF TAN - - 1.57 1255.77 - 1.575 -237.886 - 1.5725 -586.966 - 1.57125 -2204.23 - 1.57063 5836.8 - 1.57094 -7083.5 - 1.57078 66327.1 - 1.57086 -15860.9 - 1.57082 -41691.5 - 1.5708 -224494. - 1.57079 188282. - 1.5708 2.3345E+6 - 1.5708 -496759. - 1.5708 -1.26208E+6 - 1.5708 -5.49468E+6 - 1.5708 8.11809E+6 - 1.5708 -3.40063E+7 - 1.5708 2.13276E+7 - 1.5708 1.14407E+8 - 1.5708 -9.67793E+7 - 1.5708 -1.25621E+9 - 1.5708 2.51742E+8 - 1.5708 6.29667E+8 - 1.5708 2.52495E+9 - 1.5708 -5.00002E+9 - 1.5708 1.02016E+10 - 1.5708 -1.96126E+10 - 1.5708 4.25204E+10 - 1.5708 -7.28081E+10 - 1.5708 2.04428E+11 - 1.5708 -2.26167E+11 - 1.5708 4.2556E+12 - 1.5708 -4.77697E+11 - 1.5708 -1.0762E+12 - 1.5708 -2.88005E+12 - 1.5708 -1.78202E+13 - 1.5708 1.11953E+13 - 1.5708 6.06335E+13 - 1.5708 -5.01938E+13 - 1.5708 -5.83048E+14 - 1.5708 1.35342E+14 - 1.5708 3.66869E+14 - 1.5708 1.97894E+15 - 1.5708 -1.65316E+15 - 1.5708 1.63312E+16 - 1.5708 -2.61194E+15 - 1.5708 -6.21843E+15 - 1.5708 1.63312E+16 - -ARGUMENTS HAVE CONVERGED. IF OVERFLOW HAS OCCURRED, -PROCESSOR MUST HAVE REPORTED EXCEPTION AND SUPPLIED -MACHINE INFINITY, OTHERWISE, -*** TEST FAILED *** - - END TEST - -END PROGRAM 129 diff --git a/bwbtest/NBS2/P130.BAS b/bwbtest/NBS2/P130.BAS deleted file mode 100644 index 140a9ed..0000000 --- a/bwbtest/NBS2/P130.BAS +++ /dev/null @@ -1,25 +0,0 @@ -10 PRINT "PROGRAM FILE 130: RND FUNCTION WITHOUT RANDOMIZE STATEMENT." -20 PRINT " ANSI STANDARD 8.2, 8.4" -30 PRINT -40 PRINT "SECTION 130.1: RND FUNCTION WITHOUT RANDOMIZE STATEMENT." -50 PRINT -60 PRINT "THE FOLLOWING 20 NUMBERS SHOULD BE THE IMPLEMENTATION-" -70 PRINT "DEFINED SEQUENCE OF PSEUDO-RANDOM NUMBERS FOR THE" -80 PRINT "RND FUNCTION." -90 PRINT -100 PRINT " BEGIN TEST" -110 PRINT -120 PRINT "POSITION","VALUE" -130 FOR I=1 TO 20 -140 PRINT I,RND -150 NEXT I -160 PRINT -170 PRINT "TO DETERMINE WHETHER THIS TEST PASSES OR FAILS, THE USER" -180 PRINT "MUST RUN THE TEST THREE TIMES, NOTHING THE SEQUENCE OF" -190 PRINT "NUMBERS PRODUCED EACH TIME. IF ALL THREE ARE IDENTICAL, " -200 PRINT "*** TEST PASSED ***" -210 PRINT -220 PRINT " END TEST" -230 PRINT -240 PRINT "END PROGRAM 130" -250 END diff --git a/bwbtest/NBS2/P130.run b/bwbtest/NBS2/P130.run deleted file mode 100644 index 61c236f..0000000 --- a/bwbtest/NBS2/P130.run +++ /dev/null @@ -1,41 +0,0 @@ -PROGRAM FILE 130: RND FUNCTION WITHOUT RANDOMIZE STATEMENT. - ANSI STANDARD 8.2, 8.4 - -SECTION 130.1: RND FUNCTION WITHOUT RANDOMIZE STATEMENT. - -THE FOLLOWING 20 NUMBERS SHOULD BE THE IMPLEMENTATION- -DEFINED SEQUENCE OF PSEUDO-RANDOM NUMBERS FOR THE -RND FUNCTION. - - BEGIN TEST - -POSITION VALUE - 1 .396465 - 2 .840485 - 3 .353336 - 4 .446583 - 5 .318693 - 6 .886428 - 7 1.55828E-2 - 8 .58409 - 9 .159369 - 10 .383716 - 11 .691004 - 12 5.88589E-2 - 13 .899854 - 14 .163546 - 15 .159072 - 16 .533065 - 17 .604144 - 18 .582699 - 19 .269971 - 20 .390478 - -TO DETERMINE WHETHER THIS TEST PASSES OR FAILS, THE USER -MUST RUN THE TEST THREE TIMES, NOTHING THE SEQUENCE OF -NUMBERS PRODUCED EACH TIME. IF ALL THREE ARE IDENTICAL, -*** TEST PASSED *** - - END TEST - -END PROGRAM 130 diff --git a/bwbtest/NBS2/P131.BAS b/bwbtest/NBS2/P131.BAS deleted file mode 100644 index 5887257..0000000 --- a/bwbtest/NBS2/P131.BAS +++ /dev/null @@ -1,26 +0,0 @@ -10 PRINT "PROGRAM FILE 131: RND FUNCTION WITH THE RANDOMIZE STATEMENT." -20 PRINT " ANSI STANDARD 8.2, 8.4, 17.L2, 17.4" -30 PRINT -50 PRINT "SECTION 131.1: RND FUNCTION WITH THE RANDOMIZE STATEMENT." -60 PRINT -70 PRINT "THIS TEST DETERMINES WHETHER THE RANDOMIZE STATEMENT" -80 PRINT "CAUSES A DIFFERENT SEQUENCE OF NUMBERS TO BE PRODUCED" -90 PRINT "BY THE RND FUNCTION FOR EACH PROGRAM EXECUTION." -100 PRINT -110 PRINT " BEGIN TEST" -120 RANDOMIZE -130 PRINT -140 PRINT "POSITION","VALUE" -150 FOR I=1 TO 20 -160 PRINT I,RND -170 NEXT I -180 PRINT -190 PRINT "TO DETERMINE WHETHER THIS TEST PASSES, THE USER MUST RUN" -200 PRINT "THIS PROGRAM THREE TIMES, NOTING THE SEQUENCE OF NUMBERS" -210 PRINT "PRODUCED EACH TIME. IF ALL THREE ARE DIFFERENT, THEN" -220 PRINT "*** TEST PASSED ***" -230 PRINT -240 PRINT " END TEST" -250 PRINT -260 PRINT "END PROGRAM 131" -270 END diff --git a/bwbtest/NBS2/P131.run b/bwbtest/NBS2/P131.run deleted file mode 100644 index ca68295..0000000 --- a/bwbtest/NBS2/P131.run +++ /dev/null @@ -1,41 +0,0 @@ -PROGRAM FILE 131: RND FUNCTION WITH THE RANDOMIZE STATEMENT. - ANSI STANDARD 8.2, 8.4, 17.L2, 17.4 - -SECTION 131.1: RND FUNCTION WITH THE RANDOMIZE STATEMENT. - -THIS TEST DETERMINES WHETHER THE RANDOMIZE STATEMENT -CAUSES A DIFFERENT SEQUENCE OF NUMBERS TO BE PRODUCED -BY THE RND FUNCTION FOR EACH PROGRAM EXECUTION. - - BEGIN TEST - -POSITION VALUE - 1 .728831 - 2 .615109 - 3 .110502 - 4 .228558 - 5 6.86214E-2 - 6 .612693 - 7 .225376 - 8 .167302 - 9 .249147 - 10 .774105 - 11 .623406 - 12 .091191 - 13 .201218 - 14 .703157 - 15 .364542 - 16 .669822 - 17 .469054 - 18 .532366 - 19 .100096 - 20 .630643 - -TO DETERMINE WHETHER THIS TEST PASSES, THE USER MUST RUN -THIS PROGRAM THREE TIMES, NOTING THE SEQUENCE OF NUMBERS -PRODUCED EACH TIME. IF ALL THREE ARE DIFFERENT, THEN -*** TEST PASSED *** - - END TEST - -END PROGRAM 131 diff --git a/bwbtest/NBS2/P132.BAS b/bwbtest/NBS2/P132.BAS deleted file mode 100644 index 04a30f9..0000000 --- a/bwbtest/NBS2/P132.BAS +++ /dev/null @@ -1,54 +0,0 @@ -10 PRINT "PROGRAM FILE 132: AVERAGE OF RANDOM NUMBERS APPROXIMATES 0.5" -15 PRINT " AND 0 <= RND < 1." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 132.1: AVERAGE OF RANDOM NUMBERS APPROXIMATES 0.5" -50 PRINT " AND 0 <= RND < 1." -60 PRINT -70 PRINT "THIS PROGRAM TESTS WHETHER THE AVERAGE OF A SERIES OF RANDOM" -80 PRINT "NUMBERS IS SIGNIFICANTLY FAR FROM THE IDEAL OF 0.5. IF SO," -90 PRINT "THIS RESULT INDICATES NON-UNIFORM DISTRIBUTION AND THE TEST" -100 PRINT "FAILS. ALSO, IF ANY OF THE NUMBERS IS OUTSIDE THE ALLOWABLE" -110 PRINT "RANGE, AN IMMEDIATE FAILURE IS REPORTED." -120 PRINT -130 PRINT " BEGIN TEST" -140 PRINT -150 REM N=8754 BASED ON SIGNIFICANCE LEVEL OF .05 AND 0.1 CHANCE OF -160 REM NOT FINDING A DIFFERENCE OF AT LEAST .01 FROM STANDARD -170 REM AVERAGE OF 0.5, AND STANDARD DEVIATION OF 1/(2*SQR(3)) -180 LET N=8754 -190 LET S1=0 -200 LET S2=0 -210 FOR I=1 TO N -220 LET X=RND -230 IF X<0 THEN 490 -240 IF X>=1 THEN 510 -250 LET S1=S1+X -260 LET S2=S2+(X*X) -270 NEXT I -280 LET S = SQR((N*S2) - (S1*S1)) / N -290 LET X1=S1/N -300 PRINT ,"AVERAGE","STD. DEV." -310 PRINT "THEORETICAL:",.5,1/(2*SQR(3)) -320 PRINT "ACTUAL:",X1,S -330 LET A1=ABS(X1-0.5) -340 REM 1.96 BASED ON SIGNIFICANCE LEVEL OF .05 AND INFINITE D.F -350 LET A2=(1.96*S)/SQR(N) -360 PRINT -370 PRINT "ALLOWABLE DEVIATION: ";A2 -380 PRINT "ACTUAL DEVIATION: ";A1 -390 PRINT -400 IF A1>A2 THEN 430 -410 PRINT "*** TEST PASSED ***" -420 GOTO 440 -430 PRINT "*** TEST FAILED ***" -440 PRINT -450 PRINT " END TEST" -460 PRINT -470 PRINT "END PROGRAM 132" -480 STOP -490 PRINT "RND#";I;" < 0: ";X -500 GOTO 430 -510 PRINT "RND#";I;" >= 1: ";X -520 GOTO 430 -530 END diff --git a/bwbtest/NBS2/P132.run b/bwbtest/NBS2/P132.run deleted file mode 100644 index 5bfc3c4..0000000 --- a/bwbtest/NBS2/P132.run +++ /dev/null @@ -1,29 +0,0 @@ -PROGRAM FILE 132: AVERAGE OF RANDOM NUMBERS APPROXIMATES 0.5 - AND 0 <= RND < 1. - ANSI STANDARD 8.4 - -SECTION 132.1: AVERAGE OF RANDOM NUMBERS APPROXIMATES 0.5 - AND 0 <= RND < 1. - -THIS PROGRAM TESTS WHETHER THE AVERAGE OF A SERIES OF RANDOM -NUMBERS IS SIGNIFICANTLY FAR FROM THE IDEAL OF 0.5. IF SO, -THIS RESULT INDICATES NON-UNIFORM DISTRIBUTION AND THE TEST -FAILS. ALSO, IF ANY OF THE NUMBERS IS OUTSIDE THE ALLOWABLE -RANGE, AN IMMEDIATE FAILURE IS REPORTED. - - BEGIN TEST - - AVERAGE STD. DEV. -THEORETICAL: .5 .288675 -ACTUAL: .499632 .290323 - -ALLOWABLE DEVIATION: 6.08182E-3 -ACTUAL DEVIATION: 3.67562E-4 - -*** TEST PASSED *** - - END TEST - -END PROGRAM 132 - -Program interrupted at line 480 diff --git a/bwbtest/NBS2/P133.BAS b/bwbtest/NBS2/P133.BAS deleted file mode 100644 index 3c4c356..0000000 --- a/bwbtest/NBS2/P133.BAS +++ /dev/null @@ -1,151 +0,0 @@ -10 PRINT "PROGRAM FILE 133: CHI-SQUARE UNIFORMITY TEST FOR" -15 PRINT " RND FUNCTION." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 133.1: CHI-SQUARE UNIFORMITY TEST FOR" -50 PRINT " RND FUNCTION." -55 PRINT -60 PRINT "THIS PROGRAM RUNS A SERIES OF 60 EXPERIMENTS OF 1040 SAMPLES" -70 PRINT "TO DETERMINE IF THE RANDOM NUMBERS ARE EQUALLY DISTRIBUTED" -80 PRINT "AMONG 21 EQUAL-SIZE INTERVALS BETWEEN 0 AND 1. CHI-SQUARE" -90 PRINT "IS COMPUTED AND DISPLAYED FOR EACH OF THESE EXPERIMENTS." -100 PRINT "EACH CHI-SQUARE RESULT IS CATEGORIZED ACCORDING TO THE" -110 PRINT "PERCENTILE RANGE INTO WHICH ITS VALUE FALLS:" -120 PRINT -130 PRINT "CATEGORY % RANGE CATEGORY % RANGE" -140 PRINT " 1 0-1 6 50-75" -150 PRINT " 2 1-5 7 75-90" -160 PRINT " 3 5-10 8 90-95" -170 PRINT " 4 10-25 9 95-99" -180 PRINT " 5 25-50 10 99-100" -190 PRINT -200 PRINT "THESE CATEGORICAL RESULTS ARE THEN EVALUATED AGAIN USING" -210 PRINT "CHI-SQUARE (THE FIRST AND LAST THREE CATEGORIES ARE EACH" -220 PRINT "CONSOLIDATED INTO ONE), AND IF THE DISTRIBUTION AMONG" -230 PRINT "CATEGORIES IS SUFFICIENTLY IMPROBABLE (TOP OR BOTTOM 5%)," -240 PRINT "THE TEST FAILS." -250 PRINT -260 PRINT " BEGIN TEST" -270 PRINT -280 REM SET #TRIALS PER EXPERIMENT -290 LET P1=1050 -300 DIM Y(21) -310 PRINT "EXPERIMENT","CHI-SQUARE","CATEGORY" -320 PRINT -330 REM PERFORM 60 EXPERIMENTS OF 1050 SAMPLES EACH -340 REM OF PSEUDO-RANDOM NUMBERS THEN COMPUTE -350 REM AND TEST CHI-SQ STATISTIC FOR EACH EXPERIMENT. -360 REM BELOW ARE CHI-SQ VALUES FOR 20 DEGREES OF FREEDOM FOR -370 REM PERCENTAGES 1,5,10,25,50,75,90,95,99, AND 100 -380 LET L(1)=8.26040 -390 LET L(2)=10.8508 -400 LET L(3)=12.4426 -410 LET L(4)=15.4518 -420 LET L(5)=19.3374 -430 LET L(6)=23.8277 -440 LET L(7)=28.4120 -450 LET L(8)=31.4104 -460 LET L(9)=37.5662 -470 LET L(10)=1E38 -480 REM ZERO OUT CATEGORY COUNTS -490 FOR C=1 TO 10 -500 LET Z(C)=0 -510 NEXT C -520 REM DO 60 EXPERIMENTS, SO EXPECTED NUMBER FOR EACH GLOBAL -530 REM CATEGORY IS >= 5 -540 FOR E=1 TO 60 -550 REM INITIALIZE OBSERVED COUNTS AT 0 FOR A PARTITION OF THE -560 REM UNIT INTERVAL INTO 21 CELLS -570 FOR I = 1 TO 21 -580 LET Y(I) = 0 -590 NEXT I -600 REM OBTAIN FREQUENCY COUNTS FOR 1050 RANDOM NUMBERS -610 FOR I=1 TO P1 -620 LET X = RND -630 LET R = INT(21*X) + 1 -640 LET Y(R) = Y(R) + 1 -650 NEXT I -660 REM COMPUTE CHI-SQ STATISTIC FOR EACH EXPERIMENT -670 LET S = 0 -680 FOR I = 1 TO 21 -690 LET S = S + (21*Y(I)*Y(I)) -700 NEXT I -710 LET V1=(S/P1) - P1 -720 REM TEST CHI-SQ STATISTIC FOR EACH EXPERIMENT -730 FOR C=1 TO 10 -740 IF V1= 5, AS REQUIRED BY" -1330 PRINT "CHI-SQUARE TEST." -1340 PRINT -1350 PRINT "FOR FIVE D.F., SHOULD HAVE 1.145476 <= CHI-SQ <= 11.0705" -1360 PRINT "(5% TAIL AT EACH END.)" -1370 PRINT -1380 PRINT "ACTUAL CHI-SQ = ";V1 -1390 PRINT -1400 IF V1<1.145476 THEN 1440 -1410 IF V1>11.0705 THEN 1440 -1420 PRINT " *** TEST PASSED *** " -1430 GOTO 1450 -1440 PRINT " *** TEST FAILED *** " -1450 PRINT -1460 PRINT " END TEST" -1470 PRINT -1480 PRINT "END PROGRAM 133" -1490 END diff --git a/bwbtest/NBS2/P133.run b/bwbtest/NBS2/P133.run deleted file mode 100644 index 74f5d8b..0000000 --- a/bwbtest/NBS2/P133.run +++ /dev/null @@ -1,124 +0,0 @@ -PROGRAM FILE 133: CHI-SQUARE UNIFORMITY TEST FOR - RND FUNCTION. - ANSI STANDARD 8.4 - -SECTION 133.1: CHI-SQUARE UNIFORMITY TEST FOR - RND FUNCTION. - -THIS PROGRAM RUNS A SERIES OF 60 EXPERIMENTS OF 1040 SAMPLES -TO DETERMINE IF THE RANDOM NUMBERS ARE EQUALLY DISTRIBUTED -AMONG 21 EQUAL-SIZE INTERVALS BETWEEN 0 AND 1. CHI-SQUARE -IS COMPUTED AND DISPLAYED FOR EACH OF THESE EXPERIMENTS. -EACH CHI-SQUARE RESULT IS CATEGORIZED ACCORDING TO THE -PERCENTILE RANGE INTO WHICH ITS VALUE FALLS: - -CATEGORY % RANGE CATEGORY % RANGE - 1 0-1 6 50-75 - 2 1-5 7 75-90 - 3 5-10 8 90-95 - 4 10-25 9 95-99 - 5 25-50 10 99-100 - -THESE CATEGORICAL RESULTS ARE THEN EVALUATED AGAIN USING -CHI-SQUARE (THE FIRST AND LAST THREE CATEGORIES ARE EACH -CONSOLIDATED INTO ONE), AND IF THE DISTRIBUTION AMONG -CATEGORIES IS SUFFICIENTLY IMPROBABLE (TOP OR BOTTOM 5%), -THE TEST FAILS. - - BEGIN TEST - -EXPERIMENT CHI-SQUARE CATEGORY - - 1 13.76 4 - 2 19.96 6 - 3 22.32 6 - 4 16.68 5 - 5 24.92 7 - 6 13.92 4 - 7 20.96 6 - 8 14.24 4 - 9 23.84 7 - 10 18.36 5 - 11 17.44 5 - 12 18.28 5 - 13 15.28 4 - 14 31.56 9 - 15 17.92 5 - 16 29.44 8 - 17 10.96 3 - 18 35.32 9 - 19 23.44 6 - 20 24.2 7 - 21 22.96 6 - 22 24.2 7 - 23 23.96 7 - 24 27.32 7 - 25 22.36 6 - 26 21.12 6 - 27 18 5 - 28 10.72 2 - 29 21.28 6 - 30 16.4 5 - 31 12 3 - 32 17.4 5 - 33 18.32 5 - 34 16.2 5 - 35 30.12 8 - 36 22.4 6 - 37 11.16 3 - 38 16.72 5 - 39 23.08 6 - 40 24.24 7 - 41 13.12 4 - 42 22.04 6 - 43 16.44 5 - 44 15.36 4 - 45 28.88 8 - 46 16.08 5 - 47 18.08 5 - 48 24.76 7 - 49 23.88 7 - 50 22.48 6 - 51 19.44 6 - 52 24.52 7 - 53 33.64 9 - 54 12.48 4 - 55 17.2 5 - 56 16.68 5 - 57 24.32 7 - 58 13.32 4 - 59 23.76 6 - 60 17.04 5 - - - -SUMMARY EVALUATION STATISTICS - - ACTUAL EXPECTED -CATEGORY COUNT COUNT - 1 0 .6 - 2 1 2.4 - 3 3 3 - 4 8 9 - 5 17 15 - 6 14 15 - 7 11 9 - 8 3 3 - 9 3 2.4 - 10 0 .6 - - -WILL CONSOLIDATE CATEGORIES 1-3 AND 8-10, SO THAT -EXPECTED VALUE IN EACH IS >= 5, AS REQUIRED BY -CHI-SQUARE TEST. - -FOR FIVE D.F., SHOULD HAVE 1.145476 <= CHI-SQ <= 11.0705 -(5% TAIL AT EACH END.) - -ACTUAL CHI-SQ = 1.55556 - - *** TEST PASSED *** - - END TEST - -END PROGRAM 133 diff --git a/bwbtest/NBS2/P134.BAS b/bwbtest/NBS2/P134.BAS deleted file mode 100644 index 00d0fe4..0000000 --- a/bwbtest/NBS2/P134.BAS +++ /dev/null @@ -1,182 +0,0 @@ -10 PRINT "PROGRAM FILE 134: KOMOLGOROV-SMIRNOV UNIFORMITY TEST FOR" -15 PRINT " RND FUNCTION." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 134.1: KOMOLGOROV-SMIRNOV UNIFORMITY TEST FOR" -50 PRINT " RND FUNCTION." -60 PRINT -70 PRINT "THIS PROGRAM RUNS 30 TESTS OF 1000 SAMPLES EACH TO CHECK" -80 PRINT "UNIFORMITY OF DISTRIBUTION OF RANDOM NUMBERS. KOMOLGOROV-" -90 PRINT "SMIRNOV (K-S) STATISTICS (K+ AND K-) ARE GENERATED FOR" -100 PRINT "EACH TEST. THESE TWO NUMBERS ARE A MEASURE OF THE GREATEST" -110 PRINT "DEVIATION, IN THE POSITIVE AND NEGATIVE DIRECTION, OF THE" -120 PRINT "ACCUMULATION OF THE 1000 NUMBERS FROM THE IDEAL DISTRIBUTION" -130 PRINT "OF F(X)=X, 0<=X<1." -140 PRINT -150 PRINT "THESE TWO SETS (K+ AND K-) OF 30 STATISTICS THEMSELVES HAVE" -160 PRINT "AN EXPECTED DISTRIBUTION OF F(X) = 1 - EXP(-2*X*X). THE" -170 PRINT "K-S TEST IS RUN AGAIN ON EACH OF THESE TWO SETS, AND IF" -180 PRINT "THE DEVIATION IS TOO GREAT (TOP OR BOTTOM 1%) FOR ANY ONE " -190 PRINT "OF THE RESULTING STATISTICS, THEN THE TEST FAILS." -200 PRINT -210 PRINT " BEGIN TEST" -220 PRINT -230 DIM P(1200),Q(30),R(30) -240 REM SET #TRIALS PER EXPERIMENT -250 LET N=1000 -260 REM SET #SLOTS USED IN ARRAY -270 LET N8=INT(1.1*N) -280 REM SET #EXPERIMENTS -290 LET N9=30 -300 PRINT -310 REM BEGIN TEST LOOP -320 PRINT "TEST","K+","K-" -330 FOR L=1 TO N9 -340 REM MARK SLOTS AS EMPTY -350 FOR I=1 TO N8 -360 LET P(I)=3 -370 NEXT I -380 REM FILL SLOTS WITH RANDOM VALUES, APPROXIMATELY IN ORDER -390 FOR I=1 TO N -400 LET X=RND -410 LET X1=INT(N8*X) -411 REM MR. HAM ADDED NEXT 2 LINES TO FIX TEST -412 IF X1>0 THEN 420 -413 LET X1=X1+1 -420 IF P(X1)<>3 THEN 460 -430 LET P(X1)=X -440 GOTO 590 -450 REM IF PRIMARY SLOT FILLED, SEARCH FOR NEAREST EMPTY SLOT -460 FOR J=1 TO N8 -470 IF X1-J<1 THEN 510 -480 IF P(X1-J)<>3 THEN 510 -490 LET P(X1-J)=X -500 GOTO 590 -510 IF X1+J>N8 THEN 550 -520 IF P(X1+J)<>3 THEN 550 -530 LET P(X1+J)=X -540 GOTO 590 -550 NEXT J -560 PRINT "RED ALERT - NO SLOT FOUND",I,X -570 PRINT "FATAL ERROR IN PROGRAM ALGORITHM" -580 STOP -590 NEXT I -600 REM FIND GROUPS SEPARATED BY EMPTY SLOTS -605 REM ASSERT ALL ELEMENTS OF ONE GROUP < ALL ELEMENTS OF NEXT GROUP -607 REM THEREFORE, NEED SORT ONLY WITHIN GROUPS -610 LET I=1 -620 FOR I8=I TO N8 -630 IF P(I8)<>3 THEN 660 -640 NEXT I8 -650 GOTO 930 -660 FOR I9=I8 TO N8 -670 IF P(I9)=3 THEN 700 -680 NEXT I9 -690 LET I9=N8+1 -700 IF I8>=I9-1 THEN 720 -710 GOSUB 750 -720 LET I=I9 -730 GOTO 620 -740 REM BUBBLE-SORT A GROUP -750 LET I5=I8 -760 LET I6=I9-2 -770 LET I7=1 -780 LET A3=0 -790 FOR J1=I5 TO I6 STEP I7 -800 IF P(J1)<=P(J1+1) THEN 850 -810 LET A3=9 -820 LET W=P(J1) -830 LET P(J1)=P(J1+1) -840 LET P(J1+1)=W -850 NEXT J1 -860 REM REVERSE DIRECTION OF SCAN -870 LET W=I5 -880 LET I5=I6 -890 LET I6=W -900 LET I7=0-I7 -910 IF A3<>0 THEN 780 -920 RETURN -930 REM GROUPS SORTED, DO COMPRESS -940 LET S1=0 -950 FOR R1=1 TO N -960 LET S1=S1+1 -970 IF P(S1)=3 THEN 960 -980 LET P(R1)=P(S1) -990 NEXT R1 -1000 LET M1=-1E38 -1010 LET M2=-1E38 -1020 REM FIND K+ AND K- ON PRIMARY DATA -1030 FOR I=1 TO N -1040 LET N1=(I/N)-P(I) -1050 LET N2=P(I)-((I-1)/N) -1060 IF N1= 10 -180 LET T=10 -190 REM SET LOW END OF HIT INTERVAL -200 LET A1=.03 -210 REM SET HIGH END OF HIT INTERVAL -220 LET A2=.13 -230 REM SET SIZE OF HIT INTERVAL -240 LET A3=A2-A1 -250 REM PROB. THAT GAP >= T -260 LET P1=(1-A3)^T -270 REM PROB. THAT GAP = T-1 -280 LET P2=A3*((1-A3)^(T-1)) -290 IF P1= 10 -330 LET N=INT(10/P1)+1 -340 PRINT -350 PRINT "WILL RUN ";N;" TRIALS, SO THAT EACH POSSIBILITY HAS" -360 PRINT "EXPECTED VALUE >= 10." -370 FOR I=0 TO T -380 LET C(I)=0 -390 NEXT I -400 PRINT -410 PRINT -420 PRINT "GAP SIZE","ACTUAL COUNT","EXPECTED COUNT" -430 PRINT -440 FOR N1=1 TO N -450 LET R=0 -460 LET X=RND -470 IF X=";I,C(I),P9*N -650 LET S=S+(C(I)*C(I)/P9) -660 NEXT I -670 LET V=(S/N)-N -680 PRINT -690 PRINT "FOR 10 D.F., SHOULD HAVE 3.9403 <= CHI-SQ <= 18.307" -700 PRINT "(5% TAIL AT EACH END.)" -710 PRINT -720 PRINT "ACTUAL CHI-SQ = ";V -730 PRINT -740 IF V<3.9403 THEN 780 -750 IF V>18.307 THEN 780 -760 PRINT "*** INFORMATIVE TEST PASSED ***" -770 GOTO 790 -780 PRINT "*** INFORMATIVE TEST FAILED ***" -790 PRINT -800 PRINT " END TEST" -810 PRINT -820 PRINT "END PROGRAM 136" -830 END diff --git a/bwbtest/NBS2/P136.run b/bwbtest/NBS2/P136.run deleted file mode 100644 index 823578e..0000000 --- a/bwbtest/NBS2/P136.run +++ /dev/null @@ -1,43 +0,0 @@ -PROGRAM FILE 136: GAP TEST FOR RND FUNCTION. - ANSI STANDARD 8.4 - -SECTION 136.1: GAP TEST FOR RND FUNCTION. - -THIS PROGRAM TESTS THAT THE GAPS BETWEEN NUMBERS WITHIN -A SPECIFIED INTERVAL ARE DISTRIBUTED AS EXPECTED FOR -UNIFORMLY DISTRIBUTED RANDOM NUMBERS. CHI-SQUARE IS -COMPUTED AND DISPLAYED AS THE RESULT. - -***** THIS TEST IS INFORMATIVE ONLY. ***** - - BEGIN TEST - - -WILL RUN 259 TRIALS, SO THAT EACH POSSIBILITY HAS -EXPECTED VALUE >= 10. - - -GAP SIZE ACTUAL COUNT EXPECTED COUNT - - 0 23 25.9 - 1 25 23.31 - 2 8 20.979 - 3 18 18.8811 - 4 23 16.993 - 5 20 15.2937 - 6 16 13.7643 - 7 18 12.3879 - 8 12 11.1491 - 9 14 10.0342 ->= 10 82 90.3077 - -FOR 10 D.F., SHOULD HAVE 3.9403 <= CHI-SQ <= 18.307 -(5% TAIL AT EACH END.) - -ACTUAL CHI-SQ = 17.392 - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 136 diff --git a/bwbtest/NBS2/P137.BAS b/bwbtest/NBS2/P137.BAS deleted file mode 100644 index 305a2cb..0000000 --- a/bwbtest/NBS2/P137.BAS +++ /dev/null @@ -1,114 +0,0 @@ -10 PRINT "PROGRAM FILE 137: POKER TEST FOR RND FUNCTION." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 137.1: POKER TEST FOR RND FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM CATEGORIZES FIXED-SIZE GROUPS OF RANDOM NUMBERS" -70 PRINT "BASED ON HOW MANY DIFFERENT TYPES OF NUMBER ARE IN EACH" -80 PRINT "GROUP. A TYPE IS DETERMINED BY WHICH FRACTION OF THE 0 - 1" -90 PRINT "SEGMENT THE VALUE OF THE NUMBER FALLS WITHIN. CHI-SQUARE" -100 PRINT "IS THEN COMPUTED AND DISPLAYED AS THE RESULT TO SEE IF" -110 PRINT "IT IS COMPATIBLE WITH THE EXPECTED DISTRIBUTION FOR UNIFORM" -120 PRINT "RANDOM NUMBERS." -130 PRINT -140 PRINT "***** THIS TEST IS INFORMATIVE ONLY *****" -150 PRINT -160 PRINT " BEGIN TEST" -170 PRINT -180 DIM B(20) -190 REM SET SIZE OF GROUPS -200 LET K=5 -210 REM SET #TYPES -220 LET D=7 -230 IF D>=K THEN 260 -240 PRINT "ALGORITHM INVALID FOR D= 5, AS NEEDED FOR CHI-SQUARE TEST." -290 PRINT -300 FOR I=1 TO K -310 LET C(I)=0 -320 NEXT I -330 FOR N1=1 TO N -340 LET R=0 -350 REM MARK B-ARRAY AS NO TYPE S HIT SO FAR -360 FOR I=1 TO D -370 LET B(I)=0 -380 NEXT I -390 FOR I=1 TO K -400 LET J=INT(D*RND)+1 -410 IF B(J)=1 THEN 450 -420 REM GOT A NEW TYPE, MARK AND COUNT -430 LET R=R+1 -440 LET B(J)=1 -450 NEXT I -460 LET C(R)=C(R)+1 -470 NEXT N1 -480 LET S=0 -490 REM SET TOTAL #POSSIBILITIES -500 LET D1=D^K -510 PRINT "#TYPES","ACTUAL COUNT","EXPECTED COUNT" -520 FOR I=1 TO K -530 LET F=1 -540 FOR J=(D-I)+1 TO D -550 LET F=F*J -560 NEXT J -570 LET R=I -580 REM GET STIRLING NUMBER FOR K,R -590 REM RESULT IN A9 -600 GOSUB 840 -610 REM F=PROB OF I DIFFERENT TYPES -620 LET F=(F*A9)/D1 -630 PRINT I,C(I),F*N -640 LET S=S+(C(I)*C(I))/F -650 NEXT I -660 LET V=(S/N) - N -670 REM CHI-SQ FOR 4 D.F. -680 PRINT -690 PRINT "FOR FOUR D.F., SHOULD HAVE .710721 <= CHI-SQ <= 9.48773" -700 PRINT "(5% TAIL AT EACH END.)" -710 PRINT -720 PRINT "ACTUAL CHI-SQ = ";V -730 PRINT -740 IF V<.710721 THEN 780 -750 IF V>9.48773 THEN 780 -760 PRINT "*** INFORMATIVE TEST PASSED ***" -770 GOTO 790 -780 PRINT "*** INFORMATIVE TEST FAILED ***" -790 PRINT -800 PRINT " END TEST" -810 PRINT -820 PRINT "END PROGRAM 137" -830 STOP -840 REM GIVEN K,R, WHAT IS STIRLING NUMBER? -850 REM ANSWER RETURNED IN A9 -860 IF R>K THEN 910 -870 IF R=K THEN 930 -880 IF R=1 THEN 930 -890 IF R=0 THEN 910 -900 GOTO 950 -910 LET A9=0 -920 GOTO 1130 -930 LET A9=1 -940 GOTO 1130 -950 DIM A(20) -960 REM THIS LIMITS RANGE OF ROUTINE TO R<=20 (K UNCONSTRAINED) -970 FOR I8=1 TO 20 -980 LET A(I8)=1 -990 NEXT I8 -1000 LET K9=K-R -1010 FOR K1=3 TO K -1020 LET M1=R -1030 IF RK1-K9 THEN 1080 -1070 LET M2=K1-K9 -1080 FOR R1=M1 TO M2 STEP -1 -1090 LET A(R1)=R1*A(R1)+A(R1-1) -1100 NEXT R1 -1110 NEXT K1 -1120 LET A9=A(R) -1130 RETURN -1140 END diff --git a/bwbtest/NBS2/P137.run b/bwbtest/NBS2/P137.run deleted file mode 100644 index 48e9271..0000000 --- a/bwbtest/NBS2/P137.run +++ /dev/null @@ -1,39 +0,0 @@ -PROGRAM FILE 137: POKER TEST FOR RND FUNCTION. - ANSI STANDARD 8.4 - -SECTION 137.1: POKER TEST FOR RND FUNCTION. - -THIS PROGRAM CATEGORIZES FIXED-SIZE GROUPS OF RANDOM NUMBERS -BASED ON HOW MANY DIFFERENT TYPES OF NUMBER ARE IN EACH -GROUP. A TYPE IS DETERMINED BY WHICH FRACTION OF THE 0 - 1 -SEGMENT THE VALUE OF THE NUMBER FALLS WITHIN. CHI-SQUARE -IS THEN COMPUTED AND DISPLAYED AS THE RESULT TO SEE IF -IT IS COMPATIBLE WITH THE EXPECTED DISTRIBUTION FOR UNIFORM -RANDOM NUMBERS. - -***** THIS TEST IS INFORMATIVE ONLY ***** - - BEGIN TEST - -RUNNING 12005 TRIALS, SO THAT EACH POSSIBILITY HAS -EXPECTED VALUE >= 5, AS NEEDED FOR CHI-SQUARE TEST. - -#TYPES ACTUAL COUNT EXPECTED COUNT - 1 6 5 - 2 435 450 - 3 3821 3750 - 4 5915 6000 - 5 1828 1800 - -FOR FOUR D.F., SHOULD HAVE .710721 <= CHI-SQ <= 9.48773 -(5% TAIL AT EACH END.) - -ACTUAL CHI-SQ = 3.68399 - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 137 - -Program interrupted at line 830 diff --git a/bwbtest/NBS2/P138.BAS b/bwbtest/NBS2/P138.BAS deleted file mode 100644 index dd3dd9a..0000000 --- a/bwbtest/NBS2/P138.BAS +++ /dev/null @@ -1,118 +0,0 @@ -10 PRINT "PROGRAM FILE 138: COUPON COLLECTOR TEST OF RND FUNCTION." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 138.1: COUPON COLLECTOR TEST OF RND FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM TESTS HOW MANY RANDOM NUMBERS MUST BE GENERATED" -70 PRINT "(UP TO A MAXIMUM) TO GET AT LEAST ONE OF EACH TYPE. A TYPE IS" -80 PRINT "DETERMINED BY WHICH FRACTION OF THE 0 - 1 SEGMENT THE VALUE" -90 PRINT "OF THE NUMBER FALLS WITHIN. CHI-SQUARE IS COMPUTED AND" -110 PRINT "DISPLAYED TO SEE WHETHER IT IS COMPATIBLE WITH THE" -120 PRINT "EXPECTED DISTRIBUTION FOR UNIFORM RANDOM NUMBERS." -130 PRINT -140 PRINT "***** THIS TEST IS INFORMATIVE ONLY *****" -150 PRINT -160 PRINT " BEGIN TEST" -170 DIM C(30) -180 DIM O(20) -190 REM SET #TRIALS -200 LET N=2000 -210 REM SET #TYPES -220 LET D=5 -230 REM SET MAX LENGTH -240 LET T=25 -250 REM C-ARRAY COUNTS HOW MANY SEARCHES OF EACH LENGTH WERE DONE -260 FOR I=1 TO T -270 LET C(I)=0 -280 NEXT I -290 FOR N1=1 TO N -300 REM R COUNTS LENGTH OF SEARCH -310 LET R=0 -320 REM Q COUNTS NUMBER OF DISTINCT TYPES SO FAR -330 LET Q=0 -340 REM O-ARRAY KEEPS TRACK OF WHICH TYPES HAVE BEEN HIT SO FAR -350 FOR I=0 TO D-1 -360 LET O(I)=0 -370 NEXT I -380 LET R=R+1 -390 LET X=INT(RND*D) -400 IF O(X)=1 THEN 380 -410 LET O(X)=1 -420 LET Q=Q+1 -430 IF Q=";T,C(T),N*P -720 LET S=S+(C(T)*C(T))/P -730 LET V=(S/N) - N -735 PRINT -740 PRINT "FOR 20 D.F., SHOULD HAVE 10.8508 <= CHI-SQ <= 31.4104" -750 PRINT "(5% TAIL AT EACH END.)" -760 PRINT -770 PRINT "ACTUAL CHI-SQ = ";V -780 PRINT -790 IF V<10.8508 THEN 830 -800 IF V>31.4104 THEN 830 -810 PRINT "*** INFORMATIVE TEST PASSED ***" -820 GOTO 840 -830 PRINT "*** INFORMATIVE TEST FAILED ***" -840 PRINT -850 PRINT " END TEST" -860 PRINT -870 PRINT "END PROGRAM 138" -880 STOP -890 REM GIVEN K9,R9, COMPUTE STIRLING NUMBER AND RETURN IN A9 -900 IF R9>K9 THEN 950 -910 IF R9=K9 THEN 970 -920 IF R9=1 THEN 970 -930 IF R9=0 THEN 950 -940 GOTO 990 -950 LET A9=0 -960 GOTO 1170 -970 LET A9=1 -980 GOTO 1170 -990 DIM A(20) -1000 REM THIS LIMITS RANGE OF ROUTINE TO R9<=20 (K9 UNCONSTRAINED) -1010 FOR I8=1 TO 20 -1020 LET A(I8)=1 -1030 NEXT I8 -1040 LET K8=K9-R9 -1050 FOR K1=3 TO K9 -1060 LET M1=R9 -1070 IF R9K1-K8 THEN 1120 -1110 LET M2=K1-K8 -1120 FOR R1=M1 TO M2 STEP -1 -1130 LET A(R1)=R1*A(R1)+A(R1-1) -1140 NEXT R1 -1150 NEXT K1 -1160 LET A9=A(R9) -1170 RETURN -1180 END diff --git a/bwbtest/NBS2/P138.run b/bwbtest/NBS2/P138.run deleted file mode 100644 index f1f65a5..0000000 --- a/bwbtest/NBS2/P138.run +++ /dev/null @@ -1,52 +0,0 @@ -PROGRAM FILE 138: COUPON COLLECTOR TEST OF RND FUNCTION. - ANSI STANDARD 8.4 - -SECTION 138.1: COUPON COLLECTOR TEST OF RND FUNCTION. - -THIS PROGRAM TESTS HOW MANY RANDOM NUMBERS MUST BE GENERATED -(UP TO A MAXIMUM) TO GET AT LEAST ONE OF EACH TYPE. A TYPE IS -DETERMINED BY WHICH FRACTION OF THE 0 - 1 SEGMENT THE VALUE -OF THE NUMBER FALLS WITHIN. CHI-SQUARE IS COMPUTED AND -DISPLAYED TO SEE WHETHER IT IS COMPATIBLE WITH THE -EXPECTED DISTRIBUTION FOR UNIFORM RANDOM NUMBERS. - -***** THIS TEST IS INFORMATIVE ONLY ***** - - BEGIN TEST - -SEARCH LENGTH ACTUAL COUNT EXPECTED COUNT - - 5 65 76.8 - 6 161 153.6 - 7 189 199.68 - 8 214 215.04 - 9 200 209.019 - 10 226 190.956 - 11 164 167.633 - 12 153 143.278 - 13 99 120.226 - 14 92 99.5831 - 15 86 81.724 - 16 61 66.6201 - 17 58 54.0433 - 18 52 43.6839 - 19 36 35.2171 - 20 23 28.3359 - 21 17 22.7661 - 22 23 18.2713 - 23 15 14.6521 - 24 14 11.7427 ->= 25 52 47.1289 - -FOR 20 D.F., SHOULD HAVE 10.8508 <= CHI-SQ <= 31.4104 -(5% TAIL AT EACH END.) - -ACTUAL CHI-SQ = 21.8524 - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 138 - -Program interrupted at line 880 diff --git a/bwbtest/NBS2/P139.BAS b/bwbtest/NBS2/P139.BAS deleted file mode 100644 index 7287f8b..0000000 --- a/bwbtest/NBS2/P139.BAS +++ /dev/null @@ -1,76 +0,0 @@ -10 PRINT "PROGRAM FILE 139: PERMUTATION TEST FOR THE RND FUNCTION." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 139.1: PERMUTATION TEST FOR THE RND FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE THAT WITHIN FIXED SIZE GROUPS" -70 PRINT "OF RANDOM NUMBERS, ALL ORDERS OF THE VALUES ARE EQUALLY" -80 PRINT "PROBABLE. CHI-SQUARE IS COMPUTED AND DISPLAYED TO SEE" -90 PRINT "WHETHER THE RESULTS ARE COMPATIBLE WITH THE EXPECTED" -100 PRINT "EXPECTED DISTRIBUTION FOR UNIFORM RANDOM NUMBERS." -110 PRINT -120 PRINT "***** THIS TEST IS INFORMATIVE ONLY *****" -130 PRINT -140 PRINT " BEGIN TEST" -150 PRINT -160 DIM C(25) -170 REM SET SIZE OF GROUP: -180 LET T=4 -190 LET T1=1 -200 REM T1=T1 -210 FOR I=2 TO T -220 LET T1=T1*I -230 NEXT I -240 REM SET #TRIALS -250 LET N=10*T1 -260 FOR I=0 TO T1 -270 LET C(I)=0 -280 NEXT I -290 FOR N1=1 TO N -300 LET A=0 -310 LET K=1 -320 FOR I=1 TO T -330 LET B(I)=RND -340 NEXT I -350 FOR R=T TO 1 STEP -1 -360 LET M1=-1 -370 REM FIND MAX OF REMAINDER OF THIS GROUP -380 FOR I=1 TO R -390 IF B(I)= 6 ARE CONSOLIDATED" -120 PRINT "INT ONE CATEGORY." -130 PRINT -140 PRINT "***** THIS TEST IS INFORMATIVE ONLY *****" -150 PRINT -160 PRINT " BEGIN TEST" -170 PRINT -180 LET T=6 -190 LET N=5000 -200 REM ZERO OUT TYPE COUNTS FOR RUNS -210 FOR I=1 TO T -220 LET C(I)=0 -230 NEXT I -240 LET Y=RND -250 REM GATHER STATS ON N TRIALS -260 LET N1=1 -270 REM COUNT LENGTH OF NEW RUN -280 LET K=1 -290 LET X=RND -300 LET N1=N1+1 -310 IF N1>N THEN 390 -320 REM TO TEST RUNS DOWN, SIMPLY CHANGE "<" TO ">" IN NEXT LINE -330 IF X="; -530 PRINT I,C(I),N*F -540 NEXT I -550 LET S=0 -560 REM COMPUTE MATRIX SUM -570 FOR I=1 TO T -580 FOR J=1 TO T -590 REM READ A-MATRIX VALUES -600 READ F -610 LET S=S+(W(I)*W(J)*F) -620 NEXT J -630 NEXT I -640 LET V=S/N -650 PRINT -660 PRINT "FOR 6 D.F., SHOULD HAVE 1.63539 <= CHI-SQ <= 12.5916" -670 PRINT "(5% TAIL ON EACH END.)" -680 PRINT -690 PRINT "ACTUAL CHI-SQ = ";V -700 REM V SHOULD BE DISTRIBUTED AS CHI-SQ WITH 6 D.F -710 PRINT -720 IF V<1.63539 THEN 760 -730 IF V>12.5916 THEN 760 -740 PRINT "*** INFORMATIVE TEST PASSED ***" -750 GOTO 770 -760 PRINT "*** INFORMATIVE TEST FAILED ***" -770 PRINT -780 PRINT " END TEST" -790 PRINT -800 PRINT "END PROGRAM 140" -810 REM DATA FOR B-ARRAY: -820 DATA .166667,.208333,9.16667E-2,2.63889E-2,5.75397E-3,1.19048E-3 -830 REM DATA FOR (CONCEPTUAL) A-MATRIX: -840 DATA 4529.4, 9044.9, 13568, 18091, 22615, 27892 -850 DATA 9044.9, 18097, 27139, 36187, 45234, 55789 -860 DATA 13568, 27139, 40721, 54281, 67852, 83685 -870 DATA 18091, 36187, 54281, 72414, 90470, 111580 -880 DATA 22615, 45234, 67852, 90470, 113262,139476 -890 DATA 27892, 55789, 83685, 111580,139476,172860 -900 END diff --git a/bwbtest/NBS2/P140.run b/bwbtest/NBS2/P140.run deleted file mode 100644 index 70dda35..0000000 --- a/bwbtest/NBS2/P140.run +++ /dev/null @@ -1,35 +0,0 @@ -PROGRAM FILE 140: RUNS TEST FOR THE RND FUNCTION. - ANSI STANDARD 8.4 - -SECTION 140.1: RUNS TEST FOR THE RND FUNCTION. - -THIS PROGRAM COUNTS HOW MANY RUNS OF A GIVEN LENGTH OCCUR -WITHIN A SERIES OF RANDOM NUMBERS. A RUN IS A SUBSEQUENCE -OF THE NUMBERS WITHIN WHICH THE VALUES ARE IN ASCENDING -ORDER. THE RESULTS ARE COMPARED WITH THE EXPECTED OUTCOME -FOR UNIFORM RANDOM NUMBERS, AND CHI-SQUARE IS COMPUTED -AND DISPLAYED. ALL RUNS OF LENGTH >= 6 ARE CONSOLIDATED -INT ONE CATEGORY. - -***** THIS TEST IS INFORMATIVE ONLY ***** - - BEGIN TEST - -RUN LENGTH ACTUAL COUNT EXPECTED COUNT - 1 823 833.335 - 2 1049 1041.66 - 3 449 458.334 - 4 135 131.945 - 5 33 28.7698 ->= 6 4 5.9524 - -FOR 6 D.F., SHOULD HAVE 1.63539 <= CHI-SQ <= 12.5916 -(5% TAIL ON EACH END.) - -ACTUAL CHI-SQ = 6.66211 - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 140 diff --git a/bwbtest/NBS2/P141.BAS b/bwbtest/NBS2/P141.BAS deleted file mode 100644 index 148c333..0000000 --- a/bwbtest/NBS2/P141.BAS +++ /dev/null @@ -1,108 +0,0 @@ -10 PRINT "PROGRAM FILE 141: MAXIMUM OF GROUP TEST OF RND FUNCTION." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 141.1: MAXIMUM OF GROUP TEST OF RND FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM FINDS THE MAXIMUM RANDOM NUMBER AMONG FIXED-" -70 PRINT "SIZE GROUPS AND DETERMINES WHETHER THE DISTRIBUTION OF THE" -80 PRINT "MAXIMA IS SUFFICIENTLY CLOSE TO THE EXPECTED DISTRIBUTION" -90 PRINT "FOR UNIFORM RANDOM NUMBERS OF F(X) = X^T, WHERE T IS THE" -100 PRINT "SIZE OF THE GROUPS. THE KOMOLGOROV-SMIRNOV TEST IS USED" -110 PRINT "TO MEASURE HOW WELL THE RESULTS MATCH THE EXPECTATION." -120 PRINT -130 PRINT "***** THIS TEST IS INFORMATIVE ONLY *****" -140 PRINT -150 PRINT " BEGIN TEST" -160 PRINT -170 DIM P(1000) -180 REM SET SIZE OF GROUP -190 LET T=3 -200 REM SET NUMBER OF TRIALS -210 LET N=1000 -220 FOR I=1 TO N -230 REM MARK AS EMPTY -240 LET P(I)=3 -250 NEXT I -260 FOR I=1 TO N -270 LET M=0 -280 FOR J=1 TO T -290 LET X=RND -300 IF X3 THEN 420 -380 REM PRIMARY SLOT EMPTY - FILL IN WITH M -390 LET P(X1)=M -400 GOTO 550 -410 REM IF PRIMARY SLOT FILLED, SEARCH FOR NEAREST EMPTY SLOT -420 FOR J=1 TO N -430 IF X1-J<1 THEN 470 -440 IF P(X1-J)<>3 THEN 470 -450 LET P(X1-J)=M -460 GOTO 550 -470 IF X1+J>N THEN 510 -480 IF P(X1+J)<>3 THEN 510 -490 LET P(X1+J)=M -500 GOTO 550 -510 NEXT J -520 PRINT "RED ALERT - NO SLOT FOUND",I,M -530 PRINT "ERROR IN SORT ALGORITHM - PROGRAM TERMINATES." -540 GOTO 1050 -550 NEXT I -560 REM BUBBLE-SORT TABLE VALUES -570 LET B1=1 -580 LET B3=1 -590 REM A3=0 IMPLIES NO SWAPPING DONE YET -600 LET A3=0 -610 FOR I=B1 TO N-B1 STEP B3 -620 IF P(I)<=P(I+1) THEN 670 -630 LET W=P(I) -640 LET P(I)=P(I+1) -650 LET P(I+1)=W -660 LET A3=3 -670 NEXT I -680 REM B1 AND B3 CAUSE THE BUBBLE-SORT TO ALTERNATELY SCAN THE ARRAY -690 REM FORWARDS AND BACKWARDS -700 LET B1=N-B1 -710 LET B3=-B3 -720 IF A3<>0 THEN 600 -730 LET M1=-1E38 -740 LET M2=-1E38 -750 REM FIND K+ AND K- ON PRIMARY DATA -760 FOR I=1 TO N -770 LET P1=P(I)^T -780 LET N1=(I/N) - P1 -790 LET N2=P1 - ((I-1)/N) -800 IF N1.95 THEN 1030 -990 IF P2<.05 THEN 1030 -1000 IF P2>.95 THEN 1030 -1010 PRINT "*** INFORMATIVE TEST PASSED ***" -1020 GOTO 1040 -1030 PRINT "*** INFORMATIVE TEST FAILED ***" -1040 PRINT -1050 PRINT " END TEST" -1060 PRINT -1070 PRINT "END PROGRAM 141" -1080 END diff --git a/bwbtest/NBS2/P141.run b/bwbtest/NBS2/P141.run deleted file mode 100644 index c08867f..0000000 --- a/bwbtest/NBS2/P141.run +++ /dev/null @@ -1,27 +0,0 @@ -PROGRAM FILE 141: MAXIMUM OF GROUP TEST OF RND FUNCTION. - ANSI STANDARD 8.4 - -SECTION 141.1: MAXIMUM OF GROUP TEST OF RND FUNCTION. - -THIS PROGRAM FINDS THE MAXIMUM RANDOM NUMBER AMONG FIXED- -SIZE GROUPS AND DETERMINES WHETHER THE DISTRIBUTION OF THE -MAXIMA IS SUFFICIENTLY CLOSE TO THE EXPECTED DISTRIBUTION -FOR UNIFORM RANDOM NUMBERS OF F(X) = X^T, WHERE T IS THE -SIZE OF THE GROUPS. THE KOMOLGOROV-SMIRNOV TEST IS USED -TO MEASURE HOW WELL THE RESULTS MATCH THE EXPECTATION. - -***** THIS TEST IS INFORMATIVE ONLY ***** - - BEGIN TEST - - - K+ = .721119 PERCENTILE FOR K+ = .646554 - K- = 7.41161E-2 PERCENTILE FOR K- = 1.09263E-2 - -PERCENTILES SHOULD BE BETWEEN .05 AND .95 - -*** INFORMATIVE TEST FAILED *** - - END TEST - -END PROGRAM 141 diff --git a/bwbtest/NBS2/P142.BAS b/bwbtest/NBS2/P142.BAS deleted file mode 100644 index bcbbbaa..0000000 --- a/bwbtest/NBS2/P142.BAS +++ /dev/null @@ -1,53 +0,0 @@ -10 PRINT "PROGRAM FILE 142: SERIAL CORRELATION TEST OF RND FUNCTION." -20 PRINT " ANSI STANDARD 8.4" -30 PRINT -40 PRINT "SECTION 142.1: SERIAL CORRELATION TEST OF RND FUNCTION." -50 PRINT -60 PRINT "THIS PROGRAM COMPUTES THE SERIAL CORRELATION COEFFICIENT" -70 PRINT "BETWEEN PAIRS OF ADJACENT RANDOM NUMBERS. THE RESULT IS " -80 PRINT "COMPARED WITH THE EXPECTED VALUE FOR UNIFORM INDEPENDENT" -90 PRINT "RANDOM NUMBERS. (BECAUSE THE PAIR I AND I+1 IS NOT" -100 PRINT "COMPLETELY INDEPENDENT OF I+1, I+2, THE EXPECTED VALUE" -110 PRINT "OF THE COEFFICIENT IS NOT EXACTLY ZERO.)" -120 PRINT -130 PRINT "***** THIS TEST IS INFORMATIVE ONLY *****" -140 PRINT -150 PRINT " BEGIN TEST" -160 PRINT -170 LET N=1000 -180 LET Y=RND -190 LET S1=Y -200 LET S2=Y*Y -210 LET S3=0 -220 LET Z=Y -230 REM IN LOOP, X IS CURRENT RND, Y IS PREVIOUS RND. -240 FOR N1=1 TO N -250 LET X=RND -260 LET S1=S1+X -270 LET S2=S2+(X*X) -280 LET S3=S3+(X*Y) -290 LET Y=X -300 NEXT N1 -310 LET S3=S3+(X*Z) -320 LET S4=S1*S1 -330 LET C=((N*S3) - S4) / ((N*S2) - S4) -340 LET U=1/(1-N) -350 LET D=SQR((N*(N-3)) / (N+1)) / (N-1) -360 LET D=D+D -370 PRINT "WITH ABOUT 95% PROBABILITY, WE EXPECT CORRELATION TO" -380 PRINT "EQUAL ";U;" + OR - ";D -390 PRINT -400 PRINT "THAT IS, WE EXPECT ";U-D;" <= CORRELATION <= ";U+D -410 PRINT -420 PRINT "ACTUAL CORRELATION = ";C -430 LET E1=ABS(C-U) -440 PRINT -450 IF E1<=D THEN 480 -460 PRINT "*** INFORMATIVE TEST FAILED ***" -470 GOTO 490 -480 PRINT "*** INFORMATIVE TEST PASSED ***" -490 PRINT -500 PRINT " END TEST" -510 PRINT -520 PRINT "END PROGRAM 142" -530 END diff --git a/bwbtest/NBS2/P142.run b/bwbtest/NBS2/P142.run deleted file mode 100644 index c991442..0000000 --- a/bwbtest/NBS2/P142.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 142: SERIAL CORRELATION TEST OF RND FUNCTION. - ANSI STANDARD 8.4 - -SECTION 142.1: SERIAL CORRELATION TEST OF RND FUNCTION. - -THIS PROGRAM COMPUTES THE SERIAL CORRELATION COEFFICIENT -BETWEEN PAIRS OF ADJACENT RANDOM NUMBERS. THE RESULT IS -COMPARED WITH THE EXPECTED VALUE FOR UNIFORM INDEPENDENT -RANDOM NUMBERS. (BECAUSE THE PAIR I AND I+1 IS NOT -COMPLETELY INDEPENDENT OF I+1, I+2, THE EXPECTED VALUE -OF THE COEFFICIENT IS NOT EXACTLY ZERO.) - -***** THIS TEST IS INFORMATIVE ONLY ***** - - BEGIN TEST - -WITH ABOUT 95% PROBABILITY, WE EXPECT CORRELATION TO -EQUAL -.001001 + OR - 6.31822E-2 - -THAT IS, WE EXPECT -6.41832E-2 <= CORRELATION <= 6.21812E-2 - -ACTUAL CORRELATION = -4.90899E-2 - -*** INFORMATIVE TEST PASSED *** - - END TEST - -END PROGRAM 142 diff --git a/bwbtest/NBS2/P143.BAS b/bwbtest/NBS2/P143.BAS deleted file mode 100644 index ed1d46e..0000000 --- a/bwbtest/NBS2/P143.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 143: ERROR - TWO ARGUMENTS IN LIST FOR" -15 PRINT " SIN FUNCTION." -20 PRINT " ANSI STANDARD 7.2, 7.4, 8.2, 8.4" -30 PRINT -40 PRINT "SECTION 143.1: ERROR - TWO ARGUMENTS IN LIST FOR" -45 PRINT " SIN FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN THE SIN FUNCTION IS" -70 PRINT "INVOKED WITH TWO ARGUMENTS, INSTEAD OF ONE AS SPECIFIED" -80 PRINT "IN THE STANDARD." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST" -230 PRINT -240 PRINT "ABOUT TO ATTEMPT INVOCATION OF SIN." -250 LET A=SIN(1,1) -260 PRINT "PROCESSOR HAS EVALUATED SIN(1,1) = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 143" -310 END diff --git a/bwbtest/NBS2/P143.run b/bwbtest/NBS2/P143.run deleted file mode 100644 index 305c296..0000000 --- a/bwbtest/NBS2/P143.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 143: ERROR - TWO ARGUMENTS IN LIST FOR - SIN FUNCTION. - ANSI STANDARD 7.2, 7.4, 8.2, 8.4 - -SECTION 143.1: ERROR - TWO ARGUMENTS IN LIST FOR - SIN FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN THE SIN FUNCTION IS -INVOKED WITH TWO ARGUMENTS, INSTEAD OF ONE AS SPECIFIED -IN THE STANDARD. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -ABOUT TO ATTEMPT INVOCATION OF SIN. - -ERROR in line 250: Illegal function call diff --git a/bwbtest/NBS2/P144.BAS b/bwbtest/NBS2/P144.BAS deleted file mode 100644 index 286003c..0000000 --- a/bwbtest/NBS2/P144.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 144: ERROR - TWO ARGUMENTS IN LIST FOR" -15 PRINT " ATN FUNCTION." -20 PRINT " ANSI STANDARD 7.2, 7.4, 8.2, 8.4" -30 PRINT -40 PRINT "SECTION 144.1: ERROR - TWO ARGUMENTS IN LIST FOR" -45 PRINT " ATN FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN THE ATN FUNCTION IS" -70 PRINT "INVOKED WITH TWO ARGUMENTS, INSTEAD OF ONE AS SPECIFIED" -80 PRINT "IN THE STANDARD." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST" -230 PRINT -240 PRINT "ABOUT TO ATTEMPT INVOCATION OF ATN." -250 LET A=ATN(1,1) -260 PRINT "PROCESSOR HAS EVALUATED ATN(1,1) = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 144" -310 END diff --git a/bwbtest/NBS2/P144.run b/bwbtest/NBS2/P144.run deleted file mode 100644 index 4ed8edb..0000000 --- a/bwbtest/NBS2/P144.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 144: ERROR - TWO ARGUMENTS IN LIST FOR - ATN FUNCTION. - ANSI STANDARD 7.2, 7.4, 8.2, 8.4 - -SECTION 144.1: ERROR - TWO ARGUMENTS IN LIST FOR - ATN FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN THE ATN FUNCTION IS -INVOKED WITH TWO ARGUMENTS, INSTEAD OF ONE AS SPECIFIED -IN THE STANDARD. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -ABOUT TO ATTEMPT INVOCATION OF ATN. - -ERROR in line 250: Illegal function call diff --git a/bwbtest/NBS2/P145.BAS b/bwbtest/NBS2/P145.BAS deleted file mode 100644 index 91b77b2..0000000 --- a/bwbtest/NBS2/P145.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 145: ERROR - TWO ARGUMENTS IN LIST FOR" -15 PRINT " RND FUNCTION." -20 PRINT " ANSI STANDARD 7.2, 7.4, 8.2, 8.4" -30 PRINT -40 PRINT "SECTION 145.1: ERROR - TWO ARGUMENTS IN LIST FOR" -45 PRINT " RND FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN THE RND FUNCTION IS" -70 PRINT "INVOKED WITH TWO ARGUMENTS, INSTEAD OF NONE AS SPECIFIED" -80 PRINT "IN THE STANDARD." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST" -230 PRINT -240 PRINT "ABOUT TO ATTEMPT INVOCATION OF RND." -250 LET A=RND(1,1) -260 PRINT "PROCESSOR HAS EVALUATED RND(1,1) = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 145" -310 END diff --git a/bwbtest/NBS2/P145.run b/bwbtest/NBS2/P145.run deleted file mode 100644 index eccef35..0000000 --- a/bwbtest/NBS2/P145.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 145: ERROR - TWO ARGUMENTS IN LIST FOR - RND FUNCTION. - ANSI STANDARD 7.2, 7.4, 8.2, 8.4 - -SECTION 145.1: ERROR - TWO ARGUMENTS IN LIST FOR - RND FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN THE RND FUNCTION IS -INVOKED WITH TWO ARGUMENTS, INSTEAD OF NONE AS SPECIFIED -IN THE STANDARD. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -ABOUT TO ATTEMPT INVOCATION OF RND. - -ERROR in line 250: Illegal function call diff --git a/bwbtest/NBS2/P146.BAS b/bwbtest/NBS2/P146.BAS deleted file mode 100644 index 7d188ba..0000000 --- a/bwbtest/NBS2/P146.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 146: ERROR - ONE ARGUMENT IN LIST FOR" -15 PRINT " RND FUNCTION." -20 PRINT " ANSI STANDARD 7.2, 7.4, 8.2, 8.4" -30 PRINT -40 PRINT "SECTION 146.1: ERROR - ONE ARGUMENT IN LIST FOR" -45 PRINT " RND FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN THE RND FUNCTION IS" -70 PRINT "INVOKED WITH ONE ARGUMENT, INSTEAD OF NONE AS SPECIFIED" -80 PRINT "IN THE STANDARD." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST" -230 PRINT -240 PRINT "ABOUT TO ATTEMPT INVOCATION OF RND." -250 LET A=RND(0) -260 PRINT "PROCESSOR HAS EVALUATED RND(0) = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 146" -310 END diff --git a/bwbtest/NBS2/P146.run b/bwbtest/NBS2/P146.run deleted file mode 100644 index ef9bd84..0000000 --- a/bwbtest/NBS2/P146.run +++ /dev/null @@ -1,31 +0,0 @@ -PROGRAM FILE 146: ERROR - ONE ARGUMENT IN LIST FOR - RND FUNCTION. - ANSI STANDARD 7.2, 7.4, 8.2, 8.4 - -SECTION 146.1: ERROR - ONE ARGUMENT IN LIST FOR - RND FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN THE RND FUNCTION IS -INVOKED WITH ONE ARGUMENT, INSTEAD OF NONE AS SPECIFIED -IN THE STANDARD. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -ABOUT TO ATTEMPT INVOCATION OF RND. -PROCESSOR HAS EVALUATED RND(0) = .396465 - - END TEST - -END PROGRAM 146 diff --git a/bwbtest/NBS2/P147.BAS b/bwbtest/NBS2/P147.BAS deleted file mode 100644 index f736a61..0000000 --- a/bwbtest/NBS2/P147.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 147: ERROR - NULL ARGUMENT-LIST FOR" -15 PRINT " INT FUNCTION." -20 PRINT " ANSI STANDARD 7.2, 7.4, 8.2, 8.4" -30 PRINT -40 PRINT "SECTION 147.1: ERROR - NULL ARGUMENT-LIST FOR" -45 PRINT " INT FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN THE INT FUNCTION IS" -70 PRINT "INVOKED WITH NO ARGUMENTS, INSTEAD OF ONE AS SPECIFIED" -80 PRINT "IN THE STANDARD." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST" -230 PRINT -240 PRINT "ABOUT TO ATTEMPT INVOCATION OF INT." -250 LET A=INT() -260 PRINT "PROCESSOR HAS EVALUATED INT() = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 147" -310 END diff --git a/bwbtest/NBS2/P147.run b/bwbtest/NBS2/P147.run deleted file mode 100644 index 0cc54b1..0000000 --- a/bwbtest/NBS2/P147.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 147: ERROR - NULL ARGUMENT-LIST FOR - INT FUNCTION. - ANSI STANDARD 7.2, 7.4, 8.2, 8.4 - -SECTION 147.1: ERROR - NULL ARGUMENT-LIST FOR - INT FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN THE INT FUNCTION IS -INVOKED WITH NO ARGUMENTS, INSTEAD OF ONE AS SPECIFIED -IN THE STANDARD. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -ABOUT TO ATTEMPT INVOCATION OF INT. - -ERROR in line 250: Illegal function call diff --git a/bwbtest/NBS2/P148.BAS b/bwbtest/NBS2/P148.BAS deleted file mode 100644 index 0493af5..0000000 --- a/bwbtest/NBS2/P148.BAS +++ /dev/null @@ -1,32 +0,0 @@ -10 PRINT "PROGRAM FILE 148: ERROR - MISSING ARGUMENT LIST FOR" -15 PRINT " TAN FUNCTION." -20 PRINT " ANSI STANDARD 7.2, 7.4, 8.2, 8.4" -30 PRINT -40 PRINT "SECTION 148.1: ERROR - MISSING ARGUMENT LIST FOR" -45 PRINT " TAN FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN THE TAN FUNCTION IS" -70 PRINT "INVOKED WITHOUT AN ARGUMENT-LIST." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST" -230 PRINT -240 PRINT "ABOUT TO ATTEMPT INVOCATION OF TAN." -250 LET A=TAN -260 PRINT "PROCESSOR HAS EVALUATED TAN = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 148" -310 END diff --git a/bwbtest/NBS2/P148.run b/bwbtest/NBS2/P148.run deleted file mode 100644 index 657b9e9..0000000 --- a/bwbtest/NBS2/P148.run +++ /dev/null @@ -1,27 +0,0 @@ -PROGRAM FILE 148: ERROR - MISSING ARGUMENT LIST FOR - TAN FUNCTION. - ANSI STANDARD 7.2, 7.4, 8.2, 8.4 - -SECTION 148.1: ERROR - MISSING ARGUMENT LIST FOR - TAN FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN THE TAN FUNCTION IS -INVOKED WITHOUT AN ARGUMENT-LIST. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -ABOUT TO ATTEMPT INVOCATION OF TAN. - -ERROR in line 250: Illegal function call diff --git a/bwbtest/NBS2/P149.BAS b/bwbtest/NBS2/P149.BAS deleted file mode 100644 index aae0a17..0000000 --- a/bwbtest/NBS2/P149.BAS +++ /dev/null @@ -1,32 +0,0 @@ -10 PRINT "PROGRAM FILE 149: ERROR - NULL ARGUMENT-LIST FOR" -15 PRINT " RND FUNCTION." -20 PRINT " ANSI STANDARD 7.2, 7.4, 8.2, 8.4" -30 PRINT -40 PRINT "SECTION 149.1: ERROR - NULL ARGUMENT-LIST FOR" -45 PRINT " RND FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN THE RND FUNCTION IS" -70 PRINT "INVOKED WITH A NULL ARGUMENT-LIST." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST" -230 PRINT -240 PRINT "ABOUT TO ATTEMPT INVOCATION OF RND." -250 LET A=RND() -260 PRINT "PROCESSOR HAS EVALUATED RND() = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 149" -310 END diff --git a/bwbtest/NBS2/P149.run b/bwbtest/NBS2/P149.run deleted file mode 100644 index 4a6f12f..0000000 --- a/bwbtest/NBS2/P149.run +++ /dev/null @@ -1,30 +0,0 @@ -PROGRAM FILE 149: ERROR - NULL ARGUMENT-LIST FOR - RND FUNCTION. - ANSI STANDARD 7.2, 7.4, 8.2, 8.4 - -SECTION 149.1: ERROR - NULL ARGUMENT-LIST FOR - RND FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN THE RND FUNCTION IS -INVOKED WITH A NULL ARGUMENT-LIST. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -ABOUT TO ATTEMPT INVOCATION OF RND. -PROCESSOR HAS EVALUATED RND() = .396465 - - END TEST - -END PROGRAM 149 diff --git a/bwbtest/NBS2/P150.BAS b/bwbtest/NBS2/P150.BAS deleted file mode 100644 index 3e582bb..0000000 --- a/bwbtest/NBS2/P150.BAS +++ /dev/null @@ -1,38 +0,0 @@ -10 PRINT "PROGRAM FILE 150: ERROR - USING A STRING AS AN ARGUMENT" -20 PRINT " FOR AN IMPLEMENTATION-SUPPLIED FUNCTION." -30 PRINT " ANSI STANDARD 7.2, 7.4, 8.2, 8.4" -40 PRINT -50 PRINT "SECTION 150.1: ERROR - USING A STRING AS AN ARGUMENT" -60 PRINT " FOR AN IMPLEMENTATION-SUPPLIED FUNCTION." -70 PRINT -80 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN THE ATN FUNCTION IS" -90 PRINT "INVOKED WITH A CHARACTER STRING ARGUMENT, INSTEAD OF A" -100 PRINT "NUMERIC EXPRESSION." -110 PRINT -120 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -130 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -140 PRINT -150 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -160 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -170 PRINT " BY THE PROCESSOR, OR" -180 PRINT -190 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -200 PRINT -210 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -220 PRINT "FOR DETAILED CRITERIA." -230 PRINT -240 PRINT " BEGIN TEST" -260 PRINT -280 PRINT "SETTING X = 5" -290 PRINT "SETTING X$ = 'ABC'" -300 PRINT -310 LET X=5 -320 LET X$="ABC" -330 PRINT "ABOUT TO ATTEMPT INVOCATION OF ATN(X$)." -340 LET A=ATN(X$) -350 PRINT "PROCESSOR HAS EVALUATED ATN(X$) = ";A -360 PRINT -370 PRINT " END TEST" -380 PRINT -390 PRINT "END PROGRAM 150" -400 END diff --git a/bwbtest/NBS2/P150.run b/bwbtest/NBS2/P150.run deleted file mode 100644 index 0154cee..0000000 --- a/bwbtest/NBS2/P150.run +++ /dev/null @@ -1,31 +0,0 @@ -PROGRAM FILE 150: ERROR - USING A STRING AS AN ARGUMENT - FOR AN IMPLEMENTATION-SUPPLIED FUNCTION. - ANSI STANDARD 7.2, 7.4, 8.2, 8.4 - -SECTION 150.1: ERROR - USING A STRING AS AN ARGUMENT - FOR AN IMPLEMENTATION-SUPPLIED FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN THE ATN FUNCTION IS -INVOKED WITH A CHARACTER STRING ARGUMENT, INSTEAD OF A -NUMERIC EXPRESSION. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -SETTING X = 5 -SETTING X$ = 'ABC' - -ABOUT TO ATTEMPT INVOCATION OF ATN(X$). - -ERROR in line 340: Illegal function call diff --git a/bwbtest/NBS2/P151.BAS b/bwbtest/NBS2/P151.BAS deleted file mode 100644 index 7c18b8c..0000000 --- a/bwbtest/NBS2/P151.BAS +++ /dev/null @@ -1,189 +0,0 @@ -10 PRINT "PROGRAM FILE 151: USER-DEFINED FUNCTIONS." -20 PRINT " ANSI STANDARD 16.2, 16.4, 7.2, 7.4" -30 PRINT -40 PRINT "THIS PROGRAM TESTS VARIOUS KINDS OF USER-DEFINED FUNCTIONS." -50 PRINT "NUMERIC EXPRESSIONS ARE USED IN TWO NEW CONTEXTS: BOTH AS" -55 PRINT "THE FUNCTION DEFINITION, AND ALSO AS ARGUMENTS IN THE" -60 PRINT "FUNCTION INVOCATIONS." -65 PRINT -70 PRINT "SECTION 151.1: THE EXPRESSION IN THE DEFINITION USING ONLY" -80 PRINT " THE PARAMETER OF THE PARAMETER-LIST." -90 PRINT -100 PRINT " BEGIN TEST." -110 PRINT -120 DEF FNA(X)=X*X -130 DEF FNB(Y)=Y*Y*Y -140 LET A=5 -150 LET B=4 -160 LET C=3 -170 LET E=0 -180 LET X=FNA(12) -190 LET Y=FNA(A) -200 LET Z=FNA(2*A^3+4*B+C) -210 LET W=FNA(FNB(2)+B^3) -220 LET F=1 -230 IF X=144 THEN 250 -240 GOSUB 350 -250 LET F=2 -260 IF Y=25 THEN 280 -270 GOSUB 350 -280 LET F=3 -285 LET C9=Z-72361 -290 IF ABS(C9) < .1 THEN 310 -300 GOSUB 350 -310 LET F=4 -315 LET C9=W-5184 -320 IF ABS(C9) < .1 THEN 490 -330 GOSUB 350 -340 GOTO 490 -350 REM SUBROUTINE TO PRINT ERROR MESSAGE -355 LET E=1 -357 LET B$="" -360 ON F GOTO 370,390,410,430 -370 LET A$="A CONSTANT" -380 GOTO 440 -390 LET A$="A VARIABLE" -400 GOTO 440 -410 LET A$="CONSTANTS AND" -415 LET B$=" VARIABLES" -420 GOTO 440 -430 LET A$="ANOTHER FUNCTION" -440 PRINT "FUNCTION FAILED TO EXECUTE PROPERLY WHEN THE EXPRESSION" -450 PRINT "IN THE ARGUMENT-LIST FOR THE FUNCTION REFERENCE USED" -460 PRINT A$;B$;"." -470 PRINT -480 RETURN -490 IF E=0 THEN 520 -500 PRINT "*** TEST FAILED. NOTE THE ABOVE REASONS ***" -510 GOTO 530 -520 PRINT "*** TEST PASSED ***" -530 PRINT -540 PRINT " END TEST." -550 PRINT -560 PRINT "SECTION 151.2: THE EXPRESSION IN THE DEFINITION USING THE" -570 PRINT " PARAMETER OF THE PARAMETER-LIST AND OTHER VARIABLES." -590 PRINT -600 PRINT " BEGIN TEST." -610 PRINT -620 DEF FNC(A)=A*A-B+C -630 LET B=-15 -640 LET C=-35 -650 LET X=FNC(13) -660 IF X=149 THEN 690 -670 PRINT "*** TEST FAILED ***" -680 GOTO 700 -690 PRINT "*** TEST PASSED ***" -700 PRINT -710 PRINT " END TEST." -720 PRINT -730 PRINT "SECTION 151.3: THE EXPRESSION IN THE DEFINITION USING THE" -740 PRINT " PARAMETER OF THE PARAMETER-LIST AND CONSTANTS." -760 PRINT -770 PRINT " BEGIN TEST." -780 PRINT -790 DEF FND(Y)=Y^4-16 -800 LET A=4 -810 LET B=2 -820 LET Y=FND(A^3-3*A^2*B+3*A*B^2-B^3) -825 LET C9=Y-4080 -830 IF ABS(C9) < .1 THEN 860 -840 PRINT "*** TEST FAILED ***" -850 GOTO 870 -860 PRINT "*** TEST PASSED ***" -870 PRINT -880 PRINT " END TEST." -890 PRINT -900 PRINT "SECTION 151.4: THE EXPRESSION IN THE DEFINITION USING THE" -910 PRINT " PARAMETER OF THE PARAMETER-LIST AND A REFERENCE" -920 PRINT " TO ANOTHER FUNCTION." -930 PRINT -940 PRINT " BEGIN TEST." -950 PRINT -960 DEF FNE(Z)=Z^2-4 -970 DEF FNF(Z)=Z*X+FNE(A^2+B) -980 LET A=9 -990 LET B=19 -1000 LET X=3 -1010 LET Y=2 -1020 LET Z=FNF(X^3-3*X^2*Y+3*X*Y^2-Y^3) -1025 LET C9=Z-9999 -1030 IF ABS(C9) < .1 THEN 1060 -1040 PRINT "*** TEST FAILED ***" -1050 GOTO 1070 -1060 PRINT "*** TEST PASSED ***" -1070 PRINT -1080 PRINT " END TEST." -1090 PRINT -1100 PRINT "SECTION 151.5: THE EXPRESSION IN THE DEFINITION HAS A" -1110 PRINT " CONSTANT VALUE." -1120 PRINT -1130 PRINT " BEGIN TEST." -1140 PRINT -1150 DEF FNM=123 -1160 DEF FNN(D)=3*37 -1170 LET A=FNM -1180 LET B=FNN(FNM+A) -1190 IF A<>123 THEN 1300 -1200 IF B<>111 THEN 1300 -1210 PRINT "*** TEST PASSED ***" -1220 GOTO 1310 -1300 PRINT "*** TEST FAILED ***" -1310 PRINT -1320 PRINT " END TEST." -1330 PRINT -1500 PRINT "SECTION 151.6: THE PARAMETER OF A USER-DEFINED" -1510 PRINT " FUNCTION IS LOCAL TO THE EXPRESSION OF THE" -1520 PRINT " DEFINITION AND OTHER VARIABLES ARE GLOBAL." -1530 PRINT -1540 PRINT " BEGIN TEST." -1550 PRINT -1560 LET X=1 -1570 LET Y=2 -1580 LET Z=3 -1590 LET P1=-100 -1600 LET Q1=-100 -1610 DEF FNG(P1)=3+P1+X -1620 DEF FNH(P1)=7+X+Y+P1+FNG(30.E-1+P1)+FNG(P1)+FNG(Y) -1630 LET X=4 -1640 LET Y=5 -1650 LET Z=6 -1660 LET P1=7 -1670 LET Q1=8 -1680 DEF FNI(Q1)=Z+Q1*10. -1690 LET A=FNH(Q1+3)+FNG(10)+FNI(Q1+4) -1700 IF X<>4 THEN 1790 -1710 IF Y<>5 THEN 1790 -1720 IF Z<>6 THEN 1790 -1730 IF P1<>7 THEN 1790 -1740 IF Q1<>8 THEN 1790 -1750 LET C=221-A -1760 IF ABS(C)>.01 THEN 1790 -1770 PRINT "*** TEST PASSED ***" -1780 GOTO 1800 -1790 PRINT "*** TEST FAILED ***" -1800 PRINT -1810 PRINT " END TEST." -1820 PRINT -1830 PRINT "SECTION 151.7: FULL GENERAL USE OF USER-DEFINED FUNCTIONS" -1840 PRINT " IN NUMERIC EXPRESSIONS." -1850 PRINT -1860 PRINT " BEGIN TEST." -1870 PRINT -1880 DEF FNT=3 -1890 DEF FNU(D)=100 -1900 LET X=4 -1910 LET Y=5 -1920 LET Z=6 -1930 LET Q1=8 -1940 LET A=FNI(FNT) -1950 LET A=A/(FNG(FNH(Q1+FNT)/(FNI(Q1+4)-FNU(1E38))+FNG(FNG(-10)))-2) -1960 LET C9=A-3 -1970 IF ABS(C9) < .01 THEN 2000 -1980 PRINT "*** TEST FAILED ***" -1990 GOTO 2010 -2000 PRINT "*** TEST PASSED ***" -2010 PRINT -2020 PRINT " END TEST." -2030 PRINT -2040 PRINT "END PROGRAM 151." -2050 END diff --git a/bwbtest/NBS2/P151.run b/bwbtest/NBS2/P151.run deleted file mode 100644 index 831b5f4..0000000 --- a/bwbtest/NBS2/P151.run +++ /dev/null @@ -1,74 +0,0 @@ -PROGRAM FILE 151: USER-DEFINED FUNCTIONS. - ANSI STANDARD 16.2, 16.4, 7.2, 7.4 - -THIS PROGRAM TESTS VARIOUS KINDS OF USER-DEFINED FUNCTIONS. -NUMERIC EXPRESSIONS ARE USED IN TWO NEW CONTEXTS: BOTH AS -THE FUNCTION DEFINITION, AND ALSO AS ARGUMENTS IN THE -FUNCTION INVOCATIONS. - -SECTION 151.1: THE EXPRESSION IN THE DEFINITION USING ONLY - THE PARAMETER OF THE PARAMETER-LIST. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 151.2: THE EXPRESSION IN THE DEFINITION USING THE - PARAMETER OF THE PARAMETER-LIST AND OTHER VARIABLES. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 151.3: THE EXPRESSION IN THE DEFINITION USING THE - PARAMETER OF THE PARAMETER-LIST AND CONSTANTS. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 151.4: THE EXPRESSION IN THE DEFINITION USING THE - PARAMETER OF THE PARAMETER-LIST AND A REFERENCE - TO ANOTHER FUNCTION. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 151.5: THE EXPRESSION IN THE DEFINITION HAS A - CONSTANT VALUE. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 151.6: THE PARAMETER OF A USER-DEFINED - FUNCTION IS LOCAL TO THE EXPRESSION OF THE - DEFINITION AND OTHER VARIABLES ARE GLOBAL. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 151.7: FULL GENERAL USE OF USER-DEFINED FUNCTIONS - IN NUMERIC EXPRESSIONS. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 151. diff --git a/bwbtest/NBS2/P152.BAS b/bwbtest/NBS2/P152.BAS deleted file mode 100644 index 47acf27..0000000 --- a/bwbtest/NBS2/P152.BAS +++ /dev/null @@ -1,75 +0,0 @@ -10 PRINT "PROGRAM FILE 152: VALID NAMES FOR USER-DEFINED FUNCTIONS." -20 PRINT " ANSI STANDARD 16.2" -30 PRINT -40 PRINT "SECTION 152.1: VALID NAMES FOR USER-DEFINED FUNCTIONS." -60 PRINT -70 PRINT "FUNCTION NAMES ARE IN THE FORM: FN FOLLOWED BY A LETTER." -80 PRINT -90 PRINT " BEGIN TEST." -100 PRINT -110 DEF FNA(X)=X/7-7 -120 DEF FNB(X)=X/8-8 -130 DEF FNC(X)=X/9-9 -140 DEF FND(X)=X/10-10 -150 DEF FNE(X)=X/11-11 -160 DEF FNF(X)=X/12-12 -170 DEF FNG(X)=X/13-13 -180 DEF FNH(X)=X/14-14 -190 DEF FNI(X)=X/15-15 -200 DEF FNJ(X)=X/16-16 -210 DEF FNK(X)=X/17-17 -220 DEF FNL(X)=X/18-18 -230 DEF FNM(X)=X/19-19 -240 DEF FNN(X)=X/20-20 -250 DEF FNO(X)=X/21-21 -260 DEF FNP(X)=X/22-22 -270 DEF FNQ(X)=X/23-23 -280 DEF FNR(X)=X/24-24 -290 DEF FNS(X)=X/25-25 -300 DEF FNT(X)=X/26-26 -310 DEF FNU(X)=X/27-27 -320 DEF FNV(X)=X/28-28 -330 DEF FNW(X)=X/29-29 -340 DEF FNX(X)=X/30-30 -350 DEF FNY(X)=X/31-31 -360 DEF FNZ(X)=X/32-32 -370 DIM A(26) -380 LET A(1)=FNA(77) -390 LET A(2)=FNB(88) -400 LET A(3)=FNC(99) -410 LET A(4)=FND(110) -420 LET A(5)=FNE(121) -430 LET A(6)=FNF(132) -440 LET A(7)=FNG(143) -450 LET A(8)=FNH(154) -460 LET A(9)=FNI(165) -470 LET A(10)=FNJ(176) -480 LET A(11)=FNK(187) -490 LET A(12)=FNL(198) -500 LET A(13)=FNM(209) -510 LET A(14)=FNN(220) -520 LET A(15)=FNO(231) -530 LET A(16)=FNP(242) -540 LET A(17)=FNQ(253) -550 LET A(18)=FNR(264) -560 LET A(19)=FNS(275) -570 LET A(20)=FNT(286) -580 LET A(21)=FNU(297) -590 LET A(22)=FNV(308) -600 LET A(23)=FNW(319) -610 LET A(24)=FNX(330) -620 LET A(25)=FNY(341) -630 LET A(26)=FNZ(352) -640 LET S=0 -650 FOR I=1 TO 26 -660 LET S=S+A(I) -670 NEXT I -680 IF S=-221 THEN 710 -690 PRINT "*** TEST FAILED ***" -700 GOTO 720 -710 PRINT "*** TEST PASSED ***" -720 PRINT -730 PRINT " END TEST." -740 PRINT -750 PRINT "END PROGRAM 152." -760 END diff --git a/bwbtest/NBS2/P152.run b/bwbtest/NBS2/P152.run deleted file mode 100644 index 071103f..0000000 --- a/bwbtest/NBS2/P152.run +++ /dev/null @@ -1,14 +0,0 @@ -PROGRAM FILE 152: VALID NAMES FOR USER-DEFINED FUNCTIONS. - ANSI STANDARD 16.2 - -SECTION 152.1: VALID NAMES FOR USER-DEFINED FUNCTIONS. - -FUNCTION NAMES ARE IN THE FORM: FN FOLLOWED BY A LETTER. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 152. diff --git a/bwbtest/NBS2/P153.BAS b/bwbtest/NBS2/P153.BAS deleted file mode 100644 index c6624f4..0000000 --- a/bwbtest/NBS2/P153.BAS +++ /dev/null @@ -1,36 +0,0 @@ -10 PRINT "PROGRAM FILE 153: ERROR - SUPERFLUOUS ARGUMENT-LIST FOR " -15 PRINT " USER-DEFINED FUNCTION." -20 PRINT " ANSI STANDARD 16.4" -30 PRINT -40 PRINT "SECTION 153.1: ERROR - SUPERFLUOUS ARGUMENT-LIST FOR " -45 PRINT " USER-DEFINED FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS" -70 PRINT "INVOKED WITH AN ARGUMENT-LIST, THOUGH NONE IS REQUIRED" -80 PRINT "IN THE DEF STATEMENT." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST" -225 DEF FNP=3.14159 -228 PRINT -229 PRINT "DEFINITION OF FNP=3.14159" -230 PRINT -240 PRINT "ABOUT TO ATTEMPT INVOCATION OF FNP." -250 LET A=FNP(0) -260 PRINT "PROCESSOR HAS EVALUATED FNP(0) = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 153" -310 END diff --git a/bwbtest/NBS2/P153.run b/bwbtest/NBS2/P153.run deleted file mode 100644 index b3c6911..0000000 --- a/bwbtest/NBS2/P153.run +++ /dev/null @@ -1,30 +0,0 @@ -PROGRAM FILE 153: ERROR - SUPERFLUOUS ARGUMENT-LIST FOR - USER-DEFINED FUNCTION. - ANSI STANDARD 16.4 - -SECTION 153.1: ERROR - SUPERFLUOUS ARGUMENT-LIST FOR - USER-DEFINED FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS -INVOKED WITH AN ARGUMENT-LIST, THOUGH NONE IS REQUIRED -IN THE DEF STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -DEFINITION OF FNP=3.14159 - -ABOUT TO ATTEMPT INVOCATION OF FNP. - -ERROR in line 250: Illegal function call diff --git a/bwbtest/NBS2/P154.BAS b/bwbtest/NBS2/P154.BAS deleted file mode 100644 index 229f11e..0000000 --- a/bwbtest/NBS2/P154.BAS +++ /dev/null @@ -1,36 +0,0 @@ -10 PRINT "PROGRAM FILE 154: ERROR - MISSING ARGUMENT-LIST FOR " -15 PRINT " USER-DEFINED FUNCTION." -20 PRINT " ANSI STANDARD 16.4" -30 PRINT -40 PRINT "SECTION 154.1: ERROR - MISSING ARGUMENT-LIST FOR " -45 PRINT " USER-DEFINED FUNCTION." -50 PRINT -60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS" -70 PRINT "INVOKED WITHOUT AN ARGUMENT-LIST, THOUGH ONE IS REQUIRED" -80 PRINT "IN THE DEF STATEMENT." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST" -225 DEF FND(R)=(R*180)/3.14159 -228 PRINT -229 PRINT "DEFINITION OF FND(R)=(R*180)/3.14159" -230 PRINT -240 PRINT "ABOUT TO ATTEMPT INVOCATION OF FND." -250 LET A=FND -260 PRINT "PROCESSOR HAS EVALUATED FND = ";A -270 PRINT -280 PRINT " END TEST" -290 PRINT -300 PRINT "END PROGRAM 154" -310 END diff --git a/bwbtest/NBS2/P154.run b/bwbtest/NBS2/P154.run deleted file mode 100644 index 8ff3c77..0000000 --- a/bwbtest/NBS2/P154.run +++ /dev/null @@ -1,30 +0,0 @@ -PROGRAM FILE 154: ERROR - MISSING ARGUMENT-LIST FOR - USER-DEFINED FUNCTION. - ANSI STANDARD 16.4 - -SECTION 154.1: ERROR - MISSING ARGUMENT-LIST FOR - USER-DEFINED FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS -INVOKED WITHOUT AN ARGUMENT-LIST, THOUGH ONE IS REQUIRED -IN THE DEF STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -DEFINITION OF FND(R)=(R*180)/3.14159 - -ABOUT TO ATTEMPT INVOCATION OF FND. - -ERROR in line 250: Illegal function call diff --git a/bwbtest/NBS2/P155.BAS b/bwbtest/NBS2/P155.BAS deleted file mode 100644 index 8dc3270..0000000 --- a/bwbtest/NBS2/P155.BAS +++ /dev/null @@ -1,35 +0,0 @@ -10 PRINT "PROGRAM FILE 155: ERROR - NULL ARGUMENT-LIST FOR" -20 PRINT " USER-DEFINED FUNCTION." -30 PRINT " ANSI STANDARD 7.2, 7.4, 16.2, 16.4" -40 PRINT -50 PRINT "SECTION 155.1: ERROR - NULL ARGUMENT-LIST FOR" -60 PRINT " USER-DEFINED FUNCTION." -70 PRINT -80 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS" -90 PRINT "INVOKED WITH A NULL ARGUMENT-LIST." -100 PRINT -110 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -120 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -130 PRINT -140 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -150 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -160 PRINT " BY THE PROCESSOR, OR" -170 PRINT -180 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -190 PRINT -200 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -210 PRINT "FOR DETAILED CRITERIA." -220 PRINT -230 PRINT " BEGIN TEST" -240 PRINT -250 DEF FNP=3.14159 -260 PRINT "DEFINITION OF FNP=3.14159" -270 PRINT -280 PRINT "ABOUT TO ATTEMPT INVOCATION OF FNP." -290 LET A=FNP() -300 PRINT "PROCESSOR HAS EVALUATED FNP() = ";A -310 PRINT -320 PRINT " END TEST" -330 PRINT -340 PRINT "END PROGRAM 155" -350 END diff --git a/bwbtest/NBS2/P155.run b/bwbtest/NBS2/P155.run deleted file mode 100644 index c34f94a..0000000 --- a/bwbtest/NBS2/P155.run +++ /dev/null @@ -1,32 +0,0 @@ -PROGRAM FILE 155: ERROR - NULL ARGUMENT-LIST FOR - USER-DEFINED FUNCTION. - ANSI STANDARD 7.2, 7.4, 16.2, 16.4 - -SECTION 155.1: ERROR - NULL ARGUMENT-LIST FOR - USER-DEFINED FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS -INVOKED WITH A NULL ARGUMENT-LIST. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -DEFINITION OF FNP=3.14159 - -ABOUT TO ATTEMPT INVOCATION OF FNP. -PROCESSOR HAS EVALUATED FNP() = 3.14159 - - END TEST - -END PROGRAM 155 diff --git a/bwbtest/NBS2/P156.BAS b/bwbtest/NBS2/P156.BAS deleted file mode 100644 index 962f021..0000000 --- a/bwbtest/NBS2/P156.BAS +++ /dev/null @@ -1,36 +0,0 @@ -10 PRINT "PROGRAM FILE 156: ERROR - EXCESS ARGUMENT IN LIST FOR" -20 PRINT " USER-DEFINED FUNCTION." -30 PRINT " ANSI STANDARD 16.4" -40 PRINT -50 PRINT "SECTION 156.1: ERROR - EXCESS ARGUMENT IN LIST FOR" -60 PRINT " USER-DEFINED FUNCTION." -70 PRINT -80 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN A FUNCTION DEFINED" -90 PRINT "WITH ONE PARAMETER IS INVOKED WITH TWO ARGUMENTS." -100 PRINT -110 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -120 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -130 PRINT -140 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -150 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -160 PRINT " BY THE PROCESSOR, OR" -170 PRINT -180 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -190 PRINT -200 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -210 PRINT "FOR DETAILED CRITERIA." -220 PRINT -230 PRINT " BEGIN TEST." -240 PRINT -250 DEF FNA(X)=X*10 -260 PRINT "DEFINITION OF FNA(X)=X*10" -270 PRINT -280 PRINT "ABOUT TO ATTEMPT INVOCATION OF FNA." -290 LET A=FNA(5,6) -300 PRINT "PROCESSOR HAS EVALUATED FNA(5,6) = ";A -310 PRINT -320 PRINT -330 PRINT " END TEST." -340 PRINT -350 PRINT "END PROGRAM 156." -360 END diff --git a/bwbtest/NBS2/P156.run b/bwbtest/NBS2/P156.run deleted file mode 100644 index 68d1b8a..0000000 --- a/bwbtest/NBS2/P156.run +++ /dev/null @@ -1,29 +0,0 @@ -PROGRAM FILE 156: ERROR - EXCESS ARGUMENT IN LIST FOR - USER-DEFINED FUNCTION. - ANSI STANDARD 16.4 - -SECTION 156.1: ERROR - EXCESS ARGUMENT IN LIST FOR - USER-DEFINED FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN A FUNCTION DEFINED -WITH ONE PARAMETER IS INVOKED WITH TWO ARGUMENTS. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -DEFINITION OF FNA(X)=X*10 - -ABOUT TO ATTEMPT INVOCATION OF FNA. - -ERROR in line 290: Illegal function call diff --git a/bwbtest/NBS2/P157.BAS b/bwbtest/NBS2/P157.BAS deleted file mode 100644 index de937ca..0000000 --- a/bwbtest/NBS2/P157.BAS +++ /dev/null @@ -1,39 +0,0 @@ -10 PRINT "PROGRAM FILE 157: ERROR - USER-DEFINED FUNCTION WITH TWO" -20 PRINT " PARAMETERS." -30 PRINT " ANSI STANDARD 16.2, 16.4, 7.2, 7.4" -40 PRINT -50 PRINT "SECTION 157.1: ERROR - USER-DEFINED FUNCTION WITH TWO" -60 PRINT " PARAMETERS." -70 PRINT -80 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN A FUNCTION IS" -90 PRINT "DEFINED WITH TWO PARAMETERS AND INVOKED WITH TWO" -100 PRINT "ARGUMENTS." -110 PRINT -120 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -130 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -140 PRINT -150 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -160 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -170 PRINT " BY THE PROCESSOR, OR" -180 PRINT -190 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -200 PRINT -210 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -220 PRINT "FOR DETAILED CRITERIA." -230 PRINT -240 PRINT " BEGIN TEST." -250 PRINT -260 DEF FNA(X,Y)=X+Y -270 PRINT "DEFINITION OF FNA(X,Y)=X+Y" -280 PRINT "SETTING X=1 AND Y=10" -290 PRINT -300 LET X=1 -310 LET Y=10 -320 PRINT "ABOUT TO ATTEMPT INVOCATION OF FNA(100,1000)." -330 LET A=FNA(100,1000) -340 PRINT "PROCESSOR HAS EVALUATED FNA(100,1000) = ";A -350 PRINT -360 PRINT " END TEST." -370 PRINT -380 PRINT "END PROGRAM 157." -390 END diff --git a/bwbtest/NBS2/P157.run b/bwbtest/NBS2/P157.run deleted file mode 100644 index 03601d9..0000000 --- a/bwbtest/NBS2/P157.run +++ /dev/null @@ -1,34 +0,0 @@ -PROGRAM FILE 157: ERROR - USER-DEFINED FUNCTION WITH TWO - PARAMETERS. - ANSI STANDARD 16.2, 16.4, 7.2, 7.4 - -SECTION 157.1: ERROR - USER-DEFINED FUNCTION WITH TWO - PARAMETERS. - -THIS SECTION TESTS WHAT HAPPENS WHEN A FUNCTION IS -DEFINED WITH TWO PARAMETERS AND INVOKED WITH TWO -ARGUMENTS. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -DEFINITION OF FNA(X,Y)=X+Y -SETTING X=1 AND Y=10 - -ABOUT TO ATTEMPT INVOCATION OF FNA(100,1000). -PROCESSOR HAS EVALUATED FNA(100,1000) = 1100 - - END TEST. - -END PROGRAM 157. diff --git a/bwbtest/NBS2/P158.BAS b/bwbtest/NBS2/P158.BAS deleted file mode 100644 index 86e1eeb..0000000 --- a/bwbtest/NBS2/P158.BAS +++ /dev/null @@ -1,40 +0,0 @@ -10 PRINT "PROGRAM FILE 158: ERROR - USING A STRING AS AN ARGUMENT FOR" -20 PRINT " A USER-DEFINED FUNCTION." -30 PRINT " ANSI STANDARD 7.2, 7.4, 16.2, 16.4" -40 PRINT -50 PRINT "SECTION 158.1: ERROR - USING A STRING AS AN ARGUMENT FOR" -60 PRINT " A USER-DEFINED FUNCTION." -70 PRINT -80 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS" -90 PRINT "INVOKED WITH A CHARACTER STRING ARGUMENT, INSTEAD OF A" -100 PRINT "NUMERIC EXPRESSION." -110 PRINT -120 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -130 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -140 PRINT -150 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -160 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -170 PRINT " BY THE PROCESSOR, OR" -180 PRINT -190 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -200 PRINT -210 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -220 PRINT "FOR DETAILED CRITERIA." -230 PRINT -240 PRINT " BEGIN TEST" -250 DEF FND(R)=R + 3 -260 PRINT -270 PRINT "DEFINITION OF FND(4)=R + 3" -280 PRINT "SETTING X = 5" -290 PRINT "SETTING X$ = 'ABC'" -300 PRINT -310 LET X=5 -320 LET X$="ABC" -330 PRINT "ABOUT TO ATTEMPT INVOCATION OF FND(X$)." -340 LET A=FND(X$) -350 PRINT "PROCESSOR HAS EVALUATED FND(X$) = ";A -360 PRINT -370 PRINT " END TEST" -380 PRINT -390 PRINT "END PROGRAM 158" -400 END diff --git a/bwbtest/NBS2/P158.run b/bwbtest/NBS2/P158.run deleted file mode 100644 index c860a35..0000000 --- a/bwbtest/NBS2/P158.run +++ /dev/null @@ -1,32 +0,0 @@ -PROGRAM FILE 158: ERROR - USING A STRING AS AN ARGUMENT FOR - A USER-DEFINED FUNCTION. - ANSI STANDARD 7.2, 7.4, 16.2, 16.4 - -SECTION 158.1: ERROR - USING A STRING AS AN ARGUMENT FOR - A USER-DEFINED FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS -INVOKED WITH A CHARACTER STRING ARGUMENT, INSTEAD OF A -NUMERIC EXPRESSION. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -DEFINITION OF FND(4)=R + 3 -SETTING X = 5 -SETTING X$ = 'ABC' - -ABOUT TO ATTEMPT INVOCATION OF FND(X$). - -ERROR in line 340: Illegal function call diff --git a/bwbtest/NBS2/P159.BAS b/bwbtest/NBS2/P159.BAS deleted file mode 100644 index 73b5784..0000000 --- a/bwbtest/NBS2/P159.BAS +++ /dev/null @@ -1,40 +0,0 @@ -10 PRINT "PROGRAM FILE 159: ERROR - USING A STRING AS AN ARGUMENT AND" -20 PRINT " PARAMETER FOR A USER-DEFINED FUNCTION." -30 PRINT " ANSI STANDARD 7.2, 7.4, 16.2, 16.4" -40 PRINT -50 PRINT "SECTION 159.1: ERROR - USING A STRING AS AN ARGUMENT AND" -60 PRINT " PARAMETER FOR A USER-DEFINED FUNCTION." -70 PRINT -80 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS" -90 PRINT "INVOKED WITH A CHARACTER STRING ARGUMENT AND PARAMETER," -100 PRINT "INSTEAD OF A NUMERIC EXPRESSION AND VARIABLE" -110 PRINT -120 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -130 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -140 PRINT -150 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -160 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -170 PRINT " BY THE PROCESSOR, OR" -180 PRINT -190 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -200 PRINT -210 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -220 PRINT "FOR DETAILED CRITERIA." -230 PRINT -240 PRINT " BEGIN TEST" -250 DEF FND(R$)=R+3 -260 PRINT -270 PRINT "DEFINITION OF FND(R$)=R + 3" -280 PRINT "SETTING R = 5" -290 PRINT "SETTING R$ = 'ABC'" -300 PRINT -310 LET R=5 -320 LET R$="ABC" -330 PRINT "ABOUT TO ATTEMPT INVOCATION OF FND(R$)." -340 LET A=FND(R$) -350 PRINT "PROCESSOR HAS EVALUATED FND(R$) = ";A -360 PRINT -370 PRINT " END TEST" -380 PRINT -390 PRINT "END PROGRAM 159" -400 END diff --git a/bwbtest/NBS2/P159.run b/bwbtest/NBS2/P159.run deleted file mode 100644 index a09e635..0000000 --- a/bwbtest/NBS2/P159.run +++ /dev/null @@ -1,35 +0,0 @@ -PROGRAM FILE 159: ERROR - USING A STRING AS AN ARGUMENT AND - PARAMETER FOR A USER-DEFINED FUNCTION. - ANSI STANDARD 7.2, 7.4, 16.2, 16.4 - -SECTION 159.1: ERROR - USING A STRING AS AN ARGUMENT AND - PARAMETER FOR A USER-DEFINED FUNCTION. - -THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS -INVOKED WITH A CHARACTER STRING ARGUMENT AND PARAMETER, -INSTEAD OF A NUMERIC EXPRESSION AND VARIABLE - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -DEFINITION OF FND(R$)=R + 3 -SETTING R = 5 -SETTING R$ = 'ABC' - -ABOUT TO ATTEMPT INVOCATION OF FND(R$). -PROCESSOR HAS EVALUATED FND(R$) = 8 - - END TEST - -END PROGRAM 159 diff --git a/bwbtest/NBS2/P160.BAS b/bwbtest/NBS2/P160.BAS deleted file mode 100644 index e17a285..0000000 --- a/bwbtest/NBS2/P160.BAS +++ /dev/null @@ -1,35 +0,0 @@ -10 PRINT "PROGRAM FILE 160: ERROR - FUNCTION DEFINED MORE THAN ONCE." -20 PRINT " ANSI STANDARD 16.4" -30 PRINT -40 PRINT "SECTION 160.1: ERROR - FUNCTION DEFINED MORE THAN ONCE." -50 PRINT -60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS" -70 PRINT "DEFINED MORE THAN ONCE IN THE SAME PROGRAM." -80 PRINT -90 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -100 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -110 PRINT -120 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -130 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -140 PRINT " BY THE PROCESSOR, OR" -150 PRINT -160 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -170 PRINT -180 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -190 PRINT "FOR DETAILED CRITERIA." -200 PRINT -210 PRINT " BEGIN TEST" -220 DEF FND(R)=R+10 -230 PRINT -240 PRINT "1ST DEFINITION OF FND(R)=R+10" -250 PRINT "2ND DEFINITION OF FND(R)=R+100" -260 PRINT -270 PRINT "ABOUT TO ATTEMPT INVOCATION OF FND(5)." -280 LET A=FND(5) -290 PRINT "PROCESSOR HAS EVALUATED FND(5) = ";A -300 PRINT -310 PRINT " END TEST" -320 PRINT -330 PRINT "END PROGRAM 160" -340 DEF FND(R)=R+100 -350 END diff --git a/bwbtest/NBS2/P160.run b/bwbtest/NBS2/P160.run deleted file mode 100644 index d73d7ad..0000000 --- a/bwbtest/NBS2/P160.run +++ /dev/null @@ -1,31 +0,0 @@ -PROGRAM FILE 160: ERROR - FUNCTION DEFINED MORE THAN ONCE. - ANSI STANDARD 16.4 - -SECTION 160.1: ERROR - FUNCTION DEFINED MORE THAN ONCE. - -THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS -DEFINED MORE THAN ONCE IN THE SAME PROGRAM. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST - -1ST DEFINITION OF FND(R)=R+10 -2ND DEFINITION OF FND(R)=R+100 - -ABOUT TO ATTEMPT INVOCATION OF FND(5). -PROCESSOR HAS EVALUATED FND(5) = 105 - - END TEST - -END PROGRAM 160 diff --git a/bwbtest/NBS2/P161.BAS b/bwbtest/NBS2/P161.BAS deleted file mode 100644 index b8e20ff..0000000 --- a/bwbtest/NBS2/P161.BAS +++ /dev/null @@ -1,35 +0,0 @@ -10 PRINT "PROGRAM FILE 161: ERROR - REFERENCING A FUNCTION INSIDE" -20 PRINT " ITS OWN DEFINITION." -30 PRINT " ANSI STANDARD 16.4" -40 PRINT -50 PRINT "SECTION 161.1: ERROR - REFERENCING A FUNCTION INSIDE" -60 PRINT " ITS OWN DEFINITION." -70 PRINT -80 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN THE DEFINITION OF A" -90 PRINT "FUNCTION REFERS TO THAT SAME FUNCTION." -100 PRINT -110 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -120 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -130 PRINT -140 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -150 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -160 PRINT " BY THE PROCESSOR, OR" -170 PRINT -180 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -190 PRINT -200 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -210 PRINT "FOR DETAILED CRITERIA." -220 PRINT -230 PRINT " BEGIN TEST." -240 PRINT -250 DEF FNA(X)=X/FNA(X-1) -260 PRINT "DEFINITION OF FNA(X) = X / FNA(X-1)" -270 PRINT -280 PRINT "ABOUT TO ATTEMPT INVOCATION OF FNA." -290 LET Z=FNA(5) -300 PRINT "PROCESSOR HAS EVALUATED FNA(5) = ";Z -310 PRINT -320 PRINT " END TEST." -330 PRINT -340 PRINT "END PROGRAM 161" -350 END diff --git a/bwbtest/NBS2/P161.run b/bwbtest/NBS2/P161.run deleted file mode 100644 index c11234c..0000000 --- a/bwbtest/NBS2/P161.run +++ /dev/null @@ -1,33 +0,0 @@ -PROGRAM FILE 161: ERROR - REFERENCING A FUNCTION INSIDE - ITS OWN DEFINITION. - ANSI STANDARD 16.4 - -SECTION 161.1: ERROR - REFERENCING A FUNCTION INSIDE - ITS OWN DEFINITION. - -THIS SECTION TESTS WHAT HAPPENS WHEN THE DEFINITION OF A -FUNCTION REFERS TO THAT SAME FUNCTION. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -DEFINITION OF FNA(X) = X / FNA(X-1) - -ABOUT TO ATTEMPT INVOCATION OF FNA. -Division by zero -Division by zero -Overflow -Overflow - -ERROR in line 290: Out of memory diff --git a/bwbtest/NBS2/P162.BAS b/bwbtest/NBS2/P162.BAS deleted file mode 100644 index e902aee..0000000 --- a/bwbtest/NBS2/P162.BAS +++ /dev/null @@ -1,36 +0,0 @@ -10 PRINT "PROGRAM FILE 162: ERROR - REFERENCE TO FUNCTION PRECEDES" -20 PRINT " ITS DEFINITION." -30 PRINT " ANSI STANDARD 16.4" -40 PRINT -50 PRINT "SECTION 163.1: ERROR - REFERENCE TO FUNCTION PRECEDES" -60 PRINT " ITS DEFINITION." -70 PRINT -80 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS" -90 PRINT "INVOKED IN A LOWER-NUMBERED LINE THAN THE DEF STATEMENT" -100 PRINT "FOR THAT FUNCTION." -110 PRINT -120 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -130 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -140 PRINT -150 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -160 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -170 PRINT " BY THE PROCESSOR, OR" -180 PRINT -190 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -200 PRINT -210 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -220 PRINT "FOR DETAILED CRITERIA." -230 PRINT -240 PRINT " BEGIN TEST." -250 PRINT -260 PRINT "(LATER) DEFINITION OF FND(R)=R+10" -270 PRINT -280 PRINT "ABOUT TO ATTEMPT INVOCATION OF FND(5)." -290 LET A=FND(5) -300 PRINT "PROCESSOR HAS EVALUATED FND(5) = ";A -310 PRINT -320 DEF FND(R)=R+10 -330 PRINT " END TEST" -340 PRINT -350 PRINT "END PROGRAM 162" -360 END diff --git a/bwbtest/NBS2/P162.run b/bwbtest/NBS2/P162.run deleted file mode 100644 index 6b469eb..0000000 --- a/bwbtest/NBS2/P162.run +++ /dev/null @@ -1,33 +0,0 @@ -PROGRAM FILE 162: ERROR - REFERENCE TO FUNCTION PRECEDES - ITS DEFINITION. - ANSI STANDARD 16.4 - -SECTION 163.1: ERROR - REFERENCE TO FUNCTION PRECEDES - ITS DEFINITION. - -THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS -INVOKED IN A LOWER-NUMBERED LINE THAN THE DEF STATEMENT -FOR THAT FUNCTION. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -(LATER) DEFINITION OF FND(R)=R+10 - -ABOUT TO ATTEMPT INVOCATION OF FND(5). -PROCESSOR HAS EVALUATED FND(5) = 15 - - END TEST - -END PROGRAM 162 diff --git a/bwbtest/NBS2/P163.BAS b/bwbtest/NBS2/P163.BAS deleted file mode 100644 index 6e204f5..0000000 --- a/bwbtest/NBS2/P163.BAS +++ /dev/null @@ -1,27 +0,0 @@ -10 PRINT "PROGRAM FILE 163: ERROR - REFERENCE TO AN UNDEFINED FUNCTION." -20 PRINT " ANSI STANDARD 16.4" -30 PRINT -40 PRINT "SECTION 163.1: ERROR - REFERENCE TO AN UNDEFINED FUNCTION." -50 PRINT -60 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -70 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -80 PRINT -90 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -100 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -110 PRINT " BY THE PROCESSOR, OR" -120 PRINT -130 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -140 PRINT -150 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -160 PRINT "FOR DETAILED CRITERIA." -170 PRINT -180 PRINT " BEGIN TEST." -190 PRINT -200 PRINT "ABOUT TO ATTEMPT INVOCATION OF FNA, WHICH IS UNDEFINED." -210 LET A=FNA(1) -220 PRINT "PROCESSOR HAS EVALUATED FNA(1) = ";A -230 PRINT -240 PRINT " END TEST." -250 PRINT -260 PRINT "END PROGRAM 163" -270 END diff --git a/bwbtest/NBS2/P163.run b/bwbtest/NBS2/P163.run deleted file mode 100644 index 7efdd50..0000000 --- a/bwbtest/NBS2/P163.run +++ /dev/null @@ -1,25 +0,0 @@ -PROGRAM FILE 163: ERROR - REFERENCE TO AN UNDEFINED FUNCTION. - ANSI STANDARD 16.4 - -SECTION 163.1: ERROR - REFERENCE TO AN UNDEFINED FUNCTION. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -ABOUT TO ATTEMPT INVOCATION OF FNA, WHICH IS UNDEFINED. -PROCESSOR HAS EVALUATED FNA(1) = 0 - - END TEST. - -END PROGRAM 163 diff --git a/bwbtest/NBS2/P164.BAS b/bwbtest/NBS2/P164.BAS deleted file mode 100644 index d913879..0000000 --- a/bwbtest/NBS2/P164.BAS +++ /dev/null @@ -1,142 +0,0 @@ -10 PRINT "PROGRAM FILE 164: GENERAL USE OF NUMERIC EXPRESSIONS" -20 PRINT " IN LET-STATEMENT." -30 PRINT " ANSI STANDARD 6.2, 6.4, 7.2, 7.4, 8.2, 8.4, " -40 PRINT " 16.2, 16.4" -50 PRINT -60 PRINT "THIS PROGRAM EXERCISES THE FULL RANGE OF USES AND VARIETIES" -70 PRINT "OF NUMERIC EXPRESSIONS IN THE LET-STATEMENT. EXPRESSIONS ARE" -80 PRINT "COMPOSED OF ALL TYPES OF PRIMARIES AND ARE USED AS ARGUMENTS" -90 PRINT "OF FUNCTIONS AND AS SUBSCRIPTS." -100 PRINT -110 LET P=3.14159265 -120 PRINT "SECTION 164.1: NUMERIC EXPRESSIONS CONTAINING" -130 PRINT " SUBSCRIPTED VARIABLES AND FUNCTION REFERENCES." -150 PRINT -160 PRINT "THIS SECTION TESTS WHETHER SUBSCRIPTED VARIABLES AND" -170 PRINT "REFERENCES TO BOTH IMPLEMENTATION-SUPPLIED AND" -180 PRINT "USER-DEFINED FUNCTIONS CAN BE USED AS PRIMARIES IN" -190 PRINT "NUMERIC EXPRESSIONS." -200 GOSUB 7000 -270 LET X=10*RND+3/RND-TAN(-.348E-2) -280 LET A=SIN(X)*SIN(X)+COS(X)^(-(-1.3+.5-1.2)) -290 LET Y=1 -300 GOSUB 9000 -310 DIM F(20) -320 REM SET UP FIBONACCI SERIES IN F -330 LET F(1)=1 -340 LET F(2)=1 -350 FOR I=3 TO 20 -360 LET J=I-1 -370 LET K=I-2 -380 LET F(I)=F(J)+F(K) -390 NEXT I -400 LET A=F(20)/F(19)/((1+SQR(5))/2) -410 LET Y=1 -420 GOSUB 9000 -430 FOR I=1 TO 7 -440 FOR J=1 TO 7 -450 LET Q(I,J)=I/J -460 NEXT J -470 NEXT I -480 LET X=P/10 -490 LET A=-F(19)/F(20)/(-SIN(X))/Q(2,7) -500 LET Y=7 -510 GOSUB 9000 -520 REM DEF COMMON LOG -530 DEF FNC(X)=LOG(X)/LOG(10) -540 LET X=P/6 -550 LET A=SIN(X)*FNC(1E36)/((F(20)+F(20))/F(19)-1)^FNC(100)*Q(5,6) -560 LET Y=3 -570 GOSUB 9000 -580 GOSUB 8000 -660 PRINT "SECTION 164.2: NUMERIC EXPRESSIONS USED AS FUNCTION" -670 PRINT " ARGUMENTS AND ARRAY SUBSCRIPTS." -680 PRINT -690 PRINT "THIS SECTION TESTS WHETHER NUMERIC EXPRESSIONS CAN BE" -700 PRINT "USED AS ARGUMENTS TO BOTH IMPLEMENTATION-SUPPLIED AND" -710 PRINT "USER-DEFINED FUNCTIONS AND ALSO AS SUBSCRIPTS." -750 GOSUB 7000 -790 REM DEF ARCSIN OF X IN DEGREES -800 DEF FNA(X)=ATN(1/(1/X^2-1)^.5)/P*180 -810 LET A=FNA(SQR(3/4))/2/2/3/5 -820 LET Y=1 -830 GOSUB 9000 -840 LET A=Q(1+FNA(Q(F(4),ABS(-6)))/6,INT(SQR(F(+1+2^3)))) -850 LET Y=1.2 -860 GOSUB 9000 -870 LET X=RND -880 LET D=P/180 -890 LET F(F(F(6))*Q(2,7)-TAN(P/4))=TAN(ATN(SIN(D*FNA(LOG(EXP(X)))))) -900 LET A=F(5) -910 LET Y=X -920 GOSUB 9000 -930 LET F(5)=5 -1000 GOSUB 8000 -1010 PRINT "SECTION 164.3: EXPRESSIONS USED AS SUBSCRIPTS ARE" -1015 PRINT " ROUNDED TO NEAREST INTEGER." -1020 PRINT -1030 PRINT "THIS SECTION ENSURES THAT WHEN EXPRESSIONS ARE USED AS" -1040 PRINT "SUBSCRIPTS, THEY ARE ROUNDED TO THE NEAREST INTEGER." -1060 GOSUB 7000 -1080 DIM V(5,11) -1090 FOR I=0 TO 5 -1100 FOR J=0 TO 11 -1110 LET V(I,J)=12*I+J -1120 NEXT J -1130 NEXT I -1160 LET A=V(FNC(316)-.1,FNC(ABS(-316))+10E-2) -1170 LET Y=27 -1180 GOSUB 9000 -1190 LET A=V(Q(3,7),Q(4,7)) -1200 LET Y=1 -1210 GOSUB 9000 -1220 LET A=V(FNC(1E-3)+2.51,13*7/9+1) -1230 LET Y=11 -1240 GOSUB 9000 -1250 LET A=1+V(LOG(1.0)-.4,.6-EXP(0)) -1260 LET Y=1 -1270 GOSUB 9000 -1280 LET A=V(F(5)+.49,F(7)-Q(5,3)) -1290 LET Y=71 -1300 GOSUB 9000 -1700 GOSUB 8000 -6000 PRINT "END PROGRAM 164" -6010 STOP -7000 REM SUBROUTINE TO BEGIN SECTION -7010 PRINT -7020 PRINT " BEGIN TEST." -7030 PRINT -7040 PRINT "CASE #","SHOULD BE","ACTUAL","OUTCOME" -7050 PRINT -7060 LET E1=0 -7070 LET C1=0 -7080 RETURN -8000 REM SUBROUTINE TO END SECTION -8010 PRINT -8020 IF E1=0 THEN 8050 -8030 PRINT "*** TEST FAILED IN ";E1;" CASE(S) ***" -8040 GOTO 8060 -8050 PRINT "*** TEST PASSED ***" -8060 PRINT -8070 PRINT " END TEST." -8080 PRINT -8090 RETURN -9000 REM HANDLE REPORT -9010 REM THIS SUBROUTINE ADOPTS A VERY LOOSE CRITERION OF CORRECTNESS -9020 REM (RELATIVE ERROR < .001). ITS PURPOSE ISN'T TO MEASURE ACCURACY -9030 REM BUT ONLY TO ASSURE THAT THE SEMANTICS OF THE EXPRESSION -9040 REM HAVE BEEN CORRECTLY IMPLEMENTED. -9050 LET C1=C1+1 -9060 PRINT C1,Y,A, -9070 LET P$="FAIL" -9080 LET M=0.001 -9090 LET T=(A-Y)/Y -9100 IF T>M THEN 9150 -9110 LET T=-T -9120 IF T>M THEN 9150 -9130 LET P$=" OK " -9140 GOTO 9160 -9150 LET E1=E1+1 -9160 PRINT P$ -9170 RETURN -9180 END diff --git a/bwbtest/NBS2/P164.run b/bwbtest/NBS2/P164.run deleted file mode 100644 index 3025fd3..0000000 --- a/bwbtest/NBS2/P164.run +++ /dev/null @@ -1,73 +0,0 @@ -PROGRAM FILE 164: GENERAL USE OF NUMERIC EXPRESSIONS - IN LET-STATEMENT. - ANSI STANDARD 6.2, 6.4, 7.2, 7.4, 8.2, 8.4, - 16.2, 16.4 - -THIS PROGRAM EXERCISES THE FULL RANGE OF USES AND VARIETIES -OF NUMERIC EXPRESSIONS IN THE LET-STATEMENT. EXPRESSIONS ARE -COMPOSED OF ALL TYPES OF PRIMARIES AND ARE USED AS ARGUMENTS -OF FUNCTIONS AND AS SUBSCRIPTS. - -SECTION 164.1: NUMERIC EXPRESSIONS CONTAINING - SUBSCRIPTED VARIABLES AND FUNCTION REFERENCES. - -THIS SECTION TESTS WHETHER SUBSCRIPTED VARIABLES AND -REFERENCES TO BOTH IMPLEMENTATION-SUPPLIED AND -USER-DEFINED FUNCTIONS CAN BE USED AS PRIMARIES IN -NUMERIC EXPRESSIONS. - - BEGIN TEST. - -CASE # SHOULD BE ACTUAL OUTCOME - - 1 1 1 OK - 2 1 1. OK - 3 7 7. OK - 4 3 3. OK - -*** TEST PASSED *** - - END TEST. - -SECTION 164.2: NUMERIC EXPRESSIONS USED AS FUNCTION - ARGUMENTS AND ARRAY SUBSCRIPTS. - -THIS SECTION TESTS WHETHER NUMERIC EXPRESSIONS CAN BE -USED AS ARGUMENTS TO BOTH IMPLEMENTATION-SUPPLIED AND -USER-DEFINED FUNCTIONS AND ALSO AS SUBSCRIPTS. - - BEGIN TEST. - -CASE # SHOULD BE ACTUAL OUTCOME - - 1 1 1. OK - 2 1.2 1.2 OK - 3 .353336 .353336 OK - -*** TEST PASSED *** - - END TEST. - -SECTION 164.3: EXPRESSIONS USED AS SUBSCRIPTS ARE - ROUNDED TO NEAREST INTEGER. - -THIS SECTION ENSURES THAT WHEN EXPRESSIONS ARE USED AS -SUBSCRIPTS, THEY ARE ROUNDED TO THE NEAREST INTEGER. - - BEGIN TEST. - -CASE # SHOULD BE ACTUAL OUTCOME - - 1 27 27 OK - 2 1 1 OK - 3 11 11 OK - 4 1 1 OK - 5 71 71 OK - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 164 - -Program interrupted at line 6010 diff --git a/bwbtest/NBS2/P165.BAS b/bwbtest/NBS2/P165.BAS deleted file mode 100644 index a487b7c..0000000 --- a/bwbtest/NBS2/P165.BAS +++ /dev/null @@ -1,57 +0,0 @@ -10 PRINT "PROGRAM FILE 165: COMPOUND EXPRESSIONS AND PRINT." -20 PRINT " ANSI STANDARD 7.2, 7.4, 12.2, 12.4" -30 PRINT -40 PRINT "THIS PROGRAM TESTS THE USE OF NUMERIC EXPRESSIONS IN THE" -50 PRINT "CONTEXT OF THE PRINT STATEMENT." -60 PRINT -70 PRINT "SECTION 165.1: NUMERIC EXPRESSIONS AS PRINT ITEMS." -80 PRINT -90 PRINT " BEGIN TEST." -100 PRINT -110 DEF FNA(X)=X^2+1 -120 LET A1=0.5 -130 LET B1=-.25 -140 LET C1=16.0 -150 LET D1=-4.0 -152 FOR I=1 TO 7 -153 FOR J=1 TO 7 -155 LET Q(I,J)=I/J -156 NEXT J -157 NEXT I -160 PRINT "EXPECTED","CALCULATED" -170 PRINT " VALUES", " VALUES" -180 PRINT -190 PRINT -.25 ,3*A1+7*B1 -200 PRINT 6.5 ,ABS(A1+1.0-(C1+D1)+0.5*8.0) -210 PRINT 16.4794255,SIN(A1^2+ABS(B1))+C1 -220 PRINT 1.54192554,FNA(B1+A1)+SIN(A1) -225 PRINT 5.24288566E-22,EXP(-Q(7,1)/Q(1,7)) -230 PRINT -240 PRINT "*** TEST PASSED IF THE EXPECTED VALUES AND THE CALCULATED" -250 PRINT " VALUES ARE NUMERICALLY EQUAL OR APPROXIMATELY SO ***" -260 PRINT -270 PRINT " END TEST." -280 PRINT -290 PRINT "SECTION 165.2: NUMERIC EXPRESSIONS AS ARGUMENTS" -295 PRINT " TO TAB-CALLS." -300 PRINT -310 PRINT " BEGIN TEST." -320 PRINT -330 DEF FNB(X)=X^3-8 -340 LET A1=2.75 -350 LET B1=1.5 -360 LET C1=3.1 -370 PRINT "00000000011111111112222222222333333333344444444445"; -380 PRINT "5555555556666666666777" -390 PRINT "12345678901234567890123456789012345678901234567890"; -400 PRINT "1234567890123456789012" -410 PRINT TAB(2*C1-A1);"A";TAB(2*ABS(-B1)+A1-Q(1,5));"B"; -420 PRINT TAB(FNB(A1+B1)-.15);"C" -430 PRINT -440 PRINT "*** TEST PASSED IF THE CHARACTERS 'A', 'B' AND 'C' ARE" -450 PRINT " PRINTED IN COLUMNS 3, 6, AND 69 RESPECTIVELY ***" -460 PRINT -470 PRINT " END TEST." -480 PRINT -490 PRINT "END PROGRAM 165" -500 END diff --git a/bwbtest/NBS2/P165.run b/bwbtest/NBS2/P165.run deleted file mode 100644 index 03bb110..0000000 --- a/bwbtest/NBS2/P165.run +++ /dev/null @@ -1,39 +0,0 @@ -PROGRAM FILE 165: COMPOUND EXPRESSIONS AND PRINT. - ANSI STANDARD 7.2, 7.4, 12.2, 12.4 - -THIS PROGRAM TESTS THE USE OF NUMERIC EXPRESSIONS IN THE -CONTEXT OF THE PRINT STATEMENT. - -SECTION 165.1: NUMERIC EXPRESSIONS AS PRINT ITEMS. - - BEGIN TEST. - -EXPECTED CALCULATED - VALUES VALUES - --.25 -.25 - 6.5 6.5 - 16.4794 16.4794 - 1.54193 1.54193 - 5.24289E-22 5.24289E-22 - -*** TEST PASSED IF THE EXPECTED VALUES AND THE CALCULATED - VALUES ARE NUMERICALLY EQUAL OR APPROXIMATELY SO *** - - END TEST. - -SECTION 165.2: NUMERIC EXPRESSIONS AS ARGUMENTS - TO TAB-CALLS. - - BEGIN TEST. - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 - A B C - -*** TEST PASSED IF THE CHARACTERS 'A', 'B' AND 'C' ARE - PRINTED IN COLUMNS 3, 6, AND 69 RESPECTIVELY *** - - END TEST. - -END PROGRAM 165 diff --git a/bwbtest/NBS2/P166.BAS b/bwbtest/NBS2/P166.BAS deleted file mode 100644 index beb220f..0000000 --- a/bwbtest/NBS2/P166.BAS +++ /dev/null @@ -1,163 +0,0 @@ -10 PRINT "PROGRAM FILE 166: COMPOUND EXPRESSIONS USED WITH CONTROL" -20 PRINT " STATEMENTS AND FOR-STATEMENTS." -30 PRINT " ANSI STANDARD 7.2, 7.4, 10.2, 10.4, 11.2, 11.4" -40 PRINT -50 PRINT "THIS PROGRAM TESTS THE USE OF NUMERIC EXPRESSIONS WITHIN" -60 PRINT "THE CONTEXT OF THE CONTROL STATEMENTS IF-THEN AND ON-GOTO," -70 PRINT "AND ALSO WITHIN THE FOR-STATEMENT." -80 PRINT -90 PRINT "SECTION 166.1: NUMERIC EXPRESSIONS AND" -100 PRINT " THE IF-THEN-STATEMENT." -110 PRINT -120 PRINT " BEGIN TEST." -130 PRINT -140 DEF FNA(X)=X^2+2*X+1 -150 DEF FNC(X1)=LOG(X1)/LOG(10) -160 LET P1=3.14159265 -170 LET R(0)=0 -180 LET R(1)=1 -190 FOR I=2 TO 10 -200 LET R(I)=R(I-1)+R(I-2) -210 NEXT I -220 LET A1=3.5 -230 LET B1=1.625 -240 LET C1=.815 -250 LET D1=-4.5 -260 LET F=0 -270 IF A1+B1<5.13 THEN 300 -280 LET K$=" 1ST " -290 GOSUB 520 -300 IF -.99>A1-ABS(D1) THEN 330 -310 LET K$=" 2ND " -320 GOSUB 520 -330 IF INT(SQR(ABS(D1)))=2 THEN 360 -340 LET K$=" 3RD " -350 GOSUB 520 -360 IF FNA(A1)+5<=ABS(D1)+A1^3 THEN 390 -370 LET K$=" 4TH " -380 GOSUB 520 -390 IF EXP(A1)+D1>=(A1-.36)^2+D1 THEN 420 -400 LET K$=" 5TH " -410 GOSUB 520 -420 IF TAN(C1)+A1<>ATN(C1)+A1 THEN 450 -430 LET K$=" 6TH " -440 GOSUB 520 -450 IF -FNC(SQR(10^(SIN(P1/3)^2*R(6)))) < (R(5)-R(9))/10-.09 THEN 480 -460 LET K$=" 7TH " -470 GOSUB 520 -480 IF -FNC(SQR(10^(SIN(P1/3)^2*R(6)))) > (R(5)-R(9))/10-.11 THEN 510 -490 LET K$=" 8TH " -500 GOSUB 520 -510 GOTO 580 -520 REM SUBROUTINE TO HANDLE ERRORS -530 PRINT "EVALUATION OF THE RELATION BETWEEN THE";K$;"PAIR OF" -540 PRINT "EXPRESSIONS FAILED." -550 LET F=F+1 -560 PRINT -570 RETURN -580 IF F=0 THEN 610 -590 PRINT "*** TEST FAILED IN ";F;" CASE(S) ***" -600 GOTO 620 -610 PRINT "*** TEST PASSED ***" -620 PRINT -630 PRINT " END TEST." -640 PRINT -660 PRINT "SECTION 166.2: NUMERIC EXPRESSIONS AND" -670 PRINT " THE ON-GOTO-STATEMENT." -680 PRINT -690 PRINT " BEGIN TEST." -700 PRINT -710 LET F=0 -720 REM ON-GOTO SHOULD BRANCH TO 1ST, 4TH, AND 3RD BRANCH POINT FOR -730 REM X = 1, 3, AND 5 RESPECTIVELY. -740 FOR X=1 TO 5 STEP 2 -750 ON -(X*20*X+(R(8)-5*R(9))*X+SQR(11449))/40 GOTO 870,910,830,790 -760 PRINT "*** TEST FAILURE: ON GOTO FELL THROUGH FOR X = ";X -770 LET F=F+1 -780 GOTO 980 -790 REM 4TH ROUTINE -800 IF X=3 THEN 980 -810 LET K$="4TH" -820 GOTO 940 -830 REM 3RD ROUTINE -840 IF X=5 THEN 980 -850 LET K$="3RD" -860 GOTO 940 -870 REM 1ST ROUTINE -880 IF X=1 THEN 980 -890 GOTO 940 -910 REM 2ND ROUTINE -920 LET K$="2ND" -930 GOTO 940 -940 PRINT "*** TEST FAILURE: ON-GOTO BRANCHED TO ";K$;" ROUTINE" -950 PRINT " FOR X = ";X -960 PRINT -970 LET F=F+1 -980 NEXT X -990 IF F=0 THEN 1020 -1000 PRINT "*** TEST FAILED IN ";F;" CASE(S) ***" -1010 GOTO 1030 -1020 PRINT "*** TEST PASSED ***" -1030 PRINT -1040 PRINT " END TEST." -1050 PRINT -1060 PRINT "SECTION 166.3: NUMERIC EXPRESSIONS AND" -1070 PRINT " THE FOR-NEXT-STATEMENT." -1080 PRINT -1090 PRINT " BEGIN TEST." -1100 PRINT -1110 REM CORRECT EXECUTION PARAMETERS: -1120 REM CTL. VAR. FROM T0 STEP NO. LOOPS -1130 REM I0 3 6 1 4 -1140 REM I1 10 4 -1 7 -1150 REM I2 228 1000 100 8 -1160 REM I3 2 -20 -2 12 -1200 LET N1=3 -1210 LET M1=6 -1220 LET N(M1)=10 -1230 LET M(M1)=4 -1240 LET O=-1 -1250 LET K=0 -1260 LET J0=3 -1270 FOR I0=N1 TO M1 -1280 LET J1=10 -1290 FOR I1=N(M1) TO M(M1) STEP O -1300 LET J2=228 -1310 FOR I2=M1^2+2*M1*M(M1)^2 TO (N(M1)^3-1)+ABS(O) STEP 20*N(M1)/2 -1320 LET J3=2 -1330 FOR I3=ABS(M(M1)-M1) TO M(M1)^2-M1^2 STEP 2*SGN(M(M1)^2-M1^2) -1340 IF I0<>J0 THEN 1520 -1350 IF I1<>J1 THEN 1520 -1360 IF I2<>J2 THEN 1520 -1370 IF I3<>J3 THEN 1520 -1380 LET K=K+1 -1390 LET M1 = M1 + 1 -1400 LET J3=J3-2 -1410 NEXT I3 -1420 LET M1=6 -1430 LET J2=J2+100 -1440 NEXT I2 -1450 LET J1=J1-1 -1460 NEXT I1 -1470 LET J0=J0+1 -1480 NEXT I0 -1490 IF K<>2688 THEN 1600 -1500 PRINT "*** TEST PASSED ***" -1510 GOTO 1640 -1520 PRINT "*** TEST FAILED ***" -1530 PRINT -1540 PRINT "CTL. VAR.","SHOULD BE","ACTUAL" -1550 PRINT "I0",J0,I0 -1560 PRINT "I1",J1,I1 -1570 PRINT "I2",J2,I2 -1580 PRINT "I3",J3,I3 -1590 GOTO 1640 -1600 PRINT "*** TEST FAILED ***" -1610 PRINT -1620 PRINT "INNERMOST LOOP SHOULD HAVE BEEN EXECUTED 2688 TIMES." -1630 PRINT "ACTUAL COUNT = ";K -1640 PRINT -1650 PRINT " END TEST." -1660 PRINT -1670 PRINT "END PROGRAM 166." -1680 END diff --git a/bwbtest/NBS2/P166.run b/bwbtest/NBS2/P166.run deleted file mode 100644 index 3f30f3f..0000000 --- a/bwbtest/NBS2/P166.run +++ /dev/null @@ -1,36 +0,0 @@ -PROGRAM FILE 166: COMPOUND EXPRESSIONS USED WITH CONTROL - STATEMENTS AND FOR-STATEMENTS. - ANSI STANDARD 7.2, 7.4, 10.2, 10.4, 11.2, 11.4 - -THIS PROGRAM TESTS THE USE OF NUMERIC EXPRESSIONS WITHIN -THE CONTEXT OF THE CONTROL STATEMENTS IF-THEN AND ON-GOTO, -AND ALSO WITHIN THE FOR-STATEMENT. - -SECTION 166.1: NUMERIC EXPRESSIONS AND - THE IF-THEN-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 166.2: NUMERIC EXPRESSIONS AND - THE ON-GOTO-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -SECTION 166.3: NUMERIC EXPRESSIONS AND - THE FOR-NEXT-STATEMENT. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 166. diff --git a/bwbtest/NBS2/P167.BAS b/bwbtest/NBS2/P167.BAS deleted file mode 100644 index b2d6097..0000000 --- a/bwbtest/NBS2/P167.BAS +++ /dev/null @@ -1,74 +0,0 @@ -10 PRINT "PROGRAM FILE 167: EXCEPTION - EVALUATION OF NUMERIC" -20 PRINT " EXPRESSIONS ACTING AS FUNCTION ARGUMENTS." -40 PRINT " ANSI STANDARD 7.5, 8.4, 16.4" -50 PRINT -60 PRINT "THIS PROGRAM TESTS THAT THE RECOVERY PROCEDURES FOR" -70 PRINT "EXCEPTIONS OCCURRING DURING THE EVALUATION OF NUMERIC" -80 PRINT "EXPRESSIONS WORK PROPERLY IN CONTEXTS OTHER THAN SIMPLE" -90 PRINT "ASSIGNMENT OF THE EXPRESSION TO A VARIABLE. SPECIFICALLY," -100 PRINT "EXPRESSIONS ARE USED AS ARGUMENTS TO FUNCTIONS." -120 PRINT -130 PRINT "SECTION 167.1: DIVISION BY ZERO IN AN ARGUMENT TO A" -140 PRINT " USER-DEFINED FUNCTION." -150 PRINT -160 PRINT "TO PASS THIS TEST:" -170 PRINT -180 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -190 PRINT " DISPLAYED, AND" -200 PRINT -210 PRINT " 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -220 PRINT " OF THE ARGUMENT AND EXECUTION CONTINUES." -230 PRINT -240 PRINT " BEGIN TEST." -250 PRINT -260 DEF FNC(X)=LOG(X)/LOG(10) -270 LET A=5 -280 LET B=0 -290 PRINT "ABOUT TO EVALUATE FNC(5/0), WHERE FNC = COMMON LOG." -300 PRINT "EXCEPTION SHOULD BE REPORTED NOW:" -310 PRINT -320 LET C=FNC(A/B) -330 PRINT -340 PRINT "RESULT OF FNC(5/0) = ";C -350 PRINT -360 IF C >= 37.99 THEN 400 -370 PRINT "*** TEST FAILED: RESULT < 38 ***" -380 GOTO 440 -400 PRINT "IF EXCEPTION REPORTED, AND" -410 PRINT " RESULT = COMMON LOG OF MACHINE INFINITY, THEN" -420 PRINT "*** TEST PASSED ***" -440 PRINT -450 PRINT " END TEST." -460 PRINT -1110 PRINT "SECTION 167.2: ZERO RAISED TO A NEGATIVE POWER IN AN" -1120 PRINT " ARGUMENT TO AN IMPLEMENTATION-SUPPLIED FUNCTION." -1130 PRINT -1140 PRINT "TO PASS THIS TEST:" -1150 PRINT -1160 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -1170 PRINT " DISPLAYED, AND" -1180 PRINT -1190 PRINT " 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -1200 PRINT " OF THE ARGUMENT AND EXECUTION CONTINUES." -1210 PRINT -1220 PRINT " BEGIN TEST." -1230 PRINT -1250 LET A=-5 -1260 LET B=0 -1270 PRINT "ABOUT TO EVALUATE ATN(0^(-5))." -1280 PRINT "EXCEPTION SHOULD BE REPORTED NOW:" -1290 PRINT -1300 LET C=ATN(B^A) -1310 PRINT -1320 PRINT "RESULT OF ATN(0^(-5)) = ";C -1330 PRINT -1340 IF ABS(C-1.5708) <= .001 THEN 1370 -1350 PRINT "*** TEST FAILED: RESULT <> PI/2 ***" -1360 GOTO 1400 -1370 PRINT "IF EXCEPTION REPORTED, THEN" -1390 PRINT "*** TEST PASSED ***" -1400 PRINT -1410 PRINT " END TEST." -1420 PRINT -1440 PRINT "END PROGRAM 167" -1450 END diff --git a/bwbtest/NBS2/P167.run b/bwbtest/NBS2/P167.run deleted file mode 100644 index f9906d0..0000000 --- a/bwbtest/NBS2/P167.run +++ /dev/null @@ -1,62 +0,0 @@ -PROGRAM FILE 167: EXCEPTION - EVALUATION OF NUMERIC - EXPRESSIONS ACTING AS FUNCTION ARGUMENTS. - ANSI STANDARD 7.5, 8.4, 16.4 - -THIS PROGRAM TESTS THAT THE RECOVERY PROCEDURES FOR -EXCEPTIONS OCCURRING DURING THE EVALUATION OF NUMERIC -EXPRESSIONS WORK PROPERLY IN CONTEXTS OTHER THAN SIMPLE -ASSIGNMENT OF THE EXPRESSION TO A VARIABLE. SPECIFICALLY, -EXPRESSIONS ARE USED AS ARGUMENTS TO FUNCTIONS. - -SECTION 167.1: DIVISION BY ZERO IN AN ARGUMENT TO A - USER-DEFINED FUNCTION. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE ARGUMENT AND EXECUTION CONTINUES. - - BEGIN TEST. - -ABOUT TO EVALUATE FNC(5/0), WHERE FNC = COMMON LOG. -EXCEPTION SHOULD BE REPORTED NOW: - -Division by zero - -RESULT OF FNC(5/0) = 308.255 - -IF EXCEPTION REPORTED, AND - RESULT = COMMON LOG OF MACHINE INFINITY, THEN -*** TEST PASSED *** - - END TEST. - -SECTION 167.2: ZERO RAISED TO A NEGATIVE POWER IN AN - ARGUMENT TO AN IMPLEMENTATION-SUPPLIED FUNCTION. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE ARGUMENT AND EXECUTION CONTINUES. - - BEGIN TEST. - -ABOUT TO EVALUATE ATN(0^(-5)). -EXCEPTION SHOULD BE REPORTED NOW: - -Overflow - -RESULT OF ATN(0^(-5)) = 1.5708 - -IF EXCEPTION REPORTED, THEN -*** TEST PASSED *** - - END TEST. - -END PROGRAM 167 diff --git a/bwbtest/NBS2/P168.BAS b/bwbtest/NBS2/P168.BAS deleted file mode 100644 index f239969..0000000 --- a/bwbtest/NBS2/P168.BAS +++ /dev/null @@ -1,44 +0,0 @@ -10 PRINT "PROGRAM FILE 168: EXCEPTION - OVERFLOW IN THE SUBSCRIPT" -20 PRINT " OF AN ARRAY." -40 PRINT " ANSI STANDARD 6.4, 6.5, 7.5" -50 PRINT -60 PRINT "THIS PROGRAM TESTS THAT THE RECOVERY PROCEDURES FOR" -70 PRINT "EXCEPTIONS OCCURRING DURING THE EVALUATION OF NUMERIC" -80 PRINT "EXPRESSIONS WORK PROPERLY IN CONTEXTS OTHER THAN SIMPLE" -90 PRINT "ASSIGNMENT OF THE EXPRESSION TO A VARIABLE. SPECIFICALLY," -100 PRINT "AN EXPRESSION IS USED AS A SUBSCRIPT OF AN ARRAY." -110 PRINT -120 PRINT "SECTION 168.1: EXCEPTION - OVERFLOW IN THE SUBSCRIPT" -125 PRINT " OF AN ARRAY." -130 PRINT -140 PRINT "TO PASS THIS TEST:" -150 PRINT -160 PRINT " 1) A MESSAGE IDENTIFYING THE OVERFLOW EXCEPTION MUST" -170 PRINT " BE DISPLAYED," -180 PRINT -190 PRINT " 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE" -200 PRINT " OF THE SUBSCRIPT AND EXECUTION CONTINUES," -210 PRINT -220 PRINT " 3) WHEREUPON AN EXCEPTION MUST BE REPORTED" -230 PRINT " FOR SUBSCRIPT OUT OF RANGE, AND" -240 PRINT -250 PRINT " 4) EXECUTION MUST TERMINATE." -260 PRINT -270 PRINT " BEGIN TEST." -280 PRINT -290 FOR I=0 TO 10 -300 LET Z(I)=I+100 -310 NEXT I -320 LET A=9999 -330 PRINT "ABOUT TO EVALUATE Z(9999^9999), WHERE Z(I) = I + 100." -340 PRINT -390 LET C=Z(A^A) -400 PRINT -410 PRINT "RESULT OF Z(9999^9999) = ";C -420 PRINT -430 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE. ***" -440 PRINT -450 PRINT " END TEST." -460 PRINT -470 PRINT "END PROGRAM 168" -480 END diff --git a/bwbtest/NBS2/P168.run b/bwbtest/NBS2/P168.run deleted file mode 100644 index 29b14ff..0000000 --- a/bwbtest/NBS2/P168.run +++ /dev/null @@ -1,33 +0,0 @@ -PROGRAM FILE 168: EXCEPTION - OVERFLOW IN THE SUBSCRIPT - OF AN ARRAY. - ANSI STANDARD 6.4, 6.5, 7.5 - -THIS PROGRAM TESTS THAT THE RECOVERY PROCEDURES FOR -EXCEPTIONS OCCURRING DURING THE EVALUATION OF NUMERIC -EXPRESSIONS WORK PROPERLY IN CONTEXTS OTHER THAN SIMPLE -ASSIGNMENT OF THE EXPRESSION TO A VARIABLE. SPECIFICALLY, -AN EXPRESSION IS USED AS A SUBSCRIPT OF AN ARRAY. - -SECTION 168.1: EXCEPTION - OVERFLOW IN THE SUBSCRIPT - OF AN ARRAY. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE OVERFLOW EXCEPTION MUST - BE DISPLAYED, - - 2) POSITIVE INFINITY MUST BE SUPPLIED AS THE VALUE - OF THE SUBSCRIPT AND EXECUTION CONTINUES, - - 3) WHEREUPON AN EXCEPTION MUST BE REPORTED - FOR SUBSCRIPT OUT OF RANGE, AND - - 4) EXECUTION MUST TERMINATE. - - BEGIN TEST. - -ABOUT TO EVALUATE Z(9999^9999), WHERE Z(I) = I + 100. - -Overflow - -ERROR in line 390: Subscript out of range diff --git a/bwbtest/NBS2/P169.BAS b/bwbtest/NBS2/P169.BAS deleted file mode 100644 index fbca546..0000000 --- a/bwbtest/NBS2/P169.BAS +++ /dev/null @@ -1,72 +0,0 @@ -10 PRINT "PROGRAM FILE 169: EXCEPTION - NUMERIC UNDERFLOW IN THE" -20 PRINT " EVALUATION OF NUMERIC EXPRESSIONS ACTING AS " -30 PRINT " ARGUMENTS AND SUBSCRIPTS." -40 PRINT " ANSI STANDARD 6.4, 7.4, 7.6, 8.4" -50 PRINT -60 PRINT "THIS PROGRAM TESTS THAT THE HANDLING OF" -70 PRINT "UNDERFLOW OCCURRING DURING THE EVALUATION OF NUMERIC" -80 PRINT "EXPRESSIONS WORKS PROPERLY IN CONTEXTS OTHER THAN SIMPLE" -90 PRINT "ASSIGNMENT OF THE EXPRESSION TO A VARIABLE. SPECIFICALLY," -100 PRINT "EXPRESSIONS ARE USED AS ARGUMENTS TO FUNCTIONS AND" -110 PRINT "SUBSCRIPTS OF ARRAYS." -120 PRINT -130 PRINT "SECTION 169.1: NUMERIC UNDERFLOW IN AN ARGUMENT TO A" -140 PRINT " SUPPLIED FUNCTION." -150 PRINT -160 PRINT "TO PASS THIS TEST:" -170 PRINT -180 PRINT " 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE" -190 PRINT " DISPLAYED (NOT MANDATORY), AND" -200 PRINT -210 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE" -220 PRINT " OF THE ARGUMENT AND EXECUTION CONTINUES." -230 PRINT -240 PRINT " BEGIN TEST." -250 PRINT -270 LET A=5000 -280 LET B=1E-20 -290 PRINT "ABOUT TO EVALUATE EXP(1E-20 ^ 5000)." -310 PRINT -320 LET C=EXP(B^A) -330 PRINT -340 PRINT "RESULT OF EXP(1E-20 ^ 5000) = ";C -350 PRINT -360 IF ABS(C-1) <= .001 THEN 400 -370 PRINT "*** TEST FAILED: RESULT <> 1 ***" -380 GOTO 440 -400 PRINT "*** TEST PASSED ***" -440 PRINT -450 PRINT " END TEST." -460 PRINT -1110 PRINT "SECTION 169.2: NUMERIC UNDERFLOW IN AN ARRAY SUBSCRIPT." -1130 PRINT -1160 PRINT "TO PASS THIS TEST:" -1170 PRINT -1180 PRINT " 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE" -1190 PRINT " DISPLAYED (NOT MANDATORY), AND" -1200 PRINT -1210 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE" -1220 PRINT " OF THE SUBSCRIPT AND EXECUTION CONTINUES." -1230 PRINT -1240 PRINT " BEGIN TEST." -1250 PRINT -1270 LET A=5001 -1280 LET B=-1E-20 -1282 FOR I=0 TO 10 -1284 LET Z(I)=100+I -1286 NEXT I -1290 PRINT "ABOUT TO EVALUATE Z(-1E-20 ^ 5001), WHERE Z(I) = I + 100." -1310 PRINT -1320 LET C=Z(B^A) -1330 PRINT -1340 PRINT "RESULT OF Z(-1E-20 ^ 5001) = ";C -1350 PRINT -1360 IF ABS(C-100) <= .01 THEN 1400 -1370 PRINT "*** TEST FAILED: RESULT <> 100 ***" -1380 GOTO 1440 -1400 PRINT "*** TEST PASSED ***" -1440 PRINT -1450 PRINT " END TEST." -1460 PRINT -3440 PRINT "END PROGRAM 169" -3450 END diff --git a/bwbtest/NBS2/P169.run b/bwbtest/NBS2/P169.run deleted file mode 100644 index 23983df..0000000 --- a/bwbtest/NBS2/P169.run +++ /dev/null @@ -1,56 +0,0 @@ -PROGRAM FILE 169: EXCEPTION - NUMERIC UNDERFLOW IN THE - EVALUATION OF NUMERIC EXPRESSIONS ACTING AS - ARGUMENTS AND SUBSCRIPTS. - ANSI STANDARD 6.4, 7.4, 7.6, 8.4 - -THIS PROGRAM TESTS THAT THE HANDLING OF -UNDERFLOW OCCURRING DURING THE EVALUATION OF NUMERIC -EXPRESSIONS WORKS PROPERLY IN CONTEXTS OTHER THAN SIMPLE -ASSIGNMENT OF THE EXPRESSION TO A VARIABLE. SPECIFICALLY, -EXPRESSIONS ARE USED AS ARGUMENTS TO FUNCTIONS AND -SUBSCRIPTS OF ARRAYS. - -SECTION 169.1: NUMERIC UNDERFLOW IN AN ARGUMENT TO A - SUPPLIED FUNCTION. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE - DISPLAYED (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE - OF THE ARGUMENT AND EXECUTION CONTINUES. - - BEGIN TEST. - -ABOUT TO EVALUATE EXP(1E-20 ^ 5000). - - -RESULT OF EXP(1E-20 ^ 5000) = 1 - -*** TEST PASSED *** - - END TEST. - -SECTION 169.2: NUMERIC UNDERFLOW IN AN ARRAY SUBSCRIPT. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING AN EXCEPTION MAY BE - DISPLAYED (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE - OF THE SUBSCRIPT AND EXECUTION CONTINUES. - - BEGIN TEST. - -ABOUT TO EVALUATE Z(-1E-20 ^ 5001), WHERE Z(I) = I + 100. - - -RESULT OF Z(-1E-20 ^ 5001) = 100 - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 169 diff --git a/bwbtest/NBS2/P170.BAS b/bwbtest/NBS2/P170.BAS deleted file mode 100644 index 6bcc84b..0000000 --- a/bwbtest/NBS2/P170.BAS +++ /dev/null @@ -1,34 +0,0 @@ -10 PRINT "PROGRAM FILE 170: EXCEPTION - NEGATIVE QUANTITY RAISED TO A" -20 PRINT " NON-INTEGRAL POWER IN A SUBSCRIPT." -30 PRINT " ANSI STANDARD 7.5, 6.2" -40 PRINT -50 PRINT "SECTION 170.1: EXCEPTION - NEGATIVE QUANTITY RAISED TO A" -60 PRINT " NON-INTEGRAL POWER IN A SUBSCRIPT." -70 PRINT -80 PRINT "TO PASS THIS TEST:" -90 PRINT -100 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -110 PRINT " DISPLAYED, AND" -120 PRINT -130 PRINT " 2) EXECUTION MUST TERMINATE" -140 PRINT -150 PRINT " BEGIN TEST" -160 PRINT -170 FOR I=0 TO 10 -180 LET Z(I)=I+100 -190 NEXT I -200 PRINT "ABOUT TO EVALUATE Z((-2) ^ 3.00001)," -210 PRINT "WHERE Z(I) = I + 100" -260 PRINT -270 LET B=3.00001 -280 LET A=-2 -290 LET C=Z(A^B) -300 PRINT -310 PRINT "RESULT OF Z((-2) ^ 3.00001) = ";C -320 PRINT -330 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE. ***" -340 PRINT -350 PRINT " END TEST" -360 PRINT -370 PRINT "END PROGRAM 170" -380 END diff --git a/bwbtest/NBS2/P170.run b/bwbtest/NBS2/P170.run deleted file mode 100644 index 1758481..0000000 --- a/bwbtest/NBS2/P170.run +++ /dev/null @@ -1,21 +0,0 @@ -PROGRAM FILE 170: EXCEPTION - NEGATIVE QUANTITY RAISED TO A - NON-INTEGRAL POWER IN A SUBSCRIPT. - ANSI STANDARD 7.5, 6.2 - -SECTION 170.1: EXCEPTION - NEGATIVE QUANTITY RAISED TO A - NON-INTEGRAL POWER IN A SUBSCRIPT. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) EXECUTION MUST TERMINATE - - BEGIN TEST - -ABOUT TO EVALUATE Z((-2) ^ 3.00001), -WHERE Z(I) = I + 100 - - -ERROR in line 290: Illegal function call diff --git a/bwbtest/NBS2/P171.BAS b/bwbtest/NBS2/P171.BAS deleted file mode 100644 index 907ceb0..0000000 --- a/bwbtest/NBS2/P171.BAS +++ /dev/null @@ -1,31 +0,0 @@ -10 PRINT "PROGRAM FILE 171: EXCEPTION - LOG OF A NEGATIVE QUANTITY" -20 PRINT " IN AN ARGUMENT." -30 PRINT " ANSI STANDARD 8.5, 16.2" -40 PRINT -50 PRINT "SECTION 171.1: EXCEPTION - LOG OF A NEGATIVE QUANTITY" -60 PRINT " IN AN ARGUMENT." -70 PRINT -80 PRINT "TO PASS THIS TEST:" -90 PRINT -100 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -110 PRINT " DISPLAYED, AND" -120 PRINT -130 PRINT " 2) EXECUTION MUST TERMINATE" -140 PRINT -150 PRINT " BEGIN TEST" -160 PRINT -170 DEF FNT(X)=X/3 -180 PRINT "ABOUT TO EVALUATE FNT(LOG(-2))," -190 PRINT "WHERE FNT(X) = X/3" -200 PRINT -260 LET A=-2 -270 LET C=FNT(LOG(A)) -280 PRINT -290 PRINT "RESULT OF FNT(LOG(-2)) = ";C -300 PRINT -310 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE. ***" -320 PRINT -330 PRINT " END TEST" -340 PRINT -350 PRINT "END PROGRAM 171" -360 END diff --git a/bwbtest/NBS2/P171.run b/bwbtest/NBS2/P171.run deleted file mode 100644 index 0005356..0000000 --- a/bwbtest/NBS2/P171.run +++ /dev/null @@ -1,21 +0,0 @@ -PROGRAM FILE 171: EXCEPTION - LOG OF A NEGATIVE QUANTITY - IN AN ARGUMENT. - ANSI STANDARD 8.5, 16.2 - -SECTION 171.1: EXCEPTION - LOG OF A NEGATIVE QUANTITY - IN AN ARGUMENT. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) EXECUTION MUST TERMINATE - - BEGIN TEST - -ABOUT TO EVALUATE FNT(LOG(-2)), -WHERE FNT(X) = X/3 - - -ERROR in line 270: Illegal function call diff --git a/bwbtest/NBS2/P172.BAS b/bwbtest/NBS2/P172.BAS deleted file mode 100644 index cabc364..0000000 --- a/bwbtest/NBS2/P172.BAS +++ /dev/null @@ -1,27 +0,0 @@ -10 PRINT "PROGRAM FILE 172: EXCEPTION - SQR OF NEGATIVE QUANTITY " -20 PRINT " IN PRINT-ITEM." -30 PRINT " ANSI STANDARD 8.5, 12.2" -40 PRINT -50 PRINT "SECTION 172.1: EXCEPTION - SQR OF NEGATIVE QUANTITY " -55 PRINT " IN PRINT-ITEM." -60 PRINT -70 PRINT "TO PASS THIS TEST:" -80 PRINT -90 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -100 PRINT " DISPLAYED, AND" -110 PRINT -120 PRINT " 2) EXECUTION MUST TERMINATE." -130 PRINT -140 PRINT " BEGIN TEST." -150 PRINT -160 PRINT "ABOUT TO EXECUTE:" -170 PRINT " PRINT SQR (-2)" -180 LET A=-2 -200 PRINT SQR(A) -230 PRINT -240 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE. ***" -250 PRINT -260 PRINT " END TEST." -270 PRINT -280 PRINT "END PROGRAM 172." -290 END diff --git a/bwbtest/NBS2/P172.run b/bwbtest/NBS2/P172.run deleted file mode 100644 index 0a1d308..0000000 --- a/bwbtest/NBS2/P172.run +++ /dev/null @@ -1,20 +0,0 @@ -PROGRAM FILE 172: EXCEPTION - SQR OF NEGATIVE QUANTITY - IN PRINT-ITEM. - ANSI STANDARD 8.5, 12.2 - -SECTION 172.1: EXCEPTION - SQR OF NEGATIVE QUANTITY - IN PRINT-ITEM. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) EXECUTION MUST TERMINATE. - - BEGIN TEST. - -ABOUT TO EXECUTE: - PRINT SQR (-2) - -ERROR in line 200: Illegal function call diff --git a/bwbtest/NBS2/P173.BAS b/bwbtest/NBS2/P173.BAS deleted file mode 100644 index 86cc74b..0000000 --- a/bwbtest/NBS2/P173.BAS +++ /dev/null @@ -1,32 +0,0 @@ -10 PRINT "PROGRAM FILE 173: EXCEPTION - NEGATIVE QUANTITY RAISED TO" -20 PRINT " A NON-INTEGRAL POWER IN TAB-ITEM." -30 PRINT " ANSI STANDARD 7.5, 12.2" -40 PRINT -50 PRINT "SECTION 173.1: EXCEPTION - NEGATIVE QUANTITY RAISED TO" -55 PRINT " A NON-INTEGRAL POWER IN TAB-ITEM." -60 PRINT -70 PRINT "TO PASS THIS TEST:" -80 PRINT -90 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -100 PRINT " DISPLAYED, AND" -110 PRINT -120 PRINT " 2) EXECUTION MUST TERMINATE" -130 PRINT -140 PRINT " BEGIN TEST." -150 PRINT -160 PRINT "ABOUT TO EXECUTE:" -170 PRINT " PRINT A$;TAB((-3) ^ 1.99999);B$" -190 PRINT " (WHERE A$ = '111' AND B$ = '222')" -195 PRINT -200 LET A$="111" -210 LET B$="222" -220 LET C=-3 -225 LET D=1.99999 -230 PRINT A$;TAB(C^D);B$ -240 PRINT -250 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE. ***" -260 PRINT -270 PRINT " END TEST." -280 PRINT -290 PRINT "END PROGRAM 173." -300 END diff --git a/bwbtest/NBS2/P173.run b/bwbtest/NBS2/P173.run deleted file mode 100644 index e4debeb..0000000 --- a/bwbtest/NBS2/P173.run +++ /dev/null @@ -1,22 +0,0 @@ -PROGRAM FILE 173: EXCEPTION - NEGATIVE QUANTITY RAISED TO - A NON-INTEGRAL POWER IN TAB-ITEM. - ANSI STANDARD 7.5, 12.2 - -SECTION 173.1: EXCEPTION - NEGATIVE QUANTITY RAISED TO - A NON-INTEGRAL POWER IN TAB-ITEM. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) EXECUTION MUST TERMINATE - - BEGIN TEST. - -ABOUT TO EXECUTE: - PRINT A$;TAB((-3) ^ 1.99999);B$ - (WHERE A$ = '111' AND B$ = '222') - -111 -ERROR in line 230: Illegal function call diff --git a/bwbtest/NBS2/P174.BAS b/bwbtest/NBS2/P174.BAS deleted file mode 100644 index 3fafd44..0000000 --- a/bwbtest/NBS2/P174.BAS +++ /dev/null @@ -1,74 +0,0 @@ -10 PRINT "PROGRAM FILE 174: EXCEPTION - EVALUATION OF NUMERIC" -20 PRINT " EXPRESSIONS IN THE PRINT STATEMENT." -30 PRINT " ANSI STANDARD 7.5, 8.5, 12.2" -40 PRINT -50 PRINT "THIS PROGRAM TESTS THE EFFECT OF THE VARIOUS EXCEPTIONS THAT" -60 PRINT "CAN OCCUR IN NUMERIC EXPRESSIONS IN THE CONTEXT OF THE PRINT" -70 PRINT "STATEMENT." -80 PRINT -90 PRINT "SECTION 174.1: EXCEPTIONAL EXPRESSIONS AS PRINT-ITEMS." -100 PRINT -110 PRINT "THIS SECTION TESTS THE EFFECT OF PRINTING EXPRESSIONS WHICH" -120 PRINT "CAUSE NON-FATAL EXCEPTIONS." -130 PRINT -160 PRINT "TO PASS THIS TEST:" -170 PRINT -180 PRINT " 1) FOUR EXCEPTIONS MUST BE REPORTED; OVERFLOW, DIVISION" -190 PRINT " BY ZERO, ZERO RAISED TO A NEGATIVE POWER, AND" -195 PRINT " OVERFLOW OF EXP FUNCTION, AND" -200 PRINT -210 PRINT " 2) NEGATIVE, NEGATIVE, POSITIVE, AND POSITIVE MACHINE" -220 PRINT " INFINITY MUST BE SUPPLIED AS THE VALUES OF THE" -230 PRINT " EXPRESSIONS AND THEN PRINTED." -240 PRINT -242 PRINT " BEGIN TEST." -246 PRINT -250 PRINT "ABOUT TO EXECUTE:" -260 PRINT " PRINT (-1E-33) ^ (-3333), (-1E-33) / 0, 0 ^ (-1E-33)"; -265 PRINT ", EXP(1E20)" -270 LET A=0 -280 LET B=-3333 -290 LET C=-1E-33 -295 LET D=1E20 -300 PRINT -310 PRINT C^B, C/A, A^C, EXP(D) -320 PRINT -330 PRINT "IF FOUR EXCEPTIONS REPORTED AND NEGATIVE, NEGATIVE," -340 PRINT " POSITIVE, AND POSITIVE INFINITY PRINTED, THEN" -350 PRINT "*** TEST PASSED ***" -360 PRINT -370 PRINT " END TEST." -380 PRINT -390 PRINT "SECTION 174.2: EXCEPTIONAL EXPRESSIONS AS TAB-ITEMS." -400 PRINT -410 PRINT "THIS SECTION TESTS THE EFFECT OF OVERFLOW IN A TAB-ITEM." -420 PRINT -430 PRINT "TO PASS THIS TEST:" -440 PRINT -450 PRINT " 1) THE OVERFLOW EXCEPTION MUST BE REPORTED, AND" -460 PRINT -470 PRINT " 2) EXECUTION CONTINUES, WITH THE TAB EVALUATING TO" -480 PRINT " SOME ARBITRARY PRINT POSITION." -490 PRINT -500 PRINT " BEGIN TEST." -510 PRINT -520 PRINT "ABOUT TO EXECUTE:" -530 PRINT " PRINT TAB(9^(9^9));X$" -540 PRINT " (WHERE X$ = 'X')" -550 PRINT -560 PRINT "0000000001111111111222222222233333333334444444444"; -570 PRINT "55555555556666666666777" -580 PRINT "1234567890123456789012345678901234567890123456789"; -590 PRINT "01234567890123456789012" -600 LET X$="X" -610 LET D=9 -620 PRINT TAB(D^(D^D));X$ -630 PRINT -640 PRINT "IF OVERFLOW EXCEPTION REPORTED, AND 'X' APPEARED FOLLOWING" -650 PRINT " NUMBERED LINES, THEN" -660 PRINT "*** TEST PASSED ***" -670 PRINT -680 PRINT " END TEST." -690 PRINT -700 PRINT "END PROGRAM 174" -710 END diff --git a/bwbtest/NBS2/P174.run b/bwbtest/NBS2/P174.run deleted file mode 100644 index f4e9b71..0000000 --- a/bwbtest/NBS2/P174.run +++ /dev/null @@ -1,70 +0,0 @@ -PROGRAM FILE 174: EXCEPTION - EVALUATION OF NUMERIC - EXPRESSIONS IN THE PRINT STATEMENT. - ANSI STANDARD 7.5, 8.5, 12.2 - -THIS PROGRAM TESTS THE EFFECT OF THE VARIOUS EXCEPTIONS THAT -CAN OCCUR IN NUMERIC EXPRESSIONS IN THE CONTEXT OF THE PRINT -STATEMENT. - -SECTION 174.1: EXCEPTIONAL EXPRESSIONS AS PRINT-ITEMS. - -THIS SECTION TESTS THE EFFECT OF PRINTING EXPRESSIONS WHICH -CAUSE NON-FATAL EXCEPTIONS. - -TO PASS THIS TEST: - - 1) FOUR EXCEPTIONS MUST BE REPORTED; OVERFLOW, DIVISION - BY ZERO, ZERO RAISED TO A NEGATIVE POWER, AND - OVERFLOW OF EXP FUNCTION, AND - - 2) NEGATIVE, NEGATIVE, POSITIVE, AND POSITIVE MACHINE - INFINITY MUST BE SUPPLIED AS THE VALUES OF THE - EXPRESSIONS AND THEN PRINTED. - - BEGIN TEST. - -ABOUT TO EXECUTE: - PRINT (-1E-33) ^ (-3333), (-1E-33) / 0, 0 ^ (-1E-33), EXP(1E20) - -Overflow --1.79769E+308 Division by zero --1.79769E+308 Overflow - 1.79769E+308 Overflow - 1.79769E+308 - -IF FOUR EXCEPTIONS REPORTED AND NEGATIVE, NEGATIVE, - POSITIVE, AND POSITIVE INFINITY PRINTED, THEN -*** TEST PASSED *** - - END TEST. - -SECTION 174.2: EXCEPTIONAL EXPRESSIONS AS TAB-ITEMS. - -THIS SECTION TESTS THE EFFECT OF OVERFLOW IN A TAB-ITEM. - -TO PASS THIS TEST: - - 1) THE OVERFLOW EXCEPTION MUST BE REPORTED, AND - - 2) EXECUTION CONTINUES, WITH THE TAB EVALUATING TO - SOME ARBITRARY PRINT POSITION. - - BEGIN TEST. - -ABOUT TO EXECUTE: - PRINT TAB(9^(9^9));X$ - (WHERE X$ = 'X') - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 -Overflow -Overflow -X - -IF OVERFLOW EXCEPTION REPORTED, AND 'X' APPEARED FOLLOWING - NUMBERED LINES, THEN -*** TEST PASSED *** - - END TEST. - -END PROGRAM 174 diff --git a/bwbtest/NBS2/P175.BAS b/bwbtest/NBS2/P175.BAS deleted file mode 100644 index 7ea5b60..0000000 --- a/bwbtest/NBS2/P175.BAS +++ /dev/null @@ -1,73 +0,0 @@ -10 PRINT "PROGRAM FILE 175: EXCEPTION - UNDERFLOW IN THE EVALUATION" -20 PRINT " OF NUMERIC EXPRESSIONS IN THE PRINT STATEMENT." -30 PRINT " ANSI STANDARD 7.4, 7.6, 8.6, 12.2" -40 PRINT -50 PRINT "THIS PROGRAM TESTS THE EFFECT OF UNDERFLOW IN NUMERIC" -60 PRINT "EXPRESSIONS IN THE CONTEXT OF THE PRINT STATEMENT." -70 PRINT -80 PRINT "SECTION 175.1: UNDERFLOW IN PRINT-ITEMS." -90 PRINT -100 PRINT "THIS SECTION TESTS THE EFFECT OF PRINTING EXPRESSIONS WHICH" -110 PRINT "CAUSE NUMERIC UNDERFLOW." -120 PRINT -130 PRINT "TO PASS THIS TEST:" -140 PRINT -150 PRINT " 1) THREE UNDERFLOW EXCEPTIONS MAY BE REPORTED" -160 PRINT " (NOT MANDATORY), AND" -170 PRINT -180 PRINT " 2) ZEROS MUST BE SUPPLIED AS THE VALUES OF THE " -190 PRINT " EXPRESSIONS AND THEN PRINTED." -200 PRINT -210 PRINT " BEGIN TEST." -220 PRINT -230 PRINT "ABOUT TO EXECUTE:" -240 PRINT " PRINT (-1E33) ^ (-3333), (-1E-33) ^ 3333, EXP(-1E33)" -250 LET A=-1E33 -260 LET B=-3333 -270 PRINT -280 PRINT A^B, (1/A)^(-B), EXP(A) -290 PRINT -300 PRINT "IF THREE ZEROS PRINTED, THEN" -310 PRINT "*** TEST PASSED ***" -320 PRINT -330 PRINT " END TEST." -340 PRINT -350 PRINT "SECTION 175.2: NUMERIC UNDERFLOW IN TAB-ITEMS." -360 PRINT -370 PRINT "THIS SECTION TESTS THE EFFECT OF UNDERFLOW IN A TAB-ITEM." -380 PRINT -390 PRINT "TO PASS THIS TEST:" -400 PRINT -410 PRINT " 1) AN UNDERFLOW EXCEPTION MAY BE REPORTED" -420 PRINT " (NOT MANDATORY)," -430 PRINT -440 PRINT " 2) EXECUTION CONTINUES, WITH ZERO SUPPLIED AS THE" -450 PRINT " VALUE OF THE TAB ARGUMENT," -460 PRINT -470 PRINT " 3) A TAB EXCEPTION MUST BE REPORTED, AND A VALUE OF" -480 PRINT " ONE SUPPLIED AS THE TAB ARGUMENT." -490 PRINT -500 PRINT " BEGIN TEST." -510 PRINT -520 PRINT "ABOUT TO EXECUTE:" -530 PRINT " PRINT A$;TAB(1E-33 ^ 3333);B$" -540 PRINT " (WHERE A$ = 'AAA' AND B$ = 'BBB')" -550 PRINT -560 PRINT "0000000001111111111222222222233333333334444444444"; -570 PRINT "55555555556666666666777" -580 PRINT "1234567890123456789012345678901234567890123456789"; -590 PRINT "01234567890123456789012" -600 LET A$="AAA" -610 LET B$="BBB" -620 LET E=1E-33 -630 LET F=3333 -640 PRINT A$;TAB(E^F);B$ -650 PRINT -660 PRINT "IF TAB-ARGUMENT EXCEPTION REPORTED, AND 'AAA' APPEARED IN" -670 PRINT " COL. 1-3, AND 'BBB' IN COL. 1-3 ON A LATER LINE, THEN" -680 PRINT "*** TEST PASSED ***" -690 PRINT -700 PRINT " END TEST." -710 PRINT -720 PRINT "END PROGRAM 175" -730 END diff --git a/bwbtest/NBS2/P175.run b/bwbtest/NBS2/P175.run deleted file mode 100644 index 4b07856..0000000 --- a/bwbtest/NBS2/P175.run +++ /dev/null @@ -1,65 +0,0 @@ -PROGRAM FILE 175: EXCEPTION - UNDERFLOW IN THE EVALUATION - OF NUMERIC EXPRESSIONS IN THE PRINT STATEMENT. - ANSI STANDARD 7.4, 7.6, 8.6, 12.2 - -THIS PROGRAM TESTS THE EFFECT OF UNDERFLOW IN NUMERIC -EXPRESSIONS IN THE CONTEXT OF THE PRINT STATEMENT. - -SECTION 175.1: UNDERFLOW IN PRINT-ITEMS. - -THIS SECTION TESTS THE EFFECT OF PRINTING EXPRESSIONS WHICH -CAUSE NUMERIC UNDERFLOW. - -TO PASS THIS TEST: - - 1) THREE UNDERFLOW EXCEPTIONS MAY BE REPORTED - (NOT MANDATORY), AND - - 2) ZEROS MUST BE SUPPLIED AS THE VALUES OF THE - EXPRESSIONS AND THEN PRINTED. - - BEGIN TEST. - -ABOUT TO EXECUTE: - PRINT (-1E33) ^ (-3333), (-1E-33) ^ 3333, EXP(-1E33) - - 0 0 0 - -IF THREE ZEROS PRINTED, THEN -*** TEST PASSED *** - - END TEST. - -SECTION 175.2: NUMERIC UNDERFLOW IN TAB-ITEMS. - -THIS SECTION TESTS THE EFFECT OF UNDERFLOW IN A TAB-ITEM. - -TO PASS THIS TEST: - - 1) AN UNDERFLOW EXCEPTION MAY BE REPORTED - (NOT MANDATORY), - - 2) EXECUTION CONTINUES, WITH ZERO SUPPLIED AS THE - VALUE OF THE TAB ARGUMENT, - - 3) A TAB EXCEPTION MUST BE REPORTED, AND A VALUE OF - ONE SUPPLIED AS THE TAB ARGUMENT. - - BEGIN TEST. - -ABOUT TO EXECUTE: - PRINT A$;TAB(1E-33 ^ 3333);B$ - (WHERE A$ = 'AAA' AND B$ = 'BBB') - -000000000111111111122222222223333333333444444444455555555556666666666777 -123456789012345678901234567890123456789012345678901234567890123456789012 -AAAOverflow -BBB - -IF TAB-ARGUMENT EXCEPTION REPORTED, AND 'AAA' APPEARED IN - COL. 1-3, AND 'BBB' IN COL. 1-3 ON A LATER LINE, THEN -*** TEST PASSED *** - - END TEST. - -END PROGRAM 175 diff --git a/bwbtest/NBS2/P176.BAS b/bwbtest/NBS2/P176.BAS deleted file mode 100644 index ee19d8e..0000000 --- a/bwbtest/NBS2/P176.BAS +++ /dev/null @@ -1,32 +0,0 @@ -10 PRINT "PROGRAM FILE 176: EXCEPTION - NEGATIVE QUANTITY RAISED TO" -20 PRINT " A NON-INTEGRAL POWER IN IF-STATEMENT." -30 PRINT " ANSI STANDARD 7.5, 10.2" -40 PRINT -50 PRINT "SECTION 176.1: EXCEPTION - NEGATIVE QUANTITY RAISED TO" -60 PRINT " A NON-INTEGRAL POWER IN IF-STATEMENT." -70 PRINT -80 PRINT "TO PASS THIS TEST:" -90 PRINT -100 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -110 PRINT " DISPLAYED, AND" -120 PRINT -130 PRINT " 2) EXECUTION MUST TERMINATE" -140 PRINT -150 PRINT " BEGIN TEST." -160 PRINT -170 PRINT "ABOUT TO EXECUTE:" -180 PRINT " IF (-3) ^ 3.00001 < 0 ..." -190 PRINT -210 LET B=3.00001 -220 LET A=-3 -230 IF A^B < 0 THEN 260 -240 PRINT "IF-STATEMENT TESTED FALSE." -250 GOTO 270 -260 PRINT "IF-STATEMENT TESTED TRUE." -270 PRINT -320 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE. ***" -330 PRINT -340 PRINT " END TEST." -350 PRINT -360 PRINT "END PROGRAM 176." -370 END diff --git a/bwbtest/NBS2/P176.run b/bwbtest/NBS2/P176.run deleted file mode 100644 index 1f8e5aa..0000000 --- a/bwbtest/NBS2/P176.run +++ /dev/null @@ -1,21 +0,0 @@ -PROGRAM FILE 176: EXCEPTION - NEGATIVE QUANTITY RAISED TO - A NON-INTEGRAL POWER IN IF-STATEMENT. - ANSI STANDARD 7.5, 10.2 - -SECTION 176.1: EXCEPTION - NEGATIVE QUANTITY RAISED TO - A NON-INTEGRAL POWER IN IF-STATEMENT. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) EXECUTION MUST TERMINATE - - BEGIN TEST. - -ABOUT TO EXECUTE: - IF (-3) ^ 3.00001 < 0 ... - - -ERROR in line 230: Illegal function call diff --git a/bwbtest/NBS2/P177.BAS b/bwbtest/NBS2/P177.BAS deleted file mode 100644 index 7a89e34..0000000 --- a/bwbtest/NBS2/P177.BAS +++ /dev/null @@ -1,39 +0,0 @@ -10 PRINT "PROGRAM FILE 177: EXCEPTION - EVALUATION OF NUMERIC" -20 PRINT " EXPRESSIONS IN THE IF-STATEMENT." -30 PRINT " ANSI STANDARD 7.5, 10.2" -40 PRINT -50 PRINT "SECTION 177.1: EXCEPTION - EVALUATION OF NUMERIC" -60 PRINT " EXPRESSIONS IN THE IF-STATEMENT." -70 PRINT -80 PRINT "THIS SECTION TESTS THE EFFECT OF COMPARING EXPRESSIONS" -90 PRINT "WHICH CAUSE NON-FATAL EXCEPTIONS." -100 PRINT -130 PRINT "TO PASS THIS TEST:" -140 PRINT -150 PRINT " 1) TWO EXCEPTIONS MUST BE REPORTED: OVERFLOW, " -160 PRINT " AND ZERO RAISED TO A NEGATIVE POWER, AND" -170 PRINT -180 PRINT " 2) POSITIVE MACHINE INFINITY MUST BE SUPPLIED AS" -190 PRINT " THE VALUES OF THE EXPRESSIONS, AND" -200 PRINT -210 PRINT " 3) THE IF MUST TEST EQUAL, AND EXECUTION CONTINUES." -220 PRINT -222 PRINT " BEGIN TEST." -225 PRINT -230 PRINT "ABOUT TO EXECUTE:" -240 PRINT " IF (-1E-33) ^ (-4444) = 0 ^ (-1E-33)" -250 LET A=0 -260 LET B=-4444 -270 LET C=-1E-33 -280 PRINT -290 IF C^B = A^C THEN 320 -300 PRINT "*** TEST FAILED: 'IF' TESTED AS UNEQUAL ***" -310 GOTO 350 -320 PRINT "IF OVERFLOW AND ZERO TO NEGATIVE POWER EXCEPTIONS" -330 PRINT " WERE REPORTED, THEN" -340 PRINT "*** TEST PASSED ***" -350 PRINT -360 PRINT " END TEST." -370 PRINT -380 PRINT "END PROGRAM 177" -390 END diff --git a/bwbtest/NBS2/P177.run b/bwbtest/NBS2/P177.run deleted file mode 100644 index 0a016ca..0000000 --- a/bwbtest/NBS2/P177.run +++ /dev/null @@ -1,34 +0,0 @@ -PROGRAM FILE 177: EXCEPTION - EVALUATION OF NUMERIC - EXPRESSIONS IN THE IF-STATEMENT. - ANSI STANDARD 7.5, 10.2 - -SECTION 177.1: EXCEPTION - EVALUATION OF NUMERIC - EXPRESSIONS IN THE IF-STATEMENT. - -THIS SECTION TESTS THE EFFECT OF COMPARING EXPRESSIONS -WHICH CAUSE NON-FATAL EXCEPTIONS. - -TO PASS THIS TEST: - - 1) TWO EXCEPTIONS MUST BE REPORTED: OVERFLOW, - AND ZERO RAISED TO A NEGATIVE POWER, AND - - 2) POSITIVE MACHINE INFINITY MUST BE SUPPLIED AS - THE VALUES OF THE EXPRESSIONS, AND - - 3) THE IF MUST TEST EQUAL, AND EXECUTION CONTINUES. - - BEGIN TEST. - -ABOUT TO EXECUTE: - IF (-1E-33) ^ (-4444) = 0 ^ (-1E-33) - -Overflow -Overflow -IF OVERFLOW AND ZERO TO NEGATIVE POWER EXCEPTIONS - WERE REPORTED, THEN -*** TEST PASSED *** - - END TEST. - -END PROGRAM 177 diff --git a/bwbtest/NBS2/P178.BAS b/bwbtest/NBS2/P178.BAS deleted file mode 100644 index 71e72d4..0000000 --- a/bwbtest/NBS2/P178.BAS +++ /dev/null @@ -1,36 +0,0 @@ -10 PRINT "PROGRAM FILE 178: EXCEPTION - UNDERFLOW IN THE EVALUATION" -20 PRINT " OF NUMERIC EXPRESSIONS IN THE IF-STATEMENT." -30 PRINT " ANSI STANDARD 7.4, 7.6, 10.2" -40 PRINT -50 PRINT "SECTION 178.1: EXCEPTION - UNDERFLOW IN THE EVALUATION" -60 PRINT " OF NUMERIC EXPRESSION IN THE IF-STATEMENT." -70 PRINT -80 PRINT "THIS SECTION TESTS THE EFFECT OF UNDERFLOW IN NUMERIC" -90 PRINT "EXPRESSIONS IN THE CONTEXT OF THE IF STATEMENT." -100 PRINT -130 PRINT "TO PASS THIS TEST:" -140 PRINT -150 PRINT " 1) AN UNDERFLOW EXCEPTION MAY BE REPORTED" -160 PRINT " (NOT MANDATORY), AND" -170 PRINT -180 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE OF THE " -190 PRINT " EXPRESSION, AND" -200 PRINT -210 PRINT " 3) THE IF MUST TEST EQUAL AND EXECUTION CONTINUES." -220 PRINT -222 PRINT " BEGIN TEST." -225 PRINT -230 PRINT "ABOUT TO EXECUTE:" -240 PRINT " IF (-1E33) ^ (-3333) = 0" -250 LET A=-1E33 -260 LET B=-3333 -270 PRINT -280 IF A^B = 0 THEN 310 -290 PRINT "*** TEST FAILED: 'IF' TESTED AS UNEQUAL ***" -300 GOTO 320 -310 PRINT "*** TEST PASSED ***" -320 PRINT -330 PRINT " END TEST." -340 PRINT -350 PRINT "END PROGRAM 178" -360 END diff --git a/bwbtest/NBS2/P178.run b/bwbtest/NBS2/P178.run deleted file mode 100644 index e46f3c3..0000000 --- a/bwbtest/NBS2/P178.run +++ /dev/null @@ -1,30 +0,0 @@ -PROGRAM FILE 178: EXCEPTION - UNDERFLOW IN THE EVALUATION - OF NUMERIC EXPRESSIONS IN THE IF-STATEMENT. - ANSI STANDARD 7.4, 7.6, 10.2 - -SECTION 178.1: EXCEPTION - UNDERFLOW IN THE EVALUATION - OF NUMERIC EXPRESSION IN THE IF-STATEMENT. - -THIS SECTION TESTS THE EFFECT OF UNDERFLOW IN NUMERIC -EXPRESSIONS IN THE CONTEXT OF THE IF STATEMENT. - -TO PASS THIS TEST: - - 1) AN UNDERFLOW EXCEPTION MAY BE REPORTED - (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE OF THE - EXPRESSION, AND - - 3) THE IF MUST TEST EQUAL AND EXECUTION CONTINUES. - - BEGIN TEST. - -ABOUT TO EXECUTE: - IF (-1E33) ^ (-3333) = 0 - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 178 diff --git a/bwbtest/NBS2/P179.BAS b/bwbtest/NBS2/P179.BAS deleted file mode 100644 index c561372..0000000 --- a/bwbtest/NBS2/P179.BAS +++ /dev/null @@ -1,40 +0,0 @@ -10 PRINT "PROGRAM FILE 179: EXCEPTION - LOG OF ZERO IN" -20 PRINT " ON-GOTO-STATEMENT." -30 PRINT " ANSI STANDARD 8.5, 10.2" -40 PRINT -50 PRINT "SECTION 179.1: EXCEPTION - LOG OF ZERO IN" -60 PRINT " ON-GOTO-STATEMENT." -70 PRINT -80 PRINT "TO PASS THIS TEST:" -90 PRINT -100 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -110 PRINT " DISPLAYED, AND" -120 PRINT -130 PRINT " 2) EXECUTION MUST TERMINATE" -140 PRINT -150 PRINT " BEGIN TEST." -160 PRINT -170 PRINT "ABOUT TO EXECUTE:" -180 PRINT " ON LOG (0) GOTO ..." -190 LET A=0 -210 ON LOG(A) GOTO 220,230,240,250,260 -212 PRINT "CONTROL FELL THROUGH ON-GOTO." -215 GOTO 300 -220 LET I=1 -225 GOTO 290 -230 LET I=2 -235 GOTO 290 -240 LET I=3 -245 GOTO 290 -250 LET I=4 -255 GOTO 290 -260 LET I=5 -265 GOTO 290 -290 PRINT "ON-GOTO JUMPED TO LINE-NUMBER #";I;" IN THE LIST." -300 PRINT -1270 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE. ***" -1280 PRINT -1290 PRINT " END TEST." -1300 PRINT -1310 PRINT "END PROGRAM 179." -1320 END diff --git a/bwbtest/NBS2/P179.run b/bwbtest/NBS2/P179.run deleted file mode 100644 index 28f2a67..0000000 --- a/bwbtest/NBS2/P179.run +++ /dev/null @@ -1,20 +0,0 @@ -PROGRAM FILE 179: EXCEPTION - LOG OF ZERO IN - ON-GOTO-STATEMENT. - ANSI STANDARD 8.5, 10.2 - -SECTION 179.1: EXCEPTION - LOG OF ZERO IN - ON-GOTO-STATEMENT. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) EXECUTION MUST TERMINATE - - BEGIN TEST. - -ABOUT TO EXECUTE: - ON LOG (0) GOTO ... - -ERROR in line 210: Illegal function call diff --git a/bwbtest/NBS2/P180.BAS b/bwbtest/NBS2/P180.BAS deleted file mode 100644 index a50b751..0000000 --- a/bwbtest/NBS2/P180.BAS +++ /dev/null @@ -1,41 +0,0 @@ -10 PRINT "PROGRAM FILE 180: EXCEPTION - EVALUATION OF NUMERIC" -20 PRINT " EXPRESSIONS IN THE ON-GOTO STATEMENT." -30 PRINT " ANSI STANDARD 7.5, 10.2, 10.5" -40 PRINT -50 PRINT "SECTION 180.1: EXCEPTION - EVALUATION OF NUMERIC" -60 PRINT " EXPRESSIONS IN THE ON-GOTO STATEMENT." -70 PRINT -80 PRINT "THIS SECTION TESTS THE EFFECT OF USING EXPRESSIONS," -90 PRINT "WHICH CAUSE NON-FATAL EXCEPTIONS, TO CONTROL THE ON-GOG." -100 PRINT -130 PRINT "TO PASS THIS TEST:" -140 PRINT -150 PRINT " 1) TWO EXCEPTIONS MUST BE REPORTED: DIVISION " -160 PRINT " BY ZERO AND ON-GOTO OUT OF RANGE, AND" -170 PRINT -180 PRINT " 2) EXECUTION MUST TERMINATE." -190 PRINT -193 PRINT " BEGIN TEST." -196 PRINT -200 PRINT "ABOUT TO EXECUTE:" -210 PRINT " ON 1E-33 / 0 GOTO ..." -220 LET A=0 -230 LET C=1E-33 -240 PRINT -250 ON C/A GOTO 280,300,320 -260 LET I=0 -270 GOTO 340 -280 LET I=1 -290 GOTO 340 -300 LET I=2 -310 GOTO 340 -320 LET I=3 -330 GOTO 340 -340 PRINT -350 PRINT " PATH TAKEN FOR CONTROL-EXPRESSION = ";I -360 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE ***" -370 PRINT -380 PRINT " END TEST." -390 PRINT -400 PRINT "END PROGRAM 180" -410 END diff --git a/bwbtest/NBS2/P180.run b/bwbtest/NBS2/P180.run deleted file mode 100644 index 1fa953d..0000000 --- a/bwbtest/NBS2/P180.run +++ /dev/null @@ -1,25 +0,0 @@ -PROGRAM FILE 180: EXCEPTION - EVALUATION OF NUMERIC - EXPRESSIONS IN THE ON-GOTO STATEMENT. - ANSI STANDARD 7.5, 10.2, 10.5 - -SECTION 180.1: EXCEPTION - EVALUATION OF NUMERIC - EXPRESSIONS IN THE ON-GOTO STATEMENT. - -THIS SECTION TESTS THE EFFECT OF USING EXPRESSIONS, -WHICH CAUSE NON-FATAL EXCEPTIONS, TO CONTROL THE ON-GOG. - -TO PASS THIS TEST: - - 1) TWO EXCEPTIONS MUST BE REPORTED: DIVISION - BY ZERO AND ON-GOTO OUT OF RANGE, AND - - 2) EXECUTION MUST TERMINATE. - - BEGIN TEST. - -ABOUT TO EXECUTE: - ON 1E-33 / 0 GOTO ... - -Division by zero - -ERROR in line 250: Undefined line diff --git a/bwbtest/NBS2/P181.BAS b/bwbtest/NBS2/P181.BAS deleted file mode 100644 index 03eab6d..0000000 --- a/bwbtest/NBS2/P181.BAS +++ /dev/null @@ -1,42 +0,0 @@ -10 PRINT "PROGRAM FILE 181: EXCEPTION - UNDERFLOW IN THE EVALUATION" -20 PRINT " OF THE EXP FUNCTION IN THE ON-GOTO STATEMENT." -30 PRINT " ANSI STANDARD 7.4, 8.6, 10.2, 10.5" -40 PRINT -50 PRINT "SECTION 181.1: EXCEPTION - UNDERFLOW IN THE EVALUATION" -60 PRINT " OF THE EXP FUNCTION IN THE ON-GOTO STATEMENT." -70 PRINT -130 PRINT "TO PASS THIS TEST:" -140 PRINT -150 PRINT " 1) AN UNDERFLOW EXCEPTION MAY BE REPORTED" -160 PRINT " (NOT MANDATORY), AND" -170 PRINT -180 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE OF THE " -190 PRINT " EXP FUNCTION," -200 PRINT -210 PRINT " 3) AN EXCEPTION FOR ON-GOTO OUT OF RANGE MUST BE" -220 PRINT " REPORTED, AND" -230 PRINT -240 PRINT " 4) EXECUTION MUST TERMINATE." -250 PRINT -260 PRINT "ABOUT TO EXECUTE:" -270 PRINT " ON EXP (-1E11) GOTO ..." -280 PRINT -290 LET A=-1E11 -300 ON EXP(A) GOTO 330,350,370 -310 LET I=0 -320 GOTO 390 -330 LET I=1 -340 GOTO 390 -350 LET I=2 -360 GOTO 390 -370 LET I=3 -380 GOTO 390 -390 PRINT -400 PRINT " PATH TAKEN FOR CONTROL-EXPRESSION = ";I -405 PRINT -410 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE ***" -420 PRINT -430 PRINT " END TEST." -440 PRINT -450 PRINT "END PROGRAM 181" -460 END diff --git a/bwbtest/NBS2/P181.run b/bwbtest/NBS2/P181.run deleted file mode 100644 index 7ec397d..0000000 --- a/bwbtest/NBS2/P181.run +++ /dev/null @@ -1,25 +0,0 @@ -PROGRAM FILE 181: EXCEPTION - UNDERFLOW IN THE EVALUATION - OF THE EXP FUNCTION IN THE ON-GOTO STATEMENT. - ANSI STANDARD 7.4, 8.6, 10.2, 10.5 - -SECTION 181.1: EXCEPTION - UNDERFLOW IN THE EVALUATION - OF THE EXP FUNCTION IN THE ON-GOTO STATEMENT. - -TO PASS THIS TEST: - - 1) AN UNDERFLOW EXCEPTION MAY BE REPORTED - (NOT MANDATORY), AND - - 2) ZERO MUST BE SUPPLIED AS THE VALUE OF THE - EXP FUNCTION, - - 3) AN EXCEPTION FOR ON-GOTO OUT OF RANGE MUST BE - REPORTED, AND - - 4) EXECUTION MUST TERMINATE. - -ABOUT TO EXECUTE: - ON EXP (-1E11) GOTO ... - - -ERROR in line 300: Undefined line diff --git a/bwbtest/NBS2/P182.BAS b/bwbtest/NBS2/P182.BAS deleted file mode 100644 index 69cdacf..0000000 --- a/bwbtest/NBS2/P182.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 182: EXCEPTION - NEGATIVE QUANTITY RAISED TO" -20 PRINT " A NON-INTEGRAL POWER IN FOR-STATEMENT." -30 PRINT " ANSI STANDARD 7.5, 11.2" -40 PRINT -50 PRINT "SECTION 182.1: EXCEPTION - NEGATIVE QUANTITY RAISED TO" -55 PRINT " A NON-INTEGRAL POWER IN FOR-STATEMENT." -60 PRINT -70 PRINT "TO PASS THIS TEST:" -80 PRINT -90 PRINT " 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE" -100 PRINT " DISPLAYED, AND" -110 PRINT -120 PRINT " 2) EXECUTION MUST TERMINATE" -130 PRINT -140 PRINT " BEGIN TEST." -150 PRINT -160 PRINT "ABOUT TO EXECUTE:" -165 PRINT " FOR I= -2 ^ 1E-33 TO 9" -170 PRINT -175 LET A=-2 -180 LET B=1E-33 -190 FOR I= A^B TO 9 -200 LET X=I -210 GOTO 220 -215 NEXT I -220 PRINT "I WAS INITIALIZED TO:";X -240 PRINT -250 PRINT "*** TEST FAILED: EXECUTION DID NOT TERMINATE. ***" -260 PRINT -270 PRINT " END TEST." -280 PRINT -290 PRINT "END PROGRAM 182." -300 END diff --git a/bwbtest/NBS2/P182.run b/bwbtest/NBS2/P182.run deleted file mode 100644 index f1a26f3..0000000 --- a/bwbtest/NBS2/P182.run +++ /dev/null @@ -1,21 +0,0 @@ -PROGRAM FILE 182: EXCEPTION - NEGATIVE QUANTITY RAISED TO - A NON-INTEGRAL POWER IN FOR-STATEMENT. - ANSI STANDARD 7.5, 11.2 - -SECTION 182.1: EXCEPTION - NEGATIVE QUANTITY RAISED TO - A NON-INTEGRAL POWER IN FOR-STATEMENT. - -TO PASS THIS TEST: - - 1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE - DISPLAYED, AND - - 2) EXECUTION MUST TERMINATE - - BEGIN TEST. - -ABOUT TO EXECUTE: - FOR I= -2 ^ 1E-33 TO 9 - - -ERROR in line 190: Illegal function call diff --git a/bwbtest/NBS2/P183.BAS b/bwbtest/NBS2/P183.BAS deleted file mode 100644 index 0b2ee75..0000000 --- a/bwbtest/NBS2/P183.BAS +++ /dev/null @@ -1,55 +0,0 @@ -10 PRINT "PROGRAM FILE 183: EXCEPTION - EVALUATION OF NUMERIC" -20 PRINT " EXPRESSIONS IN THE FOR-STATEMENT." -30 PRINT " ANSI STANDARD 7.5, 11.2" -40 PRINT -50 PRINT "SECTION 183.1: EXCEPTION - EVALUATION OF NUMERIC" -60 PRINT " EXPRESSIONS IN THE FOR-STATEMENT." -70 PRINT -80 PRINT "THIS SECTION TESTS THE EFFECT OF USING EXPRESSIONS," -90 PRINT "WHICH CAUSE NON-FATAL EXCEPTIONS, TO CONTROL A" -100 PRINT "FOR-NEXT LOOP." -110 PRINT -120 PRINT "TO PASS THIS TEST:" -130 PRINT -140 PRINT " 1) A DIVISION BY ZERO EXCEPTION MUST BE REPORTED, AND" -160 PRINT -170 PRINT " 2) THE FOR-LOOP MUST EXECUTE 2 TIMES." -180 PRINT -190 PRINT " BEGIN TEST." -250 PRINT -260 PRINT "ABOUT TO ATTEMPT EXECUTION OF:" -270 PRINT " FOR I = ATN((-9) / 0) TO 0" -280 LET J=-1.5707963 -300 LET Z=0 -310 LET C=-9 -320 PRINT -330 PRINT "ITERATION","CONTROL-VARIABLES VALUES" -340 PRINT "COUNT","ACTUAL","SHOULD BE" -350 LET X=0 -360 FOR I = ATN(C/Z) TO Z -370 LET X=X+1 -380 PRINT X,I,J -390 IF ABS(1-(I/J)) > .01 THEN 530 -400 LET J=J+1 -410 NEXT I -420 PRINT "EXITING LOOP." -430 LET J=.4293037 -435 PRINT " ",I,J -440 IF ABS(1-(I/J)) > .01 THEN 530 -450 IF X=2 THEN 490 -460 PRINT -470 PRINT "NO. TIMES THROUGH LOOP SHOULD BE 2, ACTUALLY =";X -480 GOTO 550 -490 PRINT -500 PRINT "IF ZERO-DIVIDE REPORTED, THEN" -510 PRINT "*** TEST PASSED ***" -520 GOTO 570 -530 PRINT -540 PRINT "CONTROL-VARIABLE SHOULD BE";J;" ACTUALLY =";I -550 PRINT -560 PRINT "*** TEST FAILED ***" -570 PRINT -580 PRINT " END TEST." -590 PRINT -600 PRINT "END PROGRAM 183" -610 END diff --git a/bwbtest/NBS2/P183.run b/bwbtest/NBS2/P183.run deleted file mode 100644 index b483007..0000000 --- a/bwbtest/NBS2/P183.run +++ /dev/null @@ -1,36 +0,0 @@ -PROGRAM FILE 183: EXCEPTION - EVALUATION OF NUMERIC - EXPRESSIONS IN THE FOR-STATEMENT. - ANSI STANDARD 7.5, 11.2 - -SECTION 183.1: EXCEPTION - EVALUATION OF NUMERIC - EXPRESSIONS IN THE FOR-STATEMENT. - -THIS SECTION TESTS THE EFFECT OF USING EXPRESSIONS, -WHICH CAUSE NON-FATAL EXCEPTIONS, TO CONTROL A -FOR-NEXT LOOP. - -TO PASS THIS TEST: - - 1) A DIVISION BY ZERO EXCEPTION MUST BE REPORTED, AND - - 2) THE FOR-LOOP MUST EXECUTE 2 TIMES. - - BEGIN TEST. - -ABOUT TO ATTEMPT EXECUTION OF: - FOR I = ATN((-9) / 0) TO 0 - -ITERATION CONTROL-VARIABLES VALUES -COUNT ACTUAL SHOULD BE -Division by zero - 1 -1.5708 -1.5708 - 2 -.570796 -.570796 -EXITING LOOP. - .429204 .429304 - -IF ZERO-DIVIDE REPORTED, THEN -*** TEST PASSED *** - - END TEST. - -END PROGRAM 183 diff --git a/bwbtest/NBS2/P184.BAS b/bwbtest/NBS2/P184.BAS deleted file mode 100644 index b001ab3..0000000 --- a/bwbtest/NBS2/P184.BAS +++ /dev/null @@ -1,59 +0,0 @@ -10 PRINT "PROGRAM FILE 184: EXCEPTION - UNDERFLOW IN THE EVALUATION" -20 PRINT " OF NUMERIC EXPRESSIONS IN THE FOR-STATEMENT." -30 PRINT " ANSI STANDARD 7.4, 7.6, 11.2" -40 PRINT -50 PRINT "SECTION 184.1: EXCEPTION - UNDERFLOW IN THE EVALUATION" -60 PRINT " OF NUMERIC EXPRESSIONS IN THE FOR-STATEMENT." -70 PRINT -80 PRINT "THIS SECTION TESTS THE EFFECT OF UNDERFLOW IN NUMERIC" -90 PRINT "EXPRESSIONS IN THE CONTEXT OF THE FOR STATEMENT." -100 PRINT -110 PRINT "TO PASS THIS TEST:" -120 PRINT -130 PRINT " 1) AN UNDERFLOW EXCEPTION MAY BE REPORTED" -140 PRINT " (NOT MANDATORY)," -150 PRINT -160 PRINT " 2) ZERO MUST BE SUPPLIED AS THE VALUE OF THE " -170 PRINT " EXPRESSION, AND" -180 PRINT -190 PRINT " 3) THE FOR-LOOP MUST EXECUTE 4 TIMES." -200 PRINT -210 PRINT " BEGIN TEST." -220 PRINT -230 PRINT "ABOUT TO EXECUTE:" -240 PRINT " FOR I = .1 ^ 99999 TO 1E-36 STEP 3E-37" -250 LET J=0 -260 LET C=99999 -270 PRINT -280 PRINT "ITERATION","CONTROL-VARIABLE VALUES" -290 PRINT "COUNT","ACTUAL","SHOULD BE" -300 LET X=0 -310 FOR I = .1^C TO 1E-36 STEP 3E-37 -320 LET X=X+1 -330 PRINT X,I,J -340 IF J<>0 THEN 370 -350 IF I=0 THEN 380 -360 GOTO 510 -370 IF ABS(1-(I/J)) > .01 THEN 510 -380 LET J=J+3E-37 -390 NEXT I -400 PRINT "EXITING LOOP." -410 LET J=12E-37 -420 PRINT " ",I,J -430 IF ABS(1-(I/J)) > .01 THEN 510 -440 IF X=4 THEN 480 -450 PRINT -460 PRINT "NO. TIMES THROUGH LOOP SHOULD BE 4, ACTUALLY =";X -470 GOTO 530 -480 PRINT -490 PRINT "*** TEST PASSED ***" -500 GOTO 550 -510 PRINT -520 PRINT "CONTROL-VARIABLE SHOULD BE ";J;" ACTUALLY = ";I -530 PRINT -540 PRINT "*** TEST FAILED ***" -550 PRINT -560 PRINT " END TEST." -570 PRINT -580 PRINT "END PROGRAM 184" -590 END diff --git a/bwbtest/NBS2/P184.run b/bwbtest/NBS2/P184.run deleted file mode 100644 index b3f3645..0000000 --- a/bwbtest/NBS2/P184.run +++ /dev/null @@ -1,39 +0,0 @@ -PROGRAM FILE 184: EXCEPTION - UNDERFLOW IN THE EVALUATION - OF NUMERIC EXPRESSIONS IN THE FOR-STATEMENT. - ANSI STANDARD 7.4, 7.6, 11.2 - -SECTION 184.1: EXCEPTION - UNDERFLOW IN THE EVALUATION - OF NUMERIC EXPRESSIONS IN THE FOR-STATEMENT. - -THIS SECTION TESTS THE EFFECT OF UNDERFLOW IN NUMERIC -EXPRESSIONS IN THE CONTEXT OF THE FOR STATEMENT. - -TO PASS THIS TEST: - - 1) AN UNDERFLOW EXCEPTION MAY BE REPORTED - (NOT MANDATORY), - - 2) ZERO MUST BE SUPPLIED AS THE VALUE OF THE - EXPRESSION, AND - - 3) THE FOR-LOOP MUST EXECUTE 4 TIMES. - - BEGIN TEST. - -ABOUT TO EXECUTE: - FOR I = .1 ^ 99999 TO 1E-36 STEP 3E-37 - -ITERATION CONTROL-VARIABLE VALUES -COUNT ACTUAL SHOULD BE - 1 0 0 - 2 3.E-37 3.E-37 - 3 6.E-37 6.E-37 - 4 9.E-37 9.E-37 -EXITING LOOP. - 1.2E-36 1.2E-36 - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 184 diff --git a/bwbtest/NBS2/P185.BAS b/bwbtest/NBS2/P185.BAS deleted file mode 100644 index 593b42d..0000000 --- a/bwbtest/NBS2/P185.BAS +++ /dev/null @@ -1,28 +0,0 @@ -10 PRINT "PROGRAM FILE 185: ERROR - MISSING KEYWORD LET." -20 PRINT " ANSI STANDARD 9.2, 9.4" -30 PRINT -40 PRINT "SECTION 185.1: ERROR - MISSING KEYWORD LET." -50 PRINT -60 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -70 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -80 PRINT -90 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -100 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -110 PRINT " BY THE PROCESSOR, OR" -120 PRINT -130 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -140 PRINT -150 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -160 PRINT "FOR DETAILED CRITERIA." -170 PRINT -180 PRINT " BEGIN TEST." -190 PRINT -200 PRINT "ABOUT TO EXECUTE 'LET X1 = 11' AND THEN 'X1 = 12'" -230 LET X1=11 -240 X1=12 -280 PRINT "VALUE OF X1 = ";X1 -290 PRINT -300 PRINT " END TEST." -310 PRINT -320 PRINT "END PROGRAM 185" -330 END diff --git a/bwbtest/NBS2/P185.run b/bwbtest/NBS2/P185.run deleted file mode 100644 index a55f562..0000000 --- a/bwbtest/NBS2/P185.run +++ /dev/null @@ -1,25 +0,0 @@ -PROGRAM FILE 185: ERROR - MISSING KEYWORD LET. - ANSI STANDARD 9.2, 9.4 - -SECTION 185.1: ERROR - MISSING KEYWORD LET. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -ABOUT TO EXECUTE 'LET X1 = 11' AND THEN 'X1 = 12' -VALUE OF X1 = 12 - - END TEST. - -END PROGRAM 185 diff --git a/bwbtest/NBS2/P186.BAS b/bwbtest/NBS2/P186.BAS deleted file mode 100644 index 9b226b4..0000000 --- a/bwbtest/NBS2/P186.BAS +++ /dev/null @@ -1,26 +0,0 @@ -10 PRINT "PROGRAM FILE 186: EXTRA SPACES HAVE NO EFFECT." -20 PRINT " ANSI STANDARD 3.4" -30 PRINT -40 PRINT "SECTION 186.1: EXTRA SPACES HAVE NO EFFECT." -50 PRINT -60 PRINT "THIS PROGRAM TESTS THAT, OTHER THAN IN QUOTED-STRINGS" -70 PRINT "AND UNQUOTED-STRINGS, AN ARBITRARY NUMBER OF SPACES MAY" -80 PRINT "APPEAR IN THE PROGRAM ANYWHERE A SINGLE SPACE IS ALLOWED" -90 PRINT "WITHOUT AFFECTING ITS EXECUTION." -100 PRINT -110 PRINT " BEGIN TEST." -120 PRINT -130 LET I = - 3 + 1 + 2 -140 GO TO 160 -150 LET I=I+1 -160 IF I = 1 THEN 180 -170 LET I = + 2 -180 IF I=2 THEN 210 -190 PRINT "*** TEST FAILED ***" -200 GOTO 220 -210 PRINT "*** TEST PASSED ***" -220 PRINT -230 PRINT " END TEST." -240 PRINT -250 PRINT "END PROGRAM 186" -260 END diff --git a/bwbtest/NBS2/P186.run b/bwbtest/NBS2/P186.run deleted file mode 100644 index d521363..0000000 --- a/bwbtest/NBS2/P186.run +++ /dev/null @@ -1,17 +0,0 @@ -PROGRAM FILE 186: EXTRA SPACES HAVE NO EFFECT. - ANSI STANDARD 3.4 - -SECTION 186.1: EXTRA SPACES HAVE NO EFFECT. - -THIS PROGRAM TESTS THAT, OTHER THAN IN QUOTED-STRINGS -AND UNQUOTED-STRINGS, AN ARBITRARY NUMBER OF SPACES MAY -APPEAR IN THE PROGRAM ANYWHERE A SINGLE SPACE IS ALLOWED -WITHOUT AFFECTING ITS EXECUTION. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 186 diff --git a/bwbtest/NBS2/P187.BAS b/bwbtest/NBS2/P187.BAS deleted file mode 100644 index 52cb6fc..0000000 --- a/bwbtest/NBS2/P187.BAS +++ /dev/null @@ -1,28 +0,0 @@ -10 PRINT "PROGRAM FILE 187: ERROR - SPACES AT THE BEGINNING OF A LINE." -15 PRINT " ANSI STANDARD 3.4, 4.4" -20 PRINT -30 PRINT "SECTION 187.1: ERROR - SPACES AT THE BEGINNING OF A LINE." -40 PRINT -50 PRINT " THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR" -60 PRINT "ACCEPTS PROGRAMS CONTAINING LINES BEGINNING WITH SPACES." -70 PRINT -80 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -90 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -100 PRINT -110 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -120 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -130 PRINT " BY THE PROCESSOR, OR" -140 PRINT -150 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -160 PRINT -170 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -180 PRINT "FOR DETAILED CRITERIA." -190 PRINT -200 PRINT " BEGIN TEST." -210 PRINT - 220 PRINT "THE PROCESSOR HAS EXECUTED A LINE BEGINNING WITH A SPACE." -230 PRINT -240 PRINT " END TEST." -250 PRINT -260 PRINT "END PROGRAM 187" -270 END diff --git a/bwbtest/NBS2/P187.run b/bwbtest/NBS2/P187.run deleted file mode 100644 index d95ac37..0000000 --- a/bwbtest/NBS2/P187.run +++ /dev/null @@ -1,27 +0,0 @@ -PROGRAM FILE 187: ERROR - SPACES AT THE BEGINNING OF A LINE. - ANSI STANDARD 3.4, 4.4 - -SECTION 187.1: ERROR - SPACES AT THE BEGINNING OF A LINE. - - THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR -ACCEPTS PROGRAMS CONTAINING LINES BEGINNING WITH SPACES. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -THE PROCESSOR HAS EXECUTED A LINE BEGINNING WITH A SPACE. - - END TEST. - -END PROGRAM 187 diff --git a/bwbtest/NBS2/P188.BAS b/bwbtest/NBS2/P188.BAS deleted file mode 100644 index 8143862..0000000 --- a/bwbtest/NBS2/P188.BAS +++ /dev/null @@ -1,30 +0,0 @@ -10 PRINT "PROGRAM FILE 188: ERROR - SPACES WITHIN LINE-NUMBERS." -20 PRINT " ANSI STANDARD 3.4, 4.4" -30 PRINT -40 PRINT "SECTION 188.1: ERROR - SPACES WITHIN LINE-NUMBERS." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR ACCEPTS" -70 PRINT "PROGRAMS CONTAINING SPACES WITHIN LINE-NUMBERS." -80 PRINT -90 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -100 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -110 PRINT -120 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -130 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -140 PRINT " BY THE PROCESSOR, OR" -150 PRINT -160 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -170 PRINT -180 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -190 PRINT "FOR DETAILED CRITERIA." -200 PRINT -210 PRINT -220 PRINT " BEGIN TEST." -230 PRINT -2 40 PRINT "THE PROCESSOR HAS EXECUTED TWO LINES CONTAINING" -25 0 PRINT "SPACES WITHIN LINE-NUMBERS." -260 PRINT -270 PRINT " END TEST." -280 PRINT -290 PRINT "END PROGRAM 188" -300 END diff --git a/bwbtest/NBS2/P188.run b/bwbtest/NBS2/P188.run deleted file mode 100644 index 3afc73d..0000000 --- a/bwbtest/NBS2/P188.run +++ /dev/null @@ -1,4 +0,0 @@ -2 < 231 - LINE OUT OF ORDER: 2 40 PRINT "THE PROCESSOR HAS EXECUTED TWO LINES CO -ILLEGAL COMMAND AFTER LINE NUMBER: 231 40 PRINT "THE PROCESSOR HAS EXECUTED TWO -25 < 232 - LINE OUT OF ORDER: 25 0 PRINT "SPACES WITHIN LINE-NUMBERS." -ILLEGAL COMMAND AFTER LINE NUMBER: 232 0 PRINT "SPACES WITHIN LINE-NUMBERS." diff --git a/bwbtest/NBS2/P189.BAS b/bwbtest/NBS2/P189.BAS deleted file mode 100644 index b4ed78e..0000000 --- a/bwbtest/NBS2/P189.BAS +++ /dev/null @@ -1,43 +0,0 @@ -10 PRINT "PROGRAM FILE 189: ERROR - SPACES WITHIN KEYWORDS." -20 PRINT " ANSI STANDARD 3.4" -30 PRINT -40 PRINT "SECTION 189.1: ERROR - SPACES WITHIN KEYWORDS." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR" -70 PRINT "ACCEPTS PROGRAMS CONTAINING SPACES WITHIN KEYWORDS." -80 PRINT -90 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -100 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -110 PRINT -120 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -130 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -140 PRINT " BY THE PROCESSOR, OR" -150 PRINT -160 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -170 PRINT -180 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -190 PRINT "FOR DETAILED CRITERIA." -200 PRINT -210 PRINT " BEGIN TEST." -220 PRINT -230 LET X=0 -240 L E T X=10 -250 I F X=10 THEN 370 -260 IF X=10 THEN 310 -270 I F X=0 THEN 340 -280 PRINT "THE PROCESSOR DID NOT EXECUTE THE STATEMENTS" -290 PRINT "CONTAINING SPACES WITHIN THE KEYWORDS LET AND IF." -300 GOTO 390 -310 PRINT "THE PROCESSOR EXECUTED A STATEMENT CONTAINING A" -320 PRINT "SPACE WITHIN THE KEYWORD LET." -330 GOTO 390 -340 PRINT "THE PROCESSOR EXECUTED A STATEMENT CONTAINING A" -350 PRINT "SPACE WITHIN THE KEYWORD IF." -360 GOTO 390 -370 PRINT "THE PROCESSOR EXECUTED STATEMENTS CONTAINING SPACES" -380 PRINT "WITHIN THE KEYWORDS LET AND IF." -390 PRINT -400 PRINT " END TEST." -410 PRINT -420 PRINT "END PROGRAM 189" -430 END diff --git a/bwbtest/NBS2/P189.run b/bwbtest/NBS2/P189.run deleted file mode 100644 index 399c4a9..0000000 --- a/bwbtest/NBS2/P189.run +++ /dev/null @@ -1,24 +0,0 @@ -PROGRAM FILE 189: ERROR - SPACES WITHIN KEYWORDS. - ANSI STANDARD 3.4 - -SECTION 189.1: ERROR - SPACES WITHIN KEYWORDS. - -THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR -ACCEPTS PROGRAMS CONTAINING SPACES WITHIN KEYWORDS. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - - -ERROR in line 240: Syntax error diff --git a/bwbtest/NBS2/P190.BAS b/bwbtest/NBS2/P190.BAS deleted file mode 100644 index f1b7b0e..0000000 --- a/bwbtest/NBS2/P190.BAS +++ /dev/null @@ -1,45 +0,0 @@ -10 PRINT "PROGRAM FILE 190: ERROR - NO SPACES BEFORE KEYWORDS." -20 PRINT " ANSI STANDARD 3.4" -30 PRINT -40 PRINT "SECTION 190.1: ERROR - NO SPACES BEFORE KEYWORDS." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR ACCEPTS" -70 PRINT "PROGRAM CONTAINING KEYWORDS WHICH ARE NOT PRECEDED BY" -80 PRINT "AT LEAST ONE SPACE." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST." -230 PRINT -240 LET X=0 -250LET X=10 -260IF X=10THEN 330 -270 IF X=10 THEN 330 -280IF X=0 THEN 360 -290 PRINT "THE PROCESSOR DID NOT EXECUTE THE STATEMENTS" -300 PRINT "WHICH DID NOT CONTAIN A SPACE BEFORE THE KEYWORDS" -310 PRINT "LET AND IF." -320 GOTO 410 -330 PRINT "THE PROCESSOR EXECUTED A STATEMENT WHICH DID NOT" -340 PRINT "CONTAIN A SPACE BEFORE THE KEYWORD LET." -350 GOTO 410 -360 PRINT "THE PROCESSOR EXECUTED A STATEMENT WHICH DID NOT" -370 PRINT "CONTAIN A SPACE BEFORE THE KEYWORD IF." -380 GOTO 410 -390 PRINT "THE PROCESSOR EXECUTED STATEMENTS WHICH DID NOT" -400 PRINT "CONTAIN A SPACE BEFORE THE KEYWORDS LET AND IF." -410 PRINT -420 PRINT " END TEST." -430 PRINT -440 PRINT "END PROGRAM 190" -450 END diff --git a/bwbtest/NBS2/P190.run b/bwbtest/NBS2/P190.run deleted file mode 100644 index 89159d5..0000000 --- a/bwbtest/NBS2/P190.run +++ /dev/null @@ -1,3 +0,0 @@ -MISSING SPACE AFTER LINE NUMBER: 250LET X=10 -MISSING SPACE AFTER LINE NUMBER: 260IF X=10THEN 330 -MISSING SPACE AFTER LINE NUMBER: 280IF X=0 THEN 360 diff --git a/bwbtest/NBS2/P191.BAS b/bwbtest/NBS2/P191.BAS deleted file mode 100644 index 006b030..0000000 --- a/bwbtest/NBS2/P191.BAS +++ /dev/null @@ -1,45 +0,0 @@ -10 PRINT "PROGRAM FILE 191: ERROR - NO SPACES AFTER KEYWORDS." -20 PRINT " ANSI STANDARD 3.4" -30 PRINT -40 PRINT "SECTION 191.1: ERROR - NO SPACES AFTER KEYWORDS." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR" -70 PRINT "ACCEPTS PROGRAMS CONTAINING KEYWORDS WHICH ARE NOT FOLLOWED" -80 PRINT "BY AT LEAST ONE SPACE." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST." -230 PRINT -240 LET X=0 -250 LETX=10 -260 IFX=10 THEN 390 -270 IF X=10 THEN 330 -280 IFX=0 THEN 360 -290 PRINT "THE PROCESSOR DID NOT EXECUTE THE STATEMENTS" -300 PRINT "WHICH DID NOT CONTAIN A SPACE AFTER THE KEYWORDS" -310 PRINT "LET AND IF." -320 GOTO 410 -330 PRINT "THE PROCESSOR EXECUTED A STATEMENT WHICH DID NOT" -340 PRINT "CONTAIN A SPACE AFTER THE KEYWORD LET." -350 GOTO 410 -360 PRINT "THE PROCESSOR EXECUTED A STATEMENT WHICH DID NOT" -370 PRINT "CONTAIN A SPACE AFTER THE KEYWORD IF." -380 GOTO 410 -390 PRINT "THE PROCESSOR EXECUTED STATEMENTS WHICH DID NOT" -400 PRINT "CONTAIN A SPACE AFTER THE KEYWORDS LET AND IF." -410 PRINT -420 PRINT " END TEST." -430 PRINT -440 PRINT "END PROGRAM 191" -450 END diff --git a/bwbtest/NBS2/P191.run b/bwbtest/NBS2/P191.run deleted file mode 100644 index faab421..0000000 --- a/bwbtest/NBS2/P191.run +++ /dev/null @@ -1,25 +0,0 @@ -PROGRAM FILE 191: ERROR - NO SPACES AFTER KEYWORDS. - ANSI STANDARD 3.4 - -SECTION 191.1: ERROR - NO SPACES AFTER KEYWORDS. - -THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR -ACCEPTS PROGRAMS CONTAINING KEYWORDS WHICH ARE NOT FOLLOWED -BY AT LEAST ONE SPACE. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - - -ERROR in line 260: Syntax error diff --git a/bwbtest/NBS2/P192.BAS b/bwbtest/NBS2/P192.BAS deleted file mode 100644 index ec59fb0..0000000 --- a/bwbtest/NBS2/P192.BAS +++ /dev/null @@ -1,35 +0,0 @@ -10 PRINT "PROGRAM FILE 192: ERROR - PRINT-ITEM QUOTED STRINGS" -15 PRINT " CONTAINING SINGLE QUOTE." -20 PRINT " ANSI STANDARD 3.2, 12.2, 12.4" -30 PRINT -40 PRINT "SECTION 192.1: ERROR - PRINT-ITEM QUOTED STRINGS" -45 PRINT " CONTAINING SINGLE QUOTE." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS" -70 PRINT "CONTAINING A SINGLE OCCURRENCE OF THE QUOTE CHARACTER WITHIN" -80 PRINT "THE QUOTED STRING OF A PRINT-STATEMENT." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST." -230 PRINT -240 PRINT "A PRINT-ITEM CONTAINING AN ASTERISK, A SINGLE " -250 PRINT "OCCURRENCE OF THE QUOTE CHARACTER AND A QUESTION MARK" -260 PRINT "APPEARS IN THE NEXT STATEMENT AFTER THIS PARAGRAPH. CHECK" -270 PRINT "THE NEXT LINE FOR THE PROCESSOR'S INTERPRETATION." -280 PRINT " *"?" -290 PRINT -300 PRINT " END TEST." -310 PRINT -320 PRINT "END PROGRAM 192" -330 END diff --git a/bwbtest/NBS2/P192.run b/bwbtest/NBS2/P192.run deleted file mode 100644 index 2b76737..0000000 --- a/bwbtest/NBS2/P192.run +++ /dev/null @@ -1,31 +0,0 @@ -PROGRAM FILE 192: ERROR - PRINT-ITEM QUOTED STRINGS - CONTAINING SINGLE QUOTE. - ANSI STANDARD 3.2, 12.2, 12.4 - -SECTION 192.1: ERROR - PRINT-ITEM QUOTED STRINGS - CONTAINING SINGLE QUOTE. - -THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS -CONTAINING A SINGLE OCCURRENCE OF THE QUOTE CHARACTER WITHIN -THE QUOTED STRING OF A PRINT-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -A PRINT-ITEM CONTAINING AN ASTERISK, A SINGLE -OCCURRENCE OF THE QUOTE CHARACTER AND A QUESTION MARK -APPEARS IN THE NEXT STATEMENT AFTER THIS PARAGRAPH. CHECK -THE NEXT LINE FOR THE PROCESSOR'S INTERPRETATION. - * -ERROR in line 280: Syntax error diff --git a/bwbtest/NBS2/P193.BAS b/bwbtest/NBS2/P193.BAS deleted file mode 100644 index 6844495..0000000 --- a/bwbtest/NBS2/P193.BAS +++ /dev/null @@ -1,37 +0,0 @@ -10 PRINT "PROGRAM FILE 193: ERROR - PRINT-ITEM QUOTED STRINGS" -15 PRINT " CONTAINING DOUBLE QUOTES." -20 PRINT " ANSI STANDARD 3.2, 12.2, 12.4" -30 PRINT -40 PRINT "SECTION 193.1: ERROR -PRINT-ITEM QUOTED STRINGS" -45 PRINT " CONTAINING DOUBLE QUOTES." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR" -70 PRINT "ACCEPTS PROGRAMS CONTAINING TWO CONSECUTIVE OCCURRENCES" -80 PRINT "OF THE QUOTE CHARACTER WITHIN THE QUOTED STRING OF A" -90 PRINT "PRINT STATEMENT." -100 PRINT -110 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -120 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -130 PRINT -140 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -150 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -160 PRINT " BY THE PROCESSOR, OR" -170 PRINT -180 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -190 PRINT -200 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -210 PRINT "FOR DETAILED CRITERIA." -220 PRINT -230 PRINT " BEGIN TEST." -240 PRINT -250 PRINT "A PRINT-ITEM CONTAINING AN ASTERISK, TWO CONSECUTIVE" -260 PRINT "OCCURRENCES OF THE QUOTE CHARACTER AND A QUESTION MARK " -270 PRINT "APPEARS IN THE NEXT STATEMENT AFTER THIS PARAGRAPH." -280 PRINT "CHECK THE NEXT LINE OF OUTPUT FOR THE PROCESSOR'S" -290 PRINT "INTERPRETATION." -300 PRINT " *""?" -310 PRINT -320 PRINT " END TEST." -330 PRINT -340 PRINT "END PROGRAM 193" -350 END diff --git a/bwbtest/NBS2/P193.run b/bwbtest/NBS2/P193.run deleted file mode 100644 index 24f0019..0000000 --- a/bwbtest/NBS2/P193.run +++ /dev/null @@ -1,36 +0,0 @@ -PROGRAM FILE 193: ERROR - PRINT-ITEM QUOTED STRINGS - CONTAINING DOUBLE QUOTES. - ANSI STANDARD 3.2, 12.2, 12.4 - -SECTION 193.1: ERROR -PRINT-ITEM QUOTED STRINGS - CONTAINING DOUBLE QUOTES. - -THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR -ACCEPTS PROGRAMS CONTAINING TWO CONSECUTIVE OCCURRENCES -OF THE QUOTE CHARACTER WITHIN THE QUOTED STRING OF A -PRINT STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -A PRINT-ITEM CONTAINING AN ASTERISK, TWO CONSECUTIVE -OCCURRENCES OF THE QUOTE CHARACTER AND A QUESTION MARK -APPEARS IN THE NEXT STATEMENT AFTER THIS PARAGRAPH. -CHECK THE NEXT LINE OF OUTPUT FOR THE PROCESSOR'S -INTERPRETATION. - *"? - - END TEST. - -END PROGRAM 193 diff --git a/bwbtest/NBS2/P194.BAS b/bwbtest/NBS2/P194.BAS deleted file mode 100644 index acfce83..0000000 --- a/bwbtest/NBS2/P194.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 194: ERROR - ASSIGNED QUOTED STRINGS " -15 PRINT " CONTAINING SINGLE QUOTE." -20 PRINT " ANSI STANDARD 3.2, 9.2" -30 PRINT -40 PRINT "SECTION 194.1: ERROR - ASSIGNED QUOTED STRINGS " -45 PRINT " CONTAINING SINGLE QUOTE." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS" -70 PRINT "CONTAINING A SINGLED OCCURRENCE OF THE QUOTE CHARACTER WITHIN" -80 PRINT "THE QUOTED STRING OF A LET-STATEMENT." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST." -230 PRINT -240 PRINT "ABOUT TO ASSIGN TO A$ A QUOTED-STRING CONTAINING:" -250 PRINT "ASTERISK, QUOTE, QUESTION-MARK." -260 LET A$="*"?" -270 PRINT "A$=";A$ -310 PRINT -320 PRINT " END TEST." -330 PRINT -340 PRINT "END PROGRAM 194" -350 END diff --git a/bwbtest/NBS2/P194.run b/bwbtest/NBS2/P194.run deleted file mode 100644 index e3384e3..0000000 --- a/bwbtest/NBS2/P194.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 194: ERROR - ASSIGNED QUOTED STRINGS - CONTAINING SINGLE QUOTE. - ANSI STANDARD 3.2, 9.2 - -SECTION 194.1: ERROR - ASSIGNED QUOTED STRINGS - CONTAINING SINGLE QUOTE. - -THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS -CONTAINING A SINGLED OCCURRENCE OF THE QUOTE CHARACTER WITHIN -THE QUOTED STRING OF A LET-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -ABOUT TO ASSIGN TO A$ A QUOTED-STRING CONTAINING: -ASTERISK, QUOTE, QUESTION-MARK. - -ERROR in line 260: Syntax error diff --git a/bwbtest/NBS2/P195.BAS b/bwbtest/NBS2/P195.BAS deleted file mode 100644 index ad75c36..0000000 --- a/bwbtest/NBS2/P195.BAS +++ /dev/null @@ -1,34 +0,0 @@ -10 PRINT "PROGRAM FILE 195: ERROR - ASSIGNED QUOTED STRING " -15 PRINT " CONTAINING DOUBLE QUOTES." -20 PRINT " ANSI STANDARD 3.2, 9.2" -30 PRINT -40 PRINT "SECTION 195.1: ERROR - ASSIGNED QUOTED STRING " -45 PRINT " CONTAINING DOUBLE QUOTES." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS" -70 PRINT "CONTAINING TWO CONSECUTIVE OCCURRENCES OF THE QUOTE " -80 PRINT "CHARACTER WITHIN THE QUOTED STRING OF A LET-STATEMENT." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST." -230 PRINT -240 PRINT "ABOUT TO ASSIGN TO A$ A QUOTED-STRING CONTAINING:" -250 PRINT "ASTERISK, QUOTE, QUOTE, QUESTION-MARK." -260 LET A$="*""?" -270 PRINT "A$=";A$ -310 PRINT -320 PRINT " END TEST." -330 PRINT -340 PRINT "END PROGRAM 195" -350 END diff --git a/bwbtest/NBS2/P195.run b/bwbtest/NBS2/P195.run deleted file mode 100644 index bb1f0fd..0000000 --- a/bwbtest/NBS2/P195.run +++ /dev/null @@ -1,32 +0,0 @@ -PROGRAM FILE 195: ERROR - ASSIGNED QUOTED STRING - CONTAINING DOUBLE QUOTES. - ANSI STANDARD 3.2, 9.2 - -SECTION 195.1: ERROR - ASSIGNED QUOTED STRING - CONTAINING DOUBLE QUOTES. - -THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS -CONTAINING TWO CONSECUTIVE OCCURRENCES OF THE QUOTE -CHARACTER WITHIN THE QUOTED STRING OF A LET-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -ABOUT TO ASSIGN TO A$ A QUOTED-STRING CONTAINING: -ASTERISK, QUOTE, QUOTE, QUESTION-MARK. -A$=*"? - - END TEST. - -END PROGRAM 195 diff --git a/bwbtest/NBS2/P196.BAS b/bwbtest/NBS2/P196.BAS deleted file mode 100644 index ac2b48b..0000000 --- a/bwbtest/NBS2/P196.BAS +++ /dev/null @@ -1,26 +0,0 @@ -5 PRINT "PROGRAM FILE 196: LINE-NUMBERS WITH LEADING ZEROS." -10 PRINT " ANSI STANDARD 4.2, 4.4" -15 PRINT -20 PRINT "SECTION 196.1: LINE-NUMBERS WITH LEADING ZEROS." -25 PRINT -30 PRINT "THIS PROGRAM TESTS THAT LINE-NUMBERS WITH LEADING ZEROS" -35 PRINT "ARE ACCEPTED AND HAVE NO EFFECT ON THE SEQUENCE OF EXECUTION." -40 PRINT -42 PRINT " BEGIN TEST." -44 PRINT -45 LET X=0 -50 IF X<>0 THEN 100 -052 LET X=X+1 -55 IF X<>1 THEN 100 -0057 LET X=X+1 -059 IF X<>2 THEN 100 -60 LET X=X+1 -0062 IF X<>3 THEN 100 -70 PRINT "*** TEST PASSED ***" -80 GOTO 110 -100 PRINT "*** TEST FAILED ***" -110 PRINT -120 PRINT " END TEST." -130 PRINT -140 PRINT "END PROGRAM 196" -150 END diff --git a/bwbtest/NBS2/P196.run b/bwbtest/NBS2/P196.run deleted file mode 100644 index 386c858..0000000 --- a/bwbtest/NBS2/P196.run +++ /dev/null @@ -1,15 +0,0 @@ -PROGRAM FILE 196: LINE-NUMBERS WITH LEADING ZEROS. - ANSI STANDARD 4.2, 4.4 - -SECTION 196.1: LINE-NUMBERS WITH LEADING ZEROS. - -THIS PROGRAM TESTS THAT LINE-NUMBERS WITH LEADING ZEROS -ARE ACCEPTED AND HAVE NO EFFECT ON THE SEQUENCE OF EXECUTION. - - BEGIN TEST. - -*** TEST PASSED *** - - END TEST. - -END PROGRAM 196 diff --git a/bwbtest/NBS2/P197.BAS b/bwbtest/NBS2/P197.BAS deleted file mode 100644 index 9c77b90..0000000 --- a/bwbtest/NBS2/P197.BAS +++ /dev/null @@ -1,42 +0,0 @@ -10 PRINT "PROGRAM FILE 197: ERROR - DUPLICATE LINE-NUMBERS." -20 PRINT " ANSI STANDARD 4.4" -30 PRINT -40 PRINT "SECTION 197.1: ERROR - DUPLICATE LINE-NUMBERS." -50 PRINT -60 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -70 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -80 PRINT -90 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -100 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -110 PRINT " BY THE PROCESSOR, OR" -120 PRINT -130 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -140 PRINT -150 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -160 PRINT "FOR DETAILED CRITERIA." -170 PRINT -180 PRINT " BEGIN TEST." -190 PRINT -200 LET A=1111 -210 LET B=1111 -220 LET A=9999 -220 LET B=9999 -240 IF A=1111 THEN 290 -250 IF B=1111 THEN 330 -260 PRINT "THE PROCESSOR EXECUTED EACH OF TWO LET STATEMENTS WITH" -270 PRINT "DUPLICATE LINE-NUMBERS." -280 GOTO 380 -290 IF B=1111 THEN 360 -300 PRINT "THE PROCESSOR EXECUTED THE SECOND, BUT NOT THE FIRST" -310 PRINT "OF TWO LET STATEMENTS WITH DUPLICATE LINE-NUMBERS." -320 GOTO 380 -330 PRINT "THE PROCESSOR EXECUTED THE FIRST, BUT NOT THE SECOND" -340 PRINT "OF TWO LET STATEMENTS WITH DUPLICATE LINE-NUMBERS." -350 GOTO 380 -360 PRINT "THE PROCESSOR EXECUTED NEITHER OF TWO LET STATEMENTS" -370 PRINT "WITH DUPLICATE LINE-NUMBERS." -380 PRINT -390 PRINT " END TEST." -400 PRINT -410 PRINT "END PROGRAM 197" -420 END diff --git a/bwbtest/NBS2/P197.run b/bwbtest/NBS2/P197.run deleted file mode 100644 index e84d918..0000000 --- a/bwbtest/NBS2/P197.run +++ /dev/null @@ -1 +0,0 @@ -220 < 221 - LINE OUT OF ORDER: 220 LET B=9999 diff --git a/bwbtest/NBS2/P198.BAS b/bwbtest/NBS2/P198.BAS deleted file mode 100644 index 8ff2089..0000000 --- a/bwbtest/NBS2/P198.BAS +++ /dev/null @@ -1,35 +0,0 @@ -10 PRINT "PROGRAM FILE 198: ERROR - LINES OUT OF ORDER." -20 PRINT " ANSI STANDARD 4.4" -30 PRINT -40 PRINT "SECTION 198.1: ERROR - LINES OUT OF ORDER." -50 PRINT -60 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -70 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -80 PRINT -90 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -100 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -110 PRINT " BY THE PROCESSOR, OR" -120 PRINT -130 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -140 PRINT -150 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -160 PRINT "FOR DETAILED CRITERIA." -170 PRINT -180 PRINT " BEGIN TEST." -190 PRINT -200 LET A=1 -220 LET A=2 -210 LET A=3 -230 ON A GOTO 250,270,290 -250 PRINT "NEITHER OF THE UNORDERED LINES WAS EXECUTED." -260 GOTO 300 -270 PRINT "THE LINES WERE EXECUTED IN ORDER OF THEIR LINE-NUMBERS." -280 GOTO 300 -290 PRINT "THE LINES WERE EXECUTED IN THEIR PHYSICAL SEQUENCE." -300 PRINT -320 PRINT -330 PRINT " END TEST." -340 PRINT -350 PRINT "END PROGRAM 198." -360 PRINT -370 END diff --git a/bwbtest/NBS2/P198.run b/bwbtest/NBS2/P198.run deleted file mode 100644 index 6c15f4c..0000000 --- a/bwbtest/NBS2/P198.run +++ /dev/null @@ -1 +0,0 @@ -210 < 221 - LINE OUT OF ORDER: 210 LET A=3 diff --git a/bwbtest/NBS2/P199.BAS b/bwbtest/NBS2/P199.BAS deleted file mode 100644 index 981c439..0000000 --- a/bwbtest/NBS2/P199.BAS +++ /dev/null @@ -1,29 +0,0 @@ -9780 PRINT "PROGRAM FILE 199: ERROR - FIVE-DIGIT LINE-NUMBERS." -9790 PRINT " ANSI STANDARD 4.2" -9800 PRINT -9810 PRINT "SECTION 199.1: ERROR - FIVE-DIGIT LINE-NUMBERS." -9820 PRINT -9830 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS" -9840 PRINT "CONTAINING LINE-NUMBERS CONSISTING OF FIVE DIGITS." -9850 PRINT -9860 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -9870 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -9880 PRINT -9890 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -9900 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -9910 PRINT " BY THE PROCESSOR, OR" -9920 PRINT -9930 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -9940 PRINT -9950 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -9960 PRINT "FOR DETAILED CRITERIA." -9970 PRINT -9980 PRINT " BEGIN TEST." -9990 PRINT -10000 PRINT "THE PROCESSOR HAS EXECUTED STATEMENTS WITH FIVE-DIGIT" -10010 PRINT "LINE-NUMBERS." -10020 PRINT -10030 PRINT " END TEST." -10040 PRINT -10050 PRINT "END PROGRAM 199" -10060 END diff --git a/bwbtest/NBS2/P199.run b/bwbtest/NBS2/P199.run deleted file mode 100644 index ad8ed1d..0000000 --- a/bwbtest/NBS2/P199.run +++ /dev/null @@ -1,28 +0,0 @@ -PROGRAM FILE 199: ERROR - FIVE-DIGIT LINE-NUMBERS. - ANSI STANDARD 4.2 - -SECTION 199.1: ERROR - FIVE-DIGIT LINE-NUMBERS. - -THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS -CONTAINING LINE-NUMBERS CONSISTING OF FIVE DIGITS. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -THE PROCESSOR HAS EXECUTED STATEMENTS WITH FIVE-DIGIT -LINE-NUMBERS. - - END TEST. - -END PROGRAM 199 diff --git a/bwbtest/NBS2/P200.BAS b/bwbtest/NBS2/P200.BAS deleted file mode 100644 index a79477c..0000000 --- a/bwbtest/NBS2/P200.BAS +++ /dev/null @@ -1,31 +0,0 @@ -0 PRINT "A STATEMENT WITH A LINE-NUMBER OF 0 HAS BEEN EXECUTED." -10 PRINT -20 PRINT "PROGRAM FILE 2000: ERROR - LINE-NUMBER ZERO." -30 PRINT " ANSI STANDARD 4.4" -40 PRINT -50 PRINT "SECTION 200.1: ERROR - LINE-NUMBER ZERO." -60 PRINT -170 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -180 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -190 PRINT -200 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -210 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -220 PRINT " BY THE PROCESSOR, OR" -230 PRINT -240 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -250 PRINT -260 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -270 PRINT "FOR DETAILED CRITERIA." -280 PRINT -1070 PRINT " BEGIN TEST." -1080 PRINT -1090 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS" -1100 PRINT "CONTAINING LINE-NUMBERS WITH THE VALUE OF 0. THE FIRST" -1110 PRINT "STATEMENT IN THIS PROGRAM HAS A LINE-NUMBER OF 0. IT IS A" -1120 PRINT "PRINT-STATEMENT WHICH PRINTS THE MESSAGE THAT A LINE-NUMBER" -1130 PRINT "OF 0 HAS BEEN EXECUTED. CHECK THE FIRST LINE OF OUTPUT." -1140 PRINT -1150 PRINT " END TEST." -1160 PRINT -1290 PRINT "END PROGRAM 200" -1300 END diff --git a/bwbtest/NBS2/P200.run b/bwbtest/NBS2/P200.run deleted file mode 100644 index f9f5c2f..0000000 --- a/bwbtest/NBS2/P200.run +++ /dev/null @@ -1 +0,0 @@ -0 < 1 - LINE OUT OF ORDER: 0 PRINT "A STATEMENT WITH A LINE-NUMBER OF 0 HAS BEEN diff --git a/bwbtest/NBS2/P201.BAS b/bwbtest/NBS2/P201.BAS deleted file mode 100644 index 5439b88..0000000 --- a/bwbtest/NBS2/P201.BAS +++ /dev/null @@ -1,30 +0,0 @@ -PRINT "PROGRAM FILE 201: ERROR - STATEMENTS WITHOUT LINE-NUMBERS." -PRINT " ANSI STANDARD 4.2, 4.4" -PRINT -PRINT "SECTION 201.1: ERROR - STATEMENTS WITHOUT LINE-NUMBERS." -PRINT -PRINT "THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR" -PRINT "ACCEPTS PROGRAMS CONTAINING STATEMENTS WITH NO" -PRINT "LINE-NUMBERS." -PRINT -PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -PRINT -PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -PRINT " BY THE PROCESSOR, OR" -PRINT -PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -PRINT -PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAM USER'S MANUAL" -PRINT "FOR DETAILED CRITERIA." -PRINT -PRINT " BEGIN TEST." -PRINT -PRINT "IF THIS PROGRAM GENERATED ANY OUTPUT, THEN THE" -PRINT "PROCESSOR HAS EXECUTED STATEMENTS WITH NO LINE-NUMBERS." -PRINT -PRINT " END TEST." -PRINT -PRINT "END PROGRAM 201" -END diff --git a/bwbtest/NBS2/P201.run b/bwbtest/NBS2/P201.run deleted file mode 100644 index f18f57a..0000000 --- a/bwbtest/NBS2/P201.run +++ /dev/null @@ -1,29 +0,0 @@ -PROGRAM FILE 201: ERROR - STATEMENTS WITHOUT LINE-NUMBERS. - ANSI STANDARD 4.2, 4.4 - -SECTION 201.1: ERROR - STATEMENTS WITHOUT LINE-NUMBERS. - -THIS PROGRAM TESTS TO SEE IF THE BASIC PROCESSOR -ACCEPTS PROGRAMS CONTAINING STATEMENTS WITH NO -LINE-NUMBERS. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAM USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -IF THIS PROGRAM GENERATED ANY OUTPUT, THEN THE -PROCESSOR HAS EXECUTED STATEMENTS WITH NO LINE-NUMBERS. - - END TEST. - -END PROGRAM 201 diff --git a/bwbtest/NBS2/P202.BAS b/bwbtest/NBS2/P202.BAS deleted file mode 100644 index 4adad04..0000000 --- a/bwbtest/NBS2/P202.BAS +++ /dev/null @@ -1,29 +0,0 @@ -10 PRINT "PROGRAM FILE 202: ERROR - LINES LONGER THAN 72 CHARACTERS." -20 PRINT " ANSI STANDARD 4.4" -30 PRINT -40 PRINT "SECTION 202.1: ERROR - LINES LONGER THAN 72 CHARACTERS." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS" -70 PRINT "CONTAINING LINES LONGER THAN 72 CHARACTERS." -80 PRINT -90 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -100 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -110 PRINT -120 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -130 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -140 PRINT " BY THE PROCESSOR, OR" -150 PRINT -160 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -170 PRINT -180 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAM USER'S MANUAL" -190 PRINT "FOR DETAILED CRITERIA." -200 PRINT -210 PRINT " BEGIN TEST." -220 PRINT -230 PRINT "THE PROCESSOR HAS EXECUTED A STATEMENT CONTAINING"; 9999 -9921; -235 PRINT "CHARACTERS." -240 PRINT -250 PRINT " END TEST." -260 PRINT -270 PRINT "END PROGRAM 202" -280 END diff --git a/bwbtest/NBS2/P202.run b/bwbtest/NBS2/P202.run deleted file mode 100644 index 8482460..0000000 --- a/bwbtest/NBS2/P202.run +++ /dev/null @@ -1,27 +0,0 @@ -PROGRAM FILE 202: ERROR - LINES LONGER THAN 72 CHARACTERS. - ANSI STANDARD 4.4 - -SECTION 202.1: ERROR - LINES LONGER THAN 72 CHARACTERS. - -THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS -CONTAINING LINES LONGER THAN 72 CHARACTERS. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAM USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -THE PROCESSOR HAS EXECUTED A STATEMENT CONTAINING 78 CHARACTERS. - - END TEST. - -END PROGRAM 202 diff --git a/bwbtest/NBS2/P203.BAS b/bwbtest/NBS2/P203.BAS deleted file mode 100644 index 9ac344e..0000000 --- a/bwbtest/NBS2/P203.BAS +++ /dev/null @@ -1,234 +0,0 @@ -10 PRINT "PROGRAM FILE 203: EFFECT OF ZONES AND MARGIN ON PRINT." -20 PRINT " ANSI STANDARD 12.4, 12.2" -30 PRINT -40 PRINT "THIS TEST IS CONCERNED WITH THE VARIOUS RULES GOVERNING THE" -50 PRINT "INTERACTION OF ZONE-WIDTH, MARGIN-WIDTH, COLUMNAR POSITION," -60 PRINT "AND PRINT-SEPARATORS AS DESCRIBED IN THE STANDARD." -70 PRINT -80 PRINT "PLEASE ENTER ZONE-WIDTH FOR THIS IMPLEMENTATION." -90 INPUT Z -100 IF Z=INT(Z) THEN 130 -110 PRINT "MUST BE AN INTEGER." -120 GOTO 80 -130 IF Z>=14 THEN 160 -140 PRINT "ZONE-WIDTH MUST BE >=14." -150 GOTO 80 -160 PRINT "PLEASE ENTER MARGIN FOR THIS IMPLEMENTATION." -170 INPUT M -180 IF M=INT(M) THEN 210 -190 PRINT "MUST BE AN INTEGER." -200 GOTO 160 -210 IF M>=Z THEN 235 -220 PRINT "MARGIN MUST BE >= ZONE-WIDTH." -230 GOTO 160 -235 PRINT "PLEASE ENTER NUMBER OF PRINT ZONES ON A LINE." -240 INPUT Z9 -245 IF Z9=INT(Z9) THEN 260 -250 PRINT "MUST BE AN INTEGER." -255 GOTO 235 -260 IF Z9 <= ((M-1/Z) + 1) THEN 275 -265 PRINT "NUMBER OF ZONES TOO LARGE FOR MARGIN AND ZONE-WIDTH." -270 GOTO 80 -275 REM LENGTH OF LAST ZONE -280 LET Z8=M-(Z*(Z9-1)) -290 PRINT -300 PRINT "THROUGHOUT THESE TESTS, PAIRS OF OUTPUTS WILL BE PRINTED." -310 PRINT "THE FIRST OF WHICH IS GENERATED ACCORDING TO THE INFORMATION" -320 PRINT "JUST SUPPLIED, AND THE SECOND OF WHICH REPRESENTS THE " -330 PRINT "FEATURE BEING TESTED. THESE TWO OUTPUTS MUST BE IDENTICAL" -340 PRINT "FOR THE TEST TO PASS." -350 PRINT -360 LET C=0 -370 PRINT "SECTION 203.1: COMMA ADVANCES COLUMNAR POSITION TO NEXT" -380 PRINT " PRINT-ZONE." -390 PRINT -400 PRINT " BEGIN TEST." -403 PRINT -405 PRINT "COMMA ADVANCED TO THE BEGINNING OF EACH OF THE ";Z9; -407 PRINT " PRINT ZONES:" -410 GOSUB 2000 -420 LET T=Z-1 -430 FOR I9=1 TO Z9-1 -440 PRINT "A"; -450 GOSUB 2100 -460 NEXT I9 -470 PRINT "B" -480 FOR I=1 TO Z9-1 -490 PRINT "A", -500 NEXT I -510 PRINT "B" -512 PRINT -515 PRINT "PRINT-STATEMENT CONTAINING ONLY A COMMA ADVANCES TO NEXT "; -517 PRINT "PRINT-ZONE:" -520 GOSUB 2000 -530 PRINT "C"; -540 LET T=Z+Z-1 -550 GOSUB 2100 -560 PRINT "D" -570 PRINT "C", -580 PRINT , -590 PRINT "D" -592 PRINT -595 PRINT "IF COLUMNAR POSITION IS THE LAST POSITION IN A ZONE, " -597 PRINT "A COMMA ADVANCES ONE SPACE TO THE NEXT ZONE:" -600 GOSUB 2000 -610 LET T=Z-2 -620 GOSUB 2100 -630 PRINT "E F" -640 GOSUB 2100 -650 PRINT "E","F" -652 PRINT -655 PRINT "IF COLUMNAR POSITION IS THE FIRST POSITION IN A ZONE," -657 PRINT "A COMMA ADVANCES ONE FULL ZONE:" -660 GOSUB 2000 -670 LET T=Z-1 -680 GOSUB 2100 -690 PRINT "G"; -700 LET T=Z -710 GOSUB 2100 -720 PRINT "H" -730 LET T=Z-1 -740 GOSUB 2100 -750 PRINT "G","H" -752 PRINT -755 PRINT "LEADING COMMAS IN A PRINT-STATEMENT SKIP PRINT-ZONES:" -760 GOSUB 2000 -770 LET T=Z+Z -780 GOSUB 2100 -790 PRINT "I" -800 PRINT ,,"I" -810 GOSUB 3000 -820 PRINT "SECTION 203.2: INTERACTION OF TAB AND MARGIN." -830 PRINT -840 PRINT " BEGIN TEST." -850 LET C=0 -860 PRINT -862 PRINT -865 PRINT "TABBING TO A POSITION < COLUMNAR POSITION FORCES A NEW LINE:" -870 GOSUB 2200 -880 PRINT " A" -890 PRINT " B" -900 PRINT TAB(5);"A";TAB(5);"B" -902 PRINT -905 PRINT "TABBING TO A POSITION >= COLUMNAR POSITION DOES NOT" -909 PRINT "FORCE A NEW LINE:" -910 GOSUB 2000 -920 PRINT " CD" -930 PRINT TAB(5);"C";TAB(6);"D" -932 PRINT -935 PRINT "TABBING TO A POSITION, N > MARGIN, M, CAUSES TAB TO" -937 PRINT "N - M*INT((N-1)/M):" -940 GOSUB 2000 -950 PRINT " E" -960 PRINT TAB(M+M+M+3);"E" -970 GOSUB 3000 -980 PRINT "SECTION 203.3: MARGIN OVERFLOW." -990 PRINT -1000 PRINT " BEGIN TEST." -1010 LET C=0 -1012 PRINT -1015 PRINT "IF A PRINT-ITEM DOESN'T FIT IN REMAINDER OF CURRENT LINE," -1017 PRINT "IT FORCES A NEW LINE BEFORE PRINTING:" -1020 GOSUB 2200 -1030 LET T=M-2 -1040 GOSUB 2100 -1050 PRINT "A" -1060 PRINT "BC" -1065 GOSUB 2100 -1070 PRINT "A"; -1075 PRINT "BC" -1076 PRINT -1077 PRINT "FULL LENGTH OF MARGIN IS USED BEFORE FORCING NEW LINE:" -1080 GOSUB 2000 -1090 GOSUB 2100 -1100 PRINT "DE" -1105 PRINT "F" -1110 GOSUB 2100 -1112 PRINT "D";"E"; -1117 PRINT "F" -1118 PRINT -1119 PRINT "FILL RIGHTMOST POSITION OF LAST ZONE:" -1120 GOSUB 2000 -1130 LET T=M-1 -1140 GOSUB 2100 -1150 PRINT "G" -1160 FOR I1=1 TO Z9-1 -1170 PRINT , -1180 NEXT I1 -1190 LET T=Z8-1 -1200 GOSUB 2100 -1210 PRINT "G" -1212 PRINT -1215 PRINT "IF COLUMNAR POSITION IS IN LAST ZONE, A COMMA FORCES "; -1218 PRINT "A NEW LINE:" -1220 GOSUB 2200 -1230 PRINT "H" -1240 PRINT "I" -1250 PRINT "H"; -1260 FOR I1=1 TO Z9-2 -1270 PRINT , -1280 NEXT I1 -1290 PRINT ,,"I" -1300 GOSUB 3000 -1980 PRINT "END PROGRAM 203" -1990 STOP -2000 REM SUBROUTINE TO HEAD LINE-PAIRS -2010 LET C=C+1 -2040 PRINT -2050 PRINT "THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE" -2060 PRINT "IDENTICAL, CASE #";C -2070 GOSUB 2300 -2080 RETURN -2100 REM SUBROUTINE TO PRINT T SPACES -2110 FOR I=1 TO T -2120 PRINT " "; -2130 NEXT I -2140 RETURN -2200 REM SUBROUTINE TO HEAD PAIRS OF SETS OF LINES -2210 LET C=C+1 -2240 PRINT -2250 PRINT "THE FIRST TWO LINES (1 & 2) FOLLOWING THE COLUMN NUMBERS" -2260 PRINT "SHOULD BE IDENTICAL TO THE NEXT TWO (3 & 4), CASE #";C -2270 GOSUB 2300 -2280 RETURN -2300 REM SUBROUTINE TO PRINT COLUMN NUMBERS -2310 PRINT "000000000111111111122222222223333333333"; -2320 IF M<60 THEN 2420 -2330 PRINT "44444444445555555555"; -2340 IF M<72 THEN 2420 -2350 PRINT "666666666677"; -2353 IF M<80 THEN 2420 -2355 PRINT "77777777"; -2360 IF M<100 THEN 2420 -2370 PRINT "88888888889999999999"; -2380 IF M<120 THEN 2420 -2390 PRINT "00000000001111111111"; -2400 IF M<132 THEN 2420 -2410 PRINT "222222222233"; -2420 PRINT -2430 LET A$="0123456789" -2440 PRINT "123456789";A$;A$;A$; -2450 IF M<60 THEN 2550 -2460 PRINT A$;A$; -2470 IF M<72 THEN 2550 -2480 PRINT A$;"01"; -2483 IF M<80 THEN 2550 -2485 PRINT "23456789"; -2490 IF M<100 THEN 2550 -2500 PRINT A$;A$; -2510 IF M<120 THEN 2550 -2520 PRINT A$;A$; -2530 IF M<132 THEN 2550 -2540 PRINT A$;"01"; -2550 PRINT -2560 RETURN -3000 REM SUBROUTINE TO END SECTION -3010 PRINT -3020 PRINT "IF ALL THE ABOVE PAIRS ARE IDENTICAL, THEN " -3030 PRINT "*** TEST PASSED ***" -3040 PRINT -3050 PRINT " END TEST." -3060 PRINT -3070 PRINT -3080 RETURN -5000 END diff --git a/bwbtest/NBS2/P203.INP b/bwbtest/NBS2/P203.INP deleted file mode 100644 index c4e304e..0000000 --- a/bwbtest/NBS2/P203.INP +++ /dev/null @@ -1,3 +0,0 @@ -15 -80 -6 diff --git a/bwbtest/NBS2/P203.in b/bwbtest/NBS2/P203.in deleted file mode 100644 index 9d60166..0000000 --- a/bwbtest/NBS2/P203.in +++ /dev/null @@ -1,3 +0,0 @@ -15 -80 -5 diff --git a/bwbtest/NBS2/P203.run b/bwbtest/NBS2/P203.run deleted file mode 100644 index 7d3e33f..0000000 --- a/bwbtest/NBS2/P203.run +++ /dev/null @@ -1,176 +0,0 @@ -PROGRAM FILE 203: EFFECT OF ZONES AND MARGIN ON PRINT. - ANSI STANDARD 12.4, 12.2 - -THIS TEST IS CONCERNED WITH THE VARIOUS RULES GOVERNING THE -INTERACTION OF ZONE-WIDTH, MARGIN-WIDTH, COLUMNAR POSITION, -AND PRINT-SEPARATORS AS DESCRIBED IN THE STANDARD. - -PLEASE ENTER ZONE-WIDTH FOR THIS IMPLEMENTATION. -? 15 -PLEASE ENTER MARGIN FOR THIS IMPLEMENTATION. -? 80 -PLEASE ENTER NUMBER OF PRINT ZONES ON A LINE. -? 6 - -THROUGHOUT THESE TESTS, PAIRS OF OUTPUTS WILL BE PRINTED. -THE FIRST OF WHICH IS GENERATED ACCORDING TO THE INFORMATION -JUST SUPPLIED, AND THE SECOND OF WHICH REPRESENTS THE -FEATURE BEING TESTED. THESE TWO OUTPUTS MUST BE IDENTICAL -FOR THE TEST TO PASS. - -SECTION 203.1: COMMA ADVANCES COLUMNAR POSITION TO NEXT - PRINT-ZONE. - - BEGIN TEST. - -COMMA ADVANCED TO THE BEGINNING OF EACH OF THE 6 PRINT ZONES: - -THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE -IDENTICAL, CASE # 1 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 -A A A A A B -A A A A A B - -PRINT-STATEMENT CONTAINING ONLY A COMMA ADVANCES TO NEXT PRINT-ZONE: - -THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE -IDENTICAL, CASE # 2 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 -C D -C D - -IF COLUMNAR POSITION IS THE LAST POSITION IN A ZONE, -A COMMA ADVANCES ONE SPACE TO THE NEXT ZONE: - -THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE -IDENTICAL, CASE # 3 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 - E F - E F - -IF COLUMNAR POSITION IS THE FIRST POSITION IN A ZONE, -A COMMA ADVANCES ONE FULL ZONE: - -THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE -IDENTICAL, CASE # 4 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 - G H - G H - -LEADING COMMAS IN A PRINT-STATEMENT SKIP PRINT-ZONES: - -THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE -IDENTICAL, CASE # 5 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 - I - I - -IF ALL THE ABOVE PAIRS ARE IDENTICAL, THEN -*** TEST PASSED *** - - END TEST. - - -SECTION 203.2: INTERACTION OF TAB AND MARGIN. - - BEGIN TEST. - - -TABBING TO A POSITION < COLUMNAR POSITION FORCES A NEW LINE: - -THE FIRST TWO LINES (1 & 2) FOLLOWING THE COLUMN NUMBERS -SHOULD BE IDENTICAL TO THE NEXT TWO (3 & 4), CASE # 1 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 - A - B - A - B - -TABBING TO A POSITION >= COLUMNAR POSITION DOES NOT -FORCE A NEW LINE: - -THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE -IDENTICAL, CASE # 2 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 - CD - CD - -TABBING TO A POSITION, N > MARGIN, M, CAUSES TAB TO -N - M*INT((N-1)/M): - -THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE -IDENTICAL, CASE # 3 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 - E - E - -IF ALL THE ABOVE PAIRS ARE IDENTICAL, THEN -*** TEST PASSED *** - - END TEST. - - -SECTION 203.3: MARGIN OVERFLOW. - - BEGIN TEST. - -IF A PRINT-ITEM DOESN'T FIT IN REMAINDER OF CURRENT LINE, -IT FORCES A NEW LINE BEFORE PRINTING: - -THE FIRST TWO LINES (1 & 2) FOLLOWING THE COLUMN NUMBERS -SHOULD BE IDENTICAL TO THE NEXT TWO (3 & 4), CASE # 1 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 - A -BC - A -BC - -FULL LENGTH OF MARGIN IS USED BEFORE FORCING NEW LINE: - -THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE -IDENTICAL, CASE # 2 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 - DE -F - DE -F - -FILL RIGHTMOST POSITION OF LAST ZONE: - -THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE -IDENTICAL, CASE # 3 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 - G - G - -IF COLUMNAR POSITION IS IN LAST ZONE, A COMMA FORCES A NEW LINE: - -THE FIRST TWO LINES (1 & 2) FOLLOWING THE COLUMN NUMBERS -SHOULD BE IDENTICAL TO THE NEXT TWO (3 & 4), CASE # 4 -0000000001111111111222222222233333333334444444444555555555566666666667777777777 -1234567890123456789012345678901234567890123456789012345678901234567890123456789 -H -I -H -I - -IF ALL THE ABOVE PAIRS ARE IDENTICAL, THEN -*** TEST PASSED *** - - END TEST. - - -END PROGRAM 203 - -Program interrupted at line 1990 diff --git a/bwbtest/NBS2/P204.BAS b/bwbtest/NBS2/P204.BAS deleted file mode 100644 index 4101891..0000000 --- a/bwbtest/NBS2/P204.BAS +++ /dev/null @@ -1,36 +0,0 @@ -10 PRINT "PROGRAM FILE 204: ERROR - PRINT-STATEMENTS CONTAINING" -15 PRINT " LOWERCASE CHARACTERS." -20 PRINT " ANSI STANDARD 3.2, 3.4, 12.2" -30 PRINT -40 PRINT "SECTION 204.1: ERROR - PRINT-STATEMENTS CONTAINING" -45 PRINT " LOWERCASE CHARACTERS." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS" -70 PRINT "CONTAINING LOWER CASE CHARACTERS IN A PRINT-STATEMENT." -80 PRINT -90 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -100 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -110 PRINT -120 PRINT "1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -130 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -140 PRINT " BY THE PROCESSOR, OR" -150 PRINT -160 PRINT "2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -170 PRINT -180 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -190 PRINT "FOR DETAILED CRITERIA." -200 PRINT -210 PRINT " BEGIN TEST." -220 print -230 PRINT "IF A BLANK LINE IMMEDIATELY PRECEDES THIS SENTENCE, THEN" -240 PRINT "THE PROCESSOR EXECUTED A PRINT STATEMENT IN WHICH THE" -250 PRINT "WORD 'PRINT' APPEARS IN LOWERCASE LETTERS." -260 PRINT -270 PRINT -280 PRINT "this sentence is generated by a quoted-string print-item" -290 PRINT "containing lower-case characters." -320 PRINT -330 PRINT " END TEST." -340 PRINT -350 PRINT "END PROGRAM 204" -360 END diff --git a/bwbtest/NBS2/P204.run b/bwbtest/NBS2/P204.run deleted file mode 100644 index da882ea..0000000 --- a/bwbtest/NBS2/P204.run +++ /dev/null @@ -1,35 +0,0 @@ -PROGRAM FILE 204: ERROR - PRINT-STATEMENTS CONTAINING - LOWERCASE CHARACTERS. - ANSI STANDARD 3.2, 3.4, 12.2 - -SECTION 204.1: ERROR - PRINT-STATEMENTS CONTAINING - LOWERCASE CHARACTERS. - -THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS -CONTAINING LOWER CASE CHARACTERS IN A PRINT-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - -1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - -2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -IF A BLANK LINE IMMEDIATELY PRECEDES THIS SENTENCE, THEN -THE PROCESSOR EXECUTED A PRINT STATEMENT IN WHICH THE -WORD 'PRINT' APPEARS IN LOWERCASE LETTERS. - - -this sentence is generated by a quoted-string print-item -containing lower-case characters. - - END TEST. - -END PROGRAM 204 diff --git a/bwbtest/NBS2/P205.BAS b/bwbtest/NBS2/P205.BAS deleted file mode 100644 index 2a30ccb..0000000 --- a/bwbtest/NBS2/P205.BAS +++ /dev/null @@ -1,35 +0,0 @@ -10 PRINT "PROGRAM FILE 205: ERROR - ASSIGNED STRING CONTAINING" -15 PRINT " LOWERCASE CHARACTERS." -20 PRINT " ANSI STANDARD 3.2, 3.4, 9.2" -30 PRINT -40 PRINT "SECTION 205.1: ERROR - ASSIGNED STRING CONTAINING" -45 PRINT " LOWERCASE CHARACTERS." -50 PRINT -60 PRINT "THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS" -70 PRINT "CONTAINING LOWERCASE CHARACTERS IN THE QUOTED STRING OF A" -80 PRINT "LET-STATEMENT." -90 PRINT -100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -120 PRINT -130 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -140 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -150 PRINT " BY THE PROCESSOR, OR" -160 PRINT -170 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -180 PRINT -190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -200 PRINT "FOR DETAILED CRITERIA." -210 PRINT -220 PRINT " BEGIN TEST." -230 PRINT -240 LET A$="abcdefghijklmnopqr" -250 PRINT "AN ASSIGNMENT STATEMENT HAS ATTEMPTED TO ASSOCIATE A STRING" -260 PRINT "CONSISTING OF THE FIRST 18 CHARACTERS OF THE ALPHABET, (A-R)" -270 PRINT "IN LOWERCASE, WITH A$." -290 PRINT "A$=";A$ -300 PRINT -310 PRINT " END TEST." -320 PRINT -330 PRINT "END PROGRAM 205" -340 END diff --git a/bwbtest/NBS2/P205.run b/bwbtest/NBS2/P205.run deleted file mode 100644 index 5fb8940..0000000 --- a/bwbtest/NBS2/P205.run +++ /dev/null @@ -1,33 +0,0 @@ -PROGRAM FILE 205: ERROR - ASSIGNED STRING CONTAINING - LOWERCASE CHARACTERS. - ANSI STANDARD 3.2, 3.4, 9.2 - -SECTION 205.1: ERROR - ASSIGNED STRING CONTAINING - LOWERCASE CHARACTERS. - -THIS PROGRAM TESTS TO SEE IF THE PROCESSOR ACCEPTS PROGRAMS -CONTAINING LOWERCASE CHARACTERS IN THE QUOTED STRING OF A -LET-STATEMENT. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -AN ASSIGNMENT STATEMENT HAS ATTEMPTED TO ASSOCIATE A STRING -CONSISTING OF THE FIRST 18 CHARACTERS OF THE ALPHABET, (A-R) -IN LOWERCASE, WITH A$. -A$=abcdefghijklmnopqr - - END TEST. - -END PROGRAM 205 diff --git a/bwbtest/NBS2/P206.BAS b/bwbtest/NBS2/P206.BAS deleted file mode 100644 index 41dc9ae..0000000 --- a/bwbtest/NBS2/P206.BAS +++ /dev/null @@ -1,232 +0,0 @@ -10 PRINT "PROGRAM FILE 206: ERROR - ORDERING RELATIONS BETWEEN STRINGS." -20 PRINT " ANSI STANDARD 3.2, 3.4, 3.6, 10.2" -30 PRINT -40 PRINT "THIS PROGRAM TESTS WHETHER, AS AN ENHANCEMENT, THE COMPARISON" -50 PRINT "OF STRINGS WITH THE '<' AND '>' RELATIONS IS ALLOWED." -60 PRINT -70 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -80 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -90 PRINT -100 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -110 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -120 PRINT " BY THE PROCESSOR, OR" -130 PRINT -140 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -150 PRINT -160 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -170 PRINT "FOR DETAILED CRITERIA." -180 PRINT -190 PRINT "SECTION 206.1: COLLATING SEQUENCE." -200 PRINT -210 PRINT "IF THIS IMPLEMENTATION ALLOWS THE ORDERING RELATIONS," -220 PRINT "AN INFORMATIVE SORT IS DONE TO DISPLAY THE IMPLICIT" -230 PRINT "COLLATING SEQUENCE OF THE CHARACTERS (ASSUMING THE NATURAL" -240 PRINT "INTERPRETATION IS GIVEN TO THESE RELATIONS)." -250 PRINT -260 PRINT " BEGIN TEST." -270 PRINT -280 PRINT "COLLATING SEQUENCE OF SELECTED CHARACTERS IS:" -290 PRINT "(CHARACTERS SURROUNDED BY PERIODS)" -300 PRINT -310 REM SORT 30 CHARACTERS, 15 AT A TIME BECAUSE OF NAME SPACE LIMITS -320 LET L=15 -330 READ W$ -340 REM THROUGHOUT, VARIABLES A$ - O$ ARE TREATED AS A STRING ARRAY, -350 REM INDEXED BY N, 1 <= N <= 15. -360 LET A$=W$ -370 REM Z$ IS HIGHEST SO FAR, H1 ITS INDEX -380 LET Z$=W$ -390 LET H1=1 -400 REM LOAD IN 1ST L, AND NOTE HIGHEST -410 FOR N=2 TO L -420 READ W$ -430 GOSUB 4000 -440 IF W$ < Z$ THEN 470 -450 LET Z$=W$ -460 LET H1=N -470 NEXT N -480 REM READ NEXT L CHARACTERS, FOR EACH, COMPARE TO HIGHEST IN TABLE. -490 REM IF THIS ONE < HIGHEST, REPLACE HIGHEST WITH IT, AND THEN -500 REM FIND NEW HIGHEST. -510 FOR I=1 TO L -520 READ W$ -530 REM IF THIS > HIGHEST, SKIP -540 IF W$ > Z$ THEN 660 -550 LET N=H1 -560 GOSUB 4000 -570 LET H1=1 -580 LET Z$ =A$ -590 REM SCAN FOR NEW HIGHEST -600 FOR N=2 TO L -610 GOSUB 3000 -620 IF W$ HIGHEST OF THE -720 REM LOWEST L CHARACTERS ALREADY SORTED. -730 FOR I=1 TO L+L -740 READ W$ -750 IF W$ > Z$ THEN 770 -760 GOTO 790 -770 GOSUB 4000 -780 LET N=N+1 -790 NEXT I -800 REM SORT THE HIGH L CHARACTERS. -810 GOSUB 2000 -812 PRINT -815 PRINT "IF DOCUMENTATION AGREES WITH THE ABOVE RESULTS, THEN" -818 PRINT "*** TEST PASSED ***" -820 PRINT -830 PRINT " END TEST." -840 PRINT -850 PRINT "SECTION 206.2: COLLATING MULTI-CHARACTER STRINGS." -860 PRINT -870 PRINT "THIS SECTION DISPLAYS SOME SUGGESTIVE TEST CASES TO" -880 PRINT "SHOW HOW THIS IMPLEMENTATION HANDLES COMPARISONS OF" -890 PRINT "MULTI-CHARACTER STRINGS. ALL STRINGS SHOWN ARE DELIMITED" -895 PRINT "BY APOSTROPHES TO ENABLE THE USER TO DISTINGUISH BLANKS" -897 PRINT "FROM NULL." -900 PRINT -903 PRINT " BEGIN TEST." -906 PRINT -910 READ A$,B$ -920 IF A$ = "999" THEN 1110 -930 LET C$ = "=" -940 IF A$=B$ THEN 1000 -950 LET C$="," -960 IF A$B$ THEN 1000 -990 LET C$="INCOMPARABLE TO" -1000 PRINT "'";A$;"' ";C$;" '";B$;"'" -1010 GOTO 910 -1110 PRINT -1120 PRINT "IF DOCUMENTATION AGREES WITH ABOVE RESULTS, THEN" -1130 PRINT "*** TEST PASSED ***" -1140 PRINT -1150 PRINT " END TEST." -1160 PRINT -1900 PRINT "END PROGRAM 206" -1990 STOP -2000 REM THIS SUBROUTINE SORTS AND PRINTS THE CHARACTERS IN A$ - O$ -2010 REM ALGORITHM IS SIMPLE EXCHANGE SORT -2020 FOR I=1 TO L-1 -2030 FOR J=I+1 TO L -2040 LET N=I -2050 GOSUB 3000 -2060 LET X$=W$ -2070 LET N=J -2080 GOSUB 3000 -2090 LET Y$=W$ -2100 IF X$ < Y$ THEN 2180 -2110 REM SWAP ITH AND JTH CHARACTERS -2120 LET N=I -2130 LET W$=Y$ -2140 GOSUB 4000 -2150 LET N=J -2160 LET W$=X$ -2170 GOSUB 4000 -2180 NEXT J -2190 NEXT I -2200 PRINT "."; -2210 FOR N=1 TO L -2220 GOSUB 3000 -2230 PRINT W$;"."; -2240 NEXT N -2250 PRINT -2260 RETURN -3000 REM SUBROUTINE TO GET NTH CHARACTER INTO W$ -3010 IF N > 7 THEN 3030 -3020 ON N GOTO 3040,3060,3080,3100,3120,3140,3160 -3030 ON N-7 GOTO 3180,3200,3220,3240,3260,3280,3300,3320 -3040 LET W$=A$ -3050 GOTO 3340 -3060 LET W$=B$ -3070 GOTO 3340 -3080 LET W$=C$ -3090 GOTO 3340 -3100 LET W$=D$ -3110 GOTO 3340 -3120 LET W$=E$ -3130 GOTO 3340 -3140 LET W$=F$ -3150 GOTO 3340 -3160 LET W$=G$ -3170 GOTO 3340 -3180 LET W$=H$ -3190 GOTO 3340 -3200 LET W$=I$ -3210 GOTO 3340 -3220 LET W$=J$ -3230 GOTO 3340 -3240 LET W$=K$ -3250 GOTO 3340 -3260 LET W$=L$ -3270 GOTO 3340 -3280 LET W$=M$ -3290 GOTO 3340 -3300 LET W$=N$ -3310 GOTO 3340 -3320 LET W$=O$ -3340 RETURN -4000 REM SUBROUTINE TO GET W$ INTO NTH CHARACTER -4010 IF N > 7 THEN 4030 -4020 ON N GOTO 4040,4060,4080,4100,4120,4140,4160 -4030 ON N-7 GOTO 4180,4200,4220,4240,4260,4280,4300,4320 -4040 LET A$=W$ -4050 GOTO 4340 -4060 LET B$=W$ -4070 GOTO 4340 -4080 LET C$=W$ -4090 GOTO 4340 -4100 LET D$=W$ -4110 GOTO 4340 -4120 LET E$=W$ -4130 GOTO 4340 -4140 LET F$=W$ -4150 GOTO 4340 -4160 LET G$=W$ -4170 GOTO 4340 -4180 LET H$=W$ -4190 GOTO 4340 -4200 LET I$=W$ -4210 GOTO 4340 -4220 LET J$=W$ -4230 GOTO 4340 -4240 LET K$=W$ -4250 GOTO 4340 -4260 LET L$=W$ -4270 GOTO 4340 -4280 LET M$=W$ -4290 GOTO 4340 -4300 LET N$=W$ -4310 GOTO 4340 -4320 LET O$=W$ -4340 RETURN -5000 DATA "A","M","Z","O","1","8" -5010 DATA "9"," ","!","#","$","%" -5020 DATA "&","'","(",")","*","+" -5030 DATA ",","-",".","/",":",";" -5040 DATA "<","=",">","?","^","_" -6000 DATA "ABC","ABC" -6005 DATA "ABC","ABD" -6010 DATA "ABC","XYZ" -6020 DATA "ABC","ABC " -6030 DATA "ABC"," ABC" -6040 DATA "ABC "," ABC" -6050 DATA "ABC","ABCD" -6060 DATA "ABC"," " -6070 DATA "ABC","" -6080 DATA ""," " -6090 DATA " "," " -6100 DATA " ABC"," " -6110 DATA " ABC"," " -6120 DATA " ABC"," " -7000 DATA "999","999" -8000 END diff --git a/bwbtest/NBS2/P206.run b/bwbtest/NBS2/P206.run deleted file mode 100644 index dc4193b..0000000 --- a/bwbtest/NBS2/P206.run +++ /dev/null @@ -1,71 +0,0 @@ -PROGRAM FILE 206: ERROR - ORDERING RELATIONS BETWEEN STRINGS. - ANSI STANDARD 3.2, 3.4, 3.6, 10.2 - -THIS PROGRAM TESTS WHETHER, AS AN ENHANCEMENT, THE COMPARISON -OF STRINGS WITH THE '<' AND '>' RELATIONS IS ALLOWED. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - -SECTION 206.1: COLLATING SEQUENCE. - -IF THIS IMPLEMENTATION ALLOWS THE ORDERING RELATIONS, -AN INFORMATIVE SORT IS DONE TO DISPLAY THE IMPLICIT -COLLATING SEQUENCE OF THE CHARACTERS (ASSUMING THE NATURAL -INTERPRETATION IS GIVEN TO THESE RELATIONS). - - BEGIN TEST. - -COLLATING SEQUENCE OF SELECTED CHARACTERS IS: -(CHARACTERS SURROUNDED BY PERIODS) - -. .!.#.$.%.&.'.(.).*.+.,.-.../. -.1.8.9.:.;.<.=.>.?.A.M.O.Z.^._. - -IF DOCUMENTATION AGREES WITH THE ABOVE RESULTS, THEN -*** TEST PASSED *** - - END TEST. - -SECTION 206.2: COLLATING MULTI-CHARACTER STRINGS. - -THIS SECTION DISPLAYS SOME SUGGESTIVE TEST CASES TO -SHOW HOW THIS IMPLEMENTATION HANDLES COMPARISONS OF -MULTI-CHARACTER STRINGS. ALL STRINGS SHOWN ARE DELIMITED -BY APOSTROPHES TO ENABLE THE USER TO DISTINGUISH BLANKS -FROM NULL. - - BEGIN TEST. - -'ABC' = 'ABC' -'ABC' , 'ABD' -'ABC' , 'XYZ' -'ABC' , 'ABC ' -'ABC' > ' ABC' -'ABC ' > ' ABC' -'ABC' , 'ABCD' -'ABC' > ' ' -'ABC' > '' -'' , ' ' -' ' , ' ' -' ABC' > ' ' -' ABC' > ' ' -' ABC' > ' ' - -IF DOCUMENTATION AGREES WITH ABOVE RESULTS, THEN -*** TEST PASSED *** - - END TEST. - -END PROGRAM 206 - -Program interrupted at line 1990 diff --git a/bwbtest/NBS2/P207.BAS b/bwbtest/NBS2/P207.BAS deleted file mode 100644 index 2cb6082..0000000 --- a/bwbtest/NBS2/P207.BAS +++ /dev/null @@ -1,34 +0,0 @@ -10 PRINT "PROGRAM FILE 207: ERROR - ASSIGNMENT OF A STRING TO A" -20 PRINT " NUMERIC VARIABLE." -30 PRINT " ANSI STANDARD 9.2" -40 PRINT -50 PRINT "SECTION 207.1: ERROR - ASSIGNMENT OF A STRING TO A" -60 PRINT " NUMERIC VARIABLE." -70 PRINT -80 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -90 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -100 PRINT -110 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -120 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -130 PRINT " BY THE PROCESSOR, OR" -140 PRINT -150 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -160 PRINT -170 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL" -180 PRINT "FOR DETAILED CRITERIA." -190 PRINT -200 PRINT " BEGIN TEST." -210 PRINT -220 PRINT "SETTING A$='123' AND X=111" -230 PRINT -240 LET A$="123" -250 LET X=111 -260 PRINT "ABOUT TO EXECUTE: LET X = A$" -270 LET X=A$ -280 PRINT -290 PRINT "RESULTING VALUE OF X = ";X -300 PRINT -310 PRINT " END TEST." -320 PRINT -330 PRINT "END PROGRAM 207" -340 END diff --git a/bwbtest/NBS2/P207.run b/bwbtest/NBS2/P207.run deleted file mode 100644 index 4c01d10..0000000 --- a/bwbtest/NBS2/P207.run +++ /dev/null @@ -1,26 +0,0 @@ -PROGRAM FILE 207: ERROR - ASSIGNMENT OF A STRING TO A - NUMERIC VARIABLE. - ANSI STANDARD 9.2 - -SECTION 207.1: ERROR - ASSIGNMENT OF A STRING TO A - NUMERIC VARIABLE. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -SETTING A$='123' AND X=111 - -ABOUT TO EXECUTE: LET X = A$ - -ERROR in line 270: Type mismatch diff --git a/bwbtest/NBS2/P208.BAS b/bwbtest/NBS2/P208.BAS deleted file mode 100644 index 59a1684..0000000 --- a/bwbtest/NBS2/P208.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "PROGRAM FILE 208: ERROR - ASSIGNMENT OF A NUMBER TO A" -20 PRINT " STRING VARIABLE." -30 PRINT " ANSI STANDARD 9.2" -40 PRINT -50 PRINT "SECTION 208.1: ERROR - ASSIGNMENT OF A NUMBER TO A" -60 PRINT " STRING VARIABLE." -70 PRINT -80 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC." -90 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:" -100 PRINT -110 PRINT " 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION" -120 PRINT " ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION" -130 PRINT " BY THE PROCESSOR, OR" -140 PRINT -150 PRINT " 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE" -160 PRINT -170 PRINT "SEE THE NBS MINIMAL BASE TEST PROGRAMS USER'S MANUAL" -180 PRINT "FOR DETAILED CRITERIA." -190 PRINT -200 PRINT " BEGIN TEST." -210 PRINT -220 PRINT "SETTING A$='123' AND X=111" -240 LET A$="123" -250 LET X=111 -260 PRINT "ABOUT TO EXECUTE: LET A$ = X" -270 LET A$=X -280 PRINT -290 PRINT "RESULTING VALUE OF A$ = ";A$ -300 PRINT -310 PRINT " END TEST." -320 PRINT -330 PRINT "END PROGRAM 208" -340 END diff --git a/bwbtest/NBS2/P208.run b/bwbtest/NBS2/P208.run deleted file mode 100644 index 60518c0..0000000 --- a/bwbtest/NBS2/P208.run +++ /dev/null @@ -1,25 +0,0 @@ -PROGRAM FILE 208: ERROR - ASSIGNMENT OF A NUMBER TO A - STRING VARIABLE. - ANSI STANDARD 9.2 - -SECTION 208.1: ERROR - ASSIGNMENT OF A NUMBER TO A - STRING VARIABLE. - -THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC. -TO PASS THIS TEST, THE PROCESSOR MUST EITHER: - - 1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION - ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION - BY THE PROCESSOR, OR - - 2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE - -SEE THE NBS MINIMAL BASE TEST PROGRAMS USER'S MANUAL -FOR DETAILED CRITERIA. - - BEGIN TEST. - -SETTING A$='123' AND X=111 -ABOUT TO EXECUTE: LET A$ = X - -ERROR in line 270: Type mismatch diff --git a/bwbtest/NBS2/PAD80.BAS b/bwbtest/NBS2/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/NBS2/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/NBS2/PAD80.INP b/bwbtest/NBS2/PAD80.INP deleted file mode 100644 index 4c9a866..0000000 --- a/bwbtest/NBS2/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA P208.OUT, P208.80 diff --git a/bwbtest/NBS2/PAD80.PRO b/bwbtest/NBS2/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/NBS2/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/NBS2X/00README.TXT b/bwbtest/NBS2X/00README.TXT deleted file mode 100644 index da2a5d1..0000000 --- a/bwbtest/NBS2X/00README.TXT +++ /dev/null @@ -1,12 +0,0 @@ -This folder contains BASIC programs to test various features of bwBASIC. - - -The E###.* files implement automated tests of various extensions to ECMA-55. -The E###.* files have been written for bwBASIC by Howard Wulf, AF5NE. - - -The M###.* files implement manual tests of various extensions to ECMA-55. -The M###.* files have been written for bwBASIC by Howard Wulf, AF5NE. - -The F_*.* files implement automated stress tests of various instrinsic functions. - diff --git a/bwbtest/NBS2X/00test.sh b/bwbtest/NBS2X/00test.sh deleted file mode 100644 index 99515a9..0000000 --- a/bwbtest/NBS2X/00test.sh +++ /dev/null @@ -1,378 +0,0 @@ -# Filename: 00test.sh -# Purpose: automted regression testing -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2X -# ash ./00test.sh -# -# - -rm *.OUT -rm *.LPT -rm *.80 -rm *.dif -# rm *.HTM -# rm *.MAN -rm *.DAT - -# E058, E059 -rm A - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - - - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile B15.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# ---------------------------------------------- -# -# Extra tests of BYWATER BASIC behavior -# -# --------------------------------------------- -testcase E001 -testcase E002 -testcase E003 -testcase E004 -testcase E005 -testcase E006 -testcase E007 -testcase E008 -testcase E009 -testcase E010 -testcase E011 -testcase E012 -testcase E013 -testcase E014 -testcase E015 -testcase E016 -testcase E017 -testcase E018 -testcase E019 -testcase E020 -testcase E021 -testcase E022 -testcase E023 -testcase E024 -testcase E025 -testcase E026 -testcase E027 -testcase E028 -testcase E029 -testcase E030 -testcase E031 -testcase E032 -testcase E033 -testcase E034 -testcase E035 -testcase E036 -testcase E037 -testcase E038 -testcase E039 -testcase E040 -testcase E041 -testcase E042 -testcase E043 -echo this is the first > E044.DAT -testcase E044 -testcase E045 -testcase E046 -testcase E047 -testcase E048 -testcase E049 -testcase E050 -testcase E051 -testcase E052 -testcase E053 -# this test is only valid when MAX_LINE_LENGTH = 4096 -# testcase E054 -testcase E055 -testcase E056 -testcase E057 -rm A -testcase E058 -testcase E059 -testcase E060 -testcase E061 -echo > E062.DAT -testcase E062 -testcase E063 -testcase E064 -# this test depends upon MAXLEN -# testcase E065 -testcase E066 -testcase E067 -testcase E068 -testcase E069 -testcase E070 -testcase E071 -testcase M001 -testcase M002 -testcase M003 -testcase M004 -testcase M005 -testcase M006 -testcase M007 -testcase MID_1 -testcase VIRT_1 -testcase VIRT_2 -testcase VIRT_3 -testcase VIRT_4 -testcase VIRT_5 -testcase VIRT_6 -echo ABCDEFGHIJKLMNOPQRSTUVWXYZ > VIRT_7.DAT -testcase VIRT_7 - -# ---------------------------------------------- -# -# SYNTAX.BAS generated the following tests -# -# ---------------------------------------------- -testcase F_ABS_X_N -testcase F_ACOS_X_N -testcase F_ANGLE_X_Y_N -testcase F_ASC_A_N -testcase F_ASIN_X_N -testcase F_ATN_X_N -testcase F_CCUR_X_N -testcase F_CDBL_X_N -testcase F_CEIL_X_N -testcase F_CHR_X_S -# results depend upon sizeof(IntegerType) -testcase F_CINT_X_N -testcase F_CLNG_X_N -testcase F_COSH_X_N -testcase F_COS_X_N -testcase F_COT_X_N -testcase F_CSC_X_N -testcase F_CSNG_X_N -testcase F_CVC_A_N -testcase F_CVD_A_N -# results depend upon sizeof(IntegerType) -testcase F_CVI_A_N -testcase F_CVL_A_N -testcase F_CVS_A_N -testcase F_DEG_X_N -testcase F_EPS_X_N -testcase F_ERROR_X_A_N -testcase F_ERROR_X_N -testcase F_EXP_X_N -testcase F_FIX_X_N -testcase F_FP_X_N -testcase F_FRE_A_N -testcase F_FRE_X_N -# results depend upon sizeof(IntegerType) -testcase F_HEX_X_S -testcase F_INSTR_A_B_N -# results depend upon MAXLEN -# testcase F_INSTR_X_A_B_N -testcase F_INT_X_N -testcase F_IP_X_N -testcase F_LCASE_A_S -# results depend upon MAXLEN -# testcase F_LEFT_A_X_S -testcase F_LEN_A_N -testcase F_LOG10_X_N -testcase F_LOG2_X_N -testcase F_LOG_X_N -testcase F_LTRIM_A_S -# results depend upon MAXLEN -# testcase F_MAXLEN_A_N -testcase F_MAX_X_Y_N -# results depend upon MAXLEN -# testcase F_MID_A_X_S -# results depend upon MAXLEN -# testcase F_MID_A_X_Y_S -testcase F_MIN_X_Y_N -testcase F_NULL_X_N -# results depend upon sizeof(IntegerType) -testcase F_OCT_X_S -testcase F_ORD_A_N -testcase F_RAD_X_N -testcase F_REMAINDER_X_Y_N -# this test is only valid when MAX_LINE_LENGTH = 4096 -# testcase F_REPEAT_X_A_S -# this test is only valid when MAX_LINE_LENGTH = 4096 -# testcase F_REPEAT_X_Y_S -# results depend upon MAXLEN -# testcase F_RIGHT_A_X_S -testcase F_ROUND_X_Y_N -testcase F_RTRIM_A_S -testcase F_SEC_X_N -testcase F_SGN_X_N -testcase F_SINH_X_N -testcase F_SIN_X_N -# this test is only valid when MAX_LINE_LENGTH = 4096 -# testcase F_SPACE_X_S -testcase F_SQR_X_N -# this test is only valid when MAX_LINE_LENGTH = 4096 -# testcase F_STRING_X_A_S -# this test is only valid when MAX_LINE_LENGTH = 4096 -# testcase F_STRING_X_Y_S -testcase F_STR_X_S -testcase F_TANH_X_N -testcase F_TAN_X_N -testcase F_TRIM_A_S -testcase F_TRUNCATE_X_Y_N -testcase F_UCASE_A_S -testcase F_VAL_A_N - -# ---------------------------------------------- -# dump the command cross-reference -# ---------------------------------------------- -echo "CMDS" -~/bwbasic CMDS.BAS > CMDS.OUT -~/bwbasic CMDS_HTM.BAS 2> ../DOCS/CMDS.HTM -# cp CMDS.HTM .. - -# ---------------------------------------------- -# dump the function cross-reference -# ---------------------------------------------- -echo "FNCS" -~/bwbasic FNCS.BAS > FNCS.OUT -~/bwbasic FNCS_HTM.BAS 2> ../DOCS/FNCS.HTM -# cp FNCS.HTM .. - -# ---------------------------------------------- -# dump all interanl tables -# ---------------------------------------------- -echo "MAINTAINER" -~/bwbasic MAINTAINER.BAS 2> MAINTAINER.OUT -# cp MAINTAINER.OUT .. - -# ---------------------------------------------- -# dump the master manual of all dialects -# ---------------------------------------------- -echo "MANUAL" -~/bwbasic MANUAL.BAS 2> ../DOCS/ALL.txt - -# ---------------------------------------------- -# dump the user manuals for each dialect -# ---------------------------------------------- -# echo "DIALECTS" -echo "MAINTAINER MANUAL " > DIALECT.BAS - -echo "OPTION VERSION \"BYWATER\" " -echo "OPTION VERSION \"BYWATER\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/BYWATER.txt - -echo "OPTION VERSION \"BYWATER-2\" " -echo "OPTION VERSION \"BYWATER-2\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/BYWATER-2.txt - -echo "OPTION VERSION \"CALL/360\" " -echo "OPTION VERSION \"CALL/360\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/CALL-360.txt - -echo "OPTION VERSION \"CBASIC-II\" " -echo "OPTION VERSION \"CBASIC-II\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/CBASIC-II.txt - -echo "OPTION VERSION \"DARTMOUTH\" " -echo "OPTION VERSION \"DARTMOUTH\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/DARTMOUTH.txt - -echo "OPTION VERSION \"ECMA-55\" " -echo "OPTION VERSION \"ECMA-55\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/ECMA-55.txt - -echo "OPTION VERSION \"ECMA-116\" " -echo "OPTION VERSION \"ECMA-116\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/ECMA-116.txt - -echo "OPTION VERSION \"GCOS\" " -echo "OPTION VERSION \"GCOS\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/GCOS.txt - -echo "OPTION VERSION \"HAARDT\" " -echo "OPTION VERSION \"HAARDT\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/HAARDT.txt - -echo "OPTION VERSION \"HANDBOOK1\" " -echo "OPTION VERSION \"HANDBOOK1\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/HANDBOOK1.txt - -echo "OPTION VERSION \"HANDBOOK2\" " -echo "OPTION VERSION \"HANDBOOK2\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/HANDBOOK2.txt - -echo "OPTION VERSION \"HEATH\" " -echo "OPTION VERSION \"HEATH\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/HEATH.txt - -echo "OPTION VERSION \"IBASIC\" " -echo "OPTION VERSION \"IBASIC\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/IBASIC.txt - -echo "OPTION VERSION \"MARK-I\" " -echo "OPTION VERSION \"MARK-I\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/MARK-I.txt - -echo "OPTION VERSION \"MARK-II\" " -echo "OPTION VERSION \"MARK-II\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/MARK-II.txt - -echo "OPTION VERSION \"MBASIC\" " -echo "OPTION VERSION \"MBASIC\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/MBASIC.txt - -echo "OPTION VERSION \"PDP-8\" " -echo "OPTION VERSION \"PDP-8\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/PDP-8.txt - -echo "OPTION VERSION \"PDP-11\" " -echo "OPTION VERSION \"PDP-11\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/PDP-11.txt - -echo "OPTION VERSION \"RBASIC\" " -echo "OPTION VERSION \"RBASIC\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/RBASIC.txt - -echo "OPTION VERSION \"RSTS-11\" " -echo "OPTION VERSION \"RSTS-11\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/RSTS-11.txt - -echo "OPTION VERSION \"SYSTEM/360\" " -echo "OPTION VERSION \"SYSTEM/360\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/SYSTEM-360.txt - -echo "OPTION VERSION \"SYSTEM/370\" " -echo "OPTION VERSION \"SYSTEM/370\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/SYSTEM-370.txt - -echo "OPTION VERSION \"TRS-80\" " -echo "OPTION VERSION \"TRS-80\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/TRS-80.txt - -echo "OPTION VERSION \"VINTAGE\" " -echo "OPTION VERSION \"VINTAGE\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/VINTAGE.txt - -echo "OPTION VERSION \"XBASIC\" " -echo "OPTION VERSION \"XBASIC\" " > DIALECT.PRO -~/bwbasic --profile DIALECT.PRO DIALECT.BAS 2> ../DOCS/XBASIC.txt - -# grep "SYNTAX:" MANUAL.OUT > SYNTAX.INP -# ~/bwbasic SYNTAX.BAS > SYNTAX.OUT - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/NBS2X/01test.sh b/bwbtest/NBS2X/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/NBS2X/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/NBS2X/02ok.sh b/bwbtest/NBS2X/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/NBS2X/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/NBS2X/99test.sh b/bwbtest/NBS2X/99test.sh deleted file mode 100644 index bbbe799..0000000 --- a/bwbtest/NBS2X/99test.sh +++ /dev/null @@ -1,21 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif -# rm *.HTM -# rm *.MAN -rm *.DAT -rm A - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/NBS2X/B15.PRO b/bwbtest/NBS2X/B15.PRO deleted file mode 100644 index 5fe6743..0000000 --- a/bwbtest/NBS2X/B15.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "BYWATER" diff --git a/bwbtest/NBS2X/CMDS.BAS b/bwbtest/NBS2X/CMDS.BAS deleted file mode 100644 index 380051d..0000000 --- a/bwbtest/NBS2X/CMDS.BAS +++ /dev/null @@ -1,3 +0,0 @@ -OPTION VERSION BYWATER -OPTION BUGS OFF -CMDS diff --git a/bwbtest/NBS2X/CMDS_HTM.BAS b/bwbtest/NBS2X/CMDS_HTM.BAS deleted file mode 100644 index b02fb9a..0000000 --- a/bwbtest/NBS2X/CMDS_HTM.BAS +++ /dev/null @@ -1 +0,0 @@ -MAINTAINER CMDS HTML diff --git a/bwbtest/NBS2X/DIALECT.BAS b/bwbtest/NBS2X/DIALECT.BAS deleted file mode 100644 index b8ae374..0000000 --- a/bwbtest/NBS2X/DIALECT.BAS +++ /dev/null @@ -1 +0,0 @@ -MAINTAINER MANUAL diff --git a/bwbtest/NBS2X/DIALECT.PRO b/bwbtest/NBS2X/DIALECT.PRO deleted file mode 100644 index 5bd0174..0000000 --- a/bwbtest/NBS2X/DIALECT.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "XBASIC" diff --git a/bwbtest/NBS2X/E001.BAS b/bwbtest/NBS2X/E001.BAS deleted file mode 100644 index 7dbd78e..0000000 --- a/bwbtest/NBS2X/E001.BAS +++ /dev/null @@ -1,26 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: abs1.bas -1020 rem Purpose: Verify ABS() -1100 rem ------------------------------------------ -1120 X = -1.23456789 -1130 RESULT = ABS( X ) -1140 print "The absolute value of "; X; " is"; RESULT -1150 if RESULT <> 1.23456789 then goto TestFailed -1160 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 X = 1.23456789 -1230 RESULT = ABS( X ) -1240 print "The absolute value of "; X; " is"; RESULT -1250 if RESULT <> 1.23456789 then goto TestFailed -1260 print "*** TEST #2 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E001.run b/bwbtest/NBS2X/E001.run deleted file mode 100644 index 66cbbd6..0000000 --- a/bwbtest/NBS2X/E001.run +++ /dev/null @@ -1,5 +0,0 @@ -The absolute value of -1.23457 is 1.23457 -*** TEST #1 PASSED *** -The absolute value of 1.23457 is 1.23457 -*** TEST #2 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E002.BAS b/bwbtest/NBS2X/E002.BAS deleted file mode 100644 index 4980a51..0000000 --- a/bwbtest/NBS2X/E002.BAS +++ /dev/null @@ -1,49 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: acos1.bas -1020 rem Purpose: Verify ACOS() -1100 rem ------------------------------------------ -1120 X = 0 -1130 RESULT = ACOS( X ) -1140 print "The arccosine value of "; X; " is"; RESULT -1150 if RESULT < 1.5707962 then goto TestFailed -1160 if RESULT > 1.5707964 then goto TestFailed -1170 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 X = 0.5 -1230 RESULT = ACOS( X ) -1240 print "The arccosine value of "; X; " is"; RESULT -1250 if RESULT < 1.0471975 then goto TestFailed -1260 if RESULT > 1.0471977 then goto TestFailed -1270 print "*** TEST #2 PASSED ***" -1300 rem ------------------------------------------ -1320 X = -0.5 -1330 RESULT = ACOS( X ) -1340 print "The arccosine value of "; X; " is"; RESULT -1350 if RESULT < 2.0943950 then goto TestFailed -1360 if RESULT > 2.0943952 then goto TestFailed -1370 print "*** TEST #3 PASSED ***" -1400 rem ------------------------------------------ -1420 X = 1 -1430 RESULT = ACOS( X ) -1440 print "The arccosine value of "; X; " is"; RESULT -1450 if RESULT < 0 then goto TestFailed -1460 if RESULT > 0 then goto TestFailed -1470 print "*** TEST #4 PASSED ***" -1500 rem ------------------------------------------ -1520 X = -1 -1530 RESULT = ACOS( X ) -1540 print "The arccosine value of "; X; " is"; RESULT -1550 if RESULT < 3.1415926 then goto TestFailed -1560 if RESULT > 3.1415928 then goto TestFailed -1570 print "*** TEST #5 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E002.run b/bwbtest/NBS2X/E002.run deleted file mode 100644 index 77c966e..0000000 --- a/bwbtest/NBS2X/E002.run +++ /dev/null @@ -1,11 +0,0 @@ -The arccosine value of 0 is 1.5708 -*** TEST #1 PASSED *** -The arccosine value of .5 is 1.0472 -*** TEST #2 PASSED *** -The arccosine value of -.5 is 2.0944 -*** TEST #3 PASSED *** -The arccosine value of 1 is 0 -*** TEST #4 PASSED *** -The arccosine value of -1 is 3.14159 -*** TEST #5 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E003.BAS b/bwbtest/NBS2X/E003.BAS deleted file mode 100644 index 0104fae..0000000 --- a/bwbtest/NBS2X/E003.BAS +++ /dev/null @@ -1,50 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: angle1.bas -00120 REM PURPOSE: Verify ANGLE() -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 15th, 2014 -00150 REM ---------------------------------------------------- -01000 REM ---------------------------------------------------- -01010 REM TEST DEFAULT -01020 REM ---------------------------------------------------- -01100 REM option angle radians -01110 let x = 1 -01120 let y = 1 -01130 let a = angle( x, y ) -01140 print a -01150 let a$ = str$( a ) -01160 if left$( a$, 9 ) <> " .785398" then goto TestFailed -01170 print "*** TEST #1 PASSED ***" -02000 REM ---------------------------------------------------- -02010 REM TEST DEGREES -02020 REM ---------------------------------------------------- -02100 option angle degrees -02110 let x = 1 -02120 let y = 1 -02130 let a = angle( x, y ) -02140 print a -02150 let a$ = str$( a ) -02160 if left$( a$, 3 ) <> " 45" then goto TestFailed -02170 print "*** TEST #2 PASSED ***" -03000 REM ---------------------------------------------------- -03010 REM TEST RADIANS -03020 REM ---------------------------------------------------- -03100 option angle radians -03110 let x = 1 -03120 let y = 1 -03130 let a = angle( x, y ) -03140 print a -03150 let a$ = str$( a ) -03160 if left$( a$, 9 ) <> " .785398" then goto TestFailed -03170 print "*** TEST #3 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E003.run b/bwbtest/NBS2X/E003.run deleted file mode 100644 index c88d6f2..0000000 --- a/bwbtest/NBS2X/E003.run +++ /dev/null @@ -1,7 +0,0 @@ - .785398 -*** TEST #1 PASSED *** - 45 -*** TEST #2 PASSED *** - .785398 -*** TEST #3 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E004.BAS b/bwbtest/NBS2X/E004.BAS deleted file mode 100644 index 8a55390..0000000 --- a/bwbtest/NBS2X/E004.BAS +++ /dev/null @@ -1,26 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: asc1.bas -1020 rem Purpose: Verify ASC() -1100 rem ------------------------------------------ -1120 X$ = "ABCDEF" -1130 RESULT = ASC( X$ ) -1140 print "The ASCII value of "; X$; " is"; RESULT -1150 if RESULT <> 65 then goto TestFailed -1160 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 X$ = "abcdef" -1230 RESULT = ASC( X$ ) -1240 print "The ASCII value of "; X$; " is"; RESULT -1250 if RESULT <> 97 then goto TestFailed -1260 print "*** TEST #2 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E004.run b/bwbtest/NBS2X/E004.run deleted file mode 100644 index 1ca91d4..0000000 --- a/bwbtest/NBS2X/E004.run +++ /dev/null @@ -1,5 +0,0 @@ -The ASCII value of ABCDEF is 65 -*** TEST #1 PASSED *** -The ASCII value of abcdef is 97 -*** TEST #2 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E005.BAS b/bwbtest/NBS2X/E005.BAS deleted file mode 100644 index 28a9ee1..0000000 --- a/bwbtest/NBS2X/E005.BAS +++ /dev/null @@ -1,49 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: asin1.bas -1020 rem Purpose: Verify ASIN() -1100 rem ------------------------------------------ -1120 X = 0 -1130 RESULT = ASIN( X ) -1140 print "The arcsine value of "; X; " is"; RESULT -1150 if RESULT < 0 then goto TestFailed -1160 if RESULT > 0 then goto TestFailed -1170 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 X = 0.5 -1230 RESULT = ASIN( X ) -1240 print "The arcsine value of "; X; " is"; RESULT -1250 if RESULT < 0.5235987 then goto TestFailed -1260 if RESULT > 0.5235989 then goto TestFailed -1270 print "*** TEST #2 PASSED ***" -1300 rem ------------------------------------------ -1320 X = -0.5 -1330 RESULT = ASIN( X ) -1340 print "The arcsine value of "; X; " is"; RESULT -1350 if RESULT > -0.5235987 then goto TestFailed -1360 if RESULT < -0.5235989 then goto TestFailed -1370 print "*** TEST #3 PASSED ***" -1400 rem ------------------------------------------ -1420 X = 1 -1430 RESULT = ASIN( X ) -1440 print "The arcsine value of "; X; " is"; RESULT -1450 if RESULT < 1.5707962 then goto TestFailed -1460 if RESULT > 1.5707964 then goto TestFailed -1470 print "*** TEST #4 PASSED ***" -1500 rem ------------------------------------------ -1520 X = -1 -1530 RESULT = ASIN( X ) -1540 print "The arcsine value of "; X; " is"; RESULT -1550 if RESULT > -1.5707962 then goto TestFailed -1560 if RESULT < -1.5707964 then goto TestFailed -1570 print "*** TEST #5 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E005.run b/bwbtest/NBS2X/E005.run deleted file mode 100644 index 102b7db..0000000 --- a/bwbtest/NBS2X/E005.run +++ /dev/null @@ -1,11 +0,0 @@ -The arcsine value of 0 is 0 -*** TEST #1 PASSED *** -The arcsine value of .5 is .523599 -*** TEST #2 PASSED *** -The arcsine value of -.5 is-.523599 -*** TEST #3 PASSED *** -The arcsine value of 1 is 1.5708 -*** TEST #4 PASSED *** -The arcsine value of -1 is-1.5708 -*** TEST #5 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E006.BAS b/bwbtest/NBS2X/E006.BAS deleted file mode 100644 index 6b6300b..0000000 --- a/bwbtest/NBS2X/E006.BAS +++ /dev/null @@ -1,49 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: atn1.bas -1020 rem Purpose: Verify ATN() -1100 rem ------------------------------------------ -1120 X = 0 -1130 RESULT = ATN( X ) -1140 print "The arctangent value of "; X; " is"; RESULT -1150 if RESULT < 0 then goto TestFailed -1160 if RESULT > 0 then goto TestFailed -1170 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 X = 0.5 -1230 RESULT = ATN( X ) -1240 print "The arctangent value of "; X; " is"; RESULT -1250 if RESULT < 0.4636475 then goto TestFailed -1260 if RESULT > 0.4636477 then goto TestFailed -1270 print "*** TEST #2 PASSED ***" -1300 rem ------------------------------------------ -1320 X = -0.5 -1330 RESULT = ATN( X ) -1340 print "The arctangent value of "; X; " is"; RESULT -1350 if RESULT > -0.4636475 then goto TestFailed -1360 if RESULT < -0.4636477 then goto TestFailed -1370 print "*** TEST #3 PASSED ***" -1400 rem ------------------------------------------ -1420 X = 1 -1430 RESULT = ATN( X ) -1440 print "The arctangent value of "; X; " is"; RESULT -1450 if RESULT < 0.7853981 then goto TestFailed -1460 if RESULT > 0.7853983 then goto TestFailed -1470 print "*** TEST #4 PASSED ***" -1500 rem ------------------------------------------ -1520 X = -1 -1530 RESULT = ATN( X ) -1540 print "The arctangent value of "; X; " is"; RESULT -1550 if RESULT > -0.7853981 then goto TestFailed -1560 if RESULT < -0.7853983 then goto TestFailed -1570 print "*** TEST #5 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E006.run b/bwbtest/NBS2X/E006.run deleted file mode 100644 index 441b4a4..0000000 --- a/bwbtest/NBS2X/E006.run +++ /dev/null @@ -1,11 +0,0 @@ -The arctangent value of 0 is 0 -*** TEST #1 PASSED *** -The arctangent value of .5 is .463648 -*** TEST #2 PASSED *** -The arctangent value of -.5 is-.463648 -*** TEST #3 PASSED *** -The arctangent value of 1 is .785398 -*** TEST #4 PASSED *** -The arctangent value of -1 is-.785398 -*** TEST #5 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E007.BAS b/bwbtest/NBS2X/E007.BAS deleted file mode 100644 index 6b02b34..0000000 --- a/bwbtest/NBS2X/E007.BAS +++ /dev/null @@ -1,27 +0,0 @@ -0100 rem ------------------------------------------ -0110 rem Filename: case1.bas -0120 rem Purpose: Verify CASE IF -0130 rem ------------------------------------------ -1000 let correct = 0 -1100 let x = 1 -1110 select case x -1120 case if < 0 -1130 print x; "is negative" -1140 case if > 0 -1150 print x; "is positive" -let correct = 1 -1160 case else -1170 print x; "is zero" -1180 end select -1190 if correct <> 1 then goto TestFailed -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E007.run b/bwbtest/NBS2X/E007.run deleted file mode 100644 index b4ab2a0..0000000 --- a/bwbtest/NBS2X/E007.run +++ /dev/null @@ -1,2 +0,0 @@ - 1 is positive -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E008.BAS b/bwbtest/NBS2X/E008.BAS deleted file mode 100644 index d94fca4..0000000 --- a/bwbtest/NBS2X/E008.BAS +++ /dev/null @@ -1,27 +0,0 @@ -0100 rem ------------------------------------------ -0110 rem Filename: case2.bas -0120 rem Purpose: Verify CASE IS -0130 rem ------------------------------------------ -1000 let correct = 0 -1100 let x = 1 -1110 select case x -1120 case is < 0 -1130 print x; "is negative" -1140 case is > 0 -1150 print x; "is positive" -let correct = 1 -1160 case else -1170 print x; "is zero" -1180 end select -1190 if correct <> 1 then goto TestFailed -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E008.run b/bwbtest/NBS2X/E008.run deleted file mode 100644 index b4ab2a0..0000000 --- a/bwbtest/NBS2X/E008.run +++ /dev/null @@ -1,2 +0,0 @@ - 1 is positive -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E009.BAS b/bwbtest/NBS2X/E009.BAS deleted file mode 100644 index 44b3c46..0000000 --- a/bwbtest/NBS2X/E009.BAS +++ /dev/null @@ -1,67 +0,0 @@ -0100 rem ------------------------------------------ -0110 rem Filename: case3.bas -0120 rem Purpose: Verify CASE TO -0130 rem ------------------------------------------ - -Sub Main - Print "SelCase.bas -- test SELECT CASE statement" - rem Input "Enter a number"; d - for d = -11 to 11 step 1 - - print "d="; d - - Select Case d - - Case 3 to 5 - print "In Case 3 to 5" - if d < 3 then goto TestFailed - if d > 5 then goto TestFailed - Print "The number is between 3 and 5." - - Case 6 - print "In Case 6" - if d <> 6 then goto TestFailed - Print "The number you entered is 6." - - Case 7 to 9 - print "In Case 7 to 9" - if d < 7 then goto TestFailed - if d > 9 then goto TestFailed - Print "The number is between 7 and 9." - - Case If > 10 - print "In Case If > 10" - if d <= 10 then goto TestFailed - Print "The number is greater than 10" - - Case If < 0 - print "In Case If < 0" - if d >= 0 then goto TestFailed - Print "The number is less than 0" - - Case Else - print "In Case Else" - if d <> 0 and d <> 1 and d <> 2 and d <> 10 then goto TestFailed - Print "The number is 0, 1, 2 or 10." - - End Select - - next d - -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 quit - -End Sub -CALL MAIN -PRINT "*** SUB MAIN() was not executed ***" -STOP -END diff --git a/bwbtest/NBS2X/E009.run b/bwbtest/NBS2X/E009.run deleted file mode 100644 index 36df166..0000000 --- a/bwbtest/NBS2X/E009.run +++ /dev/null @@ -1,72 +0,0 @@ -SelCase.bas -- test SELECT CASE statement -d=-11 -In Case If < 0 -The number is less than 0 -d=-10 -In Case If < 0 -The number is less than 0 -d=-9 -In Case If < 0 -The number is less than 0 -d=-8 -In Case If < 0 -The number is less than 0 -d=-7 -In Case If < 0 -The number is less than 0 -d=-6 -In Case If < 0 -The number is less than 0 -d=-5 -In Case If < 0 -The number is less than 0 -d=-4 -In Case If < 0 -The number is less than 0 -d=-3 -In Case If < 0 -The number is less than 0 -d=-2 -In Case If < 0 -The number is less than 0 -d=-1 -In Case If < 0 -The number is less than 0 -d= 0 -In Case Else -The number is 0, 1, 2 or 10. -d= 1 -In Case Else -The number is 0, 1, 2 or 10. -d= 2 -In Case Else -The number is 0, 1, 2 or 10. -d= 3 -In Case 3 to 5 -The number is between 3 and 5. -d= 4 -In Case 3 to 5 -The number is between 3 and 5. -d= 5 -In Case 3 to 5 -The number is between 3 and 5. -d= 6 -In Case 6 -The number you entered is 6. -d= 7 -In Case 7 to 9 -The number is between 7 and 9. -d= 8 -In Case 7 to 9 -The number is between 7 and 9. -d= 9 -In Case 7 to 9 -The number is between 7 and 9. -d= 10 -In Case Else -The number is 0, 1, 2 or 10. -d= 11 -In Case If > 10 -The number is greater than 10 -*** ALL TESTS PASSED *** - diff --git a/bwbtest/NBS2X/E010.BAS b/bwbtest/NBS2X/E010.BAS deleted file mode 100644 index 6e0b07e..0000000 --- a/bwbtest/NBS2X/E010.BAS +++ /dev/null @@ -1,23 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: cdbl1.bas -1020 rem Purpose: Verify CDBL() -1100 rem ------------------------------------------ -1110 I = 0 -1120 for X = -100.74 to +100.92 step 1.2345 -1130 I = I + 1 -1140 RESULT = CDBL( X ) -1150 print "The CDBL value of "; X; " is"; RESULT -1160 if RESULT <> X then goto TestFailed -1170 print "*** TEST #"; I; " PASSED ***" -1180 next X -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E010.run b/bwbtest/NBS2X/E010.run deleted file mode 100644 index 846e366..0000000 --- a/bwbtest/NBS2X/E010.run +++ /dev/null @@ -1,329 +0,0 @@ -The CDBL value of -100.74 is-100.74 -*** TEST # 1 PASSED *** -The CDBL value of -99.5055 is-99.5055 -*** TEST # 2 PASSED *** -The CDBL value of -98.271 is-98.271 -*** TEST # 3 PASSED *** -The CDBL value of -97.0365 is-97.0365 -*** TEST # 4 PASSED *** -The CDBL value of -95.802 is-95.802 -*** TEST # 5 PASSED *** -The CDBL value of -94.5675 is-94.5675 -*** TEST # 6 PASSED *** -The CDBL value of -93.333 is-93.333 -*** TEST # 7 PASSED *** -The CDBL value of -92.0985 is-92.0985 -*** TEST # 8 PASSED *** -The CDBL value of -90.864 is-90.864 -*** TEST # 9 PASSED *** -The CDBL value of -89.6295 is-89.6295 -*** TEST # 10 PASSED *** -The CDBL value of -88.395 is-88.395 -*** TEST # 11 PASSED *** -The CDBL value of -87.1605 is-87.1605 -*** TEST # 12 PASSED *** -The CDBL value of -85.926 is-85.926 -*** TEST # 13 PASSED *** -The CDBL value of -84.6915 is-84.6915 -*** TEST # 14 PASSED *** -The CDBL value of -83.457 is-83.457 -*** TEST # 15 PASSED *** -The CDBL value of -82.2225 is-82.2225 -*** TEST # 16 PASSED *** -The CDBL value of -80.988 is-80.988 -*** TEST # 17 PASSED *** -The CDBL value of -79.7535 is-79.7535 -*** TEST # 18 PASSED *** -The CDBL value of -78.519 is-78.519 -*** TEST # 19 PASSED *** -The CDBL value of -77.2845 is-77.2845 -*** TEST # 20 PASSED *** -The CDBL value of -76.05 is-76.05 -*** TEST # 21 PASSED *** -The CDBL value of -74.8155 is-74.8155 -*** TEST # 22 PASSED *** -The CDBL value of -73.581 is-73.581 -*** TEST # 23 PASSED *** -The CDBL value of -72.3465 is-72.3465 -*** TEST # 24 PASSED *** -The CDBL value of -71.112 is-71.112 -*** TEST # 25 PASSED *** -The CDBL value of -69.8775 is-69.8775 -*** TEST # 26 PASSED *** -The CDBL value of -68.643 is-68.643 -*** TEST # 27 PASSED *** -The CDBL value of -67.4085 is-67.4085 -*** TEST # 28 PASSED *** -The CDBL value of -66.174 is-66.174 -*** TEST # 29 PASSED *** -The CDBL value of -64.9395 is-64.9395 -*** TEST # 30 PASSED *** -The CDBL value of -63.705 is-63.705 -*** TEST # 31 PASSED *** -The CDBL value of -62.4705 is-62.4705 -*** TEST # 32 PASSED *** -The CDBL value of -61.236 is-61.236 -*** TEST # 33 PASSED *** -The CDBL value of -60.0015 is-60.0015 -*** TEST # 34 PASSED *** -The CDBL value of -58.767 is-58.767 -*** TEST # 35 PASSED *** -The CDBL value of -57.5325 is-57.5325 -*** TEST # 36 PASSED *** -The CDBL value of -56.298 is-56.298 -*** TEST # 37 PASSED *** -The CDBL value of -55.0635 is-55.0635 -*** TEST # 38 PASSED *** -The CDBL value of -53.829 is-53.829 -*** TEST # 39 PASSED *** -The CDBL value of -52.5945 is-52.5945 -*** TEST # 40 PASSED *** -The CDBL value of -51.36 is-51.36 -*** TEST # 41 PASSED *** -The CDBL value of -50.1255 is-50.1255 -*** TEST # 42 PASSED *** -The CDBL value of -48.891 is-48.891 -*** TEST # 43 PASSED *** -The CDBL value of -47.6565 is-47.6565 -*** TEST # 44 PASSED *** -The CDBL value of -46.422 is-46.422 -*** TEST # 45 PASSED *** -The CDBL value of -45.1875 is-45.1875 -*** TEST # 46 PASSED *** -The CDBL value of -43.953 is-43.953 -*** TEST # 47 PASSED *** -The CDBL value of -42.7185 is-42.7185 -*** TEST # 48 PASSED *** -The CDBL value of -41.484 is-41.484 -*** TEST # 49 PASSED *** -The CDBL value of -40.2495 is-40.2495 -*** TEST # 50 PASSED *** -The CDBL value of -39.015 is-39.015 -*** TEST # 51 PASSED *** -The CDBL value of -37.7805 is-37.7805 -*** TEST # 52 PASSED *** -The CDBL value of -36.546 is-36.546 -*** TEST # 53 PASSED *** -The CDBL value of -35.3115 is-35.3115 -*** TEST # 54 PASSED *** -The CDBL value of -34.077 is-34.077 -*** TEST # 55 PASSED *** -The CDBL value of -32.8425 is-32.8425 -*** TEST # 56 PASSED *** -The CDBL value of -31.608 is-31.608 -*** TEST # 57 PASSED *** -The CDBL value of -30.3735 is-30.3735 -*** TEST # 58 PASSED *** -The CDBL value of -29.139 is-29.139 -*** TEST # 59 PASSED *** -The CDBL value of -27.9045 is-27.9045 -*** TEST # 60 PASSED *** -The CDBL value of -26.67 is-26.67 -*** TEST # 61 PASSED *** -The CDBL value of -25.4355 is-25.4355 -*** TEST # 62 PASSED *** -The CDBL value of -24.201 is-24.201 -*** TEST # 63 PASSED *** -The CDBL value of -22.9665 is-22.9665 -*** TEST # 64 PASSED *** -The CDBL value of -21.732 is-21.732 -*** TEST # 65 PASSED *** -The CDBL value of -20.4975 is-20.4975 -*** TEST # 66 PASSED *** -The CDBL value of -19.263 is-19.263 -*** TEST # 67 PASSED *** -The CDBL value of -18.0285 is-18.0285 -*** TEST # 68 PASSED *** -The CDBL value of -16.794 is-16.794 -*** TEST # 69 PASSED *** -The CDBL value of -15.5595 is-15.5595 -*** TEST # 70 PASSED *** -The CDBL value of -14.325 is-14.325 -*** TEST # 71 PASSED *** -The CDBL value of -13.0905 is-13.0905 -*** TEST # 72 PASSED *** -The CDBL value of -11.856 is-11.856 -*** TEST # 73 PASSED *** -The CDBL value of -10.6215 is-10.6215 -*** TEST # 74 PASSED *** -The CDBL value of -9.387 is-9.387 -*** TEST # 75 PASSED *** -The CDBL value of -8.1525 is-8.1525 -*** TEST # 76 PASSED *** -The CDBL value of -6.918 is-6.918 -*** TEST # 77 PASSED *** -The CDBL value of -5.6835 is-5.6835 -*** TEST # 78 PASSED *** -The CDBL value of -4.449 is-4.449 -*** TEST # 79 PASSED *** -The CDBL value of -3.2145 is-3.2145 -*** TEST # 80 PASSED *** -The CDBL value of -1.98 is-1.98 -*** TEST # 81 PASSED *** -The CDBL value of -.7455 is-.7455 -*** TEST # 82 PASSED *** -The CDBL value of .489 is .489 -*** TEST # 83 PASSED *** -The CDBL value of 1.7235 is 1.7235 -*** TEST # 84 PASSED *** -The CDBL value of 2.958 is 2.958 -*** TEST # 85 PASSED *** -The CDBL value of 4.1925 is 4.1925 -*** TEST # 86 PASSED *** -The CDBL value of 5.427 is 5.427 -*** TEST # 87 PASSED *** -The CDBL value of 6.6615 is 6.6615 -*** TEST # 88 PASSED *** -The CDBL value of 7.896 is 7.896 -*** TEST # 89 PASSED *** -The CDBL value of 9.1305 is 9.1305 -*** TEST # 90 PASSED *** -The CDBL value of 10.365 is 10.365 -*** TEST # 91 PASSED *** -The CDBL value of 11.5995 is 11.5995 -*** TEST # 92 PASSED *** -The CDBL value of 12.834 is 12.834 -*** TEST # 93 PASSED *** -The CDBL value of 14.0685 is 14.0685 -*** TEST # 94 PASSED *** -The CDBL value of 15.303 is 15.303 -*** TEST # 95 PASSED *** -The CDBL value of 16.5375 is 16.5375 -*** TEST # 96 PASSED *** -The CDBL value of 17.772 is 17.772 -*** TEST # 97 PASSED *** -The CDBL value of 19.0065 is 19.0065 -*** TEST # 98 PASSED *** -The CDBL value of 20.241 is 20.241 -*** TEST # 99 PASSED *** -The CDBL value of 21.4755 is 21.4755 -*** TEST # 100 PASSED *** -The CDBL value of 22.71 is 22.71 -*** TEST # 101 PASSED *** -The CDBL value of 23.9445 is 23.9445 -*** TEST # 102 PASSED *** -The CDBL value of 25.179 is 25.179 -*** TEST # 103 PASSED *** -The CDBL value of 26.4135 is 26.4135 -*** TEST # 104 PASSED *** -The CDBL value of 27.648 is 27.648 -*** TEST # 105 PASSED *** -The CDBL value of 28.8825 is 28.8825 -*** TEST # 106 PASSED *** -The CDBL value of 30.117 is 30.117 -*** TEST # 107 PASSED *** -The CDBL value of 31.3515 is 31.3515 -*** TEST # 108 PASSED *** -The CDBL value of 32.586 is 32.586 -*** TEST # 109 PASSED *** -The CDBL value of 33.8205 is 33.8205 -*** TEST # 110 PASSED *** -The CDBL value of 35.055 is 35.055 -*** TEST # 111 PASSED *** -The CDBL value of 36.2895 is 36.2895 -*** TEST # 112 PASSED *** -The CDBL value of 37.524 is 37.524 -*** TEST # 113 PASSED *** -The CDBL value of 38.7585 is 38.7585 -*** TEST # 114 PASSED *** -The CDBL value of 39.993 is 39.993 -*** TEST # 115 PASSED *** -The CDBL value of 41.2275 is 41.2275 -*** TEST # 116 PASSED *** -The CDBL value of 42.462 is 42.462 -*** TEST # 117 PASSED *** -The CDBL value of 43.6965 is 43.6965 -*** TEST # 118 PASSED *** -The CDBL value of 44.931 is 44.931 -*** TEST # 119 PASSED *** -The CDBL value of 46.1655 is 46.1655 -*** TEST # 120 PASSED *** -The CDBL value of 47.4 is 47.4 -*** TEST # 121 PASSED *** -The CDBL value of 48.6345 is 48.6345 -*** TEST # 122 PASSED *** -The CDBL value of 49.869 is 49.869 -*** TEST # 123 PASSED *** -The CDBL value of 51.1035 is 51.1035 -*** TEST # 124 PASSED *** -The CDBL value of 52.338 is 52.338 -*** TEST # 125 PASSED *** -The CDBL value of 53.5725 is 53.5725 -*** TEST # 126 PASSED *** -The CDBL value of 54.807 is 54.807 -*** TEST # 127 PASSED *** -The CDBL value of 56.0415 is 56.0415 -*** TEST # 128 PASSED *** -The CDBL value of 57.276 is 57.276 -*** TEST # 129 PASSED *** -The CDBL value of 58.5105 is 58.5105 -*** TEST # 130 PASSED *** -The CDBL value of 59.745 is 59.745 -*** TEST # 131 PASSED *** -The CDBL value of 60.9795 is 60.9795 -*** TEST # 132 PASSED *** -The CDBL value of 62.214 is 62.214 -*** TEST # 133 PASSED *** -The CDBL value of 63.4485 is 63.4485 -*** TEST # 134 PASSED *** -The CDBL value of 64.683 is 64.683 -*** TEST # 135 PASSED *** -The CDBL value of 65.9175 is 65.9175 -*** TEST # 136 PASSED *** -The CDBL value of 67.152 is 67.152 -*** TEST # 137 PASSED *** -The CDBL value of 68.3865 is 68.3865 -*** TEST # 138 PASSED *** -The CDBL value of 69.621 is 69.621 -*** TEST # 139 PASSED *** -The CDBL value of 70.8555 is 70.8555 -*** TEST # 140 PASSED *** -The CDBL value of 72.09 is 72.09 -*** TEST # 141 PASSED *** -The CDBL value of 73.3245 is 73.3245 -*** TEST # 142 PASSED *** -The CDBL value of 74.559 is 74.559 -*** TEST # 143 PASSED *** -The CDBL value of 75.7935 is 75.7935 -*** TEST # 144 PASSED *** -The CDBL value of 77.028 is 77.028 -*** TEST # 145 PASSED *** -The CDBL value of 78.2625 is 78.2625 -*** TEST # 146 PASSED *** -The CDBL value of 79.497 is 79.497 -*** TEST # 147 PASSED *** -The CDBL value of 80.7315 is 80.7315 -*** TEST # 148 PASSED *** -The CDBL value of 81.966 is 81.966 -*** TEST # 149 PASSED *** -The CDBL value of 83.2005 is 83.2005 -*** TEST # 150 PASSED *** -The CDBL value of 84.435 is 84.435 -*** TEST # 151 PASSED *** -The CDBL value of 85.6695 is 85.6695 -*** TEST # 152 PASSED *** -The CDBL value of 86.904 is 86.904 -*** TEST # 153 PASSED *** -The CDBL value of 88.1385 is 88.1385 -*** TEST # 154 PASSED *** -The CDBL value of 89.373 is 89.373 -*** TEST # 155 PASSED *** -The CDBL value of 90.6075 is 90.6075 -*** TEST # 156 PASSED *** -The CDBL value of 91.842 is 91.842 -*** TEST # 157 PASSED *** -The CDBL value of 93.0765 is 93.0765 -*** TEST # 158 PASSED *** -The CDBL value of 94.311 is 94.311 -*** TEST # 159 PASSED *** -The CDBL value of 95.5455 is 95.5455 -*** TEST # 160 PASSED *** -The CDBL value of 96.78 is 96.78 -*** TEST # 161 PASSED *** -The CDBL value of 98.0145 is 98.0145 -*** TEST # 162 PASSED *** -The CDBL value of 99.249 is 99.249 -*** TEST # 163 PASSED *** -The CDBL value of 100.483 is 100.483 -*** TEST # 164 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E011.BAS b/bwbtest/NBS2X/E011.BAS deleted file mode 100644 index 8935ab9..0000000 --- a/bwbtest/NBS2X/E011.BAS +++ /dev/null @@ -1,33 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: ceil1.bas -00120 REM PURPOSE: Verify CEIL() -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 15th, 2014 -00150 REM ---------------------------------------------------- -01000 REM ---------------------------------------------------- -01010 REM TEST POSITIVE VALUE -01020 REM ---------------------------------------------------- -01100 let a = 2.1 -01110 let c = ceil( a ) -01120 print c -01130 if c <> 3 then goto TestFailed -01140 print "*** TEST #1 PASSED ***" -02000 REM ---------------------------------------------------- -02010 REM TEST NEGATIVE VALUE -02020 REM ---------------------------------------------------- -02100 let a = -2.1 -02110 let c = ceil( a ) -02120 print c -02130 if c <> -2 then goto TestFailed -02140 print "*** TEST #2 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E011.run b/bwbtest/NBS2X/E011.run deleted file mode 100644 index 13f2f4c..0000000 --- a/bwbtest/NBS2X/E011.run +++ /dev/null @@ -1,5 +0,0 @@ - 3 -*** TEST #1 PASSED *** --2 -*** TEST #2 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E012.BAS b/bwbtest/NBS2X/E012.BAS deleted file mode 100644 index 65c74dc..0000000 --- a/bwbtest/NBS2X/E012.BAS +++ /dev/null @@ -1,23 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: chr1.bas -1020 rem Purpose: Verify CHR() -1100 rem ------------------------------------------ -1110 let R$ = "" -1120 for I = 0 to 255 -1130 let A$ = CHR$( I ) -1140 let B = ASC( A$ ) -1150 if B <> I then goto TestFailed -1160 print "*** TEST #"; I ; " PASSED ***" -1180 next I -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end - diff --git a/bwbtest/NBS2X/E012.run b/bwbtest/NBS2X/E012.run deleted file mode 100644 index 7677bcd..0000000 --- a/bwbtest/NBS2X/E012.run +++ /dev/null @@ -1,257 +0,0 @@ -*** TEST # 0 PASSED *** -*** TEST # 1 PASSED *** -*** TEST # 2 PASSED *** -*** TEST # 3 PASSED *** -*** TEST # 4 PASSED *** -*** TEST # 5 PASSED *** -*** TEST # 6 PASSED *** -*** TEST # 7 PASSED *** -*** TEST # 8 PASSED *** -*** TEST # 9 PASSED *** -*** TEST # 10 PASSED *** -*** TEST # 11 PASSED *** -*** TEST # 12 PASSED *** -*** TEST # 13 PASSED *** -*** TEST # 14 PASSED *** -*** TEST # 15 PASSED *** -*** TEST # 16 PASSED *** -*** TEST # 17 PASSED *** -*** TEST # 18 PASSED *** -*** TEST # 19 PASSED *** -*** TEST # 20 PASSED *** -*** TEST # 21 PASSED *** -*** TEST # 22 PASSED *** -*** TEST # 23 PASSED *** -*** TEST # 24 PASSED *** -*** TEST # 25 PASSED *** -*** TEST # 26 PASSED *** -*** TEST # 27 PASSED *** -*** TEST # 28 PASSED *** -*** TEST # 29 PASSED *** -*** TEST # 30 PASSED *** -*** TEST # 31 PASSED *** -*** TEST # 32 PASSED *** -*** TEST # 33 PASSED *** -*** TEST # 34 PASSED *** -*** TEST # 35 PASSED *** -*** TEST # 36 PASSED *** -*** TEST # 37 PASSED *** -*** TEST # 38 PASSED *** -*** TEST # 39 PASSED *** -*** TEST # 40 PASSED *** -*** TEST # 41 PASSED *** -*** TEST # 42 PASSED *** -*** TEST # 43 PASSED *** -*** TEST # 44 PASSED *** -*** TEST # 45 PASSED *** -*** TEST # 46 PASSED *** -*** TEST # 47 PASSED *** -*** TEST # 48 PASSED *** -*** TEST # 49 PASSED *** -*** TEST # 50 PASSED *** -*** TEST # 51 PASSED *** -*** TEST # 52 PASSED *** -*** TEST # 53 PASSED *** -*** TEST # 54 PASSED *** -*** TEST # 55 PASSED *** -*** TEST # 56 PASSED *** -*** TEST # 57 PASSED *** -*** TEST # 58 PASSED *** -*** TEST # 59 PASSED *** -*** TEST # 60 PASSED *** -*** TEST # 61 PASSED *** -*** TEST # 62 PASSED *** -*** TEST # 63 PASSED *** -*** TEST # 64 PASSED *** -*** TEST # 65 PASSED *** -*** TEST # 66 PASSED *** -*** TEST # 67 PASSED *** -*** TEST # 68 PASSED *** -*** TEST # 69 PASSED *** -*** TEST # 70 PASSED *** -*** TEST # 71 PASSED *** -*** TEST # 72 PASSED *** -*** TEST # 73 PASSED *** -*** TEST # 74 PASSED *** -*** TEST # 75 PASSED *** -*** TEST # 76 PASSED *** -*** TEST # 77 PASSED *** -*** TEST # 78 PASSED *** -*** TEST # 79 PASSED *** -*** TEST # 80 PASSED *** -*** TEST # 81 PASSED *** -*** TEST # 82 PASSED *** -*** TEST # 83 PASSED *** -*** TEST # 84 PASSED *** -*** TEST # 85 PASSED *** -*** TEST # 86 PASSED *** -*** TEST # 87 PASSED *** -*** TEST # 88 PASSED *** -*** TEST # 89 PASSED *** -*** TEST # 90 PASSED *** -*** TEST # 91 PASSED *** -*** TEST # 92 PASSED *** -*** TEST # 93 PASSED *** -*** TEST # 94 PASSED *** -*** TEST # 95 PASSED *** -*** TEST # 96 PASSED *** -*** TEST # 97 PASSED *** -*** TEST # 98 PASSED *** -*** TEST # 99 PASSED *** -*** TEST # 100 PASSED *** -*** TEST # 101 PASSED *** -*** TEST # 102 PASSED *** -*** TEST # 103 PASSED *** -*** TEST # 104 PASSED *** -*** TEST # 105 PASSED *** -*** TEST # 106 PASSED *** -*** TEST # 107 PASSED *** -*** TEST # 108 PASSED *** -*** TEST # 109 PASSED *** -*** TEST # 110 PASSED *** -*** TEST # 111 PASSED *** -*** TEST # 112 PASSED *** -*** TEST # 113 PASSED *** -*** TEST # 114 PASSED *** -*** TEST # 115 PASSED *** -*** TEST # 116 PASSED *** -*** TEST # 117 PASSED *** -*** TEST # 118 PASSED *** -*** TEST # 119 PASSED *** -*** TEST # 120 PASSED *** -*** TEST # 121 PASSED *** -*** TEST # 122 PASSED *** -*** TEST # 123 PASSED *** -*** TEST # 124 PASSED *** -*** TEST # 125 PASSED *** -*** TEST # 126 PASSED *** -*** TEST # 127 PASSED *** -*** TEST # 128 PASSED *** -*** TEST # 129 PASSED *** -*** TEST # 130 PASSED *** -*** TEST # 131 PASSED *** -*** TEST # 132 PASSED *** -*** TEST # 133 PASSED *** -*** TEST # 134 PASSED *** -*** TEST # 135 PASSED *** -*** TEST # 136 PASSED *** -*** TEST # 137 PASSED *** -*** TEST # 138 PASSED *** -*** TEST # 139 PASSED *** -*** TEST # 140 PASSED *** -*** TEST # 141 PASSED *** -*** TEST # 142 PASSED *** -*** TEST # 143 PASSED *** -*** TEST # 144 PASSED *** -*** TEST # 145 PASSED *** -*** TEST # 146 PASSED *** -*** TEST # 147 PASSED *** -*** TEST # 148 PASSED *** -*** TEST # 149 PASSED *** -*** TEST # 150 PASSED *** -*** TEST # 151 PASSED *** -*** TEST # 152 PASSED *** -*** TEST # 153 PASSED *** -*** TEST # 154 PASSED *** -*** TEST # 155 PASSED *** -*** TEST # 156 PASSED *** -*** TEST # 157 PASSED *** -*** TEST # 158 PASSED *** -*** TEST # 159 PASSED *** -*** TEST # 160 PASSED *** -*** TEST # 161 PASSED *** -*** TEST # 162 PASSED *** -*** TEST # 163 PASSED *** -*** TEST # 164 PASSED *** -*** TEST # 165 PASSED *** -*** TEST # 166 PASSED *** -*** TEST # 167 PASSED *** -*** TEST # 168 PASSED *** -*** TEST # 169 PASSED *** -*** TEST # 170 PASSED *** -*** TEST # 171 PASSED *** -*** TEST # 172 PASSED *** -*** TEST # 173 PASSED *** -*** TEST # 174 PASSED *** -*** TEST # 175 PASSED *** -*** TEST # 176 PASSED *** -*** TEST # 177 PASSED *** -*** TEST # 178 PASSED *** -*** TEST # 179 PASSED *** -*** TEST # 180 PASSED *** -*** TEST # 181 PASSED *** -*** TEST # 182 PASSED *** -*** TEST # 183 PASSED *** -*** TEST # 184 PASSED *** -*** TEST # 185 PASSED *** -*** TEST # 186 PASSED *** -*** TEST # 187 PASSED *** -*** TEST # 188 PASSED *** -*** TEST # 189 PASSED *** -*** TEST # 190 PASSED *** -*** TEST # 191 PASSED *** -*** TEST # 192 PASSED *** -*** TEST # 193 PASSED *** -*** TEST # 194 PASSED *** -*** TEST # 195 PASSED *** -*** TEST # 196 PASSED *** -*** TEST # 197 PASSED *** -*** TEST # 198 PASSED *** -*** TEST # 199 PASSED *** -*** TEST # 200 PASSED *** -*** TEST # 201 PASSED *** -*** TEST # 202 PASSED *** -*** TEST # 203 PASSED *** -*** TEST # 204 PASSED *** -*** TEST # 205 PASSED *** -*** TEST # 206 PASSED *** -*** TEST # 207 PASSED *** -*** TEST # 208 PASSED *** -*** TEST # 209 PASSED *** -*** TEST # 210 PASSED *** -*** TEST # 211 PASSED *** -*** TEST # 212 PASSED *** -*** TEST # 213 PASSED *** -*** TEST # 214 PASSED *** -*** TEST # 215 PASSED *** -*** TEST # 216 PASSED *** -*** TEST # 217 PASSED *** -*** TEST # 218 PASSED *** -*** TEST # 219 PASSED *** -*** TEST # 220 PASSED *** -*** TEST # 221 PASSED *** -*** TEST # 222 PASSED *** -*** TEST # 223 PASSED *** -*** TEST # 224 PASSED *** -*** TEST # 225 PASSED *** -*** TEST # 226 PASSED *** -*** TEST # 227 PASSED *** -*** TEST # 228 PASSED *** -*** TEST # 229 PASSED *** -*** TEST # 230 PASSED *** -*** TEST # 231 PASSED *** -*** TEST # 232 PASSED *** -*** TEST # 233 PASSED *** -*** TEST # 234 PASSED *** -*** TEST # 235 PASSED *** -*** TEST # 236 PASSED *** -*** TEST # 237 PASSED *** -*** TEST # 238 PASSED *** -*** TEST # 239 PASSED *** -*** TEST # 240 PASSED *** -*** TEST # 241 PASSED *** -*** TEST # 242 PASSED *** -*** TEST # 243 PASSED *** -*** TEST # 244 PASSED *** -*** TEST # 245 PASSED *** -*** TEST # 246 PASSED *** -*** TEST # 247 PASSED *** -*** TEST # 248 PASSED *** -*** TEST # 249 PASSED *** -*** TEST # 250 PASSED *** -*** TEST # 251 PASSED *** -*** TEST # 252 PASSED *** -*** TEST # 253 PASSED *** -*** TEST # 254 PASSED *** -*** TEST # 255 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E013.BAS b/bwbtest/NBS2X/E013.BAS deleted file mode 100644 index de5b8c9..0000000 --- a/bwbtest/NBS2X/E013.BAS +++ /dev/null @@ -1,26 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: cint1.bas -1020 rem Purpose: Verify CINT() -1100 rem ------------------------------------------ -1120 X = -1.23456789 -1130 RESULT = CINT( X ) -1140 print "The integer value of "; X; " is"; RESULT -1150 if RESULT <> -1 then goto TestFailed -1160 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 X = 1.23456789 -1230 RESULT = CINT( X ) -1240 print "The integer value of "; X; " is"; RESULT -1250 if RESULT <> 1 then goto TestFailed -1260 print "*** TEST #2 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E013.run b/bwbtest/NBS2X/E013.run deleted file mode 100644 index 599d6a4..0000000 --- a/bwbtest/NBS2X/E013.run +++ /dev/null @@ -1,5 +0,0 @@ -The integer value of -1.23457 is-1 -*** TEST #1 PASSED *** -The integer value of 1.23457 is 1 -*** TEST #2 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E014.BAS b/bwbtest/NBS2X/E014.BAS deleted file mode 100644 index 6610c4e..0000000 --- a/bwbtest/NBS2X/E014.BAS +++ /dev/null @@ -1,44 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: clear1.bas -1020 rem Purpose: Verify CLEAR -1030 rem ------------------------------------------ -1100 rem Assign Values -1110 COMMON A, B$ -1120 A = 1.2345 -1130 B$ = "abcdef" -1140 Y = 6.789 -1150 Z$ = "wxyz" -1160 CLEAR -1200 rem Display values -1210 print "The value of A is";A -1220 print "The value of B$ is";B$ -1230 print "The value of Y is";Y -1250 print "The value of Z$ is";Z$ -1300 rem Verify values -1310 if A <> 0 then -1311 print "A is not zero" -1312 goto TestFailed -1313 end if -1320 if B$ <> "" then -1321 print "B$ is not empty" -1322 goto TestFailed -1323 end if -1330 if Y <> 0 then -1331 print "Y is not zero" -1332 goto TestFailed -1333 end if -1340 if Z$ <> "" then -1341 print "Z$ is not empty" -1342 goto TestFailed -1343 end if -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E014.run b/bwbtest/NBS2X/E014.run deleted file mode 100644 index 396873a..0000000 --- a/bwbtest/NBS2X/E014.run +++ /dev/null @@ -1,5 +0,0 @@ -The value of A is 0 -The value of B$ is -The value of Y is 0 -The value of Z$ is -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E015.BAS b/bwbtest/NBS2X/E015.BAS deleted file mode 100644 index c844fc6..0000000 --- a/bwbtest/NBS2X/E015.BAS +++ /dev/null @@ -1,49 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: cos1.bas -1020 rem Purpose: Verify COS() -1100 rem ------------------------------------------ -1120 X = 0 -1130 RESULT = COS( X ) -1140 print "The cosine value of "; X; " is"; RESULT -1150 if RESULT < 1 then goto TestFailed -1160 if RESULT > 1 then goto TestFailed -1170 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 X = 0.5 -1230 RESULT = COS( X ) -1240 print "The cosine value of "; X; " is"; RESULT -1250 if RESULT < 0.8775825 then goto TestFailed -1260 if RESULT > 0.8775827 then goto TestFailed -1270 print "*** TEST #2 PASSED ***" -1300 rem ------------------------------------------ -1320 X = -0.5 -1330 RESULT = COS( X ) -1340 print "The cosine value of "; X; " is"; RESULT -1350 if RESULT < 0.8775825 then goto TestFailed -1360 if RESULT > 0.8775827 then goto TestFailed -1370 print "*** TEST #3 PASSED ***" -1400 rem ------------------------------------------ -1420 X = 1 -1430 RESULT = COS( X ) -1440 print "The cosine value of "; X; " is"; RESULT -1450 if RESULT < 0.5403022 then goto TestFailed -1460 if RESULT > 0.5403024 then goto TestFailed -1470 print "*** TEST #4 PASSED ***" -1500 rem ------------------------------------------ -1520 X = -1 -1530 RESULT = COS( X ) -1540 print "The cosine value of "; X; " is"; RESULT -1550 if RESULT < 0.5403022 then goto TestFailed -1560 if RESULT > 0.5403024 then goto TestFailed -1570 print "*** TEST #5 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E015.run b/bwbtest/NBS2X/E015.run deleted file mode 100644 index 465e32a..0000000 --- a/bwbtest/NBS2X/E015.run +++ /dev/null @@ -1,11 +0,0 @@ -The cosine value of 0 is 1 -*** TEST #1 PASSED *** -The cosine value of .5 is .877583 -*** TEST #2 PASSED *** -The cosine value of -.5 is .877583 -*** TEST #3 PASSED *** -The cosine value of 1 is .540302 -*** TEST #4 PASSED *** -The cosine value of -1 is .540302 -*** TEST #5 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E016.BAS b/bwbtest/NBS2X/E016.BAS deleted file mode 100644 index c90a014..0000000 --- a/bwbtest/NBS2X/E016.BAS +++ /dev/null @@ -1,49 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: cosh1.bas -1020 rem Purpose: Verify COSH() -1100 rem ------------------------------------------ -1120 X = 0 -1130 RESULT = COSH( X ) -1140 print "The hyperbolic cosine value of "; X; " is"; RESULT -1150 if RESULT < 1 then goto TestFailed -1160 if RESULT > 1 then goto TestFailed -1170 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 X = 0.5 -1230 RESULT = COSH( X ) -1240 print "The hyperbolic cosine value of "; X; " is"; RESULT -1250 if RESULT < 1.1276259 then goto TestFailed -1260 if RESULT > 1.1276261 then goto TestFailed -1270 print "*** TEST #2 PASSED ***" -1300 rem ------------------------------------------ -1320 X = -0.5 -1330 RESULT = COSH( X ) -1340 print "The hyperbolic cosine value of "; X; " is"; RESULT -1350 if RESULT < 1.1276259 then goto TestFailed -1360 if RESULT > 1.1276261 then goto TestFailed -1370 print "*** TEST #3 PASSED ***" -1400 rem ------------------------------------------ -1420 X = 1 -1430 RESULT = COSH( X ) -1440 print "The hyperbolic cosine value of "; X; " is"; RESULT -1450 if RESULT < 1.5430805 then goto TestFailed -1460 if RESULT > 1.5430807 then goto TestFailed -1470 print "*** TEST #4 PASSED ***" -1500 rem ------------------------------------------ -1520 X = -1 -1530 RESULT = COSH( X ) -1540 print "The hyperbolic cosine value of "; X; " is"; RESULT -1550 if RESULT < 1.5430805 then goto TestFailed -1560 if RESULT > 1.5430807 then goto TestFailed -1570 print "*** TEST #5 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E016.run b/bwbtest/NBS2X/E016.run deleted file mode 100644 index e9d0982..0000000 --- a/bwbtest/NBS2X/E016.run +++ /dev/null @@ -1,11 +0,0 @@ -The hyperbolic cosine value of 0 is 1 -*** TEST #1 PASSED *** -The hyperbolic cosine value of .5 is 1.12763 -*** TEST #2 PASSED *** -The hyperbolic cosine value of -.5 is 1.12763 -*** TEST #3 PASSED *** -The hyperbolic cosine value of 1 is 1.54308 -*** TEST #4 PASSED *** -The hyperbolic cosine value of -1 is 1.54308 -*** TEST #5 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E017.BAS b/bwbtest/NBS2X/E017.BAS deleted file mode 100644 index aac5605..0000000 --- a/bwbtest/NBS2X/E017.BAS +++ /dev/null @@ -1,49 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: cot1.bas -1020 rem Purpose: Verify COT() -1100 rem ------------------------------------------ -1120 X = 0.0001 -1130 RESULT = COT( X ) -1140 print "The cotangent value of "; X; " is"; RESULT -1150 if RESULT < 9999.9999666 then goto TestFailed -1160 if RESULT > 9999.9999668 then goto TestFailed -1170 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 X = 0.5 -1230 RESULT = COT( X ) -1240 print "The cotangent value of "; X; " is"; RESULT -1250 if RESULT < 1.8304876 then goto TestFailed -1260 if RESULT > 1.8304878 then goto TestFailed -1270 print "*** TEST #2 PASSED ***" -1300 rem ------------------------------------------ -1320 X = -0.5 -1330 RESULT = COT( X ) -1340 print "The cotangent value of "; X; " is"; RESULT -1350 if RESULT > -1.8304876 then goto TestFailed -1360 if RESULT < -1.8304878 then goto TestFailed -1370 print "*** TEST #3 PASSED ***" -1400 rem ------------------------------------------ -1420 X = 1 -1430 RESULT = COT( X ) -1440 print "The cotangent value of "; X; " is"; RESULT -1450 if RESULT < 0.6420925 then goto TestFailed -1460 if RESULT > 0.6420927 then goto TestFailed -1470 print "*** TEST #4 PASSED ***" -1500 rem ------------------------------------------ -1520 X = -1 -1530 RESULT = COT( X ) -1540 print "The cotangent value of "; X; " is"; RESULT -1550 if RESULT > -0.6420925 then goto TestFailed -1560 if RESULT < -0.6420927 then goto TestFailed -1570 print "*** TEST #5 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E017.run b/bwbtest/NBS2X/E017.run deleted file mode 100644 index 452f87d..0000000 --- a/bwbtest/NBS2X/E017.run +++ /dev/null @@ -1,11 +0,0 @@ -The cotangent value of .0001 is 10000. -*** TEST #1 PASSED *** -The cotangent value of .5 is 1.83049 -*** TEST #2 PASSED *** -The cotangent value of -.5 is-1.83049 -*** TEST #3 PASSED *** -The cotangent value of 1 is .642093 -*** TEST #4 PASSED *** -The cotangent value of -1 is-.642093 -*** TEST #5 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E018.BAS b/bwbtest/NBS2X/E018.BAS deleted file mode 100644 index 4ca46b0..0000000 --- a/bwbtest/NBS2X/E018.BAS +++ /dev/null @@ -1,49 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: csc1.bas -1020 rem Purpose: Verify CSC() -1100 rem ------------------------------------------ -1120 X = 0.0001 -1130 RESULT = CSC( X ) -1140 print "The cosecant value of "; X; " is"; RESULT -1150 if RESULT < 10000.0000166 then goto TestFailed -1160 if RESULT > 10000.0000168 then goto TestFailed -1170 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 X = 0.5 -1230 RESULT = CSC( X ) -1240 print "The cosecant value of "; X; " is"; RESULT -1250 if RESULT < 2.0858295 then goto TestFailed -1260 if RESULT > 2.0858297 then goto TestFailed -1270 print "*** TEST #2 PASSED ***" -1300 rem ------------------------------------------ -1320 X = -0.5 -1330 RESULT = CSC( X ) -1340 print "The cosecant value of "; X; " is"; RESULT -1350 if RESULT > -2.0858295 then goto TestFailed -1360 if RESULT < -2.0858297 then goto TestFailed -1370 print "*** TEST #3 PASSED ***" -1400 rem ------------------------------------------ -1420 X = 1 -1430 RESULT = CSC( X ) -1440 print "The cosecant value of "; X; " is"; RESULT -1450 if RESULT < 1.1883950 then goto TestFailed -1460 if RESULT > 1.1883952 then goto TestFailed -1470 print "*** TEST #4 PASSED ***" -1500 rem ------------------------------------------ -1520 X = -1 -1530 RESULT = CSC( X ) -1540 print "The cosecant value of "; X; " is"; RESULT -1550 if RESULT > -1.1883950 then goto TestFailed -1560 if RESULT < -1.1883952 then goto TestFailed -1570 print "*** TEST #5 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E018.run b/bwbtest/NBS2X/E018.run deleted file mode 100644 index 190ee53..0000000 --- a/bwbtest/NBS2X/E018.run +++ /dev/null @@ -1,11 +0,0 @@ -The cosecant value of .0001 is 10000. -*** TEST #1 PASSED *** -The cosecant value of .5 is 2.08583 -*** TEST #2 PASSED *** -The cosecant value of -.5 is-2.08583 -*** TEST #3 PASSED *** -The cosecant value of 1 is 1.1884 -*** TEST #4 PASSED *** -The cosecant value of -1 is-1.1884 -*** TEST #5 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E019.BAS b/bwbtest/NBS2X/E019.BAS deleted file mode 100644 index d9dafd6..0000000 --- a/bwbtest/NBS2X/E019.BAS +++ /dev/null @@ -1,23 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: csng1.bas -1020 rem Purpose: Verify CSNG() -1100 rem ------------------------------------------ -1110 I = 0 -1120 for X = -100.74 to +100.92 step 1.2345 -1130 I = I + 1 -1140 RESULT = CSNG( X ) -1150 print "The CSNG value of "; X; " is"; RESULT -1160 if RESULT <> X then goto TestFailed -1170 print "*** TEST #"; I; " PASSED ***" -1180 next X -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E019.run b/bwbtest/NBS2X/E019.run deleted file mode 100644 index 3ff141a..0000000 --- a/bwbtest/NBS2X/E019.run +++ /dev/null @@ -1,329 +0,0 @@ -The CSNG value of -100.74 is-100.74 -*** TEST # 1 PASSED *** -The CSNG value of -99.5055 is-99.5055 -*** TEST # 2 PASSED *** -The CSNG value of -98.271 is-98.271 -*** TEST # 3 PASSED *** -The CSNG value of -97.0365 is-97.0365 -*** TEST # 4 PASSED *** -The CSNG value of -95.802 is-95.802 -*** TEST # 5 PASSED *** -The CSNG value of -94.5675 is-94.5675 -*** TEST # 6 PASSED *** -The CSNG value of -93.333 is-93.333 -*** TEST # 7 PASSED *** -The CSNG value of -92.0985 is-92.0985 -*** TEST # 8 PASSED *** -The CSNG value of -90.864 is-90.864 -*** TEST # 9 PASSED *** -The CSNG value of -89.6295 is-89.6295 -*** TEST # 10 PASSED *** -The CSNG value of -88.395 is-88.395 -*** TEST # 11 PASSED *** -The CSNG value of -87.1605 is-87.1605 -*** TEST # 12 PASSED *** -The CSNG value of -85.926 is-85.926 -*** TEST # 13 PASSED *** -The CSNG value of -84.6915 is-84.6915 -*** TEST # 14 PASSED *** -The CSNG value of -83.457 is-83.457 -*** TEST # 15 PASSED *** -The CSNG value of -82.2225 is-82.2225 -*** TEST # 16 PASSED *** -The CSNG value of -80.988 is-80.988 -*** TEST # 17 PASSED *** -The CSNG value of -79.7535 is-79.7535 -*** TEST # 18 PASSED *** -The CSNG value of -78.519 is-78.519 -*** TEST # 19 PASSED *** -The CSNG value of -77.2845 is-77.2845 -*** TEST # 20 PASSED *** -The CSNG value of -76.05 is-76.05 -*** TEST # 21 PASSED *** -The CSNG value of -74.8155 is-74.8155 -*** TEST # 22 PASSED *** -The CSNG value of -73.581 is-73.581 -*** TEST # 23 PASSED *** -The CSNG value of -72.3465 is-72.3465 -*** TEST # 24 PASSED *** -The CSNG value of -71.112 is-71.112 -*** TEST # 25 PASSED *** -The CSNG value of -69.8775 is-69.8775 -*** TEST # 26 PASSED *** -The CSNG value of -68.643 is-68.643 -*** TEST # 27 PASSED *** -The CSNG value of -67.4085 is-67.4085 -*** TEST # 28 PASSED *** -The CSNG value of -66.174 is-66.174 -*** TEST # 29 PASSED *** -The CSNG value of -64.9395 is-64.9395 -*** TEST # 30 PASSED *** -The CSNG value of -63.705 is-63.705 -*** TEST # 31 PASSED *** -The CSNG value of -62.4705 is-62.4705 -*** TEST # 32 PASSED *** -The CSNG value of -61.236 is-61.236 -*** TEST # 33 PASSED *** -The CSNG value of -60.0015 is-60.0015 -*** TEST # 34 PASSED *** -The CSNG value of -58.767 is-58.767 -*** TEST # 35 PASSED *** -The CSNG value of -57.5325 is-57.5325 -*** TEST # 36 PASSED *** -The CSNG value of -56.298 is-56.298 -*** TEST # 37 PASSED *** -The CSNG value of -55.0635 is-55.0635 -*** TEST # 38 PASSED *** -The CSNG value of -53.829 is-53.829 -*** TEST # 39 PASSED *** -The CSNG value of -52.5945 is-52.5945 -*** TEST # 40 PASSED *** -The CSNG value of -51.36 is-51.36 -*** TEST # 41 PASSED *** -The CSNG value of -50.1255 is-50.1255 -*** TEST # 42 PASSED *** -The CSNG value of -48.891 is-48.891 -*** TEST # 43 PASSED *** -The CSNG value of -47.6565 is-47.6565 -*** TEST # 44 PASSED *** -The CSNG value of -46.422 is-46.422 -*** TEST # 45 PASSED *** -The CSNG value of -45.1875 is-45.1875 -*** TEST # 46 PASSED *** -The CSNG value of -43.953 is-43.953 -*** TEST # 47 PASSED *** -The CSNG value of -42.7185 is-42.7185 -*** TEST # 48 PASSED *** -The CSNG value of -41.484 is-41.484 -*** TEST # 49 PASSED *** -The CSNG value of -40.2495 is-40.2495 -*** TEST # 50 PASSED *** -The CSNG value of -39.015 is-39.015 -*** TEST # 51 PASSED *** -The CSNG value of -37.7805 is-37.7805 -*** TEST # 52 PASSED *** -The CSNG value of -36.546 is-36.546 -*** TEST # 53 PASSED *** -The CSNG value of -35.3115 is-35.3115 -*** TEST # 54 PASSED *** -The CSNG value of -34.077 is-34.077 -*** TEST # 55 PASSED *** -The CSNG value of -32.8425 is-32.8425 -*** TEST # 56 PASSED *** -The CSNG value of -31.608 is-31.608 -*** TEST # 57 PASSED *** -The CSNG value of -30.3735 is-30.3735 -*** TEST # 58 PASSED *** -The CSNG value of -29.139 is-29.139 -*** TEST # 59 PASSED *** -The CSNG value of -27.9045 is-27.9045 -*** TEST # 60 PASSED *** -The CSNG value of -26.67 is-26.67 -*** TEST # 61 PASSED *** -The CSNG value of -25.4355 is-25.4355 -*** TEST # 62 PASSED *** -The CSNG value of -24.201 is-24.201 -*** TEST # 63 PASSED *** -The CSNG value of -22.9665 is-22.9665 -*** TEST # 64 PASSED *** -The CSNG value of -21.732 is-21.732 -*** TEST # 65 PASSED *** -The CSNG value of -20.4975 is-20.4975 -*** TEST # 66 PASSED *** -The CSNG value of -19.263 is-19.263 -*** TEST # 67 PASSED *** -The CSNG value of -18.0285 is-18.0285 -*** TEST # 68 PASSED *** -The CSNG value of -16.794 is-16.794 -*** TEST # 69 PASSED *** -The CSNG value of -15.5595 is-15.5595 -*** TEST # 70 PASSED *** -The CSNG value of -14.325 is-14.325 -*** TEST # 71 PASSED *** -The CSNG value of -13.0905 is-13.0905 -*** TEST # 72 PASSED *** -The CSNG value of -11.856 is-11.856 -*** TEST # 73 PASSED *** -The CSNG value of -10.6215 is-10.6215 -*** TEST # 74 PASSED *** -The CSNG value of -9.387 is-9.387 -*** TEST # 75 PASSED *** -The CSNG value of -8.1525 is-8.1525 -*** TEST # 76 PASSED *** -The CSNG value of -6.918 is-6.918 -*** TEST # 77 PASSED *** -The CSNG value of -5.6835 is-5.6835 -*** TEST # 78 PASSED *** -The CSNG value of -4.449 is-4.449 -*** TEST # 79 PASSED *** -The CSNG value of -3.2145 is-3.2145 -*** TEST # 80 PASSED *** -The CSNG value of -1.98 is-1.98 -*** TEST # 81 PASSED *** -The CSNG value of -.7455 is-.7455 -*** TEST # 82 PASSED *** -The CSNG value of .489 is .489 -*** TEST # 83 PASSED *** -The CSNG value of 1.7235 is 1.7235 -*** TEST # 84 PASSED *** -The CSNG value of 2.958 is 2.958 -*** TEST # 85 PASSED *** -The CSNG value of 4.1925 is 4.1925 -*** TEST # 86 PASSED *** -The CSNG value of 5.427 is 5.427 -*** TEST # 87 PASSED *** -The CSNG value of 6.6615 is 6.6615 -*** TEST # 88 PASSED *** -The CSNG value of 7.896 is 7.896 -*** TEST # 89 PASSED *** -The CSNG value of 9.1305 is 9.1305 -*** TEST # 90 PASSED *** -The CSNG value of 10.365 is 10.365 -*** TEST # 91 PASSED *** -The CSNG value of 11.5995 is 11.5995 -*** TEST # 92 PASSED *** -The CSNG value of 12.834 is 12.834 -*** TEST # 93 PASSED *** -The CSNG value of 14.0685 is 14.0685 -*** TEST # 94 PASSED *** -The CSNG value of 15.303 is 15.303 -*** TEST # 95 PASSED *** -The CSNG value of 16.5375 is 16.5375 -*** TEST # 96 PASSED *** -The CSNG value of 17.772 is 17.772 -*** TEST # 97 PASSED *** -The CSNG value of 19.0065 is 19.0065 -*** TEST # 98 PASSED *** -The CSNG value of 20.241 is 20.241 -*** TEST # 99 PASSED *** -The CSNG value of 21.4755 is 21.4755 -*** TEST # 100 PASSED *** -The CSNG value of 22.71 is 22.71 -*** TEST # 101 PASSED *** -The CSNG value of 23.9445 is 23.9445 -*** TEST # 102 PASSED *** -The CSNG value of 25.179 is 25.179 -*** TEST # 103 PASSED *** -The CSNG value of 26.4135 is 26.4135 -*** TEST # 104 PASSED *** -The CSNG value of 27.648 is 27.648 -*** TEST # 105 PASSED *** -The CSNG value of 28.8825 is 28.8825 -*** TEST # 106 PASSED *** -The CSNG value of 30.117 is 30.117 -*** TEST # 107 PASSED *** -The CSNG value of 31.3515 is 31.3515 -*** TEST # 108 PASSED *** -The CSNG value of 32.586 is 32.586 -*** TEST # 109 PASSED *** -The CSNG value of 33.8205 is 33.8205 -*** TEST # 110 PASSED *** -The CSNG value of 35.055 is 35.055 -*** TEST # 111 PASSED *** -The CSNG value of 36.2895 is 36.2895 -*** TEST # 112 PASSED *** -The CSNG value of 37.524 is 37.524 -*** TEST # 113 PASSED *** -The CSNG value of 38.7585 is 38.7585 -*** TEST # 114 PASSED *** -The CSNG value of 39.993 is 39.993 -*** TEST # 115 PASSED *** -The CSNG value of 41.2275 is 41.2275 -*** TEST # 116 PASSED *** -The CSNG value of 42.462 is 42.462 -*** TEST # 117 PASSED *** -The CSNG value of 43.6965 is 43.6965 -*** TEST # 118 PASSED *** -The CSNG value of 44.931 is 44.931 -*** TEST # 119 PASSED *** -The CSNG value of 46.1655 is 46.1655 -*** TEST # 120 PASSED *** -The CSNG value of 47.4 is 47.4 -*** TEST # 121 PASSED *** -The CSNG value of 48.6345 is 48.6345 -*** TEST # 122 PASSED *** -The CSNG value of 49.869 is 49.869 -*** TEST # 123 PASSED *** -The CSNG value of 51.1035 is 51.1035 -*** TEST # 124 PASSED *** -The CSNG value of 52.338 is 52.338 -*** TEST # 125 PASSED *** -The CSNG value of 53.5725 is 53.5725 -*** TEST # 126 PASSED *** -The CSNG value of 54.807 is 54.807 -*** TEST # 127 PASSED *** -The CSNG value of 56.0415 is 56.0415 -*** TEST # 128 PASSED *** -The CSNG value of 57.276 is 57.276 -*** TEST # 129 PASSED *** -The CSNG value of 58.5105 is 58.5105 -*** TEST # 130 PASSED *** -The CSNG value of 59.745 is 59.745 -*** TEST # 131 PASSED *** -The CSNG value of 60.9795 is 60.9795 -*** TEST # 132 PASSED *** -The CSNG value of 62.214 is 62.214 -*** TEST # 133 PASSED *** -The CSNG value of 63.4485 is 63.4485 -*** TEST # 134 PASSED *** -The CSNG value of 64.683 is 64.683 -*** TEST # 135 PASSED *** -The CSNG value of 65.9175 is 65.9175 -*** TEST # 136 PASSED *** -The CSNG value of 67.152 is 67.152 -*** TEST # 137 PASSED *** -The CSNG value of 68.3865 is 68.3865 -*** TEST # 138 PASSED *** -The CSNG value of 69.621 is 69.621 -*** TEST # 139 PASSED *** -The CSNG value of 70.8555 is 70.8555 -*** TEST # 140 PASSED *** -The CSNG value of 72.09 is 72.09 -*** TEST # 141 PASSED *** -The CSNG value of 73.3245 is 73.3245 -*** TEST # 142 PASSED *** -The CSNG value of 74.559 is 74.559 -*** TEST # 143 PASSED *** -The CSNG value of 75.7935 is 75.7935 -*** TEST # 144 PASSED *** -The CSNG value of 77.028 is 77.028 -*** TEST # 145 PASSED *** -The CSNG value of 78.2625 is 78.2625 -*** TEST # 146 PASSED *** -The CSNG value of 79.497 is 79.497 -*** TEST # 147 PASSED *** -The CSNG value of 80.7315 is 80.7315 -*** TEST # 148 PASSED *** -The CSNG value of 81.966 is 81.966 -*** TEST # 149 PASSED *** -The CSNG value of 83.2005 is 83.2005 -*** TEST # 150 PASSED *** -The CSNG value of 84.435 is 84.435 -*** TEST # 151 PASSED *** -The CSNG value of 85.6695 is 85.6695 -*** TEST # 152 PASSED *** -The CSNG value of 86.904 is 86.904 -*** TEST # 153 PASSED *** -The CSNG value of 88.1385 is 88.1385 -*** TEST # 154 PASSED *** -The CSNG value of 89.373 is 89.373 -*** TEST # 155 PASSED *** -The CSNG value of 90.6075 is 90.6075 -*** TEST # 156 PASSED *** -The CSNG value of 91.842 is 91.842 -*** TEST # 157 PASSED *** -The CSNG value of 93.0765 is 93.0765 -*** TEST # 158 PASSED *** -The CSNG value of 94.311 is 94.311 -*** TEST # 159 PASSED *** -The CSNG value of 95.5455 is 95.5455 -*** TEST # 160 PASSED *** -The CSNG value of 96.78 is 96.78 -*** TEST # 161 PASSED *** -The CSNG value of 98.0145 is 98.0145 -*** TEST # 162 PASSED *** -The CSNG value of 99.249 is 99.249 -*** TEST # 163 PASSED *** -The CSNG value of 100.483 is 100.483 -*** TEST # 164 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E020.BAS b/bwbtest/NBS2X/E020.BAS deleted file mode 100644 index c50872c..0000000 --- a/bwbtest/NBS2X/E020.BAS +++ /dev/null @@ -1,44 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: cvd1.bas -1020 rem Purpose: Verify CVD() and MKD$() -1100 rem ------------------------------------------ -1120 A = 0.000000001 -1130 B$ = MKD$( A ) -1140 C = CVD( B$ ) -1150 if A <> C then goto TestFailed -1170 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 A = -0.000000001 -1230 B$ = MKD$( A ) -1240 C = CVD( B$ ) -1250 if A <> C then goto TestFailed -1270 print "*** TEST #2 PASSED ***" -1300 rem ------------------------------------------ -1320 A = 123456789 -1330 B$ = MKD$( A ) -1340 C = CVD( B$ ) -1350 if A <> C then goto TestFailed -1370 print "*** TEST #3 PASSED ***" -1400 rem ------------------------------------------ -1420 A = -123456789 -1430 B$ = MKD$( A ) -1440 C = CVD( B$ ) -1450 if A <> C then goto TestFailed -1470 print "*** TEST #4 PASSED ***" -1500 rem ------------------------------------------ -1520 A = 0 -1530 B$ = MKD$( A ) -1540 C = CVD( B$ ) -1550 if A <> C then goto TestFailed -1570 print "*** TEST #5 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E020.run b/bwbtest/NBS2X/E020.run deleted file mode 100644 index 87227e4..0000000 --- a/bwbtest/NBS2X/E020.run +++ /dev/null @@ -1,6 +0,0 @@ -*** TEST #1 PASSED *** -*** TEST #2 PASSED *** -*** TEST #3 PASSED *** -*** TEST #4 PASSED *** -*** TEST #5 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E021.BAS b/bwbtest/NBS2X/E021.BAS deleted file mode 100644 index 3d68840..0000000 --- a/bwbtest/NBS2X/E021.BAS +++ /dev/null @@ -1,47 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: cvi1.bas -1020 rem Purpose: Verify CVI() and MKI$() -1100 rem ------------------------------------------ -1120 A = 0.000000001 -1130 B$ = MKI$( A ) -1140 C = CVI( B$ ) -1145 A = 0 -1150 if A <> C then goto TestFailed -1170 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 A = -0.000000001 -1230 B$ = MKI$( A ) -1240 C = CVI( B$ ) -1245 A = 0 -1250 if A <> C then goto TestFailed -1270 print "*** TEST #2 PASSED ***" -1300 rem ------------------------------------------ -1320 A = 12345 -1330 B$ = MKI$( A ) -1340 C = CVI( B$ ) -1350 if A <> C then goto TestFailed -1370 print "*** TEST #3 PASSED ***" -1400 rem ------------------------------------------ -1420 A = -12345 -1430 B$ = MKI$( A ) -1440 C = CVI( B$ ) -1450 if A <> C then goto TestFailed -1470 print "*** TEST #4 PASSED ***" -1500 rem ------------------------------------------ -1520 A = 0 -1530 B$ = MKI$( A ) -1540 C = CVI( B$ ) -1550 if A <> C then goto TestFailed -1570 print "*** TEST #5 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end - diff --git a/bwbtest/NBS2X/E021.run b/bwbtest/NBS2X/E021.run deleted file mode 100644 index 87227e4..0000000 --- a/bwbtest/NBS2X/E021.run +++ /dev/null @@ -1,6 +0,0 @@ -*** TEST #1 PASSED *** -*** TEST #2 PASSED *** -*** TEST #3 PASSED *** -*** TEST #4 PASSED *** -*** TEST #5 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E022.BAS b/bwbtest/NBS2X/E022.BAS deleted file mode 100644 index 2c2d2e6..0000000 --- a/bwbtest/NBS2X/E022.BAS +++ /dev/null @@ -1,34 +0,0 @@ - -10 rem DATA1.BAS -- Test DATA, READ, and RESTORE Statements -20 print "DATA1.BAS -- Test DATA, READ, and RESTORE Statements" -30 DATA "Ted", 56.789 -40 REM just to see if it advances correctly -50 DATA "Dale", 45.678 - 60 READ N$, NUMBER, ANOTHER$ - 61 if N$ <> "Ted" then goto TestFailed - 62 if NUMBER <> 56.789 then goto TestFailed - 63 if ANOTHER$ <> "Dale" then goto TestFailed - 70 READ ANUMBER - 71 if ANUMBER <> 45.678 then goto TestFailed - 80 PRINT "Data read: ";N$;" ";NUMBER;" ";ANOTHER$;" ";ANUMBER -90 RESTORE 30 - 100 READ ANOTHER$ - 101 if ANOTHER$ <> "Ted" then goto TestFailed - 110 READ ANUMBER, N$,NUMBER - 111 if ANUMBER <> 56.789 then goto TestFailed - 112 if N$ <> "Dale" then goto TestFailed - 113 if NUMBER <> 45.678 then goto TestFailed - 120 PRINT "After RESTORE:" - 130 PRINT "Data read: ";ANOTHER$;" ";ANUMBER;" ";N$;" ";NUMBER -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end - diff --git a/bwbtest/NBS2X/E022.run b/bwbtest/NBS2X/E022.run deleted file mode 100644 index afd5a03..0000000 --- a/bwbtest/NBS2X/E022.run +++ /dev/null @@ -1,5 +0,0 @@ -DATA1.BAS -- Test DATA, READ, and RESTORE Statements -Data read: Ted 56.789 Dale 45.678 -After RESTORE: -Data read: Ted 56.789 Dale 45.678 -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E023.BAS b/bwbtest/NBS2X/E023.BAS deleted file mode 100644 index 139f65f..0000000 --- a/bwbtest/NBS2X/E023.BAS +++ /dev/null @@ -1,21 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: delete1.bas -00120 REM PURPOSE: Verify DELETE - -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 10th, 2014 -00150 REM ---------------------------------------------------- -01000 delete 3000-3999 -02000 REM ---------------------------------------------------- -03030 ERROR 1 -03040 ERROR 1 -03050 ERROR 1 -03060 ERROR 1 -03070 ERROR 1 -03080 ERROR 1 -03090 ERROR 1 -19900 REM ---------------------------------------------------- -19910 REM *** ALL TESTS PASSED *** -19920 REM ---------------------------------------------------- -19930 PRINT "*** ALL TESTS PASSED ***" -19999 END - diff --git a/bwbtest/NBS2X/E023.run b/bwbtest/NBS2X/E023.run deleted file mode 100644 index ba26c64..0000000 --- a/bwbtest/NBS2X/E023.run +++ /dev/null @@ -1 +0,0 @@ -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E024.BAS b/bwbtest/NBS2X/E024.BAS deleted file mode 100644 index 3f22f18..0000000 --- a/bwbtest/NBS2X/E024.BAS +++ /dev/null @@ -1,320 +0,0 @@ -00100 REM -------------------------------------- -00110 REM FILENAME: do1.bas -00120 REM PURPOSE: Verify "DO-LOOP" with "EXIT DO" -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 17th, 2014 -00150 REM -------------------------------------- -01000 REM # do loop -01010 REM 1 ----------- ----------- -01020 REM 2 ----------- until FALSE -01030 REM 3 ----------- until TRUE -01040 REM 4 ----------- while FALSE -01050 REM 5 ----------- while TRUE -01060 REM 6 until FALSE ----------- -01070 REM 7 until FALSE until FALSE -01080 REM 8 until FALSE until TRUE -01090 REM 9 until FALSE while FALSE -01100 REM 10 until FALSE while TRUE -01110 REM 11 until TRUE ----------- -01120 REM 12 until TRUE until FALSE -01130 REM 13 until TRUE until TRUE -01140 REM 14 until TRUE while FALSE -01150 REM 15 until TRUE while TRUE -01160 REM 16 while FALSE ----------- -01170 REM 17 while FALSE until FALSE -01180 REM 18 while FALSE until TRUE -01190 REM 19 while FALSE while FALSE -01200 REM 20 while FALSE while TRUE -01210 REM 21 while TRUE ----------- -01220 REM 22 while TRUE until FALSE -01230 REM 23 while TRUE until TRUE -01240 REM 24 while TRUE while FALSE -01250 REM 25 while TRUE while TRUE -09000 let TRUE = 1 -09010 let FALSE = 0 -10100 REM -------------------------------------- -10105 PRINT "TEST #1" -10110 let n = 0 -10120 do -10125 let n = n + 1 -10130 print "Loop #"; n -10135 exit do -10140 goto TestFailed -10145 loop -10150 if n <> 1 then goto TestFailed -10155 print "*** TEST #1 PASSED ***" -10200 REM -------------------------------------- -10205 PRINT "TEST #2" -10210 let n = 0 -10220 do -10225 let n = n + 1 -10230 print "Loop #"; n -10235 exit do -10240 goto TestFailed -10245 loop until FALSE -10250 if n <> 1 then goto TestFailed -10255 print "*** TEST #2 PASSED ***" -10300 REM -------------------------------------- -10305 PRINT "TEST #3" -10310 let n = 0 -10320 do -10325 let n = n + 1 -10330 print "Loop #"; n -10335 exit do -10340 goto TestFailed -10345 loop until TRUE -10350 if n <> 1 then goto TestFailed -10355 print "*** TEST #3 PASSED ***" -10400 REM -------------------------------------- -10405 PRINT "TEST #4" -10410 let n = 0 -10420 do -10425 let n = n + 1 -10430 print "Loop #"; n -10435 exit do -10440 goto TestFailed -10445 loop while FALSE -10450 if n <> 1 then goto TestFailed -10455 print "*** TEST #4 PASSED ***" -10500 REM -------------------------------------- -10505 PRINT "TEST #5" -10510 let n = 0 -10520 do -10525 let n = n + 1 -10530 print "Loop #"; n -10535 exit do -10540 goto TestFailed -10545 loop while TRUE -10550 if n <> 1 then goto TestFailed -10555 print "*** TEST #5 PASSED ***" -10600 REM -------------------------------------- -10605 PRINT "TEST #6" -10610 let n = 0 -10620 do until FALSE -10625 let n = n + 1 -10630 print "Loop #"; n -10635 exit do -10640 goto TestFailed -10645 loop -10650 if n <> 1 then goto TestFailed -10655 print "*** TEST #6 PASSED ***" -10700 REM -------------------------------------- -10705 PRINT "TEST #7" -10710 let n = 0 -10720 do until FALSE -10725 let n = n + 1 -10730 print "Loop #"; n -10735 exit do -10740 goto TestFailed -10745 loop until FALSE -10750 if n <> 1 then goto TestFailed -10755 print "*** TEST #7 PASSED ***" -10800 REM -------------------------------------- -10805 PRINT "TEST #8" -10810 let n = 0 -10820 do until FALSE -10825 let n = n + 1 -10830 print "Loop #"; n -10835 exit do -10840 goto TestFailed -10845 loop until TRUE -10850 if n <> 1 then goto TestFailed -10855 print "*** TEST #8 PASSED ***" -10900 REM -------------------------------------- -10905 PRINT "TEST #9" -10910 let n = 0 -10920 do until FALSE -10925 let n = n + 1 -10930 print "Loop #"; n -10935 exit do -10940 goto TestFailed -10945 loop while FALSE -10950 if n <> 1 then goto TestFailed -10955 print "*** TEST #9 PASSED ***" -11000 REM -------------------------------------- -11005 PRINT "TEST #10" -11010 let n = 0 -11020 do until FALSE -11025 let n = n + 1 -11030 print "Loop #"; n -11035 exit do -11040 goto TestFailed -11045 loop while TRUE -11050 if n <> 1 then goto TestFailed -11055 print "*** TEST #10 PASSED ***" -11100 REM -------------------------------------- -11105 PRINT "TEST #11" -11110 let n = 0 -11120 do until TRUE -11125 let n = n + 1 -11130 print "Loop #"; n -11135 exit do -11140 goto TestFailed -11145 loop -11150 if n <> 0 then goto TestFailed -11155 print "*** TEST #11 PASSED ***" -11200 REM -------------------------------------- -11205 PRINT "TEST #12" -11210 let n = 0 -11220 do until TRUE -11225 let n = n + 1 -11230 print "Loop #"; n -11235 exit do -11240 goto TestFailed -11245 loop until FALSE -11250 if n <> 0 then goto TestFailed -11255 print "*** TEST #12 PASSED ***" -11300 REM -------------------------------------- -11305 PRINT "TEST #13" -11310 let n = 0 -11320 do until TRUE -11325 let n = n + 1 -11330 print "Loop #"; n -11335 exit do -11340 goto TestFailed -11345 loop until TRUE -11350 if n <> 0 then goto TestFailed -11355 print "*** TEST #13 PASSED ***" -11400 REM -------------------------------------- -11405 PRINT "TEST #14" -11410 let n = 0 -11420 do until TRUE -11425 let n = n + 1 -11430 print "Loop #"; n -11435 exit do -11440 goto TestFailed -11445 loop while FALSE -11450 if n <> 0 then goto TestFailed -11455 print "*** TEST #14 PASSED ***" -11500 REM -------------------------------------- -11505 PRINT "TEST #15" -11510 let n = 0 -11520 do until TRUE -11525 let n = n + 1 -11530 print "Loop #"; n -11535 exit do -11540 goto TestFailed -11545 loop while TRUE -11550 if n <> 0 then goto TestFailed -11555 print "*** TEST #15 PASSED ***" -11600 REM -------------------------------------- -11605 PRINT "TEST #16" -11610 let n = 0 -11620 do while FALSE -11625 let n = n + 1 -11630 print "Loop #"; n -11635 exit do -11640 goto TestFailed -11645 loop -11650 if n <> 0 then goto TestFailed -11655 print "*** TEST #16 PASSED ***" -11700 REM -------------------------------------- -11705 PRINT "TEST #17" -11710 let n = 0 -11720 do while FALSE -11725 let n = n + 1 -11730 print "Loop #"; n -11735 exit do -11740 goto TestFailed -11745 loop until FALSE -11750 if n <> 0 then goto TestFailed -11755 print "*** TEST #17 PASSED ***" -11800 REM -------------------------------------- -11805 PRINT "TEST #18" -11810 let n = 0 -11820 do while FALSE -11825 let n = n + 1 -11830 print "Loop #"; n -11835 exit do -11840 goto TestFailed -11845 loop until TRUE -11850 if n <> 0 then goto TestFailed -11855 print "*** TEST #18 PASSED ***" -11900 REM -------------------------------------- -11905 PRINT "TEST #19" -11910 let n = 0 -11920 do while FALSE -11925 let n = n + 1 -11930 print "Loop #"; n -11935 exit do -11940 goto TestFailed -11945 loop while FALSE -11950 if n <> 0 then goto TestFailed -11955 print "*** TEST #19 PASSED ***" -12000 REM -------------------------------------- -12005 PRINT "TEST #20" -12010 let n = 0 -12020 do while FALSE -12025 let n = n + 1 -12030 print "Loop #"; n -12035 exit do -12040 goto TestFailed -12045 loop while TRUE -12050 if n <> 0 then goto TestFailed -12055 print "*** TEST #20 PASSED ***" -12100 REM -------------------------------------- -12105 PRINT "TEST #21" -12110 let n = 0 -12120 do while TRUE -12125 let n = n + 1 -12130 print "Loop #"; n -12135 exit do -12140 goto TestFailed -12145 loop -12150 if n <> 1 then goto TestFailed -12155 print "*** TEST #21 PASSED ***" -12200 REM -------------------------------------- -12205 PRINT "TEST #22" -12210 let n = 0 -12220 do while TRUE -12225 let n = n + 1 -12230 print "Loop #"; n -12235 exit do -12240 goto TestFailed -12245 loop until FALSE -12250 if n <> 1 then goto TestFailed -12255 print "*** TEST #22 PASSED ***" -12300 REM -------------------------------------- -12305 PRINT "TEST #23" -12310 let n = 0 -12320 do while TRUE -12325 let n = n + 1 -12330 print "Loop #"; n -12335 exit do -12340 goto TestFailed -12345 loop until TRUE -12350 if n <> 1 then goto TestFailed -12355 print "*** TEST #23 PASSED ***" -12400 REM -------------------------------------- -12405 PRINT "TEST #24" -12410 let n = 0 -12420 do while TRUE -12425 let n = n + 1 -12430 print "Loop #"; n -12435 exit do -12440 goto TestFailed -12445 loop while FALSE -12450 if n <> 1 then goto TestFailed -12455 print "*** TEST #24 PASSED ***" -12500 REM -------------------------------------- -12505 PRINT "TEST #25" -12510 let n = 0 -12520 do while TRUE -12525 let n = n + 1 -12530 print "Loop #"; n -12535 exit do -12540 goto TestFailed -12545 loop while TRUE -12550 if n <> 1 then goto TestFailed -12555 print "*** TEST #25 PASSED ** -18000 rem ------------------------------------------ -18010 TestPassed: -18020 print "*** ALL TESTS PASSED ***" -18030 goto TheEnd -18500 rem ------------------------------------------ -18510 TestFailed: -18520 print "*** TEST FAILED ***" -18530 goto TheEnd -19000 rem ------------------------------------------ -19010 TheEnd: -19999 end diff --git a/bwbtest/NBS2X/E024.run b/bwbtest/NBS2X/E024.run deleted file mode 100644 index a4ad0cc..0000000 --- a/bwbtest/NBS2X/E024.run +++ /dev/null @@ -1,66 +0,0 @@ -TEST #1 -Loop # 1 -*** TEST #1 PASSED *** -TEST #2 -Loop # 1 -*** TEST #2 PASSED *** -TEST #3 -Loop # 1 -*** TEST #3 PASSED *** -TEST #4 -Loop # 1 -*** TEST #4 PASSED *** -TEST #5 -Loop # 1 -*** TEST #5 PASSED *** -TEST #6 -Loop # 1 -*** TEST #6 PASSED *** -TEST #7 -Loop # 1 -*** TEST #7 PASSED *** -TEST #8 -Loop # 1 -*** TEST #8 PASSED *** -TEST #9 -Loop # 1 -*** TEST #9 PASSED *** -TEST #10 -Loop # 1 -*** TEST #10 PASSED *** -TEST #11 -*** TEST #11 PASSED *** -TEST #12 -*** TEST #12 PASSED *** -TEST #13 -*** TEST #13 PASSED *** -TEST #14 -*** TEST #14 PASSED *** -TEST #15 -*** TEST #15 PASSED *** -TEST #16 -*** TEST #16 PASSED *** -TEST #17 -*** TEST #17 PASSED *** -TEST #18 -*** TEST #18 PASSED *** -TEST #19 -*** TEST #19 PASSED *** -TEST #20 -*** TEST #20 PASSED *** -TEST #21 -Loop # 1 -*** TEST #21 PASSED *** -TEST #22 -Loop # 1 -*** TEST #22 PASSED *** -TEST #23 -Loop # 1 -*** TEST #23 PASSED *** -TEST #24 -Loop # 1 -*** TEST #24 PASSED *** -TEST #25 -Loop # 1 -*** TEST #25 PASSED ** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E025.BAS b/bwbtest/NBS2X/E025.BAS deleted file mode 100644 index 3807b31..0000000 --- a/bwbtest/NBS2X/E025.BAS +++ /dev/null @@ -1,370 +0,0 @@ -00100 REM -------------------------------------- -00110 REM FILENAME: do2.bas -00120 REM PURPOSE: Verify "DO-LOOP" with "if n > 4 then exit do" -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 17th, 2014 -00150 REM -------------------------------------- -01000 REM # do loop -01010 REM 1 ----------- ----------- -01020 REM 2 ----------- until FALSE -01030 REM 3 ----------- until TRUE -01040 REM 4 ----------- while FALSE -01050 REM 5 ----------- while TRUE -01060 REM 6 until FALSE ----------- -01070 REM 7 until FALSE until FALSE -01080 REM 8 until FALSE until TRUE -01090 REM 9 until FALSE while FALSE -01100 REM 10 until FALSE while TRUE -01110 REM 11 until TRUE ----------- -01120 REM 12 until TRUE until FALSE -01130 REM 13 until TRUE until TRUE -01140 REM 14 until TRUE while FALSE -01150 REM 15 until TRUE while TRUE -01160 REM 16 while FALSE ----------- -01170 REM 17 while FALSE until FALSE -01180 REM 18 while FALSE until TRUE -01190 REM 19 while FALSE while FALSE -01200 REM 20 while FALSE while TRUE -01210 REM 21 while TRUE ----------- -01220 REM 22 while TRUE until FALSE -01230 REM 23 while TRUE until TRUE -01240 REM 24 while TRUE while FALSE -01250 REM 25 while TRUE while TRUE -09000 let TRUE = 1 -09010 let FALSE = 0 -10100 REM -------------------------------------- -10105 PRINT "TEST #1" -10110 let n = 0 -10120 do -10125 let n = n + 1 -10130 print "Loop #"; n -10135 if n > 4 then -exit do -end if -10140 if n > 5 then goto TestFailed -10145 loop -10150 if n <> 5 then goto TestFailed -10155 print "*** TEST #1 PASSED ***" -10200 REM -------------------------------------- -10205 PRINT "TEST #2" -10210 let n = 0 -10220 do -10225 let n = n + 1 -10230 print "Loop #"; n -10235 if n > 4 then -exit do -end if -10240 if n > 5 then goto TestFailed -10245 loop until FALSE -10250 if n <> 5 then goto TestFailed -10255 print "*** TEST #2 PASSED ***" -10300 REM -------------------------------------- -10305 PRINT "TEST #3" -10310 let n = 0 -10320 do -10325 let n = n + 1 -10330 print "Loop #"; n -10335 if n > 4 then - exit do - end if -10340 if n > 5 then goto TestFailed -10345 loop until TRUE -10350 if n <> 1 then goto TestFailed -10355 print "*** TEST #3 PASSED ***" -10400 REM -------------------------------------- -10405 PRINT "TEST #4" -10410 let n = 0 -10420 do -10425 let n = n + 1 -10430 print "Loop #"; n -10435 if n > 4 then - exit do - end if -10440 if n > 5 then goto TestFailed -10445 loop while FALSE -10450 if n <> 1 then goto TestFailed -10455 print "*** TEST #4 PASSED ***" -10500 REM -------------------------------------- -10505 PRINT "TEST #5" -10510 let n = 0 -10520 do -10525 let n = n + 1 -10530 print "Loop #"; n -10535 if n > 4 then - exit do - end if -10540 if n > 5 then goto TestFailed -10545 loop while TRUE -10550 if n <> 5 then goto TestFailed -10555 print "*** TEST #5 PASSED ***" -10600 REM -------------------------------------- -10605 PRINT "TEST #6" -10610 let n = 0 -10620 do until FALSE -10625 let n = n + 1 -10630 print "Loop #"; n -10635 if n > 4 then -exit do -end if -10640 if n > 5 then goto TestFailed -10645 loop -10650 if n <> 5 then goto TestFailed -10655 print "*** TEST #6 PASSED ***" -10700 REM -------------------------------------- -10705 PRINT "TEST #7" -10710 let n = 0 -10720 do until FALSE -10725 let n = n + 1 -10730 print "Loop #"; n -10735 if n > 4 then - exit do - end if -10740 if n > 5 then goto TestFailed -10745 loop until FALSE -10750 if n <> 5 then goto TestFailed -10755 print "*** TEST #7 PASSED ***" -10800 REM -------------------------------------- -10805 PRINT "TEST #8" -10810 let n = 0 -10820 do until FALSE -10825 let n = n + 1 -10830 print "Loop #"; n -10835 if n > 4 then - exit do - end if -10840 if n > 5 then goto TestFailed -10845 loop until TRUE -10850 if n <> 1 then goto TestFailed -10855 print "*** TEST #8 PASSED ***" -10900 REM -------------------------------------- -10905 PRINT "TEST #9" -10910 let n = 0 -10920 do until FALSE -10925 let n = n + 1 -10930 print "Loop #"; n -10935 if n > 4 then -exit do -end if -10940 if n > 5 then goto TestFailed -10945 loop while FALSE -10950 if n <> 1 then goto TestFailed -10955 print "*** TEST #9 PASSED ***" -11000 REM -------------------------------------- -11005 PRINT "TEST #10" -11010 let n = 0 -11020 do until FALSE -11025 let n = n + 1 -11030 print "Loop #"; n -11035 if n > 4 then - exit do - end if -11040 if n > 5 then goto TestFailed -11045 loop while TRUE -11050 if n <> 5 then goto TestFailed -11055 print "*** TEST #10 PASSED ***" -11100 REM -------------------------------------- -11105 PRINT "TEST #11" -11110 let n = 0 -11120 do until TRUE -11125 let n = n + 1 -11130 print "Loop #"; n -11135 if n > 4 then -exit do -end if -11140 if n > 5 then goto TestFailed -11145 loop -11150 if n <> 0 then goto TestFailed -11155 print "*** TEST #11 PASSED ***" -11200 REM -------------------------------------- -11205 PRINT "TEST #12" -11210 let n = 0 -11220 do until TRUE -11225 let n = n + 1 -11230 print "Loop #"; n -11235 if n > 4 then - exit do - end if -11240 if n > 5 then goto TestFailed -11245 loop until FALSE -11250 if n <> 0 then goto TestFailed -11255 print "*** TEST #12 PASSED ***" -11300 REM -------------------------------------- -11305 PRINT "TEST #13" -11310 let n = 0 -11320 do until TRUE -11325 let n = n + 1 -11330 print "Loop #"; n -11335 if n > 4 then -exit do -end if -11340 if n > 5 then goto TestFailed -11345 loop until TRUE -11350 if n <> 0 then goto TestFailed -11355 print "*** TEST #13 PASSED ***" -11400 REM -------------------------------------- -11405 PRINT "TEST #14" -11410 let n = 0 -11420 do until TRUE -11425 let n = n + 1 -11430 print "Loop #"; n -11435 if n > 4 then -exit do -end if -11440 if n > 5 then goto TestFailed -11445 loop while FALSE -11450 if n <> 0 then goto TestFailed -11455 print "*** TEST #14 PASSED ***" -11500 REM -------------------------------------- -11505 PRINT "TEST #15" -11510 let n = 0 -11520 do until TRUE -11525 let n = n + 1 -11530 print "Loop #"; n -11535 if n > 4 then - exit do - end if -11540 if n > 5 then goto TestFailed -11545 loop while TRUE -11550 if n <> 0 then goto TestFailed -11555 print "*** TEST #15 PASSED ***" -11600 REM -------------------------------------- -11605 PRINT "TEST #16" -11610 let n = 0 -11620 do while FALSE -11625 let n = n + 1 -11630 print "Loop #"; n -11635 if n > 4 then - exit do - end if -11640 if n > 5 then goto TestFailed -11645 loop -11650 if n <> 0 then goto TestFailed -11655 print "*** TEST #16 PASSED ***" -11700 REM -------------------------------------- -11705 PRINT "TEST #17" -11710 let n = 0 -11720 do while FALSE -11725 let n = n + 1 -11730 print "Loop #"; n -11735 if n > 4 then - exit do -end if -11740 if n > 5 then goto TestFailed -11745 loop until FALSE -11750 if n <> 0 then goto TestFailed -11755 print "*** TEST #17 PASSED ***" -11800 REM -------------------------------------- -11805 PRINT "TEST #18" -11810 let n = 0 -11820 do while FALSE -11825 let n = n + 1 -11830 print "Loop #"; n -11835 if n > 4 then - exit do - end if -11840 if n > 5 then goto TestFailed -11845 loop until TRUE -11850 if n <> 0 then goto TestFailed -11855 print "*** TEST #18 PASSED ***" -11900 REM -------------------------------------- -11905 PRINT "TEST #19" -11910 let n = 0 -11920 do while FALSE -11925 let n = n + 1 -11930 print "Loop #"; n -11935 if n > 4 then - exit do - end if -11940 if n > 5 then goto TestFailed -11945 loop while FALSE -11950 if n <> 0 then goto TestFailed -11955 print "*** TEST #19 PASSED ***" -12000 REM -------------------------------------- -12005 PRINT "TEST #20" -12010 let n = 0 -12020 do while FALSE -12025 let n = n + 1 -12030 print "Loop #"; n -12035 if n > 4 then - exit do - end if -12040 if n > 5 then goto TestFailed -12045 loop while TRUE -12050 if n <> 0 then goto TestFailed -12055 print "*** TEST #20 PASSED ***" -12100 REM -------------------------------------- -12105 PRINT "TEST #21" -12110 let n = 0 -12120 do while TRUE -12125 let n = n + 1 -12130 print "Loop #"; n -12135 if n > 4 then - exit do - end if -12140 if n > 5 then goto TestFailed -12145 loop -12150 if n <> 5 then goto TestFailed -12155 print "*** TEST #21 PASSED ***" -12200 REM -------------------------------------- -12205 PRINT "TEST #22" -12210 let n = 0 -12220 do while TRUE -12225 let n = n + 1 -12230 print "Loop #"; n -12235 if n > 4 then - exit do - end if -12240 if n > 5 then goto TestFailed -12245 loop until FALSE -12250 if n <> 5 then goto TestFailed -12255 print "*** TEST #22 PASSED ***" -12300 REM -------------------------------------- -12305 PRINT "TEST #23" -12310 let n = 0 -12320 do while TRUE -12325 let n = n + 1 -12330 print "Loop #"; n -12335 if n > 4 then -exit do -end if -12340 if n > 5 then goto TestFailed -12345 loop until TRUE -12350 if n <> 1 then goto TestFailed -12355 print "*** TEST #23 PASSED ***" -12400 REM -------------------------------------- -12405 PRINT "TEST #24" -12410 let n = 0 -12420 do while TRUE -12425 let n = n + 1 -12430 print "Loop #"; n -12435 if n > 4 then -exit do -end if -12440 if n > 5 then goto TestFailed -12445 loop while FALSE -12450 if n <> 1 then goto TestFailed -12455 print "*** TEST #24 PASSED ***" -12500 REM -------------------------------------- -12505 PRINT "TEST #25" -12510 let n = 0 -12520 do while TRUE -12525 let n = n + 1 -12530 print "Loop #"; n -12535 if n > 4 then - exit do - end if -12540 if n > 5 then goto TestFailed -12545 loop while TRUE -12550 if n <> 5 then goto TestFailed -12555 print "*** TEST #25 PASSED ** -18000 rem ------------------------------------------ -18010 TestPassed: -18020 print "*** ALL TESTS PASSED ***" -18030 goto TheEnd -18500 rem ------------------------------------------ -18510 TestFailed: -18520 print "*** TEST FAILED ***" -18530 goto TheEnd -19000 rem ------------------------------------------ -19010 TheEnd: -19999 end diff --git a/bwbtest/NBS2X/E025.run b/bwbtest/NBS2X/E025.run deleted file mode 100644 index d695c6d..0000000 --- a/bwbtest/NBS2X/E025.run +++ /dev/null @@ -1,102 +0,0 @@ -TEST #1 -Loop # 1 -Loop # 2 -Loop # 3 -Loop # 4 -Loop # 5 -*** TEST #1 PASSED *** -TEST #2 -Loop # 1 -Loop # 2 -Loop # 3 -Loop # 4 -Loop # 5 -*** TEST #2 PASSED *** -TEST #3 -Loop # 1 -*** TEST #3 PASSED *** -TEST #4 -Loop # 1 -*** TEST #4 PASSED *** -TEST #5 -Loop # 1 -Loop # 2 -Loop # 3 -Loop # 4 -Loop # 5 -*** TEST #5 PASSED *** -TEST #6 -Loop # 1 -Loop # 2 -Loop # 3 -Loop # 4 -Loop # 5 -*** TEST #6 PASSED *** -TEST #7 -Loop # 1 -Loop # 2 -Loop # 3 -Loop # 4 -Loop # 5 -*** TEST #7 PASSED *** -TEST #8 -Loop # 1 -*** TEST #8 PASSED *** -TEST #9 -Loop # 1 -*** TEST #9 PASSED *** -TEST #10 -Loop # 1 -Loop # 2 -Loop # 3 -Loop # 4 -Loop # 5 -*** TEST #10 PASSED *** -TEST #11 -*** TEST #11 PASSED *** -TEST #12 -*** TEST #12 PASSED *** -TEST #13 -*** TEST #13 PASSED *** -TEST #14 -*** TEST #14 PASSED *** -TEST #15 -*** TEST #15 PASSED *** -TEST #16 -*** TEST #16 PASSED *** -TEST #17 -*** TEST #17 PASSED *** -TEST #18 -*** TEST #18 PASSED *** -TEST #19 -*** TEST #19 PASSED *** -TEST #20 -*** TEST #20 PASSED *** -TEST #21 -Loop # 1 -Loop # 2 -Loop # 3 -Loop # 4 -Loop # 5 -*** TEST #21 PASSED *** -TEST #22 -Loop # 1 -Loop # 2 -Loop # 3 -Loop # 4 -Loop # 5 -*** TEST #22 PASSED *** -TEST #23 -Loop # 1 -*** TEST #23 PASSED *** -TEST #24 -Loop # 1 -*** TEST #24 PASSED *** -TEST #25 -Loop # 1 -Loop # 2 -Loop # 3 -Loop # 4 -Loop # 5 -*** TEST #25 PASSED ** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E026.BAS b/bwbtest/NBS2X/E026.BAS deleted file mode 100644 index 5a13e3a..0000000 --- a/bwbtest/NBS2X/E026.BAS +++ /dev/null @@ -1,16 +0,0 @@ -010 let correct = 0 -100 on error goto 200 -110 print 1/0 -120 print "*** TEST FAILED #1 ***" -130 goto 299 -135 ErrorHandler: -140 print "again" -150 PRINT "*** TEST PASSED ***" -199 goto 299 -200 print "ERL="; ERL -210 print "ERR="; ERR -220 if ERL = 110 then -resume ErrorHandler -end if -230 PRINT "*** TEST FAILED #2 ***" -299 END diff --git a/bwbtest/NBS2X/E026.run b/bwbtest/NBS2X/E026.run deleted file mode 100644 index fe7df80..0000000 --- a/bwbtest/NBS2X/E026.run +++ /dev/null @@ -1,4 +0,0 @@ -ERL= 110 -ERR= 11 -again -*** TEST PASSED *** diff --git a/bwbtest/NBS2X/E027.BAS b/bwbtest/NBS2X/E027.BAS deleted file mode 100644 index f5a6d9d..0000000 --- a/bwbtest/NBS2X/E027.BAS +++ /dev/null @@ -1,232 +0,0 @@ -00100 REM ----------------------------------------- -00110 REM FILENAME: exit1.bas -00120 REM PURPOSE: Verify EXIT DO/FOR/WHILE -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 9th, 2014 -01000 REM ----------------------------------------- -01010 REM DO -01020 REM ----------------------------------------- -01030 print "The following should only print 1,3" -01040 do -01050 print "1" -01060 exit do -01070 print "2" : ERROR 1 -01080 loop -01090 print "3" -02000 REM ----------------------------------------- -02010 REM DO,FOR -02020 REM ----------------------------------------- -02030 print "The following should only print 1,2,5" -02040 do -02050 print "1" -02060 for I = 1 to 100 -02070 print "2" -02080 exit do -02090 print "3" : ERROR 1 -02100 next I -02110 print "4" : ERROR 1 -02120 loop -02130 print "5" -03000 REM ----------------------------------------- -03010 REM DO,FOR,WHILE -03020 REM ----------------------------------------- -03030 print "The following should only print 1,2,3,7" -03040 do -03050 print "1" -03060 for I = 1 to 100 -03070 print "2" -03080 while 1 -03090 print "3" -03100 exit do -03110 print "4" : ERROR 1 -03120 wend -03130 print "5" : ERROR 1 -03140 next I -03150 print "6" : ERROR 1 -03160 loop -03170 print "7" -04000 REM ----------------------------------------- -04010 REM DO,WHILE -04020 REM ----------------------------------------- -04030 print "The following should only print 1,2,5" -04040 do -04050 print "1" -04060 while 1 -04070 print "2" -04080 exit do -04090 print "3" : ERROR 1 -04100 wend -04110 print "4" : ERROR 1 -04120 loop -04130 print "5" -05000 REM ----------------------------------------- -05010 REM DO,WHILE,FOR -05020 REM ----------------------------------------- -05030 print "The following should only print 1,2,3,7" -05040 do -05050 print "1" -05060 while 1 -05070 print "2" -05080 for I = 1 to 100 -05090 print "3" -05100 exit do -05110 print "4" : ERROR 1 -05120 next I -05130 print "5" : ERROR 1 -05140 wend -05150 print "6" : ERROR 1 -05160 loop -05170 print "7" -06000 REM ----------------------------------------- -06010 REM FOR -06020 REM ----------------------------------------- -06030 print "The following should only print 1,3" -06040 for I = 1 to 100 -06050 print "1" -06060 exit for -06070 print "2" : ERROR 1 -06080 next I -06090 print "3" -07000 REM ----------------------------------------- -07010 REM FOR,DO -07020 REM ----------------------------------------- -07030 print "The following should only print 1,2,5" -07040 for I = 1 to 100 -07050 print "1" -07060 do -07070 print "2" -07080 exit for -07090 print "3" : ERROR 1 -07100 loop -07110 print "4" : ERROR 1 -07120 next I -07130 print "5" -08000 REM ----------------------------------------- -08010 REM FOR,DO,WHILE -08020 REM ----------------------------------------- -08030 print "The following should only print 1,2,3,7" -08040 for I = 1 to 100 -08050 print "1" -08060 do -08070 print "2" -08080 while 1 -08090 print "3" -08100 exit for -08110 print "4" : ERROR 1 -08120 wend -08130 print "5" : ERROR 1 -08140 loop -08150 print "6" : ERROR 1 -08160 next I -08170 print "7" -09000 REM ----------------------------------------- -09010 REM FOR,WHILE -09020 REM ----------------------------------------- -09030 print "The following should only print 1,2,5" -09040 for I = 1 to 100 -09050 print "1" -09060 while 1 -09070 print "2" -09080 exit for -09090 print "3" : ERROR 1 -09100 wend -09110 print "4" : ERROR 1 -09120 next I -09130 print "5" -10000 REM ----------------------------------------- -10010 REM FOR,WHILE,DO -10020 REM ----------------------------------------- -10030 print "The following should only print 1,2,3,7" -10040 for I = 1 to 100 -10050 print "1" -10060 while 1 -10070 print "2" -10080 do -10090 print "3" -10100 exit for -10110 print "4" : ERROR 1 -10120 loop -10130 print "5" : ERROR 1 -10140 wend -10150 print "6" : ERROR 1 -10160 next I -10170 print "7" -11000 REM ----------------------------------------- -11010 REM WHILE -11020 REM ----------------------------------------- -11030 print "The following should only print 1,3" -11040 while 1 -11050 print "1" -11060 exit while -11070 print "2" : ERROR 1 -11080 wend -11090 print "3" -12000 REM ----------------------------------------- -12010 REM WHILE,DO -12020 REM ----------------------------------------- -12030 print "The following should only print 1,2,5" -12040 while 1 -12050 print "1" -12060 do -12070 print "2" -12080 exit while -12090 print "3" : ERROR 1 -12100 loop -12110 print "4" : ERROR 1 -12120 wend -12130 print "5" -13000 REM ----------------------------------------- -13010 REM WHILE,DO,FOR -13020 REM ----------------------------------------- -13030 print "The following should only print 1,2,3,7" -13040 while 1 -13050 print "1" -13060 do -13070 print "2" -13080 for I = 1 to 100 -13090 print "3" -13100 exit while -13110 print "4" : ERROR 1 -13120 next I -13130 print "5" : ERROR 1 -13140 loop -13150 print "6" : ERROR 1 -13160 wend -13170 print "7" -14000 REM ----------------------------------------- -14010 REM WHILE,FOR -14020 REM ----------------------------------------- -14030 print "The following should only print 1,2,5" -14040 while 1 -14050 print "1" -14060 for I = 1 to 100 -14070 print "2" -14080 exit while -14090 print "3" : ERROR 1 -14100 next I -14110 print "4" : ERROR 1 -14120 wend -14130 print "5" -15000 REM ----------------------------------------- -15010 REM WHILE,FOR,DO -15020 REM ----------------------------------------- -15030 print "The following should only print 1,2,3,7" -15040 while 1 -15050 print "1" -15060 for I = 1 to 100 -15070 print "2" -15080 do -15090 print "3" -15100 exit while -15110 print "4" : ERROR 1 -15120 loop -15130 print "5" : ERROR 1 -15140 next I -15150 print "6" : ERROR 1 -15160 wend -15170 print "7" -19900 REM ---------------------------------------------------- -19910 REM *** ALL TESTS PASSED *** -19920 REM ---------------------------------------------------- -19930 PRINT "*** ALL TESTS PASSED ***" -19999 QUIT diff --git a/bwbtest/NBS2X/E027.run b/bwbtest/NBS2X/E027.run deleted file mode 100644 index 9c24808..0000000 --- a/bwbtest/NBS2X/E027.run +++ /dev/null @@ -1,65 +0,0 @@ -The following should only print 1,3 -1 -3 -The following should only print 1,2,5 -1 -2 -5 -The following should only print 1,2,3,7 -1 -2 -3 -7 -The following should only print 1,2,5 -1 -2 -5 -The following should only print 1,2,3,7 -1 -2 -3 -7 -The following should only print 1,3 -1 -3 -The following should only print 1,2,5 -1 -2 -5 -The following should only print 1,2,3,7 -1 -2 -3 -7 -The following should only print 1,2,5 -1 -2 -5 -The following should only print 1,2,3,7 -1 -2 -3 -7 -The following should only print 1,3 -1 -3 -The following should only print 1,2,5 -1 -2 -5 -The following should only print 1,2,3,7 -1 -2 -3 -7 -The following should only print 1,2,5 -1 -2 -5 -The following should only print 1,2,3,7 -1 -2 -3 -7 -*** ALL TESTS PASSED *** - diff --git a/bwbtest/NBS2X/E028.BAS b/bwbtest/NBS2X/E028.BAS deleted file mode 100644 index 83420d4..0000000 --- a/bwbtest/NBS2X/E028.BAS +++ /dev/null @@ -1,61 +0,0 @@ -1000 rem ---------------------------------------------------------- -1010 rem File: exit2.bas -1020 rem Purpose: Verify EXIT DO|FOR|UNTIL|WHILE -2000 rem ---------------------------------------------------------- -2010 rem TEST #1: Verify "EXIT" is an ERROR -2020 ' on error goto 9000 -2025 ' let i = 0 -2030 ' do -2035 ' let i = i + 1 -2040 ' exit -2050 ' error 1 -2060 ' loop -2065 ' if i <> 1 then ERROR 1 -2070 print "TEST #1 passed" -2100 rem ---------------------------------------------------------- -2110 rem TEST #2: Verify "EXIT DO" exits DO-LOOP -2120 rem -2125 let i = 0 -2130 do -2135 let i = i + 1 -2140 exit do -2150 error 1 -2160 loop -2165 if i <> 1 then ERROR 1 -2170 print "TEST #2 passed" -2200 rem ---------------------------------------------------------- -2210 rem TEST #3: Verify "EXIT FOR" exits FOR-NEXT -2220 rem -2225 let i = 0 -2230 for j = 1 to 100 -2235 let i = i + 1 -2240 exit for -2250 error 1 -2260 next j -2265 if i <> 1 then ERROR 1 -2270 print "TEST #3 passed" -2300 rem ---------------------------------------------------------- -2310 rem TEST #4: Verify "EXIT REPEAT" exits REPEAT-UNTIL -2320 rem -2325 let i = 0 -2330 repeat -2335 let i = i + 1 -2340 exit repeat -2350 error 1 -2360 until true -2365 if i <> 1 then ERROR 1 -2370 print "TEST #4 passed" -2400 rem ---------------------------------------------------------- -2410 rem TEST #5: Verify "EXIT WHILE" exits WHILE-WEND -2420 rem -2425 let i = 0 -2430 while 1 -2435 let i = i + 1 -2440 exit while -2450 error 1 -2460 wend -2465 if i <> 1 then ERROR 1 -2470 print "TEST #5 passed" -8000 rem ---------------------------------------------------------- -8010 rem ALL TESTS PASSED -8020 print "*** ALL TESTS PASSED ***" diff --git a/bwbtest/NBS2X/E028.run b/bwbtest/NBS2X/E028.run deleted file mode 100644 index a2745b8..0000000 --- a/bwbtest/NBS2X/E028.run +++ /dev/null @@ -1,6 +0,0 @@ -TEST #1 passed -TEST #2 passed -TEST #3 passed -TEST #4 passed -TEST #5 passed -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E029.BAS b/bwbtest/NBS2X/E029.BAS deleted file mode 100644 index 1de8ccd..0000000 --- a/bwbtest/NBS2X/E029.BAS +++ /dev/null @@ -1,45 +0,0 @@ -100 rem ------------------------------ -110 rem File: if1.bas -120 rem Purpose: Verify IF/THEN/ELSE -130 rem ------------------------------ -200 let i = 1 -210 if i then 230 else 250 -220 error 1 -230 print "TEST #1 PASSED" -240 goto 300 -250 print "TEST #1 FAILED" -260 error 1 -300 let i = 0 -310 if i then 330 else 350 -320 error 1 -330 print "TEST #2 FAILED" -340 error 1 -350 print "TEST #2 PASSED" -360 goto 400 -400 let i = 1 -410 if i then - goto 430 - else - goto 450 - end if -420 error 1 -430 print "TEST #3 PASSED" -440 goto 500 -450 print "TEST #3 FAILED" -460 error 1 -500 let i = 0 -510 if i then - goto 530 - else - goto 550 - end if -520 error 1 -530 print "TEST #4 FAILED" -540 error 1 -550 print "TEST #4 PASSED" -560 goto 600 -600 rem -700 rem -800 rem -900 print "*** ALL TESTS PASSED ***" -999 END diff --git a/bwbtest/NBS2X/E029.run b/bwbtest/NBS2X/E029.run deleted file mode 100644 index 674aa7d..0000000 --- a/bwbtest/NBS2X/E029.run +++ /dev/null @@ -1,5 +0,0 @@ -TEST #1 PASSED -TEST #2 PASSED -TEST #3 PASSED -TEST #4 PASSED -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E030.BAS b/bwbtest/NBS2X/E030.BAS deleted file mode 100644 index 690b081..0000000 --- a/bwbtest/NBS2X/E030.BAS +++ /dev/null @@ -1,12 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: lcase1.bas -00120 REM PURPOSE: Verify LCASE$() -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 15th, 2014 -00150 REM ---------------------------------------------------- -01100 let z$ = "ZZZZZ" -01110 let l$ = lcase$(z$) -01120 if l$ <> "zzzzz" then print "LCASE$() FAILED": ERROR 1 -01130 print "*** TEST PASSED ***" -09999 QUIT - diff --git a/bwbtest/NBS2X/E030.run b/bwbtest/NBS2X/E030.run deleted file mode 100644 index 6189b88..0000000 --- a/bwbtest/NBS2X/E030.run +++ /dev/null @@ -1,2 +0,0 @@ -*** TEST PASSED *** - diff --git a/bwbtest/NBS2X/E031.BAS b/bwbtest/NBS2X/E031.BAS deleted file mode 100644 index 9a4b9c9..0000000 --- a/bwbtest/NBS2X/E031.BAS +++ /dev/null @@ -1,33 +0,0 @@ -100 a$ = " abc" -105 print len( a$ ) -110 l$ = ltrim$( a$ ) -120 print l$ -130 print len( l$ ) -2100 a$ = "abc " -2105 print len( a$ ) -2110 r$ = rtrim$( a$ ) -2120 print r$ -2130 print len( r$ ) -2200 a$ = "" -2210 print len( a$ ) -2220 l$ = ltrim$( a$ ) -2230 print l$ -2240 print len( l$ ) -2400 a$ = "" -2410 print len( a$ ) -2420 r$ = rtrim$( a$ ) -2430 print r$ -2440 print len(r$) -2500 a$ = " abc " -2510 print len( a$ ) -2520 t$ = trim$( a$ ) -2530 print t$ -2540 print len( t$ ) -2600 a$ = "" -2610 print len( a$ ) -2620 t$ = trim$( a$ ) -2630 print t$ -2640 print len( t$ ) -9000 print "*** TEST PASSED ***" -9999 QUIT - diff --git a/bwbtest/NBS2X/E031.run b/bwbtest/NBS2X/E031.run deleted file mode 100644 index 92166d0..0000000 --- a/bwbtest/NBS2X/E031.run +++ /dev/null @@ -1,20 +0,0 @@ - 23 -abc - 3 - 17 -abc - 3 - 0 - - 0 - 0 - - 0 - 26 -abc - 3 - 0 - - 0 -*** TEST PASSED *** - diff --git a/bwbtest/NBS2X/E032.BAS b/bwbtest/NBS2X/E032.BAS deleted file mode 100644 index a4daef9..0000000 --- a/bwbtest/NBS2X/E032.BAS +++ /dev/null @@ -1,52 +0,0 @@ -100 REM File: on1.bas -110 REM Purpose: Verify ON ... GOTO|GOSUB ... -120 REM Note: for index values outside of ramge -130 REM ---------------------------------------------- -140 REM option version "BASIC-80" -1000 let i = 0 -1010 on i goto 1100,1200,1300,1400,1500,1600,1700,1800,1900 -1020 print "*** TEST PASSED ***" -1030 on i gosub 1100,1200,1300,1400,1500,1600,1700,1800,1900 -1040 print "*** TEST PASSED ***" -1050 let i = 10 -1060 on i goto 1100,1200,1300,1400,1500,1600,1700,1800,1900 -1070 print "*** TEST PASSED ***" -1080 on i gosub 1100,1200,1300,1400,1500,1600,1700,1800,1900 -1090 print "*** TEST PASSED ***" -1099 goto 2000 -1100 ERROR 1 -1200 ERROR 1 -1300 ERROR 1 -1400 ERROR 1 -1500 ERROR 1 -1600 ERROR 1 -1700 ERROR 1 -1800 ERROR 1 -1900 ERROR 1 -2000 for i = 1 to 9 -2010 on i goto 2100,2200,2300,2400,2500,2600,2700,2800,2900 -2020 print "*** ERROR FOR INDEX="; i -2030 ERROR 1 -2040 next i -2050 print "*** TEST PASSED ***" -2099 SYSTEM -2100 if i = 1 then 2040 -2110 error 1 -2200 if i = 2 then 2040 -2210 error 1 -2300 if i = 3 then 2040 -2310 error 1 -2400 if i = 4 then 2040 -2410 error 1 -2500 if i = 5 then 2040 -2510 error 1 -2600 if i = 6 then 2040 -2610 error 1 -2700 if i = 7 then 2040 -2710 error 1 -2800 if i = 8 then 2040 -2810 error 1 -2900 if i = 9 then 2040 -2910 error 1 -9999 end - diff --git a/bwbtest/NBS2X/E032.PRO b/bwbtest/NBS2X/E032.PRO deleted file mode 100644 index 8f320e7..0000000 --- a/bwbtest/NBS2X/E032.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION VERSION "MBASIC" diff --git a/bwbtest/NBS2X/E032.run b/bwbtest/NBS2X/E032.run deleted file mode 100644 index f78bade..0000000 --- a/bwbtest/NBS2X/E032.run +++ /dev/null @@ -1,6 +0,0 @@ -*** TEST PASSED *** -*** TEST PASSED *** -*** TEST PASSED *** -*** TEST PASSED *** -*** TEST PASSED *** - diff --git a/bwbtest/NBS2X/E033.BAS b/bwbtest/NBS2X/E033.BAS deleted file mode 100644 index ca340e7..0000000 --- a/bwbtest/NBS2X/E033.BAS +++ /dev/null @@ -1,133 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: option1.bas -00120 REM PURPOSE: Verify OPTION ANGLE DEGREE/RADIANS -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 9th, 2014 -00150 REM NOTE: We convert the results to a string -00160 REM so we only compare significant digits. -00170 REM ---------------------------------------------------- -00180 REM let pi = 3.14159265 -01000 REM ---------------------------------------------------- -01010 REM Verify COS() -01020 REM ---------------------------------------------------- -01030 PRINT "TESTING COS()" -01040 option angle radians -01050 let r = COS( pi / 4 ) -01060 let r$ = str$( r ) -01070 print "RADIAN COS()="; r$ -01080 option angle degrees -01090 let d = COS( 45 ) -01110 let d$ = str$( d ) -01120 print "DEGREE COS()="; d$ -01130 if r$ <> d$ then ERROR 1 -02000 REM ---------------------------------------------------- -02010 REM Verify SIN() -02020 REM ---------------------------------------------------- -02030 PRINT "TESTING COS()" -02040 option angle radians -02050 let r = SIN( pi / 4 ) -02060 let r$ = str$( r ) -02070 print "RADIAN SIN()="; r$ -02080 option angle degrees -02090 let d = SIN( 45 ) -02110 let d$ = str$( d ) -02120 print "DEGREE SIN()="; d$ -02130 if r$ <> d$ then ERROR 1 -03000 REM ---------------------------------------------------- -03010 REM Verify TAN() -03020 REM ---------------------------------------------------- -03030 PRINT "TESTING TAN()" -03040 option angle radians -03050 let r = TAN( pi / 4 ) -03060 let r$ = str$( r ) -03070 print "RADIAN TAN()="; r$ -03080 option angle degrees -03090 let d = TAN( 45 ) -03110 let d$ = str$( d ) -03120 print "DEGREE TAN()="; d$ -03130 if r$ <> d$ then ERROR 1 -04000 REM ---------------------------------------------------- -04010 REM Verify SEC() = 1/COS() -04020 REM ---------------------------------------------------- -04030 PRINT "TESTING SEC()" -04040 option angle radians -04050 let r = SEC( pi / 4 ) -04060 let r$ = str$( r ) -04070 print "RADIAN SEC()="; r$ -04080 option angle degrees -04090 let d = SEC( 45 ) -04110 let d$ = str$( d ) -04120 print "DEGREE SEC()="; d$ -04130 if r$ <> d$ then ERROR 1 -05000 REM ---------------------------------------------------- -05010 REM Verify CSC() = 1/SIN() -05020 REM ---------------------------------------------------- -05030 PRINT "TESTING CSC()" -05040 option angle radians -05050 let r = CSC( pi / 4 ) -05060 let r$ = str$( r ) -05070 print "RADIAN CSC()="; r$ -05080 option angle degrees -05090 let d = CSC( 45 ) -05110 let d$ = str$( d ) -05120 print "DEGREE CSC()="; d$ -05130 if r$ <> d$ then ERROR 1 -06000 REM ---------------------------------------------------- -06010 REM Verify COT() = 1/TAN() -06020 REM ---------------------------------------------------- -06030 PRINT "TESTING COT()" -06040 option angle radians -06050 let r = COT( pi / 4 ) -06060 let r$ = str$( r ) -06070 print "RADIAN COT()="; r$ -06080 option angle degrees -06090 let d = COT( 45 ) -06110 let d$ = str$( d ) -06120 print "DEGREE COT()="; d$ -06130 if r$ <> d$ then ERROR 1 -07000 REM ---------------------------------------------------- -07010 REM Verify ACOS() -07020 REM ---------------------------------------------------- -07030 PRINT "TESTING COS()" -07040 option angle radians -07050 let r = ACOS( 0.7071068 ) -07060 let r$ = str$( r ) -07070 print "RADIAN ACOS()="; r$ -07080 option angle degrees -07090 let d = INT( ACOS( 0.7071068 ) + 0.5 ) -07110 let d$ = str$( d ) -07120 print "DEGREE ACOS()="; d$ -07130 if left$(r$,9) <> " .785398" or d$ <> " 45" then ERROR 1 -08000 REM ---------------------------------------------------- -08010 REM Verify ASIN() -08020 REM ---------------------------------------------------- -08030 PRINT "TESTING ASIN()" -08040 option angle radians -08050 let r = ASIN( 0.7071068 ) -08060 let r$ = str$( r ) -08070 print "RADIAN ASIN()="; r$ -08080 option angle degrees -08090 let d = INT( ASIN( 0.7071068 ) + 0.5 ) -08110 let d$ = str$( d ) -08120 print "DEGREE ASIN()="; d$ -08130 if left$(r$,9) <> " .785398" or d$ <> " 45" then ERROR 1 -09000 REM ---------------------------------------------------- -09010 REM Verify ATN() -09020 REM ---------------------------------------------------- -09030 PRINT "TESTING ATN()" -09040 option angle radians -09050 let r = ATN( 1.0 ) -09060 let r$ = str$( r ) -09070 print "RADIAN ATN()="; r$ -09080 option angle degrees -09090 let d = INT( ATN( 1.0 ) + 0.5 ) -09110 let d$ = str$( d ) -09120 print "DEGREE ATN()="; d$ -09130 if left$(r$,9) <> " .785398" or d$ <> " 45" then ERROR 1 -19900 REM ---------------------------------------------------- -19910 REM *** ALL TESTS PASSED *** -19920 REM ---------------------------------------------------- -19930 PRINT "*** ALL TESTS PASSED ***" -19999 QUIT - - diff --git a/bwbtest/NBS2X/E033.run b/bwbtest/NBS2X/E033.run deleted file mode 100644 index b5b988d..0000000 --- a/bwbtest/NBS2X/E033.run +++ /dev/null @@ -1,29 +0,0 @@ -TESTING COS() -RADIAN COS()= .707107 -DEGREE COS()= .707107 -TESTING COS() -RADIAN SIN()= .707107 -DEGREE SIN()= .707107 -TESTING TAN() -RADIAN TAN()= 1. -DEGREE TAN()= 1. -TESTING SEC() -RADIAN SEC()= 1.41421 -DEGREE SEC()= 1.41421 -TESTING CSC() -RADIAN CSC()= 1.41421 -DEGREE CSC()= 1.41421 -TESTING COT() -RADIAN COT()= 1. -DEGREE COT()= 1. -TESTING COS() -RADIAN ACOS()= .785398 -DEGREE ACOS()= 45 -TESTING ASIN() -RADIAN ASIN()= .785398 -DEGREE ASIN()= 45 -TESTING ATN() -RADIAN ATN()= .785398 -DEGREE ATN()= 45 -*** ALL TESTS PASSED *** - diff --git a/bwbtest/NBS2X/E034.BAS b/bwbtest/NBS2X/E034.BAS deleted file mode 100644 index 03eabcf..0000000 --- a/bwbtest/NBS2X/E034.BAS +++ /dev/null @@ -1,16 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: option2.bas -00120 REM PURPOSE: Verify OPTION ARITHMETIC DECIMAL/NATIVE/FIXED -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 9th, 2014 -00150 REM NOTE: These commands are parsed but have no effect -00160 REM ---------------------------------------------------- -01000 option arithmetic decimal -02000 option arithmetic native -03000 option arithmetic fixed -19900 REM ---------------------------------------------------- -19910 REM *** ALL TESTS PASSED *** -19920 REM ---------------------------------------------------- -19930 PRINT "*** ALL TESTS PASSED ***" -19999 QUIT - diff --git a/bwbtest/NBS2X/E034.run b/bwbtest/NBS2X/E034.run deleted file mode 100644 index 2e4c19f..0000000 --- a/bwbtest/NBS2X/E034.run +++ /dev/null @@ -1,2 +0,0 @@ -*** ALL TESTS PASSED *** - diff --git a/bwbtest/NBS2X/E035.BAS b/bwbtest/NBS2X/E035.BAS deleted file mode 100644 index d427388..0000000 --- a/bwbtest/NBS2X/E035.BAS +++ /dev/null @@ -1,12 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: ucase1.bas -00120 REM PURPOSE: Verify UCASE$() -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 15th, 2014 -00150 REM ---------------------------------------------------- -01100 let a$ = "aaaaa" -01110 let u$ = ucase$(a$) -01120 if u$ <> "AAAAA" then print "UCASE$() FAILED": ERROR 1 -01130 print "*** TEST PASSED ***" -09999 QUIT - diff --git a/bwbtest/NBS2X/E035.run b/bwbtest/NBS2X/E035.run deleted file mode 100644 index 6189b88..0000000 --- a/bwbtest/NBS2X/E035.run +++ /dev/null @@ -1,2 +0,0 @@ -*** TEST PASSED *** - diff --git a/bwbtest/NBS2X/E036.BAS b/bwbtest/NBS2X/E036.BAS deleted file mode 100644 index f6e0267..0000000 --- a/bwbtest/NBS2X/E036.BAS +++ /dev/null @@ -1,9 +0,0 @@ -100 let i = 0 -110 repeat -120 print "i="; i -130 let i = i + 1 -140 until i > 4 -150 print "i="; i -160 if i <> 5 then ERROR 1 -170 print "*** TEST PASSED ***" -999 QUIT diff --git a/bwbtest/NBS2X/E036.run b/bwbtest/NBS2X/E036.run deleted file mode 100644 index a1ec404..0000000 --- a/bwbtest/NBS2X/E036.run +++ /dev/null @@ -1,8 +0,0 @@ -i= 0 -i= 1 -i= 2 -i= 3 -i= 4 -i= 5 -*** TEST PASSED *** - diff --git a/bwbtest/NBS2X/E037.BAS b/bwbtest/NBS2X/E037.BAS deleted file mode 100644 index 4b4c831..0000000 --- a/bwbtest/NBS2X/E037.BAS +++ /dev/null @@ -1,9 +0,0 @@ -100 let i = 0 -110 while i < 5 -120 print "i="; i -130 let i = i + 1 -140 wend -150 print "i="; i -160 if i <> 5 then ERROR 1 -170 print "*** TEST PASSED ***" -999 QUIT diff --git a/bwbtest/NBS2X/E037.run b/bwbtest/NBS2X/E037.run deleted file mode 100644 index a1ec404..0000000 --- a/bwbtest/NBS2X/E037.run +++ /dev/null @@ -1,8 +0,0 @@ -i= 0 -i= 1 -i= 2 -i= 3 -i= 4 -i= 5 -*** TEST PASSED *** - diff --git a/bwbtest/NBS2X/E038.BAS b/bwbtest/NBS2X/E038.BAS deleted file mode 100644 index 2832a73..0000000 --- a/bwbtest/NBS2X/E038.BAS +++ /dev/null @@ -1,15 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: chain1.bas -00120 REM PURPOSE: Verify CHAIN -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 10th, 2014 -00160 REM ---------------------------------------------------- -01000 COMMON X$ -01010 X$ = "abcdef" -01020 let A$ = "E038.CHN" -01030 chain "E038.CHN" -03000 REM ---------------------------------------------------- -03010 REM If we get to here, then the CHAIN failed -03020 REM ---------------------------------------------------- -03030 ERROR 1 -03040 STOP diff --git a/bwbtest/NBS2X/E038.CHN b/bwbtest/NBS2X/E038.CHN deleted file mode 100644 index 1c0dc43..0000000 --- a/bwbtest/NBS2X/E038.CHN +++ /dev/null @@ -1,25 +0,0 @@ -02000 REM ---------------------------------------------------- -02010 REM FILENAME: chain1.txt -02020 REM PURPOSE: Verify CHAIN -02030 REM AUTHOR: Howard Wulf AF5NE -02040 REM DATE: October 10th, 2014 -02050 REM ---------------------------------------------------- -02060 REM This file is chained by "chain1.bas" -02070 REM -02080 PRINT "Inside E038.CHN" -02090 PRINT "X$="; X$ -02100 if X$ <> "abcdef" then goto TestFailed -02110 print "A$="; A$ -02120 if A$ <> "" then goto TestFailed -02130 print "*** TEST #1 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E038.run b/bwbtest/NBS2X/E038.run deleted file mode 100644 index 0584742..0000000 --- a/bwbtest/NBS2X/E038.run +++ /dev/null @@ -1,5 +0,0 @@ -Inside E038.CHN -X$=abcdef -A$= -*** TEST #1 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E039.BAS b/bwbtest/NBS2X/E039.BAS deleted file mode 100644 index d16ad4c..0000000 --- a/bwbtest/NBS2X/E039.BAS +++ /dev/null @@ -1,15 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: chain2.bas -00120 REM PURPOSE: Verify CHAIN -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 10th, 2014 -00160 REM ---------------------------------------------------- -01000 COMMON X$ -01010 X$ = "abcdef" -01020 let A$ = "E039.CHN" -01030 chain A$ -03000 REM ---------------------------------------------------- -03010 REM If we get to here, then the CHAIN failed -03020 REM ---------------------------------------------------- -03030 ERROR 1 -03040 STOP diff --git a/bwbtest/NBS2X/E039.CHN b/bwbtest/NBS2X/E039.CHN deleted file mode 100644 index d0aef40..0000000 --- a/bwbtest/NBS2X/E039.CHN +++ /dev/null @@ -1,25 +0,0 @@ -02000 REM ---------------------------------------------------- -02010 REM FILENAME: chain2.txt -02020 REM PURPOSE: Verify CHAIN -02030 REM AUTHOR: Howard Wulf AF5NE -02040 REM DATE: October 10th, 2014 -02050 REM ---------------------------------------------------- -02060 REM This file is chained by "chain2.bas" -02070 REM -02080 PRINT "Inside E039.CHN" -02090 PRINT "X$="; X$ -02100 if X$ <> "abcdef" then goto TestFailed -02110 print "A$="; A$ -02120 if A$ <> "" then goto TestFailed -02130 print "*** TEST #1 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E039.run b/bwbtest/NBS2X/E039.run deleted file mode 100644 index 678e498..0000000 --- a/bwbtest/NBS2X/E039.run +++ /dev/null @@ -1,5 +0,0 @@ -Inside E039.CHN -X$=abcdef -A$= -*** TEST #1 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E040.BAS b/bwbtest/NBS2X/E040.BAS deleted file mode 100644 index 045e7ee..0000000 --- a/bwbtest/NBS2X/E040.BAS +++ /dev/null @@ -1,12 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: chain3.bas -00120 REM PURPOSE: Verify CHAIN -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 10th, 2014 -00160 REM ---------------------------------------------------- -01030 chain "E040.CHN" -03000 REM ---------------------------------------------------- -03010 REM If we get to here, then the CHAIN failed -03020 REM ---------------------------------------------------- -03030 ERROR 1 -03040 STOP diff --git a/bwbtest/NBS2X/E040.CHN b/bwbtest/NBS2X/E040.CHN deleted file mode 100644 index f000260..0000000 --- a/bwbtest/NBS2X/E040.CHN +++ /dev/null @@ -1,25 +0,0 @@ -02000 REM ---------------------------------------------------- -02010 REM FILENAME: chain3.txt -02020 REM PURPOSE: Verify CHAIN -02030 REM AUTHOR: Howard Wulf AF5NE -02040 REM DATE: October 10th, 2014 -02050 REM ---------------------------------------------------- -02060 REM This file is chained by "chain3.bas" -02070 REM -02080 PRINT "Inside E040.CHN" -02090 PRINT "X$="; X$ -02100 if X$ <> "" then goto TestFailed -02110 print "A$="; A$ -02120 if A$ <> "" then goto TestFailed -02130 print "*** TEST #1 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E040.run b/bwbtest/NBS2X/E040.run deleted file mode 100644 index cb9a272..0000000 --- a/bwbtest/NBS2X/E040.run +++ /dev/null @@ -1,5 +0,0 @@ -Inside E040.CHN -X$= -A$= -*** TEST #1 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E041.BAS b/bwbtest/NBS2X/E041.BAS deleted file mode 100644 index cd6199d..0000000 --- a/bwbtest/NBS2X/E041.BAS +++ /dev/null @@ -1,57 +0,0 @@ -0010 REM ------------------------- -0020 REM Filename: bug3.bas -0030 REM Purpose: Verify bug #3 -0040 REM ------------------------- -0100 REM #3 Nested DO LOOP -0105 REM ERROR in line 1280: in bwb_loop(): exec stack code != EXEC_DO -0110 REM ------------------------- -0120 REM Status: open -0130 REM Owner: nobody -0140 REM Labels: None -0150 REM Priority: 5 -0160 REM Updated: 2009-12-28 -0170 REM Created: 2009-12-28 -0180 REM Creator:Ahmad Hawwash -0190 REM Private: No -0200 REM ------------------------- -1000 DO -1010 T = 1 -1020 PRINT "Guess a Number 1-100" -1030 N = INT(RND(1) * 100) + 1 -N = 40 -1040 PRINT N -1050 DO -1060 PRINT "Trial "; T -1070 INPUT G -1080 IF G = N THEN -1090 PRINT "Correct" -1100 PRINT "You Won!" -1110 EXIT DO -1120 ELSE -1130 PRINT "Wrong" -1140 IF T = 10 THEN -1150 PRINT "You Lose!" -1160 EXIT DO -1170 ELSE -1180 IF N < G THEN -1190 PRINT "Try Smaller" -1200 ELSE -1210 PRINT "TRY Bigger" -1220 END IF -1230 END IF -1240 END IF -1250 T = T + 1 -1260 LOOP -1270 INPUT "Do you want to play again";A$ -1280 LOOP UNTIL A$<>"Y" AND A$<>"y" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E041.INP b/bwbtest/NBS2X/E041.INP deleted file mode 100644 index df94cea..0000000 --- a/bwbtest/NBS2X/E041.INP +++ /dev/null @@ -1,8 +0,0 @@ -30 -50 -40 -y -30 -50 -40 -n diff --git a/bwbtest/NBS2X/E041.run b/bwbtest/NBS2X/E041.run deleted file mode 100644 index 123f8ec..0000000 --- a/bwbtest/NBS2X/E041.run +++ /dev/null @@ -1,31 +0,0 @@ -Guess a Number 1-100 - 40 -Trial 1 -? 30 -Wrong -TRY Bigger -Trial 2 -? 50 -Wrong -Try Smaller -Trial 3 -? 40 -Correct -You Won! -Do you want to play again? y -Guess a Number 1-100 - 40 -Trial 1 -? 30 -Wrong -TRY Bigger -Trial 2 -? 50 -Wrong -Try Smaller -Trial 3 -? 40 -Correct -You Won! -Do you want to play again? n -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E042.BAS b/bwbtest/NBS2X/E042.BAS deleted file mode 100644 index 9ceffac..0000000 --- a/bwbtest/NBS2X/E042.BAS +++ /dev/null @@ -1,15 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: common1.bas -00120 REM PURPOSE: Verify COMMON -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 10th, 2014 -00160 REM ---------------------------------------------------- -01000 COMMON X$, Z -01010 X$ = "abcdef" -01020 Z = 1.2345 -01030 chain "E042.CHN" -03000 REM ---------------------------------------------------- -03010 REM If we get to here, then the CHAIN failed -03020 REM ---------------------------------------------------- -03030 ERROR 1 -03040 STOP diff --git a/bwbtest/NBS2X/E042.CHN b/bwbtest/NBS2X/E042.CHN deleted file mode 100644 index 46addd0..0000000 --- a/bwbtest/NBS2X/E042.CHN +++ /dev/null @@ -1,25 +0,0 @@ -02000 REM ---------------------------------------------------- -02010 REM FILENAME: common1.txt -02020 REM PURPOSE: Verify CHAIN -02030 REM AUTHOR: Howard Wulf AF5NE -02040 REM DATE: October 10th, 2014 -02050 REM ---------------------------------------------------- -02060 REM This file is chained by "common1.bas" -02070 REM -02080 PRINT "Inside E042.CHN" -02090 PRINT "X$="; X$ -02100 if X$ <> "abcdef" then goto TestFailed -02110 PRINT "Z="; Z -02120 if Z <> 1.2345 then goto TestFailed -02130 print "*** TEST #1 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E042.run b/bwbtest/NBS2X/E042.run deleted file mode 100644 index 0e53000..0000000 --- a/bwbtest/NBS2X/E042.run +++ /dev/null @@ -1,5 +0,0 @@ -Inside E042.CHN -X$=abcdef -Z= 1.2345 -*** TEST #1 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E043.BAS b/bwbtest/NBS2X/E043.BAS deleted file mode 100644 index 9d09cdf..0000000 --- a/bwbtest/NBS2X/E043.BAS +++ /dev/null @@ -1,30 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: merge1.bas -00120 REM PURPOSE: Verify MERGE -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: October 10th, 2014 -00160 REM ---------------------------------------------------- -01000 let f$ = "E043.MRG" -01010 delete 2000-2090 -01020 merge f$ -01030 REM ---------------------------------------------------- -01040 REM Lines 02000 thru 02090 are replaced by the merged file -01050 REM ---------------------------------------------------- -02000 ERROR 1 -02010 ERROR 1 -02020 ERROR 1 -02030 ERROR 1 -02040 ERROR 1 -02050 ERROR 1 -02060 ERROR 1 -02070 ERROR 1 -02080 ERROR 1 -02090 ERROR 1 -03000 REM ---------------------------------------------------- -03010 REM If we get to here, then the merge failed -03020 REM ---------------------------------------------------- -03030 ERROR 1 -03040 STOP -09900 REM ---------------------------------------------------- -09910 PRINT "*** ALL TESTS PASSED ***" -09920 END diff --git a/bwbtest/NBS2X/E043.MRG b/bwbtest/NBS2X/E043.MRG deleted file mode 100644 index 4f74832..0000000 --- a/bwbtest/NBS2X/E043.MRG +++ /dev/null @@ -1,10 +0,0 @@ -02000 REM ---------------------------------------------------- -02010 REM FILENAME: merge1.txt -02020 REM PURPOSE: Verify MERGE -02030 REM AUTHOR: Howard Wulf AF5NE -02040 REM DATE: October 10th, 2014 -02050 REM ---------------------------------------------------- -02060 REM This file is merged by "merge1.bas" -02070 REM -02080 PRINT "Inside E043.MRG" -02090 GOTO 09900 diff --git a/bwbtest/NBS2X/E043.run b/bwbtest/NBS2X/E043.run deleted file mode 100644 index 6e280e5..0000000 --- a/bwbtest/NBS2X/E043.run +++ /dev/null @@ -1,2 +0,0 @@ -Inside E043.MRG -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E044.BAS b/bwbtest/NBS2X/E044.BAS deleted file mode 100644 index 5c05220..0000000 --- a/bwbtest/NBS2X/E044.BAS +++ /dev/null @@ -1,9 +0,0 @@ -120 open "I", #7, "E044.DAT" -130 let b$ = input$( 17, #7 ) -140 print b$; len( b$ ) -145 if b$ <> "this is the first" then - ERROR 1 - end if -150 close #7 -160 print "*** TEST PASSED ***" -999 END diff --git a/bwbtest/NBS2X/E044.run b/bwbtest/NBS2X/E044.run deleted file mode 100644 index 091cc03..0000000 --- a/bwbtest/NBS2X/E044.run +++ /dev/null @@ -1,2 +0,0 @@ -this is the first 17 -*** TEST PASSED *** diff --git a/bwbtest/NBS2X/E045-OLD.BAS b/bwbtest/NBS2X/E045-OLD.BAS deleted file mode 100644 index c06db55..0000000 --- a/bwbtest/NBS2X/E045-OLD.BAS +++ /dev/null @@ -1,16 +0,0 @@ -100 rem -110 on error goto 800 -120 label1: -130 error 1 -140 label2: -150 stop -800 rem -810 print "ERL=";ERL -820 print "label1=";label1 -830 print "label2=";label2 -840 if ERL > label1 AND ERL < label2 THEN -850 print "*** TEST PASSED ***" -860 goto 999 -870 end if -880 stop -999 end diff --git a/bwbtest/NBS2X/E045.BAS b/bwbtest/NBS2X/E045.BAS deleted file mode 100644 index 9c05770..0000000 --- a/bwbtest/NBS2X/E045.BAS +++ /dev/null @@ -1,16 +0,0 @@ -100 rem -110 on error goto 800 -120 label1: -130 error 1 -140 label2: -150 stop -800 rem -810 print "ERL=";ERL,"ERR$=";ERR$ -820 print "label1=";label1 -830 print "label2=";label2 -840 if ERL > label1 AND ERL < label2 THEN -850 print "*** TEST PASSED ***" -860 goto 999 -870 end if -880 stop -999 end diff --git a/bwbtest/NBS2X/E045.run b/bwbtest/NBS2X/E045.run deleted file mode 100644 index e07ff39..0000000 --- a/bwbtest/NBS2X/E045.run +++ /dev/null @@ -1,4 +0,0 @@ -ERL= 130 ERR$=NEXT without FOR -label1= 120 -label2= 140 -*** TEST PASSED *** diff --git a/bwbtest/NBS2X/E046.BAS b/bwbtest/NBS2X/E046.BAS deleted file mode 100644 index 57cf66a..0000000 --- a/bwbtest/NBS2X/E046.BAS +++ /dev/null @@ -1,54 +0,0 @@ -1000 rem ------------------------------------------ -1010 rem Filename: cvs1.bas -1020 rem Purpose: Verify CVS() and MKS$() -1100 rem ------------------------------------------ -1120 A = 0.0001 -1130 B$ = MKS$( A ) -1140 C = CVS( B$ ) -1150 R = A / C -1160 if R < 0.99 then goto TestFailed -1170 if R > 1.01 then goto TestFailed -1180 print "*** TEST #1 PASSED ***" -1200 rem ------------------------------------------ -1220 A = -0.0001 -1230 B$ = MKS$( A ) -1240 C = CVS( B$ ) -1250 R = A / C -1260 if R < 0.99 then goto TestFailed -1270 if R > 1.01 then goto TestFailed -1280 print "*** TEST #2 PASSED ***" -1300 rem ------------------------------------------ -1320 A = 123456789 -1330 B$ = MKS$( A ) -1340 C = CVS( B$ ) -1350 R = A / C -1360 if R < 0.99 then goto TestFailed -1370 if R > 1.01 then goto TestFailed -1380 print "*** TEST #3 PASSED ***" -1400 rem ------------------------------------------ -1420 A = -123456789 -1430 B$ = MKS$( A ) -1440 C = CVS( B$ ) -1450 R = A / C -1460 if R < 0.99 then goto TestFailed -1470 if R > 1.01 then goto TestFailed -1480 print "*** TEST #4 PASSED ***" -1500 rem ------------------------------------------ -1520 A = 0 -1530 B$ = MKS$( A ) -1540 C = CVS( B$ ) -1570 if C <> 0 then goto TestFailed -1580 print "*** TEST #5 PASSED ***" -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8522 print "A="; A -8524 print "C="; C -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/E046.run b/bwbtest/NBS2X/E046.run deleted file mode 100644 index 87227e4..0000000 --- a/bwbtest/NBS2X/E046.run +++ /dev/null @@ -1,6 +0,0 @@ -*** TEST #1 PASSED *** -*** TEST #2 PASSED *** -*** TEST #3 PASSED *** -*** TEST #4 PASSED *** -*** TEST #5 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E047.BAS b/bwbtest/NBS2X/E047.BAS deleted file mode 100644 index c47b404..0000000 --- a/bwbtest/NBS2X/E047.BAS +++ /dev/null @@ -1,11 +0,0 @@ -010 rem verify ERR and ERL -100 on error goto 900 -110 error 1 -120 error 2 -130 error 3 -140 end -900 rem Error Handler -910 print "ERR="; ERR -920 print "ERL="; ERL -930 resume next -940 end diff --git a/bwbtest/NBS2X/E047.run b/bwbtest/NBS2X/E047.run deleted file mode 100644 index 20839a7..0000000 --- a/bwbtest/NBS2X/E047.run +++ /dev/null @@ -1,6 +0,0 @@ -ERR= 1 -ERL= 110 -ERR= 2 -ERL= 120 -ERR= 3 -ERL= 130 diff --git a/bwbtest/NBS2X/E048.BAS b/bwbtest/NBS2X/E048.BAS deleted file mode 100644 index 3b17fec..0000000 --- a/bwbtest/NBS2X/E048.BAS +++ /dev/null @@ -1,10 +0,0 @@ -00100 REM ---------------------------------------------------- -00110 REM FILENAME: E048.BAS -00120 REM PURPOSE: Verify DELETE -00130 REM AUTHOR: Howard Wulf AF5NE -00140 REM DATE: June 12th, 2015 -00150 REM ---------------------------------------------------- -01000 PRINT "LINE 02000 SHOULD NOT CAUSE A FATAL ERROR" -02000 DELETE 3000 -09000 PRINT "*** TEST PASSED ***" -09999 END diff --git a/bwbtest/NBS2X/E048.run b/bwbtest/NBS2X/E048.run deleted file mode 100644 index 22e42b1..0000000 --- a/bwbtest/NBS2X/E048.run +++ /dev/null @@ -1,2 +0,0 @@ -LINE 02000 SHOULD NOT CAUSE A FATAL ERROR -*** TEST PASSED *** diff --git a/bwbtest/NBS2X/E049.BAS b/bwbtest/NBS2X/E049.BAS deleted file mode 100644 index 5db7862..0000000 --- a/bwbtest/NBS2X/E049.BAS +++ /dev/null @@ -1,10 +0,0 @@ -010 rem verify MID$ command -100 let a$ = "123456789" -110 mid$( a$, 3, 4 ) = "abcd" -120 print a$ -130 if a$ = "12abcd789" then -140 PRINT "*** TEST PASSED ***" -150 else -160 PRINT "*** TEST PASSED ***" -170 end if -999 END diff --git a/bwbtest/NBS2X/E049.run b/bwbtest/NBS2X/E049.run deleted file mode 100644 index ba4bb19..0000000 --- a/bwbtest/NBS2X/E049.run +++ /dev/null @@ -1,2 +0,0 @@ -12abcd789 -*** TEST PASSED *** diff --git a/bwbtest/NBS2X/E050.BAS b/bwbtest/NBS2X/E050.BAS deleted file mode 100644 index 00b361d..0000000 --- a/bwbtest/NBS2X/E050.BAS +++ /dev/null @@ -1,81 +0,0 @@ -REM verify structured FUNCTION - END FUNCTION -REM HOWARD WULF, AF5NE -REM -PRINT "BEFORE FUNCTION DEFINITIONS" -FUNCTION TOM( X ) - PRINT "ENTER TOM" - PRINT "X=";X - REM verify the function name is a variable in the explicit LET command - LET TOM = 1 - PRINT "EXIT TOM" -END FUNCTION -FUNCTION JERRY( X ) - PRINT "ENTER JERRY" - PRINT "X=";X - REM verify the function name is a variable in the implied LET command - JERRY = 2 - PRINT "EXIT JERRY" -END FUNCTION -PRINT "AFTER FUNCTION DEFINITIONS" -REM verify use as a function -LET X = TOM( 11 ) -PRINT "X=";X -IF X <> 1 THEN - PRINT "*** TEST FAILED ***" - STOP -END IF -REM verify use as a subroutine -TOM 12 -REM verify use as a function -LET X = JERRY( 13 ) -PRINT "X=";X -IF X <> 2 THEN - PRINT "*** TEST FAILED ***" - STOP -END IF -REM verify use as a subroutine -JERRY 14 -REM verify use as a function -LET X = TOM( 15 ) + JERRY( 16 ) -PRINT "X=";X -IF X <> 3 THEN - PRINT "*** TEST FAILED ***" - STOP -END IF -REM verify use as a subroutine with function -TOM JERRY( 17 ) -REM verify use as a subroutine with function -JERRY TOM( 18 ) -REM verify use as a function -LET X = TOM( JERRY( 19 ) ) -PRINT "X=";X -IF X <> 1 THEN - PRINT "*** TEST FAILED ***" - STOP -END IF -REM verify use as a function -LET X = JERRY( TOM( 20 ) ) -PRINT "X=";X -IF X <> 2 THEN - PRINT "*** TEST FAILED ***" - STOP -END IF -REM verify use as a subroutine calling itself as a parameter -TOM TOM( 21 ) -REM verify use as a subroutine calling itself as a parameter -JERRY JERRY( 22 ) -REM verify use as a function calling itself as a parameter -LET X = TOM( TOM( 23 ) ) -IF X <> 1 THEN - PRINT "*** TEST FAILED ***" - STOP -END IF -REM verify use as a function calling itself as a parameter -LET X = JERRY( JERRY( 24 ) ) -IF X <> 2 THEN - PRINT "*** TEST FAILED ***" - STOP -END IF -REM -PRINT "*** TEST PASSED ***" -END diff --git a/bwbtest/NBS2X/E050.run b/bwbtest/NBS2X/E050.run deleted file mode 100644 index 9917223..0000000 --- a/bwbtest/NBS2X/E050.run +++ /dev/null @@ -1,74 +0,0 @@ -BEFORE FUNCTION DEFINITIONS -AFTER FUNCTION DEFINITIONS -ENTER TOM -X= 11 -EXIT TOM -X= 1 -ENTER TOM -X= 12 -EXIT TOM -ENTER JERRY -X= 13 -EXIT JERRY -X= 2 -ENTER JERRY -X= 14 -EXIT JERRY -ENTER TOM -X= 15 -EXIT TOM -ENTER JERRY -X= 16 -EXIT JERRY -X= 3 -ENTER JERRY -X= 17 -EXIT JERRY -ENTER TOM -X= 2 -EXIT TOM -ENTER TOM -X= 18 -EXIT TOM -ENTER JERRY -X= 1 -EXIT JERRY -ENTER JERRY -X= 19 -EXIT JERRY -ENTER TOM -X= 2 -EXIT TOM -X= 1 -ENTER TOM -X= 20 -EXIT TOM -ENTER JERRY -X= 1 -EXIT JERRY -X= 2 -ENTER TOM -X= 21 -EXIT TOM -ENTER TOM -X= 1 -EXIT TOM -ENTER JERRY -X= 22 -EXIT JERRY -ENTER JERRY -X= 2 -EXIT JERRY -ENTER TOM -X= 23 -EXIT TOM -ENTER TOM -X= 1 -EXIT TOM -ENTER JERRY -X= 24 -EXIT JERRY -ENTER JERRY -X= 2 -EXIT JERRY -*** TEST PASSED *** diff --git a/bwbtest/NBS2X/E051.BAS b/bwbtest/NBS2X/E051.BAS deleted file mode 100644 index cc0ddab..0000000 --- a/bwbtest/NBS2X/E051.BAS +++ /dev/null @@ -1,109 +0,0 @@ -rem ---------------------------------------------------- -rem Filename: call1.bas -rem Purpose: Verify CALL -rem ---------------------------------------------------- - -Print "CallSub.BAS -- Test BASIC Call and Sub Statements" -Print "The next printed line should be from the Subroutine." -Print -x = 5 -a$ = "Hello" -y = 17 -b$ = "There" -z = 77 -Call TestSub( x, a$, y) - -Print -Print "This is back at the main program. " -Print "The value of variable is now "; testvar - -Print "Did it work?" - -rem Verify SUB parameters are local to the subroutine -if x <> 5 then - print "Subroutine modified x" - goto TestFailed -end if - -if a$ <> "Hello" then - print "Subroutine modified a$" - goto TestFailed -end if - -if y <> 17 then - print "Subroutine modified y" - goto TestFailed -end if - -rem Verify GLOBAL variable parameters are updated - -if b$ <> "Fromsub" then - print "Subroutine did not modify b$" - goto TestFailed -end if - -if z <> 21 then - print "Subroutine did not modify z" - goto TestFailed -end if - - -goto TestPassed - -rem ---------------------------------------------------- -rem Subroutine TestSub -rem ---------------------------------------------------- - -Sub TestSub( xarg, yarg$, tvar ) - Print "This is written from the Subroutine." - Print "The value of variable is"; xarg - Print "The value of variable is "; yarg$ - Print "The value of variable is"; tvar - - rem Verify expected parameter values - if xarg <> 5 then - print "xarg is wrong"; xarg - goto TestFailed - end if - - if yarg$ <> "Hello" then - print "yarg$ is wrong [";yarg$;"]" - goto TestFailed - end if - - if tvar <> 17 then - print "tvar is wrong"; tvar, tvar - 17 - goto TestFailed - end if - - REM exit sub - - rem Assign values to subroutine parameters - xarg = -1 - yarg$ = "N/A" - tvar = 99 - - Print "The value of variable is reset to "; tvar - - rem Modify GLOBAL variables - b$ = "Fromsub" - z = 21 - - print "Exiting Subroutine" -End Sub - -print "*** END SUB FAILED ***" -goto TestFailed -STOP -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end - diff --git a/bwbtest/NBS2X/E051.run b/bwbtest/NBS2X/E051.run deleted file mode 100644 index 6ec35ca..0000000 --- a/bwbtest/NBS2X/E051.run +++ /dev/null @@ -1,14 +0,0 @@ -CallSub.BAS -- Test BASIC Call and Sub Statements -The next printed line should be from the Subroutine. - -This is written from the Subroutine. -The value of variable is 5 -The value of variable is Hello -The value of variable is 17 -The value of variable is reset to 99 -Exiting Subroutine - -This is back at the main program. -The value of variable is now 0 -Did it work? -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E052.BAS b/bwbtest/NBS2X/E052.BAS deleted file mode 100644 index 161382d..0000000 --- a/bwbtest/NBS2X/E052.BAS +++ /dev/null @@ -1,12 +0,0 @@ -010 REM functionw with many parameters -020 REM Howard Wulf, AF5NE -030 REM -110 function tom( a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z ) -120 print "a=";a -130 print "z=";z -140 tom = a + z -150 end function -160 rem -170 az = tom( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26 ) -180 print "az=";az -999 end diff --git a/bwbtest/NBS2X/E052.run b/bwbtest/NBS2X/E052.run deleted file mode 100644 index e37ceb1..0000000 --- a/bwbtest/NBS2X/E052.run +++ /dev/null @@ -1,3 +0,0 @@ -a= 1 -z= 26 -az= 27 diff --git a/bwbtest/NBS2X/E053.BAS b/bwbtest/NBS2X/E053.BAS deleted file mode 100644 index 86ca193..0000000 --- a/bwbtest/NBS2X/E053.BAS +++ /dev/null @@ -1,44 +0,0 @@ -REM function overloading with mqany parameters -REM Howard Wulf, AF5NE -REM -function tom( a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z ) - print "a=";a - print "z=";z - tom = a + z -end function - -function tom( a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, a27, a28, a29, a30, a31, a32 ) - print "a=";a - print "a32=";a32 - tom = a + a32 -end function - -function tom( a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z$ ) - print "a=";a - print "z$=";z$ - tom = a + y -end function - -function tom( a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, a27, a28, a29, a30, a31, a32$ ) - print "a=";a - print "a32$=";a32$ - tom = a + a31 -end function - - -rem -az = tom( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26 ) -print "az=";az -rem -az = tom( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,"X" ) -print "az=";az -rem -az = tom( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 ) -print "az=";az -rem -az = tom( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,"A" ) -print "az=";az - - - -end diff --git a/bwbtest/NBS2X/E053.run b/bwbtest/NBS2X/E053.run deleted file mode 100644 index 6b88a44..0000000 --- a/bwbtest/NBS2X/E053.run +++ /dev/null @@ -1,12 +0,0 @@ -a= 1 -z= 26 -az= 27 -a= 1 -z$=X -az= 26 -a= 1 -a32= 32 -az= 33 -a= 1 -a32$=A -az= 32 diff --git a/bwbtest/NBS2X/E054.BAS b/bwbtest/NBS2X/E054.BAS deleted file mode 100644 index 17e845d..0000000 --- a/bwbtest/NBS2X/E054.BAS +++ /dev/null @@ -1,122 +0,0 @@ -REM PURPOSE: Verify function overloading, variant functions, and related items. -REM AUTHOR: Howard Wulf, AF5NE -REM DATE: 2015-01-23 -REM -REM ---------------------------------------------------------------------------------------------- -REM -REM Verify function overloading with mqany parameters. -REM Functions are selected based upon the number of parameters and the type of each parameter. -REM Verify variant function can co-exist with normal functions. -REM Variant functions are declared using (...) instead of typical variable names. -REM Verify variant is only called when there is not a matching normal function. -REM Variant functions are NOT called is there is a matching normal function. -REM Verify ARGC, ARGT, ARGV, and ARGV$ functions. -REM These are used to extract the parameter information for variant functions. -REM -REM ---------------------------------------------------------------------------------------------- -REM -function tom( ... ) - REM This is a variant function. The BASIC program must determine: - REM the number of parameters (ARGC) - REM the type of each parameter (ARGT$) - REM the value of each parameter (using ARGV or ARGV$ depending upon ARGT) - REM - print "VARIANT" - let N = ARGC - print "ARGC=";N - FOR I = 1 TO N - LET T$ = ARGT$( I ) - PRINT "PARAMETER";I;"TYPE ";T$;" "; - if T$ = "$" THEN - let A$ = ARGV$( I ) - PRINT "IS A STRING WITH THE VALUE ";A$ - elseif T$ = "#" - let N = ARGV( I ) - PRINT "IS A NUMBER WITH THE VALUE ";N - else - print "*** ERROR - INVALID PARAMETER TYPE ***" - end if - NEXT I - tom = 99 -end function -REM -REM ---------------------------------------------------------------------------------------------- -REM -function tom( a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z ) - print "26 numeric" - print "ARGC=";ARGC - print "a=";a - print "z=";z - tom = a + z -end function -REM -REM ---------------------------------------------------------------------------------------------- -REM -function tom( a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, a27, a28, a29, a30, a31, a32 ) - print "32 numeric" - print "ARGC=";ARGC - print "a=";a - print "a32=";a32 - tom = a + a32 -end function -REM -REM ---------------------------------------------------------------------------------------------- -REM -function tom( a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z$ ) - print "26 mixed" - print "ARGC=";ARGC - print "a=";a - print "z$=";z$ - tom = a + y -end function -REM -REM ---------------------------------------------------------------------------------------------- -REM -function tom( a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, a27, a28, a29, a30, a31, a32$ ) - print "32 numeric" - print "ARGC=";ARGC - print "a=";a - print "a32$=";a32$ - tom = a + a31 -end function -REM -REM ---------------------------------------------------------------------------------------------- -REM -rem 26 number parameters -az = tom( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26 ) -print "az=";az -rem 26 mixed parameters -az = tom( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,"X" ) -print "az=";az -rem 32 nuber parameters -az = tom( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 ) -print "az=";az -rem 129 mixed parameters -az = tom( "zaa", 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,"xyz",22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,"anything",28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , "abcdefg" ) -print "az=";az -rem 641 mixed parameters -az = tom( 1, 2, 3, 4, 5, "abc", 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,"jkl",21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 ,"abc" ) -print "az=";az -rem 32 mixed parameters -az = tom( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,"A" ) -print "az=";az -rem 4 number parameters -az = tom( 1,2,3,4 ) -print "az=";az -rem 4 string parameters -az = tom( "a","b","c","d" ) -print "az=";az -rem 32 mixed parameters -az = tom( 1, 2, 3, 4, 5, 6, 7, 8, 9, "a",11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,"z" ) -print "az=";az -rem 0 parameters -az = tom( ) -print "az=";az -rem 0 parameters -az = tom -print "az=";az -rem - print "not in a FUNCTION or SUB, should be -1" - print "ARGC=";ARGC -rem -end diff --git a/bwbtest/NBS2X/E054.run b/bwbtest/NBS2X/E054.run deleted file mode 100644 index 410546b..0000000 --- a/bwbtest/NBS2X/E054.run +++ /dev/null @@ -1,853 +0,0 @@ -26 numeric -ARGC= 26 -a= 1 -z= 26 -az= 27 -26 mixed -ARGC= 26 -a= 1 -z$=X -az= 26 -32 numeric -ARGC= 32 -a= 1 -a32= 32 -az= 33 -VARIANT -ARGC= 129 -PARAMETER 1 TYPE $ IS A STRING WITH THE VALUE zaa -PARAMETER 2 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 3 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 4 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 5 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 6 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 7 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 8 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 9 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 10 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 11 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 12 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 13 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 14 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 15 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 16 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 17 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 18 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 19 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 20 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 21 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 22 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 23 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 24 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 25 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 26 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 27 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 28 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 29 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 30 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 31 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 32 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 33 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 34 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 35 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 36 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 37 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 38 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 39 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 40 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 41 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 42 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 43 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 44 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 45 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 46 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 47 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 48 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 49 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 50 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 51 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 52 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 53 TYPE $ IS A STRING WITH THE VALUE xyz -PARAMETER 54 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 55 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 56 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 57 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 58 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 59 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 60 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 61 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 62 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 63 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 64 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 65 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 66 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 67 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 68 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 69 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 70 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 71 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 72 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 73 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 74 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 75 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 76 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 77 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 78 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 79 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 80 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 81 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 82 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 83 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 84 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 85 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 86 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 87 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 88 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 89 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 90 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 91 TYPE $ IS A STRING WITH THE VALUE anything -PARAMETER 92 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 93 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 94 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 95 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 96 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 97 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 98 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 99 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 100 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 101 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 102 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 103 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 104 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 105 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 106 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 107 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 108 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 109 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 110 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 111 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 112 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 113 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 114 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 115 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 116 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 117 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 118 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 119 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 120 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 121 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 122 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 123 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 124 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 125 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 126 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 127 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 128 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 129 TYPE $ IS A STRING WITH THE VALUE abcdefg -az= 99 -VARIANT -ARGC= 641 -PARAMETER 1 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 2 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 3 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 4 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 5 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 6 TYPE $ IS A STRING WITH THE VALUE abc -PARAMETER 7 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 8 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 9 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 10 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 11 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 12 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 13 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 14 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 15 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 16 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 17 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 18 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 19 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 20 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 21 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 22 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 23 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 24 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 25 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 26 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 27 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 28 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 29 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 30 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 31 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 32 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 33 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 34 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 35 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 36 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 37 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 38 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 39 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 40 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 41 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 42 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 43 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 44 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 45 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 46 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 47 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 48 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 49 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 50 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 51 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 52 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 53 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 54 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 55 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 56 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 57 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 58 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 59 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 60 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 61 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 62 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 63 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 64 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 65 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 66 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 67 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 68 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 69 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 70 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 71 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 72 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 73 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 74 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 75 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 76 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 77 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 78 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 79 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 80 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 81 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 82 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 83 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 84 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 85 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 86 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 87 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 88 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 89 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 90 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 91 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 92 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 93 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 94 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 95 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 96 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 97 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 98 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 99 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 100 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 101 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 102 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 103 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 104 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 105 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 106 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 107 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 108 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 109 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 110 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 111 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 112 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 113 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 114 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 115 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 116 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 117 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 118 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 119 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 120 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 121 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 122 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 123 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 124 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 125 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 126 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 127 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 128 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 129 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 130 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 131 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 132 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 133 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 134 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 135 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 136 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 137 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 138 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 139 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 140 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 141 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 142 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 143 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 144 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 145 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 146 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 147 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 148 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 149 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 150 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 151 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 152 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 153 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 154 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 155 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 156 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 157 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 158 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 159 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 160 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 161 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 162 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 163 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 164 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 165 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 166 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 167 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 168 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 169 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 170 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 171 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 172 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 173 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 174 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 175 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 176 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 177 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 178 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 179 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 180 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 181 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 182 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 183 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 184 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 185 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 186 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 187 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 188 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 189 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 190 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 191 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 192 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 193 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 194 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 195 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 196 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 197 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 198 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 199 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 200 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 201 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 202 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 203 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 204 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 205 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 206 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 207 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 208 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 209 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 210 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 211 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 212 TYPE $ IS A STRING WITH THE VALUE jkl -PARAMETER 213 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 214 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 215 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 216 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 217 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 218 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 219 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 220 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 221 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 222 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 223 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 224 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 225 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 226 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 227 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 228 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 229 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 230 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 231 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 232 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 233 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 234 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 235 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 236 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 237 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 238 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 239 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 240 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 241 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 242 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 243 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 244 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 245 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 246 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 247 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 248 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 249 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 250 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 251 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 252 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 253 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 254 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 255 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 256 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 257 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 258 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 259 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 260 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 261 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 262 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 263 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 264 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 265 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 266 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 267 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 268 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 269 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 270 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 271 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 272 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 273 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 274 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 275 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 276 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 277 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 278 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 279 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 280 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 281 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 282 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 283 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 284 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 285 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 286 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 287 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 288 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 289 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 290 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 291 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 292 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 293 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 294 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 295 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 296 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 297 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 298 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 299 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 300 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 301 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 302 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 303 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 304 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 305 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 306 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 307 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 308 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 309 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 310 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 311 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 312 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 313 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 314 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 315 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 316 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 317 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 318 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 319 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 320 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 321 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 322 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 323 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 324 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 325 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 326 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 327 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 328 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 329 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 330 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 331 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 332 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 333 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 334 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 335 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 336 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 337 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 338 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 339 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 340 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 341 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 342 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 343 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 344 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 345 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 346 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 347 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 348 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 349 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 350 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 351 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 352 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 353 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 354 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 355 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 356 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 357 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 358 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 359 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 360 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 361 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 362 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 363 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 364 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 365 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 366 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 367 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 368 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 369 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 370 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 371 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 372 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 373 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 374 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 375 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 376 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 377 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 378 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 379 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 380 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 381 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 382 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 383 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 384 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 385 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 386 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 387 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 388 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 389 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 390 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 391 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 392 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 393 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 394 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 395 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 396 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 397 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 398 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 399 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 400 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 401 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 402 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 403 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 404 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 405 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 406 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 407 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 408 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 409 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 410 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 411 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 412 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 413 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 414 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 415 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 416 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 417 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 418 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 419 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 420 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 421 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 422 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 423 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 424 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 425 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 426 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 427 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 428 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 429 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 430 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 431 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 432 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 433 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 434 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 435 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 436 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 437 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 438 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 439 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 440 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 441 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 442 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 443 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 444 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 445 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 446 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 447 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 448 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 449 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 450 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 451 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 452 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 453 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 454 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 455 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 456 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 457 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 458 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 459 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 460 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 461 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 462 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 463 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 464 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 465 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 466 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 467 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 468 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 469 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 470 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 471 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 472 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 473 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 474 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 475 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 476 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 477 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 478 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 479 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 480 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 481 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 482 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 483 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 484 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 485 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 486 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 487 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 488 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 489 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 490 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 491 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 492 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 493 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 494 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 495 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 496 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 497 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 498 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 499 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 500 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 501 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 502 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 503 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 504 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 505 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 506 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 507 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 508 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 509 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 510 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 511 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 512 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 513 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 514 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 515 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 516 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 517 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 518 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 519 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 520 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 521 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 522 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 523 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 524 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 525 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 526 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 527 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 528 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 529 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 530 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 531 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 532 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 533 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 534 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 535 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 536 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 537 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 538 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 539 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 540 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 541 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 542 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 543 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 544 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 545 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 546 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 547 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 548 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 549 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 550 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 551 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 552 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 553 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 554 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 555 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 556 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 557 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 558 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 559 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 560 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 561 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 562 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 563 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 564 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 565 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 566 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 567 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 568 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 569 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 570 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 571 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 572 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 573 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 574 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 575 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 576 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 577 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 578 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 579 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 580 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 581 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 582 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 583 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 584 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 585 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 586 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 587 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 588 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 589 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 590 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 591 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 592 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 593 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 594 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 595 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 596 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 597 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 598 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 599 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 600 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 601 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 602 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 603 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 604 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 605 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 606 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 607 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 608 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 609 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 610 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 611 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 612 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 613 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 614 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 615 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 616 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 617 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 618 TYPE # IS A NUMBER WITH THE VALUE 10 -PARAMETER 619 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 620 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 621 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 622 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 623 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 624 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 625 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 626 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 627 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 628 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 629 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 630 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 631 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 632 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 633 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 634 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 635 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 636 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 637 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 638 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 639 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 640 TYPE # IS A NUMBER WITH THE VALUE 32 -PARAMETER 641 TYPE $ IS A STRING WITH THE VALUE abc -az= 99 -32 numeric -ARGC= 32 -a= 1 -a32$=A -az= 32 -VARIANT -ARGC= 4 -PARAMETER 1 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 2 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 3 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 4 TYPE # IS A NUMBER WITH THE VALUE 4 -az= 99 -VARIANT -ARGC= 4 -PARAMETER 1 TYPE $ IS A STRING WITH THE VALUE a -PARAMETER 2 TYPE $ IS A STRING WITH THE VALUE b -PARAMETER 3 TYPE $ IS A STRING WITH THE VALUE c -PARAMETER 4 TYPE $ IS A STRING WITH THE VALUE d -az= 99 -VARIANT -ARGC= 32 -PARAMETER 1 TYPE # IS A NUMBER WITH THE VALUE 1 -PARAMETER 2 TYPE # IS A NUMBER WITH THE VALUE 2 -PARAMETER 3 TYPE # IS A NUMBER WITH THE VALUE 3 -PARAMETER 4 TYPE # IS A NUMBER WITH THE VALUE 4 -PARAMETER 5 TYPE # IS A NUMBER WITH THE VALUE 5 -PARAMETER 6 TYPE # IS A NUMBER WITH THE VALUE 6 -PARAMETER 7 TYPE # IS A NUMBER WITH THE VALUE 7 -PARAMETER 8 TYPE # IS A NUMBER WITH THE VALUE 8 -PARAMETER 9 TYPE # IS A NUMBER WITH THE VALUE 9 -PARAMETER 10 TYPE $ IS A STRING WITH THE VALUE a -PARAMETER 11 TYPE # IS A NUMBER WITH THE VALUE 11 -PARAMETER 12 TYPE # IS A NUMBER WITH THE VALUE 12 -PARAMETER 13 TYPE # IS A NUMBER WITH THE VALUE 13 -PARAMETER 14 TYPE # IS A NUMBER WITH THE VALUE 14 -PARAMETER 15 TYPE # IS A NUMBER WITH THE VALUE 15 -PARAMETER 16 TYPE # IS A NUMBER WITH THE VALUE 16 -PARAMETER 17 TYPE # IS A NUMBER WITH THE VALUE 17 -PARAMETER 18 TYPE # IS A NUMBER WITH THE VALUE 18 -PARAMETER 19 TYPE # IS A NUMBER WITH THE VALUE 19 -PARAMETER 20 TYPE # IS A NUMBER WITH THE VALUE 20 -PARAMETER 21 TYPE # IS A NUMBER WITH THE VALUE 21 -PARAMETER 22 TYPE # IS A NUMBER WITH THE VALUE 22 -PARAMETER 23 TYPE # IS A NUMBER WITH THE VALUE 23 -PARAMETER 24 TYPE # IS A NUMBER WITH THE VALUE 24 -PARAMETER 25 TYPE # IS A NUMBER WITH THE VALUE 25 -PARAMETER 26 TYPE # IS A NUMBER WITH THE VALUE 26 -PARAMETER 27 TYPE # IS A NUMBER WITH THE VALUE 27 -PARAMETER 28 TYPE # IS A NUMBER WITH THE VALUE 28 -PARAMETER 29 TYPE # IS A NUMBER WITH THE VALUE 29 -PARAMETER 30 TYPE # IS A NUMBER WITH THE VALUE 30 -PARAMETER 31 TYPE # IS A NUMBER WITH THE VALUE 31 -PARAMETER 32 TYPE $ IS A STRING WITH THE VALUE z -az= 99 -VARIANT -ARGC= 0 -az= 99 -VARIANT -ARGC= 0 -az= 99 -not in a FUNCTION or SUB, should be -1 -ARGC=-1 diff --git a/bwbtest/NBS2X/E055,run b/bwbtest/NBS2X/E055,run deleted file mode 100644 index 88d0a8b..0000000 --- a/bwbtest/NBS2X/E055,run +++ /dev/null @@ -1,19 +0,0 @@ -Fake INP -x= 1 -Fake OUT -X= 2 -Y= 3 -Fake PEEK -X= 4 -Fake POKE -X= 5 -Y= 6 -Fake WAIT -X= 7 -Y= 8 -Fake WAIT #2 -X= 9 -Y= 10 -Z= 11 -a= 77 -b= 88 diff --git a/bwbtest/NBS2X/E055.BAS b/bwbtest/NBS2X/E055.BAS deleted file mode 100644 index b73f66c..0000000 --- a/bwbtest/NBS2X/E055.BAS +++ /dev/null @@ -1,58 +0,0 @@ -REM PURPOSE: verify user functions supercedes intrinsic function -REM NOTE: they must have the same parameter signature -REM AUTHOR: Howard Wulf, AF5NE -REM DATE: 2014-01-24 -REM -REM Here we replace the functions not implemented on this platform -REM INP(), OUT(), WAIT(), PEEK(), POKE() -REM -let a = INP( 1 ) -OUT 2, 3 -let b = PEEK( 4 ) -POKE 5, 6 -WAIT 7, 8 -WAIT 9, 10, 11 - -print "a=";a -print "b=";b - -goto 999 - -REM --------------------------------------------------------------- -REM Direct hardware access is only supported on CP/M-86 derivatives -REM --------------------------------------------------------------- - -function INP( x ) - print "Fake INP" - print "x=";x - INP = 77 -end function -sub OUT( X, Y ) - print "Fake OUT" - print "X=";X - print "Y=";Y -end sub -sub WAIT( X, Y ) - print "Fake WAIT" - print "X=";X - print "Y=";Y -end sub -sub WAIT( X, Y, Z ) - print "Fake WAIT #2" - print "X=";X - print "Y=";Y - print "Z=";Z -end sub -function PEEK( X ) - print "Fake PEEK" - print "X=";X - PEEK = 88 -end function -sub POKE( X, Y ) - print "Fake POKE" - print "X=";X - print "Y=";Y -end sub -stop - -999 end diff --git a/bwbtest/NBS2X/E055.run b/bwbtest/NBS2X/E055.run deleted file mode 100644 index 88d0a8b..0000000 --- a/bwbtest/NBS2X/E055.run +++ /dev/null @@ -1,19 +0,0 @@ -Fake INP -x= 1 -Fake OUT -X= 2 -Y= 3 -Fake PEEK -X= 4 -Fake POKE -X= 5 -Y= 6 -Fake WAIT -X= 7 -Y= 8 -Fake WAIT #2 -X= 9 -Y= 10 -Z= 11 -a= 77 -b= 88 diff --git a/bwbtest/NBS2X/E056.BAS b/bwbtest/NBS2X/E056.BAS deleted file mode 100644 index 855d7c5..0000000 --- a/bwbtest/NBS2X/E056.BAS +++ /dev/null @@ -1,125 +0,0 @@ -REM PURPOSE: verify user function parameters are range checked -REM AUTHOR: Howard Wulf, AF5NE -REM DATE: 2014-01-26 -REM -REM Here we replace the functions not implemented on this platform -REM INP(), OUT(), WAIT(), PEEK(), POKE() -REM -REM These should succeed without any errors -let a = INP( 1 ) -OUT 2, 3 -let b = PEEK( 4 ) -POKE 5, 6 - -print "a=";a -print "b=";b - -REM These should cause ERROR 5 ' Illegal Function Call -on error goto hell - -REM TEST 1 -let T = 1 -BeforeTest1: -let a = INP( MAXINT + 100000 ) -AfterTest1: - -REM TEST 2 -let T = 2 -BeforeTest2: -let a = INP( MININT - 100000 ) -AfterTest2: - -REM TEST 3 -let T = 3 -BeforeTest3: -let X3 = MAXINT + 100000 -OUT X3, 0 -AfterTest3: - -REM TEST 4 -let T = 4 -BeforeTest4: -let Y4 = MAXINT + 100000 -OUT 0, Y4 -AfterTest4: - -print "*** ALL TESTS PASSED ***" - -goto 999 - - -hell: -if ERR = 5 then - select case T - case 1 - if ERL > BeforeTest1 and ERL < AfterTest1 then - REM This is where we expect the ERROR to occur - print "*** TEST 1 PASSED ***" - else - print "*** TEST 1 FAILED ***" - stop - end if - case 2 - if ERL > BeforeTest2 and ERL < AfterTest2 then - REM This is where we expect the ERROR to occur - print "*** TEST 2 PASSED ***" - else - print "*** TEST 2 FAILED ***" - stop - end if - case 3 - if ERL > BeforeTest3 and ERL < AfterTest3 then - REM This is where we expect the ERROR to occur - print "*** TEST 3 PASSED ***" - else - print "*** TEST 3 FAILED ***" - stop - end if - case 4 - if ERL > BeforeTest4 and ERL < AfterTest4 then - REM This is where we expect the ERROR to occur - print "*** TEST 4 PASSED ***" - else - print "*** TEST 4 FAILED ***" - stop - end if - case else - print "Unexpected TEST code:"; T - print "*** TEST FAILED ***" - stop - end select - resume next -end if -print "Unexpected ERROR code:"; ERR -print "*** TEST FAILED ***" -stop - - - -REM --------------------------------------------------------------- -REM Direct hardware access is only supported on CP/M-86 derivatives -REM --------------------------------------------------------------- - -function INP( X% ) - print "Fake INP" - print "X=";X% - INP = 77 -end function -sub OUT( X%, Y% ) - print "Fake OUT" - print "X=";X% - print "Y=";Y% -end sub -function PEEK( X% ) - print "Fake PEEK" - print "X=";X% - PEEK = 88 -end function -sub POKE( X%, Y% ) - print "Fake POKE" - print "X=";X% - print "Y=";Y% -end sub -stop - -999 end diff --git a/bwbtest/NBS2X/E056.PRO b/bwbtest/NBS2X/E056.PRO deleted file mode 100644 index af14655..0000000 --- a/bwbtest/NBS2X/E056.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION LABELS ON -OPTION BUGS ON diff --git a/bwbtest/NBS2X/E056.run b/bwbtest/NBS2X/E056.run deleted file mode 100644 index be4264b..0000000 --- a/bwbtest/NBS2X/E056.run +++ /dev/null @@ -1,17 +0,0 @@ -Fake INP -X= 1 -Fake OUT -X= 2 -Y= 3 -Fake PEEK -X= 4 -Fake POKE -X= 5 -Y= 6 -a= 77 -b= 88 -*** TEST 1 PASSED *** -*** TEST 2 PASSED *** -*** TEST 3 PASSED *** -*** TEST 4 PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/E057.BAS b/bwbtest/NBS2X/E057.BAS deleted file mode 100644 index afb0d92..0000000 --- a/bwbtest/NBS2X/E057.BAS +++ /dev/null @@ -1,20 +0,0 @@ -100 REM Purpose: Verify ON ERROR GOTO is local to FUNCTION/SUB -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-02-05 -130 REM -140 FUNCTION tom() -150 ON ERROR GOTO HELL -160 ERROR 1 -170 PRINT "*** TEST FAILED ***" -180 STOP -190 HELL: -200 PRINT "*** TEST PASSED ***" -210 END FUNCTION -220 ON ERROR GOTO MAINHELL -240 tom -250 GOTO 900 -260 MAINHELL: -270 PRINT "*** TEST FAILED ***" -280 STOP -900 PRINT "*** TEST PASSED ***" -999 END diff --git a/bwbtest/NBS2X/E057.run b/bwbtest/NBS2X/E057.run deleted file mode 100644 index 745bffb..0000000 --- a/bwbtest/NBS2X/E057.run +++ /dev/null @@ -1,2 +0,0 @@ -*** TEST PASSED *** -*** TEST PASSED *** diff --git a/bwbtest/NBS2X/E058.BAS b/bwbtest/NBS2X/E058.BAS deleted file mode 100644 index 18797b1..0000000 --- a/bwbtest/NBS2X/E058.BAS +++ /dev/null @@ -1,14 +0,0 @@ -100 REM Purpose: Verify CSAVE* -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2014-02-18 -130 REM -200 OPTION BASE 1 -210 DIM A(2,3) -220 FOR I = 1 TO 2 -230 FOR J = 1 TO 3 -240 A(I,J) = I * 10 + J -245 PRINT A(I,J) -250 NEXT J -260 NEXT I -270 CSAVE* A -280 END diff --git a/bwbtest/NBS2X/E058.run b/bwbtest/NBS2X/E058.run deleted file mode 100644 index 89af02d..0000000 --- a/bwbtest/NBS2X/E058.run +++ /dev/null @@ -1,6 +0,0 @@ - 11 - 12 - 13 - 21 - 22 - 23 diff --git a/bwbtest/NBS2X/E059.BAS b/bwbtest/NBS2X/E059.BAS deleted file mode 100644 index 6a86f6b..0000000 --- a/bwbtest/NBS2X/E059.BAS +++ /dev/null @@ -1,13 +0,0 @@ -100 REM Purpose: Verify CLOAD* -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2014-02-18 -130 REM -200 OPTION BASE 1 -210 DIM A(2,3) -215 CLOAD* A -220 FOR I = 1 TO 2 -230 FOR J = 1 TO 3 -240 PRINT A(I,J) -250 NEXT J -260 NEXT I -280 END diff --git a/bwbtest/NBS2X/E059.run b/bwbtest/NBS2X/E059.run deleted file mode 100644 index 89af02d..0000000 --- a/bwbtest/NBS2X/E059.run +++ /dev/null @@ -1,6 +0,0 @@ - 11 - 12 - 13 - 21 - 22 - 23 diff --git a/bwbtest/NBS2X/E060.BAS b/bwbtest/NBS2X/E060.BAS deleted file mode 100644 index 1fd7c45..0000000 --- a/bwbtest/NBS2X/E060.BAS +++ /dev/null @@ -1,11 +0,0 @@ -100 REM Purpose: Verify FREEFILE -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-02-19 -130 REM -190 print "maxdev=";maxdev -200 for i = 1 to maxdev -210 print "These should match:";i;freefile -220 open "A" for output as #i -230 next i -240 print "This should be zero:";freefile -999 end diff --git a/bwbtest/NBS2X/E060.run b/bwbtest/NBS2X/E060.run deleted file mode 100644 index 0bdde08..0000000 --- a/bwbtest/NBS2X/E060.run +++ /dev/null @@ -1,19 +0,0 @@ -maxdev= 17 -These should match: 1 1 -These should match: 2 2 -These should match: 3 3 -These should match: 4 4 -These should match: 5 5 -These should match: 6 6 -These should match: 7 7 -These should match: 8 8 -These should match: 9 9 -These should match: 10 10 -These should match: 11 11 -These should match: 12 12 -These should match: 13 13 -These should match: 14 14 -These should match: 15 15 -These should match: 16 16 -These should match: 17 17 -This should be zero: 0 diff --git a/bwbtest/NBS2X/E061.BAS b/bwbtest/NBS2X/E061.BAS deleted file mode 100644 index 494992c..0000000 --- a/bwbtest/NBS2X/E061.BAS +++ /dev/null @@ -1,38 +0,0 @@ -REM Purpose: Verify boolean operators -REM Author: Howard Wulf, AF5NE -REM Date: 2015-02-20 -REM -FUNCTION TF$( N ) - IF N = 0 THEN - LET TF$ = "F " - ELSE - LET TF$ = "T " - END IF -END FUNCTION -REM -PRINT " X X X X X X X X X X X " -PRINT " NOT NOT AND OR XOR EQV IMP < <= = >= > <> " -PRINT "X Y X Y Y Y Y Y Y Y Y Y Y Y Y " -PRINT "= = = = = = = = = = = = = = = " -for X = -1 to 0 -for Y = -1 to 0 - PRINT TF$( X); - PRINT TF$( Y); - PRINT TF$( NOT X); - PRINT TF$( NOT Y); - PRINT TF$(X AND Y); - PRINT TF$(X OR Y); - PRINT TF$(X XOR Y); - PRINT TF$(X EQV Y); - PRINT TF$(X IMP Y); - PRINT TF$(X < Y); - PRINT TF$(X <= Y); - PRINT TF$(X = Y); - PRINT TF$(X >= Y); - PRINT TF$(X > Y); - PRINT TF$(X <> Y); - PRINT -next Y -next X - -END diff --git a/bwbtest/NBS2X/E061.run b/bwbtest/NBS2X/E061.run deleted file mode 100644 index 9fd1554..0000000 --- a/bwbtest/NBS2X/E061.run +++ /dev/null @@ -1,8 +0,0 @@ - X X X X X X X X X X X - NOT NOT AND OR XOR EQV IMP < <= = >= > <> -X Y X Y Y Y Y Y Y Y Y Y Y Y Y -= = = = = = = = = = = = = = = -T T F F T T F T T F T T T F F -T F F T F T T F F T T F F F T -F T T F F T T F T F F F T T T -F F T T F F F T T F T T T F F diff --git a/bwbtest/NBS2X/E062.BAS b/bwbtest/NBS2X/E062.BAS deleted file mode 100644 index 7e4a461..0000000 --- a/bwbtest/NBS2X/E062.BAS +++ /dev/null @@ -1,94 +0,0 @@ -REM Purpose: Verify FILEATTR -REM Author: Howard Wulf, AF5NE -REM Date: 2015-02-20 -REM - - -REM ----------------------------------------- -REM THE FOLLOWING SHOULD NOT ERROR -REM - -PRINT "FILEATTR FOR CLOSED FILES" -PRINT "FILEATTR(CLOSED,1)=";FILEATTR(#7,1) -PRINT "FILEATTR(CLOSED,2)=";FILEATTR(#7,2) - - -PRINT "FILEATTR FOR INPUT FILES" -OPEN "E062.DAT" FOR INPUT AS #4 -PRINT "FILEATTR(INPUT ,1)=";FILEATTR(#4,1) -PRINT "FILEATTR(INPUT ,2)=";FILEATTR(#4,2) -CLOSE #4 - -PRINT "FILEATTR FOR OUTPUT FILES" -OPEN "E062.DAT" FOR OUTPUT AS #1 -PRINT "FILEATTR(OUTPUT,1)=";FILEATTR(#1,1) -PRINT "FILEATTR(INPUT ,2)=";FILEATTR(#4,2) -CLOSE #1 - -PRINT "FILEATTR FOR RANDOM FILES" -OPEN "E062.DAT" FOR RANDOM AS #5 -PRINT "FILEATTR(RANDOM,1)=";FILEATTR(#5,1) -PRINT "FILEATTR(RANDOM,2)=";FILEATTR(#5,2) -CLOSE #5 - -PRINT "FILEATTR FOR APPEND FILES" -OPEN "E062.DAT" FOR APPEND AS #2 -PRINT "FILEATTR(APPEND,1)=";FILEATTR(#2,1) -PRINT "FILEATTR(APPEND,2)=";FILEATTR(#2,2) -CLOSE #2 - -PRINT "FILEATTR FOR BINARY FILES" -OPEN "E062.DAT" FOR BINARY AS #3 -PRINT "FILEATTR(BINARY,1)=";FILEATTR(#3,1) -PRINT "FILEATTR(BINARY,2)=";FILEATTR(#3,2) -CLOSE #3 - - -ON ERROR RESUME NEXT - - -REM ----------------------------------------- -REM THE FOLLOWING SHOULD CAUSE ERRORS -REM BECAUSE THE DEVICE NUMBER IS NOT ALLOWED -REM - -PRINT "FILEATTR WITH INVALID X < DEVMIN" -100 PRINT "FILEATTR(#0,1)=";FILEATTR(#0,1) -PRINT -PRINT "ERR =";ERR -PRINT "ERL =";ERL -PRINT "ERR$=";ERR$ -ERROR 0 - -PRINT "FILEATTR WITH INVALID X > INTMAX" -200 PRINT "FILEATTR(#MAXINT+1,2)=";FILEATTR(#MAXINT+1,2) -PRINT -PRINT "ERR =";ERR -PRINT "ERL =";ERL -PRINT "ERR$=";ERR$ -ERROR 0 - -REM ----------------------------------------- -REM THE FOLLOWING SHOULD CAUSE ERRORS -REM BECAUSE THE ATTRIBUTE NUMBER IS NOT ALLOWED -REM -REM - -PRINT "FILEATTR WITH INVALID Y < 1" -300 PRINT "FILEATTR(...,0)=";FILEATTR(#7,0) -PRINT -PRINT "ERR =";ERR -PRINT "ERL =";ERL -PRINT "ERR$=";ERR$ -ERROR 0 - -PRINT "FILEATTR WITH INVALID Y > 2" -400 PRINT "FILEATTR(...,3)=";FILEATTR(#7,3) -PRINT -PRINT "ERR =";ERR -PRINT "ERL =";ERL -PRINT "ERR$=";ERR$ -ERROR 0 - - -END diff --git a/bwbtest/NBS2X/E062.run b/bwbtest/NBS2X/E062.run deleted file mode 100644 index 4be5eca..0000000 --- a/bwbtest/NBS2X/E062.run +++ /dev/null @@ -1,38 +0,0 @@ -FILEATTR FOR CLOSED FILES -FILEATTR(CLOSED,1)= 0 -FILEATTR(CLOSED,2)= 0 -FILEATTR FOR INPUT FILES -FILEATTR(INPUT ,1)= 1 -FILEATTR(INPUT ,2)= 0 -FILEATTR FOR OUTPUT FILES -FILEATTR(OUTPUT,1)= 2 -FILEATTR(INPUT ,2)= 0 -FILEATTR FOR RANDOM FILES -FILEATTR(RANDOM,1)= 4 -FILEATTR(RANDOM,2)= 0 -FILEATTR FOR APPEND FILES -FILEATTR(APPEND,1)= 8 -FILEATTR(APPEND,2)= 0 -FILEATTR FOR BINARY FILES -FILEATTR(BINARY,1)= 32 -FILEATTR(BINARY,2)= 0 -FILEATTR WITH INVALID X < DEVMIN -FILEATTR(#0,1)= -ERR = 5 -ERL = 100 -ERR$=Illegal function call -FILEATTR WITH INVALID X > INTMAX -FILEATTR(#MAXINT+1,2)= -ERR = 5 -ERL = 200 -ERR$=Illegal function call -FILEATTR WITH INVALID Y < 1 -FILEATTR(...,0)= -ERR = 5 -ERL = 300 -ERR$=Illegal function call -FILEATTR WITH INVALID Y > 2 -FILEATTR(...,3)= -ERR = 5 -ERL = 400 -ERR$=Illegal function call diff --git a/bwbtest/NBS2X/E063.BAS b/bwbtest/NBS2X/E063.BAS deleted file mode 100644 index 1ef530d..0000000 --- a/bwbtest/NBS2X/E063.BAS +++ /dev/null @@ -1,68 +0,0 @@ -REM Purpose: Verify SEEK, LOC, and LOF -REM Author: Howard Wulf, AF5NE -REM Date: 2015-02-21 -REM - -OPEN "E063.DAT" FOR OUTPUT AS #1 - -PRINT "AT END OF NEW EMPTY FILE" -PRINT "LOC =";LOC(#1) -PRINT "LOF =";LOF(#1) -PRINT "SEEK=";SEEK(#1) -PRINT - -PRINT "AT END OF NON-EMPTY FILE < 128" -PRINT #1, "12345678"; -PRINT "LOC =";LOC(#1) -PRINT "LOF =";LOF(#1) -PRINT "SEEK=";SEEK(#1) -PRINT - -PRINT "AT END OF NON-EMPTY FILE = 128" -FOR I = 1 TO 12 -PRINT #1, "1234567890"; -NEXT I -PRINT "LOC =";LOC(#1) -PRINT "LOF =";LOF(#1) -PRINT "SEEK=";SEEK(#1) -PRINT - - -PRINT "AT START OF NON-EMPTY FILE = 128" -SEEK #1, 1 -PRINT "LOC =";LOC(#1) -PRINT "LOF =";LOF(#1) -PRINT "SEEK=";SEEK(#1) -PRINT - -PRINT "AT END OF NON-EMPTY FILE = 128" -SEEK #1, LOF(#1) -PRINT "LOC =";LOC(#1) -PRINT "LOF =";LOF(#1) -PRINT "SEEK=";SEEK(#1) -PRINT -CLOSE #1 - - -OPEN "E063.DAT" FOR INPUT AS #1 - -PRINT "REAAD CHAR AT START OF NON-EMPTY FILE = 128" -LET A$ = INPUT$(1, #1) -PRINT " A$=";"[";A$;"]" -PRINT "LOC =";LOC(#1) -PRINT "LOF =";LOF(#1) -PRINT "SEEK=";SEEK(#1) -PRINT - -PRINT "READ CHAR AT END OF NON-EMPTY FILE = 128" -SEEK #1, LOF(#1) -LET A$ = INPUT$(1, #1) -PRINT " A$=";"[";A$;"]" -PRINT "LOC =";LOC(#1) -PRINT "LOF =";LOF(#1) -PRINT "SEEK=";SEEK(#1) -PRINT - -CLOSE #1 - -END diff --git a/bwbtest/NBS2X/E063.run b/bwbtest/NBS2X/E063.run deleted file mode 100644 index 6e78b8d..0000000 --- a/bwbtest/NBS2X/E063.run +++ /dev/null @@ -1,37 +0,0 @@ -AT END OF NEW EMPTY FILE -LOC = 1 -LOF = 0 -SEEK= 1 - -AT END OF NON-EMPTY FILE < 128 -LOC = 1 -LOF = 8 -SEEK= 9 - -AT END OF NON-EMPTY FILE = 128 -LOC = 2 -LOF = 128 -SEEK= 129 - -AT START OF NON-EMPTY FILE = 128 -LOC = 1 -LOF = 128 -SEEK= 1 - -AT END OF NON-EMPTY FILE = 128 -LOC = 1 -LOF = 128 -SEEK= 128 - -REAAD CHAR AT START OF NON-EMPTY FILE = 128 - A$=[1] -LOC = 1 -LOF = 128 -SEEK= 2 - -READ CHAR AT END OF NON-EMPTY FILE = 128 - A$=[0] -LOC = 2 -LOF = 128 -SEEK= 129 - diff --git a/bwbtest/NBS2X/E064.BAS b/bwbtest/NBS2X/E064.BAS deleted file mode 100644 index cbc75c8..0000000 --- a/bwbtest/NBS2X/E064.BAS +++ /dev/null @@ -1,33 +0,0 @@ -REM Purpose: Verify integer divide, X \ Y -REM Author: Howard Wulf, AF5NE -REM Date: 2015-02-21 -REM - - -READ X, Y, Z -DO - LET N = X \ Y - PRINT X,Y,Z,N - IF Z <> N THEN - PRINT "*** TEST FAILED ***" - STOP - END IF - READ X, Y, Z -LOOP UNTIL X = 999 -GOTO 999 - -REM TEST DATA -REM X,Y,Z -DATA 1,1,1 -DATA 2,1,2 -DATA 3,1,3 -DATA 9,3,3 -DATA 1.0,1.5,0 -DATA 1.5,1.5,1 -DATA 1.5,1.0,2 -DATA 10,3,3 -DATA 1.4,1.3,1 -DATA 1.3,1.4,1 -DATA 999,999,999 - -999 END diff --git a/bwbtest/NBS2X/E064.run b/bwbtest/NBS2X/E064.run deleted file mode 100644 index 92d6168..0000000 --- a/bwbtest/NBS2X/E064.run +++ /dev/null @@ -1,10 +0,0 @@ - 1 1 1 1 - 2 1 2 2 - 3 1 3 3 - 9 3 3 3 - 1 1.5 0 0 - 1.5 1.5 1 1 - 1.5 1 2 2 - 10 3 3 3 - 1.4 1.3 1 1 - 1.3 1.4 1 1 diff --git a/bwbtest/NBS2X/E065.BAS b/bwbtest/NBS2X/E065.BAS deleted file mode 100644 index 366ab69..0000000 --- a/bwbtest/NBS2X/E065.BAS +++ /dev/null @@ -1,108 +0,0 @@ -100 REM Purpose: Verify NULL character and MAXLEN strings -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-03-02 -130 REM -140 M = MAXLEN("") -150 PRINT "MAXLEN=";M -160 ' maintainer debug on -170 ON ERROR GOTO 8000 -200 REM Verify length is 11 -210 LET A$ = "12345" + CHR$(0) + "67890" -220 LET N = LEN(A$) -230 PRINT N -235 IF N <> 11 THEN 9999 -236 PRINT "TEST #1 OK" -300 REM Verify length is MAXLEN -310 LET A$ = STRING$( M, 0 ) -320 LET N = LEN(A$) -330 PRINT N -335 IF N <> M THEN 9999 -336 PRINT "TEST #2 OK" -400 REM Verify length is MAXLEN -410 A$ = A$ + "*" -420 LET N = LEN(A$) -430 PRINT N -435 IF N <> M THEN 9999 -436 PRINT "TEST #3 OK" -500 REM Verify length is MAXLEN -510 A$ = A$ + A$ -520 LET N = LEN(A$) -530 PRINT N -535 IF N <> M THEN 9999 -536 PRINT "TEST #4 OK" -600 REM Verify length is MAXLEN -610 A$ = A$ + "" -620 LET N = LEN(A$) -630 PRINT N -635 IF N <> M THEN 9999 -636 PRINT "TEST #5 OK" -700 REM Verify length is MAXLEN -710 A$ = "" + A$ -720 LET N = LEN(A$) -730 PRINT N -735 IF N <> M THEN 9999 -736 PRINT "TEST #6 OK" -800 REM Verify length is MAXLEN -810 A$ = A$ + CHR$(0) -820 LET N = LEN(A$) -830 PRINT N -835 IF N <> M THEN 9999 -836 PRINT "TEST #7 OK" -900 REM Verify length is MAXLEN -910 A$ = CHR$(0) + A$ -920 LET N = LEN(A$) -930 PRINT N -935 IF N <> M THEN 9999 -936 PRINT "TEST #8 OK" -1000 REM Verify length is MAXLEN - 1 -1010 A$ = LEFT$( STRING$(M,0), M - 1 ) -1020 LET N = LEN(A$) -1030 PRINT N -1035 IF N <> M - 1 THEN 9999 -1036 PRINT "TEST #9 OK" -1100 REM Verify length is MAXLEN - 1 -1110 A$ = RIGHT$( STRING$(M,0), M - 1 ) -1120 LET N = LEN(A$) -1130 PRINT N -1135 IF N <> M - 1 THEN 9999 -1136 PRINT "TEST #10 OK" -1200 REM Verify length is MAXLEN -1210 A$ = MID$( STRING$(M,0), 1, M ) -1220 LET N = LEN(A$) -1230 PRINT N -1235 IF N <> M THEN 9999 -1236 PRINT "TEST #11 OK" -1300 REM Verify length is MAXLEN - 1 -1310 A$ = MID$( STRING$(M,0), 2, M ) -1320 LET N = LEN(A$) -1330 PRINT N -1335 IF N <> M - 1 THEN 9999 -1336 PRINT "TEST #12 OK" -1400 REM Verify length is MAXLEN -1410 A$ = MID$( A$, 1, M ) + MID$( A$, 2, M ) -1420 LET N = LEN(A$) -1430 PRINT N -1435 IF N <> M THEN 9999 -1436 PRINT "TEST #13 OK" -2000 REM Verify EVERY char is NULL -2005 REM PRINT "M=";M -2010 PRINT " 1 2 3 4" -2020 PRINT "1234567890123456789012345678901234567890" -2030 FOR I = 1 TO M -2040 IF I MOD 100 = 0 THEN -2050 PRINT "."; -2060 END IF -2070 IF ASC(MID$(A$,I,1)) <> 0 THEN -2080 PRINT "*** ERROR AT I=";I -2090 STOP -2100 END IF -2110 NEXT I -2120 PRINT -2130 REM -2136 PRINT "TEST #14 OK" -2199 GOTO 9000 -8000 REM ERROR HANDLER -8010 PRINT "ERR=";ERR,"ERL=";ERL -8020 RESUME NEXT -9000 PRINT "*** ALL TESTS PASSED ****" -9999 END diff --git a/bwbtest/NBS2X/E065.run b/bwbtest/NBS2X/E065.run deleted file mode 100644 index 44217ae..0000000 --- a/bwbtest/NBS2X/E065.run +++ /dev/null @@ -1,37 +0,0 @@ -MAXLEN= 4096 - 11 -TEST #1 OK - 4096 -TEST #2 OK -ERR= 15 ERL= 410 - 4096 -TEST #3 OK -ERR= 15 ERL= 510 - 4096 -TEST #4 OK - 4096 -TEST #5 OK - 4096 -TEST #6 OK -ERR= 15 ERL= 810 - 4096 -TEST #7 OK -ERR= 15 ERL= 910 - 4096 -TEST #8 OK - 4095 -TEST #9 OK - 4095 -TEST #10 OK - 4096 -TEST #11 OK - 4095 -TEST #12 OK -ERR= 15 ERL= 1410 - 4096 -TEST #13 OK - 1 2 3 4 -1234567890123456789012345678901234567890 -........................................ -TEST #14 OK -*** ALL TESTS PASSED **** diff --git a/bwbtest/NBS2X/E066.BAS b/bwbtest/NBS2X/E066.BAS deleted file mode 100644 index 9469d3c..0000000 --- a/bwbtest/NBS2X/E066.BAS +++ /dev/null @@ -1,26 +0,0 @@ -100 REM Purpose: Verify CHANGE A$ TO X -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-03-07 -130 REM -200 DIM X(6) -210 LET A$ = "SYSTEM" -220 CHANGE A$ TO X -230 LET N = X(0) -240 PRINT "N=";N -250 FOR I = 1 TO N -260 PRINT X(I); -270 NEXT I -280 PRINT -290 REM -300 DIM Y(6) -310 Y(0) = 6 -320 Y(1) = ASC("H") -330 Y(2) = ASC("E") -340 Y(3) = ASC("L") -350 Y(4) = ASC("L") -360 Y(5) = ASC("O") -370 Y(6) = ASC("!") -375 B$ = "WORLD." -380 CHANGE Y TO B$ -390 PRINT B$ -400 END diff --git a/bwbtest/NBS2X/E066.run b/bwbtest/NBS2X/E066.run deleted file mode 100644 index 66b6fb4..0000000 --- a/bwbtest/NBS2X/E066.run +++ /dev/null @@ -1,3 +0,0 @@ -N= 6 - 83 89 83 84 69 77 -HELLO! diff --git a/bwbtest/NBS2X/E067.BAS b/bwbtest/NBS2X/E067.BAS deleted file mode 100644 index 587d8f4..0000000 --- a/bwbtest/NBS2X/E067.BAS +++ /dev/null @@ -1,28 +0,0 @@ -100 REM Purpose: Verify OPTION COMMENT char -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-05-01 -130 REM Note: profile.bas must have OPTION COMMENT ! -140 REM Note: The output should be identical to E066.BAS -150 REM -200 DIM X(6) ! comment -210 LET A$ = "SYSTEM" ! comment -220 CHANGE A$ TO X ! comment -230 LET N = X(0) ! comment -240 PRINT "N=";N ! comment -250 FOR I = 1 TO N ! comment -260 PRINT X(I); ! comment -270 NEXT I ! comment -280 PRINT ! comment -290 REM ! comment -300 DIM Y(6) ! comment -310 Y(0) = 6 ! comment -320 Y(1) = ASC("H") ! comment -330 Y(2) = ASC("E") ! comment -340 Y(3) = ASC("L") ! comment -350 Y(4) = ASC("L") ! comment -360 Y(5) = ASC("O") ! comment -370 Y(6) = ASC("!") ! comment -375 B$ = "WORLD." ! comment -380 CHANGE Y TO B$ ! comment -390 PRINT B$ ! comment -400 END ! comment diff --git a/bwbtest/NBS2X/E067.PRO b/bwbtest/NBS2X/E067.PRO deleted file mode 100644 index 121a6f5..0000000 --- a/bwbtest/NBS2X/E067.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION PUNCT COMMENT "!" diff --git a/bwbtest/NBS2X/E067.run b/bwbtest/NBS2X/E067.run deleted file mode 100644 index 66b6fb4..0000000 --- a/bwbtest/NBS2X/E067.run +++ /dev/null @@ -1,3 +0,0 @@ -N= 6 - 83 89 83 84 69 77 -HELLO! diff --git a/bwbtest/NBS2X/E068.BAS b/bwbtest/NBS2X/E068.BAS deleted file mode 100644 index 9be18b1..0000000 --- a/bwbtest/NBS2X/E068.BAS +++ /dev/null @@ -1,9 +0,0 @@ -100 REM Purpose: Verify OPTION STATEMENT char -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-05-01 -130 REM Note: profile.bas must have OPTION STATEMENT \ -140 REM Note: The output should be identical to E066.BAS -150 REM -200 DIM X(6)\LET A$ = "SYSTEM"\CHANGE A$ TO X\LET N = X(0)\PRINT "N=";N\FOR I = 1 TO N\PRINT X(I);\NEXT I\PRINT -290 REM -300 DIM Y(6)\Y(0) = 6\Y(1) = ASC("H")\Y(2) = ASC("E")\Y(3) = ASC("L")\Y(4) = ASC("L")\Y(5) = ASC("O")\Y(6) = ASC("!")\B$ = "WORLD."\CHANGE Y TO B$\PRINT B$\END diff --git a/bwbtest/NBS2X/E068.PRO b/bwbtest/NBS2X/E068.PRO deleted file mode 100644 index d37d328..0000000 --- a/bwbtest/NBS2X/E068.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION PUNCT STATEMENT "\" diff --git a/bwbtest/NBS2X/E068.run b/bwbtest/NBS2X/E068.run deleted file mode 100644 index 66b6fb4..0000000 --- a/bwbtest/NBS2X/E068.run +++ /dev/null @@ -1,3 +0,0 @@ -N= 6 - 83 89 83 84 69 77 -HELLO! diff --git a/bwbtest/NBS2X/E069.bas b/bwbtest/NBS2X/E069.bas deleted file mode 100644 index 25b1549..0000000 --- a/bwbtest/NBS2X/E069.bas +++ /dev/null @@ -1,264 +0,0 @@ -rem Purpose: verify comment character is honored for all commands -rem Author: Howard Wulf, AF5NE -rem Date: 2015-05-01 -rem Usage: implementation defined -rem Example: ~/bwbasic E069.bas -rem --------------------------------------------- -rem -rem cmds -clear ' comment -DEFDBL Z ' comment -DEFINT I ' comment -DEFSNG Y ' comment -DEFSTR A ' comment -COMMON z ' comment -LET TRUE = -1 ' comment -LET FALSE = 0 ' comment -DATA a , b , c ' comment -? 1 ' COMMENT -RESTORE ' comment -read a$,b$,c$ ' comment -print a$,b$,c$ ' comment -print len(a$), len(b$), len(c$) -call chr$(0) ' comment -SELECT CASE 5 ' comment -CASE IF = 1 ' comment -CASE IS = 2 ' comment -CASE 3 ' comment -CASE ELSE ' comment -END SELECT ' comment -dim x(10) ' comment -a$ = "1234567890" ' comment -change a$ to x ' comment -change x to a$ ' comment -' CMDS ' comment - -I = 0 ' comment -DO ' comment -I = I + 1 ' comment -IF I > 2 THEN ' comment -EXIT DO ' comment -ELSE ' comment -PRINT "I=";I ' comment -END IF ' comment -LOOP ' comment - -I = 0 ' comment -DO WHILE TRUE ' comment -I = I + 1 ' comment -IF I > 2 THEN ' comment -EXIT DO ' comment -ELSE ' comment -PRINT "I=";I ' comment -END IF ' comment -LOOP WHILE TRUE ' comment - -I = 0 ' comment -DO UNTIL FALSE ' comment -I = I + 1 ' comment -IF I > 2 THEN ' comment -EXIT DO ' comment -ELSE ' comment -PRINT "I=";I ' comment -END IF ' comment -LOOP UNTIL FALSE ' comment - -I = 0 ' comment -REPEAT ' comment -I = I + 1 ' comment -IF I > 2 THEN ' comment -EXIT REPEAT ' comment -ELSE ' comment -PRINT "I=";I ' comment -END IF ' comment -UNTIL FALSE ' comment - -I = 0 ' comment -WHILE TRUE ' comment -I = I + 1 ' comment -IF I > 2 THEN ' comment -EXIT WHILE ' comment -ELSE ' comment -PRINT "I=";I ' comment -END IF ' comment -WEND ' comment - -FOR I = 1 TO 3 ' comment -IF I > 2 THEN ' comment -EXIT FOR ' comment -END IF ' comment -NEXT I ' comment - -I = 3 + 4 ' comment -IF I = 2 THEN ' comment -PRINT "ERROR" ' comment -ELSEIF I = 7 ' comment -PRINT "Correct" ' comment -ELSE ' comment -PRINT "ERROR" ' comment -END IF ' comment - -I = 5 * 6 ' comment -IF I > 10 THEN 1000 ELSE 9000 ' comment -ERROR 1 ' comment -1000 IF I < 99 THEN 2000 ELSE 9000 ' comment -ERROR 1 ' comment -2000 ' comment -GOTO 3000 ' comment -2100 IF I = 1 THEN PRINT "Good 1":RETURN ELSE PRINT "ERROR ON 1" : GOTO 9000 ' comment -2200 IF I = 2 THEN PRINT "Good 2":RETURN ELSE PRINT "ERROR ON 2" : GOTO 9000 ' comment -2300 IF I = 3 THEN PRINT "Good 3":RETURN ELSE PRINT "ERROR ON 3" : GOTO 9000 ' comment -3000 ' fncs ' comment -3010 GOTO 3400 ' comment -3100 IF I <> 1 THEN PRINT "ERROR ON 1" : GOTO 9000 ELSE PRINT "Good 1":GOTO 3500 ' comment -3200 IF I <> 2 THEN PRINT "ERROR ON 2" : GOTO 9000 ELSE PRINT "Good 2":GOTO 3500 ' comment -3300 IF I <> 3 THEN PRINT "ERROR ON 3" : GOTO 9000 ELSE PRINT "Good 3":GOTO 3500 ' comment -3310 PRINT "ERROR 4": STOP ' comment -3350 print "good 4" -return ' comment -3400 FOR I = 1 TO 3 ' comment -PRINT "I=";I ' comment -ON I GOSUB 2100,2200,2300 ' comment -ON I GOTO 3100,3200,3300 ' comment -3500 REM ' comment -NEXT I ' comment -gosub 3350 ' comment -LPRINT A$; ' comment -LPRINT B$, ' comment -LPRINT C$ ' comment - -OPEN "test.dat" FOR RANDOM AS #1 LEN 12 ' comment -FIELD #1, 5 AS D$, 7 AS E$ ' comment -FIELD #1, 12 AS F$ - -LSET D$ = "d" ' comment -RSET E$ = "e" ' comment - -PRINT "[";D$;"]" ' comment -PRINT "[";E$;"]" ' comment - -PUT #1 ' comment -SEEK #1, 1 ' comment -GET #1 ' comment -PRINT "["; F$; "]" ' comment -CLOSE #1 - -OPEN "test.dat" for output as #1 -PRINT #1, A$ ' comment -CLOSE #1 ' comment -OPEN "test.dat" for INPUT as #1 ' comment -INPUT #1, B$ ' comment -CLOSE #1 ' comment -PRINT "["; B$; "]" ' comment - -PRINT "Before SUB definition" ' comment -' MAINTAINER STACK -4000 SUB TestSub( X1, Y1 ) ' comment -' MAINTAINER STACK -IF X1 > Y1 THEN ' comment -PRINT "X1 > Y1",X1;">";Y1 ' comment -' LET TestSub = X1 - Y1 -EXIT SUB ' comment -END IF ' comment -PRINT "X1 <= Y1",X1;"<=";Y1 ' comment -' LET TestSub = X1 + Y1 -END SUB ' comment -PRINT "After SUB definition" ' comment - -' MAINTAINER STACK - -TestSub 1, 2 ' comment -' MAINTAINER STACK -CALL TestSub(2,1) ' comment -CALL ABS(2) ' comment - - -5000 FUNCTION TestFun( X2, Y2 ) ' comment -5010 IF X2 < Y2 THEN ' comment -5020 LET TestFun = X2 + Y2 ' comment -5025 PRINT "X2 < Y2",X2;"<";Y2 ' comment -5030 EXIT FUNCTION ' comment -5040 END IF ' comment -5050 LET TestFun = X2 - Y2 ' comment -5055 PRINT "X2 >= Y2",X2;">=";Y2 ' comment -5060 END FUNCTION ' comment - -TestFun 1, 2 ' comment -CALL TestFun( 5, 1 ) ' comment -LET Z = TestFun( 10, 3 ) ' comment -PRINT "Z=";Z ' comment - -OPEN "test.dat" FOR INPUT AS #1 ' comment -LINE INPUT #1, A$ ' comment -CLOSE #1 ' comment -PRINT "A$=";A$ ' comment -SWAP A$,B$ ' comment -PRINT "B$=";B$ ' comment -REM vars ' comment -OPEN "test.dat" FOR OUTPUT AS #1 ' comment -WRITE #1, B$ ' comment -CLOSE #1 ' comment -OPEN "test.dat" FOR INPUT AS #1 ' comment -LINE INPUT #1, A$ ' comment -CLOSE #1 ' comment -PRINT "A$=";A$ ' comment -GOTO AnotherPlace ' comment -PRINT "ERROR 7" ' comment -STOP ' comment - -' comments are NOT allowed on LABEL lines -AnotherPlace: -' comments are NOT allowed on LABEL lines -5100 REM STOP ' comment -ON ERROR GOTO HELL ' comment -PRINT "firing..." ' comment -ERROR 51 ' comment -IF I = 17 THEN 6000 ' OK -STOP ' ERROR -' comments are NOT allowed on LABEL lines -Hell: -' comments are NOT allowed on LABEL lines -PRINT "caught..." -IF ERR <> 51 THEN STOP ' ERROR -LET I = 17:RESUME NEXT ' OK -STOP ' ERROR -6000 ' OK -ERROR 0 ' clear -PRINT "Throw" ' comment -ON ERROR RESUME NEXT ' comment -ERROR 77 ' comment -IF ERR = 77 THEN ' comment - PRINT "Caught" ' comment - ERROR 0 ' clear -ELSE ' comment - PRINT "Missed" ' comment - STOP ' comment -END IF ' comment - -REM HELP ' COMMENT -help help ' comment -erase x ' comment -dim x(23) ' comment -DEF FNA(X4)=X4+X(22) ' comment -LET X(22) = 2 ' comment -PRINT "FNA=";FNA(7) ' comment -CSAVE* X ' comment -erase x ' comment -dim X(23) ' comment -CLOAD* X ' comment -PRINT "X(22)=";X(22) ' comment - -A$ = "abcdefghijklmnop" ' comment -B$ = "123456789" ' comment -MID$( A$, 5, 2 ) = B$ ' comment -PRINT "A$=";A$ ' comment - -A$ = "abcdefghijklmnop" ' comment -B$ = "123456789" ' comment -MID$( A$, 5 ) = B$ ' comment -PRINT "A$=";A$ ' comment - -REM VARS ' COMMENT -MAINTAINER STACK ' comment -print "Ok" ' comment -9000 end ' comment diff --git a/bwbtest/NBS2X/E069.run b/bwbtest/NBS2X/E069.run deleted file mode 100644 index 9f12bc8..0000000 --- a/bwbtest/NBS2X/E069.run +++ /dev/null @@ -1,53 +0,0 @@ - 1 -a b c - 1 1 1 -I= 1 -I= 2 -I= 1 -I= 2 -I= 1 -I= 2 -I= 1 -I= 2 -I= 1 -I= 2 -Correct -I= 1 -Good 1 -Good 1 -I= 2 -Good 2 -Good 2 -I= 3 -Good 3 -Good 3 -good 4 -[d ] -[ e] -[d e] -[1234567890] -Before SUB definition -After SUB definition -X1 <= Y1 1 <= 2 -X1 > Y1 2 > 1 -X2 < Y2 1 < 2 -X2 >= Y2 5 >= 1 -X2 >= Y2 10 >= 3 -Z= 7 -A$=1234567890 -B$=1234567890 -A$="1234567890" -firing... -caught... -Throw -Caught ------------------------------------------------------------- - SYNTAX: HELP name -DESCRIPTION: Provides help on the specified name which is a - command name or function name. -FNA= 9 -X(22)= 2 -A$=abcd12ghijklmnop -A$=abcd123456789nop -6033: -Ok diff --git a/bwbtest/NBS2X/E070.bas b/bwbtest/NBS2X/E070.bas deleted file mode 100644 index 04f224a..0000000 --- a/bwbtest/NBS2X/E070.bas +++ /dev/null @@ -1,56 +0,0 @@ -100 REM Purpose: Verify ON ERROR GOTO & ON ERROR GOSUB -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-05-08 -130 REM -140 goto 200 -DIM a!(20),b@(20),c#(20),d$(20),e%(20),f&(20) -vars -print "-----------------------------------" -let a!(0) = 1 -let b@(0) = 1 -let c#(0) = 1 -let d$(0) = "1" -let e%(0) = 1 -let f&(0) = 1 -vars -print "-----------------------------------" -let a!(b@(c#(e%(f&(0))))) = 2 -vars -200 print "-----------------------------------" -REM test ON ERROR GOTO -OPTION ERROR GOTO -error 0 -on error goto Hell -let Z = 0 -print "A" -print "B":ERROR 1:print "C" -print "D" -goto NextItem -stop -Hell: -let Z = Z + 1 -if Z > 10 goto 999 -print "ERR=";ERR, "ERL";ERL, "Z=";Z -resume next -STOP -NextItem: -300 print "-----------------------------------" -rem test on ERROR GOSUB -error 0 -OPTION ERROR GOSUB -on error gosub Handler -let Z = 0 -print "A" -print "B":ERROR 2:print "C" -print "D" -goto LastItem -stop -Handler: -let Z = Z + 1 -if Z > 10 goto 999 -print "ERR=";ERR, "ERL";ERL, "Z=";Z -return -STOP -LastItem: -400 print "-----------------------------------" -999 rem EOF diff --git a/bwbtest/NBS2X/E070.run b/bwbtest/NBS2X/E070.run deleted file mode 100644 index a259c6d..0000000 --- a/bwbtest/NBS2X/E070.run +++ /dev/null @@ -1,13 +0,0 @@ ------------------------------------ -A -B -ERR= 1 ERL 207 Z= 1 -C -D ------------------------------------ -A -B -ERR= 2 ERL 307 Z= 1 -C -D ------------------------------------ diff --git a/bwbtest/NBS2X/E071.bas b/bwbtest/NBS2X/E071.bas deleted file mode 100644 index 31a0fa5..0000000 --- a/bwbtest/NBS2X/E071.bas +++ /dev/null @@ -1,56 +0,0 @@ -100 REM Purpose: Verify =>, =<, and >< -110 REM Author: Howard Wulf, AF5NE -120 REM Date: 2015-05-09 -130 REM Note: These are non-standard comparison operators -140 REM -150 REM ---------------------------------------------------------- - -1100 print "positive test of <=" -1110 let A = 1 -1120 let B = 2 -1130 if A <= B then 1160 -1140 print "failed" -1150 stop -1160 print "passed" - -2100 print "positive test of =<" -2110 let A = 1 -2120 let B = 2 -2130 if A =< B then 2160 -2140 print "failed" -2150 stop -2160 print "passed" - -3100 print "positive test of >=" -3110 let A = 2 -3120 let B = 1 -3130 if A >= B then 3160 -3140 print "failed" -3150 stop -3160 print "passed" - -4100 print "positive test of =>" -4110 let A = 2 -4120 let B = 1 -4130 if A => B then 4160 -4140 print "failed" -4150 stop -4160 print "passed" - -5100 print "positive test of <>" -5110 let A = 2 -5120 let B = 1 -5130 if A <> B then 5160 -5140 print "failed" -5150 stop -5160 print "passed" - -6100 print "positive test of ><" -6110 let A = 2 -6120 let B = 1 -6130 if A >< B then 6160 -6140 print "failed" -6150 stop -6160 print "passed" - -9999 END diff --git a/bwbtest/NBS2X/E071.run b/bwbtest/NBS2X/E071.run deleted file mode 100644 index 602b4f3..0000000 --- a/bwbtest/NBS2X/E071.run +++ /dev/null @@ -1,12 +0,0 @@ -positive test of <= -passed -positive test of =< -passed -positive test of >= -passed -positive test of => -passed -positive test of <> -passed -positive test of >< -passed diff --git a/bwbtest/NBS2X/FNCS.BAS b/bwbtest/NBS2X/FNCS.BAS deleted file mode 100644 index ae0db02..0000000 --- a/bwbtest/NBS2X/FNCS.BAS +++ /dev/null @@ -1 +0,0 @@ -100 FNCS diff --git a/bwbtest/NBS2X/FNCS_HTM.BAS b/bwbtest/NBS2X/FNCS_HTM.BAS deleted file mode 100644 index 2171a5e..0000000 --- a/bwbtest/NBS2X/FNCS_HTM.BAS +++ /dev/null @@ -1 +0,0 @@ -MAINTAINER FNCS HTML diff --git a/bwbtest/NBS2X/F_ABS_X_N.BAS b/bwbtest/NBS2X/F_ABS_X_N.BAS deleted file mode 100644 index c8cc353..0000000 --- a/bwbtest/NBS2X/F_ABS_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:14 -REM FILENAME: F_ABS_X_N.BAS -REM SYNTAX: N = ABS( X ) -REM UNIQUEID: F_ABS_X_N -REM FUNCTION: ABS -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = ABS( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , 1 , -1 -DATA 4 , 0 , .4 , .4 -DATA 5 , 0 , .4 , -.4 -DATA 6 , 0 , .6 , .6 -DATA 7 , 0 , .6 , -.6 -DATA 8 , 0 , 254 , 254 -DATA 9 , 0 , 255 , 255 -DATA 10 , 0 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , .227229 , -.227229 -DATA 13 , 0 , .239157 , -.239157 -DATA 14 , 0 , .213586 , -.213586 -DATA 15 , 0 , .274675 , .274675 -DATA 16 , 0 , .169766 , .169766 -DATA 17 , 0 , .318766 , .318766 -DATA 18 , 0 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , .188257 , .188257 -DATA 20 , 0 , .277537 , -.277537 -DATA 21 , 0 , .481303 , -.481303 -DATA 22 , 0 , .43556 , .43556 -DATA 23 , 0 , .210971 , -.210971 -DATA 24 , 0 , .455216 , -.455216 -DATA 25 , 0 , 110.907 , -110.907 -DATA 26 , 0 , 105.632 , 105.632 -DATA 27 , 0 , 114.341 , -114.341 -DATA 28 , 0 , 109.706 , 109.706 -DATA 29 , 0 , 109.198 , 109.198 -DATA 30 , 0 , 85.8773 , 85.8773 -DATA 31 , 0 , 58.3548 , -58.3548 -DATA 32 , 0 , 29.6397 , 29.6397 -DATA 33 , 0 , 108.36 , -108.36 -DATA 34 , 0 , 46.5199 , -46.5199 -DATA 35 , 0 , 112.521 , 112.521 -DATA 36 , 0 , 45.4151 , 45.4151 -DATA 37 , 0 , 101.129 , 101.129 -DATA 38 , 0 , 65.0473 , 65.0473 -DATA 39 , 0 , 48.4012 , 48.4012 -DATA 40 , 0 , 122.294 , 122.294 -DATA 41 , 0 , 56.1094 , -56.1094 -DATA 42 , 0 , 121.087 , -121.087 -DATA 43 , 0 , 123.517 , -123.517 -DATA 44 , 0 , 97.6301 , -97.6301 -DATA 45 , 0 , 64.0001 , -64.0001 -DATA 46 , 0 , 25.6888 , -25.6888 -DATA 47 , 0 , 14.8006 , 14.8006 -DATA 48 , 0 , 61.0877 , -61.0877 -DATA 49 , 0 , 66.6381 , -66.6381 -DATA 50 , 0 , 5476.5 , -5476.5 -DATA 51 , 0 , 21210.3 , -21210.3 -DATA 52 , 0 , 28757.2 , -28757.2 -DATA 53 , 0 , 28732.2 , -28732.2 -DATA 54 , 0 , 12730.3 , 12730.3 -DATA 55 , 0 , 1830.69 , -1830.69 -DATA 56 , 0 , 5486.39 , 5486.39 -DATA 57 , 0 , 22405.9 , 22405.9 -DATA 58 , 0 , 30809.8 , 30809.8 -DATA 59 , 0 , 28930.6 , -28930.6 -DATA 60 , 0 , 6014.53 , -6014.53 -DATA 61 , 0 , 17414.6 , 17414.6 -DATA 62 , 0 , 10538.3 , -10538.3 -DATA 63 , 0 , 17536.3 , -17536.3 -DATA 64 , 0 , 8856.62 , -8856.62 -DATA 65 , 0 , 5140.12 , -5140.12 -DATA 66 , 0 , 8595.31 , -8595.31 -DATA 67 , 0 , 3382.87 , -3382.87 -DATA 68 , 0 , 5002.07 , -5002.07 -DATA 69 , 0 , 5800.72 , -5800.72 -DATA 70 , 0 , 29686.4 , 29686.4 -DATA 71 , 0 , 2571 , 2571. -DATA 72 , 0 , 31091 , 31091. -DATA 73 , 0 , 14819 , 14819. -DATA 74 , 0 , 3790.9 , 3790.9 -DATA 75 , 0 , 4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , 7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , 3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , 4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , 8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , 3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , 2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , 2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , 2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , 4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , 3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , 3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , 2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , 3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_ABS_X_N.run b/bwbtest/NBS2X/F_ABS_X_N.run deleted file mode 100644 index 2c10c0d..0000000 --- a/bwbtest/NBS2X/F_ABS_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 1 X=-1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .4 X= .4 - F= 0 N= .4 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= .4 X=-.4 - F= 0 N= .4 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .6 X= .6 - F= 0 N= .6 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= .6 X=-.6 - F= 0 N= .6 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= .227229 X=-.227229 - F= 0 N= .227229 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= .239157 X=-.239157 - F= 0 N= .239157 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= .213586 X=-.213586 - F= 0 N= .213586 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .274675 X= .274675 - F= 0 N= .274675 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .169766 X= .169766 - F= 0 N= .169766 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .318766 X= .318766 - F= 0 N= .318766 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06658E-2 X= 2.06658E-2 - F= 0 N= 2.06658E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .188257 X= .188257 - F= 0 N= .188257 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= .277537 X=-.277537 - F= 0 N= .277537 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= .481303 X=-.481303 - F= 0 N= .481303 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .43556 X= .43556 - F= 0 N= .43556 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= .210971 X=-.210971 - F= 0 N= .210971 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= .455216 X=-.455216 - F= 0 N= .455216 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 110.907 X=-110.907 - F= 0 N= 110.907 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 105.632 X= 105.632 - F= 0 N= 105.632 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 114.341 X=-114.341 - F= 0 N= 114.341 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 109.706 X= 109.706 - F= 0 N= 109.706 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109.198 X= 109.198 - F= 0 N= 109.198 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 85.8773 X= 85.8773 - F= 0 N= 85.8773 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 58.3548 X=-58.3548 - F= 0 N= 58.3548 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 29.6397 X= 29.6397 - F= 0 N= 29.6397 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 108.36 X=-108.36 - F= 0 N= 108.36 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 46.5199 X=-46.5199 - F= 0 N= 46.5199 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 112.521 X= 112.521 - F= 0 N= 112.521 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45.4151 X= 45.4151 - F= 0 N= 45.4151 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101.129 X= 101.129 - F= 0 N= 101.129 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65.0473 X= 65.0473 - F= 0 N= 65.0473 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48.4012 X= 48.4012 - F= 0 N= 48.4012 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122.294 X= 122.294 - F= 0 N= 122.294 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 56.1094 X=-56.1094 - F= 0 N= 56.1094 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 121.087 X=-121.087 - F= 0 N= 121.087 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 123.517 X=-123.517 - F= 0 N= 123.517 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 97.6301 X=-97.6301 - F= 0 N= 97.6301 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 64.0001 X=-64.0001 - F= 0 N= 64.0001 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 25.6888 X=-25.6888 - F= 0 N= 25.6888 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 14.8006 X= 14.8006 - F= 0 N= 14.8006 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 61.0877 X=-61.0877 - F= 0 N= 61.0877 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 66.6381 X=-66.6381 - F= 0 N= 66.6381 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 5476.5 X=-5476.5 - F= 0 N= 5476.5 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 21210.3 X=-21210.3 - F= 0 N= 21210.3 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 28757.2 X=-28757.2 - F= 0 N= 28757.2 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 28732.2 X=-28732.2 - F= 0 N= 28732.2 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730.3 X= 12730.3 - F= 0 N= 12730.3 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 1830.69 X=-1830.69 - F= 0 N= 1830.69 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486.39 X= 5486.39 - F= 0 N= 5486.39 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22405.9 X= 22405.9 - F= 0 N= 22405.9 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30809.8 X= 30809.8 - F= 0 N= 30809.8 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 28930.6 X=-28930.6 - F= 0 N= 28930.6 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 6014.53 X=-6014.53 - F= 0 N= 6014.53 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17414.6 X= 17414.6 - F= 0 N= 17414.6 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 10538.3 X=-10538.3 - F= 0 N= 10538.3 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 17536.3 X=-17536.3 - F= 0 N= 17536.3 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 8856.62 X=-8856.62 - F= 0 N= 8856.62 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 5140.12 X=-5140.12 - F= 0 N= 5140.12 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 8595.31 X=-8595.31 - F= 0 N= 8595.31 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 3382.87 X=-3382.87 - F= 0 N= 3382.87 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 5002.07 X=-5002.07 - F= 0 N= 5002.07 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 5800.72 X=-5800.72 - F= 0 N= 5800.72 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686.4 X= 29686.4 - F= 0 N= 29686.4 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3790.9 X= 3790.9 - F= 0 N= 3790.9 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 4.2981E+9 X=-4.2981E+9 - F= 0 N= 4.2981E+9 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 7.05453E+8 X=-7.05453E+8 - F= 0 N= 7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 3.10179E+9 X=-3.10179E+9 - F= 0 N= 3.10179E+9 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 4.86159E+9 X=-4.86159E+9 - F= 0 N= 4.86159E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 8.62908E+8 X=-8.62908E+8 - F= 0 N= 8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 3.4101E+9 X=-3.4101E+9 - F= 0 N= 3.4101E+9 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 3.3889E+9 X= 3.3889E+9 - F= 0 N= 3.3889E+9 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 2.49826E+9 X= 2.49826E+9 - F= 0 N= 2.49826E+9 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.3491E+9 X= 2.3491E+9 - F= 0 N= 2.3491E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 2.26748E+9 X=-2.26748E+9 - F= 0 N= 2.26748E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 2.10587E+9 X=-2.10587E+9 - F= 0 N= 2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 4.23585E+9 X= 4.23585E+9 - F= 0 N= 4.23585E+9 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 2.66524E+9 X=-2.66524E+9 - F= 0 N= 2.66524E+9 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 4.01052E+9 X= 4.01052E+9 - F= 0 N= 4.01052E+9 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 4.87912E+9 X=-4.87912E+9 - F= 0 N= 4.87912E+9 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 3.39941E+9 X=-3.39941E+9 - F= 0 N= 3.39941E+9 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 3.49119E+9 X=-3.49119E+9 - F= 0 N= 3.49119E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 2.86324E+9 X=-2.86324E+9 - F= 0 N= 2.86324E+9 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 4.20418E+9 X= 4.20418E+9 - F= 0 N= 4.20418E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 3.1518E+9 X=-3.1518E+9 - F= 0 N= 3.1518E+9 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 4.60615E+9 X= 4.60615E+9 - F= 0 N= 4.60615E+9 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_ACOS_X_N.BAS b/bwbtest/NBS2X/F_ACOS_X_N.BAS deleted file mode 100644 index 06b4aa9..0000000 --- a/bwbtest/NBS2X/F_ACOS_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:14 -REM FILENAME: F_ACOS_X_N.BAS -REM SYNTAX: N = ACOS( X ) -REM UNIQUEID: F_ACOS_X_N -REM FUNCTION: ACOS -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = ACOS( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 1.5708 , 0 -DATA 2 , 0 , 0 , 1 -DATA 3 , 0 , 3.14159 , -1 -DATA 4 , 0 , 1.15928 , .4 -DATA 5 , 0 , 1.98231 , -.4 -DATA 6 , 0 , .927295 , .6 -DATA 7 , 0 , 2.2143 , -.6 -DATA 8 , 1 , 0 , 254 -DATA 9 , 1 , 0 , 255 -DATA 10 , 1 , 0 , 256 -DATA 11 , 1 , 0 , 32000 -DATA 12 , 0 , 1.80003 , -.227229 -DATA 13 , 0 , 1.81229 , -.239157 -DATA 14 , 0 , 1.78604 , -.213586 -DATA 15 , 0 , 1.29254 , .274675 -DATA 16 , 0 , 1.4002 , .169766 -DATA 17 , 0 , 1.24637 , .318766 -DATA 18 , 0 , 1.55013 , 2.06658E-2 -DATA 19 , 0 , 1.38141 , .188257 -DATA 20 , 0 , 1.85203 , -.277537 -DATA 21 , 0 , 2.07294 , -.481303 -DATA 22 , 0 , 1.12014 , .43556 -DATA 23 , 0 , 1.78336 , -.210971 -DATA 24 , 0 , 2.04341 , -.455216 -DATA 25 , 1 , 0 , -110.907 -DATA 26 , 1 , 0 , 105.632 -DATA 27 , 1 , 0 , -114.341 -DATA 28 , 1 , 0 , 109.706 -DATA 29 , 1 , 0 , 109.198 -DATA 30 , 1 , 0 , 85.8773 -DATA 31 , 1 , 0 , -58.3548 -DATA 32 , 1 , 0 , 29.6397 -DATA 33 , 1 , 0 , -108.36 -DATA 34 , 1 , 0 , -46.5199 -DATA 35 , 1 , 0 , 112.521 -DATA 36 , 1 , 0 , 45.4151 -DATA 37 , 1 , 0 , 101.129 -DATA 38 , 1 , 0 , 65.0473 -DATA 39 , 1 , 0 , 48.4012 -DATA 40 , 1 , 0 , 122.294 -DATA 41 , 1 , 0 , -56.1094 -DATA 42 , 1 , 0 , -121.087 -DATA 43 , 1 , 0 , -123.517 -DATA 44 , 1 , 0 , -97.6301 -DATA 45 , 1 , 0 , -64.0001 -DATA 46 , 1 , 0 , -25.6888 -DATA 47 , 1 , 0 , 14.8006 -DATA 48 , 1 , 0 , -61.0877 -DATA 49 , 1 , 0 , -66.6381 -DATA 50 , 1 , 0 , -5476.5 -DATA 51 , 1 , 0 , -21210.3 -DATA 52 , 1 , 0 , -28757.2 -DATA 53 , 1 , 0 , -28732.2 -DATA 54 , 1 , 0 , 12730.3 -DATA 55 , 1 , 0 , -1830.69 -DATA 56 , 1 , 0 , 5486.39 -DATA 57 , 1 , 0 , 22405.9 -DATA 58 , 1 , 0 , 30809.8 -DATA 59 , 1 , 0 , -28930.6 -DATA 60 , 1 , 0 , -6014.53 -DATA 61 , 1 , 0 , 17414.6 -DATA 62 , 1 , 0 , -10538.3 -DATA 63 , 1 , 0 , -17536.3 -DATA 64 , 1 , 0 , -8856.62 -DATA 65 , 1 , 0 , -5140.12 -DATA 66 , 1 , 0 , -8595.31 -DATA 67 , 1 , 0 , -3382.87 -DATA 68 , 1 , 0 , -5002.07 -DATA 69 , 1 , 0 , -5800.72 -DATA 70 , 1 , 0 , 29686.4 -DATA 71 , 1 , 0 , 2571. -DATA 72 , 1 , 0 , 31091. -DATA 73 , 1 , 0 , 14819. -DATA 74 , 1 , 0 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 1 , 0 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 1 , 0 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 1 , 0 , 3.3889E+9 -DATA 82 , 1 , 0 , 2.49826E+9 -DATA 83 , 1 , 0 , 2.3491E+9 -DATA 84 , 1 , 0 , 1.94745E+8 -DATA 85 , 1 , 0 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 1 , 0 , -2.10587E+9 -DATA 88 , 1 , 0 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 1 , 0 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 1 , 0 , 1.77556E+9 -DATA 93 , 1 , 0 , 2.87705E+8 -DATA 94 , 1 , 0 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 1 , 0 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 1 , 0 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_ACOS_X_N.run b/bwbtest/NBS2X/F_ACOS_X_N.run deleted file mode 100644 index 7d5da60..0000000 --- a/bwbtest/NBS2X/F_ACOS_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 1.5708 X= 0 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 0 X= 1 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 3.14159 X=-1 - F= 0 N= 3.14159 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 1.15928 X= .4 - F= 0 N= 1.15928 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 1.98231 X=-.4 - F= 0 N= 1.98231 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .927295 X= .6 - F= 0 N= .927295 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 2.2143 X=-.6 - F= 0 N= 2.2143 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 X= 254 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 X= 255 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 X= 256 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 X= 32000 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 1.80003 X=-.227229 - F= 0 N= 1.80003 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 1.81229 X=-.239157 - F= 0 N= 1.81229 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 1.78604 X=-.213586 - F= 0 N= 1.78604 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 1.29254 X= .274675 - F= 0 N= 1.29254 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1.4002 X= .169766 - F= 0 N= 1.4002 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1.24637 X= .318766 - F= 0 N= 1.24637 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 1.55013 X= 2.06658E-2 - F= 0 N= 1.55013 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 1.38141 X= .188257 - F= 0 N= 1.38141 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 1.85203 X=-.277537 - F= 0 N= 1.85203 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 2.07294 X=-.481303 - F= 0 N= 2.07294 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 1.12014 X= .43556 - F= 0 N= 1.12014 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 1.78336 X=-.210971 - F= 0 N= 1.78336 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 2.04341 X=-.455216 - F= 0 N= 2.04341 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 1 R= 0 X= 105.632 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 1 R= 0 X= 109.706 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 1 R= 0 X= 109.198 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 1 R= 0 X= 85.8773 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 1 R= 0 X= 29.6397 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 1 R= 0 X= 112.521 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 1 R= 0 X= 45.4151 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 1 R= 0 X= 101.129 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 1 R= 0 X= 65.0473 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 1 R= 0 X= 48.4012 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 1 R= 0 X= 122.294 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 X=-25.6888 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 1 R= 0 X= 14.8006 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 X= 12730.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 0 X= 5486.39 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 X= 22405.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 X= 30809.8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 X= 17414.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 X= 29686.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 0 X= 2571 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 X= 31091 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 X= 14819 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 0 X= 3790.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 X= 1.94745E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 X= 2.02475E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 X= 1.77556E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 X= 2.87705E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 X= 1.99977E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_ANGLE_X_Y_N.BAS b/bwbtest/NBS2X/F_ANGLE_X_Y_N.BAS deleted file mode 100644 index cbed6f9..0000000 --- a/bwbtest/NBS2X/F_ANGLE_X_Y_N.BAS +++ /dev/null @@ -1,184 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:15 -REM FILENAME: F_ANGLE_X_Y_N.BAS -REM SYNTAX: N = ANGLE( X, Y ) -REM UNIQUEID: F_ANGLE_X_Y_N -REM FUNCTION: ANGLE -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM Y ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X, Y -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X, "Y=";Y -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = ANGLE( X, Y ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , 0 , 0 -DATA 2 , 0 , .785398 , 1 , 1 -DATA 3 , 0 , -2.35619 , -1 , -1 -DATA 4 , 0 , .785398 , .4 , .4 -DATA 5 , 0 , -2.35619 , -.4 , -.4 -DATA 6 , 0 , .785398 , .6 , .6 -DATA 7 , 0 , -2.35619 , -.6 , -.6 -DATA 8 , 0 , .785398 , 254 , 254 -DATA 9 , 0 , .785398 , 255 , 255 -DATA 10 , 0 , .785398 , 256 , 256 -DATA 11 , 0 , .785398 , 32000 , 32000 -DATA 12 , 0 , -2.35619 , -.227229 , -.227229 -DATA 13 , 0 , -2.35619 , -.239157 , -.239157 -DATA 14 , 0 , -2.35619 , -.213586 , -.213586 -DATA 15 , 0 , .785398 , .274675 , .274675 -DATA 16 , 0 , .785398 , .169766 , .169766 -DATA 17 , 0 , .785398 , .318766 , .318766 -DATA 18 , 0 , .785398 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , .785398 , .188257 , .188257 -DATA 20 , 0 , -2.35619 , -.277537 , -.277537 -DATA 21 , 0 , -2.35619 , -.481303 , -.481303 -DATA 22 , 0 , .785398 , .43556 , .43556 -DATA 23 , 0 , -2.35619 , -.210971 , -.210971 -DATA 24 , 0 , -2.35619 , -.455216 , -.455216 -DATA 25 , 0 , -2.35619 , -110.907 , -110.907 -DATA 26 , 0 , .785398 , 105.632 , 105.632 -DATA 27 , 0 , -2.35619 , -114.341 , -114.341 -DATA 28 , 0 , .785398 , 109.706 , 109.706 -DATA 29 , 0 , .785398 , 109.198 , 109.198 -DATA 30 , 0 , .785398 , 85.8773 , 85.8773 -DATA 31 , 0 , -2.35619 , -58.3548 , -58.3548 -DATA 32 , 0 , .785398 , 29.6397 , 29.6397 -DATA 33 , 0 , -2.35619 , -108.36 , -108.36 -DATA 34 , 0 , -2.35619 , -46.5199 , -46.5199 -DATA 35 , 0 , .785398 , 112.521 , 112.521 -DATA 36 , 0 , .785398 , 45.4151 , 45.4151 -DATA 37 , 0 , .785398 , 101.129 , 101.129 -DATA 38 , 0 , .785398 , 65.0473 , 65.0473 -DATA 39 , 0 , .785398 , 48.4012 , 48.4012 -DATA 40 , 0 , .785398 , 122.294 , 122.294 -DATA 41 , 0 , -2.35619 , -56.1094 , -56.1094 -DATA 42 , 0 , -2.35619 , -121.087 , -121.087 -DATA 43 , 0 , -2.35619 , -123.517 , -123.517 -DATA 44 , 0 , -2.35619 , -97.6301 , -97.6301 -DATA 45 , 0 , -2.35619 , -64.0001 , -64.0001 -DATA 46 , 0 , -2.35619 , -25.6888 , -25.6888 -DATA 47 , 0 , .785398 , 14.8006 , 14.8006 -DATA 48 , 0 , -2.35619 , -61.0877 , -61.0877 -DATA 49 , 0 , -2.35619 , -66.6381 , -66.6381 -DATA 50 , 0 , -2.35619 , -5476.5 , -5476.5 -DATA 51 , 0 , -2.35619 , -21210.3 , -21210.3 -DATA 52 , 0 , -2.35619 , -28757.2 , -28757.2 -DATA 53 , 0 , -2.35619 , -28732.2 , -28732.2 -DATA 54 , 0 , .785398 , 12730.3 , 12730.3 -DATA 55 , 0 , -2.35619 , -1830.69 , -1830.69 -DATA 56 , 0 , .785398 , 5486.39 , 5486.39 -DATA 57 , 0 , .785398 , 22405.9 , 22405.9 -DATA 58 , 0 , .785398 , 30809.8 , 30809.8 -DATA 59 , 0 , -2.35619 , -28930.6 , -28930.6 -DATA 60 , 0 , -2.35619 , -6014.53 , -6014.53 -DATA 61 , 0 , .785398 , 17414.6 , 17414.6 -DATA 62 , 0 , -2.35619 , -10538.3 , -10538.3 -DATA 63 , 0 , -2.35619 , -17536.3 , -17536.3 -DATA 64 , 0 , -2.35619 , -8856.62 , -8856.62 -DATA 65 , 0 , -2.35619 , -5140.12 , -5140.12 -DATA 66 , 0 , -2.35619 , -8595.31 , -8595.31 -DATA 67 , 0 , -2.35619 , -3382.87 , -3382.87 -DATA 68 , 0 , -2.35619 , -5002.07 , -5002.07 -DATA 69 , 0 , -2.35619 , -5800.72 , -5800.72 -DATA 70 , 0 , .785398 , 29686.4 , 29686.4 -DATA 71 , 0 , .785398 , 2571. , 2571. -DATA 72 , 0 , .785398 , 31091. , 31091. -DATA 73 , 0 , .785398 , 14819. , 14819. -DATA 74 , 0 , .785398 , 3790.9 , 3790.9 -DATA 75 , 0 , -2.35619 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , -2.35619 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , -2.35619 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , -2.35619 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , -2.35619 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , -2.35619 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , .785398 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , .785398 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , .785398 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , .785398 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , .785398 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , -2.35619 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , -2.35619 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , .785398 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , -2.35619 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , .785398 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , -2.35619 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , .785398 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , .785398 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , .785398 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , -2.35619 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , -2.35619 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , -2.35619 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , .785398 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , -2.35619 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , .785398 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_ANGLE_X_Y_N.run b/bwbtest/NBS2X/F_ANGLE_X_Y_N.run deleted file mode 100644 index c0ecd41..0000000 --- a/bwbtest/NBS2X/F_ANGLE_X_Y_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 X= 0 Y= 0 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= .785398 X= 1 Y= 1 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-2.35619 X=-1 Y=-1 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .785398 X= .4 Y= .4 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-2.35619 X=-.4 Y=-.4 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .785398 X= .6 Y= .6 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-2.35619 X=-.6 Y=-.6 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= .785398 X= 254 Y= 254 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= .785398 X= 255 Y= 255 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= .785398 X= 256 Y= 256 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= .785398 X= 32000 Y= 32000 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-2.35619 X=-.227229 Y=-.227229 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-2.35619 X=-.239157 Y=-.239157 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-2.35619 X=-.213586 Y=-.213586 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .785398 X= .274675 Y= .274675 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .785398 X= .169766 Y= .169766 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .785398 X= .318766 Y= .318766 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= .785398 X= 2.06658E-2 Y= 2.06658E-2 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .785398 X= .188257 Y= .188257 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-2.35619 X=-.277537 Y=-.277537 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-2.35619 X=-.481303 Y=-.481303 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .785398 X= .43556 Y= .43556 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-2.35619 X=-.210971 Y=-.210971 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-2.35619 X=-.455216 Y=-.455216 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-2.35619 X=-110.907 Y=-110.907 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= .785398 X= 105.632 Y= 105.632 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-2.35619 X=-114.341 Y=-114.341 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= .785398 X= 109.706 Y= 109.706 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= .785398 X= 109.198 Y= 109.198 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= .785398 X= 85.8773 Y= 85.8773 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-2.35619 X=-58.3548 Y=-58.3548 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= .785398 X= 29.6397 Y= 29.6397 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-2.35619 X=-108.36 Y=-108.36 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-2.35619 X=-46.5199 Y=-46.5199 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= .785398 X= 112.521 Y= 112.521 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= .785398 X= 45.4151 Y= 45.4151 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= .785398 X= 101.129 Y= 101.129 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= .785398 X= 65.0473 Y= 65.0473 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= .785398 X= 48.4012 Y= 48.4012 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= .785398 X= 122.294 Y= 122.294 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-2.35619 X=-56.1094 Y=-56.1094 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-2.35619 X=-121.087 Y=-121.087 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-2.35619 X=-123.517 Y=-123.517 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-2.35619 X=-97.6301 Y=-97.6301 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-2.35619 X=-64.0001 Y=-64.0001 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-2.35619 X=-25.6888 Y=-25.6888 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= .785398 X= 14.8006 Y= 14.8006 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-2.35619 X=-61.0877 Y=-61.0877 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-2.35619 X=-66.6381 Y=-66.6381 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-2.35619 X=-5476.5 Y=-5476.5 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-2.35619 X=-21210.3 Y=-21210.3 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-2.35619 X=-28757.2 Y=-28757.2 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-2.35619 X=-28732.2 Y=-28732.2 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= .785398 X= 12730.3 Y= 12730.3 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-2.35619 X=-1830.69 Y=-1830.69 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= .785398 X= 5486.39 Y= 5486.39 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= .785398 X= 22405.9 Y= 22405.9 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= .785398 X= 30809.8 Y= 30809.8 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-2.35619 X=-28930.6 Y=-28930.6 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-2.35619 X=-6014.53 Y=-6014.53 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= .785398 X= 17414.6 Y= 17414.6 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-2.35619 X=-10538.3 Y=-10538.3 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-2.35619 X=-17536.3 Y=-17536.3 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-2.35619 X=-8856.62 Y=-8856.62 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-2.35619 X=-5140.12 Y=-5140.12 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-2.35619 X=-8595.31 Y=-8595.31 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-2.35619 X=-3382.87 Y=-3382.87 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-2.35619 X=-5002.07 Y=-5002.07 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-2.35619 X=-5800.72 Y=-5800.72 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= .785398 X= 29686.4 Y= 29686.4 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= .785398 X= 2571 Y= 2571 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= .785398 X= 31091 Y= 31091 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= .785398 X= 14819 Y= 14819 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= .785398 X= 3790.9 Y= 3790.9 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-2.35619 X=-4.2981E+9 Y=-4.2981E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-2.35619 X=-7.05453E+8 Y=-7.05453E+8 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-2.35619 X=-3.10179E+9 Y=-3.10179E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-2.35619 X=-4.86159E+9 Y=-4.86159E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-2.35619 X=-8.62908E+8 Y=-8.62908E+8 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-2.35619 X=-3.4101E+9 Y=-3.4101E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= .785398 X= 3.3889E+9 Y= 3.3889E+9 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= .785398 X= 2.49826E+9 Y= 2.49826E+9 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= .785398 X= 2.3491E+9 Y= 2.3491E+9 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= .785398 X= 1.94745E+8 Y= 1.94745E+8 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= .785398 X= 2.02475E+9 Y= 2.02475E+9 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-2.35619 X=-2.26748E+9 Y=-2.26748E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.35619 X=-2.10587E+9 Y=-2.10587E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= .785398 X= 4.23585E+9 Y= 4.23585E+9 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-2.35619 X=-2.66524E+9 Y=-2.66524E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= .785398 X= 4.01052E+9 Y= 4.01052E+9 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-2.35619 X=-4.87912E+9 Y=-4.87912E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= .785398 X= 1.77556E+9 Y= 1.77556E+9 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= .785398 X= 2.87705E+8 Y= 2.87705E+8 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= .785398 X= 1.99977E+8 Y= 1.99977E+8 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-2.35619 X=-3.39941E+9 Y=-3.39941E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-2.35619 X=-3.49119E+9 Y=-3.49119E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-2.35619 X=-2.86324E+9 Y=-2.86324E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= .785398 X= 4.20418E+9 Y= 4.20418E+9 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-2.35619 X=-3.1518E+9 Y=-3.1518E+9 - F= 0 N=-2.35619 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= .785398 X= 4.60615E+9 Y= - 4.60615E+9 - F= 0 N= .785398 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_ASC_A_N.BAS b/bwbtest/NBS2X/F_ASC_A_N.BAS deleted file mode 100644 index 91a5ef8..0000000 --- a/bwbtest/NBS2X/F_ASC_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:15 -REM FILENAME: F_ASC_A_N.BAS -REM SYNTAX: N = ASC( A$ ) -REM UNIQUEID: F_ASC_A_N -REM FUNCTION: ASC -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = ASC( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , "" -DATA 2 , 0 , 32 , " " -DATA 3 , 0 , 51 , "3" -DATA 4 , 0 , 122 , "z" -DATA 5 , 0 , 32 , " " -DATA 6 , 0 , 32 , " 3" -DATA 7 , 0 , 32 , " z" -DATA 8 , 0 , 51 , "3 " -DATA 9 , 0 , 122 , "z " -DATA 10 , 0 , 32 , " 3 " -DATA 11 , 0 , 32 , " z " -DATA 12 , 0 , 32 , " LLLL" -DATA 13 , 0 , 32 , " '' " -DATA 14 , 0 , 32 , " oo " -DATA 15 , 0 , 32 , " 00 " -DATA 16 , 0 , 32 , " \\\\ " -DATA 17 , 0 , 32 , " lllll " -DATA 18 , 0 , 32 , " uuuu " -DATA 19 , 0 , 32 , " a " -DATA 20 , 0 , 32 , " " -DATA 21 , 0 , 32 , " hh " -DATA 22 , 0 , 32 , " h " -DATA 23 , 0 , 32 , " )" -DATA 24 , 0 , 32 , " 5 " -DATA 25 , 0 , 32 , " 2 " -DATA 26 , 0 , 32 , " - " -DATA 27 , 0 , 100 , "dd " -DATA 28 , 0 , 32 , " tttt " -DATA 29 , 0 , 32 , " :::: " -DATA 30 , 0 , 32 , " ___ " -DATA 31 , 0 , 32 , " " -DATA 32 , 0 , 32 , " " -DATA 33 , 0 , 32 , " _____ " -DATA 34 , 0 , 32 , " S " -DATA 35 , 0 , 32 , " FFFF " -DATA 36 , 0 , 32 , " kkk" -DATA 37 , 0 , 32 , " NNNN " -DATA 38 , 0 , 32 , " mmmm " -DATA 39 , 0 , 32 , " ,,,,, " -DATA 40 , 0 , 79 , "OO " -DATA 41 , 0 , 32 , " HHHH " -DATA 42 , 0 , 32 , " < " -DATA 43 , 0 , 32 , " j " -DATA 44 , 0 , 32 , " yyyy " -DATA 45 , 0 , 32 , " +++ " -DATA 46 , 0 , 111 , "o " -DATA 47 , 0 , 32 , " ((" -DATA 48 , 0 , 32 , " uu " -DATA 49 , 0 , 32 , " 00 " -DATA 50 , 0 , 32 , " HH " -DATA 51 , 0 , 32 , " " -DATA 52 , 0 , 32 , " G " -DATA 53 , 0 , 32 , " {{{{ " -DATA 54 , 0 , 32 , " ]]] " -DATA 55 , 0 , 67 , "CCC" -DATA 56 , 0 , 32 , " 44 " -DATA 57 , 0 , 94 , "^^ " -DATA 58 , 0 , 32 , " QQ " -DATA 59 , 0 , 32 , " FFFF " -DATA 60 , 0 , 32 , " n " -DATA 61 , 0 , 32 , " hh " -DATA 62 , 0 , 53 , "555 " -DATA 63 , 0 , 32 , " YYYY " -DATA 64 , 0 , 32 , " w " -DATA 65 , 0 , 77 , "MMMM " -DATA 66 , 0 , 32 , " JJJJ " -DATA 67 , 0 , 32 , " %% " -DATA 68 , 0 , 32 , " * " -DATA 69 , 0 , 32 , " @@@ " -DATA 70 , 0 , 73 , "I " -DATA 71 , 0 , 32 , " ss " -DATA 72 , 0 , 32 , " f " -DATA 73 , 0 , 32 , " D " -DATA 74 , 0 , 35 , "### " -DATA 75 , 0 , 32 , " ' " -DATA 76 , 0 , 32 , " dd " -DATA 77 , 0 , 32 , " TT " -DATA 78 , 0 , 32 , " vvv " -DATA 79 , 0 , 32 , " X " -DATA 80 , 0 , 32 , " % " -DATA 81 , 0 , 32 , " " -DATA 82 , 0 , 32 , " 5555 " -DATA 83 , 0 , 70 , "FFFF " -DATA 84 , 0 , 32 , " %% " -DATA 85 , 0 , 32 , " " -DATA 86 , 0 , 32 , " ~~~~ " -DATA 87 , 0 , 32 , " || " -DATA 88 , 0 , 32 , " SSS " -DATA 89 , 0 , 32 , " 6666 " -DATA 90 , 0 , 32 , " ww " -DATA 91 , 0 , 32 , " 1111 " -DATA 92 , 0 , 32 , " K " -DATA 93 , 0 , 32 , " ttttt " -DATA 94 , 0 , 32 , " OOOOO " -DATA 95 , 0 , 32 , " E " -DATA 96 , 0 , 32 , " PPPPP " -DATA 97 , 0 , 32 , " == " -DATA 98 , 0 , 32 , " VVVV " -DATA 99 , 0 , 32 , " c " -DATA 100 , 0 , 32 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_ASC_A_N.run b/bwbtest/NBS2X/F_ASC_A_N.run deleted file mode 100644 index e24b153..0000000 --- a/bwbtest/NBS2X/F_ASC_A_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 A$=[] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 32 A$=[ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 51 A$=[3] - F= 0 N= 51 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 122 A$=[z] - F= 0 N= 122 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 32 A$=[ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 32 A$=[ 3] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 32 A$=[ z] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 51 A$=[3 ] - F= 0 N= 51 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 122 A$=[z ] - F= 0 N= 122 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 32 A$=[ 3 ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32 A$=[ z ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 32 A$=[ LLLL] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 32 A$=[ '' ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 32 A$=[ oo ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 32 A$=[ 00 ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 32 A$=[ \\\\ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 32 A$=[ lllll ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 32 A$=[ uuuu ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 32 A$=[ a ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 32 A$=[ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 32 A$=[ hh ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 32 A$=[ h ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 32 A$=[ )] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 32 A$=[ 5 ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 32 A$=[ 2 ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 32 A$=[ - ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 100 A$=[dd ] - F= 0 N= 100 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 32 A$=[ tttt ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 32 A$=[ :::: ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 32 A$=[ ___ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 32 A$=[ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 32 A$=[ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 32 A$=[ _____ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 32 A$=[ S ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 32 A$=[ FFFF ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 32 A$=[ kkk] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 32 A$=[ NNNN ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 32 A$=[ mmmm ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 32 A$=[ ,,,,, ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 79 A$=[OO ] - F= 0 N= 79 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 32 A$=[ HHHH ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 32 A$=[ < ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 32 A$=[ j ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 32 A$=[ yyyy ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 32 A$=[ +++ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 111 A$=[o ] - F= 0 N= 111 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 32 A$=[ ((] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 32 A$=[ uu ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 32 A$=[ 00 ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 32 A$=[ HH ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 32 A$=[ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 32 A$=[ G ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 32 A$=[ {{{{ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 32 A$=[ ]]] ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 67 A$=[CCC] - F= 0 N= 67 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 32 A$=[ 44 ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 94 A$=[^^ ] - F= 0 N= 94 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 32 A$=[ QQ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 32 A$=[ FFFF ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 32 A$=[ n ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 32 A$=[ hh ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 53 A$=[555 ] - F= 0 N= 53 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 32 A$=[ YYYY ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 32 A$=[ w ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 77 A$=[MMMM ] - F= 0 N= 77 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 32 A$=[ JJJJ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 32 A$=[ %% ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 32 A$=[ * ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 32 A$=[ @@@ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 73 A$=[I ] - F= 0 N= 73 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 32 A$=[ ss ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 32 A$=[ f ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 32 A$=[ D ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 35 A$=[### ] - F= 0 N= 35 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 32 A$=[ ' ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 32 A$=[ dd ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 32 A$=[ TT ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 32 A$=[ vvv ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 32 A$=[ X ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 32 A$=[ % ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 32 A$=[ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 32 A$=[ 5555 ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 70 A$=[FFFF ] - F= 0 N= 70 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 32 A$=[ %% ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 32 A$=[ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 32 A$=[ ~~~~ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 32 A$=[ || ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 32 A$=[ SSS ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 32 A$=[ 6666 ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 32 A$=[ ww ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 32 A$=[ 1111 ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 32 A$=[ K ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 32 A$=[ ttttt ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 32 A$=[ OOOOO ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 32 A$=[ E ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 32 A$=[ PPPPP ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 32 A$=[ == ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 32 A$=[ VVVV ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 32 A$=[ c ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 32 A$=[ yyyy ] - F= 0 N= 32 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_ASIN_X_N.BAS b/bwbtest/NBS2X/F_ASIN_X_N.BAS deleted file mode 100644 index ac0271f..0000000 --- a/bwbtest/NBS2X/F_ASIN_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:15 -REM FILENAME: F_ASIN_X_N.BAS -REM SYNTAX: N = ASIN( X ) -REM UNIQUEID: F_ASIN_X_N -REM FUNCTION: ASIN -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = ASIN( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1.5708 , 1 -DATA 3 , 0 , -1.5708 , -1 -DATA 4 , 0 , .411517 , .4 -DATA 5 , 0 , -.411517 , -.4 -DATA 6 , 0 , .643501 , .6 -DATA 7 , 0 , -.643501 , -.6 -DATA 8 , 1 , 0 , 254 -DATA 9 , 1 , 0 , 255 -DATA 10 , 1 , 0 , 256 -DATA 11 , 1 , 0 , 32000 -DATA 12 , 0 , -.229231 , -.227229 -DATA 13 , 0 , -.241498 , -.239157 -DATA 14 , 0 , -.215244 , -.213586 -DATA 15 , 0 , .278252 , .274675 -DATA 16 , 0 , .170592 , .169766 -DATA 17 , 0 , .324427 , .318766 -DATA 18 , 0 , 2.06673E-2 , 2.06658E-2 -DATA 19 , 0 , .189387 , .188257 -DATA 20 , 0 , -.281229 , -.277537 -DATA 21 , 0 , -.502141 , -.481303 -DATA 22 , 0 , .45066 , .43556 -DATA 23 , 0 , -.212568 , -.210971 -DATA 24 , 0 , -.472615 , -.455216 -DATA 25 , 1 , 0 , -110.907 -DATA 26 , 1 , 0 , 105.632 -DATA 27 , 1 , 0 , -114.341 -DATA 28 , 1 , 0 , 109.706 -DATA 29 , 1 , 0 , 109.198 -DATA 30 , 1 , 0 , 85.8773 -DATA 31 , 1 , 0 , -58.3548 -DATA 32 , 1 , 0 , 29.6397 -DATA 33 , 1 , 0 , -108.36 -DATA 34 , 1 , 0 , -46.5199 -DATA 35 , 1 , 0 , 112.521 -DATA 36 , 1 , 0 , 45.4151 -DATA 37 , 1 , 0 , 101.129 -DATA 38 , 1 , 0 , 65.0473 -DATA 39 , 1 , 0 , 48.4012 -DATA 40 , 1 , 0 , 122.294 -DATA 41 , 1 , 0 , -56.1094 -DATA 42 , 1 , 0 , -121.087 -DATA 43 , 1 , 0 , -123.517 -DATA 44 , 1 , 0 , -97.6301 -DATA 45 , 1 , 0 , -64.0001 -DATA 46 , 1 , 0 , -25.6888 -DATA 47 , 1 , 0 , 14.8006 -DATA 48 , 1 , 0 , -61.0877 -DATA 49 , 1 , 0 , -66.6381 -DATA 50 , 1 , 0 , -5476.5 -DATA 51 , 1 , 0 , -21210.3 -DATA 52 , 1 , 0 , -28757.2 -DATA 53 , 1 , 0 , -28732.2 -DATA 54 , 1 , 0 , 12730.3 -DATA 55 , 1 , 0 , -1830.69 -DATA 56 , 1 , 0 , 5486.39 -DATA 57 , 1 , 0 , 22405.9 -DATA 58 , 1 , 0 , 30809.8 -DATA 59 , 1 , 0 , -28930.6 -DATA 60 , 1 , 0 , -6014.53 -DATA 61 , 1 , 0 , 17414.6 -DATA 62 , 1 , 0 , -10538.3 -DATA 63 , 1 , 0 , -17536.3 -DATA 64 , 1 , 0 , -8856.62 -DATA 65 , 1 , 0 , -5140.12 -DATA 66 , 1 , 0 , -8595.31 -DATA 67 , 1 , 0 , -3382.87 -DATA 68 , 1 , 0 , -5002.07 -DATA 69 , 1 , 0 , -5800.72 -DATA 70 , 1 , 0 , 29686.4 -DATA 71 , 1 , 0 , 2571. -DATA 72 , 1 , 0 , 31091. -DATA 73 , 1 , 0 , 14819. -DATA 74 , 1 , 0 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 1 , 0 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 1 , 0 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 1 , 0 , 3.3889E+9 -DATA 82 , 1 , 0 , 2.49826E+9 -DATA 83 , 1 , 0 , 2.3491E+9 -DATA 84 , 1 , 0 , 1.94745E+8 -DATA 85 , 1 , 0 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 1 , 0 , -2.10587E+9 -DATA 88 , 1 , 0 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 1 , 0 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 1 , 0 , 1.77556E+9 -DATA 93 , 1 , 0 , 2.87705E+8 -DATA 94 , 1 , 0 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 1 , 0 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 1 , 0 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_ASIN_X_N.run b/bwbtest/NBS2X/F_ASIN_X_N.run deleted file mode 100644 index 35fbf2b..0000000 --- a/bwbtest/NBS2X/F_ASIN_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1.5708 X= 1 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1.5708 X=-1 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .411517 X= .4 - F= 0 N= .411517 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.411517 X=-.4 - F= 0 N=-.411517 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .643501 X= .6 - F= 0 N= .643501 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.643501 X=-.6 - F= 0 N=-.643501 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 X= 254 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 X= 255 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 X= 256 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 X= 32000 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.229231 X=-.227229 - F= 0 N=-.229231 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.241498 X=-.239157 - F= 0 N=-.241498 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.215244 X=-.213586 - F= 0 N=-.215244 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .278252 X= .274675 - F= 0 N= .278252 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .170592 X= .169766 - F= 0 N= .170592 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .324427 X= .318766 - F= 0 N= .324427 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06673E-2 X= 2.06658E-2 - F= 0 N= 2.06673E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .189387 X= .188257 - F= 0 N= .189387 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.281229 X=-.277537 - F= 0 N=-.281229 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.502141 X=-.481303 - F= 0 N=-.502141 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .45066 X= .43556 - F= 0 N= .45066 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.212568 X=-.210971 - F= 0 N=-.212568 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.472615 X=-.455216 - F= 0 N=-.472615 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 1 R= 0 X= 105.632 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 1 R= 0 X= 109.706 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 1 R= 0 X= 109.198 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 1 R= 0 X= 85.8773 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 1 R= 0 X= 29.6397 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 1 R= 0 X= 112.521 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 1 R= 0 X= 45.4151 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 1 R= 0 X= 101.129 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 1 R= 0 X= 65.0473 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 1 R= 0 X= 48.4012 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 1 R= 0 X= 122.294 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 X=-25.6888 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 1 R= 0 X= 14.8006 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 X= 12730.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 0 X= 5486.39 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 X= 22405.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 X= 30809.8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 X= 17414.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 X= 29686.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 0 X= 2571 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 X= 31091 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 X= 14819 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 0 X= 3790.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 X= 1.94745E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 X= 2.02475E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 X= 1.77556E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 X= 2.87705E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 X= 1.99977E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_ATN_X_N.BAS b/bwbtest/NBS2X/F_ATN_X_N.BAS deleted file mode 100644 index bef9032..0000000 --- a/bwbtest/NBS2X/F_ATN_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:15 -REM FILENAME: F_ATN_X_N.BAS -REM SYNTAX: N = ATN( X ) -REM UNIQUEID: F_ATN_X_N -REM FUNCTION: ATN -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = ATN( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , .785398 , 1 -DATA 3 , 0 , -.785398 , -1 -DATA 4 , 0 , .380506 , .4 -DATA 5 , 0 , -.380506 , -.4 -DATA 6 , 0 , .54042 , .6 -DATA 7 , 0 , -.54042 , -.6 -DATA 8 , 0 , 1.56686 , 254 -DATA 9 , 0 , 1.56687 , 255 -DATA 10 , 0 , 1.56689 , 256 -DATA 11 , 0 , 1.57077 , 32000 -DATA 12 , 0 , -.223435 , -.227229 -DATA 13 , 0 , -.234748 , -.239157 -DATA 14 , 0 , -.210424 , -.213586 -DATA 15 , 0 , .268064 , .274675 -DATA 16 , 0 , .168163 , .169766 -DATA 17 , 0 , .308583 , .318766 -DATA 18 , 0 , 2.06629E-2 , 2.06658E-2 -DATA 19 , 0 , .186079 , .188257 -DATA 20 , 0 , -.270723 , -.277537 -DATA 21 , 0 , -.448578 , -.481303 -DATA 22 , 0 , .410781 , .43556 -DATA 23 , 0 , -.207922 , -.210971 -DATA 24 , 0 , -.427183 , -.455216 -DATA 25 , 0 , -1.56178 , -110.907 -DATA 26 , 0 , 1.56133 , 105.632 -DATA 27 , 0 , -1.56205 , -114.341 -DATA 28 , 0 , 1.56168 , 109.706 -DATA 29 , 0 , 1.56164 , 109.198 -DATA 30 , 0 , 1.55915 , 85.8773 -DATA 31 , 0 , -1.55366 , -58.3548 -DATA 32 , 0 , 1.53707 , 29.6397 -DATA 33 , 0 , -1.56157 , -108.36 -DATA 34 , 0 , -1.5493 , -46.5199 -DATA 35 , 0 , 1.56191 , 112.521 -DATA 36 , 0 , 1.54878 , 45.4151 -DATA 37 , 0 , 1.56091 , 101.129 -DATA 38 , 0 , 1.55542 , 65.0473 -DATA 39 , 0 , 1.55014 , 48.4012 -DATA 40 , 0 , 1.56262 , 122.294 -DATA 41 , 0 , -1.55298 , -56.1094 -DATA 42 , 0 , -1.56254 , -121.087 -DATA 43 , 0 , -1.5627 , -123.517 -DATA 44 , 0 , -1.56055 , -97.6301 -DATA 45 , 0 , -1.55517 , -64.0001 -DATA 46 , 0 , -1.53189 , -25.6888 -DATA 47 , 0 , 1.50333 , 14.8006 -DATA 48 , 0 , -1.55443 , -61.0877 -DATA 49 , 0 , -1.55579 , -66.6381 -DATA 50 , 0 , -1.57061 , -5476.5 -DATA 51 , 0 , -1.57075 , -21210.3 -DATA 52 , 0 , -1.57076 , -28757.2 -DATA 53 , 0 , -1.57076 , -28732.2 -DATA 54 , 0 , 1.57072 , 12730.3 -DATA 55 , 0 , -1.57025 , -1830.69 -DATA 56 , 0 , 1.57061 , 5486.39 -DATA 57 , 0 , 1.57075 , 22405.9 -DATA 58 , 0 , 1.57076 , 30809.8 -DATA 59 , 0 , -1.57076 , -28930.6 -DATA 60 , 0 , -1.57063 , -6014.53 -DATA 61 , 0 , 1.57074 , 17414.6 -DATA 62 , 0 , -1.5707 , -10538.3 -DATA 63 , 0 , -1.57074 , -17536.3 -DATA 64 , 0 , -1.57068 , -8856.62 -DATA 65 , 0 , -1.5706 , -5140.12 -DATA 66 , 0 , -1.57068 , -8595.31 -DATA 67 , 0 , -1.5705 , -3382.87 -DATA 68 , 0 , -1.5706 , -5002.07 -DATA 69 , 0 , -1.57062 , -5800.72 -DATA 70 , 0 , 1.57076 , 29686.4 -DATA 71 , 0 , 1.57041 , 2571. -DATA 72 , 0 , 1.57076 , 31091. -DATA 73 , 0 , 1.57073 , 14819. -DATA 74 , 0 , 1.57053 , 3790.9 -DATA 75 , 0 , -1.5708 , -4.2981E+9 -DATA 76 , 0 , -1.5708 , -7.05453E+8 -DATA 77 , 0 , -1.5708 , -3.10179E+9 -DATA 78 , 0 , -1.5708 , -4.86159E+9 -DATA 79 , 0 , -1.5708 , -8.62908E+8 -DATA 80 , 0 , -1.5708 , -3.4101E+9 -DATA 81 , 0 , 1.5708 , 3.3889E+9 -DATA 82 , 0 , 1.5708 , 2.49826E+9 -DATA 83 , 0 , 1.5708 , 2.3491E+9 -DATA 84 , 0 , 1.5708 , 1.94745E+8 -DATA 85 , 0 , 1.5708 , 2.02475E+9 -DATA 86 , 0 , -1.5708 , -2.26748E+9 -DATA 87 , 0 , -1.5708 , -2.10587E+9 -DATA 88 , 0 , 1.5708 , 4.23585E+9 -DATA 89 , 0 , -1.5708 , -2.66524E+9 -DATA 90 , 0 , 1.5708 , 4.01052E+9 -DATA 91 , 0 , -1.5708 , -4.87912E+9 -DATA 92 , 0 , 1.5708 , 1.77556E+9 -DATA 93 , 0 , 1.5708 , 2.87705E+8 -DATA 94 , 0 , 1.5708 , 1.99977E+8 -DATA 95 , 0 , -1.5708 , -3.39941E+9 -DATA 96 , 0 , -1.5708 , -3.49119E+9 -DATA 97 , 0 , -1.5708 , -2.86324E+9 -DATA 98 , 0 , 1.5708 , 4.20418E+9 -DATA 99 , 0 , -1.5708 , -3.1518E+9 -DATA 100 , 0 , 1.5708 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_ATN_X_N.run b/bwbtest/NBS2X/F_ATN_X_N.run deleted file mode 100644 index d5e8a3b..0000000 --- a/bwbtest/NBS2X/F_ATN_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= .785398 X= 1 - F= 0 N= .785398 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-.785398 X=-1 - F= 0 N=-.785398 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .380506 X= .4 - F= 0 N= .380506 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.380506 X=-.4 - F= 0 N=-.380506 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .54042 X= .6 - F= 0 N= .54042 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.54042 X=-.6 - F= 0 N=-.54042 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 1.56686 X= 254 - F= 0 N= 1.56686 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 1.56687 X= 255 - F= 0 N= 1.56687 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 1.56689 X= 256 - F= 0 N= 1.56689 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 1.57077 X= 32000 - F= 0 N= 1.57077 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.223435 X=-.227229 - F= 0 N=-.223435 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.234748 X=-.239157 - F= 0 N=-.234748 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.210424 X=-.213586 - F= 0 N=-.210424 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .268064 X= .274675 - F= 0 N= .268064 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .168163 X= .169766 - F= 0 N= .168163 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .308583 X= .318766 - F= 0 N= .308583 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06629E-2 X= 2.06658E-2 - F= 0 N= 2.06629E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .186079 X= .188257 - F= 0 N= .186079 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.270723 X=-.277537 - F= 0 N=-.270723 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.448578 X=-.481303 - F= 0 N=-.448578 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .410781 X= .43556 - F= 0 N= .410781 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.207922 X=-.210971 - F= 0 N=-.207922 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.427183 X=-.455216 - F= 0 N=-.427183 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-1.56178 X=-110.907 - F= 0 N=-1.56178 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 1.56133 X= 105.632 - F= 0 N= 1.56133 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-1.56205 X=-114.341 - F= 0 N=-1.56205 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 1.56168 X= 109.706 - F= 0 N= 1.56168 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 1.56164 X= 109.198 - F= 0 N= 1.56164 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1.55915 X= 85.8773 - F= 0 N= 1.55915 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-1.55366 X=-58.3548 - F= 0 N=-1.55366 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 1.53707 X= 29.6397 - F= 0 N= 1.53707 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-1.56157 X=-108.36 - F= 0 N=-1.56157 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-1.5493 X=-46.5199 - F= 0 N=-1.5493 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 1.56191 X= 112.521 - F= 0 N= 1.56191 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 1.54878 X= 45.4151 - F= 0 N= 1.54878 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1.56091 X= 101.129 - F= 0 N= 1.56091 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1.55542 X= 65.0473 - F= 0 N= 1.55542 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 1.55014 X= 48.4012 - F= 0 N= 1.55014 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 1.56262 X= 122.294 - F= 0 N= 1.56262 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-1.55298 X=-56.1094 - F= 0 N=-1.55298 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-1.56254 X=-121.087 - F= 0 N=-1.56254 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-1.5627 X=-123.517 - F= 0 N=-1.5627 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-1.56055 X=-97.6301 - F= 0 N=-1.56055 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-1.55517 X=-64.0001 - F= 0 N=-1.55517 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-1.53189 X=-25.6888 - F= 0 N=-1.53189 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 1.50333 X= 14.8006 - F= 0 N= 1.50333 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-1.55443 X=-61.0877 - F= 0 N=-1.55443 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-1.55579 X=-66.6381 - F= 0 N=-1.55579 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-1.57061 X=-5476.5 - F= 0 N=-1.57061 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-1.57075 X=-21210.3 - F= 0 N=-1.57075 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-1.57076 X=-28757.2 - F= 0 N=-1.57076 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-1.57076 X=-28732.2 - F= 0 N=-1.57076 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 1.57072 X= 12730.3 - F= 0 N= 1.57072 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1.57025 X=-1830.69 - F= 0 N=-1.57025 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 1.57061 X= 5486.39 - F= 0 N= 1.57061 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 1.57075 X= 22405.9 - F= 0 N= 1.57075 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 1.57076 X= 30809.8 - F= 0 N= 1.57076 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-1.57076 X=-28930.6 - F= 0 N=-1.57076 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-1.57063 X=-6014.53 - F= 0 N=-1.57063 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 1.57074 X= 17414.6 - F= 0 N= 1.57074 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-1.5707 X=-10538.3 - F= 0 N=-1.5707 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-1.57074 X=-17536.3 - F= 0 N=-1.57074 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-1.57068 X=-8856.62 - F= 0 N=-1.57068 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-1.5706 X=-5140.12 - F= 0 N=-1.5706 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-1.57068 X=-8595.31 - F= 0 N=-1.57068 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-1.5705 X=-3382.87 - F= 0 N=-1.5705 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-1.5706 X=-5002.07 - F= 0 N=-1.5706 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-1.57062 X=-5800.72 - F= 0 N=-1.57062 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 1.57076 X= 29686.4 - F= 0 N= 1.57076 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 1.57041 X= 2571 - F= 0 N= 1.57041 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 1.57076 X= 31091 - F= 0 N= 1.57076 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 1.57073 X= 14819 - F= 0 N= 1.57073 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 1.57053 X= 3790.9 - F= 0 N= 1.57053 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-1.5708 X=-4.2981E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-1.5708 X=-7.05453E+8 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-1.5708 X=-3.10179E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-1.5708 X=-4.86159E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-1.5708 X=-8.62908E+8 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-1.5708 X=-3.4101E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 1.5708 X= 3.3889E+9 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 1.5708 X= 2.49826E+9 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 1.5708 X= 2.3491E+9 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.5708 X= 1.94745E+8 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 1.5708 X= 2.02475E+9 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-1.5708 X=-2.26748E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-1.5708 X=-2.10587E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 1.5708 X= 4.23585E+9 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-1.5708 X=-2.66524E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 1.5708 X= 4.01052E+9 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-1.5708 X=-4.87912E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.5708 X= 1.77556E+9 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 1.5708 X= 2.87705E+8 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.5708 X= 1.99977E+8 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-1.5708 X=-3.39941E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-1.5708 X=-3.49119E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-1.5708 X=-2.86324E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 1.5708 X= 4.20418E+9 - F= 0 N= 1.5708 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-1.5708 X=-3.1518E+9 - F= 0 N=-1.5708 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 1.5708 X= 4.60615E+9 - F= 0 N= 1.5708 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CCUR_X_N.BAS b/bwbtest/NBS2X/F_CCUR_X_N.BAS deleted file mode 100644 index 2ad53a5..0000000 --- a/bwbtest/NBS2X/F_CCUR_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:16 -REM FILENAME: F_CCUR_X_N.BAS -REM SYNTAX: N = CCUR( X ) -REM UNIQUEID: F_CCUR_X_N -REM FUNCTION: CCUR -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CCUR( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , -1 , -1 -DATA 4 , 0 , 0 , .4 -DATA 5 , 0 , 0 , -.4 -DATA 6 , 0 , 1 , .6 -DATA 7 , 0 , -1 , -.6 -DATA 8 , 0 , 254 , 254 -DATA 9 , 0 , 255 , 255 -DATA 10 , 0 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , 0 , -.227229 -DATA 13 , 0 , 0 , -.239157 -DATA 14 , 0 , 0 , -.213586 -DATA 15 , 0 , 0 , .274675 -DATA 16 , 0 , 0 , .169766 -DATA 17 , 0 , 0 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 -DATA 20 , 0 , 0 , -.277537 -DATA 21 , 0 , 0 , -.481303 -DATA 22 , 0 , 0 , .43556 -DATA 23 , 0 , 0 , -.210971 -DATA 24 , 0 , 0 , -.455216 -DATA 25 , 0 , -111 , -110.907 -DATA 26 , 0 , 106 , 105.632 -DATA 27 , 0 , -114 , -114.341 -DATA 28 , 0 , 110 , 109.706 -DATA 29 , 0 , 109 , 109.198 -DATA 30 , 0 , 86 , 85.8773 -DATA 31 , 0 , -58 , -58.3548 -DATA 32 , 0 , 30 , 29.6397 -DATA 33 , 0 , -108 , -108.36 -DATA 34 , 0 , -47 , -46.5199 -DATA 35 , 0 , 113 , 112.521 -DATA 36 , 0 , 45 , 45.4151 -DATA 37 , 0 , 101 , 101.129 -DATA 38 , 0 , 65 , 65.0473 -DATA 39 , 0 , 48 , 48.4012 -DATA 40 , 0 , 122 , 122.294 -DATA 41 , 0 , -56 , -56.1094 -DATA 42 , 0 , -121 , -121.087 -DATA 43 , 0 , -124 , -123.517 -DATA 44 , 0 , -98 , -97.6301 -DATA 45 , 0 , -64 , -64.0001 -DATA 46 , 0 , -26 , -25.6888 -DATA 47 , 0 , 15 , 14.8006 -DATA 48 , 0 , -61 , -61.0877 -DATA 49 , 0 , -67 , -66.6381 -DATA 50 , 0 , -5476 , -5476.5 -DATA 51 , 0 , -21210 , -21210.3 -DATA 52 , 0 , -28757 , -28757.2 -DATA 53 , 0 , -28732 , -28732.2 -DATA 54 , 0 , 12730 , 12730.3 -DATA 55 , 0 , -1831 , -1830.69 -DATA 56 , 0 , 5486 , 5486.39 -DATA 57 , 0 , 22406 , 22405.9 -DATA 58 , 0 , 30810 , 30809.8 -DATA 59 , 0 , -28931 , -28930.6 -DATA 60 , 0 , -6015 , -6014.53 -DATA 61 , 0 , 17415 , 17414.6 -DATA 62 , 0 , -10538 , -10538.3 -DATA 63 , 0 , -17536 , -17536.3 -DATA 64 , 0 , -8857 , -8856.62 -DATA 65 , 0 , -5140 , -5140.12 -DATA 66 , 0 , -8595 , -8595.31 -DATA 67 , 0 , -3383 , -3382.87 -DATA 68 , 0 , -5002 , -5002.07 -DATA 69 , 0 , -5801 , -5800.72 -DATA 70 , 0 , 29686 , 29686.4 -DATA 71 , 0 , 2571 , 2571. -DATA 72 , 0 , 31091 , 31091. -DATA 73 , 0 , 14819 , 14819. -DATA 74 , 0 , 3791 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 1 , 0 , 3.3889E+9 -DATA 82 , 1 , 0 , 2.49826E+9 -DATA 83 , 1 , 0 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 1 , 0 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 1 , 0 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 1 , 0 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 1 , 0 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CCUR_X_N.PRO b/bwbtest/NBS2X/F_CCUR_X_N.PRO deleted file mode 100644 index 8c6ae8e..0000000 --- a/bwbtest/NBS2X/F_CCUR_X_N.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION ROUND MATH diff --git a/bwbtest/NBS2X/F_CCUR_X_N.run b/bwbtest/NBS2X/F_CCUR_X_N.run deleted file mode 100644 index a3f1edf..0000000 --- a/bwbtest/NBS2X/F_CCUR_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 0 X= .4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1 X= .6 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-1 X=-.6 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 0 X= .43556 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-111 X=-110.907 - F= 0 N=-111 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 106 X= 105.632 - F= 0 N= 106 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-114 X=-114.341 - F= 0 N=-114 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 110 X= 109.706 - F= 0 N= 110 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109 X= 109.198 - F= 0 N= 109 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 86 X= 85.8773 - F= 0 N= 86 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-58 X=-58.3548 - F= 0 N=-58 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 30 X= 29.6397 - F= 0 N= 30 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-108 X=-108.36 - F= 0 N=-108 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-47 X=-46.5199 - F= 0 N=-47 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 113 X= 112.521 - F= 0 N= 113 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45 X= 45.4151 - F= 0 N= 45 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101 X= 101.129 - F= 0 N= 101 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65 X= 65.0473 - F= 0 N= 65 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48 X= 48.4012 - F= 0 N= 48 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122 X= 122.294 - F= 0 N= 122 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-56 X=-56.1094 - F= 0 N=-56 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-121 X=-121.087 - F= 0 N=-121 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-124 X=-123.517 - F= 0 N=-124 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-98 X=-97.6301 - F= 0 N=-98 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-64 X=-64.0001 - F= 0 N=-64 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-26 X=-25.6888 - F= 0 N=-26 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 15 X= 14.8006 - F= 0 N= 15 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-61 X=-61.0877 - F= 0 N=-61 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-67 X=-66.6381 - F= 0 N=-67 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5476 X=-5476.5 - F= 0 N=-5477 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21210 X=-21210.3 - F= 0 N=-21210 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28757 X=-28757.2 - F= 0 N=-28757 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28732 X=-28732.2 - F= 0 N=-28732 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730 X= 12730.3 - F= 0 N= 12730 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1831 X=-1830.69 - F= 0 N=-1831 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486 X= 5486.39 - F= 0 N= 5486 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22406 X= 22405.9 - F= 0 N= 22406 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30810 X= 30809.8 - F= 0 N= 30810 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28931 X=-28930.6 - F= 0 N=-28931 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6015 X=-6014.53 - F= 0 N=-6015 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17415 X= 17414.6 - F= 0 N= 17415 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10538 X=-10538.3 - F= 0 N=-10538 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17536 X=-17536.3 - F= 0 N=-17536 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8857 X=-8856.62 - F= 0 N=-8857 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5140 X=-5140.12 - F= 0 N=-5140 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8595 X=-8595.31 - F= 0 N=-8595 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3383 X=-3382.87 - F= 0 N=-3383 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5002 X=-5002.07 - F= 0 N=-5002 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5801 X=-5800.72 - F= 0 N=-5801 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686 X= 29686.4 - F= 0 N= 29686 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3791 X= 3790.9 - F= 0 N= 3791 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CDBL_X_N.BAS b/bwbtest/NBS2X/F_CDBL_X_N.BAS deleted file mode 100644 index 7383f18..0000000 --- a/bwbtest/NBS2X/F_CDBL_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:16 -REM FILENAME: F_CDBL_X_N.BAS -REM SYNTAX: N = CDBL( X ) -REM UNIQUEID: F_CDBL_X_N -REM FUNCTION: CDBL -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CDBL( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , -1 , -1 -DATA 4 , 0 , .4 , .4 -DATA 5 , 0 , -.4 , -.4 -DATA 6 , 0 , .6 , .6 -DATA 7 , 0 , -.6 , -.6 -DATA 8 , 0 , 254 , 254 -DATA 9 , 0 , 255 , 255 -DATA 10 , 0 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , -.227229 , -.227229 -DATA 13 , 0 , -.239157 , -.239157 -DATA 14 , 0 , -.213586 , -.213586 -DATA 15 , 0 , .274675 , .274675 -DATA 16 , 0 , .169766 , .169766 -DATA 17 , 0 , .318766 , .318766 -DATA 18 , 0 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , .188257 , .188257 -DATA 20 , 0 , -.277537 , -.277537 -DATA 21 , 0 , -.481303 , -.481303 -DATA 22 , 0 , .43556 , .43556 -DATA 23 , 0 , -.210971 , -.210971 -DATA 24 , 0 , -.455216 , -.455216 -DATA 25 , 0 , -110.907 , -110.907 -DATA 26 , 0 , 105.632 , 105.632 -DATA 27 , 0 , -114.341 , -114.341 -DATA 28 , 0 , 109.706 , 109.706 -DATA 29 , 0 , 109.198 , 109.198 -DATA 30 , 0 , 85.8773 , 85.8773 -DATA 31 , 0 , -58.3548 , -58.3548 -DATA 32 , 0 , 29.6397 , 29.6397 -DATA 33 , 0 , -108.36 , -108.36 -DATA 34 , 0 , -46.5199 , -46.5199 -DATA 35 , 0 , 112.521 , 112.521 -DATA 36 , 0 , 45.4151 , 45.4151 -DATA 37 , 0 , 101.129 , 101.129 -DATA 38 , 0 , 65.0473 , 65.0473 -DATA 39 , 0 , 48.4012 , 48.4012 -DATA 40 , 0 , 122.294 , 122.294 -DATA 41 , 0 , -56.1094 , -56.1094 -DATA 42 , 0 , -121.087 , -121.087 -DATA 43 , 0 , -123.517 , -123.517 -DATA 44 , 0 , -97.6301 , -97.6301 -DATA 45 , 0 , -64.0001 , -64.0001 -DATA 46 , 0 , -25.6888 , -25.6888 -DATA 47 , 0 , 14.8006 , 14.8006 -DATA 48 , 0 , -61.0877 , -61.0877 -DATA 49 , 0 , -66.6381 , -66.6381 -DATA 50 , 0 , -5476.5 , -5476.5 -DATA 51 , 0 , -21210.3 , -21210.3 -DATA 52 , 0 , -28757.2 , -28757.2 -DATA 53 , 0 , -28732.2 , -28732.2 -DATA 54 , 0 , 12730.3 , 12730.3 -DATA 55 , 0 , -1830.69 , -1830.69 -DATA 56 , 0 , 5486.39 , 5486.39 -DATA 57 , 0 , 22405.9 , 22405.9 -DATA 58 , 0 , 30809.8 , 30809.8 -DATA 59 , 0 , -28930.6 , -28930.6 -DATA 60 , 0 , -6014.53 , -6014.53 -DATA 61 , 0 , 17414.6 , 17414.6 -DATA 62 , 0 , -10538.3 , -10538.3 -DATA 63 , 0 , -17536.3 , -17536.3 -DATA 64 , 0 , -8856.62 , -8856.62 -DATA 65 , 0 , -5140.12 , -5140.12 -DATA 66 , 0 , -8595.31 , -8595.31 -DATA 67 , 0 , -3382.87 , -3382.87 -DATA 68 , 0 , -5002.07 , -5002.07 -DATA 69 , 0 , -5800.72 , -5800.72 -DATA 70 , 0 , 29686.4 , 29686.4 -DATA 71 , 0 , 2571 , 2571. -DATA 72 , 0 , 31091 , 31091. -DATA 73 , 0 , 14819 , 14819. -DATA 74 , 0 , 3790.9 , 3790.9 -DATA 75 , 0 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CDBL_X_N.run b/bwbtest/NBS2X/F_CDBL_X_N.run deleted file mode 100644 index 2ef9542..0000000 --- a/bwbtest/NBS2X/F_CDBL_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .4 X= .4 - F= 0 N= .4 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.4 X=-.4 - F= 0 N=-.4 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .6 X= .6 - F= 0 N= .6 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.6 X=-.6 - F= 0 N=-.6 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.227229 X=-.227229 - F= 0 N=-.227229 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.239157 X=-.239157 - F= 0 N=-.239157 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.213586 X=-.213586 - F= 0 N=-.213586 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .274675 X= .274675 - F= 0 N= .274675 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .169766 X= .169766 - F= 0 N= .169766 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .318766 X= .318766 - F= 0 N= .318766 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06658E-2 X= 2.06658E-2 - F= 0 N= 2.06658E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .188257 X= .188257 - F= 0 N= .188257 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.277537 X=-.277537 - F= 0 N=-.277537 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.481303 X=-.481303 - F= 0 N=-.481303 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .43556 X= .43556 - F= 0 N= .43556 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.210971 X=-.210971 - F= 0 N=-.210971 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.455216 X=-.455216 - F= 0 N=-.455216 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-110.907 X=-110.907 - F= 0 N=-110.907 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 105.632 X= 105.632 - F= 0 N= 105.632 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-114.341 X=-114.341 - F= 0 N=-114.341 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 109.706 X= 109.706 - F= 0 N= 109.706 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109.198 X= 109.198 - F= 0 N= 109.198 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 85.8773 X= 85.8773 - F= 0 N= 85.8773 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-58.3548 X=-58.3548 - F= 0 N=-58.3548 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 29.6397 X= 29.6397 - F= 0 N= 29.6397 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-108.36 X=-108.36 - F= 0 N=-108.36 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-46.5199 X=-46.5199 - F= 0 N=-46.5199 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 112.521 X= 112.521 - F= 0 N= 112.521 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45.4151 X= 45.4151 - F= 0 N= 45.4151 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101.129 X= 101.129 - F= 0 N= 101.129 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65.0473 X= 65.0473 - F= 0 N= 65.0473 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48.4012 X= 48.4012 - F= 0 N= 48.4012 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122.294 X= 122.294 - F= 0 N= 122.294 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-56.1094 X=-56.1094 - F= 0 N=-56.1094 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-121.087 X=-121.087 - F= 0 N=-121.087 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-123.517 X=-123.517 - F= 0 N=-123.517 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-97.6301 X=-97.6301 - F= 0 N=-97.6301 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-64.0001 X=-64.0001 - F= 0 N=-64.0001 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-25.6888 X=-25.6888 - F= 0 N=-25.6888 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 14.8006 X= 14.8006 - F= 0 N= 14.8006 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-61.0877 X=-61.0877 - F= 0 N=-61.0877 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-66.6381 X=-66.6381 - F= 0 N=-66.6381 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5476.5 X=-5476.5 - F= 0 N=-5476.5 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21210.3 X=-21210.3 - F= 0 N=-21210.3 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28757.2 X=-28757.2 - F= 0 N=-28757.2 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28732.2 X=-28732.2 - F= 0 N=-28732.2 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730.3 X= 12730.3 - F= 0 N= 12730.3 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1830.69 X=-1830.69 - F= 0 N=-1830.69 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486.39 X= 5486.39 - F= 0 N= 5486.39 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22405.9 X= 22405.9 - F= 0 N= 22405.9 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30809.8 X= 30809.8 - F= 0 N= 30809.8 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28930.6 X=-28930.6 - F= 0 N=-28930.6 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6014.53 X=-6014.53 - F= 0 N=-6014.53 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17414.6 X= 17414.6 - F= 0 N= 17414.6 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10538.3 X=-10538.3 - F= 0 N=-10538.3 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17536.3 X=-17536.3 - F= 0 N=-17536.3 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8856.62 X=-8856.62 - F= 0 N=-8856.62 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5140.12 X=-5140.12 - F= 0 N=-5140.12 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8595.31 X=-8595.31 - F= 0 N=-8595.31 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3382.87 X=-3382.87 - F= 0 N=-3382.87 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5002.07 X=-5002.07 - F= 0 N=-5002.07 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5800.72 X=-5800.72 - F= 0 N=-5800.72 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686.4 X= 29686.4 - F= 0 N= 29686.4 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3790.9 X= 3790.9 - F= 0 N= 3790.9 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-4.2981E+9 X=-4.2981E+9 - F= 0 N=-4.2981E+9 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-3.10179E+9 X=-3.10179E+9 - F= 0 N=-3.10179E+9 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-4.86159E+9 X=-4.86159E+9 - F= 0 N=-4.86159E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-3.4101E+9 X=-3.4101E+9 - F= 0 N=-3.4101E+9 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 3.3889E+9 X= 3.3889E+9 - F= 0 N= 3.3889E+9 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 2.49826E+9 X= 2.49826E+9 - F= 0 N= 2.49826E+9 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.3491E+9 X= 2.3491E+9 - F= 0 N= 2.3491E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-2.26748E+9 X=-2.26748E+9 - F= 0 N=-2.26748E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 4.23585E+9 X= 4.23585E+9 - F= 0 N= 4.23585E+9 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-2.66524E+9 X=-2.66524E+9 - F= 0 N=-2.66524E+9 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 4.01052E+9 X= 4.01052E+9 - F= 0 N= 4.01052E+9 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-4.87912E+9 X=-4.87912E+9 - F= 0 N=-4.87912E+9 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-3.39941E+9 X=-3.39941E+9 - F= 0 N=-3.39941E+9 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-3.49119E+9 X=-3.49119E+9 - F= 0 N=-3.49119E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-2.86324E+9 X=-2.86324E+9 - F= 0 N=-2.86324E+9 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 4.20418E+9 X= 4.20418E+9 - F= 0 N= 4.20418E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-3.1518E+9 X=-3.1518E+9 - F= 0 N=-3.1518E+9 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 4.60615E+9 X= 4.60615E+9 - F= 0 N= 4.60615E+9 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CEIL_X_N.BAS b/bwbtest/NBS2X/F_CEIL_X_N.BAS deleted file mode 100644 index f424ef7..0000000 --- a/bwbtest/NBS2X/F_CEIL_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:16 -REM FILENAME: F_CEIL_X_N.BAS -REM SYNTAX: N = CEIL( X ) -REM UNIQUEID: F_CEIL_X_N -REM FUNCTION: CEIL -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CEIL( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , -1 , -1 -DATA 4 , 0 , 1 , .4 -DATA 5 , 0 , 0 , -.4 -DATA 6 , 0 , 1 , .6 -DATA 7 , 0 , 0 , -.6 -DATA 8 , 0 , 254 , 254 -DATA 9 , 0 , 255 , 255 -DATA 10 , 0 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , 0 , -.227229 -DATA 13 , 0 , 0 , -.239157 -DATA 14 , 0 , 0 , -.213586 -DATA 15 , 0 , 1 , .274675 -DATA 16 , 0 , 1 , .169766 -DATA 17 , 0 , 1 , .318766 -DATA 18 , 0 , 1 , 2.06658E-2 -DATA 19 , 0 , 1 , .188257 -DATA 20 , 0 , 0 , -.277537 -DATA 21 , 0 , 0 , -.481303 -DATA 22 , 0 , 1 , .43556 -DATA 23 , 0 , 0 , -.210971 -DATA 24 , 0 , 0 , -.455216 -DATA 25 , 0 , -110 , -110.907 -DATA 26 , 0 , 106 , 105.632 -DATA 27 , 0 , -114 , -114.341 -DATA 28 , 0 , 110 , 109.706 -DATA 29 , 0 , 110 , 109.198 -DATA 30 , 0 , 86 , 85.8773 -DATA 31 , 0 , -58 , -58.3548 -DATA 32 , 0 , 30 , 29.6397 -DATA 33 , 0 , -108 , -108.36 -DATA 34 , 0 , -46 , -46.5199 -DATA 35 , 0 , 113 , 112.521 -DATA 36 , 0 , 46 , 45.4151 -DATA 37 , 0 , 102 , 101.129 -DATA 38 , 0 , 66 , 65.0473 -DATA 39 , 0 , 49 , 48.4012 -DATA 40 , 0 , 123 , 122.294 -DATA 41 , 0 , -56 , -56.1094 -DATA 42 , 0 , -121 , -121.087 -DATA 43 , 0 , -123 , -123.517 -DATA 44 , 0 , -97 , -97.6301 -DATA 45 , 0 , -64 , -64.0001 -DATA 46 , 0 , -25 , -25.6888 -DATA 47 , 0 , 15 , 14.8006 -DATA 48 , 0 , -61 , -61.0877 -DATA 49 , 0 , -66 , -66.6381 -DATA 50 , 0 , -5476 , -5476.5 -DATA 51 , 0 , -21210 , -21210.3 -DATA 52 , 0 , -28757 , -28757.2 -DATA 53 , 0 , -28732 , -28732.2 -DATA 54 , 0 , 12731 , 12730.3 -DATA 55 , 0 , -1830 , -1830.69 -DATA 56 , 0 , 5487 , 5486.39 -DATA 57 , 0 , 22406 , 22405.9 -DATA 58 , 0 , 30810 , 30809.8 -DATA 59 , 0 , -28930 , -28930.6 -DATA 60 , 0 , -6014 , -6014.53 -DATA 61 , 0 , 17415 , 17414.6 -DATA 62 , 0 , -10538 , -10538.3 -DATA 63 , 0 , -17536 , -17536.3 -DATA 64 , 0 , -8856 , -8856.62 -DATA 65 , 0 , -5140 , -5140.12 -DATA 66 , 0 , -8595 , -8595.31 -DATA 67 , 0 , -3382 , -3382.87 -DATA 68 , 0 , -5002 , -5002.07 -DATA 69 , 0 , -5800 , -5800.72 -DATA 70 , 0 , 29687 , 29686.4 -DATA 71 , 0 , 2571 , 2571. -DATA 72 , 0 , 31091 , 31091. -DATA 73 , 0 , 14819 , 14819. -DATA 74 , 0 , 3791 , 3790.9 -DATA 75 , 0 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CEIL_X_N.run b/bwbtest/NBS2X/F_CEIL_X_N.run deleted file mode 100644 index d5d4f5d..0000000 --- a/bwbtest/NBS2X/F_CEIL_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 1 X= .4 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1 X= .6 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 0 X=-.6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 1 X= .274675 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1 X= .169766 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1 X= .318766 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 1 X= 2.06658E-2 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 1 X= .188257 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 1 X= .43556 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-110 X=-110.907 - F= 0 N=-110 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 106 X= 105.632 - F= 0 N= 106 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-114 X=-114.341 - F= 0 N=-114 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 110 X= 109.706 - F= 0 N= 110 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 110 X= 109.198 - F= 0 N= 110 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 86 X= 85.8773 - F= 0 N= 86 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-58 X=-58.3548 - F= 0 N=-58 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 30 X= 29.6397 - F= 0 N= 30 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-108 X=-108.36 - F= 0 N=-108 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-46 X=-46.5199 - F= 0 N=-46 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 113 X= 112.521 - F= 0 N= 113 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 46 X= 45.4151 - F= 0 N= 46 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 102 X= 101.129 - F= 0 N= 102 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 66 X= 65.0473 - F= 0 N= 66 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 49 X= 48.4012 - F= 0 N= 49 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 123 X= 122.294 - F= 0 N= 123 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-56 X=-56.1094 - F= 0 N=-56 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-121 X=-121.087 - F= 0 N=-121 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-123 X=-123.517 - F= 0 N=-123 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-97 X=-97.6301 - F= 0 N=-97 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-64 X=-64.0001 - F= 0 N=-64 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-25 X=-25.6888 - F= 0 N=-25 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 15 X= 14.8006 - F= 0 N= 15 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-61 X=-61.0877 - F= 0 N=-61 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-66 X=-66.6381 - F= 0 N=-66 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5476 X=-5476.5 - F= 0 N=-5476 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21210 X=-21210.3 - F= 0 N=-21210 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28757 X=-28757.2 - F= 0 N=-28757 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28732 X=-28732.2 - F= 0 N=-28732 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12731 X= 12730.3 - F= 0 N= 12731 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1830 X=-1830.69 - F= 0 N=-1830 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5487 X= 5486.39 - F= 0 N= 5487 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22406 X= 22405.9 - F= 0 N= 22406 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30810 X= 30809.8 - F= 0 N= 30810 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28930 X=-28930.6 - F= 0 N=-28930 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6014 X=-6014.53 - F= 0 N=-6014 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17415 X= 17414.6 - F= 0 N= 17415 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10538 X=-10538.3 - F= 0 N=-10538 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17536 X=-17536.3 - F= 0 N=-17536 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8856 X=-8856.62 - F= 0 N=-8856 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5140 X=-5140.12 - F= 0 N=-5140 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8595 X=-8595.31 - F= 0 N=-8595 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3382 X=-3382.87 - F= 0 N=-3382 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5002 X=-5002.07 - F= 0 N=-5002 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5800 X=-5800.72 - F= 0 N=-5800 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29687 X= 29686.4 - F= 0 N= 29687 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3791 X= 3790.9 - F= 0 N= 3791 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-4.2981E+9 X=-4.2981E+9 - F= 0 N=-4.2981E+9 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-3.10179E+9 X=-3.10179E+9 - F= 0 N=-3.10179E+9 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-4.86159E+9 X=-4.86159E+9 - F= 0 N=-4.86159E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-3.4101E+9 X=-3.4101E+9 - F= 0 N=-3.4101E+9 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 3.3889E+9 X= 3.3889E+9 - F= 0 N= 3.3889E+9 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 2.49826E+9 X= 2.49826E+9 - F= 0 N= 2.49826E+9 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.3491E+9 X= 2.3491E+9 - F= 0 N= 2.3491E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-2.26748E+9 X=-2.26748E+9 - F= 0 N=-2.26748E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 4.23585E+9 X= 4.23585E+9 - F= 0 N= 4.23585E+9 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-2.66524E+9 X=-2.66524E+9 - F= 0 N=-2.66524E+9 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 4.01052E+9 X= 4.01052E+9 - F= 0 N= 4.01052E+9 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-4.87912E+9 X=-4.87912E+9 - F= 0 N=-4.87912E+9 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-3.39941E+9 X=-3.39941E+9 - F= 0 N=-3.39941E+9 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-3.49119E+9 X=-3.49119E+9 - F= 0 N=-3.49119E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-2.86324E+9 X=-2.86324E+9 - F= 0 N=-2.86324E+9 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 4.20418E+9 X= 4.20418E+9 - F= 0 N= 4.20418E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-3.1518E+9 X=-3.1518E+9 - F= 0 N=-3.1518E+9 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 4.60615E+9 X= 4.60615E+9 - F= 0 N= 4.60615E+9 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CHR_X_S.BAS b/bwbtest/NBS2X/F_CHR_X_S.BAS deleted file mode 100644 index 003f339..0000000 --- a/bwbtest/NBS2X/F_CHR_X_S.BAS +++ /dev/null @@ -1,163 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 03/05/2017 20:20:27 -REM FILENAME: F_CHR_X_S.BAS -REM SYNTAX: S$ = CHR$( X ) -REM UNIQUEID: F_CHR_X_S -REM FUNCTION: CHR$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = CHR$( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -REM -REM IF R$ <> S$ THEN -IF E = 0 THEN - IF CINT(X) <> ASC(S$) OR LEN(S$) <> 1 THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP - END IF -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", 0 -DATA 2 , 0 , "", 1 -DATA 3 , 1 , "", -1 -DATA 4 , 0 , "", .4 -DATA 5 , 0 , "", -.4 -DATA 6 , 0 , "", .6 -DATA 7 , 1 , "", -.6 -DATA 8 , 0 , "þ", 254 -DATA 9 , 0 , "ÿ", 255 -DATA 10 , 1 , "", 256 -DATA 11 , 1 , "", 32000 -DATA 12 , 0 , "", -.227229 -DATA 13 , 0 , "", -.239157 -DATA 14 , 0 , "", -.213586 -DATA 15 , 0 , "", .274675 -DATA 16 , 0 , "", .169766 -DATA 17 , 0 , "", .318766 -DATA 18 , 0 , "", 2.06658E-2 -DATA 19 , 0 , "", .188257 -DATA 20 , 0 , "", -.277537 -DATA 21 , 0 , "", -.481303 -DATA 22 , 0 , "", .43556 -DATA 23 , 0 , "", -.210971 -DATA 24 , 0 , "", -.455216 -DATA 25 , 1 , "", -110.907 -DATA 26 , 0 , "j", 105.632 -DATA 27 , 1 , "", -114.341 -DATA 28 , 0 , "n", 109.706 -DATA 29 , 0 , "m", 109.198 -DATA 30 , 0 , "V", 85.8773 -DATA 31 , 1 , "", -58.3548 -DATA 32 , 0 , "", 29.6397 -DATA 33 , 1 , "", -108.36 -DATA 34 , 1 , "", -46.5199 -DATA 35 , 0 , "q", 112.521 -DATA 36 , 0 , "-", 45.4151 -DATA 37 , 0 , "e", 101.129 -DATA 38 , 0 , "A", 65.0473 -DATA 39 , 0 , "0", 48.4012 -DATA 40 , 0 , "z", 122.294 -DATA 41 , 1 , "", -56.1094 -DATA 42 , 1 , "", -121.087 -DATA 43 , 1 , "", -123.517 -DATA 44 , 1 , "", -97.6301 -DATA 45 , 1 , "", -64.0001 -DATA 46 , 1 , "", -25.6888 -DATA 47 , 0 , "", 14.8006 -DATA 48 , 1 , "", -61.0877 -DATA 49 , 1 , "", -66.6381 -DATA 50 , 1 , "", -5476.5 -DATA 51 , 1 , "", -21210.3 -DATA 52 , 1 , "", -28757.2 -DATA 53 , 1 , "", -28732.2 -DATA 54 , 1 , "", 12730.3 -DATA 55 , 1 , "", -1830.69 -DATA 56 , 1 , "", 5486.39 -DATA 57 , 1 , "", 22405.9 -DATA 58 , 1 , "", 30809.8 -DATA 59 , 1 , "", -28930.6 -DATA 60 , 1 , "", -6014.53 -DATA 61 , 1 , "", 17414.6 -DATA 62 , 1 , "", -10538.3 -DATA 63 , 1 , "", -17536.3 -DATA 64 , 1 , "", -8856.62 -DATA 65 , 1 , "", -5140.12 -DATA 66 , 1 , "", -8595.31 -DATA 67 , 1 , "", -3382.87 -DATA 68 , 1 , "", -5002.07 -DATA 69 , 1 , "", -5800.72 -DATA 70 , 1 , "", 29686.4 -DATA 71 , 1 , "", 2571. -DATA 72 , 1 , "", 31091. -DATA 73 , 1 , "", 14819. -DATA 74 , 1 , "", 3790.9 -DATA 75 , 1 , "", -4.2981E+9 -DATA 76 , 1 , "", -7.05453E+8 -DATA 77 , 1 , "", -3.10179E+9 -DATA 78 , 1 , "", -4.86159E+9 -DATA 79 , 1 , "", -8.62908E+8 -DATA 80 , 1 , "", -3.4101E+9 -DATA 81 , 1 , "", 3.3889E+9 -DATA 82 , 1 , "", 2.49826E+9 -DATA 83 , 1 , "", 2.3491E+9 -DATA 84 , 1 , "", 1.94745E+8 -DATA 85 , 1 , "", 2.02475E+9 -DATA 86 , 1 , "", -2.26748E+9 -DATA 87 , 1 , "", -2.10587E+9 -DATA 88 , 1 , "", 4.23585E+9 -DATA 89 , 1 , "", -2.66524E+9 -DATA 90 , 1 , "", 4.01052E+9 -DATA 91 , 1 , "", -4.87912E+9 -DATA 92 , 1 , "", 1.77556E+9 -DATA 93 , 1 , "", 2.87705E+8 -DATA 94 , 1 , "", 1.99977E+8 -DATA 95 , 1 , "", -3.39941E+9 -DATA 96 , 1 , "", -3.49119E+9 -DATA 97 , 1 , "", -2.86324E+9 -DATA 98 , 1 , "", 4.20418E+9 -DATA 99 , 1 , "", -3.1518E+9 -DATA 100 , 1 , "", 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CHR_X_S.run b/bwbtest/NBS2X/F_CHR_X_S.run deleted file mode 100644 index 6e7f597..0000000 --- a/bwbtest/NBS2X/F_CHR_X_S.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] X= 0 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] X= 1 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 3 E= 1 R$=[] X=-1 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[] X= .4 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[] X=-.4 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ ] X= .6 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 7 E= 1 R$=[] X=-.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[ ] X= 254 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[ ] X= 255 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 10 E= 1 R$=[] X= 256 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 11 E= 1 R$=[] X= 32000 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[] X=-.227229 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[] X=-.239157 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[] X=-.213586 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[] X= .274675 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[] X= .169766 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[] X= .318766 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[] X= 2.06658E-2 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[] X= .188257 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[] X=-.277537 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[] X=-.481303 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[] X= .43556 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[] X=-.210971 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[] X=-.455216 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 25 E= 1 R$=[] X=-110.907 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[j] X= 105.632 - F= 0 S$=[j] -*** TEST PASSED *** -TESTCASE # 27 E= 1 R$=[] X=-114.341 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[n] X= 109.706 - F= 0 S$=[n] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[m] X= 109.198 - F= 0 S$=[m] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[V] X= 85.8773 - F= 0 S$=[V] -*** TEST PASSED *** -TESTCASE # 31 E= 1 R$=[] X=-58.3548 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[ ] X= 29.6397 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 33 E= 1 R$=[] X=-108.36 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 34 E= 1 R$=[] X=-46.5199 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[q] X= 112.521 - F= 0 S$=[q] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[-] X= 45.4151 - F= 0 S$=[-] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[e] X= 101.129 - F= 0 S$=[e] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[A] X= 65.0473 - F= 0 S$=[A] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[0] X= 48.4012 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[z] X= 122.294 - F= 0 S$=[z] -*** TEST PASSED *** -TESTCASE # 41 E= 1 R$=[] X=-56.1094 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 42 E= 1 R$=[] X=-121.087 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 43 E= 1 R$=[] X=-123.517 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 44 E= 1 R$=[] X=-97.6301 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 45 E= 1 R$=[] X=-64.0001 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 46 E= 1 R$=[] X=-25.6888 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[ ] X= 14.8006 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 48 E= 1 R$=[] X=-61.0877 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 49 E= 1 R$=[] X=-66.6381 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 50 E= 1 R$=[] X=-5476.5 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 51 E= 1 R$=[] X=-21210.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 1 R$=[] X=-28757.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 53 E= 1 R$=[] X=-28732.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 54 E= 1 R$=[] X= 12730.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 55 E= 1 R$=[] X=-1830.69 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 56 E= 1 R$=[] X= 5486.39 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 57 E= 1 R$=[] X= 22405.9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 58 E= 1 R$=[] X= 30809.8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 59 E= 1 R$=[] X=-28930.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 60 E= 1 R$=[] X=-6014.53 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 61 E= 1 R$=[] X= 17414.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 62 E= 1 R$=[] X=-10538.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 63 E= 1 R$=[] X=-17536.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 64 E= 1 R$=[] X=-8856.62 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 65 E= 1 R$=[] X=-5140.12 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 66 E= 1 R$=[] X=-8595.31 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 67 E= 1 R$=[] X=-3382.87 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 68 E= 1 R$=[] X=-5002.07 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 69 E= 1 R$=[] X=-5800.72 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 70 E= 1 R$=[] X= 29686.4 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 71 E= 1 R$=[] X= 2571 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 72 E= 1 R$=[] X= 31091 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 73 E= 1 R$=[] X= 14819 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 74 E= 1 R$=[] X= 3790.9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 75 E= 1 R$=[] X=-4.2981E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 76 E= 1 R$=[] X=-7.05453E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 77 E= 1 R$=[] X=-3.10179E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 78 E= 1 R$=[] X=-4.86159E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 79 E= 1 R$=[] X=-8.62908E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 80 E= 1 R$=[] X=-3.4101E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 81 E= 1 R$=[] X= 3.3889E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 1 R$=[] X= 2.49826E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 83 E= 1 R$=[] X= 2.3491E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 84 E= 1 R$=[] X= 1.94745E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 85 E= 1 R$=[] X= 2.02475E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 1 R$=[] X=-2.26748E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 87 E= 1 R$=[] X=-2.10587E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 88 E= 1 R$=[] X= 4.23585E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 89 E= 1 R$=[] X=-2.66524E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 90 E= 1 R$=[] X= 4.01052E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 91 E= 1 R$=[] X=-4.87912E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 92 E= 1 R$=[] X= 1.77556E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 93 E= 1 R$=[] X= 2.87705E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 94 E= 1 R$=[] X= 1.99977E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 95 E= 1 R$=[] X=-3.39941E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 96 E= 1 R$=[] X=-3.49119E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 97 E= 1 R$=[] X=-2.86324E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 98 E= 1 R$=[] X= 4.20418E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 99 E= 1 R$=[] X=-3.1518E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 100 E= 1 R$=[] X= 4.60615E+9 - F= 1 S$=[] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CINT_X_N.BAS b/bwbtest/NBS2X/F_CINT_X_N.BAS deleted file mode 100644 index fe91048..0000000 --- a/bwbtest/NBS2X/F_CINT_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/23/2017 20:04:47 -REM FILENAME: F_CINT_X_N.BAS -REM SYNTAX: N = CINT( X ) -REM UNIQUEID: F_CINT_X_N -REM FUNCTION: CINT -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CINT( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , -1 , -1 -DATA 4 , 0 , 0 , .4 -DATA 5 , 0 , 0 , -.4 -DATA 6 , 0 , 1 , .6 -DATA 7 , 0 , -1 , -.6 -DATA 8 , 0 , 254 , 254 -DATA 9 , 0 , 255 , 255 -DATA 10 , 0 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , 0 , -.227229 -DATA 13 , 0 , 0 , -.239157 -DATA 14 , 0 , 0 , -.213586 -DATA 15 , 0 , 0 , .274675 -DATA 16 , 0 , 0 , .169766 -DATA 17 , 0 , 0 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 -DATA 20 , 0 , 0 , -.277537 -DATA 21 , 0 , 0 , -.481303 -DATA 22 , 0 , 0 , .43556 -DATA 23 , 0 , 0 , -.210971 -DATA 24 , 0 , 0 , -.455216 -DATA 25 , 0 , -111 , -110.907 -DATA 26 , 0 , 106 , 105.632 -DATA 27 , 0 , -114 , -114.341 -DATA 28 , 0 , 110 , 109.706 -DATA 29 , 0 , 109 , 109.198 -DATA 30 , 0 , 86 , 85.8773 -DATA 31 , 0 , -58 , -58.3548 -DATA 32 , 0 , 30 , 29.6397 -DATA 33 , 0 , -108 , -108.36 -DATA 34 , 0 , -47 , -46.5199 -DATA 35 , 0 , 113 , 112.521 -DATA 36 , 0 , 45 , 45.4151 -DATA 37 , 0 , 101 , 101.129 -DATA 38 , 0 , 65 , 65.0473 -DATA 39 , 0 , 48 , 48.4012 -DATA 40 , 0 , 122 , 122.294 -DATA 41 , 0 , -56 , -56.1094 -DATA 42 , 0 , -121 , -121.087 -DATA 43 , 0 , -124 , -123.517 -DATA 44 , 0 , -98 , -97.6301 -DATA 45 , 0 , -64 , -64.0001 -DATA 46 , 0 , -26 , -25.6888 -DATA 47 , 0 , 15 , 14.8006 -DATA 48 , 0 , -61 , -61.0877 -DATA 49 , 0 , -67 , -66.6381 -DATA 50 , 0 , -5476 , -5476.5 -DATA 51 , 0 , -21210 , -21210.3 -DATA 52 , 0 , -28757 , -28757.2 -DATA 53 , 0 , -28732 , -28732.2 -DATA 54 , 0 , 12730 , 12730.3 -DATA 55 , 0 , -1831 , -1830.69 -DATA 56 , 0 , 5486 , 5486.39 -DATA 57 , 0 , 22406 , 22405.9 -DATA 58 , 0 , 30810 , 30809.8 -DATA 59 , 0 , -28931 , -28930.6 -DATA 60 , 0 , -6015 , -6014.53 -DATA 61 , 0 , 17415 , 17414.6 -DATA 62 , 0 , -10538 , -10538.3 -DATA 63 , 0 , -17536 , -17536.3 -DATA 64 , 0 , -8857 , -8856.62 -DATA 65 , 0 , -5140 , -5140.12 -DATA 66 , 0 , -8595 , -8595.31 -DATA 67 , 0 , -3383 , -3382.87 -DATA 68 , 0 , -5002 , -5002.07 -DATA 69 , 0 , -5801 , -5800.72 -DATA 70 , 0 , 29686 , 29686.4 -DATA 71 , 0 , 2571 , 2571. -DATA 72 , 0 , 31091 , 31091. -DATA 73 , 0 , 14819 , 14819. -DATA 74 , 0 , 3791 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 1 , 0 , 3.3889E+9 -DATA 82 , 1 , 0 , 2.49826E+9 -DATA 83 , 1 , 0 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 1 , 0 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 1 , 0 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 1 , 0 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 1 , 0 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CINT_X_N.run b/bwbtest/NBS2X/F_CINT_X_N.run deleted file mode 100644 index be3e7f7..0000000 --- a/bwbtest/NBS2X/F_CINT_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 0 X= .4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1 X= .6 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-1 X=-.6 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 0 X= .43556 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-111 X=-110.907 - F= 0 N=-111 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 106 X= 105.632 - F= 0 N= 106 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-114 X=-114.341 - F= 0 N=-114 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 110 X= 109.706 - F= 0 N= 110 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109 X= 109.198 - F= 0 N= 109 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 86 X= 85.8773 - F= 0 N= 86 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-58 X=-58.3548 - F= 0 N=-58 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 30 X= 29.6397 - F= 0 N= 30 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-108 X=-108.36 - F= 0 N=-108 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-47 X=-46.5199 - F= 0 N=-47 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 113 X= 112.521 - F= 0 N= 113 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45 X= 45.4151 - F= 0 N= 45 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101 X= 101.129 - F= 0 N= 101 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65 X= 65.0473 - F= 0 N= 65 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48 X= 48.4012 - F= 0 N= 48 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122 X= 122.294 - F= 0 N= 122 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-56 X=-56.1094 - F= 0 N=-56 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-121 X=-121.087 - F= 0 N=-121 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-124 X=-123.517 - F= 0 N=-124 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-98 X=-97.6301 - F= 0 N=-98 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-64 X=-64.0001 - F= 0 N=-64 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-26 X=-25.6888 - F= 0 N=-26 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 15 X= 14.8006 - F= 0 N= 15 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-61 X=-61.0877 - F= 0 N=-61 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-67 X=-66.6381 - F= 0 N=-67 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5476 X=-5476.5 - F= 0 N=-5476 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21210 X=-21210.3 - F= 0 N=-21210 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28757 X=-28757.2 - F= 0 N=-28757 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28732 X=-28732.2 - F= 0 N=-28732 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730 X= 12730.3 - F= 0 N= 12730 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1831 X=-1830.69 - F= 0 N=-1831 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486 X= 5486.39 - F= 0 N= 5486 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22406 X= 22405.9 - F= 0 N= 22406 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30810 X= 30809.8 - F= 0 N= 30810 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28931 X=-28930.6 - F= 0 N=-28931 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6015 X=-6014.53 - F= 0 N=-6015 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17415 X= 17414.6 - F= 0 N= 17415 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10538 X=-10538.3 - F= 0 N=-10538 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17536 X=-17536.3 - F= 0 N=-17536 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8857 X=-8856.62 - F= 0 N=-8857 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5140 X=-5140.12 - F= 0 N=-5140 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8595 X=-8595.31 - F= 0 N=-8595 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3383 X=-3382.87 - F= 0 N=-3383 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5002 X=-5002.07 - F= 0 N=-5002 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5801 X=-5800.72 - F= 0 N=-5801 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686 X= 29686.4 - F= 0 N= 29686 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3791 X= 3790.9 - F= 0 N= 3791 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CLNG_X_N.BAS b/bwbtest/NBS2X/F_CLNG_X_N.BAS deleted file mode 100644 index e3b1002..0000000 --- a/bwbtest/NBS2X/F_CLNG_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:17 -REM FILENAME: F_CLNG_X_N.BAS -REM SYNTAX: N = CLNG( X ) -REM UNIQUEID: F_CLNG_X_N -REM FUNCTION: CLNG -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CLNG( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , -1 , -1 -DATA 4 , 0 , 0 , .4 -DATA 5 , 0 , 0 , -.4 -DATA 6 , 0 , 1 , .6 -DATA 7 , 0 , -1 , -.6 -DATA 8 , 0 , 254 , 254 -DATA 9 , 0 , 255 , 255 -DATA 10 , 0 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , 0 , -.227229 -DATA 13 , 0 , 0 , -.239157 -DATA 14 , 0 , 0 , -.213586 -DATA 15 , 0 , 0 , .274675 -DATA 16 , 0 , 0 , .169766 -DATA 17 , 0 , 0 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 -DATA 20 , 0 , 0 , -.277537 -DATA 21 , 0 , 0 , -.481303 -DATA 22 , 0 , 0 , .43556 -DATA 23 , 0 , 0 , -.210971 -DATA 24 , 0 , 0 , -.455216 -DATA 25 , 0 , -111 , -110.907 -DATA 26 , 0 , 106 , 105.632 -DATA 27 , 0 , -114 , -114.341 -DATA 28 , 0 , 110 , 109.706 -DATA 29 , 0 , 109 , 109.198 -DATA 30 , 0 , 86 , 85.8773 -DATA 31 , 0 , -58 , -58.3548 -DATA 32 , 0 , 30 , 29.6397 -DATA 33 , 0 , -108 , -108.36 -DATA 34 , 0 , -47 , -46.5199 -DATA 35 , 0 , 113 , 112.521 -DATA 36 , 0 , 45 , 45.4151 -DATA 37 , 0 , 101 , 101.129 -DATA 38 , 0 , 65 , 65.0473 -DATA 39 , 0 , 48 , 48.4012 -DATA 40 , 0 , 122 , 122.294 -DATA 41 , 0 , -56 , -56.1094 -DATA 42 , 0 , -121 , -121.087 -DATA 43 , 0 , -124 , -123.517 -DATA 44 , 0 , -98 , -97.6301 -DATA 45 , 0 , -64 , -64.0001 -DATA 46 , 0 , -26 , -25.6888 -DATA 47 , 0 , 15 , 14.8006 -DATA 48 , 0 , -61 , -61.0877 -DATA 49 , 0 , -67 , -66.6381 -DATA 50 , 0 , -5476 , -5476.5 -DATA 51 , 0 , -21210 , -21210.3 -DATA 52 , 0 , -28757 , -28757.2 -DATA 53 , 0 , -28732 , -28732.2 -DATA 54 , 0 , 12730 , 12730.3 -DATA 55 , 0 , -1831 , -1830.69 -DATA 56 , 0 , 5486 , 5486.39 -DATA 57 , 0 , 22406 , 22405.9 -DATA 58 , 0 , 30810 , 30809.8 -DATA 59 , 0 , -28931 , -28930.6 -DATA 60 , 0 , -6015 , -6014.53 -DATA 61 , 0 , 17415 , 17414.6 -DATA 62 , 0 , -10538 , -10538.3 -DATA 63 , 0 , -17536 , -17536.3 -DATA 64 , 0 , -8857 , -8856.62 -DATA 65 , 0 , -5140 , -5140.12 -DATA 66 , 0 , -8595 , -8595.31 -DATA 67 , 0 , -3383 , -3382.87 -DATA 68 , 0 , -5002 , -5002.07 -DATA 69 , 0 , -5801 , -5800.72 -DATA 70 , 0 , 29686 , 29686.4 -DATA 71 , 0 , 2571 , 2571. -DATA 72 , 0 , 31091 , 31091. -DATA 73 , 0 , 14819 , 14819. -DATA 74 , 0 , 3791 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 1 , 0 , 3.3889E+9 -DATA 82 , 1 , 0 , 2.49826E+9 -DATA 83 , 1 , 0 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 1 , 0 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 1 , 0 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 1 , 0 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 1 , 0 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CLNG_X_N.PRO b/bwbtest/NBS2X/F_CLNG_X_N.PRO deleted file mode 100644 index 8c6ae8e..0000000 --- a/bwbtest/NBS2X/F_CLNG_X_N.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION ROUND MATH diff --git a/bwbtest/NBS2X/F_CLNG_X_N.run b/bwbtest/NBS2X/F_CLNG_X_N.run deleted file mode 100644 index a3f1edf..0000000 --- a/bwbtest/NBS2X/F_CLNG_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 0 X= .4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1 X= .6 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-1 X=-.6 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 0 X= .43556 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-111 X=-110.907 - F= 0 N=-111 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 106 X= 105.632 - F= 0 N= 106 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-114 X=-114.341 - F= 0 N=-114 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 110 X= 109.706 - F= 0 N= 110 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109 X= 109.198 - F= 0 N= 109 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 86 X= 85.8773 - F= 0 N= 86 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-58 X=-58.3548 - F= 0 N=-58 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 30 X= 29.6397 - F= 0 N= 30 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-108 X=-108.36 - F= 0 N=-108 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-47 X=-46.5199 - F= 0 N=-47 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 113 X= 112.521 - F= 0 N= 113 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45 X= 45.4151 - F= 0 N= 45 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101 X= 101.129 - F= 0 N= 101 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65 X= 65.0473 - F= 0 N= 65 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48 X= 48.4012 - F= 0 N= 48 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122 X= 122.294 - F= 0 N= 122 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-56 X=-56.1094 - F= 0 N=-56 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-121 X=-121.087 - F= 0 N=-121 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-124 X=-123.517 - F= 0 N=-124 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-98 X=-97.6301 - F= 0 N=-98 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-64 X=-64.0001 - F= 0 N=-64 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-26 X=-25.6888 - F= 0 N=-26 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 15 X= 14.8006 - F= 0 N= 15 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-61 X=-61.0877 - F= 0 N=-61 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-67 X=-66.6381 - F= 0 N=-67 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5476 X=-5476.5 - F= 0 N=-5477 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21210 X=-21210.3 - F= 0 N=-21210 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28757 X=-28757.2 - F= 0 N=-28757 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28732 X=-28732.2 - F= 0 N=-28732 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730 X= 12730.3 - F= 0 N= 12730 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1831 X=-1830.69 - F= 0 N=-1831 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486 X= 5486.39 - F= 0 N= 5486 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22406 X= 22405.9 - F= 0 N= 22406 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30810 X= 30809.8 - F= 0 N= 30810 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28931 X=-28930.6 - F= 0 N=-28931 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6015 X=-6014.53 - F= 0 N=-6015 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17415 X= 17414.6 - F= 0 N= 17415 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10538 X=-10538.3 - F= 0 N=-10538 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17536 X=-17536.3 - F= 0 N=-17536 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8857 X=-8856.62 - F= 0 N=-8857 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5140 X=-5140.12 - F= 0 N=-5140 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8595 X=-8595.31 - F= 0 N=-8595 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3383 X=-3382.87 - F= 0 N=-3383 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5002 X=-5002.07 - F= 0 N=-5002 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5801 X=-5800.72 - F= 0 N=-5801 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686 X= 29686.4 - F= 0 N= 29686 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3791 X= 3790.9 - F= 0 N= 3791 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_COSH_X_N.BAS b/bwbtest/NBS2X/F_COSH_X_N.BAS deleted file mode 100644 index 6c1d1c0..0000000 --- a/bwbtest/NBS2X/F_COSH_X_N.BAS +++ /dev/null @@ -1,185 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:18 -REM FILENAME: F_COSH_X_N.BAS -REM SYNTAX: N = COSH( X ) -REM UNIQUEID: F_COSH_X_N -REM FUNCTION: COSH -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = COSH( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -IF E = 0 THEN - REM VERIFY EXPECTED RESULT - IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF - END IF - IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R - END IF - IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 - END IF - IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP - END IF - IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP - END IF -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 1 , 0 -DATA 2 , 0 , 1.54308 , 1 -DATA 3 , 0 , 1.54308 , -1 -DATA 4 , 0 , 1.08107 , .4 -DATA 5 , 0 , 1.08107 , -.4 -DATA 6 , 0 , 1.18547 , .6 -DATA 7 , 0 , 1.18547 , -.6 -DATA 8 , 0 , 1.02275E+110 , 254 -DATA 9 , 0 , 2.78012E+110 , 255 -DATA 10 , 0 , 7.55714E+110 , 256 -DATA 11 , 1 , 1.79769E+308 , 32000 -DATA 12 , 0 , 1.02593 , -.227229 -DATA 13 , 0 , 1.02873 , -.239157 -DATA 14 , 0 , 1.0229 , -.213586 -DATA 15 , 0 , 1.03796 , .274675 -DATA 16 , 0 , 1.01444 , .169766 -DATA 17 , 0 , 1.05124 , .318766 -DATA 18 , 0 , 1.00021 , 2.06658E-2 -DATA 19 , 0 , 1.01777 , .188257 -DATA 20 , 0 , 1.03876 , -.277537 -DATA 21 , 0 , 1.11808 , -.481303 -DATA 22 , 0 , 1.09637 , .43556 -DATA 23 , 0 , 1.02234 , -.210971 -DATA 24 , 0 , 1.10541 , -.455216 -DATA 25 , 0 , 7.33277E+47 , -110.907 -DATA 26 , 0 , 3.75288E+45 , 105.632 -DATA 27 , 0 , 2.27319E+49 , -114.341 -DATA 28 , 0 , 2.20638E+47 , 109.706 -DATA 29 , 0 , 1.32757E+47 , 109.198 -DATA 30 , 0 , 9.8857E+36 , 85.8773 -DATA 31 , 0 , 1.10189E+25 , -58.3548 -DATA 32 , 0 , 3.72673E+12 , 29.6397 -DATA 33 , 0 , 5.74275E+46 , -108.36 -DATA 34 , 0 , 7.98557E+19 , -46.5199 -DATA 35 , 0 , 3.68315E+48 , 112.521 -DATA 36 , 0 , 2.64544E+19 , 45.4151 -DATA 37 , 0 , 4.15658E+43 , 101.129 -DATA 38 , 0 , 8.88492E+27 , 65.0473 -DATA 39 , 0 , 5.24015E+20 , 48.4012 -DATA 40 , 0 , 6.46516E+52 , 122.294 -DATA 41 , 0 , 1.16674E+24 , -56.1094 -DATA 42 , 0 , 1.93369E+52 , -121.087 -DATA 43 , 0 , 2.19645E+53 , -123.517 -DATA 44 , 0 , 1.25656E+42 , -97.6301 -DATA 45 , 0 , 3.11789E+27 , -64.0001 -DATA 46 , 0 , 7.16926E+10 , -25.6888 -DATA 47 , 0 , 1.33903E+6 , 14.8006 -DATA 48 , 0 , 1.69442E+26 , -61.0877 -DATA 49 , 0 , 4.36043E+28 , -66.6381 -DATA 50 , 1 , 1.79769E+308 , -5476.5 -DATA 51 , 1 , 1.79769E+308 , -21210.3 -DATA 52 , 1 , 1.79769E+308 , -28757.2 -DATA 53 , 1 , 1.79769E+308 , -28732.2 -DATA 54 , 1 , 1.79769E+308 , 12730.3 -DATA 55 , 1 , 1.79769E+308 , -1830.69 -DATA 56 , 1 , 1.79769E+308 , 5486.39 -DATA 57 , 1 , 1.79769E+308 , 22405.9 -DATA 58 , 1 , 1.79769E+308 , 30809.8 -DATA 59 , 1 , 1.79769E+308 , -28930.6 -DATA 60 , 1 , 1.79769E+308 , -6014.53 -DATA 61 , 1 , 1.79769E+308 , 17414.6 -DATA 62 , 1 , 1.79769E+308 , -10538.3 -DATA 63 , 1 , 1.79769E+308 , -17536.3 -DATA 64 , 1 , 1.79769E+308 , -8856.62 -DATA 65 , 1 , 1.79769E+308 , -5140.12 -DATA 66 , 1 , 1.79769E+308 , -8595.31 -DATA 67 , 1 , 1.79769E+308 , -3382.87 -DATA 68 , 1 , 1.79769E+308 , -5002.07 -DATA 69 , 1 , 1.79769E+308 , -5800.72 -DATA 70 , 1 , 1.79769E+308 , 29686.4 -DATA 71 , 1 , 1.79769E+308 , 2571. -DATA 72 , 1 , 1.79769E+308 , 31091. -DATA 73 , 1 , 1.79769E+308 , 14819. -DATA 74 , 1 , 1.79769E+308 , 3790.9 -DATA 75 , 1 , 1.79769E+308 , -4.2981E+9 -DATA 76 , 1 , 1.79769E+308 , -7.05453E+8 -DATA 77 , 1 , 1.79769E+308 , -3.10179E+9 -DATA 78 , 1 , 1.79769E+308 , -4.86159E+9 -DATA 79 , 1 , 1.79769E+308 , -8.62908E+8 -DATA 80 , 1 , 1.79769E+308 , -3.4101E+9 -DATA 81 , 1 , 1.79769E+308 , 3.3889E+9 -DATA 82 , 1 , 1.79769E+308 , 2.49826E+9 -DATA 83 , 1 , 1.79769E+308 , 2.3491E+9 -DATA 84 , 1 , 1.79769E+308 , 1.94745E+8 -DATA 85 , 1 , 1.79769E+308 , 2.02475E+9 -DATA 86 , 1 , 1.79769E+308 , -2.26748E+9 -DATA 87 , 1 , 1.79769E+308 , -2.10587E+9 -DATA 88 , 1 , 1.79769E+308 , 4.23585E+9 -DATA 89 , 1 , 1.79769E+308 , -2.66524E+9 -DATA 90 , 1 , 1.79769E+308 , 4.01052E+9 -DATA 91 , 1 , 1.79769E+308 , -4.87912E+9 -DATA 92 , 1 , 1.79769E+308 , 1.77556E+9 -DATA 93 , 1 , 1.79769E+308 , 2.87705E+8 -DATA 94 , 1 , 1.79769E+308 , 1.99977E+8 -DATA 95 , 1 , 1.79769E+308 , -3.39941E+9 -DATA 96 , 1 , 1.79769E+308 , -3.49119E+9 -DATA 97 , 1 , 1.79769E+308 , -2.86324E+9 -DATA 98 , 1 , 1.79769E+308 , 4.20418E+9 -DATA 99 , 1 , 1.79769E+308 , -3.1518E+9 -DATA 100 , 1 , 1.79769E+308 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_COSH_X_N.run b/bwbtest/NBS2X/F_COSH_X_N.run deleted file mode 100644 index b725847..0000000 --- a/bwbtest/NBS2X/F_COSH_X_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R= 1 X= 0 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1.54308 X= 1 - F= 0 N= 1.54308 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 1.54308 X=-1 - F= 0 N= 1.54308 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 1.08107 X= .4 - F= 0 N= 1.08107 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 1.08107 X=-.4 - F= 0 N= 1.08107 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1.18547 X= .6 - F= 0 N= 1.18547 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 1.18547 X=-.6 - F= 0 N= 1.18547 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 1.02275E+110 X= 254 - F= 0 N= 1.02275E+110 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 2.78012E+110 X= 255 - F= 0 N= 2.78012E+110 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 7.55714E+110 X= 256 - F= 0 N= 7.55714E+110 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 1.79769E+308 X= 32000 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 1.02593 X=-.227229 - F= 0 N= 1.02593 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 1.02873 X=-.239157 - F= 0 N= 1.02873 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 1.0229 X=-.213586 - F= 0 N= 1.0229 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 1.03796 X= .274675 - F= 0 N= 1.03796 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1.01444 X= .169766 - F= 0 N= 1.01444 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1.05124 X= .318766 - F= 0 N= 1.05124 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 1.00021 X= 2.06658E-2 - F= 0 N= 1.00021 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 1.01777 X= .188257 - F= 0 N= 1.01777 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 1.03876 X=-.277537 - F= 0 N= 1.03876 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 1.11808 X=-.481303 - F= 0 N= 1.11808 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 1.09637 X= .43556 - F= 0 N= 1.09637 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 1.02234 X=-.210971 - F= 0 N= 1.02234 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 1.10541 X=-.455216 - F= 0 N= 1.10541 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 7.33277E+47 X=-110.907 - F= 0 N= 7.33277E+47 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 3.75288E+45 X= 105.632 - F= 0 N= 3.75288E+45 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 2.27319E+49 X=-114.341 - F= 0 N= 2.27319E+49 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 2.20638E+47 X= 109.706 - F= 0 N= 2.20638E+47 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 1.32757E+47 X= 109.198 - F= 0 N= 1.32757E+47 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 9.8857E+36 X= 85.8773 - F= 0 N= 9.8857E+36 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 1.10189E+25 X=-58.3548 - F= 0 N= 1.10189E+25 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 3.72673E+12 X= 29.6397 - F= 0 N= 3.72673E+12 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 5.74275E+46 X=-108.36 - F= 0 N= 5.74275E+46 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 7.98557E+19 X=-46.5199 - F= 0 N= 7.98557E+19 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 3.68315E+48 X= 112.521 - F= 0 N= 3.68315E+48 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 2.64544E+19 X= 45.4151 - F= 0 N= 2.64544E+19 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 4.15658E+43 X= 101.129 - F= 0 N= 4.15658E+43 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 8.88492E+27 X= 65.0473 - F= 0 N= 8.88492E+27 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 5.24015E+20 X= 48.4012 - F= 0 N= 5.24015E+20 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 6.46516E+52 X= 122.294 - F= 0 N= 6.46516E+52 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 1.16674E+24 X=-56.1094 - F= 0 N= 1.16674E+24 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 1.93369E+52 X=-121.087 - F= 0 N= 1.93369E+52 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 2.19645E+53 X=-123.517 - F= 0 N= 2.19645E+53 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 1.25656E+42 X=-97.6301 - F= 0 N= 1.25656E+42 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 3.11789E+27 X=-64.0001 - F= 0 N= 3.11789E+27 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 7.16926E+10 X=-25.6888 - F= 0 N= 7.16926E+10 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 1.33903E+6 X= 14.8006 - F= 0 N= 1.33903E+6 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 1.69442E+26 X=-61.0877 - F= 0 N= 1.69442E+26 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 4.36043E+28 X=-66.6381 - F= 0 N= 4.36043E+28 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 1.79769E+308 X=-5476.5 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 1.79769E+308 X=-21210.3 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 1.79769E+308 X=-28757.2 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 1.79769E+308 X=-28732.2 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 1.79769E+308 X= 12730.3 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 1.79769E+308 X=-1830.69 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 1.79769E+308 X= 5486.39 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 1.79769E+308 X= 22405.9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 1.79769E+308 X= 30809.8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 1.79769E+308 X=-28930.6 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 1.79769E+308 X=-6014.53 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 1.79769E+308 X= 17414.6 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 1.79769E+308 X=-10538.3 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 1.79769E+308 X=-17536.3 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 1.79769E+308 X=-8856.62 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 1.79769E+308 X=-5140.12 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 1.79769E+308 X=-8595.31 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 1.79769E+308 X=-3382.87 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 1.79769E+308 X=-5002.07 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 1.79769E+308 X=-5800.72 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 1.79769E+308 X= 29686.4 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 1.79769E+308 X= 2571 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 1.79769E+308 X= 31091 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 1.79769E+308 X= 14819 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 1.79769E+308 X= 3790.9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 1.79769E+308 X=-4.2981E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 1.79769E+308 X=-7.05453E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 1.79769E+308 X=-3.10179E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 1.79769E+308 X=-4.86159E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 1.79769E+308 X=-8.62908E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 1.79769E+308 X=-3.4101E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 1.79769E+308 X= 3.3889E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 1.79769E+308 X= 2.49826E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 1.79769E+308 X= 2.3491E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 1.79769E+308 X= 1.94745E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 1.79769E+308 X= 2.02475E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 1.79769E+308 X=-2.26748E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 1.79769E+308 X=-2.10587E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 1.79769E+308 X= 4.23585E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 1.79769E+308 X=-2.66524E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 1.79769E+308 X= 4.01052E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 1.79769E+308 X=-4.87912E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 1.79769E+308 X= 1.77556E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 1.79769E+308 X= 2.87705E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 1.79769E+308 X= 1.99977E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 1.79769E+308 X=-3.39941E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 1.79769E+308 X=-3.49119E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 1.79769E+308 X=-2.86324E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 1.79769E+308 X= 4.20418E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 1.79769E+308 X=-3.1518E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 1.79769E+308 X= - 4.60615E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_COS_X_N.BAS b/bwbtest/NBS2X/F_COS_X_N.BAS deleted file mode 100644 index 71de332..0000000 --- a/bwbtest/NBS2X/F_COS_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:17 -REM FILENAME: F_COS_X_N.BAS -REM SYNTAX: N = COS( X ) -REM UNIQUEID: F_COS_X_N -REM FUNCTION: COS -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = COS( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 1 , 0 -DATA 2 , 0 , .540302 , 1 -DATA 3 , 0 , .540302 , -1 -DATA 4 , 0 , .921061 , .4 -DATA 5 , 0 , .921061 , -.4 -DATA 6 , 0 , .825336 , .6 -DATA 7 , 0 , .825336 , -.6 -DATA 8 , 0 , -.892018 , 254 -DATA 9 , 0 , -.862304 , 255 -DATA 10 , 0 , -3.97908E-2 , 256 -DATA 11 , 0 , .965674 , 32000 -DATA 12 , 0 , .974294 , -.227229 -DATA 13 , 0 , .971538 , -.239157 -DATA 14 , 0 , .977277 , -.213586 -DATA 15 , 0 , .962513 , .274675 -DATA 16 , 0 , .985624 , .169766 -DATA 17 , 0 , .949623 , .318766 -DATA 18 , 0 , .999786 , 2.06658E-2 -DATA 19 , 0 , .982332 , .188257 -DATA 20 , 0 , .961733 , -.277537 -DATA 21 , 0 , .886392 , -.481303 -DATA 22 , 0 , .906634 , .43556 -DATA 23 , 0 , .977828 , -.210971 -DATA 24 , 0 , .898166 , -.455216 -DATA 25 , 0 , -.58066 , -110.907 -DATA 26 , 0 , .378936 , 105.632 -DATA 27 , 0 , .321328 , -114.341 -DATA 28 , 0 , -.968976 , 109.706 -DATA 29 , 0 , -.726389 , 109.198 -DATA 30 , 0 , -.493838 , 85.8773 -DATA 31 , 0 , -.23317 , -58.3548 -DATA 32 , 0 , -.203988 , 29.6397 -DATA 33 , 0 , .024944 , -108.36 -DATA 34 , 0 , -.823076 , -46.5199 -DATA 35 , 0 , .838465 , 112.521 -DATA 36 , 0 , .137556 , 45.4151 -DATA 37 , 0 , .826443 , 101.129 -DATA 38 , 0 , -.600919 , 65.0473 -DATA 39 , 0 , -.289291 , 48.4012 -DATA 40 , 0 , -.974095 , 122.294 -DATA 41 , 0 , .905063 , -56.1094 -DATA 42 , 0 , -.135267 , -121.087 -DATA 43 , 0 , -.544598 , -123.517 -DATA 44 , 0 , -.971165 , -97.6301 -DATA 45 , 0 , .391765 , -64.0001 -DATA 46 , 0 , .849342 , -25.6888 -DATA 47 , 0 , -.615825 , 14.8006 -DATA 48 , 0 , -.17249 , -61.0877 -DATA 49 , 0 , -.78713 , -66.6381 -DATA 50 , 0 , -.762256 , -5476.5 -DATA 51 , 0 , -.162083 , -21210.3 -DATA 52 , 0 , .590473 , -28757.2 -DATA 53 , 0 , .692094 , -28732.2 -DATA 54 , 0 , .843748 , 12730.3 -DATA 55 , 0 , -.653561 , -1830.69 -DATA 56 , 0 , .390863 , 5486.39 -DATA 57 , 0 , .998128 , 22405.9 -DATA 58 , 0 , -.979898 , 30809.8 -DATA 59 , 0 , -.947091 , -28930.6 -DATA 60 , 0 , 4.91155E-2 , -6014.53 -DATA 61 , 0 , -.730378 , 17414.6 -DATA 62 , 0 , .171701 , -10538.3 -DATA 63 , 0 , .997538 , -17536.3 -DATA 64 , 0 , -.891428 , -8856.62 -DATA 65 , 0 , .889558 , -5140.12 -DATA 66 , 0 , .996174 , -8595.31 -DATA 67 , 0 , -.810795 , -3382.87 -DATA 68 , 0 , .793355 , -5002.07 -DATA 69 , 0 , .22879 , -5800.72 -DATA 70 , 0 , -7.96955E-2 , 29686.4 -DATA 71 , 0 , .383504 , 2571. -DATA 72 , 0 , -.226326 , 31091. -DATA 73 , 0 , -.994232 , 14819. -DATA 74 , 0 , -.538338 , 3790.9 -DATA 75 , 0 , .820941 , -4.2981E+9 -DATA 76 , 0 , .907466 , -7.05453E+8 -DATA 77 , 0 , .912717 , -3.10179E+9 -DATA 78 , 0 , .225051 , -4.86159E+9 -DATA 79 , 0 , -.668159 , -8.62908E+8 -DATA 80 , 0 , -.924293 , -3.4101E+9 -DATA 81 , 0 , -.617246 , 3.3889E+9 -DATA 82 , 0 , .690213 , 2.49826E+9 -DATA 83 , 0 , .409631 , 2.3491E+9 -DATA 84 , 0 , -.78016 , 1.94745E+8 -DATA 85 , 0 , .987377 , 2.02475E+9 -DATA 86 , 0 , -.647108 , -2.26748E+9 -DATA 87 , 0 , .998426 , -2.10587E+9 -DATA 88 , 0 , -.333976 , 4.23585E+9 -DATA 89 , 0 , -.986436 , -2.66524E+9 -DATA 90 , 0 , -.679529 , 4.01052E+9 -DATA 91 , 0 , .926333 , -4.87912E+9 -DATA 92 , 0 , 3.92327E-2 , 1.77556E+9 -DATA 93 , 0 , .817259 , 2.87705E+8 -DATA 94 , 0 , .941543 , 1.99977E+8 -DATA 95 , 0 , .823462 , -3.39941E+9 -DATA 96 , 0 , .143974 , -3.49119E+9 -DATA 97 , 0 , -5.29952E-2 , -2.86324E+9 -DATA 98 , 0 , -.597479 , 4.20418E+9 -DATA 99 , 0 , -.651664 , -3.1518E+9 -DATA 100 , 0 , .717104 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_COS_X_N.run b/bwbtest/NBS2X/F_COS_X_N.run deleted file mode 100644 index 9cb3655..0000000 --- a/bwbtest/NBS2X/F_COS_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 1 X= 0 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= .540302 X= 1 - F= 0 N= .540302 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= .540302 X=-1 - F= 0 N= .540302 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .921061 X= .4 - F= 0 N= .921061 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= .921061 X=-.4 - F= 0 N= .921061 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .825336 X= .6 - F= 0 N= .825336 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= .825336 X=-.6 - F= 0 N= .825336 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R=-.892018 X= 254 - F= 0 N=-.892018 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R=-.862304 X= 255 - F= 0 N=-.862304 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R=-3.97908E-2 X= 256 - F= 0 N=-3.97908E-2 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= .965674 X= 32000 - F= 0 N= .965674 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= .974294 X=-.227229 - F= 0 N= .974294 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= .971538 X=-.239157 - F= 0 N= .971538 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= .977277 X=-.213586 - F= 0 N= .977277 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .962513 X= .274675 - F= 0 N= .962513 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .985624 X= .169766 - F= 0 N= .985624 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .949623 X= .318766 - F= 0 N= .949623 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= .999786 X= 2.06658E-2 - F= 0 N= .999786 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .982332 X= .188257 - F= 0 N= .982332 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= .961733 X=-.277537 - F= 0 N= .961733 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= .886392 X=-.481303 - F= 0 N= .886392 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .906634 X= .43556 - F= 0 N= .906634 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= .977828 X=-.210971 - F= 0 N= .977828 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= .898166 X=-.455216 - F= 0 N= .898166 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-.58066 X=-110.907 - F= 0 N=-.58066 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= .378936 X= 105.632 - F= 0 N= .378936 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= .321328 X=-114.341 - F= 0 N= .321328 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R=-.968976 X= 109.706 - F= 0 N=-.968976 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R=-.726389 X= 109.198 - F= 0 N=-.726389 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R=-.493838 X= 85.8773 - F= 0 N=-.493838 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-.23317 X=-58.3548 - F= 0 N=-.23317 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R=-.203988 X= 29.6397 - F= 0 N=-.203988 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= .024944 X=-108.36 - F= 0 N= .024944 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-.823076 X=-46.5199 - F= 0 N=-.823076 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= .838465 X= 112.521 - F= 0 N= .838465 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= .137556 X= 45.4151 - F= 0 N= .137556 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= .826443 X= 101.129 - F= 0 N= .826443 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R=-.600919 X= 65.0473 - F= 0 N=-.600919 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R=-.289291 X= 48.4012 - F= 0 N=-.289291 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R=-.974095 X= 122.294 - F= 0 N=-.974095 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= .905063 X=-56.1094 - F= 0 N= .905063 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-.135267 X=-121.087 - F= 0 N=-.135267 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-.544598 X=-123.517 - F= 0 N=-.544598 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-.971165 X=-97.6301 - F= 0 N=-.971165 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= .391765 X=-64.0001 - F= 0 N= .391765 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= .849342 X=-25.6888 - F= 0 N= .849342 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R=-.615825 X= 14.8006 - F= 0 N=-.615825 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-.17249 X=-61.0877 - F= 0 N=-.17249 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-.78713 X=-66.6381 - F= 0 N=-.78713 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-.762256 X=-5476.5 - F= 0 N=-.762256 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-.162083 X=-21210.3 - F= 0 N=-.162083 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= .590473 X=-28757.2 - F= 0 N= .590473 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= .692094 X=-28732.2 - F= 0 N= .692094 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= .843748 X= 12730.3 - F= 0 N= .843748 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-.653561 X=-1830.69 - F= 0 N=-.653561 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= .390863 X= 5486.39 - F= 0 N= .390863 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= .998128 X= 22405.9 - F= 0 N= .998128 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R=-.979898 X= 30809.8 - F= 0 N=-.979898 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-.947091 X=-28930.6 - F= 0 N=-.947091 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 4.91155E-2 X=-6014.53 - F= 0 N= 4.91155E-2 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R=-.730378 X= 17414.6 - F= 0 N=-.730378 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= .171701 X=-10538.3 - F= 0 N= .171701 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= .997538 X=-17536.3 - F= 0 N= .997538 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-.891428 X=-8856.62 - F= 0 N=-.891428 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= .889558 X=-5140.12 - F= 0 N= .889558 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= .996174 X=-8595.31 - F= 0 N= .996174 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-.810795 X=-3382.87 - F= 0 N=-.810795 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= .793355 X=-5002.07 - F= 0 N= .793355 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= .22879 X=-5800.72 - F= 0 N= .22879 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R=-7.96955E-2 X= 29686.4 - F= 0 N=-7.96955E-2 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= .383504 X= 2571 - F= 0 N= .383504 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R=-.226326 X= 31091 - F= 0 N=-.226326 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R=-.994232 X= 14819 - F= 0 N=-.994232 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R=-.538338 X= 3790.9 - F= 0 N=-.538338 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= .820941 X=-4.2981E+9 - F= 0 N= .820941 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= .907466 X=-7.05453E+8 - F= 0 N= .907466 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= .912717 X=-3.10179E+9 - F= 0 N= .912717 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= .225051 X=-4.86159E+9 - F= 0 N= .225051 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-.668159 X=-8.62908E+8 - F= 0 N=-.668159 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-.924293 X=-3.4101E+9 - F= 0 N=-.924293 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R=-.617246 X= 3.3889E+9 - F= 0 N=-.617246 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= .690213 X= 2.49826E+9 - F= 0 N= .690213 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= .409631 X= 2.3491E+9 - F= 0 N= .409631 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R=-.78016 X= 1.94745E+8 - F= 0 N=-.78016 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= .987377 X= 2.02475E+9 - F= 0 N= .987377 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-.647108 X=-2.26748E+9 - F= 0 N=-.647108 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= .998426 X=-2.10587E+9 - F= 0 N= .998426 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R=-.333976 X= 4.23585E+9 - F= 0 N=-.333976 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-.986436 X=-2.66524E+9 - F= 0 N=-.986436 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R=-.679529 X= 4.01052E+9 - F= 0 N=-.67953 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= .926333 X=-4.87912E+9 - F= 0 N= .926333 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 3.92327E-2 X= 1.77556E+9 - F= 0 N= 3.92327E-2 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= .817259 X= 2.87705E+8 - F= 0 N= .817259 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= .941543 X= 1.99977E+8 - F= 0 N= .941543 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= .823462 X=-3.39941E+9 - F= 0 N= .823462 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= .143974 X=-3.49119E+9 - F= 0 N= .143974 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-5.29952E-2 X=-2.86324E+9 - F= 0 N=-5.29952E-2 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R=-.597479 X= 4.20418E+9 - F= 0 N=-.597479 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-.651664 X=-3.1518E+9 - F= 0 N=-.651664 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= .717104 X= 4.60615E+9 - F= 0 N= .717104 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_COT_X_N.BAS b/bwbtest/NBS2X/F_COT_X_N.BAS deleted file mode 100644 index 117e190..0000000 --- a/bwbtest/NBS2X/F_COT_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:18 -REM FILENAME: F_COT_X_N.BAS -REM SYNTAX: N = COT( X ) -REM UNIQUEID: F_COT_X_N -REM FUNCTION: COT -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = COT( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , 0 -DATA 2 , 0 , .642093 , 1 -DATA 3 , 0 , -.642093 , -1 -DATA 4 , 0 , 2.36522 , .4 -DATA 5 , 0 , -2.36522 , -.4 -DATA 6 , 0 , 1.4617 , .6 -DATA 7 , 0 , -1.4617 , -.6 -DATA 8 , 0 , -1.9735 , 254 -DATA 9 , 0 , 1.70284 , 255 -DATA 10 , 0 , 3.98223E-2 , 256 -DATA 11 , 0 , -3.71762 , 32000 -DATA 12 , 0 , -4.32484 , -.227229 -DATA 13 , 0 , -4.10133 , -.239157 -DATA 14 , 0 , -4.61054 , -.213586 -DATA 15 , 0 , 3.54864 , .274675 -DATA 16 , 0 , 5.83376 , .169766 -DATA 17 , 0 , 3.03012 , .318766 -DATA 18 , 0 , 48.3822 , 2.06658E-2 -DATA 19 , 0 , 5.24899 , .188257 -DATA 20 , 0 , -3.51013 , -.277537 -DATA 21 , 0 , -1.91473 , -.481303 -DATA 22 , 0 , 2.14884 , .43556 -DATA 23 , 0 , -4.66945 , -.210971 -DATA 24 , 0 , -2.04288 , -.455216 -DATA 25 , 0 , -.713214 , -110.907 -DATA 26 , 0 , -.409473 , 105.632 -DATA 27 , 0 , -.339323 , -114.341 -DATA 28 , 0 , -3.92052 , 109.706 -DATA 29 , 0 , -1.0569 , 109.198 -DATA 30 , 0 , .567921 , 85.8773 -DATA 31 , 0 , .239779 , -58.3548 -DATA 32 , 0 , .20837 , 29.6397 -DATA 33 , 0 , -2.49517E-2 , -108.36 -DATA 34 , 0 , 1.44925 , -46.5199 -DATA 35 , 0 , -1.5386 , 112.521 -DATA 36 , 0 , .138876 , 45.4151 -DATA 37 , 0 , 1.46788 , 101.129 -DATA 38 , 0 , -.751798 , 65.0473 -DATA 39 , 0 , .302213 , 48.4012 -DATA 40 , 0 , -4.30748 , 122.294 -DATA 41 , 0 , 2.12817 , -56.1094 -DATA 42 , 0 , .136522 , -121.087 -DATA 43 , 0 , -.649338 , -123.517 -DATA 44 , 0 , -4.07352 , -97.6301 -DATA 45 , 0 , -.425802 , -64.0001 -DATA 46 , 0 , -1.60908 , -25.6888 -DATA 47 , 0 , -.781621 , 14.8006 -DATA 48 , 0 , -.175114 , -61.0877 -DATA 49 , 0 , -1.27618 , -66.6381 -DATA 50 , 0 , -1.17764 , -5476.5 -DATA 51 , 0 , -.164254 , -21210.3 -DATA 52 , 0 , .731638 , -28757.2 -DATA 53 , 0 , .958836 , -28732.2 -DATA 54 , 0 , 1.57199 , 12730.3 -DATA 55 , 0 , .8635 , -1830.69 -DATA 56 , 0 , .424644 , 5486.39 -DATA 57 , 0 , 16.3209 , 22405.9 -DATA 58 , 0 , 4.9118 , 30809.8 -DATA 59 , 0 , 2.95077 , -28930.6 -DATA 60 , 0 , -4.91749E-2 , -6014.53 -DATA 61 , 0 , 1.0693 , 17414.6 -DATA 62 , 0 , -.17429 , -10538.3 -DATA 63 , 0 , 14.2232 , -17536.3 -DATA 64 , 0 , -1.96713 , -8856.62 -DATA 65 , 0 , -1.94728 , -5140.12 -DATA 66 , 0 , 11.3994 , -8595.31 -DATA 67 , 0 , 1.38519 , -3382.87 -DATA 68 , 0 , -1.30323 , -5002.07 -DATA 69 , 0 , -.235024 , -5800.72 -DATA 70 , 0 , 7.99498E-2 , 29686.4 -DATA 71 , 0 , .415254 , 2571. -DATA 72 , 0 , -.232355 , 31091. -DATA 73 , 0 , 9.27055 , 14819. -DATA 74 , 0 , -.638803 , 3790.9 -DATA 75 , 0 , 1.43769 , -4.2981E+9 -DATA 76 , 0 , -2.15999 , -7.05453E+8 -DATA 77 , 0 , 2.23381 , -3.10179E+9 -DATA 78 , 0 , .230976 , -4.86159E+9 -DATA 79 , 0 , -.898042 , -8.62908E+8 -DATA 80 , 0 , 2.42162 , -3.4101E+9 -DATA 81 , 0 , .784532 , 3.3889E+9 -DATA 82 , 0 , .953851 , 2.49826E+9 -DATA 83 , 0 , -.449034 , 2.3491E+9 -DATA 84 , 0 , -1.2471 , 1.94745E+8 -DATA 85 , 0 , 6.23385 , 2.02475E+9 -DATA 86 , 0 , .848779 , -2.26748E+9 -DATA 87 , 0 , -17.8045 , -2.10587E+9 -DATA 88 , 0 , .35432 , 4.23585E+9 -DATA 89 , 0 , -6.00957 , -2.66524E+9 -DATA 90 , 0 , -.926233 , 4.01052E+9 -DATA 91 , 0 , 2.45903 , -4.87912E+9 -DATA 92 , 0 , -3.92629E-2 , 1.77556E+9 -DATA 93 , 0 , -1.41819 , 2.87705E+8 -DATA 94 , 0 , 2.79479 , 1.99977E+8 -DATA 95 , 0 , -1.45136 , -3.39941E+9 -DATA 96 , 0 , .14549 , -3.49119E+9 -DATA 97 , 0 , 5.30698E-2 , -2.86324E+9 -DATA 98 , 0 , .745094 , 4.20418E+9 -DATA 99 , 0 , -.859138 , -3.1518E+9 -DATA 100 , 0 , 1.02889 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_COT_X_N.run b/bwbtest/NBS2X/F_COT_X_N.run deleted file mode 100644 index 5551dcc..0000000 --- a/bwbtest/NBS2X/F_COT_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 X= 0 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= .642093 X= 1 - F= 0 N= .642093 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-.642093 X=-1 - F= 0 N=-.642093 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 2.36522 X= .4 - F= 0 N= 2.36522 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-2.36522 X=-.4 - F= 0 N=-2.36522 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1.4617 X= .6 - F= 0 N= 1.4617 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-1.4617 X=-.6 - F= 0 N=-1.4617 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R=-1.9735 X= 254 - F= 0 N=-1.9735 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 1.70284 X= 255 - F= 0 N= 1.70284 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 3.98223E-2 X= 256 - F= 0 N= 3.98223E-2 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R=-3.71762 X= 32000 - F= 0 N=-3.71762 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-4.32484 X=-.227229 - F= 0 N=-4.32484 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-4.10133 X=-.239157 - F= 0 N=-4.10133 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-4.61054 X=-.213586 - F= 0 N=-4.61054 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 3.54864 X= .274675 - F= 0 N= 3.54864 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 5.83376 X= .169766 - F= 0 N= 5.83376 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 3.03012 X= .318766 - F= 0 N= 3.03012 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 48.3822 X= 2.06658E-2 - F= 0 N= 48.3822 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 5.24899 X= .188257 - F= 0 N= 5.24899 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-3.51013 X=-.277537 - F= 0 N=-3.51013 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-1.91473 X=-.481303 - F= 0 N=-1.91473 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 2.14884 X= .43556 - F= 0 N= 2.14884 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-4.66945 X=-.210971 - F= 0 N=-4.66945 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-2.04288 X=-.455216 - F= 0 N=-2.04288 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-.713214 X=-110.907 - F= 0 N=-.713214 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R=-.409473 X= 105.632 - F= 0 N=-.409473 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-.339323 X=-114.341 - F= 0 N=-.339323 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R=-3.92052 X= 109.706 - F= 0 N=-3.92052 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R=-1.0569 X= 109.198 - F= 0 N=-1.0569 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= .567921 X= 85.8773 - F= 0 N= .567921 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= .239779 X=-58.3548 - F= 0 N= .239779 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= .20837 X= 29.6397 - F= 0 N= .20837 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-2.49517E-2 X=-108.36 - F= 0 N=-2.49517E-2 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 1.44925 X=-46.5199 - F= 0 N= 1.44925 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R=-1.5386 X= 112.521 - F= 0 N=-1.5386 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= .138876 X= 45.4151 - F= 0 N= .138876 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1.46788 X= 101.129 - F= 0 N= 1.46788 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R=-.751798 X= 65.0473 - F= 0 N=-.751798 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= .302213 X= 48.4012 - F= 0 N= .302213 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R=-4.30748 X= 122.294 - F= 0 N=-4.30748 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 2.12817 X=-56.1094 - F= 0 N= 2.12817 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= .136522 X=-121.087 - F= 0 N= .136522 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-.649338 X=-123.517 - F= 0 N=-.649338 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-4.07352 X=-97.6301 - F= 0 N=-4.07352 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-.425802 X=-64.0001 - F= 0 N=-.425802 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-1.60908 X=-25.6888 - F= 0 N=-1.60908 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R=-.781621 X= 14.8006 - F= 0 N=-.781621 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-.175114 X=-61.0877 - F= 0 N=-.175114 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-1.27618 X=-66.6381 - F= 0 N=-1.27618 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-1.17764 X=-5476.5 - F= 0 N=-1.17764 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-.164254 X=-21210.3 - F= 0 N=-.164254 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= .731638 X=-28757.2 - F= 0 N= .731638 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= .958836 X=-28732.2 - F= 0 N= .958836 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 1.57199 X= 12730.3 - F= 0 N= 1.57199 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= .8635 X=-1830.69 - F= 0 N= .8635 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= .424644 X= 5486.39 - F= 0 N= .424644 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 16.3209 X= 22405.9 - F= 0 N= 16.3209 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 4.9118 X= 30809.8 - F= 0 N= 4.9118 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 2.95077 X=-28930.6 - F= 0 N= 2.95077 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-4.91749E-2 X=-6014.53 - F= 0 N=-4.91749E-2 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 1.0693 X= 17414.6 - F= 0 N= 1.0693 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-.17429 X=-10538.3 - F= 0 N=-.17429 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 14.2232 X=-17536.3 - F= 0 N= 14.2232 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-1.96713 X=-8856.62 - F= 0 N=-1.96713 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-1.94728 X=-5140.12 - F= 0 N=-1.94728 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 11.3994 X=-8595.31 - F= 0 N= 11.3994 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 1.38519 X=-3382.87 - F= 0 N= 1.38519 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-1.30323 X=-5002.07 - F= 0 N=-1.30323 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-.235024 X=-5800.72 - F= 0 N=-.235024 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 7.99498E-2 X= 29686.4 - F= 0 N= 7.99498E-2 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= .415254 X= 2571 - F= 0 N= .415254 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R=-.232355 X= 31091 - F= 0 N=-.232355 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 9.27055 X= 14819 - F= 0 N= 9.27055 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R=-.638803 X= 3790.9 - F= 0 N=-.638803 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 1.43769 X=-4.2981E+9 - F= 0 N= 1.43769 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-2.15999 X=-7.05453E+8 - F= 0 N=-2.15999 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 2.23381 X=-3.10179E+9 - F= 0 N= 2.23381 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= .230976 X=-4.86159E+9 - F= 0 N= .230976 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-.898042 X=-8.62908E+8 - F= 0 N=-.898042 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 2.42162 X=-3.4101E+9 - F= 0 N= 2.42162 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= .784532 X= 3.3889E+9 - F= 0 N= .784532 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= .953851 X= 2.49826E+9 - F= 0 N= .953851 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R=-.449034 X= 2.3491E+9 - F= 0 N=-.449034 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R=-1.2471 X= 1.94745E+8 - F= 0 N=-1.2471 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 6.23385 X= 2.02475E+9 - F= 0 N= 6.23385 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= .848779 X=-2.26748E+9 - F= 0 N= .848779 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-17.8045 X=-2.10587E+9 - F= 0 N=-17.8045 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= .35432 X= 4.23585E+9 - F= 0 N= .35432 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-6.00957 X=-2.66524E+9 - F= 0 N=-6.00957 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R=-.926233 X= 4.01052E+9 - F= 0 N=-.926234 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 2.45903 X=-4.87912E+9 - F= 0 N= 2.45903 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R=-3.92629E-2 X= 1.77556E+9 - F= 0 N=-3.92629E-2 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R=-1.41819 X= 2.87705E+8 - F= 0 N=-1.41819 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 2.79479 X= 1.99977E+8 - F= 0 N= 2.79479 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-1.45136 X=-3.39941E+9 - F= 0 N=-1.45136 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= .14549 X=-3.49119E+9 - F= 0 N= .14549 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 5.30698E-2 X=-2.86324E+9 - F= 0 N= 5.30698E-2 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= .745094 X= 4.20418E+9 - F= 0 N= .745094 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-.859138 X=-3.1518E+9 - F= 0 N=-.859138 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 1.02889 X= 4.60615E+9 - F= 0 N= 1.02889 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CSC_X_N.BAS b/bwbtest/NBS2X/F_CSC_X_N.BAS deleted file mode 100644 index 042ed06..0000000 --- a/bwbtest/NBS2X/F_CSC_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:18 -REM FILENAME: F_CSC_X_N.BAS -REM SYNTAX: N = CSC( X ) -REM UNIQUEID: F_CSC_X_N -REM FUNCTION: CSC -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CSC( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , 0 -DATA 2 , 0 , 1.1884 , 1 -DATA 3 , 0 , -1.1884 , -1 -DATA 4 , 0 , 2.56793 , .4 -DATA 5 , 0 , -2.56793 , -.4 -DATA 6 , 0 , 1.77103 , .6 -DATA 7 , 0 , -1.77103 , -.6 -DATA 8 , 0 , 2.21239 , 254 -DATA 9 , 0 , -1.97476 , 255 -DATA 10 , 0 , -1.00079 , 256 -DATA 11 , 0 , -3.84977 , 32000 -DATA 12 , 0 , -4.43895 , -.227229 -DATA 13 , 0 , -4.22148 , -.239157 -DATA 14 , 0 , -4.71774 , -.213586 -DATA 15 , 0 , 3.68685 , .274675 -DATA 16 , 0 , 5.91885 , .169766 -DATA 17 , 0 , 3.19086 , .318766 -DATA 18 , 0 , 48.3926 , 2.06658E-2 -DATA 19 , 0 , 5.34339 , .188257 -DATA 20 , 0 , -3.6498 , -.277537 -DATA 21 , 0 , -2.16013 , -.481303 -DATA 22 , 0 , 2.37013 , .43556 -DATA 23 , 0 , -4.77533 , -.210971 -DATA 24 , 0 , -2.2745 , -.455216 -DATA 25 , 0 , 1.22828 , -110.907 -DATA 26 , 0 , -1.08059 , 105.632 -DATA 27 , 0 , -1.056 , -114.341 -DATA 28 , 0 , 4.04605 , 109.706 -DATA 29 , 0 , 1.455 , 109.198 -DATA 30 , 0 , -1.15001 , 85.8773 -DATA 31 , 0 , -1.02835 , -58.3548 -DATA 32 , 0 , -1.02148 , 29.6397 -DATA 33 , 0 , -1.00031 , -108.36 -DATA 34 , 0 , -1.76078 , -46.5199 -DATA 35 , 0 , -1.83501 , 112.521 -DATA 36 , 0 , 1.0096 , 45.4151 -DATA 37 , 0 , 1.77614 , 101.129 -DATA 38 , 0 , 1.25108 , 65.0473 -DATA 39 , 0 , -1.04467 , 48.4012 -DATA 40 , 0 , 4.42203 , 122.294 -DATA 41 , 0 , 2.35141 , -56.1094 -DATA 42 , 0 , -1.00928 , -121.087 -DATA 43 , 0 , 1.19233 , -123.517 -DATA 44 , 0 , 4.19446 , -97.6301 -DATA 45 , 0 , -1.08688 , -64.0001 -DATA 46 , 0 , -1.8945 , -25.6888 -DATA 47 , 0 , 1.26922 , 14.8006 -DATA 48 , 0 , 1.01522 , -61.0877 -DATA 49 , 0 , 1.62131 , -66.6381 -DATA 50 , 0 , 1.54494 , -5476.5 -DATA 51 , 0 , 1.0134 , -21210.3 -DATA 52 , 0 , 1.23907 , -28757.2 -DATA 53 , 0 , 1.38541 , -28732.2 -DATA 54 , 0 , 1.8631 , 12730.3 -DATA 55 , 0 , -1.32122 , -1830.69 -DATA 56 , 0 , 1.08643 , 5486.39 -DATA 57 , 0 , 16.3515 , 22405.9 -DATA 58 , 0 , -5.01257 , 30809.8 -DATA 59 , 0 , -3.11562 , -28930.6 -DATA 60 , 0 , -1.00121 , -6014.53 -DATA 61 , 0 , -1.46404 , 17414.6 -DATA 62 , 0 , -1.01507 , -10538.3 -DATA 63 , 0 , 14.2583 , -17536.3 -DATA 64 , 0 , 2.20672 , -8856.62 -DATA 65 , 0 , -2.18904 , -5140.12 -DATA 66 , 0 , 11.4431 , -8595.31 -DATA 67 , 0 , -1.70844 , -3382.87 -DATA 68 , 0 , -1.64269 , -5002.07 -DATA 69 , 0 , -1.02725 , -5800.72 -DATA 70 , 0 , -1.00319 , 29686.4 -DATA 71 , 0 , 1.08279 , 2571. -DATA 72 , 0 , 1.02664 , 31091. -DATA 73 , 0 , -9.32433 , 14819. -DATA 74 , 0 , 1.18662 , 3790.9 -DATA 75 , 0 , 1.75127 , -4.2981E+9 -DATA 76 , 0 , -2.38025 , -7.05453E+8 -DATA 77 , 0 , 2.44743 , -3.10179E+9 -DATA 78 , 0 , 1.02633 , -4.86159E+9 -DATA 79 , 0 , 1.34405 , -8.62908E+8 -DATA 80 , 0 , -2.61997 , -3.4101E+9 -DATA 81 , 0 , -1.27102 , 3.3889E+9 -DATA 82 , 0 , 1.38197 , 2.49826E+9 -DATA 83 , 0 , -1.09619 , 2.3491E+9 -DATA 84 , 0 , 1.59852 , 1.94745E+8 -DATA 85 , 0 , 6.31355 , 2.02475E+9 -DATA 86 , 0 , -1.31165 , -2.26748E+9 -DATA 87 , 0 , -17.8326 , -2.10587E+9 -DATA 88 , 0 , -1.06092 , 4.23585E+9 -DATA 89 , 0 , 6.0922 , -2.66524E+9 -DATA 90 , 0 , 1.36305 , 4.01052E+9 -DATA 91 , 0 , 2.65459 , -4.87912E+9 -DATA 92 , 0 , -1.00077 , 1.77556E+9 -DATA 93 , 0 , -1.7353 , 2.87705E+8 -DATA 94 , 0 , 2.96831 , 1.99977E+8 -DATA 95 , 0 , -1.76251 , -3.39941E+9 -DATA 96 , 0 , 1.01053 , -3.49119E+9 -DATA 97 , 0 , -1.00141 , -2.86324E+9 -DATA 98 , 0 , -1.24706 , 4.20418E+9 -DATA 99 , 0 , 1.31838 , -3.1518E+9 -DATA 100 , 0 , 1.43479 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CSC_X_N.run b/bwbtest/NBS2X/F_CSC_X_N.run deleted file mode 100644 index ac923d5..0000000 --- a/bwbtest/NBS2X/F_CSC_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 X= 0 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1.1884 X= 1 - F= 0 N= 1.1884 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1.1884 X=-1 - F= 0 N=-1.1884 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 2.56793 X= .4 - F= 0 N= 2.56793 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-2.56793 X=-.4 - F= 0 N=-2.56793 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1.77103 X= .6 - F= 0 N= 1.77103 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-1.77103 X=-.6 - F= 0 N=-1.77103 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 2.21239 X= 254 - F= 0 N= 2.21239 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R=-1.97476 X= 255 - F= 0 N=-1.97476 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R=-1.00079 X= 256 - F= 0 N=-1.00079 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R=-3.84977 X= 32000 - F= 0 N=-3.84977 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-4.43895 X=-.227229 - F= 0 N=-4.43895 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-4.22148 X=-.239157 - F= 0 N=-4.22148 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-4.71774 X=-.213586 - F= 0 N=-4.71774 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 3.68685 X= .274675 - F= 0 N= 3.68685 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 5.91885 X= .169766 - F= 0 N= 5.91885 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 3.19086 X= .318766 - F= 0 N= 3.19086 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 48.3926 X= 2.06658E-2 - F= 0 N= 48.3926 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 5.34339 X= .188257 - F= 0 N= 5.34339 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-3.6498 X=-.277537 - F= 0 N=-3.6498 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-2.16013 X=-.481303 - F= 0 N=-2.16013 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 2.37013 X= .43556 - F= 0 N= 2.37013 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-4.77533 X=-.210971 - F= 0 N=-4.77533 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-2.2745 X=-.455216 - F= 0 N=-2.2745 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 1.22828 X=-110.907 - F= 0 N= 1.22828 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R=-1.08059 X= 105.632 - F= 0 N=-1.08059 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-1.056 X=-114.341 - F= 0 N=-1.056 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 4.04605 X= 109.706 - F= 0 N= 4.04605 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 1.455 X= 109.198 - F= 0 N= 1.455 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R=-1.15001 X= 85.8773 - F= 0 N=-1.15001 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-1.02835 X=-58.3548 - F= 0 N=-1.02835 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R=-1.02148 X= 29.6397 - F= 0 N=-1.02148 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-1.00031 X=-108.36 - F= 0 N=-1.00031 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-1.76078 X=-46.5199 - F= 0 N=-1.76078 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R=-1.83501 X= 112.521 - F= 0 N=-1.83501 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 1.0096 X= 45.4151 - F= 0 N= 1.0096 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1.77614 X= 101.129 - F= 0 N= 1.77614 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1.25108 X= 65.0473 - F= 0 N= 1.25108 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R=-1.04467 X= 48.4012 - F= 0 N=-1.04467 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 4.42203 X= 122.294 - F= 0 N= 4.42203 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 2.35141 X=-56.1094 - F= 0 N= 2.35141 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-1.00928 X=-121.087 - F= 0 N=-1.00928 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 1.19233 X=-123.517 - F= 0 N= 1.19233 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 4.19446 X=-97.6301 - F= 0 N= 4.19446 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-1.08688 X=-64.0001 - F= 0 N=-1.08688 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-1.8945 X=-25.6888 - F= 0 N=-1.8945 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 1.26922 X= 14.8006 - F= 0 N= 1.26922 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 1.01522 X=-61.0877 - F= 0 N= 1.01522 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 1.62131 X=-66.6381 - F= 0 N= 1.62131 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 1.54494 X=-5476.5 - F= 0 N= 1.54494 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 1.0134 X=-21210.3 - F= 0 N= 1.0134 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 1.23907 X=-28757.2 - F= 0 N= 1.23907 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 1.38541 X=-28732.2 - F= 0 N= 1.38541 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 1.8631 X= 12730.3 - F= 0 N= 1.8631 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1.32122 X=-1830.69 - F= 0 N=-1.32122 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 1.08643 X= 5486.39 - F= 0 N= 1.08643 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 16.3515 X= 22405.9 - F= 0 N= 16.3515 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R=-5.01257 X= 30809.8 - F= 0 N=-5.01257 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-3.11562 X=-28930.6 - F= 0 N=-3.11562 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-1.00121 X=-6014.53 - F= 0 N=-1.00121 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R=-1.46404 X= 17414.6 - F= 0 N=-1.46404 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-1.01507 X=-10538.3 - F= 0 N=-1.01507 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 14.2583 X=-17536.3 - F= 0 N= 14.2583 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 2.20672 X=-8856.62 - F= 0 N= 2.20672 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-2.18904 X=-5140.12 - F= 0 N=-2.18904 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 11.4431 X=-8595.31 - F= 0 N= 11.4431 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-1.70844 X=-3382.87 - F= 0 N=-1.70844 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-1.64269 X=-5002.07 - F= 0 N=-1.64269 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-1.02725 X=-5800.72 - F= 0 N=-1.02725 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R=-1.00319 X= 29686.4 - F= 0 N=-1.00319 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 1.08279 X= 2571 - F= 0 N= 1.08279 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 1.02664 X= 31091 - F= 0 N= 1.02664 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R=-9.32433 X= 14819 - F= 0 N=-9.32433 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 1.18662 X= 3790.9 - F= 0 N= 1.18662 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 1.75127 X=-4.2981E+9 - F= 0 N= 1.75127 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-2.38025 X=-7.05453E+8 - F= 0 N=-2.38025 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 2.44743 X=-3.10179E+9 - F= 0 N= 2.44743 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 1.02633 X=-4.86159E+9 - F= 0 N= 1.02633 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 1.34405 X=-8.62908E+8 - F= 0 N= 1.34405 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-2.61997 X=-3.4101E+9 - F= 0 N=-2.61997 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R=-1.27102 X= 3.3889E+9 - F= 0 N=-1.27102 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 1.38197 X= 2.49826E+9 - F= 0 N= 1.38197 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R=-1.09619 X= 2.3491E+9 - F= 0 N=-1.09619 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.59852 X= 1.94745E+8 - F= 0 N= 1.59852 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 6.31355 X= 2.02475E+9 - F= 0 N= 6.31355 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-1.31165 X=-2.26748E+9 - F= 0 N=-1.31165 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-17.8326 X=-2.10587E+9 - F= 0 N=-17.8326 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R=-1.06092 X= 4.23585E+9 - F= 0 N=-1.06092 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 6.0922 X=-2.66524E+9 - F= 0 N= 6.0922 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 1.36305 X= 4.01052E+9 - F= 0 N= 1.36305 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 2.65459 X=-4.87912E+9 - F= 0 N= 2.65459 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R=-1.00077 X= 1.77556E+9 - F= 0 N=-1.00077 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R=-1.7353 X= 2.87705E+8 - F= 0 N=-1.7353 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 2.96831 X= 1.99977E+8 - F= 0 N= 2.96831 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-1.76251 X=-3.39941E+9 - F= 0 N=-1.76251 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 1.01053 X=-3.49119E+9 - F= 0 N= 1.01053 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-1.00141 X=-2.86324E+9 - F= 0 N=-1.00141 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R=-1.24706 X= 4.20418E+9 - F= 0 N=-1.24706 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 1.31838 X=-3.1518E+9 - F= 0 N= 1.31838 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 1.43479 X= 4.60615E+9 - F= 0 N= 1.43479 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CSNG_X_N.BAS b/bwbtest/NBS2X/F_CSNG_X_N.BAS deleted file mode 100644 index 84a0162..0000000 --- a/bwbtest/NBS2X/F_CSNG_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:19 -REM FILENAME: F_CSNG_X_N.BAS -REM SYNTAX: N = CSNG( X ) -REM UNIQUEID: F_CSNG_X_N -REM FUNCTION: CSNG -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CSNG( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , -1 , -1 -DATA 4 , 0 , .4 , .4 -DATA 5 , 0 , -.4 , -.4 -DATA 6 , 0 , .6 , .6 -DATA 7 , 0 , -.6 , -.6 -DATA 8 , 0 , 254 , 254 -DATA 9 , 0 , 255 , 255 -DATA 10 , 0 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , -.227229 , -.227229 -DATA 13 , 0 , -.239157 , -.239157 -DATA 14 , 0 , -.213586 , -.213586 -DATA 15 , 0 , .274675 , .274675 -DATA 16 , 0 , .169766 , .169766 -DATA 17 , 0 , .318766 , .318766 -DATA 18 , 0 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , .188257 , .188257 -DATA 20 , 0 , -.277537 , -.277537 -DATA 21 , 0 , -.481303 , -.481303 -DATA 22 , 0 , .43556 , .43556 -DATA 23 , 0 , -.210971 , -.210971 -DATA 24 , 0 , -.455216 , -.455216 -DATA 25 , 0 , -110.907 , -110.907 -DATA 26 , 0 , 105.632 , 105.632 -DATA 27 , 0 , -114.341 , -114.341 -DATA 28 , 0 , 109.706 , 109.706 -DATA 29 , 0 , 109.198 , 109.198 -DATA 30 , 0 , 85.8773 , 85.8773 -DATA 31 , 0 , -58.3548 , -58.3548 -DATA 32 , 0 , 29.6397 , 29.6397 -DATA 33 , 0 , -108.36 , -108.36 -DATA 34 , 0 , -46.5199 , -46.5199 -DATA 35 , 0 , 112.521 , 112.521 -DATA 36 , 0 , 45.4151 , 45.4151 -DATA 37 , 0 , 101.129 , 101.129 -DATA 38 , 0 , 65.0473 , 65.0473 -DATA 39 , 0 , 48.4012 , 48.4012 -DATA 40 , 0 , 122.294 , 122.294 -DATA 41 , 0 , -56.1094 , -56.1094 -DATA 42 , 0 , -121.087 , -121.087 -DATA 43 , 0 , -123.517 , -123.517 -DATA 44 , 0 , -97.6301 , -97.6301 -DATA 45 , 0 , -64.0001 , -64.0001 -DATA 46 , 0 , -25.6888 , -25.6888 -DATA 47 , 0 , 14.8006 , 14.8006 -DATA 48 , 0 , -61.0877 , -61.0877 -DATA 49 , 0 , -66.6381 , -66.6381 -DATA 50 , 0 , -5476.5 , -5476.5 -DATA 51 , 0 , -21210.3 , -21210.3 -DATA 52 , 0 , -28757.2 , -28757.2 -DATA 53 , 0 , -28732.2 , -28732.2 -DATA 54 , 0 , 12730.3 , 12730.3 -DATA 55 , 0 , -1830.69 , -1830.69 -DATA 56 , 0 , 5486.39 , 5486.39 -DATA 57 , 0 , 22405.9 , 22405.9 -DATA 58 , 0 , 30809.8 , 30809.8 -DATA 59 , 0 , -28930.6 , -28930.6 -DATA 60 , 0 , -6014.53 , -6014.53 -DATA 61 , 0 , 17414.6 , 17414.6 -DATA 62 , 0 , -10538.3 , -10538.3 -DATA 63 , 0 , -17536.3 , -17536.3 -DATA 64 , 0 , -8856.62 , -8856.62 -DATA 65 , 0 , -5140.12 , -5140.12 -DATA 66 , 0 , -8595.31 , -8595.31 -DATA 67 , 0 , -3382.87 , -3382.87 -DATA 68 , 0 , -5002.07 , -5002.07 -DATA 69 , 0 , -5800.72 , -5800.72 -DATA 70 , 0 , 29686.4 , 29686.4 -DATA 71 , 0 , 2571 , 2571. -DATA 72 , 0 , 31091 , 31091. -DATA 73 , 0 , 14819 , 14819. -DATA 74 , 0 , 3790.9 , 3790.9 -DATA 75 , 0 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CSNG_X_N.run b/bwbtest/NBS2X/F_CSNG_X_N.run deleted file mode 100644 index 2ef9542..0000000 --- a/bwbtest/NBS2X/F_CSNG_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .4 X= .4 - F= 0 N= .4 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.4 X=-.4 - F= 0 N=-.4 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .6 X= .6 - F= 0 N= .6 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.6 X=-.6 - F= 0 N=-.6 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.227229 X=-.227229 - F= 0 N=-.227229 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.239157 X=-.239157 - F= 0 N=-.239157 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.213586 X=-.213586 - F= 0 N=-.213586 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .274675 X= .274675 - F= 0 N= .274675 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .169766 X= .169766 - F= 0 N= .169766 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .318766 X= .318766 - F= 0 N= .318766 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06658E-2 X= 2.06658E-2 - F= 0 N= 2.06658E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .188257 X= .188257 - F= 0 N= .188257 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.277537 X=-.277537 - F= 0 N=-.277537 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.481303 X=-.481303 - F= 0 N=-.481303 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .43556 X= .43556 - F= 0 N= .43556 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.210971 X=-.210971 - F= 0 N=-.210971 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.455216 X=-.455216 - F= 0 N=-.455216 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-110.907 X=-110.907 - F= 0 N=-110.907 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 105.632 X= 105.632 - F= 0 N= 105.632 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-114.341 X=-114.341 - F= 0 N=-114.341 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 109.706 X= 109.706 - F= 0 N= 109.706 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109.198 X= 109.198 - F= 0 N= 109.198 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 85.8773 X= 85.8773 - F= 0 N= 85.8773 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-58.3548 X=-58.3548 - F= 0 N=-58.3548 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 29.6397 X= 29.6397 - F= 0 N= 29.6397 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-108.36 X=-108.36 - F= 0 N=-108.36 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-46.5199 X=-46.5199 - F= 0 N=-46.5199 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 112.521 X= 112.521 - F= 0 N= 112.521 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45.4151 X= 45.4151 - F= 0 N= 45.4151 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101.129 X= 101.129 - F= 0 N= 101.129 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65.0473 X= 65.0473 - F= 0 N= 65.0473 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48.4012 X= 48.4012 - F= 0 N= 48.4012 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122.294 X= 122.294 - F= 0 N= 122.294 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-56.1094 X=-56.1094 - F= 0 N=-56.1094 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-121.087 X=-121.087 - F= 0 N=-121.087 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-123.517 X=-123.517 - F= 0 N=-123.517 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-97.6301 X=-97.6301 - F= 0 N=-97.6301 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-64.0001 X=-64.0001 - F= 0 N=-64.0001 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-25.6888 X=-25.6888 - F= 0 N=-25.6888 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 14.8006 X= 14.8006 - F= 0 N= 14.8006 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-61.0877 X=-61.0877 - F= 0 N=-61.0877 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-66.6381 X=-66.6381 - F= 0 N=-66.6381 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5476.5 X=-5476.5 - F= 0 N=-5476.5 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21210.3 X=-21210.3 - F= 0 N=-21210.3 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28757.2 X=-28757.2 - F= 0 N=-28757.2 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28732.2 X=-28732.2 - F= 0 N=-28732.2 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730.3 X= 12730.3 - F= 0 N= 12730.3 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1830.69 X=-1830.69 - F= 0 N=-1830.69 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486.39 X= 5486.39 - F= 0 N= 5486.39 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22405.9 X= 22405.9 - F= 0 N= 22405.9 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30809.8 X= 30809.8 - F= 0 N= 30809.8 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28930.6 X=-28930.6 - F= 0 N=-28930.6 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6014.53 X=-6014.53 - F= 0 N=-6014.53 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17414.6 X= 17414.6 - F= 0 N= 17414.6 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10538.3 X=-10538.3 - F= 0 N=-10538.3 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17536.3 X=-17536.3 - F= 0 N=-17536.3 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8856.62 X=-8856.62 - F= 0 N=-8856.62 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5140.12 X=-5140.12 - F= 0 N=-5140.12 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8595.31 X=-8595.31 - F= 0 N=-8595.31 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3382.87 X=-3382.87 - F= 0 N=-3382.87 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5002.07 X=-5002.07 - F= 0 N=-5002.07 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5800.72 X=-5800.72 - F= 0 N=-5800.72 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686.4 X= 29686.4 - F= 0 N= 29686.4 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3790.9 X= 3790.9 - F= 0 N= 3790.9 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-4.2981E+9 X=-4.2981E+9 - F= 0 N=-4.2981E+9 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-3.10179E+9 X=-3.10179E+9 - F= 0 N=-3.10179E+9 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-4.86159E+9 X=-4.86159E+9 - F= 0 N=-4.86159E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-3.4101E+9 X=-3.4101E+9 - F= 0 N=-3.4101E+9 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 3.3889E+9 X= 3.3889E+9 - F= 0 N= 3.3889E+9 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 2.49826E+9 X= 2.49826E+9 - F= 0 N= 2.49826E+9 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.3491E+9 X= 2.3491E+9 - F= 0 N= 2.3491E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-2.26748E+9 X=-2.26748E+9 - F= 0 N=-2.26748E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 4.23585E+9 X= 4.23585E+9 - F= 0 N= 4.23585E+9 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-2.66524E+9 X=-2.66524E+9 - F= 0 N=-2.66524E+9 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 4.01052E+9 X= 4.01052E+9 - F= 0 N= 4.01052E+9 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-4.87912E+9 X=-4.87912E+9 - F= 0 N=-4.87912E+9 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-3.39941E+9 X=-3.39941E+9 - F= 0 N=-3.39941E+9 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-3.49119E+9 X=-3.49119E+9 - F= 0 N=-3.49119E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-2.86324E+9 X=-2.86324E+9 - F= 0 N=-2.86324E+9 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 4.20418E+9 X= 4.20418E+9 - F= 0 N= 4.20418E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-3.1518E+9 X=-3.1518E+9 - F= 0 N=-3.1518E+9 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 4.60615E+9 X= 4.60615E+9 - F= 0 N= 4.60615E+9 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CVC_A_N.BAS b/bwbtest/NBS2X/F_CVC_A_N.BAS deleted file mode 100644 index 7c4ec1c..0000000 --- a/bwbtest/NBS2X/F_CVC_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:19 -REM FILENAME: F_CVC_A_N.BAS -REM SYNTAX: N = CVC( A$ ) -REM UNIQUEID: F_CVC_A_N -REM FUNCTION: CVC -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CVC( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , "" -DATA 2 , 1 , 0 , " " -DATA 3 , 1 , 0 , "3" -DATA 4 , 1 , 0 , "z" -DATA 5 , 1 , 0 , " " -DATA 6 , 1 , 0 , " 3" -DATA 7 , 1 , 0 , " z" -DATA 8 , 1 , 0 , "3 " -DATA 9 , 1 , 0 , "z " -DATA 10 , 1 , 0 , " 3 " -DATA 11 , 1 , 0 , " z " -DATA 12 , 0 , 1.28007E+9 , " LLLL" -DATA 13 , 0 , 5.38976E+8 , " '' " -DATA 14 , 0 , 1.86438E+9 , " oo " -DATA 15 , 0 , 5.40029E+8 , " 00 " -DATA 16 , 0 , 1.54561E+9 , " \\\\ " -DATA 17 , 0 , 1.81904E+9 , " lllll " -DATA 18 , 0 , 5.38976E+8 , " uuuu " -DATA 19 , 0 , 5.43236E+8 , " a " -DATA 20 , 0 , 5.38976E+8 , " " -DATA 21 , 0 , 5.43713E+8 , " hh " -DATA 22 , 0 , 5.43695E+8 , " h " -DATA 23 , 1 , 0 , " )" -DATA 24 , 0 , 5.38976E+8 , " 5 " -DATA 25 , 0 , 5.40156E+8 , " 2 " -DATA 26 , 0 , 5.3898E+8 , " - " -DATA 27 , 1 , 0 , "dd " -DATA 28 , 0 , 1.95377E+9 , " tttt " -DATA 29 , 0 , 9.76888E+8 , " :::: " -DATA 30 , 0 , 1.59594E+9 , " ___ " -DATA 31 , 0 , 5.38976E+8 , " " -DATA 32 , 0 , 5.38976E+8 , " " -DATA 33 , 0 , 1.60009E+9 , " _____ " -DATA 34 , 1 , 0 , " S " -DATA 35 , 0 , 1.179E+9 , " FFFF " -DATA 36 , 0 , 5.38976E+8 , " kkk" -DATA 37 , 0 , 5.38976E+8 , " NNNN " -DATA 38 , 0 , 1.83082E+9 , " mmmm " -DATA 39 , 0 , 5.38976E+8 , " ,,,,, " -DATA 40 , 0 , 5.38988E+8 , "OO " -DATA 41 , 0 , 1.21006E+9 , " HHHH " -DATA 42 , 1 , 0 , " < " -DATA 43 , 0 , 1.78049E+9 , " j " -DATA 44 , 0 , 5.38976E+8 , " yyyy " -DATA 45 , 0 , 7.24247E+8 , " +++ " -DATA 46 , 1 , 0 , "o " -DATA 47 , 0 , 5.38976E+8 , " ((" -DATA 48 , 0 , 5.38976E+8 , " uu " -DATA 49 , 0 , 5.38976E+8 , " 00 " -DATA 50 , 0 , 5.38976E+8 , " HH " -DATA 51 , 0 , 5.38976E+8 , " " -DATA 52 , 0 , 5.41532E+8 , " G " -DATA 53 , 0 , 5.38976E+8 , " {{{{ " -DATA 54 , 0 , 5.38976E+8 , " ]]] " -DATA 55 , 1 , 0 , "CCC" -DATA 56 , 0 , 5.38976E+8 , " 44 " -DATA 57 , 0 , 5.38992E+8 , "^^ " -DATA 58 , 0 , 5.38976E+8 , " QQ " -DATA 59 , 0 , 5.38976E+8 , " FFFF " -DATA 60 , 0 , 5.38996E+8 , " n " -DATA 61 , 0 , 5.38976E+8 , " hh " -DATA 62 , 0 , 5.40358E+8 , "555 " -DATA 63 , 0 , 5.38976E+8 , " YYYY " -DATA 64 , 0 , 5.38976E+8 , " w " -DATA 65 , 0 , 1.29691E+9 , "MMMM " -DATA 66 , 0 , 1.24638E+9 , " JJJJ " -DATA 67 , 0 , 5.38976E+8 , " %% " -DATA 68 , 0 , 5.38976E+8 , " * " -DATA 69 , 0 , 5.38976E+8 , " @@@ " -DATA 70 , 1 , 0 , "I " -DATA 71 , 0 , 5.38976E+8 , " ss " -DATA 72 , 0 , 5.43564E+8 , " f " -DATA 73 , 0 , 1.14296E+9 , " D " -DATA 74 , 0 , 5.39174E+8 , "### " -DATA 75 , 0 , 5.38976E+8 , " ' " -DATA 76 , 0 , 1.68428E+9 , " dd " -DATA 77 , 0 , 5.42397E+8 , " TT " -DATA 78 , 0 , 1.98745E+9 , " vvv " -DATA 79 , 0 , 5.38976E+8 , " X " -DATA 80 , 0 , 5.38976E+8 , " % " -DATA 81 , 1 , 0 , " " -DATA 82 , 0 , 8.92679E+8 , " 5555 " -DATA 83 , 0 , 1.17901E+9 , "FFFF " -DATA 84 , 0 , 5.38976E+8 , " %% " -DATA 85 , 0 , 5.38976E+8 , " " -DATA 86 , 0 , 2.12219E+9 , " ~~~~ " -DATA 87 , 0 , 2.08248E+9 , " || " -DATA 88 , 0 , 5.38976E+8 , " SSS " -DATA 89 , 0 , 9.08075E+8 , " 6666 " -DATA 90 , 0 , 5.38976E+8 , " ww " -DATA 91 , 0 , 8.25303E+8 , " 1111 " -DATA 92 , 1 , 0 , " K " -DATA 93 , 0 , 1.95377E+9 , " ttttt " -DATA 94 , 0 , 1.3306E+9 , " OOOOO " -DATA 95 , 0 , 5.38986E+8 , " E " -DATA 96 , 0 , 1.34744E+9 , " PPPPP " -DATA 97 , 0 , 5.38976E+8 , " == " -DATA 98 , 0 , 1.4485E+9 , " VVVV " -DATA 99 , 0 , 5.38993E+8 , " c " -DATA 100 , 0 , 5.38976E+8 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CVC_A_N.run b/bwbtest/NBS2X/F_CVC_A_N.run deleted file mode 100644 index 8ce6db6..0000000 --- a/bwbtest/NBS2X/F_CVC_A_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 A$=[] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 A$=[3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 1 R= 0 A$=[z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 1 R= 0 A$=[ 3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 A$=[ z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 A$=[3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 A$=[z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 A$=[ 3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 A$=[ z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 1.28007E+9 A$=[ LLLL] - F= 0 N= 1.28007E+9 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 5.38976E+8 A$=[ '' ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 1.86438E+9 A$=[ oo ] - F= 0 N= 1.86438E+9 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 5.40029E+8 A$=[ 00 ] - F= 0 N= 5.40029E+8 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1.54561E+9 A$=[ \\\\ ] - F= 0 N= 1.54561E+9 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1.81904E+9 A$=[ lllll ] - F= 0 N= 1.81904E+9 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 5.38976E+8 A$=[ uuuu ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 5.43236E+8 A$=[ a ] - F= 0 N= 5.43236E+8 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 5.43713E+8 A$=[ hh ] - F= 0 N= 5.43713E+8 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 5.43695E+8 A$=[ h ] - F= 0 N= 5.43695E+8 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 A$=[ )] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 5.38976E+8 A$=[ 5 ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 5.40156E+8 A$=[ 2 ] - F= 0 N= 5.40156E+8 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 5.3898E+8 A$=[ - ] - F= 0 N= 5.3898E+8 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 A$=[dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 1.95377E+9 A$=[ tttt ] - F= 0 N= 1.95377E+9 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 9.76888E+8 A$=[ :::: ] - F= 0 N= 9.76888E+8 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1.59594E+9 A$=[ ___ ] - F= 0 N= 1.59594E+9 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 1.60009E+9 A$=[ _____ ] - F= 0 N= 1.60009E+9 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 A$=[ S ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 1.179E+9 A$=[ FFFF ] - F= 0 N= 1.179E+9 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 5.38976E+8 A$=[ kkk] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 5.38976E+8 A$=[ NNNN ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1.83082E+9 A$=[ mmmm ] - F= 0 N= 1.83082E+9 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 5.38976E+8 A$=[ ,,,,, ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 5.38988E+8 A$=[OO ] - F= 0 N= 5.38988E+8 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 1.21006E+9 A$=[ HHHH ] - F= 0 N= 1.21006E+9 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 A$=[ < ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 1.78049E+9 A$=[ j ] - F= 0 N= 1.78049E+9 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 5.38976E+8 A$=[ yyyy ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 7.24247E+8 A$=[ +++ ] - F= 0 N= 7.24247E+8 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 A$=[o ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 5.38976E+8 A$=[ ((] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 5.38976E+8 A$=[ uu ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 5.38976E+8 A$=[ 00 ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 5.38976E+8 A$=[ HH ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 5.41532E+8 A$=[ G ] - F= 0 N= 5.41532E+8 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 5.38976E+8 A$=[ {{{{ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 5.38976E+8 A$=[ ]]] ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 A$=[CCC] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5.38976E+8 A$=[ 44 ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 5.38992E+8 A$=[^^ ] - F= 0 N= 5.38992E+8 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 5.38976E+8 A$=[ QQ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 5.38976E+8 A$=[ FFFF ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 5.38996E+8 A$=[ n ] - F= 0 N= 5.38996E+8 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 5.38976E+8 A$=[ hh ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 5.40358E+8 A$=[555 ] - F= 0 N= 5.40358E+8 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 5.38976E+8 A$=[ YYYY ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 5.38976E+8 A$=[ w ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 1.29691E+9 A$=[MMMM ] - F= 0 N= 1.29691E+9 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 1.24638E+9 A$=[ JJJJ ] - F= 0 N= 1.24638E+9 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 5.38976E+8 A$=[ %% ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 5.38976E+8 A$=[ * ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 5.38976E+8 A$=[ @@@ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 A$=[I ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 5.38976E+8 A$=[ ss ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 5.43564E+8 A$=[ f ] - F= 0 N= 5.43564E+8 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 1.14296E+9 A$=[ D ] - F= 0 N= 1.14296E+9 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 5.39174E+8 A$=[### ] - F= 0 N= 5.39174E+8 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 5.38976E+8 A$=[ ' ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 1.68428E+9 A$=[ dd ] - F= 0 N= 1.68428E+9 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 5.42397E+8 A$=[ TT ] - F= 0 N= 5.42397E+8 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 1.98745E+9 A$=[ vvv ] - F= 0 N= 1.98745E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 5.38976E+8 A$=[ X ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 5.38976E+8 A$=[ % ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 8.92679E+8 A$=[ 5555 ] - F= 0 N= 8.92679E+8 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 1.17901E+9 A$=[FFFF ] - F= 0 N= 1.17901E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 5.38976E+8 A$=[ %% ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 2.12219E+9 A$=[ ~~~~ ] - F= 0 N= 2.12219E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 2.08248E+9 A$=[ || ] - F= 0 N= 2.08248E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 5.38976E+8 A$=[ SSS ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 9.08075E+8 A$=[ 6666 ] - F= 0 N= 9.08075E+8 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 5.38976E+8 A$=[ ww ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 8.25303E+8 A$=[ 1111 ] - F= 0 N= 8.25303E+8 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 A$=[ K ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 1.95377E+9 A$=[ ttttt ] - F= 0 N= 1.95377E+9 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.3306E+9 A$=[ OOOOO ] - F= 0 N= 1.3306E+9 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 5.38986E+8 A$=[ E ] - F= 0 N= 5.38986E+8 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 1.34744E+9 A$=[ PPPPP ] - F= 0 N= 1.34744E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 5.38976E+8 A$=[ == ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 1.4485E+9 A$=[ VVVV ] - F= 0 N= 1.4485E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 5.38993E+8 A$=[ c ] - F= 0 N= 5.38993E+8 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 5.38976E+8 A$=[ yyyy ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CVD_A_N.BAS b/bwbtest/NBS2X/F_CVD_A_N.BAS deleted file mode 100644 index 021170a..0000000 --- a/bwbtest/NBS2X/F_CVD_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:19 -REM FILENAME: F_CVD_A_N.BAS -REM SYNTAX: N = CVD( A$ ) -REM UNIQUEID: F_CVD_A_N -REM FUNCTION: CVD -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CVD( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , "" -DATA 2 , 1 , 0 , " " -DATA 3 , 1 , 0 , "3" -DATA 4 , 1 , 0 , "z" -DATA 5 , 1 , 0 , " " -DATA 6 , 1 , 0 , " 3" -DATA 7 , 1 , 0 , " z" -DATA 8 , 1 , 0 , "3 " -DATA 9 , 1 , 0 , "z " -DATA 10 , 1 , 0 , " 3 " -DATA 11 , 1 , 0 , " z " -DATA 12 , 1 , 0 , " LLLL" -DATA 13 , 0 , 6.02371E-154 , " '' " -DATA 14 , 0 , 6.01392E-154 , " oo " -DATA 15 , 1 , 0 , " 00 " -DATA 16 , 0 , 8.46098E-153 , " \\\\ " -DATA 17 , 0 , 6.12461E-154 , " lllll " -DATA 18 , 0 , 6.4441E+257 , " uuuu " -DATA 19 , 1 , 0 , " a " -DATA 20 , 1 , 0 , " " -DATA 21 , 0 , 6.01347E-154 , " hh " -DATA 22 , 1 , 0 , " h " -DATA 23 , 1 , 0 , " )" -DATA 24 , 0 , 6.01359E-154 , " 5 " -DATA 25 , 1 , 0 , " 2 " -DATA 26 , 1 , 0 , " - " -DATA 27 , 1 , 0 , "dd " -DATA 28 , 0 , 6.13631E-154 , " tttt " -DATA 29 , 0 , 6.05149E-154 , " :::: " -DATA 30 , 0 , 6.1056E-154 , " ___ " -DATA 31 , 1 , 0 , " " -DATA 32 , 1 , 0 , " " -DATA 33 , 0 , 6.1056E-154 , " _____ " -DATA 34 , 1 , 0 , " S " -DATA 35 , 1 , 0 , " FFFF " -DATA 36 , 1 , 0 , " kkk" -DATA 37 , 0 , 1.63409E+69 , " NNNN " -DATA 38 , 0 , 1.75584E-152 , " mmmm " -DATA 39 , 0 , 6.59474E-96 , " ,,,,, " -DATA 40 , 1 , 0 , "OO " -DATA 41 , 0 , 3.62212E-153 , " HHHH " -DATA 42 , 1 , 0 , " < " -DATA 43 , 0 , 6.01347E-154 , " j " -DATA 44 , 0 , 1.41118E+277 , " yyyy " -DATA 45 , 1 , 0 , " +++ " -DATA 46 , 1 , 0 , "o " -DATA 47 , 1 , 0 , " ((" -DATA 48 , 0 , 2.5606E-152 , " uu " -DATA 49 , 0 , 6.03687E-154 , " 00 " -DATA 50 , 0 , 3.62203E-153 , " HH " -DATA 51 , 1 , 0 , " " -DATA 52 , 1 , 0 , " G " -DATA 53 , 0 , 6.53867E+286 , " {{{{ " -DATA 54 , 0 , 8.76048E-153 , " ]]] " -DATA 55 , 1 , 0 , "CCC" -DATA 56 , 0 , 1.50685E-153 , " 44 " -DATA 57 , 1 , 0 , "^^ " -DATA 58 , 0 , 6.08513E-154 , " QQ " -DATA 59 , 0 , 3.52944E+30 , " FFFF " -DATA 60 , 1 , 0 , " n " -DATA 61 , 0 , 6.11876E-154 , " hh " -DATA 62 , 1 , 0 , "555 " -DATA 63 , 0 , 2.6183E+122 , " YYYY " -DATA 64 , 0 , 6.01397E-154 , " w " -DATA 65 , 1 , 0 , "MMMM " -DATA 66 , 0 , 6.01371E-154 , " JJJJ " -DATA 67 , 0 , 6.02078E-154 , " %% " -DATA 68 , 0 , 6.02804E-154 , " * " -DATA 69 , 0 , 2.42411E-153 , " @@@ " -DATA 70 , 1 , 0 , "I " -DATA 71 , 0 , 6.13485E-154 , " ss " -DATA 72 , 1 , 0 , " f " -DATA 73 , 1 , 0 , " D " -DATA 74 , 1 , 0 , "### " -DATA 75 , 0 , 6.01351E-154 , " ' " -DATA 76 , 0 , 6.01347E-154 , " dd " -DATA 77 , 1 , 0 , " TT " -DATA 78 , 1 , 0 , " vvv " -DATA 79 , 1 , 0 , " X " -DATA 80 , 0 , 6.0135E-154 , " % " -DATA 81 , 1 , 0 , " " -DATA 82 , 0 , 6.01359E-154 , " 5555 " -DATA 83 , 1 , 0 , "FFFF " -DATA 84 , 0 , 7.88534E-154 , " %% " -DATA 85 , 1 , 0 , " " -DATA 86 , 0 , 6.15094E-154 , " ~~~~ " -DATA 87 , 0 , 6.014E-154 , " || " -DATA 88 , 0 , 2.51937E+93 , " SSS " -DATA 89 , 0 , 1.65663E-153 , " 6666 " -DATA 90 , 0 , 6.1407E-154 , " ww " -DATA 91 , 0 , 6.03833E-154 , " 1111 " -DATA 92 , 1 , 0 , " K " -DATA 93 , 0 , 2.44095E-152 , " ttttt " -DATA 94 , 0 , 6.0822E-154 , " OOOOO " -DATA 95 , 1 , 0 , " E " -DATA 96 , 0 , 6.08367E-154 , " PPPPP " -DATA 97 , 1 , 0 , " == " -DATA 98 , 0 , 6.01378E-154 , " VVVV " -DATA 99 , 1 , 0 , " c " -DATA 100 , 0 , 1.41118E+277 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CVD_A_N.run b/bwbtest/NBS2X/F_CVD_A_N.run deleted file mode 100644 index 4223526..0000000 --- a/bwbtest/NBS2X/F_CVD_A_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 A$=[] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 A$=[3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 1 R= 0 A$=[z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 1 R= 0 A$=[ 3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 A$=[ z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 A$=[3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 A$=[z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 A$=[ 3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 A$=[ z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 1 R= 0 A$=[ LLLL] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 6.02371E-154 A$=[ '' ] - F= 0 N= 6.02371E-154 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 6.01392E-154 A$=[ oo ] - F= 0 N= 6.01392E-154 -*** TEST PASSED *** -TESTCASE # 15 E= 1 R= 0 A$=[ 00 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 8.46098E-153 A$=[ \\\\ ] - F= 0 N= 8.46098E-153 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 6.12461E-154 A$=[ lllll ] - F= 0 N= 6.12461E-154 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 6.4441E+257 A$=[ uuuu ] - F= 0 N= 6.4441E+257 -*** TEST PASSED *** -TESTCASE # 19 E= 1 R= 0 A$=[ a ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 6.01347E-154 A$=[ hh ] - F= 0 N= 6.01347E-154 -*** TEST PASSED *** -TESTCASE # 22 E= 1 R= 0 A$=[ h ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 A$=[ )] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 6.01359E-154 A$=[ 5 ] - F= 0 N= 6.01359E-154 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 A$=[ 2 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 1 R= 0 A$=[ - ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 A$=[dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 6.13631E-154 A$=[ tttt ] - F= 0 N= 6.13631E-154 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 6.05149E-154 A$=[ :::: ] - F= 0 N= 6.05149E-154 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 6.1056E-154 A$=[ ___ ] - F= 0 N= 6.1056E-154 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 6.1056E-154 A$=[ _____ ] - F= 0 N= 6.1056E-154 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 A$=[ S ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 1 R= 0 A$=[ FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 1 R= 0 A$=[ kkk] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1.63409E+69 A$=[ NNNN ] - F= 0 N= 1.63409E+69 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1.75584E-152 A$=[ mmmm ] - F= 0 N= 1.75584E-152 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 6.59474E-96 A$=[ ,,,,, ] - F= 0 N= 6.59474E-96 -*** TEST PASSED *** -TESTCASE # 40 E= 1 R= 0 A$=[OO ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 3.62212E-153 A$=[ HHHH ] - F= 0 N= 3.62212E-153 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 A$=[ < ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 6.01347E-154 A$=[ j ] - F= 0 N= 6.01347E-154 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 1.41118E+277 A$=[ yyyy ] - F= 0 N= 1.41118E+277 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 A$=[ +++ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 A$=[o ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 1 R= 0 A$=[ ((] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 2.5606E-152 A$=[ uu ] - F= 0 N= 2.5606E-152 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 6.03687E-154 A$=[ 00 ] - F= 0 N= 6.03687E-154 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 3.62203E-153 A$=[ HH ] - F= 0 N= 3.62203E-153 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 A$=[ G ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 6.53867E+286 A$=[ {{{{ ] - F= 0 N= 6.53867E+286 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 8.76048E-153 A$=[ ]]] ] - F= 0 N= 8.76048E-153 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 A$=[CCC] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 1.50685E-153 A$=[ 44 ] - F= 0 N= 1.50685E-153 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 A$=[^^ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 6.08513E-154 A$=[ QQ ] - F= 0 N= 6.08513E-154 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 3.52944E+30 A$=[ FFFF ] - F= 0 N= 3.52944E+30 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 A$=[ n ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 6.11876E-154 A$=[ hh ] - F= 0 N= 6.11876E-154 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 A$=[555 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 2.6183E+122 A$=[ YYYY ] - F= 0 N= 2.6183E+122 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 6.01397E-154 A$=[ w ] - F= 0 N= 6.01397E-154 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 A$=[MMMM ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 6.01371E-154 A$=[ JJJJ ] - F= 0 N= 6.01371E-154 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 6.02078E-154 A$=[ %% ] - F= 0 N= 6.02078E-154 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 6.02804E-154 A$=[ * ] - F= 0 N= 6.02804E-154 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 2.42411E-153 A$=[ @@@ ] - F= 0 N= 2.42411E-153 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 A$=[I ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 6.13485E-154 A$=[ ss ] - F= 0 N= 6.13485E-154 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 A$=[ f ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 A$=[ D ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 0 A$=[### ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 6.01351E-154 A$=[ ' ] - F= 0 N= 6.01351E-154 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 6.01347E-154 A$=[ dd ] - F= 0 N= 6.01347E-154 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 A$=[ TT ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 A$=[ vvv ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 A$=[ X ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 6.0135E-154 A$=[ % ] - F= 0 N= 6.0135E-154 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 6.01359E-154 A$=[ 5555 ] - F= 0 N= 6.01359E-154 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 A$=[FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 7.88534E-154 A$=[ %% ] - F= 0 N= 7.88534E-154 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 6.15094E-154 A$=[ ~~~~ ] - F= 0 N= 6.15094E-154 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 6.014E-154 A$=[ || ] - F= 0 N= 6.014E-154 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 2.51937E+93 A$=[ SSS ] - F= 0 N= 2.51937E+93 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 1.65663E-153 A$=[ 6666 ] - F= 0 N= 1.65663E-153 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 6.1407E-154 A$=[ ww ] - F= 0 N= 6.1407E-154 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 6.03833E-154 A$=[ 1111 ] - F= 0 N= 6.03833E-154 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 A$=[ K ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.44095E-152 A$=[ ttttt ] - F= 0 N= 2.44095E-152 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 6.0822E-154 A$=[ OOOOO ] - F= 0 N= 6.0822E-154 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 A$=[ E ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 6.08367E-154 A$=[ PPPPP ] - F= 0 N= 6.08367E-154 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 A$=[ == ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 6.01378E-154 A$=[ VVVV ] - F= 0 N= 6.01378E-154 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 A$=[ c ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 1.41118E+277 A$=[ - yyyy ] - F= 0 N= 1.41118E+277 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CVI_A_N.BAS b/bwbtest/NBS2X/F_CVI_A_N.BAS deleted file mode 100644 index 6deb92b..0000000 --- a/bwbtest/NBS2X/F_CVI_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/23/2017 20:04:47 -REM FILENAME: F_CVI_A_N.BAS -REM SYNTAX: N = CVI( A$ ) -REM UNIQUEID: F_CVI_A_N -REM FUNCTION: CVI -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CVI( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , "" -DATA 2 , 1 , 0 , " " -DATA 3 , 1 , 0 , "3" -DATA 4 , 1 , 0 , "z" -DATA 5 , 1 , 0 , " " -DATA 6 , 1 , 0 , " 3" -DATA 7 , 1 , 0 , " z" -DATA 8 , 1 , 0 , "3 " -DATA 9 , 1 , 0 , "z " -DATA 10 , 1 , 0 , " 3 " -DATA 11 , 1 , 0 , " z " -DATA 12 , 0 , 1.28007E+9 , " LLLL" -DATA 13 , 0 , 5.38976E+8 , " '' " -DATA 14 , 0 , 1.86438E+9 , " oo " -DATA 15 , 0 , 5.40029E+8 , " 00 " -DATA 16 , 0 , 1.54561E+9 , " \\\\ " -DATA 17 , 0 , 1.81904E+9 , " lllll " -DATA 18 , 0 , 5.38976E+8 , " uuuu " -DATA 19 , 0 , 5.43236E+8 , " a " -DATA 20 , 0 , 5.38976E+8 , " " -DATA 21 , 0 , 5.43713E+8 , " hh " -DATA 22 , 0 , 5.43695E+8 , " h " -DATA 23 , 1 , 0 , " )" -DATA 24 , 0 , 5.38976E+8 , " 5 " -DATA 25 , 0 , 5.40156E+8 , " 2 " -DATA 26 , 0 , 5.3898E+8 , " - " -DATA 27 , 1 , 0 , "dd " -DATA 28 , 0 , 1.95377E+9 , " tttt " -DATA 29 , 0 , 9.76888E+8 , " :::: " -DATA 30 , 0 , 1.59594E+9 , " ___ " -DATA 31 , 0 , 5.38976E+8 , " " -DATA 32 , 0 , 5.38976E+8 , " " -DATA 33 , 0 , 1.60009E+9 , " _____ " -DATA 34 , 1 , 0 , " S " -DATA 35 , 0 , 1.179E+9 , " FFFF " -DATA 36 , 0 , 5.38976E+8 , " kkk" -DATA 37 , 0 , 5.38976E+8 , " NNNN " -DATA 38 , 0 , 1.83082E+9 , " mmmm " -DATA 39 , 0 , 5.38976E+8 , " ,,,,, " -DATA 40 , 0 , 5.38988E+8 , "OO " -DATA 41 , 0 , 1.21006E+9 , " HHHH " -DATA 42 , 1 , 0 , " < " -DATA 43 , 0 , 1.78049E+9 , " j " -DATA 44 , 0 , 5.38976E+8 , " yyyy " -DATA 45 , 0 , 7.24247E+8 , " +++ " -DATA 46 , 1 , 0 , "o " -DATA 47 , 0 , 5.38976E+8 , " ((" -DATA 48 , 0 , 5.38976E+8 , " uu " -DATA 49 , 0 , 5.38976E+8 , " 00 " -DATA 50 , 0 , 5.38976E+8 , " HH " -DATA 51 , 0 , 5.38976E+8 , " " -DATA 52 , 0 , 5.41532E+8 , " G " -DATA 53 , 0 , 5.38976E+8 , " {{{{ " -DATA 54 , 0 , 5.38976E+8 , " ]]] " -DATA 55 , 1 , 0 , "CCC" -DATA 56 , 0 , 5.38976E+8 , " 44 " -DATA 57 , 0 , 5.38992E+8 , "^^ " -DATA 58 , 0 , 5.38976E+8 , " QQ " -DATA 59 , 0 , 5.38976E+8 , " FFFF " -DATA 60 , 0 , 5.38996E+8 , " n " -DATA 61 , 0 , 5.38976E+8 , " hh " -DATA 62 , 0 , 5.40358E+8 , "555 " -DATA 63 , 0 , 5.38976E+8 , " YYYY " -DATA 64 , 0 , 5.38976E+8 , " w " -DATA 65 , 0 , 1.29691E+9 , "MMMM " -DATA 66 , 0 , 1.24638E+9 , " JJJJ " -DATA 67 , 0 , 5.38976E+8 , " %% " -DATA 68 , 0 , 5.38976E+8 , " * " -DATA 69 , 0 , 5.38976E+8 , " @@@ " -DATA 70 , 1 , 0 , "I " -DATA 71 , 0 , 5.38976E+8 , " ss " -DATA 72 , 0 , 5.43564E+8 , " f " -DATA 73 , 0 , 1.14296E+9 , " D " -DATA 74 , 0 , 5.39174E+8 , "### " -DATA 75 , 0 , 5.38976E+8 , " ' " -DATA 76 , 0 , 1.68428E+9 , " dd " -DATA 77 , 0 , 5.42397E+8 , " TT " -DATA 78 , 0 , 1.98745E+9 , " vvv " -DATA 79 , 0 , 5.38976E+8 , " X " -DATA 80 , 0 , 5.38976E+8 , " % " -DATA 81 , 1 , 0 , " " -DATA 82 , 0 , 8.92679E+8 , " 5555 " -DATA 83 , 0 , 1.17901E+9 , "FFFF " -DATA 84 , 0 , 5.38976E+8 , " %% " -DATA 85 , 0 , 5.38976E+8 , " " -DATA 86 , 0 , 2.12219E+9 , " ~~~~ " -DATA 87 , 0 , 2.08248E+9 , " || " -DATA 88 , 0 , 5.38976E+8 , " SSS " -DATA 89 , 0 , 9.08075E+8 , " 6666 " -DATA 90 , 0 , 5.38976E+8 , " ww " -DATA 91 , 0 , 8.25303E+8 , " 1111 " -DATA 92 , 1 , 0 , " K " -DATA 93 , 0 , 1.95377E+9 , " ttttt " -DATA 94 , 0 , 1.3306E+9 , " OOOOO " -DATA 95 , 0 , 5.38986E+8 , " E " -DATA 96 , 0 , 1.34744E+9 , " PPPPP " -DATA 97 , 0 , 5.38976E+8 , " == " -DATA 98 , 0 , 1.4485E+9 , " VVVV " -DATA 99 , 0 , 5.38993E+8 , " c " -DATA 100 , 0 , 5.38976E+8 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CVI_A_N.run b/bwbtest/NBS2X/F_CVI_A_N.run deleted file mode 100644 index 8ce6db6..0000000 --- a/bwbtest/NBS2X/F_CVI_A_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 A$=[] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 A$=[3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 1 R= 0 A$=[z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 1 R= 0 A$=[ 3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 A$=[ z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 A$=[3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 A$=[z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 A$=[ 3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 A$=[ z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 1.28007E+9 A$=[ LLLL] - F= 0 N= 1.28007E+9 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 5.38976E+8 A$=[ '' ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 1.86438E+9 A$=[ oo ] - F= 0 N= 1.86438E+9 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 5.40029E+8 A$=[ 00 ] - F= 0 N= 5.40029E+8 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1.54561E+9 A$=[ \\\\ ] - F= 0 N= 1.54561E+9 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1.81904E+9 A$=[ lllll ] - F= 0 N= 1.81904E+9 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 5.38976E+8 A$=[ uuuu ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 5.43236E+8 A$=[ a ] - F= 0 N= 5.43236E+8 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 5.43713E+8 A$=[ hh ] - F= 0 N= 5.43713E+8 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 5.43695E+8 A$=[ h ] - F= 0 N= 5.43695E+8 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 A$=[ )] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 5.38976E+8 A$=[ 5 ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 5.40156E+8 A$=[ 2 ] - F= 0 N= 5.40156E+8 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 5.3898E+8 A$=[ - ] - F= 0 N= 5.3898E+8 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 A$=[dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 1.95377E+9 A$=[ tttt ] - F= 0 N= 1.95377E+9 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 9.76888E+8 A$=[ :::: ] - F= 0 N= 9.76888E+8 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1.59594E+9 A$=[ ___ ] - F= 0 N= 1.59594E+9 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 1.60009E+9 A$=[ _____ ] - F= 0 N= 1.60009E+9 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 A$=[ S ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 1.179E+9 A$=[ FFFF ] - F= 0 N= 1.179E+9 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 5.38976E+8 A$=[ kkk] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 5.38976E+8 A$=[ NNNN ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1.83082E+9 A$=[ mmmm ] - F= 0 N= 1.83082E+9 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 5.38976E+8 A$=[ ,,,,, ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 5.38988E+8 A$=[OO ] - F= 0 N= 5.38988E+8 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 1.21006E+9 A$=[ HHHH ] - F= 0 N= 1.21006E+9 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 A$=[ < ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 1.78049E+9 A$=[ j ] - F= 0 N= 1.78049E+9 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 5.38976E+8 A$=[ yyyy ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 7.24247E+8 A$=[ +++ ] - F= 0 N= 7.24247E+8 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 A$=[o ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 5.38976E+8 A$=[ ((] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 5.38976E+8 A$=[ uu ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 5.38976E+8 A$=[ 00 ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 5.38976E+8 A$=[ HH ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 5.41532E+8 A$=[ G ] - F= 0 N= 5.41532E+8 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 5.38976E+8 A$=[ {{{{ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 5.38976E+8 A$=[ ]]] ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 A$=[CCC] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5.38976E+8 A$=[ 44 ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 5.38992E+8 A$=[^^ ] - F= 0 N= 5.38992E+8 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 5.38976E+8 A$=[ QQ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 5.38976E+8 A$=[ FFFF ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 5.38996E+8 A$=[ n ] - F= 0 N= 5.38996E+8 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 5.38976E+8 A$=[ hh ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 5.40358E+8 A$=[555 ] - F= 0 N= 5.40358E+8 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 5.38976E+8 A$=[ YYYY ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 5.38976E+8 A$=[ w ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 1.29691E+9 A$=[MMMM ] - F= 0 N= 1.29691E+9 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 1.24638E+9 A$=[ JJJJ ] - F= 0 N= 1.24638E+9 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 5.38976E+8 A$=[ %% ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 5.38976E+8 A$=[ * ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 5.38976E+8 A$=[ @@@ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 A$=[I ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 5.38976E+8 A$=[ ss ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 5.43564E+8 A$=[ f ] - F= 0 N= 5.43564E+8 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 1.14296E+9 A$=[ D ] - F= 0 N= 1.14296E+9 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 5.39174E+8 A$=[### ] - F= 0 N= 5.39174E+8 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 5.38976E+8 A$=[ ' ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 1.68428E+9 A$=[ dd ] - F= 0 N= 1.68428E+9 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 5.42397E+8 A$=[ TT ] - F= 0 N= 5.42397E+8 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 1.98745E+9 A$=[ vvv ] - F= 0 N= 1.98745E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 5.38976E+8 A$=[ X ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 5.38976E+8 A$=[ % ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 8.92679E+8 A$=[ 5555 ] - F= 0 N= 8.92679E+8 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 1.17901E+9 A$=[FFFF ] - F= 0 N= 1.17901E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 5.38976E+8 A$=[ %% ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 2.12219E+9 A$=[ ~~~~ ] - F= 0 N= 2.12219E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 2.08248E+9 A$=[ || ] - F= 0 N= 2.08248E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 5.38976E+8 A$=[ SSS ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 9.08075E+8 A$=[ 6666 ] - F= 0 N= 9.08075E+8 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 5.38976E+8 A$=[ ww ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 8.25303E+8 A$=[ 1111 ] - F= 0 N= 8.25303E+8 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 A$=[ K ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 1.95377E+9 A$=[ ttttt ] - F= 0 N= 1.95377E+9 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.3306E+9 A$=[ OOOOO ] - F= 0 N= 1.3306E+9 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 5.38986E+8 A$=[ E ] - F= 0 N= 5.38986E+8 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 1.34744E+9 A$=[ PPPPP ] - F= 0 N= 1.34744E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 5.38976E+8 A$=[ == ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 1.4485E+9 A$=[ VVVV ] - F= 0 N= 1.4485E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 5.38993E+8 A$=[ c ] - F= 0 N= 5.38993E+8 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 5.38976E+8 A$=[ yyyy ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CVL_A_N.BAS b/bwbtest/NBS2X/F_CVL_A_N.BAS deleted file mode 100644 index b0bed95..0000000 --- a/bwbtest/NBS2X/F_CVL_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:20 -REM FILENAME: F_CVL_A_N.BAS -REM SYNTAX: N = CVL( A$ ) -REM UNIQUEID: F_CVL_A_N -REM FUNCTION: CVL -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CVL( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , "" -DATA 2 , 1 , 0 , " " -DATA 3 , 1 , 0 , "3" -DATA 4 , 1 , 0 , "z" -DATA 5 , 1 , 0 , " " -DATA 6 , 1 , 0 , " 3" -DATA 7 , 1 , 0 , " z" -DATA 8 , 1 , 0 , "3 " -DATA 9 , 1 , 0 , "z " -DATA 10 , 1 , 0 , " 3 " -DATA 11 , 1 , 0 , " z " -DATA 12 , 0 , 1.28007E+9 , " LLLL" -DATA 13 , 0 , 5.38976E+8 , " '' " -DATA 14 , 0 , 1.86438E+9 , " oo " -DATA 15 , 0 , 5.40029E+8 , " 00 " -DATA 16 , 0 , 1.54561E+9 , " \\\\ " -DATA 17 , 0 , 1.81904E+9 , " lllll " -DATA 18 , 0 , 5.38976E+8 , " uuuu " -DATA 19 , 0 , 5.43236E+8 , " a " -DATA 20 , 0 , 5.38976E+8 , " " -DATA 21 , 0 , 5.43713E+8 , " hh " -DATA 22 , 0 , 5.43695E+8 , " h " -DATA 23 , 1 , 0 , " )" -DATA 24 , 0 , 5.38976E+8 , " 5 " -DATA 25 , 0 , 5.40156E+8 , " 2 " -DATA 26 , 0 , 5.3898E+8 , " - " -DATA 27 , 1 , 0 , "dd " -DATA 28 , 0 , 1.95377E+9 , " tttt " -DATA 29 , 0 , 9.76888E+8 , " :::: " -DATA 30 , 0 , 1.59594E+9 , " ___ " -DATA 31 , 0 , 5.38976E+8 , " " -DATA 32 , 0 , 5.38976E+8 , " " -DATA 33 , 0 , 1.60009E+9 , " _____ " -DATA 34 , 1 , 0 , " S " -DATA 35 , 0 , 1.179E+9 , " FFFF " -DATA 36 , 0 , 5.38976E+8 , " kkk" -DATA 37 , 0 , 5.38976E+8 , " NNNN " -DATA 38 , 0 , 1.83082E+9 , " mmmm " -DATA 39 , 0 , 5.38976E+8 , " ,,,,, " -DATA 40 , 0 , 5.38988E+8 , "OO " -DATA 41 , 0 , 1.21006E+9 , " HHHH " -DATA 42 , 1 , 0 , " < " -DATA 43 , 0 , 1.78049E+9 , " j " -DATA 44 , 0 , 5.38976E+8 , " yyyy " -DATA 45 , 0 , 7.24247E+8 , " +++ " -DATA 46 , 1 , 0 , "o " -DATA 47 , 0 , 5.38976E+8 , " ((" -DATA 48 , 0 , 5.38976E+8 , " uu " -DATA 49 , 0 , 5.38976E+8 , " 00 " -DATA 50 , 0 , 5.38976E+8 , " HH " -DATA 51 , 0 , 5.38976E+8 , " " -DATA 52 , 0 , 5.41532E+8 , " G " -DATA 53 , 0 , 5.38976E+8 , " {{{{ " -DATA 54 , 0 , 5.38976E+8 , " ]]] " -DATA 55 , 1 , 0 , "CCC" -DATA 56 , 0 , 5.38976E+8 , " 44 " -DATA 57 , 0 , 5.38992E+8 , "^^ " -DATA 58 , 0 , 5.38976E+8 , " QQ " -DATA 59 , 0 , 5.38976E+8 , " FFFF " -DATA 60 , 0 , 5.38996E+8 , " n " -DATA 61 , 0 , 5.38976E+8 , " hh " -DATA 62 , 0 , 5.40358E+8 , "555 " -DATA 63 , 0 , 5.38976E+8 , " YYYY " -DATA 64 , 0 , 5.38976E+8 , " w " -DATA 65 , 0 , 1.29691E+9 , "MMMM " -DATA 66 , 0 , 1.24638E+9 , " JJJJ " -DATA 67 , 0 , 5.38976E+8 , " %% " -DATA 68 , 0 , 5.38976E+8 , " * " -DATA 69 , 0 , 5.38976E+8 , " @@@ " -DATA 70 , 1 , 0 , "I " -DATA 71 , 0 , 5.38976E+8 , " ss " -DATA 72 , 0 , 5.43564E+8 , " f " -DATA 73 , 0 , 1.14296E+9 , " D " -DATA 74 , 0 , 5.39174E+8 , "### " -DATA 75 , 0 , 5.38976E+8 , " ' " -DATA 76 , 0 , 1.68428E+9 , " dd " -DATA 77 , 0 , 5.42397E+8 , " TT " -DATA 78 , 0 , 1.98745E+9 , " vvv " -DATA 79 , 0 , 5.38976E+8 , " X " -DATA 80 , 0 , 5.38976E+8 , " % " -DATA 81 , 1 , 0 , " " -DATA 82 , 0 , 8.92679E+8 , " 5555 " -DATA 83 , 0 , 1.17901E+9 , "FFFF " -DATA 84 , 0 , 5.38976E+8 , " %% " -DATA 85 , 0 , 5.38976E+8 , " " -DATA 86 , 0 , 2.12219E+9 , " ~~~~ " -DATA 87 , 0 , 2.08248E+9 , " || " -DATA 88 , 0 , 5.38976E+8 , " SSS " -DATA 89 , 0 , 9.08075E+8 , " 6666 " -DATA 90 , 0 , 5.38976E+8 , " ww " -DATA 91 , 0 , 8.25303E+8 , " 1111 " -DATA 92 , 1 , 0 , " K " -DATA 93 , 0 , 1.95377E+9 , " ttttt " -DATA 94 , 0 , 1.3306E+9 , " OOOOO " -DATA 95 , 0 , 5.38986E+8 , " E " -DATA 96 , 0 , 1.34744E+9 , " PPPPP " -DATA 97 , 0 , 5.38976E+8 , " == " -DATA 98 , 0 , 1.4485E+9 , " VVVV " -DATA 99 , 0 , 5.38993E+8 , " c " -DATA 100 , 0 , 5.38976E+8 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CVL_A_N.run b/bwbtest/NBS2X/F_CVL_A_N.run deleted file mode 100644 index 8ce6db6..0000000 --- a/bwbtest/NBS2X/F_CVL_A_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 A$=[] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 A$=[3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 1 R= 0 A$=[z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 1 R= 0 A$=[ 3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 A$=[ z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 A$=[3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 A$=[z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 A$=[ 3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 A$=[ z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 1.28007E+9 A$=[ LLLL] - F= 0 N= 1.28007E+9 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 5.38976E+8 A$=[ '' ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 1.86438E+9 A$=[ oo ] - F= 0 N= 1.86438E+9 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 5.40029E+8 A$=[ 00 ] - F= 0 N= 5.40029E+8 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1.54561E+9 A$=[ \\\\ ] - F= 0 N= 1.54561E+9 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1.81904E+9 A$=[ lllll ] - F= 0 N= 1.81904E+9 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 5.38976E+8 A$=[ uuuu ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 5.43236E+8 A$=[ a ] - F= 0 N= 5.43236E+8 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 5.43713E+8 A$=[ hh ] - F= 0 N= 5.43713E+8 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 5.43695E+8 A$=[ h ] - F= 0 N= 5.43695E+8 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 A$=[ )] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 5.38976E+8 A$=[ 5 ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 5.40156E+8 A$=[ 2 ] - F= 0 N= 5.40156E+8 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 5.3898E+8 A$=[ - ] - F= 0 N= 5.3898E+8 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 A$=[dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 1.95377E+9 A$=[ tttt ] - F= 0 N= 1.95377E+9 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 9.76888E+8 A$=[ :::: ] - F= 0 N= 9.76888E+8 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1.59594E+9 A$=[ ___ ] - F= 0 N= 1.59594E+9 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 1.60009E+9 A$=[ _____ ] - F= 0 N= 1.60009E+9 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 A$=[ S ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 1.179E+9 A$=[ FFFF ] - F= 0 N= 1.179E+9 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 5.38976E+8 A$=[ kkk] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 5.38976E+8 A$=[ NNNN ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1.83082E+9 A$=[ mmmm ] - F= 0 N= 1.83082E+9 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 5.38976E+8 A$=[ ,,,,, ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 5.38988E+8 A$=[OO ] - F= 0 N= 5.38988E+8 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 1.21006E+9 A$=[ HHHH ] - F= 0 N= 1.21006E+9 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 A$=[ < ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 1.78049E+9 A$=[ j ] - F= 0 N= 1.78049E+9 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 5.38976E+8 A$=[ yyyy ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 7.24247E+8 A$=[ +++ ] - F= 0 N= 7.24247E+8 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 A$=[o ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 5.38976E+8 A$=[ ((] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 5.38976E+8 A$=[ uu ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 5.38976E+8 A$=[ 00 ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 5.38976E+8 A$=[ HH ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 5.41532E+8 A$=[ G ] - F= 0 N= 5.41532E+8 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 5.38976E+8 A$=[ {{{{ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 5.38976E+8 A$=[ ]]] ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 A$=[CCC] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5.38976E+8 A$=[ 44 ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 5.38992E+8 A$=[^^ ] - F= 0 N= 5.38992E+8 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 5.38976E+8 A$=[ QQ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 5.38976E+8 A$=[ FFFF ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 5.38996E+8 A$=[ n ] - F= 0 N= 5.38996E+8 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 5.38976E+8 A$=[ hh ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 5.40358E+8 A$=[555 ] - F= 0 N= 5.40358E+8 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 5.38976E+8 A$=[ YYYY ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 5.38976E+8 A$=[ w ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 1.29691E+9 A$=[MMMM ] - F= 0 N= 1.29691E+9 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 1.24638E+9 A$=[ JJJJ ] - F= 0 N= 1.24638E+9 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 5.38976E+8 A$=[ %% ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 5.38976E+8 A$=[ * ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 5.38976E+8 A$=[ @@@ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 A$=[I ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 5.38976E+8 A$=[ ss ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 5.43564E+8 A$=[ f ] - F= 0 N= 5.43564E+8 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 1.14296E+9 A$=[ D ] - F= 0 N= 1.14296E+9 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 5.39174E+8 A$=[### ] - F= 0 N= 5.39174E+8 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 5.38976E+8 A$=[ ' ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 1.68428E+9 A$=[ dd ] - F= 0 N= 1.68428E+9 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 5.42397E+8 A$=[ TT ] - F= 0 N= 5.42397E+8 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 1.98745E+9 A$=[ vvv ] - F= 0 N= 1.98745E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 5.38976E+8 A$=[ X ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 5.38976E+8 A$=[ % ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 8.92679E+8 A$=[ 5555 ] - F= 0 N= 8.92679E+8 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 1.17901E+9 A$=[FFFF ] - F= 0 N= 1.17901E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 5.38976E+8 A$=[ %% ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 5.38976E+8 A$=[ ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 2.12219E+9 A$=[ ~~~~ ] - F= 0 N= 2.12219E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 2.08248E+9 A$=[ || ] - F= 0 N= 2.08248E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 5.38976E+8 A$=[ SSS ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 9.08075E+8 A$=[ 6666 ] - F= 0 N= 9.08075E+8 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 5.38976E+8 A$=[ ww ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 8.25303E+8 A$=[ 1111 ] - F= 0 N= 8.25303E+8 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 A$=[ K ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 1.95377E+9 A$=[ ttttt ] - F= 0 N= 1.95377E+9 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.3306E+9 A$=[ OOOOO ] - F= 0 N= 1.3306E+9 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 5.38986E+8 A$=[ E ] - F= 0 N= 5.38986E+8 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 1.34744E+9 A$=[ PPPPP ] - F= 0 N= 1.34744E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 5.38976E+8 A$=[ == ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 1.4485E+9 A$=[ VVVV ] - F= 0 N= 1.4485E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 5.38993E+8 A$=[ c ] - F= 0 N= 5.38993E+8 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 5.38976E+8 A$=[ yyyy ] - F= 0 N= 5.38976E+8 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_CVS_A_N.BAS b/bwbtest/NBS2X/F_CVS_A_N.BAS deleted file mode 100644 index fb2561e..0000000 --- a/bwbtest/NBS2X/F_CVS_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:20 -REM FILENAME: F_CVS_A_N.BAS -REM SYNTAX: N = CVS( A$ ) -REM UNIQUEID: F_CVS_A_N -REM FUNCTION: CVS -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = CVS( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , "" -DATA 2 , 1 , 0 , " " -DATA 3 , 1 , 0 , "3" -DATA 4 , 1 , 0 , "z" -DATA 5 , 1 , 0 , " " -DATA 6 , 1 , 0 , " 3" -DATA 7 , 1 , 0 , " z" -DATA 8 , 1 , 0 , "3 " -DATA 9 , 1 , 0 , "z " -DATA 10 , 1 , 0 , " 3 " -DATA 11 , 1 , 0 , " z " -DATA 12 , 0 , 5.35553E+7 , " LLLL" -DATA 13 , 0 , 1.35632E-19 , " '' " -DATA 14 , 0 , 4.95564E+28 , " oo " -DATA 15 , 0 , 1.49237E-19 , " 00 " -DATA 16 , 0 , 1.80285E+17 , " \\\\ " -DATA 17 , 0 , 1.14327E+27 , " lllll " -DATA 18 , 0 , 1.35632E-19 , " uuuu " -DATA 19 , 0 , 1.90689E-19 , " a " -DATA 20 , 0 , 1.35632E-19 , " " -DATA 21 , 0 , 1.96856E-19 , " hh " -DATA 22 , 0 , 1.96618E-19 , " h " -DATA 23 , 1 , 0 , " )" -DATA 24 , 0 , 1.35632E-19 , " 5 " -DATA 25 , 0 , 1.50878E-19 , " 2 " -DATA 26 , 0 , 1.35675E-19 , " - " -DATA 27 , 1 , 0 , "dd " -DATA 28 , 0 , 7.73665E+31 , " tttt " -DATA 29 , 0 , 7.10012E-4 , " :::: " -DATA 30 , 0 , 1.15383E+19 , " ___ " -DATA 31 , 0 , 1.35632E-19 , " " -DATA 32 , 0 , 1.35632E-19 , " " -DATA 33 , 0 , 1.60956E+19 , " _____ " -DATA 34 , 1 , 0 , " S " -DATA 35 , 0 , 12680. , " FFFF " -DATA 36 , 0 , 1.35632E-19 , " kkk" -DATA 37 , 0 , 1.35632E-19 , " NNNN " -DATA 38 , 0 , 3.09728E+27 , " mmmm " -DATA 39 , 0 , 1.35632E-19 , " ,,,,, " -DATA 40 , 0 , 1.35788E-19 , "OO " -DATA 41 , 0 , 163968. , " HHHH " -DATA 42 , 1 , 0 , " < " -DATA 43 , 0 , 4.8395E+25 , " j " -DATA 44 , 0 , 1.35632E-19 , " yyyy " -DATA 45 , 0 , 6.0796E-13 , " +++ " -DATA 46 , 1 , 0 , "o " -DATA 47 , 0 , 1.35632E-19 , " ((" -DATA 48 , 0 , 1.35632E-19 , " uu " -DATA 49 , 0 , 1.35632E-19 , " 00 " -DATA 50 , 0 , 1.35632E-19 , " HH " -DATA 51 , 0 , 1.35632E-19 , " " -DATA 52 , 0 , 1.68666E-19 , " G " -DATA 53 , 0 , 1.35632E-19 , " {{{{ " -DATA 54 , 0 , 1.35632E-19 , " ]]] " -DATA 55 , 1 , 0 , "CCC" -DATA 56 , 0 , 1.35632E-19 , " 44 " -DATA 57 , 0 , 1.35838E-19 , "^^ " -DATA 58 , 0 , 1.35632E-19 , " QQ " -DATA 59 , 0 , 1.35632E-19 , " FFFF " -DATA 60 , 0 , 1.3589E-19 , " n " -DATA 61 , 0 , 1.35632E-19 , " hh " -DATA 62 , 0 , 1.53489E-19 , "555 " -DATA 63 , 0 , 1.35632E-19 , " YYYY " -DATA 64 , 0 , 1.35632E-19 , " w " -DATA 65 , 0 , 2.15275E+8 , "MMMM " -DATA 66 , 0 , 3.31431E+6 , " JJJJ " -DATA 67 , 0 , 1.35632E-19 , " %% " -DATA 68 , 0 , 1.35632E-19 , " * " -DATA 69 , 0 , 1.35632E-19 , " @@@ " -DATA 70 , 1 , 0 , "I " -DATA 71 , 0 , 1.35632E-19 , " ss " -DATA 72 , 0 , 1.94924E-19 , " f " -DATA 73 , 0 , 640.502 , " D " -DATA 74 , 0 , 1.38183E-19 , "### " -DATA 75 , 0 , 1.35632E-19 , " ' " -DATA 76 , 0 , 1.68327E+22 , " dd " -DATA 77 , 0 , 1.79849E-19 , " TT " -DATA 78 , 0 , 1.248E+33 , " vvv " -DATA 79 , 0 , 1.35632E-19 , " X " -DATA 80 , 0 , 1.35632E-19 , " % " -DATA 81 , 1 , 0 , " " -DATA 82 , 0 , 6.75051E-7 , " 5555 " -DATA 83 , 0 , 12689.6 , "FFFF " -DATA 84 , 0 , 1.35632E-19 , " %% " -DATA 85 , 0 , 1.35632E-19 , " " -DATA 86 , 0 , 8.44477E+37 , " ~~~~ " -DATA 87 , 0 , 3.32568E+36 , " || " -DATA 88 , 0 , 1.35632E-19 , " SSS " -DATA 89 , 0 , 2.38606E-6 , " 6666 " -DATA 90 , 0 , 1.35632E-19 , " ww " -DATA 91 , 0 , 2.57752E-9 , " 1111 " -DATA 92 , 1 , 0 , " K " -DATA 93 , 0 , 7.73665E+31 , " ttttt " -DATA 94 , 0 , 3.47807E+9 , " OOOOO " -DATA 95 , 0 , 1.35754E-19 , " E " -DATA 96 , 0 , 1.39796E+10 , " PPPPP " -DATA 97 , 0 , 1.35632E-19 , " == " -DATA 98 , 0 , 5.89163E+13 , " VVVV " -DATA 99 , 0 , 1.35853E-19 , " c " -DATA 100 , 0 , 1.35632E-19 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_CVS_A_N.run b/bwbtest/NBS2X/F_CVS_A_N.run deleted file mode 100644 index c05bbf1..0000000 --- a/bwbtest/NBS2X/F_CVS_A_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 A$=[] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 A$=[3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 1 R= 0 A$=[z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 1 R= 0 A$=[ 3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 A$=[ z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 A$=[3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 A$=[z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 A$=[ 3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 A$=[ z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 5.35553E+7 A$=[ LLLL] - F= 0 N= 5.35553E+7 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 1.35632E-19 A$=[ '' ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 4.95564E+28 A$=[ oo ] - F= 0 N= 4.95564E+28 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 1.49237E-19 A$=[ 00 ] - F= 0 N= 1.49237E-19 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1.80285E+17 A$=[ \\\\ ] - F= 0 N= 1.80285E+17 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1.14327E+27 A$=[ lllll ] - F= 0 N= 1.14327E+27 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 1.35632E-19 A$=[ uuuu ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 1.90689E-19 A$=[ a ] - F= 0 N= 1.90689E-19 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 1.35632E-19 A$=[ ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 1.96856E-19 A$=[ hh ] - F= 0 N= 1.96856E-19 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 1.96618E-19 A$=[ h ] - F= 0 N= 1.96618E-19 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 A$=[ )] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 1.35632E-19 A$=[ 5 ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 1.50878E-19 A$=[ 2 ] - F= 0 N= 1.50878E-19 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 1.35675E-19 A$=[ - ] - F= 0 N= 1.35675E-19 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 A$=[dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 7.73665E+31 A$=[ tttt ] - F= 0 N= 7.73665E+31 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 7.10012E-4 A$=[ :::: ] - F= 0 N= 7.10012E-4 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1.15383E+19 A$=[ ___ ] - F= 0 N= 1.15383E+19 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 1.35632E-19 A$=[ ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 1.35632E-19 A$=[ ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 1.60956E+19 A$=[ _____ ] - F= 0 N= 1.60956E+19 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 A$=[ S ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 12680 A$=[ FFFF ] - F= 0 N= 12680. -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 1.35632E-19 A$=[ kkk] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1.35632E-19 A$=[ NNNN ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 3.09728E+27 A$=[ mmmm ] - F= 0 N= 3.09728E+27 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 1.35632E-19 A$=[ ,,,,, ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 1.35788E-19 A$=[OO ] - F= 0 N= 1.35788E-19 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 163968 A$=[ HHHH ] - F= 0 N= 163968. -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 A$=[ < ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 4.8395E+25 A$=[ j ] - F= 0 N= 4.8395E+25 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 1.35632E-19 A$=[ yyyy ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 6.0796E-13 A$=[ +++ ] - F= 0 N= 6.0796E-13 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 A$=[o ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 1.35632E-19 A$=[ ((] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 1.35632E-19 A$=[ uu ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 1.35632E-19 A$=[ 00 ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 1.35632E-19 A$=[ HH ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 1.35632E-19 A$=[ ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 1.68666E-19 A$=[ G ] - F= 0 N= 1.68666E-19 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 1.35632E-19 A$=[ {{{{ ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 1.35632E-19 A$=[ ]]] ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 A$=[CCC] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 1.35632E-19 A$=[ 44 ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 1.35838E-19 A$=[^^ ] - F= 0 N= 1.35838E-19 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 1.35632E-19 A$=[ QQ ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 1.35632E-19 A$=[ FFFF ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 1.3589E-19 A$=[ n ] - F= 0 N= 1.3589E-19 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 1.35632E-19 A$=[ hh ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 1.53489E-19 A$=[555 ] - F= 0 N= 1.53489E-19 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 1.35632E-19 A$=[ YYYY ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 1.35632E-19 A$=[ w ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 2.15275E+8 A$=[MMMM ] - F= 0 N= 2.15275E+8 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 3.31431E+6 A$=[ JJJJ ] - F= 0 N= 3.31431E+6 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 1.35632E-19 A$=[ %% ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 1.35632E-19 A$=[ * ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 1.35632E-19 A$=[ @@@ ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 A$=[I ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 1.35632E-19 A$=[ ss ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 1.94924E-19 A$=[ f ] - F= 0 N= 1.94924E-19 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 640.502 A$=[ D ] - F= 0 N= 640.502 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 1.38183E-19 A$=[### ] - F= 0 N= 1.38183E-19 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 1.35632E-19 A$=[ ' ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 1.68327E+22 A$=[ dd ] - F= 0 N= 1.68327E+22 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 1.79849E-19 A$=[ TT ] - F= 0 N= 1.79849E-19 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 1.248E+33 A$=[ vvv ] - F= 0 N= 1.248E+33 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 1.35632E-19 A$=[ X ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 1.35632E-19 A$=[ % ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 6.75051E-7 A$=[ 5555 ] - F= 0 N= 6.75051E-7 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 12689.6 A$=[FFFF ] - F= 0 N= 12689.6 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.35632E-19 A$=[ %% ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 1.35632E-19 A$=[ ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 8.44477E+37 A$=[ ~~~~ ] - F= 0 N= 8.44477E+37 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 3.32568E+36 A$=[ || ] - F= 0 N= 3.32568E+36 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 1.35632E-19 A$=[ SSS ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 2.38606E-6 A$=[ 6666 ] - F= 0 N= 2.38606E-6 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 1.35632E-19 A$=[ ww ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 2.57752E-9 A$=[ 1111 ] - F= 0 N= 2.57752E-9 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 A$=[ K ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 7.73665E+31 A$=[ ttttt ] - F= 0 N= 7.73665E+31 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 3.47807E+9 A$=[ OOOOO ] - F= 0 N= 3.47807E+9 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 1.35754E-19 A$=[ E ] - F= 0 N= 1.35754E-19 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 1.39796E+10 A$=[ PPPPP ] - F= 0 N= 1.39796E+10 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 1.35632E-19 A$=[ == ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 5.89163E+13 A$=[ VVVV ] - F= 0 N= 5.89163E+13 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 1.35853E-19 A$=[ c ] - F= 0 N= 1.35853E-19 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 1.35632E-19 A$=[ - yyyy ] - F= 0 N= 1.35632E-19 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_DEG_X_N.BAS b/bwbtest/NBS2X/F_DEG_X_N.BAS deleted file mode 100644 index 4b62ab6..0000000 --- a/bwbtest/NBS2X/F_DEG_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:20 -REM FILENAME: F_DEG_X_N.BAS -REM SYNTAX: N = DEG( X ) -REM UNIQUEID: F_DEG_X_N -REM FUNCTION: DEG -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = DEG( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 57.2958 , 1 -DATA 3 , 0 , -57.2958 , -1 -DATA 4 , 0 , 22.9183 , .4 -DATA 5 , 0 , -22.9183 , -.4 -DATA 6 , 0 , 34.3775 , .6 -DATA 7 , 0 , -34.3775 , -.6 -DATA 8 , 0 , 14553.1 , 254 -DATA 9 , 0 , 14610.4 , 255 -DATA 10 , 0 , 14667.7 , 256 -DATA 11 , 0 , 1.83346E+6 , 32000 -DATA 12 , 0 , -13.0193 , -.227229 -DATA 13 , 0 , -13.7027 , -.239157 -DATA 14 , 0 , -12.2376 , -.213586 -DATA 15 , 0 , 15.7377 , .274675 -DATA 16 , 0 , 9.72688 , .169766 -DATA 17 , 0 , 18.2639 , .318766 -DATA 18 , 0 , 1.18406 , 2.06658E-2 -DATA 19 , 0 , 10.7863 , .188257 -DATA 20 , 0 , -15.9017 , -.277537 -DATA 21 , 0 , -27.5766 , -.481303 -DATA 22 , 0 , 24.9557 , .43556 -DATA 23 , 0 , -12.0877 , -.210971 -DATA 24 , 0 , -26.082 , -.455216 -DATA 25 , 0 , -6354.5 , -110.907 -DATA 26 , 0 , 6052.27 , 105.632 -DATA 27 , 0 , -6551.26 , -114.341 -DATA 28 , 0 , 6285.69 , 109.706 -DATA 29 , 0 , 6256.58 , 109.198 -DATA 30 , 0 , 4920.41 , 85.8773 -DATA 31 , 0 , -3343.48 , -58.3548 -DATA 32 , 0 , 1698.23 , 29.6397 -DATA 33 , 0 , -6208.57 , -108.36 -DATA 34 , 0 , -2665.39 , -46.5199 -DATA 35 , 0 , 6446.98 , 112.521 -DATA 36 , 0 , 2602.09 , 45.4151 -DATA 37 , 0 , 5794.26 , 101.129 -DATA 38 , 0 , 3726.94 , 65.0473 -DATA 39 , 0 , 2773.18 , 48.4012 -DATA 40 , 0 , 7006.93 , 122.294 -DATA 41 , 0 , -3214.83 , -56.1094 -DATA 42 , 0 , -6937.77 , -121.087 -DATA 43 , 0 , -7077. , -123.517 -DATA 44 , 0 , -5593.79 , -97.6301 -DATA 45 , 0 , -3666.94 , -64.0001 -DATA 46 , 0 , -1471.86 , -25.6888 -DATA 47 , 0 , 848.012 , 14.8006 -DATA 48 , 0 , -3500.07 , -61.0877 -DATA 49 , 0 , -3818.08 , -66.6381 -DATA 50 , 0 , -313780. , -5476.5 -DATA 51 , 0 , -1.21526E+6 , -21210.3 -DATA 52 , 0 , -1.64767E+6 , -28757.2 -DATA 53 , 0 , -1.64623E+6 , -28732.2 -DATA 54 , 0 , 729392. , 12730.3 -DATA 55 , 0 , -104891. , -1830.69 -DATA 56 , 0 , 314347. , 5486.39 -DATA 57 , 0 , 1.28376E+6 , 22405.9 -DATA 58 , 0 , 1.76527E+6 , 30809.8 -DATA 59 , 0 , -1.6576E+6 , -28930.6 -DATA 60 , 0 , -344607. , -6014.53 -DATA 61 , 0 , 997783. , 17414.6 -DATA 62 , 0 , -603800. , -10538.3 -DATA 63 , 0 , -1.00476E+6 , -17536.3 -DATA 64 , 0 , -507447. , -8856.62 -DATA 65 , 0 , -294507. , -5140.12 -DATA 66 , 0 , -492475. , -8595.31 -DATA 67 , 0 , -193824. , -3382.87 -DATA 68 , 0 , -286597. , -5002.07 -DATA 69 , 0 , -332357. , -5800.72 -DATA 70 , 0 , 1.70091E+6 , 29686.4 -DATA 71 , 0 , 147307. , 2571. -DATA 72 , 0 , 1.78138E+6 , 31091. -DATA 73 , 0 , 849066. , 14819. -DATA 74 , 0 , 217203. , 3790.9 -DATA 75 , 0 , -2.46263E+11 , -4.2981E+9 -DATA 76 , 0 , -4.04195E+10 , -7.05453E+8 -DATA 77 , 0 , -1.77719E+11 , -3.10179E+9 -DATA 78 , 0 , -2.78549E+11 , -4.86159E+9 -DATA 79 , 0 , -4.9441E+10 , -8.62908E+8 -DATA 80 , 0 , -1.95384E+11 , -3.4101E+9 -DATA 81 , 0 , 1.9417E+11 , 3.3889E+9 -DATA 82 , 0 , 1.4314E+11 , 2.49826E+9 -DATA 83 , 0 , 1.34594E+11 , 2.3491E+9 -DATA 84 , 0 , 1.11581E+10 , 1.94745E+8 -DATA 85 , 0 , 1.1601E+11 , 2.02475E+9 -DATA 86 , 0 , -1.29917E+11 , -2.26748E+9 -DATA 87 , 0 , -1.20657E+11 , -2.10587E+9 -DATA 88 , 0 , 2.42696E+11 , 4.23585E+9 -DATA 89 , 0 , -1.52707E+11 , -2.66524E+9 -DATA 90 , 0 , 2.29786E+11 , 4.01052E+9 -DATA 91 , 0 , -2.79553E+11 , -4.87912E+9 -DATA 92 , 0 , 1.01732E+11 , 1.77556E+9 -DATA 93 , 0 , 1.64843E+10 , 2.87705E+8 -DATA 94 , 0 , 1.14578E+10 , 1.99977E+8 -DATA 95 , 0 , -1.94772E+11 , -3.39941E+9 -DATA 96 , 0 , -2.0003E+11 , -3.49119E+9 -DATA 97 , 0 , -1.64052E+11 , -2.86324E+9 -DATA 98 , 0 , 2.40882E+11 , 4.20418E+9 -DATA 99 , 0 , -1.80585E+11 , -3.1518E+9 -DATA 100 , 0 , 2.63913E+11 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_DEG_X_N.run b/bwbtest/NBS2X/F_DEG_X_N.run deleted file mode 100644 index f6e85c6..0000000 --- a/bwbtest/NBS2X/F_DEG_X_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 57.2958 X= 1 - F= 0 N= 57.2958 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-57.2958 X=-1 - F= 0 N=-57.2958 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 22.9183 X= .4 - F= 0 N= 22.9183 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-22.9183 X=-.4 - F= 0 N=-22.9183 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 34.3775 X= .6 - F= 0 N= 34.3775 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-34.3775 X=-.6 - F= 0 N=-34.3775 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 14553.1 X= 254 - F= 0 N= 14553.1 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 14610.4 X= 255 - F= 0 N= 14610.4 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 14667.7 X= 256 - F= 0 N= 14667.7 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 1.83346E+6 X= 32000 - F= 0 N= 1.83346E+6 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-13.0193 X=-.227229 - F= 0 N=-13.0193 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-13.7027 X=-.239157 - F= 0 N=-13.7027 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-12.2376 X=-.213586 - F= 0 N=-12.2376 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 15.7377 X= .274675 - F= 0 N= 15.7377 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 9.72688 X= .169766 - F= 0 N= 9.72688 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 18.2639 X= .318766 - F= 0 N= 18.2639 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 1.18406 X= 2.06658E-2 - F= 0 N= 1.18406 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 10.7863 X= .188257 - F= 0 N= 10.7863 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-15.9017 X=-.277537 - F= 0 N=-15.9017 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-27.5766 X=-.481303 - F= 0 N=-27.5766 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 24.9557 X= .43556 - F= 0 N= 24.9557 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-12.0877 X=-.210971 - F= 0 N=-12.0877 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-26.082 X=-.455216 - F= 0 N=-26.082 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-6354.5 X=-110.907 - F= 0 N=-6354.5 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 6052.27 X= 105.632 - F= 0 N= 6052.27 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-6551.26 X=-114.341 - F= 0 N=-6551.26 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 6285.69 X= 109.706 - F= 0 N= 6285.69 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 6256.58 X= 109.198 - F= 0 N= 6256.58 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 4920.41 X= 85.8773 - F= 0 N= 4920.41 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-3343.48 X=-58.3548 - F= 0 N=-3343.48 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 1698.23 X= 29.6397 - F= 0 N= 1698.23 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-6208.57 X=-108.36 - F= 0 N=-6208.57 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-2665.39 X=-46.5199 - F= 0 N=-2665.39 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 6446.98 X= 112.521 - F= 0 N= 6446.98 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 2602.09 X= 45.4151 - F= 0 N= 2602.09 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 5794.26 X= 101.129 - F= 0 N= 5794.26 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 3726.94 X= 65.0473 - F= 0 N= 3726.94 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 2773.18 X= 48.4012 - F= 0 N= 2773.18 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 7006.93 X= 122.294 - F= 0 N= 7006.93 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-3214.83 X=-56.1094 - F= 0 N=-3214.83 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-6937.77 X=-121.087 - F= 0 N=-6937.77 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-7077 X=-123.517 - F= 0 N=-7077. -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-5593.79 X=-97.6301 - F= 0 N=-5593.79 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-3666.94 X=-64.0001 - F= 0 N=-3666.94 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-1471.86 X=-25.6888 - F= 0 N=-1471.86 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 848.012 X= 14.8006 - F= 0 N= 848.012 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-3500.07 X=-61.0877 - F= 0 N=-3500.07 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-3818.08 X=-66.6381 - F= 0 N=-3818.08 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-313780 X=-5476.5 - F= 0 N=-313780. -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-1.21526E+6 X=-21210.3 - F= 0 N=-1.21526E+6 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-1.64767E+6 X=-28757.2 - F= 0 N=-1.64767E+6 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-1.64623E+6 X=-28732.2 - F= 0 N=-1.64623E+6 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 729392 X= 12730.3 - F= 0 N= 729392. -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-104891 X=-1830.69 - F= 0 N=-104891. -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 314347 X= 5486.39 - F= 0 N= 314347. -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 1.28376E+6 X= 22405.9 - F= 0 N= 1.28376E+6 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 1.76527E+6 X= 30809.8 - F= 0 N= 1.76527E+6 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-1.6576E+6 X=-28930.6 - F= 0 N=-1.6576E+6 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-344607 X=-6014.53 - F= 0 N=-344607. -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 997783 X= 17414.6 - F= 0 N= 997783. -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-603800 X=-10538.3 - F= 0 N=-603800. -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-1.00476E+6 X=-17536.3 - F= 0 N=-1.00476E+6 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-507447 X=-8856.62 - F= 0 N=-507447. -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-294507 X=-5140.12 - F= 0 N=-294507. -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-492475 X=-8595.31 - F= 0 N=-492475. -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-193824 X=-3382.87 - F= 0 N=-193824. -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-286597 X=-5002.07 - F= 0 N=-286597. -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-332357 X=-5800.72 - F= 0 N=-332357. -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 1.70091E+6 X= 29686.4 - F= 0 N= 1.70091E+6 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 147307 X= 2571 - F= 0 N= 147307. -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 1.78138E+6 X= 31091 - F= 0 N= 1.78138E+6 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 849066 X= 14819 - F= 0 N= 849066. -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 217203 X= 3790.9 - F= 0 N= 217203. -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-2.46263E+11 X=-4.2981E+9 - F= 0 N=-2.46263E+11 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-4.04195E+10 X=-7.05453E+8 - F= 0 N=-4.04195E+10 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-1.77719E+11 X=-3.10179E+9 - F= 0 N=-1.77719E+11 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-2.78549E+11 X=-4.86159E+9 - F= 0 N=-2.78549E+11 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-4.9441E+10 X=-8.62908E+8 - F= 0 N=-4.9441E+10 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-1.95384E+11 X=-3.4101E+9 - F= 0 N=-1.95384E+11 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 1.9417E+11 X= 3.3889E+9 - F= 0 N= 1.9417E+11 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 1.4314E+11 X= 2.49826E+9 - F= 0 N= 1.4314E+11 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 1.34594E+11 X= 2.3491E+9 - F= 0 N= 1.34594E+11 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.11581E+10 X= 1.94745E+8 - F= 0 N= 1.11581E+10 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 1.1601E+11 X= 2.02475E+9 - F= 0 N= 1.1601E+11 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-1.29917E+11 X=-2.26748E+9 - F= 0 N=-1.29917E+11 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-1.20657E+11 X=-2.10587E+9 - F= 0 N=-1.20657E+11 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 2.42696E+11 X= 4.23585E+9 - F= 0 N= 2.42696E+11 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-1.52707E+11 X=-2.66524E+9 - F= 0 N=-1.52707E+11 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 2.29786E+11 X= 4.01052E+9 - F= 0 N= 2.29786E+11 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-2.79553E+11 X=-4.87912E+9 - F= 0 N=-2.79553E+11 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.01732E+11 X= 1.77556E+9 - F= 0 N= 1.01732E+11 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 1.64843E+10 X= 2.87705E+8 - F= 0 N= 1.64843E+10 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.14578E+10 X= 1.99977E+8 - F= 0 N= 1.14578E+10 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-1.94772E+11 X=-3.39941E+9 - F= 0 N=-1.94772E+11 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-2.0003E+11 X=-3.49119E+9 - F= 0 N=-2.0003E+11 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-1.64052E+11 X=-2.86324E+9 - F= 0 N=-1.64052E+11 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 2.40882E+11 X= 4.20418E+9 - F= 0 N= 2.40882E+11 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-1.80585E+11 X=-3.1518E+9 - F= 0 N=-1.80585E+11 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 2.63913E+11 X= - 4.60615E+9 - F= 0 N= 2.63913E+11 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_EOF_X_N.run b/bwbtest/NBS2X/F_EOF_X_N.run deleted file mode 100644 index c692128..0000000 --- a/bwbtest/NBS2X/F_EOF_X_N.run +++ /dev/null @@ -1,8 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 0 X= 1 - F= 1 N= 0 -*** TEST FAILED, EXCEPTION MISMATCH *** - -Program interrupted at line 1006 diff --git a/bwbtest/NBS2X/F_EPS_X_N.BAS b/bwbtest/NBS2X/F_EPS_X_N.BAS deleted file mode 100644 index 3dfa885..0000000 --- a/bwbtest/NBS2X/F_EPS_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:21 -REM FILENAME: F_EPS_X_N.BAS -REM SYNTAX: N = EPS( X ) -REM UNIQUEID: F_EPS_X_N -REM FUNCTION: EPS -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = EPS( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 2.22507E-308 , 0 -DATA 2 , 0 , 2.22507E-308 , 1 -DATA 3 , 0 , 2.22507E-308 , -1 -DATA 4 , 0 , 2.22507E-308 , .4 -DATA 5 , 0 , 2.22507E-308 , -.4 -DATA 6 , 0 , 2.22507E-308 , .6 -DATA 7 , 0 , 2.22507E-308 , -.6 -DATA 8 , 0 , 2.22507E-308 , 254 -DATA 9 , 0 , 2.22507E-308 , 255 -DATA 10 , 0 , 2.22507E-308 , 256 -DATA 11 , 0 , 2.22507E-308 , 32000 -DATA 12 , 0 , 2.22507E-308 , -.227229 -DATA 13 , 0 , 2.22507E-308 , -.239157 -DATA 14 , 0 , 2.22507E-308 , -.213586 -DATA 15 , 0 , 2.22507E-308 , .274675 -DATA 16 , 0 , 2.22507E-308 , .169766 -DATA 17 , 0 , 2.22507E-308 , .318766 -DATA 18 , 0 , 2.22507E-308 , 2.06658E-2 -DATA 19 , 0 , 2.22507E-308 , .188257 -DATA 20 , 0 , 2.22507E-308 , -.277537 -DATA 21 , 0 , 2.22507E-308 , -.481303 -DATA 22 , 0 , 2.22507E-308 , .43556 -DATA 23 , 0 , 2.22507E-308 , -.210971 -DATA 24 , 0 , 2.22507E-308 , -.455216 -DATA 25 , 0 , 2.22507E-308 , -110.907 -DATA 26 , 0 , 2.22507E-308 , 105.632 -DATA 27 , 0 , 2.22507E-308 , -114.341 -DATA 28 , 0 , 2.22507E-308 , 109.706 -DATA 29 , 0 , 2.22507E-308 , 109.198 -DATA 30 , 0 , 2.22507E-308 , 85.8773 -DATA 31 , 0 , 2.22507E-308 , -58.3548 -DATA 32 , 0 , 2.22507E-308 , 29.6397 -DATA 33 , 0 , 2.22507E-308 , -108.36 -DATA 34 , 0 , 2.22507E-308 , -46.5199 -DATA 35 , 0 , 2.22507E-308 , 112.521 -DATA 36 , 0 , 2.22507E-308 , 45.4151 -DATA 37 , 0 , 2.22507E-308 , 101.129 -DATA 38 , 0 , 2.22507E-308 , 65.0473 -DATA 39 , 0 , 2.22507E-308 , 48.4012 -DATA 40 , 0 , 2.22507E-308 , 122.294 -DATA 41 , 0 , 2.22507E-308 , -56.1094 -DATA 42 , 0 , 2.22507E-308 , -121.087 -DATA 43 , 0 , 2.22507E-308 , -123.517 -DATA 44 , 0 , 2.22507E-308 , -97.6301 -DATA 45 , 0 , 2.22507E-308 , -64.0001 -DATA 46 , 0 , 2.22507E-308 , -25.6888 -DATA 47 , 0 , 2.22507E-308 , 14.8006 -DATA 48 , 0 , 2.22507E-308 , -61.0877 -DATA 49 , 0 , 2.22507E-308 , -66.6381 -DATA 50 , 0 , 2.22507E-308 , -5476.5 -DATA 51 , 0 , 2.22507E-308 , -21210.3 -DATA 52 , 0 , 2.22507E-308 , -28757.2 -DATA 53 , 0 , 2.22507E-308 , -28732.2 -DATA 54 , 0 , 2.22507E-308 , 12730.3 -DATA 55 , 0 , 2.22507E-308 , -1830.69 -DATA 56 , 0 , 2.22507E-308 , 5486.39 -DATA 57 , 0 , 2.22507E-308 , 22405.9 -DATA 58 , 0 , 2.22507E-308 , 30809.8 -DATA 59 , 0 , 2.22507E-308 , -28930.6 -DATA 60 , 0 , 2.22507E-308 , -6014.53 -DATA 61 , 0 , 2.22507E-308 , 17414.6 -DATA 62 , 0 , 2.22507E-308 , -10538.3 -DATA 63 , 0 , 2.22507E-308 , -17536.3 -DATA 64 , 0 , 2.22507E-308 , -8856.62 -DATA 65 , 0 , 2.22507E-308 , -5140.12 -DATA 66 , 0 , 2.22507E-308 , -8595.31 -DATA 67 , 0 , 2.22507E-308 , -3382.87 -DATA 68 , 0 , 2.22507E-308 , -5002.07 -DATA 69 , 0 , 2.22507E-308 , -5800.72 -DATA 70 , 0 , 2.22507E-308 , 29686.4 -DATA 71 , 0 , 2.22507E-308 , 2571. -DATA 72 , 0 , 2.22507E-308 , 31091. -DATA 73 , 0 , 2.22507E-308 , 14819. -DATA 74 , 0 , 2.22507E-308 , 3790.9 -DATA 75 , 0 , 2.22507E-308 , -4.2981E+9 -DATA 76 , 0 , 2.22507E-308 , -7.05453E+8 -DATA 77 , 0 , 2.22507E-308 , -3.10179E+9 -DATA 78 , 0 , 2.22507E-308 , -4.86159E+9 -DATA 79 , 0 , 2.22507E-308 , -8.62908E+8 -DATA 80 , 0 , 2.22507E-308 , -3.4101E+9 -DATA 81 , 0 , 2.22507E-308 , 3.3889E+9 -DATA 82 , 0 , 2.22507E-308 , 2.49826E+9 -DATA 83 , 0 , 2.22507E-308 , 2.3491E+9 -DATA 84 , 0 , 2.22507E-308 , 1.94745E+8 -DATA 85 , 0 , 2.22507E-308 , 2.02475E+9 -DATA 86 , 0 , 2.22507E-308 , -2.26748E+9 -DATA 87 , 0 , 2.22507E-308 , -2.10587E+9 -DATA 88 , 0 , 2.22507E-308 , 4.23585E+9 -DATA 89 , 0 , 2.22507E-308 , -2.66524E+9 -DATA 90 , 0 , 2.22507E-308 , 4.01052E+9 -DATA 91 , 0 , 2.22507E-308 , -4.87912E+9 -DATA 92 , 0 , 2.22507E-308 , 1.77556E+9 -DATA 93 , 0 , 2.22507E-308 , 2.87705E+8 -DATA 94 , 0 , 2.22507E-308 , 1.99977E+8 -DATA 95 , 0 , 2.22507E-308 , -3.39941E+9 -DATA 96 , 0 , 2.22507E-308 , -3.49119E+9 -DATA 97 , 0 , 2.22507E-308 , -2.86324E+9 -DATA 98 , 0 , 2.22507E-308 , 4.20418E+9 -DATA 99 , 0 , 2.22507E-308 , -3.1518E+9 -DATA 100 , 0 , 2.22507E-308 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_EPS_X_N.run b/bwbtest/NBS2X/F_EPS_X_N.run deleted file mode 100644 index 72a1454..0000000 --- a/bwbtest/NBS2X/F_EPS_X_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R= 2.22507E-308 X= 0 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 2.22507E-308 X= 1 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 2.22507E-308 X=-1 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 2.22507E-308 X= .4 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 2.22507E-308 X=-.4 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 2.22507E-308 X= .6 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 2.22507E-308 X=-.6 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 2.22507E-308 X= 254 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 2.22507E-308 X= 255 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 2.22507E-308 X= 256 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 2.22507E-308 X= 32000 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 2.22507E-308 X=-.227229 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 2.22507E-308 X=-.239157 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 2.22507E-308 X=-.213586 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 2.22507E-308 X= .274675 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 2.22507E-308 X= .169766 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 2.22507E-308 X= .318766 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.22507E-308 X= 2.06658E-2 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 2.22507E-308 X= .188257 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 2.22507E-308 X=-.277537 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 2.22507E-308 X=-.481303 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 2.22507E-308 X= .43556 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 2.22507E-308 X=-.210971 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 2.22507E-308 X=-.455216 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 2.22507E-308 X=-110.907 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 2.22507E-308 X= 105.632 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 2.22507E-308 X=-114.341 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 2.22507E-308 X= 109.706 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 2.22507E-308 X= 109.198 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 2.22507E-308 X= 85.8773 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 2.22507E-308 X=-58.3548 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 2.22507E-308 X= 29.6397 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 2.22507E-308 X=-108.36 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 2.22507E-308 X=-46.5199 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 2.22507E-308 X= 112.521 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 2.22507E-308 X= 45.4151 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 2.22507E-308 X= 101.129 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 2.22507E-308 X= 65.0473 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 2.22507E-308 X= 48.4012 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 2.22507E-308 X= 122.294 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 2.22507E-308 X=-56.1094 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 2.22507E-308 X=-121.087 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 2.22507E-308 X=-123.517 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 2.22507E-308 X=-97.6301 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 2.22507E-308 X=-64.0001 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 2.22507E-308 X=-25.6888 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 2.22507E-308 X= 14.8006 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 2.22507E-308 X=-61.0877 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 2.22507E-308 X=-66.6381 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 2.22507E-308 X=-5476.5 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 2.22507E-308 X=-21210.3 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 2.22507E-308 X=-28757.2 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 2.22507E-308 X=-28732.2 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 2.22507E-308 X= 12730.3 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 2.22507E-308 X=-1830.69 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 2.22507E-308 X= 5486.39 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 2.22507E-308 X= 22405.9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 2.22507E-308 X= 30809.8 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 2.22507E-308 X=-28930.6 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 2.22507E-308 X=-6014.53 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 2.22507E-308 X= 17414.6 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 2.22507E-308 X=-10538.3 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 2.22507E-308 X=-17536.3 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 2.22507E-308 X=-8856.62 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 2.22507E-308 X=-5140.12 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 2.22507E-308 X=-8595.31 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 2.22507E-308 X=-3382.87 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 2.22507E-308 X=-5002.07 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 2.22507E-308 X=-5800.72 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 2.22507E-308 X= 29686.4 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2.22507E-308 X= 2571 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 2.22507E-308 X= 31091 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 2.22507E-308 X= 14819 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 2.22507E-308 X= 3790.9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 2.22507E-308 X=-4.2981E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 2.22507E-308 X=-7.05453E+8 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 2.22507E-308 X=-3.10179E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 2.22507E-308 X=-4.86159E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 2.22507E-308 X=-8.62908E+8 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 2.22507E-308 X=-3.4101E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 2.22507E-308 X= 3.3889E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 2.22507E-308 X= 2.49826E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.22507E-308 X= 2.3491E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 2.22507E-308 X= 1.94745E+8 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.22507E-308 X= 2.02475E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 2.22507E-308 X=-2.26748E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 2.22507E-308 X=-2.10587E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 2.22507E-308 X= 4.23585E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 2.22507E-308 X=-2.66524E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 2.22507E-308 X= 4.01052E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 2.22507E-308 X=-4.87912E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 2.22507E-308 X= 1.77556E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.22507E-308 X= 2.87705E+8 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 2.22507E-308 X= 1.99977E+8 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 2.22507E-308 X=-3.39941E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 2.22507E-308 X=-3.49119E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 2.22507E-308 X=-2.86324E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 2.22507E-308 X= 4.20418E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 2.22507E-308 X=-3.1518E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 2.22507E-308 X= - 4.60615E+9 - F= 0 N= 2.22507E-308 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_ERROR_X_A_N.BAS b/bwbtest/NBS2X/F_ERROR_X_A_N.BAS deleted file mode 100644 index 80242f3..0000000 --- a/bwbtest/NBS2X/F_ERROR_X_A_N.BAS +++ /dev/null @@ -1,184 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:21 -REM FILENAME: F_ERROR_X_A_N.BAS -REM SYNTAX: N = ERROR( X, A$ ) -REM UNIQUEID: F_ERROR_X_A_N -REM FUNCTION: ERROR -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = ERROR( X, A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 , "" -DATA 2 , 1 , 0 , 1 , " " -DATA 3 , 1 , 0 , -1 , "3" -DATA 4 , 0 , 0 , .4 , "z" -DATA 5 , 0 , 0 , -.4 , " " -DATA 6 , 1 , 0 , .6 , " 3" -DATA 7 , 1 , 0 , -.6 , " z" -DATA 8 , 1 , 0 , 254 , "3 " -DATA 9 , 1 , 0 , 255 , "z " -DATA 10 , 1 , 0 , 256 , " 3 " -DATA 11 , 1 , 0 , 32000 , " z " -DATA 12 , 0 , 0 , -.227229 , " LLLL" -DATA 13 , 0 , 0 , -.239157 , " '' " -DATA 14 , 0 , 0 , -.213586 , " oo " -DATA 15 , 0 , 0 , .274675 , " 00 " -DATA 16 , 0 , 0 , .169766 , " \\\\ " -DATA 17 , 0 , 0 , .318766 , " lllll " -DATA 18 , 0 , 0 , 2.06658E-2 , " uuuu " -DATA 19 , 0 , 0 , .188257 , " a " -DATA 20 , 0 , 0 , -.277537 , " " -DATA 21 , 0 , 0 , -.481303 , " hh " -DATA 22 , 0 , 0 , .43556 , " h " -DATA 23 , 0 , 0 , -.210971 , " )" -DATA 24 , 0 , 0 , -.455216 , " 5 " -DATA 25 , 1 , 0 , -110.907 , " 2 " -DATA 26 , 1 , 0 , 105.632 , " - " -DATA 27 , 1 , 0 , -114.341 , "dd " -DATA 28 , 1 , 0 , 109.706 , " tttt " -DATA 29 , 1 , 0 , 109.198 , " :::: " -DATA 30 , 1 , 0 , 85.8773 , " ___ " -DATA 31 , 1 , 0 , -58.3548 , " " -DATA 32 , 1 , 0 , 29.6397 , " " -DATA 33 , 1 , 0 , -108.36 , " _____ " -DATA 34 , 1 , 0 , -46.5199 , " S " -DATA 35 , 1 , 0 , 112.521 , " FFFF " -DATA 36 , 1 , 0 , 45.4151 , " kkk" -DATA 37 , 1 , 0 , 101.129 , " NNNN " -DATA 38 , 1 , 0 , 65.0473 , " mmmm " -DATA 39 , 1 , 0 , 48.4012 , " ,,,,, " -DATA 40 , 1 , 0 , 122.294 , "OO " -DATA 41 , 1 , 0 , -56.1094 , " HHHH " -DATA 42 , 1 , 0 , -121.087 , " < " -DATA 43 , 1 , 0 , -123.517 , " j " -DATA 44 , 1 , 0 , -97.6301 , " yyyy " -DATA 45 , 1 , 0 , -64.0001 , " +++ " -DATA 46 , 1 , 0 , -25.6888 , "o " -DATA 47 , 1 , 0 , 14.8006 , " ((" -DATA 48 , 1 , 0 , -61.0877 , " uu " -DATA 49 , 1 , 0 , -66.6381 , " 00 " -DATA 50 , 1 , 0 , -5476.5 , " HH " -DATA 51 , 1 , 0 , -21210.3 , " " -DATA 52 , 1 , 0 , -28757.2 , " G " -DATA 53 , 1 , 0 , -28732.2 , " {{{{ " -DATA 54 , 1 , 0 , 12730.3 , " ]]] " -DATA 55 , 1 , 0 , -1830.69 , "CCC" -DATA 56 , 1 , 0 , 5486.39 , " 44 " -DATA 57 , 1 , 0 , 22405.9 , "^^ " -DATA 58 , 1 , 0 , 30809.8 , " QQ " -DATA 59 , 1 , 0 , -28930.6 , " FFFF " -DATA 60 , 1 , 0 , -6014.53 , " n " -DATA 61 , 1 , 0 , 17414.6 , " hh " -DATA 62 , 1 , 0 , -10538.3 , "555 " -DATA 63 , 1 , 0 , -17536.3 , " YYYY " -DATA 64 , 1 , 0 , -8856.62 , " w " -DATA 65 , 1 , 0 , -5140.12 , "MMMM " -DATA 66 , 1 , 0 , -8595.31 , " JJJJ " -DATA 67 , 1 , 0 , -3382.87 , " %% " -DATA 68 , 1 , 0 , -5002.07 , " * " -DATA 69 , 1 , 0 , -5800.72 , " @@@ " -DATA 70 , 1 , 0 , 29686.4 , "I " -DATA 71 , 1 , 0 , 2571. , " ss " -DATA 72 , 1 , 0 , 31091. , " f " -DATA 73 , 1 , 0 , 14819. , " D " -DATA 74 , 1 , 0 , 3790.9 , "### " -DATA 75 , 1 , 0 , -4.2981E+9 , " ' " -DATA 76 , 1 , 0 , -7.05453E+8 , " dd " -DATA 77 , 1 , 0 , -3.10179E+9 , " TT " -DATA 78 , 1 , 0 , -4.86159E+9 , " vvv " -DATA 79 , 1 , 0 , -8.62908E+8 , " X " -DATA 80 , 1 , 0 , -3.4101E+9 , " % " -DATA 81 , 1 , 0 , 3.3889E+9 , " " -DATA 82 , 1 , 0 , 2.49826E+9 , " 5555 " -DATA 83 , 1 , 0 , 2.3491E+9 , "FFFF " -DATA 84 , 1 , 0 , 1.94745E+8 , " %% " -DATA 85 , 1 , 0 , 2.02475E+9 , " " -DATA 86 , 1 , 0 , -2.26748E+9 , " ~~~~ " -DATA 87 , 1 , 0 , -2.10587E+9 , " || " -DATA 88 , 1 , 0 , 4.23585E+9 , " SSS " -DATA 89 , 1 , 0 , -2.66524E+9 , " 6666 " -DATA 90 , 1 , 0 , 4.01052E+9 , " ww " -DATA 91 , 1 , 0 , -4.87912E+9 , " 1111 " -DATA 92 , 1 , 0 , 1.77556E+9 , " K " -DATA 93 , 1 , 0 , 2.87705E+8 , " ttttt " -DATA 94 , 1 , 0 , 1.99977E+8 , " OOOOO " -DATA 95 , 1 , 0 , -3.39941E+9 , " E " -DATA 96 , 1 , 0 , -3.49119E+9 , " PPPPP " -DATA 97 , 1 , 0 , -2.86324E+9 , " == " -DATA 98 , 1 , 0 , 4.20418E+9 , " VVVV " -DATA 99 , 1 , 0 , -3.1518E+9 , " c " -DATA 100 , 1 , 0 , 4.60615E+9 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_ERROR_X_A_N.run b/bwbtest/NBS2X/F_ERROR_X_A_N.run deleted file mode 100644 index f6057e5..0000000 --- a/bwbtest/NBS2X/F_ERROR_X_A_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 A$=[] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 1 R= 0 X= 1 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 X=-1 A$=[3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 0 X= .4 A$=[z] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 A$=[ ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 1 R= 0 X= .6 A$=[ 3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 X=-.6 A$=[ z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 X= 254 A$=[3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 X= 255 A$=[z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 X= 256 A$=[ 3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 X= 32000 A$=[ z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 A$=[ LLLL] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 A$=[ '' ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 A$=[ oo ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 A$=[ 00 ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 A$=[ \\\\ ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 A$=[ lllll ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 A$=[ uuuu ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 A$=[ a ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 A$=[ ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 A$=[ hh ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 0 X= .43556 A$=[ h ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 A$=[ )] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 A$=[ 5 ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 A$=[ 2 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 1 R= 0 X= 105.632 A$=[ - ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 A$=[dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 1 R= 0 X= 109.706 A$=[ tttt ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 1 R= 0 X= 109.198 A$=[ :::: ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 1 R= 0 X= 85.8773 A$=[ ___ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 1 R= 0 X= 29.6397 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 A$=[ _____ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 A$=[ S ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 1 R= 0 X= 112.521 A$=[ FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 1 R= 0 X= 45.4151 A$=[ kkk] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 1 R= 0 X= 101.129 A$=[ NNNN ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 1 R= 0 X= 65.0473 A$=[ mmmm ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 1 R= 0 X= 48.4012 A$=[ ,,,,, ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 1 R= 0 X= 122.294 A$=[OO ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 A$=[ HHHH ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 A$=[ < ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 A$=[ j ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 A$=[ yyyy ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 A$=[ +++ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 X=-25.6888 A$=[o ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 1 R= 0 X= 14.8006 A$=[ ((] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 A$=[ uu ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 A$=[ 00 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 A$=[ HH ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 A$=[ G ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 A$=[ {{{{ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 X= 12730.3 A$=[ ]]] ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 A$=[CCC] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 0 X= 5486.39 A$=[ 44 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 X= 22405.9 A$=[^^ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 X= 30809.8 A$=[ QQ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 A$=[ FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 A$=[ n ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 X= 17414.6 A$=[ hh ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 A$=[555 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 A$=[ YYYY ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 A$=[ w ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 A$=[MMMM ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 A$=[ JJJJ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 A$=[ %% ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 A$=[ * ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 A$=[ @@@ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 X= 29686.4 A$=[I ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 0 X= 2571 A$=[ ss ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 X= 31091 A$=[ f ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 X= 14819 A$=[ D ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 0 X= 3790.9 A$=[### ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 A$=[ ' ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 A$=[ dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 A$=[ TT ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 A$=[ vvv ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 A$=[ X ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 A$=[ % ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 A$=[ 5555 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 A$=[FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 X= 1.94745E+8 A$=[ %% ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 X= 2.02475E+9 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 A$=[ ~~~~ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 A$=[ || ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 A$=[ SSS ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 A$=[ 6666 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 A$=[ ww ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 A$=[ 1111 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 X= 1.77556E+9 A$=[ K ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 X= 2.87705E+8 A$=[ ttttt ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 X= 1.99977E+8 A$=[ OOOOO ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 A$=[ E ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 A$=[ PPPPP ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 A$=[ == ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 A$=[ VVVV ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 A$=[ c ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 A$=[ - yyyy ] - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_ERROR_X_N.BAS b/bwbtest/NBS2X/F_ERROR_X_N.BAS deleted file mode 100644 index 43e6657..0000000 --- a/bwbtest/NBS2X/F_ERROR_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:21 -REM FILENAME: F_ERROR_X_N.BAS -REM SYNTAX: N = ERROR( X ) -REM UNIQUEID: F_ERROR_X_N -REM FUNCTION: ERROR -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = ERROR( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 1 , 0 , 1 -DATA 3 , 1 , 0 , -1 -DATA 4 , 0 , 0 , .4 -DATA 5 , 0 , 0 , -.4 -DATA 6 , 1 , 0 , .6 -DATA 7 , 1 , 0 , -.6 -DATA 8 , 1 , 0 , 254 -DATA 9 , 1 , 0 , 255 -DATA 10 , 1 , 0 , 256 -DATA 11 , 1 , 0 , 32000 -DATA 12 , 0 , 0 , -.227229 -DATA 13 , 0 , 0 , -.239157 -DATA 14 , 0 , 0 , -.213586 -DATA 15 , 0 , 0 , .274675 -DATA 16 , 0 , 0 , .169766 -DATA 17 , 0 , 0 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 -DATA 20 , 0 , 0 , -.277537 -DATA 21 , 0 , 0 , -.481303 -DATA 22 , 0 , 0 , .43556 -DATA 23 , 0 , 0 , -.210971 -DATA 24 , 0 , 0 , -.455216 -DATA 25 , 1 , 0 , -110.907 -DATA 26 , 1 , 0 , 105.632 -DATA 27 , 1 , 0 , -114.341 -DATA 28 , 1 , 0 , 109.706 -DATA 29 , 1 , 0 , 109.198 -DATA 30 , 1 , 0 , 85.8773 -DATA 31 , 1 , 0 , -58.3548 -DATA 32 , 1 , 0 , 29.6397 -DATA 33 , 1 , 0 , -108.36 -DATA 34 , 1 , 0 , -46.5199 -DATA 35 , 1 , 0 , 112.521 -DATA 36 , 1 , 0 , 45.4151 -DATA 37 , 1 , 0 , 101.129 -DATA 38 , 1 , 0 , 65.0473 -DATA 39 , 1 , 0 , 48.4012 -DATA 40 , 1 , 0 , 122.294 -DATA 41 , 1 , 0 , -56.1094 -DATA 42 , 1 , 0 , -121.087 -DATA 43 , 1 , 0 , -123.517 -DATA 44 , 1 , 0 , -97.6301 -DATA 45 , 1 , 0 , -64.0001 -DATA 46 , 1 , 0 , -25.6888 -DATA 47 , 1 , 0 , 14.8006 -DATA 48 , 1 , 0 , -61.0877 -DATA 49 , 1 , 0 , -66.6381 -DATA 50 , 1 , 0 , -5476.5 -DATA 51 , 1 , 0 , -21210.3 -DATA 52 , 1 , 0 , -28757.2 -DATA 53 , 1 , 0 , -28732.2 -DATA 54 , 1 , 0 , 12730.3 -DATA 55 , 1 , 0 , -1830.69 -DATA 56 , 1 , 0 , 5486.39 -DATA 57 , 1 , 0 , 22405.9 -DATA 58 , 1 , 0 , 30809.8 -DATA 59 , 1 , 0 , -28930.6 -DATA 60 , 1 , 0 , -6014.53 -DATA 61 , 1 , 0 , 17414.6 -DATA 62 , 1 , 0 , -10538.3 -DATA 63 , 1 , 0 , -17536.3 -DATA 64 , 1 , 0 , -8856.62 -DATA 65 , 1 , 0 , -5140.12 -DATA 66 , 1 , 0 , -8595.31 -DATA 67 , 1 , 0 , -3382.87 -DATA 68 , 1 , 0 , -5002.07 -DATA 69 , 1 , 0 , -5800.72 -DATA 70 , 1 , 0 , 29686.4 -DATA 71 , 1 , 0 , 2571. -DATA 72 , 1 , 0 , 31091. -DATA 73 , 1 , 0 , 14819. -DATA 74 , 1 , 0 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 1 , 0 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 1 , 0 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 1 , 0 , 3.3889E+9 -DATA 82 , 1 , 0 , 2.49826E+9 -DATA 83 , 1 , 0 , 2.3491E+9 -DATA 84 , 1 , 0 , 1.94745E+8 -DATA 85 , 1 , 0 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 1 , 0 , -2.10587E+9 -DATA 88 , 1 , 0 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 1 , 0 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 1 , 0 , 1.77556E+9 -DATA 93 , 1 , 0 , 2.87705E+8 -DATA 94 , 1 , 0 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 1 , 0 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 1 , 0 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_ERROR_X_N.run b/bwbtest/NBS2X/F_ERROR_X_N.run deleted file mode 100644 index 51f3bd8..0000000 --- a/bwbtest/NBS2X/F_ERROR_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 1 R= 0 X= 1 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 X=-1 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 0 X= .4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 1 R= 0 X= .6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 X=-.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 X= 254 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 X= 255 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 X= 256 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 X= 32000 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 0 X= .43556 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 1 R= 0 X= 105.632 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 1 R= 0 X= 109.706 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 1 R= 0 X= 109.198 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 1 R= 0 X= 85.8773 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 1 R= 0 X= 29.6397 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 1 R= 0 X= 112.521 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 1 R= 0 X= 45.4151 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 1 R= 0 X= 101.129 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 1 R= 0 X= 65.0473 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 1 R= 0 X= 48.4012 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 1 R= 0 X= 122.294 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 X=-25.6888 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 1 R= 0 X= 14.8006 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 X= 12730.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 0 X= 5486.39 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 X= 22405.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 X= 30809.8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 X= 17414.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 X= 29686.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 0 X= 2571 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 X= 31091 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 X= 14819 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 0 X= 3790.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 X= 1.94745E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 X= 2.02475E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 X= 1.77556E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 X= 2.87705E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 X= 1.99977E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_EXP_X_N.BAS b/bwbtest/NBS2X/F_EXP_X_N.BAS deleted file mode 100644 index 09a9117..0000000 --- a/bwbtest/NBS2X/F_EXP_X_N.BAS +++ /dev/null @@ -1,185 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:22 -REM FILENAME: F_EXP_X_N.BAS -REM SYNTAX: N = EXP( X ) -REM UNIQUEID: F_EXP_X_N -REM FUNCTION: EXP -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = EXP( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -IF E = 0 THEN - REM VERIFY EXPECTED RESULT - IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF - END IF - IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R - END IF - IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 - END IF - IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP - END IF - IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP - END IF -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 1 , 0 -DATA 2 , 0 , 2.71828 , 1 -DATA 3 , 0 , .367879 , -1 -DATA 4 , 0 , 1.49182 , .4 -DATA 5 , 0 , .67032 , -.4 -DATA 6 , 0 , 1.82212 , .6 -DATA 7 , 0 , .548812 , -.6 -DATA 8 , 0 , 2.04549E+110 , 254 -DATA 9 , 0 , 5.56023E+110 , 255 -DATA 10 , 0 , 1.51143E+111 , 256 -DATA 11 , 1 , 1.79769E+308 , 32000 -DATA 12 , 0 , .796738 , -.227229 -DATA 13 , 0 , .787291 , -.239157 -DATA 14 , 0 , .807683 , -.213586 -DATA 15 , 0 , 1.3161 , .274675 -DATA 16 , 0 , 1.18503 , .169766 -DATA 17 , 0 , 1.37543 , .318766 -DATA 18 , 0 , 1.02088 , 2.06658E-2 -DATA 19 , 0 , 1.20714 , .188257 -DATA 20 , 0 , .757648 , -.277537 -DATA 21 , 0 , .617978 , -.481303 -DATA 22 , 0 , 1.54583 , .43556 -DATA 23 , 0 , .809798 , -.210971 -DATA 24 , 0 , .634311 , -.455216 -DATA 25 , 0 , 6.8187E-49 , -110.907 -DATA 26 , 0 , 7.50576E+45 , 105.632 -DATA 27 , 0 , 2.19955E-50 , -114.341 -DATA 28 , 0 , 4.41276E+47 , 109.706 -DATA 29 , 0 , 2.65515E+47 , 109.198 -DATA 30 , 0 , 1.97714E+37 , 85.8773 -DATA 31 , 0 , 4.53766E-26 , -58.3548 -DATA 32 , 0 , 7.45346E+12 , 29.6397 -DATA 33 , 0 , 8.70663E-48 , -108.36 -DATA 34 , 0 , 6.26129E-21 , -46.5199 -DATA 35 , 0 , 7.3663E+48 , 112.521 -DATA 36 , 0 , 5.29087E+19 , 45.4151 -DATA 37 , 0 , 8.31317E+43 , 101.129 -DATA 38 , 0 , 1.77698E+28 , 65.0473 -DATA 39 , 0 , 1.04803E+21 , 48.4012 -DATA 40 , 0 , 1.29303E+53 , 122.294 -DATA 41 , 0 , 4.28546E-25 , -56.1094 -DATA 42 , 0 , 2.58574E-53 , -121.087 -DATA 43 , 0 , 2.2764E-54 , -123.517 -DATA 44 , 0 , 3.97911E-43 , -97.6301 -DATA 45 , 0 , 1.60365E-28 , -64.0001 -DATA 46 , 0 , 6.97422E-12 , -25.6888 -DATA 47 , 0 , 2.67805E+6 , 14.8006 -DATA 48 , 0 , 2.95086E-27 , -61.0877 -DATA 49 , 0 , 1.14668E-29 , -66.6381 -DATA 50 , 0 , 0 , -5476.5 -DATA 51 , 0 , 0 , -21210.3 -DATA 52 , 0 , 0 , -28757.2 -DATA 53 , 0 , 0 , -28732.2 -DATA 54 , 1 , 1.79769E+308 , 12730.3 -DATA 55 , 0 , 0 , -1830.69 -DATA 56 , 1 , 1.79769E+308 , 5486.39 -DATA 57 , 1 , 1.79769E+308 , 22405.9 -DATA 58 , 1 , 1.79769E+308 , 30809.8 -DATA 59 , 0 , 0 , -28930.6 -DATA 60 , 0 , 0 , -6014.53 -DATA 61 , 1 , 1.79769E+308 , 17414.6 -DATA 62 , 0 , 0 , -10538.3 -DATA 63 , 0 , 0 , -17536.3 -DATA 64 , 0 , 0 , -8856.62 -DATA 65 , 0 , 0 , -5140.12 -DATA 66 , 0 , 0 , -8595.31 -DATA 67 , 0 , 0 , -3382.87 -DATA 68 , 0 , 0 , -5002.07 -DATA 69 , 0 , 0 , -5800.72 -DATA 70 , 1 , 1.79769E+308 , 29686.4 -DATA 71 , 1 , 1.79769E+308 , 2571. -DATA 72 , 1 , 1.79769E+308 , 31091. -DATA 73 , 1 , 1.79769E+308 , 14819. -DATA 74 , 1 , 1.79769E+308 , 3790.9 -DATA 75 , 0 , 0 , -4.2981E+9 -DATA 76 , 0 , 0 , -7.05453E+8 -DATA 77 , 0 , 0 , -3.10179E+9 -DATA 78 , 0 , 0 , -4.86159E+9 -DATA 79 , 0 , 0 , -8.62908E+8 -DATA 80 , 0 , 0 , -3.4101E+9 -DATA 81 , 1 , 1.79769E+308 , 3.3889E+9 -DATA 82 , 1 , 1.79769E+308 , 2.49826E+9 -DATA 83 , 1 , 1.79769E+308 , 2.3491E+9 -DATA 84 , 1 , 1.79769E+308 , 1.94745E+8 -DATA 85 , 1 , 1.79769E+308 , 2.02475E+9 -DATA 86 , 0 , 0 , -2.26748E+9 -DATA 87 , 0 , 0 , -2.10587E+9 -DATA 88 , 1 , 1.79769E+308 , 4.23585E+9 -DATA 89 , 0 , 0 , -2.66524E+9 -DATA 90 , 1 , 1.79769E+308 , 4.01052E+9 -DATA 91 , 0 , 0 , -4.87912E+9 -DATA 92 , 1 , 1.79769E+308 , 1.77556E+9 -DATA 93 , 1 , 1.79769E+308 , 2.87705E+8 -DATA 94 , 1 , 1.79769E+308 , 1.99977E+8 -DATA 95 , 0 , 0 , -3.39941E+9 -DATA 96 , 0 , 0 , -3.49119E+9 -DATA 97 , 0 , 0 , -2.86324E+9 -DATA 98 , 1 , 1.79769E+308 , 4.20418E+9 -DATA 99 , 0 , 0 , -3.1518E+9 -DATA 100 , 1 , 1.79769E+308 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_EXP_X_N.run b/bwbtest/NBS2X/F_EXP_X_N.run deleted file mode 100644 index d1e96de..0000000 --- a/bwbtest/NBS2X/F_EXP_X_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R= 1 X= 0 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 2.71828 X= 1 - F= 0 N= 2.71828 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= .367879 X=-1 - F= 0 N= .367879 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 1.49182 X= .4 - F= 0 N= 1.49182 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= .67032 X=-.4 - F= 0 N= .67032 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1.82212 X= .6 - F= 0 N= 1.82212 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= .548812 X=-.6 - F= 0 N= .548812 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 2.04549E+110 X= 254 - F= 0 N= 2.04549E+110 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 5.56023E+110 X= 255 - F= 0 N= 5.56023E+110 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 1.51143E+111 X= 256 - F= 0 N= 1.51143E+111 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 1.79769E+308 X= 32000 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= .796738 X=-.227229 - F= 0 N= .796738 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= .787291 X=-.239157 - F= 0 N= .787291 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= .807683 X=-.213586 - F= 0 N= .807683 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 1.3161 X= .274675 - F= 0 N= 1.3161 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1.18503 X= .169766 - F= 0 N= 1.18503 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1.37543 X= .318766 - F= 0 N= 1.37543 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 1.02088 X= 2.06658E-2 - F= 0 N= 1.02088 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 1.20714 X= .188257 - F= 0 N= 1.20714 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= .757648 X=-.277537 - F= 0 N= .757648 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= .617978 X=-.481303 - F= 0 N= .617978 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 1.54583 X= .43556 - F= 0 N= 1.54583 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= .809798 X=-.210971 - F= 0 N= .809798 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= .634311 X=-.455216 - F= 0 N= .634311 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 6.8187E-49 X=-110.907 - F= 0 N= 6.8187E-49 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 7.50576E+45 X= 105.632 - F= 0 N= 7.50576E+45 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 2.19955E-50 X=-114.341 - F= 0 N= 2.19955E-50 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 4.41276E+47 X= 109.706 - F= 0 N= 4.41276E+47 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 2.65515E+47 X= 109.198 - F= 0 N= 2.65515E+47 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1.97714E+37 X= 85.8773 - F= 0 N= 1.97714E+37 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 4.53766E-26 X=-58.3548 - F= 0 N= 4.53766E-26 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 7.45346E+12 X= 29.6397 - F= 0 N= 7.45346E+12 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 8.70663E-48 X=-108.36 - F= 0 N= 8.70663E-48 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 6.26129E-21 X=-46.5199 - F= 0 N= 6.26129E-21 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 7.3663E+48 X= 112.521 - F= 0 N= 7.3663E+48 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 5.29087E+19 X= 45.4151 - F= 0 N= 5.29087E+19 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 8.31317E+43 X= 101.129 - F= 0 N= 8.31317E+43 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1.77698E+28 X= 65.0473 - F= 0 N= 1.77698E+28 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 1.04803E+21 X= 48.4012 - F= 0 N= 1.04803E+21 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 1.29303E+53 X= 122.294 - F= 0 N= 1.29303E+53 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 4.28546E-25 X=-56.1094 - F= 0 N= 4.28546E-25 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 2.58574E-53 X=-121.087 - F= 0 N= 2.58574E-53 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 2.2764E-54 X=-123.517 - F= 0 N= 2.2764E-54 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 3.97911E-43 X=-97.6301 - F= 0 N= 3.97911E-43 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 1.60365E-28 X=-64.0001 - F= 0 N= 1.60365E-28 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 6.97422E-12 X=-25.6888 - F= 0 N= 6.97422E-12 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 2.67805E+6 X= 14.8006 - F= 0 N= 2.67805E+6 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 2.95086E-27 X=-61.0877 - F= 0 N= 2.95086E-27 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 1.14668E-29 X=-66.6381 - F= 0 N= 1.14668E-29 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 0 X=-5476.5 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 0 X=-21210.3 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 0 X=-28757.2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 0 X=-28732.2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 1.79769E+308 X= 12730.3 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 0 X=-1830.69 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 1.79769E+308 X= 5486.39 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 1.79769E+308 X= 22405.9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 1.79769E+308 X= 30809.8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 0 X=-28930.6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 0 X=-6014.53 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 1.79769E+308 X= 17414.6 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 0 X=-10538.3 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 0 X=-17536.3 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 0 X=-8856.62 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 0 X=-5140.12 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 0 X=-8595.31 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 0 X=-3382.87 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 0 X=-5002.07 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 0 X=-5800.72 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 1.79769E+308 X= 29686.4 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 1.79769E+308 X= 2571 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 1.79769E+308 X= 31091 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 1.79769E+308 X= 14819 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 1.79769E+308 X= 3790.9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 0 X=-4.2981E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 0 X=-7.05453E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 0 X=-3.10179E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 0 X=-4.86159E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 0 X=-8.62908E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 0 X=-3.4101E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 1.79769E+308 X= 3.3889E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 1.79769E+308 X= 2.49826E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 1.79769E+308 X= 2.3491E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 1.79769E+308 X= 1.94745E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 1.79769E+308 X= 2.02475E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 0 X=-2.26748E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 0 X=-2.10587E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 1.79769E+308 X= 4.23585E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 0 X=-2.66524E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 1.79769E+308 X= 4.01052E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 0 X=-4.87912E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 1.79769E+308 X= 1.77556E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 1.79769E+308 X= 2.87705E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 1.79769E+308 X= 1.99977E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 0 X=-3.39941E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 0 X=-3.49119E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 0 X=-2.86324E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 1.79769E+308 X= 4.20418E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 0 X=-3.1518E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 1.79769E+308 X= - 4.60615E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_FIX_X_N.BAS b/bwbtest/NBS2X/F_FIX_X_N.BAS deleted file mode 100644 index dac7b8b..0000000 --- a/bwbtest/NBS2X/F_FIX_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:22 -REM FILENAME: F_FIX_X_N.BAS -REM SYNTAX: N = FIX( X ) -REM UNIQUEID: F_FIX_X_N -REM FUNCTION: FIX -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = FIX( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , -1 , -1 -DATA 4 , 0 , 0 , .4 -DATA 5 , 0 , 0 , -.4 -DATA 6 , 0 , 0 , .6 -DATA 7 , 0 , 0 , -.6 -DATA 8 , 0 , 254 , 254 -DATA 9 , 0 , 255 , 255 -DATA 10 , 0 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , 0 , -.227229 -DATA 13 , 0 , 0 , -.239157 -DATA 14 , 0 , 0 , -.213586 -DATA 15 , 0 , 0 , .274675 -DATA 16 , 0 , 0 , .169766 -DATA 17 , 0 , 0 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 -DATA 20 , 0 , 0 , -.277537 -DATA 21 , 0 , 0 , -.481303 -DATA 22 , 0 , 0 , .43556 -DATA 23 , 0 , 0 , -.210971 -DATA 24 , 0 , 0 , -.455216 -DATA 25 , 0 , -110 , -110.907 -DATA 26 , 0 , 105 , 105.632 -DATA 27 , 0 , -114 , -114.341 -DATA 28 , 0 , 109 , 109.706 -DATA 29 , 0 , 109 , 109.198 -DATA 30 , 0 , 85 , 85.8773 -DATA 31 , 0 , -58 , -58.3548 -DATA 32 , 0 , 29 , 29.6397 -DATA 33 , 0 , -108 , -108.36 -DATA 34 , 0 , -46 , -46.5199 -DATA 35 , 0 , 112 , 112.521 -DATA 36 , 0 , 45 , 45.4151 -DATA 37 , 0 , 101 , 101.129 -DATA 38 , 0 , 65 , 65.0473 -DATA 39 , 0 , 48 , 48.4012 -DATA 40 , 0 , 122 , 122.294 -DATA 41 , 0 , -56 , -56.1094 -DATA 42 , 0 , -121 , -121.087 -DATA 43 , 0 , -123 , -123.517 -DATA 44 , 0 , -97 , -97.6301 -DATA 45 , 0 , -64 , -64.0001 -DATA 46 , 0 , -25 , -25.6888 -DATA 47 , 0 , 14 , 14.8006 -DATA 48 , 0 , -61 , -61.0877 -DATA 49 , 0 , -66 , -66.6381 -DATA 50 , 0 , -5476 , -5476.5 -DATA 51 , 0 , -21210 , -21210.3 -DATA 52 , 0 , -28757 , -28757.2 -DATA 53 , 0 , -28732 , -28732.2 -DATA 54 , 0 , 12730 , 12730.3 -DATA 55 , 0 , -1830 , -1830.69 -DATA 56 , 0 , 5486 , 5486.39 -DATA 57 , 0 , 22405 , 22405.9 -DATA 58 , 0 , 30809 , 30809.8 -DATA 59 , 0 , -28930 , -28930.6 -DATA 60 , 0 , -6014 , -6014.53 -DATA 61 , 0 , 17414 , 17414.6 -DATA 62 , 0 , -10538 , -10538.3 -DATA 63 , 0 , -17536 , -17536.3 -DATA 64 , 0 , -8856 , -8856.62 -DATA 65 , 0 , -5140 , -5140.12 -DATA 66 , 0 , -8595 , -8595.31 -DATA 67 , 0 , -3382 , -3382.87 -DATA 68 , 0 , -5002 , -5002.07 -DATA 69 , 0 , -5800 , -5800.72 -DATA 70 , 0 , 29686 , 29686.4 -DATA 71 , 0 , 2571 , 2571. -DATA 72 , 0 , 31091 , 31091. -DATA 73 , 0 , 14819 , 14819. -DATA 74 , 0 , 3790 , 3790.9 -DATA 75 , 0 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_FIX_X_N.run b/bwbtest/NBS2X/F_FIX_X_N.run deleted file mode 100644 index a459321..0000000 --- a/bwbtest/NBS2X/F_FIX_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 0 X= .4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 0 X= .6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 0 X=-.6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 0 X= .43556 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-110 X=-110.907 - F= 0 N=-110 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 105 X= 105.632 - F= 0 N= 105 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-114 X=-114.341 - F= 0 N=-114 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 109 X= 109.706 - F= 0 N= 109 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109 X= 109.198 - F= 0 N= 109 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 85 X= 85.8773 - F= 0 N= 85 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-58 X=-58.3548 - F= 0 N=-58 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 29 X= 29.6397 - F= 0 N= 29 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-108 X=-108.36 - F= 0 N=-108 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-46 X=-46.5199 - F= 0 N=-46 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 112 X= 112.521 - F= 0 N= 112 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45 X= 45.4151 - F= 0 N= 45 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101 X= 101.129 - F= 0 N= 101 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65 X= 65.0473 - F= 0 N= 65 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48 X= 48.4012 - F= 0 N= 48 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122 X= 122.294 - F= 0 N= 122 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-56 X=-56.1094 - F= 0 N=-56 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-121 X=-121.087 - F= 0 N=-121 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-123 X=-123.517 - F= 0 N=-123 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-97 X=-97.6301 - F= 0 N=-97 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-64 X=-64.0001 - F= 0 N=-64 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-25 X=-25.6888 - F= 0 N=-25 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 14 X= 14.8006 - F= 0 N= 14 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-61 X=-61.0877 - F= 0 N=-61 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-66 X=-66.6381 - F= 0 N=-66 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5476 X=-5476.5 - F= 0 N=-5476 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21210 X=-21210.3 - F= 0 N=-21210 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28757 X=-28757.2 - F= 0 N=-28757 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28732 X=-28732.2 - F= 0 N=-28732 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730 X= 12730.3 - F= 0 N= 12730 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1830 X=-1830.69 - F= 0 N=-1830 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486 X= 5486.39 - F= 0 N= 5486 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22405 X= 22405.9 - F= 0 N= 22405 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30809 X= 30809.8 - F= 0 N= 30809 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28930 X=-28930.6 - F= 0 N=-28930 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6014 X=-6014.53 - F= 0 N=-6014 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17414 X= 17414.6 - F= 0 N= 17414 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10538 X=-10538.3 - F= 0 N=-10538 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17536 X=-17536.3 - F= 0 N=-17536 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8856 X=-8856.62 - F= 0 N=-8856 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5140 X=-5140.12 - F= 0 N=-5140 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8595 X=-8595.31 - F= 0 N=-8595 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3382 X=-3382.87 - F= 0 N=-3382 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5002 X=-5002.07 - F= 0 N=-5002 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5800 X=-5800.72 - F= 0 N=-5800 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686 X= 29686.4 - F= 0 N= 29686 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3790 X= 3790.9 - F= 0 N= 3790 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-4.2981E+9 X=-4.2981E+9 - F= 0 N=-4.2981E+9 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-3.10179E+9 X=-3.10179E+9 - F= 0 N=-3.10179E+9 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-4.86159E+9 X=-4.86159E+9 - F= 0 N=-4.86159E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-3.4101E+9 X=-3.4101E+9 - F= 0 N=-3.4101E+9 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 3.3889E+9 X= 3.3889E+9 - F= 0 N= 3.3889E+9 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 2.49826E+9 X= 2.49826E+9 - F= 0 N= 2.49826E+9 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.3491E+9 X= 2.3491E+9 - F= 0 N= 2.3491E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-2.26748E+9 X=-2.26748E+9 - F= 0 N=-2.26748E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 4.23585E+9 X= 4.23585E+9 - F= 0 N= 4.23585E+9 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-2.66524E+9 X=-2.66524E+9 - F= 0 N=-2.66524E+9 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 4.01052E+9 X= 4.01052E+9 - F= 0 N= 4.01052E+9 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-4.87912E+9 X=-4.87912E+9 - F= 0 N=-4.87912E+9 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-3.39941E+9 X=-3.39941E+9 - F= 0 N=-3.39941E+9 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-3.49119E+9 X=-3.49119E+9 - F= 0 N=-3.49119E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-2.86324E+9 X=-2.86324E+9 - F= 0 N=-2.86324E+9 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 4.20418E+9 X= 4.20418E+9 - F= 0 N= 4.20418E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-3.1518E+9 X=-3.1518E+9 - F= 0 N=-3.1518E+9 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 4.60615E+9 X= 4.60615E+9 - F= 0 N= 4.60615E+9 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_FP_X_N.BAS b/bwbtest/NBS2X/F_FP_X_N.BAS deleted file mode 100644 index f91383c..0000000 --- a/bwbtest/NBS2X/F_FP_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 03/12/2017 09:09:04 -REM FILENAME: F_FP_X_N.BAS -REM SYNTAX: N = FP( X ) -REM UNIQUEID: F_FP_X_N -REM FUNCTION: FP -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = FP( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 0 , 1 -DATA 3 , 0 , 0 , -1 -DATA 4 , 0 , .4 , .4 -DATA 5 , 0 , -.4 , -.4 -DATA 6 , 0 , .6 , .6 -DATA 7 , 0 , -.6 , -.6 -DATA 8 , 0 , 0 , 254 -DATA 9 , 0 , 0 , 255 -DATA 10 , 0 , 0 , 256 -DATA 11 , 0 , 0 , 32000 -DATA 12 , 0 , -.227229 , -.227229 -DATA 13 , 0 , -.239157 , -.239157 -DATA 14 , 0 , -.213586 , -.213586 -DATA 15 , 0 , .274675 , .274675 -DATA 16 , 0 , .169766 , .169766 -DATA 17 , 0 , .318766 , .318766 -DATA 18 , 0 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , .188257 , .188257 -DATA 20 , 0 , -.277537 , -.277537 -DATA 21 , 0 , -.481303 , -.481303 -DATA 22 , 0 , .43556 , .43556 -DATA 23 , 0 , -.210971 , -.210971 -DATA 24 , 0 , -.455216 , -.455216 -DATA 25 , 0 , -.907 , -110.907 -DATA 26 , 0 , .632 , 105.632 -DATA 27 , 0 , -.341 , -114.341 -DATA 28 , 0 , .706 , 109.706 -DATA 29 , 0 , .198 , 109.198 -DATA 30 , 0 , .8773 , 85.8773 -DATA 31 , 0 , -.3548 , -58.3548 -DATA 32 , 0 , .6397 , 29.6397 -DATA 33 , 0 , -.36 , -108.36 -DATA 34 , 0 , -.5199 , -46.5199 -DATA 35 , 0 , .521 , 112.521 -DATA 36 , 0 , .4151 , 45.4151 -DATA 37 , 0 , .129 , 101.129 -DATA 38 , 0 , .0473 , 65.0473 -DATA 39 , 0 , .4012 , 48.4012 -DATA 40 , 0 , .294 , 122.294 -DATA 41 , 0 , -.1094 , -56.1094 -DATA 42 , 0 , -.087 , -121.087 -DATA 43 , 0 , -.517 , -123.517 -DATA 44 , 0 , -.6301 , -97.6301 -DATA 45 , 0 , -.0001 , -64.0001 -DATA 46 , 0 , -.6888 , -25.6888 -DATA 47 , 0 , .8006 , 14.8006 -DATA 48 , 0 , -.0877 , -61.0877 -DATA 49 , 0 , -.6381 , -66.6381 -DATA 50 , 0 , -.5 , -5476.5 -DATA 51 , 0 , -.3 , -21210.3 -DATA 52 , 0 , -.2 , -28757.2 -DATA 53 , 0 , -.2 , -28732.2 -DATA 54 , 0 , .3 , 12730.3 -DATA 55 , 0 , -.69 , -1830.69 -DATA 56 , 0 , .39 , 5486.39 -DATA 57 , 0 , .9 , 22405.9 -DATA 58 , 0 , .8 , 30809.8 -DATA 59 , 0 , -.6 , -28930.6 -DATA 60 , 0 , -.53 , -6014.53 -DATA 61 , 0 , .6 , 17414.6 -DATA 62 , 0 , -.3 , -10538.3 -DATA 63 , 0 , -.3 , -17536.3 -DATA 64 , 0 , -.62 , -8856.62 -DATA 65 , 0 , -.12 , -5140.12 -DATA 66 , 0 , -.31 , -8595.31 -DATA 67 , 0 , -.87 , -3382.87 -DATA 68 , 0 , -.07 , -5002.07 -DATA 69 , 0 , -.72 , -5800.72 -DATA 70 , 0 , .4 , 29686.4 -DATA 71 , 0 , 0 , 2571. -DATA 72 , 0 , 0 , 31091. -DATA 73 , 0 , 0 , 14819. -DATA 74 , 0 , .9 , 3790.9 -DATA 75 , 0 , 0 , -4.2981E+9 -DATA 76 , 0 , 0 , -7.05453E+8 -DATA 77 , 0 , 0 , -3.10179E+9 -DATA 78 , 0 , 0 , -4.86159E+9 -DATA 79 , 0 , 0 , -8.62908E+8 -DATA 80 , 0 , 0 , -3.4101E+9 -DATA 81 , 0 , 0 , 3.3889E+9 -DATA 82 , 0 , 0 , 2.49826E+9 -DATA 83 , 0 , 0 , 2.3491E+9 -DATA 84 , 0 , 0 , 1.94745E+8 -DATA 85 , 0 , 0 , 2.02475E+9 -DATA 86 , 0 , 0 , -2.26748E+9 -DATA 87 , 0 , 0 , -2.10587E+9 -DATA 88 , 0 , 0 , 4.23585E+9 -DATA 89 , 0 , 0 , -2.66524E+9 -DATA 90 , 0 , 0 , 4.01052E+9 -DATA 91 , 0 , 0 , -4.87912E+9 -DATA 92 , 0 , 0 , 1.77556E+9 -DATA 93 , 0 , 0 , 2.87705E+8 -DATA 94 , 0 , 0 , 1.99977E+8 -DATA 95 , 0 , 0 , -3.39941E+9 -DATA 96 , 0 , 0 , -3.49119E+9 -DATA 97 , 0 , 0 , -2.86324E+9 -DATA 98 , 0 , 0 , 4.20418E+9 -DATA 99 , 0 , 0 , -3.1518E+9 -DATA 100 , 0 , 0 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_FP_X_N.run b/bwbtest/NBS2X/F_FP_X_N.run deleted file mode 100644 index 895ebce..0000000 --- a/bwbtest/NBS2X/F_FP_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 0 X= 1 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 0 X=-1 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .4 X= .4 - F= 0 N= .4 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.4 X=-.4 - F= 0 N=-.4 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .6 X= .6 - F= 0 N= .6 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.6 X=-.6 - F= 0 N=-.6 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 0 X= 254 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 0 X= 255 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 0 X= 256 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 0 X= 32000 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.227229 X=-.227229 - F= 0 N=-.227229 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.239157 X=-.239157 - F= 0 N=-.239157 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.213586 X=-.213586 - F= 0 N=-.213586 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .274675 X= .274675 - F= 0 N= .274675 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .169766 X= .169766 - F= 0 N= .169766 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .318766 X= .318766 - F= 0 N= .318766 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06658E-2 X= 2.06658E-2 - F= 0 N= 2.06658E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .188257 X= .188257 - F= 0 N= .188257 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.277537 X=-.277537 - F= 0 N=-.277537 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.481303 X=-.481303 - F= 0 N=-.481303 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .43556 X= .43556 - F= 0 N= .43556 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.210971 X=-.210971 - F= 0 N=-.210971 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.455216 X=-.455216 - F= 0 N=-.455216 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-.907 X=-110.907 - F= 0 N=-.907 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= .632 X= 105.632 - F= 0 N= .632 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-.341 X=-114.341 - F= 0 N=-.341 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= .706 X= 109.706 - F= 0 N= .706 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= .198 X= 109.198 - F= 0 N= .198 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= .8773 X= 85.8773 - F= 0 N= .8773 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-.3548 X=-58.3548 - F= 0 N=-.3548 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= .6397 X= 29.6397 - F= 0 N= .6397 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-.36 X=-108.36 - F= 0 N=-.36 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-.5199 X=-46.5199 - F= 0 N=-.5199 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= .521 X= 112.521 - F= 0 N= .521 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= .4151 X= 45.4151 - F= 0 N= .4151 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= .129 X= 101.129 - F= 0 N= .129 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= .0473 X= 65.0473 - F= 0 N= .0473 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= .4012 X= 48.4012 - F= 0 N= .4012 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= .294 X= 122.294 - F= 0 N= .294 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-.1094 X=-56.1094 - F= 0 N=-.1094 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-.087 X=-121.087 - F= 0 N=-.087 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-.517 X=-123.517 - F= 0 N=-.517 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-.6301 X=-97.6301 - F= 0 N=-.6301 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-.0001 X=-64.0001 - F= 0 N=-.0001 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-.6888 X=-25.6888 - F= 0 N=-.6888 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= .8006 X= 14.8006 - F= 0 N= .8006 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-.0877 X=-61.0877 - F= 0 N=-.0877 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-.6381 X=-66.6381 - F= 0 N=-.6381 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-.5 X=-5476.5 - F= 0 N=-.5 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-.3 X=-21210.3 - F= 0 N=-.3 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-.2 X=-28757.2 - F= 0 N=-.2 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-.2 X=-28732.2 - F= 0 N=-.2 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= .3 X= 12730.3 - F= 0 N= .3 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-.69 X=-1830.69 - F= 0 N=-.69 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= .39 X= 5486.39 - F= 0 N= .39 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= .9 X= 22405.9 - F= 0 N= .9 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= .8 X= 30809.8 - F= 0 N= .8 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-.6 X=-28930.6 - F= 0 N=-.6 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-.53 X=-6014.53 - F= 0 N=-.53 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= .6 X= 17414.6 - F= 0 N= .6 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-.3 X=-10538.3 - F= 0 N=-.3 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-.3 X=-17536.3 - F= 0 N=-.3 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-.62 X=-8856.62 - F= 0 N=-.62 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-.12 X=-5140.12 - F= 0 N=-.12 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-.31 X=-8595.31 - F= 0 N=-.31 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-.87 X=-3382.87 - F= 0 N=-.87 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-.07 X=-5002.07 - F= 0 N=-.07 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-.72 X=-5800.72 - F= 0 N=-.72 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= .4 X= 29686.4 - F= 0 N= .4 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 0 X= 2571 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 0 X= 31091 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 0 X= 14819 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= .9 X= 3790.9 - F= 0 N= .9 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 0 X=-4.2981E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 0 X=-7.05453E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 0 X=-3.10179E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 0 X=-4.86159E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 0 X=-8.62908E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 0 X=-3.4101E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 0 X= 3.3889E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 0 X= 2.49826E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 0 X= 2.3491E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 0 X= 1.94745E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 0 X= 2.02475E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 0 X=-2.26748E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 0 X=-2.10587E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 0 X= 4.23585E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 0 X=-2.66524E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 0 X= 4.01052E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 0 X=-4.87912E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 0 X= 1.77556E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 0 X= 2.87705E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 0 X= 1.99977E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 0 X=-3.39941E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 0 X=-3.49119E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 0 X=-2.86324E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 0 X= 4.20418E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 0 X=-3.1518E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 0 X= 4.60615E+9 - F= 0 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_FRE_A_N.BAS b/bwbtest/NBS2X/F_FRE_A_N.BAS deleted file mode 100644 index 1bb3aea..0000000 --- a/bwbtest/NBS2X/F_FRE_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:23 -REM FILENAME: F_FRE_A_N.BAS -REM SYNTAX: N = FRE( A$ ) -REM UNIQUEID: F_FRE_A_N -REM FUNCTION: FRE -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = FRE( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 32000 , "" -DATA 2 , 0 , 32000 , " " -DATA 3 , 0 , 32000 , "3" -DATA 4 , 0 , 32000 , "z" -DATA 5 , 0 , 32000 , " " -DATA 6 , 0 , 32000 , " 3" -DATA 7 , 0 , 32000 , " z" -DATA 8 , 0 , 32000 , "3 " -DATA 9 , 0 , 32000 , "z " -DATA 10 , 0 , 32000 , " 3 " -DATA 11 , 0 , 32000 , " z " -DATA 12 , 0 , 32000 , " LLLL" -DATA 13 , 0 , 32000 , " '' " -DATA 14 , 0 , 32000 , " oo " -DATA 15 , 0 , 32000 , " 00 " -DATA 16 , 0 , 32000 , " \\\\ " -DATA 17 , 0 , 32000 , " lllll " -DATA 18 , 0 , 32000 , " uuuu " -DATA 19 , 0 , 32000 , " a " -DATA 20 , 0 , 32000 , " " -DATA 21 , 0 , 32000 , " hh " -DATA 22 , 0 , 32000 , " h " -DATA 23 , 0 , 32000 , " )" -DATA 24 , 0 , 32000 , " 5 " -DATA 25 , 0 , 32000 , " 2 " -DATA 26 , 0 , 32000 , " - " -DATA 27 , 0 , 32000 , "dd " -DATA 28 , 0 , 32000 , " tttt " -DATA 29 , 0 , 32000 , " :::: " -DATA 30 , 0 , 32000 , " ___ " -DATA 31 , 0 , 32000 , " " -DATA 32 , 0 , 32000 , " " -DATA 33 , 0 , 32000 , " _____ " -DATA 34 , 0 , 32000 , " S " -DATA 35 , 0 , 32000 , " FFFF " -DATA 36 , 0 , 32000 , " kkk" -DATA 37 , 0 , 32000 , " NNNN " -DATA 38 , 0 , 32000 , " mmmm " -DATA 39 , 0 , 32000 , " ,,,,, " -DATA 40 , 0 , 32000 , "OO " -DATA 41 , 0 , 32000 , " HHHH " -DATA 42 , 0 , 32000 , " < " -DATA 43 , 0 , 32000 , " j " -DATA 44 , 0 , 32000 , " yyyy " -DATA 45 , 0 , 32000 , " +++ " -DATA 46 , 0 , 32000 , "o " -DATA 47 , 0 , 32000 , " ((" -DATA 48 , 0 , 32000 , " uu " -DATA 49 , 0 , 32000 , " 00 " -DATA 50 , 0 , 32000 , " HH " -DATA 51 , 0 , 32000 , " " -DATA 52 , 0 , 32000 , " G " -DATA 53 , 0 , 32000 , " {{{{ " -DATA 54 , 0 , 32000 , " ]]] " -DATA 55 , 0 , 32000 , "CCC" -DATA 56 , 0 , 32000 , " 44 " -DATA 57 , 0 , 32000 , "^^ " -DATA 58 , 0 , 32000 , " QQ " -DATA 59 , 0 , 32000 , " FFFF " -DATA 60 , 0 , 32000 , " n " -DATA 61 , 0 , 32000 , " hh " -DATA 62 , 0 , 32000 , "555 " -DATA 63 , 0 , 32000 , " YYYY " -DATA 64 , 0 , 32000 , " w " -DATA 65 , 0 , 32000 , "MMMM " -DATA 66 , 0 , 32000 , " JJJJ " -DATA 67 , 0 , 32000 , " %% " -DATA 68 , 0 , 32000 , " * " -DATA 69 , 0 , 32000 , " @@@ " -DATA 70 , 0 , 32000 , "I " -DATA 71 , 0 , 32000 , " ss " -DATA 72 , 0 , 32000 , " f " -DATA 73 , 0 , 32000 , " D " -DATA 74 , 0 , 32000 , "### " -DATA 75 , 0 , 32000 , " ' " -DATA 76 , 0 , 32000 , " dd " -DATA 77 , 0 , 32000 , " TT " -DATA 78 , 0 , 32000 , " vvv " -DATA 79 , 0 , 32000 , " X " -DATA 80 , 0 , 32000 , " % " -DATA 81 , 0 , 32000 , " " -DATA 82 , 0 , 32000 , " 5555 " -DATA 83 , 0 , 32000 , "FFFF " -DATA 84 , 0 , 32000 , " %% " -DATA 85 , 0 , 32000 , " " -DATA 86 , 0 , 32000 , " ~~~~ " -DATA 87 , 0 , 32000 , " || " -DATA 88 , 0 , 32000 , " SSS " -DATA 89 , 0 , 32000 , " 6666 " -DATA 90 , 0 , 32000 , " ww " -DATA 91 , 0 , 32000 , " 1111 " -DATA 92 , 0 , 32000 , " K " -DATA 93 , 0 , 32000 , " ttttt " -DATA 94 , 0 , 32000 , " OOOOO " -DATA 95 , 0 , 32000 , " E " -DATA 96 , 0 , 32000 , " PPPPP " -DATA 97 , 0 , 32000 , " == " -DATA 98 , 0 , 32000 , " VVVV " -DATA 99 , 0 , 32000 , " c " -DATA 100 , 0 , 32000 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_FRE_A_N.run b/bwbtest/NBS2X/F_FRE_A_N.run deleted file mode 100644 index 1696aa8..0000000 --- a/bwbtest/NBS2X/F_FRE_A_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 32000 A$=[] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 32000 A$=[ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 32000 A$=[3] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 32000 A$=[z] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 32000 A$=[ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 32000 A$=[ 3] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 32000 A$=[ z] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 32000 A$=[3 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 32000 A$=[z ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 32000 A$=[ 3 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 A$=[ z ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 32000 A$=[ LLLL] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 32000 A$=[ '' ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 32000 A$=[ oo ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 32000 A$=[ 00 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 32000 A$=[ \\\\ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 32000 A$=[ lllll ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 32000 A$=[ uuuu ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 32000 A$=[ a ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 32000 A$=[ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 32000 A$=[ hh ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 32000 A$=[ h ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 32000 A$=[ )] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 32000 A$=[ 5 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 32000 A$=[ 2 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 32000 A$=[ - ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 32000 A$=[dd ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 32000 A$=[ tttt ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 32000 A$=[ :::: ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 32000 A$=[ ___ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 32000 A$=[ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 32000 A$=[ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 32000 A$=[ _____ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 32000 A$=[ S ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 32000 A$=[ FFFF ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 32000 A$=[ kkk] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 32000 A$=[ NNNN ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 32000 A$=[ mmmm ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 32000 A$=[ ,,,,, ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 32000 A$=[OO ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 32000 A$=[ HHHH ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 32000 A$=[ < ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 32000 A$=[ j ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 32000 A$=[ yyyy ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 32000 A$=[ +++ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 32000 A$=[o ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 32000 A$=[ ((] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 32000 A$=[ uu ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 32000 A$=[ 00 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 32000 A$=[ HH ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 32000 A$=[ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 32000 A$=[ G ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 32000 A$=[ {{{{ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 32000 A$=[ ]]] ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 32000 A$=[CCC] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 32000 A$=[ 44 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 32000 A$=[^^ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 32000 A$=[ QQ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 32000 A$=[ FFFF ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 32000 A$=[ n ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 32000 A$=[ hh ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 32000 A$=[555 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 32000 A$=[ YYYY ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 32000 A$=[ w ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 32000 A$=[MMMM ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 32000 A$=[ JJJJ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 32000 A$=[ %% ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 32000 A$=[ * ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 32000 A$=[ @@@ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 32000 A$=[I ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 32000 A$=[ ss ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 32000 A$=[ f ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 32000 A$=[ D ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 32000 A$=[### ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 32000 A$=[ ' ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 32000 A$=[ dd ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 32000 A$=[ TT ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 32000 A$=[ vvv ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 32000 A$=[ X ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 32000 A$=[ % ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 32000 A$=[ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 32000 A$=[ 5555 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 32000 A$=[FFFF ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 32000 A$=[ %% ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 32000 A$=[ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 32000 A$=[ ~~~~ ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 32000 A$=[ || ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 32000 A$=[ SSS ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 32000 A$=[ 6666 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 32000 A$=[ ww ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 32000 A$=[ 1111 ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 32000 A$=[ K ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 32000 A$=[ ttttt ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 32000 A$=[ OOOOO ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 32000 A$=[ E ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 32000 A$=[ PPPPP ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 32000 A$=[ == ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 32000 A$=[ VVVV ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 32000 A$=[ c ] - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 32000 A$=[ yyyy ] - F= 0 N= 32000 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_FRE_X_N.BAS b/bwbtest/NBS2X/F_FRE_X_N.BAS deleted file mode 100644 index 66a34c5..0000000 --- a/bwbtest/NBS2X/F_FRE_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:23 -REM FILENAME: F_FRE_X_N.BAS -REM SYNTAX: N = FRE( X ) -REM UNIQUEID: F_FRE_X_N -REM FUNCTION: FRE -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = FRE( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 32000 , 0 -DATA 2 , 0 , 32000 , 1 -DATA 3 , 0 , 32000 , -1 -DATA 4 , 0 , 32000 , .4 -DATA 5 , 0 , 32000 , -.4 -DATA 6 , 0 , 32000 , .6 -DATA 7 , 0 , 32000 , -.6 -DATA 8 , 0 , 32000 , 254 -DATA 9 , 0 , 32000 , 255 -DATA 10 , 0 , 32000 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , 32000 , -.227229 -DATA 13 , 0 , 32000 , -.239157 -DATA 14 , 0 , 32000 , -.213586 -DATA 15 , 0 , 32000 , .274675 -DATA 16 , 0 , 32000 , .169766 -DATA 17 , 0 , 32000 , .318766 -DATA 18 , 0 , 32000 , 2.06658E-2 -DATA 19 , 0 , 32000 , .188257 -DATA 20 , 0 , 32000 , -.277537 -DATA 21 , 0 , 32000 , -.481303 -DATA 22 , 0 , 32000 , .43556 -DATA 23 , 0 , 32000 , -.210971 -DATA 24 , 0 , 32000 , -.455216 -DATA 25 , 0 , 32000 , -110.907 -DATA 26 , 0 , 32000 , 105.632 -DATA 27 , 0 , 32000 , -114.341 -DATA 28 , 0 , 32000 , 109.706 -DATA 29 , 0 , 32000 , 109.198 -DATA 30 , 0 , 32000 , 85.8773 -DATA 31 , 0 , 32000 , -58.3548 -DATA 32 , 0 , 32000 , 29.6397 -DATA 33 , 0 , 32000 , -108.36 -DATA 34 , 0 , 32000 , -46.5199 -DATA 35 , 0 , 32000 , 112.521 -DATA 36 , 0 , 32000 , 45.4151 -DATA 37 , 0 , 32000 , 101.129 -DATA 38 , 0 , 32000 , 65.0473 -DATA 39 , 0 , 32000 , 48.4012 -DATA 40 , 0 , 32000 , 122.294 -DATA 41 , 0 , 32000 , -56.1094 -DATA 42 , 0 , 32000 , -121.087 -DATA 43 , 0 , 32000 , -123.517 -DATA 44 , 0 , 32000 , -97.6301 -DATA 45 , 0 , 32000 , -64.0001 -DATA 46 , 0 , 32000 , -25.6888 -DATA 47 , 0 , 32000 , 14.8006 -DATA 48 , 0 , 32000 , -61.0877 -DATA 49 , 0 , 32000 , -66.6381 -DATA 50 , 0 , 32000 , -5476.5 -DATA 51 , 0 , 32000 , -21210.3 -DATA 52 , 0 , 32000 , -28757.2 -DATA 53 , 0 , 32000 , -28732.2 -DATA 54 , 0 , 32000 , 12730.3 -DATA 55 , 0 , 32000 , -1830.69 -DATA 56 , 0 , 32000 , 5486.39 -DATA 57 , 0 , 32000 , 22405.9 -DATA 58 , 0 , 32000 , 30809.8 -DATA 59 , 0 , 32000 , -28930.6 -DATA 60 , 0 , 32000 , -6014.53 -DATA 61 , 0 , 32000 , 17414.6 -DATA 62 , 0 , 32000 , -10538.3 -DATA 63 , 0 , 32000 , -17536.3 -DATA 64 , 0 , 32000 , -8856.62 -DATA 65 , 0 , 32000 , -5140.12 -DATA 66 , 0 , 32000 , -8595.31 -DATA 67 , 0 , 32000 , -3382.87 -DATA 68 , 0 , 32000 , -5002.07 -DATA 69 , 0 , 32000 , -5800.72 -DATA 70 , 0 , 32000 , 29686.4 -DATA 71 , 0 , 32000 , 2571. -DATA 72 , 0 , 32000 , 31091. -DATA 73 , 0 , 32000 , 14819. -DATA 74 , 0 , 32000 , 3790.9 -DATA 75 , 0 , 32000 , -4.2981E+9 -DATA 76 , 0 , 32000 , -7.05453E+8 -DATA 77 , 0 , 32000 , -3.10179E+9 -DATA 78 , 0 , 32000 , -4.86159E+9 -DATA 79 , 0 , 32000 , -8.62908E+8 -DATA 80 , 0 , 32000 , -3.4101E+9 -DATA 81 , 0 , 32000 , 3.3889E+9 -DATA 82 , 0 , 32000 , 2.49826E+9 -DATA 83 , 0 , 32000 , 2.3491E+9 -DATA 84 , 0 , 32000 , 1.94745E+8 -DATA 85 , 0 , 32000 , 2.02475E+9 -DATA 86 , 0 , 32000 , -2.26748E+9 -DATA 87 , 0 , 32000 , -2.10587E+9 -DATA 88 , 0 , 32000 , 4.23585E+9 -DATA 89 , 0 , 32000 , -2.66524E+9 -DATA 90 , 0 , 32000 , 4.01052E+9 -DATA 91 , 0 , 32000 , -4.87912E+9 -DATA 92 , 0 , 32000 , 1.77556E+9 -DATA 93 , 0 , 32000 , 2.87705E+8 -DATA 94 , 0 , 32000 , 1.99977E+8 -DATA 95 , 0 , 32000 , -3.39941E+9 -DATA 96 , 0 , 32000 , -3.49119E+9 -DATA 97 , 0 , 32000 , -2.86324E+9 -DATA 98 , 0 , 32000 , 4.20418E+9 -DATA 99 , 0 , 32000 , -3.1518E+9 -DATA 100 , 0 , 32000 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_FRE_X_N.run b/bwbtest/NBS2X/F_FRE_X_N.run deleted file mode 100644 index 3f23161..0000000 --- a/bwbtest/NBS2X/F_FRE_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 32000 X= 0 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 32000 X= 1 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 32000 X=-1 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 32000 X= .4 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 32000 X=-.4 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 32000 X= .6 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 32000 X=-.6 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 32000 X= 254 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 32000 X= 255 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 32000 X= 256 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 32000 X=-.227229 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 32000 X=-.239157 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 32000 X=-.213586 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 32000 X= .274675 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 32000 X= .169766 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 32000 X= .318766 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 32000 X= 2.06658E-2 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 32000 X= .188257 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 32000 X=-.277537 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 32000 X=-.481303 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 32000 X= .43556 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 32000 X=-.210971 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 32000 X=-.455216 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 32000 X=-110.907 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 32000 X= 105.632 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 32000 X=-114.341 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 32000 X= 109.706 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 32000 X= 109.198 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 32000 X= 85.8773 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 32000 X=-58.3548 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 32000 X= 29.6397 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 32000 X=-108.36 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 32000 X=-46.5199 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 32000 X= 112.521 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 32000 X= 45.4151 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 32000 X= 101.129 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 32000 X= 65.0473 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 32000 X= 48.4012 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 32000 X= 122.294 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 32000 X=-56.1094 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 32000 X=-121.087 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 32000 X=-123.517 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 32000 X=-97.6301 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 32000 X=-64.0001 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 32000 X=-25.6888 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 32000 X= 14.8006 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 32000 X=-61.0877 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 32000 X=-66.6381 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 32000 X=-5476.5 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 32000 X=-21210.3 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 32000 X=-28757.2 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 32000 X=-28732.2 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 32000 X= 12730.3 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 32000 X=-1830.69 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 32000 X= 5486.39 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 32000 X= 22405.9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 32000 X= 30809.8 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 32000 X=-28930.6 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 32000 X=-6014.53 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 32000 X= 17414.6 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 32000 X=-10538.3 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 32000 X=-17536.3 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 32000 X=-8856.62 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 32000 X=-5140.12 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 32000 X=-8595.31 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 32000 X=-3382.87 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 32000 X=-5002.07 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 32000 X=-5800.72 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 32000 X= 29686.4 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 32000 X= 2571 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 32000 X= 31091 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 32000 X= 14819 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 32000 X= 3790.9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 32000 X=-4.2981E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 32000 X=-7.05453E+8 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 32000 X=-3.10179E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 32000 X=-4.86159E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 32000 X=-8.62908E+8 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 32000 X=-3.4101E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 32000 X= 3.3889E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 32000 X= 2.49826E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 32000 X= 2.3491E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 32000 X= 1.94745E+8 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 32000 X= 2.02475E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 32000 X=-2.26748E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 32000 X=-2.10587E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 32000 X= 4.23585E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 32000 X=-2.66524E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 32000 X= 4.01052E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 32000 X=-4.87912E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 32000 X= 1.77556E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 32000 X= 2.87705E+8 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 32000 X= 1.99977E+8 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 32000 X=-3.39941E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 32000 X=-3.49119E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 32000 X=-2.86324E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 32000 X= 4.20418E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 32000 X=-3.1518E+9 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 32000 X= 4.60615E+9 - F= 0 N= 32000 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_HEX_X_S.BAS b/bwbtest/NBS2X/F_HEX_X_S.BAS deleted file mode 100644 index 780aa46..0000000 --- a/bwbtest/NBS2X/F_HEX_X_S.BAS +++ /dev/null @@ -1,159 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/23/2017 20:04:47 -REM FILENAME: F_HEX_X_S.BAS -REM SYNTAX: S$ = HEX$( X ) -REM UNIQUEID: F_HEX_X_S -REM FUNCTION: HEX$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = HEX$( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "0", 0 -DATA 2 , 0 , "1", 1 -DATA 3 , 0 , "FFFFFFFF", -1 -DATA 4 , 0 , "0", .4 -DATA 5 , 0 , "0", -.4 -DATA 6 , 0 , "1", .6 -DATA 7 , 0 , "FFFFFFFF", -.6 -DATA 8 , 0 , "FE", 254 -DATA 9 , 0 , "FF", 255 -DATA 10 , 0 , "100", 256 -DATA 11 , 0 , "7D00", 32000 -DATA 12 , 0 , "0", -.227229 -DATA 13 , 0 , "0", -.239157 -DATA 14 , 0 , "0", -.213586 -DATA 15 , 0 , "0", .274675 -DATA 16 , 0 , "0", .169766 -DATA 17 , 0 , "0", .318766 -DATA 18 , 0 , "0", 2.06658E-2 -DATA 19 , 0 , "0", .188257 -DATA 20 , 0 , "0", -.277537 -DATA 21 , 0 , "0", -.481303 -DATA 22 , 0 , "0", .43556 -DATA 23 , 0 , "0", -.210971 -DATA 24 , 0 , "0", -.455216 -DATA 25 , 0 , "FFFFFF91", -110.907 -DATA 26 , 0 , "6A", 105.632 -DATA 27 , 0 , "FFFFFF8E", -114.341 -DATA 28 , 0 , "6E", 109.706 -DATA 29 , 0 , "6D", 109.198 -DATA 30 , 0 , "56", 85.8773 -DATA 31 , 0 , "FFFFFFC6", -58.3548 -DATA 32 , 0 , "1E", 29.6397 -DATA 33 , 0 , "FFFFFF94", -108.36 -DATA 34 , 0 , "FFFFFFD1", -46.5199 -DATA 35 , 0 , "71", 112.521 -DATA 36 , 0 , "2D", 45.4151 -DATA 37 , 0 , "65", 101.129 -DATA 38 , 0 , "41", 65.0473 -DATA 39 , 0 , "30", 48.4012 -DATA 40 , 0 , "7A", 122.294 -DATA 41 , 0 , "FFFFFFC8", -56.1094 -DATA 42 , 0 , "FFFFFF87", -121.087 -DATA 43 , 0 , "FFFFFF84", -123.517 -DATA 44 , 0 , "FFFFFF9E", -97.6301 -DATA 45 , 0 , "FFFFFFC0", -64.0001 -DATA 46 , 0 , "FFFFFFE6", -25.6888 -DATA 47 , 0 , "F", 14.8006 -DATA 48 , 0 , "FFFFFFC3", -61.0877 -DATA 49 , 0 , "FFFFFFBD", -66.6381 -DATA 50 , 0 , "FFFFEA9C", -5476.5 -DATA 51 , 0 , "FFFFAD26", -21210.3 -DATA 52 , 0 , "FFFF8FAB", -28757.2 -DATA 53 , 0 , "FFFF8FC4", -28732.2 -DATA 54 , 0 , "31BA", 12730.3 -DATA 55 , 0 , "FFFFF8D9", -1830.69 -DATA 56 , 0 , "156E", 5486.39 -DATA 57 , 0 , "5786", 22405.9 -DATA 58 , 0 , "785A", 30809.8 -DATA 59 , 0 , "FFFF8EFD", -28930.6 -DATA 60 , 0 , "FFFFE881", -6014.53 -DATA 61 , 0 , "4407", 17414.6 -DATA 62 , 0 , "FFFFD6D6", -10538.3 -DATA 63 , 0 , "FFFFBB80", -17536.3 -DATA 64 , 0 , "FFFFDD67", -8856.62 -DATA 65 , 0 , "FFFFEBEC", -5140.12 -DATA 66 , 0 , "FFFFDE6D", -8595.31 -DATA 67 , 0 , "FFFFF2C9", -3382.87 -DATA 68 , 0 , "FFFFEC76", -5002.07 -DATA 69 , 0 , "FFFFE957", -5800.72 -DATA 70 , 0 , "73F6", 29686.4 -DATA 71 , 0 , "A0B", 2571. -DATA 72 , 0 , "7973", 31091. -DATA 73 , 0 , "39E3", 14819. -DATA 74 , 0 , "ECF", 3790.9 -DATA 75 , 1 , "", -4.2981E+9 -DATA 76 , 0 , "D5F3A438", -7.05453E+8 -DATA 77 , 1 , "", -3.10179E+9 -DATA 78 , 1 , "", -4.86159E+9 -DATA 79 , 0 , "CC9111A0", -8.62908E+8 -DATA 80 , 1 , "", -3.4101E+9 -DATA 81 , 1 , "", 3.3889E+9 -DATA 82 , 1 , "", 2.49826E+9 -DATA 83 , 1 , "", 2.3491E+9 -DATA 84 , 0 , "B9B92A8", 1.94745E+8 -DATA 85 , 0 , "78AF3BB0", 2.02475E+9 -DATA 86 , 1 , "", -2.26748E+9 -DATA 87 , 0 , "827AF950", -2.10587E+9 -DATA 88 , 1 , "", 4.23585E+9 -DATA 89 , 1 , "", -2.66524E+9 -DATA 90 , 1 , "", 4.01052E+9 -DATA 91 , 1 , "", -4.87912E+9 -DATA 92 , 0 , "69D4E540", 1.77556E+9 -DATA 93 , 0 , "112607A8", 2.87705E+8 -DATA 94 , 0 , "BEB6828", 1.99977E+8 -DATA 95 , 1 , "", -3.39941E+9 -DATA 96 , 1 , "", -3.49119E+9 -DATA 97 , 1 , "", -2.86324E+9 -DATA 98 , 1 , "", 4.20418E+9 -DATA 99 , 1 , "", -3.1518E+9 -DATA 100 , 1 , "", 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_HEX_X_S.run b/bwbtest/NBS2X/F_HEX_X_S.run deleted file mode 100644 index ccee010..0000000 --- a/bwbtest/NBS2X/F_HEX_X_S.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R$=[0] X= 0 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[1] X= 1 - F= 0 S$=[1] -*** TEST PASSED *** -TESTCASE # 3 E= 0 R$=[FFFFFFFF] X=-1 - F= 0 S$=[FFFFFFFF] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[0] X= .4 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[0] X=-.4 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[1] X= .6 - F= 0 S$=[1] -*** TEST PASSED *** -TESTCASE # 7 E= 0 R$=[FFFFFFFF] X=-.6 - F= 0 S$=[FFFFFFFF] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[FE] X= 254 - F= 0 S$=[FE] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[FF] X= 255 - F= 0 S$=[FF] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[100] X= 256 - F= 0 S$=[100] -*** TEST PASSED *** -TESTCASE # 11 E= 0 R$=[7D00] X= 32000 - F= 0 S$=[7D00] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[0] X=-.227229 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[0] X=-.239157 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[0] X=-.213586 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[0] X= .274675 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[0] X= .169766 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[0] X= .318766 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[0] X= 2.06658E-2 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[0] X= .188257 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[0] X=-.277537 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[0] X=-.481303 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[0] X= .43556 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[0] X=-.210971 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[0] X=-.455216 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 25 E= 0 R$=[FFFFFF91] X=-110.907 - F= 0 S$=[FFFFFF91] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[6A] X= 105.632 - F= 0 S$=[6A] -*** TEST PASSED *** -TESTCASE # 27 E= 0 R$=[FFFFFF8E] X=-114.341 - F= 0 S$=[FFFFFF8E] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[6E] X= 109.706 - F= 0 S$=[6E] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[6D] X= 109.198 - F= 0 S$=[6D] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[56] X= 85.8773 - F= 0 S$=[56] -*** TEST PASSED *** -TESTCASE # 31 E= 0 R$=[FFFFFFC6] X=-58.3548 - F= 0 S$=[FFFFFFC6] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[1E] X= 29.6397 - F= 0 S$=[1E] -*** TEST PASSED *** -TESTCASE # 33 E= 0 R$=[FFFFFF94] X=-108.36 - F= 0 S$=[FFFFFF94] -*** TEST PASSED *** -TESTCASE # 34 E= 0 R$=[FFFFFFD1] X=-46.5199 - F= 0 S$=[FFFFFFD1] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[71] X= 112.521 - F= 0 S$=[71] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[2D] X= 45.4151 - F= 0 S$=[2D] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[65] X= 101.129 - F= 0 S$=[65] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[41] X= 65.0473 - F= 0 S$=[41] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[30] X= 48.4012 - F= 0 S$=[30] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[7A] X= 122.294 - F= 0 S$=[7A] -*** TEST PASSED *** -TESTCASE # 41 E= 0 R$=[FFFFFFC8] X=-56.1094 - F= 0 S$=[FFFFFFC8] -*** TEST PASSED *** -TESTCASE # 42 E= 0 R$=[FFFFFF87] X=-121.087 - F= 0 S$=[FFFFFF87] -*** TEST PASSED *** -TESTCASE # 43 E= 0 R$=[FFFFFF84] X=-123.517 - F= 0 S$=[FFFFFF84] -*** TEST PASSED *** -TESTCASE # 44 E= 0 R$=[FFFFFF9E] X=-97.6301 - F= 0 S$=[FFFFFF9E] -*** TEST PASSED *** -TESTCASE # 45 E= 0 R$=[FFFFFFC0] X=-64.0001 - F= 0 S$=[FFFFFFC0] -*** TEST PASSED *** -TESTCASE # 46 E= 0 R$=[FFFFFFE6] X=-25.6888 - F= 0 S$=[FFFFFFE6] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[F] X= 14.8006 - F= 0 S$=[F] -*** TEST PASSED *** -TESTCASE # 48 E= 0 R$=[FFFFFFC3] X=-61.0877 - F= 0 S$=[FFFFFFC3] -*** TEST PASSED *** -TESTCASE # 49 E= 0 R$=[FFFFFFBD] X=-66.6381 - F= 0 S$=[FFFFFFBD] -*** TEST PASSED *** -TESTCASE # 50 E= 0 R$=[FFFFEA9C] X=-5476.5 - F= 0 S$=[FFFFEA9C] -*** TEST PASSED *** -TESTCASE # 51 E= 0 R$=[FFFFAD26] X=-21210.3 - F= 0 S$=[FFFFAD26] -*** TEST PASSED *** -TESTCASE # 52 E= 0 R$=[FFFF8FAB] X=-28757.2 - F= 0 S$=[FFFF8FAB] -*** TEST PASSED *** -TESTCASE # 53 E= 0 R$=[FFFF8FC4] X=-28732.2 - F= 0 S$=[FFFF8FC4] -*** TEST PASSED *** -TESTCASE # 54 E= 0 R$=[31BA] X= 12730.3 - F= 0 S$=[31BA] -*** TEST PASSED *** -TESTCASE # 55 E= 0 R$=[FFFFF8D9] X=-1830.69 - F= 0 S$=[FFFFF8D9] -*** TEST PASSED *** -TESTCASE # 56 E= 0 R$=[156E] X= 5486.39 - F= 0 S$=[156E] -*** TEST PASSED *** -TESTCASE # 57 E= 0 R$=[5786] X= 22405.9 - F= 0 S$=[5786] -*** TEST PASSED *** -TESTCASE # 58 E= 0 R$=[785A] X= 30809.8 - F= 0 S$=[785A] -*** TEST PASSED *** -TESTCASE # 59 E= 0 R$=[FFFF8EFD] X=-28930.6 - F= 0 S$=[FFFF8EFD] -*** TEST PASSED *** -TESTCASE # 60 E= 0 R$=[FFFFE881] X=-6014.53 - F= 0 S$=[FFFFE881] -*** TEST PASSED *** -TESTCASE # 61 E= 0 R$=[4407] X= 17414.6 - F= 0 S$=[4407] -*** TEST PASSED *** -TESTCASE # 62 E= 0 R$=[FFFFD6D6] X=-10538.3 - F= 0 S$=[FFFFD6D6] -*** TEST PASSED *** -TESTCASE # 63 E= 0 R$=[FFFFBB80] X=-17536.3 - F= 0 S$=[FFFFBB80] -*** TEST PASSED *** -TESTCASE # 64 E= 0 R$=[FFFFDD67] X=-8856.62 - F= 0 S$=[FFFFDD67] -*** TEST PASSED *** -TESTCASE # 65 E= 0 R$=[FFFFEBEC] X=-5140.12 - F= 0 S$=[FFFFEBEC] -*** TEST PASSED *** -TESTCASE # 66 E= 0 R$=[FFFFDE6D] X=-8595.31 - F= 0 S$=[FFFFDE6D] -*** TEST PASSED *** -TESTCASE # 67 E= 0 R$=[FFFFF2C9] X=-3382.87 - F= 0 S$=[FFFFF2C9] -*** TEST PASSED *** -TESTCASE # 68 E= 0 R$=[FFFFEC76] X=-5002.07 - F= 0 S$=[FFFFEC76] -*** TEST PASSED *** -TESTCASE # 69 E= 0 R$=[FFFFE957] X=-5800.72 - F= 0 S$=[FFFFE957] -*** TEST PASSED *** -TESTCASE # 70 E= 0 R$=[73F6] X= 29686.4 - F= 0 S$=[73F6] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[A0B] X= 2571 - F= 0 S$=[A0B] -*** TEST PASSED *** -TESTCASE # 72 E= 0 R$=[7973] X= 31091 - F= 0 S$=[7973] -*** TEST PASSED *** -TESTCASE # 73 E= 0 R$=[39E3] X= 14819 - F= 0 S$=[39E3] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[ECF] X= 3790.9 - F= 0 S$=[ECF] -*** TEST PASSED *** -TESTCASE # 75 E= 1 R$=[] X=-4.2981E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 76 E= 0 R$=[D5F3A438] X=-7.05453E+8 - F= 0 S$=[D5F3A438] -*** TEST PASSED *** -TESTCASE # 77 E= 1 R$=[] X=-3.10179E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 78 E= 1 R$=[] X=-4.86159E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 79 E= 0 R$=[CC9111A0] X=-8.62908E+8 - F= 0 S$=[CC9111A0] -*** TEST PASSED *** -TESTCASE # 80 E= 1 R$=[] X=-3.4101E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 81 E= 1 R$=[] X= 3.3889E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 1 R$=[] X= 2.49826E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 83 E= 1 R$=[] X= 2.3491E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 84 E= 0 R$=[B9B92A8] X= 1.94745E+8 - F= 0 S$=[B9B92A8] -*** TEST PASSED *** -TESTCASE # 85 E= 0 R$=[78AF3BB0] X= 2.02475E+9 - F= 0 S$=[78AF3BB0] -*** TEST PASSED *** -TESTCASE # 86 E= 1 R$=[] X=-2.26748E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 87 E= 0 R$=[827AF950] X=-2.10587E+9 - F= 0 S$=[827AF950] -*** TEST PASSED *** -TESTCASE # 88 E= 1 R$=[] X= 4.23585E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 89 E= 1 R$=[] X=-2.66524E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 90 E= 1 R$=[] X= 4.01052E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 91 E= 1 R$=[] X=-4.87912E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 92 E= 0 R$=[69D4E540] X= 1.77556E+9 - F= 0 S$=[69D4E540] -*** TEST PASSED *** -TESTCASE # 93 E= 0 R$=[112607A8] X= 2.87705E+8 - F= 0 S$=[112607A8] -*** TEST PASSED *** -TESTCASE # 94 E= 0 R$=[BEB6828] X= 1.99977E+8 - F= 0 S$=[BEB6828] -*** TEST PASSED *** -TESTCASE # 95 E= 1 R$=[] X=-3.39941E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 96 E= 1 R$=[] X=-3.49119E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 97 E= 1 R$=[] X=-2.86324E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 98 E= 1 R$=[] X= 4.20418E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 99 E= 1 R$=[] X=-3.1518E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 100 E= 1 R$=[] X= 4.60615E+9 - F= 1 S$=[] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_INSTR_A_B_N.BAS b/bwbtest/NBS2X/F_INSTR_A_B_N.BAS deleted file mode 100644 index a404cdd..0000000 --- a/bwbtest/NBS2X/F_INSTR_A_B_N.BAS +++ /dev/null @@ -1,184 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:23 -REM FILENAME: F_INSTR_A_B_N.BAS -REM SYNTAX: N = INSTR( A$, B$ ) -REM UNIQUEID: F_INSTR_A_B_N -REM FUNCTION: INSTR -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM B$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$, B$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]", "B$=[";B$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = INSTR( A$, B$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , "", "" -DATA 2 , 0 , 1 , " ", " " -DATA 3 , 0 , 1 , "3", "3" -DATA 4 , 0 , 1 , "z", "z" -DATA 5 , 0 , 1 , " ", " " -DATA 6 , 0 , 1 , " 3", " 3" -DATA 7 , 0 , 1 , " z", " z" -DATA 8 , 0 , 1 , "3 ", "3 " -DATA 9 , 0 , 1 , "z ", "z " -DATA 10 , 0 , 1 , " 3 ", " 3 " -DATA 11 , 0 , 1 , " z ", " z " -DATA 12 , 0 , 1 , " LLLL", " LLLL" -DATA 13 , 0 , 1 , " '' ", " '' " -DATA 14 , 0 , 1 , " oo ", " oo " -DATA 15 , 0 , 1 , " 00 ", " 00 " -DATA 16 , 0 , 1 , " \\\\ ", " \\\\ " -DATA 17 , 0 , 1 , " lllll ", " lllll " -DATA 18 , 0 , 1 , " uuuu ", " uuuu " -DATA 19 , 0 , 1 , " a ", " a " -DATA 20 , 0 , 1 , " ", " " -DATA 21 , 0 , 1 , " hh ", " hh " -DATA 22 , 0 , 1 , " h ", " h " -DATA 23 , 0 , 1 , " )", " )" -DATA 24 , 0 , 1 , " 5 ", " 5 " -DATA 25 , 0 , 1 , " 2 ", " 2 " -DATA 26 , 0 , 1 , " - ", " - " -DATA 27 , 0 , 1 , "dd ", "dd " -DATA 28 , 0 , 1 , " tttt ", " tttt " -DATA 29 , 0 , 1 , " :::: ", " :::: " -DATA 30 , 0 , 1 , " ___ ", " ___ " -DATA 31 , 0 , 1 , " ", " " -DATA 32 , 0 , 1 , " ", " " -DATA 33 , 0 , 1 , " _____ ", " _____ " -DATA 34 , 0 , 1 , " S ", " S " -DATA 35 , 0 , 1 , " FFFF ", " FFFF " -DATA 36 , 0 , 1 , " kkk", " kkk" -DATA 37 , 0 , 1 , " NNNN ", " NNNN " -DATA 38 , 0 , 1 , " mmmm ", " mmmm " -DATA 39 , 0 , 1 , " ,,,,, ", " ,,,,, " -DATA 40 , 0 , 1 , "OO ", "OO " -DATA 41 , 0 , 1 , " HHHH ", " HHHH " -DATA 42 , 0 , 1 , " < ", " < " -DATA 43 , 0 , 1 , " j ", " j " -DATA 44 , 0 , 1 , " yyyy ", " yyyy " -DATA 45 , 0 , 1 , " +++ ", " +++ " -DATA 46 , 0 , 1 , "o ", "o " -DATA 47 , 0 , 1 , " ((", " ((" -DATA 48 , 0 , 1 , " uu ", " uu " -DATA 49 , 0 , 1 , " 00 ", " 00 " -DATA 50 , 0 , 1 , " HH ", " HH " -DATA 51 , 0 , 1 , " ", " " -DATA 52 , 0 , 1 , " G ", " G " -DATA 53 , 0 , 1 , " {{{{ ", " {{{{ " -DATA 54 , 0 , 1 , " ]]] ", " ]]] " -DATA 55 , 0 , 1 , "CCC", "CCC" -DATA 56 , 0 , 1 , " 44 ", " 44 " -DATA 57 , 0 , 1 , "^^ ", "^^ " -DATA 58 , 0 , 1 , " QQ ", " QQ " -DATA 59 , 0 , 1 , " FFFF ", " FFFF " -DATA 60 , 0 , 1 , " n ", " n " -DATA 61 , 0 , 1 , " hh ", " hh " -DATA 62 , 0 , 1 , "555 ", "555 " -DATA 63 , 0 , 1 , " YYYY ", " YYYY " -DATA 64 , 0 , 1 , " w ", " w " -DATA 65 , 0 , 1 , "MMMM ", "MMMM " -DATA 66 , 0 , 1 , " JJJJ ", " JJJJ " -DATA 67 , 0 , 1 , " %% ", " %% " -DATA 68 , 0 , 1 , " * ", " * " -DATA 69 , 0 , 1 , " @@@ ", " @@@ " -DATA 70 , 0 , 1 , "I ", "I " -DATA 71 , 0 , 1 , " ss ", " ss " -DATA 72 , 0 , 1 , " f ", " f " -DATA 73 , 0 , 1 , " D ", " D " -DATA 74 , 0 , 1 , "### ", "### " -DATA 75 , 0 , 1 , " ' ", " ' " -DATA 76 , 0 , 1 , " dd ", " dd " -DATA 77 , 0 , 1 , " TT ", " TT " -DATA 78 , 0 , 1 , " vvv ", " vvv " -DATA 79 , 0 , 1 , " X ", " X " -DATA 80 , 0 , 1 , " % ", " % " -DATA 81 , 0 , 1 , " ", " " -DATA 82 , 0 , 1 , " 5555 ", " 5555 " -DATA 83 , 0 , 1 , "FFFF ", "FFFF " -DATA 84 , 0 , 1 , " %% ", " %% " -DATA 85 , 0 , 1 , " ", " " -DATA 86 , 0 , 1 , " ~~~~ ", " ~~~~ " -DATA 87 , 0 , 1 , " || ", " || " -DATA 88 , 0 , 1 , " SSS ", " SSS " -DATA 89 , 0 , 1 , " 6666 ", " 6666 " -DATA 90 , 0 , 1 , " ww ", " ww " -DATA 91 , 0 , 1 , " 1111 ", " 1111 " -DATA 92 , 0 , 1 , " K ", " K " -DATA 93 , 0 , 1 , " ttttt ", " ttttt " -DATA 94 , 0 , 1 , " OOOOO ", " OOOOO " -DATA 95 , 0 , 1 , " E ", " E " -DATA 96 , 0 , 1 , " PPPPP ", " PPPPP " -DATA 97 , 0 , 1 , " == ", " == " -DATA 98 , 0 , 1 , " VVVV ", " VVVV " -DATA 99 , 0 , 1 , " c ", " c " -DATA 100 , 0 , 1 , " yyyy ", " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_INSTR_A_B_N.run b/bwbtest/NBS2X/F_INSTR_A_B_N.run deleted file mode 100644 index e30b20f..0000000 --- a/bwbtest/NBS2X/F_INSTR_A_B_N.run +++ /dev/null @@ -1,319 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 A$=[] B$=[] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 1 A$=[3] B$=[3] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 1 A$=[z] B$=[z] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1 A$=[ 3] B$=[ 3] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 1 A$=[ z] B$=[ z] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 1 A$=[3 ] B$=[3 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 1 A$=[z ] B$=[z ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 1 A$=[ 3 ] B$=[ 3 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 1 A$=[ z ] B$=[ z ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 1 A$=[ LLLL] B$=[ LLLL] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 1 A$=[ '' ] B$=[ - '' ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 1 A$=[ oo ] B$=[ - oo ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 1 A$=[ 00 ] B$=[ 00 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1 A$=[ \\\\ ] B$=[ \\\\ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1 A$=[ lllll ] B$=[ lllll ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 1 A$=[ uuuu ] B$=[ - uuuu ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 1 A$=[ a ] B$=[ a ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 1 A$=[ hh ] B$=[ hh ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 1 A$=[ h ] B$=[ h ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 1 A$=[ )] B$=[ )] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 1 A$=[ 5 ] B$=[ 5 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 1 A$=[ 2 ] B$=[ 2 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 1 A$=[ - ] B$=[ - ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 1 A$=[dd ] B$=[dd ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 1 A$=[ tttt ] B$=[ tttt ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 1 A$=[ :::: ] B$=[ :::: ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1 A$=[ ___ ] B$=[ ___ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 1 A$=[ _____ ] B$=[ _____ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 1 A$=[ S ] B$=[ S ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 1 A$=[ FFFF ] B$=[ FFFF ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 1 A$=[ kkk] B$=[ kkk] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1 A$=[ NNNN ] B$=[ - NNNN ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1 A$=[ mmmm ] B$=[ mmmm ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 1 A$=[ ,,,,, ] B$=[ - ,,,,, ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 1 A$=[OO ] B$=[OO ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 1 A$=[ HHHH ] B$=[ HHHH ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 1 A$=[ < ] B$=[ < ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 1 A$=[ j ] B$=[ j ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 1 A$=[ yyyy ] B$=[ - yyyy ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 1 A$=[ +++ ] B$=[ +++ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 1 A$=[o ] B$=[o ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 1 A$=[ ((] B$=[ ((] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 1 A$=[ uu ] B$=[ - uu ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 1 A$=[ 00 ] B$=[ - 00 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 1 A$=[ HH ] B$=[ HH ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 1 A$=[ G ] B$=[ G ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 1 A$=[ {{{{ ] B$=[ {{{{ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 1 A$=[ ]]] ] B$=[ - ]]] ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 1 A$=[CCC] B$=[CCC] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 1 A$=[ 44 ] B$=[ 44 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 1 A$=[^^ ] B$=[^^ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 1 A$=[ QQ ] B$=[ - QQ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 1 A$=[ FFFF ] B$=[ - FFFF ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 1 A$=[ n ] B$=[ n ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 1 A$=[ hh ] B$=[ hh ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 1 A$=[555 ] B$=[555 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 1 A$=[ YYYY ] B$=[ YYYY ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 1 A$=[ w ] B$=[ - w ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 1 A$=[MMMM ] B$=[MMMM ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 1 A$=[ JJJJ ] B$=[ JJJJ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 1 A$=[ %% ] B$=[ - %% ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 1 A$=[ * ] B$=[ * ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 1 A$=[ @@@ ] B$=[ - @@@ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 1 A$=[I ] B$=[I ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 1 A$=[ ss ] B$=[ ss ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 1 A$=[ f ] B$=[ f ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 1 A$=[ D ] B$=[ D ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 1 A$=[### ] B$=[### ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 1 A$=[ ' ] B$=[ - ' ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 1 A$=[ dd ] B$=[ dd ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 1 A$=[ TT ] B$=[ TT ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 1 A$=[ vvv ] B$=[ vvv ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 1 A$=[ X ] B$=[ X ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 1 A$=[ % ] B$=[ % ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 1 A$=[ 5555 ] B$=[ 5555 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 1 A$=[FFFF ] B$=[FFFF ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1 A$=[ %% ] B$=[ %% ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 1 A$=[ ~~~~ ] B$=[ - ~~~~ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 1 A$=[ || ] B$=[ || ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 1 A$=[ SSS ] B$=[ - SSS ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 1 A$=[ 6666 ] B$=[ 6666 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 1 A$=[ ww ] B$=[ ww ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 1 A$=[ 1111 ] B$=[ 1111 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1 A$=[ K ] B$=[ K ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 1 A$=[ ttttt ] B$=[ ttttt ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1 A$=[ OOOOO ] B$=[ OOOOO ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 1 A$=[ E ] B$=[ E ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 1 A$=[ PPPPP ] B$=[ PPPPP ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 1 A$=[ == ] B$=[ == ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 1 A$=[ VVVV ] B$=[ VVVV ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 1 A$=[ c ] B$=[ c ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 1 A$=[ yyyy ] -B$=[ yyyy ] - F= 0 N= 1 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_INSTR_X_A_B_N.BAS b/bwbtest/NBS2X/F_INSTR_X_A_B_N.BAS deleted file mode 100644 index 7413974..0000000 --- a/bwbtest/NBS2X/F_INSTR_X_A_B_N.BAS +++ /dev/null @@ -1,185 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:24 -REM FILENAME: F_INSTR_X_A_B_N.BAS -REM SYNTAX: N = INSTR( X, A$, B$ ) -REM UNIQUEID: F_INSTR_X_A_B_N -REM FUNCTION: INSTR -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM A$ ACTUAL FUNCTION PARAMETER -REM B$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X, A$, B$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X, "A$=[";A$;"]", "B$=[";B$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = INSTR( X, A$, B$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , 0 , "", "" -DATA 2 , 0 , 1 , 1 , " ", " " -DATA 3 , 1 , 0 , -1 , "3", "3" -DATA 4 , 1 , 0 , .4 , "z", "z" -DATA 5 , 1 , 0 , -.4 , " ", " " -DATA 6 , 0 , 1 , .6 , " 3", " 3" -DATA 7 , 1 , 0 , -.6 , " z", " z" -DATA 8 , 0 , 0 , 254 , "3 ", "3 " -DATA 9 , 0 , 0 , 255 , "z ", "z " -DATA 10 , 0 , 0 , 256 , " 3 ", " 3 " -DATA 11 , 1 , 0 , 32000 , " z ", " z " -DATA 12 , 1 , 0 , -.227229 , " LLLL", " LLLL" -DATA 13 , 1 , 0 , -.239157 , " '' ", " '' " -DATA 14 , 1 , 0 , -.213586 , " oo ", " oo " -DATA 15 , 1 , 0 , .274675 , " 00 ", " 00 " -DATA 16 , 1 , 0 , .169766 , " \\\\ ", " \\\\ " -DATA 17 , 1 , 0 , .318766 , " lllll ", " lllll " -DATA 18 , 1 , 0 , 2.06658E-2 , " uuuu ", " uuuu " -DATA 19 , 1 , 0 , .188257 , " a ", " a " -DATA 20 , 1 , 0 , -.277537 , " ", " " -DATA 21 , 1 , 0 , -.481303 , " hh ", " hh " -DATA 22 , 1 , 0 , .43556 , " h ", " h " -DATA 23 , 1 , 0 , -.210971 , " )", " )" -DATA 24 , 1 , 0 , -.455216 , " 5 ", " 5 " -DATA 25 , 1 , 0 , -110.907 , " 2 ", " 2 " -DATA 26 , 0 , 0 , 105.632 , " - ", " - " -DATA 27 , 1 , 0 , -114.341 , "dd ", "dd " -DATA 28 , 0 , 0 , 109.706 , " tttt ", " tttt " -DATA 29 , 0 , 0 , 109.198 , " :::: ", " :::: " -DATA 30 , 0 , 0 , 85.8773 , " ___ ", " ___ " -DATA 31 , 1 , 0 , -58.3548 , " ", " " -DATA 32 , 0 , 0 , 29.6397 , " ", " " -DATA 33 , 1 , 0 , -108.36 , " _____ ", " _____ " -DATA 34 , 1 , 0 , -46.5199 , " S ", " S " -DATA 35 , 0 , 0 , 112.521 , " FFFF ", " FFFF " -DATA 36 , 0 , 0 , 45.4151 , " kkk", " kkk" -DATA 37 , 0 , 0 , 101.129 , " NNNN ", " NNNN " -DATA 38 , 0 , 0 , 65.0473 , " mmmm ", " mmmm " -DATA 39 , 0 , 0 , 48.4012 , " ,,,,, ", " ,,,,, " -DATA 40 , 0 , 0 , 122.294 , "OO ", "OO " -DATA 41 , 1 , 0 , -56.1094 , " HHHH ", " HHHH " -DATA 42 , 1 , 0 , -121.087 , " < ", " < " -DATA 43 , 1 , 0 , -123.517 , " j ", " j " -DATA 44 , 1 , 0 , -97.6301 , " yyyy ", " yyyy " -DATA 45 , 1 , 0 , -64.0001 , " +++ ", " +++ " -DATA 46 , 1 , 0 , -25.6888 , "o ", "o " -DATA 47 , 0 , 0 , 14.8006 , " ((", " ((" -DATA 48 , 1 , 0 , -61.0877 , " uu ", " uu " -DATA 49 , 1 , 0 , -66.6381 , " 00 ", " 00 " -DATA 50 , 1 , 0 , -5476.5 , " HH ", " HH " -DATA 51 , 1 , 0 , -21210.3 , " ", " " -DATA 52 , 1 , 0 , -28757.2 , " G ", " G " -DATA 53 , 1 , 0 , -28732.2 , " {{{{ ", " {{{{ " -DATA 54 , 1 , 0 , 12730.3 , " ]]] ", " ]]] " -DATA 55 , 1 , 0 , -1830.69 , "CCC", "CCC" -DATA 56 , 1 , 0 , 5486.39 , " 44 ", " 44 " -DATA 57 , 1 , 0 , 22405.9 , "^^ ", "^^ " -DATA 58 , 1 , 0 , 30809.8 , " QQ ", " QQ " -DATA 59 , 1 , 0 , -28930.6 , " FFFF ", " FFFF " -DATA 60 , 1 , 0 , -6014.53 , " n ", " n " -DATA 61 , 1 , 0 , 17414.6 , " hh ", " hh " -DATA 62 , 1 , 0 , -10538.3 , "555 ", "555 " -DATA 63 , 1 , 0 , -17536.3 , " YYYY ", " YYYY " -DATA 64 , 1 , 0 , -8856.62 , " w ", " w " -DATA 65 , 1 , 0 , -5140.12 , "MMMM ", "MMMM " -DATA 66 , 1 , 0 , -8595.31 , " JJJJ ", " JJJJ " -DATA 67 , 1 , 0 , -3382.87 , " %% ", " %% " -DATA 68 , 1 , 0 , -5002.07 , " * ", " * " -DATA 69 , 1 , 0 , -5800.72 , " @@@ ", " @@@ " -DATA 70 , 1 , 0 , 29686.4 , "I ", "I " -DATA 71 , 0 , 0 , 2571. , " ss ", " ss " -DATA 72 , 1 , 0 , 31091. , " f ", " f " -DATA 73 , 1 , 0 , 14819. , " D ", " D " -DATA 74 , 0 , 0 , 3790.9 , "### ", "### " -DATA 75 , 1 , 0 , -4.2981E+9 , " ' ", " ' " -DATA 76 , 1 , 0 , -7.05453E+8 , " dd ", " dd " -DATA 77 , 1 , 0 , -3.10179E+9 , " TT ", " TT " -DATA 78 , 1 , 0 , -4.86159E+9 , " vvv ", " vvv " -DATA 79 , 1 , 0 , -8.62908E+8 , " X ", " X " -DATA 80 , 1 , 0 , -3.4101E+9 , " % ", " % " -DATA 81 , 1 , 0 , 3.3889E+9 , " ", " " -DATA 82 , 1 , 0 , 2.49826E+9 , " 5555 ", " 5555 " -DATA 83 , 1 , 0 , 2.3491E+9 , "FFFF ", "FFFF " -DATA 84 , 1 , 0 , 1.94745E+8 , " %% ", " %% " -DATA 85 , 1 , 0 , 2.02475E+9 , " ", " " -DATA 86 , 1 , 0 , -2.26748E+9 , " ~~~~ ", " ~~~~ " -DATA 87 , 1 , 0 , -2.10587E+9 , " || ", " || " -DATA 88 , 1 , 0 , 4.23585E+9 , " SSS ", " SSS " -DATA 89 , 1 , 0 , -2.66524E+9 , " 6666 ", " 6666 " -DATA 90 , 1 , 0 , 4.01052E+9 , " ww ", " ww " -DATA 91 , 1 , 0 , -4.87912E+9 , " 1111 ", " 1111 " -DATA 92 , 1 , 0 , 1.77556E+9 , " K ", " K " -DATA 93 , 1 , 0 , 2.87705E+8 , " ttttt ", " ttttt " -DATA 94 , 1 , 0 , 1.99977E+8 , " OOOOO ", " OOOOO " -DATA 95 , 1 , 0 , -3.39941E+9 , " E ", " E " -DATA 96 , 1 , 0 , -3.49119E+9 , " PPPPP ", " PPPPP " -DATA 97 , 1 , 0 , -2.86324E+9 , " == ", " == " -DATA 98 , 1 , 0 , 4.20418E+9 , " VVVV ", " VVVV " -DATA 99 , 1 , 0 , -3.1518E+9 , " c ", " c " -DATA 100 , 1 , 0 , 4.60615E+9 , " yyyy ", " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_INSTR_X_A_B_N.run b/bwbtest/NBS2X/F_INSTR_X_A_B_N.run deleted file mode 100644 index 81c75b6..0000000 --- a/bwbtest/NBS2X/F_INSTR_X_A_B_N.run +++ /dev/null @@ -1,400 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 X= 0 A$=[] B$=[] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 A$=[ ] B$=[ -] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 X=-1 A$=[3] B$=[3 -] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 1 R= 0 X= .4 A$=[z] B$=[z -] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 X=-.4 A$=[ ] B$=[ - ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1 X= .6 A$=[ 3] B$=[ - 3] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 X=-.6 A$=[ z] B$=[ - z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 0 X= 254 A$=[3 ] B$=[ -3 ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 0 X= 255 A$=[z ] B$=[ -z ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 0 X= 256 A$=[ 3 ] B$=[ - 3 ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 X= 32000 A$=[ z ] B$=[ - z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 1 R= 0 X=-.227229 A$=[ LLLL] B$=[ - LLLL] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 1 R= 0 X=-.239157 A$=[ '' ] -B$=[ '' ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 1 R= 0 X=-.213586 A$=[ oo ] -B$=[ oo ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 1 R= 0 X= .274675 A$=[ 00 ] B$=[ - 00 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 1 R= 0 X= .169766 A$=[ \\\\ ] B$=[ - \\\\ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 1 R= 0 X= .318766 A$=[ lllll ] B$=[ - lllll ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 1 R= 0 X= 2.06658E-2 A$=[ uuuu ] -B$=[ uuuu ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 1 R= 0 X= .188257 A$=[ a ] B$=[ - a ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 1 R= 0 X=-.277537 A$=[ ] B$=[ - ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 1 R= 0 X=-.481303 A$=[ hh ] B$=[ - hh ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 1 R= 0 X= .43556 A$=[ h ] B$=[ - h ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 X=-.210971 A$=[ )] B$=[ - )] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 1 R= 0 X=-.455216 A$=[ 5 ] B$=[ - 5 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 A$=[ 2 ] B$=[ - 2 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 0 X= 105.632 A$=[ - ] B$=[ - - ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 A$=[dd ] B$=[ -dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 0 X= 109.706 A$=[ tttt ] B$=[ - tttt ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 0 X= 109.198 A$=[ :::: ] B$=[ - :::: ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 0 X= 85.8773 A$=[ ___ ] B$=[ - ___ ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 A$=[ ] B$=[ - ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 0 X= 29.6397 A$=[ ] B$=[ - ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 A$=[ _____ ] B$=[ - _____ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 A$=[ S ] B$=[ - S ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 0 X= 112.521 A$=[ FFFF ] B$=[ - FFFF ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 0 X= 45.4151 A$=[ kkk] B$=[ - kkk] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 0 X= 101.129 A$=[ NNNN ] -B$=[ NNNN ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 0 X= 65.0473 A$=[ mmmm ] B$=[ - mmmm ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 0 X= 48.4012 A$=[ ,,,,, ] -B$=[ ,,,,, ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 0 X= 122.294 A$=[OO ] B$=[ -OO ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 A$=[ HHHH ] B$=[ - HHHH ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 A$=[ < ] B$=[ - < ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 A$=[ j ] B$=[ - j ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 A$=[ yyyy ] -B$=[ yyyy ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 A$=[ +++ ] B$=[ - +++ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 X=-25.6888 A$=[o ] B$=[ -o ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 0 X= 14.8006 A$=[ ((] B$=[ - ((] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 A$=[ uu ] -B$=[ uu ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 A$=[ 00 ] -B$=[ 00 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 A$=[ HH ] B$=[ - HH ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 A$=[ ] B$=[ - ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 A$=[ G ] B$=[ - G ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 A$=[ {{{{ ] B$=[ - {{{{ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 X= 12730.3 A$=[ ]]] ] -B$=[ ]]] ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 A$=[CCC] B$=[ -CCC] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 0 X= 5486.39 A$=[ 44 ] B$=[ - 44 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 X= 22405.9 A$=[^^ ] B$=[ -^^ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 X= 30809.8 A$=[ QQ ] -B$=[ QQ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 A$=[ FFFF ] -B$=[ FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 A$=[ n ] B$=[ - n ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 X= 17414.6 A$=[ hh ] B$=[ - hh ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 A$=[555 ] B$=[ -555 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 A$=[ YYYY ] B$=[ - YYYY ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 A$=[ w ] -B$=[ w ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 A$=[MMMM ] B$=[ -MMMM ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 A$=[ JJJJ ] B$=[ - JJJJ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 A$=[ %% ] -B$=[ %% ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 A$=[ * ] B$=[ - * ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 A$=[ @@@ ] -B$=[ @@@ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 X= 29686.4 A$=[I ] B$=[ -I ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 0 X= 2571 A$=[ ss ] B$=[ - ss ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 X= 31091 A$=[ f ] B$=[ - f ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 X= 14819 A$=[ D ] B$=[ - D ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 0 X= 3790.9 A$=[### ] B$=[ -### ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 A$=[ ' ] -B$=[ ' ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 A$=[ dd ] B$=[ - dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 A$=[ TT ] B$=[ - TT ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 A$=[ vvv ] B$=[ - vvv ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 A$=[ X ] B$=[ - X ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 A$=[ % ] B$=[ - % ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 A$=[ ] B$=[ - ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 A$=[ 5555 ] B$=[ - 5555 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 A$=[FFFF ] B$=[ -FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 X= 1.94745E+8 A$=[ %% ] B$=[ - %% ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 X= 2.02475E+9 A$=[ ] B$=[ - ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 A$=[ ~~~~ ] -B$=[ ~~~~ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 A$=[ || ] B$=[ - || ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 A$=[ SSS ] -B$=[ SSS ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 A$=[ 6666 ] B$=[ - 6666 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 A$=[ ww ] B$=[ - ww ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 A$=[ 1111 ] B$=[ - 1111 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 X= 1.77556E+9 A$=[ K ] B$=[ - K ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 X= 2.87705E+8 A$=[ ttttt ] B$=[ - ttttt ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 X= 1.99977E+8 A$=[ OOOOO ] B$=[ - OOOOO ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 A$=[ E ] B$=[ - E ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 A$=[ PPPPP ] B$=[ - PPPPP ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 A$=[ == ] B$=[ - == ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 A$=[ VVVV ] B$=[ - VVVV ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 A$=[ c ] B$=[ - c ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 A$=[ - yyyy ] B$=[ yyyy ] - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_INT_X_N.BAS b/bwbtest/NBS2X/F_INT_X_N.BAS deleted file mode 100644 index 7a30787..0000000 --- a/bwbtest/NBS2X/F_INT_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:24 -REM FILENAME: F_INT_X_N.BAS -REM SYNTAX: N = INT( X ) -REM UNIQUEID: F_INT_X_N -REM FUNCTION: INT -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = INT( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , -1 , -1 -DATA 4 , 0 , 0 , .4 -DATA 5 , 0 , -1 , -.4 -DATA 6 , 0 , 0 , .6 -DATA 7 , 0 , -1 , -.6 -DATA 8 , 0 , 254 , 254 -DATA 9 , 0 , 255 , 255 -DATA 10 , 0 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , -1 , -.227229 -DATA 13 , 0 , -1 , -.239157 -DATA 14 , 0 , -1 , -.213586 -DATA 15 , 0 , 0 , .274675 -DATA 16 , 0 , 0 , .169766 -DATA 17 , 0 , 0 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 -DATA 20 , 0 , -1 , -.277537 -DATA 21 , 0 , -1 , -.481303 -DATA 22 , 0 , 0 , .43556 -DATA 23 , 0 , -1 , -.210971 -DATA 24 , 0 , -1 , -.455216 -DATA 25 , 0 , -111 , -110.907 -DATA 26 , 0 , 105 , 105.632 -DATA 27 , 0 , -115 , -114.341 -DATA 28 , 0 , 109 , 109.706 -DATA 29 , 0 , 109 , 109.198 -DATA 30 , 0 , 85 , 85.8773 -DATA 31 , 0 , -59 , -58.3548 -DATA 32 , 0 , 29 , 29.6397 -DATA 33 , 0 , -109 , -108.36 -DATA 34 , 0 , -47 , -46.5199 -DATA 35 , 0 , 112 , 112.521 -DATA 36 , 0 , 45 , 45.4151 -DATA 37 , 0 , 101 , 101.129 -DATA 38 , 0 , 65 , 65.0473 -DATA 39 , 0 , 48 , 48.4012 -DATA 40 , 0 , 122 , 122.294 -DATA 41 , 0 , -57 , -56.1094 -DATA 42 , 0 , -122 , -121.087 -DATA 43 , 0 , -124 , -123.517 -DATA 44 , 0 , -98 , -97.6301 -DATA 45 , 0 , -65 , -64.0001 -DATA 46 , 0 , -26 , -25.6888 -DATA 47 , 0 , 14 , 14.8006 -DATA 48 , 0 , -62 , -61.0877 -DATA 49 , 0 , -67 , -66.6381 -DATA 50 , 0 , -5477 , -5476.5 -DATA 51 , 0 , -21211 , -21210.3 -DATA 52 , 0 , -28758 , -28757.2 -DATA 53 , 0 , -28733 , -28732.2 -DATA 54 , 0 , 12730 , 12730.3 -DATA 55 , 0 , -1831 , -1830.69 -DATA 56 , 0 , 5486 , 5486.39 -DATA 57 , 0 , 22405 , 22405.9 -DATA 58 , 0 , 30809 , 30809.8 -DATA 59 , 0 , -28931 , -28930.6 -DATA 60 , 0 , -6015 , -6014.53 -DATA 61 , 0 , 17414 , 17414.6 -DATA 62 , 0 , -10539 , -10538.3 -DATA 63 , 0 , -17537 , -17536.3 -DATA 64 , 0 , -8857 , -8856.62 -DATA 65 , 0 , -5141 , -5140.12 -DATA 66 , 0 , -8596 , -8595.31 -DATA 67 , 0 , -3383 , -3382.87 -DATA 68 , 0 , -5003 , -5002.07 -DATA 69 , 0 , -5801 , -5800.72 -DATA 70 , 0 , 29686 , 29686.4 -DATA 71 , 0 , 2571 , 2571. -DATA 72 , 0 , 31091 , 31091. -DATA 73 , 0 , 14819 , 14819. -DATA 74 , 0 , 3790 , 3790.9 -DATA 75 , 0 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_INT_X_N.run b/bwbtest/NBS2X/F_INT_X_N.run deleted file mode 100644 index 7e7e351..0000000 --- a/bwbtest/NBS2X/F_INT_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 0 X= .4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-1 X=-.4 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 0 X= .6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-1 X=-.6 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-1 X=-.227229 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-1 X=-.239157 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-1 X=-.213586 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-1 X=-.277537 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-1 X=-.481303 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 0 X= .43556 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-1 X=-.210971 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-1 X=-.455216 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-111 X=-110.907 - F= 0 N=-111 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 105 X= 105.632 - F= 0 N= 105 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-115 X=-114.341 - F= 0 N=-115 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 109 X= 109.706 - F= 0 N= 109 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109 X= 109.198 - F= 0 N= 109 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 85 X= 85.8773 - F= 0 N= 85 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-59 X=-58.3548 - F= 0 N=-59 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 29 X= 29.6397 - F= 0 N= 29 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-109 X=-108.36 - F= 0 N=-109 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-47 X=-46.5199 - F= 0 N=-47 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 112 X= 112.521 - F= 0 N= 112 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45 X= 45.4151 - F= 0 N= 45 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101 X= 101.129 - F= 0 N= 101 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65 X= 65.0473 - F= 0 N= 65 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48 X= 48.4012 - F= 0 N= 48 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122 X= 122.294 - F= 0 N= 122 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-57 X=-56.1094 - F= 0 N=-57 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-122 X=-121.087 - F= 0 N=-122 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-124 X=-123.517 - F= 0 N=-124 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-98 X=-97.6301 - F= 0 N=-98 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-65 X=-64.0001 - F= 0 N=-65 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-26 X=-25.6888 - F= 0 N=-26 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 14 X= 14.8006 - F= 0 N= 14 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-62 X=-61.0877 - F= 0 N=-62 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-67 X=-66.6381 - F= 0 N=-67 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5477 X=-5476.5 - F= 0 N=-5477 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21211 X=-21210.3 - F= 0 N=-21211 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28758 X=-28757.2 - F= 0 N=-28758 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28733 X=-28732.2 - F= 0 N=-28733 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730 X= 12730.3 - F= 0 N= 12730 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1831 X=-1830.69 - F= 0 N=-1831 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486 X= 5486.39 - F= 0 N= 5486 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22405 X= 22405.9 - F= 0 N= 22405 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30809 X= 30809.8 - F= 0 N= 30809 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28931 X=-28930.6 - F= 0 N=-28931 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6015 X=-6014.53 - F= 0 N=-6015 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17414 X= 17414.6 - F= 0 N= 17414 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10539 X=-10538.3 - F= 0 N=-10539 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17537 X=-17536.3 - F= 0 N=-17537 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8857 X=-8856.62 - F= 0 N=-8857 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5141 X=-5140.12 - F= 0 N=-5141 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8596 X=-8595.31 - F= 0 N=-8596 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3383 X=-3382.87 - F= 0 N=-3383 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5003 X=-5002.07 - F= 0 N=-5003 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5801 X=-5800.72 - F= 0 N=-5801 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686 X= 29686.4 - F= 0 N= 29686 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3790 X= 3790.9 - F= 0 N= 3790 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-4.2981E+9 X=-4.2981E+9 - F= 0 N=-4.2981E+9 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-3.10179E+9 X=-3.10179E+9 - F= 0 N=-3.10179E+9 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-4.86159E+9 X=-4.86159E+9 - F= 0 N=-4.86159E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-3.4101E+9 X=-3.4101E+9 - F= 0 N=-3.4101E+9 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 3.3889E+9 X= 3.3889E+9 - F= 0 N= 3.3889E+9 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 2.49826E+9 X= 2.49826E+9 - F= 0 N= 2.49826E+9 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.3491E+9 X= 2.3491E+9 - F= 0 N= 2.3491E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-2.26748E+9 X=-2.26748E+9 - F= 0 N=-2.26748E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 4.23585E+9 X= 4.23585E+9 - F= 0 N= 4.23585E+9 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-2.66524E+9 X=-2.66524E+9 - F= 0 N=-2.66524E+9 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 4.01052E+9 X= 4.01052E+9 - F= 0 N= 4.01052E+9 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-4.87912E+9 X=-4.87912E+9 - F= 0 N=-4.87912E+9 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-3.39941E+9 X=-3.39941E+9 - F= 0 N=-3.39941E+9 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-3.49119E+9 X=-3.49119E+9 - F= 0 N=-3.49119E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-2.86324E+9 X=-2.86324E+9 - F= 0 N=-2.86324E+9 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 4.20418E+9 X= 4.20418E+9 - F= 0 N= 4.20418E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-3.1518E+9 X=-3.1518E+9 - F= 0 N=-3.1518E+9 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 4.60615E+9 X= 4.60615E+9 - F= 0 N= 4.60615E+9 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_IP_X_N.BAS b/bwbtest/NBS2X/F_IP_X_N.BAS deleted file mode 100644 index 63ece6d..0000000 --- a/bwbtest/NBS2X/F_IP_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:24 -REM FILENAME: F_IP_X_N.BAS -REM SYNTAX: N = IP( X ) -REM UNIQUEID: F_IP_X_N -REM FUNCTION: IP -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = IP( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , -1 , -1 -DATA 4 , 0 , 0 , .4 -DATA 5 , 0 , 0 , -.4 -DATA 6 , 0 , 0 , .6 -DATA 7 , 0 , 0 , -.6 -DATA 8 , 0 , 254 , 254 -DATA 9 , 0 , 255 , 255 -DATA 10 , 0 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 -DATA 12 , 0 , 0 , -.227229 -DATA 13 , 0 , 0 , -.239157 -DATA 14 , 0 , 0 , -.213586 -DATA 15 , 0 , 0 , .274675 -DATA 16 , 0 , 0 , .169766 -DATA 17 , 0 , 0 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 -DATA 20 , 0 , 0 , -.277537 -DATA 21 , 0 , 0 , -.481303 -DATA 22 , 0 , 0 , .43556 -DATA 23 , 0 , 0 , -.210971 -DATA 24 , 0 , 0 , -.455216 -DATA 25 , 0 , -110 , -110.907 -DATA 26 , 0 , 105 , 105.632 -DATA 27 , 0 , -114 , -114.341 -DATA 28 , 0 , 109 , 109.706 -DATA 29 , 0 , 109 , 109.198 -DATA 30 , 0 , 85 , 85.8773 -DATA 31 , 0 , -58 , -58.3548 -DATA 32 , 0 , 29 , 29.6397 -DATA 33 , 0 , -108 , -108.36 -DATA 34 , 0 , -46 , -46.5199 -DATA 35 , 0 , 112 , 112.521 -DATA 36 , 0 , 45 , 45.4151 -DATA 37 , 0 , 101 , 101.129 -DATA 38 , 0 , 65 , 65.0473 -DATA 39 , 0 , 48 , 48.4012 -DATA 40 , 0 , 122 , 122.294 -DATA 41 , 0 , -56 , -56.1094 -DATA 42 , 0 , -121 , -121.087 -DATA 43 , 0 , -123 , -123.517 -DATA 44 , 0 , -97 , -97.6301 -DATA 45 , 0 , -64 , -64.0001 -DATA 46 , 0 , -25 , -25.6888 -DATA 47 , 0 , 14 , 14.8006 -DATA 48 , 0 , -61 , -61.0877 -DATA 49 , 0 , -66 , -66.6381 -DATA 50 , 0 , -5476 , -5476.5 -DATA 51 , 0 , -21210 , -21210.3 -DATA 52 , 0 , -28757 , -28757.2 -DATA 53 , 0 , -28732 , -28732.2 -DATA 54 , 0 , 12730 , 12730.3 -DATA 55 , 0 , -1830 , -1830.69 -DATA 56 , 0 , 5486 , 5486.39 -DATA 57 , 0 , 22405 , 22405.9 -DATA 58 , 0 , 30809 , 30809.8 -DATA 59 , 0 , -28930 , -28930.6 -DATA 60 , 0 , -6014 , -6014.53 -DATA 61 , 0 , 17414 , 17414.6 -DATA 62 , 0 , -10538 , -10538.3 -DATA 63 , 0 , -17536 , -17536.3 -DATA 64 , 0 , -8856 , -8856.62 -DATA 65 , 0 , -5140 , -5140.12 -DATA 66 , 0 , -8595 , -8595.31 -DATA 67 , 0 , -3382 , -3382.87 -DATA 68 , 0 , -5002 , -5002.07 -DATA 69 , 0 , -5800 , -5800.72 -DATA 70 , 0 , 29686 , 29686.4 -DATA 71 , 0 , 2571 , 2571. -DATA 72 , 0 , 31091 , 31091. -DATA 73 , 0 , 14819 , 14819. -DATA 74 , 0 , 3790 , 3790.9 -DATA 75 , 0 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_IP_X_N.run b/bwbtest/NBS2X/F_IP_X_N.run deleted file mode 100644 index a459321..0000000 --- a/bwbtest/NBS2X/F_IP_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 0 X= .4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 0 X= .6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 0 X=-.6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 0 X= .43556 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-110 X=-110.907 - F= 0 N=-110 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 105 X= 105.632 - F= 0 N= 105 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-114 X=-114.341 - F= 0 N=-114 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 109 X= 109.706 - F= 0 N= 109 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109 X= 109.198 - F= 0 N= 109 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 85 X= 85.8773 - F= 0 N= 85 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-58 X=-58.3548 - F= 0 N=-58 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 29 X= 29.6397 - F= 0 N= 29 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-108 X=-108.36 - F= 0 N=-108 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-46 X=-46.5199 - F= 0 N=-46 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 112 X= 112.521 - F= 0 N= 112 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45 X= 45.4151 - F= 0 N= 45 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101 X= 101.129 - F= 0 N= 101 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65 X= 65.0473 - F= 0 N= 65 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48 X= 48.4012 - F= 0 N= 48 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122 X= 122.294 - F= 0 N= 122 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-56 X=-56.1094 - F= 0 N=-56 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-121 X=-121.087 - F= 0 N=-121 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-123 X=-123.517 - F= 0 N=-123 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-97 X=-97.6301 - F= 0 N=-97 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-64 X=-64.0001 - F= 0 N=-64 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-25 X=-25.6888 - F= 0 N=-25 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 14 X= 14.8006 - F= 0 N= 14 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-61 X=-61.0877 - F= 0 N=-61 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-66 X=-66.6381 - F= 0 N=-66 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5476 X=-5476.5 - F= 0 N=-5476 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21210 X=-21210.3 - F= 0 N=-21210 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28757 X=-28757.2 - F= 0 N=-28757 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28732 X=-28732.2 - F= 0 N=-28732 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730 X= 12730.3 - F= 0 N= 12730 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1830 X=-1830.69 - F= 0 N=-1830 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486 X= 5486.39 - F= 0 N= 5486 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22405 X= 22405.9 - F= 0 N= 22405 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30809 X= 30809.8 - F= 0 N= 30809 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28930 X=-28930.6 - F= 0 N=-28930 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6014 X=-6014.53 - F= 0 N=-6014 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17414 X= 17414.6 - F= 0 N= 17414 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10538 X=-10538.3 - F= 0 N=-10538 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17536 X=-17536.3 - F= 0 N=-17536 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8856 X=-8856.62 - F= 0 N=-8856 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5140 X=-5140.12 - F= 0 N=-5140 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8595 X=-8595.31 - F= 0 N=-8595 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3382 X=-3382.87 - F= 0 N=-3382 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5002 X=-5002.07 - F= 0 N=-5002 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5800 X=-5800.72 - F= 0 N=-5800 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686 X= 29686.4 - F= 0 N= 29686 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3790 X= 3790.9 - F= 0 N= 3790 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-4.2981E+9 X=-4.2981E+9 - F= 0 N=-4.2981E+9 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-3.10179E+9 X=-3.10179E+9 - F= 0 N=-3.10179E+9 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-4.86159E+9 X=-4.86159E+9 - F= 0 N=-4.86159E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-3.4101E+9 X=-3.4101E+9 - F= 0 N=-3.4101E+9 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 3.3889E+9 X= 3.3889E+9 - F= 0 N= 3.3889E+9 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 2.49826E+9 X= 2.49826E+9 - F= 0 N= 2.49826E+9 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.3491E+9 X= 2.3491E+9 - F= 0 N= 2.3491E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-2.26748E+9 X=-2.26748E+9 - F= 0 N=-2.26748E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 4.23585E+9 X= 4.23585E+9 - F= 0 N= 4.23585E+9 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-2.66524E+9 X=-2.66524E+9 - F= 0 N=-2.66524E+9 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 4.01052E+9 X= 4.01052E+9 - F= 0 N= 4.01052E+9 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-4.87912E+9 X=-4.87912E+9 - F= 0 N=-4.87912E+9 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-3.39941E+9 X=-3.39941E+9 - F= 0 N=-3.39941E+9 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-3.49119E+9 X=-3.49119E+9 - F= 0 N=-3.49119E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-2.86324E+9 X=-2.86324E+9 - F= 0 N=-2.86324E+9 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 4.20418E+9 X= 4.20418E+9 - F= 0 N= 4.20418E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-3.1518E+9 X=-3.1518E+9 - F= 0 N=-3.1518E+9 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 4.60615E+9 X= 4.60615E+9 - F= 0 N= 4.60615E+9 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_LCASE_A_S.BAS b/bwbtest/NBS2X/F_LCASE_A_S.BAS deleted file mode 100644 index e15fb56..0000000 --- a/bwbtest/NBS2X/F_LCASE_A_S.BAS +++ /dev/null @@ -1,159 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:25 -REM FILENAME: F_LCASE_A_S.BAS -REM SYNTAX: S$ = LCASE$( A$ ) -REM UNIQUEID: F_LCASE_A_S -REM FUNCTION: LCASE$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = LCASE$( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", "" -DATA 2 , 0 , " ", " " -DATA 3 , 0 , "3", "3" -DATA 4 , 0 , "z", "z" -DATA 5 , 0 , " ", " " -DATA 6 , 0 , " 3", " 3" -DATA 7 , 0 , " z", " z" -DATA 8 , 0 , "3 ", "3 " -DATA 9 , 0 , "z ", "z " -DATA 10 , 0 , " 3 ", " 3 " -DATA 11 , 0 , " z ", " z " -DATA 12 , 0 , " llll", " LLLL" -DATA 13 , 0 , " '' ", " '' " -DATA 14 , 0 , " oo ", " oo " -DATA 15 , 0 , " 00 ", " 00 " -DATA 16 , 0 , " \\\\ ", " \\\\ " -DATA 17 , 0 , " lllll ", " lllll " -DATA 18 , 0 , " uuuu ", " uuuu " -DATA 19 , 0 , " a ", " a " -DATA 20 , 0 , " ", " " -DATA 21 , 0 , " hh ", " hh " -DATA 22 , 0 , " h ", " h " -DATA 23 , 0 , " )", " )" -DATA 24 , 0 , " 5 ", " 5 " -DATA 25 , 0 , " 2 ", " 2 " -DATA 26 , 0 , " - ", " - " -DATA 27 , 0 , "dd ", "dd " -DATA 28 , 0 , " tttt ", " tttt " -DATA 29 , 0 , " :::: ", " :::: " -DATA 30 , 0 , " ___ ", " ___ " -DATA 31 , 0 , " ", " " -DATA 32 , 0 , " ", " " -DATA 33 , 0 , " _____ ", " _____ " -DATA 34 , 0 , " s ", " S " -DATA 35 , 0 , " ffff ", " FFFF " -DATA 36 , 0 , " kkk", " kkk" -DATA 37 , 0 , " nnnn ", " NNNN " -DATA 38 , 0 , " mmmm ", " mmmm " -DATA 39 , 0 , " ,,,,, ", " ,,,,, " -DATA 40 , 0 , "oo ", "OO " -DATA 41 , 0 , " hhhh ", " HHHH " -DATA 42 , 0 , " < ", " < " -DATA 43 , 0 , " j ", " j " -DATA 44 , 0 , " yyyy ", " yyyy " -DATA 45 , 0 , " +++ ", " +++ " -DATA 46 , 0 , "o ", "o " -DATA 47 , 0 , " ((", " ((" -DATA 48 , 0 , " uu ", " uu " -DATA 49 , 0 , " 00 ", " 00 " -DATA 50 , 0 , " hh ", " HH " -DATA 51 , 0 , " ", " " -DATA 52 , 0 , " g ", " G " -DATA 53 , 0 , " {{{{ ", " {{{{ " -DATA 54 , 0 , " ]]] ", " ]]] " -DATA 55 , 0 , "ccc", "CCC" -DATA 56 , 0 , " 44 ", " 44 " -DATA 57 , 0 , "^^ ", "^^ " -DATA 58 , 0 , " qq ", " QQ " -DATA 59 , 0 , " ffff ", " FFFF " -DATA 60 , 0 , " n ", " n " -DATA 61 , 0 , " hh ", " hh " -DATA 62 , 0 , "555 ", "555 " -DATA 63 , 0 , " yyyy ", " YYYY " -DATA 64 , 0 , " w ", " w " -DATA 65 , 0 , "mmmm ", "MMMM " -DATA 66 , 0 , " jjjj ", " JJJJ " -DATA 67 , 0 , " %% ", " %% " -DATA 68 , 0 , " * ", " * " -DATA 69 , 0 , " @@@ ", " @@@ " -DATA 70 , 0 , "i ", "I " -DATA 71 , 0 , " ss ", " ss " -DATA 72 , 0 , " f ", " f " -DATA 73 , 0 , " d ", " D " -DATA 74 , 0 , "### ", "### " -DATA 75 , 0 , " ' ", " ' " -DATA 76 , 0 , " dd ", " dd " -DATA 77 , 0 , " tt ", " TT " -DATA 78 , 0 , " vvv ", " vvv " -DATA 79 , 0 , " x ", " X " -DATA 80 , 0 , " % ", " % " -DATA 81 , 0 , " ", " " -DATA 82 , 0 , " 5555 ", " 5555 " -DATA 83 , 0 , "ffff ", "FFFF " -DATA 84 , 0 , " %% ", " %% " -DATA 85 , 0 , " ", " " -DATA 86 , 0 , " ~~~~ ", " ~~~~ " -DATA 87 , 0 , " || ", " || " -DATA 88 , 0 , " sss ", " SSS " -DATA 89 , 0 , " 6666 ", " 6666 " -DATA 90 , 0 , " ww ", " ww " -DATA 91 , 0 , " 1111 ", " 1111 " -DATA 92 , 0 , " k ", " K " -DATA 93 , 0 , " ttttt ", " ttttt " -DATA 94 , 0 , " ooooo ", " OOOOO " -DATA 95 , 0 , " e ", " E " -DATA 96 , 0 , " ppppp ", " PPPPP " -DATA 97 , 0 , " == ", " == " -DATA 98 , 0 , " vvvv ", " VVVV " -DATA 99 , 0 , " c ", " c " -DATA 100 , 0 , " yyyy ", " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_LCASE_A_S.run b/bwbtest/NBS2X/F_LCASE_A_S.run deleted file mode 100644 index f185a59..0000000 --- a/bwbtest/NBS2X/F_LCASE_A_S.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] A$=[] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 3 E= 0 R$=[3] A$=[3] - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[z] A$=[z] - F= 0 S$=[z] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ 3] A$=[ 3] - F= 0 S$=[ 3] -*** TEST PASSED *** -TESTCASE # 7 E= 0 R$=[ z] A$=[ z] - F= 0 S$=[ z] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[3 ] A$=[3 ] - F= 0 S$=[3 ] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[z ] A$=[z ] - F= 0 S$=[z ] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[ 3 ] A$=[ 3 ] - F= 0 S$=[ 3 ] -*** TEST PASSED *** -TESTCASE # 11 E= 0 R$=[ z ] A$=[ z ] - F= 0 S$=[ z ] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[ llll] A$=[ LLLL] - F= 0 S$=[ llll] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[ '' ] A$=[ '' ] - F= 0 S$=[ '' ] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[ oo ] A$=[ oo ] - F= 0 S$=[ oo ] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[ 00 ] A$=[ 00 ] - F= 0 S$=[ 00 ] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[ \\\\ ] A$=[ \\\\ ] - F= 0 S$=[ \\\\ ] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[ lllll ] A$=[ lllll ] - F= 0 S$=[ lllll ] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[ uuuu ] A$=[ uuuu ] - F= 0 S$=[ uuuu ] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[ a ] A$=[ a ] - F= 0 S$=[ a ] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[ hh ] A$=[ hh ] - F= 0 S$=[ hh ] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[ h ] A$=[ h ] - F= 0 S$=[ h ] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[ )] A$=[ )] - F= 0 S$=[ )] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[ 5 ] A$=[ 5 ] - F= 0 S$=[ 5 ] -*** TEST PASSED *** -TESTCASE # 25 E= 0 R$=[ 2 ] A$=[ 2 ] - F= 0 S$=[ 2 ] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[ - ] A$=[ - ] - F= 0 S$=[ - ] -*** TEST PASSED *** -TESTCASE # 27 E= 0 R$=[dd ] A$=[dd ] - F= 0 S$=[dd ] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[ tttt ] A$=[ tttt ] - F= 0 S$=[ tttt ] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[ :::: ] A$=[ :::: ] - F= 0 S$=[ :::: ] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[ ___ ] A$=[ ___ ] - F= 0 S$=[ ___ ] -*** TEST PASSED *** -TESTCASE # 31 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 33 E= 0 R$=[ _____ ] A$=[ _____ ] - F= 0 S$=[ _____ ] -*** TEST PASSED *** -TESTCASE # 34 E= 0 R$=[ s ] A$=[ S ] - F= 0 S$=[ s ] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[ ffff ] A$=[ FFFF ] - F= 0 S$=[ ffff ] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[ kkk] A$=[ kkk] - F= 0 S$=[ kkk] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[ nnnn ] A$=[ NNNN ] - F= 0 S$=[ nnnn ] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[ mmmm ] A$=[ mmmm ] - F= 0 S$=[ mmmm ] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[ ,,,,, ] A$=[ ,,,,, ] - F= 0 S$=[ ,,,,, ] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[oo ] A$=[OO ] - F= 0 S$=[oo ] -*** TEST PASSED *** -TESTCASE # 41 E= 0 R$=[ hhhh ] A$=[ HHHH ] - F= 0 S$=[ hhhh ] -*** TEST PASSED *** -TESTCASE # 42 E= 0 R$=[ < ] A$=[ < ] - F= 0 S$=[ < ] -*** TEST PASSED *** -TESTCASE # 43 E= 0 R$=[ j ] A$=[ j ] - F= 0 S$=[ j ] -*** TEST PASSED *** -TESTCASE # 44 E= 0 R$=[ yyyy ] A$=[ yyyy ] - F= 0 S$=[ yyyy ] -*** TEST PASSED *** -TESTCASE # 45 E= 0 R$=[ +++ ] A$=[ +++ ] - F= 0 S$=[ +++ ] -*** TEST PASSED *** -TESTCASE # 46 E= 0 R$=[o ] A$=[o ] - F= 0 S$=[o ] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[ ((] A$=[ ((] - F= 0 S$=[ ((] -*** TEST PASSED *** -TESTCASE # 48 E= 0 R$=[ uu ] A$=[ uu ] - F= 0 S$=[ uu ] -*** TEST PASSED *** -TESTCASE # 49 E= 0 R$=[ 00 ] A$=[ 00 ] - F= 0 S$=[ 00 ] -*** TEST PASSED *** -TESTCASE # 50 E= 0 R$=[ hh ] A$=[ HH ] - F= 0 S$=[ hh ] -*** TEST PASSED *** -TESTCASE # 51 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 52 E= 0 R$=[ g ] A$=[ G ] - F= 0 S$=[ g ] -*** TEST PASSED *** -TESTCASE # 53 E= 0 R$=[ {{{{ ] A$=[ {{{{ ] - F= 0 S$=[ {{{{ ] -*** TEST PASSED *** -TESTCASE # 54 E= 0 R$=[ ]]] ] A$=[ ]]] ] - F= 0 S$=[ ]]] ] -*** TEST PASSED *** -TESTCASE # 55 E= 0 R$=[ccc] A$=[CCC] - F= 0 S$=[ccc] -*** TEST PASSED *** -TESTCASE # 56 E= 0 R$=[ 44 ] A$=[ 44 ] - F= 0 S$=[ 44 ] -*** TEST PASSED *** -TESTCASE # 57 E= 0 R$=[^^ ] A$=[^^ ] - F= 0 S$=[^^ ] -*** TEST PASSED *** -TESTCASE # 58 E= 0 R$=[ qq ] A$=[ QQ ] - F= 0 S$=[ qq ] -*** TEST PASSED *** -TESTCASE # 59 E= 0 R$=[ ffff ] A$=[ FFFF ] - F= 0 S$=[ ffff ] -*** TEST PASSED *** -TESTCASE # 60 E= 0 R$=[ n ] A$=[ n ] - F= 0 S$=[ n ] -*** TEST PASSED *** -TESTCASE # 61 E= 0 R$=[ hh ] A$=[ hh ] - F= 0 S$=[ hh ] -*** TEST PASSED *** -TESTCASE # 62 E= 0 R$=[555 ] A$=[555 ] - F= 0 S$=[555 ] -*** TEST PASSED *** -TESTCASE # 63 E= 0 R$=[ yyyy ] A$=[ YYYY ] - F= 0 S$=[ yyyy ] -*** TEST PASSED *** -TESTCASE # 64 E= 0 R$=[ w ] A$=[ w ] - F= 0 S$=[ w ] -*** TEST PASSED *** -TESTCASE # 65 E= 0 R$=[mmmm ] A$=[MMMM ] - F= 0 S$=[mmmm ] -*** TEST PASSED *** -TESTCASE # 66 E= 0 R$=[ jjjj ] A$=[ JJJJ ] - F= 0 S$=[ jjjj ] -*** TEST PASSED *** -TESTCASE # 67 E= 0 R$=[ %% ] A$=[ %% ] - F= 0 S$=[ %% ] -*** TEST PASSED *** -TESTCASE # 68 E= 0 R$=[ * ] A$=[ * ] - F= 0 S$=[ * ] -*** TEST PASSED *** -TESTCASE # 69 E= 0 R$=[ @@@ ] A$=[ @@@ ] - F= 0 S$=[ @@@ ] -*** TEST PASSED *** -TESTCASE # 70 E= 0 R$=[i ] A$=[I ] - F= 0 S$=[i ] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ ss ] A$=[ ss ] - F= 0 S$=[ ss ] -*** TEST PASSED *** -TESTCASE # 72 E= 0 R$=[ f ] A$=[ f ] - F= 0 S$=[ f ] -*** TEST PASSED *** -TESTCASE # 73 E= 0 R$=[ d ] A$=[ D ] - F= 0 S$=[ d ] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[### ] A$=[### ] - F= 0 S$=[### ] -*** TEST PASSED *** -TESTCASE # 75 E= 0 R$=[ ' ] A$=[ ' ] - F= 0 S$=[ ' ] -*** TEST PASSED *** -TESTCASE # 76 E= 0 R$=[ dd ] A$=[ dd ] - F= 0 S$=[ dd ] -*** TEST PASSED *** -TESTCASE # 77 E= 0 R$=[ tt ] A$=[ TT ] - F= 0 S$=[ tt ] -*** TEST PASSED *** -TESTCASE # 78 E= 0 R$=[ vvv ] A$=[ vvv ] - F= 0 S$=[ vvv ] -*** TEST PASSED *** -TESTCASE # 79 E= 0 R$=[ x ] A$=[ X ] - F= 0 S$=[ x ] -*** TEST PASSED *** -TESTCASE # 80 E= 0 R$=[ % ] A$=[ % ] - F= 0 S$=[ % ] -*** TEST PASSED *** -TESTCASE # 81 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 82 E= 0 R$=[ 5555 ] A$=[ 5555 ] - F= 0 S$=[ 5555 ] -*** TEST PASSED *** -TESTCASE # 83 E= 0 R$=[ffff ] A$=[FFFF ] - F= 0 S$=[ffff ] -*** TEST PASSED *** -TESTCASE # 84 E= 0 R$=[ %% ] A$=[ %% ] - F= 0 S$=[ %% ] -*** TEST PASSED *** -TESTCASE # 85 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 86 E= 0 R$=[ ~~~~ ] A$=[ ~~~~ ] - F= 0 S$=[ ~~~~ ] -*** TEST PASSED *** -TESTCASE # 87 E= 0 R$=[ || ] A$=[ || ] - F= 0 S$=[ || ] -*** TEST PASSED *** -TESTCASE # 88 E= 0 R$=[ sss ] A$=[ SSS ] - F= 0 S$=[ sss ] -*** TEST PASSED *** -TESTCASE # 89 E= 0 R$=[ 6666 ] A$=[ 6666 ] - F= 0 S$=[ 6666 ] -*** TEST PASSED *** -TESTCASE # 90 E= 0 R$=[ ww ] A$=[ ww ] - F= 0 S$=[ ww ] -*** TEST PASSED *** -TESTCASE # 91 E= 0 R$=[ 1111 ] A$=[ 1111 ] - F= 0 S$=[ 1111 ] -*** TEST PASSED *** -TESTCASE # 92 E= 0 R$=[ k ] A$=[ K ] - F= 0 S$=[ k ] -*** TEST PASSED *** -TESTCASE # 93 E= 0 R$=[ ttttt ] A$=[ ttttt ] - F= 0 S$=[ ttttt ] -*** TEST PASSED *** -TESTCASE # 94 E= 0 R$=[ ooooo ] A$=[ OOOOO ] - F= 0 S$=[ ooooo ] -*** TEST PASSED *** -TESTCASE # 95 E= 0 R$=[ e ] A$=[ E ] - F= 0 S$=[ e ] -*** TEST PASSED *** -TESTCASE # 96 E= 0 R$=[ ppppp ] A$=[ PPPPP ] - F= 0 S$=[ ppppp ] -*** TEST PASSED *** -TESTCASE # 97 E= 0 R$=[ == ] A$=[ == ] - F= 0 S$=[ == ] -*** TEST PASSED *** -TESTCASE # 98 E= 0 R$=[ vvvv ] A$=[ VVVV ] - F= 0 S$=[ vvvv ] -*** TEST PASSED *** -TESTCASE # 99 E= 0 R$=[ c ] A$=[ c ] - F= 0 S$=[ c ] -*** TEST PASSED *** -TESTCASE # 100 E= 0 R$=[ yyyy ] A$=[ - yyyy ] - F= 0 S$=[ yyyy ] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_LEFT_A_X_S.BAS b/bwbtest/NBS2X/F_LEFT_A_X_S.BAS deleted file mode 100644 index e6ef72c..0000000 --- a/bwbtest/NBS2X/F_LEFT_A_X_S.BAS +++ /dev/null @@ -1,160 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:25 -REM FILENAME: F_LEFT_A_X_S.BAS -REM SYNTAX: S$ = LEFT$( A$, X ) -REM UNIQUEID: F_LEFT_A_X_S -REM FUNCTION: LEFT$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, A$, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "A$=[";A$;"]", "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = LEFT$( A$, X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", "", 0 -DATA 2 , 0 , " ", " ", 1 -DATA 3 , 1 , "", "3", -1 -DATA 4 , 0 , "", "z", .4 -DATA 5 , 0 , "", " ", -.4 -DATA 6 , 0 , " ", " 3", .6 -DATA 7 , 1 , "", " z", -.6 -DATA 8 , 0 , "3 ", "3 ", 254 -DATA 9 , 0 , "z ", "z ", 255 -DATA 10 , 0 , " 3 ", " 3 ", 256 -DATA 11 , 1 , "", " z ", 32000 -DATA 12 , 0 , "", " LLLL", -.227229 -DATA 13 , 0 , "", " '' ", -.239157 -DATA 14 , 0 , "", " oo ", -.213586 -DATA 15 , 0 , "", " 00 ", .274675 -DATA 16 , 0 , "", " \\\\ ", .169766 -DATA 17 , 0 , "", " lllll ", .318766 -DATA 18 , 0 , "", " uuuu ", 2.06658E-2 -DATA 19 , 0 , "", " a ", .188257 -DATA 20 , 0 , "", " ", -.277537 -DATA 21 , 0 , "", " hh ", -.481303 -DATA 22 , 0 , "", " h ", .43556 -DATA 23 , 0 , "", " )", -.210971 -DATA 24 , 0 , "", " 5 ", -.455216 -DATA 25 , 1 , "", " 2 ", -110.907 -DATA 26 , 0 , " - ", " - ", 105.632 -DATA 27 , 1 , "", "dd ", -114.341 -DATA 28 , 0 , " tttt ", " tttt ", 109.706 -DATA 29 , 0 , " :::: ", " :::: ", 109.198 -DATA 30 , 0 , " ___ ", " ___ ", 85.8773 -DATA 31 , 1 , "", " ", -58.3548 -DATA 32 , 0 , " ", " ", 29.6397 -DATA 33 , 1 , "", " _____ ", -108.36 -DATA 34 , 1 , "", " S ", -46.5199 -DATA 35 , 0 , " FFFF ", " FFFF ", 112.521 -DATA 36 , 0 , " kkk", " kkk", 45.4151 -DATA 37 , 0 , " NNNN ", " NNNN ", 101.129 -DATA 38 , 0 , " mmmm ", " mmmm ", 65.0473 -DATA 39 , 0 , " ,,,,, ", " ,,,,, ", 48.4012 -DATA 40 , 0 , "OO ", "OO ", 122.294 -DATA 41 , 1 , "", " HHHH ", -56.1094 -DATA 42 , 1 , "", " < ", -121.087 -DATA 43 , 1 , "", " j ", -123.517 -DATA 44 , 1 , "", " yyyy ", -97.6301 -DATA 45 , 1 , "", " +++ ", -64.0001 -DATA 46 , 1 , "", "o ", -25.6888 -DATA 47 , 0 , " ((", " ((", 14.8006 -DATA 48 , 1 , "", " uu ", -61.0877 -DATA 49 , 1 , "", " 00 ", -66.6381 -DATA 50 , 1 , "", " HH ", -5476.5 -DATA 51 , 1 , "", " ", -21210.3 -DATA 52 , 1 , "", " G ", -28757.2 -DATA 53 , 1 , "", " {{{{ ", -28732.2 -DATA 54 , 1 , "", " ]]] ", 12730.3 -DATA 55 , 1 , "", "CCC", -1830.69 -DATA 56 , 1 , "", " 44 ", 5486.39 -DATA 57 , 1 , "", "^^ ", 22405.9 -DATA 58 , 1 , "", " QQ ", 30809.8 -DATA 59 , 1 , "", " FFFF ", -28930.6 -DATA 60 , 1 , "", " n ", -6014.53 -DATA 61 , 1 , "", " hh ", 17414.6 -DATA 62 , 1 , "", "555 ", -10538.3 -DATA 63 , 1 , "", " YYYY ", -17536.3 -DATA 64 , 1 , "", " w ", -8856.62 -DATA 65 , 1 , "", "MMMM ", -5140.12 -DATA 66 , 1 , "", " JJJJ ", -8595.31 -DATA 67 , 1 , "", " %% ", -3382.87 -DATA 68 , 1 , "", " * ", -5002.07 -DATA 69 , 1 , "", " @@@ ", -5800.72 -DATA 70 , 1 , "", "I ", 29686.4 -DATA 71 , 0 , " ss ", " ss ", 2571. -DATA 72 , 1 , "", " f ", 31091. -DATA 73 , 1 , "", " D ", 14819. -DATA 74 , 0 , "### ", "### ", 3790.9 -DATA 75 , 1 , "", " ' ", -4.2981E+9 -DATA 76 , 1 , "", " dd ", -7.05453E+8 -DATA 77 , 1 , "", " TT ", -3.10179E+9 -DATA 78 , 1 , "", " vvv ", -4.86159E+9 -DATA 79 , 1 , "", " X ", -8.62908E+8 -DATA 80 , 1 , "", " % ", -3.4101E+9 -DATA 81 , 1 , "", " ", 3.3889E+9 -DATA 82 , 1 , "", " 5555 ", 2.49826E+9 -DATA 83 , 1 , "", "FFFF ", 2.3491E+9 -DATA 84 , 1 , "", " %% ", 1.94745E+8 -DATA 85 , 1 , "", " ", 2.02475E+9 -DATA 86 , 1 , "", " ~~~~ ", -2.26748E+9 -DATA 87 , 1 , "", " || ", -2.10587E+9 -DATA 88 , 1 , "", " SSS ", 4.23585E+9 -DATA 89 , 1 , "", " 6666 ", -2.66524E+9 -DATA 90 , 1 , "", " ww ", 4.01052E+9 -DATA 91 , 1 , "", " 1111 ", -4.87912E+9 -DATA 92 , 1 , "", " K ", 1.77556E+9 -DATA 93 , 1 , "", " ttttt ", 2.87705E+8 -DATA 94 , 1 , "", " OOOOO ", 1.99977E+8 -DATA 95 , 1 , "", " E ", -3.39941E+9 -DATA 96 , 1 , "", " PPPPP ", -3.49119E+9 -DATA 97 , 1 , "", " == ", -2.86324E+9 -DATA 98 , 1 , "", " VVVV ", 4.20418E+9 -DATA 99 , 1 , "", " c ", -3.1518E+9 -DATA 100 , 1 , "", " yyyy ", 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_LEFT_A_X_S.run b/bwbtest/NBS2X/F_LEFT_A_X_S.run deleted file mode 100644 index 2125e9e..0000000 --- a/bwbtest/NBS2X/F_LEFT_A_X_S.run +++ /dev/null @@ -1,319 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] A$=[] X= 0 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] A$=[ ] X= 1 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 3 E= 1 R$=[] A$=[3] X=-1 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[] A$=[z] X= .4 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[] A$=[ ] X=-.4 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ ] A$=[ 3] X= .6 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 7 E= 1 R$=[] A$=[ z] X=-.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[3 ] A$=[3 ] X= 254 - F= 0 S$=[3 ] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[z ] A$=[z ] X= 255 - F= 0 S$=[z ] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[ 3 ] A$=[ 3 ] X= 256 - F= 0 S$=[ 3 ] -*** TEST PASSED *** -TESTCASE # 11 E= 1 R$=[] A$=[ z ] X= 32000 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[] A$=[ LLLL] X=-.227229 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[] A$=[ '' ] X= --.239157 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[] A$=[ oo ] X= --.213586 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[] A$=[ 00 ] X= .274675 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[] A$=[ \\\\ ] X= .169766 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[] A$=[ lllll ] X= .318766 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[] A$=[ uuuu ] X= - 2.06658E-2 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[] A$=[ a ] X= .188257 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[] A$=[ ] X=-.277537 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[] A$=[ hh ] X=-.481303 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[] A$=[ h ] X= .43556 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[] A$=[ )] X=-.210971 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[] A$=[ 5 ] X=-.455216 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 25 E= 1 R$=[] A$=[ 2 ] X=-110.907 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[ - ] A$=[ - ] X= 105.632 - F= 0 S$=[ - ] -*** TEST PASSED *** -TESTCASE # 27 E= 1 R$=[] A$=[dd ] X=-114.341 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[ tttt ] A$=[ tttt ] X= 109.706 - F= 0 S$=[ tttt ] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[ :::: ] A$=[ :::: ] X= 109.198 - F= 0 S$=[ :::: ] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[ ___ ] A$=[ ___ ] X= 85.8773 - F= 0 S$=[ ___ ] -*** TEST PASSED *** -TESTCASE # 31 E= 1 R$=[] A$=[ ] X=-58.3548 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[ ] A$=[ ] X= 29.6397 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 33 E= 1 R$=[] A$=[ _____ ] X=-108.36 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 34 E= 1 R$=[] A$=[ S ] X=-46.5199 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[ FFFF ] A$=[ FFFF ] X= 112.521 - F= 0 S$=[ FFFF ] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[ kkk] A$=[ kkk] X= 45.4151 - F= 0 S$=[ kkk] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[ NNNN ] A$=[ NNNN ] -X= 101.129 - F= 0 S$=[ NNNN ] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[ mmmm ] A$=[ mmmm ] X= 65.0473 - F= 0 S$=[ mmmm ] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[ ,,,,, ] A$=[ ,,,,, ] -X= 48.4012 - F= 0 S$=[ ,,,,, ] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[OO ] A$=[OO ] X= 122.294 - F= 0 S$=[OO ] -*** TEST PASSED *** -TESTCASE # 41 E= 1 R$=[] A$=[ HHHH ] X=-56.1094 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 42 E= 1 R$=[] A$=[ < ] X=-121.087 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 43 E= 1 R$=[] A$=[ j ] X=-123.517 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 44 E= 1 R$=[] A$=[ yyyy ] X= --97.6301 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 45 E= 1 R$=[] A$=[ +++ ] X=-64.0001 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 46 E= 1 R$=[] A$=[o ] X=-25.6888 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[ ((] A$=[ ((] X= 14.8006 - F= 0 S$=[ ((] -*** TEST PASSED *** -TESTCASE # 48 E= 1 R$=[] A$=[ uu ] X= --61.0877 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 49 E= 1 R$=[] A$=[ 00 ] X= --66.6381 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 50 E= 1 R$=[] A$=[ HH ] X=-5476.5 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 51 E= 1 R$=[] A$=[ ] X=-21210.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 1 R$=[] A$=[ G ] X=-28757.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 53 E= 1 R$=[] A$=[ {{{{ ] X=-28732.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 54 E= 1 R$=[] A$=[ ]]] ] X= - 12730.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 55 E= 1 R$=[] A$=[CCC] X=-1830.69 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 56 E= 1 R$=[] A$=[ 44 ] X= 5486.39 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 57 E= 1 R$=[] A$=[^^ ] X= 22405.9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 58 E= 1 R$=[] A$=[ QQ ] X= - 30809.8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 59 E= 1 R$=[] A$=[ FFFF ] X= --28930.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 60 E= 1 R$=[] A$=[ n ] X=-6014.53 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 61 E= 1 R$=[] A$=[ hh ] X= 17414.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 62 E= 1 R$=[] A$=[555 ] X=-10538.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 63 E= 1 R$=[] A$=[ YYYY ] X=-17536.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 64 E= 1 R$=[] A$=[ w ] X= --8856.62 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 65 E= 1 R$=[] A$=[MMMM ] X=-5140.12 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 66 E= 1 R$=[] A$=[ JJJJ ] X=-8595.31 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 67 E= 1 R$=[] A$=[ %% ] X= --3382.87 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 68 E= 1 R$=[] A$=[ * ] X=-5002.07 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 69 E= 1 R$=[] A$=[ @@@ ] X= --5800.72 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 70 E= 1 R$=[] A$=[I ] X= 29686.4 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ ss ] A$=[ ss ] X= 2571 - F= 0 S$=[ ss ] -*** TEST PASSED *** -TESTCASE # 72 E= 1 R$=[] A$=[ f ] X= 31091 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 73 E= 1 R$=[] A$=[ D ] X= 14819 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[### ] A$=[### ] X= 3790.9 - F= 0 S$=[### ] -*** TEST PASSED *** -TESTCASE # 75 E= 1 R$=[] A$=[ ' ] X= --4.2981E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 76 E= 1 R$=[] A$=[ dd ] X=-7.05453E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 77 E= 1 R$=[] A$=[ TT ] X=-3.10179E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 78 E= 1 R$=[] A$=[ vvv ] X=-4.86159E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 79 E= 1 R$=[] A$=[ X ] X=-8.62908E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 80 E= 1 R$=[] A$=[ % ] X=-3.4101E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 81 E= 1 R$=[] A$=[ ] X= 3.3889E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 1 R$=[] A$=[ 5555 ] X= 2.49826E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 83 E= 1 R$=[] A$=[FFFF ] X= 2.3491E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 84 E= 1 R$=[] A$=[ %% ] X= 1.94745E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 85 E= 1 R$=[] A$=[ ] X= 2.02475E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 1 R$=[] A$=[ ~~~~ ] X= --2.26748E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 87 E= 1 R$=[] A$=[ || ] X=-2.10587E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 88 E= 1 R$=[] A$=[ SSS ] X= - 4.23585E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 89 E= 1 R$=[] A$=[ 6666 ] X=-2.66524E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 90 E= 1 R$=[] A$=[ ww ] X= 4.01052E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 91 E= 1 R$=[] A$=[ 1111 ] X=-4.87912E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 92 E= 1 R$=[] A$=[ K ] X= 1.77556E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 93 E= 1 R$=[] A$=[ ttttt ] X= 2.87705E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 94 E= 1 R$=[] A$=[ OOOOO ] X= 1.99977E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 95 E= 1 R$=[] A$=[ E ] X=-3.39941E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 96 E= 1 R$=[] A$=[ PPPPP ] X=-3.49119E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 97 E= 1 R$=[] A$=[ == ] X=-2.86324E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 98 E= 1 R$=[] A$=[ VVVV ] X= 4.20418E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 99 E= 1 R$=[] A$=[ c ] X=-3.1518E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 100 E= 1 R$=[] A$=[ yyyy ] -X= 4.60615E+9 - F= 1 S$=[] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_LEN_A_N.BAS b/bwbtest/NBS2X/F_LEN_A_N.BAS deleted file mode 100644 index 26f9fc0..0000000 --- a/bwbtest/NBS2X/F_LEN_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:25 -REM FILENAME: F_LEN_A_N.BAS -REM SYNTAX: N = LEN( A$ ) -REM UNIQUEID: F_LEN_A_N -REM FUNCTION: LEN -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = LEN( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , "" -DATA 2 , 0 , 1 , " " -DATA 3 , 0 , 1 , "3" -DATA 4 , 0 , 1 , "z" -DATA 5 , 0 , 2 , " " -DATA 6 , 0 , 2 , " 3" -DATA 7 , 0 , 2 , " z" -DATA 8 , 0 , 2 , "3 " -DATA 9 , 0 , 2 , "z " -DATA 10 , 0 , 3 , " 3 " -DATA 11 , 0 , 3 , " z " -DATA 12 , 0 , 5 , " LLLL" -DATA 13 , 0 , 10 , " '' " -DATA 14 , 0 , 10 , " oo " -DATA 15 , 0 , 5 , " 00 " -DATA 16 , 0 , 9 , " \\\\ " -DATA 17 , 0 , 8 , " lllll " -DATA 18 , 0 , 10 , " uuuu " -DATA 19 , 0 , 5 , " a " -DATA 20 , 0 , 7 , " " -DATA 21 , 0 , 8 , " hh " -DATA 22 , 0 , 6 , " h " -DATA 23 , 0 , 2 , " )" -DATA 24 , 0 , 8 , " 5 " -DATA 25 , 0 , 4 , " 2 " -DATA 26 , 0 , 5 , " - " -DATA 27 , 0 , 3 , "dd " -DATA 28 , 0 , 9 , " tttt " -DATA 29 , 0 , 9 , " :::: " -DATA 30 , 0 , 9 , " ___ " -DATA 31 , 0 , 5 , " " -DATA 32 , 0 , 7 , " " -DATA 33 , 0 , 8 , " _____ " -DATA 34 , 0 , 3 , " S " -DATA 35 , 0 , 7 , " FFFF " -DATA 36 , 0 , 7 , " kkk" -DATA 37 , 0 , 10 , " NNNN " -DATA 38 , 0 , 9 , " mmmm " -DATA 39 , 0 , 10 , " ,,,,, " -DATA 40 , 0 , 5 , "OO " -DATA 41 , 0 , 9 , " HHHH " -DATA 42 , 0 , 3 , " < " -DATA 43 , 0 , 8 , " j " -DATA 44 , 0 , 12 , " yyyy " -DATA 45 , 0 , 6 , " +++ " -DATA 46 , 0 , 3 , "o " -DATA 47 , 0 , 6 , " ((" -DATA 48 , 0 , 12 , " uu " -DATA 49 , 0 , 11 , " 00 " -DATA 50 , 0 , 9 , " HH " -DATA 51 , 0 , 5 , " " -DATA 52 , 0 , 6 , " G " -DATA 53 , 0 , 9 , " {{{{ " -DATA 54 , 0 , 12 , " ]]] " -DATA 55 , 0 , 3 , "CCC" -DATA 56 , 0 , 9 , " 44 " -DATA 57 , 0 , 4 , "^^ " -DATA 58 , 0 , 10 , " QQ " -DATA 59 , 0 , 11 , " FFFF " -DATA 60 , 0 , 5 , " n " -DATA 61 , 0 , 8 , " hh " -DATA 62 , 0 , 7 , "555 " -DATA 63 , 0 , 9 , " YYYY " -DATA 64 , 0 , 10 , " w " -DATA 65 , 0 , 5 , "MMMM " -DATA 66 , 0 , 9 , " JJJJ " -DATA 67 , 0 , 10 , " %% " -DATA 68 , 0 , 8 , " * " -DATA 69 , 0 , 10 , " @@@ " -DATA 70 , 0 , 2 , "I " -DATA 71 , 0 , 8 , " ss " -DATA 72 , 0 , 4 , " f " -DATA 73 , 0 , 6 , " D " -DATA 74 , 0 , 7 , "### " -DATA 75 , 0 , 10 , " ' " -DATA 76 , 0 , 8 , " dd " -DATA 77 , 0 , 7 , " TT " -DATA 78 , 0 , 6 , " vvv " -DATA 79 , 0 , 6 , " X " -DATA 80 , 0 , 8 , " % " -DATA 81 , 0 , 2 , " " -DATA 82 , 0 , 8 , " 5555 " -DATA 83 , 0 , 7 , "FFFF " -DATA 84 , 0 , 9 , " %% " -DATA 85 , 0 , 5 , " " -DATA 86 , 0 , 10 , " ~~~~ " -DATA 87 , 0 , 9 , " || " -DATA 88 , 0 , 13 , " SSS " -DATA 89 , 0 , 8 , " 6666 " -DATA 90 , 0 , 9 , " ww " -DATA 91 , 0 , 9 , " 1111 " -DATA 92 , 0 , 3 , " K " -DATA 93 , 0 , 8 , " ttttt " -DATA 94 , 0 , 9 , " OOOOO " -DATA 95 , 0 , 4 , " E " -DATA 96 , 0 , 9 , " PPPPP " -DATA 97 , 0 , 7 , " == " -DATA 98 , 0 , 9 , " VVVV " -DATA 99 , 0 , 5 , " c " -DATA 100 , 0 , 13 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_LEN_A_N.run b/bwbtest/NBS2X/F_LEN_A_N.run deleted file mode 100644 index 507620c..0000000 --- a/bwbtest/NBS2X/F_LEN_A_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 A$=[] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 A$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 1 A$=[3] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 1 A$=[z] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 2 A$=[ ] - F= 0 N= 2 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 2 A$=[ 3] - F= 0 N= 2 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 2 A$=[ z] - F= 0 N= 2 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 2 A$=[3 ] - F= 0 N= 2 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 2 A$=[z ] - F= 0 N= 2 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 3 A$=[ 3 ] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 3 A$=[ z ] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 5 A$=[ LLLL] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 10 A$=[ '' ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 10 A$=[ oo ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 5 A$=[ 00 ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 9 A$=[ \\\\ ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 8 A$=[ lllll ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 10 A$=[ uuuu ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 5 A$=[ a ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 7 A$=[ ] - F= 0 N= 7 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 8 A$=[ hh ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 6 A$=[ h ] - F= 0 N= 6 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 2 A$=[ )] - F= 0 N= 2 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 8 A$=[ 5 ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 4 A$=[ 2 ] - F= 0 N= 4 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 5 A$=[ - ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 3 A$=[dd ] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 9 A$=[ tttt ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 9 A$=[ :::: ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 9 A$=[ ___ ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 5 A$=[ ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 7 A$=[ ] - F= 0 N= 7 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 8 A$=[ _____ ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 3 A$=[ S ] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 7 A$=[ FFFF ] - F= 0 N= 7 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 7 A$=[ kkk] - F= 0 N= 7 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 10 A$=[ NNNN ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 9 A$=[ mmmm ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 10 A$=[ ,,,,, ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 5 A$=[OO ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 9 A$=[ HHHH ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 3 A$=[ < ] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 8 A$=[ j ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 12 A$=[ yyyy ] - F= 0 N= 12 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 6 A$=[ +++ ] - F= 0 N= 6 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 3 A$=[o ] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 6 A$=[ ((] - F= 0 N= 6 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 12 A$=[ uu ] - F= 0 N= 12 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 11 A$=[ 00 ] - F= 0 N= 11 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 9 A$=[ HH ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 5 A$=[ ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 6 A$=[ G ] - F= 0 N= 6 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 9 A$=[ {{{{ ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12 A$=[ ]]] ] - F= 0 N= 12 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 3 A$=[CCC] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 9 A$=[ 44 ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 4 A$=[^^ ] - F= 0 N= 4 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 10 A$=[ QQ ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 11 A$=[ FFFF ] - F= 0 N= 11 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 5 A$=[ n ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 8 A$=[ hh ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 7 A$=[555 ] - F= 0 N= 7 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 9 A$=[ YYYY ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 10 A$=[ w ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 5 A$=[MMMM ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 9 A$=[ JJJJ ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 10 A$=[ %% ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 8 A$=[ * ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 10 A$=[ @@@ ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 2 A$=[I ] - F= 0 N= 2 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 8 A$=[ ss ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 4 A$=[ f ] - F= 0 N= 4 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 6 A$=[ D ] - F= 0 N= 6 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 7 A$=[### ] - F= 0 N= 7 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 10 A$=[ ' ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 8 A$=[ dd ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 7 A$=[ TT ] - F= 0 N= 7 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 6 A$=[ vvv ] - F= 0 N= 6 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 6 A$=[ X ] - F= 0 N= 6 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 8 A$=[ % ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 2 A$=[ ] - F= 0 N= 2 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 8 A$=[ 5555 ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 7 A$=[FFFF ] - F= 0 N= 7 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 9 A$=[ %% ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 5 A$=[ ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 10 A$=[ ~~~~ ] - F= 0 N= 10 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 9 A$=[ || ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 13 A$=[ SSS ] - F= 0 N= 13 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 8 A$=[ 6666 ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 9 A$=[ ww ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 9 A$=[ 1111 ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 3 A$=[ K ] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 8 A$=[ ttttt ] - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 9 A$=[ OOOOO ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 4 A$=[ E ] - F= 0 N= 4 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 9 A$=[ PPPPP ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 7 A$=[ == ] - F= 0 N= 7 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 9 A$=[ VVVV ] - F= 0 N= 9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 5 A$=[ c ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 13 A$=[ yyyy ] - F= 0 N= 13 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_LOC_X_N.run b/bwbtest/NBS2X/F_LOC_X_N.run deleted file mode 100644 index c692128..0000000 --- a/bwbtest/NBS2X/F_LOC_X_N.run +++ /dev/null @@ -1,8 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 0 X= 1 - F= 1 N= 0 -*** TEST FAILED, EXCEPTION MISMATCH *** - -Program interrupted at line 1006 diff --git a/bwbtest/NBS2X/F_LOF_X_N.run b/bwbtest/NBS2X/F_LOF_X_N.run deleted file mode 100644 index e092330..0000000 --- a/bwbtest/NBS2X/F_LOF_X_N.run +++ /dev/null @@ -1,8 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 2950 X= 1 - F= 1 N= 0 -*** TEST FAILED, EXCEPTION MISMATCH *** - -Program interrupted at line 1006 diff --git a/bwbtest/NBS2X/F_LOG10_X_N.BAS b/bwbtest/NBS2X/F_LOG10_X_N.BAS deleted file mode 100644 index 358398c..0000000 --- a/bwbtest/NBS2X/F_LOG10_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:26 -REM FILENAME: F_LOG10_X_N.BAS -REM SYNTAX: N = LOG10( X ) -REM UNIQUEID: F_LOG10_X_N -REM FUNCTION: LOG10 -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = LOG10( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , 0 -DATA 2 , 0 , 0 , 1 -DATA 3 , 1 , 0 , -1 -DATA 4 , 0 , -.39794 , .4 -DATA 5 , 1 , 0 , -.4 -DATA 6 , 0 , -.221849 , .6 -DATA 7 , 1 , 0 , -.6 -DATA 8 , 0 , 2.40483 , 254 -DATA 9 , 0 , 2.40654 , 255 -DATA 10 , 0 , 2.40824 , 256 -DATA 11 , 0 , 4.50515 , 32000 -DATA 12 , 1 , 0 , -.227229 -DATA 13 , 1 , 0 , -.239157 -DATA 14 , 1 , 0 , -.213586 -DATA 15 , 0 , -.561181 , .274675 -DATA 16 , 0 , -.770149 , .169766 -DATA 17 , 0 , -.496528 , .318766 -DATA 18 , 0 , -1.68475 , 2.06658E-2 -DATA 19 , 0 , -.725249 , .188257 -DATA 20 , 1 , 0 , -.277537 -DATA 21 , 1 , 0 , -.481303 -DATA 22 , 0 , -.360952 , .43556 -DATA 23 , 1 , 0 , -.210971 -DATA 24 , 1 , 0 , -.455216 -DATA 25 , 1 , 0 , -110.907 -DATA 26 , 0 , 2.0238 , 105.632 -DATA 27 , 1 , 0 , -114.341 -DATA 28 , 0 , 2.04023 , 109.706 -DATA 29 , 0 , 2.03821 , 109.198 -DATA 30 , 0 , 1.93388 , 85.8773 -DATA 31 , 1 , 0 , -58.3548 -DATA 32 , 0 , 1.47187 , 29.6397 -DATA 33 , 1 , 0 , -108.36 -DATA 34 , 1 , 0 , -46.5199 -DATA 35 , 0 , 2.05123 , 112.521 -DATA 36 , 0 , 1.6572 , 45.4151 -DATA 37 , 0 , 2.00488 , 101.129 -DATA 38 , 0 , 1.81323 , 65.0473 -DATA 39 , 0 , 1.68486 , 48.4012 -DATA 40 , 0 , 2.08741 , 122.294 -DATA 41 , 1 , 0 , -56.1094 -DATA 42 , 1 , 0 , -121.087 -DATA 43 , 1 , 0 , -123.517 -DATA 44 , 1 , 0 , -97.6301 -DATA 45 , 1 , 0 , -64.0001 -DATA 46 , 1 , 0 , -25.6888 -DATA 47 , 0 , 1.17028 , 14.8006 -DATA 48 , 1 , 0 , -61.0877 -DATA 49 , 1 , 0 , -66.6381 -DATA 50 , 1 , 0 , -5476.5 -DATA 51 , 1 , 0 , -21210.3 -DATA 52 , 1 , 0 , -28757.2 -DATA 53 , 1 , 0 , -28732.2 -DATA 54 , 0 , 4.10484 , 12730.3 -DATA 55 , 1 , 0 , -1830.69 -DATA 56 , 0 , 3.73929 , 5486.39 -DATA 57 , 0 , 4.35036 , 22405.9 -DATA 58 , 0 , 4.48869 , 30809.8 -DATA 59 , 1 , 0 , -28930.6 -DATA 60 , 1 , 0 , -6014.53 -DATA 61 , 0 , 4.24091 , 17414.6 -DATA 62 , 1 , 0 , -10538.3 -DATA 63 , 1 , 0 , -17536.3 -DATA 64 , 1 , 0 , -8856.62 -DATA 65 , 1 , 0 , -5140.12 -DATA 66 , 1 , 0 , -8595.31 -DATA 67 , 1 , 0 , -3382.87 -DATA 68 , 1 , 0 , -5002.07 -DATA 69 , 1 , 0 , -5800.72 -DATA 70 , 0 , 4.47256 , 29686.4 -DATA 71 , 0 , 3.4101 , 2571. -DATA 72 , 0 , 4.49263 , 31091. -DATA 73 , 0 , 4.17082 , 14819. -DATA 74 , 0 , 3.57874 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 1 , 0 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 1 , 0 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 0 , 9.53006 , 3.3889E+9 -DATA 82 , 0 , 9.39764 , 2.49826E+9 -DATA 83 , 0 , 9.3709 , 2.3491E+9 -DATA 84 , 0 , 8.28947 , 1.94745E+8 -DATA 85 , 0 , 9.30637 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 1 , 0 , -2.10587E+9 -DATA 88 , 0 , 9.62694 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 0 , 9.6032 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 0 , 9.24934 , 1.77556E+9 -DATA 93 , 0 , 8.45895 , 2.87705E+8 -DATA 94 , 0 , 8.30098 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 0 , 9.62368 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 0 , 9.66334 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_LOG10_X_N.run b/bwbtest/NBS2X/F_LOG10_X_N.run deleted file mode 100644 index 130a5d3..0000000 --- a/bwbtest/NBS2X/F_LOG10_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 X= 0 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 0 X= 1 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 X=-1 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R=-.39794 X= .4 - F= 0 N=-.39794 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 X=-.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R=-.221849 X= .6 - F= 0 N=-.221849 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 X=-.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 2.40483 X= 254 - F= 0 N= 2.40483 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 2.40654 X= 255 - F= 0 N= 2.40654 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 2.40824 X= 256 - F= 0 N= 2.40824 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 4.50515 X= 32000 - F= 0 N= 4.50515 -*** TEST PASSED *** -TESTCASE # 12 E= 1 R= 0 X=-.227229 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 1 R= 0 X=-.239157 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 1 R= 0 X=-.213586 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R=-.561181 X= .274675 - F= 0 N=-.561181 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R=-.770149 X= .169766 - F= 0 N=-.770149 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R=-.496528 X= .318766 - F= 0 N=-.496528 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R=-1.68475 X= 2.06658E-2 - F= 0 N=-1.68475 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R=-.725249 X= .188257 - F= 0 N=-.725249 -*** TEST PASSED *** -TESTCASE # 20 E= 1 R= 0 X=-.277537 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 1 R= 0 X=-.481303 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R=-.360952 X= .43556 - F= 0 N=-.360952 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 X=-.210971 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 1 R= 0 X=-.455216 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 2.0238 X= 105.632 - F= 0 N= 2.0238 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 2.04023 X= 109.706 - F= 0 N= 2.04023 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 2.03821 X= 109.198 - F= 0 N= 2.03821 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1.93388 X= 85.8773 - F= 0 N= 1.93388 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 1.47187 X= 29.6397 - F= 0 N= 1.47187 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 2.05123 X= 112.521 - F= 0 N= 2.05123 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 1.6572 X= 45.4151 - F= 0 N= 1.6572 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 2.00488 X= 101.129 - F= 0 N= 2.00488 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1.81323 X= 65.0473 - F= 0 N= 1.81323 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 1.68486 X= 48.4012 - F= 0 N= 1.68486 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 2.08741 X= 122.294 - F= 0 N= 2.08741 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 X=-25.6888 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 1.17028 X= 14.8006 - F= 0 N= 1.17028 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 4.10484 X= 12730.3 - F= 0 N= 4.10484 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 3.73929 X= 5486.39 - F= 0 N= 3.73929 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 4.35036 X= 22405.9 - F= 0 N= 4.35036 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 4.48869 X= 30809.8 - F= 0 N= 4.48869 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 4.24091 X= 17414.6 - F= 0 N= 4.24091 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 4.47256 X= 29686.4 - F= 0 N= 4.47256 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 3.4101 X= 2571 - F= 0 N= 3.4101 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 4.49263 X= 31091 - F= 0 N= 4.49263 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 4.17082 X= 14819 - F= 0 N= 4.17082 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3.57874 X= 3790.9 - F= 0 N= 3.57874 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 9.53006 X= 3.3889E+9 - F= 0 N= 9.53006 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 9.39764 X= 2.49826E+9 - F= 0 N= 9.39764 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 9.3709 X= 2.3491E+9 - F= 0 N= 9.3709 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 8.28947 X= 1.94745E+8 - F= 0 N= 8.28947 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 9.30637 X= 2.02475E+9 - F= 0 N= 9.30637 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 9.62694 X= 4.23585E+9 - F= 0 N= 9.62694 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 9.6032 X= 4.01052E+9 - F= 0 N= 9.6032 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 9.24934 X= 1.77556E+9 - F= 0 N= 9.24934 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 8.45895 X= 2.87705E+8 - F= 0 N= 8.45895 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 8.30098 X= 1.99977E+8 - F= 0 N= 8.30098 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 9.62368 X= 4.20418E+9 - F= 0 N= 9.62368 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 9.66334 X= 4.60615E+9 - F= 0 N= 9.66334 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_LOG2_X_N.BAS b/bwbtest/NBS2X/F_LOG2_X_N.BAS deleted file mode 100644 index 5052a7c..0000000 --- a/bwbtest/NBS2X/F_LOG2_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:26 -REM FILENAME: F_LOG2_X_N.BAS -REM SYNTAX: N = LOG2( X ) -REM UNIQUEID: F_LOG2_X_N -REM FUNCTION: LOG2 -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = LOG2( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , 0 -DATA 2 , 0 , 0 , 1 -DATA 3 , 1 , 0 , -1 -DATA 4 , 0 , -1.32193 , .4 -DATA 5 , 1 , 0 , -.4 -DATA 6 , 0 , -.736966 , .6 -DATA 7 , 1 , 0 , -.6 -DATA 8 , 0 , 7.98868 , 254 -DATA 9 , 0 , 7.99435 , 255 -DATA 10 , 0 , 8 , 256 -DATA 11 , 0 , 14.9658 , 32000 -DATA 12 , 1 , 0 , -.227229 -DATA 13 , 1 , 0 , -.239157 -DATA 14 , 1 , 0 , -.213586 -DATA 15 , 0 , -1.8642 , .274675 -DATA 16 , 0 , -2.55838 , .169766 -DATA 17 , 0 , -1.64943 , .318766 -DATA 18 , 0 , -5.59661 , 2.06658E-2 -DATA 19 , 0 , -2.40922 , .188257 -DATA 20 , 1 , 0 , -.277537 -DATA 21 , 1 , 0 , -.481303 -DATA 22 , 0 , -1.19906 , .43556 -DATA 23 , 1 , 0 , -.210971 -DATA 24 , 1 , 0 , -.455216 -DATA 25 , 1 , 0 , -110.907 -DATA 26 , 0 , 6.7229 , 105.632 -DATA 27 , 1 , 0 , -114.341 -DATA 28 , 0 , 6.7775 , 109.706 -DATA 29 , 0 , 6.7708 , 109.198 -DATA 30 , 0 , 6.4242 , 85.8773 -DATA 31 , 1 , 0 , -58.3548 -DATA 32 , 0 , 4.88946 , 29.6397 -DATA 33 , 1 , 0 , -108.36 -DATA 34 , 1 , 0 , -46.5199 -DATA 35 , 0 , 6.81405 , 112.521 -DATA 36 , 0 , 5.5051 , 45.4151 -DATA 37 , 0 , 6.66005 , 101.129 -DATA 38 , 0 , 6.02342 , 65.0473 -DATA 39 , 0 , 5.59697 , 48.4012 -DATA 40 , 0 , 6.93421 , 122.294 -DATA 41 , 1 , 0 , -56.1094 -DATA 42 , 1 , 0 , -121.087 -DATA 43 , 1 , 0 , -123.517 -DATA 44 , 1 , 0 , -97.6301 -DATA 45 , 1 , 0 , -64.0001 -DATA 46 , 1 , 0 , -25.6888 -DATA 47 , 0 , 3.88758 , 14.8006 -DATA 48 , 1 , 0 , -61.0877 -DATA 49 , 1 , 0 , -66.6381 -DATA 50 , 1 , 0 , -5476.5 -DATA 51 , 1 , 0 , -21210.3 -DATA 52 , 1 , 0 , -28757.2 -DATA 53 , 1 , 0 , -28732.2 -DATA 54 , 0 , 13.636 , 12730.3 -DATA 55 , 1 , 0 , -1830.69 -DATA 56 , 0 , 12.4216 , 5486.39 -DATA 57 , 0 , 14.4516 , 22405.9 -DATA 58 , 0 , 14.9111 , 30809.8 -DATA 59 , 1 , 0 , -28930.6 -DATA 60 , 1 , 0 , -6014.53 -DATA 61 , 0 , 14.088 , 17414.6 -DATA 62 , 1 , 0 , -10538.3 -DATA 63 , 1 , 0 , -17536.3 -DATA 64 , 1 , 0 , -8856.62 -DATA 65 , 1 , 0 , -5140.12 -DATA 66 , 1 , 0 , -8595.31 -DATA 67 , 1 , 0 , -3382.87 -DATA 68 , 1 , 0 , -5002.07 -DATA 69 , 1 , 0 , -5800.72 -DATA 70 , 0 , 14.8575 , 29686.4 -DATA 71 , 0 , 11.3281 , 2571. -DATA 72 , 0 , 14.9242 , 31091. -DATA 73 , 0 , 13.8552 , 14819. -DATA 74 , 0 , 11.8883 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 1 , 0 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 1 , 0 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 0 , 31.6582 , 3.3889E+9 -DATA 82 , 0 , 31.2183 , 2.49826E+9 -DATA 83 , 0 , 31.1295 , 2.3491E+9 -DATA 84 , 0 , 27.537 , 1.94745E+8 -DATA 85 , 0 , 30.9151 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 1 , 0 , -2.10587E+9 -DATA 88 , 0 , 31.98 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 0 , 31.9011 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 0 , 30.7256 , 1.77556E+9 -DATA 93 , 0 , 28.1 , 2.87705E+8 -DATA 94 , 0 , 27.5753 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 0 , 31.9692 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 0 , 32.1009 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_LOG2_X_N.run b/bwbtest/NBS2X/F_LOG2_X_N.run deleted file mode 100644 index 2130de4..0000000 --- a/bwbtest/NBS2X/F_LOG2_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 X= 0 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 0 X= 1 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 X=-1 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R=-1.32193 X= .4 - F= 0 N=-1.32193 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 X=-.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R=-.736966 X= .6 - F= 0 N=-.736966 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 X=-.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 7.98868 X= 254 - F= 0 N= 7.98868 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 7.99435 X= 255 - F= 0 N= 7.99435 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 8 X= 256 - F= 0 N= 8 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 14.9658 X= 32000 - F= 0 N= 14.9658 -*** TEST PASSED *** -TESTCASE # 12 E= 1 R= 0 X=-.227229 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 1 R= 0 X=-.239157 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 1 R= 0 X=-.213586 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R=-1.8642 X= .274675 - F= 0 N=-1.8642 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R=-2.55838 X= .169766 - F= 0 N=-2.55838 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R=-1.64943 X= .318766 - F= 0 N=-1.64943 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R=-5.59661 X= 2.06658E-2 - F= 0 N=-5.59661 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R=-2.40922 X= .188257 - F= 0 N=-2.40922 -*** TEST PASSED *** -TESTCASE # 20 E= 1 R= 0 X=-.277537 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 1 R= 0 X=-.481303 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R=-1.19906 X= .43556 - F= 0 N=-1.19906 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 X=-.210971 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 1 R= 0 X=-.455216 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 6.7229 X= 105.632 - F= 0 N= 6.7229 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 6.7775 X= 109.706 - F= 0 N= 6.7775 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 6.7708 X= 109.198 - F= 0 N= 6.7708 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 6.4242 X= 85.8773 - F= 0 N= 6.4242 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 4.88946 X= 29.6397 - F= 0 N= 4.88946 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 6.81405 X= 112.521 - F= 0 N= 6.81405 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 5.5051 X= 45.4151 - F= 0 N= 5.5051 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 6.66005 X= 101.129 - F= 0 N= 6.66005 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 6.02342 X= 65.0473 - F= 0 N= 6.02342 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 5.59697 X= 48.4012 - F= 0 N= 5.59697 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 6.93421 X= 122.294 - F= 0 N= 6.93421 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 X=-25.6888 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 3.88758 X= 14.8006 - F= 0 N= 3.88758 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 13.636 X= 12730.3 - F= 0 N= 13.636 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 12.4216 X= 5486.39 - F= 0 N= 12.4216 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 14.4516 X= 22405.9 - F= 0 N= 14.4516 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 14.9111 X= 30809.8 - F= 0 N= 14.9111 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 14.088 X= 17414.6 - F= 0 N= 14.088 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 14.8575 X= 29686.4 - F= 0 N= 14.8575 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 11.3281 X= 2571 - F= 0 N= 11.3281 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 14.9242 X= 31091 - F= 0 N= 14.9242 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 13.8552 X= 14819 - F= 0 N= 13.8552 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 11.8883 X= 3790.9 - F= 0 N= 11.8883 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 31.6582 X= 3.3889E+9 - F= 0 N= 31.6582 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 31.2183 X= 2.49826E+9 - F= 0 N= 31.2183 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 31.1295 X= 2.3491E+9 - F= 0 N= 31.1295 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 27.537 X= 1.94745E+8 - F= 0 N= 27.537 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 30.9151 X= 2.02475E+9 - F= 0 N= 30.9151 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 31.98 X= 4.23585E+9 - F= 0 N= 31.98 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 31.9011 X= 4.01052E+9 - F= 0 N= 31.9011 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 30.7256 X= 1.77556E+9 - F= 0 N= 30.7256 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 28.1 X= 2.87705E+8 - F= 0 N= 28.1 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 27.5753 X= 1.99977E+8 - F= 0 N= 27.5753 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 31.9692 X= 4.20418E+9 - F= 0 N= 31.9692 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 32.1009 X= 4.60615E+9 - F= 0 N= 32.1009 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_LOG_X_N.BAS b/bwbtest/NBS2X/F_LOG_X_N.BAS deleted file mode 100644 index 4a574d8..0000000 --- a/bwbtest/NBS2X/F_LOG_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:26 -REM FILENAME: F_LOG_X_N.BAS -REM SYNTAX: N = LOG( X ) -REM UNIQUEID: F_LOG_X_N -REM FUNCTION: LOG -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = LOG( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , 0 -DATA 2 , 0 , 0 , 1 -DATA 3 , 1 , 0 , -1 -DATA 4 , 0 , -.916291 , .4 -DATA 5 , 1 , 0 , -.4 -DATA 6 , 0 , -.510826 , .6 -DATA 7 , 1 , 0 , -.6 -DATA 8 , 0 , 5.53733 , 254 -DATA 9 , 0 , 5.54126 , 255 -DATA 10 , 0 , 5.54518 , 256 -DATA 11 , 0 , 10.3735 , 32000 -DATA 12 , 1 , 0 , -.227229 -DATA 13 , 1 , 0 , -.239157 -DATA 14 , 1 , 0 , -.213586 -DATA 15 , 0 , -1.29217 , .274675 -DATA 16 , 0 , -1.77333 , .169766 -DATA 17 , 0 , -1.1433 , .318766 -DATA 18 , 0 , -3.87928 , 2.06658E-2 -DATA 19 , 0 , -1.66995 , .188257 -DATA 20 , 1 , 0 , -.277537 -DATA 21 , 1 , 0 , -.481303 -DATA 22 , 0 , -.831123 , .43556 -DATA 23 , 1 , 0 , -.210971 -DATA 24 , 1 , 0 , -.455216 -DATA 25 , 1 , 0 , -110.907 -DATA 26 , 0 , 4.65996 , 105.632 -DATA 27 , 1 , 0 , -114.341 -DATA 28 , 0 , 4.6978 , 109.706 -DATA 29 , 0 , 4.69316 , 109.198 -DATA 30 , 0 , 4.45292 , 85.8773 -DATA 31 , 1 , 0 , -58.3548 -DATA 32 , 0 , 3.38911 , 29.6397 -DATA 33 , 1 , 0 , -108.36 -DATA 34 , 1 , 0 , -46.5199 -DATA 35 , 0 , 4.72314 , 112.521 -DATA 36 , 0 , 3.81584 , 45.4151 -DATA 37 , 0 , 4.6164 , 101.129 -DATA 38 , 0 , 4.17511 , 65.0473 -DATA 39 , 0 , 3.87952 , 48.4012 -DATA 40 , 0 , 4.80643 , 122.294 -DATA 41 , 1 , 0 , -56.1094 -DATA 42 , 1 , 0 , -121.087 -DATA 43 , 1 , 0 , -123.517 -DATA 44 , 1 , 0 , -97.6301 -DATA 45 , 1 , 0 , -64.0001 -DATA 46 , 1 , 0 , -25.6888 -DATA 47 , 0 , 2.69467 , 14.8006 -DATA 48 , 1 , 0 , -61.0877 -DATA 49 , 1 , 0 , -66.6381 -DATA 50 , 1 , 0 , -5476.5 -DATA 51 , 1 , 0 , -21210.3 -DATA 52 , 1 , 0 , -28757.2 -DATA 53 , 1 , 0 , -28732.2 -DATA 54 , 0 , 9.45174 , 12730.3 -DATA 55 , 1 , 0 , -1830.69 -DATA 56 , 0 , 8.61003 , 5486.39 -DATA 57 , 0 , 10.0171 , 22405.9 -DATA 58 , 0 , 10.3356 , 30809.8 -DATA 59 , 1 , 0 , -28930.6 -DATA 60 , 1 , 0 , -6014.53 -DATA 61 , 0 , 9.76506 , 17414.6 -DATA 62 , 1 , 0 , -10538.3 -DATA 63 , 1 , 0 , -17536.3 -DATA 64 , 1 , 0 , -8856.62 -DATA 65 , 1 , 0 , -5140.12 -DATA 66 , 1 , 0 , -8595.31 -DATA 67 , 1 , 0 , -3382.87 -DATA 68 , 1 , 0 , -5002.07 -DATA 69 , 1 , 0 , -5800.72 -DATA 70 , 0 , 10.2984 , 29686.4 -DATA 71 , 0 , 7.85205 , 2571. -DATA 72 , 0 , 10.3447 , 31091. -DATA 73 , 0 , 9.60367 , 14819. -DATA 74 , 0 , 8.24036 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 1 , 0 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 1 , 0 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 0 , 21.9438 , 3.3889E+9 -DATA 82 , 0 , 21.6389 , 2.49826E+9 -DATA 83 , 0 , 21.5773 , 2.3491E+9 -DATA 84 , 0 , 19.0872 , 1.94745E+8 -DATA 85 , 0 , 21.4287 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 1 , 0 , -2.10587E+9 -DATA 88 , 0 , 22.1668 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 0 , 22.1122 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 0 , 21.2974 , 1.77556E+9 -DATA 93 , 0 , 19.4774 , 2.87705E+8 -DATA 94 , 0 , 19.1137 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 0 , 22.1593 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 0 , 22.2507 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_LOG_X_N.run b/bwbtest/NBS2X/F_LOG_X_N.run deleted file mode 100644 index b8d0474..0000000 --- a/bwbtest/NBS2X/F_LOG_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 X= 0 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 0 X= 1 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 X=-1 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R=-.916291 X= .4 - F= 0 N=-.916291 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 X=-.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R=-.510826 X= .6 - F= 0 N=-.510826 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 X=-.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 5.53733 X= 254 - F= 0 N= 5.53733 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 5.54126 X= 255 - F= 0 N= 5.54126 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 5.54518 X= 256 - F= 0 N= 5.54518 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 10.3735 X= 32000 - F= 0 N= 10.3735 -*** TEST PASSED *** -TESTCASE # 12 E= 1 R= 0 X=-.227229 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 1 R= 0 X=-.239157 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 1 R= 0 X=-.213586 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R=-1.29217 X= .274675 - F= 0 N=-1.29217 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R=-1.77333 X= .169766 - F= 0 N=-1.77333 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R=-1.1433 X= .318766 - F= 0 N=-1.1433 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R=-3.87928 X= 2.06658E-2 - F= 0 N=-3.87928 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R=-1.66995 X= .188257 - F= 0 N=-1.66995 -*** TEST PASSED *** -TESTCASE # 20 E= 1 R= 0 X=-.277537 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 1 R= 0 X=-.481303 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R=-.831123 X= .43556 - F= 0 N=-.831123 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 X=-.210971 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 1 R= 0 X=-.455216 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 4.65996 X= 105.632 - F= 0 N= 4.65996 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 4.6978 X= 109.706 - F= 0 N= 4.6978 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 4.69316 X= 109.198 - F= 0 N= 4.69316 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 4.45292 X= 85.8773 - F= 0 N= 4.45292 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 3.38911 X= 29.6397 - F= 0 N= 3.38911 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 4.72314 X= 112.521 - F= 0 N= 4.72314 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 3.81584 X= 45.4151 - F= 0 N= 3.81584 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 4.6164 X= 101.129 - F= 0 N= 4.6164 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 4.17511 X= 65.0473 - F= 0 N= 4.17511 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 3.87952 X= 48.4012 - F= 0 N= 3.87952 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 4.80643 X= 122.294 - F= 0 N= 4.80643 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 X=-25.6888 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 2.69467 X= 14.8006 - F= 0 N= 2.69467 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 9.45174 X= 12730.3 - F= 0 N= 9.45174 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 8.61003 X= 5486.39 - F= 0 N= 8.61003 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 10.0171 X= 22405.9 - F= 0 N= 10.0171 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 10.3356 X= 30809.8 - F= 0 N= 10.3356 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 9.76506 X= 17414.6 - F= 0 N= 9.76506 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 10.2984 X= 29686.4 - F= 0 N= 10.2984 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 7.85205 X= 2571 - F= 0 N= 7.85205 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 10.3447 X= 31091 - F= 0 N= 10.3447 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 9.60367 X= 14819 - F= 0 N= 9.60367 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 8.24036 X= 3790.9 - F= 0 N= 8.24036 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 21.9438 X= 3.3889E+9 - F= 0 N= 21.9438 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 21.6389 X= 2.49826E+9 - F= 0 N= 21.6389 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 21.5773 X= 2.3491E+9 - F= 0 N= 21.5773 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 19.0872 X= 1.94745E+8 - F= 0 N= 19.0872 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 21.4287 X= 2.02475E+9 - F= 0 N= 21.4287 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 22.1668 X= 4.23585E+9 - F= 0 N= 22.1668 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 22.1122 X= 4.01052E+9 - F= 0 N= 22.1122 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 21.2974 X= 1.77556E+9 - F= 0 N= 21.2974 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 19.4774 X= 2.87705E+8 - F= 0 N= 19.4774 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 19.1137 X= 1.99977E+8 - F= 0 N= 19.1137 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 22.1593 X= 4.20418E+9 - F= 0 N= 22.1593 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 22.2507 X= 4.60615E+9 - F= 0 N= 22.2507 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_LTRIM_A_S.BAS b/bwbtest/NBS2X/F_LTRIM_A_S.BAS deleted file mode 100644 index 63333cc..0000000 --- a/bwbtest/NBS2X/F_LTRIM_A_S.BAS +++ /dev/null @@ -1,159 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:27 -REM FILENAME: F_LTRIM_A_S.BAS -REM SYNTAX: S$ = LTRIM$( A$ ) -REM UNIQUEID: F_LTRIM_A_S -REM FUNCTION: LTRIM$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = LTRIM$( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", "" -DATA 2 , 0 , "", " " -DATA 3 , 0 , "3", "3" -DATA 4 , 0 , "z", "z" -DATA 5 , 0 , "", " " -DATA 6 , 0 , "3", " 3" -DATA 7 , 0 , "z", " z" -DATA 8 , 0 , "3 ", "3 " -DATA 9 , 0 , "z ", "z " -DATA 10 , 0 , "3 ", " 3 " -DATA 11 , 0 , "z ", " z " -DATA 12 , 0 , "LLLL", " LLLL" -DATA 13 , 0 , "'' ", " '' " -DATA 14 , 0 , "oo ", " oo " -DATA 15 , 0 , "00 ", " 00 " -DATA 16 , 0 , "\\\\ ", " \\\\ " -DATA 17 , 0 , "lllll ", " lllll " -DATA 18 , 0 , "uuuu ", " uuuu " -DATA 19 , 0 , "a ", " a " -DATA 20 , 0 , "", " " -DATA 21 , 0 , "hh ", " hh " -DATA 22 , 0 , "h ", " h " -DATA 23 , 0 , ")", " )" -DATA 24 , 0 , "5 ", " 5 " -DATA 25 , 0 , "2 ", " 2 " -DATA 26 , 0 , "- ", " - " -DATA 27 , 0 , "dd ", "dd " -DATA 28 , 0 , "tttt ", " tttt " -DATA 29 , 0 , ":::: ", " :::: " -DATA 30 , 0 , "___ ", " ___ " -DATA 31 , 0 , "", " " -DATA 32 , 0 , "", " " -DATA 33 , 0 , "_____ ", " _____ " -DATA 34 , 0 , "S ", " S " -DATA 35 , 0 , "FFFF ", " FFFF " -DATA 36 , 0 , "kkk", " kkk" -DATA 37 , 0 , "NNNN ", " NNNN " -DATA 38 , 0 , "mmmm ", " mmmm " -DATA 39 , 0 , ",,,,, ", " ,,,,, " -DATA 40 , 0 , "OO ", "OO " -DATA 41 , 0 , "HHHH ", " HHHH " -DATA 42 , 0 , "< ", " < " -DATA 43 , 0 , "j ", " j " -DATA 44 , 0 , "yyyy ", " yyyy " -DATA 45 , 0 , "+++ ", " +++ " -DATA 46 , 0 , "o ", "o " -DATA 47 , 0 , "((", " ((" -DATA 48 , 0 , "uu ", " uu " -DATA 49 , 0 , "00 ", " 00 " -DATA 50 , 0 , "HH ", " HH " -DATA 51 , 0 , "", " " -DATA 52 , 0 , "G ", " G " -DATA 53 , 0 , "{{{{ ", " {{{{ " -DATA 54 , 0 , "]]] ", " ]]] " -DATA 55 , 0 , "CCC", "CCC" -DATA 56 , 0 , "44 ", " 44 " -DATA 57 , 0 , "^^ ", "^^ " -DATA 58 , 0 , "QQ ", " QQ " -DATA 59 , 0 , "FFFF ", " FFFF " -DATA 60 , 0 , "n ", " n " -DATA 61 , 0 , "hh ", " hh " -DATA 62 , 0 , "555 ", "555 " -DATA 63 , 0 , "YYYY ", " YYYY " -DATA 64 , 0 , "w ", " w " -DATA 65 , 0 , "MMMM ", "MMMM " -DATA 66 , 0 , "JJJJ ", " JJJJ " -DATA 67 , 0 , "%% ", " %% " -DATA 68 , 0 , "* ", " * " -DATA 69 , 0 , "@@@ ", " @@@ " -DATA 70 , 0 , "I ", "I " -DATA 71 , 0 , "ss ", " ss " -DATA 72 , 0 , "f ", " f " -DATA 73 , 0 , "D ", " D " -DATA 74 , 0 , "### ", "### " -DATA 75 , 0 , "' ", " ' " -DATA 76 , 0 , "dd ", " dd " -DATA 77 , 0 , "TT ", " TT " -DATA 78 , 0 , "vvv ", " vvv " -DATA 79 , 0 , "X ", " X " -DATA 80 , 0 , "% ", " % " -DATA 81 , 0 , "", " " -DATA 82 , 0 , "5555 ", " 5555 " -DATA 83 , 0 , "FFFF ", "FFFF " -DATA 84 , 0 , "%% ", " %% " -DATA 85 , 0 , "", " " -DATA 86 , 0 , "~~~~ ", " ~~~~ " -DATA 87 , 0 , "|| ", " || " -DATA 88 , 0 , "SSS ", " SSS " -DATA 89 , 0 , "6666 ", " 6666 " -DATA 90 , 0 , "ww ", " ww " -DATA 91 , 0 , "1111 ", " 1111 " -DATA 92 , 0 , "K ", " K " -DATA 93 , 0 , "ttttt ", " ttttt " -DATA 94 , 0 , "OOOOO ", " OOOOO " -DATA 95 , 0 , "E ", " E " -DATA 96 , 0 , "PPPPP ", " PPPPP " -DATA 97 , 0 , "== ", " == " -DATA 98 , 0 , "VVVV ", " VVVV " -DATA 99 , 0 , "c ", " c " -DATA 100 , 0 , "yyyy ", " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_LTRIM_A_S.run b/bwbtest/NBS2X/F_LTRIM_A_S.run deleted file mode 100644 index 7348667..0000000 --- a/bwbtest/NBS2X/F_LTRIM_A_S.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] A$=[] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 3 E= 0 R$=[3] A$=[3] - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[z] A$=[z] - F= 0 S$=[z] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[3] A$=[ 3] - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 7 E= 0 R$=[z] A$=[ z] - F= 0 S$=[z] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[3 ] A$=[3 ] - F= 0 S$=[3 ] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[z ] A$=[z ] - F= 0 S$=[z ] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[3 ] A$=[ 3 ] - F= 0 S$=[3 ] -*** TEST PASSED *** -TESTCASE # 11 E= 0 R$=[z ] A$=[ z ] - F= 0 S$=[z ] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[LLLL] A$=[ LLLL] - F= 0 S$=[LLLL] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=['' ] A$=[ '' ] - F= 0 S$=['' ] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[oo ] A$=[ oo ] - F= 0 S$=[oo ] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[00 ] A$=[ 00 ] - F= 0 S$=[00 ] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[\\\\ ] A$=[ \\\\ ] - F= 0 S$=[\\\\ ] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[lllll ] A$=[ lllll ] - F= 0 S$=[lllll ] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[uuuu ] A$=[ uuuu ] - F= 0 S$=[uuuu ] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[a ] A$=[ a ] - F= 0 S$=[a ] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[hh ] A$=[ hh ] - F= 0 S$=[hh ] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[h ] A$=[ h ] - F= 0 S$=[h ] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[)] A$=[ )] - F= 0 S$=[)] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[5 ] A$=[ 5 ] - F= 0 S$=[5 ] -*** TEST PASSED *** -TESTCASE # 25 E= 0 R$=[2 ] A$=[ 2 ] - F= 0 S$=[2 ] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[- ] A$=[ - ] - F= 0 S$=[- ] -*** TEST PASSED *** -TESTCASE # 27 E= 0 R$=[dd ] A$=[dd ] - F= 0 S$=[dd ] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[tttt ] A$=[ tttt ] - F= 0 S$=[tttt ] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[:::: ] A$=[ :::: ] - F= 0 S$=[:::: ] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[___ ] A$=[ ___ ] - F= 0 S$=[___ ] -*** TEST PASSED *** -TESTCASE # 31 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 33 E= 0 R$=[_____ ] A$=[ _____ ] - F= 0 S$=[_____ ] -*** TEST PASSED *** -TESTCASE # 34 E= 0 R$=[S ] A$=[ S ] - F= 0 S$=[S ] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[FFFF ] A$=[ FFFF ] - F= 0 S$=[FFFF ] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[kkk] A$=[ kkk] - F= 0 S$=[kkk] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[NNNN ] A$=[ NNNN ] - F= 0 S$=[NNNN ] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[mmmm ] A$=[ mmmm ] - F= 0 S$=[mmmm ] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[,,,,, ] A$=[ ,,,,, ] - F= 0 S$=[,,,,, ] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[OO ] A$=[OO ] - F= 0 S$=[OO ] -*** TEST PASSED *** -TESTCASE # 41 E= 0 R$=[HHHH ] A$=[ HHHH ] - F= 0 S$=[HHHH ] -*** TEST PASSED *** -TESTCASE # 42 E= 0 R$=[< ] A$=[ < ] - F= 0 S$=[< ] -*** TEST PASSED *** -TESTCASE # 43 E= 0 R$=[j ] A$=[ j ] - F= 0 S$=[j ] -*** TEST PASSED *** -TESTCASE # 44 E= 0 R$=[yyyy ] A$=[ yyyy ] - F= 0 S$=[yyyy ] -*** TEST PASSED *** -TESTCASE # 45 E= 0 R$=[+++ ] A$=[ +++ ] - F= 0 S$=[+++ ] -*** TEST PASSED *** -TESTCASE # 46 E= 0 R$=[o ] A$=[o ] - F= 0 S$=[o ] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[((] A$=[ ((] - F= 0 S$=[((] -*** TEST PASSED *** -TESTCASE # 48 E= 0 R$=[uu ] A$=[ uu ] - F= 0 S$=[uu ] -*** TEST PASSED *** -TESTCASE # 49 E= 0 R$=[00 ] A$=[ 00 ] - F= 0 S$=[00 ] -*** TEST PASSED *** -TESTCASE # 50 E= 0 R$=[HH ] A$=[ HH ] - F= 0 S$=[HH ] -*** TEST PASSED *** -TESTCASE # 51 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 0 R$=[G ] A$=[ G ] - F= 0 S$=[G ] -*** TEST PASSED *** -TESTCASE # 53 E= 0 R$=[{{{{ ] A$=[ {{{{ ] - F= 0 S$=[{{{{ ] -*** TEST PASSED *** -TESTCASE # 54 E= 0 R$=[]]] ] A$=[ ]]] ] - F= 0 S$=[]]] ] -*** TEST PASSED *** -TESTCASE # 55 E= 0 R$=[CCC] A$=[CCC] - F= 0 S$=[CCC] -*** TEST PASSED *** -TESTCASE # 56 E= 0 R$=[44 ] A$=[ 44 ] - F= 0 S$=[44 ] -*** TEST PASSED *** -TESTCASE # 57 E= 0 R$=[^^ ] A$=[^^ ] - F= 0 S$=[^^ ] -*** TEST PASSED *** -TESTCASE # 58 E= 0 R$=[QQ ] A$=[ QQ ] - F= 0 S$=[QQ ] -*** TEST PASSED *** -TESTCASE # 59 E= 0 R$=[FFFF ] A$=[ FFFF ] - F= 0 S$=[FFFF ] -*** TEST PASSED *** -TESTCASE # 60 E= 0 R$=[n ] A$=[ n ] - F= 0 S$=[n ] -*** TEST PASSED *** -TESTCASE # 61 E= 0 R$=[hh ] A$=[ hh ] - F= 0 S$=[hh ] -*** TEST PASSED *** -TESTCASE # 62 E= 0 R$=[555 ] A$=[555 ] - F= 0 S$=[555 ] -*** TEST PASSED *** -TESTCASE # 63 E= 0 R$=[YYYY ] A$=[ YYYY ] - F= 0 S$=[YYYY ] -*** TEST PASSED *** -TESTCASE # 64 E= 0 R$=[w ] A$=[ w ] - F= 0 S$=[w ] -*** TEST PASSED *** -TESTCASE # 65 E= 0 R$=[MMMM ] A$=[MMMM ] - F= 0 S$=[MMMM ] -*** TEST PASSED *** -TESTCASE # 66 E= 0 R$=[JJJJ ] A$=[ JJJJ ] - F= 0 S$=[JJJJ ] -*** TEST PASSED *** -TESTCASE # 67 E= 0 R$=[%% ] A$=[ %% ] - F= 0 S$=[%% ] -*** TEST PASSED *** -TESTCASE # 68 E= 0 R$=[* ] A$=[ * ] - F= 0 S$=[* ] -*** TEST PASSED *** -TESTCASE # 69 E= 0 R$=[@@@ ] A$=[ @@@ ] - F= 0 S$=[@@@ ] -*** TEST PASSED *** -TESTCASE # 70 E= 0 R$=[I ] A$=[I ] - F= 0 S$=[I ] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ss ] A$=[ ss ] - F= 0 S$=[ss ] -*** TEST PASSED *** -TESTCASE # 72 E= 0 R$=[f ] A$=[ f ] - F= 0 S$=[f ] -*** TEST PASSED *** -TESTCASE # 73 E= 0 R$=[D ] A$=[ D ] - F= 0 S$=[D ] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[### ] A$=[### ] - F= 0 S$=[### ] -*** TEST PASSED *** -TESTCASE # 75 E= 0 R$=[' ] A$=[ ' ] - F= 0 S$=[' ] -*** TEST PASSED *** -TESTCASE # 76 E= 0 R$=[dd ] A$=[ dd ] - F= 0 S$=[dd ] -*** TEST PASSED *** -TESTCASE # 77 E= 0 R$=[TT ] A$=[ TT ] - F= 0 S$=[TT ] -*** TEST PASSED *** -TESTCASE # 78 E= 0 R$=[vvv ] A$=[ vvv ] - F= 0 S$=[vvv ] -*** TEST PASSED *** -TESTCASE # 79 E= 0 R$=[X ] A$=[ X ] - F= 0 S$=[X ] -*** TEST PASSED *** -TESTCASE # 80 E= 0 R$=[% ] A$=[ % ] - F= 0 S$=[% ] -*** TEST PASSED *** -TESTCASE # 81 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 0 R$=[5555 ] A$=[ 5555 ] - F= 0 S$=[5555 ] -*** TEST PASSED *** -TESTCASE # 83 E= 0 R$=[FFFF ] A$=[FFFF ] - F= 0 S$=[FFFF ] -*** TEST PASSED *** -TESTCASE # 84 E= 0 R$=[%% ] A$=[ %% ] - F= 0 S$=[%% ] -*** TEST PASSED *** -TESTCASE # 85 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 0 R$=[~~~~ ] A$=[ ~~~~ ] - F= 0 S$=[~~~~ ] -*** TEST PASSED *** -TESTCASE # 87 E= 0 R$=[|| ] A$=[ || ] - F= 0 S$=[|| ] -*** TEST PASSED *** -TESTCASE # 88 E= 0 R$=[SSS ] A$=[ SSS ] - F= 0 S$=[SSS ] -*** TEST PASSED *** -TESTCASE # 89 E= 0 R$=[6666 ] A$=[ 6666 ] - F= 0 S$=[6666 ] -*** TEST PASSED *** -TESTCASE # 90 E= 0 R$=[ww ] A$=[ ww ] - F= 0 S$=[ww ] -*** TEST PASSED *** -TESTCASE # 91 E= 0 R$=[1111 ] A$=[ 1111 ] - F= 0 S$=[1111 ] -*** TEST PASSED *** -TESTCASE # 92 E= 0 R$=[K ] A$=[ K ] - F= 0 S$=[K ] -*** TEST PASSED *** -TESTCASE # 93 E= 0 R$=[ttttt ] A$=[ ttttt ] - F= 0 S$=[ttttt ] -*** TEST PASSED *** -TESTCASE # 94 E= 0 R$=[OOOOO ] A$=[ OOOOO ] - F= 0 S$=[OOOOO ] -*** TEST PASSED *** -TESTCASE # 95 E= 0 R$=[E ] A$=[ E ] - F= 0 S$=[E ] -*** TEST PASSED *** -TESTCASE # 96 E= 0 R$=[PPPPP ] A$=[ PPPPP ] - F= 0 S$=[PPPPP ] -*** TEST PASSED *** -TESTCASE # 97 E= 0 R$=[== ] A$=[ == ] - F= 0 S$=[== ] -*** TEST PASSED *** -TESTCASE # 98 E= 0 R$=[VVVV ] A$=[ VVVV ] - F= 0 S$=[VVVV ] -*** TEST PASSED *** -TESTCASE # 99 E= 0 R$=[c ] A$=[ c ] - F= 0 S$=[c ] -*** TEST PASSED *** -TESTCASE # 100 E= 0 R$=[yyyy ] A$=[ yyyy ] - F= 0 S$=[yyyy ] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_MAXLEN_A_N.BAS b/bwbtest/NBS2X/F_MAXLEN_A_N.BAS deleted file mode 100644 index d1becc3..0000000 --- a/bwbtest/NBS2X/F_MAXLEN_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:27 -REM FILENAME: F_MAXLEN_A_N.BAS -REM SYNTAX: N = MAXLEN( A$ ) -REM UNIQUEID: F_MAXLEN_A_N -REM FUNCTION: MAXLEN -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = MAXLEN( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 4096 , "" -DATA 2 , 0 , 4096 , " " -DATA 3 , 0 , 4096 , "3" -DATA 4 , 0 , 4096 , "z" -DATA 5 , 0 , 4096 , " " -DATA 6 , 0 , 4096 , " 3" -DATA 7 , 0 , 4096 , " z" -DATA 8 , 0 , 4096 , "3 " -DATA 9 , 0 , 4096 , "z " -DATA 10 , 0 , 4096 , " 3 " -DATA 11 , 0 , 4096 , " z " -DATA 12 , 0 , 4096 , " LLLL" -DATA 13 , 0 , 4096 , " '' " -DATA 14 , 0 , 4096 , " oo " -DATA 15 , 0 , 4096 , " 00 " -DATA 16 , 0 , 4096 , " \\\\ " -DATA 17 , 0 , 4096 , " lllll " -DATA 18 , 0 , 4096 , " uuuu " -DATA 19 , 0 , 4096 , " a " -DATA 20 , 0 , 4096 , " " -DATA 21 , 0 , 4096 , " hh " -DATA 22 , 0 , 4096 , " h " -DATA 23 , 0 , 4096 , " )" -DATA 24 , 0 , 4096 , " 5 " -DATA 25 , 0 , 4096 , " 2 " -DATA 26 , 0 , 4096 , " - " -DATA 27 , 0 , 4096 , "dd " -DATA 28 , 0 , 4096 , " tttt " -DATA 29 , 0 , 4096 , " :::: " -DATA 30 , 0 , 4096 , " ___ " -DATA 31 , 0 , 4096 , " " -DATA 32 , 0 , 4096 , " " -DATA 33 , 0 , 4096 , " _____ " -DATA 34 , 0 , 4096 , " S " -DATA 35 , 0 , 4096 , " FFFF " -DATA 36 , 0 , 4096 , " kkk" -DATA 37 , 0 , 4096 , " NNNN " -DATA 38 , 0 , 4096 , " mmmm " -DATA 39 , 0 , 4096 , " ,,,,, " -DATA 40 , 0 , 4096 , "OO " -DATA 41 , 0 , 4096 , " HHHH " -DATA 42 , 0 , 4096 , " < " -DATA 43 , 0 , 4096 , " j " -DATA 44 , 0 , 4096 , " yyyy " -DATA 45 , 0 , 4096 , " +++ " -DATA 46 , 0 , 4096 , "o " -DATA 47 , 0 , 4096 , " ((" -DATA 48 , 0 , 4096 , " uu " -DATA 49 , 0 , 4096 , " 00 " -DATA 50 , 0 , 4096 , " HH " -DATA 51 , 0 , 4096 , " " -DATA 52 , 0 , 4096 , " G " -DATA 53 , 0 , 4096 , " {{{{ " -DATA 54 , 0 , 4096 , " ]]] " -DATA 55 , 0 , 4096 , "CCC" -DATA 56 , 0 , 4096 , " 44 " -DATA 57 , 0 , 4096 , "^^ " -DATA 58 , 0 , 4096 , " QQ " -DATA 59 , 0 , 4096 , " FFFF " -DATA 60 , 0 , 4096 , " n " -DATA 61 , 0 , 4096 , " hh " -DATA 62 , 0 , 4096 , "555 " -DATA 63 , 0 , 4096 , " YYYY " -DATA 64 , 0 , 4096 , " w " -DATA 65 , 0 , 4096 , "MMMM " -DATA 66 , 0 , 4096 , " JJJJ " -DATA 67 , 0 , 4096 , " %% " -DATA 68 , 0 , 4096 , " * " -DATA 69 , 0 , 4096 , " @@@ " -DATA 70 , 0 , 4096 , "I " -DATA 71 , 0 , 4096 , " ss " -DATA 72 , 0 , 4096 , " f " -DATA 73 , 0 , 4096 , " D " -DATA 74 , 0 , 4096 , "### " -DATA 75 , 0 , 4096 , " ' " -DATA 76 , 0 , 4096 , " dd " -DATA 77 , 0 , 4096 , " TT " -DATA 78 , 0 , 4096 , " vvv " -DATA 79 , 0 , 4096 , " X " -DATA 80 , 0 , 4096 , " % " -DATA 81 , 0 , 4096 , " " -DATA 82 , 0 , 4096 , " 5555 " -DATA 83 , 0 , 4096 , "FFFF " -DATA 84 , 0 , 4096 , " %% " -DATA 85 , 0 , 4096 , " " -DATA 86 , 0 , 4096 , " ~~~~ " -DATA 87 , 0 , 4096 , " || " -DATA 88 , 0 , 4096 , " SSS " -DATA 89 , 0 , 4096 , " 6666 " -DATA 90 , 0 , 4096 , " ww " -DATA 91 , 0 , 4096 , " 1111 " -DATA 92 , 0 , 4096 , " K " -DATA 93 , 0 , 4096 , " ttttt " -DATA 94 , 0 , 4096 , " OOOOO " -DATA 95 , 0 , 4096 , " E " -DATA 96 , 0 , 4096 , " PPPPP " -DATA 97 , 0 , 4096 , " == " -DATA 98 , 0 , 4096 , " VVVV " -DATA 99 , 0 , 4096 , " c " -DATA 100 , 0 , 4096 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_MAXLEN_A_N.run b/bwbtest/NBS2X/F_MAXLEN_A_N.run deleted file mode 100644 index 8342c20..0000000 --- a/bwbtest/NBS2X/F_MAXLEN_A_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 4096 A$=[] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 4096 A$=[ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 4096 A$=[3] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 4096 A$=[z] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 4096 A$=[ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 4096 A$=[ 3] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 4096 A$=[ z] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 4096 A$=[3 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 4096 A$=[z ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 4096 A$=[ 3 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 4096 A$=[ z ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 4096 A$=[ LLLL] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 4096 A$=[ '' ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 4096 A$=[ oo ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 4096 A$=[ 00 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 4096 A$=[ \\\\ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 4096 A$=[ lllll ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 4096 A$=[ uuuu ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 4096 A$=[ a ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 4096 A$=[ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 4096 A$=[ hh ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 4096 A$=[ h ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 4096 A$=[ )] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 4096 A$=[ 5 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 4096 A$=[ 2 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 4096 A$=[ - ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 4096 A$=[dd ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 4096 A$=[ tttt ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 4096 A$=[ :::: ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 4096 A$=[ ___ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 4096 A$=[ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 4096 A$=[ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 4096 A$=[ _____ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 4096 A$=[ S ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 4096 A$=[ FFFF ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 4096 A$=[ kkk] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 4096 A$=[ NNNN ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 4096 A$=[ mmmm ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 4096 A$=[ ,,,,, ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 4096 A$=[OO ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 4096 A$=[ HHHH ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 4096 A$=[ < ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 4096 A$=[ j ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 4096 A$=[ yyyy ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 4096 A$=[ +++ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 4096 A$=[o ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 4096 A$=[ ((] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 4096 A$=[ uu ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 4096 A$=[ 00 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 4096 A$=[ HH ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 4096 A$=[ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 4096 A$=[ G ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 4096 A$=[ {{{{ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 4096 A$=[ ]]] ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 4096 A$=[CCC] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 4096 A$=[ 44 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 4096 A$=[^^ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 4096 A$=[ QQ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 4096 A$=[ FFFF ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 4096 A$=[ n ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 4096 A$=[ hh ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 4096 A$=[555 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 4096 A$=[ YYYY ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 4096 A$=[ w ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 4096 A$=[MMMM ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 4096 A$=[ JJJJ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 4096 A$=[ %% ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 4096 A$=[ * ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 4096 A$=[ @@@ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 4096 A$=[I ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 4096 A$=[ ss ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 4096 A$=[ f ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 4096 A$=[ D ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 4096 A$=[### ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 4096 A$=[ ' ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 4096 A$=[ dd ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 4096 A$=[ TT ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 4096 A$=[ vvv ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 4096 A$=[ X ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 4096 A$=[ % ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 4096 A$=[ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 4096 A$=[ 5555 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 4096 A$=[FFFF ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 4096 A$=[ %% ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 4096 A$=[ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 4096 A$=[ ~~~~ ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 4096 A$=[ || ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 4096 A$=[ SSS ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 4096 A$=[ 6666 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 4096 A$=[ ww ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 4096 A$=[ 1111 ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 4096 A$=[ K ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 4096 A$=[ ttttt ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 4096 A$=[ OOOOO ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 4096 A$=[ E ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 4096 A$=[ PPPPP ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 4096 A$=[ == ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 4096 A$=[ VVVV ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 4096 A$=[ c ] - F= 0 N= 4096 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 4096 A$=[ yyyy ] - F= 0 N= 4096 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_MAX_X_Y_N.BAS b/bwbtest/NBS2X/F_MAX_X_Y_N.BAS deleted file mode 100644 index 8606e6a..0000000 --- a/bwbtest/NBS2X/F_MAX_X_Y_N.BAS +++ /dev/null @@ -1,184 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:27 -REM FILENAME: F_MAX_X_Y_N.BAS -REM SYNTAX: N = MAX( X, Y ) -REM UNIQUEID: F_MAX_X_Y_N -REM FUNCTION: MAX -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM Y ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X, Y -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X, "Y=";Y -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = MAX( X, Y ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 , 1 -DATA 3 , 0 , -1 , -1 , -1 -DATA 4 , 0 , .4 , .4 , .4 -DATA 5 , 0 , -.4 , -.4 , -.4 -DATA 6 , 0 , .6 , .6 , .6 -DATA 7 , 0 , -.6 , -.6 , -.6 -DATA 8 , 0 , 254 , 254 , 254 -DATA 9 , 0 , 255 , 255 , 255 -DATA 10 , 0 , 256 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 , 32000 -DATA 12 , 0 , -.227229 , -.227229 , -.227229 -DATA 13 , 0 , -.239157 , -.239157 , -.239157 -DATA 14 , 0 , -.213586 , -.213586 , -.213586 -DATA 15 , 0 , .274675 , .274675 , .274675 -DATA 16 , 0 , .169766 , .169766 , .169766 -DATA 17 , 0 , .318766 , .318766 , .318766 -DATA 18 , 0 , 2.06658E-2 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , .188257 , .188257 , .188257 -DATA 20 , 0 , -.277537 , -.277537 , -.277537 -DATA 21 , 0 , -.481303 , -.481303 , -.481303 -DATA 22 , 0 , .43556 , .43556 , .43556 -DATA 23 , 0 , -.210971 , -.210971 , -.210971 -DATA 24 , 0 , -.455216 , -.455216 , -.455216 -DATA 25 , 0 , -110.907 , -110.907 , -110.907 -DATA 26 , 0 , 105.632 , 105.632 , 105.632 -DATA 27 , 0 , -114.341 , -114.341 , -114.341 -DATA 28 , 0 , 109.706 , 109.706 , 109.706 -DATA 29 , 0 , 109.198 , 109.198 , 109.198 -DATA 30 , 0 , 85.8773 , 85.8773 , 85.8773 -DATA 31 , 0 , -58.3548 , -58.3548 , -58.3548 -DATA 32 , 0 , 29.6397 , 29.6397 , 29.6397 -DATA 33 , 0 , -108.36 , -108.36 , -108.36 -DATA 34 , 0 , -46.5199 , -46.5199 , -46.5199 -DATA 35 , 0 , 112.521 , 112.521 , 112.521 -DATA 36 , 0 , 45.4151 , 45.4151 , 45.4151 -DATA 37 , 0 , 101.129 , 101.129 , 101.129 -DATA 38 , 0 , 65.0473 , 65.0473 , 65.0473 -DATA 39 , 0 , 48.4012 , 48.4012 , 48.4012 -DATA 40 , 0 , 122.294 , 122.294 , 122.294 -DATA 41 , 0 , -56.1094 , -56.1094 , -56.1094 -DATA 42 , 0 , -121.087 , -121.087 , -121.087 -DATA 43 , 0 , -123.517 , -123.517 , -123.517 -DATA 44 , 0 , -97.6301 , -97.6301 , -97.6301 -DATA 45 , 0 , -64.0001 , -64.0001 , -64.0001 -DATA 46 , 0 , -25.6888 , -25.6888 , -25.6888 -DATA 47 , 0 , 14.8006 , 14.8006 , 14.8006 -DATA 48 , 0 , -61.0877 , -61.0877 , -61.0877 -DATA 49 , 0 , -66.6381 , -66.6381 , -66.6381 -DATA 50 , 0 , -5476.5 , -5476.5 , -5476.5 -DATA 51 , 0 , -21210.3 , -21210.3 , -21210.3 -DATA 52 , 0 , -28757.2 , -28757.2 , -28757.2 -DATA 53 , 0 , -28732.2 , -28732.2 , -28732.2 -DATA 54 , 0 , 12730.3 , 12730.3 , 12730.3 -DATA 55 , 0 , -1830.69 , -1830.69 , -1830.69 -DATA 56 , 0 , 5486.39 , 5486.39 , 5486.39 -DATA 57 , 0 , 22405.9 , 22405.9 , 22405.9 -DATA 58 , 0 , 30809.8 , 30809.8 , 30809.8 -DATA 59 , 0 , -28930.6 , -28930.6 , -28930.6 -DATA 60 , 0 , -6014.53 , -6014.53 , -6014.53 -DATA 61 , 0 , 17414.6 , 17414.6 , 17414.6 -DATA 62 , 0 , -10538.3 , -10538.3 , -10538.3 -DATA 63 , 0 , -17536.3 , -17536.3 , -17536.3 -DATA 64 , 0 , -8856.62 , -8856.62 , -8856.62 -DATA 65 , 0 , -5140.12 , -5140.12 , -5140.12 -DATA 66 , 0 , -8595.31 , -8595.31 , -8595.31 -DATA 67 , 0 , -3382.87 , -3382.87 , -3382.87 -DATA 68 , 0 , -5002.07 , -5002.07 , -5002.07 -DATA 69 , 0 , -5800.72 , -5800.72 , -5800.72 -DATA 70 , 0 , 29686.4 , 29686.4 , 29686.4 -DATA 71 , 0 , 2571 , 2571. , 2571. -DATA 72 , 0 , 31091 , 31091. , 31091. -DATA 73 , 0 , 14819 , 14819. , 14819. -DATA 74 , 0 , 3790.9 , 3790.9 , 3790.9 -DATA 75 , 0 , -4.2981E+9 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , -3.10179E+9 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , -4.86159E+9 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , -3.4101E+9 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , 3.3889E+9 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , 2.49826E+9 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , 2.3491E+9 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , -2.26748E+9 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , 4.23585E+9 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , -2.66524E+9 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , 4.01052E+9 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , -4.87912E+9 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , -3.39941E+9 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , -3.49119E+9 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , -2.86324E+9 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , 4.20418E+9 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , -3.1518E+9 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , 4.60615E+9 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_MAX_X_Y_N.run b/bwbtest/NBS2X/F_MAX_X_Y_N.run deleted file mode 100644 index 85c7375..0000000 --- a/bwbtest/NBS2X/F_MAX_X_Y_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 Y= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 Y= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 Y=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .4 X= .4 Y= .4 - F= 0 N= .4 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.4 X=-.4 Y=-.4 - F= 0 N=-.4 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .6 X= .6 Y= .6 - F= 0 N= .6 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.6 X=-.6 Y=-.6 - F= 0 N=-.6 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 Y= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 Y= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 Y= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 Y= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.227229 X=-.227229 Y=-.227229 - F= 0 N=-.227229 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.239157 X=-.239157 Y=-.239157 - F= 0 N=-.239157 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.213586 X=-.213586 Y=-.213586 - F= 0 N=-.213586 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .274675 X= .274675 Y= .274675 - F= 0 N= .274675 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .169766 X= .169766 Y= .169766 - F= 0 N= .169766 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .318766 X= .318766 Y= .318766 - F= 0 N= .318766 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06658E-2 X= 2.06658E-2 Y= 2.06658E-2 - F= 0 N= 2.06658E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .188257 X= .188257 Y= .188257 - F= 0 N= .188257 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.277537 X=-.277537 Y=-.277537 - F= 0 N=-.277537 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.481303 X=-.481303 Y=-.481303 - F= 0 N=-.481303 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .43556 X= .43556 Y= .43556 - F= 0 N= .43556 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.210971 X=-.210971 Y=-.210971 - F= 0 N=-.210971 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.455216 X=-.455216 Y=-.455216 - F= 0 N=-.455216 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-110.907 X=-110.907 Y=-110.907 - F= 0 N=-110.907 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 105.632 X= 105.632 Y= 105.632 - F= 0 N= 105.632 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-114.341 X=-114.341 Y=-114.341 - F= 0 N=-114.341 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 109.706 X= 109.706 Y= 109.706 - F= 0 N= 109.706 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109.198 X= 109.198 Y= 109.198 - F= 0 N= 109.198 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 85.8773 X= 85.8773 Y= 85.8773 - F= 0 N= 85.8773 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-58.3548 X=-58.3548 Y=-58.3548 - F= 0 N=-58.3548 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 29.6397 X= 29.6397 Y= 29.6397 - F= 0 N= 29.6397 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-108.36 X=-108.36 Y=-108.36 - F= 0 N=-108.36 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-46.5199 X=-46.5199 Y=-46.5199 - F= 0 N=-46.5199 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 112.521 X= 112.521 Y= 112.521 - F= 0 N= 112.521 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45.4151 X= 45.4151 Y= 45.4151 - F= 0 N= 45.4151 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101.129 X= 101.129 Y= 101.129 - F= 0 N= 101.129 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65.0473 X= 65.0473 Y= 65.0473 - F= 0 N= 65.0473 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48.4012 X= 48.4012 Y= 48.4012 - F= 0 N= 48.4012 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122.294 X= 122.294 Y= 122.294 - F= 0 N= 122.294 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-56.1094 X=-56.1094 Y=-56.1094 - F= 0 N=-56.1094 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-121.087 X=-121.087 Y=-121.087 - F= 0 N=-121.087 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-123.517 X=-123.517 Y=-123.517 - F= 0 N=-123.517 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-97.6301 X=-97.6301 Y=-97.6301 - F= 0 N=-97.6301 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-64.0001 X=-64.0001 Y=-64.0001 - F= 0 N=-64.0001 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-25.6888 X=-25.6888 Y=-25.6888 - F= 0 N=-25.6888 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 14.8006 X= 14.8006 Y= 14.8006 - F= 0 N= 14.8006 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-61.0877 X=-61.0877 Y=-61.0877 - F= 0 N=-61.0877 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-66.6381 X=-66.6381 Y=-66.6381 - F= 0 N=-66.6381 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5476.5 X=-5476.5 Y=-5476.5 - F= 0 N=-5476.5 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21210.3 X=-21210.3 Y=-21210.3 - F= 0 N=-21210.3 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28757.2 X=-28757.2 Y=-28757.2 - F= 0 N=-28757.2 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28732.2 X=-28732.2 Y=-28732.2 - F= 0 N=-28732.2 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730.3 X= 12730.3 Y= 12730.3 - F= 0 N= 12730.3 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1830.69 X=-1830.69 Y=-1830.69 - F= 0 N=-1830.69 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486.39 X= 5486.39 Y= 5486.39 - F= 0 N= 5486.39 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22405.9 X= 22405.9 Y= 22405.9 - F= 0 N= 22405.9 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30809.8 X= 30809.8 Y= 30809.8 - F= 0 N= 30809.8 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28930.6 X=-28930.6 Y=-28930.6 - F= 0 N=-28930.6 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6014.53 X=-6014.53 Y=-6014.53 - F= 0 N=-6014.53 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17414.6 X= 17414.6 Y= 17414.6 - F= 0 N= 17414.6 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10538.3 X=-10538.3 Y=-10538.3 - F= 0 N=-10538.3 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17536.3 X=-17536.3 Y=-17536.3 - F= 0 N=-17536.3 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8856.62 X=-8856.62 Y=-8856.62 - F= 0 N=-8856.62 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5140.12 X=-5140.12 Y=-5140.12 - F= 0 N=-5140.12 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8595.31 X=-8595.31 Y=-8595.31 - F= 0 N=-8595.31 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3382.87 X=-3382.87 Y=-3382.87 - F= 0 N=-3382.87 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5002.07 X=-5002.07 Y=-5002.07 - F= 0 N=-5002.07 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5800.72 X=-5800.72 Y=-5800.72 - F= 0 N=-5800.72 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686.4 X= 29686.4 Y= 29686.4 - F= 0 N= 29686.4 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 Y= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 Y= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 Y= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3790.9 X= 3790.9 Y= 3790.9 - F= 0 N= 3790.9 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-4.2981E+9 X=-4.2981E+9 Y=-4.2981E+9 - F= 0 N=-4.2981E+9 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 Y=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-3.10179E+9 X=-3.10179E+9 Y=-3.10179E+9 - F= 0 N=-3.10179E+9 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-4.86159E+9 X=-4.86159E+9 Y=-4.86159E+9 - F= 0 N=-4.86159E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 Y=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-3.4101E+9 X=-3.4101E+9 Y=-3.4101E+9 - F= 0 N=-3.4101E+9 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 3.3889E+9 X= 3.3889E+9 Y= 3.3889E+9 - F= 0 N= 3.3889E+9 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 2.49826E+9 X= 2.49826E+9 Y= 2.49826E+9 - F= 0 N= 2.49826E+9 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.3491E+9 X= 2.3491E+9 Y= 2.3491E+9 - F= 0 N= 2.3491E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 Y= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 Y= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-2.26748E+9 X=-2.26748E+9 Y=-2.26748E+9 - F= 0 N=-2.26748E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 Y=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 4.23585E+9 X= 4.23585E+9 Y= 4.23585E+9 - F= 0 N= 4.23585E+9 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-2.66524E+9 X=-2.66524E+9 Y=-2.66524E+9 - F= 0 N=-2.66524E+9 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 4.01052E+9 X= 4.01052E+9 Y= 4.01052E+9 - F= 0 N= 4.01052E+9 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-4.87912E+9 X=-4.87912E+9 Y=-4.87912E+9 - F= 0 N=-4.87912E+9 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 Y= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 Y= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 Y= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-3.39941E+9 X=-3.39941E+9 Y=-3.39941E+9 - F= 0 N=-3.39941E+9 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-3.49119E+9 X=-3.49119E+9 Y=-3.49119E+9 - F= 0 N=-3.49119E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-2.86324E+9 X=-2.86324E+9 Y=-2.86324E+9 - F= 0 N=-2.86324E+9 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 4.20418E+9 X= 4.20418E+9 Y= 4.20418E+9 - F= 0 N= 4.20418E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-3.1518E+9 X=-3.1518E+9 Y=-3.1518E+9 - F= 0 N=-3.1518E+9 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 4.60615E+9 X= 4.60615E+9 Y= - 4.60615E+9 - F= 0 N= 4.60615E+9 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_MID_A_X_S.BAS b/bwbtest/NBS2X/F_MID_A_X_S.BAS deleted file mode 100644 index 208376b..0000000 --- a/bwbtest/NBS2X/F_MID_A_X_S.BAS +++ /dev/null @@ -1,160 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:28 -REM FILENAME: F_MID_A_X_S.BAS -REM SYNTAX: S$ = MID$( A$, X ) -REM UNIQUEID: F_MID_A_X_S -REM FUNCTION: MID$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, A$, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "A$=[";A$;"]", "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = MID$( A$, X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , "", "", 0 -DATA 2 , 0 , " ", " ", 1 -DATA 3 , 1 , "", "3", -1 -DATA 4 , 1 , "", "z", .4 -DATA 5 , 1 , "", " ", -.4 -DATA 6 , 0 , " 3", " 3", .6 -DATA 7 , 1 , "", " z", -.6 -DATA 8 , 0 , "", "3 ", 254 -DATA 9 , 0 , "", "z ", 255 -DATA 10 , 0 , "", " 3 ", 256 -DATA 11 , 1 , "", " z ", 32000 -DATA 12 , 1 , "", " LLLL", -.227229 -DATA 13 , 1 , "", " '' ", -.239157 -DATA 14 , 1 , "", " oo ", -.213586 -DATA 15 , 1 , "", " 00 ", .274675 -DATA 16 , 1 , "", " \\\\ ", .169766 -DATA 17 , 1 , "", " lllll ", .318766 -DATA 18 , 1 , "", " uuuu ", 2.06658E-2 -DATA 19 , 1 , "", " a ", .188257 -DATA 20 , 1 , "", " ", -.277537 -DATA 21 , 1 , "", " hh ", -.481303 -DATA 22 , 1 , "", " h ", .43556 -DATA 23 , 1 , "", " )", -.210971 -DATA 24 , 1 , "", " 5 ", -.455216 -DATA 25 , 1 , "", " 2 ", -110.907 -DATA 26 , 0 , "", " - ", 105.632 -DATA 27 , 1 , "", "dd ", -114.341 -DATA 28 , 0 , "", " tttt ", 109.706 -DATA 29 , 0 , "", " :::: ", 109.198 -DATA 30 , 0 , "", " ___ ", 85.8773 -DATA 31 , 1 , "", " ", -58.3548 -DATA 32 , 0 , "", " ", 29.6397 -DATA 33 , 1 , "", " _____ ", -108.36 -DATA 34 , 1 , "", " S ", -46.5199 -DATA 35 , 0 , "", " FFFF ", 112.521 -DATA 36 , 0 , "", " kkk", 45.4151 -DATA 37 , 0 , "", " NNNN ", 101.129 -DATA 38 , 0 , "", " mmmm ", 65.0473 -DATA 39 , 0 , "", " ,,,,, ", 48.4012 -DATA 40 , 0 , "", "OO ", 122.294 -DATA 41 , 1 , "", " HHHH ", -56.1094 -DATA 42 , 1 , "", " < ", -121.087 -DATA 43 , 1 , "", " j ", -123.517 -DATA 44 , 1 , "", " yyyy ", -97.6301 -DATA 45 , 1 , "", " +++ ", -64.0001 -DATA 46 , 1 , "", "o ", -25.6888 -DATA 47 , 0 , "", " ((", 14.8006 -DATA 48 , 1 , "", " uu ", -61.0877 -DATA 49 , 1 , "", " 00 ", -66.6381 -DATA 50 , 1 , "", " HH ", -5476.5 -DATA 51 , 1 , "", " ", -21210.3 -DATA 52 , 1 , "", " G ", -28757.2 -DATA 53 , 1 , "", " {{{{ ", -28732.2 -DATA 54 , 1 , "", " ]]] ", 12730.3 -DATA 55 , 1 , "", "CCC", -1830.69 -DATA 56 , 1 , "", " 44 ", 5486.39 -DATA 57 , 1 , "", "^^ ", 22405.9 -DATA 58 , 1 , "", " QQ ", 30809.8 -DATA 59 , 1 , "", " FFFF ", -28930.6 -DATA 60 , 1 , "", " n ", -6014.53 -DATA 61 , 1 , "", " hh ", 17414.6 -DATA 62 , 1 , "", "555 ", -10538.3 -DATA 63 , 1 , "", " YYYY ", -17536.3 -DATA 64 , 1 , "", " w ", -8856.62 -DATA 65 , 1 , "", "MMMM ", -5140.12 -DATA 66 , 1 , "", " JJJJ ", -8595.31 -DATA 67 , 1 , "", " %% ", -3382.87 -DATA 68 , 1 , "", " * ", -5002.07 -DATA 69 , 1 , "", " @@@ ", -5800.72 -DATA 70 , 1 , "", "I ", 29686.4 -DATA 71 , 0 , "", " ss ", 2571. -DATA 72 , 1 , "", " f ", 31091. -DATA 73 , 1 , "", " D ", 14819. -DATA 74 , 0 , "", "### ", 3790.9 -DATA 75 , 1 , "", " ' ", -4.2981E+9 -DATA 76 , 1 , "", " dd ", -7.05453E+8 -DATA 77 , 1 , "", " TT ", -3.10179E+9 -DATA 78 , 1 , "", " vvv ", -4.86159E+9 -DATA 79 , 1 , "", " X ", -8.62908E+8 -DATA 80 , 1 , "", " % ", -3.4101E+9 -DATA 81 , 1 , "", " ", 3.3889E+9 -DATA 82 , 1 , "", " 5555 ", 2.49826E+9 -DATA 83 , 1 , "", "FFFF ", 2.3491E+9 -DATA 84 , 1 , "", " %% ", 1.94745E+8 -DATA 85 , 1 , "", " ", 2.02475E+9 -DATA 86 , 1 , "", " ~~~~ ", -2.26748E+9 -DATA 87 , 1 , "", " || ", -2.10587E+9 -DATA 88 , 1 , "", " SSS ", 4.23585E+9 -DATA 89 , 1 , "", " 6666 ", -2.66524E+9 -DATA 90 , 1 , "", " ww ", 4.01052E+9 -DATA 91 , 1 , "", " 1111 ", -4.87912E+9 -DATA 92 , 1 , "", " K ", 1.77556E+9 -DATA 93 , 1 , "", " ttttt ", 2.87705E+8 -DATA 94 , 1 , "", " OOOOO ", 1.99977E+8 -DATA 95 , 1 , "", " E ", -3.39941E+9 -DATA 96 , 1 , "", " PPPPP ", -3.49119E+9 -DATA 97 , 1 , "", " == ", -2.86324E+9 -DATA 98 , 1 , "", " VVVV ", 4.20418E+9 -DATA 99 , 1 , "", " c ", -3.1518E+9 -DATA 100 , 1 , "", " yyyy ", 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_MID_A_X_S.run b/bwbtest/NBS2X/F_MID_A_X_S.run deleted file mode 100644 index 1efaab3..0000000 --- a/bwbtest/NBS2X/F_MID_A_X_S.run +++ /dev/null @@ -1,319 +0,0 @@ -TESTCASE # 1 E= 1 R$=[] A$=[] X= 0 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] A$=[ ] X= 1 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 3 E= 1 R$=[] A$=[3] X=-1 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 4 E= 1 R$=[] A$=[z] X= .4 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 5 E= 1 R$=[] A$=[ ] X=-.4 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ 3] A$=[ 3] X= .6 - F= 0 S$=[ 3] -*** TEST PASSED *** -TESTCASE # 7 E= 1 R$=[] A$=[ z] X=-.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[] A$=[3 ] X= 254 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[] A$=[z ] X= 255 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[] A$=[ 3 ] X= 256 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 11 E= 1 R$=[] A$=[ z ] X= 32000 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 12 E= 1 R$=[] A$=[ LLLL] X=-.227229 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 13 E= 1 R$=[] A$=[ '' ] X= --.239157 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 14 E= 1 R$=[] A$=[ oo ] X= --.213586 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 15 E= 1 R$=[] A$=[ 00 ] X= .274675 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 16 E= 1 R$=[] A$=[ \\\\ ] X= .169766 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 17 E= 1 R$=[] A$=[ lllll ] X= .318766 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 18 E= 1 R$=[] A$=[ uuuu ] X= - 2.06658E-2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 19 E= 1 R$=[] A$=[ a ] X= .188257 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 20 E= 1 R$=[] A$=[ ] X=-.277537 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 1 R$=[] A$=[ hh ] X=-.481303 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 22 E= 1 R$=[] A$=[ h ] X= .43556 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 23 E= 1 R$=[] A$=[ )] X=-.210971 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 24 E= 1 R$=[] A$=[ 5 ] X=-.455216 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 25 E= 1 R$=[] A$=[ 2 ] X=-110.907 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[] A$=[ - ] X= 105.632 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 27 E= 1 R$=[] A$=[dd ] X=-114.341 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[] A$=[ tttt ] X= 109.706 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[] A$=[ :::: ] X= 109.198 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[] A$=[ ___ ] X= 85.8773 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 31 E= 1 R$=[] A$=[ ] X=-58.3548 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[] A$=[ ] X= 29.6397 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 33 E= 1 R$=[] A$=[ _____ ] X=-108.36 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 34 E= 1 R$=[] A$=[ S ] X=-46.5199 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[] A$=[ FFFF ] X= 112.521 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[] A$=[ kkk] X= 45.4151 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[] A$=[ NNNN ] X= - 101.129 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[] A$=[ mmmm ] X= 65.0473 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[] A$=[ ,,,,, ] X= - 48.4012 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[] A$=[OO ] X= 122.294 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 41 E= 1 R$=[] A$=[ HHHH ] X=-56.1094 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 42 E= 1 R$=[] A$=[ < ] X=-121.087 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 43 E= 1 R$=[] A$=[ j ] X=-123.517 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 44 E= 1 R$=[] A$=[ yyyy ] X= --97.6301 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 45 E= 1 R$=[] A$=[ +++ ] X=-64.0001 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 46 E= 1 R$=[] A$=[o ] X=-25.6888 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[] A$=[ ((] X= 14.8006 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 48 E= 1 R$=[] A$=[ uu ] X= --61.0877 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 49 E= 1 R$=[] A$=[ 00 ] X= --66.6381 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 50 E= 1 R$=[] A$=[ HH ] X=-5476.5 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 51 E= 1 R$=[] A$=[ ] X=-21210.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 1 R$=[] A$=[ G ] X=-28757.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 53 E= 1 R$=[] A$=[ {{{{ ] X=-28732.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 54 E= 1 R$=[] A$=[ ]]] ] X= - 12730.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 55 E= 1 R$=[] A$=[CCC] X=-1830.69 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 56 E= 1 R$=[] A$=[ 44 ] X= 5486.39 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 57 E= 1 R$=[] A$=[^^ ] X= 22405.9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 58 E= 1 R$=[] A$=[ QQ ] X= - 30809.8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 59 E= 1 R$=[] A$=[ FFFF ] X= --28930.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 60 E= 1 R$=[] A$=[ n ] X=-6014.53 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 61 E= 1 R$=[] A$=[ hh ] X= 17414.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 62 E= 1 R$=[] A$=[555 ] X=-10538.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 63 E= 1 R$=[] A$=[ YYYY ] X=-17536.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 64 E= 1 R$=[] A$=[ w ] X= --8856.62 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 65 E= 1 R$=[] A$=[MMMM ] X=-5140.12 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 66 E= 1 R$=[] A$=[ JJJJ ] X=-8595.31 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 67 E= 1 R$=[] A$=[ %% ] X= --3382.87 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 68 E= 1 R$=[] A$=[ * ] X=-5002.07 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 69 E= 1 R$=[] A$=[ @@@ ] X= --5800.72 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 70 E= 1 R$=[] A$=[I ] X= 29686.4 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[] A$=[ ss ] X= 2571 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 72 E= 1 R$=[] A$=[ f ] X= 31091 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 73 E= 1 R$=[] A$=[ D ] X= 14819 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[] A$=[### ] X= 3790.9 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 75 E= 1 R$=[] A$=[ ' ] X= --4.2981E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 76 E= 1 R$=[] A$=[ dd ] X=-7.05453E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 77 E= 1 R$=[] A$=[ TT ] X=-3.10179E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 78 E= 1 R$=[] A$=[ vvv ] X=-4.86159E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 79 E= 1 R$=[] A$=[ X ] X=-8.62908E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 80 E= 1 R$=[] A$=[ % ] X=-3.4101E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 81 E= 1 R$=[] A$=[ ] X= 3.3889E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 1 R$=[] A$=[ 5555 ] X= 2.49826E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 83 E= 1 R$=[] A$=[FFFF ] X= 2.3491E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 84 E= 1 R$=[] A$=[ %% ] X= 1.94745E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 85 E= 1 R$=[] A$=[ ] X= 2.02475E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 1 R$=[] A$=[ ~~~~ ] X= --2.26748E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 87 E= 1 R$=[] A$=[ || ] X=-2.10587E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 88 E= 1 R$=[] A$=[ SSS ] X= - 4.23585E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 89 E= 1 R$=[] A$=[ 6666 ] X=-2.66524E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 90 E= 1 R$=[] A$=[ ww ] X= 4.01052E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 91 E= 1 R$=[] A$=[ 1111 ] X=-4.87912E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 92 E= 1 R$=[] A$=[ K ] X= 1.77556E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 93 E= 1 R$=[] A$=[ ttttt ] X= 2.87705E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 94 E= 1 R$=[] A$=[ OOOOO ] X= 1.99977E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 95 E= 1 R$=[] A$=[ E ] X=-3.39941E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 96 E= 1 R$=[] A$=[ PPPPP ] X=-3.49119E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 97 E= 1 R$=[] A$=[ == ] X=-2.86324E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 98 E= 1 R$=[] A$=[ VVVV ] X= 4.20418E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 99 E= 1 R$=[] A$=[ c ] X=-3.1518E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 100 E= 1 R$=[] A$=[ yyyy ] -X= 4.60615E+9 - F= 1 S$=[] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_MID_A_X_Y_S.BAS b/bwbtest/NBS2X/F_MID_A_X_Y_S.BAS deleted file mode 100644 index 9fccce6..0000000 --- a/bwbtest/NBS2X/F_MID_A_X_Y_S.BAS +++ /dev/null @@ -1,161 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:28 -REM FILENAME: F_MID_A_X_Y_S.BAS -REM SYNTAX: S$ = MID$( A$, X, Y ) -REM UNIQUEID: F_MID_A_X_Y_S -REM FUNCTION: MID$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM X ACTUAL FUNCTION PARAMETER -REM Y ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, A$, X, Y -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "A$=[";A$;"]", "X=";X, "Y=";Y -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = MID$( A$, X, Y ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , "", "", 0 , 0 -DATA 2 , 0 , " ", " ", 1 , 1 -DATA 3 , 1 , "", "3", -1 , -1 -DATA 4 , 1 , "", "z", .4 , .4 -DATA 5 , 1 , "", " ", -.4 , -.4 -DATA 6 , 0 , " ", " 3", .6 , .6 -DATA 7 , 1 , "", " z", -.6 , -.6 -DATA 8 , 0 , "", "3 ", 254 , 254 -DATA 9 , 0 , "", "z ", 255 , 255 -DATA 10 , 0 , "", " 3 ", 256 , 256 -DATA 11 , 1 , "", " z ", 32000 , 32000 -DATA 12 , 1 , "", " LLLL", -.227229 , -.227229 -DATA 13 , 1 , "", " '' ", -.239157 , -.239157 -DATA 14 , 1 , "", " oo ", -.213586 , -.213586 -DATA 15 , 1 , "", " 00 ", .274675 , .274675 -DATA 16 , 1 , "", " \\\\ ", .169766 , .169766 -DATA 17 , 1 , "", " lllll ", .318766 , .318766 -DATA 18 , 1 , "", " uuuu ", 2.06658E-2 , 2.06658E-2 -DATA 19 , 1 , "", " a ", .188257 , .188257 -DATA 20 , 1 , "", " ", -.277537 , -.277537 -DATA 21 , 1 , "", " hh ", -.481303 , -.481303 -DATA 22 , 1 , "", " h ", .43556 , .43556 -DATA 23 , 1 , "", " )", -.210971 , -.210971 -DATA 24 , 1 , "", " 5 ", -.455216 , -.455216 -DATA 25 , 1 , "", " 2 ", -110.907 , -110.907 -DATA 26 , 0 , "", " - ", 105.632 , 105.632 -DATA 27 , 1 , "", "dd ", -114.341 , -114.341 -DATA 28 , 0 , "", " tttt ", 109.706 , 109.706 -DATA 29 , 0 , "", " :::: ", 109.198 , 109.198 -DATA 30 , 0 , "", " ___ ", 85.8773 , 85.8773 -DATA 31 , 1 , "", " ", -58.3548 , -58.3548 -DATA 32 , 0 , "", " ", 29.6397 , 29.6397 -DATA 33 , 1 , "", " _____ ", -108.36 , -108.36 -DATA 34 , 1 , "", " S ", -46.5199 , -46.5199 -DATA 35 , 0 , "", " FFFF ", 112.521 , 112.521 -DATA 36 , 0 , "", " kkk", 45.4151 , 45.4151 -DATA 37 , 0 , "", " NNNN ", 101.129 , 101.129 -DATA 38 , 0 , "", " mmmm ", 65.0473 , 65.0473 -DATA 39 , 0 , "", " ,,,,, ", 48.4012 , 48.4012 -DATA 40 , 0 , "", "OO ", 122.294 , 122.294 -DATA 41 , 1 , "", " HHHH ", -56.1094 , -56.1094 -DATA 42 , 1 , "", " < ", -121.087 , -121.087 -DATA 43 , 1 , "", " j ", -123.517 , -123.517 -DATA 44 , 1 , "", " yyyy ", -97.6301 , -97.6301 -DATA 45 , 1 , "", " +++ ", -64.0001 , -64.0001 -DATA 46 , 1 , "", "o ", -25.6888 , -25.6888 -DATA 47 , 0 , "", " ((", 14.8006 , 14.8006 -DATA 48 , 1 , "", " uu ", -61.0877 , -61.0877 -DATA 49 , 1 , "", " 00 ", -66.6381 , -66.6381 -DATA 50 , 1 , "", " HH ", -5476.5 , -5476.5 -DATA 51 , 1 , "", " ", -21210.3 , -21210.3 -DATA 52 , 1 , "", " G ", -28757.2 , -28757.2 -DATA 53 , 1 , "", " {{{{ ", -28732.2 , -28732.2 -DATA 54 , 1 , "", " ]]] ", 12730.3 , 12730.3 -DATA 55 , 1 , "", "CCC", -1830.69 , -1830.69 -DATA 56 , 1 , "", " 44 ", 5486.39 , 5486.39 -DATA 57 , 1 , "", "^^ ", 22405.9 , 22405.9 -DATA 58 , 1 , "", " QQ ", 30809.8 , 30809.8 -DATA 59 , 1 , "", " FFFF ", -28930.6 , -28930.6 -DATA 60 , 1 , "", " n ", -6014.53 , -6014.53 -DATA 61 , 1 , "", " hh ", 17414.6 , 17414.6 -DATA 62 , 1 , "", "555 ", -10538.3 , -10538.3 -DATA 63 , 1 , "", " YYYY ", -17536.3 , -17536.3 -DATA 64 , 1 , "", " w ", -8856.62 , -8856.62 -DATA 65 , 1 , "", "MMMM ", -5140.12 , -5140.12 -DATA 66 , 1 , "", " JJJJ ", -8595.31 , -8595.31 -DATA 67 , 1 , "", " %% ", -3382.87 , -3382.87 -DATA 68 , 1 , "", " * ", -5002.07 , -5002.07 -DATA 69 , 1 , "", " @@@ ", -5800.72 , -5800.72 -DATA 70 , 1 , "", "I ", 29686.4 , 29686.4 -DATA 71 , 0 , "", " ss ", 2571. , 2571. -DATA 72 , 1 , "", " f ", 31091. , 31091. -DATA 73 , 1 , "", " D ", 14819. , 14819. -DATA 74 , 0 , "", "### ", 3790.9 , 3790.9 -DATA 75 , 1 , "", " ' ", -4.2981E+9 , -4.2981E+9 -DATA 76 , 1 , "", " dd ", -7.05453E+8 , -7.05453E+8 -DATA 77 , 1 , "", " TT ", -3.10179E+9 , -3.10179E+9 -DATA 78 , 1 , "", " vvv ", -4.86159E+9 , -4.86159E+9 -DATA 79 , 1 , "", " X ", -8.62908E+8 , -8.62908E+8 -DATA 80 , 1 , "", " % ", -3.4101E+9 , -3.4101E+9 -DATA 81 , 1 , "", " ", 3.3889E+9 , 3.3889E+9 -DATA 82 , 1 , "", " 5555 ", 2.49826E+9 , 2.49826E+9 -DATA 83 , 1 , "", "FFFF ", 2.3491E+9 , 2.3491E+9 -DATA 84 , 1 , "", " %% ", 1.94745E+8 , 1.94745E+8 -DATA 85 , 1 , "", " ", 2.02475E+9 , 2.02475E+9 -DATA 86 , 1 , "", " ~~~~ ", -2.26748E+9 , -2.26748E+9 -DATA 87 , 1 , "", " || ", -2.10587E+9 , -2.10587E+9 -DATA 88 , 1 , "", " SSS ", 4.23585E+9 , 4.23585E+9 -DATA 89 , 1 , "", " 6666 ", -2.66524E+9 , -2.66524E+9 -DATA 90 , 1 , "", " ww ", 4.01052E+9 , 4.01052E+9 -DATA 91 , 1 , "", " 1111 ", -4.87912E+9 , -4.87912E+9 -DATA 92 , 1 , "", " K ", 1.77556E+9 , 1.77556E+9 -DATA 93 , 1 , "", " ttttt ", 2.87705E+8 , 2.87705E+8 -DATA 94 , 1 , "", " OOOOO ", 1.99977E+8 , 1.99977E+8 -DATA 95 , 1 , "", " E ", -3.39941E+9 , -3.39941E+9 -DATA 96 , 1 , "", " PPPPP ", -3.49119E+9 , -3.49119E+9 -DATA 97 , 1 , "", " == ", -2.86324E+9 , -2.86324E+9 -DATA 98 , 1 , "", " VVVV ", 4.20418E+9 , 4.20418E+9 -DATA 99 , 1 , "", " c ", -3.1518E+9 , -3.1518E+9 -DATA 100 , 1 , "", " yyyy ", 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_MID_A_X_Y_S.run b/bwbtest/NBS2X/F_MID_A_X_Y_S.run deleted file mode 100644 index bf6f620..0000000 --- a/bwbtest/NBS2X/F_MID_A_X_Y_S.run +++ /dev/null @@ -1,398 +0,0 @@ -TESTCASE # 1 E= 1 R$=[] A$=[] X= 0 Y= 0 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] A$=[ ] X= 1 Y= 1 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 3 E= 1 R$=[] A$=[3] X=-1 Y=-1 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 4 E= 1 R$=[] A$=[z] X= .4 Y= .4 - - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 5 E= 1 R$=[] A$=[ ] X=-.4 Y=-.4 - - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ ] A$=[ 3] X= .6 Y= .6 - - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 7 E= 1 R$=[] A$=[ z] X=-.6 Y=-.6 - - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[] A$=[3 ] X= 254 Y= - 254 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[] A$=[z ] X= 255 Y= - 255 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[] A$=[ 3 ] X= 256 Y= - 256 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 11 E= 1 R$=[] A$=[ z ] X= 32000 Y= - 32000 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 12 E= 1 R$=[] A$=[ LLLL] X=-.227229 Y= --.227229 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 13 E= 1 R$=[] A$=[ '' ] X= --.239157 Y=-.239157 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 14 E= 1 R$=[] A$=[ oo ] X= --.213586 Y=-.213586 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 15 E= 1 R$=[] A$=[ 00 ] X= .274675 Y= - .274675 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 16 E= 1 R$=[] A$=[ \\\\ ] X= .169766 Y= - .169766 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 17 E= 1 R$=[] A$=[ lllll ] X= .318766 Y= - .318766 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 18 E= 1 R$=[] A$=[ uuuu ] X= - 2.06658E-2 Y= 2.06658E-2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 19 E= 1 R$=[] A$=[ a ] X= .188257 Y= - .188257 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 20 E= 1 R$=[] A$=[ ] X=-.277537 Y= --.277537 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 1 R$=[] A$=[ hh ] X=-.481303 Y= --.481303 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 22 E= 1 R$=[] A$=[ h ] X= .43556 Y= - .43556 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 23 E= 1 R$=[] A$=[ )] X=-.210971 Y= --.210971 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 24 E= 1 R$=[] A$=[ 5 ] X=-.455216 Y= --.455216 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 25 E= 1 R$=[] A$=[ 2 ] X=-110.907 Y= --110.907 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[] A$=[ - ] X= 105.632 Y= - 105.632 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 27 E= 1 R$=[] A$=[dd ] X=-114.341 Y= --114.341 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[] A$=[ tttt ] X= 109.706 Y= - 109.706 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[] A$=[ :::: ] X= 109.198 Y= - 109.198 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[] A$=[ ___ ] X= 85.8773 Y= - 85.8773 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 31 E= 1 R$=[] A$=[ ] X=-58.3548 Y= --58.3548 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[] A$=[ ] X= 29.6397 Y= - 29.6397 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 33 E= 1 R$=[] A$=[ _____ ] X=-108.36 Y= --108.36 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 34 E= 1 R$=[] A$=[ S ] X=-46.5199 Y= --46.5199 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[] A$=[ FFFF ] X= 112.521 Y= - 112.521 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[] A$=[ kkk] X= 45.4151 Y= - 45.4151 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[] A$=[ NNNN ] X= - 101.129 Y= 101.129 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[] A$=[ mmmm ] X= 65.0473 Y= - 65.0473 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[] A$=[ ,,,,, ] X= - 48.4012 Y= 48.4012 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[] A$=[OO ] X= 122.294 Y= - 122.294 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 41 E= 1 R$=[] A$=[ HHHH ] X=-56.1094 Y= --56.1094 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 42 E= 1 R$=[] A$=[ < ] X=-121.087 Y= --121.087 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 43 E= 1 R$=[] A$=[ j ] X=-123.517 Y= --123.517 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 44 E= 1 R$=[] A$=[ yyyy ] X= --97.6301 Y=-97.6301 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 45 E= 1 R$=[] A$=[ +++ ] X=-64.0001 Y= --64.0001 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 46 E= 1 R$=[] A$=[o ] X=-25.6888 Y= --25.6888 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[] A$=[ ((] X= 14.8006 Y= - 14.8006 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 48 E= 1 R$=[] A$=[ uu ] X= --61.0877 Y=-61.0877 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 49 E= 1 R$=[] A$=[ 00 ] X= --66.6381 Y=-66.6381 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 50 E= 1 R$=[] A$=[ HH ] X=-5476.5 Y= --5476.5 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 51 E= 1 R$=[] A$=[ ] X=-21210.3 Y= --21210.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 1 R$=[] A$=[ G ] X=-28757.2 Y= --28757.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 53 E= 1 R$=[] A$=[ {{{{ ] X=-28732.2 Y= --28732.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 54 E= 1 R$=[] A$=[ ]]] ] X= - 12730.3 Y= 12730.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 55 E= 1 R$=[] A$=[CCC] X=-1830.69 Y= --1830.69 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 56 E= 1 R$=[] A$=[ 44 ] X= 5486.39 Y= - 5486.39 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 57 E= 1 R$=[] A$=[^^ ] X= 22405.9 Y= - 22405.9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 58 E= 1 R$=[] A$=[ QQ ] X= - 30809.8 Y= 30809.8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 59 E= 1 R$=[] A$=[ FFFF ] X= --28930.6 Y=-28930.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 60 E= 1 R$=[] A$=[ n ] X=-6014.53 Y= --6014.53 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 61 E= 1 R$=[] A$=[ hh ] X= 17414.6 Y= - 17414.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 62 E= 1 R$=[] A$=[555 ] X=-10538.3 Y= --10538.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 63 E= 1 R$=[] A$=[ YYYY ] X=-17536.3 Y= --17536.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 64 E= 1 R$=[] A$=[ w ] X= --8856.62 Y=-8856.62 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 65 E= 1 R$=[] A$=[MMMM ] X=-5140.12 Y= --5140.12 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 66 E= 1 R$=[] A$=[ JJJJ ] X=-8595.31 Y= --8595.31 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 67 E= 1 R$=[] A$=[ %% ] X= --3382.87 Y=-3382.87 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 68 E= 1 R$=[] A$=[ * ] X=-5002.07 Y= --5002.07 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 69 E= 1 R$=[] A$=[ @@@ ] X= --5800.72 Y=-5800.72 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 70 E= 1 R$=[] A$=[I ] X= 29686.4 Y= - 29686.4 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[] A$=[ ss ] X= 2571 Y= - 2571 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 72 E= 1 R$=[] A$=[ f ] X= 31091 Y= - 31091 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 73 E= 1 R$=[] A$=[ D ] X= 14819 Y= - 14819 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[] A$=[### ] X= 3790.9 Y= - 3790.9 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 75 E= 1 R$=[] A$=[ ' ] X= --4.2981E+9 Y=-4.2981E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 76 E= 1 R$=[] A$=[ dd ] X=-7.05453E+8 Y= --7.05453E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 77 E= 1 R$=[] A$=[ TT ] X=-3.10179E+9 Y= --3.10179E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 78 E= 1 R$=[] A$=[ vvv ] X=-4.86159E+9 Y= --4.86159E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 79 E= 1 R$=[] A$=[ X ] X=-8.62908E+8 Y= --8.62908E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 80 E= 1 R$=[] A$=[ % ] X=-3.4101E+9 Y= --3.4101E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 81 E= 1 R$=[] A$=[ ] X= 3.3889E+9 Y= - 3.3889E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 1 R$=[] A$=[ 5555 ] X= 2.49826E+9 Y= - 2.49826E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 83 E= 1 R$=[] A$=[FFFF ] X= 2.3491E+9 Y= - 2.3491E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 84 E= 1 R$=[] A$=[ %% ] X= 1.94745E+8 Y= - 1.94745E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 85 E= 1 R$=[] A$=[ ] X= 2.02475E+9 Y= - 2.02475E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 1 R$=[] A$=[ ~~~~ ] X= --2.26748E+9 Y=-2.26748E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 87 E= 1 R$=[] A$=[ || ] X=-2.10587E+9 Y= --2.10587E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 88 E= 1 R$=[] A$=[ SSS ] X= - 4.23585E+9 Y= 4.23585E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 89 E= 1 R$=[] A$=[ 6666 ] X=-2.66524E+9 Y= --2.66524E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 90 E= 1 R$=[] A$=[ ww ] X= 4.01052E+9 Y= - 4.01052E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 91 E= 1 R$=[] A$=[ 1111 ] X=-4.87912E+9 Y= --4.87912E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 92 E= 1 R$=[] A$=[ K ] X= 1.77556E+9 Y= - 1.77556E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 93 E= 1 R$=[] A$=[ ttttt ] X= 2.87705E+8 Y= - 2.87705E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 94 E= 1 R$=[] A$=[ OOOOO ] X= 1.99977E+8 Y= - 1.99977E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 95 E= 1 R$=[] A$=[ E ] X=-3.39941E+9 Y= --3.39941E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 96 E= 1 R$=[] A$=[ PPPPP ] X=-3.49119E+9 Y= --3.49119E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 97 E= 1 R$=[] A$=[ == ] X=-2.86324E+9 Y= --2.86324E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 98 E= 1 R$=[] A$=[ VVVV ] X= 4.20418E+9 Y= - 4.20418E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 99 E= 1 R$=[] A$=[ c ] X=-3.1518E+9 Y= --3.1518E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 100 E= 1 R$=[] A$=[ yyyy ] -X= 4.60615E+9 Y= 4.60615E+9 - F= 1 S$=[] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_MIN_X_Y_N.BAS b/bwbtest/NBS2X/F_MIN_X_Y_N.BAS deleted file mode 100644 index ab7a663..0000000 --- a/bwbtest/NBS2X/F_MIN_X_Y_N.BAS +++ /dev/null @@ -1,184 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:28 -REM FILENAME: F_MIN_X_Y_N.BAS -REM SYNTAX: N = MIN( X, Y ) -REM UNIQUEID: F_MIN_X_Y_N -REM FUNCTION: MIN -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM Y ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X, Y -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X, "Y=";Y -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = MIN( X, Y ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 , 1 -DATA 3 , 0 , -1 , -1 , -1 -DATA 4 , 0 , .4 , .4 , .4 -DATA 5 , 0 , -.4 , -.4 , -.4 -DATA 6 , 0 , .6 , .6 , .6 -DATA 7 , 0 , -.6 , -.6 , -.6 -DATA 8 , 0 , 254 , 254 , 254 -DATA 9 , 0 , 255 , 255 , 255 -DATA 10 , 0 , 256 , 256 , 256 -DATA 11 , 0 , 32000 , 32000 , 32000 -DATA 12 , 0 , -.227229 , -.227229 , -.227229 -DATA 13 , 0 , -.239157 , -.239157 , -.239157 -DATA 14 , 0 , -.213586 , -.213586 , -.213586 -DATA 15 , 0 , .274675 , .274675 , .274675 -DATA 16 , 0 , .169766 , .169766 , .169766 -DATA 17 , 0 , .318766 , .318766 , .318766 -DATA 18 , 0 , 2.06658E-2 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , .188257 , .188257 , .188257 -DATA 20 , 0 , -.277537 , -.277537 , -.277537 -DATA 21 , 0 , -.481303 , -.481303 , -.481303 -DATA 22 , 0 , .43556 , .43556 , .43556 -DATA 23 , 0 , -.210971 , -.210971 , -.210971 -DATA 24 , 0 , -.455216 , -.455216 , -.455216 -DATA 25 , 0 , -110.907 , -110.907 , -110.907 -DATA 26 , 0 , 105.632 , 105.632 , 105.632 -DATA 27 , 0 , -114.341 , -114.341 , -114.341 -DATA 28 , 0 , 109.706 , 109.706 , 109.706 -DATA 29 , 0 , 109.198 , 109.198 , 109.198 -DATA 30 , 0 , 85.8773 , 85.8773 , 85.8773 -DATA 31 , 0 , -58.3548 , -58.3548 , -58.3548 -DATA 32 , 0 , 29.6397 , 29.6397 , 29.6397 -DATA 33 , 0 , -108.36 , -108.36 , -108.36 -DATA 34 , 0 , -46.5199 , -46.5199 , -46.5199 -DATA 35 , 0 , 112.521 , 112.521 , 112.521 -DATA 36 , 0 , 45.4151 , 45.4151 , 45.4151 -DATA 37 , 0 , 101.129 , 101.129 , 101.129 -DATA 38 , 0 , 65.0473 , 65.0473 , 65.0473 -DATA 39 , 0 , 48.4012 , 48.4012 , 48.4012 -DATA 40 , 0 , 122.294 , 122.294 , 122.294 -DATA 41 , 0 , -56.1094 , -56.1094 , -56.1094 -DATA 42 , 0 , -121.087 , -121.087 , -121.087 -DATA 43 , 0 , -123.517 , -123.517 , -123.517 -DATA 44 , 0 , -97.6301 , -97.6301 , -97.6301 -DATA 45 , 0 , -64.0001 , -64.0001 , -64.0001 -DATA 46 , 0 , -25.6888 , -25.6888 , -25.6888 -DATA 47 , 0 , 14.8006 , 14.8006 , 14.8006 -DATA 48 , 0 , -61.0877 , -61.0877 , -61.0877 -DATA 49 , 0 , -66.6381 , -66.6381 , -66.6381 -DATA 50 , 0 , -5476.5 , -5476.5 , -5476.5 -DATA 51 , 0 , -21210.3 , -21210.3 , -21210.3 -DATA 52 , 0 , -28757.2 , -28757.2 , -28757.2 -DATA 53 , 0 , -28732.2 , -28732.2 , -28732.2 -DATA 54 , 0 , 12730.3 , 12730.3 , 12730.3 -DATA 55 , 0 , -1830.69 , -1830.69 , -1830.69 -DATA 56 , 0 , 5486.39 , 5486.39 , 5486.39 -DATA 57 , 0 , 22405.9 , 22405.9 , 22405.9 -DATA 58 , 0 , 30809.8 , 30809.8 , 30809.8 -DATA 59 , 0 , -28930.6 , -28930.6 , -28930.6 -DATA 60 , 0 , -6014.53 , -6014.53 , -6014.53 -DATA 61 , 0 , 17414.6 , 17414.6 , 17414.6 -DATA 62 , 0 , -10538.3 , -10538.3 , -10538.3 -DATA 63 , 0 , -17536.3 , -17536.3 , -17536.3 -DATA 64 , 0 , -8856.62 , -8856.62 , -8856.62 -DATA 65 , 0 , -5140.12 , -5140.12 , -5140.12 -DATA 66 , 0 , -8595.31 , -8595.31 , -8595.31 -DATA 67 , 0 , -3382.87 , -3382.87 , -3382.87 -DATA 68 , 0 , -5002.07 , -5002.07 , -5002.07 -DATA 69 , 0 , -5800.72 , -5800.72 , -5800.72 -DATA 70 , 0 , 29686.4 , 29686.4 , 29686.4 -DATA 71 , 0 , 2571 , 2571. , 2571. -DATA 72 , 0 , 31091 , 31091. , 31091. -DATA 73 , 0 , 14819 , 14819. , 14819. -DATA 74 , 0 , 3790.9 , 3790.9 , 3790.9 -DATA 75 , 0 , -4.2981E+9 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , -7.05453E+8 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , -3.10179E+9 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , -4.86159E+9 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , -8.62908E+8 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , -3.4101E+9 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , 3.3889E+9 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , 2.49826E+9 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , 2.3491E+9 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , 1.94745E+8 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 2.02475E+9 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , -2.26748E+9 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , -2.10587E+9 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , 4.23585E+9 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , -2.66524E+9 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , 4.01052E+9 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , -4.87912E+9 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , 1.77556E+9 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 2.87705E+8 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 1.99977E+8 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , -3.39941E+9 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , -3.49119E+9 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , -2.86324E+9 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , 4.20418E+9 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , -3.1518E+9 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , 4.60615E+9 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_MIN_X_Y_N.run b/bwbtest/NBS2X/F_MIN_X_Y_N.run deleted file mode 100644 index 85c7375..0000000 --- a/bwbtest/NBS2X/F_MIN_X_Y_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 Y= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 Y= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 Y=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .4 X= .4 Y= .4 - F= 0 N= .4 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.4 X=-.4 Y=-.4 - F= 0 N=-.4 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .6 X= .6 Y= .6 - F= 0 N= .6 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.6 X=-.6 Y=-.6 - F= 0 N=-.6 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 254 X= 254 Y= 254 - F= 0 N= 254 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 255 X= 255 Y= 255 - F= 0 N= 255 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 256 X= 256 Y= 256 - F= 0 N= 256 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 32000 X= 32000 Y= 32000 - F= 0 N= 32000 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.227229 X=-.227229 Y=-.227229 - F= 0 N=-.227229 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.239157 X=-.239157 Y=-.239157 - F= 0 N=-.239157 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.213586 X=-.213586 Y=-.213586 - F= 0 N=-.213586 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .274675 X= .274675 Y= .274675 - F= 0 N= .274675 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .169766 X= .169766 Y= .169766 - F= 0 N= .169766 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .318766 X= .318766 Y= .318766 - F= 0 N= .318766 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06658E-2 X= 2.06658E-2 Y= 2.06658E-2 - F= 0 N= 2.06658E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .188257 X= .188257 Y= .188257 - F= 0 N= .188257 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.277537 X=-.277537 Y=-.277537 - F= 0 N=-.277537 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.481303 X=-.481303 Y=-.481303 - F= 0 N=-.481303 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .43556 X= .43556 Y= .43556 - F= 0 N= .43556 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.210971 X=-.210971 Y=-.210971 - F= 0 N=-.210971 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.455216 X=-.455216 Y=-.455216 - F= 0 N=-.455216 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-110.907 X=-110.907 Y=-110.907 - F= 0 N=-110.907 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 105.632 X= 105.632 Y= 105.632 - F= 0 N= 105.632 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-114.341 X=-114.341 Y=-114.341 - F= 0 N=-114.341 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 109.706 X= 109.706 Y= 109.706 - F= 0 N= 109.706 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 109.198 X= 109.198 Y= 109.198 - F= 0 N= 109.198 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 85.8773 X= 85.8773 Y= 85.8773 - F= 0 N= 85.8773 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-58.3548 X=-58.3548 Y=-58.3548 - F= 0 N=-58.3548 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 29.6397 X= 29.6397 Y= 29.6397 - F= 0 N= 29.6397 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-108.36 X=-108.36 Y=-108.36 - F= 0 N=-108.36 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-46.5199 X=-46.5199 Y=-46.5199 - F= 0 N=-46.5199 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 112.521 X= 112.521 Y= 112.521 - F= 0 N= 112.521 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 45.4151 X= 45.4151 Y= 45.4151 - F= 0 N= 45.4151 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 101.129 X= 101.129 Y= 101.129 - F= 0 N= 101.129 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 65.0473 X= 65.0473 Y= 65.0473 - F= 0 N= 65.0473 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 48.4012 X= 48.4012 Y= 48.4012 - F= 0 N= 48.4012 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 122.294 X= 122.294 Y= 122.294 - F= 0 N= 122.294 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-56.1094 X=-56.1094 Y=-56.1094 - F= 0 N=-56.1094 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-121.087 X=-121.087 Y=-121.087 - F= 0 N=-121.087 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-123.517 X=-123.517 Y=-123.517 - F= 0 N=-123.517 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-97.6301 X=-97.6301 Y=-97.6301 - F= 0 N=-97.6301 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-64.0001 X=-64.0001 Y=-64.0001 - F= 0 N=-64.0001 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-25.6888 X=-25.6888 Y=-25.6888 - F= 0 N=-25.6888 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 14.8006 X= 14.8006 Y= 14.8006 - F= 0 N= 14.8006 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-61.0877 X=-61.0877 Y=-61.0877 - F= 0 N=-61.0877 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-66.6381 X=-66.6381 Y=-66.6381 - F= 0 N=-66.6381 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-5476.5 X=-5476.5 Y=-5476.5 - F= 0 N=-5476.5 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-21210.3 X=-21210.3 Y=-21210.3 - F= 0 N=-21210.3 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-28757.2 X=-28757.2 Y=-28757.2 - F= 0 N=-28757.2 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-28732.2 X=-28732.2 Y=-28732.2 - F= 0 N=-28732.2 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 12730.3 X= 12730.3 Y= 12730.3 - F= 0 N= 12730.3 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1830.69 X=-1830.69 Y=-1830.69 - F= 0 N=-1830.69 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 5486.39 X= 5486.39 Y= 5486.39 - F= 0 N= 5486.39 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 22405.9 X= 22405.9 Y= 22405.9 - F= 0 N= 22405.9 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 30809.8 X= 30809.8 Y= 30809.8 - F= 0 N= 30809.8 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-28930.6 X=-28930.6 Y=-28930.6 - F= 0 N=-28930.6 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-6014.53 X=-6014.53 Y=-6014.53 - F= 0 N=-6014.53 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 17414.6 X= 17414.6 Y= 17414.6 - F= 0 N= 17414.6 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-10538.3 X=-10538.3 Y=-10538.3 - F= 0 N=-10538.3 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-17536.3 X=-17536.3 Y=-17536.3 - F= 0 N=-17536.3 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-8856.62 X=-8856.62 Y=-8856.62 - F= 0 N=-8856.62 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-5140.12 X=-5140.12 Y=-5140.12 - F= 0 N=-5140.12 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-8595.31 X=-8595.31 Y=-8595.31 - F= 0 N=-8595.31 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-3382.87 X=-3382.87 Y=-3382.87 - F= 0 N=-3382.87 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-5002.07 X=-5002.07 Y=-5002.07 - F= 0 N=-5002.07 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-5800.72 X=-5800.72 Y=-5800.72 - F= 0 N=-5800.72 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 29686.4 X= 29686.4 Y= 29686.4 - F= 0 N= 29686.4 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2571 X= 2571 Y= 2571 - F= 0 N= 2571 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 31091 X= 31091 Y= 31091 - F= 0 N= 31091 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 14819 X= 14819 Y= 14819 - F= 0 N= 14819 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 3790.9 X= 3790.9 Y= 3790.9 - F= 0 N= 3790.9 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-4.2981E+9 X=-4.2981E+9 Y=-4.2981E+9 - F= 0 N=-4.2981E+9 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-7.05453E+8 X=-7.05453E+8 Y=-7.05453E+8 - F= 0 N=-7.05453E+8 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-3.10179E+9 X=-3.10179E+9 Y=-3.10179E+9 - F= 0 N=-3.10179E+9 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-4.86159E+9 X=-4.86159E+9 Y=-4.86159E+9 - F= 0 N=-4.86159E+9 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-8.62908E+8 X=-8.62908E+8 Y=-8.62908E+8 - F= 0 N=-8.62908E+8 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-3.4101E+9 X=-3.4101E+9 Y=-3.4101E+9 - F= 0 N=-3.4101E+9 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 3.3889E+9 X= 3.3889E+9 Y= 3.3889E+9 - F= 0 N= 3.3889E+9 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 2.49826E+9 X= 2.49826E+9 Y= 2.49826E+9 - F= 0 N= 2.49826E+9 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.3491E+9 X= 2.3491E+9 Y= 2.3491E+9 - F= 0 N= 2.3491E+9 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1.94745E+8 X= 1.94745E+8 Y= 1.94745E+8 - F= 0 N= 1.94745E+8 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 2.02475E+9 X= 2.02475E+9 Y= 2.02475E+9 - F= 0 N= 2.02475E+9 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-2.26748E+9 X=-2.26748E+9 Y=-2.26748E+9 - F= 0 N=-2.26748E+9 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-2.10587E+9 X=-2.10587E+9 Y=-2.10587E+9 - F= 0 N=-2.10587E+9 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 4.23585E+9 X= 4.23585E+9 Y= 4.23585E+9 - F= 0 N= 4.23585E+9 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-2.66524E+9 X=-2.66524E+9 Y=-2.66524E+9 - F= 0 N=-2.66524E+9 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 4.01052E+9 X= 4.01052E+9 Y= 4.01052E+9 - F= 0 N= 4.01052E+9 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-4.87912E+9 X=-4.87912E+9 Y=-4.87912E+9 - F= 0 N=-4.87912E+9 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1.77556E+9 X= 1.77556E+9 Y= 1.77556E+9 - F= 0 N= 1.77556E+9 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 2.87705E+8 X= 2.87705E+8 Y= 2.87705E+8 - F= 0 N= 2.87705E+8 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.99977E+8 X= 1.99977E+8 Y= 1.99977E+8 - F= 0 N= 1.99977E+8 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-3.39941E+9 X=-3.39941E+9 Y=-3.39941E+9 - F= 0 N=-3.39941E+9 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-3.49119E+9 X=-3.49119E+9 Y=-3.49119E+9 - F= 0 N=-3.49119E+9 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-2.86324E+9 X=-2.86324E+9 Y=-2.86324E+9 - F= 0 N=-2.86324E+9 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 4.20418E+9 X= 4.20418E+9 Y= 4.20418E+9 - F= 0 N= 4.20418E+9 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-3.1518E+9 X=-3.1518E+9 Y=-3.1518E+9 - F= 0 N=-3.1518E+9 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 4.60615E+9 X= 4.60615E+9 Y= - 4.60615E+9 - F= 0 N= 4.60615E+9 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_NULL_X_N.BAS b/bwbtest/NBS2X/F_NULL_X_N.BAS deleted file mode 100644 index 6b60a23..0000000 --- a/bwbtest/NBS2X/F_NULL_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:29 -REM FILENAME: F_NULL_X_N.BAS -REM SYNTAX: N = NULL( X ) -REM UNIQUEID: F_NULL_X_N -REM FUNCTION: NULL -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = NULL( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 0 , 1 -DATA 3 , 1 , 0 , -1 -DATA 4 , 0 , 0 , .4 -DATA 5 , 0 , 0 , -.4 -DATA 6 , 0 , 0 , .6 -DATA 7 , 1 , 0 , -.6 -DATA 8 , 0 , 0 , 254 -DATA 9 , 0 , 0 , 255 -DATA 10 , 1 , 0 , 256 -DATA 11 , 1 , 0 , 32000 -DATA 12 , 0 , 0 , -.227229 -DATA 13 , 0 , 0 , -.239157 -DATA 14 , 0 , 0 , -.213586 -DATA 15 , 0 , 0 , .274675 -DATA 16 , 0 , 0 , .169766 -DATA 17 , 0 , 0 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 -DATA 20 , 0 , 0 , -.277537 -DATA 21 , 0 , 0 , -.481303 -DATA 22 , 0 , 0 , .43556 -DATA 23 , 0 , 0 , -.210971 -DATA 24 , 0 , 0 , -.455216 -DATA 25 , 1 , 0 , -110.907 -DATA 26 , 0 , 0 , 105.632 -DATA 27 , 1 , 0 , -114.341 -DATA 28 , 0 , 0 , 109.706 -DATA 29 , 0 , 0 , 109.198 -DATA 30 , 0 , 0 , 85.8773 -DATA 31 , 1 , 0 , -58.3548 -DATA 32 , 0 , 0 , 29.6397 -DATA 33 , 1 , 0 , -108.36 -DATA 34 , 1 , 0 , -46.5199 -DATA 35 , 0 , 0 , 112.521 -DATA 36 , 0 , 0 , 45.4151 -DATA 37 , 0 , 0 , 101.129 -DATA 38 , 0 , 0 , 65.0473 -DATA 39 , 0 , 0 , 48.4012 -DATA 40 , 0 , 0 , 122.294 -DATA 41 , 1 , 0 , -56.1094 -DATA 42 , 1 , 0 , -121.087 -DATA 43 , 1 , 0 , -123.517 -DATA 44 , 1 , 0 , -97.6301 -DATA 45 , 1 , 0 , -64.0001 -DATA 46 , 1 , 0 , -25.6888 -DATA 47 , 0 , 0 , 14.8006 -DATA 48 , 1 , 0 , -61.0877 -DATA 49 , 1 , 0 , -66.6381 -DATA 50 , 1 , 0 , -5476.5 -DATA 51 , 1 , 0 , -21210.3 -DATA 52 , 1 , 0 , -28757.2 -DATA 53 , 1 , 0 , -28732.2 -DATA 54 , 1 , 0 , 12730.3 -DATA 55 , 1 , 0 , -1830.69 -DATA 56 , 1 , 0 , 5486.39 -DATA 57 , 1 , 0 , 22405.9 -DATA 58 , 1 , 0 , 30809.8 -DATA 59 , 1 , 0 , -28930.6 -DATA 60 , 1 , 0 , -6014.53 -DATA 61 , 1 , 0 , 17414.6 -DATA 62 , 1 , 0 , -10538.3 -DATA 63 , 1 , 0 , -17536.3 -DATA 64 , 1 , 0 , -8856.62 -DATA 65 , 1 , 0 , -5140.12 -DATA 66 , 1 , 0 , -8595.31 -DATA 67 , 1 , 0 , -3382.87 -DATA 68 , 1 , 0 , -5002.07 -DATA 69 , 1 , 0 , -5800.72 -DATA 70 , 1 , 0 , 29686.4 -DATA 71 , 1 , 0 , 2571. -DATA 72 , 1 , 0 , 31091. -DATA 73 , 1 , 0 , 14819. -DATA 74 , 1 , 0 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 1 , 0 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 1 , 0 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 1 , 0 , 3.3889E+9 -DATA 82 , 1 , 0 , 2.49826E+9 -DATA 83 , 1 , 0 , 2.3491E+9 -DATA 84 , 1 , 0 , 1.94745E+8 -DATA 85 , 1 , 0 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 1 , 0 , -2.10587E+9 -DATA 88 , 1 , 0 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 1 , 0 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 1 , 0 , 1.77556E+9 -DATA 93 , 1 , 0 , 2.87705E+8 -DATA 94 , 1 , 0 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 1 , 0 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 1 , 0 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_NULL_X_N.run b/bwbtest/NBS2X/F_NULL_X_N.run deleted file mode 100644 index fa23ff0..0000000 --- a/bwbtest/NBS2X/F_NULL_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 0 X= 1 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 X=-1 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 0 X= .4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 0 X= .6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 X=-.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 0 X= 254 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 0 X= 255 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 X= 256 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 X= 32000 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 0 X= .43556 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 0 X= 105.632 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 0 X= 109.706 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 0 X= 109.198 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 0 X= 85.8773 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 0 X= 29.6397 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 0 X= 112.521 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 0 X= 45.4151 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 0 X= 101.129 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 0 X= 65.0473 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 0 X= 48.4012 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 0 X= 122.294 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 X=-25.6888 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 0 X= 14.8006 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 X= 12730.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 0 X= 5486.39 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 X= 22405.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 X= 30809.8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 X= 17414.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 X= 29686.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 0 X= 2571 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 X= 31091 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 X= 14819 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 0 X= 3790.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 X= 1.94745E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 X= 2.02475E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 X= 1.77556E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 X= 2.87705E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 X= 1.99977E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_OCT_X_S.BAS b/bwbtest/NBS2X/F_OCT_X_S.BAS deleted file mode 100644 index 176757f..0000000 --- a/bwbtest/NBS2X/F_OCT_X_S.BAS +++ /dev/null @@ -1,159 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/23/2017 20:04:48 -REM FILENAME: F_OCT_X_S.BAS -REM SYNTAX: S$ = OCT$( X ) -REM UNIQUEID: F_OCT_X_S -REM FUNCTION: OCT$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = OCT$( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "0", 0 -DATA 2 , 0 , "1", 1 -DATA 3 , 0 , "37777777777", -1 -DATA 4 , 0 , "0", .4 -DATA 5 , 0 , "0", -.4 -DATA 6 , 0 , "1", .6 -DATA 7 , 0 , "37777777777", -.6 -DATA 8 , 0 , "376", 254 -DATA 9 , 0 , "377", 255 -DATA 10 , 0 , "400", 256 -DATA 11 , 0 , "76400", 32000 -DATA 12 , 0 , "0", -.227229 -DATA 13 , 0 , "0", -.239157 -DATA 14 , 0 , "0", -.213586 -DATA 15 , 0 , "0", .274675 -DATA 16 , 0 , "0", .169766 -DATA 17 , 0 , "0", .318766 -DATA 18 , 0 , "0", 2.06658E-2 -DATA 19 , 0 , "0", .188257 -DATA 20 , 0 , "0", -.277537 -DATA 21 , 0 , "0", -.481303 -DATA 22 , 0 , "0", .43556 -DATA 23 , 0 , "0", -.210971 -DATA 24 , 0 , "0", -.455216 -DATA 25 , 0 , "37777777621", -110.907 -DATA 26 , 0 , "152", 105.632 -DATA 27 , 0 , "37777777616", -114.341 -DATA 28 , 0 , "156", 109.706 -DATA 29 , 0 , "155", 109.198 -DATA 30 , 0 , "126", 85.8773 -DATA 31 , 0 , "37777777706", -58.3548 -DATA 32 , 0 , "36", 29.6397 -DATA 33 , 0 , "37777777624", -108.36 -DATA 34 , 0 , "37777777721", -46.5199 -DATA 35 , 0 , "161", 112.521 -DATA 36 , 0 , "55", 45.4151 -DATA 37 , 0 , "145", 101.129 -DATA 38 , 0 , "101", 65.0473 -DATA 39 , 0 , "60", 48.4012 -DATA 40 , 0 , "172", 122.294 -DATA 41 , 0 , "37777777710", -56.1094 -DATA 42 , 0 , "37777777607", -121.087 -DATA 43 , 0 , "37777777604", -123.517 -DATA 44 , 0 , "37777777636", -97.6301 -DATA 45 , 0 , "37777777700", -64.0001 -DATA 46 , 0 , "37777777746", -25.6888 -DATA 47 , 0 , "17", 14.8006 -DATA 48 , 0 , "37777777703", -61.0877 -DATA 49 , 0 , "37777777675", -66.6381 -DATA 50 , 0 , "37777765234", -5476.5 -DATA 51 , 0 , "37777726446", -21210.3 -DATA 52 , 0 , "37777707653", -28757.2 -DATA 53 , 0 , "37777707704", -28732.2 -DATA 54 , 0 , "30672", 12730.3 -DATA 55 , 0 , "37777774331", -1830.69 -DATA 56 , 0 , "12556", 5486.39 -DATA 57 , 0 , "53606", 22405.9 -DATA 58 , 0 , "74132", 30809.8 -DATA 59 , 0 , "37777707375", -28930.6 -DATA 60 , 0 , "37777764201", -6014.53 -DATA 61 , 0 , "42007", 17414.6 -DATA 62 , 0 , "37777753326", -10538.3 -DATA 63 , 0 , "37777735600", -17536.3 -DATA 64 , 0 , "37777756547", -8856.62 -DATA 65 , 0 , "37777765754", -5140.12 -DATA 66 , 0 , "37777757155", -8595.31 -DATA 67 , 0 , "37777771311", -3382.87 -DATA 68 , 0 , "37777766166", -5002.07 -DATA 69 , 0 , "37777764527", -5800.72 -DATA 70 , 0 , "71766", 29686.4 -DATA 71 , 0 , "5013", 2571. -DATA 72 , 0 , "74563", 31091. -DATA 73 , 0 , "34743", 14819. -DATA 74 , 0 , "7317", 3790.9 -DATA 75 , 1 , "", -4.2981E+9 -DATA 76 , 0 , "32574722070", -7.05453E+8 -DATA 77 , 1 , "", -3.10179E+9 -DATA 78 , 1 , "", -4.86159E+9 -DATA 79 , 0 , "31444210640", -8.62908E+8 -DATA 80 , 1 , "", -3.4101E+9 -DATA 81 , 1 , "", 3.3889E+9 -DATA 82 , 1 , "", 2.49826E+9 -DATA 83 , 1 , "", 2.3491E+9 -DATA 84 , 0 , "1346711250", 1.94745E+8 -DATA 85 , 0 , "17053635660", 2.02475E+9 -DATA 86 , 1 , "", -2.26748E+9 -DATA 87 , 0 , "20236574520", -2.10587E+9 -DATA 88 , 1 , "", 4.23585E+9 -DATA 89 , 1 , "", -2.66524E+9 -DATA 90 , 1 , "", 4.01052E+9 -DATA 91 , 1 , "", -4.87912E+9 -DATA 92 , 0 , "15165162500", 1.77556E+9 -DATA 93 , 0 , "2111403650", 2.87705E+8 -DATA 94 , 0 , "1372664050", 1.99977E+8 -DATA 95 , 1 , "", -3.39941E+9 -DATA 96 , 1 , "", -3.49119E+9 -DATA 97 , 1 , "", -2.86324E+9 -DATA 98 , 1 , "", 4.20418E+9 -DATA 99 , 1 , "", -3.1518E+9 -DATA 100 , 1 , "", 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_OCT_X_S.run b/bwbtest/NBS2X/F_OCT_X_S.run deleted file mode 100644 index 716686c..0000000 --- a/bwbtest/NBS2X/F_OCT_X_S.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R$=[0] X= 0 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[1] X= 1 - F= 0 S$=[1] -*** TEST PASSED *** -TESTCASE # 3 E= 0 R$=[37777777777] X=-1 - F= 0 S$=[37777777777] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[0] X= .4 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[0] X=-.4 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[1] X= .6 - F= 0 S$=[1] -*** TEST PASSED *** -TESTCASE # 7 E= 0 R$=[37777777777] X=-.6 - F= 0 S$=[37777777777] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[376] X= 254 - F= 0 S$=[376] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[377] X= 255 - F= 0 S$=[377] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[400] X= 256 - F= 0 S$=[400] -*** TEST PASSED *** -TESTCASE # 11 E= 0 R$=[76400] X= 32000 - F= 0 S$=[76400] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[0] X=-.227229 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[0] X=-.239157 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[0] X=-.213586 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[0] X= .274675 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[0] X= .169766 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[0] X= .318766 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[0] X= 2.06658E-2 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[0] X= .188257 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[0] X=-.277537 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[0] X=-.481303 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[0] X= .43556 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[0] X=-.210971 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[0] X=-.455216 - F= 0 S$=[0] -*** TEST PASSED *** -TESTCASE # 25 E= 0 R$=[37777777621] X=-110.907 - F= 0 S$=[37777777621] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[152] X= 105.632 - F= 0 S$=[152] -*** TEST PASSED *** -TESTCASE # 27 E= 0 R$=[37777777616] X=-114.341 - F= 0 S$=[37777777616] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[156] X= 109.706 - F= 0 S$=[156] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[155] X= 109.198 - F= 0 S$=[155] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[126] X= 85.8773 - F= 0 S$=[126] -*** TEST PASSED *** -TESTCASE # 31 E= 0 R$=[37777777706] X=-58.3548 - F= 0 S$=[37777777706] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[36] X= 29.6397 - F= 0 S$=[36] -*** TEST PASSED *** -TESTCASE # 33 E= 0 R$=[37777777624] X=-108.36 - F= 0 S$=[37777777624] -*** TEST PASSED *** -TESTCASE # 34 E= 0 R$=[37777777721] X=-46.5199 - F= 0 S$=[37777777721] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[161] X= 112.521 - F= 0 S$=[161] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[55] X= 45.4151 - F= 0 S$=[55] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[145] X= 101.129 - F= 0 S$=[145] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[101] X= 65.0473 - F= 0 S$=[101] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[60] X= 48.4012 - F= 0 S$=[60] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[172] X= 122.294 - F= 0 S$=[172] -*** TEST PASSED *** -TESTCASE # 41 E= 0 R$=[37777777710] X=-56.1094 - F= 0 S$=[37777777710] -*** TEST PASSED *** -TESTCASE # 42 E= 0 R$=[37777777607] X=-121.087 - F= 0 S$=[37777777607] -*** TEST PASSED *** -TESTCASE # 43 E= 0 R$=[37777777604] X=-123.517 - F= 0 S$=[37777777604] -*** TEST PASSED *** -TESTCASE # 44 E= 0 R$=[37777777636] X=-97.6301 - F= 0 S$=[37777777636] -*** TEST PASSED *** -TESTCASE # 45 E= 0 R$=[37777777700] X=-64.0001 - F= 0 S$=[37777777700] -*** TEST PASSED *** -TESTCASE # 46 E= 0 R$=[37777777746] X=-25.6888 - F= 0 S$=[37777777746] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[17] X= 14.8006 - F= 0 S$=[17] -*** TEST PASSED *** -TESTCASE # 48 E= 0 R$=[37777777703] X=-61.0877 - F= 0 S$=[37777777703] -*** TEST PASSED *** -TESTCASE # 49 E= 0 R$=[37777777675] X=-66.6381 - F= 0 S$=[37777777675] -*** TEST PASSED *** -TESTCASE # 50 E= 0 R$=[37777765234] X=-5476.5 - F= 0 S$=[37777765234] -*** TEST PASSED *** -TESTCASE # 51 E= 0 R$=[37777726446] X=-21210.3 - F= 0 S$=[37777726446] -*** TEST PASSED *** -TESTCASE # 52 E= 0 R$=[37777707653] X=-28757.2 - F= 0 S$=[37777707653] -*** TEST PASSED *** -TESTCASE # 53 E= 0 R$=[37777707704] X=-28732.2 - F= 0 S$=[37777707704] -*** TEST PASSED *** -TESTCASE # 54 E= 0 R$=[30672] X= 12730.3 - F= 0 S$=[30672] -*** TEST PASSED *** -TESTCASE # 55 E= 0 R$=[37777774331] X=-1830.69 - F= 0 S$=[37777774331] -*** TEST PASSED *** -TESTCASE # 56 E= 0 R$=[12556] X= 5486.39 - F= 0 S$=[12556] -*** TEST PASSED *** -TESTCASE # 57 E= 0 R$=[53606] X= 22405.9 - F= 0 S$=[53606] -*** TEST PASSED *** -TESTCASE # 58 E= 0 R$=[74132] X= 30809.8 - F= 0 S$=[74132] -*** TEST PASSED *** -TESTCASE # 59 E= 0 R$=[37777707375] X=-28930.6 - F= 0 S$=[37777707375] -*** TEST PASSED *** -TESTCASE # 60 E= 0 R$=[37777764201] X=-6014.53 - F= 0 S$=[37777764201] -*** TEST PASSED *** -TESTCASE # 61 E= 0 R$=[42007] X= 17414.6 - F= 0 S$=[42007] -*** TEST PASSED *** -TESTCASE # 62 E= 0 R$=[37777753326] X=-10538.3 - F= 0 S$=[37777753326] -*** TEST PASSED *** -TESTCASE # 63 E= 0 R$=[37777735600] X=-17536.3 - F= 0 S$=[37777735600] -*** TEST PASSED *** -TESTCASE # 64 E= 0 R$=[37777756547] X=-8856.62 - F= 0 S$=[37777756547] -*** TEST PASSED *** -TESTCASE # 65 E= 0 R$=[37777765754] X=-5140.12 - F= 0 S$=[37777765754] -*** TEST PASSED *** -TESTCASE # 66 E= 0 R$=[37777757155] X=-8595.31 - F= 0 S$=[37777757155] -*** TEST PASSED *** -TESTCASE # 67 E= 0 R$=[37777771311] X=-3382.87 - F= 0 S$=[37777771311] -*** TEST PASSED *** -TESTCASE # 68 E= 0 R$=[37777766166] X=-5002.07 - F= 0 S$=[37777766166] -*** TEST PASSED *** -TESTCASE # 69 E= 0 R$=[37777764527] X=-5800.72 - F= 0 S$=[37777764527] -*** TEST PASSED *** -TESTCASE # 70 E= 0 R$=[71766] X= 29686.4 - F= 0 S$=[71766] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[5013] X= 2571 - F= 0 S$=[5013] -*** TEST PASSED *** -TESTCASE # 72 E= 0 R$=[74563] X= 31091 - F= 0 S$=[74563] -*** TEST PASSED *** -TESTCASE # 73 E= 0 R$=[34743] X= 14819 - F= 0 S$=[34743] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[7317] X= 3790.9 - F= 0 S$=[7317] -*** TEST PASSED *** -TESTCASE # 75 E= 1 R$=[] X=-4.2981E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 76 E= 0 R$=[32574722070] X=-7.05453E+8 - F= 0 S$=[32574722070] -*** TEST PASSED *** -TESTCASE # 77 E= 1 R$=[] X=-3.10179E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 78 E= 1 R$=[] X=-4.86159E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 79 E= 0 R$=[31444210640] X=-8.62908E+8 - F= 0 S$=[31444210640] -*** TEST PASSED *** -TESTCASE # 80 E= 1 R$=[] X=-3.4101E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 81 E= 1 R$=[] X= 3.3889E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 1 R$=[] X= 2.49826E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 83 E= 1 R$=[] X= 2.3491E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 84 E= 0 R$=[1346711250] X= 1.94745E+8 - F= 0 S$=[1346711250] -*** TEST PASSED *** -TESTCASE # 85 E= 0 R$=[17053635660] X= 2.02475E+9 - F= 0 S$=[17053635660] -*** TEST PASSED *** -TESTCASE # 86 E= 1 R$=[] X=-2.26748E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 87 E= 0 R$=[20236574520] X=-2.10587E+9 - F= 0 S$=[20236574520] -*** TEST PASSED *** -TESTCASE # 88 E= 1 R$=[] X= 4.23585E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 89 E= 1 R$=[] X=-2.66524E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 90 E= 1 R$=[] X= 4.01052E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 91 E= 1 R$=[] X=-4.87912E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 92 E= 0 R$=[15165162500] X= 1.77556E+9 - F= 0 S$=[15165162500] -*** TEST PASSED *** -TESTCASE # 93 E= 0 R$=[2111403650] X= 2.87705E+8 - F= 0 S$=[2111403650] -*** TEST PASSED *** -TESTCASE # 94 E= 0 R$=[1372664050] X= 1.99977E+8 - F= 0 S$=[1372664050] -*** TEST PASSED *** -TESTCASE # 95 E= 1 R$=[] X=-3.39941E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 96 E= 1 R$=[] X=-3.49119E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 97 E= 1 R$=[] X=-2.86324E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 98 E= 1 R$=[] X= 4.20418E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 99 E= 1 R$=[] X=-3.1518E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 100 E= 1 R$=[] X= 4.60615E+9 - F= 1 S$=[] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_ORD_A_N.BAS b/bwbtest/NBS2X/F_ORD_A_N.BAS deleted file mode 100644 index e089a5c..0000000 --- a/bwbtest/NBS2X/F_ORD_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:29 -REM FILENAME: F_ORD_A_N.BAS -REM SYNTAX: N = ORD( A$ ) -REM UNIQUEID: F_ORD_A_N -REM FUNCTION: ORD -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = ORD( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , "" -DATA 2 , 0 , 32 , " " -DATA 3 , 0 , 51 , "3" -DATA 4 , 0 , 122 , "z" -DATA 5 , 1 , 0 , " " -DATA 6 , 1 , 0 , " 3" -DATA 7 , 1 , 0 , " z" -DATA 8 , 1 , 0 , "3 " -DATA 9 , 1 , 0 , "z " -DATA 10 , 1 , 0 , " 3 " -DATA 11 , 1 , 0 , " z " -DATA 12 , 1 , 0 , " LLLL" -DATA 13 , 1 , 0 , " '' " -DATA 14 , 1 , 0 , " oo " -DATA 15 , 1 , 0 , " 00 " -DATA 16 , 1 , 0 , " \\\\ " -DATA 17 , 1 , 0 , " lllll " -DATA 18 , 1 , 0 , " uuuu " -DATA 19 , 1 , 0 , " a " -DATA 20 , 1 , 0 , " " -DATA 21 , 1 , 0 , " hh " -DATA 22 , 1 , 0 , " h " -DATA 23 , 1 , 0 , " )" -DATA 24 , 1 , 0 , " 5 " -DATA 25 , 1 , 0 , " 2 " -DATA 26 , 1 , 0 , " - " -DATA 27 , 1 , 0 , "dd " -DATA 28 , 1 , 0 , " tttt " -DATA 29 , 1 , 0 , " :::: " -DATA 30 , 1 , 0 , " ___ " -DATA 31 , 1 , 0 , " " -DATA 32 , 1 , 0 , " " -DATA 33 , 1 , 0 , " _____ " -DATA 34 , 1 , 0 , " S " -DATA 35 , 1 , 0 , " FFFF " -DATA 36 , 1 , 0 , " kkk" -DATA 37 , 1 , 0 , " NNNN " -DATA 38 , 1 , 0 , " mmmm " -DATA 39 , 1 , 0 , " ,,,,, " -DATA 40 , 1 , 0 , "OO " -DATA 41 , 1 , 0 , " HHHH " -DATA 42 , 1 , 0 , " < " -DATA 43 , 1 , 0 , " j " -DATA 44 , 1 , 0 , " yyyy " -DATA 45 , 1 , 0 , " +++ " -DATA 46 , 1 , 0 , "o " -DATA 47 , 1 , 0 , " ((" -DATA 48 , 1 , 0 , " uu " -DATA 49 , 1 , 0 , " 00 " -DATA 50 , 1 , 0 , " HH " -DATA 51 , 1 , 0 , " " -DATA 52 , 1 , 0 , " G " -DATA 53 , 1 , 0 , " {{{{ " -DATA 54 , 1 , 0 , " ]]] " -DATA 55 , 1 , 0 , "CCC" -DATA 56 , 1 , 0 , " 44 " -DATA 57 , 1 , 0 , "^^ " -DATA 58 , 1 , 0 , " QQ " -DATA 59 , 1 , 0 , " FFFF " -DATA 60 , 1 , 0 , " n " -DATA 61 , 1 , 0 , " hh " -DATA 62 , 1 , 0 , "555 " -DATA 63 , 1 , 0 , " YYYY " -DATA 64 , 1 , 0 , " w " -DATA 65 , 1 , 0 , "MMMM " -DATA 66 , 1 , 0 , " JJJJ " -DATA 67 , 1 , 0 , " %% " -DATA 68 , 1 , 0 , " * " -DATA 69 , 1 , 0 , " @@@ " -DATA 70 , 1 , 0 , "I " -DATA 71 , 1 , 0 , " ss " -DATA 72 , 1 , 0 , " f " -DATA 73 , 1 , 0 , " D " -DATA 74 , 1 , 0 , "### " -DATA 75 , 1 , 0 , " ' " -DATA 76 , 1 , 0 , " dd " -DATA 77 , 1 , 0 , " TT " -DATA 78 , 1 , 0 , " vvv " -DATA 79 , 1 , 0 , " X " -DATA 80 , 1 , 0 , " % " -DATA 81 , 1 , 0 , " " -DATA 82 , 1 , 0 , " 5555 " -DATA 83 , 1 , 0 , "FFFF " -DATA 84 , 1 , 0 , " %% " -DATA 85 , 1 , 0 , " " -DATA 86 , 1 , 0 , " ~~~~ " -DATA 87 , 1 , 0 , " || " -DATA 88 , 1 , 0 , " SSS " -DATA 89 , 1 , 0 , " 6666 " -DATA 90 , 1 , 0 , " ww " -DATA 91 , 1 , 0 , " 1111 " -DATA 92 , 1 , 0 , " K " -DATA 93 , 1 , 0 , " ttttt " -DATA 94 , 1 , 0 , " OOOOO " -DATA 95 , 1 , 0 , " E " -DATA 96 , 1 , 0 , " PPPPP " -DATA 97 , 1 , 0 , " == " -DATA 98 , 1 , 0 , " VVVV " -DATA 99 , 1 , 0 , " c " -DATA 100 , 1 , 0 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_ORD_A_N.run b/bwbtest/NBS2X/F_ORD_A_N.run deleted file mode 100644 index dbbf8b3..0000000 --- a/bwbtest/NBS2X/F_ORD_A_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 A$=[] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 32 A$=[ ] - F= 0 N= 32 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 51 A$=[3] - F= 0 N= 51 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 122 A$=[z] - F= 0 N= 122 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 1 R= 0 A$=[ 3] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 A$=[ z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 A$=[3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 A$=[z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 A$=[ 3 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 A$=[ z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 1 R= 0 A$=[ LLLL] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 1 R= 0 A$=[ '' ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 1 R= 0 A$=[ oo ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 1 R= 0 A$=[ 00 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 1 R= 0 A$=[ \\\\ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 1 R= 0 A$=[ lllll ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 1 R= 0 A$=[ uuuu ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 1 R= 0 A$=[ a ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 1 R= 0 A$=[ hh ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 1 R= 0 A$=[ h ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 A$=[ )] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 1 R= 0 A$=[ 5 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 A$=[ 2 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 1 R= 0 A$=[ - ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 A$=[dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 1 R= 0 A$=[ tttt ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 1 R= 0 A$=[ :::: ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 1 R= 0 A$=[ ___ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 A$=[ _____ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 A$=[ S ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 1 R= 0 A$=[ FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 1 R= 0 A$=[ kkk] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 1 R= 0 A$=[ NNNN ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 1 R= 0 A$=[ mmmm ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 1 R= 0 A$=[ ,,,,, ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 1 R= 0 A$=[OO ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 A$=[ HHHH ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 A$=[ < ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 A$=[ j ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 A$=[ yyyy ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 A$=[ +++ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 A$=[o ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 1 R= 0 A$=[ ((] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 A$=[ uu ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 A$=[ 00 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 A$=[ HH ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 A$=[ G ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 A$=[ {{{{ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 A$=[ ]]] ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 A$=[CCC] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 0 A$=[ 44 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 A$=[^^ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 A$=[ QQ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 A$=[ FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 A$=[ n ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 A$=[ hh ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 A$=[555 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 A$=[ YYYY ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 A$=[ w ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 A$=[MMMM ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 A$=[ JJJJ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 A$=[ %% ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 A$=[ * ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 A$=[ @@@ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 A$=[I ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 0 A$=[ ss ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 A$=[ f ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 A$=[ D ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 0 A$=[### ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 A$=[ ' ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 A$=[ dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 A$=[ TT ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 A$=[ vvv ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 A$=[ X ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 A$=[ % ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 A$=[ 5555 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 A$=[FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 A$=[ %% ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 A$=[ ~~~~ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 A$=[ || ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 A$=[ SSS ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 A$=[ 6666 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 A$=[ ww ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 A$=[ 1111 ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 A$=[ K ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 A$=[ ttttt ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 A$=[ OOOOO ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 A$=[ E ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 A$=[ PPPPP ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 A$=[ == ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 A$=[ VVVV ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 A$=[ c ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 A$=[ yyyy ] - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_POS_A_B_N.run b/bwbtest/NBS2X/F_POS_A_B_N.run deleted file mode 100644 index 79b6350..0000000 --- a/bwbtest/NBS2X/F_POS_A_B_N.run +++ /dev/null @@ -1,319 +0,0 @@ -TESTCASE # 1 E= 0 R= 1 A$=[] B$=[] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 1 A$=[3] B$=[3] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 1 A$=[z] B$=[z] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1 A$=[ 3] B$=[ 3] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 1 A$=[ z] B$=[ z] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 1 A$=[3 ] B$=[3 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 1 A$=[z ] B$=[z ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 1 A$=[ 3 ] B$=[ 3 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 1 A$=[ z ] B$=[ z ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 1 A$=[ LLLL] B$=[ LLLL] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 1 A$=[ '' ] B$=[ - '' ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 1 A$=[ oo ] B$=[ - oo ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 1 A$=[ 00 ] B$=[ 00 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1 A$=[ \\\\ ] B$=[ \\\\ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1 A$=[ lllll ] B$=[ lllll ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 1 A$=[ uuuu ] B$=[ - uuuu ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 1 A$=[ a ] B$=[ a ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 1 A$=[ hh ] B$=[ hh ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 1 A$=[ h ] B$=[ h ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 1 A$=[ )] B$=[ )] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 1 A$=[ 5 ] B$=[ 5 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 1 A$=[ 2 ] B$=[ 2 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 1 A$=[ - ] B$=[ - ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 1 A$=[dd ] B$=[dd ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 1 A$=[ tttt ] B$=[ tttt ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 1 A$=[ :::: ] B$=[ :::: ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1 A$=[ ___ ] B$=[ ___ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 1 A$=[ _____ ] B$=[ _____ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 1 A$=[ S ] B$=[ S ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 1 A$=[ FFFF ] B$=[ FFFF ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 1 A$=[ kkk] B$=[ kkk] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1 A$=[ NNNN ] B$=[ - NNNN ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1 A$=[ mmmm ] B$=[ mmmm ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 1 A$=[ ,,,,, ] B$=[ - ,,,,, ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 1 A$=[OO ] B$=[OO ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 1 A$=[ HHHH ] B$=[ HHHH ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 1 A$=[ < ] B$=[ < ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 1 A$=[ j ] B$=[ j ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 1 A$=[ yyyy ] B$=[ - yyyy ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 1 A$=[ +++ ] B$=[ +++ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 1 A$=[o ] B$=[o ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 1 A$=[ ((] B$=[ ((] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 1 A$=[ uu ] B$=[ - uu ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 1 A$=[ 00 ] B$=[ - 00 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 1 A$=[ HH ] B$=[ HH ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 1 A$=[ G ] B$=[ G ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 1 A$=[ {{{{ ] B$=[ {{{{ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 1 A$=[ ]]] ] B$=[ - ]]] ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 1 A$=[CCC] B$=[CCC] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 1 A$=[ 44 ] B$=[ 44 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 1 A$=[^^ ] B$=[^^ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 1 A$=[ QQ ] B$=[ - QQ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 1 A$=[ FFFF ] B$=[ - FFFF ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 1 A$=[ n ] B$=[ n ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 1 A$=[ hh ] B$=[ hh ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 1 A$=[555 ] B$=[555 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 1 A$=[ YYYY ] B$=[ YYYY ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 1 A$=[ w ] B$=[ - w ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 1 A$=[MMMM ] B$=[MMMM ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 1 A$=[ JJJJ ] B$=[ JJJJ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 1 A$=[ %% ] B$=[ - %% ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 1 A$=[ * ] B$=[ * ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 1 A$=[ @@@ ] B$=[ - @@@ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 1 A$=[I ] B$=[I ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 1 A$=[ ss ] B$=[ ss ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 1 A$=[ f ] B$=[ f ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 1 A$=[ D ] B$=[ D ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 1 A$=[### ] B$=[### ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 1 A$=[ ' ] B$=[ - ' ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 1 A$=[ dd ] B$=[ dd ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 1 A$=[ TT ] B$=[ TT ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 1 A$=[ vvv ] B$=[ vvv ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 1 A$=[ X ] B$=[ X ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 1 A$=[ % ] B$=[ % ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 1 A$=[ 5555 ] B$=[ 5555 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 1 A$=[FFFF ] B$=[FFFF ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1 A$=[ %% ] B$=[ %% ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 1 A$=[ ] B$=[ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 1 A$=[ ~~~~ ] B$=[ - ~~~~ ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 1 A$=[ || ] B$=[ || ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 1 A$=[ SSS ] B$=[ - SSS ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 1 A$=[ 6666 ] B$=[ 6666 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 1 A$=[ ww ] B$=[ ww ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 1 A$=[ 1111 ] B$=[ 1111 ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1 A$=[ K ] B$=[ K ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 1 A$=[ ttttt ] B$=[ ttttt ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1 A$=[ OOOOO ] B$=[ OOOOO ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 1 A$=[ E ] B$=[ E ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 1 A$=[ PPPPP ] B$=[ PPPPP ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 1 A$=[ == ] B$=[ == ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 1 A$=[ VVVV ] B$=[ VVVV ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 1 A$=[ c ] B$=[ c ] - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 1 A$=[ yyyy ] -B$=[ yyyy ] - F= 0 N= 1 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_POS_A_B_X_N.run b/bwbtest/NBS2X/F_POS_A_B_X_N.run deleted file mode 100644 index 84a7251..0000000 --- a/bwbtest/NBS2X/F_POS_A_B_X_N.run +++ /dev/null @@ -1,398 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 A$=[] B$=[] X= 0 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 A$=[ ] B$=[ ] X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 A$=[3] B$=[3] X=-1 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 1 R= 0 A$=[z] B$=[z] X= .4 - - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 A$=[ ] B$=[ ] X=-.4 - - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1 A$=[ 3] B$=[ 3] X= .6 - - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 A$=[ z] B$=[ z] X=-.6 - - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 0 A$=[3 ] B$=[3 ] X= - 254 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 0 A$=[z ] B$=[z ] X= - 255 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 0 A$=[ 3 ] B$=[ 3 ] X= - 256 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 A$=[ z ] B$=[ z ] X= - 32000 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 1 R= 0 A$=[ LLLL] B$=[ LLLL] X= --.227229 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 1 R= 0 A$=[ '' ] B$=[ - '' ] X=-.239157 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 1 R= 0 A$=[ oo ] B$=[ - oo ] X=-.213586 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 1 R= 0 A$=[ 00 ] B$=[ 00 ] X= - .274675 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 1 R= 0 A$=[ \\\\ ] B$=[ \\\\ ] X= - .169766 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 1 R= 0 A$=[ lllll ] B$=[ lllll ] X= - .318766 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 1 R= 0 A$=[ uuuu ] B$=[ - uuuu ] X= 2.06658E-2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 1 R= 0 A$=[ a ] B$=[ a ] X= - .188257 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 1 R= 0 A$=[ ] B$=[ ] X= --.277537 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 1 R= 0 A$=[ hh ] B$=[ hh ] X= --.481303 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 1 R= 0 A$=[ h ] B$=[ h ] X= - .43556 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 A$=[ )] B$=[ )] X= --.210971 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 1 R= 0 A$=[ 5 ] B$=[ 5 ] X= --.455216 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 A$=[ 2 ] B$=[ 2 ] X= --110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 0 A$=[ - ] B$=[ - ] X= - 105.632 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 A$=[dd ] B$=[dd ] X= --114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 0 A$=[ tttt ] B$=[ tttt ] X= - 109.706 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 0 A$=[ :::: ] B$=[ :::: ] X= - 109.198 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 0 A$=[ ___ ] B$=[ ___ ] X= - 85.8773 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 A$=[ ] B$=[ ] X= --58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 0 A$=[ ] B$=[ ] X= - 29.6397 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 A$=[ _____ ] B$=[ _____ ] X= --108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 A$=[ S ] B$=[ S ] X= --46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 0 A$=[ FFFF ] B$=[ FFFF ] X= - 112.521 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 0 A$=[ kkk] B$=[ kkk] X= - 45.4151 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 0 A$=[ NNNN ] B$=[ - NNNN ] X= 101.129 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 0 A$=[ mmmm ] B$=[ mmmm ] X= - 65.0473 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 0 A$=[ ,,,,, ] B$=[ - ,,,,, ] X= 48.4012 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 0 A$=[OO ] B$=[OO ] X= - 122.294 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 A$=[ HHHH ] B$=[ HHHH ] X= --56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 A$=[ < ] B$=[ < ] X= --121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 A$=[ j ] B$=[ j ] X= --123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 A$=[ yyyy ] B$=[ - yyyy ] X=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 A$=[ +++ ] B$=[ +++ ] X= --64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 A$=[o ] B$=[o ] X= --25.6888 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 0 A$=[ ((] B$=[ ((] X= - 14.8006 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 A$=[ uu ] B$=[ - uu ] X=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 A$=[ 00 ] B$=[ - 00 ] X=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 A$=[ HH ] B$=[ HH ] X= --5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 A$=[ ] B$=[ ] X= --21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 A$=[ G ] B$=[ G ] X= --28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 A$=[ {{{{ ] B$=[ {{{{ ] X= --28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 A$=[ ]]] ] B$=[ - ]]] ] X= 12730.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 A$=[CCC] B$=[CCC] X= --1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 0 A$=[ 44 ] B$=[ 44 ] X= - 5486.39 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 A$=[^^ ] B$=[^^ ] X= - 22405.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 A$=[ QQ ] B$=[ - QQ ] X= 30809.8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 A$=[ FFFF ] B$=[ - FFFF ] X=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 A$=[ n ] B$=[ n ] X= --6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 A$=[ hh ] B$=[ hh ] X= - 17414.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 A$=[555 ] B$=[555 ] X= --10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 A$=[ YYYY ] B$=[ YYYY ] X= --17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 A$=[ w ] B$=[ - w ] X=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 A$=[MMMM ] B$=[MMMM ] X= --5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 A$=[ JJJJ ] B$=[ JJJJ ] X= --8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 A$=[ %% ] B$=[ - %% ] X=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 A$=[ * ] B$=[ * ] X= --5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 A$=[ @@@ ] B$=[ - @@@ ] X=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 A$=[I ] B$=[I ] X= - 29686.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 0 A$=[ ss ] B$=[ ss ] X= - 2571 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 A$=[ f ] B$=[ f ] X= - 31091 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 A$=[ D ] B$=[ D ] X= - 14819 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 0 A$=[### ] B$=[### ] X= - 3790.9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 A$=[ ' ] B$=[ - ' ] X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 A$=[ dd ] B$=[ dd ] X= --7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 A$=[ TT ] B$=[ TT ] X= --3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 A$=[ vvv ] B$=[ vvv ] X= --4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 A$=[ X ] B$=[ X ] X= --8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 A$=[ % ] B$=[ % ] X= --3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 A$=[ ] B$=[ ] X= - 3.3889E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 A$=[ 5555 ] B$=[ 5555 ] X= - 2.49826E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 A$=[FFFF ] B$=[FFFF ] X= - 2.3491E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 A$=[ %% ] B$=[ %% ] X= - 1.94745E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 A$=[ ] B$=[ ] X= - 2.02475E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 A$=[ ~~~~ ] B$=[ - ~~~~ ] X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 A$=[ || ] B$=[ || ] X= --2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 A$=[ SSS ] B$=[ - SSS ] X= 4.23585E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 A$=[ 6666 ] B$=[ 6666 ] X= --2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 A$=[ ww ] B$=[ ww ] X= - 4.01052E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 A$=[ 1111 ] B$=[ 1111 ] X= --4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 A$=[ K ] B$=[ K ] X= - 1.77556E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 A$=[ ttttt ] B$=[ ttttt ] X= - 2.87705E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 A$=[ OOOOO ] B$=[ OOOOO ] X= - 1.99977E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 A$=[ E ] B$=[ E ] X= --3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 A$=[ PPPPP ] B$=[ PPPPP ] X= --3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 A$=[ == ] B$=[ == ] X= --2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 A$=[ VVVV ] B$=[ VVVV ] X= - 4.20418E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 A$=[ c ] B$=[ c ] X= --3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 A$=[ yyyy ] -B$=[ yyyy ] X= 4.60615E+9 - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_RAD_X_N.BAS b/bwbtest/NBS2X/F_RAD_X_N.BAS deleted file mode 100644 index b312eba..0000000 --- a/bwbtest/NBS2X/F_RAD_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:30 -REM FILENAME: F_RAD_X_N.BAS -REM SYNTAX: N = RAD( X ) -REM UNIQUEID: F_RAD_X_N -REM FUNCTION: RAD -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = RAD( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1.74533E-2 , 1 -DATA 3 , 0 , -1.74533E-2 , -1 -DATA 4 , 0 , 6.98132E-3 , .4 -DATA 5 , 0 , -6.98132E-3 , -.4 -DATA 6 , 0 , .010472 , .6 -DATA 7 , 0 , -.010472 , -.6 -DATA 8 , 0 , 4.43314 , 254 -DATA 9 , 0 , 4.45059 , 255 -DATA 10 , 0 , 4.46804 , 256 -DATA 11 , 0 , 558.505 , 32000 -DATA 12 , 0 , -3.96589E-3 , -.227229 -DATA 13 , 0 , -4.17408E-3 , -.239157 -DATA 14 , 0 , -3.72778E-3 , -.213586 -DATA 15 , 0 , 4.79398E-3 , .274675 -DATA 16 , 0 , 2.96298E-3 , .169766 -DATA 17 , 0 , 5.56352E-3 , .318766 -DATA 18 , 0 , 3.60686E-4 , 2.06658E-2 -DATA 19 , 0 , 3.2857E-3 , .188257 -DATA 20 , 0 , -4.84393E-3 , -.277537 -DATA 21 , 0 , -8.40032E-3 , -.481303 -DATA 22 , 0 , 7.60196E-3 , .43556 -DATA 23 , 0 , -3.68214E-3 , -.210971 -DATA 24 , 0 , -7.94502E-3 , -.455216 -DATA 25 , 0 , -1.93569 , -110.907 -DATA 26 , 0 , 1.84363 , 105.632 -DATA 27 , 0 , -1.99563 , -114.341 -DATA 28 , 0 , 1.91473 , 109.706 -DATA 29 , 0 , 1.90586 , 109.198 -DATA 30 , 0 , 1.49884 , 85.8773 -DATA 31 , 0 , -1.01848 , -58.3548 -DATA 32 , 0 , .51731 , 29.6397 -DATA 33 , 0 , -1.89124 , -108.36 -DATA 34 , 0 , -.811925 , -46.5199 -DATA 35 , 0 , 1.96386 , 112.521 -DATA 36 , 0 , .792643 , 45.4151 -DATA 37 , 0 , 1.76503 , 101.129 -DATA 38 , 0 , 1.13529 , 65.0473 -DATA 39 , 0 , .84476 , 48.4012 -DATA 40 , 0 , 2.13443 , 122.294 -DATA 41 , 0 , -.979294 , -56.1094 -DATA 42 , 0 , -2.11337 , -121.087 -DATA 43 , 0 , -2.15578 , -123.517 -DATA 44 , 0 , -1.70397 , -97.6301 -DATA 45 , 0 , -1.11701 , -64.0001 -DATA 46 , 0 , -.448354 , -25.6888 -DATA 47 , 0 , .258319 , 14.8006 -DATA 48 , 0 , -1.06618 , -61.0877 -DATA 49 , 0 , -1.16305 , -66.6381 -DATA 50 , 0 , -95.583 , -5476.5 -DATA 51 , 0 , -370.19 , -21210.3 -DATA 52 , 0 , -501.908 , -28757.2 -DATA 53 , 0 , -501.471 , -28732.2 -DATA 54 , 0 , 222.186 , 12730.3 -DATA 55 , 0 , -31.9516 , -1830.69 -DATA 56 , 0 , 95.7556 , 5486.39 -DATA 57 , 0 , 391.057 , 22405.9 -DATA 58 , 0 , 537.732 , 30809.8 -DATA 59 , 0 , -504.934 , -28930.6 -DATA 60 , 0 , -104.973 , -6014.53 -DATA 61 , 0 , 303.942 , 17414.6 -DATA 62 , 0 , -183.928 , -10538.3 -DATA 63 , 0 , -306.066 , -17536.3 -DATA 64 , 0 , -154.577 , -8856.62 -DATA 65 , 0 , -89.712 , -5140.12 -DATA 66 , 0 , -150.016 , -8595.31 -DATA 67 , 0 , -59.0422 , -3382.87 -DATA 68 , 0 , -87.3026 , -5002.07 -DATA 69 , 0 , -101.242 , -5800.72 -DATA 70 , 0 , 518.125 , 29686.4 -DATA 71 , 0 , 44.8724 , 2571. -DATA 72 , 0 , 542.64 , 31091. -DATA 73 , 0 , 258.64 , 14819. -DATA 74 , 0 , 66.1637 , 3790.9 -DATA 75 , 0 , -7.5016E+7 , -4.2981E+9 -DATA 76 , 0 , -1.23125E+7 , -7.05453E+8 -DATA 77 , 0 , -5.41364E+7 , -3.10179E+9 -DATA 78 , 0 , -8.48508E+7 , -4.86159E+9 -DATA 79 , 0 , -1.50606E+7 , -8.62908E+8 -DATA 80 , 0 , -5.95175E+7 , -3.4101E+9 -DATA 81 , 0 , 5.91475E+7 , 3.3889E+9 -DATA 82 , 0 , 4.36029E+7 , 2.49826E+9 -DATA 83 , 0 , 4.09995E+7 , 2.3491E+9 -DATA 84 , 0 , 3.39894E+6 , 1.94745E+8 -DATA 85 , 0 , 3.53386E+7 , 2.02475E+9 -DATA 86 , 0 , -3.9575E+7 , -2.26748E+9 -DATA 87 , 0 , -3.67544E+7 , -2.10587E+9 -DATA 88 , 0 , 7.39295E+7 , 4.23585E+9 -DATA 89 , 0 , -4.65172E+7 , -2.66524E+9 -DATA 90 , 0 , 6.99968E+7 , 4.01052E+9 -DATA 91 , 0 , -8.51567E+7 , -4.87912E+9 -DATA 92 , 0 , 3.09894E+7 , 1.77556E+9 -DATA 93 , 0 , 5.0214E+6 , 2.87705E+8 -DATA 94 , 0 , 3.49026E+6 , 1.99977E+8 -DATA 95 , 0 , -5.93309E+7 , -3.39941E+9 -DATA 96 , 0 , -6.09328E+7 , -3.49119E+9 -DATA 97 , 0 , -4.9973E+7 , -2.86324E+9 -DATA 98 , 0 , 7.33768E+7 , 4.20418E+9 -DATA 99 , 0 , -5.50093E+7 , -3.1518E+9 -DATA 100 , 0 , 8.03925E+7 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_RAD_X_N.run b/bwbtest/NBS2X/F_RAD_X_N.run deleted file mode 100644 index ce5ea97..0000000 --- a/bwbtest/NBS2X/F_RAD_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1.74533E-2 X= 1 - F= 0 N= 1.74533E-2 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1.74533E-2 X=-1 - F= 0 N=-1.74533E-2 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 6.98132E-3 X= .4 - F= 0 N= 6.98132E-3 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-6.98132E-3 X=-.4 - F= 0 N=-6.98132E-3 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .010472 X= .6 - F= 0 N= .010472 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.010472 X=-.6 - F= 0 N=-.010472 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 4.43314 X= 254 - F= 0 N= 4.43314 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 4.45059 X= 255 - F= 0 N= 4.45059 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 4.46804 X= 256 - F= 0 N= 4.46804 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 558.505 X= 32000 - F= 0 N= 558.505 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-3.96589E-3 X=-.227229 - F= 0 N=-3.96589E-3 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-4.17408E-3 X=-.239157 - F= 0 N=-4.17408E-3 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-3.72778E-3 X=-.213586 - F= 0 N=-3.72778E-3 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 4.79398E-3 X= .274675 - F= 0 N= 4.79398E-3 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 2.96298E-3 X= .169766 - F= 0 N= 2.96298E-3 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 5.56352E-3 X= .318766 - F= 0 N= 5.56352E-3 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 3.60686E-4 X= 2.06658E-2 - F= 0 N= 3.60686E-4 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 3.2857E-3 X= .188257 - F= 0 N= 3.2857E-3 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-4.84393E-3 X=-.277537 - F= 0 N=-4.84393E-3 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-8.40032E-3 X=-.481303 - F= 0 N=-8.40032E-3 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 7.60196E-3 X= .43556 - F= 0 N= 7.60196E-3 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-3.68214E-3 X=-.210971 - F= 0 N=-3.68214E-3 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-7.94502E-3 X=-.455216 - F= 0 N=-7.94502E-3 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-1.93569 X=-110.907 - F= 0 N=-1.93569 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 1.84363 X= 105.632 - F= 0 N= 1.84363 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-1.99563 X=-114.341 - F= 0 N=-1.99563 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 1.91473 X= 109.706 - F= 0 N= 1.91473 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 1.90586 X= 109.198 - F= 0 N= 1.90586 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1.49884 X= 85.8773 - F= 0 N= 1.49884 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-1.01848 X=-58.3548 - F= 0 N=-1.01848 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= .51731 X= 29.6397 - F= 0 N= .51731 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-1.89124 X=-108.36 - F= 0 N=-1.89124 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-.811925 X=-46.5199 - F= 0 N=-.811925 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 1.96386 X= 112.521 - F= 0 N= 1.96386 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= .792643 X= 45.4151 - F= 0 N= .792643 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1.76503 X= 101.129 - F= 0 N= 1.76503 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1.13529 X= 65.0473 - F= 0 N= 1.13529 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= .84476 X= 48.4012 - F= 0 N= .84476 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 2.13443 X= 122.294 - F= 0 N= 2.13443 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-.979294 X=-56.1094 - F= 0 N=-.979294 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-2.11337 X=-121.087 - F= 0 N=-2.11337 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-2.15578 X=-123.517 - F= 0 N=-2.15578 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-1.70397 X=-97.6301 - F= 0 N=-1.70397 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-1.11701 X=-64.0001 - F= 0 N=-1.11701 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-.448354 X=-25.6888 - F= 0 N=-.448354 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= .258319 X= 14.8006 - F= 0 N= .258319 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-1.06618 X=-61.0877 - F= 0 N=-1.06618 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-1.16305 X=-66.6381 - F= 0 N=-1.16305 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-95.583 X=-5476.5 - F= 0 N=-95.583 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-370.19 X=-21210.3 - F= 0 N=-370.19 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-501.908 X=-28757.2 - F= 0 N=-501.908 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-501.471 X=-28732.2 - F= 0 N=-501.471 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 222.186 X= 12730.3 - F= 0 N= 222.186 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-31.9516 X=-1830.69 - F= 0 N=-31.9516 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 95.7556 X= 5486.39 - F= 0 N= 95.7556 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 391.057 X= 22405.9 - F= 0 N= 391.057 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 537.732 X= 30809.8 - F= 0 N= 537.732 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-504.934 X=-28930.6 - F= 0 N=-504.934 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-104.973 X=-6014.53 - F= 0 N=-104.973 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 303.942 X= 17414.6 - F= 0 N= 303.942 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-183.928 X=-10538.3 - F= 0 N=-183.928 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-306.066 X=-17536.3 - F= 0 N=-306.066 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-154.577 X=-8856.62 - F= 0 N=-154.577 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-89.712 X=-5140.12 - F= 0 N=-89.712 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-150.016 X=-8595.31 - F= 0 N=-150.016 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-59.0422 X=-3382.87 - F= 0 N=-59.0422 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-87.3026 X=-5002.07 - F= 0 N=-87.3026 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-101.242 X=-5800.72 - F= 0 N=-101.242 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 518.125 X= 29686.4 - F= 0 N= 518.125 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 44.8724 X= 2571 - F= 0 N= 44.8724 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 542.64 X= 31091 - F= 0 N= 542.64 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 258.64 X= 14819 - F= 0 N= 258.64 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 66.1637 X= 3790.9 - F= 0 N= 66.1637 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-7.5016E+7 X=-4.2981E+9 - F= 0 N=-7.5016E+7 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-1.23125E+7 X=-7.05453E+8 - F= 0 N=-1.23125E+7 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-5.41364E+7 X=-3.10179E+9 - F= 0 N=-5.41364E+7 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-8.48508E+7 X=-4.86159E+9 - F= 0 N=-8.48508E+7 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-1.50606E+7 X=-8.62908E+8 - F= 0 N=-1.50606E+7 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-5.95175E+7 X=-3.4101E+9 - F= 0 N=-5.95175E+7 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 5.91475E+7 X= 3.3889E+9 - F= 0 N= 5.91475E+7 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 4.36029E+7 X= 2.49826E+9 - F= 0 N= 4.36029E+7 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 4.09995E+7 X= 2.3491E+9 - F= 0 N= 4.09995E+7 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 3.39894E+6 X= 1.94745E+8 - F= 0 N= 3.39894E+6 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 3.53386E+7 X= 2.02475E+9 - F= 0 N= 3.53386E+7 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-3.9575E+7 X=-2.26748E+9 - F= 0 N=-3.9575E+7 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-3.67544E+7 X=-2.10587E+9 - F= 0 N=-3.67544E+7 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 7.39295E+7 X= 4.23585E+9 - F= 0 N= 7.39295E+7 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-4.65172E+7 X=-2.66524E+9 - F= 0 N=-4.65172E+7 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 6.99968E+7 X= 4.01052E+9 - F= 0 N= 6.99968E+7 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-8.51567E+7 X=-4.87912E+9 - F= 0 N=-8.51567E+7 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 3.09894E+7 X= 1.77556E+9 - F= 0 N= 3.09894E+7 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 5.0214E+6 X= 2.87705E+8 - F= 0 N= 5.0214E+6 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 3.49026E+6 X= 1.99977E+8 - F= 0 N= 3.49026E+6 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-5.93309E+7 X=-3.39941E+9 - F= 0 N=-5.93309E+7 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-6.09328E+7 X=-3.49119E+9 - F= 0 N=-6.09328E+7 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-4.9973E+7 X=-2.86324E+9 - F= 0 N=-4.9973E+7 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 7.33768E+7 X= 4.20418E+9 - F= 0 N= 7.33768E+7 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-5.50093E+7 X=-3.1518E+9 - F= 0 N=-5.50093E+7 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 8.03925E+7 X= 4.60615E+9 - F= 0 N= 8.03925E+7 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_REMAINDER_X_Y_N.BAS b/bwbtest/NBS2X/F_REMAINDER_X_Y_N.BAS deleted file mode 100644 index ec08a9c..0000000 --- a/bwbtest/NBS2X/F_REMAINDER_X_Y_N.BAS +++ /dev/null @@ -1,184 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:30 -REM FILENAME: F_REMAINDER_X_Y_N.BAS -REM SYNTAX: N = REMAINDER( X, Y ) -REM UNIQUEID: F_REMAINDER_X_Y_N -REM FUNCTION: REMAINDER -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM Y ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X, Y -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X, "Y=";Y -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = REMAINDER( X, Y ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , 0 , 0 -DATA 2 , 0 , 0 , 1 , 1 -DATA 3 , 0 , 0 , -1 , -1 -DATA 4 , 0 , 0 , .4 , .4 -DATA 5 , 0 , 0 , -.4 , -.4 -DATA 6 , 0 , 0 , .6 , .6 -DATA 7 , 0 , 0 , -.6 , -.6 -DATA 8 , 0 , 0 , 254 , 254 -DATA 9 , 0 , 0 , 255 , 255 -DATA 10 , 0 , 0 , 256 , 256 -DATA 11 , 0 , 0 , 32000 , 32000 -DATA 12 , 0 , 0 , -.227229 , -.227229 -DATA 13 , 0 , 0 , -.239157 , -.239157 -DATA 14 , 0 , 0 , -.213586 , -.213586 -DATA 15 , 0 , 0 , .274675 , .274675 -DATA 16 , 0 , 0 , .169766 , .169766 -DATA 17 , 0 , 0 , .318766 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 , .188257 -DATA 20 , 0 , 0 , -.277537 , -.277537 -DATA 21 , 0 , 0 , -.481303 , -.481303 -DATA 22 , 0 , 0 , .43556 , .43556 -DATA 23 , 0 , 0 , -.210971 , -.210971 -DATA 24 , 0 , 0 , -.455216 , -.455216 -DATA 25 , 0 , 0 , -110.907 , -110.907 -DATA 26 , 0 , 0 , 105.632 , 105.632 -DATA 27 , 0 , 0 , -114.341 , -114.341 -DATA 28 , 0 , 0 , 109.706 , 109.706 -DATA 29 , 0 , 0 , 109.198 , 109.198 -DATA 30 , 0 , 0 , 85.8773 , 85.8773 -DATA 31 , 0 , 0 , -58.3548 , -58.3548 -DATA 32 , 0 , 0 , 29.6397 , 29.6397 -DATA 33 , 0 , 0 , -108.36 , -108.36 -DATA 34 , 0 , 0 , -46.5199 , -46.5199 -DATA 35 , 0 , 0 , 112.521 , 112.521 -DATA 36 , 0 , 0 , 45.4151 , 45.4151 -DATA 37 , 0 , 0 , 101.129 , 101.129 -DATA 38 , 0 , 0 , 65.0473 , 65.0473 -DATA 39 , 0 , 0 , 48.4012 , 48.4012 -DATA 40 , 0 , 0 , 122.294 , 122.294 -DATA 41 , 0 , 0 , -56.1094 , -56.1094 -DATA 42 , 0 , 0 , -121.087 , -121.087 -DATA 43 , 0 , 0 , -123.517 , -123.517 -DATA 44 , 0 , 0 , -97.6301 , -97.6301 -DATA 45 , 0 , 0 , -64.0001 , -64.0001 -DATA 46 , 0 , 0 , -25.6888 , -25.6888 -DATA 47 , 0 , 0 , 14.8006 , 14.8006 -DATA 48 , 0 , 0 , -61.0877 , -61.0877 -DATA 49 , 0 , 0 , -66.6381 , -66.6381 -DATA 50 , 0 , 0 , -5476.5 , -5476.5 -DATA 51 , 0 , 0 , -21210.3 , -21210.3 -DATA 52 , 0 , 0 , -28757.2 , -28757.2 -DATA 53 , 0 , 0 , -28732.2 , -28732.2 -DATA 54 , 0 , 0 , 12730.3 , 12730.3 -DATA 55 , 0 , 0 , -1830.69 , -1830.69 -DATA 56 , 0 , 0 , 5486.39 , 5486.39 -DATA 57 , 0 , 0 , 22405.9 , 22405.9 -DATA 58 , 0 , 0 , 30809.8 , 30809.8 -DATA 59 , 0 , 0 , -28930.6 , -28930.6 -DATA 60 , 0 , 0 , -6014.53 , -6014.53 -DATA 61 , 0 , 0 , 17414.6 , 17414.6 -DATA 62 , 0 , 0 , -10538.3 , -10538.3 -DATA 63 , 0 , 0 , -17536.3 , -17536.3 -DATA 64 , 0 , 0 , -8856.62 , -8856.62 -DATA 65 , 0 , 0 , -5140.12 , -5140.12 -DATA 66 , 0 , 0 , -8595.31 , -8595.31 -DATA 67 , 0 , 0 , -3382.87 , -3382.87 -DATA 68 , 0 , 0 , -5002.07 , -5002.07 -DATA 69 , 0 , 0 , -5800.72 , -5800.72 -DATA 70 , 0 , 0 , 29686.4 , 29686.4 -DATA 71 , 0 , 0 , 2571. , 2571. -DATA 72 , 0 , 0 , 31091. , 31091. -DATA 73 , 0 , 0 , 14819. , 14819. -DATA 74 , 0 , 0 , 3790.9 , 3790.9 -DATA 75 , 0 , 0 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 0 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 0 , 0 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 0 , 0 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 0 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 0 , 0 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 0 , 0 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 0 , 0 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 0 , 0 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 0 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 0 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 0 , 0 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 0 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 0 , 0 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 0 , 0 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 0 , 0 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 0 , 0 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 0 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 0 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 0 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 0 , 0 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 0 , 0 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 0 , 0 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 0 , 0 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 0 , 0 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 0 , 0 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_REMAINDER_X_Y_N.run b/bwbtest/NBS2X/F_REMAINDER_X_Y_N.run deleted file mode 100644 index 4a97f4b..0000000 --- a/bwbtest/NBS2X/F_REMAINDER_X_Y_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 X= 0 Y= 0 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 0 X= 1 Y= 1 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 0 X=-1 Y=-1 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 0 X= .4 Y= .4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 Y=-.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 0 X= .6 Y= .6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 0 X=-.6 Y=-.6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 0 X= 254 Y= 254 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 0 X= 255 Y= 255 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 0 X= 256 Y= 256 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 0 X= 32000 Y= 32000 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 Y=-.227229 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 Y=-.239157 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 Y=-.213586 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 Y= .274675 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 Y= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 Y= .318766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 Y= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 Y= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 Y=-.277537 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 Y=-.481303 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 0 X= .43556 Y= .43556 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 Y=-.210971 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 Y=-.455216 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 0 X=-110.907 Y=-110.907 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 0 X= 105.632 Y= 105.632 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 0 X=-114.341 Y=-114.341 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 0 X= 109.706 Y= 109.706 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 0 X= 109.198 Y= 109.198 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 0 X= 85.8773 Y= 85.8773 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 0 X=-58.3548 Y=-58.3548 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 0 X= 29.6397 Y= 29.6397 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 0 X=-108.36 Y=-108.36 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= 0 X=-46.5199 Y=-46.5199 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 0 X= 112.521 Y= 112.521 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 0 X= 45.4151 Y= 45.4151 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 0 X= 101.129 Y= 101.129 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 0 X= 65.0473 Y= 65.0473 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 0 X= 48.4012 Y= 48.4012 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 0 X= 122.294 Y= 122.294 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 0 X=-56.1094 Y=-56.1094 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 0 X=-121.087 Y=-121.087 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= 0 X=-123.517 Y=-123.517 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= 0 X=-97.6301 Y=-97.6301 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 0 X=-64.0001 Y=-64.0001 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 0 X=-25.6888 Y=-25.6888 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 0 X= 14.8006 Y= 14.8006 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= 0 X=-61.0877 Y=-61.0877 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 0 X=-66.6381 Y=-66.6381 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= 0 X=-5476.5 Y=-5476.5 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= 0 X=-21210.3 Y=-21210.3 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 0 X=-28757.2 Y=-28757.2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 0 X=-28732.2 Y=-28732.2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 0 X= 12730.3 Y= 12730.3 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 0 X=-1830.69 Y=-1830.69 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 0 X= 5486.39 Y= 5486.39 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 0 X= 22405.9 Y= 22405.9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 0 X= 30809.8 Y= 30809.8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= 0 X=-28930.6 Y=-28930.6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 0 X=-6014.53 Y=-6014.53 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 0 X= 17414.6 Y= 17414.6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 0 X=-10538.3 Y=-10538.3 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 0 X=-17536.3 Y=-17536.3 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= 0 X=-8856.62 Y=-8856.62 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 0 X=-5140.12 Y=-5140.12 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 0 X=-8595.31 Y=-8595.31 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= 0 X=-3382.87 Y=-3382.87 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 0 X=-5002.07 Y=-5002.07 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 0 X=-5800.72 Y=-5800.72 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 0 X= 29686.4 Y= 29686.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 0 X= 2571 Y= 2571 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 0 X= 31091 Y= 31091 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 0 X= 14819 Y= 14819 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 0 X= 3790.9 Y= 3790.9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 0 X=-4.2981E+9 Y=-4.2981E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 0 X=-7.05453E+8 Y=-7.05453E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 0 X=-3.10179E+9 Y=-3.10179E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 0 X=-4.86159E+9 Y=-4.86159E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= 0 X=-8.62908E+8 Y=-8.62908E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= 0 X=-3.4101E+9 Y=-3.4101E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 0 X= 3.3889E+9 Y= 3.3889E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 0 X= 2.49826E+9 Y= 2.49826E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 0 X= 2.3491E+9 Y= 2.3491E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 0 X= 1.94745E+8 Y= 1.94745E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 0 X= 2.02475E+9 Y= 2.02475E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 0 X=-2.26748E+9 Y=-2.26748E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 0 X=-2.10587E+9 Y=-2.10587E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 0 X= 4.23585E+9 Y= 4.23585E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 0 X=-2.66524E+9 Y=-2.66524E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 0 X= 4.01052E+9 Y= 4.01052E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 0 X=-4.87912E+9 Y=-4.87912E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 0 X= 1.77556E+9 Y= 1.77556E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 0 X= 2.87705E+8 Y= 2.87705E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 0 X= 1.99977E+8 Y= 1.99977E+8 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 0 X=-3.39941E+9 Y=-3.39941E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 0 X=-3.49119E+9 Y=-3.49119E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 0 X=-2.86324E+9 Y=-2.86324E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 0 X= 4.20418E+9 Y= 4.20418E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= 0 X=-3.1518E+9 Y=-3.1518E+9 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 0 X= 4.60615E+9 Y= - 4.60615E+9 - F= 0 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_REPEAT_X_A_S.BAS b/bwbtest/NBS2X/F_REPEAT_X_A_S.BAS deleted file mode 100644 index 7695eb4..0000000 --- a/bwbtest/NBS2X/F_REPEAT_X_A_S.BAS +++ /dev/null @@ -1,160 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:30 -REM FILENAME: F_REPEAT_X_A_S.BAS -REM SYNTAX: S$ = REPEAT$( X, A$ ) -REM UNIQUEID: F_REPEAT_X_A_S -REM FUNCTION: REPEAT$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, X, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "X=";X, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = REPEAT$( X, A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , "", 0 , "" -DATA 2 , 0 , " ", 1 , " " -DATA 3 , 1 , "", -1 , "3" -DATA 4 , 0 , "", .4 , "z" -DATA 5 , 0 , "", -.4 , " " -DATA 6 , 0 , " ", .6 , " 3" -DATA 7 , 1 , "", -.6 , " z" -DATA 8 , 0 , "33333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333", 254 , "3 " -DATA 9 , 0 , "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz", 255 , "z " -DATA 10 , 0 , " ", 256 , " 3 " -DATA 11 , 1 , "", 32000 , " z " -DATA 12 , 0 , "", -.227229 , " LLLL" -DATA 13 , 0 , "", -.239157 , " '' " -DATA 14 , 0 , "", -.213586 , " oo " -DATA 15 , 0 , "", .274675 , " 00 " -DATA 16 , 0 , "", .169766 , " \\\\ " -DATA 17 , 0 , "", .318766 , " lllll " -DATA 18 , 0 , "", 2.06658E-2 , " uuuu " -DATA 19 , 0 , "", .188257 , " a " -DATA 20 , 0 , "", -.277537 , " " -DATA 21 , 0 , "", -.481303 , " hh " -DATA 22 , 0 , "", .43556 , " h " -DATA 23 , 0 , "", -.210971 , " )" -DATA 24 , 0 , "", -.455216 , " 5 " -DATA 25 , 1 , "", -110.907 , " 2 " -DATA 26 , 0 , " ", 105.632 , " - " -DATA 27 , 1 , "", -114.341 , "dd " -DATA 28 , 0 , " ", 109.706 , " tttt " -DATA 29 , 0 , " ", 109.198 , " :::: " -DATA 30 , 0 , " ", 85.8773 , " ___ " -DATA 31 , 1 , "", -58.3548 , " " -DATA 32 , 0 , " ", 29.6397 , " " -DATA 33 , 1 , "", -108.36 , " _____ " -DATA 34 , 1 , "", -46.5199 , " S " -DATA 35 , 0 , " ", 112.521 , " FFFF " -DATA 36 , 0 , " ", 45.4151 , " kkk" -DATA 37 , 0 , " ", 101.129 , " NNNN " -DATA 38 , 0 , " ", 65.0473 , " mmmm " -DATA 39 , 0 , " ", 48.4012 , " ,,,,, " -DATA 40 , 0 , "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO", 122.294 , "OO " -DATA 41 , 1 , "", -56.1094 , " HHHH " -DATA 42 , 1 , "", -121.087 , " < " -DATA 43 , 1 , "", -123.517 , " j " -DATA 44 , 1 , "", -97.6301 , " yyyy " -DATA 45 , 1 , "", -64.0001 , " +++ " -DATA 46 , 1 , "", -25.6888 , "o " -DATA 47 , 0 , " ", 14.8006 , " ((" -DATA 48 , 1 , "", -61.0877 , " uu " -DATA 49 , 1 , "", -66.6381 , " 00 " -DATA 50 , 1 , "", -5476.5 , " HH " -DATA 51 , 1 , "", -21210.3 , " " -DATA 52 , 1 , "", -28757.2 , " G " -DATA 53 , 1 , "", -28732.2 , " {{{{ " -DATA 54 , 1 , "", 12730.3 , " ]]] " -DATA 55 , 1 , "", -1830.69 , "CCC" -DATA 56 , 1 , "", 5486.39 , " 44 " -DATA 57 , 1 , "", 22405.9 , "^^ " -DATA 58 , 1 , "", 30809.8 , " QQ " -DATA 59 , 1 , "", -28930.6 , " FFFF " -DATA 60 , 1 , "", -6014.53 , " n " -DATA 61 , 1 , "", 17414.6 , " hh " -DATA 62 , 1 , "", -10538.3 , "555 " -DATA 63 , 1 , "", -17536.3 , " YYYY " -DATA 64 , 1 , "", -8856.62 , " w " -DATA 65 , 1 , "", -5140.12 , "MMMM " -DATA 66 , 1 , "", -8595.31 , " JJJJ " -DATA 67 , 1 , "", -3382.87 , " %% " -DATA 68 , 1 , "", -5002.07 , " * " -DATA 69 , 1 , "", -5800.72 , " @@@ " -DATA 70 , 1 , "", 29686.4 , "I " -DATA 71 , 0 , " ", 2571. , " ss " -DATA 72 , 1 , "", 31091. , " f " -DATA 73 , 1 , "", 14819. , " D " -DATA 74 , 0 , "###############################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################", 3790.9 , "### " -DATA 75 , 1 , "", -4.2981E+9 , " ' " -DATA 76 , 1 , "", -7.05453E+8 , " dd " -DATA 77 , 1 , "", -3.10179E+9 , " TT " -DATA 78 , 1 , "", -4.86159E+9 , " vvv " -DATA 79 , 1 , "", -8.62908E+8 , " X " -DATA 80 , 1 , "", -3.4101E+9 , " % " -DATA 81 , 1 , "", 3.3889E+9 , " " -DATA 82 , 1 , "", 2.49826E+9 , " 5555 " -DATA 83 , 1 , "", 2.3491E+9 , "FFFF " -DATA 84 , 1 , "", 1.94745E+8 , " %% " -DATA 85 , 1 , "", 2.02475E+9 , " " -DATA 86 , 1 , "", -2.26748E+9 , " ~~~~ " -DATA 87 , 1 , "", -2.10587E+9 , " || " -DATA 88 , 1 , "", 4.23585E+9 , " SSS " -DATA 89 , 1 , "", -2.66524E+9 , " 6666 " -DATA 90 , 1 , "", 4.01052E+9 , " ww " -DATA 91 , 1 , "", -4.87912E+9 , " 1111 " -DATA 92 , 1 , "", 1.77556E+9 , " K " -DATA 93 , 1 , "", 2.87705E+8 , " ttttt " -DATA 94 , 1 , "", 1.99977E+8 , " OOOOO " -DATA 95 , 1 , "", -3.39941E+9 , " E " -DATA 96 , 1 , "", -3.49119E+9 , " PPPPP " -DATA 97 , 1 , "", -2.86324E+9 , " == " -DATA 98 , 1 , "", 4.20418E+9 , " VVVV " -DATA 99 , 1 , "", -3.1518E+9 , " c " -DATA 100 , 1 , "", 4.60615E+9 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_REPEAT_X_A_S.run b/bwbtest/NBS2X/F_REPEAT_X_A_S.run deleted file mode 100644 index 0c4e1fa..0000000 --- a/bwbtest/NBS2X/F_REPEAT_X_A_S.run +++ /dev/null @@ -1,525 +0,0 @@ -TESTCASE # 1 E= 1 R$=[] X= 0 A$=[] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] X= 1 A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 3 E= 1 R$=[] X=-1 A$=[3] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[] X= .4 A$=[z] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[] X=-.4 A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ ] X= .6 A$=[ 3] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 7 E= 1 R$=[] X=-.6 A$=[ z] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[ -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333] X= 254 A$=[3 ] - F= 0 S$=[ -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[ -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzz] X= 255 A$=[z ] - F= 0 S$=[ -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzz] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[ - - - - ] X= 256 A$=[ 3 ] - F= 0 S$=[ - - - - ] -*** TEST PASSED *** -TESTCASE # 11 E= 1 R$=[] X= 32000 A$=[ z ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[] X=-.227229 A$=[ LLLL] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[] X=-.239157 A$=[ '' ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[] X=-.213586 A$=[ oo ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[] X= .274675 A$=[ 00 ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[] X= .169766 A$=[ \\\\ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[] X= .318766 A$=[ lllll ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[] X= 2.06658E-2 A$=[ uuuu ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[] X= .188257 A$=[ a ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[] X=-.277537 A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[] X=-.481303 A$=[ hh ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[] X= .43556 A$=[ h ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[] X=-.210971 A$=[ )] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[] X=-.455216 A$=[ 5 ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 25 E= 1 R$=[] X=-110.907 A$=[ 2 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[ - - ] X= 105.632 A$=[ - ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 27 E= 1 R$=[] X=-114.341 A$=[dd ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[ - - ] X= 109.706 A$=[ tttt ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[ - - ] X= 109.198 A$=[ :::: ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[ - - ] X= 85.8773 A$=[ ___ ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 31 E= 1 R$=[] X=-58.3548 A$=[ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[ ] X= - 29.6397 A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 33 E= 1 R$=[] X=-108.36 A$=[ _____ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 34 E= 1 R$=[] X=-46.5199 A$=[ S ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[ - - ] X= 112.521 A$=[ FFFF ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[ ] -X= 45.4151 A$=[ kkk] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[ - - ] X= 101.129 A$=[ NNNN ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[ - ] X= - 65.0473 A$=[ mmmm ] - F= 0 S$=[ - ] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[ - ] X= 48.4012 A$=[ - ,,,,, ] - F= 0 S$=[ - ] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[ -OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO -OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO] X= 122.294 A$=[OO ] - F= 0 S$=[ -OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO -OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO] -*** TEST PASSED *** -TESTCASE # 41 E= 1 R$=[] X=-56.1094 A$=[ HHHH ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 42 E= 1 R$=[] X=-121.087 A$=[ < ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 43 E= 1 R$=[] X=-123.517 A$=[ j ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 44 E= 1 R$=[] X=-97.6301 A$=[ yyyy ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 45 E= 1 R$=[] X=-64.0001 A$=[ +++ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 46 E= 1 R$=[] X=-25.6888 A$=[o ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[ ] X= 14.8006 A$=[ - ((] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 48 E= 1 R$=[] X=-61.0877 A$=[ uu ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 49 E= 1 R$=[] X=-66.6381 A$=[ 00 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 50 E= 1 R$=[] X=-5476.5 A$=[ HH ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 51 E= 1 R$=[] X=-21210.3 A$=[ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 1 R$=[] X=-28757.2 A$=[ G ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 53 E= 1 R$=[] X=-28732.2 A$=[ {{{{ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 54 E= 1 R$=[] X= 12730.3 A$=[ ]]] ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 55 E= 1 R$=[] X=-1830.69 A$=[CCC] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 56 E= 1 R$=[] X= 5486.39 A$=[ 44 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 57 E= 1 R$=[] X= 22405.9 A$=[^^ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 58 E= 1 R$=[] X= 30809.8 A$=[ QQ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 59 E= 1 R$=[] X=-28930.6 A$=[ FFFF ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 60 E= 1 R$=[] X=-6014.53 A$=[ n ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 61 E= 1 R$=[] X= 17414.6 A$=[ hh ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 62 E= 1 R$=[] X=-10538.3 A$=[555 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 63 E= 1 R$=[] X=-17536.3 A$=[ YYYY ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 64 E= 1 R$=[] X=-8856.62 A$=[ w ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 65 E= 1 R$=[] X=-5140.12 A$=[MMMM ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 66 E= 1 R$=[] X=-8595.31 A$=[ JJJJ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 67 E= 1 R$=[] X=-3382.87 A$=[ %% ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 68 E= 1 R$=[] X=-5002.07 A$=[ * ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 69 E= 1 R$=[] X=-5800.72 A$=[ @@@ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 70 E= 1 R$=[] X= 29686.4 A$=[I ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ] X= 2571 A$=[ ss ] - F= 0 S$=[ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ] -*** TEST PASSED *** -TESTCASE # 72 E= 1 R$=[] X= 31091 A$=[ f ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 73 E= 1 R$=[] X= 14819 A$=[ D ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -###############################] X= 3790.9 A$=[### ] - F= 0 S$=[ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -###############################] -*** TEST PASSED *** -TESTCASE # 75 E= 1 R$=[] X=-4.2981E+9 A$=[ ' ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 76 E= 1 R$=[] X=-7.05453E+8 A$=[ dd ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 77 E= 1 R$=[] X=-3.10179E+9 A$=[ TT ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 78 E= 1 R$=[] X=-4.86159E+9 A$=[ vvv ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 79 E= 1 R$=[] X=-8.62908E+8 A$=[ X ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 80 E= 1 R$=[] X=-3.4101E+9 A$=[ % ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 81 E= 1 R$=[] X= 3.3889E+9 A$=[ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 1 R$=[] X= 2.49826E+9 A$=[ 5555 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 83 E= 1 R$=[] X= 2.3491E+9 A$=[FFFF ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 84 E= 1 R$=[] X= 1.94745E+8 A$=[ %% ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 85 E= 1 R$=[] X= 2.02475E+9 A$=[ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 1 R$=[] X=-2.26748E+9 A$=[ ~~~~ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 87 E= 1 R$=[] X=-2.10587E+9 A$=[ || ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 88 E= 1 R$=[] X= 4.23585E+9 A$=[ SSS ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 89 E= 1 R$=[] X=-2.66524E+9 A$=[ 6666 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 90 E= 1 R$=[] X= 4.01052E+9 A$=[ ww ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 91 E= 1 R$=[] X=-4.87912E+9 A$=[ 1111 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 92 E= 1 R$=[] X= 1.77556E+9 A$=[ K ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 93 E= 1 R$=[] X= 2.87705E+8 A$=[ ttttt ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 94 E= 1 R$=[] X= 1.99977E+8 A$=[ OOOOO ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 95 E= 1 R$=[] X=-3.39941E+9 A$=[ E ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 96 E= 1 R$=[] X=-3.49119E+9 A$=[ PPPPP ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 97 E= 1 R$=[] X=-2.86324E+9 A$=[ == ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 98 E= 1 R$=[] X= 4.20418E+9 A$=[ VVVV ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 99 E= 1 R$=[] X=-3.1518E+9 A$=[ c ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 100 E= 1 R$=[] X= 4.60615E+9 A$=[ - yyyy ] - F= 1 S$=[] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_REPEAT_X_Y_S.BAS b/bwbtest/NBS2X/F_REPEAT_X_Y_S.BAS deleted file mode 100644 index c42f5ff..0000000 --- a/bwbtest/NBS2X/F_REPEAT_X_Y_S.BAS +++ /dev/null @@ -1,160 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:31 -REM FILENAME: F_REPEAT_X_Y_S.BAS -REM SYNTAX: S$ = REPEAT$( X, Y ) -REM UNIQUEID: F_REPEAT_X_Y_S -REM FUNCTION: REPEAT$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM Y ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, X, Y -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "X=";X, "Y=";Y -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = REPEAT$( X, Y ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", 0 , 0 -DATA 2 , 0 , "", 1 , 1 -DATA 3 , 1 , "", -1 , -1 -DATA 4 , 0 , "", .4 , .4 -DATA 5 , 0 , "", -.4 , -.4 -DATA 6 , 0 , "", .6 , .6 -DATA 7 , 1 , "", -.6 , -.6 -DATA 8 , 0 , "þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ", 254 , 254 -DATA 9 , 0 , "ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ", 255 , 255 -DATA 10 , 1 , "", 256 , 256 -DATA 11 , 1 , "", 32000 , 32000 -DATA 12 , 0 , "", -.227229 , -.227229 -DATA 13 , 0 , "", -.239157 , -.239157 -DATA 14 , 0 , "", -.213586 , -.213586 -DATA 15 , 0 , "", .274675 , .274675 -DATA 16 , 0 , "", .169766 , .169766 -DATA 17 , 0 , "", .318766 , .318766 -DATA 18 , 0 , "", 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , "", .188257 , .188257 -DATA 20 , 0 , "", -.277537 , -.277537 -DATA 21 , 0 , "", -.481303 , -.481303 -DATA 22 , 0 , "", .43556 , .43556 -DATA 23 , 0 , "", -.210971 , -.210971 -DATA 24 , 0 , "", -.455216 , -.455216 -DATA 25 , 1 , "", -110.907 , -110.907 -DATA 26 , 0 , "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj", 105.632 , 105.632 -DATA 27 , 1 , "", -114.341 , -114.341 -DATA 28 , 0 , "nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn", 109.706 , 109.706 -DATA 29 , 0 , "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm", 109.198 , 109.198 -DATA 30 , 0 , "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV", 85.8773 , 85.8773 -DATA 31 , 1 , "", -58.3548 , -58.3548 -DATA 32 , 0 , "", 29.6397 , 29.6397 -DATA 33 , 1 , "", -108.36 , -108.36 -DATA 34 , 1 , "", -46.5199 , -46.5199 -DATA 35 , 0 , "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq", 112.521 , 112.521 -DATA 36 , 0 , "---------------------------------------------", 45.4151 , 45.4151 -DATA 37 , 0 , "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee", 101.129 , 101.129 -DATA 38 , 0 , "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA", 65.0473 , 65.0473 -DATA 39 , 0 , "000000000000000000000000000000000000000000000000", 48.4012 , 48.4012 -DATA 40 , 0 , "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz", 122.294 , 122.294 -DATA 41 , 1 , "", -56.1094 , -56.1094 -DATA 42 , 1 , "", -121.087 , -121.087 -DATA 43 , 1 , "", -123.517 , -123.517 -DATA 44 , 1 , "", -97.6301 , -97.6301 -DATA 45 , 1 , "", -64.0001 , -64.0001 -DATA 46 , 1 , "", -25.6888 , -25.6888 -DATA 47 , 0 , "", 14.8006 , 14.8006 -DATA 48 , 1 , "", -61.0877 , -61.0877 -DATA 49 , 1 , "", -66.6381 , -66.6381 -DATA 50 , 1 , "", -5476.5 , -5476.5 -DATA 51 , 1 , "", -21210.3 , -21210.3 -DATA 52 , 1 , "", -28757.2 , -28757.2 -DATA 53 , 1 , "", -28732.2 , -28732.2 -DATA 54 , 1 , "", 12730.3 , 12730.3 -DATA 55 , 1 , "", -1830.69 , -1830.69 -DATA 56 , 1 , "", 5486.39 , 5486.39 -DATA 57 , 1 , "", 22405.9 , 22405.9 -DATA 58 , 1 , "", 30809.8 , 30809.8 -DATA 59 , 1 , "", -28930.6 , -28930.6 -DATA 60 , 1 , "", -6014.53 , -6014.53 -DATA 61 , 1 , "", 17414.6 , 17414.6 -DATA 62 , 1 , "", -10538.3 , -10538.3 -DATA 63 , 1 , "", -17536.3 , -17536.3 -DATA 64 , 1 , "", -8856.62 , -8856.62 -DATA 65 , 1 , "", -5140.12 , -5140.12 -DATA 66 , 1 , "", -8595.31 , -8595.31 -DATA 67 , 1 , "", -3382.87 , -3382.87 -DATA 68 , 1 , "", -5002.07 , -5002.07 -DATA 69 , 1 , "", -5800.72 , -5800.72 -DATA 70 , 1 , "", 29686.4 , 29686.4 -DATA 71 , 1 , "", 2571. , 2571. -DATA 72 , 1 , "", 31091. , 31091. -DATA 73 , 1 , "", 14819. , 14819. -DATA 74 , 1 , "", 3790.9 , 3790.9 -DATA 75 , 1 , "", -4.2981E+9 , -4.2981E+9 -DATA 76 , 1 , "", -7.05453E+8 , -7.05453E+8 -DATA 77 , 1 , "", -3.10179E+9 , -3.10179E+9 -DATA 78 , 1 , "", -4.86159E+9 , -4.86159E+9 -DATA 79 , 1 , "", -8.62908E+8 , -8.62908E+8 -DATA 80 , 1 , "", -3.4101E+9 , -3.4101E+9 -DATA 81 , 1 , "", 3.3889E+9 , 3.3889E+9 -DATA 82 , 1 , "", 2.49826E+9 , 2.49826E+9 -DATA 83 , 1 , "", 2.3491E+9 , 2.3491E+9 -DATA 84 , 1 , "", 1.94745E+8 , 1.94745E+8 -DATA 85 , 1 , "", 2.02475E+9 , 2.02475E+9 -DATA 86 , 1 , "", -2.26748E+9 , -2.26748E+9 -DATA 87 , 1 , "", -2.10587E+9 , -2.10587E+9 -DATA 88 , 1 , "", 4.23585E+9 , 4.23585E+9 -DATA 89 , 1 , "", -2.66524E+9 , -2.66524E+9 -DATA 90 , 1 , "", 4.01052E+9 , 4.01052E+9 -DATA 91 , 1 , "", -4.87912E+9 , -4.87912E+9 -DATA 92 , 1 , "", 1.77556E+9 , 1.77556E+9 -DATA 93 , 1 , "", 2.87705E+8 , 2.87705E+8 -DATA 94 , 1 , "", 1.99977E+8 , 1.99977E+8 -DATA 95 , 1 , "", -3.39941E+9 , -3.39941E+9 -DATA 96 , 1 , "", -3.49119E+9 , -3.49119E+9 -DATA 97 , 1 , "", -2.86324E+9 , -2.86324E+9 -DATA 98 , 1 , "", 4.20418E+9 , 4.20418E+9 -DATA 99 , 1 , "", -3.1518E+9 , -3.1518E+9 -DATA 100 , 1 , "", 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_REPEAT_X_Y_S.run b/bwbtest/NBS2X/F_REPEAT_X_Y_S.run deleted file mode 100644 index 15a8b57..0000000 --- a/bwbtest/NBS2X/F_REPEAT_X_Y_S.run +++ /dev/null @@ -1,9 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] X= 0 Y= 0 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] X= 1 Y= 1 - F= 0 S$=[ - -*** TEST FAILED, RESULT MISMATCH *** - -Program interrupted at line 1011 diff --git a/bwbtest/NBS2X/F_RIGHT_A_X_S.BAS b/bwbtest/NBS2X/F_RIGHT_A_X_S.BAS deleted file mode 100644 index 4b2d098..0000000 --- a/bwbtest/NBS2X/F_RIGHT_A_X_S.BAS +++ /dev/null @@ -1,160 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:31 -REM FILENAME: F_RIGHT_A_X_S.BAS -REM SYNTAX: S$ = RIGHT$( A$, X ) -REM UNIQUEID: F_RIGHT_A_X_S -REM FUNCTION: RIGHT$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, A$, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "A$=[";A$;"]", "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = RIGHT$( A$, X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", "", 0 -DATA 2 , 0 , " ", " ", 1 -DATA 3 , 1 , "", "3", -1 -DATA 4 , 0 , "", "z", .4 -DATA 5 , 0 , "", " ", -.4 -DATA 6 , 0 , "3", " 3", .6 -DATA 7 , 1 , "", " z", -.6 -DATA 8 , 0 , "3 ", "3 ", 254 -DATA 9 , 0 , "z ", "z ", 255 -DATA 10 , 0 , " 3 ", " 3 ", 256 -DATA 11 , 1 , "", " z ", 32000 -DATA 12 , 0 , "", " LLLL", -.227229 -DATA 13 , 0 , "", " '' ", -.239157 -DATA 14 , 0 , "", " oo ", -.213586 -DATA 15 , 0 , "", " 00 ", .274675 -DATA 16 , 0 , "", " \\\\ ", .169766 -DATA 17 , 0 , "", " lllll ", .318766 -DATA 18 , 0 , "", " uuuu ", 2.06658E-2 -DATA 19 , 0 , "", " a ", .188257 -DATA 20 , 0 , "", " ", -.277537 -DATA 21 , 0 , "", " hh ", -.481303 -DATA 22 , 0 , "", " h ", .43556 -DATA 23 , 0 , "", " )", -.210971 -DATA 24 , 0 , "", " 5 ", -.455216 -DATA 25 , 1 , "", " 2 ", -110.907 -DATA 26 , 0 , " - ", " - ", 105.632 -DATA 27 , 1 , "", "dd ", -114.341 -DATA 28 , 0 , " tttt ", " tttt ", 109.706 -DATA 29 , 0 , " :::: ", " :::: ", 109.198 -DATA 30 , 0 , " ___ ", " ___ ", 85.8773 -DATA 31 , 1 , "", " ", -58.3548 -DATA 32 , 0 , " ", " ", 29.6397 -DATA 33 , 1 , "", " _____ ", -108.36 -DATA 34 , 1 , "", " S ", -46.5199 -DATA 35 , 0 , " FFFF ", " FFFF ", 112.521 -DATA 36 , 0 , " kkk", " kkk", 45.4151 -DATA 37 , 0 , " NNNN ", " NNNN ", 101.129 -DATA 38 , 0 , " mmmm ", " mmmm ", 65.0473 -DATA 39 , 0 , " ,,,,, ", " ,,,,, ", 48.4012 -DATA 40 , 0 , "OO ", "OO ", 122.294 -DATA 41 , 1 , "", " HHHH ", -56.1094 -DATA 42 , 1 , "", " < ", -121.087 -DATA 43 , 1 , "", " j ", -123.517 -DATA 44 , 1 , "", " yyyy ", -97.6301 -DATA 45 , 1 , "", " +++ ", -64.0001 -DATA 46 , 1 , "", "o ", -25.6888 -DATA 47 , 0 , " ((", " ((", 14.8006 -DATA 48 , 1 , "", " uu ", -61.0877 -DATA 49 , 1 , "", " 00 ", -66.6381 -DATA 50 , 1 , "", " HH ", -5476.5 -DATA 51 , 1 , "", " ", -21210.3 -DATA 52 , 1 , "", " G ", -28757.2 -DATA 53 , 1 , "", " {{{{ ", -28732.2 -DATA 54 , 1 , "", " ]]] ", 12730.3 -DATA 55 , 1 , "", "CCC", -1830.69 -DATA 56 , 1 , "", " 44 ", 5486.39 -DATA 57 , 1 , "", "^^ ", 22405.9 -DATA 58 , 1 , "", " QQ ", 30809.8 -DATA 59 , 1 , "", " FFFF ", -28930.6 -DATA 60 , 1 , "", " n ", -6014.53 -DATA 61 , 1 , "", " hh ", 17414.6 -DATA 62 , 1 , "", "555 ", -10538.3 -DATA 63 , 1 , "", " YYYY ", -17536.3 -DATA 64 , 1 , "", " w ", -8856.62 -DATA 65 , 1 , "", "MMMM ", -5140.12 -DATA 66 , 1 , "", " JJJJ ", -8595.31 -DATA 67 , 1 , "", " %% ", -3382.87 -DATA 68 , 1 , "", " * ", -5002.07 -DATA 69 , 1 , "", " @@@ ", -5800.72 -DATA 70 , 1 , "", "I ", 29686.4 -DATA 71 , 0 , " ss ", " ss ", 2571. -DATA 72 , 1 , "", " f ", 31091. -DATA 73 , 1 , "", " D ", 14819. -DATA 74 , 0 , "### ", "### ", 3790.9 -DATA 75 , 1 , "", " ' ", -4.2981E+9 -DATA 76 , 1 , "", " dd ", -7.05453E+8 -DATA 77 , 1 , "", " TT ", -3.10179E+9 -DATA 78 , 1 , "", " vvv ", -4.86159E+9 -DATA 79 , 1 , "", " X ", -8.62908E+8 -DATA 80 , 1 , "", " % ", -3.4101E+9 -DATA 81 , 1 , "", " ", 3.3889E+9 -DATA 82 , 1 , "", " 5555 ", 2.49826E+9 -DATA 83 , 1 , "", "FFFF ", 2.3491E+9 -DATA 84 , 1 , "", " %% ", 1.94745E+8 -DATA 85 , 1 , "", " ", 2.02475E+9 -DATA 86 , 1 , "", " ~~~~ ", -2.26748E+9 -DATA 87 , 1 , "", " || ", -2.10587E+9 -DATA 88 , 1 , "", " SSS ", 4.23585E+9 -DATA 89 , 1 , "", " 6666 ", -2.66524E+9 -DATA 90 , 1 , "", " ww ", 4.01052E+9 -DATA 91 , 1 , "", " 1111 ", -4.87912E+9 -DATA 92 , 1 , "", " K ", 1.77556E+9 -DATA 93 , 1 , "", " ttttt ", 2.87705E+8 -DATA 94 , 1 , "", " OOOOO ", 1.99977E+8 -DATA 95 , 1 , "", " E ", -3.39941E+9 -DATA 96 , 1 , "", " PPPPP ", -3.49119E+9 -DATA 97 , 1 , "", " == ", -2.86324E+9 -DATA 98 , 1 , "", " VVVV ", 4.20418E+9 -DATA 99 , 1 , "", " c ", -3.1518E+9 -DATA 100 , 1 , "", " yyyy ", 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_RIGHT_A_X_S.run b/bwbtest/NBS2X/F_RIGHT_A_X_S.run deleted file mode 100644 index 8e10388..0000000 --- a/bwbtest/NBS2X/F_RIGHT_A_X_S.run +++ /dev/null @@ -1,319 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] A$=[] X= 0 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] A$=[ ] X= 1 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 3 E= 1 R$=[] A$=[3] X=-1 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[] A$=[z] X= .4 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[] A$=[ ] X=-.4 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[3] A$=[ 3] X= .6 - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 7 E= 1 R$=[] A$=[ z] X=-.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[3 ] A$=[3 ] X= 254 - F= 0 S$=[3 ] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[z ] A$=[z ] X= 255 - F= 0 S$=[z ] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[ 3 ] A$=[ 3 ] X= 256 - F= 0 S$=[ 3 ] -*** TEST PASSED *** -TESTCASE # 11 E= 1 R$=[] A$=[ z ] X= 32000 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[] A$=[ LLLL] X=-.227229 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[] A$=[ '' ] X= --.239157 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[] A$=[ oo ] X= --.213586 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[] A$=[ 00 ] X= .274675 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[] A$=[ \\\\ ] X= .169766 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[] A$=[ lllll ] X= .318766 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[] A$=[ uuuu ] X= - 2.06658E-2 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[] A$=[ a ] X= .188257 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[] A$=[ ] X=-.277537 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[] A$=[ hh ] X=-.481303 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[] A$=[ h ] X= .43556 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[] A$=[ )] X=-.210971 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[] A$=[ 5 ] X=-.455216 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 25 E= 1 R$=[] A$=[ 2 ] X=-110.907 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[ - ] A$=[ - ] X= 105.632 - F= 0 S$=[ - ] -*** TEST PASSED *** -TESTCASE # 27 E= 1 R$=[] A$=[dd ] X=-114.341 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[ tttt ] A$=[ tttt ] X= 109.706 - F= 0 S$=[ tttt ] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[ :::: ] A$=[ :::: ] X= 109.198 - F= 0 S$=[ :::: ] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[ ___ ] A$=[ ___ ] X= 85.8773 - F= 0 S$=[ ___ ] -*** TEST PASSED *** -TESTCASE # 31 E= 1 R$=[] A$=[ ] X=-58.3548 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[ ] A$=[ ] X= 29.6397 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 33 E= 1 R$=[] A$=[ _____ ] X=-108.36 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 34 E= 1 R$=[] A$=[ S ] X=-46.5199 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[ FFFF ] A$=[ FFFF ] X= 112.521 - F= 0 S$=[ FFFF ] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[ kkk] A$=[ kkk] X= 45.4151 - F= 0 S$=[ kkk] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[ NNNN ] A$=[ NNNN ] -X= 101.129 - F= 0 S$=[ NNNN ] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[ mmmm ] A$=[ mmmm ] X= 65.0473 - F= 0 S$=[ mmmm ] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[ ,,,,, ] A$=[ ,,,,, ] -X= 48.4012 - F= 0 S$=[ ,,,,, ] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[OO ] A$=[OO ] X= 122.294 - F= 0 S$=[OO ] -*** TEST PASSED *** -TESTCASE # 41 E= 1 R$=[] A$=[ HHHH ] X=-56.1094 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 42 E= 1 R$=[] A$=[ < ] X=-121.087 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 43 E= 1 R$=[] A$=[ j ] X=-123.517 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 44 E= 1 R$=[] A$=[ yyyy ] X= --97.6301 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 45 E= 1 R$=[] A$=[ +++ ] X=-64.0001 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 46 E= 1 R$=[] A$=[o ] X=-25.6888 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[ ((] A$=[ ((] X= 14.8006 - F= 0 S$=[ ((] -*** TEST PASSED *** -TESTCASE # 48 E= 1 R$=[] A$=[ uu ] X= --61.0877 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 49 E= 1 R$=[] A$=[ 00 ] X= --66.6381 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 50 E= 1 R$=[] A$=[ HH ] X=-5476.5 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 51 E= 1 R$=[] A$=[ ] X=-21210.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 1 R$=[] A$=[ G ] X=-28757.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 53 E= 1 R$=[] A$=[ {{{{ ] X=-28732.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 54 E= 1 R$=[] A$=[ ]]] ] X= - 12730.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 55 E= 1 R$=[] A$=[CCC] X=-1830.69 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 56 E= 1 R$=[] A$=[ 44 ] X= 5486.39 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 57 E= 1 R$=[] A$=[^^ ] X= 22405.9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 58 E= 1 R$=[] A$=[ QQ ] X= - 30809.8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 59 E= 1 R$=[] A$=[ FFFF ] X= --28930.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 60 E= 1 R$=[] A$=[ n ] X=-6014.53 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 61 E= 1 R$=[] A$=[ hh ] X= 17414.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 62 E= 1 R$=[] A$=[555 ] X=-10538.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 63 E= 1 R$=[] A$=[ YYYY ] X=-17536.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 64 E= 1 R$=[] A$=[ w ] X= --8856.62 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 65 E= 1 R$=[] A$=[MMMM ] X=-5140.12 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 66 E= 1 R$=[] A$=[ JJJJ ] X=-8595.31 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 67 E= 1 R$=[] A$=[ %% ] X= --3382.87 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 68 E= 1 R$=[] A$=[ * ] X=-5002.07 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 69 E= 1 R$=[] A$=[ @@@ ] X= --5800.72 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 70 E= 1 R$=[] A$=[I ] X= 29686.4 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ ss ] A$=[ ss ] X= 2571 - F= 0 S$=[ ss ] -*** TEST PASSED *** -TESTCASE # 72 E= 1 R$=[] A$=[ f ] X= 31091 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 73 E= 1 R$=[] A$=[ D ] X= 14819 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[### ] A$=[### ] X= 3790.9 - F= 0 S$=[### ] -*** TEST PASSED *** -TESTCASE # 75 E= 1 R$=[] A$=[ ' ] X= --4.2981E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 76 E= 1 R$=[] A$=[ dd ] X=-7.05453E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 77 E= 1 R$=[] A$=[ TT ] X=-3.10179E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 78 E= 1 R$=[] A$=[ vvv ] X=-4.86159E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 79 E= 1 R$=[] A$=[ X ] X=-8.62908E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 80 E= 1 R$=[] A$=[ % ] X=-3.4101E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 81 E= 1 R$=[] A$=[ ] X= 3.3889E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 1 R$=[] A$=[ 5555 ] X= 2.49826E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 83 E= 1 R$=[] A$=[FFFF ] X= 2.3491E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 84 E= 1 R$=[] A$=[ %% ] X= 1.94745E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 85 E= 1 R$=[] A$=[ ] X= 2.02475E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 1 R$=[] A$=[ ~~~~ ] X= --2.26748E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 87 E= 1 R$=[] A$=[ || ] X=-2.10587E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 88 E= 1 R$=[] A$=[ SSS ] X= - 4.23585E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 89 E= 1 R$=[] A$=[ 6666 ] X=-2.66524E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 90 E= 1 R$=[] A$=[ ww ] X= 4.01052E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 91 E= 1 R$=[] A$=[ 1111 ] X=-4.87912E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 92 E= 1 R$=[] A$=[ K ] X= 1.77556E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 93 E= 1 R$=[] A$=[ ttttt ] X= 2.87705E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 94 E= 1 R$=[] A$=[ OOOOO ] X= 1.99977E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 95 E= 1 R$=[] A$=[ E ] X=-3.39941E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 96 E= 1 R$=[] A$=[ PPPPP ] X=-3.49119E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 97 E= 1 R$=[] A$=[ == ] X=-2.86324E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 98 E= 1 R$=[] A$=[ VVVV ] X= 4.20418E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 99 E= 1 R$=[] A$=[ c ] X=-3.1518E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 100 E= 1 R$=[] A$=[ yyyy ] -X= 4.60615E+9 - F= 1 S$=[] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_ROUND_X_Y_N.BAS b/bwbtest/NBS2X/F_ROUND_X_Y_N.BAS deleted file mode 100644 index 6d3eac7..0000000 --- a/bwbtest/NBS2X/F_ROUND_X_Y_N.BAS +++ /dev/null @@ -1,184 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:31 -REM FILENAME: F_ROUND_X_Y_N.BAS -REM SYNTAX: N = ROUND( X, Y ) -REM UNIQUEID: F_ROUND_X_Y_N -REM FUNCTION: ROUND -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM Y ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X, Y -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X, "Y=";Y -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = ROUND( X, Y ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 , 1 -DATA 3 , 0 , 0 , -1 , -1 -DATA 4 , 0 , .398107 , .4 , .4 -DATA 5 , 0 , 0 , -.4 , -.4 -DATA 6 , 0 , .502377 , .6 , .6 -DATA 7 , 0 , 0 , -.6 , -.6 -DATA 8 , 1 , 0 , 254 , 254 -DATA 9 , 1 , 0 , 255 , 255 -DATA 10 , 1 , 0 , 256 , 256 -DATA 11 , 1 , 0 , 32000 , 32000 -DATA 12 , 0 , 0 , -.227229 , -.227229 -DATA 13 , 0 , 0 , -.239157 , -.239157 -DATA 14 , 0 , 0 , -.213586 , -.213586 -DATA 15 , 0 , .531282 , .274675 , .274675 -DATA 16 , 0 , 0 , .169766 , .169766 -DATA 17 , 0 , .479992 , .318766 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 , .188257 -DATA 20 , 0 , 0 , -.277537 , -.277537 -DATA 21 , 0 , 0 , -.481303 , -.481303 -DATA 22 , 0 , .366809 , .43556 , .43556 -DATA 23 , 0 , 0 , -.210971 , -.210971 -DATA 24 , 0 , 0 , -.455216 , -.455216 -DATA 25 , 1 , 0 , -110.907 , -110.907 -DATA 26 , 1 , 0 , 105.632 , 105.632 -DATA 27 , 1 , 0 , -114.341 , -114.341 -DATA 28 , 1 , 0 , 109.706 , 109.706 -DATA 29 , 1 , 0 , 109.198 , 109.198 -DATA 30 , 1 , 0 , 85.8773 , 85.8773 -DATA 31 , 1 , 0 , -58.3548 , -58.3548 -DATA 32 , 0 , 29.6397 , 29.6397 , 29.6397 -DATA 33 , 1 , 0 , -108.36 , -108.36 -DATA 34 , 1 , 0 , -46.5199 , -46.5199 -DATA 35 , 1 , 0 , 112.521 , 112.521 -DATA 36 , 1 , 0 , 45.4151 , 45.4151 -DATA 37 , 1 , 0 , 101.129 , 101.129 -DATA 38 , 1 , 0 , 65.0473 , 65.0473 -DATA 39 , 1 , 0 , 48.4012 , 48.4012 -DATA 40 , 1 , 0 , 122.294 , 122.294 -DATA 41 , 1 , 0 , -56.1094 , -56.1094 -DATA 42 , 1 , 0 , -121.087 , -121.087 -DATA 43 , 1 , 0 , -123.517 , -123.517 -DATA 44 , 1 , 0 , -97.6301 , -97.6301 -DATA 45 , 1 , 0 , -64.0001 , -64.0001 -DATA 46 , 0 , 0 , -25.6888 , -25.6888 -DATA 47 , 0 , 14.8006 , 14.8006 , 14.8006 -DATA 48 , 1 , 0 , -61.0877 , -61.0877 -DATA 49 , 1 , 0 , -66.6381 , -66.6381 -DATA 50 , 1 , 0 , -5476.5 , -5476.5 -DATA 51 , 1 , 0 , -21210.3 , -21210.3 -DATA 52 , 1 , 0 , -28757.2 , -28757.2 -DATA 53 , 1 , 0 , -28732.2 , -28732.2 -DATA 54 , 1 , 0 , 12730.3 , 12730.3 -DATA 55 , 1 , 0 , -1830.69 , -1830.69 -DATA 56 , 1 , 0 , 5486.39 , 5486.39 -DATA 57 , 1 , 0 , 22405.9 , 22405.9 -DATA 58 , 1 , 0 , 30809.8 , 30809.8 -DATA 59 , 1 , 0 , -28930.6 , -28930.6 -DATA 60 , 1 , 0 , -6014.53 , -6014.53 -DATA 61 , 1 , 0 , 17414.6 , 17414.6 -DATA 62 , 1 , 0 , -10538.3 , -10538.3 -DATA 63 , 1 , 0 , -17536.3 , -17536.3 -DATA 64 , 1 , 0 , -8856.62 , -8856.62 -DATA 65 , 1 , 0 , -5140.12 , -5140.12 -DATA 66 , 1 , 0 , -8595.31 , -8595.31 -DATA 67 , 1 , 0 , -3382.87 , -3382.87 -DATA 68 , 1 , 0 , -5002.07 , -5002.07 -DATA 69 , 1 , 0 , -5800.72 , -5800.72 -DATA 70 , 1 , 0 , 29686.4 , 29686.4 -DATA 71 , 1 , 0 , 2571. , 2571. -DATA 72 , 1 , 0 , 31091. , 31091. -DATA 73 , 1 , 0 , 14819. , 14819. -DATA 74 , 1 , 0 , 3790.9 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 1 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 1 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 1 , 0 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 1 , 0 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 1 , 0 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 1 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 1 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 1 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 1 , 0 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 1 , 0 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 1 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 1 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 1 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 1 , 0 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 1 , 0 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_ROUND_X_Y_N.run b/bwbtest/NBS2X/F_ROUND_X_Y_N.run deleted file mode 100644 index 8376ad1..0000000 --- a/bwbtest/NBS2X/F_ROUND_X_Y_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 Y= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 Y= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 0 X=-1 Y=-1 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .398107 X= .4 Y= .4 - F= 0 N= .398107 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 0 X=-.4 Y=-.4 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .502377 X= .6 Y= .6 - F= 0 N= .502377 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 0 X=-.6 Y=-.6 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 X= 254 Y= 254 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 X= 255 Y= 255 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 X= 256 Y= 256 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 X= 32000 Y= 32000 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 0 X=-.227229 Y=-.227229 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 0 X=-.239157 Y=-.239157 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 0 X=-.213586 Y=-.213586 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .531282 X= .274675 Y= .274675 - F= 0 N= .531282 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 Y= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .479992 X= .318766 Y= .318766 - F= 0 N= .479992 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 Y= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 Y= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 0 X=-.277537 Y=-.277537 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 0 X=-.481303 Y=-.481303 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .366809 X= .43556 Y= .43556 - F= 0 N= .366809 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 0 X=-.210971 Y=-.210971 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 0 X=-.455216 Y=-.455216 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 Y=-110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 1 R= 0 X= 105.632 Y= 105.632 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 Y=-114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 1 R= 0 X= 109.706 Y= 109.706 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 1 R= 0 X= 109.198 Y= 109.198 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 1 R= 0 X= 85.8773 Y= 85.8773 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 Y=-58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 29.6397 X= 29.6397 Y= 29.6397 - F= 0 N= 29.6397 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 Y=-108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 Y=-46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 1 R= 0 X= 112.521 Y= 112.521 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 1 R= 0 X= 45.4151 Y= 45.4151 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 1 R= 0 X= 101.129 Y= 101.129 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 1 R= 0 X= 65.0473 Y= 65.0473 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 1 R= 0 X= 48.4012 Y= 48.4012 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 1 R= 0 X= 122.294 Y= 122.294 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 Y=-56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 Y=-121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 Y=-123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 Y=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 Y=-64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 0 X=-25.6888 Y=-25.6888 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 14.8006 X= 14.8006 Y= 14.8006 - F= 0 N= 14.8006 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 Y=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 Y=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 Y=-5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 Y=-21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 Y=-28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 Y=-28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 X= 12730.3 Y= 12730.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 Y=-1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 0 X= 5486.39 Y= 5486.39 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 X= 22405.9 Y= 22405.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 X= 30809.8 Y= 30809.8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 Y=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 Y=-6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 X= 17414.6 Y= 17414.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 Y=-10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 Y=-17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 Y=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 Y=-5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 Y=-8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 Y=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 Y=-5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 Y=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 X= 29686.4 Y= 29686.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 0 X= 2571 Y= 2571 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 X= 31091 Y= 31091 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 X= 14819 Y= 14819 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 0 X= 3790.9 Y= 3790.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 Y=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 Y=-7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 Y=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 Y=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 Y=-8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 Y=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 Y= 3.3889E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 Y= 2.49826E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 Y= 2.3491E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 X= 1.94745E+8 Y= 1.94745E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 X= 2.02475E+9 Y= 2.02475E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 Y=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 Y=-2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 Y= 4.23585E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 Y=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 Y= 4.01052E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 Y=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 X= 1.77556E+9 Y= 1.77556E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 X= 2.87705E+8 Y= 2.87705E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 X= 1.99977E+8 Y= 1.99977E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 Y=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 Y=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 Y=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 Y= 4.20418E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 Y=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 Y= - 4.60615E+9 - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_RTRIM_A_S.BAS b/bwbtest/NBS2X/F_RTRIM_A_S.BAS deleted file mode 100644 index 8b57f32..0000000 --- a/bwbtest/NBS2X/F_RTRIM_A_S.BAS +++ /dev/null @@ -1,159 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:32 -REM FILENAME: F_RTRIM_A_S.BAS -REM SYNTAX: S$ = RTRIM$( A$ ) -REM UNIQUEID: F_RTRIM_A_S -REM FUNCTION: RTRIM$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = RTRIM$( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", "" -DATA 2 , 0 , "", " " -DATA 3 , 0 , "3", "3" -DATA 4 , 0 , "z", "z" -DATA 5 , 0 , "", " " -DATA 6 , 0 , " 3", " 3" -DATA 7 , 0 , " z", " z" -DATA 8 , 0 , "3", "3 " -DATA 9 , 0 , "z", "z " -DATA 10 , 0 , " 3", " 3 " -DATA 11 , 0 , " z", " z " -DATA 12 , 0 , " LLLL", " LLLL" -DATA 13 , 0 , " ''", " '' " -DATA 14 , 0 , " oo", " oo " -DATA 15 , 0 , " 00", " 00 " -DATA 16 , 0 , " \\\\", " \\\\ " -DATA 17 , 0 , " lllll", " lllll " -DATA 18 , 0 , " uuuu", " uuuu " -DATA 19 , 0 , " a", " a " -DATA 20 , 0 , "", " " -DATA 21 , 0 , " hh", " hh " -DATA 22 , 0 , " h", " h " -DATA 23 , 0 , " )", " )" -DATA 24 , 0 , " 5", " 5 " -DATA 25 , 0 , " 2", " 2 " -DATA 26 , 0 , " -", " - " -DATA 27 , 0 , "dd", "dd " -DATA 28 , 0 , " tttt", " tttt " -DATA 29 , 0 , " ::::", " :::: " -DATA 30 , 0 , " ___", " ___ " -DATA 31 , 0 , "", " " -DATA 32 , 0 , "", " " -DATA 33 , 0 , " _____", " _____ " -DATA 34 , 0 , " S", " S " -DATA 35 , 0 , " FFFF", " FFFF " -DATA 36 , 0 , " kkk", " kkk" -DATA 37 , 0 , " NNNN", " NNNN " -DATA 38 , 0 , " mmmm", " mmmm " -DATA 39 , 0 , " ,,,,,", " ,,,,, " -DATA 40 , 0 , "OO", "OO " -DATA 41 , 0 , " HHHH", " HHHH " -DATA 42 , 0 , " <", " < " -DATA 43 , 0 , " j", " j " -DATA 44 , 0 , " yyyy", " yyyy " -DATA 45 , 0 , " +++", " +++ " -DATA 46 , 0 , "o", "o " -DATA 47 , 0 , " ((", " ((" -DATA 48 , 0 , " uu", " uu " -DATA 49 , 0 , " 00", " 00 " -DATA 50 , 0 , " HH", " HH " -DATA 51 , 0 , "", " " -DATA 52 , 0 , " G", " G " -DATA 53 , 0 , " {{{{", " {{{{ " -DATA 54 , 0 , " ]]]", " ]]] " -DATA 55 , 0 , "CCC", "CCC" -DATA 56 , 0 , " 44", " 44 " -DATA 57 , 0 , "^^", "^^ " -DATA 58 , 0 , " QQ", " QQ " -DATA 59 , 0 , " FFFF", " FFFF " -DATA 60 , 0 , " n", " n " -DATA 61 , 0 , " hh", " hh " -DATA 62 , 0 , "555", "555 " -DATA 63 , 0 , " YYYY", " YYYY " -DATA 64 , 0 , " w", " w " -DATA 65 , 0 , "MMMM", "MMMM " -DATA 66 , 0 , " JJJJ", " JJJJ " -DATA 67 , 0 , " %%", " %% " -DATA 68 , 0 , " *", " * " -DATA 69 , 0 , " @@@", " @@@ " -DATA 70 , 0 , "I", "I " -DATA 71 , 0 , " ss", " ss " -DATA 72 , 0 , " f", " f " -DATA 73 , 0 , " D", " D " -DATA 74 , 0 , "###", "### " -DATA 75 , 0 , " '", " ' " -DATA 76 , 0 , " dd", " dd " -DATA 77 , 0 , " TT", " TT " -DATA 78 , 0 , " vvv", " vvv " -DATA 79 , 0 , " X", " X " -DATA 80 , 0 , " %", " % " -DATA 81 , 0 , "", " " -DATA 82 , 0 , " 5555", " 5555 " -DATA 83 , 0 , "FFFF", "FFFF " -DATA 84 , 0 , " %%", " %% " -DATA 85 , 0 , "", " " -DATA 86 , 0 , " ~~~~", " ~~~~ " -DATA 87 , 0 , " ||", " || " -DATA 88 , 0 , " SSS", " SSS " -DATA 89 , 0 , " 6666", " 6666 " -DATA 90 , 0 , " ww", " ww " -DATA 91 , 0 , " 1111", " 1111 " -DATA 92 , 0 , " K", " K " -DATA 93 , 0 , " ttttt", " ttttt " -DATA 94 , 0 , " OOOOO", " OOOOO " -DATA 95 , 0 , " E", " E " -DATA 96 , 0 , " PPPPP", " PPPPP " -DATA 97 , 0 , " ==", " == " -DATA 98 , 0 , " VVVV", " VVVV " -DATA 99 , 0 , " c", " c " -DATA 100 , 0 , " yyyy", " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_RTRIM_A_S.run b/bwbtest/NBS2X/F_RTRIM_A_S.run deleted file mode 100644 index c93e67c..0000000 --- a/bwbtest/NBS2X/F_RTRIM_A_S.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] A$=[] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 3 E= 0 R$=[3] A$=[3] - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[z] A$=[z] - F= 0 S$=[z] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ 3] A$=[ 3] - F= 0 S$=[ 3] -*** TEST PASSED *** -TESTCASE # 7 E= 0 R$=[ z] A$=[ z] - F= 0 S$=[ z] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[3] A$=[3 ] - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[z] A$=[z ] - F= 0 S$=[z] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[ 3] A$=[ 3 ] - F= 0 S$=[ 3] -*** TEST PASSED *** -TESTCASE # 11 E= 0 R$=[ z] A$=[ z ] - F= 0 S$=[ z] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[ LLLL] A$=[ LLLL] - F= 0 S$=[ LLLL] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[ ''] A$=[ '' ] - F= 0 S$=[ ''] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[ oo] A$=[ oo ] - F= 0 S$=[ oo] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[ 00] A$=[ 00 ] - F= 0 S$=[ 00] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[ \\\\] A$=[ \\\\ ] - F= 0 S$=[ \\\\] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[ lllll] A$=[ lllll ] - F= 0 S$=[ lllll] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[ uuuu] A$=[ uuuu ] - F= 0 S$=[ uuuu] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[ a] A$=[ a ] - F= 0 S$=[ a] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[ hh] A$=[ hh ] - F= 0 S$=[ hh] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[ h] A$=[ h ] - F= 0 S$=[ h] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[ )] A$=[ )] - F= 0 S$=[ )] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[ 5] A$=[ 5 ] - F= 0 S$=[ 5] -*** TEST PASSED *** -TESTCASE # 25 E= 0 R$=[ 2] A$=[ 2 ] - F= 0 S$=[ 2] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[ -] A$=[ - ] - F= 0 S$=[ -] -*** TEST PASSED *** -TESTCASE # 27 E= 0 R$=[dd] A$=[dd ] - F= 0 S$=[dd] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[ tttt] A$=[ tttt ] - F= 0 S$=[ tttt] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[ ::::] A$=[ :::: ] - F= 0 S$=[ ::::] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[ ___] A$=[ ___ ] - F= 0 S$=[ ___] -*** TEST PASSED *** -TESTCASE # 31 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 33 E= 0 R$=[ _____] A$=[ _____ ] - F= 0 S$=[ _____] -*** TEST PASSED *** -TESTCASE # 34 E= 0 R$=[ S] A$=[ S ] - F= 0 S$=[ S] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[ FFFF] A$=[ FFFF ] - F= 0 S$=[ FFFF] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[ kkk] A$=[ kkk] - F= 0 S$=[ kkk] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[ NNNN] A$=[ NNNN ] - F= 0 S$=[ NNNN] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[ mmmm] A$=[ mmmm ] - F= 0 S$=[ mmmm] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[ ,,,,,] A$=[ ,,,,, ] - F= 0 S$=[ ,,,,,] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[OO] A$=[OO ] - F= 0 S$=[OO] -*** TEST PASSED *** -TESTCASE # 41 E= 0 R$=[ HHHH] A$=[ HHHH ] - F= 0 S$=[ HHHH] -*** TEST PASSED *** -TESTCASE # 42 E= 0 R$=[ <] A$=[ < ] - F= 0 S$=[ <] -*** TEST PASSED *** -TESTCASE # 43 E= 0 R$=[ j] A$=[ j ] - F= 0 S$=[ j] -*** TEST PASSED *** -TESTCASE # 44 E= 0 R$=[ yyyy] A$=[ yyyy ] - F= 0 S$=[ yyyy] -*** TEST PASSED *** -TESTCASE # 45 E= 0 R$=[ +++] A$=[ +++ ] - F= 0 S$=[ +++] -*** TEST PASSED *** -TESTCASE # 46 E= 0 R$=[o] A$=[o ] - F= 0 S$=[o] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[ ((] A$=[ ((] - F= 0 S$=[ ((] -*** TEST PASSED *** -TESTCASE # 48 E= 0 R$=[ uu] A$=[ uu ] - F= 0 S$=[ uu] -*** TEST PASSED *** -TESTCASE # 49 E= 0 R$=[ 00] A$=[ 00 ] - F= 0 S$=[ 00] -*** TEST PASSED *** -TESTCASE # 50 E= 0 R$=[ HH] A$=[ HH ] - F= 0 S$=[ HH] -*** TEST PASSED *** -TESTCASE # 51 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 0 R$=[ G] A$=[ G ] - F= 0 S$=[ G] -*** TEST PASSED *** -TESTCASE # 53 E= 0 R$=[ {{{{] A$=[ {{{{ ] - F= 0 S$=[ {{{{] -*** TEST PASSED *** -TESTCASE # 54 E= 0 R$=[ ]]]] A$=[ ]]] ] - F= 0 S$=[ ]]]] -*** TEST PASSED *** -TESTCASE # 55 E= 0 R$=[CCC] A$=[CCC] - F= 0 S$=[CCC] -*** TEST PASSED *** -TESTCASE # 56 E= 0 R$=[ 44] A$=[ 44 ] - F= 0 S$=[ 44] -*** TEST PASSED *** -TESTCASE # 57 E= 0 R$=[^^] A$=[^^ ] - F= 0 S$=[^^] -*** TEST PASSED *** -TESTCASE # 58 E= 0 R$=[ QQ] A$=[ QQ ] - F= 0 S$=[ QQ] -*** TEST PASSED *** -TESTCASE # 59 E= 0 R$=[ FFFF] A$=[ FFFF ] - F= 0 S$=[ FFFF] -*** TEST PASSED *** -TESTCASE # 60 E= 0 R$=[ n] A$=[ n ] - F= 0 S$=[ n] -*** TEST PASSED *** -TESTCASE # 61 E= 0 R$=[ hh] A$=[ hh ] - F= 0 S$=[ hh] -*** TEST PASSED *** -TESTCASE # 62 E= 0 R$=[555] A$=[555 ] - F= 0 S$=[555] -*** TEST PASSED *** -TESTCASE # 63 E= 0 R$=[ YYYY] A$=[ YYYY ] - F= 0 S$=[ YYYY] -*** TEST PASSED *** -TESTCASE # 64 E= 0 R$=[ w] A$=[ w ] - F= 0 S$=[ w] -*** TEST PASSED *** -TESTCASE # 65 E= 0 R$=[MMMM] A$=[MMMM ] - F= 0 S$=[MMMM] -*** TEST PASSED *** -TESTCASE # 66 E= 0 R$=[ JJJJ] A$=[ JJJJ ] - F= 0 S$=[ JJJJ] -*** TEST PASSED *** -TESTCASE # 67 E= 0 R$=[ %%] A$=[ %% ] - F= 0 S$=[ %%] -*** TEST PASSED *** -TESTCASE # 68 E= 0 R$=[ *] A$=[ * ] - F= 0 S$=[ *] -*** TEST PASSED *** -TESTCASE # 69 E= 0 R$=[ @@@] A$=[ @@@ ] - F= 0 S$=[ @@@] -*** TEST PASSED *** -TESTCASE # 70 E= 0 R$=[I] A$=[I ] - F= 0 S$=[I] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ ss] A$=[ ss ] - F= 0 S$=[ ss] -*** TEST PASSED *** -TESTCASE # 72 E= 0 R$=[ f] A$=[ f ] - F= 0 S$=[ f] -*** TEST PASSED *** -TESTCASE # 73 E= 0 R$=[ D] A$=[ D ] - F= 0 S$=[ D] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[###] A$=[### ] - F= 0 S$=[###] -*** TEST PASSED *** -TESTCASE # 75 E= 0 R$=[ '] A$=[ ' ] - F= 0 S$=[ '] -*** TEST PASSED *** -TESTCASE # 76 E= 0 R$=[ dd] A$=[ dd ] - F= 0 S$=[ dd] -*** TEST PASSED *** -TESTCASE # 77 E= 0 R$=[ TT] A$=[ TT ] - F= 0 S$=[ TT] -*** TEST PASSED *** -TESTCASE # 78 E= 0 R$=[ vvv] A$=[ vvv ] - F= 0 S$=[ vvv] -*** TEST PASSED *** -TESTCASE # 79 E= 0 R$=[ X] A$=[ X ] - F= 0 S$=[ X] -*** TEST PASSED *** -TESTCASE # 80 E= 0 R$=[ %] A$=[ % ] - F= 0 S$=[ %] -*** TEST PASSED *** -TESTCASE # 81 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 0 R$=[ 5555] A$=[ 5555 ] - F= 0 S$=[ 5555] -*** TEST PASSED *** -TESTCASE # 83 E= 0 R$=[FFFF] A$=[FFFF ] - F= 0 S$=[FFFF] -*** TEST PASSED *** -TESTCASE # 84 E= 0 R$=[ %%] A$=[ %% ] - F= 0 S$=[ %%] -*** TEST PASSED *** -TESTCASE # 85 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 0 R$=[ ~~~~] A$=[ ~~~~ ] - F= 0 S$=[ ~~~~] -*** TEST PASSED *** -TESTCASE # 87 E= 0 R$=[ ||] A$=[ || ] - F= 0 S$=[ ||] -*** TEST PASSED *** -TESTCASE # 88 E= 0 R$=[ SSS] A$=[ SSS ] - F= 0 S$=[ SSS] -*** TEST PASSED *** -TESTCASE # 89 E= 0 R$=[ 6666] A$=[ 6666 ] - F= 0 S$=[ 6666] -*** TEST PASSED *** -TESTCASE # 90 E= 0 R$=[ ww] A$=[ ww ] - F= 0 S$=[ ww] -*** TEST PASSED *** -TESTCASE # 91 E= 0 R$=[ 1111] A$=[ 1111 ] - F= 0 S$=[ 1111] -*** TEST PASSED *** -TESTCASE # 92 E= 0 R$=[ K] A$=[ K ] - F= 0 S$=[ K] -*** TEST PASSED *** -TESTCASE # 93 E= 0 R$=[ ttttt] A$=[ ttttt ] - F= 0 S$=[ ttttt] -*** TEST PASSED *** -TESTCASE # 94 E= 0 R$=[ OOOOO] A$=[ OOOOO ] - F= 0 S$=[ OOOOO] -*** TEST PASSED *** -TESTCASE # 95 E= 0 R$=[ E] A$=[ E ] - F= 0 S$=[ E] -*** TEST PASSED *** -TESTCASE # 96 E= 0 R$=[ PPPPP] A$=[ PPPPP ] - F= 0 S$=[ PPPPP] -*** TEST PASSED *** -TESTCASE # 97 E= 0 R$=[ ==] A$=[ == ] - F= 0 S$=[ ==] -*** TEST PASSED *** -TESTCASE # 98 E= 0 R$=[ VVVV] A$=[ VVVV ] - F= 0 S$=[ VVVV] -*** TEST PASSED *** -TESTCASE # 99 E= 0 R$=[ c] A$=[ c ] - F= 0 S$=[ c] -*** TEST PASSED *** -TESTCASE # 100 E= 0 R$=[ yyyy] A$=[ yyyy ] - F= 0 S$=[ yyyy] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_SEC_X_N.BAS b/bwbtest/NBS2X/F_SEC_X_N.BAS deleted file mode 100644 index 87c42ad..0000000 --- a/bwbtest/NBS2X/F_SEC_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:32 -REM FILENAME: F_SEC_X_N.BAS -REM SYNTAX: N = SEC( X ) -REM UNIQUEID: F_SEC_X_N -REM FUNCTION: SEC -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = SEC( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 1 , 0 -DATA 2 , 0 , 1.85082 , 1 -DATA 3 , 0 , 1.85082 , -1 -DATA 4 , 0 , 1.0857 , .4 -DATA 5 , 0 , 1.0857 , -.4 -DATA 6 , 0 , 1.21163 , .6 -DATA 7 , 0 , 1.21163 , -.6 -DATA 8 , 0 , -1.12105 , 254 -DATA 9 , 0 , -1.15968 , 255 -DATA 10 , 0 , -25.1315 , 256 -DATA 11 , 0 , 1.03555 , 32000 -DATA 12 , 0 , 1.02638 , -.227229 -DATA 13 , 0 , 1.0293 , -.239157 -DATA 14 , 0 , 1.02325 , -.213586 -DATA 15 , 0 , 1.03895 , .274675 -DATA 16 , 0 , 1.01459 , .169766 -DATA 17 , 0 , 1.05305 , .318766 -DATA 18 , 0 , 1.00021 , 2.06658E-2 -DATA 19 , 0 , 1.01799 , .188257 -DATA 20 , 0 , 1.03979 , -.277537 -DATA 21 , 0 , 1.12817 , -.481303 -DATA 22 , 0 , 1.10298 , .43556 -DATA 23 , 0 , 1.02267 , -.210971 -DATA 24 , 0 , 1.11338 , -.455216 -DATA 25 , 0 , -1.72218 , -110.907 -DATA 26 , 0 , 2.63897 , 105.632 -DATA 27 , 0 , 3.11208 , -114.341 -DATA 28 , 0 , -1.03202 , 109.706 -DATA 29 , 0 , -1.37667 , 109.198 -DATA 30 , 0 , -2.02496 , 85.8773 -DATA 31 , 0 , -4.28872 , -58.3548 -DATA 32 , 0 , -4.90224 , 29.6397 -DATA 33 , 0 , 40.0899 , -108.36 -DATA 34 , 0 , -1.21495 , -46.5199 -DATA 35 , 0 , 1.19266 , 112.521 -DATA 36 , 0 , 7.26977 , 45.4151 -DATA 37 , 0 , 1.21 , 101.129 -DATA 38 , 0 , -1.66412 , 65.0473 -DATA 39 , 0 , -3.45673 , 48.4012 -DATA 40 , 0 , -1.02659 , 122.294 -DATA 41 , 0 , 1.1049 , -56.1094 -DATA 42 , 0 , -7.39279 , -121.087 -DATA 43 , 0 , -1.83622 , -123.517 -DATA 44 , 0 , -1.02969 , -97.6301 -DATA 45 , 0 , 2.55255 , -64.0001 -DATA 46 , 0 , 1.17738 , -25.6888 -DATA 47 , 0 , -1.62384 , 14.8006 -DATA 48 , 0 , -5.79745 , -61.0877 -DATA 49 , 0 , -1.27044 , -66.6381 -DATA 50 , 0 , -1.3119 , -5476.5 -DATA 51 , 0 , -6.1697 , -21210.3 -DATA 52 , 0 , 1.69356 , -28757.2 -DATA 53 , 0 , 1.44489 , -28732.2 -DATA 54 , 0 , 1.18519 , 12730.3 -DATA 55 , 0 , -1.53008 , -1830.69 -DATA 56 , 0 , 2.55844 , 5486.39 -DATA 57 , 0 , 1.00188 , 22405.9 -DATA 58 , 0 , -1.02051 , 30809.8 -DATA 59 , 0 , -1.05586 , -28930.6 -DATA 60 , 0 , 20.3602 , -6014.53 -DATA 61 , 0 , -1.36915 , 17414.6 -DATA 62 , 0 , 5.82406 , -10538.3 -DATA 63 , 0 , 1.00247 , -17536.3 -DATA 64 , 0 , -1.1218 , -8856.62 -DATA 65 , 0 , 1.12415 , -5140.12 -DATA 66 , 0 , 1.00384 , -8595.31 -DATA 67 , 0 , -1.23336 , -3382.87 -DATA 68 , 0 , 1.26047 , -5002.07 -DATA 69 , 0 , 4.37081 , -5800.72 -DATA 70 , 0 , -12.5478 , 29686.4 -DATA 71 , 0 , 2.60754 , 2571. -DATA 72 , 0 , -4.41841 , 31091. -DATA 73 , 0 , -1.0058 , 14819. -DATA 74 , 0 , -1.85757 , 3790.9 -DATA 75 , 0 , 1.21811 , -4.2981E+9 -DATA 76 , 0 , 1.10197 , -7.05453E+8 -DATA 77 , 0 , 1.09563 , -3.10179E+9 -DATA 78 , 0 , 4.44344 , -4.86159E+9 -DATA 79 , 0 , -1.49665 , -8.62908E+8 -DATA 80 , 0 , -1.08191 , -3.4101E+9 -DATA 81 , 0 , -1.6201 , 3.3889E+9 -DATA 82 , 0 , 1.44883 , 2.49826E+9 -DATA 83 , 0 , 2.44122 , 2.3491E+9 -DATA 84 , 0 , -1.28179 , 1.94745E+8 -DATA 85 , 0 , 1.01278 , 2.02475E+9 -DATA 86 , 0 , -1.54534 , -2.26748E+9 -DATA 87 , 0 , 1.00158 , -2.10587E+9 -DATA 88 , 0 , -2.99423 , 4.23585E+9 -DATA 89 , 0 , -1.01375 , -2.66524E+9 -DATA 90 , 0 , -1.47161 , 4.01052E+9 -DATA 91 , 0 , 1.07953 , -4.87912E+9 -DATA 92 , 0 , 25.4889 , 1.77556E+9 -DATA 93 , 0 , 1.2236 , 2.87705E+8 -DATA 94 , 0 , 1.06209 , 1.99977E+8 -DATA 95 , 0 , 1.21439 , -3.39941E+9 -DATA 96 , 0 , 6.9457 , -3.49119E+9 -DATA 97 , 0 , -18.8696 , -2.86324E+9 -DATA 98 , 0 , -1.6737 , 4.20418E+9 -DATA 99 , 0 , -1.53453 , -3.1518E+9 -DATA 100 , 0 , 1.3945 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_SEC_X_N.run b/bwbtest/NBS2X/F_SEC_X_N.run deleted file mode 100644 index 3c02fff..0000000 --- a/bwbtest/NBS2X/F_SEC_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 1 X= 0 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1.85082 X= 1 - F= 0 N= 1.85082 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 1.85082 X=-1 - F= 0 N= 1.85082 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 1.0857 X= .4 - F= 0 N= 1.0857 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R= 1.0857 X=-.4 - F= 0 N= 1.0857 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1.21163 X= .6 - F= 0 N= 1.21163 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R= 1.21163 X=-.6 - F= 0 N= 1.21163 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R=-1.12105 X= 254 - F= 0 N=-1.12105 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R=-1.15968 X= 255 - F= 0 N=-1.15968 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R=-25.1315 X= 256 - F= 0 N=-25.1315 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 1.03555 X= 32000 - F= 0 N= 1.03555 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R= 1.02638 X=-.227229 - F= 0 N= 1.02638 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R= 1.0293 X=-.239157 - F= 0 N= 1.0293 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R= 1.02325 X=-.213586 - F= 0 N= 1.02325 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 1.03895 X= .274675 - F= 0 N= 1.03895 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1.01459 X= .169766 - F= 0 N= 1.01459 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1.05305 X= .318766 - F= 0 N= 1.05305 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 1.00021 X= 2.06658E-2 - F= 0 N= 1.00021 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 1.01799 X= .188257 - F= 0 N= 1.01799 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R= 1.03979 X=-.277537 - F= 0 N= 1.03979 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R= 1.12817 X=-.481303 - F= 0 N= 1.12817 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 1.10298 X= .43556 - F= 0 N= 1.10298 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R= 1.02267 X=-.210971 - F= 0 N= 1.02267 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 1.11338 X=-.455216 - F= 0 N= 1.11338 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-1.72218 X=-110.907 - F= 0 N=-1.72218 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 2.63897 X= 105.632 - F= 0 N= 2.63897 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R= 3.11208 X=-114.341 - F= 0 N= 3.11208 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R=-1.03202 X= 109.706 - F= 0 N=-1.03202 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R=-1.37667 X= 109.198 - F= 0 N=-1.37667 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R=-2.02496 X= 85.8773 - F= 0 N=-2.02496 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-4.28872 X=-58.3548 - F= 0 N=-4.28872 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R=-4.90224 X= 29.6397 - F= 0 N=-4.90224 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R= 40.0899 X=-108.36 - F= 0 N= 40.0899 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-1.21495 X=-46.5199 - F= 0 N=-1.21495 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 1.19266 X= 112.521 - F= 0 N= 1.19266 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 7.26977 X= 45.4151 - F= 0 N= 7.26977 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1.21 X= 101.129 - F= 0 N= 1.21 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R=-1.66412 X= 65.0473 - F= 0 N=-1.66412 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R=-3.45673 X= 48.4012 - F= 0 N=-3.45673 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R=-1.02659 X= 122.294 - F= 0 N=-1.02659 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= 1.1049 X=-56.1094 - F= 0 N= 1.1049 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-7.39279 X=-121.087 - F= 0 N=-7.39279 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-1.83622 X=-123.517 - F= 0 N=-1.83622 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-1.02969 X=-97.6301 - F= 0 N=-1.02969 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R= 2.55255 X=-64.0001 - F= 0 N= 2.55255 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R= 1.17738 X=-25.6888 - F= 0 N= 1.17738 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R=-1.62384 X= 14.8006 - F= 0 N=-1.62384 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-5.79745 X=-61.0877 - F= 0 N=-5.79745 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-1.27044 X=-66.6381 - F= 0 N=-1.27044 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-1.3119 X=-5476.5 - F= 0 N=-1.3119 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-6.1697 X=-21210.3 - F= 0 N=-6.1697 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 1.69356 X=-28757.2 - F= 0 N= 1.69356 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 1.44489 X=-28732.2 - F= 0 N= 1.44489 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 1.18519 X= 12730.3 - F= 0 N= 1.18519 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1.53008 X=-1830.69 - F= 0 N=-1.53008 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 2.55844 X= 5486.39 - F= 0 N= 2.55844 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 1.00188 X= 22405.9 - F= 0 N= 1.00188 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R=-1.02051 X= 30809.8 - F= 0 N=-1.02051 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-1.05586 X=-28930.6 - F= 0 N=-1.05586 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R= 20.3602 X=-6014.53 - F= 0 N= 20.3602 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R=-1.36915 X= 17414.6 - F= 0 N=-1.36915 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 5.82406 X=-10538.3 - F= 0 N= 5.82406 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 1.00247 X=-17536.3 - F= 0 N= 1.00247 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-1.1218 X=-8856.62 - F= 0 N=-1.1218 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R= 1.12415 X=-5140.12 - F= 0 N= 1.12415 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 1.00384 X=-8595.31 - F= 0 N= 1.00384 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-1.23336 X=-3382.87 - F= 0 N=-1.23336 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R= 1.26047 X=-5002.07 - F= 0 N= 1.26047 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R= 4.37081 X=-5800.72 - F= 0 N= 4.37081 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R=-12.5478 X= 29686.4 - F= 0 N=-12.5478 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2.60754 X= 2571 - F= 0 N= 2.60754 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R=-4.41841 X= 31091 - F= 0 N=-4.41841 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R=-1.0058 X= 14819 - F= 0 N=-1.0058 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R=-1.85757 X= 3790.9 - F= 0 N=-1.85757 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= 1.21811 X=-4.2981E+9 - F= 0 N= 1.21811 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R= 1.10197 X=-7.05453E+8 - F= 0 N= 1.10197 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= 1.09563 X=-3.10179E+9 - F= 0 N= 1.09563 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 4.44344 X=-4.86159E+9 - F= 0 N= 4.44344 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-1.49665 X=-8.62908E+8 - F= 0 N=-1.49665 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-1.08191 X=-3.4101E+9 - F= 0 N=-1.08191 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R=-1.6201 X= 3.3889E+9 - F= 0 N=-1.6201 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 1.44883 X= 2.49826E+9 - F= 0 N= 1.44883 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 2.44122 X= 2.3491E+9 - F= 0 N= 2.44122 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R=-1.28179 X= 1.94745E+8 - F= 0 N=-1.28179 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 1.01278 X= 2.02475E+9 - F= 0 N= 1.01278 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-1.54534 X=-2.26748E+9 - F= 0 N=-1.54534 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R= 1.00158 X=-2.10587E+9 - F= 0 N= 1.00158 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R=-2.99423 X= 4.23585E+9 - F= 0 N=-2.99423 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-1.01375 X=-2.66524E+9 - F= 0 N=-1.01375 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R=-1.47161 X= 4.01052E+9 - F= 0 N=-1.47161 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 1.07953 X=-4.87912E+9 - F= 0 N= 1.07953 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 25.4889 X= 1.77556E+9 - F= 0 N= 25.4889 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 1.2236 X= 2.87705E+8 - F= 0 N= 1.2236 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1.06209 X= 1.99977E+8 - F= 0 N= 1.06209 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R= 1.21439 X=-3.39941E+9 - F= 0 N= 1.21439 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 6.9457 X=-3.49119E+9 - F= 0 N= 6.9457 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-18.8696 X=-2.86324E+9 - F= 0 N=-18.8696 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R=-1.6737 X= 4.20418E+9 - F= 0 N=-1.6737 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-1.53453 X=-3.1518E+9 - F= 0 N=-1.53453 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 1.3945 X= 4.60615E+9 - F= 0 N= 1.3945 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_SGN_X_N.BAS b/bwbtest/NBS2X/F_SGN_X_N.BAS deleted file mode 100644 index ecee1cd..0000000 --- a/bwbtest/NBS2X/F_SGN_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:32 -REM FILENAME: F_SGN_X_N.BAS -REM SYNTAX: N = SGN( X ) -REM UNIQUEID: F_SGN_X_N -REM FUNCTION: SGN -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = SGN( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 0 , -1 , -1 -DATA 4 , 0 , 1 , .4 -DATA 5 , 0 , -1 , -.4 -DATA 6 , 0 , 1 , .6 -DATA 7 , 0 , -1 , -.6 -DATA 8 , 0 , 1 , 254 -DATA 9 , 0 , 1 , 255 -DATA 10 , 0 , 1 , 256 -DATA 11 , 0 , 1 , 32000 -DATA 12 , 0 , -1 , -.227229 -DATA 13 , 0 , -1 , -.239157 -DATA 14 , 0 , -1 , -.213586 -DATA 15 , 0 , 1 , .274675 -DATA 16 , 0 , 1 , .169766 -DATA 17 , 0 , 1 , .318766 -DATA 18 , 0 , 1 , 2.06658E-2 -DATA 19 , 0 , 1 , .188257 -DATA 20 , 0 , -1 , -.277537 -DATA 21 , 0 , -1 , -.481303 -DATA 22 , 0 , 1 , .43556 -DATA 23 , 0 , -1 , -.210971 -DATA 24 , 0 , -1 , -.455216 -DATA 25 , 0 , -1 , -110.907 -DATA 26 , 0 , 1 , 105.632 -DATA 27 , 0 , -1 , -114.341 -DATA 28 , 0 , 1 , 109.706 -DATA 29 , 0 , 1 , 109.198 -DATA 30 , 0 , 1 , 85.8773 -DATA 31 , 0 , -1 , -58.3548 -DATA 32 , 0 , 1 , 29.6397 -DATA 33 , 0 , -1 , -108.36 -DATA 34 , 0 , -1 , -46.5199 -DATA 35 , 0 , 1 , 112.521 -DATA 36 , 0 , 1 , 45.4151 -DATA 37 , 0 , 1 , 101.129 -DATA 38 , 0 , 1 , 65.0473 -DATA 39 , 0 , 1 , 48.4012 -DATA 40 , 0 , 1 , 122.294 -DATA 41 , 0 , -1 , -56.1094 -DATA 42 , 0 , -1 , -121.087 -DATA 43 , 0 , -1 , -123.517 -DATA 44 , 0 , -1 , -97.6301 -DATA 45 , 0 , -1 , -64.0001 -DATA 46 , 0 , -1 , -25.6888 -DATA 47 , 0 , 1 , 14.8006 -DATA 48 , 0 , -1 , -61.0877 -DATA 49 , 0 , -1 , -66.6381 -DATA 50 , 0 , -1 , -5476.5 -DATA 51 , 0 , -1 , -21210.3 -DATA 52 , 0 , -1 , -28757.2 -DATA 53 , 0 , -1 , -28732.2 -DATA 54 , 0 , 1 , 12730.3 -DATA 55 , 0 , -1 , -1830.69 -DATA 56 , 0 , 1 , 5486.39 -DATA 57 , 0 , 1 , 22405.9 -DATA 58 , 0 , 1 , 30809.8 -DATA 59 , 0 , -1 , -28930.6 -DATA 60 , 0 , -1 , -6014.53 -DATA 61 , 0 , 1 , 17414.6 -DATA 62 , 0 , -1 , -10538.3 -DATA 63 , 0 , -1 , -17536.3 -DATA 64 , 0 , -1 , -8856.62 -DATA 65 , 0 , -1 , -5140.12 -DATA 66 , 0 , -1 , -8595.31 -DATA 67 , 0 , -1 , -3382.87 -DATA 68 , 0 , -1 , -5002.07 -DATA 69 , 0 , -1 , -5800.72 -DATA 70 , 0 , 1 , 29686.4 -DATA 71 , 0 , 1 , 2571. -DATA 72 , 0 , 1 , 31091. -DATA 73 , 0 , 1 , 14819. -DATA 74 , 0 , 1 , 3790.9 -DATA 75 , 0 , -1 , -4.2981E+9 -DATA 76 , 0 , -1 , -7.05453E+8 -DATA 77 , 0 , -1 , -3.10179E+9 -DATA 78 , 0 , -1 , -4.86159E+9 -DATA 79 , 0 , -1 , -8.62908E+8 -DATA 80 , 0 , -1 , -3.4101E+9 -DATA 81 , 0 , 1 , 3.3889E+9 -DATA 82 , 0 , 1 , 2.49826E+9 -DATA 83 , 0 , 1 , 2.3491E+9 -DATA 84 , 0 , 1 , 1.94745E+8 -DATA 85 , 0 , 1 , 2.02475E+9 -DATA 86 , 0 , -1 , -2.26748E+9 -DATA 87 , 0 , -1 , -2.10587E+9 -DATA 88 , 0 , 1 , 4.23585E+9 -DATA 89 , 0 , -1 , -2.66524E+9 -DATA 90 , 0 , 1 , 4.01052E+9 -DATA 91 , 0 , -1 , -4.87912E+9 -DATA 92 , 0 , 1 , 1.77556E+9 -DATA 93 , 0 , 1 , 2.87705E+8 -DATA 94 , 0 , 1 , 1.99977E+8 -DATA 95 , 0 , -1 , -3.39941E+9 -DATA 96 , 0 , -1 , -3.49119E+9 -DATA 97 , 0 , -1 , -2.86324E+9 -DATA 98 , 0 , 1 , 4.20418E+9 -DATA 99 , 0 , -1 , -3.1518E+9 -DATA 100 , 0 , 1 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_SGN_X_N.run b/bwbtest/NBS2X/F_SGN_X_N.run deleted file mode 100644 index 2760649..0000000 --- a/bwbtest/NBS2X/F_SGN_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1 X=-1 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= 1 X= .4 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-1 X=-.4 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 1 X= .6 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-1 X=-.6 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 1 X= 254 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 1 X= 255 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 1 X= 256 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 1 X= 32000 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-1 X=-.227229 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-1 X=-.239157 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-1 X=-.213586 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 1 X= .274675 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 1 X= .169766 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 1 X= .318766 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 1 X= 2.06658E-2 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 1 X= .188257 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-1 X=-.277537 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-1 X=-.481303 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= 1 X= .43556 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-1 X=-.210971 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-1 X=-.455216 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-1 X=-110.907 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 1 X= 105.632 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-1 X=-114.341 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 1 X= 109.706 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 1 X= 109.198 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1 X= 85.8773 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-1 X=-58.3548 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 1 X= 29.6397 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-1 X=-108.36 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-1 X=-46.5199 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 1 X= 112.521 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 1 X= 45.4151 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1 X= 101.129 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1 X= 65.0473 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 1 X= 48.4012 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 1 X= 122.294 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-1 X=-56.1094 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-1 X=-121.087 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-1 X=-123.517 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-1 X=-97.6301 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-1 X=-64.0001 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-1 X=-25.6888 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 1 X= 14.8006 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-1 X=-61.0877 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-1 X=-66.6381 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-1 X=-5476.5 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-1 X=-21210.3 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-1 X=-28757.2 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-1 X=-28732.2 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 1 X= 12730.3 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1 X=-1830.69 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 1 X= 5486.39 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 1 X= 22405.9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 1 X= 30809.8 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-1 X=-28930.6 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-1 X=-6014.53 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 1 X= 17414.6 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-1 X=-10538.3 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-1 X=-17536.3 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-1 X=-8856.62 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-1 X=-5140.12 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-1 X=-8595.31 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-1 X=-3382.87 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-1 X=-5002.07 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-1 X=-5800.72 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 1 X= 29686.4 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 1 X= 2571 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 1 X= 31091 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 1 X= 14819 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 1 X= 3790.9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-1 X=-4.2981E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-1 X=-7.05453E+8 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-1 X=-3.10179E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-1 X=-4.86159E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-1 X=-8.62908E+8 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-1 X=-3.4101E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 1 X= 3.3889E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 1 X= 2.49826E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 1 X= 2.3491E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1 X= 1.94745E+8 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 1 X= 2.02475E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-1 X=-2.26748E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-1 X=-2.10587E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 1 X= 4.23585E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-1 X=-2.66524E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 1 X= 4.01052E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-1 X=-4.87912E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1 X= 1.77556E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 1 X= 2.87705E+8 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1 X= 1.99977E+8 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-1 X=-3.39941E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-1 X=-3.49119E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-1 X=-2.86324E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 1 X= 4.20418E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-1 X=-3.1518E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 1 X= 4.60615E+9 - F= 0 N= 1 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_SINH_X_N.BAS b/bwbtest/NBS2X/F_SINH_X_N.BAS deleted file mode 100644 index efc6974..0000000 --- a/bwbtest/NBS2X/F_SINH_X_N.BAS +++ /dev/null @@ -1,185 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:33 -REM FILENAME: F_SINH_X_N.BAS -REM SYNTAX: N = SINH( X ) -REM UNIQUEID: F_SINH_X_N -REM FUNCTION: SINH -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = SINH( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -IF E = 0 THEN - REM VERIFY EXPECTED RESULT - IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF - END IF - IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R - END IF - IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 - END IF - IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP - END IF - IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP - END IF -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1.1752 , 1 -DATA 3 , 0 , -1.1752 , -1 -DATA 4 , 0 , .410752 , .4 -DATA 5 , 0 , -.410752 , -.4 -DATA 6 , 0 , .636654 , .6 -DATA 7 , 0 , -.636654 , -.6 -DATA 8 , 0 , 1.02275E+110 , 254 -DATA 9 , 0 , 2.78012E+110 , 255 -DATA 10 , 0 , 7.55714E+110 , 256 -DATA 11 , 1 , 1.79769E+308 , 32000 -DATA 12 , 0 , -.229189 , -.227229 -DATA 13 , 0 , -.241443 , -.239157 -DATA 14 , 0 , -.215214 , -.213586 -DATA 15 , 0 , .278142 , .274675 -DATA 16 , 0 , .170583 , .169766 -DATA 17 , 0 , .324192 , .318766 -DATA 18 , 0 , 2.06673E-2 , 2.06658E-2 -DATA 19 , 0 , .189371 , .188257 -DATA 20 , 0 , -.281114 , -.277537 -DATA 21 , 0 , -.500102 , -.481303 -DATA 22 , 0 , .449463 , .43556 -DATA 23 , 0 , -.212539 , -.210971 -DATA 24 , 0 , -.471101 , -.455216 -DATA 25 , 0 , -7.33277E+47 , -110.907 -DATA 26 , 0 , 3.75288E+45 , 105.632 -DATA 27 , 0 , -2.27319E+49 , -114.341 -DATA 28 , 0 , 2.20638E+47 , 109.706 -DATA 29 , 0 , 1.32757E+47 , 109.198 -DATA 30 , 0 , 9.8857E+36 , 85.8773 -DATA 31 , 0 , -1.10189E+25 , -58.3548 -DATA 32 , 0 , 3.72673E+12 , 29.6397 -DATA 33 , 0 , -5.74275E+46 , -108.36 -DATA 34 , 0 , -7.98557E+19 , -46.5199 -DATA 35 , 0 , 3.68315E+48 , 112.521 -DATA 36 , 0 , 2.64544E+19 , 45.4151 -DATA 37 , 0 , 4.15658E+43 , 101.129 -DATA 38 , 0 , 8.88492E+27 , 65.0473 -DATA 39 , 0 , 5.24015E+20 , 48.4012 -DATA 40 , 0 , 6.46516E+52 , 122.294 -DATA 41 , 0 , -1.16674E+24 , -56.1094 -DATA 42 , 0 , -1.93369E+52 , -121.087 -DATA 43 , 0 , -2.19645E+53 , -123.517 -DATA 44 , 0 , -1.25656E+42 , -97.6301 -DATA 45 , 0 , -3.11789E+27 , -64.0001 -DATA 46 , 0 , -7.16926E+10 , -25.6888 -DATA 47 , 0 , 1.33903E+6 , 14.8006 -DATA 48 , 0 , -1.69442E+26 , -61.0877 -DATA 49 , 0 , -4.36043E+28 , -66.6381 -DATA 50 , 1 , -1.79769E+308 , -5476.5 -DATA 51 , 1 , -1.79769E+308 , -21210.3 -DATA 52 , 1 , -1.79769E+308 , -28757.2 -DATA 53 , 1 , -1.79769E+308 , -28732.2 -DATA 54 , 1 , 1.79769E+308 , 12730.3 -DATA 55 , 1 , -1.79769E+308 , -1830.69 -DATA 56 , 1 , 1.79769E+308 , 5486.39 -DATA 57 , 1 , 1.79769E+308 , 22405.9 -DATA 58 , 1 , 1.79769E+308 , 30809.8 -DATA 59 , 1 , -1.79769E+308 , -28930.6 -DATA 60 , 1 , -1.79769E+308 , -6014.53 -DATA 61 , 1 , 1.79769E+308 , 17414.6 -DATA 62 , 1 , -1.79769E+308 , -10538.3 -DATA 63 , 1 , -1.79769E+308 , -17536.3 -DATA 64 , 1 , -1.79769E+308 , -8856.62 -DATA 65 , 1 , -1.79769E+308 , -5140.12 -DATA 66 , 1 , -1.79769E+308 , -8595.31 -DATA 67 , 1 , -1.79769E+308 , -3382.87 -DATA 68 , 1 , -1.79769E+308 , -5002.07 -DATA 69 , 1 , -1.79769E+308 , -5800.72 -DATA 70 , 1 , 1.79769E+308 , 29686.4 -DATA 71 , 1 , 1.79769E+308 , 2571. -DATA 72 , 1 , 1.79769E+308 , 31091. -DATA 73 , 1 , 1.79769E+308 , 14819. -DATA 74 , 1 , 1.79769E+308 , 3790.9 -DATA 75 , 1 , -1.79769E+308 , -4.2981E+9 -DATA 76 , 1 , -1.79769E+308 , -7.05453E+8 -DATA 77 , 1 , -1.79769E+308 , -3.10179E+9 -DATA 78 , 1 , -1.79769E+308 , -4.86159E+9 -DATA 79 , 1 , -1.79769E+308 , -8.62908E+8 -DATA 80 , 1 , -1.79769E+308 , -3.4101E+9 -DATA 81 , 1 , 1.79769E+308 , 3.3889E+9 -DATA 82 , 1 , 1.79769E+308 , 2.49826E+9 -DATA 83 , 1 , 1.79769E+308 , 2.3491E+9 -DATA 84 , 1 , 1.79769E+308 , 1.94745E+8 -DATA 85 , 1 , 1.79769E+308 , 2.02475E+9 -DATA 86 , 1 , -1.79769E+308 , -2.26748E+9 -DATA 87 , 1 , -1.79769E+308 , -2.10587E+9 -DATA 88 , 1 , 1.79769E+308 , 4.23585E+9 -DATA 89 , 1 , -1.79769E+308 , -2.66524E+9 -DATA 90 , 1 , 1.79769E+308 , 4.01052E+9 -DATA 91 , 1 , -1.79769E+308 , -4.87912E+9 -DATA 92 , 1 , 1.79769E+308 , 1.77556E+9 -DATA 93 , 1 , 1.79769E+308 , 2.87705E+8 -DATA 94 , 1 , 1.79769E+308 , 1.99977E+8 -DATA 95 , 1 , -1.79769E+308 , -3.39941E+9 -DATA 96 , 1 , -1.79769E+308 , -3.49119E+9 -DATA 97 , 1 , -1.79769E+308 , -2.86324E+9 -DATA 98 , 1 , 1.79769E+308 , 4.20418E+9 -DATA 99 , 1 , -1.79769E+308 , -3.1518E+9 -DATA 100 , 1 , 1.79769E+308 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_SINH_X_N.run b/bwbtest/NBS2X/F_SINH_X_N.run deleted file mode 100644 index 46411a7..0000000 --- a/bwbtest/NBS2X/F_SINH_X_N.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1.1752 X= 1 - F= 0 N= 1.1752 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1.1752 X=-1 - F= 0 N=-1.1752 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .410752 X= .4 - F= 0 N= .410752 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.410752 X=-.4 - F= 0 N=-.410752 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .636654 X= .6 - F= 0 N= .636654 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.636654 X=-.6 - F= 0 N=-.636654 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 1.02275E+110 X= 254 - F= 0 N= 1.02275E+110 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 2.78012E+110 X= 255 - F= 0 N= 2.78012E+110 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 7.55714E+110 X= 256 - F= 0 N= 7.55714E+110 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 1.79769E+308 X= 32000 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.229189 X=-.227229 - F= 0 N=-.229189 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.241443 X=-.239157 - F= 0 N=-.241443 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.215214 X=-.213586 - F= 0 N=-.215214 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .278142 X= .274675 - F= 0 N= .278142 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .170583 X= .169766 - F= 0 N= .170583 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .324192 X= .318766 - F= 0 N= .324192 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06673E-2 X= 2.06658E-2 - F= 0 N= 2.06673E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .189371 X= .188257 - F= 0 N= .189371 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.281114 X=-.277537 - F= 0 N=-.281114 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.500102 X=-.481303 - F= 0 N=-.500102 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .449463 X= .43556 - F= 0 N= .449463 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.212539 X=-.210971 - F= 0 N=-.212539 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.471101 X=-.455216 - F= 0 N=-.471101 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-7.33277E+47 X=-110.907 - F= 0 N=-7.33277E+47 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 3.75288E+45 X= 105.632 - F= 0 N= 3.75288E+45 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-2.27319E+49 X=-114.341 - F= 0 N=-2.27319E+49 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 2.20638E+47 X= 109.706 - F= 0 N= 2.20638E+47 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 1.32757E+47 X= 109.198 - F= 0 N= 1.32757E+47 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 9.8857E+36 X= 85.8773 - F= 0 N= 9.8857E+36 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-1.10189E+25 X=-58.3548 - F= 0 N=-1.10189E+25 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 3.72673E+12 X= 29.6397 - F= 0 N= 3.72673E+12 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-5.74275E+46 X=-108.36 - F= 0 N=-5.74275E+46 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-7.98557E+19 X=-46.5199 - F= 0 N=-7.98557E+19 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 3.68315E+48 X= 112.521 - F= 0 N= 3.68315E+48 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 2.64544E+19 X= 45.4151 - F= 0 N= 2.64544E+19 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 4.15658E+43 X= 101.129 - F= 0 N= 4.15658E+43 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 8.88492E+27 X= 65.0473 - F= 0 N= 8.88492E+27 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 5.24015E+20 X= 48.4012 - F= 0 N= 5.24015E+20 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 6.46516E+52 X= 122.294 - F= 0 N= 6.46516E+52 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-1.16674E+24 X=-56.1094 - F= 0 N=-1.16674E+24 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-1.93369E+52 X=-121.087 - F= 0 N=-1.93369E+52 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-2.19645E+53 X=-123.517 - F= 0 N=-2.19645E+53 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-1.25656E+42 X=-97.6301 - F= 0 N=-1.25656E+42 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-3.11789E+27 X=-64.0001 - F= 0 N=-3.11789E+27 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-7.16926E+10 X=-25.6888 - F= 0 N=-7.16926E+10 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 1.33903E+6 X= 14.8006 - F= 0 N= 1.33903E+6 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-1.69442E+26 X=-61.0877 - F= 0 N=-1.69442E+26 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-4.36043E+28 X=-66.6381 - F= 0 N=-4.36043E+28 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R=-1.79769E+308 X=-5476.5 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R=-1.79769E+308 X=-21210.3 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R=-1.79769E+308 X=-28757.2 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R=-1.79769E+308 X=-28732.2 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 1.79769E+308 X= 12730.3 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R=-1.79769E+308 X=-1830.69 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 1.79769E+308 X= 5486.39 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 1.79769E+308 X= 22405.9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 1.79769E+308 X= 30809.8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R=-1.79769E+308 X=-28930.6 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R=-1.79769E+308 X=-6014.53 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 1.79769E+308 X= 17414.6 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R=-1.79769E+308 X=-10538.3 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R=-1.79769E+308 X=-17536.3 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R=-1.79769E+308 X=-8856.62 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R=-1.79769E+308 X=-5140.12 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R=-1.79769E+308 X=-8595.31 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R=-1.79769E+308 X=-3382.87 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R=-1.79769E+308 X=-5002.07 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R=-1.79769E+308 X=-5800.72 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 1.79769E+308 X= 29686.4 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 1.79769E+308 X= 2571 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 1.79769E+308 X= 31091 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 1.79769E+308 X= 14819 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 1.79769E+308 X= 3790.9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R=-1.79769E+308 X=-4.2981E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R=-1.79769E+308 X=-7.05453E+8 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R=-1.79769E+308 X=-3.10179E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R=-1.79769E+308 X=-4.86159E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R=-1.79769E+308 X=-8.62908E+8 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R=-1.79769E+308 X=-3.4101E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 1.79769E+308 X= 3.3889E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 1.79769E+308 X= 2.49826E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 1.79769E+308 X= 2.3491E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 1.79769E+308 X= 1.94745E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 1.79769E+308 X= 2.02475E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R=-1.79769E+308 X=-2.26748E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R=-1.79769E+308 X=-2.10587E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 1.79769E+308 X= 4.23585E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R=-1.79769E+308 X=-2.66524E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 1.79769E+308 X= 4.01052E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R=-1.79769E+308 X=-4.87912E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 1.79769E+308 X= 1.77556E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 1.79769E+308 X= 2.87705E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 1.79769E+308 X= 1.99977E+8 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R=-1.79769E+308 X=-3.39941E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R=-1.79769E+308 X=-3.49119E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R=-1.79769E+308 X=-2.86324E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 1.79769E+308 X= 4.20418E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R=-1.79769E+308 X=-3.1518E+9 - F= 1 N=-1.79769E+308 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 1.79769E+308 X= - 4.60615E+9 - F= 1 N= 1.79769E+308 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_SIN_X_N.BAS b/bwbtest/NBS2X/F_SIN_X_N.BAS deleted file mode 100644 index 86931e3..0000000 --- a/bwbtest/NBS2X/F_SIN_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:33 -REM FILENAME: F_SIN_X_N.BAS -REM SYNTAX: N = SIN( X ) -REM UNIQUEID: F_SIN_X_N -REM FUNCTION: SIN -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = SIN( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , .841471 , 1 -DATA 3 , 0 , -.841471 , -1 -DATA 4 , 0 , .389418 , .4 -DATA 5 , 0 , -.389418 , -.4 -DATA 6 , 0 , .564642 , .6 -DATA 7 , 0 , -.564642 , -.6 -DATA 8 , 0 , .451999 , 254 -DATA 9 , 0 , -.506392 , 255 -DATA 10 , 0 , -.999208 , 256 -DATA 11 , 0 , -.259756 , 32000 -DATA 12 , 0 , -.225279 , -.227229 -DATA 13 , 0 , -.236884 , -.239157 -DATA 14 , 0 , -.211966 , -.213586 -DATA 15 , 0 , .271234 , .274675 -DATA 16 , 0 , .168952 , .169766 -DATA 17 , 0 , .313395 , .318766 -DATA 18 , 0 , 2.06643E-2 , 2.06658E-2 -DATA 19 , 0 , .187147 , .188257 -DATA 20 , 0 , -.273988 , -.277537 -DATA 21 , 0 , -.462935 , -.481303 -DATA 22 , 0 , .421918 , .43556 -DATA 23 , 0 , -.209409 , -.210971 -DATA 24 , 0 , -.439656 , -.455216 -DATA 25 , 0 , .814146 , -110.907 -DATA 26 , 0 , -.925423 , 105.632 -DATA 27 , 0 , -.946968 , -114.341 -DATA 28 , 0 , .247155 , 109.706 -DATA 29 , 0 , .687284 , 109.198 -DATA 30 , 0 , -.869554 , 85.8773 -DATA 31 , 0 , -.972436 , -58.3548 -DATA 32 , 0 , -.978973 , 29.6397 -DATA 33 , 0 , -.999689 , -108.36 -DATA 34 , 0 , -.567931 , -46.5199 -DATA 35 , 0 , -.544955 , 112.521 -DATA 36 , 0 , .990494 , 45.4151 -DATA 37 , 0 , .56302 , 101.129 -DATA 38 , 0 , .79931 , 65.0473 -DATA 39 , 0 , -.957241 , 48.4012 -DATA 40 , 0 , .22614 , 122.294 -DATA 41 , 0 , .425277 , -56.1094 -DATA 42 , 0 , -.990809 , -121.087 -DATA 43 , 0 , .838697 , -123.517 -DATA 44 , 0 , .238409 , -97.6301 -DATA 45 , 0 , -.920065 , -64.0001 -DATA 46 , 0 , -.527843 , -25.6888 -DATA 47 , 0 , .787883 , 14.8006 -DATA 48 , 0 , .985011 , -61.0877 -DATA 49 , 0 , .616787 , -66.6381 -DATA 50 , 0 , .647276 , -5476.5 -DATA 51 , 0 , .986777 , -21210.3 -DATA 52 , 0 , .807057 , -28757.2 -DATA 53 , 0 , .721807 , -28732.2 -DATA 54 , 0 , .536739 , 12730.3 -DATA 55 , 0 , -.756874 , -1830.69 -DATA 56 , 0 , .920449 , 5486.39 -DATA 57 , 0 , 6.11564E-2 , 22405.9 -DATA 58 , 0 , -.199499 , 30809.8 -DATA 59 , 0 , -.320964 , -28930.6 -DATA 60 , 0 , -.998793 , -6014.53 -DATA 61 , 0 , -.683043 , 17414.6 -DATA 62 , 0 , -.985149 , -10538.3 -DATA 63 , 0 , 7.01347E-2 , -17536.3 -DATA 64 , 0 , .453162 , -8856.62 -DATA 65 , 0 , -.456821 , -5140.12 -DATA 66 , 0 , 8.73886E-2 , -8595.31 -DATA 67 , 0 , -.585331 , -3382.87 -DATA 68 , 0 , -.608759 , -5002.07 -DATA 69 , 0 , -.973476 , -5800.72 -DATA 70 , 0 , -.996819 , 29686.4 -DATA 71 , 0 , .923539 , 2571. -DATA 72 , 0 , .974052 , 31091. -DATA 73 , 0 , -.107246 , 14819. -DATA 74 , 0 , .842729 , 3790.9 -DATA 75 , 0 , .571013 , -4.2981E+9 -DATA 76 , 0 , -.420125 , -7.05453E+8 -DATA 77 , 0 , .408592 , -3.10179E+9 -DATA 78 , 0 , .974347 , -4.86159E+9 -DATA 79 , 0 , .744018 , -8.62908E+8 -DATA 80 , 0 , -.381683 , -3.4101E+9 -DATA 81 , 0 , -.78677 , 3.3889E+9 -DATA 82 , 0 , .723606 , 2.49826E+9 -DATA 83 , 0 , -.912251 , 2.3491E+9 -DATA 84 , 0 , .62558 , 1.94745E+8 -DATA 85 , 0 , .158389 , 2.02475E+9 -DATA 86 , 0 , -.762398 , -2.26748E+9 -DATA 87 , 0 , -5.60771E-2 , -2.10587E+9 -DATA 88 , 0 , -.942582 , 4.23585E+9 -DATA 89 , 0 , .164144 , -2.66524E+9 -DATA 90 , 0 , .733648 , 4.01052E+9 -DATA 91 , 0 , .376706 , -4.87912E+9 -DATA 92 , 0 , -.99923 , 1.77556E+9 -DATA 93 , 0 , -.57627 , 2.87705E+8 -DATA 94 , 0 , .336893 , 1.99977E+8 -DATA 95 , 0 , -.567372 , -3.39941E+9 -DATA 96 , 0 , .989581 , -3.49119E+9 -DATA 97 , 0 , -.998595 , -2.86324E+9 -DATA 98 , 0 , -.801884 , 4.20418E+9 -DATA 99 , 0 , .758508 , -3.1518E+9 -DATA 100 , 0 , .696967 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_SIN_X_N.run b/bwbtest/NBS2X/F_SIN_X_N.run deleted file mode 100644 index 11aa723..0000000 --- a/bwbtest/NBS2X/F_SIN_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= .841471 X= 1 - F= 0 N= .841471 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-.841471 X=-1 - F= 0 N=-.841471 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .389418 X= .4 - F= 0 N= .389418 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.389418 X=-.4 - F= 0 N=-.389418 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .564642 X= .6 - F= 0 N= .564642 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.564642 X=-.6 - F= 0 N=-.564642 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= .451999 X= 254 - F= 0 N= .451999 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R=-.506392 X= 255 - F= 0 N=-.506392 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R=-.999208 X= 256 - F= 0 N=-.999208 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R=-.259756 X= 32000 - F= 0 N=-.259756 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.225279 X=-.227229 - F= 0 N=-.225279 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.236884 X=-.239157 - F= 0 N=-.236884 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.211966 X=-.213586 - F= 0 N=-.211966 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .271234 X= .274675 - F= 0 N= .271234 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .168952 X= .169766 - F= 0 N= .168952 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .313395 X= .318766 - F= 0 N= .313395 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06643E-2 X= 2.06658E-2 - F= 0 N= 2.06643E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .187147 X= .188257 - F= 0 N= .187147 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.273988 X=-.277537 - F= 0 N=-.273988 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.462935 X=-.481303 - F= 0 N=-.462935 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .421918 X= .43556 - F= 0 N= .421918 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.209409 X=-.210971 - F= 0 N=-.209409 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.439656 X=-.455216 - F= 0 N=-.439656 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= .814146 X=-110.907 - F= 0 N= .814146 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R=-.925423 X= 105.632 - F= 0 N=-.925423 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-.946968 X=-114.341 - F= 0 N=-.946968 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= .247155 X= 109.706 - F= 0 N= .247155 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= .687284 X= 109.198 - F= 0 N= .687284 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R=-.869554 X= 85.8773 - F= 0 N=-.869554 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-.972436 X=-58.3548 - F= 0 N=-.972436 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R=-.978973 X= 29.6397 - F= 0 N=-.978973 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-.999689 X=-108.36 - F= 0 N=-.999689 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-.567931 X=-46.5199 - F= 0 N=-.567931 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R=-.544955 X= 112.521 - F= 0 N=-.544955 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= .990494 X= 45.4151 - F= 0 N= .990494 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= .56302 X= 101.129 - F= 0 N= .56302 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= .79931 X= 65.0473 - F= 0 N= .79931 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R=-.957241 X= 48.4012 - F= 0 N=-.957241 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= .22614 X= 122.294 - F= 0 N= .22614 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= .425277 X=-56.1094 - F= 0 N= .425277 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-.990809 X=-121.087 - F= 0 N=-.990809 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R= .838697 X=-123.517 - F= 0 N= .838697 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R= .238409 X=-97.6301 - F= 0 N= .238409 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-.920065 X=-64.0001 - F= 0 N=-.920065 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-.527843 X=-25.6888 - F= 0 N=-.527843 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= .787883 X= 14.8006 - F= 0 N= .787883 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R= .985011 X=-61.0877 - F= 0 N= .985011 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= .616787 X=-66.6381 - F= 0 N= .616787 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R= .647276 X=-5476.5 - F= 0 N= .647276 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R= .986777 X=-21210.3 - F= 0 N= .986777 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= .807057 X=-28757.2 - F= 0 N= .807057 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= .721807 X=-28732.2 - F= 0 N= .721807 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= .536739 X= 12730.3 - F= 0 N= .536739 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-.756874 X=-1830.69 - F= 0 N=-.756874 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= .920449 X= 5486.39 - F= 0 N= .920449 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 6.11564E-2 X= 22405.9 - F= 0 N= 6.11564E-2 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R=-.199499 X= 30809.8 - F= 0 N=-.199499 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-.320964 X=-28930.6 - F= 0 N=-.320964 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-.998793 X=-6014.53 - F= 0 N=-.998793 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R=-.683043 X= 17414.6 - F= 0 N=-.683043 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-.985149 X=-10538.3 - F= 0 N=-.985149 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 7.01347E-2 X=-17536.3 - F= 0 N= 7.01347E-2 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R= .453162 X=-8856.62 - F= 0 N= .453162 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-.456821 X=-5140.12 - F= 0 N=-.456821 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 8.73886E-2 X=-8595.31 - F= 0 N= 8.73886E-2 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-.585331 X=-3382.87 - F= 0 N=-.585331 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-.608759 X=-5002.07 - F= 0 N=-.608759 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-.973476 X=-5800.72 - F= 0 N=-.973476 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R=-.996819 X= 29686.4 - F= 0 N=-.996819 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= .923539 X= 2571 - F= 0 N= .923539 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= .974052 X= 31091 - F= 0 N= .974052 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R=-.107246 X= 14819 - F= 0 N=-.107246 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= .842729 X= 3790.9 - F= 0 N= .842729 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= .571013 X=-4.2981E+9 - F= 0 N= .571013 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-.420125 X=-7.05453E+8 - F= 0 N=-.420125 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= .408592 X=-3.10179E+9 - F= 0 N= .408592 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= .974347 X=-4.86159E+9 - F= 0 N= .974347 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R= .744018 X=-8.62908E+8 - F= 0 N= .744018 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-.381683 X=-3.4101E+9 - F= 0 N=-.381683 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R=-.78677 X= 3.3889E+9 - F= 0 N=-.78677 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= .723606 X= 2.49826E+9 - F= 0 N= .723606 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R=-.912251 X= 2.3491E+9 - F= 0 N=-.912251 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= .62558 X= 1.94745E+8 - F= 0 N= .62558 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= .158389 X= 2.02475E+9 - F= 0 N= .158389 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-.762398 X=-2.26748E+9 - F= 0 N=-.762398 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-5.60771E-2 X=-2.10587E+9 - F= 0 N=-5.60771E-2 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R=-.942582 X= 4.23585E+9 - F= 0 N=-.942582 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= .164144 X=-2.66524E+9 - F= 0 N= .164144 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= .733648 X= 4.01052E+9 - F= 0 N= .733648 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= .376706 X=-4.87912E+9 - F= 0 N= .376706 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R=-.99923 X= 1.77556E+9 - F= 0 N=-.99923 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R=-.57627 X= 2.87705E+8 - F= 0 N=-.57627 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= .336893 X= 1.99977E+8 - F= 0 N= .336893 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-.567372 X=-3.39941E+9 - F= 0 N=-.567372 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= .989581 X=-3.49119E+9 - F= 0 N= .989581 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-.998595 X=-2.86324E+9 - F= 0 N=-.998595 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R=-.801884 X= 4.20418E+9 - F= 0 N=-.801884 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R= .758508 X=-3.1518E+9 - F= 0 N= .758508 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= .696967 X= 4.60615E+9 - F= 0 N= .696967 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_SPACE_X_S.BAS b/bwbtest/NBS2X/F_SPACE_X_S.BAS deleted file mode 100644 index ce35cd7..0000000 --- a/bwbtest/NBS2X/F_SPACE_X_S.BAS +++ /dev/null @@ -1,159 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:33 -REM FILENAME: F_SPACE_X_S.BAS -REM SYNTAX: S$ = SPACE$( X ) -REM UNIQUEID: F_SPACE_X_S -REM FUNCTION: SPACE$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = SPACE$( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", 0 -DATA 2 , 0 , " ", 1 -DATA 3 , 1 , "", -1 -DATA 4 , 0 , "", .4 -DATA 5 , 0 , "", -.4 -DATA 6 , 0 , " ", .6 -DATA 7 , 1 , "", -.6 -DATA 8 , 0 , " ", 254 -DATA 9 , 0 , " ", 255 -DATA 10 , 0 , " ", 256 -DATA 11 , 1 , "", 32000 -DATA 12 , 0 , "", -.227229 -DATA 13 , 0 , "", -.239157 -DATA 14 , 0 , "", -.213586 -DATA 15 , 0 , "", .274675 -DATA 16 , 0 , "", .169766 -DATA 17 , 0 , "", .318766 -DATA 18 , 0 , "", 2.06658E-2 -DATA 19 , 0 , "", .188257 -DATA 20 , 0 , "", -.277537 -DATA 21 , 0 , "", -.481303 -DATA 22 , 0 , "", .43556 -DATA 23 , 0 , "", -.210971 -DATA 24 , 0 , "", -.455216 -DATA 25 , 1 , "", -110.907 -DATA 26 , 0 , " ", 105.632 -DATA 27 , 1 , "", -114.341 -DATA 28 , 0 , " ", 109.706 -DATA 29 , 0 , " ", 109.198 -DATA 30 , 0 , " ", 85.8773 -DATA 31 , 1 , "", -58.3548 -DATA 32 , 0 , " ", 29.6397 -DATA 33 , 1 , "", -108.36 -DATA 34 , 1 , "", -46.5199 -DATA 35 , 0 , " ", 112.521 -DATA 36 , 0 , " ", 45.4151 -DATA 37 , 0 , " ", 101.129 -DATA 38 , 0 , " ", 65.0473 -DATA 39 , 0 , " ", 48.4012 -DATA 40 , 0 , " ", 122.294 -DATA 41 , 1 , "", -56.1094 -DATA 42 , 1 , "", -121.087 -DATA 43 , 1 , "", -123.517 -DATA 44 , 1 , "", -97.6301 -DATA 45 , 1 , "", -64.0001 -DATA 46 , 1 , "", -25.6888 -DATA 47 , 0 , " ", 14.8006 -DATA 48 , 1 , "", -61.0877 -DATA 49 , 1 , "", -66.6381 -DATA 50 , 1 , "", -5476.5 -DATA 51 , 1 , "", -21210.3 -DATA 52 , 1 , "", -28757.2 -DATA 53 , 1 , "", -28732.2 -DATA 54 , 1 , "", 12730.3 -DATA 55 , 1 , "", -1830.69 -DATA 56 , 1 , "", 5486.39 -DATA 57 , 1 , "", 22405.9 -DATA 58 , 1 , "", 30809.8 -DATA 59 , 1 , "", -28930.6 -DATA 60 , 1 , "", -6014.53 -DATA 61 , 1 , "", 17414.6 -DATA 62 , 1 , "", -10538.3 -DATA 63 , 1 , "", -17536.3 -DATA 64 , 1 , "", -8856.62 -DATA 65 , 1 , "", -5140.12 -DATA 66 , 1 , "", -8595.31 -DATA 67 , 1 , "", -3382.87 -DATA 68 , 1 , "", -5002.07 -DATA 69 , 1 , "", -5800.72 -DATA 70 , 1 , "", 29686.4 -DATA 71 , 0 , " ", 2571. -DATA 72 , 1 , "", 31091. -DATA 73 , 1 , "", 14819. -DATA 74 , 0 , " ", 3790.9 -DATA 75 , 1 , "", -4.2981E+9 -DATA 76 , 1 , "", -7.05453E+8 -DATA 77 , 1 , "", -3.10179E+9 -DATA 78 , 1 , "", -4.86159E+9 -DATA 79 , 1 , "", -8.62908E+8 -DATA 80 , 1 , "", -3.4101E+9 -DATA 81 , 1 , "", 3.3889E+9 -DATA 82 , 1 , "", 2.49826E+9 -DATA 83 , 1 , "", 2.3491E+9 -DATA 84 , 1 , "", 1.94745E+8 -DATA 85 , 1 , "", 2.02475E+9 -DATA 86 , 1 , "", -2.26748E+9 -DATA 87 , 1 , "", -2.10587E+9 -DATA 88 , 1 , "", 4.23585E+9 -DATA 89 , 1 , "", -2.66524E+9 -DATA 90 , 1 , "", 4.01052E+9 -DATA 91 , 1 , "", -4.87912E+9 -DATA 92 , 1 , "", 1.77556E+9 -DATA 93 , 1 , "", 2.87705E+8 -DATA 94 , 1 , "", 1.99977E+8 -DATA 95 , 1 , "", -3.39941E+9 -DATA 96 , 1 , "", -3.49119E+9 -DATA 97 , 1 , "", -2.86324E+9 -DATA 98 , 1 , "", 4.20418E+9 -DATA 99 , 1 , "", -3.1518E+9 -DATA 100 , 1 , "", 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_SPACE_X_S.run b/bwbtest/NBS2X/F_SPACE_X_S.run deleted file mode 100644 index 01e7c2c..0000000 --- a/bwbtest/NBS2X/F_SPACE_X_S.run +++ /dev/null @@ -1,522 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] X= 0 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] X= 1 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 3 E= 1 R$=[] X=-1 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[] X= .4 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[] X=-.4 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ ] X= .6 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 7 E= 1 R$=[] X=-.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[ - - - - ] X= 254 - F= 0 S$=[ - - - - ] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[ - - - - ] X= 255 - F= 0 S$=[ - - - - ] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[ - - - - ] X= 256 - F= 0 S$=[ - - - - ] -*** TEST PASSED *** -TESTCASE # 11 E= 1 R$=[] X= 32000 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[] X=-.227229 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[] X=-.239157 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[] X=-.213586 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[] X= .274675 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[] X= .169766 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[] X= .318766 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[] X= 2.06658E-2 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[] X= .188257 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[] X=-.277537 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[] X=-.481303 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[] X= .43556 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[] X=-.210971 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[] X=-.455216 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 25 E= 1 R$=[] X=-110.907 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[ - - ] X= 105.632 - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 27 E= 1 R$=[] X=-114.341 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[ - - ] X= 109.706 - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[ - - ] X= 109.198 - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[ - - ] X= 85.8773 - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 31 E= 1 R$=[] X=-58.3548 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[ ] X= - 29.6397 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 33 E= 1 R$=[] X=-108.36 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 34 E= 1 R$=[] X=-46.5199 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[ - - ] X= 112.521 - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[ ] -X= 45.4151 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[ - - ] X= 101.129 - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[ - ] X= - 65.0473 - F= 0 S$=[ - ] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[ - ] X= 48.4012 - F= 0 S$=[ - ] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[ - - ] X= 122.294 - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 41 E= 1 R$=[] X=-56.1094 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 42 E= 1 R$=[] X=-121.087 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 43 E= 1 R$=[] X=-123.517 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 44 E= 1 R$=[] X=-97.6301 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 45 E= 1 R$=[] X=-64.0001 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 46 E= 1 R$=[] X=-25.6888 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[ ] X= 14.8006 - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 48 E= 1 R$=[] X=-61.0877 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 49 E= 1 R$=[] X=-66.6381 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 50 E= 1 R$=[] X=-5476.5 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 51 E= 1 R$=[] X=-21210.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 1 R$=[] X=-28757.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 53 E= 1 R$=[] X=-28732.2 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 54 E= 1 R$=[] X= 12730.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 55 E= 1 R$=[] X=-1830.69 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 56 E= 1 R$=[] X= 5486.39 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 57 E= 1 R$=[] X= 22405.9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 58 E= 1 R$=[] X= 30809.8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 59 E= 1 R$=[] X=-28930.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 60 E= 1 R$=[] X=-6014.53 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 61 E= 1 R$=[] X= 17414.6 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 62 E= 1 R$=[] X=-10538.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 63 E= 1 R$=[] X=-17536.3 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 64 E= 1 R$=[] X=-8856.62 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 65 E= 1 R$=[] X=-5140.12 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 66 E= 1 R$=[] X=-8595.31 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 67 E= 1 R$=[] X=-3382.87 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 68 E= 1 R$=[] X=-5002.07 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 69 E= 1 R$=[] X=-5800.72 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 70 E= 1 R$=[] X= 29686.4 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ] X= 2571 - F= 0 S$=[ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ] -*** TEST PASSED *** -TESTCASE # 72 E= 1 R$=[] X= 31091 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 73 E= 1 R$=[] X= 14819 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ] X= 3790.9 - F= 0 S$=[ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ] -*** TEST PASSED *** -TESTCASE # 75 E= 1 R$=[] X=-4.2981E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 76 E= 1 R$=[] X=-7.05453E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 77 E= 1 R$=[] X=-3.10179E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 78 E= 1 R$=[] X=-4.86159E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 79 E= 1 R$=[] X=-8.62908E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 80 E= 1 R$=[] X=-3.4101E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 81 E= 1 R$=[] X= 3.3889E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 1 R$=[] X= 2.49826E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 83 E= 1 R$=[] X= 2.3491E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 84 E= 1 R$=[] X= 1.94745E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 85 E= 1 R$=[] X= 2.02475E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 1 R$=[] X=-2.26748E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 87 E= 1 R$=[] X=-2.10587E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 88 E= 1 R$=[] X= 4.23585E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 89 E= 1 R$=[] X=-2.66524E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 90 E= 1 R$=[] X= 4.01052E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 91 E= 1 R$=[] X=-4.87912E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 92 E= 1 R$=[] X= 1.77556E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 93 E= 1 R$=[] X= 2.87705E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 94 E= 1 R$=[] X= 1.99977E+8 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 95 E= 1 R$=[] X=-3.39941E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 96 E= 1 R$=[] X=-3.49119E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 97 E= 1 R$=[] X=-2.86324E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 98 E= 1 R$=[] X= 4.20418E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 99 E= 1 R$=[] X=-3.1518E+9 - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 100 E= 1 R$=[] X= 4.60615E+9 - F= 1 S$=[] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_SQR_X_N.BAS b/bwbtest/NBS2X/F_SQR_X_N.BAS deleted file mode 100644 index d100c5a..0000000 --- a/bwbtest/NBS2X/F_SQR_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:33 -REM FILENAME: F_SQR_X_N.BAS -REM SYNTAX: N = SQR( X ) -REM UNIQUEID: F_SQR_X_N -REM FUNCTION: SQR -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = SQR( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 -DATA 3 , 1 , 0 , -1 -DATA 4 , 0 , .632456 , .4 -DATA 5 , 1 , 0 , -.4 -DATA 6 , 0 , .774597 , .6 -DATA 7 , 1 , 0 , -.6 -DATA 8 , 0 , 15.9374 , 254 -DATA 9 , 0 , 15.9687 , 255 -DATA 10 , 0 , 16 , 256 -DATA 11 , 0 , 178.885 , 32000 -DATA 12 , 1 , 0 , -.227229 -DATA 13 , 1 , 0 , -.239157 -DATA 14 , 1 , 0 , -.213586 -DATA 15 , 0 , .524094 , .274675 -DATA 16 , 0 , .412027 , .169766 -DATA 17 , 0 , .564594 , .318766 -DATA 18 , 0 , .143756 , 2.06658E-2 -DATA 19 , 0 , .433886 , .188257 -DATA 20 , 1 , 0 , -.277537 -DATA 21 , 1 , 0 , -.481303 -DATA 22 , 0 , .65997 , .43556 -DATA 23 , 1 , 0 , -.210971 -DATA 24 , 1 , 0 , -.455216 -DATA 25 , 1 , 0 , -110.907 -DATA 26 , 0 , 10.2777 , 105.632 -DATA 27 , 1 , 0 , -114.341 -DATA 28 , 0 , 10.4741 , 109.706 -DATA 29 , 0 , 10.4498 , 109.198 -DATA 30 , 0 , 9.267 , 85.8773 -DATA 31 , 1 , 0 , -58.3548 -DATA 32 , 0 , 5.44424 , 29.6397 -DATA 33 , 1 , 0 , -108.36 -DATA 34 , 1 , 0 , -46.5199 -DATA 35 , 0 , 10.6076 , 112.521 -DATA 36 , 0 , 6.73907 , 45.4151 -DATA 37 , 0 , 10.0563 , 101.129 -DATA 38 , 0 , 8.06519 , 65.0473 -DATA 39 , 0 , 6.9571 , 48.4012 -DATA 40 , 0 , 11.0587 , 122.294 -DATA 41 , 1 , 0 , -56.1094 -DATA 42 , 1 , 0 , -121.087 -DATA 43 , 1 , 0 , -123.517 -DATA 44 , 1 , 0 , -97.6301 -DATA 45 , 1 , 0 , -64.0001 -DATA 46 , 1 , 0 , -25.6888 -DATA 47 , 0 , 3.84715 , 14.8006 -DATA 48 , 1 , 0 , -61.0877 -DATA 49 , 1 , 0 , -66.6381 -DATA 50 , 1 , 0 , -5476.5 -DATA 51 , 1 , 0 , -21210.3 -DATA 52 , 1 , 0 , -28757.2 -DATA 53 , 1 , 0 , -28732.2 -DATA 54 , 0 , 112.829 , 12730.3 -DATA 55 , 1 , 0 , -1830.69 -DATA 56 , 0 , 74.0702 , 5486.39 -DATA 57 , 0 , 149.686 , 22405.9 -DATA 58 , 0 , 175.527 , 30809.8 -DATA 59 , 1 , 0 , -28930.6 -DATA 60 , 1 , 0 , -6014.53 -DATA 61 , 0 , 131.964 , 17414.6 -DATA 62 , 1 , 0 , -10538.3 -DATA 63 , 1 , 0 , -17536.3 -DATA 64 , 1 , 0 , -8856.62 -DATA 65 , 1 , 0 , -5140.12 -DATA 66 , 1 , 0 , -8595.31 -DATA 67 , 1 , 0 , -3382.87 -DATA 68 , 1 , 0 , -5002.07 -DATA 69 , 1 , 0 , -5800.72 -DATA 70 , 0 , 172.297 , 29686.4 -DATA 71 , 0 , 50.705 , 2571. -DATA 72 , 0 , 176.326 , 31091. -DATA 73 , 0 , 121.733 , 14819. -DATA 74 , 0 , 61.5703 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 -DATA 76 , 1 , 0 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 -DATA 79 , 1 , 0 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 -DATA 81 , 0 , 58214.3 , 3.3889E+9 -DATA 82 , 0 , 49982.6 , 2.49826E+9 -DATA 83 , 0 , 48467.5 , 2.3491E+9 -DATA 84 , 0 , 13955.1 , 1.94745E+8 -DATA 85 , 0 , 44997.2 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 -DATA 87 , 1 , 0 , -2.10587E+9 -DATA 88 , 0 , 65083.4 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 -DATA 90 , 0 , 63328.7 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 -DATA 92 , 0 , 42137.4 , 1.77556E+9 -DATA 93 , 0 , 16961.9 , 2.87705E+8 -DATA 94 , 0 , 14141.3 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 -DATA 98 , 0 , 64839.6 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 -DATA 100 , 0 , 67868.6 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_SQR_X_N.run b/bwbtest/NBS2X/F_SQR_X_N.run deleted file mode 100644 index 1c74901..0000000 --- a/bwbtest/NBS2X/F_SQR_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 1 R= 0 X=-1 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .632456 X= .4 - F= 0 N= .632456 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 X=-.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .774597 X= .6 - F= 0 N= .774597 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 X=-.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 15.9374 X= 254 - F= 0 N= 15.9374 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 15.9687 X= 255 - F= 0 N= 15.9687 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 16 X= 256 - F= 0 N= 16 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 178.885 X= 32000 - F= 0 N= 178.885 -*** TEST PASSED *** -TESTCASE # 12 E= 1 R= 0 X=-.227229 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 1 R= 0 X=-.239157 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 1 R= 0 X=-.213586 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .524094 X= .274675 - F= 0 N= .524094 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .412027 X= .169766 - F= 0 N= .412027 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .564594 X= .318766 - F= 0 N= .564594 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= .143756 X= 2.06658E-2 - F= 0 N= .143756 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .433886 X= .188257 - F= 0 N= .433886 -*** TEST PASSED *** -TESTCASE # 20 E= 1 R= 0 X=-.277537 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 1 R= 0 X=-.481303 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .65997 X= .43556 - F= 0 N= .65997 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 X=-.210971 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 1 R= 0 X=-.455216 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 10.2777 X= 105.632 - F= 0 N= 10.2777 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 10.4741 X= 109.706 - F= 0 N= 10.4741 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 10.4498 X= 109.198 - F= 0 N= 10.4498 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 9.267 X= 85.8773 - F= 0 N= 9.267 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 5.44424 X= 29.6397 - F= 0 N= 5.44424 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 10.6076 X= 112.521 - F= 0 N= 10.6076 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 6.73907 X= 45.4151 - F= 0 N= 6.73907 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 10.0563 X= 101.129 - F= 0 N= 10.0563 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 8.06519 X= 65.0473 - F= 0 N= 8.06519 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 6.9571 X= 48.4012 - F= 0 N= 6.9571 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 11.0587 X= 122.294 - F= 0 N= 11.0587 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 X=-25.6888 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 3.84715 X= 14.8006 - F= 0 N= 3.84715 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 112.829 X= 12730.3 - F= 0 N= 112.829 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 74.0702 X= 5486.39 - F= 0 N= 74.0702 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 149.686 X= 22405.9 - F= 0 N= 149.686 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 175.527 X= 30809.8 - F= 0 N= 175.527 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 131.964 X= 17414.6 - F= 0 N= 131.964 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 172.297 X= 29686.4 - F= 0 N= 172.297 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 50.705 X= 2571 - F= 0 N= 50.705 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 176.326 X= 31091 - F= 0 N= 176.326 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 121.733 X= 14819 - F= 0 N= 121.733 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 61.5703 X= 3790.9 - F= 0 N= 61.5703 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 58214.3 X= 3.3889E+9 - F= 0 N= 58214.3 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 49982.6 X= 2.49826E+9 - F= 0 N= 49982.6 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 48467.5 X= 2.3491E+9 - F= 0 N= 48467.5 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 13955.1 X= 1.94745E+8 - F= 0 N= 13955.1 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 44997.2 X= 2.02475E+9 - F= 0 N= 44997.2 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 65083.4 X= 4.23585E+9 - F= 0 N= 65083.4 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 63328.7 X= 4.01052E+9 - F= 0 N= 63328.7 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 42137.4 X= 1.77556E+9 - F= 0 N= 42137.4 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 16961.9 X= 2.87705E+8 - F= 0 N= 16961.9 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 14141.3 X= 1.99977E+8 - F= 0 N= 14141.3 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 64839.6 X= 4.20418E+9 - F= 0 N= 64839.6 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 67868.6 X= 4.60615E+9 - F= 0 N= 67868.6 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_STRING_X_A_S.BAS b/bwbtest/NBS2X/F_STRING_X_A_S.BAS deleted file mode 100644 index 7967415..0000000 --- a/bwbtest/NBS2X/F_STRING_X_A_S.BAS +++ /dev/null @@ -1,160 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:34 -REM FILENAME: F_STRING_X_A_S.BAS -REM SYNTAX: S$ = STRING$( X, A$ ) -REM UNIQUEID: F_STRING_X_A_S -REM FUNCTION: STRING$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, X, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "X=";X, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = STRING$( X, A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , "", 0 , "" -DATA 2 , 0 , " ", 1 , " " -DATA 3 , 1 , "", -1 , "3" -DATA 4 , 0 , "", .4 , "z" -DATA 5 , 0 , "", -.4 , " " -DATA 6 , 0 , " ", .6 , " 3" -DATA 7 , 1 , "", -.6 , " z" -DATA 8 , 0 , "33333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333", 254 , "3 " -DATA 9 , 0 , "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz", 255 , "z " -DATA 10 , 0 , " ", 256 , " 3 " -DATA 11 , 1 , "", 32000 , " z " -DATA 12 , 0 , "", -.227229 , " LLLL" -DATA 13 , 0 , "", -.239157 , " '' " -DATA 14 , 0 , "", -.213586 , " oo " -DATA 15 , 0 , "", .274675 , " 00 " -DATA 16 , 0 , "", .169766 , " \\\\ " -DATA 17 , 0 , "", .318766 , " lllll " -DATA 18 , 0 , "", 2.06658E-2 , " uuuu " -DATA 19 , 0 , "", .188257 , " a " -DATA 20 , 0 , "", -.277537 , " " -DATA 21 , 0 , "", -.481303 , " hh " -DATA 22 , 0 , "", .43556 , " h " -DATA 23 , 0 , "", -.210971 , " )" -DATA 24 , 0 , "", -.455216 , " 5 " -DATA 25 , 1 , "", -110.907 , " 2 " -DATA 26 , 0 , " ", 105.632 , " - " -DATA 27 , 1 , "", -114.341 , "dd " -DATA 28 , 0 , " ", 109.706 , " tttt " -DATA 29 , 0 , " ", 109.198 , " :::: " -DATA 30 , 0 , " ", 85.8773 , " ___ " -DATA 31 , 1 , "", -58.3548 , " " -DATA 32 , 0 , " ", 29.6397 , " " -DATA 33 , 1 , "", -108.36 , " _____ " -DATA 34 , 1 , "", -46.5199 , " S " -DATA 35 , 0 , " ", 112.521 , " FFFF " -DATA 36 , 0 , " ", 45.4151 , " kkk" -DATA 37 , 0 , " ", 101.129 , " NNNN " -DATA 38 , 0 , " ", 65.0473 , " mmmm " -DATA 39 , 0 , " ", 48.4012 , " ,,,,, " -DATA 40 , 0 , "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO", 122.294 , "OO " -DATA 41 , 1 , "", -56.1094 , " HHHH " -DATA 42 , 1 , "", -121.087 , " < " -DATA 43 , 1 , "", -123.517 , " j " -DATA 44 , 1 , "", -97.6301 , " yyyy " -DATA 45 , 1 , "", -64.0001 , " +++ " -DATA 46 , 1 , "", -25.6888 , "o " -DATA 47 , 0 , " ", 14.8006 , " ((" -DATA 48 , 1 , "", -61.0877 , " uu " -DATA 49 , 1 , "", -66.6381 , " 00 " -DATA 50 , 1 , "", -5476.5 , " HH " -DATA 51 , 1 , "", -21210.3 , " " -DATA 52 , 1 , "", -28757.2 , " G " -DATA 53 , 1 , "", -28732.2 , " {{{{ " -DATA 54 , 1 , "", 12730.3 , " ]]] " -DATA 55 , 1 , "", -1830.69 , "CCC" -DATA 56 , 1 , "", 5486.39 , " 44 " -DATA 57 , 1 , "", 22405.9 , "^^ " -DATA 58 , 1 , "", 30809.8 , " QQ " -DATA 59 , 1 , "", -28930.6 , " FFFF " -DATA 60 , 1 , "", -6014.53 , " n " -DATA 61 , 1 , "", 17414.6 , " hh " -DATA 62 , 1 , "", -10538.3 , "555 " -DATA 63 , 1 , "", -17536.3 , " YYYY " -DATA 64 , 1 , "", -8856.62 , " w " -DATA 65 , 1 , "", -5140.12 , "MMMM " -DATA 66 , 1 , "", -8595.31 , " JJJJ " -DATA 67 , 1 , "", -3382.87 , " %% " -DATA 68 , 1 , "", -5002.07 , " * " -DATA 69 , 1 , "", -5800.72 , " @@@ " -DATA 70 , 1 , "", 29686.4 , "I " -DATA 71 , 0 , " ", 2571. , " ss " -DATA 72 , 1 , "", 31091. , " f " -DATA 73 , 1 , "", 14819. , " D " -DATA 74 , 0 , "###############################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################", 3790.9 , "### " -DATA 75 , 1 , "", -4.2981E+9 , " ' " -DATA 76 , 1 , "", -7.05453E+8 , " dd " -DATA 77 , 1 , "", -3.10179E+9 , " TT " -DATA 78 , 1 , "", -4.86159E+9 , " vvv " -DATA 79 , 1 , "", -8.62908E+8 , " X " -DATA 80 , 1 , "", -3.4101E+9 , " % " -DATA 81 , 1 , "", 3.3889E+9 , " " -DATA 82 , 1 , "", 2.49826E+9 , " 5555 " -DATA 83 , 1 , "", 2.3491E+9 , "FFFF " -DATA 84 , 1 , "", 1.94745E+8 , " %% " -DATA 85 , 1 , "", 2.02475E+9 , " " -DATA 86 , 1 , "", -2.26748E+9 , " ~~~~ " -DATA 87 , 1 , "", -2.10587E+9 , " || " -DATA 88 , 1 , "", 4.23585E+9 , " SSS " -DATA 89 , 1 , "", -2.66524E+9 , " 6666 " -DATA 90 , 1 , "", 4.01052E+9 , " ww " -DATA 91 , 1 , "", -4.87912E+9 , " 1111 " -DATA 92 , 1 , "", 1.77556E+9 , " K " -DATA 93 , 1 , "", 2.87705E+8 , " ttttt " -DATA 94 , 1 , "", 1.99977E+8 , " OOOOO " -DATA 95 , 1 , "", -3.39941E+9 , " E " -DATA 96 , 1 , "", -3.49119E+9 , " PPPPP " -DATA 97 , 1 , "", -2.86324E+9 , " == " -DATA 98 , 1 , "", 4.20418E+9 , " VVVV " -DATA 99 , 1 , "", -3.1518E+9 , " c " -DATA 100 , 1 , "", 4.60615E+9 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_STRING_X_A_S.run b/bwbtest/NBS2X/F_STRING_X_A_S.run deleted file mode 100644 index 0c4e1fa..0000000 --- a/bwbtest/NBS2X/F_STRING_X_A_S.run +++ /dev/null @@ -1,525 +0,0 @@ -TESTCASE # 1 E= 1 R$=[] X= 0 A$=[] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] X= 1 A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 3 E= 1 R$=[] X=-1 A$=[3] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[] X= .4 A$=[z] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[] X=-.4 A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ ] X= .6 A$=[ 3] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 7 E= 1 R$=[] X=-.6 A$=[ z] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[ -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333] X= 254 A$=[3 ] - F= 0 S$=[ -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333333333333333333333333333333333333333333333333333333333333333333333 -33333333333333] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[ -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzz] X= 255 A$=[z ] - F= 0 S$=[ -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz -zzzzzzzzzzzzzzz] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[ - - - - ] X= 256 A$=[ 3 ] - F= 0 S$=[ - - - - ] -*** TEST PASSED *** -TESTCASE # 11 E= 1 R$=[] X= 32000 A$=[ z ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[] X=-.227229 A$=[ LLLL] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[] X=-.239157 A$=[ '' ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[] X=-.213586 A$=[ oo ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[] X= .274675 A$=[ 00 ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[] X= .169766 A$=[ \\\\ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[] X= .318766 A$=[ lllll ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[] X= 2.06658E-2 A$=[ uuuu ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[] X= .188257 A$=[ a ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[] X=-.277537 A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[] X=-.481303 A$=[ hh ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[] X= .43556 A$=[ h ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[] X=-.210971 A$=[ )] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[] X=-.455216 A$=[ 5 ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 25 E= 1 R$=[] X=-110.907 A$=[ 2 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[ - - ] X= 105.632 A$=[ - ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 27 E= 1 R$=[] X=-114.341 A$=[dd ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[ - - ] X= 109.706 A$=[ tttt ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[ - - ] X= 109.198 A$=[ :::: ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[ - - ] X= 85.8773 A$=[ ___ ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 31 E= 1 R$=[] X=-58.3548 A$=[ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[ ] X= - 29.6397 A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 33 E= 1 R$=[] X=-108.36 A$=[ _____ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 34 E= 1 R$=[] X=-46.5199 A$=[ S ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[ - - ] X= 112.521 A$=[ FFFF ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[ ] -X= 45.4151 A$=[ kkk] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[ - - ] X= 101.129 A$=[ NNNN ] - F= 0 S$=[ - - ] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[ - ] X= - 65.0473 A$=[ mmmm ] - F= 0 S$=[ - ] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[ - ] X= 48.4012 A$=[ - ,,,,, ] - F= 0 S$=[ - ] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[ -OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO -OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO] X= 122.294 A$=[OO ] - F= 0 S$=[ -OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO -OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO] -*** TEST PASSED *** -TESTCASE # 41 E= 1 R$=[] X=-56.1094 A$=[ HHHH ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 42 E= 1 R$=[] X=-121.087 A$=[ < ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 43 E= 1 R$=[] X=-123.517 A$=[ j ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 44 E= 1 R$=[] X=-97.6301 A$=[ yyyy ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 45 E= 1 R$=[] X=-64.0001 A$=[ +++ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 46 E= 1 R$=[] X=-25.6888 A$=[o ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[ ] X= 14.8006 A$=[ - ((] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 48 E= 1 R$=[] X=-61.0877 A$=[ uu ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 49 E= 1 R$=[] X=-66.6381 A$=[ 00 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 50 E= 1 R$=[] X=-5476.5 A$=[ HH ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 51 E= 1 R$=[] X=-21210.3 A$=[ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 1 R$=[] X=-28757.2 A$=[ G ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 53 E= 1 R$=[] X=-28732.2 A$=[ {{{{ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 54 E= 1 R$=[] X= 12730.3 A$=[ ]]] ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 55 E= 1 R$=[] X=-1830.69 A$=[CCC] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 56 E= 1 R$=[] X= 5486.39 A$=[ 44 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 57 E= 1 R$=[] X= 22405.9 A$=[^^ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 58 E= 1 R$=[] X= 30809.8 A$=[ QQ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 59 E= 1 R$=[] X=-28930.6 A$=[ FFFF ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 60 E= 1 R$=[] X=-6014.53 A$=[ n ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 61 E= 1 R$=[] X= 17414.6 A$=[ hh ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 62 E= 1 R$=[] X=-10538.3 A$=[555 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 63 E= 1 R$=[] X=-17536.3 A$=[ YYYY ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 64 E= 1 R$=[] X=-8856.62 A$=[ w ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 65 E= 1 R$=[] X=-5140.12 A$=[MMMM ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 66 E= 1 R$=[] X=-8595.31 A$=[ JJJJ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 67 E= 1 R$=[] X=-3382.87 A$=[ %% ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 68 E= 1 R$=[] X=-5002.07 A$=[ * ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 69 E= 1 R$=[] X=-5800.72 A$=[ @@@ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 70 E= 1 R$=[] X= 29686.4 A$=[I ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ] X= 2571 A$=[ ss ] - F= 0 S$=[ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ] -*** TEST PASSED *** -TESTCASE # 72 E= 1 R$=[] X= 31091 A$=[ f ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 73 E= 1 R$=[] X= 14819 A$=[ D ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -###############################] X= 3790.9 A$=[### ] - F= 0 S$=[ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -################################################################################ -###############################] -*** TEST PASSED *** -TESTCASE # 75 E= 1 R$=[] X=-4.2981E+9 A$=[ ' ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 76 E= 1 R$=[] X=-7.05453E+8 A$=[ dd ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 77 E= 1 R$=[] X=-3.10179E+9 A$=[ TT ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 78 E= 1 R$=[] X=-4.86159E+9 A$=[ vvv ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 79 E= 1 R$=[] X=-8.62908E+8 A$=[ X ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 80 E= 1 R$=[] X=-3.4101E+9 A$=[ % ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 81 E= 1 R$=[] X= 3.3889E+9 A$=[ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 1 R$=[] X= 2.49826E+9 A$=[ 5555 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 83 E= 1 R$=[] X= 2.3491E+9 A$=[FFFF ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 84 E= 1 R$=[] X= 1.94745E+8 A$=[ %% ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 85 E= 1 R$=[] X= 2.02475E+9 A$=[ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 1 R$=[] X=-2.26748E+9 A$=[ ~~~~ ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 87 E= 1 R$=[] X=-2.10587E+9 A$=[ || ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 88 E= 1 R$=[] X= 4.23585E+9 A$=[ SSS ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 89 E= 1 R$=[] X=-2.66524E+9 A$=[ 6666 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 90 E= 1 R$=[] X= 4.01052E+9 A$=[ ww ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 91 E= 1 R$=[] X=-4.87912E+9 A$=[ 1111 ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 92 E= 1 R$=[] X= 1.77556E+9 A$=[ K ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 93 E= 1 R$=[] X= 2.87705E+8 A$=[ ttttt ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 94 E= 1 R$=[] X= 1.99977E+8 A$=[ OOOOO ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 95 E= 1 R$=[] X=-3.39941E+9 A$=[ E ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 96 E= 1 R$=[] X=-3.49119E+9 A$=[ PPPPP ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 97 E= 1 R$=[] X=-2.86324E+9 A$=[ == ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 98 E= 1 R$=[] X= 4.20418E+9 A$=[ VVVV ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 99 E= 1 R$=[] X=-3.1518E+9 A$=[ c ] - F= 1 S$=[] -*** TEST PASSED *** -TESTCASE # 100 E= 1 R$=[] X= 4.60615E+9 A$=[ - yyyy ] - F= 1 S$=[] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_STRING_X_Y_S.BAS b/bwbtest/NBS2X/F_STRING_X_Y_S.BAS deleted file mode 100644 index 1a54fba..0000000 --- a/bwbtest/NBS2X/F_STRING_X_Y_S.BAS +++ /dev/null @@ -1,160 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:34 -REM FILENAME: F_STRING_X_Y_S.BAS -REM SYNTAX: S$ = STRING$( X, Y ) -REM UNIQUEID: F_STRING_X_Y_S -REM FUNCTION: STRING$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM Y ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, X, Y -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "X=";X, "Y=";Y -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = STRING$( X, Y ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", 0 , 0 -DATA 2 , 0 , "", 1 , 1 -DATA 3 , 1 , "", -1 , -1 -DATA 4 , 0 , "", .4 , .4 -DATA 5 , 0 , "", -.4 , -.4 -DATA 6 , 0 , "", .6 , .6 -DATA 7 , 1 , "", -.6 , -.6 -DATA 8 , 0 , "þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ", 254 , 254 -DATA 9 , 0 , "ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ", 255 , 255 -DATA 10 , 1 , "", 256 , 256 -DATA 11 , 1 , "", 32000 , 32000 -DATA 12 , 0 , "", -.227229 , -.227229 -DATA 13 , 0 , "", -.239157 , -.239157 -DATA 14 , 0 , "", -.213586 , -.213586 -DATA 15 , 0 , "", .274675 , .274675 -DATA 16 , 0 , "", .169766 , .169766 -DATA 17 , 0 , "", .318766 , .318766 -DATA 18 , 0 , "", 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , "", .188257 , .188257 -DATA 20 , 0 , "", -.277537 , -.277537 -DATA 21 , 0 , "", -.481303 , -.481303 -DATA 22 , 0 , "", .43556 , .43556 -DATA 23 , 0 , "", -.210971 , -.210971 -DATA 24 , 0 , "", -.455216 , -.455216 -DATA 25 , 1 , "", -110.907 , -110.907 -DATA 26 , 0 , "jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj", 105.632 , 105.632 -DATA 27 , 1 , "", -114.341 , -114.341 -DATA 28 , 0 , "nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn", 109.706 , 109.706 -DATA 29 , 0 , "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm", 109.198 , 109.198 -DATA 30 , 0 , "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV", 85.8773 , 85.8773 -DATA 31 , 1 , "", -58.3548 , -58.3548 -DATA 32 , 0 , "", 29.6397 , 29.6397 -DATA 33 , 1 , "", -108.36 , -108.36 -DATA 34 , 1 , "", -46.5199 , -46.5199 -DATA 35 , 0 , "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq", 112.521 , 112.521 -DATA 36 , 0 , "---------------------------------------------", 45.4151 , 45.4151 -DATA 37 , 0 , "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee", 101.129 , 101.129 -DATA 38 , 0 , "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA", 65.0473 , 65.0473 -DATA 39 , 0 , "000000000000000000000000000000000000000000000000", 48.4012 , 48.4012 -DATA 40 , 0 , "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz", 122.294 , 122.294 -DATA 41 , 1 , "", -56.1094 , -56.1094 -DATA 42 , 1 , "", -121.087 , -121.087 -DATA 43 , 1 , "", -123.517 , -123.517 -DATA 44 , 1 , "", -97.6301 , -97.6301 -DATA 45 , 1 , "", -64.0001 , -64.0001 -DATA 46 , 1 , "", -25.6888 , -25.6888 -DATA 47 , 0 , "", 14.8006 , 14.8006 -DATA 48 , 1 , "", -61.0877 , -61.0877 -DATA 49 , 1 , "", -66.6381 , -66.6381 -DATA 50 , 1 , "", -5476.5 , -5476.5 -DATA 51 , 1 , "", -21210.3 , -21210.3 -DATA 52 , 1 , "", -28757.2 , -28757.2 -DATA 53 , 1 , "", -28732.2 , -28732.2 -DATA 54 , 1 , "", 12730.3 , 12730.3 -DATA 55 , 1 , "", -1830.69 , -1830.69 -DATA 56 , 1 , "", 5486.39 , 5486.39 -DATA 57 , 1 , "", 22405.9 , 22405.9 -DATA 58 , 1 , "", 30809.8 , 30809.8 -DATA 59 , 1 , "", -28930.6 , -28930.6 -DATA 60 , 1 , "", -6014.53 , -6014.53 -DATA 61 , 1 , "", 17414.6 , 17414.6 -DATA 62 , 1 , "", -10538.3 , -10538.3 -DATA 63 , 1 , "", -17536.3 , -17536.3 -DATA 64 , 1 , "", -8856.62 , -8856.62 -DATA 65 , 1 , "", -5140.12 , -5140.12 -DATA 66 , 1 , "", -8595.31 , -8595.31 -DATA 67 , 1 , "", -3382.87 , -3382.87 -DATA 68 , 1 , "", -5002.07 , -5002.07 -DATA 69 , 1 , "", -5800.72 , -5800.72 -DATA 70 , 1 , "", 29686.4 , 29686.4 -DATA 71 , 1 , "", 2571. , 2571. -DATA 72 , 1 , "", 31091. , 31091. -DATA 73 , 1 , "", 14819. , 14819. -DATA 74 , 1 , "", 3790.9 , 3790.9 -DATA 75 , 1 , "", -4.2981E+9 , -4.2981E+9 -DATA 76 , 1 , "", -7.05453E+8 , -7.05453E+8 -DATA 77 , 1 , "", -3.10179E+9 , -3.10179E+9 -DATA 78 , 1 , "", -4.86159E+9 , -4.86159E+9 -DATA 79 , 1 , "", -8.62908E+8 , -8.62908E+8 -DATA 80 , 1 , "", -3.4101E+9 , -3.4101E+9 -DATA 81 , 1 , "", 3.3889E+9 , 3.3889E+9 -DATA 82 , 1 , "", 2.49826E+9 , 2.49826E+9 -DATA 83 , 1 , "", 2.3491E+9 , 2.3491E+9 -DATA 84 , 1 , "", 1.94745E+8 , 1.94745E+8 -DATA 85 , 1 , "", 2.02475E+9 , 2.02475E+9 -DATA 86 , 1 , "", -2.26748E+9 , -2.26748E+9 -DATA 87 , 1 , "", -2.10587E+9 , -2.10587E+9 -DATA 88 , 1 , "", 4.23585E+9 , 4.23585E+9 -DATA 89 , 1 , "", -2.66524E+9 , -2.66524E+9 -DATA 90 , 1 , "", 4.01052E+9 , 4.01052E+9 -DATA 91 , 1 , "", -4.87912E+9 , -4.87912E+9 -DATA 92 , 1 , "", 1.77556E+9 , 1.77556E+9 -DATA 93 , 1 , "", 2.87705E+8 , 2.87705E+8 -DATA 94 , 1 , "", 1.99977E+8 , 1.99977E+8 -DATA 95 , 1 , "", -3.39941E+9 , -3.39941E+9 -DATA 96 , 1 , "", -3.49119E+9 , -3.49119E+9 -DATA 97 , 1 , "", -2.86324E+9 , -2.86324E+9 -DATA 98 , 1 , "", 4.20418E+9 , 4.20418E+9 -DATA 99 , 1 , "", -3.1518E+9 , -3.1518E+9 -DATA 100 , 1 , "", 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_STRING_X_Y_S.run b/bwbtest/NBS2X/F_STRING_X_Y_S.run deleted file mode 100644 index 15a8b57..0000000 --- a/bwbtest/NBS2X/F_STRING_X_Y_S.run +++ /dev/null @@ -1,9 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] X= 0 Y= 0 - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] X= 1 Y= 1 - F= 0 S$=[ - -*** TEST FAILED, RESULT MISMATCH *** - -Program interrupted at line 1011 diff --git a/bwbtest/NBS2X/F_STR_X_S.BAS b/bwbtest/NBS2X/F_STR_X_S.BAS deleted file mode 100644 index e813781..0000000 --- a/bwbtest/NBS2X/F_STR_X_S.BAS +++ /dev/null @@ -1,159 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:34 -REM FILENAME: F_STR_X_S.BAS -REM SYNTAX: S$ = STR$( X ) -REM UNIQUEID: F_STR_X_S -REM FUNCTION: STR$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = STR$( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , " 0", 0 -DATA 2 , 0 , " 1", 1 -DATA 3 , 0 , "-1", -1 -DATA 4 , 0 , " .4", .4 -DATA 5 , 0 , "-.4", -.4 -DATA 6 , 0 , " .6", .6 -DATA 7 , 0 , "-.6", -.6 -DATA 8 , 0 , " 254", 254 -DATA 9 , 0 , " 255", 255 -DATA 10 , 0 , " 256", 256 -DATA 11 , 0 , " 32000", 32000 -DATA 12 , 0 , "-.227229", -.227229 -DATA 13 , 0 , "-.239157", -.239157 -DATA 14 , 0 , "-.213586", -.213586 -DATA 15 , 0 , " .274675", .274675 -DATA 16 , 0 , " .169766", .169766 -DATA 17 , 0 , " .318766", .318766 -DATA 18 , 0 , " 2.06658E-2", 2.06658E-2 -DATA 19 , 0 , " .188257", .188257 -DATA 20 , 0 , "-.277537", -.277537 -DATA 21 , 0 , "-.481303", -.481303 -DATA 22 , 0 , " .43556", .43556 -DATA 23 , 0 , "-.210971", -.210971 -DATA 24 , 0 , "-.455216", -.455216 -DATA 25 , 0 , "-110.907", -110.907 -DATA 26 , 0 , " 105.632", 105.632 -DATA 27 , 0 , "-114.341", -114.341 -DATA 28 , 0 , " 109.706", 109.706 -DATA 29 , 0 , " 109.198", 109.198 -DATA 30 , 0 , " 85.8773", 85.8773 -DATA 31 , 0 , "-58.3548", -58.3548 -DATA 32 , 0 , " 29.6397", 29.6397 -DATA 33 , 0 , "-108.36", -108.36 -DATA 34 , 0 , "-46.5199", -46.5199 -DATA 35 , 0 , " 112.521", 112.521 -DATA 36 , 0 , " 45.4151", 45.4151 -DATA 37 , 0 , " 101.129", 101.129 -DATA 38 , 0 , " 65.0473", 65.0473 -DATA 39 , 0 , " 48.4012", 48.4012 -DATA 40 , 0 , " 122.294", 122.294 -DATA 41 , 0 , "-56.1094", -56.1094 -DATA 42 , 0 , "-121.087", -121.087 -DATA 43 , 0 , "-123.517", -123.517 -DATA 44 , 0 , "-97.6301", -97.6301 -DATA 45 , 0 , "-64.0001", -64.0001 -DATA 46 , 0 , "-25.6888", -25.6888 -DATA 47 , 0 , " 14.8006", 14.8006 -DATA 48 , 0 , "-61.0877", -61.0877 -DATA 49 , 0 , "-66.6381", -66.6381 -DATA 50 , 0 , "-5476.5", -5476.5 -DATA 51 , 0 , "-21210.3", -21210.3 -DATA 52 , 0 , "-28757.2", -28757.2 -DATA 53 , 0 , "-28732.2", -28732.2 -DATA 54 , 0 , " 12730.3", 12730.3 -DATA 55 , 0 , "-1830.69", -1830.69 -DATA 56 , 0 , " 5486.39", 5486.39 -DATA 57 , 0 , " 22405.9", 22405.9 -DATA 58 , 0 , " 30809.8", 30809.8 -DATA 59 , 0 , "-28930.6", -28930.6 -DATA 60 , 0 , "-6014.53", -6014.53 -DATA 61 , 0 , " 17414.6", 17414.6 -DATA 62 , 0 , "-10538.3", -10538.3 -DATA 63 , 0 , "-17536.3", -17536.3 -DATA 64 , 0 , "-8856.62", -8856.62 -DATA 65 , 0 , "-5140.12", -5140.12 -DATA 66 , 0 , "-8595.31", -8595.31 -DATA 67 , 0 , "-3382.87", -3382.87 -DATA 68 , 0 , "-5002.07", -5002.07 -DATA 69 , 0 , "-5800.72", -5800.72 -DATA 70 , 0 , " 29686.4", 29686.4 -DATA 71 , 0 , " 2571", 2571. -DATA 72 , 0 , " 31091", 31091. -DATA 73 , 0 , " 14819", 14819. -DATA 74 , 0 , " 3790.9", 3790.9 -DATA 75 , 0 , "-4.2981E+9", -4.2981E+9 -DATA 76 , 0 , "-7.05453E+8", -7.05453E+8 -DATA 77 , 0 , "-3.10179E+9", -3.10179E+9 -DATA 78 , 0 , "-4.86159E+9", -4.86159E+9 -DATA 79 , 0 , "-8.62908E+8", -8.62908E+8 -DATA 80 , 0 , "-3.4101E+9", -3.4101E+9 -DATA 81 , 0 , " 3.3889E+9", 3.3889E+9 -DATA 82 , 0 , " 2.49826E+9", 2.49826E+9 -DATA 83 , 0 , " 2.3491E+9", 2.3491E+9 -DATA 84 , 0 , " 1.94745E+8", 1.94745E+8 -DATA 85 , 0 , " 2.02475E+9", 2.02475E+9 -DATA 86 , 0 , "-2.26748E+9", -2.26748E+9 -DATA 87 , 0 , "-2.10587E+9", -2.10587E+9 -DATA 88 , 0 , " 4.23585E+9", 4.23585E+9 -DATA 89 , 0 , "-2.66524E+9", -2.66524E+9 -DATA 90 , 0 , " 4.01052E+9", 4.01052E+9 -DATA 91 , 0 , "-4.87912E+9", -4.87912E+9 -DATA 92 , 0 , " 1.77556E+9", 1.77556E+9 -DATA 93 , 0 , " 2.87705E+8", 2.87705E+8 -DATA 94 , 0 , " 1.99977E+8", 1.99977E+8 -DATA 95 , 0 , "-3.39941E+9", -3.39941E+9 -DATA 96 , 0 , "-3.49119E+9", -3.49119E+9 -DATA 97 , 0 , "-2.86324E+9", -2.86324E+9 -DATA 98 , 0 , " 4.20418E+9", 4.20418E+9 -DATA 99 , 0 , "-3.1518E+9", -3.1518E+9 -DATA 100 , 0 , " 4.60615E+9", 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_STR_X_S.run b/bwbtest/NBS2X/F_STR_X_S.run deleted file mode 100644 index 4da03d5..0000000 --- a/bwbtest/NBS2X/F_STR_X_S.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R$=[ 0] X= 0 - F= 0 S$=[ 0] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ 1] X= 1 - F= 0 S$=[ 1] -*** TEST PASSED *** -TESTCASE # 3 E= 0 R$=[-1] X=-1 - F= 0 S$=[-1] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[ .4] X= .4 - F= 0 S$=[ .4] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[-.4] X=-.4 - F= 0 S$=[-.4] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ .6] X= .6 - F= 0 S$=[ .6] -*** TEST PASSED *** -TESTCASE # 7 E= 0 R$=[-.6] X=-.6 - F= 0 S$=[-.6] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[ 254] X= 254 - F= 0 S$=[ 254] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[ 255] X= 255 - F= 0 S$=[ 255] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[ 256] X= 256 - F= 0 S$=[ 256] -*** TEST PASSED *** -TESTCASE # 11 E= 0 R$=[ 32000] X= 32000 - F= 0 S$=[ 32000] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[-.227229] X=-.227229 - F= 0 S$=[-.227229] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[-.239157] X=-.239157 - F= 0 S$=[-.239157] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[-.213586] X=-.213586 - F= 0 S$=[-.213586] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[ .274675] X= .274675 - F= 0 S$=[ .274675] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[ .169766] X= .169766 - F= 0 S$=[ .169766] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[ .318766] X= .318766 - F= 0 S$=[ .318766] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[ 2.06658E-2] X= 2.06658E-2 - F= 0 S$=[ 2.06658E-2] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[ .188257] X= .188257 - F= 0 S$=[ .188257] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[-.277537] X=-.277537 - F= 0 S$=[-.277537] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[-.481303] X=-.481303 - F= 0 S$=[-.481303] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[ .43556] X= .43556 - F= 0 S$=[ .43556] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[-.210971] X=-.210971 - F= 0 S$=[-.210971] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[-.455216] X=-.455216 - F= 0 S$=[-.455216] -*** TEST PASSED *** -TESTCASE # 25 E= 0 R$=[-110.907] X=-110.907 - F= 0 S$=[-110.907] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[ 105.632] X= 105.632 - F= 0 S$=[ 105.632] -*** TEST PASSED *** -TESTCASE # 27 E= 0 R$=[-114.341] X=-114.341 - F= 0 S$=[-114.341] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[ 109.706] X= 109.706 - F= 0 S$=[ 109.706] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[ 109.198] X= 109.198 - F= 0 S$=[ 109.198] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[ 85.8773] X= 85.8773 - F= 0 S$=[ 85.8773] -*** TEST PASSED *** -TESTCASE # 31 E= 0 R$=[-58.3548] X=-58.3548 - F= 0 S$=[-58.3548] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[ 29.6397] X= 29.6397 - F= 0 S$=[ 29.6397] -*** TEST PASSED *** -TESTCASE # 33 E= 0 R$=[-108.36] X=-108.36 - F= 0 S$=[-108.36] -*** TEST PASSED *** -TESTCASE # 34 E= 0 R$=[-46.5199] X=-46.5199 - F= 0 S$=[-46.5199] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[ 112.521] X= 112.521 - F= 0 S$=[ 112.521] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[ 45.4151] X= 45.4151 - F= 0 S$=[ 45.4151] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[ 101.129] X= 101.129 - F= 0 S$=[ 101.129] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[ 65.0473] X= 65.0473 - F= 0 S$=[ 65.0473] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[ 48.4012] X= 48.4012 - F= 0 S$=[ 48.4012] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[ 122.294] X= 122.294 - F= 0 S$=[ 122.294] -*** TEST PASSED *** -TESTCASE # 41 E= 0 R$=[-56.1094] X=-56.1094 - F= 0 S$=[-56.1094] -*** TEST PASSED *** -TESTCASE # 42 E= 0 R$=[-121.087] X=-121.087 - F= 0 S$=[-121.087] -*** TEST PASSED *** -TESTCASE # 43 E= 0 R$=[-123.517] X=-123.517 - F= 0 S$=[-123.517] -*** TEST PASSED *** -TESTCASE # 44 E= 0 R$=[-97.6301] X=-97.6301 - F= 0 S$=[-97.6301] -*** TEST PASSED *** -TESTCASE # 45 E= 0 R$=[-64.0001] X=-64.0001 - F= 0 S$=[-64.0001] -*** TEST PASSED *** -TESTCASE # 46 E= 0 R$=[-25.6888] X=-25.6888 - F= 0 S$=[-25.6888] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[ 14.8006] X= 14.8006 - F= 0 S$=[ 14.8006] -*** TEST PASSED *** -TESTCASE # 48 E= 0 R$=[-61.0877] X=-61.0877 - F= 0 S$=[-61.0877] -*** TEST PASSED *** -TESTCASE # 49 E= 0 R$=[-66.6381] X=-66.6381 - F= 0 S$=[-66.6381] -*** TEST PASSED *** -TESTCASE # 50 E= 0 R$=[-5476.5] X=-5476.5 - F= 0 S$=[-5476.5] -*** TEST PASSED *** -TESTCASE # 51 E= 0 R$=[-21210.3] X=-21210.3 - F= 0 S$=[-21210.3] -*** TEST PASSED *** -TESTCASE # 52 E= 0 R$=[-28757.2] X=-28757.2 - F= 0 S$=[-28757.2] -*** TEST PASSED *** -TESTCASE # 53 E= 0 R$=[-28732.2] X=-28732.2 - F= 0 S$=[-28732.2] -*** TEST PASSED *** -TESTCASE # 54 E= 0 R$=[ 12730.3] X= 12730.3 - F= 0 S$=[ 12730.3] -*** TEST PASSED *** -TESTCASE # 55 E= 0 R$=[-1830.69] X=-1830.69 - F= 0 S$=[-1830.69] -*** TEST PASSED *** -TESTCASE # 56 E= 0 R$=[ 5486.39] X= 5486.39 - F= 0 S$=[ 5486.39] -*** TEST PASSED *** -TESTCASE # 57 E= 0 R$=[ 22405.9] X= 22405.9 - F= 0 S$=[ 22405.9] -*** TEST PASSED *** -TESTCASE # 58 E= 0 R$=[ 30809.8] X= 30809.8 - F= 0 S$=[ 30809.8] -*** TEST PASSED *** -TESTCASE # 59 E= 0 R$=[-28930.6] X=-28930.6 - F= 0 S$=[-28930.6] -*** TEST PASSED *** -TESTCASE # 60 E= 0 R$=[-6014.53] X=-6014.53 - F= 0 S$=[-6014.53] -*** TEST PASSED *** -TESTCASE # 61 E= 0 R$=[ 17414.6] X= 17414.6 - F= 0 S$=[ 17414.6] -*** TEST PASSED *** -TESTCASE # 62 E= 0 R$=[-10538.3] X=-10538.3 - F= 0 S$=[-10538.3] -*** TEST PASSED *** -TESTCASE # 63 E= 0 R$=[-17536.3] X=-17536.3 - F= 0 S$=[-17536.3] -*** TEST PASSED *** -TESTCASE # 64 E= 0 R$=[-8856.62] X=-8856.62 - F= 0 S$=[-8856.62] -*** TEST PASSED *** -TESTCASE # 65 E= 0 R$=[-5140.12] X=-5140.12 - F= 0 S$=[-5140.12] -*** TEST PASSED *** -TESTCASE # 66 E= 0 R$=[-8595.31] X=-8595.31 - F= 0 S$=[-8595.31] -*** TEST PASSED *** -TESTCASE # 67 E= 0 R$=[-3382.87] X=-3382.87 - F= 0 S$=[-3382.87] -*** TEST PASSED *** -TESTCASE # 68 E= 0 R$=[-5002.07] X=-5002.07 - F= 0 S$=[-5002.07] -*** TEST PASSED *** -TESTCASE # 69 E= 0 R$=[-5800.72] X=-5800.72 - F= 0 S$=[-5800.72] -*** TEST PASSED *** -TESTCASE # 70 E= 0 R$=[ 29686.4] X= 29686.4 - F= 0 S$=[ 29686.4] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ 2571] X= 2571 - F= 0 S$=[ 2571] -*** TEST PASSED *** -TESTCASE # 72 E= 0 R$=[ 31091] X= 31091 - F= 0 S$=[ 31091] -*** TEST PASSED *** -TESTCASE # 73 E= 0 R$=[ 14819] X= 14819 - F= 0 S$=[ 14819] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[ 3790.9] X= 3790.9 - F= 0 S$=[ 3790.9] -*** TEST PASSED *** -TESTCASE # 75 E= 0 R$=[-4.2981E+9] X=-4.2981E+9 - F= 0 S$=[-4.2981E+9] -*** TEST PASSED *** -TESTCASE # 76 E= 0 R$=[-7.05453E+8] X=-7.05453E+8 - F= 0 S$=[-7.05453E+8] -*** TEST PASSED *** -TESTCASE # 77 E= 0 R$=[-3.10179E+9] X=-3.10179E+9 - F= 0 S$=[-3.10179E+9] -*** TEST PASSED *** -TESTCASE # 78 E= 0 R$=[-4.86159E+9] X=-4.86159E+9 - F= 0 S$=[-4.86159E+9] -*** TEST PASSED *** -TESTCASE # 79 E= 0 R$=[-8.62908E+8] X=-8.62908E+8 - F= 0 S$=[-8.62908E+8] -*** TEST PASSED *** -TESTCASE # 80 E= 0 R$=[-3.4101E+9] X=-3.4101E+9 - F= 0 S$=[-3.4101E+9] -*** TEST PASSED *** -TESTCASE # 81 E= 0 R$=[ 3.3889E+9] X= 3.3889E+9 - F= 0 S$=[ 3.3889E+9] -*** TEST PASSED *** -TESTCASE # 82 E= 0 R$=[ 2.49826E+9] X= 2.49826E+9 - F= 0 S$=[ 2.49826E+9] -*** TEST PASSED *** -TESTCASE # 83 E= 0 R$=[ 2.3491E+9] X= 2.3491E+9 - F= 0 S$=[ 2.3491E+9] -*** TEST PASSED *** -TESTCASE # 84 E= 0 R$=[ 1.94745E+8] X= 1.94745E+8 - F= 0 S$=[ 1.94745E+8] -*** TEST PASSED *** -TESTCASE # 85 E= 0 R$=[ 2.02475E+9] X= 2.02475E+9 - F= 0 S$=[ 2.02475E+9] -*** TEST PASSED *** -TESTCASE # 86 E= 0 R$=[-2.26748E+9] X=-2.26748E+9 - F= 0 S$=[-2.26748E+9] -*** TEST PASSED *** -TESTCASE # 87 E= 0 R$=[-2.10587E+9] X=-2.10587E+9 - F= 0 S$=[-2.10587E+9] -*** TEST PASSED *** -TESTCASE # 88 E= 0 R$=[ 4.23585E+9] X= 4.23585E+9 - F= 0 S$=[ 4.23585E+9] -*** TEST PASSED *** -TESTCASE # 89 E= 0 R$=[-2.66524E+9] X=-2.66524E+9 - F= 0 S$=[-2.66524E+9] -*** TEST PASSED *** -TESTCASE # 90 E= 0 R$=[ 4.01052E+9] X= 4.01052E+9 - F= 0 S$=[ 4.01052E+9] -*** TEST PASSED *** -TESTCASE # 91 E= 0 R$=[-4.87912E+9] X=-4.87912E+9 - F= 0 S$=[-4.87912E+9] -*** TEST PASSED *** -TESTCASE # 92 E= 0 R$=[ 1.77556E+9] X= 1.77556E+9 - F= 0 S$=[ 1.77556E+9] -*** TEST PASSED *** -TESTCASE # 93 E= 0 R$=[ 2.87705E+8] X= 2.87705E+8 - F= 0 S$=[ 2.87705E+8] -*** TEST PASSED *** -TESTCASE # 94 E= 0 R$=[ 1.99977E+8] X= 1.99977E+8 - F= 0 S$=[ 1.99977E+8] -*** TEST PASSED *** -TESTCASE # 95 E= 0 R$=[-3.39941E+9] X=-3.39941E+9 - F= 0 S$=[-3.39941E+9] -*** TEST PASSED *** -TESTCASE # 96 E= 0 R$=[-3.49119E+9] X=-3.49119E+9 - F= 0 S$=[-3.49119E+9] -*** TEST PASSED *** -TESTCASE # 97 E= 0 R$=[-2.86324E+9] X=-2.86324E+9 - F= 0 S$=[-2.86324E+9] -*** TEST PASSED *** -TESTCASE # 98 E= 0 R$=[ 4.20418E+9] X= 4.20418E+9 - F= 0 S$=[ 4.20418E+9] -*** TEST PASSED *** -TESTCASE # 99 E= 0 R$=[-3.1518E+9] X=-3.1518E+9 - F= 0 S$=[-3.1518E+9] -*** TEST PASSED *** -TESTCASE # 100 E= 0 R$=[ 4.60615E+9] X= - 4.60615E+9 - F= 0 S$=[ 4.60615E+9] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_TANH_X_N.BAS b/bwbtest/NBS2X/F_TANH_X_N.BAS deleted file mode 100644 index a778b0f..0000000 --- a/bwbtest/NBS2X/F_TANH_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:35 -REM FILENAME: F_TANH_X_N.BAS -REM SYNTAX: N = TANH( X ) -REM UNIQUEID: F_TANH_X_N -REM FUNCTION: TANH -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = TANH( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , .761594 , 1 -DATA 3 , 0 , -.761594 , -1 -DATA 4 , 0 , .379949 , .4 -DATA 5 , 0 , -.379949 , -.4 -DATA 6 , 0 , .53705 , .6 -DATA 7 , 0 , -.53705 , -.6 -DATA 8 , 0 , 1 , 254 -DATA 9 , 0 , 1 , 255 -DATA 10 , 0 , 1 , 256 -DATA 11 , 0 , 1 , 32000 -DATA 12 , 0 , -.223397 , -.227229 -DATA 13 , 0 , -.234699 , -.239157 -DATA 14 , 0 , -.210396 , -.213586 -DATA 15 , 0 , .26797 , .274675 -DATA 16 , 0 , .168154 , .169766 -DATA 17 , 0 , .308391 , .318766 -DATA 18 , 0 , 2.06629E-2 , 2.06658E-2 -DATA 19 , 0 , .186064 , .188257 -DATA 20 , 0 , -.270624 , -.277537 -DATA 21 , 0 , -.447287 , -.481303 -DATA 22 , 0 , .409957 , .43556 -DATA 23 , 0 , -.207896 , -.210971 -DATA 24 , 0 , -.426177 , -.455216 -DATA 25 , 0 , -1 , -110.907 -DATA 26 , 0 , 1 , 105.632 -DATA 27 , 0 , -1 , -114.341 -DATA 28 , 0 , 1 , 109.706 -DATA 29 , 0 , 1 , 109.198 -DATA 30 , 0 , 1 , 85.8773 -DATA 31 , 0 , -1 , -58.3548 -DATA 32 , 0 , 1 , 29.6397 -DATA 33 , 0 , -1 , -108.36 -DATA 34 , 0 , -1 , -46.5199 -DATA 35 , 0 , 1 , 112.521 -DATA 36 , 0 , 1 , 45.4151 -DATA 37 , 0 , 1 , 101.129 -DATA 38 , 0 , 1 , 65.0473 -DATA 39 , 0 , 1 , 48.4012 -DATA 40 , 0 , 1 , 122.294 -DATA 41 , 0 , -1 , -56.1094 -DATA 42 , 0 , -1 , -121.087 -DATA 43 , 0 , -1 , -123.517 -DATA 44 , 0 , -1 , -97.6301 -DATA 45 , 0 , -1 , -64.0001 -DATA 46 , 0 , -1 , -25.6888 -DATA 47 , 0 , 1. , 14.8006 -DATA 48 , 0 , -1 , -61.0877 -DATA 49 , 0 , -1 , -66.6381 -DATA 50 , 0 , -1 , -5476.5 -DATA 51 , 0 , -1 , -21210.3 -DATA 52 , 0 , -1 , -28757.2 -DATA 53 , 0 , -1 , -28732.2 -DATA 54 , 0 , 1 , 12730.3 -DATA 55 , 0 , -1 , -1830.69 -DATA 56 , 0 , 1 , 5486.39 -DATA 57 , 0 , 1 , 22405.9 -DATA 58 , 0 , 1 , 30809.8 -DATA 59 , 0 , -1 , -28930.6 -DATA 60 , 0 , -1 , -6014.53 -DATA 61 , 0 , 1 , 17414.6 -DATA 62 , 0 , -1 , -10538.3 -DATA 63 , 0 , -1 , -17536.3 -DATA 64 , 0 , -1 , -8856.62 -DATA 65 , 0 , -1 , -5140.12 -DATA 66 , 0 , -1 , -8595.31 -DATA 67 , 0 , -1 , -3382.87 -DATA 68 , 0 , -1 , -5002.07 -DATA 69 , 0 , -1 , -5800.72 -DATA 70 , 0 , 1 , 29686.4 -DATA 71 , 0 , 1 , 2571. -DATA 72 , 0 , 1 , 31091. -DATA 73 , 0 , 1 , 14819. -DATA 74 , 0 , 1 , 3790.9 -DATA 75 , 0 , -1 , -4.2981E+9 -DATA 76 , 0 , -1 , -7.05453E+8 -DATA 77 , 0 , -1 , -3.10179E+9 -DATA 78 , 0 , -1 , -4.86159E+9 -DATA 79 , 0 , -1 , -8.62908E+8 -DATA 80 , 0 , -1 , -3.4101E+9 -DATA 81 , 0 , 1 , 3.3889E+9 -DATA 82 , 0 , 1 , 2.49826E+9 -DATA 83 , 0 , 1 , 2.3491E+9 -DATA 84 , 0 , 1 , 1.94745E+8 -DATA 85 , 0 , 1 , 2.02475E+9 -DATA 86 , 0 , -1 , -2.26748E+9 -DATA 87 , 0 , -1 , -2.10587E+9 -DATA 88 , 0 , 1 , 4.23585E+9 -DATA 89 , 0 , -1 , -2.66524E+9 -DATA 90 , 0 , 1 , 4.01052E+9 -DATA 91 , 0 , -1 , -4.87912E+9 -DATA 92 , 0 , 1 , 1.77556E+9 -DATA 93 , 0 , 1 , 2.87705E+8 -DATA 94 , 0 , 1 , 1.99977E+8 -DATA 95 , 0 , -1 , -3.39941E+9 -DATA 96 , 0 , -1 , -3.49119E+9 -DATA 97 , 0 , -1 , -2.86324E+9 -DATA 98 , 0 , 1 , 4.20418E+9 -DATA 99 , 0 , -1 , -3.1518E+9 -DATA 100 , 0 , 1 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_TANH_X_N.run b/bwbtest/NBS2X/F_TANH_X_N.run deleted file mode 100644 index f401779..0000000 --- a/bwbtest/NBS2X/F_TANH_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= .761594 X= 1 - F= 0 N= .761594 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-.761594 X=-1 - F= 0 N=-.761594 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .379949 X= .4 - F= 0 N= .379949 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.379949 X=-.4 - F= 0 N=-.379949 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .53705 X= .6 - F= 0 N= .53705 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.53705 X=-.6 - F= 0 N=-.53705 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 1 X= 254 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= 1 X= 255 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 1 X= 256 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R= 1 X= 32000 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.223397 X=-.227229 - F= 0 N=-.223397 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.234699 X=-.239157 - F= 0 N=-.234699 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.210396 X=-.213586 - F= 0 N=-.210396 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .26797 X= .274675 - F= 0 N= .26797 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .168154 X= .169766 - F= 0 N= .168154 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .308391 X= .318766 - F= 0 N= .308391 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06629E-2 X= 2.06658E-2 - F= 0 N= 2.06629E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .186064 X= .188257 - F= 0 N= .186064 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.270624 X=-.277537 - F= 0 N=-.270624 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.447287 X=-.481303 - F= 0 N=-.447287 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .409957 X= .43556 - F= 0 N= .409957 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.207896 X=-.210971 - F= 0 N=-.207896 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.426177 X=-.455216 - F= 0 N=-.426177 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-1 X=-110.907 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R= 1 X= 105.632 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-1 X=-114.341 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R= 1 X= 109.706 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R= 1 X= 109.198 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1 X= 85.8773 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R=-1 X=-58.3548 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 1 X= 29.6397 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-1 X=-108.36 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R=-1 X=-46.5199 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R= 1 X= 112.521 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 1 X= 45.4151 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= 1 X= 101.129 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R= 1 X= 65.0473 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 1 X= 48.4012 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R= 1 X= 122.294 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R=-1 X=-56.1094 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R=-1 X=-121.087 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-1 X=-123.517 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-1 X=-97.6301 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-1 X=-64.0001 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-1 X=-25.6888 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 1 X= 14.8006 - F= 0 N= 1. -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-1 X=-61.0877 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-1 X=-66.6381 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-1 X=-5476.5 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-1 X=-21210.3 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R=-1 X=-28757.2 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R=-1 X=-28732.2 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= 1 X= 12730.3 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R=-1 X=-1830.69 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 1 X= 5486.39 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 1 X= 22405.9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= 1 X= 30809.8 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R=-1 X=-28930.6 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-1 X=-6014.53 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= 1 X= 17414.6 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-1 X=-10538.3 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R=-1 X=-17536.3 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-1 X=-8856.62 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-1 X=-5140.12 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R=-1 X=-8595.31 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R=-1 X=-3382.87 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-1 X=-5002.07 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-1 X=-5800.72 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 1 X= 29686.4 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 1 X= 2571 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R= 1 X= 31091 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= 1 X= 14819 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R= 1 X= 3790.9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R=-1 X=-4.2981E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-1 X=-7.05453E+8 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R=-1 X=-3.10179E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R=-1 X=-4.86159E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-1 X=-8.62908E+8 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R=-1 X=-3.4101E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 1 X= 3.3889E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 1 X= 2.49826E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R= 1 X= 2.3491E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R= 1 X= 1.94745E+8 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= 1 X= 2.02475E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R=-1 X=-2.26748E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-1 X=-2.10587E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 1 X= 4.23585E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-1 X=-2.66524E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R= 1 X= 4.01052E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R=-1 X=-4.87912E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R= 1 X= 1.77556E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R= 1 X= 2.87705E+8 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= 1 X= 1.99977E+8 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-1 X=-3.39941E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R=-1 X=-3.49119E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R=-1 X=-2.86324E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 1 X= 4.20418E+9 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-1 X=-3.1518E+9 - F= 0 N=-1 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= 1 X= 4.60615E+9 - F= 0 N= 1 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_TAN_X_N.BAS b/bwbtest/NBS2X/F_TAN_X_N.BAS deleted file mode 100644 index 9af6e08..0000000 --- a/bwbtest/NBS2X/F_TAN_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:35 -REM FILENAME: F_TAN_X_N.BAS -REM SYNTAX: N = TAN( X ) -REM UNIQUEID: F_TAN_X_N -REM FUNCTION: TAN -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = TAN( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 1.55741 , 1 -DATA 3 , 0 , -1.55741 , -1 -DATA 4 , 0 , .422793 , .4 -DATA 5 , 0 , -.422793 , -.4 -DATA 6 , 0 , .684137 , .6 -DATA 7 , 0 , -.684137 , -.6 -DATA 8 , 0 , -.506715 , 254 -DATA 9 , 0 , .587254 , 255 -DATA 10 , 0 , 25.1116 , 256 -DATA 11 , 0 , -.268989 , 32000 -DATA 12 , 0 , -.231222 , -.227229 -DATA 13 , 0 , -.243823 , -.239157 -DATA 14 , 0 , -.216894 , -.213586 -DATA 15 , 0 , .281798 , .274675 -DATA 16 , 0 , .171416 , .169766 -DATA 17 , 0 , .33002 , .318766 -DATA 18 , 0 , 2.06687E-2 , 2.06658E-2 -DATA 19 , 0 , .190513 , .188257 -DATA 20 , 0 , -.28489 , -.277537 -DATA 21 , 0 , -.522268 , -.481303 -DATA 22 , 0 , .465368 , .43556 -DATA 23 , 0 , -.214158 , -.210971 -DATA 24 , 0 , -.489504 , -.455216 -DATA 25 , 0 , -1.4021 , -110.907 -DATA 26 , 0 , -2.44216 , 105.632 -DATA 27 , 0 , -2.94704 , -114.341 -DATA 28 , 0 , -.255068 , 109.706 -DATA 29 , 0 , -.946165 , 109.198 -DATA 30 , 0 , 1.76081 , 85.8773 -DATA 31 , 0 , 4.17051 , -58.3548 -DATA 32 , 0 , 4.79916 , 29.6397 -DATA 33 , 0 , -40.0774 , -108.36 -DATA 34 , 0 , .69001 , -46.5199 -DATA 35 , 0 , -.649944 , 112.521 -DATA 36 , 0 , 7.20066 , 45.4151 -DATA 37 , 0 , .681256 , 101.129 -DATA 38 , 0 , -1.33015 , 65.0473 -DATA 39 , 0 , 3.30892 , 48.4012 -DATA 40 , 0 , -.232154 , 122.294 -DATA 41 , 0 , .469886 , -56.1094 -DATA 42 , 0 , 7.32485 , -121.087 -DATA 43 , 0 , -1.54003 , -123.517 -DATA 44 , 0 , -.245488 , -97.6301 -DATA 45 , 0 , -2.34851 , -64.0001 -DATA 46 , 0 , -.621473 , -25.6888 -DATA 47 , 0 , -1.27939 , 14.8006 -DATA 48 , 0 , -5.71055 , -61.0877 -DATA 49 , 0 , -.78359 , -66.6381 -DATA 50 , 0 , -.849158 , -5476.5 -DATA 51 , 0 , -6.08812 , -21210.3 -DATA 52 , 0 , 1.3668 , -28757.2 -DATA 53 , 0 , 1.04293 , -28732.2 -DATA 54 , 0 , .636137 , 12730.3 -DATA 55 , 0 , 1.15808 , -1830.69 -DATA 56 , 0 , 2.35491 , 5486.39 -DATA 57 , 0 , 6.12711E-2 , 22405.9 -DATA 58 , 0 , .203591 , 30809.8 -DATA 59 , 0 , .338894 , -28930.6 -DATA 60 , 0 , -20.3356 , -6014.53 -DATA 61 , 0 , .935191 , 17414.6 -DATA 62 , 0 , -5.73757 , -10538.3 -DATA 63 , 0 , 7.03078E-2 , -17536.3 -DATA 64 , 0 , -.508355 , -8856.62 -DATA 65 , 0 , -.513537 , -5140.12 -DATA 66 , 0 , 8.77242E-2 , -8595.31 -DATA 67 , 0 , .721922 , -3382.87 -DATA 68 , 0 , -.767322 , -5002.07 -DATA 69 , 0 , -4.25488 , -5800.72 -DATA 70 , 0 , 12.5078 , 29686.4 -DATA 71 , 0 , 2.40816 , 2571. -DATA 72 , 0 , -4.30376 , 31091. -DATA 73 , 0 , .107868 , 14819. -DATA 74 , 0 , -1.56543 , 3790.9 -DATA 75 , 0 , .695559 , -4.2981E+9 -DATA 76 , 0 , -.462965 , -7.05453E+8 -DATA 77 , 0 , .447665 , -3.10179E+9 -DATA 78 , 0 , 4.32945 , -4.86159E+9 -DATA 79 , 0 , -1.11353 , -8.62908E+8 -DATA 80 , 0 , .412946 , -3.4101E+9 -DATA 81 , 0 , 1.27465 , 3.3889E+9 -DATA 82 , 0 , 1.04838 , 2.49826E+9 -DATA 83 , 0 , -2.22701 , 2.3491E+9 -DATA 84 , 0 , -.801861 , 1.94745E+8 -DATA 85 , 0 , .160414 , 2.02475E+9 -DATA 86 , 0 , 1.17816 , -2.26748E+9 -DATA 87 , 0 , -5.61655E-2 , -2.10587E+9 -DATA 88 , 0 , 2.82231 , 4.23585E+9 -DATA 89 , 0 , -.166401 , -2.66524E+9 -DATA 90 , 0 , -1.07964 , 4.01052E+9 -DATA 91 , 0 , .406664 , -4.87912E+9 -DATA 92 , 0 , -25.4693 , 1.77556E+9 -DATA 93 , 0 , -.705126 , 2.87705E+8 -DATA 94 , 0 , .357809 , 1.99977E+8 -DATA 95 , 0 , -.689009 , -3.39941E+9 -DATA 96 , 0 , 6.87334 , -3.49119E+9 -DATA 97 , 0 , 18.8431 , -2.86324E+9 -DATA 98 , 0 , 1.34211 , 4.20418E+9 -DATA 99 , 0 , -1.16396 , -3.1518E+9 -DATA 100 , 0 , .971919 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_TAN_X_N.run b/bwbtest/NBS2X/F_TAN_X_N.run deleted file mode 100644 index 47783d0..0000000 --- a/bwbtest/NBS2X/F_TAN_X_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1.55741 X= 1 - F= 0 N= 1.55741 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-1.55741 X=-1 - F= 0 N=-1.55741 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .422793 X= .4 - F= 0 N= .422793 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-.422793 X=-.4 - F= 0 N=-.422793 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .684137 X= .6 - F= 0 N= .684137 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-.684137 X=-.6 - F= 0 N=-.684137 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R=-.506715 X= 254 - F= 0 N=-.506715 -*** TEST PASSED *** -TESTCASE # 9 E= 0 R= .587254 X= 255 - F= 0 N= .587254 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 25.1116 X= 256 - F= 0 N= 25.1116 -*** TEST PASSED *** -TESTCASE # 11 E= 0 R=-.268989 X= 32000 - F= 0 N=-.268989 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-.231222 X=-.227229 - F= 0 N=-.231222 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-.243823 X=-.239157 - F= 0 N=-.243823 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-.216894 X=-.213586 - F= 0 N=-.216894 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= .281798 X= .274675 - F= 0 N= .281798 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= .171416 X= .169766 - F= 0 N= .171416 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= .33002 X= .318766 - F= 0 N= .33002 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 2.06687E-2 X= 2.06658E-2 - F= 0 N= 2.06687E-2 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= .190513 X= .188257 - F= 0 N= .190513 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-.28489 X=-.277537 - F= 0 N=-.28489 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-.522268 X=-.481303 - F= 0 N=-.522268 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .465368 X= .43556 - F= 0 N= .465368 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-.214158 X=-.210971 - F= 0 N=-.214158 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-.489504 X=-.455216 - F= 0 N=-.489504 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R=-1.4021 X=-110.907 - F= 0 N=-1.4021 -*** TEST PASSED *** -TESTCASE # 26 E= 0 R=-2.44216 X= 105.632 - F= 0 N=-2.44216 -*** TEST PASSED *** -TESTCASE # 27 E= 0 R=-2.94704 X=-114.341 - F= 0 N=-2.94704 -*** TEST PASSED *** -TESTCASE # 28 E= 0 R=-.255068 X= 109.706 - F= 0 N=-.255068 -*** TEST PASSED *** -TESTCASE # 29 E= 0 R=-.946165 X= 109.198 - F= 0 N=-.946165 -*** TEST PASSED *** -TESTCASE # 30 E= 0 R= 1.76081 X= 85.8773 - F= 0 N= 1.76081 -*** TEST PASSED *** -TESTCASE # 31 E= 0 R= 4.17051 X=-58.3548 - F= 0 N= 4.17051 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 4.79916 X= 29.6397 - F= 0 N= 4.79916 -*** TEST PASSED *** -TESTCASE # 33 E= 0 R=-40.0774 X=-108.36 - F= 0 N=-40.0774 -*** TEST PASSED *** -TESTCASE # 34 E= 0 R= .69001 X=-46.5199 - F= 0 N= .69001 -*** TEST PASSED *** -TESTCASE # 35 E= 0 R=-.649944 X= 112.521 - F= 0 N=-.649944 -*** TEST PASSED *** -TESTCASE # 36 E= 0 R= 7.20066 X= 45.4151 - F= 0 N= 7.20066 -*** TEST PASSED *** -TESTCASE # 37 E= 0 R= .681256 X= 101.129 - F= 0 N= .681256 -*** TEST PASSED *** -TESTCASE # 38 E= 0 R=-1.33015 X= 65.0473 - F= 0 N=-1.33015 -*** TEST PASSED *** -TESTCASE # 39 E= 0 R= 3.30892 X= 48.4012 - F= 0 N= 3.30892 -*** TEST PASSED *** -TESTCASE # 40 E= 0 R=-.232154 X= 122.294 - F= 0 N=-.232154 -*** TEST PASSED *** -TESTCASE # 41 E= 0 R= .469886 X=-56.1094 - F= 0 N= .469886 -*** TEST PASSED *** -TESTCASE # 42 E= 0 R= 7.32485 X=-121.087 - F= 0 N= 7.32485 -*** TEST PASSED *** -TESTCASE # 43 E= 0 R=-1.54003 X=-123.517 - F= 0 N=-1.54003 -*** TEST PASSED *** -TESTCASE # 44 E= 0 R=-.245488 X=-97.6301 - F= 0 N=-.245488 -*** TEST PASSED *** -TESTCASE # 45 E= 0 R=-2.34851 X=-64.0001 - F= 0 N=-2.34851 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-.621473 X=-25.6888 - F= 0 N=-.621473 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R=-1.27939 X= 14.8006 - F= 0 N=-1.27939 -*** TEST PASSED *** -TESTCASE # 48 E= 0 R=-5.71055 X=-61.0877 - F= 0 N=-5.71055 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R=-.78359 X=-66.6381 - F= 0 N=-.78359 -*** TEST PASSED *** -TESTCASE # 50 E= 0 R=-.849158 X=-5476.5 - F= 0 N=-.849158 -*** TEST PASSED *** -TESTCASE # 51 E= 0 R=-6.08812 X=-21210.3 - F= 0 N=-6.08812 -*** TEST PASSED *** -TESTCASE # 52 E= 0 R= 1.3668 X=-28757.2 - F= 0 N= 1.3668 -*** TEST PASSED *** -TESTCASE # 53 E= 0 R= 1.04293 X=-28732.2 - F= 0 N= 1.04293 -*** TEST PASSED *** -TESTCASE # 54 E= 0 R= .636137 X= 12730.3 - F= 0 N= .636137 -*** TEST PASSED *** -TESTCASE # 55 E= 0 R= 1.15808 X=-1830.69 - F= 0 N= 1.15808 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 2.35491 X= 5486.39 - F= 0 N= 2.35491 -*** TEST PASSED *** -TESTCASE # 57 E= 0 R= 6.12711E-2 X= 22405.9 - F= 0 N= 6.12711E-2 -*** TEST PASSED *** -TESTCASE # 58 E= 0 R= .203591 X= 30809.8 - F= 0 N= .203591 -*** TEST PASSED *** -TESTCASE # 59 E= 0 R= .338894 X=-28930.6 - F= 0 N= .338894 -*** TEST PASSED *** -TESTCASE # 60 E= 0 R=-20.3356 X=-6014.53 - F= 0 N=-20.3356 -*** TEST PASSED *** -TESTCASE # 61 E= 0 R= .935191 X= 17414.6 - F= 0 N= .935191 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R=-5.73757 X=-10538.3 - F= 0 N=-5.73757 -*** TEST PASSED *** -TESTCASE # 63 E= 0 R= 7.03078E-2 X=-17536.3 - F= 0 N= 7.03078E-2 -*** TEST PASSED *** -TESTCASE # 64 E= 0 R=-.508355 X=-8856.62 - F= 0 N=-.508355 -*** TEST PASSED *** -TESTCASE # 65 E= 0 R=-.513537 X=-5140.12 - F= 0 N=-.513537 -*** TEST PASSED *** -TESTCASE # 66 E= 0 R= 8.77242E-2 X=-8595.31 - F= 0 N= 8.77242E-2 -*** TEST PASSED *** -TESTCASE # 67 E= 0 R= .721922 X=-3382.87 - F= 0 N= .721922 -*** TEST PASSED *** -TESTCASE # 68 E= 0 R=-.767322 X=-5002.07 - F= 0 N=-.767322 -*** TEST PASSED *** -TESTCASE # 69 E= 0 R=-4.25488 X=-5800.72 - F= 0 N=-4.25488 -*** TEST PASSED *** -TESTCASE # 70 E= 0 R= 12.5078 X= 29686.4 - F= 0 N= 12.5078 -*** TEST PASSED *** -TESTCASE # 71 E= 0 R= 2.40816 X= 2571 - F= 0 N= 2.40816 -*** TEST PASSED *** -TESTCASE # 72 E= 0 R=-4.30376 X= 31091 - F= 0 N=-4.30376 -*** TEST PASSED *** -TESTCASE # 73 E= 0 R= .107868 X= 14819 - F= 0 N= .107868 -*** TEST PASSED *** -TESTCASE # 74 E= 0 R=-1.56543 X= 3790.9 - F= 0 N=-1.56543 -*** TEST PASSED *** -TESTCASE # 75 E= 0 R= .695559 X=-4.2981E+9 - F= 0 N= .695559 -*** TEST PASSED *** -TESTCASE # 76 E= 0 R=-.462965 X=-7.05453E+8 - F= 0 N=-.462965 -*** TEST PASSED *** -TESTCASE # 77 E= 0 R= .447665 X=-3.10179E+9 - F= 0 N= .447665 -*** TEST PASSED *** -TESTCASE # 78 E= 0 R= 4.32945 X=-4.86159E+9 - F= 0 N= 4.32945 -*** TEST PASSED *** -TESTCASE # 79 E= 0 R=-1.11353 X=-8.62908E+8 - F= 0 N=-1.11353 -*** TEST PASSED *** -TESTCASE # 80 E= 0 R= .412946 X=-3.4101E+9 - F= 0 N= .412946 -*** TEST PASSED *** -TESTCASE # 81 E= 0 R= 1.27465 X= 3.3889E+9 - F= 0 N= 1.27465 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 1.04838 X= 2.49826E+9 - F= 0 N= 1.04838 -*** TEST PASSED *** -TESTCASE # 83 E= 0 R=-2.22701 X= 2.3491E+9 - F= 0 N=-2.22701 -*** TEST PASSED *** -TESTCASE # 84 E= 0 R=-.801861 X= 1.94745E+8 - F= 0 N=-.801861 -*** TEST PASSED *** -TESTCASE # 85 E= 0 R= .160414 X= 2.02475E+9 - F= 0 N= .160414 -*** TEST PASSED *** -TESTCASE # 86 E= 0 R= 1.17816 X=-2.26748E+9 - F= 0 N= 1.17816 -*** TEST PASSED *** -TESTCASE # 87 E= 0 R=-5.61655E-2 X=-2.10587E+9 - F= 0 N=-5.61655E-2 -*** TEST PASSED *** -TESTCASE # 88 E= 0 R= 2.82231 X= 4.23585E+9 - F= 0 N= 2.82231 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R=-.166401 X=-2.66524E+9 - F= 0 N=-.166401 -*** TEST PASSED *** -TESTCASE # 90 E= 0 R=-1.07964 X= 4.01052E+9 - F= 0 N=-1.07964 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= .406664 X=-4.87912E+9 - F= 0 N= .406664 -*** TEST PASSED *** -TESTCASE # 92 E= 0 R=-25.4693 X= 1.77556E+9 - F= 0 N=-25.4693 -*** TEST PASSED *** -TESTCASE # 93 E= 0 R=-.705126 X= 2.87705E+8 - F= 0 N=-.705126 -*** TEST PASSED *** -TESTCASE # 94 E= 0 R= .357809 X= 1.99977E+8 - F= 0 N= .357809 -*** TEST PASSED *** -TESTCASE # 95 E= 0 R=-.689009 X=-3.39941E+9 - F= 0 N=-.689009 -*** TEST PASSED *** -TESTCASE # 96 E= 0 R= 6.87334 X=-3.49119E+9 - F= 0 N= 6.87334 -*** TEST PASSED *** -TESTCASE # 97 E= 0 R= 18.8431 X=-2.86324E+9 - F= 0 N= 18.8431 -*** TEST PASSED *** -TESTCASE # 98 E= 0 R= 1.34211 X= 4.20418E+9 - F= 0 N= 1.34211 -*** TEST PASSED *** -TESTCASE # 99 E= 0 R=-1.16396 X=-3.1518E+9 - F= 0 N=-1.16396 -*** TEST PASSED *** -TESTCASE # 100 E= 0 R= .971919 X= 4.60615E+9 - F= 0 N= .971919 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_TRIM_A_S.BAS b/bwbtest/NBS2X/F_TRIM_A_S.BAS deleted file mode 100644 index 1c269e0..0000000 --- a/bwbtest/NBS2X/F_TRIM_A_S.BAS +++ /dev/null @@ -1,159 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:35 -REM FILENAME: F_TRIM_A_S.BAS -REM SYNTAX: S$ = TRIM$( A$ ) -REM UNIQUEID: F_TRIM_A_S -REM FUNCTION: TRIM$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = TRIM$( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", "" -DATA 2 , 0 , "", " " -DATA 3 , 0 , "3", "3" -DATA 4 , 0 , "z", "z" -DATA 5 , 0 , "", " " -DATA 6 , 0 , "3", " 3" -DATA 7 , 0 , "z", " z" -DATA 8 , 0 , "3", "3 " -DATA 9 , 0 , "z", "z " -DATA 10 , 0 , "3", " 3 " -DATA 11 , 0 , "z", " z " -DATA 12 , 0 , "LLLL", " LLLL" -DATA 13 , 0 , "''", " '' " -DATA 14 , 0 , "oo", " oo " -DATA 15 , 0 , "00", " 00 " -DATA 16 , 0 , "\\\\", " \\\\ " -DATA 17 , 0 , "lllll", " lllll " -DATA 18 , 0 , "uuuu", " uuuu " -DATA 19 , 0 , "a", " a " -DATA 20 , 0 , "", " " -DATA 21 , 0 , "hh", " hh " -DATA 22 , 0 , "h", " h " -DATA 23 , 0 , ")", " )" -DATA 24 , 0 , "5", " 5 " -DATA 25 , 0 , "2", " 2 " -DATA 26 , 0 , "-", " - " -DATA 27 , 0 , "dd", "dd " -DATA 28 , 0 , "tttt", " tttt " -DATA 29 , 0 , "::::", " :::: " -DATA 30 , 0 , "___", " ___ " -DATA 31 , 0 , "", " " -DATA 32 , 0 , "", " " -DATA 33 , 0 , "_____", " _____ " -DATA 34 , 0 , "S", " S " -DATA 35 , 0 , "FFFF", " FFFF " -DATA 36 , 0 , "kkk", " kkk" -DATA 37 , 0 , "NNNN", " NNNN " -DATA 38 , 0 , "mmmm", " mmmm " -DATA 39 , 0 , ",,,,,", " ,,,,, " -DATA 40 , 0 , "OO", "OO " -DATA 41 , 0 , "HHHH", " HHHH " -DATA 42 , 0 , "<", " < " -DATA 43 , 0 , "j", " j " -DATA 44 , 0 , "yyyy", " yyyy " -DATA 45 , 0 , "+++", " +++ " -DATA 46 , 0 , "o", "o " -DATA 47 , 0 , "((", " ((" -DATA 48 , 0 , "uu", " uu " -DATA 49 , 0 , "00", " 00 " -DATA 50 , 0 , "HH", " HH " -DATA 51 , 0 , "", " " -DATA 52 , 0 , "G", " G " -DATA 53 , 0 , "{{{{", " {{{{ " -DATA 54 , 0 , "]]]", " ]]] " -DATA 55 , 0 , "CCC", "CCC" -DATA 56 , 0 , "44", " 44 " -DATA 57 , 0 , "^^", "^^ " -DATA 58 , 0 , "QQ", " QQ " -DATA 59 , 0 , "FFFF", " FFFF " -DATA 60 , 0 , "n", " n " -DATA 61 , 0 , "hh", " hh " -DATA 62 , 0 , "555", "555 " -DATA 63 , 0 , "YYYY", " YYYY " -DATA 64 , 0 , "w", " w " -DATA 65 , 0 , "MMMM", "MMMM " -DATA 66 , 0 , "JJJJ", " JJJJ " -DATA 67 , 0 , "%%", " %% " -DATA 68 , 0 , "*", " * " -DATA 69 , 0 , "@@@", " @@@ " -DATA 70 , 0 , "I", "I " -DATA 71 , 0 , "ss", " ss " -DATA 72 , 0 , "f", " f " -DATA 73 , 0 , "D", " D " -DATA 74 , 0 , "###", "### " -DATA 75 , 0 , "'", " ' " -DATA 76 , 0 , "dd", " dd " -DATA 77 , 0 , "TT", " TT " -DATA 78 , 0 , "vvv", " vvv " -DATA 79 , 0 , "X", " X " -DATA 80 , 0 , "%", " % " -DATA 81 , 0 , "", " " -DATA 82 , 0 , "5555", " 5555 " -DATA 83 , 0 , "FFFF", "FFFF " -DATA 84 , 0 , "%%", " %% " -DATA 85 , 0 , "", " " -DATA 86 , 0 , "~~~~", " ~~~~ " -DATA 87 , 0 , "||", " || " -DATA 88 , 0 , "SSS", " SSS " -DATA 89 , 0 , "6666", " 6666 " -DATA 90 , 0 , "ww", " ww " -DATA 91 , 0 , "1111", " 1111 " -DATA 92 , 0 , "K", " K " -DATA 93 , 0 , "ttttt", " ttttt " -DATA 94 , 0 , "OOOOO", " OOOOO " -DATA 95 , 0 , "E", " E " -DATA 96 , 0 , "PPPPP", " PPPPP " -DATA 97 , 0 , "==", " == " -DATA 98 , 0 , "VVVV", " VVVV " -DATA 99 , 0 , "c", " c " -DATA 100 , 0 , "yyyy", " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_TRIM_A_S.run b/bwbtest/NBS2X/F_TRIM_A_S.run deleted file mode 100644 index b282de7..0000000 --- a/bwbtest/NBS2X/F_TRIM_A_S.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] A$=[] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 3 E= 0 R$=[3] A$=[3] - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[z] A$=[z] - F= 0 S$=[z] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[3] A$=[ 3] - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 7 E= 0 R$=[z] A$=[ z] - F= 0 S$=[z] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[3] A$=[3 ] - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[z] A$=[z ] - F= 0 S$=[z] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[3] A$=[ 3 ] - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 11 E= 0 R$=[z] A$=[ z ] - F= 0 S$=[z] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[LLLL] A$=[ LLLL] - F= 0 S$=[LLLL] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[''] A$=[ '' ] - F= 0 S$=[''] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[oo] A$=[ oo ] - F= 0 S$=[oo] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[00] A$=[ 00 ] - F= 0 S$=[00] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[\\\\] A$=[ \\\\ ] - F= 0 S$=[\\\\] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[lllll] A$=[ lllll ] - F= 0 S$=[lllll] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[uuuu] A$=[ uuuu ] - F= 0 S$=[uuuu] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[a] A$=[ a ] - F= 0 S$=[a] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[hh] A$=[ hh ] - F= 0 S$=[hh] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[h] A$=[ h ] - F= 0 S$=[h] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[)] A$=[ )] - F= 0 S$=[)] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[5] A$=[ 5 ] - F= 0 S$=[5] -*** TEST PASSED *** -TESTCASE # 25 E= 0 R$=[2] A$=[ 2 ] - F= 0 S$=[2] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[-] A$=[ - ] - F= 0 S$=[-] -*** TEST PASSED *** -TESTCASE # 27 E= 0 R$=[dd] A$=[dd ] - F= 0 S$=[dd] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[tttt] A$=[ tttt ] - F= 0 S$=[tttt] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[::::] A$=[ :::: ] - F= 0 S$=[::::] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[___] A$=[ ___ ] - F= 0 S$=[___] -*** TEST PASSED *** -TESTCASE # 31 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 33 E= 0 R$=[_____] A$=[ _____ ] - F= 0 S$=[_____] -*** TEST PASSED *** -TESTCASE # 34 E= 0 R$=[S] A$=[ S ] - F= 0 S$=[S] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[FFFF] A$=[ FFFF ] - F= 0 S$=[FFFF] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[kkk] A$=[ kkk] - F= 0 S$=[kkk] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[NNNN] A$=[ NNNN ] - F= 0 S$=[NNNN] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[mmmm] A$=[ mmmm ] - F= 0 S$=[mmmm] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[,,,,,] A$=[ ,,,,, ] - F= 0 S$=[,,,,,] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[OO] A$=[OO ] - F= 0 S$=[OO] -*** TEST PASSED *** -TESTCASE # 41 E= 0 R$=[HHHH] A$=[ HHHH ] - F= 0 S$=[HHHH] -*** TEST PASSED *** -TESTCASE # 42 E= 0 R$=[<] A$=[ < ] - F= 0 S$=[<] -*** TEST PASSED *** -TESTCASE # 43 E= 0 R$=[j] A$=[ j ] - F= 0 S$=[j] -*** TEST PASSED *** -TESTCASE # 44 E= 0 R$=[yyyy] A$=[ yyyy ] - F= 0 S$=[yyyy] -*** TEST PASSED *** -TESTCASE # 45 E= 0 R$=[+++] A$=[ +++ ] - F= 0 S$=[+++] -*** TEST PASSED *** -TESTCASE # 46 E= 0 R$=[o] A$=[o ] - F= 0 S$=[o] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[((] A$=[ ((] - F= 0 S$=[((] -*** TEST PASSED *** -TESTCASE # 48 E= 0 R$=[uu] A$=[ uu ] - F= 0 S$=[uu] -*** TEST PASSED *** -TESTCASE # 49 E= 0 R$=[00] A$=[ 00 ] - F= 0 S$=[00] -*** TEST PASSED *** -TESTCASE # 50 E= 0 R$=[HH] A$=[ HH ] - F= 0 S$=[HH] -*** TEST PASSED *** -TESTCASE # 51 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 52 E= 0 R$=[G] A$=[ G ] - F= 0 S$=[G] -*** TEST PASSED *** -TESTCASE # 53 E= 0 R$=[{{{{] A$=[ {{{{ ] - F= 0 S$=[{{{{] -*** TEST PASSED *** -TESTCASE # 54 E= 0 R$=[]]]] A$=[ ]]] ] - F= 0 S$=[]]]] -*** TEST PASSED *** -TESTCASE # 55 E= 0 R$=[CCC] A$=[CCC] - F= 0 S$=[CCC] -*** TEST PASSED *** -TESTCASE # 56 E= 0 R$=[44] A$=[ 44 ] - F= 0 S$=[44] -*** TEST PASSED *** -TESTCASE # 57 E= 0 R$=[^^] A$=[^^ ] - F= 0 S$=[^^] -*** TEST PASSED *** -TESTCASE # 58 E= 0 R$=[QQ] A$=[ QQ ] - F= 0 S$=[QQ] -*** TEST PASSED *** -TESTCASE # 59 E= 0 R$=[FFFF] A$=[ FFFF ] - F= 0 S$=[FFFF] -*** TEST PASSED *** -TESTCASE # 60 E= 0 R$=[n] A$=[ n ] - F= 0 S$=[n] -*** TEST PASSED *** -TESTCASE # 61 E= 0 R$=[hh] A$=[ hh ] - F= 0 S$=[hh] -*** TEST PASSED *** -TESTCASE # 62 E= 0 R$=[555] A$=[555 ] - F= 0 S$=[555] -*** TEST PASSED *** -TESTCASE # 63 E= 0 R$=[YYYY] A$=[ YYYY ] - F= 0 S$=[YYYY] -*** TEST PASSED *** -TESTCASE # 64 E= 0 R$=[w] A$=[ w ] - F= 0 S$=[w] -*** TEST PASSED *** -TESTCASE # 65 E= 0 R$=[MMMM] A$=[MMMM ] - F= 0 S$=[MMMM] -*** TEST PASSED *** -TESTCASE # 66 E= 0 R$=[JJJJ] A$=[ JJJJ ] - F= 0 S$=[JJJJ] -*** TEST PASSED *** -TESTCASE # 67 E= 0 R$=[%%] A$=[ %% ] - F= 0 S$=[%%] -*** TEST PASSED *** -TESTCASE # 68 E= 0 R$=[*] A$=[ * ] - F= 0 S$=[*] -*** TEST PASSED *** -TESTCASE # 69 E= 0 R$=[@@@] A$=[ @@@ ] - F= 0 S$=[@@@] -*** TEST PASSED *** -TESTCASE # 70 E= 0 R$=[I] A$=[I ] - F= 0 S$=[I] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ss] A$=[ ss ] - F= 0 S$=[ss] -*** TEST PASSED *** -TESTCASE # 72 E= 0 R$=[f] A$=[ f ] - F= 0 S$=[f] -*** TEST PASSED *** -TESTCASE # 73 E= 0 R$=[D] A$=[ D ] - F= 0 S$=[D] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[###] A$=[### ] - F= 0 S$=[###] -*** TEST PASSED *** -TESTCASE # 75 E= 0 R$=['] A$=[ ' ] - F= 0 S$=['] -*** TEST PASSED *** -TESTCASE # 76 E= 0 R$=[dd] A$=[ dd ] - F= 0 S$=[dd] -*** TEST PASSED *** -TESTCASE # 77 E= 0 R$=[TT] A$=[ TT ] - F= 0 S$=[TT] -*** TEST PASSED *** -TESTCASE # 78 E= 0 R$=[vvv] A$=[ vvv ] - F= 0 S$=[vvv] -*** TEST PASSED *** -TESTCASE # 79 E= 0 R$=[X] A$=[ X ] - F= 0 S$=[X] -*** TEST PASSED *** -TESTCASE # 80 E= 0 R$=[%] A$=[ % ] - F= 0 S$=[%] -*** TEST PASSED *** -TESTCASE # 81 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 82 E= 0 R$=[5555] A$=[ 5555 ] - F= 0 S$=[5555] -*** TEST PASSED *** -TESTCASE # 83 E= 0 R$=[FFFF] A$=[FFFF ] - F= 0 S$=[FFFF] -*** TEST PASSED *** -TESTCASE # 84 E= 0 R$=[%%] A$=[ %% ] - F= 0 S$=[%%] -*** TEST PASSED *** -TESTCASE # 85 E= 0 R$=[] A$=[ ] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 86 E= 0 R$=[~~~~] A$=[ ~~~~ ] - F= 0 S$=[~~~~] -*** TEST PASSED *** -TESTCASE # 87 E= 0 R$=[||] A$=[ || ] - F= 0 S$=[||] -*** TEST PASSED *** -TESTCASE # 88 E= 0 R$=[SSS] A$=[ SSS ] - F= 0 S$=[SSS] -*** TEST PASSED *** -TESTCASE # 89 E= 0 R$=[6666] A$=[ 6666 ] - F= 0 S$=[6666] -*** TEST PASSED *** -TESTCASE # 90 E= 0 R$=[ww] A$=[ ww ] - F= 0 S$=[ww] -*** TEST PASSED *** -TESTCASE # 91 E= 0 R$=[1111] A$=[ 1111 ] - F= 0 S$=[1111] -*** TEST PASSED *** -TESTCASE # 92 E= 0 R$=[K] A$=[ K ] - F= 0 S$=[K] -*** TEST PASSED *** -TESTCASE # 93 E= 0 R$=[ttttt] A$=[ ttttt ] - F= 0 S$=[ttttt] -*** TEST PASSED *** -TESTCASE # 94 E= 0 R$=[OOOOO] A$=[ OOOOO ] - F= 0 S$=[OOOOO] -*** TEST PASSED *** -TESTCASE # 95 E= 0 R$=[E] A$=[ E ] - F= 0 S$=[E] -*** TEST PASSED *** -TESTCASE # 96 E= 0 R$=[PPPPP] A$=[ PPPPP ] - F= 0 S$=[PPPPP] -*** TEST PASSED *** -TESTCASE # 97 E= 0 R$=[==] A$=[ == ] - F= 0 S$=[==] -*** TEST PASSED *** -TESTCASE # 98 E= 0 R$=[VVVV] A$=[ VVVV ] - F= 0 S$=[VVVV] -*** TEST PASSED *** -TESTCASE # 99 E= 0 R$=[c] A$=[ c ] - F= 0 S$=[c] -*** TEST PASSED *** -TESTCASE # 100 E= 0 R$=[yyyy] A$=[ yyyy ] - F= 0 S$=[yyyy] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_TRUNCATE_X_Y_N.BAS b/bwbtest/NBS2X/F_TRUNCATE_X_Y_N.BAS deleted file mode 100644 index 9380cb3..0000000 --- a/bwbtest/NBS2X/F_TRUNCATE_X_Y_N.BAS +++ /dev/null @@ -1,184 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:36 -REM FILENAME: F_TRUNCATE_X_Y_N.BAS -REM SYNTAX: N = TRUNCATE( X, Y ) -REM UNIQUEID: F_TRUNCATE_X_Y_N -REM FUNCTION: TRUNCATE -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM Y ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X, Y -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X, "Y=";Y -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = TRUNCATE( X, Y ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 , 0 -DATA 2 , 0 , 1 , 1 , 1 -DATA 3 , 0 , -10 , -1 , -1 -DATA 4 , 0 , .398107 , .4 , .4 -DATA 5 , 0 , -2.51189 , -.4 , -.4 -DATA 6 , 0 , .502377 , .6 , .6 -DATA 7 , 0 , -3.98107 , -.6 , -.6 -DATA 8 , 1 , 0 , 254 , 254 -DATA 9 , 1 , 0 , 255 , 255 -DATA 10 , 1 , 0 , 256 , 256 -DATA 11 , 1 , 0 , 32000 , 32000 -DATA 12 , 0 , -1.68744 , -.227229 , -.227229 -DATA 13 , 0 , -1.73443 , -.239157 , -.239157 -DATA 14 , 0 , -1.63526 , -.213586 , -.213586 -DATA 15 , 0 , 0 , .274675 , .274675 -DATA 16 , 0 , 0 , .169766 , .169766 -DATA 17 , 0 , 0 , .318766 , .318766 -DATA 18 , 0 , 0 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , 0 , .188257 , .188257 -DATA 20 , 0 , -1.89468 , -.277537 , -.277537 -DATA 21 , 0 , -3.02903 , -.481303 , -.481303 -DATA 22 , 0 , .366809 , .43556 , .43556 -DATA 23 , 0 , -1.62544 , -.210971 , -.210971 -DATA 24 , 0 , -2.85244 , -.455216 , -.455216 -DATA 25 , 1 , 0 , -110.907 , -110.907 -DATA 26 , 1 , 0 , 105.632 , 105.632 -DATA 27 , 1 , 0 , -114.341 , -114.341 -DATA 28 , 1 , 0 , 109.706 , 109.706 -DATA 29 , 1 , 0 , 109.198 , 109.198 -DATA 30 , 1 , 0 , 85.8773 , 85.8773 -DATA 31 , 1 , 0 , -58.3548 , -58.3548 -DATA 32 , 0 , 29.6397 , 29.6397 , 29.6397 -DATA 33 , 1 , 0 , -108.36 , -108.36 -DATA 34 , 1 , 0 , -46.5199 , -46.5199 -DATA 35 , 1 , 0 , 112.521 , 112.521 -DATA 36 , 1 , 0 , 45.4151 , 45.4151 -DATA 37 , 1 , 0 , 101.129 , 101.129 -DATA 38 , 1 , 0 , 65.0473 , 65.0473 -DATA 39 , 1 , 0 , 48.4012 , 48.4012 -DATA 40 , 1 , 0 , 122.294 , 122.294 -DATA 41 , 1 , 0 , -56.1094 , -56.1094 -DATA 42 , 1 , 0 , -121.087 , -121.087 -DATA 43 , 1 , 0 , -123.517 , -123.517 -DATA 44 , 1 , 0 , -97.6301 , -97.6301 -DATA 45 , 1 , 0 , -64.0001 , -64.0001 -DATA 46 , 0 , -4.88427E+25 , -25.6888 , -25.6888 -DATA 47 , 0 , 14.8006 , 14.8006 , 14.8006 -DATA 48 , 1 , 0 , -61.0877 , -61.0877 -DATA 49 , 1 , 0 , -66.6381 , -66.6381 -DATA 50 , 1 , 0 , -5476.5 , -5476.5 -DATA 51 , 1 , 0 , -21210.3 , -21210.3 -DATA 52 , 1 , 0 , -28757.2 , -28757.2 -DATA 53 , 1 , 0 , -28732.2 , -28732.2 -DATA 54 , 1 , 0 , 12730.3 , 12730.3 -DATA 55 , 1 , 0 , -1830.69 , -1830.69 -DATA 56 , 1 , 0 , 5486.39 , 5486.39 -DATA 57 , 1 , 0 , 22405.9 , 22405.9 -DATA 58 , 1 , 0 , 30809.8 , 30809.8 -DATA 59 , 1 , 0 , -28930.6 , -28930.6 -DATA 60 , 1 , 0 , -6014.53 , -6014.53 -DATA 61 , 1 , 0 , 17414.6 , 17414.6 -DATA 62 , 1 , 0 , -10538.3 , -10538.3 -DATA 63 , 1 , 0 , -17536.3 , -17536.3 -DATA 64 , 1 , 0 , -8856.62 , -8856.62 -DATA 65 , 1 , 0 , -5140.12 , -5140.12 -DATA 66 , 1 , 0 , -8595.31 , -8595.31 -DATA 67 , 1 , 0 , -3382.87 , -3382.87 -DATA 68 , 1 , 0 , -5002.07 , -5002.07 -DATA 69 , 1 , 0 , -5800.72 , -5800.72 -DATA 70 , 1 , 0 , 29686.4 , 29686.4 -DATA 71 , 1 , 0 , 2571. , 2571. -DATA 72 , 1 , 0 , 31091. , 31091. -DATA 73 , 1 , 0 , 14819. , 14819. -DATA 74 , 1 , 0 , 3790.9 , 3790.9 -DATA 75 , 1 , 0 , -4.2981E+9 , -4.2981E+9 -DATA 76 , 1 , 0 , -7.05453E+8 , -7.05453E+8 -DATA 77 , 1 , 0 , -3.10179E+9 , -3.10179E+9 -DATA 78 , 1 , 0 , -4.86159E+9 , -4.86159E+9 -DATA 79 , 1 , 0 , -8.62908E+8 , -8.62908E+8 -DATA 80 , 1 , 0 , -3.4101E+9 , -3.4101E+9 -DATA 81 , 1 , 0 , 3.3889E+9 , 3.3889E+9 -DATA 82 , 1 , 0 , 2.49826E+9 , 2.49826E+9 -DATA 83 , 1 , 0 , 2.3491E+9 , 2.3491E+9 -DATA 84 , 1 , 0 , 1.94745E+8 , 1.94745E+8 -DATA 85 , 1 , 0 , 2.02475E+9 , 2.02475E+9 -DATA 86 , 1 , 0 , -2.26748E+9 , -2.26748E+9 -DATA 87 , 1 , 0 , -2.10587E+9 , -2.10587E+9 -DATA 88 , 1 , 0 , 4.23585E+9 , 4.23585E+9 -DATA 89 , 1 , 0 , -2.66524E+9 , -2.66524E+9 -DATA 90 , 1 , 0 , 4.01052E+9 , 4.01052E+9 -DATA 91 , 1 , 0 , -4.87912E+9 , -4.87912E+9 -DATA 92 , 1 , 0 , 1.77556E+9 , 1.77556E+9 -DATA 93 , 1 , 0 , 2.87705E+8 , 2.87705E+8 -DATA 94 , 1 , 0 , 1.99977E+8 , 1.99977E+8 -DATA 95 , 1 , 0 , -3.39941E+9 , -3.39941E+9 -DATA 96 , 1 , 0 , -3.49119E+9 , -3.49119E+9 -DATA 97 , 1 , 0 , -2.86324E+9 , -2.86324E+9 -DATA 98 , 1 , 0 , 4.20418E+9 , 4.20418E+9 -DATA 99 , 1 , 0 , -3.1518E+9 , -3.1518E+9 -DATA 100 , 1 , 0 , 4.60615E+9 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_TRUNCATE_X_Y_N.run b/bwbtest/NBS2X/F_TRUNCATE_X_Y_N.run deleted file mode 100644 index 20d5478..0000000 --- a/bwbtest/NBS2X/F_TRUNCATE_X_Y_N.run +++ /dev/null @@ -1,303 +0,0 @@ -TESTCASE # 1 E= 0 R= 0 X= 0 Y= 0 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 0 R= 1 X= 1 Y= 1 - F= 0 N= 1 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R=-10 X=-1 Y=-1 - F= 0 N=-10 -*** TEST PASSED *** -TESTCASE # 4 E= 0 R= .398107 X= .4 Y= .4 - F= 0 N= .398107 -*** TEST PASSED *** -TESTCASE # 5 E= 0 R=-2.51189 X=-.4 Y=-.4 - F= 0 N=-2.51189 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= .502377 X= .6 Y= .6 - F= 0 N= .502377 -*** TEST PASSED *** -TESTCASE # 7 E= 0 R=-3.98107 X=-.6 Y=-.6 - F= 0 N=-3.98107 -*** TEST PASSED *** -TESTCASE # 8 E= 1 R= 0 X= 254 Y= 254 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 X= 255 Y= 255 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 1 R= 0 X= 256 Y= 256 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 X= 32000 Y= 32000 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 0 R=-1.68744 X=-.227229 Y=-.227229 - F= 0 N=-1.68744 -*** TEST PASSED *** -TESTCASE # 13 E= 0 R=-1.73443 X=-.239157 Y=-.239157 - F= 0 N=-1.73443 -*** TEST PASSED *** -TESTCASE # 14 E= 0 R=-1.63526 X=-.213586 Y=-.213586 - F= 0 N=-1.63526 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 X= .274675 Y= .274675 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 0 R= 0 X= .169766 Y= .169766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 0 R= 0 X= .318766 Y= .318766 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 0 R= 0 X= 2.06658E-2 Y= 2.06658E-2 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 0 R= 0 X= .188257 Y= .188257 - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 0 R=-1.89468 X=-.277537 Y=-.277537 - F= 0 N=-1.89468 -*** TEST PASSED *** -TESTCASE # 21 E= 0 R=-3.02903 X=-.481303 Y=-.481303 - F= 0 N=-3.02903 -*** TEST PASSED *** -TESTCASE # 22 E= 0 R= .366809 X= .43556 Y= .43556 - F= 0 N= .366809 -*** TEST PASSED *** -TESTCASE # 23 E= 0 R=-1.62544 X=-.210971 Y=-.210971 - F= 0 N=-1.62544 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R=-2.85244 X=-.455216 Y=-.455216 - F= 0 N=-2.85244 -*** TEST PASSED *** -TESTCASE # 25 E= 1 R= 0 X=-110.907 Y=-110.907 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 26 E= 1 R= 0 X= 105.632 Y= 105.632 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 X=-114.341 Y=-114.341 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 1 R= 0 X= 109.706 Y= 109.706 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 1 R= 0 X= 109.198 Y= 109.198 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 1 R= 0 X= 85.8773 Y= 85.8773 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 X=-58.3548 Y=-58.3548 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 0 R= 29.6397 X= 29.6397 Y= 29.6397 - F= 0 N= 29.6397 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 X=-108.36 Y=-108.36 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 X=-46.5199 Y=-46.5199 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 1 R= 0 X= 112.521 Y= 112.521 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 1 R= 0 X= 45.4151 Y= 45.4151 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 1 R= 0 X= 101.129 Y= 101.129 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 1 R= 0 X= 65.0473 Y= 65.0473 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 1 R= 0 X= 48.4012 Y= 48.4012 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 1 R= 0 X= 122.294 Y= 122.294 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 X=-56.1094 Y=-56.1094 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 X=-121.087 Y=-121.087 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 X=-123.517 Y=-123.517 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 X=-97.6301 Y=-97.6301 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 X=-64.0001 Y=-64.0001 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 0 R=-4.88427E+25 X=-25.6888 Y= --25.6888 - F= 0 N=-4.88427E+25 -*** TEST PASSED *** -TESTCASE # 47 E= 0 R= 14.8006 X= 14.8006 Y= 14.8006 - F= 0 N= 14.8006 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 X=-61.0877 Y=-61.0877 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 1 R= 0 X=-66.6381 Y=-66.6381 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 X=-5476.5 Y=-5476.5 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 X=-21210.3 Y=-21210.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 X=-28757.2 Y=-28757.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 X=-28732.2 Y=-28732.2 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 X= 12730.3 Y= 12730.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 X=-1830.69 Y=-1830.69 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 1 R= 0 X= 5486.39 Y= 5486.39 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 X= 22405.9 Y= 22405.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 X= 30809.8 Y= 30809.8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 X=-28930.6 Y=-28930.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 X=-6014.53 Y=-6014.53 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 X= 17414.6 Y= 17414.6 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 1 R= 0 X=-10538.3 Y=-10538.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 X=-17536.3 Y=-17536.3 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 X=-8856.62 Y=-8856.62 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 X=-5140.12 Y=-5140.12 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 X=-8595.31 Y=-8595.31 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 X=-3382.87 Y=-3382.87 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 X=-5002.07 Y=-5002.07 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 X=-5800.72 Y=-5800.72 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 X= 29686.4 Y= 29686.4 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 0 X= 2571 Y= 2571 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 X= 31091 Y= 31091 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 X= 14819 Y= 14819 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 0 X= 3790.9 Y= 3790.9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 X=-4.2981E+9 Y=-4.2981E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 X=-7.05453E+8 Y=-7.05453E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 X=-3.10179E+9 Y=-3.10179E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 X=-4.86159E+9 Y=-4.86159E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 X=-8.62908E+8 Y=-8.62908E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 X=-3.4101E+9 Y=-3.4101E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 X= 3.3889E+9 Y= 3.3889E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 1 R= 0 X= 2.49826E+9 Y= 2.49826E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 X= 2.3491E+9 Y= 2.3491E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 X= 1.94745E+8 Y= 1.94745E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 X= 2.02475E+9 Y= 2.02475E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 X=-2.26748E+9 Y=-2.26748E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 X=-2.10587E+9 Y=-2.10587E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 X= 4.23585E+9 Y= 4.23585E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 1 R= 0 X=-2.66524E+9 Y=-2.66524E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 X= 4.01052E+9 Y= 4.01052E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 1 R= 0 X=-4.87912E+9 Y=-4.87912E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 X= 1.77556E+9 Y= 1.77556E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 X= 2.87705E+8 Y= 2.87705E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 X= 1.99977E+8 Y= 1.99977E+8 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 X=-3.39941E+9 Y=-3.39941E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 X=-3.49119E+9 Y=-3.49119E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 X=-2.86324E+9 Y=-2.86324E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 X= 4.20418E+9 Y= 4.20418E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 X=-3.1518E+9 Y=-3.1518E+9 - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 X= 4.60615E+9 Y= - 4.60615E+9 - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_UCASE_A_S.BAS b/bwbtest/NBS2X/F_UCASE_A_S.BAS deleted file mode 100644 index ca78875..0000000 --- a/bwbtest/NBS2X/F_UCASE_A_S.BAS +++ /dev/null @@ -1,159 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:36 -REM FILENAME: F_UCASE_A_S.BAS -REM SYNTAX: S$ = UCASE$( A$ ) -REM UNIQUEID: F_UCASE_A_S -REM FUNCTION: UCASE$ -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R$ EXPECTED FUNCTION RESULT -REM S$ ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R$, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 S$ = UCASE$( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"S$=[";S$;"]" -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R$ <> S$ THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , "", "" -DATA 2 , 0 , " ", " " -DATA 3 , 0 , "3", "3" -DATA 4 , 0 , "Z", "z" -DATA 5 , 0 , " ", " " -DATA 6 , 0 , " 3", " 3" -DATA 7 , 0 , " Z", " z" -DATA 8 , 0 , "3 ", "3 " -DATA 9 , 0 , "Z ", "z " -DATA 10 , 0 , " 3 ", " 3 " -DATA 11 , 0 , " Z ", " z " -DATA 12 , 0 , " LLLL", " LLLL" -DATA 13 , 0 , " '' ", " '' " -DATA 14 , 0 , " OO ", " oo " -DATA 15 , 0 , " 00 ", " 00 " -DATA 16 , 0 , " \\\\ ", " \\\\ " -DATA 17 , 0 , " LLLLL ", " lllll " -DATA 18 , 0 , " UUUU ", " uuuu " -DATA 19 , 0 , " A ", " a " -DATA 20 , 0 , " ", " " -DATA 21 , 0 , " HH ", " hh " -DATA 22 , 0 , " H ", " h " -DATA 23 , 0 , " )", " )" -DATA 24 , 0 , " 5 ", " 5 " -DATA 25 , 0 , " 2 ", " 2 " -DATA 26 , 0 , " - ", " - " -DATA 27 , 0 , "DD ", "dd " -DATA 28 , 0 , " TTTT ", " tttt " -DATA 29 , 0 , " :::: ", " :::: " -DATA 30 , 0 , " ___ ", " ___ " -DATA 31 , 0 , " ", " " -DATA 32 , 0 , " ", " " -DATA 33 , 0 , " _____ ", " _____ " -DATA 34 , 0 , " S ", " S " -DATA 35 , 0 , " FFFF ", " FFFF " -DATA 36 , 0 , " KKK", " kkk" -DATA 37 , 0 , " NNNN ", " NNNN " -DATA 38 , 0 , " MMMM ", " mmmm " -DATA 39 , 0 , " ,,,,, ", " ,,,,, " -DATA 40 , 0 , "OO ", "OO " -DATA 41 , 0 , " HHHH ", " HHHH " -DATA 42 , 0 , " < ", " < " -DATA 43 , 0 , " J ", " j " -DATA 44 , 0 , " YYYY ", " yyyy " -DATA 45 , 0 , " +++ ", " +++ " -DATA 46 , 0 , "O ", "o " -DATA 47 , 0 , " ((", " ((" -DATA 48 , 0 , " UU ", " uu " -DATA 49 , 0 , " 00 ", " 00 " -DATA 50 , 0 , " HH ", " HH " -DATA 51 , 0 , " ", " " -DATA 52 , 0 , " G ", " G " -DATA 53 , 0 , " {{{{ ", " {{{{ " -DATA 54 , 0 , " ]]] ", " ]]] " -DATA 55 , 0 , "CCC", "CCC" -DATA 56 , 0 , " 44 ", " 44 " -DATA 57 , 0 , "^^ ", "^^ " -DATA 58 , 0 , " QQ ", " QQ " -DATA 59 , 0 , " FFFF ", " FFFF " -DATA 60 , 0 , " N ", " n " -DATA 61 , 0 , " HH ", " hh " -DATA 62 , 0 , "555 ", "555 " -DATA 63 , 0 , " YYYY ", " YYYY " -DATA 64 , 0 , " W ", " w " -DATA 65 , 0 , "MMMM ", "MMMM " -DATA 66 , 0 , " JJJJ ", " JJJJ " -DATA 67 , 0 , " %% ", " %% " -DATA 68 , 0 , " * ", " * " -DATA 69 , 0 , " @@@ ", " @@@ " -DATA 70 , 0 , "I ", "I " -DATA 71 , 0 , " SS ", " ss " -DATA 72 , 0 , " F ", " f " -DATA 73 , 0 , " D ", " D " -DATA 74 , 0 , "### ", "### " -DATA 75 , 0 , " ' ", " ' " -DATA 76 , 0 , " DD ", " dd " -DATA 77 , 0 , " TT ", " TT " -DATA 78 , 0 , " VVV ", " vvv " -DATA 79 , 0 , " X ", " X " -DATA 80 , 0 , " % ", " % " -DATA 81 , 0 , " ", " " -DATA 82 , 0 , " 5555 ", " 5555 " -DATA 83 , 0 , "FFFF ", "FFFF " -DATA 84 , 0 , " %% ", " %% " -DATA 85 , 0 , " ", " " -DATA 86 , 0 , " ~~~~ ", " ~~~~ " -DATA 87 , 0 , " || ", " || " -DATA 88 , 0 , " SSS ", " SSS " -DATA 89 , 0 , " 6666 ", " 6666 " -DATA 90 , 0 , " WW ", " ww " -DATA 91 , 0 , " 1111 ", " 1111 " -DATA 92 , 0 , " K ", " K " -DATA 93 , 0 , " TTTTT ", " ttttt " -DATA 94 , 0 , " OOOOO ", " OOOOO " -DATA 95 , 0 , " E ", " E " -DATA 96 , 0 , " PPPPP ", " PPPPP " -DATA 97 , 0 , " == ", " == " -DATA 98 , 0 , " VVVV ", " VVVV " -DATA 99 , 0 , " C ", " c " -DATA 100 , 0 , " YYYY ", " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_UCASE_A_S.run b/bwbtest/NBS2X/F_UCASE_A_S.run deleted file mode 100644 index 9ffdb73..0000000 --- a/bwbtest/NBS2X/F_UCASE_A_S.run +++ /dev/null @@ -1,302 +0,0 @@ -TESTCASE # 1 E= 0 R$=[] A$=[] - F= 0 S$=[] -*** TEST PASSED *** -TESTCASE # 2 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 3 E= 0 R$=[3] A$=[3] - F= 0 S$=[3] -*** TEST PASSED *** -TESTCASE # 4 E= 0 R$=[Z] A$=[z] - F= 0 S$=[Z] -*** TEST PASSED *** -TESTCASE # 5 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 6 E= 0 R$=[ 3] A$=[ 3] - F= 0 S$=[ 3] -*** TEST PASSED *** -TESTCASE # 7 E= 0 R$=[ Z] A$=[ z] - F= 0 S$=[ Z] -*** TEST PASSED *** -TESTCASE # 8 E= 0 R$=[3 ] A$=[3 ] - F= 0 S$=[3 ] -*** TEST PASSED *** -TESTCASE # 9 E= 0 R$=[Z ] A$=[z ] - F= 0 S$=[Z ] -*** TEST PASSED *** -TESTCASE # 10 E= 0 R$=[ 3 ] A$=[ 3 ] - F= 0 S$=[ 3 ] -*** TEST PASSED *** -TESTCASE # 11 E= 0 R$=[ Z ] A$=[ z ] - F= 0 S$=[ Z ] -*** TEST PASSED *** -TESTCASE # 12 E= 0 R$=[ LLLL] A$=[ LLLL] - F= 0 S$=[ LLLL] -*** TEST PASSED *** -TESTCASE # 13 E= 0 R$=[ '' ] A$=[ '' ] - F= 0 S$=[ '' ] -*** TEST PASSED *** -TESTCASE # 14 E= 0 R$=[ OO ] A$=[ oo ] - F= 0 S$=[ OO ] -*** TEST PASSED *** -TESTCASE # 15 E= 0 R$=[ 00 ] A$=[ 00 ] - F= 0 S$=[ 00 ] -*** TEST PASSED *** -TESTCASE # 16 E= 0 R$=[ \\\\ ] A$=[ \\\\ ] - F= 0 S$=[ \\\\ ] -*** TEST PASSED *** -TESTCASE # 17 E= 0 R$=[ LLLLL ] A$=[ lllll ] - F= 0 S$=[ LLLLL ] -*** TEST PASSED *** -TESTCASE # 18 E= 0 R$=[ UUUU ] A$=[ uuuu ] - F= 0 S$=[ UUUU ] -*** TEST PASSED *** -TESTCASE # 19 E= 0 R$=[ A ] A$=[ a ] - F= 0 S$=[ A ] -*** TEST PASSED *** -TESTCASE # 20 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 21 E= 0 R$=[ HH ] A$=[ hh ] - F= 0 S$=[ HH ] -*** TEST PASSED *** -TESTCASE # 22 E= 0 R$=[ H ] A$=[ h ] - F= 0 S$=[ H ] -*** TEST PASSED *** -TESTCASE # 23 E= 0 R$=[ )] A$=[ )] - F= 0 S$=[ )] -*** TEST PASSED *** -TESTCASE # 24 E= 0 R$=[ 5 ] A$=[ 5 ] - F= 0 S$=[ 5 ] -*** TEST PASSED *** -TESTCASE # 25 E= 0 R$=[ 2 ] A$=[ 2 ] - F= 0 S$=[ 2 ] -*** TEST PASSED *** -TESTCASE # 26 E= 0 R$=[ - ] A$=[ - ] - F= 0 S$=[ - ] -*** TEST PASSED *** -TESTCASE # 27 E= 0 R$=[DD ] A$=[dd ] - F= 0 S$=[DD ] -*** TEST PASSED *** -TESTCASE # 28 E= 0 R$=[ TTTT ] A$=[ tttt ] - F= 0 S$=[ TTTT ] -*** TEST PASSED *** -TESTCASE # 29 E= 0 R$=[ :::: ] A$=[ :::: ] - F= 0 S$=[ :::: ] -*** TEST PASSED *** -TESTCASE # 30 E= 0 R$=[ ___ ] A$=[ ___ ] - F= 0 S$=[ ___ ] -*** TEST PASSED *** -TESTCASE # 31 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 32 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 33 E= 0 R$=[ _____ ] A$=[ _____ ] - F= 0 S$=[ _____ ] -*** TEST PASSED *** -TESTCASE # 34 E= 0 R$=[ S ] A$=[ S ] - F= 0 S$=[ S ] -*** TEST PASSED *** -TESTCASE # 35 E= 0 R$=[ FFFF ] A$=[ FFFF ] - F= 0 S$=[ FFFF ] -*** TEST PASSED *** -TESTCASE # 36 E= 0 R$=[ KKK] A$=[ kkk] - F= 0 S$=[ KKK] -*** TEST PASSED *** -TESTCASE # 37 E= 0 R$=[ NNNN ] A$=[ NNNN ] - F= 0 S$=[ NNNN ] -*** TEST PASSED *** -TESTCASE # 38 E= 0 R$=[ MMMM ] A$=[ mmmm ] - F= 0 S$=[ MMMM ] -*** TEST PASSED *** -TESTCASE # 39 E= 0 R$=[ ,,,,, ] A$=[ ,,,,, ] - F= 0 S$=[ ,,,,, ] -*** TEST PASSED *** -TESTCASE # 40 E= 0 R$=[OO ] A$=[OO ] - F= 0 S$=[OO ] -*** TEST PASSED *** -TESTCASE # 41 E= 0 R$=[ HHHH ] A$=[ HHHH ] - F= 0 S$=[ HHHH ] -*** TEST PASSED *** -TESTCASE # 42 E= 0 R$=[ < ] A$=[ < ] - F= 0 S$=[ < ] -*** TEST PASSED *** -TESTCASE # 43 E= 0 R$=[ J ] A$=[ j ] - F= 0 S$=[ J ] -*** TEST PASSED *** -TESTCASE # 44 E= 0 R$=[ YYYY ] A$=[ yyyy ] - F= 0 S$=[ YYYY ] -*** TEST PASSED *** -TESTCASE # 45 E= 0 R$=[ +++ ] A$=[ +++ ] - F= 0 S$=[ +++ ] -*** TEST PASSED *** -TESTCASE # 46 E= 0 R$=[O ] A$=[o ] - F= 0 S$=[O ] -*** TEST PASSED *** -TESTCASE # 47 E= 0 R$=[ ((] A$=[ ((] - F= 0 S$=[ ((] -*** TEST PASSED *** -TESTCASE # 48 E= 0 R$=[ UU ] A$=[ uu ] - F= 0 S$=[ UU ] -*** TEST PASSED *** -TESTCASE # 49 E= 0 R$=[ 00 ] A$=[ 00 ] - F= 0 S$=[ 00 ] -*** TEST PASSED *** -TESTCASE # 50 E= 0 R$=[ HH ] A$=[ HH ] - F= 0 S$=[ HH ] -*** TEST PASSED *** -TESTCASE # 51 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 52 E= 0 R$=[ G ] A$=[ G ] - F= 0 S$=[ G ] -*** TEST PASSED *** -TESTCASE # 53 E= 0 R$=[ {{{{ ] A$=[ {{{{ ] - F= 0 S$=[ {{{{ ] -*** TEST PASSED *** -TESTCASE # 54 E= 0 R$=[ ]]] ] A$=[ ]]] ] - F= 0 S$=[ ]]] ] -*** TEST PASSED *** -TESTCASE # 55 E= 0 R$=[CCC] A$=[CCC] - F= 0 S$=[CCC] -*** TEST PASSED *** -TESTCASE # 56 E= 0 R$=[ 44 ] A$=[ 44 ] - F= 0 S$=[ 44 ] -*** TEST PASSED *** -TESTCASE # 57 E= 0 R$=[^^ ] A$=[^^ ] - F= 0 S$=[^^ ] -*** TEST PASSED *** -TESTCASE # 58 E= 0 R$=[ QQ ] A$=[ QQ ] - F= 0 S$=[ QQ ] -*** TEST PASSED *** -TESTCASE # 59 E= 0 R$=[ FFFF ] A$=[ FFFF ] - F= 0 S$=[ FFFF ] -*** TEST PASSED *** -TESTCASE # 60 E= 0 R$=[ N ] A$=[ n ] - F= 0 S$=[ N ] -*** TEST PASSED *** -TESTCASE # 61 E= 0 R$=[ HH ] A$=[ hh ] - F= 0 S$=[ HH ] -*** TEST PASSED *** -TESTCASE # 62 E= 0 R$=[555 ] A$=[555 ] - F= 0 S$=[555 ] -*** TEST PASSED *** -TESTCASE # 63 E= 0 R$=[ YYYY ] A$=[ YYYY ] - F= 0 S$=[ YYYY ] -*** TEST PASSED *** -TESTCASE # 64 E= 0 R$=[ W ] A$=[ w ] - F= 0 S$=[ W ] -*** TEST PASSED *** -TESTCASE # 65 E= 0 R$=[MMMM ] A$=[MMMM ] - F= 0 S$=[MMMM ] -*** TEST PASSED *** -TESTCASE # 66 E= 0 R$=[ JJJJ ] A$=[ JJJJ ] - F= 0 S$=[ JJJJ ] -*** TEST PASSED *** -TESTCASE # 67 E= 0 R$=[ %% ] A$=[ %% ] - F= 0 S$=[ %% ] -*** TEST PASSED *** -TESTCASE # 68 E= 0 R$=[ * ] A$=[ * ] - F= 0 S$=[ * ] -*** TEST PASSED *** -TESTCASE # 69 E= 0 R$=[ @@@ ] A$=[ @@@ ] - F= 0 S$=[ @@@ ] -*** TEST PASSED *** -TESTCASE # 70 E= 0 R$=[I ] A$=[I ] - F= 0 S$=[I ] -*** TEST PASSED *** -TESTCASE # 71 E= 0 R$=[ SS ] A$=[ ss ] - F= 0 S$=[ SS ] -*** TEST PASSED *** -TESTCASE # 72 E= 0 R$=[ F ] A$=[ f ] - F= 0 S$=[ F ] -*** TEST PASSED *** -TESTCASE # 73 E= 0 R$=[ D ] A$=[ D ] - F= 0 S$=[ D ] -*** TEST PASSED *** -TESTCASE # 74 E= 0 R$=[### ] A$=[### ] - F= 0 S$=[### ] -*** TEST PASSED *** -TESTCASE # 75 E= 0 R$=[ ' ] A$=[ ' ] - F= 0 S$=[ ' ] -*** TEST PASSED *** -TESTCASE # 76 E= 0 R$=[ DD ] A$=[ dd ] - F= 0 S$=[ DD ] -*** TEST PASSED *** -TESTCASE # 77 E= 0 R$=[ TT ] A$=[ TT ] - F= 0 S$=[ TT ] -*** TEST PASSED *** -TESTCASE # 78 E= 0 R$=[ VVV ] A$=[ vvv ] - F= 0 S$=[ VVV ] -*** TEST PASSED *** -TESTCASE # 79 E= 0 R$=[ X ] A$=[ X ] - F= 0 S$=[ X ] -*** TEST PASSED *** -TESTCASE # 80 E= 0 R$=[ % ] A$=[ % ] - F= 0 S$=[ % ] -*** TEST PASSED *** -TESTCASE # 81 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 82 E= 0 R$=[ 5555 ] A$=[ 5555 ] - F= 0 S$=[ 5555 ] -*** TEST PASSED *** -TESTCASE # 83 E= 0 R$=[FFFF ] A$=[FFFF ] - F= 0 S$=[FFFF ] -*** TEST PASSED *** -TESTCASE # 84 E= 0 R$=[ %% ] A$=[ %% ] - F= 0 S$=[ %% ] -*** TEST PASSED *** -TESTCASE # 85 E= 0 R$=[ ] A$=[ ] - F= 0 S$=[ ] -*** TEST PASSED *** -TESTCASE # 86 E= 0 R$=[ ~~~~ ] A$=[ ~~~~ ] - F= 0 S$=[ ~~~~ ] -*** TEST PASSED *** -TESTCASE # 87 E= 0 R$=[ || ] A$=[ || ] - F= 0 S$=[ || ] -*** TEST PASSED *** -TESTCASE # 88 E= 0 R$=[ SSS ] A$=[ SSS ] - F= 0 S$=[ SSS ] -*** TEST PASSED *** -TESTCASE # 89 E= 0 R$=[ 6666 ] A$=[ 6666 ] - F= 0 S$=[ 6666 ] -*** TEST PASSED *** -TESTCASE # 90 E= 0 R$=[ WW ] A$=[ ww ] - F= 0 S$=[ WW ] -*** TEST PASSED *** -TESTCASE # 91 E= 0 R$=[ 1111 ] A$=[ 1111 ] - F= 0 S$=[ 1111 ] -*** TEST PASSED *** -TESTCASE # 92 E= 0 R$=[ K ] A$=[ K ] - F= 0 S$=[ K ] -*** TEST PASSED *** -TESTCASE # 93 E= 0 R$=[ TTTTT ] A$=[ ttttt ] - F= 0 S$=[ TTTTT ] -*** TEST PASSED *** -TESTCASE # 94 E= 0 R$=[ OOOOO ] A$=[ OOOOO ] - F= 0 S$=[ OOOOO ] -*** TEST PASSED *** -TESTCASE # 95 E= 0 R$=[ E ] A$=[ E ] - F= 0 S$=[ E ] -*** TEST PASSED *** -TESTCASE # 96 E= 0 R$=[ PPPPP ] A$=[ PPPPP ] - F= 0 S$=[ PPPPP ] -*** TEST PASSED *** -TESTCASE # 97 E= 0 R$=[ == ] A$=[ == ] - F= 0 S$=[ == ] -*** TEST PASSED *** -TESTCASE # 98 E= 0 R$=[ VVVV ] A$=[ VVVV ] - F= 0 S$=[ VVVV ] -*** TEST PASSED *** -TESTCASE # 99 E= 0 R$=[ C ] A$=[ c ] - F= 0 S$=[ C ] -*** TEST PASSED *** -TESTCASE # 100 E= 0 R$=[ YYYY ] A$=[ - yyyy ] - F= 0 S$=[ YYYY ] -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/F_VAL_A_N.BAS b/bwbtest/NBS2X/F_VAL_A_N.BAS deleted file mode 100644 index c7b88df..0000000 --- a/bwbtest/NBS2X/F_VAL_A_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 02/21/2015 14:08:36 -REM FILENAME: F_VAL_A_N.BAS -REM SYNTAX: N = VAL( A$ ) -REM UNIQUEID: F_VAL_A_N -REM FUNCTION: VAL -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM A$ ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, A$ -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "A$=[";A$;"]" -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = VAL( A$ ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 1 , 0 , "" -DATA 2 , 1 , 0 , " " -DATA 3 , 0 , 3 , "3" -DATA 4 , 1 , 0 , "z" -DATA 5 , 1 , 0 , " " -DATA 6 , 0 , 3 , " 3" -DATA 7 , 1 , 0 , " z" -DATA 8 , 0 , 3 , "3 " -DATA 9 , 1 , 0 , "z " -DATA 10 , 0 , 3 , " 3 " -DATA 11 , 1 , 0 , " z " -DATA 12 , 1 , 0 , " LLLL" -DATA 13 , 1 , 0 , " '' " -DATA 14 , 1 , 0 , " oo " -DATA 15 , 0 , 0 , " 00 " -DATA 16 , 1 , 0 , " \\\\ " -DATA 17 , 1 , 0 , " lllll " -DATA 18 , 1 , 0 , " uuuu " -DATA 19 , 1 , 0 , " a " -DATA 20 , 1 , 0 , " " -DATA 21 , 1 , 0 , " hh " -DATA 22 , 1 , 0 , " h " -DATA 23 , 1 , 0 , " )" -DATA 24 , 0 , 5 , " 5 " -DATA 25 , 0 , 2 , " 2 " -DATA 26 , 1 , 0 , " - " -DATA 27 , 1 , 0 , "dd " -DATA 28 , 1 , 0 , " tttt " -DATA 29 , 1 , 0 , " :::: " -DATA 30 , 1 , 0 , " ___ " -DATA 31 , 1 , 0 , " " -DATA 32 , 1 , 0 , " " -DATA 33 , 1 , 0 , " _____ " -DATA 34 , 1 , 0 , " S " -DATA 35 , 1 , 0 , " FFFF " -DATA 36 , 1 , 0 , " kkk" -DATA 37 , 1 , 0 , " NNNN " -DATA 38 , 1 , 0 , " mmmm " -DATA 39 , 1 , 0 , " ,,,,, " -DATA 40 , 1 , 0 , "OO " -DATA 41 , 1 , 0 , " HHHH " -DATA 42 , 1 , 0 , " < " -DATA 43 , 1 , 0 , " j " -DATA 44 , 1 , 0 , " yyyy " -DATA 45 , 1 , 0 , " +++ " -DATA 46 , 1 , 0 , "o " -DATA 47 , 1 , 0 , " ((" -DATA 48 , 1 , 0 , " uu " -DATA 49 , 0 , 0 , " 00 " -DATA 50 , 1 , 0 , " HH " -DATA 51 , 1 , 0 , " " -DATA 52 , 1 , 0 , " G " -DATA 53 , 1 , 0 , " {{{{ " -DATA 54 , 1 , 0 , " ]]] " -DATA 55 , 1 , 0 , "CCC" -DATA 56 , 0 , 44 , " 44 " -DATA 57 , 1 , 0 , "^^ " -DATA 58 , 1 , 0 , " QQ " -DATA 59 , 1 , 0 , " FFFF " -DATA 60 , 1 , 0 , " n " -DATA 61 , 1 , 0 , " hh " -DATA 62 , 0 , 555 , "555 " -DATA 63 , 1 , 0 , " YYYY " -DATA 64 , 1 , 0 , " w " -DATA 65 , 1 , 0 , "MMMM " -DATA 66 , 1 , 0 , " JJJJ " -DATA 67 , 1 , 0 , " %% " -DATA 68 , 1 , 0 , " * " -DATA 69 , 1 , 0 , " @@@ " -DATA 70 , 1 , 0 , "I " -DATA 71 , 1 , 0 , " ss " -DATA 72 , 1 , 0 , " f " -DATA 73 , 1 , 0 , " D " -DATA 74 , 1 , 0 , "### " -DATA 75 , 1 , 0 , " ' " -DATA 76 , 1 , 0 , " dd " -DATA 77 , 1 , 0 , " TT " -DATA 78 , 1 , 0 , " vvv " -DATA 79 , 1 , 0 , " X " -DATA 80 , 1 , 0 , " % " -DATA 81 , 1 , 0 , " " -DATA 82 , 0 , 5555 , " 5555 " -DATA 83 , 1 , 0 , "FFFF " -DATA 84 , 1 , 0 , " %% " -DATA 85 , 1 , 0 , " " -DATA 86 , 1 , 0 , " ~~~~ " -DATA 87 , 1 , 0 , " || " -DATA 88 , 1 , 0 , " SSS " -DATA 89 , 0 , 6666 , " 6666 " -DATA 90 , 1 , 0 , " ww " -DATA 91 , 0 , 1111 , " 1111 " -DATA 92 , 1 , 0 , " K " -DATA 93 , 1 , 0 , " ttttt " -DATA 94 , 1 , 0 , " OOOOO " -DATA 95 , 1 , 0 , " E " -DATA 96 , 1 , 0 , " PPPPP " -DATA 97 , 1 , 0 , " == " -DATA 98 , 1 , 0 , " VVVV " -DATA 99 , 1 , 0 , " c " -DATA 100 , 1 , 0 , " yyyy " -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/NBS2X/F_VAL_A_N.PRO b/bwbtest/NBS2X/F_VAL_A_N.PRO deleted file mode 100644 index 0043813..0000000 --- a/bwbtest/NBS2X/F_VAL_A_N.PRO +++ /dev/null @@ -1 +0,0 @@ -OPTION BUGS OFF diff --git a/bwbtest/NBS2X/F_VAL_A_N.run b/bwbtest/NBS2X/F_VAL_A_N.run deleted file mode 100644 index 177ef2e..0000000 --- a/bwbtest/NBS2X/F_VAL_A_N.run +++ /dev/null @@ -1,301 +0,0 @@ -TESTCASE # 1 E= 1 R= 0 A$=[] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 2 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 3 E= 0 R= 3 A$=[3] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 4 E= 1 R= 0 A$=[z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 5 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 6 E= 0 R= 3 A$=[ 3] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 7 E= 1 R= 0 A$=[ z] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 8 E= 0 R= 3 A$=[3 ] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 9 E= 1 R= 0 A$=[z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 10 E= 0 R= 3 A$=[ 3 ] - F= 0 N= 3 -*** TEST PASSED *** -TESTCASE # 11 E= 1 R= 0 A$=[ z ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 12 E= 1 R= 0 A$=[ LLLL] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 13 E= 1 R= 0 A$=[ '' ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 14 E= 1 R= 0 A$=[ oo ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 15 E= 0 R= 0 A$=[ 00 ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 16 E= 1 R= 0 A$=[ \\\\ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 17 E= 1 R= 0 A$=[ lllll ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 18 E= 1 R= 0 A$=[ uuuu ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 19 E= 1 R= 0 A$=[ a ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 20 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 21 E= 1 R= 0 A$=[ hh ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 22 E= 1 R= 0 A$=[ h ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 23 E= 1 R= 0 A$=[ )] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 24 E= 0 R= 5 A$=[ 5 ] - F= 0 N= 5 -*** TEST PASSED *** -TESTCASE # 25 E= 0 R= 2 A$=[ 2 ] - F= 0 N= 2 -*** TEST PASSED *** -TESTCASE # 26 E= 1 R= 0 A$=[ - ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 27 E= 1 R= 0 A$=[dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 28 E= 1 R= 0 A$=[ tttt ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 29 E= 1 R= 0 A$=[ :::: ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 30 E= 1 R= 0 A$=[ ___ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 31 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 32 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 33 E= 1 R= 0 A$=[ _____ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 34 E= 1 R= 0 A$=[ S ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 35 E= 1 R= 0 A$=[ FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 36 E= 1 R= 0 A$=[ kkk] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 37 E= 1 R= 0 A$=[ NNNN ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 38 E= 1 R= 0 A$=[ mmmm ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 39 E= 1 R= 0 A$=[ ,,,,, ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 40 E= 1 R= 0 A$=[OO ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 41 E= 1 R= 0 A$=[ HHHH ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 42 E= 1 R= 0 A$=[ < ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 43 E= 1 R= 0 A$=[ j ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 44 E= 1 R= 0 A$=[ yyyy ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 45 E= 1 R= 0 A$=[ +++ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 46 E= 1 R= 0 A$=[o ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 47 E= 1 R= 0 A$=[ ((] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 48 E= 1 R= 0 A$=[ uu ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 49 E= 0 R= 0 A$=[ 00 ] - F= 0 N= 0 -*** TEST PASSED *** -TESTCASE # 50 E= 1 R= 0 A$=[ HH ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 51 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 52 E= 1 R= 0 A$=[ G ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 53 E= 1 R= 0 A$=[ {{{{ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 54 E= 1 R= 0 A$=[ ]]] ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 55 E= 1 R= 0 A$=[CCC] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 56 E= 0 R= 44 A$=[ 44 ] - F= 0 N= 44 -*** TEST PASSED *** -TESTCASE # 57 E= 1 R= 0 A$=[^^ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 58 E= 1 R= 0 A$=[ QQ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 59 E= 1 R= 0 A$=[ FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 60 E= 1 R= 0 A$=[ n ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 61 E= 1 R= 0 A$=[ hh ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 62 E= 0 R= 555 A$=[555 ] - F= 0 N= 555 -*** TEST PASSED *** -TESTCASE # 63 E= 1 R= 0 A$=[ YYYY ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 64 E= 1 R= 0 A$=[ w ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 65 E= 1 R= 0 A$=[MMMM ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 66 E= 1 R= 0 A$=[ JJJJ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 67 E= 1 R= 0 A$=[ %% ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 68 E= 1 R= 0 A$=[ * ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 69 E= 1 R= 0 A$=[ @@@ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 70 E= 1 R= 0 A$=[I ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 71 E= 1 R= 0 A$=[ ss ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 72 E= 1 R= 0 A$=[ f ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 73 E= 1 R= 0 A$=[ D ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 74 E= 1 R= 0 A$=[### ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 75 E= 1 R= 0 A$=[ ' ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 76 E= 1 R= 0 A$=[ dd ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 77 E= 1 R= 0 A$=[ TT ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 78 E= 1 R= 0 A$=[ vvv ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 79 E= 1 R= 0 A$=[ X ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 80 E= 1 R= 0 A$=[ % ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 81 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 82 E= 0 R= 5555 A$=[ 5555 ] - F= 0 N= 5555 -*** TEST PASSED *** -TESTCASE # 83 E= 1 R= 0 A$=[FFFF ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 84 E= 1 R= 0 A$=[ %% ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 85 E= 1 R= 0 A$=[ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 86 E= 1 R= 0 A$=[ ~~~~ ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 87 E= 1 R= 0 A$=[ || ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 88 E= 1 R= 0 A$=[ SSS ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 89 E= 0 R= 6666 A$=[ 6666 ] - F= 0 N= 6666 -*** TEST PASSED *** -TESTCASE # 90 E= 1 R= 0 A$=[ ww ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 91 E= 0 R= 1111 A$=[ 1111 ] - F= 0 N= 1111 -*** TEST PASSED *** -TESTCASE # 92 E= 1 R= 0 A$=[ K ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 93 E= 1 R= 0 A$=[ ttttt ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 94 E= 1 R= 0 A$=[ OOOOO ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 95 E= 1 R= 0 A$=[ E ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 96 E= 1 R= 0 A$=[ PPPPP ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 97 E= 1 R= 0 A$=[ == ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 98 E= 1 R= 0 A$=[ VVVV ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 99 E= 1 R= 0 A$=[ c ] - F= 1 N= 0 -*** TEST PASSED *** -TESTCASE # 100 E= 1 R= 0 A$=[ yyyy ] - F= 1 N= 0 -*** TEST PASSED *** -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/M001.BAS b/bwbtest/NBS2X/M001.BAS deleted file mode 100644 index 1ad7def..0000000 --- a/bwbtest/NBS2X/M001.BAS +++ /dev/null @@ -1,22 +0,0 @@ -100 rem Filename: date1.bas -110 rem Purpose: verify DATE -120 rem this test must be executed manually -130 let X = DATE ' YYDDD -140 let Y = FIX( X / 1000 ) -150 let D = X - Y * 1000 -160 let Y = 1900 + Y -170 print " The Year:"; Y -180 print "Day of year:"; D -190 input "Is this correct (Y/N)"; A$ -200 if UCASE$( A$ ) <> "Y" then goto TestFailed -8000 rem ------------------------------------------ -8010 TestPassed: -8020 print "*** ALL TESTS PASSED ***" -8030 goto TheEnd -8500 rem ------------------------------------------ -8510 TestFailed: -8520 print "*** TEST FAILED ***" -8530 goto TheEnd -9000 rem ------------------------------------------ -9010 TheEnd: -9999 end diff --git a/bwbtest/NBS2X/M001.INP b/bwbtest/NBS2X/M001.INP deleted file mode 100644 index 9bda8c3..0000000 --- a/bwbtest/NBS2X/M001.INP +++ /dev/null @@ -1 +0,0 @@ -Y diff --git a/bwbtest/NBS2X/M001.run b/bwbtest/NBS2X/M001.run deleted file mode 100644 index 3f6f536..0000000 --- a/bwbtest/NBS2X/M001.run +++ /dev/null @@ -1,4 +0,0 @@ - The Year: 2017 -Day of year: 63 -Is this correct (Y/N)? Y -*** ALL TESTS PASSED *** diff --git a/bwbtest/NBS2X/M002.BAS b/bwbtest/NBS2X/M002.BAS deleted file mode 100644 index 5bcd58a..0000000 --- a/bwbtest/NBS2X/M002.BAS +++ /dev/null @@ -1,13 +0,0 @@ -010 rem verify CONT command -020 rem this must be executed manually -090 let ITERATION = ITERATION + 1 -100 print "100. Enter CONT at the command line. Next line should be 120" -110 stop -120 print "120. Enter CONT at the command line. Next line should be 140" -130 end -140 print "140. Enter CONT at the command line. Next line should be 100" -900 REM Quit when we have executed this complete program 3 times -910 if ITERATION > 2 then -920 PRINT "TEST COMPLETED" -930 QUIT -940 end if diff --git a/bwbtest/NBS2X/M002.INP b/bwbtest/NBS2X/M002.INP deleted file mode 100644 index c02e885..0000000 --- a/bwbtest/NBS2X/M002.INP +++ /dev/null @@ -1,9 +0,0 @@ -CONT -CONT -CONT -CONT -CONT -CONT -CONT -CONT -ERROR 1, "SOULD NOT READ THIS" diff --git a/bwbtest/NBS2X/M002.run b/bwbtest/NBS2X/M002.run deleted file mode 100644 index cefe0ae..0000000 --- a/bwbtest/NBS2X/M002.run +++ /dev/null @@ -1,25 +0,0 @@ -100. Enter CONT at the command line. Next line should be 120 - -Program interrupted at line 110 -bwBASIC: CONT -120. Enter CONT at the command line. Next line should be 140 -bwBASIC: CONT -140. Enter CONT at the command line. Next line should be 100 -bwBASIC: CONT -100. Enter CONT at the command line. Next line should be 120 - -Program interrupted at line 110 -bwBASIC: CONT -120. Enter CONT at the command line. Next line should be 140 -bwBASIC: CONT -140. Enter CONT at the command line. Next line should be 100 -bwBASIC: CONT -100. Enter CONT at the command line. Next line should be 120 - -Program interrupted at line 110 -bwBASIC: CONT -120. Enter CONT at the command line. Next line should be 140 -bwBASIC: CONT -140. Enter CONT at the command line. Next line should be 100 -TEST COMPLETED - diff --git a/bwbtest/NBS2X/M003.BAS b/bwbtest/NBS2X/M003.BAS deleted file mode 100644 index 9eab258..0000000 --- a/bwbtest/NBS2X/M003.BAS +++ /dev/null @@ -1,78 +0,0 @@ -100 REM PURPOSE: DISPLAY/VERIFY THE IMPLEMENTATION-DEFINED VALUES -110 REM AUTHOR: HOWARD WULF, AF5NE -120 REM DATE: 2015-01-25 -130 REM ------------------------------------------------------- -140 PRINT "THIS PROGRAM DISPLAYS THE IMPLEMENTATION-DEFINED" -150 PRINT "RANGES FOR ALL BASIC VARIABLE TYPES." -160 PRINT "THERE SHOULD BE NO ERROR MESSAGES." -170 PRINT "MAXLVL=";MAXLVL -200 PRINT "MAXNUM=";MAXNUM -210 PRINT "MAXDBL=";MAXDBL -220 PRINT "MAXSNG=";MAXSNG -230 PRINT "MAXCUR=";MAXCUR -240 PRINT "MAXLNG=";MAXLNG -250 PRINT "MAXINT=";MAXINT -260 PRINT "MAXBYT=";MAXBYT -270 PRINT "MAXDEV=";MAXDEV -280 PRINT "MAXLEN=";MAXLEN("") -300 PRINT "MINNUM=";MINNUM -310 PRINT "MINDBL=";MINDBL -320 PRINT "MINSNG=";MINSNG -330 PRINT "MINCUR=";MINCUR -340 PRINT "MINLNG=";MINLNG -350 PRINT "MININT=";MININT -360 PRINT "MINBYT=";MINBYT -370 PRINT "MINDEV=";MINDEV -380 PRINT "MINLEN=";0 -400 REM ------------------------------------------------ -410 REM VERIFY THE MAX... RANGES ARE VALID -420 IF MAXNUM < MAXDBL THEN -430 PRINT "*** ERROR MAXNUM < MAXDBL ***" -440 END IF -450 IF MAXDBL < MAXSNG THEN -460 PRINT "*** ERROR MAXDBL < MAXSNG ***" -470 END IF -480 IF MAXSNG < MAXCUR THEN -490 PRINT "*** ERROR MAXSNG < MAXCUR ***" -500 END IF -510 IF MAXCUR < MAXLNG THEN -520 PRINT "*** ERROR MAXCUR < MAXLNG ***" -530 END IF -540 IF MAXLNG < MAXINT THEN -550 PRINT "*** ERROR MAXLNG < MAXINT ***" -560 END IF -570 IF MAXINT < MAXBYT THEN -580 PRINT "*** ERROR MAXINT < MAXBYT ***" -590 END IF -600 IF MAXBYT < MAXDEV THEN -610 PRINT "*** ERROR MAXBYT < MAXDEV ***" -620 END IF -630 IF MAXINT < MAXLEN("") THEN -640 PRINT "*** ERROR MAXINT < MAXLEN ***" -650 END IF -700 REM -------------------------------------------- -710 REM VERIFY THE MIN... RANGES -720 IF MINDBL < MINNUM THEN -730 PRINT "*** ERROR MINDBL < MINNUM ***" -740 END IF -750 IF MINSNG < MINDBL THEN -760 PRINT "*** ERROR MINSNG < MINDBL ***" -770 END IF -780 IF MINCUR < MINSNG THEN -790 PRINT "*** ERROR MINCUR < MINSNG ***" -800 END IF -810 IF MINLNG < MINCUR THEN -820 PRINT "*** ERROR MINLNG < MINCUR ***" -840 END IF -850 IF MININT < MINLNG THEN -860 PRINT "*** ERROR MININT < MINLNG ***" -870 END IF -880 IF MINBYT < MININT THEN -890 PRINT "*** ERROR MINBYT < MININT ***" -900 END IF -910 IF MINDEV < MINBYT THEN -920 PRINT "*** ERROR MINDEV < MINBYT ***" -930 END IF -940 REM MINLEN("") IS 0 -950 PRINT "IF NO ERROR MESSAGES, THEN *** TEST PASSED ***" -999 END diff --git a/bwbtest/NBS2X/M003.run b/bwbtest/NBS2X/M003.run deleted file mode 100644 index 3dc1ca3..0000000 --- a/bwbtest/NBS2X/M003.run +++ /dev/null @@ -1,23 +0,0 @@ -THIS PROGRAM DISPLAYS THE IMPLEMENTATION-DEFINED -RANGES FOR ALL BASIC VARIABLE TYPES. -THERE SHOULD BE NO ERROR MESSAGES. -MAXLVL= 255 -MAXNUM= 1.79769E+308 -MAXDBL= 1.79769E+308 -MAXSNG= 3.40282E+38 -MAXCUR= 2.14748E+9 -MAXLNG= 2.14748E+9 -MAXINT= 2.14748E+9 -MAXBYT= 255 -MAXDEV= 17 -MAXLEN= 255 -MINNUM=-1.79769E+308 -MINDBL=-1.79769E+308 -MINSNG=-3.40282E+38 -MINCUR=-2.14748E+9 -MINLNG=-2.14748E+9 -MININT=-2.14748E+9 -MINBYT= 0 -MINDEV= 0 -MINLEN= 0 -IF NO ERROR MESSAGES, THEN *** TEST PASSED *** diff --git a/bwbtest/NBS2X/M004.BAS b/bwbtest/NBS2X/M004.BAS deleted file mode 100644 index db32c45..0000000 --- a/bwbtest/NBS2X/M004.BAS +++ /dev/null @@ -1,25 +0,0 @@ -100 REM PURPOSE: VERIFY ON TIMER ... GOSUB ... -110 REM AUTHOR: HOWARD WULF, AF5NE -120 REM DATE: 2015-01-25 -130 REM -140 REM --------------------------------------- -150 LET K = 0 -200 ON TIMER 0.1 GOSUB 500 -210 TIMER ON -220 WHILE K < 10 -225 REM -230 WEND -240 GOTO 999 -500 REM -------------------------------------- -510 PRINT "TIMER" -512 LET K = K + 1 -514 IF K > 10 THEN RETURN -515 REM AS CURRENTLY IMPLEMENTED, -516 REM THE TIMER AUTOMATICALLY CLEARS -517 REM WHEN ACTIVATED. -518 REM IF YOU WANT IT TO FIRE AGAIN, -519 REM THEN YOU HAVE TO SET IT AGAIN. -520 TIMER ON -530 RETURN -540 STOP -999 END diff --git a/bwbtest/NBS2X/M004.run b/bwbtest/NBS2X/M004.run deleted file mode 100644 index bfeb6f8..0000000 --- a/bwbtest/NBS2X/M004.run +++ /dev/null @@ -1,10 +0,0 @@ -TIMER -TIMER -TIMER -TIMER -TIMER -TIMER -TIMER -TIMER -TIMER -TIMER diff --git a/bwbtest/NBS2X/M005.BAS b/bwbtest/NBS2X/M005.BAS deleted file mode 100644 index 25c440a..0000000 --- a/bwbtest/NBS2X/M005.BAS +++ /dev/null @@ -1,48 +0,0 @@ -100 REM PURPOSE: VERIFY ON TIMER ... GOSUB ... -110 REM AUTHOR: HOWARD WULF, AF5NE -120 REM DATE: 2015-01-25 -130 REM -140 REM --------------------------------------- -150 REM THE '50' BELOW IS THE NUMBER OF BASIC LINES -160 REM TO EXECUTE BEFORE FIRING THE TIMER EVENT -170 REM -180 LET K = 0 -200 ON TIMER 0.05 GOSUB 500 -205 LET N = 0 -210 TIMER ON -220 WHILE K < 10 -225 REM -230 WEND -240 GOTO 999 -500 REM -------------------------------------- -510 PRINT "TIMER" -512 LET K = K + 1 -513 IF K > 10 THEN RETURN -515 REM AS CURRENTLY IMPLEMENTED, -516 REM THE TIMER CLEARS WHEN ACTIVATED. -517 REM -518 REM IF YOU WANT IT TO FIRE AGAIN, -519 REM THEN YOU HAVE TO SET IT AGAIN. -520 TIMER ON -525 N = N + 1 -527 IF N < 1 OR N > 5 THEN -528 LET N = 1 -529 END IF -530 ON N GOTO 1000,2000,3000,4000,5000 -540 STOP -999 END -1000 REM ROUTINE 1 -1010 PRINT "ROUTINE #1" -1020 RETURN -2000 REM ROUTINE 2 -2010 PRINT , "ROUTINE #2" -2050 RETURN -3000 REM ROUTINE 3 -3010 PRINT , , "ROUTINE #3" -3020 RETURN -4000 REM ROUTINE 4 -4010 PRINT , , , "ROUTINE #4" -4020 RETURN -5000 REM ROUTINE 5 -5010 PRINT , , , , "ROUTINE #5" -5020 RETURN diff --git a/bwbtest/NBS2X/M005.run b/bwbtest/NBS2X/M005.run deleted file mode 100644 index b3e1756..0000000 --- a/bwbtest/NBS2X/M005.run +++ /dev/null @@ -1,20 +0,0 @@ -TIMER -ROUTINE #1 -TIMER - ROUTINE #2 -TIMER - ROUTINE #3 -TIMER - ROUTINE #4 -TIMER - ROUTINE #5 -TIMER -ROUTINE #1 -TIMER - ROUTINE #2 -TIMER - ROUTINE #3 -TIMER - ROUTINE #4 -TIMER - ROUTINE #5 diff --git a/bwbtest/NBS2X/M006.BAS b/bwbtest/NBS2X/M006.BAS deleted file mode 100644 index b476bbe..0000000 --- a/bwbtest/NBS2X/M006.BAS +++ /dev/null @@ -1,54 +0,0 @@ -100 REM PURPOSE: CLS, LOCATE, COLOR FOR ANSI/VT100 -110 REM AUTHOR: HOWARD WULF, AF5NE -120 REM DATE: 2015-01-25 -130 REM -140 REM --------------------------------------- -150 REM In this example, ESC codes are used to -160 REM control the terminal display. -170 REM -200 SUB CLS() -210 PRINT CHR$(27);"[2J"; -220 END SUB -230 SUB LOCATE( Row, Col ) -240 PRINT CHR$(27);"[";TRIM$(STR$(Row));";";TRIM$(STR$(Col));"H"; -250 END SUB -260 SUB COLOR( Fore, Back ) -270 PRINT CHR$(27);"[";TRIM$(STR$(30+Fore));";";TRIM$(STR$(40+Back));"m"; -280 END SUB -290 REM -300 COLOR 7, 4 ' WHITE ON BLUE -310 CLS -325 REM DRAW A BOX -330 FOR R = 1 TO 20 -332 LOCATE R, 5 -340 SELECT CASE R -350 CASE 1 -360 PRINT "+";STRING$(40,"-");"+" -362 CASE 20 -364 PRINT "+";STRING$(40,"-");"+" -370 CASE ELSE -380 PRINT "|";STRING$(40," ");"|" -390 END SELECT -400 NEXT R -410 REM WRITE SOME TEXT -420 LOCATE 5, 10 -425 COLOR 1, 3 ' Red on Yellow -430 PRINT "This is RED on YELLOW" -500 REM COLOR MAP -510 FOR F = 30 TO 37 -520 FOR B = 40 TO 47 -530 LOCATE F - 27, B - 3 -540 COLOR F-30,B-40 -550 PRINT "X" -560 NEXT B -570 NEXT F -600 REM INPUT WITH DIFFERENT COLOR -610 LOCATE 15, 10 -620 COLOR 4, 5 ' Blue on Magenta -630 PRINT "TYPE SOMETHING"; -640 COLOR 7, 0 ' White on Black -650 INPUT A$ -700 REM RESET TERMINAL -710 COLOR 2, 0 ' Green on Black -720 CLS -999 END diff --git a/bwbtest/NBS2X/M006.INP b/bwbtest/NBS2X/M006.INP deleted file mode 100644 index 5da849b..0000000 --- a/bwbtest/NBS2X/M006.INP +++ /dev/null @@ -1 +0,0 @@ -ABC diff --git a/bwbtest/NBS2X/M006.png b/bwbtest/NBS2X/M006.png deleted file mode 100644 index 6b7934a..0000000 Binary files a/bwbtest/NBS2X/M006.png and /dev/null differ diff --git a/bwbtest/NBS2X/M006.run b/bwbtest/NBS2X/M006.run deleted file mode 100644 index 772d31b..0000000 --- a/bwbtest/NBS2X/M006.run +++ /dev/null @@ -1,87 +0,0 @@ - [37;44m [2J [1;5H+----------------------------------------+ - [2;5H| | - [3;5H| | - [4;5H| | - [5;5H| | - [6;5H| | - [7;5H| | - [8;5H| | - [9;5H| | - [10;5H| | - [11;5H| | - [12;5H| | - [13;5H| | - [14;5H| | - [15;5H| | - [16;5H| | - [17;5H| | - [18;5H| | - [19;5H| | - [20;5H+----------------------------------------+ - [5;10H [31;43mThis is RED on YELLOW - [3;37H [30;40mX - [3;38H [30;41mX - [3;39H [30;42mX - [3;40H [30;43mX - [3;41H [30;44mX - [3;42H [30;45mX - [3;43H [30;46mX - [3;44H [30;47mX - [4;37H [31;40mX - [4;38H [31;41mX - [4;39H [31;42mX - [4;40H [31;43mX - [4;41H [31;44mX - [4;42H [31;45mX - [4;43H [31;46mX - [4;44H [31;47mX - [5;37H [32;40mX - [5;38H [32;41mX - [5;39H [32;42mX - [5;40H [32;43mX - [5;41H [32;44mX - [5;42H [32;45mX - [5;43H [32;46mX - [5;44H [32;47mX - [6;37H [33;40mX - [6;38H [33;41mX - [6;39H [33;42mX - [6;40H [33;43mX - [6;41H [33;44mX - [6;42H [33;45mX - [6;43H [33;46mX - [6;44H [33;47mX - [7;37H [34;40mX - [7;38H [34;41mX - [7;39H [34;42mX - [7;40H [34;43mX - [7;41H [34;44mX - [7;42H [34;45mX - [7;43H [34;46mX - [7;44H [34;47mX - [8;37H [35;40mX - [8;38H [35;41mX - [8;39H [35;42mX - [8;40H [35;43mX - [8;41H [35;44mX - [8;42H [35;45mX - [8;43H [35;46mX - [8;44H [35;47mX - [9;37H [36;40mX - [9;38H [36;41mX - [9;39H [36;42mX - [9;40H [36;43mX - [9;41H [36;44mX - [9;42H [36;45mX - [9;43H [36;46mX - [9;44H [36;47mX - [10;37H [37;40mX - [10;38H [37;41mX - [10;39H [37;42mX - [10;40H [37;43mX - [10;41H [37;44mX - [10;42H [37;45mX - [10;43H [37;46mX - [10;44H [37;47mX - [15;10H [34;45mTYPE SOMETHING [37;40m? ABC - [32;40m [2J diff --git a/bwbtest/NBS2X/M007.BAS b/bwbtest/NBS2X/M007.BAS deleted file mode 100644 index 155dead..0000000 --- a/bwbtest/NBS2X/M007.BAS +++ /dev/null @@ -1,45 +0,0 @@ -100 REM PURPOSE: CLS, LOCATE, COLOR FOR ANSI/VT100 -110 REM AUTHOR: HOWARD WULF, AF5NE -120 REM DATE: 2015-01-25 -130 REM -140 REM --------------------------------------- -150 REM In this example, ESC codes are used to -160 REM control the terminal display. -170 REM -180 OPTION TERMINAL ANSI -300 COLOR 7, 4 ' WHITE ON BLUE -310 CLS -325 REM DRAW A BOX -330 FOR R = 1 TO 20 -332 LOCATE R, 5 -340 SELECT CASE R -350 CASE 1 -360 PRINT "+";STRING$(40,"-");"+" -362 CASE 20 -364 PRINT "+";STRING$(40,"-");"+" -370 CASE ELSE -380 PRINT "|";STRING$(40," ");"|" -390 END SELECT -400 NEXT R -410 REM WRITE SOME TEXT -420 LOCATE 5, 10 -425 COLOR 1, 3 ' Red on Yellow -430 PRINT "This is RED on YELLOW" -500 REM COLOR MAP -510 FOR F = 30 TO 37 -520 FOR B = 40 TO 47 -530 LOCATE F - 27, B - 3 -540 COLOR F-30,B-40 -550 PRINT "X" -560 NEXT B -570 NEXT F -600 REM INPUT WITH DIFFERENT COLOR -610 LOCATE 15, 10 -620 COLOR 4, 5 ' Blue on Magenta -630 PRINT "TYPE SOMETHING"; -640 COLOR 7, 0 ' White on Black -650 INPUT A$ -700 REM RESET TERMINAL -710 COLOR 2, 0 ' Green on Black -720 CLS -999 END diff --git a/bwbtest/NBS2X/M007.INP b/bwbtest/NBS2X/M007.INP deleted file mode 100644 index d4e3ab0..0000000 --- a/bwbtest/NBS2X/M007.INP +++ /dev/null @@ -1 +0,0 @@ -XYZ diff --git a/bwbtest/NBS2X/M007.run b/bwbtest/NBS2X/M007.run deleted file mode 100644 index 978eded..0000000 --- a/bwbtest/NBS2X/M007.run +++ /dev/null @@ -1,87 +0,0 @@ - [37;44m [2J [1;1H [1;5H+----------------------------------------+ - [2;5H| | - [3;5H| | - [4;5H| | - [5;5H| | - [6;5H| | - [7;5H| | - [8;5H| | - [9;5H| | - [10;5H| | - [11;5H| | - [12;5H| | - [13;5H| | - [14;5H| | - [15;5H| | - [16;5H| | - [17;5H| | - [18;5H| | - [19;5H| | - [20;5H+----------------------------------------+ - [5;10H [31;43mThis is RED on YELLOW - [3;37H [30;40mX - [3;38H [30;41mX - [3;39H [30;42mX - [3;40H [30;43mX - [3;41H [30;44mX - [3;42H [30;45mX - [3;43H [30;46mX - [3;44H [30;47mX - [4;37H [31;40mX - [4;38H [31;41mX - [4;39H [31;42mX - [4;40H [31;43mX - [4;41H [31;44mX - [4;42H [31;45mX - [4;43H [31;46mX - [4;44H [31;47mX - [5;37H [32;40mX - [5;38H [32;41mX - [5;39H [32;42mX - [5;40H [32;43mX - [5;41H [32;44mX - [5;42H [32;45mX - [5;43H [32;46mX - [5;44H [32;47mX - [6;37H [33;40mX - [6;38H [33;41mX - [6;39H [33;42mX - [6;40H [33;43mX - [6;41H [33;44mX - [6;42H [33;45mX - [6;43H [33;46mX - [6;44H [33;47mX - [7;37H [34;40mX - [7;38H [34;41mX - [7;39H [34;42mX - [7;40H [34;43mX - [7;41H [34;44mX - [7;42H [34;45mX - [7;43H [34;46mX - [7;44H [34;47mX - [8;37H [35;40mX - [8;38H [35;41mX - [8;39H [35;42mX - [8;40H [35;43mX - [8;41H [35;44mX - [8;42H [35;45mX - [8;43H [35;46mX - [8;44H [35;47mX - [9;37H [36;40mX - [9;38H [36;41mX - [9;39H [36;42mX - [9;40H [36;43mX - [9;41H [36;44mX - [9;42H [36;45mX - [9;43H [36;46mX - [9;44H [36;47mX - [10;37H [37;40mX - [10;38H [37;41mX - [10;39H [37;42mX - [10;40H [37;43mX - [10;41H [37;44mX - [10;42H [37;45mX - [10;43H [37;46mX - [10;44H [37;47mX - [15;10H [34;45mTYPE SOMETHING [37;40m? XYZ - [32;40m [2J [1;1H diff --git a/bwbtest/NBS2X/MAINTAINER.BAS b/bwbtest/NBS2X/MAINTAINER.BAS deleted file mode 100644 index bf96524..0000000 --- a/bwbtest/NBS2X/MAINTAINER.BAS +++ /dev/null @@ -1,7 +0,0 @@ -MAINTAINER CMDS ID -MAINTAINER CMDS SWITCH -MAINTAINER CMDS TABLE - -MAINTAINER FNCS ID -MAINTAINER FNCS SWITCH -MAINTAINER FNCS TABLE diff --git a/bwbtest/NBS2X/MANUAL.BAS b/bwbtest/NBS2X/MANUAL.BAS deleted file mode 100644 index 7a74b01..0000000 --- a/bwbtest/NBS2X/MANUAL.BAS +++ /dev/null @@ -1,3 +0,0 @@ -MAINTAINER CMDS MANUAL -MAINTAINER FNCS MANUAL -REM MAINTAINER OPRS MANUAL diff --git a/bwbtest/NBS2X/MID_1.BAS b/bwbtest/NBS2X/MID_1.BAS deleted file mode 100644 index 82858be..0000000 --- a/bwbtest/NBS2X/MID_1.BAS +++ /dev/null @@ -1,85 +0,0 @@ - 100 rem Purpose: Verify MID$ statement - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-03-28 - 130 rem - 140 rem MID$( target$, start [, length ] ) = source$ - 150 rem - 160 rem ------------------------------------- - 170 rem - 180 rem - 190 on error goto 750 - 200 gosub 800 - : mid$( A$, -1, 1 ) = "ab" - : gosub 900 - : rem start < 0 should cause ERROR 5 - 210 gosub 800 - : mid$( A$, 0, 1 ) = "ab" - : gosub 900 - : rem start = 0 should cause ERROR 5 - 220 gosub 800 - : mid$( A$, 1, -1 ) = "ab" - : gosub 900 - : rem length < 0 should cause ERROR 5 - 230 gosub 800 - : mid$( A$, 1, 0 ) = "ab" - : gosub 900 - : rem length = 0 should have no effect - 240 gosub 800 - : mid$( A$, 2, 0 ) = "ab" - : gosub 900 - : rem length = 0 should have no effect - 250 gosub 800 - : mid$( A$, LEN(A$), 0 ) = "ab" - : gosub 900 - : rem start = LEN( target$ ) - 260 gosub 800 - : mid$( A$, LEN(A$), 1 ) = "ab" - : gosub 900 - : rem start = LEN( target$ ) - 280 gosub 800 - : mid$( A$, LEN(A$), 2 ) = "ab" - : gosub 900 - : rem start = LEN( target$ ) - 290 gosub 800 - : mid$( A$, LEN(A$) + 1, 1 ) = "ab" - : gosub 900 - : rem start > LEN( target$ ) should cause ERROR 5 - 300 gosub 800 - : mid$( A$, 1, 2 ) = "ab" - : gosub 900 - 310 gosub 800 - : mid$( A$, 8, 2 ) = "cd" - : gosub 900 - 320 gosub 800 - : mid$( A$, 1, 9 ) = "ab" - : gosub 900 - 330 gosub 800 - : mid$( a$ , 2, 2 ) = "cd" - : gosub 900 - 340 gosub 800 - : mid$( a$, 9, 2 ) = "de" - : gosub 900 - : rem 9 + 2 > len( A$ ) - 350 gosub 800 - : mid$( A$, 10, 2 ) = "ef" - : gosub 900 - : rem 10 > len( A$ ) - 360 gosub 800 - : mid$( A$, 11, 2 ) = "ef" - : gosub 900 - : rem 11 > len( A$ ) - 700 rem ------------------------------------- - 710 goto 999 - 750 rem ------------------------------------- - 760 print "ERR="; ERR, "ERL="; ERL - 770 resume next - 800 rem ------------------------------------- - 810 rem Assign default value - 820 let A$ = "123456789" - 830 return - 900 rem ------------------------------------- - 910 rem Print resulting value - 920 print "["; A$; "]" - 930 return - 999 end - diff --git a/bwbtest/NBS2X/MID_1.run b/bwbtest/NBS2X/MID_1.run deleted file mode 100644 index 8def3d7..0000000 --- a/bwbtest/NBS2X/MID_1.run +++ /dev/null @@ -1,22 +0,0 @@ -ERR= 5 ERL= 200 -[123456789] -ERR= 5 ERL= 210 -[123456789] -ERR= 5 ERL= 220 -[123456789] -[123456789] -[123456789] -[123456789] -[12345678a] -[12345678a] -ERR= 5 ERL= 290 -[123456789] -[ab3456789] -[1234567cd] -[ab3456789] -[1cd456789] -[12345678d] -ERR= 5 ERL= 350 -[123456789] -ERR= 5 ERL= 360 -[123456789] diff --git a/bwbtest/NBS2X/PAD80.BAS b/bwbtest/NBS2X/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/NBS2X/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/NBS2X/PAD80.INP b/bwbtest/NBS2X/PAD80.INP deleted file mode 100644 index e2e4a34..0000000 --- a/bwbtest/NBS2X/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA F_VAL_A_N.OUT, F_VAL_A_N.80 diff --git a/bwbtest/NBS2X/PAD80.PRO b/bwbtest/NBS2X/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/NBS2X/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/NBS2X/SYNTAX.BAS b/bwbtest/NBS2X/SYNTAX.BAS deleted file mode 100644 index 37da88c..0000000 --- a/bwbtest/NBS2X/SYNTAX.BAS +++ /dev/null @@ -1,498 +0,0 @@ -OPTION VERSION BYWATER -OPTION BUGS OFF -REM PARSE SYNTAX DIAGRAMS AND GENERATE PARAMETER RANGE CHECK TESTS -REM EXAMPLE " SYNTAX: N = ASC( A$ )" -REM -REM THIS PROGRAM ASSUMES A PROPERLY FORMATTED SYNTAX DIAGRAM; -REM ONLY MINIMAL ERROR CHECKING IS PERFORMED. -REM -REM ------------------------------------------------------------ -REM VARIABLE USAGE -REM F$ input file name, such as 'SYNTAX.INP' -REM I$ inpuut line, such as 'SYNTAX: N = ASC( A$ )' -REM L location of '(' -REM R location of ')' -REM C location of ':' or '=' or or ',' -REM P$ current function/parameter -REM N$() function/parameter name, P$(0) = 'ASC', P$(1) = 'A$' -REM T() function/parameter type, T(0) = NUMBER, T(1) = STRING -REM 0 == NUMBER, 1 == STRING -REM N number of paameters, such as 1 -REM I generic loop variable -REM C$ current character -REM Z$ cleaned syntax diagram -REM F$ cleaned function name, 'ASC' -REM X$ user selevted function name, 'COS' -REM U$ UniqueID, 'F_COS_X' -REM VN TESTCASE ACTUAL RESULT, NUMBER -REM VS$ TESTCASE ACTUAL RESULT, STRING -REM Q$ CHR$(34) -REM RN() RANDOM NUMBERS -REM RS$() RANDOM STRINGS -REM #1 INPUT FILE, 'SYNTAX.TXT' -REM #2 MERGE FILE, 'SYNTAX.MRG' -REM #3 OUTPUT FILE, 'F_COS_X.BAS' -REM ------------------------------------------------------------ -REM DECLARE ARRAYS -REM ------------------------------------------------------------ -REM RANDOMIZE ' this must be off for automated regression -DIM N$(9) -DIM T(9) -DIM RN(100) -DIM RS$(100) -N = 0 -GOSUB 4500 -REM ------------------------------------------------------------ -REM GET THE INPUT FILE NAME -REM ------------------------------------------------------------ -F$ = "SYNTAX.INP" -X$ = "ASC" -REM PRINT "F$=[";F$;"]" -REM ------------------------------------------------------------ -REM PROCESS THE INPUT FILE -REM ------------------------------------------------------------ -OPEN F$ FOR INPUT AS #1 -WHILE NOT EOF( 1 ) - LINE INPUT #1, I$ - REM PRINT "I$=[";I$;"]" - REM Process Line in I$ - GOSUB 1000 ' ProcessLine - REM IF I$ = X$ THEN - GOSUB 4000 ' DetermineUniqueID - GOSUB 5000 ' DumpResults - REM END IF -WEND -CLOSE #1 -PRINT "OK" -GOTO 9999 ' TheEnd - - -1000 REM ProcessLine -REM ------------------------------------------------------------ -REM PROCESS THE SYNTAX DIAGRAM IN I$ -REM ------------------------------------------------------------ -N = 0 -REM PRINT "I$=[";I$;"]" -I$ = TRIM$( I$ ) -IF LEN( I$ ) = 0 THEN RETURN -REM PRINT "I$=[";I$;"]" -REM CHECK MISSING COLON -C = INSTR( I$, ":" ) -REM PRINT "C=[";C;"]" -IF C = 0 THEN RETURN -REM REMOVE "SYNTAX:" -I$ = MID$( I$, C + 1 ) -I$ = TRIM$( I$ ) -REM PRINT "I$=[";I$;"]" -IF LEN( I$ ) = 0 THEN RETURN -REM SAVE CLEANED SYNTAX DIAGRAM -Z$ = I$ -REM DETERMINE RETURN TYPE -C = INSTR( I$, "=" ) -REM PRINT "C=[";C;"]" -IF C = 0 THEN RETURN -P$ = LEFT$( I$, C - 1 ) -P$ = TRIM$( P$ ) -REM PRINT "P$=[";P$;"]" -IF LEN( P$ ) = 0 THEN RETURN -I$ = MID$( I$, C + 1 ) -I$ = TRIM$( I$ ) -REM PRINT "I$=[";I$;"]" -IF LEN( I$ ) = 0 THEN RETURN -GOSUB 3000 ' DetermineTypeInP$ -REM I$ = "ASC( A$ )" -REM PRINT "I$=[";I$;"]" -L = INSTR( I$, "(" ) -R = INSTR( I$, ")" ) -REM PRINT "L=[";L;"]" -REM PRINT "R=[";R;"]" -IF R < L THEN RETURN ' ERROR ...)...( -IF R = 0 AND L = 0 THEN - REM "A$ = TIME$" - REM N$(0) = I$ - REM PRINT "NO PARAMETERS" - REM SAVE CLEANED FUNCTION NAME - F$ = I$ - RETURN ' DONE -END IF -REM "...(...)" -REM R > L AND L > 0 -REM SAVE CLEANED FUNCTION NAME -F$ = LEFT$( I$, L-1 ) -F$ = TRIM$( F$ ) -REM PRINT "F$=[";F$;"]" -I$ = MID$( I$, L+1, R-L-1 ) -REM PRINT "I$=[";I$;"]" -I$ = TRIM$( I$ ) -REM PRINT "I$=[";I$;"]" -IF LEN( I$ ) = 0 THEN RETURN ' N = POS() -P$ = "" -FOR I = 1 TO LEN( I$ ) - C$ = MID$( I$, I, 1 ) -REM PRINT "C$=[";C$;"]" - IF C$ = "," THEN - GOSUB 3000 ' DetermineTypeInP$ - P$ = "" - ELSE - P$ = P$ + C$ - END IF -NEXT I -GOSUB 3000 ' DetermineTypeInP$ -RETURN - - -3000 REM DetermineTypeInP$ -REM ------------------------------------------------------------ -REM DETERMINE THE TYPE IN P$ -REM ------------------------------------------------------------ -P$ = TRIM$( P$ ) -REM PRINT "P$=[";P$;"]" -IF LEN( P$ ) = 0 THEN RETURN -N$(N) = P$ -T(N) = SGN( INSTR( P$, "$" ) ) -N = N + 1 -RETURN - -4000 REM DetermineUniqueID -REM ------------------------------------------------------------ -REM DETERMINE THE UNIQUEID USING NS() AND T() -REM ------------------------------------------------------------ -IF N <= 0 THEN RETURN -U$ = "F_" + F$ -FOR I = 1 TO N - 1 - U$ = U$ + "_" + N$(I) -NEXT I -U$ = U$ + "_" + N$(0) -REM PRINT "U$=[";U$;"]" -REM REMOVE "$" -J = LEN(U$) -I$ = "" -FOR I = 1 TO J - C$ = MID$(U$,I,1) - IF C$ = "$" THEN - REM REMOVE - ELSE - I$ = I$ + C$ - END IF -NEXT I -U$ = I$ -REM PRINT "U$=[";U$;"]" -RETURN - -4500 REM LoadRandomValues -REM ------------------------------------------------------------ -REM LOAD RANDOM VALUES -REM ------------------------------------------------------------ -FOR I = 1 TO 100 - IF I < 25 THEN - RN(I) = RND * 1.0 - 0.5 - ELSEIF I < 50 THEN - RN(I) = RND * 255 - 128 - ELSEIF I < 75 THEN - RN(I) = RND * 64535 - 32768 - ELSE - RN(I) = RND * 10000000000 - 5000000000 - END IF - K = 0 - WHILE K < 35 OR K > 126 - K = RND * 128 - WEND - RS$(I) = SPACE$( RND * 5 ) + STRING$( RND * 5, K ) + SPACE$( RND * 5 ) -NEXT I -REM CERTAIN VALUES THAT SHOULD ALWAYS BE CHECKED -RN(1) = 0 -RN(2) = 1 -RN(3) = -1 -RN(4) = 0.4 -RN(5) = -0.4 -RN(6) = 0.6 -RN(7) = -0.6 -RN(8) = 254 -RN(9) = 255 -RN(10) = 256 -RN(11) = 32000 -RS$(1) = "" -RS$(2) = " " -RS$(3) = "3" -RS$(4) = "z" -RS$(5) = " " -RS$(6) = " 3" -RS$(7) = " z" -RS$(8) = "3 " -RS$(9) = "z " -RS$(10) = " 3 " -RS$(11) = " z " -RETURN - -5000 REM DumpResults -REM ------------------------------------------------------------ -REM DUMP RESULTS -REM ------------------------------------------------------------ -REM -REM THE FOLLOWING FUNCTIONS SHOULD NOT BE AUTOMATED -REM FOR VARIOUS REASONS -REM -IF N <= 0 THEN - REM ERROR - RETURN -END IF -IF INSTR( F$, " " ) THEN - REM TESTCSE NOT POSSIBLE, INTERNAL FUNCTIONS - REM such as "DEF FN" - RETURN -END IF -IF N = 1 THEN - REM MANUAL TESTCASE REQUIRED, NO PARAMETERS - REM such as DATE$, TIME$, TIMER - RETURN -END IF -IF INSTR(".CLOSE.EOF.GET.INPUT$.LOC.LOF.OPEN.PUT.RESET.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, FILE RELATIED - RETURN -END IF -IF INSTR(".CHDIR.FILES.KILL.MKDIR.NAME.RMDIR.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, DIRECTORY RELATED - RETURN -END IF -IF INSTR(".COMMAND$.ENVIRON.ENVIRON$.SHELL.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, SYSTEM RELATED - RETURN -END IF -IF INSTR(".INP.OUT.PEEK.POKE.WAIT.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, HARDWARE RELAATED - RETURN -END IF -IF INSTR(".COLOR.INKEY$.LOCATE.LPOS.LWIDTH.POS.WIDTH.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, SCREEN or PRINTER - RETURN -END IF -IF INSTR(".MKC$.MKD$.MKI$.MKL$.MKS$.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, MK* - RETURN -END IF -IF INSTR(".MOD.OPTION.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, MISCELLANEOUS - RETURN -END IF -IF INSTR(".RANDOMIZE.RND.SPC.TAB.", "." + F$ + ".") > 0 THEN - REM NO TESTCASE REQUIRED, TESTED BY P###.BAS - RETURN -END IF -REM -REM GENERATE TESTCASE -REM -LET X$ = U$ + ".BAS" -PRINT X$ -OPEN X$ FOR OUTPUT AS #3 -PRINT #3, "REM ------------------------------------------------------------" -PRINT #3, "REM PURPOSE: TEST THE PARAMETER RANGE CHECKS" -PRINT #3, "REM AUTHOR: HOWARD WULF, AF5NE" -PRINT #3, "REM GENERATED: ";DATE$;" ";TIME$ -PRINT #3, "REM FILENAME: ";X$ -PRINT #3, "REM SYNTAX: ";Z$ -PRINT #3, "REM UNIQUEID: ";U$ -PRINT #3, "REM FUNCTION: ";F$ -REM ------------------------------------------------------------ -REM HAS PARAMETERS -REM N > 1 -PRINT #3, "REM " -PRINT #3, "REM","VARIABLE","DESCRIPTION" -PRINT #3, "REM","I" ,"CURRENT TESTCASE NUMBER" -PRINT #3, "REM","E" ,"EXPECTED ERROR FLAG" -PRINT #3, "REM","F" ,"ACTUAL ERROR FLAG" -IF T(0) = 0 THEN -PRINT #3, "REM","R" ,"EXPECTED FUNCTION RESULT" -ELSE -PRINT #3, "REM","R$" ,"EXPECTED FUNCTION RESULT" -END IF -FOR I = 0 TO N - 1 - IF I = 0 THEN -PRINT #3, "REM",N$(I),"ACTUAL FUNCTION RESULT" - ELSE -PRINT #3, "REM",N$(I),"ACTUAL FUNCTION PARAMETER" - END IF -NEXT I -PRINT #3, "REM " - -REM GENERATE TESTS - -Q$ = CHR$(34) - -PRINT #3, "RESTORE 2000" -PRINT #3, "REM GET TESTCASE #" -PRINT #3, "READ I" -PRINT #3, "WHILE I > 0" -PRINT #3, "REM GET TESTCASE DATA" -PRINT #3, "READ E, "; -IF T(0) = 0 THEN - PRINT #3, "R"; -ELSE - PRINT #3, "R$"; -END IF -FOR J = 1 TO N - 1 - PRINT #3, ", "; - PRINT #3, N$(J); -NEXT J -PRINT #3, "" -PRINT #3, "REM DISPLAY TESTCASE DATA" -PRINT #3, "PRINT ";Q$;"TESTCASE #";Q$;";I,"; -PRINT #3, Q$;"E=";Q$;";E,"; -IF T(0) = 0 THEN - PRINT #3, Q$;"R=";Q$;";R"; -ELSE - PRINT #3, Q$;"R$=[";Q$;";R$;";Q$;"]";Q$; -END IF -FOR J = 1 TO N - 1 - PRINT #3, ", "; - IF T(J) = 0 THEN - PRINT #3, Q$;N$(J);"=";Q$;";";N$(J); - ELSE - PRINT #3, Q$;N$(J);"=[";Q$;";";N$(J);";";Q$;"]";Q$; - END IF -NEXT J -PRINT #3, "" -PRINT #3, "REM EXECUTE TESTCASE" -PRINT #3, "N = ";0 -PRINT #3, "S$ = ";Q$;Q$ -PRINT #3, "ON ERROR GOTO 9000" -PRINT #3, "F = 0" -PRINT #3, "999 ";Z$ -PRINT #3, "ERROR 0" -PRINT #3, "REM DISPLAY TESTCASE RESULTS" -PRINT #3, "PRINT ,";Q$;"F=";Q$;";F,"; -IF T(0) = 0 THEN - PRINT #3, Q$;N$(0);"=";Q$;";";N$(0) -ELSE - PRINT #3, Q$;N$(0);"=[";Q$;";";N$(0);";";Q$;"]";Q$ -END IF -PRINT #3, "REM VERIFY EXPECTED ERROR" -PRINT #3, "IF E <> F THEN" -PRINT #3, " PRINT ";Q$;"*** TEST FAILED, EXCEPTION MISMATCH ***";Q$ -PRINT #3, " STOP" -PRINT #3, "END IF" -PRINT #3, "REM VERIFY EXPECTED RESULT" -IF T(0) = 0 THEN -PRINT #3, "IF R > 0 THEN" -PRINT #3, " LET RMIN = 0.99 * R" -PRINT #3, " IF R > MAXNUM / 1.012 THEN" -PRINT #3, " LET RMAX = MAXNUM" -PRINT #3, " ELSE" -PRINT #3, " LET RMAX = 1.01 * R" -PRINT #3, " END IF" -PRINT #3, "END IF" -PRINT #3, "IF R < 0 THEN" -PRINT #3, " IF R < - MAXNUM / 1.012 THEN" -PRINT #3, " LET RMIN = -MAXNUM" -PRINT #3, " ELSE" -PRINT #3, " LET RMIN = 1.01 * R" -PRINT #3, " END IF" -PRINT #3, " LET RMAX = 0.99 * R" -PRINT #3, "END IF" -PRINT #3, "IF R = 0 THEN" -PRINT #3, " LET RMIN = -.01" -PRINT #3, " LET RMAX = +.01" -PRINT #3, "END IF" -PRINT #3, "IF ";N$(0);" < RMIN THEN" -PRINT #3, " PRINT ";Q$;"*** TEST FAILED, RESULT MISMATCH ***";Q$ -PRINT #3, " STOP" -PRINT #3, "END IF" -PRINT #3, "IF ";N$(0);" > RMAX THEN" -PRINT #3, " PRINT ";Q$;"*** TEST FAILED, RESULT MISMATCH ***";Q$ -PRINT #3, " STOP" -PRINT #3, "END IF" -ELSE -PRINT #3, "IF R$ <> ";N$(0);" THEN" -PRINT #3, " PRINT ";Q$;"*** TEST FAILED, RESULT MISMATCH ***";Q$ -PRINT #3, " STOP" -PRINT #3, "END IF" -END IF -PRINT #3, "PRINT ";Q$;"*** TEST PASSED ***";Q$ -PRINT #3, "REM GET NEXT TESTCASE #" -PRINT #3, "READ I" -PRINT #3, "WEND" -PRINT #3, "PRINT ";Q$;"*** ALL TESTS PASSED ***";Q$ -PRINT #3, "GOTO 9999" -PRINT #3, "1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS..." -FOR I = 1 TO 100 - REM ------------------------------------------------------------ - REM CREATE MERGE FILE - REM ------------------------------------------------------------ - OPEN "SYNTAX.MRG" FOR OUTPUT AS #2 - PRINT #2, "6000 REM MERGE START";I -REM PRINT #2, "6010 PRINT ";Q$;"BEFORE ERROR";Q$ -REM PRINT #2, "6020 ERROR 12" -REM PRINT #2, "6030 PRINT ";Q$;"AFTER ERROR";Q$ -REM PRINT #2, "6040 RETURN" -REM PRINT #2, "6050 PRINT ";Q$;"AFTER RETURN";Q$ - FOR J = 1 TO N - 1 - IF T(J) = 0 THEN - K = RN(I) - PRINT #2, "LET ";N$(J);" = ";K - V(J) = K - ELSE - K$ = RS$(I) - PRINT #2, "LET ";N$(J);" = ";Q$;K$;Q$ - V$(J) = K$ - END IF - NEXT J - PRINT #2, "6010 LET V";Z$ -REM PRINT #2, "6098 PRINT ";Q$;"BEFORE STOP";Q$ - PRINT #2, "6099 REM MERGE STOP";I - CLOSE #2 - REM EXECUTE MERGED FILE - DELETE 6000-6099 - MERGE "SYNTAX.MRG" -REM LIST 5999-6999 - LET E = 0 - LET VN = 0 - LET VS$ = "" -REM TRON - ON ERROR RESUME NEXT - GOSUB 6000 -REM TROFF - REM DTERMINE ERROR FLAG - LET E = ABS(SGN(ERR)) - REM CLEAR ERR, ERL, ERROR$ - ERROR 0 - ON ERROR GOTO 0 - REM REPORT RESULTS - REM TESTCASE NUMBER, EXPECTED ERROR - PRINT #3, "DATA ";I;", ";E;", "; - REM EXPECTED RESULT - IF T(0) = 0 THEN - PRINT #3, VN; - ELSE - PRINT #3, Q$;VS$;Q$; - END IF - REM ACTUAL PARAMETERS - FOR J = 1 TO N - 1 - PRINT #3, ", "; - IF T(J) = 0 THEN - PRINT #3, V(J); - ELSE - PRINT #3, Q$;V$(J);Q$; - END IF - NEXT J - PRINT #3, "" -NEXT I -PRINT #3, "DATA 0" -PRINT #3, "9000 REM ERROR HANDLER" -PRINT #3, "IF ERL = 999 THEN" -PRINT #3, " F = ABS(SGN(ERR))" -PRINT #3, " RESUME NEXT" -PRINT #3, "END IF" -PRINT #3, "PRINT ";Q$;"*** UNEXPECTED ERROR ON LINE ";Q$;";ERL;";Q$;" ***";Q$ -PRINT #3, "9999 END" -CLOSE #3 -RETURN - -5999 REM BOUNDARY A -6000 REM MERGE START 0 -6099 REM MERGE STOP 0 -6100 RETURN -6999 REM BOUNDARY B - -REM ------------------------------------------------------------ -REM EOF -REM ------------------------------------------------------------ -9999 END diff --git a/bwbtest/NBS2X/SYNTAX.INP b/bwbtest/NBS2X/SYNTAX.INP deleted file mode 100644 index fc4a723..0000000 --- a/bwbtest/NBS2X/SYNTAX.INP +++ /dev/null @@ -1,140 +0,0 @@ - SYNTAX: N = ABS( X ) - SYNTAX: N = ACOS( X ) - SYNTAX: N = ANGLE( X, Y ) - SYNTAX: N = ASC( A$ ) - SYNTAX: N = ASIN( X ) - SYNTAX: N = ATN( X ) - SYNTAX: N = CCUR( X ) - SYNTAX: N = CDBL( X ) - SYNTAX: N = CEIL( X ) - SYNTAX: N = CHDIR( A$ ) - SYNTAX: S$ = CHR$( X ) - SYNTAX: N = CINT( X ) - SYNTAX: N = CLNG( X ) - SYNTAX: N = CLOSE( X ) - SYNTAX: N = CLS - SYNTAX: N = COLOR( X, Y ) - SYNTAX: N = COS( X ) - SYNTAX: N = COSH( X ) - SYNTAX: N = COT( X ) - SYNTAX: N = CSC( X ) - SYNTAX: N = CSNG( X ) - SYNTAX: N = CVC( A$ ) - SYNTAX: N = CVD( A$ ) - SYNTAX: N = CVI( A$ ) - SYNTAX: N = CVL( A$ ) - SYNTAX: N = CVS( A$ ) - SYNTAX: N = DATE - SYNTAX: S$ = DATE$ - SYNTAX: N = DEF FN - SYNTAX: N = DEG( X ) - SYNTAX: N = ENVIRON( A$ ) - SYNTAX: S$ = ENVIRON$( A$ ) - SYNTAX: N = EOF( X ) - SYNTAX: N = EPS( X ) - SYNTAX: N = ERL - SYNTAX: N = ERR - SYNTAX: N = ERROR( X ) - SYNTAX: N = ERROR( X, A$ ) - SYNTAX: N = EXP( X ) - SYNTAX: N = FILES - SYNTAX: N = FILES( A$ ) - SYNTAX: N = FIX( X ) - SYNTAX: N = FP( X ) - SYNTAX: N = FRE - SYNTAX: N = FRE( A$ ) - SYNTAX: N = FRE( X ) - SYNTAX: N = GET( X ) - SYNTAX: N = GET( X, Y ) - SYNTAX: S$ = HEX$( X ) - SYNTAX: S$ = INKEY$ - SYNTAX: N = INP( X ) - SYNTAX: S$ = INPUT$( X ) - SYNTAX: S$ = INPUT$( X, Y ) - SYNTAX: N = INSTR( A$, B$ ) - SYNTAX: N = INSTR( X, A$, B$ ) - SYNTAX: N = INT( X ) - SYNTAX: N = IP( X ) - SYNTAX: N = KILL( A$ ) - SYNTAX: S$ = LCASE$( A$ ) - SYNTAX: S$ = LEFT$( A$, X ) - SYNTAX: N = LEN( A$ ) - SYNTAX: N = LOC( X ) - SYNTAX: N = LOCATE( X, Y ) - SYNTAX: N = LOF( X ) - SYNTAX: N = LOG( X ) - SYNTAX: N = LOG10( X ) - SYNTAX: N = LOG2( X ) - SYNTAX: N = LPOS - SYNTAX: S$ = LTRIM$( A$ ) - SYNTAX: N = LWIDTH( X ) - SYNTAX: N = MAX( X, Y ) - SYNTAX: N = MAXLEN( A$ ) - SYNTAX: N = MAXNUM - SYNTAX: S$ = MID$( A$, X ) - SYNTAX: S$ = MID$( A$, X, Y ) - SYNTAX: N = MIN( X, Y ) - SYNTAX: S$ = MKC$( X ) - SYNTAX: S$ = MKD$( X ) - SYNTAX: N = MKDIR( A$ ) - SYNTAX: S$ = MKI$( X ) - SYNTAX: S$ = MKL$( X ) - SYNTAX: S$ = MKS$( X ) - SYNTAX: N = MOD( X, Y ) - SYNTAX: N = NAME( A$, B$ ) - SYNTAX: N = NULL( X ) - SYNTAX: S$ = OCT$( X ) - SYNTAX: N = OPEN( A$, X, B$ ) - SYNTAX: N = OPEN( A$, X, B$, Y ) - SYNTAX: N = OPTION( A$, B$ ) - SYNTAX: N = ORD( A$ ) - SYNTAX: N = OUT( X, Y ) - SYNTAX: N = PEEK( X ) - SYNTAX: N = PI - SYNTAX: N = POKE( X, Y ) - SYNTAX: N = POS - SYNTAX: N = POS( X ) - SYNTAX: N = POS( A$, B$ ) - SYNTAX: N = POS( A$, B$, X ) - SYNTAX: N = PUT( X ) - SYNTAX: N = PUT( X, Y ) - SYNTAX: N = RAD( X ) - SYNTAX: N = RANDOMIZE - SYNTAX: N = RANDOMIZE( X ) - SYNTAX: N = REMAINDER( X, Y ) - SYNTAX: S$ = REPEAT$( X, A$ ) - SYNTAX: S$ = REPEAT$( X, Y ) - SYNTAX: N = RESET - SYNTAX: S$ = RIGHT$( A$, X ) - SYNTAX: N = RMDIR( A$ ) - SYNTAX: N = RND - SYNTAX: N = RND( X ) - SYNTAX: N = ROUND( X, Y ) - SYNTAX: S$ = RTRIM$( A$ ) - SYNTAX: N = SEC( X ) - SYNTAX: N = SGN( X ) - SYNTAX: N = SHELL( A$ ) - SYNTAX: N = SIN( X ) - SYNTAX: N = SINH( X ) - SYNTAX: S$ = SPACE$( X ) - SYNTAX: S$ = SPC( X ) - SYNTAX: N = SQR( X ) - SYNTAX: S$ = STR$( X ) - SYNTAX: S$ = STRING$( X, Y ) - SYNTAX: S$ = STRING$( X, A$ ) - SYNTAX: S$ = TAB( X ) - SYNTAX: N = TAN( X ) - SYNTAX: N = TANH( X ) - SYNTAX: N = TIME - SYNTAX: S$ = TIME$ - SYNTAX: N = TIMER - SYNTAX: S$ = TRIM$( A$ ) - SYNTAX: N = TROFF - SYNTAX: N = TRON - SYNTAX: N = TRUNCATE( X, Y ) - SYNTAX: S$ = UCASE$( A$ ) - SYNTAX: N = VAL( A$ ) - SYNTAX: N = WAIT( X, Y ) - SYNTAX: N = WAIT( X, Y, Z ) - SYNTAX: N = WIDTH( X ) - SYNTAX: N = WIDTH( X, Y ) diff --git a/bwbtest/NBS2X/SYNTAX.MRG b/bwbtest/NBS2X/SYNTAX.MRG deleted file mode 100644 index b46f5ce..0000000 --- a/bwbtest/NBS2X/SYNTAX.MRG +++ /dev/null @@ -1,4 +0,0 @@ -6000 REM MERGE START 100 -LET A$ = " yyyy " -6010 LET VN = VAL( A$ ) -6099 REM MERGE STOP 100 diff --git a/bwbtest/NBS2X/VIRT_1.BAS b/bwbtest/NBS2X/VIRT_1.BAS deleted file mode 100644 index 3746a34..0000000 --- a/bwbtest/NBS2X/VIRT_1.BAS +++ /dev/null @@ -1,21 +0,0 @@ - 100 rem Purpose: Verify VIRTUAL variables - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-04-01 - 130 rem Note: results are tested by VIRT_2.BAS - 140 rem ----------------------------------------- - 150 rem - 160 rem - 170 rem - 180 rem - 190 kill "VIRT_1.DAT" - 200 option base 1 - 210 dim # 7 , X( 100 ) - 220 open "VIRT_1.DAT" for VIRTUAL as # 7 - 230 for I = 1 to 100 - 240 let X( I ) = I / 10 - 250 next I - 260 close # 7 - 270 print "TEST COMPLETED" - 999 end - - diff --git a/bwbtest/NBS2X/VIRT_1.run b/bwbtest/NBS2X/VIRT_1.run deleted file mode 100644 index b2b2797..0000000 --- a/bwbtest/NBS2X/VIRT_1.run +++ /dev/null @@ -1 +0,0 @@ -TEST COMPLETED diff --git a/bwbtest/NBS2X/VIRT_2.BAS b/bwbtest/NBS2X/VIRT_2.BAS deleted file mode 100644 index 22d82a3..0000000 --- a/bwbtest/NBS2X/VIRT_2.BAS +++ /dev/null @@ -1,21 +0,0 @@ - 100 rem Purpose: Verify VIRTUAL variables - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-04-01 - 130 rem Note: verify values written by VIRT_1.BAS - 140 rem -------------------------------------------- - 150 rem Note: should print 1..100 - 160 rem - 170 rem - 180 rem - 190 rem - 200 option base 1 - 210 dim # 11 , Y( 100 ) - 220 open "VIRT_1.DAT" for VIRTUAL as # 11 - 230 for I = 1 to 100 - 240 print Y( I ) * 10 - 250 next I - 260 close # 11 - 270 print "TEST COMPLETED" - 999 end - - diff --git a/bwbtest/NBS2X/VIRT_2.run b/bwbtest/NBS2X/VIRT_2.run deleted file mode 100644 index 745aa75..0000000 --- a/bwbtest/NBS2X/VIRT_2.run +++ /dev/null @@ -1,101 +0,0 @@ - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 20 - 21 - 22 - 23 - 24 - 25 - 26 - 27 - 28 - 29 - 30 - 31 - 32 - 33 - 34 - 35 - 36 - 37 - 38 - 39 - 40 - 41 - 42 - 43 - 44 - 45 - 46 - 47 - 48 - 49 - 50 - 51 - 52 - 53 - 54 - 55 - 56 - 57 - 58 - 59 - 60 - 61 - 62 - 63 - 64 - 65 - 66 - 67 - 68 - 69 - 70 - 71 - 72 - 73 - 74 - 75 - 76 - 77 - 78 - 79 - 80 - 81 - 82 - 83 - 84 - 85 - 86 - 87 - 88 - 89 - 90 - 91 - 92 - 93 - 94 - 95 - 96 - 97 - 98 - 99 - 100 -TEST COMPLETED diff --git a/bwbtest/NBS2X/VIRT_3.BAS b/bwbtest/NBS2X/VIRT_3.BAS deleted file mode 100644 index 1790fcc..0000000 --- a/bwbtest/NBS2X/VIRT_3.BAS +++ /dev/null @@ -1,20 +0,0 @@ - 100 rem Purpose: Verify VIRTUAL variables - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-04-01 - 130 rem Note: results are verified by VIRT_4.BAS - 140 rem ------------------------------------------- - 150 rem - 160 rem - 170 rem - 180 rem - 190 kill "VIRT_3.DAT" - 200 option base 1 - 210 dim # 7 , A$( 100 ) * 5 - 220 open "VIRT_3.DAT" for VIRTUAL as # 7 - 230 for I = 1 to 100 - 240 let A$( I ) = STR$( I ) - 250 next I - 260 close # 7 - 270 print "TEST COMPLETED" - 999 end - diff --git a/bwbtest/NBS2X/VIRT_3.run b/bwbtest/NBS2X/VIRT_3.run deleted file mode 100644 index b2b2797..0000000 --- a/bwbtest/NBS2X/VIRT_3.run +++ /dev/null @@ -1 +0,0 @@ -TEST COMPLETED diff --git a/bwbtest/NBS2X/VIRT_4.BAS b/bwbtest/NBS2X/VIRT_4.BAS deleted file mode 100644 index d12ecde..0000000 --- a/bwbtest/NBS2X/VIRT_4.BAS +++ /dev/null @@ -1,21 +0,0 @@ - 100 rem Purpose: Verify VIRTUAL variables - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-04-01 - 130 rem Note: verify values written by VIRT_3.BAS - 140 rem -------------------------------------------- - 150 rem Note: should print 1..100 - 160 rem - 170 rem - 180 rem - 190 rem - 200 option base 1 - 210 dim # 11 , B$( 100 ) * 5 - 220 open "VIRT_3.DAT" for VIRTUAL as # 11 - 230 for I = 1 to 100 - 240 print B$( I ) - 250 next I - 260 close # 11 - 270 print "TEST COMPLETED" - 999 end - - diff --git a/bwbtest/NBS2X/VIRT_4.run b/bwbtest/NBS2X/VIRT_4.run deleted file mode 100644 index 745aa75..0000000 --- a/bwbtest/NBS2X/VIRT_4.run +++ /dev/null @@ -1,101 +0,0 @@ - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 20 - 21 - 22 - 23 - 24 - 25 - 26 - 27 - 28 - 29 - 30 - 31 - 32 - 33 - 34 - 35 - 36 - 37 - 38 - 39 - 40 - 41 - 42 - 43 - 44 - 45 - 46 - 47 - 48 - 49 - 50 - 51 - 52 - 53 - 54 - 55 - 56 - 57 - 58 - 59 - 60 - 61 - 62 - 63 - 64 - 65 - 66 - 67 - 68 - 69 - 70 - 71 - 72 - 73 - 74 - 75 - 76 - 77 - 78 - 79 - 80 - 81 - 82 - 83 - 84 - 85 - 86 - 87 - 88 - 89 - 90 - 91 - 92 - 93 - 94 - 95 - 96 - 97 - 98 - 99 - 100 -TEST COMPLETED diff --git a/bwbtest/NBS2X/VIRT_5.BAS b/bwbtest/NBS2X/VIRT_5.BAS deleted file mode 100644 index df1375e..0000000 --- a/bwbtest/NBS2X/VIRT_5.BAS +++ /dev/null @@ -1,20 +0,0 @@ - 100 rem Purpose: Verify VIRTUAL variables - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-04-01 - 130 rem Note: values are verified by VIRT_6.BAS - 140 rem ------------------------------------------ - 150 rem - 160 rem - 170 rem - 180 rem - 190 kill "VIRT_5.DAT" - 200 option base 1 - 210 dim # 7 , X( 10 ), A$( 15 ) - 220 open "VIRT_5.DAT" for VIRTUAL as # 7 - 230 for I = 1 to 10 : let X( I ) = I / 10 : let A$( I ) = STR$( I ) : next I - 240 rem - 250 for I = 11 to 15 : let A$( I ) = STR$( I ) : next I - 260 close # 7 - 270 print "TEST COMPLETED" - 999 end - diff --git a/bwbtest/NBS2X/VIRT_5.run b/bwbtest/NBS2X/VIRT_5.run deleted file mode 100644 index b2b2797..0000000 --- a/bwbtest/NBS2X/VIRT_5.run +++ /dev/null @@ -1 +0,0 @@ -TEST COMPLETED diff --git a/bwbtest/NBS2X/VIRT_6.BAS b/bwbtest/NBS2X/VIRT_6.BAS deleted file mode 100644 index fef8f34..0000000 --- a/bwbtest/NBS2X/VIRT_6.BAS +++ /dev/null @@ -1,21 +0,0 @@ - 100 rem Purpose: Verify VIRTUAL variables - 110 rem Author: Howard Wulf, AF5NE - 120 rem Date: 2016-04-01 - 130 rem Note: verify values written by VIRT_5.BAS - 140 rem -------------------------------------------- - 150 rem Note: should print 1..10 and 1..15 - 160 rem - 170 rem - 180 rem - 190 rem - 200 option base 1 - 210 dim # 11 , Y( 10 ), B$( 15 ) - 220 open "VIRT_5.DAT" for VIRTUAL as # 11 - 230 for I = 1 to 10 : print Y( I ) * 10, B$( I ) : next i - 240 rem - 250 for I = 11 to 15 : print , B$( I ) : next i - 260 close # 11 - 270 print "TEST COMPLETED" - 999 end - - diff --git a/bwbtest/NBS2X/VIRT_6.run b/bwbtest/NBS2X/VIRT_6.run deleted file mode 100644 index 5896c15..0000000 --- a/bwbtest/NBS2X/VIRT_6.run +++ /dev/null @@ -1,16 +0,0 @@ - 1 1 - 2 2 - 3 3 - 4 4 - 5 5 - 6 6 - 7 7 - 8 8 - 9 9 - 10 10 - 11 - 12 - 13 - 14 - 15 -TEST COMPLETED diff --git a/bwbtest/NBS2X/VIRT_7.BAS b/bwbtest/NBS2X/VIRT_7.BAS deleted file mode 100644 index 251c91b..0000000 --- a/bwbtest/NBS2X/VIRT_7.BAS +++ /dev/null @@ -1,36 +0,0 @@ - 100 REM PURPOSE: VERIFY 'VIRTUAL' VARIABLES - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-04-09 - 130 REM NOTE: OPTION VERSION "BYWATER" - 140 REM - 150 REM - 200 OPTION BASE 1 - 210 LET F = 3 - 220 OPEN "VIRT_7.DAT" FOR VIRTUAL AS # F - 230 LET N = LOF( F ) - 240 IF N <= 0 THEN 999 - 250 DIM # F, A( N ) AS BYTE - 260 REM - 270 GOSUB 800 - 280 REM - 290 FOR I = 1 TO N - 300 LET A(I) = A(I) + 32 - 310 NEXT I - 320 REM - 330 GOSUB 800 - 340 REM - 350 FOR I = 1 TO N - 360 LET A(I) = A(I) - 32 - 370 NEXT I - 380 REM - 390 GOSUB 800 - 400 REM - 410 GOTO 999 - 800 REM READ THE FILE - 810 FOR I = 1 TO N - 820 PRINT A(I); - 830 NEXT I - 840 PRINT - 850 RETURN - 860 REM - 999 END diff --git a/bwbtest/NBS2X/VIRT_7.run b/bwbtest/NBS2X/VIRT_7.run deleted file mode 100644 index e81b3cb..0000000 --- a/bwbtest/NBS2X/VIRT_7.run +++ /dev/null @@ -1,6 +0,0 @@ - 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 - 85 86 87 88 89 90 10 - 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 - 113 114 115 116 117 118 119 120 121 122 42 - 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 - 85 86 87 88 89 90 10 diff --git a/bwbtest/NBS2X/cms.bas b/bwbtest/NBS2X/cms.bas deleted file mode 100644 index d20426e..0000000 --- a/bwbtest/NBS2X/cms.bas +++ /dev/null @@ -1,66 +0,0 @@ -rem PUrpose: re-define externals to only 6 characters for CMS -rem Author: Howard Wulf, AF5NE -rem Date: 2015-02-10 -rem Usage: implementation defined -rem Example: -rem ~/bwbasic cms.bas -rem -let N = 0 -let E$ = "extern " -let E = len( E$ ) -open "bwbasic.h" for input as #1 -open "cms.h" for output as #2 -while not eof( #1 ) - line input #1, L$ - L$ = trim$( L$ ) - if left$( L$, E ) = E$ then - rem extern .... - while instr( L$, ";" ) = 0 - ' read more text to get semicolon - line input #1, M$ - M$ = trim$( M$ ) - L$ = L$ + " " + M$ - wend - rem extern ...; - L$ = trim$(mid$( L$, E + 1 )) - ' truncate semicolon - X = instr( L$, ";" ) - if X > 0 then - L$ = trim$(left$( L$, X - 1 )) - end if - ' truncate parenthesis - X = instr( L$, "(" ) - if X > 0 then - L$ = trim$(left$( L$, X - 1 )) - end if - ' truncate bracket - X = instr( L$, "[" ) - if X > 0 then - L$ = trim$(left$( L$, X - 1 )) - end if - ' find last word - X = instr(L$, " " ) - while X > 0 - L$ = trim$(mid$( L$, X + 1 )) - X = instr(L$, " " ) - wend - ' skip astericks - while left$( L$, 1 ) = "*" - L$ = trim$(mid$( L$, 2 )) - wend - if L$ = "main" then - ' ignore - else - ' pad for alignment - L$ = L$ + space$(32) - L$ = left$( L$, 32 ) - H$ = "00000" + hex$(N) - H$ = right$( H$, 5 ) - print #2, "#define ";L$;" X";H$ - N = N + 1 - end if - end if -wend -close #2 -close #1 -end diff --git a/bwbtest/NBS2X/test.dat b/bwbtest/NBS2X/test.dat deleted file mode 100644 index c9fe27e..0000000 --- a/bwbtest/NBS2X/test.dat +++ /dev/null @@ -1 +0,0 @@ -"1234567890" diff --git a/bwbtest/NBS2X/x b/bwbtest/NBS2X/x deleted file mode 100644 index 2610cb9..0000000 Binary files a/bwbtest/NBS2X/x and /dev/null differ diff --git a/bwbtest/R86/00test.sh b/bwbtest/R86/00test.sh deleted file mode 100644 index f31a4a2..0000000 --- a/bwbtest/R86/00test.sh +++ /dev/null @@ -1,48 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile R86.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- - -testcase DIGITS -testcase SCALE -testcase INPUT -testcase PRINT -testcase HEX -testcase PDEL -testcase RESIDUE - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/R86/01test.sh b/bwbtest/R86/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/R86/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/R86/99test.sh b/bwbtest/R86/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/R86/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/R86/DIGITS.BAS b/bwbtest/R86/DIGITS.BAS deleted file mode 100644 index fb2fc46..0000000 --- a/bwbtest/R86/DIGITS.BAS +++ /dev/null @@ -1,45 +0,0 @@ - 100 REM PURPOSE: VERIFY 'DIGITS' FUNCTION - 110 REM AUTHOR: HOWAARD WULF, AF5NE - 120 REM DATE: 2017-02-12 - 130 REM NOTE: OPTION VERSION RBASIC - 140 REM - 150 REM - 160 LET N = 15 - 170 ON ERROR GOTO 800 - 180 REM - 190 REM - 200 LET X = PI - 210 LET A$ = "PI" - 220 GOSUB 600 - 230 REM - 240 LET X = PI * 1000 - 250 LET A$ = "PI * 1000" - 260 GOSUB 600 - 270 REM - 280 LET X = PI / 1000 - 290 LET A$ = "PI / 1000" - 300 GOSUB 600 - 310 REM - 320 GOTO 999 - 330 REM - 600 PRINT "COMMAND";TAB(20); A$ - 610 FOR I = 0 TO N - 620 DIGITS I - 630 PRINT "DIGITS "; I; TAB(20); X - 640 NEXT I - 650 REM - 660 FOR I = 0 TO N - 670 FOR J = 0 TO I - 680 DIGITS I, J - 690 PRINT "DIGITS "; I; ","; J; TAB(20); X - 700 NEXT J - 710 NEXT I - 720 REM - 730 REM INPUT "PRESS ENTER"; A$ - 740 RETURN - 800 REM - 810 PRINT "ERL=";ERL, "ERR=";ERR, "ERROR$=";ERROR$ - 820 RESUME NEXT - 830 REM - 999 END - diff --git a/bwbtest/R86/DIGITS.run b/bwbtest/R86/DIGITS.run deleted file mode 100644 index 32081c5..0000000 --- a/bwbtest/R86/DIGITS.run +++ /dev/null @@ -1,459 +0,0 @@ -COMMAND PI -DIGITS 0 3.14159 -DIGITS 1 3. -DIGITS 2 3.1 -DIGITS 3 3.14 -DIGITS 4 3.142 -DIGITS 5 3.1416 -DIGITS 6 3.14159 -DIGITS 7 3.141593 -DIGITS 8 3.1415927 -DIGITS 9 3.14159265 -DIGITS 10 3.141592654 -DIGITS 11 3.1415926536 -DIGITS 12 3.14159265359 -DIGITS 13 3.14159265359 -DIGITS 14 3.1415926535898 -DIGITS 15 3.14159265358979 -DIGITS 0 , 0 3.14159 -DIGITS 1 , 0 3. -DIGITS 1 , 1 3. -DIGITS 2 , 0 3.1 -DIGITS 2 , 1 3.1 -DIGITS 2 , 2 3.1 -DIGITS 3 , 0 3.14 -DIGITS 3 , 1 3.1 -DIGITS 3 , 2 3.14 -DIGITS 3 , 3 3.14 -DIGITS 4 , 0 3.142 -DIGITS 4 , 1 3.1 -DIGITS 4 , 2 3.14 -DIGITS 4 , 3 3.142 -DIGITS 4 , 4 3.142 -DIGITS 5 , 0 3.1416 -DIGITS 5 , 1 3.1 -DIGITS 5 , 2 3.14 -DIGITS 5 , 3 3.142 -DIGITS 5 , 4 3.1416 -DIGITS 5 , 5 3.1416 -DIGITS 6 , 0 3.14159 -DIGITS 6 , 1 3.1 -DIGITS 6 , 2 3.14 -DIGITS 6 , 3 3.142 -DIGITS 6 , 4 3.1416 -DIGITS 6 , 5 3.14159 -DIGITS 6 , 6 3.14159 -DIGITS 7 , 0 3.141593 -DIGITS 7 , 1 3.1 -DIGITS 7 , 2 3.14 -DIGITS 7 , 3 3.142 -DIGITS 7 , 4 3.1416 -DIGITS 7 , 5 3.14159 -DIGITS 7 , 6 3.141593 -DIGITS 7 , 7 3.141593 -DIGITS 8 , 0 3.1415927 -DIGITS 8 , 1 3.1 -DIGITS 8 , 2 3.14 -DIGITS 8 , 3 3.142 -DIGITS 8 , 4 3.1416 -DIGITS 8 , 5 3.14159 -DIGITS 8 , 6 3.141593 -DIGITS 8 , 7 3.1415927 -DIGITS 8 , 8 3.1415927 -DIGITS 9 , 0 3.14159265 -DIGITS 9 , 1 3.1 -DIGITS 9 , 2 3.14 -DIGITS 9 , 3 3.142 -DIGITS 9 , 4 3.1416 -DIGITS 9 , 5 3.14159 -DIGITS 9 , 6 3.141593 -DIGITS 9 , 7 3.1415927 -DIGITS 9 , 8 3.14159265 -DIGITS 9 , 9 3.14159265 -DIGITS 10 , 0 3.141592654 -DIGITS 10 , 1 3.1 -DIGITS 10 , 2 3.14 -DIGITS 10 , 3 3.142 -DIGITS 10 , 4 3.1416 -DIGITS 10 , 5 3.14159 -DIGITS 10 , 6 3.141593 -DIGITS 10 , 7 3.1415927 -DIGITS 10 , 8 3.14159265 -DIGITS 10 , 9 3.141592654 -DIGITS 10 , 10 3.141592654 -DIGITS 11 , 0 3.1415926536 -DIGITS 11 , 1 3.1 -DIGITS 11 , 2 3.14 -DIGITS 11 , 3 3.142 -DIGITS 11 , 4 3.1416 -DIGITS 11 , 5 3.14159 -DIGITS 11 , 6 3.141593 -DIGITS 11 , 7 3.1415927 -DIGITS 11 , 8 3.14159265 -DIGITS 11 , 9 3.141592654 -DIGITS 11 , 10 3.1415926536 -DIGITS 11 , 11 3.1415926536 -DIGITS 12 , 0 3.14159265359 -DIGITS 12 , 1 3.1 -DIGITS 12 , 2 3.14 -DIGITS 12 , 3 3.142 -DIGITS 12 , 4 3.1416 -DIGITS 12 , 5 3.14159 -DIGITS 12 , 6 3.141593 -DIGITS 12 , 7 3.1415927 -DIGITS 12 , 8 3.14159265 -DIGITS 12 , 9 3.141592654 -DIGITS 12 , 10 3.1415926536 -DIGITS 12 , 11 3.14159265359 -DIGITS 12 , 12 3.14159265359 -DIGITS 13 , 0 3.14159265359 -DIGITS 13 , 1 3.1 -DIGITS 13 , 2 3.14 -DIGITS 13 , 3 3.142 -DIGITS 13 , 4 3.1416 -DIGITS 13 , 5 3.14159 -DIGITS 13 , 6 3.141593 -DIGITS 13 , 7 3.1415927 -DIGITS 13 , 8 3.14159265 -DIGITS 13 , 9 3.141592654 -DIGITS 13 , 10 3.1415926536 -DIGITS 13 , 11 3.14159265359 -DIGITS 13 , 12 3.14159265359 -DIGITS 13 , 13 3.14159265359 -DIGITS 14 , 0 3.1415926535898 -DIGITS 14 , 1 3.1 -DIGITS 14 , 2 3.14 -DIGITS 14 , 3 3.142 -DIGITS 14 , 4 3.1416 -DIGITS 14 , 5 3.14159 -DIGITS 14 , 6 3.141593 -DIGITS 14 , 7 3.1415927 -DIGITS 14 , 8 3.14159265 -DIGITS 14 , 9 3.141592654 -DIGITS 14 , 10 3.1415926536 -DIGITS 14 , 11 3.14159265359 -DIGITS 14 , 12 3.14159265359 -DIGITS 14 , 13 3.1415926535898 -DIGITS 14 , 14 3.1415926535898 -DIGITS 15 , 0 3.14159265358979 -DIGITS 15 , 1 3.1 -DIGITS 15 , 2 3.14 -DIGITS 15 , 3 3.142 -DIGITS 15 , 4 3.1416 -DIGITS 15 , 5 3.14159 -DIGITS 15 , 6 3.141593 -DIGITS 15 , 7 3.1415927 -DIGITS 15 , 8 3.14159265 -DIGITS 15 , 9 3.141592654 -DIGITS 15 , 10 3.1415926536 -DIGITS 15 , 11 3.14159265359 -DIGITS 15 , 12 3.14159265359 -DIGITS 15 , 13 3.1415926535898 -DIGITS 15 , 14 3.14159265358979 -DIGITS 15 , 15 3.14159265358979 -COMMAND PI * 1000 -DIGITS 0 3141.59 -DIGITS 1 3.E+3 -DIGITS 2 3.1E+3 -DIGITS 3 3.14E+3 -DIGITS 4 3142. -DIGITS 5 3141.6 -DIGITS 6 3141.59 -DIGITS 7 3141.593 -DIGITS 8 3141.5927 -DIGITS 9 3141.59265 -DIGITS 10 3141.592654 -DIGITS 11 3141.5926536 -DIGITS 12 3141.59265359 -DIGITS 13 3141.59265359 -DIGITS 14 3141.5926535898 -DIGITS 15 3141.59265358979 -DIGITS 0 , 0 3141.59 -DIGITS 1 , 0 3.E+3 -DIGITS 1 , 1 3.E+3 -DIGITS 2 , 0 3.1E+3 -DIGITS 2 , 1 3.1E+3 -DIGITS 2 , 2 3.1E+3 -DIGITS 3 , 0 3.14E+3 -DIGITS 3 , 1 3.14E+3 -DIGITS 3 , 2 3.14E+3 -DIGITS 3 , 3 3.14E+3 -DIGITS 4 , 0 3142. -DIGITS 4 , 1 3142. -DIGITS 4 , 2 3142. -DIGITS 4 , 3 3142. -DIGITS 4 , 4 3142. -DIGITS 5 , 0 3141.6 -DIGITS 5 , 1 3141.6 -DIGITS 5 , 2 3141.6 -DIGITS 5 , 3 3141.6 -DIGITS 5 , 4 3141.6 -DIGITS 5 , 5 3141.6 -DIGITS 6 , 0 3141.59 -DIGITS 6 , 1 3141.6 -DIGITS 6 , 2 3141.59 -DIGITS 6 , 3 3141.59 -DIGITS 6 , 4 3141.59 -DIGITS 6 , 5 3141.59 -DIGITS 6 , 6 3141.59 -DIGITS 7 , 0 3141.593 -DIGITS 7 , 1 3141.6 -DIGITS 7 , 2 3141.59 -DIGITS 7 , 3 3141.593 -DIGITS 7 , 4 3141.593 -DIGITS 7 , 5 3141.593 -DIGITS 7 , 6 3141.593 -DIGITS 7 , 7 3141.593 -DIGITS 8 , 0 3141.5927 -DIGITS 8 , 1 3141.6 -DIGITS 8 , 2 3141.59 -DIGITS 8 , 3 3141.593 -DIGITS 8 , 4 3141.5927 -DIGITS 8 , 5 3141.5927 -DIGITS 8 , 6 3141.5927 -DIGITS 8 , 7 3141.5927 -DIGITS 8 , 8 3141.5927 -DIGITS 9 , 0 3141.59265 -DIGITS 9 , 1 3141.6 -DIGITS 9 , 2 3141.59 -DIGITS 9 , 3 3141.593 -DIGITS 9 , 4 3141.5927 -DIGITS 9 , 5 3141.59265 -DIGITS 9 , 6 3141.59265 -DIGITS 9 , 7 3141.59265 -DIGITS 9 , 8 3141.59265 -DIGITS 9 , 9 3141.59265 -DIGITS 10 , 0 3141.592654 -DIGITS 10 , 1 3141.6 -DIGITS 10 , 2 3141.59 -DIGITS 10 , 3 3141.593 -DIGITS 10 , 4 3141.5927 -DIGITS 10 , 5 3141.59265 -DIGITS 10 , 6 3141.592654 -DIGITS 10 , 7 3141.592654 -DIGITS 10 , 8 3141.592654 -DIGITS 10 , 9 3141.592654 -DIGITS 10 , 10 3141.592654 -DIGITS 11 , 0 3141.5926536 -DIGITS 11 , 1 3141.6 -DIGITS 11 , 2 3141.59 -DIGITS 11 , 3 3141.593 -DIGITS 11 , 4 3141.5927 -DIGITS 11 , 5 3141.59265 -DIGITS 11 , 6 3141.592654 -DIGITS 11 , 7 3141.5926536 -DIGITS 11 , 8 3141.5926536 -DIGITS 11 , 9 3141.5926536 -DIGITS 11 , 10 3141.5926536 -DIGITS 11 , 11 3141.5926536 -DIGITS 12 , 0 3141.59265359 -DIGITS 12 , 1 3141.6 -DIGITS 12 , 2 3141.59 -DIGITS 12 , 3 3141.593 -DIGITS 12 , 4 3141.5927 -DIGITS 12 , 5 3141.59265 -DIGITS 12 , 6 3141.592654 -DIGITS 12 , 7 3141.5926536 -DIGITS 12 , 8 3141.59265359 -DIGITS 12 , 9 3141.59265359 -DIGITS 12 , 10 3141.59265359 -DIGITS 12 , 11 3141.59265359 -DIGITS 12 , 12 3141.59265359 -DIGITS 13 , 0 3141.59265359 -DIGITS 13 , 1 3141.6 -DIGITS 13 , 2 3141.59 -DIGITS 13 , 3 3141.593 -DIGITS 13 , 4 3141.5927 -DIGITS 13 , 5 3141.59265 -DIGITS 13 , 6 3141.592654 -DIGITS 13 , 7 3141.5926536 -DIGITS 13 , 8 3141.59265359 -DIGITS 13 , 9 3141.59265359 -DIGITS 13 , 10 3141.59265359 -DIGITS 13 , 11 3141.59265359 -DIGITS 13 , 12 3141.59265359 -DIGITS 13 , 13 3141.59265359 -DIGITS 14 , 0 3141.5926535898 -DIGITS 14 , 1 3141.6 -DIGITS 14 , 2 3141.59 -DIGITS 14 , 3 3141.593 -DIGITS 14 , 4 3141.5927 -DIGITS 14 , 5 3141.59265 -DIGITS 14 , 6 3141.592654 -DIGITS 14 , 7 3141.5926536 -DIGITS 14 , 8 3141.59265359 -DIGITS 14 , 9 3141.59265359 -DIGITS 14 , 10 3141.5926535898 -DIGITS 14 , 11 3141.5926535898 -DIGITS 14 , 12 3141.5926535898 -DIGITS 14 , 13 3141.5926535898 -DIGITS 14 , 14 3141.5926535898 -DIGITS 15 , 0 3141.59265358979 -DIGITS 15 , 1 3141.6 -DIGITS 15 , 2 3141.59 -DIGITS 15 , 3 3141.593 -DIGITS 15 , 4 3141.5927 -DIGITS 15 , 5 3141.59265 -DIGITS 15 , 6 3141.592654 -DIGITS 15 , 7 3141.5926536 -DIGITS 15 , 8 3141.59265359 -DIGITS 15 , 9 3141.59265359 -DIGITS 15 , 10 3141.5926535898 -DIGITS 15 , 11 3141.59265358979 -DIGITS 15 , 12 3141.59265358979 -DIGITS 15 , 13 3141.59265358979 -DIGITS 15 , 14 3141.59265358979 -DIGITS 15 , 15 3141.59265358979 -COMMAND PI / 1000 -DIGITS 0 3.14159E-3 -DIGITS 1 3.E-3 -DIGITS 2 3.1E-3 -DIGITS 3 3.14E-3 -DIGITS 4 3.142E-3 -DIGITS 5 3.1416E-3 -DIGITS 6 3.14159E-3 -DIGITS 7 3.141593E-3 -DIGITS 8 3.1415927E-3 -DIGITS 9 3.14159265E-3 -DIGITS 10 3.141592654E-3 -DIGITS 11 3.1415926536E-3 -DIGITS 12 3.14159265359E-3 -DIGITS 13 3.14159265359E-3 -DIGITS 14 3.1415926535898E-3 -DIGITS 15 .00314159265359 -DIGITS 0 , 0 3.14159E-3 -DIGITS 1 , 0 3.E-3 -DIGITS 1 , 1 0 -DIGITS 2 , 0 3.1E-3 -DIGITS 2 , 1 0 -DIGITS 2 , 2 0 -DIGITS 3 , 0 3.14E-3 -DIGITS 3 , 1 0 -DIGITS 3 , 2 0 -DIGITS 3 , 3 .003 -DIGITS 4 , 0 3.142E-3 -DIGITS 4 , 1 0 -DIGITS 4 , 2 0 -DIGITS 4 , 3 .003 -DIGITS 4 , 4 .0031 -DIGITS 5 , 0 3.1416E-3 -DIGITS 5 , 1 0 -DIGITS 5 , 2 0 -DIGITS 5 , 3 .003 -DIGITS 5 , 4 .0031 -DIGITS 5 , 5 .00314 -DIGITS 6 , 0 3.14159E-3 -DIGITS 6 , 1 0 -DIGITS 6 , 2 0 -DIGITS 6 , 3 .003 -DIGITS 6 , 4 .0031 -DIGITS 6 , 5 .00314 -DIGITS 6 , 6 .003142 -DIGITS 7 , 0 3.141593E-3 -DIGITS 7 , 1 0 -DIGITS 7 , 2 0 -DIGITS 7 , 3 .003 -DIGITS 7 , 4 .0031 -DIGITS 7 , 5 .00314 -DIGITS 7 , 6 .003142 -DIGITS 7 , 7 .0031416 -DIGITS 8 , 0 3.1415927E-3 -DIGITS 8 , 1 0 -DIGITS 8 , 2 0 -DIGITS 8 , 3 .003 -DIGITS 8 , 4 .0031 -DIGITS 8 , 5 .00314 -DIGITS 8 , 6 .003142 -DIGITS 8 , 7 .0031416 -DIGITS 8 , 8 .00314159 -DIGITS 9 , 0 3.14159265E-3 -DIGITS 9 , 1 0 -DIGITS 9 , 2 0 -DIGITS 9 , 3 .003 -DIGITS 9 , 4 .0031 -DIGITS 9 , 5 .00314 -DIGITS 9 , 6 .003142 -DIGITS 9 , 7 .0031416 -DIGITS 9 , 8 .00314159 -DIGITS 9 , 9 .003141593 -DIGITS 10 , 0 3.141592654E-3 -DIGITS 10 , 1 0 -DIGITS 10 , 2 0 -DIGITS 10 , 3 .003 -DIGITS 10 , 4 .0031 -DIGITS 10 , 5 .00314 -DIGITS 10 , 6 .003142 -DIGITS 10 , 7 .0031416 -DIGITS 10 , 8 .00314159 -DIGITS 10 , 9 .003141593 -DIGITS 10 , 10 .0031415927 -DIGITS 11 , 0 3.1415926536E-3 -DIGITS 11 , 1 0 -DIGITS 11 , 2 0 -DIGITS 11 , 3 .003 -DIGITS 11 , 4 .0031 -DIGITS 11 , 5 .00314 -DIGITS 11 , 6 .003142 -DIGITS 11 , 7 .0031416 -DIGITS 11 , 8 .00314159 -DIGITS 11 , 9 .003141593 -DIGITS 11 , 10 .0031415927 -DIGITS 11 , 11 .00314159265 -DIGITS 12 , 0 3.14159265359E-3 -DIGITS 12 , 1 0 -DIGITS 12 , 2 0 -DIGITS 12 , 3 .003 -DIGITS 12 , 4 .0031 -DIGITS 12 , 5 .00314 -DIGITS 12 , 6 .003142 -DIGITS 12 , 7 .0031416 -DIGITS 12 , 8 .00314159 -DIGITS 12 , 9 .003141593 -DIGITS 12 , 10 .0031415927 -DIGITS 12 , 11 .00314159265 -DIGITS 12 , 12 .003141592654 -DIGITS 13 , 0 3.14159265359E-3 -DIGITS 13 , 1 0 -DIGITS 13 , 2 0 -DIGITS 13 , 3 .003 -DIGITS 13 , 4 .0031 -DIGITS 13 , 5 .00314 -DIGITS 13 , 6 .003142 -DIGITS 13 , 7 .0031416 -DIGITS 13 , 8 .00314159 -DIGITS 13 , 9 .003141593 -DIGITS 13 , 10 .0031415927 -DIGITS 13 , 11 .00314159265 -DIGITS 13 , 12 .003141592654 -DIGITS 13 , 13 .0031415926536 -DIGITS 14 , 0 3.1415926535898E-3 -DIGITS 14 , 1 0 -DIGITS 14 , 2 0 -DIGITS 14 , 3 .003 -DIGITS 14 , 4 .0031 -DIGITS 14 , 5 .00314 -DIGITS 14 , 6 .003142 -DIGITS 14 , 7 .0031416 -DIGITS 14 , 8 .00314159 -DIGITS 14 , 9 .003141593 -DIGITS 14 , 10 .0031415927 -DIGITS 14 , 11 .00314159265 -DIGITS 14 , 12 .003141592654 -DIGITS 14 , 13 .0031415926536 -DIGITS 14 , 14 .00314159265359 -DIGITS 15 , 0 3.14159265358979E-3 -DIGITS 15 , 1 0 -DIGITS 15 , 2 0 -DIGITS 15 , 3 .003 -DIGITS 15 , 4 .0031 -DIGITS 15 , 5 .00314 -DIGITS 15 , 6 .003142 -DIGITS 15 , 7 .0031416 -DIGITS 15 , 8 .00314159 -DIGITS 15 , 9 .003141593 -DIGITS 15 , 10 .0031415927 -DIGITS 15 , 11 .00314159265 -DIGITS 15 , 12 .003141592654 -DIGITS 15 , 13 .0031415926536 -DIGITS 15 , 14 .00314159265359 -DIGITS 15 , 15 .00314159265359 diff --git a/bwbtest/R86/HEX.BAS b/bwbtest/R86/HEX.BAS deleted file mode 100644 index 307b9ee..0000000 --- a/bwbtest/R86/HEX.BAS +++ /dev/null @@ -1,23 +0,0 @@ - 100 REM PURPOSE: VERIFY 'HEX' FUNCTION - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-02-14 - 130 REM NOTE: OPTION VERSION RBASIC - 140 REM - 150 REM - 160 REM - 170 REM - 180 REM - 190 REM - 200 PRINT HEX("0") - 210 PRINT HEX("1") - 220 PRINT HEX("10") - 230 PRINT HEX("100") - 240 PRINT HEX("1000") - 250 PRINT HEX("FFFF") - 260 PRINT HEX("0000") - 270 PRINT HEX("0001") - 280 PRINT HEX("0010") - 290 PRINT HEX("0100") - 300 REM - 999 END - diff --git a/bwbtest/R86/HEX.run b/bwbtest/R86/HEX.run deleted file mode 100644 index 8301491..0000000 --- a/bwbtest/R86/HEX.run +++ /dev/null @@ -1,10 +0,0 @@ - 0 - 1 - 16 - 256 - 4096 - 65535 - 0 - 1 - 16 - 256 diff --git a/bwbtest/R86/INPUT.BAS b/bwbtest/R86/INPUT.BAS deleted file mode 100644 index 485cfdb..0000000 --- a/bwbtest/R86/INPUT.BAS +++ /dev/null @@ -1,16 +0,0 @@ -100 REM PURPOSE: VERIFY THE 'INPUT' STATEMENT -110 REM AUTHOR: HOWARD WULF, AF5NE -120 REM DATE: 2017-02-13 -130 REM NOTE: OPTION VERSION RBASIC -140 REM -150 REM -160 REM -170 REM -180 REM -190 REM -200 ! A$ -210 PRINT "INPUT=["; A$; "]' -220 ! "PROMPT"; A$ -230 PRINT "INPUT=["; A$; "]' -999 END - diff --git a/bwbtest/R86/INPUT.INP b/bwbtest/R86/INPUT.INP deleted file mode 100644 index 5d308cd..0000000 --- a/bwbtest/R86/INPUT.INP +++ /dev/null @@ -1,2 +0,0 @@ -ABC -DEF diff --git a/bwbtest/R86/INPUT.run b/bwbtest/R86/INPUT.run deleted file mode 100644 index 4e9e2da..0000000 --- a/bwbtest/R86/INPUT.run +++ /dev/null @@ -1,4 +0,0 @@ -? ABC -INPUT=[ABC]' -PROMPT? DEF -INPUT=[DEF]' diff --git a/bwbtest/R86/PAD80.BAS b/bwbtest/R86/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/R86/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/R86/PAD80.INP b/bwbtest/R86/PAD80.INP deleted file mode 100644 index c1dd247..0000000 --- a/bwbtest/R86/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA RESIDUE.OUT, RESIDUE.80 diff --git a/bwbtest/R86/PAD80.PRO b/bwbtest/R86/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/R86/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/R86/PDEL.BAS b/bwbtest/R86/PDEL.BAS deleted file mode 100644 index 75e0488..0000000 --- a/bwbtest/R86/PDEL.BAS +++ /dev/null @@ -1,8 +0,0 @@ -10 REM 'PDEL' TEST PROGRAM -20 PRINT "LINE 20" -30 PRINT "LINE 30" -40 PRINT "LINE 40" -50 PRINT "LINE 50" -60 PRINT "LINE 60" -70 PRINT "LINE 70 - END OF PDEL TEST" -99 END diff --git a/bwbtest/R86/PDEL.INP b/bwbtest/R86/PDEL.INP deleted file mode 100644 index a07ec33..0000000 --- a/bwbtest/R86/PDEL.INP +++ /dev/null @@ -1,15 +0,0 @@ -LIST -PDEL 50 -LIST -RUN -PDEL 30-40 -LIST -RUN -PDEL 20,40-60 -LIST -RUN -PDEL 30- -LIST -RUN -PDEL -999 -LIST diff --git a/bwbtest/R86/PDEL.run b/bwbtest/R86/PDEL.run deleted file mode 100644 index 18a9541..0000000 --- a/bwbtest/R86/PDEL.run +++ /dev/null @@ -1,60 +0,0 @@ -LINE 20 -LINE 30 -LINE 40 -LINE 50 -LINE 60 -LINE 70 - END OF PDEL TEST -bwBASIC: LIST - 10 REM 'PDEL' TEST PROGRAM - 20 PRINT "LINE 20" - 30 PRINT "LINE 30" - 40 PRINT "LINE 40" - 50 PRINT "LINE 50" - 60 PRINT "LINE 60" - 70 PRINT "LINE 70 - END OF PDEL TEST" - 99 END - -bwBASIC: PDEL 50 -bwBASIC: LIST - 10 REM 'PDEL' TEST PROGRAM - 20 PRINT "LINE 20" - 30 PRINT "LINE 30" - 40 PRINT "LINE 40" - 60 PRINT "LINE 60" - 70 PRINT "LINE 70 - END OF PDEL TEST" - 99 END - -bwBASIC: RUN -LINE 20 -LINE 30 -LINE 40 -LINE 60 -LINE 70 - END OF PDEL TEST -bwBASIC: PDEL 30-40 -bwBASIC: LIST - 10 REM 'PDEL' TEST PROGRAM - 20 PRINT "LINE 20" - 60 PRINT "LINE 60" - 70 PRINT "LINE 70 - END OF PDEL TEST" - 99 END - -bwBASIC: RUN -LINE 20 -LINE 60 -LINE 70 - END OF PDEL TEST -bwBASIC: PDEL 20,40-60 -bwBASIC: LIST - 10 REM 'PDEL' TEST PROGRAM - 70 PRINT "LINE 70 - END OF PDEL TEST" - 99 END - -bwBASIC: RUN -LINE 70 - END OF PDEL TEST -bwBASIC: PDEL 30- -bwBASIC: LIST - 10 REM 'PDEL' TEST PROGRAM - -bwBASIC: RUN -bwBASIC: PDEL -999 -bwBASIC: LIST - diff --git a/bwbtest/R86/PRINT.BAS b/bwbtest/R86/PRINT.BAS deleted file mode 100644 index b8998e7..0000000 --- a/bwbtest/R86/PRINT.BAS +++ /dev/null @@ -1,22 +0,0 @@ -100 REM PURPOSE: VERIFY 'PRINT' COMMAND -110 REM AUTHOR: HOWARD WULF, AF5NE -120 REM DATE: 2017-02-13 -130 REM NOTE: OPTION VERSION RBASIC -140 REM -150 REM -160 REM -170 REM -180 REM -190 REM -200 LET X = 12.3456789 -210 LET A$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" -220 REM -230 ? "THIS IS LINE 1" -240 ? USING "###.##", 12.3456789 -250 ? X -260 ? USING "###.##", X -270 ? A$ -280 ? USING "\ \", A$ -290 REM -999 END - diff --git a/bwbtest/R86/PRINT.run b/bwbtest/R86/PRINT.run deleted file mode 100644 index 7e8ac96..0000000 --- a/bwbtest/R86/PRINT.run +++ /dev/null @@ -1,6 +0,0 @@ -THIS IS LINE 1 - 12.35 - 12.3457 - 12.35 -ABCDEFGHIJKLMNOPQRSTUVWXYZ -ABCD diff --git a/bwbtest/R86/R86.PRO b/bwbtest/R86/R86.PRO deleted file mode 100644 index 88292ba..0000000 --- a/bwbtest/R86/R86.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "RBASIC" -LET PI = 3.14159265358979323846 diff --git a/bwbtest/R86/RESIDUE.BAS b/bwbtest/R86/RESIDUE.BAS deleted file mode 100644 index 5fc97fb..0000000 --- a/bwbtest/R86/RESIDUE.BAS +++ /dev/null @@ -1,17 +0,0 @@ - 100 REM PURPOSE: VERIFY 'RESIDUE' FUNCTION - 110 REM AUTHOR: HOWARD WULF, AF5NE - 120 REM DATE: 2017-04-10 - 130 REM NOTE: OPTION VERSION "RBASIC" - 140 REM - 150 PRINT "A%", "B%", "A% / B%", "RESIDUE" - 160 LET A% = 17 - 170 LET B% = 5 - 180 LET C% = A% / B% - 190 PRINT A%, B%, C%, RESIDUE - 200 LET A% = -17 - 210 LET B% = 5 - 220 LET C% = A% / B% - 230 PRINT A%, B%, C%, RESIDUE - 240 REM - 999 END - diff --git a/bwbtest/R86/RESIDUE.run b/bwbtest/R86/RESIDUE.run deleted file mode 100644 index 0bba27d..0000000 --- a/bwbtest/R86/RESIDUE.run +++ /dev/null @@ -1,3 +0,0 @@ -A% B% A% / B% RESIDUE - 17 5 3 2 --17 5 -3 -2 diff --git a/bwbtest/R86/SCALE.BAS b/bwbtest/R86/SCALE.BAS deleted file mode 100644 index 4e45b73..0000000 --- a/bwbtest/R86/SCALE.BAS +++ /dev/null @@ -1,38 +0,0 @@ - 100 REM PURPOSE: VERIFY 'SCALE' FUNCTION - 110 REM AUTHOR: HOWAARD WULF, AF5NE - 120 REM DATE: 2017-02-12 - 130 REM NOTE: OPTION VERSION RBASIC - 140 REM - 150 REM - 160 LET N = 15 - 170 ON ERROR GOTO 800 - 180 REM - 190 REM - 200 LET X = PI - 210 LET A$ = "PI" - 220 GOSUB 600 - 230 REM - 240 LET X = PI * 1000 - 250 LET A$ = "PI * 1000" - 260 GOSUB 600 - 270 REM - 280 LET X = PI / 1000 - 290 LET A$ = "PI / 1000" - 300 GOSUB 600 - 310 REM - 320 GOTO 999 - 330 REM - 600 PRINT "COMMAND";TAB(20); A$ - 610 FOR I = 0 TO N - 620 SCALE I - 630 PRINT "SCALE "; I; TAB(20); X - 640 NEXT I - 650 REM - 730 REM INPUT "PRESS ENTER"; A$ - 740 RETURN - 800 REM - 810 PRINT "ERL=";ERL, "ERR=";ERR, "ERROR$=";ERROR$ - 820 RESUME NEXT - 830 REM - 999 END - diff --git a/bwbtest/R86/SCALE.run b/bwbtest/R86/SCALE.run deleted file mode 100644 index 96c5b8b..0000000 --- a/bwbtest/R86/SCALE.run +++ /dev/null @@ -1,51 +0,0 @@ -COMMAND PI -SCALE 0 3.14159 -SCALE 1 3.1 -SCALE 2 3.14 -SCALE 3 3.142 -SCALE 4 3.1416 -SCALE 5 3.14159 -SCALE 6 3.14159 -SCALE 7 3.14159 -SCALE 8 3.14159 -SCALE 9 3.14159 -SCALE 10 3.14159 -SCALE 11 3.14159 -SCALE 12 3.14159 -SCALE 13 3.14159 -SCALE 14 3.14159 -SCALE 15 3.14159 -COMMAND PI * 1000 -SCALE 0 3141.59 -SCALE 1 3141.6 -SCALE 2 3141.59 -SCALE 3 3141.59 -SCALE 4 3141.59 -SCALE 5 3141.59 -SCALE 6 3141.59 -SCALE 7 3141.59 -SCALE 8 3141.59 -SCALE 9 3141.59 -SCALE 10 3141.59 -SCALE 11 3141.59 -SCALE 12 3141.59 -SCALE 13 3141.59 -SCALE 14 3141.59 -SCALE 15 3141.59 -COMMAND PI / 1000 -SCALE 0 3.14159E-3 -SCALE 1 0 -SCALE 2 0 -SCALE 3 .003 -SCALE 4 .0031 -SCALE 5 .00314 -SCALE 6 .003142 -SCALE 7 3.14159E-3 -SCALE 8 3.14159E-3 -SCALE 9 3.14159E-3 -SCALE 10 3.14159E-3 -SCALE 11 3.14159E-3 -SCALE 12 3.14159E-3 -SCALE 13 3.14159E-3 -SCALE 14 3.14159E-3 -SCALE 15 3.14159E-3 diff --git a/bwbtest/SYNTAX/F_FP_X_N.BAS b/bwbtest/SYNTAX/F_FP_X_N.BAS deleted file mode 100644 index f91383c..0000000 --- a/bwbtest/SYNTAX/F_FP_X_N.BAS +++ /dev/null @@ -1,183 +0,0 @@ -REM ------------------------------------------------------------ -REM PURPOSE: TEST THE PARAMETER RANGE CHECKS -REM AUTHOR: HOWARD WULF, AF5NE -REM GENERATED: 03/12/2017 09:09:04 -REM FILENAME: F_FP_X_N.BAS -REM SYNTAX: N = FP( X ) -REM UNIQUEID: F_FP_X_N -REM FUNCTION: FP -REM -REM VARIABLE DESCRIPTION -REM I CURRENT TESTCASE NUMBER -REM E EXPECTED ERROR FLAG -REM F ACTUAL ERROR FLAG -REM R EXPECTED FUNCTION RESULT -REM N ACTUAL FUNCTION RESULT -REM X ACTUAL FUNCTION PARAMETER -REM -RESTORE 2000 -REM GET TESTCASE # -READ I -WHILE I > 0 -REM GET TESTCASE DATA -READ E, R, X -REM DISPLAY TESTCASE DATA -PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X -REM EXECUTE TESTCASE -N = 0 -S$ = "" -ON ERROR GOTO 9000 -F = 0 -999 N = FP( X ) -ERROR 0 -REM DISPLAY TESTCASE RESULTS -PRINT ,"F=";F,"N=";N -REM VERIFY EXPECTED ERROR -IF E <> F THEN - PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***" - STOP -END IF -REM VERIFY EXPECTED RESULT -IF R > 0 THEN - LET RMIN = 0.99 * R - IF R > MAXNUM / 1.012 THEN - LET RMAX = MAXNUM - ELSE - LET RMAX = 1.01 * R - END IF -END IF -IF R < 0 THEN - IF R < - MAXNUM / 1.012 THEN - LET RMIN = -MAXNUM - ELSE - LET RMIN = 1.01 * R - END IF - LET RMAX = 0.99 * R -END IF -IF R = 0 THEN - LET RMIN = -.01 - LET RMAX = +.01 -END IF -IF N < RMIN THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -IF N > RMAX THEN - PRINT "*** TEST FAILED, RESULT MISMATCH ***" - STOP -END IF -PRINT "*** TEST PASSED ***" -REM GET NEXT TESTCASE # -READ I -WEND -PRINT "*** ALL TESTS PASSED ***" -GOTO 9999 -1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS... -DATA 1 , 0 , 0 , 0 -DATA 2 , 0 , 0 , 1 -DATA 3 , 0 , 0 , -1 -DATA 4 , 0 , .4 , .4 -DATA 5 , 0 , -.4 , -.4 -DATA 6 , 0 , .6 , .6 -DATA 7 , 0 , -.6 , -.6 -DATA 8 , 0 , 0 , 254 -DATA 9 , 0 , 0 , 255 -DATA 10 , 0 , 0 , 256 -DATA 11 , 0 , 0 , 32000 -DATA 12 , 0 , -.227229 , -.227229 -DATA 13 , 0 , -.239157 , -.239157 -DATA 14 , 0 , -.213586 , -.213586 -DATA 15 , 0 , .274675 , .274675 -DATA 16 , 0 , .169766 , .169766 -DATA 17 , 0 , .318766 , .318766 -DATA 18 , 0 , 2.06658E-2 , 2.06658E-2 -DATA 19 , 0 , .188257 , .188257 -DATA 20 , 0 , -.277537 , -.277537 -DATA 21 , 0 , -.481303 , -.481303 -DATA 22 , 0 , .43556 , .43556 -DATA 23 , 0 , -.210971 , -.210971 -DATA 24 , 0 , -.455216 , -.455216 -DATA 25 , 0 , -.907 , -110.907 -DATA 26 , 0 , .632 , 105.632 -DATA 27 , 0 , -.341 , -114.341 -DATA 28 , 0 , .706 , 109.706 -DATA 29 , 0 , .198 , 109.198 -DATA 30 , 0 , .8773 , 85.8773 -DATA 31 , 0 , -.3548 , -58.3548 -DATA 32 , 0 , .6397 , 29.6397 -DATA 33 , 0 , -.36 , -108.36 -DATA 34 , 0 , -.5199 , -46.5199 -DATA 35 , 0 , .521 , 112.521 -DATA 36 , 0 , .4151 , 45.4151 -DATA 37 , 0 , .129 , 101.129 -DATA 38 , 0 , .0473 , 65.0473 -DATA 39 , 0 , .4012 , 48.4012 -DATA 40 , 0 , .294 , 122.294 -DATA 41 , 0 , -.1094 , -56.1094 -DATA 42 , 0 , -.087 , -121.087 -DATA 43 , 0 , -.517 , -123.517 -DATA 44 , 0 , -.6301 , -97.6301 -DATA 45 , 0 , -.0001 , -64.0001 -DATA 46 , 0 , -.6888 , -25.6888 -DATA 47 , 0 , .8006 , 14.8006 -DATA 48 , 0 , -.0877 , -61.0877 -DATA 49 , 0 , -.6381 , -66.6381 -DATA 50 , 0 , -.5 , -5476.5 -DATA 51 , 0 , -.3 , -21210.3 -DATA 52 , 0 , -.2 , -28757.2 -DATA 53 , 0 , -.2 , -28732.2 -DATA 54 , 0 , .3 , 12730.3 -DATA 55 , 0 , -.69 , -1830.69 -DATA 56 , 0 , .39 , 5486.39 -DATA 57 , 0 , .9 , 22405.9 -DATA 58 , 0 , .8 , 30809.8 -DATA 59 , 0 , -.6 , -28930.6 -DATA 60 , 0 , -.53 , -6014.53 -DATA 61 , 0 , .6 , 17414.6 -DATA 62 , 0 , -.3 , -10538.3 -DATA 63 , 0 , -.3 , -17536.3 -DATA 64 , 0 , -.62 , -8856.62 -DATA 65 , 0 , -.12 , -5140.12 -DATA 66 , 0 , -.31 , -8595.31 -DATA 67 , 0 , -.87 , -3382.87 -DATA 68 , 0 , -.07 , -5002.07 -DATA 69 , 0 , -.72 , -5800.72 -DATA 70 , 0 , .4 , 29686.4 -DATA 71 , 0 , 0 , 2571. -DATA 72 , 0 , 0 , 31091. -DATA 73 , 0 , 0 , 14819. -DATA 74 , 0 , .9 , 3790.9 -DATA 75 , 0 , 0 , -4.2981E+9 -DATA 76 , 0 , 0 , -7.05453E+8 -DATA 77 , 0 , 0 , -3.10179E+9 -DATA 78 , 0 , 0 , -4.86159E+9 -DATA 79 , 0 , 0 , -8.62908E+8 -DATA 80 , 0 , 0 , -3.4101E+9 -DATA 81 , 0 , 0 , 3.3889E+9 -DATA 82 , 0 , 0 , 2.49826E+9 -DATA 83 , 0 , 0 , 2.3491E+9 -DATA 84 , 0 , 0 , 1.94745E+8 -DATA 85 , 0 , 0 , 2.02475E+9 -DATA 86 , 0 , 0 , -2.26748E+9 -DATA 87 , 0 , 0 , -2.10587E+9 -DATA 88 , 0 , 0 , 4.23585E+9 -DATA 89 , 0 , 0 , -2.66524E+9 -DATA 90 , 0 , 0 , 4.01052E+9 -DATA 91 , 0 , 0 , -4.87912E+9 -DATA 92 , 0 , 0 , 1.77556E+9 -DATA 93 , 0 , 0 , 2.87705E+8 -DATA 94 , 0 , 0 , 1.99977E+8 -DATA 95 , 0 , 0 , -3.39941E+9 -DATA 96 , 0 , 0 , -3.49119E+9 -DATA 97 , 0 , 0 , -2.86324E+9 -DATA 98 , 0 , 0 , 4.20418E+9 -DATA 99 , 0 , 0 , -3.1518E+9 -DATA 100 , 0 , 0 , 4.60615E+9 -DATA 0 -9000 REM ERROR HANDLER -IF ERL = 999 THEN - F = ABS(SGN(ERR)) - RESUME NEXT -END IF -PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***" -9999 END diff --git a/bwbtest/SYNTAX/SYNTAX.BAS b/bwbtest/SYNTAX/SYNTAX.BAS deleted file mode 100644 index 37da88c..0000000 --- a/bwbtest/SYNTAX/SYNTAX.BAS +++ /dev/null @@ -1,498 +0,0 @@ -OPTION VERSION BYWATER -OPTION BUGS OFF -REM PARSE SYNTAX DIAGRAMS AND GENERATE PARAMETER RANGE CHECK TESTS -REM EXAMPLE " SYNTAX: N = ASC( A$ )" -REM -REM THIS PROGRAM ASSUMES A PROPERLY FORMATTED SYNTAX DIAGRAM; -REM ONLY MINIMAL ERROR CHECKING IS PERFORMED. -REM -REM ------------------------------------------------------------ -REM VARIABLE USAGE -REM F$ input file name, such as 'SYNTAX.INP' -REM I$ inpuut line, such as 'SYNTAX: N = ASC( A$ )' -REM L location of '(' -REM R location of ')' -REM C location of ':' or '=' or or ',' -REM P$ current function/parameter -REM N$() function/parameter name, P$(0) = 'ASC', P$(1) = 'A$' -REM T() function/parameter type, T(0) = NUMBER, T(1) = STRING -REM 0 == NUMBER, 1 == STRING -REM N number of paameters, such as 1 -REM I generic loop variable -REM C$ current character -REM Z$ cleaned syntax diagram -REM F$ cleaned function name, 'ASC' -REM X$ user selevted function name, 'COS' -REM U$ UniqueID, 'F_COS_X' -REM VN TESTCASE ACTUAL RESULT, NUMBER -REM VS$ TESTCASE ACTUAL RESULT, STRING -REM Q$ CHR$(34) -REM RN() RANDOM NUMBERS -REM RS$() RANDOM STRINGS -REM #1 INPUT FILE, 'SYNTAX.TXT' -REM #2 MERGE FILE, 'SYNTAX.MRG' -REM #3 OUTPUT FILE, 'F_COS_X.BAS' -REM ------------------------------------------------------------ -REM DECLARE ARRAYS -REM ------------------------------------------------------------ -REM RANDOMIZE ' this must be off for automated regression -DIM N$(9) -DIM T(9) -DIM RN(100) -DIM RS$(100) -N = 0 -GOSUB 4500 -REM ------------------------------------------------------------ -REM GET THE INPUT FILE NAME -REM ------------------------------------------------------------ -F$ = "SYNTAX.INP" -X$ = "ASC" -REM PRINT "F$=[";F$;"]" -REM ------------------------------------------------------------ -REM PROCESS THE INPUT FILE -REM ------------------------------------------------------------ -OPEN F$ FOR INPUT AS #1 -WHILE NOT EOF( 1 ) - LINE INPUT #1, I$ - REM PRINT "I$=[";I$;"]" - REM Process Line in I$ - GOSUB 1000 ' ProcessLine - REM IF I$ = X$ THEN - GOSUB 4000 ' DetermineUniqueID - GOSUB 5000 ' DumpResults - REM END IF -WEND -CLOSE #1 -PRINT "OK" -GOTO 9999 ' TheEnd - - -1000 REM ProcessLine -REM ------------------------------------------------------------ -REM PROCESS THE SYNTAX DIAGRAM IN I$ -REM ------------------------------------------------------------ -N = 0 -REM PRINT "I$=[";I$;"]" -I$ = TRIM$( I$ ) -IF LEN( I$ ) = 0 THEN RETURN -REM PRINT "I$=[";I$;"]" -REM CHECK MISSING COLON -C = INSTR( I$, ":" ) -REM PRINT "C=[";C;"]" -IF C = 0 THEN RETURN -REM REMOVE "SYNTAX:" -I$ = MID$( I$, C + 1 ) -I$ = TRIM$( I$ ) -REM PRINT "I$=[";I$;"]" -IF LEN( I$ ) = 0 THEN RETURN -REM SAVE CLEANED SYNTAX DIAGRAM -Z$ = I$ -REM DETERMINE RETURN TYPE -C = INSTR( I$, "=" ) -REM PRINT "C=[";C;"]" -IF C = 0 THEN RETURN -P$ = LEFT$( I$, C - 1 ) -P$ = TRIM$( P$ ) -REM PRINT "P$=[";P$;"]" -IF LEN( P$ ) = 0 THEN RETURN -I$ = MID$( I$, C + 1 ) -I$ = TRIM$( I$ ) -REM PRINT "I$=[";I$;"]" -IF LEN( I$ ) = 0 THEN RETURN -GOSUB 3000 ' DetermineTypeInP$ -REM I$ = "ASC( A$ )" -REM PRINT "I$=[";I$;"]" -L = INSTR( I$, "(" ) -R = INSTR( I$, ")" ) -REM PRINT "L=[";L;"]" -REM PRINT "R=[";R;"]" -IF R < L THEN RETURN ' ERROR ...)...( -IF R = 0 AND L = 0 THEN - REM "A$ = TIME$" - REM N$(0) = I$ - REM PRINT "NO PARAMETERS" - REM SAVE CLEANED FUNCTION NAME - F$ = I$ - RETURN ' DONE -END IF -REM "...(...)" -REM R > L AND L > 0 -REM SAVE CLEANED FUNCTION NAME -F$ = LEFT$( I$, L-1 ) -F$ = TRIM$( F$ ) -REM PRINT "F$=[";F$;"]" -I$ = MID$( I$, L+1, R-L-1 ) -REM PRINT "I$=[";I$;"]" -I$ = TRIM$( I$ ) -REM PRINT "I$=[";I$;"]" -IF LEN( I$ ) = 0 THEN RETURN ' N = POS() -P$ = "" -FOR I = 1 TO LEN( I$ ) - C$ = MID$( I$, I, 1 ) -REM PRINT "C$=[";C$;"]" - IF C$ = "," THEN - GOSUB 3000 ' DetermineTypeInP$ - P$ = "" - ELSE - P$ = P$ + C$ - END IF -NEXT I -GOSUB 3000 ' DetermineTypeInP$ -RETURN - - -3000 REM DetermineTypeInP$ -REM ------------------------------------------------------------ -REM DETERMINE THE TYPE IN P$ -REM ------------------------------------------------------------ -P$ = TRIM$( P$ ) -REM PRINT "P$=[";P$;"]" -IF LEN( P$ ) = 0 THEN RETURN -N$(N) = P$ -T(N) = SGN( INSTR( P$, "$" ) ) -N = N + 1 -RETURN - -4000 REM DetermineUniqueID -REM ------------------------------------------------------------ -REM DETERMINE THE UNIQUEID USING NS() AND T() -REM ------------------------------------------------------------ -IF N <= 0 THEN RETURN -U$ = "F_" + F$ -FOR I = 1 TO N - 1 - U$ = U$ + "_" + N$(I) -NEXT I -U$ = U$ + "_" + N$(0) -REM PRINT "U$=[";U$;"]" -REM REMOVE "$" -J = LEN(U$) -I$ = "" -FOR I = 1 TO J - C$ = MID$(U$,I,1) - IF C$ = "$" THEN - REM REMOVE - ELSE - I$ = I$ + C$ - END IF -NEXT I -U$ = I$ -REM PRINT "U$=[";U$;"]" -RETURN - -4500 REM LoadRandomValues -REM ------------------------------------------------------------ -REM LOAD RANDOM VALUES -REM ------------------------------------------------------------ -FOR I = 1 TO 100 - IF I < 25 THEN - RN(I) = RND * 1.0 - 0.5 - ELSEIF I < 50 THEN - RN(I) = RND * 255 - 128 - ELSEIF I < 75 THEN - RN(I) = RND * 64535 - 32768 - ELSE - RN(I) = RND * 10000000000 - 5000000000 - END IF - K = 0 - WHILE K < 35 OR K > 126 - K = RND * 128 - WEND - RS$(I) = SPACE$( RND * 5 ) + STRING$( RND * 5, K ) + SPACE$( RND * 5 ) -NEXT I -REM CERTAIN VALUES THAT SHOULD ALWAYS BE CHECKED -RN(1) = 0 -RN(2) = 1 -RN(3) = -1 -RN(4) = 0.4 -RN(5) = -0.4 -RN(6) = 0.6 -RN(7) = -0.6 -RN(8) = 254 -RN(9) = 255 -RN(10) = 256 -RN(11) = 32000 -RS$(1) = "" -RS$(2) = " " -RS$(3) = "3" -RS$(4) = "z" -RS$(5) = " " -RS$(6) = " 3" -RS$(7) = " z" -RS$(8) = "3 " -RS$(9) = "z " -RS$(10) = " 3 " -RS$(11) = " z " -RETURN - -5000 REM DumpResults -REM ------------------------------------------------------------ -REM DUMP RESULTS -REM ------------------------------------------------------------ -REM -REM THE FOLLOWING FUNCTIONS SHOULD NOT BE AUTOMATED -REM FOR VARIOUS REASONS -REM -IF N <= 0 THEN - REM ERROR - RETURN -END IF -IF INSTR( F$, " " ) THEN - REM TESTCSE NOT POSSIBLE, INTERNAL FUNCTIONS - REM such as "DEF FN" - RETURN -END IF -IF N = 1 THEN - REM MANUAL TESTCASE REQUIRED, NO PARAMETERS - REM such as DATE$, TIME$, TIMER - RETURN -END IF -IF INSTR(".CLOSE.EOF.GET.INPUT$.LOC.LOF.OPEN.PUT.RESET.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, FILE RELATIED - RETURN -END IF -IF INSTR(".CHDIR.FILES.KILL.MKDIR.NAME.RMDIR.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, DIRECTORY RELATED - RETURN -END IF -IF INSTR(".COMMAND$.ENVIRON.ENVIRON$.SHELL.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, SYSTEM RELATED - RETURN -END IF -IF INSTR(".INP.OUT.PEEK.POKE.WAIT.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, HARDWARE RELAATED - RETURN -END IF -IF INSTR(".COLOR.INKEY$.LOCATE.LPOS.LWIDTH.POS.WIDTH.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, SCREEN or PRINTER - RETURN -END IF -IF INSTR(".MKC$.MKD$.MKI$.MKL$.MKS$.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, MK* - RETURN -END IF -IF INSTR(".MOD.OPTION.", "." + F$ + ".") > 0 THEN - REM MANUAL TESTCASE REQUIRED, MISCELLANEOUS - RETURN -END IF -IF INSTR(".RANDOMIZE.RND.SPC.TAB.", "." + F$ + ".") > 0 THEN - REM NO TESTCASE REQUIRED, TESTED BY P###.BAS - RETURN -END IF -REM -REM GENERATE TESTCASE -REM -LET X$ = U$ + ".BAS" -PRINT X$ -OPEN X$ FOR OUTPUT AS #3 -PRINT #3, "REM ------------------------------------------------------------" -PRINT #3, "REM PURPOSE: TEST THE PARAMETER RANGE CHECKS" -PRINT #3, "REM AUTHOR: HOWARD WULF, AF5NE" -PRINT #3, "REM GENERATED: ";DATE$;" ";TIME$ -PRINT #3, "REM FILENAME: ";X$ -PRINT #3, "REM SYNTAX: ";Z$ -PRINT #3, "REM UNIQUEID: ";U$ -PRINT #3, "REM FUNCTION: ";F$ -REM ------------------------------------------------------------ -REM HAS PARAMETERS -REM N > 1 -PRINT #3, "REM " -PRINT #3, "REM","VARIABLE","DESCRIPTION" -PRINT #3, "REM","I" ,"CURRENT TESTCASE NUMBER" -PRINT #3, "REM","E" ,"EXPECTED ERROR FLAG" -PRINT #3, "REM","F" ,"ACTUAL ERROR FLAG" -IF T(0) = 0 THEN -PRINT #3, "REM","R" ,"EXPECTED FUNCTION RESULT" -ELSE -PRINT #3, "REM","R$" ,"EXPECTED FUNCTION RESULT" -END IF -FOR I = 0 TO N - 1 - IF I = 0 THEN -PRINT #3, "REM",N$(I),"ACTUAL FUNCTION RESULT" - ELSE -PRINT #3, "REM",N$(I),"ACTUAL FUNCTION PARAMETER" - END IF -NEXT I -PRINT #3, "REM " - -REM GENERATE TESTS - -Q$ = CHR$(34) - -PRINT #3, "RESTORE 2000" -PRINT #3, "REM GET TESTCASE #" -PRINT #3, "READ I" -PRINT #3, "WHILE I > 0" -PRINT #3, "REM GET TESTCASE DATA" -PRINT #3, "READ E, "; -IF T(0) = 0 THEN - PRINT #3, "R"; -ELSE - PRINT #3, "R$"; -END IF -FOR J = 1 TO N - 1 - PRINT #3, ", "; - PRINT #3, N$(J); -NEXT J -PRINT #3, "" -PRINT #3, "REM DISPLAY TESTCASE DATA" -PRINT #3, "PRINT ";Q$;"TESTCASE #";Q$;";I,"; -PRINT #3, Q$;"E=";Q$;";E,"; -IF T(0) = 0 THEN - PRINT #3, Q$;"R=";Q$;";R"; -ELSE - PRINT #3, Q$;"R$=[";Q$;";R$;";Q$;"]";Q$; -END IF -FOR J = 1 TO N - 1 - PRINT #3, ", "; - IF T(J) = 0 THEN - PRINT #3, Q$;N$(J);"=";Q$;";";N$(J); - ELSE - PRINT #3, Q$;N$(J);"=[";Q$;";";N$(J);";";Q$;"]";Q$; - END IF -NEXT J -PRINT #3, "" -PRINT #3, "REM EXECUTE TESTCASE" -PRINT #3, "N = ";0 -PRINT #3, "S$ = ";Q$;Q$ -PRINT #3, "ON ERROR GOTO 9000" -PRINT #3, "F = 0" -PRINT #3, "999 ";Z$ -PRINT #3, "ERROR 0" -PRINT #3, "REM DISPLAY TESTCASE RESULTS" -PRINT #3, "PRINT ,";Q$;"F=";Q$;";F,"; -IF T(0) = 0 THEN - PRINT #3, Q$;N$(0);"=";Q$;";";N$(0) -ELSE - PRINT #3, Q$;N$(0);"=[";Q$;";";N$(0);";";Q$;"]";Q$ -END IF -PRINT #3, "REM VERIFY EXPECTED ERROR" -PRINT #3, "IF E <> F THEN" -PRINT #3, " PRINT ";Q$;"*** TEST FAILED, EXCEPTION MISMATCH ***";Q$ -PRINT #3, " STOP" -PRINT #3, "END IF" -PRINT #3, "REM VERIFY EXPECTED RESULT" -IF T(0) = 0 THEN -PRINT #3, "IF R > 0 THEN" -PRINT #3, " LET RMIN = 0.99 * R" -PRINT #3, " IF R > MAXNUM / 1.012 THEN" -PRINT #3, " LET RMAX = MAXNUM" -PRINT #3, " ELSE" -PRINT #3, " LET RMAX = 1.01 * R" -PRINT #3, " END IF" -PRINT #3, "END IF" -PRINT #3, "IF R < 0 THEN" -PRINT #3, " IF R < - MAXNUM / 1.012 THEN" -PRINT #3, " LET RMIN = -MAXNUM" -PRINT #3, " ELSE" -PRINT #3, " LET RMIN = 1.01 * R" -PRINT #3, " END IF" -PRINT #3, " LET RMAX = 0.99 * R" -PRINT #3, "END IF" -PRINT #3, "IF R = 0 THEN" -PRINT #3, " LET RMIN = -.01" -PRINT #3, " LET RMAX = +.01" -PRINT #3, "END IF" -PRINT #3, "IF ";N$(0);" < RMIN THEN" -PRINT #3, " PRINT ";Q$;"*** TEST FAILED, RESULT MISMATCH ***";Q$ -PRINT #3, " STOP" -PRINT #3, "END IF" -PRINT #3, "IF ";N$(0);" > RMAX THEN" -PRINT #3, " PRINT ";Q$;"*** TEST FAILED, RESULT MISMATCH ***";Q$ -PRINT #3, " STOP" -PRINT #3, "END IF" -ELSE -PRINT #3, "IF R$ <> ";N$(0);" THEN" -PRINT #3, " PRINT ";Q$;"*** TEST FAILED, RESULT MISMATCH ***";Q$ -PRINT #3, " STOP" -PRINT #3, "END IF" -END IF -PRINT #3, "PRINT ";Q$;"*** TEST PASSED ***";Q$ -PRINT #3, "REM GET NEXT TESTCASE #" -PRINT #3, "READ I" -PRINT #3, "WEND" -PRINT #3, "PRINT ";Q$;"*** ALL TESTS PASSED ***";Q$ -PRINT #3, "GOTO 9999" -PRINT #3, "1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS..." -FOR I = 1 TO 100 - REM ------------------------------------------------------------ - REM CREATE MERGE FILE - REM ------------------------------------------------------------ - OPEN "SYNTAX.MRG" FOR OUTPUT AS #2 - PRINT #2, "6000 REM MERGE START";I -REM PRINT #2, "6010 PRINT ";Q$;"BEFORE ERROR";Q$ -REM PRINT #2, "6020 ERROR 12" -REM PRINT #2, "6030 PRINT ";Q$;"AFTER ERROR";Q$ -REM PRINT #2, "6040 RETURN" -REM PRINT #2, "6050 PRINT ";Q$;"AFTER RETURN";Q$ - FOR J = 1 TO N - 1 - IF T(J) = 0 THEN - K = RN(I) - PRINT #2, "LET ";N$(J);" = ";K - V(J) = K - ELSE - K$ = RS$(I) - PRINT #2, "LET ";N$(J);" = ";Q$;K$;Q$ - V$(J) = K$ - END IF - NEXT J - PRINT #2, "6010 LET V";Z$ -REM PRINT #2, "6098 PRINT ";Q$;"BEFORE STOP";Q$ - PRINT #2, "6099 REM MERGE STOP";I - CLOSE #2 - REM EXECUTE MERGED FILE - DELETE 6000-6099 - MERGE "SYNTAX.MRG" -REM LIST 5999-6999 - LET E = 0 - LET VN = 0 - LET VS$ = "" -REM TRON - ON ERROR RESUME NEXT - GOSUB 6000 -REM TROFF - REM DTERMINE ERROR FLAG - LET E = ABS(SGN(ERR)) - REM CLEAR ERR, ERL, ERROR$ - ERROR 0 - ON ERROR GOTO 0 - REM REPORT RESULTS - REM TESTCASE NUMBER, EXPECTED ERROR - PRINT #3, "DATA ";I;", ";E;", "; - REM EXPECTED RESULT - IF T(0) = 0 THEN - PRINT #3, VN; - ELSE - PRINT #3, Q$;VS$;Q$; - END IF - REM ACTUAL PARAMETERS - FOR J = 1 TO N - 1 - PRINT #3, ", "; - IF T(J) = 0 THEN - PRINT #3, V(J); - ELSE - PRINT #3, Q$;V$(J);Q$; - END IF - NEXT J - PRINT #3, "" -NEXT I -PRINT #3, "DATA 0" -PRINT #3, "9000 REM ERROR HANDLER" -PRINT #3, "IF ERL = 999 THEN" -PRINT #3, " F = ABS(SGN(ERR))" -PRINT #3, " RESUME NEXT" -PRINT #3, "END IF" -PRINT #3, "PRINT ";Q$;"*** UNEXPECTED ERROR ON LINE ";Q$;";ERL;";Q$;" ***";Q$ -PRINT #3, "9999 END" -CLOSE #3 -RETURN - -5999 REM BOUNDARY A -6000 REM MERGE START 0 -6099 REM MERGE STOP 0 -6100 RETURN -6999 REM BOUNDARY B - -REM ------------------------------------------------------------ -REM EOF -REM ------------------------------------------------------------ -9999 END diff --git a/bwbtest/SYNTAX/SYNTAX.INP b/bwbtest/SYNTAX/SYNTAX.INP deleted file mode 100644 index 5b3e493..0000000 --- a/bwbtest/SYNTAX/SYNTAX.INP +++ /dev/null @@ -1 +0,0 @@ - SYNTAX: N = FP( X ) diff --git a/bwbtest/SYNTAX/SYNTAX.MRG b/bwbtest/SYNTAX/SYNTAX.MRG deleted file mode 100644 index c4934d3..0000000 --- a/bwbtest/SYNTAX/SYNTAX.MRG +++ /dev/null @@ -1,4 +0,0 @@ -6000 REM MERGE START 100 -LET X = 4.60615E+9 -6010 LET VN = FP( X ) -6099 REM MERGE STOP 100 diff --git a/bwbtest/T80A/00readme.txt b/bwbtest/T80A/00readme.txt deleted file mode 100644 index da3ef01..0000000 --- a/bwbtest/T80A/00readme.txt +++ /dev/null @@ -1,20 +0,0 @@ -These programs appear to work, and are part of regression testing. - -Changes made: -a) add missing semicolon/comma in PRINT statements -b) change array names so they were not identical to scalar variable names -c) add spaces around reserved words -d) CASSETTE is not supported, use DISKETTE instead -e) add missing THEN after IF -f) change PRINT #1,X,Y to WRITE #1,X,Y -g) add exit for autmated testing - -These programs were downloaded from -http://www.willus.com/trs80/?q=Business+Pac+100 - -Program: Business Pac 100 (124984) - Author: Dr. Peter Shenkin - Files: -ACCTPAY, ACCTREC, ANNU1, ANNUDEF, ARBCOMP, ASSIGN, AUTOEXP, BAYES, BETAALPH, BLACKSH, BONDVAL, BONDVAL2, BREAKEVN, BUSBUD, CAP1, CHECK2, CHECKBK1, COMPBAL, CONDPROF, CVP, DATE, DATEVAL, DAYYEAR, DEPLETE, DEPRDB, DEPRDDB, DEPRSF, DEPRSL, DEPRSY, DILANAL, DISCBAL, EFFECT, ENVELOPE, EOQ, EPSEST, EXPVAL, FINRAT, FQEOQ, FQEOQPB, FQEOWSH, FUPRINF, FVAL, INSFILE, INVENT2, INVOICE, LABEL1, LABEL2, LEASEINT, LETWRT, LOANAFFD, LOANPAY, MAILPAC, MARKUP, MERGANAL, MORTGAGE.A, MULTMON, NCFANAL, NPV, OPTLOSS, OPTWRITE, PAYNET, PAYROLL2, PORTVAL9, PRINDLAS, PRINDPA, PROFIND, PVAL, QUEUE1, QUEUECB, REGWITH, RENTPRCH, RRCONST, RRCONVBD, RRVARIN, RTVAL, RULE78, SALELEAS, SALVAGE, SEASIND, SELLPR, SHARPE1, SIMPDISK, SIMPLEX, SINKFUND, SORT3, STOCVAL1, TAXDEP, TELDIR, TERMSPAY, TIMECLCK, TIMEMOV, TIMETR, TIMUSAN, TRANS, UPSZONE, UTILITY, VALADINF, VALPRINF, WACC, WARVAL - -EOF diff --git a/bwbtest/T80A/00test.sh b/bwbtest/T80A/00test.sh deleted file mode 100644 index 550db15..0000000 --- a/bwbtest/T80A/00test.sh +++ /dev/null @@ -1,139 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile T80.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- -testcase ACCTPAY -testcase ACCTREC -testcase ANNU1 -testcase ANNUDEF -testcase ARBCOMP -testcase ASSIGN -testcase AUTOEXP -testcase BAYES -testcase BETAALPH -testcase BLACKSH -testcase BONDVAL -testcase BONDVAL2 -testcase BREAKEVN -testcase BUSBUD -testcase CAP1 -testcase CHECK2 -testcase CHECKBK1 -testcase COMPBAL -testcase CONDPROF -testcase CVP -testcase DATE -testcase DATEVAL -testcase DAYYEAR -testcase DEPLETE -testcase DEPRDB -testcase DEPRDDB -testcase DEPRSF -testcase DEPRSL -testcase DEPRSY -testcase DILANAL -testcase DISCBAL -testcase EFFECT -testcase ENVELOPE -testcase EOQ -testcase EPSEST -testcase EXPVAL -testcase FINRAT -testcase FQEOQ -testcase FQEOQPB -testcase FQEOWSH -testcase FUPRINF -testcase FVAL -testcase INSFILE -testcase INVENT2 -testcase INVOICE -testcase LABEL1 -testcase LABEL2 -testcase LEASEINT -testcase LETWRT -testcase LOANAFFD -testcase LOANPAY -testcase MAILPAC -testcase MARKUP -testcase MERGANAL -testcase MORTGAGE -testcase MULTMON -testcase NCFANAL -testcase NPV -testcase OPTLOSS -testcase OPTWRITE -testcase PAYNET -testcase PAYROLL2 -testcase PORTVAL9 -testcase PRINDLAS -testcase PRINDPA -testcase PROFIND -testcase PVAL -testcase QUEUE1 -testcase QUEUECB -testcase REGWITH -testcase RENTPRCH -testcase RRCONST -testcase RRCONVBD -testcase RRVARIN -testcase RTVAL -testcase RULE78 -testcase SALELEAS -testcase SALVAGE -testcase SEASIND -testcase SELLPR -testcase SHARPE1 -testcase SIMPDISK -testcase SIMPLEX -testcase SINKFUND -testcase SORT3 -testcase STOCVAL1 -testcase TAXDEP -testcase TELDIR -testcase TERMSPAY -testcase TIMECLCK -testcase TIMEMOV -testcase TIMETR -testcase TIMUSAN -testcase TRANS -testcase UPSZONE -testcase UTILITY -testcase VALADINF -testcase VALPRINF -testcase WACC -testcase WARVAL -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/T80A/01test.sh b/bwbtest/T80A/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/T80A/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/T80A/02ok.sh b/bwbtest/T80A/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/T80A/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/T80A/99test.sh b/bwbtest/T80A/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/T80A/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/T80A/ACCTPAY.BAS b/bwbtest/T80A/ACCTPAY.BAS deleted file mode 100644 index 1f5f1b4..0000000 --- a/bwbtest/T80A/ACCTPAY.BAS +++ /dev/null @@ -1,326 +0,0 @@ -1 REM ACCTPAY -10 CLS -11 PRINT TAB(10);"ACCOUNTS PAYABLE PROGRAM" -12 PRINT -20 PRINT "THIS PROGRAM IS A BALANCE FORWARD ACCOUNTS PAYABLE -25 PRINT "SYSTEM. WHAT THIS MEANS IS THAT PAYMENTS DO NOT ACCRUE -30 PRINT "TOWARDS ANY INDIVIDUAL INVOICE BUT TOWARDS LUMP SUM -35 PRINT "BALANCES PAYABLE. THIS TYPE OF A/P SYSTEM IS TYPICALLY -40 PRINT "USED WHEN TOTAL OWED RATHER THAN INDIVIDUAL INVOICES ARE -42 PRINT "IMPORTANT. FOR EXAMPLE, MONEY OWED ON CHARGE CARDS IS OF THIS -43 PRINT "TYPE. INVOICES ARE KEPT ON FILE UNTIL THE -45 PRINT "MONTH'S END. LINE PRINTER OUTPUT IS SUPPORTED. DATA FILES -50 PRINT "MAY BE STORED ON EITHER CASSETTE OR DISKETTE. SEE THE -55 PRINT "ACCOMPANYING DOCUMENTATION FOR INSTRUCTIONS. -56 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -58 CLEAR 2000 -59 NC=25:DIM A(NC+1,7),A$(NC+1,1):REM MAX VENDORS IN SYSTEM -60 MI=200:DIM B(MI,1),B$(MI,1):REM MAX INVOICES IN SYSTEM -65 DIM F$(20):REM FORMATTING -70 GOSUB 9000 -80 FOR I=1 TO NC:A$(I,1)="9999":NEXT -100 CLS:INPUT "ARE DISK DRIVES ATTACHED(Y/N)";ZD$ -110 IF ZD$<>"Y" AND ZD$<>"N" THEN GOSUB 10000:GOTO 100 -500 CLS:PRINT " MAIN MENU":PRINT -505 PRINT " 0.QUIT" -510 PRINT " 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE" -520 PRINT " 2.READ FILE IN FROM TAPE -530 PRINT " 3.WRITE FILE OUT ONTO TAPE -540 PRINT " 4.READ FILE IN FROM DISK -550 PRINT " 5.WRITE FILE OUT ONTO DISK -560 PRINT " 6.EDIT FILE -570 PRINT " 7.REPORT GENERATOR -580 PRINT " 8.POST & ELIMINATE INVOICES-UPDATE FILES -600 INPUT "ENTER YOUR CHOICE";Z9 -605 IF Z9 = 0 THEN END -610 ON Z9 GOSUB 1000,2000,2100,2200,2300,3000,5000,7000 -620 GOTO 500 -1000 REM ADD TO OR START FILE ALREADY IN MEMORY -1010 CLS: IF NI=0 THEN PRINT "NEW FILE":GOSUB 10100 -1015 I=NI+1 -1016 J=I -1020 GOSUB 6050:REM INPUT 1 RECORD -1030 CLS:PRINT F$(1):GOSUB 6300:REM PRINT OUT 1 RECORD -1040 GOSUB 10200:IF Z9$="N" THEN GOTO 1020 -1050 IF Z9$="A" THEN RETURN -1060 NI=NI+1:REM NEW RECORD ON FILE -1070 GOSUB 10400:REM MORE? -1080 IF Z9$="Y" THEN GOTO 1010 : ELSE RETURN -2000 REM READ IN FILE FROM TAPE -2010 CLS:PRINT "PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2015 ' IF ZD$="Y" THEN CMD"T" -2020 INPUT #-1,NI -2030 FOR I=1 TO NI:GOSUB 2700:NEXT I -2035 FOR I=1 TO NC:GOSUB 2500:NEXT I -2040 RETURN -2100 REM WRITE OUT FILE ONTO TAPE -2105 CLS -2110 PRINT "PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2115 ' IF ZD$="Y" THEN CMD"T" -2130 WRITE #-1,NI -2140 FOR I=1 TO NI:GOSUB 2800:NEXT I -2145 FOR I=1 TO NC:GOSUB 2600:NEXT I -2150 RETURN -2200 REM READ IN FILE FROM DISK -2210 CLS:PRINT "PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2220 ON ERROR GOTO 2290 -2225 INPUT "ENTER NAME OF DATA FILE TO BE READ ";ZN$ -2230 OPEN "I",1,ZN$ -2240 INPUT # 1,NI -2250 FOR I=1 TO NI:GOSUB 2750:NEXT I -2255 FOR I=1 TO NC:GOSUB 2550:NEXT I -2260 CLOSE # 1 -2270 RETURN -2290 PRINT "FILE DOES NOT EXIST":GOSUB 10100:RETURN -2300 REM WRITE FILE OUT TO DISK -2305 CLS -2310 PRINT :PRINT "PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2315 PRINT "PRESENT FILE NAME IS ";ZN$;:INPUT " NEW NAME";ZN$ -2320 OPEN "O",1,ZN$ -2330 WRITE # 1,NI -2340 FOR I=1 TO NI:GOSUB 2850:NEXT I -2345 FOR I=1 TO NC:GOSUB 2650:NEXT I -2370 CLOSE # 1 -2380 RETURN -2500 REM INPUT 1 VENDOR FROM TAPE -2510 INPUT #-1,A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7): Z8$=A$(I,1):GOSUB 11000:A$(I,1)=Z8$ -2520 RETURN -2550 REM INPUT 1 VENDOR FROM DISKETTE -2560 INPUT # 1,A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7): Z8$=A$(I,1):GOSUB 11000:A$(I,1)=Z8$ -2570 RETURN -2600 REM OUTPUT 1 VENDOR TO TAPE -2610 WRITE #-1,A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7) -2620 RETURN -2650 REM OUTPUT 1 VENDOR TO DISKETTE -2660 WRITE # 1,A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7) -2670 RETURN -2700 REM INPUT 1 INVOICE FROM CASSETTE -2710 INPUT #-1,B$(I,0),B(I,0),B(I,1),B$(I,1) -2720 RETURN -2750 REM INPUT 1 INVOICE FROM DISKETTE -2760 INPUT # 1,B$(I,0),B(I,0),B(I,1),B$(I,1) -2770 RETURN -2800 REM OUTPUT 1 INVOICE TO CASSETTE -2810 WRITE #-1,B$(I,0),B(I,0),B(I,1),B$(I,1) -2820 RETURN -2850 REM OUTPUT 1 INVOICE TO DISKETTE -2860 WRITE # 1,B$(I,0),B(I,0),B(I,1),B$(I,1) -2870 RETURN -3000 REM EDIT FILE -3002 CLS:INPUT "EDITING INVOICE FILE(I) OR VENDOR FILE(V)";Z9$ -3004 IF Z9$<>"I" AND Z9$<>"V" THEN GOSUB 10000:GOTO 3002 -3006 IF Z9$="V" THEN GOTO 3100 -3010 CLS:PRINT F$(1) -3020 FOR J=1 TO NI -3030 GOSUB 6300 -3050 IF J/12=INT(J/12) THEN GOSUB 4000:PRINT F$(1) -3060 NEXT J -3062 J=J-1 -3065 IF J/12=INT(J/12) THEN GOTO 3080 -3070 GOSUB 4000 -3080 RETURN -3100 REM EDIT VENDOR -3110 CLS -3120 PRINT "VENDOR NUMBER TO EDIT MUST BE LESS THAN";NC+1 -3130 PRINT :INPUT "CUSTOMER NUMBER TO EDIT(0 TO END)";I -3135 IF I=0 THEN RETURN -3140 A(I,0)=I:PRINT F$(4):GOSUB 6100:PRINT :PRINT F$(7):GOSUB 6150:PRINT -3150 GOSUB 6000 -3160 PRINT :GOSUB 10100:GOTO 3110 -4000 REM EDIT SUBROUTINE -4020 PRINT -4025 I=0 -4030 INPUT "ENTER # OF ITEM YOU WISH TO EDIT,0 IF NONE";I -4035 IF I=0 THEN RETURN -4040 K=J:J=I:CLS:PRINT F$(1):GOSUB 6300:PRINT :GOSUB 6050 -4050 CLS:J=K:GOTO 4025 -4060 PRINT :GOSUB 6000 -4070 CLS:PRINT " ";F$(2):PRINT " ";F$(3) -4080 FOR J=INT(K/12)*12+1 TO K:PRINT USING "## ";J;:GOSUB 6100:NEXT -4090 GOTO 4020 -5000 REM REPORT GENERATOR -5005 CLS:INPUT "IS A LINE PRINTER TO BE USED(Y/N)";Z2$:IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 5005 -5007 CLS:PRINT TAB(10);"REPORT MENU":PRINT -5010 PRINT "1. AGED PAYABLES REPORT -5020 PRINT "2. COMPLETE VENDOR LIST -5030 PRINT "3. COMPLETE VENDOR LIST WITH INVOICES ATTACHED -5040 PRINT "4. LIST OF ALL INVOICES -5050 PRINT "5. END LIST PROGRAM -5060 PRINT :INPUT "ENTER APPROPRIATE CHOICE";Z9 -5065 IF Z9=5 THEN RETURN -5070 ON Z9 GOSUB 5100,5200,5300,5400 -5080 GOTO 5007 -5100 REM AGED PAYABLES REPORT -5105 FOR I=0 TO 7:V(I)=0:NEXT -5106 CLS -5107 F$="AGED PAYABLES REPORT":PRINT TAB(15); F$:PRINT :IF Z2$="Y" THEN LPRINT TAB(20); F$:LPRINT " " -5110 PRINT F$(4):IF Z2$="Y" THEN LPRINT F$(4):LPRINT " " -5115 FOR I=1 TO NC -5117 IF A$(I,1)="9999" THEN GOTO 5133 -5120 GOSUB 6100:IF Z2$="Y" THEN GOSUB 6200 -5125 FOR J=1 TO 4:V(J)=V(J)+A(I,J):NEXT -5130 IF I/12=INT(I/12) AND Z2$="N" THEN PRINT :GOSUB 10100 -5133 NEXT I -5135 PRINT :IF Z2$="Y" THEN LPRINT " " -5140 PRINT USING F$(6);"TOTALS",V(1),V(2),V(3),V(4) -5150 IF Z2$="Y" THEN LPRINT USING F$(6);"TOTALS",V(1),V(2),V(3),V(4) -5190 PRINT :GOSUB 10100 -5195 RETURN -5200 REM COMPLETE VENDOR LIST -5205 F$="VENDOR LIST":PRINT TAB(20); F$:IF Z2$="Y" THEN LPRINT TAB(20); F$:LPRINT " " -5210 CLS -5215 FOR I=1 TO NC -5220 IF A$(I,1)="9999" THEN GOTO 5260 -5230 PRINT F$(4):GOSUB 6100:PRINT F$(7):GOSUB 6150 -5240 IF Z2$="Y" THEN LPRINT F$(4):GOSUB 6200:LPRINT " ":LPRINT F$(7):GOSUB 6250:LPRINT " ":LPRINT " " -5250 IF Z2$<>"Y" THEN PRINT :GOSUB 10100:PRINT -5260 NEXT I -5290 RETURN -5300 REM COMPLETE CUSTOMER LIST PLUS INVOICES -5310 CLS -5312 F$="VENDOR LIST":PRINT TAB(20); F$:IF Z2$="Y" THEN LPRINT TAB(20); F$:LPRINT " " -5315 FOR I=1 TO NC -5320 IF A$(I,1)="9999" THEN GOTO 5360 -5325 FOR J=1 TO 7:V(J)=0:NEXT -5330 PRINT F$(4):GOSUB 6100:PRINT F$(7):GOSUB 6150 -5332 PRINT F$(1) -5334 FOR J=1 TO NI -5335 IF B(J,0)=I THEN GOSUB 6300:V(1)=V(1)+B(J,1) -5336 NEXT J -5337 PRINT -5340 IF Z2$="Y" THEN LPRINT F$(4):GOSUB 6200:LPRINT " ":LPRINT F$(7):GOSUB 6250:LPRINT " " -5345 IF Z2$<>"Y" THEN GOTO 5355 -5347 LPRINT F$(1) -5348 FOR J=1 TO NI -5349 IF B(J,0)=I THEN GOSUB 6350 -5350 NEXT J -5351 IF Z2$="Y" THEN LPRINT "CHANGE IN OWED THIS MONTH = ";V(1) -5352 IF Z2$="Y" THEN LPRINT " ":LPRINT " " -5355 IF Z2$<>"Y" THEN PRINT :GOSUB 10100 -5360 NEXT I -5370 RETURN -5400 REM COMPLETE INVOICE LIST -5410 CLS -5415 F$="INVOICE LIST":PRINT TAB(25); F$:PRINT :IF Z2$="Y" THEN LPRINT TAB(25); F$:LPRINT " " -5420 V(0)=0:V(1)=0:V(2)=0 -5430 PRINT F$(1):IF Z2$="Y" THEN LPRINT F$(1):LPRINT " " -5440 FOR J= 1 TO NI -5450 GOSUB 6300:IF Z2$="Y" THEN GOSUB 6350 -5455 V(0)=V(0)+B(J,1) -5460 IF B(J,1)>0 THEN V(1)=V(1)+B(J,1) : ELSE V(2)=V(2)+B(J,1) -5470 IF Z2$<>"Y" AND J/12=INT(J/12) THEN PRINT :GOSUB 10100:CLS:PRINT F$(1) -5475 NEXT J -5480 PRINT USING F$(3);"TOTAL CHARGES",V(1) -5482 PRINT USING F$(3);"TOTAL PAYMENTS",V(2) -5484 PRINT USING F$(3);"CHG-PAYMENTS ",V(0) -5486 IF Z2$<>"Y" THEN GOTO 5495 -5488 LPRINT USING F$(3);"TOTAL CHARGES",V(1) -5489 LPRINT USING F$(3);"TOTAL PAYMENTS",V(2) -5490 LPRINT USING F$(3);"CHG-PAYMENTS ",V(0) -5495 PRINT :GOSUB 10100 -5499 RETURN -6000 REM SBR FOR INPUTTING DATA ON 1 VENDOR -6005 F$(9)="% % " -6006 F$(10)=" #####.## " -6010 A(I,0)=I -6015 PRINT USING F$(9);A$(I,1),:INPUT "VEND. NAME ";A$(I,1) -6018 PRINT USING F$(10);A(I,1),:INPUT "CURRENT OWED ";A(I,1) -6020 PRINT USING F$(10);A(I,2),:INPUT "30-60 OWED ";A(I,2) -6022 PRINT USING F$(10);A(I,3),:INPUT "60-90 OWED ";A(I,3) -6024 PRINT USING F$(10);A(I,4),:INPUT "90+ OWED ";A(I,4) -6026 PRINT USING F$(10);A(I,5),:INPUT "PAY LAST MTH ";A(I,5) -6028 PRINT USING F$(10);A(I,6),:INPUT "CHG LAST MTH ";A(I,6) -6030 PRINT USING F$(10);A(I,7),:INPUT "CUMUL. CHGES ";A(I,7) -6040 RETURN -6050 REM SBR FOR INPUTTING DATA FOR 1 INVOICE -6055 F$(9)=" % %":F$(10)=" ######.## ": F$(11)=" ### " -6057 PRINT :PRINT "ENTER NEGATIVE ITEM AMOUNT FOR PAYMENT":PRINT -6060 PRINT USING F$(9);B$(I,0),:INPUT "ITEM NUMBER ";B$(I,0) -6065 PRINT USING F$(11);B(I,0),:INPUT "VEND. NUMBER";B(I,0) -6067 IF B(I,0)>NC THEN PRINT "ILLEGAL VENDOR NUMBER":GOTO 6065 -6068 IF A$(B(I,0),1)="9999" THEN PRINT "ILLEGAL VENDOR NUMBER":GOTO 6065 -6070 PRINT USING F$(10);B(I,1),:INPUT "ITEM AMOUNT ";B(I,1) -6075 PRINT USING F$(9);B$(I,1),:INPUT "COMMENT ";B$(I,1) -6099 RETURN -6100 REM PRINT VENDOR 1ST LINE ON CRT -6110 PRINT USING F$(5);A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4) -6120 RETURN -6150 REM PRINT VENDOR 2ND LINE ON CRT -6160 PRINT USING F$(8);A(I,5),A(I,6),A(I,7) -6170 RETURN -6200 REM PRINT VENDOR 1ST LINE ON PRINTER -6210 LPRINT USING F$(5);A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4) -6220 RETURN -6250 REM PRINT VENDOR 2ND LINE ON PRINTER -6260 LPRINT USING F$(8);A(I,5),A(I,6),A(I,7) -6270 RETURN -6300 REM PRINT 1 INVOICE LINE ON CRT -6310 PRINT USING F$(2);J,B$(J,0),B(J,0),B(J,1),B$(J,1) -6320 RETURN -6350 REM PRINT 1 INVOICE LINE ON PRINTER -6360 IF Z2$="Y" THEN LPRINT USING F$(2);J,B$(J,0),B(J,0),B(J,1),B$(J,1) -6370 RETURN -7000 REM POST TO ACCTS. -7010 CLS -7020 INPUT "POSTING ACCTS-PRESS Y TO PROCEED,N TO RETURN";Z9$ -7030 IF Z9$="N" THEN RETURN -7040 IF Z9$<>"Y" THEN GOSUB 10000:PRINT :GOTO 7020 -7050 FOR I=1 TO NC:A(I,5)=0:A(I,6)=0:NEXT I -7060 FOR I=1 TO NI -7070 IF B(I,1)>0 THEN A(B(I,0),6)=A(B(I,0),6)+B(I,1) : ELSE A(B(I,0),5)=A(B(I,0),5)+B(I,1) -7080 NEXT I -7100 PRINT :INPUT "ARE OWED BY DATE AND CUMULATIVE BILL TO BE UPDATED(Y/N)";Z3$ -7110 IF Z3$<>"Y" AND Z3$<>"N" THEN GOSUB 10000:GOTO 7100 -7120 IF Z3$="N" THEN RETURN -7150 REM UPDATE FILES -7155 NI=0:B$(1,0)="":B(1,0)=0:B(1,1)=0:B$(1,1)="" -7160 FOR I = 1 TO NC -7165 A(I,7)=A(I,7)+A(I,6) -7170 A(I,4)=A(I,4)+A(I,3):A(I,3)=A(I,2):A(I,2)=A(I,1):A(I,1)=A(I,6) -7180 REM NOW APPLY PAYMENTS -7185 AA=A(I,5) -7190 FOR J=4 TO 1 STEP -1 -7195 IF AA=0 THEN GOTO 7290 -7200 IF A(I,J)=0 THEN GOTO 7290 -7210 A(I,J)=A(I,J)+AA:IF A(I,J)>=0 THEN AA=0:GOTO 7290 -7220 AA=A(I,J):A(I,J)=0 -7290 NEXT J -7300 A(I,1)=AA+A(I,1) -7310 NEXT I -7320 RETURN -9000 REM FORMATTING VARIABLES -9010 F$(1)=" NO. ITEM # VENDOR # ITEM AMOUNT COMMENT" -9020 F$(2)="### % % ### #####.## % %" -9030 F$(3)=" % % $$######.##" -9040 F$(4)="VEND.NO. VEND.NAME CURRENT 30-60 60-90 90+" -9050 F$(5)=" ### % % #####.## #####.## #####.## #####.##" -9060 F$(6)=" % % ######.## ######.## ######.## ######.##" -9070 F$(7)=" PMTS. LAST MONTH CHGES LAST MONTH CUMULATIVE CHGES" -9080 F$(8)=" $$#####.## $$#####.## $$######.##" -9099 RETURN -10000 REM INPUT ERROR SBR -10010 PRINT "INPUT ERROR! TRY AGAIN!":FOR Z9=1 TO 300:NEXT Z9 -10020 RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9:RETURN -10200 REM Y,N,A SBR -10205 Z9$=" " -10210 INPUT "ENTER Y IF OK,N IF ERROR,A TO ABORT";Z9$ -10220 IF Z9$<>"Y" AND Z9$<>"N" AND Z9$<>"A" THEN GOSUB 10000:GOTO 10205 -10230 RETURN -10300 REM Y,N SBR -10305 Z9$=" " -10310 INPUT "ENTER Y IF OK, N IF ERROR";Z9$ -10320 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10305 -10330 RETURN -10400 REM MORE ENTRY? SBR -10405 Z9$=" " -10410 INPUT "DO YOU DESIRE MORE ENTRIES(Y/N)";Z9$ -10420 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10405 -10430 RETURN -10500 REM ONLY Y/N SBR -10510 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000 -10520 RETURN -11000 REM ELIMINATES TRAILING BLANKS OF VARIABLE Z8$ -11010 IF RIGHT$(Z8$,1)=" " THEN Z8$=LEFT$(Z8$,LEN(Z8$)-1):GOTO 11010 -11020 RETURN - diff --git a/bwbtest/T80A/ACCTPAY.DAT b/bwbtest/T80A/ACCTPAY.DAT deleted file mode 100644 index 9e335db..0000000 --- a/bwbtest/T80A/ACCTPAY.DAT +++ /dev/null @@ -1,27 +0,0 @@ -1 -"12",1,34.56,"NICE" -1,"TOM CAT",12.34,56.78,78.91,1.23,65.43,43.21,98.76 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 diff --git a/bwbtest/T80A/ACCTPAY.INP b/bwbtest/T80A/ACCTPAY.INP deleted file mode 100644 index 7c52f68..0000000 --- a/bwbtest/T80A/ACCTPAY.INP +++ /dev/null @@ -1,39 +0,0 @@ - -Y -6 -V -1 -TOM CAT -12.34 -56.78 -78.91 -01.23 -65.43 -43.21 -98.76 - -0 -1 - -12 -1 -34.56 -NICE -Y -N -5 - -ACCTPAY.DAT -4 - -ACCTPAY.DAT -7 -Y -1 - -2 -3 -4 - -5 -0 diff --git a/bwbtest/T80A/ACCTPAY.run b/bwbtest/T80A/ACCTPAY.run deleted file mode 100644 index fa38b5d..0000000 --- a/bwbtest/T80A/ACCTPAY.run +++ /dev/null @@ -1,206 +0,0 @@ - ACCOUNTS PAYABLE PROGRAM - -THIS PROGRAM IS A BALANCE FORWARD ACCOUNTS PAYABLE -SYSTEM. WHAT THIS MEANS IS THAT PAYMENTS DO NOT ACCRUE -TOWARDS ANY INDIVIDUAL INVOICE BUT TOWARDS LUMP SUM -BALANCES PAYABLE. THIS TYPE OF A/P SYSTEM IS TYPICALLY -USED WHEN TOTAL OWED RATHER THAN INDIVIDUAL INVOICES ARE -IMPORTANT. FOR EXAMPLE, MONEY OWED ON CHARGE CARDS IS OF THIS -TYPE. INVOICES ARE KEPT ON FILE UNTIL THE -MONTH'S END. LINE PRINTER OUTPUT IS SUPPORTED. DATA FILES -MAY BE STORED ON EITHER CASSETTE OR DISKETTE. SEE THE -ACCOMPANYING DOCUMENTATION FOR INSTRUCTIONS. - -PRESS ENTER TO BEGIN? -ARE DISK DRIVES ATTACHED(Y/N)? Y - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 6 -EDITING INVOICE FILE(I) OR VENDOR FILE(V)? V -VENDOR NUMBER TO EDIT MUST BE LESS THAN 26 - -CUSTOMER NUMBER TO EDIT(0 TO END)? 1 -VEND.NO. VEND.NAME CURRENT 30-60 60-90 90+ - 1 9999 0.00 0.00 0.00 0.00 - - PMTS. LAST MONTH CHGES LAST MONTH CUMULATIVE CHGES - $0.00 $0.00 $0.00 - -9999 VEND. NAME ? TOM CAT - 0.00 CURRENT OWED ? 12.34 - 0.00 30-60 OWED ? 56.78 - 0.00 60-90 OWED ? 78.91 - 0.00 90+ OWED ? 01.23 - 0.00 PAY LAST MTH ? 65.43 - 0.00 CHG LAST MTH ? 43.21 - 0.00 CUMUL. CHGES ? 98.76 - -PRESS ENTER TO CONTINUE? -VENDOR NUMBER TO EDIT MUST BE LESS THAN 26 - -CUSTOMER NUMBER TO EDIT(0 TO END)? 0 - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 1 -NEW FILE -PRESS ENTER TO CONTINUE? - -ENTER NEGATIVE ITEM AMOUNT FOR PAYMENT - - ITEM NUMBER ? 12 - 0 VEND. NUMBER? 1 - 0.00 ITEM AMOUNT ? 34.56 - COMMENT ? NICE - NO. ITEM # VENDOR # ITEM AMOUNT COMMENT - 1 12 1 34.56 NICE -ENTER Y IF OK,N IF ERROR,A TO ABORT? Y -DO YOU DESIRE MORE ENTRIES(Y/N)? N - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 5 - -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? -PRESENT FILE NAME IS NEW NAME? ACCTPAY.DAT - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 4 -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? -ENTER NAME OF DATA FILE TO BE READ ? ACCTPAY.DAT - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 7 -IS A LINE PRINTER TO BE USED(Y/N)? Y - REPORT MENU - -1. AGED PAYABLES REPORT -2. COMPLETE VENDOR LIST -3. COMPLETE VENDOR LIST WITH INVOICES ATTACHED -4. LIST OF ALL INVOICES -5. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 1 - AGED PAYABLES REPORT - -VEND.NO. VEND.NAME CURRENT 30-60 60-90 90+ - 1 TOM CAT 12.34 56.78 78.91 1.23 - - TOTALS 12.34 56.78 78.91 1.23 - -PRESS ENTER TO CONTINUE? - REPORT MENU - -1. AGED PAYABLES REPORT -2. COMPLETE VENDOR LIST -3. COMPLETE VENDOR LIST WITH INVOICES ATTACHED -4. LIST OF ALL INVOICES -5. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 2 - VENDOR LIST -VEND.NO. VEND.NAME CURRENT 30-60 60-90 90+ - 1 TOM CAT 12.34 56.78 78.91 1.23 - PMTS. LAST MONTH CHGES LAST MONTH CUMULATIVE CHGES - $65.43 $43.21 $98.76 - REPORT MENU - -1. AGED PAYABLES REPORT -2. COMPLETE VENDOR LIST -3. COMPLETE VENDOR LIST WITH INVOICES ATTACHED -4. LIST OF ALL INVOICES -5. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 3 - VENDOR LIST -VEND.NO. VEND.NAME CURRENT 30-60 60-90 90+ - 1 TOM CAT 12.34 56.78 78.91 1.23 - PMTS. LAST MONTH CHGES LAST MONTH CUMULATIVE CHGES - $65.43 $43.21 $98.76 - NO. ITEM # VENDOR # ITEM AMOUNT COMMENT - 1 12 1 34.56 NICE - - REPORT MENU - -1. AGED PAYABLES REPORT -2. COMPLETE VENDOR LIST -3. COMPLETE VENDOR LIST WITH INVOICES ATTACHED -4. LIST OF ALL INVOICES -5. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 4 - INVOICE LIST - - NO. ITEM # VENDOR # ITEM AMOUNT COMMENT - 1 12 1 34.56 NICE - TOTAL CHARGES $34.56 - TOTAL PAYMENTS $0.00 - CHG-PAYMENTS $34.56 - -PRESS ENTER TO CONTINUE? - REPORT MENU - -1. AGED PAYABLES REPORT -2. COMPLETE VENDOR LIST -3. COMPLETE VENDOR LIST WITH INVOICES ATTACHED -4. LIST OF ALL INVOICES -5. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 5 - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 0 diff --git a/bwbtest/T80A/ACCTREC.BAS b/bwbtest/T80A/ACCTREC.BAS deleted file mode 100644 index 9570fac..0000000 --- a/bwbtest/T80A/ACCTREC.BAS +++ /dev/null @@ -1,322 +0,0 @@ -1 REM ACCTREC -10 CLS:PRINT TAB(10);"ACCOUNTS RECEIVABLE PROGRAM":PRINT -20 PRINT "THIS PROGRAM IS A BALANCE FORWARD ACCOUNTS RECEIVABLE -25 PRINT "SYSTEM. WHAT THIS MEANS IS THAT PAYMENTS DO NOT ACCRUE -30 PRINT "TOWARDS ANY INDIVIDUAL INVOICE BUT TOWARDS LUMP SUM -35 PRINT "BALANCES RECEIVABLE. THIS TYPE OF A/R SYSTEM IS TYPICALLY -40 PRINT "USED BY PROFESSIONALS. INVOICES ARE KEPT ON FILE UNTIL -45 PRINT "MONTH'S END. LINE PRINTER OUTPUT IS SUPPORTED. DATA FILES -50 PRINT "MAY BE STORED ON EITHER CASSETTE OR DISKETTE. SEE THE -55 PRINT "ACCOMPANYING DOCUMENTATION FOR INSTRUCTIONS. -56 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -58 CLEAR 2000 -59 NC=25:DIM A(NC+1,7),A$(NC+1,1) -60 MI=200:DIM B(MI,1),B$(MI,1):REM MAX INVOICES IN SYSTEM -65 DIM F$(20):REM FORMATTING -70 GOSUB 9000 -80 FOR I=1 TO NC:A$(I,1)="9999":NEXT -100 CLS:INPUT "ARE DISK DRIVES ATTACHED(Y/N)";ZD$ -110 IF ZD$<>"Y" AND ZD$<>"N" THEN GOSUB 10000:GOTO 100 -500 CLS:PRINT " MAIN MENU":PRINT -505 PRINT " 0.QUIT" -510 PRINT " 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE" -520 PRINT " 2.READ FILE IN FROM TAPE -530 PRINT " 3.WRITE FILE OUT ONTO TAPE -540 PRINT " 4.READ FILE IN FROM DISK -550 PRINT " 5.WRITE FILE OUT ONTO DISK -560 PRINT " 6.EDIT FILE -570 PRINT " 7.REPORT GENERATOR -580 PRINT " 8.POST & ELIMINATE INVOICES-UPDATE FILES -600 INPUT "ENTER YOUR CHOICE";Z9 -605 IF Z9 = 0 THEN END -610 ON Z9 GOSUB 1000,2000,2100,2200,2300,3000,5000,7000 -620 GOTO 500 -1000 REM ADD TO OR START FILE ALREADY IN MEMORY -1010 CLS: IF NI=0 THEN PRINT "NEW FILE":GOSUB 10100 -1015 I=NI+1 -1016 J=I -1020 GOSUB 6050:REM INPUT 1 RECORD -1030 CLS:PRINT F$(1):GOSUB 6300:REM PRINT OUT 1 RECORD -1040 GOSUB 10200:IF Z9$="N" THEN GOTO 1020 -1050 IF Z9$="A" THEN RETURN -1060 NI=NI+1:REM NEW RECORD ON FILE -1070 GOSUB 10400:REM MORE? -1080 IF Z9$="Y" THEN GOTO 1010 : ELSE RETURN -2000 REM READ IN FILE FROM TAPE -2010 CLS:PRINT "PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2015 ' IF ZD$="Y" THEN CMD"T" -2020 INPUT #-1,NI -2030 FOR I=1 TO NI:GOSUB 2700:NEXT I -2035 FOR I=1 TO NC:GOSUB 2500:NEXT I -2040 RETURN -2100 REM WRITE OUT FILE ONTO TAPE -2105 CLS -2110 PRINT "PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2115 ' IF ZD$="Y" THEN CMD"T" -2130 WRITE #-1,NI -2140 FOR I=1 TO NI:GOSUB 2800:NEXT I -2145 FOR I=1 TO NC:GOSUB 2600:NEXT I -2150 RETURN -2200 REM READ IN FILE FROM DISK -2210 CLS:PRINT "PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2220 ON ERROR GOTO 2290 -2225 INPUT "ENTER NAME OF DATA FILE TO BE READ ";ZN$ -2230 OPEN "I",1,ZN$ -2240 INPUT # 1,NI -2250 FOR I=1 TO NI:GOSUB 2750:NEXT I -2255 FOR I=1 TO NC:GOSUB 2550:NEXT I -2260 CLOSE # 1 -2270 RETURN -2290 PRINT "FILE DOES NOT EXIST":GOSUB 10100:RETURN -2300 REM WRITE FILE OUT TO DISK -2305 CLS -2310 PRINT :PRINT "PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2315 PRINT "PRESENT FILE NAME IS ";ZN$;:INPUT " NEW NAME";ZN$ -2320 OPEN "O",1,ZN$ -2330 WRITE # 1,NI -2340 FOR I=1 TO NI:GOSUB 2850:NEXT I -2345 FOR I=1 TO NC:GOSUB 2650:NEXT I -2370 CLOSE # 1 -2380 RETURN -2500 REM INPUT 1 CUSTOMER FROM TAPE -2510 INPUT #-1,A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7): Z8$=A$(I,1):GOSUB 11000:A$(I,1)=Z8$ -2520 RETURN -2550 REM INPUT 1 CUSTOMER FROM DISKETTE -2560 INPUT # 1,A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7): Z8$=A$(I,1):GOSUB 11000:A$(I,1)=Z8$ -2570 RETURN -2600 REM OUTPUT 1 CUSTOMER TO TAPE -2610 WRITE #-1,A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7) -2620 RETURN -2650 REM OUTPUT 1 CUSTOMER TO DISKETTE -2660 WRITE # 1,A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7) -2670 RETURN -2700 REM INPUT 1 INVOICE FROM CASSETTE -2710 INPUT #-1,B$(I,0),B(I,0),B(I,1),B$(I,1) -2720 RETURN -2750 REM INPUT 1 INVOICE FROM DISKETTE -2760 INPUT # 1,B$(I,0),B(I,0),B(I,1),B$(I,1) -2770 RETURN -2800 REM OUTPUT 1 INVOICE TO CASSETTE -2810 WRITE #-1,B$(I,0),B(I,0),B(I,1),B$(I,1) -2820 RETURN -2850 REM OUTPUT 1 INVOICE TO DISKETTE -2860 WRITE # 1,B$(I,0),B(I,0),B(I,1),B$(I,1) -2870 RETURN -3000 REM EDIT FILE -3002 CLS:INPUT "EDITING INVOICE FILE(I) OR CUSTOMER FILE(C)";Z9$ -3004 IF Z9$<>"I" AND Z9$<>"C" THEN GOSUB 10000:GOTO 3002 -3006 IF Z9$="C" THEN GOTO 3100 -3010 CLS:PRINT F$(1) -3020 FOR J=1 TO NI -3030 GOSUB 6300 -3050 IF J/12=INT(J/12) THEN GOSUB 4000:PRINT F$(1) -3060 NEXT J -3062 J=J-1 -3065 IF J/12=INT(J/12) THEN GOTO 3080 -3070 GOSUB 4000 -3080 RETURN -3100 REM EDIT CUSTOMER -3110 CLS -3120 PRINT "CUSTOMER NUMBER TO EDIT MUST BE LESS THAN";NC+1 -3130 PRINT :INPUT "CUSTOMER NUMBER TO EDIT(0 TO END)";I -3135 IF I=0 THEN RETURN -3140 A(I,0)=I:PRINT F$(4):GOSUB 6100:PRINT :PRINT F$(7):GOSUB 6150:PRINT -3150 GOSUB 6000 -3160 PRINT :GOSUB 10100:GOTO 3110 -4000 REM EDIT SUBROUTINE -4020 PRINT -4025 I=0 -4030 INPUT "ENTER # OF ITEM YOU WISH TO EDIT,0 IF NONE";I -4035 IF I=0 THEN RETURN -4040 K=J:J=I:CLS:PRINT F$(1):GOSUB 6300:PRINT :GOSUB 6050 -4050 CLS:J=K:GOTO 4025 -4060 PRINT :GOSUB 6000 -4070 CLS:PRINT " ";F$(2):PRINT " ";F$(3) -4080 FOR J=INT(K/12)*12+1 TO K:PRINT USING "## ";J;:GOSUB 6100:NEXT -4090 GOTO 4020 -5000 REM REPORT GENERATOR -5005 CLS:INPUT "IS A LINE PRINTER TO BE USED(Y/N)";Z2$:IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 5005 -5007 CLS:PRINT TAB(10);"REPORT MENU":PRINT -5010 PRINT "1. AGED RECEIVABLES REPORT -5020 PRINT "2. COMPLETE CUSTOMER LIST -5030 PRINT "3. COMPLETE CUSTOMER LIST WITH INVOICES ATTACHED -5040 PRINT "4. LIST OF ALL INVOICES -5050 PRINT "5. END LIST PROGRAM -5060 PRINT :INPUT "ENTER APPROPRIATE CHOICE";Z9 -5065 IF Z9=5 THEN RETURN -5070 ON Z9 GOSUB 5100,5200,5300,5400 -5080 GOTO 5007 -5100 REM AGED RECEIVABLES REPORT -5105 FOR I=0 TO 7:V(I)=0:NEXT -5106 CLS -5107 F$="AGED RECEIVABLES REPORT":PRINT TAB(15); F$:PRINT :IF Z2$="Y" THEN LPRINT TAB(20); F$:LPRINT " " -5110 PRINT F$(4):IF Z2$="Y" THEN LPRINT F$(4):LPRINT " " -5115 FOR I=1 TO NC -5117 IF A$(I,1)="9999" THEN GOTO 5133 -5120 GOSUB 6100:IF Z2$="Y" THEN GOSUB 6200 -5125 FOR J=1 TO 4:V(J)=V(J)+A(I,J):NEXT -5130 IF I/12=INT(I/12) AND Z2$="N" THEN PRINT :GOSUB 10100 -5133 NEXT I -5135 PRINT :IF Z2$="Y" THEN LPRINT " " -5140 PRINT USING F$(6);"TOTALS",V(1),V(2),V(3),V(4) -5150 IF Z2$="Y" THEN LPRINT USING F$(6);"TOTALS",V(1),V(2),V(3),V(4) -5190 PRINT :GOSUB 10100 -5195 RETURN -5200 REM COMPLETE CUSTOMER LIST -5205 F$="CUSTOMER LIST":PRINT TAB(20); F$:IF Z2$="Y" THEN LPRINT TAB(20); F$:LPRINT " " -5210 CLS -5215 FOR I=1 TO NC -5220 IF A$(I,1)="9999" THEN GOTO 5260 -5230 PRINT F$(4):GOSUB 6100:PRINT F$(7):GOSUB 6150 -5240 IF Z2$="Y" THEN LPRINT F$(4):GOSUB 6200:LPRINT " ":LPRINT F$(7):GOSUB 6250:LPRINT " ":LPRINT " " -5250 IF Z2$<>"Y" THEN PRINT :GOSUB 10100:PRINT -5260 NEXT I -5290 RETURN -5300 REM COMPLETE CUSTOMER LIST PLUS INVOICES -5310 CLS -5312 F$="CUSTOMER LIST":PRINT TAB(20); F$:IF Z2$="Y" THEN LPRINT TAB(20); F$:LPRINT " " -5315 FOR I=1 TO NC -5320 IF A$(I,1)="9999" THEN GOTO 5360 -5325 FOR J=1 TO 7:V(J)=0:NEXT -5330 PRINT F$(4):GOSUB 6100:PRINT F$(7):GOSUB 6150 -5332 PRINT F$(1) -5334 FOR J=1 TO NI -5335 IF B(J,0)=I THEN GOSUB 6300:V(1)=V(1)+B(J,1) -5336 NEXT J -5337 PRINT -5340 IF Z2$="Y" THEN LPRINT F$(4):GOSUB 6200:LPRINT " ":LPRINT F$(7):GOSUB 6250:LPRINT " " -5345 IF Z2$<>"Y" THEN GOTO 5355 -5347 LPRINT F$(1) -5348 FOR J=1 TO NI -5349 IF B(J,0)=I THEN GOSUB 6350 -5350 NEXT J -5351 IF Z2$="Y" THEN LPRINT "CHANGE IN OWED THIS MONTH = ";V(1) -5352 IF Z2$="Y" THEN LPRINT " ":LPRINT " " -5355 IF Z2$<>"Y" THEN PRINT :GOSUB 10100 -5360 NEXT I -5370 RETURN -5400 REM COMPLETE INVOICE LIST -5410 CLS -5415 F$="INVOICE LIST":PRINT TAB(25); F$:PRINT :IF Z2$="Y" THEN LPRINT TAB(25); F$:LPRINT " " -5420 V(0)=0:V(1)=0:V(2)=0 -5430 PRINT F$(1):IF Z2$="Y" THEN LPRINT F$(1):LPRINT " " -5440 FOR J= 1 TO NI -5450 GOSUB 6300:IF Z2$="Y" THEN GOSUB 6350 -5455 V(0)=V(0)+B(J,1) -5460 IF B(J,1)>0 THEN V(1)=V(1)+B(J,1) : ELSE V(2)=V(2)+B(J,1) -5470 IF Z2$<>"Y" AND J/12=INT(J/12) THEN PRINT :GOSUB 10100:CLS:PRINT F$(1) -5475 NEXT J -5480 PRINT USING F$(3);"TOTAL CHARGES",V(1) -5482 PRINT USING F$(3);"TOTAL PAYMENTS",V(2) -5484 PRINT USING F$(3);"CHG-PAYMENTS ",V(0) -5486 IF Z2$<>"Y" THEN GOTO 5495 -5488 LPRINT USING F$(3);"TOTAL CHARGES",V(1) -5489 LPRINT USING F$(3);"TOTAL PAYMENTS",V(2) -5490 LPRINT USING F$(3);"CHG-PAYMENTS ",V(0) -5495 PRINT :GOSUB 10100 -5499 RETURN -6000 REM SBR FOR INPUTTING DATA ON 1 CUSTOMER -6005 F$(9)="% % " -6006 F$(10)=" #####.## " -6010 A(I,0)=I -6015 PRINT USING F$(9);A$(I,1),:INPUT "CUST. NAME ";A$(I,1) -6018 PRINT USING F$(10);A(I,1),:INPUT "CURRENT OWED ";A(I,1) -6020 PRINT USING F$(10);A(I,2),:INPUT "30-60 OWED ";A(I,2) -6022 PRINT USING F$(10);A(I,3),:INPUT "60-90 OWED ";A(I,3) -6024 PRINT USING F$(10);A(I,4),:INPUT "90+ OWED ";A(I,4) -6026 PRINT USING F$(10);A(I,5),:INPUT "PAY LAST MTH ";A(I,5) -6028 PRINT USING F$(10);A(I,6),:INPUT "CHG LAST MTH ";A(I,6) -6030 PRINT USING F$(10);A(I,7),:INPUT "CUMUL. CHGES ";A(I,7) -6040 RETURN -6050 REM SBR FOR INPUTTING DATA FOR 1 INVOICE -6055 F$(9)=" % %":F$(10)=" ######.## ": F$(11)=" ### " -6057 PRINT :PRINT "ENTER NEGATIVE ITEM AMOUNT FOR PAYMENT":PRINT -6060 PRINT USING F$(9);B$(I,0),:INPUT "ITEM NUMBER ";B$(I,0) -6065 PRINT USING F$(11);B(I,0),:INPUT "CUST. NUMBER";B(I,0) -6067 IF B(I,0)>NC THEN PRINT "ILLEGAL CUSTOMER NUMBER":GOTO 6065 -6068 IF A$(B(I,0),1)="9999" THEN PRINT "ILLEGAL CUSTOMER NUMBER":GOTO 6065 -6070 PRINT USING F$(10);B(I,1),:INPUT "ITEM AMOUNT ";B(I,1) -6075 PRINT USING F$(9);B$(I,1),:INPUT "COMMENT ";B$(I,1) -6099 RETURN -6100 REM PRINT CUSTOMER 1ST LINE ON CRT -6110 PRINT USING F$(5);A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4) -6120 RETURN -6150 REM PRINT CUSTOMER 2ND LINE ON CRT -6160 PRINT USING F$(8);A(I,5),A(I,6),A(I,7) -6170 RETURN -6200 REM PRINT CUSTOMER 1ST LINE ON PRINTER -6210 LPRINT USING F$(5);A(I,0),A$(I,1),A(I,1),A(I,2),A(I,3),A(I,4) -6220 RETURN -6250 REM PRINT CUSTOMER 2ND LINE ON PRINTER -6260 LPRINT USING F$(8);A(I,5),A(I,6),A(I,7) -6270 RETURN -6300 REM PRINT 1 INVOICE LINE ON CRT -6310 PRINT USING F$(2);J,B$(J,0),B(J,0),B(J,1),B$(J,1) -6320 RETURN -6350 REM PRINT 1 INVOICE LINE ON PRINTER -6360 IF Z2$="Y" THEN LPRINT USING F$(2);J,B$(J,0),B(J,0),B(J,1),B$(J,1) -6370 RETURN -7000 REM POST TO ACCTS. -7010 CLS -7020 INPUT "POSTING ACCTS-PRESS Y TO PROCEED,N TO RETURN";Z9$ -7030 IF Z9$="N" THEN RETURN -7040 IF Z9$<>"Y" THEN GOSUB 10000:PRINT :GOTO 7020 -7050 FOR I=1 TO NC:A(I,5)=0:A(I,6)=0:NEXT I -7060 FOR I=1 TO NI -7070 IF B(I,1)>0 THEN A(B(I,0),6)=A(B(I,0),6)+B(I,1) : ELSE A(B(I,0),5)=A(B(I,0),5)+B(I,1) -7080 NEXT I -7100 PRINT :INPUT "ARE OWED BY DATE AND CUMULATIVE BILL TO BE UPDATED(Y/N)";Z3$ -7110 IF Z3$<>"Y" AND Z3$<>"N" THEN GOSUB 10000:GOTO 7100 -7120 IF Z3$="N" THEN RETURN -7150 REM UPDATE FILES -7155 NI=0:B$(1,0)="":B(1,0)=0:B(1,1)=0:B$(1,1)="" -7160 FOR I = 1 TO NC -7165 A(I,7)=A(I,7)+A(I,6) -7170 A(I,4)=A(I,4)+A(I,3):A(I,3)=A(I,2):A(I,2)=A(I,1):A(I,1)=A(I,6) -7180 REM NOW APPLY PAYMENTS -7185 AA=A(I,5) -7190 FOR J=4 TO 1 STEP -1 -7195 IF AA=0 THEN GOTO 7290 -7200 IF A(I,J)=0 THEN GOTO 7290 -7210 A(I,J)=A(I,J)+AA:IF A(I,J)>=0 THEN AA=0:GOTO 7290 -7220 AA=A(I,J):A(I,J)=0 -7290 NEXT J -7300 A(I,1)=AA+A(I,1) -7310 NEXT I -7320 RETURN -9000 REM FORMATTING VARIABLES -9010 F$(1)=" NO. ITEM # CUSTOMER # ITEM AMOUNT COMMENT" -9020 F$(2)="### % % ### #####.## % %" -9030 F$(3)=" % % $$######.##" -9040 F$(4)="CUST.NO. CUST.NAME CURRENT 30-60 60-90 90+" -9050 F$(5)=" ### % % #####.## #####.## #####.## #####.##" -9060 F$(6)=" % % ######.## ######.## ######.## ######.##" -9070 F$(7)=" PMTS. LAST MONTH CHGES LAST MONTH CUMULATIVE CHGES" -9080 F$(8)=" $$#####.## $$#####.## $$######.##" -9099 RETURN -10000 REM INPUT ERROR SBR -10010 PRINT "INPUT ERROR! TRY AGAIN!":FOR Z9=1 TO 300:NEXT Z9 -10020 RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9:RETURN -10200 REM Y,N,A SBR -10205 Z9$=" " -10210 INPUT "ENTER Y IF OK,N IF ERROR,A TO ABORT";Z9$ -10220 IF Z9$<>"Y" AND Z9$<>"N" AND Z9$<>"A" THEN GOSUB 10000:GOTO 10205 -10230 RETURN -10300 REM Y,N SBR -10305 Z9$=" " -10310 INPUT "ENTER Y IF OK, N IF ERROR";Z9$ -10320 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10305 -10330 RETURN -10400 REM MORE ENTRY? SBR -10405 Z9$=" " -10410 INPUT "DO YOU DESIRE MORE ENTRIES(Y/N)";Z9$ -10420 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10405 -10430 RETURN -10500 REM ONLY Y/N SBR -10510 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000 -10520 RETURN -11000 REM ELIMINATES TRAILING BLANKS OF VARIABLE Z8$ -11010 IF RIGHT$(Z8$,1)=" " THEN Z8$=LEFT$(Z8$,LEN(Z8$)-1):GOTO 11010 -11020 RETURN - diff --git a/bwbtest/T80A/ACCTREC.DAT b/bwbtest/T80A/ACCTREC.DAT deleted file mode 100644 index 7d4d0d6..0000000 --- a/bwbtest/T80A/ACCTREC.DAT +++ /dev/null @@ -1,27 +0,0 @@ -1 -"34-AB-45/2",3,87.01,"CAT FOOD" -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -3,"JERRY MOUSE",98.76,54.32,10.98,23.45,476.32,642.96,83.82 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 -0,"9999",0,0,0,0,0,0,0 diff --git a/bwbtest/T80A/ACCTREC.INP b/bwbtest/T80A/ACCTREC.INP deleted file mode 100644 index be9b32d..0000000 --- a/bwbtest/T80A/ACCTREC.INP +++ /dev/null @@ -1,40 +0,0 @@ - -Y -6 -C -3 -JERRY MOUSE -98.76 -54.32 -10.98 -23.45 -476.32 -642.96 -83.82 - -0 -1 - -34-AB-45/2 -12 -3 -87.01 -CAT FOOD -Y -N -5 - -ACCTREC.DAT -4 - -ACCTREC.DAT -7 -Y -1 - -2 -3 -4 - -5 -0 diff --git a/bwbtest/T80A/ACCTREC.run b/bwbtest/T80A/ACCTREC.run deleted file mode 100644 index 0e425a0..0000000 --- a/bwbtest/T80A/ACCTREC.run +++ /dev/null @@ -1,206 +0,0 @@ - ACCOUNTS RECEIVABLE PROGRAM - -THIS PROGRAM IS A BALANCE FORWARD ACCOUNTS RECEIVABLE -SYSTEM. WHAT THIS MEANS IS THAT PAYMENTS DO NOT ACCRUE -TOWARDS ANY INDIVIDUAL INVOICE BUT TOWARDS LUMP SUM -BALANCES RECEIVABLE. THIS TYPE OF A/R SYSTEM IS TYPICALLY -USED BY PROFESSIONALS. INVOICES ARE KEPT ON FILE UNTIL -MONTH'S END. LINE PRINTER OUTPUT IS SUPPORTED. DATA FILES -MAY BE STORED ON EITHER CASSETTE OR DISKETTE. SEE THE -ACCOMPANYING DOCUMENTATION FOR INSTRUCTIONS. - -PRESS ENTER TO BEGIN? -ARE DISK DRIVES ATTACHED(Y/N)? Y - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 6 -EDITING INVOICE FILE(I) OR CUSTOMER FILE(C)? C -CUSTOMER NUMBER TO EDIT MUST BE LESS THAN 26 - -CUSTOMER NUMBER TO EDIT(0 TO END)? 3 -CUST.NO. CUST.NAME CURRENT 30-60 60-90 90+ - 3 9999 0.00 0.00 0.00 0.00 - - PMTS. LAST MONTH CHGES LAST MONTH CUMULATIVE CHGES - $0.00 $0.00 $0.00 - -9999 CUST. NAME ? JERRY MOUSE - 0.00 CURRENT OWED ? 98.76 - 0.00 30-60 OWED ? 54.32 - 0.00 60-90 OWED ? 10.98 - 0.00 90+ OWED ? 23.45 - 0.00 PAY LAST MTH ? 476.32 - 0.00 CHG LAST MTH ? 642.96 - 0.00 CUMUL. CHGES ? 83.82 - -PRESS ENTER TO CONTINUE? -CUSTOMER NUMBER TO EDIT MUST BE LESS THAN 26 - -CUSTOMER NUMBER TO EDIT(0 TO END)? 0 - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 1 -NEW FILE -PRESS ENTER TO CONTINUE? - -ENTER NEGATIVE ITEM AMOUNT FOR PAYMENT - - ITEM NUMBER ? 34-AB-45/2 - 0 CUST. NUMBER? 12 -ILLEGAL CUSTOMER NUMBER - 12 CUST. NUMBER? 3 - 0.00 ITEM AMOUNT ? 87.01 - COMMENT ? CAT FOOD - NO. ITEM # CUSTOMER # ITEM AMOUNT COMMENT - 1 34-AB-4 3 87.01 CAT FOOD -ENTER Y IF OK,N IF ERROR,A TO ABORT? Y -DO YOU DESIRE MORE ENTRIES(Y/N)? N - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 5 - -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? -PRESENT FILE NAME IS NEW NAME? ACCTREC.DAT - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 4 -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? -ENTER NAME OF DATA FILE TO BE READ ? ACCTREC.DAT - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 7 -IS A LINE PRINTER TO BE USED(Y/N)? Y - REPORT MENU - -1. AGED RECEIVABLES REPORT -2. COMPLETE CUSTOMER LIST -3. COMPLETE CUSTOMER LIST WITH INVOICES ATTACHED -4. LIST OF ALL INVOICES -5. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 1 - AGED RECEIVABLES REPORT - -CUST.NO. CUST.NAME CURRENT 30-60 60-90 90+ - 3 JERRY MOUSE 98.76 54.32 10.98 23.45 - - TOTALS 98.76 54.32 10.98 23.45 - -PRESS ENTER TO CONTINUE? - REPORT MENU - -1. AGED RECEIVABLES REPORT -2. COMPLETE CUSTOMER LIST -3. COMPLETE CUSTOMER LIST WITH INVOICES ATTACHED -4. LIST OF ALL INVOICES -5. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 2 - CUSTOMER LIST -CUST.NO. CUST.NAME CURRENT 30-60 60-90 90+ - 3 JERRY MOUSE 98.76 54.32 10.98 23.45 - PMTS. LAST MONTH CHGES LAST MONTH CUMULATIVE CHGES - $476.32 $642.96 $83.82 - REPORT MENU - -1. AGED RECEIVABLES REPORT -2. COMPLETE CUSTOMER LIST -3. COMPLETE CUSTOMER LIST WITH INVOICES ATTACHED -4. LIST OF ALL INVOICES -5. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 3 - CUSTOMER LIST -CUST.NO. CUST.NAME CURRENT 30-60 60-90 90+ - 3 JERRY MOUSE 98.76 54.32 10.98 23.45 - PMTS. LAST MONTH CHGES LAST MONTH CUMULATIVE CHGES - $476.32 $642.96 $83.82 - NO. ITEM # CUSTOMER # ITEM AMOUNT COMMENT - 1 34-AB-4 3 87.01 CAT FOOD - - REPORT MENU - -1. AGED RECEIVABLES REPORT -2. COMPLETE CUSTOMER LIST -3. COMPLETE CUSTOMER LIST WITH INVOICES ATTACHED -4. LIST OF ALL INVOICES -5. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 4 - INVOICE LIST - - NO. ITEM # CUSTOMER # ITEM AMOUNT COMMENT - 1 34-AB-4 3 87.01 CAT FOOD - TOTAL CHARGES $87.01 - TOTAL PAYMENTS $0.00 - CHG-PAYMENTS $87.01 - -PRESS ENTER TO CONTINUE? - REPORT MENU - -1. AGED RECEIVABLES REPORT -2. COMPLETE CUSTOMER LIST -3. COMPLETE CUSTOMER LIST WITH INVOICES ATTACHED -4. LIST OF ALL INVOICES -5. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 5 - MAIN MENU - - 0.QUIT - 1.ADD TO OR BEGIN INVOICE/PAYMENT FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.REPORT GENERATOR - 8.POST & ELIMINATE INVOICES-UPDATE FILES -ENTER YOUR CHOICE? 0 diff --git a/bwbtest/T80A/ANNU1.BAS b/bwbtest/T80A/ANNU1.BAS deleted file mode 100644 index 87e6dad..0000000 --- a/bwbtest/T80A/ANNU1.BAS +++ /dev/null @@ -1,135 +0,0 @@ -1000 CLS:PRINT" ANNUITY COMPUTATION BY DR. PETER SHENKIN" -1002 PRINT" AN ANNUITY IS ANY SET OF EQUAL PAYMENTS MADE AT -1003 PRINT"EQUAL INTERVALS OF TIME. WITH AN ORDINARY ANNUITY -1004 PRINT"PAYMENTS ARE MADE AT THE ENDS OF THE PERIODS DE- -1005 PRINT"FINED BY THESE TIME INTERVALS. FOR AN ANNUITY DUE -1006 PRINT"THE PAYMENTS ARE MADE AT THE BEGINNING OF THE PER- -1007 PRINT"IODS IN QUESTION. THE PRESENT VALUE OF AN ANNUITY -1008 PRINT"IS THE AMOUNT OF CASH ONE WOULD ACCEPT NOW INSTEAD -1009 PRINT"OF THE SEQUENCE OF FUTURE PAYMENTS. BECAUSE MONEY -1010 PRINT"HAS TIME VALUE (INTEREST IS CHARGED) THE PRESENT -1011 PRINT"VALUE DOES NOT EQUAL THE SUM OF THE PAYMENTS. tHE -1012 PRINT"FUTURE VALUE OF AN ANNUITY IS THE AMOUNT OF CASH -1013 PRINT"WHICH WOULD ACCUMULATE BY THE END OF THE ANNUITY -1014 PRINT"IF THE INDIVIDUAL PAYMENTS ARE INVESTED AT THE -1015 PRINT"PREVAILING INTEREST RATE. -1016 INPUT"PRESS ENTER TO CONTINUE";Z9$ -1017 CLS:PRINT"MANY ANNUITIES ALSO INVOLVE A LAST BALLOON PAY- -1018 PRINT"MENT.IN THE ANNUITY PROBLEMS WE EXAMINE,THE VARIABLES -1020 PRINT"OF INTEREST ARE NUMBER OF PAYMENTS,INTEREST RATE PER -1030 PRINT"PERIOD,PAYMENT PER PERIOD,PRESENT OR FUTURE VALUE,AND -1040 PRINT"BALLOON PAYMENT (AT END OF TERM) IF DESIRED.GIVEN ANY -1045 PRINT"FOUR VALUES OF THE ABOVE VARIABLES THIS PROGRAM WILL -1050 PRINT"FIND THE FIFTH VARIABLE WHEN CONSIDERING THE PRESENT -1060 PRINT"VALUE SITUATION. IN THE FUTURE VALUE CASE NO BALLOON -1065 PRINT"PAYMENTS ARE CONSIDERED AS IN THIS CASE A BALLOON -1067 PRINT"PAYMENT OF A CERTAIN AMOUNT WOULD ADD THAT AMOUNT -1070 PRINT"TO FUTURE VALUE.NOTE THAT INTEREST RATES ARE WRITTEN -1075 PRINT"AS PER CENTS, NOT AS DECIMALS(E.G. 6%, NOT .06). IN -1080 PRINT"ADDITION NOTE THAT INTEREST RATE IS PER PERIOD,I.E. -1085 PRINT"PER MONTH,PER YEAR,ETC. -1090 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9:CLS -1095 CLS -1100 PRINT"SELECT TYPE OF PROBLEM DESIRED." -1105 PRINT" 0.QUIT" -1110 PRINT" 1.ORDINARY ANNUITY-FUTURE VALUE(SINKING FUND) -1120 PRINT" 2.ANNUITY DUE-FUTURE VALUE -1130 PRINT" 3.ORDINARY ANNUITY-PRESENT VALUE -1140 PRINT" 4.ANNUITY DUE-PRESENT VALUE -1150 PRINT:INPUT"MAKE YOUR CHOICE";C -1153 IF C = 0 THEN END -1155 PRINT:INPUT"IS INTEREST RATE QUOTED PER PERIOD(P) OR ANNUALLY(A)";ZI$ -1157 IF ZI$<>"P" AND ZI$<>"A" THEN PRINT"INPUT ERROR":GOTO 1155 -1158 IF ZI$="A" THEN PRINT:INPUT"NUMBER OF PAYMENTS PER YEAR";ZN -1160 ON C GOTO 1200,1300,1400,1500 -1200 REM"ORDINARY ANNUITY-FUTURE VALUE TYPE PROBLEM -1210 CLS -1220 GOSUB 3000 -1223 I=I/100 -1225 IF FV=9999 THEN FV=PMT*((1+I)[N-1)/I -1230 IF PMT=9999 THEN PMT=FV*I/((1+I)[N-1) -1240 IF N=9999 THEN N=LOG((FV*I/PMT+1))/LOG(1+I) -1250 IF ABS(I-99.99)<.01 THEN GOSUB 4000 -1260 GOTO 5000:REM PRINTOUT -1300 GOSUB 3000 -1310 I=I/100 -1325 IF FV=9999 THEN FV=PMT*(1+I)*((1+I)[N-1)/I -1330 IF PMT=9999 THEN PMT=FV*I*(1/(1+I))/((1+I)[N-1) -1340 IF N=9999 THEN N=LOG((FV*I/(PMT*(1+I))+1))/LOG(1+I) -1350 IF ABS(I-99.99)<.01 THEN GOSUB 4100 -1360 GOTO 5000:REM PRINTOUT -1400 GOSUB 3000:GOSUB 3080 -1405 I=I/100 -1410 IF PV=9999 THEN PV=PMT*(1/I)*(1-(1+I)[(-N))+BAL*(1+I)[(-N) -1420 IF PMT=9999 THEN PMT=(PV-BAL*(1+I)[(-N))*I/(1-(1+I)[(-N)) -1430 IF N=9999 THEN T=(BAL*I-PMT)/(PV*I-PMT):N=LOG(T)/LOG(1+I) -1440 IF BAL=9999 THEN BAL=PV-PMT*(1/I)*(1-(1+I)[(-N)):BAL=BAL*(1+I)[N -1450 IF ABS(I-99.99)<.01 THEN GOSUB 4200 -1460 GOTO 5000 -1500 GOSUB 3000:GOSUB 3080 -1510 I=I/100 -1520 IF PV=9999 THEN PV=PMT*(1+I)*(1/I)*(1-(1+I)[(-N))+BAL*(1+I)[(-N) -1525 IF PMT=9999 THEN PMT=(PV-BAL*(1+I)[(-N))*I/(1+I)/(1-(1+I)[(-N)) -1530 IF N=9999 THEN T=(BAL*I-PMT*(1+I))/(PV*I-PMT*(1+I)):N=LOG(T)/LOG(1+I) -1540 IF BAL=9999 THEN BAL=PV-PMT*(1+I)*(1/I)*(1-(1+I)[(-N)):BAL=BAL*(1+I)[N -1550 IF ABS(I-99.99)<.01 THEN GOSUB 4300 -1560 GOTO 5000 -3000 REM INPUT SBR -3010 CLS:PRINT"ENTER EACH OF THE FOLLOWING.FOR THE UNKNOWN VALUE -3020 PRINT"ENTER 9999.":PRINT -3030 IF C<3 THEN INPUT"FUTURE VALUE ";FV -3035 IF C>=3 THEN INPUT"PRESENT VALUE ";PV -3040 INPUT"PAYMENT ";PMT -3050 INPUT"NUMBER OF PAYMENTS ";N -3055 IF ZI$="A" THEN INPUT"ANNUAL INTEREST RATE ";I -3056 IF ZI$="A" AND I<>9999 THEN I=I/ZN -3057 IF ZI$="A" THEN GOTO 3070 -3060 INPUT"INTEREST RATE PER PERIOD(%)";I -3070 RETURN -3080 INPUT"BALLOON PAYMENT ";BAL -3090 RETURN -4000 REM I FOR FV REG. ANNU.-SINKING FUND -4010 I=.01 -4020 P=FV-PMT/I*((1+I)[N-1) -4025 D=PMT*(N*(1+I)[(N-1)/I- ((1+I)[N-1)/I[2) -4027 D=-D -4030 GOSUB 4600 -4040 IF ABS(P)<=.1 THEN RETURN -4050 GOTO 4020 -4100 REM I FOR FV ANNUITY DUE -4110 I=.01 -4120 P=FV-PMT*(1+I)/I*((1+I)[N-1) -4125 D=PMT*((N+1)*(1+I)[N-1)/I-PMT*((1+I)[(N+1)-1-I)/I[2 -4127 D=-D -4130 GOSUB 4600 -4140 IF ABS(P)<=.1 THEN RETURN -4150 GOTO 4120 -4200 REM I FOR PV/ORDINARY ANNUITY -4210 I=.01 -4220 P=PMT/I*(1-(1+I)[(-N))+BAL*(1+I)[(-N)-PV -4225 D=N*PMT/(I*(1+I)[(N+1))-PMT/(I[2)*(1-(1+I)[(-N))-N*BAL/(1+I)[(N+1) -4230 GOSUB 4600 -4240 IF ABS(P)<=.1 THEN RETURN -4250 GOTO 4220 -4300 REM I FOR PV/ANNUITY DUE -4305 I=.01 -4310 P=PMT*(1+I)/I*(1-(1+I)[(-N))+BAL*(1+I)[(-N)-PV -4320 D=(1+I)*(N*PMT/(I*(1+I)[(N+1))-PMT/(I[2)*(1-(1+I)[(-N)))+PMT/I*(1-(1+I)[(-N))-N*BAL/(1+I)[(N+1) -4330 GOSUB 4600 -4335 IF ABS(P)<.1 THEN RETURN -4340 GOTO 4310 -4600 REM COMPUTATION -4610 I=I-P/D -4620 RETURN -5000 REM PRINT OUT -5010 CLS -5020 IF C=1 OR C=2 THEN PRINT"FUTURE VALUE =";FV -5025 IF C=3 OR C=4 THEN PRINT"PRESENT VALUE =";PV -5030 PRINT"NUMBER OF PAYMENTS =";N -5033 IF ZI$="A" THEN PRINT " CONSISTING OF ";ZN;" PAYMENTS ANNUALLY." -5035 IF ZI$="A" THEN PRINT"ANNUAL INTEREST RATE =";100*I*ZN:GOTO 5050 -5040 PRINT"INT. RATE PER PERIOD=";100*I -5050 PRINT"PAYMENT =";PMT -5060 IF C=3 OR C=4 THEN PRINT"BALLOON PAYMENT =";BAL -5090 PRINT:INPUT"PRESS ENTER FOR MORE";Z9 -5100 GOTO 1095 diff --git a/bwbtest/T80A/ANNU1.INP b/bwbtest/T80A/ANNU1.INP deleted file mode 100644 index 407751e..0000000 --- a/bwbtest/T80A/ANNU1.INP +++ /dev/null @@ -1,35 +0,0 @@ - - -1 -A -12 -2345.67 -89.01 -12 -3.75 - -2 -P -1234.56 -89.01 -36 -0.175 - -3 -A -24 -1234.56 -89.01 -52 -3.25 -9999 - -4 -P -1234.56 -9999 -36 -5 -55.55 - -0 diff --git a/bwbtest/T80A/ANNU1.run b/bwbtest/T80A/ANNU1.run deleted file mode 100644 index 13bbdc5..0000000 --- a/bwbtest/T80A/ANNU1.run +++ /dev/null @@ -1,142 +0,0 @@ - ANNUITY COMPUTATION BY DR. PETER SHENKIN - AN ANNUITY IS ANY SET OF EQUAL PAYMENTS MADE AT -EQUAL INTERVALS OF TIME. WITH AN ORDINARY ANNUITY -PAYMENTS ARE MADE AT THE ENDS OF THE PERIODS DE- -FINED BY THESE TIME INTERVALS. FOR AN ANNUITY DUE -THE PAYMENTS ARE MADE AT THE BEGINNING OF THE PER- -IODS IN QUESTION. THE PRESENT VALUE OF AN ANNUITY -IS THE AMOUNT OF CASH ONE WOULD ACCEPT NOW INSTEAD -OF THE SEQUENCE OF FUTURE PAYMENTS. BECAUSE MONEY -HAS TIME VALUE (INTEREST IS CHARGED) THE PRESENT -VALUE DOES NOT EQUAL THE SUM OF THE PAYMENTS. tHE -FUTURE VALUE OF AN ANNUITY IS THE AMOUNT OF CASH -WHICH WOULD ACCUMULATE BY THE END OF THE ANNUITY -IF THE INDIVIDUAL PAYMENTS ARE INVESTED AT THE -PREVAILING INTEREST RATE. -PRESS ENTER TO CONTINUE? -MANY ANNUITIES ALSO INVOLVE A LAST BALLOON PAY- -MENT.IN THE ANNUITY PROBLEMS WE EXAMINE,THE VARIABLES -OF INTEREST ARE NUMBER OF PAYMENTS,INTEREST RATE PER -PERIOD,PAYMENT PER PERIOD,PRESENT OR FUTURE VALUE,AND -BALLOON PAYMENT (AT END OF TERM) IF DESIRED.GIVEN ANY -FOUR VALUES OF THE ABOVE VARIABLES THIS PROGRAM WILL -FIND THE FIFTH VARIABLE WHEN CONSIDERING THE PRESENT -VALUE SITUATION. IN THE FUTURE VALUE CASE NO BALLOON -PAYMENTS ARE CONSIDERED AS IN THIS CASE A BALLOON -PAYMENT OF A CERTAIN AMOUNT WOULD ADD THAT AMOUNT -TO FUTURE VALUE.NOTE THAT INTEREST RATES ARE WRITTEN -AS PER CENTS, NOT AS DECIMALS(E.G. 6%, NOT .06). IN -ADDITION NOTE THAT INTEREST RATE IS PER PERIOD,I.E. -PER MONTH,PER YEAR,ETC. - -PRESS ENTER TO BEGIN? -SELECT TYPE OF PROBLEM DESIRED. - 0.QUIT - 1.ORDINARY ANNUITY-FUTURE VALUE(SINKING FUND) - 2.ANNUITY DUE-FUTURE VALUE - 3.ORDINARY ANNUITY-PRESENT VALUE - 4.ANNUITY DUE-PRESENT VALUE - -MAKE YOUR CHOICE? 1 - -IS INTEREST RATE QUOTED PER PERIOD(P) OR ANNUALLY(A)? A - -NUMBER OF PAYMENTS PER YEAR? 12 -ENTER EACH OF THE FOLLOWING.FOR THE UNKNOWN VALUE -ENTER 9999. - -FUTURE VALUE ? 2345.67 -PAYMENT ? 89.01 -NUMBER OF PAYMENTS ? 12 -ANNUAL INTEREST RATE ? 3.75 -FUTURE VALUE = 2345.67 -NUMBER OF PAYMENTS = 12 - CONSISTING OF 12 PAYMENTS ANNUALLY. -ANNUAL INTEREST RATE = 3.75 -PAYMENT = 89.01 - -PRESS ENTER FOR MORE? -SELECT TYPE OF PROBLEM DESIRED. - 0.QUIT - 1.ORDINARY ANNUITY-FUTURE VALUE(SINKING FUND) - 2.ANNUITY DUE-FUTURE VALUE - 3.ORDINARY ANNUITY-PRESENT VALUE - 4.ANNUITY DUE-PRESENT VALUE - -MAKE YOUR CHOICE? 2 - -IS INTEREST RATE QUOTED PER PERIOD(P) OR ANNUALLY(A)? P -ENTER EACH OF THE FOLLOWING.FOR THE UNKNOWN VALUE -ENTER 9999. - -FUTURE VALUE ? 1234.56 -PAYMENT ? 89.01 -NUMBER OF PAYMENTS ? 36 -INTEREST RATE PER PERIOD(%)? 0.175 -FUTURE VALUE = 1234.56 -NUMBER OF PAYMENTS = 36 -INT. RATE PER PERIOD= .175 -PAYMENT = 89.01 - -PRESS ENTER FOR MORE? -SELECT TYPE OF PROBLEM DESIRED. - 0.QUIT - 1.ORDINARY ANNUITY-FUTURE VALUE(SINKING FUND) - 2.ANNUITY DUE-FUTURE VALUE - 3.ORDINARY ANNUITY-PRESENT VALUE - 4.ANNUITY DUE-PRESENT VALUE - -MAKE YOUR CHOICE? 3 - -IS INTEREST RATE QUOTED PER PERIOD(P) OR ANNUALLY(A)? A - -NUMBER OF PAYMENTS PER YEAR? 24 -ENTER EACH OF THE FOLLOWING.FOR THE UNKNOWN VALUE -ENTER 9999. - -PRESENT VALUE ? 1234.56 -PAYMENT ? 89.01 -NUMBER OF PAYMENTS ? 52 -ANNUAL INTEREST RATE ? 3.25 -BALLOON PAYMENT ? 9999 -PRESENT VALUE = 1234.56 -NUMBER OF PAYMENTS = 52 - CONSISTING OF 24 PAYMENTS ANNUALLY. -ANNUAL INTEREST RATE = 3.25 -PAYMENT = 89.01 -BALLOON PAYMENT =-3467.45 - -PRESS ENTER FOR MORE? -SELECT TYPE OF PROBLEM DESIRED. - 0.QUIT - 1.ORDINARY ANNUITY-FUTURE VALUE(SINKING FUND) - 2.ANNUITY DUE-FUTURE VALUE - 3.ORDINARY ANNUITY-PRESENT VALUE - 4.ANNUITY DUE-PRESENT VALUE - -MAKE YOUR CHOICE? 4 - -IS INTEREST RATE QUOTED PER PERIOD(P) OR ANNUALLY(A)? P -ENTER EACH OF THE FOLLOWING.FOR THE UNKNOWN VALUE -ENTER 9999. - -PRESENT VALUE ? 1234.56 -PAYMENT ? 9999 -NUMBER OF PAYMENTS ? 36 -INTEREST RATE PER PERIOD(%)? 5 -BALLOON PAYMENT ? 55.55 -PRESENT VALUE = 1234.56 -NUMBER OF PAYMENTS = 36 -INT. RATE PER PERIOD= 5 -PAYMENT = 70.5051 -BALLOON PAYMENT = 55.55 - -PRESS ENTER FOR MORE? -SELECT TYPE OF PROBLEM DESIRED. - 0.QUIT - 1.ORDINARY ANNUITY-FUTURE VALUE(SINKING FUND) - 2.ANNUITY DUE-FUTURE VALUE - 3.ORDINARY ANNUITY-PRESENT VALUE - 4.ANNUITY DUE-PRESENT VALUE - -MAKE YOUR CHOICE? 0 diff --git a/bwbtest/T80A/ANNUDEF.BAS b/bwbtest/T80A/ANNUDEF.BAS deleted file mode 100644 index eaa6f5e..0000000 --- a/bwbtest/T80A/ANNUDEF.BAS +++ /dev/null @@ -1,49 +0,0 @@ -1 REM ANNUDEF -5 CLEAR 1000 -10 CLS:PRINT TAB(10); "PRESENT VALUE OF A DEFERRED ANNUITY":PRINT -20 PRINT"AN ANNUITY IS A SEQUENCE OF EQUAL PAYMENTS MADE AT EQUAL -25 PRINT"INTERVALS OF TIME. A DEFERRED ANNUITY IS AN ANNUITY FOR -30 PRINT"WHICH THE FIRST PAYMENT IS NOT MADE UNTIL SOME FIXED TIME -35 PRINT"IN THE FUTURE. THIS PROGRAM WILL COMPUTE THE PRESENT VALUE -40 PRINT"OF A DEFERRED ANNUITY GIVEN THE AMOUNT OF THE INDIVIDUAL -45 PRINT"PAYMENTS, THE NUMBER OF PAYMENTS, THE INTEREST RATE, AND -50 PRINT"THE TIME THE ANNUITY BEGINS. IF DESIRED, A LAST EXTRA -55 PRINT"BALLOON PAYMENT COINCIDING WITH BUT IN ADDITION TO THE -60 PRINT"LAST PAYMENT MAY BE CONSIDERED. -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -1155 PRINT:INPUT"IS INTEREST RATE QUOTED PER PERIOD(P) OR ANNUALLY(A)";ZI$ -1157 IF ZI$<>"P" AND ZI$<>"A" THEN PRINT"INPUT ERROR":GOTO 1155 -1158 IF ZI$="A" THEN PRINT:INPUT"NUMBER OF PAYMENTS PER YEAR";ZN -1160 IF ZI$="A" THEN INPUT"NUMBER OF YEARS INTO FUTURE UNTIL 1ST PAYMENT";NF -1400 GOSUB 3000:GOSUB 3080 -1405 I=I/100 -1410 PV=PMT*(1/I)*(1-(1+I)[(-N))+BAL*(1+I)[(-N) -1420 PV=PV*(1+I)[(-NF) -1460 GOTO 5000 -3000 REM INPUT SBR -3010 CLS:PRINT"ENTER EACH OF THE FOLLOWING. -3050 IF ZI$="A" THEN INPUT"ANNUAL INTEREST RATE(%) ";I -3056 IF ZI$="A" THEN I=I/ZN:NF=NF*ZN-1: GOTO 3070 -3060 INPUT"INTEREST RATE PER PERIOD(%)";I -3065 INPUT"# OF PERIODS INTO FUTURE UNTIL FIRST PAYMENT";NF -3067 NF=NF-1 -3070 INPUT"TOTAL NUMBER OF PAYMENTS";N -3075 RETURN -3080 INPUT"ENTER REGULAR PAYMENT";PMT -3085 INPUT"BALLOON PAYMENT ";BAL -3090 RETURN -5000 REM PRINT OUT -5010 CLS -5025 PRINT"PRESENT VALUE =";PV -5030 PRINT"NUMBER OF PAYMENTS =";N -5033 IF ZI$="A" THEN PRINT " CONSISTING OF ";ZN;" PAYMENTS ANNUALLY." -5035 IF ZI$="A" THEN PRINT"ANNUAL INTEREST RATE =";100*I*ZN:GOTO 5050 -5040 PRINT"INT. RATE PER PERIOD=";100*I -5045 PRINT"PAYMENTS BEGIN";NF+1;"PERIODS INTO THE FUTURE." -5047 IF NI$="A" THEN PRINT"THIS IS";(NF+1)/NV;"YEARS IN THE FUTURE." -5050 PRINT"PAYMENT =";PMT -5060 IF BAL<>0 THEN PRINT"BALLOON PAYMENT =";BAL -5090 PRINT:INPUT"PRESS ENTER FOR MORE";Z9 -5095 IF Z9 = 0 THEN END -5100 GOTO 100 diff --git a/bwbtest/T80A/ANNUDEF.INP b/bwbtest/T80A/ANNUDEF.INP deleted file mode 100644 index 516423f..0000000 --- a/bwbtest/T80A/ANNUDEF.INP +++ /dev/null @@ -1,9 +0,0 @@ - -A -12 -5 -3.25 -360 -1234.56 -56789.01 -0 diff --git a/bwbtest/T80A/ANNUDEF.run b/bwbtest/T80A/ANNUDEF.run deleted file mode 100644 index e7361ec..0000000 --- a/bwbtest/T80A/ANNUDEF.run +++ /dev/null @@ -1,31 +0,0 @@ - PRESENT VALUE OF A DEFERRED ANNUITY - -AN ANNUITY IS A SEQUENCE OF EQUAL PAYMENTS MADE AT EQUAL -INTERVALS OF TIME. A DEFERRED ANNUITY IS AN ANNUITY FOR -WHICH THE FIRST PAYMENT IS NOT MADE UNTIL SOME FIXED TIME -IN THE FUTURE. THIS PROGRAM WILL COMPUTE THE PRESENT VALUE -OF A DEFERRED ANNUITY GIVEN THE AMOUNT OF THE INDIVIDUAL -PAYMENTS, THE NUMBER OF PAYMENTS, THE INTEREST RATE, AND -THE TIME THE ANNUITY BEGINS. IF DESIRED, A LAST EXTRA -BALLOON PAYMENT COINCIDING WITH BUT IN ADDITION TO THE -LAST PAYMENT MAY BE CONSIDERED. - -PRESS ENTER TO BEGIN? - -IS INTEREST RATE QUOTED PER PERIOD(P) OR ANNUALLY(A)? A - -NUMBER OF PAYMENTS PER YEAR? 12 -NUMBER OF YEARS INTO FUTURE UNTIL 1ST PAYMENT? 5 -ENTER EACH OF THE FOLLOWING. -ANNUAL INTEREST RATE(%) ? 3.25 -TOTAL NUMBER OF PAYMENTS? 360 -ENTER REGULAR PAYMENT? 1234.56 -BALLOON PAYMENT ? 56789.01 -PRESENT VALUE = 260117. -NUMBER OF PAYMENTS = 360 - CONSISTING OF 12 PAYMENTS ANNUALLY. -ANNUAL INTEREST RATE = 3.25 -PAYMENT = 1234.56 -BALLOON PAYMENT = 56789. - -PRESS ENTER FOR MORE? 0 diff --git a/bwbtest/T80A/ARBCOMP.BAS b/bwbtest/T80A/ARBCOMP.BAS deleted file mode 100644 index 67a9d08..0000000 --- a/bwbtest/T80A/ARBCOMP.BAS +++ /dev/null @@ -1,51 +0,0 @@ -1 REM ARBCOMP -5 CLEAR 1000 -10 CLS -20 PRINT TAB(10); "ARBITRAGE COMPUTATIONS":PRINT -25 S=0:REM TOTAL VALUE OF PACKAGE -30 PRINT "ARBITRAGE IS SIMPLY BUYING AN ARTICLE IN ONE MARKET AND -35 PRINT "SELLING IT IN ANOTHER MARKET, HOPEFULLY AT A HIGHER PRICE. -40 PRINT "IN THE STOCK MARKET THIS MAY INVOLVE BUYING ONE SECURITY -45 PRINT "AND SELLING ANOTHER EQUIVALENT SECURITY IN THE SAME MARKET. -50 PRINT "THIS TYPE OF ARBITRAGE OCCURS WHEN MERGERS ARE BEING CONSID- -55 PRINT "ERED. OWNERS OF ONE SECURITY MAY TRADE THEM IN FOR ANOTHER -60 PRINT "PACKAGE OF SECURITIES. IN THIS CASE THE OWNERS OF THE FIRST -65 PRINT "SECURITY MAY WONDER WHAT THE VALUE OF THE SECOND PACKAGE IS. -70 PRINT "THIS PROGRAM EVALUATES THE VALUE OF A PACKAGE OF DIFFERENT -75 PRINT "SECURITIES. IN A MERGER A PACKAGE OF COMPANY A SECURITIES AND -80 PRINT "CASH ARE GENERALLY TRADED FOR A PACKAGE OF COMPANY B SECURITIES -85 PRINT "USUALLY SOME SHARES OF COMMON STOCK. -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 DIM A(100),B(100),C(100) -110 REM A( )=VALUE OF 1 UNIT:B( )=# UNITS:C( )=EXTENDED VALUE -200 CLS -210 PRINT "FOR EACH SECURITY IN PACKAGE ENTER PRICE/UNIT AND NO. UNITS -220 PRINT "IN PACKAGE. -230 I=1 -240 PRINT "ENTER VALUE OF 1 UNIT OF SECURITY";I;"(-1 TO END)";:INPUT A(I) -250 IF A(I)=-1 THEN GOTO 300 -260 PRINT "ENTER # OF UNITS OF SECURITY";I;"IN PACKAGE";:INPUT B(I) -270 C(I)=A(I)*B(I):S=S+C(I) -280 I=I+1:PRINT :GOTO 240 -300 REM FINISH UP & PRINT -310 I=I-1 -320 F$(1)="VALUE OF UNIT # OF UNITS TOTAL VALUE" -330 F$(2)=" $$#####.## #####.#### $$######.###" -340 F$(3)=" GRAND TOTAL VALUE $$#######.###" -350 CLS -360 INPUT "IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -370 IF Z2$<>"Y" AND Z2$<>"N" THEN GOTO 360 -375 PRINT :IF Z2$="Y" THEN INPUT "PRESS ENTER WHEN PRINTER READY";Z9$ -380 CLS -400 PRINT F$(1):PRINT :IF Z2$="Y" THEN LPRINT F$(1):LPRINT " " -410 FOR J=1 TO I -420 PRINT USING F$(2);A(J),B(J),C(J) -430 IF Z2$="Y" THEN LPRINT USING F$(2);A(J),B(J),C(J) -440 NEXT J -450 PRINT STRING$(64,"="):IF Z2$="Y" THEN LPRINT STRING$(64,"=") -460 PRINT USING F$(3);S:IF Z2$="Y" THEN LPRINT USING F$(3);S -470 PRINT -480 INPUT "PRESS ENTER FOR MORE COMPUTATION";Z9$ -485 IF Z9$ = "0" THEN END -490 GOTO 200 - diff --git a/bwbtest/T80A/ARBCOMP.INP b/bwbtest/T80A/ARBCOMP.INP deleted file mode 100644 index 09c8cfd..0000000 --- a/bwbtest/T80A/ARBCOMP.INP +++ /dev/null @@ -1,9 +0,0 @@ - -123.45 -67 -89.01 -234 --1 -Y - -0 diff --git a/bwbtest/T80A/ARBCOMP.run b/bwbtest/T80A/ARBCOMP.run deleted file mode 100644 index c0185e0..0000000 --- a/bwbtest/T80A/ARBCOMP.run +++ /dev/null @@ -1,36 +0,0 @@ - ARBITRAGE COMPUTATIONS - -ARBITRAGE IS SIMPLY BUYING AN ARTICLE IN ONE MARKET AND -SELLING IT IN ANOTHER MARKET, HOPEFULLY AT A HIGHER PRICE. -IN THE STOCK MARKET THIS MAY INVOLVE BUYING ONE SECURITY -AND SELLING ANOTHER EQUIVALENT SECURITY IN THE SAME MARKET. -THIS TYPE OF ARBITRAGE OCCURS WHEN MERGERS ARE BEING CONSID- -ERED. OWNERS OF ONE SECURITY MAY TRADE THEM IN FOR ANOTHER -PACKAGE OF SECURITIES. IN THIS CASE THE OWNERS OF THE FIRST -SECURITY MAY WONDER WHAT THE VALUE OF THE SECOND PACKAGE IS. -THIS PROGRAM EVALUATES THE VALUE OF A PACKAGE OF DIFFERENT -SECURITIES. IN A MERGER A PACKAGE OF COMPANY A SECURITIES AND -CASH ARE GENERALLY TRADED FOR A PACKAGE OF COMPANY B SECURITIES -USUALLY SOME SHARES OF COMMON STOCK. - -PRESS ENTER TO BEGIN? -FOR EACH SECURITY IN PACKAGE ENTER PRICE/UNIT AND NO. UNITS -IN PACKAGE. -ENTER VALUE OF 1 UNIT OF SECURITY 1 (-1 TO END)? 123.45 -ENTER # OF UNITS OF SECURITY 1 IN PACKAGE? 67 - -ENTER VALUE OF 1 UNIT OF SECURITY 2 (-1 TO END)? 89.01 -ENTER # OF UNITS OF SECURITY 2 IN PACKAGE? 234 - -ENTER VALUE OF 1 UNIT OF SECURITY 3 (-1 TO END)? -1 -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y - -PRESS ENTER WHEN PRINTER READY? -VALUE OF UNIT # OF UNITS TOTAL VALUE - - $123.45 67.0000 $8271.150 - $89.01 234.0000 $20828.340 -================================================================ - GRAND TOTAL VALUE $29099.490 - -PRESS ENTER FOR MORE COMPUTATION? 0 diff --git a/bwbtest/T80A/ASSIGN.BAS b/bwbtest/T80A/ASSIGN.BAS deleted file mode 100644 index 83c9a0e..0000000 --- a/bwbtest/T80A/ASSIGN.BAS +++ /dev/null @@ -1,119 +0,0 @@ -1 REM ASSIGN -5 CLEAR 100 -10 CLS:PRINT TAB(20);"ASSIGNMENT COST":PRINT -20 PRINT"THE ASSIGNMENT PROBLEM EXAMINED IN THIS PROGRAM IS OF THE -25 PRINT"FOLLOWING TYPE: THERE ARE A FIXED NUMBER OF JOBS TO BE DONE -30 PRINT"(SAY N JOBS), AND THE SAME NUMBER(N) OF POSSIBLE ASSIGNEES, -35 PRINT"I.E. THOSE WHO CAN DO THE JOB. THE ASSIGNEES HAVE DIFFERENT -40 PRINT"EFFICIENCIES FOR THE DIFFERENT JOBS. IN FACT FOR EACH -45 PRINT"JOB-ASSIGNEE COMBINATION WE CAN ASSIGN SOME COST. EACH -50 PRINT"ASSIGNEE IS ASSIGNED TO 1 AND ONLY 1 JOB. THE PROGRAM WILL -55 PRINT"FIND THE ASSIGNMENT WHICH MINIMIZES TOTAL COST. -60 PRINT:PRINT"THIS PROGRAM IS SET UP FOR A MAXIMUM OF 9 DIFFERENT JOBS -65 PRINT"AND 9 DIFFERENT POSSIBLE ASSIGNMENTS. -90 PRINT:INPUT"PRESS ENTER TO CONTINUE";Z9$ -100 MAXX = 9 -110 DIM C(MAXX+1,MAXX+1),MA(MAXX+1),JO(MAXX+1),SZ(MAXX+1),AU(MAXX+1),SA(MAXX+1) -120 CLS -130 PRINT"HOW MANY JOBS MUST BE ASSIGNED(<=";MAXX;:INPUT N -140 IF N<1 OR N>MAXX OR N<>INT(N) THEN GOSUB 10000:PRINT:GOTO 130 -150 PRINT -160 FOR I=1 TO N -170 PRINT"FOR JOB";I -180 FOR J=1 TO N -190 PRINT" COST FOR ASSIGNEE";J;:INPUT C(I,J) -200 NEXT J -210 PRINT -220 NEXT I -230 PRINT:GOSUB 10100 -235 CLS -240 INPUT"IS LINEPRINTER OUTPUT OF INITIAL COST ASSIGNMENT DESIRED(Y/N)";Z2$ -250 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:PRINT:GOTO 240 -260 IF Z2$="N" THEN GOTO 300 -270 PRINT:INPUT"PRESS ENTER WHEN PRINTER READY";Z9$ -273 FOR I=1 TO N -275 LPRINT"FOR JOB";I -278 FOR J=1 TO N -280 LPRINT" COST FOR ASSIGNEE";J;"=";C(I,J) -285 NEXT J:NEXT I -300 CLS:PRINT:PRINT:PRINT:PRINT"COMPUTING" -305 FOR I=1 TO N:FOR J=1 TO N:C(I,J)=-C(I,J):NEXT:NEXT -320 ZL=0:FOR I=1 TO N:AU(I)=0:NEXT -326 FOR I=1 TO N:MA(I)=0:W=-1E9 -332 FOR J=1 TO N -334 IF AU(J)=1 THEN GOTO 342 -336 IF C(I,J)<=W THEN GOTO 342 -338 W=C(I,J):J1=J -342 NEXT J -344 AU(J1)=1 -346 ZL=ZL+W -348 SA(I)=J1 -350 NEXT I -370 REM START SEARCH -375 I=1 -380 J=1 -390 FOR M=1 TO I -400 IF J=MA(M) THEN J=J+1:GOTO 390 -410 NEXT M -420 MA(I)=J -430 GOSUB 1000 -440 SZ(I)=ZU:IF ZU<=ZL THEN GOTO 600 -460 I=I+1:IF I<=N THEN GOTO 380 -480 FOR I=1 TO N:SA(I)=MA(I):NEXT I -510 I=N:ZL=ZU:REM NEW BOUND -540 IF SZ(I-1)<>ZL THEN GOTO 660 -550 MA(I)=0:I=I-1:IF I=1 THEN GOTO 660 -580 GOTO 540 -600 J=MA(I) -610 J=J+1 -620 IF J<=N THEN GOTO 680 -630 MA(I)=0:I=I-1 -660 IF I=0 THEN GOTO 740 -670 GOTO 600 -680 IM=I-1 -690 IF IM=0 THEN IM=1 -700 FOR L=1 TO IM:IF J=MA(L) THEN GOTO 610 -720 NEXT L -730 GOTO 420 -740 CLS -750 INPUT"IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -760 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 750 -770 CLS:PRINT"OPTIMAL ASSIGNMENT" -780 FOR I=1 TO N -790 PRINT TAB(10);"JOB ";SA(I);"GETS ASSIGNEE";I;" COST = ";-C(SA(I),I) -800 NEXT -802 ZL=-ZL -805 PRINT:PRINT TAB(30);"TOTAL COST = ";ZL -810 IF Z2$="N" THEN GOTO 900 -815 LPRINT TAB(20);"OPTIMAL ASSIGNMENT":LPRINT" " -820 FOR I=1 TO N -830 LPRINT "JOB ";SA(I);"GETS ASSIGNEE";I;" COST = ";-C(SA(I),I) -832 NEXT I -835 LPRINT TAB(20);"TOTAL COST = ";ZL -900 PRINT:INPUT"PRESS ENTER TO START AGAIN";Z9$ -905 IF Z9$ = "0" THEN END -910 CLEAR 1000:GOTO 100 -1000 FOR CI=1 TO N:AU(CI)=MA(CI):NEXT CI -1030 FOR CI=1 TO N -1040 IF AU(CI)=0 THEN GOTO 1070 -1050 NEXT CI -1060 CI=N+1:CM=CI-1:GOTO 1210 -1070 CM=CI-1 -1080 FOR MN=CI TO N -1090 CW=-1E9 -1100 FOR JB=1 TO N -1110 IF CI=1 THEN GOTO 1150 -1120 FOR L=1 TO CM -1130 IF JB=AU(L) THEN GOTO 1170 -1140 NEXT L -1150 IF C(MN,JB)<=CW THEN GOTO 1170 -1160 CW=C(MN,JB) -1170 NEXT JB -1180 AU(MN)=CW -1190 NEXT MN -1200 IF CI=1 THEN GOTO 1240 -1210 FOR CJ=1 TO CM:AU(CJ)=C(CJ,MA(CJ)):NEXT CJ -1240 ZU=0:FOR CJ=1 TO N:ZU=ZU+AU(CJ):NEXT CJ -1280 RETURN -10000 PRINT"INPUT ERROR!TRY AGAIN!":FOR JJ=1 TO 300:NEXT:RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/ASSIGN.INP b/bwbtest/T80A/ASSIGN.INP deleted file mode 100644 index 5b190e3..0000000 --- a/bwbtest/T80A/ASSIGN.INP +++ /dev/null @@ -1,11 +0,0 @@ - -2 -123.45 -678.90 -987.65 -432.10 - -Y - -Y -0 diff --git a/bwbtest/T80A/ASSIGN.run b/bwbtest/T80A/ASSIGN.run deleted file mode 100644 index 80c97dd..0000000 --- a/bwbtest/T80A/ASSIGN.run +++ /dev/null @@ -1,42 +0,0 @@ - ASSIGNMENT COST - -THE ASSIGNMENT PROBLEM EXAMINED IN THIS PROGRAM IS OF THE -FOLLOWING TYPE: THERE ARE A FIXED NUMBER OF JOBS TO BE DONE -(SAY N JOBS), AND THE SAME NUMBER(N) OF POSSIBLE ASSIGNEES, -I.E. THOSE WHO CAN DO THE JOB. THE ASSIGNEES HAVE DIFFERENT -EFFICIENCIES FOR THE DIFFERENT JOBS. IN FACT FOR EACH -JOB-ASSIGNEE COMBINATION WE CAN ASSIGN SOME COST. EACH -ASSIGNEE IS ASSIGNED TO 1 AND ONLY 1 JOB. THE PROGRAM WILL -FIND THE ASSIGNMENT WHICH MINIMIZES TOTAL COST. - -THIS PROGRAM IS SET UP FOR A MAXIMUM OF 9 DIFFERENT JOBS -AND 9 DIFFERENT POSSIBLE ASSIGNMENTS. - -PRESS ENTER TO CONTINUE? -HOW MANY JOBS MUST BE ASSIGNED(<= 9 ? 2 - -FOR JOB 1 - COST FOR ASSIGNEE 1 ? 123.45 - COST FOR ASSIGNEE 2 ? 678.90 - -FOR JOB 2 - COST FOR ASSIGNEE 1 ? 987.65 - COST FOR ASSIGNEE 2 ? 432.10 - - -PRESS ENTER TO CONTINUE? -IS LINEPRINTER OUTPUT OF INITIAL COST ASSIGNMENT DESIRED(Y/N)? Y - -PRESS ENTER WHEN PRINTER READY? - - - -COMPUTING -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -OPTIMAL ASSIGNMENT - JOB 1 GETS ASSIGNEE 1 COST = 123.45 - JOB 2 GETS ASSIGNEE 2 COST = 432.1 - - TOTAL COST = 555.55 - -PRESS ENTER TO START AGAIN? 0 diff --git a/bwbtest/T80A/AUTOEXP.BAS b/bwbtest/T80A/AUTOEXP.BAS deleted file mode 100644 index 51b69d5..0000000 --- a/bwbtest/T80A/AUTOEXP.BAS +++ /dev/null @@ -1,239 +0,0 @@ -1 CLS:PRINT TAB(5);"AUTO EXPENSE ANALYSIS":PRINT -2 PRINT "THIS SIMPLE PROGRAM WILL PERMIT THE INDIVIDUAL TO KEEP A -3 PRINT "RECORD OF ALL EXPENSES PERTAINING TO THE USE OF AN AUTOMOBILE. -4 PRINT "FOR EACH EXPENSE THIS PROGRAM STORES THE FOLLOWING: -5 PRINT "AN EXPENSE TYPE CHOSEN FROM GAS,OIL,MAIN,TOLL,INS,PAYM OR MISC -6 PRINT "MAIN MEANS MAINTENANCE,INS IS INSURANCE,PAYM IS CAR PAYMENT. -7 PRINT "IN ADDITION TO TYPE EXPENSE THERE IS DESCRIPTION,DATE,PLACE OF -8 PRINT "SERVICE,QUANTITY PURCHASED,BILL AMOUNT AND ODOMETER READING. -9 PRINT "THIS DATA IS STORED IN A FILE IN MEMORY. THIS FILE MAY BE -10 PRINT "SAVED ON DISKETTE OR CASSETTE AND RECALLED,IT MAY BE EDITED -11 PRINT "LISTED ON CRT OR PRINTER,ETC. A MILES PER GALLON CALCULATION -12 PRINT "MAY ALSO BE PERFORMED. -15 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -50 CLEAR 3000 -60 DIM AA$(70,4),BB(70,3) -65 DIM AT$(70,4),BT(70,3) -70 GOSUB 9000 -100 ' CLS:INPUT "ARE DISK DRIVES ATTACHED(Y/N)";ZD$ -110 ' IF ZD$<>"Y" AND ZD$<>"N" THEN GOSUB 10000:GOTO 100 -120 ZD$ = "Y" ' bwBASIC does not support cassette input -500 CLS:PRINT " MAIN MENU":PRINT -505 PRINT " 0.QUIT -510 PRINT " 1.ADD TO FILE OR BEGIN NEW FILE -520 PRINT " 2.READ FILE IN FROM TAPE -530 PRINT " 3.WRITE FILE OUT ONTO TAPE -540 PRINT " 4.READ FILE IN FROM DISK -550 PRINT " 5.WRITE FILE OUT ONTO DISK -560 PRINT " 6.EDIT FILE -570 PRINT " 7.LIST CONTENTS, COMPLETE OR BY TYPE -580 PRINT " 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -590 Z9=0 -600 INPUT "ENTER YOUR CHOICE";Z9 -605 IF Z9 = 0 THEN END -610 ON Z9 GOSUB 1000,2000,2100,2200,2300,3000,5000,7000 -620 GOTO 500 -1000 REM ADD TO OR START FILE ALREADY IN MEMORY -1010 CLS: IF NI=0 THEN PRINT "NEW FILE":GOSUB 10100 -1013 IF NI=0 THEN GOSUB 6500:PRINT "INITIAL ENTRY DONE":GOSUB 10100:CLS -1015 J=NI+1 -1020 GOSUB 6000:REM INPUT 1 RECORD -1030 CLS:PRINT F$(2):GOSUB 6100:REM PRINT OUT 1 RECORD -1040 GOSUB 10200:IF Z9$="N" THEN GOTO 1020 -1050 IF Z9$="A" THEN RETURN -1060 NI=NI+1:REM NEW RECORD ON FILE -1070 GOSUB 10400:REM MORE? -1080 IF Z9$="Y" THEN GOTO 1000 : ELSE RETURN -2000 REM READ IN FILE FROM TAPE -2010 CLS:PRINT "PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2015 ' IF ZD$="Y" THEN CMD"T" -2020 INPUT #-1,NI -2030 FOR J=0 TO NI:INPUT #-1,AA$(J,1),AA$(J,2),AA$(J,3),AA$(J,4),BB(J,1),BB(J,2),BB(J,3):NEXT -2040 RETURN -2100 REM WRITE OUT FILE ONTO TAPE -2105 CLS -2110 PRINT "PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2115 ' IF ZD$="Y" THEN CMD"T" -2130 WRITE #-1,NI -2140 FOR J=0 TO NI:WRITE #-1,AA$(J,1),AA$(J,2),AA$(J,3),AA$(J,4),BB(J,1),BB(J,2),BB(J,3):NEXT -2150 RETURN -2200 REM READ IN FILE FROM DISK -2210 CLS:PRINT "PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2220 ON ERROR GOTO 2290 -2225 PRINT :INPUT "ENTER NAME OF FILE TO READ IN";FI$ -2230 OPEN "I",1,FI$ -2240 INPUT # 1,NI -2250 FOR J=0 TO NI:INPUT # 1,AA$(J,1),AA$(J,2),AA$(J,3),AA$(J,4),BB(J,1),BB(J,2),BB(J,3):FOR JJ=1 TO 4:Z8$=AA$(J,JJ):GOSUB 11000:AA$(J,JJ)=Z8$:NEXT JJ:NEXT -2260 CLOSE # 1 -2270 RETURN -2290 PRINT "FILE DOES NOT EXIST":GOSUB 10100:RETURN -2300 REM WRITE FILE OUT TO DISK -2305 CLS -2310 PRINT :PRINT "PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2315 PRINT :PRINT "PRESENT DISK FILE IS ";FI$;" ";:INPUT "NEW FILE ";FI$ -2320 OPEN "O",1,FI$ -2330 WRITE # 1,NI -2340 FOR J=0 TO NI:WRITE # 1,AA$(J,1),AA$(J,2),AA$(J,3),AA$(J,4),BB(J,1),BB(J,2),BB(J,3):NEXT -2370 CLOSE # 1 -2380 RETURN -3000 REM EDIT FILE -3010 CLS:PRINT " ";F$(2) -3020 FOR J=0 TO NI -3030 PRINT USING "## ";J; -3040 GOSUB 6100 -3050 IF J/12=INT(J/12) THEN GOSUB 4000 -3060 NEXT J -3062 J=J-1 -3065 IF J/12=INT(J/12) THEN GOTO 3080 -3070 GOSUB 4000 -3080 RETURN -4000 REM EDIT SUBROUTINE -4010 K=J -4020 PRINT -4025 J=0 -4028 PRINT "CHANGE TYPE CODE TO ZZZZ FOR DELETING" -4030 INPUT "ENTER # OF ITEM YOU WISH TO EDIT,0 IF NONE";J -4035 IF J=0 THEN J=K:RETURN -4040 CLS:PRINT " ";F$(2):PRINT -4050 PRINT " ";:GOSUB 6100 -4060 PRINT :GOSUB 6000 -4070 CLS:PRINT " ";F$(2) -4080 FOR J=INT(K/12)*12+1 TO K:PRINT USING "## ";J;:GOSUB 6100:NEXT -4090 GOTO 4020 -5000 REM LIST FILE WITH ANALYSIS -5005 INPUT "IS A LINE PRINTER TO BE USED(Y/N)";Z2$:IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 5005 -5010 CLS:PRINT " LIST MENU":PRINT -5020 PRINT "1. COMPLETE LIST AS ON FILE -5030 PRINT "2. LIST BY TYPE -5050 PRINT "3. END LIST PROGRAM -5060 PRINT :INPUT "ENTER APPROPRIATE CHOICE";Z9 -5065 IF Z9=3 THEN RETURN -5070 ON Z9 GOSUB 5200,5300 -5080 GOTO 5010 -5100 RETURN -5200 REM COMPLETE LIST -5205 CLS:IF Z2$="Y" THEN PRINT "PUT PAPER INTO PRINTER":GOSUB 10100 -5210 PRINT F$(2):IF Z2$="Y" THEN LPRINT TAB(20);"COMPLETE LIST":LPRINT F$(5) -5215 V(1)=0:V(2)=0:V(3)=0:V(4)=0 -5220 FOR J = 0 TO NI -5230 GOSUB 6100:GOSUB 6300:REM 1 RECORD PRINTED -5233 IF AA$(J,1)="GAS" THEN V(1)=V(1)+BB(J,1):GM=J:OD=BB(J,3) ' REM TOTAL GASOLINE -5236 V(2)=V(2)+BB(J,2):REM TOTAL COST -5237 V(3)=OD-BB(0,3):REM TOTAL MILEAGE -5238 V(4)=BB(GM,3)-BB(0,3):REM TOTAL MILEAGE FOR GASOLINE -5240 IF J/12 = INT(J/12) THEN PRINT :GOSUB 10100:CLS:PRINT F$(2) -5250 NEXT J -5260 PRINT :GOSUB 10100 -5262 PRINT USING "TOTAL GASOLINE USED : #####.##";V(1) -5264 PRINT USING "TOTAL MILEAGE GONE : ######.##";V(3) -5265 PRINT USING "TOTAL COST OF USE : $$####.##";V(2) -5266 PRINT USING "MILES/GALLON : ###.##";V(4)/V(1) -5267 PRINT USING "TOTAL COST/MILE : $$#####.##";V(2)/V(3) -5268 IF Z2$<>"Y" THEN GOTO 5280 -5271 LPRINT " ":LPRINT " " -5272 LPRINT USING "TOTAL GASOLINE USED : #####.##";V(1) -5274 LPRINT USING "TOTAL MILEAGE GONE : ######.##";V(3) -5275 LPRINT USING "TOTAL COST OF USE : $$####.##";V(2) -5276 LPRINT USING "MILES/GALLON : ###.##";V(4)/V(1) -5277 LPRINT USING "TOTAL COST/MILE : $$#####.##";V(2)/V(3) -5280 PRINT :GOSUB 10100:RETURN -5300 REM LIST TYPE -5305 CLS:INPUT "ENTER TYPE DESIRED";RM$ -5310 V(1)=0:V(2)=0:V(3)=0:V(4)=0 -5315 CLS:PRINT @ 398,"******* COMPUTING *******" -5320 FOR J=0 TO NI -5325 IF RM$<>AA$(J,1) THEN GOTO 5390 -5330 V(1)=V(1)+BB(J,2):REM TOTAL COST FOR THIS EXPESE TYPE -5390 NEXT J -5400 CLS:PRINT F$(2):IF Z2$="Y" THEN LPRINT TAB(20); "LIST OF TYPE ";RM$:LPRINT F$(5) -5405 JJ=0 -5410 FOR J=0 TO NI -5415 IF RM$<>AA$(J,1) THEN GOTO 5450 -5417 JJ=JJ+1 -5420 GOSUB 6100 -5430 GOSUB 6300 -5440 IF JJ/12=INT(JJ/12) THEN GOSUB 10100:CLS:PRINT F$(2):PRINT F$(6) -5450 NEXT J -5460 PRINT :GOSUB 10100 -5470 PRINT -5480 PRINT USING "TOTAL COST FOR THIS EXPENSE TYPE : $$#####.##";V(1) -5500 IF Z2$<>"Y" THEN GOTO 5550 -5505 LPRINT " ":LPRINT " " -5510 LPRINT USING "TOTAL COST FOR THIS EXPENSE TYPE : $$#####.##";V(1) -5530 LPRINT :LPRINT -5550 PRINT :GOSUB 10100:RETURN -6000 REM SBR FOR INPUTTING DATA ON 1 PURCHASE -6005 F$(1)="% %" -6008 PRINT "EXPENSE TYPES: GAS OIL MAIN TOLL INS PAYM MISC":PRINT -6010 PRINT USING F$(1);AA$(J,1),:INPUT "TYPE EXPENSE ";AA$(J,1) -6012 A$=AA$(J,1):IF A$<>"GAS" AND A$<>"OIL" AND A$<>"MAIN" AND A$<>"TOLL" AND A$<>"INS" AND A$<>"PAYM" AND A$<>"MISC" AND A$<>"ZZZZ" THEN GOSUB 10000:GOTO 6008 -6015 PRINT USING F$(1);AA$(J,2),:INPUT "EXP. DESCRIPTION ";AA$(J,2) -6020 PRINT USING F$(1);AA$(J,3),:INPUT "DATE OF EXPENSE ";AA$(J,3) -6023 PRINT USING F$(1);AA$(J,4),:INPUT "PLACE OF SERVICE ";AA$(J,4) -6035 F$(1)=" #########.## " -6040 PRINT USING F$(1);BB(J,1),:INPUT "QUANT. PURCH ";BB(J,1) -6050 PRINT USING F$(1);BB(J,2),:INPUT "BILL AMOUNT ";BB(J,2) -6055 PRINT USING F$(1);BB(J,3),:INPUT "ODOMETER READ. ";BB(J,3) -6099 RETURN -6100 REM PRINT 1 LINE OF PORTFOLIO -6110 PRINT USING F$(4);AA$(J,1),AA$(J,2),AA$(J,3),AA$(J,4),BB(J,1),BB(J,2),BB(J,3) -6120 RETURN -6300 REM PRINT 1 LINE OF PORTFOLIO ON PRINTER -6310 IF Z2$<>"Y" THEN RETURN -6320 LPRINT USING F$(7);AA$(J,1),AA$(J,2),AA$(J,3),AA$(J,4),BB(J,1),BB(J,2),BB(J,3) -6330 RETURN -6500 REM INITIAL INPUT -6510 CLS -6520 PRINT "INITIAL INPUT ENTRY" -6522 PRINT "MAKE THIS ENTRY WITH A FULL GAS TANK":PRINT -6530 AA$(0,1)="GAS":AA$(0,2)="INITIAL" -6540 INPUT "ENTER DATE(MM/DD/YY)";AA$(0,3) -6550 INPUT "ENTER ODOMETER READING";BB(0,3) -6560 RETURN -7000 REM DELETE SBR COMPUTATION -7005 K=1:REM K=NO. OF RECORDS NOT DELETED -7010 FOR J=1 TO NI -7020 IF AA$(J,1)="ZZZZ" THEN GOTO 7090 -7030 REM DO NOT DELETE RECORD -7040 FOR J6=1 TO 4:AT$(K,J6)=AA$(J,J6):NEXT -7050 FOR J6=1 TO 3:BT(K,J6)=BB(J,J6):NEXT -7060 K=K+1:GOTO 7090 -7090 NEXT J -7100 K=K-1:NI=K -7110 FOR J=1 TO NI -7120 FOR J6=1 TO 4:AA$(J,J6)=AT$(J,J6):NEXT -7130 FOR J6=1 TO 3:BB(J,J6)=BT(J,J6):NEXT -7140 NEXT J -7150 RETURN -9000 REM FORMATTING VARIABLES -9020 F$(2)="TYPE DESCRIPT DATE PLACE QUANT. $ AMT. ODOMETER" -9030 F$(4)="% % % % % % % % ####.# ####.## ######.#" -9040 F$(5)="TYPE DESCRIPTION DATE PLACE QUANTITY $ AMT. ODOMETER" -9060 F$(7)="% % % % % % % % ####.# $$###.## ######.#" -9099 RETURN -10000 REM INPUT ERROR SBR -10010 PRINT "INPUT ERROR! TRY AGAIN!":FOR Z9=1 TO 300:NEXT Z9 -10020 RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9:RETURN -10200 REM Y,N,A SBR -10205 Z9$=" " -10210 INPUT "ENTER Y IF OK,N IF ERROR,A TO ABORT";Z9$ -10220 IF Z9$<>"Y" AND Z9$<>"N" AND Z9$<>"A" THEN GOSUB 10000:GOTO 10205 -10230 RETURN -10300 REM Y,N SBR -10305 Z9$=" " -10310 INPUT "ENTER Y IF OK, N IF ERROR";Z9$ -10320 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10305 -10330 RETURN -10400 REM MORE ENTRY? SBR -10405 Z9$=" " -10410 INPUT "DO YOU DESIRE MORE ENTRIES(Y/N)";Z9$ -10420 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10405 -10430 RETURN -10500 REM ONLY Y/N SBR -10510 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000 -10520 RETURN -11000 REM ELIMINATES TRAILING BLANKS OF VARIABLE Z8$ -11010 IF RIGHT$(Z8$,1)=" " THEN Z8$=LEFT$(Z8$,LEN(Z8$)-1):GOTO 11010 -11020 RETURN - diff --git a/bwbtest/T80A/AUTOEXP.DAT b/bwbtest/T80A/AUTOEXP.DAT deleted file mode 100644 index 5cb414b..0000000 --- a/bwbtest/T80A/AUTOEXP.DAT +++ /dev/null @@ -1,3 +0,0 @@ -1 -"GAS","INITIAL","01/02/03","",0,0,123000 -"GAS","fillup","01/03/03","66",12.3,39.87,123456 diff --git a/bwbtest/T80A/AUTOEXP.INP b/bwbtest/T80A/AUTOEXP.INP deleted file mode 100644 index a67091c..0000000 --- a/bwbtest/T80A/AUTOEXP.INP +++ /dev/null @@ -1,34 +0,0 @@ - -1 - -01/02/03 -123000 - -GAS -fillup -01/03/03 -66 -12.3 -39.87 -123456 -Y -N -5 - -AUTOEXP.DAT -4 - -AUTOEXP.DAT -7 -Y -1 - - - - -2 -GAS - - -3 -0 diff --git a/bwbtest/T80A/AUTOEXP.run b/bwbtest/T80A/AUTOEXP.run deleted file mode 100644 index fa59dae..0000000 --- a/bwbtest/T80A/AUTOEXP.run +++ /dev/null @@ -1,157 +0,0 @@ - AUTO EXPENSE ANALYSIS - -THIS SIMPLE PROGRAM WILL PERMIT THE INDIVIDUAL TO KEEP A -RECORD OF ALL EXPENSES PERTAINING TO THE USE OF AN AUTOMOBILE. -FOR EACH EXPENSE THIS PROGRAM STORES THE FOLLOWING: -AN EXPENSE TYPE CHOSEN FROM GAS,OIL,MAIN,TOLL,INS,PAYM OR MISC -MAIN MEANS MAINTENANCE,INS IS INSURANCE,PAYM IS CAR PAYMENT. -IN ADDITION TO TYPE EXPENSE THERE IS DESCRIPTION,DATE,PLACE OF -SERVICE,QUANTITY PURCHASED,BILL AMOUNT AND ODOMETER READING. -THIS DATA IS STORED IN A FILE IN MEMORY. THIS FILE MAY BE -SAVED ON DISKETTE OR CASSETTE AND RECALLED,IT MAY BE EDITED -LISTED ON CRT OR PRINTER,ETC. A MILES PER GALLON CALCULATION -MAY ALSO BE PERFORMED. - -PRESS ENTER TO BEGIN? - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST CONTENTS, COMPLETE OR BY TYPE - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 1 -NEW FILE -PRESS ENTER TO CONTINUE? -INITIAL INPUT ENTRY -MAKE THIS ENTRY WITH A FULL GAS TANK - -ENTER DATE(MM/DD/YY)? 01/02/03 -ENTER ODOMETER READING? 123000 -INITIAL ENTRY DONE -PRESS ENTER TO CONTINUE? -EXPENSE TYPES: GAS OIL MAIN TOLL INS PAYM MISC - - TYPE EXPENSE ? GAS - EXP. DESCRIPTION ? fillup - DATE OF EXPENSE ? 01/03/03 - PLACE OF SERVICE ? 66 - 0.00 QUANT. PURCH ? 12.3 - 0.00 BILL AMOUNT ? 39.87 - 0.00 ODOMETER READ. ? 123456 -TYPE DESCRIPT DATE PLACE QUANT. $ AMT. ODOMETER -GAS fillup 01/03/03 66 12.3 39.87 123456.0 -ENTER Y IF OK,N IF ERROR,A TO ABORT? Y -DO YOU DESIRE MORE ENTRIES(Y/N)? N - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST CONTENTS, COMPLETE OR BY TYPE - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 5 - -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? - -PRESENT DISK FILE IS NEW FILE ? AUTOEXP.DAT - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST CONTENTS, COMPLETE OR BY TYPE - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 4 -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? - -ENTER NAME OF FILE TO READ IN? AUTOEXP.DAT - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST CONTENTS, COMPLETE OR BY TYPE - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 7 -IS A LINE PRINTER TO BE USED(Y/N)? Y - LIST MENU - -1. COMPLETE LIST AS ON FILE -2. LIST BY TYPE -3. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 1 -PUT PAPER INTO PRINTER -PRESS ENTER TO CONTINUE? -TYPE DESCRIPT DATE PLACE QUANT. $ AMT. ODOMETER -GAS INITIAL 01/02/03 0.0 0.00 123000.0 - -PRESS ENTER TO CONTINUE? -TYPE DESCRIPT DATE PLACE QUANT. $ AMT. ODOMETER -GAS fillup 01/03/03 66 12.3 39.87 123456.0 - -PRESS ENTER TO CONTINUE? -TOTAL GASOLINE USED : 12.30 -TOTAL MILEAGE GONE : 456.00 -TOTAL COST OF USE : $39.87 -MILES/GALLON : 37.07 -TOTAL COST/MILE : $0.09 - -PRESS ENTER TO CONTINUE? - LIST MENU - -1. COMPLETE LIST AS ON FILE -2. LIST BY TYPE -3. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 2 -ENTER TYPE DESIRED? GAS - -******* COMPUTING ******* -TYPE DESCRIPT DATE PLACE QUANT. $ AMT. ODOMETER -GAS INITIAL 01/02/03 0.0 0.00 123000.0 -GAS fillup 01/03/03 66 12.3 39.87 123456.0 - -PRESS ENTER TO CONTINUE? - -TOTAL COST FOR THIS EXPENSE TYPE : $39.87 - -PRESS ENTER TO CONTINUE? - LIST MENU - -1. COMPLETE LIST AS ON FILE -2. LIST BY TYPE -3. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 3 - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST CONTENTS, COMPLETE OR BY TYPE - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 0 diff --git a/bwbtest/T80A/BAYES.BAS b/bwbtest/T80A/BAYES.BAS deleted file mode 100644 index 78313fa..0000000 --- a/bwbtest/T80A/BAYES.BAS +++ /dev/null @@ -1,55 +0,0 @@ -1 REM BAYES -10 CLS:PRINT TAB(10); "BAYES PROBABILITIES":PRINT -20 PRINT"THIS THEOREM USES BAYES THEOREM TO REVISE ESTIMATES OF -25 PRINT "THE PROBABILITIES OF THE OCCURRENCE OF THE VARIOUS STATES OF -30 PRINT "NATURE. INPUT TO THIS PROGRAM ARE THE PROBABILITIES OF A -35 PRINT "A FINITE AND USER SELECTABLE NUMBER OF STATES OF NATURE, -40 PRINT "THESE PROBABILITIES MUST SUM UP TO 1. IN ADDITION, -45 PRINT "THERE MUST BE INPUT FOR EACH STATE OF NATURE THE PROBABILITY -50 PRINT "OF A CERTAIN EVENT,SAY B, OCCURRING GIVEN THAT STATE OF -55 PRINT "IS THE TRUE STATE OF NATURE. THEN THE PROGRAM WILL COMPUTE -60 PRINT "THE CONDITIONAL PROBAILITIES OF EACH OF THE STATES OF NATURE -70 PRINT "BEING TRUE GIVEN THAT EVENT B OCCURS. THESE ARE CALLED -75 PRINT "POSTERIOR PROBABILITIES AND MAY BE USED IN DECISION MAKING -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -95 CLEAR 1000 -100 DIM AB(100),BA(100),A(100) -110 CLS -120 N=0 -130 PRINT "ENTER PROBABILITIES OF POSSIBLE STATES OF NATURE 1 BY 1. -135 PRINT "THESE PROBABILITIES SHOULD ADD TO 1.":PRINT -140 PRINT "ENTER PROB. ST. OF NATURE";N+1;"(-1 TO END)";:INPUT A(N+1) -150 IF A(N+1)=-1 THEN GOTO 500 ' REM ALL OVER -160 N=N+1:P=P+A(N) -170 GOTO 140 -500 REM END OF COMPUTATION -510 IF P=1 THEN GOTO 550 -520 CLS:PRINT "PROBABILITIES SUM TO";P;"THIS SHOULD BE STANDARDIZED -530 PRINT "TO SUM TO 1. ENTER 1 TO STANDARDIZE, 0 TO END";:INPUT Z9 -540 IF Z9<>1 AND Z9<>0 THEN GOSUB 10000:GOTO 530 -550 IF Z9=0 THEN END -560 FOR I=1 TO N:A(I)=A(I)/P:NEXT :P=1 -570 CLS -580 FOR I=1 TO N -590 PRINT "ENTER COND.PROB. OF EVENT B GIVEN ST.OF.NATURE";I;:INPUT BA(I) -600 NEXT I -610 PB=0 -620 FOR I=1 TO N:PB=PB+A(I)*BA(I):NEXT:REM PB=PROBABILITY OF B -625 IF PB>1 THEN PRINT "PROBABILITY OF B IS GREATER THAN 1. PROGRAM WILL ABORT":END -630 FOR I=1 TO N:AB(I)=BA(I)*A(I)/PB:NEXT I -700 F$(1)="S OF N ORIG. PROB B POSTERIOR PROB" -710 F$(2)=" PROB. GIVEN S OF N S OF N GIVEN B" -720 F$(3)=" ### #.### #.### #.###" -750 INPUT "IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -760 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 750 -800 CLS:PRINT F$(1):PRINT F$(2):IF Z2$="Y" THEN LPRINT F$(1):LPRINT F$(2):LPRINT " " -810 FOR I=1 TO N -820 PRINT USING F$(3);I,A(I),BA(I),AB(I) -830 IF Z2$="Y" THEN LPRINT USING F$(3);I,A(I),BA(I),AB(I) -840 NEXT -890 INPUT "PRESS ENTER FOR ANOTHER COMPUTATION";Z9$ -892 IF Z9$ = "0" THEN END -895 GOTO 95 -10000 PRINT "INPUT ERROR!TRY AGAIN!":FOR Q=1 TO 300:NEXT :RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/BAYES.INP b/bwbtest/T80A/BAYES.INP deleted file mode 100644 index e469b35..0000000 --- a/bwbtest/T80A/BAYES.INP +++ /dev/null @@ -1,11 +0,0 @@ - -12 -34 -56 --1 -1 -.145 -.267 -.389 -Y -0 diff --git a/bwbtest/T80A/BAYES.run b/bwbtest/T80A/BAYES.run deleted file mode 100644 index 498fbdc..0000000 --- a/bwbtest/T80A/BAYES.run +++ /dev/null @@ -1,34 +0,0 @@ - BAYES PROBABILITIES - -THIS THEOREM USES BAYES THEOREM TO REVISE ESTIMATES OF -THE PROBABILITIES OF THE OCCURRENCE OF THE VARIOUS STATES OF -NATURE. INPUT TO THIS PROGRAM ARE THE PROBABILITIES OF A -A FINITE AND USER SELECTABLE NUMBER OF STATES OF NATURE, -THESE PROBABILITIES MUST SUM UP TO 1. IN ADDITION, -THERE MUST BE INPUT FOR EACH STATE OF NATURE THE PROBABILITY -OF A CERTAIN EVENT,SAY B, OCCURRING GIVEN THAT STATE OF -IS THE TRUE STATE OF NATURE. THEN THE PROGRAM WILL COMPUTE -THE CONDITIONAL PROBAILITIES OF EACH OF THE STATES OF NATURE -BEING TRUE GIVEN THAT EVENT B OCCURS. THESE ARE CALLED -POSTERIOR PROBABILITIES AND MAY BE USED IN DECISION MAKING - -PRESS ENTER TO BEGIN? -ENTER PROBABILITIES OF POSSIBLE STATES OF NATURE 1 BY 1. -THESE PROBABILITIES SHOULD ADD TO 1. - -ENTER PROB. ST. OF NATURE 1 (-1 TO END)? 12 -ENTER PROB. ST. OF NATURE 2 (-1 TO END)? 34 -ENTER PROB. ST. OF NATURE 3 (-1 TO END)? 56 -ENTER PROB. ST. OF NATURE 4 (-1 TO END)? -1 -PROBABILITIES SUM TO 102 THIS SHOULD BE STANDARDIZED -TO SUM TO 1. ENTER 1 TO STANDARDIZE, 0 TO END? 1 -ENTER COND.PROB. OF EVENT B GIVEN ST.OF.NATURE 1 ? .145 -ENTER COND.PROB. OF EVENT B GIVEN ST.OF.NATURE 2 ? .267 -ENTER COND.PROB. OF EVENT B GIVEN ST.OF.NATURE 3 ? .389 -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -S OF N ORIG. PROB B POSTERIOR PROB - PROB. GIVEN S OF N S OF N GIVEN B - 1 0.118 0.145 0.053 - 2 0.333 0.267 0.278 - 3 0.549 0.389 0.668 -PRESS ENTER FOR ANOTHER COMPUTATION? 0 diff --git a/bwbtest/T80A/BETAALPH.BAS b/bwbtest/T80A/BETAALPH.BAS deleted file mode 100644 index 3d6a018..0000000 --- a/bwbtest/T80A/BETAALPH.BAS +++ /dev/null @@ -1,64 +0,0 @@ -10 CLS -20 PRINT " BETA AND ALPHA" -30 PRINT -40 PRINT"GIVEN DATA WITH REGARDS TO PRICES AND DIVIDENDS OVER A -50 PRINT"PERIOD OF TIME FOR A GIVEN STOCK AND AN INVESTOR SELECTED -60 PRINT"MARKET INDEX THIS PROGRAM WILL COMPUTE THE ALPHA AND BETA -70 PRINT"VALUES FOR A STOCK ALONG WITH ITS EXPECTED RETURN, VARIANCE -80 PRINT"OF RETURN, AND STANDARD DEVIATION OF RETURN." -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9 -1000 CLS -1010 INPUT"HOW MANY PERIODS OF DATA ARE AVAILABLE ";N -1013 Z=N+2:DIM PP(Z),DI(Z),YI(Z),P(Z),D(Z),Y(Z) -1015 PRINT -1020 FOR I=1 TO N -1030 PRINT"INPUT MARKET INDEX PRICE,DIVIDEND FOR PERIOD";I;:INPUT PP(I),DI(I) -1040 NEXT I -1045 PRINT -1050 FOR I=1 TO N -1060 PRINT"INPUT STOCK PRICE,DIVIDEND FOR PERIOD ";I;:INPUT P(I),D(I) -1070 NEXT I -1080 FOR I=1 TO N-1 -1090 YI(I)=(PP(I+1)-PP(I)+DI(I+1))/PP(I) -1095 Y(I)=(P(I+1)-P(I)+D(I+1))/P(I) -1099 NEXT I -1100 REM COMPUTATION SUBROUTINE -1110 X1=0:X2=0:Y1=0:Y2=0:XY=0 -1115 N2=N:N=N-1 -1120 FOR I=1 TO N -1130 X1=X1+YI(I):X2=X2+YI(I)[2 -1140 Y1=Y1+Y(I):Y2=Y2+Y(I)[2 -1150 XY=XY+YI(I)*Y(I) -1160 NEXT I -1170 SX=X2-X1[2/N: SY=Y2-Y1[2/N -1180 SPROD=XY-X1*Y1/N -1190 A=SPROD/SX:REM SLOPE OF REGRESSION LINE -1200 B=Y1/N-A*X1/N:REM Y INTERCEPT OF REGRESSION LINE -1210 SE=SY-A*SPROD:REM ERROR SUM OF SQUARES -1220 R=SPROD/SQR(SX*SY) -1300 CLS -1302 PRINT"THE NUMBER OF OBSERVATIONS = ";N2 -1305 F$(2)="THE ESTIMATED EQUATION IS Y = #####.### X + #####.###" -1310 PRINT USING F$(2);A,B -1315 F$(3)="THE CORRELATION COEFFICIENT = #.####" -1317 F$(4)="THE COEFF. OF DETERMINATION = #.####" -1320 PRINT:PRINT USING F$(3);R -1325 PRINT USING F$(4);R[2 -1330 F$(5)="THE STANDARD ERROR OF ESTIMATE = ####.###" -1335 PRINT USING F$(5);SQR(SE/(N-2)) -1345 PRINT"ALPHA = ";B -1350 PRINT"BETA = ";A -1360 PRINT"EXPECTED RETURN = ";B+A*X1/N -1365 VARI=SX/(N-1) -1370 SDI=SQR(VARI) -1380 S2=(Y2-B*Y1-A*XY)/(N-2) -1390 V=A[2*VARI + S2 -1400 PRINT"VARIANCE OF RETURN= ";V -1410 PRINT"STAN DEV OF RETURN= ";SQR(V) -1430 PRINT"FOR INDEX EXPECTED RETURN =";X1/N;" VAR OF RETURN =";SX/(N-1) -1440 PRINT" SD OF RETURN = ";SQR(SX/(N-1)) -1500 PRINT -1510 PRINT"PRESS ENTER TO SUBMIT DATA FOR SAME TIME PERIOD BUT -1520 INPUT"DIFFERENT STOCK,I.E. MARKET DATA STAYS THE SAME";Z9 -1525 IF Z9 = 0 THEN END -1530 CLS:N=N2:GOTO 1050 diff --git a/bwbtest/T80A/BETAALPH.INP b/bwbtest/T80A/BETAALPH.INP deleted file mode 100644 index d05c840..0000000 --- a/bwbtest/T80A/BETAALPH.INP +++ /dev/null @@ -1,9 +0,0 @@ - -3 -123,55 -149,66 -197,77 -23.45,5.60 -33.98,6.30 -44.36,7.23 -0 diff --git a/bwbtest/T80A/BETAALPH.run b/bwbtest/T80A/BETAALPH.run deleted file mode 100644 index 9c60b4b..0000000 --- a/bwbtest/T80A/BETAALPH.run +++ /dev/null @@ -1,38 +0,0 @@ - BETA AND ALPHA - -GIVEN DATA WITH REGARDS TO PRICES AND DIVIDENDS OVER A -PERIOD OF TIME FOR A GIVEN STOCK AND AN INVESTOR SELECTED -MARKET INDEX THIS PROGRAM WILL COMPUTE THE ALPHA AND BETA -VALUES FOR A STOCK ALONG WITH ITS EXPECTED RETURN, VARIANCE -OF RETURN, AND STANDARD DEVIATION OF RETURN. - -PRESS ENTER TO BEGIN? -HOW MANY PERIODS OF DATA ARE AVAILABLE ? 3 - -INPUT MARKET INDEX PRICE,DIVIDEND FOR PERIOD 1 ? 123,55 -INPUT MARKET INDEX PRICE,DIVIDEND FOR PERIOD 2 ? 149,66 -INPUT MARKET INDEX PRICE,DIVIDEND FOR PERIOD 3 ? 197,77 - -INPUT STOCK PRICE,DIVIDEND FOR PERIOD 1 ? 23.45,5.60 -INPUT STOCK PRICE,DIVIDEND FOR PERIOD 2 ? 33.98,6.30 -INPUT STOCK PRICE,DIVIDEND FOR PERIOD 3 ? 44.36,7.23 -THE NUMBER OF OBSERVATIONS = 3 -THE ESTIMATED EQUATION IS Y = -2.193 X + 2.358 - -THE CORRELATION COEFFICIENT = -1.0000 -THE COEFF. OF DETERMINATION = 1.0000 -Division by zero -THE STANDARD ERROR OF ESTIMATE = -13407807929942595611008317640802934282464207265959107021466054756094376573581619 -054852612241927956455650759996398703782412109633178814162067569513603268608.000 -ALPHA = 2.35782 -BETA = -2.19277 -EXPECTED RETURN = .617972 -Division by zero -VARIANCE OF RETURN= 1.79769E+308 -STAN DEV OF RETURN= 1.34078E+154 -FOR INDEX EXPECTED RETURN = .793447 VAR OF RETURN = 4.13674E-3 - SD OF RETURN = 6.43175E-2 - -PRESS ENTER TO SUBMIT DATA FOR SAME TIME PERIOD BUT -DIFFERENT STOCK,I.E. MARKET DATA STAYS THE SAME? 0 diff --git a/bwbtest/T80A/BLACKSH.BAS b/bwbtest/T80A/BLACKSH.BAS deleted file mode 100644 index 29b47f2..0000000 --- a/bwbtest/T80A/BLACKSH.BAS +++ /dev/null @@ -1,45 +0,0 @@ -5 CLS -8 GOSUB 30000 -10 PRINT"THIS PROGRAM WILL GIVE THE VALUE OF A CALL OPTION VIA THE -20 PRINT"BLACK SCHOLES OPTION VALUATION FORMULA. NECESSARY INPUT -30 PRINT"CONSISTS OF PRESENT STOCK PRICE, EXERCISE PRICE OF THE -40 PRINT"OPTION,INTEREST RATE,# OF DAYS TO EXPIRATION OF THE OPTION -50 PRINT"AND STOCK VOLATILITY. OUTPUT IS THE VALUE OF THE OPTION -60 PRINT"AND THE HEDGE RATIO." -70 PRINT:INPUT"PRESS ENTER TO CONTINUE";Z9 -1000 PRINT"STOCK PRICE,EXERCISE PR.,INT.RATE(%),DAYS TO EXP,VOLATILITY(%)" -1010 INPUT ST,EX,IN,TM,VL -1015 TI=TM/365:IN=IN/100:VL=VL/100 -1020 PRINT:INPUT"ARE OPTIONS PUTS(P) OR CALLS(C)";Z9$ -1030 IF Z9$<>"P" AND Z9$<>"C" THEN PRINT"INPUT ERROR":GOTO 1020 -1100 D1=(LOG(ST/EX)+(IN + 1/2*VL[2)*TI)/(VL*SQR(TI)) -1110 D2=(LOG(ST/EX)+(IN - 1/2*VL[2)*TI)/(VL*SQR(TI)) -1120 IF Z9$="P" THEN GOTO 1200 -1150 X1=D1:GOSUB 9000:N1=N -1160 X1=D2:GOSUB 9000:N2=N -1170 W= ST*N1 - EX*EXP(-IN*TI)*N2 -1180 GOTO 1500 -1200 REM VALUE OF PUT -1210 X1=-D1:GOSUB 9000:N1=N -1220 X1=-D2:GOSUB 9000:N2=N -1230 W=-ST*N1+EX*EXP(-IN*TI)*N2 -1240 GOTO 1500 -1500 CLS:PRINT F$(1) -1510 PRINT:PRINT USING F$(2);ST,EX,IN,TM,VL,W,N1 -1520 PRINT:INPUT"PRESS ENTER FOR MORE";Z9 -1530 IF Z9 = -1 THEN END -1540 CLS:GOTO 1000 -1600 GOTO 1000 -9000 ' PI=3.141592654 -9005 X = ABS(X1) -9015 Z = 1/SQR(2*PI)*EXP(-X[2/2) -9020 B1=.319381530 :B2=-.356563782:B3=1.781477937 -9025 B4= -1.821255978:B5=1.330274429:P=.2316419 -9030 T=1/(1+P*X) -9040 Q=Z*(B1*T+B2*T[2+B3*T[3+B4*T[4+B5*T[5) -9050 IF X1>0 THEN N=1-Q ELSE N=Q -9060 RETURN -30000 REM FORMAT VARIABLES -30010 F$(1)="ST.PR. EX.PR. INT.RT. D.T.EXP. VOL. VALUE HEDGE" -30020 F$(2)="###.## ###.## ###.## ### ##.## ###.## ##.##" -30030 RETURN diff --git a/bwbtest/T80A/BLACKSH.INP b/bwbtest/T80A/BLACKSH.INP deleted file mode 100644 index 220c19c..0000000 --- a/bwbtest/T80A/BLACKSH.INP +++ /dev/null @@ -1,4 +0,0 @@ - -12.34,45.67,5,39,7 -P --1 diff --git a/bwbtest/T80A/BLACKSH.run b/bwbtest/T80A/BLACKSH.run deleted file mode 100644 index bf5c75d..0000000 --- a/bwbtest/T80A/BLACKSH.run +++ /dev/null @@ -1,17 +0,0 @@ -THIS PROGRAM WILL GIVE THE VALUE OF A CALL OPTION VIA THE -BLACK SCHOLES OPTION VALUATION FORMULA. NECESSARY INPUT -CONSISTS OF PRESENT STOCK PRICE, EXERCISE PRICE OF THE -OPTION,INTEREST RATE,# OF DAYS TO EXPIRATION OF THE OPTION -AND STOCK VOLATILITY. OUTPUT IS THE VALUE OF THE OPTION -AND THE HEDGE RATIO. - -PRESS ENTER TO CONTINUE? -STOCK PRICE,EXERCISE PR.,INT.RATE(%),DAYS TO EXP,VOLATILITY(%) -? 12.34,45.67,5,39,7 - -ARE OPTIONS PUTS(P) OR CALLS(C)? P -ST.PR. EX.PR. INT.RT. D.T.EXP. VOL. VALUE HEDGE - - 12.34 45.67 0.05 39 0.07 33.09 1.00 - -PRESS ENTER FOR MORE? -1 diff --git a/bwbtest/T80A/BONDVAL.BAS b/bwbtest/T80A/BONDVAL.BAS deleted file mode 100644 index 3145776..0000000 --- a/bwbtest/T80A/BONDVAL.BAS +++ /dev/null @@ -1,95 +0,0 @@ -10 CLS -20 PRINT" BONDS":PRINT -30 PRINT"WHEN CONSIDERING THE VALUE OF BONDS ITEMS WHICH SHOULD -40 PRINT"BE CONSIDERED INCLUDE YIELD TO MATURITY,TIME TO MATURITY -50 PRINT"MATURITY VALUE, CURRENT VALUE, AND COUPON INTEREST RATE. -60 PRINT"GIVEN ANY FOUR OF THE ABOVE THIS PROGRAM WILL COMPUTE THE -70 PRINT"FIFTH. IN ADDITION,IF DESIRED INCOME TAXES,CAPITAL GAINS -80 PRINT"TAXES AND COMMISSIONS MAY BE CONSIDERED.":PRINT -90 INPUT"PRESS ENTER TO BEGIN";Z9 -1000 REM DATA INPUT -1010 CLS:GOSUB 6000 -1020 CLS -1030 PRINT"ENTER THE NUMBER OF THE VARIABLE TO BE COMPUTED " -1035 PRINT -1040 PRINT"1.CURRENT PRICE PLUS COMMISSION -1050 PRINT"2.MATURITY VALUE OF THE BOND -1060 PRINT"3.COUPON INTEREST RATE -1070 PRINT"4.YIELD TO MATURITY OF THE BOND -1080 PRINT"5.LENGTH OF TIME TO MATURITY -1100 PRINT:INPUT"MAKE CHOICE";CC -1110 ON CC GOSUB 1200,1300,1400,1500,1600 -1120 IF CC<1 OR CC>5 OR CC<>INT(CC) THEN GOSUB 10000:GOTO 1000 -1130 CLS:GOSUB 6500:REM PRINTOUT -1199 GOTO 1000 -1200 REM CURRENT PRICE PLUS COMMISSION -1210 T1=((1+I)[J-(1+I)[(-N))/I:T2=C*MAT*(1-TAX)*T1 -1220 T3=MAT*(1-CGT)/(1+I)[N-J*C*MAT*(1-TAX) -1230 B1=(T2+T3)/(1-CGT/(1+I)[N) -1240 RETURN -1300 REM MATURITY VALUE OF BOND -1310 T1=C*(1-TAX)*((1+I)[J-(1+I)[(-N))/I -1320 T2=(1-CGT)/(1+I)[N:T3=J*C*(1-TAX) -1330 T4=(BUY+CBUY)*(1-CGT/(1+I)[N) -1340 MAT=T4/(T1+T2-T3) -1350 B1=BUY+CBUY -1360 RETURN -1400 REM COUPON INTEREST RATE -1410 T1=((1+I)[J-(1+I)[(-N))/I:T2=T1*MAT*(1-TAX) -1420 T3=(MAT-(MAT-(BUY+CBUY))*CGT)/(1+I)[N:T4=J*MAT*(1-TAX) -1430 C=(BUY+CBUY-T3)/(T2-T4) -1440 RETURN -1500 REM YIELD TO MATURITY -1505 I=.1 -1510 T1=BUY+CBUY+J*C*MAT*(1-TAX) -1520 T2=C*MAT*(1-TAX):T3=((1+I)[J-(1+I)[(-N))/I -1525 T4=MAT-(MAT-(BUY+CBUY))*CGT:T5=(1+I)[(-N) -1530 F=T1-T2*T3-T4*T5 -1535 IF ABS(F)<.2 THEN RETURN -1538 T6=I*((J*(1+I)[(J-1)+N*(1+I)[(-N-1)))-(1+I)[J+(1+I)[(-N) -1540 T7=T6/I[2:T8=-N*(1+I)[(-N-1) -1545 D=-T2*T7-T4*T8 -1550 I=I-F/D:GOTO 1510 -1600 REM LENGTH OF TIME TO MATURITY -1610 T1=BUY+CBUY+J*C*MAT*(1-TAX):T2=C*MAT*(1-TAX)*(1+I)[J/I -1620 T3=T1-T2:REM T3=NUMERATOR -1630 T4=(MAT-(MAT-(BUY+CBUY))*CGT) -1635 T8=T2/(1+I)[J -1640 T5=T3/(T4-T8):T6=LOG(T5)/LOG(1+I):T7=-T6 -1650 N=T7 -1660 RETURN -6000 REM DATA INPUT SUBROUTINE -6002 CLS:PRINT"INPUT THE FOLLOWING AMOUNTS.PRESS ENTER WHEN AN -6004 PRINT"ITEM WILL BE COMPUTED. INPUT 0 IF AN ITEM IS -6006 PRINT"NOT TO BE CONSIDERED.POSSIBLE FIELDS FOR -6008 PRINT"NONCONSIDERATION ARE COMMISSION, CAPITAL GAINS -6009 PRINT"AND INCOME TAX RATES.":PRINT -6010 INPUT"PURCHASE PRICE PER BOND ";BUY -6020 INPUT"COMMISSION PER BOND ";CBUY -6030 INPUT"MATURITY VALUE ";MAT -6035 INPUT"NUMBER OF INTEREST PAYMENTS PER YEAR ";N1 -6040 INPUT"NUMBER OF PAYMENT PERIODS TO MATURITY ";N -6050 INPUT"ANNUAL COUPON INTEREST RATE(%) ";C -6060 INPUT"ANNUAL YIELD TO MATURITY ";I -6070 INPUT"CAPITAL GAINS TAX RATE ";CGT -6080 INPUT"INCOME TAX RATE ";TAX -6090 J=1-(N-INT(N)):C=C/100:I=I/100:CGT=CGT/100:TAX=TAX/100 -6092 C=C/N1 -6099 RETURN -6500 REM PRINTOUT -6505 C=100*C:I=100*I:CGT=100*CGT:TAX=100*TAX -6506 C=C*N1 -6510 CLS:PRINT:PRINT:PRINT -6520 PRINT"1.CURRENT PRICE PLUS COMMISSION :";B1 -6530 PRINT"2.MATURITY VALUE OF THE BOND :";MAT -6540 PRINT"3.ANNUAL COUPON INTEREST RATE :";C -6550 PRINT"4.ANNUAL YIELD TO MATURITY OF BOND :";I*N1 -6560 PRINT"5.LENGTH OF TIME TO MATURITY(PERIODS) :";N -6570 PRINT"6.INCOME TAX RATE :";TAX -6580 PRINT"7.CAPITAL GAINS TAX RATE :";CGT -6585 PRINT"8.NUMBER OF INTEREST PAYMENTS PER YEAR :";N1 -6590 PRINT:INPUT"PRESS ENTER FOR MORE COMPUTATION ";Z9 -6595 IF Z9 = -1 THEN END -6599 RETURN -10000 PRINT"INPUT ERROR! TRY AGAIN!":FOR JJ=1 TO 300:NEXT:RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9:RETURN diff --git a/bwbtest/T80A/BONDVAL.INP b/bwbtest/T80A/BONDVAL.INP deleted file mode 100644 index b0425fd..0000000 --- a/bwbtest/T80A/BONDVAL.INP +++ /dev/null @@ -1,12 +0,0 @@ - -975 -5.25 -1000 -4 - -7.75 - -28 -35 -2 --1 diff --git a/bwbtest/T80A/BONDVAL.run b/bwbtest/T80A/BONDVAL.run deleted file mode 100644 index a5f79a5..0000000 --- a/bwbtest/T80A/BONDVAL.run +++ /dev/null @@ -1,48 +0,0 @@ - BONDS - -WHEN CONSIDERING THE VALUE OF BONDS ITEMS WHICH SHOULD -BE CONSIDERED INCLUDE YIELD TO MATURITY,TIME TO MATURITY -MATURITY VALUE, CURRENT VALUE, AND COUPON INTEREST RATE. -GIVEN ANY FOUR OF THE ABOVE THIS PROGRAM WILL COMPUTE THE -FIFTH. IN ADDITION,IF DESIRED INCOME TAXES,CAPITAL GAINS -TAXES AND COMMISSIONS MAY BE CONSIDERED. - -PRESS ENTER TO BEGIN? -INPUT THE FOLLOWING AMOUNTS.PRESS ENTER WHEN AN -ITEM WILL BE COMPUTED. INPUT 0 IF AN ITEM IS -NOT TO BE CONSIDERED.POSSIBLE FIELDS FOR -NONCONSIDERATION ARE COMMISSION, CAPITAL GAINS -AND INCOME TAX RATES. - -PURCHASE PRICE PER BOND ? 975 -COMMISSION PER BOND ? 5.25 -MATURITY VALUE ? 1000 -NUMBER OF INTEREST PAYMENTS PER YEAR ? 4 -NUMBER OF PAYMENT PERIODS TO MATURITY ? -ANNUAL COUPON INTEREST RATE(%) ? 7.75 -ANNUAL YIELD TO MATURITY ? -CAPITAL GAINS TAX RATE ? 28 -INCOME TAX RATE ? 35 -ENTER THE NUMBER OF THE VARIABLE TO BE COMPUTED - -1.CURRENT PRICE PLUS COMMISSION -2.MATURITY VALUE OF THE BOND -3.COUPON INTEREST RATE -4.YIELD TO MATURITY OF THE BOND -5.LENGTH OF TIME TO MATURITY - -MAKE CHOICE? 2 -Division by zero - - - -1.CURRENT PRICE PLUS COMMISSION : 980.25 -2.MATURITY VALUE OF THE BOND : 3.92603E-306 -3.ANNUAL COUPON INTEREST RATE : 7.75 -4.ANNUAL YIELD TO MATURITY OF BOND : 0 -5.LENGTH OF TIME TO MATURITY(PERIODS) : 0 -6.INCOME TAX RATE : 35 -7.CAPITAL GAINS TAX RATE : 28. -8.NUMBER OF INTEREST PAYMENTS PER YEAR : 4 - -PRESS ENTER FOR MORE COMPUTATION ? -1 diff --git a/bwbtest/T80A/BONDVAL2.BAS b/bwbtest/T80A/BONDVAL2.BAS deleted file mode 100644 index 32c6701..0000000 --- a/bwbtest/T80A/BONDVAL2.BAS +++ /dev/null @@ -1,40 +0,0 @@ -1 REM BONDVAL2 -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"VALUE OF A BOND":PRINT -20 PRINT"THIS PROGRAM SHOWS HOW THE VALUE OF A BOND MAY CHANGE -25 PRINT"WHEN THE INTEREST RATE CHANGES. WE ASSUME WE HAVE A BOND WITH -30 PRINT"A FIXED NUMBER OF YEARS TO MATURITY. FOR VARIOUS INTEREST -35 PRINT"RATES THE PRESENT VALUE OF THE FUTURE CASHFLOWS FROM THE -40 PRINT"BOND ARE DETERMINED. IT IS VERY INTERESTING TO SEE HOW MUCH -45 PRINT"THIS VARIES FOR LONG TERM BONDS. -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -95 DIM A(15),I(15) -100 CLS -110 INPUT "NUMBER OF YEARS TO MATURITY ";N -120 INPUT "COUPON INTEREST PAYMENT PER YEAR ";C -130 INPUT "MATURITY VALUE OF THE BOND ";M -140 INPUT"LOWEST INTEREST RATE TO CONSIDER(%) ";L:L=L/100 -150 INPUT"HIGHEST INTEREST RATE TO CONSIDER(%)";H:H=H/100 -195 REM COMPUTING PV -197 K=0 -200 FOR I=L TO H STEP (H-L)/10 -205 K=K+1 -210 I(K)=I:A(K)=C*(1-(1+I)[(-N))/I + M*(1+I)[(-N) -220 NEXT I -225 INPUT"DO YOU DESIRE LINE PRINTER OUTPUT(Y/N)";Z2$ -230 CLS:PRINT"PRESENT VALUE OF BOND AT VARYING INTEREST RATES":PRINT -240 PRINT N;"YEARS TO MATURITY." -250 PRINT"COUPON PAYS $";C;" PER YEAR FOR INTEREST. -260 PRINT"MATURITY VALUE FOR THE BOND IS";M -262 IF Z2$="N" THEN GOTO 270 -265 LPRINT N;"YEARS TO MATURITY." -266 LPRINT"COUPON PAYS $";C;" PER YEAR FOR INTEREST. -267 LPRINT"MATURITY VALUE FOR THE BOND IS";M -270 F$(1)= "INTEREST RATE VALUE OF BOND" -280 F$(2)= " ###.# ######.## -290 PRINT F$(1):IF Z2$="Y" THEN LPRINT F$(1):LPRINT" " -300 FOR K=1 TO 10:PRINT USING F$(2);100*I(K),A(K):NEXT -310 IF Z2$="Y" THEN FOR K=1 TO 10:LPRINT USING F$(2);100*I(K),A(K):NEXT -320 PRINT:INPUT"PRESS ENTER FOR MORE COMPUTATION";Z9$ -325 IF Z9$ = "-1" THEN END -330 GOTO 100 diff --git a/bwbtest/T80A/BONDVAL2.INP b/bwbtest/T80A/BONDVAL2.INP deleted file mode 100644 index c07ad09..0000000 --- a/bwbtest/T80A/BONDVAL2.INP +++ /dev/null @@ -1,8 +0,0 @@ - -10 -40 -1000 -1 -20 -Y --1 diff --git a/bwbtest/T80A/BONDVAL2.run b/bwbtest/T80A/BONDVAL2.run deleted file mode 100644 index fb31500..0000000 --- a/bwbtest/T80A/BONDVAL2.run +++ /dev/null @@ -1,34 +0,0 @@ - VALUE OF A BOND - -THIS PROGRAM SHOWS HOW THE VALUE OF A BOND MAY CHANGE -WHEN THE INTEREST RATE CHANGES. WE ASSUME WE HAVE A BOND WITH -A FIXED NUMBER OF YEARS TO MATURITY. FOR VARIOUS INTEREST -RATES THE PRESENT VALUE OF THE FUTURE CASHFLOWS FROM THE -BOND ARE DETERMINED. IT IS VERY INTERESTING TO SEE HOW MUCH -THIS VARIES FOR LONG TERM BONDS. - -PRESS ENTER TO BEGIN? -NUMBER OF YEARS TO MATURITY ? 10 -COUPON INTEREST PAYMENT PER YEAR ? 40 -MATURITY VALUE OF THE BOND ? 1000 -LOWEST INTEREST RATE TO CONSIDER(%) ? 1 -HIGHEST INTEREST RATE TO CONSIDER(%)? 20 -DO YOU DESIRE LINE PRINTER OUTPUT(Y/N)? Y -PRESENT VALUE OF BOND AT VARYING INTEREST RATES - - 10 YEARS TO MATURITY. -COUPON PAYS $ 40 PER YEAR FOR INTEREST. -MATURITY VALUE FOR THE BOND IS 1000 -INTEREST RATE VALUE OF BOND - 1.0 1284.14 - 2.9 1094.31 - 4.8 937.62 - 6.7 807.71 - 8.6 699.52 - 10.5 609.04 - 12.4 533.05 - 14.3 468.97 - 16.2 414.71 - 18.1 368.58 - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/BREAKEVN.BAS b/bwbtest/T80A/BREAKEVN.BAS deleted file mode 100644 index d4fc4be..0000000 --- a/bwbtest/T80A/BREAKEVN.BAS +++ /dev/null @@ -1,31 +0,0 @@ -5 CLS -10 PRINT" BREAK-EVEN ANALYSIS -20 PRINT -30 PRINT"FOR THIS PROGRAM,WE ASSUME THAT A COMPANY HAS CERTAIN -35 PRINT"FIXED COSTS. tHIS COMPANY IS SELLING AN ITEM SUCH THAT -40 PRINT"VARIABLE COST/UNIT SOLD OF THAT ITEM IS KNOWN. wE ALSO -50 PRINT"KNOW THE PRICE AT WHICH THE ITEM IS SOLD. gIVEN THIS -55 PRINT"INFORMATION WE CAN COMPUTE THE NUMBER OF UNITS OF THE -60 PRINT"ITEM WHICH THE COMPANY MUST SELL TO JUST BREAK EVEN, -65 PRINT"I.E. SO THAT THE NET SALE REVENUE JUST COVERS FIXED -70 PRINT"COSTS. WE CAN ALSO COMPUTE THE NUMBER OF ITEMS THE -75 PRINT"COMPANY MUST SELL TO MAKE ANY GIVEN PROFIT. THIS -80 PRINT"PROGRAM WILL DO BOTH TYPES OF COMPUTATIONS. -90 INPUT"PRESS ENTER TO BEGIN";Z9 -100 CLS -110 INPUT"INPUT TOTAL FIXED COSTS IN DOLLARS ";FC -120 INPUT"INPUT UNIT SELLING PRICE IN DOLLARS";SP -130 INPUT"INPUT VARIABLE COST PER UNIT IN DOLLARS ";VC -140 BE=FC/(SP-VC) -150 PRINT:PRINT "BREAK EVEN POINT = ";BE;" UNITS. -160 PRINT -170 PRINT"TO LOOK FOR GIVEN PROFIT POINT INPUT 1 -175 PRINT"TO DO ANOTHER BREAK EVEN ANALYSIS INPUT 2 -180 INPUT Z8:IF Z8=2 THEN GOTO 100 -190 IF Z8=1 THEN GOTO 250 -200 PRINT"INPUT ERROR,TRY AGAIN.":FOR I=1 TO 300:NEXT I:GOTO 160 -250 PRINT"WHAT PROFIT DO YOU DESIRE";:INPUT P -260 BE=(FC+P)/(SP-VC) -270 PRINT"SALES NEEDED FOR PROFIT ";P;" EQUALS ";BE;" UNITS." -280 INPUT"INPUT 1 FOR ANOTHER BREAKEVEN ANALYSIS";Z9 -290 IF Z9=1 THEN GOTO 100 diff --git a/bwbtest/T80A/BREAKEVN.INP b/bwbtest/T80A/BREAKEVN.INP deleted file mode 100644 index cce9fc2..0000000 --- a/bwbtest/T80A/BREAKEVN.INP +++ /dev/null @@ -1,7 +0,0 @@ - -123000 -19.99 -1.25 -1 -100000 --1 diff --git a/bwbtest/T80A/BREAKEVN.run b/bwbtest/T80A/BREAKEVN.run deleted file mode 100644 index 04620e3..0000000 --- a/bwbtest/T80A/BREAKEVN.run +++ /dev/null @@ -1,25 +0,0 @@ - BREAK-EVEN ANALYSIS - -FOR THIS PROGRAM,WE ASSUME THAT A COMPANY HAS CERTAIN -FIXED COSTS. tHIS COMPANY IS SELLING AN ITEM SUCH THAT -VARIABLE COST/UNIT SOLD OF THAT ITEM IS KNOWN. wE ALSO -KNOW THE PRICE AT WHICH THE ITEM IS SOLD. gIVEN THIS -INFORMATION WE CAN COMPUTE THE NUMBER OF UNITS OF THE -ITEM WHICH THE COMPANY MUST SELL TO JUST BREAK EVEN, -I.E. SO THAT THE NET SALE REVENUE JUST COVERS FIXED -COSTS. WE CAN ALSO COMPUTE THE NUMBER OF ITEMS THE -COMPANY MUST SELL TO MAKE ANY GIVEN PROFIT. THIS -PROGRAM WILL DO BOTH TYPES OF COMPUTATIONS. -PRESS ENTER TO BEGIN? -INPUT TOTAL FIXED COSTS IN DOLLARS ? 123000 -INPUT UNIT SELLING PRICE IN DOLLARS? 19.99 -INPUT VARIABLE COST PER UNIT IN DOLLARS ? 1.25 - -BREAK EVEN POINT = 6563.5 UNITS. - -TO LOOK FOR GIVEN PROFIT POINT INPUT 1 -TO DO ANOTHER BREAK EVEN ANALYSIS INPUT 2 -? 1 -WHAT PROFIT DO YOU DESIRE? 100000 -SALES NEEDED FOR PROFIT 100000 EQUALS 11899.7 UNITS. -INPUT 1 FOR ANOTHER BREAKEVEN ANALYSIS? -1 diff --git a/bwbtest/T80A/BUSBUD.BAS b/bwbtest/T80A/BUSBUD.BAS deleted file mode 100644 index 1250788..0000000 --- a/bwbtest/T80A/BUSBUD.BAS +++ /dev/null @@ -1,263 +0,0 @@ -1 REM BUSBUD -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"BUSINESS BOOKKEEPING SYSTEM":PRINT -20 PRINT"THIS BUSINESS BOOKKEEPING AND BUDGET ANALYSIS PROGRAM HAS THE -25 PRINT"SAME CATEGORIES AS THE DOME SIMPLIFIED WEEKLY BOOKKEEPING -30 PRINT"RECORD #600. THE PROGRAM CAN HANDLE 1 MONTH'S WORTH OF DATA -35 PRINT"AT A TIME, BUT NOT TO EXCEED 100 ENTRIES ON A 16K MACHINE. -40 PRINT"ON MACHINES WITH GREATER MEMORY IT IS ONLY NECESSARY TO CHANGE -45 PRINT"THE MAXX=100 ON LINE 100 TO MAXX=200 FOR 200 ENTRIES, -50 PRINT"ETC. TO LEARN THE SYSTEM, USE IT. REMEMBER TO READ A MONTH'S -55 PRINT"DATA INTO MEMORY BEFORE USE(UNLESS IT'S A NEW MONTH), AND TO -60 PRINT"SAVE THE DATA AFTER USE. OTHERWISE DRASTIC RESULTS MAY OCCUR. -65 PRINT"THE BUDGET ANALYSIS WILL COMPARE ACTUAL EXPENDITURES TO -70 PRINT"USER INPUT BUDGET AMOUNTS FOR EACH CATEGORY. -80 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -95 CLS -96 INPUT"ARE DISK DRIVES ATTACHED(Y/N)";ZD$ -98 IF ZD$<>"Y" AND ZD$<>"N" THEN GOSUB 10000:GOTO 95 -100 CLEAR 1000:DEFDBL A,C,Y:MAXX=100:DIM A(100,3),C(43,3),C$(43),Y(43) -110 DIM AE(3),AT(3),AS(3),AO(3) -120 GOSUB 10500:GOSUB 14000:GOSUB 11000 -1000 CLS:PRINT" MAIN MENU" -1005 PRINT -1010 PRINT"1.READ IN MONTH'S DATA FROM CASSETTE" -1020 PRINT"2.READ IN MONTH'S DATA FROM DISK -1030 PRINT"3.WRITE MONTH'S DATA TO CASSETTE -1040 PRINT"4.WRITE MONTH'S DATA TO DISK -1050 PRINT"5.ADD TO MONTH'S FILE -1060 PRINT"6.EDIT MONTH'S FILE -1070 PRINT"7.CATEGORY REVIEW AND CHANGE -1080 PRINT"8.BUDGET ANALYSIS -1085 PRINT"9.NEW MONTH INITIALIZE,BUDGET SAME" -1090 PRINT"10.END PROGRAM -1100 PRINT:INPUT"MAKE YOUR CHOICE ";Z5 -1110 IF Z5<>INT(Z5) OR Z5<1 OR Z5>10 THEN GOSUB 10000:GOTO 1000 -1120 ON Z5 GOSUB 2100,2200,2300,2400,2500,2600,2700,2800,2950,2900 -1130 GOTO 1000 -2100 REM DATA INPUT FROM CASSETTE -2105 CLS:PRINT"CASSETTE INPUT -2130 PRINT:INPUT"INPUT MONTH ";M1 -2150 INPUT"PREPARE CASSETTE TAPE.PRESS ENTER WHEN READY";Z9 -2160 GOSUB 12000 -2165 IF M<>M1 THEN GOSUB 10200 ' WRONG MONTH -2170 GOSUB 10100:RETURN -2200 REM DATA INPUT FROM DISK -2210 CLS:PRINT"DISK DATA INPUT " -2220 PRINT:INPUT"ENTER MONTH(1-12)";M1 -2230 IF M1<>INT(M1) OR M1<1 OR M1>12 THEN GOSUB 10000:GOTO 2210 -2240 PRINT"PREPARE DISKETTE IN DISK DRIVE":GOSUB 10100 -2250 GOSUB 13000 -2260 IF M<>M1 THEN GOSUB 10200 -2270 GOSUB 10100:RETURN -2300 REM DATA OUTPUT TO CASSETTE -2310 CLS:PRINT"DATA OUTPUT TO CASSETTE" -2320 INPUT"ENTER MONTH(1-12)";M1:M=M1 -2350 INPUT"PRESS ENTER WHEN CASSETTE READY";Z9 -2360 GOSUB 12200 -2370 RETURN -2400 REM DATA OUTPUT TO DISK -2410 CLS:PRINT"DATA OUTPUT TO DISK" -2415 INPUT"ENTER MONTH NUMBER(1-12)";M1 -2420 M=M1:PRINT"PREPARE DISKETTE IN DRIVE ":GOSUB 10100 -2430 GOSUB 13200 -2450 RETURN -2500 CLS:PRINT"ADD TO FILE ROUTINE":PRINT -2505 PRINT"LAST ITEM SO FAR.":PRINT USING F$(3);ZZ$ -2510 N=N1:GOSUB 10700 -2515 GOSUB 15500 -2520 PRINT:INPUT"ANY MORE ADDITIONS TODAY(Y/N)";Z9$ -2530 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 2520 -2540 IF Z9$="Y" THEN GOTO 2500 ELSE RETURN -2600 REM EDIT & REVIEW -2610 CLS:PRINT USING F$(3);ZZ$ -2620 FOR N=1 TO N1:GOSUB 10700 -2630 IF N/10= INT(N/10) THEN GOSUB 2640:CLS:PRINT USING F$(3);ZZ$ -2635 NEXT N -2637 X$=" " -2640 INPUT"INPUT E TO EDIT,ENTER FOR MORE";X$ -2645 IF X$="E" THEN GOSUB 10800 -2650 IF N<>N+1 THEN RETURN -2660 RETURN -2700 REM CATEGORY REVIEW OR CHANGE -2710 CLS:PRINT " MENU" -2720 PRINT:PRINT"1.REVIEW OF ALL CATEGORIES" -2730 PRINT"2.CHANGE BUDGET AMOUNTS FOR MONTH" -2735 PRINT"3.RETURN TO MAIN MENU" -2740 PRINT:INPUT"MAKE CHOICE";Z9:ON Z9 GOTO 2750,2770,2799 -2745 GOSUB 10100:GOTO 2710 -2750 GOSUB 14200:GOTO 2710 -2770 FOR I=0 TO 42 -2775 PRINT USING F$(4);I,C$(I),C(I,2);:INPUT" CHANGE AMT. ";C(I,2) -2780 NEXT I :GOTO 2710 -2799 RETURN -2800 REM BUDGET ANALYSIS -2810 FOR I=0 TO 42:C(I,1)=0:NEXT I -2820 FOR I=1 TO N1:C(A(I,1),1)=C(A(I,1),1)+A(I,2):NEXT I -2830 AI(1)=C(0,1):AI(2)=C(0,2):AI(3)=AI(1)-AI(2) -2840 AE(1)=0:AE(2)=0:AE(3)=0 -2850 FOR I=1 TO 35:AE(1)=AE(1)+C(I,1):AE(2)=AE(2)+C(I,2):NEXT -2855 AE(3)=AE(1)-AE(2) -2865 AT(1)=0:AT(2)=0:AT(3)=0 -2868 FOR I=36 TO 42:AT(1)=AT(1)+C(I,1):AT(2)=AT(2)+C(I,2):NEXT -2870 AT(3)=AT(1)-AT(2) -2872 CLS:PRINT USING F$(6);ZZ$ -2875 FOR I=0 TO 42 -2878 IF I/11=INT(I/11) AND I<>0 THEN GOSUB 10100:CLS:PRINT USING F$(6);ZZ$ -2880 PRINT USING F$(5);I,C$(I),C(I,1),C(I,2),C(I,1)-C(I,2) -2882 NEXT I -2883 PRINT:INPUT"PRESS ENTER FOR TOTALS";Z9$:CLS -2884 PRINT USING F$(6);ZZ$ -2885 PRINT USING F$(5);0,"TOTAL INCOME",AI(1),AI(2),AI(3) -2888 PRINT USING F$(5);0,"DEDUCT.EXP.",AE(1),AE(2),AE(3) -2890 PRINT USING F$(5);0,"NON DED EXP.",AT(1),AT(2),AT(3) -2892 AO(1)=AI(1)-AE(1)-AT(1):AO(2)=AI(2)-AE(2)-AT(2):AO(3)=AO(1)-AO(2) -2895 PRINT USING F$(5);0,"NET CASH FLOW",AO(1),AO(2),AO(3) -2898 PRINT:GOSUB 10100 -2899 RETURN -2900 CLS:INPUT"ARE YOU SURE(Y/N)";Z9$ -2910 IF Z9$<>"Y" THEN RETURN -2920 END -2950 REM ZERO FOR NEW MONTH.LEAVES BUDGET AMTS ALONE -2960 GOSUB 11000:RETURN -10000 REM INPUT ERROR SBR -10010 PRINT"INPUT ERROR! TRY AGAIN!":FOR J3=1 TO 300:NEXT -10020 RETURN -10100 INPUT"PRESS ENTER TO CONTINUE ";Z9:RETURN -10200 PRINT"MONTHS DO NOT COINCIDE.INPUT IS FOR MONTH ";M:RETURN -10500 REM FORMATS -10505 F$(4)="## % % ######.##" -10510 F$(2)="### ## % % ######.## ##" -10520 F$(3)="NO. CL. CL. AMT. DAY !" -10530 F$(5)="## % % ######.## ######.## ######.##" -10540 F$(6)="CL CL TOTAL BUDGET OV.OR.UND !" -10590 RETURN -10700 PRINT USING F$(2);N,A(N,1),C$(A(N,1)),A(N,2),A(N,3) -10705 RETURN -10800 REM EDIT ROUTINE -10805 INPUT"WHICH ITEM NUMBER TO EDIT";E -10810 IF E<0 OR E>N1 OR E<>INT(E) THEN GOSUB 10000:GOTO 10805 -10815 C(A(E,1),1)=C(A(E,1),1)-A(E,2) -10820 N2=E:GOSUB 15520 -10830 IF Z8=1 THEN N1=N1-1 -10850 RETURN -11000 REM SBR ZEROES MONTHLY AMOUNTS -11010 FOR J3=1 TO MAXX:FOR J4=1 TO 3 -11020 A(J3,J4)=0 -11030 NEXT J4:NEXT J3 -11040 FOR J3=0 TO 42 -11050 C(J3,1)=0:C(J3,3)=0 -11060 NEXT J3 -11070 N1=0 -11090 RETURN -12000 REM SBR TO READ IN MONTHLY DATA FROM CASSETTE -12010 GOSUB 11000:REM ZERO ANY OLD AMOUNTS -12015 ON ERROR GOTO 12020 -12016 ' IF ZD$="Y" THEN CMD"T" -12020 INPUT #-1,M:REM M IS MONTH NUMBER -12025 FOR N=0 TO 42 -12030 INPUT #-1,C(N,1),C(N,2),C(N,3):REM BUDGET & SPENT AMTS. -12040 NEXT N -12050 INPUT #-1,N1:REM N1 = # RECORDS IN FILE -12060 IF N1=0 THEN RETURN -12070 FOR N=1 TO N1 -12080 INPUT #-1,A(N,1),A(N,2),A(N,3) -12090 NEXT N -12110 RETURN -12200 REM PRINT MONTHLY DATA ONTO CASSETTE -12205 ON ERROR GOTO 12210 -12208 ' IF ZD$="Y" THEN CMD"T" -12210 WRITE #-1,M :REM MONTH NUMBER -12220 FOR N=0 TO 42 -12230 WRITE #-1,C(N,1),C(N,2),C(N,3):REM BUDGET & AMTS SPENT -12235 NEXT N -12240 WRITE #-1,N1:REM N1=NO. OF RECORDS IN FILE -12250 IF N1=0 THEN RETURN -12260 FOR N=1 TO N1 -12270 WRITE #-1,A(N,1),A(N,2),A(N,3) -12280 NEXT N -12290 RETURN -12440 REM NEXT N -12450 REM RETURN -12600 REM JUST GET FINAL MONTHLY TOTALS FROM CASSETTE -12610 INPUT #-1,M:REM MONTH NUMBER -12620 FOR N=0 TO 42 -12630 INPUT #-1,C(N,1),C(N,2),C(N,3) -12640 NEXT N -12650 RETURN -13000 REM READ IN MONTHLY DATA FROM DISK -13010 GOSUB 11000: REM ZERO ANY OLD AMOUNTS -13015 FF$=STR$(M1):FF$=RIGHT$(FF$,LEN(FF$)-1) -13020 F$="MONTH"+FF$:REM M1 IS MONTH IN PROGRAM -13025 OPEN"I",1,F$ -13030 INPUT #1,M:REM MONTH NUMBER -13040 FOR N=0 TO 42 -13050 INPUT #1,C(N,1),C(N,2),C(N,3):REM BUDGET AMTS & TOTALS FOR CAT. -13060 NEXT N -13070 INPUT #1,N1:REM NUMBER OF ITEMS PRSENTLY IN FILE -13080 IF N1=0 THEN CLOSE #1:RETURN -13090 FOR N=1 TO N1 -13100 INPUT #1,A(N,1),A(N,2),A(N,3) -13110 NEXT N -13120 CLOSE #1:RETURN -13200 REM PRINT MONTHLY DATA ONTO DISK -13205 FF$=STR$(M1):FF$=RIGHT$(FF$,LEN(FF$)-1) -13210 F$="MONTH"+FF$:REM M1 IS MONTH IN PROGRAM -13220 OPEN"O",1,F$ -13230 WRITE # 1,M -13240 FOR N=0 TO 42 -13250 WRITE # 1,C(N,1),C(N,2),C(N,3) -13260 NEXT N -13270 WRITE # 1,N1:REM NUMBER OF ITEMS PRESENTLY ON FILE -13280 IF N1=0 THEN CLOSE #1:RETURN -13290 FOR N=1 TO N1 -13300 WRITE # 1,A(N,1),A(N,2),A(N,3) -13310 NEXT N -13320 CLOSE #1:RETURN -13600 REM JUST GET FINAL MONTHLY TOTALS FROM DISK -13610 GOSUB 11000:REM ZERO OLD AMOUNTS -13620 F$="MONTH"+STR$(M1) -13630 OPEN"I",1,F$ -13640 INPUT # 1,M -13650 FOR N=0 TO 42 -13660 INPUT # 1,C(N,1),C(N,2),C(N,3) -13670 NEXT N -13680 CLOSE #1:RETURN -14000 REM ROUTINE LOADING C$() ARRAY -14010 DATA INCOME,MDSE-MATERIALS,ACCOUNTING,ADVERTISING,AUTO EXP -14015 DATA CARTONS-ETC.,CONTRIBUTIONS,DELIVERY EXP.,ELECTRICITY -14020 DATA ENTERTAINMENT,FREIGHT & EXPRESS,HEAT,INSURANCE,INTEREST -14025 DATA LAUNDRY,LEGAL EXP.,LICENSES,MISC. EXP.,OFFICE EXP.,POSTAGE -14030 DATA RENT,REPAIRS,SHOP EXP.,TAX-SOC.SEC.,TAX-STATE UNEMP.,TAX-OTHER -14035 DATA SELLING EXP.,SUPPLIES,TELEPHONE,TRADE DUES-ETC.,TRAVELING EXP. -14040 DATA WAGES & COMM.,WATER," "," "," " -14045 DATA NOTES PAYABLE,FED. INC. TAX,LOANS PAYABLE,LOANS RECEIV. -14050 DATA PERSONAL,FIXED ASSETS," "," "," "," " -14070 FOR J3=0 TO 42:READ C$(J3):NEXT -14080 RETURN -14200 REM REVIEW OF CATEGORIES -14210 F$(1)="## % % ## % %" -14220 CLS:FOR I=0 TO 42 STEP 2 -14230 PRINT USING F$(1);I,C$(I),I+1,C$(I+1) -14235 IF I/22=INT(I/22) AND I<>0 THEN PRINT:GOSUB 10100:CLS -14240 NEXT I -14245 PRINT:PRINT"CATEGORIES 1-35 DEDUCTABLES EXPENSES":PRINT"CATEGORIES 36-42 NONDEDUCTABLE EXPENSES":PRINT -14250 GOSUB 10100 -14260 RETURN -15000 REM GET MONTHLY TOTALS FROM MONTH'S DATA -15010 FOR N=1 TO N1 -15020 K=A(N,1):C(K,1)=C(K,1)+A(N,2) -15030 NEXT N -15040 RETURN -15500 REM INPUT ROUTINE -15510 N2=N1+1:PRINT -15515 REM -15520 INPUT"CLASSIFICATION,AMOUNT,DAY";A(N2,1),A(N2,2),A(N2,3) -15522 A9=A(N2,1):IF A9<>ABS(INT(A9)) OR A9>42 THEN GOSUB 10000:GOTO 15515 -15525 PRINT:PRINT C$(A(N2,1));" $";A(N2,2),A(N2,3) -15530 INPUT"ENTER 1 IF OK,2 IF IN ERROR,3 TO ABORT";Z8 -15540 IF Z8<>1 AND Z8<>2 AND Z8<>3 THEN GOSUB 10000:GOTO 15530 -15550 IF Z8=2 THEN GOTO 15520 -15555 IF Z8=3 THEN RETURN -15560 N1=N1+1:C(A(N2,1),1)=C(A(N2,1),1)+A(N2,2) -15570 RETURN diff --git a/bwbtest/T80A/BUSBUD.INP b/bwbtest/T80A/BUSBUD.INP deleted file mode 100644 index 96da7b6..0000000 --- a/bwbtest/T80A/BUSBUD.INP +++ /dev/null @@ -1,26 +0,0 @@ - -Y -5 -1,234.56,7 -1 -N -4 -1 - -2 -1 - - -8 - - - - - -7 -1 -1 - -3 -10 -Y diff --git a/bwbtest/T80A/BUSBUD.run b/bwbtest/T80A/BUSBUD.run deleted file mode 100644 index 5a74a33..0000000 --- a/bwbtest/T80A/BUSBUD.run +++ /dev/null @@ -1,225 +0,0 @@ - BUSINESS BOOKKEEPING SYSTEM - -THIS BUSINESS BOOKKEEPING AND BUDGET ANALYSIS PROGRAM HAS THE -SAME CATEGORIES AS THE DOME SIMPLIFIED WEEKLY BOOKKEEPING -RECORD #600. THE PROGRAM CAN HANDLE 1 MONTH'S WORTH OF DATA -AT A TIME, BUT NOT TO EXCEED 100 ENTRIES ON A 16K MACHINE. -ON MACHINES WITH GREATER MEMORY IT IS ONLY NECESSARY TO CHANGE -THE MAXX=100 ON LINE 100 TO MAXX=200 FOR 200 ENTRIES, -ETC. TO LEARN THE SYSTEM, USE IT. REMEMBER TO READ A MONTH'S -DATA INTO MEMORY BEFORE USE(UNLESS IT'S A NEW MONTH), AND TO -SAVE THE DATA AFTER USE. OTHERWISE DRASTIC RESULTS MAY OCCUR. -THE BUDGET ANALYSIS WILL COMPARE ACTUAL EXPENDITURES TO -USER INPUT BUDGET AMOUNTS FOR EACH CATEGORY. - -PRESS ENTER TO BEGIN? -ARE DISK DRIVES ATTACHED(Y/N)? Y - MAIN MENU - -1.READ IN MONTH'S DATA FROM CASSETTE -2.READ IN MONTH'S DATA FROM DISK -3.WRITE MONTH'S DATA TO CASSETTE -4.WRITE MONTH'S DATA TO DISK -5.ADD TO MONTH'S FILE -6.EDIT MONTH'S FILE -7.CATEGORY REVIEW AND CHANGE -8.BUDGET ANALYSIS -9.NEW MONTH INITIALIZE,BUDGET SAME -10.END PROGRAM - -MAKE YOUR CHOICE ? 5 -ADD TO FILE ROUTINE - -LAST ITEM SO FAR. -NO. CL. CL. AMT. DAY - 0 0 INCOME 0.00 0 - -CLASSIFICATION,AMOUNT,DAY? 1,234.56,7 - -MDSE-MATERIALS $ 234.56 7 -ENTER 1 IF OK,2 IF IN ERROR,3 TO ABORT? 1 - -ANY MORE ADDITIONS TODAY(Y/N)? N - MAIN MENU - -1.READ IN MONTH'S DATA FROM CASSETTE -2.READ IN MONTH'S DATA FROM DISK -3.WRITE MONTH'S DATA TO CASSETTE -4.WRITE MONTH'S DATA TO DISK -5.ADD TO MONTH'S FILE -6.EDIT MONTH'S FILE -7.CATEGORY REVIEW AND CHANGE -8.BUDGET ANALYSIS -9.NEW MONTH INITIALIZE,BUDGET SAME -10.END PROGRAM - -MAKE YOUR CHOICE ? 4 -DATA OUTPUT TO DISK -ENTER MONTH NUMBER(1-12)? 1 -PREPARE DISKETTE IN DRIVE -PRESS ENTER TO CONTINUE ? - MAIN MENU - -1.READ IN MONTH'S DATA FROM CASSETTE -2.READ IN MONTH'S DATA FROM DISK -3.WRITE MONTH'S DATA TO CASSETTE -4.WRITE MONTH'S DATA TO DISK -5.ADD TO MONTH'S FILE -6.EDIT MONTH'S FILE -7.CATEGORY REVIEW AND CHANGE -8.BUDGET ANALYSIS -9.NEW MONTH INITIALIZE,BUDGET SAME -10.END PROGRAM - -MAKE YOUR CHOICE ? 2 -DISK DATA INPUT - -ENTER MONTH(1-12)? 1 -PREPARE DISKETTE IN DISK DRIVE -PRESS ENTER TO CONTINUE ? -PRESS ENTER TO CONTINUE ? - MAIN MENU - -1.READ IN MONTH'S DATA FROM CASSETTE -2.READ IN MONTH'S DATA FROM DISK -3.WRITE MONTH'S DATA TO CASSETTE -4.WRITE MONTH'S DATA TO DISK -5.ADD TO MONTH'S FILE -6.EDIT MONTH'S FILE -7.CATEGORY REVIEW AND CHANGE -8.BUDGET ANALYSIS -9.NEW MONTH INITIALIZE,BUDGET SAME -10.END PROGRAM - -MAKE YOUR CHOICE ? 8 -CL CL TOTAL BUDGET OV.OR.UND - 0 INCOME 0.00 0.00 0.00 - 1 MDSE-MATERIALS 234.56 0.00 234.56 - 2 ACCOUNTING 0.00 0.00 0.00 - 3 ADVERTISING 0.00 0.00 0.00 - 4 AUTO EXP 0.00 0.00 0.00 - 5 CARTONS-ETC. 0.00 0.00 0.00 - 6 CONTRIBUTIONS 0.00 0.00 0.00 - 7 DELIVERY EXP. 0.00 0.00 0.00 - 8 ELECTRICITY 0.00 0.00 0.00 - 9 ENTERTAINMENT 0.00 0.00 0.00 -10 FREIGHT & EXPRE 0.00 0.00 0.00 -PRESS ENTER TO CONTINUE ? -CL CL TOTAL BUDGET OV.OR.UND -11 HEAT 0.00 0.00 0.00 -12 INSURANCE 0.00 0.00 0.00 -13 INTEREST 0.00 0.00 0.00 -14 LAUNDRY 0.00 0.00 0.00 -15 LEGAL EXP. 0.00 0.00 0.00 -16 LICENSES 0.00 0.00 0.00 -17 MISC. EXP. 0.00 0.00 0.00 -18 OFFICE EXP. 0.00 0.00 0.00 -19 POSTAGE 0.00 0.00 0.00 -20 RENT 0.00 0.00 0.00 -21 REPAIRS 0.00 0.00 0.00 -PRESS ENTER TO CONTINUE ? -CL CL TOTAL BUDGET OV.OR.UND -22 SHOP EXP. 0.00 0.00 0.00 -23 TAX-SOC.SEC. 0.00 0.00 0.00 -24 TAX-STATE UNEMP 0.00 0.00 0.00 -25 TAX-OTHER 0.00 0.00 0.00 -26 SELLING EXP. 0.00 0.00 0.00 -27 SUPPLIES 0.00 0.00 0.00 -28 TELEPHONE 0.00 0.00 0.00 -29 TRADE DUES-ETC. 0.00 0.00 0.00 -30 TRAVELING EXP. 0.00 0.00 0.00 -31 WAGES & COMM. 0.00 0.00 0.00 -32 WATER 0.00 0.00 0.00 -PRESS ENTER TO CONTINUE ? -CL CL TOTAL BUDGET OV.OR.UND -33 0.00 0.00 0.00 -34 0.00 0.00 0.00 -35 0.00 0.00 0.00 -36 NOTES PAYABLE 0.00 0.00 0.00 -37 FED. INC. TAX 0.00 0.00 0.00 -38 LOANS PAYABLE 0.00 0.00 0.00 -39 LOANS RECEIV. 0.00 0.00 0.00 -40 PERSONAL 0.00 0.00 0.00 -41 FIXED ASSETS 0.00 0.00 0.00 -42 0.00 0.00 0.00 - -PRESS ENTER FOR TOTALS? -CL CL TOTAL BUDGET OV.OR.UND - 0 TOTAL INCOME 0.00 0.00 0.00 - 0 DEDUCT.EXP. 234.56 0.00 234.56 - 0 NON DED EXP. 0.00 0.00 0.00 - 0 NET CASH FLOW -234.56 0.00 -234.56 - -PRESS ENTER TO CONTINUE ? - MAIN MENU - -1.READ IN MONTH'S DATA FROM CASSETTE -2.READ IN MONTH'S DATA FROM DISK -3.WRITE MONTH'S DATA TO CASSETTE -4.WRITE MONTH'S DATA TO DISK -5.ADD TO MONTH'S FILE -6.EDIT MONTH'S FILE -7.CATEGORY REVIEW AND CHANGE -8.BUDGET ANALYSIS -9.NEW MONTH INITIALIZE,BUDGET SAME -10.END PROGRAM - -MAKE YOUR CHOICE ? 7 - MENU - -1.REVIEW OF ALL CATEGORIES -2.CHANGE BUDGET AMOUNTS FOR MONTH -3.RETURN TO MAIN MENU - -MAKE CHOICE? 1 - 0 INCOME 1 MDSE-MATERIALS - 2 ACCOUNTING 3 ADVERTISING - 4 AUTO EXP 5 CARTONS-ETC. - 6 CONTRIBUTIONS 7 DELIVERY EXP. - 8 ELECTRICITY 9 ENTERTAINMENT -10 FREIGHT & EXPRESS 11 HEAT -12 INSURANCE 13 INTEREST -14 LAUNDRY 15 LEGAL EXP. -16 LICENSES 17 MISC. EXP. -18 OFFICE EXP. 19 POSTAGE -20 RENT 21 REPAIRS -22 SHOP EXP. 23 TAX-SOC.SEC. - -PRESS ENTER TO CONTINUE ? 1 -24 TAX-STATE UNEMP. 25 TAX-OTHER -26 SELLING EXP. 27 SUPPLIES -28 TELEPHONE 29 TRADE DUES-ETC. -30 TRAVELING EXP. 31 WAGES & COMM. -32 WATER 33 -34 35 -36 NOTES PAYABLE 37 FED. INC. TAX -38 LOANS PAYABLE 39 LOANS RECEIV. -40 PERSONAL 41 FIXED ASSETS -42 43 - -CATEGORIES 1-35 DEDUCTABLES EXPENSES -CATEGORIES 36-42 NONDEDUCTABLE EXPENSES - -PRESS ENTER TO CONTINUE ? - MENU - -1.REVIEW OF ALL CATEGORIES -2.CHANGE BUDGET AMOUNTS FOR MONTH -3.RETURN TO MAIN MENU - -MAKE CHOICE? 3 - MAIN MENU - -1.READ IN MONTH'S DATA FROM CASSETTE -2.READ IN MONTH'S DATA FROM DISK -3.WRITE MONTH'S DATA TO CASSETTE -4.WRITE MONTH'S DATA TO DISK -5.ADD TO MONTH'S FILE -6.EDIT MONTH'S FILE -7.CATEGORY REVIEW AND CHANGE -8.BUDGET ANALYSIS -9.NEW MONTH INITIALIZE,BUDGET SAME -10.END PROGRAM - -MAKE YOUR CHOICE ? 10 -ARE YOU SURE(Y/N)? Y diff --git a/bwbtest/T80A/CAP1.BAS b/bwbtest/T80A/CAP1.BAS deleted file mode 100644 index d56d8c0..0000000 --- a/bwbtest/T80A/CAP1.BAS +++ /dev/null @@ -1,38 +0,0 @@ -1 REM CAP1 -5 CLEAR 1000 -10 CLS -20 PRINT TAB(5);"CAPITAL ASSET PRICING MODEL ANALYSIS OF PROJECT" -25 PRINT"THE CAPITAL ASSET PRICING MODEL STUDIES THE RISK-RETURN -30 PRINT"IMPACT OF AN INVESTMENT PROPOSAL UPON AN INVESTOR'S PORTFOLIO -35 PRINT"OF STOCKS AND OTHER INVESTMENTS. THE MODEL GIVES THE EXPECTED -40 PRINT"RETURN FOR AN INVESTMENT GIVEN THE EXPECTED RETURN FOR THE -45 PRINT"MARKET AS A WHOLE, THE RISK-FREE(I.E. U.S.TREASURY BOND) -50 PRINT"INTEREST RATE, AND THE VOLATILITY OF THE RETURN ON THE INVEST- -55 PRINT"MENT WITH RESPECT TO THE REST OF THE MARKET. A VOLATILITY OF -60 PRINT"1 MEANS THE RETURN ON THE INVESTMENT WILL CHANGE JUST AS THE -65 PRINT"MARKET CHANGES, A VOLATILTY GREATER THAN 1 MEANS THE INVEST- -70 PRINT"MENT'S RETURN MOVES IN THE SAME DIRECTION AS THE MARKET BUT -75 PRINT"AT A MORE RAPID RATE. VOLATILITY OF 0 MEANS THE RETURN ON THE -80 PRINT"INVESTMENT IS INDEPENDENT OF MARKET MOVEMENT. NEGATIVE -85 PRINT"VOLATILITY MEANS RETURN ON THE INVESTMENT AND THE MARKET MOVE -90 PRINT"IN OPPOSITE DIRECTIONS. -95 INPUT"PRESS ENTER TO CONTINUE";Z9$ -97 CLS -100 PRINT"FOR PUBLICLY TRADED STOCKS VOLATILITY MAY BE ASCERTAINED -105 PRINT"BY EXAMINING THE LITERATURE. JUST LOOK FOR BETA. -110 PRINT"FOR OTHER INVESTMENTS ASCERTAINING VOLATILITY IS SOMEWHAT -112 PRINT"MORE DIFFICULT. -115 PRINT -120 INPUT"PRESS ENTER TO BEGIN";Z9$ -200 CLS -210 INPUT"ENTER TREASURY INTEREST RATE(%) ";RF:RF=RF/100 -220 INPUT"ENTER EXPECTED MARKET RETURN(%) ";RM:RM=RM/100 -230 INPUT"ENTER VOLATILITY FOR INVESTMENT ";B -240 RI= RF + (RM-RF)*B:REM RI IS EXPECTED RETURN -250 RI=RI*100 -260 PRINT"THE EXPECTED RETURN ON THIS INVESTMENT IS ";RI;"%" -270 PRINT:PRINT -275 RF=RF*100:RM=RM*100 -280 INPUT"PRESS ENTER FOR MORE COMPUTATIONS";Z9$ -285 IF Z9$ = "-1" THEN END -290 GOTO 200 diff --git a/bwbtest/T80A/CAP1.INP b/bwbtest/T80A/CAP1.INP deleted file mode 100644 index f0ab931..0000000 --- a/bwbtest/T80A/CAP1.INP +++ /dev/null @@ -1,6 +0,0 @@ - - -2.75 -5.25 -0.10 --1 diff --git a/bwbtest/T80A/CAP1.run b/bwbtest/T80A/CAP1.run deleted file mode 100644 index 60698fe..0000000 --- a/bwbtest/T80A/CAP1.run +++ /dev/null @@ -1,29 +0,0 @@ - CAPITAL ASSET PRICING MODEL ANALYSIS OF PROJECT -THE CAPITAL ASSET PRICING MODEL STUDIES THE RISK-RETURN -IMPACT OF AN INVESTMENT PROPOSAL UPON AN INVESTOR'S PORTFOLIO -OF STOCKS AND OTHER INVESTMENTS. THE MODEL GIVES THE EXPECTED -RETURN FOR AN INVESTMENT GIVEN THE EXPECTED RETURN FOR THE -MARKET AS A WHOLE, THE RISK-FREE(I.E. U.S.TREASURY BOND) -INTEREST RATE, AND THE VOLATILITY OF THE RETURN ON THE INVEST- -MENT WITH RESPECT TO THE REST OF THE MARKET. A VOLATILITY OF -1 MEANS THE RETURN ON THE INVESTMENT WILL CHANGE JUST AS THE -MARKET CHANGES, A VOLATILTY GREATER THAN 1 MEANS THE INVEST- -MENT'S RETURN MOVES IN THE SAME DIRECTION AS THE MARKET BUT -AT A MORE RAPID RATE. VOLATILITY OF 0 MEANS THE RETURN ON THE -INVESTMENT IS INDEPENDENT OF MARKET MOVEMENT. NEGATIVE -VOLATILITY MEANS RETURN ON THE INVESTMENT AND THE MARKET MOVE -IN OPPOSITE DIRECTIONS. -PRESS ENTER TO CONTINUE? -FOR PUBLICLY TRADED STOCKS VOLATILITY MAY BE ASCERTAINED -BY EXAMINING THE LITERATURE. JUST LOOK FOR BETA. -FOR OTHER INVESTMENTS ASCERTAINING VOLATILITY IS SOMEWHAT -MORE DIFFICULT. - -PRESS ENTER TO BEGIN? -ENTER TREASURY INTEREST RATE(%) ? 2.75 -ENTER EXPECTED MARKET RETURN(%) ? 5.25 -ENTER VOLATILITY FOR INVESTMENT ? 0.10 -THE EXPECTED RETURN ON THIS INVESTMENT IS 3 % - - -PRESS ENTER FOR MORE COMPUTATIONS? -1 diff --git a/bwbtest/T80A/CHECK2.BAS b/bwbtest/T80A/CHECK2.BAS deleted file mode 100644 index 368b1c8..0000000 --- a/bwbtest/T80A/CHECK2.BAS +++ /dev/null @@ -1,103 +0,0 @@ -1 CLS -10 PRINT TAB(15);"CHECK1":PRINT -20 PRINT"THIS PROGRAM PERMITS THE USER TO INPUT THE NECESSARY DATA -30 PRINT"IN ORDER TO PRINT CHECK AND STUB ON NEBS CHECKS ,PRODUCT 9020 -40 PRINT"AVAILABLE FROM NEW ENGLAND BUSINESS SERVICE(1-800-225-6380) -50 PRINT"IN MASS. (1-800-252-9226) -60 PRINT" AS MANY AS 50 CHECKS MAY BE PRINTED IN A RUN. A REGISTER MAY -70 PRINT"BE GENERATED OF ALL CHECKS IN THE RUN -90 INPUT"PRESS ENTER TO BEGIN";Z9$ -95 CLEAR 2000 -97 DIM D$(55),CN$(55),XX(55),P$(55) -99 GOSUB 9000 -100 CLS:PRINT TAB(10); "MENU":PRINT -105 PRINT"0. QUIT -110 PRINT"1. INPUT DATA AND PRINT CHECKS -120 PRINT"2. PRINT CHECK REGISTER -130 PRINT"3. INPUT TODAY'S DATE INTO SYSTEM" -190 PRINT:INPUT"ENTER CHOICE ";Z9 -195 IF Z9 = 0 THEN END -200 ON Z9 GOSUB 400,600,300 -210 GOTO 100 -300 REM INPUT SYSTEM DATE -310 CLS:INPUT"ENTER TODAY'S DATE IN FORM MM/DD/YY";D9$ -320 IF LEN(D9$)<>8 THEN GOSUB 10000:GOTO 310 -330 PRINT:PRINT"SYSTEM DATE IS ";D9$ -340 PRINT:GOSUB 10100:RETURN -400 REM CHECK DATA INPUT & PRINTING -402 D$=D9$ -405 CLS -410 INPUT"CHECK DATE(0 TO END)";D$ -412 IF D$="0" THEN RETURN -415 INPUT"INPUT CHECK # ";CN$ -420 INPUT"INPUT AMT OF CHECK ";X -425 IF X>100000 THEN GOSUB 10000:GOTO 420 -430 INPUT"ENTER PAYABLE TO ";P$ -435 IF LEN(P$)>22 THEN PRINT"LENGTH TOO LONG. 22 CHARACTERS IS MAX.":PRINT: GOTO 430 -440 INPUT"ENTER COMMENTS(LINE 1)";C$(1) -445 INPUT"ENTER COMMENTS(LINE 2)";C$(2) -450 CLS:GOSUB 1000 -460 INPUT"ENTER Y IF OK,N IF ERROR";Z8$ -465 IF Z8$<>"Y" AND Z8$<>"N" THEN GOSUB 10000:GOTO 460 -470 IF Z8$="N" THEN GOTO 405 -475 N=N+1:D$(N)=D$:CN$(N)=CN$:XX(N)=X:P$(N)=P$:REM REGISTER -480 GOSUB 2000:REM ACTUALLY PRINT OUT CHECK -490 GOTO 400 -600 REM PRINT TODAY'S CHECK REGISTER -610 CLS:INPUT"INPUT P FOR LINE PRINTER OUTPUT,S FOR SCREEN ONLY";Z2$ -615 IF Z2$<>"P" AND Z2$<>"S" THEN GOSUB 10000:GOTO 610 -620 PRINT:IF Z2$="P" THEN INPUT"PRESS ENTER WHEN PRINTER READY";Z9$ -622 IF Z2$="P" THEN LPRINT TAB(20);"CHECK REGISTER FOR ";D9$ -625 CLS:PRINT F$(2):IF Z2$="P" THEN LPRINT F$(2):LPRINT " " -627 XX=0:REM TOTAL CHECK AMOUNT -630 FOR J=1 TO N -635 XX=XX+XX(J) -640 PRINT USING F$(1);CN$(J),D$(J),P$(J),XX(J) -645 IF Z2$="P" THEN LPRINT USING F$(1);CN$(J),D$(J),P$(J),XX(J) -650 IF J/12=INT(J/12) THEN GOSUB 10100:CLS:PRINT F$(2) -660 NEXT J -670 PRINT:PRINT "TOTAL CHECKS = ";N;:PRINT USING " TOTAL CHECK AMOUNTS = $$#####.##";XX -675 IF Z2$<>"P" THEN GOTO 690 -680 LPRINT" ":LPRINT "TOTAL CHECKS = ";N;:LPRINT USING " TOTAL CHECK AMOUNTS = $$#####.##";XX -690 PRINT:GOSUB 10100 -695 RETURN -1000 REM DISPLAY CHECK DATA -1010 PRINT "CHECK DATE: ";D$ -1020 PRINT "CHECK # ";CN$ -1030 PRINT "CHECK AMOUNT";X -1035 PRINT "PAYABLE TO ";P$ -1040 PRINT "COMMENT 1 ";C$(1) -1045 PRINT "COMMENT 2 ";C$(2) -1050 PRINT -1060 RETURN -2000 REM ACTUALLY PRINT OUT CHECK -2010 CLS:INPUT"ENTER Y TO PRINT CHECK,N TO SKIP PRINT";Z4$ -2015 IF Z4$<>"Y" AND Z4$<>"N" THEN GOSUB 10000:GOTO 2010 -2020 IF Z4$="N" THEN RETURN -2030 LPRINT " ":LPRINT " " -2035 LPRINT D9$;TAB(10); P$;TAB(63); -2037 LPRINT USING " $$####.##";X -2040 LPRINT " ":LPRINT " " -2045 LPRINT TAB(10); C$(1):LPRINT TAB(10); C$(2) -2050 CP=9:GOSUB 10600 -2060 LPRINT D$;TAB(13); CN$;TAB(63); -2062 LPRINT USING " $$####.##";X -2070 CP=13:GOSUB 10600 -2080 LPRINT TAB(7);TAB(41);D$;TAB(55); CN$;TAB(63); -2082 LPRINT USING " $$####.##";X; -2090 LPRINT " " -2100 LPRINT TAB(7); -2102 LPRINT USING "$$####.##";X;:LPRINT"*****" -2110 CP=10:GOSUB 10600 -2120 D$="":CN$="":X=0:P$="":C$(1)="":C$(2)="" -2130 RETURN -9000 REM FORMAT VARIABLES -9010 F$(1)="% % % % % % ######.##" -9020 F$(2)="CHECK # DATE PAYABLE TO AMOUNT" -9099 RETURN -10000 PRINT"INPUT ERROR! TRY AGAIN!":FOR JJ=1 TO 600:NEXT:RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$ -10110 RETURN -10600 REM SKIP CP LINES ON LINE PRINTER -10610 FOR JK=1 TO CP:LPRINT" ":NEXT -10620 RETURN diff --git a/bwbtest/T80A/CHECK2.INP b/bwbtest/T80A/CHECK2.INP deleted file mode 100644 index 156362b..0000000 --- a/bwbtest/T80A/CHECK2.INP +++ /dev/null @@ -1,19 +0,0 @@ - -3 -12/34/56 - -1 -01/02/03 -50013 -1234.56 -TOM CAT -JERRY MOUSE -CARTOON -Y -Y -0 -2 -P - -0 - diff --git a/bwbtest/T80A/CHECK2.run b/bwbtest/T80A/CHECK2.run deleted file mode 100644 index 64c5f80..0000000 --- a/bwbtest/T80A/CHECK2.run +++ /dev/null @@ -1,71 +0,0 @@ - CHECK1 - -THIS PROGRAM PERMITS THE USER TO INPUT THE NECESSARY DATA -IN ORDER TO PRINT CHECK AND STUB ON NEBS CHECKS ,PRODUCT 9020 -AVAILABLE FROM NEW ENGLAND BUSINESS SERVICE(1-800-225-6380) -IN MASS. (1-800-252-9226) - AS MANY AS 50 CHECKS MAY BE PRINTED IN A RUN. A REGISTER MAY -BE GENERATED OF ALL CHECKS IN THE RUN -PRESS ENTER TO BEGIN? - MENU - -0. QUIT -1. INPUT DATA AND PRINT CHECKS -2. PRINT CHECK REGISTER -3. INPUT TODAY'S DATE INTO SYSTEM - -ENTER CHOICE ? 3 -ENTER TODAY'S DATE IN FORM MM/DD/YY? 12/34/56 - -SYSTEM DATE IS 12/34/56 - -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. INPUT DATA AND PRINT CHECKS -2. PRINT CHECK REGISTER -3. INPUT TODAY'S DATE INTO SYSTEM - -ENTER CHOICE ? 1 -CHECK DATE(0 TO END)? 01/02/03 -INPUT CHECK # ? 50013 -INPUT AMT OF CHECK ? 1234.56 -ENTER PAYABLE TO ? TOM CAT -ENTER COMMENTS(LINE 1)? JERRY MOUSE -ENTER COMMENTS(LINE 2)? CARTOON -CHECK DATE: 01/02/03 -CHECK # 50013 -CHECK AMOUNT 1234.56 -PAYABLE TO TOM CAT -COMMENT 1 JERRY MOUSE -COMMENT 2 CARTOON - -ENTER Y IF OK,N IF ERROR? Y -ENTER Y TO PRINT CHECK,N TO SKIP PRINT? Y -CHECK DATE(0 TO END)? 0 - MENU - -0. QUIT -1. INPUT DATA AND PRINT CHECKS -2. PRINT CHECK REGISTER -3. INPUT TODAY'S DATE INTO SYSTEM - -ENTER CHOICE ? 2 -INPUT P FOR LINE PRINTER OUTPUT,S FOR SCREEN ONLY? P - -PRESS ENTER WHEN PRINTER READY? -CHECK # DATE PAYABLE TO AMOUNT -50013 01/02/03 TOM CAT 1234.56 - -TOTAL CHECKS = 1 TOTAL CHECK AMOUNTS = $1234.56 - -PRESS ENTER TO CONTINUE? 0 - MENU - -0. QUIT -1. INPUT DATA AND PRINT CHECKS -2. PRINT CHECK REGISTER -3. INPUT TODAY'S DATE INTO SYSTEM - -ENTER CHOICE ? diff --git a/bwbtest/T80A/CHECKBK1.BAS b/bwbtest/T80A/CHECKBK1.BAS deleted file mode 100644 index e158deb..0000000 --- a/bwbtest/T80A/CHECKBK1.BAS +++ /dev/null @@ -1,262 +0,0 @@ -5 CLS -10 PRINT" CHECKBOOK MAINTENANCE PROGRAM -15 PRINT" BY DR. PETER SHENKIN -17 PRINT"****************************************************** -20 PRINT" THIS SELF-DOCUMENTING PROGRAM WILL KEEP TRACK OF ALL -22 PRINT" CHECKBOOK ITEMS. dEPOSITS AND EXPENSES MAY BE -24 PRINT" CATEGORIZED. UP TO 100 CATEGORIES ARE ALLOWED. -25 PRINT" CATEGORIES ENTERED FROM PROG. LINES 3020-3089 -26 PRINT" CHECKBOOK ITEMS MAY BE STORED ON CASSETTE OR DISKETTE -27 PRINT" AND READ IN FROM CASSETTE OR DISKETTE. -28 PRINT" AT PRESENT DIMENSIONING IS SET UP FOR A MAXIMUM OF -30 PRINT" 120 ITEMS IN YOUR CHECKBOOK AT ANY ONE TIME. THIS MAY BE -32 PRINT" CHANGED BY CHANGING DIMENSION VARIABLE V IN LINE 101 -34 PRINT" TO RUN PROGRAM DELETE REM STATEMENTS FOR MEMORY SPACE. -36 INPUT" PRESS ENTER TO BEGIN.THERE SHOULD BE NO PROBLEM";Z9 -50 CLS:CLEAR 5500 -70 INPUT "ARE DISK DRIVE(S) IN USE(Y/N)";ZD$ -80 IF ZD$<>"Y" AND ZD$<>"N" THEN PRINT"INPUT ERROR!":GOTO 70 -101 V=120 -102 DIM CN(V),D$(V),P$(V),T(V),A(V),B(V) -105 GOSUB 990 -110 REM CHECK MENU -120 GOSUB 2000 -990 REM SUBROUTINE WITH PRINT USING FORMAT VARIABLES -1000 H$="CHK NO. DATE CHK ISSUED TO TYPE AMOUNT BAL.!" -1010 Z$="#### % % % % ## $$#####.## $$#####.##" -1020 Z1$=" % % $$#####.##" -1099 RETURN -1100 REM SUBROUTINE PRINTING FORMATS -1110 PRINT USING H$;ZZ$ -1120 IF Z2$="Y" THEN LPRINT "ITEM #";TAB(10); " ";:LPRINT USING H$;ZZ$ -1199 RETURN -1200 REM SUBROUTINE FOR PRINTING CHECKBOOK INFORMATION -1210 PRINT USING Z$;CN(I);D$(I);P$(I);T(I);A(I);B(I) -1212 IF Z2$="Y" THEN LPRINT USING "####";I;:LPRINT TAB(10); " ";:LPRINT USING Z$;CN(I),D$(I),P$(I),T(I),A(I),B(I) -1215 RETURN -1230 REM SUBROUTINE FOR INPUTTING CHECKBOOK INFO. FROM TAPE -1235 INPUT #-1,CN(I),D$(I),P$(I),T(I),A(I),B(I) -1240 RETURN -1245 REM SUBROUTINE FOR OUTPUTTING CHECKBOOK INFO. ONTO TAPE -1250 WRITE #-1,CN(I),D$(I),P$(I),T(I),A(I),B(I) -1255 RETURN -1260 REM SUBROUTINE FOR PRINTING PREVIOUS BALANCE -1262 PRINT USING Z1$;D$(I-1);B(I-1) -1263 IF Z2$="Y" THEN LPRINT USING "####";0;: LPRINT TAB(10); " ";:LPRINT USING Z1$;D$(I-1),B(I-1) -1265 RETURN -1299 RETURN -1300 REM SUBROUTINE FOR INPUTTING CHECKBOOK INFO. FROM DISK -1305 PRINT "I=";I -1310 INPUT # 1,CN(I),D$(I),P$(I),T(I),A(I),B(I) -1320 RETURN -1350 REM SUBROUTINE FOR OUTPUTTING CHECKBOOK INFO. ONTO DISK -1360 WRITE # 1,CN(I),D$(I),P$(I),T(I),A(I),B(I) -1370 RETURN -1500 REM SUBROUTINE TO ENTER NEW ENTRY -1510 INPUT "INPUT DATE ";D$(I) -1515 PRINT "INPUT C FOR CHECK,D FOR DEP.,CM FOR MISC. CHARGE"; -1520 INPUT Z9$ -1525 IF Z9$="C" GOTO 1540 -1526 IF Z9$="D" GOTO 1570 -1527 IF Z9$="CM" GOTO 1600 -1530 PRINT "INPUT ERROR. TRY AGAIN":GOTO 1515 -1540 CN(I)=CI :CI=CI+1 -1545 IF ZJ=99 THEN CI=CI-1 -1550 INPUT "CHECK ISSUED TO";P$(I) -1555 INPUT "CHECK CATEGORY TYPE(0 TO SEE CATEGORIES)";T(I):IF T(I)=0 THEN GOSUB 3000: CLS: GOTO 1555 -1560 INPUT "CHECK AMOUNT";A(I) -1565 B(I)=B(I-1)-A(I):IF ZJ=99 THEN B(I)=B(IT-1)-A(I) -1569 GOTO 1610 -1570 CN(I)=-1 -1575 INPUT "WHAT WAS DEPOSITED ";P$(I) -1580 INPUT"DEPOSIT CATEGORY TYPE(0 TO SEE CATEGORIES)";T(I):IF T(I)=0 THEN GOSUB 3000: CLS: GOTO 1580 -1585 INPUT "AMOUNT OF DEPOSIT ";A(I) -1590 B(I)=B(I-1)+A(I):IF ZJ=99 THEN B(I)=B(IT-1)+A(I) -1595 GOTO 1610 -1600 CN(I)=-2 -1602 INPUT "WHY CHARGED TO ACCT. ";P$(I) -1604 INPUT "CHARGE AMOUNT";A(I) -1605 INPUT "CHARGE CATEGORY TYPE(0 TO SEE CATEGORIES)";T(I):IF T(I)=0 THEN GOSUB 3000: CLS: GOTO 1605 -1606 B(I)=B(I-1)-A(I):IF ZJ=99 THEN B(I)=B(IT-1)-A(I) -1608 GOTO 1610 -1610 CLS -1613 GOSUB 1100 -1614 GOSUB 1260 -1615 GOSUB 1200 -1616 FOR K=1 TO 4:PRINT:NEXT K -1617 PRINT "IF ERROR INPUT E.OTHERWISE ENTER";:INPUT Z8$ -1619 IF ZJ=99 THEN RETURN -1621 IF Z8$="E" GOTO 1623 -1622 GOTO 1625 -1623 Z8$="ZZZZ":IF Z9$="C" THEN CI=CI-1 -1624 CLS:GOTO 1510 -1625 PRINT "ANY MORE ENTRIES (Y/N)";:INPUT Z9$ -1630 IF Z9$="N" GOTO 1690 -1635 IF Z9$="Y" GOTO 1650 -1640 PRINT "INPUT ERROR. TRY AGAIN.":GOTO 1625 -1650 I=I+1 :CLS:GOTO 1510 -1690 CN(0)=I -1699 RETURN -2000 REM MENU SUBROUTINE -2010 CLS -2020 PRINT" CHECKBOOK MAINTENANCE PROGRAM " -2025 PRINT:PRINT "CHOOSE NUMBER OF DESIRED OPTION":PRINT -2030 PRINT "1.SET UP NEW CHECKBOOK" -2035 PRINT "2.INPUT OLD CHECKBOOK FROM TAPE" -2040 PRINT "3.ADD TO OLD CHECKBOOK" -2050 PRINT "4.OUTPUT CHECKBOOK TO CASSETTE" -2055 PRINT "5.REVIEW OF CHECK EXPENSE CATEGORIES" -2060 PRINT "6.PRINT CHECKBOOK 10 ENTRIES AT A TIME OR LINEPRINT." -2070 PRINT "7.LIST BY CATEGORY" -2075 PRINT "8.LOAD OLD CHECKBOOK FROM DISKETTE -2080 PRINT "9.OUTPUT CHECKBOOK TO DISKETTE -2082 PRINT"10.EDIT CHECKBOOK ITEM -2085 PRINT "11.END THIS PROGRAM" -2090 PRINT:INPUT "OPTION # ";Z -2092 CLS -2094 ON Z GOSUB 2200,2400,2600,2800,3000,3200,3500,2500,2900,4000,3900 -2097 GOTO 2010 -2099 RETURN -2200 REM SUBROUTINE FOR SETTING UP NEW CHECKBOOK -2210 I=1 -2215 INPUT "INITIAL BALANCE";B(0) -2217 INPUT "INITIAL CHECK NUMBER";CI -2218 INPUT"INPUT INITIAL DATE IN FORM MM/DD/YY";D$(0) -2219 CLS -2220 REM NOW WRITE CHECK ,MAKE DEPOSIT,OR OTHER CHARGE -2225 GOSUB 1500 -2250 RETURN -2400 REM SUBROUTINE FOR INPUTTING OLD CHECKBOOK FROM TAPE -2410 CLS:PRINT "PUT & POSITION DATA TAPE IN CASSETTE #-1." -2412 PRINT "PRESS PLAY BUTTON." -2415 PRINT "PRESS ENTER WHEN READY.":INPUT Q -2417 ' IF ZD$="Y" THEN CMD"T" -2420 INPUT #-1,CI,CN(0),B(0),D$(0) -2430 FOR I=1 TO CN(0) -2435 ' IF ZD$="Y" THEN CMD"T" -2440 GOSUB 1230 -2450 NEXT I -2460 RETURN -2500 REM SUBROUTINE FOR INPUTTING OLD CHECKBOOK FROM DISK -2510 CLS:INPUT"WHAT IS THE NAME OF THE DISK CHECK FILE";CF$ -2515 PRINT"PRESS ENTER WHEN DISKETTE WITH ";CF$;" IS READY";:INPUT Q -2520 OPEN"I",1,CF$: INPUT #1,CI,CN(0),B(0),D$(0) -2530 FOR I=1 TO CN(0): GOSUB 1300:NEXT I -2560 RETURN -2600 REM SUBROUTINE TO ADD TO CHECKBOOK -2610 GOSUB 1500 -2615 CLOSE 1 -2620 RETURN -2800 REM SUBROUTINE FOR OUTPUTTING CHECKBOOK TO CASSETTE -2810 CLS:PRINT"POSITION BLANK TAPE INTO CASSETTE PLAYER" -2812 PRINT"PRESS PLAY AND RECORD BUTTONS." -2815 PRINT "PRESS ENTER WHEN READY.":INPUT Q -2817 ' IF ZD$="Y" THEN CMD"T" -2820 WRITE #-1,CI,CN(0),B(0),D$(0) -2830 FOR I=1 TO CN(0) -2835 ' IF ZD$="Y" THEN CMD"T" -2840 GOSUB 1245 -2850 NEXT I -2860 RETURN -2900 REM SUBROUTINE FOR OUTPUTTING OLD CHECKBOOK TO DISKETTE -2905 CLS:PRINT CF$;" IS THE PRESENT FILE." -2910 INPUT"ENTER THE DISK FILE NAME FOR OUTPUT ";CF$ -2915 OPEN"O",1,CF$ -2920 WRITE # 1,CI,CN(0),B(0),D$(0) -2930 FOR I=1 TO CN(0):GOSUB 1350: NEXT I -2955 CLOSE 1 -2960 RETURN -3000 REM SUBROUTINE TO REVIEW EXPENSE CATEGORIES -3010 PRINT "CATEGORY DESCRIPTION" -3020 PRINT " 1. LOAN PAYMENT" -3022 PRINT " 2. BANK CARD PAYMENT" -3024 PRINT " 3. MEDICAL EXPENSE" -3025 REM THIS SPACE IS TO PUT IN CATEGORIES & DESCRIPTIONS IN -3026 PRINT " 4. HOUSEKEEPING MONEY" -3028 PRINT " 5. MORTGAGE -3030 PRINT " 6. HOME EXPENSE,UTILITIES,ETC." -3050 PRINT " 7. STORE CHARGE CARD PAYMENT" -3052 PRINT " 8. INSURANCE" -3060 PRINT " 50. PAYCHECK DEPOSIT " -3062 PRINT " 51. CONSULTING FEE " -3064 PRINT " 52. MEDICAL REIMBURSEMENT" -3066 PRINT " 53. OTHER BUSINESS INCOME" -3068 PRINT " 54. MISC. DEPOSITS" -3070 PRINT @ 230 ,"9. BUSINESS EXPENSE "; -3072 PRINT @ 294,"10. OTHER EXPENSE "; -3088 PRINT @ 896," " -3090 INPUT "PRESS ENTER TO RETURN ";Z3 -3099 RETURN -3200 REM SUBROUTINE TO REVIEW CHECKBOOK -3204 INPUT"IS OUTPUT ON LINE PRINTER DESIRED(Y/N)";Z2$ -3206 IF Z2$<>"Y" AND Z2$<>"N" THEN PRINT"INPUT ERROR!":GOTO 3204 -3210 CLS -3215 I=1 -3220 GOSUB 1100 -3230 GOSUB 1260 -3240 FOR I=1 TO CN(0) -3250 GOSUB 1200 -3255 IF Z2$="Y" THEN GOTO 3270 -3260 IF I/10=INT(I/10) AND I<>0 THEN GOSUB 3300 -3270 NEXT I -3280 PRINT:INPUT"THE END. PRESS ENTER TO RETURN TO MENU.";Z3 -3290 RETURN -3300 REM SUBROUTINE FOR TEN ENTRY SCREEN DISPLAY -3310 IF I=CN(0) THEN RETURN -3320 PRINT -3330 INPUT "PRESS ENTER FOR MORE ENTRIES.";Z3 -3335 CLS:GOSUB 1100 -3340 RETURN -3500 REM SUBROUTINE FOR LISTING BY CATEGORIES -3502 CLS:INPUT"IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -3504 IF Z2$<>"Y" AND Z2$<>"N" THEN GOTO 3502 -3505 REM E1 IS TOTAL OF ITEM -3506 E1=0 -3510 INPUT "INPUT CATEGORY NUMBER OF INTEREST";Z5 -3520 GOSUB 1100 -3530 FOR I=1 TO CN(0) -3540 IF T(I)=Z5 GOTO 3560 -3550 GOTO 3580 -3560 GOSUB 1200 -3570 E1=E1+A(I) -3580 NEXT I -3590 PRINT:PRINT "TOTAL FOR THIS ITEM =$";E1 -3592 IF Z2$="Y" THEN LPRINT:LPRINT"TOTAL FOR THIS ITEM =$";E1 -3595 PRINT"PRESS ENTER TO RETURN TO MENU";:INPUT Z3 -3599 RETURN -3900 REM SUBROUTINE TO END -3905 CLS -3910 PRINT "ARE YOU SURE YOU WANT TO END(Y/N)";:INPUT Z3$ -3920 IF Z3$="N" THEN RETURN -3930 IF Z3$="Y" THEN END -3940 PRINT "INPUT ERROR.TRY AGAIN.":GOTO 3910 -4000 REM EDIT ROUTINE -4005 Z2$="" -4010 CLS:INPUT"ENTER ITEM NUMBER OF ITEM TO EDIT(-1 TO END)";IT -4015 IF IT=-1 THEN RETURN -4020 IF IT<0 OR IT>CN(0) OR IT<>INT(IT) THEN PRINT"INPUT ERROR!":FOR JJ=1 TO 300:NEXT:GOTO 4010 -4030 I=IT:GOSUB 1100:GOSUB 1200 -4033 ZA$="" -4035 INPUT"PRESS Y & IF EDIT DESIRED, JUST IF NOT";ZA$ -4037 IF ZA$<>"Y" THEN GOTO 4005 -4040 I=CN(0)+1 -4042 IF IT=0 THEN GOTO 4200 -4045 P$(I)=P$(IT):T(I)=T(IT):A(I)=A(IT):CN(I)=CN(IT) -4050 PRINT :INPUT"CHECK # ";CN(I) -4060 ZJ=99:GOSUB 1500 -4070 ZJ=0 -4080 IF Z8$="E" THEN GOTO 4000 -4085 B=B(IT):REM OLD BALANCE -4090 CN(IT)=CN(I):P$(IT)=P$(I):T(IT)=T(I):A(IT)=A(I):B(IT)=B(I) -4100 IF B=B(IT) THEN RETURN -4110 FOR I=IT+1 TO CN(0): B(I)=B(I)+(B(IT)-B):NEXT -4115 RETURN -4200 INPUT "INITIAL BALANCE ";B(I) -4210 INPUT "INITIAL DATE ";D$(I) -4213 ZA$="" -4215 INPUT"IF OK PRESS Y AND ELSE JUST ";ZA$ -4220 IF ZA$<>"Y" THEN RETURN -4230 D$(0)=D$(I):B=B(0):B(0)=B(I) -4235 IF B=B(0) THEN RETURN -4240 FOR I=1 TO CN(0): B(I)=B(I)+(B(0)-B):NEXT -4245 RETURN diff --git a/bwbtest/T80A/CHECKBK1.DAT b/bwbtest/T80A/CHECKBK1.DAT deleted file mode 100644 index c32424f..0000000 --- a/bwbtest/T80A/CHECKBK1.DAT +++ /dev/null @@ -1,3 +0,0 @@ -5001,2,100,"01/01/01" --1,"01/02/01","PAY",50,3456.78,3556.78 -5000,"01/03/01","MORTGAGE LLC",5,2987.65,569.13 diff --git a/bwbtest/T80A/CHECKBK1.INP b/bwbtest/T80A/CHECKBK1.INP deleted file mode 100644 index 3eeeea9..0000000 --- a/bwbtest/T80A/CHECKBK1.INP +++ /dev/null @@ -1,42 +0,0 @@ - -Y -1 -100.00 -5000 -01/01/01 -01/02/01 -D -PAY -0 - -50 -3456.78 - -Y -01/03/01 -C -MORTGAGE LLC -0 - -5 -2987.65 - -N -9 -CHECKBK1.DAT -8 -CHECKBK1.DAT - -6 -Y - -7 -Y -50 - -7 -Y -5 - -11 -Y diff --git a/bwbtest/T80A/CHECKBK1.run b/bwbtest/T80A/CHECKBK1.run deleted file mode 100644 index 6c618f3..0000000 --- a/bwbtest/T80A/CHECKBK1.run +++ /dev/null @@ -1,229 +0,0 @@ - CHECKBOOK MAINTENANCE PROGRAM - BY DR. PETER SHENKIN -****************************************************** - THIS SELF-DOCUMENTING PROGRAM WILL KEEP TRACK OF ALL - CHECKBOOK ITEMS. dEPOSITS AND EXPENSES MAY BE - CATEGORIZED. UP TO 100 CATEGORIES ARE ALLOWED. - CATEGORIES ENTERED FROM PROG. LINES 3020-3089 - CHECKBOOK ITEMS MAY BE STORED ON CASSETTE OR DISKETTE - AND READ IN FROM CASSETTE OR DISKETTE. - AT PRESENT DIMENSIONING IS SET UP FOR A MAXIMUM OF - 120 ITEMS IN YOUR CHECKBOOK AT ANY ONE TIME. THIS MAY BE - CHANGED BY CHANGING DIMENSION VARIABLE V IN LINE 101 - TO RUN PROGRAM DELETE REM STATEMENTS FOR MEMORY SPACE. - PRESS ENTER TO BEGIN.THERE SHOULD BE NO PROBLEM? -ARE DISK DRIVE(S) IN USE(Y/N)? Y - CHECKBOOK MAINTENANCE PROGRAM - -CHOOSE NUMBER OF DESIRED OPTION - -1.SET UP NEW CHECKBOOK -2.INPUT OLD CHECKBOOK FROM TAPE -3.ADD TO OLD CHECKBOOK -4.OUTPUT CHECKBOOK TO CASSETTE -5.REVIEW OF CHECK EXPENSE CATEGORIES -6.PRINT CHECKBOOK 10 ENTRIES AT A TIME OR LINEPRINT. -7.LIST BY CATEGORY -8.LOAD OLD CHECKBOOK FROM DISKETTE -9.OUTPUT CHECKBOOK TO DISKETTE -10.EDIT CHECKBOOK ITEM -11.END THIS PROGRAM - -OPTION # ? 1 -INITIAL BALANCE? 100.00 -INITIAL CHECK NUMBER? 5000 -INPUT INITIAL DATE IN FORM MM/DD/YY? 01/01/01 -INPUT DATE ? 01/02/01 -INPUT C FOR CHECK,D FOR DEP.,CM FOR MISC. CHARGE? D -WHAT WAS DEPOSITED ? PAY -DEPOSIT CATEGORY TYPE(0 TO SEE CATEGORIES)? 0 -CATEGORY DESCRIPTION - 1. LOAN PAYMENT - 2. BANK CARD PAYMENT - 3. MEDICAL EXPENSE - 4. HOUSEKEEPING MONEY - 5. MORTGAGE - 6. HOME EXPENSE,UTILITIES,ETC. - 7. STORE CHARGE CARD PAYMENT - 8. INSURANCE - 50. PAYCHECK DEPOSIT - 51. CONSULTING FEE - 52. MEDICAL REIMBURSEMENT - 53. OTHER BUSINESS INCOME - 54. MISC. DEPOSITS - -9. BUSINESS EXPENSE 10. OTHER EXPENSE -PRESS ENTER TO RETURN ? -DEPOSIT CATEGORY TYPE(0 TO SEE CATEGORIES)? 50 -AMOUNT OF DEPOSIT ? 3456.78 -CHK NO. DATE CHK ISSUED TO TYPE AMOUNT BAL. - 01/01/01 $100.00 - -1 01/02/01 PAY 50 $3456.78 $3556.78 - - - - -IF ERROR INPUT E.OTHERWISE ENTER? -ANY MORE ENTRIES (Y/N)? Y -INPUT DATE ? 01/03/01 -INPUT C FOR CHECK,D FOR DEP.,CM FOR MISC. CHARGE? C -CHECK ISSUED TO? MORTGAGE LLC -CHECK CATEGORY TYPE(0 TO SEE CATEGORIES)? 0 -CATEGORY DESCRIPTION - 1. LOAN PAYMENT - 2. BANK CARD PAYMENT - 3. MEDICAL EXPENSE - 4. HOUSEKEEPING MONEY - 5. MORTGAGE - 6. HOME EXPENSE,UTILITIES,ETC. - 7. STORE CHARGE CARD PAYMENT - 8. INSURANCE - 50. PAYCHECK DEPOSIT - 51. CONSULTING FEE - 52. MEDICAL REIMBURSEMENT - 53. OTHER BUSINESS INCOME - 54. MISC. DEPOSITS - -9. BUSINESS EXPENSE 10. OTHER EXPENSE -PRESS ENTER TO RETURN ? -CHECK CATEGORY TYPE(0 TO SEE CATEGORIES)? 5 -CHECK AMOUNT? 2987.65 -CHK NO. DATE CHK ISSUED TO TYPE AMOUNT BAL. - 01/02/01 $3556.78 -5000 01/03/01 MORTGAGE LLC 5 $2987.65 $569.13 - - - - -IF ERROR INPUT E.OTHERWISE ENTER? -ANY MORE ENTRIES (Y/N)? N - CHECKBOOK MAINTENANCE PROGRAM - -CHOOSE NUMBER OF DESIRED OPTION - -1.SET UP NEW CHECKBOOK -2.INPUT OLD CHECKBOOK FROM TAPE -3.ADD TO OLD CHECKBOOK -4.OUTPUT CHECKBOOK TO CASSETTE -5.REVIEW OF CHECK EXPENSE CATEGORIES -6.PRINT CHECKBOOK 10 ENTRIES AT A TIME OR LINEPRINT. -7.LIST BY CATEGORY -8.LOAD OLD CHECKBOOK FROM DISKETTE -9.OUTPUT CHECKBOOK TO DISKETTE -10.EDIT CHECKBOOK ITEM -11.END THIS PROGRAM - -OPTION # ? 9 - IS THE PRESENT FILE. -ENTER THE DISK FILE NAME FOR OUTPUT ? CHECKBK1.DAT - CHECKBOOK MAINTENANCE PROGRAM - -CHOOSE NUMBER OF DESIRED OPTION - -1.SET UP NEW CHECKBOOK -2.INPUT OLD CHECKBOOK FROM TAPE -3.ADD TO OLD CHECKBOOK -4.OUTPUT CHECKBOOK TO CASSETTE -5.REVIEW OF CHECK EXPENSE CATEGORIES -6.PRINT CHECKBOOK 10 ENTRIES AT A TIME OR LINEPRINT. -7.LIST BY CATEGORY -8.LOAD OLD CHECKBOOK FROM DISKETTE -9.OUTPUT CHECKBOOK TO DISKETTE -10.EDIT CHECKBOOK ITEM -11.END THIS PROGRAM - -OPTION # ? 8 -WHAT IS THE NAME OF THE DISK CHECK FILE? CHECKBK1.DAT -PRESS ENTER WHEN DISKETTE WITH CHECKBK1.DAT IS READY? -I= 1 -I= 2 - CHECKBOOK MAINTENANCE PROGRAM - -CHOOSE NUMBER OF DESIRED OPTION - -1.SET UP NEW CHECKBOOK -2.INPUT OLD CHECKBOOK FROM TAPE -3.ADD TO OLD CHECKBOOK -4.OUTPUT CHECKBOOK TO CASSETTE -5.REVIEW OF CHECK EXPENSE CATEGORIES -6.PRINT CHECKBOOK 10 ENTRIES AT A TIME OR LINEPRINT. -7.LIST BY CATEGORY -8.LOAD OLD CHECKBOOK FROM DISKETTE -9.OUTPUT CHECKBOOK TO DISKETTE -10.EDIT CHECKBOOK ITEM -11.END THIS PROGRAM - -OPTION # ? 6 -IS OUTPUT ON LINE PRINTER DESIRED(Y/N)? Y -CHK NO. DATE CHK ISSUED TO TYPE AMOUNT BAL. - 01/01/01 $100.00 - -1 01/02/01 PAY 50 $3456.78 $3556.78 -5000 01/03/01 MORTGAGE LLC 5 $2987.65 $569.13 - -THE END. PRESS ENTER TO RETURN TO MENU.? - CHECKBOOK MAINTENANCE PROGRAM - -CHOOSE NUMBER OF DESIRED OPTION - -1.SET UP NEW CHECKBOOK -2.INPUT OLD CHECKBOOK FROM TAPE -3.ADD TO OLD CHECKBOOK -4.OUTPUT CHECKBOOK TO CASSETTE -5.REVIEW OF CHECK EXPENSE CATEGORIES -6.PRINT CHECKBOOK 10 ENTRIES AT A TIME OR LINEPRINT. -7.LIST BY CATEGORY -8.LOAD OLD CHECKBOOK FROM DISKETTE -9.OUTPUT CHECKBOOK TO DISKETTE -10.EDIT CHECKBOOK ITEM -11.END THIS PROGRAM - -OPTION # ? 7 -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -INPUT CATEGORY NUMBER OF INTEREST? 50 -CHK NO. DATE CHK ISSUED TO TYPE AMOUNT BAL. - -1 01/02/01 PAY 50 $3456.78 $3556.78 - -TOTAL FOR THIS ITEM =$ 3456.78 -PRESS ENTER TO RETURN TO MENU? - CHECKBOOK MAINTENANCE PROGRAM - -CHOOSE NUMBER OF DESIRED OPTION - -1.SET UP NEW CHECKBOOK -2.INPUT OLD CHECKBOOK FROM TAPE -3.ADD TO OLD CHECKBOOK -4.OUTPUT CHECKBOOK TO CASSETTE -5.REVIEW OF CHECK EXPENSE CATEGORIES -6.PRINT CHECKBOOK 10 ENTRIES AT A TIME OR LINEPRINT. -7.LIST BY CATEGORY -8.LOAD OLD CHECKBOOK FROM DISKETTE -9.OUTPUT CHECKBOOK TO DISKETTE -10.EDIT CHECKBOOK ITEM -11.END THIS PROGRAM - -OPTION # ? 7 -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -INPUT CATEGORY NUMBER OF INTEREST? 5 -CHK NO. DATE CHK ISSUED TO TYPE AMOUNT BAL. -5000 01/03/01 MORTGAGE LLC 5 $2987.65 $569.13 - -TOTAL FOR THIS ITEM =$ 2987.65 -PRESS ENTER TO RETURN TO MENU? - CHECKBOOK MAINTENANCE PROGRAM - -CHOOSE NUMBER OF DESIRED OPTION - -1.SET UP NEW CHECKBOOK -2.INPUT OLD CHECKBOOK FROM TAPE -3.ADD TO OLD CHECKBOOK -4.OUTPUT CHECKBOOK TO CASSETTE -5.REVIEW OF CHECK EXPENSE CATEGORIES -6.PRINT CHECKBOOK 10 ENTRIES AT A TIME OR LINEPRINT. -7.LIST BY CATEGORY -8.LOAD OLD CHECKBOOK FROM DISKETTE -9.OUTPUT CHECKBOOK TO DISKETTE -10.EDIT CHECKBOOK ITEM -11.END THIS PROGRAM - -OPTION # ? 11 -ARE YOU SURE YOU WANT TO END(Y/N)? Y diff --git a/bwbtest/T80A/COMPBAL.BAS b/bwbtest/T80A/COMPBAL.BAS deleted file mode 100644 index 5df9c17..0000000 --- a/bwbtest/T80A/COMPBAL.BAS +++ /dev/null @@ -1,33 +0,0 @@ -1 REM COMPBAL -5 CLEAR 1000 -10 CLS -20 PRINT TAB(5); "LOAN RATE WITH COMPENSATING BALANCE":PRINT -30 PRINT"WHEN A BUSINESSMAN BORROWS MONEY FROM A BANK HE IS SOMETIMES -35 PRINT "REQUIRED TO KEEP A COMPENSATING BALANCE IN THE ACCOUNT. -40 PRINT"A COMPENSATING BALANCE IS AN AMOUNT THAT THE BUSINESSMAN -45 PRINT"PAYS INTEREST ON(AS HE HAS BORROWED IT) BUT WHICH HE -50 PRINT"CANNOT WITHDRAW FROM HIS ACCOUNT. IF A 15% COMPENSATING -55 PRINT"BALANCE IS REQUIRED,E.G. THIS MEANS THAT FOR EVERY $1,000 -60 PRINT"BORROWED THE BUSINESSMAN CAN ONLY WRITE CHECKS FOR $850. -65 PRINT"THIS IS ONE METHOD A BANK USES TO RAISE THE EFFECTIVE INTEREST -70 PRINT"RATE ON A LOAN. THE NOMINAL RATE ,IN THIS CASE, IS LOWER -75 PRINT"THAN THE 'TRUE' EFFECTIVE RATE. -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT"INPUT PROCEEDS OF LOAN IN $ ";AMOUNT -120 INPUT"INPUT COMPENSATING BALANCE % ";CP:CP=CP/100 -130 INPUT"NOMINAL INTEREST RATE ON LOAN(%) ";NI:NI=NI/100 -140 INPUT"NORMAL ACCOUNT BALANCE WITH NO LOAN $";NA -150 PRINT -170 AF=AMOUNT*(1-CP)+NA:REM AVAILABLE FUNDS -180 TI=AMOUNT*NI:REM TOTAL INTEREST -190 EF = TI/AF:REM EFFECTIVE INTEREST RATE. -260 F$(1)="% % $$######.##" -265 F$(2)="% % ###.## " -268 PRINT USING F$(1);"NOMINAL COMPENSATING BALANCE AMOUNT",AM*CP -269 PRINT USING F$(1);"TRUE COMPENSATING BALANCE AMOUNT",AM*CP-NA -270 PRINT USING F$(1);"AVAILABLE FUNDS FROM LOAN",AF -280 PRINT USING F$(2);"EFFECTIVE INTEREST RATE ";100*EF;:PRINT "%" -290 PRINT:INPUT"PRESS ENTER FOR MORE COMPUTATION";Z9$ -295 IF Z9$ = "-1" THEN END -300 GOTO 100 diff --git a/bwbtest/T80A/COMPBAL.INP b/bwbtest/T80A/COMPBAL.INP deleted file mode 100644 index 1405d27..0000000 --- a/bwbtest/T80A/COMPBAL.INP +++ /dev/null @@ -1,6 +0,0 @@ - -123456.78 -3.45 -6.78 -34567.89 --1 diff --git a/bwbtest/T80A/COMPBAL.run b/bwbtest/T80A/COMPBAL.run deleted file mode 100644 index 9283b61..0000000 --- a/bwbtest/T80A/COMPBAL.run +++ /dev/null @@ -1,25 +0,0 @@ - LOAN RATE WITH COMPENSATING BALANCE - -WHEN A BUSINESSMAN BORROWS MONEY FROM A BANK HE IS SOMETIMES -REQUIRED TO KEEP A COMPENSATING BALANCE IN THE ACCOUNT. -A COMPENSATING BALANCE IS AN AMOUNT THAT THE BUSINESSMAN -PAYS INTEREST ON(AS HE HAS BORROWED IT) BUT WHICH HE -CANNOT WITHDRAW FROM HIS ACCOUNT. IF A 15% COMPENSATING -BALANCE IS REQUIRED,E.G. THIS MEANS THAT FOR EVERY $1,000 -BORROWED THE BUSINESSMAN CAN ONLY WRITE CHECKS FOR $850. -THIS IS ONE METHOD A BANK USES TO RAISE THE EFFECTIVE INTEREST -RATE ON A LOAN. THE NOMINAL RATE ,IN THIS CASE, IS LOWER -THAN THE 'TRUE' EFFECTIVE RATE. - -PRESS ENTER TO BEGIN? -INPUT PROCEEDS OF LOAN IN $ ? 123456.78 -INPUT COMPENSATING BALANCE % ? 3.45 -NOMINAL INTEREST RATE ON LOAN(%) ? 6.78 -NORMAL ACCOUNT BALANCE WITH NO LOAN $? 34567.89 - -NOMINAL COMPENSATING BALANCE AMOUNT $0.00 -TRUE COMPENSATING BALANCE AMOUNT -$34567.89 -AVAILABLE FUNDS FROM LOAN $153765.41 -EFFECTIVE INTEREST RATE 5.44 % - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/CONDPROF.BAS b/bwbtest/T80A/CONDPROF.BAS deleted file mode 100644 index 08dfe82..0000000 --- a/bwbtest/T80A/CONDPROF.BAS +++ /dev/null @@ -1,71 +0,0 @@ -1 REM CONDPROF -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"CONDITIONAL PROFIT TABLE":PRINT -20 PRINT"THIS PROGRAM ASSUMES THERE ARE FROM 1 TO 6 STATES OF NATURE. -25 PRINT"THERE ARE ALSO FROM 1 TO 6 POSSIBLE ACTIONS WE CAN TAKE. IF THE -30 PRINT"STATE OF NATURE(S OF N) IS KNOWN THEN EACH ACTION LEADS TO -35 PRINT"A KNOWN MONETARY RESULT. THIS RESULT IS A CONDITIONAL PROFIT. -40 PRINT"FOR EXAMPLE, IF ACTION 3 LEADS TO A $35 PAYOFF WHEN STATE OF -45 PRINT"NATURE 4 IS TRUE THEN 35 IS THE CONDITIONAL PROFIT OF ACTION -50 PRINT"3 GIVEN STATE OF NATURE 4. THE FOLLOWING PROGRAM CONSTRUCTS -55 PRINT"A MATRIX WITH ELEMENTS BEING THE CONDITIONAL PROFITS. -60 PRINT"IN ADDITION THE PROBABILITY OF EACH S OF N IS ENTERED AND -70 PRINT"THE EXPECTED VALUE OF EACH ACTION IS COMPUTED. -95 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -100 D=6:REM MAXIMUM DIMENSION -102 DIM AA(D+2,D+2),PP(D),EE(D) -105 P=0 -110 CLS -120 INPUT"ENTER NUMBER OF POSSIBLE STATES OF NATURE";N -125 IF N<2 OR N>D OR N<>INT(N) THEN GOSUB 10000:GOTO 120 -127 PRINT -130 FOR I=1 TO N -135 PRINT"ENTER PROBABILITY OF S OF N";I;:INPUT PP(I) -140 P=P+PP(I) -150 NEXT I -160 IF P=1 THEN PRINT:GOTO 200 -170 PRINT:PRINT"PROBABILITIES DO NOT SUM TO 1." -175 INPUT"ENTER 1 TO STANDARDIZE,0 TO BEGIN OVER";Z9 -180 IF Z9<>0 AND Z9<>1 THEN GOSUB 10000:GOTO 170 -185 IF Z9=0 THEN GOTO 105 -190 FOR I=1 TO N:PP(I)=PP(I)/P:NEXT:P=1 -200 PRINT:INPUT"ENTER NUMBER OF POSSIBLE ACTIONS(<=5)";M -205 IF M<2 OR M>6 OR M<>INT(M) THEN GOSUB 10000:GOTO 200 -210 PRINT "NO PAYOFF MORE THAN 9999.99":PRINT -220 FOR J=1 TO M -225 PRINT -230 PRINT"ACTION";J -240 FOR I=1 TO N -250 PRINT TAB(5);"PAYOFF WHEN S OF N IS";I;:INPUT AA(I,J) -260 NEXT I -270 NEXT J -300 REM COMPUTATION -310 CLS:PRINT @ 340,"COMPUTING" -400 FOR J=1 TO M -410 FOR I=1 TO N:EE(J)=EE(J)+AA(I,J)*PP(I):NEXT I:REM EXP. VAL. -420 NEXT J -495 REM PRINT -500 CLS -510 F$(1)=" ACTION # " -515 F$(2)=" #####.## " -520 F$(3)=" CONDITIONAL PAYOFFS OF ACTION GIVEN S OF N " -521 F$(4)="S N PR ACTION" -525 PRINT:INPUT"IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -527 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 525 -530 PRINT F$(3):PRINT:PRINT F$(4):IF Z2$="Y" THEN LPRINT F$(3):LPRINT" ":LPRINT F$(4) -535 PRINT TAB(9);"";:FOR I=1 TO M:PRINT USING F$(1);I;:NEXT:PRINT -537 IF Z2$="Y" THEN LPRINT TAB(9);"";:FOR I=1 TO M:LPRINT USING F$(1);I;:NEXT:LPRINT" " -540 FOR I=1 TO N -550 PRINT USING "## #.## ";I,PP(I); -555 IF Z2$="Y" THEN LPRINT USING "## #.## ";I,PP(I); -560 FOR J=1 TO M:PRINT USING F$(2);AA(I,J);:NEXT:PRINT -562 IF Z2$="Y" THEN FOR J=1 TO M:LPRINT USING F$(2);AA(I,J);:NEXT:LPRINT" " -563 NEXT -564 PRINT:IF Z2$="Y" THEN LPRINT" " -565 PRINT "EXP VAL.";TAB(9);"";: -570 IF Z2$="Y" THEN LPRINT "EXP VAL.";TAB(9);"";: -575 FOR I=1 TO M:PRINT USING F$(2);EE(I);:NEXT -580 IF Z2$="Y" THEN FOR I=1 TO M:LPRINT USING F$(2);EE(I);:NEXT -600 PRINT:END -10000 PRINT"INPUT ERROR!TRY AGAIN!":FOR JJ=1 TO 300:NEXT:RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/CONDPROF.INP b/bwbtest/T80A/CONDPROF.INP deleted file mode 100644 index 34ac998..0000000 --- a/bwbtest/T80A/CONDPROF.INP +++ /dev/null @@ -1,10 +0,0 @@ - -2 -0.33 -0.67 -2 -234.56 -543.21 -831.74 -987.65 -Y diff --git a/bwbtest/T80A/CONDPROF.run b/bwbtest/T80A/CONDPROF.run deleted file mode 100644 index 5dd9bdd..0000000 --- a/bwbtest/T80A/CONDPROF.run +++ /dev/null @@ -1,42 +0,0 @@ - CONDITIONAL PROFIT TABLE - -THIS PROGRAM ASSUMES THERE ARE FROM 1 TO 6 STATES OF NATURE. -THERE ARE ALSO FROM 1 TO 6 POSSIBLE ACTIONS WE CAN TAKE. IF THE -STATE OF NATURE(S OF N) IS KNOWN THEN EACH ACTION LEADS TO -A KNOWN MONETARY RESULT. THIS RESULT IS A CONDITIONAL PROFIT. -FOR EXAMPLE, IF ACTION 3 LEADS TO A $35 PAYOFF WHEN STATE OF -NATURE 4 IS TRUE THEN 35 IS THE CONDITIONAL PROFIT OF ACTION -3 GIVEN STATE OF NATURE 4. THE FOLLOWING PROGRAM CONSTRUCTS -A MATRIX WITH ELEMENTS BEING THE CONDITIONAL PROFITS. -IN ADDITION THE PROBABILITY OF EACH S OF N IS ENTERED AND -THE EXPECTED VALUE OF EACH ACTION IS COMPUTED. - -PRESS ENTER TO BEGIN? -ENTER NUMBER OF POSSIBLE STATES OF NATURE? 2 - -ENTER PROBABILITY OF S OF N 1 ? 0.33 -ENTER PROBABILITY OF S OF N 2 ? 0.67 - - -ENTER NUMBER OF POSSIBLE ACTIONS(<=5)? 2 -NO PAYOFF MORE THAN 9999.99 - - -ACTION 1 - PAYOFF WHEN S OF N IS 1 ? 234.56 - PAYOFF WHEN S OF N IS 2 ? 543.21 - -ACTION 2 - PAYOFF WHEN S OF N IS 1 ? 831.74 - PAYOFF WHEN S OF N IS 2 ? 987.65 -COMPUTING - -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y - CONDITIONAL PAYOFFS OF ACTION GIVEN S OF N - -S N PR ACTION - ACTION 1 ACTION 2 - 1 0.33 234.56 831.74 - 2 0.67 543.21 987.65 - -EXP VAL. 441.36 936.20 diff --git a/bwbtest/T80A/CVP.BAS b/bwbtest/T80A/CVP.BAS deleted file mode 100644 index 0ad12c5..0000000 --- a/bwbtest/T80A/CVP.BAS +++ /dev/null @@ -1,45 +0,0 @@ -1 REM CVP -5 CLEAR 1000 -10 CLS -20 PRINT TAB(10); "COST-VOLUME-PROFIT ANALYSIS":PRINT -30 PRINT"THE BUSINESSMAN IS VERY INTERESTED IN INCOME AFTER TAXES. -35 PRINT"SOMETIMES IT IS VERY DIFFICULT TO FIND THIS. VARIABLES WHICH -40 PRINT"MUST BE CONSIDERED INCLUDE VARIABLE COSTS PER UNIT, -45 PRINT"FIXED COSTS, TAX RATE,SALES DOLLARS, SALES PRICE PER UNIT. -50 PRINT"THE CURRENT PROGRAM ALSO USES RATIO OF VARIABLE COSTS PER UNIT -55 PRINT"TO SALES PRICE PER UNIT. -60 PRINT"WITH THE ABOVE THIS PROGRAM COMPUTES INCOME AFTER TAXES. -65 PRINT"AS AN OPTION IT CAN ALSO COMPUTE SALES DOLLARS NEEDED FOR -70 PRINT"A SPECIFIED INCOME. -90 PRINT -95 INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 PRINT TAB(10); "MENU":PRINT -115 PRINT"0. QUIT -120 PRINT"1. DETERMINE SALES FOR SPECIFIED INCOME -130 PRINT"2. DETERMINE INCOME FOR SPECIFIED SALES -150 PRINT:INPUT"ENTER YOUR CHOICE";Z9 -155 IF Z9 = 0 THEN END -160 ON Z9 GOSUB 200,300 -170 GOTO 100 -200 REM FIND SALES FOR SPECIFIED INCOME -210 CLS:GOSUB 500 -220 INPUT"ENTER DESIRED INCOME LEVEL ";I -230 S = (1/(1-R))*(FC + I/(1-TX)) -240 F$(1)="TO REACH INCOME LEVEL $$######.## YOU MUST SELL $$#######.## IN GOODS" -250 PRINT USING F$(1);I,S -290 PRINT:INPUT"PRESS ENTER TO CONTINUE";Z9$ -295 RETURN -300 REM DETERMINE INCOME FOR SPECIFIED SALES -310 CLS:GOSUB 500 -320 INPUT"ENTER SPECIFIED SALES LEVEL ";S -330 I = (1-TX)*(S*(1-R)-FC) -340 F$(1)="FOR SALES LEVEL $$#######.## YOUR INCOME WILL EQUAL $$#####.##" -350 PRINT USING F$(1);S,I -390 PRINT:INPUT"PRESS ENTER TO CONTINUE";Z9$ -395 RETURN -500 REM INPUT SUBROUTINE -510 INPUT"ENTER TOTAL FIXED COSTS IN DOLLARS ";FC -520 INPUT"ENTER TAX RATE AS PER CENT ";TX:TX=TX/100 -530 INPUT"ENTER RATIO OF VARIABLE COSTS PER UNIT TO SALES PRICE PER UNIT ";R -590 RETURN diff --git a/bwbtest/T80A/CVP.INP b/bwbtest/T80A/CVP.INP deleted file mode 100644 index 1954a49..0000000 --- a/bwbtest/T80A/CVP.INP +++ /dev/null @@ -1,14 +0,0 @@ - -1 -9876.54 -35 -0.25 -123456 - -2 -4567 -22 -0.15 -234567 - -0 diff --git a/bwbtest/T80A/CVP.run b/bwbtest/T80A/CVP.run deleted file mode 100644 index c51ecb0..0000000 --- a/bwbtest/T80A/CVP.run +++ /dev/null @@ -1,50 +0,0 @@ - COST-VOLUME-PROFIT ANALYSIS - -THE BUSINESSMAN IS VERY INTERESTED IN INCOME AFTER TAXES. -SOMETIMES IT IS VERY DIFFICULT TO FIND THIS. VARIABLES WHICH -MUST BE CONSIDERED INCLUDE VARIABLE COSTS PER UNIT, -FIXED COSTS, TAX RATE,SALES DOLLARS, SALES PRICE PER UNIT. -THE CURRENT PROGRAM ALSO USES RATIO OF VARIABLE COSTS PER UNIT -TO SALES PRICE PER UNIT. -WITH THE ABOVE THIS PROGRAM COMPUTES INCOME AFTER TAXES. -AS AN OPTION IT CAN ALSO COMPUTE SALES DOLLARS NEEDED FOR -A SPECIFIED INCOME. - -PRESS ENTER TO BEGIN? - MENU - -0. QUIT -1. DETERMINE SALES FOR SPECIFIED INCOME -2. DETERMINE INCOME FOR SPECIFIED SALES - -ENTER YOUR CHOICE? 1 -ENTER TOTAL FIXED COSTS IN DOLLARS ? 9876.54 -ENTER TAX RATE AS PER CENT ? 35 -ENTER RATIO OF VARIABLE COSTS PER UNIT TO SALES PR -ICE PER UNIT ? 0.25 -ENTER DESIRED INCOME LEVEL ? 123456 -TO REACH INCOME LEVEL $123456.00 YOU MUST SELL $266411.80 IN GOODS - -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. DETERMINE SALES FOR SPECIFIED INCOME -2. DETERMINE INCOME FOR SPECIFIED SALES - -ENTER YOUR CHOICE? 2 -ENTER TOTAL FIXED COSTS IN DOLLARS ? 4567 -ENTER TAX RATE AS PER CENT ? 22 -ENTER RATIO OF VARIABLE COSTS PER UNIT TO SALES PR -ICE PER UNIT ? 0.15 -ENTER SPECIFIED SALES LEVEL ? 234567 -FOR SALES LEVEL $234567.00 YOUR INCOME WILL EQUAL $151955.66 - -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. DETERMINE SALES FOR SPECIFIED INCOME -2. DETERMINE INCOME FOR SPECIFIED SALES - -ENTER YOUR CHOICE? 0 diff --git a/bwbtest/T80A/DATE.BAS b/bwbtest/T80A/DATE.BAS deleted file mode 100644 index 2f673e6..0000000 --- a/bwbtest/T80A/DATE.BAS +++ /dev/null @@ -1,41 +0,0 @@ -5 REM PROGRAM DATE -12000 CLS -12093 REM DELETE LINES 12000-12105 TO WRITE AS SUBROUTINE -12095 REM DELETE LINES 20000 - TO WRITE AS SUBROUTINE -12100 GOTO 20000 -12105 CLS -12110 FOR I= 1 TO 2 -12115 REM REMOVE 12120 & 12130 TO WRITE AS SUBROUTINE -12120 PRINT "INPUT DATE ";I;" IN FORM MM,DD,YYYY"; -12130 INPUT M(I),D(I),Y(I) -12140 IF M(I)=1 OR M(I)=2 GOTO 12180 -12150 A1=365*Y(I) + D(I)+31*(M(I)-1) - INT(.4*M(I)+2.3) -12155 A2=INT(Y(I)/4)-INT(.75*(INT(Y(I)/100)+1)) -12160 GOTO 12190 -12180 A1=365*Y(I)+D(I)+31*(M(I)-1)+INT((Y(I)-1)/4) -12185 A2=-INT(.75*INT(((Y(I)-1)/100)+1)) -12190 F(I)=A1+A2 -12195 NEXT I -12197 F(3)=F(2)-F(1) -12198 REM RETURN HERE IF WRITTEN AS SUBROUTINE. F(3) IS CALCULATED NUMBER OF DAYS -12199 PRINT @ 320," " -12200 PRINT"THE NUMBER OF DAYS BETWEEN ";M(1);"/";D(1);"/";Y(1);"AND" -12210 PRINT M(2);"/";D(2);"/";Y(2) ;"EQUALS "; F(2)-F(1) -12300 PRINT -12310 PRINT "PRESS 1 FOR MORE FOR TRIALS, 0 TO END.";:INPUT Z8 -12320 IF Z8=1 GOTO 12105 -12330 IF Z8=0 THEN END -12340 PRINT "INPUT ERROR.TRY AGAIN" -12350 FOR I=1 TO 300:NEXT I -12360 GOTO 12300 -20000 PRINT" NUMBER OF DAYS BETWEEN DATES" -20010 PRINT -20020 PRINT"THIS PROGRAM WILL DETERMINE THE NUMBER OF DAYS BETWEEN ANY -20030 PRINT"TWO CALENDAR DATES AFTER 1582. tHE PROGRAM IS SET UP SO -20040 PRINT"THAT THERE IS ONE DAY'S DIFFERENCE BETWEEN 2 CONSECUTIVE -20050 PRINT"DAYS. -20060 PRINT"INPUT IS JUST THE 2 GIVEN DATES. OUTPUT GIVES THE NUMBER -20070 PRINT"OF DAYS BETWEEN THE DATES. -20080 PRINT -20090 INPUT"PRESS ENTER TO BEGIN";Z9 -20100 GOTO 12105 diff --git a/bwbtest/T80A/DATE.INP b/bwbtest/T80A/DATE.INP deleted file mode 100644 index 234bb9c..0000000 --- a/bwbtest/T80A/DATE.INP +++ /dev/null @@ -1,4 +0,0 @@ - -01,01,2015 -01,02,2015 -0 diff --git a/bwbtest/T80A/DATE.run b/bwbtest/T80A/DATE.run deleted file mode 100644 index 4c83842..0000000 --- a/bwbtest/T80A/DATE.run +++ /dev/null @@ -1,17 +0,0 @@ - NUMBER OF DAYS BETWEEN DATES - -THIS PROGRAM WILL DETERMINE THE NUMBER OF DAYS BETWEEN ANY -TWO CALENDAR DATES AFTER 1582. tHE PROGRAM IS SET UP SO -THAT THERE IS ONE DAY'S DIFFERENCE BETWEEN 2 CONSECUTIVE -DAYS. -INPUT IS JUST THE 2 GIVEN DATES. OUTPUT GIVES THE NUMBER -OF DAYS BETWEEN THE DATES. - -PRESS ENTER TO BEGIN? -INPUT DATE 1 IN FORM MM,DD,YYYY? 01,01,2015 -INPUT DATE 2 IN FORM MM,DD,YYYY? 01,02,2015 - -THE NUMBER OF DAYS BETWEEN 1 / 1 / 2015 AND - 1 / 2 / 2015 EQUALS 1 - -PRESS 1 FOR MORE FOR TRIALS, 0 TO END.? 0 diff --git a/bwbtest/T80A/DATEVAL.BAS b/bwbtest/T80A/DATEVAL.BAS deleted file mode 100644 index 66d44ed..0000000 --- a/bwbtest/T80A/DATEVAL.BAS +++ /dev/null @@ -1,32 +0,0 @@ -1 REM DATEVAL -5 CLEAR 1000 -10 CLS:PRINT TAB(10); "DATED VALUE FOR OBLIGATIONS":PRINT -20 PRINT"THE MATURITY VALUE OF AN OBLIGATION ALONG WITH THE DATE -25 PRINT"OF MATURITY IS A DATED VALUE. AN EXAMPLE OF A DATED VALUE -30 PRINT"WOULD BE $750 DUE ON SEPTEMBER 13,1980. DIFFERENT SETS OF -35 PRINT"DATED VALUES MAY BE COMPARED BUT E.G. TO COMPARE $750 DUE ON -40 PRINT"9/13/80 WITH $900 DUE ON 9/13/82 WE MUST PICK SOME INTEREST -45 PRINT"RATE AND PERFORM SOME TYPE OF COMPOUND INTEREST ANALYSIS. -50 PRINT"IN THE PRESENT PROGRAM THIS IS DONE. WE ARE GIVEN A DATED -55 PRINT"VALUE MATURING SOME FIXED NUMBER OF YEARS IN THE FUTURE. WE -60 PRINT"ARE ALSO AN INTEREST RATE TO BE USED IN COMPARISON. WHAT THE -65 PRINT"PROGRAM THEN DOES IS FIND AN EQUIVALENT DEBT MATURING AT -70 PRINT"SOME OTHER FIXED TIME IN THE FUTURE." -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT"ENTER INTEREST RATE(%) TO BE USED IN COMPUTATIONS";P:P=P/100 -120 PRINT:PRINT"INPUT FOR GIVEN DATED VALUE" -125 PRINT TAB(10);"INPUT MATURITY VALUE ";:INPUT MV -130 PRINT TAB(10);"INPUT # OF YEARS INTO FUTURE FOR MATURITY";:INPUT NY -150 PRINT:PRINT -155 PRINT"INPUT # OF YEARS INTO FUTURE FOR MATURITY OF DATED VALUE FOR -160 PRINT"COMPARISON";:INPUT N -170 EDV=MV*(1+P)[(N-NY) -180 PRINT:PRINT MV;"DUE IN";NY;"YEARS IS EQUIVALENT TO";EDV;"DUE IN";N;"YEARS" -190 PRINT -200 INPUT"PRESS 1 TO KEEP SAME ORIGINAL DATED VALUE, 2 TO BEGIN OVER";Z9 -205 PRINT -207 IF Z9 = -1 THEN END -210 IF Z9<>1 AND Z9<>2 THEN GOSUB 10000:PRINT:GOTO 200 -220 IF Z9=2 THEN GOTO 100 ELSE GOTO 155 -10000 PRINT"INPUT ERROR!TRY AGAIN":FOR I=1 TO 300:NEXT:RETURN diff --git a/bwbtest/T80A/DATEVAL.INP b/bwbtest/T80A/DATEVAL.INP deleted file mode 100644 index a19f45d..0000000 --- a/bwbtest/T80A/DATEVAL.INP +++ /dev/null @@ -1,6 +0,0 @@ - -5 -1000 -10 -5 --1 diff --git a/bwbtest/T80A/DATEVAL.run b/bwbtest/T80A/DATEVAL.run deleted file mode 100644 index ac6d5a6..0000000 --- a/bwbtest/T80A/DATEVAL.run +++ /dev/null @@ -1,29 +0,0 @@ - DATED VALUE FOR OBLIGATIONS - -THE MATURITY VALUE OF AN OBLIGATION ALONG WITH THE DATE -OF MATURITY IS A DATED VALUE. AN EXAMPLE OF A DATED VALUE -WOULD BE $750 DUE ON SEPTEMBER 13,1980. DIFFERENT SETS OF -DATED VALUES MAY BE COMPARED BUT E.G. TO COMPARE $750 DUE ON -9/13/80 WITH $900 DUE ON 9/13/82 WE MUST PICK SOME INTEREST -RATE AND PERFORM SOME TYPE OF COMPOUND INTEREST ANALYSIS. -IN THE PRESENT PROGRAM THIS IS DONE. WE ARE GIVEN A DATED -VALUE MATURING SOME FIXED NUMBER OF YEARS IN THE FUTURE. WE -ARE ALSO AN INTEREST RATE TO BE USED IN COMPARISON. WHAT THE -PROGRAM THEN DOES IS FIND AN EQUIVALENT DEBT MATURING AT -SOME OTHER FIXED TIME IN THE FUTURE. - -PRESS ENTER TO BEGIN? -ENTER INTEREST RATE(%) TO BE USED IN COMPUTATIONS? 5 - -INPUT FOR GIVEN DATED VALUE - INPUT MATURITY VALUE ? 1000 - INPUT # OF YEARS INTO FUTURE FOR MATURITY? 10 - - -INPUT # OF YEARS INTO FUTURE FOR MATURITY OF DATED VALUE FOR -COMPARISON? 5 - - 1000 DUE IN 10 YEARS IS EQUIVALENT TO 783.526 DUE IN 5 YEARS - -PRESS 1 TO KEEP SAME ORIGINAL DATED VALUE, 2 TO BEGIN OVER? -1 - diff --git a/bwbtest/T80A/DAYYEAR.BAS b/bwbtest/T80A/DAYYEAR.BAS deleted file mode 100644 index 499844c..0000000 --- a/bwbtest/T80A/DAYYEAR.BAS +++ /dev/null @@ -1,40 +0,0 @@ -1 REM DAYYEAR -4 CLEAR 1000:CLS -10 DIM M$(15),S(15) -15 DEFINT L -20 PRINT TAB(15); "DAY OF YEAR" -30 PRINT:PRINT"GIVEN THE MONTH AND DAY OF A PARTICULAR DATE IN THE YEAR -40 PRINT"THIS PROGRAM WILL CALCULATE ON WHICH DAY OF THE YEAR THAT DATE -50 PRINT"OCCURS. FOR EXAMPLE 02/15 IS THE 46 TH DAY OF THE YEAR. FOR -60 PRINT"ALL DATES AFTER FEBRUARY 28 THE PROGRAM PRINTS 2 ANSWERS, ONE -70 PRINT"FOR A LEAP YEAR AND ONE FOR NON-LEAP YEARS." -75 PRINT"THE PROGRAM ALSO GIVES THE NUMBER OF DAYS FROM THE PRESENT -80 PRINT"DATE TO THE PREVIOUSLY ENTERED DATE. A NEGATIVE HERE MEANS -85 PRINT"THAT THE PRESENT DATE COMES LAST. THIS PART OF THE PROGRAM -90 PRINT"GIVES AN INCORRECT ANSWER FOR FEBRUARY 29 DURING LEAP YEAR. -95 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -97 FOR LL=1 TO 12:READ M$(LL):NEXT:REM READ MONTHS IN -98 FOR LL=1 TO 13:READ S(LL):NEXT:REM READ 1ST DAY OF MONTH DATA -100 CLS -110 INPUT"ENTER MONTH OF DESIRED DATE IN NUMERICAL MM FORM";MM -115 IF MM<1 OR MM>12 OR MM<>INT(MM) THEN GOSUB 10000:GOTO 110 -120 PRINT"ENTER DAY OF ";M$(MM);" DESIRED";:INPUT DD -125 IF MM=2 AND DD=29 THEN GOTO 150 -130 IF DD<>INT(DD) OR DD<1 OR DD>S(MM+1)-S(MM) THEN GOSUB 10000:GOTO 120 -150 PRINT:PRINT -160 PRINT M$(MM);DD;" IS DAY NUMBER ";S(MM)+DD;" OF THE YEAR." -170 PRINT -180 IF MM>2 THEN PRINT "DURING A LEAP YEAR "; M$(MM);DD;" IS DAY NUMBER ";S(MM)+DD+1;" OF THE YEAR." -182 PRINT:PRINT"NUMBER OF DAYS FROM LAST DATE = ";S(MM)+DD-JR -183 IF JM<=2 AND MM>2 THEN PRINT"NUMBER OF DAYS FROM LAST DATE DURING LEAP YEAR = ";S(MM)+DD+1-JR -184 IF JM>2 AND MM<=2 THEN PRINT"NUMBER OF DAYS FROM LAST DATE DURING LEAP YEAR = ";S(MM)+DD-JR-1 -185 JR=S(MM)+DD:JM=MM -190 PRINT:PRINT -195 INPUT"PRESS ENTER FOR MORE COMPUTATIONS";Z9$ -197 IF Z9$ = "-1" THEN END -199 GOTO 100 -900 DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST -910 DATA SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER -920 REM NO. OF DAYS TO FIRST DAY OF MONTH DATA -930 DATA 0,31,59,90,120,151,181,212,243,273,304,334,365 -10000 PRINT"INPUT ERROR! TRY AGAIN":FOR JJ=1 TO 300:NEXT:RETURN diff --git a/bwbtest/T80A/DAYYEAR.INP b/bwbtest/T80A/DAYYEAR.INP deleted file mode 100644 index 9f2d191..0000000 --- a/bwbtest/T80A/DAYYEAR.INP +++ /dev/null @@ -1,4 +0,0 @@ - -02 -01 --1 diff --git a/bwbtest/T80A/DAYYEAR.run b/bwbtest/T80A/DAYYEAR.run deleted file mode 100644 index 862c1f5..0000000 --- a/bwbtest/T80A/DAYYEAR.run +++ /dev/null @@ -1,24 +0,0 @@ - DAY OF YEAR - -GIVEN THE MONTH AND DAY OF A PARTICULAR DATE IN THE YEAR -THIS PROGRAM WILL CALCULATE ON WHICH DAY OF THE YEAR THAT DATE -OCCURS. FOR EXAMPLE 02/15 IS THE 46 TH DAY OF THE YEAR. FOR -ALL DATES AFTER FEBRUARY 28 THE PROGRAM PRINTS 2 ANSWERS, ONE -FOR A LEAP YEAR AND ONE FOR NON-LEAP YEARS. -THE PROGRAM ALSO GIVES THE NUMBER OF DAYS FROM THE PRESENT -DATE TO THE PREVIOUSLY ENTERED DATE. A NEGATIVE HERE MEANS -THAT THE PRESENT DATE COMES LAST. THIS PART OF THE PROGRAM -GIVES AN INCORRECT ANSWER FOR FEBRUARY 29 DURING LEAP YEAR. - -PRESS ENTER TO BEGIN? -ENTER MONTH OF DESIRED DATE IN NUMERICAL MM FORM? 02 -ENTER DAY OF FEBRUARY DESIRED? 01 - - -FEBRUARY 1 IS DAY NUMBER 32 OF THE YEAR. - - -NUMBER OF DAYS FROM LAST DATE = 32 - - -PRESS ENTER FOR MORE COMPUTATIONS? -1 diff --git a/bwbtest/T80A/DEPLETE.BAS b/bwbtest/T80A/DEPLETE.BAS deleted file mode 100644 index bedb138..0000000 --- a/bwbtest/T80A/DEPLETE.BAS +++ /dev/null @@ -1,30 +0,0 @@ -1 REM DEPLETE -5 CLEAR 1000 -7 DEFDBL A-Z -10 CLS -20 PRINT TAB(15); "DEPLETION ANALYSIS":PRINT -30 PRINT"DEPLETION REFERS TO EXHAUSTING NATURAL RESOURCES. DEPRECIATION -35 PRINT"CHARGES, WHEN COMPUTED BY THE DEPLETION METHOD ARE PROPORTIONAL -40 PRINT"TO THE PRODUCTION LEVEL. THIS IS BECAUSE, IN THE CASE OF -45 PRINT"NONREPLACEABLE NATURAL RESOURCES, WHEN THE RESOURCE IS USED -50 PRINT"UP THEN THE LAND USED IS OF NO MORE VALUE FOR THAT PURPOSE. -55 PRINT"IF SOME ESTIMATE CAN BE MADE OF THE TOTAL PRODUCTIVE OUTPUT -60 PRINT"OF A MINE, E.G. AND OF THE COST OF THE MINE TO DEVELOP THEN -65 PRINT"IN A YEAR IN WHICH 10% OF THE TOTAL PRODUCTIVE OUTPUT IS MINED -70 PRINT"10% OF THE ORIGINAL VALUE OF THE MINE WOULD BE USED AS THE -75 PRINT"DEPRECIATION AMOUNT." -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -200 CLS -210 INPUT"COST OF PURCHASE & DEVELOPMENT ";C -220 INPUT"FINAL SALVAGE VALUE ESTIMATE ";S -230 INPUT"TOTAL REPAIR COST OVER LIFE ";K -240 INPUT"ESTIMATE OF LIFETIME PRODUCTIVE OUTPUT";E -250 A=((C-S)+K)/E:REM MULTIPLICATION FACTOR ON PRODUCTION -300 PRINT:REM INPUT SEVERAL PRODUCTION LEVELS -310 INPUT"ENTER PRODUCTION LEVEL(-1 TO END)";X -320 PRINT USING "DEPRECIATION CHARGES ARE $$#########.##";A*X -330 PRINT -340 INPUT"ENTER 1 FOR NEW PRODUCTION LEVEL,2 FOR NEW ITEM,3 TO END";Z9 -350 IF Z9<>1 AND Z9<>2 AND Z9<>3 THEN PRINT"ERROR!!!":GOTO 340 -360 IF Z9=1 THEN PRINT:GOTO 310 -370 IF Z9=2 THEN GOTO 200 diff --git a/bwbtest/T80A/DEPLETE.INP b/bwbtest/T80A/DEPLETE.INP deleted file mode 100644 index 838f48d..0000000 --- a/bwbtest/T80A/DEPLETE.INP +++ /dev/null @@ -1,7 +0,0 @@ - -234567 -1234 -87654 -10 -1 -3 diff --git a/bwbtest/T80A/DEPLETE.run b/bwbtest/T80A/DEPLETE.run deleted file mode 100644 index 7ca3ba1..0000000 --- a/bwbtest/T80A/DEPLETE.run +++ /dev/null @@ -1,23 +0,0 @@ - DEPLETION ANALYSIS - -DEPLETION REFERS TO EXHAUSTING NATURAL RESOURCES. DEPRECIATION -CHARGES, WHEN COMPUTED BY THE DEPLETION METHOD ARE PROPORTIONAL -TO THE PRODUCTION LEVEL. THIS IS BECAUSE, IN THE CASE OF -NONREPLACEABLE NATURAL RESOURCES, WHEN THE RESOURCE IS USED -UP THEN THE LAND USED IS OF NO MORE VALUE FOR THAT PURPOSE. -IF SOME ESTIMATE CAN BE MADE OF THE TOTAL PRODUCTIVE OUTPUT -OF A MINE, E.G. AND OF THE COST OF THE MINE TO DEVELOP THEN -IN A YEAR IN WHICH 10% OF THE TOTAL PRODUCTIVE OUTPUT IS MINED -10% OF THE ORIGINAL VALUE OF THE MINE WOULD BE USED AS THE -DEPRECIATION AMOUNT. - -PRESS ENTER TO BEGIN? -COST OF PURCHASE & DEVELOPMENT ? 234567 -FINAL SALVAGE VALUE ESTIMATE ? 1234 -TOTAL REPAIR COST OVER LIFE ? 87654 -ESTIMATE OF LIFETIME PRODUCTIVE OUTPUT? 10 - -ENTER PRODUCTION LEVEL(-1 TO END)? 1 -DEPRECIATION CHARGES ARE $32098.70 - -ENTER 1 FOR NEW PRODUCTION LEVEL,2 FOR NEW ITEM,3 TO END? 3 diff --git a/bwbtest/T80A/DEPRDB.BAS b/bwbtest/T80A/DEPRDB.BAS deleted file mode 100644 index d4097e1..0000000 --- a/bwbtest/T80A/DEPRDB.BAS +++ /dev/null @@ -1,66 +0,0 @@ -5 CLS -10 PRINT " DEPRECIATION SCHEDULE-DECLINING BALANCE" -20 PRINT "THIS PROGRAM PRINTS A SCHEDULE FOR DEPRECIATING AN ASSET -30 PRINT"BY THE DECLINING BALANCE METHOD" -40 PRINT "INPUTS ARE ITEM COST,ESTIMATED SALVAGE VALUE & LIFE IN YEARS. -50 PRINT"OUTPUT IS A YEAR BY YEAR SCHEDULE OF CURRENT DEPRECIATION, -60 PRINT"ACCUMULATED DEPRECIATION AND BOOK VALUE. -90 INPUT " PRESS ENTER TO BEGIN";Z9 -100 CLS -105 INPUT"DO YOU WANT OUTPUT ON LINEPRINTER(Y/N)";Z2$ -106 IF Z2$<>"Y" AND Z2$<>"N" THEN GOTO 105 -110 INPUT "ENTER COST ";C -120 INPUT "ENTER SALVAGE VALUE ";S -130 INPUT "ENTER LIFE IN YEARS ";L -135 INPUT "RATE OF DEPRECIATION(%) ";RD -137 RD=RD/100 -140 IF C >= S GOTO 200 -150 PRINT -160 PRINT"SALVAGE VALUE > COST ---- ERROR-ERROR" -170 PRINT"ENTER DATA AGAIN." -180 FOR I= 1 TO 400:NEXT I -190 GOTO 100 -200 CLS -210 GOSUB 1000:REM HEADING -220 GOSUB 1100:REM INITIALIZE -230 GOSUB 1200:REM COMPUTE & PRINT -250 END -1000 REM HEADING SUBROUTINE -1010 CLS -1015 IF Z2$="Y" THEN INPUT"PRESS ENTER WHEN PRINTER READY";Z9$:PRINT -1020 H1$="YEAR CURR.DEP. ACCUM.DEP. BOOK VAL. !" -1030 C1$=" ## #####.## #######.## #######.##" -1035 C2$=" ## #######.##" -1037 IF Z2$="Y" THEN LPRINT "DECLINING BALANCE DEPRECIATION SCHEDULE":LPRINT" ":LPRINT "INITIAL COST = ";C:LPRINT"SALVAGE VALUE = ";S:LPRINT"LIFE OF ASSET(YEARS) = ";L -1038 IF Z2$="Y" THEN LPRINT"RATE OF DEPRECIATION = ";100*RD;"%":LPRINT" " -1040 PRINT H1$:IF Z2$="Y" THEN LPRINT H1$:LPRINT " " -1050 RETURN -1100 REM INITIALIZE SUBROUTINE -1110 AD=0:REM ACCUMULATED DEPRECIATION -1115 DP=C-S :REM AMOUNT TO BE DEPRECIATED -1120 BV=C :REM BOOK VALUE -1125 YR=0 :REM PRESENT YEAR -1150 RETURN -1200 REM COMPUTATION AND PRINTING SUBROUTINE -1210 PRINT USING C2$;YR,C -1215 IF Z2$="Y" THEN LPRINT USING C2$;YR,C:LPRINT" " -1220 FOR I=1 TO L-1 -1230 D=BV*RD -1240 BV=BV-D : AD=AD+D -1250 YR=YR+1 -1255 IF BV>=S GOTO 1260 -1256 AD=AD-D -1257 D=BV+D-S:AD=AD+D:BV=S -1260 PRINT USING C1$;YR,D,AD,BV -1262 IF Z2$="Y" THEN LPRINT USING C1$;YR,D,AD,BV:GOTO 1270 -1265 IF I/10=INT(I/10) THEN GOSUB 1400 ' STOP SCROLLING OFF SCREEN -1270 NEXT I -1280 D=(C-S)-AD -1290 BV=BV-D:AD=AD+D : YR=YR+1 -1295 PRINT USING C1$;YR,D,AD,BV -1297 IF Z2$="Y" THEN LPRINT USING C1$;YR,D,AD,BV -1300 RETURN -1400 REM SUBROUTINE TO HOLD OUTPUT ON SCREEN -1410 INPUT "FOR MORE OF TABLE PRESS ENTER";Z9 -1420 GOSUB 1000 -1430 RETURN diff --git a/bwbtest/T80A/DEPRDB.INP b/bwbtest/T80A/DEPRDB.INP deleted file mode 100644 index 6dd3882..0000000 --- a/bwbtest/T80A/DEPRDB.INP +++ /dev/null @@ -1,7 +0,0 @@ - -Y -56789 -12345 -10 -12.5 - diff --git a/bwbtest/T80A/DEPRDB.run b/bwbtest/T80A/DEPRDB.run deleted file mode 100644 index b5a48dc..0000000 --- a/bwbtest/T80A/DEPRDB.run +++ /dev/null @@ -1,26 +0,0 @@ - DEPRECIATION SCHEDULE-DECLINING BALANCE -THIS PROGRAM PRINTS A SCHEDULE FOR DEPRECIATING AN ASSET -BY THE DECLINING BALANCE METHOD -INPUTS ARE ITEM COST,ESTIMATED SALVAGE VALUE & LIFE IN YEARS. -OUTPUT IS A YEAR BY YEAR SCHEDULE OF CURRENT DEPRECIATION, -ACCUMULATED DEPRECIATION AND BOOK VALUE. - PRESS ENTER TO BEGIN? -DO YOU WANT OUTPUT ON LINEPRINTER(Y/N)? Y -ENTER COST ? 56789 -ENTER SALVAGE VALUE ? 12345 -ENTER LIFE IN YEARS ? 10 -RATE OF DEPRECIATION(%) ? 12.5 -PRESS ENTER WHEN PRINTER READY? - -YEAR CURR.DEP. ACCUM.DEP. BOOK VAL. ! - 0 56789.00 - 1 7098.62 7098.62 49690.38 - 2 6211.30 13309.92 43479.08 - 3 5434.88 18744.81 38044.19 - 4 4755.52 23500.33 33288.67 - 5 4161.08 27661.41 29127.59 - 6 3640.95 31302.36 25486.64 - 7 3185.83 34488.19 22300.81 - 8 2787.60 37275.79 19513.21 - 9 2439.15 39714.94 17074.06 - 10 4729.06 44444.00 12345.00 diff --git a/bwbtest/T80A/DEPRDDB.BAS b/bwbtest/T80A/DEPRDDB.BAS deleted file mode 100644 index 355a232..0000000 --- a/bwbtest/T80A/DEPRDDB.BAS +++ /dev/null @@ -1,66 +0,0 @@ -1 REM DEPRDDB -5 CLS -10 PRINT " DEPRECIATION SCHEDULE-DOUBLE DECLINING BALANCE" -20 PRINT "THIS PROGRAM PRINTS A SCHEDULE FOR DEPRECIATING AN ASSET -30 PRINT"BY THE DOUBLE DECLINING BALANCE METHOD" -40 PRINT "INPUTS ARE ITEM COST,ESTIMATED SALVAGE VALUE & LIFE IN YEARS. -50 PRINT"OUTPUT IS A YEAR BY YEAR SCHEDULE OF CURRENT DEPRECIATION, -60 PRINT"ACCUMULATED DEPRECIATION AND BOOK VALUE. -90 INPUT " PRESS ENTER TO BEGIN";Z9 -100 CLS -105 INPUT"DO YOU WANT OUTPUT ON LINEPRINTER(Y/N)";Z2$ -106 IF Z2$<>"Y" AND Z2$<>"N" THEN GOTO 105 -110 INPUT "ENTER COST ";C -120 INPUT "ENTER SALVAGE VALUE ";S -130 INPUT "ENTER LIFE IN YEARS ";L -135 RD=2/L:REM RATE OF DEPRECIATION -140 IF C >= S GOTO 200 -150 PRINT -160 PRINT"SALVAGE VALUE > COST ---- ERROR-ERROR" -170 PRINT"ENTER DATA AGAIN." -180 FOR I= 1 TO 400:NEXT I -190 GOTO 100 -200 CLS -210 GOSUB 1000:REM HEADING -220 GOSUB 1100:REM INITIALIZE -230 GOSUB 1200:REM COMPUTE & PRINT -250 END -1000 REM HEADING SUBROUTINE -1010 CLS -1015 IF Z2$="Y" THEN INPUT"PRESS ENTER WHEN PRINTER READY";Z9$:PRINT -1020 H1$="YEAR CURR.DEP. ACCUM.DEP. BOOK VAL. !" -1030 C1$=" ## #######.## #########.## #########.##" -1035 C2$=" ## #######.##" -1037 IF Z2$="Y" THEN LPRINT "DOUBLE DECLINING BALANCE DEPRECIATION SCHEDULE":LPRINT" ":LPRINT "INITIAL COST = ";C:LPRINT"SALVAGE VALUE = ";S:LPRINT"LIFE OF ASSET(YEARS) = ";L -1038 IF Z2$="Y" THEN LPRINT"RATE OF DEPRECIATION = ";100*RD;"%":LPRINT" " -1040 PRINT H1$:IF Z2$="Y" THEN LPRINT H1$:LPRINT " " -1050 RETURN -1100 REM INITIALIZE SUBROUTINE -1110 AD=0:REM ACCUMULATED DEPRECIATION -1115 DP=C-S :REM AMOUNT TO BE DEPRECIATED -1120 BV=C :REM BOOK VALUE -1125 YR=0 :REM PRESENT YEAR -1150 RETURN -1200 REM COMPUTATION AND PRINTING SUBROUTINE -1210 PRINT USING C2$;YR,C -1215 IF Z2$="Y" THEN LPRINT USING C2$;YR,C:LPRINT" " -1220 FOR I=1 TO L-1 -1230 D=(2/L)*(1-2/L)[(I-1)*C -1240 BV=BV-D : AD=AD+D -1250 YR=YR+1 -1255 IF BV>=S GOTO 1260 -1256 AD=AD-D -1257 D=BV+D-S:AD=AD+D:BV=S -1260 PRINT USING C1$;YR,D,AD,BV -1262 IF Z2$="Y" THEN LPRINT USING C1$;YR,D,AD,BV:GOTO 1270 -1265 IF I/10=INT(I/10) THEN GOSUB 1400 ' STOP SCROLLING OFF SCREEN -1270 NEXT I -1280 D=(C-S)-AD -1290 BV=BV-D:AD=AD+D : YR=YR+1 -1295 PRINT USING C1$;YR,D,AD,BV -1297 IF Z2$="Y" THEN LPRINT USING C1$;YR,D,AD,BV -1300 RETURN -1400 REM SUBROUTINE TO HOLD OUTPUT ON SCREEN -1410 INPUT "FOR MORE OF TABLE PRESS ENTER";Z9 -1420 GOSUB 1000 -1430 RETURN diff --git a/bwbtest/T80A/DEPRDDB.INP b/bwbtest/T80A/DEPRDDB.INP deleted file mode 100644 index fe68975..0000000 --- a/bwbtest/T80A/DEPRDDB.INP +++ /dev/null @@ -1,6 +0,0 @@ - -Y -987654 -2345 -5 - diff --git a/bwbtest/T80A/DEPRDDB.run b/bwbtest/T80A/DEPRDDB.run deleted file mode 100644 index 28f01a6..0000000 --- a/bwbtest/T80A/DEPRDDB.run +++ /dev/null @@ -1,20 +0,0 @@ - DEPRECIATION SCHEDULE-DOUBLE DECLINING BALANCE -THIS PROGRAM PRINTS A SCHEDULE FOR DEPRECIATING AN ASSET -BY THE DOUBLE DECLINING BALANCE METHOD -INPUTS ARE ITEM COST,ESTIMATED SALVAGE VALUE & LIFE IN YEARS. -OUTPUT IS A YEAR BY YEAR SCHEDULE OF CURRENT DEPRECIATION, -ACCUMULATED DEPRECIATION AND BOOK VALUE. - PRESS ENTER TO BEGIN? -DO YOU WANT OUTPUT ON LINEPRINTER(Y/N)? Y -ENTER COST ? 987654 -ENTER SALVAGE VALUE ? 2345 -ENTER LIFE IN YEARS ? 5 -PRESS ENTER WHEN PRINTER READY? - -YEAR CURR.DEP. ACCUM.DEP. BOOK VAL. ! - 0 987654.00 - 1 395061.60 395061.60 592592.40 - 2 237036.96 632098.56 355555.44 - 3 142222.18 774320.74 213333.26 - 4 85333.31 859654.04 127999.96 - 5 125654.96 985309.00 2345.00 diff --git a/bwbtest/T80A/DEPRSF.BAS b/bwbtest/T80A/DEPRSF.BAS deleted file mode 100644 index 1930f4e..0000000 --- a/bwbtest/T80A/DEPRSF.BAS +++ /dev/null @@ -1,68 +0,0 @@ -1 REM DEPRDDB -5 CLS -10 PRINT " DEPRECIATION SCHEDULE-SINKING FUND METHOD" -20 PRINT "THIS PROGRAM PRINTS A SCHEDULE FOR DEPRECIATING AN ASSET -30 PRINT"BY THE SINKING FUND METHOD. THIS METHOD IS USED BY REGULATED -33 PRINT"INDUSTRIES QUITE A BIT. IN THIS METHOD THERE ARE EQUAL YEARLY -35 PRINT"DEPRECIATION CHARGES BUT THE DEPRECIATION IS ASSUMED TO BE -37 PRINT"INVESTED IN A (SINKING FUND) ACCOUNT EARNING STATED INTEREST. -40 PRINT "INPUTS ARE ITEM COST,ESTIMATED SALVAGE VALUE, LIFE IN YEARS, -45 PRINT "AND SINKING FUND INTEREST RATE." -50 PRINT:PRINT"OUTPUT INCLUDES ANNUAL DEPRECIATION CHARGES PLUS A YEAR BY -60 PRINT"YEAR SCHEDULE OF BOOK VALUE,INTEREST ON SINKING FUND, INCREASE -70 PRINT"IN SIZE OF SINKING FUND, AND TOTAL VALUE OF SINKING FUND. -80 PRINT -90 INPUT " PRESS ENTER TO BEGIN";Z9 -100 CLS -105 INPUT"DO YOU WANT OUTPUT ON LINEPRINTER(Y/N)";Z2$ -106 IF Z2$<>"Y" AND Z2$<>"N" THEN GOTO 105 -110 INPUT "ENTER COST ";C -120 INPUT "ENTER SALVAGE VALUE ";S -130 INPUT "ENTER LIFE IN YEARS ";L -135 INPUT"ENTER INT RATE ON SINKING FUND(%)";IR:IR=IR/100 -140 IF C >= S THEN GOTO 200 -150 PRINT -160 PRINT"SALVAGE VALUE > COST ---- ERROR-ERROR" -170 PRINT"ENTER DATA AGAIN." -180 FOR I= 1 TO 400:NEXT I -190 GOTO 100 -200 CLS -210 GOSUB 1000:REM HEADING -220 GOSUB 1100:REM INITIALIZE -230 GOSUB 1200:REM COMPUTE & PRINT -250 END -1000 REM HEADING SUBROUTINE -1010 CLS -1015 IF Z2$="Y" THEN INPUT"PRESS ENTER WHEN PRINTER READY";Z9$:PRINT -1020 H1$="YEAR BOOK VAL. FUND INT. INCR. IN FUND FUND VAL. -1030 H2$=" ## #######.## #######.## #######.## #######.##" -1037 IF Z2$="Y" THEN LPRINT "SINKING FUND DEPRECIATION SCHEDULE":LPRINT" ":LPRINT "INITIAL COST = ";C:LPRINT "SALVAGE VALUE = ";S:LPRINT"LIFE OF ASSET(YEARS) =";L -1038 IF Z2$="Y" THEN LPRINT"INTEREST RATE ON SINKING FUND = ";IR*100 -1039 D=(C-S)*(IR/((1+IR)[L-1)):PRINT "ANNUAL DEPRECIATION CHARGES = ";INT(100*D+.5)/100:IF Z2$="Y" THEN LPRINT"ANNUAL DEPRECIATION CHARGE = ";INT(100*D+.5)/100 -1040 PRINT H1$:IF Z2$="Y" THEN LPRINT H1$:LPRINT " " -1050 RETURN -1100 REM INITIALIZE SUBROUTINE -1110 AD=0:REM ACCUMULATED DEPRECIATION -1115 DP=C-S :REM AMOUNT TO BE DEPRECIATED -1120 BV=C :REM BOOK VALUE -1125 YR=0 :REM PRESENT YEAR -1150 RETURN -1200 REM COMPUTATION AND PRINTING SUBROUTINE -1210 PRINT USING H2$;YR,C -1215 IF Z2$="Y" THEN LPRINT USING H2$;YR,C:LPRINT" " -1217 BV=C -1220 FOR I=1 TO L -1230 FI=FV*IR:REM FUND INTEREST FOR YEAR -1232 FC=FI+D:REM FUND VALUE INCREASE -1234 FV=FV+FC:REM NEW FUND VALUE -1240 BV=BV-FC -1250 YR=YR+1 -1260 PRINT USING H2$;YR,BV,FI,FC,FV -1262 IF Z2$="Y" THEN LPRINT USING H2$;YR,BV,FI,FC,FV:GOTO 1270 -1265 IF I/10=INT(I/10) THEN GOSUB 1400 ' STOP SCROLLING OFF SCREEN -1270 NEXT I -1300 RETURN -1400 REM SUBROUTINE TO HOLD OUTPUT ON SCREEN -1410 INPUT "FOR MORE OF TABLE PRESS ENTER";Z9 -1420 GOSUB 1000 -1430 RETURN diff --git a/bwbtest/T80A/DEPRSF.INP b/bwbtest/T80A/DEPRSF.INP deleted file mode 100644 index 0e900d5..0000000 --- a/bwbtest/T80A/DEPRSF.INP +++ /dev/null @@ -1,7 +0,0 @@ - -Y -76543 -9876 -7 -3.75 - diff --git a/bwbtest/T80A/DEPRSF.run b/bwbtest/T80A/DEPRSF.run deleted file mode 100644 index 5d01631..0000000 --- a/bwbtest/T80A/DEPRSF.run +++ /dev/null @@ -1,31 +0,0 @@ - DEPRECIATION SCHEDULE-SINKING FUND METHOD -THIS PROGRAM PRINTS A SCHEDULE FOR DEPRECIATING AN ASSET -BY THE SINKING FUND METHOD. THIS METHOD IS USED BY REGULATED -INDUSTRIES QUITE A BIT. IN THIS METHOD THERE ARE EQUAL YEARLY -DEPRECIATION CHARGES BUT THE DEPRECIATION IS ASSUMED TO BE -INVESTED IN A (SINKING FUND) ACCOUNT EARNING STATED INTEREST. -INPUTS ARE ITEM COST,ESTIMATED SALVAGE VALUE, LIFE IN YEARS, -AND SINKING FUND INTEREST RATE. - -OUTPUT INCLUDES ANNUAL DEPRECIATION CHARGES PLUS A YEAR BY -YEAR SCHEDULE OF BOOK VALUE,INTEREST ON SINKING FUND, INCREASE -IN SIZE OF SINKING FUND, AND TOTAL VALUE OF SINKING FUND. - - PRESS ENTER TO BEGIN? -DO YOU WANT OUTPUT ON LINEPRINTER(Y/N)? Y -ENTER COST ? 76543 -ENTER SALVAGE VALUE ? 9876 -ENTER LIFE IN YEARS ? 7 -ENTER INT RATE ON SINKING FUND(%)? 3.75 -PRESS ENTER WHEN PRINTER READY? - -ANNUAL DEPRECIATION CHARGES = 8504.96 -YEAR BOOK VAL. FUND INT. INCR. IN FUND FUND VAL. - 0 76543.00 - 1 68038.04 0.00 8504.96 8504.96 - 2 59214.15 318.94 8823.89 17328.85 - 3 50059.37 649.83 9154.79 26483.63 - 4 40561.27 993.14 9498.09 35981.73 - 5 30707.00 1349.31 9854.27 45836.00 - 6 20483.20 1718.85 10223.81 56059.80 - 7 9876.00 2102.24 10607.20 66667.00 diff --git a/bwbtest/T80A/DEPRSL.BAS b/bwbtest/T80A/DEPRSL.BAS deleted file mode 100644 index 3b213e6..0000000 --- a/bwbtest/T80A/DEPRSL.BAS +++ /dev/null @@ -1,61 +0,0 @@ -5 CLS -10 PRINT " DEPRECIATION SCHEDULE-STRAIGHT LINE" -20 PRINT "THIS PROGRAM PRINTS A SCHEDULE FOR DEPRECIATING AN ASSET -30 PRINT "BY THE STRAIGHT LINE METHOD. -40 PRINT "INPUTS ARE ITEM COST,ESTIMATED SALVAGE VALUE & LIFE IN YEARS. -50 PRINT"OUTPUT IS A YEAR BY YEAR SCHEDULE OF CURRENT DEPRECIATION, -60 PRINT"ACCUMULATED DEPRECIATION AND BOOK VALUE. -90 INPUT " PRESS ENTER TO BEGIN";Z9 -100 CLS -105 INPUT"DO YOU WANT OUTPUT ON LINEPRINTER(Y/N)";Z2$ -106 IF Z2$<>"Y" AND Z2$<>"N" THEN GOTO 105 -108 PRINT -110 INPUT "ENTER COST ";C -120 INPUT "ENTER SALVAGE VALUE ";S -130 INPUT "ENTER LIFE IN YEARS ";L -140 IF C >= S GOTO 200 -150 PRINT -160 PRINT"SALVAGE VALUE > COST ---- ERROR-ERROR" -170 PRINT"ENTER DATA AGAIN." -180 FOR I= 1 TO 400:NEXT I -190 GOTO 100 -200 CLS -210 GOSUB 1000:REM HEADING -220 GOSUB 1100:REM INITIALIZE -230 GOSUB 1200:REM COMPUTE & PRINT -250 END -1000 REM HEADING SUBROUTINE -1010 CLS -1015 IF Z2$="Y" THEN INPUT"PRESS ENTER WHEN PRINTER READY";Z9$:PRINT -1020 H1$="YEAR CURR.DEP. ACCUM.DEP. BOOK VAL. " -1030 C1$=" ## #####.## #######.## #######.##" -1035 C2$=" ## #######.##" -1037 IF Z2$="Y" THEN LPRINT "STRAIGHT-LINE DEPRECIATION SCHEDULE":LPRINT" ":LPRINT "INITIAL COST = ";C:LPRINT"SALVAGE VALUE = ";S:LPRINT"LIFE OF ASSET(YEARS) = ";L:LPRINT" " -1040 PRINT H1$:IF Z2$="Y" THEN LPRINT H1$:LPRINT " " -1050 RETURN -1100 REM INITIALIZE SUBROUTINE -1110 AD=0:REM ACCUMULATED DEPRECIATION -1115 DP=C-S :REM AMOUNT TO BE DEPRECIATED -1120 BV=C :REM BOOK VALUE -1125 YR=0 :REM PRESENT YEAR -1150 RETURN -1200 REM COMPUTATION AND PRINTING SUBROUTINE -1210 PRINT USING C2$;YR,C -1215 IF Z2$="Y" THEN LPRINT USING C2$;YR,C:LPRINT" " -1220 FOR I=1 TO L-1 -1230 D=(C-S)/L -1240 BV=BV-D : AD=AD+D -1250 YR=YR+1 -1260 PRINT USING C1$;YR,D,AD,BV -1262 IF Z2$="Y" THEN LPRINT USING C1$;YR,D,AD,BV:GOTO 1270 -1265 IF I/10=INT(I/10) THEN GOSUB 1400 ' STOP SCROLLING OFF SCREEN -1270 NEXT I -1280 D=(C-S)-AD -1290 BV=BV-D:AD=AD+D : YR=YR+1 -1295 PRINT USING C1$;YR,D,AD,BV -1297 IF Z2$="Y" THEN LPRINT USING C1$;YR,D,AD,BV -1300 RETURN -1400 REM SUBROUTINE TO HOLD OUTPUT ON SCREEN -1410 INPUT "FOR MORE OF TABLE PRESS ENTER";Z9 -1420 GOSUB 1000 -1430 RETURN diff --git a/bwbtest/T80A/DEPRSL.INP b/bwbtest/T80A/DEPRSL.INP deleted file mode 100644 index 3baab71..0000000 --- a/bwbtest/T80A/DEPRSL.INP +++ /dev/null @@ -1,6 +0,0 @@ - -Y -256789 -1432 -5 - diff --git a/bwbtest/T80A/DEPRSL.run b/bwbtest/T80A/DEPRSL.run deleted file mode 100644 index 85ab736..0000000 --- a/bwbtest/T80A/DEPRSL.run +++ /dev/null @@ -1,21 +0,0 @@ - DEPRECIATION SCHEDULE-STRAIGHT LINE -THIS PROGRAM PRINTS A SCHEDULE FOR DEPRECIATING AN ASSET -BY THE STRAIGHT LINE METHOD. -INPUTS ARE ITEM COST,ESTIMATED SALVAGE VALUE & LIFE IN YEARS. -OUTPUT IS A YEAR BY YEAR SCHEDULE OF CURRENT DEPRECIATION, -ACCUMULATED DEPRECIATION AND BOOK VALUE. - PRESS ENTER TO BEGIN? -DO YOU WANT OUTPUT ON LINEPRINTER(Y/N)? Y - -ENTER COST ? 256789 -ENTER SALVAGE VALUE ? 1432 -ENTER LIFE IN YEARS ? 5 -PRESS ENTER WHEN PRINTER READY? - -YEAR CURR.DEP. ACCUM.DEP. BOOK VAL. - 0 256789.00 - 1 51071.40 51071.40 205717.60 - 2 51071.40 102142.80 154646.20 - 3 51071.40 153214.20 103574.80 - 4 51071.40 204285.60 52503.40 - 5 51071.40 255357.00 1432.00 diff --git a/bwbtest/T80A/DEPRSY.BAS b/bwbtest/T80A/DEPRSY.BAS deleted file mode 100644 index ac0d9a6..0000000 --- a/bwbtest/T80A/DEPRSY.BAS +++ /dev/null @@ -1,61 +0,0 @@ -5 CLS -10 PRINT " DEPRECIATION SCHEDULE-SUM OF DIGITS" -20 PRINT "THIS PROGRAM PRINTS A SCHEDULE FOR DEPRECIATING AN ASSET -30 PRINT "BY THE SUM OF DIGITS METHOD." -40 PRINT "INPUTS ARE ITEM COST,ESTIMATED SALVAGE VALUE & LIFE IN YEARS. -50 PRINT"OUTPUT IS A YEAR BY YEAR SCHEDULE OF CURRENT DEPRECIATION, -60 PRINT"ACCUMULATED DEPRECIATION AND BOOK VALUE. -90 INPUT " PRESS ENTER TO BEGIN";Z9 -100 CLS -105 INPUT"DO YOU WANT OUTPUT ON LINEPRINTER(Y/N)";Z2$ -106 IF Z2$<>"Y" AND Z2$<>"N" THEN GOTO 105 -110 INPUT "ENTER COST ";C -120 INPUT "ENTER SALVAGE VALUE ";S -130 INPUT "ENTER LIFE IN YEARS ";L -140 IF C >= S GOTO 200 -150 PRINT -160 PRINT"SALVAGE VALUE > COST ---- ERROR-ERROR" -170 PRINT"ENTER DATA AGAIN." -180 FOR I= 1 TO 400:NEXT I -190 GOTO 100 -200 CLS -210 GOSUB 1000:REM HEADING -220 GOSUB 1100:REM INITIALIZE -230 GOSUB 1200:REM COMPUTE & PRINT -250 END -1000 REM HEADING SUBROUTINE -1010 CLS -1015 IF Z2$="Y" THEN INPUT"PRESS ENTER WHEN PRINTER READY";Z9$:PRINT -1020 H1$="YEAR CURR.DEP. ACCUM.DEP. BOOK VAL. " -1030 C1$=" ## #####.## #######.## #######.##" -1035 C2$=" ## #######.##" -1037 IF Z2$="Y" THEN LPRINT "SUM OF DIGITS DEPRECIATION SCHEDULE":LPRINT" ":LPRINT "INITIAL COST = ";C:LPRINT"SALVAGE VALUE = ";S:LPRINT"LIFE OF ASSET(YEARS) = ";L:LPRINT" " -1040 PRINT H1$:IF Z2$="Y" THEN LPRINT H1$:LPRINT " " -1050 RETURN -1100 REM INITIALIZE SUBROUTINE -1110 AD=0:REM ACCUMULATED DEPRECIATION -1115 DP=C-S :REM AMOUNT TO BE DEPRECIATED -1120 BV=C :REM BOOK VALUE -1125 YR=0 :REM PRESENT YEAR -1150 RETURN -1200 REM COMPUTATION AND PRINTING SUBROUTINE -1210 PRINT USING C2$;YR,C -1215 IF Z2$="Y" THEN LPRINT USING C2$;YR,C:LPRINT" " -1218 SY=L*(L+1)/2:REM SUM OF YEARS DIGITS -1220 FOR I=1 TO L-1 -1230 D=(C-S)*(L-I+1)/SY -1240 BV=BV-D : AD=AD+D -1250 YR=YR+1 -1260 PRINT USING C1$;YR,D,AD,BV -1262 IF Z2$="Y" THEN LPRINT USING C1$;YR,D,AD,BV:GOTO 1270 -1265 IF I/10=INT(I/10) THEN GOSUB 1400 ' STOP SCROLLING OFF SCREEN -1270 NEXT I -1280 D=(C-S)-AD -1290 BV=BV-D:AD=AD+D : YR=YR+1 -1295 PRINT USING C1$;YR,D,AD,BV -1297 IF Z2$="Y" THEN LPRINT USING C1$;YR,D,AD,BV -1300 RETURN -1400 REM SUBROUTINE TO HOLD OUTPUT ON SCREEN -1410 INPUT "FOR MORE OF TABLE PRESS ENTER";Z9 -1420 GOSUB 1000 -1430 RETURN diff --git a/bwbtest/T80A/DEPRSY.INP b/bwbtest/T80A/DEPRSY.INP deleted file mode 100644 index 29195ca..0000000 --- a/bwbtest/T80A/DEPRSY.INP +++ /dev/null @@ -1,6 +0,0 @@ - -Y -567234 -891 -3 - diff --git a/bwbtest/T80A/DEPRSY.run b/bwbtest/T80A/DEPRSY.run deleted file mode 100644 index a2016f5..0000000 --- a/bwbtest/T80A/DEPRSY.run +++ /dev/null @@ -1,18 +0,0 @@ - DEPRECIATION SCHEDULE-SUM OF DIGITS -THIS PROGRAM PRINTS A SCHEDULE FOR DEPRECIATING AN ASSET -BY THE SUM OF DIGITS METHOD. -INPUTS ARE ITEM COST,ESTIMATED SALVAGE VALUE & LIFE IN YEARS. -OUTPUT IS A YEAR BY YEAR SCHEDULE OF CURRENT DEPRECIATION, -ACCUMULATED DEPRECIATION AND BOOK VALUE. - PRESS ENTER TO BEGIN? -DO YOU WANT OUTPUT ON LINEPRINTER(Y/N)? Y -ENTER COST ? 567234 -ENTER SALVAGE VALUE ? 891 -ENTER LIFE IN YEARS ? 3 -PRESS ENTER WHEN PRINTER READY? - -YEAR CURR.DEP. ACCUM.DEP. BOOK VAL. - 0 567234.00 - 1 283171.50 283171.50 284062.50 - 2 188781.00 471952.50 95281.50 - 3 94390.50 566343.00 891.00 diff --git a/bwbtest/T80A/DILANAL.BAS b/bwbtest/T80A/DILANAL.BAS deleted file mode 100644 index 095e160..0000000 --- a/bwbtest/T80A/DILANAL.BAS +++ /dev/null @@ -1,53 +0,0 @@ -1 REM DILANAL -5 CLEAR 1000 -10 CLS:PRINT TAB(20); "DILUTION ANALYSIS" -20 PRINT"WHEN TWO PUBLICLY TRADED COMPANIES DECIDE TO MERGE VIA USE OF -25 PRINT"AN EXCHANGE OF STOCK, THE ANALYSIS IS DOMINATED BY THE EXCHANGE -30 PRINT"RATIO(I.E. # OF SHARES THE SURVIVING COMPANY OFFERS FOR EACH -35 PRINT"SHARE OF THE ACQUIRED COMPANY), THE PRICE-EARNINGS RATIOS OF -40 PRINT"THE SURVIVING FIRM, AND GENERAL CONDITIONS IN THE STOCK MARKET. -45 PRINT"IN GENERAL WE DO NOT WANT EARNINGS PER SHARE FOR THE ACQUIRING -50 PRINT"TO DECREASE. IF A DECREASE OCCURS THEN DILUTION OCCURS. -55 PRINT"IF THE P-E RATIO FOR THE ACQUIRING FIRM REMAINS AS BEFORE THE -60 PRINT"MERGER THEN DILUTION MEANS A LOWER PER SHARE STOCK PRICE. -65 PRINT"IN THIS PROGRAM WE INPUT FOR EACH OF THE TWO COMPANIES THE -70 PRINT"FOLLOWING: EARNINGS AFTER TAXES, SHARES OUTSTANDING,ERS, SHARE -75 PRINT"PRICE AT TIME OF EXCHANGE. WE ALSO INPUT THE EXCHANGE RATIO. -80 PRINT"OUTPUT CONSISTS OF THE NUMBER OF NEW SHARES ISSUED, EARNINGS -85 PRINT"AFTER TAXES AND EARNINGS PER SHARE FOR THE SURVIVING FIRM. -90 INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 PRINT"ANSWER THE FOLLOWING FOR THE ACQUIRING FIRM":PRINT -120 INPUT"EARNINGS AFTER TAXES ";EAT(1) -125 INPUT"SHARES OUTSTANDING ";SO(1) -130 INPUT"PRICE AT TIME OF EXCHANGE ";P(1) -140 PRINT:PRINT"ANSWER THE FOLLOWING FOR THE ACQUIRED FIRM":PRINT -150 INPUT"EARNINGS AFTER TAXES ";EAT(2) -155 INPUT"SHARES OUTSTANDING ";SO(2) -160 INPUT"PRICE AT TIME OF EXCHANGE ";P(2) -165 PRINT -170 INPUT"INPUT EXCHANGE RATIO ";ER -200 REM COMPUTATIONS -210 ERS(1)=EAT(1)/SO(1):ERS(2)=EAT(2)/SO(2):REM EARNINGS PER SHARE -220 PE(1)=P(1)/ERS(1):PE(2)=P(2)/ERS(2):REM P-E RATIOS -230 REM SUBSCRIPT 3 REFERS TO MERGED COMPANY -240 EAT(3)=EAT(1)+EAT(2) -250 SO(3)=SO(1)+SO(2)*ER -260 ERS(3)=EAT(3)/SO(3) -300 CLS -310 F$(1)="% % #######.## #######.## #######.##" -320 F$(2)=" ACQUIRING(BEFORE) ACQUIRED ACQUIRING(AFTER)" -330 PRINT F$(2) -340 PRINT -350 PRINT USING F$(1);"EAT",EAT(1),EAT(2),EAT(3) -360 PRINT USING F$(1);"SH. OUTST.",SO(1),SO(2),SO(3) -370 PRINT USING F$(1);"ERS",ERS(1),ERS(2),ERS(3) -380 PRINT USING F$(1);"P-E RATIO",PE(1),PE(2) -390 PRINT:PRINT "EXCHANGE RATIO IS ";ER;" ACQUIRING FOR EACH 1 ACQUIRED." -400 PRINT:PRINT"ASSUMING NEW P-E RATIO WILL BE BETWEEN ";PE(1);"AND";PE(2) -410 PRINT "NEW PER SHARE PRICE WILL BE BETWEEN ";ERS(3)*PE(1);" AND" -420 PRINT ERS(3)*PE(2) -430 PRINT:INPUT"PRESS ENTER FOR MORE COMPUTATIONS";Z9$ -432 IF Z9$ = "-1" THEN END -435 CLEAR 1000 -440 GOTO 100 diff --git a/bwbtest/T80A/DILANAL.INP b/bwbtest/T80A/DILANAL.INP deleted file mode 100644 index 2ead959..0000000 --- a/bwbtest/T80A/DILANAL.INP +++ /dev/null @@ -1,9 +0,0 @@ - -123456789 -987654 -345 -678234 -842741 -65 -7.75 --1 diff --git a/bwbtest/T80A/DILANAL.run b/bwbtest/T80A/DILANAL.run deleted file mode 100644 index 9913242..0000000 --- a/bwbtest/T80A/DILANAL.run +++ /dev/null @@ -1,43 +0,0 @@ - DILUTION ANALYSIS -WHEN TWO PUBLICLY TRADED COMPANIES DECIDE TO MERGE VIA USE OF -AN EXCHANGE OF STOCK, THE ANALYSIS IS DOMINATED BY THE EXCHANGE -RATIO(I.E. # OF SHARES THE SURVIVING COMPANY OFFERS FOR EACH -SHARE OF THE ACQUIRED COMPANY), THE PRICE-EARNINGS RATIOS OF -THE SURVIVING FIRM, AND GENERAL CONDITIONS IN THE STOCK MARKET. -IN GENERAL WE DO NOT WANT EARNINGS PER SHARE FOR THE ACQUIRING -TO DECREASE. IF A DECREASE OCCURS THEN DILUTION OCCURS. -IF THE P-E RATIO FOR THE ACQUIRING FIRM REMAINS AS BEFORE THE -MERGER THEN DILUTION MEANS A LOWER PER SHARE STOCK PRICE. -IN THIS PROGRAM WE INPUT FOR EACH OF THE TWO COMPANIES THE -FOLLOWING: EARNINGS AFTER TAXES, SHARES OUTSTANDING,ERS, SHARE -PRICE AT TIME OF EXCHANGE. WE ALSO INPUT THE EXCHANGE RATIO. -OUTPUT CONSISTS OF THE NUMBER OF NEW SHARES ISSUED, EARNINGS -AFTER TAXES AND EARNINGS PER SHARE FOR THE SURVIVING FIRM. -PRESS ENTER TO BEGIN? -ANSWER THE FOLLOWING FOR THE ACQUIRING FIRM - -EARNINGS AFTER TAXES ? 123456789 -SHARES OUTSTANDING ? 987654 -PRICE AT TIME OF EXCHANGE ? 345 - -ANSWER THE FOLLOWING FOR THE ACQUIRED FIRM - -EARNINGS AFTER TAXES ? 678234 -SHARES OUTSTANDING ? 842741 -PRICE AT TIME OF EXCHANGE ? 65 - -INPUT EXCHANGE RATIO ? 7.75 - ACQUIRING(BEFORE) ACQUIRED ACQUIRING(AFTER) - -EAT 123456789.00 678234.00 124135023.00 -SH. OUTST. 987654.00 842741.00 7518896.75 -ERS 125.00 0.80 16.51 -P-E RATIO 2.76 80.77 - -EXCHANGE RATIO IS 7.75 ACQUIRING FOR EACH 1 ACQUIRED. - -ASSUMING NEW P-E RATIO WILL BE BETWEEN 2.76 AND 80.7659 -NEW PER SHARE PRICE WILL BE BETWEEN 45.5669 AND - 1333.42 - -PRESS ENTER FOR MORE COMPUTATIONS? -1 diff --git a/bwbtest/T80A/DISCBAL.BAS b/bwbtest/T80A/DISCBAL.BAS deleted file mode 100644 index b3b135f..0000000 --- a/bwbtest/T80A/DISCBAL.BAS +++ /dev/null @@ -1,46 +0,0 @@ -1 REM DISCBAL -5 CLEAR 1000 -10 CLS -20 PRINT TAB(5); "TRUE INTEREST RATE ON DISCOUNTED LOAN":PRINT -30 PRINT"MOST CONSUMER BANK LOANS ARE WHAT ARE CALLED 'DISCOUNT LOANS'. -35 PRINT"IN A LOAN OF THIS TYPE THE FINANCE CHARGE IS PREPAID. -40 PRINT"FOR EXAMPLE, THE BANK WILL GIVE YOU A LOAN WITH FACE VALUE -45 PRINT"EQUAL TO A STATED AMOUNT(TOTAL OF REPAYMENTS) AND WILL THEN -50 PRINT"DEDUCT THE INTEREST CHARGES FROM THE PROCEEDS OF THE LOAN. -55 PRINT"THUS THE CONSUMER DOES NOT GET THE FACE VALUE, BUT SOME LOWER -57 PRINT"AMOUNT. TO MAKE MATTERS WORSE CHARGES FOR ACCIDENT & HEALTH -58 PRINT"INSURANCE,CREDIT LIFE INSURANCE, AND OFFICIAL FEES MAY BE -60 PRINT"REQUIRED.THIS PROGRAM COMPUTES THE PROCEEDS AND THE EFFECTIVE -65 PRINT"INTEREST RATE IN SUCH A CASE." -70 PRINT"THE CHARGES SUCH AS A & H ARE CONSIDERED AND TEND TO RAISE -75 PRINT"THE EFFECTIVE RATE. -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT"TOTAL REPAYMENTS OF LOAN ";FV -120 INPUT"TOTAL INTEREST PREPAID ";IR -122 INPUT"TOTAL A & H INSURANCE CHARGES ";IH -124 INPUT"TOTAL CREDIT LIFE INS. CHARGES ";IC -126 INPUT"TOTAL OFFICIAL FEES CHARGES ";IO -130 PV=FV-IR-IH-IC-IO:REM PROCEEDS OF LOAN -140 INPUT"MONTHLY LOAN PAYMENT ";PMT -150 INPUT"TOTAL NUMBER OF MONTHLY PMTS ";N -160 GOSUB 4200:REM COMPUTE EFFECTIVE INTEREST RATE -170 F$(1)="% % $$######.##" -180 F$(2)="% % ###.##" -190 PRINT -200 PRINT USING F$(1);"PROCEEDS OF LOAN",PV -205 I=1200*I -210 PRINT USING F$(2);"ANNUAL EFFECTIVE INT. RATE",I;:PRINT"%" -220 PRINT:INPUT"PRESS ENTER FOR MORE COMPUTATIONS";Z9$ -225 IF Z9$ = "-1" THEN END -230 GOTO 100 -4200 REM I FOR DISCOUNT LOAN -4210 I=.01 -4220 P=PMT/I*(1-(1+I)[(-N))-PV -4225 D=N*PMT/(I*(1+I)[(N+1))-PMT/(I[2)*(1-(1+I)[(-N)) -4230 GOSUB 4600 -4240 IF ABS(P)<=.1 THEN RETURN -4250 GOTO 4220 -4600 REM COMPUTATION -4610 I=I-P/D -4620 RETURN diff --git a/bwbtest/T80A/DISCBAL.INP b/bwbtest/T80A/DISCBAL.INP deleted file mode 100644 index 93178ac..0000000 --- a/bwbtest/T80A/DISCBAL.INP +++ /dev/null @@ -1,9 +0,0 @@ - -250000 -12500 -876 -321 -5678 -1275 -360 --1 diff --git a/bwbtest/T80A/DISCBAL.run b/bwbtest/T80A/DISCBAL.run deleted file mode 100644 index 6ca5b5c..0000000 --- a/bwbtest/T80A/DISCBAL.run +++ /dev/null @@ -1,28 +0,0 @@ - TRUE INTEREST RATE ON DISCOUNTED LOAN - -MOST CONSUMER BANK LOANS ARE WHAT ARE CALLED 'DISCOUNT LOANS'. -IN A LOAN OF THIS TYPE THE FINANCE CHARGE IS PREPAID. -FOR EXAMPLE, THE BANK WILL GIVE YOU A LOAN WITH FACE VALUE -EQUAL TO A STATED AMOUNT(TOTAL OF REPAYMENTS) AND WILL THEN -DEDUCT THE INTEREST CHARGES FROM THE PROCEEDS OF THE LOAN. -THUS THE CONSUMER DOES NOT GET THE FACE VALUE, BUT SOME LOWER -AMOUNT. TO MAKE MATTERS WORSE CHARGES FOR ACCIDENT & HEALTH -INSURANCE,CREDIT LIFE INSURANCE, AND OFFICIAL FEES MAY BE -REQUIRED.THIS PROGRAM COMPUTES THE PROCEEDS AND THE EFFECTIVE -INTEREST RATE IN SUCH A CASE. -THE CHARGES SUCH AS A & H ARE CONSIDERED AND TEND TO RAISE -THE EFFECTIVE RATE. - -PRESS ENTER TO BEGIN? -TOTAL REPAYMENTS OF LOAN ? 250000 -TOTAL INTEREST PREPAID ? 12500 -TOTAL A & H INSURANCE CHARGES ? 876 -TOTAL CREDIT LIFE INS. CHARGES ? 321 -TOTAL OFFICIAL FEES CHARGES ? 5678 -MONTHLY LOAN PAYMENT ? 1275 -TOTAL NUMBER OF MONTHLY PMTS ? 360 - -PROCEEDS OF LOAN $230625.00 -ANNUAL EFFECTIVE INT. RATE 5.26% - -PRESS ENTER FOR MORE COMPUTATIONS? -1 diff --git a/bwbtest/T80A/EFFECT.BAS b/bwbtest/T80A/EFFECT.BAS deleted file mode 100644 index c79e45c..0000000 --- a/bwbtest/T80A/EFFECT.BAS +++ /dev/null @@ -1,17 +0,0 @@ -5 CLS -10 PRINT " EFFECTIVE INTEREST RATE ON LOAN" -20 PRINT -30 PRINT "GIVEN TOTAL AMOUNT BORROWED,NUMBER OF PAYMENTS PER YEAR, -40 PRINT "TOTAL NUMBER OF PAYMENTS,AND AMOUNT OF EACH PAYMENT THIS -50 PRINT "PROGRAM CALCULATES AN EFFECTIVE INTEREST RATE FOR A LOAN. -60 INPUT "PRESS ENTER TO BEGIN";Z9 -100 CLS -110 INPUT "TOTAL AMOUNT BORROWED = ";B -120 INPUT "NUMBER OF PAYMENTS YEARLY = ";NY -130 INPUT "TOTAL NUMBER OF PAYMENTS = ";N -140 INPUT "AMOUNT OF EACH PAYMENT = ";P -150 EFF= 2*NY*(N*P-B)/(B*(N+1)) -160 PRINT -170 EFF = EFF*100 -180 PRINT "EFFECTIVE INTEREST RATE = ";EFF -190 PRINT"TOTAL INTEREST PAID = ";N*P-B diff --git a/bwbtest/T80A/EFFECT.INP b/bwbtest/T80A/EFFECT.INP deleted file mode 100644 index 47b79dc..0000000 --- a/bwbtest/T80A/EFFECT.INP +++ /dev/null @@ -1,5 +0,0 @@ - -250000 -12 -360 -1275 diff --git a/bwbtest/T80A/EFFECT.run b/bwbtest/T80A/EFFECT.run deleted file mode 100644 index 69227d0..0000000 --- a/bwbtest/T80A/EFFECT.run +++ /dev/null @@ -1,13 +0,0 @@ - EFFECTIVE INTEREST RATE ON LOAN - -GIVEN TOTAL AMOUNT BORROWED,NUMBER OF PAYMENTS PER YEAR, -TOTAL NUMBER OF PAYMENTS,AND AMOUNT OF EACH PAYMENT THIS -PROGRAM CALCULATES AN EFFECTIVE INTEREST RATE FOR A LOAN. -PRESS ENTER TO BEGIN? -TOTAL AMOUNT BORROWED = ? 250000 -NUMBER OF PAYMENTS YEARLY = ? 12 -TOTAL NUMBER OF PAYMENTS = ? 360 -AMOUNT OF EACH PAYMENT = ? 1275 - -EFFECTIVE INTEREST RATE = 5.55789 -TOTAL INTEREST PAID = 209000 diff --git a/bwbtest/T80A/ENVELOPE.BAS b/bwbtest/T80A/ENVELOPE.BAS deleted file mode 100644 index 5d8521e..0000000 --- a/bwbtest/T80A/ENVELOPE.BAS +++ /dev/null @@ -1,89 +0,0 @@ -1 REM ENVELOPE -5 CLEAR 1000 -10 CLS -20 PRINT TAB(15); "ENVELOPE WRITING PROGRAM" -30 PRINT"THIS PROGRAM WILL GENERATE A PRINTED ENVELOPE ON A LINE -35 PRINT "PRINTER. UNLESS TRACTOR FED ENVELOPES ARE AVAILABLE A FRICTION -40 PRINT"FEED PRINTER MUST BE HOOKED UP TO THE SYSTEM. THE USER -45 PRINT"INPUTS A RETURN ADDRESS,AN ADDRESS, THE LENGTH OF THE ENVELOPE -50 PRINT"IN LINES(6 LINES TO THE INCH), AND NUMBER OF COPIES. MANY -55 PRINT"OF THE INPUT VALUES MAY BE REPEATED ON SEVERAL ENVELOPES -60 PRINT"WITHOUT ADDITIONAL INPUT. -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -190 GOSUB 600 -195 GOTO 1000 -200 CLS -210 INPUT"ENTER # OF TYPED LINES WHICH CAN FIT ON ENVELOPE";N -215 IF N<>INT(N) OR N<=0 THEN GOSUB 10000:GOTO 210 -220 REM INPUT OF RETURN ADDRESS -222 PRINT"NO COMMAS IN THE FOLLOWING, PLEASE.":PRINT -225 CLS -226 PRINT"NO COMMAS IN THE FOLLOWING, PLEASE.":PRINT -227 FOR I=1 TO 4 -230 PRINT"ENTER LINE #";I;" OF RETURN ADDRESS(-1 FOR EMPTY)" -240 INPUT L$(I+1) -245 IF L$(I+1)="-1" THEN L$(I+1)=" " -250 NEXT I -290 RETURN -300 REM ENTER MAIL TO ADDRESS -305 PRINT -307 CLS -308 PRINT"NO COMMAS IN THE FOLLOWING, PLEASE.":PRINT -310 FOR I=1 TO 4 -320 PRINT"ENTER LINE #";I;" OF MAIL TO ADDRESS(-1 FOR EMPTY)" -330 INPUT L$(I+8) -340 IF L$(I+8)="-1" THEN L$(I+8)=" " -350 NEXT I -390 RETURN -400 REM PRINT ENVELOPE ON SCREEN -410 CLS -420 FOR I=1 TO 12:PRINT TAB(T(I)); L$(I):NEXT -430 PRINT:GOSUB 10100 -490 RETURN -500 REM PRINT ENVELOPE ON PRINTER -505 CLS:INPUT"HOW MANY ENVELOPES DO YOU DESIRE";K -510 FOR JE=1 TO K -520 FOR I=1 TO N:LPRINT TAB(T(I)); L$(I):NEXT -530 GOSUB 10100 -540 PRINT -550 NEXT -590 RETURN -600 REM NEW DATA -610 CLEAR 1000 -620 DIM L$(100):DIM T(30) -625 FOR I = 1 TO 30:T(I)=1:NEXT -630 FOR I=1 TO 5:T(I)=2:NEXT -640 FOR I=7 TO 12:T(I)=30:NEXT -650 N=22:REM LENGTH OF ENVELOPE IN PRINTED LINES -655 FOR I = 1 TO 100:L$(I)="":NEXT -660 FOR I=1 TO 25:L$(I)=" ":NEXT -690 GOTO 1000 -700 REM CHANGE PRINT TABS -710 CLS -720 PRINT"PRESENT RETURN ADDRESS TAB = ";T(3) -730 INPUT"NEW RETURN ADDRESS TAB";T(3) -735 FOR I=1 TO 5:T(I)=T(3):NEXT -740 PRINT -750 PRINT"PRESENT MAIL-TO ADDRESS TAB = ";T(10) -760 INPUT"NEW MAIL-TO TO ADDRESS TAB";T(10) -770 FOR I=7 TO 12:T(I)=T(10):NEXT -780 RETURN -800 CLS:PRINT"PRESENT NUMBER OF ENVELOPE LINES = ";N -810 PRINT:INPUT"NEW NUMBER OF LINES ";N -815 IF N<>INT(N) OR N<=0 THEN GOSUB 10000:GOTO 810 -820 RETURN -1000 CLS:PRINT TAB(15); "MENU":PRINT -1005 PRINT "0. QUIT -1010 PRINT "1. INPUT RETURN ADDRESS -1020 PRINT "2. INPUT MAIL TO ADDRESS -1030 PRINT "3. PRINT ENVELOPE ON SCREEN -1040 PRINT "4. PRINT ENVELOPE ON PRINTER -1050 PRINT "5. CLEAR DATA:READY FOR NEW ENVELOPE -1060 PRINT "6. CHANGE PRINT TABS FOR RETURN ADDRESS OR MAIL TO ADDRESS -1070 PRINT"7. CHANGE # LINES ON ENVELOPE -1100 PRINT:INPUT"MAKE YOUR CHOICE";ZC -1105 IF ZC = 0 THEN END -1110 ON ZC GOSUB 220,300,400,500,600,700,800 -1120 GOTO 1000 -10000 PRINT"INPUT ERROR! TRY AGAIN!":FOR J=1 TO 300:NEXT J:RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/ENVELOPE.INP b/bwbtest/T80A/ENVELOPE.INP deleted file mode 100644 index 53f54ec..0000000 --- a/bwbtest/T80A/ENVELOPE.INP +++ /dev/null @@ -1,17 +0,0 @@ - -1 -TOM CAT -123 FUNNY STREET -"SOMEWHERE, TX 98765" --1 -2 -JERRY MOUSE -567 CARTOON LANE -"ANYWHERE, TX 12345" --1 -3 - -4 -1 - -0 diff --git a/bwbtest/T80A/ENVELOPE.run b/bwbtest/T80A/ENVELOPE.run deleted file mode 100644 index 2468ead..0000000 --- a/bwbtest/T80A/ENVELOPE.run +++ /dev/null @@ -1,110 +0,0 @@ - ENVELOPE WRITING PROGRAM -THIS PROGRAM WILL GENERATE A PRINTED ENVELOPE ON A LINE -PRINTER. UNLESS TRACTOR FED ENVELOPES ARE AVAILABLE A FRICTION -FEED PRINTER MUST BE HOOKED UP TO THE SYSTEM. THE USER -INPUTS A RETURN ADDRESS,AN ADDRESS, THE LENGTH OF THE ENVELOPE -IN LINES(6 LINES TO THE INCH), AND NUMBER OF COPIES. MANY -OF THE INPUT VALUES MAY BE REPEATED ON SEVERAL ENVELOPES -WITHOUT ADDITIONAL INPUT. - -PRESS ENTER TO BEGIN? - MENU - -0. QUIT -1. INPUT RETURN ADDRESS -2. INPUT MAIL TO ADDRESS -3. PRINT ENVELOPE ON SCREEN -4. PRINT ENVELOPE ON PRINTER -5. CLEAR DATA:READY FOR NEW ENVELOPE -6. CHANGE PRINT TABS FOR RETURN ADDRESS OR MAIL TO ADDRESS -7. CHANGE # LINES ON ENVELOPE - -MAKE YOUR CHOICE? 1 -NO COMMAS IN THE FOLLOWING, PLEASE. - -NO COMMAS IN THE FOLLOWING, PLEASE. - -ENTER LINE # 1 OF RETURN ADDRESS(-1 FOR EMPTY) -? TOM CAT -ENTER LINE # 2 OF RETURN ADDRESS(-1 FOR EMPTY) -? 123 FUNNY STREET -ENTER LINE # 3 OF RETURN ADDRESS(-1 FOR EMPTY) -? "SOMEWHERE, TX 98765" -ENTER LINE # 4 OF RETURN ADDRESS(-1 FOR EMPTY) -? -1 - MENU - -0. QUIT -1. INPUT RETURN ADDRESS -2. INPUT MAIL TO ADDRESS -3. PRINT ENVELOPE ON SCREEN -4. PRINT ENVELOPE ON PRINTER -5. CLEAR DATA:READY FOR NEW ENVELOPE -6. CHANGE PRINT TABS FOR RETURN ADDRESS OR MAIL TO ADDRESS -7. CHANGE # LINES ON ENVELOPE - -MAKE YOUR CHOICE? 2 - -NO COMMAS IN THE FOLLOWING, PLEASE. - -ENTER LINE # 1 OF MAIL TO ADDRESS(-1 FOR EMPTY) -? JERRY MOUSE -ENTER LINE # 2 OF MAIL TO ADDRESS(-1 FOR EMPTY) -? 567 CARTOON LANE -ENTER LINE # 3 OF MAIL TO ADDRESS(-1 FOR EMPTY) -? "ANYWHERE, TX 12345" -ENTER LINE # 4 OF MAIL TO ADDRESS(-1 FOR EMPTY) -? -1 - MENU - -0. QUIT -1. INPUT RETURN ADDRESS -2. INPUT MAIL TO ADDRESS -3. PRINT ENVELOPE ON SCREEN -4. PRINT ENVELOPE ON PRINTER -5. CLEAR DATA:READY FOR NEW ENVELOPE -6. CHANGE PRINT TABS FOR RETURN ADDRESS OR MAIL TO ADDRESS -7. CHANGE # LINES ON ENVELOPE - -MAKE YOUR CHOICE? 3 - - TOM CAT - 123 FUNNY STREET - SOMEWHERE, TX 98765 - - - - - JERRY MOUSE - 567 CARTOON LANE - ANYWHERE, TX 12345 - - -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. INPUT RETURN ADDRESS -2. INPUT MAIL TO ADDRESS -3. PRINT ENVELOPE ON SCREEN -4. PRINT ENVELOPE ON PRINTER -5. CLEAR DATA:READY FOR NEW ENVELOPE -6. CHANGE PRINT TABS FOR RETURN ADDRESS OR MAIL TO ADDRESS -7. CHANGE # LINES ON ENVELOPE - -MAKE YOUR CHOICE? 4 -HOW MANY ENVELOPES DO YOU DESIRE? 1 -PRESS ENTER TO CONTINUE? - - MENU - -0. QUIT -1. INPUT RETURN ADDRESS -2. INPUT MAIL TO ADDRESS -3. PRINT ENVELOPE ON SCREEN -4. PRINT ENVELOPE ON PRINTER -5. CLEAR DATA:READY FOR NEW ENVELOPE -6. CHANGE PRINT TABS FOR RETURN ADDRESS OR MAIL TO ADDRESS -7. CHANGE # LINES ON ENVELOPE - -MAKE YOUR CHOICE? 0 diff --git a/bwbtest/T80A/EOQ.BAS b/bwbtest/T80A/EOQ.BAS deleted file mode 100644 index 475a487..0000000 --- a/bwbtest/T80A/EOQ.BAS +++ /dev/null @@ -1,28 +0,0 @@ -5 CLS -10 PRINT" EOQ INVENTORY MODEL " -20 PRINT -30 PRINT"IN INVENTORY THEORY A REORDER COST IS A FIXED COST ASSESSED -35 PRINT"EACH TIME AN ORDER FOR AN ITEM IS PLACED, NO MATTER WHAT -40 PRINT"THE ORDER QUANTITY IS. -50 PRINT"A HOLDING COST IS A COST DUE TO HOLDING INVENTORY,E.G.INTEREST. -60 PRINT"A STOCKOUT COST IS DUE TO RUNNING OUT OF AN ITEM. -65 PRINT"IN THIS PROGRAM WE ASSUME THAT THERE WILL BE NO STOCKOUTS. -70 PRINT"IN ADDITION THE ITEMS ARE USED UNIFORMLY THROUGHOUT THE YEAR -75 PRINT"WE CAN TAKE DELIVERY OF A REORDER WHENEVER WE WANT. -80 PRINT "DEMAND IS IN NUMBER OF ITEMS USED PER YEAR. -85 PRINT "REORDER COST IS IN DOLLARS PER REORDER. -90 PRINT "HOLDING COST IS IN DOLLARS PER ITEM PER YEAR. -95 PRINT -99 INPUT "TO BEGIN PRESS ENTER";Z9 -200 CLS -210 INPUT "DEMAND ";D -220 INPUT "REORDER COST ";CR -230 INPUT "HOLDING COST ";CH -240 Q=SQR(2*CR*D/CH) -250 Q1 = INT(Q+.5) -300 PRINT -320 PRINT "TO MINIMIZE TOTAL COSTS OF INVENTORY :" -330 PRINT" REORDER ";Q1;" ITEMS AT A TIME" -340 PRINT -350 PRINT"THIS MEANS ORDER APPROXIMATELY";INT(D/Q1+.5);" TIMES PER YEAR -360 PRINT"OR ABOUT EVERY ";INT(365/INT(D/Q1+.5)+.5);" DAYS." diff --git a/bwbtest/T80A/EOQ.INP b/bwbtest/T80A/EOQ.INP deleted file mode 100644 index b4791e5..0000000 --- a/bwbtest/T80A/EOQ.INP +++ /dev/null @@ -1,4 +0,0 @@ - -3456 -56.78 -12.34 diff --git a/bwbtest/T80A/EOQ.run b/bwbtest/T80A/EOQ.run deleted file mode 100644 index 69e1c0d..0000000 --- a/bwbtest/T80A/EOQ.run +++ /dev/null @@ -1,24 +0,0 @@ - EOQ INVENTORY MODEL - -IN INVENTORY THEORY A REORDER COST IS A FIXED COST ASSESSED -EACH TIME AN ORDER FOR AN ITEM IS PLACED, NO MATTER WHAT -THE ORDER QUANTITY IS. -A HOLDING COST IS A COST DUE TO HOLDING INVENTORY,E.G.INTEREST. -A STOCKOUT COST IS DUE TO RUNNING OUT OF AN ITEM. -IN THIS PROGRAM WE ASSUME THAT THERE WILL BE NO STOCKOUTS. -IN ADDITION THE ITEMS ARE USED UNIFORMLY THROUGHOUT THE YEAR -WE CAN TAKE DELIVERY OF A REORDER WHENEVER WE WANT. -DEMAND IS IN NUMBER OF ITEMS USED PER YEAR. -REORDER COST IS IN DOLLARS PER REORDER. -HOLDING COST IS IN DOLLARS PER ITEM PER YEAR. - -TO BEGIN PRESS ENTER? -DEMAND ? 3456 -REORDER COST ? 56.78 -HOLDING COST ? 12.34 - -TO MINIMIZE TOTAL COSTS OF INVENTORY : - REORDER 178 ITEMS AT A TIME - -THIS MEANS ORDER APPROXIMATELY 19 TIMES PER YEAR -OR ABOUT EVERY 19 DAYS. diff --git a/bwbtest/T80A/EPSEST.BAS b/bwbtest/T80A/EPSEST.BAS deleted file mode 100644 index dc87b0f..0000000 --- a/bwbtest/T80A/EPSEST.BAS +++ /dev/null @@ -1,28 +0,0 @@ -10 CLS -20 PRINT"THIS PROGRAM WILL ESTIMATE EXPECTED EARNINGS PER SHARE FOR -30 PRINT"A COMPANY BASED UPON VARIOUS CURRENT AND EXPECTED PARAMETERS. -40 PRINT -1000 REM INPUT DATA -1010 INPUT"HOW MANY YEARS INTO FUTURE SHOULD ESTIMATE BE";N -1020 INPUT"CURRENT SALES ";S -1030 PRINT"EXPECTED SALES IN ";N;" YEARS";:INPUT" ";SN -1040 INPUT"CURRENT PROFIT MARGIN ";PI -1050 PRINT"EXPECTED PROFIT MARGIN IN ";N;" YEARS";:INPUT" "; PN -1060 INPUT"CURRENT TURNOVER ";T -1070 PRINT"EXPECTED TURNOVER IN ";N;" YEARS";:INPUT" ";TN -1080 INPUT"CURRENT LEVERAGE ";L -1090 PRINT"EXPECTED LEVERAGE IN ";N;" YEARS";:INPUT" ";LN -1100 INPUT"CURRENT PROFIT ON NET WORTH ";PC -1110 PRINT"EXPECTED PROFIT ON NET WORTH IN";N;"YEARS ";:INPUT PE -1129 INPUT"CURRENT DIVIDEND PAY-OUT RATIO ";DC -1140 PRINT"EXPECTED DIVIDEND PAY-OUT RATIO IN";N;"YEARS ";:INPUT DE -1150 INPUT"ENTER BOOK/MARKET RATIO ";BM -1160 INPUT"CURRENT EARNINGS PER SHARE ";EP -1200 REM COMPUTING EXPECTED EPS -1210 X1=SN*PN/(S*PI):X2=SN*T*L/(S*TN*LN) -1220 X3=(1 + .5*(PC+PE)*(1-.5*(DC+DE))):X4=BM+1 -1230 X5=EP*X1/((X2-X3[N)*BM+1) -1240 PRINT:PRINT "EXPECTED EARNINGS PER SHARE IN ";N;"YEARS = ";INT(X5*100+.5)/100 -1250 PRINT:INPUT"PRESS ENTER TO CONTINUE";Z9 -1255 IF Z9 = -1 THEN END -1260 CLS:GOTO 1000 diff --git a/bwbtest/T80A/EPSEST.INP b/bwbtest/T80A/EPSEST.INP deleted file mode 100644 index 1018eb6..0000000 --- a/bwbtest/T80A/EPSEST.INP +++ /dev/null @@ -1,16 +0,0 @@ -5 -876543 -987654 -12 -14 -2 -3 -7 -8 -12345 -23456 -7 -6 -1.25 -65.43 --1 diff --git a/bwbtest/T80A/EPSEST.run b/bwbtest/T80A/EPSEST.run deleted file mode 100644 index cb14d07..0000000 --- a/bwbtest/T80A/EPSEST.run +++ /dev/null @@ -1,22 +0,0 @@ -THIS PROGRAM WILL ESTIMATE EXPECTED EARNINGS PER SHARE FOR -A COMPANY BASED UPON VARIOUS CURRENT AND EXPECTED PARAMETERS. - -HOW MANY YEARS INTO FUTURE SHOULD ESTIMATE BE? 5 -CURRENT SALES ? 876543 -EXPECTED SALES IN 5 YEARS ? 987654 -CURRENT PROFIT MARGIN ? 12 -EXPECTED PROFIT MARGIN IN 5 YEARS ? 14 -CURRENT TURNOVER ? 2 -EXPECTED TURNOVER IN 5 YEARS ? 3 -CURRENT LEVERAGE ? 7 -EXPECTED LEVERAGE IN 5 YEARS ? 8 -CURRENT PROFIT ON NET WORTH ? 12345 -EXPECTED PROFIT ON NET WORTH IN 5 YEARS ? 23456 -CURRENT DIVIDEND PAY-OUT RATIO ? 7 -EXPECTED DIVIDEND PAY-OUT RATIO IN 5 YEARS ? 6 -ENTER BOOK/MARKET RATIO ? 1.25 -CURRENT EARNINGS PER SHARE ? 65.43 - -EXPECTED EARNINGS PER SHARE IN 5 YEARS = 0 - -PRESS ENTER TO CONTINUE? -1 diff --git a/bwbtest/T80A/EXPVAL.BAS b/bwbtest/T80A/EXPVAL.BAS deleted file mode 100644 index eea6db2..0000000 --- a/bwbtest/T80A/EXPVAL.BAS +++ /dev/null @@ -1,54 +0,0 @@ -1 REM EXPVAL -10 CLS:PRINT TAB(10); "EXPECTED VALUE ANALYSIS":PRINT -20 PRINT"THERE ARE MANY SITUATIONS FOR WHICH THE FINAL RESULT IS -30 PRINT"A MONETARY PAYOFF BUT FOR WHICH THE AMOUNT OF THE PAYOFF -35 PRINT"IS UNCERTAIN. IF WE CAN SOMEHOW MAKE A LIST OF THE POSSIBLE -40 PRINT"PAYOFFS AND THEIR RELATIVE LIKELIHOODS OF OCCURRENCE THEN -45 PRINT"THE CONCEPT OF EXPECTED VALUE MAY BE USED TO COMPUTE AN -50 PRINT"'AVERAGE' PAYOFF. THE PRESENT PROGRAM COMPUTES THE EXPECTED -55 PRINT"VALUE OR AVERAGE PAYOFF OF A SITUATION AS THE ABOVE. -60 PRINT"INPUT INCLUDES A PAYOFF AND A PROBABILITY FOR EACH -65 PRINT"POSSIBLE RESULT. THE PROBABILITY IS A NUMBER BETWEEN 0 AND 1 -70 PRINT"REPRESENTING LIKELIHOOD OF OCCURRENCE. THE PROBABILITIES -75 PRINT"SHOULD REALLY SUM TO 1 BUT THE PROGRAM WILL NORMALIZE THEM. -80 PRINT"THUS,E.G. THE USER MUST ONLY NOTE THAT A PROBABILITY OF .4 -85 PRINT"MEANS TWICE AS LIKELY TO OCCUR AS A PROBABILITY O .2 . -90 INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -105 CLEAR 1000 -110 DIM A(100),PP(100),PC(100) -120 PRINT"FOR EACH POSSIBLE PAYOFF INPUT PAYOFF AMOUNT AND PROBAILITY. -130 PRINT"INPUT 0,0 TO COMPLETE ENTRY AND TO DO COMPUTATION." -140 PRINT -150 N=0 -160 PRINT"ENTRY";N+1;:INPUT"ENTER PAYOFF,PROBAILITY (0,0 TO END)";A(N+1),PP(N+1) -170 IF A(N+1)=0 AND PP(N+1)=0 THEN GOTO 200 ' ALL DONE -180 N=N+1:P=P+PP(N):REM TOTAL OF PROBABILITIES -190 GOTO 160 -200 REM END UP COMPUTATION -210 FOR I=1 TO N:PC(I)=PP(I)/P:NEXT:REM STANDARDIZED PROBABILITIES -220 EX=0 -230 FOR I=1 TO N:EX=EX+A(I)*PC(I):NEXT:REM EX = EXPECTED VALUE -240 F$(1)="ENTRY VALUE PROB. PROB. ENTRY -245 F$(2)=" ENTERED STANDARD EXP VAL" -250 F$(3)=" ### #######.## #.### #.### ######.## ###.##" -255 F$(4)=" EXPECTED VALUE EQUALS ######.##" -260 INPUT"IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -270 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 260 -300 REM PRINTOUT -310 CLS:PRINT F$(1):PRINT F$(2) -320 IF Z2$="Y" THEN LPRINT F$(1):LPRINT F$(2):LPRINT " " -330 FOR I=1 TO N -340 PRINT USING F$(3);I,A(I),PP(I),PC(I),A(I)*PC(I) -350 IF Z2$="Y" THEN LPRINT USING F$(3);I,A(I),PP(I),PC(I),A(I)*PC(I) -355 IF I/12=INT(I/12) THEN PRINT:GOSUB 10100:PRINT -360 NEXT I -390 PRINT:LPRINT" " -400 PRINT USING F$(4);EX:IF Z2$="Y" THEN LPRINT USING F$(4);EX -410 PRINT -420 INPUT"ENTER 1 FOR MORE COMPUTATION,0 TO END";Z9$ -425 CLS -430 IF Z9$="1" THEN GOTO 105 -440 END -10000 PRINT"INPUT ERROR! TRY AGAIN!":FOR Q=1 TO 300:NEXT:RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/EXPVAL.INP b/bwbtest/T80A/EXPVAL.INP deleted file mode 100644 index 808ca34..0000000 --- a/bwbtest/T80A/EXPVAL.INP +++ /dev/null @@ -1,8 +0,0 @@ - -23,0.11 -34,0.22 -45,0.33 -56,0.44 -0,0 -Y -0 diff --git a/bwbtest/T80A/EXPVAL.run b/bwbtest/T80A/EXPVAL.run deleted file mode 100644 index 64a0443..0000000 --- a/bwbtest/T80A/EXPVAL.run +++ /dev/null @@ -1,35 +0,0 @@ - EXPECTED VALUE ANALYSIS - -THERE ARE MANY SITUATIONS FOR WHICH THE FINAL RESULT IS -A MONETARY PAYOFF BUT FOR WHICH THE AMOUNT OF THE PAYOFF -IS UNCERTAIN. IF WE CAN SOMEHOW MAKE A LIST OF THE POSSIBLE -PAYOFFS AND THEIR RELATIVE LIKELIHOODS OF OCCURRENCE THEN -THE CONCEPT OF EXPECTED VALUE MAY BE USED TO COMPUTE AN -'AVERAGE' PAYOFF. THE PRESENT PROGRAM COMPUTES THE EXPECTED -VALUE OR AVERAGE PAYOFF OF A SITUATION AS THE ABOVE. -INPUT INCLUDES A PAYOFF AND A PROBABILITY FOR EACH -POSSIBLE RESULT. THE PROBABILITY IS A NUMBER BETWEEN 0 AND 1 -REPRESENTING LIKELIHOOD OF OCCURRENCE. THE PROBABILITIES -SHOULD REALLY SUM TO 1 BUT THE PROGRAM WILL NORMALIZE THEM. -THUS,E.G. THE USER MUST ONLY NOTE THAT A PROBABILITY OF .4 -MEANS TWICE AS LIKELY TO OCCUR AS A PROBABILITY O .2 . -PRESS ENTER TO BEGIN? -FOR EACH POSSIBLE PAYOFF INPUT PAYOFF AMOUNT AND PROBAILITY. -INPUT 0,0 TO COMPLETE ENTRY AND TO DO COMPUTATION. - -ENTRY 1 ENTER PAYOFF,PROBAILITY (0,0 TO END)? 23,0.11 -ENTRY 2 ENTER PAYOFF,PROBAILITY (0,0 TO END)? 34,0.22 -ENTRY 3 ENTER PAYOFF,PROBAILITY (0,0 TO END)? 45,0.33 -ENTRY 4 ENTER PAYOFF,PROBAILITY (0,0 TO END)? 56,0.44 -ENTRY 5 ENTER PAYOFF,PROBAILITY (0,0 TO END)? 0,0 -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -ENTRY VALUE PROB. PROB. ENTRY - ENTERED STANDARD EXP VAL - 1 23.00 0.110 0.100 2.30 - 2 34.00 0.220 0.200 6.80 - 3 45.00 0.330 0.300 13.50 - 4 56.00 0.440 0.400 22.40 - - EXPECTED VALUE EQUALS 45.00 - -ENTER 1 FOR MORE COMPUTATION,0 TO END? 0 diff --git a/bwbtest/T80A/FINRAT.BAS b/bwbtest/T80A/FINRAT.BAS deleted file mode 100644 index a5026fa..0000000 --- a/bwbtest/T80A/FINRAT.BAS +++ /dev/null @@ -1,149 +0,0 @@ -1 REM FINRAT -5 CLEAR 3000 -10 CLS -20 PRINT TAB(10); "FINANCIAL RATIOS":PRINT -30 PRINT"THIS PROGRAM WILL COMPUTE SOME COMMONLY USED FINANCIAL RATIOS -35 PRINT"USING INFORMATION FROM A FIRM'S BALANCE SHEET AND INCOME -40 PRINT"STATEMENT. THE PROGRAM IS MENU DRIVEN. DATA FOR A COMPANY -45 PRINT"MAY BE INPUT, COMPUTATIONS MAY TAKE PLACE, INPUT DATA MAY -50 PRINT"BE EDITED, AND THE DATA MAY EVEN BE STORED ON CASSETTE OR -55 PRINT"DISKETTE. THE PROGRAM MAY BE EASILY MODIFIED BY THOSE -60 PRINT"DESIRING TO COMPUTE OTHER RATIOS OR DESIRING TO SHOW MORE -65 PRINT"DETAIL IN THE BALANCE SHEET. -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -100 DIM A$(40),A(40),R$(30),R(30),B$(30),B(30) -110 FOR I=1 TO 27:READ A$(I):NEXT -113 FOR I=1 TO 13:READ R$(I):NEXT -120 GOSUB 9000 -140 PRINT -150 INPUT"ARE DISK DRIVES ATTACHED(Y/N)";Z7$ -160 IF Z7$<>"Y" AND Z7$<>"N" THEN GOSUB 10000:GOTO 150 -200 CLS:PRINT TAB(10); "MENU":PRINT -205 PRINT"0. QUIT -210 PRINT"1. INPUT BALANCE SHEET AND INCOME DATA -220 PRINT"2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT -230 PRINT"3. EDIT INPUT DATA -240 PRINT"4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS -250 PRINT"5. STORE COMPANY INPUT DATA ONTO DISKETTE -260 PRINT"6. READ COMPANY INPUT DATA FROM DISKETTE -270 PRINT"7. STORE COMPANY INPUT DATA ONTO CASSETTE -280 PRINT"8. READ COMPANY INPUT DATA FROM CASSETTE -290 PRINT"9. CHANGE DATE -300 INPUT"INPUT YOUR CHOICE";Z1 -305 IF Z1 = 0 THEN END -310 ON Z1 GOSUB 6000,6100,6200,6300,4000,4100,4200,4300,900 -320 GOTO 200 -900 CLS:PRINT "DATE CHANGE":PRINT -910 PRINT"PRESENT DATE FOR DATA IS ";D$;:INPUT"NEW DATE ";D$ -920 RETURN -4000 REM PRINT OUT DATA FOR COMPANY ON DISKETTE -4010 CLS:INPUT"PRESS ENTER WHEN DISKETTE READY";Z9$ -4020 PRINT -4030 PRINT"PRESENT DISK FILE NAME IS ";C$;:INPUT" NEW NAME";C$ -4040 OPEN"O",1,C$ -4050 FOR I=1 TO 27:WRITE # 1,A(I):NEXT:WRITE # 1,D$ -4060 CLOSE #1 -4070 RETURN -4100 REM INPUT DATA FOR COMPANY FROM DISKETTE -4110 CLS:INPUT"PRESS ENTER WHEN DISKETTE READY";Z9$ -4120 PRINT -4130 INPUT"ENTER NAME OF DISK FILE ";C$ -4140 OPEN"I",1,C$ -4150 FOR I=1 TO 27:INPUT #1,A(I):NEXT:INPUT #1,D$ -4160 CLOSE #1 -4170 RETURN -4200 REM INPUT COMPANY DATA FROM CASSETTE -4210 CLS:INPUT"PRESS ENTER WHEN CASSETTE READY";Z9$ -4220 ' IF Z7$="Y" THEN CMD"T" -4230 FOR I=1 TO 27:INPUT #-1,A(I):NEXT:INPUT #-1,D$ -4240 RETURN -4300 REM PRINT COMPANY DATA ONTO CASETTE -4310 CLS:INPUT"PRESS ENTER WHEN CASSETTE READY";Z9$ -4320 ' IF Z7$="Y" THEN CMD"T" -4330 FOR I=1 TO 27:WRITE #-1,A(I):NEXT:WRITE #-1,D$ -4340 RETURN -6000 REM INPUT OF BALANCE SHEET AND INCOME STATEMENT DATA -6005 CLS:PRINT"ENTER THE FOLLOWING DATA":PRINT -6010 FOR I=1 TO 27 -6020 PRINT A$(I);TAB(40);:INPUT A(I) -6030 NEXT I -6040 RETURN -6100 REM DISPLAY INPUTS -6105 CLS -6110 INPUT"IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -6120 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 6110 -6125 IF Z2$="Y" THEN INPUT"PRESS ENTER WHEN PRINTER READY";Z9$ -6130 CLS -6135 PRINT "DATE IS ";D$:IF Z2$="Y" THEN LPRINT "DATE IS ";D$:LPRINT " " -6140 FOR I=1 TO 27 -6150 PRINT USING F$(1);I,A$(I),A(I):IF Z2$="Y" THEN LPRINT USING F$(1);I,A$(I),A(I) -6160 IF Z2$="N" AND I/14=INT(I/14) THEN GOSUB 10100 -6170 NEXT I -6180 GOSUB 10100 -6190 RETURN -6200 REM EDIT INPUT ITEM -6210 CLS -6220 FOR I=1 TO 27:PRINT USING F$(1);I,A$(I),A(I):FOR JJ=1 TO 300:NEXT:NEXT I -6230 INPUT"INPUT ITEM # TO CHANGE(0 TO END)";II -6240 IF II=0 THEN RETURN -6250 PRINT:PRINT USING F$(2);II,A$(II),A(II); -6260 INPUT A(II) -6270 PRINT:GOTO 6230 -6300 REM COMPUTATION AND PRINTOUT OF RATIOS AND OTHER DERIVED DATA -6305 INPUT"IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -6307 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 6305 -6310 B(1)=A(11)+A(12)+A(13)+A(14)+A(15):REM CURRENT ASSETS -6320 B(2)=A(16)+A(17)+A(18)+A(19):REM FIXED & INTANGIBLE ASSETS -6330 B(3)=B(1)+B(2):REM TOTAL ASSETS -6340 B(4)=B(3)-A(19):REM TOTAL OPERATING ASSETS -6350 B(5)=A(20)+A(21)+A(22)+A(23):REM CURRENT LIABILITIES -6360 B(6)=A(24)+A(25):REM LONG TERM DEBT & PREFERRED -6370 B(7)=A(26):REM RETAINED EARNINGS -6380 B(8)=A(27):REM COMMON STOCK -6390 B(9)=B(7)+B(8):REM TOTAL STOCKHOLDERS EQUITY -6400 B(10)=B(5)+B(6)+B(9):REM TOTAL LIABILITIES AND EQUITY -6410 B(11)=A(1)-A(2):REM GROSS MARGIN -6420 B(12)=B(11)-A(3)-A(4)-A(5)-A(6):REM INCOME FROM OPERATIONS -6430 B(13)=B(12):REM EBIT -6440 B(14)=B(13)-A(7):REM EBT -6450 B(15)=B(14)-A(8):REM EARNINGS AFTER TAXES -6460 B(16)=A(9):REM DIVIDENDS ON PREFERRED STOCK -6470 B(17)=B(15)-B(16):REM EARNINGS AVAILABLE TO COMMON SHAREHOLDERS -6480 B(18)=B(1) - B(5) :REM WORKING CAPITAL -6500 REM RATIOS NEXT -6510 R(1)=B(17)/A(10):REM EPS -6520 R(2)=A(1)/B(4):REM TURNOVER OF OPERATING ASSETS -6530 R(3)=B(1)/B(5):REM CURRENT RATIO -6540 R(4)=(A(11)+A(12))/B(5):REM ACID TEST RATIO -6550 R(5)=A(1)/A(13):REM RECEIVABLES TURNOVER -6560 R(6)=A(2)/A(14):REM INVENTORY TURNOVER -6570 R(7)=B(11)/A(1):REM GROSS PROFIT MARGIN -6580 R(8)=A(1)/B(18):REM WORKING CAPITAL TURNOVER -6590 R(9)=B(15)/B(18):REM NET PROFITS TO WORKING CAPITAL -6600 R(10)=B(5)/(B(9)+A(25)-A(19)):REM CURRENT DEBT TO NET WORTH -6610 R(11)=B(18)/B(3):REM WORKING CAPITAL TO TOTAL ASSETS -6620 R(12)=A(1)/B(3):REM SALES TO TOTAL ASSETS -6630 R(13)=B(9)/A(10):REM BOOK VALUE PER SHARE -6800 REM PRINT RATIOS -6805 CLS -6807 PRINT D$:IF Z2$="Y" THEN LPRINT "DATE IS ";D$:LPRINT -6810 FOR I=1 TO 13 -6820 PRINT USING F$(3);R$(I),R(I) -6830 IF Z2$="Y" THEN LPRINT USING F$(3);R$(I),R(I) -6840 NEXT I -6850 GOSUB 10100 -6860 RETURN -8000 REM DATA -8010 DATA SALES,COST OF GOODS SOLD,ADMINISTRATIVE & SELLING EXP.,GENERAL EXPENSES,DEPRECIATION,OTHER EXPENSES,INTEREST EXPENSE,INCOME TAXES,DIVIDENDS ON PREFERRED STOCKS,SHARES OUTSTANDING -8020 DATA CASH,MARKETABLE SECURITIES,NET ACCTS RECEIVABLE,INVENTORY,PREPAID EXPENSE,NET PLANT & EQUIP.,NET BUILDINGS, LAND(COST),INTANGIBLES -8030 DATA ACCOUNTS PAYABLE,NOTES PAYABLE,ACCRUED EXPENSES,LONG TERM DEBT(CURR. PORTION),LONG TERM DEBT(NON CURR),PREFERRED STOCK,RETAINED EARNINGS, COMMON STOCK -8050 DATA EPS,TURNOVER OF OPERATING ASSETS,CURRENT RATIO,ACID TEST RATIO,RECEIVABLES TURNOVER,INVENTORY TURNOVER -8060 DATA GROSS PROFIT MARGIN,WORKING CAPITAL TURNOVER,NET PROFITS TO WORKING CAPITAL,CURRENT DEBT TO NET WORTH -8070 DATA WORKING CAPITAL TO TOTAL ASSETS,SALES TO TOTAL ASSETS,BOOK VALUE PER SHARE -9000 REM PRINTING FORMATS -9010 F$(1)="## % % #########.##" -9020 F$(2)="## % % ########.##" -9030 F$(3)="% % ####.##" -9099 RETURN -10000 PRINT"INPUT ERROR! TRY AGAIN":FOR JJ=1 TO 300:NEXT:RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/FINRAT.DAT b/bwbtest/T80A/FINRAT.DAT deleted file mode 100644 index 7b496aa..0000000 --- a/bwbtest/T80A/FINRAT.DAT +++ /dev/null @@ -1,28 +0,0 @@ -98765 -65432 -1234 -2345 -4567 -52 -65 -75 -87 -1230 -87654 -76543 -90500 -84350 -79234 -1567 -2648 -987 -654 -123 -456 -78 -42 -31 -15750 -11 -1200 -"" diff --git a/bwbtest/T80A/FINRAT.INP b/bwbtest/T80A/FINRAT.INP deleted file mode 100644 index caa9888..0000000 --- a/bwbtest/T80A/FINRAT.INP +++ /dev/null @@ -1,46 +0,0 @@ - -Y -1 -98765 -65432 -1234 -2345 -4567 -52 -65 -75 -87 -1230 -87654 -76543 -90500 -84350 -79234 -1567 -2648 -987 -654 -123 -456 -78 -42 -31 -15750 -11 -1200 -5 - -FINRAT.DAT -6 - -FINRAT.DAT -9 -12/34/56 -2 -Y - - -4 -Y - -0 diff --git a/bwbtest/T80A/FINRAT.run b/bwbtest/T80A/FINRAT.run deleted file mode 100644 index ffa0fce..0000000 --- a/bwbtest/T80A/FINRAT.run +++ /dev/null @@ -1,190 +0,0 @@ - FINANCIAL RATIOS - -THIS PROGRAM WILL COMPUTE SOME COMMONLY USED FINANCIAL RATIOS -USING INFORMATION FROM A FIRM'S BALANCE SHEET AND INCOME -STATEMENT. THE PROGRAM IS MENU DRIVEN. DATA FOR A COMPANY -MAY BE INPUT, COMPUTATIONS MAY TAKE PLACE, INPUT DATA MAY -BE EDITED, AND THE DATA MAY EVEN BE STORED ON CASSETTE OR -DISKETTE. THE PROGRAM MAY BE EASILY MODIFIED BY THOSE -DESIRING TO COMPUTE OTHER RATIOS OR DESIRING TO SHOW MORE -DETAIL IN THE BALANCE SHEET. - -PRESS ENTER TO BEGIN? - -ARE DISK DRIVES ATTACHED(Y/N)? Y - MENU - -0. QUIT -1. INPUT BALANCE SHEET AND INCOME DATA -2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT -3. EDIT INPUT DATA -4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS -5. STORE COMPANY INPUT DATA ONTO DISKETTE -6. READ COMPANY INPUT DATA FROM DISKETTE -7. STORE COMPANY INPUT DATA ONTO CASSETTE -8. READ COMPANY INPUT DATA FROM CASSETTE -9. CHANGE DATE -INPUT YOUR CHOICE? 1 -ENTER THE FOLLOWING DATA - -SALES ? 98765 -COST OF GOODS SOLD ? 65432 -ADMINISTRATIVE & SELLING EXP. ? 1234 -GENERAL EXPENSES ? 2345 -DEPRECIATION ? 4567 -OTHER EXPENSES ? 52 -INTEREST EXPENSE ? 65 -INCOME TAXES ? 75 -DIVIDENDS ON PREFERRED STOCKS ? 87 -SHARES OUTSTANDING ? 1230 -CASH ? 87654 -MARKETABLE SECURITIES ? 76543 -NET ACCTS RECEIVABLE ? 90500 -INVENTORY ? 84350 -PREPAID EXPENSE ? 79234 -NET PLANT & EQUIP. ? 1567 -NET BUILDINGS ? 2648 -LAND(COST) ? 987 -INTANGIBLES ? 654 -ACCOUNTS PAYABLE ? 123 -NOTES PAYABLE ? 456 -ACCRUED EXPENSES ? 78 -LONG TERM DEBT(CURR. PORTION) ? 42 -LONG TERM DEBT(NON CURR) ? 31 -PREFERRED STOCK ? 15750 -RETAINED EARNINGS ? 11 -COMMON STOCK ? 1200 - MENU - -0. QUIT -1. INPUT BALANCE SHEET AND INCOME DATA -2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT -3. EDIT INPUT DATA -4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS -5. STORE COMPANY INPUT DATA ONTO DISKETTE -6. READ COMPANY INPUT DATA FROM DISKETTE -7. STORE COMPANY INPUT DATA ONTO CASSETTE -8. READ COMPANY INPUT DATA FROM CASSETTE -9. CHANGE DATE -INPUT YOUR CHOICE? 5 -PRESS ENTER WHEN DISKETTE READY? - -PRESENT DISK FILE NAME IS NEW NAME? FINRAT.DAT - MENU - -0. QUIT -1. INPUT BALANCE SHEET AND INCOME DATA -2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT -3. EDIT INPUT DATA -4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS -5. STORE COMPANY INPUT DATA ONTO DISKETTE -6. READ COMPANY INPUT DATA FROM DISKETTE -7. STORE COMPANY INPUT DATA ONTO CASSETTE -8. READ COMPANY INPUT DATA FROM CASSETTE -9. CHANGE DATE -INPUT YOUR CHOICE? 6 -PRESS ENTER WHEN DISKETTE READY? - -ENTER NAME OF DISK FILE ? FINRAT.DAT - MENU - -0. QUIT -1. INPUT BALANCE SHEET AND INCOME DATA -2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT -3. EDIT INPUT DATA -4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS -5. STORE COMPANY INPUT DATA ONTO DISKETTE -6. READ COMPANY INPUT DATA FROM DISKETTE -7. STORE COMPANY INPUT DATA ONTO CASSETTE -8. READ COMPANY INPUT DATA FROM CASSETTE -9. CHANGE DATE -INPUT YOUR CHOICE? 9 -DATE CHANGE - -PRESENT DATE FOR DATA IS NEW DATE ? 12/34/56 - MENU - -0. QUIT -1. INPUT BALANCE SHEET AND INCOME DATA -2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT -3. EDIT INPUT DATA -4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS -5. STORE COMPANY INPUT DATA ONTO DISKETTE -6. READ COMPANY INPUT DATA FROM DISKETTE -7. STORE COMPANY INPUT DATA ONTO CASSETTE -8. READ COMPANY INPUT DATA FROM CASSETTE -9. CHANGE DATE -INPUT YOUR CHOICE? 2 -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -PRESS ENTER WHEN PRINTER READY? -DATE IS 12/34/56 - 1 SALES 98765.00 - 2 COST OF GOODS SOLD 65432.00 - 3 ADMINISTRATIVE & SELLING EXP. 1234.00 - 4 GENERAL EXPENSES 2345.00 - 5 DEPRECIATION 4567.00 - 6 OTHER EXPENSES 52.00 - 7 INTEREST EXPENSE 65.00 - 8 INCOME TAXES 75.00 - 9 DIVIDENDS ON PREFERRED STOCKS 87.00 -10 SHARES OUTSTANDING 1230.00 -11 CASH 87654.00 -12 MARKETABLE SECURITIES 76543.00 -13 NET ACCTS RECEIVABLE 90500.00 -14 INVENTORY 84350.00 -15 PREPAID EXPENSE 79234.00 -16 NET PLANT & EQUIP. 1567.00 -17 NET BUILDINGS 2648.00 -18 LAND(COST) 987.00 -19 INTANGIBLES 654.00 -20 ACCOUNTS PAYABLE 123.00 -21 NOTES PAYABLE 456.00 -22 ACCRUED EXPENSES 78.00 -23 LONG TERM DEBT(CURR. PORTION) 42.00 -24 LONG TERM DEBT(NON CURR) 31.00 -25 PREFERRED STOCK 15750.00 -26 RETAINED EARNINGS 11.00 -27 COMMON STOCK 1200.00 -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. INPUT BALANCE SHEET AND INCOME DATA -2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT -3. EDIT INPUT DATA -4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS -5. STORE COMPANY INPUT DATA ONTO DISKETTE -6. READ COMPANY INPUT DATA FROM DISKETTE -7. STORE COMPANY INPUT DATA ONTO CASSETTE -8. READ COMPANY INPUT DATA FROM CASSETTE -9. CHANGE DATE -INPUT YOUR CHOICE? 4 -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -12/34/56 -EPS 20.25 -TURNOVER OF OPERATING ASSETS 0.23 -CURRENT RATIO 598.40 -ACID TEST RATIO 234.90 -RECEIVABLES TURNOVER 1.09 -INVENTORY TURNOVER 0.78 -GROSS PROFIT MARGIN 0.34 -WORKING CAPITAL TURNOVER 0.24 -NET PROFITS TO WORKING CAPITAL 0.06 -CURRENT DEBT TO NET WORTH 0.04 -WORKING CAPITAL TO TOTAL ASSETS 0.98 -SALES TO TOTAL ASSETS 0.23 -BOOK VALUE PER SHARE 0.98 -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. INPUT BALANCE SHEET AND INCOME DATA -2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT -3. EDIT INPUT DATA -4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS -5. STORE COMPANY INPUT DATA ONTO DISKETTE -6. READ COMPANY INPUT DATA FROM DISKETTE -7. STORE COMPANY INPUT DATA ONTO CASSETTE -8. READ COMPANY INPUT DATA FROM CASSETTE -9. CHANGE DATE -INPUT YOUR CHOICE? 0 diff --git a/bwbtest/T80A/FQEOQ.BAS b/bwbtest/T80A/FQEOQ.BAS deleted file mode 100644 index 25d97c2..0000000 --- a/bwbtest/T80A/FQEOQ.BAS +++ /dev/null @@ -1,35 +0,0 @@ -1 REM FQEOQ -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"INVENTORY THEORY-FIXED QUANTITY EOQ":PRINT -20 PRINT"THIS PROGRAM INVOLVES AN INVENTORY PROBLEM FOR WHICH IT IS -25 PRINT"ASSUMED THAT THE FOLLOWING CONDITIONS HOLD: -30 PRINT" THERE IS A CONSTANT ORDERING COST PER ORDER -35 PRINT" INVENTORY HOLDING COST IS CONSTANT PER UNIT HELD -40 PRINT" NO BACKORDERS ARE PERMITTED (STOCKOUTS NOT ALLOWED) -45 PRINT" ORDER LEAD TIME IS CONSTANT AND KNOWN -50 PRINT" DEMAND FOR THE ITEMS ARE CONSTANT AND UNIFORM THROUGH TIME -55 PRINT" THERE ARE NO QUANTITY PRICE BREAKS. -60 PRINT:PRINT"WE SHALL INPUT LEAD TIME,ANNUAL DEMAND, ORDERING COST, -65 PRINT"HOLDING COST PER UNIT PER YEAR AND UNIT PURCHASE PRICE. -70 PRINT"OUTPUT INCLUDES OPTIMAL ORDER QUANTITY,REORDER POINT, AND -75 PRINT"TOTAL ANNUAL COST OF THE INVENTORY SYSTEM. -90 INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT"ENTER ANNUAL DEMAND(IN UNITS) ";D -120 INPUT"ENTER REORDER COST(PER ORDER) ";S -130 INPUT"ENTER LEAD TIME(DAYS) ";L -140 INPUT"ENTER HOLDING COST(PER UNIT/YEAR ";C -150 INPUT"ENTER PURCHASE PRICE PER ITEM ";P -200 Q=SQR(2*D*S/C): REM OPTIMAL ORDER QUANTITY -210 R = L*D/365:REM REORDER LEVEL BASED ON 365 DAY YEAR -300 PRINT -310 PRINT"OPTIMAL ORDER QUANTITY IS ";Q;"UNITS" -320 PRINT"THIS MEANS ORDER ABOUT";D/Q;"TIMES PER YEAR." -330 PRINT" OR ABOUT EVERY ";365*Q/D;"DAYS." -340 PRINT"THE REORDER LEVEL IS";R;"UNITS, I.E. WHEN THIS QUANTITY -350 PRINT" IS REACHED REORDER";Q;"UNITS." -360 PRINT"TOTAL INVENTORY COST(HOLDING + REORDERING + COST OF ITEMS)" -370 PRINT" PER YEAR EQUALS";D*P + D*S/Q + Q*C/2 -380 PRINT:INPUT"PRESS ENTER FOR MORE";Z9$ -385 IF Z9$ = "-1" THEN END -390 GOTO 100 diff --git a/bwbtest/T80A/FQEOQ.INP b/bwbtest/T80A/FQEOQ.INP deleted file mode 100644 index d58fe37..0000000 --- a/bwbtest/T80A/FQEOQ.INP +++ /dev/null @@ -1,7 +0,0 @@ - -123456 -38.56 -37 -1.75 -12.74 --1 diff --git a/bwbtest/T80A/FQEOQ.run b/bwbtest/T80A/FQEOQ.run deleted file mode 100644 index 2bf3dd8..0000000 --- a/bwbtest/T80A/FQEOQ.run +++ /dev/null @@ -1,31 +0,0 @@ - INVENTORY THEORY-FIXED QUANTITY EOQ - -THIS PROGRAM INVOLVES AN INVENTORY PROBLEM FOR WHICH IT IS -ASSUMED THAT THE FOLLOWING CONDITIONS HOLD: - THERE IS A CONSTANT ORDERING COST PER ORDER - INVENTORY HOLDING COST IS CONSTANT PER UNIT HELD - NO BACKORDERS ARE PERMITTED (STOCKOUTS NOT ALLOWED) - ORDER LEAD TIME IS CONSTANT AND KNOWN - DEMAND FOR THE ITEMS ARE CONSTANT AND UNIFORM THROUGH TIME - THERE ARE NO QUANTITY PRICE BREAKS. - -WE SHALL INPUT LEAD TIME,ANNUAL DEMAND, ORDERING COST, -HOLDING COST PER UNIT PER YEAR AND UNIT PURCHASE PRICE. -OUTPUT INCLUDES OPTIMAL ORDER QUANTITY,REORDER POINT, AND -TOTAL ANNUAL COST OF THE INVENTORY SYSTEM. -PRESS ENTER TO BEGIN? -ENTER ANNUAL DEMAND(IN UNITS) ? 123456 -ENTER REORDER COST(PER ORDER) ? 38.56 -ENTER LEAD TIME(DAYS) ? 37 -ENTER HOLDING COST(PER UNIT/YEAR ? 1.75 -ENTER PURCHASE PRICE PER ITEM ? 12.74 - -OPTIMAL ORDER QUANTITY IS 2332.49 UNITS -THIS MEANS ORDER ABOUT 52.9287 TIMES PER YEAR. - OR ABOUT EVERY 6.89606 DAYS. -THE REORDER LEVEL IS 12514.7 UNITS, I.E. WHEN THIS QUANTITY - IS REACHED REORDER 2332.49 UNITS. -TOTAL INVENTORY COST(HOLDING + REORDERING + COST OF ITEMS) - PER YEAR EQUALS 1.57691E+6 - -PRESS ENTER FOR MORE? -1 diff --git a/bwbtest/T80A/FQEOQPB.BAS b/bwbtest/T80A/FQEOQPB.BAS deleted file mode 100644 index 1e8f720..0000000 --- a/bwbtest/T80A/FQEOQPB.BAS +++ /dev/null @@ -1,48 +0,0 @@ -1 REM FQUOQ -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"INVENTORY THEORY-FIXED QUANTITY EOQ" -15 PRINT TAB(13);"WITH QUANTITY PRICE BREAKS":PRINT -20 PRINT"THIS PROGRAM INVOLVES AN INVENTORY PROBLEM FOR WHICH IT IS -25 PRINT"ASSUMED THAT THE FOLLOWING CONDITIONS HOLD: -30 PRINT" THERE IS A CONSTANT ORDERING COST PER ORDER -35 PRINT" INVENTORY HOLDING COST IS CONSTANT PER UNIT HELD -40 PRINT" NO BACKORDERS ARE PERMITTED (STOCKOUTS NOT ALLOWED) -50 PRINT" DEMAND FOR THE ITEMS ARE CONSTANT AND UNIFORM THROUGH TIME -55 PRINT" THERE ARE QUANTITY PRICE BREAKS. -60 PRINT"THE QUANTITY PRICE BREAKS ARE OF THE FIXED-LOT DISCOUNT TYPE. -65 PRINT"I.E. DISCOUNTS (IN PRICE/UNIT) ARE OFFERED FOR THE PURCHASE -70 PRINT"OF CERTAIN FIXED LOT SIZES. THERE IS ALSO AN ORDINARY PRICE/ -75 PRINT"UNIT IF THAT PARTICULAR LOT SIZE IS NOT OFFERED. -90 INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT"ENTER ANNUAL DEMAND(IN UNITS) ";D -120 INPUT"ENTER REORDER COST(PER ORDER) ";S -140 INPUT"ENTER HOLDING COST(PER UNIT/YEAR ";C -150 INPUT"ENTER NORMAL PURCHASE PRICE/ITEM ";P -160 PRINT:INPUT"HOW MANY DIFFERENT LOT SIZES ARE OFFERED";NL -165 NL = INT(NL): IF NL < 1 OR NL > 10 THEN 160 -170 FOR I=1 TO NL -180 PRINT"FOR LOT SIZE #";I -185 INPUT" LOT SIZE QUANTITY ";QQ(I) -190 INPUT" PRICE/UNIT ";PP(I) -200 PRINT -210 NEXT I -220 QQ(0)= SQR(2*D*S/C):PP(0)=P -230 FOR I=0 TO NL:TC(I)=D*PP(I)+D/QQ(I)*S+QQ(I)/2*C:NEXT -300 F$(1)=" # SIZE PRICE/UNIT TOTAL COST" -310 F$(2)=" ## ######.# ######.## #########.##" -350 CLS -360 PRINT"# REFERS TO THAT LOT SIZE #. LOT SIZE #0 REFERS TO THE -370 PRINT"LOT SIZE WITHOUT CONSIDERING THE QUANTITY PRICE BREAKS" -380 PRINT -390 PRINT F$(1) -400 FOR I=0 TO NL -410 PRINT USING F$(2);I,QQ(I),PP(I),TC(I) -420 NEXT -430 M=1E20:FOR I=0 TO NL -440 IF TC(I)"Y" AND Z2$<>"N" THEN PRINT"INPUT ERROR!":GOTO 135 -150 F$(1)="YEAR COST % OF ORIG. COST" -155 F$(2)="### $$#####.## ###.##" -200 REM PRINT -202 CLS -204 IF Z2$="Y" THEN LPRINT"PRICE ESTIMATION @ ";100*P;"% PRICE INFLATION":LPRINT -205 PRINT F$(1):IF Z2$="Y" THEN LPRINT F$(1):LPRINT" " -210 FOR I=0 TO N -220 PRINT USING F$(2);I,C*(1+P)[I,100*((1+P)[N-1) -230 IF Z2$="Y" THEN LPRINT USING F$(2);I,C*(1+P)[N,100*((1+P)[N-1) -240 IF I<>0 AND I/12=INT(I/12) THEN PRINT:GOSUB 10100:PRINT:PRINT F$(1) -250 NEXT I -260 PRINT:END -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/FUPRINF.INP b/bwbtest/T80A/FUPRINF.INP deleted file mode 100644 index 781c4ac..0000000 --- a/bwbtest/T80A/FUPRINF.INP +++ /dev/null @@ -1,5 +0,0 @@ - -1000 -10 -2 -Y diff --git a/bwbtest/T80A/FUPRINF.run b/bwbtest/T80A/FUPRINF.run deleted file mode 100644 index 1a3d200..0000000 --- a/bwbtest/T80A/FUPRINF.run +++ /dev/null @@ -1,33 +0,0 @@ - FUTURE PRICES WITH INFLATION - -IN THESE DAYS OF INFLATION WE WOULD LIKE TO KNOW HOW -THE PRICE OF AN ITEM IN THE FUTURE IS RELATED TO THE -PRICE OF THAT ITEM TODAY. THERE ARE COMPLEX RELATIONSHIPS -BUT A VERY GOOD ESTIMATE IS THAT THE % RISE IN THE COST OF -THE ITEM WILL EQUAL THE % RISE IN THE COST OF LIVING. - -THE PRESENT PROGRAM TAKES THE PRESENT PRICE OF THE ITEM -THE EXPECTED % INCREASE IN ITS PRICE AND THE NUMBER OF YEARS -IN QUESTION AND PRINTS OUT A TABLE OF THE EXPECTED PRICE -YEAR BY YEAR. - -PRESS ENTER TO BEGIN? - - -ENTER PRESENT COST OF THE ITEM ? 1000 -HOW MANY YEARS INTO THE FUTURE ARE DESIRED? 10 -WHAT IS THE ESTIMATED YEARLY % COST INCR. ? 2 -IS LINEPRINTER OUTPUT DESIRED(Y/N)? Y -YEAR COST % OF ORIG. COST - 0 $1000.00 21.90 - 1 $1020.00 21.90 - 2 $1040.40 21.90 - 3 $1061.21 21.90 - 4 $1082.43 21.90 - 5 $1104.08 21.90 - 6 $1126.16 21.90 - 7 $1148.69 21.90 - 8 $1171.66 21.90 - 9 $1195.09 21.90 - 10 $1218.99 21.90 - diff --git a/bwbtest/T80A/FVAL.BAS b/bwbtest/T80A/FVAL.BAS deleted file mode 100644 index c250a61..0000000 --- a/bwbtest/T80A/FVAL.BAS +++ /dev/null @@ -1,37 +0,0 @@ -5 CLS -10 PRINT " FUTURE VALUE OF AN INVESTMENT" -20 PRINT -30 PRINT "THIS PROGRAM GIVES THE FUTURE VALUE OF AN INVESTMENT KEPT -40 PRINT "FOR N PERIODS WITH INTEREST COMPOUNDED AT A RATE OF -50 PRINT "I % PER PERIOD. THE INPUT NEEDED TO RUN THE PROGRAM IS -60 PRINT "THE AMOUNT OF THE INVESTMENT, THE INTEREST RATE (AS A PER CENT) -70 PRINT "AND THE NUMBER OF PERIODS. IF DATA IS ANNUAL WITH FIXED -75 PRINT"NUMBER OF COMPOUNDINGS THEN PROGRAM WILL COMPUTE THE INTEREST -77 PRINT"RATE PER PERIOD. -80 PRINT -90 INPUT "PRESS ENTER TO BEGIN";Z9 -100 CLS -105 INPUT"IS INTEREST RATE QUOTED ANNUALLY WITH COMPOUNDING(Y/N)";Z9$ -106 IF Z9$<>"Y" AND Z9$<>"N" THEN PRINT "INPUT ERROR!":GOTO 105 -108 IF Z9$="Y" THEN GOSUB 500 -110 PRINT @ 254," " -120 INPUT "AMOUNT OF INVESTMENT ";A -130 INPUT "INTEREST RATE PER PERIOD: ";I -135 I=I/100 -140 INPUT "NUMBER OF PERIODS:";N -150 FV= A*(1+I)[N -160 PRINT -170 PRINT "FUTURE VALUE = ";FV -200 PRINT -220 INPUT"PRESS 1 FOR MORE TRIALS, 0 TO END";Z8 -230 IF Z8=1 GOTO 100 -240 IF Z8=0 THEN END -250 PRINT "INPUT ERROR. TRY AGAIN." -260 FOR L=1 TO 300:NEXT L -270 GOTO 220 -500 REM COMPUTATION FOR ANNUAL DATA -510 PRINT:INPUT"ANNUAL INTEREST RATE IN %";I1 -520 INPUT"NUMBER OF COMPOUNDINGS ANNUALLY";N1 -530 I=I1/N1 -540 PRINT:PRINT"INTEREST RATE PER PERIOD = ";I;"%" -550 FOR J=1 TO 1000:NEXT :CLS:RETURN diff --git a/bwbtest/T80A/FVAL.INP b/bwbtest/T80A/FVAL.INP deleted file mode 100644 index a8036aa..0000000 --- a/bwbtest/T80A/FVAL.INP +++ /dev/null @@ -1,8 +0,0 @@ - -Y -3.75 -12 -10000 -7 -24 -0 diff --git a/bwbtest/T80A/FVAL.run b/bwbtest/T80A/FVAL.run deleted file mode 100644 index 409e4df..0000000 --- a/bwbtest/T80A/FVAL.run +++ /dev/null @@ -1,25 +0,0 @@ - FUTURE VALUE OF AN INVESTMENT - -THIS PROGRAM GIVES THE FUTURE VALUE OF AN INVESTMENT KEPT -FOR N PERIODS WITH INTEREST COMPOUNDED AT A RATE OF -I % PER PERIOD. THE INPUT NEEDED TO RUN THE PROGRAM IS -THE AMOUNT OF THE INVESTMENT, THE INTEREST RATE (AS A PER CENT) -AND THE NUMBER OF PERIODS. IF DATA IS ANNUAL WITH FIXED -NUMBER OF COMPOUNDINGS THEN PROGRAM WILL COMPUTE THE INTEREST -RATE PER PERIOD. - -PRESS ENTER TO BEGIN? -IS INTEREST RATE QUOTED ANNUALLY WITH COMPOUNDING(Y/N)? Y - -ANNUAL INTEREST RATE IN %? 3.75 -NUMBER OF COMPOUNDINGS ANNUALLY? 12 - -INTEREST RATE PER PERIOD = .3125 % - -AMOUNT OF INVESTMENT ? 10000 -INTEREST RATE PER PERIOD: ? 7 -NUMBER OF PERIODS:? 24 - -FUTURE VALUE = 50723.7 - -PRESS 1 FOR MORE TRIALS, 0 TO END? 0 diff --git a/bwbtest/T80A/INSFILE.BAS b/bwbtest/T80A/INSFILE.BAS deleted file mode 100644 index 14be542..0000000 --- a/bwbtest/T80A/INSFILE.BAS +++ /dev/null @@ -1,223 +0,0 @@ -1 CLS:PRINT TAB(10);"INSURANCE POLICY FILE":PRINT -2 PRINT"THIS SIMPLE PROGRAM WILL PERMIT THE INDIVIDUAL OR SMALL -3 PRINT"BUSINESS TO STORE DATA ABOUT THE PORTFOLIO OF ALL INSURANCE -4 PRINT"POLICIES HELD. FOR EACH POLICY THE FOLLOWING DATA MAY BE -5 PRINT"STORED: TYPE INSURANCE,DESCRIPTION,DATE EXPIRES,INSURANCE -6 PRINT"COMPANY,UNDERWRITER, POLICY NUMBER, FACE AMOUNT, AND ANNUAL -7 PRINT"PREMIUM. THE FILE MAY BE STORED ON CASSETTE OR DISKETTE AND -8 PRINT"RECALLED. THE POLICIES MAY BE LISTED EITHER IN FULL OR BY TYPE -9 PRINT"WITH SUMMARIES OF TOTAL POLICY FACE VALUES AND PREMIUMS. -10 PRINT"A PROVISION FOR A MAXIMUM OF 70 POLICIES IS MADE." -15 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -50 CLEAR 1000 -55 DEFDBL B,V -60 DIM A$(70,6),B(70,3) -65 DIM AT$(70,6),BT(70,3) -70 GOSUB 9000 -100 CLS:INPUT"ARE DISK DRIVES ATTACHED(Y/N)";ZD$ -110 IF ZD$<>"Y" AND ZD$<>"N" THEN GOSUB 10000:GOTO 100 -500 CLS:PRINT" MAIN MENU":PRINT -505 PRINT" 0.QUIT -510 PRINT" 1.ADD TO FILE OR BEGIN NEW FILE -520 PRINT" 2.READ FILE IN FROM TAPE -530 PRINT" 3.WRITE FILE OUT ONTO TAPE -540 PRINT" 4.READ FILE IN FROM DISK -550 PRINT" 5.WRITE FILE OUT ONTO DISK -560 PRINT" 6.EDIT FILE -570 PRINT" 7.LIST CONTENTS, COMPLETE OR BY TYPE -580 PRINT" 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -590 Z9=0 -600 INPUT"ENTER YOUR CHOICE";Z9 -605 IF Z9 = 0 THEN END -610 ON Z9 GOSUB 1000,2000,2100,2200,2300,3000,5000,7000 -620 GOTO 500 -1000 REM ADD TO OR START FILE ALREADY IN MEMORY -1010 CLS: IF NI=0 THEN PRINT "NEW FILE":GOSUB 10100 -1015 J=NI+1 -1020 GOSUB 6000:REM INPUT 1 RECORD -1030 CLS:PRINT F$(2):GOSUB 6100:REM PRINT OUT 1 RECORD -1040 GOSUB 10200:IF Z9$="N" GOTO 1020 -1050 IF Z9$="A" THEN RETURN -1060 NI=NI+1:REM NEW RECORD ON FILE -1070 GOSUB 10400:REM MORE? -1080 IF Z9$="Y" THEN GOTO 1000 ELSE RETURN -2000 REM READ IN FILE FROM TAPE -2010 CLS:PRINT"PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2015 ' IF ZD$="Y" THEN CMD"T" -2020 INPUT #-1,NI -2030 FOR J=1 TO NI:INPUT #-1,A$(J,1),A$(J,2),A$(J,3),A$(J,4),A$(J,5),A$(J,6),B(J,1),B(J,2),B(J,3):NEXT -2040 RETURN -2100 REM WRITE OUT FILE ONTO TAPE -2105 CLS -2110 PRINT"PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2115 ' IF ZD$="Y" THEN CMD"T" -2130 WRITE #-1,NI -2140 FOR J=1 TO NI:WRITE #-1,A$(J,1),A$(J,2),A$(J,3),A$(J,4),A$(J,5),A$(J,6),B(J,1),B(J,2),B(J,3):NEXT -2150 RETURN -2200 REM READ IN FILE FROM DISK -2210 CLS:PRINT"PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2220 ON ERROR GOTO 2290 -2225 PRINT:INPUT"ENTER NAME OF FILE TO READ IN";FI$ -2230 OPEN"I",1,FI$ -2240 INPUT #1,NI -2250 FOR J=1 TO NI:INPUT #1,A$(J,1),A$(J,2),A$(J,3),A$(J,4),A$(J,5),A$(J,6),B(J,1),B(J,2),B(J,3):FOR JJ=1 TO 6:Z8$=A$(J,JJ):GOSUB 11000:A$(J,JJ)=Z8$:NEXT JJ:NEXT -2260 CLOSE #1 -2270 RETURN -2290 PRINT "FILE DOES NOT EXIST":GOSUB 10100:RETURN -2300 REM WRITE FILE OUT TO DISK -2305 CLS -2310 PRINT:PRINT"PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2315 PRINT:PRINT"PRESENT DISK FILE IS ";FI$;" ";:INPUT"NEW FILE ";FI$ -2320 OPEN"O",1,FI$ -2330 WRITE # 1,NI -2340 FOR J=1 TO NI -2350 WRITE # 1,A$(J,1),A$(J,2),A$(J,3),A$(J,4),A$(J,5),A$(J,6),B(J,1),B(J,2),B(J,3) -2360 NEXT J -2370 CLOSE #1 -2380 RETURN -3000 REM EDIT FILE -3010 CLS:PRINT" ";F$(2) -3020 FOR J=1 TO NI -3030 PRINT USING "## ";J; -3040 GOSUB 6100 -3050 IF J/12=INT(J/12) THEN GOSUB 4000 -3060 NEXT J -3062 J=J-1 -3065 IF J/12=INT(J/12) GOTO 3080 -3070 GOSUB 4000 -3080 RETURN -4000 REM EDIT SUBROUTINE -4010 K=J -4020 PRINT -4025 J=0 -4028 PRINT"CHANGE TYPE CODE TO ZZZZ FOR DELETING" -4030 INPUT"ENTER # OF ITEM YOU WISH TO EDIT,0 IF NONE";J -4035 IF J=0 THEN J=K:RETURN -4040 CLS:PRINT" ";F$(2):PRINT -4050 PRINT" ";:GOSUB 6100 -4060 PRINT:GOSUB 6000 -4070 CLS:PRINT" ";F$(2) -4080 FOR J=INT(K/12)*12+1 TO K:PRINT USING "## ";J;:GOSUB 6100:NEXT -4090 GOTO 4020 -5000 REM LIST FILE WITH ANALYSIS -5005 INPUT"IS A LINE PRINTER TO BE USED(Y/N)";Z2$:IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 5005 -5010 CLS:PRINT" LIST MENU":PRINT -5020 PRINT"1. COMPLETE LIST AS ON FILE -5030 PRINT"2. LIST BY TYPE -5050 PRINT"3. END LIST PROGRAM -5060 PRINT:INPUT"ENTER APPROPRIATE CHOICE";Z9 -5065 IF Z9=3 THEN RETURN -5070 ON Z9 GOSUB 5200,5300 -5080 GOTO 5010 -5100 RETURN -5200 REM COMPLETE LIST -5205 CLS:IF Z2$="Y" THEN PRINT"PUT PAPER INTO PRINTER":GOSUB 10100 -5210 PRINT F$(2):IF Z2$="Y" THEN LPRINT TAB(20);"COMPLETE LIST":LPRINT F$(5) -5215 V(1)=0:V(2)=0:V(3)=0:V(4)=0 -5220 FOR J = 1 TO NI -5230 GOSUB 6100:GOSUB 6300:REM 1 RECORD PRINTED -5233 V(1)=V(1)+B(J,1):REM TOTAL FACE AMOUNT -5236 V(2)=V(2)+B(J,2):REM TOTAL PREMIUM AMOUNT -5240 IF J/12 = INT(J/12) THEN PRINT:GOSUB 10100:CLS:PRINT F$(2) -5250 NEXT J -5260 PRINT:GOSUB 10100 -5265 PRINT USING "TOTAL FACE VALUE AMOUNT : $$#####.##";V(1) -5266 PRINT USING "TOTAL PREMIUM AMOUNT : $$#####.##";V(2) -5268 IF Z2$<>"Y" THEN GOTO 5280 -5271 LPRINT " ":LPRINT " " -5273 LPRINT USING "TOTAL FACE VALUE AMOUNT : $$#####.##";V(1) -5276 LPRINT USING "TOTAL PREMIUM AMOUNT : $$#####.##";V(2) -5280 PRINT:GOSUB 10100:RETURN -5300 REM LIST TYPE -5305 CLS:INPUT"ENTER TYPE DESIRED";RM$ -5310 V(1)=0:V(2)=0:V(3)=0:V(4)=0 -5315 CLS:PRINT @ 398,"******* COMPUTING *******" -5320 FOR J=1 TO NI -5325 IF RM$<>A$(J,1) THEN GOTO 5390 -5330 V(1)=V(1)+B(J,1):REM TOTAL FACE AMOUNT -5340 V(2)=V(2)+B(J,2):REM TOTAL PREMIUM AMOUNT -5390 NEXT J -5400 CLS:PRINT F$(2):IF Z2$="Y" THEN LPRINT TAB(20); "LIST OF TYPE ";RM$:LPRINT F$(5) -5405 JJ=0 -5410 FOR J=1 TO NI -5415 IF RM$<>A$(J,1) THEN GOTO 5450 -5417 JJ=JJ+1 -5420 GOSUB 6100 -5430 GOSUB 6300 -5440 IF JJ/12=INT(JJ/12) THEN GOSUB 10100:CLS:PRINT F$(2):PRINT F$(6) -5450 NEXT J -5460 PRINT:GOSUB 10100 -5470 PRINT -5480 PRINT USING "TOTAL FACE VALUE AMOUNT : $$#####.##";V(1) -5485 PRINT USING "TOTAL PREMIUM AMOUNT : $$#####.##";V(2) -5500 IF Z2$<>"Y" THEN GOTO 5550 -5505 LPRINT " ":LPRINT " " -5510 LPRINT USING "TOTAL FACE VALUE AMOUNT : $$#####.##";V(1) -5515 LPRINT USING "TOTAL PREMIUM AMOUNT : $$#####.##";V(2) -5530 LPRINT:LPRINT -5550 PRINT:GOSUB 10100:RETURN -6000 REM SBR FOR INPUTTING DATA ON 1 PURCHASE -6005 F$(1)="% %" -6010 PRINT USING F$(1);A$(J,1),:INPUT"TYPE INSUR. ";A$(J,1) -6015 PRINT USING F$(1);A$(J,2),:INPUT"POL. DESCRIPTION ";A$(J,2) -6020 PRINT USING F$(1);A$(J,3),:INPUT"DATE EXPIRES ";A$(J,3) -6023 PRINT USING F$(1);A$(J,4),:INPUT"COMPANY WRITING ";A$(J,4) -6025 PRINT USING F$(1);A$(J,5),:INPUT"UNDERWRITER ";A$(J,5) -6030 PRINT USING F$(1);A$(J,6),:INPUT"POLICY NUMBER ";A$(J,6) -6035 F$(1)=" #########.## " -6040 PRINT USING F$(1);B(J,1),:INPUT"FACE AMOUNT ";B(J,1) -6050 PRINT USING F$(1);B(J,2),:INPUT"ANNUAL PREMIUM ";B(J,2) -6099 RETURN -6100 REM PRINT 1 LINE OF PORTFOLIO -6110 PRINT USING F$(4);A$(J,1),A$(J,2),A$(J,3),A$(J,4),A$(J,5),A$(J,6),B(J,1),B(J,2) -6120 RETURN -6300 REM PRINT 1 LINE OF PORTFOLIO ON PRINTER -6310 IF Z2$<>"Y" THEN RETURN -6320 LPRINT USING F$(7);A$(J,1),A$(J,2),A$(J,3),A$(J,4),A$(J,5),A$(J,6),B(J,1),B(J,2) -6330 RETURN -7000 REM DELETE SBR COMPUTATION -7005 K=1:REM K=NO. OF RECORDS NOT DELETED -7010 FOR J=1 TO NI -7020 IF A$(J,1)="ZZZZ" GOTO 7090 -7030 REM DO NOT DELETE RECORD -7040 FOR J6=1 TO 6:AT$(K,J6)=A$(J,J6):NEXT -7050 FOR J6=1 TO 3:BT(K,J6)=B(J,J6):NEXT -7060 K=K+1:GOTO 7090 -7090 NEXT J -7100 K=K-1:NI=K -7110 FOR J=1 TO NI -7120 FOR J6=1 TO 6:A$(J,J6)=AT$(J,J6):NEXT -7130 FOR J6=1 TO 3:B(J,J6)=BT(J,J6):NEXT -7140 NEXT J -7150 RETURN -9000 REM FORMATTING VARIABLES -9020 F$(2)="TYPE DESCRIPT EXPIRES CO. UNDWRT POL # AMT. PREM" -9030 F$(4)="% % % % % % % % % % % % ####### #####" -9040 F$(5)="TYPE DESCRIPTION EXPIRES COMP. UNDWRT POLICY # FACE AMT. PREMIUM" -9060 F$(7)="% % % % % % % % % % % % ####### ########" -9099 RETURN -10000 REM INPUT ERROR SBR -10010 PRINT"INPUT ERROR! TRY AGAIN!":FOR Z9=1 TO 300:NEXT Z9 -10020 RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9:RETURN -10200 REM Y,N,A SBR -10205 Z9$=" " -10210 INPUT"ENTER Y IF OK,N IF ERROR,A TO ABORT";Z9$ -10220 IF Z9$<>"Y" AND Z9$<>"N" AND Z9$<>"A" THEN GOSUB 10000:GOTO 10205 -10230 RETURN -10300 REM Y,N SBR -10305 Z9$=" " -10310 INPUT"ENTER Y IF OK, N IF ERROR";Z9$ -10320 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10305 -10330 RETURN -10400 REM MORE ENTRY? SBR -10405 Z9$=" " -10410 INPUT"DO YOU DESIRE MORE ENTRIES(Y/N)";Z9$ -10420 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10405 -10430 RETURN -10500 REM ONLY Y/N SBR -10510 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000 -10520 RETURN -11000 REM ELIMINATES TRAILING BLANKS OF VARIABLE Z8$ -11010 IF RIGHT$(Z8$,1)=" " THEN Z8$=LEFT$(Z8$,LEN(Z8$)-1):GOTO 11010 -11020 RETURN diff --git a/bwbtest/T80A/INSFILE.DAT b/bwbtest/T80A/INSFILE.DAT deleted file mode 100644 index c081da3..0000000 --- a/bwbtest/T80A/INSFILE.DAT +++ /dev/null @@ -1,3 +0,0 @@ -2 -"HOME","HOME OWNERS","01/23/45","GEICO","LIZARD","AB/23-67*D",5000,12.5,0 -"RENTERS","WATER DAMAGE","98/76/54","FLO","LADY","??%^&*",500,2.5,0 diff --git a/bwbtest/T80A/INSFILE.INP b/bwbtest/T80A/INSFILE.INP deleted file mode 100644 index 0c4ace7..0000000 --- a/bwbtest/T80A/INSFILE.INP +++ /dev/null @@ -1,38 +0,0 @@ - -Y -1 - -HOME -HOME OWNERS -01/23/45 -GEICO -LIZARD -AB/23-67*D -5000 -12.50 -Y -Y -RENTERS -WATER DAMAGE -98/76/54 -FLO -LADY -??%^&* -500 -2.50 -Y -N -5 - -INSFILE.DAT -4 - -INSFILE.DAT -7 -Y -1 - - - -3 -0 diff --git a/bwbtest/T80A/INSFILE.run b/bwbtest/T80A/INSFILE.run deleted file mode 100644 index aab180f..0000000 --- a/bwbtest/T80A/INSFILE.run +++ /dev/null @@ -1,135 +0,0 @@ - INSURANCE POLICY FILE - -THIS SIMPLE PROGRAM WILL PERMIT THE INDIVIDUAL OR SMALL -BUSINESS TO STORE DATA ABOUT THE PORTFOLIO OF ALL INSURANCE -POLICIES HELD. FOR EACH POLICY THE FOLLOWING DATA MAY BE -STORED: TYPE INSURANCE,DESCRIPTION,DATE EXPIRES,INSURANCE -COMPANY,UNDERWRITER, POLICY NUMBER, FACE AMOUNT, AND ANNUAL -PREMIUM. THE FILE MAY BE STORED ON CASSETTE OR DISKETTE AND -RECALLED. THE POLICIES MAY BE LISTED EITHER IN FULL OR BY TYPE -WITH SUMMARIES OF TOTAL POLICY FACE VALUES AND PREMIUMS. -A PROVISION FOR A MAXIMUM OF 70 POLICIES IS MADE. - -PRESS ENTER TO BEGIN? -ARE DISK DRIVES ATTACHED(Y/N)? Y - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST CONTENTS, COMPLETE OR BY TYPE - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 1 -NEW FILE -PRESS ENTER TO CONTINUE? - TYPE INSUR. ? HOME - POL. DESCRIPTION ? HOME OWNERS - DATE EXPIRES ? 01/23/45 - COMPANY WRITING ? GEICO - UNDERWRITER ? LIZARD - POLICY NUMBER ? AB/23-67*D - 0.00 FACE AMOUNT ? 5000 - 0.00 ANNUAL PREMIUM ? 12.50 -TYPE DESCRIPT EXPIRES CO. UNDWRT POL # AMT. PREM -HOME HOME OWNE 01/23/45 GEI LIZAR AB/23-67*D 5000 12 -ENTER Y IF OK,N IF ERROR,A TO ABORT? Y -DO YOU DESIRE MORE ENTRIES(Y/N)? Y - TYPE INSUR. ? RENTERS - POL. DESCRIPTION ? WATER DAMAGE - DATE EXPIRES ? 98/76/54 - COMPANY WRITING ? FLO - UNDERWRITER ? LADY - POLICY NUMBER ? ??%^&* - 0.00 FACE AMOUNT ? 500 - 0.00 ANNUAL PREMIUM ? 2.50 -TYPE DESCRIPT EXPIRES CO. UNDWRT POL # AMT. PREM -RENT WATER DAM 98/76/54 FLO LADY ??%^&* 500 2 -ENTER Y IF OK,N IF ERROR,A TO ABORT? Y -DO YOU DESIRE MORE ENTRIES(Y/N)? N - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST CONTENTS, COMPLETE OR BY TYPE - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 5 - -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? - -PRESENT DISK FILE IS NEW FILE ? INSFILE.DAT - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST CONTENTS, COMPLETE OR BY TYPE - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 4 -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? - -ENTER NAME OF FILE TO READ IN? INSFILE.DAT - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST CONTENTS, COMPLETE OR BY TYPE - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 7 -IS A LINE PRINTER TO BE USED(Y/N)? Y - LIST MENU - -1. COMPLETE LIST AS ON FILE -2. LIST BY TYPE -3. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 1 -PUT PAPER INTO PRINTER -PRESS ENTER TO CONTINUE? -TYPE DESCRIPT EXPIRES CO. UNDWRT POL # AMT. PREM -HOME HOME OWNE 01/23/45 GEI LIZAR AB/23-67*D 5000 12 -RENT WATER DAM 98/76/54 FLO LADY ??%^&* 500 2 - -PRESS ENTER TO CONTINUE? -TOTAL FACE VALUE AMOUNT : $5500.00 -TOTAL PREMIUM AMOUNT : $15.00 - -PRESS ENTER TO CONTINUE? - LIST MENU - -1. COMPLETE LIST AS ON FILE -2. LIST BY TYPE -3. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 3 - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST CONTENTS, COMPLETE OR BY TYPE - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 0 diff --git a/bwbtest/T80A/INVDATA b/bwbtest/T80A/INVDATA deleted file mode 100644 index f985cb3..0000000 --- a/bwbtest/T80A/INVDATA +++ /dev/null @@ -1,2 +0,0 @@ -1 -"A56-C7","MOUSE PAD","JM-5*D",125,2.5,9.99,3.33,100,1000,750,931,593 diff --git a/bwbtest/T80A/INVENT2.BAS b/bwbtest/T80A/INVENT2.BAS deleted file mode 100644 index 32cb8f1..0000000 --- a/bwbtest/T80A/INVENT2.BAS +++ /dev/null @@ -1,326 +0,0 @@ -1 REM PROGRAM INV1 -5 CLS -10 PRINT" INVENTORY CONTROL FOR TRS-80 -20 PRINT" BY DR. PETER SHENKIN -30 PRINT" ******************************************************* -40 PRINT"THIS PROGRAM IS A RELATIVELY COMPLETE INVENTORY CONTROL PROGRAM -45 PRINT"THE ONLY REAL LIMITATION OF WHICH IS THAT IT IS IN MEMORY AND -50 PRINT"THUS ONLY HANDLES 50 DIFFERENT INVENTORY ITEMS. ACTUALLY -55 PRINT"THIS LIMITATION MAY BE RELAXED BY CHANGING THE APPROPRIATE -60 PRINT"DIMENSION STATEMENTS IF ENOUGH MEMORY IS AVAILABLE. -65 PRINT" THE PROGRAM SUPPORTS LINE PRINTER OUTPUT AND ALLOWS THE -70 PRINT"THE INVENTORY FILE TO BE STORED ON EITHER CASSETTE OR DISKETTE." -75 PRINT"REPORTS INCLUDE A LIST OF ALL DATA AND AN ACTIVITY REPORT -80 PRINT"WHICH OUTLINE PAST ACTIVITY FOR EACH ITEM. AN AVERAGE COST IS -85 PRINT"KEPT UPDATED FOR EACH ITEM." -120 PRINT" *****************************************************+ -130 PRINT -140 GOSUB 10100 -145 CLS -150 INPUT"ARE DISK DRIVES ATTACHED(Y/N)";ZD$ -155 IF ZD$<>"Y" AND ZD$<>"N" THEN GOSUB 10000:GOTO 150 -190 CLEAR 2500 -200 DIM N$(50),D$(50),V$(50),Q(50),U(50),P(50),AC(50) -210 DIM RL(50),RA(50),S(3,50) -230 NI=0 -240 GOSUB 3200 -400 CLS -410 PRINT " INVENTORY CONTROL" -420 PRINT " ENTER NUMBER OF DESIRED OPTION." -425 PRINT -430 PRINT "1.ADD ITEM TYPES TO INVENTORY FILE(OR START FILE)" -440 PRINT "2.INVENTORY LIST(ENTIRE OR BY CLASS OR BY VENDOR)" -450 PRINT "3.PROCESSING CHANGES OF INVENTORY AMOUNTS" -460 PRINT "4.READ INVENTORY FILE FROM CASSETTE" -465 PRINT "5.READ INVENTORY FILE IN FROM DISKETTE -470 PRINT "6.WRITE INVENTORY FILE ONTO CASSETTE" -475 PRINT "7.WRITE INVENTORY FILE ONTO DISKETTE" -480 PRINT "8.UPDATE TO BEGIN NEW INVENTORY PERIOD" -483 PRINT "9.ACTIVITY REPORT" -486 PRINT "10.EDITING INVENTORY FILE" -490 PRINT "11.END THIS PROGRAM" -500 PRINT -510 INPUT "INPUT OPTION NUMBER & PRESS ENTER";OP -520 ON OP GOSUB 1000,1300,1600,1900,2000,2200,2300,2500,3000,3500,2800 -540 GOTO 400 -1000 REM SUBROUTINE FOR ADDING ITEM TYPES TO INVENTORY FILE -1010 CLS -1015 PRINT "ADDITIONAL INVENTORY ITEM SUBROUTINE":PRINT -1020 PRINT "HAS ANY EXISTING FILE BEEN READ FROM TAPE OR DISKETTE?(Y/N); -1030 INPUT Z9$ -1040 IF Z9$="N" GOTO 1290 -1050 IF Z9$="Y" GOTO 1075 -1060 GOSUB 5200 -1070 GOTO 1010 -1075 I=NI+1 -1080 CLS -1085 PRINT "INPUT DATA FOR NEXT ITEM.":PRINT -1090 GOSUB 6700 -1230 REM EXHIBIT DISPLAY FOR THIS ITEM -1240 GOSUB 6000 -1250 GOSUB 6200 -1260 IF Z8=0 GOTO 1080 -1270 GOSUB 6500 -1280 NI=NI+1:IF Z9$= "Y" GOTO 1075 -1290 RETURN -1300 REM SUBROUTINE GIVING INVENTORY LIST -1310 CLS:PRINT "CHOOSE DESIRED OPTION AND PRESS ENTER" -1320 PRINT "1. COMPLETE INVENTORY LIST" -1330 PRINT "2. INVENTORY LIST BY VENDOR" -1340 PRINT "3. LIST OF ITEMS BELOW REORDER POINT" -1350 INPUT "OPTION # ";N8 -1355 GOSUB 10800:IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 1355 -1360 ON N8 GOSUB 1380,1410,1440 -1370 RETURN -1380 FOR I=1 TO NI -1390 GOSUB 6000 -1395 IF Z2$="Y" THEN GOSUB 6100 -1400 FOR J = 1 TO 2000:NEXT J -1403 NEXT I -1405 RETURN -1410 INPUT "DESIRED VENDOR NUMBER ";VN$ -1420 FOR I=1 TO NI -1430 IF V$(I)<>VN$ THEN GOTO 1435 -1432 GOSUB 6000 -1433 IF Z2$="Y" THEN GOSUB 6100 -1434 FOR J= 1 TO 1000:NEXT J -1435 NEXT I -1439 RETURN -1440 FOR I= 1 TO NI -1450 IF Q(I) >= RL(I) THEN GOTO 1470 -1460 GOSUB 6000 -1462 IF Z2$="Y" THEN GOSUB 6100 -1465 FOR J= 1 TO 1000:NEXT J -1470 NEXT I -1480 RETURN -1600 REM SUBROUTINE FOR CHANGING INVENTORY AMOUNTS -1610 REM AVERAGE COST AUTOMATICALLY CHANGED WITH ADDITIONS -1615 REM TO INVENTORY -1620 CLS -1630 PRINT " CHANGING INVENTORY AMOUNTS" -1640 PRINT -1650 PRINT "FOR EACH ITEM OF INTEREST IT WILL BE NECESSARY TO -1660 PRINT "ENTER THE ITEM NUMBER AND PRESS ENTER. INFORMATION -1670 PRINT "ABOUT THAT ITEM WILL THEN BE DISPLAYED. THEN THE -1680 PRINT "USER MUST INDICATE WHETHER THE ITEM SUPPLY IS BEING" -1690 PRINT "DIMINISHED OR INCREASED,AND BY HOW MUCH." -1695 FOR I=1 TO 1000:NEXT I -1700 CLS -1705 I=0 -1710 PRINT @ 320,"ITEM NUMBER :";:INPUT IT$ -1720 I = I+1 -1730 IF IT$=N$(I) GOTO 1800 -1740 IF I=NI GOTO 1770 -1750 GOTO 1720 -1770 PRINT:PRINT "ITEM NOT ON INVENTORY LIST." -1775 FOR J=1 TO 200:NEXT J -1780 GOTO 1870 -1800 GOSUB 6000 : REM LIST ITEM INFORMATION -1810 PRINT "INPUT A FOR ADDITIONS,D FOR DELETIONS,R FOR END" -1812 INPUT R$ -1814 IF R$ = "R" THEN RETURN -1815 IF R$="A" OR R$="D" GOTO 1820 -1817 GOSUB 5200 -1819 GOTO 1800 -1820 IF R$="A" GOTO 1840 -1822 CLS:PRINT"HOW MANY ITEMS DO YOU WISH TO DELETE";:INPUT Q1 -1824 IF Q1<= Q(I) GOTO 1828 -1825 PRINT:PRINT "ONLY ";Q(I);" ITEMS IN INVENTORY.TRY AGAIN" -1826 FOR I= 1 TO 300:NEXT I -1827 GOTO 1822 -1828 PRINT "ARE YOU SURE YOU WANT TO DELETE ";Q1;" ITEMS(Y/N)"; -1829 INPUT Z9$ -1831 IF Z9$="Y" OR Z9$="N" GOTO 1834 -1832 GOSUB 5200 -1833 GOTO 1828 -1834 IF Z9$="N" GOTO 1800 -1835 Q(I)=Q(I) - Q1:S(0,I)=S(0,I)+Q1 -1836 GOTO 1870 -1840 INPUT "INPUT NO. OF UNITS TO ADD";Q1 -1845 INPUT "UNIT COST";UI -1847 Z5=0 -1850 INPUT "PRESS 1 AND ENTER IF IN ERROR.JUST ENTER IF OK";Z5 -1855 IF Z5=1 GOTO 1800 -1858 AC=(AC(I)*Q(I)+Q1*UI)/(Q(I)+Q1) -1859 AC(I)=INT(100*AC)/100 -1860 Q(I)=Q(I) + Q1 -1862 U(I)=UI -1865 GOTO 1870 -1870 GOSUB 6500 -1875 IF Z9$= "Y" GOTO 1700 -1880 RETURN -1900 REM SUBROUTINE FOR READING INV. FILE FROM CASSETTE -1910 CLS:PRINT "PREPARE TAPE RECORDER AND INV. TAPE." -1920 INPUT "PRESS ENTER WHEN READY";Z7 -1925 ' IF ZD$="Y" THEN CMD"T" -1930 INPUT #-1,NI -1940 FOR I=1 TO NI -1950 GOSUB 5000 -1960 NEXT I -1970 RETURN -2000 REM SUBROUTINE FOR READING INV FILE IN FROM DISKETTE -2010 CLS:PRINT"PLACE INVENTORY DATA DISKETTE IN DRIVE." -2020 INPUT"PRESS ENTER WHEN READY";Z7 -2025 OPEN "I",1,"INVDATA" -2030 INPUT #1,NI -2035 PRINT:PRINT NI;" ITEMS TO BE READ" -2040 FOR I=1 TO NI -2050 GOSUB 5050 -2060 NEXT I -2070 CLOSE #1:RETURN -2200 REM SUBROUTINE FOR WRITING INV FILE ONTO CASSETTE -2210 CLS:PRINT "PREPARE TAPE RECORDER AND INV. TAPE." -2220 INPUT "PRESS ENTER WHEN READY";Z7 -2225 ' IF ZD$="Y" THEN CMD"T" -2230 WRITE #-1,NI -2240 FOR I= 1 TO NI -2250 GOSUB 5100 -2260 NEXT I -2270 RETURN -2300 REM SUBROUTINE FOR WRITING INV FILE ONTO DISKETTE -2310 CLS:PRINT"PREPARE INVENTORY MASTER DISKETTE -2320 INPUT"PRESS ENTER WHEN READY";Z7 -2325 PRINT:PRINT"THERE ARE ";NI;" ITEMS" -2330 OPEN "O",1,"INVDATA" -2335 WRITE # 1,NI -2340 FOR I=1 TO NI -2350 GOSUB 5150 -2360 NEXT I -2370 CLOSE #1:RETURN -2500 REM UPDATE TO BEGIN NEW INVENTORY PERIOD -2510 FOR I=1 TO NI -2520 S(2,I) = S(1,I) : S(1,I)=S(0,I) : S(0,I) = 0 -2530 NEXT I -2535 CLS:PRINT "UPDATE COMPLETE":FOR I=1 TO 200:NEXT I -2540 RETURN -2800 REM END PROGRAM SUBROUTINE -2805 CLS -2810 INPUT"ARE YOU SURE YOU WISH TO END PROGRAM(Y/N)";Z7$ -2820 IF Z7$="N" THEN RETURN -2830 IF Z7$="Y" THEN END -2840 GOSUB 5200 -2850 GOTO 2805 -3000 REM SUBROUTINE FOR ACTIVITY REPORT -3005 CLS:GOSUB 10800:IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 3005 -3010 CLS:GOSUB 3300 -3015 IF Z2$="Y" THEN LPRINT H$:LPRINT" " -3020 FOR I= 1 TO NI -3030 GOSUB 3250 -3040 IF I/10 = INT(I/10) GOTO 3070 -3050 NEXT I -3055 PRINT -3056 INPUT "END OF REPORT. PRESS ENTER TO RETURN TO MENU";Z4 -3060 RETURN -3070 PRINT:INPUT "PRESS ENTER FOR MORE OF REPORT";Z4 -3080 CLS -3090 GOSUB 3300 -3100 GOTO 3050 -3200 REM SUBROUTINE WITH PRINT USING FORMAT VARIABLES -3210 H$="ITEM NO. DESCRIPTION ON HAND THIS PER. LAST PER." -3220 Z$="% % % % ####### ####### ####### " -3225 RETURN -3250 REM SUBROUTINE FOR PRINTING ACTIVITY INFORMATION -3260 PRINT USING Z$;N$(I),D$(I),Q(I),S(0,I),S(1,I) -3265 IF Z2$="Y" THEN LPRINT USING Z$;N$(I),D$(I),Q(I),S(0,I),S(1,I) -3270 RETURN -3300 REM SUBROUTINE FOR PRINTING HEADING -3310 PRINT H$ -3320 RETURN -3500 REM EDITING SUBROUTINE -3510 CLS -3520 PRINT " EDITING ITEM ENTRIES" -3530 PRINT -3540 PRINT "FOR EACH ITEM MAKE THE APPROPRIATE CHANGES AND" -3550 PRINT "AND PRESS ENTER AFTER EACH CHANGE. JUST PRESS -3560 PRINT "ENTER WHEN ITEM IS NOT CHANGED." -3570 FOR I= 1 TO 1000:NEXT I -3580 CLS -3590 I=0 -3600 PRINT @ 320,"ITEM NUMBER (99999 FOR RETURN)";:INPUT IT$ -3610 IF IT$="99999" THEN RETURN -3620 I=I+1 -3630 IF IT$=N$(I) GOTO 3700 -3640 IF I = NI GOTO 3670 -3650 GOTO 3620 -3670 PRINT:PRINT "ITEM NOT ON INVENTORY LIST." -3675 FOR J=1 TO 200:NEXT J -3680 GOTO 3755 -3700 GOSUB 6000 : REM LIST ITEM INFORMATION -3710 PRINT -3720 GOSUB 6700 -3730 CLS -3740 GOSUB 6000 -3750 PRINT:PRINT -3755 GOSUB 6500 : REM QUERY SUBROUTINE -3760 IF Z9$="Y" GOTO 3590 -3780 RETURN -5000 REM SUBROUTINE FoR READING RECORD FROM CASSETTE -5010 INPUT #-1,N$(I),D$(I),V$(I),Q(I),U(I),P(I),AC(I),RL(I),RA(I),S(0,I),S(1,I),S(2,I) -5020 RETURN -5050 REM SUBROUTINE FOR READING DATA FROM DISKETTE -5060 INPUT # 1,N$(I),D$(I),V$(I),Q(I),U(I),P(I),AC(I),RL(I),RA(I),S(0,I),S(1,I),S(2,I) -5070 RETURN -5100 REM SUBROUTINE FOR COPYING RECORD ONTO CASSETTE -5110 WRITE #-1,N$(I),D$(I),V$(I),Q(I),U(I),P(I),AC(I),RL(I),RA(I),S(0,I),S(1,I),S(2,I) -5120 RETURN -5150 REM SUBROUTINE FOR COPYING RECORD ONTO DISKETTE -5160 WRITE # 1,N$(I),D$(I),V$(I),Q(I),U(I),P(I),AC(I),RL(I),RA(I),S(0,I),S(1,I),S(2,I) -5170 RETURN -5200 REM SUBROUTINE FOR INPUT ERROR -5210 PRINT:PRINT "INPUT ERROR. ENTER AGAIN." -5220 FOR K=1 TO 1000:NEXT K -5230 PRINT:RETURN -6000 REM SUBROUTINE DISPLAYING DATA FOR 1 ITEM -6010 CLS -6020 PRINT "ITEM NO. : ";N$(I);" DESCRIP. :";D$(I) -6030 PRINT "VENDOR NO. : ";V$(I) -6040 PRINT "QUANT. ON HAND: ";Q(I);" LAST UNIT COST:";U(I) -6050 PRINT "SELLING PR. :";P(I);" AVERAGE COST : ";AC(I) -6060 PRINT "REORDER PT.: ";RL(I);" MAX INV.: ";RA(I) -6070 PRINT "ORDERS THIS INV. PERIOD : ";S(0,I) -6080 PRINT "ORdERS LAST INV. PER:";S(1,I);" PREV. PER:";S(2,I) -6085 PRINT -6090 RETURN -6100 REM SUBROUTINE PRINTING DATA FOR 1 ITEM -6120 LPRINT "ITEM NO. : ";N$(I);" DESCRIP. :";D$(I) -6130 LPRINT "VENDOR NO. : ";V$(I) -6140 LPRINT "QUANT. ON HAND: ";Q(I);" LAST UNIT COST:";U(I) -6150 LPRINT "SELLING PR. :";P(I);" AVERAGE COST : ";AC(I) -6160 LPRINT "REORDER PT.: ";RL(I);" MAX INV.: ";RA(I) -6170 LPRINT "ORDERS THIS INV. PERIOD : ";S(0,I) -6180 LPRINT "ORDERS LAST INV. PER:";S(1,I);" PREV. PER:";S(2,I) -6185 LPRINT " ":LPRINT " ":LPRINT " " -6190 RETURN -6200 REM OK SUBROUTINE -6210 PRINT -6220 PRINT "IF OK PRESS 1,OTHERWISE PRESS 0";:INPUT Z8 -6230 IF Z8=0 OR Z8=1 GOTO 6270 -6240 GOSUB 5200 -6250 GOSUB 6000 -6260 GOTO 6210 -6270 REM -6290 RETURN -6500 REM QuERY SUBROUTINE -6510 PRINT "DO YOU DESIRE MORE ENTRIES ?(Y/N)":INPUT Z9$ -6520 IF Z9$<> "Y" AND Z9$<> "N" GOTO 6530 -6525 RETURN -6530 GOSUB 5200 -6540 CLS:GOTO 6510 -6700 REM DATA ITEM INPUT SUBROUTINE -6710 INPUT "ITEM NUMBER ";N$(I) -6720 INPUT "DESCRIPTION( < 20 CHAR) ";D$(I) -6730 INPUT "VENDOR NUMBER ";V$(I) -6740 INPUT "QUANTITY ON HAND ";Q(I) -6750 INPUT "LAST ORDER UNIT COST ";U(I) -6760 INPUT "SELLING PRICE ";P(I) -6770 INPUT "AVERAGE UNIT COST ";AC(I) -6780 INPUT "REORDER POINT ";RL(I) -6790 INPUT "MAXIMUM INVENTORY ";RA(I) -6800 INPUT "# SOLD THIS INV. PERIOD ";S(0,I) -6810 INPUT "# SOLD LAST INV. PERIOD ";S(1,I) -6820 INPUT "# SOLD 2 INV. PER. AGO ";S(2,I) -6830 RETURN -10000 PRINT"INPUT ERROR! TRY AGAIN:FOR JZ=1 TO 500:NEXT:RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN -10800 Z2$="":INPUT"IS PRINTED OUTPUT DESIRED(Y/N)";Z2$:RETURN -10900 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:RETURN diff --git a/bwbtest/T80A/INVENT2.INP b/bwbtest/T80A/INVENT2.INP deleted file mode 100644 index ac41c5f..0000000 --- a/bwbtest/T80A/INVENT2.INP +++ /dev/null @@ -1,31 +0,0 @@ - -Y -1 -Y -A56-C7 -MOUSE PAD -JM-5*D -125 -2.50 -9.99 -3.33 -100 -1000 -750 -931 -593 -1 -N -7 - -2 -1 -Y -5 - -2 -2 -Y -JM-5*D -11 -Y diff --git a/bwbtest/T80A/INVENT2.run b/bwbtest/T80A/INVENT2.run deleted file mode 100644 index dabfff5..0000000 --- a/bwbtest/T80A/INVENT2.run +++ /dev/null @@ -1,181 +0,0 @@ - INVENTORY CONTROL FOR TRS-80 - BY DR. PETER SHENKIN - ******************************************************* -THIS PROGRAM IS A RELATIVELY COMPLETE INVENTORY CONTROL PROGRAM -THE ONLY REAL LIMITATION OF WHICH IS THAT IT IS IN MEMORY AND -THUS ONLY HANDLES 50 DIFFERENT INVENTORY ITEMS. ACTUALLY -THIS LIMITATION MAY BE RELAXED BY CHANGING THE APPROPRIATE -DIMENSION STATEMENTS IF ENOUGH MEMORY IS AVAILABLE. - THE PROGRAM SUPPORTS LINE PRINTER OUTPUT AND ALLOWS THE -THE INVENTORY FILE TO BE STORED ON EITHER CASSETTE OR DISKETTE. -REPORTS INCLUDE A LIST OF ALL DATA AND AN ACTIVITY REPORT -WHICH OUTLINE PAST ACTIVITY FOR EACH ITEM. AN AVERAGE COST IS -KEPT UPDATED FOR EACH ITEM. - *****************************************************+ - -PRESS ENTER TO CONTINUE? -ARE DISK DRIVES ATTACHED(Y/N)? Y - INVENTORY CONTROL - ENTER NUMBER OF DESIRED OPTION. - -1.ADD ITEM TYPES TO INVENTORY FILE(OR START FILE) -2.INVENTORY LIST(ENTIRE OR BY CLASS OR BY VENDOR) -3.PROCESSING CHANGES OF INVENTORY AMOUNTS -4.READ INVENTORY FILE FROM CASSETTE -5.READ INVENTORY FILE IN FROM DISKETTE -6.WRITE INVENTORY FILE ONTO CASSETTE -7.WRITE INVENTORY FILE ONTO DISKETTE -8.UPDATE TO BEGIN NEW INVENTORY PERIOD -9.ACTIVITY REPORT -10.EDITING INVENTORY FILE -11.END THIS PROGRAM - -INPUT OPTION NUMBER & PRESS ENTER? 1 -ADDITIONAL INVENTORY ITEM SUBROUTINE - -HAS ANY EXISTING FILE BEEN READ FROM TAPE OR DISKETTE?(Y/N); -? Y -INPUT DATA FOR NEXT ITEM. - -ITEM NUMBER ? A56-C7 -DESCRIPTION( < 20 CHAR) ? MOUSE PAD -VENDOR NUMBER ? JM-5*D -QUANTITY ON HAND ? 125 -LAST ORDER UNIT COST ? 2.50 -SELLING PRICE ? 9.99 -AVERAGE UNIT COST ? 3.33 -REORDER POINT ? 100 -MAXIMUM INVENTORY ? 1000 -# SOLD THIS INV. PERIOD ? 750 -# SOLD LAST INV. PERIOD ? 931 -# SOLD 2 INV. PER. AGO ? 593 -ITEM NO. : A56-C7 DESCRIP. :MOUSE PAD -VENDOR NO. : JM-5*D -QUANT. ON HAND: 125 LAST UNIT COST: 2.5 -SELLING PR. : 9.99 AVERAGE COST : 3.33 -REORDER PT.: 100 MAX INV.: 1000 -ORDERS THIS INV. PERIOD : 750 -ORdERS LAST INV. PER: 931 PREV. PER: 593 - - -IF OK PRESS 1,OTHERWISE PRESS 0? 1 -DO YOU DESIRE MORE ENTRIES ?(Y/N) -? N - INVENTORY CONTROL - ENTER NUMBER OF DESIRED OPTION. - -1.ADD ITEM TYPES TO INVENTORY FILE(OR START FILE) -2.INVENTORY LIST(ENTIRE OR BY CLASS OR BY VENDOR) -3.PROCESSING CHANGES OF INVENTORY AMOUNTS -4.READ INVENTORY FILE FROM CASSETTE -5.READ INVENTORY FILE IN FROM DISKETTE -6.WRITE INVENTORY FILE ONTO CASSETTE -7.WRITE INVENTORY FILE ONTO DISKETTE -8.UPDATE TO BEGIN NEW INVENTORY PERIOD -9.ACTIVITY REPORT -10.EDITING INVENTORY FILE -11.END THIS PROGRAM - -INPUT OPTION NUMBER & PRESS ENTER? 7 -PREPARE INVENTORY MASTER DISKETTE -PRESS ENTER WHEN READY? - -THERE ARE 1 ITEMS - INVENTORY CONTROL - ENTER NUMBER OF DESIRED OPTION. - -1.ADD ITEM TYPES TO INVENTORY FILE(OR START FILE) -2.INVENTORY LIST(ENTIRE OR BY CLASS OR BY VENDOR) -3.PROCESSING CHANGES OF INVENTORY AMOUNTS -4.READ INVENTORY FILE FROM CASSETTE -5.READ INVENTORY FILE IN FROM DISKETTE -6.WRITE INVENTORY FILE ONTO CASSETTE -7.WRITE INVENTORY FILE ONTO DISKETTE -8.UPDATE TO BEGIN NEW INVENTORY PERIOD -9.ACTIVITY REPORT -10.EDITING INVENTORY FILE -11.END THIS PROGRAM - -INPUT OPTION NUMBER & PRESS ENTER? 2 -CHOOSE DESIRED OPTION AND PRESS ENTER -1. COMPLETE INVENTORY LIST -2. INVENTORY LIST BY VENDOR -3. LIST OF ITEMS BELOW REORDER POINT -OPTION # ? 1 -IS PRINTED OUTPUT DESIRED(Y/N)? Y -ITEM NO. : A56-C7 DESCRIP. :MOUSE PAD -VENDOR NO. : JM-5*D -QUANT. ON HAND: 125 LAST UNIT COST: 2.5 -SELLING PR. : 9.99 AVERAGE COST : 3.33 -REORDER PT.: 100 MAX INV.: 1000 -ORDERS THIS INV. PERIOD : 750 -ORdERS LAST INV. PER: 931 PREV. PER: 593 - - INVENTORY CONTROL - ENTER NUMBER OF DESIRED OPTION. - -1.ADD ITEM TYPES TO INVENTORY FILE(OR START FILE) -2.INVENTORY LIST(ENTIRE OR BY CLASS OR BY VENDOR) -3.PROCESSING CHANGES OF INVENTORY AMOUNTS -4.READ INVENTORY FILE FROM CASSETTE -5.READ INVENTORY FILE IN FROM DISKETTE -6.WRITE INVENTORY FILE ONTO CASSETTE -7.WRITE INVENTORY FILE ONTO DISKETTE -8.UPDATE TO BEGIN NEW INVENTORY PERIOD -9.ACTIVITY REPORT -10.EDITING INVENTORY FILE -11.END THIS PROGRAM - -INPUT OPTION NUMBER & PRESS ENTER? 5 -PLACE INVENTORY DATA DISKETTE IN DRIVE. -PRESS ENTER WHEN READY? - - 1 ITEMS TO BE READ - INVENTORY CONTROL - ENTER NUMBER OF DESIRED OPTION. - -1.ADD ITEM TYPES TO INVENTORY FILE(OR START FILE) -2.INVENTORY LIST(ENTIRE OR BY CLASS OR BY VENDOR) -3.PROCESSING CHANGES OF INVENTORY AMOUNTS -4.READ INVENTORY FILE FROM CASSETTE -5.READ INVENTORY FILE IN FROM DISKETTE -6.WRITE INVENTORY FILE ONTO CASSETTE -7.WRITE INVENTORY FILE ONTO DISKETTE -8.UPDATE TO BEGIN NEW INVENTORY PERIOD -9.ACTIVITY REPORT -10.EDITING INVENTORY FILE -11.END THIS PROGRAM - -INPUT OPTION NUMBER & PRESS ENTER? 2 -CHOOSE DESIRED OPTION AND PRESS ENTER -1. COMPLETE INVENTORY LIST -2. INVENTORY LIST BY VENDOR -3. LIST OF ITEMS BELOW REORDER POINT -OPTION # ? 2 -IS PRINTED OUTPUT DESIRED(Y/N)? Y -DESIRED VENDOR NUMBER ? JM-5*D -ITEM NO. : A56-C7 DESCRIP. :MOUSE PAD -VENDOR NO. : JM-5*D -QUANT. ON HAND: 125 LAST UNIT COST: 2.5 -SELLING PR. : 9.99 AVERAGE COST : 3.33 -REORDER PT.: 100 MAX INV.: 1000 -ORDERS THIS INV. PERIOD : 750 -ORdERS LAST INV. PER: 931 PREV. PER: 593 - - INVENTORY CONTROL - ENTER NUMBER OF DESIRED OPTION. - -1.ADD ITEM TYPES TO INVENTORY FILE(OR START FILE) -2.INVENTORY LIST(ENTIRE OR BY CLASS OR BY VENDOR) -3.PROCESSING CHANGES OF INVENTORY AMOUNTS -4.READ INVENTORY FILE FROM CASSETTE -5.READ INVENTORY FILE IN FROM DISKETTE -6.WRITE INVENTORY FILE ONTO CASSETTE -7.WRITE INVENTORY FILE ONTO DISKETTE -8.UPDATE TO BEGIN NEW INVENTORY PERIOD -9.ACTIVITY REPORT -10.EDITING INVENTORY FILE -11.END THIS PROGRAM - -INPUT OPTION NUMBER & PRESS ENTER? 11 -ARE YOU SURE YOU WISH TO END PROGRAM(Y/N)? Y diff --git a/bwbtest/T80A/INVOICE.BAS b/bwbtest/T80A/INVOICE.BAS deleted file mode 100644 index 7384290..0000000 --- a/bwbtest/T80A/INVOICE.BAS +++ /dev/null @@ -1,215 +0,0 @@ -1 REM INVOICE -5 CLS -10 PRINT TAB(10); "PROGRAM INVOICE":PRINT -20 CLEAR 6000 -30 DEFINT C,J,I -40 DEFDBL S,P,A,V,Q -54 DIM F$(20) -55 DIM R$(15) -57 GOSUB 9000 -65 DIM NN$(20),D2$(20),QU(20),P1(20),PE(20),QO(20) -66 DIM D3$(20),D4$(20),D5$(20),D6$(20),D7$(20) -70 DIM H0(50),H1$(50),H2$(50),H3$(50),H4$(50),H5(50),H6(50) -75 DIM H7(50),H8(50),H9(50) -80 FOR I=1 TO 200:NEXT I -1000 REM INVOICING -1005 CLS:PRINT TAB(15); "INVOICING PROCEDURE":PRINT -1010 PRINT"EACH INVOICE CAN HAVE AT MOST 10 LINES. INVOICE IS -1015 PRINT"PRINTED ON SCREEN AND/OR PRINTER WHEN COMPLETE." -1017 PRINT"AT MOST 50 INVOICES MAY BE PROCESSED IN ONE RUN." -1020 GOSUB 10100 -1040 INPUT"IS PRINTER BEING USED(Y/N)";Z2$ -1045 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 1040 -1100 IF Z2$="Y" THEN PRINT"PREPARE INVOICE IN PRINTER.":GOSUB 10100 -1110 CLS -1120 INPUT"ENTER NUMBER OF CUSTOMER TO BE INVOICED(-1 TO END)";C -1125 IF C=-1 THEN GOTO 1800 -1130 INPUT"CUSTOMER NAME ";N$(1) -1135 INPUT"2ND LINE NAME ";N$(2) -1140 INPUT"STREET ADDRESS";N$(3) -1145 INPUT"CITY,STATE,ZIP";N$(4),N$(5),N$(6) -1280 INPUT"PRESS 1 TO INVOICE,2 TO ABORT";Z9 -1285 IF Z9<>1 AND Z9<>2 THEN GOSUB 10000:GOTO 1280 -1290 IF Z9=2 GOTO 1110 -1295 CG=0 ' CG=# PRINTED LINES SO FAR -1300 CLS:J=CR+1 -1305 J1=1 ' NUMBER OF LINES IN INVOICE SO FAR -1307 INPUT"INVOICE NUMBER ";N1$(J) -1310 INPUT"DATE OF INVOICE IN FORM MM/DD/YY";D$(J) -1320 IF LEN(D$(J))<>8 THEN GOSUB 10000:GOTO 1310 -1321 PO$="" -1322 INPUT"CUSTOMER ORDER NUMBER";PO$ -1325 INPUT"SHIPPED VIA ";SV$ -1326 TM$="NET 10 DAYS" -1327 INPUT"TERMS ";TM$ -1330 PRINT TAB(50);"**********":PRINT"LINE";J1;:INPUT"ITEM NO.";NN$(J1) -1340 LINE INPUT " ITEM DESCRIPTION ";XXX$:D2$(J1)=XXX$:CG=CG+1:IF NN$(J1)="EK" THEN NN$(J1)="0":J1=J1+1:GOTO 1330 -1341 GOTO 1350 -1346 CG=CG+1 -1350 REM -1354 INPUT"QUANTITY ORDERED,UNIT PRICE ";QU(J1),P1(J1) -1355 CLS -1360 PRINT"NUMBER OF LINES PRINTED SO FAR = ";CG -1370 PE(J1)=QU(J1)*P1(J1) -1377 J2=J1 -1380 PRINT F$(3):GOSUB 4000 -1390 GOSUB 10300 -1400 IF Z9$="N" THEN PRINT "DO AGAIN":GOSUB 10100:CG=CG-1:GOTO 1330 -1410 INPUT"MORE ITEMS ON INVOICE(Y/N)";Z9$ -1415 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 1410 -1420 IF Z9$="N" THEN GOTO 1450 -1430 IF CG>=10 THEN PRINT"INVOICE FULL. MACHINE TO TOTAL":GOSUB 10100:GOTO 1450 -1440 J1=J1+1: GOTO 1330 -1450 REM INVOICE COMPLETE -1451 CLS:INPUT"TAXABLE(Y/N)";XX$:IF XX$<>"Y" AND XX$<>"N" THEN GOTO 1451 -1452 IF XX$="Y" THEN INPUT"TAX RATE (%) ";TX:TX=TX/100 -1454 PRINT:PRINT:INPUT "SHIPPING ";AF -1455 CLS:PRINT"INVOICE NUMBER ";N1$(J);TAB(40); "DATE :";D$(J) -1460 PRINT F$(3) -1470 TE=0:QU=0:QO=0 -1480 FOR J2=1 TO J1:GOSUB 4000:TE=TE+PE(J2):QU=QU+QU(J2):QO=QO+QO(J2):NEXT J2 -1485 FOR J5=1 TO 62:PRINT"-";:NEXT:PRINT -1490 PRINT USING F$(5);QU,TE -1491 AT=0 -1492 IF XX$="Y" THEN AT=TE*TX -1494 PRINT USING F$(9);AT -1496 PRINT USING F$(8);AF -1497 AQ=TE+AT+AF:SA(1)=AQ -1498 PRINT USING F$(10);AQ -1500 PRINT:GOSUB 10300 -1510 IF Z9$="N" THEN PRINT "OLD INVOICE ELIMINATED":GOTO 1700 -1520 REM COMPLETED INVOICE GOOD -1530 IF Z2$<>"Y" GOTO 1600 -1550 LPRINT TAB(5); CN -1555 LPRINT TAB(5); N$(1) -1560 IF N$(2)<>"" THEN LPRINT TAB(5); N$(2) -1565 LPRINT TAB(5); N$(3) -1570 LPRINT TAB(5); N$(4);",";N$(5);" ";N$(6) -1575 LPRINT:IF N$(2)="" THEN LPRINT" " -1580 LPRINT" ":LPRINT" " -1582 LPRINT USING F$(11);PO$,N1$(J),SV$,STR$(CF),TM$,D$(J):LPRINT" ":LPRINT" " -1583 FOR J2=1 TO J1:GOSUB 4100:NEXT J2 -1584 FOR J2=CG+1 TO 18:LPRINT" ":NEXT -1587 LPRINT TAB(60);" ";:FOR J5=1 TO 12:LPRINT"-";:NEXT:LPRINT" " -1590 LPRINT TAB(38);" ";:LPRINT USING "TOTAL $$#####.##";TE -1594 LPRINT TAB(38);" ";:LPRINT USING "SALES TAX $$#####.##";AT -1596 LPRINT TAB(38);" ";:LPRINT USING "CARFARE $$#####.##";AF -1598 LPRINT TAB(38);" ";:LPRINT USING "PAY THIS AMT. $$#####.##";AQ -1599 FOR J7=1 TO 18:LPRINT" ":NEXT -1660 C7=C7+1:H0(C7)=C:H1$(C7)=D$(1):H2$(C7)=N1$(1):H3$(C7)=T$(1) -1670 H4$(C7)=N2$(1):H5(C7)=SA(1):H6(C7)=SD(1) -1680 H7(C7)=AF:H8(C7)=AT:H9(C7)=TE -1700 REM ZERO ALL INVOICE VARIABLES -1710 FOR J=1 TO 19:NN$(J)="":D2$(J)="":QU(J)=0:P1(J)=0:PE(J)=0:QO(J)=0:D3$(J)="":D4$(J)="":D5$(J)="":D6$(J)="":NEXT J -1720 CLS -1730 INPUT"DO YOU WANT MORE INVOICES(Y/N)";Z9$ -1740 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 1730 -1745 IF C7=50 THEN PRINT"TRANSACTION MATRIX FULL":GOSUB 10100:GOTO 1800 -1750 IF Z9$="Y" THEN GOTO 1100 -1800 CLS -1806 CLS:INPUT"PRESS 1 FOR TRANSACTIONS REPORT...ELSE 2";Z9$ -1807 IF Z9$<>"1"AND Z9$<>"2" THEN GOSUB 10000:GOTO 1806 -1808 IF Z9$="2" GOTO 1900 -1810 IF Z2$="Y" THEN PRINT"PREPARE PRINTER FOR TRANSACTIONS FILE." -1820 GOSUB 10100 -1830 CLS -1835 PRINT" TRANSACTIONS REPORT":PRINT -1836 IF Z2$="Y" THEN LPRINT TAB(20); "TRANSACTIONS REPORT" -1840 PRINT F$(6):IF Z2$="Y" THEN LPRINT F$(6) -1850 FOR J=1 TO C7:PRINT USING F$(7);H0(J),H1$(J),H2$(J),H3$(J),H5(J),H6(J):NEXT J -1860 IF Z2$="Y" THEN FOR J=1 TO C7:LPRINT USING F$(7);H0(J),H1$(J),H2$(J),H3$(J),H5(J),H6(J):NEXT J -1870 T=0:T3=0:T4=0:T5=0 -1872 FOR J=1 TO C7 -1874 T=T+H5(J):T3=T3+H7(J):T4=T4+H8(J):T5=T5+H9(J) -1875 NEXT J -1880 PRINT -1881 PRINT USING "EXTENDED PRICE TOTALS: $$####.##";T5 -1882 PRINT USING "TOTAL SHIPPING: $$####.##";T3 -1883 PRINT USING "TOTAL SALES TAX: $$####.##";T4 -1884 PRINT USING "TOTAL OF INVOICE AMOUNTS: $$####.##";T -1885 IF Z2$="Y" THEN LPRINT" " -1889 IF Z2$<>"Y" GOTO 1900 -1890 LPRINT" " -1891 LPRINT USING "EXTENTED PRICE TOTALS: $$####.##";T5 -1892 LPRINT USING "TOTAL CARFARE: $$####.##";T3 -1893 LPRINT USING "TOTAL SALES TAX: $$####.##";T4 -1894 LPRINT USING "TOTAL OF INVOICE AMOUNTS: $$####.##";T -1896 PRINT:END -4000 REM PRINTING LINE OF INVOICE ON CRT -4010 PRINT USING F$(4);NN$(J2),D2$(J2),QU(J2),P1(J2),PE(J2) -4020 RETURN -4100 REM PRINTING LINE OF INVOICE ON PRINTER -4101 REM LINE BELOW EXECUTED IF QUANTITY NOT AN INTEGER -4102 IF ABS(QU(J2)-INT(QU(J2)))>.01 THEN LPRINT USING F$(14);NN$(J2),QU(J2),D2$(J2),P1(J2),PE(J2) -4104 IF NN$(J2)="0" THEN LPRINT USING F$(15);D2$(J2):GOTO 4120 -4105 IF Z2$="Y" THEN LPRINT USING F$(12);NN$(J2),QU(J2),D2$(J2),P1(J2),PE(J2) -4110 IF D3$(J2)<>"" THEN LPRINT USING F$(13);D3$(J2) -4112 IF D4$(J2)<>"" THEN LPRINT USING F$(13);D4$(J2) -4114 IF D5$(J2)<>"" THEN LPRINT USING F$(13);D5$(J2) -4116 IF D6$(J2)<>"" THEN LPRINT USING F$(13);D6$(J2) -4118 IF D7$(J2)<>"" THEN LPRINT USING F$(13);D7$(J2) -4120 RETURN -6000 REM SBR DISPLAYING DATA FOR 1 CUSTOMER RECORD(NO AR) -6010 CLS -6020 PRINT "CUST NUMBER =";CN;TAB(30);"NAME = ";N$(1) -6030 PRINT"DEPARTMENT: ";N$(2) -6040 PRINT N$(3);" , ";N$(4);",";N$(5);" ";N$(6) -6050 PRINT -6055 L$(1)="YTD SALES:#######.## YTD PAYMENTS:#######.## YTD NO SALES ###" -6060 PRINT USING L$(1);SY,PY,CS -6065 L$(1)="DATE LAST PAYMENT: % % AMT.LAST PAYMENT:#######.##" -6070 PRINT USING L$(1);D1$(2),SL -6075 PRINT"SALESMAN CODE :";CF,:IF TX$="Y" THEN PRINT "TAXABLE" ELSE PRINT "NONTAXABLE" -6077 PRINT"PRICING CODE(1-5):";JK -6080 PRINT"# RECORDS IN FILE :";CR;TAB(32);"# PHYSICAL RECORDS:";CZ -6099 RETURN -6100 REM SBR DISPLAYS DATA FOR CUSTOMER A/R -6110 PRINT F$(1) -6120 FOR J=1 TO CR -6125 PRINT J;":"; -6130 PRINT USING F$(2);N1$(J),D$(J),T$(J),N2$(J),SA(J),SD(J) -6140 IF J/13 = INT(J/13) THEN GOSUB 10100:PRINT F$(1) -6150 NEXT J -6160 RETURN -9000 REM FORMATTING VARIABLES -9010 F$(1)="RF ITEM # DATE TYPE APPLY TO AMOUNT DISCOUNTS " -9020 F$(2)=" % % % % ######## % % ######.## ######.##" -9030 F$(3)="ITEM NO. DESCRIPTION QUANT. UNIT PR. EXTENDED PR." -9040 F$(4)="% % % % #### ####.## #####.## " -9050 F$(5)=" TOTAL ##### $$#####.##" -9060 F$(6)="CUST. NO. DATE INVOICE # TYPE AMOUNT OTHER CH." -9070 F$(7)=" ##### % % % % ####### ######.## ######.##" -9080 F$(8)=" CARFARE $$#####.##" -9090 F$(9)=" SALES TAX $$#####.##" -9092 F$(10)=" PAY THIS AMOUNT $$#####.##" -9093 F$(11)="% % % % % % % % % % % %" -9094 F$(12)="% %### % %######.## ######.##" -9095 F$(13)=" % %" -9096 F$(14)="% % ###.## % % ######.## ######.##" -9098 F$(15)=" % %" -9099 RETURN -10000 REM INPUT ERROR SBR -10010 PRINT"INPUT ERROR! TRY AGAIN!":FOR Z9=1 TO 300:NEXT Z9 -10020 RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9:RETURN -10200 REM Y,N,A SBR -10205 Z9$=" " -10210 INPUT"ENTER Y IF OK,N IF ERROR,A TO ABORT";Z9$ -10220 IF Z9$<>"Y" AND Z9$<>"N" AND Z9$<>"A" THEN GOSUB 10000:GOTO 10205 -10230 RETURN -10300 REM Y,N SBR -10305 Z9$=" " -10310 INPUT"ENTER Y IF OK, N IF ERROR";Z9$ -10320 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10305 -10330 RETURN -10400 REM MORE ENTRY? SBR -10405 Z9$=" " -10410 INPUT"DO YOU DESIRE MORE ENTRIES(Y/N)";Z9$ -10420 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10405 -10430 RETURN -10500 REM ONLY Y/N SBR -10510 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000 -10520 RETURN -11000 REM ELIMINATES TRAILING BLANKS OF VARIABLE Z8$ -11010 IF RIGHT$(Z8$,1)=" " THEN Z8$=LEFT$(Z8$,LEN(Z8$)-1):GOTO 11010 -11020 RETURN diff --git a/bwbtest/T80A/INVOICE.INP b/bwbtest/T80A/INVOICE.INP deleted file mode 100644 index bb1a533..0000000 --- a/bwbtest/T80A/INVOICE.INP +++ /dev/null @@ -1,31 +0,0 @@ - -Y - -765 -JERRY MOUSE -& TOM CAT -1234 FUNNY WAY -FRED,TX,98765 -1 -AB*76-Q#12 -12/34/56 -P.O. #976-ZX-1 -FEDEX/UPS -FOB NET 30 -Q6 -MOUSE PAD -3,19.99 -Y -Y -R2D2 -KITTY LITTER -4,5.99 -Y -N -Y -7.89 -2.34 -Y -N -1 - diff --git a/bwbtest/T80A/INVOICE.run b/bwbtest/T80A/INVOICE.run deleted file mode 100644 index a3b8a59..0000000 --- a/bwbtest/T80A/INVOICE.run +++ /dev/null @@ -1,70 +0,0 @@ - PROGRAM INVOICE - - INVOICING PROCEDURE - -EACH INVOICE CAN HAVE AT MOST 10 LINES. INVOICE IS -PRINTED ON SCREEN AND/OR PRINTER WHEN COMPLETE. -AT MOST 50 INVOICES MAY BE PROCESSED IN ONE RUN. -PRESS ENTER TO CONTINUE? -IS PRINTER BEING USED(Y/N)? Y -PREPARE INVOICE IN PRINTER. -PRESS ENTER TO CONTINUE? -ENTER NUMBER OF CUSTOMER TO BE INVOICED(-1 TO END)? 765 -CUSTOMER NAME ? JERRY MOUSE -2ND LINE NAME ? & TOM CAT -STREET ADDRESS? 1234 FUNNY WAY -CITY,STATE,ZIP? FRED,TX,98765 -PRESS 1 TO INVOICE,2 TO ABORT? 1 -INVOICE NUMBER ? AB*76-Q#12 -DATE OF INVOICE IN FORM MM/DD/YY? 12/34/56 -CUSTOMER ORDER NUMBER? P.O. #976-ZX-1 -SHIPPED VIA ? FEDEX/UPS -TERMS ? FOB NET 30 - ********** -LINE 1 ITEM NO.? Q6 - ITEM DESCRIPTION MOUSE PAD -QUANTITY ORDERED,UNIT PRICE ? 3,19.99 -NUMBER OF LINES PRINTED SO FAR = 1 -ITEM NO. DESCRIPTION QUANT. UNIT PR. EXTENDED PR. -Q6 MOUSE PAD 3 19.99 59.97 -ENTER Y IF OK, N IF ERROR? Y -MORE ITEMS ON INVOICE(Y/N)? Y - ********** -LINE 2 ITEM NO.? R2D2 - ITEM DESCRIPTION KITTY LITTER -QUANTITY ORDERED,UNIT PRICE ? 4,5.99 -NUMBER OF LINES PRINTED SO FAR = 2 -ITEM NO. DESCRIPTION QUANT. UNIT PR. EXTENDED PR. -R2D2 KITTY LITTER 4 5.99 23.96 -ENTER Y IF OK, N IF ERROR? Y -MORE ITEMS ON INVOICE(Y/N)? N -TAXABLE(Y/N)? Y -TAX RATE (%) ? 7.89 - - -SHIPPING ? 2.34 -INVOICE NUMBER AB*76-Q#12 DATE :12/34/56 -ITEM NO. DESCRIPTION QUANT. UNIT PR. EXTENDED PR. -Q6 MOUSE PAD 3 19.99 59.97 -R2D2 KITTY LITTER 4 5.99 23.96 --------------------------------------------------------------- - TOTAL 7 $83.93 - SALES TAX $6.62 - CARFARE $2.34 - PAY THIS AMOUNT $92.89 - -ENTER Y IF OK, N IF ERROR? Y -DO YOU WANT MORE INVOICES(Y/N)? N -PRESS 1 FOR TRANSACTIONS REPORT...ELSE 2? 1 -PREPARE PRINTER FOR TRANSACTIONS FILE. -PRESS ENTER TO CONTINUE? - TRANSACTIONS REPORT - -CUST. NO. DATE INVOICE # TYPE AMOUNT OTHER CH. - 765 12/34/56 AB*76-Q#1 93 0.00 - -EXTENDED PRICE TOTALS: $83.93 -TOTAL SHIPPING: $2.34 -TOTAL SALES TAX: $6.62 -TOTAL OF INVOICE AMOUNTS: $92.89 - diff --git a/bwbtest/T80A/LABEL1.BAS b/bwbtest/T80A/LABEL1.BAS deleted file mode 100644 index 46050d9..0000000 --- a/bwbtest/T80A/LABEL1.BAS +++ /dev/null @@ -1,32 +0,0 @@ -1 REM LABEL1 -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"SHIPPING LABEL MAKER":PRINT -20 PRINT"THIS SIMPLE PROGRAM WILL PRODUCE SHIPPING LABELS FOR AN ORDER -25 PRINT"CONSISTING OF MANY CARTONS. THE TOP LINE OF EACH LABEL HAS -30 PRINT"WRITTEN ON IT , E.G. 2 OF 3 P/O #45RT6, 3 OF 3 P/O #45RT6, ETC -35 PRINT"P/O # IS PURCHASE ORDER NUMBER. STANDARD 1 INCH LABELS ARE -40 PRINT"USED. -90 PRINT:INPUT "PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT "HOW MANY LABELS DO YOU NEED ";A -120 LINE INPUT "ENTER PURCHASE ORDER NUMBER ";P$ -130 LINE INPUT "INPUT NAME ";N$ -140 LINE INPUT "INPUT COMPANY(ENTER IF NONE)";CMP$ -150 LINE INPUT "INPUT STREET ADDRESS ";A$ -160 LINE INPUT "INPUT CITY,STATE ZIP ";C$ -190 PRINT -200 INPUT "PRESS ENTER WHEN PRINTER IS READY";Z9$ -210 INPUT "DO YOU WANT A MASK(Y/N)";Z9$ -220 IF Z9$="Y" THEN FOR L=1 TO 6:LPRINT STRING$(30,"#"):NEXT:GOTO 190 -230 FOR L=1 TO A -240 LPRINT L;"OF";A;"P/O #";P$ -250 LPRINT N$ -260 IF CMP$<>"" THEN LPRINT CMP$ -270 LPRINT A$ -280 LPRINT C$ -290 LPRINT" ":IF CMP$="" THEN LPRINT " " -300 NEXT L -400 PRINT -410 INPUT "PRESS ENTER FOR MORE LABELS";Z9$ -415 IF Z9$ = "-1" THEN END -420 GOTO 100 diff --git a/bwbtest/T80A/LABEL1.INP b/bwbtest/T80A/LABEL1.INP deleted file mode 100644 index 54144fe..0000000 --- a/bwbtest/T80A/LABEL1.INP +++ /dev/null @@ -1,12 +0,0 @@ - -2 -9876 -TOM & JERRY -WARNER BROTHERS -12345 FUNNY LANE -AUSTIN, TX 45678 - -Y - -N --1 diff --git a/bwbtest/T80A/LABEL1.run b/bwbtest/T80A/LABEL1.run deleted file mode 100644 index f53fd7f..0000000 --- a/bwbtest/T80A/LABEL1.run +++ /dev/null @@ -1,23 +0,0 @@ - SHIPPING LABEL MAKER - -THIS SIMPLE PROGRAM WILL PRODUCE SHIPPING LABELS FOR AN ORDER -CONSISTING OF MANY CARTONS. THE TOP LINE OF EACH LABEL HAS -WRITTEN ON IT , E.G. 2 OF 3 P/O #45RT6, 3 OF 3 P/O #45RT6, ETC -P/O # IS PURCHASE ORDER NUMBER. STANDARD 1 INCH LABELS ARE -USED. - -PRESS ENTER TO BEGIN? -HOW MANY LABELS DO YOU NEED ? 2 -ENTER PURCHASE ORDER NUMBER 9876 -INPUT NAME TOM & JERRY -INPUT COMPANY(ENTER IF NONE)WARNER BROTHERS -INPUT STREET ADDRESS 12345 FUNNY LANE -INPUT CITY,STATE ZIP AUSTIN, TX 45678 - -PRESS ENTER WHEN PRINTER IS READY? -DO YOU WANT A MASK(Y/N)? Y - -PRESS ENTER WHEN PRINTER IS READY? -DO YOU WANT A MASK(Y/N)? N - -PRESS ENTER FOR MORE LABELS? -1 diff --git a/bwbtest/T80A/LABEL2.BAS b/bwbtest/T80A/LABEL2.BAS deleted file mode 100644 index cd3c70a..0000000 --- a/bwbtest/T80A/LABEL2.BAS +++ /dev/null @@ -1,29 +0,0 @@ -1 REM LABEL2 -5 CLEAR 1000 -10 CLS:PRINT"REPETITIVE LABEL MAKER":PRINT -20 PRINT"THIS PROGRAM WILL PERMIT THE USER TO MAKE ANY NUMBER OF -25 PRINT"IDENTICAL PRINTED LABELS ON STANDARD 1 INCH LABEL FORMS. -30 PRINT"THERE IS PROVISION FOR UP TO 5 PRINTED LINES, THOUGH -35 PRINT"FROM 1 TO 5 LINES MAY BE PRINTED" -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS:INPUT"HOW MANY LABELS ARE DESIRED";A -110 IF A=0 THEN GOTO 100 -120 PRINT -130 LINE INPUT "FIRST LABEL LINE ";Z$:N$(1)=Z$ -140 LINE INPUT "SECOND LABEL LINE ";Z$:N$(2)=Z$ -150 LINE INPUT "THIRD LABEL LINE ";Z$:N$(3)=Z$ -160 LINE INPUT "FOURTH LABEL LINE ";Z$:N$(4)=Z$ -170 LINE INPUT "FIFTH LABEL LINE ";Z$:N$(5)=Z$ -200 PRINT:INPUT"PRESS ENTER WHEN PRINTER READY";Z9$:PRINT -210 INPUT"DO YOU WANT A PRINT MASK(Y/N)";Z$ -220 IF Z$="Y" THEN FOR L=1 TO 6:LPRINT STRING$(30,"#"):NEXT:PRINT:GOTO 210 -230 FOR L=1 TO A -240 FOR K=1 TO 5 -250 IF N$(K)<>"" THEN LPRINT N$(K) :ELSE LPRINT " " -260 NEXT K -270 LPRINT " " -280 NEXT L -300 PRINT -310 INPUT"PRESS ENTER TO INPUT DATA FOR MORE LABELS";Z9$ -315 IF Z9$ = "-1" THEN END -320 GOTO 100 diff --git a/bwbtest/T80A/LABEL2.INP b/bwbtest/T80A/LABEL2.INP deleted file mode 100644 index a9ff4fe..0000000 --- a/bwbtest/T80A/LABEL2.INP +++ /dev/null @@ -1,11 +0,0 @@ - -2 -JERRY MOUSE -C/O TOM CAT -98765 CARTOON LANE -SOMEWHERE, OVERTHER 12345 -U. S. A. - -Y -N --1 diff --git a/bwbtest/T80A/LABEL2.run b/bwbtest/T80A/LABEL2.run deleted file mode 100644 index d0d42e8..0000000 --- a/bwbtest/T80A/LABEL2.run +++ /dev/null @@ -1,23 +0,0 @@ -REPETITIVE LABEL MAKER - -THIS PROGRAM WILL PERMIT THE USER TO MAKE ANY NUMBER OF -IDENTICAL PRINTED LABELS ON STANDARD 1 INCH LABEL FORMS. -THERE IS PROVISION FOR UP TO 5 PRINTED LINES, THOUGH -FROM 1 TO 5 LINES MAY BE PRINTED - -PRESS ENTER TO BEGIN? -HOW MANY LABELS ARE DESIRED? 2 - -FIRST LABEL LINE JERRY MOUSE -SECOND LABEL LINE C/O TOM CAT -THIRD LABEL LINE 98765 CARTOON LANE -FOURTH LABEL LINE SOMEWHERE, OVERTHER 12345 -FIFTH LABEL LINE U. S. A. - -PRESS ENTER WHEN PRINTER READY? - -DO YOU WANT A PRINT MASK(Y/N)? Y - -DO YOU WANT A PRINT MASK(Y/N)? N - -PRESS ENTER TO INPUT DATA FOR MORE LABELS? -1 diff --git a/bwbtest/T80A/LEASEINT.BAS b/bwbtest/T80A/LEASEINT.BAS deleted file mode 100644 index a035844..0000000 --- a/bwbtest/T80A/LEASEINT.BAS +++ /dev/null @@ -1,53 +0,0 @@ -5 CLS -990 PRINT" LEASE INTEREST RATE" -1000 PRINT"THERE ARE MANY TYPES OF EQUIPMENT LEASES. ONE TYPE OF AUTO -1010 PRINT"LEASE IS CALLED AN OPEN END LEASE. THE WAY IT WORKS IS THAT -1020 PRINT"THE LESSEE PAYS THE LEASING COMPANY A DOWN PAYMENT AND A FIXED -1030 PRINT"AMOUNT EACH MONTH FOR A GIVEN NUMBER OF MONTHS. AT THE END -1040 PRINT"OF THE LEASE PERIOD THE LESSEE MUST PAY THE LEASING COMPANY A -1050 PRINT"PRE-AGREED AMOUNT (BUY-BACK AMOUNT). THE LESSEE THEN OWNS THE -1060 PRINT"CAR. THERE ARE SEVERAL ADVANTAGES TO LEASING. IF THE INITIAL -1070 PRINT"DOWN PAYMENT IS LOW AND PAYMENTS ARE LESS PER MONTH THAN ON A -1080 PRINT"STRAIGHT LOAN THEN THE LESSEE PAYS LESS MONEY EARLY THAN -1090 PRINT"ON THE LOAN. THE BALLOON PAYMENT MAKES UP FOR THIS LATER. -1100 PRINT"THE PRESENT PROGRAM COMPUTES AN EFFECTIVE INTEREST RATE ON THE -1110 PRINT"LEASE GIVEN THE PURCHASE PRICE OF THE CAR, THE DOWN PAYMENT -1120 PRINT"THE MONTHLY PAYMENT, AND THE BUY-BACK AMOUNT. -1130 PRINT:INPUT"PRESS ENTER TO BEGIN ";Z9$ -1200 CLS -1202 PRINT"IT IS ASSUMED THAT THE BUY-BACK OCCURS ONE MONTH AFTER THE -1204 PRINT"LAST PAYMENT. IF THE LAST PAYMENT AND THE BUY-BACK OCCUR AT -1206 PRINT"THE SAME TIME THEN DECREASE THE NUMBER OF PAYMENTS BY 1 AND -1207 PRINT"INCREASE THE BUY-BACK BY THE AMOUNT OF 1 PAYMENT -1208 PRINT:PRINT" IN ADDITION, THE FIRST PAYMENT MAY BE AT THE END OF THE -1210 PRINT"1ST MONTH, 2ND MONTH, ETC. -1211 CLEAR 300:DIM A(400) -1213 PRINT -1215 INPUT"INPUT CASH COST OF ITEM ";CASH -1220 INPUT"INPUT DOWN PAYMENT ";A(0) -1230 INPUT"INPUT MONTHLY PAYMENT ";PAYMENT -1240 INPUT"INPUT NUMBER OF MONTHLY PAYMENTS ";N -1250 INPUT"INPUT MONTH OF 1ST PAYMENT ";FIRST -1260 INPUT"INPUT BUY-BACK AMOUNT ";BUYBACK -1300 CLS: PRINT:PRINT:PRINT -1310 PRINT"COMPUTING INTEREST RATE " -1320 R=0:JUMP=.1 -1330 P=0 -1335 PRINT @ 1,"PASS"; LZ;" ";"CURRENT MONTHLY RATE =";100*R;"%":LZ=LZ+1 -1340 P=-CASH -1350 P=P+A(0) -1360 FOR K=FIRST TO FIRST+N-1:P=P+PAYMENT/(1+R)[K:NEXT K -1370 P=P+BUYBACK/(1+R)[(FIRST+N) -1380 IF ABS(P)<.5 THEN GOTO 1500 -1390 IF P>0 THEN R=R+JUMP:GOTO 1330 -1400 R=R-JUMP:JUMP=JUMP/10:R=R+JUMP:GOTO 1330 -1500 REM PRINTOUT ROUTINE -1510 CLS -1515 PRINT"MONTHLY INTEREST RATE = ";100*R;"%" -1520 RA=(1+R)[12-1 -1530 PRINT"ANNUAL INTEREST RATE(EFF) = ";100*RA;"%" -1540 PRINT"ANNUAL INTEREST RATE(SIMP) = ";100*R*12;"%" -1545 PRINT:PRINT TAB(10); "INTEREST RATE(SIMP) COMPUTED BY MULTIPLYING":PRINT TAB(10); "MONTHLY INTEREST RATE BY 12 WHILE INTEREST":PRINT TAB(10); "RATE(SIMP) IS A COMPOUNDED MONTHLY RATE" -1550 PRINT:INPUT"PRESS ENTER FOR MORE COMPUTATIONS";Z9$ -1555 IF Z9$ = "-1" THEN END -1560 CLS:GOTO 1211 diff --git a/bwbtest/T80A/LEASEINT.INP b/bwbtest/T80A/LEASEINT.INP deleted file mode 100644 index 916c0bd..0000000 --- a/bwbtest/T80A/LEASEINT.INP +++ /dev/null @@ -1,8 +0,0 @@ - -10000 -2000 -300 -50 -1 -6000 --1 diff --git a/bwbtest/T80A/LEASEINT.run b/bwbtest/T80A/LEASEINT.run deleted file mode 100644 index 66534f4..0000000 --- a/bwbtest/T80A/LEASEINT.run +++ /dev/null @@ -1,62 +0,0 @@ - LEASE INTEREST RATE -THERE ARE MANY TYPES OF EQUIPMENT LEASES. ONE TYPE OF AUTO -LEASE IS CALLED AN OPEN END LEASE. THE WAY IT WORKS IS THAT -THE LESSEE PAYS THE LEASING COMPANY A DOWN PAYMENT AND A FIXED -AMOUNT EACH MONTH FOR A GIVEN NUMBER OF MONTHS. AT THE END -OF THE LEASE PERIOD THE LESSEE MUST PAY THE LEASING COMPANY A -PRE-AGREED AMOUNT (BUY-BACK AMOUNT). THE LESSEE THEN OWNS THE -CAR. THERE ARE SEVERAL ADVANTAGES TO LEASING. IF THE INITIAL -DOWN PAYMENT IS LOW AND PAYMENTS ARE LESS PER MONTH THAN ON A -STRAIGHT LOAN THEN THE LESSEE PAYS LESS MONEY EARLY THAN -ON THE LOAN. THE BALLOON PAYMENT MAKES UP FOR THIS LATER. -THE PRESENT PROGRAM COMPUTES AN EFFECTIVE INTEREST RATE ON THE -LEASE GIVEN THE PURCHASE PRICE OF THE CAR, THE DOWN PAYMENT -THE MONTHLY PAYMENT, AND THE BUY-BACK AMOUNT. - -PRESS ENTER TO BEGIN ? -IT IS ASSUMED THAT THE BUY-BACK OCCURS ONE MONTH AFTER THE -LAST PAYMENT. IF THE LAST PAYMENT AND THE BUY-BACK OCCUR AT -THE SAME TIME THEN DECREASE THE NUMBER OF PAYMENTS BY 1 AND -INCREASE THE BUY-BACK BY THE AMOUNT OF 1 PAYMENT - - IN ADDITION, THE FIRST PAYMENT MAY BE AT THE END OF THE -1ST MONTH, 2ND MONTH, ETC. - -INPUT CASH COST OF ITEM ? 10000 -INPUT DOWN PAYMENT ? 2000 -INPUT MONTHLY PAYMENT ? 300 -INPUT NUMBER OF MONTHLY PAYMENTS ? 50 -INPUT MONTH OF 1ST PAYMENT ? 1 -INPUT BUY-BACK AMOUNT ? 6000 - - - -COMPUTING INTEREST RATE -PASS 0 CURRENT MONTHLY RATE = 0 % -PASS 1 CURRENT MONTHLY RATE = 10 % -PASS 2 CURRENT MONTHLY RATE = 1 % -PASS 3 CURRENT MONTHLY RATE = 2 % -PASS 4 CURRENT MONTHLY RATE = 3 % -PASS 5 CURRENT MONTHLY RATE = 4 % -PASS 6 CURRENT MONTHLY RATE = 3.1 % -PASS 7 CURRENT MONTHLY RATE = 3.2 % -PASS 8 CURRENT MONTHLY RATE = 3.3 % -PASS 9 CURRENT MONTHLY RATE = 3.4 % -PASS 10 CURRENT MONTHLY RATE = 3.5 % -PASS 11 CURRENT MONTHLY RATE = 3.6 % -PASS 12 CURRENT MONTHLY RATE = 3.51 % -PASS 13 CURRENT MONTHLY RATE = 3.52 % -PASS 14 CURRENT MONTHLY RATE = 3.53 % -PASS 15 CURRENT MONTHLY RATE = 3.54 % -PASS 16 CURRENT MONTHLY RATE = 3.55 % -PASS 17 CURRENT MONTHLY RATE = 3.541 % -PASS 18 CURRENT MONTHLY RATE = 3.542 % -MONTHLY INTEREST RATE = 3.542 % -ANNUAL INTEREST RATE(EFF) = 51.8443 % -ANNUAL INTEREST RATE(SIMP) = 42.504 % - - INTEREST RATE(SIMP) COMPUTED BY MULTIPLYING - MONTHLY INTEREST RATE BY 12 WHILE INTEREST - RATE(SIMP) IS A COMPOUNDED MONTHLY RATE - -PRESS ENTER FOR MORE COMPUTATIONS? -1 diff --git a/bwbtest/T80A/LETWRT.BAS b/bwbtest/T80A/LETWRT.BAS deleted file mode 100644 index be21698..0000000 --- a/bwbtest/T80A/LETWRT.BAS +++ /dev/null @@ -1,200 +0,0 @@ -1 REM LETWRT -5 CLS -10 PRINT TAB(10); "TEXTEDIT AND LETTER WRITING SYSTEM":PRINT -20 PRINT -30 PRINT"THIS MINI TEXT EDITOR MAKES IT POSSIBLE TO WRITE SOME TEXT, -40 PRINT"TO ADD TO IT,TO CHANGE IT,TO SAVE IT ON CASSETTE OR DISKETTE -45 PRINT"AND TO READ IT BACK FROM SAME. -50 PRINT"THE TEXT MAY ALSO BE PRINTED ON THE LINE PRINTER. -60 PRINT"THIS IS A LINE ORIENTED EDITOR.ONLY ENTIRE LINES MAY BE -63 PRINT"INSERTED,DELETED OR CHANGED.FOR LONGER TEXT CLEAR MORE THAN -65 PRINT"4000 IN LINE 1000. -70 PRINT"THE FILES GENERATED BY THE EDITOR MAY BE LINKED TO THE NAMES -75 PRINT"ON THE MAIL PAC. THE NAME AND ADDRESS OF THE MAILPAC NAME -77 PRINT"IS PUT AT THE HEAD OF THE FILE(LETTER) GENERATED BY THIS -80 PRINT"EDITOR. -90 INPUT"TO BEGIN PRESS ENTER";Z9 -100 CLS:PRINT:PRINT: -1000 CLEAR 4000 -1002 INPUT"ARE DISK DRIVES ATTACHED(Y/N)";DZ$ -1003 IF DZ$<>"Y" AND DZ$<>"N" THEN PRINT"INPUT ERROR":GOTO 110 -1005 DIM A$(100) -1007 CLS:PRINT" MENU" -1010 PRINT -1015 PRINT "0.QUIT" -1020 PRINT "1.DISPLAY TEXT FILE WITH LINE NUMBERS" -1030 PRINT "2.PRINT TEXT FILE WITHOUT NUMBERS" -1040 PRINT "3.SAVE TEXT FILE ON CASSETTE." -1045 PRINT "4.SAVE A TEXTFILE ON DISKETTE -1050 PRINT "5.READ TEXT FILE FROM CASSETTE." -1055 PRINT "6.READ TEXTFILE FROM DISKETTE -1060 PRINT "7.CHANGE A LINE." -1070 PRINT "8.DELETE A LINE. -1075 PRINT"9.INSERT A LINE -1080 PRINT "10.ADD TO OR START TEXT FILE -1082 PRINT "11. PRINT FILE OUT ONTO LINE PRINTER -1084 PRINT "12. MERGE WITH MAILPAC -1090 PRINT:INPUT"ENTER NUMBER OF YOUR CHOICE";Z -1092 IF Z = 0 THEN END -1095 ON Z GOSUB 2100,2200,2300,2350,2400,2450,2500,2600,2700,2800,2900,6000 -1100 CLS:GOTO 1007 -2100 REM ROUTINE FOR DISPLAYING TEXTFILE WITH NUMBERS -2105 CLS -2107 IF K=0 GOTO 2150 -2110 FOR I=1 TO K:ZZ$=RIGHT$("0"+STR$(I)+".",3) -2120 PRINT ZZ$;A$(I) -2130 IF I/10 = INT(I/10) THEN GOSUB 4000:PRINT -2140 NEXT I -2150 PRINT:GOSUB 4100:RETURN -2200 REM ROUTINE FOR DISPLAYING TEXTFILE WITH NUMBERS -2205 CLS -2210 FOR I=1 TO K -2220 PRINT A$(I) -2230 IF I/10=INT(I/10) THEN GOSUB 4000:PRINT -2240 NEXT I -2250 PRINT:GOSUB 4100:RETURN -2300 REM SAVE TEXTFILE ON CASSETTE -2310 CLS:INPUT"PRESS ENTER WHEN CASSETTE RECORDER IS READY TO RECORD";Z9 -2315 ' IF DZ$="Y" THEN CMD"T" -2320 WRITE #-1,K -2330 FOR I=1 TO K:WRITE #-1,A$(I):NEXT I -2340 RETURN -2350 REM SAVE TEXTFILE ON DISKETTE -2355 CLS:PRINT"TEXTFILE TO BE SAVED ON DISKETTE" -2360 PRINT"PRESENT TEXFILE NAME IS ";ZD$ -2362 INPUT"ENTER NEW TEXTFILE NAME( FOR NO CHANGE)";ZD$ -2365 INPUT"PRESS ENTER WHEN DISKETTE IS READY ";Z9 -2370 OPEN"O",1,ZD$ -2375 WRITE # 1,K:PRINT:PRINT K;" LINES TO BE SAVED." -2380 FOR I=1 TO K: WRITE # 1,A$(I):NEXT -2385 CLOSE #1 -2390 RETURN -2400 REM READ TEXTFILE FROM CASSETTE -2410 CLS:INPUT"PRESS ENTER WHEN CASSETTE RECORDER IS READY";Z9 -2415 ' IF DZ$="Y" THEN CMD"T" -2420 INPUT #-1,K -2430 FOR I=1 TO K:INPUT #-1,A$(I):NEXT I -2440 RETURN -2450 REM READ TEXTFILE FROM DISKETTE -2455 CLS:PRINT"TEXTFILE TO BE READ FROM DISKETTE":PRINT -2460 INPUT"INPUT NAME OF DISK FILE TO BE READ";ZD$ -2465 INPUT"PRESS ENTER WHEN DISKETTE IS READY ";Z9 -2470 OPEN "I",1,ZD$ -2475 INPUT # 1,K:PRINT:PRINT K;" TEXT LINES TO BE READ":PRINT -2477 FOR II=1 TO 200:NEXT -2480 FOR I=1 TO K:INPUT # 1,A$(I):NEXT I -2485 CLOSE #1 -2490 RETURN -2500 REM CHANGE A LINE SUBROUTINE -2510 CLS -2520 INPUT"WHAT LINE NUMBER DO YOU WANT TO CHANGE(0 TO RETURN)";LN -2523 IF LN=0 THEN RETURN -2525 IF LN<0 OR LN<>INT(LN) OR LN>K THEN PRINT"NO SUCH LINE":GOSUB 4400:GOTO 2510 -2530 GOSUB 4500 -2540 PRINT:PRINT"ARE YOU SURE YOU WANT TO CHANGE LINE ";LN;"(Y/N)";:INPUT Z9$ -2550 IF Z9$="N" GOTO 2510 -2555 IF Z9$<>"Y" THEN GOSUB 4300:GOTO 2540 -2560 PRINT:PRINT"ENTER NEW LINE ";LN -2570 PRINT:PRINT LN;".";:INPUT A$(LN) -2580 CLS:GOSUB 4500 -2585 INPUT"PRESS 1 IF OK,ELSE 0";Z9 -2587 IF Z9=1 THEN RETURN -2590 IF Z9=0 THEN CLS:GOTO 2530 -2592 GOSUB 4300:GOTO 2580 -2600 REM DELETE A LINE SUBROUTINE -2610 CLS:INPUT"WHAT LINE NUMBER DO YOU WANT TO DELETE(0 TO RETURN)";LN -2612 IF LN=0 THEN RETURN -2614 IF LN<>INT(LN) OR LN <1 THEN GOSUB 4300:GOTO 2610 -2616 IF LN>K THEN PRINT"LINE";LN;" NOT IN TEXT":GOSUB 4400:GOTO 2610 -2620 GOSUB 4500 -2630 PRINT"ARE YOU SURE YOU WANT TO DELETE LINE";LN;"(Y/N)";:INPUT Z9$ -2640 IF Z9$="N" GOTO 2710 -2650 IF Z9$<>"Y" THEN GOSUB 4300:GOTO 2630 -2655 FOR I=LN+1 TO K:A$(I-1)=A$(I):NEXT I -2657 K=K-1 -2660 PRINT:PRINT"DELETE COMPLETE":GOSUB 4400:GOTO 2610 -2700 REM INSERT A LINE SUBROUTINE -2710 CLS:INPUT"WHAT LINE NUMBER DO YOU WISH TO INSERT(0 TO RETURN)";LN -2712 IF LN=0 THEN RETURN -2714 IF LN<>INT(LN) OR LN<1 THEN GOSUB 4300:GOTO 2710 -2716 IF LN>K THEN PRINT"ONLY ";K;" LINES EXIST IN TEXT.INSERT LINE MUST BE <= ";K:GOSUB 4400:GOTO 2710 -2720 GOSUB 4500 -2730 PRINT"ARE YOU SURE YOU WANT TO INSERT LINE";LN;"(Y/N)";:INPUT Z9$ -2740 IF Z9$="N" GOTO 2710 -2750 IF Z9$<>"Y" THEN GOSUB 4300:GOTO 2730 -2755 FOR I=K+1 TO LN+1 STEP-1:A$(I)=A$(I-1):NEXT I -2757 K=K+1 -2760 PRINT:PRINT"INSERT BELOW :" -2765 A$(LN)=" " -2770 PRINT:PRINT LN;".";:INPUT A$(LN) -2780 PRINT:PRINT"INSERT COMPLETE":GOSUB 4400:GOTO 2710 -2800 REM ADD OR START FILE SUBROUTINE -2805 CLS -2810 PRINT"INPUT LINES END WITH ENTER.FOR INDENTED LINES,OR LINES -2812 PRINT"CONTAINING COMMAS OR COLONS BEGIN WITH A ";CHR$(34) -2815 PRINT"INPUT @ TO RETURN TO MENU" -2817 GOSUB 4400 -2820 IF K<1 THEN K=0:GOTO 2830 -2825 FOR I=1 TO K:PRINT I;".";A$(I):NEXT I -2830 K=K+1 -2840 PRINT K;".";:INPUT A$(K) -2850 IF A$(K)="@" THEN A$(K)="":K=K-1:RETURN -2860 GOTO 2830 -2900 REM LINE PRINTER SUBROUTINE -2910 CLS -2920 PRINT"IF PRINTING WITH LINE #'S PRESS 1,ELSE PRESS 0";:INPUT Z -2930 IF Z<>1 AND Z<>0 THEN GOSUB 4300:GOTO 2910 -2940 PRINT:INPUT"PRESS ENTER WHEN LINE PRINTER READY";Z9 -2950 FOR I=1 TO K -2960 IF Z=1 THEN LPRINT I;"."; -2970 LPRINT A$(I) -2980 NEXT I -2990 RETURN -4000 REM PRESS ENTER SUBROUTINE -4010 PRINT:INPUT"PRESS ENTER TO CONTINUE";Z9 -4020 RETURN -4100 REM RETURN TO MENU SUBROUTINE -4110 INPUT"PRESS ENTER TO RETURN TO MENU";Z9 -4120 RETURN -4300 REM INPUT ERROR SUBROUTINE -4310 PRINT:PRINT"INPUT ERROR.TRY AGAIN" -4320 FOR Z9=1 TO 400:NEXT Z9 -4330 RETURN -4400 REM DELAY SUBROUTINE -4410 FOR Z8=1 TO 400:NEXT Z8 -4420 RETURN -4500 REM PRINT LINE BEFORE,LINE, LINE AFTER -4510 PRINT:FOR I=LN-1 TO LN+1:PRINT I;".";A$(I):NEXT I -4520 RETURN -6000 REM MERGE WITH MAILPAC PROGRAM -6005 CLS -6010 IF DZ$="N" THEN PRINT"PREPARE FILE ON CASSETTE":GOSUB 10100:INPUT #-1,P1:GOTO 6050 -6020 PRINT"FILE TO BE READ IN FROM DISKETTE":PRINT -6030 INPUT"ENTER NAME OF FILE TO BE READ";ND$ -6040 OPEN"I",1,ND$:INPUT # 1,P1 -6050 PRINT P1;" NAMES TO BE READ" -6060 PRINT"PREPARE PRINTER FOR LETTER":GOSUB 10100 -6070 FOR J=1 TO P1 -6080 IF DZ$="N" THEN INPUT #-1,NL$,N1$,N2$,CO$,A1$,A2$,A$ -6090 IF DZ$="Y" THEN INPUT # 1,NL$,N1$,N2$,CO$,A1$,A2$,A$ -6100 CLS:PRINT NL$ -6110 PRINT N1$;" ",N2$ -6120 PRINT CO$ -6130 PRINT A1$ -6140 PRINT A2$ -6145 PRINT:PRINT"NAME ";J;"OF";P1 -6150 PRINT:PRINT -6160 INPUT"PRESS 1 TO PRINT LETTER FOR NAME, 0 TO SKIP";Z1$ -6170 IF Z1$<>"1" AND Z1$<>"0" THEN GOSUB 4300:GOTO 6160 -6180 IF Z1$="0" THEN GOTO 7050 -7000 LPRINT NL$ -7005 LPRINT N1$;" ";N2$ -7010 LPRINT CO$ -7015 LPRINT A1$ -7020 LPRINT A2$ -7025 LPRINT " " -7030 GOSUB 2950 -7040 FOR IL=1 TO 60-K:LPRINT" ":NEXT -7050 NEXT J -7060 RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/LETWRT.DAT b/bwbtest/T80A/LETWRT.DAT deleted file mode 100644 index 7b29cc2..0000000 --- a/bwbtest/T80A/LETWRT.DAT +++ /dev/null @@ -1,4 +0,0 @@ -3 -"LINE ONE" -"LINE TWO" -"LINE THREE" diff --git a/bwbtest/T80A/LETWRT.INP b/bwbtest/T80A/LETWRT.INP deleted file mode 100644 index 80df17e..0000000 --- a/bwbtest/T80A/LETWRT.INP +++ /dev/null @@ -1,19 +0,0 @@ - -Y -10 -LINE ONE -LINE TWO -LINE THREE -@ -1 - -4 -LETWRT.DAT - -6 -LETWRT.DAT - -11 -1 - -0 diff --git a/bwbtest/T80A/LETWRT.run b/bwbtest/T80A/LETWRT.run deleted file mode 100644 index 795fbb4..0000000 --- a/bwbtest/T80A/LETWRT.run +++ /dev/null @@ -1,148 +0,0 @@ - TEXTEDIT AND LETTER WRITING SYSTEM - - -THIS MINI TEXT EDITOR MAKES IT POSSIBLE TO WRITE SOME TEXT, -TO ADD TO IT,TO CHANGE IT,TO SAVE IT ON CASSETTE OR DISKETTE -AND TO READ IT BACK FROM SAME. -THE TEXT MAY ALSO BE PRINTED ON THE LINE PRINTER. -THIS IS A LINE ORIENTED EDITOR.ONLY ENTIRE LINES MAY BE -INSERTED,DELETED OR CHANGED.FOR LONGER TEXT CLEAR MORE THAN -4000 IN LINE 1000. -THE FILES GENERATED BY THE EDITOR MAY BE LINKED TO THE NAMES -ON THE MAIL PAC. THE NAME AND ADDRESS OF THE MAILPAC NAME -IS PUT AT THE HEAD OF THE FILE(LETTER) GENERATED BY THIS -EDITOR. -TO BEGIN PRESS ENTER? - - -ARE DISK DRIVES ATTACHED(Y/N)? Y - MENU - -0.QUIT -1.DISPLAY TEXT FILE WITH LINE NUMBERS -2.PRINT TEXT FILE WITHOUT NUMBERS -3.SAVE TEXT FILE ON CASSETTE. -4.SAVE A TEXTFILE ON DISKETTE -5.READ TEXT FILE FROM CASSETTE. -6.READ TEXTFILE FROM DISKETTE -7.CHANGE A LINE. -8.DELETE A LINE. -9.INSERT A LINE -10.ADD TO OR START TEXT FILE -11. PRINT FILE OUT ONTO LINE PRINTER -12. MERGE WITH MAILPAC - -ENTER NUMBER OF YOUR CHOICE? 10 -INPUT LINES END WITH ENTER.FOR INDENTED LINES,OR LINES -CONTAINING COMMAS OR COLONS BEGIN WITH A " -INPUT @ TO RETURN TO MENU - 1 .? LINE ONE - 2 .? LINE TWO - 3 .? LINE THREE - 4 .? @ - MENU - -0.QUIT -1.DISPLAY TEXT FILE WITH LINE NUMBERS -2.PRINT TEXT FILE WITHOUT NUMBERS -3.SAVE TEXT FILE ON CASSETTE. -4.SAVE A TEXTFILE ON DISKETTE -5.READ TEXT FILE FROM CASSETTE. -6.READ TEXTFILE FROM DISKETTE -7.CHANGE A LINE. -8.DELETE A LINE. -9.INSERT A LINE -10.ADD TO OR START TEXT FILE -11. PRINT FILE OUT ONTO LINE PRINTER -12. MERGE WITH MAILPAC - -ENTER NUMBER OF YOUR CHOICE? 1 - 1.LINE ONE - 2.LINE TWO - 3.LINE THREE - -PRESS ENTER TO RETURN TO MENU? - MENU - -0.QUIT -1.DISPLAY TEXT FILE WITH LINE NUMBERS -2.PRINT TEXT FILE WITHOUT NUMBERS -3.SAVE TEXT FILE ON CASSETTE. -4.SAVE A TEXTFILE ON DISKETTE -5.READ TEXT FILE FROM CASSETTE. -6.READ TEXTFILE FROM DISKETTE -7.CHANGE A LINE. -8.DELETE A LINE. -9.INSERT A LINE -10.ADD TO OR START TEXT FILE -11. PRINT FILE OUT ONTO LINE PRINTER -12. MERGE WITH MAILPAC - -ENTER NUMBER OF YOUR CHOICE? 4 -TEXTFILE TO BE SAVED ON DISKETTE -PRESENT TEXFILE NAME IS -ENTER NEW TEXTFILE NAME( FOR NO CHANGE)? LETWRT.DAT -PRESS ENTER WHEN DISKETTE IS READY ? - - 3 LINES TO BE SAVED. - MENU - -0.QUIT -1.DISPLAY TEXT FILE WITH LINE NUMBERS -2.PRINT TEXT FILE WITHOUT NUMBERS -3.SAVE TEXT FILE ON CASSETTE. -4.SAVE A TEXTFILE ON DISKETTE -5.READ TEXT FILE FROM CASSETTE. -6.READ TEXTFILE FROM DISKETTE -7.CHANGE A LINE. -8.DELETE A LINE. -9.INSERT A LINE -10.ADD TO OR START TEXT FILE -11. PRINT FILE OUT ONTO LINE PRINTER -12. MERGE WITH MAILPAC - -ENTER NUMBER OF YOUR CHOICE? 6 -TEXTFILE TO BE READ FROM DISKETTE - -INPUT NAME OF DISK FILE TO BE READ? LETWRT.DAT -PRESS ENTER WHEN DISKETTE IS READY ? - - 3 TEXT LINES TO BE READ - - MENU - -0.QUIT -1.DISPLAY TEXT FILE WITH LINE NUMBERS -2.PRINT TEXT FILE WITHOUT NUMBERS -3.SAVE TEXT FILE ON CASSETTE. -4.SAVE A TEXTFILE ON DISKETTE -5.READ TEXT FILE FROM CASSETTE. -6.READ TEXTFILE FROM DISKETTE -7.CHANGE A LINE. -8.DELETE A LINE. -9.INSERT A LINE -10.ADD TO OR START TEXT FILE -11. PRINT FILE OUT ONTO LINE PRINTER -12. MERGE WITH MAILPAC - -ENTER NUMBER OF YOUR CHOICE? 11 -IF PRINTING WITH LINE #'S PRESS 1,ELSE PRESS 0? 1 - -PRESS ENTER WHEN LINE PRINTER READY? - MENU - -0.QUIT -1.DISPLAY TEXT FILE WITH LINE NUMBERS -2.PRINT TEXT FILE WITHOUT NUMBERS -3.SAVE TEXT FILE ON CASSETTE. -4.SAVE A TEXTFILE ON DISKETTE -5.READ TEXT FILE FROM CASSETTE. -6.READ TEXTFILE FROM DISKETTE -7.CHANGE A LINE. -8.DELETE A LINE. -9.INSERT A LINE -10.ADD TO OR START TEXT FILE -11. PRINT FILE OUT ONTO LINE PRINTER -12. MERGE WITH MAILPAC - -ENTER NUMBER OF YOUR CHOICE? 0 diff --git a/bwbtest/T80A/LOANAFFD.BAS b/bwbtest/T80A/LOANAFFD.BAS deleted file mode 100644 index 45d92e4..0000000 --- a/bwbtest/T80A/LOANAFFD.BAS +++ /dev/null @@ -1,33 +0,0 @@ -1 REM LOANAFFD -5 CLEAR 1000 -10 CLS:PRINT TAB(10); "AMOUNT OF LOAN HOME BUYER CAN AFFORD":PRINT -20 PRINT "ONE SIMPLE METHOD FOR DETERMINING WHETHER TO GIVE A MORTGAGE -25 PRINT "TO AN APPLICANT IS TO SEE IF THE MONTHLY MORTGAGE PAYMENT -30 PRINT "WOULD BE MORE THAN A CERTAIN FIXED PER CENT OF THAT -35 PRINT "APPLICANT'S GROSS MONTHLY INCOME. IN THIS PROGRAM THE -40 PRINT "MORTGAGE INTEREST RATE AND TERM IS KNOWN, ALONG WITH THE -45 PRINT "APPLICANT'S GROSS MONTHLY INCOME AND THE FIXED PER CENT -50 PRINT "MENTIONED ABOVE. IN ADDITION WE KNOW WHAT PER CENT OF THE -52 PRINT "MONTHLY PAYMENT GOES FOR TAXES AND INSURANCE(MORTGAGE PAYMENT -53 PRINT "IS NOT ALL FOR BANK). WITH THIS INFORMATION THE PROGRAM OUTPUTS -55 PRINT "THE MAXIMUM MORTGAGE AMOUNT THAT THE APPLICANT CAN SUPPORT -70 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT "ENTER APPLICANT'S GROSS MONTHLY INCOME ";MG -120 INPUT "ENTER FIXED PER CENT ";P:P=P/100 -125 AMT=MG*P -127 INPUT "ENTER TAX-INS % OF TOTAL PAYMENT ";P1:P1=P1/100 -128 PMT=AMT*(1-P1) -130 INPUT "ENTER ANNUAL MORTGAGE INT RATE(%) ";I:I=I/1200 -135 REM I IS NOW MONTHLY RATE AS DECIMAL -140 INPUT "ENTER LENGTH OF MORTGAGE(YEARS) ";N:N=12*N -150 PV=PMT*(1/I)*(1-(1+I)[(-N))+BAL*(1+I)[(-N) -200 PRINT -210 PRINT USING "MAXIMUM MONTHLY PAYMENT AMOUNT IS $$######";AMT -212 PRINT USING "CONTAINING INSURANCE AND TAXES OF $$####.##";AMT-PMT -215 PRINT USING "MAXIMUM MONTHLY PAYMENT FOR MORTGAGE IS $$####.##";PMT -220 PRINT -230 PRINT USING "MAXIMUM MORTGAGE LOAN AVAILABLE IS $$######";PV -240 PRINT :INPUT "PRESS ENTER FOR MORE COMPUTATION";Z9$ -250 IF Z9$ = "-1" THEN END -260 GOTO 100 diff --git a/bwbtest/T80A/LOANAFFD.INP b/bwbtest/T80A/LOANAFFD.INP deleted file mode 100644 index d4caf29..0000000 --- a/bwbtest/T80A/LOANAFFD.INP +++ /dev/null @@ -1,7 +0,0 @@ - -1234 -5 -25 -3.75 -30 --1 diff --git a/bwbtest/T80A/LOANAFFD.run b/bwbtest/T80A/LOANAFFD.run deleted file mode 100644 index 33dde48..0000000 --- a/bwbtest/T80A/LOANAFFD.run +++ /dev/null @@ -1,27 +0,0 @@ - AMOUNT OF LOAN HOME BUYER CAN AFFORD - -ONE SIMPLE METHOD FOR DETERMINING WHETHER TO GIVE A MORTGAGE -TO AN APPLICANT IS TO SEE IF THE MONTHLY MORTGAGE PAYMENT -WOULD BE MORE THAN A CERTAIN FIXED PER CENT OF THAT -APPLICANT'S GROSS MONTHLY INCOME. IN THIS PROGRAM THE -MORTGAGE INTEREST RATE AND TERM IS KNOWN, ALONG WITH THE -APPLICANT'S GROSS MONTHLY INCOME AND THE FIXED PER CENT -MENTIONED ABOVE. IN ADDITION WE KNOW WHAT PER CENT OF THE -MONTHLY PAYMENT GOES FOR TAXES AND INSURANCE(MORTGAGE PAYMENT -IS NOT ALL FOR BANK). WITH THIS INFORMATION THE PROGRAM OUTPUTS -THE MAXIMUM MORTGAGE AMOUNT THAT THE APPLICANT CAN SUPPORT - -PRESS ENTER TO BEGIN? -ENTER APPLICANT'S GROSS MONTHLY INCOME ? 1234 -ENTER FIXED PER CENT ? 5 -ENTER TAX-INS % OF TOTAL PAYMENT ? 25 -ENTER ANNUAL MORTGAGE INT RATE(%) ? 3.75 -ENTER LENGTH OF MORTGAGE(YEARS) ? 30 - -MAXIMUM MONTHLY PAYMENT AMOUNT IS $62 -CONTAINING INSURANCE AND TAXES OF $15.42 -MAXIMUM MONTHLY PAYMENT FOR MORTGAGE IS $46.28 - -MAXIMUM MORTGAGE LOAN AVAILABLE IS $9992 - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/LOANPAY.BAS b/bwbtest/T80A/LOANPAY.BAS deleted file mode 100644 index 2d76898..0000000 --- a/bwbtest/T80A/LOANPAY.BAS +++ /dev/null @@ -1,26 +0,0 @@ -1 REM MODEBTPA -5 CLS -10 PRINT " LOAN DEBT PAYMENT" -20 PRINT -30 PRINT "THIS PROGRAM COMPUTES THE AMOUNT REQUIRED AS A -35 PRINT "MONTHLY PAYMENT TO PAY OFF A LOAN IN A GIVEN -40 PRINT "NUMBER OF PAYMENTS IF THE NOMINAL INTEREST RATE -45 PRINT "IS KNOWN. -50 PRINT -55 INPUT "PRESS ENTER WHEN READY TO BEGIN";Z9 -100 CLS -110 INPUT "WHAT IS THE AMOUNT OF THE LOAN ";P -120 INPUT "HOW MANY PAYMENTS ARE NEEDED ";N -130 INPUT "WHAT IS THE NOMINAL INTEREST RATE(%)";I -140 I=I/1200 :REM MONTHLY INTEREST RATE -145 IF I=0 THEN DP=P/N: GOTO 160 -150 DP=P*I*(1+I)[N/((1+I)[N-1) -160 PRINT -170 F$(1)=" MONTHLY PAYMENT EQUALS $$#####.##" -180 PRINT USING F$(1);DP -200 INPUT "INPUT 0 TO END,1 FOR NEW LOAN,2 FOR NEW INTEREST RATE";Z9 -210 IF Z9=1 THEN GOTO 100 -220 IF Z9=0 THEN END -225 IF Z9=2 THEN GOTO 130 -230 PRINT "INPUT ERROR. TRY AGAIN":PRINT :GOTO 200 - diff --git a/bwbtest/T80A/LOANPAY.INP b/bwbtest/T80A/LOANPAY.INP deleted file mode 100644 index e586315..0000000 --- a/bwbtest/T80A/LOANPAY.INP +++ /dev/null @@ -1,5 +0,0 @@ - -123456 -360 -3.75 -0 diff --git a/bwbtest/T80A/LOANPAY.run b/bwbtest/T80A/LOANPAY.run deleted file mode 100644 index d294be1..0000000 --- a/bwbtest/T80A/LOANPAY.run +++ /dev/null @@ -1,14 +0,0 @@ - LOAN DEBT PAYMENT - -THIS PROGRAM COMPUTES THE AMOUNT REQUIRED AS A -MONTHLY PAYMENT TO PAY OFF A LOAN IN A GIVEN -NUMBER OF PAYMENTS IF THE NOMINAL INTEREST RATE -IS KNOWN. - -PRESS ENTER WHEN READY TO BEGIN? -WHAT IS THE AMOUNT OF THE LOAN ? 123456 -HOW MANY PAYMENTS ARE NEEDED ? 360 -WHAT IS THE NOMINAL INTEREST RATE(%)? 3.75 - - MONTHLY PAYMENT EQUALS $571.74 -INPUT 0 TO END,1 FOR NEW LOAN,2 FOR NEW INTEREST RATE? 0 diff --git a/bwbtest/T80A/MAILPAC.BAS b/bwbtest/T80A/MAILPAC.BAS deleted file mode 100644 index 8723455..0000000 --- a/bwbtest/T80A/MAILPAC.BAS +++ /dev/null @@ -1,162 +0,0 @@ -1 REM MAILPAC -5 CLEAR 9000 :CLS :P1=1 :DIM A$(100) -10 DIM NL$(100),N1$(100),N2$(100),CO$(100),A1$(100),A2$(100) -12 PRINT " MAILING LIST PROGRAM ":PRINT -15 INPUT "ARE DISK DRIVES ATTACHED(Y/N)";ZD$ -17 IF ZD$<>"Y" AND ZD$<>"N" THEN GOSUB 10000:GOTO 15 -20 CLS :PRINT @ 10,"**MENU**" :PRINT :PRINT -25 PRINT "TO QUIT TYPE 0 -30 PRINT "TO BUILD OR ADD TO A FILE TYPE 1 -40 PRINT "TO SEE THE ENTIRE FILE TYPE 2 -50 PRINT "TO SEE AN INDIVIDUAL NAME TYPE 3 -60 PRINT "TO MAKE CORRECTIONS TYPE 4 -70 PRINT "TO SAVE THE CURRENT FILE ON TAPE TYPE 5 -75 PRINT "TO SAVE THE CURRENT FILE ON DISKETTE TYPE 6 -80 PRINT "TO INPUT A FILE FROM TAPE TYPE 7 -82 PRINT "TO INPUT A FILE FROM DISKETTE TYPE 8 -84 PRINT "TO PRINT THE ENTIRE FILE (LINE PRINTER) TYPE 9 -85 PRINT "TO PRINT ALPHABETIZED LIST(LINE PRINTER) TYPE 10 -86 PRINT "TO PRINT AN INDIVIDUAL NAME (LINE PRINTER) TYPE 11 -90 INPUT Q -92 IF Q = 0 THEN END -94 ON Q GOSUB 100,200,300,400,500,550,600,650,700,800,900 -99 GOTO 20 -100 CLS:PRINT "ADDITION OF NAMES TO FILE.";P1-1;" NAMES ALREADY ON FILE" -103 INPUT "PRESS 0 TO ADD NAMES, 1 TO END";X -105 IF X<>0 AND X<>1 THEN GOSUB 10000:GOTO 100 -107 IF X=1 THEN RETURN -110 FOR I=P1 TO 500 :CLS :PRINT "ENTER MEMBERSHIP #(9999 TO END) -112 PRINT "THEN HIT THE 'ENTER' KEY" ;:INPUT NL$(I) -115 IF NL$(I)="9999" THEN P1=I :I=500:GOTO 140 -117 INPUT "ENTER FIRST NAME"; N1$(I) -118 INPUT "ENTER LAST NAME"; N2$(I) -119 INPUT "ENTER COMPANY NAME OR APARTMENT #"; CO$(I) -120 INPUT "ENTER YOUR ADDRESS"; A1$(I) -130 INPUT "ENTER CITY,STATE AND ZIP CODE"; A2$(I) -140 NEXT -150 PRINT "FILE CLOSED--" :INPUT "TO SEE THE MENU HIT ENTER"; X -160 RETURN -200 CLS :FOR I=1 TO P1-1 -210 GOSUB 4000 -220 FOR JJ=1 TO 100:NEXT -260 NEXT -270 INPUT "TO SEE THE MENU, HIT ENTER"; X :RETURN -300 CLS :INPUT "ENTER LAST NAME"; N2$ -310 I=0 -312 I=I+1:IF N2$=N2$(I) THEN GOTO 330 -315 IF I0 THEN LPRINT CO$ -740 LPRINT A1$(I) -750 LPRINT A2$(I) -768 LPRINT " " -770 IF LEN(CO$)=0 THEN LPRINT " " -780 NEXT -790 INPUT "TO SEE THE MENU, HIT ENTER"; X:RETURN -800 N=P1-1 -805 FOR I=1 TO N -810 A$(I)=N2$(I)+N1$(I) -815 NEXT -820 CLS :K=0 -825 I=1 -830 FOR J=2 TO N -835 IF A$(I)1 THEN GOTO 912 -935 LPRINT NL$(I) -940 LPRINT N1$(I);" ";N2$(I) -949 CO$=CO$(I) -950 IF LEN(CO$)>0 THEN LPRINT CO$(I) -955 LPRINT A1$(I) -960 LPRINT A2$(I) -965 LPRINT " " -966 IF LEN(CO$)=0 THEN LPRINT " " -970 PRINT :PRINT "FOR ANOTHER NAME TYPE 1, OTHERWISE 0" :INPUT X -980 IF X=1 THEN GOTO 900 : ELSE RETURN -4000 REM PRINT INFORMATION ABOUT 1 NAME -4010 PRINT NL$(I) -4020 PRINT N1$(I);" ";N2$(I) -4030 CO$=CO$(I) -4040 IF LEN(CO$)>0 THEN PRINT CO$ -4050 PRINT A1$(I) -4060 PRINT A2$(I) -4099 RETURN -10000 PRINT "INPUT ERROR! TRY AGAIN!":FOR JJ=1 TO 400:NEXT :RETURN - diff --git a/bwbtest/T80A/MAILPAC.DAT b/bwbtest/T80A/MAILPAC.DAT deleted file mode 100644 index 7486bcf..0000000 --- a/bwbtest/T80A/MAILPAC.DAT +++ /dev/null @@ -1,4 +0,0 @@ -3 -"12","JERRY","MOUSE","WARNER BROTHERS","12345 FUNNY LANE","SOMEWHERE TX 98765","" -"7","TOM","CAT","FOX NETWORK","846 ANOTHER DRIVE","ANOTHER TX 63941","" -"9999","","","","","","" diff --git a/bwbtest/T80A/MAILPAC.INP b/bwbtest/T80A/MAILPAC.INP deleted file mode 100644 index a84bbcc..0000000 --- a/bwbtest/T80A/MAILPAC.INP +++ /dev/null @@ -1,33 +0,0 @@ -Y -1 -0 -12 -JERRY -MOUSE -WARNER BROTHERS -12345 FUNNY LANE -SOMEWHERE TX 98765 -7 -TOM -CAT -FOX NETWORK -846 ANOTHER DRIVE -ANOTHER TX 63941 -9999 - -2 - -6 -MAILPAC.DAT - -8 -MAILPAC.DAT -9 - -10 - -11 -MOUSE -1 -0 -0 diff --git a/bwbtest/T80A/MAILPAC.run b/bwbtest/T80A/MAILPAC.run deleted file mode 100644 index eb13082..0000000 --- a/bwbtest/T80A/MAILPAC.run +++ /dev/null @@ -1,181 +0,0 @@ - MAILING LIST PROGRAM - -ARE DISK DRIVES ATTACHED(Y/N)? Y -**MENU** - - -TO QUIT TYPE 0 -TO BUILD OR ADD TO A FILE TYPE 1 -TO SEE THE ENTIRE FILE TYPE 2 -TO SEE AN INDIVIDUAL NAME TYPE 3 -TO MAKE CORRECTIONS TYPE 4 -TO SAVE THE CURRENT FILE ON TAPE TYPE 5 -TO SAVE THE CURRENT FILE ON DISKETTE TYPE 6 -TO INPUT A FILE FROM TAPE TYPE 7 -TO INPUT A FILE FROM DISKETTE TYPE 8 -TO PRINT THE ENTIRE FILE (LINE PRINTER) TYPE 9 -TO PRINT ALPHABETIZED LIST(LINE PRINTER) TYPE 10 -TO PRINT AN INDIVIDUAL NAME (LINE PRINTER) TYPE 11 -? 1 -ADDITION OF NAMES TO FILE. 0 NAMES ALREADY ON FILE -PRESS 0 TO ADD NAMES, 1 TO END? 0 -ENTER MEMBERSHIP #(9999 TO END) -THEN HIT THE 'ENTER' KEY? 12 -ENTER FIRST NAME? JERRY -ENTER LAST NAME? MOUSE -ENTER COMPANY NAME OR APARTMENT #? WARNER BROTHERS -ENTER YOUR ADDRESS? 12345 FUNNY LANE -ENTER CITY,STATE AND ZIP CODE? SOMEWHERE TX 98765 -ENTER MEMBERSHIP #(9999 TO END) -THEN HIT THE 'ENTER' KEY? 7 -ENTER FIRST NAME? TOM -ENTER LAST NAME? CAT -ENTER COMPANY NAME OR APARTMENT #? FOX NETWORK -ENTER YOUR ADDRESS? 846 ANOTHER DRIVE -ENTER CITY,STATE AND ZIP CODE? ANOTHER TX 63941 -ENTER MEMBERSHIP #(9999 TO END) -THEN HIT THE 'ENTER' KEY? 9999 -FILE CLOSED-- -TO SEE THE MENU HIT ENTER? -**MENU** - - -TO QUIT TYPE 0 -TO BUILD OR ADD TO A FILE TYPE 1 -TO SEE THE ENTIRE FILE TYPE 2 -TO SEE AN INDIVIDUAL NAME TYPE 3 -TO MAKE CORRECTIONS TYPE 4 -TO SAVE THE CURRENT FILE ON TAPE TYPE 5 -TO SAVE THE CURRENT FILE ON DISKETTE TYPE 6 -TO INPUT A FILE FROM TAPE TYPE 7 -TO INPUT A FILE FROM DISKETTE TYPE 8 -TO PRINT THE ENTIRE FILE (LINE PRINTER) TYPE 9 -TO PRINT ALPHABETIZED LIST(LINE PRINTER) TYPE 10 -TO PRINT AN INDIVIDUAL NAME (LINE PRINTER) TYPE 11 -? 2 -12 -JERRY MOUSE -WARNER BROTHERS -12345 FUNNY LANE -SOMEWHERE TX 98765 -7 -TOM CAT -FOX NETWORK -846 ANOTHER DRIVE -ANOTHER TX 63941 -TO SEE THE MENU, HIT ENTER? -**MENU** - - -TO QUIT TYPE 0 -TO BUILD OR ADD TO A FILE TYPE 1 -TO SEE THE ENTIRE FILE TYPE 2 -TO SEE AN INDIVIDUAL NAME TYPE 3 -TO MAKE CORRECTIONS TYPE 4 -TO SAVE THE CURRENT FILE ON TAPE TYPE 5 -TO SAVE THE CURRENT FILE ON DISKETTE TYPE 6 -TO INPUT A FILE FROM TAPE TYPE 7 -TO INPUT A FILE FROM DISKETTE TYPE 8 -TO PRINT THE ENTIRE FILE (LINE PRINTER) TYPE 9 -TO PRINT ALPHABETIZED LIST(LINE PRINTER) TYPE 10 -TO PRINT AN INDIVIDUAL NAME (LINE PRINTER) TYPE 11 -? 6 -SAVING FILE ON DISKETTE - -PRESENT MAIL FILE NAME IS NEW NAME ? MAILPAC.DAT - 3 ITEMS IN MAILING LIST INCLUDING TRAILER. -PRESS ENTER WHEN DISKETTE IS READY? -**MENU** - - -TO QUIT TYPE 0 -TO BUILD OR ADD TO A FILE TYPE 1 -TO SEE THE ENTIRE FILE TYPE 2 -TO SEE AN INDIVIDUAL NAME TYPE 3 -TO MAKE CORRECTIONS TYPE 4 -TO SAVE THE CURRENT FILE ON TAPE TYPE 5 -TO SAVE THE CURRENT FILE ON DISKETTE TYPE 6 -TO INPUT A FILE FROM TAPE TYPE 7 -TO INPUT A FILE FROM DISKETTE TYPE 8 -TO PRINT THE ENTIRE FILE (LINE PRINTER) TYPE 9 -TO PRINT ALPHABETIZED LIST(LINE PRINTER) TYPE 10 -TO PRINT AN INDIVIDUAL NAME (LINE PRINTER) TYPE 11 -? 8 -FILE TO BE READ IN FROM DISKETTE - - ENTER NAME OF FILE TO BE READ ? MAILPAC.DAT - - 2 NAMES TO BE INPUT -**MENU** - - -TO QUIT TYPE 0 -TO BUILD OR ADD TO A FILE TYPE 1 -TO SEE THE ENTIRE FILE TYPE 2 -TO SEE AN INDIVIDUAL NAME TYPE 3 -TO MAKE CORRECTIONS TYPE 4 -TO SAVE THE CURRENT FILE ON TAPE TYPE 5 -TO SAVE THE CURRENT FILE ON DISKETTE TYPE 6 -TO INPUT A FILE FROM TAPE TYPE 7 -TO INPUT A FILE FROM DISKETTE TYPE 8 -TO PRINT THE ENTIRE FILE (LINE PRINTER) TYPE 9 -TO PRINT ALPHABETIZED LIST(LINE PRINTER) TYPE 10 -TO PRINT AN INDIVIDUAL NAME (LINE PRINTER) TYPE 11 -? 9 -TO SEE THE MENU, HIT ENTER? -**MENU** - - -TO QUIT TYPE 0 -TO BUILD OR ADD TO A FILE TYPE 1 -TO SEE THE ENTIRE FILE TYPE 2 -TO SEE AN INDIVIDUAL NAME TYPE 3 -TO MAKE CORRECTIONS TYPE 4 -TO SAVE THE CURRENT FILE ON TAPE TYPE 5 -TO SAVE THE CURRENT FILE ON DISKETTE TYPE 6 -TO INPUT A FILE FROM TAPE TYPE 7 -TO INPUT A FILE FROM DISKETTE TYPE 8 -TO PRINT THE ENTIRE FILE (LINE PRINTER) TYPE 9 -TO PRINT ALPHABETIZED LIST(LINE PRINTER) TYPE 10 -TO PRINT AN INDIVIDUAL NAME (LINE PRINTER) TYPE 11 -? 10 - -TO SEE MENU PRESS ENTER? -**MENU** - - -TO QUIT TYPE 0 -TO BUILD OR ADD TO A FILE TYPE 1 -TO SEE THE ENTIRE FILE TYPE 2 -TO SEE AN INDIVIDUAL NAME TYPE 3 -TO MAKE CORRECTIONS TYPE 4 -TO SAVE THE CURRENT FILE ON TAPE TYPE 5 -TO SAVE THE CURRENT FILE ON DISKETTE TYPE 6 -TO INPUT A FILE FROM TAPE TYPE 7 -TO INPUT A FILE FROM DISKETTE TYPE 8 -TO PRINT THE ENTIRE FILE (LINE PRINTER) TYPE 9 -TO PRINT ALPHABETIZED LIST(LINE PRINTER) TYPE 10 -TO PRINT AN INDIVIDUAL NAME (LINE PRINTER) TYPE 11 -? 11 -ENTER LAST NAME? MOUSE -12 JERRY MOUSE -PRESS 1 IF CORRECT NAME,ELSE 2? 1 - -FOR ANOTHER NAME TYPE 1, OTHERWISE 0 -? 0 -**MENU** - - -TO QUIT TYPE 0 -TO BUILD OR ADD TO A FILE TYPE 1 -TO SEE THE ENTIRE FILE TYPE 2 -TO SEE AN INDIVIDUAL NAME TYPE 3 -TO MAKE CORRECTIONS TYPE 4 -TO SAVE THE CURRENT FILE ON TAPE TYPE 5 -TO SAVE THE CURRENT FILE ON DISKETTE TYPE 6 -TO INPUT A FILE FROM TAPE TYPE 7 -TO INPUT A FILE FROM DISKETTE TYPE 8 -TO PRINT THE ENTIRE FILE (LINE PRINTER) TYPE 9 -TO PRINT ALPHABETIZED LIST(LINE PRINTER) TYPE 10 -TO PRINT AN INDIVIDUAL NAME (LINE PRINTER) TYPE 11 -? 0 diff --git a/bwbtest/T80A/MARKUP.BAS b/bwbtest/T80A/MARKUP.BAS deleted file mode 100644 index 4e3b424..0000000 --- a/bwbtest/T80A/MARKUP.BAS +++ /dev/null @@ -1,55 +0,0 @@ -1 REM MARKUP -5 CLEAR 1000 -10 CLS -20 PRINT TAB(15); "MARKUP ANALYSIS":PRINT -30 PRINT "MARKUP IS THE GROSS PROFIT A BUSINESSMAN MAKES ON AN ITEM -35 PRINT "EXPRESSED EITHER AS A PER CENT OF COST OR SELLING PRICE. -40 PRINT "THE PRESENT PROGRAM DETERMINES THE SELLING PRICE GIVEN THE -45 PRINT "PRICE AND MARKUP. ALSO, GIVEN COST AND SELLING PRICE THE -50 PRINT "PROGRAM CAN COMPUTE MARKUP BASED ON SELLING PRICE AND COST. -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -95 GOSUB 9000 -100 CLS:PRINT TAB(10); "MENU":PRINT -105 PRINT "0. QUIT" -110 PRINT "1. COMPUTE GROSS MARKUP BASED ON COST" -120 PRINT "2. COMPUTE GROSS MARKUP BASED ON SELLING PRICE -130 PRINT "3. COMPUTE GROSS MARKUP GIVEN COST AND SELLING PRICE -190 PRINT :INPUT "MAKE YOUR CHOICE";Z9 -195 IF Z9 = 0 THEN END -200 ON Z9 GOSUB 500,600,700 -210 GOTO 100 -500 REM GROSS MARKUP BASED UPON COST -510 CLS -520 PRINT "GROSS MARKUP BASED UPON COST":PRINT -530 INPUT "ENTER COST IN DOLLARS";C -540 INPUT "ENTER MARKUP AS % ";M:M=M/100 -550 SP=C*(1+M) -560 PRINT USING F$(1);SP -570 PRINT :GOSUB 10100 -580 RETURN -600 REM GROSS MARKUP BASED UPON SELLING PRICE -610 CLS -620 PRINT "GROSS MARKUP BASED UPON SELLING PRICE":PRINT -630 INPUT "ENTER COST IN DOLLARS";C -640 INPUT "ENTER MARKUP AS % ";M:M=M/100 -650 SP=C/(1-M) -660 PRINT USING F$(1);SP -670 PRINT :GOSUB 10100 -680 RETURN -700 REM GROSS MARKUP GIVEN COST & SELLING PRICE -710 CLS:PRINT "GROSS MARKUP GIVEN COST & SELLING PRICE":PRINT -720 INPUT "INPUT COST ";C -730 INPUT "INPUT SELLING PRICE";SP -740 MC=100*(SP/C- 1) : MSP=100*(1 - C/SP) -750 PRINT -760 PRINT "GROSS MARKUP BASED UPON COST IS ";:PRINT USING F$(2);MC;:PRINT "%" -770 PRINT -780 PRINT "GROSS MARKUP BASED UPON SELLING PRICE IS ";:PRINT USING F$(2);MSP;:PRINT "%" -790 PRINT : GOSUB 10100 -795 RETURN -9000 REM FORMATS -9010 F$(1)="SELLING PRICE IS $$#######.##" -9020 F$(2)="###.###" -9099 RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/MARKUP.INP b/bwbtest/T80A/MARKUP.INP deleted file mode 100644 index 9006018..0000000 --- a/bwbtest/T80A/MARKUP.INP +++ /dev/null @@ -1,14 +0,0 @@ - -1 -2345 -67 - -2 -45 -23 - -3 -87 -123 - -0 diff --git a/bwbtest/T80A/MARKUP.run b/bwbtest/T80A/MARKUP.run deleted file mode 100644 index c0c0f51..0000000 --- a/bwbtest/T80A/MARKUP.run +++ /dev/null @@ -1,65 +0,0 @@ - MARKUP ANALYSIS - -MARKUP IS THE GROSS PROFIT A BUSINESSMAN MAKES ON AN ITEM -EXPRESSED EITHER AS A PER CENT OF COST OR SELLING PRICE. -THE PRESENT PROGRAM DETERMINES THE SELLING PRICE GIVEN THE -PRICE AND MARKUP. ALSO, GIVEN COST AND SELLING PRICE THE -PROGRAM CAN COMPUTE MARKUP BASED ON SELLING PRICE AND COST. - -PRESS ENTER TO BEGIN? - MENU - -0. QUIT -1. COMPUTE GROSS MARKUP BASED ON COST -2. COMPUTE GROSS MARKUP BASED ON SELLING PRICE -3. COMPUTE GROSS MARKUP GIVEN COST AND SELLING PRICE - -MAKE YOUR CHOICE? 1 -GROSS MARKUP BASED UPON COST - -ENTER COST IN DOLLARS? 2345 -ENTER MARKUP AS % ? 67 -SELLING PRICE IS $3916.15 - -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. COMPUTE GROSS MARKUP BASED ON COST -2. COMPUTE GROSS MARKUP BASED ON SELLING PRICE -3. COMPUTE GROSS MARKUP GIVEN COST AND SELLING PRICE - -MAKE YOUR CHOICE? 2 -GROSS MARKUP BASED UPON SELLING PRICE - -ENTER COST IN DOLLARS? 45 -ENTER MARKUP AS % ? 23 -SELLING PRICE IS $58.44 - -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. COMPUTE GROSS MARKUP BASED ON COST -2. COMPUTE GROSS MARKUP BASED ON SELLING PRICE -3. COMPUTE GROSS MARKUP GIVEN COST AND SELLING PRICE - -MAKE YOUR CHOICE? 3 -GROSS MARKUP GIVEN COST & SELLING PRICE - -INPUT COST ? 87 -INPUT SELLING PRICE? 123 - -GROSS MARKUP BASED UPON COST IS 41.379% - -GROSS MARKUP BASED UPON SELLING PRICE IS 29.268% - -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. COMPUTE GROSS MARKUP BASED ON COST -2. COMPUTE GROSS MARKUP BASED ON SELLING PRICE -3. COMPUTE GROSS MARKUP GIVEN COST AND SELLING PRICE - -MAKE YOUR CHOICE? 0 diff --git a/bwbtest/T80A/MERGANAL.BAS b/bwbtest/T80A/MERGANAL.BAS deleted file mode 100644 index 6858d63..0000000 --- a/bwbtest/T80A/MERGANAL.BAS +++ /dev/null @@ -1,25 +0,0 @@ -1 REM MERGANAL -5 CLEAR 1000 -10 CLS -20 PRINT TAB(15); "MERGER ANALYSIS":PRINT -30 PRINT "ONE OF THE MAJOR TOPICS DISCUSSED IN MERGER AND ACQUISITION -35 PRINT "ANALYSIS IS WHAT THE WORTH OF THE POTENTIAL ACQUISITION IS. -40 PRINT "THIS PROGRAM DOES A VALUATION CALCULATION FOR A LEVERED FIRM. -45 PRINT "THERE ARE SEVERAL INPUTS. OUTPUT IS THE VALUE OF THE FIRM. -50 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT "PRESENT TOTAL VALUE OF FIRM'S STOCK";V -120 INPUT "EARNINGS BEFORE INTEREST AND TAXES ";EB -130 INPUT "INCOME TAX RATE(%) ";H:H=H/100 -140 INPUT "MARKET VALUE OF FIRM'S DEBT ";Z -145 V=V+Z -150 KH = EB*(1 - H)/(V-H*Z): REM AFTER TAX DISCOUNT RATE FOR UNLEVERED FIRM -155 INPUT "HOW MUCH DEBT CAN FIRM HANDLE";Z -160 INPUT "WHAT WILL FUTURE TAX RATE BE";H:H=H/100 -163 INPUT "ENTER FUTURE EARNINGS BEFORE INTEREST & TAXES";EB -165 V1 = EB*(1-H)/KH + H*Z -170 PRINT : PRINT USING "VALUE OF THE FIRM FOR ACQUISITION = $#########";V1 -180 PRINT :INPUT "PRESS ENTER FOR MORE COMPUTATION";Z9$ -185 IF Z9$ = "-1" THEN END -190 GOTO 100 - diff --git a/bwbtest/T80A/MERGANAL.INP b/bwbtest/T80A/MERGANAL.INP deleted file mode 100644 index 58c47e3..0000000 --- a/bwbtest/T80A/MERGANAL.INP +++ /dev/null @@ -1,9 +0,0 @@ - -23456 -13 -38 -11998 -987654 -11 -765432 --1 diff --git a/bwbtest/T80A/MERGANAL.run b/bwbtest/T80A/MERGANAL.run deleted file mode 100644 index 50cfb0e..0000000 --- a/bwbtest/T80A/MERGANAL.run +++ /dev/null @@ -1,19 +0,0 @@ - MERGER ANALYSIS - -ONE OF THE MAJOR TOPICS DISCUSSED IN MERGER AND ACQUISITION -ANALYSIS IS WHAT THE WORTH OF THE POTENTIAL ACQUISITION IS. -THIS PROGRAM DOES A VALUATION CALCULATION FOR A LEVERED FIRM. -THERE ARE SEVERAL INPUTS. OUTPUT IS THE VALUE OF THE FIRM. - -PRESS ENTER TO BEGIN? -PRESENT TOTAL VALUE OF FIRM'S STOCK? 23456 -EARNINGS BEFORE INTEREST AND TAXES ? 13 -INCOME TAX RATE(%) ? 38 -MARKET VALUE OF FIRM'S DEBT ? 11998 -HOW MUCH DEBT CAN FIRM HANDLE? 987654 -WHAT WILL FUTURE TAX RATE BE? 11 -ENTER FUTURE EARNINGS BEFORE INTEREST & TAXES? 765432 - -VALUE OF THE FIRM FOR ACQUISITION = $2611346330 - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/MONTH1 b/bwbtest/T80A/MONTH1 deleted file mode 100644 index 63593c4..0000000 --- a/bwbtest/T80A/MONTH1 +++ /dev/null @@ -1,46 +0,0 @@ -1 -0,0,0 -234.56,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -0,0,0 -1 -1,234.56,7 diff --git a/bwbtest/T80A/MORTGAGE.BAS b/bwbtest/T80A/MORTGAGE.BAS deleted file mode 100644 index 487bdc0..0000000 --- a/bwbtest/T80A/MORTGAGE.BAS +++ /dev/null @@ -1,77 +0,0 @@ -5 CLS -10 PRINT " MORTGAGE AMORTIZATION" -20 PRINT -30 PRINT "THIS PROGRAM WILL PRINT A TABLE DESCRIBING MORTGAGE REPAYMENT. -40 PRINT "INPUT IS THE MORTGAGE PRINCIPAL,MONTHLY PAYMENT,TERM IN YEARS, -50 PRINT "AND ANNUAL INTEREST RATE. -60 PRINT "OUTPUT INCLUDES,FOR EACH PAYMENT, AMOUNT AMORTIZED,AMOUNT OF -70 PRINT "INTEREST, AND BALANCE LEFT ON MORTGAGE. -90 PRINT -91 INPUT "IS DELAY AFTER EACH YEAR DESIRED(Y/N)";Z3$ -92 IF Z3$<>"Y" AND Z3$<>"N" THEN GOTO 91 -93 INPUT "IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -94 IF Z2$<>"Y" AND Z2$<>"N" THEN GOTO 93 -95 INPUT "PRESS ENTER TO BEGIN";Z9 -100 CLS -102 GOTO 110 -104 REM DELETE LINE 102 FOR DOUBLE PRECISION BUT SLOW RESULTS -105 DEFDBL A-I,L-X -110 INPUT "MORTGAGE PRINCIPAL = ";P -115 B=P -120 INPUT "MONTHLY PAYMENT = ";M -130 INPUT "TERM OF MORTGAGE = ";Y -140 INPUT "ANNUAL INT. RATE(%)= ";I -150 MI=I/1200 :REM MONTHLY INTEREST RATE -200 NF = 12*Y -205 YR=0:ATX=0:IT=0 -210 IF NF>12 THEN GOTO 300 ' SEE IF MORE THAN 1 YR LEFT -220 AY=0:IY=0 -230 GOSUB 1000 -235 FOR K=1 TO NF-1 -240 GOSUB 1200 -250 NEXT K -260 NF=0 -270 GOSUB 1200 -275 F$(1)="FINAL PAYMENT = $$#####.##" -280 PRINT USING F$(1);A+IPX -285 IF Z2$="Y" THEN LPRINT USING F$(1);A+IPX -295 END -300 REM FIND RESULTS FOR 1 YEAR -305 GOSUB 1000 -307 AY=0:IY=0 -310 FOR K= 1 TO 12 -320 GOSUB 1200 -330 NEXT K -340 NF=NF-12 -345 YR=YR+1 -350 GOSUB 1300 -355 IF Z3$="N" THEN GOTO 210 -360 INPUT "PRESS ENTER FOR ANOTHER YEAR";Z9 -370 GOTO 210 -1000 REM PAGE HEADING SUBROUTINE -1001 V$="%" -1005 A1$="PRIN.=$$#####.## PAYMENT=$$###.## TERM= ##.## YRS RATE=##.# ! -1007 A2$=" NO. INTEREST AMORTIZED BALANCE " -1010 CLS -1020 PRINT USING A1$;P,M,Y,I,V$;:IF Z2$="Y" THEN LPRINT USING A1$;P,M,Y,I,V$ -1030 PRINT A2$:IF Z2$="Y" THEN LPRINT A2$:LPRINT " " -1050 RETURN -1100 REM PRINTING SUBROUTINE FOR MONTHLY PAYMENT -1105 A3$=" ## ###.## ####.## ######.## -1110 PRINT USING A3$;NY,IPX,A,B -1115 IF Z2$="Y" THEN LPRINT USING A3$;NY,IPX,A,B -1120 RETURN -1200 REM COMPUTATION SUBROUTINE -1218 NY=K -1220 IPX=B*MI:A=M-IPX:B=B-A:ATX=ATX+A:IT=IT+IPX:IY=IY+IPX -1225 AY=AY+A -1226 IF NF=0 THEN A=P-ATX-R -1227 IF NF=0 THEN B=0 -1230 GOSUB 1100 -1240 RETURN -1300 REM END OF YEAR SUBROUTINE -1310 A4$="YR.=## ####.## ####.##" -1320 PRINT USING A4$;YR,IY,AY -1325 IF Z2$="Y" THEN LPRINT USING A4$;YR,IY,AY:LPRINT " ":LPRINT " " -1330 RETURN - diff --git a/bwbtest/T80A/MORTGAGE.INP b/bwbtest/T80A/MORTGAGE.INP deleted file mode 100644 index 0e6d547..0000000 --- a/bwbtest/T80A/MORTGAGE.INP +++ /dev/null @@ -1,7 +0,0 @@ -N -Y - -250000 -1234 -30 -4.25 diff --git a/bwbtest/T80A/MORTGAGE.run b/bwbtest/T80A/MORTGAGE.run deleted file mode 100644 index 772bd29..0000000 --- a/bwbtest/T80A/MORTGAGE.run +++ /dev/null @@ -1,465 +0,0 @@ - MORTGAGE AMORTIZATION - -THIS PROGRAM WILL PRINT A TABLE DESCRIBING MORTGAGE REPAYMENT. -INPUT IS THE MORTGAGE PRINCIPAL,MONTHLY PAYMENT,TERM IN YEARS, -AND ANNUAL INTEREST RATE. -OUTPUT INCLUDES,FOR EACH PAYMENT, AMOUNT AMORTIZED,AMOUNT OF -INTEREST, AND BALANCE LEFT ON MORTGAGE. - -IS DELAY AFTER EACH YEAR DESIRED(Y/N)? N -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -PRESS ENTER TO BEGIN? -MORTGAGE PRINCIPAL = ? 250000 -MONTHLY PAYMENT = ? 1234 -TERM OF MORTGAGE = ? 30 -ANNUAL INT. RATE(%)= ? 4.25 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 885.42 348.58 249651.42 - 2 884.18 349.82 249301.60 - 3 882.94 351.06 248950.54 - 4 881.70 352.30 248598.24 - 5 880.45 353.55 248244.69 - 6 879.20 354.80 247889.89 - 7 877.94 356.06 247533.84 - 8 876.68 357.32 247176.52 - 9 875.42 358.58 246817.94 - 10 874.15 359.85 246458.08 - 11 872.87 361.13 246096.96 - 12 871.59 362.41 245734.55 -YR.= 1 10542.55 4265.45 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 870.31 363.69 245370.86 - 2 869.02 364.98 245005.88 - 3 867.73 366.27 244639.61 - 4 866.43 367.57 244272.04 - 5 865.13 368.87 243903.17 - 6 863.82 370.18 243533.00 - 7 862.51 371.49 243161.51 - 8 861.20 372.80 242788.71 - 9 859.88 374.12 242414.58 - 10 858.55 375.45 242039.13 - 11 857.22 376.78 241662.36 - 12 855.89 378.11 241284.24 -YR.= 2 10357.69 4450.31 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 854.55 379.45 240904.79 - 2 853.20 380.80 240524.00 - 3 851.86 382.14 240141.85 - 4 850.50 383.50 239758.35 - 5 849.14 384.86 239373.50 - 6 847.78 386.22 238987.28 - 7 846.41 387.59 238599.69 - 8 845.04 388.96 238210.73 - 9 843.66 390.34 237820.40 - 10 842.28 391.72 237428.68 - 11 840.89 393.11 237035.57 - 12 839.50 394.50 236641.07 -YR.= 3 10164.83 4643.17 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 838.10 395.90 236245.17 - 2 836.70 397.30 235847.88 - 3 835.29 398.71 235449.17 - 4 833.88 400.12 235049.05 - 5 832.47 401.53 234647.52 - 6 831.04 402.96 234244.56 - 7 829.62 404.38 233840.18 - 8 828.18 405.82 233434.36 - 9 826.75 407.25 233027.11 - 10 825.30 408.70 232618.41 - 11 823.86 410.14 232208.27 - 12 822.40 411.60 231796.67 -YR.= 4 9963.60 4844.40 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 820.95 413.05 231383.62 - 2 819.48 414.52 230969.10 - 3 818.02 415.98 230553.12 - 4 816.54 417.46 230135.66 - 5 815.06 418.94 229716.73 - 6 813.58 420.42 229296.31 - 7 812.09 421.91 228874.40 - 8 810.60 423.40 228450.99 - 9 809.10 424.90 228026.09 - 10 807.59 426.41 227599.68 - 11 806.08 427.92 227171.77 - 12 804.57 429.43 226742.33 -YR.= 5 9753.66 5054.34 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 803.05 430.95 226311.38 - 2 801.52 432.48 225878.90 - 3 799.99 434.01 225444.89 - 4 798.45 435.55 225009.34 - 5 796.91 437.09 224572.24 - 6 795.36 438.64 224133.60 - 7 793.81 440.19 223693.41 - 8 792.25 441.75 223251.66 - 9 790.68 443.32 222808.34 - 10 789.11 444.89 222363.45 - 11 787.54 446.46 221916.99 - 12 785.96 448.04 221468.95 -YR.= 6 9534.61 5273.39 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 784.37 449.63 221019.32 - 2 782.78 451.22 220568.09 - 3 781.18 452.82 220115.27 - 4 779.57 454.43 219660.85 - 5 777.97 456.03 219204.81 - 6 776.35 457.65 218747.16 - 7 774.73 459.27 218287.89 - 8 773.10 460.90 217827.00 - 9 771.47 462.53 217364.47 - 10 769.83 464.17 216900.30 - 11 768.19 465.81 216434.49 - 12 766.54 467.46 215967.03 -YR.= 7 9306.08 5501.92 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 764.88 469.12 215497.91 - 2 763.22 470.78 215027.13 - 3 761.55 472.45 214554.69 - 4 759.88 474.12 214080.57 - 5 758.20 475.80 213604.77 - 6 756.52 477.48 213127.29 - 7 754.83 479.17 212648.11 - 8 753.13 480.87 212167.24 - 9 751.43 482.57 211684.67 - 10 749.72 484.28 211200.38 - 11 748.00 486.00 210714.38 - 12 746.28 487.72 210226.66 -YR.= 8 9067.64 5740.36 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 744.55 489.45 209737.22 - 2 742.82 491.18 209246.04 - 3 741.08 492.92 208753.12 - 4 739.33 494.67 208258.45 - 5 737.58 496.42 207762.03 - 6 735.82 498.18 207263.86 - 7 734.06 499.94 206763.92 - 8 732.29 501.71 206262.20 - 9 730.51 503.49 205758.72 - 10 728.73 505.27 205253.44 - 11 726.94 507.06 204746.38 - 12 725.14 508.86 204237.53 -YR.= 9 8818.86 5989.14 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 723.34 510.66 203726.87 - 2 721.53 512.47 203214.40 - 3 719.72 514.28 202700.12 - 4 717.90 516.10 202184.02 - 5 716.07 517.93 201666.08 - 6 714.23 519.77 201146.32 - 7 712.39 521.61 200624.71 - 8 710.55 523.45 200101.26 - 9 708.69 525.31 199575.95 - 10 706.83 527.17 199048.78 - 11 704.96 529.04 198519.74 - 12 703.09 530.91 197988.84 -YR.=10 8559.31 6248.69 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 701.21 532.79 197456.05 - 2 699.32 534.68 196921.37 - 3 697.43 536.57 196384.80 - 4 695.53 538.47 195846.33 - 5 693.62 540.38 195305.95 - 6 691.71 542.29 194763.66 - 7 689.79 544.21 194219.45 - 8 687.86 546.14 193673.31 - 9 685.93 548.07 193125.23 - 10 683.99 550.01 192575.22 - 11 682.04 551.96 192023.26 - 12 680.08 553.92 191469.34 -YR.=11 8288.50 6519.50 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 678.12 555.88 190913.46 - 2 676.15 557.85 190355.61 - 3 674.18 559.82 189795.79 - 4 672.19 561.81 189233.98 - 5 670.20 563.80 188670.18 - 6 668.21 565.79 188104.39 - 7 666.20 567.80 187536.59 - 8 664.19 569.81 186966.79 - 9 662.17 571.83 186394.96 - 10 660.15 573.85 185821.11 - 11 658.12 575.88 185245.23 - 12 656.08 577.92 184667.30 -YR.=12 8005.96 6802.04 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 654.03 579.97 184087.33 - 2 651.98 582.02 183505.31 - 3 649.91 584.09 182921.22 - 4 647.85 586.15 182335.07 - 5 645.77 588.23 181746.84 - 6 643.69 590.31 181156.53 - 7 641.60 592.40 180564.12 - 8 639.50 594.50 179969.62 - 9 637.39 596.61 179373.01 - 10 635.28 598.72 178774.29 - 11 633.16 600.84 178173.45 - 12 631.03 602.97 177570.48 -YR.=13 7711.18 7096.82 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 628.90 605.10 176965.38 - 2 626.75 607.25 176358.13 - 3 624.60 609.40 175748.73 - 4 622.44 611.56 175137.18 - 5 620.28 613.72 174523.45 - 6 618.10 615.90 173907.56 - 7 615.92 618.08 173289.48 - 8 613.73 620.27 172669.21 - 9 611.54 622.46 172046.75 - 10 609.33 624.67 171422.08 - 11 607.12 626.88 170795.20 - 12 604.90 629.10 170166.10 -YR.=14 7403.62 7404.38 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 602.67 631.33 169534.77 - 2 600.44 633.56 168901.21 - 3 598.19 635.81 168265.40 - 4 595.94 638.06 167627.34 - 5 593.68 640.32 166987.02 - 6 591.41 642.59 166344.43 - 7 589.14 644.86 165699.57 - 8 586.85 647.15 165052.42 - 9 584.56 649.44 164402.98 - 10 582.26 651.74 163751.24 - 11 579.95 654.05 163097.20 - 12 577.64 656.36 162440.83 -YR.=15 7082.73 7725.27 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 575.31 658.69 161782.14 - 2 572.98 661.02 161121.12 - 3 570.64 663.36 160457.76 - 4 568.29 665.71 159792.05 - 5 565.93 668.07 159123.98 - 6 563.56 670.44 158453.54 - 7 561.19 672.81 157780.73 - 8 558.81 675.19 157105.54 - 9 556.42 677.58 156427.95 - 10 554.02 679.98 155747.97 - 11 551.61 682.39 155065.58 - 12 549.19 684.81 154380.77 -YR.=16 6747.93 8060.07 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 546.77 687.23 153693.53 - 2 544.33 689.67 153003.86 - 3 541.89 692.11 152311.75 - 4 539.44 694.56 151617.19 - 5 536.98 697.02 150920.17 - 6 534.51 699.49 150220.68 - 7 532.03 701.97 149518.71 - 8 529.55 704.45 148814.25 - 9 527.05 706.95 148107.30 - 10 524.55 709.45 147397.85 - 11 522.03 711.97 146685.88 - 12 519.51 714.49 145971.40 -YR.=17 6398.63 8409.37 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 516.98 717.02 145254.38 - 2 514.44 719.56 144534.82 - 3 511.89 722.11 143812.71 - 4 509.34 724.66 143088.05 - 5 506.77 727.23 142360.82 - 6 504.19 729.81 141631.02 - 7 501.61 732.39 140898.63 - 8 499.02 734.98 140163.64 - 9 496.41 737.59 139426.05 - 10 493.80 740.20 138685.86 - 11 491.18 742.82 137943.03 - 12 488.55 745.45 137197.58 -YR.=18 6034.19 8773.81 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 485.91 748.09 136449.49 - 2 483.26 750.74 135698.75 - 3 480.60 753.40 134945.35 - 4 477.93 756.07 134189.28 - 5 475.25 758.75 133430.53 - 6 472.57 761.43 132669.10 - 7 469.87 764.13 131904.97 - 8 467.16 766.84 131138.13 - 9 464.45 769.55 130368.58 - 10 461.72 772.28 129596.30 - 11 458.99 775.01 128821.29 - 12 456.24 777.76 128043.53 -YR.=19 5653.95 9154.05 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 453.49 780.51 127263.02 - 2 450.72 783.28 126479.74 - 3 447.95 786.05 125693.69 - 4 445.17 788.83 124904.86 - 5 442.37 791.63 124113.23 - 6 439.57 794.43 123318.80 - 7 436.75 797.25 122521.55 - 8 433.93 800.07 121721.48 - 9 431.10 802.90 120918.58 - 10 428.25 805.75 120112.83 - 11 425.40 808.60 119304.23 - 12 422.54 811.46 118492.77 -YR.=20 5257.23 9550.77 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 419.66 814.34 117678.43 - 2 416.78 817.22 116861.21 - 3 413.88 820.12 116041.09 - 4 410.98 823.02 115218.07 - 5 408.06 825.94 114392.13 - 6 405.14 828.86 113563.27 - 7 402.20 831.80 112731.47 - 8 399.26 834.74 111896.73 - 9 396.30 837.70 111059.03 - 10 393.33 840.67 110218.37 - 11 390.36 843.64 109374.72 - 12 387.37 846.63 108528.09 -YR.=21 4843.33 9964.67 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 384.37 849.63 107678.46 - 2 381.36 852.64 106825.82 - 3 378.34 855.66 105970.17 - 4 375.31 858.69 105111.48 - 5 372.27 861.73 104249.75 - 6 369.22 864.78 103384.96 - 7 366.16 867.84 102517.12 - 8 363.08 870.92 101646.20 - 9 360.00 874.00 100772.20 - 10 356.90 877.10 99895.10 - 11 353.80 880.20 99014.89 - 12 350.68 883.32 98131.57 -YR.=22 4411.48 10396.52 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 347.55 886.45 97245.12 - 2 344.41 889.59 96355.53 - 3 341.26 892.74 95462.79 - 4 338.10 895.90 94566.89 - 5 334.92 899.08 93667.81 - 6 331.74 902.26 92765.55 - 7 328.54 905.46 91860.10 - 8 325.34 908.66 90951.43 - 9 322.12 911.88 90039.55 - 10 318.89 915.11 89124.44 - 11 315.65 918.35 88206.09 - 12 312.40 921.60 87284.49 -YR.=23 3960.92 10847.08 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 309.13 924.87 86359.62 - 2 305.86 928.14 85431.48 - 3 302.57 931.43 84500.05 - 4 299.27 934.73 83565.32 - 5 295.96 938.04 82627.28 - 6 292.64 941.36 81685.92 - 7 289.30 944.70 80741.22 - 8 285.96 948.04 79793.18 - 9 282.60 951.40 78841.78 - 10 279.23 954.77 77887.01 - 11 275.85 958.15 76928.86 - 12 272.46 961.54 75967.32 -YR.=24 3490.83 11317.17 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 269.05 964.95 75002.37 - 2 265.63 968.37 74034.01 - 3 262.20 971.80 73062.21 - 4 258.76 975.24 72086.97 - 5 255.31 978.69 71108.28 - 6 251.84 982.16 70126.12 - 7 248.36 985.64 69140.48 - 8 244.87 989.13 68151.36 - 9 241.37 992.63 67158.73 - 10 237.85 996.15 66162.58 - 11 234.33 999.67 65162.91 - 12 230.79 1003.21 64159.69 -YR.=25 3000.37 11807.63 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 227.23 1006.77 63152.92 - 2 223.67 1010.33 62142.59 - 3 220.09 1013.91 61128.68 - 4 216.50 1017.50 60111.18 - 5 212.89 1021.11 59090.07 - 6 209.28 1024.72 58065.35 - 7 205.65 1028.35 57036.99 - 8 202.01 1031.99 56005.00 - 9 198.35 1035.65 54969.35 - 10 194.68 1039.32 53930.03 - 11 191.00 1043.00 52887.04 - 12 187.31 1046.69 51840.35 -YR.=26 2488.65 12319.35 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 183.60 1050.40 50789.95 - 2 179.88 1054.12 49735.83 - 3 176.15 1057.85 48677.98 - 4 172.40 1061.60 47616.38 - 5 168.64 1065.36 46551.02 - 6 164.87 1069.13 45481.89 - 7 161.08 1072.92 44408.97 - 8 157.28 1076.72 43332.25 - 9 153.47 1080.53 42251.72 - 10 149.64 1084.36 41167.36 - 11 145.80 1088.20 40079.16 - 12 141.95 1092.05 38987.11 -YR.=27 1954.76 12853.24 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 138.08 1095.92 37891.19 - 2 134.20 1099.80 36791.38 - 3 130.30 1103.70 35687.69 - 4 126.39 1107.61 34580.08 - 5 122.47 1111.53 33468.55 - 6 118.53 1115.47 32353.09 - 7 114.58 1119.42 31233.67 - 8 110.62 1123.38 30110.29 - 9 106.64 1127.36 28982.93 - 10 102.65 1131.35 27851.58 - 11 98.64 1135.36 26716.22 - 12 94.62 1139.38 25576.84 -YR.=28 1397.73 13410.27 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 90.58 1143.42 24433.42 - 2 86.54 1147.46 23285.96 - 3 82.47 1151.53 22134.43 - 4 78.39 1155.61 20978.82 - 5 74.30 1159.70 19819.12 - 6 70.19 1163.81 18655.32 - 7 66.07 1167.93 17487.39 - 8 61.93 1172.07 16315.32 - 9 57.78 1176.22 15139.10 - 10 53.62 1180.38 13958.72 - 11 49.44 1184.56 12774.16 - 12 45.24 1188.76 11585.40 -YR.=29 816.56 13991.44 -PRIN.=$250000.00 PAYMENT=$1234.00 TERM= 30.00 YRS RATE= 4.2 % - NO. INTEREST AMORTIZED BALANCE - 1 41.03 1192.97 10392.43 - 2 36.81 1197.19 9195.24 - 3 32.57 1201.43 7993.81 - 4 28.31 1205.69 6788.12 - 5 24.04 1209.96 5578.16 - 6 19.76 1214.24 4363.91 - 7 15.46 1218.54 3145.37 - 8 11.14 1222.86 1922.51 - 9 6.81 1227.19 695.32 - 10 2.46 1231.54 -536.22 - 11 -1.90 1235.90 -1772.12 - 12 -6.28 -3012.39 0.00 -FINAL PAYMENT = -$3018.67 diff --git a/bwbtest/T80A/MULTMON.BAS b/bwbtest/T80A/MULTMON.BAS deleted file mode 100644 index d80ee1f..0000000 --- a/bwbtest/T80A/MULTMON.BAS +++ /dev/null @@ -1,66 +0,0 @@ -1 REM MULTMON -5 CLS -10 PRINT TAB(10); "MONEY MULTIPLIER":PRINT -20 PRINT "THIS PROGRAM COMPUTES HOW LONG IT WILL TAKE AN INVESTOR -30 PRINT "TO DOUBLE,TRIPLE, MULTIPLY BY 4, ETC. HIS/HER MONEY INVESTED -35 PRINT "AT A KNOWN INTEREST RATE. -37 PRINT -40 PRINT "COMPUTATIONS MAY BE DONE WHEN RATES ARE QUOTED ANNUALYY OR -50 PRINT "PER PERIOD(TIME BETWEEN COMPOUNDINGS). IN THE ANNUAL CASE -60 PRINT "IT IS NECESSARY TO GIVE THE NUMBER OF TIMES PER YEAR -70 PRINT "INTEREST IS COMPOUNDED(NUMBER OF INTEREST PERIODS). -80 PRINT -90 INPUT "PRESS ENTER TO BEGIN ";Z9$ -100 CLS:CLEAR 400 -110 PRINT " DOUBLE MONEY MENU":PRINT -115 PRINT "0. QUIT" -120 PRINT "1. INTEREST RATES & TIME MEASURED ANNUALLY" -130 PRINT "2. INTEREST RATES & TIME MEASURED BY PERIOD -140 PRINT :INPUT "ENTER YOUR CHOICE";Z9 -145 IF Z9 = 0 THEN END -150 IF Z9<>1 AND Z9<>2 THEN GOSUB 10000:GOTO 100 -160 ON Z9 GOTO 1000,1500 -1000 REM ANNUAL INTEREST RATE USED -1010 INPUT "ENTER ANNUAL INTEREST RATE IN %, E.G. 5% ENTERED AS 5";P:P=P/100 -1030 PRINT -1040 PRINT "WE NOW WANT THE NUMBER OF COMPOUNDING PERIODS PER YEAR. -1045 PRINT "IF THIS IS DAILY THEN SOME BANKS USE 360 & SOME 365" -1050 INPUT "ENTER NUMBER";NC -1052 PRINT :PRINT "ENTER THE FACTOR BY WHICH YOU DESIRE TO INCREASE YOUR FUNDS. -1053 PRINT "E.G. TO DOUBLE INPUT 2,TRIPLE 3, ETC. ";:INPUT NF -1060 NI=LOG(NF)/LOG(1+P/NC):NY=NI/NC -1080 CLS:PRINT :PRINT :PRINT -1090 PRINT "INTEREST RATE & TIME MEASURED ANNUALLY":PRINT -1100 PRINT "ANNUAL INTEREST RATE EQUALS ";100*P;"PER CENT" -1110 PRINT "INTEREST COMPOUNDED ";NC;"TIMES PER YEAR":PRINT -1120 PRINT "TIME NECESSARY TO MULTIPLY ACCOUNT BY";NF;"EQUALS ";NY; "YEARS" -1130 PRINT :PRINT "ACTUALLY THIS TAKES BETWEEN ";INT(NI);" AND"; INT(NI)+1;" INTEREST PERIODS -1140 PRINT "OR BETWEEN ";INT(NI)/NC;" AND";(INT(NI)+1)/NC;" YEARS -1150 PRINT " THE EXACT AMOUNT OF TIME NEEDED DEPENDS UPON HOW INTEREST -1160 PRINT "IS CREDITED WITHIN AN INTEREST PERIOD. -1170 PRINT -1190 GOTO 2000 -1200 RETURN -1500 REM INTEREST RATE PER PERIOD USED -1510 INPUT "ENTER INTEREST RATE PER PERIOD IN % ,E.G. 5% ENTERED AS 5";P: P=P/100 -1515 PRINT :PRINT "ENTER THE FACTOR BY WHICH YOU DESIRE TO INCREASE YOUR FUNDS. -1517 PRINT "E.G. TO DOUBLE INPUT 2,TRIPLE 3, ETC. ";:INPUT NF -1520 N= LOG(NF)/LOG(1+P) -1522 CLS:PRINT :PRINT :PRINT -1524 PRINT "INTEREST RATE AND TIME MEASURED PER PERIOD":PRINT -1526 PRINT "PER PERIOD INTEREST RATE EQUALS ";100*P;"PER CENT" -1528 PRINT -1530 PRINT "TIME NEEDED TO MULTIPLY ACCOUNT BY";NF;"EQUALS ";N;" INTEREST PERIODS":PRINT -1540 PRINT "ACTUALLY THIS TAKES BETWEEN ";INT(N);"AND";INT(N)+1;"INTEREST PERIODS -1550 PRINT " THE EXACT AMOUNT OF TIME NEEDED DEPENDS UPON HOW INTEREST -1560 PRINT "IS CREDITED WITHIN AN INTEREST PERIOD." -1590 PRINT :GOTO 2000 -1610 PRINT -2000 INPUT "ENTER Y FOR MORE COMPUTATIONS, N TO END ";Z9$ -2010 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 2000 -2020 IF Z9$="Y" THEN GOTO 100 -2030 END -10000 PRINT "INPUT ERROR! TRY AGAIN!" -10010 FOR JJ=1 TO 300: NEXT JJ -10020 RETURN - diff --git a/bwbtest/T80A/MULTMON.INP b/bwbtest/T80A/MULTMON.INP deleted file mode 100644 index 923c881..0000000 --- a/bwbtest/T80A/MULTMON.INP +++ /dev/null @@ -1,11 +0,0 @@ - -1 -3.75 -12 -10 -Y -2 -1.25 -3 -Y -0 diff --git a/bwbtest/T80A/MULTMON.run b/bwbtest/T80A/MULTMON.run deleted file mode 100644 index 02cba7b..0000000 --- a/bwbtest/T80A/MULTMON.run +++ /dev/null @@ -1,75 +0,0 @@ - MONEY MULTIPLIER - -THIS PROGRAM COMPUTES HOW LONG IT WILL TAKE AN INVESTOR -TO DOUBLE,TRIPLE, MULTIPLY BY 4, ETC. HIS/HER MONEY INVESTED -AT A KNOWN INTEREST RATE. - -COMPUTATIONS MAY BE DONE WHEN RATES ARE QUOTED ANNUALYY OR -PER PERIOD(TIME BETWEEN COMPOUNDINGS). IN THE ANNUAL CASE -IT IS NECESSARY TO GIVE THE NUMBER OF TIMES PER YEAR -INTEREST IS COMPOUNDED(NUMBER OF INTEREST PERIODS). - -PRESS ENTER TO BEGIN ? - DOUBLE MONEY MENU - -0. QUIT -1. INTEREST RATES & TIME MEASURED ANNUALLY -2. INTEREST RATES & TIME MEASURED BY PERIOD - -ENTER YOUR CHOICE? 1 -ENTER ANNUAL INTEREST RATE IN %, E.G. 5% ENTERED AS 5? 3.75 - -WE NOW WANT THE NUMBER OF COMPOUNDING PERIODS PER YEAR. -IF THIS IS DAILY THEN SOME BANKS USE 360 & SOME 365 -ENTER NUMBER? 12 - -ENTER THE FACTOR BY WHICH YOU DESIRE TO INCREASE YOUR FUNDS. -E.G. TO DOUBLE INPUT 2,TRIPLE 3, ETC. ? 10 - - - -INTEREST RATE & TIME MEASURED ANNUALLY - -ANNUAL INTEREST RATE EQUALS 3.75 PER CENT -INTEREST COMPOUNDED 12 TIMES PER YEAR - -TIME NECESSARY TO MULTIPLY ACCOUNT BY 10 EQUALS 61.4982 YEARS - -ACTUALLY THIS TAKES BETWEEN 737 AND 738 INTEREST PERIODS -OR BETWEEN 61.4167 AND 61.5 YEARS - THE EXACT AMOUNT OF TIME NEEDED DEPENDS UPON HOW INTEREST -IS CREDITED WITHIN AN INTEREST PERIOD. - -ENTER Y FOR MORE COMPUTATIONS, N TO END ? Y - DOUBLE MONEY MENU - -0. QUIT -1. INTEREST RATES & TIME MEASURED ANNUALLY -2. INTEREST RATES & TIME MEASURED BY PERIOD - -ENTER YOUR CHOICE? 2 -ENTER INTEREST RATE PER PERIOD IN % ,E.G. 5% ENTERED AS 5? 1.25 - -ENTER THE FACTOR BY WHICH YOU DESIRE TO INCREASE YOUR FUNDS. -E.G. TO DOUBLE INPUT 2,TRIPLE 3, ETC. ? 3 - - - -INTEREST RATE AND TIME MEASURED PER PERIOD - -PER PERIOD INTEREST RATE EQUALS 1.25 PER CENT - -TIME NEEDED TO MULTIPLY ACCOUNT BY 3 EQUALS 88.4372 INTEREST PERIODS - -ACTUALLY THIS TAKES BETWEEN 88 AND 89 INTEREST PERIODS - THE EXACT AMOUNT OF TIME NEEDED DEPENDS UPON HOW INTEREST -IS CREDITED WITHIN AN INTEREST PERIOD. - -ENTER Y FOR MORE COMPUTATIONS, N TO END ? Y - DOUBLE MONEY MENU - -0. QUIT -1. INTEREST RATES & TIME MEASURED ANNUALLY -2. INTEREST RATES & TIME MEASURED BY PERIOD - -ENTER YOUR CHOICE? 0 diff --git a/bwbtest/T80A/NCFANAL.BAS b/bwbtest/T80A/NCFANAL.BAS deleted file mode 100644 index 8806030..0000000 --- a/bwbtest/T80A/NCFANAL.BAS +++ /dev/null @@ -1,50 +0,0 @@ -1 REM NCFANAL -5 CLEAR 1000 -10 CLS:PRINT TAB(5); "NET CASH FLOW ANALYSIS":PRINT -20 PRINT "WHEN INVESTING IN A NEW PROJECT A FIRM MUST TAKE INTO -25 PRINT "ACCOUNT THE CASH FLOWS GENERATED BY THE PROJECT, BOTH POSITIVE -30 PRINT "AND NEGATIVE. IN THIS PROGRAM WE ASSUME THAT AN ITEM IS -35 PRINT "PURCHASED FOR A FIXED AMOUNT, TO BE DEPRECIATED OVER ITS -40 PRINT "USEFUL LIFE VIA THE STRAIGHT-LINE METHOD. WE ESTIMATE CASH -45 PRINT "INFLOWS AND OUTFLOWS OVER THE LIFE OF THE PROJECT. THE -50 PRINT "PROGRAM WILL THEN PRINT A CASH FLOW TABLE" -90 INPUT "PRESS ENTER TO BEGIN";Z9$ -95 DIM CI(100),CO(100) -100 CLS -110 INPUT "INPUT CASH COST OF THE PROJECT ";CP -115 INPUT "INPUT DEPRECIABLE COST OF THE PROJECT ";CD -120 INPUT "INPUT USEFUL LIFE OF PROJECT IN YEARS ";UL -130 INPUT "SALVAGE VALUE AT END OF USEFUL LIFE ";SV -135 AD=(CD-SV)/UL:REM ANNUAL DEPRECIATION -140 INPUT "INPUT CORPORATE INCOME TAX RATE(%) ";TX:TX=TX/100 -200 CLS -210 FOR I=1 TO UL -220 PRINT "CASH FLOWS FOR YEAR ";I;" NOT INCLUDING INCOME TAXES" -230 INPUT " CASH INFLOWS = ";CI(I) -240 INPUT " CASH OUTFLOWS = ";CO(I) -250 PRINT -260 NEXT I -300 REM PRINTOUT AND COMPUTATUION -310 F$(1)="YR CASH CASH DEPREC- NET TAXES NET CASH" -320 F$(2)=" INFLOW OUTFLOW IATION INCOME FLOW " -330 F$(3)="## ####### ####### ####### ####### ######## #######" -350 INPUT "DO YOU WANT LINE PRINTER OUTPUT(Y/N)";Z2$ -360 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 350 -400 CLS -410 PRINT F$(1):PRINT F$(2):IF Z2$="Y" THEN LPRINT F$(1):LPRINT F$(2):LPRINT " " -420 PRINT USING F$(3);0,0,CP,0,0,0,-CP -425 IF Z2$="Y" THEN LPRINT USING F$(3);0,0,CP,0,0,0,-CP -430 FOR I=1 TO UL -435 NI=CI(I)-CO(I)-AD:NCF=NI+AD-NI*TX -437 IF I=UL THEN NCF=NCF+SV -440 PRINT USING F$(3);I,CI(I),CO(I),AD,NI,NI*TX,NCF -450 IF Z2$="Y" THEN LPRINT USING F$(3);I,CI(I),CO(I),AD,NI,NI*TX,NCF -460 IF I/12=INT(I/12) THEN PRINT :GOSUB 10100:CLS:PRINT F$(1):PRINT F$(2) -470 NEXT I -480 PRINT :PRINT "YEAR";UL;"CASH FLOW INCLUDES SALVAGE VALUE SALE OF $";SV -490 IF Z2$="Y" THEN LPRINT " ":LPRINT "YEAR";UL;"CASH FLOW INCLUDES SALVAGE VALUE SALE OF $";SV -500 PRINT :INPUT "PRESS ENTER FOR MORE ";Z9$ -505 IF Z9$ = "-1" THEN END -510 GOTO 100 -10000 PRINT "INPUT ERROR! TRY AGAIN!":FOR JJ=1 TO 300:NEXT :RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/NCFANAL.INP b/bwbtest/T80A/NCFANAL.INP deleted file mode 100644 index 713a952..0000000 --- a/bwbtest/T80A/NCFANAL.INP +++ /dev/null @@ -1,28 +0,0 @@ - -234567 -7654 -10 -1964 -15 -1111 -999 -2222 -888 -3333 -777 -4444 -666 -5555 -444 -6666 -333 -7777 -222 -8888 -111 -9999 -88 -11111 -77 -Y --1 diff --git a/bwbtest/T80A/NCFANAL.run b/bwbtest/T80A/NCFANAL.run deleted file mode 100644 index d62bd24..0000000 --- a/bwbtest/T80A/NCFANAL.run +++ /dev/null @@ -1,73 +0,0 @@ - NET CASH FLOW ANALYSIS - -WHEN INVESTING IN A NEW PROJECT A FIRM MUST TAKE INTO -ACCOUNT THE CASH FLOWS GENERATED BY THE PROJECT, BOTH POSITIVE -AND NEGATIVE. IN THIS PROGRAM WE ASSUME THAT AN ITEM IS -PURCHASED FOR A FIXED AMOUNT, TO BE DEPRECIATED OVER ITS -USEFUL LIFE VIA THE STRAIGHT-LINE METHOD. WE ESTIMATE CASH -INFLOWS AND OUTFLOWS OVER THE LIFE OF THE PROJECT. THE -PROGRAM WILL THEN PRINT A CASH FLOW TABLE -PRESS ENTER TO BEGIN? -INPUT CASH COST OF THE PROJECT ? 234567 -INPUT DEPRECIABLE COST OF THE PROJECT ? 7654 -INPUT USEFUL LIFE OF PROJECT IN YEARS ? 10 -SALVAGE VALUE AT END OF USEFUL LIFE ? 1964 -INPUT CORPORATE INCOME TAX RATE(%) ? 15 -CASH FLOWS FOR YEAR 1 NOT INCLUDING INCOME TAXES - CASH INFLOWS = ? 1111 - CASH OUTFLOWS = ? 999 - -CASH FLOWS FOR YEAR 2 NOT INCLUDING INCOME TAXES - CASH INFLOWS = ? 2222 - CASH OUTFLOWS = ? 888 - -CASH FLOWS FOR YEAR 3 NOT INCLUDING INCOME TAXES - CASH INFLOWS = ? 3333 - CASH OUTFLOWS = ? 777 - -CASH FLOWS FOR YEAR 4 NOT INCLUDING INCOME TAXES - CASH INFLOWS = ? 4444 - CASH OUTFLOWS = ? 666 - -CASH FLOWS FOR YEAR 5 NOT INCLUDING INCOME TAXES - CASH INFLOWS = ? 5555 - CASH OUTFLOWS = ? 444 - -CASH FLOWS FOR YEAR 6 NOT INCLUDING INCOME TAXES - CASH INFLOWS = ? 6666 - CASH OUTFLOWS = ? 333 - -CASH FLOWS FOR YEAR 7 NOT INCLUDING INCOME TAXES - CASH INFLOWS = ? 7777 - CASH OUTFLOWS = ? 222 - -CASH FLOWS FOR YEAR 8 NOT INCLUDING INCOME TAXES - CASH INFLOWS = ? 8888 - CASH OUTFLOWS = ? 111 - -CASH FLOWS FOR YEAR 9 NOT INCLUDING INCOME TAXES - CASH INFLOWS = ? 9999 - CASH OUTFLOWS = ? 88 - -CASH FLOWS FOR YEAR 10 NOT INCLUDING INCOME TAXES - CASH INFLOWS = ? 11111 - CASH OUTFLOWS = ? 77 - -DO YOU WANT LINE PRINTER OUTPUT(Y/N)? Y -YR CASH CASH DEPREC- NET TAXES NET CASH - INFLOW OUTFLOW IATION INCOME FLOW - 0 0 234567 0 0 0 -234567 - 1 1111 999 569 -457 -69 181 - 2 2222 888 569 765 115 1219 - 3 3333 777 569 1987 298 2258 - 4 4444 666 569 3209 481 3297 - 5 5555 444 569 4542 681 4430 - 6 6666 333 569 5764 865 5468 - 7 7777 222 569 6986 1048 6507 - 8 8888 111 569 8208 1231 7546 - 9 9999 88 569 9342 1401 8510 -10 11111 77 569 10465 1570 11428 - -YEAR 10 CASH FLOW INCLUDES SALVAGE VALUE SALE OF $ 1964 - -PRESS ENTER FOR MORE ? -1 diff --git a/bwbtest/T80A/NPV.BAS b/bwbtest/T80A/NPV.BAS deleted file mode 100644 index 6d61ff3..0000000 --- a/bwbtest/T80A/NPV.BAS +++ /dev/null @@ -1,42 +0,0 @@ -1 REM NPV -5 CLEAR 1000 -10 CLS -20 PRINT TAB(10); "NET PRESENT VALUE OF PROJECT":PRINT -30 PRINT "MOST INVESTMENT PROJECTS INVOLVE SOME INITIAL COST AND THEN -35 PRINT "INFLOWS AND OUTFLOWS IN THE FUTURE UNTIL SOME TIME WHEN -40 PRINT "WHEN THE INVESTMENT IS TERMINATED. BASED UPON THE RISK IN THE -45 PRINT "ORIGINAL INVESTMENT THE INVESTOR SHOULD HAVE SOME REQUIRED -50 PRINT "RATE OF RETURN HE/SHE DESIRES TO EARN FROM THE INVESTMENT. -55 PRINT "IF THE PRESENT VALUE OF THE CASH FLOWS FROM THE PROJECT -60 PRINT "ARE POSITIVE WHEN USING THE REQUIRED RATE AS THE DISCOUNT RATE -65 PRINT "THEN THE PROJECT IS A REASONABLE ONE TO INVEST IN.THIS -70 PRINT "PROGRAM COMPUTES THE PRESENT VALUE OF SUCH A PROJECT. IF THE -75 PRINT "USER SETS THE INITIAL INVESTMENT EQUAL TO 0 THEN THE PRESENT -80 PRINT "VALUE EQUALS THE MAXIMUM AMOUNT TO BE PAID INITIALLY FOR THE -85 PRINT "PROJECT." -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 DIM A(200) -115 PRINT "INPUT FOR NEW PROJECT":PRINT -120 INPUT "INPUT REQUIRED RATE OF RETURN (%) ";R:R=R/100:PRINT -125 IF R = 0 THEN END -130 INPUT "INITIAL CASH COST OF PROJECT ";A(0):A(0)=-A(0) -140 I=1 -150 PRINT "ENTER CASH FLOW FOR PERIOD ";I;" (-.01 TO END)";:INPUT A(I) -160 IF A(I)=-.01 THEN I=I-1:GOTO 200 -170 I=I+1:GOTO 150 -200 REM COMPUTATION -205 PRINT -210 NPV=0 -220 FOR J=0 TO I -230 NPV=NPV + A(J)/(1+R)[J -240 NEXT -260 PRINT "NET PRESENT VALUE AT";100*R;"% INTEREST EQUALS ";:PRINT USING "$$########";NPV -270 INPUT "DO YOU WANT ANOTHER NPV FOR SAME CASH FLOWS BUT CHANGING INTEREST RATE (Y/N) ";Z9$ -280 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 270 -290 PRINT -300 IF Z9$="N" THEN CLS: GOTO 115 -310 INPUT "ENTER NEW REQUIRED RATE ";R:R=R/100 -320 GOTO 205 -10000 PRINT "INPUT ERROR! TRY AGAIN!":FOR K=1 TO 300:NEXT :RETURN - diff --git a/bwbtest/T80A/NPV.INP b/bwbtest/T80A/NPV.INP deleted file mode 100644 index c12d682..0000000 --- a/bwbtest/T80A/NPV.INP +++ /dev/null @@ -1,11 +0,0 @@ - -5 -123000 -11111 -22222 -33333 -44444 -55555 --0.01 -N -0 diff --git a/bwbtest/T80A/NPV.run b/bwbtest/T80A/NPV.run deleted file mode 100644 index 0243cb4..0000000 --- a/bwbtest/T80A/NPV.run +++ /dev/null @@ -1,36 +0,0 @@ - NET PRESENT VALUE OF PROJECT - -MOST INVESTMENT PROJECTS INVOLVE SOME INITIAL COST AND THEN -INFLOWS AND OUTFLOWS IN THE FUTURE UNTIL SOME TIME WHEN -WHEN THE INVESTMENT IS TERMINATED. BASED UPON THE RISK IN THE -ORIGINAL INVESTMENT THE INVESTOR SHOULD HAVE SOME REQUIRED -RATE OF RETURN HE/SHE DESIRES TO EARN FROM THE INVESTMENT. -IF THE PRESENT VALUE OF THE CASH FLOWS FROM THE PROJECT -ARE POSITIVE WHEN USING THE REQUIRED RATE AS THE DISCOUNT RATE -THEN THE PROJECT IS A REASONABLE ONE TO INVEST IN.THIS -PROGRAM COMPUTES THE PRESENT VALUE OF SUCH A PROJECT. IF THE -USER SETS THE INITIAL INVESTMENT EQUAL TO 0 THEN THE PRESENT -VALUE EQUALS THE MAXIMUM AMOUNT TO BE PAID INITIALLY FOR THE -PROJECT. - -PRESS ENTER TO BEGIN? -INPUT FOR NEW PROJECT - -INPUT REQUIRED RATE OF RETURN (%) ? 5 - -INITIAL CASH COST OF PROJECT ? 123000 -ENTER CASH FLOW FOR PERIOD 1 (-.01 TO END)? 11111 -ENTER CASH FLOW FOR PERIOD 2 (-.01 TO END)? 22222 -ENTER CASH FLOW FOR PERIOD 3 (-.01 TO END)? 33333 -ENTER CASH FLOW FOR PERIOD 4 (-.01 TO END)? 44444 -ENTER CASH FLOW FOR PERIOD 5 (-.01 TO END)? 55555 -ENTER CASH FLOW FOR PERIOD 6 (-.01 TO END)? -0.01 - -NET PRESENT VALUE AT 5 % INTEREST EQUALS $16625 -DO YOU WANT ANOTHER NPV FOR SAME CASH FLOWS BUT CHANGING INTEREST RATE (Y -/N) ? N - -INPUT FOR NEW PROJECT - -INPUT REQUIRED RATE OF RETURN (%) ? 0 - diff --git a/bwbtest/T80A/OPTLOSS.BAS b/bwbtest/T80A/OPTLOSS.BAS deleted file mode 100644 index b0dd65c..0000000 --- a/bwbtest/T80A/OPTLOSS.BAS +++ /dev/null @@ -1,84 +0,0 @@ -1 REM OPTLOSS -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"OPPORTUNITY LOSS TABLE " -20 PRINT "THIS PROGRAM ASSUMES THERE ARE FROM 1 TO 6 STATES OF NATURE. -25 PRINT "THERE ARE ALSO FROM 1 TO 6 POSSIBLE ACTIONS WE CAN TAKE. IF THE -30 PRINT "STATE OF NATURE(S OF N) IS KNOWN THEN EACH ACTION LEADS TO -35 PRINT "A KNOWN MONETARY RESULT. THIS RESULT IS A CONDITIONAL PROFIT. -40 PRINT "FOR EXAMPLE, IF ACTION 3 LEADS TO A $35 PAYOFF WHEN STATE OF -45 PRINT "NATURE 4 IS TRUE THEN 35 IS THE CONDITIONAL PROFIT OF ACTION -50 PRINT "3 GIVEN STATE OF NATURE 4. IF WE LOOK AT THE CONDITIONAL -55 PRINT "PROFIT OF EACH ACTION WITH RESPECT TO A PARTICULAR S OF N -60 PRINT "THEN THERE IS A LARGEST PROFIT. THE AMOUNT BY WHICH EACH OF -65 PRINT "THE OTHER PROFITS DIFFER FROM THE MAXIMUM IS CALLED THE -70 PRINT "OPPORTUNITY LOSS OF THE CORRESPONDING ACTION FOR THE -75 PRINT "PARTICULAR STATE OF NATURE. IN THIS PROGRAM ALL OF THE -80 PRINT "CONDITIONAL PROFITS ARE ENTERED AND AN OPPORTUNITY LOSS -85 PRINT "TABLE IS CONSTRUCTED. EXPECTED OPORTUNITY LOSSES ARE ALSO COMP." -95 INPUT "PRESS ENTER TO BEGIN";Z9$ -100 D=6:REM MAXIMUM DIMENSION -102 DIM A(D+2,D+2),P(D),E(D) -105 P=0 -110 CLS -120 INPUT "ENTER NUMBER OF POSSIBLE STATES OF NATURE";N -125 IF N<2 OR N>D OR N<>INT(N) THEN GOSUB 10000:GOTO 120 -127 PRINT -130 FOR I=1 TO N -135 PRINT "ENTER PROBABILITY OF S OF N";I;:INPUT P(I) -140 P=P+P(I) -150 NEXT I -160 IF P=1 THEN PRINT :GOTO 200 -170 PRINT :PRINT "PROBABILITIES DO NOT SUM TO 1." -175 INPUT "ENTER 1 TO STANDARDIZE,0 TO BEGIN OVER";Z9 -180 IF Z9<>0 AND Z9<>1 THEN GOSUB 10000:GOTO 170 -185 IF Z9=0 THEN GOTO 105 -190 FOR I=1 TO N:P(I)=P(I)/P:NEXT :P=1 -200 PRINT :INPUT "ENTER NUMBER OF POSSIBLE ACTIONS(<=5)";M -205 IF M<2 OR M>6 OR M<>INT(M) THEN GOSUB 10000:GOTO 200 -210 PRINT "NO PAYOFF MORE THAN 9999.99":PRINT -220 FOR J=1 TO M -225 PRINT -230 PRINT "ACTION";J -240 FOR I=1 TO N -250 PRINT TAB(5);"PAYOFF WHEN S OF N IS";I;:INPUT A(I,J) -260 NEXT I -270 NEXT J -300 REM COMPUTATION -310 CLS:PRINT @ 340,"COMPUTING" -320 FOR I=1 TO N -325 MM(I)=A(I,1) -330 FOR J=2 TO M -335 IF A(I,J)>MM(I) THEN MM(I)=A(I,J) -340 NEXT J -345 NEXT I -350 REM OPPORTUNITY LOSSES COMPUTED NEXT -355 FOR I=1 TO N:FOR J=1 TO M: A(I,J)=MM(I)-A(I,J):NEXT :NEXT -400 FOR J=1 TO M -410 FOR I=1 TO N:E(J)=E(J)+A(I,J)*P(I):NEXT I:REM EXP. VAL. -420 NEXT J -495 REM PRINT -500 CLS -510 F$(1)=" ACTION # " -515 F$(2)=" #####.## " -520 F$(3)=" OPPORTUNITY LOSSES OF ACTION GIVEN S OF N " -521 F$(4)="S N PR ACTION" -525 PRINT :INPUT "IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -527 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 525 -530 PRINT F$(3):PRINT :PRINT F$(4):IF Z2$="Y" THEN LPRINT F$(3):LPRINT " ":LPRINT F$(4) -535 PRINT TAB(9);"";:FOR I=1 TO M:PRINT USING F$(1);I;:NEXT :PRINT -537 IF Z2$="Y" THEN LPRINT TAB(9);"";:FOR I=1 TO M:LPRINT USING F$(1);I;:NEXT :LPRINT " " -540 FOR I=1 TO N -550 PRINT USING "## #.## ";I,P(I); -555 IF Z2$="Y" THEN LPRINT USING "## #.## ";I,P(I); -560 FOR J=1 TO M:PRINT USING F$(2);A(I,J);:NEXT :PRINT -562 IF Z2$="Y" THEN FOR J=1 TO M:LPRINT USING F$(2);A(I,J);:NEXT :LPRINT " " -563 NEXT -564 PRINT :IF Z2$="Y" THEN LPRINT " " -565 PRINT "EXP EOL.";TAB(9);"";: -570 IF Z2$="Y" THEN LPRINT "EXP VAL.";TAB(9);"";: -575 FOR I=1 TO M:PRINT USING F$(2);E(I);:NEXT -580 IF Z2$="Y" THEN FOR I=1 TO M:LPRINT USING F$(2);E(I);:NEXT -600 PRINT :END -10000 PRINT "INPUT ERROR!TRY AGAIN!":FOR JJ=1 TO 300:NEXT :RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/OPTLOSS.INP b/bwbtest/T80A/OPTLOSS.INP deleted file mode 100644 index 2424379..0000000 --- a/bwbtest/T80A/OPTLOSS.INP +++ /dev/null @@ -1,14 +0,0 @@ - -3 -22 -33 -44 -1 -2 -101 -102 -103 -201 -202 -203 -Y diff --git a/bwbtest/T80A/OPTLOSS.run b/bwbtest/T80A/OPTLOSS.run deleted file mode 100644 index 5b2335b..0000000 --- a/bwbtest/T80A/OPTLOSS.run +++ /dev/null @@ -1,50 +0,0 @@ - OPPORTUNITY LOSS TABLE -THIS PROGRAM ASSUMES THERE ARE FROM 1 TO 6 STATES OF NATURE. -THERE ARE ALSO FROM 1 TO 6 POSSIBLE ACTIONS WE CAN TAKE. IF THE -STATE OF NATURE(S OF N) IS KNOWN THEN EACH ACTION LEADS TO -A KNOWN MONETARY RESULT. THIS RESULT IS A CONDITIONAL PROFIT. -FOR EXAMPLE, IF ACTION 3 LEADS TO A $35 PAYOFF WHEN STATE OF -NATURE 4 IS TRUE THEN 35 IS THE CONDITIONAL PROFIT OF ACTION -3 GIVEN STATE OF NATURE 4. IF WE LOOK AT THE CONDITIONAL -PROFIT OF EACH ACTION WITH RESPECT TO A PARTICULAR S OF N -THEN THERE IS A LARGEST PROFIT. THE AMOUNT BY WHICH EACH OF -THE OTHER PROFITS DIFFER FROM THE MAXIMUM IS CALLED THE -OPPORTUNITY LOSS OF THE CORRESPONDING ACTION FOR THE -PARTICULAR STATE OF NATURE. IN THIS PROGRAM ALL OF THE -CONDITIONAL PROFITS ARE ENTERED AND AN OPPORTUNITY LOSS -TABLE IS CONSTRUCTED. EXPECTED OPORTUNITY LOSSES ARE ALSO COMP. -PRESS ENTER TO BEGIN? -ENTER NUMBER OF POSSIBLE STATES OF NATURE? 3 - -ENTER PROBABILITY OF S OF N 1 ? 22 -ENTER PROBABILITY OF S OF N 2 ? 33 -ENTER PROBABILITY OF S OF N 3 ? 44 - -PROBABILITIES DO NOT SUM TO 1. -ENTER 1 TO STANDARDIZE,0 TO BEGIN OVER? 1 - -ENTER NUMBER OF POSSIBLE ACTIONS(<=5)? 2 -NO PAYOFF MORE THAN 9999.99 - - -ACTION 1 - PAYOFF WHEN S OF N IS 1 ? 101 - PAYOFF WHEN S OF N IS 2 ? 102 - PAYOFF WHEN S OF N IS 3 ? 103 - -ACTION 2 - PAYOFF WHEN S OF N IS 1 ? 201 - PAYOFF WHEN S OF N IS 2 ? 202 - PAYOFF WHEN S OF N IS 3 ? 203 -COMPUTING - -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y - OPPORTUNITY LOSSES OF ACTION GIVEN S OF N - -S N PR ACTION - ACTION 1 ACTION 2 - 1 0.22 100.00 0.00 - 2 0.33 100.00 0.00 - 3 0.44 100.00 0.00 - -EXP EOL. 100.00 0.00 diff --git a/bwbtest/T80A/OPTWRITE.BAS b/bwbtest/T80A/OPTWRITE.BAS deleted file mode 100644 index b9d7c8f..0000000 --- a/bwbtest/T80A/OPTWRITE.BAS +++ /dev/null @@ -1,51 +0,0 @@ -5 CLS -90 PRINT " OPTION WRITING" -100 PRINT "tHIS PROGRAM COMPUTES SOME USEFUL TOTALS FOR POTENTIAL -110 PRINT "OPTION WRITERS. tHE USER OF THIS PROGRAM WILL GENERALLY -120 PRINT "BE A RATIO WRITER AND WILL SELL A FIXED NUMBER OF OPTIONS -130 PRINT "AS WELL AS BUY OR SHORT A GIVEN NUMBER OF SHARES OF THE -140 PRINT "UNDERLYING STOCK. uSING THIS PROGRAM HE WILL BE ABLE TO -150 PRINT "COMPUTE THE MAXIMUM DOLLAR PROFIT HE MAY REALIZE, THE -160 PRINT "DOLLAR INVESTMENT REQUIRED FOR THE DEAL, THE MAXIMUM -170 PRINT "RETURN ON INVESTMENT, AND THE UPPER AND LOWER BREAK -180 PRINT "EVEN POINTS OF STOCK PRICE FOR THE DEAL. -190 PRINT :INPUT "PRESS ENTER TO BEGIN ";Z9 -200 CLS -300 REM INPUT SECTION -310 INPUT "INPUT C IF OPTION IS CALL, P IF PUT ";TP$ -315 IF TP$<>"C" AND TP$<>"P" THEN PRINT "INPUT ERROR!":GOTO 310 -320 INPUT "ENTER NUMBER OF OPTION CONTRACTS SOLD ";N -330 INPUT "ENTER PRICE PER OPTION ";PO -340 INPUT "ENTER TOTAL COMMISSION PAID ON OPTIONS ";CO -350 INPUT "EXERCISE PRICE ";EX -360 INPUT "# OF SHARES BOUGHT OR SHORTED ";NS -365 INPUT "PRICE PER SHARE OF STOCK ";P -370 INPUT "AV. COMM. ON ST. SHARE AS % OF SHARE PRICE ";CA -380 INPUT "DIVIDENDS PER SHARE PAID BY STOCK ";D -390 INPUT "MAINTENANCE REQUIREMENT ";MN -400 IF TP$="P" THEN GOTO 500 -405 REM CALL OPTION CALCULATION -410 MAXP = N*100*PO-CO+NS*(EX*(1-CA/100)-P*(1+CA/100)+D) -420 INV = NS*P*(1+CA/100)-(N*100*PO-CO)+MN -425 RMAX = MAXP/INV*100 -430 U=(MAXP+(N*100-NS)*EX*(1-CA/100))/((100*N-NS)*(1+CA/100)) -440 L=(MAXP-NS*EX*(1-CA/100))/(-NS*(1-CA/100)) -450 GOTO 600 -500 REM PUT OPTION CALCULATION -510 MAXP = N*100*PO-CO+NS*(P*(1-CA/100)-EX*(1+CA/100)-D) -520 INV = NS*P/2+NS*P*CA/100-(N*100*PO-CO)+MN -525 RMAX=MAXP/INV*100 -530 U=(MAXP + NS*EX*(1+CA/100))/(NS*(1+CA/100)) -540 L=(MAXP-(N*100-NS)*EX*(1+CA/100))/(-(N*100-NS)*(1-CA/100)) -550 GOTO 600 -600 REM PRINTOUT -610 CLS -620 PRINT USING "MAXIMUM PROFIT = $$#####.##";MAXP -630 PRINT USING "INITIAL INVESTMENT = $$#####.##";INV -640 PRINT USING "MAXIMUM RETURN = #####.## PER CENT";RMAX -650 PRINT USING "UPPER BREAK EVEN POINT = ###.## PER SHARE";U -660 PRINT USING "LOWER BREAK EVEN POINT = ###.## PER SHRE";L -670 PRINT :INPUT "PRESS ENTER TO CONTINUE";Z9 -675 IF Z9 = -1 THEN END -680 CLS:GOTO 310 - diff --git a/bwbtest/T80A/OPTWRITE.INP b/bwbtest/T80A/OPTWRITE.INP deleted file mode 100644 index 69662e2..0000000 --- a/bwbtest/T80A/OPTWRITE.INP +++ /dev/null @@ -1,12 +0,0 @@ - -C -246 -57.31 -937.43 -789 -42956 -234 -12 -1.23 -75 --1 diff --git a/bwbtest/T80A/OPTWRITE.run b/bwbtest/T80A/OPTWRITE.run deleted file mode 100644 index 58331ed..0000000 --- a/bwbtest/T80A/OPTWRITE.run +++ /dev/null @@ -1,29 +0,0 @@ - OPTION WRITING -tHIS PROGRAM COMPUTES SOME USEFUL TOTALS FOR POTENTIAL -OPTION WRITERS. tHE USER OF THIS PROGRAM WILL GENERALLY -BE A RATIO WRITER AND WILL SELL A FIXED NUMBER OF OPTIONS -AS WELL AS BUY OR SHORT A GIVEN NUMBER OF SHARES OF THE -UNDERLYING STOCK. uSING THIS PROGRAM HE WILL BE ABLE TO -COMPUTE THE MAXIMUM DOLLAR PROFIT HE MAY REALIZE, THE -DOLLAR INVESTMENT REQUIRED FOR THE DEAL, THE MAXIMUM -RETURN ON INVESTMENT, AND THE UPPER AND LOWER BREAK -EVEN POINTS OF STOCK PRICE FOR THE DEAL. - -PRESS ENTER TO BEGIN ? -INPUT C IF OPTION IS CALL, P IF PUT ? C -ENTER NUMBER OF OPTION CONTRACTS SOLD ? 246 -ENTER PRICE PER OPTION ? 57.31 -ENTER TOTAL COMMISSION PAID ON OPTIONS ? 937.43 -EXERCISE PRICE ? 789 -# OF SHARES BOUGHT OR SHORTED ? 42956 -PRICE PER SHARE OF STOCK ? 234 -AV. COMM. ON ST. SHARE AS % OF SHARE PRICE ? 12 -DIVIDENDS PER SHARE PAID BY STOCK ? 1.23 -MAINTENANCE REQUIREMENT ? 75 -MAXIMUM PROFIT = 20029025.89 -INITIAL INVESTMENT = 9849094.91 -MAXIMUM RETURN = 203.36 PER CENT -UPPER BREAK EVEN POINT = -354.31 PER SHARE -LOWER BREAK EVEN POINT = 259.15 PER SHRE - -PRESS ENTER TO CONTINUE? -1 diff --git a/bwbtest/T80A/PAD80.BAS b/bwbtest/T80A/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/T80A/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/T80A/PAD80.INP b/bwbtest/T80A/PAD80.INP deleted file mode 100644 index 4c76ef0..0000000 --- a/bwbtest/T80A/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA WARVAL.OUT, WARVAL.80 diff --git a/bwbtest/T80A/PAD80.PRO b/bwbtest/T80A/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/T80A/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/T80A/PAYNET.BAS b/bwbtest/T80A/PAYNET.BAS deleted file mode 100644 index 8ac9f84..0000000 --- a/bwbtest/T80A/PAYNET.BAS +++ /dev/null @@ -1,24 +0,0 @@ -1 REM PAYNET -5 CLEAR 1000 -10 CLS -20 PRINT :PRINT "GROSS PAY NEEDED FOR GIVEN NET":PRINT -30 PRINT "THIS PROGRAM WILL COMPUTE THE AMOUNT OF GROSS PAY A WORKER -40 PRINT "NEEDS IN ORDER TO EARN A GIVEN NET." -45 PRINT "NECESSARY INPUTS ARE NET DESIRED,FEDERAL INCOME TAX %, STATE TAX %, LOCAL TAX % AND ANY FIXED DOLLAR AMOUNT DEDUCTIONS. -47 PRINT "FICA % DEDUCTION IS ALSO NEEDED" -50 PRINT :PRINT "ALL TAXES ARE PERCENTAGES OF GROSS PAY" -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -200 CLS -210 INPUT "ENTER NET PAY AMOUNT DESIRED ";NP -220 INPUT "ENTER FEDERAL WITHHOLDING TAX %";F:F=F/100 -230 INPUT "ENTER STATE WITHHOLDING TAX %";S:S=S/100 -240 INPUT "ENTER LOCAL WITHHOLDING TAX %";L:L=L/100 -250 INPUT "ENTER FICA WITHHOLDING % ";FICA:FICA=FICA/100 -260 INPUT "ENTER DOLLAR AMOUNT FOR ANY FIXED WITHHOLDING";EXTRA -270 P=F+S+L+FICA -280 GROSS = (NP+EXTRA)/(1-P) -290 PRINT -295 PRINT USING "GROSS PAY NEEDED IS $$#####.##";GROSS -300 PRINT :INPUT "PRESS ENTER TO CONTINUE";Z9$ -305 IF Z9$ = "-1" THEN END -310 GOTO 200 diff --git a/bwbtest/T80A/PAYNET.INP b/bwbtest/T80A/PAYNET.INP deleted file mode 100644 index 1a266ef..0000000 --- a/bwbtest/T80A/PAYNET.INP +++ /dev/null @@ -1,8 +0,0 @@ - -123456 -38 -13 -8 -5 -6789 --1 diff --git a/bwbtest/T80A/PAYNET.run b/bwbtest/T80A/PAYNET.run deleted file mode 100644 index c425559..0000000 --- a/bwbtest/T80A/PAYNET.run +++ /dev/null @@ -1,23 +0,0 @@ - -GROSS PAY NEEDED FOR GIVEN NET - -THIS PROGRAM WILL COMPUTE THE AMOUNT OF GROSS PAY A WORKER -NEEDS IN ORDER TO EARN A GIVEN NET. - -NECESSARY INPUTS ARE NET DESIRED,FEDERAL INCOME TAX %, STATE TAX %, LOCAL TAX - % AND ANY FIXED DOLLAR AMOUNT DEDUCTIONS. -FICA % DEDUCTION IS ALSO NEEDED - -ALL TAXES ARE PERCENTAGES OF GROSS PAY - -PRESS ENTER TO BEGIN? -ENTER NET PAY AMOUNT DESIRED ? 123456 -ENTER FEDERAL WITHHOLDING TAX %? 38 -ENTER STATE WITHHOLDING TAX %? 13 -ENTER LOCAL WITHHOLDING TAX %? 8 -ENTER FICA WITHHOLDING % ? 5 -ENTER DOLLAR AMOUNT FOR ANY FIXED WITHHOLDING? 6789 - -GROSS PAY NEEDED IS $361791.67 - -PRESS ENTER TO CONTINUE? -1 diff --git a/bwbtest/T80A/PAYROLL2.BAS b/bwbtest/T80A/PAYROLL2.BAS deleted file mode 100644 index cfc06ca..0000000 --- a/bwbtest/T80A/PAYROLL2.BAS +++ /dev/null @@ -1,320 +0,0 @@ -1 REM PAYROLL2 -10 CLS:PRINT TAB(15);"PAYROLL PROGRAM":PRINT -20 PRINT "THIS PROGRAM IS A BRIEF IN-MEMORY PAYROLL SYSTEM. ESSENTIALLY -25 PRINT "IT IS A PROGRAM WHICH COMPUTES FEDERAL AND FICA WITHHOLDING -30 PRINT "AND STORES PAY RECORDS IN A FORM WHICH PERMITS EASY ACCESS -35 PRINT "TO THOSE INTERESTED IN 941 OR W-2 FORMS. THERE IS,AT PRESENT, -40 PRINT "NO PROVISION FOR STATE OR LOCAL WITHHOLDING BUT THIS CAN BE -45 PRINT "HANDLED VIA THE 'OTHER DEDUCTIONS' CATEGORY. THE DIMENSIONING -47 PRINT "LIMITS THE PAYROLL MASTER FILE TO 25 EMPLOYEES, THOUGH THIS -49 PRINT "MAY BE INCREASED IF MUCH MAIN MEMORY IS AVAILABLE. -50 PRINT"REMEMBER THAT THE MASTER MUST BE RECALLED FROM STORAGE BEFORE -52 PRINT "OPERATIONS ARE PERFORMED AND RESTORED AFTER THE OPERATIONS. -53 PRINT :PRINT "DELETE LINES 1-58 TO RUN ON 16K SYSTEM" -56 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -58 CLEAR 2000 -59 NC=25:DIM A(NC,15),A$(NC,5) -65 DIM F$(20):REM FORMATTING -67 DIM P(2,9),B(2,9),V(11) -70 GOSUB 9000 -75 GOSUB 14000 -80 FOR I=1 TO NC:A$(I,1)="9999":NEXT -100 CLS:INPUT "ARE DISK DRIVES ATTACHED(Y/N)";ZD$ -110 IF ZD$<>"Y" AND ZD$<>"N" THEN GOSUB 10000:GOTO 100 -500 CLS:PRINT " MAIN MENU":PRINT -505 PRINT " 0.QUIT -510 PRINT " 1.MASTER FILE MAINTENANCE -520 PRINT " 2.READ FILE IN FROM TAPE -530 PRINT " 3.WRITE FILE OUT ONTO TAPE -540 PRINT " 4.READ FILE IN FROM DISK -550 PRINT " 5.WRITE FILE OUT ONTO DISK -560 PRINT " 6.COMPUTE PAYROLL -570 PRINT " 7.POST PAYROLL TO YTD TOTALS -580 PRINT " 8.REPORT GENERATOR -590 PRINT " 9.END OF PERIOD FILE MAINTENANCE -595 ON ERROR GOTO 15000 -600 INPUT "ENTER YOUR CHOICE";Z9 -605 IF Z9 = 0 THEN END -610 ON Z9 GOSUB 3100,2000,2100,2200,2300,7800,7000,5000,7300 -620 GOTO 500 -1500 CLOSE:RESUME 500 -2000 REM READ IN FILE FROM TAPE -2010 CLS:PRINT "PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2015 ' IF ZD$="Y" THEN CMD"T" -2020 INPUT #-1,NC -2035 FOR I=1 TO NC:GOSUB 2500:NEXT I -2040 RETURN -2100 REM WRITE OUT FILE ONTO TAPE -2105 CLS -2110 PRINT "PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2115 ' IF ZD$="Y" THEN CMD"T" -2130 WRITE #-1,NC -2145 FOR I=1 TO NC:GOSUB 2600:NEXT I -2150 RETURN -2200 REM READ IN FILE FROM DISK -2210 CLS:PRINT "PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2220 ON ERROR GOTO 2290 -2225 INPUT "ENTER NAME OF DATA FILE TO BE READ ";ZN$ -2230 OPEN "I",1,ZN$ -2240 INPUT # 1,NC -2255 FOR I=1 TO NC:GOSUB 2550:NEXT I -2260 CLOSE # 1 -2270 RETURN -2290 PRINT "FILE DOES NOT EXIST":GOSUB 10100:RESUME 2225 -2300 REM WRITE FILE OUT TO DISK -2305 CLS -2310 PRINT :PRINT "PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2315 PRINT "PRESENT FILE NAME IS ";ZN$;:INPUT " NEW NAME";ZN$ -2320 OPEN "O",1,ZN$ -2330 WRITE # 1,NC -2345 FOR I=1 TO NC:GOSUB 2650:NEXT I -2370 CLOSE # 1 -2380 RETURN -2500 REM INPUT 1 EMPLOYEE FROM TAPE -2510 FOR JI=0 TO 15:INPUT #-1,A(I,JI):NEXT :FOR JI=1 TO 5:INPUT #-1,A$(I,JI):Z8$=A$(I,JI):GOSUB 11000:A$(I,JI)=Z8$:NEXT JI -2520 RETURN -2550 REM INPUT 1 EMPLOYEE FROM DISKETTE -2560 FOR JI=0 TO 15:INPUT # 1,A(I,JI):NEXT :FOR JI=1 TO 5:INPUT # 1,A$(I,JI):Z8$=A$(I,JI):GOSUB 11000:A$(I,JI)=Z8$:NEXT JI -2570 RETURN -2600 REM OUTPUT 1 EMPLOYEE TO TAPE -2610 FOR JI=0 TO 15:WRITE #-1,A(I,JI):NEXT :FOR JI=1 TO 5:WRITE #-1,A$(I,JI):NEXT JI -2620 RETURN -2650 REM OUTPUT 1 EMPLOYEE TO DISKETTE -2660 FOR JI=0 TO 15:WRITE # 1,A(I,JI):NEXT :FOR JI=1 TO 5:WRITE # 1,A$(I,JI):NEXT JI -2670 RETURN -3100 REM EDIT EMPLOYEE -3110 CLS -3120 PRINT "EMPLOYEE NUMBER TO EDIT MUST BE LESS THAN";NC+1 -3130 PRINT :INPUT "EMPLOYEE NUMBER TO EDIT(0 TO END)";I -3135 IF I=0 THEN RETURN -3137 CLS -3140 A(I,0)=I:GOSUB 6100:PRINT :PRINT -3150 GOSUB 6000 -3160 PRINT :GOSUB 10100:GOTO 3110 -4800 REM -5000 REM REPORT GENERATOR -5005 CLS:INPUT "IS A LINE PRINTER TO BE USED(Y/N)";Z2$:IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 5005 -5007 CLS:PRINT TAB(10);"REPORT MENU":PRINT -5010 PRINT "1. PAYROLL REGISTER -5020 PRINT "2. COMPLETE EMPLOYEE LIST WITH COMPANY YTD,MTD TOTALS -5030 PRINT "3. END REPORT GENERATOR -5060 PRINT :INPUT "ENTER APPROPRIATE CHOICE";Z9 -5065 IF Z9=3 THEN RETURN -5070 ON Z9 GOSUB 5100,5200,5300 -5080 GOTO 5007 -5100 REM PAYROLL REGISTER -5103 CLS:INPUT "ENTER DATE FOR THIS PAYROLL REGISTER ";D$ -5105 FOR I=0 TO 7:V(I)=0:NEXT -5106 CLS -5107 F$="PAYROLL REGISTER "+D$:PRINT TAB(15); F$:PRINT :IF Z2$="Y" THEN LPRINT TAB(20); F$:LPRINT " " -5110 PRINT F$(4):IF Z2$="Y" THEN LPRINT F$(4):LPRINT " " -5115 FOR I=1 TO NC -5117 IF A$(I,1)="9999" OR A$(I,5)<>D$ THEN GOTO 5133 -5120 PRINT USING F$(5);" ",I,A(I,12),A(I,13),A(I,14),A(I,15),A(I,12)-A(I,13)-A(I,14)-A(I,15) -5122 IF Z2$="Y" THEN LPRINT USING F$(5);" ",I,A(I,12),A(I,13),A(I,14),A(I,15),A(I,12)-A(I,13)-A(I,14)-A(I,15) -5125 FOR J=1 TO 4:V(J)=V(J)+A(I,J+11):NEXT -5130 IF I/12=INT(I/12) AND Z2$="N" THEN PRINT :GOSUB 10100 -5133 NEXT I -5135 PRINT :IF Z2$="Y" THEN LPRINT " " -5137 NET=V(1)-V(2)-V(3)-V(4) -5140 PRINT USING F$(8);"TOTALS",V(1),V(2),V(3),V(4),NET -5150 IF Z2$="Y" THEN LPRINT USING F$(8);"TOTALS",V(1),V(2),V(3),V(4),NET -5190 PRINT :GOSUB 10100 -5195 RETURN -5200 REM COMPLETE EMPLOYEE LIST -5203 FOR I=1 TO 11:V(I)=0:NEXT -5205 F$="EMPLOYEE LIST":PRINT TAB(20); F$:IF Z2$="Y" THEN LPRINT TAB(20); F$:LPRINT " " -5210 CLS -5215 FOR I=1 TO NC -5220 IF A$(I,1)="9999" THEN GOTO 5255 -5230 GOSUB 6100:IF Z2$="Y" THEN LPRINT " ":LPRINT " ":GOSUB 6200 -5240 FOR J=4 TO 11:V(J)=V(J)+A(I,J):NEXT -5250 IF Z2$<>"Y" THEN PRINT :GOSUB 10100:CLS:PRINT -5252 PRINT -5255 NEXT I -5257 IF Z2$="Y" THEN LPRINT " ":LPRINT " " -5260 PRINT :INPUT "PRESS ENTER FOR COMPANY TOTALS";Z9$ -5265 CLS:PRINT TAB(20); "COMPANY TOTALS":IF Z2$="Y" THEN LPRINT TAB(20);"COMPANY TOTALS":LPRINT " ":LPRINT " " -5270 PRINT F$(7):PRINT :IF Z2$="Y" THEN LPRINT F$(7):LPRINT " " -5275 V(1)=V(4)-V(5)-V(6)-V(7):V(2)=V(8)-V(9)-V(10)-V(11) -5280 PRINT USING F$(8);"YTD",V(4),V(5),V(6),V(7),V(1) -5282 PRINT USING F$(8);"MTD",V(8),V(9),V(10),V(11),V(2) -5284 IF Z2$<>"Y" THEN GOTO 5289 -5285 LPRINT USING F$(8);"YTD",V(4),V(5),V(6),V(7),V(1) -5286 LPRINT USING F$(8);"MTD",V(8),V(9),V(10),V(11),V(2) -5289 PRINT :GOSUB 10100 -5290 RETURN -5300 RETURN -5400 REM -6000 REM SBR FOR INPUTTING DATA ON 1 EMPLOYEE -6005 F$(9)="% % " -6006 F$(10)=" #####.## " -6010 A(I,0)=I -6013 PRINT "EMPLOYEE # ";I -6015 PRINT USING F$(9);A$(I,1),:INPUT "EMPL. NAME ";A$(I,1) -6018 PRINT USING F$(9);A$(I,2),:INPUT "SS# ";A$(I,2) -6020 PRINT USING F$(9);A$(I,3),:INPUT "ADDR LINE1 ";A$(I,3) -6022 PRINT USING F$(9);A$(I,4),:INPUT "ADDR LINE2 ";A$(I,4) -6024 PRINT USING F$(9);A$(I,5),:INPUT "LASTPAYDAY ";A$(I,5) -6026 PRINT USING F$(10);A(I,1),:INPUT "PAY RATE ";A(I,1) -6028 PRINT USING F$(10);A(I,2),:INPUT "# EXEMPTION ";A(I,2) -6030 PRINT USING F$(10);A(I,3),:INPUT "MAR=2,SING=1 ";A(I,3) -6035 IF A(I,3)<>1 AND A(I,3)<>2 THEN GOSUB 10000:GOTO 6030 -6040 PRINT F$(4):PRINT USING F$(5);"YTD",I,A(I,4),A(I,5),A(I,6),A(I,7) -6045 INPUT "YTD GROSS,FED WITH,FICA,SPECIAL";A(I,4),A(I,5),A(I,6),A(I,7) -6050 PRINT F$(4):PRINT USING F$(5);"MTD",I,A(I,8),A(I,9),A(I,10),A(I,11) -6055 INPUT "MTD GROSS,FED WITH,FICA,SPECIAL";A(I,8),A(I,9),A(I,10),A(I,11) -6062 PRINT F$(4):PRINT USING F$(5);"CURR",I,A(I,12),A(I,13),A(I,14),A(I,15) -6065 INPUT "CURR GROSS,FED WITH,FICA,SPECIAL";A(I,12),A(I,13),A(I,14),A(I,15) -6090 RETURN -6100 REM PRINT EMPLOYEE RECORD ON CRT -6105 PRINT "EMPLOYEE # ";I -6110 PRINT USING F$(1);A$(I,1),A$(I,2),A(I,1) -6120 PRINT USING F$(2);A$(I,3),A$(I,4) -6125 PRINT USING F$(3);A$(I,5),A(I,2),A(I,3) -6130 PRINT :PRINT F$(4) -6135 PRINT USING F$(5);"YTD",I,A(I,4),A(I,5),A(I,6),A(I,7),A(I,4)-A(I,5)-A(I,6)-A(I,7) -6140 PRINT USING F$(5);"MTD",I,A(I,8),A(I,9),A(I,10),A(I,11),A(I,8)-A(I,9)-A(I,10)-A(I,11) -6150 PRINT USING F$(5);"CURR",I,A(I,12),A(I,13),A(I,14),A(I,15),A(I,12)-A(I,13)-A(I,14)-A(I,15) -6170 RETURN -6200 REM PRINT 1 EMPLOYEE RECORD ON PRINTER -6210 LPRINT USING F$(1);A$(I,1),A$(I,2),A(I,1) -6220 LPRINT USING F$(2);A$(I,3),A$(I,4) -6225 LPRINT USING F$(3);A$(I,5),A(I,2),A(I,3) -6230 LPRINT " ":LPRINT F$(4) -6235 LPRINT USING F$(5);"YTD",I,A(I,4),A(I,5),A(I,6),A(I,7),A(I,4)-A(I,5)-A(I,6)-A(I,7) -6240 LPRINT USING F$(5);"MTD",I,A(I,8),A(I,9),A(I,10),A(I,11),A(I,8)-A(I,9)-A(I,10)-A(I,11) -6250 LPRINT USING F$(5);"CURR",I,A(I,12),A(I,13),A(I,14),A(I,15),A(I,12)-A(I,13)-A(I,14)-A(I,15) -6270 RETURN -6300 REM -7000 REM POST TO ACCTS. -7010 CLS -7020 INPUT "POSTING ACCTS-PRESS Y TO PROCEED,N TO RETURN";Z9$ -7030 IF Z9$="N" THEN RETURN -7040 IF Z9$<>"Y" THEN GOSUB 10000:PRINT :GOTO 7020 -7050 PRINT :INPUT "DATE OF PAYROLL ";D$ -7060 PRINT :GOSUB 10100 -7070 CLS:PRINT :PRINT :PRINT :PRINT TAB(20);"COMPUTING" -7080 FOR I=1 TO NC -7090 IF D$<>A$(I,5) THEN GOTO 7150 -7100 X=A(I,12):A(I,4)=A(I,4)+X:A(I,8)=A(I,8)+X -7105 X=A(I,13):A(I,5)=A(I,5)+X:A(I,9)=A(I,9)+X -7110 X=A(I,14):A(I,6)=A(I,6)+X:A(I,10)=A(I,10)+X -7115 X=A(I,15):A(I,7)=A(I,7)+X:A(I,11)=A(I,11)+X -7130 A$(I,5)=LEFT$(A$(I,5),5) -7150 NEXT I -7160 PRINT :PRINT "ALL DONE":GOSUB 10100:RETURN -7300 CLS:PRINT "END OF PERIOD FILE MAINTENANCE":PRINT -7310 INPUT "DO YOU WANT TO ZERO ALL MTD AMOUNTS(Y/N)";Z9$ -7320 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 7310 -7330 IF Z9$="Y" THEN FOR I=1 TO NC:A(I,8)=0:A(I,9)=0:A(I,10)=0:A(I,11)=0:NEXT -7340 PRINT -7350 INPUT "DO YOU WANT TO ZERO ALL YTD AMOUNTS(Y/N)";Z9$ -7360 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 7350 -7370 IF Z9$="Y" THEN FOR I=1 TO NC:A(I,4)=0:A(I,5)=0:A(I,6)=0:A(I,7)=0:NEXT -7390 RETURN -7800 REM SUBROUTINE FOR INPUTTING DATA & COMPUTING PAYROLL -7801 CLS:GOSUB 8000:GOSUB 10100:CLS -7802 INPUT "ENTER PAY DATE(MM/DD/YY)";D$ -7803 IF LEN(D$)<>8 THEN PRINT "INPUT ERROR":PRINT :GOTO 7802 -7805 PRINT "ENTER ID#(0 TO END),REG HRS,PREM HRS":INPUT I,H1,H2 -7810 IF I=0 THEN RETURN -7813 IF I<0 OR I>NC OR I<>INT(I) OR A$(I,1)="9999" THEN GOTO 7840:GOTO 7805 -7815 M=A(I,3):N=A(I,2):R1=A(I,1) -7820 GOSUB 8200:GOSUB 8215:GOSUB 8300 -7822 T7=0:INPUT "ENTER SPECIAL WITHHOLDING(JUST ENTER IF NONE)";T7 -7825 GOSUB 8400:REM COMPUTE FICA:STORE DATA IN EMPLOYEE RECORD -7830 PRINT :GOSUB 6100:PRINT :GOSUB 10100 -7835 CLS:GOTO 7805 -7840 PRINT "INPUT ERROR. TRY AGAIN.":PRINT :GOTO 7805 -8000 REM SUBROUTINE GIVING INSTRUCTIONS -8010 PRINT "THE FOLLOWING COMPUTES FEDERAL AND FICA WITHHOLDING"; -8015 PRINT "AMOUNTS." -8020 PRINT "INPUT FOR EACH EMPLOYEE IS AN ID#(1-25)" -8030 PRINT "THEN NUMBER OF REGULAR HOURS (I.E. AT NORMAL RATE)" -8040 PRINT "THEN NUMBER OF PREMIUM HOURS (I.E. AT O.T. RATE)" -8050 PRINT "THEN PRESS ENTER KEY." -8060 PRINT "NEXT INPUT ANY SPECIAL WITHHOLDING AMT. & PRESS ENTER" -8080 PRINT "NOW REPEAT STARTING WITH ID# FOR NEXT EMPLOYEE,ETC" -8090 PRINT "BE SURE TO PUT A COMMA(,) BETWEEN EACH ENTRY FOR"; -8091 PRINT "EACH EMPLOYEE." -8095 PRINT "INPUT 0 FOR END OF DATA AND ENTER WHEN REQUESTED." -8096 PRINT "PRINT OUT OF ALL RESULTS WILL FOLLOW." -8100 INPUT "PRESS ANY DIGIT AND THEN PRESS ENTER TO BEGIN.";Z7 -8110 RETURN -8200 REM SUBROUTINE FOR COMPUTING GROSS PAY -8205 G=H1*R1 + 1.5*H2*R1 -8210 RETURN -8215 REM SUBROUTINE COMPUTES FEDERAL WAGES -8220 W = G - 14.40*N -8225 RETURN -8300 REM SUBROUTINE COMPUTING WITHHOLDING -8305 REM T1 IS WITHHOLDING. X IS BRACKET WE ARE IN. -8310 T1=0 : X=2 -8315 IF W<= 0 THEN GOTO 8345 -8320 IF W<= P(M,X) THEN GOTO 8340 -8325 T1=T1 + INT((P(M,X)-P(M,X-1))*B(M,X-1)*100+.5)/100 -8330 X=X+1 -8335 GOTO 8320 -8340 T1=T1 + INT((W - P(M,X-1))*B(M,X-1)*100+.5)/100 -8345 RETURN -8400 REM SETS UP PAY ARRAY -8410 A(I,12)=G:A(I,13)=T1:A(I,15)=T7:A(I,14)=FW*G -8420 FOR K=12 TO 15:X=A(I,K):GOSUB 11100:A(I,K)=X:NEXT -8430 A$(I,5)=D$ -8440 RETURN -9000 REM FORMATTING VARIABLES -9010 F$(1)="NAME % % SS NO. % % RATE ###.##" -9020 F$(2)="ADDR % % % %" -9030 F$(3)="LAST PAY % % EXEMPT ## MAR(2)-SING(1) #" -9040 F$(4)=" ID GROSS FED WITH. FICA SPECIAL NET" -9050 F$(5)="% % ## ######.## ######.## #####.## #####.## ######.##" -9060 F$(6)=" % % ######.## ######.## ######.## ######.##" -9070 F$(7)=" GROSS FED WITH. FICA SPECIAL NET" -9080 F$(8)="% % ######.## ######.## #####.## #####.## ######.##" -9099 RETURN -10000 REM INPUT ERROR SBR -10010 PRINT "INPUT ERROR! TRY AGAIN!":FOR Z9=1 TO 300:NEXT Z9 -10020 RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9:RETURN -10200 REM Y,N,A SBR -10205 Z9$=" " -10210 INPUT "ENTER Y IF OK,N IF ERROR,A TO ABORT";Z9$ -10220 IF Z9$<>"Y" AND Z9$<>"N" AND Z9$<>"A" THEN GOSUB 10000:GOTO 10205 -10230 RETURN -10300 REM Y,N SBR -10305 Z9$=" " -10310 INPUT "ENTER Y IF OK, N IF ERROR";Z9$ -10320 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10305 -10330 RETURN -10400 REM MORE ENTRY? SBR -10405 Z9$=" " -10410 INPUT "DO YOU DESIRE MORE ENTRIES(Y/N)";Z9$ -10420 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10405 -10430 RETURN -10500 REM ONLY Y/N SBR -10510 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000 -10520 RETURN -11000 REM ELIMINATES TRAILING BLANKS OF VARIABLE Z8$ -11010 IF RIGHT$(Z8$,1)=" " THEN Z8$=LEFT$(Z8$,LEN(Z8$)-1):GOTO 11010 -11020 RETURN -11100 X=INT(100*X+.5)/100:RETURN -14000 REM P(1, ) GIVES WAGE BRACKET BDYS. FOR SINGLE EARNERS. -14010 REM P(2, ) GIVES WAGE BRACKET BDYS. FOR MARRIED EARNERS. -14020 REM B(1, ) GIVES WAGE WITHHOLDING % FOR SINGLE EARNERS. -14030 REM B(2, ) GIVES WAGE WITHHOLDING % FOR MARRIED EARNERS. -14035 FW=.0613:REM FICA WITHOLDING DECIMAL -14040 REM NEXT LINE GIVES P(1, ) -14050 DATA 0,27,63,131,196,273,331,433,100000 -14060 REM NEXT LINE GIVES P(2, ) -14070 DATA 0,46,127,210,288,369,454,556,100000 -14080 REM NEXT LINE GIVES B(1, ) -14090 DATA 0,.15,.18,.21,.26,.30,.34,.39 -14100 REM NEXT LINE GIVES B(2, ) -14110 DATA 0,.15,.18,.21,.24,.28,.32,.37 -14120 REM NOW LOAD P() AND B() ARRAYS -14130 FOR I=1 TO 2:FOR J=1 TO 9:READ P(I,J):NEXT J:NEXT I -14140 FOR I=1 TO 2:FOR J=1 TO 8:READ B(I,J):NEXT J:NEXT I -14150 RETURN -15000 RESUME 500 - diff --git a/bwbtest/T80A/PAYROLL2.DAT b/bwbtest/T80A/PAYROLL2.DAT deleted file mode 100644 index 37ecc4c..0000000 --- a/bwbtest/T80A/PAYROLL2.DAT +++ /dev/null @@ -1,526 +0,0 @@ -25 -1 -12.34 -2 -1 -23456 -789 -174 -96 -456 -89 -174 -6 -89.64 -56 -78 -.77 -"TOM CAT" -"123-45-6789" -"777 FUNNY WAY" -"CITY STATE ZIP" -"12/34/56" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -0 -"9999" -"" -"" -"" -"" diff --git a/bwbtest/T80A/PAYROLL2.INP b/bwbtest/T80A/PAYROLL2.INP deleted file mode 100644 index 0c39992..0000000 --- a/bwbtest/T80A/PAYROLL2.INP +++ /dev/null @@ -1,33 +0,0 @@ - -Y -1 -1 -TOM CAT -123-45-6789 -777 FUNNY WAY -CITY STATE ZIP -12/34/56 -12.34 -2 -1 -23456,789,174,96 -456,89,174,6 -89.64,56,78,0.77 - -0 -5 - -PAYROLL2.DAT -4 - -PAYROLL2.DAT -8 -Y -1 -56/78/91 - -2 - - -3 -0 diff --git a/bwbtest/T80A/PAYROLL2.run b/bwbtest/T80A/PAYROLL2.run deleted file mode 100644 index 72656b0..0000000 --- a/bwbtest/T80A/PAYROLL2.run +++ /dev/null @@ -1,176 +0,0 @@ - PAYROLL PROGRAM - -THIS PROGRAM IS A BRIEF IN-MEMORY PAYROLL SYSTEM. ESSENTIALLY -IT IS A PROGRAM WHICH COMPUTES FEDERAL AND FICA WITHHOLDING -AND STORES PAY RECORDS IN A FORM WHICH PERMITS EASY ACCESS -TO THOSE INTERESTED IN 941 OR W-2 FORMS. THERE IS,AT PRESENT, -NO PROVISION FOR STATE OR LOCAL WITHHOLDING BUT THIS CAN BE -HANDLED VIA THE 'OTHER DEDUCTIONS' CATEGORY. THE DIMENSIONING -LIMITS THE PAYROLL MASTER FILE TO 25 EMPLOYEES, THOUGH THIS -MAY BE INCREASED IF MUCH MAIN MEMORY IS AVAILABLE. -REMEMBER THAT THE MASTER MUST BE RECALLED FROM STORAGE BEFORE -OPERATIONS ARE PERFORMED AND RESTORED AFTER THE OPERATIONS. - -DELETE LINES 1-58 TO RUN ON 16K SYSTEM - -PRESS ENTER TO BEGIN? -ARE DISK DRIVES ATTACHED(Y/N)? Y - MAIN MENU - - 0.QUIT - 1.MASTER FILE MAINTENANCE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.COMPUTE PAYROLL - 7.POST PAYROLL TO YTD TOTALS - 8.REPORT GENERATOR - 9.END OF PERIOD FILE MAINTENANCE -ENTER YOUR CHOICE? 1 -EMPLOYEE NUMBER TO EDIT MUST BE LESS THAN 26 - -EMPLOYEE NUMBER TO EDIT(0 TO END)? 1 -EMPLOYEE # 1 -NAME 9999 SS NO. RATE 0.00 -ADDR -LAST PAY EXEMPT 0 MAR(2)-SING(1) 0 - - ID GROSS FED WITH. FICA SPECIAL NET -YTD 1 0.00 0.00 0.00 0.00 0.00 -MTD 1 0.00 0.00 0.00 0.00 0.00 -CURR 1 0.00 0.00 0.00 0.00 0.00 - - -EMPLOYEE # 1 -9999 EMPL. NAME ? TOM CAT - SS# ? 123-45-6789 - ADDR LINE1 ? 777 FUNNY WAY - ADDR LINE2 ? CITY STATE ZIP - LASTPAYDAY ? 12/34/56 - 0.00 PAY RATE ? 12.34 - 0.00 # EXEMPTION ? 2 - 0.00 MAR=2,SING=1 ? 1 - ID GROSS FED WITH. FICA SPECIAL NET -YTD 1 0.00 0.00 0.00 0.00 -YTD GROSS,FED WITH,FICA,SPECIAL? 23456,789,174,96 - ID GROSS FED WITH. FICA SPECIAL NET -MTD 1 0.00 0.00 0.00 0.00 -MTD GROSS,FED WITH,FICA,SPECIAL? 456,89,174,6 - ID GROSS FED WITH. FICA SPECIAL NET -CURR 1 0.00 0.00 0.00 0.00 -CURR GROSS,FED WITH,FICA,SPECIAL? 89.64,56,78,0.77 - -PRESS ENTER TO CONTINUE? -EMPLOYEE NUMBER TO EDIT MUST BE LESS THAN 26 - -EMPLOYEE NUMBER TO EDIT(0 TO END)? 0 - MAIN MENU - - 0.QUIT - 1.MASTER FILE MAINTENANCE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.COMPUTE PAYROLL - 7.POST PAYROLL TO YTD TOTALS - 8.REPORT GENERATOR - 9.END OF PERIOD FILE MAINTENANCE -ENTER YOUR CHOICE? 5 - -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? -PRESENT FILE NAME IS NEW NAME? PAYROLL2.DAT - MAIN MENU - - 0.QUIT - 1.MASTER FILE MAINTENANCE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.COMPUTE PAYROLL - 7.POST PAYROLL TO YTD TOTALS - 8.REPORT GENERATOR - 9.END OF PERIOD FILE MAINTENANCE -ENTER YOUR CHOICE? 4 -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? -ENTER NAME OF DATA FILE TO BE READ ? PAYROLL2.DAT - MAIN MENU - - 0.QUIT - 1.MASTER FILE MAINTENANCE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.COMPUTE PAYROLL - 7.POST PAYROLL TO YTD TOTALS - 8.REPORT GENERATOR - 9.END OF PERIOD FILE MAINTENANCE -ENTER YOUR CHOICE? 8 -IS A LINE PRINTER TO BE USED(Y/N)? Y - REPORT MENU - -1. PAYROLL REGISTER -2. COMPLETE EMPLOYEE LIST WITH COMPANY YTD,MTD TOTALS -3. END REPORT GENERATOR - -ENTER APPROPRIATE CHOICE? 1 -ENTER DATE FOR THIS PAYROLL REGISTER ? 56/78/91 - PAYROLL REGISTER 56/78/91 - - ID GROSS FED WITH. FICA SPECIAL NET - -TOTALS 0.00 0.00 0.00 0.00 0.00 - -PRESS ENTER TO CONTINUE? - REPORT MENU - -1. PAYROLL REGISTER -2. COMPLETE EMPLOYEE LIST WITH COMPANY YTD,MTD TOTALS -3. END REPORT GENERATOR - -ENTER APPROPRIATE CHOICE? 2 - EMPLOYEE LIST -EMPLOYEE # 1 -NAME TOM CAT SS NO. 123-45-6789 RATE 12.34 -ADDR 777 FUNNY WAY CITY STATE ZIP -LAST PAY 12/34/56 EXEMPT 2 MAR(2)-SING(1) 1 - - ID GROSS FED WITH. FICA SPECIAL NET -YTD 1 23456.00 789.00 174.00 96.00 22397.00 -MTD 1 456.00 89.00 174.00 6.00 187.00 -CURR 1 89.64 56.00 78.00 0.77 -45.13 - - -PRESS ENTER FOR COMPANY TOTALS? - COMPANY TOTALS - GROSS FED WITH. FICA SPECIAL NET - -YTD 23456.00 789.00 174.00 96.00 22397.00 -MTD 456.00 89.00 174.00 6.00 187.00 - -PRESS ENTER TO CONTINUE? - REPORT MENU - -1. PAYROLL REGISTER -2. COMPLETE EMPLOYEE LIST WITH COMPANY YTD,MTD TOTALS -3. END REPORT GENERATOR - -ENTER APPROPRIATE CHOICE? 3 - MAIN MENU - - 0.QUIT - 1.MASTER FILE MAINTENANCE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.COMPUTE PAYROLL - 7.POST PAYROLL TO YTD TOTALS - 8.REPORT GENERATOR - 9.END OF PERIOD FILE MAINTENANCE -ENTER YOUR CHOICE? 0 diff --git a/bwbtest/T80A/PORTFOLIO b/bwbtest/T80A/PORTFOLIO deleted file mode 100644 index 164a7d5..0000000 --- a/bwbtest/T80A/PORTFOLIO +++ /dev/null @@ -1,2 +0,0 @@ -1 -"ABC","A.B.C.","12/34/56",789,12.34,56.78,9.87 diff --git a/bwbtest/T80A/PORTVAL9.BAS b/bwbtest/T80A/PORTVAL9.BAS deleted file mode 100644 index def7936..0000000 --- a/bwbtest/T80A/PORTVAL9.BAS +++ /dev/null @@ -1,214 +0,0 @@ -1 CLS:PRINT "THIS PROGRAM IS A SIMPLE STOCK PORTFOLIO PROGRAM. IT WILL -2 PRINT " PERMIT THE USER TO STORE DATA ABOUT HIS PORTFOLIO OF SECURIT- -3 PRINT "IES AS WELL AS GIVE A PROFIT ANALYSIS OF THE PORTFOLIO. -4 PRINT "FOR EACH SECURITY WE STORE STOCK TICKER CODE,COMPANY NAME -5 PRINT "DATE OF PURCHASE, # UNITS PURCHASED, PURCHASE PR/UNIT, -6 PRINT "PRESENT PR/UNIT, YEARLY DIVIDENDS/UNIT. -7 PRINT :PRINT " THE ANALYSIS COMPUTES SUCH ELEMENTS AS PORTFOLIO AT COST. -8 PRINT "PRESENT VALUE OF PORTFOLIO, PRESENT YIELD, ETC. -9 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -19 CLEAR 1000 -20 DEFDBL B,V -30 DIM A$(70,4),B(70,8) -35 DIM AT$(70,4),BT(70,8) -40 GOSUB 9000 -100 CLS:INPUT "ARE DISK DRIVES ATTACHED(Y/N)";ZD$ -110 IF ZD$<>"Y" AND ZD$<>"N" THEN GOSUB 10000:GOTO 100 -500 CLS:PRINT " MAIN MENU":PRINT -505 PRINT " 0.QUIT -510 PRINT " 1.ADD TO FILE OR BEGIN NEW FILE -520 PRINT " 2.READ FILE IN FROM TAPE -530 PRINT " 3.WRITE FILE OUT ONTO TAPE -540 PRINT " 4.READ FILE IN FROM DISK -550 PRINT " 5.WRITE FILE OUT ONTO DISK -560 PRINT " 6.EDIT FILE -570 PRINT " 7.LIST FILE AND PROFIT ANALYSIS -580 PRINT " 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -600 INPUT "ENTER YOUR CHOICE";Z9 -605 IF Z9 = 0 THEN END -610 ON Z9 GOSUB 1000,2000,2100,2200,2300,3000,5000,7000 -620 GOTO 500 -1000 REM ADD TO OR START FILE ALREADY IN MEMORY -1010 CLS: IF NI=0 THEN PRINT "NEW FILE":GOSUB 10100 -1015 J=NI+1 -1020 GOSUB 6000:REM INPUT 1 RECORD -1030 CLS:PRINT F$(2):PRINT F$(3):GOSUB 6100:REM PRINT OUT 1 RECORD -1040 GOSUB 10200:IF Z9$="N" THEN GOTO 1020 -1050 IF Z9$="A" THEN RETURN -1060 NI=NI+1:REM NEW RECORD ON FILE -1070 GOSUB 10400:REM MORE? -1080 IF Z9$="Y" THEN GOTO 1000 -1090 RETURN -2000 REM READ IN FILE FROM TAPE -2010 CLS:PRINT "PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2015 ' IF ZD$="Y" THEN CMD"T" -2020 INPUT #-1,NI -2030 FOR J=1 TO NI:INPUT #-1,A$(J,1),A$(J,2),A$(J,3),B(J,1),B(J,2),B(J,3),B(J,4):NEXT -2040 RETURN -2100 REM WRITE OUT FILE ONTO TAPE -2110 PRINT "PUT DATA TAPE IN TAPE DRIVE":GOSUB 10100 -2115 ' IF ZD$="Y" THEN CMD"T" -2130 WRITE #-1,NI -2140 FOR J=1 TO NI:WRITE #-1,A$(J,1),A$(J,2),A$(J,3),B(J,1),B(J,2),B(J,3),B(J,4):NEXT -2150 RETURN -2200 REM READ IN FILE FROM DISK -2210 CLS:PRINT "PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2220 ON ERROR GOTO 2290 -2230 OPEN "I",1,"PORTFOLIO" -2240 INPUT # 1,NI -2250 FOR J=1 TO NI:INPUT # 1,A$(J,1),A$(J,2),A$(J,3),B(J,1),B(J,2),B(J,3),B(J,4):NEXT -2260 CLOSE # 1 -2270 RETURN -2290 PRINT "FILE DOES NOT EXIST":GOSUB 10100:RETURN -2300 REM WRITE FILE OUT TO DISK -2310 PRINT :PRINT "PUT DATA DISK IN DISK DRIVE":GOSUB 10100 -2320 OPEN "O",1,"PORTFOLIO" -2330 WRITE # 1,NI -2340 FOR J=1 TO NI -2350 WRITE # 1,A$(J,1),A$(J,2),A$(J,3),B(J,1),B(J,2),B(J,3),B(J,4) -2360 NEXT J -2370 CLOSE # 1 -2380 RETURN -3000 REM EDIT FILE -3010 CLS:PRINT " ";F$(2):PRINT " ";F$(3) -3020 FOR J=1 TO NI -3030 PRINT USING "## ";J; -3040 GOSUB 6100 -3050 IF J/12=INT(J/12) THEN GOSUB 4000 -3060 NEXT J -3062 J=J-1 -3065 IF J/12=INT(J/12) THEN GOTO 3080 -3070 GOSUB 4000 -3080 RETURN -4000 REM EDIT SUBROUTINE -4010 K=J -4020 PRINT -4025 J=0 -4028 PRINT "CHANGE STOCK TICKER CODE TO ZZZZ FOR DELETING" -4030 INPUT "ENTER # OF ITEM YOU WISH TO EDIT,0 IF NONE";J -4035 IF J=0 THEN J=K:RETURN -4040 CLS:PRINT " ";F$(2):PRINT " ";F$(3):PRINT -4050 PRINT " ";:GOSUB 6100 -4060 PRINT :GOSUB 6000 -4070 CLS:PRINT " ";F$(2):PRINT " ";F$(3) -4080 FOR J=INT(K/12)*12+1 TO K:PRINT USING "## ";J;:GOSUB 6100:NEXT -4090 GOTO 4020 -5000 REM LIST FILE WITH ANALYSIS -5005 INPUT "IS A LINE PRINTER TO BE USED(Y/N)";Z2$:IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 5005 -5010 CLS:PRINT " LIST MENU":PRINT -5020 PRINT "1. COMPLETE LIST AS ON FILE -5030 PRINT "2. LIST WITH PAPER PROFIT, YIELD & PORTFOLIO VALUE -5050 PRINT "3. END LIST PROGRAM -5060 PRINT :INPUT "ENTER APPROPRIATE CHOICE";Z9 -5065 IF Z9=3 THEN RETURN -5070 ON Z9 GOSUB 5200,5300 -5080 GOTO 5010 -5100 RETURN -5200 REM COMPLETE LIST -5205 CLS:IF Z2$="Y" THEN PRINT "PUT PAPER INTO PRINTER":GOSUB 10100 -5210 PRINT F$(2):PRINT F$(3):IF Z2$="Y" THEN LPRINT F$(2):LPRINT F$(3) -5220 FOR J = 1 TO NI -5230 GOSUB 6100:GOSUB 6300:REM 1 RECORD PRINTED -5240 IF J/12 = INT(J/12) THEN PRINT :GOSUB 10100:CLS:PRINT F$(2):PRINT F$(3) -5250 NEXT J -5260 PRINT :GOSUB 10100 -5270 RETURN -5300 REM PORTFOLIO ANALYSIS -5310 V(1)=0:V(2)=0:V(3)=0:V(4)=0 -5315 CLS:PRINT @ 398,"******* COMPUTING *******" -5320 FOR J=1 TO NI -5330 V(1)=V(1)+B(J,1)*B(J,2):REM PORTFOLIO AT COST -5340 V(2)=V(2)+B(J,1)*B(J,3):REM PORTFOLIO VALUE NOW -5350 V(3)=V(3)+B(J,1)*B(J,4):REM TOTAL DIVIDENDS -5360 B(J,5)=B(J,4)/B(J,3)*100:REM PRESENT YIELD -5370 B(J,6)=B(J,3)/B(J,2)*100-100:REM % PROFIT -5380 B(J,7)=B(J,1)*B(J,3):REM PRESENT VALUE -5390 NEXT J -5400 CLS:PRINT F$(5):PRINT F$(6):IF Z2$="Y" THEN LPRINT F$(5):LPRINT F$(6) -5410 FOR J=1 TO NI -5420 PRINT USING F$(7);A$(J,1),A$(J,3),B(J,2),B(J,3),B(J,5),B(J,7),B(J,6) -5430 IF Z2$="Y" THEN LPRINT USING F$(7);A$(J,1),A$(J,3),B(J,2),B(J,3),B(J,5),B(J,7),B(J,6) -5440 IF J/12=INT(J/12) THEN GOSUB 10100:CLS:PRINT F$(5):PRINT F$(6) -5450 NEXT J -5460 PRINT :GOSUB 10100 -5470 PRINT -5480 PRINT USING "PORTFOLIO VALUE AT COST : $$#####.##";V(1) -5485 PRINT USING "PRESENT PORTFOLIO VALUE : $$#####.##";V(2) -5487 PRINT USING "DOLLAR PAPER PROFIT : $$#####.##";V(2)-V(1) -5490 PRINT USING "TOTAL DIVIDENDS PER YEAR: $$#####.##";V(3) -5495 PRINT USING "DIVIDEND YIELD : ####.##";V(3)/V(2) -5500 IF Z2$<>"Y" THEN GOTO 5550 -5510 LPRINT USING "PORTFOLIO VALUE AT COST : $$#####.##";V(1) -5515 LPRINT USING "PRESENT PORTFOLIO VALUE : $$#####.##";V(2) -5517 LPRINT USING "DOLLAR PAPER PROFIT : $$#####.##";V(2)-V(1) -5520 LPRINT USING "TOTAL DIVIDENDS PER YEAR: $$#####.##";V(3) -5525 LPRINT USING "DIVIDEND YIELD : ###.##";V(3)/V(2) -5530 LPRINT :LPRINT -5550 PRINT :GOSUB 10100:RETURN -6000 REM SBR FOR INPUTTING DATA ON 1 PURCHASE -6005 F$(1)="% %" -6010 PRINT USING F$(1);A$(J,1),:INPUT "STOCK TICKER CODE";A$(J,1) -6020 PRINT USING F$(1);A$(J,2),:INPUT "COMPANY NAME ";A$(J,2) -6030 PRINT USING F$(1);A$(J,3),:INPUT "DATE OF PURCHASE ";A$(J,3) -6035 F$(1)=" ######.## " -6040 PRINT USING F$(1);B(J,1),:INPUT "# UNITS PURCHASED";B(J,1) -6050 PRINT USING F$(1);B(J,2),:INPUT "PURCHASE PR/UNIT ";B(J,2) -6060 PRINT USING F$(1);B(J,3),:INPUT "PRESENT PR/UNIT ";B(J,3) -6070 PRINT USING F$(1);B(J,4),:INPUT "YEARLY DIV/UNIT ";B(J,4) -6099 RETURN -6100 REM PRINT 1 LINE OF PORTFOLIO -6110 PRINT USING F$(4);A$(J,1),A$(J,2),A$(J,3),B(J,2),B(J,3),B(J,4),B(J,1) -6120 RETURN -6300 REM PRINT 1 LINE OF PORTFOLIO ON PRINTER -6310 IF Z2$<>"Y" THEN RETURN -6320 LPRINT USING F$(4);A$(J,1),A$(J,2),A$(J,3),B(J,2),B(J,3),B(J,4),B(J,1) -6330 RETURN -7000 REM DELETE SBR COMPUTATION -7005 K=1:REM K=NO. OF RECORDS NOT DELETED -7010 FOR J=1 TO NI -7020 IF A$(J,1)="ZZZZ" THEN GOTO 7090 -7030 REM DO NOT DELETE RECORD -7040 FOR J6=1 TO 4:AT$(K,J6)=A$(J,J6):NEXT -7050 FOR J6=1 TO 7:BT(K,J6)=B(J,J6):NEXT -7060 K=K+1:GOTO 7090 -7090 NEXT J -7100 K=K-1:NI=K -7110 FOR J=1 TO NI -7120 FOR J6=1 TO 4:A$(J,J6)=AT$(J,J6):NEXT -7130 FOR J6=1 TO 7:B(J,J6)=BT(J,J6):NEXT -7140 NEXT J -7150 RETURN -9000 REM FORMATTING VARIABLES -9020 F$(2)="TK CORP. NAME DATE PURCH. PRESENT YEARLY NO." -9025 F$(3)="CODE PURCH PR/UNIT PR/UNIT DIV/UNIT UNITS" -9030 F$(4)="% % % % % % ####.## ####.## ####.## #####" -9040 F$(5)=" TK DATE PURCH. PRES. YIELD PRESENT % PROFIT" -9050 F$(6)="CODE PURCH. PR/UNIT PR/UNIT % VALUE" -9060 F$(7)="% % % % ####.## ####.## ###.## ######.## ####.## " -9099 RETURN -10000 REM INPUT ERROR SBR -10010 PRINT "INPUT ERROR! TRY AGAIN!":FOR Z9=1 TO 300:NEXT Z9 -10020 RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9:RETURN -10200 REM Y,N,A SBR -10205 Z9$=" " -10210 INPUT "ENTER Y IF OK,N IF ERROR,A TO ABORT";Z9$ -10220 IF Z9$<>"Y" AND Z9$<>"N" AND Z9$<>"A" THEN GOSUB 10000:GOTO 10205 -10230 RETURN -10300 REM Y,N SBR -10305 Z9$=" " -10310 INPUT "ENTER Y IF OK, N IF ERROR";Z9$ -10320 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10305 -10330 RETURN -10400 REM MORE ENTRY? SBR -10405 Z9$=" " -10410 INPUT "DO YOU DESIRE MORE ENTRIES(Y/N)";Z9$ -10420 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000:GOTO 10405 -10430 RETURN -10500 REM ONLY Y/N SBR -10510 IF Z9$<>"Y" AND Z9$<>"N" THEN GOSUB 10000 -10520 RETURN -11000 REM ELIMINATES TRAILING BLANKS OF VARIABLE Z8$ -11010 IF RIGHT$(Z8$,1)=" " THEN Z8$=LEFT$(Z8$,LEN(Z8$)-1):GOTO 11010 -11020 RETURN - diff --git a/bwbtest/T80A/PORTVAL9.INP b/bwbtest/T80A/PORTVAL9.INP deleted file mode 100644 index 5fb905b..0000000 --- a/bwbtest/T80A/PORTVAL9.INP +++ /dev/null @@ -1,27 +0,0 @@ - -Y -1 - -ABC -A.B.C. -12/34/56 -789 -12.34 -56.78 -9.87 -Y -N -5 - -4 - -7 -Y -1 - - -2 - - -3 -0 diff --git a/bwbtest/T80A/PORTVAL9.run b/bwbtest/T80A/PORTVAL9.run deleted file mode 100644 index f57f75f..0000000 --- a/bwbtest/T80A/PORTVAL9.run +++ /dev/null @@ -1,135 +0,0 @@ -THIS PROGRAM IS A SIMPLE STOCK PORTFOLIO PROGRAM. IT WILL - PERMIT THE USER TO STORE DATA ABOUT HIS PORTFOLIO OF SECURIT- -IES AS WELL AS GIVE A PROFIT ANALYSIS OF THE PORTFOLIO. -FOR EACH SECURITY WE STORE STOCK TICKER CODE,COMPANY NAME -DATE OF PURCHASE, # UNITS PURCHASED, PURCHASE PR/UNIT, -PRESENT PR/UNIT, YEARLY DIVIDENDS/UNIT. - - THE ANALYSIS COMPUTES SUCH ELEMENTS AS PORTFOLIO AT COST. -PRESENT VALUE OF PORTFOLIO, PRESENT YIELD, ETC. - -PRESS ENTER TO BEGIN? -ARE DISK DRIVES ATTACHED(Y/N)? Y - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST FILE AND PROFIT ANALYSIS - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 1 -NEW FILE -PRESS ENTER TO CONTINUE? - STOCK TICKER CODE? ABC - COMPANY NAME ? A.B.C. - DATE OF PURCHASE ? 12/34/56 - 0.00 # UNITS PURCHASED? 789 - 0.00 PURCHASE PR/UNIT ? 12.34 - 0.00 PRESENT PR/UNIT ? 56.78 - 0.00 YEARLY DIV/UNIT ? 9.87 -TK CORP. NAME DATE PURCH. PRESENT YEARLY NO. -CODE PURCH PR/UNIT PR/UNIT DIV/UNIT UNITS -ABC A.B.C. 12/34/56 12.34 56.78 9.87 789 -ENTER Y IF OK,N IF ERROR,A TO ABORT? Y -DO YOU DESIRE MORE ENTRIES(Y/N)? N - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST FILE AND PROFIT ANALYSIS - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 5 - -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST FILE AND PROFIT ANALYSIS - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 4 -PUT DATA DISK IN DISK DRIVE -PRESS ENTER TO CONTINUE? - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST FILE AND PROFIT ANALYSIS - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 7 -IS A LINE PRINTER TO BE USED(Y/N)? Y - LIST MENU - -1. COMPLETE LIST AS ON FILE -2. LIST WITH PAPER PROFIT, YIELD & PORTFOLIO VALUE -3. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 1 -PUT PAPER INTO PRINTER -PRESS ENTER TO CONTINUE? -TK CORP. NAME DATE PURCH. PRESENT YEARLY NO. -CODE PURCH PR/UNIT PR/UNIT DIV/UNIT UNITS -ABC A.B.C. 12/34/56 12.34 56.78 9.87 789 - -PRESS ENTER TO CONTINUE? - LIST MENU - -1. COMPLETE LIST AS ON FILE -2. LIST WITH PAPER PROFIT, YIELD & PORTFOLIO VALUE -3. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 2 - -******* COMPUTING ******* - TK DATE PURCH. PRES. YIELD PRESENT % PROFIT -CODE PURCH. PR/UNIT PR/UNIT % VALUE -ABC 12/34/56 12.34 56.78 17.38 44799.42 360.13 - -PRESS ENTER TO CONTINUE? - -PORTFOLIO VALUE AT COST : $9736.26 -PRESENT PORTFOLIO VALUE : $44799.42 -DOLLAR PAPER PROFIT : $35063.16 -TOTAL DIVIDENDS PER YEAR: $7787.43 -DIVIDEND YIELD : 0.17 - -PRESS ENTER TO CONTINUE? - LIST MENU - -1. COMPLETE LIST AS ON FILE -2. LIST WITH PAPER PROFIT, YIELD & PORTFOLIO VALUE -3. END LIST PROGRAM - -ENTER APPROPRIATE CHOICE? 3 - MAIN MENU - - 0.QUIT - 1.ADD TO FILE OR BEGIN NEW FILE - 2.READ FILE IN FROM TAPE - 3.WRITE FILE OUT ONTO TAPE - 4.READ FILE IN FROM DISK - 5.WRITE FILE OUT ONTO DISK - 6.EDIT FILE - 7.LIST FILE AND PROFIT ANALYSIS - 8.ROUTINE ACTUALLY DELETING RECORD FROM FILE -ENTER YOUR CHOICE? 0 diff --git a/bwbtest/T80A/PRINDLAS.BAS b/bwbtest/T80A/PRINDLAS.BAS deleted file mode 100644 index 246604a..0000000 --- a/bwbtest/T80A/PRINDLAS.BAS +++ /dev/null @@ -1,34 +0,0 @@ -1 REM PRINDLAS -5 CLEAR 1000 -10 CLS -20 PRINT TAB(10); "LASPEYRES PRICE INDEX":PRINT -30 PRINT"COMPARING PRICES AT A FIXED TIME IN THE PAST, CALLED THE -35 PRINT"BASE YEAR TO CURRENT PRICES IS NOT THAT SIMPLE. THIS IS -40 PRINT"BECAUSE NEW ITEMS HIT THE MARKET AND USE OF OTHER ITEMS -45 PRINT"CHANGE THROUGH THE YEARS. THE U.S. DEPARTMENT OF LABOR USES -50 PRINT"A METHOD BY WHICH QUANTITIES FOR THE BASE YEAR ARE USED AND -55 PRINT"ARE WEIGHTED ONCE WITH BASE YEAR PRICES AND ONCE WITH CURRENT -60 PRINT"PRICES. THESE TWO WEIGHTINGS ARE DIVIDED AND THE QUOTIENT -65 PRINT"IS MULTIPLIED BY 100 GIVING THE LASPEYRES PRICE INDEX. -70 PRINT"IF THE INDEX IS GREATER THAN 100 THEN PRICES HAVE INCREASED. -90 PRINT:INPUT"PRESS ENTER TO CONTINUE";Z9$ -95 DIM PB(100),PC(100),QB(100) -100 CLS -110 PRINT"INPUT ITEMS IN INDEX 1 BY 1 AS REQUESTED. A NEGATIVE QUANTITY -120 PRINT"MEANS THAT THE USER HAS FINISHED INPUTTING THE DATA. -130 PRINT -140 I=0 -150 PRINT"FOR ITEM #";I+1;" ENTER THE FOLLOWING:" -160 INPUT" BASE YEAR QUANTITY(NEGATIVE ENDS)";QB(I+1) -165 IF QB(I+1)<0 THEN GOTO 300 -170 INPUT" BASE YEAR PRICE ";PB(I+1) -180 INPUT" CURRENT YEAR PRICE ";PC(I+1) -190 I=I+1:GOTO 150 -300 N=0:D=0 -310 FOR J=1 TO I:N=N+PC(J)*QB(J):D=D+PB(J)*QB(J):NEXT -320 CLS -330 PRINT:PRINT -340 PRINT"THE LASPEYRES PRICE INDEX EQUALS ";N/D*100 -350 PRINT:INPUT"PRESS ENTER FOR MORE";Z9$ -355 IF Z9$ = "-1" THEN END -360 CLS:GOTO 140 diff --git a/bwbtest/T80A/PRINDLAS.INP b/bwbtest/T80A/PRINDLAS.INP deleted file mode 100644 index 1445809..0000000 --- a/bwbtest/T80A/PRINDLAS.INP +++ /dev/null @@ -1,9 +0,0 @@ - -45 -67.89 -123.45 -67 -89.01 -234.56 --1 --1 diff --git a/bwbtest/T80A/PRINDLAS.run b/bwbtest/T80A/PRINDLAS.run deleted file mode 100644 index 6135cee..0000000 --- a/bwbtest/T80A/PRINDLAS.run +++ /dev/null @@ -1,31 +0,0 @@ - LASPEYRES PRICE INDEX - -COMPARING PRICES AT A FIXED TIME IN THE PAST, CALLED THE -BASE YEAR TO CURRENT PRICES IS NOT THAT SIMPLE. THIS IS -BECAUSE NEW ITEMS HIT THE MARKET AND USE OF OTHER ITEMS -CHANGE THROUGH THE YEARS. THE U.S. DEPARTMENT OF LABOR USES -A METHOD BY WHICH QUANTITIES FOR THE BASE YEAR ARE USED AND -ARE WEIGHTED ONCE WITH BASE YEAR PRICES AND ONCE WITH CURRENT -PRICES. THESE TWO WEIGHTINGS ARE DIVIDED AND THE QUOTIENT -IS MULTIPLIED BY 100 GIVING THE LASPEYRES PRICE INDEX. -IF THE INDEX IS GREATER THAN 100 THEN PRICES HAVE INCREASED. - -PRESS ENTER TO CONTINUE? -INPUT ITEMS IN INDEX 1 BY 1 AS REQUESTED. A NEGATIVE QUANTITY -MEANS THAT THE USER HAS FINISHED INPUTTING THE DATA. - -FOR ITEM # 1 ENTER THE FOLLOWING: - BASE YEAR QUANTITY(NEGATIVE ENDS)? 45 - BASE YEAR PRICE ? 67.89 - CURRENT YEAR PRICE ? 123.45 -FOR ITEM # 2 ENTER THE FOLLOWING: - BASE YEAR QUANTITY(NEGATIVE ENDS)? 67 - BASE YEAR PRICE ? 89.01 - CURRENT YEAR PRICE ? 234.56 -FOR ITEM # 3 ENTER THE FOLLOWING: - BASE YEAR QUANTITY(NEGATIVE ENDS)? -1 - - -THE LASPEYRES PRICE INDEX EQUALS 235.851 - -PRESS ENTER FOR MORE? -1 diff --git a/bwbtest/T80A/PRINDPA.BAS b/bwbtest/T80A/PRINDPA.BAS deleted file mode 100644 index 0793059..0000000 --- a/bwbtest/T80A/PRINDPA.BAS +++ /dev/null @@ -1,34 +0,0 @@ -1 REM PRINDLAS -5 CLEAR 1000 -10 CLS -20 PRINT TAB(15); "PAASCHE PRICE INDEX":PRINT -30 PRINT"COMPARING PRICES AT A FIXED TIME IN THE PAST, CALLED THE -35 PRINT"BASE YEAR TO CURRENT PRICES IS NOT THAT SIMPLE. THIS IS -40 PRINT"BECAUSE NEW ITEMS HIT THE MARKET AND USE OF OTHER ITEMS -45 PRINT"CHANGE THROUGH THE YEARS. THE PAASCHE PRICE INDEX USES -50 PRINT"A METHOD BY WHICH QUANTITIES FOR THE CURRENT YEAR ARE USED AND -55 PRINT"ARE WEIGHTED ONCE WITH BASE YEAR PRICES AND ONCE WITH CURRENT -60 PRINT"PRICES. THESE TWO WEIGHTINGS ARE DIVIDED AND THE QUOTIENT -65 PRINT"IS MULTIPLIED BY 100 GIVING THE PAASCHE PRICE INDEX. -70 PRINT"IF THE INDEX IS GREATER THAN 100 THEN PRICES HAVE INCREASED. -90 PRINT:INPUT"PRESS ENTER TO CONTINUE";Z9$ -95 DIM PB(100),PC(100),QC(100) -100 CLS -110 PRINT"INPUT ITEMS IN INDEX 1 BY 1 AS REQUESTED. A NEGATIVE QUANTITY -120 PRINT"MEANS THAT THE USER HAS FINISHED INPUTTING THE DATA. -130 PRINT -140 I=0 -150 PRINT"FOR ITEM #";I+1;" ENTER THE FOLLOWING:" -160 INPUT" CURRENT YEAR QUANTITY(NEGATIVE ENDS)";QC(I+1) -165 IF QC(I+1)<0 THEN GOTO 300 -170 INPUT" BASE YEAR PRICE ";PB(I+1) -180 INPUT" CURRENT YEAR PRICE ";PC(I+1) -190 I=I+1:GOTO 150 -300 N=0:D=0 -310 FOR J=1 TO I:N=N+PC(J)*QC(J):D=D+PB(J)*QC(J):NEXT -320 CLS -330 PRINT:PRINT -340 PRINT"THE PAASCHE PRICE INDEX EQUALS ";N/D*100 -350 PRINT:INPUT"PRESS ENTER FOR MORE";Z9$ -355 IF Z9$ = "-1" THEN END -360 CLS:GOTO 140 diff --git a/bwbtest/T80A/PRINDPA.INP b/bwbtest/T80A/PRINDPA.INP deleted file mode 100644 index c9e741f..0000000 --- a/bwbtest/T80A/PRINDPA.INP +++ /dev/null @@ -1,9 +0,0 @@ - -56 -78.91 -234.56 -78 -90.12 -345.67 --1 --1 diff --git a/bwbtest/T80A/PRINDPA.run b/bwbtest/T80A/PRINDPA.run deleted file mode 100644 index 0ea1727..0000000 --- a/bwbtest/T80A/PRINDPA.run +++ /dev/null @@ -1,31 +0,0 @@ - PAASCHE PRICE INDEX - -COMPARING PRICES AT A FIXED TIME IN THE PAST, CALLED THE -BASE YEAR TO CURRENT PRICES IS NOT THAT SIMPLE. THIS IS -BECAUSE NEW ITEMS HIT THE MARKET AND USE OF OTHER ITEMS -CHANGE THROUGH THE YEARS. THE PAASCHE PRICE INDEX USES -A METHOD BY WHICH QUANTITIES FOR THE CURRENT YEAR ARE USED AND -ARE WEIGHTED ONCE WITH BASE YEAR PRICES AND ONCE WITH CURRENT -PRICES. THESE TWO WEIGHTINGS ARE DIVIDED AND THE QUOTIENT -IS MULTIPLIED BY 100 GIVING THE PAASCHE PRICE INDEX. -IF THE INDEX IS GREATER THAN 100 THEN PRICES HAVE INCREASED. - -PRESS ENTER TO CONTINUE? -INPUT ITEMS IN INDEX 1 BY 1 AS REQUESTED. A NEGATIVE QUANTITY -MEANS THAT THE USER HAS FINISHED INPUTTING THE DATA. - -FOR ITEM # 1 ENTER THE FOLLOWING: - CURRENT YEAR QUANTITY(NEGATIVE ENDS)? 56 - BASE YEAR PRICE ? 78.91 - CURRENT YEAR PRICE ? 234.56 -FOR ITEM # 2 ENTER THE FOLLOWING: - CURRENT YEAR QUANTITY(NEGATIVE ENDS)? 78 - BASE YEAR PRICE ? 90.12 - CURRENT YEAR PRICE ? 345.67 -FOR ITEM # 3 ENTER THE FOLLOWING: - CURRENT YEAR QUANTITY(NEGATIVE ENDS)? -1 - - -THE PAASCHE PRICE INDEX EQUALS 350.249 - -PRESS ENTER FOR MORE? -1 diff --git a/bwbtest/T80A/PROFIND.BAS b/bwbtest/T80A/PROFIND.BAS deleted file mode 100644 index 2a57b4f..0000000 --- a/bwbtest/T80A/PROFIND.BAS +++ /dev/null @@ -1,38 +0,0 @@ -1 REM PROFIND -5 CLEAR 1000 -10 CLS -15 DIM A(110) -20 PRINT TAB(12); "PROFITABILITY INDEX OF A PROJECT" -25 PRINT -30 PRINT"THE PROFITABILITY INDEX OF A PROJECT IS SIMPLY THE PRESENT -35 PRINT"VALUE OF THE FUTURE (EXPECTED) NET CASH FLOWS DIVIDED BY THE -40 PRINT"INITIAL CASH OUTLAY. AS LONG AS THE PROFITABILITY INDEX IS -45 PRINT"GREATER THAN 1 THE INVESTMENT IS ACCEPTABLE. -50 PRINT:PRINT"IN THIS PROGRAM THE USER INPUTS THE CASH FLOWS OVER THE -55 PRINT"LIFE OF A PROJECT(UP TO 100). EXCEPT FOR THE INITIAL COST -60 PRINT"A NEGATIVE CASH FLOW MEANS CASH OUTFLOW. THE USER ALSO -65 PRINT"ENTERS THE INTEREST RATE WHICH THE PROJECT IS CAPITALIZED -70 PRINT"UNDER (I.E. RETURN DESIRED). THE PROGRAM OUTPUTS THE -75 PRINT"PROFITABILITY INDEX. -95 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -200 CLS -210 INPUT"ENTER RETURN DESIRED FOR THIS PROJECT(%) ";K:K=K/100 -220 INPUT"ENTER INITIAL CASH OUTLAY FOR THE PROJECT";A(0) -230 I=0 -240 PRINT"INPUT CASH FLOW FOR YEAR ";I+1;"(-9999 ENDS)";:INPUT A(I+1) -250 IF A(I+1)<> -9999 THEN I=I+1 :ELSE GOTO 300 -260 GOTO 240 -300 REM ALL INPUTS ENTERED. NOW COMPUTE -305 PRINT -310 PV=0 -320 FOR J=1 TO I -330 PV=PV+A(J)/(1+K)[J -340 NEXT -350 ' PI=PV/A(0) -400 PRINT"INITIAL CASH COST OF PROJECT = ";A(0) -405 PRINT"PRESENT VALUE OF FUTURE CASH FLOWS = ";PV -410 PRINT"PROFITABILITY INDEX EQUALS ";PV/A(0) -420 PRINT:PRINT -430 INPUT"PRESS ENTER FOR MORE COMPUTATION";Z9$ -435 IF Z9$ = "-1" THEN END -440 GOTO 200 diff --git a/bwbtest/T80A/PROFIND.INP b/bwbtest/T80A/PROFIND.INP deleted file mode 100644 index 01261a7..0000000 --- a/bwbtest/T80A/PROFIND.INP +++ /dev/null @@ -1,9 +0,0 @@ - -12 -345678 -9123 -5678 -7892 -8912 --9999 --1 diff --git a/bwbtest/T80A/PROFIND.run b/bwbtest/T80A/PROFIND.run deleted file mode 100644 index fea5980..0000000 --- a/bwbtest/T80A/PROFIND.run +++ /dev/null @@ -1,29 +0,0 @@ - PROFITABILITY INDEX OF A PROJECT - -THE PROFITABILITY INDEX OF A PROJECT IS SIMPLY THE PRESENT -VALUE OF THE FUTURE (EXPECTED) NET CASH FLOWS DIVIDED BY THE -INITIAL CASH OUTLAY. AS LONG AS THE PROFITABILITY INDEX IS -GREATER THAN 1 THE INVESTMENT IS ACCEPTABLE. - -IN THIS PROGRAM THE USER INPUTS THE CASH FLOWS OVER THE -LIFE OF A PROJECT(UP TO 100). EXCEPT FOR THE INITIAL COST -A NEGATIVE CASH FLOW MEANS CASH OUTFLOW. THE USER ALSO -ENTERS THE INTEREST RATE WHICH THE PROJECT IS CAPITALIZED -UNDER (I.E. RETURN DESIRED). THE PROGRAM OUTPUTS THE -PROFITABILITY INDEX. - -PRESS ENTER TO BEGIN? -ENTER RETURN DESIRED FOR THIS PROJECT(%) ? 12 -ENTER INITIAL CASH OUTLAY FOR THE PROJECT? 345678 -INPUT CASH FLOW FOR YEAR 1 (-9999 ENDS)? 9123 -INPUT CASH FLOW FOR YEAR 2 (-9999 ENDS)? 5678 -INPUT CASH FLOW FOR YEAR 3 (-9999 ENDS)? 7892 -INPUT CASH FLOW FOR YEAR 4 (-9999 ENDS)? 8912 -INPUT CASH FLOW FOR YEAR 5 (-9999 ENDS)? -9999 - -INITIAL CASH COST OF PROJECT = 345678 -PRESENT VALUE OF FUTURE CASH FLOWS = 23953.1 -PROFITABILITY INDEX EQUALS 6.92931E-2 - - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/PVAL.BAS b/bwbtest/T80A/PVAL.BAS deleted file mode 100644 index c4436fc..0000000 --- a/bwbtest/T80A/PVAL.BAS +++ /dev/null @@ -1,36 +0,0 @@ -1 REM PVAL -5 CLS -10 PRINT" PRESENT VALUE" -20 PRINT -30 PRINT"THIS PROGRAM WILL COMPUTE THE PRESENT VALUE OF A SINGLE -40 PRINT"AMOUNT , A ,TO BE OBTAINED AFTER N EQUAL TIME PERIODS, WITH -50 PRINT"INTEREST COMPOUNDED AT A RATE OF I% pER PERIOD. -55 PRINT "BE SURE TO INPUT INTEREST RATE AS A PER CENT. CONVERSION -57 PRINT "TO DECIMAL FORM IS DONE IN THE PROGRAM. -60 PRINT:PRINT" INTEREST RATES MAY BE QUOTED AS ANNUAL RATES IF THE -70 PRINT"NUMBER OF COMPOUNDINGS PER YEAR ARE KNOWN.":PRINT -90 INPUT "PRESS ENTER TO BEGIN ";Z9 -99 REM -100 CLS:INPUT"ARE INTEREST RATES QUOTED ANNUALLY(Y/N)";Z9$ -103 IF Z9$<>"Y" AND Z9$<>"N" THEN GOTO 100 -105 IF Z9$="Y" THEN GOSUB 500 -110 INPUT "INTEREST RATE ,i,PER PERIOD= ";I -112 INPUT "AMOUNT TO BE OBTAINED (A) = ";A -115 I=I/100 -120 INPUT "NUMBER OF PERIODS = ";N -130 PV = A*(1+I)[(-N) -140 PRINT -150 PRINT "PRESENT VALUE =";PV -190 PRINT -200 INPUT "FOR ADDITIONAL TRIALS PRESS 1,ELSE PRESS 0";Z8 -210 IF Z8 = 1 GOTO 99 -220 IF Z8 = 0 THEN END -230 PRINT "INPUT ERROR. TRY AGAIN. " -240 FOR L= 1 TO 300:NEXT L -250 GOTO 200 -500 REM COMPUTATION FOR ANNUAL DATA -510 PRINT:INPUT"ANNUAL INTEREST RATE IN %";I1 -520 INPUT"NUMBER OF COMPOUNDINGS ANNUALLY";N1 -530 I=I1/N1 -540 PRINT:PRINT"INTEREST RATE PER PERIOD = ";I;"%" -550 FOR J=1 TO 1000:NEXT :CLS:RETURN diff --git a/bwbtest/T80A/PVAL.INP b/bwbtest/T80A/PVAL.INP deleted file mode 100644 index 4197f69..0000000 --- a/bwbtest/T80A/PVAL.INP +++ /dev/null @@ -1,8 +0,0 @@ - -Y -8 -12 -7 -123456 -40 -0 diff --git a/bwbtest/T80A/PVAL.run b/bwbtest/T80A/PVAL.run deleted file mode 100644 index 35db8d8..0000000 --- a/bwbtest/T80A/PVAL.run +++ /dev/null @@ -1,25 +0,0 @@ - PRESENT VALUE - -THIS PROGRAM WILL COMPUTE THE PRESENT VALUE OF A SINGLE -AMOUNT , A ,TO BE OBTAINED AFTER N EQUAL TIME PERIODS, WITH -INTEREST COMPOUNDED AT A RATE OF I% pER PERIOD. -BE SURE TO INPUT INTEREST RATE AS A PER CENT. CONVERSION -TO DECIMAL FORM IS DONE IN THE PROGRAM. - - INTEREST RATES MAY BE QUOTED AS ANNUAL RATES IF THE -NUMBER OF COMPOUNDINGS PER YEAR ARE KNOWN. - -PRESS ENTER TO BEGIN ? -ARE INTEREST RATES QUOTED ANNUALLY(Y/N)? Y - -ANNUAL INTEREST RATE IN %? 8 -NUMBER OF COMPOUNDINGS ANNUALLY? 12 - -INTEREST RATE PER PERIOD = .666667 % -INTEREST RATE ,i,PER PERIOD= ? 7 -AMOUNT TO BE OBTAINED (A) = ? 123456 -NUMBER OF PERIODS = ? 40 - -PRESENT VALUE = 8244.44 - -FOR ADDITIONAL TRIALS PRESS 1,ELSE PRESS 0? 0 diff --git a/bwbtest/T80A/QUEUE1.BAS b/bwbtest/T80A/QUEUE1.BAS deleted file mode 100644 index aa1e400..0000000 --- a/bwbtest/T80A/QUEUE1.BAS +++ /dev/null @@ -1,44 +0,0 @@ -1 REM QUEUE1 -5 CLEAR 1000 -10 CLS:PRINT TAB(10); "WAITING LINE ANALYSIS":PRINT -20 PRINT"WAITING LINES OCCUR IN ALMOST ANY SYSTEM FROM THE SUPERMARKET -25 PRINT"CHECKOUT COUNTER TO THE RUNWAY AT AN AIRPORT. IN ANALYZING -30 PRINT"A WAITING LINE SITUATION, ON THE ONE HAND LONG WAITING LINES -35 PRINT"CAUSE LOSS OF BUSINESS EVEN IF ONLY DUE TO CUSTOMER DISSAT- -40 PRINT"FACTION WHILE INCREASING SERVICE INCREASES COSTS. IN THIS -50 PRINT"WE ASSUME THERE IS A SINGLE SERVER(E.G. CHECKOUT PERSON), -55 PRINT"WHO CAN SERVE,ON AVERAGE, A GIVEN NUMBER OF CUSTOMERS PER -60 PRINT"TIME. THE CUSTOMERS ARRIVE RANDOMLY AT SOME OTHER AVERAGE RATE. -65 PRINT"THE WAITING LINE IS FIRST COME-FIRST SERVED. WE EXAMINE THE -70 PRINT"PROBABILISTIC CHARACTERISTICS OF THE WAITING LINE OR QUEUE -75 PRINT"AS IT IS GENERALLY CALLED. THE AVERAGE SERVICE RATE IS THE -80 PRINT"MEAN SERVICE RATE WHILE THE AVERAGE ARRIVAL RATE IS THE MEAN -85 PRINT"ARRIVAL RATE. -90 GOSUB 10100 -95 CLS:PRINT"ONE REQUIREMENT IS THAT THE MEAN SERVICE RATE BE GREATER -100 PRINT"THAN THE MEAN ARRIVAL RATE. OTHERWISE THE QUEUE WOULD GET -105 PRINT"INFINITELY LONG. -110 PRINT -115 PRINT"WHAT AVARAGE MEANS IS SOMETIMES LONGER,SOMETIMES SHORTER BUT -120 PRINT"IF SOMEONE LOKKED AT THE WAITING LINE EVERY DAY FOR A MONTH -125 PRINT"THEN THE AVERAGE(MEAN) QUEUE LENGTH FOR THE MONTH WOULD BE -130 PRINT"CLOSE TO WHAT WAS COMPUTED HERE." -190 INPUT"PRESS ENTER TO BEGIN";Z9$ -200 CLS -210 PRINT"THE FOLLOWING ARE IN NUMBER PER UNIT TIME":PRINT -220 INPUT" ENTER MEAN ARRIVAL RATE OF UNITS";A -230 INPUT" ENTER MEAN SERVICE RATE OF UNITS";S -240 IF A<=0 OR S<=0 THEN PRINT"NO NEGATIVES ALLOWED":GOTO 220 -250 IF S FOR THIS COMPUTATION, 1 -440 PRINT"OTHERWISE";:INPUT Z9$ -450 IF Z9$="" THEN PRINT:PRINT"ANNUAL RATE OF RETURN IS ";1200*R;"%" -470 PRINT:INPUT"PRESS FOR MORE COMPUTATIONS";Z9$ -475 IF Z9$ = "-1" THEN END -480 GOTO 100 diff --git a/bwbtest/T80A/RRCONST.INP b/bwbtest/T80A/RRCONST.INP deleted file mode 100644 index 45f0b12..0000000 --- a/bwbtest/T80A/RRCONST.INP +++ /dev/null @@ -1,6 +0,0 @@ - -1000 -500 -10 - --1 diff --git a/bwbtest/T80A/RRCONST.run b/bwbtest/T80A/RRCONST.run deleted file mode 100644 index b8acb60..0000000 --- a/bwbtest/T80A/RRCONST.run +++ /dev/null @@ -1,39 +0,0 @@ - RATE OF RETURN - CONSTANT INFLOW - -THIS PROGRAM WILL CALCULATE THE RATE OF RETURN OF AN -INVESTMENT COSTING $A NOW AND RETURNING $B DURING EACH OF THE -NEXT N EQUAL TIME PERIODS(YEARS E.G.) -INPUT IS THE INITIAL INVESTMENT,PERIODIC DOLLAR RETURNS AND -NUMBER OF PERIODS. - -PRESS ENTER TO BEGIN.? - - -INITIAL INVESTMENT ? 1000 -PERIODIC RETURN = ? 500 -NUMBER OF PERIODS = ? 10 -PASS # 0 R = 11 -PASS # 1 R = 21. -PASS # 2 R = 31. -PASS # 3 R = 41 -PASS # 4 R = 51 -PASS # 5 R = 42. -PASS # 6 R = 43. -PASS # 7 R = 44. -PASS # 8 R = 45. -PASS # 9 R = 46. -PASS # 10 R = 47. -PASS # 11 R = 48. -PASS # 12 R = 49. -PASS # 13 R = 50. -PASS # 14 R = 49.1 - -RATE OF RETURN IS 49.1 % PER PERIOD - -IF THIS DATA IS MONTHLY WE MAY MULTIPLY BY 12 TO GET AN -ANNUAL RATE . PRESS FOR THIS COMPUTATION, 1 -OTHERWISE? - -ANNUAL RATE OF RETURN IS 589.2 % - -PRESS FOR MORE COMPUTATIONS? -1 diff --git a/bwbtest/T80A/RRCONVBD.BAS b/bwbtest/T80A/RRCONVBD.BAS deleted file mode 100644 index 1f4455c..0000000 --- a/bwbtest/T80A/RRCONVBD.BAS +++ /dev/null @@ -1,46 +0,0 @@ -1 REM RRCONVBD -2 CLS -10 PRINT " CONVERTIBLE BOND-RATE OF RETURN":PRINT -15 PRINT "THIS PROGRAM WILL COMPUTE AN INVESTOR'S ANNUAL RATE OF RETURN -20 PRINT "ON A CONVERTIBLE BOND PURCHASE GIVEN THE FOLLOWING: -25 PRINT -30 PRINT " PURCHASE PRICE OF BOND -32 PRINT " BOND COUPON PAYMENT PER YEAR -35 PRINT " PRESENT VALUE OF SHARE OF STOCK -40 PRINT " EXPECTED ANNUAL % INCREASE IN VALUE OF SHARE OF STOCK -45 PRINT " CONVERSION RATIO(# SHARES BOND CONVERTIBLE INTO) -50 PRINT " DESIRED VALUE OF BOND WHEN SOLD -55 PRINT "GIVEN THIS INFORMATION THE PROGRAM COMPUTES A RATE OR RETURN -60 PRINT "AND THE NUMBER OF YEARS UNTIL THE EXPECTED SELLING VALUE IS -65 PRINT "REACHED. -80 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -85 CLS -100 REM INPUT DATA -110 INPUT "ENTER PURCHASE PRICE OF THE BOND "; PB -120 INPUT "ENTER PRESENT PRICE OF SHARE OF STOCK ";P -130 INPUT "ENTER CONVERSION RATIO ";PR -140 INPUT "ENTER CONVERSION VALUE OF BOND WHEN SOLD";CV -150 INPUT "ENTER PROJECTED % INCREASE IN STOCK VALUE YEARLY";R -160 R=R/100 -170 INPUT "COUPON PAYMENT PER YEAR ";PMT -180 N = LOG(CV/(P*PR))/LOG(1+R):N=INT(N+.5) -200 GOSUB 4200 -210 PRINT -220 PRINT " RATE OF RETURN EQUALS ";100*I;"%" -230 PRINT " CONVERSION AFTER ";N;" YEARS" -250 PRINT :INPUT "PRESS ENTER FOR MORE ENTRIES ";Z9$ -252 IF Z9$ = "-1" THEN END -255 CLS -260 GOTO 100 -299 STOP -4200 REM I FOR PV/ORDINARY ANNUITY -4210 I=.01 -4220 PP=PMT/I*(1-(1+I)[(-N))+CV*(1+I)[(-N)-PB -4225 D=N*PMT/(I*(1+I)[(N+1))-PMT/(I[2)*(1-(1+I)[(-N))-N*CV/(1+I)[(N+1) -4230 GOSUB 4600 -4240 IF ABS(PP)<=.1 THEN RETURN -4250 GOTO 4220 -4600 REM COMPUTATION -4610 I=I-PP/D -4620 RETURN - diff --git a/bwbtest/T80A/RRCONVBD.INP b/bwbtest/T80A/RRCONVBD.INP deleted file mode 100644 index 817d976..0000000 --- a/bwbtest/T80A/RRCONVBD.INP +++ /dev/null @@ -1,8 +0,0 @@ - -985 -47 -0.4 -1400 -1 -4 --1 diff --git a/bwbtest/T80A/RRCONVBD.run b/bwbtest/T80A/RRCONVBD.run deleted file mode 100644 index 54d3f89..0000000 --- a/bwbtest/T80A/RRCONVBD.run +++ /dev/null @@ -1,27 +0,0 @@ - CONVERTIBLE BOND-RATE OF RETURN - -THIS PROGRAM WILL COMPUTE AN INVESTOR'S ANNUAL RATE OF RETURN -ON A CONVERTIBLE BOND PURCHASE GIVEN THE FOLLOWING: - - PURCHASE PRICE OF BOND - BOND COUPON PAYMENT PER YEAR - PRESENT VALUE OF SHARE OF STOCK - EXPECTED ANNUAL % INCREASE IN VALUE OF SHARE OF STOCK - CONVERSION RATIO(# SHARES BOND CONVERTIBLE INTO) - DESIRED VALUE OF BOND WHEN SOLD -GIVEN THIS INFORMATION THE PROGRAM COMPUTES A RATE OR RETURN -AND THE NUMBER OF YEARS UNTIL THE EXPECTED SELLING VALUE IS -REACHED. - -PRESS ENTER TO BEGIN? -ENTER PURCHASE PRICE OF THE BOND ? 985 -ENTER PRESENT PRICE OF SHARE OF STOCK ? 47 -ENTER CONVERSION RATIO ? 0.4 -ENTER CONVERSION VALUE OF BOND WHEN SOLD? 1400 -ENTER PROJECTED % INCREASE IN STOCK VALUE YEARLY? 1 -COUPON PAYMENT PER YEAR ? 4 - - RATE OF RETURN EQUALS .438768 % - CONVERSION AFTER 433 YEARS - -PRESS ENTER FOR MORE ENTRIES ? -1 diff --git a/bwbtest/T80A/RRVARIN.BAS b/bwbtest/T80A/RRVARIN.BAS deleted file mode 100644 index 5cfc2ea..0000000 --- a/bwbtest/T80A/RRVARIN.BAS +++ /dev/null @@ -1,38 +0,0 @@ -5 CLS -10 PRINT " RATE OF RETURN - VARIABLE INFLOW" -20 PRINT -30 PRINT "THIS PROGRAM WILL CALCULATE THE RATE OF RETURN OF AN -40 PRINT "INVESTMENT COSTING A$ NOW AND RETURNING A(I)$ IN YEAR I -50 PRINT "WITH THE A(I)'S NOT NECESSARILY EQUAL AND NOT NECESSARILY -60 PRINT "POSITIVE. -70 PRINT "INPUT IS THE INITIAL INVESTMENT AND THE YEARLY DOLLAR RETURNS. -80 PRINT -90 INPUT "PRESS ENTER TO BEGIN.";Z9 -100 CLS -105 I=0 -110 DIM A(100) -115 PRINT -120 INPUT "INITIAL INVESTMENT ";A(0) -125 A(0)=-A(0) -130 PRINT "RETURN YEAR ";I + 1;" (99999 TO END)";:INPUT A(I+1) -140 IF A(I+1) = 99999 GOTO 160 -145 I=I+1 -150 GOTO 130 -160 R=0 -170 JUMP=.1 -174 JN=0: REM JN= NUMBER OF PASSES SO FAR -175 P=0 -180 FOR K=0 TO I:P=P+A(K)/(1+R)[K:NEXT K -190 IF ABS(P) < .5 GOTO 400 -200 IF P>0 GOTO 300 -210 R=R-JUMP -220 JUMP = JUMP/10 -230 GOTO 300 -300 R=R+JUMP -305 PRINT @ 40,"PASS ";JN;" R=";100*R:JN=JN+1:JN=JN+1 -310 GOTO 175 -400 REM PRINTING SUBROUTINE -410 PRINT -415 CLS -420 PRINT "RATE OF RETURN IS ";100*R;" %" -430 END diff --git a/bwbtest/T80A/RRVARIN.INP b/bwbtest/T80A/RRVARIN.INP deleted file mode 100644 index 6e1b7a8..0000000 --- a/bwbtest/T80A/RRVARIN.INP +++ /dev/null @@ -1,11 +0,0 @@ - -12345 -2345 -2345 -2345 -2345 -2345 -2345 -2345 -2345 -99999 diff --git a/bwbtest/T80A/RRVARIN.run b/bwbtest/T80A/RRVARIN.run deleted file mode 100644 index c5da877..0000000 --- a/bwbtest/T80A/RRVARIN.run +++ /dev/null @@ -1,42 +0,0 @@ - RATE OF RETURN - VARIABLE INFLOW - -THIS PROGRAM WILL CALCULATE THE RATE OF RETURN OF AN -INVESTMENT COSTING A$ NOW AND RETURNING A(I)$ IN YEAR I -WITH THE A(I)'S NOT NECESSARILY EQUAL AND NOT NECESSARILY -POSITIVE. -INPUT IS THE INITIAL INVESTMENT AND THE YEARLY DOLLAR RETURNS. - -PRESS ENTER TO BEGIN.? - -INITIAL INVESTMENT ? 12345 -RETURN YEAR 1 (99999 TO END)? 2345 -RETURN YEAR 2 (99999 TO END)? 2345 -RETURN YEAR 3 (99999 TO END)? 2345 -RETURN YEAR 4 (99999 TO END)? 2345 -RETURN YEAR 5 (99999 TO END)? 2345 -RETURN YEAR 6 (99999 TO END)? 2345 -RETURN YEAR 7 (99999 TO END)? 2345 -RETURN YEAR 8 (99999 TO END)? 2345 -RETURN YEAR 9 (99999 TO END)? 99999 -PASS 0 R= 10 -PASS 2 R= 20 -PASS 4 R= 11 -PASS 6 R= 10.1 -PASS 8 R= 10.2 -PASS 10 R= 10.3 -PASS 12 R= 10.4 -PASS 14 R= 10.31 -PASS 16 R= 10.32 -PASS 18 R= 10.33 -PASS 20 R= 10.34 -PASS 22 R= 10.35 -PASS 24 R= 10.36 -PASS 26 R= 10.37 -PASS 28 R= 10.361 -PASS 30 R= 10.362 -PASS 32 R= 10.363 -PASS 34 R= 10.364 -PASS 36 R= 10.365 -PASS 38 R= 10.366 - -RATE OF RETURN IS 10.366 % diff --git a/bwbtest/T80A/RTVAL.BAS b/bwbtest/T80A/RTVAL.BAS deleted file mode 100644 index 1ad4830..0000000 --- a/bwbtest/T80A/RTVAL.BAS +++ /dev/null @@ -1,41 +0,0 @@ -1 REM RTVAL -5 CLEAR 1000 -10 CLS:PRINT TAB(10); "VALUE OF A RIGHT":PRINT -20 PRINT"THE PRIVILEGE OF A STOCKHOLDER TO SUBSCRIBE AT A STATED PRICE -25 PRINT"TO NEW ISSUES OF COMMON STOCKS IN PROPORTION TO HIS PRESENT -30 PRINT"HOLDINGS IS A RIGHT OR STOCK RIGHT. THIS PRIVILEGE IS -35 PRINT"GENERALLY OFFERED FOR A VERY LIMITED PERIOD. DURING THIS -40 PRINT"PERIOD MAY EXERCISE HIS OFFER OR HE MAY SELL THE RIGHT TO -45 PRINT"ANOTHER INVESTOR. WHEN THE RIGHTS OFFERING IS ANNOUNCED THE -50 PRINT"BOARD OF DIRECTORS ESTABLISHES A CUTOFF DATE. ANYONE WHO -55 PRINT"PURCHASES THE STOCK BEFORE THAT DATE RECEIVES RIGHTS FOR THE -60 PRINT"NEW ISSUE. THE STOCK IS THEN SAID TO SELL RIGHTS-ON. AFTER -65 PRINT"THE CUTOFF DATE NEW PURCHASERS OF THE STOCK DO NOT GET THE -70 PRINT"RIGHT AND THE STOCK IS TRADED EX-RIGHTS. -75 PRINT:GOSUB 10100: CLS -80 PRINT"GIVEN THE MARKET VALUE OF 1 SHARE OF STOCK SELLING RIGHTS-ON, -85 PRINT"THE SUBSCRIPTION PRICE PER SHARE, AND THE NUMBER OF RIGHTS -90 PRINT"REQUIRED TO PURCHASE ONE SHARE OF STOCK THIS PROGRAM WILL -95 PRINT"COMPUTE THE MARKET VALUE OF 1 RIGHT WHEN THE STOCK IS SELLING -100 PRINT"RIGHTS-ON, THE THEORETICAL VALUE OF ONE SHARE OF STOCK WHEN -105 PRINT"IT GOES EX-RIGHTS, AND THE THEORETICAL VALUE OF 1 RIGHT -110 PRINT"WITH THE STOCK SELLING EX-RIGHTS. -120 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -200 CLS -210 INPUT"ENTER MARKET VALUE OF 1 SHARE RIGHTS-ON";P0 -220 INPUT"ENTER SUBSCRIPTION PRICE PER SHARE ";S -230 INPUT"ENTER # RIGHTS NEEDED TO BUY 1 SHARE ";N -300 R0=(P0-S)/(N+1):REM MARKET VALUE OF 1 RIGHT - RIGHTS-ON -310 PX=(P0*N+S)/(N+1):REM VALUE 1 SHARE EX-RIGHTS -320 RX=(PX - S)/N:REM VALUE 1 RIGHT - EX RIGHTS -400 REM PRINT -410 PRINT:PRINT -420 PRINT"MARKET VALUE OF 1 RIGHT - RIGHTS-ON ";R0 -430 PRINT"THEORETICAL VALUE OF 1 SHARE EX-RIGHTS ";PX -440 PRINT"THEORETICAL VALUE OF 1 RIGHT EX-RIGHTS ";RX -450 PRINT -460 INPUT"PRESS ENTER FOR MORE COMPUTATION";Z9$ -465 IF Z9$ = "-1" THEN END -470 GOTO 200 -10000 PRINT"INPUT ERROR! TRY AGAIN!":FOR Z=1TO300:NEXT:RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/RTVAL.INP b/bwbtest/T80A/RTVAL.INP deleted file mode 100644 index 92b5e93..0000000 --- a/bwbtest/T80A/RTVAL.INP +++ /dev/null @@ -1,6 +0,0 @@ - - -1223.45 -22.44 -55 --1 diff --git a/bwbtest/T80A/RTVAL.run b/bwbtest/T80A/RTVAL.run deleted file mode 100644 index e418fbb..0000000 --- a/bwbtest/T80A/RTVAL.run +++ /dev/null @@ -1,34 +0,0 @@ - VALUE OF A RIGHT - -THE PRIVILEGE OF A STOCKHOLDER TO SUBSCRIBE AT A STATED PRICE -TO NEW ISSUES OF COMMON STOCKS IN PROPORTION TO HIS PRESENT -HOLDINGS IS A RIGHT OR STOCK RIGHT. THIS PRIVILEGE IS -GENERALLY OFFERED FOR A VERY LIMITED PERIOD. DURING THIS -PERIOD MAY EXERCISE HIS OFFER OR HE MAY SELL THE RIGHT TO -ANOTHER INVESTOR. WHEN THE RIGHTS OFFERING IS ANNOUNCED THE -BOARD OF DIRECTORS ESTABLISHES A CUTOFF DATE. ANYONE WHO -PURCHASES THE STOCK BEFORE THAT DATE RECEIVES RIGHTS FOR THE -NEW ISSUE. THE STOCK IS THEN SAID TO SELL RIGHTS-ON. AFTER -THE CUTOFF DATE NEW PURCHASERS OF THE STOCK DO NOT GET THE -RIGHT AND THE STOCK IS TRADED EX-RIGHTS. - -PRESS ENTER TO CONTINUE? -GIVEN THE MARKET VALUE OF 1 SHARE OF STOCK SELLING RIGHTS-ON, -THE SUBSCRIPTION PRICE PER SHARE, AND THE NUMBER OF RIGHTS -REQUIRED TO PURCHASE ONE SHARE OF STOCK THIS PROGRAM WILL -COMPUTE THE MARKET VALUE OF 1 RIGHT WHEN THE STOCK IS SELLING -RIGHTS-ON, THE THEORETICAL VALUE OF ONE SHARE OF STOCK WHEN -IT GOES EX-RIGHTS, AND THE THEORETICAL VALUE OF 1 RIGHT -WITH THE STOCK SELLING EX-RIGHTS. - -PRESS ENTER TO BEGIN? -ENTER MARKET VALUE OF 1 SHARE RIGHTS-ON? 1223.45 -ENTER SUBSCRIPTION PRICE PER SHARE ? 22.44 -ENTER # RIGHTS NEEDED TO BUY 1 SHARE ? 55 - - -MARKET VALUE OF 1 RIGHT - RIGHTS-ON 21.4466 -THEORETICAL VALUE OF 1 SHARE EX-RIGHTS 1202. -THEORETICAL VALUE OF 1 RIGHT EX-RIGHTS 21.4466 - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/RULE78.BAS b/bwbtest/T80A/RULE78.BAS deleted file mode 100644 index 74c1a68..0000000 --- a/bwbtest/T80A/RULE78.BAS +++ /dev/null @@ -1,42 +0,0 @@ -1 REM RULE78 -5 CLS -10 CLEAR 1000 -15 GOSUB 9000 -20 PRINT TAB(15); "INTEREST VIS RULE OF 78'S":PRINT -25 PRINT "THIS PROGRAM WILL COMPUTE INTEREST CHARGE ON LOANS WHEN -30 PRINT "THIS INTEREST IS COMPUTED VIA THE RULE OF THE 78'S. -35 PRINT "NECESSARY INFORMATION FOR USER INPUT INCLUDES LENGTH OF THE -40 PRINT "LOAN, TOTAL INTEREST CONSUMER IS CHARGED ON LOAN OVER ITS -45 PRINT "TERM AND THE PAYMENT NUMBERS OF THE PERIODS IN QUESTION. -50 PRINT "OUTPUT SHOULD BE A SIMPLE TABLE SUMMARIZING INTEREST. -90 GOSUB 10100 -100 CLS -105 INPUT "IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -107 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 105 -110 INPUT "HOW MANY MONTHS(PAYMENTS) IS THE LOAN FOR ";M -120 INPUT "WHAT IS TOTAL INTEREST FOR TERM OF LOAN ";I -130 PRINT "WHICH IS 1ST MONTH FOR WHICH OUR INTEREST -140 INPUT " COMPUTATION IS DESIRED ";FM -150 INPUT " WHICH IS THE LAST MONTH DESIRED ";LM -200 PRINT "TOTAL INTEREST TO BE PAID = $";I -210 IF Z2$="Y" THEN LPRINT "TOTAL INTEREST TO BE PAID = $";I -215 PRINT F$(1):IF Z2$="Y" THEN LPRINT F$(1) -217 LL=0 -220 FOR J=FM TO LM -230 IPX=I*(M-J+1)/(M*(M+1)/2):IL = I*(1-J/2*(2*M-J+1)/(M*(M+1)/2)) -235 PRINT USING F$(2);J,IPX,IL -236 IF Z2$="Y" THEN LPRINT USING F$(2);J,IPX,IL -240 LL=LL+1:IF LL/12=INT(LL/12) THEN PRINT :GOSUB 10100:CLS:PRINT F$(1):PRINT -250 NEXT J -270 PRINT :INPUT "PRESS ENTER FOR MORE COMPUTATION";Z9$ -280 IF Z9$ = "-1" THEN END -290 GOTO 100 -9000 REM FORMATS -9010 F$(1)="PAYMENT # INTEREST INTEREST LEFT" -9020 F$(2)=" ### ######.## #######.##" -9099 RETURN -10000 PRINT "INPUT ERROR! TRY AGAIN! ":FOR JJ=1 TO 300:NEXT -10010 RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$ -10110 RETURN - diff --git a/bwbtest/T80A/RULE78.INP b/bwbtest/T80A/RULE78.INP deleted file mode 100644 index 8cd5753..0000000 --- a/bwbtest/T80A/RULE78.INP +++ /dev/null @@ -1,10 +0,0 @@ - -Y -36 -18 -1 -36 - - - --1 diff --git a/bwbtest/T80A/RULE78.run b/bwbtest/T80A/RULE78.run deleted file mode 100644 index 6625b10..0000000 --- a/bwbtest/T80A/RULE78.run +++ /dev/null @@ -1,67 +0,0 @@ - INTEREST VIS RULE OF 78'S - -THIS PROGRAM WILL COMPUTE INTEREST CHARGE ON LOANS WHEN -THIS INTEREST IS COMPUTED VIA THE RULE OF THE 78'S. -NECESSARY INFORMATION FOR USER INPUT INCLUDES LENGTH OF THE -LOAN, TOTAL INTEREST CONSUMER IS CHARGED ON LOAN OVER ITS -TERM AND THE PAYMENT NUMBERS OF THE PERIODS IN QUESTION. -OUTPUT SHOULD BE A SIMPLE TABLE SUMMARIZING INTEREST. -PRESS ENTER TO CONTINUE? -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -HOW MANY MONTHS(PAYMENTS) IS THE LOAN FOR ? 36 -WHAT IS TOTAL INTEREST FOR TERM OF LOAN ? 18 -WHICH IS 1ST MONTH FOR WHICH OUR INTEREST - COMPUTATION IS DESIRED ? 1 - WHICH IS THE LAST MONTH DESIRED ? 36 -TOTAL INTEREST TO BE PAID = $ 18 -PAYMENT # INTEREST INTEREST LEFT - 1 0.97 17.03 - 2 0.95 16.08 - 3 0.92 15.16 - 4 0.89 14.27 - 5 0.86 13.41 - 6 0.84 12.57 - 7 0.81 11.76 - 8 0.78 10.97 - 9 0.76 10.22 - 10 0.73 9.49 - 11 0.70 8.78 - 12 0.68 8.11 - -PRESS ENTER TO CONTINUE? -PAYMENT # INTEREST INTEREST LEFT - - 13 0.65 7.46 - 14 0.62 6.84 - 15 0.59 6.24 - 16 0.57 5.68 - 17 0.54 5.14 - 18 0.51 4.62 - 19 0.49 4.14 - 20 0.46 3.68 - 21 0.43 3.24 - 22 0.41 2.84 - 23 0.38 2.46 - 24 0.35 2.11 - -PRESS ENTER TO CONTINUE? -PAYMENT # INTEREST INTEREST LEFT - - 25 0.32 1.78 - 26 0.30 1.49 - 27 0.27 1.22 - 28 0.24 0.97 - 29 0.22 0.76 - 30 0.19 0.57 - 31 0.16 0.41 - 32 0.14 0.27 - 33 0.11 0.16 - 34 0.08 0.08 - 35 0.05 0.03 - 36 0.03 0.00 - -PRESS ENTER TO CONTINUE? -PAYMENT # INTEREST INTEREST LEFT - - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/SALELEAS.BAS b/bwbtest/T80A/SALELEAS.BAS deleted file mode 100644 index 4d340e0..0000000 --- a/bwbtest/T80A/SALELEAS.BAS +++ /dev/null @@ -1,64 +0,0 @@ -1 REM SALELEAS -2 CLS -10 CLEAR 1000 -20 PRINT " SALE-LEASEBACK ANALYSIS":PRINT -30 PRINT "THE SITUATION FOR THIS PROGRAM IS THE FOLLOWING: AN OWNER OF A -40 PRINT "PIECE OF PROPERTY NEEDS TO RAISE SOME MONEY AND NEEDS THE USE -45 PRINT "OF THE PROPERTY. HE CAN SELL THE PROPERTY TO THE INVESTOR AND -50 PRINT "THEN LEASE IT BACK(SALE-LEASEBACK) OR HE CAN JUST BORROW THE -60 PRINT "MONEY AS A MORTGAGE ON THE PROPERTY. -65 PRINT :PRINT "THERE ARE VARIOUS TAX AND OTHER RAMIFICATIONS OF THE TWO -70 PRINT "SITUATIONS WHICH THIS PROGRAM HELPS ANALYZE." -99 PRINT :INPUT "PRESS TO CONTINUE";Z9$ -120 CLS -130 INPUT "ENTER PRESENT VALUE OF PROPERTY(SALE OR MORTGAGE AMT)";PV -140 INPUT "ENTER TERM OF THE LEASE OR MORTGAGE IN YEARS ";N -150 INPUT "ENTER ANNUAL INTEREST RATE FOR LEASE IN % ";IL:IL=IL/100 -160 INPUT "ENTER ANNUAL INTEREST RATE FOR MORTGAGE IN % ";IM:IM=IM/100 -170 INPUT "ENTER CORPORATE TAX RATE IN % ";CTAX:CTAX=CTAX/100 -180 INPUT "ENTER TOTAL DEPRECIATION OVER TERM OF LEASE/MORTGAGE ";DEPR -220 CLS:PRINT :PRINT :PRINT :PRINT " COMPUTING" -250 REM TOTAL COST OF SALE-LEASEBACK -260 BAL=0:I=IL/12:N=12*N:GOSUB 1525:PL=PMT*12:REM ANNUAL RENT PAYMENT=PL FOR LEASE -270 BAL=0:I=IM/12:GOSUB 1420:PM=PMT*12:N=N/12:REM PM=ANNUAL MORTGAGE PAYMENT -280 TL=PL*N:REM TOTAL LEASE PAYMENTS OVER LEASE TERM -290 TM=PM*N:REM TOTAL MORTGAGE PAYMENTS OVER MORTGAGE TERM -300 DL=TL*CTAX : REM TOTAL TAX DEDUCTION FOR LEASE -310 LL=TL - DL: REM TOTAL ACTUAL RENTAL COST OF LEASE -320 RM=TM - PV:REM TOTAL INTEREST PAYMENTS OVER TERM OF MORTGAGE -330 EM=RM+DEPR:REM TOTAL MORTGAGE TAXABLE EXPENSES -340 DM=EM*CTAX: REM TOTAL TAX DEDUCTION FOR MORTGAGE -350 MM=TM - DM:REM TOTAL MORTGAGE COST AFTER TAXES -400 F$(1)="#########.##" -410 F$(2)="% % #########.##" -500 REM ANALYSIS PRINTOUT -505 CLS -510 PRINT USING F$(2);"PRESENT VALUE OF PROPERTY",PV -515 PRINT USING F$(2);"TERM OF LEASE OR MORTGAGE(YEARS)",N -520 PRINT USING F$(2);"ANNUAL INTEREST RATE FOR LEASE (%)",100*IL -525 PRINT USING F$(2);"ANNUAL INTEREST RATE FOR MORTG (%)",100*IM -530 PRINT USING F$(2);"CORPORATE TAX RATE (%)",100*CTAX -535 PRINT USING F$(2);"TOTAL DEPRECIATION FOR TERM OF LOAN",DEPR -540 PRINT -550 GOSUB 1600:PRINT -560 PRINT USING F$(2);"ANNUAL LEASE RENTAL",PL -570 PRINT USING F$(2);"TOTAL LEASE PAYMENTS TO TERM",TL -580 PRINT USING F$(2);"TOTAL LEASE TAX DEDUCTIONS",DL -590 PRINT USING F$(2);"TOTAL ACTUAL COST OF LEASE TO TERM",LL -600 PRINT :GOSUB 1600:PRINT -610 PRINT USING F$(2);"ANNUAL MORTGAGE PAYMENT",PM -620 PRINT USING F$(2);"TOTAL MORTGAGE PAYMENTS TO TERM",TM -630 PRINT USING F$(2);"TOTAL MORTGAGE INTEREST PAID",RM -640 PRINT USING F$(2);"TOTAL MORTGAGE TAXABLE EXPENSES",EM -650 PRINT USING F$(2);"TOTAL MORTGAGE TAX DEDUCTION",DM -660 PRINT USING F$(2);"TOTAL MORTGAGE COSTS AFTER TAXES",MM -670 PRINT :PRINT -680 IF MM>LL THEN PRINT USING F$(2);"MORTGAGE COSTS MORE THAN LEASE BY ",MM-LL -690 IF LL>MM THEN PRINT USING F$(2);"LEASE COSTS MORE THAN MORTGAGE BY ",LL-MM -750 PRINT :GOSUB 1600 -755 IF Z9$ = "-1" THEN END -760 GOTO 120 -1420 PMT=(PV-BAL*(1+I)[(-N))*I/(1-(1+I)[(-N)):RETURN -1525 PMT=(PV-BAL*(1+I)[(-N))*I/(1+I)/(1-(1+I)[(-N)):RETURN -1600 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/SALELEAS.INP b/bwbtest/T80A/SALELEAS.INP deleted file mode 100644 index 221da73..0000000 --- a/bwbtest/T80A/SALELEAS.INP +++ /dev/null @@ -1,10 +0,0 @@ - -100000 -30 -10 -4 -15 -5000 - - --1 diff --git a/bwbtest/T80A/SALELEAS.run b/bwbtest/T80A/SALELEAS.run deleted file mode 100644 index 1ce3370..0000000 --- a/bwbtest/T80A/SALELEAS.run +++ /dev/null @@ -1,49 +0,0 @@ - SALE-LEASEBACK ANALYSIS - -THE SITUATION FOR THIS PROGRAM IS THE FOLLOWING: AN OWNER OF A -PIECE OF PROPERTY NEEDS TO RAISE SOME MONEY AND NEEDS THE USE -OF THE PROPERTY. HE CAN SELL THE PROPERTY TO THE INVESTOR AND -THEN LEASE IT BACK(SALE-LEASEBACK) OR HE CAN JUST BORROW THE -MONEY AS A MORTGAGE ON THE PROPERTY. - -THERE ARE VARIOUS TAX AND OTHER RAMIFICATIONS OF THE TWO -SITUATIONS WHICH THIS PROGRAM HELPS ANALYZE. - -PRESS TO CONTINUE? -ENTER PRESENT VALUE OF PROPERTY(SALE OR MORTGAGE AMT)? 100000 -ENTER TERM OF THE LEASE OR MORTGAGE IN YEARS ? 30 -ENTER ANNUAL INTEREST RATE FOR LEASE IN % ? 10 -ENTER ANNUAL INTEREST RATE FOR MORTGAGE IN % ? 4 -ENTER CORPORATE TAX RATE IN % ? 15 -ENTER TOTAL DEPRECIATION OVER TERM OF LEASE/MORTGAGE ? 5000 - - - - COMPUTING -PRESENT VALUE OF PROPERTY 100000.00 -TERM OF LEASE OR MORTGAGE(YEARS) 30.00 -ANNUAL INTEREST RATE FOR LEASE (%) 10.00 -ANNUAL INTEREST RATE FOR MORTG (%) 4.00 -CORPORATE TAX RATE (%) 15.00 -TOTAL DEPRECIATION FOR TERM OF LOAN 5000.00 - -PRESS ENTER TO CONTINUE? - -ANNUAL LEASE RENTAL 10443.83 -TOTAL LEASE PAYMENTS TO TERM 313314.81 -TOTAL LEASE TAX DEDUCTIONS 46997.22 -TOTAL ACTUAL COST OF LEASE TO TERM 266317.59 - -PRESS ENTER TO CONTINUE? - -ANNUAL MORTGAGE PAYMENT 5728.98 -TOTAL MORTGAGE PAYMENTS TO TERM 171869.51 -TOTAL MORTGAGE INTEREST PAID 71869.51 -TOTAL MORTGAGE TAXABLE EXPENSES 76869.51 -TOTAL MORTGAGE TAX DEDUCTION 11530.43 -TOTAL MORTGAGE COSTS AFTER TAXES 160339.08 - - -LEASE COSTS MORE THAN MORTGAGE BY 105978.51 - -PRESS ENTER TO CONTINUE? -1 diff --git a/bwbtest/T80A/SALVAGE.BAS b/bwbtest/T80A/SALVAGE.BAS deleted file mode 100644 index a0feb30..0000000 --- a/bwbtest/T80A/SALVAGE.BAS +++ /dev/null @@ -1,23 +0,0 @@ -5 CLS -10 PRINT " SALVAGE VALUE" -20 PRINT -30 PRINT "THIS PROGRAM COMPUTES THE SALVAGE (BOOK) VALUE OF -40 PRINT "AN ITEM DEPRECIATED OVER N YEARS BY THE DECLINING -50 PRINT "BALANCE METHOD.iNPUT NECESSARY IS THE INITIAL COST, -60 PRINT "THE DECLINING BALANCE DEPRECIATION RATE(AS A % HERE), -70 PRINT "AND THE NUMBER OF YEARS OF DEPRECIATION. -90 INPUT "PRESS ENTER TO BEGIN";Z9 -100 CLS -110 INPUT "INPUT INITIAL COST IN DOLLARS";C -120 INPUT "INPUT DEPRECIATION RATE(AS %)";F -130 DB=F/100 -140 INPUT "INPUT NUMBER OF YEARS OF DEPRECIATION";N -150 BV=C*(1-DB)[N -160 PRINT :PRINT -170 B$=" SALVAGE VALUE EQUALS $$######.## " -180 PRINT USING B$;BV -190 PRINT -200 INPUT "PRESS 1 FOR MORE,0 TO END";Z9 -210 IF Z9=1 THEN GOTO 100 -220 IF Z9=0 THEN END -230 PRINT "INPUT ERROR.TRY AGAIN":PRINT :GOTO 200 diff --git a/bwbtest/T80A/SALVAGE.INP b/bwbtest/T80A/SALVAGE.INP deleted file mode 100644 index de21ddd..0000000 --- a/bwbtest/T80A/SALVAGE.INP +++ /dev/null @@ -1,5 +0,0 @@ - -123456 -15 -5 -0 diff --git a/bwbtest/T80A/SALVAGE.run b/bwbtest/T80A/SALVAGE.run deleted file mode 100644 index a6bd048..0000000 --- a/bwbtest/T80A/SALVAGE.run +++ /dev/null @@ -1,16 +0,0 @@ - SALVAGE VALUE - -THIS PROGRAM COMPUTES THE SALVAGE (BOOK) VALUE OF -AN ITEM DEPRECIATED OVER N YEARS BY THE DECLINING -BALANCE METHOD.iNPUT NECESSARY IS THE INITIAL COST, -THE DECLINING BALANCE DEPRECIATION RATE(AS A % HERE), -AND THE NUMBER OF YEARS OF DEPRECIATION. -PRESS ENTER TO BEGIN? -INPUT INITIAL COST IN DOLLARS? 123456 -INPUT DEPRECIATION RATE(AS %)? 15 -INPUT NUMBER OF YEARS OF DEPRECIATION? 5 - - - SALVAGE VALUE EQUALS $54778.08 - -PRESS 1 FOR MORE,0 TO END? 0 diff --git a/bwbtest/T80A/SEASIND.BAS b/bwbtest/T80A/SEASIND.BAS deleted file mode 100644 index 985b324..0000000 --- a/bwbtest/T80A/SEASIND.BAS +++ /dev/null @@ -1,51 +0,0 @@ -1 REM SEASIND -5 CLEAR 1000 -10 CLS -20 PRINT TAB(5); "SEASONAL INDEX FOR A TIME SERIES":PRINT -30 PRINT "MOST BUSINESSES SHOW SEASONAL VARIATIONS OF SALES. THAT MEANS -35 PRINT "THAT THE SALES AT ONE TIME OF THE YEAR ARE HIGHER THAN THOSE -40 PRINT "AT OTHER TIMES YEAR AFTER YEAR. THE SEASONAL INDEX FOR A -45 PRINT "SEASON(OR MONTH) IS THE PERCENTAGE THAT SEASON'S SALES ARE OF -50 PRINT "THE SALES IN AN 'AVERAGE' SEASON. FOR EXAMPLE IF A STORE SELLS -60 PRINT "$60,00 PER YEAR, OR $5,000 PER MONTH AND AVERAGES $8,000 -65 PRINT "DURING JUNE THEN THE INDEX FOR JUNE IS 160. -70 PRINT :PRINT "THIS PROGRAM WILL COMPUTE SEASONAL INDICES. WHAT IS -75 PRINT "NECESARY IS THE INPUT OF SALES AMOUNTS FOR EACH SEASON FOR -80 PRINT "AT LEAST SEVERAL YEARS. THE PROGRAM WILL ACCEPT FEWER YEARS -85 PRINT "BUT THE RESULTS WOULD BE MEANINGLESS. -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 DIM A(100,12),B(12),C(12),I(12) -110 CLS -120 INPUT "NUMBER OF SEASONS IN YEAR(<=12)";N -125 IF N>12 OR N<1 OR N<>INT(N) THEN GOSUB 10000:GOTO 120 -130 INPUT "NUMBER OF YEARS OF DATA AVAILABLE(<=100)";NY -135 IF NY>100 OR NY<0 OR NY<>INT(NY) THEN GOSUB 10000:GOTO 130 -140 PRINT -145 S=0:FOR J=1 TO 12:B(J)=0:NEXT -150 FOR I=1 TO NY -160 PRINT "DATA FOR YEAR ";I -170 FOR J=1 TO N -180 PRINT " ENTER DATA FOR SEASON";J;:INPUT A(I,J) -185 B(J)=B(J)+A(I,J):REM SEASONAL TOTALS -187 S=S+A(I,J) -190 NEXT J -200 NEXT I -210 AV= S/(NY*N):REM AVERAGE SEASONAL SALES -215 FOR J= 1 TO N:C(J)=B(J)/NY:NEXT:REM SEASON AVERAGE -220 FOR J=1 TO N:I(J)=B(J)/(NY*AV):NEXT:REM RATIOS NEEDED -300 F$(1)="SEASON AVERAGE SALES INDEX" -310 F$(2)=" ## $$#######.## #####.##" -330 CLS -340 INPUT "IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -350 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 340 -360 IF Z2$="Y" THEN INPUT "PRESS ENTER WHEN PRINTER READY";Z9$ -400 CLS:PRINT "AVERAGE MONTHLY SALES = $";INT(100*AV+.5)/100:PRINT -405 IF Z2$="Y" THEN LPRINT "AVERAGE MONTHLY SALES = $";INT(100*AV+.5)/100:LPRINT " " -410 PRINT F$(1):IF Z2$="Y" THEN LPRINT F$(1):LPRINT " " -420 FOR I=1 TO N -430 PRINT USING F$(2);I,C(I),I(I) -435 IF Z2$="Y" THEN LPRINT USING F$(2);I,C(I),I(I) -440 NEXT -450 PRINT :END -10000 PRINT "INPUT ERROR! TRY AGAIN!":FOR I=1 TO 300:NEXT :RETURN - diff --git a/bwbtest/T80A/SEASIND.INP b/bwbtest/T80A/SEASIND.INP deleted file mode 100644 index 8f7e0a1..0000000 --- a/bwbtest/T80A/SEASIND.INP +++ /dev/null @@ -1,13 +0,0 @@ - -4 -2 -111 -155 -177 -199 -122 -144 -166 -188 -Y - diff --git a/bwbtest/T80A/SEASIND.run b/bwbtest/T80A/SEASIND.run deleted file mode 100644 index 92b4ea0..0000000 --- a/bwbtest/T80A/SEASIND.run +++ /dev/null @@ -1,39 +0,0 @@ - SEASONAL INDEX FOR A TIME SERIES - -MOST BUSINESSES SHOW SEASONAL VARIATIONS OF SALES. THAT MEANS -THAT THE SALES AT ONE TIME OF THE YEAR ARE HIGHER THAN THOSE -AT OTHER TIMES YEAR AFTER YEAR. THE SEASONAL INDEX FOR A -SEASON(OR MONTH) IS THE PERCENTAGE THAT SEASON'S SALES ARE OF -THE SALES IN AN 'AVERAGE' SEASON. FOR EXAMPLE IF A STORE SELLS -$60,00 PER YEAR, OR $5,000 PER MONTH AND AVERAGES $8,000 -DURING JUNE THEN THE INDEX FOR JUNE IS 160. - -THIS PROGRAM WILL COMPUTE SEASONAL INDICES. WHAT IS -NECESARY IS THE INPUT OF SALES AMOUNTS FOR EACH SEASON FOR -AT LEAST SEVERAL YEARS. THE PROGRAM WILL ACCEPT FEWER YEARS -BUT THE RESULTS WOULD BE MEANINGLESS. - -PRESS ENTER TO BEGIN? -NUMBER OF SEASONS IN YEAR(<=12)? 4 -NUMBER OF YEARS OF DATA AVAILABLE(<=100)? 2 - -DATA FOR YEAR 1 - ENTER DATA FOR SEASON 1 ? 111 - ENTER DATA FOR SEASON 2 ? 155 - ENTER DATA FOR SEASON 3 ? 177 - ENTER DATA FOR SEASON 4 ? 199 -DATA FOR YEAR 2 - ENTER DATA FOR SEASON 1 ? 122 - ENTER DATA FOR SEASON 2 ? 144 - ENTER DATA FOR SEASON 3 ? 166 - ENTER DATA FOR SEASON 4 ? 188 -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -PRESS ENTER WHEN PRINTER READY? -AVERAGE MONTHLY SALES = $ 157.75 - -SEASON AVERAGE SALES INDEX - 1 $116.50 0.74 - 2 $149.50 0.95 - 3 $171.50 1.09 - 4 $193.50 1.23 - diff --git a/bwbtest/T80A/SELLPR.BAS b/bwbtest/T80A/SELLPR.BAS deleted file mode 100644 index 9c52790..0000000 --- a/bwbtest/T80A/SELLPR.BAS +++ /dev/null @@ -1,21 +0,0 @@ -1 REM SELLPR -5 CLEAR 2000 -10 CLS:PRINT TAB(14);"SELLING PRICE":PRINT -20 PRINT "THIS PROGRAM COMPUTES THE PROPER SELLING PRICE FOR AN -30 PRINT "ITEM IF THE TOTAL PRICE THE CUSTOMER SHOULD PAY INCLUDING -40 PRINT "SALES TAX IS SOME GIVEN AMOUNT. THE NECESSARY INPUT IS -50 PRINT "SALES TAX RATE AND THE DESIRED FINAL SELLING PRICE PLUS -60 PRINT "SALES TAX AMOUNT. -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 PRINT @ 192,"";:INPUT "ENTER SALES TAX RATE(%) ";ST:ST=ST/100 -120 PRINT @ 320,"";:INPUT "ENTER FINAL SALE + TAX PRICE";FF -130 SELL= FF/(1+ST) -150 PRINT @ 448,"";:PRINT USING "SELLING PRICE = $$#####.##";SELL -160 PRINT @ 640,"";:PRINT "INPUT 1 FOR NEW TAX RATE,2 FOR NEW CALC.,SAME TAX RATE"; -170 LINE INPUT X$ ' X$=INKEY$:IF X$="" THEN GOTO 170 -175 IF X$ = "-1" THEN END -180 Z$=STRING$(62," "):PRINT @ 640,Z$;:PRINT @ 448,Z$;:PRINT @ 320,Z$;:IF X$="1" THEN PRINT @ 192,Z$:GOTO 110 -190 IF X$="2" THEN GOTO 120 -200 END - diff --git a/bwbtest/T80A/SELLPR.INP b/bwbtest/T80A/SELLPR.INP deleted file mode 100644 index 6bc1e0d..0000000 --- a/bwbtest/T80A/SELLPR.INP +++ /dev/null @@ -1,4 +0,0 @@ - -8.9 -1234.56 --1 diff --git a/bwbtest/T80A/SELLPR.run b/bwbtest/T80A/SELLPR.run deleted file mode 100644 index f9d9375..0000000 --- a/bwbtest/T80A/SELLPR.run +++ /dev/null @@ -1,13 +0,0 @@ - SELLING PRICE - -THIS PROGRAM COMPUTES THE PROPER SELLING PRICE FOR AN -ITEM IF THE TOTAL PRICE THE CUSTOMER SHOULD PAY INCLUDING -SALES TAX IS SOME GIVEN AMOUNT. THE NECESSARY INPUT IS -SALES TAX RATE AND THE DESIRED FINAL SELLING PRICE PLUS -SALES TAX AMOUNT. - -PRESS ENTER TO BEGIN? -ENTER SALES TAX RATE(%) ? 8.9 -ENTER FINAL SALE + TAX PRICE? 1234.56 -SELLING PRICE = $1133.66 -INPUT 1 FOR NEW TAX RATE,2 FOR NEW CALC.,SAME TAX RATE-1 diff --git a/bwbtest/T80A/SHARPE1.BAS b/bwbtest/T80A/SHARPE1.BAS deleted file mode 100644 index 5b4a6f1..0000000 --- a/bwbtest/T80A/SHARPE1.BAS +++ /dev/null @@ -1,79 +0,0 @@ -1000 CLS -1010 PRINT " SHARPE'S METHOD OF PORTFOLIO SELECTION":PRINT -1020 PRINT "tHIS PROGRAM STARTS WITH DATA PERTAINING TO A MARKET INDEX -1030 PRINT "AND SEVERAL POSSIBLE STOCKS TO HOLD. fOR EACH STOCK THE -1040 PRINT "USER INPUTS THE ALPHA AND BETA PARAMETERS ALONG WITH THE -1050 PRINT "VARIANCE OF RETURN(OR STANDARD DEVIATION OF RETURN=VOLATILITY). -1060 PRINT "FOR THE INDEX THE EXPECTED VALUE AND VARIANCE OF RETURN -1070 PRINT "ARE ENTERED. tHE PROGRAM THEN CALCULATES THE PROPORTION -1080 PRINT "A RISK FACTOR MAY ALSO BE INCLUDED. THIS FACTOR TAKES ON VALUES -1090 PRINT "BETWEEN 0 AND 4 OR 5. THE HIGHER THE RISK FACTOR THE MORE -1100 PRINT "DARING THE INVESTOR SHOULD BE. 0 MEANS VERY CONSERVATIVE. -1150 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9 -1200 REM DATA INPUT -1201 CLEAR -1205 CLS -1210 INPUT "NUMBER OF STOCKS BEING CONSIDRED FOR PORFOLIO";N -1215 PRINT -1220 PRINT "ENTER 1 IF STOCK VARIANCE OF RETURN IS BEING ENTERED. -1230 INPUT "ENTER 0 IF STOCK STANDARD DEVIATION OF RETURN IS ENTERED";Q -1240 IF Q<>0 AND Q<>1 THEN PRINT "INPUT ERROR!":GOTO 1215 -1250 RA=N+3:CA=N+3:REM # ROWS & COLUMNS ON MATRIX -1255 DIM A(N+3,N+3),T(N+3,1),AL(N),BE(N),V(N) -1257 CLS -1260 FOR I=1 TO N -1265 IF Q=1 THEN GOTO 1280 -1270 PRINT "ENTER STOCK";I;" ALPHA,BETA,ST.DEV";:INPUT AL(I),BE(I),V(I) -1273 V(I)=-2*V(I)[2 -1277 GOTO 1300:REM NEXT I -1280 PRINT "ENTER STOCK";I;" ALPHA,BETA,VARIANCE";:INPUT AL(I),BE(I),V(I) -1285 V(I)=-2*V(I) -1290 GOTO 1300 -1300 NEXT I -1302 PRINT -1303 INPUT "INDEX RETURN";RI -1305 INPUT "INDEX VARIANCE OF RETURN";RV -1310 PRINT -1320 INPUT "ENTER RISK FACTOR ";RF -1330 FOR I=1 TO N:A(I,I)=V(I):NEXT -1340 FOR I=1 TO N:A(N+2,I)=1:A(I,N+2)=1:NEXT -1350 A(N+1,N+1)=-2*RV:A(N+1,N+3)=-1:A(N+3,N+1)=-1 -1360 FOR I=1 TO N:A(N+3,I)=BE(I):A(I,N+3)=BE(I):NEXT -1370 FOR I=1 TO N:T(I,1)=-RF*AL(I):NEXT :T(N+1,1)=-RF*RI:T(N+2,1)=1 -2220 REM NOW INVERTING MATRIX A -2230 FOR J=1 TO CA -2240 FOR I=J TO RA -2250 I1=I -2260 IF A(I,J)<>0 THEN GOTO 2300 -2270 NEXT I -2280 PRINT "NO UNIQUE SOLUTION. MATRIX A IS SINGULAR." -2290 END -2300 FOR K= 1 TO RA -2310 AX = A(J,K):A(J,K)=A(I1,K):A(I1,K)=AX -2320 NEXT K -2330 AX=T(J,1):T(J,1)=T(I1,1):T(I1,1)=AX -2340 AP = 1/A(J,J) -2350 FOR K= 1 TO RA -2360 A(J,K)=AP*A(J,K) -2370 NEXT K -2380 T(J,1)=AP*T(J,1) -2390 FOR L=1 TO RA -2400 IF L=J THEN GOTO 2460 -2410 AP= -A(L,J) -2420 FOR K=1 TO RA -2430 A(L,K)=A(L,K)+AP*A(J,K) -2440 NEXT K -2450 T(L,1)=T(L,1)+AP*T(J,1) -2460 NEXT L -2470 NEXT J -2475 CLS -2480 PRINT "SOLUTION FOLLOWS " -2490 PRINT -2500 FOR I=1 TO N -2510 PRINT "PROPORTION FOR STOCK ";I;" = ";T(I,1) -2520 NEXT I -2540 PRINT -2550 INPUT "PRESS ENTER FOR ANOTHER COMPUTATION";Z9 -2555 IF Z9 = -1 THEN END -2560 GOTO 1200 - diff --git a/bwbtest/T80A/SHARPE1.INP b/bwbtest/T80A/SHARPE1.INP deleted file mode 100644 index c6ca685..0000000 --- a/bwbtest/T80A/SHARPE1.INP +++ /dev/null @@ -1,9 +0,0 @@ - -2 -0 -1,2,3 -4,5,6 -7 -8 -9 --1 diff --git a/bwbtest/T80A/SHARPE1.run b/bwbtest/T80A/SHARPE1.run deleted file mode 100644 index 1ed1329..0000000 --- a/bwbtest/T80A/SHARPE1.run +++ /dev/null @@ -1,30 +0,0 @@ - SHARPE'S METHOD OF PORTFOLIO SELECTION - -tHIS PROGRAM STARTS WITH DATA PERTAINING TO A MARKET INDEX -AND SEVERAL POSSIBLE STOCKS TO HOLD. fOR EACH STOCK THE -USER INPUTS THE ALPHA AND BETA PARAMETERS ALONG WITH THE -VARIANCE OF RETURN(OR STANDARD DEVIATION OF RETURN=VOLATILITY). -FOR THE INDEX THE EXPECTED VALUE AND VARIANCE OF RETURN -ARE ENTERED. tHE PROGRAM THEN CALCULATES THE PROPORTION -A RISK FACTOR MAY ALSO BE INCLUDED. THIS FACTOR TAKES ON VALUES -BETWEEN 0 AND 4 OR 5. THE HIGHER THE RISK FACTOR THE MORE -DARING THE INVESTOR SHOULD BE. 0 MEANS VERY CONSERVATIVE. - -PRESS ENTER TO BEGIN? -NUMBER OF STOCKS BEING CONSIDRED FOR PORFOLIO? 2 - -ENTER 1 IF STOCK VARIANCE OF RETURN IS BEING ENTERED. -ENTER 0 IF STOCK STANDARD DEVIATION OF RETURN IS ENTERED? 0 -ENTER STOCK 1 ALPHA,BETA,ST.DEV? 1,2,3 -ENTER STOCK 2 ALPHA,BETA,ST.DEV? 4,5,6 - -INDEX RETURN? 7 -INDEX VARIANCE OF RETURN? 8 - -ENTER RISK FACTOR ? 9 -SOLUTION FOLLOWS - -PROPORTION FOR STOCK 1 = .410256 -PROPORTION FOR STOCK 2 = .589744 - -PRESS ENTER FOR ANOTHER COMPUTATION? -1 diff --git a/bwbtest/T80A/SIMPDISK.BAS b/bwbtest/T80A/SIMPDISK.BAS deleted file mode 100644 index b567524..0000000 --- a/bwbtest/T80A/SIMPDISK.BAS +++ /dev/null @@ -1,56 +0,0 @@ -1 REM SIMPDISK -5 CLEAR 1000 -10 CLS -20 PRINT TAB(10); "DISCOUNT ANALYSIS":PRINT -25 PRINT "DISCOUNTS ARE COMMON IN ALMOST ALL BUSINESSES AT ALMOST -30 PRINT "ALL TIMES. THERE ARE THREE MAJOR TYPES OF QUESTIONS WHICH -35 PRINT "ARE CONSIDERED IN THIS PROGRAM. THEY ARE: -40 PRINT " 1. GIVEN A LIST PRICE AND A PER CENT DISCOUNT -45 PRINT " DETERMINE THE SELLING PRICE -50 PRINT " 2. GIVEN A DISCOUNTED PRICE AND A PER CENT DISCOUNT -55 PRINT " DETERMINE THE ORIGINAL PRICE -60 PRINT " 3. GIVEN AN ORIGINAL AND A DISCOUNTED PRICE DETERMINE -65 PRINT " THE DISCOUNT %. -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 GOSUB 9000 -200 CLS:PRINT TAB(10); "MENU":PRINT -205 PRINT "0. QUIT -210 PRINT "1. DETERMINE SELLING PRICE GIVEN LIST PRICE & % DISCOUNT -220 PRINT "2. DETERMINE ORIGINAL PRICE GIVEN DISCOUNTED PRICE AND % DISC. -230 PRINT "3. DETERMINE % DISCOUNT GIVEN ORIGINAL AND DISCOUNTED PRICE -290 PRINT :INPUT "MAKE YOUR CHOICE";Z9 -295 IF Z9 = 0 THEN END -300 ON Z9 GOSUB 500,600,700 -310 GOTO 200 -500 REM FIND SELLING PR. GIVEN ORIG PR & % DISCOUNT -510 CLS:PRINT "SELLING PRICE GIVEN ORIGINAL PRICE & % DISCOUNT -515 PRINT -520 INPUT "ORIGINAL PRICE ";OP -530 INPUT "% DISCOUNT ";PD:PD=PD/100 -540 PRINT USING F$(1);"DISCOUNT AMOUNT",PD*OP -550 PRINT USING F$(1);"SELLING PRICE",OP*(1-PD) -560 PRINT :GOSUB 10100 -570 RETURN -600 REM FIND ORIGINAL PRICE GIVEN SELL. PR. AND % DISCOUNT -610 CLS:PRINT "ORIGINAL PRICE GIVEN SELLING PRICE & % DISCOUNT" -615 PRINT -620 INPUT "SELLING PRICE ";SP -630 INPUT "% DISCOUNT ";PD:PD=PD/100 -640 PRINT USING F$(1);"ORIGINAL PRICE IS ",SP/(1-PD) -650 PRINT USING F$(1);"DISCOUNT AMOUNT",SP/(1-PD)-SP -660 PRINT :GOSUB 10100 -670 RETURN -700 REM DISCOUNT GIVEN ORIGINAL & DISCOUNTED PRICE -705 CLS -710 PRINT :PRINT "DISCOUNT GIVEN ORIGINAL AND DISCOUNTED PRICES":PRINT -720 INPUT "ENTER ORIGINAL PRICE ";OP -730 INPUT "ENTER DISCOUNTED PRICE";PD -740 D=(OP-PD)/OP:D=100*D -750 PRINT USING F$(1);"DISCOUNT PERCENTAGE",D -760 PRINT :GOSUB 10100 -770 RETURN -9000 REM PRINTING FORMATS -9010 F$(1)="% % ########.##" -9099 RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/SIMPDISK.INP b/bwbtest/T80A/SIMPDISK.INP deleted file mode 100644 index 22cb274..0000000 --- a/bwbtest/T80A/SIMPDISK.INP +++ /dev/null @@ -1,14 +0,0 @@ - -1 -2345 -67 - -2 -3456 -78 - -3 -6789 -5678 - -0 diff --git a/bwbtest/T80A/SIMPDISK.run b/bwbtest/T80A/SIMPDISK.run deleted file mode 100644 index e85e1e1..0000000 --- a/bwbtest/T80A/SIMPDISK.run +++ /dev/null @@ -1,69 +0,0 @@ - DISCOUNT ANALYSIS - -DISCOUNTS ARE COMMON IN ALMOST ALL BUSINESSES AT ALMOST -ALL TIMES. THERE ARE THREE MAJOR TYPES OF QUESTIONS WHICH -ARE CONSIDERED IN THIS PROGRAM. THEY ARE: - 1. GIVEN A LIST PRICE AND A PER CENT DISCOUNT - DETERMINE THE SELLING PRICE - 2. GIVEN A DISCOUNTED PRICE AND A PER CENT DISCOUNT - DETERMINE THE ORIGINAL PRICE - 3. GIVEN AN ORIGINAL AND A DISCOUNTED PRICE DETERMINE - THE DISCOUNT %. - -PRESS ENTER TO BEGIN? - MENU - -0. QUIT -1. DETERMINE SELLING PRICE GIVEN LIST PRICE & % DISCOUNT -2. DETERMINE ORIGINAL PRICE GIVEN DISCOUNTED PRICE AND % DISC. -3. DETERMINE % DISCOUNT GIVEN ORIGINAL AND DISCOUNTED PRICE - -MAKE YOUR CHOICE? 1 -SELLING PRICE GIVEN ORIGINAL PRICE & % DISCOUNT - -ORIGINAL PRICE ? 2345 -% DISCOUNT ? 67 -DISCOUNT AMOUNT 1571.15 -SELLING PRICE 773.85 - -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. DETERMINE SELLING PRICE GIVEN LIST PRICE & % DISCOUNT -2. DETERMINE ORIGINAL PRICE GIVEN DISCOUNTED PRICE AND % DISC. -3. DETERMINE % DISCOUNT GIVEN ORIGINAL AND DISCOUNTED PRICE - -MAKE YOUR CHOICE? 2 -ORIGINAL PRICE GIVEN SELLING PRICE & % DISCOUNT - -SELLING PRICE ? 3456 -% DISCOUNT ? 78 -ORIGINAL PRICE IS 15709.09 -DISCOUNT AMOUNT 12253.09 - -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. DETERMINE SELLING PRICE GIVEN LIST PRICE & % DISCOUNT -2. DETERMINE ORIGINAL PRICE GIVEN DISCOUNTED PRICE AND % DISC. -3. DETERMINE % DISCOUNT GIVEN ORIGINAL AND DISCOUNTED PRICE - -MAKE YOUR CHOICE? 3 - -DISCOUNT GIVEN ORIGINAL AND DISCOUNTED PRICES - -ENTER ORIGINAL PRICE ? 6789 -ENTER DISCOUNTED PRICE? 5678 -DISCOUNT PERCENTAGE 16.36 - -PRESS ENTER TO CONTINUE? - MENU - -0. QUIT -1. DETERMINE SELLING PRICE GIVEN LIST PRICE & % DISCOUNT -2. DETERMINE ORIGINAL PRICE GIVEN DISCOUNTED PRICE AND % DISC. -3. DETERMINE % DISCOUNT GIVEN ORIGINAL AND DISCOUNTED PRICE - -MAKE YOUR CHOICE? 0 diff --git a/bwbtest/T80A/SIMPLEX.BAS b/bwbtest/T80A/SIMPLEX.BAS deleted file mode 100644 index 7229865..0000000 --- a/bwbtest/T80A/SIMPLEX.BAS +++ /dev/null @@ -1,81 +0,0 @@ -1 REM SIMPLEX -2 CLEAR 1000 -3 CLS -10 CLS:PRINT TAB(10);"LINEAR PROGRAMMING":PRINT -20 PRINT "LINEAR PROGRAMMING IS A MATHEMATICAL TOOL DESIGNED TO HELP -25 PRINT "MANAGEMENT TO MAKE OPTIMUM USE OF COMPETING RESOURCES. -30 PRINT "IT IS A VERY POPULAR TECHNIQUE AND INVOLVES LINEAR INEQUALITIES -35 PRINT "CALLED CONSTRAINTS AND A LINEAR OBJECTIVE FUNCTION WHICH -40 PRINT "WE TRY TO MAXIMIZE OR MINIMIZE. THE INTERESTED USER MAY -45 PRINT "CONSULT ANY INTRODUCTORY TEXT IN FINITE MATHEMATICS FOR -50 PRINT "ADDITIONAL INFORMATION. -55 PRINT :PRINT "THE NUMBERS OF VARIABLES AND CONSTRAINTS ARE ONLY -60 PRINT "LIMITED BY AVAILABLE MEMORY BUT MANY VARIABLE PROBLEMS -65 PRINT "MAY TAKE A LONG TIME TO RUN." -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 CLS -1000 DEFDBL A,X -1002 DEFINT I,J,N,T,S,M -1005 INPUT "NUMBER OF VARIABLES ";M -1010 INPUT "NUMBER OF CONSTRAINTS ";N -1011 DIM A(N+2,N+M+2),X(M+N+2),D$(M+1) -1012 FOR JJ=1 TO M -1013 PRINT "NAME OF VARIABLE ";JJ;" IS ";:INPUT D$(JJ) -1014 NEXT -1015 REM SETTING UP MATRIX TABLEAU -1020 FOR I=2 TO N+1 -1021 PRINT -1022 PRINT "CONSTRAINT ";I-1:PRINT -1023 FOR J=1 TO M:PRINT "COEFFICIENT FOR VARIABLE";J;" ";D$(J);" IS ";:INPUT A(I,J): NEXT J -1025 INPUT "ENTER 1 IF <= CONSTRAINT, -1 IF >= CONSTRAINT ";A(I,M+1) -1027 INPUT "ENTER AMOUNT FOR CONSTRAINT ";A(I,M+2) -1030 A(I,N+M+1)=A(I,M+2):A(I,M+2)=0 -1035 IF I>2 THEN A(I,M+I-1)=A(I,M+1):A(I,M+1)=0 -1037 PRINT :PRINT -1040 NEXT I -1042 PRINT :PRINT -1043 INPUT "PRESS Y IF A MINIMIZATION PROBLEM, OTHERWISE N";Z$:PRINT -1044 IF Z$<>"Y" AND Z$<>"N" THEN PRINT "INPUT ERROR":GOTO 1043 -1045 PRINT "ENTER COEFFICIENTS FOR OBJECTIVE FUNCTION":PRINT -1047 FOR J=1 TO M:PRINT "COEFFICIENT FOR VARIABLE";J;" ";D$(J);" IS ";:INPUT A(1,J): X(J)=1:NEXT J:R=1 -1050 IF Z$="N" THEN FOR J=1 TO M:A(1,J)=-A(1,J):NEXT -1065 FOR I=2 TO N+1 -1070 IF A(I,M+I-1)<>-1 THEN GOTO 1085 : ELSE X(M+I-1)=1 -1075 FOR J=1 TO N+M:A(N+2,J)=A(N+2,J)-A(I,J):NEXT J -1080 R=N+2 -1085 NEXT I -1090 S=1:T=1 -1095 FOR I=2 TO N+M:IF A(R,I)>= A(R,S) THEN S=I -1100 IF A(R,I) 1E-4 THEN GOTO 1280 : ELSE R=1: GOTO 1090 -1140 S=1 -1150 FOR I=2 TO N+1:IF A(I,T)<=0 THEN GOTO 1190 -1160 Y= A(I,N+M+1)/A(I,T): IF S=1 THEN GOTO 1180 -1170 IF Y>= A(S,N+M+1)/A(S,T) THEN GOTO 1190 -1180 S=I -1190 NEXT I -1200 IF S=1 THEN GOTO 1290 -1210 FOR I=1 TO N+M: IF A(S,I)=1 THEN GOTO 1230 -1220 NEXT I -1230 X(I)=1: X(T)=0: Y = A(S,T) -1240 FOR I = 1 TO N+M+1: A(S,I)=A(S,I)/Y:NEXT -1250 FOR I= 1 TO N+2: IF I=S THEN GOTO 1270 : ELSE Y=A(I,T) -1260 FOR J=1 TO N+M+1: A(I,J)=A(I,J)-Y*A(S,J):NEXT -1270 NEXT I: GOTO 1090 -1280 PRINT " NO SOLUTION ":STOP -1290 PRINT "UNBOUNDED SOLUTION ":STOP -1300 FOR J=1 TO M -1310 IF X(J) <> 0 THEN X(J)=0: GOTO 1340 -1320 FOR I=2 TO N+1: IF A(I,J)=1 THEN 1330 : NEXT I -1330 X(J)=A(I,N+M+1) -1340 NEXT J -1350 Y = A(1,N+M+1):IF Z$="Y" THEN Y=-Y -1360 REM PRINT OUT SOLUTION -1365 CLS:PRINT "VALUE OF OBJECTIVE FUNCTION = ";Y -1368 PRINT -1370 FOR I=1 TO M -1375 PRINT "AMOUNT OF ";D$(I);" I.E. X(";I;") = ";TAB(50); X(I) -1380 NEXT I - diff --git a/bwbtest/T80A/SIMPLEX.INP b/bwbtest/T80A/SIMPLEX.INP deleted file mode 100644 index e74a3f4..0000000 --- a/bwbtest/T80A/SIMPLEX.INP +++ /dev/null @@ -1,12 +0,0 @@ - -2 -1 -X -Y -1.234 -5.6789 -1 -9.876 -N -1.111 -2.222 diff --git a/bwbtest/T80A/SIMPLEX.run b/bwbtest/T80A/SIMPLEX.run deleted file mode 100644 index 4f64649..0000000 --- a/bwbtest/T80A/SIMPLEX.run +++ /dev/null @@ -1,40 +0,0 @@ - LINEAR PROGRAMMING - -LINEAR PROGRAMMING IS A MATHEMATICAL TOOL DESIGNED TO HELP -MANAGEMENT TO MAKE OPTIMUM USE OF COMPETING RESOURCES. -IT IS A VERY POPULAR TECHNIQUE AND INVOLVES LINEAR INEQUALITIES -CALLED CONSTRAINTS AND A LINEAR OBJECTIVE FUNCTION WHICH -WE TRY TO MAXIMIZE OR MINIMIZE. THE INTERESTED USER MAY -CONSULT ANY INTRODUCTORY TEXT IN FINITE MATHEMATICS FOR -ADDITIONAL INFORMATION. - -THE NUMBERS OF VARIABLES AND CONSTRAINTS ARE ONLY -LIMITED BY AVAILABLE MEMORY BUT MANY VARIABLE PROBLEMS -MAY TAKE A LONG TIME TO RUN. - -PRESS ENTER TO BEGIN? -NUMBER OF VARIABLES ? 2 -NUMBER OF CONSTRAINTS ? 1 -NAME OF VARIABLE 1 IS ? X -NAME OF VARIABLE 2 IS ? Y - -CONSTRAINT 1 - -COEFFICIENT FOR VARIABLE 1 X IS ? 1.234 -COEFFICIENT FOR VARIABLE 2 Y IS ? 5.6789 -ENTER 1 IF <= CONSTRAINT, -1 IF >= CONSTRAINT ? 1 -ENTER AMOUNT FOR CONSTRAINT ? 9.876 - - - - -PRESS Y IF A MINIMIZATION PROBLEM, OTHERWISE N? N - -ENTER COEFFICIENTS FOR OBJECTIVE FUNCTION - -COEFFICIENT FOR VARIABLE 1 X IS ? 1.111 -COEFFICIENT FOR VARIABLE 2 Y IS ? 2.222 -VALUE OF OBJECTIVE FUNCTION = 0 - -AMOUNT OF X I.E. X( 1 ) = 0 -AMOUNT OF Y I.E. X( 2 ) = 0 diff --git a/bwbtest/T80A/SINKFUND.BAS b/bwbtest/T80A/SINKFUND.BAS deleted file mode 100644 index 3fe6b11..0000000 --- a/bwbtest/T80A/SINKFUND.BAS +++ /dev/null @@ -1,89 +0,0 @@ -1 REM SINKFUND -5 CLEAR 1000 -9 CLS -10 PRINT TAB(15); "SINKING FUNDS":PRINT -20 PRINT "A SINKING FUND IS AN ANNUITY WHICH MUST ACCUMULATE TO SOME -25 PRINT "FIXED AMOUNT BY A GIVEN TIME IN THE FUTURE. THIS MEANS THAT -30 PRINT "A FIXED AMOUNT WILL BE PAID INTO A FUND EVERY PERIOD AND -35 PRINT "EARN INTEREST. AT THE END OF THE LAST PERIOD THE SUM OF -40 PRINT "THE PAYMENTS AND THE INTEREST WILL JUST EQUAL THE PREDE-FIXED -45 PRINT "AMOUNT. IN THIS PROGRAM WE MUST INPUT THE FUTURE DESIRED -50 PRINT "AMOUNT(FUTURE VALUE), THE INTEREST RATE AND THE NUMBER -55 PRINT "PAYMENTS NEEDED. THE PROGRAM WILL COMPUTE THE PAYMENT AND -60 PRINT "WILL PRINT UP A TABLE SHOWING HOW THE FUND GROWS." -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -250 CLS -255 CLEAR 1000 -260 PRINT :INPUT "IS INTEREST RATE QUOTED PER PERIOD(P) OR ANNUALLY(A)";ZI$ -270 IF ZI$<>"P" AND ZI$<>"A" THEN PRINT "INPUT ERROR":GOTO 260 -280 IF ZI$="A" THEN PRINT :INPUT "NUMBER OF PAYMENTS PER YEAR";ZN -290 REM"ORDINARY ANNUITY-FUTURE VALUE TYPE PROBLEM -300 CLS -310 GOSUB 350 -320 I=I/100 -330 PMT=FV*I/((1+I)[N-1) -340 GOTO 420:REM PRINTOUT -350 REM INPUT SBR -360 CLS:PRINT "ENTER EACH OF THE FOLLOWING.":PRINT -370 INPUT "FUTURE VALUE ";FV -380 INPUT "NUMBER OF PAYMENTS ";N -390 IF ZI$="A" THEN INPUT "ANNUAL INTEREST RATE(%) ";I:I=I/ZN:GOTO 410 -400 INPUT "INTEREST RATE PER PERIOD(%)";I -410 RETURN -420 REM PRINT OUT -430 CLS -440 PRINT "SINKING FUND FOR";N;"PAYMENTS AT INTEREST RATE OF";100*I;"% PER PERIOD" -450 PRINT "NUMBER OF PAYMENTS =";N -460 IF ZI$="A" THEN PRINT " CONSISTING OF ";ZN;" PAYMENTS ANNUALLY." -470 IF ZI$="A" THEN PRINT "ANNUAL INTEREST RATE =";100*I*ZN:GOTO 490 -480 PRINT "INT. RATE PER PERIOD=";100*I -490 PRINT "PAYMENT =";PMT -500 PRINT :INPUT "PRESS ENTER FOR TO PRINT TABLE";Z9 -510 CLS -520 PP(1)=0:QQ(1)=0:D1F(1)=0:REM SUM OF PAYMENTS,INT,&INCR. IN FUND -530 F$(1)="END PERIOD DEPOSIT INT ON FUND INCR. IN FUND AMT IN FUND" -540 F$(2)=" ### #######.## ######.## #######.## #######.##" -550 F$(3)=" TOTALS #######.## ######.## #######.## #######.##" -560 PRINT F$(1):PRINT -565 A=0 -570 FOR J= 1 TO N -580 TT=A*I:A=A+TT+PMT:D1F=TT+PMT -590 REM A=AMT IN FUND:TT=INTEREST ON FUND:DIF=INCR IN FUND -600 PRINT USING F$(2);J,PMT,TT,D1F,A -610 IF J/12=INT(J/12) THEN GOSUB 670:CLS:PRINT F$(1):PRINT -620 PP(1)=PP(1)+PMT:QQ(1)=QQ(1)+TT:D1F(1)=D1F(1)+D1F -630 NEXT J -640 PRINT USING F$(3);PP(1),QQ(1),D1F(1) -650 PRINT :INPUT "IS LINE PRINTER OUTPUT DESIRED(Y/N)";Z2$ -652 IF Z2$="Y" THEN GOTO 700 -655 IF Z2$="N" THEN GOTO 250 -657 PRINT "INPUT ERROR":PRINT :GOTO 650 -660 GOTO 250 -670 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN -700 REM PRINT OUT -710 CLS -720 LPRINT "SINKING FUND FOR";N;"PAYMENTS AT INTEREST RATE OF";100*I;"% PER PERIOD" -730 LPRINT "NUMBER OF PAYMENTS =";N -740 IF ZI$="A" THEN LPRINT " CONSISTING OF ";ZN;" PAYMENTS ANNUALLY." -750 IF ZI$="A" THEN LPRINT "ANNUAL INTEREST RATE =";100*I*ZN:GOTO 770 -760 LPRINT "INT. RATE PER PERIOD=";100*I -770 LPRINT "PAYMENT =";PMT -780 LPRINT " ":LPRINT " ":LPRINT " " -800 PP(1)=0:QQ(1)=0:D1F(1)=0:REM SUM OF PAYMENTS,INT,&INCR. IN FUND -810 F$(1)="END PERIOD DEPOSIT INT ON FUND INCR. IN FUND AMT IN FUND" -820 F$(2)=" ### #######.## ######.## #######.## #######.##" -830 F$(3)=" TOTALS #######.## ######.## #######.## #######.##" -840 LPRINT F$(1):LPRINT " " -845 A=0 -850 FOR J= 1 TO N -860 TT=A*I:A=A+TT+PMT:D1F=TT+PMT -870 REM A=AMT IN FUND:TT=INTEREST ON FUND:DIF=INCR IN FUND -880 LPRINT USING F$(2);J,PMT,TT,D1F,A -900 PP(1)=PP(1)+PMT:QQ(1)=QQ(1)+TT:D1F(1)=D1F(1)+D1F -910 NEXT J -920 LPRINT USING F$(3);PP(1),QQ(1),D1F(1) -925 INPUT "PRESS ENTER FOR MORE";Z9$ -927 IF Z9$ = "-1" THEN END -928 GOTO 250 -930 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/SINKFUND.INP b/bwbtest/T80A/SINKFUND.INP deleted file mode 100644 index 529612a..0000000 --- a/bwbtest/T80A/SINKFUND.INP +++ /dev/null @@ -1,13 +0,0 @@ - -A -12 -345678 -48 -5.76 - - - - - -Y --1 diff --git a/bwbtest/T80A/SINKFUND.run b/bwbtest/T80A/SINKFUND.run deleted file mode 100644 index 14c350a..0000000 --- a/bwbtest/T80A/SINKFUND.run +++ /dev/null @@ -1,95 +0,0 @@ - SINKING FUNDS - -A SINKING FUND IS AN ANNUITY WHICH MUST ACCUMULATE TO SOME -FIXED AMOUNT BY A GIVEN TIME IN THE FUTURE. THIS MEANS THAT -A FIXED AMOUNT WILL BE PAID INTO A FUND EVERY PERIOD AND -EARN INTEREST. AT THE END OF THE LAST PERIOD THE SUM OF -THE PAYMENTS AND THE INTEREST WILL JUST EQUAL THE PREDE-FIXED -AMOUNT. IN THIS PROGRAM WE MUST INPUT THE FUTURE DESIRED -AMOUNT(FUTURE VALUE), THE INTEREST RATE AND THE NUMBER -PAYMENTS NEEDED. THE PROGRAM WILL COMPUTE THE PAYMENT AND -WILL PRINT UP A TABLE SHOWING HOW THE FUND GROWS. - -PRESS ENTER TO BEGIN? - -IS INTEREST RATE QUOTED PER PERIOD(P) OR ANNUALLY(A)? A - -NUMBER OF PAYMENTS PER YEAR? 12 -ENTER EACH OF THE FOLLOWING. - -FUTURE VALUE ? 345678 -NUMBER OF PAYMENTS ? 48 -ANNUAL INTEREST RATE(%) ? 5.76 -SINKING FUND FOR 48 PAYMENTS AT INTEREST RATE OF .48 % PER PERIOD -NUMBER OF PAYMENTS = 48 - CONSISTING OF 12 PAYMENTS ANNUALLY. -ANNUAL INTEREST RATE = 5.76 -PAYMENT = 6421.02 - -PRESS ENTER FOR TO PRINT TABLE? -END PERIOD DEPOSIT INT ON FUND INCR. IN FUND AMT IN FUND - - 1 6421.02 0.00 6421.02 6421.02 - 2 6421.02 30.82 6451.84 12872.86 - 3 6421.02 61.79 6482.81 19355.67 - 4 6421.02 92.91 6513.93 25869.60 - 5 6421.02 124.17 6545.20 32414.80 - 6 6421.02 155.59 6576.61 38991.41 - 7 6421.02 187.16 6608.18 45599.59 - 8 6421.02 218.88 6639.90 52239.49 - 9 6421.02 250.75 6671.77 58911.26 - 10 6421.02 282.77 6703.80 65615.06 - 11 6421.02 314.95 6735.97 72351.03 - 12 6421.02 347.28 6768.31 79119.34 -PRESS ENTER TO CONTINUE? -END PERIOD DEPOSIT INT ON FUND INCR. IN FUND AMT IN FUND - - 13 6421.02 379.77 6800.79 85920.13 - 14 6421.02 412.42 6833.44 92753.57 - 15 6421.02 445.22 6866.24 99619.81 - 16 6421.02 478.18 6899.20 106519.01 - 17 6421.02 511.29 6932.31 113451.32 - 18 6421.02 544.57 6965.59 120416.91 - 19 6421.02 578.00 6999.02 127415.93 - 20 6421.02 611.60 7032.62 134448.55 - 21 6421.02 645.35 7066.37 141514.92 - 22 6421.02 679.27 7100.29 148615.21 - 23 6421.02 713.35 7134.37 155749.59 - 24 6421.02 747.60 7168.62 162918.21 -PRESS ENTER TO CONTINUE? -END PERIOD DEPOSIT INT ON FUND INCR. IN FUND AMT IN FUND - - 25 6421.02 782.01 7203.03 170121.24 - 26 6421.02 816.58 7237.60 177358.84 - 27 6421.02 851.32 7272.34 184631.18 - 28 6421.02 886.23 7307.25 191938.43 - 29 6421.02 921.30 7342.33 199280.76 - 30 6421.02 956.55 7377.57 206658.33 - 31 6421.02 991.96 7412.98 214071.31 - 32 6421.02 1027.54 7448.56 221519.87 - 33 6421.02 1063.30 7484.32 229004.19 - 34 6421.02 1099.22 7520.24 236524.43 - 35 6421.02 1135.32 7556.34 244080.77 - 36 6421.02 1171.59 7592.61 251673.38 -PRESS ENTER TO CONTINUE? -END PERIOD DEPOSIT INT ON FUND INCR. IN FUND AMT IN FUND - - 37 6421.02 1208.03 7629.05 259302.43 - 38 6421.02 1244.65 7665.67 266968.11 - 39 6421.02 1281.45 7702.47 274670.58 - 40 6421.02 1318.42 7739.44 282410.02 - 41 6421.02 1355.57 7776.59 290186.61 - 42 6421.02 1392.90 7813.92 298000.52 - 43 6421.02 1430.40 7851.42 305851.95 - 44 6421.02 1468.09 7889.11 313741.06 - 45 6421.02 1505.96 7926.98 321668.04 - 46 6421.02 1544.01 7965.03 329633.06 - 47 6421.02 1582.24 8003.26 337636.32 - 48 6421.02 1620.65 8041.68 345678.00 -PRESS ENTER TO CONTINUE? -END PERIOD DEPOSIT INT ON FUND INCR. IN FUND AMT IN FUND - - TOTALS 308209.03 37468.97 345678.00 - -IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y -PRESS ENTER FOR MORE? -1 diff --git a/bwbtest/T80A/SORT3.BAS b/bwbtest/T80A/SORT3.BAS deleted file mode 100644 index 1224af2..0000000 --- a/bwbtest/T80A/SORT3.BAS +++ /dev/null @@ -1,90 +0,0 @@ -1 REM SORT3 -5 CLS -10000 PRINT " SHELL SORT ROUTINE" -10020 PRINT -10030 PRINT "THE INPUT OF THIS PROGRAM IS A LIST OF WORDS.(OR POS NOS.). -10040 PRINT "THE OUTPUT IS THE LIST IN ALPHABETICAL (OR NUMERICAL)ORDER. -10050 PRINT "WHEN INPUTTING THE DATA DO NOT IMBED COMMAS WITHIN INPUT -10060 PRINT "WORDS OR NUMBERS OR USE NEGATIVE NUMBERS." -10070 PRINT "THE SHELL SORT IS GENERALLY MORE EFFICIENT THAN THE EASIER TO -10080 PRINT "UNDERSTAND BUBBLE SORT. -10082 PRINT " THERE IS AN OPTION TO PRINT OUT BOTH THE ORIGINAL AND THE -10084 PRINT "SORTED LISTS ON THE LINE PRINTER." -10085 PRINT -10090 INPUT "PRESS ENTER TO BEGIN";Z9 -10100 CLS -10105 CLEAR 2000 -10110 INPUT "WHAT IS THE MAXIMUM NUMBER OF ITEMS YOU WISH TO SORT";NM -10130 DIM A$(NM) -10140 PRINT :INPUT "DO YOU WANT OUTPUT TO GO TO THE LINE PRINTER(Y/N)";Z2$ -10145 IF Z2$<>"Y" AND Z2$<>"N" THEN PRINT "INPUT ERROR":GOTO 10140 -10150 INPUT "PRESS 1 FOR ALPHABETIC DATA, 2 FOR NUMERIC DATA";AN -10160 IF AN=1 OR AN = 2 THEN GOTO 10200 -10170 PRINT "INPUT ERROR. TRY AGAIN." -10180 FOR I= 1 TO 300:NEXT I -10190 GOTO 10150 -10200 GOSUB 10500 :REM INPUT SUBROUTINE -10210 GOSUB 10600 :REM PRINT ORIGINAL LIST -10220 GOSUB 10700 :REM SORTING SUBROUTINE -10230 GOSUB 10800 :REM PRINT SORTED LIST -10250 END -10500 REM INPUT SUBROUTINE -10510 I=0 -10520 PRINT "INPUT ITEM";I+1;" (99999 TO END)";:INPUT A$(I+1) -10530 IF A$(I+1)="99999" THEN GOTO 10590 -10540 I=I+1 -10550 GOTO 10520 -10590 RETURN -10600 REM PRINT ORIGINAL LIST 14 AT A TIME -10605 INPUT "TO PRINT ORIGINAL LIST PRESS ENTER";Z9 -10607 IF Z2$="Y" THEN INPUT "PRESS ENTER WHEN PRINTER READY";Z9$: LPRINT TAB(15); "ORIGINAL LIST": LPRINT " " -10610 GOSUB 10900:REM PRINT HEADING -10620 FOR L=1 TO I -10630 PRINT USING Z8$;L,A$(L) -10635 IF Z2$="Y" THEN LPRINT USING Z8$;L,A$(L): GOTO 10670 -10640 IF L/14 <>INT(L/14) THEN GOTO 10670 -10650 INPUT "PRESS ENTER FOR MORE OF LISTING";Z9 -10660 GOSUB 10900 -10670 NEXT L -10680 INPUT "PRESS ENTER TO CONTINUE";Z9 -10690 RETURN -10700 REM SORTING SUBROUTINE -10702 AD$="00000000000000000000" -10705 CLS:PRINT @ 320,"SORTING - SORTING - SORTING " -10706 IF AN=1 THEN GOTO 10710 -10707 FOR K=1 TO I:A$(K)=AD$+A$(K):A$(K)=RIGHT$(A$(K),20):NEXT K -10710 S=I -10715 S=INT(S/2) -10720 IF S>=1 THEN GOTO 10730 -10725 GOTO 10790 -10730 FOR K= 1 TO S -10735 FOR L=K TO I-S STEP S -10740 J=L -10745 T$=A$(L+S) -10755 IF T$>=A$(J) THEN GOTO 10775 -10760 A$(J+S)=A$(J) -10765 J=J-S -10770 IF J >= 1 THEN GOTO 10755 -10775 A$(J+S)=T$ -10780 NEXT L -10785 NEXT K -10788 GOTO 10715 -10790 IF AN=1 THEN GOTO 10799 -10792 FOR K= 1 TO I -10794 A=VAL(A$(K)) -10795 A$(K)=STR$(A) -10797 NEXT K -10799 RETURN -10800 REM PRINT SORTED LIST 14 AT A TIME -10805 INPUT "TO PRINT SORTED LIST PRESS ENTER";Z9 -10807 IF Z2$="Y" THEN INPUT "PRESS ENTER WHEN PRINTER READY";Z9$: LPRINT TAB(15); "SORTED LIST": LPRINT " " -10810 GOSUB 10610 -10890 RETURN -10900 REM PRINT HEADING SUBROUTINE -10905 CLS -10910 Z9$ = " ITEM NUMBER ITEM VAL. " -10920 Z8$ = " #### % % -10930 PRINT Z9$ -10940 IF Z2$="Y" THEN LPRINT Z9$:LPRINT " " -10950 RETURN - diff --git a/bwbtest/T80A/SORT3.INP b/bwbtest/T80A/SORT3.INP deleted file mode 100644 index f0c1116..0000000 --- a/bwbtest/T80A/SORT3.INP +++ /dev/null @@ -1,14 +0,0 @@ - -9 -Y -1 -XXX -NNN -BBB -99999 - - - - - - diff --git a/bwbtest/T80A/SORT3.run b/bwbtest/T80A/SORT3.run deleted file mode 100644 index 1bacbca..0000000 --- a/bwbtest/T80A/SORT3.run +++ /dev/null @@ -1,35 +0,0 @@ - SHELL SORT ROUTINE - -THE INPUT OF THIS PROGRAM IS A LIST OF WORDS.(OR POS NOS.). -THE OUTPUT IS THE LIST IN ALPHABETICAL (OR NUMERICAL)ORDER. -WHEN INPUTTING THE DATA DO NOT IMBED COMMAS WITHIN INPUT -WORDS OR NUMBERS OR USE NEGATIVE NUMBERS. -THE SHELL SORT IS GENERALLY MORE EFFICIENT THAN THE EASIER TO -UNDERSTAND BUBBLE SORT. - THERE IS AN OPTION TO PRINT OUT BOTH THE ORIGINAL AND THE -SORTED LISTS ON THE LINE PRINTER. - -PRESS ENTER TO BEGIN? -WHAT IS THE MAXIMUM NUMBER OF ITEMS YOU WISH TO SORT? 9 - -DO YOU WANT OUTPUT TO GO TO THE LINE PRINTER(Y/N)? Y -PRESS 1 FOR ALPHABETIC DATA, 2 FOR NUMERIC DATA? 1 -INPUT ITEM 1 (99999 TO END)? XXX -INPUT ITEM 2 (99999 TO END)? NNN -INPUT ITEM 3 (99999 TO END)? BBB -INPUT ITEM 4 (99999 TO END)? 99999 -TO PRINT ORIGINAL LIST PRESS ENTER? -PRESS ENTER WHEN PRINTER READY? - ITEM NUMBER ITEM VAL. - 1 XXX - 2 NNN - 3 BBB -PRESS ENTER TO CONTINUE? -SORTING - SORTING - SORTING -TO PRINT SORTED LIST PRESS ENTER? -PRESS ENTER WHEN PRINTER READY? - ITEM NUMBER ITEM VAL. - 1 BBB - 2 NNN - 3 XXX -PRESS ENTER TO CONTINUE? diff --git a/bwbtest/T80A/STOCVAL1.BAS b/bwbtest/T80A/STOCVAL1.BAS deleted file mode 100644 index 82a0e80..0000000 --- a/bwbtest/T80A/STOCVAL1.BAS +++ /dev/null @@ -1,27 +0,0 @@ -5 CLS -10 PRINT" VALUE OF A SHARE OF STOCK" -20 PRINT -30 PRINT"wHEN AN INVESTOR BUYS A STOCK HE HOPES FOR SOME FUTURE -40 PRINT"RETURN, EITHER THROUGH DIVIDENDS OR CAPITAL GAINS. -50 PRINT"HOWEVER STOCKHOLDERS IN GENERAL,OVER THE LONG HAUL, -60 PRINT"ONLY GET CASH DIVIDENDS OUT OF THE STOCK. MANY WHO SUBSCRIBE -65 PRINT"TO THE PRECEDIMG BELIEVE THAT ANY STOCK VALUATION MODEL -70 PRINT"SHOULD CONSIDER ONLY DIVIDENDS.SUCH IS THE MODEL OF THIS -80 PRINT"PROGRAM. WE SHALL ASSUME THAT WE KNOW THE PRICE OF A SHARE -85 PRINT"OF A CERTAIN STOCK,THE PRESENT ANNUAL CASH DIVIDEND, AND -90 PRINT"AN EXPECTED GROWTH RATE FOR DIVIDENDS WHICH WE ASSUME WILL -93 PRINT"LAST INDEFINITELY. FROM THIS DATA WE GET OUR EXPECTED -95 PRINT"RATE OF RETURN ON INVESTMENT FOR THE STOCK. -98 INPUT "PRESS ENTER TO BEGIN";Z9 -100 CLS -110 INPUT"THE PRESENT PRICE OF 1 SHARE OF THE STOCK = ";P -120 INPUT"THE PRESENT ANNUAL CASH DIVIDEND = ";D0 -130 INPUT"EXPECTED RATE OF DIVIDEND GROWTH(IN %) = ";G -140 G=G/100 -150 R= D0*(1+G)/P+G -160 PRINT -170 PRINT "EXPECTED LONG RUN RATE OF RETURN = ";100*R;"%" -180 PRINT -190 INPUT "PRESS ENTER FOR MORE STOCKS";Z9 -192 IF Z9 = -1 THEN END -195 GOTO 100 diff --git a/bwbtest/T80A/STOCVAL1.INP b/bwbtest/T80A/STOCVAL1.INP deleted file mode 100644 index a224686..0000000 --- a/bwbtest/T80A/STOCVAL1.INP +++ /dev/null @@ -1,5 +0,0 @@ - -12.34 -2.98 -3.45 --1 diff --git a/bwbtest/T80A/STOCVAL1.run b/bwbtest/T80A/STOCVAL1.run deleted file mode 100644 index 6a20b66..0000000 --- a/bwbtest/T80A/STOCVAL1.run +++ /dev/null @@ -1,21 +0,0 @@ - VALUE OF A SHARE OF STOCK - -wHEN AN INVESTOR BUYS A STOCK HE HOPES FOR SOME FUTURE -RETURN, EITHER THROUGH DIVIDENDS OR CAPITAL GAINS. -HOWEVER STOCKHOLDERS IN GENERAL,OVER THE LONG HAUL, -ONLY GET CASH DIVIDENDS OUT OF THE STOCK. MANY WHO SUBSCRIBE -TO THE PRECEDIMG BELIEVE THAT ANY STOCK VALUATION MODEL -SHOULD CONSIDER ONLY DIVIDENDS.SUCH IS THE MODEL OF THIS -PROGRAM. WE SHALL ASSUME THAT WE KNOW THE PRICE OF A SHARE -OF A CERTAIN STOCK,THE PRESENT ANNUAL CASH DIVIDEND, AND -AN EXPECTED GROWTH RATE FOR DIVIDENDS WHICH WE ASSUME WILL -LAST INDEFINITELY. FROM THIS DATA WE GET OUR EXPECTED -RATE OF RETURN ON INVESTMENT FOR THE STOCK. -PRESS ENTER TO BEGIN? -THE PRESENT PRICE OF 1 SHARE OF THE STOCK = ? 12.34 -THE PRESENT ANNUAL CASH DIVIDEND = ? 2.98 -EXPECTED RATE OF DIVIDEND GROWTH(IN %) = ? 3.45 - -EXPECTED LONG RUN RATE OF RETURN = 28.4323 % - -PRESS ENTER FOR MORE STOCKS? -1 diff --git a/bwbtest/T80A/T80.PRO b/bwbtest/T80A/T80.PRO deleted file mode 100644 index 1e12dba..0000000 --- a/bwbtest/T80A/T80.PRO +++ /dev/null @@ -1,3 +0,0 @@ -OPTION VERSION "TRS-80" -LET PI=3.141592654 -WIDTH 24, 80 diff --git a/bwbtest/T80A/TAXDEP.BAS b/bwbtest/T80A/TAXDEP.BAS deleted file mode 100644 index 7360d7f..0000000 --- a/bwbtest/T80A/TAXDEP.BAS +++ /dev/null @@ -1,36 +0,0 @@ -5 CLS -10 PRINT TAB(10);"DEPRECIATION AND INCOME TAX":PRINT -30 PRINT "AS A BUSINESS EXPENSE HIGH DEPRECIATION LOWERS PROFITS. -40 PRINT "HOWEVER, LOWER TAXES ARE A RESULT OF THIS. THUS, HIGHER -50 PRINT "DEPRECIATION MEANS HIGHER NET CASH FLOW WHICH WE DEFINE AS -60 PRINT "PROFITS BEFORE DEPRECIATION-INCOME TAXES. -70 PRINT "IN THIS PROGRAM THE USER INPUTS PROFITS BEFORE DEPRECIATION. -75 PRINT "THEN HE INPUTS VARIOUS POSSIBLE DEPRECIATIONS. NET CASH FLOW -77 PRINT "FOR EACH IS THEN COMPUTED. TAX SCHEDULES USED ARE: -80 PRINT " 17% OF FIRST $25000 -82 PRINT " 20% OF NEXT $25000 -84 PRINT " 30% OF NEXT $25000 -86 PRINT " 40% OF NEXT $25000 -88 PRINT " 46% OF ANY AMOUNT OVER $100000 -95 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9 -98 DEFDBL B,D,P,T -100 CLS -110 F$(1)=" DEPRECIATION TAXES NET CASH FLOW !" -120 F$(2)=" $$########.## $$########.## $$########.##" -130 PRINT "INPUT PROFITS BEFORE DEPRECIATION";:INPUT PB -132 PRINT :PRINT "ENTER DEPRECIATION AMOUNT & BELOW" -135 PRINT -140 PRINT F$(1) -145 INPUT " ";D -146 IF D = -1 THEN END -147 ' PRINT CHR$(27),CHR$(27) -150 P=PB-D -160 IF P<0 THEN T=0:GOTO 200 -170 IF P<25000 THEN T=.17*P:GOTO 200 -180 IF P<50000 THEN T=4250+.20*(P-25000):GOTO 200 -183 IF P<75000 THEN T=9250+.30*(P-50000):GOTO 200 -185 IF P<100000 THEN T=16750+.40*(P-75000):GOTO 200 -190 T=26750+.46*(P-100000) -200 PRINT USING F$(2);D,T,PB-T -210 GOTO 145 - diff --git a/bwbtest/T80A/TAXDEP.INP b/bwbtest/T80A/TAXDEP.INP deleted file mode 100644 index 80ebcf1..0000000 --- a/bwbtest/T80A/TAXDEP.INP +++ /dev/null @@ -1,6 +0,0 @@ - -123456 -6543 -4321 -9876 --1 diff --git a/bwbtest/T80A/TAXDEP.run b/bwbtest/T80A/TAXDEP.run deleted file mode 100644 index e9f4b14..0000000 --- a/bwbtest/T80A/TAXDEP.run +++ /dev/null @@ -1,28 +0,0 @@ - DEPRECIATION AND INCOME TAX - -AS A BUSINESS EXPENSE HIGH DEPRECIATION LOWERS PROFITS. -HOWEVER, LOWER TAXES ARE A RESULT OF THIS. THUS, HIGHER -DEPRECIATION MEANS HIGHER NET CASH FLOW WHICH WE DEFINE AS -PROFITS BEFORE DEPRECIATION-INCOME TAXES. -IN THIS PROGRAM THE USER INPUTS PROFITS BEFORE DEPRECIATION. -THEN HE INPUTS VARIOUS POSSIBLE DEPRECIATIONS. NET CASH FLOW -FOR EACH IS THEN COMPUTED. TAX SCHEDULES USED ARE: - 17% OF FIRST $25000 - 20% OF NEXT $25000 - 30% OF NEXT $25000 - 40% OF NEXT $25000 - 46% OF ANY AMOUNT OVER $100000 - -PRESS ENTER TO BEGIN? -INPUT PROFITS BEFORE DEPRECIATION? 123456 - -ENTER DEPRECIATION AMOUNT & BELOW - - DEPRECIATION TAXES NET CASH FLOW ! - ? 6543 - $6543.00 $34529.98 $88926.02 - ? 4321 - $4321.00 $35552.10 $87903.90 - ? 9876 - $9876.00 $32996.80 $90459.20 - ? -1 diff --git a/bwbtest/T80A/TELDIR.BAS b/bwbtest/T80A/TELDIR.BAS deleted file mode 100644 index ce9705d..0000000 --- a/bwbtest/T80A/TELDIR.BAS +++ /dev/null @@ -1,158 +0,0 @@ -1 REM TELDIR -5 CLS -10 PRINT TAB(12); "TELEPHONE DIRECTORY":PRINT -20 PRINT "THIS PROGRAM SETS UP AN INDEX OF TELEPHONE NUMBERS ALONG WITH -30 PRINT "THEIR OWNERS. EACH ENTRY CONSISTS OF A PHONE NUMBER, A PERSON, -35 PRINT "AND A COMMENT. THE PROGRAM MAKES PROVISIONS FOR RECALLING -40 PRINT "PHONE NUMBER BY NAME. WITH A 16K MACHINE THIS PROGRAM -45 PRINT "WILL HANDLE 200 NUMBERS. WITH MORE MEMORY MORE NAMES SHOULD -50 PRINT "FIT, THOUGH THE DIM STATEMENT IN THE PROGRAM WOULD HAVE TO BE -55 PRINT "CHANGED ACCORDINGLY. -60 PRINT :PRINT "TO FACILITATE RECALL WE SUGGEST ENTERING NAMES AS -65 PRINT "LASTNAME*FIRSTNAME E.G. SMITH*TOM. THE COMPUTER NEEDS A -70 PRINT "PERFECT MATCH TO FIND THE NAME. THE NAME COULD ALSO BE -75 PRINT "FOUND BY PRINTING A COMPLETE LIST. -85 GOSUB 10100 -95 CLEAR 3500 -100 DIM A$(200,3) -105 GOSUB 1700 -110 CLS:INPUT "ARE DISK DRIVES ATTACHED(Y/N)";DZ$ -115 IF DZ$<>"Y" AND DZ$<>"N" THEN GOSUB 10000 -200 CLS -210 PRINT " MENU" -220 PRINT -225 PRINT "0.QUIT -230 PRINT "1.SET UP NEW PHONE DIRECTORY -240 PRINT "2.ADD TO EXISTING DIRECTORY ALREADY IN MEMORY -250 PRINT "3.READ IN A DIRECTORY ON CASSETTE -260 PRINT "4.SAVE A DIRECTORY ON CASSETTE -263 PRINT "5.READ IN A DIRECTORY ON DISKETTE -265 PRINT "6.SAVE A DIRECTORY ON DISKETTE -270 PRINT "7.REVIEW A DIRECTORY -280 PRINT "8.MAKE CORRECTIONS -282 PRINT "9.FIND NAME & PHONE NUMBER -290 PRINT :INPUT "TYPE APPROPRIATE NUMBER AND ENTER";Z1 -295 IF Z1 = 0 THEN END -300 ON Z1 GOSUB 400,500,600,700,800,900,1000,1100,2500 -320 GOTO 200 -400 CLS:REM SET UP NEW FILE -410 N=1 -420 GOSUB 1300 -425 PRINT -430 INPUT "PRESS 1 FOR MORE,0 TO RETURN TO MENU";Z9 -440 IF Z9=1 THEN N=N+1:CLS:GOTO 420 -450 IF Z9=0 THEN RETURN -460 GOSUB 1600 :GOTO 425 -500 CLS:REM ADD TO FILE IN MEMORY -510 N=N+1:GOTO 420 -600 REM READ IN A FILE ON CASSETTE -610 CLS:INPUT "PRESS ENTER WHEN CASSETTE RECORDER IS READY";Z -615 ' IF DZ$="Y" THEN CMD"T" -620 INPUT #-1,N -630 GOSUB 1400 -635 ON ERROR GOTO 200 -640 RETURN -700 REM SAVE A FILE ON CASSETTE -710 CLS:INPUT "PRESS ENTER WHEN CASSETTE RECORDER IS READY";Z -712 ' IF DZ$="Y" THEN CMD"T" -715 WRITE #-1,N -720 GOSUB 1500 -730 RETURN -800 REM READ IN FILE ON DISKETTE -810 CLS:INPUT "INPUT NAME OF DESIRED DISK FILE";ZD$ -820 OPEN "I",1,ZD$ -825 INPUT # 1,N -830 GOSUB 1450 -835 CLOSE 1 -840 PRINT :PRINT :PRINT N;" RECORDS READ." -850 GOSUB 10100 -890 RETURN -900 REM WRITE OUT FILE ONTO DISKETTE -910 CLS:PRINT "WRITE ONTO DISKETTE OPTION":PRINT -920 PRINT "PRESENT DISK FILE IS ";ZD$ -925 INPUT "NEW DISK FILE( FOR NO CHANGE)";ZD$ -930 OPEN "O",1,ZD$ -940 PRINT "THERE ARE ";N;" RECORDS":PRINT :GOSUB 10100 -950 WRITE # 1,N -960 GOSUB 1550 -970 CLOSE 1 -990 RETURN -1000 REM REVIEW A FILE SUBROUTINE -1003 INPUT "IS PRINTED OUTPUT DESIRED(Y/N)";Z2$ -1004 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 1003 -1005 CLS:GOSUB 1700 -1007 IF Z2$="Y" THEN LPRINT F$(1) -1010 FOR J=1 TO N -1015 GOSUB 1800 -1020 IF J/10 <> INT(J/10) THEN GOTO 1040 -1025 PRINT :INPUT "PRESS ENTER TO SEE MORE";Z9 -1030 CLS -1035 GOSUB 1700 -1040 NEXT J -1045 PRINT :INPUT "PRESS ENTER TO RETURN TO MENU";Z9 -1050 RETURN -1100 REM CORRECTION ROUTINE -1105 Z2$="N" -1110 CLS -1120 INPUT "NAME OF PERSON YOU WISH TO CHANGE";B$ -1130 J=1 -1140 IF B$=A$(J,1) THEN GOTO 1180 -1150 J=J+1:IF J<=N THEN GOTO 1140 -1160 PRINT "NO SUCH FILE NAME IN LIST.PRESS ENTER TO RETURN TO MENU -1170 INPUT Z9:GOTO 200 -1180 CLS:GOSUB 1800 -1185 IF Z1=9 THEN INPUT "2 FOR WRONG NAME,0 TO RETURN TO MENU";Z9:GOTO 1215 -1190 PRINT :PRINT "MAKE APPROPRIATE CHANGES.PRESS ENTER FOR NO CHANGE IN FIELD" -1200 PRINT :GOSUB 1900 -1210 INPUT "INPUT 2 FOR WRONG NAME,1 FOR MORE CHANGE,0 TO RETURN TO MENU";Z9 -1215 IF Z9=2 THEN GOTO 1150 -1220 IF Z9=1 THEN GOTO 1110 -1230 IF Z9=0 THEN RETURN -1240 GOSUB 1600:GOTO 1210 -1300 REM SUBROUTINE INPUTTING FILE DATA FROM KEYBOARD -1305 INPUT "LAST NAME*FIRST*NAME ";A$(N,1) -1310 INPUT "A/C-PHONE # E.G.914-425-1535 ";A$(N,2) -1315 INPUT "COMMENT ";A$(N,3) -1320 RETURN -1400 REM INPUT OF FILE FROM CASSETTE -1405 FOR L=1 TO N -1410 INPUT #-1,A$(L,1),A$(L,2),A$(L,3) -1415 NEXT L -1420 RETURN -1450 REM INPUT OF FILE FROM DISKETTE -1460 FOR L=1 TO N -1470 INPUT # 1,A$(L,1),A$(L,2),A$(L,3) -1480 NEXT L -1490 RETURN -1500 REM OUTPUT OF FILE ONTO CASSETTE -1505 FOR L=1 TO N -1510 WRITE #-1,A$(L,1),A$(L,2),A$(L,3) -1515 NEXT L -1520 RETURN -1550 REM OUTPUT OF FILE ONTO DISKETTE -1560 FOR L=1 TO N -1570 WRITE # 1,A$(L,1),A$(L,2),A$(L,3) -1580 NEXT L -1590 RETURN -1600 REM INPUT ERROR SUBROUTINE -1610 PRINT "INPUT ERROR TRY AGAIN" -1620 FOR L=1 TO 300:NEXT L -1630 RETURN -1700 REM HEADING SUBROUTINE -1710 F$(1)=" NAME PHONE NUMBER COMMENT " -1720 F$(2)=" % % % % % % -1730 PRINT F$(1) -1740 RETURN -1800 REM PRINT 1 FILE DATA -1810 PRINT USING F$(2);A$(J,1),A$(J,2),A$(J,3) -1815 IF Z2$="Y" THEN LPRINT USING F$(2);A$(J,1),A$(J,2),A$(J,3) -1820 RETURN -1900 REM SUBROUTINE FOR INNPUTTING DATA FILE FROM KEYBOARD -1910 INPUT "LAST NAME*FIRST*NAME ";A$(J,1) -1920 INPUT "A/C-PHONE # E.G.914-425-1535 ";A$(J,2) -1930 INPUT "COMMENT ";A$(J,3) -1940 RETURN -2500 GOSUB 1100:Z1=0:RETURN -10000 PRINT "INPUT ERROR! TRY AGAIN":FOR JZ=1 TO 500:NEXT :RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/TELDIR.DAT b/bwbtest/T80A/TELDIR.DAT deleted file mode 100644 index f690148..0000000 --- a/bwbtest/T80A/TELDIR.DAT +++ /dev/null @@ -1,3 +0,0 @@ -2 -"MOUSE JERRY","123-456-7890","CARTOON" -"CAT TOM","987-654-3210","CARTOON" diff --git a/bwbtest/T80A/TELDIR.INP b/bwbtest/T80A/TELDIR.INP deleted file mode 100644 index 83d88f7..0000000 --- a/bwbtest/T80A/TELDIR.INP +++ /dev/null @@ -1,24 +0,0 @@ - -Y -1 -MOUSE JERRY -123-456-7890 -CARTOON -1 -CAT TOM -987-654-3210 -CARTOON -0 -6 -TELDIR.DAT - -5 -TELDIR.DAT - -7 -Y - -9 -CAT TOM -0 -0 diff --git a/bwbtest/T80A/TELDIR.run b/bwbtest/T80A/TELDIR.run deleted file mode 100644 index df7f748..0000000 --- a/bwbtest/T80A/TELDIR.run +++ /dev/null @@ -1,132 +0,0 @@ - TELEPHONE DIRECTORY - -THIS PROGRAM SETS UP AN INDEX OF TELEPHONE NUMBERS ALONG WITH -THEIR OWNERS. EACH ENTRY CONSISTS OF A PHONE NUMBER, A PERSON, -AND A COMMENT. THE PROGRAM MAKES PROVISIONS FOR RECALLING -PHONE NUMBER BY NAME. WITH A 16K MACHINE THIS PROGRAM -WILL HANDLE 200 NUMBERS. WITH MORE MEMORY MORE NAMES SHOULD -FIT, THOUGH THE DIM STATEMENT IN THE PROGRAM WOULD HAVE TO BE -CHANGED ACCORDINGLY. - -TO FACILITATE RECALL WE SUGGEST ENTERING NAMES AS -LASTNAME*FIRSTNAME E.G. SMITH*TOM. THE COMPUTER NEEDS A -PERFECT MATCH TO FIND THE NAME. THE NAME COULD ALSO BE -FOUND BY PRINTING A COMPLETE LIST. -PRESS ENTER TO CONTINUE? - NAME PHONE NUMBER COMMENT -ARE DISK DRIVES ATTACHED(Y/N)? Y - MENU - -0.QUIT -1.SET UP NEW PHONE DIRECTORY -2.ADD TO EXISTING DIRECTORY ALREADY IN MEMORY -3.READ IN A DIRECTORY ON CASSETTE -4.SAVE A DIRECTORY ON CASSETTE -5.READ IN A DIRECTORY ON DISKETTE -6.SAVE A DIRECTORY ON DISKETTE -7.REVIEW A DIRECTORY -8.MAKE CORRECTIONS -9.FIND NAME & PHONE NUMBER - -TYPE APPROPRIATE NUMBER AND ENTER? 1 -LAST NAME*FIRST*NAME ? MOUSE JERRY -A/C-PHONE # E.G.914-425-1535 ? 123-456-7890 -COMMENT ? CARTOON - -PRESS 1 FOR MORE,0 TO RETURN TO MENU? 1 -LAST NAME*FIRST*NAME ? CAT TOM -A/C-PHONE # E.G.914-425-1535 ? 987-654-3210 -COMMENT ? CARTOON - -PRESS 1 FOR MORE,0 TO RETURN TO MENU? 0 - MENU - -0.QUIT -1.SET UP NEW PHONE DIRECTORY -2.ADD TO EXISTING DIRECTORY ALREADY IN MEMORY -3.READ IN A DIRECTORY ON CASSETTE -4.SAVE A DIRECTORY ON CASSETTE -5.READ IN A DIRECTORY ON DISKETTE -6.SAVE A DIRECTORY ON DISKETTE -7.REVIEW A DIRECTORY -8.MAKE CORRECTIONS -9.FIND NAME & PHONE NUMBER - -TYPE APPROPRIATE NUMBER AND ENTER? 6 -WRITE ONTO DISKETTE OPTION - -PRESENT DISK FILE IS -NEW DISK FILE( FOR NO CHANGE)? TELDIR.DAT -THERE ARE 2 RECORDS - -PRESS ENTER TO CONTINUE? - MENU - -0.QUIT -1.SET UP NEW PHONE DIRECTORY -2.ADD TO EXISTING DIRECTORY ALREADY IN MEMORY -3.READ IN A DIRECTORY ON CASSETTE -4.SAVE A DIRECTORY ON CASSETTE -5.READ IN A DIRECTORY ON DISKETTE -6.SAVE A DIRECTORY ON DISKETTE -7.REVIEW A DIRECTORY -8.MAKE CORRECTIONS -9.FIND NAME & PHONE NUMBER - -TYPE APPROPRIATE NUMBER AND ENTER? 5 -INPUT NAME OF DESIRED DISK FILE? TELDIR.DAT - - - 2 RECORDS READ. -PRESS ENTER TO CONTINUE? - MENU - -0.QUIT -1.SET UP NEW PHONE DIRECTORY -2.ADD TO EXISTING DIRECTORY ALREADY IN MEMORY -3.READ IN A DIRECTORY ON CASSETTE -4.SAVE A DIRECTORY ON CASSETTE -5.READ IN A DIRECTORY ON DISKETTE -6.SAVE A DIRECTORY ON DISKETTE -7.REVIEW A DIRECTORY -8.MAKE CORRECTIONS -9.FIND NAME & PHONE NUMBER - -TYPE APPROPRIATE NUMBER AND ENTER? 7 -IS PRINTED OUTPUT DESIRED(Y/N)? Y - NAME PHONE NUMBER COMMENT - MOUSE JERRY 123-456-7890 CARTOON - CAT TOM 987-654-3210 CARTOON - -PRESS ENTER TO RETURN TO MENU? - MENU - -0.QUIT -1.SET UP NEW PHONE DIRECTORY -2.ADD TO EXISTING DIRECTORY ALREADY IN MEMORY -3.READ IN A DIRECTORY ON CASSETTE -4.SAVE A DIRECTORY ON CASSETTE -5.READ IN A DIRECTORY ON DISKETTE -6.SAVE A DIRECTORY ON DISKETTE -7.REVIEW A DIRECTORY -8.MAKE CORRECTIONS -9.FIND NAME & PHONE NUMBER - -TYPE APPROPRIATE NUMBER AND ENTER? 9 -NAME OF PERSON YOU WISH TO CHANGE? CAT TOM - CAT TOM 987-654-3210 CARTOON -2 FOR WRONG NAME,0 TO RETURN TO MENU? 0 - MENU - -0.QUIT -1.SET UP NEW PHONE DIRECTORY -2.ADD TO EXISTING DIRECTORY ALREADY IN MEMORY -3.READ IN A DIRECTORY ON CASSETTE -4.SAVE A DIRECTORY ON CASSETTE -5.READ IN A DIRECTORY ON DISKETTE -6.SAVE A DIRECTORY ON DISKETTE -7.REVIEW A DIRECTORY -8.MAKE CORRECTIONS -9.FIND NAME & PHONE NUMBER - -TYPE APPROPRIATE NUMBER AND ENTER? 0 diff --git a/bwbtest/T80A/TERMSPAY.BAS b/bwbtest/T80A/TERMSPAY.BAS deleted file mode 100644 index 5ac2f1c..0000000 --- a/bwbtest/T80A/TERMSPAY.BAS +++ /dev/null @@ -1,35 +0,0 @@ -1 REM TERMSPAY -5 CLEAR 1000 -10 CLS:PRINT TAB(5);"COMPARISON OF METHODS FOR PAYING FOR PURCHASES" -20 PRINT"WHEN AN ITEM IS PURCHASED SOMETIMES THE USER HAS SEVERAL -25 PRINT"CHOICES AS TO HOW PAYMENT SHOULD BE MADE. FIRST OF ALL THERE -30 PRINT"MAY BE A PREPAYMENT. SUCH PREPAYMENT IS GENERALLY ACCOMPANIED -35 PRINT"BY A DISCOUNT. THERE ITEM MAY ALSO COME COD AND THERE MAY BE -40 PRINT"A DISCOUNT FOR PAYING ON DELIVERY. LASTLY THE ITEM MAY COME -45 PRINT"WITH TERMS. GENERALLY THIS MEANS THAT THERE IS A DEADLINE -50 PRINT"SUCH THAT IF PAYMENT IS MADE BEFORE THAT TIME THERE IS NO -55 PRINT"PENALTY. -60 PRINT:PRINT"THE USER CAN COMPARE THE 3 METHODS OF PAYMENT VIA A PRESENT -65 PRINT"VALUE ANALYSIS IF HE CAN ESTIMATE HIS INTEREST RATE FOR -70 PRINT"MONEY." -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT"ENTER YOUR INTEREST RATE(%)";P:P=P/100:P=P/12 -115 INPUT"ENTER LIST PRICE OF PURCHASE ";C -120 INPUT"ENTER NUMBER OF MONTHS IN ADVANCE FOR EARLY PAYMENT";MA -130 INPUT"ENTER DISCOUNT AMOUNT FOR MAKING EARLY PAYMENT";D -140 INPUT"ENTER DISCOUNT AMOUNT FOR COD ";DC -150 INPUT"ENTER # OF MONTHS(OR PART) AFTER DELIVERY FOR NET PAYMENT";MA -200 REM COMPUTE PRESENT VALUE AT TIME OF DELIVERY -210 P2=C-DC:REM COD PRESENT VALUE -220 P1=(C-D)*(1+P)[M:REM EARLY PAYMENT PRESENT VALUE -230 P3= C/(1+P)[MA:REM TERMS NET MA MONTHS PRESENT VALUE -300 PRINT -310 PRINT"PRESENT VALUES ARE COMPUTED WITH RESPECT TO DAY OF DELIVERY":PRINT -320 PRINT"PRESENT VALUE OF EARLY PAYMENT =";P1 -330 PRINT"PRESENT VALUE OF PAYING COD =";P2 -340 PRINT"PRESENT VALUE OF NET TERMS =";P3 -350 PRINT -360 INPUT"PRESS ENTER FOR MORE COMPUTATION";Z9$ -365 IF Z9$ = "-1" THEN END -370 GOTO 100 diff --git a/bwbtest/T80A/TERMSPAY.INP b/bwbtest/T80A/TERMSPAY.INP deleted file mode 100644 index a51549c..0000000 --- a/bwbtest/T80A/TERMSPAY.INP +++ /dev/null @@ -1,8 +0,0 @@ - -3.25 -100000 -15 -7 -15 -1 --1 diff --git a/bwbtest/T80A/TERMSPAY.run b/bwbtest/T80A/TERMSPAY.run deleted file mode 100644 index 2a3cc28..0000000 --- a/bwbtest/T80A/TERMSPAY.run +++ /dev/null @@ -1,29 +0,0 @@ - COMPARISON OF METHODS FOR PAYING FOR PURCHASES -WHEN AN ITEM IS PURCHASED SOMETIMES THE USER HAS SEVERAL -CHOICES AS TO HOW PAYMENT SHOULD BE MADE. FIRST OF ALL THERE -MAY BE A PREPAYMENT. SUCH PREPAYMENT IS GENERALLY ACCOMPANIED -BY A DISCOUNT. THERE ITEM MAY ALSO COME COD AND THERE MAY BE -A DISCOUNT FOR PAYING ON DELIVERY. LASTLY THE ITEM MAY COME -WITH TERMS. GENERALLY THIS MEANS THAT THERE IS A DEADLINE -SUCH THAT IF PAYMENT IS MADE BEFORE THAT TIME THERE IS NO -PENALTY. - -THE USER CAN COMPARE THE 3 METHODS OF PAYMENT VIA A PRESENT -VALUE ANALYSIS IF HE CAN ESTIMATE HIS INTEREST RATE FOR -MONEY. - -PRESS ENTER TO BEGIN? -ENTER YOUR INTEREST RATE(%)? 3.25 -ENTER LIST PRICE OF PURCHASE ? 100000 -ENTER NUMBER OF MONTHS IN ADVANCE FOR EARLY PAYMENT? 15 -ENTER DISCOUNT AMOUNT FOR MAKING EARLY PAYMENT? 7 -ENTER DISCOUNT AMOUNT FOR COD ? 15 -ENTER # OF MONTHS(OR PART) AFTER DELIVERY FOR NET PAYMENT? 1 - -PRESENT VALUES ARE COMPUTED WITH RESPECT TO DAY OF DELIVERY - -PRESENT VALUE OF EARLY PAYMENT = 99993 -PRESENT VALUE OF PAYING COD = 99985 -PRESENT VALUE OF NET TERMS = 99729.9 - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/TIMECLCK.BAS b/bwbtest/T80A/TIMECLCK.BAS deleted file mode 100644 index e4bf546..0000000 --- a/bwbtest/T80A/TIMECLCK.BAS +++ /dev/null @@ -1,88 +0,0 @@ -1 REM TIME CLOCK PROGRAM -2 REM BY DR. PETER SHENKIN -5 CLS -10 PRINT " TIME CLOCK" -20 PRINT -30 PRINT "THIS PROGRAM USES AS INPUT THE USUAL INFORMATION ON THE -40 PRINT "COMINGS AND GOINGS OF EMPLOYES STAMPED BY A TIME CLOCK ON -50 PRINT "THE EMPLOYEE TIME CARD. aS OUTPUT THE COMPUTER GIVES A -60 PRINT "SUMMARY OF THE NUMBER OF HOURS THE EMPLOYEE HAS WORKED -70 PRINT "EACH DAY ALONG WITH THE TOTAL OF HOURS FOR THE WEEK. THE -80 PRINT "WEEKLY HOURS ARE DIVIDED INTO REGULAR AND OVERTIME HOURS -90 PRINT "WITH OVERTIME HOURS CONSIDERED TO BE THOSE HOURS GREATER -100 PRINT "THAN 40. THERE IS THE OPTION TO MANUALLY OVERRIDE THE DIVISION -110 PRINT "OF REGULAR VERSUS OVERTIME HOURS."; -120 PRINT :INPUT "PRESS ENTER TO CONTINUE";Z9$ -1000 GOTO 40000 -10000 REM INPUT ERROR SUBROUTINE -10010 PRINT "INPUT ERROR! TRY AGAIN!" -10030 RETURN -40000 REM TIME CLOCK -40001 DEFINT X,J -40002 DIM AI$(30),AI(30),AO$(30),AO(30),TP(30) -40005 CLS -40006 INPUT "INPUT Y IF PRINTER DESIRED,N IF NOT";Z2$ -40007 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 40006 -40010 DATA MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY,SUNDAY -40020 FOR J8=1 TO 7:READ X$(J8):NEXT -40025 CLS:REM BEGIN FOR AN EMPLOYEE -40027 INPUT"EMPLOYEE NUMBER ";CN:REM LINK TO COMPUTE -40028 IF CN = -1 THEN END -40030 J1=1:REM DAY OF WEEK WE ARE ON -40035 X=1:XD=1:REM X= ENTRY: XD= DAY -40040 PRINT "ENTER TIME FOR DAY OF WEEK GIVEN. FORM SHOULD BE: -40045 PRINT "A OR P,HR IN.MIN IN,A OR P,HR OUT. MIN OUT -40050 PRINT "TO END DAY ENTER D,0,0,0.TO END WEEK ENTER W,0,0,0 -40055 PRINT X$(XD) -40060 INPUT "A OR P,TIME IN,A OR P,TIME OUT"; AI$(X),AI(X),AO$(X),AO(X) -40063 IF AI$(X)<>"A" AND AI$(X)<>"P" AND AI$(X)<>"D" AND AI$(X)<>"W" THEN GOSUB 10000:GOTO 40060 -40066 IF AO$(X)<>"A" AND AO$(X)<>"P" AND AO$(X)<>"0" AND AO$(X)<>"" THEN GOSUB 10000:GOTO 40060 -40070 IF AI$(X) <> "D" AND AI$(X) <> "W" THEN X=X+1: GOTO 40060 -40080 IF AI$(X)="D" THEN XD=XD+1:X=X+1:GOTO 40055 -40090 IF AI$(X)="W" THEN GOTO 40100 -40100 REM WEEK FINISHED. START COMPUTING -40105 FOR J8=1 TO 7:TQ(J8)=0:NEXT -40110 REM Tq(I) = TOTAL DAY I -40115 FOR X1=1 TO X:TP(X1)=0:NEXT X1 -40120 REM TP(I) = TOTAL FOR ENTRY I -40130 D8=1:REM D8= DAY -40140 FOR X1=1 TO X -40145 IF AI$(X1)="D" THEN D8=D8+1:GOTO 40200 -40150 SI=60*INT(AI(X1))+100*(AI(X1)-INT(AI(X1))) -40160 SO=60*INT(AO(X1))+100*(AO(X1)-INT(AO(X1))) -40170 IF AI$(X1)="A" AND AO$(X1)="P" AND AO(X1)<12 THEN SO=SO + 720 -40175 IF AI(X1)>=12 AND AO(X1)<12 THEN SO=SO+720:GOTO 40185 -40180 IF AI$(X1)="P" AND AO$(X1)="A" THEN SO=SO+720 -40185 TP(X1)=(SO-SI)/60:TQ(D8)=TQ(D8)+(SO-SI)/60:REM COMPUTE TIME TP & SUM TIME FOR DAY -40200 NEXT X1 -40205 REM TT= TOTAL TIME FOR WEEK -40210 TT=0:TR=0:T0=0:FOR J8=1 TO D8:TT=TT+TQ(J8):NEXT -40220 REM OVERTIME -40230 IF TT>40 THEN TR=40:T0=TT-40:GOTO 40250 -40240 TR=TT -40250 TT=INT(100*TT+.5)/100:TR=INT(100*TR+.5)/100:T0=INT(100*T0+.5)/100 -40300 REM PRINTOUT FOR EMPLOYEE -40302 CLS -40305 XD=1 -40310 FOR X1=1 TO X -40320 IF AI$(X1)="D" OR AI$(X1)="W" THEN PRINT X$(XD);TAB(15);"TOTAL = ";TAB(30); TQ(XD);TAB(40);"HRS.":XD=XD+1:GOTO 40350 -40330 PRINT AI$(X1);" ";AI(X1);TAB(20); AO$(X1);TAB(27);AO(X1);TAB(40); "TOTAL = ";TP(X1);TAB(60); "HRS" -40350 NEXT X1 -40360 PRINT TAB(30); "GRAND TOTAL = ";INT(100*TT+.5)/100 -40370 PRINT "REGULAR HOURS = ";TR,"OVERTIME HOURS = ";T0 -40380 Z4=TR:Z5=T0 -40390 INPUT "REGULAR HOURS,OVERTIME HOURS ";TR,T0 -40395 TT=TR+T0 -40400 IF Z2$="N" THEN GOTO 40025 -40402 REM PRINT TIME ON PRINTER -40405 XD=1 -40407 LPRINT "EMPLOYEE NUMBER ";CN:LPRINT -40410 FOR X1=1 TO X -40420 IF AI$(X1)="D" OR AI$(X1)="W" THEN LPRINT X$(XD);TAB(15);"TOTAL = ";TAB(30); TQ(XD);TAB(40);"HRS":XD=XD+1:GOTO 40450 -40430 LPRINT AI$(X1);" ";AI(X1);TAB(20); AO$(X1);TAB(27);AO(X1);TAB(40); "TOTAL = ";TP(X1);TAB(60); "HRS" -40450 NEXT X1 -40460 LPRINT TAB(30); "GRAND TOTAL = ";INT(100*TT+.5)/100 -40470 LPRINT "REGULAR HOURS = ";TR,"OVERTIME HOURS = ";T0 -40480 FOR X1=1 TO 10:LPRINT " ":NEXT -40500 GOTO 40025 - diff --git a/bwbtest/T80A/TIMECLCK.INP b/bwbtest/T80A/TIMECLCK.INP deleted file mode 100644 index 8f592f0..0000000 --- a/bwbtest/T80A/TIMECLCK.INP +++ /dev/null @@ -1,10 +0,0 @@ - -Y -1 -A,10,P,2 -A,10,P,2 -A,10,P,2 -A,10,P,2 -W,0,0,0 -40,20 --1 diff --git a/bwbtest/T80A/TIMECLCK.run b/bwbtest/T80A/TIMECLCK.run deleted file mode 100644 index cc658f7..0000000 --- a/bwbtest/T80A/TIMECLCK.run +++ /dev/null @@ -1,32 +0,0 @@ - TIME CLOCK - -THIS PROGRAM USES AS INPUT THE USUAL INFORMATION ON THE -COMINGS AND GOINGS OF EMPLOYES STAMPED BY A TIME CLOCK ON -THE EMPLOYEE TIME CARD. aS OUTPUT THE COMPUTER GIVES A -SUMMARY OF THE NUMBER OF HOURS THE EMPLOYEE HAS WORKED -EACH DAY ALONG WITH THE TOTAL OF HOURS FOR THE WEEK. THE -WEEKLY HOURS ARE DIVIDED INTO REGULAR AND OVERTIME HOURS -WITH OVERTIME HOURS CONSIDERED TO BE THOSE HOURS GREATER -THAN 40. THERE IS THE OPTION TO MANUALLY OVERRIDE THE DIVISION -OF REGULAR VERSUS OVERTIME HOURS. -PRESS ENTER TO CONTINUE? -INPUT Y IF PRINTER DESIRED,N IF NOT? Y -EMPLOYEE NUMBER ? 1 -ENTER TIME FOR DAY OF WEEK GIVEN. FORM SHOULD BE: -A OR P,HR IN.MIN IN,A OR P,HR OUT. MIN OUT -TO END DAY ENTER D,0,0,0.TO END WEEK ENTER W,0,0,0 -MONDAY -A OR P,TIME IN,A OR P,TIME OUT? A,10,P,2 -A OR P,TIME IN,A OR P,TIME OUT? A,10,P,2 -A OR P,TIME IN,A OR P,TIME OUT? A,10,P,2 -A OR P,TIME IN,A OR P,TIME OUT? A,10,P,2 -A OR P,TIME IN,A OR P,TIME OUT? W,0,0,0 -A 10 P 2 TOTAL = 4 HRS -A 10 P 2 TOTAL = 4 HRS -A 10 P 2 TOTAL = 4 HRS -A 10 P 2 TOTAL = 4 HRS -MONDAY TOTAL = 16 HRS. - GRAND TOTAL = 16 -REGULAR HOURS = 16 OVERTIME HOURS = 0 -REGULAR HOURS,OVERTIME HOURS ? 40,20 -EMPLOYEE NUMBER ? -1 diff --git a/bwbtest/T80A/TIMEMOV.BAS b/bwbtest/T80A/TIMEMOV.BAS deleted file mode 100644 index 95bcfd6..0000000 --- a/bwbtest/T80A/TIMEMOV.BAS +++ /dev/null @@ -1,68 +0,0 @@ -1 REM TIMEMOV -5 CLS -10 PRINT "SIMPLE MOVING AVERAGE SMOOTHING PROGRAM -20 PRINT -30 PRINT "THIS PROGRAM COMPUTES AN M-PERIOD MOVING AVERAGE FOR A SET OF -40 PRINT "VALUES. M SHOULD BE AN ODD INTEGER,E.G 3,5,7,ETC. THERE SHOULD -50 PRINT "BE MORE THAN M OBSERVATIONS TO GET MEANINGFUL RESULTS. -60 PRINT :INPUT "PRESS ENTER TO BEGIN.";Z9 -90 Z1$=" ### #####.## " -95 Z2$=" ### #####.## #####.####" -100 CLS -120 PRINT @ 320," " -130 PRINT "THIS IS AN M-PERIOD MOVING AVERAGE.WHAT DOES M EQUAL"; -140 INPUT M -150 IF M = INT(M) AND M>0 AND M/2<>INT(M/2) THEN GOTO 180 -160 GOSUB 2000 :REM INPUT ERROR SUBROUTINE -170 GOTO 100 -180 PRINT -190 PRINT "GIVE AN UPPER BOUND ON THE NUMBER OF OBSERVATIONS YOU INTEND TO -200 PRINT "USE.THIS WILL BE THE GREATEST NUMBER OF OBSERVATIONS POSSIBLE. -210 INPUT "NUMBER = ";N -220 DIM A(N),S(N) -225 CLS -230 PRINT "INPUT OBSERVATIONS 1 BY 1, PRESSING ENTER AFTER EACH. -240 PRINT "INPUT 99999 AND ENTER WHEN DONE." -250 PRINT -260 PRINT "PRESS ENTER TO BEGIN";:INPUT Z9 -300 CLS -310 I=0:S=0 -320 PRINT "OBSERVATION ";I+1;" (99999 TO END)";:INPUT A(I+1) -330 IF A(I+1)=99999 THEN GOTO 350 -340 I=I+1:GOTO 320 -350 T=(M-1)/2+1 -360 FOR K=1 TO M -370 S=S+A(K) -380 NEXT K -390 S(T)=S/M -400 FOR L=1 TO I-M -410 S(T+L)=S(T+L-1)+(A(T+L+(M-1)/2) - A(T+L-(M-1)/2-1))/M -420 NEXT L -430 GOSUB 2500 -440 FOR L= 1 TO (M-1)/2 -450 PRINT USING Z1$;L,A(L) -460 IF L/14 = INT(L/14) THEN GOSUB 3000 -470 NEXT L -475 FOR L=(M-1)/2 +1 TO I-(M-1)/2-1 -480 PRINT USING Z2$;L,A(L),S(L) -490 IF L/14 = INT(L/14) THEN GOSUB 3000 -500 NEXT L -510 FOR L=I-(M-1)/2 TO I -520 PRINT USING Z1$;L,A(L) -530 IF L/14=INT(L/14) THEN GOSUB 3000 -540 NEXT L -550 END -2000 REM INPUT ERROR SUBROUTINE -2010 PRINT :PRINT "INPUT ERROR. TRY AGAIN." -2020 FOR I= 1 TO 300:NEXT I -2030 RETURN -2500 REM HEADING SUBROUTINE -2510 CLS -2520 PRINT "OBSERVATION # OBSERVATION VALUE SMOOTHED VALUE -2530 RETURN -3000 REM FULL SCREEN SUBROUTINE -3010 INPUT "TO CONTINUE PRESS ENTER";Z9 -3020 CLS -3030 GOSUB 2500 -3040 RETURN - diff --git a/bwbtest/T80A/TIMEMOV.INP b/bwbtest/T80A/TIMEMOV.INP deleted file mode 100644 index 6057d03..0000000 --- a/bwbtest/T80A/TIMEMOV.INP +++ /dev/null @@ -1,8 +0,0 @@ - -3 -10 - -1223 -882 -987 -99999 diff --git a/bwbtest/T80A/TIMEMOV.run b/bwbtest/T80A/TIMEMOV.run deleted file mode 100644 index 59da8f9..0000000 --- a/bwbtest/T80A/TIMEMOV.run +++ /dev/null @@ -1,25 +0,0 @@ -SIMPLE MOVING AVERAGE SMOOTHING PROGRAM - -THIS PROGRAM COMPUTES AN M-PERIOD MOVING AVERAGE FOR A SET OF -VALUES. M SHOULD BE AN ODD INTEGER,E.G 3,5,7,ETC. THERE SHOULD -BE MORE THAN M OBSERVATIONS TO GET MEANINGFUL RESULTS. - -PRESS ENTER TO BEGIN.? - -THIS IS AN M-PERIOD MOVING AVERAGE.WHAT DOES M EQUAL? 3 - -GIVE AN UPPER BOUND ON THE NUMBER OF OBSERVATIONS YOU INTEND TO -USE.THIS WILL BE THE GREATEST NUMBER OF OBSERVATIONS POSSIBLE. -NUMBER = ? 10 -INPUT OBSERVATIONS 1 BY 1, PRESSING ENTER AFTER EACH. -INPUT 99999 AND ENTER WHEN DONE. - -PRESS ENTER TO BEGIN? -OBSERVATION 1 (99999 TO END)? 1223 -OBSERVATION 2 (99999 TO END)? 882 -OBSERVATION 3 (99999 TO END)? 987 -OBSERVATION 4 (99999 TO END)? 99999 -OBSERVATION # OBSERVATION VALUE SMOOTHED VALUE - 1 1223.00 - 2 882.00 - 3 987.00 diff --git a/bwbtest/T80A/TIMETR.BAS b/bwbtest/T80A/TIMETR.BAS deleted file mode 100644 index 0afac0d..0000000 --- a/bwbtest/T80A/TIMETR.BAS +++ /dev/null @@ -1,57 +0,0 @@ -1 REM TIMETR -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"TIME SERIES-LINEAR TREND":PRINT -20 PRINT "THIS PROGRAM COMPUTES A LINEAR TREND FOR A TIME SERIES. -30 PRINT "THE DETRENDED VALUES FROM THE SERIES ARE ALSO PRINTED. -60 PRINT :INPUT "PRESS ENTER TO BEGIN.";Z9 -90 Z1$=" ### #####.## " -95 Z2$=" ### #####.## #####.#### ###.##" -100 CLS -120 PRINT @ 320," " -180 PRINT -190 PRINT "GIVE AN UPPER BOUND ON THE NUMBER OF OBSERVATIONS YOU INTEND TO -200 PRINT "USE.THIS WILL BE THE GREATEST NUMBER OF OBSERVATIONS POSSIBLE. -210 INPUT "NUMBER = ";N -220 DIM A(N),S(N) -225 CLS -230 PRINT "INPUT OBSERVATIONS 1 BY 1, PRESSING ENTER AFTER EACH. -240 PRINT "INPUT 99999 AND ENTER WHEN DONE." -250 PRINT -260 PRINT "PRESS ENTER TO BEGIN";:INPUT Z9 -300 CLS -310 I=0:S=0 -320 PRINT "OBSERVATION ";I+1;" (99999 TO END)";:INPUT A(I+1) -330 IF A(I+1)=99999 THEN GOTO 350 -340 I=I+1:GOTO 320 -350 REM COMPUTATION -355 S1=0:S2=0:S3=0:S4=0:S5=0 -360 FOR K=1 TO I -370 S1=S1+K:S2=S2+K[2:S3=S3+A(K):S4=S4+A(K)[2:S5=S5+K*A(K) -380 NEXT K -390 D=I*S2 - S1[2:A=(S3*S2-S1*S5)/D:B=(I*S5-S1*S3)/D -395 REM REGRESSION COEFFICIENTS ABOVE -400 FOR L=1 TO I -410 S(L)=A+B*L -420 NEXT L -430 GOSUB 2500 -440 FOR L=1 TO I -480 PRINT USING Z2$;L,A(L),S(L),A(L)/S(L) -490 IF L/14 = INT(L/14) THEN GOSUB 3000 -500 NEXT L -550 END -2000 REM INPUT ERROR SUBROUTINE -2010 PRINT :PRINT "INPUT ERROR. TRY AGAIN." -2020 FOR I= 1 TO 300:NEXT I -2030 RETURN -2500 REM HEADING SUBROUTINE -2510 CLS -2515 PRINT "TREND EQUATION IS T =";A;"+";B;"Y WHERE T IS THE TREND -2516 PRINT "VALUE AND Y IS NO. OF YEARS FROM ORIGIN. -2520 PRINT "OBSERVATION # OBSERVATION VALUE SMOOTHED VALUE DETRENDED" -2530 RETURN -3000 REM FULL SCREEN SUBROUTINE -3010 INPUT "TO CONTINUE PRESS ENTER";Z9 -3020 CLS -3030 GOSUB 2500 -3040 RETURN - diff --git a/bwbtest/T80A/TIMETR.INP b/bwbtest/T80A/TIMETR.INP deleted file mode 100644 index 90e7bc6..0000000 --- a/bwbtest/T80A/TIMETR.INP +++ /dev/null @@ -1,11 +0,0 @@ - -10 -12345 -12 -9 -12 -9 -12 -9 -12 -99999 diff --git a/bwbtest/T80A/TIMETR.run b/bwbtest/T80A/TIMETR.run deleted file mode 100644 index c77b3ba..0000000 --- a/bwbtest/T80A/TIMETR.run +++ /dev/null @@ -1,33 +0,0 @@ - TIME SERIES-LINEAR TREND - -THIS PROGRAM COMPUTES A LINEAR TREND FOR A TIME SERIES. -THE DETRENDED VALUES FROM THE SERIES ARE ALSO PRINTED. - -PRESS ENTER TO BEGIN.? - - -GIVE AN UPPER BOUND ON THE NUMBER OF OBSERVATIONS YOU INTEND TO -USE.THIS WILL BE THE GREATEST NUMBER OF OBSERVATIONS POSSIBLE. -NUMBER = ? 10 -INPUT OBSERVATIONS 1 BY 1, PRESSING ENTER AFTER EACH. -INPUT 99999 AND ENTER WHEN DONE. - -PRESS ENTER TO BEGIN? 12345 -OBSERVATION 1 (99999 TO END)? 12 -OBSERVATION 2 (99999 TO END)? 9 -OBSERVATION 3 (99999 TO END)? 12 -OBSERVATION 4 (99999 TO END)? 9 -OBSERVATION 5 (99999 TO END)? 12 -OBSERVATION 6 (99999 TO END)? 9 -OBSERVATION 7 (99999 TO END)? 12 -OBSERVATION 8 (99999 TO END)? 99999 -TREND EQUATION IS T = 10.7143 + 0 Y WHERE T IS THE TREND -VALUE AND Y IS NO. OF YEARS FROM ORIGIN. -OBSERVATION # OBSERVATION VALUE SMOOTHED VALUE DETRENDED - 1 12.00 10.7143 1.12 - 2 9.00 10.7143 0.84 - 3 12.00 10.7143 1.12 - 4 9.00 10.7143 0.84 - 5 12.00 10.7143 1.12 - 6 9.00 10.7143 0.84 - 7 12.00 10.7143 1.12 diff --git a/bwbtest/T80A/TIMUSAN.BAS b/bwbtest/T80A/TIMUSAN.BAS deleted file mode 100644 index 7c292a9..0000000 --- a/bwbtest/T80A/TIMUSAN.BAS +++ /dev/null @@ -1,69 +0,0 @@ -1 REM TIMUSAN -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"TIME USE ANALYSIS":PRINT -20 PRINT "TO USE THIS PROGRAM THE SUBJECT MUST KEEP A CAREFUL -30 PRINT "LOG OF HOW HE SPENDS HIS TIME FOR A WEEK, OR POSSIBLY -35 PRINT "SOME OTHER PERIOD. EACH CATEGORY OF ACTIVITY IS GIVEN A -40 PRINT "CODE, E.G. LUNCH MIGHT BE A 1. THE CODES ARE SUCCESSIVE -45 PRINT "INTEGERS BEGINNING WITH 1. -50 PRINT :PRINT "WHEN THE DESIRED AMOUNT OF DATA IS AVAILABLE THEN -55 PRINT "FOR EACH ACTIVITY AND TIME PERIOD THE USER ENTERS THE CODE -60 PRINT "AND NUMBER OF MINUTES PERFORMING THE ACTIVITY. -70 PRINT :PRINT "THE FINAL PRINTOUT IS A SUMMARY OF THE PROPORTION OF -75 PRINT "TIME SPENT ON EACH ACTIVITY" -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT "ENTER THE NUMBER OF DIFFERENT ACTIVITY CATEGORIES";N -115 R=300:DIM A$(N+1),C(R),T(R),CT(N+1),NT(N+1) -120 PRINT -130 FOR I = 1 TO N -140 PRINT "CATEGORY";I;"DESCRIPTION(<=10 CHARACTERS)";:INPUT A$(I) -150 NEXT I -155 PRINT -160 GOSUB 1000 -165 PRINT -170 INPUT "IS CATEGORY PRINTOUT ON LINE PRINTER DESIRED(Y/N)";Z2$ -180 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 170 -190 IF Z2$="Y" THEN INPUT "PRESS ENTER WHEN LINE PRINTER READY";Z9$ -200 IF Z2$="Y" THEN FOR I=1 TO N:LPRINT I;"---";A$(I),:NEXT -202 IF Z2$="Y" THEN LPRINT " " -250 CLS -260 PRINT "TIME USE INPUT NEXT. FOR EACH ITEM ENTER CODE AND -265 PRINT "NUMBER OF MINUTES PERFORMING THE ACTIVITY AT THIS -270 PRINT "TIME. ENTER 0,0 TO END AND -1,0 TO DISPLAY CATEGORIES -271 PRINT "300 ENTRIES MAY BE MADE" -272 PRINT "THERE ARE ";N;" CATEGORIES." -275 J=0:REM NUMBER OF TIME USE ITEMS -280 PRINT -290 PRINT "ENTRY";J+1;:INPUT "ENTER CATEGORY #,TIME(0,0 END -1,0 DISPLAY";C(J+1),T(J+1) -295 IF C(J+1)=0 AND T(J+1)=0 THEN GOTO 400 ' FINISH ENTRY -297 IF C(J+1)=-1 AND T(J+1)=0 THEN GOSUB 1000:GOTO 280 -300 IF C(J+1)<>INT(C(J+1)) OR C(J+1)<1 OR C(J+1)>N THEN GOSUB 10000:GOTO 280 -310 J=J+1 -320 T=T+T(J):REM TOTAL TIME -330 CT(C(J))=CT(C(J))+T(J):REM TOTAL TIME IN CATEGORY -335 NT(C(J))=NT(C(J))+1:REM NO. TIMES IN CATEGORY -340 GOTO 290 -400 REM ANALYSIS AND PRINTOUT -410 F$(1)="CAT # DESCRIPTION TIME(MIN) # OCCUR AVG.TIME % TOTAL" -420 F$(2)=" ### % % #####.# ### ####.# ###.##" -430 CLS -440 INPUT "IS LINE PRINTER OUTPUT AVAILABLE(Y/N)";Z2$ -450 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 440 -460 IF Z2$="Y" THEN INPUT "PRESS ENTER WHEN LINE PRINTER READY";Z9$ -470 IF Z2$="Y" THEN LPRINT TAB(20); "TIME USE ANALYSIS":LPRINT " " -480 CLS:PRINT F$(1):IF Z2$="Y" THEN LPRINT F$(1):LPRINT " " -490 FOR I= 1 TO N -500 IF NT(I)>0 THEN PRINT USING F$(2);I,A$(I),CT(I),NT(I),CT(I)/NT(I),CT(I)/T*100 -510 IF NT(I)=0 THEN PRINT USING F$(2);I,A$(I),CT(I),NT(I),0,CT(I)/T*100 -520 IF Z2$<>"Y" THEN GOTO 550 -530 IF NT(I)>0 THEN LPRINT USING F$(2);I,A$(I),CT(I),NT(I),CT(I)/NT(I),CT(I)/T*100 -540 IF NT(I)=0 THEN LPRINT USING F$(2);I,A$(I),CT(I),NT(I),0,CT(I)/T*100 -550 IF I/12=INT(I/12) THEN GOSUB 10100:CLS:PRINT F$(1) -560 NEXT I -570 PRINT :END -1000 REM LIST CATEGORIES ON SCREEN -1010 CLS:FOR I=1 TO N:PRINT I;" ";A$(I),:NEXT :RETURN -10000 PRINT "INPUT ERROR! TRY AGAIN!":FOR JE=1 TO 300:NEXT :RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/TIMUSAN.INP b/bwbtest/T80A/TIMUSAN.INP deleted file mode 100644 index c11f0f1..0000000 --- a/bwbtest/T80A/TIMUSAN.INP +++ /dev/null @@ -1,18 +0,0 @@ - -3 -ABC -MNO -XYZ -Y - -ABC,12 -1,12 -1,17 -2,22 -2,33 -3,31 -3,39 --1,0 -0,0 -Y - diff --git a/bwbtest/T80A/TIMUSAN.run b/bwbtest/T80A/TIMUSAN.run deleted file mode 100644 index 1a89ed0..0000000 --- a/bwbtest/T80A/TIMUSAN.run +++ /dev/null @@ -1,49 +0,0 @@ - TIME USE ANALYSIS - -TO USE THIS PROGRAM THE SUBJECT MUST KEEP A CAREFUL -LOG OF HOW HE SPENDS HIS TIME FOR A WEEK, OR POSSIBLY -SOME OTHER PERIOD. EACH CATEGORY OF ACTIVITY IS GIVEN A -CODE, E.G. LUNCH MIGHT BE A 1. THE CODES ARE SUCCESSIVE -INTEGERS BEGINNING WITH 1. - -WHEN THE DESIRED AMOUNT OF DATA IS AVAILABLE THEN -FOR EACH ACTIVITY AND TIME PERIOD THE USER ENTERS THE CODE -AND NUMBER OF MINUTES PERFORMING THE ACTIVITY. - -THE FINAL PRINTOUT IS A SUMMARY OF THE PROPORTION OF -TIME SPENT ON EACH ACTIVITY - -PRESS ENTER TO BEGIN? -ENTER THE NUMBER OF DIFFERENT ACTIVITY CATEGORIES? 3 - -CATEGORY 1 DESCRIPTION(<=10 CHARACTERS)? ABC -CATEGORY 2 DESCRIPTION(<=10 CHARACTERS)? MNO -CATEGORY 3 DESCRIPTION(<=10 CHARACTERS)? XYZ - - 1 ABC 2 MNO 3 XYZ -IS CATEGORY PRINTOUT ON LINE PRINTER DESIRED(Y/N)? Y -PRESS ENTER WHEN LINE PRINTER READY? -TIME USE INPUT NEXT. FOR EACH ITEM ENTER CODE AND -NUMBER OF MINUTES PERFORMING THE ACTIVITY AT THIS -TIME. ENTER 0,0 TO END AND -1,0 TO DISPLAY CATEGORIES -300 ENTRIES MAY BE MADE -THERE ARE 3 CATEGORIES. - -ENTRY 1 ENTER CATEGORY #,TIME(0,0 END -1,0 DISPLAY? ABC,12 -?Redo from start -ENTER CATEGORY #,TIME(0,0 END -1,0 DISPLAY? 1,12 -ENTRY 2 ENTER CATEGORY #,TIME(0,0 END -1,0 DISPLAY? 1,17 -ENTRY 3 ENTER CATEGORY #,TIME(0,0 END -1,0 DISPLAY? 2,22 -ENTRY 4 ENTER CATEGORY #,TIME(0,0 END -1,0 DISPLAY? 2,33 -ENTRY 5 ENTER CATEGORY #,TIME(0,0 END -1,0 DISPLAY? 3,31 -ENTRY 6 ENTER CATEGORY #,TIME(0,0 END -1,0 DISPLAY? 3,39 -ENTRY 7 ENTER CATEGORY #,TIME(0,0 END -1,0 DISPLAY? -1,0 - 1 ABC 2 MNO 3 XYZ -ENTRY 7 ENTER CATEGORY #,TIME(0,0 END -1,0 DISPLAY? 0,0 -IS LINE PRINTER OUTPUT AVAILABLE(Y/N)? Y -PRESS ENTER WHEN LINE PRINTER READY? -CAT # DESCRIPTION TIME(MIN) # OCCUR AVG.TIME % TOTAL - 1 ABC 29.0 2 14.5 18.83 - 2 MNO 55.0 2 27.5 35.71 - 3 XYZ 70.0 2 35.0 45.45 - diff --git a/bwbtest/T80A/TRANS.BAS b/bwbtest/T80A/TRANS.BAS deleted file mode 100644 index 21126b9..0000000 --- a/bwbtest/T80A/TRANS.BAS +++ /dev/null @@ -1,239 +0,0 @@ -1 REM TRANS -5 CLEAR 1000 -10 CLS:PRINT TAB(20);"TRANSPORTATION PROBLEM":PRINT -20 PRINT "THE TRANSPORTATION PROBLEM EXAMINED HERE IS THE FOLLOWING: -25 PRINT " THERE ARE N SOURCES OF SUPPLY AND M DESTINATIONS FOR A -30 PRINT "GOOD. EACH OF THE SUPPLY SOURCES CAN SUPPLY A GIVEN AMOUNT OF -35 PRINT"THE GOOD AND EACH DESTINATION HAS A CERTAIN REQUIREMENT. WE -40 PRINT "REQUIRE THAT THE TOTAL OF POSSIBLE SUPPLY EQUALS THE TOTAL -45 PRINT "REQUIRED.TO DELIVER A UNIT OF THE ITEM FROM A GIVEN SOURCE TO -50 PRINT "A GIVEN DESTINATION HAS A KNOWN COST,DEPENDING UPON THE SOURCE- -55 PRINT "DESTINATION COMBINATION. THE PROBLEM ATTEMPTS TO DETERMINE -60 PRINT "WHICH SHIPPING ASSIGNMENT MINIMIZES SHIPPING COST. -90 PRINT :INPUT "PRESS ENTER TO CONTINUE";Z9$ -95 CLEAR 1000 -100 I=10:J=10:REM I=MXX SOURCES,J=MXXIMUM DESTINATIONS -105 MXX=I:IF J>MXX THEN J=MXX -110 DIM A(MXX),B(MXX),CC(MXX,MXX),X(MXX,MXX),N(MXX),U(MXX) -115 DIM HS(MXX,MXX) -120 DIM G(MXX),V(MXX),T(MXX),R(MXX),S(50),L(200) -125 FOR I=1 TO MXX:V(I)=1:NEXT -130 CLS -140 INPUT "ENTER NUMBER OF SOURCES ";M -150 INPUT "ENTER NUMBER OF DESTINATIONS";N -160 PRINT -170 FOR I=1 TO M -180 PRINT "SOURCE";I -190 FOR J=1 TO N -200 PRINT " UNIT COST TO DESTINATION ";J;:INPUT CC(I,J) -205 HS(I,J)=CC(I,J):REM HOLD UNTIL END -210 NEXT J -220 PRINT "CAPACITY OF SOURCE";I;:INPUT A(I) -225 A8=A8+A(I) -230 NEXT I -240 PRINT -250 FOR I=1 TO N -260 PRINT "REQUIREMENTS OF DESTINATION";I;:INPUT B(I) -265 B8=B8+B(I) -270 NEXT -280 IF A8<>B8 THEN PRINT "TOTAL SUPPLY MUST EQUAL TOTAL DEMAND IN THIS PROGRAM":GOSUB 10100:GOTO 95 -300 CLS:INPUT "IS PRINTER COPY OF INPUT DESIRED(Y/N)";Z2$ -310 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 300 -320 IF Z2$="N" THEN GOTO 700 -330 REM PRINTER INPUT ROUTINE -340 INPUT "PRESS ENTER WHEN PRINTER READY";Z9$ -350 LPRINT "NUMBER OF SOURCES = ";M -360 LPRINT "NUMBER OF DESTINATIONS =";N -370 LPRINT " " -380 FOR I=1 TO M -390 LPRINT "SOURCE";I -400 FOR J=1 TO N -410 LPRINT " UNIT COST TO DESTINATION ";J;"EQUALS ";CC(I,J) -420 NEXT J -430 LPRINT "CAPACITY OF SOURCE";I;"EQUALS ";A(I) -440 NEXT I -450 LPRINT " " -460 FOR I=1 TO N -470 LPRINT "REQUIREMENTS OF DESTINATION";I;"EQUALS ";B(I) -480 NEXT -700 CLS:PRINT :PRINT :PRINT :PRINT TAB(20);"COMPUTING" -1000 FOR I=1 TO M:N(I)=(I-1)*N:NEXT -1005 C=0:G=0 -1010 FOR I=1 TO M -1015 H=99999 -1020 FOR J=1 TO N -1025 IF CC(I,J)>=H THEN GOTO 1035 -1030 H=CC(I,J) -1035 NEXT J -1040 FOR J=1 TO N -1045 CC(I,J)=CC(I,J)-H:C1=CC(I,J) -1050 IF C1<>0 THEN GOTO 1070 -1055 V(J)=0 -1060 N(I)=N(I)+1:N1=N(I) -1065 L(N1)=J -1070 NEXT J -1075 C=H*A(I)+C -1080 NEXT I -1085 FOR J=1 TO N -1090 IF V(J)=0 THEN GOTO 1155 -1095 H=99999 -1100 FOR I=1 TO M -1105 IF CC(I,J)>=H THEN GOTO 1115 -1110 H=CC(I,J) -1115 NEXT I -1120 FOR I=1 TO M -1125 CC(I,J)=CC(I,J)-H:C1=CC(I,J) -1130 IF C1<>0 THEN GOTO 1145 -1135 N(I)=N(I)+1:N1=N(I) -1140 L(N1)=J -1145 NEXT I -1150 C=H*B(J)+C -1155 NEXT J -1160 FOR I=1 TO M -1165 A1=A(I):N1=N(I) -1170 FOR U= (I-1)*N+1 TO N1 -1175 IF A1=0 THEN GOTO 1220 -1180 J=L(U):B1=B(J) -1185 IF B1=0 THEN GOTO 1215 -1190 H=A1 -1195 IF A10 THEN GOTO 1320 -1310 R(J)=I:L=L+1:V(L)=J -1315 IF B(J)>0 THEN GOTO 1390 -1320 NEXT S -1325 NEXT U -1330 IF L=0 THEN GOTO 1490 -1335 K=0 -1340 FOR V=1 TO L -1345 J=V(V):L1=T(J) -1350 FOR S=T(J-1)+1 TO L1 -1355 I=S(S) -1360 IF G(I)<>0 THEN GOTO 1370 -1365 G(I)=J:K=K+1:U(K)=I -1370 NEXT S -1375 NEXT V -1380 IF K=0 THEN GOTO 1490 -1385 GOTO 1280 -1390 H=B(J):P=J -1395 I=R(J):J=G(I) -1400 IF J<>99999 THEN GOTO 1420 -1405 IF A(I)>=H THEN 1435 -1410 H=A(I) -1415 GOTO 1435 -1420 IF X(I,J)>=H THEN GOTO 1395 -1425 H=X(I,J) -1430 GOTO 1395 -1435 J=P:B(J)=B(J)-H:A(I)=A(I)-H:G=G-H -1440 REM -1445 I=R(J):X1=X(I,J):X(I,J)=X1+H -1450 IF X1<>0 THEN GOTO 1460 -1455 GOSUB 1705 -1460 J=G(I) -1465 IF J=99999 THEN GOTO 1230 -1470 X(I,J) =X(I,J)-H:X1=X(I,J) -1475 IF X1<>0 THEN GOTO 1440 -1480 GOSUB 1735 -1485 GOTO 1440 -1490 K=0:L=N+1 -1495 FOR J=1 TO N -1500 IF R(J)<>0 THEN GOTO 1515 -1505 K=K+1:V(K)=J -1510 GOTO 1520 -1515 L=L-1:V(L)=J -1520 NEXT J -1525 H=99999 -1530 FOR I=1 TO M -1535 IF G(I)=0 THEN GOTO 1565 -1540 FOR S=1 TO K -1545 J=V(S) -1550 IF CC(I,J)>=H THEN GOTO 1560 -1555 H=CC(I,J) -1560 NEXT S -1565 NEXT I -1570 FOR I=1 TO M -1575 F=0 -1580 IF G(I)=0 THEN GOTO 1590 -1585 F=1 -1590 N1=(I-1)*N -1595 FOR S=L TO N -1600 J=V(S) -1605 IF F=0 THEN GOTO 1620 -1610 C1=CC(I,J) -1615 GOTO 1625 -1620 CC(I,J)=CC(I,J)+H:C1=CC(I,J) -1625 IF C1<>0 THEN GOTO 1635 -1630 N1=N1+1:L(N1)=J -1635 NEXT S -1640 FOR S=1 TO K -1645 J=V(S) -1650 IF F=0 THEN GOTO 1665 -1655 CC(I,J)=CC(I,J)-H:C1=CC(I,J) -1660 GOTO 1670 -1665 C1=CC(I,J) -1670 IF C1<>0 THEN GOTO 1680 -1675 N1=N1+1:L(N1)=J -1680 NEXT S -1685 N(I)=N1 -1690 NEXT I -1695 C=H*G+C -1700 GOTO 1235 -1705 REM -1710 L1=T(J) -1715 FOR T=T(N) TO L1 STEP -1:S(T+1)=S(T):NEXT -1720 FOR T=J TO N:T(T)=T(T)+1:NEXT -1725 S(L1+1)=I -1730 RETURN -1735 REM -1740 L1=T(J) -1745 FOR T=T(J-1)+1 TO L1 -1750 IF S(T)<>I THEN GOTO 1765 -1755 S=T -1760 GOTO 1770 -1765 NEXT T -1770 FOR T=J TO N:T(T)=T(T)-1:NEXT -1775 L1=T(N) -1780 FOR T=S TO L1:S(T)=S(T+1):NEXT -1785 RETURN -3000 CLS:INPUT "IS PRINTER OUTPUT DESIRED(Y/N)";Z2$ -3005 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 3000 -3010 CLS:PRINT "SHIPPING ASSIGNMENTS" -3015 F$(1)=" FROM SOURCE ## TO DESTINATION ## : #####.# COST= ######.##" -3020 FOR I=1 TO M:FOR J=1 TO N -3025 IF X(I,J)<>0 THEN PRINT USING F$(1);I,J,X(I,J),X(I,J)*HS(I,J) -3030 NEXT J:NEXT I -3035 PRINT " TOTAL COST = ";C -3040 IF Z2$="N" THEN GOTO 3080 -3045 PRINT :INPUT "PRESS ENTER WHEN PRINTER READY";Z9$ -3050 LPRINT "SHIPPING ASSIGNMENTS" -3055 FOR I=1 TO M:FOR J=1 TO N -3060 IF X(I,J)<>0 THEN LPRINT USING F$(1);I,J,X(I,J),X(I,J)*HS(I,J) -3065 NEXT J:NEXT I -3070 LPRINT " " -3075 LPRINT " TOTAL COST = ";C -3080 PRINT :INPUT "PRESS ENTER FOR MORE COMPUTATION";Z9$ -3082 IF Z9$ = "-1" THEN END -3085 GOTO 95 -10000 PRINT "INPUT ERROR! TRY AGAIN!":FOR JJ=1 TO 300:NEXT :RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/TRANS.INP b/bwbtest/T80A/TRANS.INP deleted file mode 100644 index 0ab5087..0000000 --- a/bwbtest/T80A/TRANS.INP +++ /dev/null @@ -1,19 +0,0 @@ - -3 -2 -1 -2 -3 -2 -1 -5 -1 -1 -2 -4 -6 -Y - -Y - --1 diff --git a/bwbtest/T80A/TRANS.run b/bwbtest/T80A/TRANS.run deleted file mode 100644 index 2fa9529..0000000 --- a/bwbtest/T80A/TRANS.run +++ /dev/null @@ -1,48 +0,0 @@ - TRANSPORTATION PROBLEM - -THE TRANSPORTATION PROBLEM EXAMINED HERE IS THE FOLLOWING: - THERE ARE N SOURCES OF SUPPLY AND M DESTINATIONS FOR A -GOOD. EACH OF THE SUPPLY SOURCES CAN SUPPLY A GIVEN AMOUNT OF -THE GOOD AND EACH DESTINATION HAS A CERTAIN REQUIREMENT. WE -REQUIRE THAT THE TOTAL OF POSSIBLE SUPPLY EQUALS THE TOTAL -REQUIRED.TO DELIVER A UNIT OF THE ITEM FROM A GIVEN SOURCE TO -A GIVEN DESTINATION HAS A KNOWN COST,DEPENDING UPON THE SOURCE- -DESTINATION COMBINATION. THE PROBLEM ATTEMPTS TO DETERMINE -WHICH SHIPPING ASSIGNMENT MINIMIZES SHIPPING COST. - -PRESS ENTER TO CONTINUE? -ENTER NUMBER OF SOURCES ? 3 -ENTER NUMBER OF DESTINATIONS? 2 - -SOURCE 1 - UNIT COST TO DESTINATION 1 ? 1 - UNIT COST TO DESTINATION 2 ? 2 -CAPACITY OF SOURCE 1 ? 3 -SOURCE 2 - UNIT COST TO DESTINATION 1 ? 2 - UNIT COST TO DESTINATION 2 ? 1 -CAPACITY OF SOURCE 2 ? 5 -SOURCE 3 - UNIT COST TO DESTINATION 1 ? 1 - UNIT COST TO DESTINATION 2 ? 1 -CAPACITY OF SOURCE 3 ? 2 - -REQUIREMENTS OF DESTINATION 1 ? 4 -REQUIREMENTS OF DESTINATION 2 ? 6 -IS PRINTER COPY OF INPUT DESIRED(Y/N)? Y -PRESS ENTER WHEN PRINTER READY? - - - - COMPUTING -IS PRINTER OUTPUT DESIRED(Y/N)? Y -SHIPPING ASSIGNMENTS - FROM SOURCE 1 TO DESTINATION 1 : 3.0 COST= 3.00 - FROM SOURCE 2 TO DESTINATION 2 : 5.0 COST= 5.00 - FROM SOURCE 3 TO DESTINATION 1 : 1.0 COST= 1.00 - FROM SOURCE 3 TO DESTINATION 2 : 1.0 COST= 1.00 - TOTAL COST = 10 - -PRESS ENTER WHEN PRINTER READY? - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/UPSZONE.BAS b/bwbtest/T80A/UPSZONE.BAS deleted file mode 100644 index f14cc28..0000000 --- a/bwbtest/T80A/UPSZONE.BAS +++ /dev/null @@ -1,57 +0,0 @@ -1 REM UPSZONE -5 CLEAR 1000 -10 CLS:PRINT TAB(10); "UNITED PARCEL SERVICE ZONE CHART":PRINT -20 PRINT"THIS PROGRAM WILL PRINT OUT THE UPS ZONE GIVEN THE ZIPCODE -25 PRINT"OF THE DESTINATION. AQCTUALLY THIS IS THE ZONE CHART FOR -30 PRINT"SHIPPERS WITHIN THE 10901 - 10999 ZIP CODE AREA. THOSE USERS -35 PRINT"WHO DESIRE ANOTHER AREA NEED ONLY CHANGE THE DATA STATEMANTS. -40 PRINT"THE PROGRAM COULD ALSO BE USED AS A SUBROUTINE IN AN INVOICING -45 PRINT"SYSTEM WHERE ZONES ARE NEEDED TO COMPUTE RATES. -50 PRINT"THE DATA ENTRIES ARE IN THE FORM LOW ZIP,HIGH ZIP, AND UPS -55 PRINT"ZONE FOR EACH REGION. ONLY THE 1ST 3 DIGITS OF THE ZIP ARE -60 PRINT"USED. -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -100 DEFINT X -110 DIM XL(200),XH(200),XZ(200) -120 REM XL LOW ZIP, XH HIGH ZIP, XZ ZONE -130 CLS:PRINT:PRINT:PRINT:PRINT TAB(20); "LOADING DATA" -150 ON ERROR GOTO 9000 -160 N=1 -170 READ XL(N),XH(N),XZ(N) -180 N=N+1:GOTO 170 -200 CLS -210 INPUT"INPUT DESIRED ZIP CODE";ZIP -215 IF ZIP = -1 THEN END -220 IF INT(ZIP/100)<=XL(INT(N/2)) THEN I=1 :ELSE I=INT(N/2) -230 ZZIP=INT(ZIP/100) -240 IF XL(I)<=ZZIP AND ZZIP<=XH(I) THEN GOTO 300 -250 IF I=N THEN PRINT"NO ZONE FOR ZIP";ZIP;" AVAILABLE":GOSUB 10100:PRINT:GOTO 210 -260 I=I+1:GOTO 240 -300 PRINT"THE UPS ZONE FOR ZIP CODE ";ZIP;"IS ZONE";XZ(I) -310 GOSUB 10100:PRINT:GOTO 210 -1000 DATA 010,016,2,017,026,3,027,029,2,030,033,3,034,034,2 -1002 DATA 035,043,3,044,044,4,045,045,3,046,049,4,050,051,3 -1004 DATA 052,053,2,054,059,3,060,089,2,100,128,2,129,132,3 -1006 DATA 133,135,2,136,136,3,137,139,2,140,147,3,148,149,2 -1008 DATA 150,152,3,153,153,4,154,163,3,164,165,4,166,168,3 -1010 DATA 169,171,2,172,172,3,173,199,2,200,218,3,219,219,2 -1012 DATA 220,232,3,233,237,4,238,238,3,239,253,4,254,254,3 -1014 DATA 255,264,4,265,265,3,266,266,4,267,268,3,270,288,4 -1016 DATA 289,289,5,290,293,4,294,294,5,295,297,4,298,299,5 -1018 DATA 300,324,5,325,325,6,326,329,5,330,337,6,338,338,5 -1020 DATA 339,339,6,350,364,5,365,366,6,367,374,5,376,376,4 -1022 DATA 377,386,5,387,387,6,388,389,5,390,392,6,393,393,5 -1024 DATA 394,396,6,397,397,5,400,402,5,403,418,4,420,427,5 -1026 DATA 430,458,4,460,466,5,467,468,4,469,469,5,470,470,4 -1028 DATA 471,472,5,473,473,4,474,479,5,480,495,4,496,496,5 -1030 DATA 497,497,4,498,499,5,500,504,5,505,505,6,506,507,5 -1032 DATA 508,516,6,520,560,5,561,576,6,577,577,7,580,585,6 -1034 DATA 586,586,7,587,587,6,588,593,7,594,594,8,595,595,7 -1036 DATA 596,599,8,600,639,5,640,648,6,650,655,5,656,676,6 -1038 DATA 677,677,7,678,678,6,679,679,7,680,692,6,693,693,7 -1040 DATA 700,722,6,723,725,5,726,738,6,739,739,7,740,763,6 -1042 DATA 764,769,7,770,778,6,779,797,7,798,799,8,800,831,7 -1044 DATA 832,865,8,870,871,7,873,874,8,875,877,7,878,880,8 -1046 DATA 881,884,7,890,898,8,900,961,8,970,986,8,988,994,8 -9000 RESUME 200 -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/UPSZONE.INP b/bwbtest/T80A/UPSZONE.INP deleted file mode 100644 index a0ee205..0000000 --- a/bwbtest/T80A/UPSZONE.INP +++ /dev/null @@ -1,10 +0,0 @@ - -12345 - -23456 - -34567 - -45678 - --1 diff --git a/bwbtest/T80A/UPSZONE.run b/bwbtest/T80A/UPSZONE.run deleted file mode 100644 index e97ff69..0000000 --- a/bwbtest/T80A/UPSZONE.run +++ /dev/null @@ -1,34 +0,0 @@ - UNITED PARCEL SERVICE ZONE CHART - -THIS PROGRAM WILL PRINT OUT THE UPS ZONE GIVEN THE ZIPCODE -OF THE DESTINATION. AQCTUALLY THIS IS THE ZONE CHART FOR -SHIPPERS WITHIN THE 10901 - 10999 ZIP CODE AREA. THOSE USERS -WHO DESIRE ANOTHER AREA NEED ONLY CHANGE THE DATA STATEMANTS. -THE PROGRAM COULD ALSO BE USED AS A SUBROUTINE IN AN INVOICING -SYSTEM WHERE ZONES ARE NEEDED TO COMPUTE RATES. -THE DATA ENTRIES ARE IN THE FORM LOW ZIP,HIGH ZIP, AND UPS -ZONE FOR EACH REGION. ONLY THE 1ST 3 DIGITS OF THE ZIP ARE -USED. - -PRESS ENTER TO BEGIN? - - - - LOADING DATA -INPUT DESIRED ZIP CODE? 12345 -THE UPS ZONE FOR ZIP CODE 12345 IS ZONE 2 -PRESS ENTER TO CONTINUE? - -INPUT DESIRED ZIP CODE? 23456 -THE UPS ZONE FOR ZIP CODE 23456 IS ZONE 4 -PRESS ENTER TO CONTINUE? - -INPUT DESIRED ZIP CODE? 34567 -NO ZONE FOR ZIP 34567 AVAILABLE -PRESS ENTER TO CONTINUE? - -INPUT DESIRED ZIP CODE? 45678 -THE UPS ZONE FOR ZIP CODE 45678 IS ZONE 4 -PRESS ENTER TO CONTINUE? - -INPUT DESIRED ZIP CODE? -1 diff --git a/bwbtest/T80A/UTILITY.BAS b/bwbtest/T80A/UTILITY.BAS deleted file mode 100644 index 3a308d9..0000000 --- a/bwbtest/T80A/UTILITY.BAS +++ /dev/null @@ -1,71 +0,0 @@ -1 REM UTILITY -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"PERSONAL UTILITY FUNCTION":PRINT -20 PRINT "UTILITY THEORY HAS TO DO WITH ONE'S PREFERENCE FOR VARIOUS -25 PRINT "DECISION ALTERNATIVES. SUPPOSE EVERY DECISION ONE CAN MAKE -30 PRINT "LEADS TO A KNOWN MONETARY PAYOFF. THEN THAT PERSON WILL -35 PRINT "CHOOSE THE DECISION WITH THE HIGHEST PAYOFF. HOWEVER, IF THERE -40 PRINT "IS SOME UNCERTAINTY IN THE RESULT OF A DECISION THE CORRECT -45 PRINT "DECISION IS NOT SO OBVIOUS. UTILITY THEORY PERMITS US TO -50 PRINT "ASSIGN A NUMBER TO EACH PAYOFF, ITS 'UTILITY'. HIGHER PAYOFFS -55 PRINT "LEAD TO HIGHER UTILITIES BUT A UTILITY OF 2 FOR $5000 DOES -60 PRINT "DOES NOT NECESSARILY MEAN A UTILITY OF 4 FOR $10000. ONCE -65 PRINT "UTILITIES ARE DETERMINED DECISIONS ARE MADE BASED UPON HIGHEST -70 PRINT "EXPECTED UTILITY. -75 PRINT :GOSUB 10100 -80 CLS -90 PRINT "UTILITIES ARE DETERMINED IN THE FOLLOWING WAY: THE POSSIBLE -95 PRINT "PAYOFFS ARE RANKED FROM HIGHEST TO LOWEST. THE HIGHEST PAYOFF -100 PRINT "IS ASSIGNED SOME ARBITRARY UTILITY, SAY 1. THE LOWEST PAYOFF -105 PRINT "IS ASSIGNED SOME LOWER ARBITRARY UTILITY, SAY 0. WE DETERMINE -110 PRINT "THE UTILITIES OF THE OTHER PAYOFFS BY SETTING UP A GAMBLE -115 PRINT "WE ARE GIVEN THE CHOICE OF HAVING THIS PAYOFF FOR SURE OR OF -120 PRINT "GETTING THE HIGHEST PAYOFF WITH PROBABILITY P AND THE LOWEST -125 PRINT "WITH PROBABILITY 1-P. WITH P BEING DETERMINED THE UTILITY OF -130 PRINT "THIS MIDDLE PAYOFF IS COMPUTED. AS THE PAYOFFS GO UP SO MUST P. -132 PRINT "WE LOOK FOR THE P SO THAT WE ARE INDIFFERENT BETWEEN THE SURE -134 PRINT "THING AND THE GAMBLE. UTILITY THEORY SAYS THERE IS SUCH A P. -135 PRINT :GOSUB 10100:CLS -138 PRINT "FOR EXAMPLE IF THE LOWEST PAYOFF WAS $0 AND THE HIGHEST WAS -140 PRINT "$100000 THEN FOR AN INTERMEDIATE PAYOFF OF $50000 WE WOULD ASK -145 PRINT "WOULD WE PREFER $50000 FOR SURE OR $100000 WITH PROBABILITY P -150 PRINT "AND $0 WITH PROBABILITY 1-P. KEEP ADJUSTING P UNTIL WE ARE -155 PRINT "INDIFFERENT TO THE SURE THING AND THE BET. THIS IS P. -160 PRINT -165 PRINT "DIFFERENT PEOPLE HAVE DIFFERENT UTILITY FUNCTIONS. THUS UNDER -170 PRINT "IDENTICAL CIRCUMSTANCES DIFFERENT PEOPLE MAY MAKE DIFFERENT -175 PRINT "DECISIONS AND BOTH STILL MAXIMIZE EXPECTED UTILITY. THE -180 PRINT "PROGRAM WILL ASSIGN UTILITIES TO DOLLAR AMOUNTS BETWEEN -185 PRINT "$0 AND $100000 WITH THE UTILITY OF $0 BEING SET TO 0 AND THAT -190 PRINT "OF $100000 BEING SET TO 10. -200 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -300 DIM A(20),P(20),U(20) -310 DATA 0,100,1000,3000,5000,10000,20000,30000,40000,50000,60000,70000,80000,90000,100000 -320 FOR I=1 TO 15:READ A(I):NEXT : REM AMOUNTS FOR COMPUTATION -330 P(1)=0:P(15)=1 -335 U(1)=0:U(15)=10 -340 CLS -350 FOR I=2 TO 14 -355 PRINT -360 PRINT "WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $";A(I);"FOR -370 PRINT "SURE OR $";A(15);"WITH PROBABILITY P AND"; A(1);"WITH PROBABILITY -380 PRINT "1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO";P(I-1) -390 PRINT :INPUT "ENTER THE PROBABILITY";P(I) -400 IF P(I)1 THEN PRINT :PRINT "PROBABILITY MUST BE BETWEEN";A(I-1);"AND";A(15):PRINT :GOTO 360 -410 NEXT I -430 REM COMPUTE UTILITIES -440 FOR I=2 TO 15:U(I)=P(I)*U(15)+(1-P(I))*U(1):NEXT -500 CLS:INPUT "IS PRINTED OUTPUT DESIRED(Y/N)";Z2$ -510 IF Z2$<>"Y" AND Z2$<>"N" THEN GOSUB 10000:GOTO 500 -520 F$(1)=" PAYOFF UTILITY " -530 F$(2)=" ###### ##.## " -540 CLS:PRINT F$(1):IF Z2$="Y" THEN LPRINT F$(1):LPRINT " " -550 FOR I=1 TO 15 -560 PRINT USING F$(2);A(I),U(I) -570 IF Z2$="Y" THEN LPRINT USING F$(2);A(I),U(I) -575 IF I=10 THEN PRINT :GOSUB 10100:PRINT F$(1) -580 NEXT I -590 END -10000 PRINT "INPUT ERROR!TRY AGAIN!":FOR JJ=1 TO 300:NEXT :RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/UTILITY.INP b/bwbtest/T80A/UTILITY.INP deleted file mode 100644 index d06ff9d..0000000 --- a/bwbtest/T80A/UTILITY.INP +++ /dev/null @@ -1,19 +0,0 @@ - - - -0.1 -0.2 -0.3 -0.4 -0.5 -0.6 -0.7 -0.8 -0.9 -1.0 - -1 -1 -1 -Y - diff --git a/bwbtest/T80A/UTILITY.run b/bwbtest/T80A/UTILITY.run deleted file mode 100644 index 4d5b2ba..0000000 --- a/bwbtest/T80A/UTILITY.run +++ /dev/null @@ -1,148 +0,0 @@ - PERSONAL UTILITY FUNCTION - -UTILITY THEORY HAS TO DO WITH ONE'S PREFERENCE FOR VARIOUS -DECISION ALTERNATIVES. SUPPOSE EVERY DECISION ONE CAN MAKE -LEADS TO A KNOWN MONETARY PAYOFF. THEN THAT PERSON WILL -CHOOSE THE DECISION WITH THE HIGHEST PAYOFF. HOWEVER, IF THERE -IS SOME UNCERTAINTY IN THE RESULT OF A DECISION THE CORRECT -DECISION IS NOT SO OBVIOUS. UTILITY THEORY PERMITS US TO -ASSIGN A NUMBER TO EACH PAYOFF, ITS 'UTILITY'. HIGHER PAYOFFS -LEAD TO HIGHER UTILITIES BUT A UTILITY OF 2 FOR $5000 DOES -DOES NOT NECESSARILY MEAN A UTILITY OF 4 FOR $10000. ONCE -UTILITIES ARE DETERMINED DECISIONS ARE MADE BASED UPON HIGHEST -EXPECTED UTILITY. - -PRESS ENTER TO CONTINUE? -UTILITIES ARE DETERMINED IN THE FOLLOWING WAY: THE POSSIBLE -PAYOFFS ARE RANKED FROM HIGHEST TO LOWEST. THE HIGHEST PAYOFF -IS ASSIGNED SOME ARBITRARY UTILITY, SAY 1. THE LOWEST PAYOFF -IS ASSIGNED SOME LOWER ARBITRARY UTILITY, SAY 0. WE DETERMINE -THE UTILITIES OF THE OTHER PAYOFFS BY SETTING UP A GAMBLE -WE ARE GIVEN THE CHOICE OF HAVING THIS PAYOFF FOR SURE OR OF -GETTING THE HIGHEST PAYOFF WITH PROBABILITY P AND THE LOWEST -WITH PROBABILITY 1-P. WITH P BEING DETERMINED THE UTILITY OF -THIS MIDDLE PAYOFF IS COMPUTED. AS THE PAYOFFS GO UP SO MUST P. -WE LOOK FOR THE P SO THAT WE ARE INDIFFERENT BETWEEN THE SURE -THING AND THE GAMBLE. UTILITY THEORY SAYS THERE IS SUCH A P. - -PRESS ENTER TO CONTINUE? -FOR EXAMPLE IF THE LOWEST PAYOFF WAS $0 AND THE HIGHEST WAS -$100000 THEN FOR AN INTERMEDIATE PAYOFF OF $50000 WE WOULD ASK -WOULD WE PREFER $50000 FOR SURE OR $100000 WITH PROBABILITY P -AND $0 WITH PROBABILITY 1-P. KEEP ADJUSTING P UNTIL WE ARE -INDIFFERENT TO THE SURE THING AND THE BET. THIS IS P. - -DIFFERENT PEOPLE HAVE DIFFERENT UTILITY FUNCTIONS. THUS UNDER -IDENTICAL CIRCUMSTANCES DIFFERENT PEOPLE MAY MAKE DIFFERENT -DECISIONS AND BOTH STILL MAXIMIZE EXPECTED UTILITY. THE -PROGRAM WILL ASSIGN UTILITIES TO DOLLAR AMOUNTS BETWEEN -$0 AND $100000 WITH THE UTILITY OF $0 BEING SET TO 0 AND THAT -OF $100000 BEING SET TO 10. - -PRESS ENTER TO BEGIN? - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 100 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO 0 - -ENTER THE PROBABILITY? 0.1 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 1000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO .1 - -ENTER THE PROBABILITY? 0.2 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 3000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO .2 - -ENTER THE PROBABILITY? 0.3 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 5000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO .3 - -ENTER THE PROBABILITY? 0.4 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 10000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO .4 - -ENTER THE PROBABILITY? 0.5 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 20000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO .5 - -ENTER THE PROBABILITY? 0.6 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 30000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO .6 - -ENTER THE PROBABILITY? 0.7 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 40000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO .7 - -ENTER THE PROBABILITY? 0.8 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 50000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO .8 - -ENTER THE PROBABILITY? 0.9 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 60000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO .9 - -ENTER THE PROBABILITY? 1.0 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 70000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO 1 - -ENTER THE PROBABILITY? - -PROBABILITY MUST BE BETWEEN 60000 AND 100000 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 70000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO 1 - -ENTER THE PROBABILITY? 1 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 80000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO 1 - -ENTER THE PROBABILITY? 1 - -WITH WHAT PROBAILITY(P) WOULD YOU BE INDIFFERENT TO $ 90000 FOR -SURE OR $ 100000 WITH PROBABILITY P AND 0 WITH PROBABILITY -1 - P. THIS PROBABILITY MUST BE AT LEAST EQUAL TO 1 - -ENTER THE PROBABILITY? 1 -IS PRINTED OUTPUT DESIRED(Y/N)? Y - PAYOFF UTILITY - 0 0.00 - 100 1.00 - 1000 2.00 - 3000 3.00 - 5000 4.00 - 10000 5.00 - 20000 6.00 - 30000 7.00 - 40000 8.00 - 50000 9.00 - -PRESS ENTER TO CONTINUE? - PAYOFF UTILITY - 60000 10.00 - 70000 10.00 - 80000 10.00 - 90000 10.00 - 100000 10.00 diff --git a/bwbtest/T80A/VALADINF.BAS b/bwbtest/T80A/VALADINF.BAS deleted file mode 100644 index 1903590..0000000 --- a/bwbtest/T80A/VALADINF.BAS +++ /dev/null @@ -1,37 +0,0 @@ -1 REM VALADINF -5 CLEAR 1000 -10 CLS:PRINT TAB(10);"VALUE OF ADDITIONAL SAMPLE INFORMATIOM":PRINT -20 PRINT"IN SITUATIONS WHERE SAMPLING IS DONE IT IS GENERALLY ASSUMED -25 PRINT"THAT LARGER SAMPLES PROVIDE MORE INFORMATION ABOUT THE TRUE -30 PRINT"SITUATION THAN DO SMALLER SAMPLES. THE ADDITIONAL INFORMATION -35 PRINT"WHICH THE LARGER SAMPLE SIZE BRINGS COULD BE COMPUTED IF -40 PRINT"WE COULD SOMEHOW MEASURE THE UNCERTAINTY IN THE INFORMATION -45 PRINT"BOTH BEFORE AND AFTER TAKING THE SAMPLE. SUCH A MEASURE -50 PRINT"OF UNCERTAINTY EXISTS AND IS SOMETIMES CALLED SHANNON -55 PRINT"INFORMATION. THIS PROGRAM GIVES BOUNDS ON THE UNCERTAINTY -60 PRINT"WHEN THE SAMPLING IS COMING FROM A NORMAL DISTRIBUTION WITH -65 PRINT"BOUNDED VARIANCE. -67 PRINT:GOSUB 10100:CLS -70 PRINT"NECESSARY INPUT INCLUDES AN UPPER BOUND ON THE VARIANCE -75 PRINT"OF THE DISTRIBUTION, THE NUMBER OF OBSERVATIONS IN THE -80 PRINT"INITIAL SAMPLE AND THE ADDITIONAL NUMBER OF OBSERVATIONS IN -85 PRINT"THE FINAL SAMPLE. -90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT"DO YOU HAVE BOUND FOR VARIANCE(V) OR STANDARD DEVIATION(S)";Z1$ -120 IF Z1$<>"S" AND Z1$<>"V" THEN GOSUB 10000:PRINT:GOTO 110 -130 IF Z1$="S" THEN INPUT"ENTER STANDARD DEVIATION UPPER BOUND";S:V=S[2 -140 IF Z1$="V" THEN INPUT"ENTER VARIANCE UPPER BOUND ";V:S=SQR(V) -150 PRINT -155 INPUT"INITIAL SAMPLE SIZE ";NI -160 INPUT"ADDITIONAL SAMPLE SIZE";NA -170 H(1)=LOG(S/SQR(NI))+2.94:H(2)=LOG(S/SQR(NA+NI))+2.94 -200 PRINT"INITIAL UNCERTAINTY WAS ";H(1) -210 PRINT"FINAL UNCERTAINTY WAS ";H(2) -220 PRINT"THIS REPRESENTS A CHANGE OF";H(1)-H(2);"UNCERTAINTY UNITS -230 PRINT"AND IS A CHANGE OF ABOUT"; (H(1)-H(2))/H(1)*100;"%" -240 PRINT:INPUT"PRESS ENTER FOR MORE";Z9$ -245 IF Z9$ = "-1" THEN END -250 GOTO 100 -10000 PRINT"INPUT ERROR! TRY AGAIN!":FOR JJ=1TO300:NEXT:RETURN -10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN diff --git a/bwbtest/T80A/VALADINF.INP b/bwbtest/T80A/VALADINF.INP deleted file mode 100644 index fbc48ab..0000000 --- a/bwbtest/T80A/VALADINF.INP +++ /dev/null @@ -1,7 +0,0 @@ - - -S -1.23 -3 -2 --1 diff --git a/bwbtest/T80A/VALADINF.run b/bwbtest/T80A/VALADINF.run deleted file mode 100644 index 27b2cb4..0000000 --- a/bwbtest/T80A/VALADINF.run +++ /dev/null @@ -1,31 +0,0 @@ - VALUE OF ADDITIONAL SAMPLE INFORMATIOM - -IN SITUATIONS WHERE SAMPLING IS DONE IT IS GENERALLY ASSUMED -THAT LARGER SAMPLES PROVIDE MORE INFORMATION ABOUT THE TRUE -SITUATION THAN DO SMALLER SAMPLES. THE ADDITIONAL INFORMATION -WHICH THE LARGER SAMPLE SIZE BRINGS COULD BE COMPUTED IF -WE COULD SOMEHOW MEASURE THE UNCERTAINTY IN THE INFORMATION -BOTH BEFORE AND AFTER TAKING THE SAMPLE. SUCH A MEASURE -OF UNCERTAINTY EXISTS AND IS SOMETIMES CALLED SHANNON -INFORMATION. THIS PROGRAM GIVES BOUNDS ON THE UNCERTAINTY -WHEN THE SAMPLING IS COMING FROM A NORMAL DISTRIBUTION WITH -BOUNDED VARIANCE. - -PRESS ENTER TO CONTINUE? -NECESSARY INPUT INCLUDES AN UPPER BOUND ON THE VARIANCE -OF THE DISTRIBUTION, THE NUMBER OF OBSERVATIONS IN THE -INITIAL SAMPLE AND THE ADDITIONAL NUMBER OF OBSERVATIONS IN -THE FINAL SAMPLE. - -PRESS ENTER TO BEGIN? -DO YOU HAVE BOUND FOR VARIANCE(V) OR STANDARD DEVIATION(S)? S -ENTER STANDARD DEVIATION UPPER BOUND? 1.23 - -INITIAL SAMPLE SIZE ? 3 -ADDITIONAL SAMPLE SIZE? 2 -INITIAL UNCERTAINTY WAS 2.59771 -FINAL UNCERTAINTY WAS 2.3423 -THIS REPRESENTS A CHANGE OF .255413 UNCERTAINTY UNITS -AND IS A CHANGE OF ABOUT 9.83224 % - -PRESS ENTER FOR MORE? -1 diff --git a/bwbtest/T80A/VALPRINF.BAS b/bwbtest/T80A/VALPRINF.BAS deleted file mode 100644 index 17f0484..0000000 --- a/bwbtest/T80A/VALPRINF.BAS +++ /dev/null @@ -1,73 +0,0 @@ -1 REM VALPRINF -5 CLEAR 1000 -10 CLS:PRINT TAB(5); "VALUE OF PERFECT INFORMATION":PRINT -20 PRINT "IN THE SCENARIO TO THIS PROGRAM THERE ARE SEVERAL -25 PRINT "POSSIBLE STATES OF NATURE, ONE OF WHICH IS THE TRUE STATE. -30 PRINT "WE DO NOT KNOW WHAT THE TRUE STATE OF NATURE(S OF N) IS BUT -35 PRINT "WE KNOW THE PROBABILITY OF OCCURRENCE OF EACH S OF N. -40 PRINT "IN ADDITION THERE ARE SEVERAL ALTERNATIVE ACTIONS WE MAY TAKE -45 PRINT "EACH OF WHICH HAS A CERTAIN EXPECTED VALUE(OR AVERAGE RETURN)." -50 PRINT "EXPECTATION THEORY SAYS TO CHOOSE THE ACTION WITH THE HIGHEST -55 PRINT "EXPECTED VALUE. IF WE KNEW WHAT THE TRUE STATE OF NATURE WAS -60 PRINT "THEN WE WOULD KNOW WHAT ACTION TO TAKE. THE EXPECTED VALUE OF -65 PRINT "PERFECT INFORMATION IS THE EXPECTED VALUE OF DECISIONS WITH -70 PRINT "KNOWLEDGE OF THE S OF N MINUS THE MAXIMUM EXPECTED VALUE OF -75 PRINT "ACTIONS WITHOUT THIS KNOWLEDGE." -77 PRINT :GOSUB 10100 -80 CLS:PRINT "IN THIS PROGRAM THERE ARE UP TO 25 S OF N'S AND 8 POSSIBLE -82 PRINT "ACTIONS. THE MAXIMUM EXPECTED VALUE OF THESE ACTIONS IS -84 PRINT "COMPUTED. THEN THE EXPECTED VALUE WITH PERFECT INFORMATION -86 PRINT "ABOUT THE S OF N IS COMPUTED. THEIR DIFFERENCE IS THE EVPI. -95 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 DIM A(25,8),P(25),M(25),E(8) -105 P=0 -110 CLS -120 INPUT "ENTER NUMBER OF POSSIBLE STATES OF NATURE";N -125 IF N<2 OR N>25 OR N<>INT(N) THEN GOSUB 10000:GOTO 120 -127 PRINT -130 FOR I=1 TO N -135 PRINT "ENTER PROBABILITY OF S OF N";I;:INPUT P(I) -140 P=P+P(I) -150 NEXT I -160 IF P=1 THEN PRINT :GOTO 200 -170 PRINT :PRINT "PROBABILITIES DO NOT SUM TO 1." -175 INPUT "ENTER 1 TO STANDARDIZE,0 TO BEGIN OVER";Z9 -180 IF Z9<>0 AND Z9<>1 THEN GOSUB 10000:GOTO 170 -185 IF Z9=0 THEN GOTO 105 -190 FOR I=1 TO N:P(I)=P(I)/P:NEXT :P=1 -200 PRINT :INPUT "ENTER NUMBER OF POSSIBLE DECISIONS(<=8)";M -205 IF M<2 OR M>8 OR M<>INT(M) THEN GOSUB 10000:GOTO 200 -220 FOR J=1 TO M -225 PRINT -230 PRINT "DECISION ";J -240 FOR I=1 TO N -250 PRINT TAB(5);"PAYOFF WHEN S OF N IS";I;:INPUT A(I,J) -260 NEXT I -270 NEXT J -300 REM COMPUTATION -310 CLS:PRINT @ 340,"COMPUTING" -320 FOR I=1 TO N -330 M(I)=A(I,1) -340 FOR J=2 TO M -350 IF A(I,J)>M(I) THEN M(I)=A(I,J) -360 NEXT J -370 NEXT I -400 FOR J=1 TO M -405 EM=-10E6 -410 FOR I=1 TO N:E(J)=E(J)+A(I,J)*P(I):NEXT I:REM EXP. VAL. -415 IF E(J)>EM THEN EM=E(J) -420 NEXT J -430 FOR I=1 TO N:E=E+M(I)*P(I):NEXT I:REM EVWPI -495 REM PRINT -500 CLS -510 F$(1)=" DECISION EXPECTED VALUE" -520 F$(2)=" ## #########.## -525 PRINT F$(1) -530 FOR J=1 TO M:PRINT USING F$(2);J,E(J):NEXT -570 PRINT :PRINT "MAXIMUM EXPECTED VALUE = ";EM -580 PRINT :PRINT "EVWPI = ";E -590 PRINT "EXPECTED VALUE OF PERFECT INFORMATION = ";E - EM -600 PRINT :END -10000 PRINT "INPUT ERROR!TRY AGAIN!":FOR JJ=1 TO 300:NEXT :RETURN -10100 INPUT "PRESS ENTER TO CONTINUE";Z9$:RETURN - diff --git a/bwbtest/T80A/VALPRINF.INP b/bwbtest/T80A/VALPRINF.INP deleted file mode 100644 index 1b24c1c..0000000 --- a/bwbtest/T80A/VALPRINF.INP +++ /dev/null @@ -1,11 +0,0 @@ - - -2 -111 -222 -1 -2 -123 -456 -789 -395 diff --git a/bwbtest/T80A/VALPRINF.run b/bwbtest/T80A/VALPRINF.run deleted file mode 100644 index 351ac3f..0000000 --- a/bwbtest/T80A/VALPRINF.run +++ /dev/null @@ -1,49 +0,0 @@ - VALUE OF PERFECT INFORMATION - -IN THE SCENARIO TO THIS PROGRAM THERE ARE SEVERAL -POSSIBLE STATES OF NATURE, ONE OF WHICH IS THE TRUE STATE. -WE DO NOT KNOW WHAT THE TRUE STATE OF NATURE(S OF N) IS BUT -WE KNOW THE PROBABILITY OF OCCURRENCE OF EACH S OF N. -IN ADDITION THERE ARE SEVERAL ALTERNATIVE ACTIONS WE MAY TAKE -EACH OF WHICH HAS A CERTAIN EXPECTED VALUE(OR AVERAGE RETURN). -EXPECTATION THEORY SAYS TO CHOOSE THE ACTION WITH THE HIGHEST -EXPECTED VALUE. IF WE KNEW WHAT THE TRUE STATE OF NATURE WAS -THEN WE WOULD KNOW WHAT ACTION TO TAKE. THE EXPECTED VALUE OF -PERFECT INFORMATION IS THE EXPECTED VALUE OF DECISIONS WITH -KNOWLEDGE OF THE S OF N MINUS THE MAXIMUM EXPECTED VALUE OF -ACTIONS WITHOUT THIS KNOWLEDGE. - -PRESS ENTER TO CONTINUE? -IN THIS PROGRAM THERE ARE UP TO 25 S OF N'S AND 8 POSSIBLE -ACTIONS. THE MAXIMUM EXPECTED VALUE OF THESE ACTIONS IS -COMPUTED. THEN THE EXPECTED VALUE WITH PERFECT INFORMATION -ABOUT THE S OF N IS COMPUTED. THEIR DIFFERENCE IS THE EVPI. - -PRESS ENTER TO BEGIN? -ENTER NUMBER OF POSSIBLE STATES OF NATURE? 2 - -ENTER PROBABILITY OF S OF N 1 ? 111 -ENTER PROBABILITY OF S OF N 2 ? 222 - -PROBABILITIES DO NOT SUM TO 1. -ENTER 1 TO STANDARDIZE,0 TO BEGIN OVER? 1 - -ENTER NUMBER OF POSSIBLE DECISIONS(<=8)? 2 - -DECISION 1 - PAYOFF WHEN S OF N IS 1 ? 123 - PAYOFF WHEN S OF N IS 2 ? 456 - -DECISION 2 - PAYOFF WHEN S OF N IS 1 ? 789 - PAYOFF WHEN S OF N IS 2 ? 395 -COMPUTING - DECISION EXPECTED VALUE - 1 345.00 - 2 526.33 - -MAXIMUM EXPECTED VALUE = 526.333 - -EVWPI = 567 -EXPECTED VALUE OF PERFECT INFORMATION = 40.6667 - diff --git a/bwbtest/T80A/WACC.BAS b/bwbtest/T80A/WACC.BAS deleted file mode 100644 index 4cc2400..0000000 --- a/bwbtest/T80A/WACC.BAS +++ /dev/null @@ -1,43 +0,0 @@ -1 REM WACC -5 CLEAR 1000 -10 CLS -20 PRINT TAB(29); "WACC":PRINT -30 PRINT "A FIRM MAY BE FINANCED IN SEVERAL DIFFERENT WAYS. AMONG THESE -35 PRINT "ARE COMMON STOCKS, PREFERRED STOCKS, DEBT, AND RETAINED -40 PRINT "EARNINGS. GIVEN THE AMOUNT OF EACH OF THE ABOVE AND ITS -45 PRINT "COST IN PER CENT THIS PROGRAM WILL FIND OUT WHAT PRICE THE -50 PRINT "FIRM IS PAYING FOR ITS MONEY ON AVERAGE. THIS AVERAGE IS -55 PRINT "CALLED THE WEIGHTED AVERAGE COST OF CAPITAL (WACC). -90 PRINT :INPUT "PRESS ENTER TO BEGIN";Z9$ -100 CLS -110 INPUT "INPUT CURRENT AMOUNT OF DEBT ";DEBT -120 INPUT "INPUT CAPITAL DEVOTED TO PREFERRED STOCK";PX -130 INPUT "INPUT COMMON STOCK CAPITAL ";C0 -140 INPUT "INPUT RETAINED EARNINGS ";RETAINED -150 PRINT -160 PRINT "THE FOLLOWING INPUTS ARE AFTER TAX COST":PRINT -170 INPUT "INPUT COST OF DEBT (%) ";DC:DC=DC/100 -180 INPUT "INPUT COST OF PREFERRED STOCK (%) ";PC:PC=PC/100 -190 INPUT "INPUT COST OF COMMON STOCK (%) ";CC:CC=CC/100 -200 INPUT "INPUT COST OF RETAINED EARNINGS (%) ";CR:CR=CR/100 -220 T0=DE+PX+C0+RE -225 REM PERCENTAGES OF TOTAL FOR DIFFERENT SOURCES -230 A(1)=100*DE/T0:A(2)=100*PX/T0 -240 A(3)=100*C0/T0:A(4)=100*RE/T0 -245 REM WEIGHTED COSTS BELOW -250 B(1)=A(1)*DC:B(2)=A(2)*PC:B(3)=A(3)*CC:B(4)=A(4)*CR -300 F$(1)="METHOD OF FINANCING PROPORTION COST WEIGHTED COST" -305 F$(4)=" (%) (%) (%)" -310 F$(2)="% % ###.# ###.# ###.##" -315 F$(3)="WEIGHTED AVERAGE COST OF CAPITAL ###.##" -400 CLS:PRINT F$(1):PRINT F$(4):PRINT -410 PRINT USING F$(2);"DEBT",A(1),100*DC,A(1)*DC -420 PRINT USING F$(2);"PREFERRED STOCK",A(2),100*PC,A(2)*PC -430 PRINT USING F$(2);"COMMON STOCK",A(3),100*CC,A(3)*CC -440 PRINT USING F$(2);"RETAINED EARNINGS",A(4),100*CR,A(4)*CR -450 WACC= A(1)*DC+A(2)*PC+A(3)*CC+A(4)*CR -460 PRINT USING F$(3);WACC -500 PRINT :INPUT "PRESS ENTER FOR MORE COMPUTATION";Z9$ -505 IF Z9$ = "-1" THEN END -510 GOTO 100 - diff --git a/bwbtest/T80A/WACC.INP b/bwbtest/T80A/WACC.INP deleted file mode 100644 index a427383..0000000 --- a/bwbtest/T80A/WACC.INP +++ /dev/null @@ -1,10 +0,0 @@ - -123456 -987654 -583234 -9283432 -5 -7 -1 -2 --1 diff --git a/bwbtest/T80A/WACC.run b/bwbtest/T80A/WACC.run deleted file mode 100644 index 268985f..0000000 --- a/bwbtest/T80A/WACC.run +++ /dev/null @@ -1,31 +0,0 @@ - WACC - -A FIRM MAY BE FINANCED IN SEVERAL DIFFERENT WAYS. AMONG THESE -ARE COMMON STOCKS, PREFERRED STOCKS, DEBT, AND RETAINED -EARNINGS. GIVEN THE AMOUNT OF EACH OF THE ABOVE AND ITS -COST IN PER CENT THIS PROGRAM WILL FIND OUT WHAT PRICE THE -FIRM IS PAYING FOR ITS MONEY ON AVERAGE. THIS AVERAGE IS -CALLED THE WEIGHTED AVERAGE COST OF CAPITAL (WACC). - -PRESS ENTER TO BEGIN? -INPUT CURRENT AMOUNT OF DEBT ? 123456 -INPUT CAPITAL DEVOTED TO PREFERRED STOCK? 987654 -INPUT COMMON STOCK CAPITAL ? 583234 -INPUT RETAINED EARNINGS ? 9283432 - -THE FOLLOWING INPUTS ARE AFTER TAX COST - -INPUT COST OF DEBT (%) ? 5 -INPUT COST OF PREFERRED STOCK (%) ? 7 -INPUT COST OF COMMON STOCK (%) ? 1 -INPUT COST OF RETAINED EARNINGS (%) ? 2 -METHOD OF FINANCING PROPORTION COST WEIGHTED COST - (%) (%) (%) - -DEBT 0.0 5.0 0.00 -PREFERRED STOCK 62.9 7.0 4.40 -COMMON STOCK 37.1 1.0 0.37 -RETAINED EARNINGS 0.0 2.0 0.00 -WEIGHTED AVERAGE COST OF CAPITAL 4.77 - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/WARVAL.BAS b/bwbtest/T80A/WARVAL.BAS deleted file mode 100644 index d3dc240..0000000 --- a/bwbtest/T80A/WARVAL.BAS +++ /dev/null @@ -1,36 +0,0 @@ -10 CLS -20 PRINT" VALUE OF A WARRENT" -30 PRINT -40 PRINT"THIS PROGRAM WILL ALLOW THE USER TO COMPUTE THE THEORETICAL -50 PRINT"VALUE OF A WARRANT AND THE VALUES OF BOTH SHORT TERM AND -60 PRINT"LONG TERM WARRANTS. -70 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9 -100 CLS -110 INPUT"HOW MANY SHARES MAY BE PURCHASED WITH ONE WARRANT";N -120 INPUT"WHAT IS THE EXERCISE PRICE PER SHARE OF STOCK ";EX -130 INPUT"WHAT IS THE MARKET PRICE OF ONE SHARE OF STOCK ";PS -140 PRINT -210 INPUT"IS WARRANT LIFE AT LEAST 5 YEARS(Y/N)";Z9$ -220 IF Z9$="N" GOTO 300 -230 IF Z9$="Y" GOTO 400 -240 PRINT"INPUT ERROR! TRY AGAIN!":PRINT:GOTO 210 -300 REM SHORT TERM WARRANT VALUATION -305 PRINT -310 INPUT"NUMBER OF YEARS TO EXPIRATION";NY -315 INPUT"EXPECTED ANNUAL GROWTH RATE OF STOCK PRICE IN %";AG -320 INPUT"VOLATILITY OR ANNUAL STANDARD DEVIATION OF STOCK PR. IN %";SD -325 AGR=(1+AG/100)[NY:ASD=SD*SQR(NY)/100 -330 C=1.65*(PS/EX)*AGR*(1+ASD) -340 IF C < PS/EX THEN V=EX*(PS/EX - 1):HR=1 GOTO 360 -350 V=EX*(C-1)*(PS/(EX*C))[(C/(C-1)):HR=(PS/(EX*C))[(1/(C-1)) -360 GOTO 420 -400 REM LONG TERM WARRANT VALUATION -405 HR=0 -410 V=(SQR(EX[2 + PS[2)-EX)*N -420 CLS -430 PRINT"THE VALUE OF THE WARRANT EQUALS ";V -435 IF HR<>0 THEN PRINT"THE HEDGE RATIO EQUALS ";HR -440 PRINT"THE THEORETICAL VALUE OF THE WARRANT = ";N*(PS-EX) -450 PRINT:INPUT"PRESS ENTER FOR MORE COMPUTATION";Z9 -455 IF Z9 = -1 THEN END -460 GOTO 100 diff --git a/bwbtest/T80A/WARVAL.INP b/bwbtest/T80A/WARVAL.INP deleted file mode 100644 index 0adb7b2..0000000 --- a/bwbtest/T80A/WARVAL.INP +++ /dev/null @@ -1,6 +0,0 @@ - -12 -334 -4456 -Y --1 diff --git a/bwbtest/T80A/WARVAL.run b/bwbtest/T80A/WARVAL.run deleted file mode 100644 index be2d046..0000000 --- a/bwbtest/T80A/WARVAL.run +++ /dev/null @@ -1,16 +0,0 @@ - VALUE OF A WARRENT - -THIS PROGRAM WILL ALLOW THE USER TO COMPUTE THE THEORETICAL -VALUE OF A WARRANT AND THE VALUES OF BOTH SHORT TERM AND -LONG TERM WARRANTS. - -PRESS ENTER TO BEGIN? -HOW MANY SHARES MAY BE PURCHASED WITH ONE WARRANT? 12 -WHAT IS THE EXERCISE PRICE PER SHARE OF STOCK ? 334 -WHAT IS THE MARKET PRICE OF ONE SHARE OF STOCK ? 4456 - -IS WARRANT LIFE AT LEAST 5 YEARS(Y/N)? Y -THE VALUE OF THE WARRANT EQUALS 49614. -THE THEORETICAL VALUE OF THE WARRANT = 49464 - -PRESS ENTER FOR MORE COMPUTATION? -1 diff --git a/bwbtest/T80A/mod4basc.bas b/bwbtest/T80A/mod4basc.bas deleted file mode 100644 index 63271f0..0000000 --- a/bwbtest/T80A/mod4basc.bas +++ /dev/null @@ -1,102 +0,0 @@ -2 ' Model 4 BASIC syntax converter -3 ' This program will convert other BASIC -4 ' programs to be syntactically correct -5 ' for the Model 4 BASIC. -6 ' -7 ' Written by: Lee Becker -8 ' Phone no. : 517-349-7604 -9 ' -10 CLS:CLEAR 20000:DIM A$(1000) ' ON ERROR GOTO 900 -20 PRINT @ 500,"What is the file's name to convert?" -21 PRINT @ 590,; -22 LINE INPUT C$ -30 OPEN "I",1,C$ -40 KOUNT=1 -50 IF EOF(1) THEN 80 -60 LINE INPUT #1,L$:A$(KOUNT)=L$ -70 KOUNT=KOUNT+1:GOTO 50 -80 CLOSE 1 -90 ' -100 ' -110 CLS -120 PRINT @ 420,"There are";KOUNT;"total lines in the file.":PRINT TAB(20);"It will take approximately";:PRINT USING "##.#";KOUNT*3.1/60;:PRINT" minutes.":PRINT @ 670,"STARTING NOW" -130 FOR CNT=1 TO KOUNT:Y=1:Z=1:W=1 -135 V=INSTR(1,A$(CNT),"DATA"):IF V>0 AND V<8 THEN A$(CNT)=MID$(A$(CNT),1,V+3)+" "+MID$(A$(CNT),V+4):GOTO 300 -140 Z=INSTR(Z,A$(CNT),"'"):IF Z>0 AND Z<8 THEN 300 -150 IF Z=0 THEN Z=500 ELSE T=INSTR(Z,A$(CNT),CHR$(34)):IF T<>0 THEN Z=T:GOTO 140 -160 W=INSTR(W,A$(CNT),"REM"):IF W>0 AND W<8 THEN 300 -170 IF W=0 THEN W=500 ELSE T=INSTR(W,A$(CNT),CHR$(34)):IF T<>0 THEN W=T:GOTO 160 -180 FOR COT=1 TO 47:Q=1:READ B$ -190 IF Q<>0 THEN Q=INSTR(Q,A$(CNT),CHR$(34)) -200 X=INSTR(Y,A$(CNT),B$) -210 IF X>Z OR Z>W THEN 290 -220 IF Q<>0 AND X>Q THEN 540 -230 IF X<>0 THEN IF B$<>"THEN" AND B$<>"ELSE" AND B$<>"TO" AND B$<>"OR" AND B$<>"AND" AND B$<>"STEP" THEN 250 -240 IF X<>0 THEN E$=MID$(A$(CNT),X-2,2):F$=MID$(A$(CNT),X-3,3):IF E$<>":F" AND E$<>" F" AND E$<>" R" AND E$<>":R" AND E$<>"GO" AND F$<>"RES" AND F$<>"ERR" AND MID$(A$(CNT),X-4,4)<>"REST" THEN GOSUB 640:GOTO 190 -250 IF X=0 THEN 290 -255 IF B$="AND" OR B$="OR" OR B$="TO" OR B$="STEP" THEN Y=X+LEN(B$):GOTO 200 -260 IF MID$(A$(CNT),X-1,1)=" " OR MID$(A$(CNT),X-1,1)=":" THEN GOSUB 610:GOTO 190 -270 IF MID$(A$(CNT),X-1,1)="L" AND B$="PRINT" THEN Y=X+LEN(B$):GOTO 200 -280 GOSUB 640:GOTO 190 -290 Y=1:NEXT COT -300 PRINT @ 827,"Line";CNT;"is now done.":RESTORE:NEXT CNT -310 ' -320 ' -330 CLS:PRINT @ 418,"I am now changing all IF THEN statements":PRINT @ 670,"STARTING NOW" -340 FOR CNT=1 TO KOUNT:X=1:F=1 -350 X=INSTR(X,A$(CNT),"IF"):IF X=0 THEN 430 -355 IF F<>0 THEN 670 -360 Y=INSTR(X,A$(CNT),"THEN"):IF Y=0 THEN 390 -370 Z=INSTR(X+2,A$(CNT),"IF"):IF YX THEN W=V -410 NEXT S:IF W=999 THEN 430 -420 A$(CNT)=MID$(A$(CNT),1,W-1)+"THEN "+MID$(A$(CNT),W):X=X+2:GOTO 350 -430 PRINT @ 824,"Line";CNT;"is finished now.":NEXT CNT -440 CLS:E=1:FOR X=1 TO KOUNT STEP 10:CLS:FOR W=1 TO 10:PRINT A$(E):E=E+1:NEXT W:PRINT:INPUT"Hit ENTER for rest of list";U:PRINT:NEXT X -450 ' -460 ' -470 CLS:PRINT @ 320, "Old filename=";C$:PRINT @ 410,"Input file's name and drive to save converted file under":PRINT @ 507,;:LINE INPUT C$ -480 OPEN "O",1,C$ -490 FOR X=1 TO KOUNT:PRINT# 1,A$(X):NEXT X -500 CLOSE 1 -510 END -520 ' -530 ' -540 Q=INSTR(Q+1,A$(CNT),CHR$(34)):IF Q=0 THEN GOTO 290 -550 IF XQ THEN 540 -580 GOTO 230 -590 ' -600 ' -610 A$(CNT)=MID$(A$(CNT),1,X-1+LEN(B$))+" "+MID$(A$(CNT),X+LEN(B$)):Y=X+LEN(B$):RETURN -620 ' -630 ' -640 A$(CNT)=MID$(A$(CNT),1,X-1)+" "+MID$(A$(CNT),X,LEN(B$))+" "+MID$(A$(CNT),X+LEN(B$)):Y=X+LEN(B$)+1:RETURN -650 ' -660 ' -670 F=INSTR(F,A$(CNT),CHR$(34)):IF F>X OR F=0 THEN 360 -680 G=INSTR(F+1,A$(CNT),CHR$(34)):IF G=0 OR G=LEN(A$(CNT)) THEN 430 -690 IF G ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- - -testcase ALFASORT -testcase AMORTTAB -testcase ANAL2VEC -testcase ANGLMET -testcase AREAPOLY -testcase BINODIST -testcase CHECWRIT -testcase CHI2DIST -testcase CHI2TEST -testcase COMMPAP -testcase CORDCONV -testcase CORDPLOT -testcase CURVINT -testcase DAY2DAY -testcase DAYWEEK -testcase DEGRAD -testcase DEPAMT -testcase DEPRATE -testcase DEPRSKED -testcase DERIV -testcase EARNINT -testcase EFFINT -testcase ENTEPRIS -testcase EXPREGR -testcase FDIST -testcase FEDTAX -testcase FUTVALDE -testcase FUTVALIN -testcase GCD -testcase GEOMEAN -testcase GEOREGR -testcase GROWRATE -testcase INITINV -testcase INTGGAUS -testcase INTGSIMP -testcase INTGTRAP -testcase LABELS -testcase LASTPAY -testcase LINCORCO -testcase LINEPROG -testcase LININT -testcase LINREGR -testcase LOANBAL -testcase LOANPAY -testcase LOANRATE -testcase LOANTERM -testcase MANNWHIT -testcase MAPCHECK -testcase MATADD -testcase MATINV -testcase MATMULT -testcase MININV -testcase MLINREGR -testcase NOMINT -testcase NORDREGR -testcase NORMDIST -testcase OPS2VEC -testcase PARTSTRI -testcase PERMCOMB -testcase PLOTFUNC -testcase PLOTPOL -testcase POISDIST -testcase PRIFACT -testcase PRINLOAN -testcase QUADROOT -testcase RADDEG -testcase RECICOST -testcase REGDEP -testcase REGWDRAW -testcase ROOTNEWT -testcase ROOTPOLY -testcase SALVAGE -testcase SHELSORT -testcase SHOPPING -testcase SIMLEQNS -testcase STDDEV -testcase SYSREL -testcase TDIST -testcase TDISTEST -testcase TRIGPOLY -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/T80B/01test.sh b/bwbtest/T80B/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/T80B/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/T80B/02ok.sh b/bwbtest/T80B/02ok.sh deleted file mode 100644 index a3a9a58..0000000 --- a/bwbtest/T80B/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/SCBP -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/T80B/99test.sh b/bwbtest/T80B/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/T80B/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/T80B/ALFASORT.BAS b/bwbtest/T80B/ALFASORT.BAS deleted file mode 100644 index 6644f79..0000000 --- a/bwbtest/T80B/ALFASORT.BAS +++ /dev/null @@ -1,34 +0,0 @@ -5 CLEAR 1200 -10 PRINT "ALPHABETIZE" -20 PRINT -30 PRINT "(TO END PROGRAM ENTER 0)" -40 PRINT "NUMBER OF ITEMS"; -50 INPUT N -59 REM - END PROGRAM? -60 IF N=0 THEN 270 -69 REM - LIMIT ARRAY TO MAXIMUM NUMBER OF ITEMS TO BE ENTERED IN ONE RUN -70 DIM A$(25) -80 FOR I=1 TO N -90 PRINT "ITEM";I; -100 INPUT A$(I) -110 NEXT I -119 REM - LOOP TO ALPHABETIZE DATA -120 FOR I=1 TO N -130 FOR J=1 TO N-I -138 REM - THE REPLACEMENT TECHNIQUE IN LINES 140 TO 180 CAUSES -139 REM - LOWER VALUES TO FLOAT OR BUBBLE TO THE TOP -140 A$=A$(J) -150 B$=A$(J+1) -160 IF A$N*Y THEN 520 -480 R=R+B0 -490 A=A+B0 -500 A1=A1+B0 -510 B0=0 -519 REM - SUM INTEREST PAID TO DATE -520 I2=I2+I1 -529 REM - SUM INTEREST PAID THIS YEAR -530 I3=I3+I1 -539 REM - SUM AMOUNT AMORTIZED THIS YEAR -540 A2=A2+A -549 REM - STARTED PRINTING? IF YES, PRINT COMPUTED VALUES IN TABLE -550 IF J0N*Y THEN 600 -590 PRINT " LAST PAYMENT = $";(INT(R*100+.5))/100 -599 REM - STARTED PRINTING? IF YES, PRINT VEARLY TOTALS -600 IF J0Y THEN 720 -649 REM - REINITIALIZE YEARLY VARIABLES -670 NEXT J0 -679 REM - NEED TO PRINT A PARTIAL YEAR? -680 IF Y=J0 THEN 720 -689 REM - ADJUST VARIABLES TO PRINT A PARTIAL YEAR -690 N1=((Y-INT(Y))*12)/12*N -700 J1=J1+1 -710 GOTO 280 -720 PRINT -729 REM - RESTART OR END PROGRAM? -730 PRINT "CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)"; -740 INPUT Z -750 IF Z=1 THEN 20 -760 END diff --git a/bwbtest/T80B/AMORTTAB.INP b/bwbtest/T80B/AMORTTAB.INP deleted file mode 100644 index 0076104..0000000 --- a/bwbtest/T80B/AMORTTAB.INP +++ /dev/null @@ -1,7 +0,0 @@ -1234 -30 -250000 -3 -12 -1 -0 diff --git a/bwbtest/T80B/AMORTTAB.run b/bwbtest/T80B/AMORTTAB.run deleted file mode 100644 index 22a2fc3..0000000 --- a/bwbtest/T80B/AMORTTAB.run +++ /dev/null @@ -1,682 +0,0 @@ -MORTGAGE AMORTIZATION TABLE - -REGULAR PAYMENT? 1234 -TERM IN YEARS? 30 -PRINCIPAL? 250000 -ANNUAL INTEREST RATE? 3 -NUMBER OF PAYMENTS PER YEAR? 12 -START PRINTING WITH WHAT YEAR? 1 - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $ 1234 - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - 1 625.00 609.00 249391.00 625.00 - 2 623.48 610.52 248780.48 1248.48 - 3 621.95 612.05 248168.43 1870.43 - 4 620.42 613.58 247554.85 2490.85 - 5 618.89 615.11 246939.74 3109.74 - 6 617.35 616.65 246323.09 3727.09 - 7 615.81 618.19 245704.90 4342.90 - 8 614.26 619.74 245085.16 4957.16 - 9 612.71 621.29 244463.87 5569.87 -10 611.16 622.84 243841.03 6181.03 -11 609.60 624.40 243216.63 6790.63 -12 608.04 625.96 242590.67 7398.67 - -YR. 1 7398.67 7409.33 - - 1 606.48 627.52 241963.15 8005.15 - 2 604.91 629.09 241334.06 8610.06 - 3 603.34 630.66 240703.40 9213.40 - 4 601.76 632.24 240071.16 9815.16 - 5 600.18 633.82 239437.34 10415.34 - 6 598.59 635.41 238801.93 11013.93 - 7 597.00 637.00 238164.93 11610.93 - 8 595.41 638.59 237526.34 12206.34 - 9 593.82 640.18 236886.16 12800.16 -10 592.22 641.78 236244.38 13392.38 -11 590.61 643.39 235600.99 13982.99 -12 589.00 645.00 234955.99 14571.99 - -YR. 2 7173.32 7634.68 - - 1 587.39 646.61 234309.38 15159.38 - 2 585.77 648.23 233661.15 15745.15 - 3 584.15 649.85 233011.30 16329.30 - 4 582.53 651.47 232359.83 16911.83 - 5 580.90 653.10 231706.73 17492.73 - 6 579.27 654.73 231052.00 18072.00 - 7 577.63 656.37 230395.63 18649.63 - 8 575.99 658.01 229737.62 19225.62 - 9 574.34 659.66 229077.96 19799.96 -10 572.69 661.31 228416.65 20372.65 -11 571.04 662.96 227753.69 20943.69 -12 569.38 664.62 227089.07 21513.07 - -YR. 3 6941.08 7866.92 - - - - - - - - - - - - - - - - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $ 1234 - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - 1 567.72 666.28 226422.79 22080.79 - 2 566.06 667.94 225754.85 22646.85 - 3 564.39 669.61 225085.24 23211.24 - 4 562.71 671.29 224413.95 23773.95 - 5 561.03 672.97 223740.98 24334.98 - 6 559.35 674.65 223066.33 24894.33 - 7 557.67 676.33 222390.00 25452.00 - 8 555.98 678.02 221711.98 26007.98 - 9 554.28 679.72 221032.26 26562.26 -10 552.58 681.42 220350.84 27114.84 -11 550.88 683.12 219667.72 27665.72 -12 549.17 684.83 218982.89 28214.89 - -YR. 4 6701.82 8106.18 - - 1 547.46 686.54 218296.35 28762.35 - 2 545.74 688.26 217608.09 29308.09 - 3 544.02 689.98 216918.11 29852.11 - 4 542.30 691.70 216226.41 30394.41 - 5 540.57 693.43 215532.98 30934.98 - 6 538.83 695.17 214837.81 31473.81 - 7 537.09 696.91 214140.90 32010.90 - 8 535.35 698.65 213442.25 32546.25 - 9 533.61 700.39 212741.86 33079.86 -10 531.85 702.15 212039.71 33611.71 -11 530.10 703.90 211335.81 34141.81 -12 528.34 705.66 210630.15 34670.15 - -YR. 5 6455.26 8352.74 - - 1 526.58 707.42 209922.73 35196.73 - 2 524.81 709.19 209213.54 35721.54 - 3 523.03 710.97 208502.57 36244.57 - 4 521.26 712.74 207789.83 36765.83 - 5 519.47 714.53 207075.30 37285.30 - 6 517.69 716.31 206358.99 37802.99 - 7 515.90 718.10 205640.89 38318.89 - 8 514.10 719.90 204920.99 38832.99 - 9 512.30 721.70 204199.29 39345.29 -10 510.50 723.50 203475.79 39855.79 -11 508.69 725.31 202750.48 40364.48 -12 506.88 727.12 202023.36 40871.36 - -YR. 6 6201.21 8606.79 - - - - - - - - - - - - - - - - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $ 1234 - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - 1 505.06 728.94 201294.42 41376.42 - 2 503.24 730.76 200563.66 41879.66 - 3 501.41 732.59 199831.07 42381.07 - 4 499.58 734.42 199096.65 42880.65 - 5 497.74 736.26 198360.39 43378.39 - 6 495.90 738.10 197622.29 43874.29 - 7 494.06 739.94 196882.35 44368.35 - 8 492.21 741.79 196140.56 44860.56 - 9 490.35 743.65 195396.91 45350.91 -10 488.49 745.51 194651.40 45839.40 -11 486.63 747.37 193904.03 46326.03 -12 484.76 749.24 193154.79 46810.79 - -YR. 7 5939.43 8868.57 - - 1 482.89 751.11 192403.68 47293.68 - 2 481.01 752.99 191650.69 47774.69 - 3 479.13 754.87 190895.82 48253.82 - 4 477.24 756.76 190139.06 48731.06 - 5 475.35 758.65 189380.41 49206.41 - 6 473.45 760.55 188619.86 49679.86 - 7 471.55 762.45 187857.41 50151.41 - 8 469.64 764.36 187093.05 50621.05 - 9 467.73 766.27 186326.78 51088.78 -10 465.82 768.18 185558.60 51554.60 -11 463.90 770.10 184788.50 52018.50 -12 461.97 772.03 184016.47 52480.47 - -YR. 8 5669.68 9138.32 - - 1 460.04 773.96 183242.51 52940.51 - 2 458.11 775.89 182466.62 53398.62 - 3 456.17 777.83 181688.79 53854.79 - 4 454.22 779.78 180909.01 54309.01 - 5 452.27 781.73 180127.28 54761.28 - 6 450.32 783.68 179343.60 55211.60 - 7 448.36 785.64 178557.96 55659.96 - 8 446.39 787.61 177770.35 56106.35 - 9 444.43 789.57 176980.78 56550.78 -10 442.45 791.55 176189.23 56993.23 -11 440.47 793.53 175395.70 57433.70 -12 438.49 795.51 174600.19 57872.19 - -YR. 9 5391.72 9416.28 - - - - - - - - - - - - - - - - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $ 1234 - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - 1 436.50 797.50 173802.69 58308.69 - 2 434.51 799.49 173003.20 58743.20 - 3 432.51 801.49 172201.71 59175.71 - 4 430.50 803.50 171398.21 59606.21 - 5 428.50 805.50 170592.71 60034.71 - 6 426.48 807.52 169785.19 60461.19 - 7 424.46 809.54 168975.65 60885.65 - 8 422.44 811.56 168164.09 61308.09 - 9 420.41 813.59 167350.50 61728.50 -10 418.38 815.62 166534.88 62146.88 -11 416.34 817.66 165717.22 62563.22 -12 414.29 819.71 164897.51 62977.51 - -YR. 10 5105.32 9702.68 - - 1 412.24 821.76 164075.75 63389.75 - 2 410.19 823.81 163251.94 63799.94 - 3 408.13 825.87 162426.07 64208.07 - 4 406.07 827.93 161598.14 64614.14 - 5 404.00 830.00 160768.14 65018.14 - 6 401.92 832.08 159936.06 65420.06 - 7 399.84 834.16 159101.90 65819.90 - 8 397.75 836.25 158265.65 66217.65 - 9 395.66 838.34 157427.31 66613.31 -10 393.57 840.43 156586.88 67006.88 -11 391.47 842.53 155744.35 67398.35 -12 389.36 844.64 154899.71 67787.71 - -YR. 11 4810.20 9997.80 - - 1 387.25 846.75 154052.96 68174.96 - 2 385.13 848.87 153204.09 68560.09 - 3 383.01 850.99 152353.10 68943.10 - 4 380.88 853.12 151499.98 69323.98 - 5 378.75 855.25 150644.73 69702.73 - 6 376.61 857.39 149787.34 70079.34 - 7 374.47 859.53 148927.81 70453.81 - 8 372.32 861.68 148066.13 70826.13 - 9 370.17 863.83 147202.30 71196.30 -10 368.01 865.99 146336.31 71564.31 -11 365.84 868.16 145468.15 71930.15 -12 363.67 870.33 144597.82 72293.82 - -YR. 12 4506.11 10301.89 - - - - - - - - - - - - - - - - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $ 1234 - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - 1 361.49 872.51 143725.31 72655.31 - 2 359.31 874.69 142850.62 73014.62 - 3 357.13 876.87 141973.75 73371.75 - 4 354.93 879.07 141094.68 73726.68 - 5 352.74 881.26 140213.42 74079.42 - 6 350.53 883.47 139329.95 74429.95 - 7 348.32 885.68 138444.27 74778.27 - 8 346.11 887.89 137556.38 75124.38 - 9 343.89 890.11 136666.27 75468.27 -10 341.67 892.33 135773.94 75809.94 -11 339.43 894.57 134879.37 76149.37 -12 337.20 896.80 133982.57 76486.57 - -YR. 13 4192.75 10615.25 - - 1 334.96 899.04 133083.53 76821.53 - 2 332.71 901.29 132182.24 77154.24 - 3 330.46 903.54 131278.70 77484.70 - 4 328.20 905.80 130372.90 77812.90 - 5 325.93 908.07 129464.83 78138.83 - 6 323.66 910.34 128554.49 78462.49 - 7 321.39 912.61 127641.88 78783.88 - 8 319.10 914.90 126726.98 79102.98 - 9 316.82 917.18 125809.80 79419.80 -10 314.52 919.48 124890.32 79734.32 -11 312.23 921.77 123968.55 80046.55 -12 309.92 924.08 123044.47 80356.47 - -YR. 14 3869.90 10938.10 - - 1 307.61 926.39 122118.08 80664.08 - 2 305.30 928.70 121189.38 80969.38 - 3 302.97 931.03 120258.35 81272.35 - 4 300.65 933.35 119325.00 81573.00 - 5 298.31 935.69 118389.31 81871.31 - 6 295.97 938.03 117451.28 82167.28 - 7 293.63 940.37 116510.91 82460.91 - 8 291.28 942.72 115568.19 82752.19 - 9 288.92 945.08 114623.11 83041.11 -10 286.56 947.44 113675.67 83327.67 -11 284.19 949.81 112725.86 83611.86 -12 281.81 952.19 111773.67 83893.67 - -YR. 15 3537.20 11270.80 - - - - - - - - - - - - - - - - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $ 1234 - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - 1 279.43 954.57 110819.10 84173.10 - 2 277.05 956.95 109862.15 84450.15 - 3 274.66 959.34 108902.81 84724.81 - 4 272.26 961.74 107941.07 84997.07 - 5 269.85 964.15 106976.92 85266.92 - 6 267.44 966.56 106010.36 85534.36 - 7 265.03 968.97 105041.39 85799.39 - 8 262.60 971.40 104069.99 86061.99 - 9 260.17 973.83 103096.16 86322.16 -10 257.74 976.26 102119.90 86579.90 -11 255.30 978.70 101141.20 86835.20 -12 252.85 981.15 100160.05 87088.05 - -YR. 16 3194.38 11613.62 - - 1 250.40 983.60 99176.45 87338.45 - 2 247.94 986.06 98190.39 87586.39 - 3 245.48 988.52 97201.87 87831.87 - 4 243.00 991.00 96210.87 88074.87 - 5 240.53 993.47 95217.40 88315.40 - 6 238.04 995.96 94221.44 88553.44 - 7 235.55 998.45 93222.99 88788.99 - 8 233.06 1000.94 92222.05 89022.05 - 9 230.56 1003.44 91218.61 89252.61 -10 228.05 1005.95 90212.66 89480.66 -11 225.53 1008.47 89204.19 89706.19 -12 223.01 1010.99 88193.20 89929.20 - -YR. 17 2841.15 11966.85 - - 1 220.48 1013.52 87179.68 90149.68 - 2 217.95 1016.05 86163.63 90367.63 - 3 215.41 1018.59 85145.04 90583.04 - 4 212.86 1021.14 84123.90 90795.90 - 5 210.31 1023.69 83100.21 91006.21 - 6 207.75 1026.25 82073.96 91213.96 - 7 205.18 1028.82 81045.14 91419.14 - 8 202.61 1031.39 80013.75 91621.75 - 9 200.03 1033.97 78979.78 91821.78 -10 197.45 1036.55 77943.23 92019.23 -11 194.86 1039.14 76904.09 92214.09 -12 192.26 1041.74 75862.35 92406.35 - -YR. 18 2477.15 12330.85 - - - - - - - - - - - - - - - - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $ 1234 - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - 1 189.66 1044.34 74818.01 92596.01 - 2 187.05 1046.95 73771.06 92783.06 - 3 184.43 1049.57 72721.49 92967.49 - 4 181.80 1052.20 71669.29 93149.29 - 5 179.17 1054.83 70614.46 93328.46 - 6 176.54 1057.46 69557.00 93505.00 - 7 173.89 1060.11 68496.89 93678.89 - 8 171.24 1062.76 67434.13 93850.13 - 9 168.59 1065.41 66368.72 94018.72 -10 165.92 1068.08 65300.64 94184.64 -11 163.25 1070.75 64229.89 94347.89 -12 160.57 1073.43 63156.46 94508.46 - -YR. 19 2102.11 12705.89 - - 1 157.89 1076.11 62080.35 94666.35 - 2 155.20 1078.80 61001.55 94821.55 - 3 152.50 1081.50 59920.05 94974.05 - 4 149.80 1084.20 58835.85 95123.85 - 5 147.09 1086.91 57748.94 95270.94 - 6 144.37 1089.63 56659.31 95415.31 - 7 141.65 1092.35 55566.96 95556.96 - 8 138.92 1095.08 54471.88 95695.88 - 9 136.18 1097.82 53374.06 95832.06 -10 133.44 1100.56 52273.50 95965.50 -11 130.68 1103.32 51170.18 96096.18 -12 127.93 1106.07 50064.11 96224.11 - -YR. 20 1715.65 13092.35 - - 1 125.16 1108.84 48955.27 96349.27 - 2 122.39 1111.61 47843.66 96471.66 - 3 119.61 1114.39 46729.27 96591.27 - 4 116.82 1117.18 45612.09 96708.09 - 5 114.03 1119.97 44492.12 96822.12 - 6 111.23 1122.77 43369.35 96933.35 - 7 108.42 1125.58 42243.77 97041.77 - 8 105.61 1128.39 41115.38 97147.38 - 9 102.79 1131.21 39984.17 97250.17 -10 99.96 1134.04 38850.13 97350.13 -11 97.13 1136.87 37713.26 97447.26 -12 94.28 1139.72 36573.54 97541.54 - -YR. 21 1317.43 13490.57 - - - - - - - - - - - - - - - - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $ 1234 - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - 1 91.43 1142.57 35430.97 97632.97 - 2 88.58 1145.42 34285.55 97721.55 - 3 85.71 1148.29 33137.26 97807.26 - 4 82.84 1151.16 31986.10 97890.10 - 5 79.97 1154.03 30832.07 97970.07 - 6 77.08 1156.92 29675.15 98047.15 - 7 74.19 1159.81 28515.34 98121.34 - 8 71.29 1162.71 27352.63 98192.63 - 9 68.38 1165.62 26187.01 98261.01 -10 65.47 1168.53 25018.48 98326.48 -11 62.55 1171.45 23847.03 98389.03 -12 59.62 1174.38 22672.65 98448.65 - -YR. 22 907.11 13900.89 - - 1 56.68 1177.32 21495.33 98505.33 - 2 53.74 1180.26 20315.07 98559.07 - 3 50.79 1183.21 19131.86 98609.86 - 4 47.83 1186.17 17945.69 98657.69 - 5 44.86 1189.14 16756.55 98702.55 - 6 41.89 1192.11 15564.44 98744.44 - 7 38.91 1195.09 14369.35 98783.35 - 8 35.92 1198.08 13171.27 98819.27 - 9 32.93 1201.07 11970.20 98852.20 -10 29.93 1204.07 10766.13 98882.13 -11 26.92 1207.08 9559.05 98909.05 -12 23.90 1210.10 8348.95 98932.95 - -YR. 23 484.30 14323.70 - - 1 20.87 1213.13 7135.82 98953.82 - 2 17.84 1216.16 5919.66 98971.66 - 3 14.80 1219.20 4700.46 98986.46 - 4 11.75 1222.25 3478.21 98998.21 - 5 8.70 1225.30 2252.91 99006.91 - 6 5.63 1228.37 1024.54 99012.54 - 7 2.56 1231.44 -206.90 99015.10 - 8 -0.52 1234.52 -1441.42 99014.58 - 9 -3.60 1237.60 -2679.02 99010.98 -10 -6.70 1240.70 -3919.72 99004.28 -11 -9.80 1243.80 -5163.52 98994.48 -12 -12.91 1246.91 -6410.43 98981.57 - -YR. 24 48.62 14759.38 - - - - - - - - - - - - - - - - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $ 1234 - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - 1 -16.03 1250.03 -7660.46 98965.54 - 2 -19.15 1253.15 -8913.61 98946.39 - 3 -22.28 1256.28 -10169.89 98924.11 - 4 -25.42 1259.42 -11429.31 98898.69 - 5 -28.57 1262.57 -12691.88 98870.12 - 6 -31.73 1265.73 -13957.61 98838.39 - 7 -34.89 1268.89 -15226.50 98803.50 - 8 -38.07 1272.07 -16498.57 98765.43 - 9 -41.25 1275.25 -17773.82 98724.18 -10 -44.43 1278.43 -19052.25 98679.75 -11 -47.63 1281.63 -20333.88 98632.12 -12 -50.83 1284.83 -21618.71 98581.29 - -YR. 25 -400.28 15208.28 - - 1 -54.05 1288.05 -22906.76 98527.24 - 2 -57.27 1291.27 -24198.03 98469.97 - 3 -60.50 1294.50 -25492.53 98409.47 - 4 -63.73 1297.73 -26790.26 98345.74 - 5 -66.98 1300.98 -28091.24 98278.76 - 6 -70.23 1304.23 -29395.47 98208.53 - 7 -73.49 1307.49 -30702.96 98135.04 - 8 -76.76 1310.76 -32013.72 98058.28 - 9 -80.03 1314.03 -33327.75 97978.25 -10 -83.32 1317.32 -34645.07 97894.93 -11 -86.61 1320.61 -35965.68 97808.32 -12 -89.91 1323.91 -37289.59 97718.41 - -YR. 26 -862.88 15670.88 - - 1 -93.22 1327.22 -38616.81 97625.19 - 2 -96.54 1330.54 -39947.35 97528.65 - 3 -99.87 1333.87 -41281.22 97428.78 - 4 -103.20 1337.20 -42618.42 97325.58 - 5 -106.55 1340.55 -43958.97 97219.03 - 6 -109.90 1343.90 -45302.87 97109.13 - 7 -113.26 1347.26 -46650.13 96995.87 - 8 -116.63 1350.63 -48000.76 96879.24 - 9 -120.00 1354.00 -49354.76 96759.24 -10 -123.39 1357.39 -50712.15 96635.85 -11 -126.78 1360.78 -52072.93 96509.07 -12 -130.18 1364.18 -53437.11 96378.89 - -YR. 27 -1339.52 16147.52 - - - - - - - - - - - - - - - - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $ 1234 - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - 1 -133.59 1367.59 -54804.70 96245.30 - 2 -137.01 1371.01 -56175.71 96108.29 - 3 -140.44 1374.44 -57550.15 95967.85 - 4 -143.88 1377.88 -58928.03 95823.97 - 5 -147.32 1381.32 -60309.35 95676.65 - 6 -150.77 1384.77 -61694.12 95525.88 - 7 -154.24 1388.24 -63082.36 95371.64 - 8 -157.71 1391.71 -64474.07 95213.93 - 9 -161.19 1395.19 -65869.26 95052.74 -10 -164.67 1398.67 -67267.93 94888.07 -11 -168.17 1402.17 -68670.10 94719.90 -12 -171.68 1405.68 -70075.78 94548.22 - -YR. 28 -1830.67 16638.67 - - 1 -175.19 1409.19 -71484.97 94373.03 - 2 -178.71 1412.71 -72897.68 94194.32 - 3 -182.24 1416.24 -74313.92 94012.08 - 4 -185.78 1419.78 -75733.70 93826.30 - 5 -189.33 1423.33 -77157.03 93636.97 - 6 -192.89 1426.89 -78583.92 93444.08 - 7 -196.46 1430.46 -80014.38 93247.62 - 8 -200.04 1434.04 -81448.42 93047.58 - 9 -203.62 1437.62 -82886.04 92843.96 -10 -207.22 1441.22 -84327.26 92636.74 -11 -210.82 1444.82 -85772.08 92425.92 -12 -214.43 1448.43 -87220.51 92211.49 - -YR. 29 -2336.73 17144.73 - - 1 -218.05 1452.05 -88672.56 91993.44 - 2 -221.68 1455.68 -90128.24 91771.76 - 3 -225.32 1459.32 -91587.56 91546.44 - 4 -228.97 1462.97 -93050.53 91317.47 - 5 -232.63 1466.63 -94517.16 91084.84 - 6 -236.29 1470.29 -95987.45 90848.55 - 7 -239.97 1473.97 -97461.42 90608.58 - 8 -243.65 1477.65 -98939.07 90364.93 - 9 -247.35 1481.35 -100420.42 90117.58 -10 -251.05 1485.05 -101905.47 89866.53 -11 -254.76 1488.76 -103394.23 89611.77 -12 -258.49 -103394.23 0.00 89353.28 - LAST PAYMENT = $-103653. - -YR. 30 -2858.21 -87220.51 - - - - - - - - - - - - - - - - - - MORTGAGE AMORTIZATION TABLE - PRINCIPAL $ 250000 AT 3 % FOR 30 YEARS - REGULAR PAYMENT = $-103653. - -NO INTEREST AMORTIZED BALANCE ACCUM INTEREST - LAST PAYMENT = $-103653. - -YR. 31 0.00 0.00 - - -CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/ANAL2VEC.BAS b/bwbtest/T80B/ANAL2VEC.BAS deleted file mode 100644 index b7bc5e1..0000000 --- a/bwbtest/T80B/ANAL2VEC.BAS +++ /dev/null @@ -1,52 +0,0 @@ -1 DEF ARCCOS(X)=-ATN(X/SQR(-X*X+1))+1.5708 ' ACOS(X) -5 CLEAR 12000 -10 PRINT "ANALYSIS OF TWO VECTORS" -20 PRINT -30 DIM X(2), Y(2), Z(2), M(2) -35 PRINT -39 REM - STATEMENTS 40 TO 70 REQUEST VECTOR COORDINATES -40 PRINT "VECTOR 1: X,Y,Z"; -50 INPUT X(1),Y(1),Z(1) -60 PRINT "VECTOR 2: X,Y,Z"; -70 INPUT X(2),Y(2),Z(2) -80 PRINT -89 REM - LOOP TO ANALYZE BOTH VECTORS -90 FOR I=1 TO 2 -99 REM - CALCULATE MAGNITUDE, PRINT -100 M(I)=SQR(X(I)[2+Y(I)[2+Z(I)[2) -109 REM - IS VECTOR A POINT? IF YES, CANNOT COMPUTE AN ANGLE -110 IF M(I)=0 THEN 220 -120 PRINT "VECTOR";I;":" -130 PRINT "MAGNITUDE:";M(I) -139 REM - CONVERSION FACTOR FOR RADIANS TO DEGREES -140 S=57.29578 -149 REM - CALCULATE ANGLE BETWEEN VECTOR AND X-AXIS, PRINT -150 J=X(I)/M(I) -160 PRINT "ANGLE WITH X-AXIS:";ARCCOS(J)*S -169 REM - CALCULATE ANGLE BETWEEN VECTOR AND Y-AXIS, PRINT -170 J=Y(I)/M(I) -180 PRINT "ANGLE WITH Y-AXIS:";ARCCOS(J)*S -189 REM - CALCULATE ANGLE BETWEEN VECTOR AND Z-AXIS, PRINT -190 J=Z(I)/M(I) -200 PRINT "ANGLE WITH Z-AXIS:";ARCCOS(J)*S -210 PRINT -220 NEXT I -230 J=0 -239 REM - IF EITHER VECTOR A POINT, CANNOT COMPUTE ANGLE -240 IF M(1)=0 THEN 310 -250 IF M(2)=0 THEN 310 -259 REM - CALCULATE ANGLE BETWEEN VECTORS -260 J=(X(1)*X(2)+Y(1)*Y(2)+Z(1)*Z(2))/M(1)/M(2) -269 REM - ARE THE VECTORS PERPENDICULAR? -270 IF J<>0 THEN 300 -280 J=90 -290 GOTO 310 -299 REM - CALCULATE ANGLE IN DEGREES, PRINT -300 J=ATN(SQR(1-J[2)/J)*S -310 PRINT "ANGLE BETWEEN VECTORS:";J -320 PRINT -329 REM - RESTART OR END PROGRAM? -330 PRINT "MORE DATA (1=YES, 0=NO)"; -340 INPUT Z -350 IF Z=1 THEN 35 -360 END diff --git a/bwbtest/T80B/ANAL2VEC.INP b/bwbtest/T80B/ANAL2VEC.INP deleted file mode 100644 index 11957c6..0000000 --- a/bwbtest/T80B/ANAL2VEC.INP +++ /dev/null @@ -1,3 +0,0 @@ -1,2,3 -4,5,6 -0 diff --git a/bwbtest/T80B/ANAL2VEC.run b/bwbtest/T80B/ANAL2VEC.run deleted file mode 100644 index 2426fa9..0000000 --- a/bwbtest/T80B/ANAL2VEC.run +++ /dev/null @@ -1,21 +0,0 @@ -ANALYSIS OF TWO VECTORS - - -VECTOR 1: X,Y,Z? 1,2,3 -VECTOR 2: X,Y,Z? 4,5,6 - -VECTOR 1 : -MAGNITUDE: 3.74166 -ANGLE WITH X-AXIS: 74.4989 -ANGLE WITH Y-AXIS: 57.6887 -ANGLE WITH Z-AXIS: 36.6994 - -VECTOR 2 : -MAGNITUDE: 8.77496 -ANGLE WITH X-AXIS: 62.8811 -ANGLE WITH Y-AXIS: 55.2637 -ANGLE WITH Z-AXIS: 46.8618 - -ANGLE BETWEEN VECTORS: 12.9332 - -MORE DATA (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/ANGLMET.BAS b/bwbtest/T80B/ANGLMET.BAS deleted file mode 100644 index 697c7ab..0000000 --- a/bwbtest/T80B/ANGLMET.BAS +++ /dev/null @@ -1,64 +0,0 @@ -10 PRINT "ANGLO TO METRIC" -20 PRINT -29 REM - ESTABLISH VARIABLES FOR 17 CONVERSION FACTORS -30 DIM C(17) -39 REM - LOOP TO ASSIGN CONVERSION FACTORS INTO C( ) -40 FOR N=1 TO 17 -50 READ C(N) -60 NEXT N -69 REM - DATA TABLE OF SEVENTEEN CONVERSION FACTORS -70 DATA 0.3937,3.281E-2,3.281,1.094,0.6214,.01136,.003785,.2366,2.113 -80 DATA 1.057,0.2642,0.02838,2.104,0.3527,2.205,9.842E-4,0.6214,0 -89 REM - GET NUMBER OF CONVERSION FROM PROGRAM DESCRIPTION -90 PRINT "(TO END PROGRAM ENTER 0)" -100 PRINT "WHICH CONVERSION DO YOU NEED (1 TO 17)"; -110 INPUT N -119 REM - END PROGRAM? -120 IF N=0 THEN 540 -129 REM - CONVERSION AVAILABLE? -130 IF N>17 THEN 100 -140 PRINT "VALUE TO BE CONVERTED"; -150 INPUT I -159 REM - PERFORM CONVERSION USING PROPER CONVERSION FACTOR -160 R=I*C(N) -169 REM - DIERCT PROGRAM TO PROPER CONVERSION UNITS, PRINT RESULTS -170 ON N GOTO 180,200,220,240,260,280,300,320,340,360,380,400,420,440,460,480,500 -180 PRINT I;"INCHES =";R;"CENTIMETERS" -190 GOTO 520 -200 PRINT I;"FEET =";R;"CENTIMETERS" -210 GOTO 520 -220 PRINT I;"FEET =";R;"METERS" -230 GOTO 520 -240 PRINT I;"YARDS =";R;"METERS" -250 GOTO 520 -260 PRINT I;"MILES =";R;"KILOMETERS" -270 GOTO 520 -280 PRINT I;"TSP. =";R;"CUBIC CENTIMETERS" -290 GOTO 520 -300 PRINT I;"TBSP. =";R;"CUBIC CENTIMETERS" -310 GOTO 520 -320 PRINT I;"CUPS =";R;"LITERS" -330 GOTO 520 -340 PRINT I;"PINTS =";R;"LITERS" -350 GOTO 520 -360 PRINT I;"QUARTS =";R;"LITERS" -370 GOTO 520 -380 PRINT I;"GALLONS =";R;"LITERS" -390 GOTO 520 -400 PRINT I;"BUSHELS =";R;"LITERS" -410 GOTO 520 -420 PRINT I;"PECKS =";R;"LITERS" -430 GOTO 520 -440 PRINT I;"OUNCES =";R;"GRAMS" -450 GOTO 520 -460 PRINT I;"POUNDS =";R;"KILOGRAMS" -470 GOTO 520 -480 PRINT I;"TONS =";R;"KILOGRAM" -490 GOTO 520 -499 REM - CONVERT FROM DEGREES FARENHEIT TO CELSIUS -500 R=(I-32)*5/9 -510 PRINT I;"DEGREES FAHRENHEIT =";R;"CELSIUS" -520 PRINT -529 REM - RESTART PROGRAM -530 GOTO 100 -540 END diff --git a/bwbtest/T80B/ANGLMET.INP b/bwbtest/T80B/ANGLMET.INP deleted file mode 100644 index 18d778a..0000000 --- a/bwbtest/T80B/ANGLMET.INP +++ /dev/null @@ -1,3 +0,0 @@ -1 -23.45 -0 diff --git a/bwbtest/T80B/ANGLMET.run b/bwbtest/T80B/ANGLMET.run deleted file mode 100644 index 9466c46..0000000 --- a/bwbtest/T80B/ANGLMET.run +++ /dev/null @@ -1,8 +0,0 @@ -ANGLO TO METRIC - -(TO END PROGRAM ENTER 0) -WHICH CONVERSION DO YOU NEED (1 TO 17)? 1 -VALUE TO BE CONVERTED? 23.45 - 23.45 INCHES = 9.23226 CENTIMETERS - -WHICH CONVERSION DO YOU NEED (1 TO 17)? 0 diff --git a/bwbtest/T80B/AREAPOLY.BAS b/bwbtest/T80B/AREAPOLY.BAS deleted file mode 100644 index 4f2ac6c..0000000 --- a/bwbtest/T80B/AREAPOLY.BAS +++ /dev/null @@ -1,29 +0,0 @@ -10 PRINT "AREA OF A POLYGON" -20 PRINT -29 REM - COORDINATE ARRAYS SHOULD BE SET TO (NUMBER OF VERTICES+1) -30 DIM X(25),Y(25) -40 PRINT "NUMBER OF VERTICES (ENTER 0 TO END PROGRAM)"; -50 INPUT N -59 REM - END PROGRAM? -60 IF N=0 THEN 230 -69 REM - LOOP TO ENTER COORDINATES IN ORDER OF SUCCESSIVE VERTICES -70 FOR I=1 TO N -80 IF I>1 THEN 110 -90 PRINT "COORDINATES OF VERTEX";I; -100 GOTO 120 -110 PRINT " VERTEX";I; -120 INPUT X(I),Y(I) -130 NEXT I -139 REM - FIRST VERTEX SERVES AS LAST VERTEX -140 X(N+1)=X(1) -150 Y(N+1)=Y(1) -160 A=0 -169 REM - CALCULATE AREA, PRINT -170 FOR I=1 TO N -180 A=A+(X(I)+X(I+1))*(Y(I)-Y(I+1)) -190 NEXT I -200 PRINT "AREA =";A/2 -210 PRINT -219 REM - RESTART PROGRAM -220 GOTO 40 -230 END diff --git a/bwbtest/T80B/AREAPOLY.INP b/bwbtest/T80B/AREAPOLY.INP deleted file mode 100644 index 8dcf8af..0000000 --- a/bwbtest/T80B/AREAPOLY.INP +++ /dev/null @@ -1,5 +0,0 @@ -3 -1,2 -3,6 -7,1 -0 diff --git a/bwbtest/T80B/AREAPOLY.run b/bwbtest/T80B/AREAPOLY.run deleted file mode 100644 index 1f216d3..0000000 --- a/bwbtest/T80B/AREAPOLY.run +++ /dev/null @@ -1,9 +0,0 @@ -AREA OF A POLYGON - -NUMBER OF VERTICES (ENTER 0 TO END PROGRAM)? 3 -COORDINATES OF VERTEX 1 ? 1,2 - VERTEX 2 ? 3,6 - VERTEX 3 ? 7,1 -AREA = 13 - -NUMBER OF VERTICES (ENTER 0 TO END PROGRAM)? 0 diff --git a/bwbtest/T80B/BAS b/bwbtest/T80B/BAS deleted file mode 100644 index 1f9451a..0000000 --- a/bwbtest/T80B/BAS +++ /dev/null @@ -1,140 +0,0 @@ -00readme.txt -ALFASORT.BAS -ALFASORT.INP -AMORTTAB.BAS -AMORTTAB.INP -ANAL2VEC.BAS -ANAL2VEC.INP -ANGLMET.BAS -ANGLMET.INP -AREAPOLY.BAS -AREAPOLY.INP -BINODIST.BAS -BINODIST.INP -CHECWRIT.BAS -CHECWRIT.INP -CHI2DIST.BAS -CHI2DIST.INP -CHI2TEST.BAS -CHI2TEST.INP -COMMPAP.BAS -COMMPAP.INP -CORDCONV.BAS -CORDCONV.INP -CURVINT.BAS -CURVINT.INP -DAY2DAY.BAS -DAY2DAY.INP -DAYWEEK.BAS -DAYWEEK.INP -DEGRAD.BAS -DEGRAD.INP -DEPAMT.BAS -DEPAMT.INP -DEPRATE.BAS -DEPRATE.INP -DEPRSKED.BAS -DEPRSKED.INP -DERIV.BAS -DERIV.INP -EARNINT.BAS -EARNINT.INP -EFFINT.BAS -EFFINT.INP -EXPREGR.BAS -EXPREGR.INP -FDIST.BAS -FDIST.INP -FUTVALDE.BAS -FUTVALDE.INP -FUTVALIN.BAS -FUTVALIN.INP -GCD.BAS -GCD.INP -GEOMEAN.BAS -GEOMEAN.INP -GEOREGR.BAS -GEOREGR.INP -GROWRATE.BAS -GROWRATE.INP -INITINV.BAS -INITINV.INP -INTGGAUS.BAS -INTGGAUS.INP -INTGSIMP.BAS -INTGSIMP.INP -INTGTRAP.BAS -INTGTRAP.INP -LABELS.BAS -LABELS.INP -LASTPAY.BAS -LASTPAY.INP -LINCORCO.BAS -LINCORCO.INP -LINEPROG.BAS -LINEPROG.INP -LININT.BAS -LININT.INP -LINREGR.BAS -LINREGR.INP -LOANBAL.BAS -LOANBAL.INP -LOANPAY.BAS -LOANPAY.INP -LOANRATE.BAS -LOANRATE.INP -LOANTERM.BAS -LOANTERM.INP -LPRINT.OUT -MANNWHIT.BAS -MANNWHIT.INP -MAPCHECK.BAS -MAPCHECK.INP -MATADD.BAS -MATADD.INP -MATINV.BAS -MATINV.INP -MATMULT.BAS -MATMULT.INP -MININV.BAS -MININV.INP -MLINREGR.BAS -MLINREGR.INP -NOMINT.BAS -NOMINT.INP -NORDREGR.BAS -NORDREGR.INP -NORMDIST.BAS -NORMDIST.INP -OPS2VEC.BAS -OPS2VEC.INP -PARTSTRI.BAS -PERMCOMB.BAS -PLOTFUNC.BAS -POISDIST.BAS -PRIFACT.BAS -PRINLOAN.BAS -QUADROOT.BAS -RADDEG.BAS -RECICOST.BAS -REGDEP.BAS -REGWDRAW.BAS -ROOTNEWT.BAS -ROOTPOLY.BAS -SALVAGE.BAS -SIMLEQNS.BAS -STDDEV.BAS -SYSREL.BAS -TDIST.BAS -TDISTEST.BAS -TRIGPOLY.BAS - -broken: -CORDPLOT.BAS.txt -ENTEPRIS.BAS.txt -FEDTAX.BAS.txt -MASTRDIR.BAS.txt -OTER.BAS.txt -PLOTPOL.BAS.txt -SHELSORT.BAS.txt -SHOPPING.BAS.txt diff --git a/bwbtest/T80B/BINODIST.BAS b/bwbtest/T80B/BINODIST.BAS deleted file mode 100644 index 4053b83..0000000 --- a/bwbtest/T80B/BINODIST.BAS +++ /dev/null @@ -1,29 +0,0 @@ -10 PRINT "BINOMIAL DISTRIBUTION" -20 PRINT -30 DIM M(3) -40 PRINT "(TO END PROGRAM ENTER 0)" -50 PRINT "NUMBER OF TRIALS"; -60 INPUT N -70 IF N=0 THEN 270 -80 PRINT "EXACT NUMBER OF SUCCESSES"; -90 INPUT X -100 PRINT "PROBABILITY OF SUCCESS"; -110 INPUT P -119 REM - COMPUTE THE FACTORIALS -120 M(1)=N -130 M(2)=X -140 M(3)=N-X -150 FOR I=1 TO 3 -160 IF M(I)=0 THEN 220 -170 A=1 -180 FOR J=1 TO M(I) -190 A=A*J -200 NEXT J -210 M(I)=LOG(A) -220 NEXT I -229 REM - USING THE COMPUTED FACTORIALS, COMPUTE PROBABILITY -230 R=EXP(M(1)-M(2)-M(3)+X*LOG(P)+(N-X)*LOG(1-P)) -240 PRINT "PROBABILITY OF";X;"SUCCESSES IN";N;"TRIALS =";R -250 PRINT -260 GOTO 50 -270 END diff --git a/bwbtest/T80B/BINODIST.INP b/bwbtest/T80B/BINODIST.INP deleted file mode 100644 index 84f96ef..0000000 --- a/bwbtest/T80B/BINODIST.INP +++ /dev/null @@ -1,4 +0,0 @@ -56 -5 -.1 -0 diff --git a/bwbtest/T80B/BINODIST.run b/bwbtest/T80B/BINODIST.run deleted file mode 100644 index 3f0c467..0000000 --- a/bwbtest/T80B/BINODIST.run +++ /dev/null @@ -1,9 +0,0 @@ -BINOMIAL DISTRIBUTION - -(TO END PROGRAM ENTER 0) -NUMBER OF TRIALS? 56 -EXACT NUMBER OF SUCCESSES? 5 -PROBABILITY OF SUCCESS? .1 -PROBABILITY OF 5 SUCCESSES IN 56 TRIALS = .177178 - -NUMBER OF TRIALS? 0 diff --git a/bwbtest/T80B/CHECWRIT.BAS b/bwbtest/T80B/CHECWRIT.BAS deleted file mode 100644 index 1341533..0000000 --- a/bwbtest/T80B/CHECWRIT.BAS +++ /dev/null @@ -1,118 +0,0 @@ -1 REM * CHECK WRITER * -2 REM * THANKS TO JOHN W. MELTON, III * -3 REM * 910 SADDLEBACK COURT, MCLEAN, VA. 22102 * -4 REM * FOR DEBUGGING CHECK WRITER, 5/31/79 * -5 CLEAR 100 -6 DEFDBL A -7 CLS -10 PRINT @ 404, "CHECK WRITER" -20 PRINT -30 DATA "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY" -40 DATA "AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER" -50 DATA "ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE" -60 DATA "TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN" -70 DATA "SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY","THIRTY","FORTY" -80 DATA "FIFTY","SIXTY","SEVENTY","EIGHTY","NINETY" -89 REM - ENTER DATE WITH COMMAS; DAY AND YEAR MUST CONTAIN TWO DIGITS -90 PRINT "DATE (MM,DD,YY)"; -100 INPUT D,D2,D3 -110 PRINT "--(TO END PROGRAM ENTER 'END')--" -120 PRINT "FIRST NAME OF PAYEE"; -130 INPUT F$ -139 REM - END PROGRAM? -140 IF F$="END" THEN 790 -150 PRINT "LAST NAME OF PAYEE"; -160 INPUT L$ -170 PRINT "AMOUNT OF CHECK"; -180 INPUT A -189 REM - INSERT BLANK CHECK IN PRINTING DEVICE, HIT ENTER WHEN READY -190 PRINT "HIT ENTER TO PRINT CHECK"; -200 INPUT X -230 REM - GO TO CORRECT MONTH IN DATA TABLE -235 RESTORE -240 FOR X=1 TO D -250 READ X0$ -255 NEXT X -259 REM - PRINT DATE -260 PRINT ,,,X0$;D2;D3 -265 A$="**$##,#.##" -267 B$="**##,##.##" -269 REM - PRINT AMOUNT TWICE; FIRST TIME FOR SHADED BOX -270 PRINT ,,,:PRINT USING A$;A -280 PRINT ,,,:PRINT USING B$;A -290 PRINT -300 PRINT ,F$;" ";L$ -310 PRINT -319 REM - AMOUNT OF CHECK LEGITIMATE? -320 IF A<=0 THEN 770 -330 A1=A:N1=0:A3=0 -339 REM - AMOUNT IN THE THOUSANDS? -340 N1=INT(A1/1E3) -349 REM - CAN'T PRINT FOR AMOUNT OVER $99999.99 -350 IF N1>99 THEN 770 -360 IF N1=0 THEN 390 -370 GOSUB 640 -380 PRINT "THOUSAND "; -390 A1=A1-N1*1E3 -399 REM - AMOUNT IN THE HUNDREDS? -400 N1=INT(A1/100) -410 IF N1=0 THEN 440 -420 GOSUB 640 -430 PRINT "HUNDRED "; -440 A1=A1-N1*100 -449 REM - AMOUNT IN THE ONES OR TENS? -450 N1=INT(A1) -460 IF N1>0 THEN 490 -470 IF A >=1 THEN 492 -480 GOTO 510 -490 GOSUB 640 -492 IF A<=1.99 THEN PRINT "DOLLAR "; -494 IF A>1.99 THEN PRINT "DOLLARS "; -501 GOTO 510 -510 A1=A1-N1 -519 REM - ANY CENTS? -529 REM - IF AMOUNT IS CENTS ONLY DON'T PRINT 'AND' -530 IF A<1 THEN 550 -540 PRINT "AND"; -550 A1=INT(A1*100) -555 IF A1>1 THEN 560 -556 IF A1=0 THEN PRINT " NO CENTS" -557 IF A1=1 THEN PRINT " 0";A1;"CENT" -558 GOTO 570 -559 REM - CENTS ARE PRINTED IN NUMERIC FORM -560 IF A1<10 THEN PRINT " 0";A1;"CENTS" :ELSE PRINT A1;"CENTS" -569 REM - SPACE OFF OF CHECK -570 PRINT -580 PRINT -590 PRINT -600 PRINT -610 PRINT -620 PRINT -629 REM - RESTART PROGRAM -630 GOTO 120 -639 REM - SUBROUTINE TO GET WORDS FOR NUMBERS -640 IF N1<21 THEN 752 -645 RESTORE -650 FOR X=1 TO 12+(N1-20)/10+20 -660 READ X0$ -665 NEXT X -670 PRINT X0$; -680 A3=N1-INT(N1/10)*10 -690 IF A3=0 THEN 760 -700 PRINT "-"; -730 RESTORE -735 FOR X=1 TO 12+A3 -740 READ X0$ -745 NEXT X -750 PRINT X0$;" "; -751 GOTO 760 -752 RESTORE -753 FOR X=1 TO 12+N1 -754 READ X0$ -755 NEXT X -756 PRINT X0$;" "; -759 REM - END OF SUBROUTINE -760 RETURN -770 PRINT ,"*****VOID*****" -780 GOTO 570 -790 END diff --git a/bwbtest/T80B/CHECWRIT.INP b/bwbtest/T80B/CHECWRIT.INP deleted file mode 100644 index dd78c6f..0000000 --- a/bwbtest/T80B/CHECWRIT.INP +++ /dev/null @@ -1,6 +0,0 @@ -12,34,56 -TOM -CAT -2345 - -END diff --git a/bwbtest/T80B/CHECWRIT.run b/bwbtest/T80B/CHECWRIT.run deleted file mode 100644 index 76d8127..0000000 --- a/bwbtest/T80B/CHECWRIT.run +++ /dev/null @@ -1,22 +0,0 @@ -CHECK WRITER - -DATE (MM,DD,YY)? 12,34,56 ---(TO END PROGRAM ENTER 'END')-- -FIRST NAME OF PAYEE? TOM -LAST NAME OF PAYEE? CAT -AMOUNT OF CHECK? 2345 -HIT ENTER TO PRINT CHECK? - DECEMBER 34 56 - *$2,345.00 - **2,345.00 - - TOM CAT - -TWO THOUSAND THREE HUNDRED FORTY-FIVE DOLLARS AND NO CENTS - - - - - - -FIRST NAME OF PAYEE? END diff --git a/bwbtest/T80B/CHI2DIST.BAS b/bwbtest/T80B/CHI2DIST.BAS deleted file mode 100644 index cae4138..0000000 --- a/bwbtest/T80B/CHI2DIST.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "CHI-SQUARE DISTRIBUTION" -20 PRINT -30 PRINT "(TO END PROGRAM ENTER 0)" -40 PRINT "DEGREES OF FREEDOM"; -50 INPUT V -60 IF V=0 THEN 280 -70 PRINT "CHI-SQUARE"; -80 INPUT W -89 REM -R=THE DENOMINATOR PRODUCT -90 R=1 -100 FOR I=V TO 2 STEP -2 -110 R=R*I -120 NEXT I -129 REM - K=THE NUMBERATOR PRODUCT -130 K=W[(INT((V+1)/2))*EXP(-W/2)/R -139 REM - THE PI FACTOR IS USED ONLY WHEN DEG. FREEDOM ARE ODD -140 IF INT(V/2)=V/2 THEN 170 -150 J=SQR(2/W/3.141592653599) -160 GOTO 180 -169 REM - L (SUMMATION FACTOR) CALCULATED LINES 170-240 -170 J=1 -180 L=1 -190 M=1 -200 V=V+2 -210 M=M*W/V -219 REM - CHECK FOR END OF SUMMATION -220 IF M<.0000001 THEN 250 -230 L=L+M -240 GOTO 200 -250 PRINT "TAIL END VALUE =";1-J*K*L -260 PRINT -270 GOTO 40 -280 END diff --git a/bwbtest/T80B/CHI2DIST.INP b/bwbtest/T80B/CHI2DIST.INP deleted file mode 100644 index 0f0289c..0000000 --- a/bwbtest/T80B/CHI2DIST.INP +++ /dev/null @@ -1,3 +0,0 @@ -2 -.987 -0 diff --git a/bwbtest/T80B/CHI2DIST.run b/bwbtest/T80B/CHI2DIST.run deleted file mode 100644 index 9d37a92..0000000 --- a/bwbtest/T80B/CHI2DIST.run +++ /dev/null @@ -1,8 +0,0 @@ -CHI-SQUARE DISTRIBUTION - -(TO END PROGRAM ENTER 0) -DEGREES OF FREEDOM? 2 -CHI-SQUARE? .987 -TAIL END VALUE = .610486 - -DEGREES OF FREEDOM? 0 diff --git a/bwbtest/T80B/CHI2TEST.BAS b/bwbtest/T80B/CHI2TEST.BAS deleted file mode 100644 index f200bd7..0000000 --- a/bwbtest/T80B/CHI2TEST.BAS +++ /dev/null @@ -1,60 +0,0 @@ -10 PRINT "CHI-SQUARE TEST" -20 PRINT -28 REM - LIMIT SIZE OF CONTINGENCY TABLES TO V1(R*C),A(R) -29 REM - WHERE R=NO. OF ROWS, C=NO, OF COLLUMNS -30 DIM V1(25),V2(5),A(5) -40 PRINT "NUMBER OF ROWS"; -49 REM - LINES 50-150 INPUT CONTINGENCY TABLE -50 INPUT R -60 PRINT "NUMBER OF COLUMNS"; -70 INPUT C -80 PRINT "CONTINGENCY TABLE:" -90 FOR I=1 TO R -100 PRINT "ROW";I -110 FOR J=1 TO C -120 PRINT " ELEMENT";J; -130 INPUT V1((I-1)*C+J) -140 NEXT J -150 NEXT I -160 PRINT -169 REM - ADD UP MARGINAL FREQUENCIES FOR EACH ROW -170 L=0 -180 M=1 -190 FOR I=1 TO R -200 FOR J=1 TO C -210 A(I)=A(I)+V1(M) -220 M=M+1 -230 NEXT J -240 L=L+A(I) -250 NEXT I -260 N=R*C -269 REM - ADD UP MARGINAL FREQUENCIES FOR EACH COLUMN -270 FOR I=1 TO C -280 FOR J=I TO N STEP C -290 V2(I)=V2(I)+V1(J) -300 NEXT J -310 NEXT I -320 Z=0 -330 PRINT "OBSERVED VALUE","EXPECTED VAULE","CHI[2 CONTRIBUTION" -340 FOR I=1 TO C -350 PRINT " COLUMN";I -360 FOR J=1 TO R -369 REM - P=EXPECTED CELL VALUE -370 P=A(J)*V2(I)/L -375 X=I+(J-1)*C -379 REM - USE YATES' CORRECTION FOR CONTINUITY IN 2 X 2 CHI-SQUARE TEST -380 IF R<>2 THEN 390 -381 IF C<>2 THEN 390 -382 Y=(ABS(V1(X)-P)-.5)[2/P -383 GOTO 400 -389 REM - Y=CHI-SQUARE CONTRIBUTION FROM THIS CELL -390 Y=(V1(X)-P)[2/P -399 REM - Z=TOTAL CHI-SQUARE VALUE -400 Z=Z+Y -410 PRINT " ";V1(X),P,Y -420 NEXT J -430 NEXT I -440 PRINT -450 PRINT "CHI-SQUARE =";Z -460 PRINT "DEGREES OF FREEDOM =";(C-1)*(R-1) -470 END diff --git a/bwbtest/T80B/CHI2TEST.INP b/bwbtest/T80B/CHI2TEST.INP deleted file mode 100644 index ac8e40e..0000000 --- a/bwbtest/T80B/CHI2TEST.INP +++ /dev/null @@ -1,8 +0,0 @@ -2 -3 -1 -2 -3 -4 -5 -6 diff --git a/bwbtest/T80B/CHI2TEST.run b/bwbtest/T80B/CHI2TEST.run deleted file mode 100644 index e99d7e2..0000000 --- a/bwbtest/T80B/CHI2TEST.run +++ /dev/null @@ -1,27 +0,0 @@ -CHI-SQUARE TEST - -NUMBER OF ROWS? 2 -NUMBER OF COLUMNS? 3 -CONTINGENCY TABLE: -ROW 1 - ELEMENT 1 ? 1 - ELEMENT 2 ? 2 - ELEMENT 3 ? 3 -ROW 2 - ELEMENT 1 ? 4 - ELEMENT 2 ? 5 - ELEMENT 3 ? 6 - -OBSERVED VALUE EXPECTED VAULE CHI[2 CONTRIBUTION - COLUMN 1 - 1 1.42857 .128571 - 4 3.57143 5.14286E-2 - COLUMN 2 - 2 2 0 - 5 5 0 - COLUMN 3 - 3 2.57143 7.14286E-2 - 6 6.42857 2.85714E-2 - -CHI-SQUARE = .28 -DEGREES OF FREEDOM = 2 diff --git a/bwbtest/T80B/COMMPAP.BAS b/bwbtest/T80B/COMMPAP.BAS deleted file mode 100644 index beef7ac..0000000 --- a/bwbtest/T80B/COMMPAP.BAS +++ /dev/null @@ -1,23 +0,0 @@ -10 PRINT "DISCOUNT COMMERCIAL PAPER" -20 PRINT -29 REM - STATEMENTS 30 TO 90 REQUEST USER INPUT -30 PRINT "FUTURE VALUE"; -40 INPUT T -50 PRINT "DISCOUNT RATE"; -60 INPUT D -69 REM - CONVERT PERCENT TO DECIMAL -70 D=D/100 -80 PRINT "DAYS TO MATURITY"; -90 INPUT N -99 REM - CALCULATE DISCOUNT, PRINT -100 D1=T*D*N/360 -110 PRINT "DISCOUNT = $";D1 -119 REM - CALCULATE COST, PRINT -120 PRINT " COST = $";T-D1 -129 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION -130 PRINT -139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED -140 PRINT "MORE DATA (1=YES, 0=NO)"; -150 INPUT X -160 IF X=1 THEN 20 -170 END diff --git a/bwbtest/T80B/COMMPAP.INP b/bwbtest/T80B/COMMPAP.INP deleted file mode 100644 index b376a7d..0000000 --- a/bwbtest/T80B/COMMPAP.INP +++ /dev/null @@ -1,4 +0,0 @@ -1234 -24 -350 -0 diff --git a/bwbtest/T80B/COMMPAP.run b/bwbtest/T80B/COMMPAP.run deleted file mode 100644 index ea0f6aa..0000000 --- a/bwbtest/T80B/COMMPAP.run +++ /dev/null @@ -1,9 +0,0 @@ -DISCOUNT COMMERCIAL PAPER - -FUTURE VALUE? 1234 -DISCOUNT RATE? 24 -DAYS TO MATURITY? 350 -DISCOUNT = $ 287.933 - COST = $ 946.067 - -MORE DATA (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/CORDCONV.BAS b/bwbtest/T80B/CORDCONV.BAS deleted file mode 100644 index a4bfcce..0000000 --- a/bwbtest/T80B/CORDCONV.BAS +++ /dev/null @@ -1,54 +0,0 @@ -10 PRINT "COORDINATE CONVERSION" -20 PRINT -30 PRINT " ( 1=CARTESIAN TO POLAR)" -40 PRINT " (-1=POLAR TO CARTESIAN)" -50 PRINT " ( 0=END PROGRAM)" -60 PRINT "WHICH DIRECTION"; -70 INPUT D -79 REM - END PROGRAM? -80 IF D=0 THEN 380 -89 REM - DIRECT PROGRAM TO PERFORM PROPER CONVERSION -90 IF D=-1 THEN 320 -98 REM - CONVERT FROM CARTESIAN COORDINATES TO POLAR COORDINATES -99 REM - ENTER CARTESIAN COORDINATES (ABSCISSA, ORDINATE) -100 PRINT "X,Y"; -110 INPUT X,Y -119 REM - POINT ON Y-AXIS? -120 IF X=0 THEN 170 -129 REM - POINT ON X-AXIS? -130 IF Y=0 THEN 260 -139 REM - COMPUTE POLAR COORDINATES, ROUND OFF, PRINT -140 PRINT "R =";INT(SGN(X)*SQR(X[2+Y[2)*100+.5)/100;","; -150 PRINT " A =";INT(ATN(Y/X)*180/3.1415927*100+.5)/100 -160 GOTO 60 -169 REM - POINT IS ON Y-AXIS; AT ORIGIN? -170 IF Y=0 THEN 240 -180 PRINT "R =";ABS(Y);","; -189 REM - IS POINT ABOVE OR BELOW ORIGIN? -190 IF Y<0 THEN 220 -200 PRINT " A = 90" -210 GOTO 60 -220 PRINT " A = 270" -230 GOTO 60 -239 REM - POINT IS AT ORIGIN -240 PRINT "R = 0, A = 0" -250 GOTO 60 -259 REM - POINT IS ON X-AXIS -260 PRINT "R =";ABS(X);","; -269 REM - IS POINT TO LEFT OR RIGHT OF ORIGIN? -270 IF X<0 THEN 300 -280 PRINT " A = 0" -290 GOTO 60 -300 PRINT " A = 180" -310 GOTO 60 -318 REM - CONVERT FROM POLAR COORDIATES TO CARTESIAN COORDINATES -319 REM - ENTER POLAR COORDINATES (MAGNITUDE OF RAY, ANGLE) -320 PRINT "R,A"; -330 INPUT R,A -339 REM - CONVERT FROM DEGREES TO RADIANS -340 M=(A-INT(A/360)*360)*3.1415927/180 -349 REM - CALCULATE CARTESIAN COORDINATES, ROUND OFF, PRINT -350 PRINT "X =";INT(R*COS(M)*100+.5)/100;","; -360 PRINT " Y =";INT(R*SIN(M)*100+.5)/100 -370 GOTO 60 -380 END diff --git a/bwbtest/T80B/CORDCONV.INP b/bwbtest/T80B/CORDCONV.INP deleted file mode 100644 index 23b146b..0000000 --- a/bwbtest/T80B/CORDCONV.INP +++ /dev/null @@ -1,5 +0,0 @@ -1 -23,45 --1 -9,65 -0 diff --git a/bwbtest/T80B/CORDCONV.run b/bwbtest/T80B/CORDCONV.run deleted file mode 100644 index 7b2c0f4..0000000 --- a/bwbtest/T80B/CORDCONV.run +++ /dev/null @@ -1,12 +0,0 @@ -COORDINATE CONVERSION - - ( 1=CARTESIAN TO POLAR) - (-1=POLAR TO CARTESIAN) - ( 0=END PROGRAM) -WHICH DIRECTION? 1 -X,Y? 23,45 -R = 50.54 , A = 62.93 -WHICH DIRECTION? -1 -R,A? 9,65 -X = 3.8 , Y = 8.16 -WHICH DIRECTION? 0 diff --git a/bwbtest/T80B/CORDPLOT.BAS b/bwbtest/T80B/CORDPLOT.BAS deleted file mode 100644 index 0c015f8..0000000 --- a/bwbtest/T80B/CORDPLOT.BAS +++ /dev/null @@ -1,154 +0,0 @@ -10 PRINT "COORDINATE PLOT" -20 PRINT -28 REM - DIMENSION OF X() AND Y() SHOULD BE LIMITED TO (N+1); -29 REM - WHERE N=THE NUMBER OF POINTS BEING PLOTTED, MAX. LIMIT 99 -30 DIM X(100),Y(100) -39 REM - INPUT INFORMATION TO SET UP AXES -40 PRINT "X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT"; -50 INPUT A1, A2, A3 -60 PRINT "Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT, INCERMENT"; -70 INPUT B1, B2, B3 -80 B2=(B2-B1)/B3 -88 REM - Y-AXIS TOO LONG FOR OUTPUT DEVICE? IF YES, CHANGE ENDPOINTS -89 REM - OR INCREASE INCREMENT -90 IF B2<=70 THEN 120 -100 PRINT "Y-RANGE TOO LARGE" -110 GOTO 60 -120 PRINT "NUMBER OF POINTS TO BE PLOTTED"; -130 INPUT N -139 REM - NO POINTS TO PLOT? END PROGRAM -140 IF N=0 THEN 1070 -149 REM - TOO MANY POINTS? IF YES, REENTER NUMBER OF POINTS -150 IF N<=99 THEN 180 -160 PRINT "TOO MANY POINTS" -170 GOTO 120 -179 REM - LOOP TO INPUT X,Y COORDINATES FOR EACH POINT -180 FOR I=1 TO N -190 IF I>1 THEN 220 -200 PRINT "COORDINATES OF POINT ";I; -210 GOTO 230 -220 PRINT " POINT ";I; -230 INPUT X(I), Y(I) -239 REM - ROUND OFF EACH X,Y TO NEAREST INCREMENT ON AXIS -240 X(I)=INT((X(I)-A1)/A3+.5) -250 Y(I)=INT((Y(I)-B1)/B3+.5) -260 NEXT I -269 REM - CALCULATE ADDITIONAL X AND Y COORDINATE -270 Y(N+1)=INT(B2+.5)+1 -280 X(N+1)=INT((A2-A1)/A3+.5)+1 -290 PRINT -299 REM - NOTE WHERE AXES CROSS -300 PRINT "INTERSECTION OF AXES AT (";A1;",";B1;")" -310 PRINT -319 REM - SORT COORDINATES; REORDER X(1) TO X(n) SMALLEST TO LARGEST -320 FOR J=1 TO N -330 FOR I=1 TO N-J -340 A=X(I) -350 B=Y(I) -360 C=X(I+1) -370 D=Y(I+1) -380 IF A=0 THEN 490 -480 NEXT P -489 REM - LOOP TO CALL UP EACH X-INCREMENT FOR LINES OF PRINT -490 FOR I=0 TO INT((A2-A1)/A3+.5) -500 T=T+P -509 REM - COUNT NUMBER OF POINTS TO BE PLOTTED ON EACH LINE IN P -510 P=0 -519 REM - ALL POINTS PLOTTED? -520 IF T>N THEN 540 -529 REM - X-VALUE ON X-LINE? IF YES, TEST FOR Y -530 IF X(T)=I THEN 590 -539 REM - FIRST LINE? IF YES, Y-AXIS MUST BE PLOTTED -540 IF I=0 THEN 570 -549 REM - PLOT X-AXIS -550 PRINT "*"; -560 GOTO 1040 -570 S=N+1 -580 GOTO 920 -590 FOR L=T TO N -599 REM - NEXT POINT PLOTTED ON SAME LINE? -600 IF X(L)>X(T) THEN 630 -609 REM - COUNT POINTS TO BE PLOTTED ON EACH LINE -610 P=P+1 -620 NEXT L -629 REM - PLOT ONE POINT -630 IF P=1 THEN 730 -638 REM - LOOP TO SORT Y-COORDINATES WITH EQUAL X-COORDINATES; -639 REM - REORDER SMALLEST TO LARGEST -640 FOR J=1 TO P -650 FOR L=1 TO P-J -660 D=Y(T+L-1) -670 B=Y(T+L) -680 IF D<=B THEN 710 -690 Y(T+L-1)=B -700 Y(T+L)=D -710 NEXT L -715 REM FOR J=1 TO P -720 NEXT J -730 FOR L=0 TO P-1 -740 Z=Y(T+L) -749 REM - TEST FOR OUT-OF-RANGE Y-COORDINATE -750 IF Z>=0 THEN 770 -760 NEXT L -769 REM - POINT TO BE PLOTTED ON X-AXIS? -770 IF I=0 THEN 910 -779 REM - POINT TO BE PLOTTED ON Y-AXIS? -780 IF Z=0 THEN 800 -789 REM - PLOT X-AXIS -790 PRINT "*"; -800 IF L=P-1 THEN 870 -810 FOR J=L TO P-1 -819 REM - TEST FOR OUT-OF-RANGE Y-COORDINATE -820 IF Z>B2 THEN 1040 -829 REM - BYPASS DUPLICATE COORDINATES -830 IF Y(T+J)=Z THEN 860 -839 REM - PLOT POINT -840 PRINT TAB(Z);"+"; -850 Z=Y(T+J) -860 NEXT J -869 REM - TEST FOR OUT-OF-RANGE Y-COORDINATE -870 IF Z<0 THEN 1040 -880 IF Z>B2 THEN 1040 -889 REM - PLOT POINT -890 PRINT TAB(Z);"+"; -900 GOTO 1040 -910 S=T+L -919 REM - LOOP TO ESTABLISH PRINT FOR FIRST LINE -920 FOR J=0 TO B2 -929 REM - POINT TO BE PLOTTED? -930 IF Y(S)<>J THEN 1010 -939 REM - PLOT POINT -940 PRINT "+"; -949 REM - BYPASS DUPLICATE COORDINATES -950 FOR K=S TO T+P-1 -960 IF Y(K)=Y(S) THEN 990 -970 S=K -980 GOTO 1020 -990 NEXT K -1000 GOTO 1020 -1009 REM - PLOT Y-AXIS -1010 PRINT "*"; -1020 NEXT J -1029 REM - LABEL Y-AXIS -1030 PRINT "y"; -1039 REM - ADVANCE OUTPUT DEVICE TO NEXT LINE -1040 PRINT -1050 NEXT I -1059 REM - LABEL X-AXIS -1060 PRINT "x" -1070 END -1900 REM --------------------------- -1910 REM Changes for bwBASIC: -1920 REM Commented out line 715 -1999 END diff --git a/bwbtest/T80B/CORDPLOT.INP b/bwbtest/T80B/CORDPLOT.INP deleted file mode 100644 index 8af4346..0000000 --- a/bwbtest/T80B/CORDPLOT.INP +++ /dev/null @@ -1,6 +0,0 @@ -1,40,1 -1,20,1 -3 -5,10 -20,14 -30,18 diff --git a/bwbtest/T80B/CORDPLOT.run b/bwbtest/T80B/CORDPLOT.run deleted file mode 100644 index 0d27b3c..0000000 --- a/bwbtest/T80B/CORDPLOT.run +++ /dev/null @@ -1,52 +0,0 @@ -COORDINATE PLOT - -X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT? 1,40,1 -Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT, INCERMENT? 1,20,1 -NUMBER OF POINTS TO BE PLOTTED? 3 -COORDINATES OF POINT 1 ? 5,10 - POINT 2 ? 20,14 - POINT 3 ? 30,18 - -INTERSECTION OF AXES AT ( 1 , 1 ) - -********************y -* -* -* -* + -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* + -* -* -* -* -* -* -* -* -* -* + -* -* -* -* -* -* -* -* -* -* -x diff --git a/bwbtest/T80B/CURVINT.BAS b/bwbtest/T80B/CURVINT.BAS deleted file mode 100644 index 1750c73..0000000 --- a/bwbtest/T80B/CURVINT.BAS +++ /dev/null @@ -1,39 +0,0 @@ -10 PRINT "CURVILINEAR INTERPOLATION" -20 PRINT -28 REM - LIMIT X() AND Y() TO MAXIMUN NUMBER OF POINTS KNOWN ON ANY -29 REM - CURVE TO BE ENTERED -30 DIM X(50), Y(50) -40 PRINT "NUMBER OF KNOWN POINTS"; -50 INPUT P -60 FOR I=1 TO P -69 REM - ENTER COORDINATES OF KNOWN POINTS ON CURVE -70 PRINT "X,Y OF POINT";I; -80 INPUT X(I),Y(I) -90 NEXT I -100 PRINT -109 REM - ENTER X-COORDINATE OF POINT TO BE ITERPOLATED -110 PRINT "INTERPOLATE: X="; -120 INPUT A -130 B=0 -138 REM - COMPUTE CORRESPONDING Y-COORDINATES BY LAGRANGE METHOD OF -139 REM - INTERPOLATION -140 FOR J=1 TO P -150 T=1 -160 FOR I=1 TO P -170 IF I=J THEN 190 -180 T=T*(A-X(I))/(X(J)-X(I)) -190 NEXT I -200 B=B+T*Y(J) -210 NEXT J -219 REM - PRINT RESULTS -220 PRINT " y=";B -230 PRINT -239 REM - INTERPOLATE MORE POINTS ON SAME CURVE? -240 PRINT "MORE X ON THIS CURVE (1=YES, 0=NO)"; -250 INPUT C -260 IF C=1 THEN 100 -269 REM - RESTART OR END PROGRAM? -270 PRINT "MORE X ON ANOTHER CURVE (1=YES, 0=NO)"; -280 INPUT C -290 IF C=1 THEN 20 -300 END diff --git a/bwbtest/T80B/CURVINT.INP b/bwbtest/T80B/CURVINT.INP deleted file mode 100644 index c5fc358..0000000 --- a/bwbtest/T80B/CURVINT.INP +++ /dev/null @@ -1,7 +0,0 @@ -3 -1,2 -5,78 -9,123 -3 -0 -0 diff --git a/bwbtest/T80B/CURVINT.run b/bwbtest/T80B/CURVINT.run deleted file mode 100644 index 301e66c..0000000 --- a/bwbtest/T80B/CURVINT.run +++ /dev/null @@ -1,12 +0,0 @@ -CURVILINEAR INTERPOLATION - -NUMBER OF KNOWN POINTS? 3 -X,Y OF POINT 1 ? 1,2 -X,Y OF POINT 2 ? 5,78 -X,Y OF POINT 3 ? 9,123 - -INTERPOLATE: X=? 3 - y= 43.875 - -MORE X ON THIS CURVE (1=YES, 0=NO)? 0 -MORE X ON ANOTHER CURVE (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/DAY2DAY.BAS b/bwbtest/T80B/DAY2DAY.BAS deleted file mode 100644 index f9bcd11..0000000 --- a/bwbtest/T80B/DAY2DAY.BAS +++ /dev/null @@ -1,72 +0,0 @@ -10 PRINT "DAY BETWEEN TWO DATES" -20 PRINT -25 PRINT "USE MM,DD,YYYY" -29 REM - STATEMENTS 30 TO 60 REQUEST USER INPUT -30 PRINT "FIRST DATE"; -40 INPUT M1,D1,Y1 -50 PRINT "SECOND DATE"; -60 INPUT M2,D2,Y2 -69 REM - SET VARIABLES TO BE USED IN SUBROUTINE -70 M=M1 -80 D=D1 -90 Y=Y1 -100 GOSUB 230 -109 REM - SAVE COMPUTED NUMBER OF DAYS IN N -110 N=A -119 REM - SET VARIABLES TO BE USED IN SUBROUTINE -120 M=M2 -130 D=D2 -140 Y=Y2 -150 GOSUB 230 -159 REM - CALCULATE DIFFERENCE AND PRINT -160 N=A-N -170 PRINT "DIFFERENCE =";N;"DAYS" -180 PRINT -189 REM - RESTART OR END PROGRAM? -190 PRINT "MORE DATA (1=YES, 0=NO)"; -200 INPUT X -210 IF X=1 THEN 20 -219 REM - END PROGRAM -220 GOTO 460 -227 REM - SUBROUTINE TO COMPUTE NUMBER OF DAYS SINCE 0,0,0 TO M,D,Y -228 REM - START WITH TEST FOR UNREAL DATE -229 REM - GO TO CORRECT TEST DEPENDING ON NUMBER OF DAYS IN MONTH -230 ON M GOTO 260,280,260,340,260,340,260,260,340,260,340,260 -239 REM - IF THIS MESSAGE IS PRINTED THE ANSWER IS PROBABLY INCORRECT -240 PRINT "UNREAL DATE" -249 REM - STOP CALCULATIONS, RETURN TO MAIN PROGRAM -250 RETURN -259 REM - MONTH HAS 31 DAYS -260 IF D>31 THEN 240 -270 GOTO 350 -279 REM - MONTH IS FEBRUARY; A LEAP YEAR? -280 IF Y/4=INT(Y/4) THEN 290 -290 IF Y/400=INT(Y/400) THEN 320 -300 IF Y/100=INT(Y/100) THEN 310 -309 REM - NOT A LEAP YEAR; MONTH HAS 28 DAYS -310 IF D>28 THEN 240 -319 REM - A LEAP YEAR; MONTH HAS 29 DAYS -320 IF D>29 THEN 240 -330 GOTO 350 -339 REM - MONTH HAS 30 DAYS -340 IF D>30 THEN 240 -349 REM - TABLE OF NUMBER OF DAYS FROM 1ST OF YEAR TO 1ST OF EACH MONTH -350 DATA 0,31,59,90,120,151,181,212,243,273,304,334 -360 RESTORE -369 REM - GET NUMBER OF DAYS FROM JAN 1 TO 1ST OF MONTH FROM DATA TABLE -370 READ A -379 REM - COMPUTE NUMBER OF DAYS FROM 0,0,0 TO M,D,Y -380 A=A+Y*365+INT(Y/4)+D+1-INT(Y/100)+INT(Y/400) -389 REM - POSSIBLY A LEAP YEAR? -390 IF INT(Y/4)=Y/4 THEN 410 -400 GOTO 450 -409 REM - CONTINUE TEST FOR LEAP YEAR -410 IF Y/400=INT(Y/400) THEN 430 -420 IF Y/100=INT(Y/100) THEN 440 -428 REM - YEAR IS A LEAP YEAR; -429 REM - IF MONTH IS JAN OR FEB ADJUST CALCULATED NUMBER OF DAYS -430 IF M>2 THEN 450 -440 A=A-1 -449 REM - END OF SUBROUTINE, RETURN TO MAIN PROGRAM -450 RETURN -460 END diff --git a/bwbtest/T80B/DAY2DAY.INP b/bwbtest/T80B/DAY2DAY.INP deleted file mode 100644 index b8137f7..0000000 --- a/bwbtest/T80B/DAY2DAY.INP +++ /dev/null @@ -1,3 +0,0 @@ -01,01,2015 -01,31,2015 -0 diff --git a/bwbtest/T80B/DAY2DAY.run b/bwbtest/T80B/DAY2DAY.run deleted file mode 100644 index 9c1a844..0000000 --- a/bwbtest/T80B/DAY2DAY.run +++ /dev/null @@ -1,8 +0,0 @@ -DAY BETWEEN TWO DATES - -USE MM,DD,YYYY -FIRST DATE? 01,01,2015 -SECOND DATE? 01,31,2015 -DIFFERENCE = 30 DAYS - -MORE DATA (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/DAYWEEK.BAS b/bwbtest/T80B/DAYWEEK.BAS deleted file mode 100644 index 50e5ecb..0000000 --- a/bwbtest/T80B/DAYWEEK.BAS +++ /dev/null @@ -1,43 +0,0 @@ -10 PRINT "DAY OF THE WEEK" -20 PRINT -29 REM - REQUEST USER INPUT -30 PRINT "(ENTER 0,0,0 TO END PROGRAM)" -40 PRINT "MONTH, DAY, YEAR (EX. 8,2,1979)"; -50 INPUT M,D,Y -59 REM - TEST FOR END OF PROGRAM -60 IF M<>0 THEN 100 -70 IF D<>0 THEN 100 -80 IF Y<>0 THEN 100 -90 GOTO 360 -99 REM - NEED TO ADJUST INPUT FOR CALCULATIONS? -100 IF M>2 THEN 130 -109 REM - ADJUST INPUT -110 M=M+12 -120 Y=Y-1 -129 REM - CALCULATE DAY NUMBER -130 N=D+2*M+INT(.6*(M+1))+Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+2 -140 N=INT((N/7-INT(N/7))*7+.5) -149 REM - FIND CORRECT DAY NUMBER, TRANSLATE TO DAY, PRINT -150 IF N>0 THEN 180 -160 PRINT "SATURDAY" -170 GOTO 340 -180 IF N>1 THEN 210 -190 PRINT "SUNDAY" -200 GOTO 340 -210 IF N>2 THEN 240 -220 PRINT "MONDAY" -230 GOTO 340 -240 IF N>3 THEN 270 -250 PRINT "TUESDAY" -260 GOTO 340 -270 IF N>4 THEN 300 -280 PRINT "WEDNESDAY" -290 GOTO 340 -300 IF N>5 THEN 330 -310 PRINT "THURSDAY" -320 GOTO 340 -330 PRINT "FRIDAY" -340 PRINT -349 REM - RESTART PROGRAM -350 GOTO 40 -360 END diff --git a/bwbtest/T80B/DAYWEEK.INP b/bwbtest/T80B/DAYWEEK.INP deleted file mode 100644 index 31130cf..0000000 --- a/bwbtest/T80B/DAYWEEK.INP +++ /dev/null @@ -1,2 +0,0 @@ -03,31,2015 -0,0,0 diff --git a/bwbtest/T80B/DAYWEEK.run b/bwbtest/T80B/DAYWEEK.run deleted file mode 100644 index 8afa70c..0000000 --- a/bwbtest/T80B/DAYWEEK.run +++ /dev/null @@ -1,7 +0,0 @@ -DAY OF THE WEEK - -(ENTER 0,0,0 TO END PROGRAM) -MONTH, DAY, YEAR (EX. 8,2,1979)? 03,31,2015 -TUESDAY - -MONTH, DAY, YEAR (EX. 8,2,1979)? 0,0,0 diff --git a/bwbtest/T80B/DEGRAD.BAS b/bwbtest/T80B/DEGRAD.BAS deleted file mode 100644 index 432597b..0000000 --- a/bwbtest/T80B/DEGRAD.BAS +++ /dev/null @@ -1,20 +0,0 @@ -10 PRINT "ANGLE CONVERSION: DEGREES TO RADIANS" -20 PRINT -30 PRINT "(TO END PROGRAM ENTER 0,0,0)" -40 PRINT "ANGLE IN DEGREES,MINUTES,SECONDS"; -50 INPUT D,M,S -59 REM - TEST FOR END OF PROGRAM -60 IF D<>0 THEN 100 -70 IF M<>0 THEN 100 -80 IF S<>O THEN 100 -90 GOTO 150 -99 REM - CONVERT DEGREES, MINUTES, SECONDS TO DEGREES -100 A=D+M/60+S/3600 -109 REM - CALCULATE NUMBER OF COMPLETE CIRCLES -110 R=INT(A/360) -119 REM - CALCULATE ANGLE WITHIN 360 DEGREES, PRINT -120 PRINT "RADIANS =";A*.01745329-R*6.2831853 -130 PRINT -139 REM - RESTART PROGRAM -140 GOTO 40 -150 END diff --git a/bwbtest/T80B/DEGRAD.INP b/bwbtest/T80B/DEGRAD.INP deleted file mode 100644 index 1a761f4..0000000 --- a/bwbtest/T80B/DEGRAD.INP +++ /dev/null @@ -1,2 +0,0 @@ -23,45,56 -0,0,0 diff --git a/bwbtest/T80B/DEGRAD.run b/bwbtest/T80B/DEGRAD.run deleted file mode 100644 index 8a5d21c..0000000 --- a/bwbtest/T80B/DEGRAD.run +++ /dev/null @@ -1,7 +0,0 @@ -ANGLE CONVERSION: DEGREES TO RADIANS - -(TO END PROGRAM ENTER 0,0,0) -ANGLE IN DEGREES,MINUTES,SECONDS? 23,45,56 -RADIANS = .414787 - -ANGLE IN DEGREES,MINUTES,SECONDS? 0,0,0 diff --git a/bwbtest/T80B/DEPAMT.BAS b/bwbtest/T80B/DEPAMT.BAS deleted file mode 100644 index 45321a7..0000000 --- a/bwbtest/T80B/DEPAMT.BAS +++ /dev/null @@ -1,25 +0,0 @@ -10 PRINT "DEPRECIATION AMOUNT" -20 PRINT -30 PRINT "ORGINAL PRICE"; -40 INPUT P -50 PRINT "DEPRECIATION RATE"; -60 INPUT I -69 REM - CONVERT FROM PERCENT TO DECIMAL -70 I=I/100 -80 PRINT "--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--" -90 PRINT "YEAR"; -100 INPUT Y -109 REM - THROUGH CALATING FOR THIS ITEM? -110 IF Y=0 THEN 160 -119 REM -CALCULATE DEPRCIATION AMOUNT BY FORMULA -120 D=P*I*(1-I)[(Y-1) -129 REM - ROUND OFF TO NEAREST CENT, PRINT -130 PRINT "DEPRECIATION = $";INT(D*100+.5)/100 -140 PRINT -149 REM - RETURN FOR NEXT YEAR NUMBER -150 GOTO 90 -159 REM - RESTART OR END PROGRAM? -160 PRINT "MORE DATA (1=YES, 0=NO)"; -170 INPUT X -180 IF X=1 THEN 20 -190 END diff --git a/bwbtest/T80B/DEPAMT.INP b/bwbtest/T80B/DEPAMT.INP deleted file mode 100644 index e64695e..0000000 --- a/bwbtest/T80B/DEPAMT.INP +++ /dev/null @@ -1,9 +0,0 @@ -1234 -15 -1 -2 -3 -4 -5 -0 -0 diff --git a/bwbtest/T80B/DEPAMT.run b/bwbtest/T80B/DEPAMT.run deleted file mode 100644 index dbfacec..0000000 --- a/bwbtest/T80B/DEPAMT.run +++ /dev/null @@ -1,22 +0,0 @@ -DEPRECIATION AMOUNT - -ORGINAL PRICE? 1234 -DEPRECIATION RATE? 15 ---(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)-- -YEAR? 1 -DEPRECIATION = $ 185.1 - -YEAR? 2 -DEPRECIATION = $ 157.33 - -YEAR? 3 -DEPRECIATION = $ 133.73 - -YEAR? 4 -DEPRECIATION = $ 113.67 - -YEAR? 5 -DEPRECIATION = $ 96.62 - -YEAR? 0 -MORE DATA (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/DEPRATE.BAS b/bwbtest/T80B/DEPRATE.BAS deleted file mode 100644 index 5b7673d..0000000 --- a/bwbtest/T80B/DEPRATE.BAS +++ /dev/null @@ -1,18 +0,0 @@ -10 PRINT "DEPRECIATION RATE" -20 PRINT -30 PRINT "ORIGINAL PRICE"; -40 INPUT P -50 PRINT "RESALE PRICE"; -60 INPUT T -70 PRINT "YEARS"; -80 INPUT Y -89 REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TO PERCENT -90 D=100*(1-(T/P)[(1/Y)) -99 REM - ROUND OFF, PRINT -100 PRINT "DEPRECIATION RATE =";INT(1000*D+.5)/1000;"%" -110 PRINT -119 REM - RESTART OR END PROGRAM? -120 PRINT "MORE DATA (1=YES, 0=NO)"; -130 INPUT X -140 IF X=1 THEN 20 -150 END diff --git a/bwbtest/T80B/DEPRATE.INP b/bwbtest/T80B/DEPRATE.INP deleted file mode 100644 index 82b1d1e..0000000 --- a/bwbtest/T80B/DEPRATE.INP +++ /dev/null @@ -1,4 +0,0 @@ -1234 -567 -8 -0 diff --git a/bwbtest/T80B/DEPRATE.run b/bwbtest/T80B/DEPRATE.run deleted file mode 100644 index 11af072..0000000 --- a/bwbtest/T80B/DEPRATE.run +++ /dev/null @@ -1,8 +0,0 @@ -DEPRECIATION RATE - -ORIGINAL PRICE? 1234 -RESALE PRICE? 567 -YEARS? 8 -DEPRECIATION RATE = 9.263 % - -MORE DATA (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/DEPRSKED.BAS b/bwbtest/T80B/DEPRSKED.BAS deleted file mode 100644 index 85016a9..0000000 --- a/bwbtest/T80B/DEPRSKED.BAS +++ /dev/null @@ -1,97 +0,0 @@ -10 PRINT "TAX DEPRECIATION SCHEDULE" -20 PRINT -29 REM - ENTER INITIAL VALUE AND ROUND OFF TO NEAREST CENT -30 PRINT "PURCHASE PRICE"; -40 INPUT V -50 V=INT(V*100+.5)/100 -59 REM - ENTER END VALUE AND ROUND OFF TO NEAREST CENT -60 PRINT "SALVAGE VALUE"; -70 INPUT S -80 S=INT(S*100+.5)/100 -89 REM - COMPUTE AMOUNT TO DEPRECIATE -90 D=V-S -99 REM - ENTER LENGTH OF DEPRECIATION -100 PRINT "LIFE IN YEARS"; -110 INPUT Y -119 REM - CHOOSE DEPRECIATION METHOD -120 PRINT "ENTER 1 FOR SUM OF DIGITS, 2 FOR DECLINING BALANCE"; -130 INPUT X -140 IF X=2 THEN 450 -150 IF X<>1 THEN 120 -158 REM - BY SUM OF DIGITS METHOD -159 REM - R1 IS THE CUMULATIVE AMOUNT DEPRECIATED -160 R1=0 -169 REM - N IS THE PRINTED LINE COUNTER -170 N=66 -180 PRINT -190 PRINT -200 FOR I=1 TO Y -209 REM - TEST FOR FULL PAGE -210 IF N<55 THEN 330 -219 REM - FULL PAGE; SPACE TO TOP OF NEXT PAGE AND PRINT HEADINGS -220 FOR I1=N TO 66 -230 PRINT -240 NEXT I1 -250 N=7 -260 PRINT " SUM OF DIGITS TAX DEPRECIATION" -270 PRINT " PRICE $";V -280 PRINT " SALVAGE VALUE $";S -290 PRINT " NET DEPRECIATED $";V-S -300 PRINT " LIFE";Y;"YEARS" -310 PRINT -320 PRINT "YEAR","DEPRECIATION","BALANCE" -329 REM - COMPUTE DEPECIATION AND ROUND OFF TO NEAREST CENT -330 R=2*D*(Y-I+1)/((Y+1)*Y) -340 R=INT(R*100+.5)/100 -349 REM - ACCUMULATE DEPRECIATION -350 R1=R1+R -360 B=D-R1 -369 REM - TEST FOR COMPLETE DEPRECIATION -370 IF B>=0 THEN 410 -380 R1=R1+B -390 R=R+B -400 B=0 -410 PRINT I,R,B -420 N=N+1 -430 NEXT I -440 GOTO 700 -448 REM - BY DECLINING BALANCE METHOD -449 REM - ENTER DECLINING BALANCE PERCENT -450 PRINT "METHOD IN %"; -460 INPUT M -469 REM - CONVERT PERCENT TO DECIMAL -470 M=M/100 -479 REM - N COUNTS THE LINES PRINTED ON EACH PAGE -480 N=66 -489 REM - R IS THE AMOUNT LEFT TO DEPRECIATE -490 R=D -500 PRINT -510 FOR I=1 TO Y -519 REM - TEST FOR A FULL PRINTED PAGE -520 IF N<55 THEN 650 -529 REM - FULL PAGE; SPACE TO TOP OF NEXT PAGE AND PRINT HEADINGS -530 FOR I1=N TO 66 -540 PRINT -550 NEXT I1 -560 N=8 -570 PRINT " DECLINING BALANCE TAX DEPRECIATION" -580 PRINT " PRICE $";V -590 PRINT " SALVAGE VALUE $";S -600 PRINT " NET DEPRECIATED $";D -610 PRINT " LIFE";Y;"YEARS" -620 PRINT " METHOD ";M*100;"%" -630 PRINT -640 PRINT "YEAR","DEPRECIATION","BALANCE" -649 REM - COMPUTE DEPRECIATION AND ROUND OFF TO THE NEAREST CENT -650 R1=INT((R*M/Y)*100+.5)/100 -659 REM - ACCUMULATE REMAINING BALANCE -660 R=R-R1 -670 PRINT I,R1,R -680 N=N+1 -690 NEXT I -700 PRINT -709 REM - RESTART OR END PROGRAM? -710 PRINT "MORE DATA?(1=YES, 0=NO)"; -720 INPUT X -730 IF X=1 THEN 20 -740 END diff --git a/bwbtest/T80B/DEPRSKED.INP b/bwbtest/T80B/DEPRSKED.INP deleted file mode 100644 index 1fda167..0000000 --- a/bwbtest/T80B/DEPRSKED.INP +++ /dev/null @@ -1,11 +0,0 @@ -1234 -567 -8 -1 -1 -1234 -567 -8 -2 -15 -0 diff --git a/bwbtest/T80B/DEPRSKED.run b/bwbtest/T80B/DEPRSKED.run deleted file mode 100644 index e9157ef..0000000 --- a/bwbtest/T80B/DEPRSKED.run +++ /dev/null @@ -1,52 +0,0 @@ -TAX DEPRECIATION SCHEDULE - -PURCHASE PRICE? 1234 -SALVAGE VALUE? 567 -LIFE IN YEARS? 8 -ENTER 1 FOR SUM OF DIGITS, 2 FOR DECLINING BALANCE? 1 - - - - SUM OF DIGITS TAX DEPRECIATION - PRICE $ 1234 - SALVAGE VALUE $ 567 - NET DEPRECIATED $ 667 - LIFE 8 YEARS - -YEAR DEPRECIATION BALANCE - 1 148.22 518.78 - 2 129.69 389.09 - 3 111.17 277.92 - 4 92.64 185.28 - 5 74.11 111.17 - 6 55.58 55.59 - 7 37.06 18.53 - 8 18.53 0 - -MORE DATA?(1=YES, 0=NO)? 1 - -PURCHASE PRICE? 1234 -SALVAGE VALUE? 567 -LIFE IN YEARS? 8 -ENTER 1 FOR SUM OF DIGITS, 2 FOR DECLINING BALANCE? 2 -METHOD IN %? 15 - - - DECLINING BALANCE TAX DEPRECIATION - PRICE $ 1234 - SALVAGE VALUE $ 567 - NET DEPRECIATED $ 667 - LIFE 8 YEARS - METHOD 15 % - -YEAR DEPRECIATION BALANCE - 1 12.51 654.49 - 2 12.27 642.22 - 3 12.04 630.18 - 4 11.82 618.36 - 5 11.59 606.77 - 6 11.38 595.39 - 7 11.16 584.23 - 8 10.95 573.28 - -MORE DATA?(1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/DERIV.80.X b/bwbtest/T80B/DERIV.80.X deleted file mode 100644 index cd2e8a9..0000000 --- a/bwbtest/T80B/DERIV.80.X +++ /dev/null @@ -1,13 +0,0 @@ -0000000 4544 4952 4156 4954 4556 0a0a 4528 544e -0000020 5245 5820 393d 3939 3939 5420 204f 4e45 -0000040 2044 5250 474f 4152 294d 440a 5245 5649 -0000060 5441 5649 2045 5441 5820 3f3d 3120 2e32 -0000100 3433 200a 2020 2020 2020 2020 2020 2020 -0000120 2020 2020 2020 4920 2053 3432 392e 3430 -0000140 2034 440a 5245 5649 5441 5649 2045 5441 -0000160 5820 3f3d 3520 2e36 3837 200a 2020 2020 -0000200 2020 2020 2020 2020 2020 2020 2020 4920 -0000220 2053 3131 2e33 3333 2031 440a 5245 5649 -0000240 5441 5649 2045 5441 5820 3f3d 3920 3939 -0000260 3939 000a -0000263 diff --git a/bwbtest/T80B/DERIV.BAS b/bwbtest/T80B/DERIV.BAS deleted file mode 100644 index 7828354..0000000 --- a/bwbtest/T80B/DERIV.BAS +++ /dev/null @@ -1,21 +0,0 @@ -10 PRINT "DERIVATIVE" -20 PRINT -30 REM - ENTER DEFFNC(x) HERE -35 DEF FNC(X)=X[2+COS(X) -40 PRINT "(ENTER X=99999 TO END PROGRAM)" -50 PRINT "DERIVATIVE AT X="; -60 INPUT X1 -69 REM - TEST FOR END OF PROGRAM -70 IF X1=99999 THEN 160 -80 D=0 -89 REM - CALCULATE DIFFERENCE QUOTIENTS FOR POINTS APPROACHINGX -90 FOR N=1 TO 10 -100 D1=D -110 X=X1+.5[N -120 D=(FNC(X)-FNC(X1))/(X-X1) -130 NEXT N -139 REM - APPROXIMATE DERIVATIVE OF FUNCTION AT X, PRINT -140 PRINT " IS";2*D-D1 -149 REM - RESTART PROGRAM -150 GOTO 50 -160 END diff --git a/bwbtest/T80B/DERIV.INP b/bwbtest/T80B/DERIV.INP deleted file mode 100644 index 20a4d4c..0000000 --- a/bwbtest/T80B/DERIV.INP +++ /dev/null @@ -1,3 +0,0 @@ -12.34 -56.78 -99999 diff --git a/bwbtest/T80B/DERIV.run b/bwbtest/T80B/DERIV.run deleted file mode 100644 index f8560b9..0000000 --- a/bwbtest/T80B/DERIV.run +++ /dev/null @@ -1,8 +0,0 @@ -DERIVATIVE - -(ENTER X=99999 TO END PROGRAM) -DERIVATIVE AT X=? 12.34 - IS 24.9044 -DERIVATIVE AT X=? 56.78 - IS 113.331 -DERIVATIVE AT X=? 99999 diff --git a/bwbtest/T80B/DERIV.run.X b/bwbtest/T80B/DERIV.run.X deleted file mode 100644 index 5173355..0000000 --- a/bwbtest/T80B/DERIV.run.X +++ /dev/null @@ -1,34 +0,0 @@ -0000000 4544 4952 4156 4954 4556 2020 2020 2020 -0000020 2020 2020 2020 2020 2020 2020 2020 2020 -* -0000120 200a 2020 2020 2020 2020 2020 2020 2020 -0000140 2020 2020 2020 2020 2020 2020 2020 2020 -* -0000240 0a20 4528 544e 5245 5820 393d 3939 3939 -0000260 5420 204f 4e45 2044 5250 474f 4152 294d -0000300 2020 2020 2020 2020 2020 2020 2020 2020 -* -0000360 2020 440a 5245 5649 5441 5649 2045 5441 -0000400 5820 3f3d 3120 2e32 3433 2020 2020 2020 -0000420 2020 2020 2020 2020 2020 2020 2020 2020 -* -0000500 2020 0a20 2020 2020 2020 2020 2020 2020 -0000520 2020 2020 2020 2020 5349 3220 2e34 3039 -0000540 3434 2020 2020 2020 2020 2020 2020 2020 -0000560 2020 2020 2020 2020 2020 2020 2020 2020 -* -0000620 2020 2020 440a 5245 5649 5441 5649 2045 -0000640 5441 5820 3f3d 3520 2e36 3837 2020 2020 -0000660 2020 2020 2020 2020 2020 2020 2020 2020 -* -0000740 2020 2020 0a20 2020 2020 2020 2020 2020 -0000760 2020 2020 2020 2020 2020 5349 3120 3331 -0001000 332e 3133 2020 2020 2020 2020 2020 2020 -0001020 2020 2020 2020 2020 2020 2020 2020 2020 -* -0001060 2020 2020 2020 440a 5245 5649 5441 5649 -0001100 2045 5441 5820 3f3d 3920 3939 3939 2020 -0001120 2020 2020 2020 2020 2020 2020 2020 2020 -* -0001200 2020 2020 2020 0a20 -0001210 diff --git a/bwbtest/T80B/EARNINT.BAS b/bwbtest/T80B/EARNINT.BAS deleted file mode 100644 index 0aee247..0000000 --- a/bwbtest/T80B/EARNINT.BAS +++ /dev/null @@ -1,117 +0,0 @@ -10 PRINT "EARNED INTEREST TABLE" -20 PRINT -29 REM - STATEMENTS 30 TO 230 REQUEST USER INPUT -30 PRINT "PRINCIPAL"; -40 INPUT P -50 PRINT "NOMINAL INTEREST RATE"; -60 INPUT I -69 REM - CONVERT PERCENT TO DECIMAL -70 I=I/100 -80 PRINT "NUMBER OF DEPOSITS/WITHDRAWALS PER YEAR"; -90 INPUT N1 -99 REM - DON'T ASK FOR AMOUNT IF FREQUENCY IS ZERO -100 IF N1=0 THEN 160 -108 REM - DEPOSITS ARE ENTERED AS A POSITIVE NUMBER -109 REM - WITHDRAWALS ARE ENTERED AS A NEGATIVE NUMBER -110 PRINT "AMOUNT OF DEPOSIT/WITHDRAWAL"; -120 INPUT R -129 REM - INTEREST IS COMPOUNED DAILY -130 N=360 -139 REM - PRINT AT EACH DEPOSIT/WITHDRAWAL -140 L2=N1 -150 GOTO 200 -160 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"; -170 INPUT N -180 N1=0 -189 REM - PRINT FOUR TIMES PER YEAR -190 L2=4 -200 PRINT "START WITH WHAT YEAR"; -210 INPUT X -220 PRINT "END PRINTING WITH WHAT YEAR"; -230 INPUT Y -239 REM - START PRINTING AT THE BEGINNING OF A YEAR -240 X=INT (X) -249 REM - INITIATE RUNNING TOTALS -250 B0=P -260 I1=0 -270 I2=0 -280 I3=0 -290 K=66 -300 P1=4 -310 FOR J0=1 TO INT(Y) +1 -319 REM - START PRINTING? -320 IF J0N1 THEN 560 -529 REM - TIME TO MAKE DEPOSIT/WITHDRAWAL? -530 IF N2/N1>J1/N THEN 560 -539 REM - CALCULATE NEW BALANCE -540 B0=B0+R -549 REM - COUNT DEPOSIT/WITHDRAWALS MADE PER YEAR -550 N2=N2+1 -560 B2=B0*(1+I/N) -569 REM - I1=AMOUNT INTEREST WITH EACH COMPOUNDING PERIOD -570 I1=B2-B0 -579 REM - I3=AMOUNT INTEREST ACCUMULATED BETWEEN POSTING -580 I3=I3+I1 -589 REM - I2=TOTAL INTEREST ACCUMULATED TO DATE -590 I2=I2+I1 -599 REM - ROUND AT INTEREST POSTING TIME -600 IF P2/P1>J1/N THEN 640 -610 I2=FNR(I2) -620 B2=FNR(B2) -630 P2=P2+1 -639 REM - YEAR TO START PRINTING? -640 IF J0=Y THEN 780 -730 NEXT J1 -739 REM - START PRINTING? -740 IF J0=1 THEN 310 -300 X=1-X -310 PRINT "PERCENTILE =";1-X -320 PRINT -330 GOTO 40 -340 END diff --git a/bwbtest/T80B/FDIST.INP b/bwbtest/T80B/FDIST.INP deleted file mode 100644 index a901d4e..0000000 --- a/bwbtest/T80B/FDIST.INP +++ /dev/null @@ -1,7 +0,0 @@ -1.2 -3 -4 -5.6 -7 -8 -0 diff --git a/bwbtest/T80B/FDIST.run b/bwbtest/T80B/FDIST.run deleted file mode 100644 index 38f57a3..0000000 --- a/bwbtest/T80B/FDIST.run +++ /dev/null @@ -1,14 +0,0 @@ -F-DISTRIBUTION - -(TO END PROGRAM ENTER AN F-VALUE OF 0) -F-VALUE? 1.2 -DEGREES OF FREEDOM IN NUMERATOR? 3 -DEGREES OF FREEDOM IN DENOMINATOR? 4 -PERCENTILE = .5831 - -F-VALUE? 5.6 -DEGREES OF FREEDOM IN NUMERATOR? 7 -DEGREES OF FREEDOM IN DENOMINATOR? 8 -PERCENTILE = .986 - -F-VALUE? 0 diff --git a/bwbtest/T80B/FEDTAX.BAS b/bwbtest/T80B/FEDTAX.BAS deleted file mode 100644 index c8b0cad..0000000 --- a/bwbtest/T80B/FEDTAX.BAS +++ /dev/null @@ -1,70 +0,0 @@ -10 PRINT "FEDERAL WITHHOLDING TAXES" -20 PRINT -27 REM - THE FOLLOWING DATA CONTAINS THE TAX TABLES FROM IRS CIRCULAR -28 REM - E, PERCENTAGE METHOD, TABLE 7 (ANNUAL PAYROLL PERIOD) -29 REM - FOR SINGLE PERSONS -30 DATA 16,1300,20,3500,23,6000,21,9500,26,12500,30,14500,36,18000 -39 REM - FOR MARRIED PERSONS -40 DATA 17,2500,20,5000,17,9000,25,13750,28,18000,32,22500,36,26000 -49 REM - F1=FICA RATE AS DECIMAL -50 F1=.0585 -59 REM - F2=FICA CUTOFF AMOUNT -60 F2=16500 -69 REM - W1=AMOUNT OF WITHHOLDING ALLOWANCE (ANNUAL PAYROLL) -70 W1=750 -79 REM - N=NUMBER OF PAY PERIODS PER YEAR -80 N=12 -89 REM - LOAD THE TAX TABLE ARRAYS FROM DATA TABLES -90 DIM F9(28) -100 FOR I=1 TO 28 -110 READ F9(I) -120 NEXT I -130 PRINT -139 REM - STATEMENTS 140 TO 210 REQUEST PERTINENT EMPLOYEE DATA -140 PRINT "MARITAL STATUS (1=SINGLE, 2=MARRIED)"; -150 INPUT S -160 PRINT "WITHHOLDING TAX EXEMPTIONS"; -170 INPUT W -180 PRINT "TAXABLE PAY"; -190 INPUT P -199 REM - Y=TOTAL TAXABLE PAY THIS YEAR, EXCLUDING CURRENT PAYCHECK -200 PRINT "YTD TAXABLE PAY"; -210 INPUT Y -219 REM - ANNUALIZE CURRENT TAXABLE PAY, ADJUST FOR EXEMPTIONS -220 G=P*N-W1*W -230 T1=0 -239 REM - CALCULATE INCOME TAX -240 FOR I=2 TO 7 -250 X=2*I+14*(S-1)-1 -260 IF G<=F9(X-1) THEN 330 -270 IF G>F9(X+1) THEN 300 -280 T1=T1+(G-F9(X-1))*F9(X-2)/100 -290 GOTO 330 -300 T1=T1+(F9(X+1)-F9(X-1))*F9(X-2)/100 -310 NEXT I -315 T1=T1+(G-F9(X+1))*F9(X)/100 -320 T1=T1+(G-F9(X+1))*F9(X)/100 -329 REM - ROUND OFF TO NEAREST CENT -330 T1=INT((T1/N)*100+.5)/100 -340 T2=0 -349 REM - CALCULATE FICA -350 IF Y>F2 THEN 400 -360 IF Y+P>F2 THEN 390 -370 T2=INT((P*F1)*100+.5)/100 -380 GOTO 400 -389 REM - ROUND OFF TO NEAREST CENT -390 T2=INT(((F2-Y)*F1)*100+.5)/100 -399 REM - PRINT RESULTS -400 PRINT "TAXABLE = $";P -410 PRINT "INCOME TAX = $";T1 -420 PRINT "FICA = $";T2 -430 PRINT -439 REM - RESTART OR END PROGRAM? -440 PRINT "MORE DATA (1=YES, 0=NO)"; -450 INPUT S -460 IF S=1 THEN 130 -470 END -900 REM ---------------------- -910 REM Changes for bwBASIC -920 REM renamed F1() to F9() -999 END diff --git a/bwbtest/T80B/FEDTAX.INP b/bwbtest/T80B/FEDTAX.INP deleted file mode 100644 index 6b32738..0000000 --- a/bwbtest/T80B/FEDTAX.INP +++ /dev/null @@ -1,5 +0,0 @@ -2 -2 -12345 -12345 -0 diff --git a/bwbtest/T80B/FEDTAX.run b/bwbtest/T80B/FEDTAX.run deleted file mode 100644 index b5f089d..0000000 --- a/bwbtest/T80B/FEDTAX.run +++ /dev/null @@ -1,12 +0,0 @@ -FEDERAL WITHHOLDING TAXES - - -MARITAL STATUS (1=SINGLE, 2=MARRIED)? 2 -WITHHOLDING TAX EXEMPTIONS? 2 -TAXABLE PAY? 12345 -YTD TAXABLE PAY? 12345 -TAXABLE = $ 12345 -INCOME TAX = $ 7694.65 -FICA = $ 243.07 - -MORE DATA (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/FUTVALDE.BAS b/bwbtest/T80B/FUTVALDE.BAS deleted file mode 100644 index 1c6862e..0000000 --- a/bwbtest/T80B/FUTVALDE.BAS +++ /dev/null @@ -1,25 +0,0 @@ -10 PRINT "FUTURE VALUE OF REGULAR DEPOSIT (ANNUITY)" -20 PRINT -29 REM -STATEMENTS 30 TO 100 REQUEST USER INPUT -30 PRINT "AMOUNT OF REGULAR DEPOSITS"; -40 INPUT R -50 PRINT "NOMINAL INTEREST RATE"; -60 INPUT I -70 PRINT "NUMBER OF DEPOSITS PER YEAR"; -80 INPUT N -90 PRINT "NUMBER OF YEARS"; -100 INPUT Y -108 REM -CALCULATE INTEREST RATE PER DEPOSIT , -109 REM -CONVERT FROM PERCENT TO DECIMAL -110 I=I/N/100 -119 REM -CALCULATE FUTURE VALUE BY FORMULA -120 T=R*((1+I)[(N*Y)-1)/I -129 REM -ROUND OFF TO NEAREST CENT, PRINT -130 PRINT "FUTURE VALUE = $"; INT(T*100+.5)/100 -139 REM -PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION -140 PRINT -149 REM -RESTART OR END PROGRAM? USER INPUT REQUIRED -150 PRINT "MORE DATA? (1=YES, 0=NO)"; -160 INPUT X -170 IF X=1 THEN 20 -180 END diff --git a/bwbtest/T80B/FUTVALDE.INP b/bwbtest/T80B/FUTVALDE.INP deleted file mode 100644 index f4ffc3d..0000000 --- a/bwbtest/T80B/FUTVALDE.INP +++ /dev/null @@ -1,5 +0,0 @@ -1234 -5.6 -12 -34 -0 diff --git a/bwbtest/T80B/FUTVALDE.run b/bwbtest/T80B/FUTVALDE.run deleted file mode 100644 index 36091ae..0000000 --- a/bwbtest/T80B/FUTVALDE.run +++ /dev/null @@ -1,9 +0,0 @@ -FUTURE VALUE OF REGULAR DEPOSIT (ANNUITY) - -AMOUNT OF REGULAR DEPOSITS? 1234 -NOMINAL INTEREST RATE? 5.6 -NUMBER OF DEPOSITS PER YEAR? 12 -NUMBER OF YEARS? 34 -FUTURE VALUE = $ 1.50275E+6 - -MORE DATA? (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/FUTVALIN.BAS b/bwbtest/T80B/FUTVALIN.BAS deleted file mode 100644 index ae84c37..0000000 --- a/bwbtest/T80B/FUTVALIN.BAS +++ /dev/null @@ -1,31 +0,0 @@ -1 REM ALL THESE PROGRAMS ON THIS TAPE ARE FULLY DOCUMENTED -2 REM IN "SOME COMMON BASIC PROGRAMS" BY LON POOLE AND MARY -3 REM BORCHERS (OSBORNE & ASSOCIATES, 630 BANCROFT WAY, -4 REM BERKELEY CA 94710 - $7.50 PLUS $.50 FOR U.P.S DELIVERY, -5 REM ELSE 4TH CLASS MAIL, COPYRIGHT 1977, OSBORNE & ASSOC.) -6 REM USED BY PERMISSION. -10 PRINT "FUTURE VALUE OF AN INVESTMENT" -20 PRINT -29 REM -STATEMENTS 30 TO 100 REQUEST USER INPUT -30 PRINT "INITIAL INVESTMENT"; -40 INPUT P -50 PRINT "NOMINAL INTEREST RATE"; -60 INPUT I -70 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"; -80 INPUT N -90 PRINT "NUMBER OF YEARS"; -100 INPUT Y -108 REM - CALCULATE INTEREST RATE PER PERIOD; -109 REM - CONVERT FROM PERCENT TO DECIMAL -110 I=I/N/100 -119 REM -CALCULATE FUTURE VALUE BY FORMULA -120 T=P*(1+I)[(N*Y) -129 REM - ROUND OFF TO NEAREST CENT, PRInt -130 PRINT "FUTURE VALUE=$"; INT(T*100+.5)/100 -139 REM -PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION -140 PRINT -149 REM -RESTART OR END PROGRAM? USER INPUT REQUIRED -150 PRINT "MORE DATA? (1=YES,0=NO)"; -160 INPUT X -170 IF X=1 THEN 20 -180 END diff --git a/bwbtest/T80B/FUTVALIN.INP b/bwbtest/T80B/FUTVALIN.INP deleted file mode 100644 index a97e588..0000000 --- a/bwbtest/T80B/FUTVALIN.INP +++ /dev/null @@ -1,5 +0,0 @@ -12345 -6.7 -12 -34 -0 diff --git a/bwbtest/T80B/FUTVALIN.run b/bwbtest/T80B/FUTVALIN.run deleted file mode 100644 index 3dbe07e..0000000 --- a/bwbtest/T80B/FUTVALIN.run +++ /dev/null @@ -1,9 +0,0 @@ -FUTURE VALUE OF AN INVESTMENT - -INITIAL INVESTMENT? 12345 -NOMINAL INTEREST RATE? 6.7 -NUMBER OF COMPOUNDING PERIODS PER YEAR? 12 -NUMBER OF YEARS? 34 -FUTURE VALUE=$ 119691. - -MORE DATA? (1=YES,0=NO)? 0 diff --git a/bwbtest/T80B/GCD.BAS b/bwbtest/T80B/GCD.BAS deleted file mode 100644 index 71c71cb..0000000 --- a/bwbtest/T80B/GCD.BAS +++ /dev/null @@ -1,23 +0,0 @@ -10 PRINT "GREATEST COMMON DENOMINATOR" -20 PRINT -30 PRINT "(ENTER 0,0 TO END PROGRAM)" -40 PRINT "ENTER TWO NUMBERS"; -50 INPUT A,B -59 REM - END PROGRAM? -60 IF A<>0 THEN 90 -70 IF B<>0 THEN 90 -80 GOTO 190 -89 REM - CALCULATE GCD ACCORDING TO EUCLIDEAN ALGORITHM, PRINT RESULT -90 A=ABS(A) -100 B=ABS(B) -110 R=A-B*INT(A/B) -120 IF R=0 THEN 160 -130 A=B -140 B=R -150 GOTO 110 -160 PRINT "G.C.D:";B -169 REM - PRINT BLANK LINE TO SEPARATE SETS OF DATA -170 PRINT -179 REM - RESTART PROGRAM -180 GOTO 40 -190 END diff --git a/bwbtest/T80B/GCD.INP b/bwbtest/T80B/GCD.INP deleted file mode 100644 index 4ee3169..0000000 --- a/bwbtest/T80B/GCD.INP +++ /dev/null @@ -1,2 +0,0 @@ -75,125 -0,0 diff --git a/bwbtest/T80B/GCD.run b/bwbtest/T80B/GCD.run deleted file mode 100644 index 5bfaf6b..0000000 --- a/bwbtest/T80B/GCD.run +++ /dev/null @@ -1,7 +0,0 @@ -GREATEST COMMON DENOMINATOR - -(ENTER 0,0 TO END PROGRAM) -ENTER TWO NUMBERS? 75,125 -G.C.D: 25 - -ENTER TWO NUMBERS? 0,0 diff --git a/bwbtest/T80B/GEOMEAN.BAS b/bwbtest/T80B/GEOMEAN.BAS deleted file mode 100644 index cfeaccd..0000000 --- a/bwbtest/T80B/GEOMEAN.BAS +++ /dev/null @@ -1,26 +0,0 @@ -10 PRINT "GEOMETRIC MEAN AND DEVIATION" -20 PRINT -30 PRINT "(TO END PROGRAM ENTER 0 OBSEVATIONS)" -40 PRINT "NUMBER OF OBSERVATIONS"; -50 INPUT N -59 REM - TEST FOR END OF PROGRAM -60 IF N=0 THEN 200 -69 REM - COMPUTE WHICH ROOT TO USE -70 P=1/N -80 M=1 -90 FOR I=1 TO N -100 PRINT "ITEM";I; -110 INPUT D -119 REM - ITERATIVELY COMPUTE MEAN -120 M=M*D[P -129 REM - ACCUMULATE INTERMEDIATE TERM FOR DEVIATION -130 Q=Q+LOG(D)[2 -140 NEXT I -149 REM - COMPUTE DEVIATION -150 R=EXP(SQR(Q/(N-1)-(N/(N-1)*(LOG(M))[2))) -160 PRINT "GEOMETRIC MEAN =";M -170 PRINT "GEOMETRIC DEVIATION =";R -180 PRINT -189 REM - RESTART PROGRAM -190 GOTO 40 -200 END diff --git a/bwbtest/T80B/GEOMEAN.INP b/bwbtest/T80B/GEOMEAN.INP deleted file mode 100644 index 4492243..0000000 --- a/bwbtest/T80B/GEOMEAN.INP +++ /dev/null @@ -1,5 +0,0 @@ -3 -11 -23 -84 -0 diff --git a/bwbtest/T80B/GEOMEAN.run b/bwbtest/T80B/GEOMEAN.run deleted file mode 100644 index fa748e8..0000000 --- a/bwbtest/T80B/GEOMEAN.run +++ /dev/null @@ -1,11 +0,0 @@ -GEOMETRIC MEAN AND DEVIATION - -(TO END PROGRAM ENTER 0 OBSEVATIONS) -NUMBER OF OBSERVATIONS? 3 -ITEM 1 ? 11 -ITEM 2 ? 23 -ITEM 3 ? 84 -GEOMETRIC MEAN = 27.6992 -GEOMETRIC DEVIATION = 2.79864 - -NUMBER OF OBSERVATIONS? 0 diff --git a/bwbtest/T80B/GEOREGR.BAS b/bwbtest/T80B/GEOREGR.BAS deleted file mode 100644 index 7baf598..0000000 --- a/bwbtest/T80B/GEOREGR.BAS +++ /dev/null @@ -1,46 +0,0 @@ -10 PRINT "GEOMETRIC REGRESSION" -20 PRINT -30 PRINT "NUMBER OF KNOWN POINTS"; -40 INPUT N -50 J=0 -60 K=0 -70 L=0 -80 M=0 -90 R2=0 -99 REM - ENTER COORDINATES OF DATA POINTS -100 FOR I=1 TO N -110 PRINT "X,Y OF POINT";I; -120 INPUT X,Y -129 REM - ACCUMLATE INTERMEDIATE VALUES -130 Y=LOG(Y) -140 X=LOG(X) -150 J=J+X -160 K=K+Y -170 L=L+X[2 -180 M=M+Y[2 -190 R2=R2+X*Y -200 NEXT I -209 REM - CALCULATE AND PRINT COEFFICIENTS OF EQUATION -210 B=(N*R2-K*J)/(N*L-J[2) -220 A=(K-B*J)/N -230 PRINT -240 PRINT "F(x) =";EXP(A);"* X[";B -249 REM - CALCULATE REGRESSION ANALYSIS -250 J=B*(R2-J*K/N) -260 M=M-K[2/N -270 K=M-J -280 PRINT -290 R2=J/M -300 PRINT "COEFFICIENT OF DETERMINATION (R[2) =";R2 -310 PRINT "COEFFICIENT OF CORRELATION =";SQR(R2) -320 PRINT "STANDARD ERROR OF ESTIMATE =";SQR(ABS(K/(N-2))) -330 PRINT -339 REM - ESTIMATE Y-COORDINATE FROM ENTERED X-COORDINATE -340 PRINT "INTERPOLATION: (ENTER X=0 TO END PROGRAM)" -350 PRINT "X ="; -360 INPUT X -370 IF X=0 THEN 410 -380 PRINT "Y =";EXP(A)*X[B -390 PRINT -400 GOTO 350 -410 END diff --git a/bwbtest/T80B/GEOREGR.INP b/bwbtest/T80B/GEOREGR.INP deleted file mode 100644 index 8dad360..0000000 --- a/bwbtest/T80B/GEOREGR.INP +++ /dev/null @@ -1,7 +0,0 @@ -3 -1,2 -2,34 -3,567 -1.5 -2.5 -0 diff --git a/bwbtest/T80B/GEOREGR.run b/bwbtest/T80B/GEOREGR.run deleted file mode 100644 index 097063a..0000000 --- a/bwbtest/T80B/GEOREGR.run +++ /dev/null @@ -1,21 +0,0 @@ -GEOMETRIC REGRESSION - -NUMBER OF KNOWN POINTS? 3 -X,Y OF POINT 1 ? 1,2 -X,Y OF POINT 2 ? 2,34 -X,Y OF POINT 3 ? 3,567 - -F(x) = 1.67799 * X[ 5.02694 - -COEFFICIENT OF DETERMINATION (R[2) = .978231 -COEFFICIENT OF CORRELATION = .989056 -STANDARD ERROR OF ESTIMATE = .589168 - -INTERPOLATION: (ENTER X=0 TO END PROGRAM) -X =? 1.5 -Y = 12.8822 - -X =? 2.5 -Y = 167.962 - -X =? 0 diff --git a/bwbtest/T80B/GROWRATE.BAS b/bwbtest/T80B/GROWRATE.BAS deleted file mode 100644 index 607549d..0000000 --- a/bwbtest/T80B/GROWRATE.BAS +++ /dev/null @@ -1,44 +0,0 @@ -10 PRINT "AVERAGE GROWTH RATE, FUTURE PROJECTIONS" -20 PRINT -29 REM - SET ARRAY S TO NUMBER OF YEARS PAST FIGURES KNOWN -30 DIM S(20) -39 REM - STATEMENTS 40 TO 120 REQUEST USER INPUT -40 PRINT "NUMBER OF YEARS FIGURES ESTABLISHED"; -50 INPUT N -60 FOR I=1 TO N -70 IF I>1 THEN 100 -80 PRINT "FIGURE: YEAR";I; -90 GOTO 110 -100 PRINT " yEAR";I; -110 INPUT S(I) -120 NEXT I -129 REM - INITIALIZE VARIABLES FOR FIRST YEAR -130 T=LOG(S(1)) -140 V=0 -149 REM - LOOP FOR REMAINING YEARS OF HISTORY -150 FOR I=2 TO N -160 L=LOG(S(I)) -170 T=T+L -180 V=V+(I-1)*L -190 NEXT I -199 REM - CALCULATE AVERAGE GROWTH RATE -200 A=6*(2*V/(N-1)-T)/(N)/(N+1) -210 G=EXP(A)-1 -219 REM - ROUND OFF, PRINT -220 PRINT "AVERAGE GROWTH RAT =";INT(G*10000+.5)/100;"%" -230 PRINT -239 REM - CALCULATE AVERAGE ANNUAL GROWTH FACTOR -240 S=EXP(T/N-A*(N-1)/2) -250 PRINT "(ENTER 0 TO END PROGRAM)" -259 REM - INPUT YEAR NUMBER -260 PRINT "PROJECTED SALES FOR YEAR"; -270 INPUT Y1 -279 REM - TEST FOR END OF PROGRAM -280 IF Y1=0 THEN 320 -289 REM - CALCULATE PROJECTED SALES FIGURE -290 S1=S*(1+G)[(Y1-1) -299 REM - ROUND OFF, PRINT -300 PRINT " =";INT(S1*100+.5)/100 -309 REM - RETURN FOR MORE DATA -310 GOTO 260 -320 END diff --git a/bwbtest/T80B/GROWRATE.INP b/bwbtest/T80B/GROWRATE.INP deleted file mode 100644 index 2f6ec06..0000000 --- a/bwbtest/T80B/GROWRATE.INP +++ /dev/null @@ -1,7 +0,0 @@ -3 -12 -345 -6789 -1.5 -2.5 -0 diff --git a/bwbtest/T80B/GROWRATE.run b/bwbtest/T80B/GROWRATE.run deleted file mode 100644 index 7fda063..0000000 --- a/bwbtest/T80B/GROWRATE.run +++ /dev/null @@ -1,14 +0,0 @@ -AVERAGE GROWTH RATE, FUTURE PROJECTIONS - -NUMBER OF YEARS FIGURES ESTABLISHED? 3 -FIGURE: YEAR 1 ? 12 - yEAR 2 ? 345 - yEAR 3 ? 6789 -AVERAGE GROWTH RAT = 2278.55 % - -(ENTER 0 TO END PROGRAM) -PROJECTED SALES FOR YEAR? 1.5 - = 62.34 -PROJECTED SALES FOR YEAR? 2.5 - = 1482.83 -PROJECTED SALES FOR YEAR? 0 diff --git a/bwbtest/T80B/INITINV.BAS b/bwbtest/T80B/INITINV.BAS deleted file mode 100644 index f7a21d4..0000000 --- a/bwbtest/T80B/INITINV.BAS +++ /dev/null @@ -1,25 +0,0 @@ -10 PRINT "INITAL INVESTMENT" -20 PRINT -29 REM - STATEMENT 30 TO 100 REQUEST USER INPUT -30 PRINT "TOTAL VALUE AFTER Y YEARS"; -40 INPUT T -50 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"; -60 INPUT N -70 PRINT "NUMBER OF YEARS"; -80 INPUT Y -90 PRINT "NOMINAL INTEREST RATE"; -100 INPUT I -108 REM -CALCULATE INTEREST RATE PER PERIOD; -109 REM -CONVERT FROM % TO DECIMAL -110 I=I/N/100 -119 REM - CALCULATE INITIAL INVESTMENT BY FORMULA -120 P=T/(1+I)[(N*Y) -129 REM -ROUND OFF TO NEAREST CENT, PRINT -130 PRINT "INITIAL = $";INT(P*100+.5)/100 -139 REM -PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION -140 PRINT -149 REM -RESTART OR END PROGRAM? USER INPUT REQUIRED -150 PRINT "MORE DATA? (1=YES,0=NO)"; -160 INPUT X -170 IF X=1 THEN 20 -180 END diff --git a/bwbtest/T80B/INITINV.INP b/bwbtest/T80B/INITINV.INP deleted file mode 100644 index 3630412..0000000 --- a/bwbtest/T80B/INITINV.INP +++ /dev/null @@ -1,5 +0,0 @@ -123456 -12 -7 -5 -0 diff --git a/bwbtest/T80B/INITINV.run b/bwbtest/T80B/INITINV.run deleted file mode 100644 index 4075423..0000000 --- a/bwbtest/T80B/INITINV.run +++ /dev/null @@ -1,9 +0,0 @@ -INITAL INVESTMENT - -TOTAL VALUE AFTER Y YEARS? 123456 -NUMBER OF COMPOUNDING PERIODS PER YEAR? 12 -NUMBER OF YEARS? 7 -NOMINAL INTEREST RATE? 5 -INITIAL = $ 87061.3 - -MORE DATA? (1=YES,0=NO)? 0 diff --git a/bwbtest/T80B/INTGGAUS.BAS b/bwbtest/T80B/INTGGAUS.BAS deleted file mode 100644 index 042f4ae..0000000 --- a/bwbtest/T80B/INTGGAUS.BAS +++ /dev/null @@ -1,36 +0,0 @@ -10 PRINT "INTEGRATION: GAUSSIAN QUADRATURE" -20 PRINT -30 REM - ENTER FUNCTION HERE (deffnc(x)="function") -35 DEF FNC(X)=X[3 -39 REM - ABCISSAS AND WEIGHT FACTORS FOR 20-POINT GUASSIAN INTEGRATION -40 DATA .076526521,.15275339,.22778585,.14917299,.37370609 -50 DATA .14209611,.510867,.13168864,.63605368,.11819453 -60 DATA .74633191,.10193012,.83911697,.083276742,.91223443 -70 DATA .062672048,.96397193,.04060143,.9931286,.017614007 -80 PRINT "INTEGRATION LIMITS (lower,UPPER)"; -90 INPUT X,Y -100 PRINT "NUMBER OF INTERVALS"; -110 INPUT N -120 S=(Y-X)/N/2 -130 T=X+S -140 R=0 -149 REM - COMPUTE INTEGRAL FOR EACH SUBINTERVAL -150 FOR I=1 TO N -160 P=0 -169 REM - COMPUTE SUMMATION FACTOR FOR EACH SUBINTERVAL -170 FOR J=1 TO 10 -180 READ A,B -190 P=P+B*(FNC(S*A+T)+FNC(T-S*A)) -200 NEXT J -210 RESTORE -220 R=R+P*S -230 T=T+2*S -240 NEXT I -250 PRINT "INTEGRAL =";R -260 PRINT -270 PRINT "CHANGE DATA AND RECOMPUTE?" -280 PRINT "(0=NO, 1=NEW INTEGRATION LIMITS, 2=NEW NO OF INTERVALS)"; -290 INPUT S -300 IF S=1 THEN 80 -310 IF S=2 THEN 100 -320 END diff --git a/bwbtest/T80B/INTGGAUS.INP b/bwbtest/T80B/INTGGAUS.INP deleted file mode 100644 index 6b3439e..0000000 --- a/bwbtest/T80B/INTGGAUS.INP +++ /dev/null @@ -1,3 +0,0 @@ -1,10 -25 -0 diff --git a/bwbtest/T80B/INTGGAUS.run b/bwbtest/T80B/INTGGAUS.run deleted file mode 100644 index 29e98d8..0000000 --- a/bwbtest/T80B/INTGGAUS.run +++ /dev/null @@ -1,8 +0,0 @@ -INTEGRATION: GAUSSIAN QUADRATURE - -INTEGRATION LIMITS (lower,UPPER)? 1,10 -NUMBER OF INTERVALS? 25 -INTEGRAL = 2499.75 - -CHANGE DATA AND RECOMPUTE? -(0=NO, 1=NEW INTEGRATION LIMITS, 2=NEW NO OF INTERVALS)? 0 diff --git a/bwbtest/T80B/INTGSIMP.BAS b/bwbtest/T80B/INTGSIMP.BAS deleted file mode 100644 index 57dc770..0000000 --- a/bwbtest/T80B/INTGSIMP.BAS +++ /dev/null @@ -1,43 +0,0 @@ -10 PRINT "INTEGRATION: SIMPSON'S RULE" -20 PRINT -30 PRINT "SELECTION: 1=KNOWN FORMULA, O=UNKNOWN FORMULA"; -40 INPUT S -49 REM - IF FUNCTION IS KNOWN ENTER AT LINE 50 (DEFFNC(x)="FUNCTION") -50 DEF FNC(X)=X -60 PRINT "LOWER, UPPER LIMIT OF INTEGRATION"; -70 INPUT A,B -80 PRINT "INCREMENT OF X"; -90 INPUT X1 -98 REM - INCREMENT MUST DIVIDE INTERVAL EQUAL SUBINTERVALS; -99 REM - IF NOT, CHANGE INCREMENT -100 IF (B-A)/X1<>INT((B-A)/X1) THEN 80 -110 IF S=1 THEN 150 -119 REM - FORMULA NOT KNOWN; ENTER FUNCTION VALUE AT INTEGRATION LIMITS -120 PRINT "FIRST, LAST VALUE OF F(x)"; -130 INPUT Y1,Y2 -140 GOTO 170 -149 REM - FORMULA KNOWN; CALCULATE F(x) AT INTEGRATION LIMITS -150 Y=FNC(A) -160 Y2=FNC(B) -170 C=0 -180 D=0 -189 REM - LOOP FOR EACH SUBINTERVAL -190 FOR I=1 TO (B-A)/X1-.5 -200 IF S=1 THEN 240 -209 REM - ENTER KNOWN FUNCTION VALUE AT EACH INTERVAL -210 PRINT "VALUE OF F(x) AT INTERVAL";I;"(x=";A+I*X1;")"; -220 INPUT Y -230 GOTO 250 -239 REM - CALCULATE F(x) AT EACH SUBINTERVAL -240 Y=FNC(A+I*X1) -249 REM - INTERVAL EVEN OR ODD? -250 IF I/2=INT(I/2) THEN 280 -259 REM - SUM ALL ODD-INTERVAL FUNCTION VALUES -260 C=C+Y -270 GOTO 290 -279 REM - SUM ALL EVEN INTEGRAL FUNCTION VALUES -280 D=D+Y -290 NEXT I -299 REM - COMPUTE INTEGRAL, PRINT -300 PRINT "INTEGRAL IS";X1/3*(Y1+4*C+2*D+Y2) -310 END diff --git a/bwbtest/T80B/INTGSIMP.INP b/bwbtest/T80B/INTGSIMP.INP deleted file mode 100644 index 252d59a..0000000 --- a/bwbtest/T80B/INTGSIMP.INP +++ /dev/null @@ -1,3 +0,0 @@ -1 -1,10 -0.5 diff --git a/bwbtest/T80B/INTGSIMP.run b/bwbtest/T80B/INTGSIMP.run deleted file mode 100644 index d3f8008..0000000 --- a/bwbtest/T80B/INTGSIMP.run +++ /dev/null @@ -1,6 +0,0 @@ -INTEGRATION: SIMPSON'S RULE - -SELECTION: 1=KNOWN FORMULA, O=UNKNOWN FORMULA? 1 -LOWER, UPPER LIMIT OF INTEGRATION? 1,10 -INCREMENT OF X? 0.5 -INTEGRAL IS 49.3333 diff --git a/bwbtest/T80B/INTGTRAP.BAS b/bwbtest/T80B/INTGTRAP.BAS deleted file mode 100644 index 4f41701..0000000 --- a/bwbtest/T80B/INTGTRAP.BAS +++ /dev/null @@ -1,23 +0,0 @@ -10 PRINT "INTEGRATION: TRAPEZOIDAL RULE" -20 PRINT -30 REM - ENTER FUNCTION HERE (DEFFNC(x)="function") -35 DEF FNC(X)=X[3 -40 PRINT "(ENTER 0,0 TO END PROGRAM)" -50 PRINT "INTEGRATION LIMITS (Lower, UPPER)"; -60 INPUT A,B -69 REM - END PROGRAM? -70 IF A=B THEN 190 -80 PRINT "number OF INTERVALS"; -90 INPUT N -100 I=0 -110 D=(B-A)/N -119 REM - ADD UP THE AREA OF EACH TRAPEZOID -120 FOR J=A TO B STEP D -130 I=I+FNC(J) -140 NEXT J -149 REM - COMPUTE INTEGRAL, PRINT -150 I=(I-(FNC(A)+FNC(B))/2)*D -160 PRINT "integral =";I -170 PRINT -180 GOTO 50 -190 END diff --git a/bwbtest/T80B/INTGTRAP.INP b/bwbtest/T80B/INTGTRAP.INP deleted file mode 100644 index f583312..0000000 --- a/bwbtest/T80B/INTGTRAP.INP +++ /dev/null @@ -1,3 +0,0 @@ -1,10 -25 -0,0 diff --git a/bwbtest/T80B/INTGTRAP.run b/bwbtest/T80B/INTGTRAP.run deleted file mode 100644 index eb8ab54..0000000 --- a/bwbtest/T80B/INTGTRAP.run +++ /dev/null @@ -1,8 +0,0 @@ -INTEGRATION: TRAPEZOIDAL RULE - -(ENTER 0,0 TO END PROGRAM) -INTEGRATION LIMITS (Lower, UPPER)? 1,10 -number OF INTERVALS? 25 -integral = 2502.96 - -INTEGRATION LIMITS (Lower, UPPER)? 0,0 diff --git a/bwbtest/T80B/LABELS.BAS b/bwbtest/T80B/LABELS.BAS deleted file mode 100644 index 38c9f10..0000000 --- a/bwbtest/T80B/LABELS.BAS +++ /dev/null @@ -1,11 +0,0 @@ -1 FOR X=1 TO 15 -10 LPRINT "Michael G. Walraven, Ph.D." -20 LPRINT "9955 Reynolds Road" -30 LPRINT "Horton, MI 49246" -40 LPRINT "": LPRINT "": LPRINT "" -50 LPRINT "Ms. Sandy Schmidt, Editor" -60 LPRINT "Wm. C. Brown Company Publishers" -70 LPRINT "5712 Odana Road" -80 LPRINT "Madison, WI 53719" -90 LPRINT "": LPRINT "" -100 NEXT X diff --git a/bwbtest/T80B/LABELS.INP b/bwbtest/T80B/LABELS.INP deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/T80B/LABELS.run b/bwbtest/T80B/LABELS.run deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/T80B/LASTPAY.BAS b/bwbtest/T80B/LASTPAY.BAS deleted file mode 100644 index 3508092..0000000 --- a/bwbtest/T80B/LASTPAY.BAS +++ /dev/null @@ -1,33 +0,0 @@ -10 PRINT "LAST PAYMENT ON A LOAN" -20 PRINT -29 REM - STATEMENTS 30 TO 130 REQUEST USER INPUT -30 PRINT "REGULAR PAYMENT"; -40 INPUT R -50 PRINT "PRINCIPAL"; -60 INPUT P -70 PRINT "TERM IN YEARS"; -80 INPUT Y -90 PRINT "ANNUAL INTEREST RATE"; -100 INPUT I -109 REM - CONVERT INTEREST FROM PERCENT TO DECIMAL -110 I=I/100 -120 PRINT "NUMBER OF PAYMENTS PER YEAR"; -130 INPUT N -140 B0=P -149 REM - COMPUTE ALL PAYMENTS, BALANCES THROUGH LAST PAYMENT USING R -150 FOR J1=1 TO N*Y -159 REM - ROUND OFF INTEREST PAID TO NEAREST CENT -160 I1=INT((B0*I/N)*100+.5)/100 -169 REM - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT -170 A=R-I1 -179 REM - BALANCE REMAINING DECREASES WITH EACH PAYMENT -180 B0=B0-A -190 NEXT J1 -199 REM - CALCULATE LAST PAYMENT, ROUND OFF, PRINT -200 PRINT "LAST PAYMENT = $" ;INT((R+B0)*100+.5)/100 -210 PRINT -219 REM - RESTART OR END PROGRAM? -220 PRINT "MORE DATA? (1=YES,0=NO)"; -230 INPUT X -240 IF X=1 THEN 20 -250 END diff --git a/bwbtest/T80B/LASTPAY.INP b/bwbtest/T80B/LASTPAY.INP deleted file mode 100644 index c13568b..0000000 --- a/bwbtest/T80B/LASTPAY.INP +++ /dev/null @@ -1,6 +0,0 @@ -1234 -456789 -30 -3.5 -12 -0 diff --git a/bwbtest/T80B/LASTPAY.run b/bwbtest/T80B/LASTPAY.run deleted file mode 100644 index c6d5917..0000000 --- a/bwbtest/T80B/LASTPAY.run +++ /dev/null @@ -1,10 +0,0 @@ -LAST PAYMENT ON A LOAN - -REGULAR PAYMENT? 1234 -PRINCIPAL? 456789 -TERM IN YEARS? 30 -ANNUAL INTEREST RATE? 3.5 -NUMBER OF PAYMENTS PER YEAR? 12 -LAST PAYMENT = $ 520485. - -MORE DATA? (1=YES,0=NO)? 0 diff --git a/bwbtest/T80B/LINCORCO.BAS b/bwbtest/T80B/LINCORCO.BAS deleted file mode 100644 index 9180219..0000000 --- a/bwbtest/T80B/LINCORCO.BAS +++ /dev/null @@ -1,25 +0,0 @@ -10 PRINT "LINEAR CORRELATION COEFFICIENT" -20 PRINT -30 PRINT "NUMBER OF POINTS"; -40 INPUT N -50 J=0 -60 K=0 -70 L=0 -80 M=0 -90 R=0 -99 REM - ENTER COORDINATES OF DATA POINTS -100 FOR I=1 TO N -110 PRINT "X,Y OF POINT";I; -120 INPUT X,Y -129 REM - ACCUMULATE INTERMEDIATE VALUES -130 J=J+X -140 K=K+Y -150 L=L+X[2 -160 M=M+Y[2 -170 R=R+X*Y -180 NEXT I -189 REM - CALCULATE COEFFICIENT, PRINT -190 R2=(N*R-J*K)/SQR((N*L-J[2)*(N*M-K[2)) -200 PRINT -210 PRINT "COEFFICIENT OF CORRELATION =";R2 -220 END diff --git a/bwbtest/T80B/LINCORCO.INP b/bwbtest/T80B/LINCORCO.INP deleted file mode 100644 index bba06ec..0000000 --- a/bwbtest/T80B/LINCORCO.INP +++ /dev/null @@ -1,4 +0,0 @@ -3 -1,2 -3,7 -5,15 diff --git a/bwbtest/T80B/LINCORCO.run b/bwbtest/T80B/LINCORCO.run deleted file mode 100644 index 5453380..0000000 --- a/bwbtest/T80B/LINCORCO.run +++ /dev/null @@ -1,8 +0,0 @@ -LINEAR CORRELATION COEFFICIENT - -NUMBER OF POINTS? 3 -X,Y OF POINT 1 ? 1,2 -X,Y OF POINT 2 ? 3,7 -X,Y OF POINT 3 ? 5,15 - -COEFFICIENT OF CORRELATION = .991241 diff --git a/bwbtest/T80B/LINEPROG.BAS b/bwbtest/T80B/LINEPROG.BAS deleted file mode 100644 index da4269b..0000000 --- a/bwbtest/T80B/LINEPROG.BAS +++ /dev/null @@ -1,116 +0,0 @@ -10 PRINT "LINEAR PROGRAMMING" -20 PRINT -28 REM - SEE DISCUSSION FOR A DESCRRIPTION OF HOW LINE 30 LIMITS THE -29 REM - NUMBWER OF VARIABLES AND CONSTRAITS -30 DIM A(10,14), B(15) -39 REM - LINES 40 TO 70 INPUT THE SIZE OF THE PROBLEM -40 PRINT "NUMBER OF VARIABLES"; -50 INPUT V -60 PRINT "NUMBER OF CONTRAINTS"; -70 INPUT C -79 REM - LINES 80 TO 180 INPUT THE CONSTRAINTS -80 PRINT "MATRIX ELEMENTS:" -90 FOR I=2 TO C+1 -100 PRINT "CONSTRAINT";I-1 -110 FOR J=1 TO V -120 PRINT " COEFFICIENT";J; -130 INPUT A(I,J) -140 NEXT J -149 REM - FOR A '<' RELATION USE 1; FOR A '>' RELATION USE -1 -150 PRINT " RELATION (1 OR -1)"; -160 INPUT A(I,V+1) -170 PRINT " CONSTANT"; -180 INPUT A(I,V+2) -188 REM - INTRODUCE ARTIFICIAL VARIABLES BY MOVING RELATION AND -189 REM - CONSTANTS TO THE END OF THE ROW -190 A(I,C+V+1)=A(I,V+2) -200 A(I,V+2)=0 -210 IF I=2 THEN 240 -220 A(I,V+I-1)=A(I,V+1) -230 A(I,V+1)=0 -240 NEXT I -249 REM - LINES 250 TO 310 INPUT THE OBJECTIVE FUNCTION -250 PRINT -260 PRINT "FUNCTION:" -270 FOR I=1 TO V -280 PRINT " COEFFICIENT";I; -290 INPUT A(1,I) -300 NEXT I -310 PRINT -320 M=1 -330 FOR I=1 TO V -340 B(I)=1 -350 NEXT I -358 REM - LINES 360 TO 430 SUM ALL CONSTRAINTS WITH '>' RELATION -359 REM - IN LAST ROW OF A() -360 FOR I=2 TO C+1 -370 IF A(I,V+I-1)<>-1 THEN 430 -380 B(V+I-1)=1 -390 FOR J=1 TO C+V -400 A(C+2,J)=A(C+2,J)-A(I,J) -410 NEXT J -420 M=C+2 -430 NEXT I -439 REM - LINES 440 TO 690 FIND THE NEXT PIVOT ELEMENT -440 P=1 -450 R=1 -460 FOR I=2 TO C+V -470 IF A(M,I)=A(M,R)THEN 510 -500 R=I -510 NEXT I -520 IF A(M,R)<0 THEN 570 -530 IF M=1 THEN 880 -540 IF A(M,P)>.0001 THEN 840 -550 M=1 -560 GOTO 440 -570 P=1 -580 FOR I=2 TO C+1 -590 IF A(I,R)<=0 THEN 640 -600 Z=A(I,C+V+1)/A(I,R) -610 IF P=1 THEN 630 -620 IF Z>=A(P,C+V+1)/A(P,R) THEN 640 -630 P=I -640 NEXT I -650 IF P=1 THEN 860 -660 FOR I=1 TO V+C -670 IF B(I)=1 THEN 690 -680 IF A(P,I)=1 THEN 700 -690 NEXT I -699 REM - LINES 700 TO 830 PERFORM THE PIVOT OPERATION -700 B(I)=1 -710 B(R)=0 -720 Z=A(P,R) -730 FOR I=1 TO V+C+1 -740 A(P,I)=A(P,I)/Z -750 NEXT I -760 FOR I=1 TO C+2 -770 IF I=P THEN 820 -780 Z=A(I,R) -790 FOR J=1 TO V+C+1 -800 A(I,J)=A(I,J)-Z*A(P,J) -810 NEXT J -820 NEXT I -830 GOTO 440 -840 PRINT "INFEASIBLE" -850 GOTO 1030 -860 PRINT "UNBOUNDED" -870 GOTO 1030 -879 REM - MAKE FINAL CALCULATIONS AND PRINT -880 FOR J=1 TO V -890 IF B(J)=0 THEN 920 -900 B(J)=0 -910 GOTO 960 -920 FOR I=2 TO C+1 -930 IF A(I,J)=1 THEN 950 -940 NEXT I -950 B(J)=A(I,V+C+1) -960 NEXT J -970 Z=A(1,V+C+1) -980 PRINT -990 PRINT "FUNCTION =";Z*(-1) -1000 FOR I=1 TO V -1010 PRINT "X(";I;")=";B(I) -1020 NEXT I -1030 END diff --git a/bwbtest/T80B/LINEPROG.INP b/bwbtest/T80B/LINEPROG.INP deleted file mode 100644 index 6d5d079..0000000 --- a/bwbtest/T80B/LINEPROG.INP +++ /dev/null @@ -1,12 +0,0 @@ -2 -2 -1.1 -2.2 -1 -7 -3.3 -4.4 --1 -8 -5.5 -6.6 diff --git a/bwbtest/T80B/LINEPROG.run b/bwbtest/T80B/LINEPROG.run deleted file mode 100644 index 18a9ab5..0000000 --- a/bwbtest/T80B/LINEPROG.run +++ /dev/null @@ -1,24 +0,0 @@ -LINEAR PROGRAMMING - -NUMBER OF VARIABLES? 2 -NUMBER OF CONTRAINTS? 2 -MATRIX ELEMENTS: -CONSTRAINT 1 - COEFFICIENT 1 ? 1.1 - COEFFICIENT 2 ? 2.2 - RELATION (1 OR -1)? 1 - CONSTANT? 7 -CONSTRAINT 2 - COEFFICIENT 1 ? 3.3 - COEFFICIENT 2 ? 4.4 - RELATION (1 OR -1)? -1 - CONSTANT? 8 - -FUNCTION: - COEFFICIENT 1 ? 5.5 - COEFFICIENT 2 ? 6.6 - - -FUNCTION = 12. -X( 1 )= 0 -X( 2 )= 1.81818 diff --git a/bwbtest/T80B/LININT.BAS b/bwbtest/T80B/LININT.BAS deleted file mode 100644 index 1444f16..0000000 --- a/bwbtest/T80B/LININT.BAS +++ /dev/null @@ -1,24 +0,0 @@ -10 PRINT "LINEAR INTERPOLATION" -20 PRINT -29 REM - ENTER X- AND Y-COORDINATES OF TWO POINTS ON THE LINE -30 PRINT "X,Y OF FIRST POINT"; -40 INPUT X1,Y1 -50 PRINT "X,Y OF SECOND POINT"; -60 INPUT X2,Y2 -69 REM - ENTER X-COORDINATE OF POINT TO BE INTERPOLATED -70 PRINT "INTERPOLATE: X="; -80 INPUT X -89 REM - COMPUTE CORRESPONDING Y-COORDINATE -90 Y=Y1+(Y2-Y1)/(X2-X1)*(X-X1) -99 REM - ROUND OFF, PRINT -100 PRINT " Y = ";INT(Y*1000+.5)/1000 -110 PRINT -120 PRINT "MORE POINTS ON THIS LINE (1=yes, 0=NO)"; -130 INPUT Z -140 PRINT -150 IF Z=1 THEN 70 -159 REM - INTERPOLATE ON ANOTHER LINE? -160 PRINT "NEW LINE (1=YES, 0=NO)"; -170 INPUT Z -180 IF Z=1 THEN 20 -190 END diff --git a/bwbtest/T80B/LININT.INP b/bwbtest/T80B/LININT.INP deleted file mode 100644 index df3aed1..0000000 --- a/bwbtest/T80B/LININT.INP +++ /dev/null @@ -1,5 +0,0 @@ -1,2 -3,4 -2 -0 -0 diff --git a/bwbtest/T80B/LININT.run b/bwbtest/T80B/LININT.run deleted file mode 100644 index e40ab5c..0000000 --- a/bwbtest/T80B/LININT.run +++ /dev/null @@ -1,10 +0,0 @@ -LINEAR INTERPOLATION - -X,Y OF FIRST POINT? 1,2 -X,Y OF SECOND POINT? 3,4 -INTERPOLATE: X=? 2 - Y = 3 - -MORE POINTS ON THIS LINE (1=yes, 0=NO)? 0 - -NEW LINE (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/LINREGR.BAS b/bwbtest/T80B/LINREGR.BAS deleted file mode 100644 index 109b2aa..0000000 --- a/bwbtest/T80B/LINREGR.BAS +++ /dev/null @@ -1,45 +0,0 @@ -10 PRINT "LINEAR REGRESSION" -20 PRINT -30 PRINT "NUMBER OF KNOWN POINTS"; -40 INPUT N -50 J=0 -60 K=0 -70 L=0 -80 M=0 -90 R2=0 -99 REM -LOOP TO ENTER COORDINATES OF POINTS -100 FOR I=1 TO N -110 PRINT "X,Y OF POINT";I; -120 INPUT X,Y -129 REM - ACCUMULATE INTERMEDIATE SUMS -130 J=J+X -140 K=K+Y -150 L=L+X[2 -160 M=M+Y[2 -170 R2=R2+X*Y -180 NEXT I -189 REM - COMPUTE CURVE COEFFICIENT -190 B=(N*R2-K*J)/(N*L-J[2) -200 A=(K-B*J)/N -210 PRINT -220 PRINT "F(X) =";A;"+ (";B;"* x )" -229 REM - COMPUTE REGRESSION ANALYSIS -230 J=B*(R2-J*K/N) -240 M=M-K[2/N -250 K=M-J -260 PRINT -270 R2=J/M -280 PRINT "COEFFICIENT OF DETERMINATION (R[2) =";R2 -290 PRINT "COEFFICIENT OF CORRELATION =";SQR(R2) -300 PRINT "STANDARD ERROR OF ESTIMATE =";SQR(K/(N-2)) -310 PRINT -319 REM - ESTIMATE Y-COORDINATES OF POINTS WITH ENTERED X-COORDINATES -320 PRINT "INTERPOLATION: (ENTER X=0 TO END PROGRAM)" -330 PRINT"X ="; -340 INPUT X -349 REM - RESTART OR END PROGRAM? -350 IF X=0 THEN 390 -360 PRINT "Y =";A+B*X -370 PRINT -380 GOTO 330 -390 END diff --git a/bwbtest/T80B/LINREGR.INP b/bwbtest/T80B/LINREGR.INP deleted file mode 100644 index 9e9ba28..0000000 --- a/bwbtest/T80B/LINREGR.INP +++ /dev/null @@ -1,7 +0,0 @@ -3 -1,2 -3,4 -5,8 -2 -4 -0 diff --git a/bwbtest/T80B/LINREGR.run b/bwbtest/T80B/LINREGR.run deleted file mode 100644 index bb723c6..0000000 --- a/bwbtest/T80B/LINREGR.run +++ /dev/null @@ -1,21 +0,0 @@ -LINEAR REGRESSION - -NUMBER OF KNOWN POINTS? 3 -X,Y OF POINT 1 ? 1,2 -X,Y OF POINT 2 ? 3,4 -X,Y OF POINT 3 ? 5,8 - -F(X) = .166667 + ( 1.5 * x ) - -COEFFICIENT OF DETERMINATION (R[2) = .964286 -COEFFICIENT OF CORRELATION = .981981 -STANDARD ERROR OF ESTIMATE = .816497 - -INTERPOLATION: (ENTER X=0 TO END PROGRAM) -X =? 2 -Y = 3.16667 - -X =? 4 -Y = 6.16667 - -X =? 0 diff --git a/bwbtest/T80B/LOANBAL.BAS b/bwbtest/T80B/LOANBAL.BAS deleted file mode 100644 index 2792894..0000000 --- a/bwbtest/T80B/LOANBAL.BAS +++ /dev/null @@ -1,35 +0,0 @@ -10 PRINT "REMAINING BALANCE ON A LOAN" -20 PRINT -29 REM - STATEMENTS 30 TO 130 REQUEST USER INPUT -30 PRINT "REGULAR PAYMENT"; -40 INPUT R -50 PRINT "PRINCIPAL"; -60 INPUT P -70 PRINT "NUMBER OF PAYMENTS PER YEAR"; -80 INPUT N -90 PRINT "ANNUAL INTEREST RATE"; -100 INPUT I -109 REM - CONVERT FROM PERCENT TO DECIMAL -110 I=I/100 -119 REM - ENTER THE PAYMENT NUMBER WITHIN THE YEAR, I.E. N1<=N -120 PRINT "LAST PAYMENT MADE (PAYMENT NO. ,YEAR, I.E. 10,4)"; -130 INPUT N1,Y -139 REM - INITIALIZE REMAINING BALANCE -140 B0=P -149 REM - LOOP TO ACCUMULATE AMOUNT PAID SO FAR -150 FOR J1=1 TO N*(Y-1)+N1 -159 REM - CALCULATE INTEREST PAID WITH EACH PAYMENT -160 I1=INT((B0*I/N)*100+.5)/100 -169 REM - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT -170 A=R-I1 -179 REM - CALCULATE REMAINING BALANCE ON PRINCIPAL -180 B0=B0-A -190 NEXT J1 -199 REM - ROUND OFF, PRINT -200 PRINT "REMAINING BALANCE = $";INT(B0*100+.5)/100 -210 PRINT -219 REM - RESTART OR END PROGRAM? -220 PRINT "MORE DATA? (1=YES,0=NO)"; -230 INPUT X -240 IF X=1 THEN 20 -250 END diff --git a/bwbtest/T80B/LOANBAL.INP b/bwbtest/T80B/LOANBAL.INP deleted file mode 100644 index 61babc7..0000000 --- a/bwbtest/T80B/LOANBAL.INP +++ /dev/null @@ -1,6 +0,0 @@ -1234 -56789 -12 -3.25 -12,30 -0 diff --git a/bwbtest/T80B/LOANBAL.run b/bwbtest/T80B/LOANBAL.run deleted file mode 100644 index aef4eca..0000000 --- a/bwbtest/T80B/LOANBAL.run +++ /dev/null @@ -1,10 +0,0 @@ -REMAINING BALANCE ON A LOAN - -REGULAR PAYMENT? 1234 -PRINCIPAL? 56789 -NUMBER OF PAYMENTS PER YEAR? 12 -ANNUAL INTEREST RATE? 3.25 -LAST PAYMENT MADE (PAYMENT NO. ,YEAR, I.E. 10,4)? 12,30 -REMAINING BALANCE = $-600373. - -MORE DATA? (1=YES,0=NO)? 0 diff --git a/bwbtest/T80B/LOANPAY.BAS b/bwbtest/T80B/LOANPAY.BAS deleted file mode 100644 index 41766db..0000000 --- a/bwbtest/T80B/LOANPAY.BAS +++ /dev/null @@ -1,23 +0,0 @@ -10 PRINT "REGULAR PAYMENT ON A LOAN" -20 PRINT -29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT -30 PRINT "TERM IN YEARS"; -40 INPUT Y -50 PRINT "PRINCIPAL"; -60 INPUT P -70 PRINT "ANNUAL INTEREST RATE"; -80 INPUT I -90 PRINT "NUMBER OF PAYMENTS PER YEAR"; -100 INPUT N -108 REM - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA; -109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS -110 R=((I/100)*P/N)/(1-1/((I/100)/N+1)[(N*Y)) -119 REM - ROUND OFF TO NEAREST CENT, PRINT -120 PRINT "REGULAR PAYMENT = $"; INT(R*100+.5)/100 -129 REM -PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION -130 PRINT -139 REM - RESTART OR END PROGRAM? -140 PRINT "MORE DATA? (1=YES, 0=NO)"; -150 INPUT X -160 IF X=1 THEN 20 -170 END diff --git a/bwbtest/T80B/LOANPAY.INP b/bwbtest/T80B/LOANPAY.INP deleted file mode 100644 index f2d2138..0000000 --- a/bwbtest/T80B/LOANPAY.INP +++ /dev/null @@ -1,5 +0,0 @@ -30 -456789 -3.75 -12 -0 diff --git a/bwbtest/T80B/LOANPAY.run b/bwbtest/T80B/LOANPAY.run deleted file mode 100644 index 89f4e24..0000000 --- a/bwbtest/T80B/LOANPAY.run +++ /dev/null @@ -1,9 +0,0 @@ -REGULAR PAYMENT ON A LOAN - -TERM IN YEARS? 30 -PRINCIPAL? 456789 -ANNUAL INTEREST RATE? 3.75 -NUMBER OF PAYMENTS PER YEAR? 12 -REGULAR PAYMENT = $ 2115.46 - -MORE DATA? (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/LOANRATE.BAS b/bwbtest/T80B/LOANRATE.BAS deleted file mode 100644 index 2b8b21a..0000000 --- a/bwbtest/T80B/LOANRATE.BAS +++ /dev/null @@ -1,44 +0,0 @@ -10 PRINT "ANNUAL INTEREST RATE ON A LOAN" -20 PRINT -29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT -30 PRINT "REGULAR PAYMENT"; -40 INPUT R -50 PRINT "TERM IN YEARS"; -60 INPUT Y -70 PRINT "PRINCIPAL"; -80 INPUT P -90 PRINT "NUMBER OF PAYMENTS PER YEAR"; -100 INPUT N -109 REM - GUESS AN INTEREST RATE (10%) TO INITIATE TESTING -110 I=10 -119 REM - I2=LAST GUESS OR ESTIMATE (START WITH 0) -120 I2=0 -129 REM - COMPUTE REGULAR PAYMENT USING GUESSED INTEREST RATE -130 R1=(I*P/N)/(1-1/((I/N+1)[(N*Y))) -139 REM - ROUND OFF TO NEAREST CENT -140 R1=INT(R1*100+.5)/100 -149 REM - I3=NUMBER USED TO CLOSE IN ON INTEREST RATE -150 I3=ABS(I-I2)/2 -159 REM - SAVE THIS GUESS -160 I2=I -168 REM - COMPARE COMPUTED PAYMENT (R1) TO INPUT PAYMENT (R); -169 REM - IF THEY'RE EQUAL, LAST RATE GUESS=APPROXIMATE REG. PAYMENT -170 IF R1=R THEN 230 -180 IF R1>R THEN 210 -189 REM - R1R, RATE MUST BE LOWER THAN LAST GUESS -210 I=I-I3 -219 REM - RETEST WITH NEW GUESS -220 GOTO 130 -229 REM - COMPUTE INTEREST TO PROPER PROPORTIONS, ROUND OFF, PRINT -230 I=((INT((I*1000)*100+.5))/100)/1000 -240 PRINT "ANNUAL INTEREST RATE =";I*100;"%" -250 PRINT -259 REM - RESTART OR END PROGRAM? -260 PRINT "MORE DATA? (1=YES, 0=NO)"; -270 INPUT X -280 IF X=1 THEN 20 -290 END diff --git a/bwbtest/T80B/LOANRATE.INP b/bwbtest/T80B/LOANRATE.INP deleted file mode 100644 index 3eda29a..0000000 --- a/bwbtest/T80B/LOANRATE.INP +++ /dev/null @@ -1,5 +0,0 @@ -2345 -30 -456789 -12 -0 diff --git a/bwbtest/T80B/LOANRATE.run b/bwbtest/T80B/LOANRATE.run deleted file mode 100644 index 9744add..0000000 --- a/bwbtest/T80B/LOANRATE.run +++ /dev/null @@ -1,9 +0,0 @@ -ANNUAL INTEREST RATE ON A LOAN - -REGULAR PAYMENT? 2345 -TERM IN YEARS? 30 -PRINCIPAL? 456789 -NUMBER OF PAYMENTS PER YEAR? 12 -ANNUAL INTEREST RATE = 4.612 % - -MORE DATA? (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/LOANTERM.BAS b/bwbtest/T80B/LOANTERM.BAS deleted file mode 100644 index 5ec482b..0000000 --- a/bwbtest/T80B/LOANTERM.BAS +++ /dev/null @@ -1,22 +0,0 @@ -10 PRINT "TERM OF A LOAN" -20 PRINT -29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT -30 PRINT "REGULAR PAYMENT"; -40 INPUT R -50 PRINT "PRINCIPAL"; -60 INPUT P -70 PRINT "ANNUAL INTEREST RATE"; -80 INPUT I -90 PRINT "NUMBER OF PAYMENTS PER YEAR"; -100 INPUT N -108 REM - CALCULATE TERM IN YEARS BY FORMULA; -109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATION -110 Y=-(LOG(1-(P*(I/100))/(N*R))/(LOG(1+I/100/N)*N)) -119 REM - ROUND OFF TO NEAREST TENTH, PRINT -120 PRINT "TERM =";INT(Y*10+.5)/10;"YEARS" -130 PRINT -139 REM - RESTART OR END PROGRAM? -140 PRINT "MORE DATA? (1=YES, 0=NO)"; -150 INPUT X -160 IF X=1 THEN 20 -170 END diff --git a/bwbtest/T80B/LOANTERM.INP b/bwbtest/T80B/LOANTERM.INP deleted file mode 100644 index dca5f5f..0000000 --- a/bwbtest/T80B/LOANTERM.INP +++ /dev/null @@ -1,5 +0,0 @@ -2345 -456789 -3.5 -12 -0 diff --git a/bwbtest/T80B/LOANTERM.run b/bwbtest/T80B/LOANTERM.run deleted file mode 100644 index ca6b557..0000000 --- a/bwbtest/T80B/LOANTERM.run +++ /dev/null @@ -1,9 +0,0 @@ -TERM OF A LOAN - -REGULAR PAYMENT? 2345 -PRINCIPAL? 456789 -ANNUAL INTEREST RATE? 3.5 -NUMBER OF PAYMENTS PER YEAR? 12 -TERM = 24 YEARS - -MORE DATA? (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/MANNWHIT.BAS b/bwbtest/T80B/MANNWHIT.BAS deleted file mode 100644 index c6a4dc5..0000000 --- a/bwbtest/T80B/MANNWHIT.BAS +++ /dev/null @@ -1,80 +0,0 @@ -10 PRINT "MANN-WHITNEY U-TEST" -20 PRINT -28 REM - SET MAXIMUM SAMPEL SIZE TO X(m),Y(n) (WHERE -29 REM - M=MAXIMUM SIZE OF SAMPLE 1, N=MAXIMUM SIZE OF SAMPLE TWO -30 DIM X(25),Y(25) -40 DIM N(2) -49 REM - INPUT THE TWO SAMPELS -50 FOR I=1 TO 2 -60 PRINT "SAMPLE";I;":" -70 PRINT " SIZE"; -80 INPUT N(I) -90 FOR J=1 TO N(I) -100 PRINT " DATA";J; -110 INPUT Y(J) -120 NEXT J -129 REM - SORT EACH SAMPLE -130 FOR J=1 TO N(I) -140 FOR K=1 TO N(I)-J -150 C=Y(K) -160 D=Y(K+1) -170 IF Y(K)N(1) THEN 580 -340 IF J>N(2) THEN 620 -350 IF X(I)N(1) THEN 480 -450 IF X(I)<>X(I-1) THEN 480 -460 I=I+1 -470 GOTO 510 -480 IF J>N(2) THEN 550 -490 IF Y(J)<>Y(J-1) THEN 550 -500 J=J+1 -510 R1=R1+R -520 R=R+1 -530 K=K+1 -540 GOTO 440 -550 X=X+(I-M)*R1/K -560 Y=Y+(J-L)*R1/K -570 GOTO 330 -580 IF J>N(2) THEN 660 -590 Y=Y+R -600 J=J+1 -610 GOTO 640 -620 X=X+R -630 I=I+1 -640 R=R+1 -650 GOTO 330 -659 REM - U1=NUMBER OF TIMES SAMPLE 1 SCORES PRECEED SAMPLE 2 SCORES -660 U1=N(1)*N(2)+N(1)*(N(1)+1)/2-X -669 REM - U1=NUMBER OF TIMES SAMPLE 2 SCORES PRECEED SAMPLE 1 SCORES -670 U2=N(1)*N(2)+N(2)*(N(2)+1)/2-Y -680 PRINT -690 PRINT "FIRST SAMPLE PRECEEDING, U =";U1 -700 PRINT "SECOND SAMPLE PRECEEDING, U =";U2 -710 END diff --git a/bwbtest/T80B/MANNWHIT.INP b/bwbtest/T80B/MANNWHIT.INP deleted file mode 100644 index 2319f26..0000000 --- a/bwbtest/T80B/MANNWHIT.INP +++ /dev/null @@ -1,10 +0,0 @@ -4 -1.234 -9.2342 -7.2323 -7.45645 -4 -9.234234 -8.665455 -6.293842 -3.202345 diff --git a/bwbtest/T80B/MANNWHIT.run b/bwbtest/T80B/MANNWHIT.run deleted file mode 100644 index 1ea07b4..0000000 --- a/bwbtest/T80B/MANNWHIT.run +++ /dev/null @@ -1,19 +0,0 @@ -MANN-WHITNEY U-TEST - -SAMPLE 1 : - SIZE? 4 - DATA 1 ? 1.234 - DATA 2 ? 9.2342 - DATA 3 ? 7.2323 - DATA 4 ? 7.45645 - -SAMPLE 2 : - SIZE? 4 - DATA 1 ? 9.234234 - DATA 2 ? 8.665455 - DATA 3 ? 6.293842 - DATA 4 ? 3.202345 - - -FIRST SAMPLE PRECEEDING, U = 9 -SECOND SAMPLE PRECEEDING, U = 7 diff --git a/bwbtest/T80B/MAPCHECK.BAS b/bwbtest/T80B/MAPCHECK.BAS deleted file mode 100644 index b2005d3..0000000 --- a/bwbtest/T80B/MAPCHECK.BAS +++ /dev/null @@ -1,136 +0,0 @@ -10 PRINT "MAP CHECK" -20 PRINT -29 REM - CLEAR AREA, SET INITIAL GRID COORDINATES, COURSE SET SIZE -30 DIM B(10),L(10) -40 DEF FNR(X)=INT(X*1000+.5)/1000 -50 R=.0174532925199 -60 K2=10 -70 PRINT "**NEXT SET OF COURSES**" -80 FOR K1=1 TO K2 -89 REM - INPUT NEXT COURSE -90 GOSUB 1100 -100 IF Q=0 THEN 120 -110 NEXT K1 -119 REM - ALLOW CHANGES TO LAST SET OF COURSES -120 K1=0 -130 PRINT "CHANGE COURSE NUMBER"; -140 INPUT K1 -149 REM - NO MORE CHANGES IF 0 WAS ENTERED -150 IF K1=0 THEN 180 -160 GOSUB 1100 -170 GOTO 120 -179 REM - CALCULATE AND PRINT THIS SET OF COURSES -180 PRINT -190 PRINT "BEARING","DISTANCE","LAT,LON","N,E" -200 PRINT ,,,N;",";E -210 FOR K1=1 TO K2 -220 L1=L(K1) -229 REM - CHECK FOR A CURVED COURSE -230 IF L(K1)<0 THEN 800 -239 REM - CHECK FOR END OF SET -240 IF L(K1)=0 THEN 630 -249 REM - CALCULATE LATITUDE, LONGITUDE, AND DISTANCE FROM START -250 L=L(K1)*SIN(B(K1)*R) -260 D=L(K1)*COS(B(K1)*R) -270 N=N+L -280 E=E+D -289 REM - ACCUMLATE AREA OF THIS SEGMENT -290 A=A+E*L-N*D -299 REM - COMPUTE COMPASS HEADING OF CURRENT BEARING -300 B1$=" " -310 B2$="e" -320 IF B(K1)>=90 THEN 360 -330 IF B(K1)=0 THEN 560 -340 B1$="n" -350 GOTO 560 -360 B1$="n" -370 B2$=" " -380 IF B(K1)>=180 THEN 420 -390 IF B(K1)=90 THEN 560 -400 B2$="w" -410 GOTO 560 -420 B1$=" " -430 B2$="w" -440 IF B(K1)>=270 THEN 480 -450 IF B(K1)=180 THEN 560 -460 B1$="s" -470 GOTO 560 -480 B1$="s" -490 B2$=" " -500 IF B(K1)>=360 THEN 540 -510 IF B(K1)=270 THEN 560 -520 B2$="e" -530 GOTO 560 -540 B(K1)=B(K1)-360 -550 GOTO 300 -559 REM - CONVERT ANGLE TO DEGREES, MINUTES, SECONDS -560 D1=INT(B(K1)) -570 M1=(B(K1)-D1)*60 -580 M=INT(M1) -590 S=INT((M1-M)*60+.5) -599 REM - PRINT COURSE -600 PRINT B1$;B2$;D1;M;S,FNR(L(K1)),FNR(L);",";FNR(D),FNR(N);",";FNR(E) -610 L(K1)=L1 -620 NEXT K1 -629 REM - GET MORE COURSES, IF ANY -630 PRINT -640 PRINT "ANY MORE COURSES"; -650 INPUT X -660 IF X=1 THEN 70 -719 REM - COMPUTE AND PRINT TOTAL AREA -720 A=ABS(A/2) -730 PRINT -740 PRINT "TOTAL AREA IS";FNR(A);"SQ FT. ("; -750 PRINT INT(A/43560*100000000+.5)/100000000;"ACRES)" -760 PRINT -770 GOTO 1310 -799 REM - COMPUTE FOR CURVED CCOURSE -800 C=ABS(B(K1)-B(K1-1)) -810 IF C<=180 THEN 830 -820 C=ABS(180-C) -830 C=ABS(180-C) -840 D=-L(K1) -850 L(K1)=-L(K1) -860 A1=C/180*3.14159265*D[2 -870 C1=2*D*SIN(C/2*R) -880 IF C=180 THEN 910 -890 T=D*TAN(C/2*R) -900 GOTO 920 -910 T=999999.999 -920 B0=B(K1)-B(K1-1) -930 IF B0<-180 THEN 980 -940 IF B0>180 THEN 960 -950 IF B0>0 THEN 980 -960 A=A+A1 -970 GOTO 990 -980 A=A-A1 -989 REM - CONVERT ANGLE TO DEGREES, MINUTES, SECONDS -990 D1=INT(C) -1000 M1=(C-D1)*60 -1010 M=INT(M1) -1020 S=INT((M1-M)*60+.5) -1030 PRINT " ";D1;M;S;" R=";FNR(D);"A=";FNR(A1);"C=";FNR(C1);"t=";FNR(T) -1040 GOTO 250 -1099 REM - THIS SUBROUTINE REQUESTS DATA FOR ONE COURSE -1100 Q=0 -1110 B(K1)=0 -1120 L(K1)=0 -1130 PRINT "COURSE";K1;":QUADRANT,DEGREES,MINUTES,SECONDS"; -1140 INPUT Q,D,M,S -1150 IF Q=0 THEN 1300 -1160 IF Q>4 THEN 1130 -1170 IF Q<1 THEN 1130 -1180 IF D+60*M+360*S>90 THEN 1130 -1190 IF D+M+S<0 THEN 1130 -1200 B(K1)=D+((M+S/60)/160) -1210 IF Q=1 THEN 1250 -1220 IF Q=4 THEN 1250 -1230 B(K1)=270+B(K1)*(-1)[Q -1240 GOTO 1260 -1250 B(K1)=90+B(K1)*(-1)[Q -1260 PRINT " DISTANCE (NEGATIVE IF RADIAL)"; -1270 INPUT L(K1) -1280 IF L(K1)>0 THEN 1300 -1290 IF ABS(L(K1))<>ABS(L(K1-1)) THEN 1260 -1300 RETURN -1310 END diff --git a/bwbtest/T80B/MAPCHECK.INP b/bwbtest/T80B/MAPCHECK.INP deleted file mode 100644 index 4f396e9..0000000 --- a/bwbtest/T80B/MAPCHECK.INP +++ /dev/null @@ -1,7 +0,0 @@ -1,23,45,67 -2,34,56,78 -3,46,58,79 -4,98,76,54 -0,0,0,0 -00 -0 diff --git a/bwbtest/T80B/MAPCHECK.run b/bwbtest/T80B/MAPCHECK.run deleted file mode 100644 index ef95e2c..0000000 --- a/bwbtest/T80B/MAPCHECK.run +++ /dev/null @@ -1,17 +0,0 @@ -MAP CHECK - -**NEXT SET OF COURSES** -COURSE 1 :QUADRANT,DEGREES,MINUTES,SECONDS? 1,23,45,67 -COURSE 1 :QUADRANT,DEGREES,MINUTES,SECONDS? 2,34,56,78 -COURSE 1 :QUADRANT,DEGREES,MINUTES,SECONDS? 3,46,58,79 -COURSE 1 :QUADRANT,DEGREES,MINUTES,SECONDS? 4,98,76,54 -COURSE 1 :QUADRANT,DEGREES,MINUTES,SECONDS? 0,0,0,0 -CHANGE COURSE NUMBER? 00 - -BEARING DISTANCE LAT,LON N,E - 0 , 0 - -ANY MORE COURSES? 0 - -TOTAL AREA IS 0 SQ FT. ( 0 ACRES) - diff --git a/bwbtest/T80B/MATADD.BAS b/bwbtest/T80B/MATADD.BAS deleted file mode 100644 index 1c41726..0000000 --- a/bwbtest/T80B/MATADD.BAS +++ /dev/null @@ -1,56 +0,0 @@ -10 PRINT "MATRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION" -20 PRINT -29 REM - ARRAYS SHOULD BE SET TO DIMENSIONS OF MATRICES -30 DIM A(3,3), B(3,3) -40 PRINT "1=ADDITION" -50 PRINT "2=SUBTRACTION" -60 PRINT "3=SCALAR MULTIPLICATION" -69 REM - SELECT OPERATION BY ENTERING THE NUMBER (1-3) OF THE OPERATION -70 PRINT "WHICH OPERATION"; -80 INPUT D -89 REM - TEST FOR ADDITION OR SUBRACTION -90 IF D<>3 THEN 120 -100 PRINT "VALUE OF SCALAR"; -110 INPUT S -120 PRINT "DIMENSION OF MATRIX (r,c)"; -130 INPUT R,C -138 REM - LOOP TO ENTER MATRIX VALUES -139 REM - FOR SUBTRACRION, MATRIX 2 SUBTRACTED FROM MATRIX 1 -140 FOR K=1 TO 2 -150 IF K=2 THEN 180 -160 PRINT "MATRIX 1:" -170 GOTO 190 -180 PRINT "MATRIX 2:" -190 FOR J=1 TO R -200 PRINT "ROW";J -210 FOR I=1 TO C -220 PRINT "VALUE COLUMN";I; -230 IF K=2 THEN 260 -240 INPUT A(J,I) -250 GOTO 270 -260 INPUT B(J,I) -270 NEXT I -280 NEXT J -289 REM - ONLY ONE MATRIX USED FOR SCALAR MULTIPLICATION -290 IF D=3 THEN 310 -300 NEXT K -308 REM - STATEMENTS 310 TO 410 PERFORM REQUESTED OPERATION AND -309 REM - PRINT RESULTANT MATRIX -310 FOR J=1 TO R -320 FOR I=1 TO C -330 IF D<>2 THEN 350 -340 B(J,I)=-B(J,I) -350 IF D=3 THEN 380 -360 PRINT A(J,I)+B(J,I);" "; -370 GOTO 390 -380 PRINT A(J,I)*S;" "; -390 NEXT I -399 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT ROW -400 PRINT -410 NEXT J -420 PRINT -429 REM - RESTART OR END PROGRAM? -430 PRINT "MORE DAtA? (1=YES,0=NO)"; -440 INPUT D -450 IF D=1 THEN 70 -460 END diff --git a/bwbtest/T80B/MATADD.INP b/bwbtest/T80B/MATADD.INP deleted file mode 100644 index fa427eb..0000000 --- a/bwbtest/T80B/MATADD.INP +++ /dev/null @@ -1,11 +0,0 @@ -1 -2,2 -1 -2 -3 -4 -5 -6 -7 -8 -0 diff --git a/bwbtest/T80B/MATADD.run b/bwbtest/T80B/MATADD.run deleted file mode 100644 index a62eb4e..0000000 --- a/bwbtest/T80B/MATADD.run +++ /dev/null @@ -1,25 +0,0 @@ -MATRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION - -1=ADDITION -2=SUBTRACTION -3=SCALAR MULTIPLICATION -WHICH OPERATION? 1 -DIMENSION OF MATRIX (r,c)? 2,2 -MATRIX 1: -ROW 1 -VALUE COLUMN 1 ? 1 -VALUE COLUMN 2 ? 2 -ROW 2 -VALUE COLUMN 1 ? 3 -VALUE COLUMN 2 ? 4 -MATRIX 2: -ROW 1 -VALUE COLUMN 1 ? 5 -VALUE COLUMN 2 ? 6 -ROW 2 -VALUE COLUMN 1 ? 7 -VALUE COLUMN 2 ? 8 - 6 8 - 10 12 - -MORE DAtA? (1=YES,0=NO)? 0 diff --git a/bwbtest/T80B/MATINV.BAS b/bwbtest/T80B/MATINV.BAS deleted file mode 100644 index c71ca0c..0000000 --- a/bwbtest/T80B/MATINV.BAS +++ /dev/null @@ -1,57 +0,0 @@ -10 PRINT "MATRIX INVERSION" -20 PRINT -29 REM - A() AND B() SHOULD BOTH BE SET TO THE DIMENSIONS OF THE MATRIX -30 DIM A(10,10), B(10,10) -39 REM - MATRIX IS SQUARE SO ONLY ONE DIMENSION IS NEEDED -40 PRINT "DIMENSION OF MATRIX"; -50 INPUT R -60 PRINT "MATRIX ELEMENTS:" -69 REM - ENTER MATRIX ELEMENTS -70 FOR J=1 TO R -80 PRINT "ROW";J -90 FOR I=1 TO R -100 PRINT "VALUE COLUMN";I; -110 INPUT A(J,I) -120 NEXT I -130 B(J,J)=1 -140 NEXT J -149 REM - STATEMENTS 150 TO 420 INVERT MATRIX -150 FOR J=1 TO R -160 FOR I=J TO R -170 IF A(I,J)<>0 THEN 210 -180 NEXT I -190 PRINT "SINGULAR MATRIX" -200 GOTO 500 -210 FOR K=1 TO R -220 S=A(J,K) -230 A(J,K)=A(I,K) -240 A(I,K)=S -250 S=B(J,K) -260 B(J,K)=B(I,K) -270 B(I,K)=S -280 NEXT K -290 T=1/A(J,J) -300 FOR K=1 TO R -310 A(J,K)=T*A(J,K) -320 B(J,K)=T*B(J,K) -330 NEXT K -340 FOR L=1 TO R -350 IF L=J THEN 410 -360 T=-A(L,J) -370 FOR K=1 TO R -380 A(L,K)=A(L,K)+T*A(J,K) -390 B(L,K)=B(L,K)+T*B(J,K) -400 NEXT K -410 NEXT L -420 NEXT J -430 PRINT -439 REM - PRINT RESULTANT MATRIX -440 FOR I=1 TO R -450 FOR J=1 TO R -459 REM - ROUND OFF, PRINT -460 PRINT INT(B(I,J)*1000+.5)/1000;" "; -470 NEXT J -479 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT LINE -480 PRINT -490 NEXT I -500 END diff --git a/bwbtest/T80B/MATINV.INP b/bwbtest/T80B/MATINV.INP deleted file mode 100644 index 6abf408..0000000 --- a/bwbtest/T80B/MATINV.INP +++ /dev/null @@ -1,5 +0,0 @@ -2 -1 -2 -3 -4 diff --git a/bwbtest/T80B/MATINV.run b/bwbtest/T80B/MATINV.run deleted file mode 100644 index 92dc874..0000000 --- a/bwbtest/T80B/MATINV.run +++ /dev/null @@ -1,13 +0,0 @@ -MATRIX INVERSION - -DIMENSION OF MATRIX? 2 -MATRIX ELEMENTS: -ROW 1 -VALUE COLUMN 1 ? 1 -VALUE COLUMN 2 ? 2 -ROW 2 -VALUE COLUMN 1 ? 3 -VALUE COLUMN 2 ? 4 - --2 1 - 1.5 -.5 diff --git a/bwbtest/T80B/MATMULT.BAS b/bwbtest/T80B/MATMULT.BAS deleted file mode 100644 index 8db8a12..0000000 --- a/bwbtest/T80B/MATMULT.BAS +++ /dev/null @@ -1,44 +0,0 @@ -10 PRINT "MATRIX MULTIPLICATION " -20 PRINT -29 REM - ARRAYS A AND B SHOULD BE SET TO DIMENSIONS OF MATRICES -30 DIM A(10,10), B(10,10) -40 PRINT "DIMENSION OF MATRIX 1 (R,C)"; -50 INPUT R1,C1 -60 PRINT "DIMENSION OF MATRIX 2 (R,C)"; -70 INPUT R2,C2 -79 REM - # OF COLUMNS IN MATRIX 1 MUST EQUAL # OF ROWS IN MATRIX 2 -80 IF C1=R2 THEN 110 -90 PRINT "CANNOT BE MULTIPLIED; OTHER DIMENSIONS NECESSARY" -100 GOTO 40 -109 REM - ENTER MATRIX VALUES -110 PRINT "MATRIX 1:" -120 FOR J=1 TO R1 -130 PRINT "ROW";J -140 FOR I=1 TO C1 -150 PRINT "VALUE COLUMN";I; -160 INPUT A(J,I) -170 NEXT I -180 NEXT J -190 PRINT -200 PRINT "MATRIX 2:" -210 FOR J=1 TO R2 -220 PRINT "ROW";J -230 FOR I=1 TO C2 -240 PRINT "VALUE COLUMN";I; -250 INPUT B(J,I) -260 NEXT I -270 NEXT J -280 PRINT -289 REM - PERFORM MATRIX MULTIPLICATION, PRINT RESULTANT MATRIX -290 FOR I=1 TO R1 -300 FOR J=1 TO C2 -310 S=0 -320 FOR K=1 TO C1 -330 S=S+A(I,K)*B(K,J) -340 NEXT K -350 PRINT S;" "; -360 NEXT J -369 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT ROW -370 PRINT -380 NEXT I -390 END diff --git a/bwbtest/T80B/MATMULT.INP b/bwbtest/T80B/MATMULT.INP deleted file mode 100644 index 85da9e6..0000000 --- a/bwbtest/T80B/MATMULT.INP +++ /dev/null @@ -1,10 +0,0 @@ -2,2 -2,2 -11 -12 -21 -22 -34 -35 -43 -53 diff --git a/bwbtest/T80B/MATMULT.run b/bwbtest/T80B/MATMULT.run deleted file mode 100644 index ef3e95f..0000000 --- a/bwbtest/T80B/MATMULT.run +++ /dev/null @@ -1,22 +0,0 @@ -MATRIX MULTIPLICATION - -DIMENSION OF MATRIX 1 (R,C)? 2,2 -DIMENSION OF MATRIX 2 (R,C)? 2,2 -MATRIX 1: -ROW 1 -VALUE COLUMN 1 ? 11 -VALUE COLUMN 2 ? 12 -ROW 2 -VALUE COLUMN 1 ? 21 -VALUE COLUMN 2 ? 22 - -MATRIX 2: -ROW 1 -VALUE COLUMN 1 ? 34 -VALUE COLUMN 2 ? 35 -ROW 2 -VALUE COLUMN 1 ? 43 -VALUE COLUMN 2 ? 53 - - 890 1021 - 1660 1901 diff --git a/bwbtest/T80B/MININV.BAS b/bwbtest/T80B/MININV.BAS deleted file mode 100644 index 566f919..0000000 --- a/bwbtest/T80B/MININV.BAS +++ /dev/null @@ -1,24 +0,0 @@ -10 PRINT "MININUN INVESTMENT FOR WITHDRAWALS" -20 PRINT -29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT -30 PRINT "AMOUNT OF WITHDRAWALS"; -40 INPUT R -50 PRINT "NOMINAL INTEREST RATE"; -60 INPUT I -70 PRINT "NUMBER OF WITHDRAWALS PER YEAR"; -80 INPUT N -90 PRINT "NUMBER OF YEARS"; -100 INPUT Y -109 REM - CONVERT FROM PERCENT TO DECIMAL -110 I=I/100 -119 REM - CALCULATE MINIMUM INVESTMENT BY FORMULA -120 P=R*N/I*(1-1/((1+I/N)[(N*Y))) -129 REM - ROUND OFF TO NEAREST CENT, PRINT -130 PRINT "MINIMUM INVESTMENT = $"; INT(100*P+.5)/100 -139 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION -140 PRINT -149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED -150 PRINT "MORE DATA (1=YES,0=NO)"; -160 INPUT X -170 IF X=1 THEN 20 -180 END diff --git a/bwbtest/T80B/MININV.INP b/bwbtest/T80B/MININV.INP deleted file mode 100644 index 0a87bdc..0000000 --- a/bwbtest/T80B/MININV.INP +++ /dev/null @@ -1,5 +0,0 @@ -2345 -5 -12 -10 -0 diff --git a/bwbtest/T80B/MININV.run b/bwbtest/T80B/MININV.run deleted file mode 100644 index 040061b..0000000 --- a/bwbtest/T80B/MININV.run +++ /dev/null @@ -1,9 +0,0 @@ -MININUN INVESTMENT FOR WITHDRAWALS - -AMOUNT OF WITHDRAWALS? 2345 -NOMINAL INTEREST RATE? 5 -NUMBER OF WITHDRAWALS PER YEAR? 12 -NUMBER OF YEARS? 10 -MINIMUM INVESTMENT = $ 221090. - -MORE DATA (1=YES,0=NO)? 0 diff --git a/bwbtest/T80B/MLINREGR.BAS b/bwbtest/T80B/MLINREGR.BAS deleted file mode 100644 index c7c1064..0000000 --- a/bwbtest/T80B/MLINREGR.BAS +++ /dev/null @@ -1,90 +0,0 @@ -10 PRINT "MULTIPLE LINEAR REGRESSION" -20 PRINT -29 REM - SET ARRAY LIMITS TO X(n+1),S(n+1),T(n+1),A(n+1,N+2) -30 DIM X(9),S(9),T(9),A(9,10) -40 PRINT "NUMBER OF KNOWN POINTS"; -50 INPUT N -60 PRINT "NUMBER OF INDEPENDENT VARIABLES"; -70 INPUT V -80 X(1)=1 -90 FOR I=1 TO N -100 PRINT "POINT";I -110 FOR J=1 TO V -119 REM - ENTER INDEPENDENT VARIABLES FOR EACH POINT -120 PRINT " VARIABLE";J; -130 INPUT X(J+1) -140 NEXT J -149 REM - ENTER DEPENDENT VARIABLE FOR EACH POINT -150 PRINT " DEPENDENT VARIABLE"; -160 INPUT X(V+2) -169 REM - POPULATE A MATRIX TO BE USED IN CURVE FITTING -170 FOR K=1 TO V+1 -180 FOR L=1 TO V+2 -190 A(K,L)=A(K,L)+X(K)*X(L) -200 S(K)=A(K,V+2) -210 NEXT L -220 NEXT K -230 S(V+2)=S(V+2)+X(V+2)[2 -240 NEXT I -248 REM - STATEMENTS 250 TO 500 FIT CURVE BY SOLVING THE SYSTEMOF -249 REM - LINEAR EQUATIONS IN MATRIX A() -250 FOR I=2 TO V+1 -260 T(I)=A(1,I) -270 NEXT I -280 FOR I=1 TO V+1 -290 FOR J=I TO V+1 -300 IF A(J,I)<>0 THEN 340 -310 NEXT J -320 PRINT "NO UNIQUE SOLUTION" -330 GOTO 810 -340 FOR K=1 TO V+2 -350 B=A(I,K) -360 A(I,K)=A(J,K) -370 A(J,K)=B -380 NEXT K -390 Z=1/A(I,I) -400 FOR K=1 TO V+2 -410 A(I,K)=Z*A(I,K) -420 NEXT K -430 FOR J=1 TO V+1 -440 IF J=I THEN 490 -450 Z=-A(J,I) -460 FOR K=1 TO V+2 -470 A(J,K)=A(J,K)+Z*A(I,K) -480 NEXT K -490 NEXT J -500 NEXT I -510 PRINT -520 PRINT "EQUATION COEFFICIENTS:" -525 PRINT " CONSTANT:";A(1,V+2) -530 FOR I=2 TO V+1 -540 PRINT "VARIABLE(";I-1;"):";A(I,V+2) -550 NEXT I -560 P=0 -570 FOR I=2 TO V+1 -580 P=P+A(I,V+2)*(S(I)-T(I)*S(1)/N) -590 NEXT I -600 R=S(V+2)-S(1)[2/N -610 Z=R-P -620 L=N-V-1 -630 I=P/V -640 PRINT -650 I=P/R -660 PRINT "COEFFICIENT OF DETERMINATION (r[2) =";I -670 PRINT "COEFFICIENT OF MULTIPLE CORRELATION =";SQR(I) -680 PRINT "STANDARD ERROR OF ESTIMATE "; SQR(ABS(Z/L)) -690 PRINT -699 REM - ESTIMATE DEPENDENT VARIABLE FROM ENTERED INDEPENDENT VARIABLES -700 PRINT "INTERPOLATION: (ENTER 0 TO END PROGRAM)" -710 P=A(1,V+2) -720 FOR J=1 TO V -730 PRINT "VARIABLE";J; -740 INPUT X -749 REM - TEST FOR END OF PROGRAM -750 IF X=0 THEN 810 -760 P=P+A(J+1,V+2)*X -770 NEXT J -780 PRINT "DEPENDENT VARIABLE =";P -790 PRINT -800 GOTO 710 -810 END diff --git a/bwbtest/T80B/MLINREGR.INP b/bwbtest/T80B/MLINREGR.INP deleted file mode 100644 index 8e57282..0000000 --- a/bwbtest/T80B/MLINREGR.INP +++ /dev/null @@ -1,9 +0,0 @@ -3 -1 -11 -22 -33 -44 -55 -66 -0 diff --git a/bwbtest/T80B/MLINREGR.run b/bwbtest/T80B/MLINREGR.run deleted file mode 100644 index b165d3c..0000000 --- a/bwbtest/T80B/MLINREGR.run +++ /dev/null @@ -1,24 +0,0 @@ -MULTIPLE LINEAR REGRESSION - -NUMBER OF KNOWN POINTS? 3 -NUMBER OF INDEPENDENT VARIABLES? 1 -POINT 1 - VARIABLE 1 ? 11 - DEPENDENT VARIABLE? 22 -POINT 2 - VARIABLE 1 ? 33 - DEPENDENT VARIABLE? 44 -POINT 3 - VARIABLE 1 ? 55 - DEPENDENT VARIABLE? 66 - -EQUATION COEFFICIENTS: - CONSTANT: 11 -VARIABLE( 1 ): 1 - -COEFFICIENT OF DETERMINATION (r[2) = 1 -COEFFICIENT OF MULTIPLE CORRELATION = 1 -STANDARD ERROR OF ESTIMATE 0 - -INTERPOLATION: (ENTER 0 TO END PROGRAM) -VARIABLE 1 ? 0 diff --git a/bwbtest/T80B/NOMINT.BAS b/bwbtest/T80B/NOMINT.BAS deleted file mode 100644 index 467480a..0000000 --- a/bwbtest/T80B/NOMINT.BAS +++ /dev/null @@ -1,21 +0,0 @@ -10 PRINT "NOMINAL INTEREST RATE ON INVESTMENTS" -20 PRINT -29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT -30 PRINT "PRINCIPAL"; -40 INPUT P -50 PRINT "TOTAL VALUE"; -60 INPUT T -70 PRINT "NUMBER OF YEARS"; -80 INPUT Y -90 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"; -100 INPUT N -109 REM - CALCULATE NOMINAL INTEREST RATE BY FORMULA, PRINT -110 I2=N*((T/P)[(1/(N*Y))-1)*100 -120 PRINT "NOMINAL INTEREST RATE=";I2;"%" -129 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION -130 PRINT -139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED -140 PRINT "MORE DATA: (1=YES,0=NO)"; -150 INPUT X -160 IF X=1 THEN 20 -170 END diff --git a/bwbtest/T80B/NOMINT.INP b/bwbtest/T80B/NOMINT.INP deleted file mode 100644 index 340c801..0000000 --- a/bwbtest/T80B/NOMINT.INP +++ /dev/null @@ -1,5 +0,0 @@ -12345 -67890 -10 -12 -0 diff --git a/bwbtest/T80B/NOMINT.run b/bwbtest/T80B/NOMINT.run deleted file mode 100644 index e65ae62..0000000 --- a/bwbtest/T80B/NOMINT.run +++ /dev/null @@ -1,9 +0,0 @@ -NOMINAL INTEREST RATE ON INVESTMENTS - -PRINCIPAL? 12345 -TOTAL VALUE? 67890 -NUMBER OF YEARS? 10 -NUMBER OF COMPOUNDING PERIODS PER YEAR? 12 -NOMINAL INTEREST RATE= 17.168 % - -MORE DATA: (1=YES,0=NO)? 0 diff --git a/bwbtest/T80B/NORDREGR.BAS b/bwbtest/T80B/NORDREGR.BAS deleted file mode 100644 index 5303768..0000000 --- a/bwbtest/T80B/NORDREGR.BAS +++ /dev/null @@ -1,89 +0,0 @@ -10 PRINT "NTH-ORDER REGRESSION" -20 PRINT -28 REM - SET LIMITS ON DEGREE OF EQUATION TO -29 REM - A(2D+1),R(D+1,D+2),T(D+2) (WHERE D=MAX. DEGREE OF EQUATION) -30 DIM A(13),R(7,8),T(8) -40 PRINT "DEGREE OF EQUATION"; -50 INPUT D -60 PRINT "NUMBER OF KNOWN POINTS"; -70 INPUT N -80 A(1)=N -89 REM - ENTER COORDINATES OF DATA POINTS -90 FOR I=1 TO N -100 PRINT "X,Y OF POINT";I; -110 INPUT X,Y -118 REM - LINES 120-200 POPULATE MATRICES WITH -119 REM - A SYSTEM OF EQUATIONS -120 FOR J=2 TO 2*D+1 -130 A(J)=A(J)+X[(J-1) -140 NEXT J -150 FOR K=1 TO D+1 -160 R(K,D+2)=T(K)+Y*X[(K-1) -170 T(K)=T(K)+Y*X[(K-1) -180 NEXT K -190 T(D+2)=T(D+2)+Y[2 -200 NEXT I -209 REM - LINES 210-490 SOLVE THE SYSTEM OF EQUATIONS IN THE MATRICES -210 FOR J=1 TO D+1 -220 FOR K=1 TO D+1 -230 R(J,K)=A(J+K-1) -240 NEXT K -250 NEXT J -260 FOR J=1 TO D+1 -270 FOR K=J TO D+1 -280 IF R(K,J)<>0 THEN 320 -290 NEXT K -300 PRINT "NO UNIQUE SOLUTION" -310 GOTO 790 -320 FOR I=1 TO D+2 -330 S=R(J,I) -340 R(J,I)=R(K,I) -350 R(K,I)=S -360 NEXT I -370 Z=1/R(J,J) -380 FOR I=1 TO D+2 -390 R(J,I)=Z*R(J,I) -400 NEXT I -410 FOR K=1 TO D+1 -420 IF K=J THEN 470 -430 Z=-R(K,J) -440 FOR I=1 TO D+2 -450 R(K,I)=R(K,I)+Z*R(J,I) -460 NEXT I -470 NEXT K -480 NEXT J -490 PRINT -495 PRINT " CONSTANT =";R(1,D+2) -499 REM - PRINT EQUATION COEFFICIENTS -500 FOR J=1 TO D -510 PRINT J;"DEGREE COEFFICIENT =";R(J+1,D+2) -520 NEXT J -530 PRINT -539 REM - COMPUTE REGRESSION ANALYSIS -540 P=0 -550 FOR J=2 TO D+1 -560 P=P+R(J,D+2)*(T(J)-A(J)*T(1)/N) -570 NEXT J -580 Q=T(D+2)-T(1)[2/N -590 Z=Q-P -600 I=N-D-1 -610 J=P/D -620 PRINT -630 J=P/Q -640 PRINT "COEFFICIENT OF DETERMINATION (R[2) =";J -650 PRINT "COEFFICIENT OF CORRELATION =";SQR(J) -660 PRINT "STANDARD ERROR OF ESTIMATE =";SQR(Z/I) -670 PRINT -679 REM - COMPUTE Y-COORDINATE FROM ENTERED X -COORDINATE -680 PRINT "INTERPOLATION:(ENTER 0 TO END PROGRAM)" -690 P=R(1,D+2) -700 PRINT "X ="; -710 INPUT X -720 IF X=0 THEN 790 -730 FOR J=1 TO D -740 P=P+R(J+1,D+2)*X[J -750 NEXT J -760 PRINT "y =";P -770 PRINT -780 GOTO 690 -790 END diff --git a/bwbtest/T80B/NORDREGR.INP b/bwbtest/T80B/NORDREGR.INP deleted file mode 100644 index 4ec479c..0000000 --- a/bwbtest/T80B/NORDREGR.INP +++ /dev/null @@ -1,8 +0,0 @@ -1 -3 -11,22 -33,44 -55,66 -22 -44 -0 diff --git a/bwbtest/T80B/NORDREGR.run b/bwbtest/T80B/NORDREGR.run deleted file mode 100644 index 369c00b..0000000 --- a/bwbtest/T80B/NORDREGR.run +++ /dev/null @@ -1,24 +0,0 @@ -NTH-ORDER REGRESSION - -DEGREE OF EQUATION? 1 -NUMBER OF KNOWN POINTS? 3 -X,Y OF POINT 1 ? 11,22 -X,Y OF POINT 2 ? 33,44 -X,Y OF POINT 3 ? 55,66 - - CONSTANT = 11 - 1 DEGREE COEFFICIENT = 1 - - -COEFFICIENT OF DETERMINATION (R[2) = 1 -COEFFICIENT OF CORRELATION = 1 -STANDARD ERROR OF ESTIMATE = 0 - -INTERPOLATION:(ENTER 0 TO END PROGRAM) -X =? 22 -y = 33 - -X =? 44 -y = 55 - -X =? 0 diff --git a/bwbtest/T80B/NORMDIST.BAS b/bwbtest/T80B/NORMDIST.BAS deleted file mode 100644 index d15342c..0000000 --- a/bwbtest/T80B/NORMDIST.BAS +++ /dev/null @@ -1,35 +0,0 @@ -10 PRINT "NORMAL DISTRIBUTION" -20 PRINT -30 PRINT "(0=STANDARD, 1=NON-STANDARD)" -40 PRINT "WHICH TYPE OF VARIABLE"; -50 INPUT S -60 IF S=0 THEN 120 -69 REM - LINES 70-110 RQUEST 'NON-STANDARD' VARIABLE DATA -70 PRINT "MEAN"; -80 INPUT M -90 PRINT "STANDARD DEVIATION"; -100 INPUT S -110 GOTO 130 -120 S=1 -130 PRINT -140 PRINT "(TO END PROGRAM ENTER X=99999)" -150 PRINT "X ="; -160 INPUT X -169 REM - END PROGRAM? -170 IF X=99999 THEN 290 -179 REM - ADJUST FOR NON-STANDARD VARIABLES -180 X=(X-M)/S -189 REM - COMPUTE FREQUENCY (y COORDINATE) -190 R=EXP(-X[2/2)/2.5066282746 -200 PRINT "FREQUENCY =";R -210 Z=X -219 REM - APPROXIMATE PROBABILITY (AREA UNDER CURVE) -220 T=1/(1+.33267*ABS(X)) -230 T=.5-R*(.4361836*T-.1201676*T[2+.937298*T[3) -239 REM - ADJUST FOR NEGATIVE VARIABLES -240 IF Z>=0 THEN 260 -250 T=1-T -260 PRINT "PROBABILITY =";T -270 PRINT -280 GOTO 150 -290 END diff --git a/bwbtest/T80B/NORMDIST.INP b/bwbtest/T80B/NORMDIST.INP deleted file mode 100644 index 38632c8..0000000 --- a/bwbtest/T80B/NORMDIST.INP +++ /dev/null @@ -1,8 +0,0 @@ -0 -123 -165 -147 -101 -107 -131 -99999 diff --git a/bwbtest/T80B/NORMDIST.run b/bwbtest/T80B/NORMDIST.run deleted file mode 100644 index e871acc..0000000 --- a/bwbtest/T80B/NORMDIST.run +++ /dev/null @@ -1,31 +0,0 @@ -NORMAL DISTRIBUTION - -(0=STANDARD, 1=NON-STANDARD) -WHICH TYPE OF VARIABLE? 0 - -(TO END PROGRAM ENTER X=99999) -X =? 123 -FREQUENCY = 0 -PROBABILITY = .5 - -X =? 165 -FREQUENCY = 0 -PROBABILITY = .5 - -X =? 147 -FREQUENCY = 0 -PROBABILITY = .5 - -X =? 101 -FREQUENCY = 0 -PROBABILITY = .5 - -X =? 107 -FREQUENCY = 0 -PROBABILITY = .5 - -X =? 131 -FREQUENCY = 0 -PROBABILITY = .5 - -X =? 99999 diff --git a/bwbtest/T80B/OPS2VEC.BAS b/bwbtest/T80B/OPS2VEC.BAS deleted file mode 100644 index abc6d77..0000000 --- a/bwbtest/T80B/OPS2VEC.BAS +++ /dev/null @@ -1,21 +0,0 @@ -10 PRINT "OPERATIONS ON TWO VECTORS" -20 PRINT -30 PRINT "VECTOR A: X,Y,Z COORDINATES"; -40 INPUT X1,Y1,Z1 -50 PRINT "VECTOR B: X,Y,Z COORDINATES"; -60 INPUT X2,Y2,Z2 -70 PRINT -79 REM - PERFORM VECTOR ADDITION, PRINT RESULTING VECTOR COORDINATES -80 PRINT "A+B=";X1+X2;",";Y1+Y2;",";Z1+Z2 -89 REM - PERFORM VECTOR SUBTRACTION, PRINT RESULTING VECTOR COORDINATES -90 PRINT "A-B=";X1-X2;",";Y1-Y2;",";Z1-Z2 -99 REM - CALCULATE DOT PRODUCT, PRINT -100 PRINT "A B=";X1*X2+Y1*Y2+Z1*Z2 -109 REM - CALCULATE CROSS PRODUCT, PRINT RESULTING VECTOR COORDINATES -110 PRINT "A*B=";Y1*Z2-Z1*Y2;",";Z1*X2-X1*Z2;",";X1*Y2-Y1*X2 -120 PRINT -129 REM - RESTART OR END PROGRAM? -130 PRINT "MORE DATA? (1=YES, 0=NO)"; -140 INPUT X -150 IF X=1 THEN 20 -160 END diff --git a/bwbtest/T80B/OPS2VEC.INP b/bwbtest/T80B/OPS2VEC.INP deleted file mode 100644 index 0454326..0000000 --- a/bwbtest/T80B/OPS2VEC.INP +++ /dev/null @@ -1,3 +0,0 @@ -5,6,7 -9,3,2 -0 diff --git a/bwbtest/T80B/OPS2VEC.run b/bwbtest/T80B/OPS2VEC.run deleted file mode 100644 index edd3e13..0000000 --- a/bwbtest/T80B/OPS2VEC.run +++ /dev/null @@ -1,11 +0,0 @@ -OPERATIONS ON TWO VECTORS - -VECTOR A: X,Y,Z COORDINATES? 5,6,7 -VECTOR B: X,Y,Z COORDINATES? 9,3,2 - -A+B= 14 , 9 , 9 -A-B=-4 , 3 , 5 -A B= 77 -A*B=-9 , 53 ,-39 - -MORE DATA? (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/PAD80.BAS b/bwbtest/T80B/PAD80.BAS deleted file mode 100644 index 2a293c3..0000000 --- a/bwbtest/T80B/PAD80.BAS +++ /dev/null @@ -1,44 +0,0 @@ -010 REM OPTION VERSION BYWATER -020 REM -100 REM PAD80.BAS -101 REM Pad the test output to 80 characters. -102 REM bwbasic P001.BAS > P001.OUT -103 REM echo "500 DATA P001.OUT, P001.80" > PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/T80B/PAD80.INP b/bwbtest/T80B/PAD80.INP deleted file mode 100644 index f866a24..0000000 --- a/bwbtest/T80B/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA TRIGPOLY.OUT, TRIGPOLY.80 diff --git a/bwbtest/T80B/PAD80.PRO b/bwbtest/T80B/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/T80B/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/T80B/PARTSTRI.BAS b/bwbtest/T80B/PARTSTRI.BAS deleted file mode 100644 index 214887e..0000000 --- a/bwbtest/T80B/PARTSTRI.BAS +++ /dev/null @@ -1,62 +0,0 @@ -10 PRINT "PARTS OF A TRIANGLE" -20 PRINT -30 DIM A(3),S(3) -31 REM - SET VALUE OF PI -40 P=3.1415927 -48 REM - ENTER NUMBER OF PROBLEM TYPE ACCORDING TO KNOWN PARTS -49 REM - OF THE TRIANGLE WHERE A=ANGLE, S=LENGTH OF SIDE -50 PRINT "PROBLEM TYPES: 1=ASA,2=SAS,3=AAS,4=SSA,5=SSS,6=END PROGAM" -60 PRINT "ENTER PROBLEM TYPE"; -70 INPUT X -79 REM - DIRECT PROGRAM TO PROPER CALCULATIONS -80 IF X=6 THEN 560 -90 IF X=5 THEN 390 -100 IF X=4 THEN 300 -110 IF X=3 THEN 260 -120 IF X=2 THEN 190 -130 PRINT "ENTER ANGLE,SIDE,ANGLE"; -140 INPUT A(1),S(3),A(2) -150 A(3)=P-A(1)-A(2) -160 S(1)=S(3)*SIN(A(1))/SIN(A(3)) -170 S(2)=S(3)*SIN(A(2))/SIN(A(3)) -180 GOTO 440 -190 PRINT "ENTER SIDE,ANGLE,SIDE"; -200 INPUT S(3),A(1),S(2) -210 S(1)=SQR(S(3)[2+S(2)[2-2*S(3)*S(2)*COS(A(1))) -220 A(2)=SIN(A(1))/S(1)*S(2) -230 A(2)=ARCSIN(A(2)) -240 A(3)=P-A(1)-A(2) -250 GOTO 440 -260 PRINT "ENTER ANGLE,ANGLE,SIDE"; -270 INPUT A(3),A(2),S(3) -280 A(1)=P-A(2)-A(3) -290 GOTO 160 -300 PRINT "ENTER SIDE,SIDE,ANGLE"; -310 INPUT S(1),S(2),A(1) -320 T=S(2)*SIN(A(1)) -330 IF S(1)=P THEN 190 -170 PRINT "MORE THAN 1.7E38 PERMUTATIONS" -180 GOTO 280 -190 P=P*I -200 NEXT I -209 REM - COMPUTE INTERMEDIATE FACTORIAL FOR COMBINATIONS -210 FOR J=2 TO D -220 C=C*J -230 NEXT J -240 PRINT P;"PERMUTATIONS" -250 PRINT P/C;"COMBINATONS" -260 PRINT -269 REM - RESTART PROGRAM -270 GOTO 40 -280 END diff --git a/bwbtest/T80B/PERMCOMB.INP b/bwbtest/T80B/PERMCOMB.INP deleted file mode 100644 index bd3f9db..0000000 --- a/bwbtest/T80B/PERMCOMB.INP +++ /dev/null @@ -1,3 +0,0 @@ -3 -2 -0 diff --git a/bwbtest/T80B/PERMCOMB.run b/bwbtest/T80B/PERMCOMB.run deleted file mode 100644 index 77153e0..0000000 --- a/bwbtest/T80B/PERMCOMB.run +++ /dev/null @@ -1,9 +0,0 @@ -PERMUTATIONS AND COMBINATIONS - -(ENTER O TO END PROGRAM) -TOTAL NUMBER OF OBJECTS? 3 -SIZE OF SUBGROUP? 2 - 6 PERMUTATIONS - 3 COMBINATONS - -TOTAL NUMBER OF OBJECTS? 0 diff --git a/bwbtest/T80B/PLOTFUNC.BAS b/bwbtest/T80B/PLOTFUNC.BAS deleted file mode 100644 index 40cc119..0000000 --- a/bwbtest/T80B/PLOTFUNC.BAS +++ /dev/null @@ -1,69 +0,0 @@ -10 PRINT "PLOT OF FUNCTIONS" -20 PRINT -29 REM - NUMBER OF FUNCTIONS WHICH CAN BE PLOTTED IS LIMITED TO 9 -30 DIM Y(9),A$(11) -40 FOR I=1 TO 11 -49 REM - GET VALUES FOR A$-ARRAY FROM DATA TABLE AT STATEMENT 470 -50 READ A$(I) -60 NEXT I -69 REM - STATEMENTS 70 TO 120 REQUEST USER INPUT -70 PRINT "NUMBER OF FUNCTIONS TO BE PLOTTED"; -80 INPUT N -90 PRINT "X-AXIS:LEFT ENDPOINT,RIGHT ENDPOINT,INCREMENT"; -100 INPUT X1,X2,X3 -110 PRINT "Y-AXIS:LOWER ENDPOINT,UPPER ENDPOINT,INCREMENT"; -120 INPUT Y1,Y2,Y3 -129 REM - CALCULATE NUMBER OF SPACES ON Y-AXIS -130 Y2=(Y2-Y1)/Y3 -138 REM - TEST FOR A Y-AXIS TOO LONG FOR OUTPUT DEVICE. IF YES,THEN -139 REM - LESSEN RANGE OR INCREASE INCREMENT -140 IF Y2<=70 THEN 170 -150 PRINT "Y-RANGE TOO LARGE" -160 GOTO 110 -170 PRINT -180 PRINT -189 REM - MAKE NOTE OF WHERE AXES CROSS -190 PRINT "X-AXIS CROSSES Y-AXIS AT Y=";Y1 -200 PRINT "Y-AXIS CROSSES X-AXIS AT X=";X1 -210 PRINT -219 REM - SET UP LOOP TO READ VALUE AT EACH X-INCREMENT -220 FOR X=X1 TO X2 STEP X3 -221 REM - FUNCTIONS Y(1) TO Y(9) SHOULD BE ENTERED AT LINES 221TO 229 -225 Y(1)=COS(X) -228 Y(2)=SIN(X) -230 FOR I=1 TO N -239 REM - ESTABLISH THE ROUNDED VALUE OF Y FOR EACH X-INCREMENTVALUE -240 Y(I)=INT((Y(I)-Y1)/Y3+.5) -250 NEXT I -259 REM - LOOP TO READ VALUE OF EACH Y-INCREMENT -260 FOR I=0 TO Y2 -269 REM - S COUNTS THE NUMBER OF VALUES AT EACH Y-INCREMENT FOREACH X -270 S=0 -280 FOR J=1 TO N -289 REM - PLOT A POINT ON THIS SPOT? IF YES, STORE FUNCTION NUMBER IN T -290 IF Y(J)<>I THEN 320 -300 S=S+1 -310 T=J -320 NEXT J -327 REM - TEST FOR NUMBER OF POINTS TO PLOT ON EACH SPOT; -328 REM - IF 0 PRINT "+" (first line only), IF 1 PRINT FUNCTIONNUMBER, -329 REM - IF 2 OR MORE PRINT "*" -330 IF S>0 THEN 360 -340 PRINT A$(SGN(I)+10); -350 GOTO 400 -360 IF S>1 THEN 390 -370 PRINT A$ (T); -380 GOTO 400 -390 PRINT "*"; -400 NEXT I -409 REM - LABEL AXES AT THE LAST SPACE ON EACH AXIS -410 IF X>X1 THEN 430 -420 PRINT "Y"; -429 REM - ADVANCE PRINTER TO NEXT LINE -430 PRINT -439 REM - PRINT SPACE INSTEAD OF "+" AFTER FIRST LINE OF PRINT (y-axis) -440 A$(11)=" " -450 NEXT X -460 PRINT "x" -470 DATA "1","2","3","4","5","6","7","8","9","+","+" -480 END diff --git a/bwbtest/T80B/PLOTFUNC.INP b/bwbtest/T80B/PLOTFUNC.INP deleted file mode 100644 index afa49c0..0000000 --- a/bwbtest/T80B/PLOTFUNC.INP +++ /dev/null @@ -1,3 +0,0 @@ -2 -0,10,0.1 --1.1,1.1,0.05 diff --git a/bwbtest/T80B/PLOTFUNC.run b/bwbtest/T80B/PLOTFUNC.run deleted file mode 100644 index ea48808..0000000 --- a/bwbtest/T80B/PLOTFUNC.run +++ /dev/null @@ -1,112 +0,0 @@ -PLOT OF FUNCTIONS - -NUMBER OF FUNCTIONS TO BE PLOTTED? 2 -X-AXIS:LEFT ENDPOINT,RIGHT ENDPOINT,INCREMENT? 0,10,0.1 -Y-AXIS:LOWER ENDPOINT,UPPER ENDPOINT,INCREMENT? -1.1,1.1,0.05 - - -X-AXIS CROSSES Y-AXIS AT Y=-1.1 -Y-AXIS CROSSES X-AXIS AT X= 0 - -++++++++++++++++++++++2+++++++++++++++++++1++Y -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ * -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 12 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 2 1 -+ 12 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -+ 1 2 -x diff --git a/bwbtest/T80B/PLOTPOL.BAS b/bwbtest/T80B/PLOTPOL.BAS deleted file mode 100644 index 248cae8..0000000 --- a/bwbtest/T80B/PLOTPOL.BAS +++ /dev/null @@ -1,127 +0,0 @@ -10 PRINT "PLOT OF POLAR EQUATION" -20 PRINT -28 REM - COORDINATE ARRAYS SET FOR 90 POINTS; -30 DIM X(91),Y(90) -39 REM - NUMBER OF POINTS TO BE CALCULATED -40 N=90 -49 REM - ABSOLUTE VALUE OF ALL ENDPOINTS ARE EQUAL -50 PRINT "ABSOLUTE VALUE OF ENDPOINT"; -60 INPUT Z -70 PRINT -79 REM - CALCULATE INCREMENTS OF AXES ACCORDING TO CHARACTERS PER AXIS -84 PRINT "INCREMENT OF X-AXIS =";Z/30 -90 PRINT "INCREMENT OF Y-AXIS =";Z/18 -100 PRINT -110 FOR I=1 TO N -119 REM - CONVERT DEGREES TO RADIANS -120 D=.06981317*I -130 REM - ENTER FUNCTION HERE (F="FUNCTION") -135 F=2*(1-COS(D)) -138 REM - CALCULATE EACH CARTESIAN COORDINATE, ROUND OFF TO NEAREST -139 REM - INCREMENT ON AXIS -140 X(I)=INT(((F*COS(D)/Z+1)*30)+.5) -150 Y(I)=INT(((-F*SIN(D)/Z+1)*18)+.5) -160 NEXT I -169 REM - SORT COORDINATES; REORDER Y(n) SMALLEST OT LARGEST -170 FOR J=1 TO N -180 FOR I=1 TO N-J -190 A=X(I) -200 B=Y(I) -210 IF B<=Y(I+1) THEN 260 -220 X(I)=X(I+1) -230 Y(I)=Y(I+1) -240 X(I+1)=A -250 Y(I+1)=B -260 NEXT I -270 NEXT J -279 REM - NEXT POINT TO BE PLOTTED STORED IN T -280 T=1 -289 REM - SKIP POINTS OUT OF Y-POSITIVE RANGE -290 FOR P=0 TO N-1 -300 IF Y(P+1)>=0 THEN 320 -310 NEXT P -319 REM - LOOP TO CALL UP EACH Y-INCREMENT FOR LINES OF PRINT -320 FOR I=0 TO 36 -330 T=T+P -339 REM - NUMBER OF POINTS TO BE PLOTTED ON EACH LINE STORED INP -340 P=0 -349 REM - ALL POINTS PLOTTED? -350 IF T>N THEN 370 -359 REM - Y-VALUE ON Y-LINE? -360 IF Y(T)=I THEN 420 -369 REM - PRINT X-AXIS? -370 IF I=18 THEN 400 -379 REM - PRINT Y-AXIS -380 PRINT TAB(30);"*"; -390 GOTO 860 -400 S=N+1 -410 GOTO 740 -420 FOR L=T TO N -429 REM - NEXT POINT TO BE PLOTTED ON SAME LINE? -430 IF Y(L)>Y(T) THEN 460 -440 P=P+1 -450 NEXT L -460 IF P=1 THEN 560 -468 REM - LOOP TO SORT X-COORDINATES WITH EQUAL Y-COORDINATES; -469 REM - REORDER SMALLEST TO LARGEST -470 FOR J=1 TO P -480 FOR L=1 TO P-J -490 C=X(T+L-1) -500 A=X(T+L) -510 IF C<=A THEN 540 -520 X(T+L-1)=A -530 X(T+L)=C -540 NEXT L -545 REM FOR J=1 TO P -550 NEXT J -559 REM - PRINT X-AXIS? -560 IF I=18 THEN 730 -570 L=-1 -580 S=0 -590 FOR K=0 TO P-1 -599 REM - MORE THAN ONE POINT TO BE POTTED AT SAME POINT ON GRAPH? -600 IF X(T+K)=L THEN 690 -610 L=X(T+K) -619 REM - PLOT POINT ON Y-AXIS? -620 IF L=30 THEN 660 -629 REM - PLOT POINT TO THE LEFT OF Y-AXIS? -630 IF L<30 THEN 670 -640 IF S=1 THEN 670 -649 REM - PRINT Y-AXIS -650 PRINT TAB(30);"+"; -660 S=1 -669 REM - POINT OUTSIDE OF POSITIVE X-RANGE? -670 IF L>60 THEN 860 -679 REM - PLOT POINT -680 PRINT TAB(L);"+"; -690 NEXT K -700 IF S=1 THEN 860 -709 REM - PRINT Y-AXIS -710 PRINT TAB(30);"*"; -720 GOTO 860 -730 S=T -739 REM - LOOP TO PRINT LINE OF X-AXIS -740 FOR J=0 TO 60 -750 IF X(S)<>J THEN 830 -759 REM - PLOT POINT ON X-AXIS -760 PRINT "+"; -770 FOR K=S TO T+P-1 -780 IF X(K)=X(S) THEN 810 -790 S=K -800 GOTO 840 -810 NEXT K -820 GOTO 840 -829 REM - PRINT X-AXIS -830 PRINT "*"; -840 NEXT J -849 REM - LABEL X-AXIS -850 PRINT "X"; -860 PRINT -870 NEXT I -879 REM - LABEL Y-AXIS -880 PRINT TAB(30);"y" -890 END -900 REM ----------------------- -910 REM Changes for bwBASIC -920 REM commented out line 545 -999 END diff --git a/bwbtest/T80B/PLOTPOL.INP b/bwbtest/T80B/PLOTPOL.INP deleted file mode 100644 index 7ed6ff8..0000000 --- a/bwbtest/T80B/PLOTPOL.INP +++ /dev/null @@ -1 +0,0 @@ -5 diff --git a/bwbtest/T80B/PLOTPOL.run b/bwbtest/T80B/PLOTPOL.run deleted file mode 100644 index cfba44c..0000000 --- a/bwbtest/T80B/PLOTPOL.run +++ /dev/null @@ -1,45 +0,0 @@ -PLOT OF POLAR EQUATION - -ABSOLUTE VALUE OF ENDPOINT? 5 - -INCREMENT OF X-AXIS = .166667 -INCREMENT OF Y-AXIS = .277778 - - * - * - * - * - * - * - * - * - * - + ++ +++ +++ * - + + ++* - + + - ++ +++ - + + ++ - + + + - + + + - + + + - + + + -******+***********************++*****************************X - + + + - + + + - + + + - + + + - + + ++ - ++ +++ - + + - + + ++* - + ++ +++ +++ * - * - * - * - * - * - * - * - * - * - y diff --git a/bwbtest/T80B/POISDIST.BAS b/bwbtest/T80B/POISDIST.BAS deleted file mode 100644 index 20383e9..0000000 --- a/bwbtest/T80B/POISDIST.BAS +++ /dev/null @@ -1,22 +0,0 @@ -10 PRINT "POISSON DISTRIBUTION" -20 PRINT -30 PRINT "(TO END PROGRAM ENTER 0)" -40 PRINT "CALCULATED FREQUENCY"; -50 INPUT L -59 REM - END PROGRAM? -60 IF L=0 THEN 180 -70 PRINT "TEST FREQUENCY"; -80 INPUT X -89 REM - COMPUTE FACTORIAL -90 A=1 -100 FOR I=1 TO X -110 A=A*I -120 NEXT I -129 REM - COMPUTE PROBABILITY -130 A=LOG(A) -140 A=EXP(-L+X*LOG(L)-A) -150 PRINT "PROBABILITY OF";X;"OCCURRENCES =";A -160 PRINT -169 REM - RESTART PROGRAM -170 GOTO 40 -180 END diff --git a/bwbtest/T80B/POISDIST.INP b/bwbtest/T80B/POISDIST.INP deleted file mode 100644 index c329c5a..0000000 --- a/bwbtest/T80B/POISDIST.INP +++ /dev/null @@ -1,3 +0,0 @@ -3 -7 -0 diff --git a/bwbtest/T80B/POISDIST.run b/bwbtest/T80B/POISDIST.run deleted file mode 100644 index c0306f7..0000000 --- a/bwbtest/T80B/POISDIST.run +++ /dev/null @@ -1,8 +0,0 @@ -POISSON DISTRIBUTION - -(TO END PROGRAM ENTER 0) -CALCULATED FREQUENCY? 3 -TEST FREQUENCY? 7 -PROBABILITY OF 7 OCCURRENCES = .021604 - -CALCULATED FREQUENCY? 0 diff --git a/bwbtest/T80B/PRIFACT.BAS b/bwbtest/T80B/PRIFACT.BAS deleted file mode 100644 index 21c77c1..0000000 --- a/bwbtest/T80B/PRIFACT.BAS +++ /dev/null @@ -1,27 +0,0 @@ -10 PRINT "PRIME FACTORS OF INTEGERS" -20 PRINT -30 PRINT "(ENTER 0 TO END PROGRAM)" -40 PRINT "NUMBER"; -50 INPUT Z -59 REM - END PROGRAM? -60 IF Z=0 THEN 200 -69 REM - THE SIGN OF THE NUMBER IS ALWAYS A FACTOR -70 PRINT SGN(Z) -79 REM - USE ABSOLUTE VALUE FOR CALCULATIONS -80 Z=ABS(Z) -89 REM - LOOP TO TEST ALL INTEGERS (2 THROUGH Z) AS PRIME FACTORS -90 FOR I=2 TO Z -100 S=0 -110 IF Z/I<>INT(Z/I) THEN 150 -120 Z=Z/I -130 S=S+1 -140 GOTO 110 -149 REM - FIND A PRIME FACTOR? IF YES, PRINT -150 IF S=0 THEN 170 -159 REM - PRINT FACTORS WITH EXPONENTS; I[S = I TO THE S POWER -160 PRINT I;"[";S -170 NEXT I -180 PRINT -189 REM - RESTART PROGRAM -190 GOTO 40 -200 END diff --git a/bwbtest/T80B/PRIFACT.INP b/bwbtest/T80B/PRIFACT.INP deleted file mode 100644 index 7577293..0000000 --- a/bwbtest/T80B/PRIFACT.INP +++ /dev/null @@ -1,4 +0,0 @@ -121 -333 -777 -0 diff --git a/bwbtest/T80B/PRIFACT.run b/bwbtest/T80B/PRIFACT.run deleted file mode 100644 index 49b09a4..0000000 --- a/bwbtest/T80B/PRIFACT.run +++ /dev/null @@ -1,19 +0,0 @@ -PRIME FACTORS OF INTEGERS - -(ENTER 0 TO END PROGRAM) -NUMBER? 121 - 1 - 11 [ 2 - -NUMBER? 333 - 1 - 3 [ 2 - 37 [ 1 - -NUMBER? 777 - 1 - 3 [ 1 - 7 [ 1 - 37 [ 1 - -NUMBER? 0 diff --git a/bwbtest/T80B/PRINLOAN.BAS b/bwbtest/T80B/PRINLOAN.BAS deleted file mode 100644 index 55898a8..0000000 --- a/bwbtest/T80B/PRINLOAN.BAS +++ /dev/null @@ -1,23 +0,0 @@ -10 PRINT "PRINCIPAL ON A LOAN" -20 PRINT -29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT -30 PRINT "REGULAR PAYMENT"; -40 INPUT R -50 PRINT "TERM IN YEARS"; -60 INPUT Y -70 PRINT "ANNUAL INTEREST RATE"; -80 INPUT I -90 PRINT "NUMBER OF PAYMENTS PER YEAR"; -100 INPUT N -108 REM - CALCULATE AMOUNT OF PRINCIPAL BY FORMULA; -109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS -110 P=R*N*(1-1/((I/100)/N+1)[(N*Y))/(I/100) -119 REM - ROUND OFF TO NEAREST CENT, PRINT -120 PRINT "PRINCIPAL = $";INT(P*100+.5)/100 -129 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION -130 PRINT -139 REM - RESTART OR END PROGRAM? -140 PRINT "MORE DATA? (1=YES, 0=NO)"; -150 INPUT X -160 IF X=1 THEN 20 -170 END diff --git a/bwbtest/T80B/PRINLOAN.INP b/bwbtest/T80B/PRINLOAN.INP deleted file mode 100644 index c997a17..0000000 --- a/bwbtest/T80B/PRINLOAN.INP +++ /dev/null @@ -1,5 +0,0 @@ -1234 -30 -5 -12 -0 diff --git a/bwbtest/T80B/PRINLOAN.run b/bwbtest/T80B/PRINLOAN.run deleted file mode 100644 index be6c820..0000000 --- a/bwbtest/T80B/PRINLOAN.run +++ /dev/null @@ -1,9 +0,0 @@ -PRINCIPAL ON A LOAN - -REGULAR PAYMENT? 1234 -TERM IN YEARS? 30 -ANNUAL INTEREST RATE? 5 -NUMBER OF PAYMENTS PER YEAR? 12 -PRINCIPAL = $ 229872. - -MORE DATA? (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/QUADROOT.BAS b/bwbtest/T80B/QUADROOT.BAS deleted file mode 100644 index f1c030c..0000000 --- a/bwbtest/T80B/QUADROOT.BAS +++ /dev/null @@ -1,19 +0,0 @@ -10 PRINT "ROOTS OF QUADRATIC EQUATIONS" -20 PRINT -29 REM - ENTER COEFFICIENTS A,B,C OF A*x[2 + B*X + C -30 PRINT "COEFFICIENTS A,B,C"; -40 INPUT A,B,C -50 S=B[2-4*A*C -60 R=SQR(ABS(S)) -69 REM - COMPLEX ROOTS? -70 IF S<0 THEN 100 -79 REM - CALCULATE ROOTS, LABEL, PRINT -80 PRINT "ROOTS (REAL): ";(-B-R)/(2*A);", ";(-B+R)/(2*A) -90 GOTO 110 -100 PRINT "ROOTS (COMPLEX): ";-B/(2*A);" + OR -";R/(2*A);" I" -110 PRINT -119 REM - RESTART OR END PROGRAM? -120 PRINT "MORE DATA (1=YES, 0=NO)"; -130 INPUT X -140 IF X=1 THEN 20 -150 END diff --git a/bwbtest/T80B/QUADROOT.INP b/bwbtest/T80B/QUADROOT.INP deleted file mode 100644 index 27ac0bd..0000000 --- a/bwbtest/T80B/QUADROOT.INP +++ /dev/null @@ -1,2 +0,0 @@ -3,4,5 -0 diff --git a/bwbtest/T80B/QUADROOT.run b/bwbtest/T80B/QUADROOT.run deleted file mode 100644 index 3343b54..0000000 --- a/bwbtest/T80B/QUADROOT.run +++ /dev/null @@ -1,6 +0,0 @@ -ROOTS OF QUADRATIC EQUATIONS - -COEFFICIENTS A,B,C? 3,4,5 -ROOTS (COMPLEX): -.666667 + OR - 1.10554 I - -MORE DATA (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/RADDEG.BAS b/bwbtest/T80B/RADDEG.BAS deleted file mode 100644 index ce2acbd..0000000 --- a/bwbtest/T80B/RADDEG.BAS +++ /dev/null @@ -1,25 +0,0 @@ -10 PRINT "ANGLE CONVERSION: RADIANS TO DEGREES" -20 PRINT -30 PRINT "ANGLE IN RADIANS (ENTER 0 TO END PROGRAM)"; -40 GOTO 60 -50 PRINT "ANGLE IN RADIANS"; -60 INPUT R -69 REM - TEST FOR END OF PROGRAM -70 IF R=0 THEN 170 -79 REM - CONVERT RADIANS TO SECONDS -80 A=3600*180*R/3.1415927 -89 REM - CALCULATE NUMBER OF WHOLE DEGREES -90 D=INT(A/3600) -99 REM - CALCULATE NUMBER OF FULL CIRCLES -100 D1=INT(D/360) -109 REM - CALCULATE DEGREES OF ANGLE WITHIN 360 DEGREES, PRINT -110 PRINT " DEGREES =";D-360*D1 -119 REM - CALCULATE MINUTES, PRINT -120 PRINT " MINUTES =";INT((A-D*3600)/60) -129 REM - CALCULATE SECONDS, ROUND OFF, PRINT -130 S=A-D*3600-(INT((A-D*3600)/60))*60 -140 PRINT " SECONDS =";INT(100*S+.5)/100 -150 PRINT -159 REM - RESTART PROGRAM -160 GOTO 50 -170 END diff --git a/bwbtest/T80B/RADDEG.INP b/bwbtest/T80B/RADDEG.INP deleted file mode 100644 index a315b3f..0000000 --- a/bwbtest/T80B/RADDEG.INP +++ /dev/null @@ -1,3 +0,0 @@ -0.8 -1.6 -0 diff --git a/bwbtest/T80B/RADDEG.run b/bwbtest/T80B/RADDEG.run deleted file mode 100644 index 1796c8e..0000000 --- a/bwbtest/T80B/RADDEG.run +++ /dev/null @@ -1,13 +0,0 @@ -ANGLE CONVERSION: RADIANS TO DEGREES - -ANGLE IN RADIANS (ENTER 0 TO END PROGRAM)? 0.8 - DEGREES = 45 - MINUTES = 50 - SECONDS = 11.84 - -ANGLE IN RADIANS? 1.6 - DEGREES = 91 - MINUTES = 40 - SECONDS = 23.69 - -ANGLE IN RADIANS? 0 diff --git a/bwbtest/T80B/RECICOST.BAS b/bwbtest/T80B/RECICOST.BAS deleted file mode 100644 index 3b17b1d..0000000 --- a/bwbtest/T80B/RECICOST.BAS +++ /dev/null @@ -1,31 +0,0 @@ -10 PRINT "RECIPE COST" -20 PRINT -29 REM - STATEMENTS 30 TO 180 REQUEST USER INPUT -30 PRINT "NUMBER OF INGREDIENTS"; -40 INPUT N -49 REM - LOOP TO REQUEST DATA FOR EACH INGREDIENT -50 FOR I=1 TO N -60 PRINT "INGREDIENT";I;":" -70 PRINT " COST FOR BULK UNIT IN STORE"; -80 INPUT C -90 PRINT " NUMBER OF UNITS IN BULK"; -100 INPUT U -110 PRINT " NUMBER OF RECIPE UNITS PER BULK UNIT"; -120 INPUT F -130 PRINT " NUMBER OF RECIPE UNITS CALLED FOR"; -140 INPUT R -149 REM - SUM COST OF EACH INGREDIENT PER AMOUNT USED -150 P=P+C/U/F*R -160 NEXT I -170 PRINT "NUMBER OF SERVINGS"; -180 INPUT S -190 PRINT -199 REM - ROUND OF COSTS TO NEAREST CENT, PRINT RESULTS -200 PRINT "TOTAL COST FOR 1 RECIPE = $";INT(P*100+.5)/100 -210 PRINT "COST PER SERVING = $";INT(P/S*100+.5)/100 -220 PRINT -229 REM - CALCULATE ALTERNATIVE PRICE PER SERVING? -230 PRINT "CHANGE NUMBER OF SERVINGS (1=YES,0=NO)"; -240 INPUT N -250 IF N=1 THEN 170 -260 END diff --git a/bwbtest/T80B/RECICOST.INP b/bwbtest/T80B/RECICOST.INP deleted file mode 100644 index d737548..0000000 --- a/bwbtest/T80B/RECICOST.INP +++ /dev/null @@ -1,15 +0,0 @@ -3 -456 -144 -121 -204 -789 -360 -175 -15 -342 -13 -16 -121 -10 -0 diff --git a/bwbtest/T80B/RECICOST.run b/bwbtest/T80B/RECICOST.run deleted file mode 100644 index 082499d..0000000 --- a/bwbtest/T80B/RECICOST.run +++ /dev/null @@ -1,24 +0,0 @@ -RECIPE COST - -NUMBER OF INGREDIENTS? 3 -INGREDIENT 1 : - COST FOR BULK UNIT IN STORE? 456 - NUMBER OF UNITS IN BULK? 144 - NUMBER OF RECIPE UNITS PER BULK UNIT? 121 - NUMBER OF RECIPE UNITS CALLED FOR? 204 -INGREDIENT 2 : - COST FOR BULK UNIT IN STORE? 789 - NUMBER OF UNITS IN BULK? 360 - NUMBER OF RECIPE UNITS PER BULK UNIT? 175 - NUMBER OF RECIPE UNITS CALLED FOR? 15 -INGREDIENT 3 : - COST FOR BULK UNIT IN STORE? 342 - NUMBER OF UNITS IN BULK? 13 - NUMBER OF RECIPE UNITS PER BULK UNIT? 16 - NUMBER OF RECIPE UNITS CALLED FOR? 121 -NUMBER OF SERVINGS? 10 - -TOTAL COST FOR 1 RECIPE = $ 204.48 -COST PER SERVING = $ 20.45 - -CHANGE NUMBER OF SERVINGS (1=YES,0=NO)? 0 diff --git a/bwbtest/T80B/REGDEP.BAS b/bwbtest/T80B/REGDEP.BAS deleted file mode 100644 index c517a6c..0000000 --- a/bwbtest/T80B/REGDEP.BAS +++ /dev/null @@ -1,25 +0,0 @@ -10 PRINT "REGULAR DEPOSITS" -20 PRINT -29 REM -STATEMENTS 30 TO 100 REQUEST USER INPUT -30 PRINT "TOTAL VALUE AFTER Y YEARS"; -40 INPUT T -50 PRINT "NOMINAL INTEREST RATE"; -60 INPUT I -70 PRINT "NUMBER OF DEPOSITS PER YEAR"; -80 INPUT N -90 PRINT "NUMBER OF YEARS"; -100 INPUT Y -108 REM -CALCULATE INTEREST RATE PER DEPOSIT; -109 REM -CONVERT FROM PERCENT TO DECIMAL -110 I=I/N/100 -119 REM -CALCULATE AMOUNT OF REGULAR DEPOSIT BY FORMULA -120 R=T*I/((I+1)[(N+Y)-1) -129 REM -ROUND OFF TO NEAREST CENT, PRINT -130 PRINT "REGULAR DEPOSITS = $"; INT(R*100+.5)/100 -139 REM -PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION -140 PRINT -149 REM -RESTART OR END PROGRAM? USER INPUT REQUIRED -150 PRINT "MORE DATA?(1=YES,0=NO)"; -160 INPUT X -170 IF X=1 THEN 20 -180 END diff --git a/bwbtest/T80B/REGDEP.INP b/bwbtest/T80B/REGDEP.INP deleted file mode 100644 index 26c5caf..0000000 --- a/bwbtest/T80B/REGDEP.INP +++ /dev/null @@ -1,5 +0,0 @@ -123456 -4.75 -12 -10 -0 diff --git a/bwbtest/T80B/REGDEP.run b/bwbtest/T80B/REGDEP.run deleted file mode 100644 index 5dc9a85..0000000 --- a/bwbtest/T80B/REGDEP.run +++ /dev/null @@ -1,9 +0,0 @@ -REGULAR DEPOSITS - -TOTAL VALUE AFTER Y YEARS? 123456 -NOMINAL INTEREST RATE? 4.75 -NUMBER OF DEPOSITS PER YEAR? 12 -NUMBER OF YEARS? 10 -REGULAR DEPOSITS = $ 5381.93 - -MORE DATA?(1=YES,0=NO)? 0 diff --git a/bwbtest/T80B/REGWDRAW.BAS b/bwbtest/T80B/REGWDRAW.BAS deleted file mode 100644 index 70b8043..0000000 --- a/bwbtest/T80B/REGWDRAW.BAS +++ /dev/null @@ -1,25 +0,0 @@ -10 PRINT "REGULAR WITHDRAWALS FROM AN INVESTMENT" -20 PRINT -29 REM -STATEMENT 30 TO 100 REQUEST USE INPUT -30 PRINT "INITIAL INVESTMENT"; -40 INPUT P -50 PRINT "NOMINAL INTEREST RATE"; -60 INPUT I -70 PRINT "NUMBER OF WITHDRAWALS PER YEAR"; -80 INPUT N -90 PRINT "NUMBER OF YEARS"; -100 INPUT Y -108 REM -CALCULATE INTEREST RATE PER WITHDRAWAL; -109 REM -CONVERT FROM PERCENT TO DECIMAL -110 I=I/N/100 -119 REM -CALCULATE REGULAR WITHDRAWAL BY FORMULA -120 R=P*(I/((1+I)[(N*Y)-1)+I) -129 REM -ROUND OFF TO NEAREST CENT, PRINT -130 PRINT "AMOUNT OF EACH WITHDRAWAL = $"; INT(R*100+.5)/100 -139 REM -PRINT BLANK LINE TO SEPARATE QUESTION FROM DATA -140 PRINT -149 REM -RESTART OR END PROGRAM? -150 PRINT "MORE DATA?(1=YES,0=NO)"; -160 INPUT X -170 IF X=1 THEN 20 -180 END diff --git a/bwbtest/T80B/REGWDRAW.INP b/bwbtest/T80B/REGWDRAW.INP deleted file mode 100644 index 83ac815..0000000 --- a/bwbtest/T80B/REGWDRAW.INP +++ /dev/null @@ -1,5 +0,0 @@ -123456 -7.75 -12 -10 -0 diff --git a/bwbtest/T80B/REGWDRAW.run b/bwbtest/T80B/REGWDRAW.run deleted file mode 100644 index fbc3bb7..0000000 --- a/bwbtest/T80B/REGWDRAW.run +++ /dev/null @@ -1,9 +0,0 @@ -REGULAR WITHDRAWALS FROM AN INVESTMENT - -INITIAL INVESTMENT? 123456 -NOMINAL INTEREST RATE? 7.75 -NUMBER OF WITHDRAWALS PER YEAR? 12 -NUMBER OF YEARS? 10 -AMOUNT OF EACH WITHDRAWAL = $ 1481.6 - -MORE DATA?(1=YES,0=NO)? 0 diff --git a/bwbtest/T80B/ROOTNEWT.BAS b/bwbtest/T80B/ROOTNEWT.BAS deleted file mode 100644 index 61cc4c4..0000000 --- a/bwbtest/T80B/ROOTNEWT.BAS +++ /dev/null @@ -1,71 +0,0 @@ -10 PRINT "REAL ROOTS OF POLYNOMIALS: NEWTON" -20 PRINT -28 REM - LIMIT A() AND B() TO N+1; WHEN THIS IS DONE, LOOP AT LINE 40 -29 REM - SHOULD BE SET TO TEST FROM 1 TO N+1 -30 DIM A(11),B(11) -39 REM - INITIALIZE ARRAY VARIABLES -40 FOR I=1 TO 11 -50 A(I)=0 -60 B(I)=0 -70 NEXT I -80 PRINT "DEGREE OF EQUATION"; -90 INPUT N -100 FOR I=1 TO N+1 -109 REM - ENTER COEFFICIENTS IN ORDER OF LESSER TO HIGHER DEGREE -110 PRINT "COEFFICIENT A(";I-1;")"; -120 INPUT A(I) -130 NEXT I -140 FOR I=1 TO 10 -149 REM - CALCULATE COEFFICIENT OF DERIVATIVE OF POLYNOMIAL -150 B(I)=A(I+1)*I -160 NEXT I -170 PRINT -179 REM - INITIALIZE GUESS -180 PRINT "guess"; -190 INPUT X -200 Q=0 -210 S=1 -220 F1=0 -230 F0=0 -239 REM - COUNT ITERATIONS -240 Q=Q+1 -250 FOR I=1 TO N+1 -259 REM - CALCULATE VALUE OF FUNCTION -260 F0=F0+A(I)*S -269 REM - CALCULATE VALUE OF DERIVATIVE -270 F1=F1+B(I)*S -280 S=S*X -290 NEXT I -299 REM - TEST FOR A ZERO DERIVATIVE; IF YES, STOP SEARCH, PRINT -300 IF F1=0 THEN 360 -309 REM - GET NEW GUESS USING PREVIOUS GUESS -310 S=X-F0/F1 -319 REM - IF NEW GUESS = LAST GUESS THEN STOP SEARCH, PRINT -320 IF X=S THEN 380 -329 REM - SAVE LAST GUESS -330 X=S -340 IF Q>100 THEN 490 -350 GOTO 210 -360 PRINT "DERIVATIVE = 0 AT X =";X -370 GOTO 180 -380 PRINT -390 PRINT " ROOT"," ERROR"," DERIVATIVE" -400 PRINT X,F0,F1 -410 PRINT -419 REM - RERUN TO FIND ANOTHER ROOT IN SAME FUNCTION? -420 PRINT "ANOTHER VALUE (1=YES, 0=NO)"; -430 INPUT A -440 IF A=1 THEN 170 -449 REM - RESTART OR END PROGRAM? -450 PRINT "ANOTHER FUNCTION (1=YES, 0=NO)"; -460 INPUT A -470 IF A=1 THEN 30 -480 GOTO 550 -489 REM - PRINT CALCULATE VALUES AFTER 100 ITERATIONS; SEARCH 100 MORE? -490 PRINT "100 ITERATIONS COMPLETED:" -500 PRINT " X =";X;" F(x) =";F0 -510 PRINT " CONTINUE (1= YES, 0=NO)"; -520 INPUT A -530 IF A=1 THEN 200 -540 GOTO 420 -550 END diff --git a/bwbtest/T80B/ROOTNEWT.INP b/bwbtest/T80B/ROOTNEWT.INP deleted file mode 100644 index 231e845..0000000 --- a/bwbtest/T80B/ROOTNEWT.INP +++ /dev/null @@ -1,8 +0,0 @@ -2 -5 -8 -9 -10 -0 -0 -0 diff --git a/bwbtest/T80B/ROOTNEWT.run b/bwbtest/T80B/ROOTNEWT.run deleted file mode 100644 index fe96660..0000000 --- a/bwbtest/T80B/ROOTNEWT.run +++ /dev/null @@ -1,13 +0,0 @@ -REAL ROOTS OF POLYNOMIALS: NEWTON - -DEGREE OF EQUATION? 2 -COEFFICIENT A( 0 )? 5 -COEFFICIENT A( 1 )? 8 -COEFFICIENT A( 2 )? 9 - -guess? 10 -100 ITERATIONS COMPLETED: - X = .17034 F(x) = 3.75415 - CONTINUE (1= YES, 0=NO)? 0 -ANOTHER VALUE (1=YES, 0=NO)? 0 -ANOTHER FUNCTION (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/ROOTPOLY.BAS b/bwbtest/T80B/ROOTPOLY.BAS deleted file mode 100644 index a04f43c..0000000 --- a/bwbtest/T80B/ROOTPOLY.BAS +++ /dev/null @@ -1,63 +0,0 @@ -10 PRINT "ROOTS OF POLYNOMIALS: HALF-INTERVAL SEARCH" -20 PRINT -30 REM - ENTER FUNCTION ("DEFFNR(x)="FUNCTION") HERE -35 DEF FNR(X)=4*X[4-2.5*X[2-X+.5 -40 DIM D(3) -50 PRINT "(TO END SEARCH ENTER 0,0)" -59 REM - ESTABLISH INTERVAL OF RANDOM SEARCH -60 PRINT "INTERVAL (LOWER, UPPER LIMIT)"; -70 INPUT A,B -79 REM - TEST FOR USABLE LIMITS ENTERED -80 IF A<>B THEN 120 -89 REM - END PROGRAM? -90 IF A=0 THEN 430 -100 PRINT "--INTERVAL LIMITS CANNOT BE EQUAL--" -110 GOTO 60 -120 IF A M=M\2 -999 END - diff --git a/bwbtest/T80B/SHELSORT.INP b/bwbtest/T80B/SHELSORT.INP deleted file mode 100644 index e2ab2be..0000000 --- a/bwbtest/T80B/SHELSORT.INP +++ /dev/null @@ -1,6 +0,0 @@ -XYZ -ABC -MNO -JKL -TUV -/// diff --git a/bwbtest/T80B/SHELSORT.run b/bwbtest/T80B/SHELSORT.run deleted file mode 100644 index 5867fea..0000000 --- a/bwbtest/T80B/SHELSORT.run +++ /dev/null @@ -1,18 +0,0 @@ - *** SHELL METZNER SORT *** - -BY ALLAN D. EMERT -RT #4, BOX 1455, ODESSA, TX 79763 - -TO END PROGRAM ENTER /// -ITEM 1 ? XYZ -ITEM 2 ? ABC -ITEM 3 ? MNO -ITEM 4 ? JKL -ITEM 5 ? TUV -ITEM 6 ? /// - -ABC -JKL -MNO -TUV -XYZ diff --git a/bwbtest/T80B/SHOPPING.BAS b/bwbtest/T80B/SHOPPING.BAS deleted file mode 100644 index 63e7794..0000000 --- a/bwbtest/T80B/SHOPPING.BAS +++ /dev/null @@ -1,183 +0,0 @@ -10 CLS: -20 CLEAR 200 -21 REM ** TITLE PAGE & INSTRUCTIONS -30 PRINT :PRINT :PRINT " **** SHOPPING LIST ****" -40 PRINT " BY J. A. KRAYNAK" -50 PRINT :PRINT :PRINT :PRINT "DO YOU NEED INSTRUCTIONS (Y/N)"; -60 AA$=INKEY$:IF AA$="Y" THEN 70 ELSE IF AA$="N" THEN 220 ELSE 60 -70 CLS:PRINT :PRINT :PRINT " FIVE LISTS OF GROCERIES WILL APPEAR ON THE SCREEN, ONE" -80 PRINT "AT A TIME OF COURSE, WITH A BLINKING CURSOR ( ) NEXT TO THE" -90 PRINT "FIRST ITEM ON THE LIST. IF YOU DESIRE THAT ITEM TO BE ON YOUR" -100 PRINT "PRINTED SHOPPING LIST - PRESS THE 'Y' KEY. IF NOT - PRESS THE" -110 PRINT "'N' KEY & THE CURSOR WILL MOVE ON TO THE NEXT ITEM.":PRINT -120 PRINT " AN '*' WILL APPEAR TO THE LEFT OF THE ITEMS SELECTED. TO" -130 PRINT "MOVE TO THE NEXT 'PAGE' PRESS THE '@' KEY. YOU CANNOT GO" -140 PRINT "BACKWARDS...IF YOU FORGET AN ITEM - DON'T FRET - AFTER" -150 PRINT "RUNNING THE ENTIRE LIST YOU WILL BE ABLE TO ADD ITEMS NOT" -160 PRINT "LISTED OR FORGOTTEN; BEFORE THE PRINT-OUT OCCURS." -170 PRINT @ 15*64," * PRESS SPACE BAR TO CONTINUE *"; -171 REM ** INSTRUCTIONS BLINKING CURSOR ROUTINE -180 KL$="#" ' CHR$(143) -190 LK$=" " -200 PRINT @ 3*64+46,KL$;:FOR DD=1 TO 10:NEXT DD -210 AA$=INKEY$:PRINT @ 3*64+46,LK$;:FOR DD=1 TO 10:NEXT DD:IF LEN(AA$) THEN 220 ELSE 200 -220 H=0:K=-1:O=0:F=0:P=0:Q=0:R=0:S=0 -230 DIM LT(45),LT$(250),ST$(250),LST(45),LST$(45),NL$(250),A$(50),B$(50),C$(50),D$(50),E$(50),MS$(20) -240 CLS:PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT " **** LOADING DATA ****" -241 REM ** LOAD SCREEN WITH 45 ITEMS -250 FOR Y=1 TO 45:READ LT(Y):NEXT Y -260 FOR X=1 TO 45 -270 READ LT$(X) -280 IF LT$(X)="*END" THEN GOTO 380 -290 NEXT X -300 X=0:Y=0:H=0 -310 CLS -311 REM ** SET UP CURSOR AT PROPER POSITION -320 X=X+1:Y=Y+1 -330 IF X=46 THEN 830 -340 PRINT @ LT(Y),LT$(X); -350 ST$(H)=LT$(X) -360 H=H+1 -370 GOTO 320 -371 REM ** ADD MISC. ITEMS ROUTINE -380 CLS:W=0:PRINT "YOU MAY NOW ADD UP TO 20 ITEMS OF YOUR CHOICE THAT WERE NOT ON THE LIST. AFTER EACH ITEM IS TYPED, PRESS . WHEN FIN- ISHED...TYPE 'END' FOLLOWED BY PRESSING ." -390 PRINT :FOR I=1 TO 20 -400 PRINT "ITEM #";I;" "; -410 INPUT MS$(I) -420 IF MS$(I)="END" THEN 460 -430 W=W+1 -431 REM ** PREVENT INSTRUCTIONS FROM SCROLLING OFF SCREEN -440 IF I=11 THEN PRINT @ 4*64,""; -450 NEXT I -460 CLS:PRINT "READY PRINTER" -470 PRINT "HIT ENTER WHEN READY" -480 A$=INKEY$: IF LEN(A$)=0 THEN 480 -481 REM ** PRINT OUT -490 U=PEEK(14312) -500 IF U=63 THEN GOTO 530 ELSE GOTO 510 -510 PRINT @ 7*64,"******* PRINTER NOT READY....CORRECT & PROCEED *******" -520 FOR GG=1 TO 800:NEXT GG:CLS:GOTO 460 -530 CLS -540 LPRINT " ":LPRINT " ":LPRINT " ******************* SHOPPING LIST *******************":LPRINT " ":LPRINT " ":LPRINT " " -550 NC=-20 -560 FOR A=0 TO O-1 -570 GOSUB 1560 -580 LPRINT TAB(NC) A$(A); -590 NEXT A -600 FOR A=0 TO P-1 -610 GOSUB 1560 -620 LPRINT TAB(NC) B$(A); -630 NEXT A -640 FOR A=0 TO Q-1 -650 GOSUB 1560 -660 LPRINT TAB(NC) C$(A); -670 NEXT A -680 FOR A=0 TO R-1 -690 GOSUB 1560 -700 LPRINT TAB(NC) D$(A); -710 NEXT A -720 FOR A=0 TO S-1 -730 GOSUB 1560 -740 LPRINT TAB(NC) E$(A); -750 NEXT A -760 FOR A=1 TO W -770 GOSUB 1560 -780 LPRINT TAB(NC) MS$(A); -790 NEXT A -800 LPRINT " ":LPRINT " ":LPRINT " ******************** END OF LIST ********************" -810 LPRINT " ":LPRINT " ":LPRINT " ":LPRINT " " -820 END -830 REM ** BLINKING CURSOR ROUTINE -840 C$="#" ' CHR$(143) -850 J$=" " -855 PRINT @ 15*64+5,":::::::::::::PRESS '@' KEY FOR NEXT PAGE:::::::::::::"; -860 FOR I=1 TO 45 -870 PRINT @ LT(I)-2,C$; -880 FOR DD=1 TO 5:NEXT DD -890 JK$=INKEY$:PRINT @ LT(I)-2,J$;:FOR DD=1 TO 5:NEXT DD:IF JK$="@" THEN 960 ELSE IF JK$="Y" THEN PRINT @ LT(I)-2,"*";:K=K+1:GOTO 900 ELSE IF JK$="N" THEN PRINT @ LT(I)-2," ";:K=K+1:GOTO 950 ELSE 870 -900 IF F=0 THEN A$(O)=ST$(K):O=O+1 -910 IF F=1 THEN B$(P)=ST$(K):P=P+1 -920 IF F=2 THEN C$(Q)=ST$(K):Q=Q+1 -930 IF F=3 THEN D$(R)=ST$(K):R=R+1 -940 IF F=4 THEN E$(S)=ST$(K):S=S+1 -950 NEXT I -960 F=F+1:K=-1:GOTO 260 -961 REM ** SET UP SCREEN PRINT POSITIONS -970 DATA 5,25,44,69,89,108,133,153,172,197,217,236,261,281,300,325,345,364,389,409 -980 DATA 428,453,473,492,517,537,556,581,601,620,645,665,684,709,729,748,773,793,812,837,857,876,901,921,940 -989 REM ** GROCERY ITEM LISTS . . 45 ITEMS PER 'PAGE' -990 DATA CANTALOUPES,MUSHROOMS,APPLES,CELERY -1000 DATA CARROTS,PEARS,LETTUCE,CUCUMBERS -1010 DATA TOMATOES,MARZETTI DRESSING,GREEN PEPPERS -1020 DATA BANANAS,POTATOES,CORN,CABBAGE -1030 DATA ONIONS,GRAPEFRUIT,GRAPES -1040 DATA ORANGE JUICE,DRY YEAST,EGGS,BUTTER -1050 DATA MARGERINE,MILK,CHEESE(SLICES) -1060 DATA CHEESE(PIZZA),MAYONNAISE,SALAD DRESSING -1070 DATA PICKLES(DILL),PICKLES(SLICES),MUSTARD -1080 DATA KETCHUP,PEANUT BUTTER,JELLY -1090 DATA RELISH,HOT SAUCE -1100 DATA SUB BUNS,DINNER ROLLS,FRENCH BREAD -1110 DATA ITALIAN BREAD,PIE,CAKE,DONUTS -1120 DATA POTATOE SALAD,MACARONI SALAD,KIELBASA -1130 DATA LUNCHEON MEAT,BALOGNA,KIELBASA LOAF -1140 DATA PIZZA LOAF,SALAMI -1150 DATA PEPSI,DIET PEPSI,7-UP,GINGERALE -1160 DATA DR PEPPER,R C COLA,POP,ROOTBEER -1170 DATA PEANUTS,WALNUTS,PLAIN CHIPS,RIPPLED CHIPS -1180 DATA PRETZELS,POPCORN,CORN CHIPS -1190 DATA CORN CURLS,DORITOS -1200 DATA MUSHROOMS,SAUERKRAUT,PEAS,CARROTS,GREEN BEANS -1210 DATA CORN,CHILI BEANS,PORK & BEANS,INSTANT COFFEE -1220 DATA REGULAR COFFEE,TEA BAGS,COCOA MIX,TOMATO SAUCE -1230 DATA TOMATO PUREE,TOMATO PASTE,TOMATOES(WHOLE) -1240 DATA FRUIT COCKTAIL,PINEAPPLES,TOMATO JUICE -1250 DATA DOG FOOD,CAT FOOD,BONZ,DOG YUMMIES,FLEA POWDER -1260 DATA FROSTED FLAKES,CHEERIOS,CORN FLAKES,SHREADED WHEAT -1270 DATA BEEF NOODLE SOUP,TOMATO RICE SOUP,CHICKEN SOUP -1280 DATA TOMATO SOUP,VEGTABLE SOUP,TUNA FISH,SALMON -1290 DATA RICE-A-RONI,RICE,SPAGETTI SAUCE,PIZZA SAUCE -1300 DATA SPAGETTI NOODLES,ELBO MACARONI,EGG NOODLES -1310 DATA RIGATONI,COOKIES,SALTEEN CRACKERS,RITZ CRACKERS -1320 DATA SOAP(FACE),SOAP(SHOWER),MR BUBBLE -1330 DATA CLEANSER,CHEER,WINDEX,VANISH,SOFT SCRUB -1340 DATA MR CLEAN,AIR FRESHNERS,SHOUT,BLEACH,IVORY LIQUID -1350 DATA BOUNCE,AMMONIA,STARCH,TOP JOB -1360 DATA CAKE MIXES,FLOUR,CRISCO,VEGTABLE OIL,LOG CABIN SYRUP -1370 DATA PANCAKE MIX,SPICES,SALT,PEPPER,SUGAR,AU JUS GRAVY -1380 DATA MEAT LOAF MIX,STROGANOFF MIX,MEAT TENDERIZER,CANDY -1390 DATA MARSHMELLOWS,JELLO,CARNATION MILK,FREEZER WRAP -1400 DATA NAPKINS,GLAD WRAP,ALUMINUM FOIL,TRASH BAGS -1410 DATA GARBAGE BAGS,WAX PAPER,KLEENEX,TOILET PAPER,PAPER TOWELS -1420 DATA CAKE,BREAD,HAMBURG BUNS,HOT DOG BUNS,DINNER ROLLS -1430 DATA BREAD CRUMBS,CROUTONS,STUFFING MIX,SHAKE & BAKE -1440 DATA FISH FILETS,FRENCH FRIES,ONION RINGS,GNOCCHI -1450 DATA WAFFLES,LEMONADE,ORANGE JUICE,TANG -1460 DATA PIEROGIES,PIZZA,STEAK-UMMS,CHOPPED ONION -1470 DATA ICE CREAM,POP SICKLES,ICE CREAM TOPPINGS,COOL WHIP -1480 DATA FROZEN CHICKEN ,ROAST BEEF DINNER,FROZEN TURKEY -1490 DATA FROZEN STRAWBRY,FROZEN MIXED FRUIT -1500 DATA HOT DOGS,BACON,SAUSAGE,FISH,CHICKEN,TURKEY -1510 DATA PEPPER STEAKS,STEAK,ROAST,CHOPPED SERLOIN -1520 DATA HOT SAUSAGE,HAMBURGER,GROUND CHUCK,HAM,PORK CHOPS -1530 DATA SPARE RIBS,CIGARETTES,PIPE TOBACCO,PIPE FILTERS,T V GUIDE -1535 REM ** DELETE A PERIOD '.' IN DATA LINE 1540 FOR EACH NEW ITEM ADDED OR ADD PERIOD '.' IN DATA LINE 1540 FOR EACH ITEM DELETED. -1540 DATA .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,. -1550 DATA *END -1560 NC=NC+20 -1570 IF NC>60 THEN LPRINT :NC=0 -1575 IF NC <= 0 THEN LET NC = 1 -1580 RETURN -1590 'SAVE AS "SHOPPING/JAK" -2000 REM ----------------------------------- -2010 REM Changes for bwBASIC -2100 DEF PEEK(X) -2110 REM Printer Is Ready -2120 LET PEEK = 63 -2130 FNEND -2200 DEF INKEY$ -2210 REM use INPUT because it is automted instead of INKEY$ which is not automated -2220 INPUT ZZ$ -2230 LET INKEY$ = ZZ$ -2240 FNEND -2999 END diff --git a/bwbtest/T80B/SHOPPING.INP b/bwbtest/T80B/SHOPPING.INP deleted file mode 100644 index 0426731..0000000 --- a/bwbtest/T80B/SHOPPING.INP +++ /dev/null @@ -1,28 +0,0 @@ -Y -@ -@ -@ -@ -@ -@ -Y -Y -Y -Y -Y -N -N -N -N -N -Y -Y -N -N -N -Y -N -Y -N -Y -@ diff --git a/bwbtest/T80B/SHOPPING.run b/bwbtest/T80B/SHOPPING.run deleted file mode 100644 index 4892fcf..0000000 --- a/bwbtest/T80B/SHOPPING.run +++ /dev/null @@ -1,90 +0,0 @@ - - - **** SHOPPING LIST **** - BY J. A. KRAYNAK - - - -DO YOU NEED INSTRUCTIONS (Y/N)? Y - - - FIVE LISTS OF GROCERIES WILL APPEAR ON THE SCREEN, ONE -AT A TIME OF COURSE, WITH A BLINKING CURSOR ( ) NEXT TO THE -FIRST ITEM ON THE LIST. IF YOU DESIRE THAT ITEM TO BE ON YOUR -PRINTED SHOPPING LIST - PRESS THE 'Y' KEY. IF NOT - PRESS THE -'N' KEY & THE CURSOR WILL MOVE ON TO THE NEXT ITEM. - - AN '*' WILL APPEAR TO THE LEFT OF THE ITEMS SELECTED. TO -MOVE TO THE NEXT 'PAGE' PRESS THE '@' KEY. YOU CANNOT GO -BACKWARDS...IF YOU FORGET AN ITEM - DON'T FRET - AFTER -RUNNING THE ENTIRE LIST YOU WILL BE ABLE TO ADD ITEMS NOT -LISTED OR FORGOTTEN; BEFORE THE PRINT-OUT OCCURS. - * PRESS SPACE BAR TO CONTINUE *#? @ - - - - - - - **** LOADING DATA **** -CANTALOUPESMUSHROOMSAPPLESCELERYCARROTSPEARSLETTUCE -CUCUMBERSTOMATOESMARZETTI DRESSINGGREEN PEPPERS -BANANASPOTATOESCORNCABBAGEONIONSGRAPEFRUITGRAPES -ORANGE JUICEDRY YEASTEGGSBUTTER -MARGERINEMILKCHEESE(SLICES)CHEESE(PIZZA) -MAYONNAISESALAD DRESSINGPICKLES(DILL)PICKLES(SLICES)MUSTARDKETCHUPPEANUT BUTTERJ -DINNER ROLLSFRENCH BREADITALIAN BREADPIECAKEDONUTSPOTATOE SALADMACARONI SALAD::: - KIELBASALUNCHEON MEATBALOGNA -KIELBASA LOAFPIZZA LOAFSALAMIPEPSI -DIET PEPSI7-UPGINGERALEDR PEPPER -R C COLAPOPROOTBEERPEANUTSWALNUTSPLAIN CHIPSRIPPLED CHIPSPRETZELSPOPCORNCORN CHI -CARROTSGREEN BEANSCORNCHILI BEANSPORK & BEANSINSTANT COFFEEREGULAR COFFEETEA BAG -TOMATO PASTETOMATOES(WHOLE)FRUIT COCKTAILPINEAPPLES -TOMATO JUICEDOG FOODCAT FOODBONZ:::::::::::::PRESS '@' KEY FOR NEXT PAGE:::::::: - DOG YUMMIESFLEA POWDERFROSTED FLAKESCHEERIOSCORN FLAKESSHREADED WHEATBEEF NOODL -TOMATO RICE SOUPCHICKEN SOUPTOMATO SOUPVEGTABLE SOUP -TUNA FISHSALMONRICE-A-RONIRICESPAGETTI SAUCEPIZZA SAUCESPAGETTI NOODLES -ELBO MACARONIEGG NOODLESRIGATONICOOKIES -SALTEEN CRACKERSRITZ CRACKERSSOAP(FACE)SOAP(SHOWER) -MR BUBBLECLEANSERCHEERWINDEXVANISHSOFT SCRUBMR CLEAN -AIR FRESHNERSSHOUTBLEACHIVORY LIQUIDBOUNCEAMMONIASTARCHTOP JOB -CAKE MIXESFLOURCRISCOVEGTABLE OIL:::::::::::::PRESS '@' KEY FOR NEXT PAGE::::::: - LOG CABIN SYRUPPANCAKE MIXSPICESSALTPEPPERSUGARAU JUS GRAVY -MEAT LOAF MIXSTROGANOFF MIXMEAT TENDERIZERCANDY -MARSHMELLOWSJELLOCARNATION MILKFREEZER WRAPNAPKINSGLAD WRAPALUMINUM FOILTRASH BA -TOILET PAPERPAPER TOWELSCAKEBREAD -HAMBURG BUNSHOT DOG BUNSDINNER ROLLSBREAD CRUMBSCROUTONSSTUFFING MIXSHAKE & BAKE -PIEROGIESPIZZASTEAK-UMMSCHOPPED ONION:::::::::::::PRESS '@' KEY FOR NEXT PAGE::: - ICE CREAMPOP SICKLESICE CREAM TOPPINGSCOOL WHIPFROZEN CHICKENROAST BEEF DINNERF -FROZEN STRAWBRYFROZEN MIXED FRUITHOT DOGSBACON -SAUSAGEFISHCHICKENTURKEYPEPPER STEAKSSTEAKROAST -CHOPPED SERLOINHOT SAUSAGEHAMBURGERGROUND CHUCKHAMPORK CHOPSSPARE RIBSCIGARETTES -PIPE TOBACCOPIPE FILTERST V GUIDE................:::::::::::::PRESS '@' KEY FOR - -YOU MAY NOW ADD UP TO 20 ITEMS OF YOUR CHOICE THAT WERE NOT ON THE LIST. AFTER - EACH ITEM IS TYPED, PRESS . WHEN FIN- ISHED...TYPE 'END' FOLLOWED BY P -RESSING . - -ITEM # 1 ? Y -ITEM # 2 ? Y -ITEM # 3 ? Y -ITEM # 4 ? Y -ITEM # 5 ? Y -ITEM # 6 ? N -ITEM # 7 ? N -ITEM # 8 ? N -ITEM # 9 ? N -ITEM # 10 ? N -ITEM # 11 ? Y -ITEM # 12 ? Y -ITEM # 13 ? N -ITEM # 14 ? N -ITEM # 15 ? N -ITEM # 16 ? Y -ITEM # 17 ? N -ITEM # 18 ? Y -ITEM # 19 ? N -ITEM # 20 ? Y -READY PRINTER -HIT ENTER WHEN READY -? @ diff --git a/bwbtest/T80B/SIMLEQNS.BAS b/bwbtest/T80B/SIMLEQNS.BAS deleted file mode 100644 index b300c92..0000000 --- a/bwbtest/T80B/SIMLEQNS.BAS +++ /dev/null @@ -1,54 +0,0 @@ -10 PRINT "SIMULTANEOUS EQUATIONS" -20 PRINT -29 REM - LIMIT A() TO A(R,R+1) WHERE R=MAX NO. OF EQUATIONS -30 DIM A(9,10) -40 PRINT "NUMBER OF EQUATIONS"; -50 INPUT R -60 PRINT "COEFFICIENT MATRIX:" -70 FOR J=1 TO R -80 PRINT "EQUATION";J -90 FOR I=1 TO R+1 -100 IF I=R+1 THEN 130 -110 PRINT " COEFFICIENT";I; -120 GOTO 140 -130 PRINT " CONSTANT"; -140 INPUT A(J,I) -150 NEXT I -160 NEXT J -170 FOR J=1 TO R -178 REM - STATEMENT 180 TO 220 FIND THE FIRST EQUATION WITH A -179 REM - NON-ZERO COEFFICIENT FOR THE CURRENT COLUMN -180 FOR I=J TO R -190 IF A(I,J)<>0 THEN 230 -200 NEXT I -210 PRINT "NO UNIQUE SOLUTION" -220 GOTO 440 -229 REM - STATEMENTS 230 TO 270 MOVE THAT EQUATION UP TO THE CURRENT ROW -230 FOR K=1 TO R+1 -240 X=A(J,K) -250 A(J,K)=A(I,K) -260 A(I,K)=X -270 NEXT K -278 REM - REM - STATEMENTS 280 TO 310 GET A 1 COEFFICIENT IN THE FIRST -279 REM - NON-ZERO COLUMN OF THE CURRENT ROW -280 Y=1/A(J,J) -290 FOR K=1 TO R+1 -300 A(J,K)=Y*A(J,K) -310 NEXT K -318 REM - STATEMENTS 320 TO 380 SUBTRACT THE CURRENT EQUATION FROM -319 REM - THE OTHER ROWS -320 FOR I=1 TO R -330 IF I=J THEN 380 -340 Y=-A(I,J) -350 FOR K=1 TO R+1 -360 A(I,K)=A(I,K)+Y*A(J,K) -370 NEXT K -380 NEXT I -389 REM - THIS PROCESS IS REPEATED FOR ALL EQUATIONS -390 NEXT J -400 PRINT -409 REM - PRINT SOLUTIONS -410 FOR I=1 TO R -420 PRINT "x";I;"=";INT(A(I,R+1)*1000+.5)/1000 -430 NEXT I -440 END diff --git a/bwbtest/T80B/SIMLEQNS.INP b/bwbtest/T80B/SIMLEQNS.INP deleted file mode 100644 index b1a6a4d..0000000 --- a/bwbtest/T80B/SIMLEQNS.INP +++ /dev/null @@ -1,7 +0,0 @@ -2 -4 -8 -9 -5 -2 -7 diff --git a/bwbtest/T80B/SIMLEQNS.run b/bwbtest/T80B/SIMLEQNS.run deleted file mode 100644 index 3ee7531..0000000 --- a/bwbtest/T80B/SIMLEQNS.run +++ /dev/null @@ -1,15 +0,0 @@ -SIMULTANEOUS EQUATIONS - -NUMBER OF EQUATIONS? 2 -COEFFICIENT MATRIX: -EQUATION 1 - COEFFICIENT 1 ? 4 - COEFFICIENT 2 ? 8 - CONSTANT? 9 -EQUATION 2 - COEFFICIENT 1 ? 5 - COEFFICIENT 2 ? 2 - CONSTANT? 7 - -x 1 = 1.188 -x 2 = .531 diff --git a/bwbtest/T80B/STDDEV.BAS b/bwbtest/T80B/STDDEV.BAS deleted file mode 100644 index bd56bc0..0000000 --- a/bwbtest/T80B/STDDEV.BAS +++ /dev/null @@ -1,49 +0,0 @@ -10 PRINT "MEAN, VARIANCE, STANDARD DEVIATION" -20 PRINT -30 PRINT "WHICH METHOD (0=POPULATION,1=SAMPLE)"; -40 INPUT S -50 PRINT "KIND OF DATA (0=GROUPED,1=UNGROUPED)"; -60 INPUT K -70 PRINT "NUMBER OF OBSERVATIONS"; -80 INPUT N -90 R=0 -100 M=0 -110 P=0 -120 IF K=1 THEN 230 -129 REM - FOR GROUPED DATA -130 FOR I=1 TO N -140 PRINT "ITEM, FREQUENCY";I; -150 INPUT A,B -159 REM - ACCUMULATE ENTERED VALUES -160 R=R+B*A -169 REM - ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE -170 P=P+B -180 M=M+B*A[2 -190 NEXT I -199 REM - CALCULATE MEAN AND VARIANCE -200 R=R/P -210 V=(M-P*R[2)/(P-S) -219 REM - PRINT RESULTS -220 GOTO 310 -229 REM - FOR UNGROUPED DATA -230 FOR I=1 TO N -240 PRINT "ITEM";I; -250 INPUT D -259 REM - ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE -260 P=P+D -269 REM - ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE -270 M=M+D[2 -280 NEXT I -289 REM - CALCULATE MEAN AND VARIANCE, PRINT -290 R=P/N -300 V=(M-N*R[2)/(N-S) -310 PRINT -319 REM - PRINT RESULTS -320 PRINT "MEAN","VARIANCE","STANDARD DEVIATION" -330 PRINT R,V,SQR(V) -340 PRINT -349 REM - RESTART OR END PROGRAM? -350 PRINT "MORE DATA (1=YES, 0=NO)"; -360 INPUT S -370 IF S=1 THEN 20 -380 END diff --git a/bwbtest/T80B/STDDEV.INP b/bwbtest/T80B/STDDEV.INP deleted file mode 100644 index b6a47af..0000000 --- a/bwbtest/T80B/STDDEV.INP +++ /dev/null @@ -1,7 +0,0 @@ -0 -1 -3 -4 -5 -6 -0 diff --git a/bwbtest/T80B/STDDEV.run b/bwbtest/T80B/STDDEV.run deleted file mode 100644 index ecccc72..0000000 --- a/bwbtest/T80B/STDDEV.run +++ /dev/null @@ -1,13 +0,0 @@ -MEAN, VARIANCE, STANDARD DEVIATION - -WHICH METHOD (0=POPULATION,1=SAMPLE)? 0 -KIND OF DATA (0=GROUPED,1=UNGROUPED)? 1 -NUMBER OF OBSERVATIONS? 3 -ITEM 1 ? 4 -ITEM 2 ? 5 -ITEM 3 ? 6 - -MEAN VARIANCE STANDARD DEVIATION - 5 .666667 .816497 - -MORE DATA (1=YES, 0=NO)? 0 diff --git a/bwbtest/T80B/SYSREL.BAS b/bwbtest/T80B/SYSREL.BAS deleted file mode 100644 index 7e6f0c7..0000000 --- a/bwbtest/T80B/SYSREL.BAS +++ /dev/null @@ -1,28 +0,0 @@ -10 PRINT "SYSTEM RELIABILITY" -20 PRINT -30 PRINT "(TO END PROGRAM ENTER 0)" -40 PRINT "OPERATING TIME IN HOURS"; -50 INPUT T -59 REM - TEST FOR END OF PROGRAM -60 IF T=0 THEN 230 -70 PRINT "NUMBER OF COMPONENTS"; -80 INPUT N -90 Z=0 -99 REM - ENTER DATA FOR EACH COMPONENT -100 FOR I=1 TO N -110 PRINT "COMPONENT";I -120 PRINT " AVERAGE WEAROUT TIME"; -130 INPUT W -140 PRINT " AVERAGE FAILURE RATE"; -150 INPUT F -159 REM - INCLUDE EACH COMPONENT IN RELIABILITY -160 Z=Z+1/W+F -170 NEXT I -180 PRINT -189 REM - CALCULATE RELIABILITY, PRINT -190 Z=EXP(-Z*T) -200 PRINT "SYSTEM RELIABILITY =";Z -210 PRINT -219 REM - RESTART PROGRAM -220 GOTO 40 -230 END diff --git a/bwbtest/T80B/SYSREL.INP b/bwbtest/T80B/SYSREL.INP deleted file mode 100644 index 125de68..0000000 --- a/bwbtest/T80B/SYSREL.INP +++ /dev/null @@ -1,9 +0,0 @@ -3600 -3 -987654321 -.00000001 -987654321 -.00000003 -987654321 -.00000005 -0 diff --git a/bwbtest/T80B/SYSREL.run b/bwbtest/T80B/SYSREL.run deleted file mode 100644 index a30fe9f..0000000 --- a/bwbtest/T80B/SYSREL.run +++ /dev/null @@ -1,18 +0,0 @@ -SYSTEM RELIABILITY - -(TO END PROGRAM ENTER 0) -OPERATING TIME IN HOURS? 3600 -NUMBER OF COMPONENTS? 3 -COMPONENT 1 - AVERAGE WEAROUT TIME? 987654321 - AVERAGE FAILURE RATE? .00000001 -COMPONENT 2 - AVERAGE WEAROUT TIME? 987654321 - AVERAGE FAILURE RATE? .00000003 -COMPONENT 3 - AVERAGE WEAROUT TIME? 987654321 - AVERAGE FAILURE RATE? .00000005 - -SYSTEM RELIABILITY = .999665 - -OPERATING TIME IN HOURS? 0 diff --git a/bwbtest/T80B/T80.PRO b/bwbtest/T80B/T80.PRO deleted file mode 100644 index 1e12dba..0000000 --- a/bwbtest/T80B/T80.PRO +++ /dev/null @@ -1,3 +0,0 @@ -OPTION VERSION "TRS-80" -LET PI=3.141592654 -WIDTH 24, 80 diff --git a/bwbtest/T80B/TDIST.BAS b/bwbtest/T80B/TDIST.BAS deleted file mode 100644 index 38a9db9..0000000 --- a/bwbtest/T80B/TDIST.BAS +++ /dev/null @@ -1,37 +0,0 @@ -10 PRINT "STUDENT'S T-DISTRIBTION" -20 PRINT -30 PRINT "(TO END PROGRAM ENTER A T-VALUE OF 0)" -40 PRINT "T-VALUE"; -50 INPUT T -60 IF T=0 THEN 340 -70 PRINT "DEGREES OF FREEDOM"; -80 INPUT D -90 X=1 -100 Y=1 -110 T=T[2 -119 REM - COMPUTE USING INVERSE FOR SMALL T-VALUES -120 IF T<1 THEN 170 -130 S=Y -140 R=D -150 Z=T -160 GOTO 200 -170 S=D -180 R=Y -190 Z=1/T -200 J=2/9/S -210 K=2/9/R -219 REM - COMPUTE USING APPROXIMATION FORMULAS -220 L=ABS((1-K)*Z[(1/3)-1+J)/SQR(K*Z[(2/3)+J) -230 IF R<4 THEN 270 -240 X=.5/(1+L*(.196854+L*(.115194+L*(.000344+L*.019527))))[4 -250 X=INT(X*10000+.5)/10000 -260 GOTO 290 -270 L=L*(1+.08*L[4/R[3) -280 GOTO 240 -289 REM - ADJUST IF INVERSE WAS COMPUTED -290 IF T>=1 THEN 310 -300 X=1-X -310 PRINT "RIGHT TAIL VALUE =";X -320 PRINT -330 GOTO 40 -340 END diff --git a/bwbtest/T80B/TDIST.INP b/bwbtest/T80B/TDIST.INP deleted file mode 100644 index 70e7604..0000000 --- a/bwbtest/T80B/TDIST.INP +++ /dev/null @@ -1,5 +0,0 @@ -7.78 -3 -1.34 -5 -0 diff --git a/bwbtest/T80B/TDIST.run b/bwbtest/T80B/TDIST.run deleted file mode 100644 index 83e17d0..0000000 --- a/bwbtest/T80B/TDIST.run +++ /dev/null @@ -1,12 +0,0 @@ -STUDENT'S T-DISTRIBTION - -(TO END PROGRAM ENTER A T-VALUE OF 0) -T-VALUE? 7.78 -DEGREES OF FREEDOM? 3 -RIGHT TAIL VALUE = .0036 - -T-VALUE? 1.34 -DEGREES OF FREEDOM? 5 -RIGHT TAIL VALUE = .2372 - -T-VALUE? 0 diff --git a/bwbtest/T80B/TDISTEST.BAS b/bwbtest/T80B/TDISTEST.BAS deleted file mode 100644 index 2efb557..0000000 --- a/bwbtest/T80B/TDISTEST.BAS +++ /dev/null @@ -1,53 +0,0 @@ -10 PRINT "STUDENT'S T-DISTRIBUTION TEST" -20 PRINT -29 REM - LIMIT SAMPLE SIZE TO P(N,2) WHERE N=MAX. SAMPLE SIZE -30 DIM P(100,2) -40 DIM V(2),R(2),M(2),D(2) -50 PRINT "TEST 1: MEAN=X" -60 PRINT "TEST 2: MEAN=MEAN,STANDARD DEVIATION=STANDARD DEVIATION" -70 PRINT "TEST 3: MEAN=MEAN,STANDARD DEVIATION<>STANDARD DEVIATION" -80 PRINT "WHICH HYPOTHESIS"; -90 INPUT T -100 PRINT -109 REM - INPUT 1 OR 2 SAMPLES DEPENDING ON HYPOTHESIS -110 FOR I=1 TO SGN(T-1)+1 -120 V(I)=0 -130 D(I)=0 -140 PRINT "SAMPLE";I;":" -150 PRINT " NUMBER OF ELEMENTS"; -160 INPUT R(I) -170 FOR J=1 TO R(I) -180 PRINT " ELEMENT";J; -190 INPUT P(J,I) -199 REM - ACCUMULATE SAMPLES -200 V(I)=V(I)+P(J,I) -210 D(I)=D(I)+P(J,I)[2 -220 NEXT J -229 REM - COMPUTE INTERMEDIATE VALUES -230 M(I)=V(I)/R(I) -240 V(I)=(D(I)-V(I)[2/R(I))/(R(I)-1) -250 NEXT I -260 PRINT -270 IF T=2 THEN 340 -280 IF T=3 THEN 380 -289 REM - INPUT GIVEN VALUE FOR FIRST HYPOTHESIS -290 PRINT "VALUE OF MEAN"; -300 INPUT M -309 REM - COMPUTE T AND DEGREES OF FREEDOM FOR FIRST HYPOTHESIS -310 A=(M(1)-M)*SQR(R(1)/V(1)) -320 B=R(1)-1 -330 GOTO 420 -339 REM - COMPUTE T AND DEGREES OF FREEDOM FOR SECOND HYPOTHESIS -340 A=(M(1)-M(2))/SQR(1/R(1)+1/R(2)) -350 B=R(1)+R(2)-2 -360 A=A/SQR(((R(1)-1)*V(1)+(R(2)-1)*V(2))/B) -370 GOTO 420 -379 REM - COMPUTE T AND DEGREES OF FREEDOM FOR THIRD HYPOTHESIS -380 A=(M(1)-M(2))/SQR(V(1)/R(1)+V(2)/R(2)) -390 B=(V(1)/R(1)+V(2)/R(2))[2 -400 B=B/((V(1)/R(1))[2/(R(1)+1)+(V(2)/R(2))[2/(R(2)+1))-2 -410 B=INT(B+.5) -420 PRINT -430 PRINT "T-VALUE =";ABS(A) -440 PRINT "DEGREES OF FREEDOM =";B -450 END diff --git a/bwbtest/T80B/TDISTEST.INP b/bwbtest/T80B/TDISTEST.INP deleted file mode 100644 index 1d0af7c..0000000 --- a/bwbtest/T80B/TDISTEST.INP +++ /dev/null @@ -1,8 +0,0 @@ -1 -5 -6 -7 -8 -9 -4 -11 diff --git a/bwbtest/T80B/TDISTEST.run b/bwbtest/T80B/TDISTEST.run deleted file mode 100644 index 0e967b5..0000000 --- a/bwbtest/T80B/TDISTEST.run +++ /dev/null @@ -1,19 +0,0 @@ -STUDENT'S T-DISTRIBUTION TEST - -TEST 1: MEAN=X -TEST 2: MEAN=MEAN,STANDARD DEVIATION=STANDARD DEVIATION -TEST 3: MEAN=MEAN,STANDARD DEVIATION<>STANDARD DEVIATION -WHICH HYPOTHESIS? 1 - -SAMPLE 1 : - NUMBER OF ELEMENTS? 5 - ELEMENT 1 ? 6 - ELEMENT 2 ? 7 - ELEMENT 3 ? 8 - ELEMENT 4 ? 9 - ELEMENT 5 ? 4 - -VALUE OF MEAN? 11 - -T-VALUE = 4.8824 -DEGREES OF FREEDOM = 4 diff --git a/bwbtest/T80B/TRIGPOLY.BAS b/bwbtest/T80B/TRIGPOLY.BAS deleted file mode 100644 index b1c6e65..0000000 --- a/bwbtest/T80B/TRIGPOLY.BAS +++ /dev/null @@ -1,25 +0,0 @@ -10 PRINT "TRIG POLYNOMIAL" -20 PRINT -30 DATA 3,1,2,-2,1,5,-3 -40 PRINT "(ENTER ANGLE=99999 TO END PROGRAM)" -50 PRINT "ANGLE"; -60 INPUT R -69 REM - END PROGRAM? -70 IF R=99999 THEN 180 -79 REM - GET NUMBER OF PAIRS OF TERMS IN POLYNOMIAL -80 READ N -89 REM - LOOP TO GET VALUES OF COEFFICIENTS FROM DATA TABLE -90 FOR I=1 TO N -100 READ A,B -109 REM - CALCULATE VALUE OF FUNCTION AT ANGLE X -110 Z=Z+A*SIN(I*R)+B*COS(I*R) -120 NEXT I -129 REM - PRINT RESULTS -130 PRINT "F(";R;")=";Z -139 REM - PREPARE TO REREAD FUNCTION COEFFICIENTS -140 RESTORE -150 PRINT -160 Z=0 -169 REM - RESTART PROGRAM -170 GOTO 50 -180 END diff --git a/bwbtest/T80B/TRIGPOLY.INP b/bwbtest/T80B/TRIGPOLY.INP deleted file mode 100644 index a797aeb..0000000 --- a/bwbtest/T80B/TRIGPOLY.INP +++ /dev/null @@ -1,5 +0,0 @@ -45 -89 -12 -0 -99999 diff --git a/bwbtest/T80B/TRIGPOLY.run b/bwbtest/T80B/TRIGPOLY.run deleted file mode 100644 index a678aaf..0000000 --- a/bwbtest/T80B/TRIGPOLY.run +++ /dev/null @@ -1,16 +0,0 @@ -TRIG POLYNOMIAL - -(ENTER ANGLE=99999 TO END PROGRAM) -ANGLE? 45 -F( 45 )= 3.09559 - -ANGLE? 89 -F( 89 )= 2.8208 - -ANGLE? 12 -F( 12 )=-1.18853 - -ANGLE? 0 -F( 0 )= 0 - -ANGLE? 99999 diff --git a/bwbtest/T80B/broken/00readme.txt b/bwbtest/T80B/broken/00readme.txt deleted file mode 100644 index 1f73a1a..0000000 --- a/bwbtest/T80B/broken/00readme.txt +++ /dev/null @@ -1,6 +0,0 @@ -These programs: -1) use commands that are not supported by bwBASIC at this time, and/or -2) are not easy to test using the current automated method, and/or -3) there are no plans to support graphics at this time. - -EOF diff --git a/bwbtest/T80B/broken/MASTRDIR.BAS.txt b/bwbtest/T80B/broken/MASTRDIR.BAS.txt deleted file mode 100644 index cba2ce1..0000000 --- a/bwbtest/T80B/broken/MASTRDIR.BAS.txt +++ /dev/null @@ -1,161 +0,0 @@ -0 '*** A MASTER DIRECTORY PROGRAM *** -1 '*** FOR THE TRS-80 MODEL III *** -2 '*** WILBUR A. MUEHLIG, M.D. *** -3 '*** 726 N. 91 PLAZA, # 305, *** -4 '*** OMAHA, NEBR. 68114 *** -50 CLEAR10000:DEFINTX,B:DEFSTRA:DIMA(1000):X=0 -60 CLS:PRINT@470,"MASTER DISK INDEX":FORZ=1TO700:NEXT -70 CLS:PRINT:PRINT:PRINT:PRINT:PRINT -80 INPUT"Do you want instructions (Y/N)";I$ -90 IF I$="Y" GOTO 1500 -100 CLS:PRINT:REM * USE DOWN ARROW TO ALIGN ITEMS WHEN TYPING - * IN THE NEXT TWO LINES. -110 PRINT" MENU - - 1-START, ADD TO, OR SEE THE FILE - 2-LOAD FILE FROM DISK - 3-SAVE FILE TO DISK - 4-CORRECT AN ENTRY" -120 PRINT" 5-DELETE AN ENTRY - 6-MAKE A HARD COPY - 7-TOGGLE SORT ALPHA <--> NUMERICAL - 8-SEARCH - 9-LEAVE THE PROGRAM" -130 PRINT:INPUT" CHOOSE A NUMBER";Z -140 ON Z GOTO 500,600,700,800,900,1000,1200,1300,1400 -500 X=X+1:CLS:PRINT:PRINT"WHEN FINISHED WITH INPUTS OR TO SEE THE FILE, PRESS ENTER AN EXTRA TIME. TO STOP THE FILE PRINTING, PRESS 'S'.":PRINT:PRINT"EACH ENTRY MUST BE 16 SPACES LONG.":PRINT -510 PRINTX;:INPUT"PROGRAM FILE NAME AND DISK #";A(X) -512 IF A(X)=""GOTO 550 -515 IF LEN(A(X))<16PRINT" TOO SHORT! TRY AGAIN.":GOTO 510 -516 IF LEN(A(X))>16PRINT" TOO LONG! TRY AGAIN.":GOTO 510 -530 X=X+1 -540 GOTO 510 -545 REM * REMOVE THE X THAT IS NULL AND CALL THE SORT PROGRAM -550 X=X-1:CMD"O",X,A(1) -555 CLS -560 FOR B = 1 TO X -570 PRINTUSING"#### % %";B;A(B) -575 IF INKEY$="S" GOTO 100:REM * NOT ESSENTIAL! -580 IF B/15 = INT(B/15) INPUT"PRESS ENTER TO CONTINUE, S FOR MENU, R FOR PREVIOUS PAGE";Z9$:CLS -585 IF Z9$="S"CLS:Z9$="":GOTO100 - REM * IF YOU DON'T 'NULL' Z9$, NEXT TIME THROUGH * - * PRESSING ENTER WILL SEND YOU TO THE MENU * -586 IF Z9$="R" THEN Z9$="":B=B-30:REM * A NICE TOUCH -590 NEXT -595 INPUT"PRESS ENTER TO CONTINUE";Z9:GOTO100 -600 ON ERROR GOTO 1450 -605 PRINT:PRINT"LOADING FILE FROM DISK......." -610 OPEN"I",1,"IND/FIL" -620 INPUT#1,X:REM * X IS THE TOTAL NUMBER OF ITEMS -630 FOR B = 1 TO X -640 INPUT#1,A(B) -650 NEXT:CLOSE -660 GOTO 100 -700 IF A(1)=""THEN PRINT"FILE EMPTY":INPUT"PRESS ENTER";Z:GOTO 100 -710 PRINT:PRINT"SAVING FILE TO DISK....." -720 OPEN"O",1,"IND/FIL" -730 PRINT#1,X -740 FOR B = 1 TO X -750 PRINT#1,A(B) -760 NEXT:CLOSE -780 GOTO 100 -800 CLS:PRINT:PRINT:PRINT:PRINT:PRINT -820 PRINT:INPUT"WHICH NUMBER DO YOU WISH TO CORRECT";B -840 PRINT:PRINTB;A(B) -860 PRINT:INPUT"TYPE CORRECT ENTRY. IF OK AS IS, PRESS ENTER";A(B) -870 GOTO100 -900 CLS:PRINT:PRINT:PRINT:PRINT:PRINT:INPUT"WHICH NUMBER DO YOU WANT TO DELETE";B -912 PRINT:PRINTB;A(B) -913 PRINT:INPUT"IS THIS THE NUMBER YOU WANT TO DELETE (Y/N)";Z9$ -915 IF Z9$="Y" GOTO 920 -917 IF Z9$="N" GOTO 100 -920 A(B)=" " -930 FOR B = B+1 TO X:A(B-1)=A(B):NEXT -935 A(X)="":X=X-1 -950 PRINT:PRINT"ENTRY DELETED":FOR Z=1 TO 300:NEXT:GOTO100 -1000 CLS:PRINT:PRINT:PRINT:PRINT:INPUT"IS THE PRINTER ON? WHAT MARGIN DO YOU WANT (TRY 6)";T -1010 LPRINTTAB(30+T)"MASTER INDEX" -1015 LPRINTTAB(30+T)"============":LPRINT" " -1020 FOR B=1 TO X -1030 LPRINTTAB(T)USING"#### % %";B;A(B) -1040 IF B/54=INT(B/54)PRINT:PRINT"REPOSITION PAPER AND CHANGE MARGIN TO NEXT COLUMN.":INPUT" (TRY ADDING 25)";T -1050 NEXT -1060 GOTO100 -1200 CLS:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"CHOOSE: - 1-ALPHABETICAL SORT TO DISK # SORT - 2-DISK # SORT TO ALPHABETICAL" -1205 PRINT:INPUT" NUMBER";N -1207 ON N GOTO 1209,1250 -1209 PRINT:PRINT"PUTTING DISK # BEFORE FILE NAME......." -1210 FOR B=1 TO X -1220 A(B)=RIGHT$(A(B),3)+" "+A(B): - REM * A(B) IS STILL INTACT BUT PRINT USING * - * WILL CUT OFF THE DISK NUMBERS ON THE * - * RIGHT END. -1230 NEXT -1240 GOTO100 -1250 PRINT:PRINT"PUTTING FILE NAME BEFORE DISK #......." -1260 FOR B=1 TO X -1270 A(B)=RIGHT$(A(B),16):REM * GIVING US THE ORIGINAL * - * A(B) BACK -1280 NEXT -1290 GOTO 100 -1300 CLS:PRINT:PRINT:PRINT:PRINT:PRINT -1310 INPUT"WHAT IS THE FILE NAME OR PART OF FILE NAME - - YOU WISH TO SEARCH FOR";C$:REM * USE DOWN ARROW * -1320 FOR B = 1 TO X -1330 IF INSTR(A(B),C$)>0 PRINT: PRINTB;A(B):PRINT:INPUT"PRESS ENTER TO CONTINUE, 'M' FOR MENU";J$ -1332 IF J$="M" THEN J$="":GOTO100 -1340 NEXT -1345 PRINT:PRINTC$;:INPUT" NOT FOUND. PRESS ENTER";Z:GOTO 100 -1350 RETURN -1400 INPUT"DID YOU SAVE FILE TO DISK (Y/N)";Z9$ -1410 IF Z9$="Y"GOTO 1430 -1420 IF Z9$="N"GOTO 100 -1430 PRINT"OK!":CLOSE -1440 END -1450 PRINT:INPUT"ERROR! NO FILE ON DISK OR OTHER. PRESS ENTER FOR MENU";L:GOTO 100 -1500 CLS:PRINT:PRINT@26,"INSTRUCTIONS":PRINT -1510 PRINT" Make entries with MENU item #1. They should be limited to" -1520 PRINT"16 spaces, 12 for the file name, a blank, and 3 spaces for the" -1530 PRINT"disk number, e.g., FILENAME/EXT ###. Spaces not used for" -1535 PRINT"characters should be filled with blanks. Place the number" -1540 PRINT"as far to the right as possible in the 16 spaces, i.e., a" -1550 PRINT"single number would go in the 16th space. PRKNT USING" -1560 PRINT"statements are used in lines 570 and 1030 to give even print-" -1570 PRINT"outs on video and paper. The length is limited in order to get" -1580 PRINT"three columns on 8 1/2 x 11 paper. If you need more room for" -1590 PRINT"your file names, the PRINT USING statements can be changed." -1600 PRINT:INPUT"PRESS ENTER";Z:CLS -1610 PRINT" When additional entries are to be made, always load previous" -1620 PRINT"entries from disk first.":PRINT -1640 PRINT" The entries are sorted alphabetically as soon as they are" -1650 PRINT"complete. They may be reviewed by using MENU item 1. The review" -1660 PRINT"may be stopped while the screen is being printed by pressing" -1670 PRINT"'S'. The previous page may be seen by pressing 'R'. It is" -1675 PRINT"a good idea to save the file to two different disks as soon" -1680 PRINT"as your entries are complete." -1685 PRINT -1690 PRINT" The numbers to the left of the file names are index numbers" -1700 PRINT"to be used in making corrections or deletions. If you are" -1710 PRINT"making several deletions, do them in descending order, since" -1720 PRINT"the numbers above each deletion will be changed." -1730 PRINT:INPUT"PRESS ENTER";Z:CLS:PRINT:PRINT -1740 PRINT" The hard copy suggestions given in the program are for lines" -1750 PRINT"of 10 CPI and will give three columns of 54 entries each" -1760 PRINT"on 8 1/2 x 11 inch paper.":PRINT -1770 PRINT" TOGGLE SORT ALPHA <--> NUMERICAL gives two choices. The first" -1780 PRINT"puts the disk number before the file name and the second" -1790 PRINT"reverses this. The second choice is not essential but is fun" -1795 PRINT"to play with and makes a nice demonstration of your computer." -1800 PRINT"The sort by disk numbers will make a hard copy that can be cut" -1805 PRINT"up for disk jacket labels.":PRINT -1807 PRINT:INPUT"PRESS ENTER";Z:CLS:PRINT:PRINT:PRINT -1810 PRINT" The SEARCH choice will find any group of two or more" -1820 PRINT"characters occurring in the list of entries. It prints out" -1830 PRINT"the entry, then when ENTER is pressed, searches through the" -1840 PRINT"rest of the entries to find additonal occurrences." -1850 PRINT -1860 PRINT" If you press BREAK and leave the program, type GOTO 100 to" -1870 PRINT"return to the MEN diff --git a/bwbtest/T80B/broken/OTER.BAS.txt b/bwbtest/T80B/broken/OTER.BAS.txt deleted file mode 100644 index bc5bbe9..0000000 --- a/bwbtest/T80B/broken/OTER.BAS.txt +++ /dev/null @@ -1,107 +0,0 @@ -0 REM COPYRIGHT (C) 1983 CLOAD PUBLICATIONS -5 CLEAR1000 -15 DEFINTA-Z:DIMT,SH,SG,SK,MI,X,PI,AA,TI,SC,H,Y,VV,YU,M$,D$,E$,ZZ,Z!,K!,HY,ER,EE,I!,HI,U$,J!,TT,ST(10),PO(10),D(10),PP(10),N$(10),A$(10) -20 HI%=0 -25 CLS -30 D$=" CLEARFNAUTOLET " -35 E$=" LETNEWTOLIST " -40 M$="TAB(CLS"+STRING$(2,24)+CHR$(26)+"DEFSNGREM" -45 GOSUB405 -50 N$(1)="LETUSING "+STRING$(3,24)+CHR$(26)+"LETIFLET" -55 N$(2)="LETSETTAB("+STRING$(3,24)+CHR$(26)+"LETIFLET" -60 N$(3)="CONTCONTUSING"+STRING$(3,24)+CHR$(26)+"LETLETIF" -65 N$(4)="USINGDEFUSING"+STRING$(3,24)+CHR$(26)+STRING$(2,128)+"IF" -70 N$(5)="USING"+STRING$(2,179)+STRING$(3,24)+CHR$(26)+STRING$(2,140)+"IF" -75 N$(6)="USING"+STRING$(2,179)+STRING$(3,24)+CHR$(26)+"IFLETIF" -80 N$(7)=STRING$(2,131)+"USING"+STRING$(3,24)+CHR$(26)+STRING$(2,128)+"IF" -85 N$(8)=" -90 N$(9)="USINGCONTUSING"+STRING$(3,24)+CHR$(26)+STRING$(2,140)+"IF" -95 N$(0)="USINGSETUSING"+STRING$(3,24)+CHR$(26)+"IFLETIF" -100 CLS -105 PRINT@112,"To Move:";:PRINT@175," UP- Up arrow";:PRINT@239,"DOWN- Down arrow";:PRINT@367," to skip";:PRINT@431," stone"; -110 FORY=1TO28:SET(24,Y):SET(25,Y):SET(90,Y):SET(91,Y):NEXT -115 FORX=0TO90:SET(X,28):IFX>23THENSET(X,1):NEXT:ELSENEXT -120 FORX=2TO7:SET(X,30):SET(X,32):SET(X,34):SET(X+8,30):SET(X+8,34):SET(X+16,30):SET(X+16,34):SET(X+24,30):SET(X+24,32):SET(X+32,30):SET(X+32,32):SET(X+32,34):SET(X,36):SET(X+28,36):SET(X+28,38):SET(X+28,40):NEXT -125 FORY=30TO34:SET(10,Y):SET(11,Y):SET(18,Y):SET(19,Y):SET(22,Y):SET(23,Y):SET(26,Y):SET(27,Y):SET(30,Y):SET(31,Y):SET(34,Y):SET(35,Y):SET(4,Y+6):SET(5,Y+6):SET(12,Y+6):SET(13,Y+6):SET(18,Y+6):SET(19,Y+6):SET(26,Y+6):SET(27,Y+6):SET(30,Y+6):SET(31,Y+6):NEXT -130 SET(2,31):SET(3,31):SET(6,33):SET(7,33):SET(20,37):SET(21,37):SET(22,38):SET(23,38):SET(24,37):SET(25,37) -135 SET(42,31):SET(43,31):SET(42,33):SET(43,33):SET(38,37):SET(39,37):SET(38,39):SET(39,39) -140 PRINT@640+43,"High Score"; -145 PRINT@640+107," :";HI%; -150 FORT%=1TO8:ST%(T%)=0:PRINT@(64*T%)+13,STRING$(31,128);:NEXT -155 SC%=0 -160 SH%=0 -165 GOSUB330 -170 PRINT@896+15,"ENTER DIFFICULTY LEVEL (H OR E)"; -175 U$=INKEY$:IFU$=""THEN175 -180 IFU$="H"THENTI=30:ELSEIFU$="E"THENTI=60:ELSE175 -185 PRINT@896+15," "; -190 GOSUB340 -195 PRINT@8+(H%*64),M$; -200 AA%=PEEK(14400):IFAA%=0ANDSH%=0THEN255 -205 IFAA%=8THENH%=H%-1:IFH%<0THENH%=0:ELSEPRINT@8+(H%*64)+128," "; -210 IFAA%=16THENH%=H%+1:IFH%>7THENH%=7:ELSEPRINT@8+(H%*64)-64," "; -215 PRINT@8+(H%*64),M$; -220 REM -225 IFAA%=128ANDSH%=0THENSH%=1:SG%=13:SK%=H%+1:ELSEIFSH%=0THEN255 -230 IFSH%=1THENPRINT@SG%+SK%*64,"SET";CHR$(24);" "; -235 IFSH%=1THENSG%=SG%+RND(5)+1:IFSG%>35THENSH%=0:PRINT@SG%+SK%*64," "; -240 IFSH%=1THENPRINT@SG%+SK%*64,"SET"; -245 IFSH%=1ANDRND(30)=1THENSH%=0:PRINT@SG%+SK%*64," "; -255 FORT%=1TO8 -260 IFST%(T%)=0ANDRND(25)=1THENST%(T%)=1:PO%(T%)=RND(23)+15:PP%(T%)=T%:D%(T%)=RND(2) -265 IFST%(T%)=0THEN305 -270 IFST%(T%)=1ANDD%(T%)=1THENPRINT@PO%(T%)+(PP%(T%)*64),E$; -275 IFST%(T%)=1ANDD%(T%)=2THENPRINT@PO%(T%)+(PP%(T%)*64),D$; -280 IFRND(0)<.1ANDD%(T%)=1THEND%(T%)=2:ELSEIFD%(T%)=2ANDRND(0)>.9THEND%(T%)=1 -290 IFST%(T%)=1ANDD%(T%)=1THENPO%(T%)=PO%(T%)-1:IFPO%(T%)<15THENST%(T%)=0:SC%=SC%-1:PRINT@PO%(T%)+PP%(T%)*64," "; -295 IFST%(T%)=1ANDD%(T%)=2THENPO%(T%)=PO%(T%)+1:IFPO%(T%)>38THENST%(T%)=0:SC%=SC%-1:PRINT@PO%(T%)+PP%(T%)*64," "; -300 IFST%(T%)=1ANDSH%=1ANDPP%(T%)=SK%ANDPO%(T%)=SG%THENGOSUB350:ELSEIFST%(T%)=1ANDSH%=1ANDPP%(T%)=SK%ANDPO%(T%)=SG%-1THENGOSUB350:ELSEIFST%(T%)=1ANDSH%=1ANDPP%(T%)=SK%ANDPO%(T%)=SG%-2THENGOSUB350 -305 NEXT -310 IFSC%<0THENSC%=0 -315 GOSUB330 -320 TI=TI-.3:GOSUB340:IFTI<=.50THEN355 -325 GOTO195 -330 MI%=INT(SC%/100):PRINT@640+24,N$(MI%);:PI%=INT((SC%-(MI%*100))/10):PRINT@640+28,N$(PI%);:YU%=INT(SC%-(MI%*100)-(PI%*10)):PRINT@640+32,N$(YU%); -335 RETURN -340 MI=INT(TI/10):PRINT@768+21,N$(MI);:MI=MI*10:PI=TI-MI:PRINT@768+25,N$(PI); -345 RETURN -350 ST%(T%)=0:SH%=0:PRINT@PO%(T%)+PP%(T%)*64-1," ";:SC%=SC%+10:GOSUB330:RETURN -355 PRINT@960-64+27,"GAME OVER";:FORHY=2000TO3000STEP50:NEXT:FORHY=1TO1000:NEXT::IFSC%>HI%THENHI%=SC%:PRINT@960+27,"New High Score";:FORHY=1TO10:NEXT:ELSEPRINT@960+27,"Close but no High Score"; -360 FORHY=1TO2000:NEXT:R$=INKEY$:IFR$=""THEN360:ELSEPRINT@960+27," ";:PRINT@960-64+27," "; -365 GOTO140 -370 GOTO370 -380 I=VARPTR(M$):I=ABS(I):J=PEEK(I+1)+256*PEEK(I+2) -385 FORK=JTOJ+26:READZ:POKEK,Z:NEXT -390 IFPEEK(16396)=201POKE16526,PEEK(I+1):POKE16527,PEEK(I+2):ELSECMD"T":DEFUSR0=PEEK(I+1)+256*PEEK(I+2):POKE14308,0 -395 RETURN -400 DATA 205,127,10,77,68,62,1,105,211,255,45,32,253,60,105,211,255,45,32,253,13,16,238,175,211,255,201 -405 CLS -410 A$(1)="USING"+STRING$(5,131)+"USING"+STRING$(5,128)+"USING"+STRING$(8,128)+"USING"+STRING$(5,128)+STRING$(6,176)+STRING$(2,128)+STRING$(6,176) -415 A$(2)="USING"+STRING$(5,128)+"USING"+STRING$(2,128)+STRING$(3,131)+"USING"+STRING$(3,131)+STRING$(2,128)+STRING$(3,131)+"USING"+STRING$(3,131)+STRING$(2,128)+"USING"+STRING$(4,176)+"USING"+STRING$(2,128)+"USING" -420 A$(3)="USING"+STRING$(5,176)+"USING"+STRING$(5,128)+"USING"+STRING$(8,128)+"USING"+STRING$(5,128)+"USING"+STRING$(5,176)+STRING$(2,128)+"USING" -425 A$(4)=" for instructions - to start game - for instructions -" -430 PRINT@1,STRING$(62,95); -435 PRINT@577,STRING$(62,95); -440 PRINT@512+18,STRING$(27,176); -445 PRINT@576+18,"GOTO";:PRINT@576+18+26,"RUN"; -450 FORER=1TO3:PRINT@74+(64*ER),A$(ER);:NEXT -455 PRINT@384+86,"by Tim Pickenheim";:PRINT@320+26,"with Sound"; -460 FOREE=1TOLEN(A$(4))-27 -470 PRINT@576+19,MID$(A$(4),EE,25); -475 AA=PEEK(14400) -480 IFAA=2THENRETURN -485 IFAA=1THEN500 -490 FORER=1TO20:NEXT -495 NEXT:GOTO460 -500 PRINT@576+19,MID$(A$(4),26,25); -505 PRINT@640," The Object: To get rid of pesky otters in the pond in the"; -510 PRINT@704," least amount of time."; -515 PRINT@768," Move your man into position with the up and down arrow keys."; -520 PRINT@832," Once you get your sight on an Otter - Hold the Space Bar down"; -525 PRINT@896,"to skip a stone across the water. Stones can drop at any time!"; -530 PRINT@960," Remember - this is a race against time. High Score is saved."; -535 PRINT@576+19,STRING$(25,128); -540 FORT=1TO50:NEXT -545 PRINT@576+19,MID$(A$(4),26,25); -555 AA=PEEK(14400):IFAA=2THENCLS:RETURN -560 GOTO535 diff --git a/bwbtest/T80C/00README.TXT b/bwbtest/T80C/00README.TXT deleted file mode 100644 index f0eb2af..0000000 --- a/bwbtest/T80C/00README.TXT +++ /dev/null @@ -1,48 +0,0 @@ -How to run old TRS-80 BASIC programs using BWBASIC. -Here is a step-by-step guide to running old TRS-80 BASIC programs. -We will use the Tandy "Inventory Control System (126608)" for the TRS-80. - - -1. Get the original BASIC source code and data files in ASCII format. - a. Download the files from http://www.willus.com/trs80/?q=Inventory - b. For the BASIC programs (DATASORT and ICS), - choose "Show as: BASIC program", then copy and paste the source into a text file. - I saved them as "DATASORT.TXT" and "ICS.TXT". - c. For the BINARY data files, - choose "Show as: Hex file", - then copy and paste int a text file. - I saved them as "DATAFILE.TXT", "INDEXFIL.TXT", "INFOFILE.TXT" and "STOCKNUM.TXT". -2. If you look at the BASIC source files - then you will observe there are NOT spaces surrounding keywords. - As a result, the next step is to add the missing spaces surrounding keywords. - You can edit the file by hand or use a utility such as "mod4basc.bas" to do this. - I prefer to use "mod4basc.bas", since it works well. -3. How to run "mod4basc.bas" on "DATASORT.TXT". - a. We first create a profile for the TRS-80 dialect that "mod4basc.bas" expects. - b. This profile will be named "TRS-80.PRO" and contains: - OPTION VERSION TRS-80 - WIDTH 24,80 - c. The command line is "bwbasic -p TRS-80.PRO mod4basc.bas". - d. The input file is "DATASORT.TXT". - e. The output file is "DATASORT.BAS". -4. How to run "mod4basc.bas" on "ICS.TXT". - a. We first create a profile for the TRS-80 dialect that "mod4basc.bas" expects. - b. This profile will be named "TRS-80.PRO" and contains: - OPTION VERSION TRS-80 - WIDTH 24,80 - c. The command line is "bwbasic -p TRS-80.PRO mod4basc.bas". - d. The input file is "ICS.TXT". - e. The output file is "ICS.BAS". - f. This ERRORS on line 38. The reason it ERRORS is because of the multiline PRINT items. - g. So, we copy "ICS.TXT" to "ICS2.TXT" and edit "ICS2.TXT" using a text editor to add - the necessary PRINT statements and quotes. - h. Now, we use the command line "bwbasic -p TRS-80.PRO mod4basc.bas". - i. The input file is "ICS2.TXT". - j. The output file is "ICS2.BAS". - k. Copy "ICS2.BAS" to "ICS3.BAS" for fixups using a text editor. -5. Using a text editor on "ICS3.BAS" - a. Fix-up 'IN PUT" to "INPUT" on lines 50, 60, 2690, 2700, 2710, - b. Fix-up ": ELSE " to " ELSE " on lines 130, 190, 300, 320, 340, 390, 400, 450, 460, 490, ... - - - diff --git a/bwbtest/T80C/00test.sh b/bwbtest/T80C/00test.sh deleted file mode 100644 index 38198f5..0000000 --- a/bwbtest/T80C/00test.sh +++ /dev/null @@ -1,41 +0,0 @@ -# Puropose: Verify existing BWBASIC behavior -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./00test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# Regression Tests -# ---------------------------------------------- -testcase() -{ - TESTCASE=${1} - echo "TESTCASE=${TESTCASE}" - ~/bwbasic --tape ${TESTCASE}.INP --profile T80.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT - - - echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP - ~/bwbasic --profile PAD80.PRO PAD80.BAS - - - diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif - if test -s ${TESTCASE}.dif - then - echo less ${TESTCASE}.dif - fi -} - -# --------------------------------------------- -testcase SETUP -testcase ICS -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/T80C/01test.sh b/bwbtest/T80C/01test.sh deleted file mode 100644 index 64c51bc..0000000 --- a/bwbtest/T80C/01test.sh +++ /dev/null @@ -1,22 +0,0 @@ -# Filename: 01test.sh -# Purpose: automted regression review -# Author: Howard Wulf, AF5NE -# Date: 2015-01-29 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic/NBS2 -# ash ./01test.sh -# -# - -# review ERRORS -cat *.dif > dif.OUT -if test -s dif.OUT -then - pwd > dif.OUT - cat *.dif >> dif.OUT - less dif.OUT -fi -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/T80C/02ok.sh b/bwbtest/T80C/02ok.sh deleted file mode 100644 index 65099a4..0000000 --- a/bwbtest/T80C/02ok.sh +++ /dev/null @@ -1,11 +0,0 @@ -# Puropose: Promote current results to regression -# Author: Howard Wulf -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./01ok.sh -# - -for f in *.80; do mv "$f" "${f/.80/.run}"; done -# EOF diff --git a/bwbtest/T80C/99test.sh b/bwbtest/T80C/99test.sh deleted file mode 100644 index 5532865..0000000 --- a/bwbtest/T80C/99test.sh +++ /dev/null @@ -1,17 +0,0 @@ -# Puropose: Cleanup after tests have passed -# Author: Howard Wulf, AF5NE -# Date: 2014-03-28 -# Usage: implementatino defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/BP100 -# ash ./99test.sh -# - -rm *.80 -rm *.OUT -rm *.LPT -rm *.dif - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/T80C/DATAFILE b/bwbtest/T80C/DATAFILE deleted file mode 100644 index d70a856..0000000 Binary files a/bwbtest/T80C/DATAFILE and /dev/null differ diff --git a/bwbtest/T80C/DATASORT.BAS b/bwbtest/T80C/DATASORT.BAS deleted file mode 100644 index 85d217d..0000000 --- a/bwbtest/T80C/DATASORT.BAS +++ /dev/null @@ -1,55 +0,0 @@ -1 MERGE "MERGE.BAS" - -10 CLEAR 12000:DEFINT A-Z:DIM IS$(1000),V(1000) - :GOSUB 32000 - - -20 OPEN "I",1,"TRANSFER" -30 LINE INPUT # 1,PI$:LINE INPUT # 1,PS$ -40 CLOSE 1 - - -50 OPEN "I",1,PI$,PI%:OPEN "R",2,PS$,PS% -60 INPUT # 1,TN,HN,F -70 N=TN-1 -80 FOR X=1 TO N:INPUT # 1,V(X):NEXT :CLOSE 1 -90 FOR J=1 TO N -100 GOSUB 200 -110 NEXT :CLOSE 2 - - -120 CLS:PRINT @ 468,"SORT IS IN PROGRESS" -130 GOSUB 240 - - -140 CLS:PRINT @ 468,"SORT COMPLETE. SAVING FILES" -150 OPEN "O",1,PI$ -160 WRITE # 1,TN,HN,F -170 FOR X=1 TO N:PRINT # 1,V(X):NEXT :CLOSE 1 - - -180 CLS:PRINT @ 468,"ALL OPERATIONS COMPLETE" -190 PRINT @ 596,"RETURNING TO MAIN MENU":CLEAR 50:RUN "ICS.BAS":END - - -200 JR = J : JD = 0 ' JR=INT((J-1)/25)+1:JD=J-25*INT((J-1)/25)-1 -210 FIELD 2, 10 AS N$ ' FIELD 2,JD*10ASD$,10ASN$ -220 GET 2,JR:IS$(J)=N$ -230 RETURN - - -240 M=N -250 M=INT(M/2) -260 IF M=0 THEN RETURN -270 K=N-M:J=1 -280 I=J -290 L=I+M -300 IF IS$(ABS(V(I)))>IS$(ABS(V(L))) THEN 330 -310 J=J+1:IF J>K THEN 250 -320 GOTO 280 -330 T=V(I):V(I)=V(L):V(L)=T:I=I-M -340 IF I<1 THEN 310 -350 GOTO 290 - - -999 END diff --git a/bwbtest/T80C/ICS.BAS b/bwbtest/T80C/ICS.BAS deleted file mode 100644 index c3cf910..0000000 --- a/bwbtest/T80C/ICS.BAS +++ /dev/null @@ -1,581 +0,0 @@ -1 MERGE "MERGE.BAS" - - - -10 REM 12/05/78 -20 REM ** TRS-80 INVENTORY CONTROL SYSTEM ** - - - -25 IF PEEK(14312)>127 THEN PRINT "PRINTER NOT READY":GOTO 40 -30 REM LPRINT CHR$(27);CHR$(20) -40 POKE 16425,1 - :CLEAR 500 - :W$="" - :ON ERROR GOTO 5000 - :GOSUB 32000 - - - -45 OPEN "I",1,"TRANSFER" -50 LINE INPUT #1,PI$:LINE INPUT #1,PS$:LINE INPUT #1,PD$ -60 LINE INPUT #1,PT$:LINE INPUT #1,PR$ -70 CLOSE 1:KILL "TRANSFER" -80 CLS:GOSUB 250:GOTO 200 - - - -90 REM ------------------------------------------------------ -100 ON ERROR GOTO 0 -110 IF LEFT$(TIME$,2)="00" OR MID$(TIME$,3,1)<>"/" OR MID$(TIME$,6,1)<>"/" THEN CLS:GOTO 190 -120 CLS:PRINT @ 458,"DATE IS SET TO ";LEFT$(TIME$,8);" . IS THIS CORRECT ? "; -130 FL=1:GOSUB 370:Q$=IN$:IF Q$<>"Y" AND Q$<>"N" THEN PRINT CHR$(8);:GOTO 130 ELSE IF Q$="N" THEN 140 ELSE 190 -140 PRINT @ 588,"ENTER CORRECT DATE (MM/DD/YY) : "; -150 FL=8:GOSUB 370:DT$=IN$ -160 POKE 16454,VAL(LEFT$(DT$,2)):POKE 16452,VAL(RIGHT$(DT$,2)) -170 POKE 16453,VAL(MID$(DT$,4,2)) -180 GOTO 110 -190 CLS:GOSUB 250:GOSUB 3180:IF P$="" THEN 190 ELSE GOSUB 3170:PRINT @ 472,"INITIALIZING";CHR$(30) - - - -200 DEFINT A,C,H,J,K,F,L,M,N,P,T,V,W:DIM V(1000) -210 DEF FNGP(IC,IP)=(IP-IC)/IP*100 -215 GOSUB 3175 -220 ON ERROR GOTO 5000:POKE 16424,67:POKE 16425,1:XX=1:LF$=CHR$(32):LL$=STRING$(132,"-") -230 RESTORE:READ A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,L0$,L1$,L6$,L7$:RESTORE :GOTO 3010 -240 GOSUB 250:GOTO 270 -250 CLS:PRINT TAB(13)"TRS-80 INVENTORY CONTROL SYSTEM":PRINT @ 117,LEFT$(TIME$,8);:PRINT :RETURN -260 GOSUB 250:PRINT TAB(20)"SYSTEM STATUS REPORT":PRINT :GOSUB 3070:PRINT :GOSUB 2480:RETURN -270 PRINT "FUNCTIONS: - :PRINT " - :PRINT "1 - INPUT NEW ITEMS - :PRINT "2 - ACCESS / UPDATE - :PRINT "3 - OUTPUT REPORTS AND SUMMARIES - :PRINT "4 - CREATE NEW INVENTORY - :PRINT "5 - ENTER SALES TICKETS - :PRINT "6 - END OF PERIOD PROCESSING" -280 PRINT "7 - ENTER RECEIPTS OF ON-ORDER ITEMS - :PRINT "8 - ENTER ITEMS PLACED ON ORDER - :PRINT "9 - DISPLAY SYSTEM STATUS - :PRINT "@ - EXIT FROM PROGRAM" -290 PRINT :PRINT "SELECT FUNCTION > "; -300 FL=-1:GOSUB 370:S$=IN$:IF CF=1 THEN 330 ELSE IF S$<"1" OR S$>"9" THEN PRINT CHR$(8);:GOTO 300 -310 ON VAL(S$) GOSUB 560,800,1530,1800,1870,2000,1300,1310,260 -320 IF FD=0 THEN 240 ELSE CLS:PRINT @ 464,"LOADING IN DATA FOR SORT":CLOSE :GOSUB 2750::GOSUB 2720:GOTO 3670 -330 CLS -340 PRINT @ 472,"END OF PROGRAM":PRINT :PRINT :IF ER=1 THEN CLOSE :CLEAR 50:END ELSE CLOSE :GOSUB 2750:GOSUB 2720:CLEAR 50:END -350 PRINT @ 128,CHR$(30);CHR$(29);"(TYPE @ TO EXIT TO MAIN MENU)";:RETURN -360 PRINT @ 128,CHR$(30);CHR$(29);"(TYPE @ TO REDO ENTRY)";:RETURN - - - -370 REM IN$="":CF=0:W$=INKEY$:WD=0:WS=WD:WL=WD:IF FL=WD THEN FL=1 -375 IN$="":CF=0:W$="":WD=0:WS=WD:WL=WD:IF FL=WD THEN FL=1 -377 INPUT IN$:W=LEN(IN$):W$=RIGHT$(IN$,1):IF W$="@" THEN CF=1 -378 RETURN - - -380 PRINT STRING$(ABS(FL),CHR$(136));STRING$(ABS(FL),CHR$(24)); -390 PRINT CHR$(14);:FOR W=1 TO 25:W$=INKEY$:IF W$<>"" THEN 400 : NEXT :PRINT CHR$(15);:FOR W=1 TO 25:W$=INKEY$:IF W$<>"" THEN 400 : NEXT :GOTO 390 -400 IF W$<>CHR$(13) THEN 420 ELSE PRINT STRING$(ABS(FL)-WL," "); -410 PRINT CHR$(15);:W=25:RETURN -420 IF W$<>"@" THEN 440 -430 CF=1:PRINT CHR$(15);:RETURN -440 PRINT CHR$(14);:IF W$=CHR$(24) THEN PRINT STRING$(WL,CHR$(24));:GOTO 370 -450 IF W$<>CHR$(8) THEN 490 ELSE IF WL=0 THEN 390 ELSE PRINT CHR$(24);:IF FL>0 THEN 470 ELSE IF PEEK(16418)=44 THEN 480 -460 IF PEEK(16418)=46 THEN WD=0:GOTO 470 ELSE IF PEEK(16418)=43 OR PEEK(16418)=45 THEN WS=0 -470 IN$=LEFT$(IN$,LEN(IN$)-1) -480 WL=WL-1:POKE 16418,136:GOTO 390 -490 IF ABS(FL)=WL THEN 390 ELSE IF FL>0 THEN IF W$>=" " AND W$<="z" THEN 540 -500 IF W$="." AND WD=0 THEN WD=1:GOTO 540 -510 IF W$="," THEN PRINT W$;:WL=WL+1:GOTO 550 -520 IF (W$="-" OR W$="+") AND WS=0 AND WL=0 THEN WS=1:GOTO 540 -530 IF W$<"0" OR W$>"9" THEN 390 -540 PRINT W$;:IN$=IN$+W$:WL=WL+1 -550 IF ABS(FL)=1 THEN 410 ELSE 390 - - - -560 CLS:PRINT TAB(20)"INPUT NEW ITEMS":PRINT -570 IF ER=1 THEN GOSUB 3060:RETURN -580 J=TN -590 IF TI=1000 THEN CLS:PRINT @ 468,"SYSTEM IS FULL (1000 ITEMS)":GOSUB 2480:RETURN ELSE PRINT @ A0,CHR$(30);:GOSUB 2510:GOSUB 350 -600 IF FD<>0 THEN PRINT @ 295,"(LAST ENTRY: ";IS$;")"; -610 FL=10:PRINT @ A0,;:GOSUB 370:IF CF=0 THEN IS$=IN$ ELSE 630 -620 IF IS$<>"" THEN 640 ELSE 610 -630 RETURN -640 GOSUB 360 -650 FL=19:PRINT @ A1,;:GOSUB 370:IF CF=0 THEN ID$=IN$ ELSE 560 -660 FL=-4:PRINT @ A2,;:GOSUB 370:IF CF=0 THEN IQ%=VAL(IN$) ELSE 560 -670 FL=-7:PRINT @ A3,;:GOSUB 370:GOSUB 3750:IF CF=0 THEN IC=VAL(IN$):PRINT CHR$(30); ELSE ON CF GOTO 560,670 -680 FL=-7:PRINT @ A4,;:GOSUB 370:GOSUB 3750:IF CF=0 THEN IP=VAL(IN$):PRINT CHR$(30); ELSE ON CF GOTO 560,680 -690 GOSUB 2830 -700 FL=10:PRINT @ A5,;:GOSUB 370:IF CF=0 THEN IL$=IN$ ELSE 560 -710 FL=-4:PRINT @ A6,;:GOSUB 370:IF CF=0 THEN IR%=VAL(IN$) ELSE 560 -720 PRINT " / ";:FL=-4:GOSUB 370:IF CF=0 THEN IN%=VAL(IN$) ELSE 560 -730 FL=-4:PRINT @ A7,;:GOSUB 370:IF CF=0 THEN IO%=VAL(IN$) ELSE 560 -740 FL=8:PRINT @ A8,;:GOSUB 370:IF CF=0 THEN IM$=IN$ ELSE 560 -750 FL=6:PRINT @ A9,;:GOSUB 370:IF CF=0 THEN IV$=IN$ ELSE 560 -760 P1=0:P2=0:GOSUB 3860 -770 TC#=TC#+IC*IQ%:TP#=TP#+IP*IQ%:TR#=TR#+IO%*IC:TI=TI+1 -780 FD=1:GOSUB 3130:GOSUB 2630:GOSUB 2660:GOSUB 2650:GOSUB 2540 -790 GOSUB 2600:GOSUB 2560:TN=TN+1:J=TN:GOSUB 2510:GOTO 590 - - - -800 CLS:PRINT TAB(20)"ACCESS / UPDATE DATA":PRINT -810 IF ER=1 THEN GOSUB 3060:RETURN -820 PRINT @ A0,CHR$(31);:GOSUB 2510 -830 GOSUB 2780:PRINT "ENTER STOCK # (TYPE @ TO EXIT) ----> "; -840 FL=10:GOSUB 370:IF CF=0 THEN IS$=IN$ ELSE 1270 -850 GOSUB 2420 -860 IF K=0 THEN PRINT @ AB,"ITEM NOT IN LISTING";:GOSUB 2500:GOSUB 2510:GOTO 830 -870 GOSUB 2760 -880 GOSUB 2780:PRINT "SELECT (U)PDATE, (S)EARCH, (N)EXT ITEM, (P)REVIOUS ITEM, - :PRINT "(A)DJUST QTY, (D)ELETE, (@) TO EXIT TO MAIN MENU --> "; -890 FL=1:GOSUB 370:IF CF=1 THEN 1270 ELSE O$=IN$:IF O$<>"U" AND O$<>"S" AND O$<>"N" AND O$<>"P" AND O$<>"D" AND O$<>"A" THEN PRINT CHR$(8);:GOTO 890 -900 IF O$="D" THEN 1210 -910 IF O$="S" THEN 820 -920 IF O$="U" THEN 970 -930 IF O$="A" THEN 1240 -940 IF O$="P" AND N<>1 THEN N=N-1:J=V(N):IF SGN(J)=-1 THEN 940 ELSE GOSUB 2630:GOSUB 2660:GOSUB 2670:GOSUB 2760:GOTO 880 -950 IF O$="N" AND N+1<>TN THEN N=N+1:J=V(N):GOTO 960 ELSE PRINT CHR$(8);:GOTO 890 -960 IF SGN(J)=-1 THEN 950 ELSE GOSUB 2630:GOSUB 2660:GOSUB 2670:GOSUB 2760:GOTO 880 -970 GOSUB 2780:PRINT "SELECT LINE TO BE UPDATED (TYPE @ TO RESTART)--> "; -980 FL=-1:GOSUB 370:IF CF=0 THEN U$=IN$:IF U$<"1" OR U$>"9" THEN PRINT CHR$(8);:GOTO 980 -990 IF CF<>0 THEN 880 -1000 GOSUB 2780:ON VAL(U$) GOTO 1010,1030,1050,1070,1090,1110,1140,1160,1180 -1010 GOSUB 2780:PRINT "1 - DESCRIPTION : "; -1020 FL=19:GOSUB 370:IF CF=0 THEN ID$=IN$:GOTO 1200 ELSE 990 -1030 GOSUB 2780 -1040 PRINT "2 - QUANTITY : ";:FL=-4:GOSUB 370:IF CF=0 THEN GOSUB 1280:IQ%=VAL(IN$):GOSUB 1290:GOTO 1200 ELSE 990 -1050 GOSUB 2780 -1060 PRINT "3 - COST : ";:FL=-7:GOSUB 370:GOSUB 3750:IF CF=0 THEN GOSUB 1280:IC=VAL(IN$):GOSUB 1290:PRINT CHR$(30);:GOTO 1200 ELSE ON CF GOTO 990,1050 -1070 GOSUB 2780 -1080 PRINT "4 - RETAIL PRICE : ";:FL=-7:GOSUB 370:GOSUB 3750:IF CF=0 THEN GOSUB 1280:IP=VAL(IN$):GOSUB 1290:PRINT CHR$(30);:GOTO 1200 ELSE ON CF GOTO 990,1070 -1090 GOSUB 2780:PRINT "5 - LOCATION : "; -1100 FL=10:GOSUB 370:IF CF=0 THEN IL$=IN$:GOTO 1200 ELSE 990 -1110 GOSUB 2780:PRINT "6 - REORDER POINT/QTY : "; -1120 FL=-4:GOSUB 370:IF CF=0 THEN IR%=VAL(IN$) ELSE 990 -1130 PRINT " / ";:FL=-4:GOSUB 370:IF CF=0 THEN IN%=VAL(IN$):GOTO 1200 ELSE 990 -1140 GOSUB 2780:PRINT "7 - # ON ORDER : "; -1150 FL=-4:GOSUB 370:IF CF=0 THEN GOSUB 1280:IO%=VAL(IN$):GOSUB 1290:GOTO 1200 ELSE 990 -1160 GOSUB 2780:PRINT "8 - DATE LAST ORDER : "; -1170 FL=8:GOSUB 370:IF CF=0 THEN IM$=IN$:GOTO 1200 ELSE 990 -1180 GOSUB 2780:PRINT "9 - VENDOR : "; -1190 FL=6:GOSUB 370:IF CF=0 THEN IV$=IN$:GOTO 1200 ELSE 990 -1200 GOSUB 2560:GOSUB 2510:GOSUB 2860:GOTO 880 -1210 V(N)=-J -1220 TI=TI-1:GOSUB 1280:F=F+1 -1230 IF N+1=TN THEN PRINT @ A0,CHR$(31);:GOSUB 2510:GOTO 830 ELSE N=N+1:J=V(N):IF SGN(J)=1 THEN GOSUB 2630:GOSUB 2660:GOSUB 2670:GOTO 870 ELSE 1230 -1240 GOSUB 2780:PRINT "ENTER + OR - AND CHANGE IN QUANTITY ---> "; -1250 FL=-4:GOSUB 370:IF CF=0 THEN CH$=IN$ ELSE 990 -1260 IQ%=IQ%+VAL(CH$):TC#=TC#+IC*VAL(CH$):TP#=TP#+IP*VAL(CH$):GOTO 1200 -1270 RETURN -1280 TC#=TC#-IQ%*IC:TP#=TP#-IQ%*IP:TR#=TR#-IO%*IC:RETURN -1290 TC#=TC#+IQ%*IC:TP#=TP#+IQ%*IP:TR#=TR#+IO%*IC:RETURN -1300 CLS:PRINT TAB(10)"ENTER RECEIPTS OF ON-ORDER ITEMS":PRINT :GOTO 1320 -1310 CLS:PRINT TAB(15)"ENTER ITEMS PLACED ON ORDER":PRINT -1320 IF ER=1 THEN GOSUB 3060:RETURN -1330 PRINT @ A0,CHR$(31);:GOSUB 2510 -1340 GOSUB 2780:PRINT "ENTER STOCK# (TYPE @ TO EXIT) ----> "; -1350 FL=10:GOSUB 370:IF CF=0 THEN IS$=IN$ ELSE 1270 -1360 GOSUB 2420 -1370 IF K=0 THEN PRINT @ AB,"ITEM NOT IN LISTING";:GOSUB 2500:GOSUB 2510:GOTO 1340 -1380 GOSUB 2760 -1390 IF S$="8" THEN 1490 -1400 GOSUB 2780:PRINT "QUANTITY RECEIVED: "; -1410 FL=-4:GOSUB 370:IF CF=0 THEN GOSUB 1280:IQ%=IQ%+VAL(IN$):IO%=IO%-VAL(IN$) ELSE 1340 -1420 GOSUB 2780:PRINT "CHANGE IN COST (HIT TO SKIP): "; -1430 FL=-7:GOSUB 370:IF CF<>0 THEN 1340 ELSE IF IN$="" THEN 1450 ELSE GOSUB 3750 -1440 IF CF=0 THEN IC=VAL(IN$):PRINT CHR$(30); ELSE 1420 -1450 GOSUB 2780:PRINT "CHANGE IN SELL PRICE (HIT TO SKIP): "; -1460 FL=-7:GOSUB 370:IF CF<>0 THEN 1340 ELSE IF IN$="" THEN 1480 ELSE GOSUB 3750 -1470 IF CF=0 THEN IP=VAL(IN$):PRINT CHR$(30); ELSE 1450 -1480 GOSUB 1290:GOSUB 2560:GOSUB 2510:GOSUB 2860:GOTO 1340 -1490 GOSUB 2780:PRINT "QUANTITY ORDERED (HIT FOR DEFAULT QTY): "; -1500 FL=-4:GOSUB 370:IF CF<>0 THEN 1340 ELSE GOSUB 1280:IF IN$="" THEN IO%=IO%+IN% ELSE IO%=IO%+VAL(IN$) -1510 GOSUB 2780:PRINT "DATE OF ORDER (HIT FOR LAST ENTERED DATE): "; -1520 FL=8:GOSUB 370:IF IN$<>"" THEN IP$=IN$:IM$=IN$:GOTO 1480 ELSE IM$=IP$:GOTO 1480 -1530 CLS:PRINT TAB(15)"OUTPUT REPORTS AND SUMMARIES":PRINT -1540 IF ER=1 THEN GOSUB 3060:RETURN -1550 PRINT "OPTIONS: - :PRINT " - :PRINT "1 - PRINTOUT COMPLETE LISTING - :PRINT "2 - PRINTOUT OF NOT-IN-STOCK ITEMS - :PRINT "3 - PRINTOUT ALL ITEMS ON ORDER - :PRINT "4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT - :PRINT "5 - PRINTOUT BY VENDOR - :PRINT "6 - PRINTOUT BY PREFIX / SUFFIX" -1560 PRINT "7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR - :PRINT "8 - TEST PRINTER - :PRINT "@ - EXIT TO MAIN MENU" -1570 PRINT :PRINT "SELECT OPTION --> "; -1580 FL=-1:GOSUB 370:IF CF=1 THEN RETURN ELSE O$=IN$:IF O$<"1" OR O$>"8" THEN PRINT CHR$(8);:GOTO 1580 -1590 GOSUB 3730:IF XX=1 THEN 1530 -1600 GOSUB 3000 -1610 O=VAL(O$):IF O=8 THEN FOR T=0 TO 131:LPRINT "*";:NEXT :CLS:GOTO 1530 -1620 GOSUB 2960:IF O<>7 THEN GOSUB 2970:GOSUB 3000 -1630 ON O GOSUB 3250,3270,3290,3310,3330,3360,3430 -1640 IF O<>7 THEN GOSUB 2890 ELSE GOSUB 3780 - :FOR N=1 TO TN-1 -1650 J=V(N):IF SGN(J)=-1 THEN 1680 -1660 ON O GOSUB 3260,3280,3300,3320,3350,3400,3450 -1670 REM EN$=INKEY$:IF EN$="@" THEN LPRINT " ":LPRINT " * TERMINATED *":POKE 16425,1:GOTO 1530 -1680 NEXT -1690 IF O<>1 AND O<>3 AND O<>7 AND O<>5 AND O<>6 THEN 1770 -1700 IF O=3 THEN 1760 -1710 IF O=7 THEN 3830 -1720 IF O=5 OR O=6 THEN 3480 -1725 IF GI<>TI AND GC#<>TC# AND GP#<>TP# AND GR#<>TR# THEN GOSUB 4050 -1730 GI=0:GC#=0:GP#=0:GR#=0:LPRINT " ":LPRINT "TOTAL ITEMS LISTED:";TAB(25)TI -1740 IF CC=0 THEN LPRINT "TOTAL COST VALUE:";TAB(25);:LPRINT USING L6$;TC# -1750 LPRINT "TOTAL RETAIL VALUE:";TAB(25);:LPRINT USING L6$;TP# -1760 IF CC=0 THEN LPRINT " ":LPRINT "TOTAL COST OF ORDERS:";TAB(25);:LPRINT USING L6$;TR# -1770 GOSUB 3240:CLS:GOTO 1530 -1780 GOSUB 2630:GOSUB 2660:GOSUB 2670:RETURN -1790 GOSUB 2540:GOSUB 2600:GOSUB 2610:GOSUB 4000:RETURN -1800 CLS:PRINT TAB(20)"CREATE NEW INVENTORY" -1810 IF ER=0 THEN PRINT @ 448,"SYSTEM CONTAINS INVENTORY DATA. IF YOU WISH TO THEN ERASE ALL DATA, - :PRINT "TYPE (SHIFT) K OR ELSE TYPE @ TO RETURN TO MAIN MENU --> "; ELSE 1840 -1820 FL=1:GOSUB 370:IF CF=1 THEN RETURN ELSE T$=IN$:IF T$<>"k" THEN PRINT CHR$(8);:GOTO 1820 -1830 CLOSE :KILL PI$:KILL PD$:KILL PT$:KILL PS$:KILL PR$:CLS:PRINT @ 468,"ALL DATA ERASED":ER=1:PRINT :PRINT :GOSUB 2480:RETURN -1840 TC#=0:TP#=0:TR#=0:TI=0:TN=1:HI=0:HN=1:F=0:ER=0:GOSUB 2530 -1850 PRINT @ 460,"SYSTEM READY FOR NEW INVENTORY" -1860 PRINT :PRINT :GOSUB 2480:RETURN - - - -1870 CLS:PRINT TAB(21)"ENTER SALES TICKETS":PRINT -1880 IF ER=1 THEN GOSUB 3060:RETURN -1890 GOSUB 2350:H=HN:HC=0 -1900 IF HI<1000 THEN 1910 -1901 CLS -1902 PRINT @ 448,"SALES FILE IS FULL (1000 ITEMS). USE FUNCTION 6 TO" -1903 PRINT "POST SALES AND CLEAR THE FILE." -1904 CLOSE 1 -1905 GOSUB 2500 -1906 RETURN - -1910 GOSUB 350 -1920 PRINT @ 256," " ' CHR$(31); -1930 IF HC<>0 THEN PRINT @ 295,"(LAST ENTRY: ";HA$;")"; -1940 PRINT @ 256,"STOCK NUMBER: "; -1950 FL=10:GOSUB 370:IF CF=0 THEN HA$=IN$ ELSE CLOSE 1:RETURN -1960 GOSUB 360:PRINT @ 384,"QUANTITY SOLD: "; -1970 FL=-4:GOSUB 370:IF CF=0 THEN HB=VAL(IN$) ELSE 1910 -1980 GOSUB 2360:GOSUB 2400:GOSUB 2380 -1990 HI=HI+1:HN=HN+1:H=HN:HC=1:GOTO 1900 - - - -2000 CLS:PRINT TAB(20)"END OF PERIOD PROCESSING":PRINT -2010 IF ER=1 THEN GOSUB 3060:RETURN -2020 PRINT @ 128,"FUNCTIONS:" - :PRINT " - :PRINT "1 - POST SALES TICKETS AND CLEAR TICKET FILE - :PRINT " - :PRINT "2 - CLEAR CURRENT SALES FIGURES FROM INVENTORY - :PRINT " - :PRINT "3 - CLEAR CURRENT AND CUMULATIVE SALES FIGURES FROM INVENTORY - :PRINT " - :PRINT "@ - EXIT TO MAIN MENU - :PRINT " -2030 PRINT "SELECT FUNCTION > "; -2040 FL=-1:GOSUB 370:IF CF=1 THEN RETURN ELSE HO$=IN$:IF HO$<"1" OR HO$>"3" THEN PRINT CHR$(8);:GOTO 2040 -2045 IF VAL(HO$)>1 THEN PRINT " ARE YOU SURE (Y/N)";:FL=1:GOSUB 370:IF IN$<>"Y" THEN 2000 -2050 ON VAL(HO$) GOTO 2060,2260,2280 -2060 GOSUB 3730:IF XX=1 THEN 2000 -2070 IF HI=0 THEN CLS:PRINT @ 460,"NO UNPOSTED SALES TICKETS IN FILE":GOSUB 2500:GOTO 2000 ELSE GOSUB 2190 -2080 CLS:PRINT @ 468,"pOSTING IN PROGRESS" -2090 GOSUB 2350:HT=HI:HC#=0 -2100 FOR H=1 TO HI -2110 GOSUB 2360:GOSUB 2400:GOSUB 2410:IS$=HA$ -2120 GOSUB 2420:IF K=0 THEN GOSUB 2200:GOTO 2170 -2130 GOSUB 2540:GOSUB 2600:GOSUB 2610 -2140 P1=P1+HB:P2=P2+HB:HC#=HC#+HB*IC -2150 IQ%=IQ%-HB:TC#=TC#-HB*IC:TP#=TP#-HB*IP:IF IQ%<0 THEN GOSUB 2220 -2160 GOSUB 2560:HT=HT-1:PRINT @ 596,"TICKETS REMAINING: ";HT -2170 NEXT :GOSUB 2230 -2180 HI=0:HN=1:CLOSE 1:KILL PR$:GOTO 2000 -2190 GOSUB 2960:LPRINT TAB(30)"SALES TICKET POSTING REPORT":LPRINT LF$:RETURN -2200 LPRINT "E R R O R : STOCK # ";HA$;" IS NOT IN INVENTORY LISTING AND WAS NOT POSTED":LPRINT LF$ -2210 RETURN -2220 LPRINT "N O T E : STOCK # ";HA$;" NOW HAS A QUANTITY OF ";IQ%:LPRINT LF$:RETURN -2230 LPRINT "NUMBER OF ITEMS POSTED: ";HI-HT -2240 LPRINT "TOTAL COST OF GOODS SOLD: "; USING L6$;HC# -2250 GOSUB 3240:RETURN -2260 CLS:PRINT @ 463,"CLEARING CURRENT SALES FIGURES" -2270 GOSUB 2300:GOTO 2000 -2280 CLS:PRINT @ 460,"CLEARING CURRENT AND CUMULATIVE SALES FIGURES" -2290 GOSUB 2300:GOTO 2000 -2300 FOR J=1 TO TN-1 -2310 GOSUB 2540:GOSUB 2600:GOSUB 2610 -2320 IF HO$="3" THEN P2=0 -2330 P1=0 -2340 GOSUB 2560:NEXT :RETURN -2350 OPEN "R",1,PR$,PR% -2355 RETURN -2360 HR = H : HD = 0 ' HR=INT((H-1)/20)+1:HD=H-20*INT((H-1)/20)-1 -2370 FIELD 1,10 AS H1$,ZINT AS H2$:RETURN -2380 LSET H1$=HA$:RSET H2$=MKI$(HB) -2390 PUT 1,HR:RETURN -2400 GET 1,HR:RETURN -2410 HA$=H1$:HB=CVI(H2$):RETURN - - - -2420 NL=0:NH=TN -2430 K=INT((NH-NL)/2):IF K=0 THEN RETURN ELSE N=K+NL -2435 IF N=NH THEN NH=INT((NH-NL)/2)+NL:GOTO 2430 ELSE IF V(N)<0 THEN N=N+1:GOTO 2435 -2440 J=ABS(V(N)):GOSUB 2630:GOSUB 2660:IF IS$+STRING$(10-LEN(IS$)," ")=N$ THEN IS$=N$:GOTO 2470 -2450 IF IS$+STRING$(10-LEN(IS$)," ") "; -2490 FL=1:GOSUB 370:IF CF=1 THEN RETURN ELSE PRINT CHR$(8);:GOTO 2490 -2500 FOR T=1 TO 2500:NEXT :RETURN -2510 PRINT @ 256,"0 - STOCK # --------> - :PRINT "1 - DESCRIPTION ----> - :PRINT "2 - QUANTITY -------> - :PRINT "3 - COST -----------> - :PRINT "4 - SELL -----------> - :PRINT "5 - LOCATION -------> - :PRINT "6 - REORDER PT/QTY--> - :PRINT "7 - # ON ORDER -----> - :PRINT "8 - DATE LAST ORDER-> - :PRINT "9 - VENDOR --------->";CHR$(31); -2520 RETURN -2530 OPEN "R",2,PD$,PD% -2535 OPEN "R",3,PS$,PS% -2537 RETURN -2540 JR = J : JD = 0 ' JR=INT((J-1)/4)+1:JD=J-4*INT((J-1)/4)-1 -2550 FIELD 2, 19 AS FD$, ZINT AS FQ$, ZSNG AS FC$, ZSNG AS FP$, 10 AS FL$, ZINT AS FR$, ZINT AS FA$, ZINT AS FO$, 8 AS FM$, 6 AS FV$, ZINT AS P1$, ZINT AS P2$:RETURN -2560 LSET FD$=ID$:RSET FQ$=MKI$(IQ%):RSET FC$=MKS$(IC) -2570 RSET FP$=MKS$(IP):LSET FL$=IL$:RSET FR$=MKI$(IR%):RSET FA$=MKI$(IN%) -2580 RSET FO$=MKI$(IO%):LSET FM$=IM$:LSET FV$=IV$:RSET P1$=MKI$(P1):RSET P2$=MKI$(P2) -2590 PUT 2,JR:RETURN -2600 GET 2,JR:RETURN -2610 ID$=FD$ -2611 IQ%=CVI(FQ$) -2612 IC=CVS(FC$) -2613 IP=CVS(FP$) -2614 IL$=FL$ -2620 IR%=CVI(FR$) -2621 IN%=CVI(FA$) -2622 IO%=CVI(FO$) -2623 IM$=FM$ -2624 IV$=FV$ -2625 P1=CVI(P1$) -2626 P2=CVI(P2$) -2627 RETURN -2630 JR = J : JD = 0 ' JR=INT((J-1)/25)+1:JD=J-25*INT((J-1)/25)-1 -2640 FIELD 3, 10 AS N$:RETURN -2650 LSET N$=IS$:PUT 3,JR:RETURN -2660 GET 3,JR:RETURN -2670 IS$=N$:RETURN -2680 OPEN "I",1,PI$,PI% -2685 OPEN "I",3,PT$,PT% -2690 INPUT #3,TC#,TP#,TR#,TI,HI:CLOSE 3 -2700 INPUT #1,TN,HN,F -2710 FOR N=1 TO TN-1:INPUT #1,V(N):NEXT :CLOSE 1:RETURN -2720 OPEN "O",1,PI$,PI% -2730 WRITE #1,TN,HN,F -2740 FOR N=1 TO TN-1:WRITE #1,V(N):NEXT :CLOSE 1:RETURN -2750 OPEN "O",3,PT$,PT% -2755 WRITE #3,TC#,TP#,TR#,TI,HI:CLOSE 3:RETURN -2760 PRINT @ A0,CHR$(30);:GOSUB 2510:GOSUB 2540:GOSUB 2600:GOSUB 2610:PRINT @ A0,IS$;:GOSUB 2860:RETURN -2770 DATA 281,345,409,473,537,601,665,729,793,857,128,490,960 -2780 PRINT @ AA,CHR$(30):PRINT CHR$(30);:PRINT @ AA,;:RETURN -2790 DATA "####" -2800 DATA "####.##" ' HERE-HERE-HERE -2810 DATA "$$###,####.##" -2820 DATA "###.#" -2830 IF IP<>0 THEN PRINT @ 552,"GROSS PROFIT= ";:PRINT USING L7$;FNGP(IC,IP);:PRINT " %";:RETURN ELSE RETURN -2840 IF CC=1 THEN LPRINT " ****";:RETURN -2850 IF IP<>0 THEN LPRINT " "; USING L7$;FNGP(IC,IP);:RETURN ELSE RETURN - - - -2860 PRINT @ A1,ID$:PRINT @ A2,IQ%:PRINT @ A3, USING L1$;IC:PRINT @ A4, USING L1$;IP:GOSUB 2830 -2870 PRINT @ A5,IL$:PRINT @ A6,IR%;"/";IN%:PRINT @ A7,IO%:PRINT @ A8,IM$:PRINT @ A9, IV$:GOSUB 3860 - - - - -2880 RETURN -2890 LPRINT "STOCK # DESCRIPTION QTY COST SELL GP % LOCATION R/O PT / QTY ON ORDER DATE VENDOR CURR / CUML" -2900 LPRINT "======= =========== === ==== ==== ==== ======== ===== ==== ======== ==== ====== ==== ====" -2910 LPRINT " ":RETURN - - - -2915 REM FUNKY USING ERROR -2920 GOSUB 3720:LPRINT IS$;TAB(12)ID$;TAB(33);:LPRINT USING L0$;IQ%;:LPRINT TAB(39);:IF CC=0 THEN LPRINT USING L1$;IC; ELSE LPRINT " ****"; -2930 LPRINT TAB(48);USING L1$;IP;:GOSUB 2840 -2940 LPRINT TAB(63)IL$;" ";:LPRINT USING L0$;IR%;:LPRINT " / ";:LPRINT USING L0$;IN%;:LPRINT " ";:LPRINT USING L0$;IO%;:LPRINT " ";IM$;" ";IV$;" "; USING L0$;P1;:LPRINT " / "; USING L0$;P2 -2950 RETURN - - - - -2960 LPRINT LL$:LPRINT LF$:LPRINT LF$:LPRINT LEFT$(TIME$,8):LPRINT LF$:RETURN -2970 CLS:PRINT @ 456,"DO YOU WANT TO SUPPRESS COST AND PROFIT FIGURES ? "; -2980 FL=1:GOSUB 370:IF IN$<>"Y" AND IN$<>"N" THEN PRINT CHR$(8);:GOTO 2980 -2990 IF IN$="N" THEN CC=0:RETURN ELSE CC=1:RETURN -3000 PRINT @ 128,CHR$(31):PRINT @ 470,"** PRINTING **":RETURN -3010 GOSUB 2680:IF ER=1 THEN RESUME 3050 -3020 PRINT @ 128,CHR$(31); -3030 GOSUB 2530 -3040 GOTO 240 -3050 PRINT @ 448,CHR$(30);CHR$(29);"NO DATA IN SYSTEM. USE FUNCTION 4 OF MENU TO CREATE INVENTORY.":PRINT :GOSUB 2480:GOTO 240 -3060 PRINT @ 458,"NO DATA IN SYSTEM! USE FUNCTION 4 FIRST!":GOSUB 2500:RETURN -3070 PRINT :PRINT "NUMBER OF ITEMS CURRENTLY IN LISTING: ";TI -3080 PRINT "NUMBER OF UNPOSTED SALES TICKETS: ";HI -3090 PRINT "TOTAL COST (WHOLESALE) VALUE: ";:PRINT USING L6$;TC# -3100 PRINT "TOTAL RETAIL SALE VALUE ----: ";:PRINT USING L6$;TP# -3110 PRINT "TOTAL VALUE OF ITEMS ORDERED: ";:PRINT USING L6$;TR# -3120 RETURN -3130 IF F=0 THEN V(J)=J:RETURN -3140 FOR N=1 TO TN-1 -3150 IF SGN(V(N))=-1 THEN V(N)=ABS(V(N)):J=V(N):TN=TN-1:F=F-1:RETURN -3160 NEXT :F=0:V(J)=J:RETURN -3170 PI$="INDEXFIL" - :PD$="DATAFILE" - :PT$="INFOFILE" - :PS$="STOCKNUM" - :PR$="SALEDATA" -3175 ZINT = LEN(MKI$(0)) - :ZSNG = LEN(MKS$(0)) - :PI%=80 - :PD%=19 + ZINT + ZSNG + ZSNG + 10 + ZINT + ZINT + ZINT + 8 + 6 + ZINT + ZINT - :PT%=80 - :PS%=10 - :PR%=10 + ZINT - :RETURN - - -3180 PRINT @ 472,"ENTER PASSWORD ---> "; -3185 INPUT P$ : RETURN -3190 P$="":FOR X=1 TO 8 -3200 PE$=INKEY$:IF PE$="" THEN 3200 ELSE IF PE$<" " OR PE$>"Z" THEN 3220 -3210 P$=P$+PE$:PRINT "#";:GOTO 3230 -3220 IF ASC(PE$)=13 THEN RETURN ELSE 3200 -3230 NEXT :RETURN - - -3240 LPRINT " ":LPRINT "END OF LISTING":LPRINT LL$:LPRINT CHR$(12):RETURN -3250 LPRINT TAB(30)"COMPLETE INVENTORY LISTING":LPRINT " ":RETURN -3260 GOSUB 1780 - :GOSUB 1790 - :GOSUB 2920 - :RETURN - - - -3270 LPRINT TAB(30)"LISTING OF NOT-IN-STOCK ITEMS":LPRINT " ":RETURN -3280 GOSUB 1790:IF IQ%>0 THEN RETURN ELSE GOSUB 1780:GOSUB 2920:RETURN -3290 LPRINT TAB(30)"LISTING OF ALL ITEMS ON ORDER":LPRINT " ":RETURN -3300 GOSUB 1790:IF IO%=0 THEN RETURN ELSE GOSUB 1780:GOSUB 2920:RETURN -3310 LPRINT TAB(30)"LISTING OF ALL ITEMS AT OR BELOW REORDER POINT":LPRINT " ":RETURN -3320 GOSUB 1790:IF IQ%>IR% THEN RETURN ELSE GOSUB 1780:GOSUB 2920:RETURN -3330 GOSUB 3530:GOSUB 3000 -3340 LPRINT TAB(30)"LISTING BY VENDOR: ";IX$:LPRINT " ":GOSUB 3460:RETURN -3350 GOSUB 1790:IF LEFT$(IV$,LEN(IX$))<>IX$ THEN RETURN ELSE GOSUB 1780:GOSUB 3470:GOSUB 2920:RETURN -3360 CLS:GOSUB 3460:PRINT @ 468,"(P)REFIX OR (S)UFFIX ? " -3370 S$=INKEY$:IF S$<>"P" AND S$<>"S" THEN 3370 -3380 IF S$="P" THEN PRINT @ 532,"ENTER PREFIX --> ";:FL=10:GOSUB 370:K$=IN$:GOSUB 3000:LPRINT TAB(30)"LISTING BY PREFIX: ";K$:LPRINT " ":RETURN -3390 PRINT @ 532,"ENTER SUFFIX --> ";:FL=10:GOSUB 370:K$=IN$:GOSUB 3000:LPRINT TAB(30)"LISTING BY SUFFIX: ";K$:LPRINT " ":RETURN -3400 GOSUB 1780:IF S$="S" THEN 3420 -3410 IF LEFT$(IS$,LEN(K$))<>K$ THEN RETURN ELSE GOSUB 1790:GOSUB 3470:GOSUB 2920:RETURN -3420 IF RIGHT$(IS$,LEN(K$))<>K$ THEN RETURN ELSE GOSUB 1790:GOSUB 3470:GOSUB 2920:RETURN -3430 GOSUB 3530:GOSUB 3000 -3440 LPRINT TAB(20)"SUGGESTED PURCHASE ORDER TO VENDOR: ";IX$:LPRINT " ":TT=0:T1#=0:RETURN -3450 GOSUB 1790:IF LEFT$(IV$,LEN(IX$))<>IX$ OR IQ%>IR% OR IR%<(IO%+IQ%) THEN RETURN ELSE GOSUB 1780:GOSUB 3800:RETURN -3460 TT=0:T1#=0:T2#=0:T3#=0:RETURN -3470 TT=TT+1:T1#=T1#+IQ%*IC:T2#=T2#+IQ%*IP:T3#=T3#+IO%*IC:RETURN -3480 LPRINT " ":LPRINT "NUMBER OF ITEMS:";TAB(25)TT -3490 IF CC=0 THEN LPRINT "TOTAL COST VALUE:";TAB(25) USING L6$;T1# -3500 LPRINT "TOTAL RETAIL VALUE:";TAB(25) USING L6$;T2# -3510 IF CC=0 THEN LPRINT "TOTAL COST OF ORDERS:";TAB(25) USING L6$;T3# -3520 GOSUB 3240:CLS:GOTO 1540 -3530 CLS:PRINT @ 450,"ENTER ENOUGH LETTERS TO IDENTIFY VENDOR --> "; -3540 FL=6:GOSUB 370:IX$=IN$:RETURN - - -3550 REM ------------------------------------------------------ -3555 IF ERR/2+1=54 THEN ER=1:RETURN -3560 IF ERR/2+1=57 THEN 3610 -3570 IF ERR/2+1=68 THEN CLS:CLOSE :PRINT @ 458,"NO DISK IN DRIVE #1 - RUN TERMINATED":CLEAR 50:PRINT :PRINT :END -3580 IF ERR/2+1=70 THEN CLS:PRINT @ 465,"UNAUTHORIZED ACCESS TO INVENTORY SYSTEM - :PRINT ""TAB(28)"RUN TERMINATED":PRINT :CLEAR 50:END -3590 PRINT :PRINT CHR$(30);"UNEXPECTED ERROR CODE ";ERR/2+1;"IN LINE";ERL:GOSUB 2500:GOTO 330 - - - -3600 ON ERROR GOTO 0 -3610 CLS:PRINT @ 404,"** DISK I/O ERROR **":TE=TE+1 -3620 PRINT @ 586,"TOTAL I/O ERRORS THIS RUN: ";TE -3630 PRINT @ 650,"THIS ERROR OCCURRED IN LINE";ERL -3640 PRINT @ 778,"(T)RY AGAIN OR (E)XIT FROM PROGRAM ? "; -3650 FL=1:GOSUB 370:IF IN$<>"T" AND IN$<>"E" THEN PRINT CHR$(8);:GOTO 3650 -3660 IF IN$="T" THEN RESUME ELSE 330 -3670 OPEN "O",1,"TRANSFER" -3680 PRINT #1,PI$:PRINT #1,PS$:PRINT #1,PD$:PRINT #1,PT$:PRINT #1,PR$ -3690 CLOSE 1:CLEAR 50 -3700 PRINT "*** RUNNING DATASORT ***":RUN "DATASORT.BAS" -3710 END -3720 IF PEEK(&H4029)<58 THEN RETURN ELSE LPRINT CHR$(12):GOSUB 2960:GOSUB 2890:RETURN -3730 IF PEEK(14312)<=127 THEN XX=0:RETURN -3740 CLS:PRINT @ 468,"PRINTER NOT READY !!":XX=1:GOSUB 2500:CLS:RETURN -3750 IF CF<>0 THEN RETURN -3760 IF LEN(IN$)>=3 THEN IF MID$(IN$,LEN(IN$)-2,1)="." THEN RETURN -3770 PRINT " INVALID FORMAT !";:FOR T=1 TO 1000:NEXT :CF=2:RETURN -3780 LPRINT " QTY STOCK # DESCRIPTION COST EXTENSION" -3790 LPRINT " === ======== =========== ==== =========":LPRINT " ":RETURN -3800 TT=TT+1:T1#=T1#+IN%*IC -3810 LPRINT USING L0$;IN%;:LPRINT TAB(12)IS$;TAB(27)ID$;:LPRINT TAB(48) USING L1$;IC;:LPRINT TAB(60) USING L6$;IN%*IC -3820 RETURN -3830 LPRINT " ":LPRINT "TOTAL ITEMS:";TT -3840 LPRINT "TOTAL COST OF ORDER:";TAB(20) USING L6$;T1# -3850 GOSUB 3240:CLS:GOTO 1540 -3860 PRINT @ 616,"CURRENT SALES : ";P1; -3870 PRINT @ 680,"CUMULATIVE SALES: ";P2; -3880 RETURN -4000 GC#=GC#+IQ%*IC:GP#=GP#+IQ%*IP:GR#=GR#+IO%*IC:GI=GI+1:RETURN -4050 TI=GI:TC#=GC#:TP#=GP#:TR#=GR#:RETURN - -5000 REM ----------------------------------- -5010 REM CHECK FOR MISSING FILES -5020 REM ----------------------------------- -5100 IF ERL = 45 THEN RESUME 110 -5110 IF ERL = 2611 THEN IQ%=0 : RESUME NEXT -5120 IF ERL = 2612 THEN IC =0 : RESUME NEXT -5130 IF ERL = 2613 THEN IP =0 : RESUME NEXT -5140 IF ERL = 2620 THEN IR%=0 : RESUME NEXT -5150 IF ERL = 2621 THEN IN%=0 : RESUME NEXT -5160 IF ERL = 2622 THEN IO%=0 : RESUME NEXT -5170 IF ERL = 2625 THEN P1 =0 : RESUME NEXT -5180 IF ERL = 2626 THEN P2 =0 : RESUME NEXT - - - -5300 PRINT:PRINT "UNEXPECTED ERROR CODE";ERR;"IN LINE";ERL -5310 IF ERL = 2350 THEN PRINT "MISSING RANDOM FILE:";PR$ -5320 IF ERL = 2530 THEN PRINT "MISSING RANDOM FILE:";PD$ -5330 IF ERL = 2535 THEN PRINT "MISSING RANDOM FILE:";PS$ -5340 IF ERL = 2680 THEN PRINT "MISSING INPUT FILE:";PI$ -5350 IF ERL = 2685 THEN PRINT "MISSING INPUT FILE:";PT$ -5360 IF ERL = 2720 THEN PRINT "MISSING OUTPUT FILE:";PI$ -5370 IF ERL = 2750 THEN PRINT "MISSING OUTPUT FILE:";PT$ -5380 IF ERL = 3670 THEN PRINT "MISSING OUTPUT FILE:";"TRANSFER" - - -9999 END - - - diff --git a/bwbtest/T80C/ICS.INP b/bwbtest/T80C/ICS.INP deleted file mode 100644 index cbff9a3..0000000 --- a/bwbtest/T80C/ICS.INP +++ /dev/null @@ -1,67 +0,0 @@ -Y -TXT -1 -ABCD1234 -WIDGET -111 -1.11 -11.11 -STOCKROOM 1 -100 -10 -11 -11/11/11 -V1 -@ -3 -1 -N -@ -2 -ABCD1234 -@ -9 -@ -5 -ABCD1234 -12 -@ -9 -@ -6 -1 -@ -9 -@ -3 -1 -N -@ -8 -ABCD1234 -34 -12/12/12 -@ -3 -3 -N -1 -N -@ -9 -@ -7 -ABCD1234 -31 -2.22 -12.13 -@ -9 -@ -3 -3 -N -7 -V1 -@ -@ diff --git a/bwbtest/T80C/ICS.run b/bwbtest/T80C/ICS.run deleted file mode 100644 index cadaf67..0000000 --- a/bwbtest/T80C/ICS.run +++ /dev/null @@ -1,732 +0,0 @@ - [2J [1;1H [8;11HDATE IS SET TO 12/15/15 . IS THIS CORRECT ? ? Y - [2J [1;1H [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 - [8;25HENTER PASSWORD ---> ? TXT - [8;25HINITIALIZING - [3;1H [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 1 - [2J [1;1H INPUT NEW ITEMS - - [5;26H [5;1H0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [3;1H (TYPE @ TO EXIT TO MAIN MENU) [5;26H? ABCD1234 - [3;1H (TYPE @ TO REDO ENTRY) [6;26H? WIDGET - [7;26H? 111 - [8;26H? 1.11 - [9;26H? 11.11 - [9;41HGROSS PROFIT= 90.0 % [10;26H? STOCKROOM 1 - [11;26H? 100 - / ? 10 - [12;26H? 11 - [13;26H? 11/11/11 - [14;26H? V1 - [10;41HCURRENT SALES : 0 [11;41HCUMULATIVE SALES: 0 [5;1H0 - STOCK # ---- -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [5;26H [5;1H0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [3;1H (TYPE @ TO EXIT TO MAIN MENU) [5;40H(LAST ENTRY: A - [2J [1;1H [8;17HLOADING IN DATA FOR SORT -*** RUNNING DATASORT *** - [2J [1;1H [8;21HSORT IS IN PROGRESS - [2J [1;1H [8;21HSORT COMPLETE. SAVING FILES - [2J [1;1H [8;21HALL OPERATIONS COMPLETE - [10;21HRETURNING TO MAIN MENU - [2J [1;1H [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 - [3;1H [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 3 - [2J [1;1H OUTPUT REPORTS AND SUMMARIES - -OPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX -7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU - -SELECT OPTION --> ? 1 - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [8;9HDO YOU WANT TO SUPPRESS COST AND PROFIT FIGURES ? ? N - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [2J [1;1H OUTPUT REPORTS AND SUMMARIES - -OPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX -7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU - -SELECT OPTION --> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 2 - [2J [1;1H ACCESS / UPDATE DATA - - [5;26H [5;1H0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [3;1H - [3;1HENTER STOCK # (TYPE @ TO EXIT) ----> ? ABCD1234 - [5;26H [5;1H0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [5;26HABCD1234 [6;26HWIDGET - [7;26H 111 - [8;26H 1.11 - [9;26H 11.11 - [9;41HGROSS PROFIT= 90.0 % [10;26HSTOCKROOM - [11;26H 100 / 10 - [12;26H 11 - [13;26H11/11/11 - [14;26HV1 - [10;41HCURRENT SALES : 0 [11;41HCUMULATIVE SALES: 0 [3;1H - [3;1HSELECT (U)PDATE, (S)EARCH, (N)EXT ITEM, (P)REVIOUS ITEM, -(A)DJUST QTY, (D)ELETE, (@) TO EXIT TO MAIN MENU --> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 9 - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 - SYSTEM STATUS REPORT - - -NUMBER OF ITEMS CURRENTLY IN LISTING: 1 -NUMBER OF UNPOSTED SALES TICKETS: 0 -TOTAL COST (WHOLESALE) VALUE: $123.21 -TOTAL RETAIL SALE VALUE ----: $1,233.21 -TOTAL VALUE OF ITEMS ORDERED: $12.21 - - TYPE @ TO RETURN TO MAIN MENU --> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 5 - [2J [1;1H ENTER SALES TICKETS - - [3;1H (TYPE @ TO EXIT TO MAIN MENU) [5;1H - [5;1HSTOCK NUMBER: ? ABCD1234 - [3;1H (TYPE @ TO REDO ENTRY) [7;1HQUANTITY SOLD: ? 12 - [3;1H (TYPE @ TO EXIT TO MAIN MENU) [5;1H - [5;40H(LAST ENTRY: ABCD1234) [5;1HSTOCK NUMBER: ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 9 - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 - SYSTEM STATUS REPORT - - -NUMBER OF ITEMS CURRENTLY IN LISTING: 1 -NUMBER OF UNPOSTED SALES TICKETS: 1 -TOTAL COST (WHOLESALE) VALUE: $123.21 -TOTAL RETAIL SALE VALUE ----: $1,233.21 -TOTAL VALUE OF ITEMS ORDERED: $12.21 - - TYPE @ TO RETURN TO MAIN MENU --> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 6 - [2J [1;1H END OF PERIOD PROCESSING - - [3;1HFUNCTIONS: - -1 - POST SALES TICKETS AND CLEAR TICKET FILE - -2 - CLEAR CURRENT SALES FIGURES FROM INVENTORY - -3 - CLEAR CURRENT AND CUMULATIVE SALES FIGURES FROM INVENTORY - -@ - EXIT TO MAIN MENU - -SELECT FUNCTION > ? 1 - [2J [1;1H [8;21HpOSTING IN PROGRESS - [10;21HTICKETS REMAINING: 0 - [2J [1;1H END OF PERIOD PROCESSING - - [3;1HFUNCTIONS: - -1 - POST SALES TICKETS AND CLEAR TICKET FILE - -2 - CLEAR CURRENT SALES FIGURES FROM INVENTORY - -3 - CLEAR CURRENT AND CUMULATIVE SALES FIGURES FROM INVENTORY - -@ - EXIT TO MAIN MENU - -SELECT FUNCTION > ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 9 - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 - SYSTEM STATUS REPORT - - -NUMBER OF ITEMS CURRENTLY IN LISTING: 1 -NUMBER OF UNPOSTED SALES TICKETS: 0 -TOTAL COST (WHOLESALE) VALUE: $109.89 -TOTAL RETAIL SALE VALUE ----: $1,099.89 -TOTAL VALUE OF ITEMS ORDERED: $12.21 - - TYPE @ TO RETURN TO MAIN MENU --> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 3 - [2J [1;1H OUTPUT REPORTS AND SUMMARIES - -OPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX -7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU - -SELECT OPTION --> ? 1 - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [8;9HDO YOU WANT TO SUPPRESS COST AND PROFIT FIGURES ? ? N - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [2J [1;1H OUTPUT REPORTS AND SUMMARIES - -OPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX -7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU - -SELECT OPTION --> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 8 - [2J [1;1H ENTER ITEMS PLACED ON ORDER - - [5;26H [5;1H0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [3;1H - [3;1HENTER STOCK# (TYPE @ TO EXIT) ----> ? ABCD1234 - [5;26H [5;1H0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [5;26HABCD1234 [6;26HWIDGET - [7;26H 99 - [8;26H 1.11 - [9;26H 11.11 - [9;41HGROSS PROFIT= 90.0 % [10;26HSTOCKROOM - [11;26H 100 / 10 - [12;26H 11 - [13;26H11/11/11 - [14;26HV1 - [10;41HCURRENT SALES : 12 [11;41HCUMULATIVE SALES: 12 [3;1H - [3;1HQUANTITY ORDERED (HIT FOR DEFAULT QTY): ? 34 - [3;1H - [3;1HDATE OF ORDER (HIT FOR LAST ENTERED DATE): ? 12/12/12 - [5;1H0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [6;26HWIDGET - [7;26H 99 - [8;26H 1.11 - [9;26H 11.11 - [9;41HGROSS PROFIT= 90.0 % [10;26HSTOCKROOM - [11;26H 100 / 10 - [12;26H 45 - [13;26H12/12/12 - [14;26HV1 - [10;41HCURRENT SALES : 12 [11;41HCUMULATIVE SALES: 12 [3;1H - [3;1HENTER STOCK# (TYPE @ TO EXIT) ----> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 3 - [2J [1;1H OUTPUT REPORTS AND SUMMARIES - -OPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX -7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU - -SELECT OPTION --> ? 3 - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [8;9HDO YOU WANT TO SUPPRESS COST AND PROFIT FIGURES ? ? N - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [2J [1;1H OUTPUT REPORTS AND SUMMARIES - -OPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX -7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU - -SELECT OPTION --> ? 1 - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [8;9HDO YOU WANT TO SUPPRESS COST AND PROFIT FIGURES ? ? N - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [2J [1;1H OUTPUT REPORTS AND SUMMARIES - -OPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX -7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU - -SELECT OPTION --> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 9 - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 - SYSTEM STATUS REPORT - - -NUMBER OF ITEMS CURRENTLY IN LISTING: 2 -NUMBER OF UNPOSTED SALES TICKETS: 0 -TOTAL COST (WHOLESALE) VALUE: $219.78 -TOTAL RETAIL SALE VALUE ----: $2,199.78 -TOTAL VALUE OF ITEMS ORDERED: $99.90 - - TYPE @ TO RETURN TO MAIN MENU --> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 7 - [2J [1;1H ENTER RECEIPTS OF ON-ORDER ITEMS - - [5;26H [5;1H0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [3;1H - [3;1HENTER STOCK# (TYPE @ TO EXIT) ----> ? ABCD1234 - [5;26H [5;1H0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [5;26HABCD1234 [6;26HWIDGET - [7;26H 99 - [8;26H 1.11 - [9;26H 11.11 - [9;41HGROSS PROFIT= 90.0 % [10;26HSTOCKROOM - [11;26H 100 / 10 - [12;26H 45 - [13;26H12/12/12 - [14;26HV1 - [10;41HCURRENT SALES : 12 [11;41HCUMULATIVE SALES: 12 [3;1H - [3;1HQUANTITY RECEIVED: ? 31 - [3;1H - [3;1HCHANGE IN COST (HIT TO SKIP): ? 2.22 - [3;1H - [3;1HCHANGE IN SELL PRICE (HIT TO SKIP): ? 12.13 - [5;1H0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR ---------> [6;26HWIDGET - [7;26H 130 - [8;26H 2.22 - [9;26H 12.13 - [9;41HGROSS PROFIT= 81.7 % [10;26HSTOCKROOM - [11;26H 100 / 10 - [12;26H 14 - [13;26H12/12/12 - [14;26HV1 - [10;41HCURRENT SALES : 12 [11;41HCUMULATIVE SALES: 12 [3;1H - [3;1HENTER STOCK# (TYPE @ TO EXIT) ----> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 9 - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 - SYSTEM STATUS REPORT - - -NUMBER OF ITEMS CURRENTLY IN LISTING: 2 -NUMBER OF UNPOSTED SALES TICKETS: 0 -TOTAL COST (WHOLESALE) VALUE: $398.49 -TOTAL RETAIL SALE VALUE ----: $2,676.79 -TOTAL VALUE OF ITEMS ORDERED: $81.03 - - TYPE @ TO RETURN TO MAIN MENU --> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? 3 - [2J [1;1H OUTPUT REPORTS AND SUMMARIES - -OPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX -7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU - -SELECT OPTION --> ? 3 - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [8;9HDO YOU WANT TO SUPPRESS COST AND PROFIT FIGURES ? ? N - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [2J [1;1H OUTPUT REPORTS AND SUMMARIES - -OPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX -7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU - -SELECT OPTION --> ? 7 - [3;1H - [8;23H** PRINTING ** - [2J [1;1H [8;3HENTER ENOUGH LETTERS TO IDENTIFY VENDOR --> ? V1 - [3;1H - [8;23H** PRINTING ** - [2J [1;1HOPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX -7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU - -SELECT OPTION --> ? @ - [2J [1;1H TRS-80 INVENTORY CONTROL SYSTEM - [2;54H12/15/15 -FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING -7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM - -SELECT FUNCTION > ? @ - [2J [1;1H [8;25HEND OF PROGRAM - - diff --git a/bwbtest/T80C/INDEXFIL b/bwbtest/T80C/INDEXFIL deleted file mode 100644 index d007c23..0000000 --- a/bwbtest/T80C/INDEXFIL +++ /dev/null @@ -1,2 +0,0 @@ -2,1,0 -1 diff --git a/bwbtest/T80C/INFOFILE b/bwbtest/T80C/INFOFILE deleted file mode 100644 index 80f9711..0000000 --- a/bwbtest/T80C/INFOFILE +++ /dev/null @@ -1 +0,0 @@ -398.49,2676.79,81.03,2,0 diff --git a/bwbtest/T80C/MERGE.BAS b/bwbtest/T80C/MERGE.BAS deleted file mode 100644 index 42a97ba..0000000 --- a/bwbtest/T80C/MERGE.BAS +++ /dev/null @@ -1,23 +0,0 @@ -32000 REM COMMON FILE DEFINITIONS -32010 ZINT = LEN(MKI$(0)) - : ZSNG = LEN(MKS$(0)) - : PI$="INDEXFIL" - : PD$="DATAFILE" - : PT$="INFOFILE" - : PS$="STOCKNUM" - : PR$="SALEDATA" - : PI%=80 - : PD%=19 + ZINT + ZSNG + ZSNG + 10 + ZINT + ZINT + ZINT + 8 + 6 + ZINT + ZINT - : PT%=80 - : PS%=10 - : PR%=10 + ZINT - : RETURN -64000 REM FAKE HARDWARE ROUTINES -64010 DEF PEEK( X ) = 0 -64020 DEF POKE( X, Y ) = 0 -64030 DEF INP( X ) = 0 -64040 DEF OUT( X, Y ) = 0 -64050 DEF WAIT( X, Y ) = 0 -64060 DEF WAIT( X, Y, Z ) = 0 -64070 DEF TIME$="12/15/15 19:28:37" - diff --git a/bwbtest/T80C/ORIGINAL/ICS.TXT b/bwbtest/T80C/ORIGINAL/ICS.TXT deleted file mode 100644 index d104b72..0000000 --- a/bwbtest/T80C/ORIGINAL/ICS.TXT +++ /dev/null @@ -1,434 +0,0 @@ -10 REM 12/05/78 -20 REM ** TRS-80 INVENTORY CONTROL SYSTEM ** -25 IFPEEK(14312)>127THENPRINT"PRINTER NOT READY":GOTO40 -30 LPRINTCHR$(27);CHR$(20) -40 POKE16425,1:CLEAR500:W$="":ONERRORGOTO90:OPEN"I",1,"TRANSFER" -50 LINEINPUT#1,PI$:LINEINPUT#1,PS$:LINEINPUT#1,PD$ -60 LINEINPUT#1,PT$:LINEINPUT#1,PR$ -70 CLOSE1:KILL"TRANSFER" -80 CLS:GOSUB250:GOTO200 -90 IFERR/2+1=54THENRESUME110 -100 ONERRORGOTO0 -110 IFLEFT$(TIMES,2)="00"ORMID$(TIMES,3,1)<>"/"ORMID$(TIMES,6,1)<>"/"THENCLS:GOTO190 -120 CLS:PRINT@458,"DATE IS SET TO ";LEFT$(TIMES,8);" . IS THIS CORRECT ? "; -130 FL=1:GOSUB370:Q$=IN$:IFQ$<>"Y"ANDQ$<>"N"THENPRINTCHR$(8);:GOTO130:ELSEIFQ$="N"THEN140:ELSE190 -140 PRINT@588,"ENTER CORRECT DATE (MM/DD/YY) : "; -150 FL=8:GOSUB370:DT$=IN$ -160 POKE16454,VAL(LEFT$(DT$,2)):POKE16452,VAL(RIGHT$(DT$,2)) -170 POKE16453,VAL(MID$(DT$,4,2)) -180 GOTO110 -190 CLS:GOSUB250:GOSUB3180:IFP$=""THEN190:ELSEGOSUB3170:PRINT@472,"INITIALIZING";CHR$(30) -200 DEFINTA,C,H,J,K,F,L,M,N,P,T,V,W:DIMV(1000) -210 DEFFNGP(IC,IP)=(IP-IC)/IP*100 -220 ONERRORGOTO3550:POKE16424,67:POKE16425,1:XX=1:LF$=CHR$(32):LL$=STRING$(132,"-") -230 READA0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,L0$,L1$,L6$,L7$:RESTORE:GOTO3010 -240 GOSUB250:GOTO270 -250 CLS:PRINTTAB(13)"TRS-80 INVENTORY CONTROL SYSTEM":PRINT@117,LEFT$(TIMES,8);:PRINT:RETURN -260 GOSUB250:PRINTTAB(20)"SYSTEM STATUS REPORT":PRINT:GOSUB3070:PRINT:GOSUB2480:RETURN -270 PRINT"FUNCTIONS: - -1 - INPUT NEW ITEMS -2 - ACCESS / UPDATE -3 - OUTPUT REPORTS AND SUMMARIES -4 - CREATE NEW INVENTORY -5 - ENTER SALES TICKETS -6 - END OF PERIOD PROCESSING" -280 PRINT"7 - ENTER RECEIPTS OF ON-ORDER ITEMS -8 - ENTER ITEMS PLACED ON ORDER -9 - DISPLAY SYSTEM STATUS -@ - EXIT FROM PROGRAM" -290 PRINT:PRINT"SELECT FUNCTION > "; -300 FL=-1:GOSUB370:S$=IN$:IFCF=1THEN330:ELSEIFS$<"1"ORS$>"9"THENPRINTCHR$(8);:GOTO300 -310 ONVAL(S$)GOSUB560,800,1530,1800,1870,2000,1300,1310,260 -320 IFFD=0THEN240:ELSECLS:PRINT@464,"LOADING IN DATA FOR SORT":CLOSE:GOSUB2750:GOSUB2720:GOTO3670 -330 CLS -340 PRINT@472,"END OF PROGRAM":PRINT:PRINT:IFER=1THENCLOSE:CLEAR50:END:ELSECLOSE:GOSUB2750:GOSUB2720:CLEAR50:END -350 PRINT@128,CHR$(30);CHR$(29);"(TYPE @ TO EXIT TO MAIN MENU)";:RETURN -360 PRINT@128,CHR$(30);CHR$(29);"(TYPE @ TO REDO ENTRY)";:RETURN -370 IN$="":CF=0:W$=INKEY$:WD=0:WS=WD:WL=WD:IFFL=WDTHENFL=1 -380 PRINTSTRING$(ABS(FL),CHR$(136));STRING$(ABS(FL),CHR$(24)); -390 PRINTCHR$(14);:FORW=1TO25:W$=INKEY$:IFW$<>""THEN400:ELSENEXT:PRINTCHR$(15);:FORW=1TO25:W$=INKEY$:IFW$<>""THEN400:ELSENEXT:GOTO390 -400 IFW$<>CHR$(13)THEN420:ELSEPRINTSTRING$(ABS(FL)-WL," "); -410 PRINTCHR$(15);:W=25:NEXT:RETURN -420 IFW$<>"@"THEN440 -430 CF=1:PRINTCHR$(15);:RETURN -440 PRINTCHR$(14);:IFW$=CHR$(24)THENPRINTSTRING$(WL,CHR$(24));:GOTO370 -450 IFW$<>CHR$(8)THEN490:ELSEIFWL=0THEN390:ELSEPRINTCHR$(24);:IFFL>0THEN470:ELSEIFPEEK(16418)=44THEN480 -460 IFPEEK(16418)=46THENWD=0:GOTO470:ELSEIFPEEK(16418)=43ORPEEK(16418)=45THENWS=0 -470 IN$=LEFT$(IN$,LEN(IN$)-1) -480 WL=WL-1:POKE16418,136:GOTO390 -490 IFABS(FL)=WLTHEN390:ELSEIFFL>0THENIFW$>=" "ANDW$<="z"THEN540 -500 IFW$="."ANDWD=0THENWD=1:GOTO540 -510 IFW$=","THENPRINTW$;:WL=WL+1:GOTO550 -520 IF(W$="-"ORW$="+")ANDWS=0ANDWL=0THENWS=1:GOTO540 -530 IFW$<"0"ORW$>"9"THEN390 -540 PRINTW$;:IN$=IN$+W$:WL=WL+1 -550 IFABS(FL)=1THEN410:ELSE390 -560 CLS:PRINTTAB(20)"INPUT NEW ITEMS":PRINT -570 IFER=1THENGOSUB3060:RETURN -580 J=TN -590 IFTI=1000THENCLS:PRINT@468,"SYSTEM IS FULL (1000 ITEMS)":GOSUB2480:RETURN:ELSEPRINT@A0,CHR$(30);:GOSUB2510:GOSUB350 -600 IFFD<>0THENPRINT@295,"(LAST ENTRY: ";IS$;")"; -610 FL=10:PRINT@A0,;:GOSUB370:IFCF=0THENIS$=IN$:ELSE630 -620 IFIS$<>""THEN640:ELSE610 -630 RETURN -640 GOSUB360 -650 FL=19:PRINT@A1,;:GOSUB370:IFCF=0THENID$=IN$:ELSE560 -660 FL=-4:PRINT@A2,;:GOSUB370:IFCF=0THENIQ%=VAL(IN$):ELSE560 -670 FL=-7:PRINT@A3,;:GOSUB370:GOSUB3750:IFCF=0THENIC=VAL(IN$):PRINTCHR$(30);:ELSEONCFGOTO560,670 -680 FL=-7:PRINT@A4,;:GOSUB370:GOSUB3750:IFCF=0THENIP=VAL(IN$):PRINTCHR$(30);:ELSEONCFGOTO560,680 -690 GOSUB2830 -700 FL=10:PRINT@A5,;:GOSUB370:IFCF=0THENIL$=IN$:ELSE560 -710 FL=-4:PRINT@A6,;:GOSUB370:IFCF=0THENIR%=VAL(IN$):ELSE560 -720 PRINT" / ";:FL=-4:GOSUB370:IFCF=0THENIN%=VAL(IN$):ELSE560 -730 FL=-4:PRINT@A7,;:GOSUB370:IFCF=0THENIO%=VAL(IN$):ELSE560 -740 FL=8:PRINT@A8,;:GOSUB370:IFCF=0THENIM$=IN$:ELSE560 -750 FL=6:PRINT@A9,;:GOSUB370:IFCF=0THENIV$=IN$:ELSE560 -760 P1=0:P2=0:GOSUB3860 -770 TC#=TC#+IC*IQ%:TP#=TP#+IP*IQ%:TR#=TR#+IO%*IC:TI=TI+1 -780 FD=1:GOSUB3130:GOSUB2630:GOSUB2660:GOSUB2650:GOSUB2540 -790 GOSUB2600:GOSUB2560:TN=TN+1:J=TN:GOSUB2510:GOTO590 -800 CLS:PRINTTAB(20)"ACCESS / UPDATE DATA":PRINT -810 IFER=1THENGOSUB3060:RETURN -820 PRINT@A0,CHR$(31);:GOSUB2510 -830 GOSUB2780:PRINT"ENTER STOCK # (TYPE @ TO EXIT) ----> "; -840 FL=10:GOSUB370:IFCF=0THENIS$=IN$:ELSE1270 -850 GOSUB2420 -860 IFK=0THENPRINT@AB,"ITEM NOT IN LISTING";:GOSUB2500:GOSUB2510:GOTO830 -870 GOSUB2760 -880 GOSUB2780:PRINT"SELECT (U)PDATE, (S)EARCH, (N)EXT ITEM, (P)REVIOUS ITEM, -(A)DJUST QTY, (D)ELETE, (@) TO EXIT TO MAIN MENU --> "; -890 FL=1:GOSUB370:IFCF=1THEN1270:ELSEO$=IN$:IFO$<>"U"ANDO$<>"S"ANDO$<>"N"ANDO$<>"P"ANDO$<>"D"ANDO$<>"A"THENPRINTCHR$(8);:GOTO890 -900 IFO$="D"THEN1210 -910 IFO$="S"THEN820 -920 IFO$="U"THEN970 -930 IFO$="A"THEN1240 -940 IFO$="P"ANDN<>1THENN=N-1:J=V(N):IFSGN(J)=-1THEN940:ELSEGOSUB2630:GOSUB2660:GOSUB2670:GOSUB2760:GOTO880 -950 IFO$="N"ANDN+1<>TNTHENN=N+1:J=V(N):GOTO960:ELSEPRINTCHR$(8);:GOTO890 -960 IFSGN(J)=-1THEN950:ELSEGOSUB2630:GOSUB2660:GOSUB2670:GOSUB2760:GOTO880 -970 GOSUB2780:PRINT"SELECT LINE TO BE UPDATED (TYPE @ TO RESTART)--> "; -980 FL=-1:GOSUB370:IFCF=0THENU$=IN$:IFU$<"1"ORU$>"9"THENPRINTCHR$(8);:GOTO980 -990 IFCF<>0THEN880 -1000 GOSUB2780:ONVAL(U$)GOTO1010,1030,1050,1070,1090,1110,1140,1160,1180 -1010 GOSUB2780:PRINT"1 - DESCRIPTION : "; -1020 FL=19:GOSUB370:IFCF=0THENID$=IN$:GOTO1200:ELSE990 -1030 GOSUB2780 -1040 PRINT"2 - QUANTITY : ";:FL=-4:GOSUB370:IFCF=0THENGOSUB1280:IQ%=VAL(IN$):GOSUB1290:GOTO1200:ELSE990 -1050 GOSUB2780 -1060 PRINT"3 - COST : ";:FL=-7:GOSUB370:GOSUB3750:IFCF=0THENGOSUB1280:IC=VAL(IN$):GOSUB1290:PRINTCHR$(30);:GOTO1200:ELSEONCFGOTO990,1050 -1070 GOSUB2780 -1080 PRINT"4 - RETAIL PRICE : ";:FL=-7:GOSUB370:GOSUB3750:IFCF=0THENGOSUB1280:IP=VAL(IN$):GOSUB1290:PRINTCHR$(30);:GOTO1200:ELSEONCFGOTO990,1070 -1090 GOSUB2780:PRINT"5 - LOCATION : "; -1100 FL=10:GOSUB370:IFCF=0THENIL$=IN$:GOTO1200:ELSE990 -1110 GOSUB2780:PRINT"6 - REORDER POINT/QTY : "; -1120 FL=-4:GOSUB370:IFCF=0THENIR%=VAL(IN$):ELSE990 -1130 PRINT" / ";:FL=-4:GOSUB370:IFCF=0THENIN%=VAL(IN$):GOTO1200:ELSE990 -1140 GOSUB2780:PRINT"7 - # ON ORDER : "; -1150 FL=-4:GOSUB370:IFCF=0THENGOSUB1280:IO%=VAL(IN$):GOSUB1290:GOTO1200:ELSE990 -1160 GOSUB2780:PRINT"8 - DATE LAST ORDER : "; -1170 FL=8:GOSUB370:IFCF=0THENIM$=IN$:GOTO1200:ELSE990 -1180 GOSUB2780:PRINT"9 - VENDOR : "; -1190 FL=6:GOSUB370:IFCF=0THENIV$=IN$:GOTO1200:ELSE990 -1200 GOSUB2560:GOSUB2510:GOSUB2860:GOTO880 -1210 V(N)=-J -1220 TI=TI-1:GOSUB1280:F=F+1 -1230 IFN+1=TNTHENPRINT@A0,CHR$(31);:GOSUB2510:GOTO830:ELSEN=N+1:J=V(N):IFSGN(J)=1THENGOSUB2630:GOSUB2660:GOSUB2670:GOTO870:ELSE1230 -1240 GOSUB2780:PRINT"ENTER + OR - AND CHANGE IN QUANTITY ---> "; -1250 FL=-4:GOSUB370:IFCF=0THENCH$=IN$:ELSE990 -1260 IQ%=IQ%+VAL(CH$):TC#=TC#+IC*VAL(CH$):TP#=TP#+IP*VAL(CH$):GOTO1200 -1270 RETURN -1280 TC#=TC#-IQ%*IC:TP#=TP#-IQ%*IP:TR#=TR#-IO%*IC:RETURN -1290 TC#=TC#+IQ%*IC:TP#=TP#+IQ%*IP:TR#=TR#+IO%*IC:RETURN -1300 CLS:PRINTTAB(10)"ENTER RECEIPTS OF ON-ORDER ITEMS":PRINT:GOTO1320 -1310 CLS:PRINTTAB(15)"ENTER ITEMS PLACED ON ORDER":PRINT -1320 IFER=1THENGOSUB3060:RETURN -1330 PRINT@A0,CHR$(31);:GOSUB2510 -1340 GOSUB2780:PRINT"ENTER STOCK# (TYPE @ TO EXIT) ----> "; -1350 FL=10:GOSUB370:IFCF=0THENIS$=IN$:ELSE1270 -1360 GOSUB2420 -1370 IFK=0THENPRINT@AB,"ITEM NOT IN LISTING";:GOSUB2500:GOSUB2510:GOTO1340 -1380 GOSUB2760 -1390 IFS$="8"THEN1490 -1400 GOSUB2780:PRINT"QUANTITY RECEIVED: "; -1410 FL=-4:GOSUB370:IFCF=0THENGOSUB1280:IQ%=IQ%+VAL(IN$):IO%=IO%-VAL(IN$):ELSE1340 -1420 GOSUB2780:PRINT"CHANGE IN COST (HIT TO SKIP): "; -1430 FL=-7:GOSUB370:IFCF<>0THEN1340:ELSEIFIN$=""THEN1450:ELSEGOSUB3750 -1440 IFCF=0THENIC=VAL(IN$):PRINTCHR$(30);:ELSE1420 -1450 GOSUB2780:PRINT"CHANGE IN SELL PRICE (HIT TO SKIP): "; -1460 FL=-7:GOSUB370:IFCF<>0THEN1340:ELSEIFIN$=""THEN1480:ELSEGOSUB3750 -1470 IFCF=0THENIP=VAL(IN$):PRINTCHR$(30);:ELSE1450 -1480 GOSUB1290:GOSUB2560:GOSUB2510:GOSUB2860:GOTO1340 -1490 GOSUB2780:PRINT"QUANTITY ORDERED (HIT FOR DEFAULT QTY): "; -1500 FL=-4:GOSUB370:IFCF<>0THEN1340:ELSEGOSUB1280:IFIN$=""THENIO%=IO%+IN%:ELSEIO%=IO%+VAL(IN$) -1510 GOSUB2780:PRINT"DATE OF ORDER (HIT FOR LAST ENTERED DATE): "; -1520 FL=8:GOSUB370:IFIN$<>""THENIP$=IN$:IM$=IN$:GOTO1480:ELSEIM$=IP$:GOTO1480 -1530 CLS:PRINTTAB(15)"OUTPUT REPORTS AND SUMMARIES":PRINT -1540 IFER=1THENGOSUB3060:RETURN -1550 PRINT"OPTIONS: - -1 - PRINTOUT COMPLETE LISTING -2 - PRINTOUT OF NOT-IN-STOCK ITEMS -3 - PRINTOUT ALL ITEMS ON ORDER -4 - PRINTOUT ALL ITEMS AT OR BELOW REORDER POINT -5 - PRINTOUT BY VENDOR -6 - PRINTOUT BY PREFIX / SUFFIX" -1560 PRINT"7 - PRINT SUGGESTED PURCHASE ORDER TO VENDOR -8 - TEST PRINTER -@ - EXIT TO MAIN MENU" -1570 PRINT:PRINT"SELECT OPTION --> "; -1580 FL=-1:GOSUB370:IFCF=1THENRETURN:ELSEO$=IN$:IFO$<"1"ORO$>"8"THENPRINTCHR$(8);:GOTO1580 -1590 GOSUB3730:IFXX=1THEN1530 -1600 GOSUB3000 -1610 O=VAL(O$):IFO=8THENFORT=0TO131:LPRINT"*";:NEXT:CLS:GOTO1530 -1620 GOSUB2960:IFO<>7THENGOSUB2970:GOSUB3000 -1630 ONOGOSUB3250,3270,3290,3310,3330,3360,3430 -1640 IFO<>7THENGOSUB2890:FORN=1TOTN-1:ELSEGOSUB3780:FORN=1TOTN-1 -1650 J=V(N):IFSGN(J)=-1THEN1680 -1660 ONOGOSUB3260,3280,3300,3320,3350,3400,3450 -1670 EN$=INKEY$:IFEN$="@"THENLPRINT" ":LPRINT" * TERMINATED *":POKE16425,1:GOTO1530 -1680 NEXT -1690 IFO<>1ANDO<>3ANDO<>7ANDO<>5ANDO<>6THEN1770 -1700 IFO=3THEN1760 -1710 IFO=7THEN3830 -1720 IFO=5ORO=6THEN3480 -1725 IF GI<>TI AND GC#<>TC# AND GP#<>TP# AND GR#<>TR# THENGOSUB4050 -1730 GI=0:GC#=0:GP#=0:GR#=0:LPRINT" ":LPRINT"TOTAL ITEMS LISTED:";TAB(25)TI -1740 IFCC=0THENLPRINT"TOTAL COST VALUE:";TAB(25);:LPRINTUSINGL6$;TC# -1750 LPRINT"TOTAL RETAIL VALUE:";TAB(25);:LPRINTUSINGL6$;TP# -1760 IFCC=0THENLPRINT" ":LPRINT"TOTAL COST OF ORDERS:";TAB(25);:LPRINTUSINGL6$;TR# -1770 GOSUB3240:CLS:GOTO1530 -1780 GOSUB2630:GOSUB2660:GOSUB2670:RETURN -1790 GOSUB2540:GOSUB2600:GOSUB2610:GOSUB4000:RETURN -1800 CLS:PRINTTAB(20)"CREATE NEW INVENTORY" -1810 IFER=0THENPRINT@448,"SYSTEM CONTAINS INVENTORY DATA. IF YOU WISH TO ERASE ALL DATA, -TYPE (SHIFT) K OR ELSE TYPE @ TO RETURN TO MAIN MENU --> ";:ELSE1840 -1820 FL=1:GOSUB370:IFCF=1THENRETURN:ELSET$=IN$:IFT$<>"k"THENPRINTCHR$(8);:GOTO1820 -1830 CLOSE:KILLPI$:KILLPD$:KILLPT$:KILLPS$:KILLPR$:CLS:PRINT@468,"ALL DATA ERASED":ER=1:PRINT:PRINT:GOSUB2480:RETURN -1840 TC#=0:TP#=0:TR#=0:TI=0:TN=1:HI=0:HN=1:F=0:ER=0:GOSUB2530 -1850 PRINT@460,"SYSTEM READY FOR NEW INVENTORY" -1860 PRINT:PRINT:GOSUB2480:RETURN -1870 CLS:PRINTTAB(21)"ENTER SALES TICKETS":PRINT -1880 IFER=1THENGOSUB3060:RETURN -1890 GOSUB2350:H=HN:HC=0 -1900 IFHI=1000THENCLS:PRINT@448,"SALES FILE IS FULL (1000 ITEMS). USE FUNCTION 6 TO -POST SALES AND CLEAR THE FILE.":CLOSE1:GOSUB2500:RETURN -1910 GOSUB350 -1920 PRINT@256,CHR$(31); -1930 IFHC<>0THENPRINT@295,"(LAST ENTRY: ";HA$;")"; -1940 PRINT@256,"STOCK NUMBER: "; -1950 FL=10:GOSUB370:IFCF=0THENHA$=IN$:ELSECLOSE1:RETURN -1960 GOSUB360:PRINT@384,"QUANTITY SOLD: "; -1970 FL=-4:GOSUB370:IFCF=0THENHB=VAL(IN$):ELSE1910 -1980 GOSUB2360:GOSUB2400:GOSUB2380 -1990 HI=HI+1:HN=HN+1:H=HN:HC=1:GOTO1900 -2000 CLS:PRINTTAB(20)"END OF PERIOD PROCESSING":PRINT -2010 IFER=1THENGOSUB3060:RETURN -2020 PRINT@128,"FUNCTIONS: - -1 - POST SALES TICKETS AND CLEAR TICKET FILE - -2 - CLEAR CURRENT SALES FIGURES FROM INVENTORY - -3 - CLEAR CURRENT AND CUMULATIVE SALES FIGURES FROM INVENTORY - -@ - EXIT TO MAIN MENU":PRINT -2030 PRINT"SELECT FUNCTION > "; -2040 FL=-1:GOSUB370:IFCF=1THENRETURN:ELSEHO$=IN$:IFHO$<"1"ORHO$>"3"THENPRINTCHR$(8);:GOTO2040 -2045 IFVAL(HO$)>1THENPRINT" ARE YOU SURE (Y/N)";:FL=1:GOSUB370:IFIN$<>"Y"THEN2000 -2050 ONVAL(HO$)GOTO2060,2260,2280 -2060 GOSUB3730:IFXX=1THEN2000 -2070 IFHI=0THENCLS:PRINT@460,"NO UNPOSTED SALES TICKETS IN FILE":GOSUB2500:GOTO2000:ELSEGOSUB2190 -2080 CLS:PRINT@468,"pOSTING IN PROGRESS" -2090 GOSUB2350:HT=HI:HC#=0 -2100 FORH=1TOHI -2110 GOSUB2360:GOSUB2400:GOSUB2410:IS$=HA$ -2120 GOSUB2420:IFK=0THENGOSUB2200:GOTO2170 -2130 GOSUB2540:GOSUB2600:GOSUB2610 -2140 P1=P1+HB:P2=P2+HB:HC#=HC#+HB*IC -2150 IQ%=IQ%-HB:TC#=TC#-HB*IC:TP#=TP#-HB*IP:IFIQ%<0THENGOSUB2220 -2160 GOSUB2560:HT=HT-1:PRINT@596,"TICKETS REMAINING: ";HT -2170 NEXT:GOSUB2230 -2180 HI=0:HN=1:CLOSE1:KILLPR$:GOTO2000 -2190 GOSUB2960:LPRINTTAB(30)"SALES TICKET POSTING REPORT":LPRINTLF$:RETURN -2200 LPRINT"E R R O R : STOCK # ";HA$;" IS NOT IN INVENTORY LISTING AND WAS NOT POSTED":LPRINTLF$ -2210 RETURN -2220 LPRINT"N O T E : STOCK # ";HA$;" NOW HAS A QUANTITY OF ";IQ%:LPRINTLF$:RETURN -2230 LPRINT"NUMBER OF ITEMS POSTED: ";HI-HT -2240 LPRINT"TOTAL COST OF GOODS SOLD: ";USINGL6$;HC# -2250 GOSUB3240:RETURN -2260 CLS:PRINT@463,"CLEARING CURRENT SALES FIGURES" -2270 GOSUB2300:GOTO2000 -2280 CLS:PRINT@460,"CLEARING CURRENT AND CUMULATIVE SALES FIGURES" -2290 GOSUB2300:GOTO2000 -2300 FORJ=1TOTN-1 -2310 GOSUB2540:GOSUB2600:GOSUB2610 -2320 IFHO$="3"THENP2=0 -2330 P1=0 -2340 GOSUB2560:NEXT:RETURN -2350 OPEN"R",1,PR$:RETURN -2360 HR=INT((H-1)/20)+1:HD=H-20*INT((H-1)/20)-1 -2370 FIELD1,HD*12ASD$,10ASH1$,2ASH2$:RETURN -2380 LSETH1$=HA$:RSETH2$=MKI$(HB) -2390 PUT1,HR:RETURN -2400 GET1,HR:RETURN -2410 HA$=H1$:HB=CVI(H2$):RETURN -2420 NL=0:NH=TN -2430 K=INT((NH-NL)/2):IFK=0THENRETURN:ELSEN=K+NL -2435 IFN=NHTHENNH=INT((NH-NL)/2)+NL:GOTO2430:ELSEIFV(N)<0THENN=N+1:GOTO2435 -2440 J=ABS(V(N)):GOSUB2630:GOSUB2660:IFIS$+STRING$(10-LEN(IS$)," ")=N$THENIS$=N$:GOTO2470 -2450 IFIS$+STRING$(10-LEN(IS$)," ") "; -2490 FL=1:GOSUB370:IFCF=1THENRETURN:ELSEPRINTCHR$(8);:GOTO2490 -2500 FORT=1TO2500:NEXT:RETURN -2510 PRINT@256,"0 - STOCK # --------> -1 - DESCRIPTION ----> -2 - QUANTITY -------> -3 - COST -----------> -4 - SELL -----------> -5 - LOCATION -------> -6 - REORDER PT/QTY--> -7 - # ON ORDER -----> -8 - DATE LAST ORDER-> -9 - VENDOR --------->";CHR$(31); -2520 RETURN -2530 OPEN"R",2,PD$:OPEN"R",3,PS$:RETURN -2540 JR=INT((J-1)/4)+1:JD=J-4*INT((J-1)/4)-1 -2550 FIELD2,JD*63ASD$,19ASFD$,2ASFQ$,4ASFC$,4ASFP$,10ASFL$,2ASFR$,2ASFA$,2ASFO$,8ASFM$,6ASFV$,2ASP1$,2ASP2$:RETURN -2560 LSETFD$=ID$:RSETFQ$=MKI$(IQ%):RSETFC$=MKS$(IC) -2570 RSETFP$=MKS$(IP):LSETFL$=IL$:RSETFR$=MKI$(IR%):RSETFA$=MKI$(IN%) -2580 RSETFO$=MKI$(IO%):LSETFM$=IM$:LSETFV$=IV$:RSETP1$=MKI$(P1):RSETP2$=MKI$(P2) -2590 PUT2,JR:RETURN -2600 GET2,JR:RETURN -2610 ID$=FD$:IQ%=CVI(FQ$):IC=CVS(FC$):IP=CVS(FP$):IL$=FL$ -2620 IR%=CVI(FR$):IN%=CVI(FA$):IO%=CVI(FO$):IM$=FM$:IV$=FV$:P1=CVI(P1$):P2=CVI(P2$):RETURN -2630 JR=INT((J-1)/25)+1:JD=J-25*INT((J-1)/25)-1 -2640 FIELD3,JD*10ASD$,10ASN$:RETURN -2650 LSETN$=IS$:PUT3,JR:RETURN -2660 GET3,JR:RETURN -2670 IS$=N$:RETURN -2680 OPEN"I",1,PI$:OPEN"I",3,PT$ -2690 INPUT#3,TC#,TP#,TR#,TI,HI:CLOSE3 -2700 INPUT#1,TN,HN,F -2710 FORN=1TOTN-1:INPUT#1,V(N):NEXT:CLOSE1:RETURN -2720 OPEN"O",1,PI$ -2730 PRINT#1,TN;HN;F -2740 FORN=1TOTN-1:PRINT#1,V(N):NEXT:CLOSE1:RETURN -2750 OPEN"O",3,PT$:PRINT#3,TC#;TP#;TR#;TI;HI:CLOSE3:RETURN -2760 PRINT@A0,CHR$(30);:GOSUB2510:GOSUB2540:GOSUB2600:GOSUB2610:PRINT@A0,IS$;:GOSUB2860:RETURN -2770 DATA281,345,409,473,537,601,665,729,793,857,128,490,960 -2780 PRINT@AA,CHR$(30):PRINTCHR$(30);:PRINT@AA,;:RETURN -2790 DATA"####" -2800 DATA"####.##" -2810 DATA"$$###,####.##" -2820 DATA"###.#" -2830 IFIP<>0THENPRINT@552,"GROSS PROFIT= ";USINGL7$;FNGP(IC,IP);:PRINT" %";:RETURN:ELSERETURN -2840 IFCC=1THENLPRINT" ****";:RETURN -2850 IFIP<>0THENLPRINT" ";USINGL7$;FNGP(IC,IP);:RETURN:ELSERETURN -2860 PRINT@A1,ID$;:PRINT@A2,IQ%;:PRINT@A3,USINGL1$;IC;:PRINT@A4,USINGL1$;IP;:GOSUB2830 -2870 PRINT@A5,IL$;:PRINT@A6,IR%;"/";IN%;:PRINT@A7,IO%;:PRINT@A8,IM$;:PRINT@A9,IV$;:GOSUB3860 -2880 RETURN -2890 LPRINT"STOCK # DESCRIPTION QTY COST SELL GP % LOCATION R/O PT / QTY ON ORDER DATE VENDOR CURR / CUML" -2900 LPRINT"======= =========== === ==== ==== ==== ======== ===== ==== ======== ==== ====== ==== ====" -2910 LPRINT" ":RETURN -2920 GOSUB3720:LPRINTIS$;TAB(12)ID$;TAB(33);:LPRINTUSINGL0$;IQ%;:LPRINTTAB(39);:IFCC=0THENLPRINTUSINGL1$;IC;:ELSELPRINT" ****"; -2930 LPRINTTAB(48)USINGL1$;IP;:GOSUB2840 -2940 LPRINTTAB(63)IL$;" ";:LPRINTUSINGL0$;IR%;:LPRINT" / ";:LPRINTUSINGL0$;IN%;:LPRINT" ";:LPRINTUSINGL0$;IO%;:LPRINT" ";IM$;" ";IV$;" ";USINGL0$;P1;:LPRINT" / ";USINGL0$;P2 -2950 RETURN -2960 LPRINTLL$:LPRINTLF$:LPRINTLF$:LPRINTLEFT$(TIMES,8):LPRINTLF$:RETURN -2970 CLS:PRINT@456,"DO YOU WANT TO SUPPRESS COST AND PROFIT FIGURES ? "; -2980 FL=1:GOSUB370:IFIN$<>"Y"ANDIN$<>"N"THENPRINTCHR$(8);:GOTO2980 -2990 IFIN$="N"THENCC=0:RETURN:ELSECC=1:RETURN -3000 PRINT@128,CHR$(31):PRINT@470,"** PRINTING **":RETURN -3010 GOSUB2680:IFER=1THENRESUME3050 -3020 PRINT@128,CHR$(31); -3030 GOSUB2530 -3040 GOTO240 -3050 PRINT@448,CHR$(30);CHR$(29);"NO DATA IN SYSTEM. USE FUNCTION 4 OF MENU TO CREATE INVENTORY.":PRINT:GOSUB2480:GOTO240 -3060 PRINT@458,"NO DATA IN SYSTEM! USE FUNCTION 4 FIRST!":GOSUB2500:RETURN -3070 PRINT:PRINT"NUMBER OF ITEMS CURRENTLY IN LISTING: ";TI -3080 PRINT"NUMBER OF UNPOSTED SALES TICKETS: ";HI -3090 PRINT"TOTAL COST (WHOLESALE) VALUE: ";:PRINTUSINGL6$;TC# -3100 PRINT"TOTAL RETAIL SALE VALUE ----: ";:PRINTUSINGL6$;TP# -3110 PRINT"TOTAL VALUE OF ITEMS ORDERED: ";:PRINTUSINGL6$;TR# -3120 RETURN -3130 IFF=0THENV(J)=J:RETURN -3140 FORN=1TOTN-1 -3150 IFSGN(V(N))=-1THENV(N)=ABS(V(N)):J=V(N):TN=TN-1:F=F-1:RETURN -3160 NEXT:F=0:V(J)=J:RETURN -3170 PI$="INDEXFIL"+"."+P$+":0":PD$="DATAFILE"+"."+P$+":0":PT$="INFOFILE"+"."+P$+":0":PS$="STOCKNUM"+"."+P$+":0":PR$="SALEDATA"+"."+P$+":0":RETURN -3180 PRINT@472,"ENTER PASSWORD ---> "; -3190 P$="":FORX=1TO8 -3200 PE$=INKEY$:IFPE$=""THEN3200:ELSEIFPE$<" "ORPE$>"Z"THEN3220 -3210 P$=P$+PE$:PRINT"#";:GOTO3230 -3220 IFASC(PE$)=13THENRETURN:ELSE3200 -3230 NEXT:RETURN -3240 LPRINT" ":LPRINT"END OF LISTING":LPRINTLL$:LPRINTCHR$(12):RETURN -3250 LPRINTTAB(30)"COMPLETE INVENTORY LISTING":LPRINT" ":RETURN -3260 GOSUB1780:GOSUB1790:GOSUB2920:RETURN -3270 LPRINTTAB(30)"LISTING OF NOT-IN-STOCK ITEMS":LPRINT" ":RETURN -3280 GOSUB1790:IFIQ%>0THENRETURN:ELSEGOSUB1780:GOSUB2920:RETURN -3290 LPRINTTAB(30)"LISTING OF ALL ITEMS ON ORDER":LPRINT" ":RETURN -3300 GOSUB1790:IFIO%=0THENRETURN:ELSEGOSUB1780:GOSUB2920:RETURN -3310 LPRINTTAB(30)"LISTING OF ALL ITEMS AT OR BELOW REORDER POINT":LPRINT" ":RETURN -3320 GOSUB1790:IFIQ%>IR%THENRETURN:ELSEGOSUB1780:GOSUB2920:RETURN -3330 GOSUB3530:GOSUB3000 -3340 LPRINTTAB(30)"LISTING BY VENDOR: ";IX$:LPRINT" ":GOSUB3460:RETURN -3350 GOSUB1790:IFLEFT$(IV$,LEN(IX$))<>IX$THENRETURN:ELSEGOSUB1780:GOSUB3470:GOSUB2920:RETURN -3360 CLS:GOSUB3460:PRINT@468,"(P)REFIX OR (S)UFFIX ? " -3370 S$=INKEY$:IFS$<>"P"ANDS$<>"S"THEN3370 -3380 IFS$="P"THENPRINT@532,"ENTER PREFIX --> ";:FL=10:GOSUB370:K$=IN$:GOSUB3000:LPRINTTAB(30)"LISTING BY PREFIX: ";K$:LPRINT" ":RETURN -3390 PRINT@532,"ENTER SUFFIX --> ";:FL=10:GOSUB370:K$=IN$:GOSUB3000:LPRINTTAB(30)"LISTING BY SUFFIX: ";K$:LPRINT" ":RETURN -3400 GOSUB1780:IFS$="S"THEN3420 -3410 IFLEFT$(IS$,LEN(K$))<>K$THENRETURN:ELSEGOSUB1790:GOSUB3470:GOSUB2920:RETURN -3420 IFRIGHT$(IS$,LEN(K$))<>K$THENRETURN:ELSEGOSUB1790:GOSUB3470:GOSUB2920:RETURN -3430 GOSUB3530:GOSUB3000 -3440 LPRINTTAB(20)"SUGGESTED PURCHASE ORDER TO VENDOR: ";IX$:LPRINT" ":TT=0:T1#=0:RETURN -3450 GOSUB1790:IFLEFT$(IV$,LEN(IX$))<>IX$ORIQ%>IR%ORIR%<(IO%+IQ%)THENRETURN:ELSEGOSUB1780:GOSUB3800:RETURN -3460 TT=0:T1#=0:T2#=0:T3#=0:RETURN -3470 TT=TT+1:T1#=T1#+IQ%*IC:T2#=T2#+IQ%*IP:T3#=T3#+IO%*IC:RETURN -3480 LPRINT" ":LPRINT"NUMBER OF ITEMS:";TAB(25)TT -3490 IFCC=0THENLPRINT"TOTAL COST VALUE:";TAB(25)USINGL6$;T1# -3500 LPRINT"TOTAL RETAIL VALUE:";TAB(25)USINGL6$;T2# -3510 IFCC=0THENLPRINT"TOTAL COST OF ORDERS:";TAB(25)USINGL6$;T3# -3520 GOSUB3240:CLS:GOTO1540 -3530 CLS:PRINT@450,"ENTER ENOUGH LETTERS TO IDENTIFY VENDOR --> "; -3540 FL=6:GOSUB370:IX$=IN$:RETURN -3550 IFERR/2+1=54THENER=1:RETURN -3560 IFERR/2+1=57THEN3610 -3570 IFERR/2+1=68THENCLS:CLOSE:PRINT@458,"NO DISK IN DRIVE #1 - RUN TERMINATED":CLEAR50:PRINT:PRINT:END -3580 IFERR/2+1=70THENCLS:PRINT@465,"UNAUTHORIZED ACCESS TO INVENTORY SYSTEM -"TAB(28)"RUN TERMINATED":PRINT:CLEAR50:END -3590 PRINT:PRINTCHR$(30);"UNEXPECTED ERROR CODE ";ERR/2+1;"IN LINE";ERL:GOSUB2500:GOTO330 -3600 ONERRORGOTO0 -3610 CLS:PRINT@404,"** DISK I/O ERROR **":TE=TE+1 -3620 PRINT@586,"TOTAL I/O ERRORS THIS RUN: ";TE -3630 PRINT@650,"THIS ERROR OCCURRED IN LINE";ERL -3640 PRINT@778,"(T)RY AGAIN OR (E)XIT FROM PROGRAM ? "; -3650 FL=1:GOSUB370:IFIN$<>"T"ANDIN$<>"E"THENPRINTCHR$(8);:GOTO3650 -3660 IFIN$="T"THENRESUME:ELSE330 -3670 OPEN"O",1,"TRANSFER:0" -3680 PRINT#1,PI$:PRINT#1,PS$:PRINT#1,PD$:PRINT#1,PT$:PRINT#1,PR$ -3690 CLOSE1:CLEAR50 -3700 RUN"DATASORT" -3710 END -3720 IFPEEK(&H4029)<58THENRETURN:ELSELPRINTCHR$(12):GOSUB2960:GOSUB2890:RETURN -3730 IFPEEK(14312)<=127THENXX=0:RETURN -3740 CLS:PRINT@468,"PRINTER NOT READY !!":XX=1:GOSUB2500:CLS:RETURN -3750 IFCF<>0THENRETURN -3760 IFLEN(IN$)>=3THENIFMID$(IN$,LEN(IN$)-2,1)="."THENRETURN -3770 PRINT" INVALID FORMAT !";:FORT=1TO1000:NEXT:CF=2:RETURN -3780 LPRINT" QTY STOCK # DESCRIPTION COST EXTENSION" -3790 LPRINT" === ======== =========== ==== =========":LPRINT" ":RETURN -3800 TT=TT+1:T1#=T1#+IN%*IC -3810 LPRINTUSINGL0$;IN%;:LPRINTTAB(12)IS$;TAB(27)ID$;:LPRINTTAB(48)USINGL1$;IC;:LPRINTTAB(60)USINGL6$;IN%*IC -3820 RETURN -3830 LPRINT" ":LPRINT"TOTAL ITEMS:";TT -3840 LPRINT"TOTAL COST OF ORDER:";TAB(20)USINGL6$;T1# -3850 GOSUB3240:CLS:GOTO1540 -3860 PRINT@616,"CURRENT SALES : ";P1; -3870 PRINT@680,"CUMULATIVE SALES: ";P2; -3880 RETURN -4000 GC#=GC#+IQ%*IC:GP#=GP#+IQ%*IP:GR#=GR#+IO%*IC:GI=GI+1:RETURN -4050 TI=GI:TC#=GC#:TP#=GP#:TR#=GR#:RETURN diff --git a/bwbtest/T80C/ORIGINAL/mod4basc.bas b/bwbtest/T80C/ORIGINAL/mod4basc.bas deleted file mode 100644 index df17206..0000000 --- a/bwbtest/T80C/ORIGINAL/mod4basc.bas +++ /dev/null @@ -1,104 +0,0 @@ -2 ' Model 4 BASIC syntax converter -3 ' This program will convert other BASIC -4 ' programs to be syntactically correct -5 ' for the Model 4 BASIC. -6 ' -7 ' Written by: Lee Becker -8 ' Phone no. : 517-349-7604 -9 ' -10 CLS:CLEAR 20000:DIM A$(1000) ' ON ERROR GOTO 900 -15 LET A9 = 50 ' 1st set of DATA statements -16 LET z9 = 35 ' 2nd set of DATA statements -20 PRINT @ 500,"What is the file's name to convert?" -21 PRINT @ 590,; -22 LINE INPUT C$ -30 OPEN "I",1,C$ -40 KOUNT=1 -50 IF EOF(1) THEN 80 -60 LINE INPUT #1,L$:A$(KOUNT)=L$ -70 KOUNT=KOUNT+1:GOTO 50 -80 CLOSE 1 -90 ' -100 ' -110 CLS -120 PRINT @ 420,"There are";KOUNT;"total lines in the file.":PRINT TAB(20);"It will take approximately";:PRINT USING "##.#";KOUNT*3.1/60;:PRINT" minutes.":PRINT @ 670,"STARTING NOW" -130 FOR CNT=1 TO KOUNT:Y=1:Z=1:W=1 -135 V=INSTR(1,A$(CNT),"DATA"):IF V>0 AND V<8 THEN A$(CNT)=MID$(A$(CNT),1,V+3)+" "+MID$(A$(CNT),V+4):GOTO 300 -140 Z=INSTR(Z,A$(CNT),"'"):IF Z>0 AND Z<8 THEN 300 -150 IF Z=0 THEN Z=500 ELSE T=INSTR(Z,A$(CNT),CHR$(34)):IF T<>0 THEN Z=T:GOTO 140 -160 W=INSTR(W,A$(CNT),"REM"):IF W>0 AND W<8 THEN 300 -170 IF W=0 THEN W=500 ELSE T=INSTR(W,A$(CNT),CHR$(34)):IF T<>0 THEN W=T:GOTO 160 -180 FOR COT=1 TO A9:Q=1:READ B$ -190 IF Q<>0 THEN Q=INSTR(Q,A$(CNT),CHR$(34)) -200 X=INSTR(Y,A$(CNT),B$) -210 IF X>Z OR Z>W THEN 290 -220 IF Q<>0 AND X>Q THEN 540 -230 IF X<>0 THEN IF B$<>"THEN" AND B$<>"ELSE" AND B$<>"TO" AND B$<>"OR" AND B$<>"AND" AND B$<>"STEP" THEN 250 -240 IF X<>0 THEN E$=MID$(A$(CNT),X-2,2):F$=MID$(A$(CNT),X-3,3):IF E$<>":F" AND E$<>" F" AND E$<>" R" AND E$<>":R" AND E$<>"GO" AND F$<>"RES" AND F$<>"ERR" AND MID$(A$(CNT),X-4,4)<>"REST" THEN GOSUB 640:GOTO 190 -250 IF X=0 THEN 290 -255 IF B$="AND" OR B$="OR" OR B$="TO" OR B$="STEP" THEN Y=X+LEN(B$):GOTO 200 -260 IF MID$(A$(CNT),X-1,1)=" " OR MID$(A$(CNT),X-1,1)=":" THEN GOSUB 610:GOTO 190 -270 IF MID$(A$(CNT),X-1,1)="L" AND B$="PRINT" THEN Y=X+LEN(B$):GOTO 200 -280 GOSUB 640:GOTO 190 -290 Y=1:NEXT COT -300 PRINT @ 827,"Line";CNT;"is now done.":RESTORE:NEXT CNT -310 ' -320 ' -330 CLS:PRINT @ 418,"I am now changing all IF THEN statements":PRINT @ 670,"STARTING NOW" -340 FOR CNT=1 TO KOUNT:X=1:F=1 -350 X=INSTR(X,A$(CNT),"IF"):IF X=0 THEN 430 -355 IF F<>0 THEN 670 -360 Y=INSTR(X,A$(CNT),"THEN"):IF Y=0 THEN 390 -370 Z=INSTR(X+2,A$(CNT),"IF"):IF YX THEN W=V -410 NEXT S:IF W=999 THEN 430 -420 A$(CNT)=MID$(A$(CNT),1,W-1)+"THEN "+MID$(A$(CNT),W):X=X+2:GOTO 350 -430 PRINT @ 824,"Line";CNT;"is finished now.":NEXT CNT -440 CLS:E=1:FOR X=1 TO KOUNT STEP 10:CLS:FOR W=1 TO 10:PRINT A$(E):E=E+1:NEXT W:PRINT:INPUT"Hit ENTER for rest of list";U:PRINT:NEXT X -450 ' -460 ' -470 CLS:PRINT @ 320, "Old filename=";C$:PRINT @ 410,"Input file's name and drive to save converted file under":PRINT @ 507,;:LINE INPUT C$ -480 OPEN "O",1,C$ -490 FOR X=1 TO KOUNT:PRINT# 1,A$(X):NEXT X -500 CLOSE 1 -510 END -520 ' -530 ' -540 Q=INSTR(Q+1,A$(CNT),CHR$(34)):IF Q=0 THEN GOTO 290 -550 IF XQ THEN 540 -580 GOTO 230 -590 ' -600 ' -610 A$(CNT)=MID$(A$(CNT),1,X-1+LEN(B$))+" "+MID$(A$(CNT),X+LEN(B$)):Y=X+LEN(B$):RETURN -620 ' -630 ' -640 A$(CNT)=MID$(A$(CNT),1,X-1)+" "+MID$(A$(CNT),X,LEN(B$))+" "+MID$(A$(CNT),X+LEN(B$)):Y=X+LEN(B$)+1:RETURN -650 ' -660 ' -670 F=INSTR(F,A$(CNT),CHR$(34)):IF F>X OR F=0 THEN 360 -680 G=INSTR(F+1,A$(CNT),CHR$(34)):IF G=0 OR G=LEN(A$(CNT)) THEN 430 -690 IF G PAD80.INP -104 REM bwbasic PAD80.BAS -105 REM diff P001.run P001.80 -109 REM ---------------------------------------------------------- -120 REM GET FILE NAME INTO A$ -122 DELETE 500 -124 MERGE "PAD80.INP" -126 REM LIST -128 RESTORE 500 -130 READ A$ -135 REM PRINT "SOURCE:"; A$ -140 READ B$ -145 REM PRINT "TARGET:"; B$ -300 REM ---------------------------------------------------------- -301 REM PROCESS FILENAME IN A$ -302 REM ---------------------------------------------------------- -310 OPEN A$ FOR INPUT AS #2 -315 OPEN B$ FOR OUTPUT AS #3 -320 REM PRINT "PROCESS TEXT LINE" -330 IF EOF( 2 ) THEN 390 -335 REM PRINT "NOT EOF" -340 LINE INPUT #2, C$ -345 REM PRINT "C$=";C$ -350 C$ = LEFT$( C$ + SPACE$( 80 ), 80 ) -355 REM PRINT "yyy" -360 REM WRITE OUTPUT LINE -370 PRINT #3, C$ -375 REM PRINT "zzz" -380 GOTO 320 -390 REM CLOSE FILES -400 CLOSE #3 -410 CLOSE #2 -499 REM ---------------------------------------------------------- -500 REM REPLACED BY CONTENTS OF "PAD80.INP" -501 REM ---------------------------------------------------------- -900 REM ---------------------------------------------------------- -910 REM THE END -920 REM ---------------------------------------------------------- -999 END diff --git a/bwbtest/T80C/PAD80.INP b/bwbtest/T80C/PAD80.INP deleted file mode 100644 index 9bdadd7..0000000 --- a/bwbtest/T80C/PAD80.INP +++ /dev/null @@ -1 +0,0 @@ -500 DATA ICS.OUT, ICS.80 diff --git a/bwbtest/T80C/PAD80.PRO b/bwbtest/T80C/PAD80.PRO deleted file mode 100644 index 4c31bf5..0000000 --- a/bwbtest/T80C/PAD80.PRO +++ /dev/null @@ -1,2 +0,0 @@ -OPTION VERSION "BYWATER" -OPTION LABELS OFF diff --git a/bwbtest/T80C/SETUP.BAS b/bwbtest/T80C/SETUP.BAS deleted file mode 100644 index 88d7c99..0000000 --- a/bwbtest/T80C/SETUP.BAS +++ /dev/null @@ -1,37 +0,0 @@ -1 MERGE "MERGE.BAS" - :GOSUB 32000 - - - -3100 REM -3110 TN = 1 -3120 HN = 1 -3130 F = 0 -3140 V(1) = 1 -3150 OPEN "O",1,PI$ - :WRITE #1,TN,HN,F - :FOR N=1 TO TN-1 - : WRITE #1,V(N) - :NEXT - :CLOSE 1 - -3200 REM -3210 OPEN "R",2,PD$ -3230 JR = 1: HR = 1 -3240 FIELD 2, 19 AS FD$, ZINT AS FQ$, ZSNG AS FC$, ZSNG AS FP$, 10 AS FL$, ZINT AS FR$, ZINT AS FA$, ZINT AS FO$, 8 AS FM$, 6 AS FV$, ZINT AS P1$, ZINT AS P2$ -3250 LSET FD$=ID$:RSET FQ$=MKI$(IQ%):RSET FC$=MKS$(IC) -3260 RSET FP$=MKS$(IP):LSET FL$=IL$:RSET FR$=MKI$(IR%):RSET FA$=MKI$(IN%) -3270 RSET FO$=MKI$(IO%):LSET FM$=IM$:LSET FV$=IV$:RSET P1$=MKI$(P1):RSET P2$=MKI$(P2) -3280 PUT 2,JR:CLOSE 2 - -3300 REM -3310 OPEN "O",3,PT$:WRITE #3,TC#,TP#,TR#,TI,HI:CLOSE 3 - -3400 REM -3410 OPEN "R",3,PS$:FIELD 3, 10 AS N$:LSET N$=IS$:PUT 3,JR:CLOSE 3 - -3500 REM -3510 OPEN "R",1,PR$:FIELD 1,10 AS H1$,ZINT AS H2$:LSET H1$=HA$:RSET H2$=MKI$(HB):PUT 1,HR:CLOSE 1 - -9999 END - diff --git a/bwbtest/T80C/SETUP.run b/bwbtest/T80C/SETUP.run deleted file mode 100644 index e69de29..0000000 diff --git a/bwbtest/T80C/STOCKNUM b/bwbtest/T80C/STOCKNUM deleted file mode 100644 index a9472fc..0000000 --- a/bwbtest/T80C/STOCKNUM +++ /dev/null @@ -1 +0,0 @@ -ABCD1234 \ No newline at end of file diff --git a/bwbtest/T80C/T80.PRO b/bwbtest/T80C/T80.PRO deleted file mode 100644 index 041eefc..0000000 --- a/bwbtest/T80C/T80.PRO +++ /dev/null @@ -1,4 +0,0 @@ -OPTION VERSION "TRS-80" -OPTION INDENT 2 -OPTION TERMINAL ANSI -WIDTH 16, 64 diff --git a/bwbtest/yyy.sh b/bwbtest/yyy.sh deleted file mode 100644 index 0917e2a..0000000 --- a/bwbtest/yyy.sh +++ /dev/null @@ -1,102 +0,0 @@ -# Filename: yyy.sh -# Purpose: clean all automated regression tests -# Author: Howard Wulf, AF5NE -# Date: 2015-12-24 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/ -# ash ./yyy.sh - -# ---------------------------------------------- -# Run Automated Regression Tests -# ---------------------------------------------- - -cd B15A/ -ash ./99test.sh -cd .. - -cd B15B/ -ash ./99test.sh -cd .. - -cd B93/ -ash ./99test.sh -cd .. - -cd C77A/ -ash ./99test.sh -cd .. - -cd C77B/ -ash ./99test.sh -cd .. - -# cd D71/ -# ash ./99test.sh -# cd .. - -cd D73/ -ash ./99test.sh -cd .. - -cd G65/ -ash ./99test.sh -cd .. - -cd H80/ -ash ./99test.sh -cd .. - -cd HB1/ -ash ./99test.sh -cd .. - -cd HB1X/ -ash ./99test.sh -cd .. - -cd HB2/ -ash ./99test.sh -cd .. - -cd HB2X/ -ash ./99test.sh -cd .. - -cd I70/ -ash ./99test.sh -cd .. - -cd M80/ -ash ./99test.sh -cd .. - -cd NBS2/ -ash ./99test.sh -cd .. - -cd NBS2X/ -ash ./99test.sh -cd .. - -cd R86/ -ash ./99test.sh -cd .. - -cd T80A/ -ash ./99test.sh -cd .. - -cd T80B/ -ash ./99test.sh -cd .. - -cd T80C/ -ash ./99test.sh -cd .. - - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- - diff --git a/bwbtest/zzz.sh b/bwbtest/zzz.sh deleted file mode 100644 index e09efe0..0000000 --- a/bwbtest/zzz.sh +++ /dev/null @@ -1,189 +0,0 @@ -# Filename: zzz.sh -# Purpose: execute all automated regression tests -# Author: Howard Wulf, AF5NE -# Date: 2015-05-14 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/ -# ash ./zzz.sh - -# ---------------------------------------------- -# Run Automated Regression Tests -# ---------------------------------------------- - -cd B15A/ -ash ./00test.sh -cd .. - -cd B15B/ -ash ./00test.sh -cd .. - -cd B93/ -ash ./00test.sh -cd .. - -cd C77A/ -ash ./00test.sh -cd .. - -cd C77B/ -ash ./00test.sh -cd .. - -# cd D71/ -# ash ./00test.sh -# cd .. - -cd D73/ -ash ./00test.sh -cd .. - -cd G65/ -ash ./00test.sh -cd .. - -cd H80/ -ash ./00test.sh -cd .. - -cd HB1/ -ash ./00test.sh -cd .. - -cd HB1X/ -ash ./00test.sh -cd .. - -cd HB2/ -ash ./00test.sh -cd .. - -cd HB2X/ -ash ./00test.sh -cd .. - -cd I70/ -ash ./00test.sh -cd .. - -cd M80/ -ash ./00test.sh -cd .. - -cd NBS2/ -ash ./00test.sh -cd .. - -cd NBS2X/ -ash ./00test.sh -cd .. - -cd R86/ -ash ./00test.sh -cd .. - -cd T80A/ -ash ./00test.sh -cd .. - -cd T80B/ -ash ./00test.sh -cd .. - -cd T80C/ -ash ./00test.sh -cd .. - - -# ---------------------------------------------- -# Review Errors -# ---------------------------------------------- - -cd B15A/ -ash ./01test.sh -cd .. - -cd B15B/ -ash ./01test.sh -cd .. - -cd B93/ -ash ./01test.sh -cd .. - -cd C77A/ -ash ./01test.sh -cd .. - -cd C77B/ -ash ./01test.sh -cd .. - -# cd D71/ -# ash ./01test.sh -# cd .. - -cd D73/ -ash ./01test.sh -cd .. - -cd G65/ -ash ./01test.sh -cd .. - -cd H80/ -ash ./01test.sh -cd .. - -cd HB1/ -ash ./01test.sh -cd .. - -cd HB1X/ -ash ./01test.sh -cd .. - -cd HB2/ -ash ./01test.sh -cd .. - -cd HB2X/ -ash ./01test.sh -cd .. - -cd I70/ -ash ./01test.sh -cd .. - -cd M80/ -ash ./01test.sh -cd .. - -cd NBS2/ -ash ./01test.sh -cd .. - -cd NBS2X/ -ash ./01test.sh -cd .. - -cd R86/ -ash ./01test.sh -cd .. - -cd T80A/ -ash ./01test.sh -cd .. - -cd T80B/ -ash ./01test.sh -cd .. - -cd T80C/ -ash ./01test.sh -cd .. - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/zzz1.sh b/bwbtest/zzz1.sh deleted file mode 100644 index 56fcc43..0000000 --- a/bwbtest/zzz1.sh +++ /dev/null @@ -1,100 +0,0 @@ -# Filename: zzz.sh -# Purpose: execute all automated regression tests -# Author: Howard Wulf, AF5NE -# Date: 2015-05-14 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/ -# ash ./zzz.sh - -# ---------------------------------------------- -# Run Automated Regression Tests -# ---------------------------------------------- - -cd B15A/ -ash ./00test.sh -cd .. - -cd B15B/ -ash ./00test.sh -cd .. - -cd B93/ -ash ./00test.sh -cd .. - -cd C77A/ -ash ./00test.sh -cd .. - -cd C77B/ -ash ./00test.sh -cd .. - -# cd D71/ -# ash ./00test.sh -# cd .. - -cd D73/ -ash ./00test.sh -cd .. - -cd G65/ -ash ./00test.sh -cd .. - -cd H80/ -ash ./00test.sh -cd .. - -cd HB1/ -ash ./00test.sh -cd .. - -cd HB1X/ -ash ./00test.sh -cd .. - -cd HB2/ -ash ./00test.sh -cd .. - -cd HB2X/ -ash ./00test.sh -cd .. - -cd I70/ -ash ./00test.sh -cd .. - -cd M80/ -ash ./00test.sh -cd .. - -cd NBS2/ -ash ./00test.sh -cd .. - -cd NBS2X/ -ash ./00test.sh -cd .. - -cd R86/ -ash ./00test.sh -cd .. - -cd T80A/ -ash ./00test.sh -cd .. - -cd T80B/ -ash ./00test.sh -cd .. - -cd T80C/ -ash ./00test.sh -cd .. - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/bwbtest/zzz2.sh b/bwbtest/zzz2.sh deleted file mode 100644 index c832445..0000000 --- a/bwbtest/zzz2.sh +++ /dev/null @@ -1,100 +0,0 @@ -# Filename: zzz.sh -# Purpose: execute all automated regression tests -# Author: Howard Wulf, AF5NE -# Date: 2015-05-14 -# Uasage: implementation defined -# Example: -# cd /sdcard/Download/BASIC/bwbasic3/ -# ash ./zzz.sh - -# ---------------------------------------------- -# Review Errors -# ---------------------------------------------- - -cd B15A/ -ash ./01test.sh -cd .. - -cd B15B/ -ash ./01test.sh -cd .. - -cd B93/ -ash ./01test.sh -cd .. - -cd C77A/ -ash ./01test.sh -cd .. - -cd C77B/ -ash ./01test.sh -cd .. - -# cd D71/ -# ash ./01test.sh -# cd .. - -cd D73/ -ash ./01test.sh -cd .. - -cd G65/ -ash ./01test.sh -cd .. - -cd H80/ -ash ./01test.sh -cd .. - -cd HB1/ -ash ./01test.sh -cd .. - -cd HB1X/ -ash ./01test.sh -cd .. - -cd HB2/ -ash ./01test.sh -cd .. - -cd HB2X/ -ash ./01test.sh -cd .. - -cd I70/ -ash ./01test.sh -cd .. - -cd M80/ -ash ./01test.sh -cd .. - -cd NBS2/ -ash ./01test.sh -cd .. - -cd NBS2X/ -ash ./01test.sh -cd .. - -cd R86/ -ash ./01test.sh -cd .. - -cd T80A/ -ash ./01test.sh -cd .. - -cd T80B/ -ash ./01test.sh -cd .. - -cd T80C/ -ash ./01test.sh -cd .. - -# ---------------------------------------------- -# EOF -# ---------------------------------------------- diff --git a/cms.bas b/cms.bas index b157233..2dd98f3 100644 --- a/cms.bas +++ b/cms.bas @@ -18,6 +18,7 @@ rem L$ The input line read from "bwbasic.h" rem M$ The next line from "bwbasic.h" when L$ does not contain a semicolon rem X The location of special characters in L$ rem H$ The hexadecimal value of N +rem T Read count rem ------------------------------------------------------------------------------- rem let N = 0 @@ -25,7 +26,9 @@ let E$ = "extern " let E = len( E$ ) open "bwbasic.h" for input as #1 open "cms.txt" for output as #2 +T = 0 while not eof( #1 ) + T = T + 1 line input #1, L$ L$ = trim$( L$ ) if left$( L$, E ) = E$ then @@ -79,14 +82,18 @@ while not eof( #1 ) end if end if wend +print "Lines read from bwbasic.h :"; T close #2 close #1 REM sort before assigning value +print "Sorting" if shell( "sort < cms.txt > cms.out" ) = 0 then N = 0 open "cms.out" for input as #1 open "cms.h" for output as #2 + T = 0 while not eof(#1) + T = T + 1 line input #1, L$ L$ = trim$(L$) if len(L$) then @@ -99,10 +106,12 @@ if shell( "sort < cms.txt > cms.out" ) = 0 then N = N + 1 end if wend + print "Lines read from cms.out : "; T close #2 close #1 rem Cleanup temporary files - kill "cms.txt" - kill "cms.out" +print "Output in cms.h" +kill "cms.txt" +kill "cms.out" end if end diff --git a/compile b/compile new file mode 100755 index 0000000..1227be2 --- /dev/null +++ b/compile @@ -0,0 +1,35 @@ +echo "12/13/2019 Ken. Works under Ubuntu Linux 18.04, 19.10" +echo "Ubuntu Mate 20.04 Debian 10 and Ubuntu under Windows WSL." +echo " " +rm -f bwbasic renum +echo "Compile in progress..." +gcc -ansi -o bwbasic bw*.c -lm +gcc -ansi -o renum renum.c -lm +dir -l bwbasic renum +echo " " +echo -e "Be sure you are NOT running this as root. You are ($USER).\a" +echo -e -n "Results look OK?? If yes press ENTER otherwise press Ctrl/c: \a" +read j +echo " " +echo "Copying in progress" +sudo cp bwbasic /usr/local/bin/bwbasic +sudo cp bwbasic.png /usr/share/pixmaps/bwbasic.png +sudo cp renum /usr/local/bin/renum +echo "Setting up mode and ownership to root." +sudo chmod 755 /usr/local/bin/bwbasic +sudo chown root /usr/local/bin/bwbasic +sudo chmod 755 /usr/local/bin/renum +sudo chown root /usr/local/bin/renum +echo "Copying Desktop entry and icon for bwbasic on a GUI." +echo "Entry should appear on the Desktop for $USER" +sudo cp bwbasic.desktop /home/$USER/Desktop/. +echo "Setting up mode and ownership for desktop entry for $USER" +sudo chmod 777 /home/$USER/Desktop/bwbasic.desktop +sudo chown $USER /home/$USER/Desktop/bwbasic.desktop +echo "Copying completed" +echo " " +echo "You should now be able to run bwbasic from the command line or desktop." +echo "And use renum (renumbering tool) from the command line." +echo " " +echo -e "-- Done --\a" + diff --git a/compile.bat b/compile.bat index 4a59e47..38791bc 100644 --- a/compile.bat +++ b/compile.bat @@ -1,6 +1,12 @@ -del bwbasic.exe -del *.o -del *.obj +@echo off +echo 12/13/2019 Ken. bwbasic. Works under Windows 10 using gcc 7.4.0 +echo and gcc 8.1.0 64 bit +echo Wait +echo. + +if exist *.o del *.o +if exist bwbasic.exe del bwbasic.exe +if exist renum.exe del renum.exe call stdcomp bwbasic.c call stdcomp bwb_int.c @@ -19,5 +25,27 @@ call stdcomp bwx_tty.c call stdcomp bwd_cmd.c call stdcomp bwd_fun.c -rem gcc -mno-cygwin -s -o bwbasic.exe *.o -bcc32 -O -ebwbasic.exe *.obj +gcc -s -ansi -o bwbasic.exe bwb_cmd.o bwb_cnd.o bwb_dio.o bwb_exp.o bwb_fnc.o bwb_inp.o bwb_int.o bwb_prn.o bwb_stc.o bwb_str.o bwb_tbl.o bwb_var.o bwbasic.o bwd_cmd.o bwd_fun.o bwx_tty.o + +gcc -s -ansi -DMSDOS -o renum.exe renum.c + +if exist "renum.exe" ( + echo. + echo Compile suceeded for renum.exe. +) else ( + echo. + echo Compile FAILED for renum.exe. +) + +if exist "bwbasic.exe" ( + echo. + echo Compile suceeded for bwbasic.exe. +) else ( + echo. + echo Compile FAILED. Bwbasic.exe was not created. +) + +echo. +echo --Done-- +echo. +@echo on diff --git a/compile.exec b/compileA.exec similarity index 95% rename from compile.exec rename to compileA.exec index b52178b..6c63f96 100644 --- a/compile.exec +++ b/compileA.exec @@ -1,65 +1,65 @@ -* Usage - COMPILE - -* This script compiles all the files on SRC disk (default is A) -* and copies the resultant modules to the EXE disk (default B) - -&SRC = A -&EXE = B - - -&IF &INDEX EQ 0 &GOTO -FINARGS -&SRC = &1 -&ARGS &2 &3 &4 &5 &6 &7 &8 &9 - -&IF &INDEX EQ 0 &GOTO -FINARGS -&EXE = &1 - --FINARGS - - -EXEC GCCE BWBASIC C &SRC (PARM STDBWB -EXEC GCCE BWB_INT C &SRC (PARM STDBWB -EXEC GCCE BWB_TBL C &SRC (PARM STDBWB -EXEC GCCE BWB_CMD C &SRC (PARM STDBWB -EXEC GCCE BWB_PRN C &SRC (PARM STDBWB -EXEC GCCE BWB_EXP C &SRC (PARM STDBWB -EXEC GCCE BWB_VAR C &SRC (PARM STDBWB -EXEC GCCE BWB_INP C &SRC (PARM STDBWB -EXEC GCCE BWB_FNC C &SRC (PARM STDBWB -EXEC GCCE BWB_CND C &SRC (PARM STDBWB -EXEC GCCE BWB_DIO C &SRC (PARM STDBWB -EXEC GCCE BWB_STR C &SRC (PARM STDBWB -EXEC GCCE BWB_STC C &SRC (PARM STDBWB -EXEC GCCE BWX_TTY C &SRC (PARM STDBWB -EXEC GCCE BWD_CMD C &SRC (PARM STDBWB -EXEC GCCE BWD_FUN C &SRC (PARM STDBWB -EXEC GCCE UNIXIO C &SRC (PARM STDBWB - - -&STACK HT -LOAD BWBASIC (NOAUTO -INCLUDE BWB_INT (NOAUTO -INCLUDE BWB_TBL (NOAUTO -INCLUDE BWB_CMD (NOAUTO -INCLUDE BWB_PRN (NOAUTO -INCLUDE BWB_EXP (NOAUTO -INCLUDE BWB_VAR (NOAUTO -INCLUDE BWB_INP (NOAUTO -INCLUDE BWB_FNC (NOAUTO -INCLUDE BWB_CND (NOAUTO -INCLUDE BWB_DIO (NOAUTO -INCLUDE BWB_STR (NOAUTO -INCLUDE BWB_STC (NOAUTO -INCLUDE BWX_TTY (NOAUTO -INCLUDE BWD_CMD (NOAUTO -INCLUDE BWD_FUN (NOAUTO -&STACK RT -INCLUDE UNIXIO (NOAUTO - -GENMOD BWBASIC -COPY BWBASIC MODULE &SRC = = &EXE (REPLACE -COPY PROFILE BAS &SRC = = &EXE (REPLACE - - -* Quick test of bwbasic -BWBASIC "EXAMPLE BAS" +* Usage - COMPILE + +* This script compiles all the files on SRC disk (default is A) +* and copies the resultant modules to the EXE disk (default B) + +&SRC = A +&EXE = B + + +&IF &INDEX EQ 0 &GOTO -FINARGS +&SRC = &1 +&ARGS &2 &3 &4 &5 &6 &7 &8 &9 + +&IF &INDEX EQ 0 &GOTO -FINARGS +&EXE = &1 + +-FINARGS + + +EXEC GCCE BWBASIC C &SRC (PARM STDBWB +EXEC GCCE BWB_INT C &SRC (PARM STDBWB +EXEC GCCE BWB_TBL C &SRC (PARM STDBWB +EXEC GCCE BWB_CMD C &SRC (PARM STDBWB +EXEC GCCE BWB_PRN C &SRC (PARM STDBWB +EXEC GCCE BWB_EXP C &SRC (PARM STDBWB +EXEC GCCE BWB_VAR C &SRC (PARM STDBWB +EXEC GCCE BWB_INP C &SRC (PARM STDBWB +EXEC GCCE BWB_FNC C &SRC (PARM STDBWB +EXEC GCCE BWB_CND C &SRC (PARM STDBWB +EXEC GCCE BWB_DIO C &SRC (PARM STDBWB +EXEC GCCE BWB_STR C &SRC (PARM STDBWB +EXEC GCCE BWB_STC C &SRC (PARM STDBWB +EXEC GCCE BWX_TTY C &SRC (PARM STDBWB +EXEC GCCE BWD_CMD C &SRC (PARM STDBWB +EXEC GCCE BWD_FUN C &SRC (PARM STDBWB +EXEC GCCE UNIXIO C &SRC (PARM STDBWB + + +&STACK HT +LOAD BWBASIC (NOAUTO +INCLUDE BWB_INT (NOAUTO +INCLUDE BWB_TBL (NOAUTO +INCLUDE BWB_CMD (NOAUTO +INCLUDE BWB_PRN (NOAUTO +INCLUDE BWB_EXP (NOAUTO +INCLUDE BWB_VAR (NOAUTO +INCLUDE BWB_INP (NOAUTO +INCLUDE BWB_FNC (NOAUTO +INCLUDE BWB_CND (NOAUTO +INCLUDE BWB_DIO (NOAUTO +INCLUDE BWB_STR (NOAUTO +INCLUDE BWB_STC (NOAUTO +INCLUDE BWX_TTY (NOAUTO +INCLUDE BWD_CMD (NOAUTO +INCLUDE BWD_FUN (NOAUTO +&STACK RT +INCLUDE UNIXIO (NOAUTO + +GENMOD BWBASIC +COPY BWBASIC MODULE &SRC = = &EXE (REPLACE +COPY PROFILE BAS &SRC = = &EXE (REPLACE + + +* Quick test of bwbasic +BWBASIC "EXAMPLE BAS" diff --git a/configure b/configure old mode 100644 new mode 100755 index 173df74..6e35d2f --- a/configure +++ b/configure @@ -1,317 +1,317 @@ -#!/bin/sh -# Guess values for system-dependent variables and create Makefiles. -# Generated automatically using autoconf. -# Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc. - -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2, or (at your option) -# any later version. - -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. - -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - -# Usage: configure [--srcdir=DIR] [--host=HOST] [--gas] [--nfp] [--no-create] -# [--prefix=PREFIX] [--exec-prefix=PREFIX] [--with-PACKAGE] [TARGET] -# Ignores all args except --srcdir, --prefix, --exec-prefix, --no-create, and -# --with-PACKAGE unless this script has special code to handle it. - -##---------------------------------------------------------------## -## NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, ## -## 11/1995 (eidetics@cerf.net). ## -##---------------------------------------------------------------## - -for arg -do - # Handle --exec-prefix with a space before the argument. - if test x$next_exec_prefix = xyes; then exec_prefix=$arg; next_exec_prefix= - # Handle --host with a space before the argument. - elif test x$next_host = xyes; then next_host= - # Handle --prefix with a space before the argument. - elif test x$next_prefix = xyes; then prefix=$arg; next_prefix= - # Handle --srcdir with a space before the argument. - elif test x$next_srcdir = xyes; then srcdir=$arg; next_srcdir= - else - case $arg in - # For backward compatibility, also recognize exact --exec_prefix. - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* | --exec=* | --exe=* | --ex=* | --e=*) - exec_prefix=`echo $arg | sed 's/[-a-z_]*=//'` ;; - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- | --exec | --exe | --ex | --e) - next_exec_prefix=yes ;; - - -gas | --gas | --ga | --g) ;; - - -host=* | --host=* | --hos=* | --ho=* | --h=*) ;; - -host | --host | --hos | --ho | --h) - next_host=yes ;; - - -nfp | --nfp | --nf) ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre | --no-cr | --no-c | --no- | --no) - no_create=1 ;; - - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix=`echo $arg | sed 's/[-a-z_]*=//'` ;; - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - next_prefix=yes ;; - - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=* | --s=*) - srcdir=`echo $arg | sed 's/[-a-z_]*=//'` ;; - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr | --s) - next_srcdir=yes ;; - - -with-* | --with-*) - package=`echo $arg|sed 's/-*with-//'` - # Delete all the valid chars; see if any are left. - if test -n "`echo $package|sed 's/[-a-zA-Z0-9_]*//g'`"; then - echo "configure: $package: invalid package name" >&2; exit 1 - fi - eval "with_`echo $package|sed s/-/_/g`=1" ;; - - *) ;; - esac - fi -done - -trap 'rm -f conftest* core; exit 1' 1 3 15 - -rm -f conftest* -compile='${CC-cc} $DEFS conftest.c -o conftest $LIBS >/dev/null 2>&1' - -# A filename unique to this package, relative to the directory that -# configure is in, which we can look for to find out if srcdir is correct. -unique_file=bwb_cmd.c - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - srcdirdefaulted=yes - # Try the directory containing this script, then `..'. - prog=$0 - confdir=`echo $prog|sed 's%/[^/][^/]*$%%'` - test "X$confdir" = "X$prog" && confdir=. - srcdir=$confdir - if test ! -r $srcdir/$unique_file; then - srcdir=.. - fi -fi -if test ! -r $srcdir/$unique_file; then - if test x$srcdirdefaulted = xyes; then - echo "configure: Can not find sources in \`${confdir}' or \`..'." 1>&2 - else - echo "configure: Can not find sources in \`${srcdir}'." 1>&2 - fi - exit 1 -fi -# Preserve a srcdir of `.' to avoid automounter screwups with pwd. -# But we can't avoid them for `..', to make subdirectories work. -case $srcdir in - .|/*|~*) ;; - *) srcdir=`cd $srcdir; pwd` ;; # Make relative path absolute. -esac - -if test -z "$CC"; then - echo checking for gcc - saveifs="$IFS"; IFS="${IFS}:" - for dir in $PATH; do - test -z "$dir" && dir=. - if test -f $dir/gcc; then - CC="gcc" - break - fi - done - IFS="$saveifs" -fi -test -z "$CC" && CC="cc" - -# Find out if we are using GNU C, under whatever name. -cat > conftest.c < conftest.out 2>&1 -if egrep yes conftest.out >/dev/null 2>&1; then - GCC=1 # For later tests. -fi -rm -f conftest* - -echo checking how to run the C preprocessor -if test -z "$CPP"; then - CPP='${CC-cc} -E' - cat > conftest.c < -EOF -err=`eval "$CPP $DEFS conftest.c 2>&1 >/dev/null"` -if test -z "$err"; then - : -else - CPP=/lib/cpp -fi -rm -f conftest* -fi - -# Make sure to not get the incompatible SysV /etc/install and -# /usr/sbin/install, which might be in PATH before a BSD-like install, -# or the SunOS /usr/etc/install directory, or the AIX /bin/install, -# or the AFS install, which mishandles nonexistent args. (Sigh.) -if test -z "$INSTALL"; then - echo checking for install - saveifs="$IFS"; IFS="${IFS}:" - for dir in $PATH; do - test -z "$dir" && dir=. - case $dir in - /etc|/usr/sbin|/usr/etc|/usr/afsws/bin) ;; - *) - if test -f $dir/install; then - if grep dspmsg $dir/install >/dev/null 2>&1; then - : # AIX - else - INSTALL="$dir/install -c" - INSTALL_PROGRAM='$(INSTALL)' - INSTALL_DATA='$(INSTALL) -m 644' - break - fi - fi - ;; - esac - done - IFS="$saveifs" -fi -INSTALL=${INSTALL-cp} -INSTALL_PROGRAM=${INSTALL_PROGRAM-'$(INSTALL)'} -INSTALL_DATA=${INSTALL_DATA-'$(INSTALL)'} - -echo checking for size_t in sys/types.h -echo '#include ' > conftest.c -eval "$CPP $DEFS conftest.c > conftest.out 2>&1" -if egrep "size_t" conftest.out >/dev/null 2>&1; then - : -else - DEFS="$DEFS -Dsize_t=unsigned" -fi -rm -f conftest* - -echo checking for string.h -cat > conftest.c < -EOF -err=`eval "$CPP $DEFS conftest.c 2>&1 >/dev/null"` -if test -z "$err"; then - DEFS="$DEFS -DHAVE_STRING=1" -fi -rm -f conftest* - -echo checking for stdlib.h -cat > conftest.c < -EOF -err=`eval "$CPP $DEFS conftest.c 2>&1 >/dev/null"` -if test -z "$err"; then - DEFS="$DEFS -DHAVE_STDLIB=1" -fi -rm -f conftest* - -# unistd.h checking added by JBV -echo checking for unistd.h -cat > conftest.c < -EOF -err=`eval "$CPP $DEFS conftest.c 2>&1 >/dev/null"` -if test -z "$err"; then - DEFS="$DEFS -DHAVE_UNISTD=1" -fi -rm -f conftest* - -echo checking for raise -cat > conftest.c < -#include -main() { exit(0); } -t() { raise(1); } -EOF -if eval $compile; then - DEFS="$DEFS -DHAVE_RAISE=1" -fi -rm -f conftest* - -if test -n "$prefix"; then - test -z "$exec_prefix" && exec_prefix='${prefix}' - prsub="s%^prefix\\([ ]*\\)=\\([ ]*\\).*$%prefix\\1=\\2$prefix%" -fi -if test -n "$exec_prefix"; then - prsub="$prsub -s%^exec_prefix\\([ ]*\\)=\\([ ]*\\).*$%\ -exec_prefix\\1=\\2$exec_prefix%" -fi - -trap 'rm -f config.status; exit 1' 1 3 15 -echo creating config.status -rm -f config.status -cat > config.status </dev/null`: -# -# $0 $* - -for arg -do - case "\$arg" in - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - exec /bin/sh $0 $* ;; - *) echo "Usage: config.status --recheck" 2>&1; exit 1 ;; - esac -done - -trap 'rm -f Makefile; exit 1' 1 3 15 -CC='$CC' -CPP='$CPP' -INSTALL='$INSTALL' -INSTALL_PROGRAM='$INSTALL_PROGRAM' -INSTALL_DATA='$INSTALL_DATA' -LIBS='$LIBS' -srcdir='$srcdir' -DEFS='$DEFS' -prefix='$prefix' -exec_prefix='$exec_prefix' -prsub='$prsub' -EOF -cat >> config.status <<\EOF - -top_srcdir=$srcdir -for file in .. Makefile; do if [ "x$file" != "x.." ]; then - srcdir=$top_srcdir - # Remove last slash and all that follows it. Not all systems have dirname. - dir=`echo $file|sed 's%/[^/][^/]*$%%'` - if test "$dir" != "$file"; then - test "$top_srcdir" != . && srcdir=$top_srcdir/$dir - test ! -d $dir && mkdir $dir - fi - echo creating $file - rm -f $file - echo "# Generated automatically from `echo $file|sed 's|.*/||'`.in by configure." > $file - sed -e " -$prsub -s%@CC@%$CC%g -s%@CPP@%$CPP%g -s%@INSTALL@%$INSTALL%g -s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g -s%@INSTALL_DATA@%$INSTALL_DATA%g -s%@LIBS@%$LIBS%g -s%@srcdir@%$srcdir%g -s%@DEFS@%$DEFS% -" $top_srcdir/${file}.in >> $file -fi; done - -EOF -chmod +x config.status -test -n "$no_create" || ./config.status - +#!/bin/sh +# Guess values for system-dependent variables and create Makefiles. +# Generated automatically using autoconf. +# Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + +# Usage: configure [--srcdir=DIR] [--host=HOST] [--gas] [--nfp] [--no-create] +# [--prefix=PREFIX] [--exec-prefix=PREFIX] [--with-PACKAGE] [TARGET] +# Ignores all args except --srcdir, --prefix, --exec-prefix, --no-create, and +# --with-PACKAGE unless this script has special code to handle it. + +##---------------------------------------------------------------## +## NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, ## +## 11/1995 (eidetics@cerf.net). ## +##---------------------------------------------------------------## + +for arg +do + # Handle --exec-prefix with a space before the argument. + if test x$next_exec_prefix = xyes; then exec_prefix=$arg; next_exec_prefix= + # Handle --host with a space before the argument. + elif test x$next_host = xyes; then next_host= + # Handle --prefix with a space before the argument. + elif test x$next_prefix = xyes; then prefix=$arg; next_prefix= + # Handle --srcdir with a space before the argument. + elif test x$next_srcdir = xyes; then srcdir=$arg; next_srcdir= + else + case $arg in + # For backward compatibility, also recognize exact --exec_prefix. + -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* | --exec=* | --exe=* | --ex=* | --e=*) + exec_prefix=`echo $arg | sed 's/[-a-z_]*=//'` ;; + -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- | --exec | --exe | --ex | --e) + next_exec_prefix=yes ;; + + -gas | --gas | --ga | --g) ;; + + -host=* | --host=* | --hos=* | --ho=* | --h=*) ;; + -host | --host | --hos | --ho | --h) + next_host=yes ;; + + -nfp | --nfp | --nf) ;; + + -no-create | --no-create | --no-creat | --no-crea | --no-cre | --no-cr | --no-c | --no- | --no) + no_create=1 ;; + + -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) + prefix=`echo $arg | sed 's/[-a-z_]*=//'` ;; + -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) + next_prefix=yes ;; + + -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=* | --s=*) + srcdir=`echo $arg | sed 's/[-a-z_]*=//'` ;; + -srcdir | --srcdir | --srcdi | --srcd | --src | --sr | --s) + next_srcdir=yes ;; + + -with-* | --with-*) + package=`echo $arg|sed 's/-*with-//'` + # Delete all the valid chars; see if any are left. + if test -n "`echo $package|sed 's/[-a-zA-Z0-9_]*//g'`"; then + echo "configure: $package: invalid package name" >&2; exit 1 + fi + eval "with_`echo $package|sed s/-/_/g`=1" ;; + + *) ;; + esac + fi +done + +trap 'rm -f conftest* core; exit 1' 1 3 15 + +rm -f conftest* +compile='${CC-cc} $DEFS conftest.c -o conftest $LIBS >/dev/null 2>&1' + +# A filename unique to this package, relative to the directory that +# configure is in, which we can look for to find out if srcdir is correct. +unique_file=bwb_cmd.c + +# Find the source files, if location was not specified. +if test -z "$srcdir"; then + srcdirdefaulted=yes + # Try the directory containing this script, then `..'. + prog=$0 + confdir=`echo $prog|sed 's%/[^/][^/]*$%%'` + test "X$confdir" = "X$prog" && confdir=. + srcdir=$confdir + if test ! -r $srcdir/$unique_file; then + srcdir=.. + fi +fi +if test ! -r $srcdir/$unique_file; then + if test x$srcdirdefaulted = xyes; then + echo "configure: Can not find sources in \`${confdir}' or \`..'." 1>&2 + else + echo "configure: Can not find sources in \`${srcdir}'." 1>&2 + fi + exit 1 +fi +# Preserve a srcdir of `.' to avoid automounter screwups with pwd. +# But we can't avoid them for `..', to make subdirectories work. +case $srcdir in + .|/*|~*) ;; + *) srcdir=`cd $srcdir; pwd` ;; # Make relative path absolute. +esac + +if test -z "$CC"; then + echo checking for gcc + saveifs="$IFS"; IFS="${IFS}:" + for dir in $PATH; do + test -z "$dir" && dir=. + if test -f $dir/gcc; then + CC="gcc" + break + fi + done + IFS="$saveifs" +fi +test -z "$CC" && CC="cc" + +# Find out if we are using GNU C, under whatever name. +cat > conftest.c < conftest.out 2>&1 +if egrep yes conftest.out >/dev/null 2>&1; then + GCC=1 # For later tests. +fi +rm -f conftest* + +echo checking how to run the C preprocessor +if test -z "$CPP"; then + CPP='${CC-cc} -E' + cat > conftest.c < +EOF +err=`eval "$CPP $DEFS conftest.c 2>&1 >/dev/null"` +if test -z "$err"; then + : +else + CPP=/lib/cpp +fi +rm -f conftest* +fi + +# Make sure to not get the incompatible SysV /etc/install and +# /usr/sbin/install, which might be in PATH before a BSD-like install, +# or the SunOS /usr/etc/install directory, or the AIX /bin/install, +# or the AFS install, which mishandles nonexistent args. (Sigh.) +if test -z "$INSTALL"; then + echo checking for install + saveifs="$IFS"; IFS="${IFS}:" + for dir in $PATH; do + test -z "$dir" && dir=. + case $dir in + /etc|/usr/sbin|/usr/etc|/usr/afsws/bin) ;; + *) + if test -f $dir/install; then + if grep dspmsg $dir/install >/dev/null 2>&1; then + : # AIX + else + INSTALL="$dir/install -c" + INSTALL_PROGRAM='$(INSTALL)' + INSTALL_DATA='$(INSTALL) -m 644' + break + fi + fi + ;; + esac + done + IFS="$saveifs" +fi +INSTALL=${INSTALL-cp} +INSTALL_PROGRAM=${INSTALL_PROGRAM-'$(INSTALL)'} +INSTALL_DATA=${INSTALL_DATA-'$(INSTALL)'} + +echo checking for size_t in sys/types.h +echo '#include ' > conftest.c +eval "$CPP $DEFS conftest.c > conftest.out 2>&1" +if egrep "size_t" conftest.out >/dev/null 2>&1; then + : +else + DEFS="$DEFS -Dsize_t=unsigned" +fi +rm -f conftest* + +echo checking for string.h +cat > conftest.c < +EOF +err=`eval "$CPP $DEFS conftest.c 2>&1 >/dev/null"` +if test -z "$err"; then + DEFS="$DEFS -DHAVE_STRING=1" +fi +rm -f conftest* + +echo checking for stdlib.h +cat > conftest.c < +EOF +err=`eval "$CPP $DEFS conftest.c 2>&1 >/dev/null"` +if test -z "$err"; then + DEFS="$DEFS -DHAVE_STDLIB=1" +fi +rm -f conftest* + +# unistd.h checking added by JBV +echo checking for unistd.h +cat > conftest.c < +EOF +err=`eval "$CPP $DEFS conftest.c 2>&1 >/dev/null"` +if test -z "$err"; then + DEFS="$DEFS -DHAVE_UNISTD=1" +fi +rm -f conftest* + +echo checking for raise +cat > conftest.c < +#include +main() { exit(0); } +t() { raise(1); } +EOF +if eval $compile; then + DEFS="$DEFS -DHAVE_RAISE=1" +fi +rm -f conftest* + +if test -n "$prefix"; then + test -z "$exec_prefix" && exec_prefix='${prefix}' + prsub="s%^prefix\\([ ]*\\)=\\([ ]*\\).*$%prefix\\1=\\2$prefix%" +fi +if test -n "$exec_prefix"; then + prsub="$prsub +s%^exec_prefix\\([ ]*\\)=\\([ ]*\\).*$%\ +exec_prefix\\1=\\2$exec_prefix%" +fi + +trap 'rm -f config.status; exit 1' 1 3 15 +echo creating config.status +rm -f config.status +cat > config.status </dev/null`: +# +# $0 $* + +for arg +do + case "\$arg" in + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + exec /bin/sh $0 $* ;; + *) echo "Usage: config.status --recheck" 2>&1; exit 1 ;; + esac +done + +trap 'rm -f Makefile; exit 1' 1 3 15 +CC='$CC' +CPP='$CPP' +INSTALL='$INSTALL' +INSTALL_PROGRAM='$INSTALL_PROGRAM' +INSTALL_DATA='$INSTALL_DATA' +LIBS='$LIBS' +srcdir='$srcdir' +DEFS='$DEFS' +prefix='$prefix' +exec_prefix='$exec_prefix' +prsub='$prsub' +EOF +cat >> config.status <<\EOF + +top_srcdir=$srcdir +for file in .. Makefile; do if [ "x$file" != "x.." ]; then + srcdir=$top_srcdir + # Remove last slash and all that follows it. Not all systems have dirname. + dir=`echo $file|sed 's%/[^/][^/]*$%%'` + if test "$dir" != "$file"; then + test "$top_srcdir" != . && srcdir=$top_srcdir/$dir + test ! -d $dir && mkdir $dir + fi + echo creating $file + rm -f $file + echo "# Generated automatically from `echo $file|sed 's|.*/||'`.in by configure." > $file + sed -e " +$prsub +s%@CC@%$CC%g +s%@CPP@%$CPP%g +s%@INSTALL@%$INSTALL%g +s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g +s%@INSTALL_DATA@%$INSTALL_DATA%g +s%@LIBS@%$LIBS%g +s%@srcdir@%$srcdir%g +s%@DEFS@%$DEFS% +" $top_srcdir/${file}.in >> $file +fi; done + +EOF +chmod +x config.status +test -n "$no_create" || ./config.status + diff --git a/configure.in b/configure.in index 8baa146..c20c4db 100644 --- a/configure.in +++ b/configure.in @@ -1,12 +1,12 @@ -dnl Process this file with autoconf to produce a configure script. -AC_INIT(bwb_cmd.c) -AC_PROG_CC -AC_PROG_CPP -AC_PROG_INSTALL -AC_SIZE_T -AC_HEADER_CHECK(string.h, AC_DEFINE(HAVE_STRING)) -AC_HEADER_CHECK(stdlib.h, AC_DEFINE(HAVE_STDLIB)) -AC_HEADER_CHECK(unistd.h, AC_DEFINE(HAVE_UNISTD)) -AC_COMPILE_CHECK(raise, [#include -#include ], [raise(1);], AC_DEFINE(HAVE_RAISE)) -AC_OUTPUT(Makefile) +dnl Process this file with autoconf to produce a configure script. +AC_INIT(bwb_cmd.c) +AC_PROG_CC +AC_PROG_CPP +AC_PROG_INSTALL +AC_SIZE_T +AC_HEADER_CHECK(string.h, AC_DEFINE(HAVE_STRING)) +AC_HEADER_CHECK(stdlib.h, AC_DEFINE(HAVE_STDLIB)) +AC_HEADER_CHECK(unistd.h, AC_DEFINE(HAVE_UNISTD)) +AC_COMPILE_CHECK(raise, [#include +#include ], [raise(1);], AC_DEFINE(HAVE_RAISE)) +AC_OUTPUT(Makefile) diff --git a/crap.bas b/crap.bas new file mode 100644 index 0000000..3db4765 --- /dev/null +++ b/crap.bas @@ -0,0 +1,5 @@ +500 rem ABS.BAS -- Test ABS() function +510 X = -1.23456789 +520 ABSX = ABS( X ) +530 print "The absolute value of "; X; " is"; ABSX +540 print "Is that correct?" diff --git a/factorials.bas b/factorials.bas new file mode 100644 index 0000000..3f59829 --- /dev/null +++ b/factorials.bas @@ -0,0 +1,6 @@ +100 f = 1 +200 FOR i = 0 TO 16 +300 PRINT i; "! ="; f +400 f = f * (i + 1) +500 NEXT i + diff --git a/makefile.qcl b/makefile.qcl index c236876..b52d415 100644 --- a/makefile.qcl +++ b/makefile.qcl @@ -1,60 +1,60 @@ -# Microsoft QuickC Makefile for Bywater BASIC Interpreter -# -# This makefile is for line-oriented QuickC only, not for -# the QuickC integrated environment. To make the program: -# type "nmake -f makefile.qcl". -# -# 2015-04-25 Updated for version 3.00 by Howard Wulf, AF5NE -# -PROJ= bwbasic -CC= qcl - -# -# These are the normal flags I used to compile bwBASIC: -# -CFLAGS= -O -AL -W3 -Za -DHAVE_MSDOS -# -# The following flags can be used for debugging: -# -#CFLAGS= -Od -AL -W3 -Za -Zr -Zi -DHAVE_MSDOS - -LFLAGS= /NOE /ST:8192 - -OFILES= bwbasic.obj bwb_cmd.obj bwb_cnd.obj bwb_dio.obj\ - bwb_exp.obj bwb_fnc.obj bwb_inp.obj bwb_int.obj\ - bwb_prn.obj bwb_stc.obj bwb_str.obj bwb_tbl.obj\ - bwb_var.obj bwd_cmd.obj bwd_fun.obj bwx_tty.obj - -HFILES= bwbasic.h - -all: $(PROJ).exe - -$(OFILES): $(HFILES) makefile.qcl - -$(PROJ).exe: $(OFILES) - echo >NUL @<<$(PROJ).crf -bwbasic.obj + -bwb_cmd.obj + -bwb_cnd.obj + -bwb_dio.obj + -bwb_exp.obj + -bwb_fnc.obj + -bwb_inp.obj + -bwb_int.obj + -bwb_prn.obj + -bwb_stc.obj + -bwb_str.obj + -bwb_tbl.obj + -bwb_var.obj + -bwd_cmd.obj + -bwd_fun.obj + -bwx_tty.obj + -$(OBJS_EXT) -$(PROJ).exe - -$(LIBS_EXT); -<< - link $(LFLAGS) @$(PROJ).crf - erase $(PROJ).crf - -# EOF +# Microsoft QuickC Makefile for Bywater BASIC Interpreter +# +# This makefile is for line-oriented QuickC only, not for +# the QuickC integrated environment. To make the program: +# type "nmake -f makefile.qcl". +# +# 2015-04-25 Updated for version 3.00 by Howard Wulf, AF5NE +# +PROJ= bwbasic +CC= qcl + +# +# These are the normal flags I used to compile bwBASIC: +# +CFLAGS= -O -AL -W3 -Za -DHAVE_MSDOS +# +# The following flags can be used for debugging: +# +#CFLAGS= -Od -AL -W3 -Za -Zr -Zi -DHAVE_MSDOS + +LFLAGS= /NOE /ST:8192 + +OFILES= bwbasic.obj bwb_cmd.obj bwb_cnd.obj bwb_dio.obj\ + bwb_exp.obj bwb_fnc.obj bwb_inp.obj bwb_int.obj\ + bwb_prn.obj bwb_stc.obj bwb_str.obj bwb_tbl.obj\ + bwb_var.obj bwd_cmd.obj bwd_fun.obj bwx_tty.obj + +HFILES= bwbasic.h + +all: $(PROJ).exe + +$(OFILES): $(HFILES) makefile.qcl + +$(PROJ).exe: $(OFILES) + echo >NUL @<<$(PROJ).crf +bwbasic.obj + +bwb_cmd.obj + +bwb_cnd.obj + +bwb_dio.obj + +bwb_exp.obj + +bwb_fnc.obj + +bwb_inp.obj + +bwb_int.obj + +bwb_prn.obj + +bwb_stc.obj + +bwb_str.obj + +bwb_tbl.obj + +bwb_var.obj + +bwd_cmd.obj + +bwd_fun.obj + +bwx_tty.obj + +$(OBJS_EXT) +$(PROJ).exe + +$(LIBS_EXT); +<< + link $(LFLAGS) @$(PROJ).crf + erase $(PROJ).crf + +# EOF diff --git a/makefile.wcl386 b/makefile.wcl386 index 4c86457..f85d6a4 100644 --- a/makefile.wcl386 +++ b/makefile.wcl386 @@ -1,96 +1,96 @@ -# Open Watcom C (http://www.openwatcom.org) Makefile -# for Bywater BASIC Interpreter -# -# Adapted from makefile.qcl -# by Bill Chatfield -# -# 2015-04-25 Updated for version 3.00 by Howard Wulf, AF5NE -# -# To make the program type: wmake -f makefile.wcl386 -# -# The WATCOM environment variable should have been set -# to the top directory of the Open Watcom C installation. -# It is used below, so it needs to be set. - -# -# Watcom looks a the INCLUDE variable to find its include -# files. -# -.BEFORE - set INCLUDE=$(%WATCOM)\h;$(%WATCOM)\h\nt - - -PROJ= bwbasic -CC= wcl386 -LINK= wlink - -# -# Open Watcom options -# -bc Build a console application -# -c Compile only; no link -# -d2 Generate code for the debugger -# -ox Optimize at maximum level -# -q Quiet operation -# -wx Display warnings at maximum level -# -za ANSI C syntax only; no language extensions -# -CFLAGS= -bc -c -ox -q -wx -za -DHAVE_MSDOS -D__WATCOM__ - -LFLAGS= OPTION QUIET - -OFILES= bwbasic.obj bwb_cmd.obj bwb_cnd.obj bwb_dio.obj & - bwb_exp.obj bwb_fnc.obj bwb_inp.obj bwb_int.obj & - bwb_prn.obj bwb_stc.obj bwb_str.obj bwb_tbl.obj & - bwb_var.obj bwd_cmd.obj bwd_fun.obj bwx_tty.obj - -HFILES= bwbasic.h - -ZFILES= bwbasic.exe bwbasic.doc INSTALL COPYING README - -all: $(PROJ).exe - -$(PROJ).exe: $(OFILES) - $(LINK) $(LFLAGS) FILE $(OFILES: =,) NAME $@ - -clean: .SYMBOLIC - del $(OFILES) *.err $(PROJ).exe - -dist: .SYMBOLIC - zip bwbasic-3.00-win32.zip $(ZFILES) - -.c.obj: .AUTODEPEND - $(CC) $(CFLAGS) $[@ - -bwbasic.obj: bwbasic.c $(HFILES) $(__MAKEFILES__) - -bwb_cmd.obj: bwb_cmd.c $(HFILES) $(__MAKEFILES__) - -bwb_cnd.obj: bwb_cnd.c $(HFILES) $(__MAKEFILES__) - -bwb_dio.obj: bwb_dio.c $(HFILES) $(__MAKEFILES__) - -bwb_exp.obj: bwb_exp.c $(HFILES) $(__MAKEFILES__) - -bwb_fnc.obj: bwb_fnc.c $(HFILES) $(__MAKEFILES__) - -bwb_inp.obj: bwb_inp.c $(HFILES) $(__MAKEFILES__) - -bwb_int.obj: bwb_int.c $(HFILES) $(__MAKEFILES__) - -bwb_prn.obj: bwb_prn.c $(HFILES) $(__MAKEFILES__) - -bwb_stc.obj: bwb_stc.c $(HFILES) $(__MAKEFILES__) - -bwb_str.obj: bwb_str.c $(HFILES) $(__MAKEFILES__) - -bwb_tbl.obj: bwb_tbl.c $(HFILES) $(__MAKEFILES__) - -bwb_var.obj: bwb_var.c $(HFILES) $(__MAKEFILES__) - -bwd_cmd.obj: bwd_cmd.c $(HFILES) $(__MAKEFILES__) - -bwd_fun.obj: bwd_fun.c $(HFILES) $(__MAKEFILES__) - -bwx_tty.obj: bwx_tty.c $(HFILES) $(__MAKEFILES__) - -# EOF +# Open Watcom C (http://www.openwatcom.org) Makefile +# for Bywater BASIC Interpreter +# +# Adapted from makefile.qcl +# by Bill Chatfield +# +# 2015-04-25 Updated for version 3.00 by Howard Wulf, AF5NE +# +# To make the program type: wmake -f makefile.wcl386 +# +# The WATCOM environment variable should have been set +# to the top directory of the Open Watcom C installation. +# It is used below, so it needs to be set. + +# +# Watcom looks a the INCLUDE variable to find its include +# files. +# +.BEFORE + set INCLUDE=$(%WATCOM)\h;$(%WATCOM)\h\nt + + +PROJ= bwbasic +CC= wcl386 +LINK= wlink + +# +# Open Watcom options +# -bc Build a console application +# -c Compile only; no link +# -d2 Generate code for the debugger +# -ox Optimize at maximum level +# -q Quiet operation +# -wx Display warnings at maximum level +# -za ANSI C syntax only; no language extensions +# +CFLAGS= -bc -c -ox -q -wx -za -DHAVE_MSDOS -D__WATCOM__ + +LFLAGS= OPTION QUIET + +OFILES= bwbasic.obj bwb_cmd.obj bwb_cnd.obj bwb_dio.obj & + bwb_exp.obj bwb_fnc.obj bwb_inp.obj bwb_int.obj & + bwb_prn.obj bwb_stc.obj bwb_str.obj bwb_tbl.obj & + bwb_var.obj bwd_cmd.obj bwd_fun.obj bwx_tty.obj + +HFILES= bwbasic.h + +ZFILES= bwbasic.exe bwbasic.doc INSTALL COPYING README + +all: $(PROJ).exe + +$(PROJ).exe: $(OFILES) + $(LINK) $(LFLAGS) FILE $(OFILES: =,) NAME $@ + +clean: .SYMBOLIC + del $(OFILES) *.err $(PROJ).exe + +dist: .SYMBOLIC + zip bwbasic-3.00-win32.zip $(ZFILES) + +.c.obj: .AUTODEPEND + $(CC) $(CFLAGS) $[@ + +bwbasic.obj: bwbasic.c $(HFILES) $(__MAKEFILES__) + +bwb_cmd.obj: bwb_cmd.c $(HFILES) $(__MAKEFILES__) + +bwb_cnd.obj: bwb_cnd.c $(HFILES) $(__MAKEFILES__) + +bwb_dio.obj: bwb_dio.c $(HFILES) $(__MAKEFILES__) + +bwb_exp.obj: bwb_exp.c $(HFILES) $(__MAKEFILES__) + +bwb_fnc.obj: bwb_fnc.c $(HFILES) $(__MAKEFILES__) + +bwb_inp.obj: bwb_inp.c $(HFILES) $(__MAKEFILES__) + +bwb_int.obj: bwb_int.c $(HFILES) $(__MAKEFILES__) + +bwb_prn.obj: bwb_prn.c $(HFILES) $(__MAKEFILES__) + +bwb_stc.obj: bwb_stc.c $(HFILES) $(__MAKEFILES__) + +bwb_str.obj: bwb_str.c $(HFILES) $(__MAKEFILES__) + +bwb_tbl.obj: bwb_tbl.c $(HFILES) $(__MAKEFILES__) + +bwb_var.obj: bwb_var.c $(HFILES) $(__MAKEFILES__) + +bwd_cmd.obj: bwd_cmd.c $(HFILES) $(__MAKEFILES__) + +bwd_fun.obj: bwd_fun.c $(HFILES) $(__MAKEFILES__) + +bwx_tty.obj: bwx_tty.c $(HFILES) $(__MAKEFILES__) + +# EOF diff --git a/renum.c b/renum.c index 4340dd0..bb34a9c 100644 --- a/renum.c +++ b/renum.c @@ -6,6 +6,7 @@ /*-------------------------------------------------------------------*/ #include +#include #include #define MAX_LINE_LENGTH 255 @@ -20,7 +21,7 @@ int f2, l2, n, x; int sidx[MAX_LINE_COUNT][2]; char rstr[MAX_LINE_LENGTH]; -main(argc, argv) +int main(argc, argv) int argc; char *argv[]; { @@ -31,18 +32,25 @@ main(argc, argv) char sstr[MAX_LINE_LENGTH]; char f9str[MAX_LINE_LENGTH]; char s9str[MAX_LINE_LENGTH]; - char tempstr[MAX_LINE_LENGTH]; + char tempstr[MAX_LINE_LENGTH + 64]; FILE *fdin; FILE *fdout; int skip, bp, temp, getout, disp_msg; f = 1; + printf("Version 12/13/2019\n"); + if (argc > 1) strcpy(pstr, argv[1]); else { printf("Program in file? "); fgets(pstr,MAX_LINE_LENGTH, stdin); + if (strchr(pstr, '\n') != NULL) + { + pstr[strlen(pstr)-1] = '\0'; + } + } if (strlen(pstr) == 0) strcpy(pstr, "0.doc"); @@ -59,10 +67,11 @@ main(argc, argv) #else strcpy(pstr, "editfl"); #endif + fdout = fopen(pstr, "w"); if (fdout == NULL) { - printf("Unable to open editfl output file\n"); + printf("Unable to open temporary file editfl for output\n"); exit(1); } @@ -281,13 +290,22 @@ main(argc, argv) } printf("RENUMBERING\n"); -/* for (r = 1; r <= s; r ++) - printf("%d -> %d\n", sidx[r][0], sidx[r][1]); */ - printf("VERIFY? "); +/* + for (r = 1; r <= s; r ++) + printf("%d -> %d\n", sidx[r][0], sidx[r][1]); + */ + + printf("VERIFY? N or n cancels:"); fgets(pstr,MAX_LINE_LENGTH,stdin); v1 = 0; if (strcmp(midstr2(pstr, 1, 1), "N") == 0) v1 = 1; + if (strcmp(midstr2(pstr, 1, 1), "n") == 0) v1 = 1; + + if (v1 == 1) { + printf("Operation cancelled\n"); + exit(1); + } fdin = fopen(f9str, "r"); if (fdin == NULL) @@ -489,10 +507,18 @@ main(argc, argv) fclose(fdin); fclose(fdout); -#if !defined(__MVS__) && !defined(__CMS__) - sprintf(tempstr, "mv editfl %s\0", f9str); + +#if !defined(__MVS__) && !defined(__CMS__) && !defined(MSDOS) + tempstr[strlen(tempstr)] = '\0'; + sprintf(tempstr, "cp editfl %s", f9str); + system(tempstr); +#endif +#if defined(MSDOS) + tempstr[strlen(tempstr)] = '\0'; + sprintf(tempstr, "copy editfl %s", f9str); system(tempstr); #endif + return (0); } @@ -561,7 +587,8 @@ void binary_search(void) if (sidx[m][0] == n) { - sprintf(rstr, "%d\0", sidx[m][1]); + rstr[strlen(rstr)] = '\0'; + sprintf(rstr, "%d", sidx[m][1]); x = 0; return; } @@ -578,3 +605,4 @@ void binary_search(void) l5 = m; } } + diff --git a/res.bas b/res.bas new file mode 100644 index 0000000..c620f70 --- /dev/null +++ b/res.bas @@ -0,0 +1,7 @@ + 100 for j = 1 to 22 + 200 print j + 300 next j + 400 for j = 1 to 80 + 500 print "I"; + 600 next j + diff --git a/stdbwb.parm b/stdbwb.parm index eea6614..d66ccf6 100644 --- a/stdbwb.parm +++ b/stdbwb.parm @@ -1 +1 @@ --Os -S -ansi -o dd:out - +-Os -S -ansi -o dd:out - diff --git a/stdcomp.bat b/stdcomp.bat index 4772824..3df173b 100644 --- a/stdcomp.bat +++ b/stdcomp.bat @@ -1,3 +1 @@ -rem gcc -w -c -ansi -mno-cygwin -I . %1 %2 %3 %4 %5 %6 %7 %8 %9 -bcc32 -O -w- -A -c -I. %1 %2 %3 %4 %5 %6 %7 %8 %9 -rem gccmvs -Os -S -ansi -nostdinc -I ../pdos/pdpclib -I . %1 %2 %3 %4 %5 %6 %7 %8 %9 +gcc -w -c -ansi -I . %1 %2 %3 %4 %5 %6 %7 %8 %9